Changeset 2364 for branches/nemo_v3_3_beta/NEMOGCM/EXTERNAL/XMLIO_SERVER/src/IOSERVER/mod_ioserver_namelist.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/EXTERNAL/XMLIO_SERVER/src/IOSERVER/mod_ioserver_namelist.f90 (modified) (3 diffs)

branches/nemo_v3_3_beta/NEMOGCM/EXTERNAL/XMLIO_SERVER/src/IOSERVER/mod_ioserver_namelist.f90

@@ -11 +11 @@
 
   INTEGER,PARAMETER,PRIVATE :: starting_unit=356
+  TYPE, PUBLIC :: snc4_ctl    !: netcdf4 chunking control structure
+                              !: (optional on histbeg and histend calls)
+     SEQUENCE
+     INTEGER :: ni
+     INTEGER :: nj
+     INTEGER :: nk
+     LOGICAL :: luse
+  END TYPE snc4_ctl
+  TYPE(snc4_ctl), SAVE :: snc4ioset
+  INTEGER :: nn_nchunks_i, nn_nchunks_j, nn_nchunks_k
+  LOGICAL :: ln_nc4zip=.false.
+  NAMELIST /namnc4/ nn_nchunks_i, nn_nchunks_j, nn_nchunks_k, ln_nc4zip
   
 CONTAINS
@@ -22 +34 @@
     server_id='unknown'
     global_mpi_buffer_size=512
+    snc4ioset%luse = .false.
     
   END SUBROUTINE set_default_namelist
@@ -46 +59 @@
       READ(unit,nml=coupling_param)
       READ(unit,nml=mpi_param)
-      global_mpi_buffer_size=global_mpi_buffer_size*1024*128  
+      READ(unit,nml=namnc4,ERR=666,END=666)
+ 666  global_mpi_buffer_size=global_mpi_buffer_size*1024*128  
       CLOSE(unit)
+      IF (ln_nc4zip) THEN
+        snc4ioset%ni  = nn_nchunks_i
+        snc4ioset%nj  = nn_nchunks_j
+        snc4ioset%nk  = nn_nchunks_k
+        snc4ioset%luse = ln_nc4zip
+      ENDIF
     ELSE
       PRINT *,'WARNING : mod_ioserver::read_namelist : file xmlio_server.def is absent', &