Changeset 2079 for IOIPSL


Ignore:
Timestamp:
06/03/13 11:14:13 (11 years ago)
Author:
jgipsl
Message:

Workaround for ada :
STOP follow by a character string do not work with compilor ifort 12.1.0. Why is not clear.

File:
1 edited

Legend:

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

    r1376 r2079  
    177177   ENDIF 
    178178   IF (plev == 3) THEN 
    179      STOP 'Fatal error from IOIPSL. See stdout for more details' 
     179     WRITE(ipslout,'("Fatal error from IOIPSL. See stdout for more details")') 
     180     STOP 1  
    180181   ENDIF 
    181182!--------------------- 
Note: See TracChangeset for help on using the changeset viewer.