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

Calls

proc~~tem_destroy_subtree~~CallsGraph proc~tem_destroy_subtree tem_destroy_subTree mpi_comm_free mpi_comm_free proc~tem_destroy_subtree->mpi_comm_free

Called by

proc~~tem_destroy_subtree~~CalledByGraph proc~tem_destroy_subtree tem_destroy_subTree proc~tem_destroy_subtree_of_st_funlist tem_destroy_subTree_of_st_funList proc~tem_destroy_subtree_of_st_funlist->proc~tem_destroy_subtree

Contents

Source Code

tem_destroy_subTree

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