free MPI group

E3SM-Project · Mar 29, 2016 · 5712329 · 5712329
1 parent 238583a
commit 5712329
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/src/clib/pioc.c b/src/clib/pioc.c
@@ -530,6 +530,9 @@ int PIOc_finalize(const int iosysid)
   if(ios->comp_comm != MPI_COMM_NULL){
     MPI_Comm_free(&(ios->comp_comm));
   }
+  if(ios->union_comm != MPI_COMM_NULL){
+    MPI_Comm_free(&(ios->union_comm));
+  }
 
   return pio_delete_iosystem_from_list(iosysid);