Merge pull request ESMCI#1300 from wkliao/patch-2

free an MPI communicator
rfiorella · May 21, 2018 · cfd66c6 · cfd66c6
2 parents a018098 + e8bd1b2
commit cfd66c6
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/tests/performance/pioperformance.F90 b/tests/performance/pioperformance.F90
@@ -510,6 +510,8 @@ subroutine pioperformancetest(filename, piotypes, mype, npe_base, &
        deallocate(rfld_in)
     endif
 
+    call MPI_Comm_free(comm, ierr)
+
   end subroutine pioperformancetest
 
   subroutine init_ideal_dof(doftype, mype, npe, ndims, gdims, compmap, varsize)