Changeset 49 for trunk

Timestamp:

04/22/11 12:22:17 (13 years ago)

Author:

pinsard

Message:

improve plot_tropflux

File:

• trunk/src/plot_tropflux.pro (modified) (13 diffs)

trunk/src/plot_tropflux.pro

@@ -8 +8 @@
 ;
 ; Produce +todo+ figures with TROPFLUX data
+;
+; **tropflux_varname* must be one one these strings :
+;    q2m t2m sst ws swr lwr lhf shf 
 ;
 ; .. graphviz::
@@ -15 +18 @@
 ;       rankdir="LR",
 ;       ]
-;       file_tropflux_q2m [shape=ellipse,fontname=Courier,label="${TROPFLUX_ID}/TropFlux_q2m_19890101-20091231.nc"];
-;       file_tropflux_t2m [shape=ellipse,fontname=Courier,label="${TROPFLUX_ID}/tropFlux_t2m_19890101-20091231.nc"];
-;       file_tropflux_ws [shape=ellipse,fontname=Courier,label="${TROPFLUX_ID}/TropFlux_ws_19890101-20091231.nc"];
-;       file_tropflux_sst [shape=ellipse,fontname=Courier,label="${TROPFLUX_ID}/TropFlux_sst_19890101-20091231.nc"];
-;       file_tropflux [shape=ellipse,fontname=Courier,label="${TROPFLUX_ID}/TropFlux_19890101-20091231.nc"];
+;       file_tropflux_q2m [shape=ellipse,fontname=Courier,label="${TROPFLUX_ID}/TropFlux_q2m_19890101_20091231.nc"];
+;       file_tropflux_t2m [shape=ellipse,fontname=Courier,label="${TROPFLUX_ID}/tropFlux_t2m_19890101_20091231.nc"];
+;       file_tropflux_ws [shape=ellipse,fontname=Courier,label="${TROPFLUX_ID}/TropFlux_ws_19890101_20091231.nc"];
+;       file_tropflux_sst [shape=ellipse,fontname=Courier,label="${TROPFLUX_ID}/TropFlux_sst_19890101_20091231.nc"];
+;       file_tropflux [shape=ellipse,fontname=Courier,label="${TROPFLUX_ID}/TropFlux_19890101_20091231.nc"];
 ;       figure_++_tropflux_++ [shape=ellipse,fontname=Courier,label="${TROPFLUX_OD}/plot_tropflux_++_year.png"];
 ;
@@ -35 +38 @@
 ; ========
 ;
-; To plot ++ of q2m ::
-;
-;    IDL> @tropflux_init
-;    IDL> status = plot_tropflux('q2m')
+; To plot ++ of q2m from :file:`${TROPFLUX}/TropFlux_q2m_19890101_20091231.nc`::
+;
+;    IDL> @tropflux_init
+;    IDL> tropflux_varname='q2m'
+;    IDL> status = plot_tropflux(tropflux_varname)
 ;
 ; **status** is 0 if everything is ok, -1 otherwise
@@ -44 +48 @@
 ; :file:`${TROPFLUX_OD}/plot_tropflux_q2m_year.png` and
 ; :file:`${TROPFLUX_OD}/plot_tropflux_q2m_month.png` have been created.
+;
+; Same idea for t2m from :file:`${TROPFLUX}/TropFlux_t2m_19890101_20091231.nc`::
+;
+;    IDL> @tropflux_init
+;    IDL> tropflux_varname='t2m'
+;    IDL> status = plot_tropflux(tropflux_varname)
+;
+; Same idea for sst from :file:`${TROPFLUX}/TropFlux_sst_19890101_20091231.nc`::
+;
+;    IDL> @tropflux_init
+;    IDL> tropflux_varname='sst'
+;    IDL> status = plot_tropflux(tropflux_varname)
+;
+; Same idea for ws from :file:`${TROPFLUX}/TropFlux_ws_19890101_20091231.nc`::
+;
+;    IDL> @tropflux_init
+;    IDL> tropflux_varname='ws'
+;    IDL> status = plot_tropflux(tropflux_varname)
+; 
+; Same idea for swr from :file:`${TROPFLUX}/TropFlux_19890101_20091231.nc`::
+;
+;    IDL> @tropflux_init
+;    IDL> tropflux_varname='swr'
+;    IDL> status = plot_tropflux(tropflux_varname)
+;
+; Same idea for lwr from :file:`${TROPFLUX}/TropFlux_19890101_20091231.nc`::
+;
+;    IDL> @tropflux_init
+;    IDL> tropflux_varname='lwr'
+;    IDL> status = plot_tropflux(tropflux_varname)
+;
+; Same idea for lhf from :file:`${TROPFLUX}/TropFlux_19890101_20091231.nc`::
+;
+;    IDL> @tropflux_init
+;    IDL> tropflux_varname='lhf'
+;    IDL> status = plot_tropflux(tropflux_varname)
+;
+; Same idea for shf from :file:`${TROPFLUX}/TropFlux_19890101_20091231.nc`::
+;
+;    IDL> @tropflux_init
+;    IDL> tropflux_varname='shf'
+;    IDL> status = plot_tropflux(tropflux_varname)
 ;
 ; SEE ALSO
@@ -63 +109 @@
 ; ====
 ;
-; make it work. when ok set debug to 0 or add a keyword
-; same for overwrite
+; define plots to be put on the website
+;
+; add a keyword debug
+; add a keyworf overwrite
 ;
 ; lecture du mask oaflux pour initcdf
@@ -70 +118 @@
 ; coding rules
 ;
-; parametre date debu date fin ?
+; parametre date debut date fin ?
 ;
 ; parametre version ?
@@ -81 +129 @@
 ; add parameter saveimage
 ;
-; add parameter overwrite
-;
 ; ajuster le format à la dynamique de la variable
+;
 ; check arg
-;
-; pourquoi read_ncdf n'ouvre pas tout de suite le ficher sans passer par la case widget !!
 ;
 ; loop on month : min and max values for same color scale
@@ -100 +145 @@
 ; EVOLUTIONS
 ; ==========
+;
+; $Id$
+;
+; - fplod 20110422T095159Z aedon.locean-ipsl.upmc.fr (Darwin)
+;
+;   * fix read_ncdf call
+;   * improve example
+;   * fix typo
 ;
 ; - fplod 20110408T101102Z cratos.locean-ipsl.upmc.fr (Linux)
@@ -119 +172 @@
 status=-1
 ;
-debug=1
+debug=0
 overwrite=1
 ;
-
 ; check for tropflux_varname
 ; and build input filename
@@ -215 +267 @@
 ENDIF
 ;
-fullfilename_out_year=iodirout+'plot_tropflux' + tropflux_varname + '_year.png'
+fullfilename_out_year=iodirout+'plot_tropflux_' + tropflux_varname + '_year.png'
 print, fullfilename_out_year
 ; in order to avoid unexpected overwritten
@@ -226 +278 @@
 ENDIF
 ;
-fullfilename_out_month=iodirout+'plot_tropflux' + tropflux_varname + '_month.png'
+fullfilename_out_month=iodirout+'plot_tropflux_' + tropflux_varname + '_month.png'
 print, fullfilename_out_month
 ; in order to avoid unexpected overwritten
@@ -249 +301 @@
 ;
 ; Read data
-tropflux_var=read_ncdf(tropflux_varname,19890101L,19891231L,fullfilename_in[0],/nostruct)
+tropflux_var=read_ncdf(tropflux_varname,19890101L,19891231L,filename=fullfilename_in[0],/nostruct)
 ;
 IF debug EQ 1 THEN BEGIN
@@ -266 +318 @@
    nl=4
    nc=2
-   ; ++ watinfg for final plot do be done
+   ; ++ wating for final plot do be done
    jpt=nc*nl
    FOR itime = 0L, jpt - 1 DO BEGIN