dyn_inquire_mesh_dimensions Module Subroutine

module subroutine dyn_inquire_mesh_dimensions()

Uses

  • proc~~dyn_inquire_mesh_dimensions~~UsesGraph proc~dyn_inquire_mesh_dimensions dyn_inquire_mesh_dimensions cam_logfile cam_logfile proc~dyn_inquire_mesh_dimensions->cam_logfile module~dyn_comp dyn_comp proc~dyn_inquire_mesh_dimensions->module~dyn_comp string_utils string_utils proc~dyn_inquire_mesh_dimensions->string_utils module~dyn_mpas_subdriver dyn_mpas_subdriver module~dyn_comp->module~dyn_mpas_subdriver iso_fortran_env iso_fortran_env module~dyn_mpas_subdriver->iso_fortran_env mpas_derived_types mpas_derived_types module~dyn_mpas_subdriver->mpas_derived_types mpas_kind_types mpas_kind_types module~dyn_mpas_subdriver->mpas_kind_types mpi mpi module~dyn_mpas_subdriver->mpi

Inquire local and global mesh dimensions. Save them as protected module variables. (KCW, 2024-11-21)

Arguments

None

Calls

proc~~dyn_inquire_mesh_dimensions~~CallsGraph proc~dyn_inquire_mesh_dimensions dyn_inquire_mesh_dimensions interface~dyn_debug_print dyn_debug_print proc~dyn_inquire_mesh_dimensions->interface~dyn_debug_print proc~dyn_mpas_get_global_mesh_dimension mpas_dynamical_core_type%dyn_mpas_get_global_mesh_dimension proc~dyn_inquire_mesh_dimensions->proc~dyn_mpas_get_global_mesh_dimension proc~dyn_mpas_get_local_mesh_dimension mpas_dynamical_core_type%dyn_mpas_get_local_mesh_dimension proc~dyn_inquire_mesh_dimensions->proc~dyn_mpas_get_local_mesh_dimension stringify stringify proc~dyn_inquire_mesh_dimensions->stringify proc~dyn_debug_print dyn_debug_print interface~dyn_debug_print->proc~dyn_debug_print mpas_dmpar_max_int mpas_dmpar_max_int proc~dyn_mpas_get_global_mesh_dimension->mpas_dmpar_max_int mpas_dmpar_sum_int mpas_dmpar_sum_int proc~dyn_mpas_get_global_mesh_dimension->mpas_dmpar_sum_int none~get_variable_pointer mpas_dynamical_core_type%get_variable_pointer proc~dyn_mpas_get_global_mesh_dimension->none~get_variable_pointer proc~dyn_mpas_debug_print mpas_dynamical_core_type%dyn_mpas_debug_print proc~dyn_mpas_get_global_mesh_dimension->proc~dyn_mpas_debug_print proc~dyn_mpas_get_local_mesh_dimension->none~get_variable_pointer proc~dyn_mpas_get_local_mesh_dimension->proc~dyn_mpas_debug_print proc~dyn_mpas_get_variable_pointer_c0 mpas_dynamical_core_type%dyn_mpas_get_variable_pointer_c0 none~get_variable_pointer->proc~dyn_mpas_get_variable_pointer_c0 proc~dyn_mpas_get_variable_pointer_c1 mpas_dynamical_core_type%dyn_mpas_get_variable_pointer_c1 none~get_variable_pointer->proc~dyn_mpas_get_variable_pointer_c1 proc~dyn_mpas_get_variable_pointer_i0 mpas_dynamical_core_type%dyn_mpas_get_variable_pointer_i0 none~get_variable_pointer->proc~dyn_mpas_get_variable_pointer_i0 proc~dyn_mpas_get_variable_pointer_i1 mpas_dynamical_core_type%dyn_mpas_get_variable_pointer_i1 none~get_variable_pointer->proc~dyn_mpas_get_variable_pointer_i1 proc~dyn_mpas_get_variable_pointer_i2 mpas_dynamical_core_type%dyn_mpas_get_variable_pointer_i2 none~get_variable_pointer->proc~dyn_mpas_get_variable_pointer_i2 proc~dyn_mpas_get_variable_pointer_i3 mpas_dynamical_core_type%dyn_mpas_get_variable_pointer_i3 none~get_variable_pointer->proc~dyn_mpas_get_variable_pointer_i3 proc~dyn_mpas_get_variable_pointer_l0 mpas_dynamical_core_type%dyn_mpas_get_variable_pointer_l0 none~get_variable_pointer->proc~dyn_mpas_get_variable_pointer_l0 proc~dyn_mpas_get_variable_pointer_r0 mpas_dynamical_core_type%dyn_mpas_get_variable_pointer_r0 none~get_variable_pointer->proc~dyn_mpas_get_variable_pointer_r0 proc~dyn_mpas_get_variable_pointer_r1 mpas_dynamical_core_type%dyn_mpas_get_variable_pointer_r1 none~get_variable_pointer->proc~dyn_mpas_get_variable_pointer_r1 proc~dyn_mpas_get_variable_pointer_r2 mpas_dynamical_core_type%dyn_mpas_get_variable_pointer_r2 none~get_variable_pointer->proc~dyn_mpas_get_variable_pointer_r2 proc~dyn_mpas_get_variable_pointer_r3 mpas_dynamical_core_type%dyn_mpas_get_variable_pointer_r3 none~get_variable_pointer->proc~dyn_mpas_get_variable_pointer_r3 proc~dyn_mpas_get_variable_pointer_r4 mpas_dynamical_core_type%dyn_mpas_get_variable_pointer_r4 none~get_variable_pointer->proc~dyn_mpas_get_variable_pointer_r4 proc~dyn_mpas_get_variable_pointer_r5 mpas_dynamical_core_type%dyn_mpas_get_variable_pointer_r5 none~get_variable_pointer->proc~dyn_mpas_get_variable_pointer_r5 proc~dyn_debug_print->stringify proc~stringify stringify proc~dyn_mpas_debug_print->proc~stringify mpas_pool_get_array mpas_pool_get_array proc~dyn_mpas_get_variable_pointer_c0->mpas_pool_get_array mpas_pool_get_config mpas_pool_get_config proc~dyn_mpas_get_variable_pointer_c0->mpas_pool_get_config proc~dyn_mpas_get_pool_pointer mpas_dynamical_core_type%dyn_mpas_get_pool_pointer proc~dyn_mpas_get_variable_pointer_c0->proc~dyn_mpas_get_pool_pointer proc~dyn_mpas_get_variable_pointer_c1->mpas_pool_get_array proc~dyn_mpas_get_variable_pointer_c1->proc~dyn_mpas_get_pool_pointer proc~dyn_mpas_get_variable_pointer_i0->mpas_pool_get_array proc~dyn_mpas_get_variable_pointer_i0->mpas_pool_get_config mpas_pool_get_dimension mpas_pool_get_dimension proc~dyn_mpas_get_variable_pointer_i0->mpas_pool_get_dimension proc~dyn_mpas_get_variable_pointer_i0->proc~dyn_mpas_get_pool_pointer proc~dyn_mpas_get_variable_pointer_i1->mpas_pool_get_array proc~dyn_mpas_get_variable_pointer_i1->mpas_pool_get_dimension proc~dyn_mpas_get_variable_pointer_i1->proc~dyn_mpas_get_pool_pointer proc~dyn_mpas_get_variable_pointer_i2->mpas_pool_get_array proc~dyn_mpas_get_variable_pointer_i2->proc~dyn_mpas_get_pool_pointer proc~dyn_mpas_get_variable_pointer_i3->mpas_pool_get_array proc~dyn_mpas_get_variable_pointer_i3->proc~dyn_mpas_get_pool_pointer proc~dyn_mpas_get_variable_pointer_l0->mpas_pool_get_config proc~dyn_mpas_get_variable_pointer_l0->proc~dyn_mpas_get_pool_pointer proc~dyn_mpas_get_variable_pointer_r0->mpas_pool_get_array proc~dyn_mpas_get_variable_pointer_r0->mpas_pool_get_config proc~dyn_mpas_get_variable_pointer_r0->proc~dyn_mpas_get_pool_pointer proc~dyn_mpas_get_variable_pointer_r1->mpas_pool_get_array proc~dyn_mpas_get_variable_pointer_r1->proc~dyn_mpas_get_pool_pointer proc~dyn_mpas_get_variable_pointer_r2->mpas_pool_get_array proc~dyn_mpas_get_variable_pointer_r2->proc~dyn_mpas_get_pool_pointer proc~dyn_mpas_get_variable_pointer_r3->mpas_pool_get_array proc~dyn_mpas_get_variable_pointer_r3->proc~dyn_mpas_get_pool_pointer proc~dyn_mpas_get_variable_pointer_r4->mpas_pool_get_array proc~dyn_mpas_get_variable_pointer_r4->proc~dyn_mpas_get_pool_pointer proc~dyn_mpas_get_variable_pointer_r5->mpas_pool_get_array proc~dyn_mpas_get_variable_pointer_r5->proc~dyn_mpas_get_pool_pointer mpas_pool_get_subpool mpas_pool_get_subpool proc~dyn_mpas_get_pool_pointer->mpas_pool_get_subpool

Called by

proc~~dyn_inquire_mesh_dimensions~~CalledByGraph proc~dyn_inquire_mesh_dimensions dyn_inquire_mesh_dimensions interface~dyn_inquire_mesh_dimensions dyn_inquire_mesh_dimensions interface~dyn_inquire_mesh_dimensions->proc~dyn_inquire_mesh_dimensions proc~model_grid_init model_grid_init proc~model_grid_init->interface~dyn_inquire_mesh_dimensions interface~model_grid_init model_grid_init interface~model_grid_init->proc~model_grid_init

Variables

Type Visibility Attributes Name Initial
character(len=*), private, parameter :: subname = 'dyn_grid::dyn_inquire_mesh_dimensions'

Source Code

    module subroutine dyn_inquire_mesh_dimensions()
        ! Module(s) from CAM-SIMA.
        use cam_logfile, only: debugout_debug
        use dyn_comp, only: dyn_debug_print, mpas_dynamical_core
        use string_utils, only: stringify

        character(*), parameter :: subname = 'dyn_grid::dyn_inquire_mesh_dimensions'

        call dyn_debug_print(debugout_debug, subname // ' entered')

        call mpas_dynamical_core % get_local_mesh_dimension( &
            ncells, ncells_solve, nedges, nedges_solve, nvertices, nvertices_solve, nvertlevels)

        call mpas_dynamical_core % get_global_mesh_dimension( &
            ncells_global, nedges_global, nvertices_global, nvertlevels, ncells_max, nedges_max, &
            sphere_radius)

        call dyn_debug_print(debugout_debug, 'ncells_global    = ' // stringify([ncells_global]))
        call dyn_debug_print(debugout_debug, 'nedges_global    = ' // stringify([nedges_global]))
        call dyn_debug_print(debugout_debug, 'nvertices_global = ' // stringify([nvertices_global]))
        call dyn_debug_print(debugout_debug, 'nvertlevels      = ' // stringify([nvertlevels]))
        call dyn_debug_print(debugout_debug, 'ncells_max       = ' // stringify([ncells_max]))
        call dyn_debug_print(debugout_debug, 'nedges_max       = ' // stringify([nedges_max]))
        call dyn_debug_print(debugout_debug, 'sphere_radius    = ' // stringify([sphere_radius]))

        call dyn_debug_print(debugout_debug, subname // ' completed')
    end subroutine dyn_inquire_mesh_dimensions