This routine loops over all intersected with geoemtry nodes and fluidify some node according to the following rule:\n 1. one of its link does noe intersect with any geometry that requires qVal 2. it has fluid neighbor on that direction. i.e. it is wet in that side. Jiaxing Qi

HK: works for single color only right now! (qvalues are only computed for first color, need to think about what to do for multiple colors.)

Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|

type(sdr_protoTree_type), | intent(inout) | :: | proto | The proto tree description with all the data enabling the flooding. |
||

type(sdr_geometry_type), | intent(in) | :: | geometry | Description of geometric objects. |
||

type(treelmesh_type), | intent(in) | :: | meshUniverse | treelmesh contains bounding cube info |

Type | Visibility | Attributes | Name | Initial | |||
---|---|---|---|---|---|---|---|

integer, | private | :: | iNode | ||||

integer, | private | :: | iDir | ||||

integer, | private | :: | iSide | ||||

integer, | private | :: | iLink | ||||

integer, | private | :: | wetFace | ||||

integer, | private | :: | wetFaceBit_pos | ||||

integer(kind=long_k), | private | :: | treeID | ||||

real(kind=rk), | private | :: | qVal(1:qQQQ) | qVal for 6 faces |
|||

real(kind=rk), | private | :: | bary(3) | ||||

real(kind=rk), | private | :: | dx | ||||

integer, | private | :: | oldFlood | ||||

integer, | private | :: | myColor | ||||

integer, | private | :: | col_int | ||||

integer, | private | :: | col_bit | ||||

integer, | private | :: | iColor | ||||

integer, | private | :: | nodeprops | ||||

integer, | private | :: | proplength |