sdr_append_distanceRefineObject Subroutine

  1. sdr_geometry_module.f90
  2. sdr_geometry_module
  3. sdr_append_distanceRefineObject

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

TypeIntentOptionalAttributesName
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 interface~append~11 append proc~sdr_append_distancerefineobject->interface~append~11

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

Contents

Variables


Variables

TypeVisibilityAttributesNameInitial
type(tem_sphere_type), public :: loc_sphere
type(sdr_spatialObj_type), public :: spatialObj
type(sdr_attribute_type), public :: attribute
integer, public :: iDistRefine
integer, public :: iObject
integer, public :: distRef_first
integer, public :: distRef_last
integer, public :: obj_pos
integer, public :: attr_pos
integer, public :: uni_pos
logical, public :: wasAdded
logical, public :: attrChecked(geometry%attribute%dynArray%nVals)