Changeset 1991 for vendors/IOIPSL/current/src/errioipsl.f90

Timestamp:

2010-07-08T15:39:26+02:00 (14 years ago)

Author:

smasson

Message:

Load working_directory into vendors/IOIPSL/current.

File:

• vendors/IOIPSL/current/src/errioipsl.f90 (modified) (2 diffs)

vendors/IOIPSL/current/src/errioipsl.f90

@@ -1 +1 @@
 MODULE errioipsl
 !-
-!$Id: errioipsl.f90 386 2008-09-04 08:38:48Z bellier $
+!$Id: errioipsl.f90 759 2009-10-22 08:53:27Z bellier $
 !-
 ! This software is governed by the CeCILL license
@@ -80 +80 @@
    ENDIF
    IF ( (plev == 3).AND.lact_mode) THEN
-     STOP 'Fatal error from IOIPSL. See stdout for more details'
+     WRITE(n_l,'("Fatal error from IOIPSL. STOP in ipslerr with code")')
+     STOP 1
    ENDIF
 !---------------------