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

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