Changeset 94


Ignore:
Timestamp:
08/25/11 13:02:20 (13 years ago)
Author:
pinsard
Message:

get rid of multistatement lines

Location:
trunk/src
Files:
62 edited

Legend:

Unmodified
Added
Removed

  • trunk/src/TropFlux_19890101_20091231.pro

    r90 r94  
    405405ENDIF 
    406406; 
    407 da1=19880101 & da2=20101231 
     407da1=19880101  
     408da2=20101231 
    408409; 
    409410initncdf, fullfilename_msk 
    … …  
    414415ws=read_ncdf('ws',da1,da2,file=fullfilename_ws,/nostr) 
    415416wg=read_ncdf('wg',da1-1,da2,file=fullfilename_wg,/nostr) 
    416 tt=time & jpt=n_elements(time) 
     417tt=time  
     418jpt=n_elements(time) 
    417419sst=read_ncdf('sst',da1,da2,file=fullfilename_sst,/nostr) 
    418420sst=reform(sst-273.15) 
    … …  
    430432ocean=where(msk eq 1,compl=land) 
    431433valmask=1.e20 
    432 time=tt & jpt=n_elements(time) 
     434time=tt  
     435jpt=n_elements(time) 
    433436 
    434437; 
    … …  
    460463  print, 'Computing Fluxes ',jt,' / ',jpt-1 
    461464; 
    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)         
    465474  ; 2m Air T (°C) 
    466475  t=t2m(*,*,jt)  
    467476  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) 
    471485  ylat=gphit(ocean) 
    472 ;  cld=calc_cloud(jday,Rs,ylat) 
     486  ;  cld=calc_cloud(jday,Rs,ylat) 
    473487  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) 
    476492  rain=0. 
    477493  lw_clrk=-lwnet_clark(ts,q,cld,t,P) 
    … …  
    524540endfor 
    525541tt=time 
    526 time=timegen(7670, start=julday(1,1,1989,0), units='days') & jpt=n_elements(time) 
     542time=timegen(7670, start=julday(1,1,1989,0), units='days')  
     543jpt=n_elements(time) 
    527544; 
    528545cda0=string(jul2date(time(0)),format='(i8.8)') 
    529546cda1=string(jul2date(time(jpt-1)),format='(i8.8)') 
    530547tt=time-julday(1,1,1950,00,00,00) 
    531 xlon=reform(glamt(*,0) ) & ylat=reform(gphit(0,*)) 
     548xlon=reform(glamt(*,0) )  
     549ylat=reform(gphit(0,*)) 
    532550 
    533551ncfile='!' + fullfilename_out 

  • trunk/src/TropFlux_NRT_ncdf.pro

    r90 r94  
    187187ENDIF 
    188188; 
    189 st=19800101 & en=20101231 
     189st=19800101  
     190en=20101231 
    190191 
    191192initncdf, fullfilename_swr_blnd 
    … …  
    202203help, swr, lwr, lhf, shf 
    203204 
    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) 
     207time=timegen(7670, units='days', start=julday(1,1,1989,0))  
     208jpt=n_elements(time) 
    206209 
    207210cda0=string(jul2date(time(0)),format='(i8.8)') 

  • trunk/src/TropFlux_swr_BLND_19890101_20091231.pro

    r90 r94  
    274274swr_merged=swr_dt*0. 
    275275 
    276 time=timegen(7670, units='days', start=julday(1,1,1989,0)) & jpt=n_elements(time) 
     276time=timegen(7670, units='days', start=julday(1,1,1989,0))  
     277jpt=n_elements(time) 
    277278 
    278279a=interpol([1.,0.],[julday(10,01,2007),julday(12,31,2007)],time) 
    … …  
    283284 
    284285initncdf, fullfilename_wg 
    285 time=timegen(7670, units='days', start=julday(1,1,1989,0)) & jpt=n_elements(time) 
     286time=timegen(7670, units='days', start=julday(1,1,1989,0))  
     287jpt=n_elements(time) 
    286288lat=reform(gphit(0,0:jpj-1)) 
    287289lon=reform(glamt(0:jpi-1,0)) 

  • trunk/src/TropFlux_swr_DT_19890101_20071231.pro

    r90 r94  
    179179help, sw_mean 
    180180 
    181 tt=time & jpt=n_elements(time) 
     181tt=time  
     182jpt=n_elements(time) 
    182183caldat, time,mon,day,yea 
    183 sw_m=sw*0. &  sw_bias=sw*0. 
     184sw_m=sw*0.  
     185sw_bias=sw*0. 
    184186 
    185187for jt=0,jpt-1 do begin 
    … …  
    202204lat=reform(gphit(0,0:jpj-1)) 
    203205lon=reform(glamt(0:jpi-1,0)) 
    204 time=time-julday(1,1,1950) & jpt=n_elements(time) 
     206time=time-julday(1,1,1950)  
     207jpt=n_elements(time) 
    205208 
    206209ncfile='!' + fullfilename_out 

  • trunk/src/TropFlux_swr_NRT_19890101_20091231.pro

    r90 r94  
    207207nsmooth=45 
    208208 
    209 swi=[[[swi]],[[swi]],[[swi]]] & olri=[[[olri]],[[olri]],[[olri]]] 
    210 si=size(sw) & n1=si(1) & n2=si(2) 
     209swi=[[[swi]],[[swi]],[[swi]]]  
     210olri=[[[olri]],[[olri]],[[olri]]] 
     211si=size(sw)  
     212n1=si(1)  
     213n2=si(2) 
    211214 
    212215for j=0,n2-1 do begin 
    … …  
    219222endfor 
    220223 
    221 swi=swi[*,*,365:365+364] & olri=olri[*,*,365:365+364] 
     224swi=swi[*,*,365:365+364]  
     225olri=olri[*,*,365:365+364] 
    222226help, swi 
    223227 
    224228initncdf, fullfilename_olr 
    225229olr=read_ncdf('olr', 19890100, 20091231, box=box, file=fullfilename_olr,/nostr) 
    226 tt=time & jpt=n_elements(time) 
     230tt=time  
     231jpt=n_elements(time) 
    227232caldat, time,mon,day,yea 
    228 swm=olr*0. & olrm=olr*0. 
     233swm=olr*0.  
     234olrm=olr*0. 
    229235for jt=0,jpt-1 do begin 
    230236  jtt=(time(jt)-julday(1,1,yea(jt))) < 364 
    … …  
    244250lat=reform(gphit(0,0:jpj-1)) 
    245251lon=reform(glamt(0:jpi-1,0)) 
    246 time=time-julday(1,1,1950) & jpt=n_elements(time) 
     252time=time-julday(1,1,1950)  
     253jpt=n_elements(time) 
    247254 
    248255ncfile='!' + fullfilename_out 

  • trunk/src/calc_cloud_vlat.pro

    r88 r94  
    2323 
    2424pi=!pi 
    25 xlat=double(xlat) & NN=n_elements(xlat) 
     25xlat=double(xlat)  
     26NN=n_elements(xlat) 
    2627 
    2728CLD=SWR*0.+!values.f_nan 

  • trunk/src/cronin_gustiness_ncdf.pro

    r88 r94  
    6161; coding rules 
    6262; 
    63 ; why da1=19880101 & da2=20101231 ? should be 19890101 and 20091231 or better 
     63; why da1=19880101 and da2=20101231 ? should be 19890101 and 20091231 or better 
    6464; deduce from reading sst 
    6565; 
    … …  
    135135ENDIF 
    136136; 
    137 da1=19880101 & da2=20101231 
     137da1=19880101  
     138da2=20101231 
    138139; 
    139140; build data filename 
    … …  
    159160; 
    160161initncdf, fullfilename 
    161 sst=read_ncdf('sst',da1,da2,file=fullfilename,/nostr) & sst=reform(sst-273.15) 
     162sst=read_ncdf('sst',da1,da2,file=fullfilename,/nostr)  
     163sst=reform(sst-273.15) 
    162164help, sst 
    163165 
    … …  
    175177 
    176178;; writing field 
    177 time=timegen(7670, units='days', start=julday(1,1,1989,0)) & jpt=n_elements(time) 
     179time=timegen(7670, units='days', start=julday(1,1,1989,0))  
     180jpt=n_elements(time) 
    178181 
    179182cda0=string(jul2date(time(0)),format='(i8.8)') 
    180183cda1=string(jul2date(time(jpt-1)),format='(i8.8)') 
    181184tt=time-julday(1,1,1950,00,00,00) 
    182 xlon=reform(glamt(*,0) ) & ylat=reform(gphit(0,*)) 
     185xlon=reform(glamt(*,0) )  
     186ylat=reform(gphit(0,*)) 
    183187 
    184188ncfile='!' + fullfilename_out 

  • trunk/src/d2m_to_q2m_erai.pro

    r93 r94  
    186186ENDIF 
    187187; 
    188 d1=19881001 & d2=20101231 
     188d1=19881001  
     189d2=20101231 
    189190; 
    190191; build d2m filename 
    … …  
    244245initncdf, fullfilename_t2m 
    245246t=read_ncdf("t2m", d1,d2, file=fullfilename_t2m,/nostr) 
    246 tt=time &jpt=n_elements(time) 
     247tt=time  
     248jpt=n_elements(time) 
    247249help, t, td 
    248250 
    … …  
    270272;writing field 
    271273ncfile='!' + fullfilename_out 
    272 time=timegen(7670, units='days', start=julday(1,1,1989)) & jpt=n_elements(time) 
     274time=timegen(7670, units='days', start=julday(1,1,1989))  
     275jpt=n_elements(time) 
    273276cda0=string(jul2date(time(0)),format='(i8.8)') 
    274277cda1=string(jul2date(time(jpt-1)),format='(i8.8)') 
    275278 
    276279tt=time-julday(1,1,1950,00,00,00) 
    277 xlon=reform(glamt(*,0) ) & ylat=reform(gphit(0,*)) 
     280xlon=reform(glamt(*,0) )  
     281ylat=reform(gphit(0,*)) 
    278282valmask=1.e20 
    279283 

  • trunk/src/interp_erai_dewt_1989_2009.pro

    r93 r94  
    235235initncdf, fullfilename 
    236236domdef 
    237 latin=reform(gphit(0,*)) & lonin=reform(glamt(*,0)) 
     237latin=reform(gphit(0,*))  
     238lonin=reform(glamt(*,0)) 
    238239print, 'lat grid ',min(latin),max(latin),latin(1)-latin(0) 
    239240print, 'lon grid ',min(lonin),max(lonin),lonin(1)-lonin(0) 
    240241d2min=read_ncdf("d2",19881201,20101231,file=fullfilename,/nostr) 
    241242 
    242 timein=time & jptin=jpt 
     243timein=time 
     244jptin=jpt 
    243245tab=d2min(*,*,0) 
    244246mskin=glamt*0.+1. 
    … …  
    246248initncdf, fullfilename_msk 
    247249domdef 
    248 latout=reform(gphit(0,*)) & lonout=reform(glamt(*,0)) 
     250latout=reform(gphit(0,*)) 
     251lonout=reform(glamt(*,0)) 
    249252print, 'lat grid ',min(latout),max(latout),latout(1)-latout(0) 
    250253print, 'lon grid ',min(lonout),max(lonout),lonout(1)-lonout(0) 
    … …  
    264267endfor 
    265268 
    266 timein=timein & jptin=jpt 
     269timein=timein 
     270jptin=jpt 
    267271 
    268272initncdf, fullfilename_msk 
    … …  
    270274cda1=string(jul2date(timein(jpt-1)),format='(i8.8)') 
    271275 
    272 time=timegen(7670, units='days', start=julday(1,1,1989)) & jpt=n_elements(time) 
     276time=timegen(7670, units='days', start=julday(1,1,1989))  
     277jpt=n_elements(time) 
    273278cda0=string(jul2date(time(0)),format='(i8.8)') 
    274279cda1=string(jul2date(time(jpt-1)),format='(i8.8)') 

  • trunk/src/interp_erai_lwr_1989_2009.pro

    r93 r94  
    208208ENDIF 
    209209 
    210 st=19890101 & en=20090801 
     210st=19890101  
     211en=20090801 
    211212 
    212213; build data filename 
    … …  
    262263initncdf, fullfilename 
    263264domdef 
    264 latin=reform(gphit(0,*)) & lonin=reform(glamt(*,0)) 
     265latin=reform(gphit(0,*))  
     266lonin=reform(glamt(*,0)) 
    265267print, 'lat grid ',min(latin),max(latin),latin(1)-latin(0) 
    266268print, 'lon grid ',min(lonin),max(lonin),lonin(1)-lonin(0) 
    267269 
    268 timein=time & jptin=jpt 
     270timein=time  
     271jptin=jpt 
    269272tab=lwrin(*,*,0) 
    270273mskin=glamt*0.+1. 
    … …  
    272275initncdf, fullfilename_msk 
    273276domdef 
    274 latout=reform(gphit(0,*)) & lonout=reform(glamt(*,0)) 
     277latout=reform(gphit(0,*)) lonout=reform(glamt(*,0)) 
    275278print, 'lat grid ',min(latout),max(latout),latout(1)-latout(0) 
    276279print, 'lon grid ',min(lonout),max(lonout),lonout(1)-lonout(0) 
    … …  
    291294endfor 
    292295 
    293 time=timegen(7669, start=julday(1,2,1989,0), units='days') & jpt=n_elements(time) 
    294 tt=time & jptin=jpt 
     296time=timegen(7669, start=julday(1,2,1989,0), units='days')  
     297jpt=n_elements(time) 
     298tt=time  
     299jptin=jpt 
    295300cda0=string(jul2date(tt(0)),format='(i8.8)') 
    296301cda1=string(jul2date(tt(jpt-1)),format='(i8.8)') 
    297302tt=tt-julday(1,1,1950,00,00,00) 
    298 xlon=reform(glamt(*,0) ) & ylat=reform(gphit(0,*)) 
     303xlon=reform(glamt(*,0) )  
     304ylat=reform(gphit(0,*)) 
    299305 
    300306initncdf, fullfilename_msk 

  • trunk/src/interp_erai_msl_1989_2009.pro

    r93 r94  
    224224initncdf, fullfilename 
    225225domdef 
    226 latin=reform(gphit(0,*)) & lonin=reform(glamt(*,0)) 
     226latin=reform(gphit(0,*))  
     227lonin=reform(glamt(*,0)) 
    227228print, 'lat grid ',min(latin),max(latin),latin(1)-latin(0) 
    228229print, 'lon grid ',min(lonin),max(lonin),lonin(1)-lonin(0) 
    229230mslin=read_ncdf("msl",19880101,20100930,file=fullfilename,/nostr) 
    230231 
    231 timein=time & jptin=jpt 
     232timein=time  
     233jptin=jpt 
    232234tab=mslin(*,*,0) 
    233235mskin=glamt*0.+1. 
    … …  
    235237initncdf, fullfilename_msk 
    236238domdef 
    237 latout=reform(gphit(0,*)) & lonout=reform(glamt(*,0)) 
     239latout=reform(gphit(0,*))  
     240lonout=reform(glamt(*,0)) 
    238241print, 'lat grid ',min(latout),max(latout),latout(1)-latout(0) 
    239242print, 'lon grid ',min(lonout),max(lonout),lonout(1)-lonout(0) 
    … …  
    266269endfor 
    267270 
    268 timein=timein & jptin=jpt 
     271timein=timein  
     272jptin=jpt 
    269273 
    270274initncdf, fullfilename_msk 
    271275;time=julday(1,2,1989)+lindgen(7516) 
    272 time=timegen(7670, units='days', start=julday(1,1,1989)) & jpt=n_elements(time) 
     276time=timegen(7670, units='days', start=julday(1,1,1989))  
     277jpt=n_elements(time) 
    273278cda0=string(jul2date(time(0)),format='(i8.8)') 
    274279cda1=string(jul2date(time(jpt-1)),format='(i8.8)') 

  • trunk/src/interp_erai_sst_1989_2009.pro

    r93 r94  
    229229initncdf, fullfilename 
    230230domdef 
    231 latin=reform(gphit(0,*)) & lonin=reform(glamt(*,0)) 
     231latin=reform(gphit(0,*))  
     232lonin=reform(glamt(*,0)) 
    232233print, 'lat grid ',min(latin),max(latin),latin(1)-latin(0) 
    233234print, 'lon grid ',min(lonin),max(lonin),lonin(1)-lonin(0) 
    234235sstkin=read_ncdf("sstk",19871201,20100930,file=fullfilename,/nostr) 
    235236 
    236 timein=time & jptin=jpt 
     237timein=time  
     238jptin=jpt 
    237239tab=sstkin(*,*,0) 
    238 mskin=glamt*0.+1. & ind=where((tab eq 1.e9) or finite(tab,/nan)) & mskin(ind)=0. 
     240mskin=glamt*0.+1.  
     241nind=where((tab eq 1.e9) or finite(tab,/nan))  
     242mskin(ind)=0. 
    239243;mskin=glamt*0.+1. 
    240244 
    241245initncdf, fullfilename_msk 
    242246domdef 
    243 latout=reform(gphit(0,*)) & lonout=reform(glamt(*,0)) 
     247latout=reform(gphit(0,*))  
     248lonout=reform(glamt(*,0)) 
    244249print, 'lat grid ',min(latout),max(latout),latout(1)-latout(0) 
    245250print, 'lon grid ',min(lonout),max(lonout),lonout(1)-lonout(0) 
    … …  
    259264endfor 
    260265 
    261 timein=timein & jptin=jpt 
     266timein=timein  
     267jptin=jpt 
    262268 
    263269initncdf, fullfilename_msk 
    264 time=timegen(7670, units='days', start=julday(1,1,1989)) & jpt=n_elements(time) 
     270time=timegen(7670, units='days', start=julday(1,1,1989))  
     271jpt=n_elements(time) 
    265272tt=time 
    266273cda0=string(jul2date(time(0)),format='(i8.8)') 

  • trunk/src/interp_erai_ws_1989_2009.pro

    r93 r94  
    213213ENDIF 
    214214; 
    215 st=19880101 & en=20100930 
     215st=19880101  
     216en=20100930 
    216217; 
    217218; build u10 data filename 
    … …  
    281282initncdf, fullfilename 
    282283domdef 
    283 latin=reform(gphit(0,*)) & lonin=reform(glamt(*,0)) 
     284latin=reform(gphit(0,*))  
     285lonin=reform(glamt(*,0)) 
    284286print, 'lat grid ',min(latin),max(latin),latin(1)-latin(0) 
    285287print, 'lon grid ',min(lonin),max(lonin),lonin(1)-lonin(0) 
    286288 
    287 timein=time & jptin=jpt 
     289timein=time  
     290jptin=jpt 
    288291tab=u10in(*,*,0) 
    289292mskin=glamt*0.+1. 
    … …  
    291294initncdf, fullfilename_msk 
    292295domdef 
    293 latout=reform(gphit(0,*)) & lonout=reform(glamt(*,0)) 
     296latout=reform(gphit(0,*))  
     297lonout=reform(glamt(*,0)) 
    294298print, 'lat grid ',min(latout),max(latout),latout(1)-latout(0) 
    295299print, 'lon grid ',min(lonout),max(lonout),lonout(1)-lonout(0) 
    … …  
    318322endfor 
    319323 
    320 time=timegen(7670, units='days', start=julday(1,1,1989)) & jpt=n_elements(time) 
    321 tt=time & jptin=jpt 
     324time=timegen(7670, units='days', start=julday(1,1,1989))  
     325jpt=n_elements(time) 
     326tt=time  
     327jptin=jpt 
    322328cda0=string(jul2date(tt(0)),format='(i8.8)') 
    323329cda1=string(jul2date(tt(jpt-1)),format='(i8.8)') 
    324330tt=tt-julday(1,1,1950,00,00,00) 
    325 xlon=reform(glamt(*,0) ) & ylat=reform(gphit(0,*)) 
     331xlon=reform(glamt(*,0) )  
     332ylat=reform(gphit(0,*)) 
    326333 
    327334initncdf, fullfilename_msk 

  • trunk/src/interp_olr_30n30s_1989_2009.pro

    r90 r94  
    227227initncdf, fullfilename 
    228228domdef 
    229 latin=reform(gphit(0,*)) & lonin=reform(glamt(*,0)) 
     229latin=reform(gphit(0,*))  
     230lonin=reform(glamt(*,0)) 
    230231print, 'lat grid ',min(latin),max(latin),latin(1)-latin(0) 
    231232print, 'lon grid ',min(lonin),max(lonin),lonin(1)-lonin(0) 
    … …  
    234235mskin=glamt*0.+1. 
    235236 
    236 timein=time & jptin=jpt 
     237timein=time  
     238jptin=jpt 
    237239 
    238240initncdf, fullfilename_msk 
    239241domdef 
    240 latout=reform(gphit(0,*)) & lonout=reform(glamt(*,0)) 
     242latout=reform(gphit(0,*))  
     243lonout=reform(glamt(*,0)) 
    241244print, 'lat grid ',min(latout),max(latout),latout(1)-latout(0) 
    242245print, 'lon grid ',min(lonout),max(lonout),lonout(1)-lonout(0) 
    … …  
    260263 
    261264 
    262 timein=timein & jptin=jpt 
     265timein=timein  
     266jptin=jpt 
    263267 
    264268timein=timein-julday(1,1,1950,00,00) 

  • trunk/src/lwr_correction_ncdf.pro

    r92 r94  
    158158ENDIF 
    159159; 
    160 da1=19880101 & da2=20091231 
     160da1=19880101  
     161da2=20091231 
    161162; 
    162163; build data filename 
    … …  
    190191help,lwr_mean 
    191192 
    192 tt=time & jpt=n_elements(time) 
     193tt=time  
     194jpt=n_elements(time) 
    193195caldat, time,mon,day,yea 
    194196lwr_m=lwr*0. 
    … …  
    219221lat=reform(gphit(0,0:jpj-1)) 
    220222lon=reform(glamt(0:jpi-1,0)) 
    221 time=timegen(7670, units='days', start=julday(1,1,1989)) & jpt=n_elements(time) 
     223time=timegen(7670, units='days', start=julday(1,1,1989))  
     224jpt=n_elements(time) 
    222225 
    223226cda0=string(jul2date(time(0)),format='(i8.8)') 
    224227cda1=string(jul2date(time(jpt-1)),format='(i8.8)') 
    225228 
    226 time=time-julday(1,1,1950) & jpt=n_elements(time) 
     229time=time-julday(1,1,1950)  
     230jpt=n_elements(time) 
    227231 
    228232ncfile='!' + fullfilename_out 

  • trunk/src/oaflux_mask_30n30s.pro

    r91 r94  
    147147; Read oaflux grid and mask 
    148148initncdf, fullfilename_in 
    149 lh=ncdf_lec(fullfilename_in,var='lhtfl',count=[jpi,jpj,1]) & lh=float(lh) 
     149lh=ncdf_lec(fullfilename_in,var='lhtfl',count=[jpi,jpj,1])  
     150lh=float(lh) 
    150151valmask=1.e20 
    151 ind=where(lh ge 32000,compl=nind) & lh(ind)=valmask & lh(nind)=-0.1*lh(nind) 
     152ind=where(lh ge 32000,compl=nind)  
     153lh(ind)=valmask  
     154lh(nind)=-0.1*lh(nind) 
    152155mask_out=(lh ne valmask) 
    153156domdef, 0.,360.,-30.,30. 

  • trunk/src/paper01/fig1/fig1_no_obs_map.pro

    r85 r94  
    112112 
    113113yr=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 
     114lh_mi=365/yr  
     115lh_ma=3285/yr  
     116lh_int=0.25 
     117sw_mi=365/yr  
     118sw_ma=3285/yr  
     119sw_int=0.25 
     120lw_mi=365/yr  
     121lw_ma=1460/yr  
     122lw_int=0.125 
    117123lct=65 
    118124 
    … …  
    129135no=reform(ff(2,*)) 
    130136no=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 
    132139 
    133140marge1=[0,0,-5,0] 
    … …  
    142149  y=lat[n] 
    143150  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 
    145154  col=((10+244*(c-cmi)/dc) > 10) < 254 
    146155  plots, x,y,psym=8,symsize=1.5,color=col 
    … …  
    164173no=reform(ff(2,*)) 
    165174no=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 
    167177marge1=[0,0,-5,0] 
    168178plt, .4+msk*1.e-5,realcont=2,/nocont,/nofill,xminor=1,yminor=1,box=box,lct=lct, sw_mi, sw_ma, int=sw_int, $ 
    … …  
    176186  y=lat[n] 
    177187  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 
    179191  col=((10+244*(c-cmi)/dc) > 10) < 254 
    180192  plots, x,y,psym=8,symsize=1.5,color=col 
    … …  
    198210no=reform(ff(2,*)) 
    199211no=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 
    201214 
    202215marge1=[0,0,-5,0] 
    … …  
    211224  y=lat[n] 
    212225  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 
    214229  col=((10+244*(c-cmi)/dc) > 10) < 254 
    215230  plots, x,y,psym=8,symsize=1.5,color=col 

  • trunk/src/paper01/fig10/fig10_swr_correction.pro

    r85 r94  
    101101 
    102102ab=linfit(mean, bias,yfit=yfit) 
    103 a=float(ab(0)) & b=float(ab(1)) 
     103a=float(ab(0))  
     104b=float(ab(1)) 
    104105oplot, mean, yfit, thick=3 
    105106print, a,b 
    … …  
    120121 
    121122ab=linfit(mean, std,yfit=yfit) 
    122 a=float(ab(0)) & b=float(ab(1)) 
     123a=float(ab(0))  
     124b=float(ab(1)) 
    123125oplot, mean, yfit, thick=3 
    124126 

  • trunk/src/paper01/fig11/swr_isccp_tropflux_correlation_fig10.pro

    r85 r94  
    105105 
    106106openps, FILENAME = project_od_env+'correlation_rmsd_olra_swra_smooth.ps' 
    107 st=19890101 & en=20071231 
     107st=19890101  
     108en=20071231 
    108109 
    109110restore, project_od_env + "correlation_isccp_olr.idl" 

  • trunk/src/paper01/fig11/swr_isccp_tropflux_new_v1.pro

    r85 r94  
    104104 
    105105openps, FILENAME = project_od_env+'correlation_rmsd_olra_swra_smooth.ps' 
    106 st=19890101 & en=20071231 
     106st=19890101  
     107en=20071231 
    107108 
    108109file=project_od_env+'swr_oafluxgrid_1985_2007.nc' 
    … …  
    132133nsmooth=45 
    133134 
    134 swi=[[[swi]],[[swi]],[[swi]]] & olri=[[[olri]],[[olri]],[[olri]]] 
    135 si=size(sw) & n1=si(1) & n2=si(2) 
     135swi=[[[swi]],[[swi]],[[swi]]]  
     136olri=[[[olri]],[[olri]],[[olri]]] 
     137si=size(sw)  
     138n1=si(1)  
     139n2=si(2) 
    136140 
    137141for j=0,n2-1 do begin 
    … …  
    144148endfor 
    145149 
    146 swi=swi[*,*,365:365+364] & olri=olri[*,*,365:365+364] 
     150swi=swi[*,*,365:365+364]  
     151olri=olri[*,*,365:365+364] 
    147152help, swi, olri 
    148153 
    149154caldat, time,mon,day,yea 
    150 swm=olr*0. & olrm=olr*0. 
     155swm=olr*0.  
     156olrm=olr*0. 
    151157for jt=0,jpt-1 do begin 
    152158  jtt=(time(jt)-julday(1,1,yea(jt))) < 364 
    … …  
    160166m=reform(sw_trop(*,*,0)) 
    161167tmask=finite(m) 
    162 cor_olr=fltarr(jpi,jpj)+!values.f_nan & rms_olr=fltarr(jpi,jpj)+!values.f_nan 
     168cor_olr=fltarr(jpi,jpj)+!values.f_nan  
     169rms_olr=fltarr(jpi,jpj)+!values.f_nan 
    163170 
    164171for jj=0,jpj-1 do begin 
    … …  
    177184endfor 
    178185 
    179 cor=fltarr(jpi,jpj)+!values.f_nan & rms=fltarr(jpi,jpj)+!values.f_nan 
     186cor=fltarr(jpi,jpj)+!values.f_nan  
     187rms=fltarr(jpi,jpj)+!values.f_nan 
    180188for jj=1,jpj-2 do begin 
    181189  for ji=1,jpi-2 do begin 
    … …  
    188196save, cor, cor_olr, filename=project_od_env + 'correlation_isccp_olr.idl' 
    189197 
    190 lct=64 & cs=0.9 
     198lct=64  
     199cs=0.9 
    191200marge1=[0,0,-5,0] 
    192201help, cor 

  • trunk/src/paper01/fig12/swr_statistics_map_2000_2009_v50.pro

    r85 r94  
    8282openps, FILENAME = project_od_env+'swr_statistics_map_2000_2009_v50.ps' 
    8383; 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 
     84bias_mi=-20  
     85bias_ma=20  
     86bias_int=2 
     87std_mi=0.7    
     88std_ma=1.31   
     89std_int=0.05 
     90rmsd_mi=10   
     91rmsd_ma=30  
     92rmsd_int=1.25 
     93cor_mi=0.5    
     94cor_ma=1.   
     95cor_int=0.02 
    8896fi_swr_erai=project_id_env+'swr_2000_2009_erai_v50.txt' 
    8997fi_swr_trop=project_id_env+'swr_2000_2009_trop_v50.txt' 
    … …  
    100108rmsd_era=reform(ff(5,*)) 
    101109 
    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 
     110ind=where(bias_era ge bias_ma)  
     111bias_era(ind)=bias_ma-0.5 
     112ind=where(rmsd_era ge rmsd_ma)  
     113rmsd_era(ind)=rmsd_ma-0.5 
    104114 
    105115res=read_ascii(fi_swr_trop,data_start=1) 
    … …  
    111121std_trop=reform(ff(4,*)) 
    112122rmsd_trop=reform(ff(5,*)) 
    113 ind=where(rmsd_trop ge rmsd_ma) & rmsd_trop(ind)=rmsd_ma-0.5 
     123ind=where(rmsd_trop ge rmsd_ma)  
     124rmsd_trop(ind)=rmsd_ma-0.5 
    114125 
    115126res=read_ascii(fi_swr_oaflx,data_start=1) 
    … …  
    121132std_oaflx=reform(ff(4,*)) 
    122133rmsd_oaflx=reform(ff(5,*)) 
    123 ind=where(rmsd_oaflx ge rmsd_ma) & rmsd_oaflx(ind)=rmsd_ma-0.5 
     134ind=where(rmsd_oaflx ge rmsd_ma)  
     135rmsd_oaflx(ind)=rmsd_ma-0.5 
    124136 
    125137res=read_ascii(fi_swr_olr,data_start=1) 
    … …  
    131143std_olr=reform(ff(4,*)) 
    132144rmsd_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 
     145ind=where(rmsd_olr ge rmsd_ma)  
     146rmsd_olr(ind)=rmsd_ma-0.5 
     147 
     148;ind=where(std_olr ge std_ma)  
     149;std_olr(ind)=std_ma-0.01 
    136150file=project_id_env+'longwave_IO_mask.nc' 
    137151initncdf, file 
    … …  
    152166  y=lat(n) 
    153167  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 
    155171  col=((10+244*(c-cmi)/dc) > 10) < 254 
    156172  plots, x,y,psym=8,symsize=1.5,color=col 
    … …  
    177193  y=lat(n) 
    178194  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 
    180198  col=((10+244*(c-cmi)/dc) > 10) < 254 
    181199  plots, x,y,psym=8,symsize=1.5,color=col 
    … …  
    202220  y=lat(n) 
    203221  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 
    205225  col=((10+244*(c-cmi)/dc) > 10) < 254 
    206226  plots, x,y,psym=8,symsize=1.5,color=col 
    … …  
    227247  y=lat(n) 
    228248  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 
    230252  col=((10+244*(c-cmi)/dc) > 10) < 254 
    231253  plots, x,y,psym=8,symsize=1.5,color=col 
    … …  
    255277  y=lat(n) 
    256278  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 
    258282  col=((10+244*(c-cmi)/dc) > 10) < 254 
    259283  plots, x,y,psym=8,symsize=1.5,color=col 
    … …  
    280304  y=lat(n) 
    281305  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 
    283309  col=((10+244*(c-cmi)/dc) > 10) < 254 
    284310  plots, x,y,psym=8,symsize=1.5,color=col 
    … …  
    307333  y=lat(n) 
    308334  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 
    310338  col=((10+244*(c-cmi)/dc) > 10) < 254 
    311339  plots, x,y,psym=8,symsize=1.5,color=col 
    … …  
    334362  y=lat(n) 
    335363  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 
    337367  col=((10+244*(c-cmi)/dc) > 10) < 254 
    338368  plots, x,y,psym=8,symsize=1.5,color=col 
    … …  
    363393  y=lat(n) 
    364394  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 
    366398  col=((10+244*(c-cmi)/dc) > 10) < 254 
    367399  plots, x,y,psym=8,symsize=1.5,color=col 
    … …  
    388420  y=lat(n) 
    389421  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 
    391425  col=((10+244*(c-cmi)/dc) > 10) < 254 
    392426  plots, x,y,psym=8,symsize=1.5,color=col 
    … …  
    413447  y=lat(n) 
    414448  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 
    416452  col=((10+244*(c-cmi)/dc) > 10) < 254 
    417453  plots, x,y,psym=8,symsize=1.5,color=col 
    … …  
    439475  y=lat(n) 
    440476  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 
    442480  col=((10+244*(c-cmi)/dc) > 10) < 254 
    443481  plots, x,y,psym=8,symsize=1.5,color=col 
    … …  
    465503  y=lat(n) 
    466504  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 
    468508  col=((10+244*(c-cmi)/dc) > 10) < 254 
    469509  plots, x,y,psym=8,symsize=1.5,color=col 
    … …  
    490530  y=lat(n) 
    491531  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 
    493535  col=((10+244*(c-cmi)/dc) > 10) < 254 
    494536  plots, x,y,psym=8,symsize=1.5,color=col 
    … …  
    516558  y=lat(n) 
    517559  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 
    519563  col=((10+244*(c-cmi)/dc) > 10) < 254 
    520564  plots, x,y,psym=8,symsize=1.5,color=col 
    … …  
    542586  y=lat(n) 
    543587  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 
    545591  col=((10+244*(c-cmi)/dc) > 10) < 254 
    546592  plots, x,y,psym=8,symsize=1.5,color=col 

  • trunk/src/paper01/fig13/net_flux_validation_scatter_2000_2007.pro

    r85 r94  
    134134jda2=date2jul(date2) 
    135135jpt=(jda2-jda1+1l) 
    136 time=jda1+dindgen(jpt) & tt=time 
     136time=jda1+dindgen(jpt)  
     137tt=time 
    137138 
    138139ocean='net_flux' 
    … …  
    172173lhf=read_ncdf("lhf", date1, date2, file=file_erai,/nostr) 
    173174lwr=read_ncdf("lwr", date1, date2, file=file_erai,/nostr) 
    174 swr=read_ncdf("swr", date1, date2, file=file_erai,/nostr) & swr=-1*swr 
     175swr=read_ncdf("swr", date1, date2, file=file_erai,/nostr)  
     176swr=-1*swr 
    175177erai=swr-(lwr+lhf+shf) 
    176178help, erai 
    … …  
    187189file_oaf=project_od_env+'swr_oafluxgrid_1985_2007.nc' 
    188190initncdf, file_oaf 
    189 swr=read_ncdf("swr", date1, date2, file=file_oaf,/nostr) & swr_trop=swr 
     191swr=read_ncdf("swr", date1, date2, file=file_oaf,/nostr)  
     192swr_trop=swr 
    190193oafl=swr-(lwr+lhf+shf) 
    191194help, oafl 
    … …  
    230233;; reading data from mooring 
    231234 
    232     site=sitelist(n) & csite=site 
     235    site=sitelist(n)  
     236    csite=site 
    233237    print, csite 
    234238    x=x_site_location(site) 
    235239    y=y_site_location(site) 
    236240    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] 
    238244 
    239245    read_variables_net_flux, csite,date1,date2,nsmooth, $ 
    240246         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) 
    242250 
    243251;; 
    … …  
    268276           tropdf=tropflux 
    269277 
    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) 
    272286 
    273287           mean_tao=total(tao,/nan)/n_elements(ind) 
    … …  
    304318mean_erai=mean_tao+bias_erai 
    305319 
    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) 
     320ind=where(finite(cor_erai))  
     321cor=total(cor_erai,/nan)/n_elements(ind) 
     322ind=where(finite(bias_erai))  
     323bias=total(bias_erai,/nan)/n_elements(ind) 
     324ind=where(finite(rmsd_erai))  
     325rmsd=total(rmsd_erai,/nan)/n_elements(ind) 
     326ind=where(finite(std_erai))  
     327std=total(std_erai,/nan)/n_elements(ind) 
    310328 
    311329print, '' 
    … …  
    319337xyouts, -40,-80, 'cor    bias    std    rmsd', charsize=1. 
    320338 
    321 x=mean_tao & y=mean_erai 
     339x=mean_tao  
     340y=mean_erai 
    322341ab=linfit(x,y,yfit=yfit) 
    323 a=float(ab(0)) & b=float(ab(1)) & print, a,b 
     342a=float(ab(0))  
     343b=float(ab(1))  
     344print, a,b 
    324345oplot, x, yfit, thick=2, color=250 
    325346oplot, [-100,200], [-100,200] 
    … …  
    336357mean_trop=mean_tao+bias_trop 
    337358 
    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) 
     359ind=where(finite(cor_trop))  
     360cor=total(cor_trop,/nan)/n_elements(ind) 
     361ind=where(finite(bias_trop))  
     362bias=total(bias_trop,/nan)/n_elements(ind) 
     363ind=where(finite(rmsd_trop))  
     364rmsd=total(rmsd_trop,/nan)/n_elements(ind) 
     365ind=where(finite(std_trop))  
     366std=total(std_trop,/nan)/n_elements(ind) 
    342367 
    343368print, '' 
    … …  
    351376xyouts, -40,-80, 'cor    bias    std    rmsd', charsize=1. 
    352377 
    353 x=mean_tao & y=mean_trop 
     378x=mean_tao  
     379y=mean_trop 
    354380ab=linfit(x,y,yfit=yfit) 
    355 a=float(ab(0)) & b=float(ab(1)) & print, a,b 
     381a=float(ab(0))  
     382b=float(ab(1))  
     383print, a,b 
    356384oplot, x, yfit, thick=2, color=250 
    357385oplot, [-100,200], [-100,200] 
    … …  
    368396mean_oaf=mean_tao+bias_oaf 
    369397 
    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) 
     398ind=where(finite(cor_oaf))  
     399cor=total(cor_oaf,/nan)/n_elements(ind) 
     400ind=where(finite(bias_oaf))  
     401bias=total(bias_oaf,/nan)/n_elements(ind) 
     402ind=where(finite(rmsd_oaf))  
     403rmsd=total(rmsd_oaf,/nan)/n_elements(ind) 
     404ind=where(finite(std_oaf))  
     405std=total(std_oaf,/nan)/n_elements(ind) 
    374406 
    375407print, '' 
    … …  
    380412splot, mean_tao, mean_oaf, charsize=1.1, title='NET_Flux - TAO Vs OAFlux', $ 
    381413     xrange=[-100,200], yrange=[-100,200], small=[2,3,3],/noer, psym=2, xmin=1,ymin=1 
    382 x=mean_tao & y=mean_oaf 
     414x=mean_tao  
     415y=mean_oaf 
    383416 
    384417xyouts, -50,-40, cstat, charsize=1. 
    … …  
    386419 
    387420ab=linfit(x,y,yfit=yfit) 
    388 a=float(ab(0)) & b=float(ab(1)) & print, a,b 
     421a=float(ab(0))  
     422b=float(ab(1))  
     423print, a,b 
    389424oplot, x, yfit, thick=2, color=250 
    390425oplot, [-100,200], [-100,200] 
    … …  
    401436mean_nce=mean_tao+bias_nce 
    402437 
    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) 
     438ind=where(finite(cor_nce))  
     439cor=total(cor_nce,/nan)/n_elements(ind) 
     440ind=where(finite(bias_nce))  
     441bias=total(bias_nce,/nan)/n_elements(ind) 
     442ind=where(finite(rmsd_nce))  
     443rmsd=total(rmsd_nce,/nan)/n_elements(ind) 
     444ind=where(finite(std_nce))  
     445std=total(std_nce,/nan)/n_elements(ind) 
    407446 
    408447print, '' 
    … …  
    416455xyouts, -40,-80, 'cor    bias    std    rmsd', charsize=1. 
    417456 
    418 x=mean_tao & y=mean_nce 
     457x=mean_tao  
     458y=mean_nce 
    419459ab=linfit(x,y,yfit=yfit) 
    420 a=float(ab(0)) & b=float(ab(1)) & print, a,b 
     460a=float(ab(0))  
     461b=float(ab(1))  
     462print, a,b 
    421463oplot, x, yfit, thick=2, color=250 
    422464oplot, [-100,200], [-100,200] 
    … …  
    433475mean_nce=mean_tao+bias_nce 
    434476 
    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) 
     477ind=where(finite(cor_nce))  
     478cor=total(cor_nce,/nan)/n_elements(ind) 
     479ind=where(finite(bias_nce))  
     480bias=total(bias_nce,/nan)/n_elements(ind) 
     481ind=where(finite(rmsd_nce))  
     482rmsd=total(rmsd_nce,/nan)/n_elements(ind) 
     483ind=where(finite(std_nce))  
     484std=total(std_nce,/nan)/n_elements(ind) 
    439485 
    440486print, '' 
    … …  
    448494xyouts, -40,-80, 'cor    bias    std    rmsd', charsize=1. 
    449495 
    450 x=mean_tao & y=mean_nce 
     496x=mean_tao  
     497y=mean_nce 
    451498ab=linfit(x,y,yfit=yfit) 
    452 a=float(ab(0)) & b=float(ab(1)) & print, a,b 
     499a=float(ab(0))  
     500b=float(ab(1))  
     501print, a,b 
    453502oplot, x, yfit, thick=2, color=250 
    454503oplot, [-100,200], [-100,200] 
    … …  
    465514mean_tropd=mean_tao+bias_tropd 
    466515 
    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) 
     516ind=where(finite(cor_tropd))  
     517cor=total(cor_tropd,/nan)/n_elements(ind) 
     518ind=where(finite(bias_tropd))  
     519bias=total(bias_tropd,/nan)/n_elements(ind) 
     520ind=where(finite(rmsd_tropd))  
     521rmsd=total(rmsd_tropd,/nan)/n_elements(ind) 
     522ind=where(finite(std_tropd))  
     523std=total(std_tropd,/nan)/n_elements(ind) 
    471524 
    472525print, '' 
    … …  
    480533xyouts, -40,-80, 'cor    bias    std    rmsd', charsize=1. 
    481534 
    482 x=mean_tao & y=mean_tropd 
     535x=mean_tao  
     536y=mean_tropd 
    483537ab=linfit(x,y,yfit=yfit) 
    484 a=float(ab(0)) & b=float(ab(1)) & print, a,b 
     538a=float(ab(0))  
     539b=float(ab(1))  
     540print, a,b 
    485541oplot, x, yfit, thick=2, color=250 
    486542oplot, [-100,200], [-100,200] 

  • trunk/src/paper01/fig14/as_validation_net_1994_95_v10.pro

    r85 r94  
    9595; partie a changer 
    9696asbox=[61,62,15,16] 
    97 date1=19941016 & date2=19951019 
     97date1=19941016  
     98date2=19951019 
    9899 
    99100fi=project_id_env+"met_data_as_expt_1994.txt" 
    … …  
    126127file=project_id_env+"erai_swr_19910101_20091231_oafluxgrid.nc" 
    127128initncdf, file 
    128 swr=read_ncdf('swr',date1,date2,file=file,/nostr, box=asbox) & swr=reform(swr) 
     129swr=read_ncdf('swr',date1,date2,file=file,/nostr, box=asbox)  
     130swr=reform(swr) 
    129131file=project_id_env+'erai_lwr_19890101_20091231_oafluxgrid.nc' 
    130132initncdf, file 
    131 lwr=read_ncdf('lwr',date1-1,date2,file=file,/nostr, box=asbox) & lwr=reform(lwr) 
     133lwr=read_ncdf('lwr',date1-1,date2,file=file,/nostr, box=asbox)  
     134lwr=reform(lwr) 
    132135file=project_id_env+'erai_shf_19890101_20091231_oafluxgrid.nc' 
    133136initncdf, file 
    134 shf=-1*read_ncdf('shf',date1,date2,file=file,/nostr, box=asbox) & shf=reform(shf) 
     137shf=-1*read_ncdf('shf',date1,date2,file=file,/nostr, box=asbox)  
     138shf=reform(shf) 
    135139file=project_id_env+'erai_lhf_19890101_20091231_oafluxgrid.nc' 
    136140initncdf, file 
    137 lhf=-1*read_ncdf('lhf',date1,date2,file=file,/nostr, box=asbox) & lhf=reform(lhf) 
     141lhf=-1*read_ncdf('lhf',date1,date2,file=file,/nostr, box=asbox)  
     142lhf=reform(lhf) 
    138143 
    139144era=swr+lwr+lhf+shf 
    … …  
    142147help, era 
    143148 
    144 swr=0. & lwr=0. & shf=0. & lhf=0. 
     149swr=0.  
     150lwr=0.  
     151shf=0.  
     152lhf=0. 
    145153 
    146154file=project_id_env+"TropFlux_19890101_20091231.nc" 
    147155initncdf, 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) 
     156swr=read_ncdf('swr',date1,date2,file=file,/nostr, box=asbox)  
     157swr=reform(swr) 
     158lwr=read_ncdf('lwr',date1,date2,file=file,/nostr, box=asbox)  
     159lwr=reform(lwr) 
     160shf=read_ncdf('shf',date1,date2,file=file,/nostr, box=asbox)  
     161shf=reform(shf) 
     162lhf=read_ncdf('lhf',date1,date2,file=file,/nostr, box=asbox)  
     163lhf=reform(lhf) 
    152164trop=swr+lwr+shf+lhf 
    153165help, trop 
    … …  
    155167file=project_id_env+"TropFlux_swr_19890101_20091231_NRT_v50.nc" 
    156168initncdf, file 
    157 olr1=read_ncdf("sw", date1-1, date2, file=file,/nostr, box=asbox) ;; & olr1=grossemoyenne(olr1, "xy",/nan, box=asbox) & 
     169olr1=read_ncdf("sw", date1-1, date2, file=file,/nostr, box=asbox) ;;  
     170olr1=grossemoyenne(olr1, "xy",/nan, box=asbox) 
    158171olr1=reform(olr1) 
    159172 
    160173olr=olr1+lwr+shf+lhf 
    161174 
    162 swr=0. & lwr=0. & shf=0. & lhf=0. & olr1=0. 
    163  
    164 trop=trop(ind) & olr=olr(ind) 
     175swr=0.  
     176lwr=0.  
     177shf=0.  
     178lhf=0.  
     179olr1=0. 
     180 
     181trop=trop(ind)  
     182olr=olr(ind) 
    165183help, trop, olr 
    166184 
    167185file=project_id_env+'swr_oafluxgrid_1985_2007.nc' 
    168186initncdf, file 
    169 swr=read_ncdf("swr", date1, date2, file=file,/nostr, box=asbox) & swr=reform(swr) 
     187swr=read_ncdf("swr", date1, date2, file=file,/nostr, box=asbox)  
     188swr=reform(swr) 
    170189 
    171190file=project_id_env+'lwr_oafluxgrid_1985_2007.nc' 
    172191initncdf, file 
    173 lwr=read_ncdf("lwr", date1, date2, file=file,/nostr, box=asbox) & lwr=-1*reform(lwr) 
     192lwr=read_ncdf("lwr", date1, date2, file=file,/nostr, box=asbox)  
     193lwr=-1*reform(lwr) 
    174194 
    175195file=project_id_env+'lhf_oafluxgrid_1985_2009.nc' 
    176196initncdf, file 
    177 lhf=read_ncdf("lhf", date1, date2, file=file,/nostr, box=asbox) & lhf=-1*reform(lhf) 
     197lhf=read_ncdf("lhf", date1, date2, file=file,/nostr, box=asbox)  
     198lhf=-1*reform(lhf) 
    178199 
    179200file=project_id_env+'shf_oafluxgrid_1985_2009.nc' 
    180201initncdf, file 
    181 shf=read_ncdf("shf", date1, date2, file=file,/nostr, box=asbox) & shf=-1*reform(shf) 
     202shf=read_ncdf("shf", date1, date2, file=file,/nostr, box=asbox)  
     203shf=-1*reform(shf) 
    182204 
    183205oaf=swr+lwr+shf+lhf 
    … …  
    185207help, oaf 
    186208 
    187 swr=0. & lwr=0. & shf=0. & lhf=0. 
     209swr=0.  
     210lwr=0.  
     211shf=0.  
     212lhf=0. 
    188213 
    189214fi=project_id_env+'swr_ncep2_oaflxgrid_19890101_20091231.nc' 
    190215initncdf, fi 
    191 swr=read_ncdf("swr", date1, date2, file=fi,/nostr, box=asbox) & swr=reform(swr) 
     216swr=read_ncdf("swr", date1, date2, file=fi,/nostr, box=asbox)  
     217swr=reform(swr) 
    192218 
    193219fi=project_id_env+"NCEP2_flux_19890101_20090729.nc" 
    194220initncdf, fi 
    195 lwr=read_ncdf("lwr", date1, date2, file=fi,/nostr, box=asbox) & lwr=grossemoyenne(lwr, "xy",/nan, box=asbox) & lwr=reform(lwr) 
     221lwr=read_ncdf("lwr", date1, date2, file=fi,/nostr, box=asbox)  
     222lwr=grossemoyenne(lwr, "xy",/nan, box=asbox)  
     223lwr=reform(lwr) 
    196224 
    197225lwr=-1*lwr 
    … …  
    199227fi=project_id_env+'lhf_ncep2_oafluxgrid_19890101_20091231.nc' 
    200228initncdf, fi 
    201 lhf=read_ncdf("lhf", date1, date2, file=fi,/nostr, box=asbox) & lhf=-1*reform(lhf) 
     229lhf=read_ncdf("lhf", date1, date2, file=fi,/nostr, box=asbox)  
     230lhf=-1*reform(lhf) 
    202231 
    203232fi=project_id_env+'shf_ncep2_oafluxgrid_19890101_20091231.nc' 
    204233initncdf, fi 
    205 shf=read_ncdf("shf", date1, date2, file=fi,/nostr, box=asbox) & shf=-1*reform(shf) 
     234shf=read_ncdf("shf", date1, date2, file=fi,/nostr, box=asbox)  
     235shf=-1*reform(shf) 
    206236 
    207237nce2=swr+lwr+shf+lhf 
    … …  
    210240nce2=nce2(ind) 
    211241help, nce2 
    212 swr=0. & lwr=0. & shf=0. & lhf=0. 
     242swr=0.  
     243lwr=0.  
     244shf=0.  
     245lhf=0. 
    213246 
    214247file=project_id_env+"ncep1_flux_19890101_20091231.nc" 
    215248initncdf, 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) 
     249swr=read_ncdf("swr", date1, date2, file=file,/nostr, box=asbox) 
     250swr=reform(swr) 
     251lwr=read_ncdf("lwr", date1, date2, file=file,/nostr, box=asbox)  
     252lwr=reform(lwr) 
     253lhf=read_ncdf("lhf", date1, date2, file=file,/nostr, box=asbox)  
     254lhf=reform(lhf) 
     255shf=read_ncdf("shf", date1, date2, file=file,/nostr, box=asbox)  
     256shf=reform(shf) 
    220257nce1=swr+lwr+shf+lhf 
    221258 
    … …  
    225262help, nce1 
    226263;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) 
    228270;olr=olr(ind) 
    229271 

  • trunk/src/paper01/fig14/coare_validation_net_1992_93_all_v10.pro

    r85 r94  
    111111net1=sw92_1+lw92_1+lh92_1+sh92_1 
    112112 
    113 st1=921111 & en1=921203 
     113st1=921111  
     114en1=921203 
    114115 
    115116;; second leg 
    … …  
    126127 
    127128;; start data - 17/12/92 and end date 31/12/92 
    128 st2=19921217 & en2=19921231 
     129st2=19921217  
     130en2=19921231 
    129131 
    130132;; third leg 
    … …  
    141143 
    142144;; start data - 01/01/93 and end date 11/01/93 
    143 st3=19930101 & en3=19930111 
     145st3=19930101  
     146en3=19930111 
    144147 
    145148;; fourth leg 
    … …  
    156159 
    157160;; start data - 28/01/93 and end date 16/02/93 
    158 st4=19930128 & en4=19930216 
     161st4=19930128  
     162en4=19930216 
    159163 
    160164net=[net1, net2, net3, net4] 
    … …  
    163167;; reading other data sets 
    164168 
    165 st1=19921111 & en1=19921203 
    166 st2=19921217 & en2=19921231 
    167 st3=19930101 & en3=19930111 
    168 st4=19930128 & en4=19930216 
     169st1=19921111  
     170en1=19921203 
     171st2=19921217  
     172en2=19921231 
     173st3=19930101  
     174en3=19930111 
     175st4=19930128  
     176en4=19930216 
    169177 
    170178file=project_id_env+"erai_swr_19910101_20091231_oafluxgrid.nc" 
    171179initncdf, 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) 
     180swr1=read_ncdf('swr',st1,en1,file=file,/nostr, box=box)  
     181swr1=grossemoyenne(swr1, "xy", box=box,/nan)  
     182swr1=reform(swr1) 
     183swr2=read_ncdf('swr',st2,en2,file=file,/nostr, box=box)  
     184swr2=grossemoyenne(swr2, "xy", box=box,/nan)  
     185swr2=reform(swr2) 
     186swr3=read_ncdf('swr',st3,en3,file=file,/nostr, box=box)  
     187swr3=grossemoyenne(swr3, "xy", box=box,/nan)  
     188swr3=reform(swr3) 
     189swr4=read_ncdf('swr',st4,en4,file=file,/nostr, box=box)  
     190swr4=grossemoyenne(swr4, "xy", box=box,/nan)  
     191swr4=reform(swr4) 
    176192 
    177193file=project_id_env+'erai_lwr_19890101_20091231_oafluxgrid.nc' 
    178194initncdf, 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) 
     195lwr1=read_ncdf('lwr',st1-1,en1,file=file,/nostr, box=box)  
     196lwr1=grossemoyenne(lwr1, "xy", box=box,/nan)  
     197lwr1=reform(lwr1) 
     198lwr2=read_ncdf('lwr',st2-1,en2,file=file,/nostr, box=box)  
     199lwr2=grossemoyenne(lwr2, "xy", box=box,/nan)  
     200lwr2=reform(lwr2) 
     201lwr3=read_ncdf('lwr',st3-1,en3,file=file,/nostr, box=box)  
     202lwr3=grossemoyenne(lwr3, "xy", box=box,/nan)  
     203lwr3=reform(lwr3) 
     204lwr4=read_ncdf('lwr',st4-1,en4,file=file,/nostr, box=box)  
     205lwr4=grossemoyenne(lwr4, "xy", box=box,/nan)  
     206lwr4=reform(lwr4) 
    183207 
    184208file=project_id_env+'erai_lhf_19890101_20091231_oafluxgrid.nc' 
    185209initncdf, 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) 
     210lhf1=-1*read_ncdf('lhf',st1,en1,file=file,/nostr, box=box)  
     211lhf1=grossemoyenne(lhf1, "xy", box=box,/nan)  
     212lhf1=reform(lhf1) 
     213lhf2=-1*read_ncdf('lhf',st2,en2,file=file,/nostr, box=box)  
     214lhf2=grossemoyenne(lhf2, "xy", box=box,/nan)  
     215lhf2=reform(lhf2) 
     216lhf3=-1*read_ncdf('lhf',st3,en3,file=file,/nostr, box=box)  
     217lhf3=grossemoyenne(lhf3, "xy", box=box,/nan)  
     218lhf3=reform(lhf3) 
     219lhf4=-1*read_ncdf('lhf',st4,en4,file=file,/nostr, box=box)  
     220lhf4=grossemoyenne(lhf4, "xy", box=box,/nan)  
     221lhf4=reform(lhf4) 
    190222 
    191223file=project_id_env+'erai_shf_19890101_20091231_oafluxgrid.nc' 
    192224initncdf, 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 
     225shf1=-1*read_ncdf('shf',st1,en1,file=file,/nostr, box=box)  
     226shf1=grossemoyenne(shf1, "xy", box=box,/nan)  
     227shf1=reform(shf1) 
     228shf2=-1*read_ncdf('shf',st2,en2,file=file,/nostr, box=box)  
     229shf2=grossemoyenne(shf2, "xy", box=box,/nan)  
     230shf2=reform(shf2) 
     231shf3=-1*read_ncdf('shf',st3,en3,file=file,/nostr, box=box)  
     232shf3=grossemoyenne(shf3, "xy", box=box,/nan)  
     233shf3=reform(shf3) 
     234shf4=-1*read_ncdf('shf',st4,en4,file=file,/nostr, box=box)  
     235shf4=grossemoyenne(shf4, "xy", box=box,/nan)  
     236shf4=reform(shf4) 
     237 
     238net1=swr1+lwr1+lhf1+shf1  
     239net2=swr2+lwr2+lhf2+shf2 
     240net3=swr3+lwr3+lhf3+shf3  
     241net4=swr4+lwr4+lhf4+shf4 
    200242era=[net1,net2,net3,net4] 
    201243 
    202244help, 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 
     245swr1=0  
     246swr2=0  
     247swr3=0  
     248swr4=0  
     249lwr1=0  
     250lwr2=0  
     251lwr3=0  
     252lwr4=0 
     253lhf1=0  
     254lhf2=0  
     255lhf3=0  
     256lhf4=0  
     257shf1=0  
     258shf2=0  
     259shf3=0  
     260shf4=0 
     261net1=0  
     262net2=0  
     263net3=0  
     264net4=0 
    206265 
    207266file=project_id_env+"TropFlux_19890101_20091231.nc" 
    208267initncdf, 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 
     268swr1=read_ncdf('swr',st1,en1,file=file,/nostr, box=box)  
     269swr1=grossemoyenne(swr1, "xy",/nan, box=box)  
     270swr1=reform(swr1) 
     271swr2=read_ncdf('swr',st2,en2,file=file,/nostr, box=box)  
     272swr2=grossemoyenne(swr2, "xy",/nan, box=box)  
     273swr2=reform(swr2) 
     274swr3=read_ncdf('swr',st3,en3,file=file,/nostr, box=box)  
     275swr3=grossemoyenne(swr3, "xy",/nan, box=box)  
     276swr3=reform(swr3) 
     277swr4=read_ncdf('swr',st4,en4,file=file,/nostr, box=box)  
     278swr4=grossemoyenne(swr4, "xy",/nan, box=box)  
     279swr4=reform(swr4) 
     280 
     281lwr1=read_ncdf('lwr',st1,en1,file=file,/nostr, box=box)  
     282lwr1=grossemoyenne(lwr1, "xy",/nan, box=box)  
     283lwr1=reform(lwr1) 
     284lwr2=read_ncdf('lwr',st2,en2,file=file,/nostr, box=box)  
     285lwr2=grossemoyenne(lwr2, "xy",/nan, box=box)  
     286lwr2=reform(lwr2) 
     287lwr3=read_ncdf('lwr',st3,en3,file=file,/nostr, box=box)  
     288lwr3=grossemoyenne(lwr3, "xy",/nan, box=box)  
     289lwr3=reform(lwr3) 
     290lwr4=read_ncdf('lwr',st4,en4,file=file,/nostr, box=box)  
     291lwr4=grossemoyenne(lwr4, "xy",/nan, box=box)  
     292lwr4=reform(lwr4) 
     293 
     294lhf1=read_ncdf('lhf',st1,en1,file=file,/nostr, box=box)  
     295lhf1=grossemoyenne(lhf1, "xy",/nan, box=box)  
     296lhf1=reform(lhf1) 
     297lhf2=read_ncdf('lhf',st2,en2,file=file,/nostr, box=box)  
     298lhf2=grossemoyenne(lhf2, "xy",/nan, box=box)  
     299lhf2=reform(lhf2) 
     300lhf3=read_ncdf('lhf',st3,en3,file=file,/nostr, box=box)  
     301lhf3=grossemoyenne(lhf3, "xy",/nan, box=box)  
     302lhf3=reform(lhf3) 
     303lhf4=read_ncdf('lhf',st4,en4,file=file,/nostr, box=box)  
     304lhf4=grossemoyenne(lhf4, "xy",/nan, box=box)  
     305lhf4=reform(lhf4) 
     306 
     307shf1=read_ncdf('shf',st1,en1,file=file,/nostr, box=box)  
     308shf1=grossemoyenne(shf1, "xy",/nan, box=box)  
     309shf1=reform(shf1) 
     310shf2=read_ncdf('shf',st2,en2,file=file,/nostr, box=box)  
     311shf2=grossemoyenne(shf2, "xy",/nan, box=box)  
     312shf2=reform(shf2) 
     313shf3=read_ncdf('shf',st3,en3,file=file,/nostr, box=box)  
     314shf3=grossemoyenne(shf3, "xy",/nan, box=box)  
     315shf3=reform(shf3) 
     316shf4=read_ncdf('shf',st4,en4,file=file,/nostr, box=box)  
     317shf4=grossemoyenne(shf4, "xy",/nan, box=box)  
     318shf4=reform(shf4) 
     319 
     320net1=swr1+lwr1+lhf1+shf1  
     321net2=swr2+lwr2+lhf2+shf2 
     322net3=swr3+lwr3+lhf3+shf3  
     323net4=swr4+lwr4+lhf4+shf4 
    231324 
    232325file=project_id_env+"TropFlux_swr_19890101_20091231_NRT_v50.nc" 
    233326initncdf, 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 
     327olr1=read_ncdf("sw", st1-1, en1, file=file,/nostr, box=box)  
     328olr1=grossemoyenne(olr1, "xy",/nan, box=box)  
     329olr1=reform(olr1) 
     330olr2=read_ncdf("sw", st2-1, en2, file=file,/nostr, box=box)  
     331olr2=grossemoyenne(olr2, "xy",/nan, box=box)  
     332olr2=reform(olr2) 
     333olr3=read_ncdf("sw", st3-1, en3, file=file,/nostr, box=box)  
     334olr3=grossemoyenne(olr3, "xy",/nan, box=box)  
     335olr3=reform(olr3) 
     336olr4=read_ncdf("sw", st4-1, en4, file=file,/nostr, box=box)  
     337olr4=grossemoyenne(olr4, "xy",/nan, box=box)  
     338olr4=reform(olr4) 
     339 
     340neto_1=olr1+lwr1+lhf1+shf1  
     341neto_2=olr2+lwr2+lhf2+shf2 
     342neto_3=olr3+lwr3+lhf3+shf3  
     343neto_4=olr4+lwr4+lhf4+shf4 
    241344 
    242345trop=[net1,net2,net3,net4] 
    … …  
    244347help, trop, olr 
    245348 
    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 
     349swr1=0  
     350swr2=0  
     351swr3=0  
     352swr4=0  
     353lwr1=0  
     354lwr2=0  
     355lwr3=0  
     356lwr4=0 
     357lhf1=0  
     358lhf2=0  
     359lhf3=0  
     360lhf4=0  
     361shf1=0  
     362shf2=0  
     363shf3=0  
     364shf4=0 
     365net1=0  
     366net2=0  
     367net3=0  
     368net4=0  
     369neto_1=0  
     370neto_2=0  
     371neto_3=0  
     372neto_4=0 
    249373 
    250374file=project_id_env+'swr_oafluxgrid_1985_2007.nc' 
    251375initncdf, 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) 
     376swr1=read_ncdf("swr", st1, en1, file=file,/nostr, box=box)  
     377swr1=grossemoyenne(swr1, "xy",/nan, box=box)  
     378swr1=reform(swr1) 
     379swr2=read_ncdf("swr", st2, en2, file=file,/nostr, box=box)  
     380swr2=grossemoyenne(swr2, "xy",/nan, box=box)  
     381swr2=reform(swr2) 
     382swr3=read_ncdf("swr", st3, en3, file=file,/nostr, box=box)  
     383swr3=grossemoyenne(swr3, "xy",/nan, box=box)  
     384swr3=reform(swr3) 
     385swr4=read_ncdf("swr", st4, en4, file=file,/nostr, box=box)  
     386swr4=grossemoyenne(swr4, "xy",/nan, box=box)  
     387swr4=reform(swr4) 
    256388 
    257389file=project_id_env+'lwr_oafluxgrid_1985_2007.nc' 
    258390initncdf, 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) 
     391lwr1=-1*read_ncdf("lwr", st1, en1, file=file,/nostr, box=box)  
     392lwr1=grossemoyenne(lwr1, "xy",/nan, box=box)  
     393lwr1=reform(lwr1) 
     394lwr2=-1*read_ncdf("lwr", st2, en2, file=file,/nostr, box=box)  
     395lwr2=grossemoyenne(lwr2, "xy",/nan, box=box)  
     396lwr2=reform(lwr2) 
     397lwr3=-1*read_ncdf("lwr", st3, en3, file=file,/nostr, box=box)  
     398lwr3=grossemoyenne(lwr3, "xy",/nan, box=box)  
     399lwr3=reform(lwr3) 
     400lwr4=-1*read_ncdf("lwr", st4, en4, file=file,/nostr, box=box)  
     401lwr4=grossemoyenne(lwr4, "xy",/nan, box=box)  
     402lwr4=reform(lwr4) 
    263403 
    264404file=project_id_env+'lhf_oafluxgrid_1985_2009.nc' 
    265405initncdf, 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) 
     406lhf1=-1*read_ncdf("lhf", st1, en1, file=file,/nostr, box=box)  
     407lhf1=grossemoyenne(lhf1, "xy",/nan, box=box)  
     408lhf1=reform(lhf1) 
     409lhf2=-1*read_ncdf("lhf", st2, en2, file=file,/nostr, box=box)  
     410lhf2=grossemoyenne(lhf2, "xy",/nan, box=box)  
     411lhf2=reform(lhf2) 
     412lhf3=-1*read_ncdf("lhf", st3, en3, file=file,/nostr, box=box)  
     413lhf3=grossemoyenne(lhf3, "xy",/nan, box=box) 
     414lhf3=reform(lhf3) 
     415lhf4=-1*read_ncdf("lhf", st4, en4, file=file,/nostr, box=box)  
     416lhf4=grossemoyenne(lhf4, "xy",/nan, box=box)  
     417lhf4=reform(lhf4) 
    270418 
    271419file=project_id_env+'shf_oafluxgrid_1985_2009.nc' 
    272420initncdf, 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 
     421shf1=-1*read_ncdf("shf", st1, en1, file=file,/nostr, box=box)  
     422shf1=grossemoyenne(shf1, "xy",/nan, box=box)  
     423shf1=reform(shf1) 
     424shf2=-1*read_ncdf("shf", st2, en2, file=file,/nostr, box=box)  
     425shf2=grossemoyenne(shf2, "xy",/nan, box=box)  
     426shf2=reform(shf2) 
     427shf3=-1*read_ncdf("shf", st3, en3, file=file,/nostr, box=box)  
     428shf3=grossemoyenne(shf3, "xy",/nan, box=box)  
     429shf3=reform(shf3) 
     430shf4=-1*read_ncdf("shf", st4, en4, file=file,/nostr, box=box)  
     431shf4=grossemoyenne(shf4, "xy",/nan, box=box)  
     432shf4=reform(shf4) 
     433 
     434net1=swr1+lwr1+lhf1+shf1  
     435net2=swr2+lwr2+lhf2+shf2 
     436net3=swr3+lwr3+lhf3+shf3  
     437net4=swr4+lwr4+lhf4+shf4 
    280438 
    281439oaf=[net1,net2,net3,net4] 
    282440 
    283441help, 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 
     442swr1=0  
     443swr2=0  
     444swr3=0  
     445swr4=0  
     446lwr1=0  
     447lwr2=0  
     448lwr3=0  
     449lwr4=0 
     450lhf1=0  
     451lhf2=0  
     452lhf3=0  
     453lhf4=0  
     454shf1=0  
     455shf2=0  
     456shf3=0 
     457shf4=0 
     458net1=0  
     459net2=0  
     460net3=0  
     461net4=0 
    287462 
    288463fi=project_id_env+'swr_ncep2_oaflxgrid_19890101_20091231.nc' 
    289464initncdf, 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) 
     465swr1=read_ncdf("swr", st1, en1, file=fi,/nostr, box=box)  
     466swr1=grossemoyenne(swr1, "xy",/nan, box=box)  
     467swr1=reform(swr1) 
     468swr2=read_ncdf("swr", st2, en2, file=fi,/nostr, box=box)  
     469swr2=grossemoyenne(swr2, "xy",/nan, box=box)  
     470swr2=reform(swr2) 
     471swr3=read_ncdf("swr", st3, en3, file=fi,/nostr, box=box)  
     472swr3=grossemoyenne(swr3, "xy",/nan, box=box)  
     473swr3=reform(swr3) 
     474swr4=read_ncdf("swr", st4, en4, file=fi,/nostr, box=box)  
     475swr4=grossemoyenne(swr4, "xy",/nan, box=box)  
     476swr4=reform(swr4) 
    294477 
    295478fi=project_id_env+"NCEP2_flux_19890101_20090729.nc" 
    296479initncdf, 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) 
     480lwr1=-1*read_ncdf("lwr", st1, en1, file=fi,/nostr, box=box)  
     481lwr1=grossemoyenne(lwr1, "xy",/nan, box=box)  
     482lwr1=reform(lwr1) 
     483lwr2=-1*read_ncdf("lwr", st2, en2, file=fi,/nostr, box=box)  
     484lwr2=grossemoyenne(lwr2, "xy",/nan, box=box)  
     485lwr2=reform(lwr2) 
     486lwr3=-1*read_ncdf("lwr", st3, en3, file=fi,/nostr, box=box)  
     487lwr3=grossemoyenne(lwr3, "xy",/nan, box=box)  
     488lwr3=reform(lwr3) 
     489lwr4=-1*read_ncdf("lwr", st4, en4, file=fi,/nostr, box=box)  
     490lwr4=grossemoyenne(lwr4, "xy",/nan, box=box)  
     491lwr4=reform(lwr4) 
    301492 
    302493fi=project_id_env+'lhf_ncep2_oafluxgrid_19890101_20091231.nc' 
    303494initncdf, 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) 
     495lhf1=-1*read_ncdf("lhf", st1, en1, file=fi,/nostr, box=box)  
     496lhf1=grossemoyenne(lhf1, "xy",/nan, box=box)  
     497lhf1=reform(lhf1) 
     498lhf2=-1*read_ncdf("lhf", st2, en2, file=fi,/nostr, box=box)  
     499lhf2=grossemoyenne(lhf2, "xy",/nan, box=box)  
     500lhf2=reform(lhf2) 
     501lhf3=-1*read_ncdf("lhf", st3, en3, file=fi,/nostr, box=box)  
     502lhf3=grossemoyenne(lhf3, "xy",/nan, box=box)  
     503lhf3=reform(lhf3) 
     504lhf4=-1*read_ncdf("lhf", st4, en4, file=fi,/nostr, box=box)  
     505lhf4=grossemoyenne(lhf4, "xy",/nan, box=box)  
     506lhf4=reform(lhf4) 
    308507 
    309508fi=project_id_env+'shf_ncep2_oafluxgrid_19890101_20091231.nc' 
    310509initncdf, 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 
     510shf1=-1*read_ncdf("shf", st1, en1, file=fi,/nostr, box=box)  
     511shf1=grossemoyenne(shf1, "xy",/nan, box=box)  
     512shf1=reform(shf1) 
     513shf2=-1*read_ncdf("shf", st2, en2, file=fi,/nostr, box=box)  
     514shf2=grossemoyenne(shf2, "xy",/nan, box=box)  
     515shf2=reform(shf2) 
     516shf3=-1*read_ncdf("shf", st3, en3, file=fi,/nostr, box=box)  
     517shf3=grossemoyenne(shf3, "xy",/nan, box=box)  
     518shf3=reform(shf3) 
     519shf4=-1*read_ncdf("shf", st4, en4, file=fi,/nostr, box=box)  
     520shf4=grossemoyenne(shf4, "xy",/nan, box=box)  
     521shf4=reform(shf4) 
     522 
     523net1=swr1+lwr1+lhf1+shf1  
     524net2=swr2+lwr2+lhf2+shf2 
     525net3=swr3+lwr3+lhf3+shf3  
     526net4=swr4+lwr4+lhf4+shf4 
    318527 
    319528nce2=[net1,net2,net3,net4] 
    320529 
    321530help, 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 
     531swr1=0  
     532swr2=0  
     533swr3=0  
     534swr4=0  
     535lwr1=0  
     536lwr2=0  
     537lwr3=0  
     538lwr4=0 
     539lhf1=0  
     540lhf2=0  
     541lhf3=0  
     542lhf4=0  
     543shf1=0  
     544shf2=0  
     545shf3=0  
     546shf4=0 
     547net1=0  
     548net2=0  
     549net3=0  
     550net4=0 
    325551 
    326552file=project_id_env+"ncep1_flux_19890101_20091231.nc" 
    327553initncdf, 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 
     554swr1=read_ncdf("swr", st1, en1, file=file,/nostr, box=box)  
     555swr1=grossemoyenne(swr1, "xy",/nan, box=box)  
     556swr1=reform(swr1) 
     557swr2=read_ncdf("swr", st2, en2, file=file,/nostr, box=box)  
     558swr2=grossemoyenne(swr2, "xy",/nan, box=box)  
     559swr2=reform(swr2) 
     560swr3=read_ncdf("swr", st3, en3, file=file,/nostr, box=box)  
     561swr3=grossemoyenne(swr3, "xy",/nan, box=box)  
     562swr3=reform(swr3) 
     563swr4=read_ncdf("swr", st4, en4, file=file,/nostr, box=box)  
     564swr4=grossemoyenne(swr4, "xy",/nan, box=box)  
     565swr4=reform(swr4) 
     566 
     567lwr1=read_ncdf("lwr", st1, en1, file=file,/nostr, box=box)  
     568lwr1=grossemoyenne(lwr1, "xy",/nan, box=box)  
     569lwr1=reform(lwr1) 
     570lwr2=read_ncdf("lwr", st2, en2, file=file,/nostr, box=box)  
     571lwr2=grossemoyenne(lwr2, "xy",/nan, box=box)  
     572lwr2=reform(lwr2) 
     573lwr3=read_ncdf("lwr", st3, en3, file=file,/nostr, box=box)  
     574lwr3=grossemoyenne(lwr3, "xy",/nan, box=box)  
     575lwr3=reform(lwr3) 
     576lwr4=read_ncdf("lwr", st4, en4, file=file,/nostr, box=box)  
     577lwr4=grossemoyenne(lwr4, "xy",/nan, box=box)  
     578lwr4=reform(lwr4) 
     579 
     580lhf1=read_ncdf("lhf", st1, en1, file=file,/nostr, box=box)  
     581lhf1=grossemoyenne(lhf1, "xy",/nan, box=box)  
     582lhf1=reform(lhf1) 
     583lhf2=read_ncdf("lhf", st2, en2, file=file,/nostr, box=box)  
     584lhf2=grossemoyenne(lhf2, "xy",/nan, box=box)  
     585lhf2=reform(lhf2) 
     586lhf3=read_ncdf("lhf", st3, en3, file=file,/nostr, box=box)  
     587lhf3=grossemoyenne(lhf3, "xy",/nan, box=box)  
     588lhf3=reform(lhf3) 
     589lhf4=read_ncdf("lhf", st4, en4, file=file,/nostr, box=box)  
     590lhf4=grossemoyenne(lhf4, "xy",/nan, box=box)  
     591lhf4=reform(lhf4) 
     592 
     593shf1=read_ncdf("shf", st1, en1, file=file,/nostr, box=box)  
     594shf1=grossemoyenne(shf1, "xy",/nan, box=box)  
     595shf1=reform(shf1) 
     596shf2=read_ncdf("shf", st2, en2, file=file,/nostr, box=box)  
     597shf2=grossemoyenne(shf2, "xy",/nan, box=box)  
     598shf2=reform(shf2) 
     599shf3=read_ncdf("shf", st3, en3, file=file,/nostr, box=box)  
     600shf3=grossemoyenne(shf3, "xy",/nan, box=box)  
     601shf3=reform(shf3) 
     602shf4=read_ncdf("shf", st4, en4, file=file,/nostr, box=box)  
     603shf4=grossemoyenne(shf4, "xy",/nan, box=box)  
     604shf4=reform(shf4) 
     605 
     606net1=swr1+lwr1+lhf1+shf1  
     607net2=swr2+lwr2+lhf2+shf2 
     608net3=swr3+lwr3+lhf3+shf3  
     609net4=swr4+lwr4+lhf4+shf4 
     610 
     611nce1=[net1,net2,net3,net4]  
     612nce1=nce1 
    352613 
    353614help, 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 
     615swr1=0  
     616swr2=0  
     617swr3=0  
     618swr4=0  
     619lwr1=0  
     620lwr2=0  
     621lwr3=0  
     622lwr4=0 
     623lhf1=0  
     624lhf2=0  
     625lhf3=0  
     626lhf4=0  
     627shf1=0  
     628shf2=0  
     629shf3=0  
     630shf4=0 
     631net1=0  
     632net2=0  
     633net3=0  
     634net4=0 
    357635 
    358636ind=where(finite(net)) 
    359 net=net(ind) & era=era(ind) & trop=trop(ind) & oaf=oaf(ind) & nce1=nce1(ind) & nce2=nce2(ind) 
     637net=net(ind)  
     638era=era(ind) 
     639trop=trop(ind)  
     640oaf=oaf(ind)  
     641nce1=nce1(ind)  
     642nce2=nce2(ind) 
    360643olr=olr(ind) 
    361644 

  • trunk/src/paper01/fig14/stratus_validation_net_2001_2002_all_v10.pro

    r85 r94  
    117117;; reading other data sets 
    118118 
    119 st1=20011019 & en1=20021022 
     119st1=20011019  
     120en1=20021022 
    120121 
    121122file=project_id_env+"erai_swr_19910101_20091231_oafluxgrid.nc" 
    122123initncdf, file 
    123 swr=read_ncdf('swr',st1,en1,file=file,/nostr, box=box) & swr=grossemoyenne(swr, "xy", box=box,/nan) & swr=reform(swr) 
     124swr=read_ncdf('swr',st1,en1,file=file,/nostr, box=box)  
     125swr=grossemoyenne(swr, "xy", box=box,/nan)  
     126swr=reform(swr) 
    124127file=project_id_env+'erai_lwr_19890101_20091231_oafluxgrid.nc' 
    125128initncdf, file 
    126 lwr=read_ncdf('lwr',st1-1,en1,file=file,/nostr, box=box) & lwr=reform(lwr) 
     129lwr=read_ncdf('lwr',st1-1,en1,file=file,/nostr, box=box)  
     130lwr=reform(lwr) 
    127131file=project_id_env+'erai_shf_19890101_20091231_oafluxgrid.nc' 
    128132initncdf, file 
    129 shf=-1*read_ncdf('shf',st1,en1,file=file,/nostr, box=box) & shf=reform(shf) 
     133shf=-1*read_ncdf('shf',st1,en1,file=file,/nostr, box=box)  
     134shf=reform(shf) 
    130135file=project_id_env+'erai_lhf_19890101_20091231_oafluxgrid.nc' 
    131136initncdf, file 
    132 lhf=-1*read_ncdf('lhf',st1,en1,file=file,/nostr, box=box) & lhf=reform(lhf) 
     137lhf=-1*read_ncdf('lhf',st1,en1,file=file,/nostr, box=box)  
     138lhf=reform(lhf) 
    133139 
    134140era=swr+lwr+lhf+shf 
    135141help, era 
    136142 
    137 swr=0 & lwr=0 & lhf=0 & shf=0 
     143swr=0  
     144lwr=0  
     145lhf=0  
     146shf=0 
    138147 
    139148file=project_id_env+"TropFlux_19890101_20091231.nc" 
    140149initncdf, 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) 
     150swr=read_ncdf('swr',st1,en1,file=file,/nostr, box=box)  
     151swr=grossemoyenne(swr, "xy",/nan, box=box)  
     152swr=reform(swr) 
     153lwr=read_ncdf('lwr',st1,en1,file=file,/nostr, box=box)  
     154lwr=grossemoyenne(lwr, "xy",/nan, box=box)  
     155lwr=reform(lwr) 
     156shf=read_ncdf('shf',st1,en1,file=file,/nostr, box=box)  
     157shf=grossemoyenne(shf, "xy",/nan, box=box)  
     158shf=reform(shf) 
     159lhf=read_ncdf('lhf',st1,en1,file=file,/nostr, box=box)  
     160lhf=grossemoyenne(lhf, "xy",/nan, box=box)  
     161lhf=reform(lhf) 
    145162 
    146163file=project_id_env+"TropFlux_swr_19890101_20091231_NRT_v50.nc" 
    147164initncdf, file 
    148 olr1=read_ncdf("sw", st1-1, en1, file=file,/nostr, box=box) & olr1=grossemoyenne(olr1, "xy",/nan, box=box) & olr1=reform(olr1) 
     165olr1=read_ncdf("sw", st1-1, en1, file=file,/nostr, box=box)  
     166olr1=grossemoyenne(olr1, "xy",/nan, box=box)  
     167olr1=reform(olr1) 
    149168 
    150169trop=swr+lwr+shf+lhf 
    151170olr=olr1+lwr+shf+lhf 
    152171help, trop, olr 
    153 swr=0 & lwr=0 & lhf=0 & shf=0 & olr1=0 
     172swr=0  
     173lwr=0  
     174lhf=0  
     175shf=0  
     176olr1=0 
    154177 
    155178file=project_id_env+'swr_oafluxgrid_1985_2007.nc' 
    156179initncdf, file 
    157 swr=read_ncdf("swr", st1, en1, file=file,/nostr, box=box) & swr=grossemoyenne(swr, "xy",/nan, box=box) & swr=reform(swr) 
     180swr=read_ncdf("swr", st1, en1, file=file,/nostr, box=box)  
     181swr=grossemoyenne(swr, "xy",/nan, box=box)  
     182swr=reform(swr) 
    158183 
    159184file=project_id_env+'lwr_oafluxgrid_1985_2007.nc' 
    160185initncdf, file 
    161 lwr=read_ncdf("lwr", st1, en1, file=file,/nostr, box=box) & lwr=-1*reform(lwr) 
     186lwr=read_ncdf("lwr", st1, en1, file=file,/nostr, box=box)  
     187lwr=-1*reform(lwr) 
    162188 
    163189file=project_id_env+'lhf_oafluxgrid_1985_2009.nc' 
    164190initncdf, file 
    165 lhf=read_ncdf("lhf", st1, en1, file=file,/nostr, box=box) & lhf=-1*reform(lhf) 
     191lhf=read_ncdf("lhf", st1, en1, file=file,/nostr, box=box)  
     192lhf=-1*reform(lhf) 
    166193 
    167194file=project_id_env+'shf_oafluxgrid_1985_2009.nc' 
    168195initncdf, file 
    169 shf=read_ncdf("shf", st1, en1, file=file,/nostr, box=box) & shf=-1*reform(shf) 
     196shf=read_ncdf("shf", st1, en1, file=file,/nostr, box=box)  
     197shf=-1*reform(shf) 
    170198 
    171199oaf=swr+lwr+shf+lhf 
    172200help, oaf 
    173 swr=0 & lwr=0 & lhf=0 & shf=0 
     201swr=0  
     202lwr=0  
     203lhf=0  
     204shf=0 
    174205 
    175206fi=project_id_env+'swr_ncep2_oaflxgrid_19890101_20091231.nc' 
    176207initncdf, fi 
    177 swr=read_ncdf("swr", st1, en1, file=fi,/nostr, box=box) & swr=grossemoyenne(swr, "xy",/nan, box=box) & swr=reform(swr) 
     208swr=read_ncdf("swr", st1, en1, file=fi,/nostr, box=box)  
     209swr=grossemoyenne(swr, "xy",/nan, box=box)  
     210swr=reform(swr) 
    178211 
    179212fi=project_id_env+"NCEP2_flux_19890101_20090729.nc" 
    180213initncdf, fi 
    181 lwr=read_ncdf("lwr", st1, en1, file=fi,/nostr, box=box) & lwr=grossemoyenne(lwr, "xy",/nan, box=box) & lwr=reform(lwr) 
     214lwr=read_ncdf("lwr", st1, en1, file=fi,/nostr, box=box)  
     215lwr=grossemoyenne(lwr, "xy",/nan, box=box)  
     216lwr=reform(lwr) 
    182217lwr=-1*lwr 
    183218 
    184219fi=project_id_env+'lhf_ncep2_oafluxgrid_19890101_20091231.nc' 
    185220initncdf, fi 
    186 lhf=read_ncdf("lhf", st1, en1, file=fi,/nostr, box=box) & lhf=-1*reform(lhf) 
     221lhf=read_ncdf("lhf", st1, en1, file=fi,/nostr, box=box)  
     222lhf=-1*reform(lhf) 
    187223 
    188224fi=project_id_env+'shf_ncep2_oafluxgrid_19890101_20091231.nc' 
    189225initncdf, fi 
    190 shf=read_ncdf("shf", st1, en1, file=fi,/nostr, box=box) & shf=-1*reform(shf) 
     226shf=read_ncdf("shf", st1, en1, file=fi,/nostr, box=box)  
     227shf=-1*reform(shf) 
    191228 
    192229nce2=swr+lwr+shf+lhf 
    193230help, nce2 
    194231 
    195 swr=0 & lwr=0 & lhf=0 & shf=0 
     232swr=0  
     233lwr=0  
     234lhf=0  
     235shf=0 
    196236 
    197237file=project_id_env+"ncep1_flux_19890101_20091231.nc" 
    198238initncdf, 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) 
     239swr=read_ncdf("swr", st1, en1, file=file,/nostr, box=box)  
     240swr=grossemoyenne(swr, "xy",/nan, box=box)  
     241swr=reform(swr) 
     242lwr=read_ncdf("lwr", st1, en1, file=file,/nostr, box=box)  
     243lwr=grossemoyenne(lwr, "xy",/nan, box=box)  
     244lwr=reform(lwr) 
     245shf=read_ncdf("shf", st1, en1, file=file,/nostr, box=box)  
     246shf=grossemoyenne(shf, "xy",/nan, box=box)  
     247shf=reform(shf) 
     248lhf=read_ncdf("lhf", st1, en1, file=file,/nostr, box=box)  
     249lhf=grossemoyenne(lhf, "xy",/nan, box=box)  
     250lhf=reform(lhf) 
    203251 
    204252nce1=swr+lwr+shf+lhf 
    … …  
    206254 
    207255ind=where(finite(net)) 
    208 net=net(ind) & era=era(ind) & trop=trop(ind) & oaf=oaf(ind) & nce2=nce2(ind) & nce1=nce1(ind) 
     256net=net(ind)  
     257era=era(ind)  
     258trop=trop(ind)  
     259oaf=oaf(ind)  
     260nce2=nce2(ind)  
     261nce1=nce1(ind) 
    209262olr=olr(ind) 
    210263 

  • trunk/src/paper01/fig14/subdctn_cs_validation_net_1991_93_all_v10.pro

    r85 r94  
    139139;; reading other data sets 
    140140 
    141 st1=19910623 & en1=19930616 
     141st1=19910623  
     142en1=19930616 
    142143 
    143144file=project_id_env+"erai_swr_19910101_20091231_oafluxgrid.nc" 
    144145initncdf, file 
    145 swr1=read_ncdf('swr',st1,en1,file=file,/nostr, box=box) & swr1=grossemoyenne(swr1, "xy", box=box,/nan) & swr1=reform(swr1) 
     146swr1=read_ncdf('swr',st1,en1,file=file,/nostr, box=box)  
     147swr1=grossemoyenne(swr1, "xy", box=box,/nan)  
     148swr1=reform(swr1) 
    146149file=project_id_env+'erai_lhf_19890101_20091231_oafluxgrid.nc' 
    147150initncdf, file 
    148 lhf1=-1*read_ncdf('lhf',st1,en1,file=file,/nostr, box=box) & lhf1=grossemoyenne(lhf1, "xy", box=box,/nan) & lhf1=reform(lhf1) 
     151lhf1=-1*read_ncdf('lhf',st1,en1,file=file,/nostr, box=box)  
     152lhf1=grossemoyenne(lhf1, "xy", box=box,/nan)  
     153lhf1=reform(lhf1) 
    149154file=project_id_env+'erai_shf_19890101_20091231_oafluxgrid.nc' 
    150155initncdf, file 
    151 shf1=-1*read_ncdf('shf',st1,en1,file=file,/nostr, box=box) & shf1=grossemoyenne(shf1, "xy", box=box,/nan) & shf1=reform(shf1) 
     156shf1=-1*read_ncdf('shf',st1,en1,file=file,/nostr, box=box)  
     157shf1=grossemoyenne(shf1, "xy", box=box,/nan)  
     158shf1=reform(shf1) 
    152159file=project_id_env+'erai_lwr_19890101_20091231_oafluxgrid.nc' 
    153160initncdf, file 
    154 lwr1=read_ncdf('lwr',st1-1,en1,file=file,/nostr, box=box) & lwr1=grossemoyenne(lwr1, "xy", box=box,/nan) & lwr1=reform(lwr1) 
     161lwr1=read_ncdf('lwr',st1-1,en1,file=file,/nostr, box=box)  
     162lwr1=grossemoyenne(lwr1, "xy", box=box,/nan)  
     163lwr1=reform(lwr1) 
    155164 
    156165era=swr1+lwr1+lhf1+shf1 
    157 swr1=0 & lwr1=0 & shf1=0 & lhf1=0 
     166swr1=0  
     167lwr1=0  
     168shf1=0  
     169lhf1=0 
    158170help, era 
    159171 
    160172file=project_id_env+"TropFlux_19890101_20091231.nc" 
    161173initncdf, 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) 
     174lhf1=read_ncdf('lhf',st1,en1,file=file,/nostr, box=box)  
     175lhf1=grossemoyenne(lhf1, "xy", box=box,/nan)  
     176lhf1=reform(lhf1) 
     177shf1=read_ncdf('shf',st1,en1,file=file,/nostr, box=box)  
     178shf1=grossemoyenne(shf1, "xy", box=box,/nan)  
     179shf1=reform(shf1) 
     180lwr1=read_ncdf('lwr',st1,en1,file=file,/nostr, box=box)  
     181lwr1=grossemoyenne(lwr1, "xy", box=box,/nan)  
     182lwr1=reform(lwr1) 
     183swr1=read_ncdf('swr',st1,en1,file=file,/nostr, box=box)  
     184swr1=grossemoyenne(swr1, "xy", box=box,/nan)  
     185swr1=reform(swr1) 
    166186trop=swr1+lwr1+lhf1+shf1 
    167187 
    168188file=project_id_env+"TropFlux_swr_19890101_20091231_NRT_v50.nc" 
    169189initncdf, file 
    170 olr1=read_ncdf("sw", st1-1, en1, file=file,/nostr, box=box) & olr1=grossemoyenne(olr1, "xy",/nan, box=box) & olr1=reform(olr1) 
     190olr1=read_ncdf("sw", st1-1, en1, file=file,/nostr, box=box)  
     191olr1=grossemoyenne(olr1, "xy",/nan, box=box)  
     192olr1=reform(olr1) 
    171193 
    172194olr=olr1+lwr1+shf1+lhf1 
    173195help, trop, olr 
    174 swr1=0 & lwr1=0 & shf1=0 & lhf1=0 & olr1=0 
     196swr1=0  
     197lwr1=0  
     198shf1=0  
     199lhf1=0  
     200olr1=0 
    175201 
    176202file=project_id_env+'swr_oafluxgrid_1985_2007.nc' 
    177203initncdf, file 
    178 swr1=read_ncdf("swr", st1, en1, file=file,/nostr, box=box) & swr1=grossemoyenne(swr1, "xy",/nan, box=box) & swr1=reform(swr1) 
     204swr1=read_ncdf("swr", st1, en1, file=file,/nostr, box=box)  
     205swr1=grossemoyenne(swr1, "xy",/nan, box=box)  
     206swr1=reform(swr1) 
    179207file=project_id_env+'lwr_oafluxgrid_1985_2007.nc' 
    180208initncdf, file 
    181 lwr1=-1*read_ncdf("lwr", st1, en1, file=file,/nostr, box=box) & lwr1=grossemoyenne(lwr1, "xy",/nan, box=box) & lwr1=reform(lwr1) 
     209lwr1=-1*read_ncdf("lwr", st1, en1, file=file,/nostr, box=box)  
     210lwr1=grossemoyenne(lwr1, "xy",/nan, box=box)  
     211lwr1=reform(lwr1) 
    182212file=project_id_env+'lhf_oafluxgrid_1985_2009.nc' 
    183213initncdf, file 
    184 lhf1=-1*read_ncdf("lhf", st1, en1, file=file,/nostr, box=box) & lhf1=grossemoyenne(lhf1, "xy",/nan, box=box) & lhf1=reform(lhf1) 
     214lhf1=-1*read_ncdf("lhf", st1, en1, file=file,/nostr, box=box)  
     215lhf1=grossemoyenne(lhf1, "xy",/nan, box=box)  
     216lhf1=reform(lhf1) 
    185217file=project_id_env+'shf_oafluxgrid_1985_2009.nc' 
    186218initncdf, file 
    187 shf1=-1*read_ncdf("shf", st1, en1, file=file,/nostr, box=box) & shf1=grossemoyenne(shf1, "xy",/nan, box=box) & shf1=reform(shf1) 
     219shf1=-1*read_ncdf("shf", st1, en1, file=file,/nostr, box=box)  
     220shf1=grossemoyenne(shf1, "xy",/nan, box=box)  
     221shf1=reform(shf1) 
    188222 
    189223oaf=swr1+lwr1+lhf1+shf1 
    190224help, oaf 
    191 swr1=0 & lwr1=0 & shf1=0 & lhf1=0 & olr1=0 
     225swr1=0  
     226lwr1=0  
     227shf1=0  
     228lhf1=0  
     229olr1=0 
    192230 
    193231fi=project_id_env+'swr_ncep2_oaflxgrid_19890101_20091231.nc' 
    194232initncdf, fi 
    195 swr1=read_ncdf("swr", st1, en1, file=fi,/nostr, box=box) & swr1=grossemoyenne(swr1, "xy",/nan, box=box) & swr1=reform(swr1) 
     233swr1=read_ncdf("swr", st1, en1, file=fi,/nostr, box=box)  
     234swr1=grossemoyenne(swr1, "xy",/nan, box=box)  
     235swr1=reform(swr1) 
    196236fi=project_id_env+"NCEP2_flux_19890101_20090729.nc" 
    197237initncdf, fi 
    198 lwr1=-1*read_ncdf("lwr", st1, en1, file=fi,/nostr, box=box) & lwr1=grossemoyenne(lwr1, "xy",/nan, box=box) & lwr1=reform(lwr1) 
     238lwr1=-1*read_ncdf("lwr", st1, en1, file=fi,/nostr, box=box)  
     239lwr1=grossemoyenne(lwr1, "xy",/nan, box=box)  
     240lwr1=reform(lwr1) 
    199241fi=project_id_env+'lhf_ncep2_oafluxgrid_19890101_20091231.nc' 
    200242initncdf, fi 
    201 lhf1=-1*read_ncdf("lhf", st1, en1, file=fi,/nostr, box=box) & lhf1=grossemoyenne(lhf1, "xy",/nan, box=box) & lhf1=reform(lhf1) 
     243lhf1=-1*read_ncdf("lhf", st1, en1, file=fi,/nostr, box=box)  
     244lhf1=grossemoyenne(lhf1, "xy",/nan, box=box)  
     245lhf1=reform(lhf1) 
    202246fi=project_id_env+'shf_ncep2_oafluxgrid_19890101_20091231.nc' 
    203247initncdf, fi 
    204 shf1=-1*read_ncdf("shf", st1, en1, file=fi,/nostr, box=box) & shf1=grossemoyenne(shf1, "xy",/nan, box=box) & shf1=reform(shf1) 
     248shf1=-1*read_ncdf("shf", st1, en1, file=fi,/nostr, box=box)  
     249shf1=grossemoyenne(shf1, "xy",/nan, box=box)  
     250shf1=reform(shf1) 
    205251 
    206252nce2=swr1+lwr1+lhf1+shf1 
    207253help, nce2 
    208 swr1=0 & lwr1=0 & shf1=0 & lhf1=0 & olr1=0 
     254swr1=0  
     255lwr1=0  
     256shf1=0  
     257lhf1=0  
     258olr1=0 
    209259 
    210260file=project_id_env+"ncep1_flux_19890101_20091231.nc" 
    211261initncdf, file 
    212262 
    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) 
     263lhf1=read_ncdf('lhf',st1,en1,file=file,/nostr, box=box)  
     264lhf1=grossemoyenne(lhf1, "xy", box=box,/nan)  
     265lhf1=reform(lhf1) 
     266shf1=read_ncdf('shf',st1,en1,file=file,/nostr, box=box)  
     267shf1=grossemoyenne(shf1, "xy", box=box,/nan)  
     268shf1=reform(shf1) 
     269lwr1=read_ncdf('lwr',st1,en1,file=file,/nostr, box=box)  
     270lwr1=grossemoyenne(lwr1, "xy", box=box,/nan)  
     271lwr1=reform(lwr1) 
     272swr1=read_ncdf('swr',st1,en1,file=file,/nostr, box=box)  
     273swr1=grossemoyenne(swr1, "xy", box=box,/nan)  
     274swr1=reform(swr1) 
    217275nce1=swr1+(lwr1+shf1+lhf1) 
    218276help, nce1 
    219277 
    220278ind=where(finite(net)) 
    221 net=net(ind) & era=era(ind) & trop=trop(ind) & oaf=oaf(ind) & nce2=nce2(ind) & nce1=nce1(ind) 
     279net=net(ind)  
     280era=era(ind)  
     281trop=trop(ind)  
     282oaf=oaf(ind)  
     283nce2=nce2(ind)  
     284nce1=nce1(ind) 
    222285olr=olr(ind) 
    223286 

  • trunk/src/paper01/fig14/subdctn_ses_validation_net_1991_93_all_v10.pro

    r85 r94  
    130130;; reading other data sets 
    131131 
    132 st1=19920209 & en1=19920911 
    133 st2=19920921 & en2=19930618 
     132st1=19920209  
     133en1=19920911 
     134st2=19920921  
     135en2=19930618 
    134136 
    135137file=project_id_env+"erai_swr_19910101_20091231_oafluxgrid.nc" 
    136138initncdf, 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) 
     139swr1=read_ncdf('swr',st1,en1,file=file,/nostr, box=box)  
     140swr1=grossemoyenne(swr1, "xy", box=box,/nan)  
     141swr1=reform(swr1) 
     142swr2=read_ncdf('swr',st2,en2,file=file,/nostr, box=box)  
     143swr2=grossemoyenne(swr2, "xy", box=box,/nan)  
     144swr2=reform(swr2) 
    139145 
    140146file=project_id_env+'erai_lhf_19890101_20091231_oafluxgrid.nc' 
    141147initncdf, 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) 
     148lhf1=-1*read_ncdf('lhf',st1,en1,file=file,/nostr, box=box)  
     149lhf1=grossemoyenne(lhf1, "xy", box=box,/nan)  
     150lhf1=reform(lhf1) 
     151lhf2=-1*read_ncdf('lhf',st2,en2,file=file,/nostr, box=box)  
     152lhf2=grossemoyenne(lhf2, "xy", box=box,/nan)  
     153lhf2=reform(lhf2) 
    144154 
    145155file=project_id_env+'erai_shf_19890101_20091231_oafluxgrid.nc' 
    146156initncdf, 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) 
     157shf1=-1*read_ncdf('shf',st1,en1,file=file,/nostr, box=box)  
     158shf1=grossemoyenne(shf1, "xy", box=box,/nan)  
     159shf1=reform(shf1) 
     160shf2=-1*read_ncdf('shf',st2,en2,file=file,/nostr, box=box)  
     161shf2=grossemoyenne(shf2, "xy", box=box,/nan)  
     162shf2=reform(shf2) 
    149163 
    150164file=project_id_env+'erai_lwr_19890101_20091231_oafluxgrid.nc' 
    151165initncdf, 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) 
     166lwr1=read_ncdf('lwr',st1-1,en1,file=file,/nostr, box=box)  
     167lwr1=grossemoyenne(lwr1, "xy", box=box,/nan)  
     168lwr1=reform(lwr1) 
     169lwr2=read_ncdf('lwr',st2-1,en2,file=file,/nostr, box=box)  
     170lwr2=grossemoyenne(lwr2, "xy", box=box,/nan)  
     171lwr2=reform(lwr2) 
     172 
     173net1=swr1+(lwr1+shf1+lhf1)  
     174net2=swr2+(lwr2+shf2+lhf2) 
    156175era=[net1,net2] 
    157176help, era 
    158177 
    159 lhf1=0. & lhf2=0. & shf1=0. & shf2=0. 
    160 lwr1=0. & lwr2=0. & swr1=0. & swr2=0. 
    161 net1=0. & net2=0. 
     178lhf1=0.  
     179lhf2=0.  
     180shf1=0.  
     181shf2=0. 
     182lwr1=0.  
     183lwr2=0.  
     184swr1=0.  
     185swr2=0. 
     186net1=0.  
     187net2=0. 
    162188 
    163189file=project_id_env+"TropFlux_19890101_20091231.nc" 
    164190initncdf, 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) 
     191lhf1=read_ncdf('lhf',st1,en1,file=file,/nostr, box=box)  
     192lhf1=grossemoyenne(lhf1, "xy", box=box,/nan)  
     193lhf1=reform(lhf1) 
     194lhf2=read_ncdf('lhf',st2,en2,file=file,/nostr, box=box)  
     195lhf2=grossemoyenne(lhf2, "xy", box=box,/nan)  
     196lhf2=reform(lhf2) 
     197shf1=read_ncdf('shf',st1,en1,file=file,/nostr, box=box)  
     198shf1=grossemoyenne(shf1, "xy", box=box,/nan)  
     199shf1=reform(shf1) 
     200shf2=read_ncdf('shf',st2,en2,file=file,/nostr, box=box)  
     201shf2=grossemoyenne(shf2, "xy", box=box,/nan)  
     202shf2=reform(shf2) 
     203lwr1=read_ncdf('lwr',st1,en1,file=file,/nostr, box=box)  
     204lwr1=grossemoyenne(lwr1, "xy", box=box,/nan)  
     205lwr1=reform(lwr1) 
     206lwr2=read_ncdf('lwr',st2,en2,file=file,/nostr, box=box)  
     207lwr2=grossemoyenne(lwr2, "xy", box=box,/nan)  
     208lwr2=reform(lwr2) 
     209swr1=read_ncdf('swr',st1,en1,file=file,/nostr, box=box)  
     210swr1=grossemoyenne(swr1, "xy", box=box,/nan)  
     211swr1=reform(swr1) 
     212swr2=read_ncdf('swr',st2,en2,file=file,/nostr, box=box)  
     213swr2=grossemoyenne(swr2, "xy", box=box,/nan)  
     214swr2=reform(swr2) 
    173215 
    174216file=project_id_env+"TropFlux_swr_19890101_20091231_NRT_v50.nc" 
    175217initncdf, 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] 
     218olr1=read_ncdf("sw", st1-1, en1, file=file,/nostr, box=box)  
     219olr1=grossemoyenne(olr1, "xy",/nan, box=box)  
     220olr1=reform(olr1) 
     221olr2=read_ncdf("sw", st2-1, en2, file=file,/nostr, box=box)  
     222olr2=grossemoyenne(olr2, "xy",/nan, box=box)  
     223olr2=reform(olr2) 
     224 
     225net1=swr1+lwr1+(shf1+lhf1)  
     226net2=swr2+lwr2+(shf2+lhf2) 
     227neto_1=olr1+lwr1+lhf1+shf1  
     228neto_2=olr2+lwr2+lhf2+shf2 
     229trop=[net1,net2]  
     230olr=[neto_1,neto_2] 
    182231help, trop, olr 
    183232 
    184233file=project_id_env+'swr_oafluxgrid_1985_2007.nc' 
    185234initncdf, 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) 
     235swr1=read_ncdf("swr", st1, en1, file=file,/nostr, box=box)  
     236swr1=grossemoyenne(swr1, "xy",/nan, box=box)  
     237swr1=reform(swr1) 
     238swr2=read_ncdf("swr", st2, en2, file=file,/nostr, box=box)  
     239swr2=grossemoyenne(swr2, "xy",/nan, box=box)  
     240swr2=reform(swr2) 
    188241 
    189242file=project_id_env+'lwr_oafluxgrid_1985_2007.nc' 
    190243initncdf, 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) 
     244lwr1=-1*read_ncdf("lwr", st1, en1, file=file,/nostr, box=box)  
     245lwr1=grossemoyenne(lwr1, "xy",/nan, box=box)  
     246lwr1=reform(lwr1) 
     247lwr2=-1*read_ncdf("lwr", st2, en2, file=file,/nostr, box=box)  
     248lwr2=grossemoyenne(lwr2, "xy",/nan, box=box)  
     249lwr2=reform(lwr2) 
    193250 
    194251file=project_id_env+'lhf_oafluxgrid_1985_2009.nc' 
    195252initncdf, 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) 
     253lhf1=-1*read_ncdf("lhf", st1, en1, file=file,/nostr, box=box)  
     254lhf1=grossemoyenne(lhf1, "xy",/nan, box=box)  
     255lhf1=reform(lhf1) 
     256lhf2=-1*read_ncdf("lhf", st2, en2, file=file,/nostr, box=box)  
     257lhf2=grossemoyenne(lhf2, "xy",/nan, box=box)  
     258lhf2=reform(lhf2) 
    198259 
    199260file=project_id_env+'shf_oafluxgrid_1985_2009.nc' 
    200261initncdf, 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 
     262shf1=-1*read_ncdf("shf", st1, en1, file=file,/nostr, box=box)  
     263shf1=grossemoyenne(shf1, "xy",/nan, box=box)  
     264shf1=reform(shf1) 
     265shf2=-1*read_ncdf("shf", st2, en2, file=file,/nostr, box=box)  
     266shf2=grossemoyenne(shf2, "xy",/nan, box=box)  
     267shf2=reform(shf2) 
     268 
     269net1=swr1+lwr1+lhf1+shf1  
     270net2=swr2+lwr2+lhf2+shf2 
    205271oaf=[net1,net2] 
    206272help, oaf 
    … …  
    208274fi=project_id_env+'swr_ncep2_oaflxgrid_19890101_20091231.nc' 
    209275initncdf, 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) 
     276swr1=read_ncdf("swr", st1, en1, file=fi,/nostr, box=box)  
     277swr1=grossemoyenne(swr1, "xy",/nan, box=box)  
     278swr1=reform(swr1) 
     279swr2=read_ncdf("swr", st2, en2, file=fi,/nostr, box=box)  
     280swr2=grossemoyenne(swr2, "xy",/nan, box=box)  
     281swr2=reform(swr2) 
    212282 
    213283fi=project_id_env+"NCEP2_flux_19890101_20090729.nc" 
    214284initncdf, 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) 
     285lwr1=-1*read_ncdf("lwr", st1, en1, file=fi,/nostr, box=box)  
     286lwr1=grossemoyenne(lwr1, "xy",/nan, box=box)  
     287lwr1=reform(lwr1) 
     288lwr2=-1*read_ncdf("lwr", st2, en2, file=fi,/nostr, box=box)  
     289lwr2=grossemoyenne(lwr2, "xy",/nan, box=box)  
     290lwr2=reform(lwr2) 
    217291 
    218292fi=project_id_env+'lhf_ncep2_oafluxgrid_19890101_20091231.nc' 
    219293initncdf, 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) 
     294lhf1=-1*read_ncdf("lhf", st1, en1, file=fi,/nostr, box=box)  
     295lhf1=grossemoyenne(lhf1, "xy",/nan, box=box)  
     296lhf1=reform(lhf1) 
     297lhf2=-1*read_ncdf("lhf", st2, en2, file=fi,/nostr, box=box)  
     298lhf2=grossemoyenne(lhf2, "xy",/nan, box=box)  
     299lhf2=reform(lhf2) 
    222300 
    223301fi=project_id_env+'shf_ncep2_oafluxgrid_19890101_20091231.nc' 
    224302initncdf, 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 
     303shf1=-1*read_ncdf("shf", st1, en1, file=fi,/nostr, box=box)  
     304shf1=grossemoyenne(shf1, "xy",/nan, box=box)  
     305shf1=reform(shf1) 
     306shf2=-1*read_ncdf("shf", st2, en2, file=fi,/nostr, box=box)  
     307shf2=grossemoyenne(shf2, "xy",/nan, box=box)  
     308shf2=reform(shf2) 
     309 
     310net1=swr1+lwr1+lhf1+shf1  
     311net2=swr2+lwr2+lhf2+shf2 
    229312nce2=[net1,net2] 
    230313help, nce2 
    … …  
    232315file=project_id_env+"ncep1_flux_19890101_20091231.nc" 
    233316initncdf, 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) 
     317lhf1=read_ncdf('lhf',st1,en1,file=file,/nostr, box=box)  
     318lhf1=grossemoyenne(lhf1, "xy", box=box,/nan)  
     319lhf1=reform(lhf1) 
     320lhf2=read_ncdf('lhf',st2,en2,file=file,/nostr, box=box)  
     321lhf2=grossemoyenne(lhf2, "xy", box=box,/nan)  
     322lhf2=reform(lhf2) 
     323shf1=read_ncdf('shf',st1,en1,file=file,/nostr, box=box)  
     324shf1=grossemoyenne(shf1, "xy", box=box,/nan)  
     325shf1=reform(shf1) 
     326shf2=read_ncdf('shf',st2,en2,file=file,/nostr, box=box)  
     327shf2=grossemoyenne(shf2, "xy", box=box,/nan)  
     328shf2=reform(shf2) 
     329lwr1=read_ncdf('lwr',st1,en1,file=file,/nostr, box=box)  
     330lwr1=grossemoyenne(lwr1, "xy", box=box,/nan)  
     331lwr1=reform(lwr1) 
     332lwr2=read_ncdf('lwr',st2,en2,file=file,/nostr, box=box)  
     333lwr2=grossemoyenne(lwr2, "xy", box=box,/nan)  
     334lwr2=reform(lwr2) 
     335swr1=read_ncdf('swr',st1,en1,file=file,/nostr, box=box)  
     336swr1=grossemoyenne(swr1, "xy", box=box,/nan)  
     337swr1=reform(swr1) 
     338swr2=read_ncdf('swr',st2,en2,file=file,/nostr, box=box)  
     339swr2=grossemoyenne(swr2, "xy", box=box,/nan)  
     340swr2=reform(swr2) 
     341net1=swr1+(lwr1+shf1+lhf1)  
     342net2=swr2+(lwr2+shf2+lhf2) 
    243343nce1=[net1,net2] 
    244344 
    … …  
    246346 
    247347ind=where(finite(net)) 
    248 net=net(ind) & era=era(ind) & trop=trop(ind) & oaf=oaf(ind) & nce2=nce2(ind) & nce1=nce1(ind) 
     348net=net(ind)  
     349era=era(ind)  
     350trop=trop(ind)  
     351oaf=oaf(ind)  
     352nce2=nce2(ind)  
     353nce1=nce1(ind) 
    249354olr=olr(ind) 
    250355 

  • trunk/src/paper01/fig14/subdctn_sws_validation_net_1991_93_all_v10.pro

    r85 r94  
    139139;; reading other data sets 
    140140 
    141 st1=19910626 & en1=19911101 
    142 st2=19920206 & en2=19920602 
    143 st3=19921011 & en3=19921231 
    144 st4=19930101 & en4=19930521 
     141st1=19910626  
     142en1=19911101 
     143st2=19920206  
     144en2=19920602 
     145st3=19921011  
     146en3=19921231 
     147st4=19930101  
     148en4=19930521 
    145149 
    146150file=project_id_env+"erai_swr_19910101_20091231_oafluxgrid.nc" 
    147151initncdf, 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) 
     152swr1=read_ncdf('swr',st1,en1,file=file,/nostr, box=box)  
     153swr1=grossemoyenne(swr1, "xy", box=box,/nan)  
     154swr1=reform(swr1) 
     155swr2=read_ncdf('swr',st2,en2,file=file,/nostr, box=box)  
     156swr2=grossemoyenne(swr2, "xy", box=box,/nan)  
     157swr2=reform(swr2) 
     158swr3=read_ncdf('swr',st3,en3,file=file,/nostr, box=box)  
     159swr3=grossemoyenne(swr3, "xy", box=box,/nan)  
     160swr3=reform(swr3) 
     161swr4=read_ncdf('swr',st4,en4,file=file,/nostr, box=box)  
     162swr4=grossemoyenne(swr4, "xy", box=box,/nan)  
     163swr4=reform(swr4) 
    152164 
    153165file=project_id_env+'erai_lhf_19890101_20091231_oafluxgrid.nc' 
    154166initncdf, 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) 
     167lhf1=-1*read_ncdf('lhf',st1,en1,file=file,/nostr, box=box)  
     168lhf1=grossemoyenne(lhf1, "xy", box=box,/nan)  
     169lhf1=reform(lhf1) 
     170lhf2=-1*read_ncdf('lhf',st2,en2,file=file,/nostr, box=box)  
     171lhf2=grossemoyenne(lhf2, "xy", box=box,/nan)  
     172lhf2=reform(lhf2) 
     173lhf3=-1*read_ncdf('lhf',st3,en3,file=file,/nostr, box=box)  
     174lhf3=grossemoyenne(lhf3, "xy", box=box,/nan)  
     175lhf3=reform(lhf3) 
     176lhf4=-1*read_ncdf('lhf',st4,en4,file=file,/nostr, box=box)  
     177lhf4=grossemoyenne(lhf4, "xy", box=box,/nan)  
     178lhf4=reform(lhf4) 
    159179 
    160180file=project_id_env+'erai_shf_19890101_20091231_oafluxgrid.nc' 
    161181initncdf, 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) 
     182shf1=-1*read_ncdf('shf',st1,en1,file=file,/nostr, box=box)  
     183shf1=grossemoyenne(shf1, "xy", box=box,/nan)  
     184shf1=reform(shf1) 
     185shf2=-1*read_ncdf('shf',st2,en2,file=file,/nostr, box=box)  
     186shf2=grossemoyenne(shf2, "xy", box=box,/nan)  
     187shf2=reform(shf2) 
     188shf3=-1*read_ncdf('shf',st3,en3,file=file,/nostr, box=box)  
     189shf3=grossemoyenne(shf3, "xy", box=box,/nan)  
     190shf3=reform(shf3) 
     191shf4=-1*read_ncdf('shf',st4,en4,file=file,/nostr, box=box)  
     192shf4=grossemoyenne(shf4, "xy", box=box,/nan)  
     193shf4=reform(shf4) 
    166194 
    167195file=project_id_env+'erai_lwr_19890101_20091231_oafluxgrid.nc' 
    168196initncdf, 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) 
     197lwr1=read_ncdf('lwr',st1-1,en1,file=file,/nostr, box=box)  
     198lwr1=grossemoyenne(lwr1, "xy", box=box,/nan)  
     199lwr1=reform(lwr1) 
     200lwr2=read_ncdf('lwr',st2-1,en2,file=file,/nostr, box=box)  
     201lwr2=grossemoyenne(lwr2, "xy", box=box,/nan)  
     202lwr2=reform(lwr2) 
     203lwr3=read_ncdf('lwr',st3-1,en3,file=file,/nostr, box=box)  
     204lwr3=grossemoyenne(lwr3, "xy", box=box,/nan)  
     205lwr3=reform(lwr3) 
     206lwr4=read_ncdf('lwr',st4-1,en4,file=file,/nostr, box=box)  
     207lwr4=grossemoyenne(lwr4, "xy", box=box,/nan)  
     208lwr4=reform(lwr4) 
     209 
     210net1=swr1+(lwr1+shf1+lhf1)  
     211net2=swr2+(lwr2+shf2+lhf2)  
     212net3=swr3+(lwr3+shf3+lhf3)  
     213net4=swr4+(lwr4+shf4+lhf4) 
    175214era=[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 
     215lhf1=0.  
     216lhf2=0.  
     217lhf3=0.  
     218lhf4=0. 
     219shf1=0.  
     220shf2=0.  
     221shf3=0.  
     222shf4=0. 
     223lwr1=0.  
     224lwr2=0.  
     225lwr3=0.  
     226lwr4=0. 
     227swr1=0.  
     228swr2=0.  
     229swr3=0.  
     230swr4=0. 
     231net1=0.  
     232net2=0.  
     233net3=0.  
     234net4=0 
    181235help, era 
    182236 
    183237file=project_id_env+"TropFlux_19890101_20091231.nc" 
    184238initncdf, 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) 
     239lhf1=read_ncdf('lhf',st1,en1,file=file,/nostr, box=box)  
     240lhf1=grossemoyenne(lhf1, "xy", box=box,/nan)  
     241lhf1=reform(lhf1) 
     242lhf2=read_ncdf('lhf',st2,en2,file=file,/nostr, box=box)  
     243lhf2=grossemoyenne(lhf2, "xy", box=box,/nan)  
     244lhf2=reform(lhf2) 
     245lhf3=read_ncdf('lhf',st3,en3,file=file,/nostr, box=box)  
     246lhf3=grossemoyenne(lhf3, "xy", box=box,/nan)  
     247lhf3=reform(lhf3) 
     248lhf4=read_ncdf('lhf',st4,en4,file=file,/nostr, box=box)  
     249lhf4=grossemoyenne(lhf4, "xy", box=box,/nan)  
     250lhf4=reform(lhf4) 
     251 
     252shf1=read_ncdf('shf',st1,en1,file=file,/nostr, box=box)  
     253shf1=grossemoyenne(shf1, "xy", box=box,/nan)  
     254shf1=reform(shf1) 
     255shf2=read_ncdf('shf',st2,en2,file=file,/nostr, box=box)  
     256shf2=grossemoyenne(shf2, "xy", box=box,/nan)  
     257shf2=reform(shf2) 
     258shf3=read_ncdf('shf',st3,en3,file=file,/nostr, box=box)  
     259shf3=grossemoyenne(shf3, "xy", box=box,/nan)  
     260shf3=reform(shf3) 
     261shf4=read_ncdf('shf',st4,en4,file=file,/nostr, box=box)  
     262shf4=grossemoyenne(shf4, "xy", box=box,/nan)  
     263shf4=reform(shf4) 
     264 
     265lwr1=read_ncdf('lwr',st1,en1,file=file,/nostr, box=box)  
     266lwr1=grossemoyenne(lwr1, "xy", box=box,/nan)  
     267lwr1=reform(lwr1) 
     268lwr2=read_ncdf('lwr',st2,en2,file=file,/nostr, box=box)  
     269lwr2=grossemoyenne(lwr2, "xy", box=box,/nan)  
     270lwr2=reform(lwr2) 
     271lwr3=read_ncdf('lwr',st3,en3,file=file,/nostr, box=box)  
     272lwr3=grossemoyenne(lwr3, "xy", box=box,/nan)  
     273lwr3=reform(lwr3) 
     274lwr4=read_ncdf('lwr',st4,en4,file=file,/nostr, box=box)  
     275lwr4=grossemoyenne(lwr4, "xy", box=box,/nan)  
     276lwr4=reform(lwr4) 
     277 
     278swr1=read_ncdf('swr',st1,en1,file=file,/nostr, box=box)  
     279swr1=grossemoyenne(swr1, "xy", box=box,/nan)  
     280swr1=reform(swr1) 
     281swr2=read_ncdf('swr',st2,en2,file=file,/nostr, box=box)  
     282swr2=grossemoyenne(swr2, "xy", box=box,/nan)  
     283swr2=reform(swr2) 
     284swr3=read_ncdf('swr',st3,en3,file=file,/nostr, box=box)  
     285swr3=grossemoyenne(swr3, "xy", box=box,/nan)  
     286swr3=reform(swr3) 
     287swr4=read_ncdf('swr',st4,en4,file=file,/nostr, box=box)  
     288swr4=grossemoyenne(swr4, "xy", box=box,/nan)  
     289swr4=reform(swr4) 
    204290 
    205291file=project_id_env+"TropFlux_swr_19890101_20091231_NRT_v50.nc" 
    206292initncdf, 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 
     293olr1=read_ncdf("sw", st1-1, en1, file=file,/nostr, box=box)  
     294olr1=grossemoyenne(olr1, "xy",/nan, box=box)  
     295olr1=reform(olr1) 
     296olr2=read_ncdf("sw", st2-1, en2, file=file,/nostr, box=box)  
     297olr2=grossemoyenne(olr2, "xy",/nan, box=box)  
     298olr2=reform(olr2) 
     299olr3=read_ncdf("sw", st3-1, en3, file=file,/nostr, box=box)  
     300olr3=grossemoyenne(olr3, "xy",/nan, box=box)  
     301olr3=reform(olr3) 
     302olr4=read_ncdf("sw", st4-1, en4, file=file,/nostr, box=box)  
     303olr4=grossemoyenne(olr4, "xy",/nan, box=box)  
     304olr4=reform(olr4) 
     305 
     306net1=swr1+lwr1+(shf1+lhf1)  
     307net2=swr2+lwr2+(shf2+lhf2)  
     308net3=swr3+lwr3+(shf3+lhf3)  
     309net4=swr4+lwr4+(shf4+lhf4) 
     310neto_1=olr1+lwr1+lhf1+shf1  
     311neto_2=olr2+lwr2+lhf2+shf2  
     312neto_3=olr3+lwr3+lhf3+shf3  
     313neto_4=olr4+lwr4+lhf4+shf4 
     314 
     315trop=[net1,net2,net3,net4]  
     316olr=[neto_1,neto_2,neto_3,neto_4] 
     317 
     318lhf1=0.  
     319lhf2=0.  
     320lhf3=0.  
     321lhf4=0. 
     322shf1=0.  
     323shf2=0.  
     324shf3=0.  
     325shf4=0. 
     326lwr1=0.  
     327lwr2=0.  
     328lwr3=0.  
     329lwr4=0. 
     330swr1=0.  
     331swr2=0.  
     332swr3=0.  
     333swr4=0. 
     334net1=0.  
     335net2=0.  
     336net3=0.  
     337net4=0. 
     338neto_1=0  
     339neto_2=0  
     340neto_3=0  
     341neto_4=0 
    223342 
    224343help, trop, olr 
    … …  
    226345file=project_id_env+'swr_oafluxgrid_1985_2007.nc' 
    227346initncdf, 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) 
     347swr1=read_ncdf("swr", st1, en1, file=file,/nostr, box=box)  
     348swr1=grossemoyenne(swr1, "xy",/nan, box=box)  
     349swr1=reform(swr1) 
     350swr2=read_ncdf("swr", st2, en2, file=file,/nostr, box=box)  
     351swr2=grossemoyenne(swr2, "xy",/nan, box=box)  
     352swr2=reform(swr2) 
     353swr3=read_ncdf("swr", st3, en3, file=file,/nostr, box=box)  
     354swr3=grossemoyenne(swr3, "xy",/nan, box=box)  
     355swr3=reform(swr3) 
     356swr4=read_ncdf("swr", st4, en4, file=file,/nostr, box=box)  
     357swr4=grossemoyenne(swr4, "xy",/nan, box=box)  
     358swr4=reform(swr4) 
    232359 
    233360file=project_id_env+'lwr_oafluxgrid_1985_2007.nc' 
    234361initncdf, 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) 
     362lwr1=-1*read_ncdf("lwr", st1, en1, file=file,/nostr, box=box)  
     363lwr1=grossemoyenne(lwr1, "xy",/nan, box=box)  
     364lwr1=reform(lwr1) 
     365lwr2=-1*read_ncdf("lwr", st2, en2, file=file,/nostr, box=box)  
     366lwr2=grossemoyenne(lwr2, "xy",/nan, box=box)  
     367lwr2=reform(lwr2) 
     368lwr3=-1*read_ncdf("lwr", st3, en3, file=file,/nostr, box=box)  
     369lwr3=grossemoyenne(lwr3, "xy",/nan, box=box)  
     370lwr3=reform(lwr3) 
     371lwr4=-1*read_ncdf("lwr", st4, en4, file=file,/nostr, box=box)  
     372lwr4=grossemoyenne(lwr4, "xy",/nan, box=box)  
     373lwr4=reform(lwr4) 
    239374 
    240375file=project_id_env+'lhf_oafluxgrid_1985_2009.nc' 
    241376initncdf, 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) 
     377lhf1=-1*read_ncdf("lhf", st1, en1, file=file,/nostr, box=box)  
     378lhf1=grossemoyenne(lhf1, "xy",/nan, box=box)  
     379lhf1=reform(lhf1) 
     380lhf2=-1*read_ncdf("lhf", st2, en2, file=file,/nostr, box=box)  
     381lhf2=grossemoyenne(lhf2, "xy",/nan, box=box)  
     382lhf2=reform(lhf2) 
     383lhf3=-1*read_ncdf("lhf", st3, en3, file=file,/nostr, box=box)  
     384lhf3=grossemoyenne(lhf3, "xy",/nan, box=box)  
     385lhf3=reform(lhf3) 
     386lhf4=-1*read_ncdf("lhf", st4, en4, file=file,/nostr, box=box)  
     387lhf4=grossemoyenne(lhf4, "xy",/nan, box=box)  
     388lhf4=reform(lhf4) 
    246389 
    247390file=project_id_env+'shf_oafluxgrid_1985_2009.nc' 
    248391initncdf, 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 
     392shf1=-1*read_ncdf("shf", st1, en1, file=file,/nostr, box=box)  
     393shf1=grossemoyenne(shf1, "xy",/nan, box=box)  
     394shf1=reform(shf1) 
     395shf2=-1*read_ncdf("shf", st2, en2, file=file,/nostr, box=box)  
     396shf2=grossemoyenne(shf2, "xy",/nan, box=box)  
     397shf2=reform(shf2) 
     398shf3=-1*read_ncdf("shf", st3, en3, file=file,/nostr, box=box)  
     399shf3=grossemoyenne(shf3, "xy",/nan, box=box)  
     400shf3=reform(shf3) 
     401shf4=-1*read_ncdf("shf", st4, en4, file=file,/nostr, box=box)  
     402shf4=grossemoyenne(shf4, "xy",/nan, box=box)  
     403shf4=reform(shf4) 
     404 
     405net1=swr1+lwr1+lhf1+shf1  
     406net2=swr2+lwr2+lhf2+shf2  
     407net3=swr3+lwr3+lhf3+shf3  
     408net4=swr4+lwr4+lhf4+shf4 
    255409 
    256410oaf=[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 
     411lhf1=0.  
     412lhf2=0.  
     413lhf3=0.  
     414lhf4=0. 
     415shf1=0.  
     416shf2=0.  
     417shf3=0.  
     418shf4=0. 
     419lwr1=0.  
     420lwr2=0.  
     421lwr3=0.  
     422lwr4=0. 
     423swr1=0.  
     424swr2=0.  
     425swr3=0.  
     426swr4=0. 
     427net1=0.  
     428net2=0.  
     429net3=0.  
     430net4=0 
    262431help, oaf 
    263432 
    … …  
    266435fi=project_id_env+'swr_ncep2_oaflxgrid_19890101_20091231.nc' 
    267436initncdf, 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) 
     437swr1=read_ncdf("swr", st1, en1, file=fi,/nostr, box=box)  
     438swr1=grossemoyenne(swr1, "xy",/nan, box=box)  
     439swr1=reform(swr1) 
     440swr2=read_ncdf("swr", st2, en2, file=fi,/nostr, box=box)  
     441swr2=grossemoyenne(swr2, "xy",/nan, box=box)  
     442swr2=reform(swr2) 
     443swr3=read_ncdf("swr", st3, en3, file=fi,/nostr, box=box)  
     444swr3=grossemoyenne(swr3, "xy",/nan, box=box)  
     445swr3=reform(swr3) 
     446swr4=read_ncdf("swr", st4, en4, file=fi,/nostr, box=box)  
     447swr4=grossemoyenne(swr4, "xy",/nan, box=box)  
     448swr4=reform(swr4) 
    272449 
    273450fi=project_id_env+'"NCEP2_flux_19890101_20090729.nc" 
    274451initncdf, 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) 
     452lwr1=-1*read_ncdf("lwr", st1, en1, file=fi,/nostr, box=box)  
     453lwr1=grossemoyenne(lwr1, "xy",/nan, box=box)  
     454lwr1=reform(lwr1) 
     455lwr2=-1*read_ncdf("lwr", st2, en2, file=fi,/nostr, box=box)  
     456lwr2=grossemoyenne(lwr2, "xy",/nan, box=box)  
     457lwr2=reform(lwr2) 
     458lwr3=-1*read_ncdf("lwr", st3, en3, file=fi,/nostr, box=box)  
     459lwr3=grossemoyenne(lwr3, "xy",/nan, box=box) 
     460lwr3=reform(lwr3) 
     461lwr4=-1*read_ncdf("lwr", st4, en4, file=fi,/nostr, box=box)  
     462lwr4=grossemoyenne(lwr4, "xy",/nan, box=box)  
     463lwr4=reform(lwr4) 
    279464 
    280465fi=project_id_env+'lhf_ncep2_oafluxgrid_19890101_20091231.nc' 
    281466initncdf, 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) 
     467lhf1=-1*read_ncdf("lhf", st1, en1, file=fi,/nostr, box=box)  
     468lhf1=grossemoyenne(lhf1, "xy",/nan, box=box)  
     469lhf1=reform(lhf1) 
     470lhf2=-1*read_ncdf("lhf", st2, en2, file=fi,/nostr, box=box)  
     471lhf2=grossemoyenne(lhf2, "xy",/nan, box=box)  
     472lhf2=reform(lhf2) 
     473lhf3=-1*read_ncdf("lhf", st3, en3, file=fi,/nostr, box=box)  
     474lhf3=grossemoyenne(lhf3, "xy",/nan, box=box)  
     475lhf3=reform(lhf3) 
     476lhf4=-1*read_ncdf("lhf", st4, en4, file=fi,/nostr, box=box)  
     477lhf4=grossemoyenne(lhf4, "xy",/nan, box=box)  
     478lhf4=reform(lhf4) 
    286479 
    287480fi=project_id_env+'shf_ncep2_oafluxgrid_19890101_20091231.nc' 
    288481initncdf, 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 
     482shf1=-1*read_ncdf("shf", st1, en1, file=fi,/nostr, box=box)  
     483shf1=grossemoyenne(shf1, "xy",/nan, box=box)  
     484shf1=reform(shf1) 
     485shf2=-1*read_ncdf("shf", st2, en2, file=fi,/nostr, box=box)  
     486shf2=grossemoyenne(shf2, "xy",/nan, box=box)  
     487shf2=reform(shf2) 
     488shf3=-1*read_ncdf("shf", st3, en3, file=fi,/nostr, box=box)  
     489shf3=grossemoyenne(shf3, "xy",/nan, box=box)  
     490shf3=reform(shf3) 
     491shf4=-1*read_ncdf("shf", st4, en4, file=fi,/nostr, box=box)  
     492shf4=grossemoyenne(shf4, "xy",/nan, box=box)  
     493shf4=reform(shf4) 
     494 
     495net1=swr1+lwr1+lhf1+shf1  
     496net2=swr2+lwr2+lhf2+shf2  
     497net3=swr3+lwr3+lhf3+shf3  
     498net4=swr4+lwr4+lhf4+shf4 
    295499 
    296500nce2=[net1,net2,net3,net4] 
    297501help, nce2 
    298502 
    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 
     503lhf1=0.  
     504lhf2=0.  
     505lhf3=0.  
     506lhf4=0. 
     507shf1=0.  
     508shf2=0.  
     509shf3=0.  
     510shf4=0. 
     511lwr1=0.  
     512lwr2=0.  
     513lwr3=0.  
     514lwr4=0. 
     515swr1=0.  
     516swr2=0.  
     517swr3=0.  
     518swr4=0. 
     519net1=0.  
     520net2=0.  
     521net3=0.  
     522net4=0 
    304523 
    305524file=project_id_env+"ncep1_flux_19890101_20091231.nc" 
    306525initncdf, file 
    307526 
    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) 
     527lhf1=read_ncdf('lhf',st1,en1,file=file,/nostr, box=box)  
     528lhf1=grossemoyenne(lhf1, "xy", box=box,/nan)  
     529lhf1=reform(lhf1) 
     530lhf2=read_ncdf('lhf',st2,en2,file=file,/nostr, box=box)  
     531lhf2=grossemoyenne(lhf2, "xy", box=box,/nan)  
     532lhf2=reform(lhf2) 
     533lhf3=read_ncdf('lhf',st3,en3,file=file,/nostr, box=box)  
     534lhf3=grossemoyenne(lhf3, "xy", box=box,/nan)  
     535lhf3=reform(lhf3) 
     536lhf4=read_ncdf('lhf',st4,en4,file=file,/nostr, box=box)  
     537lhf4=grossemoyenne(lhf4, "xy", box=box,/nan)  
     538lhf4=reform(lhf4) 
     539 
     540shf1=read_ncdf('shf',st1,en1,file=file,/nostr, box=box)  
     541shf1=grossemoyenne(shf1, "xy", box=box,/nan)  
     542shf1=reform(shf1) 
     543shf2=read_ncdf('shf',st2,en2,file=file,/nostr, box=box)  
     544shf2=grossemoyenne(shf2, "xy", box=box,/nan)  
     545shf2=reform(shf2) 
     546shf3=read_ncdf('shf',st3,en3,file=file,/nostr, box=box)  
     547shf3=grossemoyenne(shf3, "xy", box=box,/nan)  
     548shf3=reform(shf3) 
     549shf4=read_ncdf('shf',st4,en4,file=file,/nostr, box=box)  
     550shf4=grossemoyenne(shf4, "xy", box=box,/nan)  
     551shf4=reform(shf4) 
     552 
     553lwr1=read_ncdf('lwr',st1,en1,file=file,/nostr, box=box)  
     554lwr1=grossemoyenne(lwr1, "xy", box=box,/nan)  
     555lwr1=reform(lwr1) 
     556lwr2=read_ncdf('lwr',st2,en2,file=file,/nostr, box=box)  
     557lwr2=grossemoyenne(lwr2, "xy", box=box,/nan)  
     558lwr2=reform(lwr2) 
     559lwr3=read_ncdf('lwr',st3,en3,file=file,/nostr, box=box)  
     560lwr3=grossemoyenne(lwr3, "xy", box=box,/nan)  
     561lwr3=reform(lwr3) 
     562lwr4=read_ncdf('lwr',st4,en4,file=file,/nostr, box=box)  
     563lwr4=grossemoyenne(lwr4, "xy", box=box,/nan)  
     564lwr4=reform(lwr4) 
     565 
     566swr1=read_ncdf('swr',st1,en1,file=file,/nostr, box=box)  
     567swr1=grossemoyenne(swr1, "xy", box=box,/nan)  
     568swr1=reform(swr1) 
     569swr2=read_ncdf('swr',st2,en2,file=file,/nostr, box=box)  
     570swr2=grossemoyenne(swr2, "xy", box=box,/nan)  
     571swr2=reform(swr2) 
     572swr3=read_ncdf('swr',st3,en3,file=file,/nostr, box=box)  
     573swr3=grossemoyenne(swr3, "xy", box=box,/nan)  
     574swr3=reform(swr3) 
     575swr4=read_ncdf('swr',st4,en4,file=file,/nostr, box=box)  
     576swr4=grossemoyenne(swr4, "xy", box=box,/nan)  
     577swr4=reform(swr4) 
     578 
     579net1=swr1+(lwr1+shf1+lhf1)  
     580net2=swr2+(lwr2+shf2+lhf2)  
     581net3=swr3+(lwr3+shf3+lhf3)  
     582net4=swr4+(lwr4+shf4+lhf4) 
    329583nce1=[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 
     584lhf1=0.  
     585lhf2=0.  
     586lhf3=0.  
     587lhf4=0. 
     588shf1=0.  
     589shf2=0.  
     590shf3=0.  
     591shf4=0. 
     592lwr1=0.  
     593lwr2=0.  
     594lwr3=0.  
     595lwr4=0. 
     596swr1=0.  
     597swr2=0.  
     598swr3=0.  
     599swr4=0. 
     600net1=0.  
     601net2=0.  
     602net3=0.  
     603net4=0 
    335604 
    336605ind=where(finite(net)) 
    337 net=net(ind) & era=era(ind) & trop=trop(ind) & oaf=oaf(ind) & nce2=nce2(ind) & nce1=nce1(ind) 
     606net=net(ind)  
     607era=era(ind)  
     608trop=trop(ind)  
     609oaf=oaf(ind)  
     610nce2=nce2(ind)  
     611nce1=nce1(ind) 
    338612olr=olr(ind) 
    339613 

  • trunk/src/paper01/fig14/whots_validation_net_2004_2007_all_v10.pro

    r85 r94  
    135135;; reading other data sets 
    136136 
    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 
     137st1=20040813  
     138en1=20050725 
     139st2=20050728  
     140en2=20060624 
     141st3=20060627  
     142en3=20070628 
     143;st4=20070626  
     144;en4=20080606 
     145;st5=20080605  
     146; en5=20090715 
    142147 
    143148file=project_id_env+'erai_lhf_19890101_20091231_oafluxgrid.nc' 
    144149initncdf, 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) 
     150lhf1=-1*read_ncdf('lhf',st1,en1,file=file,/nostr, box=box)  
     151lhf1=grossemoyenne(lhf1, "xy", box=box,/nan)  
     152lhf1=reform(lhf1) 
     153lhf2=-1*read_ncdf('lhf',st2,en2,file=file,/nostr, box=box)  
     154lhf2=grossemoyenne(lhf2, "xy", box=box,/nan)  
     155lhf2=reform(lhf2) 
     156lhf3=-1*read_ncdf('lhf',st3,en3,file=file,/nostr, box=box)  
     157lhf3=grossemoyenne(lhf3, "xy", box=box,/nan)  
     158lhf3=reform(lhf3) 
    148159 
    149160file=project_id_env+'erai_shf_19890101_20091231_oafluxgrid.nc' 
    150161initncdf, 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) 
     162shf1=-1*read_ncdf('shf',st1,en1,file=file,/nostr, box=box)  
     163shf1=grossemoyenne(shf1, "xy", box=box,/nan)  
     164shf1=reform(shf1) 
     165shf2=-1*read_ncdf('shf',st2,en2,file=file,/nostr, box=box)  
     166shf2=grossemoyenne(shf2, "xy", box=box,/nan)  
     167shf2=reform(shf2) 
     168shf3=-1*read_ncdf('shf',st3,en3,file=file,/nostr, box=box)  
     169shf3=grossemoyenne(shf3, "xy", box=box,/nan)  
     170shf3=reform(shf3) 
    154171 
    155172file=project_id_env+'erai_lwr_19890101_20091231_oafluxgrid.nc' 
    156173initncdf, 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) 
     174lwr1=read_ncdf('lwr',st1-1,en1,file=file,/nostr, box=box)  
     175lwr1=grossemoyenne(lwr1, "xy", box=box,/nan)  
     176lwr1=reform(lwr1) 
     177lwr2=read_ncdf('lwr',st2-1,en2,file=file,/nostr, box=box)  
     178lwr2=grossemoyenne(lwr2, "xy", box=box,/nan)  
     179lwr2=reform(lwr2) 
     180lwr3=read_ncdf('lwr',st3-1,en3,file=file,/nostr, box=box)  
     181lwr3=grossemoyenne(lwr3, "xy", box=box,/nan)  
     182lwr3=reform(lwr3) 
    160183 
    161184file=project_id_env+"erai_swr_19910101_20091231_oafluxgrid.nc" 
    162185initncdf, 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) 
     186swr1=read_ncdf('swr',st1,en1,file=file,/nostr, box=box)  
     187swr1=grossemoyenne(swr1, "xy", box=box,/nan)  
     188swr1=reform(swr1) 
     189swr2=read_ncdf('swr',st2,en2,file=file,/nostr, box=box)  
     190swr2=grossemoyenne(swr2, "xy", box=box,/nan)  
     191swr2=reform(swr2) 
     192swr3=read_ncdf('swr',st3,en3,file=file,/nostr, box=box)  
     193swr3=grossemoyenne(swr3, "xy", box=box,/nan)  
     194swr3=reform(swr3) 
     195 
     196net1=swr1+(lwr1+shf1+lhf1)  
     197net2=swr2+(lwr2+shf2+lhf2)  
     198net3=swr3+(lwr3+shf3+lhf3) 
    168199era=[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. 
     200lhf1=0.  
     201lhf2=0.  
     202lhf3=0. 
     203shf1=0.  
     204shf2=0.  
     205shf3=0. 
     206lwr1=0.  
     207lwr2=0.  
     208lwr3=0. 
     209swr1=0.  
     210swr2=0.  
     211swr3=0. 
     212net1=0.  
     213net2=0.  
     214net3=0. 
    174215help, era 
    175216 
    … …  
    177218initncdf, file 
    178219 
    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) 
     220lhf1=read_ncdf('lhf',st1,en1,file=file,/nostr, box=box)  
     221lhf1=grossemoyenne(lhf1, "xy", box=box,/nan)  
     222lhf1=reform(lhf1) 
     223lhf2=read_ncdf('lhf',st2,en2,file=file,/nostr, box=box)  
     224lhf2=grossemoyenne(lhf2, "xy", box=box,/nan)  
     225lhf2=reform(lhf2) 
     226lhf3=read_ncdf('lhf',st3,en3,file=file,/nostr, box=box)  
     227lhf3=grossemoyenne(lhf3, "xy", box=box,/nan)  
     228lhf3=reform(lhf3) 
     229 
     230shf1=read_ncdf('shf',st1,en1,file=file,/nostr, box=box)  
     231shf1=grossemoyenne(shf1, "xy", box=box,/nan)  
     232shf1=reform(shf1) 
     233shf2=read_ncdf('shf',st2,en2,file=file,/nostr, box=box)  
     234shf2=grossemoyenne(shf2, "xy", box=box,/nan)  
     235shf2=reform(shf2) 
     236shf3=read_ncdf('shf',st3,en3,file=file,/nostr, box=box)  
     237shf3=grossemoyenne(shf3, "xy", box=box,/nan)  
     238shf3=reform(shf3) 
     239 
     240lwr1=read_ncdf('lwr',st1,en1,file=file,/nostr, box=box)  
     241lwr1=grossemoyenne(lwr1, "xy", box=box,/nan)  
     242lwr1=reform(lwr1) 
     243lwr2=read_ncdf('lwr',st2,en2,file=file,/nostr, box=box)  
     244lwr2=grossemoyenne(lwr2, "xy", box=box,/nan)  
     245lwr2=reform(lwr2) 
     246lwr3=read_ncdf('lwr',st3,en3,file=file,/nostr, box=box)  
     247lwr3=grossemoyenne(lwr3, "xy", box=box,/nan)  
     248lwr3=reform(lwr3) 
     249 
     250swr1=read_ncdf('swr',st1,en1,file=file,/nostr, box=box)  
     251swr1=grossemoyenne(swr1, "xy", box=box,/nan)  
     252swr1=reform(swr1) 
     253swr2=read_ncdf('swr',st2,en2,file=file,/nostr, box=box)  
     254swr2=grossemoyenne(swr2, "xy", box=box,/nan)  
     255swr2=reform(swr2) 
     256swr3=read_ncdf('swr',st3,en3,file=file,/nostr, box=box)  
     257swr3=grossemoyenne(swr3, "xy", box=box,/nan)  
     258swr3=reform(swr3) 
    194259 
    195260file=project_id_env+"TropFlux_swr_19890101_20091231_NRT_v50.nc" 
    196261initncdf, 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 
     262olr1=read_ncdf("sw", st1-1, en1, file=file,/nostr, box=box)  
     263olr1=grossemoyenne(olr1, "xy",/nan, box=box)  
     264olr1=reform(olr1) 
     265olr2=read_ncdf("sw", st2-1, en2, file=file,/nostr, box=box)  
     266olr2=grossemoyenne(olr2, "xy",/nan, box=box)  
     267olr2=reform(olr2) 
     268olr3=read_ncdf("sw", st3-1, en3, file=file,/nostr, box=box)  
     269olr3=grossemoyenne(olr3, "xy",/nan, box=box)  
     270olr3=reform(olr3) 
     271 
     272net1=swr1+lwr1+(shf1+lhf1)  
     273net2=swr2+lwr2+(shf2+lhf2)  
     274net3=swr3+lwr3+(shf3+lhf3) 
     275neto_1=olr1+lwr1+lhf1+shf1  
     276neto_2=olr2+lwr2+lhf2+shf2  
     277neto_3=olr3+lwr3+lhf3+shf3 
     278 
     279trop=[net1,net2,net3]  
     280olr=[neto_1,neto_2,neto_3] 
     281 
     282lhf1=0.  
     283lhf2=0.  
     284lhf3=0. 
     285shf1=0.  
     286shf2=0.  
     287shf3=0. 
     288lwr1=0.  
     289lwr2=0.  
     290lwr3=0. 
     291swr1=0.  
     292swr2=0.  
     293swr3=0. 
     294net1=0.  
     295net2=0.  
     296net3=0. 
     297neto_1=0  
     298neto_2=0  
     299neto_3=0 
    212300 
    213301help, trop, olr 
    … …  
    215303file=project_id_env+'swr_oafluxgrid_1985_2007.nc' 
    216304initncdf, 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) 
     305swr1=read_ncdf("swr", st1, en1, file=file,/nostr, box=box)  
     306swr1=grossemoyenne(swr1, "xy",/nan, box=box)  
     307swr1=reform(swr1) 
     308swr2=read_ncdf("swr", st2, en2, file=file,/nostr, box=box)  
     309swr2=grossemoyenne(swr2, "xy",/nan, box=box)  
     310swr2=reform(swr2) 
     311swr3=read_ncdf("swr", st3, en3, file=file,/nostr, box=box)  
     312swr3=grossemoyenne(swr3, "xy",/nan, box=box)  
     313swr3=reform(swr3) 
    220314 
    221315file=project_id_env+'lwr_oafluxgrid_1985_2007.nc' 
    222316initncdf, 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) 
     317lwr1=-1*read_ncdf("lwr", st1, en1, file=file,/nostr, box=box)  
     318lwr1=grossemoyenne(lwr1, "xy",/nan, box=box)  
     319lwr1=reform(lwr1) 
     320lwr2=-1*read_ncdf("lwr", st2, en2, file=file,/nostr, box=box)  
     321lwr2=grossemoyenne(lwr2, "xy",/nan, box=box)  
     322lwr2=reform(lwr2) 
     323lwr3=-1*read_ncdf("lwr", st3, en3, file=file,/nostr, box=box)  
     324lwr3=grossemoyenne(lwr3, "xy",/nan, box=box)  
     325lwr3=reform(lwr3) 
    226326 
    227327file=project_id_env+'lhf_oafluxgrid_1985_2009.nc' 
    228328initncdf, 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) 
     329lhf1=-1*read_ncdf("lhf", st1, en1, file=file,/nostr, box=box)  
     330lhf1=grossemoyenne(lhf1, "xy",/nan, box=box)  
     331lhf1=reform(lhf1) 
     332lhf2=-1*read_ncdf("lhf", st2, en2, file=file,/nostr, box=box)  
     333lhf2=grossemoyenne(lhf2, "xy",/nan, box=box)  
     334lhf2=reform(lhf2) 
     335lhf3=-1*read_ncdf("lhf", st3, en3, file=file,/nostr, box=box)  
     336lhf3=grossemoyenne(lhf3, "xy",/nan, box=box)  
     337lhf3=reform(lhf3) 
    232338 
    233339file=project_id_env+'shf_oafluxgrid_1985_2009.nc' 
    234340initncdf, 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 
     341shf1=-1*read_ncdf("shf", st1, en1, file=file,/nostr, box=box)  
     342shf1=grossemoyenne(shf1, "xy",/nan, box=box)  
     343shf1=reform(shf1) 
     344shf2=-1*read_ncdf("shf", st2, en2, file=file,/nostr, box=box)  
     345shf2=grossemoyenne(shf2, "xy",/nan, box=box)  
     346shf2=reform(shf2) 
     347shf3=-1*read_ncdf("shf", st3, en3, file=file,/nostr, box=box)  
     348shf3=grossemoyenne(shf3, "xy",/nan, box=box)  
     349shf3=reform(shf3) 
     350 
     351net1=swr1+lwr1+lhf1+shf1  
     352net2=swr2+lwr2+lhf2+shf2  
     353net3=swr3+lwr3+lhf3+shf3 
    240354 
    241355oaf=[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. 
     356lhf1=0.  
     357lhf2=0.  
     358lhf3=0. 
     359shf1=0.  
     360shf2=0.  
     361shf3=0. 
     362lwr1=0.  
     363lwr2=0.  
     364lwr3=0. 
     365swr1=0.  
     366swr2=0.  
     367swr3=0. 
     368net1=0.  
     369net2=0. 
     370net3=0. 
    247371help, oaf 
    248372 
    249373fi=project_id_env+'swr_ncep2_oaflxgrid_19890101_20091231.nc' 
    250374initncdf, 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) 
     375swr1=read_ncdf("swr", st1, en1, file=fi,/nostr, box=box)  
     376swr1=grossemoyenne(swr1, "xy",/nan, box=box)  
     377swr1=reform(swr1) 
     378swr2=read_ncdf("swr", st2, en2, file=fi,/nostr, box=box)  
     379swr2=grossemoyenne(swr2, "xy",/nan, box=box)  
     380swr2=reform(swr2) 
     381swr3=read_ncdf("swr", st3, en3, file=fi,/nostr, box=box)  
     382swr3=grossemoyenne(swr3, "xy",/nan, box=box)  
     383swr3=reform(swr3) 
    254384 
    255385fi=project_id_env+'NCEP2_flux_19890101_20090729.nc" 
    256386initncdf, 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) 
     387lwr1=-1*read_ncdf("lwr", st1, en1, file=fi,/nostr, box=box)  
     388lwr1=grossemoyenne(lwr1, "xy",/nan, box=box)  
     389lwr1=reform(lwr1) 
     390lwr2=-1*read_ncdf("lwr", st2, en2, file=fi,/nostr, box=box)  
     391lwr2=grossemoyenne(lwr2, "xy",/nan, box=box)  
     392lwr2=reform(lwr2) 
     393lwr3=-1*read_ncdf("lwr", st3, en3, file=fi,/nostr, box=box)  
     394lwr3=grossemoyenne(lwr3, "xy",/nan, box=box)  
     395lwr3=reform(lwr3) 
    260396 
    261397fi=project_id_env+'lhf_ncep2_oafluxgrid_19890101_20091231.nc' 
    262398initncdf, 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) 
     399lhf1=-1*read_ncdf("lhf", st1, en1, file=fi,/nostr, box=box)  
     400lhf1=grossemoyenne(lhf1, "xy",/nan, box=box)  
     401lhf1=reform(lhf1) 
     402lhf2=-1*read_ncdf("lhf", st2, en2, file=fi,/nostr, box=box)  
     403lhf2=grossemoyenne(lhf2, "xy",/nan, box=box)  
     404lhf2=reform(lhf2) 
     405lhf3=-1*read_ncdf("lhf", st3, en3, file=fi,/nostr, box=box)  
     406lhf3=grossemoyenne(lhf3, "xy",/nan, box=box)  
     407lhf3=reform(lhf3) 
    266408 
    267409fi=project_id_env+'shf_ncep2_oafluxgrid_19890101_20091231.nc' 
    268410initncdf, 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 
     411shf1=-1*read_ncdf("shf", st1, en1, file=fi,/nostr, box=box)  
     412shf1=grossemoyenne(shf1, "xy",/nan, box=box)  
     413shf1=reform(shf1) 
     414shf2=-1*read_ncdf("shf", st2, en2, file=fi,/nostr, box=box)  
     415shf2=grossemoyenne(shf2, "xy",/nan, box=box)  
     416shf2=reform(shf2) 
     417shf3=-1*read_ncdf("shf", st3, en3, file=fi,/nostr, box=box)  
     418shf3=grossemoyenne(shf3, "xy",/nan, box=box)  
     419shf3=reform(shf3) 
     420 
     421net1=swr1+lwr1+lhf1+shf1  
     422net2=swr2+lwr2+lhf2+shf2  
     423net3=swr3+lwr3+lhf3+shf3 
    274424 
    275425nce2=[net1,net2,net3] 
    276426help, nce2 
    277427 
    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. 
     428lhf1=0.  
     429lhf2=0.  
     430lhf3=0. 
     431shf1=0.  
     432shf2=0.  
     433shf3=0. 
     434lwr1=0.  
     435lwr2=0.  
     436lwr3=0. 
     437swr1=0.  
     438swr2=0.  
     439swr3=0. 
     440net1=0.  
     441net2=0.  
     442net3=0. 
    283443 
    284444file=project_id_env+"ncep1_flux_19890101_20091231.nc" 
    285445initncdf, file 
    286446 
    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) 
     447lhf1=read_ncdf('lhf',st1,en1,file=file,/nostr, box=box)  
     448lhf1=grossemoyenne(lhf1, "xy", box=box,/nan)  
     449lhf1=reform(lhf1) 
     450lhf2=read_ncdf('lhf',st2,en2,file=file,/nostr, box=box)  
     451lhf2=grossemoyenne(lhf2, "xy", box=box,/nan)  
     452lhf2=reform(lhf2) 
     453lhf3=read_ncdf('lhf',st3,en3,file=file,/nostr, box=box)  
     454lhf3=grossemoyenne(lhf3, "xy", box=box,/nan)  
     455lhf3=reform(lhf3) 
     456 
     457shf1=read_ncdf('shf',st1,en1,file=file,/nostr, box=box)  
     458shf1=grossemoyenne(shf1, "xy", box=box,/nan)  
     459shf1=reform(shf1) 
     460shf2=read_ncdf('shf',st2,en2,file=file,/nostr, box=box)  
     461shf2=grossemoyenne(shf2, "xy", box=box,/nan)  
     462shf2=reform(shf2) 
     463shf3=read_ncdf('shf',st3,en3,file=file,/nostr, box=box)  
     464shf3=grossemoyenne(shf3, "xy", box=box,/nan)  
     465shf3=reform(shf3) 
     466 
     467lwr1=read_ncdf('lwr',st1,en1,file=file,/nostr, box=box)  
     468lwr1=grossemoyenne(lwr1, "xy", box=box,/nan)  
     469lwr1=reform(lwr1) 
     470lwr2=read_ncdf('lwr',st2,en2,file=file,/nostr, box=box)  
     471lwr2=grossemoyenne(lwr2, "xy", box=box,/nan)  
     472lwr2=reform(lwr2) 
     473lwr3=read_ncdf('lwr',st3,en3,file=file,/nostr, box=box)  
     474lwr3=grossemoyenne(lwr3, "xy", box=box,/nan)  
     475lwr3=reform(lwr3) 
     476 
     477swr1=read_ncdf('swr',st1,en1,file=file,/nostr, box=box)  
     478swr1=grossemoyenne(swr1, "xy", box=box,/nan)  
     479swr1=reform(swr1) 
     480swr2=read_ncdf('swr',st2,en2,file=file,/nostr, box=box)  
     481swr2=grossemoyenne(swr2, "xy", box=box,/nan)  
     482swr2=reform(swr2) 
     483swr3=read_ncdf('swr',st3,en3,file=file,/nostr, box=box)  
     484swr3=grossemoyenne(swr3, "xy", box=box,/nan)  
     485swr3=reform(swr3) 
     486 
     487net1=swr1+(lwr1+shf1+lhf1)  
     488net2=swr2+(lwr2+shf2+lhf2)  
     489net3=swr3+(lwr3+shf3+lhf3) 
    304490nce1=[net1,net2,net3] 
    305491help, nce1 
    306492 
    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. 
     493lhf1=0.  
     494lhf2=0.  
     495lhf3=0. 
     496shf1=0.  
     497shf2=0.  
     498shf3=0. 
     499lwr1=0.  
     500lwr2=0.  
     501lwr3=0. 
     502swr1=0.  
     503swr2=0.  
     504swr3=0. 
     505net1=0.  
     506net2=0.  
     507net3=0. 
    312508 
    313509ind=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) 
     510net=net(ind)  
     511era=era(ind)  
     512trop=trop(ind)  
     513oaf=oaf(ind) 
     514nce2=nce2(ind)  
     515nce1=nce1(ind)  
     516olr=olr(ind) 
    316517 
    317518 

  • trunk/src/paper01/fig15/fig15_timeseries_mjo.pro

    r85 r94  
    8484 
    8585openps, FILENAME = project_od_env+'fig15_timeseries_mjo.ps' 
    86 date1=20071001 & date2=20080331 
    87 date1=19990101 & date2=20021231 
     86date1=20071001  
     87date2=20080331 
     88date1=19990101  
     89date2=20021231 
    8890box=[50,80,-12,-5] 
    8991 
    … …  
    9395lhf_trop=read_ncdf("lhf", date1, date2, box=box, file=file_trop,/nostr) 
    9496swr_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 
     97lwr_trop=read_ncdf("lwr", date1, date2, box=box, file=file_trop,/nostr)  
     98;; ref_lw=-1*lwr_trop 
    9699trop=swr_trop+(lwr_trop+lhf_trop+shf_trop) 
    97100help, trop 
    … …  
    114117lhf=read_ncdf("lhf", date1, date2, box=box, file=file_erai,/nostr) 
    115118lwr=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 
     119swr=read_ncdf("swr", date1, date2, box=box, file=file_erai,/nostr)  
     120swr=-1*swr 
    117121era=swr-(lwr+lhf+shf) 
    118122era=grossemoyenne(era, "xy",/nan) 
    … …  
    141145file_oaf=project_id_env+'swr_oafluxgrid_1985_2007.nc' 
    142146initncdf, file_oaf 
    143 swr=read_ncdf("swr", date1, date2, box=box, file=file_oaf,/nostr) & swr_trop=swr 
     147swr=read_ncdf("swr", date1, date2, box=box, file=file_oaf,/nostr)  
     148swr_trop=swr 
    144149oafl=swr-(lwr+lhf+shf) 
    145150help, oafl 
    … …  
    155160save, olr,trop, nce2, era, nce, filename="netflux_sctr_1999_2002.idl" 
    156161 
    157 trop_hf=trop*0. & nce2_hf=trop*0. 
    158 era_hf=trop*0. & nce_hf=trop*0. 
    159  
    160 Thf=30 & Tlf=90 
     162trop_hf=trop*0.  
     163nce2_hf=trop*0. 
     164era_hf=trop*0.  
     165nce_hf=trop*0. 
     166 
     167Thf=30  
     168Tlf=90 
    161169tsamp=1.   ; monthly 
    162170freq=findgen(jpt/2+1)/(jpt*tsamp) 

  • trunk/src/paper01/fig16/fig16_timeseries_nino3.pro

    r85 r94  
    102102 
    103103openps, FILENAME = project_od_env+'fig16_timeseries_nino3.ps' 
    104 date1=19940101 & date2=20071231 
     104date1=19940101  
     105date2=20071231 
    105106box=[240,330,-5,5] 
    106107 
    … …  
    123124sst_nclim=total(reform(sst(0:nt-1),365,ny),2)/ny 
    124125 
    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) 
     126trop_nclim=[trop_nclim ,trop_nclim, trop_nclim]  
     127trop_nclim=smooth(trop_nclim,nsmooth,/nan)  
     128trop_nclim=trop_nclim[365:365+364] 
     129oafl_nclim=[oafl_nclim ,oafl_nclim, oafl_nclim]  
     130oafl_nclim=smooth(oafl_nclim,nsmooth,/nan)  
     131oafl_nclim=oafl_nclim[365:365+364] 
     132nce2_nclim=[nce2_nclim ,nce2_nclim ,nce2_nclim]  
     133nce2_nclim=smooth(nce2_nclim,nsmooth,/nan)  
     134nce2_nclim=nce2_nclim[365:365+364] 
     135era_nclim=[era_nclim ,era_nclim, era_nclim]  
     136era_nclim=smooth(era_nclim,nsmooth,/nan)  
     137era_nclim=era_nclim[365:365+364] 
     138nce_nclim=[nce_nclim ,nce_nclim ,nce_nclim]  
     139nce_nclim=smooth(nce_nclim,nsmooth,/nan)  
     140nce_nclim=nce_nclim[365:365+364] 
     141sst_nclim=[sst_nclim ,sst_nclim ,sst_nclim]  
     142sst_nclim=smooth(sst_nclim,nsmooth,/nan)  
     143sst_nclim=sst_nclim[365:365+364] 
     144 
     145time=time  
     146jpt=n_elements(time) 
    133147 
    134148caldat, 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. 
     149trop_clim=trop*0.  
     150era_clim=trop*0. 
     151oafl_clim=trop*0.  
     152nce_clim=trop*0. 
     153nce2_clim=trop*0.  
     154sst_clim=trop*0. 
    138155 
    139156for jt=0,jpt-1 do begin 
    … …  
    147164endfor 
    148165 
    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. 
     166trop_ano=trop-trop_clim  
     167oafl_ano=oafl-oafl_clim 
     168nce2_ano=nce2-nce2_clim  
     169era_ano=era-era_clim 
     170nce_ano=nce-nce_clim     
     171sst_ano=sst-sst_clim 
     172 
     173trop_hf=trop*0.  
     174nce2_hf=trop*0. 
     175oafl_hf=trop*0.  
     176era_hf=trop*0. 
    155177nce_hf=trop*0. 
    156178 
    157 Thf=1 & Tlf=90 
     179Thf=1  
     180Tlf=90 
    158181tsamp=1.   ; monthly 
    159182freq=findgen(jpt/2+1)/(jpt*tsamp) 
    … …  
    189212help, trop_hf, nce2_hf, era_hf, nce_hf 
    190213 
    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 
     214trop_ano=trop_ano-trop_hf  
     215oafl_ano=oafl_ano-oafl_hf 
     216nce2_ano=nce2_ano-nce2_hf  
     217era_ano=era_ano-era_hf 
    193218nce_ano=nce_ano-nce_hf 
    194219 

  • trunk/src/paper01/fig2/fig2_timeline_diagram.pro

    r85 r94  
    132132;; reading data from mooring 
    133133 
    134     site=sitelist(n) & csite=site 
     134    site=sitelist(n)  
     135    csite=site 
    135136    print, csite 
    136137    x=x_site_location(site) 
    137138    y=y_site_location(site) 
    138139    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] 
    140143 
    141144    nsmooth=1. 
    … …  
    145148    read_lh, csite, date1, date2, nsmooth, lh 
    146149 
    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. 
    149154    no_obs_lh=no_obs_lh+lh 
    150155 
    … …  
    168173;; reading data from mooring 
    169174 
    170     site=sitelist(n) & csite=site 
     175    site=sitelist(n)  
     176    csite=site 
    171177    print, csite 
    172178    x=x_site_location(site) 
    173179    y=y_site_location(site) 
    174180    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] 
    176184 
    177185    nsmooth=1. 
    178186    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) 
    180190    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. 
    183195       no_obs_sw=no_obs_sw+sw 
    184196    endif 
    … …  
    195207;; reading data from mooring 
    196208 
    197     site=sitelist(n) & csite=site 
     209    site=sitelist(n)  
     210    csite=site 
    198211    print, csite 
    199212    x=x_site_location(site) 
    200213    y=y_site_location(site) 
    201214    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] 
    203218 
    204219    nsmooth=1. 
    205220    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) 
    207224    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. 
    210229       no_obs_lw=no_obs_lw+lw 
    211230    endif 

  • trunk/src/paper01/fig2/read_lh.pro

    r85 r94  
    124124for n=0,nn-1 do begin 
    125125  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' 
    127128  r=execute(com) 
    128129endfor 

  • trunk/src/paper01/fig2/read_lw.pro

    r85 r94  
    118118for n=0,nn-1 do begin 
    119119  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' 
    121122  r=execute(com) 
    122123endfor 

  • trunk/src/paper01/fig2/read_sw.pro

    r85 r94  
    126126for n=0,nn-1 do begin 
    127127  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' 
    129130  r=execute(com) 
    130131endfor 

  • trunk/src/paper01/fig2/time_lec.pro

    r85 r94  
    4646function time_lec, fi 
    4747tt=ncdf_lec(fi,var='time') 
    48 fid=ncdf_open(fi) & vid=ncdf_varid(fid,'time') 
     48fid=ncdf_open(fi)  
     49vid=ncdf_varid(fid,'time') 
    4950ncdf_attget, fid,vid,'units',orig 
    5051orig=string(orig) 

  • trunk/src/paper01/fig3/air_validation_scatter_2000_2009_v50.pro

    r85 r94  
    147147file=project_id_env+'erai_t2m_19890101_20091231_oafluxgrid.nc' 
    148148initncdf, file 
    149 unc=read_ncdf('t2m',date1,date2,file=file,/nostr) & unc=unc-273.15 
     149unc=read_ncdf('t2m',date1,date2,file=file,/nostr)  
     150unc=unc-273.15 
    150151help, unc 
    151152 
    152153file=project_id_env+'TropFlux_t2m_19890101_20091231_v50.nc' 
    153154initncdf, file 
    154 cor=read_ncdf('t2m',date1,date2,file=file,/nostr) & cor=cor-273.15 
     155cor=read_ncdf('t2m',date1,date2,file=file,/nostr)  
     156cor=cor-273.15 
    155157help, cor 
    156158 
    … …  
    177179;; reading data from mooring 
    178180 
    179     site=sitelist(n) & csite=site 
     181    site=sitelist(n)  
     182    csite=site 
    180183    print, csite 
    181184    x=x_site_location(site) 
    182185    y=y_site_location(site) 
    183186    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] 
    185190    read_variables_v2, csite,date1,date2,nsmooth, $ 
    186191         at, sw,rh,sst,wu,wv,ws,lh 
    … …  
    219224 
    220225 
    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) 
    223233    mean_tao=total(air,/nan)/n_elements(ind) 
    224234 
    … …  
    246256lat=reform(ff(0,*)) 
    247257lon=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 
     258cor_era=reform(ff(2,*))    
     259cor_erai=total(cor_era)/n_elements(cor_era) 
     260bias_era=reform(ff(3,*))   
     261bias_erai=total(bias_era)/n_elements(bias_era) 
     262std_era=reform(ff(4,*))    
     263std_erai=total(std_era)/n_elements(std_era) 
     264rmsd_era=reform(ff(5,*))   
     265rmsd_erai=total(rmsd_era)/n_elements(rmsd_era) 
     266mean_tao=reform(ff(6,*))   
     267mean_erai=bias_era+mean_tao 
    253268 
    254269print, '' 
    … …  
    264279oplot, [22,31], [22,31] 
    265280ab=linfit(mean_tao, mean_erai,yfit=yfit) 
    266 a=float(ab(0)) & b=float(ab(1)) 
     281a=float(ab(0))  
     282b=float(ab(1)) 
    267283oplot, mean_tao, yfit, color=250, thick=2 
    268284 
    … …  
    272288lat=reform(ff(0,*)) 
    273289lon=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 
     290cor_tro=reform(ff(2,*))    
     291cor_trop=total(cor_tro)/n_elements(cor_tro) 
     292bias_tro=reform(ff(3,*))   
     293bias_trop=total(bias_tro)/n_elements(bias_tro) 
     294std_tro=reform(ff(4,*))    
     295std_trop=total(std_tro)/n_elements(std_tro) 
     296rmsd_tro=reform(ff(5,*))   
     297rmsd_trop=total(rmsd_tro)/n_elements(rmsd_tro) 
     298mean_tao=reform(ff(6,*))   
     299mean_trop=bias_tro+mean_tao 
    279300 
    280301print, '' 
    … …  
    291312 
    292313ab=linfit(mean_tao, mean_trop,yfit=yfit) 
    293 a=float(ab(0)) & b=float(ab(1)) 
     314a=float(ab(0))  
     315b=float(ab(1)) 
    294316oplot, mean_tao, yfit, color=250, thick=2 
    295317 
    … …  
    299321lat=reform(ff(0,*)) 
    300322lon=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 
     323cor_oaf=reform(ff(2,*))    
     324cor_oafl=total(cor_oaf)/n_elements(cor_oaf) 
     325bias_oaf=reform(ff(3,*))   
     326bias_oafl=total(bias_oaf)/n_elements(bias_oaf) 
     327std_oaf=reform(ff(4,*))    
     328std_oafl=total(std_oaf)/n_elements(std_oaf) 
     329rmsd_oaf=reform(ff(5,*))   
     330rmsd_oafl=total(rmsd_oaf)/n_elements(rmsd_oaf) 
     331mean_tao=reform(ff(6,*))   
     332mean_oafl=bias_oaf+mean_tao 
    306333 
    307334print, '' 
    … …  
    318345 
    319346ab=linfit(mean_tao, mean_oafl,yfit=yfit) 
    320 a=float(ab(0)) & b=float(ab(1)) 
     347a=float(ab(0))  
     348b=float(ab(1)) 
    321349oplot, mean_tao, yfit, color=250, thick=2 
    322  
    323  
    324350 
    325351fi_air_ncep=project_id_env+'air_2000_2009_ncep_v50.txt' 
    … …  
    328354lat=reform(ff(0,*)) 
    329355lon=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 
     356cor_nce=reform(ff(2,*))    
     357cor_ncep=total(cor_nce)/n_elements(cor_nce) 
     358bias_nce=reform(ff(3,*))   
     359bias_ncep=total(bias_nce)/n_elements(bias_nce) 
     360std_nce=reform(ff(4,*))    
     361std_ncep=total(std_nce)/n_elements(std_nce) 
     362rmsd_nce=reform(ff(5,*))   
     363rmsd_ncep=total(rmsd_nce)/n_elements(rmsd_nce) 
     364mean_tao=reform(ff(6,*))  
     365mean_ncep=bias_nce+mean_tao 
    335366 
    336367print, '' 
    … …  
    347378 
    348379ab=linfit(mean_tao, mean_ncep,yfit=yfit) 
    349 a=float(ab(0)) & b=float(ab(1)) 
     380a=float(ab(0))  
     381b=float(ab(1)) 
    350382oplot, mean_tao, yfit, color=250, thick=2 
    351383 
    … …  
    355387lat=reform(ff(0,*)) 
    356388lon=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 
     389cor_nce=reform(ff(2,*))    
     390cor_ncep=total(cor_nce)/n_elements(cor_nce) 
     391bias_nce=reform(ff(3,*))   
     392bias_ncep=total(bias_nce)/n_elements(bias_nce) 
     393std_nce=reform(ff(4,*))    
     394std_ncep=total(std_nce)/n_elements(std_nce) 
     395rmsd_nce=reform(ff(5,*))   
     396rmsd_ncep=total(rmsd_nce)/n_elements(rmsd_nce) 
     397mean_tao=reform(ff(6,*))   
     398mean_ncep=bias_nce+mean_tao 
    362399 
    363400print, '' 
    … …  
    374411 
    375412ab=linfit(mean_tao, mean_ncep,yfit=yfit) 
    376 a=float(ab(0)) & b=float(ab(1)) 
     413a=float(ab(0))  
     414b=float(ab(1)) 
    377415oplot, mean_tao, yfit, color=250, thick=2 
    378416 

  • trunk/src/paper01/fig3/q2m_validation_scatter_2000_2009_v50.pro

    r85 r94  
    179179;; reading data from mooring 
    180180 
    181     site=sitelist(n) & csite=site 
     181    site=sitelist(n)  
     182    csite=site 
    182183    print, csite 
    183184    x=x_site_location(site) 
    184185    y=y_site_location(site) 
    185186    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] 
    187190    read_variables_v2, csite,date1,date2,nsmooth, $ 
    188191         at, sw,rh,sst,wu,wv,ws,lh 
    … …  
    220223     ncep1=tropflux 
    221224 
    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) 
    224232    mean_tao=total(q2m,/nan)/n_elements(ind) 
    225233 
    … …  
    247255lat=reform(ff(0,*)) 
    248256lon=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 
     257cor_era=reform(ff(2,*))    
     258cor_erai=total(cor_era)/n_elements(cor_era) 
     259bias_era=reform(ff(3,*))   
     260bias_erai=total(bias_era)/n_elements(bias_era) 
     261std_era=reform(ff(4,*))    
     262std_erai=total(std_era)/n_elements(std_era) 
     263rmsd_era=reform(ff(5,*))   
     264rmsd_erai=total(rmsd_era)/n_elements(rmsd_era) 
     265mean_tao=reform(ff(6,*))   
     266mean_erai=bias_era+mean_tao 
    254267 
    255268print, '' 
    … …  
    265278oplot, [11,21], [11,21] 
    266279ab=linfit(mean_tao, mean_erai,yfit=yfit) 
    267 a=float(ab(0)) & b=float(ab(1)) 
     280a=float(ab(0))  
     281b=float(ab(1)) 
    268282oplot, mean_tao, yfit, color=250, thick=2 
    269283 
    … …  
    273287lat=reform(ff(0,*)) 
    274288lon=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 
     289cor_tro=reform(ff(2,*))    
     290cor_trop=total(cor_tro)/n_elements(cor_tro) 
     291bias_tro=reform(ff(3,*))   
     292bias_trop=total(bias_tro)/n_elements(bias_tro) 
     293std_tro=reform(ff(4,*))    
     294std_trop=total(std_tro)/n_elements(std_tro) 
     295rmsd_tro=reform(ff(5,*))   
     296rmsd_trop=total(rmsd_tro)/n_elements(rmsd_tro) 
     297mean_tao=reform(ff(6,*))   
     298mean_trop=bias_tro+mean_tao 
    280299 
    281300print, '' 
    … …  
    292311 
    293312ab=linfit(mean_tao, mean_trop,yfit=yfit) 
    294 a=float(ab(0)) & b=float(ab(1)) 
     313a=float(ab(0))  
     314b=float(ab(1)) 
    295315oplot, mean_tao, yfit, color=250, thick=2 
    296316 
    … …  
    300320lat=reform(ff(0,*)) 
    301321lon=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 
     322cor_oaf=reform(ff(2,*))    
     323cor_oafl=total(cor_oaf)/n_elements(cor_oaf) 
     324bias_oaf=reform(ff(3,*))   
     325bias_oafl=total(bias_oaf)/n_elements(bias_oaf) 
     326std_oaf=reform(ff(4,*))    
     327std_oafl=total(std_oaf)/n_elements(std_oaf) 
     328rmsd_oaf=reform(ff(5,*))   
     329rmsd_oafl=total(rmsd_oaf)/n_elements(rmsd_oaf) 
     330mean_tao=reform(ff(6,*))   
     331mean_oafl=bias_oaf+mean_tao 
    307332 
    308333print, '' 
    … …  
    319344 
    320345ab=linfit(mean_tao, mean_oafl,yfit=yfit) 
    321 a=float(ab(0)) & b=float(ab(1)) 
     346a=float(ab(0))  
     347b=float(ab(1)) 
    322348oplot, mean_tao, yfit, color=250, thick=2 
    323349 
    … …  
    328354lat=reform(ff(0,*)) 
    329355lon=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 
     356cor_nce=reform(ff(2,*))    
     357cor_ncep=total(cor_nce)/n_elements(cor_nce) 
     358bias_nce=reform(ff(3,*))   
     359bias_ncep=total(bias_nce)/n_elements(bias_nce) 
     360std_nce=reform(ff(4,*))    
     361std_ncep=total(std_nce)/n_elements(std_nce) 
     362rmsd_nce=reform(ff(5,*))   
     363rmsd_ncep=total(rmsd_nce)/n_elements(rmsd_nce) 
     364mean_tao=reform(ff(6,*))   
     365mean_ncep=bias_nce+mean_tao 
    335366 
    336367print, '' 
    … …  
    347378 
    348379ab=linfit(mean_tao, mean_ncep,yfit=yfit) 
    349 a=float(ab(0)) & b=float(ab(1)) 
     380a=float(ab(0))  
     381b=float(ab(1)) 
    350382oplot, mean_tao, yfit, color=250, thick=2 
    351383 
    … …  
    355387lat=reform(ff(0,*)) 
    356388lon=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 
     389cor_nce=reform(ff(2,*))    
     390cor_ncep=total(cor_nce)/n_elements(cor_nce) 
     391bias_nce=reform(ff(3,*))   
     392bias_ncep=total(bias_nce)/n_elements(bias_nce) 
     393std_nce=reform(ff(4,*))    
     394std_ncep=total(std_nce)/n_elements(std_nce) 
     395rmsd_nce=reform(ff(5,*))   
     396rmsd_ncep=total(rmsd_nce)/n_elements(rmsd_nce) 
     397mean_tao=reform(ff(6,*))   
     398mean_ncep=bias_nce+mean_tao 
    362399 
    363400print, '' 
    … …  
    374411 
    375412ab=linfit(mean_tao, mean_ncep,yfit=yfit) 
    376 a=float(ab(0)) & b=float(ab(1)) 
     413a=float(ab(0))  
     414b=float(ab(1)) 
    377415oplot, mean_tao, yfit, color=250, thick=2 
    378416 

  • trunk/src/paper01/fig3/read_variables_v2.pro

    r85 r94  
    207207endelse 
    208208 
    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) 
     209ind_at=where(at_q ne 1 and at_q ne 2)    
     210ind_ws=where(ws_q ne 1 and ws_q ne 2) 
     211ind_rh=where(rh_q ne 1 and rh_q ne 2)    
     212ind_sst=where(sst_q ne 1 and sst_q ne 2) 
    211213ind_lh=where(lh_q ne 1 and lh_q ne 2) 
    212214 
    … …  
    214216 
    215217if (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 
    220226endif 
    221227; 
    … …  
    227233for n=0,nn-1 do begin 
    228234  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' 
    230237  r=execute(com) 
    231238endfor 
    232239 
    233240nsmooth=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) 
     241at=smooth(at,nsmooth,/nan)  
     242sst=smooth(sst,nsmooth,/nan) 
     243lh=smooth(lh,nsmooth,/nan)  
     244rh=smooth(rh,nsmooth,/nan) 
     245wu=smooth(wu,nsmooth,/nan)  
     246wv=smooth(wv,nsmooth,/nan) 
     247ws=smooth(ws,nsmooth,/nan)  
     248sw=smooth(sw,nsmooth,/nan) 
    238249 
    239250end 
    … …  
    242253function time_lec, fi 
    243254tt=ncdf_lec(fi,var='time') 
    244 fid=ncdf_open(fi) & vid=ncdf_varid(fid,'time') 
     255fid=ncdf_open(fi)  
     256vid=ncdf_varid(fid,'time') 
    245257ncdf_attget, fid,vid,'units',orig 
    246258orig=string(orig) 

  • trunk/src/paper01/fig3/sst_validation_scatter_2000_2009_v50.pro

    r85 r94  
    144144file=project_id_env+'erai_sst_19890101_20091231_oafluxgrid.nc' 
    145145initncdf, file 
    146 unc=read_ncdf('sst',date1,date2,file=file,/nostr) & unc=unc-273.15 
     146unc=read_ncdf('sst',date1,date2,file=file,/nostr)  
     147unc=unc-273.15 
    147148help, unc 
    148149 
    149150file=project_id_env+'TropFlux_sst_19890101_20091231_v20.nc' 
    150151initncdf, file 
    151 cor=read_ncdf('sst',date1,date2,file=file,/nostr) & cor=cor-273.15 
     152cor=read_ncdf('sst',date1,date2,file=file,/nostr)  
     153cor=cor-273.15 
    152154help, cor 
    153155 
    … …  
    179181;; reading data from mooring 
    180182 
    181     site=sitelist(n) & csite=site 
     183    site=sitelist(n)  
     184    csite=site 
    182185    print, csite 
    183186    x=x_site_location(site) 
    184187    y=y_site_location(site) 
    185188    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] 
    187192    read_variables_v2, csite,date1,date2,nsmooth, $ 
    188193         at, sw,rh,sst,wu,wv,ws,lh 
    189194 
    190195 
    191     ind=where(finite(sst)) & valid=n_elements(ind) 
     196    ind=where(finite(sst))  
     197    valid=n_elements(ind) 
    192198 
    193199    if (valid ge 180) then begin 
    … …  
    221227 
    222228 
    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) 
    225237      mean_tao=total(sst,/nan)/n_elements(ind) 
    226238 
    … …  
    251263lat=reform(ff(0,*)) 
    252264lon=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 
     265cor_era=reform(ff(2,*))    
     266cor_erai=total(cor_era)/n_elements(cor_era) 
     267bias_era=reform(ff(3,*))   
     268bias_erai=total(bias_era)/n_elements(bias_era) 
     269std_era=reform(ff(4,*))    
     270std_erai=total(std_era)/n_elements(std_era) 
     271rmsd_era=reform(ff(5,*))   
     272rmsd_erai=total(rmsd_era)/n_elements(rmsd_era) 
     273mean_tao=reform(ff(6,*))   
     274mean_erai=bias_era+mean_tao 
    258275 
    259276print, '' 
    … …  
    269286oplot, [22,31], [22,31] 
    270287ab=linfit(mean_tao, mean_erai,yfit=yfit) 
    271 a=float(ab(0)) & b=float(ab(1)) 
     288a=float(ab(0))  
     289b=float(ab(1)) 
    272290oplot, mean_tao, yfit, color=250, thick=2 
    273291 
    … …  
    277295lat=reform(ff(0,*)) 
    278296lon=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 
     297cor_tro=reform(ff(2,*))    
     298cor_trop=total(cor_tro)/n_elements(cor_tro) 
     299bias_tro=reform(ff(3,*))   
     300bias_trop=total(bias_tro)/n_elements(bias_tro) 
     301std_tro=reform(ff(4,*))    
     302std_trop=total(std_tro)/n_elements(std_tro) 
     303rmsd_tro=reform(ff(5,*))   
     304rmsd_trop=total(rmsd_tro)/n_elements(rmsd_tro) 
     305mean_tao=reform(ff(6,*))   
     306mean_trop=bias_tro+mean_tao 
    284307 
    285308print, '' 
    … …  
    296319 
    297320ab=linfit(mean_tao, mean_trop,yfit=yfit) 
    298 a=float(ab(0)) & b=float(ab(1)) 
     321a=float(ab(0))  
     322b=float(ab(1)) 
    299323oplot, mean_tao, yfit, color=250, thick=2 
    300324 
    … …  
    304328lat=reform(ff(0,*)) 
    305329lon=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 
     330cor_oaf=reform(ff(2,*))    
     331cor_oafl=total(cor_oaf)/n_elements(cor_oaf) 
     332bias_oaf=reform(ff(3,*))   
     333bias_oafl=total(bias_oaf)/n_elements(bias_oaf) 
     334std_oaf=reform(ff(4,*))    
     335std_oafl=total(std_oaf)/n_elements(std_oaf) 
     336rmsd_oaf=reform(ff(5,*))   
     337rmsd_oafl=total(rmsd_oaf)/n_elements(rmsd_oaf) 
     338mean_tao=reform(ff(6,*))   
     339mean_oafl=bias_oaf+mean_tao 
    311340 
    312341print, '' 
    … …  
    323352 
    324353ab=linfit(mean_tao, mean_oafl,yfit=yfit) 
    325 a=float(ab(0)) & b=float(ab(1)) 
     354a=float(ab(0))  
     355b=float(ab(1)) 
    326356oplot, mean_tao, yfit, color=250, thick=2 
    327357 
    … …  
    333363lat=reform(ff(0,*)) 
    334364lon=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 
     365cor_nce=reform(ff(2,*))    
     366cor_ncep=total(cor_nce)/n_elements(cor_nce) 
     367bias_nce=reform(ff(3,*))   
     368bias_ncep=total(bias_nce)/n_elements(bias_nce) 
     369std_nce=reform(ff(4,*))    
     370std_ncep=total(std_nce)/n_elements(std_nce) 
     371rmsd_nce=reform(ff(5,*))   
     372rmsd_ncep=total(rmsd_nce)/n_elements(rmsd_nce) 
     373mean_tao=reform(ff(6,*))   
     374mean_ncep=bias_nce+mean_tao 
    340375 
    341376print, '' 
    … …  
    352387 
    353388ab=linfit(mean_tao, mean_ncep,yfit=yfit) 
    354 a=float(ab(0)) & b=float(ab(1)) 
     389a=float(ab(0))  
     390b=float(ab(1)) 
    355391oplot, mean_tao, yfit, color=250, thick=2 
    356392 
    … …  
    361397lat=reform(ff(0,*)) 
    362398lon=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 
     399cor_tm=reform(ff(2,*))    
     400cor_tmi=total(cor_tm)/n_elements(cor_tm) 
     401bias_tm=reform(ff(3,*))   
     402bias_tmi=total(bias_tm)/n_elements(bias_tm) 
     403std_tm=reform(ff(4,*))    
     404std_tmi=total(std_tm)/n_elements(std_tm) 
     405rmsd_tm=reform(ff(5,*))   
     406rmsd_tmi=total(rmsd_tm)/n_elements(rmsd_tm) 
     407mean_tao=reform(ff(6,*))   
     408mean_tmi=bias_tm+mean_tao 
    368409 
    369410print, '' 
    … …  
    380421 
    381422ab=linfit(mean_tao, mean_tmi,yfit=yfit) 
    382 a=float(ab(0)) & b=float(ab(1)) 
     423a=float(ab(0))  
     424b=float(ab(1)) 
    383425oplot, mean_tao, yfit, color=250, thick=2 
    384426 
    … …  
    388430lat=reform(ff(0,*)) 
    389431lon=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 
     432cor_nce=reform(ff(2,*))    
     433cor_ncep=total(cor_nce)/n_elements(cor_nce) 
     434bias_nce=reform(ff(3,*))   
     435bias_ncep=total(bias_nce)/n_elements(bias_nce) 
     436std_nce=reform(ff(4,*))    
     437std_ncep=total(std_nce)/n_elements(std_nce) 
     438rmsd_nce=reform(ff(5,*))   
     439rmsd_ncep=total(rmsd_nce)/n_elements(rmsd_nce) 
     440mean_tao=reform(ff(6,*))   
     441mean_ncep=bias_nce+mean_tao 
    395442 
    396443print, '' 
    … …  
    407454 
    408455ab=linfit(mean_tao, mean_ncep,yfit=yfit) 
    409 a=float(ab(0)) & b=float(ab(1)) 
     456a=float(ab(0))  
     457b=float(ab(1)) 
    410458oplot, mean_tao, yfit, color=250, thick=2 
    411459 

  • trunk/src/paper01/fig3/statistics_3var_v1.pro

    r85 r94  
    5353 
    5454@cm_project 
    55 x=tao & y=var1 & z=var2 
     55x=tao  
     56y=var1  
     57z=var2 
    5658 
    57 ind1=where(finite(x,/nan)) & ind2=where(finite(y,/nan)) & ind3=where(finite(z,/nan)) 
     59ind1=where(finite(x,/nan))  
     60ind2=where(finite(y,/nan))  
     61ind3=where(finite(z,/nan)) 
    5862ind=inter(ind1,union(ind2,ind3)) 
    5963 
    6064if (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 
    6268endif 
    6369 
    … …  
    6874z=ts_smooth(z,nsmooth,/nan) 
    6975 
    70 ind1=where(finite(x)) & ind2=where(finite(y)) & ind3=where(finite(z)) 
     76ind1=where(finite(x)) 
     77ind2=where(finite(y)) 
     78ind3=where(finite(z)) 
    7179ind=inter(ind1,inter(ind2,ind3)) 
    72 x=x(ind) & y=y(ind) & z=z(ind) 
     80x=x(ind) 
     81y=y(ind) 
     82z=z(ind) 
    7383nn=n_elements(ind) 
    7484 
    75 cor1=correlate(x,y) & cor2=correlate(x,z)  ;; cor1=correlation(tropflux,tao) cor2=correlation(tropflux,rec) 
     85cor1=correlate(x,y) 
     86cor2=correlate(x,z)   
     87;; cor1=correlation(tropflux,tao) cor2=correlation(tropflux,rec) 
    7688xxx=moment(x) 
    77 mean1=xxx(0) & std1=sqrt(xxx(1))    ;; mean1 and std1 --> for tropflux 
     89; mean1 and std1 --> for tropflux 
     90mean1=xxx(0)  
     91std1=sqrt(xxx(1))  
    7892xxx=moment(y) 
    79 mean2=xxx(0) & std2=sqrt(xxx(1))    ;; mean2 and std2 --> for tao 
     93;; mean2 and std2 --> for tao 
     94mean2=xxx(0)  
     95std2=sqrt(xxx(1)) 
    8096xxx=moment(z) 
    81 mean3=xxx(0) & std3=sqrt(xxx(1))    ;; mean3 and std3 --> for rec 
     97;; mean3 and std3 --> for rec 
     98mean3=xxx(0)  
     99std3=sqrt(xxx(1))     
    82100 
    83 bias1=mean2-mean1 & st1=std2/std1 
    84 bias2=mean3-mean1 & st2=std3/std1 
     101bias1=mean2-mean1 
     102st1=std2/std1 
     103bias2=mean3-mean1  
     104st2=std3/std1 
    85105 
    86 std1=st1 & std2=st2 
     106std1=st1  
     107std2=st2 
    87108rmsd1=sqrt(total((x-y)*(x-y))/n_elements(x)) 
    88109rmsd2=sqrt(total((x-z)*(x-z))/n_elements(x)) 

  • trunk/src/paper01/fig3/ws_validation_scatter_2000_2009_v50.pro

    r85 r94  
    113113ocean='global' 
    114114 
    115 da1=10000101 & da2=10081231 
     115da1=10000101  
     116da2=10081231 
    116117nsmooth=1.    ;; statistics are with 7 day smoothed 
    117118;;   This program will create the following text files with statistics of respective variables 
    … …  
    188189;; reading data from mooring 
    189190 
    190     site=sitelist(n) & csite=site 
     191    site=sitelist(n)  
     192    csite=site 
    191193    print, csite 
    192194    x=x_site_location(site) 
    193195    y=y_site_location(site) 
    194196    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] 
    196200    read_variables_v2, csite,date1,date2,nsmooth, $ 
    197201         at, sw,rh,sst,wu,wv,ws, lh 
    … …  
    226230     ncep1=tropflux 
    227231 
    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) 
    230240 
    231241    mean_tao=total(ws)/n_elements(ws) 
    … …  
    254264lat=reform(ff(0,*)) 
    255265lon=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 
     266cor_era=reform(ff(2,*))    
     267cor_erai=total(cor_era)/n_elements(cor_era) 
     268bias_era=reform(ff(3,*))   
     269bias_erai=total(bias_era)/n_elements(bias_era) 
     270std_era=reform(ff(4,*))    
     271std_erai=total(std_era)/n_elements(std_era) 
     272rmsd_era=reform(ff(5,*))   
     273rmsd_erai=total(rmsd_era)/n_elements(rmsd_era) 
     274mean_tao=reform(ff(6,*))   
     275mean_erai=bias_era+mean_tao 
    261276 
    262277print, '' 
    … …  
    272287oplot, [2,10], [2,10] 
    273288ab=linfit(mean_tao, mean_erai,yfit=yfit) 
    274 a=float(ab(0)) & b=float(ab(1)) 
     289a=float(ab(0))  
     290b=float(ab(1)) 
    275291oplot, mean_tao, yfit, color=250, thick=2 
    276292 
    … …  
    280296lat=reform(ff(0,*)) 
    281297lon=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 
     298cor_tro=reform(ff(2,*))    
     299cor_trop=total(cor_tro)/n_elements(cor_tro) 
     300bias_tro=reform(ff(3,*))   
     301bias_trop=total(bias_tro)/n_elements(bias_tro) 
     302std_tro=reform(ff(4,*))    
     303std_trop=total(std_tro)/n_elements(std_tro) 
     304rmsd_tro=reform(ff(5,*))   
     305rmsd_trop=total(rmsd_tro)/n_elements(rmsd_tro) 
     306mean_tao=reform(ff(6,*))   
     307mean_trop=bias_tro+mean_tao 
    287308 
    288309print, '' 
    … …  
    299320 
    300321ab=linfit(mean_tao, mean_trop,yfit=yfit) 
    301 a=float(ab(0)) & b=float(ab(1)) 
     322a=float(ab(0))  
     323b=float(ab(1)) 
    302324oplot, mean_tao, yfit, color=250, thick=2 
    303325 
    … …  
    307329lat=reform(ff(0,*)) 
    308330lon=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 
     331cor_oaf=reform(ff(2,*))    
     332cor_oafl=total(cor_oaf)/n_elements(cor_oaf) 
     333bias_oaf=reform(ff(3,*))   
     334bias_oafl=total(bias_oaf)/n_elements(bias_oaf) 
     335std_oaf=reform(ff(4,*))    
     336std_oafl=total(std_oaf)/n_elements(std_oaf) 
     337rmsd_oaf=reform(ff(5,*))   
     338rmsd_oafl=total(rmsd_oaf)/n_elements(rmsd_oaf) 
     339mean_tao=reform(ff(6,*))   
     340mean_oafl=bias_oaf+mean_tao 
    314341 
    315342print, '' 
    … …  
    326353 
    327354ab=linfit(mean_tao, mean_oafl,yfit=yfit) 
    328 a=float(ab(0)) & b=float(ab(1)) 
     355a=float(ab(0))  
     356b=float(ab(1)) 
    329357oplot, mean_tao, yfit, color=250, thick=2 
    330358 
    … …  
    336364lat=reform(ff(0,*)) 
    337365lon=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 
     366cor_nce=reform(ff(2,*))    
     367cor_ncep=total(cor_nce)/n_elements(cor_nce) 
     368bias_nce=reform(ff(3,*))   
     369bias_ncep=total(bias_nce)/n_elements(bias_nce) 
     370std_nce=reform(ff(4,*))    
     371std_ncep=total(std_nce)/n_elements(std_nce) 
     372rmsd_nce=reform(ff(5,*))   
     373rmsd_ncep=total(rmsd_nce)/n_elements(rmsd_nce) 
     374mean_tao=reform(ff(6,*))   
     375mean_ncep=bias_nce+mean_tao 
    343376 
    344377print, '' 
    … …  
    355388 
    356389ab=linfit(mean_tao, mean_ncep,yfit=yfit) 
    357 a=float(ab(0)) & b=float(ab(1)) 
     390a=float(ab(0))  
     391b=float(ab(1)) 
    358392oplot, mean_tao, yfit, color=250, thick=2 
    359393 
    … …  
    363397lat=reform(ff(0,*)) 
    364398lon=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 
     399cor_tm=reform(ff(2,*))    
     400cor_tmi=total(cor_tm)/n_elements(cor_tm) 
     401bias_tm=reform(ff(3,*))   
     402bias_tmi=total(bias_tm)/n_elements(bias_tm) 
     403std_tm=reform(ff(4,*))    
     404std_tmi=total(std_tm)/n_elements(std_tm) 
     405rmsd_tm=reform(ff(5,*))   
     406rmsd_tmi=total(rmsd_tm)/n_elements(rmsd_tm) 
     407mean_tao=reform(ff(6,*))   
     408mean_tmi=bias_tm+mean_tao 
    370409 
    371410print, '' 
    … …  
    382421 
    383422ab=linfit(mean_tao, mean_tmi,yfit=yfit) 
    384 a=float(ab(0)) & b=float(ab(1)) 
     423a=float(ab(0))  
     424b=float(ab(1)) 
    385425oplot, mean_tao, yfit, color=250, thick=2 
    386426 
    … …  
    391431lat=reform(ff(0,*)) 
    392432lon=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 
     433cor_nce=reform(ff(2,*))    
     434cor_ncep=total(cor_nce)/n_elements(cor_nce) 
     435bias_nce=reform(ff(3,*))   
     436bias_ncep=total(bias_nce)/n_elements(bias_nce) 
     437std_nce=reform(ff(4,*))    
     438std_ncep=total(std_nce)/n_elements(std_nce) 
     439rmsd_nce=reform(ff(5,*))   
     440rmsd_ncep=total(rmsd_nce)/n_elements(rmsd_nce) 
     441mean_tao=reform(ff(6,*))   
     442mean_ncep=bias_nce+mean_tao 
    398443 
    399444print, '' 
    … …  
    410455 
    411456ab=linfit(mean_tao, mean_ncep,yfit=yfit) 
    412 a=float(ab(0)) & b=float(ab(1)) 
     457a=float(ab(0))  
     458b=float(ab(1)) 
    413459oplot, mean_tao, yfit, color=250, thick=2 
    414460 

  • trunk/src/paper01/fig4/fig4_met_var_correction_scatter.pro

    r85 r94  
    106106print, xx, yy 
    107107ab=linfit(mean, bias,yfit=yfit) 
    108 a=float(ab(0)) & b=float(ab(1)) 
     108a=float(ab(0))  
     109b=float(ab(1)) 
    109110oplot, mean, yfit, thick=3, color=50 
    110111print, a,b 
    … …  
    134135 
    135136ab=linfit(mean, bias,yfit=yfit) 
    136 a=float(ab(0)) & b=float(ab(1)) 
     137a=float(ab(0))  
     138b=float(ab(1)) 
    137139oplot, mean, yfit, thick=3, color=50 
    138140print, a,b 
    … …  
    161163 
    162164ab=linfit(mean, bias,yfit=yfit) 
    163 a=float(ab(0)) & b=float(ab(1)) 
     165a=float(ab(0))  
     166b=float(ab(1)) 
    164167oplot, mean, yfit, thick=3, color=50 
    165168print, a,b 
    … …  
    188191 
    189192ab=linfit(mean, bias,yfit=yfit) 
    190 a=float(ab(0)) & b=float(ab(1)) 
     193a=float(ab(0))  
     194b=float(ab(1)) 
    191195oplot, mean, yfit, thick=3, color=50 
    192196 

  • trunk/src/paper01/fig4/significance_test_99.pro

    r85 r94  
    5151pro significance_test_99, x, y, sig_value 
    5252 
    53    X=x & Y=y 
     53   X=x  
     54   Y=y 
    5455 
    5556   X=X-total(X)/n_elements(X) 

  • trunk/src/paper01/fig5/fig5_gustiness_scatter.pro

    r85 r94  
    101101      xrange=[0,10], yrange=[0.5,2.5] 
    102102ab=linfit(erai_wind, gust,yfit=yfit) 
    103 a=float(ab(0)) & b=float(ab(1)) 
     103a=float(ab(0))  
     104b=float(ab(1)) 
    104105oplot, erai_wind, yfit, thick=3, color=250 
    105106cor=correlate(erai_wind,gust) 
    … …  
    112113      xrange=[22,32], yrange=[0.5,2.5], lct=39, xmin=1, ymin=1 
    113114ab=linfit(erai_sst, gust,yfit=yfit) 
    114 a=float(ab(0)) & b=float(ab(1)) 
     115a=float(ab(0))  
     116b=float(ab(1)) 
    115117oplot, erai_sst, yfit, thick=3, color=250 
    116118cor=correlate(erai_sst, gust) 

  • trunk/src/paper01/fig6/icoads_q2m_stats_paper.pro

    r85 r94  
    8484; partie a changer 
    8585marge=[-2,-2, -4,2] 
    86 st=19890101 & en=20091231 
     86st=19890101  
     87en=20091231 
    8788domdef, box 
    8889 
    … …  
    118119 
    119120 
    120 si=size(trop) & nt=si(3) 
     121si=size(trop)  
     122nt=si(3) 
    121123 
    122124lat_rama=[67, 55, 55, 80.5, 80.5, 80.5, 80.5, 90, 90, 90, 90, 90, 90, 90, 95] 
    … …  
    136138lon=[lon_rama, lon_pirata, lon_tao] 
    137139 
    138 lat_tao=lat & lon_tao=lon 
     140lat_tao=lat  
     141lon_tao=lon 
    139142nn=n_elements(lat) 
    140143 
    … …  
    143146  x=lat_tao(n) 
    144147  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) 
    146150  ind=where((dx le 0.5) and (dy le 0.5)) 
    147151  if (total(ind) ge 0.) then begin 
    … …  
    160164 
    161165param=icoads*mask 
    162 trop=trop*mask & oaf=oaf*mask & erai=erai*mask 
    163 ncep2=ncep2*mask & ncep1=ncep1*mask 
     166trop=trop*mask  
     167oaf=oaf*mask  
     168erai=erai*mask 
     169ncep2=ncep2*mask  
     170ncep1=ncep1*mask 
    164171 
    165172 
    166173ind=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) 
     174x=param(ind)  
     175y=trop(ind) 
     176param=param(ind)  
     177trop=trop(ind)  
     178erai=erai(ind)  
     179oaf=oaf(ind)  
     180ncep2=ncep2(ind)  
     181ncep1=ncep1(ind) 
    169182 
    170183; 
    … …  
    208221 
    209222; 
    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 
     223mio=4  
     224mao=24  
     225inx=1  
     226nx=(mao-mio)/inx+1l  
     227xx=mio+indgen(nx)*inx 
     228mis=4  
     229mas=24  
     230iny=1  
     231ny=(mas-mis)/iny+1l  
     232yy=mis+indgen(ny)*iny 
    212233; 
    213234pdf, param,trop,mio,mao,inx,mis,mas,iny, $ 

  • trunk/src/paper01/fig6/icoads_sst_stats_paper.pro

    r85 r94  
    8484; partie a changer 
    8585marge=[-2,-2, -4,2] 
    86 st=19890101 & en=20091231 
     86st=19890101  
     87en=20091231 
    8788domdef, box 
    8889 
    … …  
    123124 
    124125 
    125 si=size(trop) & nt=si(3) 
     126si=size(trop)  
     127nt=si(3) 
    126128 
    127129lat_rama=[67, 55, 55, 80.5, 80.5, 80.5, 80.5, 90, 90, 90, 90, 90, 90, 90, 95] 
    … …  
    141143lon=[lon_rama, lon_pirata, lon_tao] 
    142144 
    143 lat_tao=lat & lon_tao=lon 
     145lat_tao=lat  
     146lon_tao=lon 
    144147nn=n_elements(lat) 
    145148 
    … …  
    148151  x=lat_tao(n) 
    149152  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) 
    151155  ind=where((dx le 0.5) and (dy le 0.5)) 
    152156  if (total(ind) ge 0.) then begin 
    … …  
    165169 
    166170param=icoads*mask 
    167 trop=trop*mask & oaf=oaf*mask & erai=erai*mask 
    168 ncep2=ncep2*mask & ncep1=ncep1*mask 
     171trop=trop*mask  
     172oaf=oaf*mask  
     173erai=erai*mask 
     174ncep2=ncep2*mask  
     175ncep1=ncep1*mask 
    169176noc=noc*mask 
    170177 
    171178ind=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) 
     179x=param(ind)  
     180y=trop(ind) 
     181param=param(ind)  
     182trop=trop(ind)  
     183erai=erai(ind)  
     184oaf=oaf(ind)  
     185ncep2=ncep2(ind)  
     186ncep1=ncep1(ind) 
    174187noc=noc(ind) 
    175188 
    … …  
    220233 
    221234; 
    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 
     235mio=15  
     236mao=32  
     237inx=1 
     238nx=(mao-mio)/inx+1l  
     239xx=mio+indgen(nx)*inx 
     240mis=15  
     241mas=32  
     242iny=1  
     243ny=(mas-mis)/iny+1l  
     244yy=mis+indgen(ny)*iny 
     245xp=18  
     246yp=16.5 
     247x1=15  
     248x2=32  
     249y1=x1  
     250y2=x2 
    226251; 
    227252pdf, param,trop,mio,mao,inx,mis,mas,iny, $ 

  • trunk/src/paper01/fig6/icoads_t2m_stats_paper.pro

    r85 r94  
    8585; partie a changer 
    8686marge=[-2,-2, -4,2] 
    87 st=19890101 & en=20091231 
     87st=19890101  
     88en=20091231 
    8889domdef, box 
    8990 
    … …  
    119120 
    120121 
    121 si=size(trop) & nt=si(3) 
     122si=size(trop)  
     123nt=si(3) 
    122124 
    123125lat_rama=[67, 55, 55, 80.5, 80.5, 80.5, 80.5, 90, 90, 90, 90, 90, 90, 90, 95] 
    … …  
    137139lon=[lon_rama, lon_pirata, lon_tao] 
    138140 
    139 lat_tao=lat & lon_tao=lon 
     141lat_tao=lat  
     142lon_tao=lon 
    140143nn=n_elements(lat) 
    141144 
    … …  
    144147  x=lat_tao(n) 
    145148  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) 
    147151  ind=where((dx le 0.5) and (dy le 0.5)) 
    148152  if (total(ind) ge 0.) then begin 
    … …  
    161165 
    162166param=icoads*mask 
    163 trop=trop*mask & oaf=oaf*mask & erai=erai*mask 
    164 ncep2=ncep2*mask & ncep1=ncep1*mask 
     167trop=trop*mask  
     168oaf=oaf*mask  
     169erai=erai*mask 
     170ncep2=ncep2*mask  
     171ncep1=ncep1*mask 
    165172 
    166173 
    167174ind=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) 
     175x=param(ind)  
     176y=trop(ind) 
     177param=param(ind)  
     178trop=trop(ind)  
     179erai=erai(ind)  
     180oaf=oaf(ind)  
     181ncep2=ncep2(ind)  
     182ncep1=ncep1(ind) 
    170183 
    171184; 
    … …  
    209222 
    210223; 
    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 
     224mio=15  
     225mao=32  
     226inx=1  
     227nx=(mao-mio)/inx+1l  
     228xx=mio+indgen(nx)*inx 
     229mis=15  
     230mas=32  
     231iny=1  
     232ny=(mas-mis)/iny+1l  
     233yy=mis+indgen(ny)*iny 
     234xp=16  
     235yp=14 
     236 
     237x1=13  
     238x2=32  
     239y1=x1  
     240y2=x2 
    216241; 
    217242pdf, param,trop,mio,mao,inx,mis,mas,iny, $ 

  • trunk/src/paper01/fig6/icoads_ws_stats_paper.pro

    r85 r94  
    8686; partie a changer 
    8787marge=[-2,-2, -4,2] 
    88 st=19890101 & en=20091231 
     88st=19890101  
     89en=20091231 
    8990domdef, box 
    9091 
    … …  
    124125help, noc 
    125126 
    126 si=size(trop) & nt=si(3) 
     127si=size(trop)  
     128nt=si(3) 
    127129 
    128130lat_rama=[67, 55, 55, 80.5, 80.5, 80.5, 80.5, 90, 90, 90, 90, 90, 90, 90, 95] 
    … …  
    142144lon=[lon_rama, lon_pirata, lon_tao] 
    143145 
    144 lat_tao=lat & lon_tao=lon 
     146lat_tao=lat  
     147lon_tao=lon 
    145148nn=n_elements(lat) 
    146149 
    … …  
    149152  x=lat_tao(n) 
    150153  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) 
    152156  ind=where((dx le 0.5) and (dy le 0.5)) 
    153157  if (total(ind) ge 0.) then begin 
    … …  
    166170 
    167171param=icoads*mask 
    168 trop=trop*mask & oaf=oaf*mask & erai=erai*mask 
    169 ncep2=ncep2*mask & ncep1=ncep1*mask 
     172trop=trop*mask  
     173oaf=oaf*mask  
     174erai=erai*mask 
     175ncep2=ncep2*mask  
     176ncep1=ncep1*mask 
    170177noc=noc*mask 
    171178 
    172179ind=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) 
     180x=param(ind)  
     181y=trop(ind) 
     182param=param(ind)  
     183trop=trop(ind)  
     184erai=erai(ind)  
     185oaf=oaf(ind)  
     186ncep2=ncep2(ind)  
     187ncep1=ncep1(ind) 
    175188noc=noc(ind) 
    176189 
    … …  
    219232abs_noc=string(abs_diff, format='(f5.2)') 
    220233; 
    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 
     234mio=0  
     235mao=15  
     236inx=1  
     237nx=(mao-mio)/inx+1l  
     238xx=mio+indgen(nx)*inx 
     239mis=0  
     240mas=15  
     241iny=1  
     242ny=(mas-mis)/iny+1l  
     243yy=mis+indgen(ny)*iny 
     244xp=4  
     245yp=13 
     246x1=0  
     247x2=15  
     248y1=x1  
     249y2=x2 
    225250; 
    226251pdf, param,trop,mio,mao,inx,mis,mas,iny, $ 

  • trunk/src/paper01/fig6/statistics.pro

    r85 r94  
    6262;; mean1= mean of mooring variable      std1=std of mooring variable 
    6363;; 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)) 
     64x=moor  
     65y=erai 
     66ind1=where(finite(x,/nan))  
     67ind2=where(finite(y,/nan)) 
    6668ind=inter(ind1,ind2) 
    6769if (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 
    6972endif 
    7073 
    7174ind=where(finite(x)) 
    72 x=x(ind) & y=y(ind) 
     75x=x(ind)  
     76y=y(ind) 
    7377 
    7478nn=n_elements(ind) 
    … …  
    7680cor=correlate(x,y) 
    7781xxx=moment(x) 
    78 mean1=xxx(0) & std1=sqrt(xxx(1)) 
     82mean1=xxx(0)  
     83std1=sqrt(xxx(1)) 
    7984xxx=moment(y) 
    80 mean2=xxx(0) & std2=sqrt(xxx(1)) 
    81 bias=mean2-mean1 & std=std2/std1 
     85mean2=xxx(0)  
     86std2=sqrt(xxx(1)) 
     87bias=mean2-mean1  
     88std=std2/std1 
    8289rmsd=sqrt(total((x-y)*(x-y))/n_elements(x)) 
    8390end 

  • trunk/src/paper01/fig7/air_validation_scatter_2000_2009_basin.pro

    r88 r94  
    169169file=project_id_env+'erai_t2m_19890101_20091231_oafluxgrid.nc' 
    170170initncdf, file 
    171 unc=read_ncdf('t2m',date1,date2,file=file,/nostr) & unc=unc-273.15 
     171unc=read_ncdf('t2m',date1,date2,file=file,/nostr)  
     172unc=unc-273.15 
    172173help, unc 
    173174 
    … …  
    181182;; reading data from mooring 
    182183 
    183     site=sitelist(n) & csite=site 
     184    site=sitelist(n)  
     185csite=site 
    184186    print, csite 
    185187    x=x_site_location(site) 
    186188    y=y_site_location(site) 
    187189    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] 
    189193    read_variables_v2, csite,date1,date2,nsmooth, $ 
    190194         at, sw,rh,sst,wu,wv,ws,lh 
    … …  
    223227 
    224228 
    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) 
    227236    mean_tao=total(air,/nan)/n_elements(ind) 
    228237 
    … …  
    250259lat=reform(ff(0,*)) 
    251260lon=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 
     261cor_era=reform(ff(2,*))    
     262cor_erai=total(cor_era)/n_elements(cor_era) 
     263bias_era=reform(ff(3,*))   
     264bias_erai=total(bias_era)/n_elements(bias_era) 
     265std_era=reform(ff(4,*))    
     266std_erai=total(std_era)/n_elements(std_era) 
     267rmsd_era=reform(ff(5,*))   
     268rmsd_erai=total(rmsd_era)/n_elements(rmsd_era) 
     269mean_tao=reform(ff(6,*))   
     270mean_erai=bias_era+mean_tao 
    257271 
    258272print, '' 
    … …  
    268282oplot, [22,31], [22,31] 
    269283ab=linfit(mean_tao, mean_erai,yfit=yfit) 
    270 a=float(ab(0)) & b=float(ab(1)) 
     284a=float(ab(0))  
     285b=float(ab(1)) 
    271286oplot, mean_tao, yfit, color=250, thick=2 
    272287 
    … …  
    276291lat=reform(ff(0,*)) 
    277292lon=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 
     293cor_tro=reform(ff(2,*))    
     294cor_trop=total(cor_tro)/n_elements(cor_tro) 
     295bias_tro=reform(ff(3,*))   
     296bias_trop=total(bias_tro)/n_elements(bias_tro) 
     297std_tro=reform(ff(4,*))    
     298std_trop=total(std_tro)/n_elements(std_tro) 
     299rmsd_tro=reform(ff(5,*))   
     300rmsd_trop=total(rmsd_tro)/n_elements(rmsd_tro) 
     301mean_tao=reform(ff(6,*))   
     302mean_trop=bias_tro+mean_tao 
    283303 
    284304print, '' 
    … …  
    295315 
    296316ab=linfit(mean_tao, mean_trop,yfit=yfit) 
    297 a=float(ab(0)) & b=float(ab(1)) 
     317a=float(ab(0))  
     318b=float(ab(1)) 
    298319oplot, mean_tao, yfit, color=250, thick=2 
    299320 
    … …  
    303324lat=reform(ff(0,*)) 
    304325lon=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 
     326cor_oaf=reform(ff(2,*))    
     327cor_oafl=total(cor_oaf)/n_elements(cor_oaf) 
     328bias_oaf=reform(ff(3,*))   
     329bias_oafl=total(bias_oaf)/n_elements(bias_oaf) 
     330std_oaf=reform(ff(4,*))    
     331std_oafl=total(std_oaf)/n_elements(std_oaf) 
     332rmsd_oaf=reform(ff(5,*))   
     333rmsd_oafl=total(rmsd_oaf)/n_elements(rmsd_oaf) 
     334mean_tao=reform(ff(6,*))   
     335mean_oafl=bias_oaf+mean_tao 
    310336 
    311337print, '' 
    … …  
    322348 
    323349ab=linfit(mean_tao, mean_oafl,yfit=yfit) 
    324 a=float(ab(0)) & b=float(ab(1)) 
     350a=float(ab(0))  
     351b=float(ab(1)) 
    325352oplot, mean_tao, yfit, color=250, thick=2 
    326353 
    … …  
    332359lat=reform(ff(0,*)) 
    333360lon=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 
     361cor_nce=reform(ff(2,*))    
     362cor_ncep=total(cor_nce)/n_elements(cor_nce) 
     363bias_nce=reform(ff(3,*))   
     364bias_ncep=total(bias_nce)/n_elements(bias_nce) 
     365std_nce=reform(ff(4,*))    
     366std_ncep=total(std_nce)/n_elements(std_nce) 
     367rmsd_nce=reform(ff(5,*))   
     368rmsd_ncep=total(rmsd_nce)/n_elements(rmsd_nce) 
     369mean_tao=reform(ff(6,*))   
     370mean_ncep=bias_nce+mean_tao 
    339371 
    340372print, '' 
    … …  
    351383 
    352384ab=linfit(mean_tao, mean_ncep,yfit=yfit) 
    353 a=float(ab(0)) & b=float(ab(1)) 
     385a=float(ab(0))  
     386b=float(ab(1)) 
    354387oplot, mean_tao, yfit, color=250, thick=2 
    355388 
    … …  
    359392lat=reform(ff(0,*)) 
    360393lon=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 
     394cor_nce=reform(ff(2,*))    
     395cor_ncep=total(cor_nce)/n_elements(cor_nce) 
     396bias_nce=reform(ff(3,*))   
     397bias_ncep=total(bias_nce)/n_elements(bias_nce) 
     398std_nce=reform(ff(4,*))    
     399std_ncep=total(std_nce)/n_elements(std_nce) 
     400rmsd_nce=reform(ff(5,*))   
     401rmsd_ncep=total(rmsd_nce)/n_elements(rmsd_nce) 
     402mean_tao=reform(ff(6,*))   
     403mean_ncep=bias_nce+mean_tao 
    366404 
    367405print, '' 
    … …  
    378416 
    379417ab=linfit(mean_tao, mean_ncep,yfit=yfit) 
    380 a=float(ab(0)) & b=float(ab(1)) 
     418a=float(ab(0))  
     419b=float(ab(1)) 
    381420oplot, mean_tao, yfit, color=250, thick=2 
    382421 

  • trunk/src/paper01/fig7/q2m_validation_scatter_2000_2009_basin.pro

    r91 r94  
    179179;; reading data from mooring 
    180180 
    181     site=sitelist(n) & csite=site 
     181    site=sitelist(n)  
     182    csite=site 
    182183    print, csite 
    183184    x=x_site_location(site) 
    184185    y=y_site_location(site) 
    185186    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] 
    187190    read_variables_v2, csite,date1,date2,nsmooth, $ 
    188191         at, sw,rh,sst,wu,wv,ws,lh 
    … …  
    220223     ncep1=tropflux 
    221224 
    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) 
    224232    mean_tao=total(q2m,/nan)/n_elements(ind) 
    225233 
    … …  
    247255lat=reform(ff(0,*)) 
    248256lon=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 
     257cor_era=reform(ff(2,*))    
     258cor_erai=total(cor_era)/n_elements(cor_era) 
     259bias_era=reform(ff(3,*))   
     260bias_erai=total(bias_era)/n_elements(bias_era) 
     261std_era=reform(ff(4,*))    
     262std_erai=total(std_era)/n_elements(std_era) 
     263rmsd_era=reform(ff(5,*))   
     264rmsd_erai=total(rmsd_era)/n_elements(rmsd_era) 
     265mean_tao=reform(ff(6,*))   
     266mean_erai=bias_era+mean_tao 
    254267 
    255268print, '' 
    … …  
    265278oplot, [11,21], [11,21] 
    266279ab=linfit(mean_tao, mean_erai,yfit=yfit) 
    267 a=float(ab(0)) & b=float(ab(1)) 
     280a=float(ab(0))  
     281b=float(ab(1)) 
    268282oplot, mean_tao, yfit, color=250, thick=2 
    269283 
    … …  
    273287lat=reform(ff(0,*)) 
    274288lon=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 
     289cor_tro=reform(ff(2,*))    
     290cor_trop=total(cor_tro)/n_elements(cor_tro) 
     291bias_tro=reform(ff(3,*))   
     292bias_trop=total(bias_tro)/n_elements(bias_tro) 
     293std_tro=reform(ff(4,*))    
     294std_trop=total(std_tro)/n_elements(std_tro) 
     295rmsd_tro=reform(ff(5,*))   
     296rmsd_trop=total(rmsd_tro)/n_elements(rmsd_tro) 
     297mean_tao=reform(ff(6,*))   
     298mean_trop=bias_tro+mean_tao 
    280299 
    281300print, '' 
    … …  
    292311 
    293312ab=linfit(mean_tao, mean_trop,yfit=yfit) 
    294 a=float(ab(0)) & b=float(ab(1)) 
     313a=float(ab(0))  
     314b=float(ab(1)) 
    295315oplot, mean_tao, yfit, color=250, thick=2 
    296316 
    … …  
    300320lat=reform(ff(0,*)) 
    301321lon=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 
     322cor_oaf=reform(ff(2,*))    
     323cor_oafl=total(cor_oaf)/n_elements(cor_oaf) 
     324bias_oaf=reform(ff(3,*))   
     325bias_oafl=total(bias_oaf)/n_elements(bias_oaf) 
     326std_oaf=reform(ff(4,*))    
     327std_oafl=total(std_oaf)/n_elements(std_oaf) 
     328rmsd_oaf=reform(ff(5,*))   
     329rmsd_oafl=total(rmsd_oaf)/n_elements(rmsd_oaf) 
     330mean_tao=reform(ff(6,*))   
     331mean_oafl=bias_oaf+mean_tao 
    307332 
    308333print, '' 
    … …  
    319344 
    320345ab=linfit(mean_tao, mean_oafl,yfit=yfit) 
    321 a=float(ab(0)) & b=float(ab(1)) 
     346a=float(ab(0))  
     347b=float(ab(1)) 
    322348oplot, mean_tao, yfit, color=250, thick=2 
    323349 
    … …  
    328354lat=reform(ff(0,*)) 
    329355lon=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 
     356cor_nce=reform(ff(2,*))    
     357cor_ncep=total(cor_nce)/n_elements(cor_nce) 
     358bias_nce=reform(ff(3,*))   
     359bias_ncep=total(bias_nce)/n_elements(bias_nce) 
     360std_nce=reform(ff(4,*))    
     361std_ncep=total(std_nce)/n_elements(std_nce) 
     362rmsd_nce=reform(ff(5,*))   
     363rmsd_ncep=total(rmsd_nce)/n_elements(rmsd_nce) 
     364mean_tao=reform(ff(6,*))   
     365mean_ncep=bias_nce+mean_tao 
    335366 
    336367print, '' 
    … …  
    347378 
    348379ab=linfit(mean_tao, mean_ncep,yfit=yfit) 
    349 a=float(ab(0)) & b=float(ab(1)) 
     380a=float(ab(0))  
     381b=float(ab(1)) 
    350382oplot, mean_tao, yfit, color=250, thick=2 
    351383 
    … …  
    355387lat=reform(ff(0,*)) 
    356388lon=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 
     389cor_nce=reform(ff(2,*))    
     390cor_ncep=total(cor_nce)/n_elements(cor_nce) 
     391bias_nce=reform(ff(3,*))   
     392bias_ncep=total(bias_nce)/n_elements(bias_nce) 
     393std_nce=reform(ff(4,*))    
     394std_ncep=total(std_nce)/n_elements(std_nce) 
     395rmsd_nce=reform(ff(5,*))   
     396rmsd_ncep=total(rmsd_nce)/n_elements(rmsd_nce) 
     397mean_tao=reform(ff(6,*))   
     398mean_ncep=bias_nce+mean_tao 
    362399 
    363400print, '' 
    … …  
    374411 
    375412ab=linfit(mean_tao, mean_ncep,yfit=yfit) 
    376 a=float(ab(0)) & b=float(ab(1)) 
     413a=float(ab(0))  
     414b=float(ab(1)) 
    377415oplot, mean_tao, yfit, color=250, thick=2 
    378416 

  • trunk/src/paper01/fig7/sst_validation_scatter_2000_2009_basin.pro

    r91 r94  
    158158;; reading data from mooring 
    159159 
    160     site=sitelist(n) & csite=site 
     160    site=sitelist(n)  
     161    csite=site 
    161162    print, csite 
    162163    x=x_site_location(site) 
    163164    y=y_site_location(site) 
    164165    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] 
    166169    read_variables_v2, csite,date1,date2,nsmooth, $ 
    167170         at, sw,rh,sst,wu,wv,ws,lh 
    168171 
    169172 
    170     ind=where(finite(sst)) & valid=n_elements(ind) 
     173    ind=where(finite(sst))  
     174    valid=n_elements(ind) 
    171175 
    172176    if (valid ge 180) then begin 
    … …  
    200204 
    201205 
    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) 
    204214      mean_tao=total(sst,/nan)/n_elements(ind) 
    205215 
    … …  
    230240lat=reform(ff(0,*)) 
    231241lon=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 
     242cor_era=reform(ff(2,*))    
     243cor_erai=total(cor_era)/n_elements(cor_era) 
     244bias_era=reform(ff(3,*))   
     245bias_erai=total(bias_era)/n_elements(bias_era) 
     246std_era=reform(ff(4,*))    
     247std_erai=total(std_era)/n_elements(std_era) 
     248rmsd_era=reform(ff(5,*))   
     249rmsd_erai=total(rmsd_era)/n_elements(rmsd_era) 
     250mean_tao=reform(ff(6,*))   
     251mean_erai=bias_era+mean_tao 
    237252 
    238253print, '' 
    … …  
    248263oplot, [22,31], [22,31] 
    249264ab=linfit(mean_tao, mean_erai,yfit=yfit) 
    250 a=float(ab(0)) & b=float(ab(1)) 
     265a=float(ab(0))  
     266b=float(ab(1)) 
    251267oplot, mean_tao, yfit, color=250, thick=2 
    252268 
    … …  
    256272lat=reform(ff(0,*)) 
    257273lon=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 
     274cor_tro=reform(ff(2,*))    
     275cor_trop=total(cor_tro)/n_elements(cor_tro) 
     276bias_tro=reform(ff(3,*))   
     277bias_trop=total(bias_tro)/n_elements(bias_tro) 
     278std_tro=reform(ff(4,*))    
     279std_trop=total(std_tro)/n_elements(std_tro) 
     280rmsd_tro=reform(ff(5,*))   
     281rmsd_trop=total(rmsd_tro)/n_elements(rmsd_tro) 
     282mean_tao=reform(ff(6,*))   
     283mean_trop=bias_tro+mean_tao 
    263284 
    264285print, '' 
    … …  
    275296 
    276297ab=linfit(mean_tao, mean_trop,yfit=yfit) 
    277 a=float(ab(0)) & b=float(ab(1)) 
     298a=float(ab(0))  
     299b=float(ab(1)) 
    278300oplot, mean_tao, yfit, color=250, thick=2 
    279301 
    … …  
    283305lat=reform(ff(0,*)) 
    284306lon=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 
     307cor_oaf=reform(ff(2,*))    
     308cor_oafl=total(cor_oaf)/n_elements(cor_oaf) 
     309bias_oaf=reform(ff(3,*))   
     310bias_oafl=total(bias_oaf)/n_elements(bias_oaf) 
     311std_oaf=reform(ff(4,*))    
     312std_oafl=total(std_oaf)/n_elements(std_oaf) 
     313rmsd_oaf=reform(ff(5,*))   
     314rmsd_oafl=total(rmsd_oaf)/n_elements(rmsd_oaf) 
     315mean_tao=reform(ff(6,*))   
     316mean_oafl=bias_oaf+mean_tao 
    290317 
    291318print, '' 
    … …  
    302329 
    303330ab=linfit(mean_tao, mean_oafl,yfit=yfit) 
    304 a=float(ab(0)) & b=float(ab(1)) 
     331a=float(ab(0))  
     332b=float(ab(1)) 
    305333oplot, mean_tao, yfit, color=250, thick=2 
    306334 
    … …  
    312340lat=reform(ff(0,*)) 
    313341lon=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 
     342cor_nce=reform(ff(2,*))    
     343cor_ncep=total(cor_nce)/n_elements(cor_nce) 
     344bias_nce=reform(ff(3,*))   
     345bias_ncep=total(bias_nce)/n_elements(bias_nce) 
     346std_nce=reform(ff(4,*))    
     347std_ncep=total(std_nce)/n_elements(std_nce) 
     348rmsd_nce=reform(ff(5,*))   
     349rmsd_ncep=total(rmsd_nce)/n_elements(rmsd_nce) 
     350mean_tao=reform(ff(6,*))   
     351mean_ncep=bias_nce+mean_tao 
    319352 
    320353print, '' 
    … …  
    331364 
    332365ab=linfit(mean_tao, mean_ncep,yfit=yfit) 
    333 a=float(ab(0)) & b=float(ab(1)) 
     366a=float(ab(0))  
     367b=float(ab(1)) 
    334368oplot, mean_tao, yfit, color=250, thick=2 
    335369 
    … …  
    340374lat=reform(ff(0,*)) 
    341375lon=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 
     376cor_tm=reform(ff(2,*))    
     377cor_tmi=total(cor_tm)/n_elements(cor_tm) 
     378bias_tm=reform(ff(3,*))   
     379bias_tmi=total(bias_tm)/n_elements(bias_tm) 
     380std_tm=reform(ff(4,*))    
     381std_tmi=total(std_tm)/n_elements(std_tm) 
     382rmsd_tm=reform(ff(5,*))   
     383rmsd_tmi=total(rmsd_tm)/n_elements(rmsd_tm) 
     384mean_tao=reform(ff(6,*))   
     385mean_tmi=bias_tm+mean_tao 
    347386 
    348387print, '' 
    … …  
    359398 
    360399ab=linfit(mean_tao, mean_tmi,yfit=yfit) 
    361 a=float(ab(0)) & b=float(ab(1)) 
     400a=float(ab(0))  
     401b=float(ab(1)) 
    362402oplot, mean_tao, yfit, color=250, thick=2 
    363403 
    … …  
    367407lat=reform(ff(0,*)) 
    368408lon=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 
     409cor_nce=reform(ff(2,*))    
     410cor_ncep=total(cor_nce)/n_elements(cor_nce) 
     411bias_nce=reform(ff(3,*))   
     412bias_ncep=total(bias_nce)/n_elements(bias_nce) 
     413std_nce=reform(ff(4,*))    
     414std_ncep=total(std_nce)/n_elements(std_nce) 
     415rmsd_nce=reform(ff(5,*))   
     416rmsd_ncep=total(rmsd_nce)/n_elements(rmsd_nce) 
     417mean_tao=reform(ff(6,*))   
     418mean_ncep=bias_nce+mean_tao 
    374419 
    375420print, '' 
    … …  
    386431 
    387432ab=linfit(mean_tao, mean_ncep,yfit=yfit) 
    388 a=float(ab(0)) & b=float(ab(1)) 
     433a=float(ab(0))  
     434b=float(ab(1)) 
    389435oplot, mean_tao, yfit, color=250, thick=2 
    390436 

  • trunk/src/paper01/fig7/ws_validation_scatter_2000_2009_basin.pro

    r91 r94  
    161161 
    162162;; first reading the whole ERAI uncorrected and corrected data 
    163 ;; date1=20000101 & date2=20090931 
     163;; date1=20000101  
     164;; date2=20090931 
    164165 
    165166file=project_id_env+'erai_ws_19890101_20091231_oafluxgrid.nc' 
    … …  
    179180;; reading data from mooring 
    180181 
    181     site=sitelist(n) & csite=site 
     182    site=sitelist(n)  
     183    csite=site 
    182184    print, csite 
    183185    x=x_site_location(site) 
    184186    y=y_site_location(site) 
    185187    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] 
    187191    read_variables_v2, csite,date1,date2,nsmooth, $ 
    188192         at, sw,rh,sst,wu,wv,ws, lh 
    … …  
    217221     ncep1=tropflux 
    218222 
    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) 
    221231 
    222232    mean_tao=total(ws)/n_elements(ws) 
    … …  
    245255lat=reform(ff(0,*)) 
    246256lon=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 
     257cor_era=reform(ff(2,*))    
     258cor_erai=total(cor_era)/n_elements(cor_era) 
     259bias_era=reform(ff(3,*))   
     260bias_erai=total(bias_era)/n_elements(bias_era) 
     261std_era=reform(ff(4,*))    
     262std_erai=total(std_era)/n_elements(std_era) 
     263rmsd_era=reform(ff(5,*))   
     264rmsd_erai=total(rmsd_era)/n_elements(rmsd_era) 
     265mean_tao=reform(ff(6,*))   
     266mean_erai=bias_era+mean_tao 
    252267 
    253268print, '' 
    … …  
    263278oplot, [2,10], [2,10] 
    264279ab=linfit(mean_tao, mean_erai,yfit=yfit) 
    265 a=float(ab(0)) & b=float(ab(1)) 
     280a=float(ab(0))  
     281b=float(ab(1)) 
    266282oplot, mean_tao, yfit, color=250, thick=2 
    267283 
    … …  
    271287lat=reform(ff(0,*)) 
    272288lon=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 
     289cor_tro=reform(ff(2,*))    
     290cor_trop=total(cor_tro)/n_elements(cor_tro) 
     291bias_tro=reform(ff(3,*))   
     292bias_trop=total(bias_tro)/n_elements(bias_tro) 
     293std_tro=reform(ff(4,*))    
     294std_trop=total(std_tro)/n_elements(std_tro) 
     295rmsd_tro=reform(ff(5,*))   
     296rmsd_trop=total(rmsd_tro)/n_elements(rmsd_tro) 
     297mean_tao=reform(ff(6,*))   
     298mean_trop=bias_tro+mean_tao 
    278299 
    279300print, '' 
    … …  
    290311 
    291312ab=linfit(mean_tao, mean_trop,yfit=yfit) 
    292 a=float(ab(0)) & b=float(ab(1)) 
     313a=float(ab(0))  
     314b=float(ab(1)) 
    293315oplot, mean_tao, yfit, color=250, thick=2 
    294316 
    … …  
    298320lat=reform(ff(0,*)) 
    299321lon=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 
     322cor_oaf=reform(ff(2,*))    
     323cor_oafl=total(cor_oaf)/n_elements(cor_oaf) 
     324bias_oaf=reform(ff(3,*))   
     325bias_oafl=total(bias_oaf)/n_elements(bias_oaf) 
     326std_oaf=reform(ff(4,*))    
     327std_oafl=total(std_oaf)/n_elements(std_oaf) 
     328rmsd_oaf=reform(ff(5,*))   
     329rmsd_oafl=total(rmsd_oaf)/n_elements(rmsd_oaf) 
     330mean_tao=reform(ff(6,*))   
     331mean_oafl=bias_oaf+mean_tao 
    305332 
    306333print, '' 
    … …  
    317344 
    318345ab=linfit(mean_tao, mean_oafl,yfit=yfit) 
    319 a=float(ab(0)) & b=float(ab(1)) 
     346a=float(ab(0))  
     347b=float(ab(1)) 
    320348oplot, mean_tao, yfit, color=250, thick=2 
    321349 
    … …  
    327355lat=reform(ff(0,*)) 
    328356lon=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 
     357cor_nce=reform(ff(2,*))    
     358cor_ncep=total(cor_nce)/n_elements(cor_nce) 
     359bias_nce=reform(ff(3,*))   
     360bias_ncep=total(bias_nce)/n_elements(bias_nce) 
     361std_nce=reform(ff(4,*))    
     362std_ncep=total(std_nce)/n_elements(std_nce) 
     363rmsd_nce=reform(ff(5,*))   
     364rmsd_ncep=total(rmsd_nce)/n_elements(rmsd_nce) 
     365mean_tao=reform(ff(6,*))   
     366mean_ncep=bias_nce+mean_tao 
    334367 
    335368print, '' 
    … …  
    346379 
    347380ab=linfit(mean_tao, mean_ncep,yfit=yfit) 
    348 a=float(ab(0)) & b=float(ab(1)) 
     381a=float(ab(0))  
     382b=float(ab(1)) 
    349383oplot, mean_tao, yfit, color=250, thick=2 
    350384 
    … …  
    354388lat=reform(ff(0,*)) 
    355389lon=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 
     390cor_tm=reform(ff(2,*))    
     391cor_tmi=total(cor_tm)/n_elements(cor_tm) 
     392bias_tm=reform(ff(3,*))   
     393bias_tmi=total(bias_tm)/n_elements(bias_tm) 
     394std_tm=reform(ff(4,*))    
     395std_tmi=total(std_tm)/n_elements(std_tm) 
     396rmsd_tm=reform(ff(5,*))   
     397rmsd_tmi=total(rmsd_tm)/n_elements(rmsd_tm) 
     398mean_tao=reform(ff(6,*))   
     399mean_tmi=bias_tm+mean_tao 
    361400 
    362401print, '' 
    … …  
    373412 
    374413ab=linfit(mean_tao, mean_tmi,yfit=yfit) 
    375 a=float(ab(0)) & b=float(ab(1)) 
     414a=float(ab(0))  
     415b=float(ab(1)) 
    376416oplot, mean_tao, yfit, color=250, thick=2 
    377417 
    … …  
    382422lat=reform(ff(0,*)) 
    383423lon=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 
     424cor_nce=reform(ff(2,*))    
     425cor_ncep=total(cor_nce)/n_elements(cor_nce) 
     426bias_nce=reform(ff(3,*))   
     427bias_ncep=total(bias_nce)/n_elements(bias_nce) 
     428std_nce=reform(ff(4,*))    
     429std_ncep=total(std_nce)/n_elements(std_nce) 
     430rmsd_nce=reform(ff(5,*))   
     431rmsd_ncep=total(rmsd_nce)/n_elements(rmsd_nce) 
     432mean_tao=reform(ff(6,*))   
     433mean_ncep=bias_nce+mean_tao 
    389434 
    390435print, '' 
    … …  
    401446 
    402447ab=linfit(mean_tao, mean_ncep,yfit=yfit) 
    403 a=float(ab(0)) & b=float(ab(1)) 
     448a=float(ab(0))  
     449b=float(ab(1)) 
    404450oplot, mean_tao, yfit, color=250, thick=2 
    405451 

  • trunk/src/paper01/fig8/lhf_validation_scatter_2000_2009.pro

    r85 r94  
    167167;; reading data from mooring 
    168168 
    169     site=sitelist(n) & csite=site 
     169    site=sitelist(n)  
     170    csite=site 
    170171    print, csite 
    171172    x=x_site_location(site) 
    172173    y=y_site_location(site) 
    173174    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] 
    175178    read_variables_v2, csite,date1,date2,nsmooth, $ 
    176179         at, sw,rh,sst,wu,wv,ws,lh 
    177180 
    178     lhf=lh & ind=where(finite(lhf)) & valid=n_elements(ind) 
     181    lhf=lh  
     182    ind=where(finite(lhf))  
     183    valid=n_elements(ind) 
    179184 
    180185    if (valid ge 180. ) then begin 
    … …  
    201206 
    202207 
    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) 
    204215        mean_tao=total(lhf,/nan)/n_elements(lhf) 
    205216 
    … …  
    235246mean_erai=mean_tao+bias_erai 
    236247 
    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) 
     248ind=where(finite(cor_erai))  
     249cor=total(cor_erai,/nan)/n_elements(ind) 
     250ind=where(finite(bias_erai))  
     251bias=total(bias_erai,/nan)/n_elements(ind) 
     252ind=where(finite(rmsd_erai))  
     253rmsd=total(rmsd_erai,/nan)/n_elements(ind) 
     254ind=where(finite(std_erai))  
     255std=total(std_erai,/nan)/n_elements(ind) 
    241256 
    242257print, '' 
    … …  
    250265xyouts, 50,10, 'cor    bias    std    rmsd', charsize=1. 
    251266 
    252 x=mean_tao & y=mean_erai 
     267x=mean_tao  
     268y=mean_erai 
    253269ab=linfit(x,y,yfit=yfit) 
    254 a=float(ab(0)) & b=float(ab(1)) & print, a,b 
     270a=float(ab(0))  
     271b=float(ab(1))  
     272print, a,b 
    255273oplot, x, yfit, thick=2, color=250 
    256274oplot, [20,200], [20,200] 
    … …  
    266284mean_trop=mean_tao+bias_trop 
    267285 
    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) 
     286ind=where(finite(cor_trop))  
     287cor=total(cor_trop,/nan)/n_elements(ind) 
     288ind=where(finite(bias_trop))  
     289bias=total(bias_trop,/nan)/n_elements(ind) 
     290ind=where(finite(rmsd_trop))  
     291rmsd=total(rmsd_trop,/nan)/n_elements(ind) 
     292ind=where(finite(std_trop))  
     293std=total(std_trop,/nan)/n_elements(ind) 
    272294 
    273295print, '' 
    … …  
    278300splot, mean_tao, mean_trop, charsize=1.1, title='LHF - TAO Vs TropFlux', $ 
    279301     xrange=[20,200], yrange=[20,200], small=[2,3,2],/noer, psym=2 
    280 x=mean_tao & y=mean_trop 
     302x=mean_tao  
     303y=mean_trop 
    281304xyouts, 50,25, cstat, charsize=1. 
    282305xyouts, 50,10, 'cor    bias    std    rmsd', charsize=1. 
    283306 
    284307ab=linfit(x,y,yfit=yfit) 
    285 a=float(ab(0)) & b=float(ab(1)) & print, a,b 
     308a=float(ab(0))  
     309b=float(ab(1))  
     310print, a,b 
    286311oplot, x, yfit, thick=2, color=250 
    287312oplot, [20,200], [20,200] 
    … …  
    298323mean_oaf=mean_tao+bias_oaf 
    299324 
    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) 
     325ind=where(finite(cor_oaf))  
     326cor=total(cor_oaf,/nan)/n_elements(ind) 
     327ind=where(finite(bias_oaf))  
     328bias=total(bias_oaf,/nan)/n_elements(ind) 
     329ind=where(finite(rmsd_oaf))  
     330rmsd=total(rmsd_oaf,/nan)/n_elements(ind) 
     331ind=where(finite(std_oaf))  
     332std=total(std_oaf,/nan)/n_elements(ind) 
    304333 
    305334print, '' 
    … …  
    313342xyouts, 50,10, 'cor    bias    std    rmsd', charsize=1. 
    314343 
    315 x=mean_tao & y=mean_oaf 
     344x=mean_tao  
     345y=mean_oaf 
    316346ab=linfit(x,y,yfit=yfit) 
    317 a=float(ab(0)) & b=float(ab(1)) & print, a,b 
     347a=float(ab(0))  
     348b=float(ab(1))  
     349print, a,b 
    318350oplot, x, yfit, thick=2, color=250 
    319351oplot, [20,200], [20,200] 
    … …  
    329361mean_nce=mean_tao+bias_nce 
    330362 
    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) 
     363ind=where(finite(cor_nce))  
     364cor=total(cor_nce,/nan)/n_elements(ind) 
     365ind=where(finite(bias_nce))  
     366bias=total(bias_nce,/nan)/n_elements(ind) 
     367ind=where(finite(rmsd_nce))  
     368rmsd=total(rmsd_nce,/nan)/n_elements(ind) 
     369ind=where(finite(std_nce))  
     370std=total(std_nce,/nan)/n_elements(ind) 
    335371 
    336372print, '' 
    … …  
    344380xyouts, 50,10, 'cor    bias    std    rmsd', charsize=1. 
    345381 
    346 x=mean_tao & y=mean_nce 
     382x=mean_tao  
     383y=mean_nce 
    347384ab=linfit(x,y,yfit=yfit) 
    348 a=float(ab(0)) & b=float(ab(1)) & print, a,b 
     385a=float(ab(0))  
     386b=float(ab(1))  
     387print, a,b 
    349388oplot, x, yfit, thick=2, color=250 
    350389oplot, [20,200], [20,200] 
    … …  
    360399mean_nce=mean_tao+bias_nce 
    361400 
    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) 
     401ind=where(finite(cor_nce))  
     402cor=total(cor_nce,/nan)/n_elements(ind) 
     403ind=where(finite(bias_nce))  
     404bias=total(bias_nce,/nan)/n_elements(ind) 
     405ind=where(finite(rmsd_nce))  
     406rmsd=total(rmsd_nce,/nan)/n_elements(ind) 
     407ind=where(finite(std_nce))  
     408std=total(std_nce,/nan)/n_elements(ind) 
    366409 
    367410print, '' 
    … …  
    375418xyouts, 50,10, 'cor    bias    std    rmsd', charsize=1. 
    376419 
    377 x=mean_tao & y=mean_nce 
     420x=mean_tao  
     421y=mean_nce 
    378422ab=linfit(x,y,yfit=yfit) 
    379 a=float(ab(0)) & b=float(ab(1)) & print, a,b 
     423a=float(ab(0))  
     424b=float(ab(1))  
     425print, a,b 
    380426oplot, x, yfit, thick=2, color=250 
    381427oplot, [20,200], [20,200] 

  • trunk/src/paper01/fig8/shf_validation_scatter_2000_2009.pro

    r85 r94  
    169169;; reading data from mooring 
    170170 
    171     site=sitelist(n) & csite=site 
     171    site=sitelist(n)  
     172    csite=site 
    172173    print, csite 
    173174    x=x_site_location(site) 
    174175    y=y_site_location(site) 
    175176    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] 
    177180 
    178181    read_variables_sh, csite,date1,date2,nsmooth, $ 
    179182         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) 
    181186 
    182187    if (valid ge 180. ) then begin 
    … …  
    202207        ncep1=tropflux 
    203208 
    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) 
    206217 
    207218        statistics_3var_v1, shf, uncr_shf, corr_shf, $ 
    … …  
    235246mean_erai=mean_tao+bias_erai 
    236247 
    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) 
     248ind=where(finite(cor_erai))  
     249cor=total(cor_erai,/nan)/n_elements(ind) 
     250ind=where(finite(bias_erai))  
     251bias=total(bias_erai,/nan)/n_elements(ind) 
     252ind=where(finite(rmsd_erai))  
     253rmsd=total(rmsd_erai,/nan)/n_elements(ind) 
     254ind=where(finite(std_erai))  
     255std=total(std_erai,/nan)/n_elements(ind) 
    241256 
    242257print, '' 
    … …  
    250265xyouts, 0,-4., 'cor    bias    std    rmsd', charsize=1. 
    251266 
    252 x=mean_tao & y=mean_erai 
     267x=mean_tao  
     268y=mean_erai 
    253269ab=linfit(x,y,yfit=yfit) 
    254 a=float(ab(0)) & b=float(ab(1)) & print, a,b 
     270a=float(ab(0))  
     271b=float(ab(1))  
     272print, a,b 
    255273oplot, x, yfit, thick=2, color=250 
    256274oplot, [-5,25], [-5,25] 
    … …  
    267285mean_trop=mean_tao+bias_trop 
    268286 
    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) 
     287ind=where(finite(cor_trop))  
     288cor=total(cor_trop,/nan)/n_elements(ind) 
     289ind=where(finite(bias_trop))  
     290bias=total(bias_trop,/nan)/n_elements(ind) 
     291ind=where(finite(rmsd_trop))  
     292rmsd=total(rmsd_trop,/nan)/n_elements(ind) 
     293ind=where(finite(std_trop))  
     294std=total(std_trop,/nan)/n_elements(ind) 
    273295 
    274296print, '' 
    … …  
    282304xyouts, 0,-4., 'cor    bias    std    rmsd', charsize=1. 
    283305 
    284 x=mean_tao & y=mean_trop 
     306x=mean_tao  
     307y=mean_trop 
    285308ab=linfit(x,y,yfit=yfit) 
    286 a=float(ab(0)) & b=float(ab(1)) & print, a,b 
     309a=float(ab(0))  
     310b=float(ab(1))  
     311print, a,b 
    287312oplot, x, yfit, thick=2, color=250 
    288313oplot, [-5,25], [-5,25] 
    … …  
    299324mean_oaf=mean_tao+bias_oaf 
    300325 
    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) 
     326ind=where(finite(cor_oaf))  
     327cor=total(cor_oaf,/nan)/n_elements(ind) 
     328ind=where(finite(bias_oaf))  
     329bias=total(bias_oaf,/nan)/n_elements(ind) 
     330ind=where(finite(rmsd_oaf))  
     331rmsd=total(rmsd_oaf,/nan)/n_elements(ind) 
     332ind=where(finite(std_oaf))  
     333std=total(std_oaf,/nan)/n_elements(ind) 
    305334 
    306335print, '' 
    … …  
    314343xyouts, 0,-4., 'cor    bias    std    rmsd', charsize=1. 
    315344 
    316 x=mean_tao & y=mean_oaf 
     345x=mean_tao  
     346y=mean_oaf 
    317347ab=linfit(x,y,yfit=yfit) 
    318 a=float(ab(0)) & b=float(ab(1)) & print, a,b 
     348a=float(ab(0))  
     349b=float(ab(1))  
     350print, a,b 
    319351oplot, x, yfit, thick=2, color=250 
    320352oplot, [-5,25], [-5,25] 
    … …  
    330362mean_nce=mean_tao+bias_nce 
    331363 
    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) 
     364ind=where(finite(cor_nce))  
     365cor=total(cor_nce,/nan)/n_elements(ind) 
     366ind=where(finite(bias_nce))  
     367bias=total(bias_nce,/nan)/n_elements(ind) 
     368ind=where(finite(rmsd_nce))  
     369rmsd=total(rmsd_nce,/nan)/n_elements(ind) 
     370ind=where(finite(std_nce))  
     371std=total(std_nce,/nan)/n_elements(ind) 
    336372 
    337373print, '' 
    … …  
    345381xyouts, 0,-4., 'cor    bias    std    rmsd', charsize=1. 
    346382 
    347 x=mean_tao & y=mean_nce 
     383x=mean_tao  
     384y=mean_nce 
    348385ab=linfit(x,y,yfit=yfit) 
    349 a=float(ab(0)) & b=float(ab(1)) & print, a,b 
     386a=float(ab(0))  
     387b=float(ab(1))  
     388print, a,b 
    350389oplot, x, yfit, thick=2, color=250 
    351390oplot, [-5,25], [-5,25] 
    … …  
    361400mean_nce=mean_tao+bias_nce 
    362401 
    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) 
     402ind=where(finite(cor_nce)) 
     403cor=total(cor_nce,/nan)/n_elements(ind) 
     404ind=where(finite(bias_nce))  
     405bias=total(bias_nce,/nan)/n_elements(ind) 
     406ind=where(finite(rmsd_nce))  
     407rmsd=total(rmsd_nce,/nan)/n_elements(ind) 
     408ind=where(finite(std_nce))  
     409std=total(std_nce,/nan)/n_elements(ind) 
    367410 
    368411print, '' 
    … …  
    376419xyouts, 0,-4., 'cor    bias    std    rmsd', charsize=1. 
    377420 
    378 x=mean_tao & y=mean_nce 
     421x=mean_tao  
     422y=mean_nce 
    379423ab=linfit(x,y,yfit=yfit) 
    380 a=float(ab(0)) & b=float(ab(1)) & print, a,b 
     424a=float(ab(0))  
     425b=float(ab(1))  
     426print, a,b 
    381427oplot, x, yfit, thick=2, color=250 
    382428oplot, [-5,25], [-5,25] 

  • trunk/src/paper01/fig9/lwr_validation_scatter_2000_2007.pro

    r85 r94  
    118118ocean='global' 
    119119 
    120 da1=20000101 & da2=20071231 
     120da1=20000101  
     121da2=20071231 
    121122nsmooth=1. 
    122123;;   This program will create the following text files with statistics of respective variables 
    … …  
    152153file=project_id_env+'TropFlux_lwr_19890101_20091231.nc" 
    153154initncda, file 
    154 cor=read_ncdf('lwr',date1,date2,file=file,/nostr) & cor=-1*cor 
     155cor=read_ncdf('lwr',date1,date2,file=file,/nostr)  
     156cor=-1*cor 
    155157help, cor 
    156158 
    … …  
    162164fi=project_id_env+'NCEP2_flux_19890101_20090729.nc' 
    163165initncdf, fi 
    164 nce=read_ncdf("lwr", date1, date2, file=fi,/nostr) ;;  & nce=-1*nce 
     166nce=read_ncdf("lwr", date1, date2, file=fi,/nostr)  
     167;;  nce=-1*nce 
    165168help, nce 
    166169 
    … …  
    180183;; reading data from mooring 
    181184 
    182     site=sitelist(n) & csite=site 
     185    site=sitelist(n)  
     186    csite=site 
    183187    print, csite 
    184188    x=x_site_location(site) 
    185189    y=y_site_location(site) 
    186190    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] 
    188194    read_lw_global_v2, csite, date1, date2, box, $ 
    189195                           lw 
    190196 
    191     lwr=lw & ind=where(finite(lwr)) & valid=n_elements(ind) 
     197    lwr=lw  
     198    ind=where(finite(lwr))  
     199    valid=n_elements(ind) 
    192200 
    193201    if (valid ge 180. ) then begin 
    … …  
    218226 
    219227 
    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) 
    221235        ncep1=ncep1(ind) 
    222236        mean_tao=total(lwr)/n_elements(ind) 
    … …  
    252266mean_erai=mean_tao+bias_erai 
    253267 
    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) 
     268ind=where(finite(cor_erai))  
     269cor=total(cor_erai,/nan)/n_elements(ind) 
     270ind=where(finite(bias_erai))  
     271bias=total(bias_erai,/nan)/n_elements(ind) 
     272ind=where(finite(rmsd_erai))  
     273rmsd=total(rmsd_erai,/nan)/n_elements(ind) 
     274ind=where(finite(std_erai))  
     275std=total(std_erai,/nan)/n_elements(ind) 
    258276 
    259277print, '' 
    … …  
    267285xyouts, 40,3, 'cor    bias    std    rmsd', charsize=1. 
    268286 
    269 x=mean_tao & y=mean_erai 
     287x=mean_tao  
     288y=mean_erai 
    270289ab=linfit(x,y,yfit=yfit) 
    271 a=float(ab(0)) & b=float(ab(1)) & print, a,b 
     290a=float(ab(0))  
     291b=float(ab(1))  
     292print, a,b 
    272293oplot, x, yfit, thick=2, color=250 
    273294oplot, [0,100], [0,100] 
    … …  
    285306mean_trop=mean_tao+bias_trop 
    286307 
    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) 
     308ind=where(finite(cor_trop))  
     309cor=total(cor_trop,/nan)/n_elements(ind) 
     310ind=where(finite(bias_trop))  
     311bias=total(bias_trop,/nan)/n_elements(ind) 
     312ind=where(finite(rmsd_trop))  
     313rmsd=total(rmsd_trop,/nan)/n_elements(ind) 
     314ind=where(finite(std_trop))  
     315std=total(std_trop,/nan)/n_elements(ind) 
    291316 
    292317print, '' 
    … …  
    300325xyouts, 40,3, 'cor    bias    std    rmsd', charsize=1. 
    301326 
    302 x=mean_tao & y=mean_trop 
     327x=mean_tao  
     328y=mean_trop 
    303329ab=linfit(x,y,yfit=yfit) 
    304 a=float(ab(0)) & b=float(ab(1)) & print, a,b 
     330a=float(ab(0))  
     331b=float(ab(1))  
     332print, a,b 
    305333oplot, x, yfit, thick=2, color=250 
    306334oplot, [0,100], [0,100] 
    … …  
    318346mean_oaf=mean_tao+bias_oaf 
    319347 
    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) 
     348ind=where(finite(cor_oaf))  
     349cor=total(cor_oaf,/nan)/n_elements(ind) 
     350ind=where(finite(bias_oaf))  
     351bias=total(bias_oaf,/nan)/n_elements(ind) 
     352ind=where(finite(rmsd_oaf))  
     353rmsd=total(rmsd_oaf,/nan)/n_elements(ind) 
     354ind=where(finite(std_oaf))  
     355std=total(std_oaf,/nan)/n_elements(ind) 
    324356 
    325357print, '' 
    … …  
    333365xyouts, 40,3, 'cor    bias    std    rmsd', charsize=1. 
    334366 
    335 x=mean_tao & y=mean_oaf 
     367x=mean_tao  
     368y=mean_oaf 
    336369ab=linfit(x,y,yfit=yfit) 
    337 a=float(ab(0)) & b=float(ab(1)) & print, a,b 
     370a=float(ab(0))  
     371b=float(ab(1))  
     372print, a,b 
    338373oplot, x, yfit, thick=2, color=250 
    339374oplot, [0,100], [0,100] 
    … …  
    351386mean_nce=mean_tao+bias_nce 
    352387 
    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) 
     388ind=where(finite(cor_nce))  
     389cor=total(cor_nce,/nan)/n_elements(ind) 
     390ind=where(finite(bias_nce))  
     391bias=total(bias_nce,/nan)/n_elements(ind) 
     392ind=where(finite(rmsd_nce))  
     393rmsd=total(rmsd_nce,/nan)/n_elements(ind) 
     394ind=where(finite(std_nce))  
     395std=total(std_nce,/nan)/n_elements(ind) 
    357396 
    358397print, '' 
    … …  
    366405xyouts, 40,3, 'cor    bias    std    rmsd', charsize=1. 
    367406 
    368 x=mean_tao & y=mean_nce 
     407x=mean_tao  
     408y=mean_nce 
    369409ab=linfit(x,y,yfit=yfit) 
    370 a=float(ab(0)) & b=float(ab(1)) & print, a,b 
     410a=float(ab(0))  
     411b=float(ab(1))  
     412print, a,b 
    371413oplot, x, yfit, thick=2, color=250 
    372414oplot, [0,100], [0,100] 
    … …  
    384426mean_nce=mean_tao+bias_nce 
    385427 
    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) 
     428ind=where(finite(cor_nce))  
     429cor=total(cor_nce,/nan)/n_elements(ind) 
     430ind=where(finite(bias_nce))  
     431bias=total(bias_nce,/nan)/n_elements(ind) 
     432ind=where(finite(rmsd_nce))  
     433rmsd=total(rmsd_nce,/nan)/n_elements(ind) 
     434ind=where(finite(std_nce))  
     435std=total(std_nce,/nan)/n_elements(ind) 
    390436 
    391437print, '' 
    … …  
    399445xyouts, 40,3, 'cor    bias    std    rmsd', charsize=1. 
    400446 
    401 x=mean_tao & y=mean_nce 
     447x=mean_tao  
     448y=mean_nce 
    402449ab=linfit(x,y,yfit=yfit) 
    403 a=float(ab(0)) & b=float(ab(1)) & print, a,b 
     450a=float(ab(0))  
     451b=float(ab(1))  
     452print, a,b 
    404453oplot, x, yfit, thick=2, color=250 
    405454oplot, [0,100], [0,100] 
    … …  
    417466mean_clark=mean_tao+bias_clark 
    418467 
    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) 
     468ind=where(finite(cor_clark))  
     469cor=total(cor_clark,/nan)/n_elements(ind) 
     470ind=where(finite(bias_clark))  
     471bias=total(bias_clark,/nan)/n_elements(ind) 
     472ind=where(finite(rmsd_clark))  
     473rmsd=total(rmsd_clark,/nan)/n_elements(ind) 
     474ind=where(finite(std_clark)) 
     475std=total(std_clark,/nan)/n_elements(ind) 
    423476 
    424477print, '' 
    … …  
    432485xyouts, 40,3, 'cor    bias    std    rmsd', charsize=1. 
    433486 
    434 x=mean_tao & y=mean_clark 
     487x=mean_tao  
     488y=mean_clark 
    435489ab=linfit(x,y,yfit=yfit) 
    436 a=float(ab(0)) & b=float(ab(1)) & print, a,b 
     490a=float(ab(0))  
     491b=float(ab(1))  
     492print, a,b 
    437493oplot, x, yfit, thick=2, color=250 
    438494oplot, [0,100], [0,100] 

  • trunk/src/paper01/fig9/swr_validation_scatter_2000_2007.pro

    r85 r94  
    116116ocean='global' 
    117117 
    118 ;da1=20000101 & da2=20071231 
     118;da1=20000101  
     119;da2=20071231 
    119120nsmooth=1. 
    120121;;   This program will create the following text files with statistics of respective variables 
    … …  
    146147file=project_id_env+'erai_fluxes_20000101_20090801_TROP_oafluxgrid.nc' 
    147148initncdf, file 
    148 unc=read_ncdf('swr',date1,date2,file=file,/nostr) & unc=-1*unc 
     149unc=read_ncdf('swr',date1,date2,file=file,/nostr)  
     150unc=-1*unc 
    149151help, unc 
    150152 
    … …  
    161163fi=project_id_env+'swr_ncep2_oaflxgrid_19890101_20091231.nc' 
    162164initncdf, fi 
    163 nce=read_ncdf("swr", date1, date2, file=fi,/nostr) & nce=0.94*nce 
     165nce=read_ncdf("swr", date1, date2, file=fi,/nostr)  
     166nce=0.94*nce 
    164167help, nce 
    165168 
    … …  
    178181;; reading data from mooring 
    179182 
    180     site=sitelist(n) & csite=site 
     183    site=sitelist(n)  
     184    csite=site 
    181185    print, csite 
    182186    x=x_site_location(site) 
    183187    y=y_site_location(site) 
    184188    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] 
    186192 
    187193    read_global_sw_v50, csite, date1, date2, box, $ 
    188194                           sw 
    189195 
    190     swr=sw & ind=where(finite(swr)) & valid=n_elements(ind) 
     196    swr=sw  
     197    ind=where(finite(swr))  
     198    valid=n_elements(ind) 
    191199 
    192200    if (valid ge 180. ) then begin 
    … …  
    217225        olr=tropflux 
    218226 
    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) 
    221236 
    222237        statistics_3var_v1, swr, uncr_swr, corr_swr, $ 
    … …  
    251266mean_erai=mean_tao+bias_erai 
    252267 
    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) 
     268ind=where(finite(cor_erai))  
     269cor=total(cor_erai,/nan)/n_elements(ind) 
     270ind=where(finite(bias_erai))  
     271bias=total(bias_erai,/nan)/n_elements(ind) 
     272ind=where(finite(rmsd_erai))  
     273rmsd=total(rmsd_erai,/nan)/n_elements(ind) 
     274ind=where(finite(std_erai))  
     275std=total(std_erai,/nan)/n_elements(ind) 
    257276 
    258277print, '' 
    … …  
    266285xyouts, 180,160, 'cor    bias    std    rmsd', charsize=1. 
    267286 
    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 
     287x=mean_tao  
     288y=mean_erai 
     289ab=linfit(x,y,yfit=yfit) 
     290a=float(ab(0))  
     291b=float(ab(1))  
     292print, a,b 
    271293oplot, x, yfit, thick=2, color=250 
    272294oplot, [100,300], [100,300] 
    … …  
    283305mean_trop=mean_tao+bias_trop 
    284306 
    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) 
     307ind=where(finite(cor_trop))  
     308cor=total(cor_trop,/nan)/n_elements(ind) 
     309ind=where(finite(bias_trop))  
     310bias=total(bias_trop,/nan)/n_elements(ind) 
     311ind=where(finite(rmsd_trop))  
     312rmsd=total(rmsd_trop,/nan)/n_elements(ind) 
     313ind=where(finite(std_trop))  
     314std=total(std_trop,/nan)/n_elements(ind) 
    289315 
    290316print, '' 
    … …  
    298324xyouts, 180,160, 'cor    bias    std    rmsd', charsize=1. 
    299325 
    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 
     326x=mean_tao  
     327y=mean_trop 
     328ab=linfit(x,y,yfit=yfit) 
     329a=float(ab(0))  
     330b=float(ab(1))  
     331print, a,b 
    303332oplot, x, yfit, thick=2, color=250 
    304333oplot, [100,300], [100,300] 
    … …  
    315344mean_oaf=mean_tao+bias_oaf 
    316345 
    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) 
     346ind=where(finite(cor_oaf))  
     347cor=total(cor_oaf,/nan)/n_elements(ind) 
     348ind=where(finite(bias_oaf))  
     349bias=total(bias_oaf,/nan)/n_elements(ind) 
     350ind=where(finite(rmsd_oaf))  
     351rmsd=total(rmsd_oaf,/nan)/n_elements(ind) 
     352ind=where(finite(std_oaf))  
     353std=total(std_oaf,/nan)/n_elements(ind) 
    321354 
    322355print, '' 
    … …  
    330363xyouts, 180,160, 'cor    bias    std    rmsd', charsize=1. 
    331364 
    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 
     365x=mean_tao  
     366y=mean_oaf 
     367ab=linfit(x,y,yfit=yfit) 
     368a=float(ab(0))  
     369b=float(ab(1))  
     370print, a,b 
    335371oplot, x, yfit, thick=2, color=250 
    336372oplot, [100,300], [100,300] 
    … …  
    347383mean_nce=mean_tao+bias_nce 
    348384 
    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) 
     385ind=where(finite(cor_nce))  
     386cor=total(cor_nce,/nan)/n_elements(ind) 
     387ind=where(finite(bias_nce))  
     388bias=total(bias_nce,/nan)/n_elements(ind) 
     389ind=where(finite(rmsd_nce))  
     390rmsd=total(rmsd_nce,/nan)/n_elements(ind) 
     391ind=where(finite(std_nce))  
     392std=total(std_nce,/nan)/n_elements(ind) 
    353393 
    354394print, '' 
    … …  
    362402xyouts, 180,160, 'cor    bias    std    rmsd', charsize=1. 
    363403 
    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 
     404x=mean_tao  
     405y=mean_nce 
     406ab=linfit(x,y,yfit=yfit) 
     407a=float(ab(0))  
     408b=float(ab(1))  
     409print, a,b 
    367410oplot, x, yfit, thick=2, color=250 
    368411oplot, [100,300], [100,300] 
    … …  
    379422mean_nce=mean_tao+bias_nce 
    380423 
    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) 
     424ind=where(finite(cor_nce))  
     425cor=total(cor_nce,/nan)/n_elements(ind) 
     426ind=where(finite(bias_nce))  
     427bias=total(bias_nce,/nan)/n_elements(ind) 
     428ind=where(finite(rmsd_nce))  
     429rmsd=total(rmsd_nce,/nan)/n_elements(ind) 
     430ind=where(finite(std_nce))  
     431std=total(std_nce,/nan)/n_elements(ind) 
    385432 
    386433print, '' 
    … …  
    394441xyouts, 180,160, 'cor    bias    std    rmsd', charsize=1. 
    395442 
    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 
     443x=mean_tao  
     444y=mean_nce 
     445ab=linfit(x,y,yfit=yfit) 
     446a=float(ab(0))  
     447b=float(ab(1))  
     448print, a,b 
    399449oplot, x, yfit, thick=2, color=250 
    400450oplot, [100,300], [100,300] 
    … …  
    411461mean_olr=mean_tao+bias_olr 
    412462 
    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) 
     463ind=where(finite(cor_olr))  
     464cor=total(cor_olr,/nan)/n_elements(ind) 
     465ind=where(finite(bias_olr))  
     466bias=total(bias_olr,/nan)/n_elements(ind) 
     467ind=where(finite(rmsd_olr))  
     468rmsd=total(rmsd_olr,/nan)/n_elements(ind) 
     469ind=where(finite(std_olr))  
     470std=total(std_olr,/nan)/n_elements(ind) 
    417471 
    418472print, '' 
    … …  
    426480xyouts, 180,160, 'cor    bias    std    rmsd', charsize=1. 
    427481 
    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 
     482x=mean_tao  
     483y=mean_olr 
     484ab=linfit(x,y,yfit=yfit) 
     485a=float(ab(0))  
     486b=float(ab(1))  
     487print, a,b 
    431488oplot, x, yfit, thick=2, color=250 
    432489oplot, [100,300], [100,300] 

  • trunk/src/q2m_correction_ncdf.pro

    r92 r94  
    143143ENDIF 
    144144; 
    145 da1=19880101 & da2=20101231 
     145da1=19880101  
     146da2=20101231 
    146147; 
    147148; build data filename 
    … …  
    175176help, q2m_mean 
    176177 
    177 tt=time & jpt=n_elements(time) 
     178tt=time  
     179jpt=n_elements(time) 
    178180caldat, time,mon,day,yea 
    179181q2m_m=q2m*0. 
    … …  
    203205lat=reform(gphit(0,0:jpj-1)) 
    204206lon=reform(glamt(0:jpi-1,0)) 
    205 time=timegen(7670, units='days', start=julday(1,1,1989,0)) & jpt=n_elements(time) 
     207time=timegen(7670, units='days', start=julday(1,1,1989,0))  
     208jpt=n_elements(time) 
    206209 
    207210cda0=string(jul2date(time(0)),format='(i8.8)') 
    208211cda1=string(jul2date(time(jpt-1)),format='(i8.8)') 
    209212 
    210 time=time-julday(1,1,1950) & jpt=n_elements(time) 
     213time=time-julday(1,1,1950)  
     214jpt=n_elements(time) 
    211215 
    212216ncfile='!' + fullfilename_out 

  • trunk/src/sst_correction_ncdf.pro

    r93 r94  
    213213ENDIF 
    214214; 
    215 da1=19880101 & da2=20091231 
     215da1=19880101  
     216da2=20091231 
    216217; 
    217218; build data filename 
    … …  
    239240; 
    240241initncdf, fullfilename 
    241 sst=read_ncdf('sst',da1,da2,file=fullfilename,/nostr) & sst=sst-273.15 
     242sst=read_ncdf('sst',da1,da2,file=fullfilename,/nostr)  
     243sst=sst-273.15 
    242244help, sst 
    243245 
    … …  
    245247help, sst_mean 
    246248 
    247 tt=time & jpt=n_elements(time) 
     249tt=time  
     250jpt=n_elements(time) 
    248251caldat, time,mon,day,yea 
    249252; 
    … …  
    278281lat=reform(gphit(0,0:jpj-1)) 
    279282lon=reform(glamt(0:jpi-1,0)) 
    280 time=timegen(7670, units='days', start=julday(1,1,1989)) & jpt=n_elements(time) 
     283time=timegen(7670, units='days', start=julday(1,1,1989))  
     284jpt=n_elements(time) 
    281285 
    282286cda0=string(jul2date(time(0)),format='(i8.8)') 
    283287cda1=string(jul2date(time(jpt-1)),format='(i8.8)') 
    284288 
    285 time=time-julday(1,1,1950) & jpt=n_elements(time) 
     289time=time-julday(1,1,1950)  
     290jpt=n_elements(time) 
    286291 
    287292ncfile='!' + fullfilename_out 

  • trunk/src/ws_correction_ncdf.pro

    r92 r94  
    146146ENDIF 
    147147; 
    148 da1=19880101 & da2=20101231 
     148da1=19880101  
     149da2=20101231 
    149150; 
    150151; build data filename 
    … …  
    181182help, w_mean 
    182183 
    183 tt=time & jpt=n_elements(time) 
     184tt=time  
     185jpt=n_elements(time) 
    184186caldat, time,mon,day,yea 
    185187w_m=w*0. 
    … …  
    210212lat=reform(gphit(0,0:jpj-1)) 
    211213lon=reform(glamt(0:jpi-1,0)) 
    212 time=timegen(7670, units='days', start=julday(1,1,1989,0)) & jpt=n_elements(time) 
     214time=timegen(7670, units='days', start=julday(1,1,1989,0))  
     215jpt=n_elements(time) 
    213216 
    214217cda0=string(jul2date(time(0)),format='(i8.8)') 
    215218cda1=string(jul2date(time(jpt-1)),format='(i8.8)') 
    216219 
    217 time=time-julday(1,1,1950) & jpt=n_elements(time) 
     220time=time-julday(1,1,1950)  
     221jpt=n_elements(time) 
    218222 
    219223ncfile='!' + fullfilename_out 

  • trunk/src/ws_tropflux_1d_to_1m_ncdf.pro

    r83 r94  
    136136; 
    137137initncdf, fullfilename 
    138 st=19890101 & en=20101231 
     138st=19890101  
     139en=20101231 
    139140ws=read_ncdf("ws", st, en, file=fullfilename,/nostr) 
    140141 
    … …  
    145146;; Monthly data 
    146147; 
    147 jpt=22*12. & time=timegen(jpt,start=julday(1,15,1989),units='Months') 
     148jpt=22*12.  
     149time=timegen(jpt,start=julday(1,15,1989),units='Months') 
    148150caldat, tt,m,d,y 
    149151caldat, time, mon,day,yea 
    … …  
    163165cda1=string(jul2date(time(jpt-1)),format='(i8.8)') 
    164166time=time-julday(1,1,1950,00,00,00) 
    165 xlon=reform(glamt(firstxt:lastxt,0) ) & ylat=reform(gphit(0,firstyt:lastyt)) 
     167xlon=reform(glamt(firstxt:lastxt,0) )  
     168ylat=reform(gphit(0,firstyt:lastyt)) 
    166169 
    167170ncfile='!' + fullfilename_out 
Note: See TracChangeset for help on using the changeset viewer.