Changeset 465 for trunk/SRC/ToBeReviewed


Ignore:
Timestamp:
05/08/11 22:11:19 (13 years ago)
Author:
smasson
Message:

bugfix for roms

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/SRC/ToBeReviewed/INIT/initncdf.pro

    r421 r465  
    144144; 
    145145  ncdf_close, cdfid 
    146 ; 
     146;---------------------------------------------------------- 
     147  IF keyword_set(romsgrid) THEN BEGIN ; remove last column/row 
     148    sz = size(tmask) 
     149    nx = sz[1] & ny = sz[2] 
     150    xaxis = xaxis[0:nx-2, 0:ny-2] 
     151    yaxis = yaxis[0:nx-2, 0:ny-2] 
     152    romsh = romsh[0:nx-2, 0:ny-2] 
     153    CASE sz[0] OF 
     154      2:tmask = tmask[0:nx-2, 0:ny-2] 
     155      3:tmask = tmask[0:nx-2, 0:ny-2, *] 
     156    ENDCASE 
     157  ENDIF 
    147158;---------------------------------------------------------- 
    148159; call compute the grid 
Note: See TracChangeset for help on using the changeset viewer.