Changeset 10407

Timestamp:

2018-12-18T12:12:23+01:00 (4 years ago)

Author:

smasson

Message:

dev_r10164_HPC09_ESIWACE_PREP_MERGE: send back error code, see #2181

Location:

NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE

Files:

• LBC/lib_mpp.F90 (modified) (1 diff)
• nemogcm.F90 (modified) (1 diff)

NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/LBC/lib_mpp.F90

@@ -1856 +1856 @@
       IF( cd1 == 'STOP' ) THEN
          IF(lwp) WRITE(numout,*)  'huge E-R-R-O-R : immediate stop'
-         CALL mppstop()
+         CALL mppstop(ld_force_abort = .true.)
       ENDIF
       !

NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/nemogcm.F90

@@ -238 +238 @@
 #endif
       !
+      IF( nstop == 0 ) THEN   ;   STOP 0
+      ELSE                    ;   STOP 999
+      ENDIF
+      !
    END SUBROUTINE nemo_gcm