tem_calc_vrtxOf_qVal Function

private function tem_calc_vrtxOf_qVal(treeID, tree, qVal, iVrtx) result(coord)

This subroutine calculates the vertex coordinate for a given element depending on the treeID, the global tree, the q-Value and iVrtx

Arguments

Type IntentOptional Attributes Name
integer(kind=long_k), intent(in) :: treeID
type(treelmesh_type), intent(in) :: tree
real(kind=rk), intent(in) :: qVal
integer, intent(in) :: iVrtx

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


Calls

proc~~tem_calc_vrtxof_qval~~CallsGraph proc~tem_calc_vrtxof_qval tem_calc_vrtxOf_qVal proc~tem_baryofid tem_BaryOfId proc~tem_calc_vrtxof_qval->proc~tem_baryofid proc~tem_elemsize tem_ElemSize proc~tem_calc_vrtxof_qval->proc~tem_elemsize proc~tem_coordofid tem_CoordOfId proc~tem_baryofid->proc~tem_coordofid proc~tem_elemsizelevel tem_ElemSizeLevel proc~tem_baryofid->proc~tem_elemsizelevel proc~tem_elemsize->proc~tem_elemsizelevel proc~tem_levelof tem_LevelOf proc~tem_elemsize->proc~tem_levelof proc~tem_coordofid->proc~tem_levelof

Called by

proc~~tem_calc_vrtxof_qval~~CalledByGraph proc~tem_calc_vrtxof_qval tem_calc_vrtxOf_qVal proc~tem_calc_vrtx_coord tem_calc_vrtx_coord proc~tem_calc_vrtx_coord->proc~tem_calc_vrtxof_qval 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

Source Code

tem_calc_vrtxOf_qVal

Source Code

  function tem_calc_vrtxOf_qVal( treeID, tree, qVal, iVrtx) result( coord )
    ! ---------------------------------------------------------------------------
    integer(kind=long_k), intent(in) :: treeID
    type(treelmesh_type), intent(in) :: tree
    real(kind=rk), intent(in) :: qVal
    integer, intent(in) :: iVrtx
    real(kind=rk) :: coord(3)
    ! ---------------------------------------------------------------------------
    real(kind=rk) :: bary(3)
    real(kind=rk) :: dx
    ! ---------------------------------------------------------------------------

    ! get the barycenter of the current treeID
    bary = tem_BaryOfId( tree, treeID )
    ! get the length of the element
    dx = tem_ElemSize( tree, treeID )

    coord = real(qOffset( vrtxMap(5, iVrtx), : ), kind=rk)*qVal*dx + bary

  end function tem_calc_vrtxOf_qVal