tem_updateTree_properties Subroutine

public subroutine tem_updateTree_properties(levelDesc, tree)

This routine updates the property bits in the tree with those of the level descriptor.

Arguments

Type IntentOptional Attributes Name
type(tem_levelDesc_type), intent(in) :: levelDesc

level descriptor
type(treelmesh_type), intent(inout) :: tree

global tree

Source Code

  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