Prints information about a treeID to a file unit.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
integer(kind=long_k), | intent(in) | :: | me |
given level to get the size for |
||
type(treelmesh_type), | intent(in) | :: | tree |
Mesh to locate the point in |
||
integer, | intent(in), | optional | :: | nUnit |
the file unit to use for printing the information. |
subroutine tem_tIDinfo( me, tree, nUnit)
! -------------------------------------------------------------------- !
!> given level to get the size for
integer(kind=long_k), intent(in) :: me
!> Mesh to locate the point in
type(treelmesh_type), intent(in) :: tree
!> the file unit to use for printing the information.
integer, intent(in), optional :: nUnit
! -------------------------------------------------------------------- !
integer :: writeUnit, x(4)
! -------------------------------------------------------------------- !
if ( present( nUnit )) then
writeUnit = nUnit
else
writeUnit = output_unit
end if
write(writeUnit,*) ' treeID info ', me
x(:) = tem_coordOfId( me )
write(writeUnit,*) ' level ', x(4)
write(writeUnit,*) ' coord ', x(1:3)
write(writeUnit,*) ' elemSize', tem_elemSize( tree, me )
write(writeUnit,*) ' bary ', tem_baryOfId( tree, me )
end subroutine tem_tIDinfo