sdr_append_distanceRefineObject Subroutine

public subroutine sdr_append_distanceRefineObject(coord, dx, iLevel, geometry, intersected_first, intersected_last, intersected_object)

This routine created sphere objects and new attribute and extend a list of spatial objects if node intersected boundary has distance refine.

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: coord(4)

Coordinate of current node
real(kind=rk), intent(in) :: dx
integer, intent(in) :: iLevel

Current node level
type(sdr_geometry_type), intent(inout) :: geometry

type which contains all geometry object infos
integer, intent(in) :: intersected_first

This node's first position in intersected_object
integer, intent(in) :: intersected_last

This node's last position in intersected_object
type(grw_intarray_type), intent(in) :: intersected_object

Growing array of intersected_objects

Calls

proc~~sdr_append_distancerefineobject~~CallsGraph proc~sdr_append_distancerefineobject sdr_append_distanceRefineObject append append proc~sdr_append_distancerefineobject->append kindpos kindpos proc~sdr_append_distancerefineobject->kindpos uni_name uni_name proc~sdr_append_distancerefineobject->uni_name

Called by

proc~~sdr_append_distancerefineobject~~CalledByGraph proc~sdr_append_distancerefineobject sdr_append_distanceRefineObject proc~sdr_build_prototree sdr_build_protoTree proc~sdr_build_prototree->proc~sdr_append_distancerefineobject program~seeder seeder program~seeder->proc~sdr_build_prototree