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

Type IntentOptional Attributes Name
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 sdr_mark_floodnode sdr_mark_floodnode proc~flood_periphery_diagonal->sdr_mark_floodnode tem_CoordOfId tem_CoordOfId proc~flood_periphery_diagonal->tem_CoordOfId val val proc~flood_periphery_diagonal->val positionofval positionofval proc~sdr_neighbor_in_proto->positionofval tem_IdOfCoord tem_IdOfCoord proc~sdr_neighbor_in_proto->tem_IdOfCoord tem_ParentOf tem_ParentOf proc~sdr_neighbor_in_proto->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