Changeset 12803 for NEMO/branches/UKMO/r4.0-HEAD_r12713_dan_test_clems_branch/src/OCE/LBC/lib_mpp.F90

Timestamp:

2020-04-23T10:57:49+02:00 (4 years ago)

Author:

dancopsey

Message:

Merge in NEMO_4.0.1_GC_couple_pkg

File:

• NEMO/branches/UKMO/r4.0-HEAD_r12713_dan_test_clems_branch/src/OCE/LBC/lib_mpp.F90 (modified) (3 diffs)

NEMO/branches/UKMO/r4.0-HEAD_r12713_dan_test_clems_branch/src/OCE/LBC/lib_mpp.F90

@@ -666 +666 @@
 
    SUBROUTINE mppstop( ld_abort ) 
+
+      USE mod_oasis      ! coupling routines
+
       !!----------------------------------------------------------------------
       !!                  ***  routine mppstop  ***
@@ -679 +682 @@
       IF( PRESENT(ld_abort) ) ll_abort = ld_abort
       !
+
+#if defined key_oasis3
+      ! If we're trying to shut down cleanly then we need to consider the fact
+      ! that this could be part of an MPMD configuration - we don't want to
+      ! leave other components deadlocked.
+
+      CALL oasis_abort(nproc,"mppstop","NEMO initiated abort")
+
+
+#else
 #if defined key_mpp_mpi
       IF(ll_abort) THEN
@@ -689 +702 @@
       IF( ll_abort ) STOP 123
       !
+#endif
    END SUBROUTINE mppstop