subroutine Free_DomainDecomposition(this)
implicit none
class(DomainDecomposition),intent(inout) :: this
! Local
integer :: ierror
if(associated(this%offSetElem)) then
deallocate(this%offSetElem)
endif
if(associated(this%elemToRank)) then
deallocate(this%elemToRank)
call gpuCheck(hipFree(this%elemToRank_gpu))
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