Changeset 759

Timestamp:

10/22/09 10:53:27 (15 years ago)

Author:

bellier

Message:

Added a return code in errioipsl(ipslerr) to be trapped by scripts

File:

• IOIPSL/trunk/src/errioipsl.f90 (modified) (1 diff)

IOIPSL/trunk/src/errioipsl.f90

@@ -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
 !---------------------