tem_BaryOfId Function

public pure function tem_BaryOfId(tree, TreeID) result(bary)

The following function provides the coordinates of the barycenter for a given treeID in the complete mesh.

Arguments

Type IntentOptional Attributes Name
type(treelmesh_type), intent(in) :: tree

mesh information
integer(kind=long_k), intent(in) :: TreeID

input Element ID

Return Value real(kind=rk), (3)

barycenter return value


Calls

proc~~tem_baryofid~~CallsGraph proc~tem_baryofid tem_BaryOfId proc~tem_coordofid tem_CoordOfId proc~tem_baryofid->proc~tem_coordofid proc~tem_elemsizelevel tem_ElemSizeLevel proc~tem_baryofid->proc~tem_elemsizelevel proc~tem_levelof tem_LevelOf proc~tem_coordofid->proc~tem_levelof

Called by

assemble_listswtem_BaryOfId
w
exit_elementw
w
hvs_ascii_dump_point_dataw
w
hvs_asciiSpatial_dump_point_dataw
w
hvs_output_initw
w
spongelayer_box2d_expon_for_treeIDsw
w
spongelayer_box2d_roundCornerPolyn5_for_treeIDsw
w
spongelayer_box2d_roundCornerPolyn6_for_treeIDsw
w
spongelayer_box2d_sharpCornerPolyn5_for_treeIDsw
w
spongelayer_box2d_sharpCornerPolyn6_for_treeIDsw
w
spongelayer_box_expon_for_treeIDsw
w
spongelayer_box_roundCornerPolyn5_for_treeIDsw
w
spongelayer_box_roundCornerPolyn6_for_treeIDsw
w
spongelayer_box_sharpCornerPolyn5_for_treeIDsw
w
spongelayer_box_sharpCornerPolyn6_for_treeIDsw
w
spongelayer_plane_expon_for_treeIDsw
w
spongeLayer_plane_polyn5_for_treeidsw
w
spongeLayer_plane_polyn6_for_treeidsw
w
spongelayer_radial_expon_for_treeIDsw
w
spongeLayer_radial_polyn5_for_treeidsw
w
spongeLayer_radial_polyn6_for_treeidsw
w
tem_build_treeHorizontalDepw
w
tem_calc_vrtxOf_qValw
w
tem_cano_checkNeighw
w
tem_convergence_check_pointw
w
tem_shape_findElemByBCLabelsw
w
tem_spacetime_lua_for_treeIdsw
w
tem_spacetime_lua_vector_for_treeIdsw
w
tem_spatial_lua_for_treeIdsw
w
tem_spatial_lua_vector_for_treeIdsw
w
tem_spatial_parabol2d_for_treeIdsw
w
tem_spatial_parabol3d_for_treeIdsw
w
tem_tIDinfow
w
tem_vrtxCoordOfIdw
w
viscSpongelayer_box2d_for_treeIDsw
w
viscSpongelayer_box_for_treeIDsw
w
viscSpongelayer_plane_for_treeIDsw
w
viscSpongelayer_radial_for_treeIDsw
w

Source Code

  pure function tem_BaryOfId(tree,TreeID) result(bary)
    ! -------------------------------------------------------------------- !
    !> mesh information
    type(treelmesh_type), intent(in) :: tree
    !> input Element ID
    integer(kind=long_k), intent(in) :: TreeID
    !> barycenter return value
    real(kind=rk) :: bary(3)
    ! -------------------------------------------------------------------- !
    integer       :: coord(4) ! spatial index triple for a given ID
    real(kind=rk) :: dx ! size of Element
    ! -------------------------------------------------------------------- !
    coord = tem_CoordOfId(TreeID)
    dx = tem_elemSizeLevel( tree, coord(4) )
    bary = tree%global%origin + (real(coord(:3), kind=rk) + 0.5_rk)*dx

  end function tem_BaryOfId