Changeset 50 for trunk/src/paper01/fig14/as_validation_net_1994_95_v10.pro

Timestamp:

04/29/11 11:09:12 (13 years ago)

Author:

pinsard

Message:

replace TROPFLUX by PROJECT

File:

• trunk/src/paper01/fig14/as_validation_net_1994_95_v10.pro (modified) (16 diffs)

trunk/src/paper01/fig14/as_validation_net_1994_95_v10.pro

@@ -15 +15 @@
 ;       rankdir="LR",
 ;       ]
-;       met_data [shape=ellipse,fontname=Courier,label="${TROPFLUX_ID}/met_data_as_expt_19*.txt"];
-;       swr_erai [shape=ellipse,fontname=Courier,label="${TROPFLUX_ID}/erai_swr_19910101_20091231_oafluxgrid.nc"];
-;       lwr_erai [shape=ellipse,fontname=Courier,label="${TROPFLUX_ID}/erai_lwr_19910101_20091231_oafluxgrid.nc"];
-;       lhf_erai [shape=ellipse,fontname=Courier,label="${TROPFLUX_ID}/erai_lhf_19910101_20091231_oafluxgrid.nc"];
-;       tropflux_general [shape=ellipse,fontname=Courier,label="${TROPFLUX_ID}/TropFlux_19890101_20091231.nc"];
-;       swr_tropflux_nrt [shape=ellipse,fontname=Courier,label="${TROPFLUX_ID}/TropFlux_swr_19890101_20091231_NRT_v50.nc"];
-;       swr_oafluxgrid [shape=ellipse,fontname=Courier,label="${TROPFLUX_ID}/swr_oafluxgrid_1985_2007.nc"];
-;       lwr_oafluxgrid [shape=ellipse,fontname=Courier,label="${TROPFLUX_ID}/lwr_oafluxgrid_1985_2007.nc"];
-;       lhf_oafluxgrid [shape=ellipse,fontname=Courier,label="${TROPFLUX_ID}/lhf_oafluxgrid_1985_2007.nc"];
-;       shf_oafluxgrid [shape=ellipse,fontname=Courier,label="${TROPFLUX_ID}/shf_oafluxgrid_1985_2007.nc"];
-;       swr_ncep2 [shape=ellipse,fontname=Courier,label="${TROPFLUX_ID}/swr_ncep2_oaflxgrid_19890101_20091231.nc"];
-;       lwr_ncep2 [shape=ellipse,fontname=Courier,label="${TROPFLUX_ID}/NCEP2_flux_19890101_20090729.nc"];
-;       lhf_ncep2 [shape=ellipse,fontname=Courier,label="${TROPFLUX_ID}/lhf_ncep2_oafluxgrid_19890101_20091231.nc"];
-;       shf_ncep2 [shape=ellipse,fontname=Courier,label="${TROPFLUX_ID}/shf_ncep2_oafluxgrid_19890101_20091231.nc"];
-;
-;       ncep1 [shape=ellipse,fontname=Courier,label="${TROPFLUX_ID}/ncep1_flux_19890101_20091231.nc"];
-;
-;       figure [shape=ellipse,fontname=Courier,label="${TROPFLUX_OD}/as_validation_net_1994_95_v10.ps"];
+;       met_data [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/met_data_as_expt_19*.txt"];
+;       swr_erai [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/erai_swr_19910101_20091231_oafluxgrid.nc"];
+;       lwr_erai [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/erai_lwr_19910101_20091231_oafluxgrid.nc"];
+;       lhf_erai [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/erai_lhf_19910101_20091231_oafluxgrid.nc"];
+;       tropflux_general [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/TropFlux_19890101_20091231.nc"];
+;       swr_tropflux_nrt [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/TropFlux_swr_19890101_20091231_NRT_v50.nc"];
+;       swr_oafluxgrid [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/swr_oafluxgrid_1985_2007.nc"];
+;       lwr_oafluxgrid [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/lwr_oafluxgrid_1985_2007.nc"];
+;       lhf_oafluxgrid [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/lhf_oafluxgrid_1985_2007.nc"];
+;       shf_oafluxgrid [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/shf_oafluxgrid_1985_2007.nc"];
+;       swr_ncep2 [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/swr_ncep2_oaflxgrid_19890101_20091231.nc"];
+;       lwr_ncep2 [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/NCEP2_flux_19890101_20090729.nc"];
+;       lhf_ncep2 [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/lhf_ncep2_oafluxgrid_19890101_20091231.nc"];
+;       shf_ncep2 [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/shf_ncep2_oafluxgrid_19890101_20091231.nc"];
+;
+;       ncep1 [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/ncep1_flux_19890101_20091231.nc"];
+;
+;       figure [shape=ellipse,fontname=Courier,label="${PROJECT_OD}/as_validation_net_1994_95_v10.ps"];
 ;
 ;       as_validation_net_1994_95_v10 [shape=box,
@@ -39 +39 @@
 ;       URL="http://forge.ipsl.jussieu.fr/tropflux/broswrer/trunk/src/paper01/fig14/as_validation_net_1994_95_v10.pro",
 ;       label="${TROPFLUX}/src/paper01/fig14/as_validation_net_1994_95_v10.pro"];
-;
-;       {met_data swr_erai  lwr_erai lhf_erai tropflux_general swr_tropflux_nrt swr_oafluxgrid lwr_oafluxgrid lhf_oafluxgrid shf_oafluxgrid swr_ncep2 lwr_ncep2 lhf_ncep2 shf_ncep2 ncep1} -> {as_validation_net_1994_95_v10} -> {figure}
+;       {met_data swr_erai lwr_erai lhf_erai tropflux_general swr_tropflux_nrt swr_oafluxgrid lwr_oafluxgrid lhf_oafluxgrid shf_oafluxgrid swr_ncep2 lwr_ncep2 lhf_ncep2 shf_ncep2 ncep1} -> {as_validation_net_1994_95_v10} -> {figure}
 ;    }
 ;
@@ -46 +45 @@
 ; ========
 ;
-; :ref:`tropflux_profile.sh`
-; :ref:`tropflux_init.pro`
-; :ref:`cm_tropflux.pro`
+; :ref:`project_profile.sh`
+; :ref:`project_init.pro`
+; :ref:`cm_project.pro`
 ;
 ; :ref:`statistics.pro`
@@ -57 +56 @@
 ; ::
 ;
-;  IDL> @tropflux_init
 ;  IDL> as_validation_net_1994_95_v10
 ;
@@ -64 +62 @@
 ; ====
 ;
-; make it work on cratos : missing data
+; make it work on cratos : missing data erai_swr_19910101_20091231_oafluxgrid.nc, etc
 ;
 ; coding rules
@@ -91 +89 @@
 pro as_validation_net_1994_95_v10
 @cm_general
-@cm_tropflux
+@cm_project
 reinitplt, /z,/invert
 key_portrait = 1
@@ -101 +99 @@
 date1=19941016 & date2=19951019
 
-fi=tropflux_id_env+"met_data_as_expt_1994.txt"
+fi=project_id_env+"met_data_as_expt_1994.txt"
 res=read_ascii(fi,data_start=1)
 ff=res.field1
@@ -110 +108 @@
 net94=swr94+lwr94+lhf94+shf94
 
-fi=tropflux_id_env+"met_data_as_expt_1995.txt"
+fi=project_id_env+"met_data_as_expt_1995.txt"
 res=read_ascii(fi,data_start=1)
 ff=res.field1
@@ -128 +126 @@
 help, net
 ;; reading other data sets
-file=tropflux_id_env+"erai_swr_19910101_20091231_oafluxgrid.nc"
+file=project_id_env+"erai_swr_19910101_20091231_oafluxgrid.nc"
 initncdf, file
 swr=read_ncdf('swr',date1,date2,file=file,/nostr, box=asbox) & swr=reform(swr)
-file=tropflux_id_env+'erai_lwr_19890101_20091231_oafluxgrid.nc'
+file=project_id_env+'erai_lwr_19890101_20091231_oafluxgrid.nc'
 initncdf, file
 lwr=read_ncdf('lwr',date1-1,date2,file=file,/nostr, box=asbox) & lwr=reform(lwr)
-file=tropflux_id_env+'erai_shf_19890101_20091231_oafluxgrid.nc'
+file=project_id_env+'erai_shf_19890101_20091231_oafluxgrid.nc'
 initncdf, file
 shf=-1*read_ncdf('shf',date1,date2,file=file,/nostr, box=asbox) & shf=reform(shf)
-file=tropflux_id_env+'erai_lhf_19890101_20091231_oafluxgrid.nc'
+file=project_id_env+'erai_lhf_19890101_20091231_oafluxgrid.nc'
 initncdf, file
 lhf=-1*read_ncdf('lhf',date1,date2,file=file,/nostr, box=asbox) & lhf=reform(lhf)
@@ -148 +146 @@
 swr=0. & lwr=0. & shf=0. & lhf=0.
 
-file=tropflux_id_env+"TropFlux_19890101_20091231.nc"
+file=project_id_env+"TropFlux_19890101_20091231.nc"
 initncdf, file
 swr=read_ncdf('swr',date1,date2,file=file,/nostr, box=asbox) & swr=reform(swr)
@@ -157 +155 @@
 help, trop
 
-file=tropflux_id_env+"TropFlux_swr_19890101_20091231_NRT_v50.nc"
+file=project_id_env+"TropFlux_swr_19890101_20091231_NRT_v50.nc"
 initncdf, file
 olr1=read_ncdf("sw", date1-1, date2, file=file,/nostr, box=asbox) ;; & olr1=grossemoyenne(olr1, "xy",/nan, box=asbox) &
@@ -169 +167 @@
 help, trop, olr
 
-file=tropflux_id_env+'swr_oafluxgrid_1985_2007.nc'
+file=project_id_env+'swr_oafluxgrid_1985_2007.nc'
 initncdf, file
 swr=read_ncdf("swr", date1, date2, file=file,/nostr, box=asbox) & swr=reform(swr)
 
-file=tropflux_id_env+'lwr_oafluxgrid_1985_2007.nc'
+file=project_id_env+'lwr_oafluxgrid_1985_2007.nc'
 initncdf, file
 lwr=read_ncdf("lwr", date1, date2, file=file,/nostr, box=asbox) & lwr=-1*reform(lwr)
 
-file=tropflux_id_env+'lhf_oafluxgrid_1985_2009.nc'
+file=project_id_env+'lhf_oafluxgrid_1985_2009.nc'
 initncdf, file
 lhf=read_ncdf("lhf", date1, date2, file=file,/nostr, box=asbox) & lhf=-1*reform(lhf)
 
-file=tropflux_id_env+'shf_oafluxgrid_1985_2009.nc'
+file=project_id_env+'shf_oafluxgrid_1985_2009.nc'
 initncdf, file
 shf=read_ncdf("shf", date1, date2, file=file,/nostr, box=asbox) & shf=-1*reform(shf)
@@ -191 +189 @@
 swr=0. & lwr=0. & shf=0. & lhf=0.
 
-fi=tropflux_id_env+'swr_ncep2_oaflxgrid_19890101_20091231.nc'
+fi=project_id_env+'swr_ncep2_oaflxgrid_19890101_20091231.nc'
 initncdf, fi
 swr=read_ncdf("swr", date1, date2, file=fi,/nostr, box=asbox) & swr=reform(swr)
 
-fi=tropflux_id_env+"NCEP2_flux_19890101_20090729.nc"
+fi=project_id_env+"NCEP2_flux_19890101_20090729.nc"
 initncdf, fi
 lwr=read_ncdf("lwr", date1, date2, file=fi,/nostr, box=asbox) & lwr=grossemoyenne(lwr, "xy",/nan, box=asbox) & lwr=reform(lwr)
@@ -201 +199 @@
 lwr=-1*lwr
 
-fi=tropflux_id_env+'lhf_ncep2_oafluxgrid_19890101_20091231.nc'
+fi=project_id_env+'lhf_ncep2_oafluxgrid_19890101_20091231.nc'
 initncdf, fi
 lhf=read_ncdf("lhf", date1, date2, file=fi,/nostr, box=asbox) & lhf=-1*reform(lhf)
 
-fi=tropflux_id_env+'shf_ncep2_oafluxgrid_19890101_20091231.nc'
+fi=project_id_env+'shf_ncep2_oafluxgrid_19890101_20091231.nc'
 initncdf, fi
 shf=read_ncdf("shf", date1, date2, file=fi,/nostr, box=asbox) & shf=-1*reform(shf)
@@ -216 +214 @@
 swr=0. & lwr=0. & shf=0. & lhf=0.
 
-file=tropflux_id_env+"ncep1_flux_19890101_20091231.nc"
+file=project_id_env+"ncep1_flux_19890101_20091231.nc"
 initncdf, file
 swr=read_ncdf("swr", date1, date2, file=file,/nostr, box=asbox) & swr=reform(swr)
@@ -293 +291 @@
 
 closeps
-fig=tropflux_od_env+'as_validation_net_1994_95_v10.ps'
+fig=project_od_env+'as_validation_net_1994_95_v10.ps'
 spawn, 'mv '+psdir+'idl.ps '+fig
 spawn, 'gv '+fig