Changeset 7896

Timestamp:

2017-04-11T14:04:26+02:00 (7 years ago)

Author:

andmirek

Message:

change 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 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)
+            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
-               CALL iom_nf90_check(NF90_CREATE( TRIM(cdname), imode, if90id, chunksize = ichunk ), clinfo)
+            CALL iom_nf90_check(NF90_CREATE( TRIM(cdname), imode, if90id, chunksize = ichunk ), clinfo)
 #endif