Changeset 212 for trunk/SRC/ToBeReviewed/LECTURE/read_ncdf.pro
- Timestamp:
- 02/14/07 11:47:10 (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/SRC/ToBeReviewed/LECTURE/read_ncdf.pro
r209 r212 491 491 varexp = file_basename(filename) 492 492 493 ; we apply reverse494 IF keyword_set(key_yreverse) AND ny NE 1 THEN BEGIN495 IF varcontient.ndims - ((where(varcontient.dim EQ contient.recdim))[0] NE -1) EQ 2 THEN $496 res = reverse(reform(res, nx, ny, jpt, /overwrite), 2) $497 ELSE res = reverse(reform(res, nx, ny, nz, jpt, /overwrite), 2)498 ENDIF499 if keyword_set(key_zreverse) AND nz NE 1 $500 AND varcontient.ndims - ((where(varcontient.dim EQ contient.recdim))[0] NE -1) EQ 3 THEN $501 res = reverse(reform(res, nx, ny, nz, jpt, /overwrite), 3)502 493 ; We apply the value valmask on land points. 503 494 if NOT keyword_set(cont_nofill) then begin
Note: See TracChangeset
for help on using the changeset viewer.