Ignore:
Timestamp:
2018-09-17T20:07:24+02:00 (2 years ago)
Author:
mathiot
Message:

add extra depth dimensions names to deals with restart and output

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/UKMO/dev_rebuild_nemo_compression/REBUILD_NEMO/src/rebuild_nemo.F90

    r10131 r10138  
    6767   CHARACTER(LEN=nf90_max_name), ALLOCATABLE :: filenames(:), indimnames(:) 
    6868   CHARACTER(LEN=nf90_max_name), DIMENSION(2) :: dims 
    69    CHARACTER(LEN=256) :: cnampath 
     69   CHARACTER(LEN=256) :: cnampath, cdimlst, cdim 
    7070   CHARACTER(LEN=50)  :: clibnc ! netcdf library version 
    7171 
     
    373373    &                             chunksizes(idim) = min(outdimlens(dimids(idim)), max(nc4_ychunk,1)) 
    374374! trick to find var in a list of suggestion (var0 and var1 : INDEX(|var0|var1|,|var|) 
    375            if( INDEX('|depth|z|nav_lev|','|'//TRIM(indimnames(dimids(idim)))//'|') > 0 ) & 
     375           cdimlst='|z|deptht|depthu|depthv|depthw|depth|nav_lev|'   ; cdim='|'//TRIM(indimnames(dimids(idim)))//'|' 
     376           if( INDEX(TRIM(cdimlst),TRIM(cdim)) > 0 ) & 
    376377    &                             chunksizes(idim) = min(outdimlens(dimids(idim)), max(nc4_zchunk,1)) 
    377            if( INDEX('|time|time_counter|','|'//TRIM(indimnames(dimids(idim)))//'|') > 0 ) & 
     378           cdimlst='|t|time|time_counter|' ; cdim='|'//TRIM(indimnames(dimids(idim)))//'|'  
     379           if( INDEX(TRIM(cdimlst),TRIM(cdim)) > 0 ) & 
    378380    &                             chunksizes(idim) = min(outdimlens(dimids(idim)), max(nc4_tchunk,1)) 
    379381        END DO 
Note: See TracChangeset for help on using the changeset viewer.