mus_append_sourceVar Subroutine

  1. mus_variable_module.f90
  2. mus_variable_module
  3. mus_append_sourceVar

private subroutine mus_append_sourceVar(me, solverData, schemeHeader, varSys, nFields, stencil, poss_srcVar, fldLabel)

Build a variable system of all possible source terms for the given schemeKind

Arguments

TypeIntentOptionalAttributesName
type(mus_source_type), intent(inout) :: me

Contains source function pointer, source variable definition from lua and mapping of source variable in global varSys
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_varSys_type), intent(inout) :: varSys

Global variable system
integer, intent(in) :: nFields

number of fields
type(tem_stencilHeader_type), intent(in) :: stencil

compute stencil defintion
type(tem_possible_variable_type), intent(in) :: poss_srcVar

possible source variables
character(len=*), intent(in), optional :: fldLabel

array of field label prefix required only for field source. If not present, it is assumed as global source

Calls

proc~~mus_append_sourcevar~~CallsGraph proc~mus_append_sourcevar mus_append_sourceVar interface~tem_varsys_dump tem_varSys_dump proc~mus_append_sourcevar->interface~tem_varsys_dump proc~tem_abort tem_abort proc~mus_append_sourcevar->proc~tem_abort interface~positionofval positionofval proc~mus_append_sourcevar->interface~positionofval proc~tem_varsys_append_dervar tem_varSys_append_derVar proc~mus_append_sourcevar->proc~tem_varsys_append_dervar proc~mus_get_new_solver_ptr mus_get_new_solver_ptr proc~mus_append_sourcevar->proc~mus_get_new_solver_ptr

Called by

proc~~mus_append_sourcevar~~CalledByGraph proc~mus_append_sourcevar mus_append_sourceVar proc~mus_build_varsys mus_build_varSys proc~mus_build_varsys->proc~mus_append_sourcevar 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


Variables

TypeVisibilityAttributesNameInitial
logical, private :: wasAdded
character(len=labelLen), private, allocatable:: input_varname(:)
character(len=labelLen), private :: varName
character(len=labelLen), private :: fldLabel_loc
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()
integer, private :: iSrc
integer, private :: dataVar_InInVar
integer, private :: nSrcVars
integer, private :: nComponents
integer, private :: addedPos
integer, private :: iField
integer, private :: nComp_defined
integer, private :: nComp_expected
integer, private :: data_varPos
integer, private :: possSrc_varPos