mus_setupIndices_forSrc Subroutine

private subroutine mus_setupIndices_forSrc(source, varSys, nSolve, bary, iLevel, tree)

This routines does setup indices for given source within a field or global. Index are stored for points which source term is active

Arguments

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

Source term to fill in

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

global variable system

integer, intent(in) :: nSolve

Number of elements to apply source term on this level

real(kind=rk), intent(in) :: bary(:,:)

Space coordinates to apply source terms

integer, intent(in) :: iLevel

Current level

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

global treelm mesh


Called by

proc~~mus_setupindices_forsrc~~CalledByGraph proc~mus_setupindices_forsrc mus_setupIndices_forSrc proc~mus_init_sourceterms mus_init_sourceTerms proc~mus_init_sourceterms->proc~mus_setupindices_forsrc proc~mus_init_aux mus_init_aux proc~mus_init_aux->proc~mus_init_sourceterms proc~mus_reset_aux mus_reset_aux proc~mus_reset_aux->proc~mus_init_sourceterms proc~mus_initialize mus_initialize proc~mus_initialize->proc~mus_init_aux proc~mus_perform_dynloadbal mus_perform_dynLoadBal proc~mus_perform_dynloadbal->proc~mus_reset_aux program~musubi musubi program~musubi->proc~mus_initialize none~do_balance do_balance none~do_balance->proc~mus_perform_dynloadbal

Contents


Variables

TypeVisibilityAttributesNameInitial
integer, private :: iVar
integer, private :: iElem
integer, private :: counter
integer, private :: src_nElems
integer, private :: nComps
integer, private :: data_varPos
integer, private, allocatable:: idx(:)
integer(kind=long_k), private :: nElems_var(source%varDict%nVals)