tem_calc_vrtx_coord Subroutine

  1. tem_vrtx_module.f90
  2. tem_vrtx_module
  3. tem_calc_vrtx_coord

public subroutine tem_calc_vrtx_coord(tree, vrtx, subTree, boundary, useQVal)

Run over all 8 vertices for each element in the treeID list, calculate its coordinates and add its position to the map.

Arguments

TypeIntentOptionalAttributesName
type(treelmesh_type), intent(in) :: tree

fluid mesh
type(tem_vrtx_type), intent(inout) :: vrtx

Vertex data
type(tem_subTree_type), intent(in), optional :: subTree

optional subTree information
type(tem_BC_prop_type), intent(in), optional :: boundary

boundary information incl. q-Values
logical, intent(in), optional :: useQVal

use the qValue information?

Calls

proc~~tem_calc_vrtx_coord~~CallsGraph proc~tem_calc_vrtx_coord tem_calc_vrtx_coord interface~append~22 append proc~tem_calc_vrtx_coord->interface~append~22 proc~tem_unify_vrtx tem_unify_vrtx proc~tem_calc_vrtx_coord->proc~tem_unify_vrtx proc~tem_init_vrtx_prop tem_init_vrtx_prop proc~tem_calc_vrtx_coord->proc~tem_init_vrtx_prop proc~tem_calc_vrtxof_qval tem_calc_vrtxOf_qVal proc~tem_calc_vrtx_coord->proc~tem_calc_vrtxof_qval proc~tem_idofcoord tem_IdOfCoord proc~tem_calc_vrtx_coord->proc~tem_idofcoord proc~tem_invertrealrkarray tem_invertRealRkArray proc~tem_calc_vrtx_coord->proc~tem_invertrealrkarray proc~qsort_vrtx qsort_vrtx proc~tem_calc_vrtx_coord->proc~qsort_vrtx proc~tem_coordofid tem_CoordOfId proc~tem_calc_vrtx_coord->proc~tem_coordofid proc~tem_treeidfrom_subtree tem_treeIDfrom_subTree proc~tem_calc_vrtx_coord->proc~tem_treeidfrom_subtree proc~tem_calc_vrtx_coord_noqval tem_calc_vrtx_coord_noqval proc~tem_calc_vrtx_coord->proc~tem_calc_vrtx_coord_noqval proc~tem_appenddp1darray tem_appendDp1dArray interface~append~22->proc~tem_appenddp1darray proc~tem_appenddp2darray tem_appendDp2dArray interface~append~22->proc~tem_appenddp2darray proc~tem_appendsp2darray tem_appendSp2dArray interface~append~22->proc~tem_appendsp2darray proc~tem_appendlonglist tem_appendLongList interface~append~22->proc~tem_appendlonglist proc~tem_appendint2darray tem_appendInt2dArray interface~append~22->proc~tem_appendint2darray proc~tem_appendintlong2darray tem_appendIntLong2dArray interface~append~22->proc~tem_appendintlong2darray proc~tem_appendintlong1darray tem_appendIntLong1dArray interface~append~22->proc~tem_appendintlong1darray proc~tem_appendintlist tem_appendIntList interface~append~22->proc~tem_appendintlist proc~tem_appendsp1darray tem_appendSp1dArray interface~append~22->proc~tem_appendsp1darray proc~tem_appendintlongarrayto1darray tem_appendIntLongArrayTo1dArray interface~append~22->proc~tem_appendintlongarrayto1darray proc~tem_appendint1darray tem_appendInt1dArray interface~append~22->proc~tem_appendint1darray proc~tem_unify_vrtx->interface~append~22 interface~init~15 init proc~tem_unify_vrtx->interface~init~15 proc~tem_posofid tem_PosOfId proc~tem_unify_vrtx->proc~tem_posofid proc~tem_originofid tem_originOfId proc~tem_unify_vrtx->proc~tem_originofid proc~tem_posoflong tem_posOfLong proc~tem_unify_vrtx->proc~tem_posoflong interface~destroy~15 destroy proc~tem_unify_vrtx->interface~destroy~15 proc~tem_init_vrtx_prop->interface~init~15 proc~tem_elemsize tem_ElemSize proc~tem_calc_vrtxof_qval->proc~tem_elemsize proc~tem_baryofid tem_BaryOfId proc~tem_calc_vrtxof_qval->proc~tem_baryofid proc~qsort_vrtx->proc~qsort_vrtx proc~partition partition proc~qsort_vrtx->proc~partition proc~tem_levelof tem_LevelOf proc~tem_coordofid->proc~tem_levelof proc~tem_calc_vrtx_coord_noqval->proc~tem_init_vrtx_prop proc~tem_calc_vrtx_coord_noqval->proc~tem_idofcoord proc~tem_calc_vrtx_coord_noqval->proc~tem_coordofid proc~tem_calc_vrtx_coord_noqval->proc~tem_treeidfrom_subtree

Called by

proc~~tem_calc_vrtx_coord~~CalledByGraph proc~tem_calc_vrtx_coord tem_calc_vrtx_coord proc~hvs_output_init hvs_output_init proc~hvs_output_init->proc~tem_calc_vrtx_coord proc~tem_init_tracker tem_init_tracker proc~tem_init_tracker->proc~hvs_output_init

Contents

Variables


Variables

TypeVisibilityAttributesNameInitial
integer, private :: iVrtx
integer, private :: iElem
integer, private :: local_nElems
integer(kind=long_k), private, allocatable:: vrtxTreeID(:)
integer(kind=long_k), private, allocatable:: sortedVrtxTreeID(:)
integer(kind=long_k), private :: vrtxID
integer, private :: elemCoord(4)
integer, private :: locVrtx(4)
integer, private :: vrtxAnchor(4)
integer, private :: iLevel
type(treelmesh_type), private :: bigTree
type(tem_property_type), private, pointer:: tree_property(:)=> NULL()
integer(kind=long_k), private, allocatable:: treeID(:)
integer, private :: globCounter
integer, private :: uniqueCounter
integer, private :: nElemsQVal
integer, private :: iBCElem
real(kind=rk), private :: coord(3)
logical, private :: local_useQVal