public subroutine sdr_refine_leaf(proto, geometry)
This routine extends the protoTree with max of minlevel or level of
refinement object.
If it is a leaf, check for intersected objects, and keep
on refining accordingly down to the maximum requested level.
When the desired level is reached (no refinement object,
or desired level of intersected refinement object reached, check all
(26) direct neigbors. If there is a neighbor intersected by a boundary
check its refinement level, if it is higher then the current one,
do another refinement step.
Nodes of different colours represent the following:
Solid arrows point from a procedure to one which it calls. Dashed
arrows point from an interface to procedures which implement that interface.
This could include the module procedures in a generic interface or the
implementation in a submodule of an interface in a parent module.
Nodes of different colours represent the following:
Solid arrows point from a procedure to one which it calls. Dashed
arrows point from an interface to procedures which implement that interface.
This could include the module procedures in a generic interface or the
implementation in a submodule of an interface in a parent module.