tem_unify_surfaceData Subroutine

  1. tem_surfaceData_module.f90
  2. tem_surfaceData_module
  3. tem_unify_surfaceData

private subroutine tem_unify_surfaceData(me, all_pointCoords)

This subroutine makes the temporary of pointCoordinates unique, updates the triangle connectivity and sets the actual pointCoordinates to be the barycenters of the elements on the highest refinement level possible.

Arguments

TypeIntentOptionalAttributesName
type(tem_surfData_type), intent(inout) :: me

datatype to store the surface information
real(kind=rk), intent(in) :: all_pointCoords(:,:)

tmp point coordinates to be unified and stored in me

Calls

proc~~tem_unify_surfacedata~~CallsGraph proc~tem_unify_surfacedata tem_unify_surfaceData interface~placeat~23 placeat proc~tem_unify_surfacedata->interface~placeat~23 proc~tem_idofcoord tem_IdOfCoord proc~tem_unify_surfacedata->proc~tem_idofcoord proc~tem_coordofreal tem_CoordOfReal proc~tem_unify_surfacedata->proc~tem_coordofreal interface~destroy~15 destroy proc~tem_unify_surfacedata->interface~destroy~15 interface~init~15 init proc~tem_unify_surfacedata->interface~init~15 interface~append~16 append proc~tem_unify_surfacedata->interface~append~16 proc~placeat_arrayga2d_real placeat_arrayga2d_real interface~placeat~23->proc~placeat_arrayga2d_real proc~placeat_singlega2d_real placeat_singlega2d_real interface~placeat~23->proc~placeat_singlega2d_real proc~destroy_ga2d_real destroy_ga2d_real interface~destroy~15->proc~destroy_ga2d_real proc~init_ga2d_real init_ga2d_real interface~init~15->proc~init_ga2d_real proc~append_arrayga2d_real append_arrayga2d_real interface~append~16->proc~append_arrayga2d_real proc~append_singlega2d_real append_singlega2d_real interface~append~16->proc~append_singlega2d_real interface~expand~14 expand proc~placeat_arrayga2d_real->interface~expand~14 proc~append_arrayga2d_real->interface~expand~14 proc~append_singlega2d_real->interface~expand~14 proc~placeat_singlega2d_real->interface~expand~14 proc~expand_ga2d_real expand_ga2d_real interface~expand~14->proc~expand_ga2d_real

Called by

proc~~tem_unify_surfacedata~~CalledByGraph proc~tem_unify_surfacedata tem_unify_surfaceData proc~tem_readandunify_surfdata tem_readAndUnify_surfData proc~tem_readandunify_surfdata->proc~tem_unify_surfacedata

Contents

Variables


Variables

TypeVisibilityAttributesNameInitial
integer, private :: map2unique(size(all_pointCoords,2))
type(grw_real2darray_type), private :: pointCoords
type(dyn_longarray_type), private :: uniqueTreeIDs
type(grw_intarray_type), private :: grw_counter
integer, private :: tmp_coord(4)
integer(kind=long_k), private :: treeID
integer, private :: pos
logical, private :: wasAdded
type(treelmesh_type), private :: loc_tree
real(kind=rk), private :: minX
real(kind=rk), private :: minY
real(kind=rk), private :: minZ
real(kind=rk), private :: maxX
real(kind=rk), private :: maxY
real(kind=rk), private :: maxZ
integer, private :: iCoord
integer, private :: iTria