compute_weight Subroutine

private subroutine compute_weight(weights, nFoundSources, neighDir, targetBary, intp_config, cxDirRK)

This routine computes weights for weighted_average interpolation.

Arguments

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

computed weight

integer, intent(in) :: nFoundSources

Number of source elements found

integer, intent(in) :: neighDir(nFoundSources)

cxDir for found sounce elements

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

child bary relative to parent

type(mus_interpolation_config_type), intent(in) :: intp_config

Interpolation config info

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

cxDir of current source


Calls

proc~~compute_weight~~CallsGraph proc~compute_weight compute_weight proc~tem_abort tem_abort proc~compute_weight->proc~tem_abort

Called by

proc~~compute_weight~~CalledByGraph proc~compute_weight compute_weight proc~mus_intp_update_depfromcoarser mus_intp_update_depFromCoarser proc~mus_intp_update_depfromcoarser->proc~compute_weight proc~mus_construct mus_construct proc~mus_construct->proc~mus_intp_update_depfromcoarser proc~mus_initialize mus_initialize proc~mus_initialize->proc~mus_construct program~mus_harvesting mus_harvesting program~mus_harvesting->proc~mus_construct proc~mus_perform_dynloadbal mus_perform_dynLoadBal proc~mus_perform_dynloadbal->proc~mus_construct none~do_balance do_balance none~do_balance->proc~mus_perform_dynloadbal program~musubi musubi program~musubi->proc~mus_initialize

Contents


Variables

TypeVisibilityAttributesNameInitial
real(kind=rk), private :: scalar_dist
real(kind=rk), private :: distance(3)

absolute distances

real(kind=rk), private :: sumWeight
integer, private :: iSrc
integer, private :: iNeigh