Changeset 216
- Timestamp:
- 02/21/07 11:20:40 (17 years ago)
- Location:
- trunk/SRC
- Files:
-
- 5 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/SRC/Documentation/xmldoc/savesaxo.sh
r209 r216 96 96 dooldtest=0 97 97 doidlwavedoc=0 98 doidldoc=0 98 doidldoc=0svn 99 99 doTARsrc=0 100 100 doTARdata=0 -
trunk/SRC/Grid/ncdf_meshread.pro
r212 r216 272 272 key_yreverse = 0 273 273 key_zreverse = 0 274 key_gridtype = 'c' 274 275 ;------------------------------------------------------- 275 276 ; 2d arrays: … … 572 573 widget_control, noticebase, bad_id = nothing, /destroy 573 574 ; 574 key_gridtype = 'c'575 ;576 575 ;==================================================== 577 576 ; grid parameters used by xxx -
trunk/SRC/Grid/ncdf_meshroms.pro
r212 r216 257 257 key_yreverse = 0 258 258 key_zreverse = 1 259 key_gridtype = 'c' 259 260 ;------------------------------------------------------- 260 261 ; 2d arrays: … … 493 494 widget_control, noticebase, bad_id = nothing, /destroy 494 495 ; 495 key_gridtype = 'c'496 ;497 496 ;==================================================== 498 497 ; grid parameters used by xxx -
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.