Changeset 216 for trunk/SRC/ToBeReviewed/LECTURE
- Timestamp:
- 02/21/07 11:20:40 (17 years ago)
- Location:
- trunk/SRC/ToBeReviewed/LECTURE
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/SRC/ToBeReviewed/LECTURE/read_ncdf.pro
r212 r216 411 411 if n_elements(key_stride) LE 2 then key_stride = [1, 1, 1] 412 412 key_stride = 1l > long(key_stride) 413 key_shift = long(testvar(var = key_shift))414 ;415 IF n_elements(key_yreverse) EQ 0 THEN key_yreverse = 0416 IF keyword_set(key_yreverse) THEN BEGIN417 tmp = jpj-1-firsty418 firsty = jpj-1-lasty419 lasty = tmp420 ENDIF421 ;422 IF n_elements(key_zreverse) EQ 0 THEN key_zreverse = 0423 IF keyword_set(key_zreverse) THEN BEGIN424 tmp = jpk-1-firstz425 firstz = jpk-1-lastz426 lastz = tmp427 ENDIF428 ;429 IF (key_gridtype EQ 'c_u' OR key_gridtype EQ 'c_f') $430 AND (vargrid EQ 'U' OR vargrid EQ 'F') THEN BEGIN431 IF keyword_set(key_periodic) THEN BEGIN432 key_shift = key_shift-1433 ENDIF ELSE BEGIN434 firstx = firstx+1435 lastx = lastx+1436 ENDELSE437 ENDIF438 IF (key_gridtype EQ 'c_v' OR key_gridtype EQ 'c_f') $439 AND (vargrid EQ 'V' OR vargrid EQ 'F') THEN BEGIN440 firsty = firsty+1441 lasty = lasty+1442 ENDIF443 ;444 413 ;--------------------------------------------------------------------- 445 414 ;--------------------------------------------------------------------- 446 415 @read_ncdf_varget 447 416 ;--------------------------------------------------------------------- 448 ;---------------------------------------------------------------------449 ;450 IF (key_gridtype EQ 'c_u' OR key_gridtype EQ 'c_f') AND keyword_set(key_periodic) $451 AND (strupcase(vargrid) EQ 'U' OR strupcase(vargrid) EQ 'F') THEN key_shift = key_shift+1452 417 ;--------------------------------------------------------------------- 453 418 ; We define global variable joined with the variable. -
trunk/SRC/ToBeReviewed/LECTURE/read_ncdf_varget.pro
r212 r216 55 55 ; This problem as an easy solution by using the keyword count with 56 56 ; the appropiate value! 57 ; 58 key_shift = long(testvar(var = key_shift)) 59 ; 60 IF n_elements(key_yreverse) EQ 0 THEN key_yreverse = 0 61 IF keyword_set(key_yreverse) THEN BEGIN 62 tmp = jpj-1-firsty 63 firsty = jpj-1-lasty 64 lasty = tmp 65 ENDIF 66 ; 67 IF n_elements(key_zreverse) EQ 0 THEN key_zreverse = 0 68 IF keyword_set(key_zreverse) THEN BEGIN 69 tmp = jpk-1-firstz 70 firstz = jpk-1-lastz 71 lastz = tmp 72 ENDIF 73 ; 74 IF (key_gridtype EQ 'c_u' OR key_gridtype EQ 'c_f') $ 75 AND (vargrid EQ 'U' OR vargrid EQ 'F') THEN BEGIN 76 IF keyword_set(key_periodic) THEN BEGIN 77 key_shift = key_shift-1 78 ENDIF ELSE BEGIN 79 firstx = firstx+1 80 lastx = lastx+1 81 ENDELSE 82 ENDIF 83 IF (key_gridtype EQ 'c_v' OR key_gridtype EQ 'c_f') $ 84 AND (vargrid EQ 'V' OR vargrid EQ 'F') THEN BEGIN 85 firsty = firsty+1 86 lasty = lasty+1 87 ENDIF 57 88 ; 58 89 ixmin = ixminmesh-ixmindta … … 457 488 AND varcontient.ndims - ((where(varcontient.dim EQ contient.recdim))[0] NE -1) EQ 3 THEN $ 458 489 res = reverse(reform(res, nx, ny, nz, jpt, /overwrite), 3) 490 ; 491 IF (key_gridtype EQ 'c_u' OR key_gridtype EQ 'c_f') AND keyword_set(key_periodic) $ 492 AND (strupcase(vargrid) EQ 'U' OR strupcase(vargrid) EQ 'F') THEN key_shift = key_shift+1
Note: See TracChangeset
for help on using the changeset viewer.