fillArbiFinerGhostsFromMe_quad2D Subroutine

public subroutine fillArbiFinerGhostsFromMe_quad2D(method, tLevelDesc, level, stencil, sVal, tVal, nTargets, targetList, nScalars)

Interpolate auxiliary field from coarse source to fine target

This subroutine's interface must match the abstract interface definition intpRoutine_arbitraryVal in intp/mus_interpolate_header_module.f90 in order to be callable via do_intpArbiVal function pointer.


class(mus_interpolation_method_type), intent(inout) :: method
type(tem_levelDesc_type), intent(in) :: tLevelDesc

level descriptor on target level

integer, intent(in) :: level

my refinement level

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

stencil header

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

State vector of SOURCE FLUID elements

real(kind=rk), intent(inout) :: tVal(:)

State vector of TARGET GHOST elements

integer, intent(in) :: nTargets

List of target elements ( their position in depSource list )

integer, intent(in) :: targetList(nTargets)
integer, intent(in) :: nScalars

number of scalars to interpolate


proc~~fillarbifinerghostsfromme_quad2d~~CallsGraph proc~fillarbifinerghostsfromme_quad2d fillArbiFinerGhostsFromMe_quad2D proc~mus_interpolate_quad2d_leastsq mus_interpolate_quad2D_leastSq proc~fillarbifinerghostsfromme_quad2d->proc~mus_interpolate_quad2d_leastsq



integer, private :: sourceLevel
integer, private :: sourceElem
integer, private :: targetLevel
integer, private :: targetElem
integer, private :: iElem
integer, private :: indElem
integer, private :: iSourceElem
integer, private :: nSourceElems
integer, private :: posInIntpMatLSF
real(kind=rk), private :: tArbi(nScalars)
real(kind=rk), private :: sArbi(nScalars,stencil%QQ)