Changeset 7893
- Timestamp:
- 2017-04-11T13:52:39+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_package_netcdf4/NEMOGCM/NEMO/OPA_SRC/IOM/iom_nf90.F90
r7892 r7893 108 108 ELSE ; imode = IOR( NF90_64BIT_OFFSET, NF90_NOCLOBBER ) 109 109 ENDIF 110 IF( snc4set%luse ) THEN 110 #if defined key_netcdf4 111 111 IF(lwp) WRITE(numout,*) TRIM(clinfo)//' creating file: '//TRIM(cdname)//' in hdf5 (netcdf4) mode' 112 CALL GET_NF90_SYMBOL("NF90_HDF5", ihdf5)113 IF( llclobber ) THEN ; imode = IOR(ihdf5, NF90_CLOBBER)114 ELSE ; imode = IOR(ihdf5, NF90_NOCLOBBER)115 ENDIF116 CALL iom_nf90_check(NF90_CREATE( TRIM(cdname), imode, if90id ), clinfo)117 ELSE118 #if defined key_netcdf4119 112 CALL GET_NF90_SYMBOL("NF90_HDF5", ihdf5) 120 113 IF( llclobber ) THEN ; imode = IOR(ihdf5, NF90_CLOBBER)
Note: See TracChangeset
for help on using the changeset viewer.