mus_getSrcElemPosForIntp Subroutine

public subroutine mus_getSrcElemPosForIntp(srcElemPos, weights, nSrcElems, point, elemPos, neigh, baryOfTotal, nElems, nSolve, stencil, nScalars, excludeHalo)


integer, intent(out) :: srcElemPos(:)

position of source element in the levelwise state array

real(kind=rk), intent(out) :: weights(:)

weights for interpolation

integer, intent(out) :: nSrcElems

number of source elements found

real(kind=rk), intent(in) :: point(3)

target point

integer, intent(in) :: elemPos

position of element which contains target point on the levelwise state array

integer, intent(in) :: neigh(:)

neighbor connectivity on the level in which the elemPos of the point is found

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

bary of elements in the total list

integer, intent(in) :: nElems

nElems in the connectivity array

integer, intent(in) :: nSolve

number of elements excluding halos

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

stencil definition

integer, intent(in) :: nScalars

number of scalars in the varSys

logical, intent(in) :: excludeHalo

excludeHalo element for interpolation. True of auxFieldVar. True for state var if reducedComm is False else otherwise. For reducedComm only part of state array is communicated so exclude halo elements for state vars

Called by

proc~~mus_getsrcelemposforintp~~CalledByGraph proc~mus_getsrcelemposforintp mus_getSrcElemPosForIntp proc~mus_statevar_forpoint mus_stateVar_forPoint proc~mus_statevar_forpoint->proc~mus_getsrcelemposforintp proc~mus_auxfieldvar_forpoint mus_auxFieldVar_forPoint proc~mus_auxfieldvar_forpoint->proc~mus_getsrcelemposforintp proc~mus_accessvar_setupindices mus_accessVar_setupIndices proc~mus_accessvar_setupindices->proc~mus_getsrcelemposforintp



integer, private :: iNeigh
integer, private :: neighPos
integer, private :: iSrc
real(kind=rk), private :: bary(3)
real(kind=rk), private :: dist(3)
real(kind=rk), private :: dist_len