Changeset 10138 for NEMO/branches

Timestamp:

2018-09-17T20:07:24+02:00 (6 years ago)

Author:

mathiot

Message:

add extra depth dimensions names to deals with restart and output

File:

• NEMO/branches/UKMO/dev_rebuild_nemo_compression/REBUILD_NEMO/src/rebuild_nemo.F90 (modified) (2 diffs)

NEMO/branches/UKMO/dev_rebuild_nemo_compression/REBUILD_NEMO/src/rebuild_nemo.F90

@@ -67 +67 @@
    CHARACTER(LEN=nf90_max_name), ALLOCATABLE :: filenames(:), indimnames(:)
    CHARACTER(LEN=nf90_max_name), DIMENSION(2) :: dims
-   CHARACTER(LEN=256) :: cnampath
+   CHARACTER(LEN=256) :: cnampath, cdimlst, cdim
    CHARACTER(LEN=50)  :: clibnc ! netcdf library version
 
@@ -373 +373 @@
     &                             chunksizes(idim) = min(outdimlens(dimids(idim)), max(nc4_ychunk,1))
 ! trick to find var in a list of suggestion (var0 and var1 : INDEX(|var0|var1|,|var|)
-           if( INDEX('|depth|z|nav_lev|','|'//TRIM(indimnames(dimids(idim)))//'|') > 0 ) &
+           cdimlst='|z|deptht|depthu|depthv|depthw|depth|nav_lev|'   ; cdim='|'//TRIM(indimnames(dimids(idim)))//'|'
+           if( INDEX(TRIM(cdimlst),TRIM(cdim)) > 0 ) &
     &                             chunksizes(idim) = min(outdimlens(dimids(idim)), max(nc4_zchunk,1))
-           if( INDEX('|time|time_counter|','|'//TRIM(indimnames(dimids(idim)))//'|') > 0 ) &
+           cdimlst='|t|time|time_counter|' ; cdim='|'//TRIM(indimnames(dimids(idim)))//'|' 
+           if( INDEX(TRIM(cdimlst),TRIM(cdim)) > 0 ) &
     &                             chunksizes(idim) = min(outdimlens(dimids(idim)), max(nc4_tchunk,1))
         END DO