Changeset 77 for trunk/SRC/Tests/TestsOld/tst_pltz_old.pro
- Timestamp:
- 05/24/06 10:22:32 (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/SRC/Tests/TestsOld/tst_pltz_old.pro
r57 r77 13 13 720+510:file = 'Levitus98_1m_01_12_Temperature_Pot_ORCA05.nc' 14 14 ENDCASE 15 file = isafile(file, iodirectory = [iodir, homedir, !path] $ 16 , title = 'Where is '+file+' ?', /recursive) 15 file = isafile(file, title = 'Where is '+file+' ?', /lookalldir) 17 16 IF size(file, /type) NE 7 THEN return 18 17 ; … … 20 19 ELSE domdef, min(glamt), max(glamf), jpj/2-1, jpj/2+1, 0, max(gdept) 21 20 ; 22 temp = read_ncdf('votemper', 10101, 10131, file = file)21 temp = read_ncdf('votemper', 00101, 00131, file = file) 23 22 IF key_forgetold THEN help, temp.arr ELSE help, temp.tab 24 23 ; … … 73 72 ENDELSE 74 73 75 temp = read_ncdf('votemper', 10101, 11231, file = file)74 temp = read_ncdf('votemper', 00101, 01231, file = file) 76 75 pltz, temp, boite = [6000], zoom = 1000, ysurx = 2, hzsurht = .5 77 76 if keyword_set(image) then saveimage, 'tst_pltz_'+image+'_'+string(cnt, format = '(i2.2)')+'.png', /png $ … … 84 83 ELSE endpoints = [jpi/6, jpj/3, 5*jpi/6, 2*jpj/3] 85 84 domdef, endpoints = endpoints, type = 'pltz' 86 temp = read_ncdf('votemper', 10101, 10131, file = file)85 temp = read_ncdf('votemper', 00101, 00131, file = file) 87 86 pltz, temp, endpoints = endpoints 88 87 if keyword_set(image) then saveimage, 'tst_pltz_'+image+'_'+string(cnt, format = '(i2.2)')+'.png', /png $ … … 95 94 ELSE endpoints = [jpi/2+0.25, +0.25, jpi/2+0.25, jpj] 96 95 domdef, 6000, endpoints = endpoints, type = 'pltz' 97 temp = read_ncdf('votemper', 10101, 10131, file = file)96 temp = read_ncdf('votemper', 00101, 00131, file = file) 98 97 pltz, temp, endpoints = endpoints, boite = [6000] $ 99 98 , zoom = 1000, ysurx = 2, hzsurht = .5 ; , /showbuild … … 108 107 ELSE box = [0, jpi-1, jpj/2, jpj/2, 0, 6000] 109 108 domdef, box, grille = 'T' 110 temp = read_ncdf('votemper', 10101, 10131, file = file)109 temp = read_ncdf('votemper', 00101, 00131, file = file) 111 110 pltz, temp, boite = [6000], /portrait, petit = [1, 2, 1] $ 112 111 , zoom = 500, hzsurht = .5 … … 115 114 ELSE endpoints = [0, jpj/2, jpi-1, jpj/2] 116 115 domdef, 6000, endpoints = endpoints, type = 'pltz', grille = 'T' 117 temp = read_ncdf('votemper', 10101, 10131, file = file)116 temp = read_ncdf('votemper', 00101, 00131, file = file) 118 117 pltz, temp, endpoints = endpoints, boite = [6000] $ 119 118 , zoom = 500, hzsurht = .5 $
Note: See TracChangeset
for help on using the changeset viewer.