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

Timestamp:

2017-04-11T13:52:39+02:00 (7 years ago)

Author:

andmirek

Message:

small changes in structure

File:

• branches/UKMO/dev_r5518_GO6_package_netcdf4/NEMOGCM/NEMO/OPA_SRC/IOM/iom_nf90.F90 (modified) (1 diff)

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

@@ -108 +108 @@
             ELSE                   ;   imode = IOR( NF90_64BIT_OFFSET, NF90_NOCLOBBER ) 
             ENDIF
-            IF( snc4set%luse ) THEN
+#if defined key_netcdf4
                IF(lwp) WRITE(numout,*) TRIM(clinfo)//' creating file: '//TRIM(cdname)//' in hdf5 (netcdf4) mode'
-               CALL GET_NF90_SYMBOL("NF90_HDF5", ihdf5)
-               IF( llclobber ) THEN   ;   imode = IOR(ihdf5, NF90_CLOBBER)
-               ELSE                   ;   imode = IOR(ihdf5, NF90_NOCLOBBER)
-               ENDIF
-               CALL iom_nf90_check(NF90_CREATE( TRIM(cdname), imode, if90id ), clinfo)
-            ELSE
-#if defined key_netcdf4
                CALL GET_NF90_SYMBOL("NF90_HDF5", ihdf5)
                IF( llclobber ) THEN   ;   imode = IOR(ihdf5, NF90_CLOBBER)