Changeset 46 for trunk/src/paper01/fig12/swr_statistics_map_2000_2009_v50.pro

Timestamp:

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

Author:

pinsard

Message:

going on consolidation of paper01 materials

File:

• trunk/src/paper01/fig12/swr_statistics_map_2000_2009_v50.pro (modified) (8 diffs)

trunk/src/paper01/fig12/swr_statistics_map_2000_2009_v50.pro

@@ -1 +1 @@
 ;+
-; .. _swr_statistics_map_2000_2009_v50.pro
+; .. _swr_statistics_map_2000_2009_v50.pro:
 ;
 ; ====================================
@@ -9 +9 @@
 ; ===========
 ;
+; .. graphviz::
+;
+;    digraph swr_statistics_map_2000_2009_v50 {
+;       graph [
+;       rankdir="LR",
+;       ]
+;       swr_erai [shape=ellipse,fontname=Courier,label="${TROPFLUX_ID}/swr_2000_2009_erai_v50.txt"];
+;       swr_trop [shape=ellipse,fontname=Courier,label="${TROPFLUX_ID}/swr_2000_2009_trop_v50.txt"];
+;       swr_oaflx [shape=ellipse,fontname=Courier,label="${TROPFLUX_ID}/swr_2000_2009_oaflx_v50.txt"];
+;       swr_olr [shape=ellipse,fontname=Courier,label="${TROPFLUX_ID}/swr_2000_2009_olr_v50.txt"];
+;       mask [shape=ellipse,fontname=Courier,label="${TROPFLUX_ID}/longwave_IO_mask.nc"];
+;
+;       figure [shape=ellipse,fontname=Courier,label="${TROPFLUX_OD}/swr_statistics_map_2000_2009_v50.ps"];
+;
+;       swr_statistics_map_2000_2009_v50 [shape=box,
+;       fontname=Courier,
+;       color=blue,
+;       URL="http://forge.ipsl.jussieu.fr/tropflux/broswrer/trunk/src/paper01/fig12/swr_statistics_map_2000_2009_v50.pro",
+;       label="${TROPFLUX}/src/paper01/fig12/swr_statistics_map_2000_2009_v50.pro"];
+;
+;       {swr_erai swr_trop swr_oaflx swr_olr mask} -> {swr_statistics_map_2000_2009_v50} -> {figure}
+;    }
+;
 ; SEE ALSO
 ; ========
 ;
 ; :ref:`tropflux_profile.sh`
+; :ref:`tropflux_init.pro`
+; :ref:`cm_tropflux.pro`
 ;
 ; EXAMPLES
@@ -22 +47 @@
 ;  IDL> swr_statistics_map_2000_2009_v50
 ;
+; TODO
+; ====
+;
+; make it work on cratos : missing data
+;
+; coding rules
+;
+; get rid of spwan
+;
+; complete description
+;
+; handle IO error
+;
 ; EVOLUTIONS
 ; ==========
@@ -27 +65 @@
 ; $Id$
 ;
+; - fplod 20110420T113846Z aedon.locean-ipsl.upmc.fr (Darwin)
+;
+;   * remove stop
+;   * remove hard coding path
+;   * add graphviz
+;
 ; - fplod 20110411T142955Z aedon.locean-ipsl.upmc.fr (Darwin)
 ;
@@ -33 +77 @@
 ;-
 pro swr_statistics_map_2000_2009_v50
-@common
+@cm_general
+@cm_tropflux
 reinitplt, /z,/invert
 key_portrait = 1
@@ -44 +89 @@
 rmsd_mi=10  & rmsd_ma=30 & rmsd_int=1.25
 cor_mi=0.5   & cor_ma=1.  & cor_int=0.02
-fi_swr_erai='/Users/pkb/work/MY_SAXO/flux_automat/swr_2000_2009_erai_v50.txt'
-fi_swr_trop='/Users/pkb/work/MY_SAXO/flux_automat/swr_2000_2009_trop_v50.txt'
-fi_swr_oaflx='/Users/pkb/work/MY_SAXO/flux_automat/swr_2000_2009_oaflx_v50.txt'
-fi_swr_olr='/Users/pkb/work/MY_SAXO/flux_automat/swr_2000_2009_olr_v50.txt'
+fi_swr_erai=tropflux_id_env+'swr_2000_2009_erai_v50.txt'
+fi_swr_trop=tropflux_id_env+'swr_2000_2009_trop_v50.txt'
+fi_swr_oaflx=tropflux_id_env+'swr_2000_2009_oaflx_v50.txt'
+fi_swr_olr=tropflux_id_env+'swr_2000_2009_olr_v50.txt'
 
 res=read_ascii(fi_swr_erai,data_start=1)
@@ -92 +137 @@
 
 ;ind=where(std_olr ge std_ma) & std_olr(ind)=std_ma-0.01
-stop
-file='/Users/pkb/data/heat_budget/OAFLUX/longwave_IO_mask.nc'
+file=tropflux_id_env+'longwave_IO_mask.nc'
 initncdf, file
 domdef, 30,390,-30,30
@@ -516 +560 @@
 endfor
 closeps
-fig='swr_statistics_map_2000_2009_v50.ps'
-spawn, 'mv '+psdir+'idl.ps '+cpsdir+fig
-spawn, 'gv '+cpsdir+fig
-return
+fig=tropflux_od_env+'swr_statistics_map_2000_2009_v50.ps'
+spawn, 'mv '+psdir+'idl.ps '+fig
+spawn, 'gv '+fig
 end