- Timestamp:
- 08/25/11 13:02:20 (13 years ago)
- Location:
- trunk/src
- Files:
-
- 62 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/src/TropFlux_19890101_20091231.pro
r90 r94 405 405 ENDIF 406 406 ; 407 da1=19880101 & da2=20101231 407 da1=19880101 408 da2=20101231 408 409 ; 409 410 initncdf, fullfilename_msk … … 414 415 ws=read_ncdf('ws',da1,da2,file=fullfilename_ws,/nostr) 415 416 wg=read_ncdf('wg',da1-1,da2,file=fullfilename_wg,/nostr) 416 tt=time & jpt=n_elements(time) 417 tt=time 418 jpt=n_elements(time) 417 419 sst=read_ncdf('sst',da1,da2,file=fullfilename_sst,/nostr) 418 420 sst=reform(sst-273.15) … … 430 432 ocean=where(msk eq 1,compl=land) 431 433 valmask=1.e20 432 time=tt & jpt=n_elements(time) 434 time=tt 435 jpt=n_elements(time) 433 436 434 437 ; … … 460 463 print, 'Computing Fluxes ',jt,' / ',jpt-1 461 464 ; 462 ; P=msl(*,*,jt) & P=P(ocean) 463 wn=w(*,*,jt) & wn=wn(ocean) ; wind speed (m/s) 464 ts=sst(*,*,jt) & ts=ts(ocean) ; Bulk sst (°C) 465 ; P=msl(*,*,jt) 466 ; P=P(ocean) 467 468 ; wind speed (m/s) 469 wn=w(*,*,jt) 470 wn=wn(ocean) 471 ; Bulk sst (°C) 472 ts=sst(*,*,jt) 473 ts=ts(ocean) 465 474 ; 2m Air T (°C) 466 475 t=t2m(*,*,jt) 467 476 t=t(ocean) 468 qs=qsee(ts,P) ; Sea surface sat. spec. humidity (g/kg) 469 q=q2m(*,*,jt) & q=q(ocean) ; 2m AIr specific humidity (g/kg) 470 Rs=swd(*,*,jt) & Rs=Rs(ocean) ; Downward solar flux (W/m2) 477 ; Sea surface sat. spec. humidity (g/kg) 478 qs=qsee(ts,P) 479 ; 2m AIr specific humidity (g/kg) 480 q=q2m(*,*,jt) 481 q=q(ocean) 482 ; Downward solar flux (W/m2) 483 Rs=swd(*,*,jt) 484 Rs=Rs(ocean) 471 485 ylat=gphit(ocean) 472 ; cld=calc_cloud(jday,Rs,ylat)486 ; cld=calc_cloud(jday,Rs,ylat) 473 487 cld=calc_cloud_vlat(jday,Rs,ylat) 474 ; Rl=lwdown_clark(ts,q,cld,t,P) ; Downward IR flux (W/m2) 475 Rl=lw(*,*,jt) & Rl=Rl(ocean) 488 ; Downward IR flux (W/m2) 489 ; Rl=lwdown_clark(ts,q,cld,t,P) 490 Rl=lw(*,*,jt) 491 Rl=Rl(ocean) 476 492 rain=0. 477 493 lw_clrk=-lwnet_clark(ts,q,cld,t,P) … … 524 540 endfor 525 541 tt=time 526 time=timegen(7670, start=julday(1,1,1989,0), units='days') & jpt=n_elements(time) 542 time=timegen(7670, start=julday(1,1,1989,0), units='days') 543 jpt=n_elements(time) 527 544 ; 528 545 cda0=string(jul2date(time(0)),format='(i8.8)') 529 546 cda1=string(jul2date(time(jpt-1)),format='(i8.8)') 530 547 tt=time-julday(1,1,1950,00,00,00) 531 xlon=reform(glamt(*,0) ) & ylat=reform(gphit(0,*)) 548 xlon=reform(glamt(*,0) ) 549 ylat=reform(gphit(0,*)) 532 550 533 551 ncfile='!' + fullfilename_out -
trunk/src/TropFlux_NRT_ncdf.pro
r90 r94 187 187 ENDIF 188 188 ; 189 st=19800101 & en=20101231 189 st=19800101 190 en=20101231 190 191 191 192 initncdf, fullfilename_swr_blnd … … 202 203 help, swr, lwr, lhf, shf 203 204 204 ;time=julday(1,1,1989)+lindgen(7670)+0.5 & jpt=n_elements(time) 205 time=timegen(7670, units='days', start=julday(1,1,1989,0)) & jpt=n_elements(time) 205 ;time=julday(1,1,1989)+lindgen(7670)+0.5 206 ;jpt=n_elements(time) 207 time=timegen(7670, units='days', start=julday(1,1,1989,0)) 208 jpt=n_elements(time) 206 209 207 210 cda0=string(jul2date(time(0)),format='(i8.8)') -
trunk/src/TropFlux_swr_BLND_19890101_20091231.pro
r90 r94 274 274 swr_merged=swr_dt*0. 275 275 276 time=timegen(7670, units='days', start=julday(1,1,1989,0)) & jpt=n_elements(time) 276 time=timegen(7670, units='days', start=julday(1,1,1989,0)) 277 jpt=n_elements(time) 277 278 278 279 a=interpol([1.,0.],[julday(10,01,2007),julday(12,31,2007)],time) … … 283 284 284 285 initncdf, fullfilename_wg 285 time=timegen(7670, units='days', start=julday(1,1,1989,0)) & jpt=n_elements(time) 286 time=timegen(7670, units='days', start=julday(1,1,1989,0)) 287 jpt=n_elements(time) 286 288 lat=reform(gphit(0,0:jpj-1)) 287 289 lon=reform(glamt(0:jpi-1,0)) -
trunk/src/TropFlux_swr_DT_19890101_20071231.pro
r90 r94 179 179 help, sw_mean 180 180 181 tt=time & jpt=n_elements(time) 181 tt=time 182 jpt=n_elements(time) 182 183 caldat, time,mon,day,yea 183 sw_m=sw*0. & sw_bias=sw*0. 184 sw_m=sw*0. 185 sw_bias=sw*0. 184 186 185 187 for jt=0,jpt-1 do begin … … 202 204 lat=reform(gphit(0,0:jpj-1)) 203 205 lon=reform(glamt(0:jpi-1,0)) 204 time=time-julday(1,1,1950) & jpt=n_elements(time) 206 time=time-julday(1,1,1950) 207 jpt=n_elements(time) 205 208 206 209 ncfile='!' + fullfilename_out -
trunk/src/TropFlux_swr_NRT_19890101_20091231.pro
r90 r94 207 207 nsmooth=45 208 208 209 swi=[[[swi]],[[swi]],[[swi]]] & olri=[[[olri]],[[olri]],[[olri]]] 210 si=size(sw) & n1=si(1) & n2=si(2) 209 swi=[[[swi]],[[swi]],[[swi]]] 210 olri=[[[olri]],[[olri]],[[olri]]] 211 si=size(sw) 212 n1=si(1) 213 n2=si(2) 211 214 212 215 for j=0,n2-1 do begin … … 219 222 endfor 220 223 221 swi=swi[*,*,365:365+364] & olri=olri[*,*,365:365+364] 224 swi=swi[*,*,365:365+364] 225 olri=olri[*,*,365:365+364] 222 226 help, swi 223 227 224 228 initncdf, fullfilename_olr 225 229 olr=read_ncdf('olr', 19890100, 20091231, box=box, file=fullfilename_olr,/nostr) 226 tt=time & jpt=n_elements(time) 230 tt=time 231 jpt=n_elements(time) 227 232 caldat, time,mon,day,yea 228 swm=olr*0. & olrm=olr*0. 233 swm=olr*0. 234 olrm=olr*0. 229 235 for jt=0,jpt-1 do begin 230 236 jtt=(time(jt)-julday(1,1,yea(jt))) < 364 … … 244 250 lat=reform(gphit(0,0:jpj-1)) 245 251 lon=reform(glamt(0:jpi-1,0)) 246 time=time-julday(1,1,1950) & jpt=n_elements(time) 252 time=time-julday(1,1,1950) 253 jpt=n_elements(time) 247 254 248 255 ncfile='!' + fullfilename_out -
trunk/src/calc_cloud_vlat.pro
r88 r94 23 23 24 24 pi=!pi 25 xlat=double(xlat) & NN=n_elements(xlat) 25 xlat=double(xlat) 26 NN=n_elements(xlat) 26 27 27 28 CLD=SWR*0.+!values.f_nan -
trunk/src/cronin_gustiness_ncdf.pro
r88 r94 61 61 ; coding rules 62 62 ; 63 ; why da1=19880101 &da2=20101231 ? should be 19890101 and 20091231 or better63 ; why da1=19880101 and da2=20101231 ? should be 19890101 and 20091231 or better 64 64 ; deduce from reading sst 65 65 ; … … 135 135 ENDIF 136 136 ; 137 da1=19880101 & da2=20101231 137 da1=19880101 138 da2=20101231 138 139 ; 139 140 ; build data filename … … 159 160 ; 160 161 initncdf, fullfilename 161 sst=read_ncdf('sst',da1,da2,file=fullfilename,/nostr) & sst=reform(sst-273.15) 162 sst=read_ncdf('sst',da1,da2,file=fullfilename,/nostr) 163 sst=reform(sst-273.15) 162 164 help, sst 163 165 … … 175 177 176 178 ;; writing field 177 time=timegen(7670, units='days', start=julday(1,1,1989,0)) & jpt=n_elements(time) 179 time=timegen(7670, units='days', start=julday(1,1,1989,0)) 180 jpt=n_elements(time) 178 181 179 182 cda0=string(jul2date(time(0)),format='(i8.8)') 180 183 cda1=string(jul2date(time(jpt-1)),format='(i8.8)') 181 184 tt=time-julday(1,1,1950,00,00,00) 182 xlon=reform(glamt(*,0) ) & ylat=reform(gphit(0,*)) 185 xlon=reform(glamt(*,0) ) 186 ylat=reform(gphit(0,*)) 183 187 184 188 ncfile='!' + fullfilename_out -
trunk/src/d2m_to_q2m_erai.pro
r93 r94 186 186 ENDIF 187 187 ; 188 d1=19881001 & d2=20101231 188 d1=19881001 189 d2=20101231 189 190 ; 190 191 ; build d2m filename … … 244 245 initncdf, fullfilename_t2m 245 246 t=read_ncdf("t2m", d1,d2, file=fullfilename_t2m,/nostr) 246 tt=time &jpt=n_elements(time) 247 tt=time 248 jpt=n_elements(time) 247 249 help, t, td 248 250 … … 270 272 ;writing field 271 273 ncfile='!' + fullfilename_out 272 time=timegen(7670, units='days', start=julday(1,1,1989)) & jpt=n_elements(time) 274 time=timegen(7670, units='days', start=julday(1,1,1989)) 275 jpt=n_elements(time) 273 276 cda0=string(jul2date(time(0)),format='(i8.8)') 274 277 cda1=string(jul2date(time(jpt-1)),format='(i8.8)') 275 278 276 279 tt=time-julday(1,1,1950,00,00,00) 277 xlon=reform(glamt(*,0) ) & ylat=reform(gphit(0,*)) 280 xlon=reform(glamt(*,0) ) 281 ylat=reform(gphit(0,*)) 278 282 valmask=1.e20 279 283 -
trunk/src/interp_erai_dewt_1989_2009.pro
r93 r94 235 235 initncdf, fullfilename 236 236 domdef 237 latin=reform(gphit(0,*)) & lonin=reform(glamt(*,0)) 237 latin=reform(gphit(0,*)) 238 lonin=reform(glamt(*,0)) 238 239 print, 'lat grid ',min(latin),max(latin),latin(1)-latin(0) 239 240 print, 'lon grid ',min(lonin),max(lonin),lonin(1)-lonin(0) 240 241 d2min=read_ncdf("d2",19881201,20101231,file=fullfilename,/nostr) 241 242 242 timein=time & jptin=jpt 243 timein=time 244 jptin=jpt 243 245 tab=d2min(*,*,0) 244 246 mskin=glamt*0.+1. … … 246 248 initncdf, fullfilename_msk 247 249 domdef 248 latout=reform(gphit(0,*)) & lonout=reform(glamt(*,0)) 250 latout=reform(gphit(0,*)) 251 lonout=reform(glamt(*,0)) 249 252 print, 'lat grid ',min(latout),max(latout),latout(1)-latout(0) 250 253 print, 'lon grid ',min(lonout),max(lonout),lonout(1)-lonout(0) … … 264 267 endfor 265 268 266 timein=timein & jptin=jpt 269 timein=timein 270 jptin=jpt 267 271 268 272 initncdf, fullfilename_msk … … 270 274 cda1=string(jul2date(timein(jpt-1)),format='(i8.8)') 271 275 272 time=timegen(7670, units='days', start=julday(1,1,1989)) & jpt=n_elements(time) 276 time=timegen(7670, units='days', start=julday(1,1,1989)) 277 jpt=n_elements(time) 273 278 cda0=string(jul2date(time(0)),format='(i8.8)') 274 279 cda1=string(jul2date(time(jpt-1)),format='(i8.8)') -
trunk/src/interp_erai_lwr_1989_2009.pro
r93 r94 208 208 ENDIF 209 209 210 st=19890101 & en=20090801 210 st=19890101 211 en=20090801 211 212 212 213 ; build data filename … … 262 263 initncdf, fullfilename 263 264 domdef 264 latin=reform(gphit(0,*)) & lonin=reform(glamt(*,0)) 265 latin=reform(gphit(0,*)) 266 lonin=reform(glamt(*,0)) 265 267 print, 'lat grid ',min(latin),max(latin),latin(1)-latin(0) 266 268 print, 'lon grid ',min(lonin),max(lonin),lonin(1)-lonin(0) 267 269 268 timein=time & jptin=jpt 270 timein=time 271 jptin=jpt 269 272 tab=lwrin(*,*,0) 270 273 mskin=glamt*0.+1. … … 272 275 initncdf, fullfilename_msk 273 276 domdef 274 latout=reform(gphit(0,*)) &lonout=reform(glamt(*,0))277 latout=reform(gphit(0,*)) lonout=reform(glamt(*,0)) 275 278 print, 'lat grid ',min(latout),max(latout),latout(1)-latout(0) 276 279 print, 'lon grid ',min(lonout),max(lonout),lonout(1)-lonout(0) … … 291 294 endfor 292 295 293 time=timegen(7669, start=julday(1,2,1989,0), units='days') & jpt=n_elements(time) 294 tt=time & jptin=jpt 296 time=timegen(7669, start=julday(1,2,1989,0), units='days') 297 jpt=n_elements(time) 298 tt=time 299 jptin=jpt 295 300 cda0=string(jul2date(tt(0)),format='(i8.8)') 296 301 cda1=string(jul2date(tt(jpt-1)),format='(i8.8)') 297 302 tt=tt-julday(1,1,1950,00,00,00) 298 xlon=reform(glamt(*,0) ) & ylat=reform(gphit(0,*)) 303 xlon=reform(glamt(*,0) ) 304 ylat=reform(gphit(0,*)) 299 305 300 306 initncdf, fullfilename_msk -
trunk/src/interp_erai_msl_1989_2009.pro
r93 r94 224 224 initncdf, fullfilename 225 225 domdef 226 latin=reform(gphit(0,*)) & lonin=reform(glamt(*,0)) 226 latin=reform(gphit(0,*)) 227 lonin=reform(glamt(*,0)) 227 228 print, 'lat grid ',min(latin),max(latin),latin(1)-latin(0) 228 229 print, 'lon grid ',min(lonin),max(lonin),lonin(1)-lonin(0) 229 230 mslin=read_ncdf("msl",19880101,20100930,file=fullfilename,/nostr) 230 231 231 timein=time & jptin=jpt 232 timein=time 233 jptin=jpt 232 234 tab=mslin(*,*,0) 233 235 mskin=glamt*0.+1. … … 235 237 initncdf, fullfilename_msk 236 238 domdef 237 latout=reform(gphit(0,*)) & lonout=reform(glamt(*,0)) 239 latout=reform(gphit(0,*)) 240 lonout=reform(glamt(*,0)) 238 241 print, 'lat grid ',min(latout),max(latout),latout(1)-latout(0) 239 242 print, 'lon grid ',min(lonout),max(lonout),lonout(1)-lonout(0) … … 266 269 endfor 267 270 268 timein=timein & jptin=jpt 271 timein=timein 272 jptin=jpt 269 273 270 274 initncdf, fullfilename_msk 271 275 ;time=julday(1,2,1989)+lindgen(7516) 272 time=timegen(7670, units='days', start=julday(1,1,1989)) & jpt=n_elements(time) 276 time=timegen(7670, units='days', start=julday(1,1,1989)) 277 jpt=n_elements(time) 273 278 cda0=string(jul2date(time(0)),format='(i8.8)') 274 279 cda1=string(jul2date(time(jpt-1)),format='(i8.8)') -
trunk/src/interp_erai_sst_1989_2009.pro
r93 r94 229 229 initncdf, fullfilename 230 230 domdef 231 latin=reform(gphit(0,*)) & lonin=reform(glamt(*,0)) 231 latin=reform(gphit(0,*)) 232 lonin=reform(glamt(*,0)) 232 233 print, 'lat grid ',min(latin),max(latin),latin(1)-latin(0) 233 234 print, 'lon grid ',min(lonin),max(lonin),lonin(1)-lonin(0) 234 235 sstkin=read_ncdf("sstk",19871201,20100930,file=fullfilename,/nostr) 235 236 236 timein=time & jptin=jpt 237 timein=time 238 jptin=jpt 237 239 tab=sstkin(*,*,0) 238 mskin=glamt*0.+1. & ind=where((tab eq 1.e9) or finite(tab,/nan)) & mskin(ind)=0. 240 mskin=glamt*0.+1. 241 nind=where((tab eq 1.e9) or finite(tab,/nan)) 242 mskin(ind)=0. 239 243 ;mskin=glamt*0.+1. 240 244 241 245 initncdf, fullfilename_msk 242 246 domdef 243 latout=reform(gphit(0,*)) & lonout=reform(glamt(*,0)) 247 latout=reform(gphit(0,*)) 248 lonout=reform(glamt(*,0)) 244 249 print, 'lat grid ',min(latout),max(latout),latout(1)-latout(0) 245 250 print, 'lon grid ',min(lonout),max(lonout),lonout(1)-lonout(0) … … 259 264 endfor 260 265 261 timein=timein & jptin=jpt 266 timein=timein 267 jptin=jpt 262 268 263 269 initncdf, fullfilename_msk 264 time=timegen(7670, units='days', start=julday(1,1,1989)) & jpt=n_elements(time) 270 time=timegen(7670, units='days', start=julday(1,1,1989)) 271 jpt=n_elements(time) 265 272 tt=time 266 273 cda0=string(jul2date(time(0)),format='(i8.8)') -
trunk/src/interp_erai_ws_1989_2009.pro
r93 r94 213 213 ENDIF 214 214 ; 215 st=19880101 & en=20100930 215 st=19880101 216 en=20100930 216 217 ; 217 218 ; build u10 data filename … … 281 282 initncdf, fullfilename 282 283 domdef 283 latin=reform(gphit(0,*)) & lonin=reform(glamt(*,0)) 284 latin=reform(gphit(0,*)) 285 lonin=reform(glamt(*,0)) 284 286 print, 'lat grid ',min(latin),max(latin),latin(1)-latin(0) 285 287 print, 'lon grid ',min(lonin),max(lonin),lonin(1)-lonin(0) 286 288 287 timein=time & jptin=jpt 289 timein=time 290 jptin=jpt 288 291 tab=u10in(*,*,0) 289 292 mskin=glamt*0.+1. … … 291 294 initncdf, fullfilename_msk 292 295 domdef 293 latout=reform(gphit(0,*)) & lonout=reform(glamt(*,0)) 296 latout=reform(gphit(0,*)) 297 lonout=reform(glamt(*,0)) 294 298 print, 'lat grid ',min(latout),max(latout),latout(1)-latout(0) 295 299 print, 'lon grid ',min(lonout),max(lonout),lonout(1)-lonout(0) … … 318 322 endfor 319 323 320 time=timegen(7670, units='days', start=julday(1,1,1989)) & jpt=n_elements(time) 321 tt=time & jptin=jpt 324 time=timegen(7670, units='days', start=julday(1,1,1989)) 325 jpt=n_elements(time) 326 tt=time 327 jptin=jpt 322 328 cda0=string(jul2date(tt(0)),format='(i8.8)') 323 329 cda1=string(jul2date(tt(jpt-1)),format='(i8.8)') 324 330 tt=tt-julday(1,1,1950,00,00,00) 325 xlon=reform(glamt(*,0) ) & ylat=reform(gphit(0,*)) 331 xlon=reform(glamt(*,0) ) 332 ylat=reform(gphit(0,*)) 326 333 327 334 initncdf, fullfilename_msk -
trunk/src/interp_olr_30n30s_1989_2009.pro
r90 r94 227 227 initncdf, fullfilename 228 228 domdef 229 latin=reform(gphit(0,*)) & lonin=reform(glamt(*,0)) 229 latin=reform(gphit(0,*)) 230 lonin=reform(glamt(*,0)) 230 231 print, 'lat grid ',min(latin),max(latin),latin(1)-latin(0) 231 232 print, 'lon grid ',min(lonin),max(lonin),lonin(1)-lonin(0) … … 234 235 mskin=glamt*0.+1. 235 236 236 timein=time & jptin=jpt 237 timein=time 238 jptin=jpt 237 239 238 240 initncdf, fullfilename_msk 239 241 domdef 240 latout=reform(gphit(0,*)) & lonout=reform(glamt(*,0)) 242 latout=reform(gphit(0,*)) 243 lonout=reform(glamt(*,0)) 241 244 print, 'lat grid ',min(latout),max(latout),latout(1)-latout(0) 242 245 print, 'lon grid ',min(lonout),max(lonout),lonout(1)-lonout(0) … … 260 263 261 264 262 timein=timein & jptin=jpt 265 timein=timein 266 jptin=jpt 263 267 264 268 timein=timein-julday(1,1,1950,00,00) -
trunk/src/lwr_correction_ncdf.pro
r92 r94 158 158 ENDIF 159 159 ; 160 da1=19880101 & da2=20091231 160 da1=19880101 161 da2=20091231 161 162 ; 162 163 ; build data filename … … 190 191 help,lwr_mean 191 192 192 tt=time & jpt=n_elements(time) 193 tt=time 194 jpt=n_elements(time) 193 195 caldat, time,mon,day,yea 194 196 lwr_m=lwr*0. … … 219 221 lat=reform(gphit(0,0:jpj-1)) 220 222 lon=reform(glamt(0:jpi-1,0)) 221 time=timegen(7670, units='days', start=julday(1,1,1989)) & jpt=n_elements(time) 223 time=timegen(7670, units='days', start=julday(1,1,1989)) 224 jpt=n_elements(time) 222 225 223 226 cda0=string(jul2date(time(0)),format='(i8.8)') 224 227 cda1=string(jul2date(time(jpt-1)),format='(i8.8)') 225 228 226 time=time-julday(1,1,1950) & jpt=n_elements(time) 229 time=time-julday(1,1,1950) 230 jpt=n_elements(time) 227 231 228 232 ncfile='!' + fullfilename_out -
trunk/src/oaflux_mask_30n30s.pro
r91 r94 147 147 ; Read oaflux grid and mask 148 148 initncdf, fullfilename_in 149 lh=ncdf_lec(fullfilename_in,var='lhtfl',count=[jpi,jpj,1]) & lh=float(lh) 149 lh=ncdf_lec(fullfilename_in,var='lhtfl',count=[jpi,jpj,1]) 150 lh=float(lh) 150 151 valmask=1.e20 151 ind=where(lh ge 32000,compl=nind) & lh(ind)=valmask & lh(nind)=-0.1*lh(nind) 152 ind=where(lh ge 32000,compl=nind) 153 lh(ind)=valmask 154 lh(nind)=-0.1*lh(nind) 152 155 mask_out=(lh ne valmask) 153 156 domdef, 0.,360.,-30.,30. -
trunk/src/paper01/fig1/fig1_no_obs_map.pro
r85 r94 112 112 113 113 yr=365. 114 lh_mi=365/yr & lh_ma=3285/yr & lh_int=0.25 115 sw_mi=365/yr & sw_ma=3285/yr & sw_int=0.25 116 lw_mi=365/yr & lw_ma=1460/yr & lw_int=0.125 114 lh_mi=365/yr 115 lh_ma=3285/yr 116 lh_int=0.25 117 sw_mi=365/yr 118 sw_ma=3285/yr 119 sw_int=0.25 120 lw_mi=365/yr 121 lw_ma=1460/yr 122 lw_int=0.125 117 123 lct=65 118 124 … … 129 135 no=reform(ff(2,*)) 130 136 no=no/yr 131 ;ind=where(no ge lh_ma) & no(ind)=no-0.5 137 ;ind=where(no ge lh_ma) 138 ; no(ind)=no-0.5 132 139 133 140 marge1=[0,0,-5,0] … … 142 149 y=lat[n] 143 150 c=no[n] 144 cmi=lh_mi & cma=lh_ma & dc=cma-cmi 151 cmi=lh_mi 152 cma=lh_ma 153 dc=cma-cmi 145 154 col=((10+244*(c-cmi)/dc) > 10) < 254 146 155 plots, x,y,psym=8,symsize=1.5,color=col … … 164 173 no=reform(ff(2,*)) 165 174 no=no/yr 166 ;ind=where(no ge sw_ma) & no(ind)=sw_ma-0.5 175 ;ind=where(no ge sw_ma) 176 ;no(ind)=sw_ma-0.5 167 177 marge1=[0,0,-5,0] 168 178 plt, .4+msk*1.e-5,realcont=2,/nocont,/nofill,xminor=1,yminor=1,box=box,lct=lct, sw_mi, sw_ma, int=sw_int, $ … … 176 186 y=lat[n] 177 187 c=no[n] 178 cmi=sw_mi & cma=sw_ma & dc=cma-cmi 188 cmi=sw_mi 189 cma=sw_ma 190 dc=cma-cmi 179 191 col=((10+244*(c-cmi)/dc) > 10) < 254 180 192 plots, x,y,psym=8,symsize=1.5,color=col … … 198 210 no=reform(ff(2,*)) 199 211 no=no/yr 200 ;ind=where(no ge lw_ma) & no(ind)=lw_ma-0.25 212 ;ind=where(no ge lw_ma) 213 ;no(ind)=lw_ma-0.25 201 214 202 215 marge1=[0,0,-5,0] … … 211 224 y=lat[n] 212 225 c=no[n] 213 cmi=lw_mi & cma=lw_ma & dc=cma-cmi 226 cmi=lw_mi 227 cma=lw_ma 228 dc=cma-cmi 214 229 col=((10+244*(c-cmi)/dc) > 10) < 254 215 230 plots, x,y,psym=8,symsize=1.5,color=col -
trunk/src/paper01/fig10/fig10_swr_correction.pro
r85 r94 101 101 102 102 ab=linfit(mean, bias,yfit=yfit) 103 a=float(ab(0)) & b=float(ab(1)) 103 a=float(ab(0)) 104 b=float(ab(1)) 104 105 oplot, mean, yfit, thick=3 105 106 print, a,b … … 120 121 121 122 ab=linfit(mean, std,yfit=yfit) 122 a=float(ab(0)) & b=float(ab(1)) 123 a=float(ab(0)) 124 b=float(ab(1)) 123 125 oplot, mean, yfit, thick=3 124 126 -
trunk/src/paper01/fig11/swr_isccp_tropflux_correlation_fig10.pro
r85 r94 105 105 106 106 openps, FILENAME = project_od_env+'correlation_rmsd_olra_swra_smooth.ps' 107 st=19890101 & en=20071231 107 st=19890101 108 en=20071231 108 109 109 110 restore, project_od_env + "correlation_isccp_olr.idl" -
trunk/src/paper01/fig11/swr_isccp_tropflux_new_v1.pro
r85 r94 104 104 105 105 openps, FILENAME = project_od_env+'correlation_rmsd_olra_swra_smooth.ps' 106 st=19890101 & en=20071231 106 st=19890101 107 en=20071231 107 108 108 109 file=project_od_env+'swr_oafluxgrid_1985_2007.nc' … … 132 133 nsmooth=45 133 134 134 swi=[[[swi]],[[swi]],[[swi]]] & olri=[[[olri]],[[olri]],[[olri]]] 135 si=size(sw) & n1=si(1) & n2=si(2) 135 swi=[[[swi]],[[swi]],[[swi]]] 136 olri=[[[olri]],[[olri]],[[olri]]] 137 si=size(sw) 138 n1=si(1) 139 n2=si(2) 136 140 137 141 for j=0,n2-1 do begin … … 144 148 endfor 145 149 146 swi=swi[*,*,365:365+364] & olri=olri[*,*,365:365+364] 150 swi=swi[*,*,365:365+364] 151 olri=olri[*,*,365:365+364] 147 152 help, swi, olri 148 153 149 154 caldat, time,mon,day,yea 150 swm=olr*0. & olrm=olr*0. 155 swm=olr*0. 156 olrm=olr*0. 151 157 for jt=0,jpt-1 do begin 152 158 jtt=(time(jt)-julday(1,1,yea(jt))) < 364 … … 160 166 m=reform(sw_trop(*,*,0)) 161 167 tmask=finite(m) 162 cor_olr=fltarr(jpi,jpj)+!values.f_nan & rms_olr=fltarr(jpi,jpj)+!values.f_nan 168 cor_olr=fltarr(jpi,jpj)+!values.f_nan 169 rms_olr=fltarr(jpi,jpj)+!values.f_nan 163 170 164 171 for jj=0,jpj-1 do begin … … 177 184 endfor 178 185 179 cor=fltarr(jpi,jpj)+!values.f_nan & rms=fltarr(jpi,jpj)+!values.f_nan 186 cor=fltarr(jpi,jpj)+!values.f_nan 187 rms=fltarr(jpi,jpj)+!values.f_nan 180 188 for jj=1,jpj-2 do begin 181 189 for ji=1,jpi-2 do begin … … 188 196 save, cor, cor_olr, filename=project_od_env + 'correlation_isccp_olr.idl' 189 197 190 lct=64 & cs=0.9 198 lct=64 199 cs=0.9 191 200 marge1=[0,0,-5,0] 192 201 help, cor -
trunk/src/paper01/fig12/swr_statistics_map_2000_2009_v50.pro
r85 r94 82 82 openps, FILENAME = project_od_env+'swr_statistics_map_2000_2009_v50.ps' 83 83 ; partie a changer 84 bias_mi=-20 & bias_ma=20 & bias_int=2 85 std_mi=0.7 & std_ma=1.31 & std_int=0.05 86 rmsd_mi=10 & rmsd_ma=30 & rmsd_int=1.25 87 cor_mi=0.5 & cor_ma=1. & cor_int=0.02 84 bias_mi=-20 85 bias_ma=20 86 bias_int=2 87 std_mi=0.7 88 std_ma=1.31 89 std_int=0.05 90 rmsd_mi=10 91 rmsd_ma=30 92 rmsd_int=1.25 93 cor_mi=0.5 94 cor_ma=1. 95 cor_int=0.02 88 96 fi_swr_erai=project_id_env+'swr_2000_2009_erai_v50.txt' 89 97 fi_swr_trop=project_id_env+'swr_2000_2009_trop_v50.txt' … … 100 108 rmsd_era=reform(ff(5,*)) 101 109 102 ind=where(bias_era ge bias_ma) & bias_era(ind)=bias_ma-0.5 103 ind=where(rmsd_era ge rmsd_ma) & rmsd_era(ind)=rmsd_ma-0.5 110 ind=where(bias_era ge bias_ma) 111 bias_era(ind)=bias_ma-0.5 112 ind=where(rmsd_era ge rmsd_ma) 113 rmsd_era(ind)=rmsd_ma-0.5 104 114 105 115 res=read_ascii(fi_swr_trop,data_start=1) … … 111 121 std_trop=reform(ff(4,*)) 112 122 rmsd_trop=reform(ff(5,*)) 113 ind=where(rmsd_trop ge rmsd_ma) & rmsd_trop(ind)=rmsd_ma-0.5 123 ind=where(rmsd_trop ge rmsd_ma) 124 rmsd_trop(ind)=rmsd_ma-0.5 114 125 115 126 res=read_ascii(fi_swr_oaflx,data_start=1) … … 121 132 std_oaflx=reform(ff(4,*)) 122 133 rmsd_oaflx=reform(ff(5,*)) 123 ind=where(rmsd_oaflx ge rmsd_ma) & rmsd_oaflx(ind)=rmsd_ma-0.5 134 ind=where(rmsd_oaflx ge rmsd_ma) 135 rmsd_oaflx(ind)=rmsd_ma-0.5 124 136 125 137 res=read_ascii(fi_swr_olr,data_start=1) … … 131 143 std_olr=reform(ff(4,*)) 132 144 rmsd_olr=reform(ff(5,*)) 133 ind=where(rmsd_olr ge rmsd_ma) & rmsd_olr(ind)=rmsd_ma-0.5 134 135 ;ind=where(std_olr ge std_ma) & std_olr(ind)=std_ma-0.01 145 ind=where(rmsd_olr ge rmsd_ma) 146 rmsd_olr(ind)=rmsd_ma-0.5 147 148 ;ind=where(std_olr ge std_ma) 149 ;std_olr(ind)=std_ma-0.01 136 150 file=project_id_env+'longwave_IO_mask.nc' 137 151 initncdf, file … … 152 166 y=lat(n) 153 167 c=cor_trop(n) 154 cmi=cor_mi & cma=cor_ma & dc=cma-cmi 168 cmi=cor_mi 169 cma=cor_ma 170 dc=cma-cmi 155 171 col=((10+244*(c-cmi)/dc) > 10) < 254 156 172 plots, x,y,psym=8,symsize=1.5,color=col … … 177 193 y=lat(n) 178 194 c=cor_era(n) 179 cmi=cor_mi & cma=cor_ma & dc=cma-cmi 195 cmi=cor_mi 196 cma=cor_ma 197 dc=cma-cmi 180 198 col=((10+244*(c-cmi)/dc) > 10) < 254 181 199 plots, x,y,psym=8,symsize=1.5,color=col … … 202 220 y=lat(n) 203 221 c=cor_oaflx(n) 204 cmi=cor_mi & cma=cor_ma & dc=cma-cmi 222 cmi=cor_mi 223 cma=cor_ma 224 dc=cma-cmi 205 225 col=((10+244*(c-cmi)/dc) > 10) < 254 206 226 plots, x,y,psym=8,symsize=1.5,color=col … … 227 247 y=lat(n) 228 248 c=cor_olr(n) 229 cmi=cor_mi & cma=cor_ma & dc=cma-cmi 249 cmi=cor_mi 250 cma=cor_ma 251 dc=cma-cmi 230 252 col=((10+244*(c-cmi)/dc) > 10) < 254 231 253 plots, x,y,psym=8,symsize=1.5,color=col … … 255 277 y=lat(n) 256 278 c=bias_trop(n) 257 cmi=bias_mi & cma=bias_ma & dc=cma-cmi 279 cmi=bias_mi 280 cma=bias_ma 281 dc=cma-cmi 258 282 col=((10+244*(c-cmi)/dc) > 10) < 254 259 283 plots, x,y,psym=8,symsize=1.5,color=col … … 280 304 y=lat(n) 281 305 c=bias_era(n) 282 cmi=bias_mi & cma=bias_ma & dc=cma-cmi 306 cmi=bias_mi 307 cma=bias_ma 308 dc=cma-cmi 283 309 col=((10+244*(c-cmi)/dc) > 10) < 254 284 310 plots, x,y,psym=8,symsize=1.5,color=col … … 307 333 y=lat(n) 308 334 c=bias_oaflx(n) 309 cmi=bias_mi & cma=bias_ma & dc=cma-cmi 335 cmi=bias_mi 336 cma=bias_ma 337 dc=cma-cmi 310 338 col=((10+244*(c-cmi)/dc) > 10) < 254 311 339 plots, x,y,psym=8,symsize=1.5,color=col … … 334 362 y=lat(n) 335 363 c=bias_olr(n) 336 cmi=bias_mi & cma=bias_ma & dc=cma-cmi 364 cmi=bias_mi 365 cma=bias_ma 366 dc=cma-cmi 337 367 col=((10+244*(c-cmi)/dc) > 10) < 254 338 368 plots, x,y,psym=8,symsize=1.5,color=col … … 363 393 y=lat(n) 364 394 c=rmsd_trop(n) 365 cmi=rmsd_mi & cma=rmsd_ma & dc=cma-cmi 395 cmi=rmsd_mi 396 cma=rmsd_ma 397 dc=cma-cmi 366 398 col=((10+244*(c-cmi)/dc) > 10) < 254 367 399 plots, x,y,psym=8,symsize=1.5,color=col … … 388 420 y=lat(n) 389 421 c=rmsd_era(n) 390 cmi=rmsd_mi & cma=rmsd_ma & dc=cma-cmi 422 cmi=rmsd_mi 423 cma=rmsd_ma 424 dc=cma-cmi 391 425 col=((10+244*(c-cmi)/dc) > 10) < 254 392 426 plots, x,y,psym=8,symsize=1.5,color=col … … 413 447 y=lat(n) 414 448 c=rmsd_oaflx(n) 415 cmi=rmsd_mi & cma=rmsd_ma & dc=cma-cmi 449 cmi=rmsd_mi 450 cma=rmsd_ma 451 dc=cma-cmi 416 452 col=((10+244*(c-cmi)/dc) > 10) < 254 417 453 plots, x,y,psym=8,symsize=1.5,color=col … … 439 475 y=lat(n) 440 476 c=rmsd_olr(n) 441 cmi=rmsd_mi & cma=rmsd_ma & dc=cma-cmi 477 cmi=rmsd_mi 478 cma=rmsd_ma 479 dc=cma-cmi 442 480 col=((10+244*(c-cmi)/dc) > 10) < 254 443 481 plots, x,y,psym=8,symsize=1.5,color=col … … 465 503 y=lat(n) 466 504 c=std_trop(n) 467 cmi=std_mi & cma=std_ma & dc=cma-cmi 505 cmi=std_mi 506 cma=std_ma 507 dc=cma-cmi 468 508 col=((10+244*(c-cmi)/dc) > 10) < 254 469 509 plots, x,y,psym=8,symsize=1.5,color=col … … 490 530 y=lat(n) 491 531 c=std_era(n) 492 cmi=std_mi & cma=std_ma & dc=cma-cmi 532 cmi=std_mi 533 cma=std_ma 534 dc=cma-cmi 493 535 col=((10+244*(c-cmi)/dc) > 10) < 254 494 536 plots, x,y,psym=8,symsize=1.5,color=col … … 516 558 y=lat(n) 517 559 c=std_oaflx(n) 518 cmi=std_mi & cma=std_ma & dc=cma-cmi 560 cmi=std_mi 561 cma=std_ma 562 dc=cma-cmi 519 563 col=((10+244*(c-cmi)/dc) > 10) < 254 520 564 plots, x,y,psym=8,symsize=1.5,color=col … … 542 586 y=lat(n) 543 587 c=std_olr(n) 544 cmi=std_mi & cma=std_ma & dc=cma-cmi 588 cmi=std_mi 589 cma=std_ma 590 dc=cma-cmi 545 591 col=((10+244*(c-cmi)/dc) > 10) < 254 546 592 plots, x,y,psym=8,symsize=1.5,color=col -
trunk/src/paper01/fig13/net_flux_validation_scatter_2000_2007.pro
r85 r94 134 134 jda2=date2jul(date2) 135 135 jpt=(jda2-jda1+1l) 136 time=jda1+dindgen(jpt) & tt=time 136 time=jda1+dindgen(jpt) 137 tt=time 137 138 138 139 ocean='net_flux' … … 172 173 lhf=read_ncdf("lhf", date1, date2, file=file_erai,/nostr) 173 174 lwr=read_ncdf("lwr", date1, date2, file=file_erai,/nostr) 174 swr=read_ncdf("swr", date1, date2, file=file_erai,/nostr) & swr=-1*swr 175 swr=read_ncdf("swr", date1, date2, file=file_erai,/nostr) 176 swr=-1*swr 175 177 erai=swr-(lwr+lhf+shf) 176 178 help, erai … … 187 189 file_oaf=project_od_env+'swr_oafluxgrid_1985_2007.nc' 188 190 initncdf, file_oaf 189 swr=read_ncdf("swr", date1, date2, file=file_oaf,/nostr) & swr_trop=swr 191 swr=read_ncdf("swr", date1, date2, file=file_oaf,/nostr) 192 swr_trop=swr 190 193 oafl=swr-(lwr+lhf+shf) 191 194 help, oafl … … 230 233 ;; reading data from mooring 231 234 232 site=sitelist(n) & csite=site 235 site=sitelist(n) 236 csite=site 233 237 print, csite 234 238 x=x_site_location(site) 235 239 y=y_site_location(site) 236 240 if (y ge 0. and y le 30.) then y=y+360. 237 dx=0.5 & dy=0.5 & box=[y-dy, y+dy, x-dx, x+dx] 241 dx=0.5 242 dy=0.5 243 box=[y-dy, y+dy, x-dx, x+dx] 238 244 239 245 read_variables_net_flux, csite,date1,date2,nsmooth, $ 240 246 net 241 tao=net & ind=where(finite(tao)) & valid=n_elements(ind) 247 tao=net 248 ind=where(finite(tao)) 249 valid=n_elements(ind) 242 250 243 251 ;; … … 268 276 tropdf=tropflux 269 277 270 ind=where(finite(tao)) & tao=tao(ind) & oaf_net=oaflux(ind) & nce_net=ncepflux(ind) & trop_net=tropflux_new(ind) 271 erai_net=eraiflux(ind) & nce1_net=ncepflux1(ind) & tropd_net=tropdf(ind) 278 ind=where(finite(tao)) 279 tao=tao(ind) 280 oaf_net=oaflux(ind) 281 nce_net=ncepflux(ind) 282 trop_net=tropflux_new(ind) 283 erai_net=eraiflux(ind) 284 nce1_net=ncepflux1(ind) 285 tropd_net=tropdf(ind) 272 286 273 287 mean_tao=total(tao,/nan)/n_elements(ind) … … 304 318 mean_erai=mean_tao+bias_erai 305 319 306 ind=where(finite(cor_erai)) & cor=total(cor_erai,/nan)/n_elements(ind) 307 ind=where(finite(bias_erai)) & bias=total(bias_erai,/nan)/n_elements(ind) 308 ind=where(finite(rmsd_erai)) & rmsd=total(rmsd_erai,/nan)/n_elements(ind) 309 ind=where(finite(std_erai)) & std=total(std_erai,/nan)/n_elements(ind) 320 ind=where(finite(cor_erai)) 321 cor=total(cor_erai,/nan)/n_elements(ind) 322 ind=where(finite(bias_erai)) 323 bias=total(bias_erai,/nan)/n_elements(ind) 324 ind=where(finite(rmsd_erai)) 325 rmsd=total(rmsd_erai,/nan)/n_elements(ind) 326 ind=where(finite(std_erai)) 327 std=total(std_erai,/nan)/n_elements(ind) 310 328 311 329 print, '' … … 319 337 xyouts, -40,-80, 'cor bias std rmsd', charsize=1. 320 338 321 x=mean_tao & y=mean_erai 339 x=mean_tao 340 y=mean_erai 322 341 ab=linfit(x,y,yfit=yfit) 323 a=float(ab(0)) & b=float(ab(1)) & print, a,b 342 a=float(ab(0)) 343 b=float(ab(1)) 344 print, a,b 324 345 oplot, x, yfit, thick=2, color=250 325 346 oplot, [-100,200], [-100,200] … … 336 357 mean_trop=mean_tao+bias_trop 337 358 338 ind=where(finite(cor_trop)) & cor=total(cor_trop,/nan)/n_elements(ind) 339 ind=where(finite(bias_trop)) & bias=total(bias_trop,/nan)/n_elements(ind) 340 ind=where(finite(rmsd_trop)) & rmsd=total(rmsd_trop,/nan)/n_elements(ind) 341 ind=where(finite(std_trop)) & std=total(std_trop,/nan)/n_elements(ind) 359 ind=where(finite(cor_trop)) 360 cor=total(cor_trop,/nan)/n_elements(ind) 361 ind=where(finite(bias_trop)) 362 bias=total(bias_trop,/nan)/n_elements(ind) 363 ind=where(finite(rmsd_trop)) 364 rmsd=total(rmsd_trop,/nan)/n_elements(ind) 365 ind=where(finite(std_trop)) 366 std=total(std_trop,/nan)/n_elements(ind) 342 367 343 368 print, '' … … 351 376 xyouts, -40,-80, 'cor bias std rmsd', charsize=1. 352 377 353 x=mean_tao & y=mean_trop 378 x=mean_tao 379 y=mean_trop 354 380 ab=linfit(x,y,yfit=yfit) 355 a=float(ab(0)) & b=float(ab(1)) & print, a,b 381 a=float(ab(0)) 382 b=float(ab(1)) 383 print, a,b 356 384 oplot, x, yfit, thick=2, color=250 357 385 oplot, [-100,200], [-100,200] … … 368 396 mean_oaf=mean_tao+bias_oaf 369 397 370 ind=where(finite(cor_oaf)) & cor=total(cor_oaf,/nan)/n_elements(ind) 371 ind=where(finite(bias_oaf)) & bias=total(bias_oaf,/nan)/n_elements(ind) 372 ind=where(finite(rmsd_oaf)) & rmsd=total(rmsd_oaf,/nan)/n_elements(ind) 373 ind=where(finite(std_oaf)) & std=total(std_oaf,/nan)/n_elements(ind) 398 ind=where(finite(cor_oaf)) 399 cor=total(cor_oaf,/nan)/n_elements(ind) 400 ind=where(finite(bias_oaf)) 401 bias=total(bias_oaf,/nan)/n_elements(ind) 402 ind=where(finite(rmsd_oaf)) 403 rmsd=total(rmsd_oaf,/nan)/n_elements(ind) 404 ind=where(finite(std_oaf)) 405 std=total(std_oaf,/nan)/n_elements(ind) 374 406 375 407 print, '' … … 380 412 splot, mean_tao, mean_oaf, charsize=1.1, title='NET_Flux - TAO Vs OAFlux', $ 381 413 xrange=[-100,200], yrange=[-100,200], small=[2,3,3],/noer, psym=2, xmin=1,ymin=1 382 x=mean_tao & y=mean_oaf 414 x=mean_tao 415 y=mean_oaf 383 416 384 417 xyouts, -50,-40, cstat, charsize=1. … … 386 419 387 420 ab=linfit(x,y,yfit=yfit) 388 a=float(ab(0)) & b=float(ab(1)) & print, a,b 421 a=float(ab(0)) 422 b=float(ab(1)) 423 print, a,b 389 424 oplot, x, yfit, thick=2, color=250 390 425 oplot, [-100,200], [-100,200] … … 401 436 mean_nce=mean_tao+bias_nce 402 437 403 ind=where(finite(cor_nce)) & cor=total(cor_nce,/nan)/n_elements(ind) 404 ind=where(finite(bias_nce)) & bias=total(bias_nce,/nan)/n_elements(ind) 405 ind=where(finite(rmsd_nce)) & rmsd=total(rmsd_nce,/nan)/n_elements(ind) 406 ind=where(finite(std_nce)) & std=total(std_nce,/nan)/n_elements(ind) 438 ind=where(finite(cor_nce)) 439 cor=total(cor_nce,/nan)/n_elements(ind) 440 ind=where(finite(bias_nce)) 441 bias=total(bias_nce,/nan)/n_elements(ind) 442 ind=where(finite(rmsd_nce)) 443 rmsd=total(rmsd_nce,/nan)/n_elements(ind) 444 ind=where(finite(std_nce)) 445 std=total(std_nce,/nan)/n_elements(ind) 407 446 408 447 print, '' … … 416 455 xyouts, -40,-80, 'cor bias std rmsd', charsize=1. 417 456 418 x=mean_tao & y=mean_nce 457 x=mean_tao 458 y=mean_nce 419 459 ab=linfit(x,y,yfit=yfit) 420 a=float(ab(0)) & b=float(ab(1)) & print, a,b 460 a=float(ab(0)) 461 b=float(ab(1)) 462 print, a,b 421 463 oplot, x, yfit, thick=2, color=250 422 464 oplot, [-100,200], [-100,200] … … 433 475 mean_nce=mean_tao+bias_nce 434 476 435 ind=where(finite(cor_nce)) & cor=total(cor_nce,/nan)/n_elements(ind) 436 ind=where(finite(bias_nce)) & bias=total(bias_nce,/nan)/n_elements(ind) 437 ind=where(finite(rmsd_nce)) & rmsd=total(rmsd_nce,/nan)/n_elements(ind) 438 ind=where(finite(std_nce)) & std=total(std_nce,/nan)/n_elements(ind) 477 ind=where(finite(cor_nce)) 478 cor=total(cor_nce,/nan)/n_elements(ind) 479 ind=where(finite(bias_nce)) 480 bias=total(bias_nce,/nan)/n_elements(ind) 481 ind=where(finite(rmsd_nce)) 482 rmsd=total(rmsd_nce,/nan)/n_elements(ind) 483 ind=where(finite(std_nce)) 484 std=total(std_nce,/nan)/n_elements(ind) 439 485 440 486 print, '' … … 448 494 xyouts, -40,-80, 'cor bias std rmsd', charsize=1. 449 495 450 x=mean_tao & y=mean_nce 496 x=mean_tao 497 y=mean_nce 451 498 ab=linfit(x,y,yfit=yfit) 452 a=float(ab(0)) & b=float(ab(1)) & print, a,b 499 a=float(ab(0)) 500 b=float(ab(1)) 501 print, a,b 453 502 oplot, x, yfit, thick=2, color=250 454 503 oplot, [-100,200], [-100,200] … … 465 514 mean_tropd=mean_tao+bias_tropd 466 515 467 ind=where(finite(cor_tropd)) & cor=total(cor_tropd,/nan)/n_elements(ind) 468 ind=where(finite(bias_tropd)) & bias=total(bias_tropd,/nan)/n_elements(ind) 469 ind=where(finite(rmsd_tropd)) & rmsd=total(rmsd_tropd,/nan)/n_elements(ind) 470 ind=where(finite(std_tropd)) & std=total(std_tropd,/nan)/n_elements(ind) 516 ind=where(finite(cor_tropd)) 517 cor=total(cor_tropd,/nan)/n_elements(ind) 518 ind=where(finite(bias_tropd)) 519 bias=total(bias_tropd,/nan)/n_elements(ind) 520 ind=where(finite(rmsd_tropd)) 521 rmsd=total(rmsd_tropd,/nan)/n_elements(ind) 522 ind=where(finite(std_tropd)) 523 std=total(std_tropd,/nan)/n_elements(ind) 471 524 472 525 print, '' … … 480 533 xyouts, -40,-80, 'cor bias std rmsd', charsize=1. 481 534 482 x=mean_tao & y=mean_tropd 535 x=mean_tao 536 y=mean_tropd 483 537 ab=linfit(x,y,yfit=yfit) 484 a=float(ab(0)) & b=float(ab(1)) & print, a,b 538 a=float(ab(0)) 539 b=float(ab(1)) 540 print, a,b 485 541 oplot, x, yfit, thick=2, color=250 486 542 oplot, [-100,200], [-100,200] -
trunk/src/paper01/fig14/as_validation_net_1994_95_v10.pro
r85 r94 95 95 ; partie a changer 96 96 asbox=[61,62,15,16] 97 date1=19941016 & date2=19951019 97 date1=19941016 98 date2=19951019 98 99 99 100 fi=project_id_env+"met_data_as_expt_1994.txt" … … 126 127 file=project_id_env+"erai_swr_19910101_20091231_oafluxgrid.nc" 127 128 initncdf, file 128 swr=read_ncdf('swr',date1,date2,file=file,/nostr, box=asbox) & swr=reform(swr) 129 swr=read_ncdf('swr',date1,date2,file=file,/nostr, box=asbox) 130 swr=reform(swr) 129 131 file=project_id_env+'erai_lwr_19890101_20091231_oafluxgrid.nc' 130 132 initncdf, file 131 lwr=read_ncdf('lwr',date1-1,date2,file=file,/nostr, box=asbox) & lwr=reform(lwr) 133 lwr=read_ncdf('lwr',date1-1,date2,file=file,/nostr, box=asbox) 134 lwr=reform(lwr) 132 135 file=project_id_env+'erai_shf_19890101_20091231_oafluxgrid.nc' 133 136 initncdf, file 134 shf=-1*read_ncdf('shf',date1,date2,file=file,/nostr, box=asbox) & shf=reform(shf) 137 shf=-1*read_ncdf('shf',date1,date2,file=file,/nostr, box=asbox) 138 shf=reform(shf) 135 139 file=project_id_env+'erai_lhf_19890101_20091231_oafluxgrid.nc' 136 140 initncdf, file 137 lhf=-1*read_ncdf('lhf',date1,date2,file=file,/nostr, box=asbox) & lhf=reform(lhf) 141 lhf=-1*read_ncdf('lhf',date1,date2,file=file,/nostr, box=asbox) 142 lhf=reform(lhf) 138 143 139 144 era=swr+lwr+lhf+shf … … 142 147 help, era 143 148 144 swr=0. & lwr=0. & shf=0. & lhf=0. 149 swr=0. 150 lwr=0. 151 shf=0. 152 lhf=0. 145 153 146 154 file=project_id_env+"TropFlux_19890101_20091231.nc" 147 155 initncdf, file 148 swr=read_ncdf('swr',date1,date2,file=file,/nostr, box=asbox) & swr=reform(swr) 149 lwr=read_ncdf('lwr',date1,date2,file=file,/nostr, box=asbox) & lwr=reform(lwr) 150 shf=read_ncdf('shf',date1,date2,file=file,/nostr, box=asbox) & shf=reform(shf) 151 lhf=read_ncdf('lhf',date1,date2,file=file,/nostr, box=asbox) & lhf=reform(lhf) 156 swr=read_ncdf('swr',date1,date2,file=file,/nostr, box=asbox) 157 swr=reform(swr) 158 lwr=read_ncdf('lwr',date1,date2,file=file,/nostr, box=asbox) 159 lwr=reform(lwr) 160 shf=read_ncdf('shf',date1,date2,file=file,/nostr, box=asbox) 161 shf=reform(shf) 162 lhf=read_ncdf('lhf',date1,date2,file=file,/nostr, box=asbox) 163 lhf=reform(lhf) 152 164 trop=swr+lwr+shf+lhf 153 165 help, trop … … 155 167 file=project_id_env+"TropFlux_swr_19890101_20091231_NRT_v50.nc" 156 168 initncdf, file 157 olr1=read_ncdf("sw", date1-1, date2, file=file,/nostr, box=asbox) ;; & olr1=grossemoyenne(olr1, "xy",/nan, box=asbox) & 169 olr1=read_ncdf("sw", date1-1, date2, file=file,/nostr, box=asbox) ;; 170 olr1=grossemoyenne(olr1, "xy",/nan, box=asbox) 158 171 olr1=reform(olr1) 159 172 160 173 olr=olr1+lwr+shf+lhf 161 174 162 swr=0. & lwr=0. & shf=0. & lhf=0. & olr1=0. 163 164 trop=trop(ind) & olr=olr(ind) 175 swr=0. 176 lwr=0. 177 shf=0. 178 lhf=0. 179 olr1=0. 180 181 trop=trop(ind) 182 olr=olr(ind) 165 183 help, trop, olr 166 184 167 185 file=project_id_env+'swr_oafluxgrid_1985_2007.nc' 168 186 initncdf, file 169 swr=read_ncdf("swr", date1, date2, file=file,/nostr, box=asbox) & swr=reform(swr) 187 swr=read_ncdf("swr", date1, date2, file=file,/nostr, box=asbox) 188 swr=reform(swr) 170 189 171 190 file=project_id_env+'lwr_oafluxgrid_1985_2007.nc' 172 191 initncdf, file 173 lwr=read_ncdf("lwr", date1, date2, file=file,/nostr, box=asbox) & lwr=-1*reform(lwr) 192 lwr=read_ncdf("lwr", date1, date2, file=file,/nostr, box=asbox) 193 lwr=-1*reform(lwr) 174 194 175 195 file=project_id_env+'lhf_oafluxgrid_1985_2009.nc' 176 196 initncdf, file 177 lhf=read_ncdf("lhf", date1, date2, file=file,/nostr, box=asbox) & lhf=-1*reform(lhf) 197 lhf=read_ncdf("lhf", date1, date2, file=file,/nostr, box=asbox) 198 lhf=-1*reform(lhf) 178 199 179 200 file=project_id_env+'shf_oafluxgrid_1985_2009.nc' 180 201 initncdf, file 181 shf=read_ncdf("shf", date1, date2, file=file,/nostr, box=asbox) & shf=-1*reform(shf) 202 shf=read_ncdf("shf", date1, date2, file=file,/nostr, box=asbox) 203 shf=-1*reform(shf) 182 204 183 205 oaf=swr+lwr+shf+lhf … … 185 207 help, oaf 186 208 187 swr=0. & lwr=0. & shf=0. & lhf=0. 209 swr=0. 210 lwr=0. 211 shf=0. 212 lhf=0. 188 213 189 214 fi=project_id_env+'swr_ncep2_oaflxgrid_19890101_20091231.nc' 190 215 initncdf, fi 191 swr=read_ncdf("swr", date1, date2, file=fi,/nostr, box=asbox) & swr=reform(swr) 216 swr=read_ncdf("swr", date1, date2, file=fi,/nostr, box=asbox) 217 swr=reform(swr) 192 218 193 219 fi=project_id_env+"NCEP2_flux_19890101_20090729.nc" 194 220 initncdf, fi 195 lwr=read_ncdf("lwr", date1, date2, file=fi,/nostr, box=asbox) & lwr=grossemoyenne(lwr, "xy",/nan, box=asbox) & lwr=reform(lwr) 221 lwr=read_ncdf("lwr", date1, date2, file=fi,/nostr, box=asbox) 222 lwr=grossemoyenne(lwr, "xy",/nan, box=asbox) 223 lwr=reform(lwr) 196 224 197 225 lwr=-1*lwr … … 199 227 fi=project_id_env+'lhf_ncep2_oafluxgrid_19890101_20091231.nc' 200 228 initncdf, fi 201 lhf=read_ncdf("lhf", date1, date2, file=fi,/nostr, box=asbox) & lhf=-1*reform(lhf) 229 lhf=read_ncdf("lhf", date1, date2, file=fi,/nostr, box=asbox) 230 lhf=-1*reform(lhf) 202 231 203 232 fi=project_id_env+'shf_ncep2_oafluxgrid_19890101_20091231.nc' 204 233 initncdf, fi 205 shf=read_ncdf("shf", date1, date2, file=fi,/nostr, box=asbox) & shf=-1*reform(shf) 234 shf=read_ncdf("shf", date1, date2, file=fi,/nostr, box=asbox) 235 shf=-1*reform(shf) 206 236 207 237 nce2=swr+lwr+shf+lhf … … 210 240 nce2=nce2(ind) 211 241 help, nce2 212 swr=0. & lwr=0. & shf=0. & lhf=0. 242 swr=0. 243 lwr=0. 244 shf=0. 245 lhf=0. 213 246 214 247 file=project_id_env+"ncep1_flux_19890101_20091231.nc" 215 248 initncdf, file 216 swr=read_ncdf("swr", date1, date2, file=file,/nostr, box=asbox) & swr=reform(swr) 217 lwr=read_ncdf("lwr", date1, date2, file=file,/nostr, box=asbox) & lwr=reform(lwr) 218 lhf=read_ncdf("lhf", date1, date2, file=file,/nostr, box=asbox) & lhf=reform(lhf) 219 shf=read_ncdf("shf", date1, date2, file=file,/nostr, box=asbox) & shf=reform(shf) 249 swr=read_ncdf("swr", date1, date2, file=file,/nostr, box=asbox) 250 swr=reform(swr) 251 lwr=read_ncdf("lwr", date1, date2, file=file,/nostr, box=asbox) 252 lwr=reform(lwr) 253 lhf=read_ncdf("lhf", date1, date2, file=file,/nostr, box=asbox) 254 lhf=reform(lhf) 255 shf=read_ncdf("shf", date1, date2, file=file,/nostr, box=asbox) 256 shf=reform(shf) 220 257 nce1=swr+lwr+shf+lhf 221 258 … … 225 262 help, nce1 226 263 ;ind=where(finite(net)) 227 ;net=net(ind) & era=era(ind) & trop=trop(ind) & oaf=oaf(ind) & nce1=nce1(ind) & nce2=nce2(ind) 264 ;net=net(ind) 265 ;era=era(ind) 266 ;trop=trop(ind) 267 ;oaf=oaf(ind) 268 ;nce1=nce1(ind) 269 ;nce2=nce2(ind) 228 270 ;olr=olr(ind) 229 271 -
trunk/src/paper01/fig14/coare_validation_net_1992_93_all_v10.pro
r85 r94 111 111 net1=sw92_1+lw92_1+lh92_1+sh92_1 112 112 113 st1=921111 & en1=921203 113 st1=921111 114 en1=921203 114 115 115 116 ;; second leg … … 126 127 127 128 ;; start data - 17/12/92 and end date 31/12/92 128 st2=19921217 & en2=19921231 129 st2=19921217 130 en2=19921231 129 131 130 132 ;; third leg … … 141 143 142 144 ;; start data - 01/01/93 and end date 11/01/93 143 st3=19930101 & en3=19930111 145 st3=19930101 146 en3=19930111 144 147 145 148 ;; fourth leg … … 156 159 157 160 ;; start data - 28/01/93 and end date 16/02/93 158 st4=19930128 & en4=19930216 161 st4=19930128 162 en4=19930216 159 163 160 164 net=[net1, net2, net3, net4] … … 163 167 ;; reading other data sets 164 168 165 st1=19921111 & en1=19921203 166 st2=19921217 & en2=19921231 167 st3=19930101 & en3=19930111 168 st4=19930128 & en4=19930216 169 st1=19921111 170 en1=19921203 171 st2=19921217 172 en2=19921231 173 st3=19930101 174 en3=19930111 175 st4=19930128 176 en4=19930216 169 177 170 178 file=project_id_env+"erai_swr_19910101_20091231_oafluxgrid.nc" 171 179 initncdf, file 172 swr1=read_ncdf('swr',st1,en1,file=file,/nostr, box=box) & swr1=grossemoyenne(swr1, "xy", box=box,/nan) & swr1=reform(swr1) 173 swr2=read_ncdf('swr',st2,en2,file=file,/nostr, box=box) & swr2=grossemoyenne(swr2, "xy", box=box,/nan) & swr2=reform(swr2) 174 swr3=read_ncdf('swr',st3,en3,file=file,/nostr, box=box) & swr3=grossemoyenne(swr3, "xy", box=box,/nan) & swr3=reform(swr3) 175 swr4=read_ncdf('swr',st4,en4,file=file,/nostr, box=box) & swr4=grossemoyenne(swr4, "xy", box=box,/nan) & swr4=reform(swr4) 180 swr1=read_ncdf('swr',st1,en1,file=file,/nostr, box=box) 181 swr1=grossemoyenne(swr1, "xy", box=box,/nan) 182 swr1=reform(swr1) 183 swr2=read_ncdf('swr',st2,en2,file=file,/nostr, box=box) 184 swr2=grossemoyenne(swr2, "xy", box=box,/nan) 185 swr2=reform(swr2) 186 swr3=read_ncdf('swr',st3,en3,file=file,/nostr, box=box) 187 swr3=grossemoyenne(swr3, "xy", box=box,/nan) 188 swr3=reform(swr3) 189 swr4=read_ncdf('swr',st4,en4,file=file,/nostr, box=box) 190 swr4=grossemoyenne(swr4, "xy", box=box,/nan) 191 swr4=reform(swr4) 176 192 177 193 file=project_id_env+'erai_lwr_19890101_20091231_oafluxgrid.nc' 178 194 initncdf, file 179 lwr1=read_ncdf('lwr',st1-1,en1,file=file,/nostr, box=box) & lwr1=grossemoyenne(lwr1, "xy", box=box,/nan) & lwr1=reform(lwr1) 180 lwr2=read_ncdf('lwr',st2-1,en2,file=file,/nostr, box=box) & lwr2=grossemoyenne(lwr2, "xy", box=box,/nan) & lwr2=reform(lwr2) 181 lwr3=read_ncdf('lwr',st3-1,en3,file=file,/nostr, box=box) & lwr3=grossemoyenne(lwr3, "xy", box=box,/nan) & lwr3=reform(lwr3) 182 lwr4=read_ncdf('lwr',st4-1,en4,file=file,/nostr, box=box) & lwr4=grossemoyenne(lwr4, "xy", box=box,/nan) & lwr4=reform(lwr4) 195 lwr1=read_ncdf('lwr',st1-1,en1,file=file,/nostr, box=box) 196 lwr1=grossemoyenne(lwr1, "xy", box=box,/nan) 197 lwr1=reform(lwr1) 198 lwr2=read_ncdf('lwr',st2-1,en2,file=file,/nostr, box=box) 199 lwr2=grossemoyenne(lwr2, "xy", box=box,/nan) 200 lwr2=reform(lwr2) 201 lwr3=read_ncdf('lwr',st3-1,en3,file=file,/nostr, box=box) 202 lwr3=grossemoyenne(lwr3, "xy", box=box,/nan) 203 lwr3=reform(lwr3) 204 lwr4=read_ncdf('lwr',st4-1,en4,file=file,/nostr, box=box) 205 lwr4=grossemoyenne(lwr4, "xy", box=box,/nan) 206 lwr4=reform(lwr4) 183 207 184 208 file=project_id_env+'erai_lhf_19890101_20091231_oafluxgrid.nc' 185 209 initncdf, file 186 lhf1=-1*read_ncdf('lhf',st1,en1,file=file,/nostr, box=box) & lhf1=grossemoyenne(lhf1, "xy", box=box,/nan) & lhf1=reform(lhf1) 187 lhf2=-1*read_ncdf('lhf',st2,en2,file=file,/nostr, box=box) & lhf2=grossemoyenne(lhf2, "xy", box=box,/nan) & lhf2=reform(lhf2) 188 lhf3=-1*read_ncdf('lhf',st3,en3,file=file,/nostr, box=box) & lhf3=grossemoyenne(lhf3, "xy", box=box,/nan) & lhf3=reform(lhf3) 189 lhf4=-1*read_ncdf('lhf',st4,en4,file=file,/nostr, box=box) & lhf4=grossemoyenne(lhf4, "xy", box=box,/nan) & lhf4=reform(lhf4) 210 lhf1=-1*read_ncdf('lhf',st1,en1,file=file,/nostr, box=box) 211 lhf1=grossemoyenne(lhf1, "xy", box=box,/nan) 212 lhf1=reform(lhf1) 213 lhf2=-1*read_ncdf('lhf',st2,en2,file=file,/nostr, box=box) 214 lhf2=grossemoyenne(lhf2, "xy", box=box,/nan) 215 lhf2=reform(lhf2) 216 lhf3=-1*read_ncdf('lhf',st3,en3,file=file,/nostr, box=box) 217 lhf3=grossemoyenne(lhf3, "xy", box=box,/nan) 218 lhf3=reform(lhf3) 219 lhf4=-1*read_ncdf('lhf',st4,en4,file=file,/nostr, box=box) 220 lhf4=grossemoyenne(lhf4, "xy", box=box,/nan) 221 lhf4=reform(lhf4) 190 222 191 223 file=project_id_env+'erai_shf_19890101_20091231_oafluxgrid.nc' 192 224 initncdf, file 193 shf1=-1*read_ncdf('shf',st1,en1,file=file,/nostr, box=box) & shf1=grossemoyenne(shf1, "xy", box=box,/nan) & shf1=reform(shf1) 194 shf2=-1*read_ncdf('shf',st2,en2,file=file,/nostr, box=box) & shf2=grossemoyenne(shf2, "xy", box=box,/nan) & shf2=reform(shf2) 195 shf3=-1*read_ncdf('shf',st3,en3,file=file,/nostr, box=box) & shf3=grossemoyenne(shf3, "xy", box=box,/nan) & shf3=reform(shf3) 196 shf4=-1*read_ncdf('shf',st4,en4,file=file,/nostr, box=box) & shf4=grossemoyenne(shf4, "xy", box=box,/nan) & shf4=reform(shf4) 197 198 net1=swr1+lwr1+lhf1+shf1 & net2=swr2+lwr2+lhf2+shf2 199 net3=swr3+lwr3+lhf3+shf3 & net4=swr4+lwr4+lhf4+shf4 225 shf1=-1*read_ncdf('shf',st1,en1,file=file,/nostr, box=box) 226 shf1=grossemoyenne(shf1, "xy", box=box,/nan) 227 shf1=reform(shf1) 228 shf2=-1*read_ncdf('shf',st2,en2,file=file,/nostr, box=box) 229 shf2=grossemoyenne(shf2, "xy", box=box,/nan) 230 shf2=reform(shf2) 231 shf3=-1*read_ncdf('shf',st3,en3,file=file,/nostr, box=box) 232 shf3=grossemoyenne(shf3, "xy", box=box,/nan) 233 shf3=reform(shf3) 234 shf4=-1*read_ncdf('shf',st4,en4,file=file,/nostr, box=box) 235 shf4=grossemoyenne(shf4, "xy", box=box,/nan) 236 shf4=reform(shf4) 237 238 net1=swr1+lwr1+lhf1+shf1 239 net2=swr2+lwr2+lhf2+shf2 240 net3=swr3+lwr3+lhf3+shf3 241 net4=swr4+lwr4+lhf4+shf4 200 242 era=[net1,net2,net3,net4] 201 243 202 244 help, era 203 swr1=0 & swr2=0 & swr3=0 & swr4=0 & lwr1=0 & lwr2=0 & lwr3=0 & lwr4=0 204 lhf1=0 & lhf2=0 & lhf3=0 & lhf4=0 & shf1=0 & shf2=0 & shf3=0 & shf4=0 205 net1=0 & net2=0 & net3=0 & net4=0 245 swr1=0 246 swr2=0 247 swr3=0 248 swr4=0 249 lwr1=0 250 lwr2=0 251 lwr3=0 252 lwr4=0 253 lhf1=0 254 lhf2=0 255 lhf3=0 256 lhf4=0 257 shf1=0 258 shf2=0 259 shf3=0 260 shf4=0 261 net1=0 262 net2=0 263 net3=0 264 net4=0 206 265 207 266 file=project_id_env+"TropFlux_19890101_20091231.nc" 208 267 initncdf, file 209 swr1=read_ncdf('swr',st1,en1,file=file,/nostr, box=box) & swr1=grossemoyenne(swr1, "xy",/nan, box=box) & swr1=reform(swr1) 210 swr2=read_ncdf('swr',st2,en2,file=file,/nostr, box=box) & swr2=grossemoyenne(swr2, "xy",/nan, box=box) & swr2=reform(swr2) 211 swr3=read_ncdf('swr',st3,en3,file=file,/nostr, box=box) & swr3=grossemoyenne(swr3, "xy",/nan, box=box) & swr3=reform(swr3) 212 swr4=read_ncdf('swr',st4,en4,file=file,/nostr, box=box) & swr4=grossemoyenne(swr4, "xy",/nan, box=box) & swr4=reform(swr4) 213 214 lwr1=read_ncdf('lwr',st1,en1,file=file,/nostr, box=box) & lwr1=grossemoyenne(lwr1, "xy",/nan, box=box) & lwr1=reform(lwr1) 215 lwr2=read_ncdf('lwr',st2,en2,file=file,/nostr, box=box) & lwr2=grossemoyenne(lwr2, "xy",/nan, box=box) & lwr2=reform(lwr2) 216 lwr3=read_ncdf('lwr',st3,en3,file=file,/nostr, box=box) & lwr3=grossemoyenne(lwr3, "xy",/nan, box=box) & lwr3=reform(lwr3) 217 lwr4=read_ncdf('lwr',st4,en4,file=file,/nostr, box=box) & lwr4=grossemoyenne(lwr4, "xy",/nan, box=box) & lwr4=reform(lwr4) 218 219 lhf1=read_ncdf('lhf',st1,en1,file=file,/nostr, box=box) & lhf1=grossemoyenne(lhf1, "xy",/nan, box=box) & lhf1=reform(lhf1) 220 lhf2=read_ncdf('lhf',st2,en2,file=file,/nostr, box=box) & lhf2=grossemoyenne(lhf2, "xy",/nan, box=box) & lhf2=reform(lhf2) 221 lhf3=read_ncdf('lhf',st3,en3,file=file,/nostr, box=box) & lhf3=grossemoyenne(lhf3, "xy",/nan, box=box) & lhf3=reform(lhf3) 222 lhf4=read_ncdf('lhf',st4,en4,file=file,/nostr, box=box) & lhf4=grossemoyenne(lhf4, "xy",/nan, box=box) & lhf4=reform(lhf4) 223 224 shf1=read_ncdf('shf',st1,en1,file=file,/nostr, box=box) & shf1=grossemoyenne(shf1, "xy",/nan, box=box) & shf1=reform(shf1) 225 shf2=read_ncdf('shf',st2,en2,file=file,/nostr, box=box) & shf2=grossemoyenne(shf2, "xy",/nan, box=box) & shf2=reform(shf2) 226 shf3=read_ncdf('shf',st3,en3,file=file,/nostr, box=box) & shf3=grossemoyenne(shf3, "xy",/nan, box=box) & shf3=reform(shf3) 227 shf4=read_ncdf('shf',st4,en4,file=file,/nostr, box=box) & shf4=grossemoyenne(shf4, "xy",/nan, box=box) & shf4=reform(shf4) 228 229 net1=swr1+lwr1+lhf1+shf1 & net2=swr2+lwr2+lhf2+shf2 230 net3=swr3+lwr3+lhf3+shf3 & net4=swr4+lwr4+lhf4+shf4 268 swr1=read_ncdf('swr',st1,en1,file=file,/nostr, box=box) 269 swr1=grossemoyenne(swr1, "xy",/nan, box=box) 270 swr1=reform(swr1) 271 swr2=read_ncdf('swr',st2,en2,file=file,/nostr, box=box) 272 swr2=grossemoyenne(swr2, "xy",/nan, box=box) 273 swr2=reform(swr2) 274 swr3=read_ncdf('swr',st3,en3,file=file,/nostr, box=box) 275 swr3=grossemoyenne(swr3, "xy",/nan, box=box) 276 swr3=reform(swr3) 277 swr4=read_ncdf('swr',st4,en4,file=file,/nostr, box=box) 278 swr4=grossemoyenne(swr4, "xy",/nan, box=box) 279 swr4=reform(swr4) 280 281 lwr1=read_ncdf('lwr',st1,en1,file=file,/nostr, box=box) 282 lwr1=grossemoyenne(lwr1, "xy",/nan, box=box) 283 lwr1=reform(lwr1) 284 lwr2=read_ncdf('lwr',st2,en2,file=file,/nostr, box=box) 285 lwr2=grossemoyenne(lwr2, "xy",/nan, box=box) 286 lwr2=reform(lwr2) 287 lwr3=read_ncdf('lwr',st3,en3,file=file,/nostr, box=box) 288 lwr3=grossemoyenne(lwr3, "xy",/nan, box=box) 289 lwr3=reform(lwr3) 290 lwr4=read_ncdf('lwr',st4,en4,file=file,/nostr, box=box) 291 lwr4=grossemoyenne(lwr4, "xy",/nan, box=box) 292 lwr4=reform(lwr4) 293 294 lhf1=read_ncdf('lhf',st1,en1,file=file,/nostr, box=box) 295 lhf1=grossemoyenne(lhf1, "xy",/nan, box=box) 296 lhf1=reform(lhf1) 297 lhf2=read_ncdf('lhf',st2,en2,file=file,/nostr, box=box) 298 lhf2=grossemoyenne(lhf2, "xy",/nan, box=box) 299 lhf2=reform(lhf2) 300 lhf3=read_ncdf('lhf',st3,en3,file=file,/nostr, box=box) 301 lhf3=grossemoyenne(lhf3, "xy",/nan, box=box) 302 lhf3=reform(lhf3) 303 lhf4=read_ncdf('lhf',st4,en4,file=file,/nostr, box=box) 304 lhf4=grossemoyenne(lhf4, "xy",/nan, box=box) 305 lhf4=reform(lhf4) 306 307 shf1=read_ncdf('shf',st1,en1,file=file,/nostr, box=box) 308 shf1=grossemoyenne(shf1, "xy",/nan, box=box) 309 shf1=reform(shf1) 310 shf2=read_ncdf('shf',st2,en2,file=file,/nostr, box=box) 311 shf2=grossemoyenne(shf2, "xy",/nan, box=box) 312 shf2=reform(shf2) 313 shf3=read_ncdf('shf',st3,en3,file=file,/nostr, box=box) 314 shf3=grossemoyenne(shf3, "xy",/nan, box=box) 315 shf3=reform(shf3) 316 shf4=read_ncdf('shf',st4,en4,file=file,/nostr, box=box) 317 shf4=grossemoyenne(shf4, "xy",/nan, box=box) 318 shf4=reform(shf4) 319 320 net1=swr1+lwr1+lhf1+shf1 321 net2=swr2+lwr2+lhf2+shf2 322 net3=swr3+lwr3+lhf3+shf3 323 net4=swr4+lwr4+lhf4+shf4 231 324 232 325 file=project_id_env+"TropFlux_swr_19890101_20091231_NRT_v50.nc" 233 326 initncdf, file 234 olr1=read_ncdf("sw", st1-1, en1, file=file,/nostr, box=box) & olr1=grossemoyenne(olr1, "xy",/nan, box=box) & olr1=reform(olr1) 235 olr2=read_ncdf("sw", st2-1, en2, file=file,/nostr, box=box) & olr2=grossemoyenne(olr2, "xy",/nan, box=box) & olr2=reform(olr2) 236 olr3=read_ncdf("sw", st3-1, en3, file=file,/nostr, box=box) & olr3=grossemoyenne(olr3, "xy",/nan, box=box) & olr3=reform(olr3) 237 olr4=read_ncdf("sw", st4-1, en4, file=file,/nostr, box=box) & olr4=grossemoyenne(olr4, "xy",/nan, box=box) & olr4=reform(olr4) 238 239 neto_1=olr1+lwr1+lhf1+shf1 & neto_2=olr2+lwr2+lhf2+shf2 240 neto_3=olr3+lwr3+lhf3+shf3 & neto_4=olr4+lwr4+lhf4+shf4 327 olr1=read_ncdf("sw", st1-1, en1, file=file,/nostr, box=box) 328 olr1=grossemoyenne(olr1, "xy",/nan, box=box) 329 olr1=reform(olr1) 330 olr2=read_ncdf("sw", st2-1, en2, file=file,/nostr, box=box) 331 olr2=grossemoyenne(olr2, "xy",/nan, box=box) 332 olr2=reform(olr2) 333 olr3=read_ncdf("sw", st3-1, en3, file=file,/nostr, box=box) 334 olr3=grossemoyenne(olr3, "xy",/nan, box=box) 335 olr3=reform(olr3) 336 olr4=read_ncdf("sw", st4-1, en4, file=file,/nostr, box=box) 337 olr4=grossemoyenne(olr4, "xy",/nan, box=box) 338 olr4=reform(olr4) 339 340 neto_1=olr1+lwr1+lhf1+shf1 341 neto_2=olr2+lwr2+lhf2+shf2 342 neto_3=olr3+lwr3+lhf3+shf3 343 neto_4=olr4+lwr4+lhf4+shf4 241 344 242 345 trop=[net1,net2,net3,net4] … … 244 347 help, trop, olr 245 348 246 swr1=0 & swr2=0 & swr3=0 & swr4=0 & lwr1=0 & lwr2=0 & lwr3=0 & lwr4=0 247 lhf1=0 & lhf2=0 & lhf3=0 & lhf4=0 & shf1=0 & shf2=0 & shf3=0 & shf4=0 248 net1=0 & net2=0 & net3=0 & net4=0 & neto_1=0 & neto_2=0 & neto_3=0 & neto_4=0 349 swr1=0 350 swr2=0 351 swr3=0 352 swr4=0 353 lwr1=0 354 lwr2=0 355 lwr3=0 356 lwr4=0 357 lhf1=0 358 lhf2=0 359 lhf3=0 360 lhf4=0 361 shf1=0 362 shf2=0 363 shf3=0 364 shf4=0 365 net1=0 366 net2=0 367 net3=0 368 net4=0 369 neto_1=0 370 neto_2=0 371 neto_3=0 372 neto_4=0 249 373 250 374 file=project_id_env+'swr_oafluxgrid_1985_2007.nc' 251 375 initncdf, file 252 swr1=read_ncdf("swr", st1, en1, file=file,/nostr, box=box) & swr1=grossemoyenne(swr1, "xy",/nan, box=box) & swr1=reform(swr1) 253 swr2=read_ncdf("swr", st2, en2, file=file,/nostr, box=box) & swr2=grossemoyenne(swr2, "xy",/nan, box=box) & swr2=reform(swr2) 254 swr3=read_ncdf("swr", st3, en3, file=file,/nostr, box=box) & swr3=grossemoyenne(swr3, "xy",/nan, box=box) & swr3=reform(swr3) 255 swr4=read_ncdf("swr", st4, en4, file=file,/nostr, box=box) & swr4=grossemoyenne(swr4, "xy",/nan, box=box) & swr4=reform(swr4) 376 swr1=read_ncdf("swr", st1, en1, file=file,/nostr, box=box) 377 swr1=grossemoyenne(swr1, "xy",/nan, box=box) 378 swr1=reform(swr1) 379 swr2=read_ncdf("swr", st2, en2, file=file,/nostr, box=box) 380 swr2=grossemoyenne(swr2, "xy",/nan, box=box) 381 swr2=reform(swr2) 382 swr3=read_ncdf("swr", st3, en3, file=file,/nostr, box=box) 383 swr3=grossemoyenne(swr3, "xy",/nan, box=box) 384 swr3=reform(swr3) 385 swr4=read_ncdf("swr", st4, en4, file=file,/nostr, box=box) 386 swr4=grossemoyenne(swr4, "xy",/nan, box=box) 387 swr4=reform(swr4) 256 388 257 389 file=project_id_env+'lwr_oafluxgrid_1985_2007.nc' 258 390 initncdf, file 259 lwr1=-1*read_ncdf("lwr", st1, en1, file=file,/nostr, box=box) & lwr1=grossemoyenne(lwr1, "xy",/nan, box=box) & lwr1=reform(lwr1) 260 lwr2=-1*read_ncdf("lwr", st2, en2, file=file,/nostr, box=box) & lwr2=grossemoyenne(lwr2, "xy",/nan, box=box) & lwr2=reform(lwr2) 261 lwr3=-1*read_ncdf("lwr", st3, en3, file=file,/nostr, box=box) & lwr3=grossemoyenne(lwr3, "xy",/nan, box=box) & lwr3=reform(lwr3) 262 lwr4=-1*read_ncdf("lwr", st4, en4, file=file,/nostr, box=box) & lwr4=grossemoyenne(lwr4, "xy",/nan, box=box) & lwr4=reform(lwr4) 391 lwr1=-1*read_ncdf("lwr", st1, en1, file=file,/nostr, box=box) 392 lwr1=grossemoyenne(lwr1, "xy",/nan, box=box) 393 lwr1=reform(lwr1) 394 lwr2=-1*read_ncdf("lwr", st2, en2, file=file,/nostr, box=box) 395 lwr2=grossemoyenne(lwr2, "xy",/nan, box=box) 396 lwr2=reform(lwr2) 397 lwr3=-1*read_ncdf("lwr", st3, en3, file=file,/nostr, box=box) 398 lwr3=grossemoyenne(lwr3, "xy",/nan, box=box) 399 lwr3=reform(lwr3) 400 lwr4=-1*read_ncdf("lwr", st4, en4, file=file,/nostr, box=box) 401 lwr4=grossemoyenne(lwr4, "xy",/nan, box=box) 402 lwr4=reform(lwr4) 263 403 264 404 file=project_id_env+'lhf_oafluxgrid_1985_2009.nc' 265 405 initncdf, file 266 lhf1=-1*read_ncdf("lhf", st1, en1, file=file,/nostr, box=box) & lhf1=grossemoyenne(lhf1, "xy",/nan, box=box) & lhf1=reform(lhf1) 267 lhf2=-1*read_ncdf("lhf", st2, en2, file=file,/nostr, box=box) & lhf2=grossemoyenne(lhf2, "xy",/nan, box=box) & lhf2=reform(lhf2) 268 lhf3=-1*read_ncdf("lhf", st3, en3, file=file,/nostr, box=box) & lhf3=grossemoyenne(lhf3, "xy",/nan, box=box) & lhf3=reform(lhf3) 269 lhf4=-1*read_ncdf("lhf", st4, en4, file=file,/nostr, box=box) & lhf4=grossemoyenne(lhf4, "xy",/nan, box=box) & lhf4=reform(lhf4) 406 lhf1=-1*read_ncdf("lhf", st1, en1, file=file,/nostr, box=box) 407 lhf1=grossemoyenne(lhf1, "xy",/nan, box=box) 408 lhf1=reform(lhf1) 409 lhf2=-1*read_ncdf("lhf", st2, en2, file=file,/nostr, box=box) 410 lhf2=grossemoyenne(lhf2, "xy",/nan, box=box) 411 lhf2=reform(lhf2) 412 lhf3=-1*read_ncdf("lhf", st3, en3, file=file,/nostr, box=box) 413 lhf3=grossemoyenne(lhf3, "xy",/nan, box=box) 414 lhf3=reform(lhf3) 415 lhf4=-1*read_ncdf("lhf", st4, en4, file=file,/nostr, box=box) 416 lhf4=grossemoyenne(lhf4, "xy",/nan, box=box) 417 lhf4=reform(lhf4) 270 418 271 419 file=project_id_env+'shf_oafluxgrid_1985_2009.nc' 272 420 initncdf, file 273 shf1=-1*read_ncdf("shf", st1, en1, file=file,/nostr, box=box) & shf1=grossemoyenne(shf1, "xy",/nan, box=box) & shf1=reform(shf1) 274 shf2=-1*read_ncdf("shf", st2, en2, file=file,/nostr, box=box) & shf2=grossemoyenne(shf2, "xy",/nan, box=box) & shf2=reform(shf2) 275 shf3=-1*read_ncdf("shf", st3, en3, file=file,/nostr, box=box) & shf3=grossemoyenne(shf3, "xy",/nan, box=box) & shf3=reform(shf3) 276 shf4=-1*read_ncdf("shf", st4, en4, file=file,/nostr, box=box) & shf4=grossemoyenne(shf4, "xy",/nan, box=box) & shf4=reform(shf4) 277 278 net1=swr1+lwr1+lhf1+shf1 & net2=swr2+lwr2+lhf2+shf2 279 net3=swr3+lwr3+lhf3+shf3 & net4=swr4+lwr4+lhf4+shf4 421 shf1=-1*read_ncdf("shf", st1, en1, file=file,/nostr, box=box) 422 shf1=grossemoyenne(shf1, "xy",/nan, box=box) 423 shf1=reform(shf1) 424 shf2=-1*read_ncdf("shf", st2, en2, file=file,/nostr, box=box) 425 shf2=grossemoyenne(shf2, "xy",/nan, box=box) 426 shf2=reform(shf2) 427 shf3=-1*read_ncdf("shf", st3, en3, file=file,/nostr, box=box) 428 shf3=grossemoyenne(shf3, "xy",/nan, box=box) 429 shf3=reform(shf3) 430 shf4=-1*read_ncdf("shf", st4, en4, file=file,/nostr, box=box) 431 shf4=grossemoyenne(shf4, "xy",/nan, box=box) 432 shf4=reform(shf4) 433 434 net1=swr1+lwr1+lhf1+shf1 435 net2=swr2+lwr2+lhf2+shf2 436 net3=swr3+lwr3+lhf3+shf3 437 net4=swr4+lwr4+lhf4+shf4 280 438 281 439 oaf=[net1,net2,net3,net4] 282 440 283 441 help, oaf 284 swr1=0 & swr2=0 & swr3=0 & swr4=0 & lwr1=0 & lwr2=0 & lwr3=0 & lwr4=0 285 lhf1=0 & lhf2=0 & lhf3=0 & lhf4=0 & shf1=0 & shf2=0 & shf3=0 & shf4=0 286 net1=0 & net2=0 & net3=0 & net4=0 442 swr1=0 443 swr2=0 444 swr3=0 445 swr4=0 446 lwr1=0 447 lwr2=0 448 lwr3=0 449 lwr4=0 450 lhf1=0 451 lhf2=0 452 lhf3=0 453 lhf4=0 454 shf1=0 455 shf2=0 456 shf3=0 457 shf4=0 458 net1=0 459 net2=0 460 net3=0 461 net4=0 287 462 288 463 fi=project_id_env+'swr_ncep2_oaflxgrid_19890101_20091231.nc' 289 464 initncdf, fi 290 swr1=read_ncdf("swr", st1, en1, file=fi,/nostr, box=box) & swr1=grossemoyenne(swr1, "xy",/nan, box=box) & swr1=reform(swr1) 291 swr2=read_ncdf("swr", st2, en2, file=fi,/nostr, box=box) & swr2=grossemoyenne(swr2, "xy",/nan, box=box) & swr2=reform(swr2) 292 swr3=read_ncdf("swr", st3, en3, file=fi,/nostr, box=box) & swr3=grossemoyenne(swr3, "xy",/nan, box=box) & swr3=reform(swr3) 293 swr4=read_ncdf("swr", st4, en4, file=fi,/nostr, box=box) & swr4=grossemoyenne(swr4, "xy",/nan, box=box) & swr4=reform(swr4) 465 swr1=read_ncdf("swr", st1, en1, file=fi,/nostr, box=box) 466 swr1=grossemoyenne(swr1, "xy",/nan, box=box) 467 swr1=reform(swr1) 468 swr2=read_ncdf("swr", st2, en2, file=fi,/nostr, box=box) 469 swr2=grossemoyenne(swr2, "xy",/nan, box=box) 470 swr2=reform(swr2) 471 swr3=read_ncdf("swr", st3, en3, file=fi,/nostr, box=box) 472 swr3=grossemoyenne(swr3, "xy",/nan, box=box) 473 swr3=reform(swr3) 474 swr4=read_ncdf("swr", st4, en4, file=fi,/nostr, box=box) 475 swr4=grossemoyenne(swr4, "xy",/nan, box=box) 476 swr4=reform(swr4) 294 477 295 478 fi=project_id_env+"NCEP2_flux_19890101_20090729.nc" 296 479 initncdf, fi 297 lwr1=-1*read_ncdf("lwr", st1, en1, file=fi,/nostr, box=box) & lwr1=grossemoyenne(lwr1, "xy",/nan, box=box) & lwr1=reform(lwr1) 298 lwr2=-1*read_ncdf("lwr", st2, en2, file=fi,/nostr, box=box) & lwr2=grossemoyenne(lwr2, "xy",/nan, box=box) & lwr2=reform(lwr2) 299 lwr3=-1*read_ncdf("lwr", st3, en3, file=fi,/nostr, box=box) & lwr3=grossemoyenne(lwr3, "xy",/nan, box=box) & lwr3=reform(lwr3) 300 lwr4=-1*read_ncdf("lwr", st4, en4, file=fi,/nostr, box=box) & lwr4=grossemoyenne(lwr4, "xy",/nan, box=box) & lwr4=reform(lwr4) 480 lwr1=-1*read_ncdf("lwr", st1, en1, file=fi,/nostr, box=box) 481 lwr1=grossemoyenne(lwr1, "xy",/nan, box=box) 482 lwr1=reform(lwr1) 483 lwr2=-1*read_ncdf("lwr", st2, en2, file=fi,/nostr, box=box) 484 lwr2=grossemoyenne(lwr2, "xy",/nan, box=box) 485 lwr2=reform(lwr2) 486 lwr3=-1*read_ncdf("lwr", st3, en3, file=fi,/nostr, box=box) 487 lwr3=grossemoyenne(lwr3, "xy",/nan, box=box) 488 lwr3=reform(lwr3) 489 lwr4=-1*read_ncdf("lwr", st4, en4, file=fi,/nostr, box=box) 490 lwr4=grossemoyenne(lwr4, "xy",/nan, box=box) 491 lwr4=reform(lwr4) 301 492 302 493 fi=project_id_env+'lhf_ncep2_oafluxgrid_19890101_20091231.nc' 303 494 initncdf, fi 304 lhf1=-1*read_ncdf("lhf", st1, en1, file=fi,/nostr, box=box) & lhf1=grossemoyenne(lhf1, "xy",/nan, box=box) & lhf1=reform(lhf1) 305 lhf2=-1*read_ncdf("lhf", st2, en2, file=fi,/nostr, box=box) & lhf2=grossemoyenne(lhf2, "xy",/nan, box=box) & lhf2=reform(lhf2) 306 lhf3=-1*read_ncdf("lhf", st3, en3, file=fi,/nostr, box=box) & lhf3=grossemoyenne(lhf3, "xy",/nan, box=box) & lhf3=reform(lhf3) 307 lhf4=-1*read_ncdf("lhf", st4, en4, file=fi,/nostr, box=box) & lhf4=grossemoyenne(lhf4, "xy",/nan, box=box) & lhf4=reform(lhf4) 495 lhf1=-1*read_ncdf("lhf", st1, en1, file=fi,/nostr, box=box) 496 lhf1=grossemoyenne(lhf1, "xy",/nan, box=box) 497 lhf1=reform(lhf1) 498 lhf2=-1*read_ncdf("lhf", st2, en2, file=fi,/nostr, box=box) 499 lhf2=grossemoyenne(lhf2, "xy",/nan, box=box) 500 lhf2=reform(lhf2) 501 lhf3=-1*read_ncdf("lhf", st3, en3, file=fi,/nostr, box=box) 502 lhf3=grossemoyenne(lhf3, "xy",/nan, box=box) 503 lhf3=reform(lhf3) 504 lhf4=-1*read_ncdf("lhf", st4, en4, file=fi,/nostr, box=box) 505 lhf4=grossemoyenne(lhf4, "xy",/nan, box=box) 506 lhf4=reform(lhf4) 308 507 309 508 fi=project_id_env+'shf_ncep2_oafluxgrid_19890101_20091231.nc' 310 509 initncdf, fi 311 shf1=-1*read_ncdf("shf", st1, en1, file=fi,/nostr, box=box) & shf1=grossemoyenne(shf1, "xy",/nan, box=box) & shf1=reform(shf1) 312 shf2=-1*read_ncdf("shf", st2, en2, file=fi,/nostr, box=box) & shf2=grossemoyenne(shf2, "xy",/nan, box=box) & shf2=reform(shf2) 313 shf3=-1*read_ncdf("shf", st3, en3, file=fi,/nostr, box=box) & shf3=grossemoyenne(shf3, "xy",/nan, box=box) & shf3=reform(shf3) 314 shf4=-1*read_ncdf("shf", st4, en4, file=fi,/nostr, box=box) & shf4=grossemoyenne(shf4, "xy",/nan, box=box) & shf4=reform(shf4) 315 316 net1=swr1+lwr1+lhf1+shf1 & net2=swr2+lwr2+lhf2+shf2 317 net3=swr3+lwr3+lhf3+shf3 & net4=swr4+lwr4+lhf4+shf4 510 shf1=-1*read_ncdf("shf", st1, en1, file=fi,/nostr, box=box) 511 shf1=grossemoyenne(shf1, "xy",/nan, box=box) 512 shf1=reform(shf1) 513 shf2=-1*read_ncdf("shf", st2, en2, file=fi,/nostr, box=box) 514 shf2=grossemoyenne(shf2, "xy",/nan, box=box) 515 shf2=reform(shf2) 516 shf3=-1*read_ncdf("shf", st3, en3, file=fi,/nostr, box=box) 517 shf3=grossemoyenne(shf3, "xy",/nan, box=box) 518 shf3=reform(shf3) 519 shf4=-1*read_ncdf("shf", st4, en4, file=fi,/nostr, box=box) 520 shf4=grossemoyenne(shf4, "xy",/nan, box=box) 521 shf4=reform(shf4) 522 523 net1=swr1+lwr1+lhf1+shf1 524 net2=swr2+lwr2+lhf2+shf2 525 net3=swr3+lwr3+lhf3+shf3 526 net4=swr4+lwr4+lhf4+shf4 318 527 319 528 nce2=[net1,net2,net3,net4] 320 529 321 530 help, nce2 322 swr1=0 & swr2=0 & swr3=0 & swr4=0 & lwr1=0 & lwr2=0 & lwr3=0 & lwr4=0 323 lhf1=0 & lhf2=0 & lhf3=0 & lhf4=0 & shf1=0 & shf2=0 & shf3=0 & shf4=0 324 net1=0 & net2=0 & net3=0 & net4=0 531 swr1=0 532 swr2=0 533 swr3=0 534 swr4=0 535 lwr1=0 536 lwr2=0 537 lwr3=0 538 lwr4=0 539 lhf1=0 540 lhf2=0 541 lhf3=0 542 lhf4=0 543 shf1=0 544 shf2=0 545 shf3=0 546 shf4=0 547 net1=0 548 net2=0 549 net3=0 550 net4=0 325 551 326 552 file=project_id_env+"ncep1_flux_19890101_20091231.nc" 327 553 initncdf, file 328 swr1=read_ncdf("swr", st1, en1, file=file,/nostr, box=box) & swr1=grossemoyenne(swr1, "xy",/nan, box=box) & swr1=reform(swr1) 329 swr2=read_ncdf("swr", st2, en2, file=file,/nostr, box=box) & swr2=grossemoyenne(swr2, "xy",/nan, box=box) & swr2=reform(swr2) 330 swr3=read_ncdf("swr", st3, en3, file=file,/nostr, box=box) & swr3=grossemoyenne(swr3, "xy",/nan, box=box) & swr3=reform(swr3) 331 swr4=read_ncdf("swr", st4, en4, file=file,/nostr, box=box) & swr4=grossemoyenne(swr4, "xy",/nan, box=box) & swr4=reform(swr4) 332 333 lwr1=read_ncdf("lwr", st1, en1, file=file,/nostr, box=box) & lwr1=grossemoyenne(lwr1, "xy",/nan, box=box) & lwr1=reform(lwr1) 334 lwr2=read_ncdf("lwr", st2, en2, file=file,/nostr, box=box) & lwr2=grossemoyenne(lwr2, "xy",/nan, box=box) & lwr2=reform(lwr2) 335 lwr3=read_ncdf("lwr", st3, en3, file=file,/nostr, box=box) & lwr3=grossemoyenne(lwr3, "xy",/nan, box=box) & lwr3=reform(lwr3) 336 lwr4=read_ncdf("lwr", st4, en4, file=file,/nostr, box=box) & lwr4=grossemoyenne(lwr4, "xy",/nan, box=box) & lwr4=reform(lwr4) 337 338 lhf1=read_ncdf("lhf", st1, en1, file=file,/nostr, box=box) & lhf1=grossemoyenne(lhf1, "xy",/nan, box=box) & lhf1=reform(lhf1) 339 lhf2=read_ncdf("lhf", st2, en2, file=file,/nostr, box=box) & lhf2=grossemoyenne(lhf2, "xy",/nan, box=box) & lhf2=reform(lhf2) 340 lhf3=read_ncdf("lhf", st3, en3, file=file,/nostr, box=box) & lhf3=grossemoyenne(lhf3, "xy",/nan, box=box) & lhf3=reform(lhf3) 341 lhf4=read_ncdf("lhf", st4, en4, file=file,/nostr, box=box) & lhf4=grossemoyenne(lhf4, "xy",/nan, box=box) & lhf4=reform(lhf4) 342 343 shf1=read_ncdf("shf", st1, en1, file=file,/nostr, box=box) & shf1=grossemoyenne(shf1, "xy",/nan, box=box) & shf1=reform(shf1) 344 shf2=read_ncdf("shf", st2, en2, file=file,/nostr, box=box) & shf2=grossemoyenne(shf2, "xy",/nan, box=box) & shf2=reform(shf2) 345 shf3=read_ncdf("shf", st3, en3, file=file,/nostr, box=box) & shf3=grossemoyenne(shf3, "xy",/nan, box=box) & shf3=reform(shf3) 346 shf4=read_ncdf("shf", st4, en4, file=file,/nostr, box=box) & shf4=grossemoyenne(shf4, "xy",/nan, box=box) & shf4=reform(shf4) 347 348 net1=swr1+lwr1+lhf1+shf1 & net2=swr2+lwr2+lhf2+shf2 349 net3=swr3+lwr3+lhf3+shf3 & net4=swr4+lwr4+lhf4+shf4 350 351 nce1=[net1,net2,net3,net4] & nce1=nce1 554 swr1=read_ncdf("swr", st1, en1, file=file,/nostr, box=box) 555 swr1=grossemoyenne(swr1, "xy",/nan, box=box) 556 swr1=reform(swr1) 557 swr2=read_ncdf("swr", st2, en2, file=file,/nostr, box=box) 558 swr2=grossemoyenne(swr2, "xy",/nan, box=box) 559 swr2=reform(swr2) 560 swr3=read_ncdf("swr", st3, en3, file=file,/nostr, box=box) 561 swr3=grossemoyenne(swr3, "xy",/nan, box=box) 562 swr3=reform(swr3) 563 swr4=read_ncdf("swr", st4, en4, file=file,/nostr, box=box) 564 swr4=grossemoyenne(swr4, "xy",/nan, box=box) 565 swr4=reform(swr4) 566 567 lwr1=read_ncdf("lwr", st1, en1, file=file,/nostr, box=box) 568 lwr1=grossemoyenne(lwr1, "xy",/nan, box=box) 569 lwr1=reform(lwr1) 570 lwr2=read_ncdf("lwr", st2, en2, file=file,/nostr, box=box) 571 lwr2=grossemoyenne(lwr2, "xy",/nan, box=box) 572 lwr2=reform(lwr2) 573 lwr3=read_ncdf("lwr", st3, en3, file=file,/nostr, box=box) 574 lwr3=grossemoyenne(lwr3, "xy",/nan, box=box) 575 lwr3=reform(lwr3) 576 lwr4=read_ncdf("lwr", st4, en4, file=file,/nostr, box=box) 577 lwr4=grossemoyenne(lwr4, "xy",/nan, box=box) 578 lwr4=reform(lwr4) 579 580 lhf1=read_ncdf("lhf", st1, en1, file=file,/nostr, box=box) 581 lhf1=grossemoyenne(lhf1, "xy",/nan, box=box) 582 lhf1=reform(lhf1) 583 lhf2=read_ncdf("lhf", st2, en2, file=file,/nostr, box=box) 584 lhf2=grossemoyenne(lhf2, "xy",/nan, box=box) 585 lhf2=reform(lhf2) 586 lhf3=read_ncdf("lhf", st3, en3, file=file,/nostr, box=box) 587 lhf3=grossemoyenne(lhf3, "xy",/nan, box=box) 588 lhf3=reform(lhf3) 589 lhf4=read_ncdf("lhf", st4, en4, file=file,/nostr, box=box) 590 lhf4=grossemoyenne(lhf4, "xy",/nan, box=box) 591 lhf4=reform(lhf4) 592 593 shf1=read_ncdf("shf", st1, en1, file=file,/nostr, box=box) 594 shf1=grossemoyenne(shf1, "xy",/nan, box=box) 595 shf1=reform(shf1) 596 shf2=read_ncdf("shf", st2, en2, file=file,/nostr, box=box) 597 shf2=grossemoyenne(shf2, "xy",/nan, box=box) 598 shf2=reform(shf2) 599 shf3=read_ncdf("shf", st3, en3, file=file,/nostr, box=box) 600 shf3=grossemoyenne(shf3, "xy",/nan, box=box) 601 shf3=reform(shf3) 602 shf4=read_ncdf("shf", st4, en4, file=file,/nostr, box=box) 603 shf4=grossemoyenne(shf4, "xy",/nan, box=box) 604 shf4=reform(shf4) 605 606 net1=swr1+lwr1+lhf1+shf1 607 net2=swr2+lwr2+lhf2+shf2 608 net3=swr3+lwr3+lhf3+shf3 609 net4=swr4+lwr4+lhf4+shf4 610 611 nce1=[net1,net2,net3,net4] 612 nce1=nce1 352 613 353 614 help, nce1 354 swr1=0 & swr2=0 & swr3=0 & swr4=0 & lwr1=0 & lwr2=0 & lwr3=0 & lwr4=0 355 lhf1=0 & lhf2=0 & lhf3=0 & lhf4=0 & shf1=0 & shf2=0 & shf3=0 & shf4=0 356 net1=0 & net2=0 & net3=0 & net4=0 615 swr1=0 616 swr2=0 617 swr3=0 618 swr4=0 619 lwr1=0 620 lwr2=0 621 lwr3=0 622 lwr4=0 623 lhf1=0 624 lhf2=0 625 lhf3=0 626 lhf4=0 627 shf1=0 628 shf2=0 629 shf3=0 630 shf4=0 631 net1=0 632 net2=0 633 net3=0 634 net4=0 357 635 358 636 ind=where(finite(net)) 359 net=net(ind) & era=era(ind) & trop=trop(ind) & oaf=oaf(ind) & nce1=nce1(ind) & nce2=nce2(ind) 637 net=net(ind) 638 era=era(ind) 639 trop=trop(ind) 640 oaf=oaf(ind) 641 nce1=nce1(ind) 642 nce2=nce2(ind) 360 643 olr=olr(ind) 361 644 -
trunk/src/paper01/fig14/stratus_validation_net_2001_2002_all_v10.pro
r85 r94 117 117 ;; reading other data sets 118 118 119 st1=20011019 & en1=20021022 119 st1=20011019 120 en1=20021022 120 121 121 122 file=project_id_env+"erai_swr_19910101_20091231_oafluxgrid.nc" 122 123 initncdf, file 123 swr=read_ncdf('swr',st1,en1,file=file,/nostr, box=box) & swr=grossemoyenne(swr, "xy", box=box,/nan) & swr=reform(swr) 124 swr=read_ncdf('swr',st1,en1,file=file,/nostr, box=box) 125 swr=grossemoyenne(swr, "xy", box=box,/nan) 126 swr=reform(swr) 124 127 file=project_id_env+'erai_lwr_19890101_20091231_oafluxgrid.nc' 125 128 initncdf, file 126 lwr=read_ncdf('lwr',st1-1,en1,file=file,/nostr, box=box) & lwr=reform(lwr) 129 lwr=read_ncdf('lwr',st1-1,en1,file=file,/nostr, box=box) 130 lwr=reform(lwr) 127 131 file=project_id_env+'erai_shf_19890101_20091231_oafluxgrid.nc' 128 132 initncdf, file 129 shf=-1*read_ncdf('shf',st1,en1,file=file,/nostr, box=box) & shf=reform(shf) 133 shf=-1*read_ncdf('shf',st1,en1,file=file,/nostr, box=box) 134 shf=reform(shf) 130 135 file=project_id_env+'erai_lhf_19890101_20091231_oafluxgrid.nc' 131 136 initncdf, file 132 lhf=-1*read_ncdf('lhf',st1,en1,file=file,/nostr, box=box) & lhf=reform(lhf) 137 lhf=-1*read_ncdf('lhf',st1,en1,file=file,/nostr, box=box) 138 lhf=reform(lhf) 133 139 134 140 era=swr+lwr+lhf+shf 135 141 help, era 136 142 137 swr=0 & lwr=0 & lhf=0 & shf=0 143 swr=0 144 lwr=0 145 lhf=0 146 shf=0 138 147 139 148 file=project_id_env+"TropFlux_19890101_20091231.nc" 140 149 initncdf, file 141 swr=read_ncdf('swr',st1,en1,file=file,/nostr, box=box) & swr=grossemoyenne(swr, "xy",/nan, box=box) & swr=reform(swr) 142 lwr=read_ncdf('lwr',st1,en1,file=file,/nostr, box=box) & lwr=grossemoyenne(lwr, "xy",/nan, box=box) & lwr=reform(lwr) 143 shf=read_ncdf('shf',st1,en1,file=file,/nostr, box=box) & shf=grossemoyenne(shf, "xy",/nan, box=box) & shf=reform(shf) 144 lhf=read_ncdf('lhf',st1,en1,file=file,/nostr, box=box) & lhf=grossemoyenne(lhf, "xy",/nan, box=box) & lhf=reform(lhf) 150 swr=read_ncdf('swr',st1,en1,file=file,/nostr, box=box) 151 swr=grossemoyenne(swr, "xy",/nan, box=box) 152 swr=reform(swr) 153 lwr=read_ncdf('lwr',st1,en1,file=file,/nostr, box=box) 154 lwr=grossemoyenne(lwr, "xy",/nan, box=box) 155 lwr=reform(lwr) 156 shf=read_ncdf('shf',st1,en1,file=file,/nostr, box=box) 157 shf=grossemoyenne(shf, "xy",/nan, box=box) 158 shf=reform(shf) 159 lhf=read_ncdf('lhf',st1,en1,file=file,/nostr, box=box) 160 lhf=grossemoyenne(lhf, "xy",/nan, box=box) 161 lhf=reform(lhf) 145 162 146 163 file=project_id_env+"TropFlux_swr_19890101_20091231_NRT_v50.nc" 147 164 initncdf, file 148 olr1=read_ncdf("sw", st1-1, en1, file=file,/nostr, box=box) & olr1=grossemoyenne(olr1, "xy",/nan, box=box) & olr1=reform(olr1) 165 olr1=read_ncdf("sw", st1-1, en1, file=file,/nostr, box=box) 166 olr1=grossemoyenne(olr1, "xy",/nan, box=box) 167 olr1=reform(olr1) 149 168 150 169 trop=swr+lwr+shf+lhf 151 170 olr=olr1+lwr+shf+lhf 152 171 help, trop, olr 153 swr=0 & lwr=0 & lhf=0 & shf=0 & olr1=0 172 swr=0 173 lwr=0 174 lhf=0 175 shf=0 176 olr1=0 154 177 155 178 file=project_id_env+'swr_oafluxgrid_1985_2007.nc' 156 179 initncdf, file 157 swr=read_ncdf("swr", st1, en1, file=file,/nostr, box=box) & swr=grossemoyenne(swr, "xy",/nan, box=box) & swr=reform(swr) 180 swr=read_ncdf("swr", st1, en1, file=file,/nostr, box=box) 181 swr=grossemoyenne(swr, "xy",/nan, box=box) 182 swr=reform(swr) 158 183 159 184 file=project_id_env+'lwr_oafluxgrid_1985_2007.nc' 160 185 initncdf, file 161 lwr=read_ncdf("lwr", st1, en1, file=file,/nostr, box=box) & lwr=-1*reform(lwr) 186 lwr=read_ncdf("lwr", st1, en1, file=file,/nostr, box=box) 187 lwr=-1*reform(lwr) 162 188 163 189 file=project_id_env+'lhf_oafluxgrid_1985_2009.nc' 164 190 initncdf, file 165 lhf=read_ncdf("lhf", st1, en1, file=file,/nostr, box=box) & lhf=-1*reform(lhf) 191 lhf=read_ncdf("lhf", st1, en1, file=file,/nostr, box=box) 192 lhf=-1*reform(lhf) 166 193 167 194 file=project_id_env+'shf_oafluxgrid_1985_2009.nc' 168 195 initncdf, file 169 shf=read_ncdf("shf", st1, en1, file=file,/nostr, box=box) & shf=-1*reform(shf) 196 shf=read_ncdf("shf", st1, en1, file=file,/nostr, box=box) 197 shf=-1*reform(shf) 170 198 171 199 oaf=swr+lwr+shf+lhf 172 200 help, oaf 173 swr=0 & lwr=0 & lhf=0 & shf=0 201 swr=0 202 lwr=0 203 lhf=0 204 shf=0 174 205 175 206 fi=project_id_env+'swr_ncep2_oaflxgrid_19890101_20091231.nc' 176 207 initncdf, fi 177 swr=read_ncdf("swr", st1, en1, file=fi,/nostr, box=box) & swr=grossemoyenne(swr, "xy",/nan, box=box) & swr=reform(swr) 208 swr=read_ncdf("swr", st1, en1, file=fi,/nostr, box=box) 209 swr=grossemoyenne(swr, "xy",/nan, box=box) 210 swr=reform(swr) 178 211 179 212 fi=project_id_env+"NCEP2_flux_19890101_20090729.nc" 180 213 initncdf, fi 181 lwr=read_ncdf("lwr", st1, en1, file=fi,/nostr, box=box) & lwr=grossemoyenne(lwr, "xy",/nan, box=box) & lwr=reform(lwr) 214 lwr=read_ncdf("lwr", st1, en1, file=fi,/nostr, box=box) 215 lwr=grossemoyenne(lwr, "xy",/nan, box=box) 216 lwr=reform(lwr) 182 217 lwr=-1*lwr 183 218 184 219 fi=project_id_env+'lhf_ncep2_oafluxgrid_19890101_20091231.nc' 185 220 initncdf, fi 186 lhf=read_ncdf("lhf", st1, en1, file=fi,/nostr, box=box) & lhf=-1*reform(lhf) 221 lhf=read_ncdf("lhf", st1, en1, file=fi,/nostr, box=box) 222 lhf=-1*reform(lhf) 187 223 188 224 fi=project_id_env+'shf_ncep2_oafluxgrid_19890101_20091231.nc' 189 225 initncdf, fi 190 shf=read_ncdf("shf", st1, en1, file=fi,/nostr, box=box) & shf=-1*reform(shf) 226 shf=read_ncdf("shf", st1, en1, file=fi,/nostr, box=box) 227 shf=-1*reform(shf) 191 228 192 229 nce2=swr+lwr+shf+lhf 193 230 help, nce2 194 231 195 swr=0 & lwr=0 & lhf=0 & shf=0 232 swr=0 233 lwr=0 234 lhf=0 235 shf=0 196 236 197 237 file=project_id_env+"ncep1_flux_19890101_20091231.nc" 198 238 initncdf, file 199 swr=read_ncdf("swr", st1, en1, file=file,/nostr, box=box) & swr=grossemoyenne(swr, "xy",/nan, box=box) & swr=reform(swr) 200 lwr=read_ncdf("lwr", st1, en1, file=file,/nostr, box=box) & lwr=grossemoyenne(lwr, "xy",/nan, box=box) & lwr=reform(lwr) 201 shf=read_ncdf("shf", st1, en1, file=file,/nostr, box=box) & shf=grossemoyenne(shf, "xy",/nan, box=box) & shf=reform(shf) 202 lhf=read_ncdf("lhf", st1, en1, file=file,/nostr, box=box) & lhf=grossemoyenne(lhf, "xy",/nan, box=box) & lhf=reform(lhf) 239 swr=read_ncdf("swr", st1, en1, file=file,/nostr, box=box) 240 swr=grossemoyenne(swr, "xy",/nan, box=box) 241 swr=reform(swr) 242 lwr=read_ncdf("lwr", st1, en1, file=file,/nostr, box=box) 243 lwr=grossemoyenne(lwr, "xy",/nan, box=box) 244 lwr=reform(lwr) 245 shf=read_ncdf("shf", st1, en1, file=file,/nostr, box=box) 246 shf=grossemoyenne(shf, "xy",/nan, box=box) 247 shf=reform(shf) 248 lhf=read_ncdf("lhf", st1, en1, file=file,/nostr, box=box) 249 lhf=grossemoyenne(lhf, "xy",/nan, box=box) 250 lhf=reform(lhf) 203 251 204 252 nce1=swr+lwr+shf+lhf … … 206 254 207 255 ind=where(finite(net)) 208 net=net(ind) & era=era(ind) & trop=trop(ind) & oaf=oaf(ind) & nce2=nce2(ind) & nce1=nce1(ind) 256 net=net(ind) 257 era=era(ind) 258 trop=trop(ind) 259 oaf=oaf(ind) 260 nce2=nce2(ind) 261 nce1=nce1(ind) 209 262 olr=olr(ind) 210 263 -
trunk/src/paper01/fig14/subdctn_cs_validation_net_1991_93_all_v10.pro
r85 r94 139 139 ;; reading other data sets 140 140 141 st1=19910623 & en1=19930616 141 st1=19910623 142 en1=19930616 142 143 143 144 file=project_id_env+"erai_swr_19910101_20091231_oafluxgrid.nc" 144 145 initncdf, file 145 swr1=read_ncdf('swr',st1,en1,file=file,/nostr, box=box) & swr1=grossemoyenne(swr1, "xy", box=box,/nan) & swr1=reform(swr1) 146 swr1=read_ncdf('swr',st1,en1,file=file,/nostr, box=box) 147 swr1=grossemoyenne(swr1, "xy", box=box,/nan) 148 swr1=reform(swr1) 146 149 file=project_id_env+'erai_lhf_19890101_20091231_oafluxgrid.nc' 147 150 initncdf, file 148 lhf1=-1*read_ncdf('lhf',st1,en1,file=file,/nostr, box=box) & lhf1=grossemoyenne(lhf1, "xy", box=box,/nan) & lhf1=reform(lhf1) 151 lhf1=-1*read_ncdf('lhf',st1,en1,file=file,/nostr, box=box) 152 lhf1=grossemoyenne(lhf1, "xy", box=box,/nan) 153 lhf1=reform(lhf1) 149 154 file=project_id_env+'erai_shf_19890101_20091231_oafluxgrid.nc' 150 155 initncdf, file 151 shf1=-1*read_ncdf('shf',st1,en1,file=file,/nostr, box=box) & shf1=grossemoyenne(shf1, "xy", box=box,/nan) & shf1=reform(shf1) 156 shf1=-1*read_ncdf('shf',st1,en1,file=file,/nostr, box=box) 157 shf1=grossemoyenne(shf1, "xy", box=box,/nan) 158 shf1=reform(shf1) 152 159 file=project_id_env+'erai_lwr_19890101_20091231_oafluxgrid.nc' 153 160 initncdf, file 154 lwr1=read_ncdf('lwr',st1-1,en1,file=file,/nostr, box=box) & lwr1=grossemoyenne(lwr1, "xy", box=box,/nan) & lwr1=reform(lwr1) 161 lwr1=read_ncdf('lwr',st1-1,en1,file=file,/nostr, box=box) 162 lwr1=grossemoyenne(lwr1, "xy", box=box,/nan) 163 lwr1=reform(lwr1) 155 164 156 165 era=swr1+lwr1+lhf1+shf1 157 swr1=0 & lwr1=0 & shf1=0 & lhf1=0 166 swr1=0 167 lwr1=0 168 shf1=0 169 lhf1=0 158 170 help, era 159 171 160 172 file=project_id_env+"TropFlux_19890101_20091231.nc" 161 173 initncdf, file 162 lhf1=read_ncdf('lhf',st1,en1,file=file,/nostr, box=box) & lhf1=grossemoyenne(lhf1, "xy", box=box,/nan) & lhf1=reform(lhf1) 163 shf1=read_ncdf('shf',st1,en1,file=file,/nostr, box=box) & shf1=grossemoyenne(shf1, "xy", box=box,/nan) & shf1=reform(shf1) 164 lwr1=read_ncdf('lwr',st1,en1,file=file,/nostr, box=box) & lwr1=grossemoyenne(lwr1, "xy", box=box,/nan) & lwr1=reform(lwr1) 165 swr1=read_ncdf('swr',st1,en1,file=file,/nostr, box=box) & swr1=grossemoyenne(swr1, "xy", box=box,/nan) & swr1=reform(swr1) 174 lhf1=read_ncdf('lhf',st1,en1,file=file,/nostr, box=box) 175 lhf1=grossemoyenne(lhf1, "xy", box=box,/nan) 176 lhf1=reform(lhf1) 177 shf1=read_ncdf('shf',st1,en1,file=file,/nostr, box=box) 178 shf1=grossemoyenne(shf1, "xy", box=box,/nan) 179 shf1=reform(shf1) 180 lwr1=read_ncdf('lwr',st1,en1,file=file,/nostr, box=box) 181 lwr1=grossemoyenne(lwr1, "xy", box=box,/nan) 182 lwr1=reform(lwr1) 183 swr1=read_ncdf('swr',st1,en1,file=file,/nostr, box=box) 184 swr1=grossemoyenne(swr1, "xy", box=box,/nan) 185 swr1=reform(swr1) 166 186 trop=swr1+lwr1+lhf1+shf1 167 187 168 188 file=project_id_env+"TropFlux_swr_19890101_20091231_NRT_v50.nc" 169 189 initncdf, file 170 olr1=read_ncdf("sw", st1-1, en1, file=file,/nostr, box=box) & olr1=grossemoyenne(olr1, "xy",/nan, box=box) & olr1=reform(olr1) 190 olr1=read_ncdf("sw", st1-1, en1, file=file,/nostr, box=box) 191 olr1=grossemoyenne(olr1, "xy",/nan, box=box) 192 olr1=reform(olr1) 171 193 172 194 olr=olr1+lwr1+shf1+lhf1 173 195 help, trop, olr 174 swr1=0 & lwr1=0 & shf1=0 & lhf1=0 & olr1=0 196 swr1=0 197 lwr1=0 198 shf1=0 199 lhf1=0 200 olr1=0 175 201 176 202 file=project_id_env+'swr_oafluxgrid_1985_2007.nc' 177 203 initncdf, file 178 swr1=read_ncdf("swr", st1, en1, file=file,/nostr, box=box) & swr1=grossemoyenne(swr1, "xy",/nan, box=box) & swr1=reform(swr1) 204 swr1=read_ncdf("swr", st1, en1, file=file,/nostr, box=box) 205 swr1=grossemoyenne(swr1, "xy",/nan, box=box) 206 swr1=reform(swr1) 179 207 file=project_id_env+'lwr_oafluxgrid_1985_2007.nc' 180 208 initncdf, file 181 lwr1=-1*read_ncdf("lwr", st1, en1, file=file,/nostr, box=box) & lwr1=grossemoyenne(lwr1, "xy",/nan, box=box) & lwr1=reform(lwr1) 209 lwr1=-1*read_ncdf("lwr", st1, en1, file=file,/nostr, box=box) 210 lwr1=grossemoyenne(lwr1, "xy",/nan, box=box) 211 lwr1=reform(lwr1) 182 212 file=project_id_env+'lhf_oafluxgrid_1985_2009.nc' 183 213 initncdf, file 184 lhf1=-1*read_ncdf("lhf", st1, en1, file=file,/nostr, box=box) & lhf1=grossemoyenne(lhf1, "xy",/nan, box=box) & lhf1=reform(lhf1) 214 lhf1=-1*read_ncdf("lhf", st1, en1, file=file,/nostr, box=box) 215 lhf1=grossemoyenne(lhf1, "xy",/nan, box=box) 216 lhf1=reform(lhf1) 185 217 file=project_id_env+'shf_oafluxgrid_1985_2009.nc' 186 218 initncdf, file 187 shf1=-1*read_ncdf("shf", st1, en1, file=file,/nostr, box=box) & shf1=grossemoyenne(shf1, "xy",/nan, box=box) & shf1=reform(shf1) 219 shf1=-1*read_ncdf("shf", st1, en1, file=file,/nostr, box=box) 220 shf1=grossemoyenne(shf1, "xy",/nan, box=box) 221 shf1=reform(shf1) 188 222 189 223 oaf=swr1+lwr1+lhf1+shf1 190 224 help, oaf 191 swr1=0 & lwr1=0 & shf1=0 & lhf1=0 & olr1=0 225 swr1=0 226 lwr1=0 227 shf1=0 228 lhf1=0 229 olr1=0 192 230 193 231 fi=project_id_env+'swr_ncep2_oaflxgrid_19890101_20091231.nc' 194 232 initncdf, fi 195 swr1=read_ncdf("swr", st1, en1, file=fi,/nostr, box=box) & swr1=grossemoyenne(swr1, "xy",/nan, box=box) & swr1=reform(swr1) 233 swr1=read_ncdf("swr", st1, en1, file=fi,/nostr, box=box) 234 swr1=grossemoyenne(swr1, "xy",/nan, box=box) 235 swr1=reform(swr1) 196 236 fi=project_id_env+"NCEP2_flux_19890101_20090729.nc" 197 237 initncdf, fi 198 lwr1=-1*read_ncdf("lwr", st1, en1, file=fi,/nostr, box=box) & lwr1=grossemoyenne(lwr1, "xy",/nan, box=box) & lwr1=reform(lwr1) 238 lwr1=-1*read_ncdf("lwr", st1, en1, file=fi,/nostr, box=box) 239 lwr1=grossemoyenne(lwr1, "xy",/nan, box=box) 240 lwr1=reform(lwr1) 199 241 fi=project_id_env+'lhf_ncep2_oafluxgrid_19890101_20091231.nc' 200 242 initncdf, fi 201 lhf1=-1*read_ncdf("lhf", st1, en1, file=fi,/nostr, box=box) & lhf1=grossemoyenne(lhf1, "xy",/nan, box=box) & lhf1=reform(lhf1) 243 lhf1=-1*read_ncdf("lhf", st1, en1, file=fi,/nostr, box=box) 244 lhf1=grossemoyenne(lhf1, "xy",/nan, box=box) 245 lhf1=reform(lhf1) 202 246 fi=project_id_env+'shf_ncep2_oafluxgrid_19890101_20091231.nc' 203 247 initncdf, fi 204 shf1=-1*read_ncdf("shf", st1, en1, file=fi,/nostr, box=box) & shf1=grossemoyenne(shf1, "xy",/nan, box=box) & shf1=reform(shf1) 248 shf1=-1*read_ncdf("shf", st1, en1, file=fi,/nostr, box=box) 249 shf1=grossemoyenne(shf1, "xy",/nan, box=box) 250 shf1=reform(shf1) 205 251 206 252 nce2=swr1+lwr1+lhf1+shf1 207 253 help, nce2 208 swr1=0 & lwr1=0 & shf1=0 & lhf1=0 & olr1=0 254 swr1=0 255 lwr1=0 256 shf1=0 257 lhf1=0 258 olr1=0 209 259 210 260 file=project_id_env+"ncep1_flux_19890101_20091231.nc" 211 261 initncdf, file 212 262 213 lhf1=read_ncdf('lhf',st1,en1,file=file,/nostr, box=box) & lhf1=grossemoyenne(lhf1, "xy", box=box,/nan) & lhf1=reform(lhf1) 214 shf1=read_ncdf('shf',st1,en1,file=file,/nostr, box=box) & shf1=grossemoyenne(shf1, "xy", box=box,/nan) & shf1=reform(shf1) 215 lwr1=read_ncdf('lwr',st1,en1,file=file,/nostr, box=box) & lwr1=grossemoyenne(lwr1, "xy", box=box,/nan) & lwr1=reform(lwr1) 216 swr1=read_ncdf('swr',st1,en1,file=file,/nostr, box=box) & swr1=grossemoyenne(swr1, "xy", box=box,/nan) & swr1=reform(swr1) 263 lhf1=read_ncdf('lhf',st1,en1,file=file,/nostr, box=box) 264 lhf1=grossemoyenne(lhf1, "xy", box=box,/nan) 265 lhf1=reform(lhf1) 266 shf1=read_ncdf('shf',st1,en1,file=file,/nostr, box=box) 267 shf1=grossemoyenne(shf1, "xy", box=box,/nan) 268 shf1=reform(shf1) 269 lwr1=read_ncdf('lwr',st1,en1,file=file,/nostr, box=box) 270 lwr1=grossemoyenne(lwr1, "xy", box=box,/nan) 271 lwr1=reform(lwr1) 272 swr1=read_ncdf('swr',st1,en1,file=file,/nostr, box=box) 273 swr1=grossemoyenne(swr1, "xy", box=box,/nan) 274 swr1=reform(swr1) 217 275 nce1=swr1+(lwr1+shf1+lhf1) 218 276 help, nce1 219 277 220 278 ind=where(finite(net)) 221 net=net(ind) & era=era(ind) & trop=trop(ind) & oaf=oaf(ind) & nce2=nce2(ind) & nce1=nce1(ind) 279 net=net(ind) 280 era=era(ind) 281 trop=trop(ind) 282 oaf=oaf(ind) 283 nce2=nce2(ind) 284 nce1=nce1(ind) 222 285 olr=olr(ind) 223 286 -
trunk/src/paper01/fig14/subdctn_ses_validation_net_1991_93_all_v10.pro
r85 r94 130 130 ;; reading other data sets 131 131 132 st1=19920209 & en1=19920911 133 st2=19920921 & en2=19930618 132 st1=19920209 133 en1=19920911 134 st2=19920921 135 en2=19930618 134 136 135 137 file=project_id_env+"erai_swr_19910101_20091231_oafluxgrid.nc" 136 138 initncdf, file 137 swr1=read_ncdf('swr',st1,en1,file=file,/nostr, box=box) & swr1=grossemoyenne(swr1, "xy", box=box,/nan) & swr1=reform(swr1) 138 swr2=read_ncdf('swr',st2,en2,file=file,/nostr, box=box) & swr2=grossemoyenne(swr2, "xy", box=box,/nan) & swr2=reform(swr2) 139 swr1=read_ncdf('swr',st1,en1,file=file,/nostr, box=box) 140 swr1=grossemoyenne(swr1, "xy", box=box,/nan) 141 swr1=reform(swr1) 142 swr2=read_ncdf('swr',st2,en2,file=file,/nostr, box=box) 143 swr2=grossemoyenne(swr2, "xy", box=box,/nan) 144 swr2=reform(swr2) 139 145 140 146 file=project_id_env+'erai_lhf_19890101_20091231_oafluxgrid.nc' 141 147 initncdf, file 142 lhf1=-1*read_ncdf('lhf',st1,en1,file=file,/nostr, box=box) & lhf1=grossemoyenne(lhf1, "xy", box=box,/nan) & lhf1=reform(lhf1) 143 lhf2=-1*read_ncdf('lhf',st2,en2,file=file,/nostr, box=box) & lhf2=grossemoyenne(lhf2, "xy", box=box,/nan) & lhf2=reform(lhf2) 148 lhf1=-1*read_ncdf('lhf',st1,en1,file=file,/nostr, box=box) 149 lhf1=grossemoyenne(lhf1, "xy", box=box,/nan) 150 lhf1=reform(lhf1) 151 lhf2=-1*read_ncdf('lhf',st2,en2,file=file,/nostr, box=box) 152 lhf2=grossemoyenne(lhf2, "xy", box=box,/nan) 153 lhf2=reform(lhf2) 144 154 145 155 file=project_id_env+'erai_shf_19890101_20091231_oafluxgrid.nc' 146 156 initncdf, file 147 shf1=-1*read_ncdf('shf',st1,en1,file=file,/nostr, box=box) & shf1=grossemoyenne(shf1, "xy", box=box,/nan) & shf1=reform(shf1) 148 shf2=-1*read_ncdf('shf',st2,en2,file=file,/nostr, box=box) & shf2=grossemoyenne(shf2, "xy", box=box,/nan) & shf2=reform(shf2) 157 shf1=-1*read_ncdf('shf',st1,en1,file=file,/nostr, box=box) 158 shf1=grossemoyenne(shf1, "xy", box=box,/nan) 159 shf1=reform(shf1) 160 shf2=-1*read_ncdf('shf',st2,en2,file=file,/nostr, box=box) 161 shf2=grossemoyenne(shf2, "xy", box=box,/nan) 162 shf2=reform(shf2) 149 163 150 164 file=project_id_env+'erai_lwr_19890101_20091231_oafluxgrid.nc' 151 165 initncdf, file 152 lwr1=read_ncdf('lwr',st1-1,en1,file=file,/nostr, box=box) & lwr1=grossemoyenne(lwr1, "xy", box=box,/nan) & lwr1=reform(lwr1) 153 lwr2=read_ncdf('lwr',st2-1,en2,file=file,/nostr, box=box) & lwr2=grossemoyenne(lwr2, "xy", box=box,/nan) & lwr2=reform(lwr2) 154 155 net1=swr1+(lwr1+shf1+lhf1) & net2=swr2+(lwr2+shf2+lhf2) 166 lwr1=read_ncdf('lwr',st1-1,en1,file=file,/nostr, box=box) 167 lwr1=grossemoyenne(lwr1, "xy", box=box,/nan) 168 lwr1=reform(lwr1) 169 lwr2=read_ncdf('lwr',st2-1,en2,file=file,/nostr, box=box) 170 lwr2=grossemoyenne(lwr2, "xy", box=box,/nan) 171 lwr2=reform(lwr2) 172 173 net1=swr1+(lwr1+shf1+lhf1) 174 net2=swr2+(lwr2+shf2+lhf2) 156 175 era=[net1,net2] 157 176 help, era 158 177 159 lhf1=0. & lhf2=0. & shf1=0. & shf2=0. 160 lwr1=0. & lwr2=0. & swr1=0. & swr2=0. 161 net1=0. & net2=0. 178 lhf1=0. 179 lhf2=0. 180 shf1=0. 181 shf2=0. 182 lwr1=0. 183 lwr2=0. 184 swr1=0. 185 swr2=0. 186 net1=0. 187 net2=0. 162 188 163 189 file=project_id_env+"TropFlux_19890101_20091231.nc" 164 190 initncdf, file 165 lhf1=read_ncdf('lhf',st1,en1,file=file,/nostr, box=box) & lhf1=grossemoyenne(lhf1, "xy", box=box,/nan) & lhf1=reform(lhf1) 166 lhf2=read_ncdf('lhf',st2,en2,file=file,/nostr, box=box) & lhf2=grossemoyenne(lhf2, "xy", box=box,/nan) & lhf2=reform(lhf2) 167 shf1=read_ncdf('shf',st1,en1,file=file,/nostr, box=box) & shf1=grossemoyenne(shf1, "xy", box=box,/nan) & shf1=reform(shf1) 168 shf2=read_ncdf('shf',st2,en2,file=file,/nostr, box=box) & shf2=grossemoyenne(shf2, "xy", box=box,/nan) & shf2=reform(shf2) 169 lwr1=read_ncdf('lwr',st1,en1,file=file,/nostr, box=box) & lwr1=grossemoyenne(lwr1, "xy", box=box,/nan) & lwr1=reform(lwr1) 170 lwr2=read_ncdf('lwr',st2,en2,file=file,/nostr, box=box) & lwr2=grossemoyenne(lwr2, "xy", box=box,/nan) & lwr2=reform(lwr2) 171 swr1=read_ncdf('swr',st1,en1,file=file,/nostr, box=box) & swr1=grossemoyenne(swr1, "xy", box=box,/nan) & swr1=reform(swr1) 172 swr2=read_ncdf('swr',st2,en2,file=file,/nostr, box=box) & swr2=grossemoyenne(swr2, "xy", box=box,/nan) & swr2=reform(swr2) 191 lhf1=read_ncdf('lhf',st1,en1,file=file,/nostr, box=box) 192 lhf1=grossemoyenne(lhf1, "xy", box=box,/nan) 193 lhf1=reform(lhf1) 194 lhf2=read_ncdf('lhf',st2,en2,file=file,/nostr, box=box) 195 lhf2=grossemoyenne(lhf2, "xy", box=box,/nan) 196 lhf2=reform(lhf2) 197 shf1=read_ncdf('shf',st1,en1,file=file,/nostr, box=box) 198 shf1=grossemoyenne(shf1, "xy", box=box,/nan) 199 shf1=reform(shf1) 200 shf2=read_ncdf('shf',st2,en2,file=file,/nostr, box=box) 201 shf2=grossemoyenne(shf2, "xy", box=box,/nan) 202 shf2=reform(shf2) 203 lwr1=read_ncdf('lwr',st1,en1,file=file,/nostr, box=box) 204 lwr1=grossemoyenne(lwr1, "xy", box=box,/nan) 205 lwr1=reform(lwr1) 206 lwr2=read_ncdf('lwr',st2,en2,file=file,/nostr, box=box) 207 lwr2=grossemoyenne(lwr2, "xy", box=box,/nan) 208 lwr2=reform(lwr2) 209 swr1=read_ncdf('swr',st1,en1,file=file,/nostr, box=box) 210 swr1=grossemoyenne(swr1, "xy", box=box,/nan) 211 swr1=reform(swr1) 212 swr2=read_ncdf('swr',st2,en2,file=file,/nostr, box=box) 213 swr2=grossemoyenne(swr2, "xy", box=box,/nan) 214 swr2=reform(swr2) 173 215 174 216 file=project_id_env+"TropFlux_swr_19890101_20091231_NRT_v50.nc" 175 217 initncdf, file 176 olr1=read_ncdf("sw", st1-1, en1, file=file,/nostr, box=box) & olr1=grossemoyenne(olr1, "xy",/nan, box=box) & olr1=reform(olr1) 177 olr2=read_ncdf("sw", st2-1, en2, file=file,/nostr, box=box) & olr2=grossemoyenne(olr2, "xy",/nan, box=box) & olr2=reform(olr2) 178 179 net1=swr1+lwr1+(shf1+lhf1) & net2=swr2+lwr2+(shf2+lhf2) 180 neto_1=olr1+lwr1+lhf1+shf1 & neto_2=olr2+lwr2+lhf2+shf2 181 trop=[net1,net2] & olr=[neto_1,neto_2] 218 olr1=read_ncdf("sw", st1-1, en1, file=file,/nostr, box=box) 219 olr1=grossemoyenne(olr1, "xy",/nan, box=box) 220 olr1=reform(olr1) 221 olr2=read_ncdf("sw", st2-1, en2, file=file,/nostr, box=box) 222 olr2=grossemoyenne(olr2, "xy",/nan, box=box) 223 olr2=reform(olr2) 224 225 net1=swr1+lwr1+(shf1+lhf1) 226 net2=swr2+lwr2+(shf2+lhf2) 227 neto_1=olr1+lwr1+lhf1+shf1 228 neto_2=olr2+lwr2+lhf2+shf2 229 trop=[net1,net2] 230 olr=[neto_1,neto_2] 182 231 help, trop, olr 183 232 184 233 file=project_id_env+'swr_oafluxgrid_1985_2007.nc' 185 234 initncdf, file 186 swr1=read_ncdf("swr", st1, en1, file=file,/nostr, box=box) & swr1=grossemoyenne(swr1, "xy",/nan, box=box) & swr1=reform(swr1) 187 swr2=read_ncdf("swr", st2, en2, file=file,/nostr, box=box) & swr2=grossemoyenne(swr2, "xy",/nan, box=box) & swr2=reform(swr2) 235 swr1=read_ncdf("swr", st1, en1, file=file,/nostr, box=box) 236 swr1=grossemoyenne(swr1, "xy",/nan, box=box) 237 swr1=reform(swr1) 238 swr2=read_ncdf("swr", st2, en2, file=file,/nostr, box=box) 239 swr2=grossemoyenne(swr2, "xy",/nan, box=box) 240 swr2=reform(swr2) 188 241 189 242 file=project_id_env+'lwr_oafluxgrid_1985_2007.nc' 190 243 initncdf, file 191 lwr1=-1*read_ncdf("lwr", st1, en1, file=file,/nostr, box=box) & lwr1=grossemoyenne(lwr1, "xy",/nan, box=box) & lwr1=reform(lwr1) 192 lwr2=-1*read_ncdf("lwr", st2, en2, file=file,/nostr, box=box) & lwr2=grossemoyenne(lwr2, "xy",/nan, box=box) & lwr2=reform(lwr2) 244 lwr1=-1*read_ncdf("lwr", st1, en1, file=file,/nostr, box=box) 245 lwr1=grossemoyenne(lwr1, "xy",/nan, box=box) 246 lwr1=reform(lwr1) 247 lwr2=-1*read_ncdf("lwr", st2, en2, file=file,/nostr, box=box) 248 lwr2=grossemoyenne(lwr2, "xy",/nan, box=box) 249 lwr2=reform(lwr2) 193 250 194 251 file=project_id_env+'lhf_oafluxgrid_1985_2009.nc' 195 252 initncdf, file 196 lhf1=-1*read_ncdf("lhf", st1, en1, file=file,/nostr, box=box) & lhf1=grossemoyenne(lhf1, "xy",/nan, box=box) & lhf1=reform(lhf1) 197 lhf2=-1*read_ncdf("lhf", st2, en2, file=file,/nostr, box=box) & lhf2=grossemoyenne(lhf2, "xy",/nan, box=box) & lhf2=reform(lhf2) 253 lhf1=-1*read_ncdf("lhf", st1, en1, file=file,/nostr, box=box) 254 lhf1=grossemoyenne(lhf1, "xy",/nan, box=box) 255 lhf1=reform(lhf1) 256 lhf2=-1*read_ncdf("lhf", st2, en2, file=file,/nostr, box=box) 257 lhf2=grossemoyenne(lhf2, "xy",/nan, box=box) 258 lhf2=reform(lhf2) 198 259 199 260 file=project_id_env+'shf_oafluxgrid_1985_2009.nc' 200 261 initncdf, file 201 shf1=-1*read_ncdf("shf", st1, en1, file=file,/nostr, box=box) & shf1=grossemoyenne(shf1, "xy",/nan, box=box) & shf1=reform(shf1) 202 shf2=-1*read_ncdf("shf", st2, en2, file=file,/nostr, box=box) & shf2=grossemoyenne(shf2, "xy",/nan, box=box) & shf2=reform(shf2) 203 204 net1=swr1+lwr1+lhf1+shf1 & net2=swr2+lwr2+lhf2+shf2 262 shf1=-1*read_ncdf("shf", st1, en1, file=file,/nostr, box=box) 263 shf1=grossemoyenne(shf1, "xy",/nan, box=box) 264 shf1=reform(shf1) 265 shf2=-1*read_ncdf("shf", st2, en2, file=file,/nostr, box=box) 266 shf2=grossemoyenne(shf2, "xy",/nan, box=box) 267 shf2=reform(shf2) 268 269 net1=swr1+lwr1+lhf1+shf1 270 net2=swr2+lwr2+lhf2+shf2 205 271 oaf=[net1,net2] 206 272 help, oaf … … 208 274 fi=project_id_env+'swr_ncep2_oaflxgrid_19890101_20091231.nc' 209 275 initncdf, fi 210 swr1=read_ncdf("swr", st1, en1, file=fi,/nostr, box=box) & swr1=grossemoyenne(swr1, "xy",/nan, box=box) & swr1=reform(swr1) 211 swr2=read_ncdf("swr", st2, en2, file=fi,/nostr, box=box) & swr2=grossemoyenne(swr2, "xy",/nan, box=box) & swr2=reform(swr2) 276 swr1=read_ncdf("swr", st1, en1, file=fi,/nostr, box=box) 277 swr1=grossemoyenne(swr1, "xy",/nan, box=box) 278 swr1=reform(swr1) 279 swr2=read_ncdf("swr", st2, en2, file=fi,/nostr, box=box) 280 swr2=grossemoyenne(swr2, "xy",/nan, box=box) 281 swr2=reform(swr2) 212 282 213 283 fi=project_id_env+"NCEP2_flux_19890101_20090729.nc" 214 284 initncdf, fi 215 lwr1=-1*read_ncdf("lwr", st1, en1, file=fi,/nostr, box=box) & lwr1=grossemoyenne(lwr1, "xy",/nan, box=box) & lwr1=reform(lwr1) 216 lwr2=-1*read_ncdf("lwr", st2, en2, file=fi,/nostr, box=box) & lwr2=grossemoyenne(lwr2, "xy",/nan, box=box) & lwr2=reform(lwr2) 285 lwr1=-1*read_ncdf("lwr", st1, en1, file=fi,/nostr, box=box) 286 lwr1=grossemoyenne(lwr1, "xy",/nan, box=box) 287 lwr1=reform(lwr1) 288 lwr2=-1*read_ncdf("lwr", st2, en2, file=fi,/nostr, box=box) 289 lwr2=grossemoyenne(lwr2, "xy",/nan, box=box) 290 lwr2=reform(lwr2) 217 291 218 292 fi=project_id_env+'lhf_ncep2_oafluxgrid_19890101_20091231.nc' 219 293 initncdf, fi 220 lhf1=-1*read_ncdf("lhf", st1, en1, file=fi,/nostr, box=box) & lhf1=grossemoyenne(lhf1, "xy",/nan, box=box) & lhf1=reform(lhf1) 221 lhf2=-1*read_ncdf("lhf", st2, en2, file=fi,/nostr, box=box) & lhf2=grossemoyenne(lhf2, "xy",/nan, box=box) & lhf2=reform(lhf2) 294 lhf1=-1*read_ncdf("lhf", st1, en1, file=fi,/nostr, box=box) 295 lhf1=grossemoyenne(lhf1, "xy",/nan, box=box) 296 lhf1=reform(lhf1) 297 lhf2=-1*read_ncdf("lhf", st2, en2, file=fi,/nostr, box=box) 298 lhf2=grossemoyenne(lhf2, "xy",/nan, box=box) 299 lhf2=reform(lhf2) 222 300 223 301 fi=project_id_env+'shf_ncep2_oafluxgrid_19890101_20091231.nc' 224 302 initncdf, fi 225 shf1=-1*read_ncdf("shf", st1, en1, file=fi,/nostr, box=box) & shf1=grossemoyenne(shf1, "xy",/nan, box=box) & shf1=reform(shf1) 226 shf2=-1*read_ncdf("shf", st2, en2, file=fi,/nostr, box=box) & shf2=grossemoyenne(shf2, "xy",/nan, box=box) & shf2=reform(shf2) 227 228 net1=swr1+lwr1+lhf1+shf1 & net2=swr2+lwr2+lhf2+shf2 303 shf1=-1*read_ncdf("shf", st1, en1, file=fi,/nostr, box=box) 304 shf1=grossemoyenne(shf1, "xy",/nan, box=box) 305 shf1=reform(shf1) 306 shf2=-1*read_ncdf("shf", st2, en2, file=fi,/nostr, box=box) 307 shf2=grossemoyenne(shf2, "xy",/nan, box=box) 308 shf2=reform(shf2) 309 310 net1=swr1+lwr1+lhf1+shf1 311 net2=swr2+lwr2+lhf2+shf2 229 312 nce2=[net1,net2] 230 313 help, nce2 … … 232 315 file=project_id_env+"ncep1_flux_19890101_20091231.nc" 233 316 initncdf, file 234 lhf1=read_ncdf('lhf',st1,en1,file=file,/nostr, box=box) & lhf1=grossemoyenne(lhf1, "xy", box=box,/nan) & lhf1=reform(lhf1) 235 lhf2=read_ncdf('lhf',st2,en2,file=file,/nostr, box=box) & lhf2=grossemoyenne(lhf2, "xy", box=box,/nan) & lhf2=reform(lhf2) 236 shf1=read_ncdf('shf',st1,en1,file=file,/nostr, box=box) & shf1=grossemoyenne(shf1, "xy", box=box,/nan) & shf1=reform(shf1) 237 shf2=read_ncdf('shf',st2,en2,file=file,/nostr, box=box) & shf2=grossemoyenne(shf2, "xy", box=box,/nan) & shf2=reform(shf2) 238 lwr1=read_ncdf('lwr',st1,en1,file=file,/nostr, box=box) & lwr1=grossemoyenne(lwr1, "xy", box=box,/nan) & lwr1=reform(lwr1) 239 lwr2=read_ncdf('lwr',st2,en2,file=file,/nostr, box=box) & lwr2=grossemoyenne(lwr2, "xy", box=box,/nan) & lwr2=reform(lwr2) 240 swr1=read_ncdf('swr',st1,en1,file=file,/nostr, box=box) & swr1=grossemoyenne(swr1, "xy", box=box,/nan) & swr1=reform(swr1) 241 swr2=read_ncdf('swr',st2,en2,file=file,/nostr, box=box) & swr2=grossemoyenne(swr2, "xy", box=box,/nan) & swr2=reform(swr2) 242 net1=swr1+(lwr1+shf1+lhf1) & net2=swr2+(lwr2+shf2+lhf2) 317 lhf1=read_ncdf('lhf',st1,en1,file=file,/nostr, box=box) 318 lhf1=grossemoyenne(lhf1, "xy", box=box,/nan) 319 lhf1=reform(lhf1) 320 lhf2=read_ncdf('lhf',st2,en2,file=file,/nostr, box=box) 321 lhf2=grossemoyenne(lhf2, "xy", box=box,/nan) 322 lhf2=reform(lhf2) 323 shf1=read_ncdf('shf',st1,en1,file=file,/nostr, box=box) 324 shf1=grossemoyenne(shf1, "xy", box=box,/nan) 325 shf1=reform(shf1) 326 shf2=read_ncdf('shf',st2,en2,file=file,/nostr, box=box) 327 shf2=grossemoyenne(shf2, "xy", box=box,/nan) 328 shf2=reform(shf2) 329 lwr1=read_ncdf('lwr',st1,en1,file=file,/nostr, box=box) 330 lwr1=grossemoyenne(lwr1, "xy", box=box,/nan) 331 lwr1=reform(lwr1) 332 lwr2=read_ncdf('lwr',st2,en2,file=file,/nostr, box=box) 333 lwr2=grossemoyenne(lwr2, "xy", box=box,/nan) 334 lwr2=reform(lwr2) 335 swr1=read_ncdf('swr',st1,en1,file=file,/nostr, box=box) 336 swr1=grossemoyenne(swr1, "xy", box=box,/nan) 337 swr1=reform(swr1) 338 swr2=read_ncdf('swr',st2,en2,file=file,/nostr, box=box) 339 swr2=grossemoyenne(swr2, "xy", box=box,/nan) 340 swr2=reform(swr2) 341 net1=swr1+(lwr1+shf1+lhf1) 342 net2=swr2+(lwr2+shf2+lhf2) 243 343 nce1=[net1,net2] 244 344 … … 246 346 247 347 ind=where(finite(net)) 248 net=net(ind) & era=era(ind) & trop=trop(ind) & oaf=oaf(ind) & nce2=nce2(ind) & nce1=nce1(ind) 348 net=net(ind) 349 era=era(ind) 350 trop=trop(ind) 351 oaf=oaf(ind) 352 nce2=nce2(ind) 353 nce1=nce1(ind) 249 354 olr=olr(ind) 250 355 -
trunk/src/paper01/fig14/subdctn_sws_validation_net_1991_93_all_v10.pro
r85 r94 139 139 ;; reading other data sets 140 140 141 st1=19910626 & en1=19911101 142 st2=19920206 & en2=19920602 143 st3=19921011 & en3=19921231 144 st4=19930101 & en4=19930521 141 st1=19910626 142 en1=19911101 143 st2=19920206 144 en2=19920602 145 st3=19921011 146 en3=19921231 147 st4=19930101 148 en4=19930521 145 149 146 150 file=project_id_env+"erai_swr_19910101_20091231_oafluxgrid.nc" 147 151 initncdf, file 148 swr1=read_ncdf('swr',st1,en1,file=file,/nostr, box=box) & swr1=grossemoyenne(swr1, "xy", box=box,/nan) & swr1=reform(swr1) 149 swr2=read_ncdf('swr',st2,en2,file=file,/nostr, box=box) & swr2=grossemoyenne(swr2, "xy", box=box,/nan) & swr2=reform(swr2) 150 swr3=read_ncdf('swr',st3,en3,file=file,/nostr, box=box) & swr3=grossemoyenne(swr3, "xy", box=box,/nan) & swr3=reform(swr3) 151 swr4=read_ncdf('swr',st4,en4,file=file,/nostr, box=box) & swr4=grossemoyenne(swr4, "xy", box=box,/nan) & swr4=reform(swr4) 152 swr1=read_ncdf('swr',st1,en1,file=file,/nostr, box=box) 153 swr1=grossemoyenne(swr1, "xy", box=box,/nan) 154 swr1=reform(swr1) 155 swr2=read_ncdf('swr',st2,en2,file=file,/nostr, box=box) 156 swr2=grossemoyenne(swr2, "xy", box=box,/nan) 157 swr2=reform(swr2) 158 swr3=read_ncdf('swr',st3,en3,file=file,/nostr, box=box) 159 swr3=grossemoyenne(swr3, "xy", box=box,/nan) 160 swr3=reform(swr3) 161 swr4=read_ncdf('swr',st4,en4,file=file,/nostr, box=box) 162 swr4=grossemoyenne(swr4, "xy", box=box,/nan) 163 swr4=reform(swr4) 152 164 153 165 file=project_id_env+'erai_lhf_19890101_20091231_oafluxgrid.nc' 154 166 initncdf, file 155 lhf1=-1*read_ncdf('lhf',st1,en1,file=file,/nostr, box=box) & lhf1=grossemoyenne(lhf1, "xy", box=box,/nan) & lhf1=reform(lhf1) 156 lhf2=-1*read_ncdf('lhf',st2,en2,file=file,/nostr, box=box) & lhf2=grossemoyenne(lhf2, "xy", box=box,/nan) & lhf2=reform(lhf2) 157 lhf3=-1*read_ncdf('lhf',st3,en3,file=file,/nostr, box=box) & lhf3=grossemoyenne(lhf3, "xy", box=box,/nan) & lhf3=reform(lhf3) 158 lhf4=-1*read_ncdf('lhf',st4,en4,file=file,/nostr, box=box) & lhf4=grossemoyenne(lhf4, "xy", box=box,/nan) & lhf4=reform(lhf4) 167 lhf1=-1*read_ncdf('lhf',st1,en1,file=file,/nostr, box=box) 168 lhf1=grossemoyenne(lhf1, "xy", box=box,/nan) 169 lhf1=reform(lhf1) 170 lhf2=-1*read_ncdf('lhf',st2,en2,file=file,/nostr, box=box) 171 lhf2=grossemoyenne(lhf2, "xy", box=box,/nan) 172 lhf2=reform(lhf2) 173 lhf3=-1*read_ncdf('lhf',st3,en3,file=file,/nostr, box=box) 174 lhf3=grossemoyenne(lhf3, "xy", box=box,/nan) 175 lhf3=reform(lhf3) 176 lhf4=-1*read_ncdf('lhf',st4,en4,file=file,/nostr, box=box) 177 lhf4=grossemoyenne(lhf4, "xy", box=box,/nan) 178 lhf4=reform(lhf4) 159 179 160 180 file=project_id_env+'erai_shf_19890101_20091231_oafluxgrid.nc' 161 181 initncdf, file 162 shf1=-1*read_ncdf('shf',st1,en1,file=file,/nostr, box=box) & shf1=grossemoyenne(shf1, "xy", box=box,/nan) & shf1=reform(shf1) 163 shf2=-1*read_ncdf('shf',st2,en2,file=file,/nostr, box=box) & shf2=grossemoyenne(shf2, "xy", box=box,/nan) & shf2=reform(shf2) 164 shf3=-1*read_ncdf('shf',st3,en3,file=file,/nostr, box=box) & shf3=grossemoyenne(shf3, "xy", box=box,/nan) & shf3=reform(shf3) 165 shf4=-1*read_ncdf('shf',st4,en4,file=file,/nostr, box=box) & shf4=grossemoyenne(shf4, "xy", box=box,/nan) & shf4=reform(shf4) 182 shf1=-1*read_ncdf('shf',st1,en1,file=file,/nostr, box=box) 183 shf1=grossemoyenne(shf1, "xy", box=box,/nan) 184 shf1=reform(shf1) 185 shf2=-1*read_ncdf('shf',st2,en2,file=file,/nostr, box=box) 186 shf2=grossemoyenne(shf2, "xy", box=box,/nan) 187 shf2=reform(shf2) 188 shf3=-1*read_ncdf('shf',st3,en3,file=file,/nostr, box=box) 189 shf3=grossemoyenne(shf3, "xy", box=box,/nan) 190 shf3=reform(shf3) 191 shf4=-1*read_ncdf('shf',st4,en4,file=file,/nostr, box=box) 192 shf4=grossemoyenne(shf4, "xy", box=box,/nan) 193 shf4=reform(shf4) 166 194 167 195 file=project_id_env+'erai_lwr_19890101_20091231_oafluxgrid.nc' 168 196 initncdf, file 169 lwr1=read_ncdf('lwr',st1-1,en1,file=file,/nostr, box=box) & lwr1=grossemoyenne(lwr1, "xy", box=box,/nan) & lwr1=reform(lwr1) 170 lwr2=read_ncdf('lwr',st2-1,en2,file=file,/nostr, box=box) & lwr2=grossemoyenne(lwr2, "xy", box=box,/nan) & lwr2=reform(lwr2) 171 lwr3=read_ncdf('lwr',st3-1,en3,file=file,/nostr, box=box) & lwr3=grossemoyenne(lwr3, "xy", box=box,/nan) & lwr3=reform(lwr3) 172 lwr4=read_ncdf('lwr',st4-1,en4,file=file,/nostr, box=box) & lwr4=grossemoyenne(lwr4, "xy", box=box,/nan) & lwr4=reform(lwr4) 173 174 net1=swr1+(lwr1+shf1+lhf1) & net2=swr2+(lwr2+shf2+lhf2) & net3=swr3+(lwr3+shf3+lhf3) & net4=swr4+(lwr4+shf4+lhf4) 197 lwr1=read_ncdf('lwr',st1-1,en1,file=file,/nostr, box=box) 198 lwr1=grossemoyenne(lwr1, "xy", box=box,/nan) 199 lwr1=reform(lwr1) 200 lwr2=read_ncdf('lwr',st2-1,en2,file=file,/nostr, box=box) 201 lwr2=grossemoyenne(lwr2, "xy", box=box,/nan) 202 lwr2=reform(lwr2) 203 lwr3=read_ncdf('lwr',st3-1,en3,file=file,/nostr, box=box) 204 lwr3=grossemoyenne(lwr3, "xy", box=box,/nan) 205 lwr3=reform(lwr3) 206 lwr4=read_ncdf('lwr',st4-1,en4,file=file,/nostr, box=box) 207 lwr4=grossemoyenne(lwr4, "xy", box=box,/nan) 208 lwr4=reform(lwr4) 209 210 net1=swr1+(lwr1+shf1+lhf1) 211 net2=swr2+(lwr2+shf2+lhf2) 212 net3=swr3+(lwr3+shf3+lhf3) 213 net4=swr4+(lwr4+shf4+lhf4) 175 214 era=[net1,net2,net3,net4] 176 lhf1=0. & lhf2=0. & lhf3=0. & lhf4=0. 177 shf1=0. & shf2=0. & shf3=0. & shf4=0. 178 lwr1=0. & lwr2=0. & lwr3=0. & lwr4=0. 179 swr1=0. & swr2=0. & swr3=0. & swr4=0. 180 net1=0. & net2=0. & net3=0. & net4=0 215 lhf1=0. 216 lhf2=0. 217 lhf3=0. 218 lhf4=0. 219 shf1=0. 220 shf2=0. 221 shf3=0. 222 shf4=0. 223 lwr1=0. 224 lwr2=0. 225 lwr3=0. 226 lwr4=0. 227 swr1=0. 228 swr2=0. 229 swr3=0. 230 swr4=0. 231 net1=0. 232 net2=0. 233 net3=0. 234 net4=0 181 235 help, era 182 236 183 237 file=project_id_env+"TropFlux_19890101_20091231.nc" 184 238 initncdf, file 185 lhf1=read_ncdf('lhf',st1,en1,file=file,/nostr, box=box) & lhf1=grossemoyenne(lhf1, "xy", box=box,/nan) & lhf1=reform(lhf1) 186 lhf2=read_ncdf('lhf',st2,en2,file=file,/nostr, box=box) & lhf2=grossemoyenne(lhf2, "xy", box=box,/nan) & lhf2=reform(lhf2) 187 lhf3=read_ncdf('lhf',st3,en3,file=file,/nostr, box=box) & lhf3=grossemoyenne(lhf3, "xy", box=box,/nan) & lhf3=reform(lhf3) 188 lhf4=read_ncdf('lhf',st4,en4,file=file,/nostr, box=box) & lhf4=grossemoyenne(lhf4, "xy", box=box,/nan) & lhf4=reform(lhf4) 189 190 shf1=read_ncdf('shf',st1,en1,file=file,/nostr, box=box) & shf1=grossemoyenne(shf1, "xy", box=box,/nan) & shf1=reform(shf1) 191 shf2=read_ncdf('shf',st2,en2,file=file,/nostr, box=box) & shf2=grossemoyenne(shf2, "xy", box=box,/nan) & shf2=reform(shf2) 192 shf3=read_ncdf('shf',st3,en3,file=file,/nostr, box=box) & shf3=grossemoyenne(shf3, "xy", box=box,/nan) & shf3=reform(shf3) 193 shf4=read_ncdf('shf',st4,en4,file=file,/nostr, box=box) & shf4=grossemoyenne(shf4, "xy", box=box,/nan) & shf4=reform(shf4) 194 195 lwr1=read_ncdf('lwr',st1,en1,file=file,/nostr, box=box) & lwr1=grossemoyenne(lwr1, "xy", box=box,/nan) & lwr1=reform(lwr1) 196 lwr2=read_ncdf('lwr',st2,en2,file=file,/nostr, box=box) & lwr2=grossemoyenne(lwr2, "xy", box=box,/nan) & lwr2=reform(lwr2) 197 lwr3=read_ncdf('lwr',st3,en3,file=file,/nostr, box=box) & lwr3=grossemoyenne(lwr3, "xy", box=box,/nan) & lwr3=reform(lwr3) 198 lwr4=read_ncdf('lwr',st4,en4,file=file,/nostr, box=box) & lwr4=grossemoyenne(lwr4, "xy", box=box,/nan) & lwr4=reform(lwr4) 199 200 swr1=read_ncdf('swr',st1,en1,file=file,/nostr, box=box) & swr1=grossemoyenne(swr1, "xy", box=box,/nan) & swr1=reform(swr1) 201 swr2=read_ncdf('swr',st2,en2,file=file,/nostr, box=box) & swr2=grossemoyenne(swr2, "xy", box=box,/nan) & swr2=reform(swr2) 202 swr3=read_ncdf('swr',st3,en3,file=file,/nostr, box=box) & swr3=grossemoyenne(swr3, "xy", box=box,/nan) & swr3=reform(swr3) 203 swr4=read_ncdf('swr',st4,en4,file=file,/nostr, box=box) & swr4=grossemoyenne(swr4, "xy", box=box,/nan) & swr4=reform(swr4) 239 lhf1=read_ncdf('lhf',st1,en1,file=file,/nostr, box=box) 240 lhf1=grossemoyenne(lhf1, "xy", box=box,/nan) 241 lhf1=reform(lhf1) 242 lhf2=read_ncdf('lhf',st2,en2,file=file,/nostr, box=box) 243 lhf2=grossemoyenne(lhf2, "xy", box=box,/nan) 244 lhf2=reform(lhf2) 245 lhf3=read_ncdf('lhf',st3,en3,file=file,/nostr, box=box) 246 lhf3=grossemoyenne(lhf3, "xy", box=box,/nan) 247 lhf3=reform(lhf3) 248 lhf4=read_ncdf('lhf',st4,en4,file=file,/nostr, box=box) 249 lhf4=grossemoyenne(lhf4, "xy", box=box,/nan) 250 lhf4=reform(lhf4) 251 252 shf1=read_ncdf('shf',st1,en1,file=file,/nostr, box=box) 253 shf1=grossemoyenne(shf1, "xy", box=box,/nan) 254 shf1=reform(shf1) 255 shf2=read_ncdf('shf',st2,en2,file=file,/nostr, box=box) 256 shf2=grossemoyenne(shf2, "xy", box=box,/nan) 257 shf2=reform(shf2) 258 shf3=read_ncdf('shf',st3,en3,file=file,/nostr, box=box) 259 shf3=grossemoyenne(shf3, "xy", box=box,/nan) 260 shf3=reform(shf3) 261 shf4=read_ncdf('shf',st4,en4,file=file,/nostr, box=box) 262 shf4=grossemoyenne(shf4, "xy", box=box,/nan) 263 shf4=reform(shf4) 264 265 lwr1=read_ncdf('lwr',st1,en1,file=file,/nostr, box=box) 266 lwr1=grossemoyenne(lwr1, "xy", box=box,/nan) 267 lwr1=reform(lwr1) 268 lwr2=read_ncdf('lwr',st2,en2,file=file,/nostr, box=box) 269 lwr2=grossemoyenne(lwr2, "xy", box=box,/nan) 270 lwr2=reform(lwr2) 271 lwr3=read_ncdf('lwr',st3,en3,file=file,/nostr, box=box) 272 lwr3=grossemoyenne(lwr3, "xy", box=box,/nan) 273 lwr3=reform(lwr3) 274 lwr4=read_ncdf('lwr',st4,en4,file=file,/nostr, box=box) 275 lwr4=grossemoyenne(lwr4, "xy", box=box,/nan) 276 lwr4=reform(lwr4) 277 278 swr1=read_ncdf('swr',st1,en1,file=file,/nostr, box=box) 279 swr1=grossemoyenne(swr1, "xy", box=box,/nan) 280 swr1=reform(swr1) 281 swr2=read_ncdf('swr',st2,en2,file=file,/nostr, box=box) 282 swr2=grossemoyenne(swr2, "xy", box=box,/nan) 283 swr2=reform(swr2) 284 swr3=read_ncdf('swr',st3,en3,file=file,/nostr, box=box) 285 swr3=grossemoyenne(swr3, "xy", box=box,/nan) 286 swr3=reform(swr3) 287 swr4=read_ncdf('swr',st4,en4,file=file,/nostr, box=box) 288 swr4=grossemoyenne(swr4, "xy", box=box,/nan) 289 swr4=reform(swr4) 204 290 205 291 file=project_id_env+"TropFlux_swr_19890101_20091231_NRT_v50.nc" 206 292 initncdf, file 207 olr1=read_ncdf("sw", st1-1, en1, file=file,/nostr, box=box) & olr1=grossemoyenne(olr1, "xy",/nan, box=box) & olr1=reform(olr1) 208 olr2=read_ncdf("sw", st2-1, en2, file=file,/nostr, box=box) & olr2=grossemoyenne(olr2, "xy",/nan, box=box) & olr2=reform(olr2) 209 olr3=read_ncdf("sw", st3-1, en3, file=file,/nostr, box=box) & olr3=grossemoyenne(olr3, "xy",/nan, box=box) & olr3=reform(olr3) 210 olr4=read_ncdf("sw", st4-1, en4, file=file,/nostr, box=box) & olr4=grossemoyenne(olr4, "xy",/nan, box=box) & olr4=reform(olr4) 211 212 net1=swr1+lwr1+(shf1+lhf1) & net2=swr2+lwr2+(shf2+lhf2) & net3=swr3+lwr3+(shf3+lhf3) & net4=swr4+lwr4+(shf4+lhf4) 213 neto_1=olr1+lwr1+lhf1+shf1 & neto_2=olr2+lwr2+lhf2+shf2 & neto_3=olr3+lwr3+lhf3+shf3 & neto_4=olr4+lwr4+lhf4+shf4 214 215 trop=[net1,net2,net3,net4] & olr=[neto_1,neto_2,neto_3,neto_4] 216 217 lhf1=0. & lhf2=0. & lhf3=0. & lhf4=0. 218 shf1=0. & shf2=0. & shf3=0. & shf4=0. 219 lwr1=0. & lwr2=0. & lwr3=0. & lwr4=0. 220 swr1=0. & swr2=0. & swr3=0. & swr4=0. 221 net1=0. & net2=0. & net3=0. & net4=0. 222 neto_1=0 & neto_2=0 & neto_3=0 & neto_4=0 293 olr1=read_ncdf("sw", st1-1, en1, file=file,/nostr, box=box) 294 olr1=grossemoyenne(olr1, "xy",/nan, box=box) 295 olr1=reform(olr1) 296 olr2=read_ncdf("sw", st2-1, en2, file=file,/nostr, box=box) 297 olr2=grossemoyenne(olr2, "xy",/nan, box=box) 298 olr2=reform(olr2) 299 olr3=read_ncdf("sw", st3-1, en3, file=file,/nostr, box=box) 300 olr3=grossemoyenne(olr3, "xy",/nan, box=box) 301 olr3=reform(olr3) 302 olr4=read_ncdf("sw", st4-1, en4, file=file,/nostr, box=box) 303 olr4=grossemoyenne(olr4, "xy",/nan, box=box) 304 olr4=reform(olr4) 305 306 net1=swr1+lwr1+(shf1+lhf1) 307 net2=swr2+lwr2+(shf2+lhf2) 308 net3=swr3+lwr3+(shf3+lhf3) 309 net4=swr4+lwr4+(shf4+lhf4) 310 neto_1=olr1+lwr1+lhf1+shf1 311 neto_2=olr2+lwr2+lhf2+shf2 312 neto_3=olr3+lwr3+lhf3+shf3 313 neto_4=olr4+lwr4+lhf4+shf4 314 315 trop=[net1,net2,net3,net4] 316 olr=[neto_1,neto_2,neto_3,neto_4] 317 318 lhf1=0. 319 lhf2=0. 320 lhf3=0. 321 lhf4=0. 322 shf1=0. 323 shf2=0. 324 shf3=0. 325 shf4=0. 326 lwr1=0. 327 lwr2=0. 328 lwr3=0. 329 lwr4=0. 330 swr1=0. 331 swr2=0. 332 swr3=0. 333 swr4=0. 334 net1=0. 335 net2=0. 336 net3=0. 337 net4=0. 338 neto_1=0 339 neto_2=0 340 neto_3=0 341 neto_4=0 223 342 224 343 help, trop, olr … … 226 345 file=project_id_env+'swr_oafluxgrid_1985_2007.nc' 227 346 initncdf, file 228 swr1=read_ncdf("swr", st1, en1, file=file,/nostr, box=box) & swr1=grossemoyenne(swr1, "xy",/nan, box=box) & swr1=reform(swr1) 229 swr2=read_ncdf("swr", st2, en2, file=file,/nostr, box=box) & swr2=grossemoyenne(swr2, "xy",/nan, box=box) & swr2=reform(swr2) 230 swr3=read_ncdf("swr", st3, en3, file=file,/nostr, box=box) & swr3=grossemoyenne(swr3, "xy",/nan, box=box) & swr3=reform(swr3) 231 swr4=read_ncdf("swr", st4, en4, file=file,/nostr, box=box) & swr4=grossemoyenne(swr4, "xy",/nan, box=box) & swr4=reform(swr4) 347 swr1=read_ncdf("swr", st1, en1, file=file,/nostr, box=box) 348 swr1=grossemoyenne(swr1, "xy",/nan, box=box) 349 swr1=reform(swr1) 350 swr2=read_ncdf("swr", st2, en2, file=file,/nostr, box=box) 351 swr2=grossemoyenne(swr2, "xy",/nan, box=box) 352 swr2=reform(swr2) 353 swr3=read_ncdf("swr", st3, en3, file=file,/nostr, box=box) 354 swr3=grossemoyenne(swr3, "xy",/nan, box=box) 355 swr3=reform(swr3) 356 swr4=read_ncdf("swr", st4, en4, file=file,/nostr, box=box) 357 swr4=grossemoyenne(swr4, "xy",/nan, box=box) 358 swr4=reform(swr4) 232 359 233 360 file=project_id_env+'lwr_oafluxgrid_1985_2007.nc' 234 361 initncdf, file 235 lwr1=-1*read_ncdf("lwr", st1, en1, file=file,/nostr, box=box) & lwr1=grossemoyenne(lwr1, "xy",/nan, box=box) & lwr1=reform(lwr1) 236 lwr2=-1*read_ncdf("lwr", st2, en2, file=file,/nostr, box=box) & lwr2=grossemoyenne(lwr2, "xy",/nan, box=box) & lwr2=reform(lwr2) 237 lwr3=-1*read_ncdf("lwr", st3, en3, file=file,/nostr, box=box) & lwr3=grossemoyenne(lwr3, "xy",/nan, box=box) & lwr3=reform(lwr3) 238 lwr4=-1*read_ncdf("lwr", st4, en4, file=file,/nostr, box=box) & lwr4=grossemoyenne(lwr4, "xy",/nan, box=box) & lwr4=reform(lwr4) 362 lwr1=-1*read_ncdf("lwr", st1, en1, file=file,/nostr, box=box) 363 lwr1=grossemoyenne(lwr1, "xy",/nan, box=box) 364 lwr1=reform(lwr1) 365 lwr2=-1*read_ncdf("lwr", st2, en2, file=file,/nostr, box=box) 366 lwr2=grossemoyenne(lwr2, "xy",/nan, box=box) 367 lwr2=reform(lwr2) 368 lwr3=-1*read_ncdf("lwr", st3, en3, file=file,/nostr, box=box) 369 lwr3=grossemoyenne(lwr3, "xy",/nan, box=box) 370 lwr3=reform(lwr3) 371 lwr4=-1*read_ncdf("lwr", st4, en4, file=file,/nostr, box=box) 372 lwr4=grossemoyenne(lwr4, "xy",/nan, box=box) 373 lwr4=reform(lwr4) 239 374 240 375 file=project_id_env+'lhf_oafluxgrid_1985_2009.nc' 241 376 initncdf, file 242 lhf1=-1*read_ncdf("lhf", st1, en1, file=file,/nostr, box=box) & lhf1=grossemoyenne(lhf1, "xy",/nan, box=box) & lhf1=reform(lhf1) 243 lhf2=-1*read_ncdf("lhf", st2, en2, file=file,/nostr, box=box) & lhf2=grossemoyenne(lhf2, "xy",/nan, box=box) & lhf2=reform(lhf2) 244 lhf3=-1*read_ncdf("lhf", st3, en3, file=file,/nostr, box=box) & lhf3=grossemoyenne(lhf3, "xy",/nan, box=box) & lhf3=reform(lhf3) 245 lhf4=-1*read_ncdf("lhf", st4, en4, file=file,/nostr, box=box) & lhf4=grossemoyenne(lhf4, "xy",/nan, box=box) & lhf4=reform(lhf4) 377 lhf1=-1*read_ncdf("lhf", st1, en1, file=file,/nostr, box=box) 378 lhf1=grossemoyenne(lhf1, "xy",/nan, box=box) 379 lhf1=reform(lhf1) 380 lhf2=-1*read_ncdf("lhf", st2, en2, file=file,/nostr, box=box) 381 lhf2=grossemoyenne(lhf2, "xy",/nan, box=box) 382 lhf2=reform(lhf2) 383 lhf3=-1*read_ncdf("lhf", st3, en3, file=file,/nostr, box=box) 384 lhf3=grossemoyenne(lhf3, "xy",/nan, box=box) 385 lhf3=reform(lhf3) 386 lhf4=-1*read_ncdf("lhf", st4, en4, file=file,/nostr, box=box) 387 lhf4=grossemoyenne(lhf4, "xy",/nan, box=box) 388 lhf4=reform(lhf4) 246 389 247 390 file=project_id_env+'shf_oafluxgrid_1985_2009.nc' 248 391 initncdf, file 249 shf1=-1*read_ncdf("shf", st1, en1, file=file,/nostr, box=box) & shf1=grossemoyenne(shf1, "xy",/nan, box=box) & shf1=reform(shf1) 250 shf2=-1*read_ncdf("shf", st2, en2, file=file,/nostr, box=box) & shf2=grossemoyenne(shf2, "xy",/nan, box=box) & shf2=reform(shf2) 251 shf3=-1*read_ncdf("shf", st3, en3, file=file,/nostr, box=box) & shf3=grossemoyenne(shf3, "xy",/nan, box=box) & shf3=reform(shf3) 252 shf4=-1*read_ncdf("shf", st4, en4, file=file,/nostr, box=box) & shf4=grossemoyenne(shf4, "xy",/nan, box=box) & shf4=reform(shf4) 253 254 net1=swr1+lwr1+lhf1+shf1 & net2=swr2+lwr2+lhf2+shf2 & net3=swr3+lwr3+lhf3+shf3 & net4=swr4+lwr4+lhf4+shf4 392 shf1=-1*read_ncdf("shf", st1, en1, file=file,/nostr, box=box) 393 shf1=grossemoyenne(shf1, "xy",/nan, box=box) 394 shf1=reform(shf1) 395 shf2=-1*read_ncdf("shf", st2, en2, file=file,/nostr, box=box) 396 shf2=grossemoyenne(shf2, "xy",/nan, box=box) 397 shf2=reform(shf2) 398 shf3=-1*read_ncdf("shf", st3, en3, file=file,/nostr, box=box) 399 shf3=grossemoyenne(shf3, "xy",/nan, box=box) 400 shf3=reform(shf3) 401 shf4=-1*read_ncdf("shf", st4, en4, file=file,/nostr, box=box) 402 shf4=grossemoyenne(shf4, "xy",/nan, box=box) 403 shf4=reform(shf4) 404 405 net1=swr1+lwr1+lhf1+shf1 406 net2=swr2+lwr2+lhf2+shf2 407 net3=swr3+lwr3+lhf3+shf3 408 net4=swr4+lwr4+lhf4+shf4 255 409 256 410 oaf=[net1,net2,net3,net4] 257 lhf1=0. & lhf2=0. & lhf3=0. & lhf4=0. 258 shf1=0. & shf2=0. & shf3=0. & shf4=0. 259 lwr1=0. & lwr2=0. & lwr3=0. & lwr4=0. 260 swr1=0. & swr2=0. & swr3=0. & swr4=0. 261 net1=0. & net2=0. & net3=0. & net4=0 411 lhf1=0. 412 lhf2=0. 413 lhf3=0. 414 lhf4=0. 415 shf1=0. 416 shf2=0. 417 shf3=0. 418 shf4=0. 419 lwr1=0. 420 lwr2=0. 421 lwr3=0. 422 lwr4=0. 423 swr1=0. 424 swr2=0. 425 swr3=0. 426 swr4=0. 427 net1=0. 428 net2=0. 429 net3=0. 430 net4=0 262 431 help, oaf 263 432 … … 266 435 fi=project_id_env+'swr_ncep2_oaflxgrid_19890101_20091231.nc' 267 436 initncdf, fi 268 swr1=read_ncdf("swr", st1, en1, file=fi,/nostr, box=box) & swr1=grossemoyenne(swr1, "xy",/nan, box=box) & swr1=reform(swr1) 269 swr2=read_ncdf("swr", st2, en2, file=fi,/nostr, box=box) & swr2=grossemoyenne(swr2, "xy",/nan, box=box) & swr2=reform(swr2) 270 swr3=read_ncdf("swr", st3, en3, file=fi,/nostr, box=box) & swr3=grossemoyenne(swr3, "xy",/nan, box=box) & swr3=reform(swr3) 271 swr4=read_ncdf("swr", st4, en4, file=fi,/nostr, box=box) & swr4=grossemoyenne(swr4, "xy",/nan, box=box) & swr4=reform(swr4) 437 swr1=read_ncdf("swr", st1, en1, file=fi,/nostr, box=box) 438 swr1=grossemoyenne(swr1, "xy",/nan, box=box) 439 swr1=reform(swr1) 440 swr2=read_ncdf("swr", st2, en2, file=fi,/nostr, box=box) 441 swr2=grossemoyenne(swr2, "xy",/nan, box=box) 442 swr2=reform(swr2) 443 swr3=read_ncdf("swr", st3, en3, file=fi,/nostr, box=box) 444 swr3=grossemoyenne(swr3, "xy",/nan, box=box) 445 swr3=reform(swr3) 446 swr4=read_ncdf("swr", st4, en4, file=fi,/nostr, box=box) 447 swr4=grossemoyenne(swr4, "xy",/nan, box=box) 448 swr4=reform(swr4) 272 449 273 450 fi=project_id_env+'"NCEP2_flux_19890101_20090729.nc" 274 451 initncdf, fi 275 lwr1=-1*read_ncdf("lwr", st1, en1, file=fi,/nostr, box=box) & lwr1=grossemoyenne(lwr1, "xy",/nan, box=box) & lwr1=reform(lwr1) 276 lwr2=-1*read_ncdf("lwr", st2, en2, file=fi,/nostr, box=box) & lwr2=grossemoyenne(lwr2, "xy",/nan, box=box) & lwr2=reform(lwr2) 277 lwr3=-1*read_ncdf("lwr", st3, en3, file=fi,/nostr, box=box) & lwr3=grossemoyenne(lwr3, "xy",/nan, box=box) & lwr3=reform(lwr3) 278 lwr4=-1*read_ncdf("lwr", st4, en4, file=fi,/nostr, box=box) & lwr4=grossemoyenne(lwr4, "xy",/nan, box=box) & lwr4=reform(lwr4) 452 lwr1=-1*read_ncdf("lwr", st1, en1, file=fi,/nostr, box=box) 453 lwr1=grossemoyenne(lwr1, "xy",/nan, box=box) 454 lwr1=reform(lwr1) 455 lwr2=-1*read_ncdf("lwr", st2, en2, file=fi,/nostr, box=box) 456 lwr2=grossemoyenne(lwr2, "xy",/nan, box=box) 457 lwr2=reform(lwr2) 458 lwr3=-1*read_ncdf("lwr", st3, en3, file=fi,/nostr, box=box) 459 lwr3=grossemoyenne(lwr3, "xy",/nan, box=box) 460 lwr3=reform(lwr3) 461 lwr4=-1*read_ncdf("lwr", st4, en4, file=fi,/nostr, box=box) 462 lwr4=grossemoyenne(lwr4, "xy",/nan, box=box) 463 lwr4=reform(lwr4) 279 464 280 465 fi=project_id_env+'lhf_ncep2_oafluxgrid_19890101_20091231.nc' 281 466 initncdf, fi 282 lhf1=-1*read_ncdf("lhf", st1, en1, file=fi,/nostr, box=box) & lhf1=grossemoyenne(lhf1, "xy",/nan, box=box) & lhf1=reform(lhf1) 283 lhf2=-1*read_ncdf("lhf", st2, en2, file=fi,/nostr, box=box) & lhf2=grossemoyenne(lhf2, "xy",/nan, box=box) & lhf2=reform(lhf2) 284 lhf3=-1*read_ncdf("lhf", st3, en3, file=fi,/nostr, box=box) & lhf3=grossemoyenne(lhf3, "xy",/nan, box=box) & lhf3=reform(lhf3) 285 lhf4=-1*read_ncdf("lhf", st4, en4, file=fi,/nostr, box=box) & lhf4=grossemoyenne(lhf4, "xy",/nan, box=box) & lhf4=reform(lhf4) 467 lhf1=-1*read_ncdf("lhf", st1, en1, file=fi,/nostr, box=box) 468 lhf1=grossemoyenne(lhf1, "xy",/nan, box=box) 469 lhf1=reform(lhf1) 470 lhf2=-1*read_ncdf("lhf", st2, en2, file=fi,/nostr, box=box) 471 lhf2=grossemoyenne(lhf2, "xy",/nan, box=box) 472 lhf2=reform(lhf2) 473 lhf3=-1*read_ncdf("lhf", st3, en3, file=fi,/nostr, box=box) 474 lhf3=grossemoyenne(lhf3, "xy",/nan, box=box) 475 lhf3=reform(lhf3) 476 lhf4=-1*read_ncdf("lhf", st4, en4, file=fi,/nostr, box=box) 477 lhf4=grossemoyenne(lhf4, "xy",/nan, box=box) 478 lhf4=reform(lhf4) 286 479 287 480 fi=project_id_env+'shf_ncep2_oafluxgrid_19890101_20091231.nc' 288 481 initncdf, fi 289 shf1=-1*read_ncdf("shf", st1, en1, file=fi,/nostr, box=box) & shf1=grossemoyenne(shf1, "xy",/nan, box=box) & shf1=reform(shf1) 290 shf2=-1*read_ncdf("shf", st2, en2, file=fi,/nostr, box=box) & shf2=grossemoyenne(shf2, "xy",/nan, box=box) & shf2=reform(shf2) 291 shf3=-1*read_ncdf("shf", st3, en3, file=fi,/nostr, box=box) & shf3=grossemoyenne(shf3, "xy",/nan, box=box) & shf3=reform(shf3) 292 shf4=-1*read_ncdf("shf", st4, en4, file=fi,/nostr, box=box) & shf4=grossemoyenne(shf4, "xy",/nan, box=box) & shf4=reform(shf4) 293 294 net1=swr1+lwr1+lhf1+shf1 & net2=swr2+lwr2+lhf2+shf2 & net3=swr3+lwr3+lhf3+shf3 & net4=swr4+lwr4+lhf4+shf4 482 shf1=-1*read_ncdf("shf", st1, en1, file=fi,/nostr, box=box) 483 shf1=grossemoyenne(shf1, "xy",/nan, box=box) 484 shf1=reform(shf1) 485 shf2=-1*read_ncdf("shf", st2, en2, file=fi,/nostr, box=box) 486 shf2=grossemoyenne(shf2, "xy",/nan, box=box) 487 shf2=reform(shf2) 488 shf3=-1*read_ncdf("shf", st3, en3, file=fi,/nostr, box=box) 489 shf3=grossemoyenne(shf3, "xy",/nan, box=box) 490 shf3=reform(shf3) 491 shf4=-1*read_ncdf("shf", st4, en4, file=fi,/nostr, box=box) 492 shf4=grossemoyenne(shf4, "xy",/nan, box=box) 493 shf4=reform(shf4) 494 495 net1=swr1+lwr1+lhf1+shf1 496 net2=swr2+lwr2+lhf2+shf2 497 net3=swr3+lwr3+lhf3+shf3 498 net4=swr4+lwr4+lhf4+shf4 295 499 296 500 nce2=[net1,net2,net3,net4] 297 501 help, nce2 298 502 299 lhf1=0. & lhf2=0. & lhf3=0. & lhf4=0. 300 shf1=0. & shf2=0. & shf3=0. & shf4=0. 301 lwr1=0. & lwr2=0. & lwr3=0. & lwr4=0. 302 swr1=0. & swr2=0. & swr3=0. & swr4=0. 303 net1=0. & net2=0. & net3=0. & net4=0 503 lhf1=0. 504 lhf2=0. 505 lhf3=0. 506 lhf4=0. 507 shf1=0. 508 shf2=0. 509 shf3=0. 510 shf4=0. 511 lwr1=0. 512 lwr2=0. 513 lwr3=0. 514 lwr4=0. 515 swr1=0. 516 swr2=0. 517 swr3=0. 518 swr4=0. 519 net1=0. 520 net2=0. 521 net3=0. 522 net4=0 304 523 305 524 file=project_id_env+"ncep1_flux_19890101_20091231.nc" 306 525 initncdf, file 307 526 308 lhf1=read_ncdf('lhf',st1,en1,file=file,/nostr, box=box) & lhf1=grossemoyenne(lhf1, "xy", box=box,/nan) & lhf1=reform(lhf1) 309 lhf2=read_ncdf('lhf',st2,en2,file=file,/nostr, box=box) & lhf2=grossemoyenne(lhf2, "xy", box=box,/nan) & lhf2=reform(lhf2) 310 lhf3=read_ncdf('lhf',st3,en3,file=file,/nostr, box=box) & lhf3=grossemoyenne(lhf3, "xy", box=box,/nan) & lhf3=reform(lhf3) 311 lhf4=read_ncdf('lhf',st4,en4,file=file,/nostr, box=box) & lhf4=grossemoyenne(lhf4, "xy", box=box,/nan) & lhf4=reform(lhf4) 312 313 shf1=read_ncdf('shf',st1,en1,file=file,/nostr, box=box) & shf1=grossemoyenne(shf1, "xy", box=box,/nan) & shf1=reform(shf1) 314 shf2=read_ncdf('shf',st2,en2,file=file,/nostr, box=box) & shf2=grossemoyenne(shf2, "xy", box=box,/nan) & shf2=reform(shf2) 315 shf3=read_ncdf('shf',st3,en3,file=file,/nostr, box=box) & shf3=grossemoyenne(shf3, "xy", box=box,/nan) & shf3=reform(shf3) 316 shf4=read_ncdf('shf',st4,en4,file=file,/nostr, box=box) & shf4=grossemoyenne(shf4, "xy", box=box,/nan) & shf4=reform(shf4) 317 318 lwr1=read_ncdf('lwr',st1,en1,file=file,/nostr, box=box) & lwr1=grossemoyenne(lwr1, "xy", box=box,/nan) & lwr1=reform(lwr1) 319 lwr2=read_ncdf('lwr',st2,en2,file=file,/nostr, box=box) & lwr2=grossemoyenne(lwr2, "xy", box=box,/nan) & lwr2=reform(lwr2) 320 lwr3=read_ncdf('lwr',st3,en3,file=file,/nostr, box=box) & lwr3=grossemoyenne(lwr3, "xy", box=box,/nan) & lwr3=reform(lwr3) 321 lwr4=read_ncdf('lwr',st4,en4,file=file,/nostr, box=box) & lwr4=grossemoyenne(lwr4, "xy", box=box,/nan) & lwr4=reform(lwr4) 322 323 swr1=read_ncdf('swr',st1,en1,file=file,/nostr, box=box) & swr1=grossemoyenne(swr1, "xy", box=box,/nan) & swr1=reform(swr1) 324 swr2=read_ncdf('swr',st2,en2,file=file,/nostr, box=box) & swr2=grossemoyenne(swr2, "xy", box=box,/nan) & swr2=reform(swr2) 325 swr3=read_ncdf('swr',st3,en3,file=file,/nostr, box=box) & swr3=grossemoyenne(swr3, "xy", box=box,/nan) & swr3=reform(swr3) 326 swr4=read_ncdf('swr',st4,en4,file=file,/nostr, box=box) & swr4=grossemoyenne(swr4, "xy", box=box,/nan) & swr4=reform(swr4) 327 328 net1=swr1+(lwr1+shf1+lhf1) & net2=swr2+(lwr2+shf2+lhf2) & net3=swr3+(lwr3+shf3+lhf3) & net4=swr4+(lwr4+shf4+lhf4) 527 lhf1=read_ncdf('lhf',st1,en1,file=file,/nostr, box=box) 528 lhf1=grossemoyenne(lhf1, "xy", box=box,/nan) 529 lhf1=reform(lhf1) 530 lhf2=read_ncdf('lhf',st2,en2,file=file,/nostr, box=box) 531 lhf2=grossemoyenne(lhf2, "xy", box=box,/nan) 532 lhf2=reform(lhf2) 533 lhf3=read_ncdf('lhf',st3,en3,file=file,/nostr, box=box) 534 lhf3=grossemoyenne(lhf3, "xy", box=box,/nan) 535 lhf3=reform(lhf3) 536 lhf4=read_ncdf('lhf',st4,en4,file=file,/nostr, box=box) 537 lhf4=grossemoyenne(lhf4, "xy", box=box,/nan) 538 lhf4=reform(lhf4) 539 540 shf1=read_ncdf('shf',st1,en1,file=file,/nostr, box=box) 541 shf1=grossemoyenne(shf1, "xy", box=box,/nan) 542 shf1=reform(shf1) 543 shf2=read_ncdf('shf',st2,en2,file=file,/nostr, box=box) 544 shf2=grossemoyenne(shf2, "xy", box=box,/nan) 545 shf2=reform(shf2) 546 shf3=read_ncdf('shf',st3,en3,file=file,/nostr, box=box) 547 shf3=grossemoyenne(shf3, "xy", box=box,/nan) 548 shf3=reform(shf3) 549 shf4=read_ncdf('shf',st4,en4,file=file,/nostr, box=box) 550 shf4=grossemoyenne(shf4, "xy", box=box,/nan) 551 shf4=reform(shf4) 552 553 lwr1=read_ncdf('lwr',st1,en1,file=file,/nostr, box=box) 554 lwr1=grossemoyenne(lwr1, "xy", box=box,/nan) 555 lwr1=reform(lwr1) 556 lwr2=read_ncdf('lwr',st2,en2,file=file,/nostr, box=box) 557 lwr2=grossemoyenne(lwr2, "xy", box=box,/nan) 558 lwr2=reform(lwr2) 559 lwr3=read_ncdf('lwr',st3,en3,file=file,/nostr, box=box) 560 lwr3=grossemoyenne(lwr3, "xy", box=box,/nan) 561 lwr3=reform(lwr3) 562 lwr4=read_ncdf('lwr',st4,en4,file=file,/nostr, box=box) 563 lwr4=grossemoyenne(lwr4, "xy", box=box,/nan) 564 lwr4=reform(lwr4) 565 566 swr1=read_ncdf('swr',st1,en1,file=file,/nostr, box=box) 567 swr1=grossemoyenne(swr1, "xy", box=box,/nan) 568 swr1=reform(swr1) 569 swr2=read_ncdf('swr',st2,en2,file=file,/nostr, box=box) 570 swr2=grossemoyenne(swr2, "xy", box=box,/nan) 571 swr2=reform(swr2) 572 swr3=read_ncdf('swr',st3,en3,file=file,/nostr, box=box) 573 swr3=grossemoyenne(swr3, "xy", box=box,/nan) 574 swr3=reform(swr3) 575 swr4=read_ncdf('swr',st4,en4,file=file,/nostr, box=box) 576 swr4=grossemoyenne(swr4, "xy", box=box,/nan) 577 swr4=reform(swr4) 578 579 net1=swr1+(lwr1+shf1+lhf1) 580 net2=swr2+(lwr2+shf2+lhf2) 581 net3=swr3+(lwr3+shf3+lhf3) 582 net4=swr4+(lwr4+shf4+lhf4) 329 583 nce1=[net1,net2,net3,net4] 330 lhf1=0. & lhf2=0. & lhf3=0. & lhf4=0. 331 shf1=0. & shf2=0. & shf3=0. & shf4=0. 332 lwr1=0. & lwr2=0. & lwr3=0. & lwr4=0. 333 swr1=0. & swr2=0. & swr3=0. & swr4=0. 334 net1=0. & net2=0. & net3=0. & net4=0 584 lhf1=0. 585 lhf2=0. 586 lhf3=0. 587 lhf4=0. 588 shf1=0. 589 shf2=0. 590 shf3=0. 591 shf4=0. 592 lwr1=0. 593 lwr2=0. 594 lwr3=0. 595 lwr4=0. 596 swr1=0. 597 swr2=0. 598 swr3=0. 599 swr4=0. 600 net1=0. 601 net2=0. 602 net3=0. 603 net4=0 335 604 336 605 ind=where(finite(net)) 337 net=net(ind) & era=era(ind) & trop=trop(ind) & oaf=oaf(ind) & nce2=nce2(ind) & nce1=nce1(ind) 606 net=net(ind) 607 era=era(ind) 608 trop=trop(ind) 609 oaf=oaf(ind) 610 nce2=nce2(ind) 611 nce1=nce1(ind) 338 612 olr=olr(ind) 339 613 -
trunk/src/paper01/fig14/whots_validation_net_2004_2007_all_v10.pro
r85 r94 135 135 ;; reading other data sets 136 136 137 st1=20040813 & en1=20050725 138 st2=20050728 & en2=20060624 139 st3=20060627 & en3=20070628 140 ;st4=20070626 & en4=20080606 141 ;st5=20080605 & en5=20090715 137 st1=20040813 138 en1=20050725 139 st2=20050728 140 en2=20060624 141 st3=20060627 142 en3=20070628 143 ;st4=20070626 144 ;en4=20080606 145 ;st5=20080605 146 ; en5=20090715 142 147 143 148 file=project_id_env+'erai_lhf_19890101_20091231_oafluxgrid.nc' 144 149 initncdf, file 145 lhf1=-1*read_ncdf('lhf',st1,en1,file=file,/nostr, box=box) & lhf1=grossemoyenne(lhf1, "xy", box=box,/nan) & lhf1=reform(lhf1) 146 lhf2=-1*read_ncdf('lhf',st2,en2,file=file,/nostr, box=box) & lhf2=grossemoyenne(lhf2, "xy", box=box,/nan) & lhf2=reform(lhf2) 147 lhf3=-1*read_ncdf('lhf',st3,en3,file=file,/nostr, box=box) & lhf3=grossemoyenne(lhf3, "xy", box=box,/nan) & lhf3=reform(lhf3) 150 lhf1=-1*read_ncdf('lhf',st1,en1,file=file,/nostr, box=box) 151 lhf1=grossemoyenne(lhf1, "xy", box=box,/nan) 152 lhf1=reform(lhf1) 153 lhf2=-1*read_ncdf('lhf',st2,en2,file=file,/nostr, box=box) 154 lhf2=grossemoyenne(lhf2, "xy", box=box,/nan) 155 lhf2=reform(lhf2) 156 lhf3=-1*read_ncdf('lhf',st3,en3,file=file,/nostr, box=box) 157 lhf3=grossemoyenne(lhf3, "xy", box=box,/nan) 158 lhf3=reform(lhf3) 148 159 149 160 file=project_id_env+'erai_shf_19890101_20091231_oafluxgrid.nc' 150 161 initncdf, file 151 shf1=-1*read_ncdf('shf',st1,en1,file=file,/nostr, box=box) & shf1=grossemoyenne(shf1, "xy", box=box,/nan) & shf1=reform(shf1) 152 shf2=-1*read_ncdf('shf',st2,en2,file=file,/nostr, box=box) & shf2=grossemoyenne(shf2, "xy", box=box,/nan) & shf2=reform(shf2) 153 shf3=-1*read_ncdf('shf',st3,en3,file=file,/nostr, box=box) & shf3=grossemoyenne(shf3, "xy", box=box,/nan) & shf3=reform(shf3) 162 shf1=-1*read_ncdf('shf',st1,en1,file=file,/nostr, box=box) 163 shf1=grossemoyenne(shf1, "xy", box=box,/nan) 164 shf1=reform(shf1) 165 shf2=-1*read_ncdf('shf',st2,en2,file=file,/nostr, box=box) 166 shf2=grossemoyenne(shf2, "xy", box=box,/nan) 167 shf2=reform(shf2) 168 shf3=-1*read_ncdf('shf',st3,en3,file=file,/nostr, box=box) 169 shf3=grossemoyenne(shf3, "xy", box=box,/nan) 170 shf3=reform(shf3) 154 171 155 172 file=project_id_env+'erai_lwr_19890101_20091231_oafluxgrid.nc' 156 173 initncdf, file 157 lwr1=read_ncdf('lwr',st1-1,en1,file=file,/nostr, box=box) & lwr1=grossemoyenne(lwr1, "xy", box=box,/nan) & lwr1=reform(lwr1) 158 lwr2=read_ncdf('lwr',st2-1,en2,file=file,/nostr, box=box) & lwr2=grossemoyenne(lwr2, "xy", box=box,/nan) & lwr2=reform(lwr2) 159 lwr3=read_ncdf('lwr',st3-1,en3,file=file,/nostr, box=box) & lwr3=grossemoyenne(lwr3, "xy", box=box,/nan) & lwr3=reform(lwr3) 174 lwr1=read_ncdf('lwr',st1-1,en1,file=file,/nostr, box=box) 175 lwr1=grossemoyenne(lwr1, "xy", box=box,/nan) 176 lwr1=reform(lwr1) 177 lwr2=read_ncdf('lwr',st2-1,en2,file=file,/nostr, box=box) 178 lwr2=grossemoyenne(lwr2, "xy", box=box,/nan) 179 lwr2=reform(lwr2) 180 lwr3=read_ncdf('lwr',st3-1,en3,file=file,/nostr, box=box) 181 lwr3=grossemoyenne(lwr3, "xy", box=box,/nan) 182 lwr3=reform(lwr3) 160 183 161 184 file=project_id_env+"erai_swr_19910101_20091231_oafluxgrid.nc" 162 185 initncdf, file 163 swr1=read_ncdf('swr',st1,en1,file=file,/nostr, box=box) & swr1=grossemoyenne(swr1, "xy", box=box,/nan) & swr1=reform(swr1) 164 swr2=read_ncdf('swr',st2,en2,file=file,/nostr, box=box) & swr2=grossemoyenne(swr2, "xy", box=box,/nan) & swr2=reform(swr2) 165 swr3=read_ncdf('swr',st3,en3,file=file,/nostr, box=box) & swr3=grossemoyenne(swr3, "xy", box=box,/nan) & swr3=reform(swr3) 166 167 net1=swr1+(lwr1+shf1+lhf1) & net2=swr2+(lwr2+shf2+lhf2) & net3=swr3+(lwr3+shf3+lhf3) 186 swr1=read_ncdf('swr',st1,en1,file=file,/nostr, box=box) 187 swr1=grossemoyenne(swr1, "xy", box=box,/nan) 188 swr1=reform(swr1) 189 swr2=read_ncdf('swr',st2,en2,file=file,/nostr, box=box) 190 swr2=grossemoyenne(swr2, "xy", box=box,/nan) 191 swr2=reform(swr2) 192 swr3=read_ncdf('swr',st3,en3,file=file,/nostr, box=box) 193 swr3=grossemoyenne(swr3, "xy", box=box,/nan) 194 swr3=reform(swr3) 195 196 net1=swr1+(lwr1+shf1+lhf1) 197 net2=swr2+(lwr2+shf2+lhf2) 198 net3=swr3+(lwr3+shf3+lhf3) 168 199 era=[net1,net2,net3] 169 lhf1=0. & lhf2=0. & lhf3=0. 170 shf1=0. & shf2=0. & shf3=0. 171 lwr1=0. & lwr2=0. & lwr3=0. 172 swr1=0. & swr2=0. & swr3=0. 173 net1=0. & net2=0. & net3=0. 200 lhf1=0. 201 lhf2=0. 202 lhf3=0. 203 shf1=0. 204 shf2=0. 205 shf3=0. 206 lwr1=0. 207 lwr2=0. 208 lwr3=0. 209 swr1=0. 210 swr2=0. 211 swr3=0. 212 net1=0. 213 net2=0. 214 net3=0. 174 215 help, era 175 216 … … 177 218 initncdf, file 178 219 179 lhf1=read_ncdf('lhf',st1,en1,file=file,/nostr, box=box) & lhf1=grossemoyenne(lhf1, "xy", box=box,/nan) & lhf1=reform(lhf1) 180 lhf2=read_ncdf('lhf',st2,en2,file=file,/nostr, box=box) & lhf2=grossemoyenne(lhf2, "xy", box=box,/nan) & lhf2=reform(lhf2) 181 lhf3=read_ncdf('lhf',st3,en3,file=file,/nostr, box=box) & lhf3=grossemoyenne(lhf3, "xy", box=box,/nan) & lhf3=reform(lhf3) 182 183 shf1=read_ncdf('shf',st1,en1,file=file,/nostr, box=box) & shf1=grossemoyenne(shf1, "xy", box=box,/nan) & shf1=reform(shf1) 184 shf2=read_ncdf('shf',st2,en2,file=file,/nostr, box=box) & shf2=grossemoyenne(shf2, "xy", box=box,/nan) & shf2=reform(shf2) 185 shf3=read_ncdf('shf',st3,en3,file=file,/nostr, box=box) & shf3=grossemoyenne(shf3, "xy", box=box,/nan) & shf3=reform(shf3) 186 187 lwr1=read_ncdf('lwr',st1,en1,file=file,/nostr, box=box) & lwr1=grossemoyenne(lwr1, "xy", box=box,/nan) & lwr1=reform(lwr1) 188 lwr2=read_ncdf('lwr',st2,en2,file=file,/nostr, box=box) & lwr2=grossemoyenne(lwr2, "xy", box=box,/nan) & lwr2=reform(lwr2) 189 lwr3=read_ncdf('lwr',st3,en3,file=file,/nostr, box=box) & lwr3=grossemoyenne(lwr3, "xy", box=box,/nan) & lwr3=reform(lwr3) 190 191 swr1=read_ncdf('swr',st1,en1,file=file,/nostr, box=box) & swr1=grossemoyenne(swr1, "xy", box=box,/nan) & swr1=reform(swr1) 192 swr2=read_ncdf('swr',st2,en2,file=file,/nostr, box=box) & swr2=grossemoyenne(swr2, "xy", box=box,/nan) & swr2=reform(swr2) 193 swr3=read_ncdf('swr',st3,en3,file=file,/nostr, box=box) & swr3=grossemoyenne(swr3, "xy", box=box,/nan) & swr3=reform(swr3) 220 lhf1=read_ncdf('lhf',st1,en1,file=file,/nostr, box=box) 221 lhf1=grossemoyenne(lhf1, "xy", box=box,/nan) 222 lhf1=reform(lhf1) 223 lhf2=read_ncdf('lhf',st2,en2,file=file,/nostr, box=box) 224 lhf2=grossemoyenne(lhf2, "xy", box=box,/nan) 225 lhf2=reform(lhf2) 226 lhf3=read_ncdf('lhf',st3,en3,file=file,/nostr, box=box) 227 lhf3=grossemoyenne(lhf3, "xy", box=box,/nan) 228 lhf3=reform(lhf3) 229 230 shf1=read_ncdf('shf',st1,en1,file=file,/nostr, box=box) 231 shf1=grossemoyenne(shf1, "xy", box=box,/nan) 232 shf1=reform(shf1) 233 shf2=read_ncdf('shf',st2,en2,file=file,/nostr, box=box) 234 shf2=grossemoyenne(shf2, "xy", box=box,/nan) 235 shf2=reform(shf2) 236 shf3=read_ncdf('shf',st3,en3,file=file,/nostr, box=box) 237 shf3=grossemoyenne(shf3, "xy", box=box,/nan) 238 shf3=reform(shf3) 239 240 lwr1=read_ncdf('lwr',st1,en1,file=file,/nostr, box=box) 241 lwr1=grossemoyenne(lwr1, "xy", box=box,/nan) 242 lwr1=reform(lwr1) 243 lwr2=read_ncdf('lwr',st2,en2,file=file,/nostr, box=box) 244 lwr2=grossemoyenne(lwr2, "xy", box=box,/nan) 245 lwr2=reform(lwr2) 246 lwr3=read_ncdf('lwr',st3,en3,file=file,/nostr, box=box) 247 lwr3=grossemoyenne(lwr3, "xy", box=box,/nan) 248 lwr3=reform(lwr3) 249 250 swr1=read_ncdf('swr',st1,en1,file=file,/nostr, box=box) 251 swr1=grossemoyenne(swr1, "xy", box=box,/nan) 252 swr1=reform(swr1) 253 swr2=read_ncdf('swr',st2,en2,file=file,/nostr, box=box) 254 swr2=grossemoyenne(swr2, "xy", box=box,/nan) 255 swr2=reform(swr2) 256 swr3=read_ncdf('swr',st3,en3,file=file,/nostr, box=box) 257 swr3=grossemoyenne(swr3, "xy", box=box,/nan) 258 swr3=reform(swr3) 194 259 195 260 file=project_id_env+"TropFlux_swr_19890101_20091231_NRT_v50.nc" 196 261 initncdf, file 197 olr1=read_ncdf("sw", st1-1, en1, file=file,/nostr, box=box) & olr1=grossemoyenne(olr1, "xy",/nan, box=box) & olr1=reform(olr1) 198 olr2=read_ncdf("sw", st2-1, en2, file=file,/nostr, box=box) & olr2=grossemoyenne(olr2, "xy",/nan, box=box) & olr2=reform(olr2) 199 olr3=read_ncdf("sw", st3-1, en3, file=file,/nostr, box=box) & olr3=grossemoyenne(olr3, "xy",/nan, box=box) & olr3=reform(olr3) 200 201 net1=swr1+lwr1+(shf1+lhf1) & net2=swr2+lwr2+(shf2+lhf2) & net3=swr3+lwr3+(shf3+lhf3) 202 neto_1=olr1+lwr1+lhf1+shf1 & neto_2=olr2+lwr2+lhf2+shf2 & neto_3=olr3+lwr3+lhf3+shf3 203 204 trop=[net1,net2,net3] & olr=[neto_1,neto_2,neto_3] 205 206 lhf1=0. & lhf2=0. & lhf3=0. 207 shf1=0. & shf2=0. & shf3=0. 208 lwr1=0. & lwr2=0. & lwr3=0. 209 swr1=0. & swr2=0. & swr3=0. 210 net1=0. & net2=0. & net3=0. 211 neto_1=0 & neto_2=0 & neto_3=0 262 olr1=read_ncdf("sw", st1-1, en1, file=file,/nostr, box=box) 263 olr1=grossemoyenne(olr1, "xy",/nan, box=box) 264 olr1=reform(olr1) 265 olr2=read_ncdf("sw", st2-1, en2, file=file,/nostr, box=box) 266 olr2=grossemoyenne(olr2, "xy",/nan, box=box) 267 olr2=reform(olr2) 268 olr3=read_ncdf("sw", st3-1, en3, file=file,/nostr, box=box) 269 olr3=grossemoyenne(olr3, "xy",/nan, box=box) 270 olr3=reform(olr3) 271 272 net1=swr1+lwr1+(shf1+lhf1) 273 net2=swr2+lwr2+(shf2+lhf2) 274 net3=swr3+lwr3+(shf3+lhf3) 275 neto_1=olr1+lwr1+lhf1+shf1 276 neto_2=olr2+lwr2+lhf2+shf2 277 neto_3=olr3+lwr3+lhf3+shf3 278 279 trop=[net1,net2,net3] 280 olr=[neto_1,neto_2,neto_3] 281 282 lhf1=0. 283 lhf2=0. 284 lhf3=0. 285 shf1=0. 286 shf2=0. 287 shf3=0. 288 lwr1=0. 289 lwr2=0. 290 lwr3=0. 291 swr1=0. 292 swr2=0. 293 swr3=0. 294 net1=0. 295 net2=0. 296 net3=0. 297 neto_1=0 298 neto_2=0 299 neto_3=0 212 300 213 301 help, trop, olr … … 215 303 file=project_id_env+'swr_oafluxgrid_1985_2007.nc' 216 304 initncdf, file 217 swr1=read_ncdf("swr", st1, en1, file=file,/nostr, box=box) & swr1=grossemoyenne(swr1, "xy",/nan, box=box) & swr1=reform(swr1) 218 swr2=read_ncdf("swr", st2, en2, file=file,/nostr, box=box) & swr2=grossemoyenne(swr2, "xy",/nan, box=box) & swr2=reform(swr2) 219 swr3=read_ncdf("swr", st3, en3, file=file,/nostr, box=box) & swr3=grossemoyenne(swr3, "xy",/nan, box=box) & swr3=reform(swr3) 305 swr1=read_ncdf("swr", st1, en1, file=file,/nostr, box=box) 306 swr1=grossemoyenne(swr1, "xy",/nan, box=box) 307 swr1=reform(swr1) 308 swr2=read_ncdf("swr", st2, en2, file=file,/nostr, box=box) 309 swr2=grossemoyenne(swr2, "xy",/nan, box=box) 310 swr2=reform(swr2) 311 swr3=read_ncdf("swr", st3, en3, file=file,/nostr, box=box) 312 swr3=grossemoyenne(swr3, "xy",/nan, box=box) 313 swr3=reform(swr3) 220 314 221 315 file=project_id_env+'lwr_oafluxgrid_1985_2007.nc' 222 316 initncdf, file 223 lwr1=-1*read_ncdf("lwr", st1, en1, file=file,/nostr, box=box) & lwr1=grossemoyenne(lwr1, "xy",/nan, box=box) & lwr1=reform(lwr1) 224 lwr2=-1*read_ncdf("lwr", st2, en2, file=file,/nostr, box=box) & lwr2=grossemoyenne(lwr2, "xy",/nan, box=box) & lwr2=reform(lwr2) 225 lwr3=-1*read_ncdf("lwr", st3, en3, file=file,/nostr, box=box) & lwr3=grossemoyenne(lwr3, "xy",/nan, box=box) & lwr3=reform(lwr3) 317 lwr1=-1*read_ncdf("lwr", st1, en1, file=file,/nostr, box=box) 318 lwr1=grossemoyenne(lwr1, "xy",/nan, box=box) 319 lwr1=reform(lwr1) 320 lwr2=-1*read_ncdf("lwr", st2, en2, file=file,/nostr, box=box) 321 lwr2=grossemoyenne(lwr2, "xy",/nan, box=box) 322 lwr2=reform(lwr2) 323 lwr3=-1*read_ncdf("lwr", st3, en3, file=file,/nostr, box=box) 324 lwr3=grossemoyenne(lwr3, "xy",/nan, box=box) 325 lwr3=reform(lwr3) 226 326 227 327 file=project_id_env+'lhf_oafluxgrid_1985_2009.nc' 228 328 initncdf, file 229 lhf1=-1*read_ncdf("lhf", st1, en1, file=file,/nostr, box=box) & lhf1=grossemoyenne(lhf1, "xy",/nan, box=box) & lhf1=reform(lhf1) 230 lhf2=-1*read_ncdf("lhf", st2, en2, file=file,/nostr, box=box) & lhf2=grossemoyenne(lhf2, "xy",/nan, box=box) & lhf2=reform(lhf2) 231 lhf3=-1*read_ncdf("lhf", st3, en3, file=file,/nostr, box=box) & lhf3=grossemoyenne(lhf3, "xy",/nan, box=box) & lhf3=reform(lhf3) 329 lhf1=-1*read_ncdf("lhf", st1, en1, file=file,/nostr, box=box) 330 lhf1=grossemoyenne(lhf1, "xy",/nan, box=box) 331 lhf1=reform(lhf1) 332 lhf2=-1*read_ncdf("lhf", st2, en2, file=file,/nostr, box=box) 333 lhf2=grossemoyenne(lhf2, "xy",/nan, box=box) 334 lhf2=reform(lhf2) 335 lhf3=-1*read_ncdf("lhf", st3, en3, file=file,/nostr, box=box) 336 lhf3=grossemoyenne(lhf3, "xy",/nan, box=box) 337 lhf3=reform(lhf3) 232 338 233 339 file=project_id_env+'shf_oafluxgrid_1985_2009.nc' 234 340 initncdf, file 235 shf1=-1*read_ncdf("shf", st1, en1, file=file,/nostr, box=box) & shf1=grossemoyenne(shf1, "xy",/nan, box=box) & shf1=reform(shf1) 236 shf2=-1*read_ncdf("shf", st2, en2, file=file,/nostr, box=box) & shf2=grossemoyenne(shf2, "xy",/nan, box=box) & shf2=reform(shf2) 237 shf3=-1*read_ncdf("shf", st3, en3, file=file,/nostr, box=box) & shf3=grossemoyenne(shf3, "xy",/nan, box=box) & shf3=reform(shf3) 238 239 net1=swr1+lwr1+lhf1+shf1 & net2=swr2+lwr2+lhf2+shf2 & net3=swr3+lwr3+lhf3+shf3 341 shf1=-1*read_ncdf("shf", st1, en1, file=file,/nostr, box=box) 342 shf1=grossemoyenne(shf1, "xy",/nan, box=box) 343 shf1=reform(shf1) 344 shf2=-1*read_ncdf("shf", st2, en2, file=file,/nostr, box=box) 345 shf2=grossemoyenne(shf2, "xy",/nan, box=box) 346 shf2=reform(shf2) 347 shf3=-1*read_ncdf("shf", st3, en3, file=file,/nostr, box=box) 348 shf3=grossemoyenne(shf3, "xy",/nan, box=box) 349 shf3=reform(shf3) 350 351 net1=swr1+lwr1+lhf1+shf1 352 net2=swr2+lwr2+lhf2+shf2 353 net3=swr3+lwr3+lhf3+shf3 240 354 241 355 oaf=[net1,net2,net3] 242 lhf1=0. & lhf2=0. & lhf3=0. 243 shf1=0. & shf2=0. & shf3=0. 244 lwr1=0. & lwr2=0. & lwr3=0. 245 swr1=0. & swr2=0. & swr3=0. 246 net1=0. & net2=0. & net3=0. 356 lhf1=0. 357 lhf2=0. 358 lhf3=0. 359 shf1=0. 360 shf2=0. 361 shf3=0. 362 lwr1=0. 363 lwr2=0. 364 lwr3=0. 365 swr1=0. 366 swr2=0. 367 swr3=0. 368 net1=0. 369 net2=0. 370 net3=0. 247 371 help, oaf 248 372 249 373 fi=project_id_env+'swr_ncep2_oaflxgrid_19890101_20091231.nc' 250 374 initncdf, fi 251 swr1=read_ncdf("swr", st1, en1, file=fi,/nostr, box=box) & swr1=grossemoyenne(swr1, "xy",/nan, box=box) & swr1=reform(swr1) 252 swr2=read_ncdf("swr", st2, en2, file=fi,/nostr, box=box) & swr2=grossemoyenne(swr2, "xy",/nan, box=box) & swr2=reform(swr2) 253 swr3=read_ncdf("swr", st3, en3, file=fi,/nostr, box=box) & swr3=grossemoyenne(swr3, "xy",/nan, box=box) & swr3=reform(swr3) 375 swr1=read_ncdf("swr", st1, en1, file=fi,/nostr, box=box) 376 swr1=grossemoyenne(swr1, "xy",/nan, box=box) 377 swr1=reform(swr1) 378 swr2=read_ncdf("swr", st2, en2, file=fi,/nostr, box=box) 379 swr2=grossemoyenne(swr2, "xy",/nan, box=box) 380 swr2=reform(swr2) 381 swr3=read_ncdf("swr", st3, en3, file=fi,/nostr, box=box) 382 swr3=grossemoyenne(swr3, "xy",/nan, box=box) 383 swr3=reform(swr3) 254 384 255 385 fi=project_id_env+'NCEP2_flux_19890101_20090729.nc" 256 386 initncdf, fi 257 lwr1=-1*read_ncdf("lwr", st1, en1, file=fi,/nostr, box=box) & lwr1=grossemoyenne(lwr1, "xy",/nan, box=box) & lwr1=reform(lwr1) 258 lwr2=-1*read_ncdf("lwr", st2, en2, file=fi,/nostr, box=box) & lwr2=grossemoyenne(lwr2, "xy",/nan, box=box) & lwr2=reform(lwr2) 259 lwr3=-1*read_ncdf("lwr", st3, en3, file=fi,/nostr, box=box) & lwr3=grossemoyenne(lwr3, "xy",/nan, box=box) & lwr3=reform(lwr3) 387 lwr1=-1*read_ncdf("lwr", st1, en1, file=fi,/nostr, box=box) 388 lwr1=grossemoyenne(lwr1, "xy",/nan, box=box) 389 lwr1=reform(lwr1) 390 lwr2=-1*read_ncdf("lwr", st2, en2, file=fi,/nostr, box=box) 391 lwr2=grossemoyenne(lwr2, "xy",/nan, box=box) 392 lwr2=reform(lwr2) 393 lwr3=-1*read_ncdf("lwr", st3, en3, file=fi,/nostr, box=box) 394 lwr3=grossemoyenne(lwr3, "xy",/nan, box=box) 395 lwr3=reform(lwr3) 260 396 261 397 fi=project_id_env+'lhf_ncep2_oafluxgrid_19890101_20091231.nc' 262 398 initncdf, fi 263 lhf1=-1*read_ncdf("lhf", st1, en1, file=fi,/nostr, box=box) & lhf1=grossemoyenne(lhf1, "xy",/nan, box=box) & lhf1=reform(lhf1) 264 lhf2=-1*read_ncdf("lhf", st2, en2, file=fi,/nostr, box=box) & lhf2=grossemoyenne(lhf2, "xy",/nan, box=box) & lhf2=reform(lhf2) 265 lhf3=-1*read_ncdf("lhf", st3, en3, file=fi,/nostr, box=box) & lhf3=grossemoyenne(lhf3, "xy",/nan, box=box) & lhf3=reform(lhf3) 399 lhf1=-1*read_ncdf("lhf", st1, en1, file=fi,/nostr, box=box) 400 lhf1=grossemoyenne(lhf1, "xy",/nan, box=box) 401 lhf1=reform(lhf1) 402 lhf2=-1*read_ncdf("lhf", st2, en2, file=fi,/nostr, box=box) 403 lhf2=grossemoyenne(lhf2, "xy",/nan, box=box) 404 lhf2=reform(lhf2) 405 lhf3=-1*read_ncdf("lhf", st3, en3, file=fi,/nostr, box=box) 406 lhf3=grossemoyenne(lhf3, "xy",/nan, box=box) 407 lhf3=reform(lhf3) 266 408 267 409 fi=project_id_env+'shf_ncep2_oafluxgrid_19890101_20091231.nc' 268 410 initncdf, fi 269 shf1=-1*read_ncdf("shf", st1, en1, file=fi,/nostr, box=box) & shf1=grossemoyenne(shf1, "xy",/nan, box=box) & shf1=reform(shf1) 270 shf2=-1*read_ncdf("shf", st2, en2, file=fi,/nostr, box=box) & shf2=grossemoyenne(shf2, "xy",/nan, box=box) & shf2=reform(shf2) 271 shf3=-1*read_ncdf("shf", st3, en3, file=fi,/nostr, box=box) & shf3=grossemoyenne(shf3, "xy",/nan, box=box) & shf3=reform(shf3) 272 273 net1=swr1+lwr1+lhf1+shf1 & net2=swr2+lwr2+lhf2+shf2 & net3=swr3+lwr3+lhf3+shf3 411 shf1=-1*read_ncdf("shf", st1, en1, file=fi,/nostr, box=box) 412 shf1=grossemoyenne(shf1, "xy",/nan, box=box) 413 shf1=reform(shf1) 414 shf2=-1*read_ncdf("shf", st2, en2, file=fi,/nostr, box=box) 415 shf2=grossemoyenne(shf2, "xy",/nan, box=box) 416 shf2=reform(shf2) 417 shf3=-1*read_ncdf("shf", st3, en3, file=fi,/nostr, box=box) 418 shf3=grossemoyenne(shf3, "xy",/nan, box=box) 419 shf3=reform(shf3) 420 421 net1=swr1+lwr1+lhf1+shf1 422 net2=swr2+lwr2+lhf2+shf2 423 net3=swr3+lwr3+lhf3+shf3 274 424 275 425 nce2=[net1,net2,net3] 276 426 help, nce2 277 427 278 lhf1=0. & lhf2=0. & lhf3=0. 279 shf1=0. & shf2=0. & shf3=0. 280 lwr1=0. & lwr2=0. & lwr3=0. 281 swr1=0. & swr2=0. & swr3=0. 282 net1=0. & net2=0. & net3=0. 428 lhf1=0. 429 lhf2=0. 430 lhf3=0. 431 shf1=0. 432 shf2=0. 433 shf3=0. 434 lwr1=0. 435 lwr2=0. 436 lwr3=0. 437 swr1=0. 438 swr2=0. 439 swr3=0. 440 net1=0. 441 net2=0. 442 net3=0. 283 443 284 444 file=project_id_env+"ncep1_flux_19890101_20091231.nc" 285 445 initncdf, file 286 446 287 lhf1=read_ncdf('lhf',st1,en1,file=file,/nostr, box=box) & lhf1=grossemoyenne(lhf1, "xy", box=box,/nan) & lhf1=reform(lhf1) 288 lhf2=read_ncdf('lhf',st2,en2,file=file,/nostr, box=box) & lhf2=grossemoyenne(lhf2, "xy", box=box,/nan) & lhf2=reform(lhf2) 289 lhf3=read_ncdf('lhf',st3,en3,file=file,/nostr, box=box) & lhf3=grossemoyenne(lhf3, "xy", box=box,/nan) & lhf3=reform(lhf3) 290 291 shf1=read_ncdf('shf',st1,en1,file=file,/nostr, box=box) & shf1=grossemoyenne(shf1, "xy", box=box,/nan) & shf1=reform(shf1) 292 shf2=read_ncdf('shf',st2,en2,file=file,/nostr, box=box) & shf2=grossemoyenne(shf2, "xy", box=box,/nan) & shf2=reform(shf2) 293 shf3=read_ncdf('shf',st3,en3,file=file,/nostr, box=box) & shf3=grossemoyenne(shf3, "xy", box=box,/nan) & shf3=reform(shf3) 294 295 lwr1=read_ncdf('lwr',st1,en1,file=file,/nostr, box=box) & lwr1=grossemoyenne(lwr1, "xy", box=box,/nan) & lwr1=reform(lwr1) 296 lwr2=read_ncdf('lwr',st2,en2,file=file,/nostr, box=box) & lwr2=grossemoyenne(lwr2, "xy", box=box,/nan) & lwr2=reform(lwr2) 297 lwr3=read_ncdf('lwr',st3,en3,file=file,/nostr, box=box) & lwr3=grossemoyenne(lwr3, "xy", box=box,/nan) & lwr3=reform(lwr3) 298 299 swr1=read_ncdf('swr',st1,en1,file=file,/nostr, box=box) & swr1=grossemoyenne(swr1, "xy", box=box,/nan) & swr1=reform(swr1) 300 swr2=read_ncdf('swr',st2,en2,file=file,/nostr, box=box) & swr2=grossemoyenne(swr2, "xy", box=box,/nan) & swr2=reform(swr2) 301 swr3=read_ncdf('swr',st3,en3,file=file,/nostr, box=box) & swr3=grossemoyenne(swr3, "xy", box=box,/nan) & swr3=reform(swr3) 302 303 net1=swr1+(lwr1+shf1+lhf1) & net2=swr2+(lwr2+shf2+lhf2) & net3=swr3+(lwr3+shf3+lhf3) 447 lhf1=read_ncdf('lhf',st1,en1,file=file,/nostr, box=box) 448 lhf1=grossemoyenne(lhf1, "xy", box=box,/nan) 449 lhf1=reform(lhf1) 450 lhf2=read_ncdf('lhf',st2,en2,file=file,/nostr, box=box) 451 lhf2=grossemoyenne(lhf2, "xy", box=box,/nan) 452 lhf2=reform(lhf2) 453 lhf3=read_ncdf('lhf',st3,en3,file=file,/nostr, box=box) 454 lhf3=grossemoyenne(lhf3, "xy", box=box,/nan) 455 lhf3=reform(lhf3) 456 457 shf1=read_ncdf('shf',st1,en1,file=file,/nostr, box=box) 458 shf1=grossemoyenne(shf1, "xy", box=box,/nan) 459 shf1=reform(shf1) 460 shf2=read_ncdf('shf',st2,en2,file=file,/nostr, box=box) 461 shf2=grossemoyenne(shf2, "xy", box=box,/nan) 462 shf2=reform(shf2) 463 shf3=read_ncdf('shf',st3,en3,file=file,/nostr, box=box) 464 shf3=grossemoyenne(shf3, "xy", box=box,/nan) 465 shf3=reform(shf3) 466 467 lwr1=read_ncdf('lwr',st1,en1,file=file,/nostr, box=box) 468 lwr1=grossemoyenne(lwr1, "xy", box=box,/nan) 469 lwr1=reform(lwr1) 470 lwr2=read_ncdf('lwr',st2,en2,file=file,/nostr, box=box) 471 lwr2=grossemoyenne(lwr2, "xy", box=box,/nan) 472 lwr2=reform(lwr2) 473 lwr3=read_ncdf('lwr',st3,en3,file=file,/nostr, box=box) 474 lwr3=grossemoyenne(lwr3, "xy", box=box,/nan) 475 lwr3=reform(lwr3) 476 477 swr1=read_ncdf('swr',st1,en1,file=file,/nostr, box=box) 478 swr1=grossemoyenne(swr1, "xy", box=box,/nan) 479 swr1=reform(swr1) 480 swr2=read_ncdf('swr',st2,en2,file=file,/nostr, box=box) 481 swr2=grossemoyenne(swr2, "xy", box=box,/nan) 482 swr2=reform(swr2) 483 swr3=read_ncdf('swr',st3,en3,file=file,/nostr, box=box) 484 swr3=grossemoyenne(swr3, "xy", box=box,/nan) 485 swr3=reform(swr3) 486 487 net1=swr1+(lwr1+shf1+lhf1) 488 net2=swr2+(lwr2+shf2+lhf2) 489 net3=swr3+(lwr3+shf3+lhf3) 304 490 nce1=[net1,net2,net3] 305 491 help, nce1 306 492 307 lhf1=0. & lhf2=0. & lhf3=0. 308 shf1=0. & shf2=0. & shf3=0. 309 lwr1=0. & lwr2=0. & lwr3=0. 310 swr1=0. & swr2=0. & swr3=0. 311 net1=0. & net2=0. & net3=0. 493 lhf1=0. 494 lhf2=0. 495 lhf3=0. 496 shf1=0. 497 shf2=0. 498 shf3=0. 499 lwr1=0. 500 lwr2=0. 501 lwr3=0. 502 swr1=0. 503 swr2=0. 504 swr3=0. 505 net1=0. 506 net2=0. 507 net3=0. 312 508 313 509 ind=where(finite(net)) 314 net=net(ind) & era=era(ind) & trop=trop(ind) & oaf=oaf(ind) 315 nce2=nce2(ind) & nce1=nce1(ind) & olr=olr(ind) 510 net=net(ind) 511 era=era(ind) 512 trop=trop(ind) 513 oaf=oaf(ind) 514 nce2=nce2(ind) 515 nce1=nce1(ind) 516 olr=olr(ind) 316 517 317 518 -
trunk/src/paper01/fig15/fig15_timeseries_mjo.pro
r85 r94 84 84 85 85 openps, FILENAME = project_od_env+'fig15_timeseries_mjo.ps' 86 date1=20071001 & date2=20080331 87 date1=19990101 & date2=20021231 86 date1=20071001 87 date2=20080331 88 date1=19990101 89 date2=20021231 88 90 box=[50,80,-12,-5] 89 91 … … 93 95 lhf_trop=read_ncdf("lhf", date1, date2, box=box, file=file_trop,/nostr) 94 96 swr_trop=read_ncdf("swr", date1, date2, box=box, file=file_trop,/nostr) 95 lwr_trop=read_ncdf("lwr", date1, date2, box=box, file=file_trop,/nostr) ;; & ref_lw=-1*lwr_trop 97 lwr_trop=read_ncdf("lwr", date1, date2, box=box, file=file_trop,/nostr) 98 ;; ref_lw=-1*lwr_trop 96 99 trop=swr_trop+(lwr_trop+lhf_trop+shf_trop) 97 100 help, trop … … 114 117 lhf=read_ncdf("lhf", date1, date2, box=box, file=file_erai,/nostr) 115 118 lwr=read_ncdf("lwr", date1, date2, box=box, file=file_erai,/nostr) 116 swr=read_ncdf("swr", date1, date2, box=box, file=file_erai,/nostr) & swr=-1*swr 119 swr=read_ncdf("swr", date1, date2, box=box, file=file_erai,/nostr) 120 swr=-1*swr 117 121 era=swr-(lwr+lhf+shf) 118 122 era=grossemoyenne(era, "xy",/nan) … … 141 145 file_oaf=project_id_env+'swr_oafluxgrid_1985_2007.nc' 142 146 initncdf, file_oaf 143 swr=read_ncdf("swr", date1, date2, box=box, file=file_oaf,/nostr) & swr_trop=swr 147 swr=read_ncdf("swr", date1, date2, box=box, file=file_oaf,/nostr) 148 swr_trop=swr 144 149 oafl=swr-(lwr+lhf+shf) 145 150 help, oafl … … 155 160 save, olr,trop, nce2, era, nce, filename="netflux_sctr_1999_2002.idl" 156 161 157 trop_hf=trop*0. & nce2_hf=trop*0. 158 era_hf=trop*0. & nce_hf=trop*0. 159 160 Thf=30 & Tlf=90 162 trop_hf=trop*0. 163 nce2_hf=trop*0. 164 era_hf=trop*0. 165 nce_hf=trop*0. 166 167 Thf=30 168 Tlf=90 161 169 tsamp=1. ; monthly 162 170 freq=findgen(jpt/2+1)/(jpt*tsamp) -
trunk/src/paper01/fig16/fig16_timeseries_nino3.pro
r85 r94 102 102 103 103 openps, FILENAME = project_od_env+'fig16_timeseries_nino3.ps' 104 date1=19940101 & date2=20071231 104 date1=19940101 105 date2=20071231 105 106 box=[240,330,-5,5] 106 107 … … 123 124 sst_nclim=total(reform(sst(0:nt-1),365,ny),2)/ny 124 125 125 trop_nclim=[trop_nclim ,trop_nclim, trop_nclim] & trop_nclim=smooth(trop_nclim,nsmooth,/nan) & trop_nclim=trop_nclim[365:365+364] 126 oafl_nclim=[oafl_nclim ,oafl_nclim, oafl_nclim] & oafl_nclim=smooth(oafl_nclim,nsmooth,/nan) & oafl_nclim=oafl_nclim[365:365+364] 127 nce2_nclim=[nce2_nclim ,nce2_nclim ,nce2_nclim] & nce2_nclim=smooth(nce2_nclim,nsmooth,/nan) & nce2_nclim=nce2_nclim[365:365+364] 128 era_nclim=[era_nclim ,era_nclim, era_nclim] & era_nclim=smooth(era_nclim,nsmooth,/nan) & era_nclim=era_nclim[365:365+364] 129 nce_nclim=[nce_nclim ,nce_nclim ,nce_nclim] & nce_nclim=smooth(nce_nclim,nsmooth,/nan) & nce_nclim=nce_nclim[365:365+364] 130 sst_nclim=[sst_nclim ,sst_nclim ,sst_nclim] & sst_nclim=smooth(sst_nclim,nsmooth,/nan) & sst_nclim=sst_nclim[365:365+364] 131 132 time=time & jpt=n_elements(time) 126 trop_nclim=[trop_nclim ,trop_nclim, trop_nclim] 127 trop_nclim=smooth(trop_nclim,nsmooth,/nan) 128 trop_nclim=trop_nclim[365:365+364] 129 oafl_nclim=[oafl_nclim ,oafl_nclim, oafl_nclim] 130 oafl_nclim=smooth(oafl_nclim,nsmooth,/nan) 131 oafl_nclim=oafl_nclim[365:365+364] 132 nce2_nclim=[nce2_nclim ,nce2_nclim ,nce2_nclim] 133 nce2_nclim=smooth(nce2_nclim,nsmooth,/nan) 134 nce2_nclim=nce2_nclim[365:365+364] 135 era_nclim=[era_nclim ,era_nclim, era_nclim] 136 era_nclim=smooth(era_nclim,nsmooth,/nan) 137 era_nclim=era_nclim[365:365+364] 138 nce_nclim=[nce_nclim ,nce_nclim ,nce_nclim] 139 nce_nclim=smooth(nce_nclim,nsmooth,/nan) 140 nce_nclim=nce_nclim[365:365+364] 141 sst_nclim=[sst_nclim ,sst_nclim ,sst_nclim] 142 sst_nclim=smooth(sst_nclim,nsmooth,/nan) 143 sst_nclim=sst_nclim[365:365+364] 144 145 time=time 146 jpt=n_elements(time) 133 147 134 148 caldat, time,mon,day,yea 135 trop_clim=trop*0. & era_clim=trop*0. 136 oafl_clim=trop*0. & nce_clim=trop*0. 137 nce2_clim=trop*0. & sst_clim=trop*0. 149 trop_clim=trop*0. 150 era_clim=trop*0. 151 oafl_clim=trop*0. 152 nce_clim=trop*0. 153 nce2_clim=trop*0. 154 sst_clim=trop*0. 138 155 139 156 for jt=0,jpt-1 do begin … … 147 164 endfor 148 165 149 trop_ano=trop-trop_clim & oafl_ano=oafl-oafl_clim 150 nce2_ano=nce2-nce2_clim & era_ano=era-era_clim 151 nce_ano=nce-nce_clim & sst_ano=sst-sst_clim 152 153 trop_hf=trop*0. & nce2_hf=trop*0. 154 oafl_hf=trop*0. & era_hf=trop*0. 166 trop_ano=trop-trop_clim 167 oafl_ano=oafl-oafl_clim 168 nce2_ano=nce2-nce2_clim 169 era_ano=era-era_clim 170 nce_ano=nce-nce_clim 171 sst_ano=sst-sst_clim 172 173 trop_hf=trop*0. 174 nce2_hf=trop*0. 175 oafl_hf=trop*0. 176 era_hf=trop*0. 155 177 nce_hf=trop*0. 156 178 157 Thf=1 & Tlf=90 179 Thf=1 180 Tlf=90 158 181 tsamp=1. ; monthly 159 182 freq=findgen(jpt/2+1)/(jpt*tsamp) … … 189 212 help, trop_hf, nce2_hf, era_hf, nce_hf 190 213 191 trop_ano=trop_ano-trop_hf & oafl_ano=oafl_ano-oafl_hf 192 nce2_ano=nce2_ano-nce2_hf & era_ano=era_ano-era_hf 214 trop_ano=trop_ano-trop_hf 215 oafl_ano=oafl_ano-oafl_hf 216 nce2_ano=nce2_ano-nce2_hf 217 era_ano=era_ano-era_hf 193 218 nce_ano=nce_ano-nce_hf 194 219 -
trunk/src/paper01/fig2/fig2_timeline_diagram.pro
r85 r94 132 132 ;; reading data from mooring 133 133 134 site=sitelist(n) & csite=site 134 site=sitelist(n) 135 csite=site 135 136 print, csite 136 137 x=x_site_location(site) 137 138 y=y_site_location(site) 138 139 if (y ge 0. and y le 30.) then y=y+360. 139 dx=0.5 & dy=0.5 & box=[y-dy, y+dy, x-dx, x+dx] 140 dx=0.5 141 dy=0.5 142 box=[y-dy, y+dy, x-dx, x+dx] 140 143 141 144 nsmooth=1. … … 145 148 read_lh, csite, date1, date2, nsmooth, lh 146 149 147 ind=where(finite(lh)) & lh[ind]=1. 148 ind=where(finite(lh,/nan)) & lh[ind]=0. 150 ind=where(finite(lh)) 151 lh[ind]=1. 152 ind=where(finite(lh,/nan)) 153 lh[ind]=0. 149 154 no_obs_lh=no_obs_lh+lh 150 155 … … 168 173 ;; reading data from mooring 169 174 170 site=sitelist(n) & csite=site 175 site=sitelist(n) 176 csite=site 171 177 print, csite 172 178 x=x_site_location(site) 173 179 y=y_site_location(site) 174 180 if (y ge 0. and y le 30.) then y=y+360. 175 dx=0.5 & dy=0.5 & box=[y-dy, y+dy, x-dx, x+dx] 181 dx=0.5 182 dy=0.5 183 box=[y-dy, y+dy, x-dx, x+dx] 176 184 177 185 nsmooth=1. 178 186 read_sw, csite, date1, date2, box, sw 179 swr=sw & ind=where(finite(swr)) & valid=n_elements(ind) 187 swr=sw 188 ind=where(finite(swr)) 189 valid=n_elements(ind) 180 190 if (valid ge 10) then begin 181 ind=where(finite(sw)) & sw[ind]=1. 182 ind=where(finite(sw,/nan)) & sw[ind]=0. 191 ind=where(finite(sw)) 192 sw[ind]=1. 193 ind=where(finite(sw,/nan)) 194 sw[ind]=0. 183 195 no_obs_sw=no_obs_sw+sw 184 196 endif … … 195 207 ;; reading data from mooring 196 208 197 site=sitelist(n) & csite=site 209 site=sitelist(n) 210 csite=site 198 211 print, csite 199 212 x=x_site_location(site) 200 213 y=y_site_location(site) 201 214 if (y ge 0. and y le 30.) then y=y+360. 202 dx=0.5 & dy=0.5 & box=[y-dy, y+dy, x-dx, x+dx] 215 dx=0.5 216 dy=0.5 217 box=[y-dy, y+dy, x-dx, x+dx] 203 218 204 219 nsmooth=1. 205 220 read_lw, csite, date1, date2, box, lw 206 lwr=lw & ind=where(finite(lwr)) & valid=n_elements(ind) 221 lwr=lw 222 ind=where(finite(lwr)) 223 valid=n_elements(ind) 207 224 if (valid ge 10) then begin 208 ind=where(finite(lw)) & lw[ind]=1. 209 ind=where(finite(lw,/nan)) & lw[ind]=0. 225 ind=where(finite(lw)) 226 lw[ind]=1. 227 ind=where(finite(lw,/nan)) 228 lw[ind]=0. 210 229 no_obs_lw=no_obs_lw+lw 211 230 endif -
trunk/src/paper01/fig2/read_lh.pro
r85 r94 124 124 for n=0,nn-1 do begin 125 125 var=vars(n) 126 com='ind=where('+var+' ge 1.e20) & if (ind(0) ne -1) then '+var+'(ind)=!values.f_nan' 126 com='ind=where('+var+' ge 1.e20) 127 if (ind(0) ne -1) then '+var+'(ind)=!values.f_nan' 127 128 r=execute(com) 128 129 endfor -
trunk/src/paper01/fig2/read_lw.pro
r85 r94 118 118 for n=0,nn-1 do begin 119 119 var=vars(n) 120 com='ind=where('+var+' ge 1.e20) & if (ind(0) ne -1) then '+var+'(ind)=!values.f_nan' 120 com='ind=where('+var+' ge 1.e20) 121 if (ind(0) ne -1) then '+var+'(ind)=!values.f_nan' 121 122 r=execute(com) 122 123 endfor -
trunk/src/paper01/fig2/read_sw.pro
r85 r94 126 126 for n=0,nn-1 do begin 127 127 var=vars(n) 128 com='ind=where('+var+' ge 1.e20) & if (ind(0) ne -1) then '+var+'(ind)=!values.f_nan' 128 com='ind=where('+var+' ge 1.e20) 129 if (ind(0) ne -1) then '+var+'(ind)=!values.f_nan' 129 130 r=execute(com) 130 131 endfor -
trunk/src/paper01/fig2/time_lec.pro
r85 r94 46 46 function time_lec, fi 47 47 tt=ncdf_lec(fi,var='time') 48 fid=ncdf_open(fi) & vid=ncdf_varid(fid,'time') 48 fid=ncdf_open(fi) 49 vid=ncdf_varid(fid,'time') 49 50 ncdf_attget, fid,vid,'units',orig 50 51 orig=string(orig) -
trunk/src/paper01/fig3/air_validation_scatter_2000_2009_v50.pro
r85 r94 147 147 file=project_id_env+'erai_t2m_19890101_20091231_oafluxgrid.nc' 148 148 initncdf, file 149 unc=read_ncdf('t2m',date1,date2,file=file,/nostr) & unc=unc-273.15 149 unc=read_ncdf('t2m',date1,date2,file=file,/nostr) 150 unc=unc-273.15 150 151 help, unc 151 152 152 153 file=project_id_env+'TropFlux_t2m_19890101_20091231_v50.nc' 153 154 initncdf, file 154 cor=read_ncdf('t2m',date1,date2,file=file,/nostr) & cor=cor-273.15 155 cor=read_ncdf('t2m',date1,date2,file=file,/nostr) 156 cor=cor-273.15 155 157 help, cor 156 158 … … 177 179 ;; reading data from mooring 178 180 179 site=sitelist(n) & csite=site 181 site=sitelist(n) 182 csite=site 180 183 print, csite 181 184 x=x_site_location(site) 182 185 y=y_site_location(site) 183 186 if (y ge 0. and y le 30.) then y=y+360. 184 dx=0.5 & dy=0.5 & box=[y-dy, y+dy, x-dx, x+dx] 187 dx=0.5 188 dy=0.5 189 box=[y-dy, y+dy, x-dx, x+dx] 185 190 read_variables_v2, csite,date1,date2,nsmooth, $ 186 191 at, sw,rh,sst,wu,wv,ws,lh … … 219 224 220 225 221 ind=where(finite(air)) & air=air(ind) & uncr_air=uncr(ind) & corr_air=corr(ind) 222 oafl=oafl(ind) & ncep=ncep(ind) & ncep1=ncep1(ind) 226 ind=where(finite(air)) 227 air=air(ind) 228 uncr_air=uncr(ind) 229 corr_air=corr(ind) 230 oafl=oafl(ind) 231 ncep=ncep(ind) 232 ncep1=ncep1(ind) 223 233 mean_tao=total(air,/nan)/n_elements(ind) 224 234 … … 246 256 lat=reform(ff(0,*)) 247 257 lon=reform(ff(1,*)) 248 cor_era=reform(ff(2,*)) & cor_erai=total(cor_era)/n_elements(cor_era) 249 bias_era=reform(ff(3,*)) & bias_erai=total(bias_era)/n_elements(bias_era) 250 std_era=reform(ff(4,*)) & std_erai=total(std_era)/n_elements(std_era) 251 rmsd_era=reform(ff(5,*)) & rmsd_erai=total(rmsd_era)/n_elements(rmsd_era) 252 mean_tao=reform(ff(6,*)) & mean_erai=bias_era+mean_tao 258 cor_era=reform(ff(2,*)) 259 cor_erai=total(cor_era)/n_elements(cor_era) 260 bias_era=reform(ff(3,*)) 261 bias_erai=total(bias_era)/n_elements(bias_era) 262 std_era=reform(ff(4,*)) 263 std_erai=total(std_era)/n_elements(std_era) 264 rmsd_era=reform(ff(5,*)) 265 rmsd_erai=total(rmsd_era)/n_elements(rmsd_era) 266 mean_tao=reform(ff(6,*)) 267 mean_erai=bias_era+mean_tao 253 268 254 269 print, '' … … 264 279 oplot, [22,31], [22,31] 265 280 ab=linfit(mean_tao, mean_erai,yfit=yfit) 266 a=float(ab(0)) & b=float(ab(1)) 281 a=float(ab(0)) 282 b=float(ab(1)) 267 283 oplot, mean_tao, yfit, color=250, thick=2 268 284 … … 272 288 lat=reform(ff(0,*)) 273 289 lon=reform(ff(1,*)) 274 cor_tro=reform(ff(2,*)) & cor_trop=total(cor_tro)/n_elements(cor_tro) 275 bias_tro=reform(ff(3,*)) & bias_trop=total(bias_tro)/n_elements(bias_tro) 276 std_tro=reform(ff(4,*)) & std_trop=total(std_tro)/n_elements(std_tro) 277 rmsd_tro=reform(ff(5,*)) & rmsd_trop=total(rmsd_tro)/n_elements(rmsd_tro) 278 mean_tao=reform(ff(6,*)) & mean_trop=bias_tro+mean_tao 290 cor_tro=reform(ff(2,*)) 291 cor_trop=total(cor_tro)/n_elements(cor_tro) 292 bias_tro=reform(ff(3,*)) 293 bias_trop=total(bias_tro)/n_elements(bias_tro) 294 std_tro=reform(ff(4,*)) 295 std_trop=total(std_tro)/n_elements(std_tro) 296 rmsd_tro=reform(ff(5,*)) 297 rmsd_trop=total(rmsd_tro)/n_elements(rmsd_tro) 298 mean_tao=reform(ff(6,*)) 299 mean_trop=bias_tro+mean_tao 279 300 280 301 print, '' … … 291 312 292 313 ab=linfit(mean_tao, mean_trop,yfit=yfit) 293 a=float(ab(0)) & b=float(ab(1)) 314 a=float(ab(0)) 315 b=float(ab(1)) 294 316 oplot, mean_tao, yfit, color=250, thick=2 295 317 … … 299 321 lat=reform(ff(0,*)) 300 322 lon=reform(ff(1,*)) 301 cor_oaf=reform(ff(2,*)) & cor_oafl=total(cor_oaf)/n_elements(cor_oaf) 302 bias_oaf=reform(ff(3,*)) & bias_oafl=total(bias_oaf)/n_elements(bias_oaf) 303 std_oaf=reform(ff(4,*)) & std_oafl=total(std_oaf)/n_elements(std_oaf) 304 rmsd_oaf=reform(ff(5,*)) & rmsd_oafl=total(rmsd_oaf)/n_elements(rmsd_oaf) 305 mean_tao=reform(ff(6,*)) & mean_oafl=bias_oaf+mean_tao 323 cor_oaf=reform(ff(2,*)) 324 cor_oafl=total(cor_oaf)/n_elements(cor_oaf) 325 bias_oaf=reform(ff(3,*)) 326 bias_oafl=total(bias_oaf)/n_elements(bias_oaf) 327 std_oaf=reform(ff(4,*)) 328 std_oafl=total(std_oaf)/n_elements(std_oaf) 329 rmsd_oaf=reform(ff(5,*)) 330 rmsd_oafl=total(rmsd_oaf)/n_elements(rmsd_oaf) 331 mean_tao=reform(ff(6,*)) 332 mean_oafl=bias_oaf+mean_tao 306 333 307 334 print, '' … … 318 345 319 346 ab=linfit(mean_tao, mean_oafl,yfit=yfit) 320 a=float(ab(0)) & b=float(ab(1)) 347 a=float(ab(0)) 348 b=float(ab(1)) 321 349 oplot, mean_tao, yfit, color=250, thick=2 322 323 324 350 325 351 fi_air_ncep=project_id_env+'air_2000_2009_ncep_v50.txt' … … 328 354 lat=reform(ff(0,*)) 329 355 lon=reform(ff(1,*)) 330 cor_nce=reform(ff(2,*)) & cor_ncep=total(cor_nce)/n_elements(cor_nce) 331 bias_nce=reform(ff(3,*)) & bias_ncep=total(bias_nce)/n_elements(bias_nce) 332 std_nce=reform(ff(4,*)) & std_ncep=total(std_nce)/n_elements(std_nce) 333 rmsd_nce=reform(ff(5,*)) & rmsd_ncep=total(rmsd_nce)/n_elements(rmsd_nce) 334 mean_tao=reform(ff(6,*)) & mean_ncep=bias_nce+mean_tao 356 cor_nce=reform(ff(2,*)) 357 cor_ncep=total(cor_nce)/n_elements(cor_nce) 358 bias_nce=reform(ff(3,*)) 359 bias_ncep=total(bias_nce)/n_elements(bias_nce) 360 std_nce=reform(ff(4,*)) 361 std_ncep=total(std_nce)/n_elements(std_nce) 362 rmsd_nce=reform(ff(5,*)) 363 rmsd_ncep=total(rmsd_nce)/n_elements(rmsd_nce) 364 mean_tao=reform(ff(6,*)) 365 mean_ncep=bias_nce+mean_tao 335 366 336 367 print, '' … … 347 378 348 379 ab=linfit(mean_tao, mean_ncep,yfit=yfit) 349 a=float(ab(0)) & b=float(ab(1)) 380 a=float(ab(0)) 381 b=float(ab(1)) 350 382 oplot, mean_tao, yfit, color=250, thick=2 351 383 … … 355 387 lat=reform(ff(0,*)) 356 388 lon=reform(ff(1,*)) 357 cor_nce=reform(ff(2,*)) & cor_ncep=total(cor_nce)/n_elements(cor_nce) 358 bias_nce=reform(ff(3,*)) & bias_ncep=total(bias_nce)/n_elements(bias_nce) 359 std_nce=reform(ff(4,*)) & std_ncep=total(std_nce)/n_elements(std_nce) 360 rmsd_nce=reform(ff(5,*)) & rmsd_ncep=total(rmsd_nce)/n_elements(rmsd_nce) 361 mean_tao=reform(ff(6,*)) & mean_ncep=bias_nce+mean_tao 389 cor_nce=reform(ff(2,*)) 390 cor_ncep=total(cor_nce)/n_elements(cor_nce) 391 bias_nce=reform(ff(3,*)) 392 bias_ncep=total(bias_nce)/n_elements(bias_nce) 393 std_nce=reform(ff(4,*)) 394 std_ncep=total(std_nce)/n_elements(std_nce) 395 rmsd_nce=reform(ff(5,*)) 396 rmsd_ncep=total(rmsd_nce)/n_elements(rmsd_nce) 397 mean_tao=reform(ff(6,*)) 398 mean_ncep=bias_nce+mean_tao 362 399 363 400 print, '' … … 374 411 375 412 ab=linfit(mean_tao, mean_ncep,yfit=yfit) 376 a=float(ab(0)) & b=float(ab(1)) 413 a=float(ab(0)) 414 b=float(ab(1)) 377 415 oplot, mean_tao, yfit, color=250, thick=2 378 416 -
trunk/src/paper01/fig3/q2m_validation_scatter_2000_2009_v50.pro
r85 r94 179 179 ;; reading data from mooring 180 180 181 site=sitelist(n) & csite=site 181 site=sitelist(n) 182 csite=site 182 183 print, csite 183 184 x=x_site_location(site) 184 185 y=y_site_location(site) 185 186 if (y ge 0. and y le 30.) then y=y+360. 186 dx=0.5 & dy=0.5 & box=[y-dy, y+dy, x-dx, x+dx] 187 dx=0.5 188 dy=0.5 189 box=[y-dy, y+dy, x-dx, x+dx] 187 190 read_variables_v2, csite,date1,date2,nsmooth, $ 188 191 at, sw,rh,sst,wu,wv,ws,lh … … 220 223 ncep1=tropflux 221 224 222 ind=where(finite(q2m)) & q2m=q2m(ind) & uncr_q2m=uncr(ind) & corr_q2m=corr(ind) 223 oafl=oafl(ind) & ncep=ncep(ind) & ncep1=ncep1(ind) 225 ind=where(finite(q2m)) 226 q2m=q2m(ind) 227 uncr_q2m=uncr(ind) 228 corr_q2m=corr(ind) 229 oafl=oafl(ind) 230 ncep=ncep(ind) 231 ncep1=ncep1(ind) 224 232 mean_tao=total(q2m,/nan)/n_elements(ind) 225 233 … … 247 255 lat=reform(ff(0,*)) 248 256 lon=reform(ff(1,*)) 249 cor_era=reform(ff(2,*)) & cor_erai=total(cor_era)/n_elements(cor_era) 250 bias_era=reform(ff(3,*)) & bias_erai=total(bias_era)/n_elements(bias_era) 251 std_era=reform(ff(4,*)) & std_erai=total(std_era)/n_elements(std_era) 252 rmsd_era=reform(ff(5,*)) & rmsd_erai=total(rmsd_era)/n_elements(rmsd_era) 253 mean_tao=reform(ff(6,*)) & mean_erai=bias_era+mean_tao 257 cor_era=reform(ff(2,*)) 258 cor_erai=total(cor_era)/n_elements(cor_era) 259 bias_era=reform(ff(3,*)) 260 bias_erai=total(bias_era)/n_elements(bias_era) 261 std_era=reform(ff(4,*)) 262 std_erai=total(std_era)/n_elements(std_era) 263 rmsd_era=reform(ff(5,*)) 264 rmsd_erai=total(rmsd_era)/n_elements(rmsd_era) 265 mean_tao=reform(ff(6,*)) 266 mean_erai=bias_era+mean_tao 254 267 255 268 print, '' … … 265 278 oplot, [11,21], [11,21] 266 279 ab=linfit(mean_tao, mean_erai,yfit=yfit) 267 a=float(ab(0)) & b=float(ab(1)) 280 a=float(ab(0)) 281 b=float(ab(1)) 268 282 oplot, mean_tao, yfit, color=250, thick=2 269 283 … … 273 287 lat=reform(ff(0,*)) 274 288 lon=reform(ff(1,*)) 275 cor_tro=reform(ff(2,*)) & cor_trop=total(cor_tro)/n_elements(cor_tro) 276 bias_tro=reform(ff(3,*)) & bias_trop=total(bias_tro)/n_elements(bias_tro) 277 std_tro=reform(ff(4,*)) & std_trop=total(std_tro)/n_elements(std_tro) 278 rmsd_tro=reform(ff(5,*)) & rmsd_trop=total(rmsd_tro)/n_elements(rmsd_tro) 279 mean_tao=reform(ff(6,*)) & mean_trop=bias_tro+mean_tao 289 cor_tro=reform(ff(2,*)) 290 cor_trop=total(cor_tro)/n_elements(cor_tro) 291 bias_tro=reform(ff(3,*)) 292 bias_trop=total(bias_tro)/n_elements(bias_tro) 293 std_tro=reform(ff(4,*)) 294 std_trop=total(std_tro)/n_elements(std_tro) 295 rmsd_tro=reform(ff(5,*)) 296 rmsd_trop=total(rmsd_tro)/n_elements(rmsd_tro) 297 mean_tao=reform(ff(6,*)) 298 mean_trop=bias_tro+mean_tao 280 299 281 300 print, '' … … 292 311 293 312 ab=linfit(mean_tao, mean_trop,yfit=yfit) 294 a=float(ab(0)) & b=float(ab(1)) 313 a=float(ab(0)) 314 b=float(ab(1)) 295 315 oplot, mean_tao, yfit, color=250, thick=2 296 316 … … 300 320 lat=reform(ff(0,*)) 301 321 lon=reform(ff(1,*)) 302 cor_oaf=reform(ff(2,*)) & cor_oafl=total(cor_oaf)/n_elements(cor_oaf) 303 bias_oaf=reform(ff(3,*)) & bias_oafl=total(bias_oaf)/n_elements(bias_oaf) 304 std_oaf=reform(ff(4,*)) & std_oafl=total(std_oaf)/n_elements(std_oaf) 305 rmsd_oaf=reform(ff(5,*)) & rmsd_oafl=total(rmsd_oaf)/n_elements(rmsd_oaf) 306 mean_tao=reform(ff(6,*)) & mean_oafl=bias_oaf+mean_tao 322 cor_oaf=reform(ff(2,*)) 323 cor_oafl=total(cor_oaf)/n_elements(cor_oaf) 324 bias_oaf=reform(ff(3,*)) 325 bias_oafl=total(bias_oaf)/n_elements(bias_oaf) 326 std_oaf=reform(ff(4,*)) 327 std_oafl=total(std_oaf)/n_elements(std_oaf) 328 rmsd_oaf=reform(ff(5,*)) 329 rmsd_oafl=total(rmsd_oaf)/n_elements(rmsd_oaf) 330 mean_tao=reform(ff(6,*)) 331 mean_oafl=bias_oaf+mean_tao 307 332 308 333 print, '' … … 319 344 320 345 ab=linfit(mean_tao, mean_oafl,yfit=yfit) 321 a=float(ab(0)) & b=float(ab(1)) 346 a=float(ab(0)) 347 b=float(ab(1)) 322 348 oplot, mean_tao, yfit, color=250, thick=2 323 349 … … 328 354 lat=reform(ff(0,*)) 329 355 lon=reform(ff(1,*)) 330 cor_nce=reform(ff(2,*)) & cor_ncep=total(cor_nce)/n_elements(cor_nce) 331 bias_nce=reform(ff(3,*)) & bias_ncep=total(bias_nce)/n_elements(bias_nce) 332 std_nce=reform(ff(4,*)) & std_ncep=total(std_nce)/n_elements(std_nce) 333 rmsd_nce=reform(ff(5,*)) & rmsd_ncep=total(rmsd_nce)/n_elements(rmsd_nce) 334 mean_tao=reform(ff(6,*)) & mean_ncep=bias_nce+mean_tao 356 cor_nce=reform(ff(2,*)) 357 cor_ncep=total(cor_nce)/n_elements(cor_nce) 358 bias_nce=reform(ff(3,*)) 359 bias_ncep=total(bias_nce)/n_elements(bias_nce) 360 std_nce=reform(ff(4,*)) 361 std_ncep=total(std_nce)/n_elements(std_nce) 362 rmsd_nce=reform(ff(5,*)) 363 rmsd_ncep=total(rmsd_nce)/n_elements(rmsd_nce) 364 mean_tao=reform(ff(6,*)) 365 mean_ncep=bias_nce+mean_tao 335 366 336 367 print, '' … … 347 378 348 379 ab=linfit(mean_tao, mean_ncep,yfit=yfit) 349 a=float(ab(0)) & b=float(ab(1)) 380 a=float(ab(0)) 381 b=float(ab(1)) 350 382 oplot, mean_tao, yfit, color=250, thick=2 351 383 … … 355 387 lat=reform(ff(0,*)) 356 388 lon=reform(ff(1,*)) 357 cor_nce=reform(ff(2,*)) & cor_ncep=total(cor_nce)/n_elements(cor_nce) 358 bias_nce=reform(ff(3,*)) & bias_ncep=total(bias_nce)/n_elements(bias_nce) 359 std_nce=reform(ff(4,*)) & std_ncep=total(std_nce)/n_elements(std_nce) 360 rmsd_nce=reform(ff(5,*)) & rmsd_ncep=total(rmsd_nce)/n_elements(rmsd_nce) 361 mean_tao=reform(ff(6,*)) & mean_ncep=bias_nce+mean_tao 389 cor_nce=reform(ff(2,*)) 390 cor_ncep=total(cor_nce)/n_elements(cor_nce) 391 bias_nce=reform(ff(3,*)) 392 bias_ncep=total(bias_nce)/n_elements(bias_nce) 393 std_nce=reform(ff(4,*)) 394 std_ncep=total(std_nce)/n_elements(std_nce) 395 rmsd_nce=reform(ff(5,*)) 396 rmsd_ncep=total(rmsd_nce)/n_elements(rmsd_nce) 397 mean_tao=reform(ff(6,*)) 398 mean_ncep=bias_nce+mean_tao 362 399 363 400 print, '' … … 374 411 375 412 ab=linfit(mean_tao, mean_ncep,yfit=yfit) 376 a=float(ab(0)) & b=float(ab(1)) 413 a=float(ab(0)) 414 b=float(ab(1)) 377 415 oplot, mean_tao, yfit, color=250, thick=2 378 416 -
trunk/src/paper01/fig3/read_variables_v2.pro
r85 r94 207 207 endelse 208 208 209 ind_at=where(at_q ne 1 and at_q ne 2) & ind_ws=where(ws_q ne 1 and ws_q ne 2) 210 ind_rh=where(rh_q ne 1 and rh_q ne 2) & ind_sst=where(sst_q ne 1 and sst_q ne 2) 209 ind_at=where(at_q ne 1 and at_q ne 2) 210 ind_ws=where(ws_q ne 1 and ws_q ne 2) 211 ind_rh=where(rh_q ne 1 and rh_q ne 2) 212 ind_sst=where(sst_q ne 1 and sst_q ne 2) 211 213 ind_lh=where(lh_q ne 1 and lh_q ne 2) 212 214 … … 214 216 215 217 if (ind(0) ne -1) then begin 216 sw(ind)=!Values.f_nan & at(ind)=!Values.f_nan 217 rh(ind)=!Values.f_nan & ws(ind)=!Values.f_nan 218 sst(ind)=!Values.f_nan & lh(ind)=!Values.f_nan 219 wu(ind)=!Values.f_nan & wv(ind)=!Values.f_nan 218 sw(ind)=!Values.f_nan 219 at(ind)=!Values.f_nan 220 rh(ind)=!Values.f_nan 221 ws(ind)=!Values.f_nan 222 sst(ind)=!Values.f_nan 223 lh(ind)=!Values.f_nan 224 wu(ind)=!Values.f_nan 225 wv(ind)=!Values.f_nan 220 226 endif 221 227 ; … … 227 233 for n=0,nn-1 do begin 228 234 var=vars(n) 229 com='ind=where('+var+' ge 1.e20) & if (ind(0) ne -1) then '+var+'(ind)=!values.f_nan' 235 com='ind=where('+var+' ge 1.e20) 236 if (ind(0) ne -1) then '+var+'(ind)=!values.f_nan' 230 237 r=execute(com) 231 238 endfor 232 239 233 240 nsmooth=nsmooth 234 at=smooth(at,nsmooth,/nan) & sst=smooth(sst,nsmooth,/nan) 235 lh=smooth(lh,nsmooth,/nan) & rh=smooth(rh,nsmooth,/nan) 236 wu=smooth(wu,nsmooth,/nan) & wv=smooth(wv,nsmooth,/nan) 237 ws=smooth(ws,nsmooth,/nan) & sw=smooth(sw,nsmooth,/nan) 241 at=smooth(at,nsmooth,/nan) 242 sst=smooth(sst,nsmooth,/nan) 243 lh=smooth(lh,nsmooth,/nan) 244 rh=smooth(rh,nsmooth,/nan) 245 wu=smooth(wu,nsmooth,/nan) 246 wv=smooth(wv,nsmooth,/nan) 247 ws=smooth(ws,nsmooth,/nan) 248 sw=smooth(sw,nsmooth,/nan) 238 249 239 250 end … … 242 253 function time_lec, fi 243 254 tt=ncdf_lec(fi,var='time') 244 fid=ncdf_open(fi) & vid=ncdf_varid(fid,'time') 255 fid=ncdf_open(fi) 256 vid=ncdf_varid(fid,'time') 245 257 ncdf_attget, fid,vid,'units',orig 246 258 orig=string(orig) -
trunk/src/paper01/fig3/sst_validation_scatter_2000_2009_v50.pro
r85 r94 144 144 file=project_id_env+'erai_sst_19890101_20091231_oafluxgrid.nc' 145 145 initncdf, file 146 unc=read_ncdf('sst',date1,date2,file=file,/nostr) & unc=unc-273.15 146 unc=read_ncdf('sst',date1,date2,file=file,/nostr) 147 unc=unc-273.15 147 148 help, unc 148 149 149 150 file=project_id_env+'TropFlux_sst_19890101_20091231_v20.nc' 150 151 initncdf, file 151 cor=read_ncdf('sst',date1,date2,file=file,/nostr) & cor=cor-273.15 152 cor=read_ncdf('sst',date1,date2,file=file,/nostr) 153 cor=cor-273.15 152 154 help, cor 153 155 … … 179 181 ;; reading data from mooring 180 182 181 site=sitelist(n) & csite=site 183 site=sitelist(n) 184 csite=site 182 185 print, csite 183 186 x=x_site_location(site) 184 187 y=y_site_location(site) 185 188 if (y ge 0. and y le 30.) then y=y+360. 186 dx=0.5 & dy=0.5 & box=[y-dy, y+dy, x-dx, x+dx] 189 dx=0.5 190 dy=0.5 191 box=[y-dy, y+dy, x-dx, x+dx] 187 192 read_variables_v2, csite,date1,date2,nsmooth, $ 188 193 at, sw,rh,sst,wu,wv,ws,lh 189 194 190 195 191 ind=where(finite(sst)) & valid=n_elements(ind) 196 ind=where(finite(sst)) 197 valid=n_elements(ind) 192 198 193 199 if (valid ge 180) then begin … … 221 227 222 228 223 ind=where(finite(sst)) & sst=sst(ind) & uncr_sst=uncr(ind) & corr_sst=corr(ind) 224 oafl=oafl(ind) & ncep=ncep(ind) & tmi=tmi(ind) & ncep1=ncep1(ind) 229 ind=where(finite(sst)) 230 sst=sst(ind) 231 uncr_sst=uncr(ind) 232 corr_sst=corr(ind) 233 oafl=oafl(ind) 234 ncep=ncep(ind) 235 tmi=tmi(ind) 236 ncep1=ncep1(ind) 225 237 mean_tao=total(sst,/nan)/n_elements(ind) 226 238 … … 251 263 lat=reform(ff(0,*)) 252 264 lon=reform(ff(1,*)) 253 cor_era=reform(ff(2,*)) & cor_erai=total(cor_era)/n_elements(cor_era) 254 bias_era=reform(ff(3,*)) & bias_erai=total(bias_era)/n_elements(bias_era) 255 std_era=reform(ff(4,*)) & std_erai=total(std_era)/n_elements(std_era) 256 rmsd_era=reform(ff(5,*)) & rmsd_erai=total(rmsd_era)/n_elements(rmsd_era) 257 mean_tao=reform(ff(6,*)) & mean_erai=bias_era+mean_tao 265 cor_era=reform(ff(2,*)) 266 cor_erai=total(cor_era)/n_elements(cor_era) 267 bias_era=reform(ff(3,*)) 268 bias_erai=total(bias_era)/n_elements(bias_era) 269 std_era=reform(ff(4,*)) 270 std_erai=total(std_era)/n_elements(std_era) 271 rmsd_era=reform(ff(5,*)) 272 rmsd_erai=total(rmsd_era)/n_elements(rmsd_era) 273 mean_tao=reform(ff(6,*)) 274 mean_erai=bias_era+mean_tao 258 275 259 276 print, '' … … 269 286 oplot, [22,31], [22,31] 270 287 ab=linfit(mean_tao, mean_erai,yfit=yfit) 271 a=float(ab(0)) & b=float(ab(1)) 288 a=float(ab(0)) 289 b=float(ab(1)) 272 290 oplot, mean_tao, yfit, color=250, thick=2 273 291 … … 277 295 lat=reform(ff(0,*)) 278 296 lon=reform(ff(1,*)) 279 cor_tro=reform(ff(2,*)) & cor_trop=total(cor_tro)/n_elements(cor_tro) 280 bias_tro=reform(ff(3,*)) & bias_trop=total(bias_tro)/n_elements(bias_tro) 281 std_tro=reform(ff(4,*)) & std_trop=total(std_tro)/n_elements(std_tro) 282 rmsd_tro=reform(ff(5,*)) & rmsd_trop=total(rmsd_tro)/n_elements(rmsd_tro) 283 mean_tao=reform(ff(6,*)) & mean_trop=bias_tro+mean_tao 297 cor_tro=reform(ff(2,*)) 298 cor_trop=total(cor_tro)/n_elements(cor_tro) 299 bias_tro=reform(ff(3,*)) 300 bias_trop=total(bias_tro)/n_elements(bias_tro) 301 std_tro=reform(ff(4,*)) 302 std_trop=total(std_tro)/n_elements(std_tro) 303 rmsd_tro=reform(ff(5,*)) 304 rmsd_trop=total(rmsd_tro)/n_elements(rmsd_tro) 305 mean_tao=reform(ff(6,*)) 306 mean_trop=bias_tro+mean_tao 284 307 285 308 print, '' … … 296 319 297 320 ab=linfit(mean_tao, mean_trop,yfit=yfit) 298 a=float(ab(0)) & b=float(ab(1)) 321 a=float(ab(0)) 322 b=float(ab(1)) 299 323 oplot, mean_tao, yfit, color=250, thick=2 300 324 … … 304 328 lat=reform(ff(0,*)) 305 329 lon=reform(ff(1,*)) 306 cor_oaf=reform(ff(2,*)) & cor_oafl=total(cor_oaf)/n_elements(cor_oaf) 307 bias_oaf=reform(ff(3,*)) & bias_oafl=total(bias_oaf)/n_elements(bias_oaf) 308 std_oaf=reform(ff(4,*)) & std_oafl=total(std_oaf)/n_elements(std_oaf) 309 rmsd_oaf=reform(ff(5,*)) & rmsd_oafl=total(rmsd_oaf)/n_elements(rmsd_oaf) 310 mean_tao=reform(ff(6,*)) & mean_oafl=bias_oaf+mean_tao 330 cor_oaf=reform(ff(2,*)) 331 cor_oafl=total(cor_oaf)/n_elements(cor_oaf) 332 bias_oaf=reform(ff(3,*)) 333 bias_oafl=total(bias_oaf)/n_elements(bias_oaf) 334 std_oaf=reform(ff(4,*)) 335 std_oafl=total(std_oaf)/n_elements(std_oaf) 336 rmsd_oaf=reform(ff(5,*)) 337 rmsd_oafl=total(rmsd_oaf)/n_elements(rmsd_oaf) 338 mean_tao=reform(ff(6,*)) 339 mean_oafl=bias_oaf+mean_tao 311 340 312 341 print, '' … … 323 352 324 353 ab=linfit(mean_tao, mean_oafl,yfit=yfit) 325 a=float(ab(0)) & b=float(ab(1)) 354 a=float(ab(0)) 355 b=float(ab(1)) 326 356 oplot, mean_tao, yfit, color=250, thick=2 327 357 … … 333 363 lat=reform(ff(0,*)) 334 364 lon=reform(ff(1,*)) 335 cor_nce=reform(ff(2,*)) & cor_ncep=total(cor_nce)/n_elements(cor_nce) 336 bias_nce=reform(ff(3,*)) & bias_ncep=total(bias_nce)/n_elements(bias_nce) 337 std_nce=reform(ff(4,*)) & std_ncep=total(std_nce)/n_elements(std_nce) 338 rmsd_nce=reform(ff(5,*)) & rmsd_ncep=total(rmsd_nce)/n_elements(rmsd_nce) 339 mean_tao=reform(ff(6,*)) & mean_ncep=bias_nce+mean_tao 365 cor_nce=reform(ff(2,*)) 366 cor_ncep=total(cor_nce)/n_elements(cor_nce) 367 bias_nce=reform(ff(3,*)) 368 bias_ncep=total(bias_nce)/n_elements(bias_nce) 369 std_nce=reform(ff(4,*)) 370 std_ncep=total(std_nce)/n_elements(std_nce) 371 rmsd_nce=reform(ff(5,*)) 372 rmsd_ncep=total(rmsd_nce)/n_elements(rmsd_nce) 373 mean_tao=reform(ff(6,*)) 374 mean_ncep=bias_nce+mean_tao 340 375 341 376 print, '' … … 352 387 353 388 ab=linfit(mean_tao, mean_ncep,yfit=yfit) 354 a=float(ab(0)) & b=float(ab(1)) 389 a=float(ab(0)) 390 b=float(ab(1)) 355 391 oplot, mean_tao, yfit, color=250, thick=2 356 392 … … 361 397 lat=reform(ff(0,*)) 362 398 lon=reform(ff(1,*)) 363 cor_tm=reform(ff(2,*)) & cor_tmi=total(cor_tm)/n_elements(cor_tm) 364 bias_tm=reform(ff(3,*)) & bias_tmi=total(bias_tm)/n_elements(bias_tm) 365 std_tm=reform(ff(4,*)) & std_tmi=total(std_tm)/n_elements(std_tm) 366 rmsd_tm=reform(ff(5,*)) & rmsd_tmi=total(rmsd_tm)/n_elements(rmsd_tm) 367 mean_tao=reform(ff(6,*)) & mean_tmi=bias_tm+mean_tao 399 cor_tm=reform(ff(2,*)) 400 cor_tmi=total(cor_tm)/n_elements(cor_tm) 401 bias_tm=reform(ff(3,*)) 402 bias_tmi=total(bias_tm)/n_elements(bias_tm) 403 std_tm=reform(ff(4,*)) 404 std_tmi=total(std_tm)/n_elements(std_tm) 405 rmsd_tm=reform(ff(5,*)) 406 rmsd_tmi=total(rmsd_tm)/n_elements(rmsd_tm) 407 mean_tao=reform(ff(6,*)) 408 mean_tmi=bias_tm+mean_tao 368 409 369 410 print, '' … … 380 421 381 422 ab=linfit(mean_tao, mean_tmi,yfit=yfit) 382 a=float(ab(0)) & b=float(ab(1)) 423 a=float(ab(0)) 424 b=float(ab(1)) 383 425 oplot, mean_tao, yfit, color=250, thick=2 384 426 … … 388 430 lat=reform(ff(0,*)) 389 431 lon=reform(ff(1,*)) 390 cor_nce=reform(ff(2,*)) & cor_ncep=total(cor_nce)/n_elements(cor_nce) 391 bias_nce=reform(ff(3,*)) & bias_ncep=total(bias_nce)/n_elements(bias_nce) 392 std_nce=reform(ff(4,*)) & std_ncep=total(std_nce)/n_elements(std_nce) 393 rmsd_nce=reform(ff(5,*)) & rmsd_ncep=total(rmsd_nce)/n_elements(rmsd_nce) 394 mean_tao=reform(ff(6,*)) & mean_ncep=bias_nce+mean_tao 432 cor_nce=reform(ff(2,*)) 433 cor_ncep=total(cor_nce)/n_elements(cor_nce) 434 bias_nce=reform(ff(3,*)) 435 bias_ncep=total(bias_nce)/n_elements(bias_nce) 436 std_nce=reform(ff(4,*)) 437 std_ncep=total(std_nce)/n_elements(std_nce) 438 rmsd_nce=reform(ff(5,*)) 439 rmsd_ncep=total(rmsd_nce)/n_elements(rmsd_nce) 440 mean_tao=reform(ff(6,*)) 441 mean_ncep=bias_nce+mean_tao 395 442 396 443 print, '' … … 407 454 408 455 ab=linfit(mean_tao, mean_ncep,yfit=yfit) 409 a=float(ab(0)) & b=float(ab(1)) 456 a=float(ab(0)) 457 b=float(ab(1)) 410 458 oplot, mean_tao, yfit, color=250, thick=2 411 459 -
trunk/src/paper01/fig3/statistics_3var_v1.pro
r85 r94 53 53 54 54 @cm_project 55 x=tao & y=var1 & z=var2 55 x=tao 56 y=var1 57 z=var2 56 58 57 ind1=where(finite(x,/nan)) & ind2=where(finite(y,/nan)) & ind3=where(finite(z,/nan)) 59 ind1=where(finite(x,/nan)) 60 ind2=where(finite(y,/nan)) 61 ind3=where(finite(z,/nan)) 58 62 ind=inter(ind1,union(ind2,ind3)) 59 63 60 64 if (ind ne -1.) then begin 61 x(ind)=!Values.f_nan & y(ind)=!Values.f_nan & z(ind)=!Values.f_nan 65 x(ind)=!Values.f_nan 66 y(ind)=!Values.f_nan 67 z(ind)=!Values.f_nan 62 68 endif 63 69 … … 68 74 z=ts_smooth(z,nsmooth,/nan) 69 75 70 ind1=where(finite(x)) & ind2=where(finite(y)) & ind3=where(finite(z)) 76 ind1=where(finite(x)) 77 ind2=where(finite(y)) 78 ind3=where(finite(z)) 71 79 ind=inter(ind1,inter(ind2,ind3)) 72 x=x(ind) & y=y(ind) & z=z(ind) 80 x=x(ind) 81 y=y(ind) 82 z=z(ind) 73 83 nn=n_elements(ind) 74 84 75 cor1=correlate(x,y) & cor2=correlate(x,z) ;; cor1=correlation(tropflux,tao) cor2=correlation(tropflux,rec) 85 cor1=correlate(x,y) 86 cor2=correlate(x,z) 87 ;; cor1=correlation(tropflux,tao) cor2=correlation(tropflux,rec) 76 88 xxx=moment(x) 77 mean1=xxx(0) & std1=sqrt(xxx(1)) ;; mean1 and std1 --> for tropflux 89 ; mean1 and std1 --> for tropflux 90 mean1=xxx(0) 91 std1=sqrt(xxx(1)) 78 92 xxx=moment(y) 79 mean2=xxx(0) & std2=sqrt(xxx(1)) ;; mean2 and std2 --> for tao 93 ;; mean2 and std2 --> for tao 94 mean2=xxx(0) 95 std2=sqrt(xxx(1)) 80 96 xxx=moment(z) 81 mean3=xxx(0) & std3=sqrt(xxx(1)) ;; mean3 and std3 --> for rec 97 ;; mean3 and std3 --> for rec 98 mean3=xxx(0) 99 std3=sqrt(xxx(1)) 82 100 83 bias1=mean2-mean1 & st1=std2/std1 84 bias2=mean3-mean1 & st2=std3/std1 101 bias1=mean2-mean1 102 st1=std2/std1 103 bias2=mean3-mean1 104 st2=std3/std1 85 105 86 std1=st1 & std2=st2 106 std1=st1 107 std2=st2 87 108 rmsd1=sqrt(total((x-y)*(x-y))/n_elements(x)) 88 109 rmsd2=sqrt(total((x-z)*(x-z))/n_elements(x)) -
trunk/src/paper01/fig3/ws_validation_scatter_2000_2009_v50.pro
r85 r94 113 113 ocean='global' 114 114 115 da1=10000101 & da2=10081231 115 da1=10000101 116 da2=10081231 116 117 nsmooth=1. ;; statistics are with 7 day smoothed 117 118 ;; This program will create the following text files with statistics of respective variables … … 188 189 ;; reading data from mooring 189 190 190 site=sitelist(n) & csite=site 191 site=sitelist(n) 192 csite=site 191 193 print, csite 192 194 x=x_site_location(site) 193 195 y=y_site_location(site) 194 196 if (y ge 0. and y le 30.) then y=y+360. 195 dx=0.5 & dy=0.5 & box=[y-dy, y+dy, x-dx, x+dx] 197 dx=0.5 198 dy=0.5 199 box=[y-dy, y+dy, x-dx, x+dx] 196 200 read_variables_v2, csite,date1,date2,nsmooth, $ 197 201 at, sw,rh,sst,wu,wv,ws, lh … … 226 230 ncep1=tropflux 227 231 228 ind=where(finite(ws)) & ws=ws(ind) & uncr_ws=uncr(ind) & corr_ws=corr(ind) 229 oafl=oafl(ind) & ncep=ncep(ind) & tmi=tmi(ind) & ncep1=ncep1(ind) 232 ind=where(finite(ws)) 233 ws=ws(ind) 234 uncr_ws=uncr(ind) 235 corr_ws=corr(ind) 236 oafl=oafl(ind) 237 ncep=ncep(ind) 238 tmi=tmi(ind) 239 ncep1=ncep1(ind) 230 240 231 241 mean_tao=total(ws)/n_elements(ws) … … 254 264 lat=reform(ff(0,*)) 255 265 lon=reform(ff(1,*)) 256 cor_era=reform(ff(2,*)) & cor_erai=total(cor_era)/n_elements(cor_era) 257 bias_era=reform(ff(3,*)) & bias_erai=total(bias_era)/n_elements(bias_era) 258 std_era=reform(ff(4,*)) & std_erai=total(std_era)/n_elements(std_era) 259 rmsd_era=reform(ff(5,*)) & rmsd_erai=total(rmsd_era)/n_elements(rmsd_era) 260 mean_tao=reform(ff(6,*)) & mean_erai=bias_era+mean_tao 266 cor_era=reform(ff(2,*)) 267 cor_erai=total(cor_era)/n_elements(cor_era) 268 bias_era=reform(ff(3,*)) 269 bias_erai=total(bias_era)/n_elements(bias_era) 270 std_era=reform(ff(4,*)) 271 std_erai=total(std_era)/n_elements(std_era) 272 rmsd_era=reform(ff(5,*)) 273 rmsd_erai=total(rmsd_era)/n_elements(rmsd_era) 274 mean_tao=reform(ff(6,*)) 275 mean_erai=bias_era+mean_tao 261 276 262 277 print, '' … … 272 287 oplot, [2,10], [2,10] 273 288 ab=linfit(mean_tao, mean_erai,yfit=yfit) 274 a=float(ab(0)) & b=float(ab(1)) 289 a=float(ab(0)) 290 b=float(ab(1)) 275 291 oplot, mean_tao, yfit, color=250, thick=2 276 292 … … 280 296 lat=reform(ff(0,*)) 281 297 lon=reform(ff(1,*)) 282 cor_tro=reform(ff(2,*)) & cor_trop=total(cor_tro)/n_elements(cor_tro) 283 bias_tro=reform(ff(3,*)) & bias_trop=total(bias_tro)/n_elements(bias_tro) 284 std_tro=reform(ff(4,*)) & std_trop=total(std_tro)/n_elements(std_tro) 285 rmsd_tro=reform(ff(5,*)) & rmsd_trop=total(rmsd_tro)/n_elements(rmsd_tro) 286 mean_tao=reform(ff(6,*)) & mean_trop=bias_tro+mean_tao 298 cor_tro=reform(ff(2,*)) 299 cor_trop=total(cor_tro)/n_elements(cor_tro) 300 bias_tro=reform(ff(3,*)) 301 bias_trop=total(bias_tro)/n_elements(bias_tro) 302 std_tro=reform(ff(4,*)) 303 std_trop=total(std_tro)/n_elements(std_tro) 304 rmsd_tro=reform(ff(5,*)) 305 rmsd_trop=total(rmsd_tro)/n_elements(rmsd_tro) 306 mean_tao=reform(ff(6,*)) 307 mean_trop=bias_tro+mean_tao 287 308 288 309 print, '' … … 299 320 300 321 ab=linfit(mean_tao, mean_trop,yfit=yfit) 301 a=float(ab(0)) & b=float(ab(1)) 322 a=float(ab(0)) 323 b=float(ab(1)) 302 324 oplot, mean_tao, yfit, color=250, thick=2 303 325 … … 307 329 lat=reform(ff(0,*)) 308 330 lon=reform(ff(1,*)) 309 cor_oaf=reform(ff(2,*)) & cor_oafl=total(cor_oaf)/n_elements(cor_oaf) 310 bias_oaf=reform(ff(3,*)) & bias_oafl=total(bias_oaf)/n_elements(bias_oaf) 311 std_oaf=reform(ff(4,*)) & std_oafl=total(std_oaf)/n_elements(std_oaf) 312 rmsd_oaf=reform(ff(5,*)) & rmsd_oafl=total(rmsd_oaf)/n_elements(rmsd_oaf) 313 mean_tao=reform(ff(6,*)) & mean_oafl=bias_oaf+mean_tao 331 cor_oaf=reform(ff(2,*)) 332 cor_oafl=total(cor_oaf)/n_elements(cor_oaf) 333 bias_oaf=reform(ff(3,*)) 334 bias_oafl=total(bias_oaf)/n_elements(bias_oaf) 335 std_oaf=reform(ff(4,*)) 336 std_oafl=total(std_oaf)/n_elements(std_oaf) 337 rmsd_oaf=reform(ff(5,*)) 338 rmsd_oafl=total(rmsd_oaf)/n_elements(rmsd_oaf) 339 mean_tao=reform(ff(6,*)) 340 mean_oafl=bias_oaf+mean_tao 314 341 315 342 print, '' … … 326 353 327 354 ab=linfit(mean_tao, mean_oafl,yfit=yfit) 328 a=float(ab(0)) & b=float(ab(1)) 355 a=float(ab(0)) 356 b=float(ab(1)) 329 357 oplot, mean_tao, yfit, color=250, thick=2 330 358 … … 336 364 lat=reform(ff(0,*)) 337 365 lon=reform(ff(1,*)) 338 cor_nce=reform(ff(2,*)) & cor_ncep=total(cor_nce)/n_elements(cor_nce) 339 bias_nce=reform(ff(3,*)) & bias_ncep=total(bias_nce)/n_elements(bias_nce) 340 std_nce=reform(ff(4,*)) & std_ncep=total(std_nce)/n_elements(std_nce) 341 rmsd_nce=reform(ff(5,*)) & rmsd_ncep=total(rmsd_nce)/n_elements(rmsd_nce) 342 mean_tao=reform(ff(6,*)) & mean_ncep=bias_nce+mean_tao 366 cor_nce=reform(ff(2,*)) 367 cor_ncep=total(cor_nce)/n_elements(cor_nce) 368 bias_nce=reform(ff(3,*)) 369 bias_ncep=total(bias_nce)/n_elements(bias_nce) 370 std_nce=reform(ff(4,*)) 371 std_ncep=total(std_nce)/n_elements(std_nce) 372 rmsd_nce=reform(ff(5,*)) 373 rmsd_ncep=total(rmsd_nce)/n_elements(rmsd_nce) 374 mean_tao=reform(ff(6,*)) 375 mean_ncep=bias_nce+mean_tao 343 376 344 377 print, '' … … 355 388 356 389 ab=linfit(mean_tao, mean_ncep,yfit=yfit) 357 a=float(ab(0)) & b=float(ab(1)) 390 a=float(ab(0)) 391 b=float(ab(1)) 358 392 oplot, mean_tao, yfit, color=250, thick=2 359 393 … … 363 397 lat=reform(ff(0,*)) 364 398 lon=reform(ff(1,*)) 365 cor_tm=reform(ff(2,*)) & cor_tmi=total(cor_tm)/n_elements(cor_tm) 366 bias_tm=reform(ff(3,*)) & bias_tmi=total(bias_tm)/n_elements(bias_tm) 367 std_tm=reform(ff(4,*)) & std_tmi=total(std_tm)/n_elements(std_tm) 368 rmsd_tm=reform(ff(5,*)) & rmsd_tmi=total(rmsd_tm)/n_elements(rmsd_tm) 369 mean_tao=reform(ff(6,*)) & mean_tmi=bias_tm+mean_tao 399 cor_tm=reform(ff(2,*)) 400 cor_tmi=total(cor_tm)/n_elements(cor_tm) 401 bias_tm=reform(ff(3,*)) 402 bias_tmi=total(bias_tm)/n_elements(bias_tm) 403 std_tm=reform(ff(4,*)) 404 std_tmi=total(std_tm)/n_elements(std_tm) 405 rmsd_tm=reform(ff(5,*)) 406 rmsd_tmi=total(rmsd_tm)/n_elements(rmsd_tm) 407 mean_tao=reform(ff(6,*)) 408 mean_tmi=bias_tm+mean_tao 370 409 371 410 print, '' … … 382 421 383 422 ab=linfit(mean_tao, mean_tmi,yfit=yfit) 384 a=float(ab(0)) & b=float(ab(1)) 423 a=float(ab(0)) 424 b=float(ab(1)) 385 425 oplot, mean_tao, yfit, color=250, thick=2 386 426 … … 391 431 lat=reform(ff(0,*)) 392 432 lon=reform(ff(1,*)) 393 cor_nce=reform(ff(2,*)) & cor_ncep=total(cor_nce)/n_elements(cor_nce) 394 bias_nce=reform(ff(3,*)) & bias_ncep=total(bias_nce)/n_elements(bias_nce) 395 std_nce=reform(ff(4,*)) & std_ncep=total(std_nce)/n_elements(std_nce) 396 rmsd_nce=reform(ff(5,*)) & rmsd_ncep=total(rmsd_nce)/n_elements(rmsd_nce) 397 mean_tao=reform(ff(6,*)) & mean_ncep=bias_nce+mean_tao 433 cor_nce=reform(ff(2,*)) 434 cor_ncep=total(cor_nce)/n_elements(cor_nce) 435 bias_nce=reform(ff(3,*)) 436 bias_ncep=total(bias_nce)/n_elements(bias_nce) 437 std_nce=reform(ff(4,*)) 438 std_ncep=total(std_nce)/n_elements(std_nce) 439 rmsd_nce=reform(ff(5,*)) 440 rmsd_ncep=total(rmsd_nce)/n_elements(rmsd_nce) 441 mean_tao=reform(ff(6,*)) 442 mean_ncep=bias_nce+mean_tao 398 443 399 444 print, '' … … 410 455 411 456 ab=linfit(mean_tao, mean_ncep,yfit=yfit) 412 a=float(ab(0)) & b=float(ab(1)) 457 a=float(ab(0)) 458 b=float(ab(1)) 413 459 oplot, mean_tao, yfit, color=250, thick=2 414 460 -
trunk/src/paper01/fig4/fig4_met_var_correction_scatter.pro
r85 r94 106 106 print, xx, yy 107 107 ab=linfit(mean, bias,yfit=yfit) 108 a=float(ab(0)) & b=float(ab(1)) 108 a=float(ab(0)) 109 b=float(ab(1)) 109 110 oplot, mean, yfit, thick=3, color=50 110 111 print, a,b … … 134 135 135 136 ab=linfit(mean, bias,yfit=yfit) 136 a=float(ab(0)) & b=float(ab(1)) 137 a=float(ab(0)) 138 b=float(ab(1)) 137 139 oplot, mean, yfit, thick=3, color=50 138 140 print, a,b … … 161 163 162 164 ab=linfit(mean, bias,yfit=yfit) 163 a=float(ab(0)) & b=float(ab(1)) 165 a=float(ab(0)) 166 b=float(ab(1)) 164 167 oplot, mean, yfit, thick=3, color=50 165 168 print, a,b … … 188 191 189 192 ab=linfit(mean, bias,yfit=yfit) 190 a=float(ab(0)) & b=float(ab(1)) 193 a=float(ab(0)) 194 b=float(ab(1)) 191 195 oplot, mean, yfit, thick=3, color=50 192 196 -
trunk/src/paper01/fig4/significance_test_99.pro
r85 r94 51 51 pro significance_test_99, x, y, sig_value 52 52 53 X=x & Y=y 53 X=x 54 Y=y 54 55 55 56 X=X-total(X)/n_elements(X) -
trunk/src/paper01/fig5/fig5_gustiness_scatter.pro
r85 r94 101 101 xrange=[0,10], yrange=[0.5,2.5] 102 102 ab=linfit(erai_wind, gust,yfit=yfit) 103 a=float(ab(0)) & b=float(ab(1)) 103 a=float(ab(0)) 104 b=float(ab(1)) 104 105 oplot, erai_wind, yfit, thick=3, color=250 105 106 cor=correlate(erai_wind,gust) … … 112 113 xrange=[22,32], yrange=[0.5,2.5], lct=39, xmin=1, ymin=1 113 114 ab=linfit(erai_sst, gust,yfit=yfit) 114 a=float(ab(0)) & b=float(ab(1)) 115 a=float(ab(0)) 116 b=float(ab(1)) 115 117 oplot, erai_sst, yfit, thick=3, color=250 116 118 cor=correlate(erai_sst, gust) -
trunk/src/paper01/fig6/icoads_q2m_stats_paper.pro
r85 r94 84 84 ; partie a changer 85 85 marge=[-2,-2, -4,2] 86 st=19890101 & en=20091231 86 st=19890101 87 en=20091231 87 88 domdef, box 88 89 … … 118 119 119 120 120 si=size(trop) & nt=si(3) 121 si=size(trop) 122 nt=si(3) 121 123 122 124 lat_rama=[67, 55, 55, 80.5, 80.5, 80.5, 80.5, 90, 90, 90, 90, 90, 90, 90, 95] … … 136 138 lon=[lon_rama, lon_pirata, lon_tao] 137 139 138 lat_tao=lat & lon_tao=lon 140 lat_tao=lat 141 lon_tao=lon 139 142 nn=n_elements(lat) 140 143 … … 143 146 x=lat_tao(n) 144 147 y=lon_tao(n) 145 dx=abs(reform(glamt-x)) & dy=abs(reform(gphit)-y) 148 dx=abs(reform(glamt-x)) 149 dy=abs(reform(gphit)-y) 146 150 ind=where((dx le 0.5) and (dy le 0.5)) 147 151 if (total(ind) ge 0.) then begin … … 160 164 161 165 param=icoads*mask 162 trop=trop*mask & oaf=oaf*mask & erai=erai*mask 163 ncep2=ncep2*mask & ncep1=ncep1*mask 166 trop=trop*mask 167 oaf=oaf*mask 168 erai=erai*mask 169 ncep2=ncep2*mask 170 ncep1=ncep1*mask 164 171 165 172 166 173 ind=where(finite(param) and finite(erai) and finite(trop) and finite(oaf) and finite(ncep2) and finite(ncep1)) 167 x=param(ind) & y=trop(ind) 168 param=param(ind) & trop=trop(ind) & erai=erai(ind) & oaf=oaf(ind) & ncep2=ncep2(ind) & ncep1=ncep1(ind) 174 x=param(ind) 175 y=trop(ind) 176 param=param(ind) 177 trop=trop(ind) 178 erai=erai(ind) 179 oaf=oaf(ind) 180 ncep2=ncep2(ind) 181 ncep1=ncep1(ind) 169 182 170 183 ; … … 208 221 209 222 ; 210 mio=4 & mao=24 & inx=1 & nx=(mao-mio)/inx+1l & xx=mio+indgen(nx)*inx 211 mis=4 & mas=24 & iny=1 & ny=(mas-mis)/iny+1l & yy=mis+indgen(ny)*iny 223 mio=4 224 mao=24 225 inx=1 226 nx=(mao-mio)/inx+1l 227 xx=mio+indgen(nx)*inx 228 mis=4 229 mas=24 230 iny=1 231 ny=(mas-mis)/iny+1l 232 yy=mis+indgen(ny)*iny 212 233 ; 213 234 pdf, param,trop,mio,mao,inx,mis,mas,iny, $ -
trunk/src/paper01/fig6/icoads_sst_stats_paper.pro
r85 r94 84 84 ; partie a changer 85 85 marge=[-2,-2, -4,2] 86 st=19890101 & en=20091231 86 st=19890101 87 en=20091231 87 88 domdef, box 88 89 … … 123 124 124 125 125 si=size(trop) & nt=si(3) 126 si=size(trop) 127 nt=si(3) 126 128 127 129 lat_rama=[67, 55, 55, 80.5, 80.5, 80.5, 80.5, 90, 90, 90, 90, 90, 90, 90, 95] … … 141 143 lon=[lon_rama, lon_pirata, lon_tao] 142 144 143 lat_tao=lat & lon_tao=lon 145 lat_tao=lat 146 lon_tao=lon 144 147 nn=n_elements(lat) 145 148 … … 148 151 x=lat_tao(n) 149 152 y=lon_tao(n) 150 dx=abs(reform(glamt-x)) & dy=abs(reform(gphit)-y) 153 dx=abs(reform(glamt-x)) 154 dy=abs(reform(gphit)-y) 151 155 ind=where((dx le 0.5) and (dy le 0.5)) 152 156 if (total(ind) ge 0.) then begin … … 165 169 166 170 param=icoads*mask 167 trop=trop*mask & oaf=oaf*mask & erai=erai*mask 168 ncep2=ncep2*mask & ncep1=ncep1*mask 171 trop=trop*mask 172 oaf=oaf*mask 173 erai=erai*mask 174 ncep2=ncep2*mask 175 ncep1=ncep1*mask 169 176 noc=noc*mask 170 177 171 178 ind=where(finite(param) and finite(erai) and finite(trop) and finite(oaf) and finite(ncep2) and finite(ncep1)) 172 x=param(ind) & y=trop(ind) 173 param=param(ind) & trop=trop(ind) & erai=erai(ind) & oaf=oaf(ind) & ncep2=ncep2(ind) & ncep1=ncep1(ind) 179 x=param(ind) 180 y=trop(ind) 181 param=param(ind) 182 trop=trop(ind) 183 erai=erai(ind) 184 oaf=oaf(ind) 185 ncep2=ncep2(ind) 186 ncep1=ncep1(ind) 174 187 noc=noc(ind) 175 188 … … 220 233 221 234 ; 222 mio=15 & mao=32 & inx=1 & nx=(mao-mio)/inx+1l & xx=mio+indgen(nx)*inx 223 mis=15 & mas=32 & iny=1 & ny=(mas-mis)/iny+1l & yy=mis+indgen(ny)*iny 224 xp=18 & yp=16.5 225 x1=15 & x2=32 & y1=x1 & y2=x2 235 mio=15 236 mao=32 237 inx=1 238 nx=(mao-mio)/inx+1l 239 xx=mio+indgen(nx)*inx 240 mis=15 241 mas=32 242 iny=1 243 ny=(mas-mis)/iny+1l 244 yy=mis+indgen(ny)*iny 245 xp=18 246 yp=16.5 247 x1=15 248 x2=32 249 y1=x1 250 y2=x2 226 251 ; 227 252 pdf, param,trop,mio,mao,inx,mis,mas,iny, $ -
trunk/src/paper01/fig6/icoads_t2m_stats_paper.pro
r85 r94 85 85 ; partie a changer 86 86 marge=[-2,-2, -4,2] 87 st=19890101 & en=20091231 87 st=19890101 88 en=20091231 88 89 domdef, box 89 90 … … 119 120 120 121 121 si=size(trop) & nt=si(3) 122 si=size(trop) 123 nt=si(3) 122 124 123 125 lat_rama=[67, 55, 55, 80.5, 80.5, 80.5, 80.5, 90, 90, 90, 90, 90, 90, 90, 95] … … 137 139 lon=[lon_rama, lon_pirata, lon_tao] 138 140 139 lat_tao=lat & lon_tao=lon 141 lat_tao=lat 142 lon_tao=lon 140 143 nn=n_elements(lat) 141 144 … … 144 147 x=lat_tao(n) 145 148 y=lon_tao(n) 146 dx=abs(reform(glamt-x)) & dy=abs(reform(gphit)-y) 149 dx=abs(reform(glamt-x)) 150 dy=abs(reform(gphit)-y) 147 151 ind=where((dx le 0.5) and (dy le 0.5)) 148 152 if (total(ind) ge 0.) then begin … … 161 165 162 166 param=icoads*mask 163 trop=trop*mask & oaf=oaf*mask & erai=erai*mask 164 ncep2=ncep2*mask & ncep1=ncep1*mask 167 trop=trop*mask 168 oaf=oaf*mask 169 erai=erai*mask 170 ncep2=ncep2*mask 171 ncep1=ncep1*mask 165 172 166 173 167 174 ind=where(finite(param) and finite(erai) and finite(trop) and finite(oaf) and finite(ncep2) and finite(ncep1)) 168 x=param(ind) & y=trop(ind) 169 param=param(ind) & trop=trop(ind) & erai=erai(ind) & oaf=oaf(ind) & ncep2=ncep2(ind) & ncep1=ncep1(ind) 175 x=param(ind) 176 y=trop(ind) 177 param=param(ind) 178 trop=trop(ind) 179 erai=erai(ind) 180 oaf=oaf(ind) 181 ncep2=ncep2(ind) 182 ncep1=ncep1(ind) 170 183 171 184 ; … … 209 222 210 223 ; 211 mio=15 & mao=32 & inx=1 & nx=(mao-mio)/inx+1l & xx=mio+indgen(nx)*inx 212 mis=15 & mas=32 & iny=1 & ny=(mas-mis)/iny+1l & yy=mis+indgen(ny)*iny 213 xp=16 & yp=14 214 215 x1=13 & x2=32 & y1=x1 & y2=x2 224 mio=15 225 mao=32 226 inx=1 227 nx=(mao-mio)/inx+1l 228 xx=mio+indgen(nx)*inx 229 mis=15 230 mas=32 231 iny=1 232 ny=(mas-mis)/iny+1l 233 yy=mis+indgen(ny)*iny 234 xp=16 235 yp=14 236 237 x1=13 238 x2=32 239 y1=x1 240 y2=x2 216 241 ; 217 242 pdf, param,trop,mio,mao,inx,mis,mas,iny, $ -
trunk/src/paper01/fig6/icoads_ws_stats_paper.pro
r85 r94 86 86 ; partie a changer 87 87 marge=[-2,-2, -4,2] 88 st=19890101 & en=20091231 88 st=19890101 89 en=20091231 89 90 domdef, box 90 91 … … 124 125 help, noc 125 126 126 si=size(trop) & nt=si(3) 127 si=size(trop) 128 nt=si(3) 127 129 128 130 lat_rama=[67, 55, 55, 80.5, 80.5, 80.5, 80.5, 90, 90, 90, 90, 90, 90, 90, 95] … … 142 144 lon=[lon_rama, lon_pirata, lon_tao] 143 145 144 lat_tao=lat & lon_tao=lon 146 lat_tao=lat 147 lon_tao=lon 145 148 nn=n_elements(lat) 146 149 … … 149 152 x=lat_tao(n) 150 153 y=lon_tao(n) 151 dx=abs(reform(glamt-x)) & dy=abs(reform(gphit)-y) 154 dx=abs(reform(glamt-x)) 155 dy=abs(reform(gphit)-y) 152 156 ind=where((dx le 0.5) and (dy le 0.5)) 153 157 if (total(ind) ge 0.) then begin … … 166 170 167 171 param=icoads*mask 168 trop=trop*mask & oaf=oaf*mask & erai=erai*mask 169 ncep2=ncep2*mask & ncep1=ncep1*mask 172 trop=trop*mask 173 oaf=oaf*mask 174 erai=erai*mask 175 ncep2=ncep2*mask 176 ncep1=ncep1*mask 170 177 noc=noc*mask 171 178 172 179 ind=where(finite(param) and finite(noc) and finite(erai) and finite(trop) and finite(oaf) and finite(ncep2) and finite(ncep1)) 173 x=param(ind) & y=trop(ind) 174 param=param(ind) & trop=trop(ind) & erai=erai(ind) & oaf=oaf(ind) & ncep2=ncep2(ind) & ncep1=ncep1(ind) 180 x=param(ind) 181 y=trop(ind) 182 param=param(ind) 183 trop=trop(ind) 184 erai=erai(ind) 185 oaf=oaf(ind) 186 ncep2=ncep2(ind) 187 ncep1=ncep1(ind) 175 188 noc=noc(ind) 176 189 … … 219 232 abs_noc=string(abs_diff, format='(f5.2)') 220 233 ; 221 mio=0 & mao=15 & inx=1 & nx=(mao-mio)/inx+1l & xx=mio+indgen(nx)*inx 222 mis=0 & mas=15 & iny=1 & ny=(mas-mis)/iny+1l & yy=mis+indgen(ny)*iny 223 xp=4 & yp=13 224 x1=0 & x2=15 & y1=x1 & y2=x2 234 mio=0 235 mao=15 236 inx=1 237 nx=(mao-mio)/inx+1l 238 xx=mio+indgen(nx)*inx 239 mis=0 240 mas=15 241 iny=1 242 ny=(mas-mis)/iny+1l 243 yy=mis+indgen(ny)*iny 244 xp=4 245 yp=13 246 x1=0 247 x2=15 248 y1=x1 249 y2=x2 225 250 ; 226 251 pdf, param,trop,mio,mao,inx,mis,mas,iny, $ -
trunk/src/paper01/fig6/statistics.pro
r85 r94 62 62 ;; mean1= mean of mooring variable std1=std of mooring variable 63 63 ;; mean2= mean of erai variable std2=std of erai variable 64 x=moor & y=erai 65 ind1=where(finite(x,/nan)) & ind2=where(finite(y,/nan)) 64 x=moor 65 y=erai 66 ind1=where(finite(x,/nan)) 67 ind2=where(finite(y,/nan)) 66 68 ind=inter(ind1,ind2) 67 69 if (ind ne -1 ) then begin 68 x(ind)=!Values.f_nan &y(ind)=!Values.f_nan 70 x(ind)=!Values.f_nan 71 y(ind)=!Values.f_nan 69 72 endif 70 73 71 74 ind=where(finite(x)) 72 x=x(ind) & y=y(ind) 75 x=x(ind) 76 y=y(ind) 73 77 74 78 nn=n_elements(ind) … … 76 80 cor=correlate(x,y) 77 81 xxx=moment(x) 78 mean1=xxx(0) & std1=sqrt(xxx(1)) 82 mean1=xxx(0) 83 std1=sqrt(xxx(1)) 79 84 xxx=moment(y) 80 mean2=xxx(0) & std2=sqrt(xxx(1)) 81 bias=mean2-mean1 & std=std2/std1 85 mean2=xxx(0) 86 std2=sqrt(xxx(1)) 87 bias=mean2-mean1 88 std=std2/std1 82 89 rmsd=sqrt(total((x-y)*(x-y))/n_elements(x)) 83 90 end -
trunk/src/paper01/fig7/air_validation_scatter_2000_2009_basin.pro
r88 r94 169 169 file=project_id_env+'erai_t2m_19890101_20091231_oafluxgrid.nc' 170 170 initncdf, file 171 unc=read_ncdf('t2m',date1,date2,file=file,/nostr) & unc=unc-273.15 171 unc=read_ncdf('t2m',date1,date2,file=file,/nostr) 172 unc=unc-273.15 172 173 help, unc 173 174 … … 181 182 ;; reading data from mooring 182 183 183 site=sitelist(n) & csite=site 184 site=sitelist(n) 185 csite=site 184 186 print, csite 185 187 x=x_site_location(site) 186 188 y=y_site_location(site) 187 189 if (y ge 0. and y le 30.) then y=y+360. 188 dx=0.5 & dy=0.5 & box=[y-dy, y+dy, x-dx, x+dx] 190 dx=0.5 191 dy=0.5 192 box=[y-dy, y+dy, x-dx, x+dx] 189 193 read_variables_v2, csite,date1,date2,nsmooth, $ 190 194 at, sw,rh,sst,wu,wv,ws,lh … … 223 227 224 228 225 ind=where(finite(air)) & air=air(ind) & uncr_air=uncr(ind) & corr_air=corr(ind) 226 oafl=oafl(ind) & ncep=ncep(ind) & ncep1=ncep1(ind) 229 ind=where(finite(air)) 230 air=air(ind) 231 uncr_air=uncr(ind) 232 corr_air=corr(ind) 233 oafl=oafl(ind) 234 ncep=ncep(ind) 235 ncep1=ncep1(ind) 227 236 mean_tao=total(air,/nan)/n_elements(ind) 228 237 … … 250 259 lat=reform(ff(0,*)) 251 260 lon=reform(ff(1,*)) 252 cor_era=reform(ff(2,*)) & cor_erai=total(cor_era)/n_elements(cor_era) 253 bias_era=reform(ff(3,*)) & bias_erai=total(bias_era)/n_elements(bias_era) 254 std_era=reform(ff(4,*)) & std_erai=total(std_era)/n_elements(std_era) 255 rmsd_era=reform(ff(5,*)) & rmsd_erai=total(rmsd_era)/n_elements(rmsd_era) 256 mean_tao=reform(ff(6,*)) & mean_erai=bias_era+mean_tao 261 cor_era=reform(ff(2,*)) 262 cor_erai=total(cor_era)/n_elements(cor_era) 263 bias_era=reform(ff(3,*)) 264 bias_erai=total(bias_era)/n_elements(bias_era) 265 std_era=reform(ff(4,*)) 266 std_erai=total(std_era)/n_elements(std_era) 267 rmsd_era=reform(ff(5,*)) 268 rmsd_erai=total(rmsd_era)/n_elements(rmsd_era) 269 mean_tao=reform(ff(6,*)) 270 mean_erai=bias_era+mean_tao 257 271 258 272 print, '' … … 268 282 oplot, [22,31], [22,31] 269 283 ab=linfit(mean_tao, mean_erai,yfit=yfit) 270 a=float(ab(0)) & b=float(ab(1)) 284 a=float(ab(0)) 285 b=float(ab(1)) 271 286 oplot, mean_tao, yfit, color=250, thick=2 272 287 … … 276 291 lat=reform(ff(0,*)) 277 292 lon=reform(ff(1,*)) 278 cor_tro=reform(ff(2,*)) & cor_trop=total(cor_tro)/n_elements(cor_tro) 279 bias_tro=reform(ff(3,*)) & bias_trop=total(bias_tro)/n_elements(bias_tro) 280 std_tro=reform(ff(4,*)) & std_trop=total(std_tro)/n_elements(std_tro) 281 rmsd_tro=reform(ff(5,*)) & rmsd_trop=total(rmsd_tro)/n_elements(rmsd_tro) 282 mean_tao=reform(ff(6,*)) & mean_trop=bias_tro+mean_tao 293 cor_tro=reform(ff(2,*)) 294 cor_trop=total(cor_tro)/n_elements(cor_tro) 295 bias_tro=reform(ff(3,*)) 296 bias_trop=total(bias_tro)/n_elements(bias_tro) 297 std_tro=reform(ff(4,*)) 298 std_trop=total(std_tro)/n_elements(std_tro) 299 rmsd_tro=reform(ff(5,*)) 300 rmsd_trop=total(rmsd_tro)/n_elements(rmsd_tro) 301 mean_tao=reform(ff(6,*)) 302 mean_trop=bias_tro+mean_tao 283 303 284 304 print, '' … … 295 315 296 316 ab=linfit(mean_tao, mean_trop,yfit=yfit) 297 a=float(ab(0)) & b=float(ab(1)) 317 a=float(ab(0)) 318 b=float(ab(1)) 298 319 oplot, mean_tao, yfit, color=250, thick=2 299 320 … … 303 324 lat=reform(ff(0,*)) 304 325 lon=reform(ff(1,*)) 305 cor_oaf=reform(ff(2,*)) & cor_oafl=total(cor_oaf)/n_elements(cor_oaf) 306 bias_oaf=reform(ff(3,*)) & bias_oafl=total(bias_oaf)/n_elements(bias_oaf) 307 std_oaf=reform(ff(4,*)) & std_oafl=total(std_oaf)/n_elements(std_oaf) 308 rmsd_oaf=reform(ff(5,*)) & rmsd_oafl=total(rmsd_oaf)/n_elements(rmsd_oaf) 309 mean_tao=reform(ff(6,*)) & mean_oafl=bias_oaf+mean_tao 326 cor_oaf=reform(ff(2,*)) 327 cor_oafl=total(cor_oaf)/n_elements(cor_oaf) 328 bias_oaf=reform(ff(3,*)) 329 bias_oafl=total(bias_oaf)/n_elements(bias_oaf) 330 std_oaf=reform(ff(4,*)) 331 std_oafl=total(std_oaf)/n_elements(std_oaf) 332 rmsd_oaf=reform(ff(5,*)) 333 rmsd_oafl=total(rmsd_oaf)/n_elements(rmsd_oaf) 334 mean_tao=reform(ff(6,*)) 335 mean_oafl=bias_oaf+mean_tao 310 336 311 337 print, '' … … 322 348 323 349 ab=linfit(mean_tao, mean_oafl,yfit=yfit) 324 a=float(ab(0)) & b=float(ab(1)) 350 a=float(ab(0)) 351 b=float(ab(1)) 325 352 oplot, mean_tao, yfit, color=250, thick=2 326 353 … … 332 359 lat=reform(ff(0,*)) 333 360 lon=reform(ff(1,*)) 334 cor_nce=reform(ff(2,*)) & cor_ncep=total(cor_nce)/n_elements(cor_nce) 335 bias_nce=reform(ff(3,*)) & bias_ncep=total(bias_nce)/n_elements(bias_nce) 336 std_nce=reform(ff(4,*)) & std_ncep=total(std_nce)/n_elements(std_nce) 337 rmsd_nce=reform(ff(5,*)) & rmsd_ncep=total(rmsd_nce)/n_elements(rmsd_nce) 338 mean_tao=reform(ff(6,*)) & mean_ncep=bias_nce+mean_tao 361 cor_nce=reform(ff(2,*)) 362 cor_ncep=total(cor_nce)/n_elements(cor_nce) 363 bias_nce=reform(ff(3,*)) 364 bias_ncep=total(bias_nce)/n_elements(bias_nce) 365 std_nce=reform(ff(4,*)) 366 std_ncep=total(std_nce)/n_elements(std_nce) 367 rmsd_nce=reform(ff(5,*)) 368 rmsd_ncep=total(rmsd_nce)/n_elements(rmsd_nce) 369 mean_tao=reform(ff(6,*)) 370 mean_ncep=bias_nce+mean_tao 339 371 340 372 print, '' … … 351 383 352 384 ab=linfit(mean_tao, mean_ncep,yfit=yfit) 353 a=float(ab(0)) & b=float(ab(1)) 385 a=float(ab(0)) 386 b=float(ab(1)) 354 387 oplot, mean_tao, yfit, color=250, thick=2 355 388 … … 359 392 lat=reform(ff(0,*)) 360 393 lon=reform(ff(1,*)) 361 cor_nce=reform(ff(2,*)) & cor_ncep=total(cor_nce)/n_elements(cor_nce) 362 bias_nce=reform(ff(3,*)) & bias_ncep=total(bias_nce)/n_elements(bias_nce) 363 std_nce=reform(ff(4,*)) & std_ncep=total(std_nce)/n_elements(std_nce) 364 rmsd_nce=reform(ff(5,*)) & rmsd_ncep=total(rmsd_nce)/n_elements(rmsd_nce) 365 mean_tao=reform(ff(6,*)) & mean_ncep=bias_nce+mean_tao 394 cor_nce=reform(ff(2,*)) 395 cor_ncep=total(cor_nce)/n_elements(cor_nce) 396 bias_nce=reform(ff(3,*)) 397 bias_ncep=total(bias_nce)/n_elements(bias_nce) 398 std_nce=reform(ff(4,*)) 399 std_ncep=total(std_nce)/n_elements(std_nce) 400 rmsd_nce=reform(ff(5,*)) 401 rmsd_ncep=total(rmsd_nce)/n_elements(rmsd_nce) 402 mean_tao=reform(ff(6,*)) 403 mean_ncep=bias_nce+mean_tao 366 404 367 405 print, '' … … 378 416 379 417 ab=linfit(mean_tao, mean_ncep,yfit=yfit) 380 a=float(ab(0)) & b=float(ab(1)) 418 a=float(ab(0)) 419 b=float(ab(1)) 381 420 oplot, mean_tao, yfit, color=250, thick=2 382 421 -
trunk/src/paper01/fig7/q2m_validation_scatter_2000_2009_basin.pro
r91 r94 179 179 ;; reading data from mooring 180 180 181 site=sitelist(n) & csite=site 181 site=sitelist(n) 182 csite=site 182 183 print, csite 183 184 x=x_site_location(site) 184 185 y=y_site_location(site) 185 186 if (y ge 0. and y le 30.) then y=y+360. 186 dx=0.5 & dy=0.5 & box=[y-dy, y+dy, x-dx, x+dx] 187 dx=0.5 188 dy=0.5 189 box=[y-dy, y+dy, x-dx, x+dx] 187 190 read_variables_v2, csite,date1,date2,nsmooth, $ 188 191 at, sw,rh,sst,wu,wv,ws,lh … … 220 223 ncep1=tropflux 221 224 222 ind=where(finite(q2m)) & q2m=q2m(ind) & uncr_q2m=uncr(ind) & corr_q2m=corr(ind) 223 oafl=oafl(ind) & ncep=ncep(ind) & ncep1=ncep1(ind) 225 ind=where(finite(q2m)) 226 q2m=q2m(ind) 227 uncr_q2m=uncr(ind) 228 corr_q2m=corr(ind) 229 oafl=oafl(ind) 230 ncep=ncep(ind) 231 ncep1=ncep1(ind) 224 232 mean_tao=total(q2m,/nan)/n_elements(ind) 225 233 … … 247 255 lat=reform(ff(0,*)) 248 256 lon=reform(ff(1,*)) 249 cor_era=reform(ff(2,*)) & cor_erai=total(cor_era)/n_elements(cor_era) 250 bias_era=reform(ff(3,*)) & bias_erai=total(bias_era)/n_elements(bias_era) 251 std_era=reform(ff(4,*)) & std_erai=total(std_era)/n_elements(std_era) 252 rmsd_era=reform(ff(5,*)) & rmsd_erai=total(rmsd_era)/n_elements(rmsd_era) 253 mean_tao=reform(ff(6,*)) & mean_erai=bias_era+mean_tao 257 cor_era=reform(ff(2,*)) 258 cor_erai=total(cor_era)/n_elements(cor_era) 259 bias_era=reform(ff(3,*)) 260 bias_erai=total(bias_era)/n_elements(bias_era) 261 std_era=reform(ff(4,*)) 262 std_erai=total(std_era)/n_elements(std_era) 263 rmsd_era=reform(ff(5,*)) 264 rmsd_erai=total(rmsd_era)/n_elements(rmsd_era) 265 mean_tao=reform(ff(6,*)) 266 mean_erai=bias_era+mean_tao 254 267 255 268 print, '' … … 265 278 oplot, [11,21], [11,21] 266 279 ab=linfit(mean_tao, mean_erai,yfit=yfit) 267 a=float(ab(0)) & b=float(ab(1)) 280 a=float(ab(0)) 281 b=float(ab(1)) 268 282 oplot, mean_tao, yfit, color=250, thick=2 269 283 … … 273 287 lat=reform(ff(0,*)) 274 288 lon=reform(ff(1,*)) 275 cor_tro=reform(ff(2,*)) & cor_trop=total(cor_tro)/n_elements(cor_tro) 276 bias_tro=reform(ff(3,*)) & bias_trop=total(bias_tro)/n_elements(bias_tro) 277 std_tro=reform(ff(4,*)) & std_trop=total(std_tro)/n_elements(std_tro) 278 rmsd_tro=reform(ff(5,*)) & rmsd_trop=total(rmsd_tro)/n_elements(rmsd_tro) 279 mean_tao=reform(ff(6,*)) & mean_trop=bias_tro+mean_tao 289 cor_tro=reform(ff(2,*)) 290 cor_trop=total(cor_tro)/n_elements(cor_tro) 291 bias_tro=reform(ff(3,*)) 292 bias_trop=total(bias_tro)/n_elements(bias_tro) 293 std_tro=reform(ff(4,*)) 294 std_trop=total(std_tro)/n_elements(std_tro) 295 rmsd_tro=reform(ff(5,*)) 296 rmsd_trop=total(rmsd_tro)/n_elements(rmsd_tro) 297 mean_tao=reform(ff(6,*)) 298 mean_trop=bias_tro+mean_tao 280 299 281 300 print, '' … … 292 311 293 312 ab=linfit(mean_tao, mean_trop,yfit=yfit) 294 a=float(ab(0)) & b=float(ab(1)) 313 a=float(ab(0)) 314 b=float(ab(1)) 295 315 oplot, mean_tao, yfit, color=250, thick=2 296 316 … … 300 320 lat=reform(ff(0,*)) 301 321 lon=reform(ff(1,*)) 302 cor_oaf=reform(ff(2,*)) & cor_oafl=total(cor_oaf)/n_elements(cor_oaf) 303 bias_oaf=reform(ff(3,*)) & bias_oafl=total(bias_oaf)/n_elements(bias_oaf) 304 std_oaf=reform(ff(4,*)) & std_oafl=total(std_oaf)/n_elements(std_oaf) 305 rmsd_oaf=reform(ff(5,*)) & rmsd_oafl=total(rmsd_oaf)/n_elements(rmsd_oaf) 306 mean_tao=reform(ff(6,*)) & mean_oafl=bias_oaf+mean_tao 322 cor_oaf=reform(ff(2,*)) 323 cor_oafl=total(cor_oaf)/n_elements(cor_oaf) 324 bias_oaf=reform(ff(3,*)) 325 bias_oafl=total(bias_oaf)/n_elements(bias_oaf) 326 std_oaf=reform(ff(4,*)) 327 std_oafl=total(std_oaf)/n_elements(std_oaf) 328 rmsd_oaf=reform(ff(5,*)) 329 rmsd_oafl=total(rmsd_oaf)/n_elements(rmsd_oaf) 330 mean_tao=reform(ff(6,*)) 331 mean_oafl=bias_oaf+mean_tao 307 332 308 333 print, '' … … 319 344 320 345 ab=linfit(mean_tao, mean_oafl,yfit=yfit) 321 a=float(ab(0)) & b=float(ab(1)) 346 a=float(ab(0)) 347 b=float(ab(1)) 322 348 oplot, mean_tao, yfit, color=250, thick=2 323 349 … … 328 354 lat=reform(ff(0,*)) 329 355 lon=reform(ff(1,*)) 330 cor_nce=reform(ff(2,*)) & cor_ncep=total(cor_nce)/n_elements(cor_nce) 331 bias_nce=reform(ff(3,*)) & bias_ncep=total(bias_nce)/n_elements(bias_nce) 332 std_nce=reform(ff(4,*)) & std_ncep=total(std_nce)/n_elements(std_nce) 333 rmsd_nce=reform(ff(5,*)) & rmsd_ncep=total(rmsd_nce)/n_elements(rmsd_nce) 334 mean_tao=reform(ff(6,*)) & mean_ncep=bias_nce+mean_tao 356 cor_nce=reform(ff(2,*)) 357 cor_ncep=total(cor_nce)/n_elements(cor_nce) 358 bias_nce=reform(ff(3,*)) 359 bias_ncep=total(bias_nce)/n_elements(bias_nce) 360 std_nce=reform(ff(4,*)) 361 std_ncep=total(std_nce)/n_elements(std_nce) 362 rmsd_nce=reform(ff(5,*)) 363 rmsd_ncep=total(rmsd_nce)/n_elements(rmsd_nce) 364 mean_tao=reform(ff(6,*)) 365 mean_ncep=bias_nce+mean_tao 335 366 336 367 print, '' … … 347 378 348 379 ab=linfit(mean_tao, mean_ncep,yfit=yfit) 349 a=float(ab(0)) & b=float(ab(1)) 380 a=float(ab(0)) 381 b=float(ab(1)) 350 382 oplot, mean_tao, yfit, color=250, thick=2 351 383 … … 355 387 lat=reform(ff(0,*)) 356 388 lon=reform(ff(1,*)) 357 cor_nce=reform(ff(2,*)) & cor_ncep=total(cor_nce)/n_elements(cor_nce) 358 bias_nce=reform(ff(3,*)) & bias_ncep=total(bias_nce)/n_elements(bias_nce) 359 std_nce=reform(ff(4,*)) & std_ncep=total(std_nce)/n_elements(std_nce) 360 rmsd_nce=reform(ff(5,*)) & rmsd_ncep=total(rmsd_nce)/n_elements(rmsd_nce) 361 mean_tao=reform(ff(6,*)) & mean_ncep=bias_nce+mean_tao 389 cor_nce=reform(ff(2,*)) 390 cor_ncep=total(cor_nce)/n_elements(cor_nce) 391 bias_nce=reform(ff(3,*)) 392 bias_ncep=total(bias_nce)/n_elements(bias_nce) 393 std_nce=reform(ff(4,*)) 394 std_ncep=total(std_nce)/n_elements(std_nce) 395 rmsd_nce=reform(ff(5,*)) 396 rmsd_ncep=total(rmsd_nce)/n_elements(rmsd_nce) 397 mean_tao=reform(ff(6,*)) 398 mean_ncep=bias_nce+mean_tao 362 399 363 400 print, '' … … 374 411 375 412 ab=linfit(mean_tao, mean_ncep,yfit=yfit) 376 a=float(ab(0)) & b=float(ab(1)) 413 a=float(ab(0)) 414 b=float(ab(1)) 377 415 oplot, mean_tao, yfit, color=250, thick=2 378 416 -
trunk/src/paper01/fig7/sst_validation_scatter_2000_2009_basin.pro
r91 r94 158 158 ;; reading data from mooring 159 159 160 site=sitelist(n) & csite=site 160 site=sitelist(n) 161 csite=site 161 162 print, csite 162 163 x=x_site_location(site) 163 164 y=y_site_location(site) 164 165 if (y ge 0. and y le 30.) then y=y+360. 165 dx=0.5 & dy=0.5 & box=[y-dy, y+dy, x-dx, x+dx] 166 dx=0.5 167 dy=0.5 168 box=[y-dy, y+dy, x-dx, x+dx] 166 169 read_variables_v2, csite,date1,date2,nsmooth, $ 167 170 at, sw,rh,sst,wu,wv,ws,lh 168 171 169 172 170 ind=where(finite(sst)) & valid=n_elements(ind) 173 ind=where(finite(sst)) 174 valid=n_elements(ind) 171 175 172 176 if (valid ge 180) then begin … … 200 204 201 205 202 ind=where(finite(sst)) & sst=sst(ind) & uncr_sst=uncr(ind) & corr_sst=corr(ind) 203 oafl=oafl(ind) & ncep=ncep(ind) & tmi=tmi(ind) & ncep1=ncep1(ind) 206 ind=where(finite(sst)) 207 sst=sst(ind) 208 uncr_sst=uncr(ind) 209 corr_sst=corr(ind) 210 oafl=oafl(ind) 211 ncep=ncep(ind) 212 tmi=tmi(ind) 213 ncep1=ncep1(ind) 204 214 mean_tao=total(sst,/nan)/n_elements(ind) 205 215 … … 230 240 lat=reform(ff(0,*)) 231 241 lon=reform(ff(1,*)) 232 cor_era=reform(ff(2,*)) & cor_erai=total(cor_era)/n_elements(cor_era) 233 bias_era=reform(ff(3,*)) & bias_erai=total(bias_era)/n_elements(bias_era) 234 std_era=reform(ff(4,*)) & std_erai=total(std_era)/n_elements(std_era) 235 rmsd_era=reform(ff(5,*)) & rmsd_erai=total(rmsd_era)/n_elements(rmsd_era) 236 mean_tao=reform(ff(6,*)) & mean_erai=bias_era+mean_tao 242 cor_era=reform(ff(2,*)) 243 cor_erai=total(cor_era)/n_elements(cor_era) 244 bias_era=reform(ff(3,*)) 245 bias_erai=total(bias_era)/n_elements(bias_era) 246 std_era=reform(ff(4,*)) 247 std_erai=total(std_era)/n_elements(std_era) 248 rmsd_era=reform(ff(5,*)) 249 rmsd_erai=total(rmsd_era)/n_elements(rmsd_era) 250 mean_tao=reform(ff(6,*)) 251 mean_erai=bias_era+mean_tao 237 252 238 253 print, '' … … 248 263 oplot, [22,31], [22,31] 249 264 ab=linfit(mean_tao, mean_erai,yfit=yfit) 250 a=float(ab(0)) & b=float(ab(1)) 265 a=float(ab(0)) 266 b=float(ab(1)) 251 267 oplot, mean_tao, yfit, color=250, thick=2 252 268 … … 256 272 lat=reform(ff(0,*)) 257 273 lon=reform(ff(1,*)) 258 cor_tro=reform(ff(2,*)) & cor_trop=total(cor_tro)/n_elements(cor_tro) 259 bias_tro=reform(ff(3,*)) & bias_trop=total(bias_tro)/n_elements(bias_tro) 260 std_tro=reform(ff(4,*)) & std_trop=total(std_tro)/n_elements(std_tro) 261 rmsd_tro=reform(ff(5,*)) & rmsd_trop=total(rmsd_tro)/n_elements(rmsd_tro) 262 mean_tao=reform(ff(6,*)) & mean_trop=bias_tro+mean_tao 274 cor_tro=reform(ff(2,*)) 275 cor_trop=total(cor_tro)/n_elements(cor_tro) 276 bias_tro=reform(ff(3,*)) 277 bias_trop=total(bias_tro)/n_elements(bias_tro) 278 std_tro=reform(ff(4,*)) 279 std_trop=total(std_tro)/n_elements(std_tro) 280 rmsd_tro=reform(ff(5,*)) 281 rmsd_trop=total(rmsd_tro)/n_elements(rmsd_tro) 282 mean_tao=reform(ff(6,*)) 283 mean_trop=bias_tro+mean_tao 263 284 264 285 print, '' … … 275 296 276 297 ab=linfit(mean_tao, mean_trop,yfit=yfit) 277 a=float(ab(0)) & b=float(ab(1)) 298 a=float(ab(0)) 299 b=float(ab(1)) 278 300 oplot, mean_tao, yfit, color=250, thick=2 279 301 … … 283 305 lat=reform(ff(0,*)) 284 306 lon=reform(ff(1,*)) 285 cor_oaf=reform(ff(2,*)) & cor_oafl=total(cor_oaf)/n_elements(cor_oaf) 286 bias_oaf=reform(ff(3,*)) & bias_oafl=total(bias_oaf)/n_elements(bias_oaf) 287 std_oaf=reform(ff(4,*)) & std_oafl=total(std_oaf)/n_elements(std_oaf) 288 rmsd_oaf=reform(ff(5,*)) & rmsd_oafl=total(rmsd_oaf)/n_elements(rmsd_oaf) 289 mean_tao=reform(ff(6,*)) & mean_oafl=bias_oaf+mean_tao 307 cor_oaf=reform(ff(2,*)) 308 cor_oafl=total(cor_oaf)/n_elements(cor_oaf) 309 bias_oaf=reform(ff(3,*)) 310 bias_oafl=total(bias_oaf)/n_elements(bias_oaf) 311 std_oaf=reform(ff(4,*)) 312 std_oafl=total(std_oaf)/n_elements(std_oaf) 313 rmsd_oaf=reform(ff(5,*)) 314 rmsd_oafl=total(rmsd_oaf)/n_elements(rmsd_oaf) 315 mean_tao=reform(ff(6,*)) 316 mean_oafl=bias_oaf+mean_tao 290 317 291 318 print, '' … … 302 329 303 330 ab=linfit(mean_tao, mean_oafl,yfit=yfit) 304 a=float(ab(0)) & b=float(ab(1)) 331 a=float(ab(0)) 332 b=float(ab(1)) 305 333 oplot, mean_tao, yfit, color=250, thick=2 306 334 … … 312 340 lat=reform(ff(0,*)) 313 341 lon=reform(ff(1,*)) 314 cor_nce=reform(ff(2,*)) & cor_ncep=total(cor_nce)/n_elements(cor_nce) 315 bias_nce=reform(ff(3,*)) & bias_ncep=total(bias_nce)/n_elements(bias_nce) 316 std_nce=reform(ff(4,*)) & std_ncep=total(std_nce)/n_elements(std_nce) 317 rmsd_nce=reform(ff(5,*)) & rmsd_ncep=total(rmsd_nce)/n_elements(rmsd_nce) 318 mean_tao=reform(ff(6,*)) & mean_ncep=bias_nce+mean_tao 342 cor_nce=reform(ff(2,*)) 343 cor_ncep=total(cor_nce)/n_elements(cor_nce) 344 bias_nce=reform(ff(3,*)) 345 bias_ncep=total(bias_nce)/n_elements(bias_nce) 346 std_nce=reform(ff(4,*)) 347 std_ncep=total(std_nce)/n_elements(std_nce) 348 rmsd_nce=reform(ff(5,*)) 349 rmsd_ncep=total(rmsd_nce)/n_elements(rmsd_nce) 350 mean_tao=reform(ff(6,*)) 351 mean_ncep=bias_nce+mean_tao 319 352 320 353 print, '' … … 331 364 332 365 ab=linfit(mean_tao, mean_ncep,yfit=yfit) 333 a=float(ab(0)) & b=float(ab(1)) 366 a=float(ab(0)) 367 b=float(ab(1)) 334 368 oplot, mean_tao, yfit, color=250, thick=2 335 369 … … 340 374 lat=reform(ff(0,*)) 341 375 lon=reform(ff(1,*)) 342 cor_tm=reform(ff(2,*)) & cor_tmi=total(cor_tm)/n_elements(cor_tm) 343 bias_tm=reform(ff(3,*)) & bias_tmi=total(bias_tm)/n_elements(bias_tm) 344 std_tm=reform(ff(4,*)) & std_tmi=total(std_tm)/n_elements(std_tm) 345 rmsd_tm=reform(ff(5,*)) & rmsd_tmi=total(rmsd_tm)/n_elements(rmsd_tm) 346 mean_tao=reform(ff(6,*)) & mean_tmi=bias_tm+mean_tao 376 cor_tm=reform(ff(2,*)) 377 cor_tmi=total(cor_tm)/n_elements(cor_tm) 378 bias_tm=reform(ff(3,*)) 379 bias_tmi=total(bias_tm)/n_elements(bias_tm) 380 std_tm=reform(ff(4,*)) 381 std_tmi=total(std_tm)/n_elements(std_tm) 382 rmsd_tm=reform(ff(5,*)) 383 rmsd_tmi=total(rmsd_tm)/n_elements(rmsd_tm) 384 mean_tao=reform(ff(6,*)) 385 mean_tmi=bias_tm+mean_tao 347 386 348 387 print, '' … … 359 398 360 399 ab=linfit(mean_tao, mean_tmi,yfit=yfit) 361 a=float(ab(0)) & b=float(ab(1)) 400 a=float(ab(0)) 401 b=float(ab(1)) 362 402 oplot, mean_tao, yfit, color=250, thick=2 363 403 … … 367 407 lat=reform(ff(0,*)) 368 408 lon=reform(ff(1,*)) 369 cor_nce=reform(ff(2,*)) & cor_ncep=total(cor_nce)/n_elements(cor_nce) 370 bias_nce=reform(ff(3,*)) & bias_ncep=total(bias_nce)/n_elements(bias_nce) 371 std_nce=reform(ff(4,*)) & std_ncep=total(std_nce)/n_elements(std_nce) 372 rmsd_nce=reform(ff(5,*)) & rmsd_ncep=total(rmsd_nce)/n_elements(rmsd_nce) 373 mean_tao=reform(ff(6,*)) & mean_ncep=bias_nce+mean_tao 409 cor_nce=reform(ff(2,*)) 410 cor_ncep=total(cor_nce)/n_elements(cor_nce) 411 bias_nce=reform(ff(3,*)) 412 bias_ncep=total(bias_nce)/n_elements(bias_nce) 413 std_nce=reform(ff(4,*)) 414 std_ncep=total(std_nce)/n_elements(std_nce) 415 rmsd_nce=reform(ff(5,*)) 416 rmsd_ncep=total(rmsd_nce)/n_elements(rmsd_nce) 417 mean_tao=reform(ff(6,*)) 418 mean_ncep=bias_nce+mean_tao 374 419 375 420 print, '' … … 386 431 387 432 ab=linfit(mean_tao, mean_ncep,yfit=yfit) 388 a=float(ab(0)) & b=float(ab(1)) 433 a=float(ab(0)) 434 b=float(ab(1)) 389 435 oplot, mean_tao, yfit, color=250, thick=2 390 436 -
trunk/src/paper01/fig7/ws_validation_scatter_2000_2009_basin.pro
r91 r94 161 161 162 162 ;; first reading the whole ERAI uncorrected and corrected data 163 ;; date1=20000101 & date2=20090931 163 ;; date1=20000101 164 ;; date2=20090931 164 165 165 166 file=project_id_env+'erai_ws_19890101_20091231_oafluxgrid.nc' … … 179 180 ;; reading data from mooring 180 181 181 site=sitelist(n) & csite=site 182 site=sitelist(n) 183 csite=site 182 184 print, csite 183 185 x=x_site_location(site) 184 186 y=y_site_location(site) 185 187 if (y ge 0. and y le 30.) then y=y+360. 186 dx=0.5 & dy=0.5 & box=[y-dy, y+dy, x-dx, x+dx] 188 dx=0.5 189 dy=0.5 190 box=[y-dy, y+dy, x-dx, x+dx] 187 191 read_variables_v2, csite,date1,date2,nsmooth, $ 188 192 at, sw,rh,sst,wu,wv,ws, lh … … 217 221 ncep1=tropflux 218 222 219 ind=where(finite(ws)) & ws=ws(ind) & uncr_ws=uncr(ind) & corr_ws=corr(ind) 220 oafl=oafl(ind) & ncep=ncep(ind) & tmi=tmi(ind) & ncep1=ncep1(ind) 223 ind=where(finite(ws)) 224 ws=ws(ind) 225 uncr_ws=uncr(ind) 226 corr_ws=corr(ind) 227 oafl=oafl(ind) 228 ncep=ncep(ind) 229 tmi=tmi(ind) 230 ncep1=ncep1(ind) 221 231 222 232 mean_tao=total(ws)/n_elements(ws) … … 245 255 lat=reform(ff(0,*)) 246 256 lon=reform(ff(1,*)) 247 cor_era=reform(ff(2,*)) & cor_erai=total(cor_era)/n_elements(cor_era) 248 bias_era=reform(ff(3,*)) & bias_erai=total(bias_era)/n_elements(bias_era) 249 std_era=reform(ff(4,*)) & std_erai=total(std_era)/n_elements(std_era) 250 rmsd_era=reform(ff(5,*)) & rmsd_erai=total(rmsd_era)/n_elements(rmsd_era) 251 mean_tao=reform(ff(6,*)) & mean_erai=bias_era+mean_tao 257 cor_era=reform(ff(2,*)) 258 cor_erai=total(cor_era)/n_elements(cor_era) 259 bias_era=reform(ff(3,*)) 260 bias_erai=total(bias_era)/n_elements(bias_era) 261 std_era=reform(ff(4,*)) 262 std_erai=total(std_era)/n_elements(std_era) 263 rmsd_era=reform(ff(5,*)) 264 rmsd_erai=total(rmsd_era)/n_elements(rmsd_era) 265 mean_tao=reform(ff(6,*)) 266 mean_erai=bias_era+mean_tao 252 267 253 268 print, '' … … 263 278 oplot, [2,10], [2,10] 264 279 ab=linfit(mean_tao, mean_erai,yfit=yfit) 265 a=float(ab(0)) & b=float(ab(1)) 280 a=float(ab(0)) 281 b=float(ab(1)) 266 282 oplot, mean_tao, yfit, color=250, thick=2 267 283 … … 271 287 lat=reform(ff(0,*)) 272 288 lon=reform(ff(1,*)) 273 cor_tro=reform(ff(2,*)) & cor_trop=total(cor_tro)/n_elements(cor_tro) 274 bias_tro=reform(ff(3,*)) & bias_trop=total(bias_tro)/n_elements(bias_tro) 275 std_tro=reform(ff(4,*)) & std_trop=total(std_tro)/n_elements(std_tro) 276 rmsd_tro=reform(ff(5,*)) & rmsd_trop=total(rmsd_tro)/n_elements(rmsd_tro) 277 mean_tao=reform(ff(6,*)) & mean_trop=bias_tro+mean_tao 289 cor_tro=reform(ff(2,*)) 290 cor_trop=total(cor_tro)/n_elements(cor_tro) 291 bias_tro=reform(ff(3,*)) 292 bias_trop=total(bias_tro)/n_elements(bias_tro) 293 std_tro=reform(ff(4,*)) 294 std_trop=total(std_tro)/n_elements(std_tro) 295 rmsd_tro=reform(ff(5,*)) 296 rmsd_trop=total(rmsd_tro)/n_elements(rmsd_tro) 297 mean_tao=reform(ff(6,*)) 298 mean_trop=bias_tro+mean_tao 278 299 279 300 print, '' … … 290 311 291 312 ab=linfit(mean_tao, mean_trop,yfit=yfit) 292 a=float(ab(0)) & b=float(ab(1)) 313 a=float(ab(0)) 314 b=float(ab(1)) 293 315 oplot, mean_tao, yfit, color=250, thick=2 294 316 … … 298 320 lat=reform(ff(0,*)) 299 321 lon=reform(ff(1,*)) 300 cor_oaf=reform(ff(2,*)) & cor_oafl=total(cor_oaf)/n_elements(cor_oaf) 301 bias_oaf=reform(ff(3,*)) & bias_oafl=total(bias_oaf)/n_elements(bias_oaf) 302 std_oaf=reform(ff(4,*)) & std_oafl=total(std_oaf)/n_elements(std_oaf) 303 rmsd_oaf=reform(ff(5,*)) & rmsd_oafl=total(rmsd_oaf)/n_elements(rmsd_oaf) 304 mean_tao=reform(ff(6,*)) & mean_oafl=bias_oaf+mean_tao 322 cor_oaf=reform(ff(2,*)) 323 cor_oafl=total(cor_oaf)/n_elements(cor_oaf) 324 bias_oaf=reform(ff(3,*)) 325 bias_oafl=total(bias_oaf)/n_elements(bias_oaf) 326 std_oaf=reform(ff(4,*)) 327 std_oafl=total(std_oaf)/n_elements(std_oaf) 328 rmsd_oaf=reform(ff(5,*)) 329 rmsd_oafl=total(rmsd_oaf)/n_elements(rmsd_oaf) 330 mean_tao=reform(ff(6,*)) 331 mean_oafl=bias_oaf+mean_tao 305 332 306 333 print, '' … … 317 344 318 345 ab=linfit(mean_tao, mean_oafl,yfit=yfit) 319 a=float(ab(0)) & b=float(ab(1)) 346 a=float(ab(0)) 347 b=float(ab(1)) 320 348 oplot, mean_tao, yfit, color=250, thick=2 321 349 … … 327 355 lat=reform(ff(0,*)) 328 356 lon=reform(ff(1,*)) 329 cor_nce=reform(ff(2,*)) & cor_ncep=total(cor_nce)/n_elements(cor_nce) 330 bias_nce=reform(ff(3,*)) & bias_ncep=total(bias_nce)/n_elements(bias_nce) 331 std_nce=reform(ff(4,*)) & std_ncep=total(std_nce)/n_elements(std_nce) 332 rmsd_nce=reform(ff(5,*)) & rmsd_ncep=total(rmsd_nce)/n_elements(rmsd_nce) 333 mean_tao=reform(ff(6,*)) & mean_ncep=bias_nce+mean_tao 357 cor_nce=reform(ff(2,*)) 358 cor_ncep=total(cor_nce)/n_elements(cor_nce) 359 bias_nce=reform(ff(3,*)) 360 bias_ncep=total(bias_nce)/n_elements(bias_nce) 361 std_nce=reform(ff(4,*)) 362 std_ncep=total(std_nce)/n_elements(std_nce) 363 rmsd_nce=reform(ff(5,*)) 364 rmsd_ncep=total(rmsd_nce)/n_elements(rmsd_nce) 365 mean_tao=reform(ff(6,*)) 366 mean_ncep=bias_nce+mean_tao 334 367 335 368 print, '' … … 346 379 347 380 ab=linfit(mean_tao, mean_ncep,yfit=yfit) 348 a=float(ab(0)) & b=float(ab(1)) 381 a=float(ab(0)) 382 b=float(ab(1)) 349 383 oplot, mean_tao, yfit, color=250, thick=2 350 384 … … 354 388 lat=reform(ff(0,*)) 355 389 lon=reform(ff(1,*)) 356 cor_tm=reform(ff(2,*)) & cor_tmi=total(cor_tm)/n_elements(cor_tm) 357 bias_tm=reform(ff(3,*)) & bias_tmi=total(bias_tm)/n_elements(bias_tm) 358 std_tm=reform(ff(4,*)) & std_tmi=total(std_tm)/n_elements(std_tm) 359 rmsd_tm=reform(ff(5,*)) & rmsd_tmi=total(rmsd_tm)/n_elements(rmsd_tm) 360 mean_tao=reform(ff(6,*)) & mean_tmi=bias_tm+mean_tao 390 cor_tm=reform(ff(2,*)) 391 cor_tmi=total(cor_tm)/n_elements(cor_tm) 392 bias_tm=reform(ff(3,*)) 393 bias_tmi=total(bias_tm)/n_elements(bias_tm) 394 std_tm=reform(ff(4,*)) 395 std_tmi=total(std_tm)/n_elements(std_tm) 396 rmsd_tm=reform(ff(5,*)) 397 rmsd_tmi=total(rmsd_tm)/n_elements(rmsd_tm) 398 mean_tao=reform(ff(6,*)) 399 mean_tmi=bias_tm+mean_tao 361 400 362 401 print, '' … … 373 412 374 413 ab=linfit(mean_tao, mean_tmi,yfit=yfit) 375 a=float(ab(0)) & b=float(ab(1)) 414 a=float(ab(0)) 415 b=float(ab(1)) 376 416 oplot, mean_tao, yfit, color=250, thick=2 377 417 … … 382 422 lat=reform(ff(0,*)) 383 423 lon=reform(ff(1,*)) 384 cor_nce=reform(ff(2,*)) & cor_ncep=total(cor_nce)/n_elements(cor_nce) 385 bias_nce=reform(ff(3,*)) & bias_ncep=total(bias_nce)/n_elements(bias_nce) 386 std_nce=reform(ff(4,*)) & std_ncep=total(std_nce)/n_elements(std_nce) 387 rmsd_nce=reform(ff(5,*)) & rmsd_ncep=total(rmsd_nce)/n_elements(rmsd_nce) 388 mean_tao=reform(ff(6,*)) & mean_ncep=bias_nce+mean_tao 424 cor_nce=reform(ff(2,*)) 425 cor_ncep=total(cor_nce)/n_elements(cor_nce) 426 bias_nce=reform(ff(3,*)) 427 bias_ncep=total(bias_nce)/n_elements(bias_nce) 428 std_nce=reform(ff(4,*)) 429 std_ncep=total(std_nce)/n_elements(std_nce) 430 rmsd_nce=reform(ff(5,*)) 431 rmsd_ncep=total(rmsd_nce)/n_elements(rmsd_nce) 432 mean_tao=reform(ff(6,*)) 433 mean_ncep=bias_nce+mean_tao 389 434 390 435 print, '' … … 401 446 402 447 ab=linfit(mean_tao, mean_ncep,yfit=yfit) 403 a=float(ab(0)) & b=float(ab(1)) 448 a=float(ab(0)) 449 b=float(ab(1)) 404 450 oplot, mean_tao, yfit, color=250, thick=2 405 451 -
trunk/src/paper01/fig8/lhf_validation_scatter_2000_2009.pro
r85 r94 167 167 ;; reading data from mooring 168 168 169 site=sitelist(n) & csite=site 169 site=sitelist(n) 170 csite=site 170 171 print, csite 171 172 x=x_site_location(site) 172 173 y=y_site_location(site) 173 174 if (y ge 0. and y le 30.) then y=y+360. 174 dx=0.5 & dy=0.5 & box=[y-dy, y+dy, x-dx, x+dx] 175 dx=0.5 176 dy=0.5 177 box=[y-dy, y+dy, x-dx, x+dx] 175 178 read_variables_v2, csite,date1,date2,nsmooth, $ 176 179 at, sw,rh,sst,wu,wv,ws,lh 177 180 178 lhf=lh & ind=where(finite(lhf)) & valid=n_elements(ind) 181 lhf=lh 182 ind=where(finite(lhf)) 183 valid=n_elements(ind) 179 184 180 185 if (valid ge 180. ) then begin … … 201 206 202 207 203 ind=where(finite(lhf)) & lhf=lhf(ind) & uncr_lhf=uncr(ind) & corr_lhf=corr(ind) & oafl=oafl(ind) & ncep=ncep(ind) & ncep1=ncep1(ind) 208 ind=where(finite(lhf)) 209 lhf=lhf(ind) 210 uncr_lhf=uncr(ind) 211 corr_lhf=corr(ind) 212 oafl=oafl(ind) 213 ncep=ncep(ind) 214 ncep1=ncep1(ind) 204 215 mean_tao=total(lhf,/nan)/n_elements(lhf) 205 216 … … 235 246 mean_erai=mean_tao+bias_erai 236 247 237 ind=where(finite(cor_erai)) & cor=total(cor_erai,/nan)/n_elements(ind) 238 ind=where(finite(bias_erai)) & bias=total(bias_erai,/nan)/n_elements(ind) 239 ind=where(finite(rmsd_erai)) & rmsd=total(rmsd_erai,/nan)/n_elements(ind) 240 ind=where(finite(std_erai)) & std=total(std_erai,/nan)/n_elements(ind) 248 ind=where(finite(cor_erai)) 249 cor=total(cor_erai,/nan)/n_elements(ind) 250 ind=where(finite(bias_erai)) 251 bias=total(bias_erai,/nan)/n_elements(ind) 252 ind=where(finite(rmsd_erai)) 253 rmsd=total(rmsd_erai,/nan)/n_elements(ind) 254 ind=where(finite(std_erai)) 255 std=total(std_erai,/nan)/n_elements(ind) 241 256 242 257 print, '' … … 250 265 xyouts, 50,10, 'cor bias std rmsd', charsize=1. 251 266 252 x=mean_tao & y=mean_erai 267 x=mean_tao 268 y=mean_erai 253 269 ab=linfit(x,y,yfit=yfit) 254 a=float(ab(0)) & b=float(ab(1)) & print, a,b 270 a=float(ab(0)) 271 b=float(ab(1)) 272 print, a,b 255 273 oplot, x, yfit, thick=2, color=250 256 274 oplot, [20,200], [20,200] … … 266 284 mean_trop=mean_tao+bias_trop 267 285 268 ind=where(finite(cor_trop)) & cor=total(cor_trop,/nan)/n_elements(ind) 269 ind=where(finite(bias_trop)) & bias=total(bias_trop,/nan)/n_elements(ind) 270 ind=where(finite(rmsd_trop)) & rmsd=total(rmsd_trop,/nan)/n_elements(ind) 271 ind=where(finite(std_trop)) & std=total(std_trop,/nan)/n_elements(ind) 286 ind=where(finite(cor_trop)) 287 cor=total(cor_trop,/nan)/n_elements(ind) 288 ind=where(finite(bias_trop)) 289 bias=total(bias_trop,/nan)/n_elements(ind) 290 ind=where(finite(rmsd_trop)) 291 rmsd=total(rmsd_trop,/nan)/n_elements(ind) 292 ind=where(finite(std_trop)) 293 std=total(std_trop,/nan)/n_elements(ind) 272 294 273 295 print, '' … … 278 300 splot, mean_tao, mean_trop, charsize=1.1, title='LHF - TAO Vs TropFlux', $ 279 301 xrange=[20,200], yrange=[20,200], small=[2,3,2],/noer, psym=2 280 x=mean_tao & y=mean_trop 302 x=mean_tao 303 y=mean_trop 281 304 xyouts, 50,25, cstat, charsize=1. 282 305 xyouts, 50,10, 'cor bias std rmsd', charsize=1. 283 306 284 307 ab=linfit(x,y,yfit=yfit) 285 a=float(ab(0)) & b=float(ab(1)) & print, a,b 308 a=float(ab(0)) 309 b=float(ab(1)) 310 print, a,b 286 311 oplot, x, yfit, thick=2, color=250 287 312 oplot, [20,200], [20,200] … … 298 323 mean_oaf=mean_tao+bias_oaf 299 324 300 ind=where(finite(cor_oaf)) & cor=total(cor_oaf,/nan)/n_elements(ind) 301 ind=where(finite(bias_oaf)) & bias=total(bias_oaf,/nan)/n_elements(ind) 302 ind=where(finite(rmsd_oaf)) & rmsd=total(rmsd_oaf,/nan)/n_elements(ind) 303 ind=where(finite(std_oaf)) & std=total(std_oaf,/nan)/n_elements(ind) 325 ind=where(finite(cor_oaf)) 326 cor=total(cor_oaf,/nan)/n_elements(ind) 327 ind=where(finite(bias_oaf)) 328 bias=total(bias_oaf,/nan)/n_elements(ind) 329 ind=where(finite(rmsd_oaf)) 330 rmsd=total(rmsd_oaf,/nan)/n_elements(ind) 331 ind=where(finite(std_oaf)) 332 std=total(std_oaf,/nan)/n_elements(ind) 304 333 305 334 print, '' … … 313 342 xyouts, 50,10, 'cor bias std rmsd', charsize=1. 314 343 315 x=mean_tao & y=mean_oaf 344 x=mean_tao 345 y=mean_oaf 316 346 ab=linfit(x,y,yfit=yfit) 317 a=float(ab(0)) & b=float(ab(1)) & print, a,b 347 a=float(ab(0)) 348 b=float(ab(1)) 349 print, a,b 318 350 oplot, x, yfit, thick=2, color=250 319 351 oplot, [20,200], [20,200] … … 329 361 mean_nce=mean_tao+bias_nce 330 362 331 ind=where(finite(cor_nce)) & cor=total(cor_nce,/nan)/n_elements(ind) 332 ind=where(finite(bias_nce)) & bias=total(bias_nce,/nan)/n_elements(ind) 333 ind=where(finite(rmsd_nce)) & rmsd=total(rmsd_nce,/nan)/n_elements(ind) 334 ind=where(finite(std_nce)) & std=total(std_nce,/nan)/n_elements(ind) 363 ind=where(finite(cor_nce)) 364 cor=total(cor_nce,/nan)/n_elements(ind) 365 ind=where(finite(bias_nce)) 366 bias=total(bias_nce,/nan)/n_elements(ind) 367 ind=where(finite(rmsd_nce)) 368 rmsd=total(rmsd_nce,/nan)/n_elements(ind) 369 ind=where(finite(std_nce)) 370 std=total(std_nce,/nan)/n_elements(ind) 335 371 336 372 print, '' … … 344 380 xyouts, 50,10, 'cor bias std rmsd', charsize=1. 345 381 346 x=mean_tao & y=mean_nce 382 x=mean_tao 383 y=mean_nce 347 384 ab=linfit(x,y,yfit=yfit) 348 a=float(ab(0)) & b=float(ab(1)) & print, a,b 385 a=float(ab(0)) 386 b=float(ab(1)) 387 print, a,b 349 388 oplot, x, yfit, thick=2, color=250 350 389 oplot, [20,200], [20,200] … … 360 399 mean_nce=mean_tao+bias_nce 361 400 362 ind=where(finite(cor_nce)) & cor=total(cor_nce,/nan)/n_elements(ind) 363 ind=where(finite(bias_nce)) & bias=total(bias_nce,/nan)/n_elements(ind) 364 ind=where(finite(rmsd_nce)) & rmsd=total(rmsd_nce,/nan)/n_elements(ind) 365 ind=where(finite(std_nce)) & std=total(std_nce,/nan)/n_elements(ind) 401 ind=where(finite(cor_nce)) 402 cor=total(cor_nce,/nan)/n_elements(ind) 403 ind=where(finite(bias_nce)) 404 bias=total(bias_nce,/nan)/n_elements(ind) 405 ind=where(finite(rmsd_nce)) 406 rmsd=total(rmsd_nce,/nan)/n_elements(ind) 407 ind=where(finite(std_nce)) 408 std=total(std_nce,/nan)/n_elements(ind) 366 409 367 410 print, '' … … 375 418 xyouts, 50,10, 'cor bias std rmsd', charsize=1. 376 419 377 x=mean_tao & y=mean_nce 420 x=mean_tao 421 y=mean_nce 378 422 ab=linfit(x,y,yfit=yfit) 379 a=float(ab(0)) & b=float(ab(1)) & print, a,b 423 a=float(ab(0)) 424 b=float(ab(1)) 425 print, a,b 380 426 oplot, x, yfit, thick=2, color=250 381 427 oplot, [20,200], [20,200] -
trunk/src/paper01/fig8/shf_validation_scatter_2000_2009.pro
r85 r94 169 169 ;; reading data from mooring 170 170 171 site=sitelist(n) & csite=site 171 site=sitelist(n) 172 csite=site 172 173 print, csite 173 174 x=x_site_location(site) 174 175 y=y_site_location(site) 175 176 if (y ge 0. and y le 30.) then y=y+360. 176 dx=0.5 & dy=0.5 & box=[y-dy, y+dy, x-dx, x+dx] 177 dx=0.5 178 dy=0.5 179 box=[y-dy, y+dy, x-dx, x+dx] 177 180 178 181 read_variables_sh, csite,date1,date2,nsmooth, $ 179 182 at, sw,rh,sst,wu,wv,ws,sh 180 shf=sh & ind=where(finite(shf)) & valid=n_elements(ind) 183 shf=sh 184 ind=where(finite(shf)) 185 valid=n_elements(ind) 181 186 182 187 if (valid ge 180. ) then begin … … 202 207 ncep1=tropflux 203 208 204 ind=where(finite(shf)) & shf=shf(ind) & uncr_shf=uncr(ind) & corr_shf=corr(ind) & oafl=oafl(ind) & ncep=ncep(ind) 205 ncep1=ncep1(ind) & mean_tao=total(shf,/nan)/n_elements(shf) 209 ind=where(finite(shf)) 210 shf=shf(ind) 211 uncr_shf=uncr(ind) 212 corr_shf=corr(ind) 213 oafl=oafl(ind) 214 ncep=ncep(ind) 215 ncep1=ncep1(ind) 216 mean_tao=total(shf,/nan)/n_elements(shf) 206 217 207 218 statistics_3var_v1, shf, uncr_shf, corr_shf, $ … … 235 246 mean_erai=mean_tao+bias_erai 236 247 237 ind=where(finite(cor_erai)) & cor=total(cor_erai,/nan)/n_elements(ind) 238 ind=where(finite(bias_erai)) & bias=total(bias_erai,/nan)/n_elements(ind) 239 ind=where(finite(rmsd_erai)) & rmsd=total(rmsd_erai,/nan)/n_elements(ind) 240 ind=where(finite(std_erai)) & std=total(std_erai,/nan)/n_elements(ind) 248 ind=where(finite(cor_erai)) 249 cor=total(cor_erai,/nan)/n_elements(ind) 250 ind=where(finite(bias_erai)) 251 bias=total(bias_erai,/nan)/n_elements(ind) 252 ind=where(finite(rmsd_erai)) 253 rmsd=total(rmsd_erai,/nan)/n_elements(ind) 254 ind=where(finite(std_erai)) 255 std=total(std_erai,/nan)/n_elements(ind) 241 256 242 257 print, '' … … 250 265 xyouts, 0,-4., 'cor bias std rmsd', charsize=1. 251 266 252 x=mean_tao & y=mean_erai 267 x=mean_tao 268 y=mean_erai 253 269 ab=linfit(x,y,yfit=yfit) 254 a=float(ab(0)) & b=float(ab(1)) & print, a,b 270 a=float(ab(0)) 271 b=float(ab(1)) 272 print, a,b 255 273 oplot, x, yfit, thick=2, color=250 256 274 oplot, [-5,25], [-5,25] … … 267 285 mean_trop=mean_tao+bias_trop 268 286 269 ind=where(finite(cor_trop)) & cor=total(cor_trop,/nan)/n_elements(ind) 270 ind=where(finite(bias_trop)) & bias=total(bias_trop,/nan)/n_elements(ind) 271 ind=where(finite(rmsd_trop)) & rmsd=total(rmsd_trop,/nan)/n_elements(ind) 272 ind=where(finite(std_trop)) & std=total(std_trop,/nan)/n_elements(ind) 287 ind=where(finite(cor_trop)) 288 cor=total(cor_trop,/nan)/n_elements(ind) 289 ind=where(finite(bias_trop)) 290 bias=total(bias_trop,/nan)/n_elements(ind) 291 ind=where(finite(rmsd_trop)) 292 rmsd=total(rmsd_trop,/nan)/n_elements(ind) 293 ind=where(finite(std_trop)) 294 std=total(std_trop,/nan)/n_elements(ind) 273 295 274 296 print, '' … … 282 304 xyouts, 0,-4., 'cor bias std rmsd', charsize=1. 283 305 284 x=mean_tao & y=mean_trop 306 x=mean_tao 307 y=mean_trop 285 308 ab=linfit(x,y,yfit=yfit) 286 a=float(ab(0)) & b=float(ab(1)) & print, a,b 309 a=float(ab(0)) 310 b=float(ab(1)) 311 print, a,b 287 312 oplot, x, yfit, thick=2, color=250 288 313 oplot, [-5,25], [-5,25] … … 299 324 mean_oaf=mean_tao+bias_oaf 300 325 301 ind=where(finite(cor_oaf)) & cor=total(cor_oaf,/nan)/n_elements(ind) 302 ind=where(finite(bias_oaf)) & bias=total(bias_oaf,/nan)/n_elements(ind) 303 ind=where(finite(rmsd_oaf)) & rmsd=total(rmsd_oaf,/nan)/n_elements(ind) 304 ind=where(finite(std_oaf)) & std=total(std_oaf,/nan)/n_elements(ind) 326 ind=where(finite(cor_oaf)) 327 cor=total(cor_oaf,/nan)/n_elements(ind) 328 ind=where(finite(bias_oaf)) 329 bias=total(bias_oaf,/nan)/n_elements(ind) 330 ind=where(finite(rmsd_oaf)) 331 rmsd=total(rmsd_oaf,/nan)/n_elements(ind) 332 ind=where(finite(std_oaf)) 333 std=total(std_oaf,/nan)/n_elements(ind) 305 334 306 335 print, '' … … 314 343 xyouts, 0,-4., 'cor bias std rmsd', charsize=1. 315 344 316 x=mean_tao & y=mean_oaf 345 x=mean_tao 346 y=mean_oaf 317 347 ab=linfit(x,y,yfit=yfit) 318 a=float(ab(0)) & b=float(ab(1)) & print, a,b 348 a=float(ab(0)) 349 b=float(ab(1)) 350 print, a,b 319 351 oplot, x, yfit, thick=2, color=250 320 352 oplot, [-5,25], [-5,25] … … 330 362 mean_nce=mean_tao+bias_nce 331 363 332 ind=where(finite(cor_nce)) & cor=total(cor_nce,/nan)/n_elements(ind) 333 ind=where(finite(bias_nce)) & bias=total(bias_nce,/nan)/n_elements(ind) 334 ind=where(finite(rmsd_nce)) & rmsd=total(rmsd_nce,/nan)/n_elements(ind) 335 ind=where(finite(std_nce)) & std=total(std_nce,/nan)/n_elements(ind) 364 ind=where(finite(cor_nce)) 365 cor=total(cor_nce,/nan)/n_elements(ind) 366 ind=where(finite(bias_nce)) 367 bias=total(bias_nce,/nan)/n_elements(ind) 368 ind=where(finite(rmsd_nce)) 369 rmsd=total(rmsd_nce,/nan)/n_elements(ind) 370 ind=where(finite(std_nce)) 371 std=total(std_nce,/nan)/n_elements(ind) 336 372 337 373 print, '' … … 345 381 xyouts, 0,-4., 'cor bias std rmsd', charsize=1. 346 382 347 x=mean_tao & y=mean_nce 383 x=mean_tao 384 y=mean_nce 348 385 ab=linfit(x,y,yfit=yfit) 349 a=float(ab(0)) & b=float(ab(1)) & print, a,b 386 a=float(ab(0)) 387 b=float(ab(1)) 388 print, a,b 350 389 oplot, x, yfit, thick=2, color=250 351 390 oplot, [-5,25], [-5,25] … … 361 400 mean_nce=mean_tao+bias_nce 362 401 363 ind=where(finite(cor_nce)) & cor=total(cor_nce,/nan)/n_elements(ind) 364 ind=where(finite(bias_nce)) & bias=total(bias_nce,/nan)/n_elements(ind) 365 ind=where(finite(rmsd_nce)) & rmsd=total(rmsd_nce,/nan)/n_elements(ind) 366 ind=where(finite(std_nce)) & std=total(std_nce,/nan)/n_elements(ind) 402 ind=where(finite(cor_nce)) 403 cor=total(cor_nce,/nan)/n_elements(ind) 404 ind=where(finite(bias_nce)) 405 bias=total(bias_nce,/nan)/n_elements(ind) 406 ind=where(finite(rmsd_nce)) 407 rmsd=total(rmsd_nce,/nan)/n_elements(ind) 408 ind=where(finite(std_nce)) 409 std=total(std_nce,/nan)/n_elements(ind) 367 410 368 411 print, '' … … 376 419 xyouts, 0,-4., 'cor bias std rmsd', charsize=1. 377 420 378 x=mean_tao & y=mean_nce 421 x=mean_tao 422 y=mean_nce 379 423 ab=linfit(x,y,yfit=yfit) 380 a=float(ab(0)) & b=float(ab(1)) & print, a,b 424 a=float(ab(0)) 425 b=float(ab(1)) 426 print, a,b 381 427 oplot, x, yfit, thick=2, color=250 382 428 oplot, [-5,25], [-5,25] -
trunk/src/paper01/fig9/lwr_validation_scatter_2000_2007.pro
r85 r94 118 118 ocean='global' 119 119 120 da1=20000101 & da2=20071231 120 da1=20000101 121 da2=20071231 121 122 nsmooth=1. 122 123 ;; This program will create the following text files with statistics of respective variables … … 152 153 file=project_id_env+'TropFlux_lwr_19890101_20091231.nc" 153 154 initncda, file 154 cor=read_ncdf('lwr',date1,date2,file=file,/nostr) & cor=-1*cor 155 cor=read_ncdf('lwr',date1,date2,file=file,/nostr) 156 cor=-1*cor 155 157 help, cor 156 158 … … 162 164 fi=project_id_env+'NCEP2_flux_19890101_20090729.nc' 163 165 initncdf, fi 164 nce=read_ncdf("lwr", date1, date2, file=fi,/nostr) ;; & nce=-1*nce 166 nce=read_ncdf("lwr", date1, date2, file=fi,/nostr) 167 ;; nce=-1*nce 165 168 help, nce 166 169 … … 180 183 ;; reading data from mooring 181 184 182 site=sitelist(n) & csite=site 185 site=sitelist(n) 186 csite=site 183 187 print, csite 184 188 x=x_site_location(site) 185 189 y=y_site_location(site) 186 190 if (y ge 0. and y le 30.) then y=y+360. 187 dx=0.5 & dy=0.5 & box=[y-dy, y+dy, x-dx, x+dx] 191 dx=0.5 192 dy=0.5 193 box=[y-dy, y+dy, x-dx, x+dx] 188 194 read_lw_global_v2, csite, date1, date2, box, $ 189 195 lw 190 196 191 lwr=lw & ind=where(finite(lwr)) & valid=n_elements(ind) 197 lwr=lw 198 ind=where(finite(lwr)) 199 valid=n_elements(ind) 192 200 193 201 if (valid ge 180. ) then begin … … 218 226 219 227 220 ind=where(finite(lwr)) & lwr=lwr(ind) & uncr_lwr=uncr(ind) & corr_lwr=corr(ind) & oafl=oafl(ind) & ncep=ncep(ind) & clrk=clrk(ind) 228 ind=where(finite(lwr)) 229 lwr=lwr(ind) 230 uncr_lwr=uncr(ind) 231 corr_lwr=corr(ind) 232 oafl=oafl(ind) 233 ncep=ncep(ind) 234 clrk=clrk(ind) 221 235 ncep1=ncep1(ind) 222 236 mean_tao=total(lwr)/n_elements(ind) … … 252 266 mean_erai=mean_tao+bias_erai 253 267 254 ind=where(finite(cor_erai)) & cor=total(cor_erai,/nan)/n_elements(ind) 255 ind=where(finite(bias_erai)) & bias=total(bias_erai,/nan)/n_elements(ind) 256 ind=where(finite(rmsd_erai)) & rmsd=total(rmsd_erai,/nan)/n_elements(ind) 257 ind=where(finite(std_erai)) & std=total(std_erai,/nan)/n_elements(ind) 268 ind=where(finite(cor_erai)) 269 cor=total(cor_erai,/nan)/n_elements(ind) 270 ind=where(finite(bias_erai)) 271 bias=total(bias_erai,/nan)/n_elements(ind) 272 ind=where(finite(rmsd_erai)) 273 rmsd=total(rmsd_erai,/nan)/n_elements(ind) 274 ind=where(finite(std_erai)) 275 std=total(std_erai,/nan)/n_elements(ind) 258 276 259 277 print, '' … … 267 285 xyouts, 40,3, 'cor bias std rmsd', charsize=1. 268 286 269 x=mean_tao & y=mean_erai 287 x=mean_tao 288 y=mean_erai 270 289 ab=linfit(x,y,yfit=yfit) 271 a=float(ab(0)) & b=float(ab(1)) & print, a,b 290 a=float(ab(0)) 291 b=float(ab(1)) 292 print, a,b 272 293 oplot, x, yfit, thick=2, color=250 273 294 oplot, [0,100], [0,100] … … 285 306 mean_trop=mean_tao+bias_trop 286 307 287 ind=where(finite(cor_trop)) & cor=total(cor_trop,/nan)/n_elements(ind) 288 ind=where(finite(bias_trop)) & bias=total(bias_trop,/nan)/n_elements(ind) 289 ind=where(finite(rmsd_trop)) & rmsd=total(rmsd_trop,/nan)/n_elements(ind) 290 ind=where(finite(std_trop)) & std=total(std_trop,/nan)/n_elements(ind) 308 ind=where(finite(cor_trop)) 309 cor=total(cor_trop,/nan)/n_elements(ind) 310 ind=where(finite(bias_trop)) 311 bias=total(bias_trop,/nan)/n_elements(ind) 312 ind=where(finite(rmsd_trop)) 313 rmsd=total(rmsd_trop,/nan)/n_elements(ind) 314 ind=where(finite(std_trop)) 315 std=total(std_trop,/nan)/n_elements(ind) 291 316 292 317 print, '' … … 300 325 xyouts, 40,3, 'cor bias std rmsd', charsize=1. 301 326 302 x=mean_tao & y=mean_trop 327 x=mean_tao 328 y=mean_trop 303 329 ab=linfit(x,y,yfit=yfit) 304 a=float(ab(0)) & b=float(ab(1)) & print, a,b 330 a=float(ab(0)) 331 b=float(ab(1)) 332 print, a,b 305 333 oplot, x, yfit, thick=2, color=250 306 334 oplot, [0,100], [0,100] … … 318 346 mean_oaf=mean_tao+bias_oaf 319 347 320 ind=where(finite(cor_oaf)) & cor=total(cor_oaf,/nan)/n_elements(ind) 321 ind=where(finite(bias_oaf)) & bias=total(bias_oaf,/nan)/n_elements(ind) 322 ind=where(finite(rmsd_oaf)) & rmsd=total(rmsd_oaf,/nan)/n_elements(ind) 323 ind=where(finite(std_oaf)) & std=total(std_oaf,/nan)/n_elements(ind) 348 ind=where(finite(cor_oaf)) 349 cor=total(cor_oaf,/nan)/n_elements(ind) 350 ind=where(finite(bias_oaf)) 351 bias=total(bias_oaf,/nan)/n_elements(ind) 352 ind=where(finite(rmsd_oaf)) 353 rmsd=total(rmsd_oaf,/nan)/n_elements(ind) 354 ind=where(finite(std_oaf)) 355 std=total(std_oaf,/nan)/n_elements(ind) 324 356 325 357 print, '' … … 333 365 xyouts, 40,3, 'cor bias std rmsd', charsize=1. 334 366 335 x=mean_tao & y=mean_oaf 367 x=mean_tao 368 y=mean_oaf 336 369 ab=linfit(x,y,yfit=yfit) 337 a=float(ab(0)) & b=float(ab(1)) & print, a,b 370 a=float(ab(0)) 371 b=float(ab(1)) 372 print, a,b 338 373 oplot, x, yfit, thick=2, color=250 339 374 oplot, [0,100], [0,100] … … 351 386 mean_nce=mean_tao+bias_nce 352 387 353 ind=where(finite(cor_nce)) & cor=total(cor_nce,/nan)/n_elements(ind) 354 ind=where(finite(bias_nce)) & bias=total(bias_nce,/nan)/n_elements(ind) 355 ind=where(finite(rmsd_nce)) & rmsd=total(rmsd_nce,/nan)/n_elements(ind) 356 ind=where(finite(std_nce)) & std=total(std_nce,/nan)/n_elements(ind) 388 ind=where(finite(cor_nce)) 389 cor=total(cor_nce,/nan)/n_elements(ind) 390 ind=where(finite(bias_nce)) 391 bias=total(bias_nce,/nan)/n_elements(ind) 392 ind=where(finite(rmsd_nce)) 393 rmsd=total(rmsd_nce,/nan)/n_elements(ind) 394 ind=where(finite(std_nce)) 395 std=total(std_nce,/nan)/n_elements(ind) 357 396 358 397 print, '' … … 366 405 xyouts, 40,3, 'cor bias std rmsd', charsize=1. 367 406 368 x=mean_tao & y=mean_nce 407 x=mean_tao 408 y=mean_nce 369 409 ab=linfit(x,y,yfit=yfit) 370 a=float(ab(0)) & b=float(ab(1)) & print, a,b 410 a=float(ab(0)) 411 b=float(ab(1)) 412 print, a,b 371 413 oplot, x, yfit, thick=2, color=250 372 414 oplot, [0,100], [0,100] … … 384 426 mean_nce=mean_tao+bias_nce 385 427 386 ind=where(finite(cor_nce)) & cor=total(cor_nce,/nan)/n_elements(ind) 387 ind=where(finite(bias_nce)) & bias=total(bias_nce,/nan)/n_elements(ind) 388 ind=where(finite(rmsd_nce)) & rmsd=total(rmsd_nce,/nan)/n_elements(ind) 389 ind=where(finite(std_nce)) & std=total(std_nce,/nan)/n_elements(ind) 428 ind=where(finite(cor_nce)) 429 cor=total(cor_nce,/nan)/n_elements(ind) 430 ind=where(finite(bias_nce)) 431 bias=total(bias_nce,/nan)/n_elements(ind) 432 ind=where(finite(rmsd_nce)) 433 rmsd=total(rmsd_nce,/nan)/n_elements(ind) 434 ind=where(finite(std_nce)) 435 std=total(std_nce,/nan)/n_elements(ind) 390 436 391 437 print, '' … … 399 445 xyouts, 40,3, 'cor bias std rmsd', charsize=1. 400 446 401 x=mean_tao & y=mean_nce 447 x=mean_tao 448 y=mean_nce 402 449 ab=linfit(x,y,yfit=yfit) 403 a=float(ab(0)) & b=float(ab(1)) & print, a,b 450 a=float(ab(0)) 451 b=float(ab(1)) 452 print, a,b 404 453 oplot, x, yfit, thick=2, color=250 405 454 oplot, [0,100], [0,100] … … 417 466 mean_clark=mean_tao+bias_clark 418 467 419 ind=where(finite(cor_clark)) & cor=total(cor_clark,/nan)/n_elements(ind) 420 ind=where(finite(bias_clark)) & bias=total(bias_clark,/nan)/n_elements(ind) 421 ind=where(finite(rmsd_clark)) & rmsd=total(rmsd_clark,/nan)/n_elements(ind) 422 ind=where(finite(std_clark)) & std=total(std_clark,/nan)/n_elements(ind) 468 ind=where(finite(cor_clark)) 469 cor=total(cor_clark,/nan)/n_elements(ind) 470 ind=where(finite(bias_clark)) 471 bias=total(bias_clark,/nan)/n_elements(ind) 472 ind=where(finite(rmsd_clark)) 473 rmsd=total(rmsd_clark,/nan)/n_elements(ind) 474 ind=where(finite(std_clark)) 475 std=total(std_clark,/nan)/n_elements(ind) 423 476 424 477 print, '' … … 432 485 xyouts, 40,3, 'cor bias std rmsd', charsize=1. 433 486 434 x=mean_tao & y=mean_clark 487 x=mean_tao 488 y=mean_clark 435 489 ab=linfit(x,y,yfit=yfit) 436 a=float(ab(0)) & b=float(ab(1)) & print, a,b 490 a=float(ab(0)) 491 b=float(ab(1)) 492 print, a,b 437 493 oplot, x, yfit, thick=2, color=250 438 494 oplot, [0,100], [0,100] -
trunk/src/paper01/fig9/swr_validation_scatter_2000_2007.pro
r85 r94 116 116 ocean='global' 117 117 118 ;da1=20000101 & da2=20071231 118 ;da1=20000101 119 ;da2=20071231 119 120 nsmooth=1. 120 121 ;; This program will create the following text files with statistics of respective variables … … 146 147 file=project_id_env+'erai_fluxes_20000101_20090801_TROP_oafluxgrid.nc' 147 148 initncdf, file 148 unc=read_ncdf('swr',date1,date2,file=file,/nostr) & unc=-1*unc 149 unc=read_ncdf('swr',date1,date2,file=file,/nostr) 150 unc=-1*unc 149 151 help, unc 150 152 … … 161 163 fi=project_id_env+'swr_ncep2_oaflxgrid_19890101_20091231.nc' 162 164 initncdf, fi 163 nce=read_ncdf("swr", date1, date2, file=fi,/nostr) & nce=0.94*nce 165 nce=read_ncdf("swr", date1, date2, file=fi,/nostr) 166 nce=0.94*nce 164 167 help, nce 165 168 … … 178 181 ;; reading data from mooring 179 182 180 site=sitelist(n) & csite=site 183 site=sitelist(n) 184 csite=site 181 185 print, csite 182 186 x=x_site_location(site) 183 187 y=y_site_location(site) 184 188 if (y ge 0. and y le 30.) then y=y+360. 185 dx=0.5 & dy=0.5 & box=[y-dy, y+dy, x-dx, x+dx] 189 dx=0.5 190 dy=0.5 191 box=[y-dy, y+dy, x-dx, x+dx] 186 192 187 193 read_global_sw_v50, csite, date1, date2, box, $ 188 194 sw 189 195 190 swr=sw & ind=where(finite(swr)) & valid=n_elements(ind) 196 swr=sw 197 ind=where(finite(swr)) 198 valid=n_elements(ind) 191 199 192 200 if (valid ge 180. ) then begin … … 217 225 olr=tropflux 218 226 219 ind=where(finite(swr)) & swr=swr(ind) & uncr_swr=uncr(ind) & corr_swr=corr(ind) & oafl=oafl(ind) & ncep=ncep(ind) 220 ncep1=ncep1(ind) & olr_sw=olr(ind)& mean_tao=total(swr,/nan)/n_elements(swr) 227 ind=where(finite(swr)) 228 swr=swr(ind) 229 uncr_swr=uncr(ind) 230 corr_swr=corr(ind) 231 oafl=oafl(ind) 232 ncep=ncep(ind) 233 ncep1=ncep1(ind) 234 olr_sw=olr(ind) 235 mean_tao=total(swr,/nan)/n_elements(swr) 221 236 222 237 statistics_3var_v1, swr, uncr_swr, corr_swr, $ … … 251 266 mean_erai=mean_tao+bias_erai 252 267 253 ind=where(finite(cor_erai)) & cor=total(cor_erai,/nan)/n_elements(ind) 254 ind=where(finite(bias_erai)) & bias=total(bias_erai,/nan)/n_elements(ind) 255 ind=where(finite(rmsd_erai)) & rmsd=total(rmsd_erai,/nan)/n_elements(ind) 256 ind=where(finite(std_erai)) & std=total(std_erai,/nan)/n_elements(ind) 268 ind=where(finite(cor_erai)) 269 cor=total(cor_erai,/nan)/n_elements(ind) 270 ind=where(finite(bias_erai)) 271 bias=total(bias_erai,/nan)/n_elements(ind) 272 ind=where(finite(rmsd_erai)) 273 rmsd=total(rmsd_erai,/nan)/n_elements(ind) 274 ind=where(finite(std_erai)) 275 std=total(std_erai,/nan)/n_elements(ind) 257 276 258 277 print, '' … … 266 285 xyouts, 180,160, 'cor bias std rmsd', charsize=1. 267 286 268 x=mean_tao & y=mean_erai 269 ab=linfit(x,y,yfit=yfit) 270 a=float(ab(0)) & b=float(ab(1)) & print, a,b 287 x=mean_tao 288 y=mean_erai 289 ab=linfit(x,y,yfit=yfit) 290 a=float(ab(0)) 291 b=float(ab(1)) 292 print, a,b 271 293 oplot, x, yfit, thick=2, color=250 272 294 oplot, [100,300], [100,300] … … 283 305 mean_trop=mean_tao+bias_trop 284 306 285 ind=where(finite(cor_trop)) & cor=total(cor_trop,/nan)/n_elements(ind) 286 ind=where(finite(bias_trop)) & bias=total(bias_trop,/nan)/n_elements(ind) 287 ind=where(finite(rmsd_trop)) & rmsd=total(rmsd_trop,/nan)/n_elements(ind) 288 ind=where(finite(std_trop)) & std=total(std_trop,/nan)/n_elements(ind) 307 ind=where(finite(cor_trop)) 308 cor=total(cor_trop,/nan)/n_elements(ind) 309 ind=where(finite(bias_trop)) 310 bias=total(bias_trop,/nan)/n_elements(ind) 311 ind=where(finite(rmsd_trop)) 312 rmsd=total(rmsd_trop,/nan)/n_elements(ind) 313 ind=where(finite(std_trop)) 314 std=total(std_trop,/nan)/n_elements(ind) 289 315 290 316 print, '' … … 298 324 xyouts, 180,160, 'cor bias std rmsd', charsize=1. 299 325 300 x=mean_tao & y=mean_trop 301 ab=linfit(x,y,yfit=yfit) 302 a=float(ab(0)) & b=float(ab(1)) & print, a,b 326 x=mean_tao 327 y=mean_trop 328 ab=linfit(x,y,yfit=yfit) 329 a=float(ab(0)) 330 b=float(ab(1)) 331 print, a,b 303 332 oplot, x, yfit, thick=2, color=250 304 333 oplot, [100,300], [100,300] … … 315 344 mean_oaf=mean_tao+bias_oaf 316 345 317 ind=where(finite(cor_oaf)) & cor=total(cor_oaf,/nan)/n_elements(ind) 318 ind=where(finite(bias_oaf)) & bias=total(bias_oaf,/nan)/n_elements(ind) 319 ind=where(finite(rmsd_oaf)) & rmsd=total(rmsd_oaf,/nan)/n_elements(ind) 320 ind=where(finite(std_oaf)) & std=total(std_oaf,/nan)/n_elements(ind) 346 ind=where(finite(cor_oaf)) 347 cor=total(cor_oaf,/nan)/n_elements(ind) 348 ind=where(finite(bias_oaf)) 349 bias=total(bias_oaf,/nan)/n_elements(ind) 350 ind=where(finite(rmsd_oaf)) 351 rmsd=total(rmsd_oaf,/nan)/n_elements(ind) 352 ind=where(finite(std_oaf)) 353 std=total(std_oaf,/nan)/n_elements(ind) 321 354 322 355 print, '' … … 330 363 xyouts, 180,160, 'cor bias std rmsd', charsize=1. 331 364 332 x=mean_tao & y=mean_oaf 333 ab=linfit(x,y,yfit=yfit) 334 a=float(ab(0)) & b=float(ab(1)) & print, a,b 365 x=mean_tao 366 y=mean_oaf 367 ab=linfit(x,y,yfit=yfit) 368 a=float(ab(0)) 369 b=float(ab(1)) 370 print, a,b 335 371 oplot, x, yfit, thick=2, color=250 336 372 oplot, [100,300], [100,300] … … 347 383 mean_nce=mean_tao+bias_nce 348 384 349 ind=where(finite(cor_nce)) & cor=total(cor_nce,/nan)/n_elements(ind) 350 ind=where(finite(bias_nce)) & bias=total(bias_nce,/nan)/n_elements(ind) 351 ind=where(finite(rmsd_nce)) & rmsd=total(rmsd_nce,/nan)/n_elements(ind) 352 ind=where(finite(std_nce)) & std=total(std_nce,/nan)/n_elements(ind) 385 ind=where(finite(cor_nce)) 386 cor=total(cor_nce,/nan)/n_elements(ind) 387 ind=where(finite(bias_nce)) 388 bias=total(bias_nce,/nan)/n_elements(ind) 389 ind=where(finite(rmsd_nce)) 390 rmsd=total(rmsd_nce,/nan)/n_elements(ind) 391 ind=where(finite(std_nce)) 392 std=total(std_nce,/nan)/n_elements(ind) 353 393 354 394 print, '' … … 362 402 xyouts, 180,160, 'cor bias std rmsd', charsize=1. 363 403 364 x=mean_tao & y=mean_nce 365 ab=linfit(x,y,yfit=yfit) 366 a=float(ab(0)) & b=float(ab(1)) & print, a,b 404 x=mean_tao 405 y=mean_nce 406 ab=linfit(x,y,yfit=yfit) 407 a=float(ab(0)) 408 b=float(ab(1)) 409 print, a,b 367 410 oplot, x, yfit, thick=2, color=250 368 411 oplot, [100,300], [100,300] … … 379 422 mean_nce=mean_tao+bias_nce 380 423 381 ind=where(finite(cor_nce)) & cor=total(cor_nce,/nan)/n_elements(ind) 382 ind=where(finite(bias_nce)) & bias=total(bias_nce,/nan)/n_elements(ind) 383 ind=where(finite(rmsd_nce)) & rmsd=total(rmsd_nce,/nan)/n_elements(ind) 384 ind=where(finite(std_nce)) & std=total(std_nce,/nan)/n_elements(ind) 424 ind=where(finite(cor_nce)) 425 cor=total(cor_nce,/nan)/n_elements(ind) 426 ind=where(finite(bias_nce)) 427 bias=total(bias_nce,/nan)/n_elements(ind) 428 ind=where(finite(rmsd_nce)) 429 rmsd=total(rmsd_nce,/nan)/n_elements(ind) 430 ind=where(finite(std_nce)) 431 std=total(std_nce,/nan)/n_elements(ind) 385 432 386 433 print, '' … … 394 441 xyouts, 180,160, 'cor bias std rmsd', charsize=1. 395 442 396 x=mean_tao & y=mean_nce 397 ab=linfit(x,y,yfit=yfit) 398 a=float(ab(0)) & b=float(ab(1)) & print, a,b 443 x=mean_tao 444 y=mean_nce 445 ab=linfit(x,y,yfit=yfit) 446 a=float(ab(0)) 447 b=float(ab(1)) 448 print, a,b 399 449 oplot, x, yfit, thick=2, color=250 400 450 oplot, [100,300], [100,300] … … 411 461 mean_olr=mean_tao+bias_olr 412 462 413 ind=where(finite(cor_olr)) & cor=total(cor_olr,/nan)/n_elements(ind) 414 ind=where(finite(bias_olr)) & bias=total(bias_olr,/nan)/n_elements(ind) 415 ind=where(finite(rmsd_olr)) & rmsd=total(rmsd_olr,/nan)/n_elements(ind) 416 ind=where(finite(std_olr)) & std=total(std_olr,/nan)/n_elements(ind) 463 ind=where(finite(cor_olr)) 464 cor=total(cor_olr,/nan)/n_elements(ind) 465 ind=where(finite(bias_olr)) 466 bias=total(bias_olr,/nan)/n_elements(ind) 467 ind=where(finite(rmsd_olr)) 468 rmsd=total(rmsd_olr,/nan)/n_elements(ind) 469 ind=where(finite(std_olr)) 470 std=total(std_olr,/nan)/n_elements(ind) 417 471 418 472 print, '' … … 426 480 xyouts, 180,160, 'cor bias std rmsd', charsize=1. 427 481 428 x=mean_tao & y=mean_olr 429 ab=linfit(x,y,yfit=yfit) 430 a=float(ab(0)) & b=float(ab(1)) & print, a,b 482 x=mean_tao 483 y=mean_olr 484 ab=linfit(x,y,yfit=yfit) 485 a=float(ab(0)) 486 b=float(ab(1)) 487 print, a,b 431 488 oplot, x, yfit, thick=2, color=250 432 489 oplot, [100,300], [100,300] -
trunk/src/q2m_correction_ncdf.pro
r92 r94 143 143 ENDIF 144 144 ; 145 da1=19880101 & da2=20101231 145 da1=19880101 146 da2=20101231 146 147 ; 147 148 ; build data filename … … 175 176 help, q2m_mean 176 177 177 tt=time & jpt=n_elements(time) 178 tt=time 179 jpt=n_elements(time) 178 180 caldat, time,mon,day,yea 179 181 q2m_m=q2m*0. … … 203 205 lat=reform(gphit(0,0:jpj-1)) 204 206 lon=reform(glamt(0:jpi-1,0)) 205 time=timegen(7670, units='days', start=julday(1,1,1989,0)) & jpt=n_elements(time) 207 time=timegen(7670, units='days', start=julday(1,1,1989,0)) 208 jpt=n_elements(time) 206 209 207 210 cda0=string(jul2date(time(0)),format='(i8.8)') 208 211 cda1=string(jul2date(time(jpt-1)),format='(i8.8)') 209 212 210 time=time-julday(1,1,1950) & jpt=n_elements(time) 213 time=time-julday(1,1,1950) 214 jpt=n_elements(time) 211 215 212 216 ncfile='!' + fullfilename_out -
trunk/src/sst_correction_ncdf.pro
r93 r94 213 213 ENDIF 214 214 ; 215 da1=19880101 & da2=20091231 215 da1=19880101 216 da2=20091231 216 217 ; 217 218 ; build data filename … … 239 240 ; 240 241 initncdf, fullfilename 241 sst=read_ncdf('sst',da1,da2,file=fullfilename,/nostr) & sst=sst-273.15 242 sst=read_ncdf('sst',da1,da2,file=fullfilename,/nostr) 243 sst=sst-273.15 242 244 help, sst 243 245 … … 245 247 help, sst_mean 246 248 247 tt=time & jpt=n_elements(time) 249 tt=time 250 jpt=n_elements(time) 248 251 caldat, time,mon,day,yea 249 252 ; … … 278 281 lat=reform(gphit(0,0:jpj-1)) 279 282 lon=reform(glamt(0:jpi-1,0)) 280 time=timegen(7670, units='days', start=julday(1,1,1989)) & jpt=n_elements(time) 283 time=timegen(7670, units='days', start=julday(1,1,1989)) 284 jpt=n_elements(time) 281 285 282 286 cda0=string(jul2date(time(0)),format='(i8.8)') 283 287 cda1=string(jul2date(time(jpt-1)),format='(i8.8)') 284 288 285 time=time-julday(1,1,1950) & jpt=n_elements(time) 289 time=time-julday(1,1,1950) 290 jpt=n_elements(time) 286 291 287 292 ncfile='!' + fullfilename_out -
trunk/src/ws_correction_ncdf.pro
r92 r94 146 146 ENDIF 147 147 ; 148 da1=19880101 & da2=20101231 148 da1=19880101 149 da2=20101231 149 150 ; 150 151 ; build data filename … … 181 182 help, w_mean 182 183 183 tt=time & jpt=n_elements(time) 184 tt=time 185 jpt=n_elements(time) 184 186 caldat, time,mon,day,yea 185 187 w_m=w*0. … … 210 212 lat=reform(gphit(0,0:jpj-1)) 211 213 lon=reform(glamt(0:jpi-1,0)) 212 time=timegen(7670, units='days', start=julday(1,1,1989,0)) & jpt=n_elements(time) 214 time=timegen(7670, units='days', start=julday(1,1,1989,0)) 215 jpt=n_elements(time) 213 216 214 217 cda0=string(jul2date(time(0)),format='(i8.8)') 215 218 cda1=string(jul2date(time(jpt-1)),format='(i8.8)') 216 219 217 time=time-julday(1,1,1950) & jpt=n_elements(time) 220 time=time-julday(1,1,1950) 221 jpt=n_elements(time) 218 222 219 223 ncfile='!' + fullfilename_out -
trunk/src/ws_tropflux_1d_to_1m_ncdf.pro
r83 r94 136 136 ; 137 137 initncdf, fullfilename 138 st=19890101 & en=20101231 138 st=19890101 139 en=20101231 139 140 ws=read_ncdf("ws", st, en, file=fullfilename,/nostr) 140 141 … … 145 146 ;; Monthly data 146 147 ; 147 jpt=22*12. & time=timegen(jpt,start=julday(1,15,1989),units='Months') 148 jpt=22*12. 149 time=timegen(jpt,start=julday(1,15,1989),units='Months') 148 150 caldat, tt,m,d,y 149 151 caldat, time, mon,day,yea … … 163 165 cda1=string(jul2date(time(jpt-1)),format='(i8.8)') 164 166 time=time-julday(1,1,1950,00,00,00) 165 xlon=reform(glamt(firstxt:lastxt,0) ) & ylat=reform(gphit(0,firstyt:lastyt)) 167 xlon=reform(glamt(firstxt:lastxt,0) ) 168 ylat=reform(gphit(0,firstyt:lastyt)) 166 169 167 170 ncfile='!' + fullfilename_out
Note: See TracChangeset
for help on using the changeset viewer.