compute_weight Subroutine

  1. mus_interpolate_module.f90
  2. mus_interpolate_module
  3. compute_weight

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


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