Changeset 2364 for branches/nemo_v3_3_beta/NEMOGCM/NEMO/TOP_SRC/TRP/trdmld_trc.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/TRP/trdmld_trc.F90 (modified) (3 diffs)

branches/nemo_v3_3_beta/NEMOGCM/NEMO/TOP_SRC/TRP/trdmld_trc.F90

@@ -1304 +1304 @@
             CALL dia_nam( clhstnam, nn_trd_trc, csuff )
             CALL histbeg( clhstnam, jpi, glamt, jpj, gphit,                                            &
-               &        1, jpi, 1, jpj, nit000, zjulian, rdt, nh_t(jn), nidtrd(jn), domain_id=nidom )
+               &        1, jpi, 1, jpj, nit000, zjulian, rdt, nh_t(jn), nidtrd(jn), domain_id=nidom, snc4chunks=snc4set )
       
             !-- Define the ML depth variable
@@ -1317 +1317 @@
           CALL dia_nam( clhstnam, nn_trd_trc, 'trdbio' )
           CALL histbeg( clhstnam, jpi, glamt, jpj, gphit,                                            &
-             &             1, jpi, 1, jpj, nit000, zjulian, rdt, nh_tb, nidtrdbio, domain_id=nidom )
+             &             1, jpi, 1, jpj, nit000, zjulian, rdt, nh_tb, nidtrdbio, domain_id=nidom, snc4chunks=snc4set )
 #endif
 
@@ -1368 +1368 @@
       !-- Leave IOIPSL/NetCDF define mode
       DO jn = 1, jptra
-         IF( ln_trdtrc(jn) )  CALL histend( nidtrd(jn) )
+         IF( ln_trdtrc(jn) )  CALL histend( nidtrd(jn), snc4set )
       END DO
 
 #if defined key_lobster
       !-- Leave IOIPSL/NetCDF define mode
-      CALL histend( nidtrdbio )
+      CALL histend( nidtrdbio, snc4set )
 
       IF(lwp) WRITE(numout,*)