tem_opVar_reduction_transient_init Subroutine

public subroutine tem_opVar_reduction_transient_init(varSys, tree, redTransVarMap, nDofs, time)

Initialize time reduction operation variable Loop over all variable in varSys and allocate redTrans%val for reduction_transient operation variable with nElems

Arguments

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

Global variable system

type(treelmesh_type), intent(in) :: tree

treelmesh_type

type(tem_varMap_type), intent(out) :: redTransVarMap

position of time reduction variable in varSys

integer, intent(in), optional :: nDofs

Solver nDegrees of freedom

type(tem_time_type), intent(in) :: time

Current time


Calls

proc~~tem_opvar_reduction_transient_init~~CallsGraph proc~tem_opvar_reduction_transient_init tem_opVar_reduction_transient_init interface~init~15 init proc~tem_opvar_reduction_transient_init->interface~init~15 interface~append~16 append proc~tem_opvar_reduction_transient_init->interface~append~16 proc~tem_reduction_transient_init tem_reduction_transient_init proc~tem_opvar_reduction_transient_init->proc~tem_reduction_transient_init proc~tem_create_varmap tem_create_varMap proc~tem_opvar_reduction_transient_init->proc~tem_create_varmap proc~init_ga2d_real init_ga2d_real interface~init~15->proc~init_ga2d_real proc~append_singlega2d_real append_singlega2d_real interface~append~16->proc~append_singlega2d_real proc~append_arrayga2d_real append_arrayga2d_real interface~append~16->proc~append_arrayga2d_real proc~tem_abort tem_abort proc~tem_reduction_transient_init->proc~tem_abort interface~append~24 append proc~tem_create_varmap->interface~append~24 interface~truncate~15 truncate proc~tem_create_varmap->interface~truncate~15 interface~init~20 init proc~tem_create_varmap->interface~init~20 interface~positionofval~4 positionofval proc~tem_create_varmap->interface~positionofval~4 interface~expand~14 expand proc~append_singlega2d_real->interface~expand~14 proc~append_ga_stringkeyvaluepair_vec append_ga_stringkeyvaluepair_vec interface~append~24->proc~append_ga_stringkeyvaluepair_vec proc~append_ga_stringkeyvaluepair append_ga_stringkeyvaluepair interface~append~24->proc~append_ga_stringkeyvaluepair proc~truncate_da_label truncate_da_label interface~truncate~15->proc~truncate_da_label mpi_abort mpi_abort proc~tem_abort->mpi_abort proc~append_arrayga2d_real->interface~expand~14 proc~init_da_label init_da_label interface~init~20->proc~init_da_label proc~posofval_label posofval_label interface~positionofval~4->proc~posofval_label proc~expand_ga2d_real expand_ga2d_real interface~expand~14->proc~expand_ga2d_real interface~sortedposofval~4 sortedposofval proc~posofval_label->interface~sortedposofval~4 interface~expand~21 expand proc~append_ga_stringkeyvaluepair_vec->interface~expand~21 proc~append_ga_stringkeyvaluepair->interface~expand~21

Contents


Variables

TypeVisibilityAttributesNameInitial
type(tem_varSys_op_data_type), private, pointer:: opData
integer, private :: iVar
integer, private :: iElem
integer, private :: varPos
integer, private :: nDofs_loc
integer, private :: posDepVar
integer, private :: nCompMax
integer, private :: idxMax
integer, private :: nRedVars
type(grw_labelarray_type), private :: redTransVarName
integer, private :: elemPos(tree%nElems)
real(kind=rk), private, allocatable:: input_varRes(:)