flood_periphery_diagonal Subroutine

private subroutine flood_periphery_diagonal(proto, node_pos, treeID, qVal, iColor)

This routine checks for qVal of the periphery and floods if qVal < 0 and the node in that direction is fluid and not intersected by boundary

Arguments

TypeIntentOptionalAttributesName
type(sdr_protoTree_type), intent(inout) :: proto

The proto tree description with all the data enabling the flooding.

integer, intent(in) :: node_pos

node position in protoTree

integer(kind=long_k), intent(in) :: treeID

treeID of current node

real(kind=rk) :: qVal(:)

qVal for all 26 neighbor directions, should be calculated already

integer, intent(in) :: iColor

Color to do the flooding in


Calls

proc~~flood_periphery_diagonal~~CallsGraph proc~flood_periphery_diagonal flood_periphery_diagonal proc~sdr_neighbor_in_proto sdr_neighbor_in_proto proc~flood_periphery_diagonal->proc~sdr_neighbor_in_proto proc~sdr_mark_floodnode sdr_mark_floodNode proc~flood_periphery_diagonal->proc~sdr_mark_floodnode proc~tem_coordofid tem_CoordOfId proc~flood_periphery_diagonal->proc~tem_coordofid interface~positionofval~3 positionofval proc~sdr_neighbor_in_proto->interface~positionofval~3 proc~tem_idofcoord tem_IdOfCoord proc~sdr_neighbor_in_proto->proc~tem_idofcoord interface~tem_parentof tem_ParentOf proc~sdr_neighbor_in_proto->interface~tem_parentof

Called by

proc~~flood_periphery_diagonal~~CalledByGraph proc~flood_periphery_diagonal flood_periphery_diagonal proc~flood_periphery flood_periphery proc~flood_periphery->proc~flood_periphery_diagonal proc~sdr_flood_tree sdr_flood_tree proc~sdr_flood_tree->proc~flood_periphery program~seeder seeder program~seeder->proc~sdr_flood_tree

Contents


Variables

TypeVisibilityAttributesNameInitial
integer, private :: coord(4)
integer, private :: neighbor_pos
integer, private :: neighbor_level
integer, private :: iDir
integer, private :: col_int
integer, private :: col_bit
integer, private :: myColor
integer, private :: neighColor