Changeset 77 for trunk/SRC/Tests/tst_pltz.pro

Timestamp:

05/24/06 10:22:32 (18 years ago)

Author:

smasson

Message:

tests tst_* work again (brokken since DATA/SRC split)

File:

• trunk/SRC/Tests/tst_pltz.pro (modified) (7 diffs)

trunk/SRC/Tests/tst_pltz.pro

@@ -13 +13 @@
     720+510:file = 'Levitus98_1m_01_12_Temperature_Pot_ORCA05.nc'
   ENDCASE
-  file = isafile(file, iodirectory = [iodir, homedir, !path] $
-                 , title = 'Where is '+file+' ?', /recursive)
+  file = isafile(file, title = 'Where is '+file+' ?', /lookalldir)
   IF size(file, /type) NE 7 THEN return
 ;
@@ -20 +19 @@
   ELSE domdef, min(glamt), max(glamf), jpj/2-1, jpj/2+1, 0, max(gdept)
 ;
-  temp = read_ncdf('votemper', 10101, 10131, file = file)
+  temp = read_ncdf('votemper', 00101, 00131, file = file)
   IF key_forgetold THEN help, temp.arr ELSE help, temp.tab
 ; 
@@ -73 +72 @@
   ENDELSE 
 
-  temp = read_ncdf('votemper', 10101, 11231, file = file)
+  temp = read_ncdf('votemper', 00101, 01231, file = file)
   pltz, temp, boxzoom = [6000], zoom = 1000, yxaspect = 2, zratio = .5
   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]
   domdef, endpoints = endpoints, type = 'pltz'
-  temp = read_ncdf('votemper', 10101, 10131, file = file)
+  temp = read_ncdf('votemper', 00101, 00131, file = file)
   pltz, temp, endpoints = endpoints
   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]
   domdef, 6000, endpoints = endpoints, type = 'pltz'
-  temp = read_ncdf('votemper', 10101, 10131, file = file)
+  temp = read_ncdf('votemper', 00101, 00131, file = file)
   pltz, temp, endpoints = endpoints, boxzoom = [6000] $
         , zoom = 1000, yxaspect = 2, zratio = .5 ; , /showbuild
@@ -108 +107 @@
     ELSE box = [0, jpi-1, jpj/2, jpj/2, 0, 6000]
     domdef, box, gridtype = 'T'
-    temp = read_ncdf('votemper', 10101, 10131, file = file)
+    temp = read_ncdf('votemper', 00101, 00131, file = file)
     pltz, temp, boxzoom = [6000], /portrait, small = [1, 2, 1] $
           , zoom = 500, zratio = .5
@@ -115 +114 @@
     ELSE endpoints = [0, jpj/2, jpi-1, jpj/2]
     domdef, 6000, endpoints = endpoints, type = 'pltz', gridtype = 'T'
-    temp = read_ncdf('votemper', 10101, 10131, file = file)
+    temp = read_ncdf('votemper', 00101, 00131, file = file)
     pltz, temp, endpoints = endpoints, boxzoom = [6000] $
           , zoom = 500, zratio = .5 $