Changeset 460 for trunk/SRC


Ignore:
Timestamp:
04/12/11 10:00:03 (13 years ago)
Author:
smasson
Message:

minor bugfix in read_ncdf

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/SRC/ToBeReviewed/LECTURE/read_ncdf.pro

    r457 r460  
    391391       earth = earth#replicate(1, jpt)+replicate(nx*ny, n_elements(earth))#lindgen(jpt) 
    392392    IF varinq.ndims eq 4 THEN earth = earth#replicate(1, jpt)+replicate(nx*ny*nz, n_elements(earth))#lindgen(jpt) 
    393     res[temporary(earth)] = 1.e20 
     393    CASE size(res, /type) OF 
     394      1:res[temporary(earth)] = 0b 
     395      2:res[temporary(earth)] = 0 
     396      3:res[temporary(earth)] = OL 
     397      ELSE:res[temporary(earth)] = valmask 
     398    ENDCASE 
    394399  ENDIF 
    395400;--------------------------------------------------------------------- 
Note: See TracChangeset for help on using the changeset viewer.