Changeset 189 for trunk/SRC/Tests/TestsOld/tst_pltt_old.pro
- Timestamp:
- 09/21/06 15:55:54 (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/SRC/Tests/TestsOld/tst_pltt_old.pro
r157 r189 1 1 ;+ 2 ; @file_comments 3 ; 4 ; 5 ; @categories 6 ; 7 ; 8 ; @keyword IMAGE 9 ; 10 ; 11 ; @returns 12 ; 13 ; 14 ; @restrictions 15 ; 16 ; 17 ; @examples 2 ; @file_comments 18 3 ; 19 4 ; 5 ; @categories 6 ; 7 ; 8 ; @keyword IMAGE 9 ; 20 10 ; @history 21 ; 11 ; Sebastien Masson 22 12 ; 23 13 ; @version … … 75 65 ; equatorial plot 76 66 ; 77 IF key_onearth THEN BEGIN 67 IF key_onearth THEN BEGIN 78 68 a = abs(gphit[0, *]) 79 69 yind = where(a EQ min(a)) 80 70 domdef, 20, 380, yind[0], yind[n_elements(yind)-1] $ 81 71 , gdept[10 < (jpk-1)], gdept[10 < (jpk-1)], grille = 'T', /yindex 82 ENDIF ELSE BEGIN 72 ENDIF ELSE BEGIN 83 73 domdef, min(glamt), max(glamf), jpj/2, jpj/2 $ 84 74 , gdept[10 < (jpk-1)], gdept[10 < (jpk-1)], grille = 'T', /yindex 85 ENDELSE 75 ENDELSE 86 76 temp = read_ncdf('votemper', 00101, 01231, file = file) 87 77 IF key_forgetold THEN help, temp.arr ELSE help, temp.tab … … 93 83 ; yt plot along the column that contain the largest latitude 94 84 ; 95 IF key_onearth THEN BEGIN 85 IF key_onearth THEN BEGIN 96 86 ind = where(gphit EQ max(gphit)) 97 87 ind = ind[0] MOD jpi 98 88 domdef, ind, ind, -90, 90, gdept[0], gdept[0], grille = 'T', /xindex 99 ENDIF ELSE BEGIN 89 ENDIF ELSE BEGIN 100 90 domdef, jpi/2, jpi/2, min(gphit), max(gphif), gdept[0], gdept[0], grille = 'T', /xindex 101 ENDELSE 91 ENDELSE 102 92 103 93 temp = read_ncdf('votemper', 00101, 01231, file = file)
Note: See TracChangeset
for help on using the changeset viewer.