Changeset 2078


Ignore:
Timestamp:
06/03/13 10:55:43 (12 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/tags/v2_2_2/src/errioipsl.f90

    r1376 r2078  
    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.