Changeset 77 for trunk/SRC/Tests/tst_plt.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_plt.pro (modified) (3 diffs)

trunk/SRC/Tests/tst_plt.pro

@@ -10 +10 @@
     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
 ;
@@ -19 +18 @@
   domdef
   domdef, gdept[0], gdept[0], gridtype = 'T'
-  temp = read_ncdf('votemper', 10101, 10131, file = file)
+  temp = read_ncdf('votemper', 00101, 00131, file = file)
 ;
   plt, temp, /landscape
@@ -76 +75 @@
 ; domdef, 150, 150 ; => warning message
   domdef, gdept[jpk/2], gdept[jpk/2], gridtype = 'T'
-  temp = read_ncdf('votemper', 10101, 10131, file = file)
+  temp = read_ncdf('votemper', 00101, 00131, file = file)
   plt, temp, realcont = 2*(key_onearth), /land
   if keyword_set(image) then saveimage, 'tst_plt_'+image+'_'+string(cnt, format='(i2.2)')+'.png', /png