mus_append_derVar_isotherm_acEq Subroutine

public subroutine mus_append_derVar_isotherm_acEq(varSys, solverData, schemeHeader, stencil, fldLabel, derVarName)

subroutine to add derive variables for isothermal acoustic equations (schemekind = 'isotherm_acEq') to the varsys.

Arguments

TypeIntentOptionalAttributesName
type(tem_varSys_type), intent(inout) :: varSys

global variable system

type(mus_varSys_solverData_type), intent(in), target:: solverData

Contains pointer to solver data types

type(mus_scheme_header_type), intent(in) :: schemeHeader

identifier of the scheme

type(tem_stencilHeader_type), intent(in) :: stencil

compute stencil defintion

character(len=*), intent(in) :: fldLabel

array of field label prefix. Size=nFields

type(grw_labelarray_type), intent(inout) :: derVarName

array of derive physical variables


Calls

proc~~mus_append_dervar_isotherm_aceq~~CallsGraph proc~mus_append_dervar_isotherm_aceq mus_append_derVar_isotherm_acEq interface~append append proc~mus_append_dervar_isotherm_aceq->interface~append proc~tem_varsys_append_dervar tem_varSys_append_derVar proc~mus_append_dervar_isotherm_aceq->proc~tem_varsys_append_dervar proc~mus_get_new_solver_ptr mus_get_new_solver_ptr proc~mus_append_dervar_isotherm_aceq->proc~mus_get_new_solver_ptr

Called by

proc~~mus_append_dervar_isotherm_aceq~~CalledByGraph proc~mus_append_dervar_isotherm_aceq mus_append_derVar_isotherm_acEq proc~mus_build_varsys mus_build_varSys proc~mus_build_varsys->proc~mus_append_dervar_isotherm_aceq proc~mus_init_scheme mus_init_scheme proc~mus_init_scheme->proc~mus_build_varsys proc~mus_initialize mus_initialize proc~mus_initialize->proc~mus_init_scheme program~mus_harvesting mus_harvesting program~mus_harvesting->proc~mus_init_scheme proc~mus_perform_dynloadbal mus_perform_dynLoadBal proc~mus_perform_dynloadbal->proc~mus_init_scheme none~do_balance do_balance none~do_balance->proc~mus_perform_dynloadbal program~musubi musubi program~musubi->proc~mus_initialize

Contents


Variables

TypeVisibilityAttributesNameInitial
integer, private :: nDerVars
integer, private :: iVar
integer, private :: nComponents
integer, private :: addedPos
integer, private :: iIn
logical, private :: wasAdded
character(len=labelLen), private, allocatable:: input_varname(:)
character(len=labelLen), private :: varName
procedure(tem_varSys_proc_point), private, pointer:: get_point=> NULL()
procedure(tem_varSys_proc_element), private, pointer:: get_element=> NULL()
procedure(tem_varSys_proc_setParams), private, pointer:: set_params=> null()
procedure(tem_varSys_proc_getParams), private, pointer:: get_params=> null()
procedure(tem_varSys_proc_setupIndices), private, pointer:: setup_indices=> null()
procedure(tem_varSys_proc_getValOfIndex), private, pointer:: get_valOfIndex=> null()
character(len=labelLen), private, allocatable:: derVarName_loc(:)