check_velocityMS Subroutine

private subroutine check_velocityMS(scheme, minLevel, maxLevel, general, mus_aborts)

Check the maximum velocity whether it is above Ma>0.1

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
type(mus_abortCriteria_type), intent(in) :: mus_aborts

Calls

proc~~check_velocityms~~CallsGraph proc~check_velocityms check_velocityMS mpi_reduce mpi_reduce proc~check_velocityms->mpi_reduce proc~tem_isnan tem_isNaN proc~check_velocityms->proc~tem_isnan

Called by

proc~~check_velocityms~~CalledByGraph proc~check_velocityms check_velocityMS proc~perform_checks perform_checks proc~perform_checks->proc~check_velocityms proc~mus_initialize mus_initialize proc~mus_initialize->proc~perform_checks 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 program~musubi musubi program~musubi->proc~mus_initialize 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 :: velMag
real(kind=rk), private :: maxVel
real(kind=rk), private :: glob_maxVel
real(kind=rk), private :: dens(scheme%nFields)
real(kind=rk), private :: mom(3,scheme%nFields)
real(kind=rk), private :: mixVel(3)
real(kind=rk), private :: inv_tRho
integer, private :: iLevel
integer, private :: ierror
integer, private :: iElem
integer, private :: iField
integer, private :: elemOff
integer, private :: dens_pos
integer, private :: mom_pos(3)