Changeset 13311 for NEMO/branches/UKMO/NEMO_4.0.1_NGMS_couple_pkg/src/OCE/LBC/lib_mpp.F90

Timestamp:

2020-07-16T15:27:24+02:00 (4 years ago)

Author:

frrh

Message:

Save dev changes for concurrent LFRIC + GO8 running

File:

• NEMO/branches/UKMO/NEMO_4.0.1_NGMS_couple_pkg/src/OCE/LBC/lib_mpp.F90 (modified) (1 diff)

NEMO/branches/UKMO/NEMO_4.0.1_NGMS_couple_pkg/src/OCE/LBC/lib_mpp.F90

@@ -686 +686 @@
       ! leave other components deadlocked.
 
-      CALL oasis_abort(nproc,"mppstop","NEMO initiated abort")
+! RSRH No! 
+      IF(ll_abort) THEN
+         !CALL mpi_abort( MPI_COMM_WORLD )
+         CALL oasis_abort(nproc,"mppstop","NEMO initiated abort")
+      ELSE
+         CALL mppsync
+         CALL mpi_finalize( info )
+      ENDIF
+      IF( ll_abort ) STOP 123