tem_convertTreeIDtoCube Subroutine

public subroutine tem_convertTreeIDtoCube(cube, tree, TreeID)

This routine converts treeID in given tree to cube

Arguments

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

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

input Element ID

Calls

proc~~tem_converttreeidtocube~~CallsGraph proc~tem_converttreeidtocube tem_convertTreeIDtoCube proc~tem_elemsize tem_ElemSize proc~tem_converttreeidtocube->proc~tem_elemsize proc~tem_endofid tem_endOfId proc~tem_converttreeidtocube->proc~tem_endofid proc~tem_originofid tem_originOfId proc~tem_converttreeidtocube->proc~tem_originofid proc~tem_elemsizelevel tem_ElemSizeLevel proc~tem_elemsize->proc~tem_elemsizelevel proc~tem_levelof tem_LevelOf proc~tem_elemsize->proc~tem_levelof proc~tem_coordofid tem_CoordOfId proc~tem_endofid->proc~tem_coordofid proc~tem_endofid->proc~tem_elemsizelevel proc~tem_originofid->proc~tem_coordofid proc~tem_originofid->proc~tem_elemsizelevel proc~tem_coordofid->proc~tem_levelof

Called by

proc~~tem_converttreeidtocube~~CalledByGraph proc~tem_converttreeidtocube tem_convertTreeIDtoCube proc~tem_cano_initsubtree tem_cano_initSubTree proc~tem_cano_initsubtree->proc~tem_converttreeidtocube proc~tem_shape_subtreefromgeominters tem_shape_subTreeFromGeomInters proc~tem_shape_subtreefromgeominters->proc~tem_converttreeidtocube proc~tem_shape_subtreefromgeominters->proc~tem_cano_initsubtree proc~tem_shape2subtree tem_shape2subTree proc~tem_shape2subtree->proc~tem_shape_subtreefromgeominters proc~tem_create_subtree_of tem_create_subTree_of proc~tem_create_subtree_of->proc~tem_shape2subtree proc~tem_create_subtree_of_st_funlist tem_create_subTree_of_st_funList proc~tem_create_subtree_of_st_funlist->proc~tem_create_subtree_of proc~tem_init_convergence tem_init_convergence proc~tem_init_convergence->proc~tem_create_subtree_of proc~tem_init_tracker_subtree tem_init_tracker_subTree proc~tem_init_tracker_subtree->proc~tem_create_subtree_of proc~tem_write_debugmesh tem_write_debugMesh proc~tem_write_debugmesh->proc~tem_create_subtree_of

Source Code

  subroutine tem_convertTreeIDtoCube(cube, tree, treeID)
    ! --------------------------------------------------------------------------!
    !> mesh information
    type(treelmesh_type), intent(in) :: tree
    !> input Element ID
    integer(kind=long_k), intent(in) :: TreeID
    type(tem_cube_type), intent(out) :: cube !< cube type
    ! --------------------------------------------------------------------------!
    cube%origin = tem_originOfId(tree, treeID)
    cube%endPnt = tem_endOfId(tree, treeID)
    cube%extent = tem_ElemSize(tree, treeID)
    cube%halfwidth = 0.5_rk*cube%extent
    cube%center = cube%origin + cube%halfwidth
  end subroutine tem_convertTreeIDtoCube