- Timestamp:
- 04/20/11 16:45:53 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/src/paper01/fig7/ws_validation_scatter_2000_2009_basin.pro
r43 r46 1 1 ;+ 2 2 ; 3 ; .. _ws_validation_scatter_2000_2009_basin.pro 3 ; .. _ws_validation_scatter_2000_2009_basin.pro: 4 4 ; 5 5 ; ========================================= … … 10 10 ; =========== 11 11 ; 12 ; .. graphviz:: 13 ; 14 ; digraph ws_validation_scatter_2000_2009_basin { 15 ; graph [ 16 ; rankdir="LR", 17 ; ] 18 ; ws_erai [shape=ellipse,fontname=Courier,label="${TROPFLUX_ID}/ws_2000_2009_erai_*.txt"]; 19 ; ws_tropflux [shape=ellipse,fontname=Courier,label="${TROPFLUX_OD}/ws_2000_2009_trop_*.txt"]; 20 ; ws_oaflux [shape=ellipse,fontname=Courier,label="${TROPFLUX_OD}/ws_2000_2009_oaflx_*.txt"]; 21 ; ws_ncep [shape=ellipse,fontname=Courier,label="${TROPFLUX_OD}/ws_2000_2009_ncep_*.txt"]; 22 ; ws_ncep1 [shape=ellipse,fontname=Courier,label="${TROPFLUX_OD}/ws_2000_2009_ncep1_*.txt"]; 23 ; ws_tmi [shape=ellipse,fontname=Courier,label="${TROPFLUX_OD}/ws_2000_2009_tmi_*.txt"]; 24 ; 25 ; figure [shape=ellipse,fontname=Courier,label="${TROPFLUX_OD}/ws_validation_scatter_2000_2009_basin.ps"]; 26 ; 27 ; ws_validation_scatter_2000_2009_basin [shape=box, 28 ; fontname=Courier, 29 ; color=blue, 30 ; URL="http://forge.ipsl.jussieu.fr/tropflux/browser/trunk/src/paper01/fig7/ws_validation_scatter_2000_2009_basin.pro", 31 ; label="${TROPFLUX}/src/paper01/fig7/ws_validation_scatter_2000_2009_basin.pro"]; 32 ; 33 ; {ws_erai} -> {ws_validation_scatter_2000_2009_basin} -> {ws_tropflux ws_oaflux ws_ncep ws_ncep1 ws_tmi figure} 34 ; } 35 ; 12 36 ; SEE ALSO 13 37 ; ======== 14 38 ; 15 39 ; :ref:`tropflux_profile.sh` 40 ; :ref:`tropflux_init.pro` 41 ; :ref:`cm_tropflux.pro` 42 ; 43 ; :func:`x_site_location` 44 ; :func:`y_site_location` 45 ; 46 ; :ref:`read_variables_v2.pro` 47 ; :ref:`statistics_3var_v1.pro` 16 48 ; 17 49 ; EXAMPLES … … 21 53 ; 22 54 ; IDL> @tropflux_init 23 ; IDL> date1= ++24 ; IDL> date2= ++55 ; IDL> date1=19890101L 56 ; IDL> date2=20091231L 25 57 ; IDL> ws_validation_scatter_2000_2009_basin, date1, date2 58 ; 59 ; TODO 60 ; ==== 61 ; 62 ; make it work on cratos : pb restore, missing data 63 ; 64 ; ++ mooring data in graphviz 65 ; 66 ; coding rules 67 ; 68 ; get rid of spwan 69 ; 70 ; complete description 71 ; 72 ; handle IO error 26 73 ; 27 74 ; EVOLUTIONS … … 36 83 ;- 37 84 pro ws_validation_scatter_2000_2009_basin,date1,date2 38 @c ommon39 85 @cm_general 86 @cm_tropflux 40 87 reinitplt, /z,/invert 41 88 key_portrait = 1 42 89 43 90 openps, FILENAME = 'idl.ps' 44 ;; Before running this program, you have to compile the following subrutines45 ;; 1. .r read_era_total46 ;; 2. .r read_variables_v247 ;; 3. .r read_era_box48 49 91 ;; Give the location of mooring for validation of basic meteorological variables 50 92 … … 101 143 close,/all 102 144 103 fi_ws_erai= '/Users/pkb/work/MY_SAXO/flux_automat/ws_2000_2009_erai_'+ocean+'.txt'145 fi_ws_erai=tropflux_id_env+'ws_2000_2009_erai_'+ocean+'.txt' 104 146 openw,1,fi_ws_erai 105 fi_ws_trop= '/Users/pkb/work/MY_SAXO/flux_automat/ws_2000_2009_trop_'+ocean+'.txt'147 fi_ws_trop=tropflux_id_env+'ws_2000_2009_trop_'+ocean+'.txt' 106 148 openw,2,fi_ws_trop 107 fi_ws_oaflx= '/Users/pkb/work/MY_SAXO/flux_automat/ws_2000_2009_oaflx_'+ocean+'.txt'149 fi_ws_oaflx=tropflux_id_env+'ws_2000_2009_oaflx_'+ocean+'.txt' 108 150 openw,3,fi_ws_oaflx 109 fi_ws_ncep= '/Users/pkb/work/MY_SAXO/flux_automat/ws_2000_2009_ncep_'+ocean+'.txt'151 fi_ws_ncep=tropflux_id_env+'ws_2000_2009_ncep_'+ocean+'.txt' 110 152 openw,4,fi_ws_ncep 111 fi_ws_tmi= '/Users/pkb/work/MY_SAXO/flux_automat/ws_2000_2009_tmi_'+ocean+'.txt'153 fi_ws_tmi=tropflux_id_env+'ws_2000_2009_tmi_'+ocean+'.txt' 112 154 openw,5,fi_ws_tmi 113 fi_ws_ncep1= '/Users/pkb/work/MY_SAXO/flux_automat/ws_2000_2009_ncep1_'+ocean+'.txt'155 fi_ws_ncep1=tropflux_id_env+'ws_2000_2009_ncep1_'+ocean+'.txt' 114 156 openw,6,fi_ws_ncep1 115 157 … … 125 167 ;; date1=20000101 & date2=20090931 126 168 127 file= '/Volumes/Iomega_HDD/TropFlux/input_uncor/erai_ws_19890101_20091231_oafluxgrid.nc'169 file=tropflux_id_env+'erai_ws_19890101_20091231_oafluxgrid.nc' 128 170 initncdf, file 129 171 u=read_ncdf('u10',date1,date2,file=file,/nostr) … … 132 174 ;help, unc 133 175 134 ;file='/Volumes/Iomega_HDD/TropFlux/input_cor/full_cor/TropFlux_ws_19890101_20091231_v20.nc'135 ;initncdf, file136 ;cor=read_ncdf('ws',date1,date2,file=file,/nostr)137 ;help, cor138 139 ;file='/Volumes/Iomega_HDD/work/flux_reconstruction/OAFLX_GRID/OAFlux_basic_variables_1985_2009.nc'140 ;initncdf, file141 ;oaf=read_ncdf("wind", date1, date2, file=file,/nostr)142 ;help, oaf143 144 ;fi='/Volumes/Iomega_HDD/flux_reconstruction/ncep2/uwind_ncep2_oafluxgrid_19890101_20091231.nc'145 ;initncdf, fi146 ;u=read_ncdf("u", date1-1, date2, file=fi,/nostr)147 ;fi='/Volumes/Iomega_HDD/flux_reconstruction/ncep2/vwind_ncep2_oafluxgrid_19890101_20091231.nc'148 ;initncdf, fi149 ;v=read_ncdf("v", date1-1, date2, file=fi,/nostr)150 ;nce=sqrt(u*u+v*v)151 ;help, nce152 153 ;dir='/Volumes/Iomega_HDD/work/flux_reconstruction/gridded_data/'154 ;fi=dir+'zonal_wind_speed_oafluxgrid_30N30S.nc'155 ;initncdf, fi156 ;u=read_ncdf("u", date1, date2, file=fi,/nostr)157 ;fi=dir+'meridional_wind_speed_oafluxgrid_30N30S.nc'158 ;initncdf, fi159 ;v=read_ncdf("v", date1, date2, file=fi,/nostr)160 ;ws_tmi=sqrt(u*u+v*v)161 ;help, ws_tmi162 163 ;file='/Volumes/Iomega_HDD/flux_reconstruction/ncep/wind_ncep1_19890101_20091231.nc'164 ;initncdf, file165 ;u=read_ncdf("u", date1, date2, file=file,/nostr)166 ;v=read_ncdf("v", date1, date2, file=file,/nostr)167 ;nce1=sqrt(u*u+v*v)168 ;help, nce1169 170 176 ;save, unc, cor, oaf, nce, ws_tmi, nce1, filename="ws_era_trop_oaf_nce_qscat_2000_2009_global.idl" 171 177 restore, file="/Users/pkb/work/MY_SAXO/ws_era_trop_oaf_nce_qscat_2000_2009_global.idl" … … 173 179 174 180 nn=n_elements(sitelist) 175 date1=date1176 date2=date2177 181 for n=0, nn-1 do begin 178 182 … … 240 244 endfor 241 245 close,/all 242 fi_ws_erai= '/Users/pkb/work/MY_SAXO/flux_automat/ws_2000_2009_erai_'+ocean+'.txt'246 fi_ws_erai=tropflux_id_env+'ws_2000_2009_erai_'+ocean+'.txt' 243 247 res=read_ascii(fi_ws_erai,data_start=1) 244 248 ff=res.field1 … … 266 270 oplot, mean_tao, yfit, color=250, thick=2 267 271 268 fi_ws_trop= '/Users/pkb/work/MY_SAXO/flux_automat/ws_2000_2009_trop_'+ocean+'.txt'272 fi_ws_trop=tropflux_id_env+'ws_2000_2009_trop_'+ocean+'.txt' 269 273 res=read_ascii(fi_ws_trop,data_start=1) 270 274 ff=res.field1 … … 293 297 oplot, mean_tao, yfit, color=250, thick=2 294 298 295 fi_ws_oaflx= '/Users/pkb/work/MY_SAXO/flux_automat/ws_2000_2009_oaflx_'+ocean+'.txt'299 fi_ws_oaflx=tropflux_id_env+'ws_2000_2009_oaflx_'+ocean+'.txt' 296 300 res=read_ascii(fi_ws_oaflx,data_start=1) 297 301 ff=res.field1 … … 322 326 323 327 324 fi_ws_ncep= '/Users/pkb/work/MY_SAXO/flux_automat/ws_2000_2009_ncep_'+ocean+'.txt'328 fi_ws_ncep=tropflux_id_env+'ws_2000_2009_ncep_'+ocean+'.txt' 325 329 res=read_ascii(fi_ws_ncep,data_start=1) 326 330 ff=res.field1 … … 349 353 oplot, mean_tao, yfit, color=250, thick=2 350 354 351 fi_ws_tmi= '/Users/pkb/work/MY_SAXO/flux_automat/ws_2000_2009_tmi_'+ocean+'.txt'355 fi_ws_tmi=tropflux_id_env+'ws_2000_2009_tmi_'+ocean+'.txt' 352 356 res=read_ascii(fi_ws_tmi,data_start=1) 353 357 ff=res.field1 … … 377 381 378 382 379 fi_ws_ncep1= '/Users/pkb/work/MY_SAXO/flux_automat/ws_2000_2009_ncep1_'+ocean+'.txt'383 fi_ws_ncep1=tropflux_id_env+'ws_2000_2009_ncep1_'+ocean+'.txt' 380 384 res=read_ascii(fi_ws_ncep1,data_start=1) 381 385 ff=res.field1 … … 406 410 closeps 407 411 408 fig='ws_validation_scatter_2000_2009_'+ocean+'.ps' 409 spawn, 'mv '+psdir+'idl.ps '+cpsdir+fig 410 spawn, 'gv '+cpsdir+fig 411 return 412 fig=tropflux_od_env+'ws_validation_scatter_2000_2009_'+ocean+'.ps' 413 spawn, 'mv '+psdir+'idl.ps '+fig 414 spawn, 'gv '+fig 412 415 end 413 function x_site_location, site414 n1=strpos(site, 's')415 if (n1 gt -1) then begin416 ns=-1.417 x=strmid(site, 0, n1)418 x=float(x)*ns419 endif else begin420 n1=strpos(site, 'n')421 x=strmid(site, 0, n1)422 ny=1.423 x=float(x)*ny424 endelse425 return, float(x)426 end427 function y_site_location, site428 n1=strpos(site, 'e')429 if (n1 gt -1) then begin430 n=strpos(site, 's')431 if (n gt -1) then begin432 y=strmid(site, n+1, n1-n-1)433 endif else begin434 n=strpos(site, 'n')435 y=strmid(site, n+1, n1-n-1)436 endelse437 438 endif else begin439 n1=strpos(site, 'w')440 n=strpos(site, 's')441 if (n gt -1) then begin442 y=strmid(site, n+1, n1-n-1)443 y=180+(180-float(y))444 endif else begin445 n=strpos(site, 'n')446 y=strmid(site, n+1, n1-n-1)447 y=180+(180-float(y))448 endelse449 endelse450 return,float(y)451 end
Note: See TracChangeset
for help on using the changeset viewer.