Changeset 7892


Ignore:
Timestamp:
2017-04-11T13:01:36+02:00 (3 years ago)
Author:
andmirek
Message:

if key_netcdf4 is present open restart file in netcdf4 format

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_GO6_package_netcdf4/NEMOGCM/NEMO/OPA_SRC/IOM/iom_nf90.F90

    r6491 r7892  
    116116               CALL iom_nf90_check(NF90_CREATE( TRIM(cdname), imode, if90id ), clinfo) 
    117117            ELSE 
     118#if defined key_netcdf4 
     119               CALL GET_NF90_SYMBOL("NF90_HDF5", ihdf5) 
     120               IF( llclobber ) THEN   ;   imode = IOR(ihdf5, NF90_CLOBBER) 
     121               ELSE                   ;   imode = IOR(ihdf5, NF90_NOCLOBBER) 
     122               ENDIF 
     123               CALL iom_nf90_check(NF90_CREATE( TRIM(cdname), imode, if90id ), clinfo) 
     124#else 
    118125               CALL iom_nf90_check(NF90_CREATE( TRIM(cdname), imode, if90id, chunksize = ichunk ), clinfo) 
     126#endif 
    119127            ENDIF 
    120128            CALL iom_nf90_check(NF90_SET_FILL( if90id, NF90_NOFILL, idmy                     ), clinfo) 
Note: See TracChangeset for help on using the changeset viewer.