calculate_nElems Subroutine

public subroutine calculate_nElems(levelDesc, proc, minLevel, maxLevel)

Calculate global and sum of levels numbers of elements

Arguments

TypeIntentOptionalAttributesName
type(tem_levelDesc_type), intent(in) :: levelDesc(minLevel:maxLevel)
type(tem_comm_env_type), intent(in) :: proc

mpi communication enviroment with mpi communicator

integer, intent(in) :: minLevel

Level range

integer, intent(in) :: maxLevel

Calls

proc~~calculate_nelems~~CallsGraph proc~calculate_nelems calculate_nElems proc~tem_horizontalspacer tem_horizontalSpacer proc~calculate_nelems->proc~tem_horizontalspacer mpi_allreduce mpi_allreduce proc~calculate_nelems->mpi_allreduce

Called by

proc~~calculate_nelems~~CalledByGraph proc~calculate_nelems calculate_nElems proc~mus_construct mus_construct proc~mus_construct->proc~calculate_nelems proc~mus_hvs_construct mus_hvs_construct proc~mus_hvs_construct->proc~calculate_nelems proc~mus_initialize mus_initialize proc~mus_initialize->proc~mus_construct proc~mus_perform_dynloadbal mus_perform_dynLoadBal proc~mus_perform_dynloadbal->proc~mus_construct program~mus_harvesting mus_harvesting program~mus_harvesting->proc~mus_construct program~mus_harvesting->proc~mus_hvs_construct program~musubi musubi program~musubi->proc~mus_initialize none~do_balance do_balance none~do_balance->proc~mus_perform_dynloadbal proc~mus_solve mus_solve proc~mus_solve->none~do_balance

Contents


Variables

TypeVisibilityAttributesNameInitial
integer, private :: iLevel
integer, private :: iErr
integer, private :: nLevels
integer(kind=long_k), private :: ElemCount(minLevel:maxLevel)
integer(kind=long_k), private :: nElems_overall
integer(kind=long_k), private :: nElems_allLevel(minLevel:maxLevel)
integer(kind=long_k), private :: nElems_fluidLevel(minLevel:maxLevel)
integer, private :: myGhostFromFiner
integer, private :: myGhostFromCoarser
integer, private :: nElems_totalGhostFromFiner
integer, private :: nElems_totalGhostFromCoarser