Changeset 31 for trunk/src

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)

Location:

trunk/src

Files:

• sst_correction_ncdf.pro (modified) (1 diff)
• test/read.jnl (modified) (4 diffs)
• test/read.m (modified) (1 diff)
• test/read.py (modified) (3 diffs)
• tropflux_profile.sh (modified) (1 diff)

trunk/src/sst_correction_ncdf.pro

@@ -1 +1 @@
 ;+
 ;
-; .. sst_correction_ncdf.pro:
+; .. _sst_correction_ncdf.pro:
 ;
 ; =======================

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
 !

trunk/src/test/read.m

@@ -35 +35 @@
 % TODO
 % ====
+%
+%
+% ++ see http://www.esrl.noaa.gov/psd/data/gridded/tools.html
 %
 % make it usable for real end-user

trunk/src/test/read.py

@@ -7 +7 @@
 from Numeric import *
 from Scientific.IO.NetCDF import *
+from pylab import *
+
 import time
 
@@ -46 +48 @@
 ==========
 
+- fplod 20110120T164029Z aedon.locean-ipsl.upmc.fr (Darwin)
+
+  * thanks to http://www.unidata.ucar.edu/software/netcdf/examples/programs/sfc_pres_temp_rd.py
+
+- fplod 20110107T134657Z aedon.locean-ipsl.upmc.fr (Darwin)
+
+  * add a main level for sphinx referencement (not yet ok)
+
 - fplod 20110106T133620Z aedon.locean-ipsl.upmc.fr (Darwin)
 
@@ -53 +63 @@
 """
 
-yyyymmdd_b=19890101;
-yyyymmdd_e=20091231;
-#
-filename = 'TropFlux_' + str(yyyymmdd_b) + '_' + str(yyyymmdd_e) + '.nc'
-fullfilename = '/usr/zeus/incas/fplod/tropflux_d/' + filename
-#
-file = NetCDFFile(fullfilename, 'r')
-print file.dimensions
-print file.variables
-#
-# close NetCDF file
-file.close()
+if __name__ == '__main__':
 
-
+   yyyymmdd_b=19890101;
+   yyyymmdd_e=20091231;
+   #
+   filename = 'TropFlux_' + str(yyyymmdd_b) + '_' + str(yyyymmdd_e) + '.nc'
+   fullfilename = '/usr/zeus/incas/fplod/tropflux_d/' + filename
+   #
+   file = NetCDFFile(fullfilename, 'r')
+   # controle print
+   print file.dimensions
+   print file.variables
+   #
+   # get latitudes
+   ydata=file.variables['latitude']
+   # controle print
+   print ydata.units
+   # get longitudes
+   xdata=file.variables['longitude']
+   # get swr variable
+   zdata=file.variables['swr']
+   # controle print
+   print zdata.units
+   # plot 
+   xlabel('xlabel+todo')
+   ylabel('ylabel+todo')
+   # close NetCDF file
+   file.close()

trunk/src/tropflux_profile.sh

@@ -44 +44 @@
 # ========
 #
-# for IDL/GDL environment :
-#
-# :ref:`tropflux_startup.pro`
 #
 # EXAMPLES