Changeset 3374


Ignore:
Timestamp:
09/08/17 13:33:14 (6 years ago)
Author:
jgipsl
Message:

Changed OR into IOR.
See ticket ​https://forge.ipsl.jussieu.fr/orchidee/ticket/354

File:
1 edited

Legend:

Unmodified
Added
Removed

  • IOIPSL/trunk/src/restcom.f90

    r3190 r3374  
    852852!- we will not even call restopenout 
    853853!- 
    854   iret = NF90_CREATE(fname,cmode=or(NF90_NOCLOBBER,NF90_NETCDF4),ncid=ncfid) 
     854  iret = NF90_CREATE(fname,cmode=IOR(NF90_NOCLOBBER,NF90_NETCDF4),ncid=ncfid) 
    855855  IF (iret == -35) THEN 
    856856    CALL ipslerr (3,'restopenout',& 
Note: See TracChangeset for help on using the changeset viewer.