check_density Subroutine

public subroutine check_density(scheme, minLevel, maxLevel, general, total_density)

Check the total density for a selected scheme and write to unit

The output might be delayed by using arrays which are then dumped to keep disc access more restricted

Arguments

TypeIntentOptionalAttributesName
type(mus_scheme_type), intent(in) :: scheme

scheme type

integer, intent(in) :: minLevel

global scheme independent information

integer, intent(in) :: maxLevel

global scheme independent information

type(tem_general_type), intent(inout) :: general
real(kind=rk), intent(out), optional :: total_density

Calls

proc~~check_density~~CallsGraph proc~check_density check_density proc~tem_time_dump tem_time_dump proc~check_density->proc~tem_time_dump mpi_reduce mpi_reduce proc~check_density->mpi_reduce proc~tem_isnan tem_isNaN proc~check_density->proc~tem_isnan

Called by

proc~~check_density~~CalledByGraph proc~check_density check_density none~do_balance do_balance none~do_balance->proc~check_density proc~perform_checks perform_checks proc~perform_checks->proc~check_density proc~mus_finalize mus_finalize proc~mus_finalize->proc~check_density proc~mus_initialize mus_initialize proc~mus_initialize->proc~perform_checks program~musubi musubi program~musubi->proc~mus_finalize program~musubi->proc~mus_initialize proc~mus_solve mus_solve program~musubi->proc~mus_solve proc~mus_solve->none~do_balance proc~check_flow_status check_flow_status proc~check_flow_status->proc~perform_checks proc~do_recursive_multilevel do_recursive_multiLevel proc~do_recursive_multilevel->proc~check_flow_status proc~do_fast_singlelevel do_fast_singleLevel proc~do_fast_singlelevel->proc~check_flow_status proc~do_benchmark do_benchmark proc~do_benchmark->proc~check_flow_status

Contents


Variables

TypeVisibilityAttributesNameInitial
real(kind=rk), private, allocatable:: dens(:)
real(kind=rk), private, allocatable:: total_dens(:)
real(kind=rk), private :: dens_field
integer, private :: iLevel
integer, private :: ierror
integer, private :: iElem
integer, private :: iField
integer, private :: elemOff
integer, private :: dens_pos(scheme%nFields)