New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 10220 for NEMO/branches/UKMO/dev_rebuild_nemo_compression/REBUILD_NEMO/src/rebuild_nemo.F90 – NEMO

Ignore:
Timestamp:
2018-10-24T19:28:46+02:00 (5 years ago)
Author:
mathiot
Message:

changes suggested by Daley

File:
1 edited

Legend:

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

    r10138 r10220  
    368368           outdimids(idim) = dimids(idim) 
    369369           chunksizes(idim) = outdimlens(dimids(idim)) 
    370            if( TRIM(indimnames(dimids(idim))) == 'x' )             & 
     370           cdim='|'//TRIM(indimnames(dimids(idim)))//'|' 
     371 
     372! trick to find var in a list of suggestion (var0 and var1 : INDEX(|var0|var1|,|var|) 
     373           cdimlst='|x|x_grid_T|x_grid_U|x_grid_V|x_grid_W|' 
     374           if( INDEX(TRIM(cdimlst),TRIM(cdim)) > 0 ) & 
    371375    &                             chunksizes(idim) = min(outdimlens(dimids(idim)), max(nc4_xchunk,1)) 
    372            if( TRIM(indimnames(dimids(idim))) == 'y' )             & 
     376 
     377           cdimlst='|y|y_grid_T|y_grid_U|y_grid_V|y_grid_W|' 
     378           if( INDEX(TRIM(cdimlst),TRIM(cdim)) > 0 ) & 
    373379    &                             chunksizes(idim) = min(outdimlens(dimids(idim)), max(nc4_ychunk,1)) 
    374 ! trick to find var in a list of suggestion (var0 and var1 : INDEX(|var0|var1|,|var|) 
    375            cdimlst='|z|deptht|depthu|depthv|depthw|depth|nav_lev|'   ; cdim='|'//TRIM(indimnames(dimids(idim)))//'|' 
     380 
     381           cdimlst='|z|deptht|depthu|depthv|depthw|depth|nav_lev|' 
    376382           if( INDEX(TRIM(cdimlst),TRIM(cdim)) > 0 ) & 
    377383    &                             chunksizes(idim) = min(outdimlens(dimids(idim)), max(nc4_zchunk,1)) 
    378            cdimlst='|t|time|time_counter|' ; cdim='|'//TRIM(indimnames(dimids(idim)))//'|'  
     384 
     385           cdimlst='|t|time|time_counter|' 
    379386           if( INDEX(TRIM(cdimlst),TRIM(cdim)) > 0 ) & 
    380387    &                             chunksizes(idim) = min(outdimlens(dimids(idim)), max(nc4_tchunk,1)) 
     388 
    381389        END DO 
    382390#if defined key_netcdf4 
Note: See TracChangeset for help on using the changeset viewer.