Changeset 236 for trunk/SRC/ToBeReviewed/LECTURE
- Timestamp:
- 03/21/07 18:18:44 (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/SRC/ToBeReviewed/LECTURE/GRIB/read_grib.pro
r232 r236 41 41 openr, num, gribfile, /GET_LUN, ERROR = err, /SWAP_IF_LITTLE_ENDIAN 42 42 if err ne 0 then begin 43 print, !err_string43 ras = report(!err_string) 44 44 return, -1 45 45 ENDIF … … 64 64 goodvar = where(codes EQ varcode) 65 65 IF goodvar[0] EQ -1 THEN BEGIN 66 print, 'no var code '+strtrim(varcode, 2)+' in the file'66 ras = report( 'no var code '+strtrim(varcode, 2)+' in the file') 67 67 return, -1 68 68 ENDIF … … 73 73 gooddate = where(dates GE date1 AND dates LE date2) 74 74 IF gooddate[0] EQ -1 THEN BEGIN 75 print, 'no dates between '+strtrim(date1, 2)+' and '+strtrim(date2, 2)+' in the file'75 ras = report( 'no dates between '+strtrim(date1, 2)+' and '+strtrim(date2, 2)+' in the file') 76 76 return, -1 77 77 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.