setFieldBCNeigh Subroutine

private subroutine setFieldBCNeigh(fieldBC, globBC, levelDesc, minLevel, maxLevel)

This routine sets field BC neigh array with position of neighbor element in the inward normal direction of boundary in the levelwise list. if valid 1st neighbor does not exist return current element position. if valid higher order neighbor does not exist return last valid neighbor

Arguments

TypeIntentOptionalAttributesName
type(boundary_type), intent(inout) :: fieldBC

field boundary with boundary neighbor info

type(glob_boundary_type), intent(in) :: globBC

boundaries for the elements with bnd property set

type(tem_levelDesc_type), intent(in) :: levelDesc(minLevel:maxLevel)

Level descriptor

integer, intent(in) :: minLevel

Level range

integer, intent(in) :: maxLevel

Calls

proc~~setfieldbcneigh~~CallsGraph proc~setfieldbcneigh setFieldBCNeigh proc~tem_coordofid tem_CoordOfId proc~setfieldbcneigh->proc~tem_coordofid proc~tem_idofcoord tem_IdOfCoord proc~setfieldbcneigh->proc~tem_idofcoord proc~tem_treeidintotal tem_treeIDinTotal proc~setfieldbcneigh->proc~tem_treeidintotal proc~tem_firstidatlevel tem_FirstIdAtLevel proc~setfieldbcneigh->proc~tem_firstidatlevel

Called by

proc~~setfieldbcneigh~~CalledByGraph proc~setfieldbcneigh setFieldBCNeigh proc~finalize_bclist finalize_BClist proc~finalize_bclist->proc~setfieldbcneigh proc~mus_construct mus_construct proc~mus_construct->proc~finalize_bclist proc~mus_initialize mus_initialize proc~mus_initialize->proc~mus_construct proc~mus_perform_dynloadbal mus_perform_dynLoadBal proc~mus_perform_dynloadbal->proc~mus_construct program~mus_harvesting mus_harvesting program~mus_harvesting->proc~mus_construct 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 :: iElem
integer, private :: iLevel
integer, private :: iNeigh
integer, private :: x(4)
integer, private :: neighVal
integer, private :: normal(3)
integer, private :: posInNghElems
integer, private :: stencilPos
integer(kind=long_k), private :: tOffset
integer(kind=long_k), private :: neighID
integer(kind=long_k), private :: globpos
integer(kind=long_k), private :: treeID