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 – NEMO

Changeset 10220


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

changes suggested by Daley

Location:
NEMO/branches/UKMO/dev_rebuild_nemo_compression/REBUILD_NEMO
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/UKMO/dev_rebuild_nemo_compression/REBUILD_NEMO/rebuild_nemo

    r10143 r10220  
    1010   echo "  ************" 
    1111   echo 
    12    echo "  usage: ${0##*/} [-l -p -s -m -n -r -d -x -y -z -t -s] filebase ndomain [rebuild dimensions]" 
     12   echo "  usage: ${0##*/} [-l -p -s -m -n -r -d -x -y -z -t -c] filebase ndomain [rebuild dimensions]" 
    1313   echo 
    1414   echo "  flags:    -l                 submit to compute node" 
     
    2121   echo "      key_netcdf4 only " 
    2222   echo "            -d deflate_level     deflate level for output files" 
    23    echo "            -x chunsize along x "  
    24    echo "            -y chunsize along y "  
    25    echo "            -z chunsize along z "  
    26    echo "            -t chunsize along t "  
    27    echo "            -c chunsize " 
     23   echo "            -x chunksize along x "  
     24   echo "            -y chunksize along y "  
     25   echo "            -z chunksize along z "  
     26   echo "            -t chunksize along t "  
     27   echo "            -c total size of the chunk cache " 
    2828   echo 
    2929   exit 1 
  • 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.