tem_destroy_subTree Subroutine

public subroutine tem_destroy_subTree(me)

This subroutine frees the resources used for a subtree.

Arguments

Type IntentOptional Attributes Name
type(tem_subTree_type), intent(inout) :: me

subTree of glob_tree

Source Code

  subroutine tem_destroy_subTree( me )
    ! -------------------------------------------------------------------- !
    !> subTree of glob_tree
    type(tem_subTree_type), intent(inout) :: me
    ! -------------------------------------------------------------------- !
    integer :: iError
    ! -------------------------------------------------------------------- !

    ! deallocate the lists
    if (allocated(me%treeID)) deallocate(me%treeID)
    if (allocated(me%map2global)) deallocate(me%map2global)
    if (allocated(me%ElemPropertyBits)) deallocate(me%ElemPropertyBits)
    if (me%created_new_comm) then
      call MPI_Comm_free(me%global%comm, iError)
    end if
    me%created_new_comm = .false.
    me%useLocalMesh = .False.
    !me%useGlobalMesh = .False.

  end subroutine tem_destroy_subTree