Changeset 394 for trunk


Ignore:
Timestamp:
02/26/09 14:58:03 (15 years ago)
Author:
smasson
Message:

minor bugfix in micromeshmask

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/SRC/Grid/micromeshmask.pro

    r371 r394  
    187187; 
    188188  inzgrlist =  zgrlist 
    189   IF (where(varlist EQ 'gdept_0'))[0] NE -1 THEN inzgrlist =  inzgrlist+'_0' 
     189  IF (where(zgr_varlist EQ 'gdept_0'))[0] NE -1 THEN inzgrlist =  inzgrlist+'_0' 
    190190  FOR z = 0, n_elements(zgrlist)-1 DO $ 
    191191    ncdf_transfer, cdfid, cdfidout, inzgrlist[z], zgrlist[z] 
Note: See TracChangeset for help on using the changeset viewer.