Changeset 31 for trunk/src/test/read.jnl

Timestamp:

01/24/11 17:50:19 (13 years ago)

Author:

pinsard

Message:

improve rest headers thanks to sphinx update (1.0.4 to 1.0.7)

File:

• trunk/src/test/read.jnl (modified) (4 diffs)

trunk/src/test/read.jnl

@@ -19 +19 @@
 ! ========
 !
-! ferret> CANCEL DATA/ALL
-! ferret> GO read
+! ::
+!
+!  ferret> GO read
+!
+! or::
+!
+!  $ ferret -nojnl -script read.jnl
 !
 ! SEE ALSO
@@ -63 +68 @@
 !-
 !
+CANCEL DATA/ALL
+CANCEL SYMBOL/ALL
+!
 ! pour creer des metafile convertible en ps
 set mode metafile 
@@ -68 +76 @@
 go bold 
 
-LET yyyymmdd_b = "19890101"
-LET yyyymmdd_e = "20091231"
+!++ http://www.pmel.noaa.gov/maillists/tmap/ferret_users/fu_2010/msg00690.html
+!let mm = 1
+!say `mm,zw=2`
+! ++ http://www.pmel.noaa.gov/maillists/tmap/ferret_users/fu_2009/msg00771.html
+!repeat/range=1:2/name=m (use "http://dodsserver/sst_`m`.nc"; show dat)
+!repeat/range=1:12/name=mm ( show sym mm; say `mm,zw=2`) 
+!repeat/range=1:12/name=mm ( show sym mm; LET CMM B`mm,zw=2`A; LIST CMM) 
 
-! ++ pb floatstr si yyyymmdd_b est un entier LET fullfilename = "/usr/zeus/incas/fplod/tropflux_d"+"TropFlux_" + floatstr(yyyymmdd_b,"(I8.8)") + "_" + floatstr(yyyymmdd_e,"(I8.8)") + ".nc"
-LET filename = "TropFlux_" + yyyymmdd_b + "_" + yyyymmdd_e + ".nc"
-LET fullfilename = "/usr/zeus/incas/fplod/tropflux_d/" + filename
-LIST fullfilename
+! pour les log
+! http://www.pmel.noaa.gov/maillists/tmap/ferret_users/fu_2009/msg00036.html
+show symbol session*
+let date = "($session_date)"
+let datetime =  "($session_date) ($session_time)"
+
+! DEFINE VARIABLE yyyymmdd_b = "19890101"
+! DEFINE VARIABLE yyyymmdd_e = "20091231"
+!++ DEFINE VARIABLE cb = {spawn:printf '%8.8d' `b` "}
+
+DEFINE SYMBOL yyyymmdd_b = 19890101
+DEFINE SYMBOL yyyymmdd_e = 20091231
+
+! ++ pb floatstr si yyyymmdd_b est un entier DEFINE VARIABLE fullfilename = "/usr/zeus/incas/fplod/tropflux_d"+"TropFlux_" + floatstr(yyyymmdd_b,"(I8.8)") + "_" + floatstr(yyyymmdd_e,"(I8.8)") + ".nc"
+!DEFINE VARIABLE filename = "TropFlux_" + yyyymmdd_b + "_" + yyyymmdd_e + ".nc"
+DEFINE SYMBOL filename = TropFlux_($yyyymmdd_b)_($yyyymmdd_e).nc
+! ++ $TROPFLUX_D defini ?
+!DEFINE SYMBOL tropflux_d = /usr/zeus/incas/fplod/tropflux_d/
+!DEFINE SYMBOL fullfilename = ($tropflux_d)($filename)
+DEFINE VARIABLE tropflux_d = {spawn:"echo $TROPFLUX_ID"}
+DEFINE SYMBOL fullfilename = "$tropflux_d($filename)"
+CANCEL SYMBOL filename
 ! open 
+! test if the file exists
+!++DEFINE VARIABLE a = {"dummy", SPAWN:"ls `fullfilename`"} 
+!++DEFINE VARIABLE nfiles = `a,RETURN=IEND`
+!++CANCEL a
+!++LIST nfiles
+!++IF `nfiles EQ 2` THEN EXIT
+!++CANCEL nfiles
+
 ! ++ use fullfilename
-use "/usr/zeus/incas/fplod/tropflux_d/TropFlux_19890101_20091231.nc"
+!use "/usr/zeus/incas/fplod/tropflux_d/TropFlux_19890101_20091231.nc"
+use "`fullfilename`"
 !
 ! plot the first timestep of swr
@@ -86 +126 @@
 !
 ! create a Postscript file
-!++ sp Fprint -l cps -p portrait -o TropFlux_19890101_20091231.ferret.ps metafile.plt
+sp Fprint -l cps -p portrait -o TropFlux_19890101_20091231.ferret.ps metafile.plt
 !
-!  create a GIF file
+! create a GIF file
 frame/file=TropFlux_19890101_20091231.ferret.gif
 !