Changeset 2364 for branches/nemo_v3_3_beta/NEMOGCM/EXTERNAL/XMLIO_SERVER/src

Timestamp:

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

Author:

acc

Message:

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

Location:

branches/nemo_v3_3_beta/NEMOGCM/EXTERNAL/XMLIO_SERVER/src/IOSERVER

Files:

• mod_interface_ioipsl.f90 (modified) (4 diffs)
• mod_ioserver_namelist.f90 (modified) (3 diffs)

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

@@ -38 +38 @@
   USE ioipsl
   USE xmlio
+  USE mod_ioserver_namelist
   IMPLICIT NONE
     INTEGER,INTENT(IN)  :: nb_server
@@ -85 +86 @@
                      pt_zoom%ibegin_loc, pt_zoom%ni_loc,pt_zoom%jbegin_loc,pt_zoom%nj_loc,         &
                      initial_timestep, initial_date, timestep_value,                               &
-                     ioipsl_hori_id, ioipsl_file_id)
+                     ioipsl_hori_id, ioipsl_file_id, snc4chunks=snc4ioset)
          ELSE                                              
 
@@ -92 +93 @@
                      pt_zoom%ibegin_loc, pt_zoom%ni_loc,pt_zoom%jbegin_loc,pt_zoom%nj_loc,          &
                      initial_timestep, initial_date, timestep_value,                                &
-                     ioipsl_hori_id, ioipsl_file_id,domain_id=ioipsl_domain_id)                                              
+                     ioipsl_hori_id, ioipsl_file_id,domain_id=ioipsl_domain_id, snc4chunks=snc4ioset)                                              
        
          ENDIF
@@ -139 +140 @@
           ENDIF
         ENDDO
-        CALL histend(ioipsl_file_id)
+        CALL histend(ioipsl_file_id, snc4chunks=snc4ioset)
       ENDIF
       CALL sorted_list__delete(axis_id)

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', &