Changeset 7898 for branches/UKMO/dev_r5518_GO6_package_netcdf4/NEMOGCM/NEMO/OPA_SRC/IOM/iom_nf90.F90

Timestamp:

2017-04-11T15:16:15+02:00 (8 years ago)

Author:

andmirek

Message:

key_netcdf4 when openning existing file for writing

File:

• branches/UKMO/dev_r5518_GO6_package_netcdf4/NEMOGCM/NEMO/OPA_SRC/IOM/iom_nf90.F90 (modified) (3 diffs)

branches/UKMO/dev_r5518_GO6_package_netcdf4/NEMOGCM/NEMO/OPA_SRC/IOM/iom_nf90.F90

@@ -85 +85 @@
          IF( ldwrt ) THEN  ! ... in write mode
             IF(lwp) WRITE(numout,*) TRIM(clinfo)//' open existing file: '//TRIM(cdname)//' in WRITE mode'
-            IF( snc4set%luse ) THEN
+#if defined key_netcdf4
                CALL iom_nf90_check(NF90_OPEN( TRIM(cdname), NF90_WRITE  , if90id ), clinfo)
-            ELSE
+#else
                CALL iom_nf90_check(NF90_OPEN( TRIM(cdname), NF90_WRITE  , if90id, chunksize = ichunk ), clinfo)
-            ENDIF
+#endif
             CALL iom_nf90_check(NF90_SET_FILL( if90id, NF90_NOFILL, idmy                          ), clinfo)
          ELSE              ! ... in read mode
@@ -108 +108 @@
             ELSE                   ;   imode = IOR( NF90_64BIT_OFFSET, NF90_NOCLOBBER ) 
             ENDIF
-
 #if defined key_netcdf4
             IF(lwp) WRITE(numout,*) TRIM(clinfo)//' creating file: '//TRIM(cdname)//' in hdf5 (netcdf4) mode'
@@ -119 +118 @@
             CALL iom_nf90_check(NF90_CREATE( TRIM(cdname), imode, if90id, chunksize = ichunk ), clinfo)
 #endif
-
             CALL iom_nf90_check(NF90_SET_FILL( if90id, NF90_NOFILL, idmy                     ), clinfo)
             ! define dimensions