Changeset 2364 for branches/nemo_v3_3_beta/NEMOGCM/NEMO/TOP_SRC/trcdia.F90

Timestamp:

2010-11-05T16:22:12+01:00 (13 years ago)

Author:

acc

Message:

Added basic NetCDF4 chunking and compression support (key_netcdf4). See ticket #754

File:

• branches/nemo_v3_3_beta/NEMOGCM/NEMO/TOP_SRC/trcdia.F90 (modified) (6 diffs)

branches/nemo_v3_3_beta/NEMOGCM/NEMO/TOP_SRC/trcdia.F90

@@ -176 +176 @@
          CALL histbeg( clhstnam, jpi, glamt, jpj, gphit,     &
             &          iimi, iima-iimi+1, ijmi, ijma-ijmi+1,         & 
-            &          iiter, zjulian, zdt, nhorit5, nit5 , domain_id=nidom)
+            &          iiter, zjulian, zdt, nhorit5, nit5 , domain_id=nidom, snc4chunks=snc4set)
 
          ! Vertical grid for tracer : gdept
@@ -197 +197 @@
 
          ! end netcdf files header
-         CALL histend( nit5 )
+         CALL histend( nit5, snc4set )
          IF(lwp) WRITE(numout,*)
          IF(lwp) WRITE(numout,*) 'End of NetCDF Initialization in trcdit_wr'
@@ -303 +303 @@
          CALL histbeg( clhstnam, jpi, glamt, jpj, gphit,             &
             &          iimi, iima-iimi+1, ijmi, ijma-ijmi+1,         &
-            &          iiter, zjulian, zdt, nhoritd, nitd , domain_id=nidom )
+            &          iiter, zjulian, zdt, nhoritd, nitd , domain_id=nidom, snc4chunks=snc4set )
 
          ! Vertical grid for 2d and 3d arrays
@@ -332 +332 @@
 
          ! CLOSE netcdf Files
-         CALL histend( nitd )
+         CALL histend( nitd, snc4set )
 
          IF(lwp) WRITE(numout,*)
@@ -449 +449 @@
          CALL histbeg( clhstnam, jpi, glamt, jpj, gphit,      &
             &    iimi, iima-iimi+1, ijmi, ijma-ijmi+1,          &
-            &    iiter, zjulian, zdt, nhoritb, nitb , domain_id=nidom )
+            &    iiter, zjulian, zdt, nhoritb, nitb , domain_id=nidom, snc4chunks=snc4set )
          ! Vertical grid for biological trends
          CALL histvert(nitb, 'deptht', 'Vertical T levels', 'm', ipk, gdept_0, ndepitb)
@@ -464 +464 @@
 
          ! CLOSE netcdf Files
-          CALL histend( nitb )
+          CALL histend( nitb, snc4set )
 
          IF(lwp) WRITE(numout,*)