From 9897294582dcd82fbcb45ba27a7b0efa9220389f Mon Sep 17 00:00:00 2001
From: Sebastian Beyer <sebastian.beyer@awi.de>
Date: Mon, 21 Oct 2024 20:56:35 +0200
Subject: [PATCH] fix MPI_ABORT in oifs context after change to use mpi

---
 src/gen_modules_partitioning.F90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/gen_modules_partitioning.F90 b/src/gen_modules_partitioning.F90
index 2e701e427..aebe82630 100644
--- 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