Ignore:
Timestamp:
Jan 28, 2021, 4:02:09 PM (4 years ago)
Author:
lguez
Message:

Sync latest trunk changes to Ocean_skin

Location:
LMDZ6/branches/Ocean_skin
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • LMDZ6/branches/Ocean_skin

  • LMDZ6/branches/Ocean_skin/libf/dynphy_lonlat/phylmd/limit_netcdf.F90

    r3380 r3811  
    7474                  NF90_DEF_DIM, NF90_DEF_VAR, NF90_PUT_VAR, NF90_PUT_ATT,      &
    7575                  NF90_NOERR,   NF90_NOWRITE, NF90_DOUBLE,  NF90_GLOBAL,       &
    76                   NF90_CLOBBER, NF90_ENDDEF,  NF90_UNLIMITED, NF90_FLOAT
     76                  NF90_CLOBBER, NF90_ENDDEF,  NF90_UNLIMITED, NF90_FLOAT,      &
     77                  NF90_64BIT_OFFSET
    7778  USE inter_barxy_m,      ONLY: inter_barxy
    7879  USE netcdf95,           ONLY: nf95_def_var, nf95_put_att, nf95_put_var
     
    228229
    229230  !--- File creation
    230   CALL ncerr(NF90_CREATE(fnam,NF90_CLOBBER,nid),fnam)
     231  CALL ncerr(NF90_CREATE(fnam,IOR(NF90_CLOBBER,NF90_64BIT_OFFSET),nid),fnam)
    231232  CALL ncerr(NF90_PUT_ATT(nid,NF90_GLOBAL,"title","Fichier conditions aux limites"),fnam)
    232233  str='File produced using ce0l executable.'
Note: See TracChangeset for help on using the changeset viewer.