assignBCList Subroutine

  1. mus_construction_module.f90
  2. mus_construction_module
  3. assignBCList

private subroutine assignBCList(tree, bc_prop, stencil, globBC)

This routine assigns the BC lists Run over all the elements with the property boundary and check each direction. Assign all common boundaries to the level-wise representation 3rd step in build_BCLists

Arguments

TypeIntentOptionalAttributesName
type(treelmesh_type), intent(in) :: tree

fluid tree from mesh
type(tem_BC_prop_type), intent(in) :: bc_prop

boundary information from mesh
type(tem_stencilHeader_type), intent(in) :: stencil

stencil
type(glob_boundary_type), intent(inout) :: globBC(:)

boundaries for the elements with bnd property set

Calls

proc~~assignbclist~~CallsGraph proc~assignbclist assignBCList interface~append~4 append proc~assignbclist->interface~append~4 proc~tem_levelof tem_LevelOf proc~assignbclist->proc~tem_levelof

Called by

proc~~assignbclist~~CalledByGraph proc~assignbclist assignBCList proc~build_bclists build_BClists proc~build_bclists->proc~assignbclist proc~mus_construct mus_construct proc~mus_construct->proc~build_bclists 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
integer, private :: iElem
integer, private :: iDir
integer, private :: iBnd
integer, private :: iMeshDir
integer(kind=long_k), private :: bID
integer, private :: normal(3)
integer, private :: level
logical, private :: corner_bitmask(stencil%QQN)
logical, private :: bitmask(stencil%QQN)
logical, private :: wasadded
logical, private :: found(bc_prop%nBCtypes)
integer, private :: iElem_qVal
integer, private :: weight(stencil%QQN)
integer, private :: length
integer, private :: posInTree
real(kind=rk), private :: qval(stencil%QQN)
integer, private, allocatable:: nBnds(:)