This routine updates the property bits in the tree with those of the level descriptor.
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| type(tem_levelDesc_type), | intent(in) | :: | levelDesc |
level descriptor |
||
| type(treelmesh_type), | intent(inout) | :: | tree |
global tree |
subroutine tem_updateTree_properties( levelDesc, tree )
! ---------------------------------------------------------------------------
!> level descriptor
type(tem_levelDesc_type), intent(in) :: levelDesc
!> global tree
type(treelmesh_type), intent(inout) :: tree
! ---------------------------------------------------------------------------
! counter
integer :: iElem
! ---------------------------------------------------------------------------
do iElem = 1, levelDesc%elem%nElems( eT_fluid )
if( tree%ElemPropertyBits( levelDesc%pntTID(iElem)) /= &
& levelDesc%property( iElem ))then
tree%ElemPropertyBits( levelDesc%pntTID( iElem )) = &
& levelDesc%property( iElem )
! set the global mesh changed tag to be true such that the mesh is
! dumped
! @todo: why set meshchange here?
tree%global%meshChange = .true.
end if
end do
end subroutine tem_updateTree_properties