Changeset 10220 for NEMO/branches/UKMO/dev_rebuild_nemo_compression/REBUILD_NEMO/src/rebuild_nemo.F90
- Timestamp:
- 2018-10-24T19:28:46+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/UKMO/dev_rebuild_nemo_compression/REBUILD_NEMO/src/rebuild_nemo.F90
r10138 r10220 368 368 outdimids(idim) = dimids(idim) 369 369 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 ) & 371 375 & 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 ) & 373 379 & 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|' 376 382 if( INDEX(TRIM(cdimlst),TRIM(cdim)) > 0 ) & 377 383 & 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|' 379 386 if( INDEX(TRIM(cdimlst),TRIM(cdim)) > 0 ) & 380 387 & chunksizes(idim) = min(outdimlens(dimids(idim)), max(nc4_tchunk,1)) 388 381 389 END DO 382 390 #if defined key_netcdf4
Note: See TracChangeset
for help on using the changeset viewer.