Free_DomainDecomposition_t Subroutine

  1. SELF_DomainDecomposition_t.f90
  2. SELF_DomainDecomposition_t
  3. Free_DomainDecomposition_t

public subroutine Free_DomainDecomposition_t(this)

Arguments

TypeIntentOptionalAttributesName
class(DomainDecomposition_t), intent(inout) :: this

Calls

proc~~free_domaindecomposition_t~~CallsGraph proc~free_domaindecomposition_t Free_DomainDecomposition_t mpi_finalize mpi_finalize proc~free_domaindecomposition_t->mpi_finalize

Contents

Source Code

Free_DomainDecomposition_t

Source Code

  subroutine Free_DomainDecomposition_t(this)
    implicit none
    class(DomainDecomposition_t),intent(inout) :: this
    ! Local
    integer :: ierror

    if(associated(this%offSetElem)) then
      deallocate(this%offSetElem)
    endif
    if(associated(this%elemToRank)) then
      deallocate(this%elemToRank)
    endif

    if(allocated(this%requests)) deallocate(this%requests)
    if(allocated(this%stats)) deallocate(this%stats)

    !if(this%mpiEnabled) then
    print*,__FILE__," : Rank ",this%rankId+1,"/",this%nRanks," checking out."
    call MPI_FINALIZE(ierror)
    !endif

  endsubroutine Free_DomainDecomposition_t