Changeset 46 for trunk/src/paper01/fig16

Timestamp:

04/20/11 16:45:53 (13 years ago)

Author:

pinsard

Message:

going on consolidation of paper01 materials

File:

• trunk/src/paper01/fig16/fig16_timeseries_nino3.pro (modified) (6 diffs)

trunk/src/paper01/fig16/fig16_timeseries_nino3.pro

@@ -9 +9 @@
 ; ===========
 ;
+; .. graphviz::
+;
+;    digraph fig16_timeseries_nino3 {
+;       graph [
+;       rankdir="LR",
+;       ]
+;       tropflux_sst [shape=ellipse,fontname=Courier,label="${TROPFLUX_ID}/TropFlux_sst_19890101_20091231.nc"];
+;
+;       figure [shape=ellipse,fontname=Courier,label="${TROPFLUX_OD}/WHOTS_validation_net_2004_2007_all_v10.ps"];
+;
+;       fig16_timeseries_nino3 [shape=box,
+;       fontname=Courier,
+;       color=blue,
+;       URL="http://forge.ipsl.jussieu.fr/tropflux/broswrer/trunk/src/paper01/fig16/fig16_timeseries_nino3.pro",
+;       label="${TROPFLUX}/src/paper01/fig16/fig16_timeseries_nino3.pro"];
+;
+;       {tropflux_sst} -> {fig16_timeseries_nino3} -> {figure}
+;    }
+;
 ; SEE ALSO
 ; ========
 ;
 ; :ref:`tropflux_profile.sh`
+; :ref:`tropflux_init.pro`
+; :ref:`cm_tropflux.pro`
+;
+; :func:`x_site_location`
+; :func:`y_site_location`
 ;
 ; EXAMPLES
@@ -22 +46 @@
 ;  IDL> fig16_timeseries_nino3
 ;
+; TODO
+; ====
+;
+; make it work on cratos : missing data
+;
+; coding rules
+;
+; get rid of spwan
+;
+; complete description
+;
+; handle IO error
+;
 ; EVOLUTIONS
 ; ==========
@@ -27 +64 @@
 ; $Id$
 ;
+; - fplod 20110420T123110Z aedon.locean-ipsl.upmc.fr (Darwin)
+;
+;   * remove hard coding path
+;   * add graphviz
+;   * externalize functions
+;
 ; - fplod 20110411T142955Z aedon.locean-ipsl.upmc.fr (Darwin)
 ;
@@ -33 +76 @@
 ;-
 pro fig16_timeseries_nino3
-@common
-
+@cm_general
+@cm_tropflux
 reinitplt, /z,/invert
 key_portrait = 1
@@ -42 +85 @@
 box=[240,330,-5,5]
 
-file_trop='/Users/pkb/data/TropFlux/TropFlux_sst_19890101_20091231.nc'
+file_trop=tropflux_id_env+'TropFlux_sst_19890101_20091231.nc'
 initncdf, file_trop
 sst=read_ncdf("sst", date1, date2, box=box, file=file_trop,/nostr)
@@ -157 +200 @@
 
 closeps
-fig='fig16_timeseries_nino3.ps'
-spawn, 'mv '+psdir+'idl.ps '+cpsdir+fig
-spawn, 'gv '+cpsdir+fig
-return
+fig=tropflux_od_env+'fig16_timeseries_nino3.ps'
+spawn, 'mv '+psdir+'idl.ps '+fig
+spawn, 'gv '+fig
 end
-function x_site_location, site
-    n1=strpos(site, 's')
-if (n1 gt -1) then begin
-    ns=-1.
-    x=strmid(site, 0, n1)
-    x=float(x)*ns
-endif else begin
-    n1=strpos(site, 'n')
-    x=strmid(site, 0, n1)
-    ny=1.
-    x=float(x)*ny
-endelse
-return, float(x)
-end
-function y_site_location, site
-    n1=strpos(site, 'e')
-if (n1 gt -1) then begin
-    n=strpos(site, 's')
-    if (n gt -1) then begin
-        y=strmid(site, n+1, n1-n-1)
-    endif else begin
-        n=strpos(site, 'n')
-        y=strmid(site, n+1, n1-n-1)
-    endelse
-
-endif else begin
-    n1=strpos(site, 'w')
-    n=strpos(site, 's')
-    if (n gt -1) then begin
-        y=strmid(site, n+1, n1-n-1)
-        y=180+(180-float(y))
-    endif else begin
-        n=strpos(site, 'n')
-        y=strmid(site, n+1, n1-n-1)
-        y=180+(180-float(y))
-   endelse
-endelse
-return,float(y)
-end