fix MPI_ABORT in oifs context after change to use mpi

FESOM · Oct 21, 2024 · 9897294 · 9897294
1 parent 0047a67
commit 9897294
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/gen_modules_partitioning.F90 b/src/gen_modules_partitioning.F90
@@ -132,7 +132,7 @@ subroutine par_ex(COMM, mype, abort)       ! finalizes MPI
   !For OpenIFS coupled runs we use the new OASIS nameing scheme (oasis)
   if (present(abort)) then
     if (mype==0) write(*,*) 'Run finished unexpectedly!'
-    call MPI_ABORT(COMM, 1 )
+    call MPI_ABORT(MPI_COMM_WORLD, 1, error)
   else
     call oasis_terminate
   endif