mus_append_readVarAsStateVar Subroutine

  1. mus_variable_module.f90
  2. mus_variable_module
  3. mus_append_readVarAsStateVar

public subroutine mus_append_readVarAsStateVar(varSys, readVarIsPdf, read_varSys, stateVarMap, solverData, nFields, fldLabel)

Append variable read from restart file as state variables

Arguments

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

global variable system
logical, intent(out) :: readVarIsPdf

Is true if read_varSys has pdf variable
type(tem_varSys_type), intent(in) :: read_varSys

Variable system loaded from restart header file
type(tem_varMap_type), intent(out) :: stateVarMap

Store position of state variable in global varSys
type(mus_varSys_solverData_type), intent(in), target:: solverData

Contains pointer to solver data types
integer, intent(in) :: nFields

number of fields
character(len=*), intent(in) :: fldLabel(:)

array of field label prefix. Size=nFields

Calls

proc~~mus_append_readvarasstatevar~~CallsGraph proc~mus_append_readvarasstatevar mus_append_readVarAsStateVar interface~init init proc~mus_append_readvarasstatevar->interface~init proc~check_varsys_forpdfvar check_varSys_forPdfVar proc~mus_append_readvarasstatevar->proc~check_varsys_forpdfvar proc~tem_abort tem_abort proc~mus_append_readvarasstatevar->proc~tem_abort interface~truncate truncate proc~mus_append_readvarasstatevar->interface~truncate proc~mus_get_new_solver_ptr mus_get_new_solver_ptr proc~mus_append_readvarasstatevar->proc~mus_get_new_solver_ptr interface~append append proc~mus_append_readvarasstatevar->interface~append proc~tem_varsys_append_statevar tem_varSys_append_stateVar proc~mus_append_readvarasstatevar->proc~tem_varsys_append_statevar

Called by

proc~~mus_append_readvarasstatevar~~CalledByGraph proc~mus_append_readvarasstatevar mus_append_readVarAsStateVar proc~mus_load_scheme mus_load_scheme proc~mus_load_scheme->proc~mus_append_readvarasstatevar proc~mus_load_config mus_load_config proc~mus_load_config->proc~mus_load_scheme proc~mus_hvs_load_solverdata mus_hvs_load_solverData proc~mus_hvs_load_solverdata->proc~mus_load_scheme proc~mus_hvs_config_load mus_hvs_config_load proc~mus_hvs_config_load->proc~mus_hvs_load_solverdata program~musubi musubi program~musubi->proc~mus_load_config program~mus_harvesting mus_harvesting program~mus_harvesting->proc~mus_hvs_config_load

Contents

Variables


Variables

TypeVisibilityAttributesNameInitial
character(len=labelLen), private :: varname
integer, private :: nComponents
integer, private :: iVar
integer, private :: addedPos
logical, private :: wasAdded
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()