Changeset 50 for trunk/src/paper01/fig7
- Timestamp:
- 04/29/11 11:09:12 (13 years ago)
- Location:
- trunk/src/paper01/fig7
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/src/paper01/fig7/air_validation_scatter_2000_2009_basin.pro
r46 r50 15 15 ; rankdir="LR", 16 16 ; ] 17 ; air_erai [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/air_2000_2009_erai_*.txt"];18 ; air_tropflux [shape=ellipse,fontname=Courier,label="${ TROPFLUX_OD}/air_2000_2009_trop_*.txt"];19 ; air_oaflux [shape=ellipse,fontname=Courier,label="${ TROPFLUX_OD}/air_2000_2009_oaflx_*.txt"];20 ; air_ncep2 [shape=ellipse,fontname=Courier,label="${ TROPFLUX_OD}/air_2000_2009_ncep2_*.txt"];21 ; air_ncep1 [shape=ellipse,fontname=Courier,label="${ TROPFLUX_OD}/air_2000_2009_ncep1_*.txt"];22 ; t2m_erai [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/erai_t2m_19890101_20091231_oafluxgrid.nc"];23 ; 24 ; figure [shape=ellipse,fontname=Courier,label="${ TROPFLUX_OD}/air_validation_scatter_2000_2009_basin.ps"];17 ; air_erai [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/air_2000_2009_erai_*.txt"]; 18 ; air_tropflux [shape=ellipse,fontname=Courier,label="${PROJECT_OD}/air_2000_2009_trop_*.txt"]; 19 ; air_oaflux [shape=ellipse,fontname=Courier,label="${PROJECT_OD}/air_2000_2009_oaflx_*.txt"]; 20 ; air_ncep2 [shape=ellipse,fontname=Courier,label="${PROJECT_OD}/air_2000_2009_ncep2_*.txt"]; 21 ; air_ncep1 [shape=ellipse,fontname=Courier,label="${PROJECT_OD}/air_2000_2009_ncep1_*.txt"]; 22 ; t2m_erai [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/erai_t2m_19890101_20091231_oafluxgrid.nc"]; 23 ; 24 ; figure [shape=ellipse,fontname=Courier,label="${PROJECT_OD}/air_validation_scatter_2000_2009_basin.ps"]; 25 25 ; 26 26 ; air_validation_scatter_2000_2009_basin [shape=box, … … 36 36 ; ======== 37 37 ; 38 ; :ref:` tropflux_profile.sh`39 ; :ref:` tropflux_init.pro`40 ; :ref:`cm_ tropflux.pro`38 ; :ref:`project_profile.sh` 39 ; :ref:`project_init.pro` 40 ; :ref:`cm_project.pro` 41 41 ; 42 42 ; :func:`x_site_location` … … 51 51 ; :: 52 52 ; 53 ; IDL> @tropflux_init54 53 ; IDL> date1=19890101L 55 54 ; IDL> date2=20091231L … … 90 89 pro air_validation_scatter_2000_2009_basin, date1, date2 91 90 @cm_general 92 @cm_ tropflux91 @cm_project 93 92 reinitplt, /z,/invert 94 93 key_portrait = 1 … … 150 149 close,/all 151 150 152 fi_air_erai= tropflux_id_env+'air_2000_2009_erai_'+ocean+'.txt'151 fi_air_erai=project_id_env+'air_2000_2009_erai_'+ocean+'.txt' 153 152 openw,1,fi_air_erai 154 fi_air_trop= tropflux_id_env+'air_2000_2009_trop_'+ocean+'.txt'153 fi_air_trop=project_id_env+'air_2000_2009_trop_'+ocean+'.txt' 155 154 openw,2,fi_air_trop 156 fi_air_oaflx= tropflux_id_env+'air_2000_2009_oaflx_'+ocean+'.txt'155 fi_air_oaflx=project_id_env+'air_2000_2009_oaflx_'+ocean+'.txt' 157 156 openw,3,fi_air_oaflx 158 fi_air_ncep2= tropflux_id_env+'air_2000_2009_ncep2_'+ocean+'.txt'157 fi_air_ncep2=project_id_env+'air_2000_2009_ncep2_'+ocean+'.txt' 159 158 openw,4,fi_air_ncep2 160 fi_air_ncep1= tropflux_id_env+'air_2000_2009_ncep1_'+ocean+'.txt'159 fi_air_ncep1=project_id_env+'air_2000_2009_ncep1_'+ocean+'.txt' 161 160 openw,5,fi_air_ncep1 162 161 … … 170 169 ;; first reading the whole ERAI uncorrected and corrected data 171 170 172 file= tropflux_id_env+'erai_t2m_19890101_20091231_oafluxgrid.nc'171 file=project_id_env+'erai_t2m_19890101_20091231_oafluxgrid.nc' 173 172 initncdf, file 174 173 unc=read_ncdf('t2m',date1,date2,file=file,/nostr) & unc=unc-273.15 … … 248 247 close,/all 249 248 250 fi_air_erai= tropflux_id_env+'air_2000_2009_erai_'+ocean+'.txt'249 fi_air_erai=project_id_env+'air_2000_2009_erai_'+ocean+'.txt' 251 250 res=read_ascii(fi_air_erai,data_start=1) 252 251 ff=res.field1 … … 274 273 oplot, mean_tao, yfit, color=250, thick=2 275 274 276 fi_air_trop= tropflux_id_env+'air_2000_2009_trop_'+ocean+'.txt'275 fi_air_trop=project_id_env+'air_2000_2009_trop_'+ocean+'.txt' 277 276 res=read_ascii(fi_air_trop,data_start=1) 278 277 ff=res.field1 … … 301 300 oplot, mean_tao, yfit, color=250, thick=2 302 301 303 fi_air_oaflx= tropflux_id_env+'air_2000_2009_oaflx_'+ocean+'.txt'302 fi_air_oaflx=project_id_env+'air_2000_2009_oaflx_'+ocean+'.txt' 304 303 res=read_ascii(fi_air_oaflx,data_start=1) 305 304 ff=res.field1 … … 330 329 331 330 332 fi_air_ncep= tropflux_id_env+'air_2000_2009_ncep2_'+ocean+'.txt'331 fi_air_ncep=project_id_env+'air_2000_2009_ncep2_'+ocean+'.txt' 333 332 res=read_ascii(fi_air_ncep,data_start=1) 334 333 ff=res.field1 … … 357 356 oplot, mean_tao, yfit, color=250, thick=2 358 357 359 fi_air_ncep1= tropflux_id_env+'air_2000_2009_ncep1_'+ocean+'.txt'358 fi_air_ncep1=project_id_env+'air_2000_2009_ncep1_'+ocean+'.txt' 360 359 res=read_ascii(fi_air_ncep1,data_start=1) 361 360 ff=res.field1 … … 386 385 closeps 387 386 388 fig= tropflux_od_env+'air_validation_scatter_2000_2009_'+ocean+'.ps'387 fig=project_od_env+'air_validation_scatter_2000_2009_'+ocean+'.ps' 389 388 spawn, 'mv '+psdir+'idl.ps '+fig 390 389 spawn, 'gv '+fig -
trunk/src/paper01/fig7/q2m_validation_scatter_2000_2009_basin.pro
r46 r50 15 15 ; rankdir="LR", 16 16 ; ] 17 ; q2m_erai [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/q2m_2000_2009_erai_*.txt"];18 ; q2m_erai_2 [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/erai_q2m_19890101_20091231_oafluxgrid.nc"];19 ; q2m_tropflux [shape=ellipse,fontname=Courier,label="${ TROPFLUX_OD}/q2m_2000_2009_trop_*.txt"];20 ; q2m_oaflux [shape=ellipse,fontname=Courier,label="${ TROPFLUX_OD}/q2m_2000_2009_oaflx_*.txt"];21 ; q2m_ncep [shape=ellipse,fontname=Courier,label="${ TROPFLUX_OD}/q2m_2000_2009_ncep_*.txt"];22 ; q2m_ncep1 [shape=ellipse,fontname=Courier,label="${ TROPFLUX_OD}/q2m_2000_2009_ncep1_*.txt"];23 ; 24 ; figure [shape=ellipse,fontname=Courier,label="${ TROPFLUX_OD}/q2m_validation_scatter_2000_2009_basin.ps"];17 ; q2m_erai [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/q2m_2000_2009_erai_*.txt"]; 18 ; q2m_erai_2 [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/erai_q2m_19890101_20091231_oafluxgrid.nc"]; 19 ; q2m_tropflux [shape=ellipse,fontname=Courier,label="${PROJECT_OD}/q2m_2000_2009_trop_*.txt"]; 20 ; q2m_oaflux [shape=ellipse,fontname=Courier,label="${PROJECT_OD}/q2m_2000_2009_oaflx_*.txt"]; 21 ; q2m_ncep [shape=ellipse,fontname=Courier,label="${PROJECT_OD}/q2m_2000_2009_ncep_*.txt"]; 22 ; q2m_ncep1 [shape=ellipse,fontname=Courier,label="${PROJECT_OD}/q2m_2000_2009_ncep1_*.txt"]; 23 ; 24 ; figure [shape=ellipse,fontname=Courier,label="${PROJECT_OD}/q2m_validation_scatter_2000_2009_basin.ps"]; 25 25 ; 26 26 ; q2m_validation_scatter_2000_2009_basin [shape=box, … … 36 36 ; ======== 37 37 ; 38 ; :ref:` tropflux_profile.sh`39 ; :ref:` tropflux_init.pro`40 ; :ref:`cm_ tropflux.pro`38 ; :ref:`project_profile.sh` 39 ; :ref:`project_init.pro` 40 ; :ref:`cm_project.pro` 41 41 ; 42 42 ; :func:`x_site_location` … … 51 51 ; :: 52 52 ; 53 ; IDL> @tropflux_init54 53 ; IDL> date1=19890101L 55 54 ; IDL> date2=20091231L … … 90 89 pro q2m_validation_scatter_2000_2009_basin, date1, date2 91 90 @cm_general 92 @cm_ tropflux91 @cm_project 93 92 reinitplt, /z,/invert 94 93 key_portrait = 1 … … 148 147 close,/all 149 148 150 fi_q2m_erai= tropflux_id_env+'q2m_2000_2009_erai_'+ocean+'.txt'149 fi_q2m_erai=project_id_env+'q2m_2000_2009_erai_'+ocean+'.txt' 151 150 openw,1,fi_q2m_erai 152 fi_q2m_trop= tropflux_id_env+'q2m_2000_2009_trop_'+ocean+'.txt'151 fi_q2m_trop=project_id_env+'q2m_2000_2009_trop_'+ocean+'.txt' 153 152 openw,2,fi_q2m_trop 154 fi_q2m_oaflx= tropflux_id_env+'q2m_2000_2009_oaflx_'+ocean+'.txt'153 fi_q2m_oaflx=project_id_env+'q2m_2000_2009_oaflx_'+ocean+'.txt' 155 154 openw,3,fi_q2m_oaflx 156 fi_q2m_ncep= tropflux_id_env+'q2m_2000_2009_ncep_'+ocean+'.txt'155 fi_q2m_ncep=project_id_env+'q2m_2000_2009_ncep_'+ocean+'.txt' 157 156 openw,4,fi_q2m_ncep 158 fi_q2m_ncep1= tropflux_id_env+'q2m_2000_2009_ncep1_'+ocean+'.txt'157 fi_q2m_ncep1=project_id_env+'q2m_2000_2009_ncep1_'+ocean+'.txt' 159 158 openw,5,fi_q2m_ncep1 160 159 … … 168 167 ;; first reading the whole ERAI uncorrected and corrected data 169 168 170 file= tropflux_id_env+'erai_q2m_19890101_20091231_oafluxgrid.nc'169 file=project_id_env+'erai_q2m_19890101_20091231_oafluxgrid.nc' 171 170 initncdf, file 172 171 unc=read_ncdf('q2m',date1,date2,file=file,/nostr) … … 245 244 close,/all 246 245 247 fi_q2m_erai= tropflux_id_env+'q2m_2000_2009_erai_'+ocean+'.txt'246 fi_q2m_erai=project_id_env+'q2m_2000_2009_erai_'+ocean+'.txt' 248 247 res=read_ascii(fi_q2m_erai,data_start=1) 249 248 ff=res.field1 … … 271 270 oplot, mean_tao, yfit, color=250, thick=2 272 271 273 fi_q2m_trop= tropflux_id_env+'q2m_2000_2009_trop_'+ocean+'.txt'272 fi_q2m_trop=project_id_env+'q2m_2000_2009_trop_'+ocean+'.txt' 274 273 res=read_ascii(fi_q2m_trop,data_start=1) 275 274 ff=res.field1 … … 298 297 oplot, mean_tao, yfit, color=250, thick=2 299 298 300 fi_q2m_oaflx= tropflux_id_env+'q2m_2000_2009_oaflx_'+ocean+'.txt'299 fi_q2m_oaflx=project_id_env+'q2m_2000_2009_oaflx_'+ocean+'.txt' 301 300 res=read_ascii(fi_q2m_oaflx,data_start=1) 302 301 ff=res.field1 … … 326 325 327 326 328 fi_q2m_ncep= tropflux_id_env+'q2m_2000_2009_ncep_'+ocean+'.txt'327 fi_q2m_ncep=project_id_env+'q2m_2000_2009_ncep_'+ocean+'.txt' 329 328 res=read_ascii(fi_q2m_ncep,data_start=1) 330 329 ff=res.field1 … … 353 352 oplot, mean_tao, yfit, color=250, thick=2 354 353 355 fi_q2m_ncep1= tropflux_id_env+'q2m_2000_2009_ncep1_'+ocean+'.txt'354 fi_q2m_ncep1=project_id_env+'q2m_2000_2009_ncep1_'+ocean+'.txt' 356 355 res=read_ascii(fi_q2m_ncep1,data_start=1) 357 356 ff=res.field1 … … 382 381 closeps 383 382 384 fig= tropflux_od_env+'q2m_validation_scatter_2000_2009_'+ocean+'.ps'383 fig=project_od_env+'q2m_validation_scatter_2000_2009_'+ocean+'.ps' 385 384 spawn, 'mv '+psdir+'idl.ps '+fig 386 385 spawn, 'gv '+fig -
trunk/src/paper01/fig7/sst_validation_scatter_2000_2009_basin.pro
r46 r50 15 15 ; rankdir="LR", 16 16 ; ] 17 ; sst_erai [shape=ellipse,fontname=Courier,label="${ TROPFLUX_ID}/sst_2000_2009_erai_*.txt"];18 ; sst_tropflux [shape=ellipse,fontname=Courier,label="${ TROPFLUX_OD}/sst_2000_2009_trop_*.txt"];19 ; sst_oaflux [shape=ellipse,fontname=Courier,label="${ TROPFLUX_OD}/sst_2000_2009_oaflx_*.txt"];20 ; sst_ncep [shape=ellipse,fontname=Courier,label="${ TROPFLUX_OD}/sst_2000_2009_ncep_*.txt"];21 ; sst_ncep1 [shape=ellipse,fontname=Courier,label="${ TROPFLUX_OD}/sst_2000_2009_ncep1_*.txt"];22 ; sst_tmi [shape=ellipse,fontname=Courier,label="${ TROPFLUX_OD}/sst_2000_2009_tmi_*.txt"];23 ; 24 ; figure [shape=ellipse,fontname=Courier,label="${ TROPFLUX_OD}/sst_validation_scatter_2000_2009_basin.ps"];17 ; sst_erai [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/sst_2000_2009_erai_*.txt"]; 18 ; sst_tropflux [shape=ellipse,fontname=Courier,label="${PROJECT_OD}/sst_2000_2009_trop_*.txt"]; 19 ; sst_oaflux [shape=ellipse,fontname=Courier,label="${PROJECT_OD}/sst_2000_2009_oaflx_*.txt"]; 20 ; sst_ncep [shape=ellipse,fontname=Courier,label="${PROJECT_OD}/sst_2000_2009_ncep_*.txt"]; 21 ; sst_ncep1 [shape=ellipse,fontname=Courier,label="${PROJECT_OD}/sst_2000_2009_ncep1_*.txt"]; 22 ; sst_tmi [shape=ellipse,fontname=Courier,label="${PROJECT_OD}/sst_2000_2009_tmi_*.txt"]; 23 ; 24 ; figure [shape=ellipse,fontname=Courier,label="${PROJECT_OD}/sst_validation_scatter_2000_2009_basin.ps"]; 25 25 ; 26 26 ; sst_validation_scatter_2000_2009_basin [shape=box, … … 36 36 ; ======== 37 37 ; 38 ; :ref:` tropflux_profile.sh`39 ; :ref:` tropflux_init.pro`40 ; :ref:`cm_ tropflux.pro`38 ; :ref:`project_profile.sh` 39 ; :ref:`project_init.pro` 40 ; :ref:`cm_project.pro` 41 41 ; 42 42 ; :func:`x_site_location` … … 51 51 ; :: 52 52 ; 53 ; IDL> @tropflux_init54 53 ; IDL> date1=19890101L 55 54 ; IDL> date2=20091231L … … 89 88 pro sst_validation_scatter_2000_2009_basin, date1, date2 90 89 @cm_general 91 @cm_ tropflux90 @cm_project 92 91 reinitplt, /z,/invert 93 92 key_portrait = 1 … … 126 125 close,/all 127 126 128 fi_sst_erai= tropflux_id_env+'sst_2000_2009_erai_'+ocean+'.txt'127 fi_sst_erai=project_id_env+'sst_2000_2009_erai_'+ocean+'.txt' 129 128 openw,1,fi_sst_erai 130 fi_sst_trop= tropflux_id_env+'sst_2000_2009_trop_'+ocean+'.txt'129 fi_sst_trop=project_id_env+'sst_2000_2009_trop_'+ocean+'.txt' 131 130 openw,2,fi_sst_trop 132 fi_sst_oaflx= tropflux_id_env+'sst_2000_2009_oaflx_'+ocean+'.txt'131 fi_sst_oaflx=project_id_env+'sst_2000_2009_oaflx_'+ocean+'.txt' 133 132 openw,3,fi_sst_oaflx 134 fi_sst_ncep= tropflux_id_env+'sst_2000_2009_ncep_'+ocean+'.txt'133 fi_sst_ncep=project_id_env+'sst_2000_2009_ncep_'+ocean+'.txt' 135 134 openw,4,fi_sst_ncep 136 fi_sst_tmi= tropflux_id_env+'sst_2000_2009_tmi_'+ocean+'.txt'135 fi_sst_tmi=project_id_env+'sst_2000_2009_tmi_'+ocean+'.txt' 137 136 openw,5,fi_sst_tmi 138 fi_sst_ncep1= tropflux_id_env+'sst_2000_2009_ncep1_'+ocean+'.txt'137 fi_sst_ncep1=project_id_env+'sst_2000_2009_ncep1_'+ocean+'.txt' 139 138 openw,6,fi_sst_ncep1 140 139 … … 228 227 close,/all 229 228 230 fi_sst_erai= tropflux_id_env+'sst_2000_2009_erai_'+ocean+'.txt'229 fi_sst_erai=project_id_env+'sst_2000_2009_erai_'+ocean+'.txt' 231 230 res=read_ascii(fi_sst_erai,data_start=1) 232 231 ff=res.field1 … … 254 253 oplot, mean_tao, yfit, color=250, thick=2 255 254 256 fi_sst_trop= tropflux_id_env+'sst_2000_2009_trop_'+ocean+'.txt'255 fi_sst_trop=project_id_env+'sst_2000_2009_trop_'+ocean+'.txt' 257 256 res=read_ascii(fi_sst_trop,data_start=1) 258 257 ff=res.field1 … … 281 280 oplot, mean_tao, yfit, color=250, thick=2 282 281 283 fi_sst_oaflx= tropflux_id_env+'sst_2000_2009_oaflx_'+ocean+'.txt'282 fi_sst_oaflx=project_id_env+'sst_2000_2009_oaflx_'+ocean+'.txt' 284 283 res=read_ascii(fi_sst_oaflx,data_start=1) 285 284 ff=res.field1 … … 310 309 311 310 312 fi_sst_ncep= tropflux_id_env+'sst_2000_2009_ncep_'+ocean+'.txt'311 fi_sst_ncep=project_id_env+'sst_2000_2009_ncep_'+ocean+'.txt' 313 312 res=read_ascii(fi_sst_ncep,data_start=1) 314 313 ff=res.field1 … … 338 337 339 338 340 fi_sst_tmi= tropflux_id_env+'sst_2000_2009_tmi_'+ocean+'.txt'339 fi_sst_tmi=project_id_env+'sst_2000_2009_tmi_'+ocean+'.txt' 341 340 res=read_ascii(fi_sst_tmi,data_start=1) 342 341 ff=res.field1 … … 365 364 oplot, mean_tao, yfit, color=250, thick=2 366 365 367 fi_sst_ncep1= tropflux_id_env+'sst_2000_2009_ncep1_'+ocean+'.txt'366 fi_sst_ncep1=project_id_env+'sst_2000_2009_ncep1_'+ocean+'.txt' 368 367 res=read_ascii(fi_sst_ncep1,data_start=1) 369 368 ff=res.field1 … … 394 393 closeps 395 394 396 fig= tropflux_od_env+'sst_validation_scatter_2000_2009_'+ocean+'.ps'395 fig=project_od_env+'sst_validation_scatter_2000_2009_'+ocean+'.ps' 397 396 spawn, 'mv '+psdir+'idl.ps '+fig 398 397 spawn, 'gv '+fig -
trunk/src/paper01/fig7/ws_validation_scatter_2000_2009_basin.pro
r46 r50 16 16 ; rankdir="LR", 17 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"];18 ; ws_erai [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/ws_2000_2009_erai_*.txt"]; 19 ; ws_tropflux [shape=ellipse,fontname=Courier,label="${PROJECT_OD}/ws_2000_2009_trop_*.txt"]; 20 ; ws_oaflux [shape=ellipse,fontname=Courier,label="${PROJECT_OD}/ws_2000_2009_oaflx_*.txt"]; 21 ; ws_ncep [shape=ellipse,fontname=Courier,label="${PROJECT_OD}/ws_2000_2009_ncep_*.txt"]; 22 ; ws_ncep1 [shape=ellipse,fontname=Courier,label="${PROJECT_OD}/ws_2000_2009_ncep1_*.txt"]; 23 ; ws_tmi [shape=ellipse,fontname=Courier,label="${PROJECT_OD}/ws_2000_2009_tmi_*.txt"]; 24 ; 25 ; figure [shape=ellipse,fontname=Courier,label="${PROJECT_OD}/ws_validation_scatter_2000_2009_basin.ps"]; 26 26 ; 27 27 ; ws_validation_scatter_2000_2009_basin [shape=box, … … 37 37 ; ======== 38 38 ; 39 ; :ref:` tropflux_profile.sh`40 ; :ref:` tropflux_init.pro`41 ; :ref:`cm_ tropflux.pro`39 ; :ref:`project_profile.sh` 40 ; :ref:`project_init.pro` 41 ; :ref:`cm_project.pro` 42 42 ; 43 43 ; :func:`x_site_location` … … 52 52 ; :: 53 53 ; 54 ; IDL> @tropflux_init55 54 ; IDL> date1=19890101L 56 55 ; IDL> date2=20091231L … … 84 83 pro ws_validation_scatter_2000_2009_basin,date1,date2 85 84 @cm_general 86 @cm_ tropflux85 @cm_project 87 86 reinitplt, /z,/invert 88 87 key_portrait = 1 … … 143 142 close,/all 144 143 145 fi_ws_erai= tropflux_id_env+'ws_2000_2009_erai_'+ocean+'.txt'144 fi_ws_erai=project_id_env+'ws_2000_2009_erai_'+ocean+'.txt' 146 145 openw,1,fi_ws_erai 147 fi_ws_trop= tropflux_id_env+'ws_2000_2009_trop_'+ocean+'.txt'146 fi_ws_trop=project_id_env+'ws_2000_2009_trop_'+ocean+'.txt' 148 147 openw,2,fi_ws_trop 149 fi_ws_oaflx= tropflux_id_env+'ws_2000_2009_oaflx_'+ocean+'.txt'148 fi_ws_oaflx=project_id_env+'ws_2000_2009_oaflx_'+ocean+'.txt' 150 149 openw,3,fi_ws_oaflx 151 fi_ws_ncep= tropflux_id_env+'ws_2000_2009_ncep_'+ocean+'.txt'150 fi_ws_ncep=project_id_env+'ws_2000_2009_ncep_'+ocean+'.txt' 152 151 openw,4,fi_ws_ncep 153 fi_ws_tmi= tropflux_id_env+'ws_2000_2009_tmi_'+ocean+'.txt'152 fi_ws_tmi=project_id_env+'ws_2000_2009_tmi_'+ocean+'.txt' 154 153 openw,5,fi_ws_tmi 155 fi_ws_ncep1= tropflux_id_env+'ws_2000_2009_ncep1_'+ocean+'.txt'154 fi_ws_ncep1=project_id_env+'ws_2000_2009_ncep1_'+ocean+'.txt' 156 155 openw,6,fi_ws_ncep1 157 156 … … 167 166 ;; date1=20000101 & date2=20090931 168 167 169 file= tropflux_id_env+'erai_ws_19890101_20091231_oafluxgrid.nc'168 file=project_id_env+'erai_ws_19890101_20091231_oafluxgrid.nc' 170 169 initncdf, file 171 170 u=read_ncdf('u10',date1,date2,file=file,/nostr) … … 244 243 endfor 245 244 close,/all 246 fi_ws_erai= tropflux_id_env+'ws_2000_2009_erai_'+ocean+'.txt'245 fi_ws_erai=project_id_env+'ws_2000_2009_erai_'+ocean+'.txt' 247 246 res=read_ascii(fi_ws_erai,data_start=1) 248 247 ff=res.field1 … … 270 269 oplot, mean_tao, yfit, color=250, thick=2 271 270 272 fi_ws_trop= tropflux_id_env+'ws_2000_2009_trop_'+ocean+'.txt'271 fi_ws_trop=project_id_env+'ws_2000_2009_trop_'+ocean+'.txt' 273 272 res=read_ascii(fi_ws_trop,data_start=1) 274 273 ff=res.field1 … … 297 296 oplot, mean_tao, yfit, color=250, thick=2 298 297 299 fi_ws_oaflx= tropflux_id_env+'ws_2000_2009_oaflx_'+ocean+'.txt'298 fi_ws_oaflx=project_id_env+'ws_2000_2009_oaflx_'+ocean+'.txt' 300 299 res=read_ascii(fi_ws_oaflx,data_start=1) 301 300 ff=res.field1 … … 326 325 327 326 328 fi_ws_ncep= tropflux_id_env+'ws_2000_2009_ncep_'+ocean+'.txt'327 fi_ws_ncep=project_id_env+'ws_2000_2009_ncep_'+ocean+'.txt' 329 328 res=read_ascii(fi_ws_ncep,data_start=1) 330 329 ff=res.field1 … … 353 352 oplot, mean_tao, yfit, color=250, thick=2 354 353 355 fi_ws_tmi= tropflux_id_env+'ws_2000_2009_tmi_'+ocean+'.txt'354 fi_ws_tmi=project_id_env+'ws_2000_2009_tmi_'+ocean+'.txt' 356 355 res=read_ascii(fi_ws_tmi,data_start=1) 357 356 ff=res.field1 … … 381 380 382 381 383 fi_ws_ncep1= tropflux_id_env+'ws_2000_2009_ncep1_'+ocean+'.txt'382 fi_ws_ncep1=project_id_env+'ws_2000_2009_ncep1_'+ocean+'.txt' 384 383 res=read_ascii(fi_ws_ncep1,data_start=1) 385 384 ff=res.field1 … … 410 409 closeps 411 410 412 fig= tropflux_od_env+'ws_validation_scatter_2000_2009_'+ocean+'.ps'411 fig=project_od_env+'ws_validation_scatter_2000_2009_'+ocean+'.ps' 413 412 spawn, 'mv '+psdir+'idl.ps '+fig 414 413 spawn, 'gv '+fig
Note: See TracChangeset
for help on using the changeset viewer.