Changeset 759 for IOIPSL


Ignore:
Timestamp:
10/22/09 10:53:27 (14 years ago)
Author:
bellier
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • IOIPSL/trunk/src/errioipsl.f90

    r386 r759  
    8080   ENDIF 
    8181   IF ( (plev == 3).AND.lact_mode) THEN 
    82      STOP 'Fatal error from IOIPSL. See stdout for more details' 
     82     WRITE(n_l,'("Fatal error from IOIPSL. STOP in ipslerr with code")') 
     83     STOP 1 
    8384   ENDIF 
    8485!--------------------- 
Note: See TracChangeset for help on using the changeset viewer.