Changeset 80 for trunk/NEMOGCM/NEMO/OPA_SRC/LBC

Timestamp:

07/23/13 01:00:46 (11 years ago)

Author:

smasson

Message:

force model to stop properly in case of error found...

File:

• trunk/NEMOGCM/NEMO/OPA_SRC/LBC/lib_mpp.F90 (modified) (1 diff)

trunk/NEMOGCM/NEMO/OPA_SRC/LBC/lib_mpp.F90

@@ -2882 +2882 @@
       IF( numevo_ice /= -1 )   CALL FLUSH(numevo_ice)
       !
-      IF( cd1 == 'STOP' ) THEN
-         IF(lwp) WRITE(numout,*)  'huge E-R-R-O-R : immediate stop'
-         CALL mppstop()
-      ENDIF
+!!$      IF( cd1 == 'STOP' ) THEN
+!!$         IF(lwp) WRITE(numout,*)  'huge E-R-R-O-R : immediate stop'
+!!$         CALL mppstop()
+!!$      ENDIF
       !
    END SUBROUTINE ctl_stop