Changeset 97


Ignore:
Timestamp:
08/30/11 14:38:29 (13 years ago)
Author:
pinsard
Message:

suppress blank lines trailing blank

Location:
trunk/src
Files:
80 edited

Legend:

Unmodified
Added
Removed

  • trunk/src/TropFlux_19890101_20091231.pro

    r94 r97  
    145145;     tab=fltarr(jpi,jpj)+!values.f_nan & x=reform(y(*,1)) & tab(ocean)=x & m=fi    nite(tab) & tab=extrapolate(tab,m) & lwr(*,*,jt)=tab*msk+valmask*(1-msk) 
    146146; 
    147 ; to make progress I DO NOT extrapolate anymore lwr, sen and lat  
     147; to make progress I DO NOT extrapolate anymore lwr, sen and lat 
    148148; !!!!! must be reactivated 
    149149; 
    150150; when I DO NOT extrapolate lwr, sen and lat , program end with :: 
    151151; 
    152 ;     Written to  
     152;     Written to 
    153153;     !/usr/work/incas/fplod/tropflux_d/TropFlux_19890101_20091231_coarev3.nc 
    154154;     ------------------------- 
    … …  
    192192; 
    193193; $URL$ 
     194; 
     195; - fplod 20110830T084129Z aedon.locean-ipsl.upmc.fr (Darwin) 
     196; 
     197;   * add tau in ouptut file 
    194198; 
    195199; - fplod 20110822T090838Z aedon.locean-ipsl.upmc.fr (Darwin) 
    … …  
    405409ENDIF 
    406410; 
    407 da1=19880101  
     411da1=19880101 
    408412da2=20101231 
    409413; 
    410414initncdf, fullfilename_msk 
    411415msk=ncdf_lec(fullfilename_msk,var='msk') 
    412  
     416; 
    413417initncdf, fullfilename_sst 
    414  
     418; 
    415419ws=read_ncdf('ws',da1,da2,file=fullfilename_ws,/nostr) 
    416420wg=read_ncdf('wg',da1-1,da2,file=fullfilename_wg,/nostr) 
    417 tt=time  
     421tt=time 
    418422jpt=n_elements(time) 
    419423sst=read_ncdf('sst',da1,da2,file=fullfilename_sst,/nostr) 
    … …  
    421425swd=read_ncdf('swr',da1,da2,file=fullfilename_swr,/nostr) 
    422426lw=read_ncdf('lwr',da1,da2,file=fullfilename_lwr,/nostr) 
    423 swd=swd/0.94  ;; converting from net swr to downward swr 
    424  
     427swd=swd/0.94  ; converting from net swr to downward swr 
     428; 
    425429t2m=read_ncdf('t2m',da1,da2,file=fullfilename_t2m,/nostr)-273.15   ; in C 
    426430q2m=read_ncdf('q2m',da1,da2,file=fullfilename_q2m,/nostr)    ; in g/kg 
    427  
    428 w=sqrt(ws*ws+wg*wg)  ;; wind corrected for gustiness 
     431; 
     432w=sqrt(ws*ws+wg*wg)  ; wind corrected for gustiness 
    429433w=ws 
    430434tmask=msk 
    … …  
    432436ocean=where(msk eq 1,compl=land) 
    433437valmask=1.e20 
    434 time=tt  
     438time=tt 
    435439jpt=n_elements(time) 
    436  
    437 ; 
    438 ;; Constants for flux computation 
     440; 
     441; 
     442; Constants for flux computation 
    439443; 
    440444zu=10.                          ; height of wind speed measurement (m) 
    … …  
    448452twave=5. 
    449453hwave=1. 
    450  
     454; 
    451455caldat, time,mon,day,yea 
    452456swr=fltarr(jpi,jpj,jpt)+1.e20 
    … …  
    458462;Ce=fltarr(jpi,jpj,jpt)+1.e20 
    459463junk=fltarr(jpi,jpj,jpt)+1.e20 
    460  
     464; 
    461465for jt=0,jpt-1 do begin 
    462466  jday=time(jt)-julday(1,1,yea(jt)) 
    463467  print, 'Computing Fluxes ',jt,' / ',jpt-1 
    464468; 
    465 ;  P=msl(*,*,jt)  
     469;  P=msl(*,*,jt) 
    466470;  P=P(ocean) 
    467  
     471; 
    468472  ; wind speed (m/s) 
    469   wn=w(*,*,jt)  
    470   wn=wn(ocean)           
     473  wn=w(*,*,jt) 
     474  wn=wn(ocean) 
    471475  ; Bulk sst (°C) 
    472   ts=sst(*,*,jt)  
    473   ts=ts(ocean)         
     476  ts=sst(*,*,jt) 
     477  ts=ts(ocean) 
    474478  ; 2m Air T (°C) 
    475   t=t2m(*,*,jt)  
    476   t=t(ocean)            
     479  t=t2m(*,*,jt) 
     480  t=t(ocean) 
    477481  ; Sea surface sat. spec. humidity (g/kg) 
    478   qs=qsee(ts,P)                         
     482  qs=qsee(ts,P) 
    479483  ; 2m AIr specific humidity  (g/kg) 
    480   q=q2m(*,*,jt)  
    481   q=q(ocean)            
     484  q=q2m(*,*,jt) 
     485  q=q(ocean) 
    482486  ; Downward solar flux (W/m2) 
    483   Rs=swd(*,*,jt)  
     487  Rs=swd(*,*,jt) 
    484488  Rs=Rs(ocean) 
    485489  ylat=gphit(ocean) 
    … …  
    487491  cld=calc_cloud_vlat(jday,Rs,ylat) 
    488492  ; Downward IR flux (W/m2) 
    489   ;  Rl=lwdown_clark(ts,q,cld,t,P)         
    490   Rl=lw(*,*,jt)  
     493  ;  Rl=lwdown_clark(ts,q,cld,t,P) 
     494  Rl=lw(*,*,jt) 
    491495  Rl=Rl(ocean) 
    492496  rain=0. 
    … …  
    497501  y=cor30a(wn,us,ts,t,Qs,Q,Rs,Rl,rain,zi,P,zu,zt,zq,ylat,jcool,jwave,twave,hwave) 
    498502; 
    499  
     503; 
    500504; A few punctual missing values (coare does not converge): filled by spatial extrapolation 
    501505  tab=fltarr(jpi,jpj)+!values.f_nan 
    … …  
    536540  sen(*,*,jt)=tab*msk+valmask*(1-msk) 
    537541  ;  tab=fltarr(jpi,jpj)+!values.f_nan & x=reform(lw_clrk) & tab(ocean)=x & m=finite(tab) & tab=extrapolate(tab,m) & lwnet_clrk(*,*,jt)=tab*msk+valmask*(1-msk) 
     542  tab=fltarr(jpi,jpj)+!values.f_nan & x=reform(y(*,5)) & tab(ocean)=x & m=finite(tab) & tab=extrapolate(tab,m) & tau(*,*,jt)=tab*msk+valmask*(1-msk) 
    538543  ;  tab=fltarr(jpi,jpj)+!values.f_nan & x=reform(y(*,6)) & tab(ocean)=x & m=finite(tab) & tab=extrapolate(tab,m) & Ch(*,*,jt)=tab*msk+valmask*(1-msk) 
    539544  ;  tab=fltarr(jpi,jpj)+!values.f_nan & x=reform(y(*,7)) & tab(ocean)=x & m=finite(tab) & tab=extrapolate(tab,m) & Ce(*,*,jt)=tab*msk+valmask*(1-msk) 
     545  tab=fltarr(jpi,jpj)+!values.f_nan & x=reform(y(*,8)) & tab(ocean)=x & m=finite(tab) & tab=extrapolate(tab,m) & wg(*,*,jt)=tab*msk+valmask*(1-msk) 
    540546endfor 
    541547tt=time 
    542 time=timegen(7670, start=julday(1,1,1989,0), units='days')  
     548time=timegen(7670, start=julday(1,1,1989,0), units='days') 
    543549jpt=n_elements(time) 
    544550; 
    … …  
    546552cda1=string(jul2date(time(jpt-1)),format='(i8.8)') 
    547553tt=time-julday(1,1,1950,00,00,00) 
    548 xlon=reform(glamt(*,0) )  
     554xlon=reform(glamt(*,0) ) 
    549555ylat=reform(gphit(0,*)) 
    550  
     556; 
    551557ncfile='!' + fullfilename_out 
    552558lon_attr={units:'degrees_east',long_name:'Longitude'} 
    … …  
    557563lhf_attr={units:'W/m2',missing_value:valmask,long_name:'Surface latent flux',short_name:'lhf',axis:'TYX'} 
    558564shf_attr={units:'W/m2',missing_value:valmask,long_name:'Surface sensible flux',short_name:'shf',axis:'TYX'} 
     565wg_attr={units:'m/s',missing_value:valmask,long_name:'COARE convective gustiness',short_name:'wg',axis:'TYX'} 
     566tau_attr={units:'N/m2',missing_value:valmask,long_name:'Wind stress magnitude',short_name:'tau',axis:'TYX'} 
    559567time_attr={units:'days since 1950-01-01 00:00:00',long_name:'Time axis',time_origin:' 1950-JAN-01 00:00:00'} 
    560 Ch_attr={units:'',missing_value:valmask,long_name:'heat transfer coefficient at zt',short_name:'Ch',axis:'TYX'} 
    561 Ce_attr={units:'',missing_value:valmask,long_name:'moisture transfer coefficient at zq',short_name:'Ce',axis:'TYX'} 
    562  
     568; 
    563569globattr={source:'Fluxes for the Global Tropical Ocean - TropFlux',timerange:cda0+' - '+cda1} 
    564  
     570; 
    565571help, swr,lwr,lat,sen,tt,xlon,ylat 
    566  
    567 ncfields = 'swr[longitude,latitude,time]=swr:swr_attr; ' $ 
     572; 
     573ncfields = $ 
     574          + tau[longitude,latitude,time]=tau:tau_attr; ' $ 
     575          + wg[longitude,latitude,time]=wg:wg_attr; ' $ 
     576          + swr[longitude,latitude,time]=swr:swr_attr; ' $ 
    568577;          +'lwr_coare[longitude,latitude,time]=lwr:lwr_attr; ' $ 
    569578          +'lwr[longitude,latitude,time]=lwnet_clrk:lwr_clrk_attr; ' $ 
    … …  
    576585                      + 'tt[*time]=tt:time_attr ' $ 
    577586                      + ' @ globattr' 
    578  
     587; 
    579588@ncdf_quickwrite 
    580  
     589; 
    581590end 

  • trunk/src/TropFlux_NRT_ncdf.pro

    r94 r97  
    5656; :func:`jul2date <saxo:jul2date>` 
    5757; :func:`ncdf_quickwrite <saxo:ncdf_quickwrite>` 
    58 ;  
     58; 
    5959; EXAMPLES 
    6060; ======== 
    … …  
    7878; 
    7979; $Id: TropFlux_NRT_ncdf.pro 88 2011-08-19 15:40:14Z pinsard $ 
    80 ;  
     80; 
    8181; $URL$ 
    8282; 
    … …  
    187187ENDIF 
    188188; 
    189 st=19800101  
     189st=19800101 
    190190en=20101231 
    191  
     191; 
    192192initncdf, fullfilename_swr_blnd 
    193  
     193; 
    194194swr=read_ncdf("swr", st, en, file=fullfilename_swr_blnd,/nostr) 
    195  
     195; 
    196196initncdf, fullfilename_lwr 
    197197lwr=read_ncdf("lwr", st, en, file=fullfilename_lwr,/nostr) 
    198  
     198; 
    199199initncdf, fullfilename_coare 
    200200lhf=read_ncdf("lhf", st, en, file=fullfilename_coare,/nostr) 
    201201shf=read_ncdf("shf", st, en, file=fullfilename_coare,/nostr) 
    202  
     202; 
    203203help, swr, lwr, lhf, shf 
    204  
    205 ;time=julday(1,1,1989)+lindgen(7670)+0.5  
     204; 
     205;time=julday(1,1,1989)+lindgen(7670)+0.5 
    206206;jpt=n_elements(time) 
    207 time=timegen(7670, units='days', start=julday(1,1,1989,0))  
     207time=timegen(7670, units='days', start=julday(1,1,1989,0)) 
    208208jpt=n_elements(time) 
    209  
     209; 
    210210cda0=string(jul2date(time(0)),format='(i8.8)') 
    211211cda1=string(jul2date(time(jpt-1)),format='(i8.8)') 
    212  
     212; 
    213213time=time-julday(1,1,1950,00,00) 
    214214; 
    215215lat=reform(gphit(0,0:jpj-1)) 
    216216lon=reform(glamt(0:jpi-1,0)) 
    217  
     217; 
    218218ncfile='!' + fullfilename_out 
    219219lon_attr={units:'degrees_east',long_name:'Longitude'} 
    … …  
    224224sh_attr={units:'w/m^2',missing_value:1.e20,long_name:'Sensible Heat Flux',short_name:'shf',axis:'TYX'} 
    225225lh_attr={units:'w/m^2',missing_value:1.e20,long_name:'Latent Heat Flux',short_name:'lhf',axis:'TYX'} 
    226  
     226; 
    227227globattr={Source:'TropFlux - Air-Sea Fluxes for the Global Tropics', Resolution:'1 x 1 degree and daily', IDL_program_name:'TropFlux_ncdf.pro',Timerange:cda0+' - '+cda1, More_Info:'ISCCP based SWR until 2007 and OLR based SWR after that with a 90 day linear transition between the two'} 
    228  
    229  
     228; 
     229; 
    230230ncfields = 'swr[longitude,latitude,time]=swr:sw_attr; ' $ 
    231231          +'lwr[longitude,latitude,time]=lwr:lw_attr; ' $ 
    … …  
    236236                      + 'time[*time]=time:time_attr ' $ 
    237237                      + ' @ globattr' 
    238  
     238; 
    239239@ncdf_quickwrite 
    240  
     240; 
    241241end 

  • trunk/src/TropFlux_swr_BLND_19890101_20091231.pro

    r94 r97  
    8686; why 20080100, 20100112 as  date1 and date2 when readind nrt 
    8787; 
    88 ; why two read_ncdf for nrt  
    89 ; 
    90 ; according to pk 20110811 we can include this process in  
     88; why two read_ncdf for nrt 
     89; 
     90; according to pk 20110811 we can include this process in 
    9191; TropFlux_swr_NRT_19890101_20091231.pro ... later 
    9292; 
    … …  
    142142;        IDL> fullfilename_dt='TropFlux_swr_19890101_20071231_DT.nc' 
    143143;        IDL> dt=read_ncdf("swr", 19890100, 20071231, file=fullfilename_dt,/nostr) 
    144 ;        IDL> print, 'first time step (should crash with invalid date)', jul2date(time[0])    
     144;        IDL> print, 'first time step (should crash with invalid date)', jul2date(time[0]) 
    145145;        first time step (should be 19890101)       19890101. 
    146146;        IDL> dt=read_ncdf("swr", 19890101, 20071231, file=fullfilename_dt,/nostr) 
    147 ;        IDL> print, 'first time step (should be 19890101)', jul2date(time[0])    
     147;        IDL> print, 'first time step (should be 19890101)', jul2date(time[0]) 
    148148;        first time step (should be 19890101)       19890102. 
    149149; 
    150150;   * correction for reading gustiness file 
    151 ;  
     151; 
    152152; - fplod 20110809T115747Z aedon.locean-ipsl.upmc.fr (Darwin) 
    153153; 
    … …  
    219219   STOP 
    220220ENDIF 
    221  
     221; 
    222222; build nrt data filename 
    223223filename_nrt="TropFlux_swr_19890101_20091231_NRT.nc" 
    … …  
    262262print, 'first time step (should be 19890101)', jul2date(time[0]) 
    263263print, 'last time step (should be 20071231)', jul2date(time[jpt-1]) 
    264  
     264; 
    265265initncdf, fullfilename_nrt 
    266266nrt=read_ncdf("sw", 20080100, 20100112, file=fullfilename_nrt,/nostr) 
    267267help, nrt 
    268  
     268; 
    269269swr_nrt=read_ncdf("sw", 19880101, 20100112, file=fullfilename_nrt,/nostr) 
    270  
     270; 
    271271swr_dt=[[[dt]],[[nrt]]] 
    272272help, nrt, swr_dt, swr_nrt 
    273  
     273; 
    274274swr_merged=swr_dt*0. 
    275  
    276 time=timegen(7670, units='days', start=julday(1,1,1989,0))  
     275; 
     276time=timegen(7670, units='days', start=julday(1,1,1989,0)) 
    277277jpt=n_elements(time) 
    278  
     278; 
    279279a=interpol([1.,0.],[julday(10,01,2007),julday(12,31,2007)],time) 
    280280a=((a > 0.) < 1.) 
    … …  
    282282    swr_merged(*,*,jt)=swr_dt(*,*,jt)*a(jt)+(1-a(jt))*swr_nrt(*,*,jt) 
    283283endfor 
    284  
     284; 
    285285initncdf, fullfilename_wg 
    286 time=timegen(7670, units='days', start=julday(1,1,1989,0))  
     286time=timegen(7670, units='days', start=julday(1,1,1989,0)) 
    287287jpt=n_elements(time) 
    288288lat=reform(gphit(0,0:jpj-1)) 
    … …  
    290290cda0=string(jul2date(time(0)),format='(i8.8)') 
    291291cda1=string(jul2date(time(jpt-1)),format='(i8.8)') 
    292  
     292; 
    293293time=time-julday(1,1,1950,00,00) 
    294294ncfile='!' + fullfilename_out 
    … …  
    298298sw_attr={units:'w/m^2',missing_value:1.e20,long_name:'Net Shortwave Radiation',short_name:'swr',axis:'TYX'} 
    299299globattr={source:'ISCCP based SWR until 2007, after 2007 timeseries is completed with OLR based SWR.  A linear transition is applied from ISCCP based SWR to OLR based SWR'} 
    300  
     300; 
    301301ncfields = 'swr[longitude,latitude,time]=swr_merged:sw_attr; ' $ 
    302302                      + 'longitude[]=lon:lon_attr; ' $ 
    … …  
    304304                      + 'time[*time]=time:time_attr ' $ 
    305305                      + ' @ globattr' 
    306  
     306; 
    307307@ncdf_quickwrite 
    308  
     308; 
    309309end 

  • trunk/src/TropFlux_swr_DT_19890101_20071231.pro

    r94 r97  
    1515; have been produced ++by pk 
    1616; 
    17 ; Corrected swr delay on OAFLUX grid  
     17; Corrected swr delay on OAFLUX grid 
    1818; is written in 
    1919; :file:`${PROJECT_OD}/TropFlux_swr_19890101_20071231_DT.nc` 
    … …  
    172172; 
    173173initncdf, filename 
    174  
     174; 
    175175sw=read_ncdf("swr", 19890101, 20071231, file=filename,/nostr) 
    176176help, sw 
    177  
     177; 
    178178sw_mean=grossemoyenne(sw, 't',/nan) 
    179179help, sw_mean 
    180  
    181 tt=time  
     180; 
     181tt=time 
    182182jpt=n_elements(time) 
    183183caldat, time,mon,day,yea 
    184 sw_m=sw*0.  
     184sw_m=sw*0. 
    185185sw_bias=sw*0. 
    186  
     186; 
    187187for jt=0,jpt-1 do begin 
    188188  jtt=(time(jt)-julday(1,1,yea(jt))) < 364 
    … …  
    191191  sw_bias(*,*,jt)=(((swr-295.4)*18.36/(200.-295.4)) > 0.) < 18.37 
    192192endfor 
    193  
     193; 
    194194help, sw_m, sw_bias 
    195195swa=sw-sw_m 
    196 swa=swa/(0.901273)       ;; variability correction (seasonal_cycle_swr_isccp.pro) 
    197  
    198 swr=sw_m+swa-sw_bias       ;; new swr, corrected for bias and variability 
     196swa=swa/(0.901273)       ; variability correction (seasonal_cycle_swr_isccp.pro) 
     197; 
     198swr=sw_m+swa-sw_bias       ; new swr, corrected for bias and variability 
    199199;writing field 
    200200;time=julday(1,1,1989)+lindgen(7670) 
    201201cda0=string(jul2date(tt(0)),format='(i8.8)') 
    202202cda1=string(jul2date(tt(jpt-1)),format='(i8.8)') 
    203  
     203; 
    204204lat=reform(gphit(0,0:jpj-1)) 
    205205lon=reform(glamt(0:jpi-1,0)) 
    206 time=time-julday(1,1,1950)  
     206time=time-julday(1,1,1950) 
    207207jpt=n_elements(time) 
    208  
     208; 
    209209ncfile='!' + fullfilename_out 
    210210lon_attr={units:'degrees_east',long_name:'Longitude'} 
    … …  
    213213sw_attr={units:'w/m^2',missing_value:1.e20,long_name:'Net Shortwave Radiation',short_name:'swr',axis:'TYX'} 
    214214globattr={source:'Obtained from ISCCP.  Corrections has been done on mean bias and variability',timerange:cda0+' - '+cda1} 
    215  
     215; 
    216216ncfields = 'swr[longitude,latitude,time]=swr:sw_attr; ' $ 
    217217                      + 'longitude[]=lon:lon_attr; ' $ 
    … …  
    219219                      + 'time[*time]=time:time_attr ' $ 
    220220                      + ' @ globattr' 
    221  
     221; 
    222222@ncdf_quickwrite 
    223  
     223; 
    224224end 

  • trunk/src/TropFlux_swr_NRT_19890101_20091231.pro

    r94 r97  
    187187initncdf, fullfilename_swr_dt 
    188188sw=read_ncdf("swr", 19890101, 20071231, file=fullfilename_swr_dt,/nostr) 
    189  
     189; 
    190190swi=sw 
    191  
     191; 
    192192initncdf, fullfilename_olr 
    193193olr=read_ncdf('olr',19890100, 20071231, file=fullfilename_olr,/nost) 
    194  
     194; 
    195195help, sw, olr 
    196  
    197 ;;creating climatology 
    198  
     196; 
     197;creating climatology 
     198; 
    199199ny=(2007-1989)+1 
    200200nt=365*ny 
    201201olri=total(reform(olr(*,*,0:nt-1),nxt,nyt,365,ny),4)/ny 
    202202swi=total(reform(swi(*,*,0:nt-1),nxt,nyt,365,ny),4)/ny 
    203  
     203; 
    204204help, olri, swi 
    205  
    206 ;; applying smoothing 
     205; 
     206; applying smoothing 
    207207nsmooth=45 
    208  
    209 swi=[[[swi]],[[swi]],[[swi]]]  
     208; 
     209swi=[[[swi]],[[swi]],[[swi]]] 
    210210olri=[[[olri]],[[olri]],[[olri]]] 
    211 si=size(sw)  
    212 n1=si(1)  
     211si=size(sw) 
     212n1=si(1) 
    213213n2=si(2) 
    214  
     214; 
    215215for j=0,n2-1 do begin 
    216216  for i=0,n1-1 do begin 
    … …  
    221221  endfor 
    222222endfor 
    223  
    224 swi=swi[*,*,365:365+364]  
     223; 
     224swi=swi[*,*,365:365+364] 
    225225olri=olri[*,*,365:365+364] 
    226226help, swi 
    227  
     227; 
    228228initncdf, fullfilename_olr 
    229229olr=read_ncdf('olr', 19890100, 20091231, box=box, file=fullfilename_olr,/nostr) 
    230 tt=time  
     230tt=time 
    231231jpt=n_elements(time) 
    232232caldat, time,mon,day,yea 
    233 swm=olr*0.  
     233swm=olr*0. 
    234234olrm=olr*0. 
    235235for jt=0,jpt-1 do begin 
    … …  
    238238  olrm(*,*,jt)=olri(*,*,jtt) 
    239239endfor 
    240  
     240; 
    241241help, swm, olrm 
    242  
     242; 
    243243olra=olr-olrm                       ; olr anomaly 
    244244rec=swm+(olra/0.760364)             ; reconstructed sw 
    … …  
    247247cda0=string(jul2date(tt(0)),format='(i8.8)') 
    248248cda1=string(jul2date(tt(jpt-1)),format='(i8.8)') 
    249  
     249; 
    250250lat=reform(gphit(0,0:jpj-1)) 
    251251lon=reform(glamt(0:jpi-1,0)) 
    252 time=time-julday(1,1,1950)  
     252time=time-julday(1,1,1950) 
    253253jpt=n_elements(time) 
    254  
     254; 
    255255ncfile='!' + fullfilename_out 
    256256lon_attr={units:'degrees_east',long_name:'Longitude'} 
    … …  
    259259sw_attr={units:'w/m^2',missing_value:1.e20,long_name:'Net Shortwave Radiation',short_name:'swr',axis:'TYX'} 
    260260globattr={source:'Reconstructed from corrected OLR anomalies and TropFlux mean SWR climatology',timerange:cda0+' - '+cda1} 
    261  
    262  
     261; 
     262; 
    263263ncfields = 'sw[longitude,latitude,time]=rec:sw_attr; ' $ 
    264264                      + 'longitude[]=lon:lon_attr; ' $ 
    … …  
    266266                      + 'time[*time]=time:time_attr ' $ 
    267267                      + ' @ globattr' 
    268  
     268; 
    269269@ncdf_quickwrite 
    270  
     270; 
    271271end 

  • trunk/src/TropFlux_wind_stress_19890101_20101231.pro

    r96 r97  
    44st=19880101 & en=20101231 
    55st=19880101 & en=20101231 
    6  
     6; 
    77file="/Volumes/PAYASAM/TropFlux/ERA_C_1989_2010/TropFlux_19890101_20101231.nc" 
    88initncdf, file 
    … …  
    1010tau=reform(tau) 
    1111help, tau 
    12  
     12; 
    1313stop 
    1414dir='/Volumes/PAYASAM/TropFlux/ERA_C_1989_2010/' 
    … …  
    1616file_wg=dir+'gustiness_19890101_20101231.nc' 
    1717initncdf, file_wind 
    18  
     18; 
    1919ws=read_ncdf('ws',st,en,file=file_wind,/nostr) 
    2020wg=read_ncdf('wg',st,en,file=file_wg,/nostr) 
    2121s=sqrt((ws*ws)+(wg*wg)) 
    2222s=reform(s) & help, s 
    23  
     23; 
    2424file="/Volumes/Iomega_HDD/TropFlux/input_uncor/erai_ws_19890101_20101231.nc" 
    2525initncdf, file 
    2626u=read_ncdf('u10',st,en,file=file,/nostr) 
    2727v=read_ncdf('v10',st,en,file=file,/nostr) 
    28  
     28; 
    2929u=reform(u) & v=reform(v) 
    3030help, u,v 
    3131taux=tau*u/s 
    3232tauy=tau*v/s 
    33  
     33; 
    3434help, taux, tauy 
    35  
     35; 
    3636time=timegen(8035, start=julday(1,1,1989,0), units='days') & jpt=n_elements(time) 
    3737;------------------------------------------------------------ 
    … …  
    4040tt=time-julday(1,1,1950,00,00,00) 
    4141xlon=reform(glamt(*,0) ) & ylat=reform(gphit(0,*)) 
    42  
     42; 
    4343ncfile='!/Volumes/PAYASAM/TropFlux/ERA_C_1989_2010/tau_tropflux_1d_19890101_20101231.nc' 
    4444lon_attr={units:'degrees_east',long_name:'Longitude'} 
    … …  
    4848tauy_attr={units:'N/m2',missing_value:valmask,long_name:'meridional wind stress',short_name:'tauy',axis:'TYX'} 
    4949time_attr={units:'days since 1950-01-01 00:00:00',long_name:'Time axis',time_origin:' 1950-JAN-01 00:00:00'} 
    50  
     50; 
    5151globattr={Source:'TropFlux - Momentum Fluxes for the Global Tropics', Methodology:'Praveen Kumar et al., Clim. Dyn 2011', Producer_Agency:'Joint research colloboration between IPSL, Paris and NIO, India', Time_range:cda0+' - '+cda1, Creation_date:'20110707', Website:'http://www.locean-ipsl.upmc.fr/tropflux/'} 
    52  
     52; 
    5353help, xlon,ylat, taux, tauy, tau 
    54  
     54; 
    5555ncfields = 'tau[longitude,latitude,time]=tau:tau_attr; ' $ 
    5656          +'taux[longitude,latitude,time]=taux:taux_attr; ' $ 
    … …  
    6060                      + 'tt[*time]=tt:time_attr ' $ 
    6161                      + ' @ globattr' 
    62  
     62; 
    6363@ncdf_quickwrite 
    64  
    65 ;------------------------------------------------------------ 
    66 return 
     64; 
    6765end 
    68 ;------------------------------------------------------------ 

  • trunk/src/calc_cloud_vlat.pro

    r94 r97  
    22;- 
    33 function calc_cloud_vlat, jday,SWR,XLAT 
    4  
     4; 
    55; Translated directly from Margie McCartys Fortran, 
    66; added XLAT~=0 capability from WEARE et al 1980, 
    … …  
    1010;     by comparing theoretical clear sky radiation to measured. 
    1111; 
    12 ;  INPUT:  
    13 ;       jday: value jday  
    14 ;       SWR: vector of  SW rad in Watts/m^2  
     12;  INPUT: 
     13;       jday: value jday 
     14;       SWR: vector of  SW rad in Watts/m^2 
    1515;       XLAT: corresponding vector of lat 
    1616; 
    … …  
    1919;       Qclsky: clearsky Qsw = Q0 in Reeds notation 
    2020; 
    21  
     21; 
    2222; SET COEFFICIENTS FOR THE Q0 CALCULATION 
    23  
     23; 
    2424pi=!pi 
    25 xlat=double(xlat)  
     25xlat=double(xlat) 
    2626NN=n_elements(xlat) 
    27  
     27; 
    2828CLD=SWR*0.+!values.f_nan 
    2929Qclsky = SWR*0.+!values.f_nan 
    30  
     30; 
    3131A0 = (-32.65 + 674.76*cos(XLAT*pi/180)) 
    3232A1 = (19.88 + 397.26*cos((XLAT+90.0)*pi/180)) 
    … …  
    3434B1 = (-6.75 + 224.38*sin(XLAT*pi/180)) 
    3535B2 = (-1.04 +  29.76*cos((2*(XLAT-5.0))*pi/180)) 
    36  
     36; 
    3737;A0 = (-32.65 + 674.76*cos(XLAT*pi/180))*(abs(XLAT) le 20.) 
    3838;A1 = (19.88 + 397.26*cos((XLAT+90.0)*pi/180))*(abs(XLAT) le 20.) 
    … …  
    5252;B1 = B1+( -4.80 + 2.46*XLAT - 0.017*XLAT^2)*((abs(XLAT) gt 40.) and (abs(XLAT) le 60.)) 
    5353;B2 = B2+(-38.79 + 2.43*XLAT - 0.034*XLAT^2)*((abs(XLAT) gt 40.) and (abs(XLAT) le 60.)) 
    54  
     54; 
    5555  DAY=jday ; day is day of that year; 
    5656  XDIV=365.15 
    57  
     57; 
    5858; CALCULATE PHI 
    5959  PHI = (360./XDIV * (DAY-21.0))*pi/180. 
    60  
     60; 
    6161; CALCULATE Q0; MULTIPY BY .4846 TO CONVERT FROM 
    6262; LY/DAY TO W/M**2 
    6363  Q0 = A0+A1*cos(PHI)+B1*sin(PHI)+A2*cos(2*PHI)+B2*sin(2*PHI); 
    6464  Q0=Q0*.4846; 
    65  
     65; 
    6666  SNALPHA=sin(XLAT*pi/180)*sin(23.45*sin((DAY-82)*pi/180)*pi/180) + $ 
    6767           cos(XLAT*pi/180)*cos(23.45*sin((DAY-82)*pi/180)*pi/180) 
    6868  ALPHA = asin(SNALPHA)*180/pi 
    69  
    70 ; SEE MARINE CLIMATE ATLAS OF TROPICAL PACIFC OCEAN, WEARE,STRUB,  
     69; 
     70; SEE MARINE CLIMATE ATLAS OF TROPICAL PACIFC OCEAN, WEARE,STRUB, 
    7171; AND SAMUEL -- UC,DAVIS;  THIS IS ACTUALLY REEDS 1977 
    7272; FORMULA 
    7373  CLD = (1.0+0.0019*ALPHA-SWR/Q0)/.62 
    7474  Qclsky = Q0 
    75  
    76 indx=where(CLD ge 1.0)  
     75; 
     76indx=where(CLD ge 1.0) 
    7777if (indx(0) ne -1) then CLD(indx) = 1.+0.*indx 
    78  
    79 ;;return, [[CLD],[Qclsky]] 
     78; 
     79;return, [[CLD],[Qclsky]] 
    8080return, cld 
    81  
     81; 
    8282end 
    83       

  • trunk/src/cm_project.pro

    r85 r97  
    1010; =========== 
    1111; 
    12 ; define commons for PROJECT  
     12; define commons for PROJECT 
    1313; 
    1414; SEE ALSO 

  • trunk/src/cor30a.pro

    r90 r97  
    8888; 
    8989; $URL$ 
     90; 
     91; - fplod 20110830T085907Z aedon.locean-ipsl.upmc.fr (Darwin) 
     92; 
     93;   * add ug 
    9094; 
    9195; - fplod 20110822T085404Z aedon.locean-ipsl.upmc.fr (Darwin) 
    … …  
    166170Ribu=-grav*zu/ta*((dt-dter*jcool)+.61*ta*dq)/ut^2 
    167171nits=3 
    168 ;;if (Ribu le 0.) then begin 
    169 ;;  zetu=CC*Ribu/(1+Ribu/Ribcu) 
    170 ;;endif else begin 
    171 ;;  zetu=CC*Ribu*(1+27./9*Ribu/CC) 
    172 ;;endelse 
     172;if (Ribu le 0.) then begin 
     173;  zetu=CC*Ribu/(1+Ribu/Ribcu) 
     174;endif else begin 
     175;  zetu=CC*Ribu*(1+27./9*Ribu/CC) 
     176;endelse 
    173177sw=(Ribu le 0.) 
    174178zetu=sw*(CC*Ribu/(1+Ribu/Ribcu))+(1-sw)*(CC*Ribu*(1+27./9*Ribu/CC)) 
    175 ;; 
     179; 
    176180L10=zu/zetu 
    177 ;;if (zetu gt 50 ) then nits=1 
     181;if (zetu gt 50 ) then nits=1 
    178182usr=ut*von/(alog(zu/zo10)-psiu(zu/L10)) 
    179183tsr=-(dt-dter*jcool)*von*fdg/(alog(zt/zot10)-psit(zt/L10)) 
    … …  
    182186tkt=.001 
    183187 
    184 ;;charn=0.011 
    185 ;;if (ut gt 10.) then charn=0.011+(ut-10)/(18.-10)*(0.018-0.011) 
    186 ;;if (ut gt 18.) then charn=0.018 
     188;charn=0.011 
     189;if (ut gt 10.) then charn=0.011+(ut-10)/(18.-10)*(0.018-0.011) 
     190;if (ut gt 18.) then charn=0.018 
    187191charn=(((0.011+(ut-10)/(18.-10)*(0.018-0.011)) > .011) < .018) 
    188 ;; 
     192; 
    189193 
    190194;***************  bulk loop ************ 
    … …  
    198202  rr=zo*usr/visa 
    199203  L=zu/zet 
    200 ;;zoq=min([1.15e-4,5.5e-5/rr^.6]) 
     204;zoq=min([1.15e-4,5.5e-5/rr^.6]) 
    201205  zoq=(5.5e-5/rr^.6 < 1.15e-4) 
    202 ;; 
     206; 
    203207  zot=zoq 
    204208  usr=ut*von/(alog(zu/zo)-psiu(zu/L)) 
    … …  
    206210  qsr=-(dq-wetc*dter*jcool)*von*fdg/(alog(zq/zoq)-psit(zq/L)) 
    207211  Bf=-grav/ta*usr*(tsr+.61*ta*qsr) 
    208 ;;if (Bf gt 0) then begin 
    209 ;;  ug=Beta*(Bf*zi)^.333 
    210 ;;endif else begin 
    211 ;;  ug=.2 
    212 ;;endelse 
     212;if (Bf gt 0) then begin 
     213;  ug=Beta*(Bf*zi)^.333 
     214;endif else begin 
     215;  ug=.2 
     216;endelse 
    213217  sw=(Bf gt 0) 
    214218  ug=sw*(Beta*(Bf*zi)^.333)+(1-sw)*.2 
    215 ;; 
     219; 
    216220  ut=sqrt(du*du+ug*ug) 
    217221  Rnl=0.97*(5.67e-8*(ts-dter*jcool+tdk)^4-Rl) 
    … …  
    223227  alq=Al*qcol+be*hlb*cpw/LLe                                    ; Eq. 7 Buoy flux water 
    224228 
    225 ;;  if (alq gt 0) then begin 
    226 ;;    xlamx=6./(1+(bigc*alq/usr^4)^.75)^.333                    ; Eq 13 Saunders 
    227 ;;    tkt=xlamx*visw/(sqrt(rhoa/rhow)*usr)                      ;Eq.11 Sub. thk 
    228 ;;  endif else begin 
    229 ;;    xlamx=6.0 
    230 ;;;;  tkt=min([.01,xlamx*visw/(sqrt(rhoa/rhow)*usr)])           ;Eq.11 Sub. thk 
    231 ;;    tkt=(xlamx*visw/(sqrt(rhoa/rhow)*usr) < .01) 
    232 ;;;; 
    233 ;;  endelse 
     229;  if (alq gt 0) then begin 
     230;    xlamx=6./(1+(bigc*alq/usr^4)^.75)^.333                     ; Eq 13 Saunders 
     231;    tkt=xlamx*visw/(sqrt(rhoa/rhow)*usr)                       ;Eq.11 Sub. thk 
     232;  endif else begin 
     233;    xlamx=6.0 
     234;  tkt=min([.01,xlamx*visw/(sqrt(rhoa/rhow)*usr)])              ;Eq.11 Sub. thk 
     235;    tkt=(xlamx*visw/(sqrt(rhoa/rhow)*usr) < .01) 
     236; 
     237;  endelse 
    234238  sw=(alq gt 0) 
    235239  xlamx=sw*(6./(1+(bigc*alq/usr^4)^.75)^.333)+(1-sw)*6.0 
    236240  tkt=sw*(xlamx*visw/(sqrt(rhoa/rhow)*usr))+(1-sw)*(xlamx*visw/(sqrt(rhoa/rhow)*usr) < .01) 
    237 ;; 
     241; 
    238242 
    239243  dter=qcol*tkt/tcw ;  Eq.12 Cool skin 
    … …  
    257261;y=[[Rns],[-1.*Rnl],[-1.*hlb],[-1.*hsb],[-1.*RF],[tau]] 
    258262 
    259 ;;****************   Webb et al. correection  ************ 
     263;****************   Webb et al. correection  ************ 
    260264;wbar=1.61*hlb/LLe/(1+1.61*Q)/rhoa+hsb/rhoa/cpa/ta      ;formulation in hlb already includes webb 
    261265;hl_webb=rhoa*wbar*Q*LLe 
    262 ;;**************   compute transfer coeffs relative to ut @meas. ht ********** 
    263 ;;Cd=tau/rhoa/ut/max([.1,du]) 
     266;**************   compute transfer coeffs relative to ut @meas. ht ********** 
     267;Cd=tau/rhoa/ut/max([.1,du]) 
    264268;Cd=tau/rhoa/ut/(du > .1) 
    265 ;;; 
     269; 
    266270Ch=-usr*tsr/ut/(dt-dter*jcool) 
    267271Ce=-usr*qsr/(dq-dqer*jcool)/ut 
    268 ;;************  10-m neutral coeff realtive to ut ******** 
     272;************  10-m neutral coeff realtive to ut ******** 
    269273;Cdn_10=von*von/alog(10./zo)/alog(10./zo) 
    270274;Chn_10=von*von*fdg/alog(10./zo)/alog(10./zot) 
    271275;Cen_10=von*von*fdg/alog(10./zo)/alog(10./zoq) 
    272276 
    273 y=[[Rns],[-1.*Rnl],[-1.*hlb],[-1.*hsb],[-1.*RF],[tau],[Ch],[Ce]] 
    274 ;;y=[hsb,hlb,tau,zo,zot,zoq,L,usr,tsr,qsr,dter,dqer,tkt,RF,wbar,Cd,Ch,Ce,Cdn_10,Chn_10,Cen_10,ug ] 
     277y=[[Rns],[-1.*Rnl],[-1.*hlb],[-1.*hsb],[-1.*RF],[tau],[Ch],[Ce],[ug]] 
     278;y=[hsb,hlb,tau,zo,zot,zoq,L,usr,tsr,qsr,dter,dqer,tkt,RF,wbar,Cd,Ch,Ce,Cdn_10,Chn_10,Cen_10,ug ] 
    275279;   1   2   3   4  5   6  7  8   9  10   11   12  13  14  15  16 17 18    19      20    21  22 
    276280;       hsb=                    sensible heat flux (w/m^2) 
    277281;       hlb=                    latent heat flux (w/m^2) 
    278282;       RF=                     rain heat flux(w/m^2) 
    279 ;       wbar=                   webb mean w (m/s) 
     283;       wbar=                   webb mean w (m/s) 
    280284;       tau=                    stress (nt/m^2) 
    281285;       zo=                     velocity roughness length (m) 

  • trunk/src/cronin_gustiness_ncdf.pro

    r94 r97  
    135135ENDIF 
    136136; 
    137 da1=19880101  
     137da1=19880101 
    138138da2=20101231 
    139139; 
    … …  
    160160; 
    161161initncdf, fullfilename 
    162 sst=read_ncdf('sst',da1,da2,file=fullfilename,/nostr)  
     162sst=read_ncdf('sst',da1,da2,file=fullfilename,/nostr) 
    163163sst=reform(sst-273.15) 
    164164help, sst 
    165  
     165; 
    166166sst_clim=grossemoyenne(sst, 't',/nan) 
    167 ;wg=0.175*sst_clim-3.17  ;; line fit obtained from the scatter (Cronin gustiness Vs ERAI SST) 
     167;wg=0.175*sst_clim-3.17  ; line fit obtained from the scatter (Cronin gustiness Vs ERAI SST) 
    168168;help, wg 
    169  
     169; 
    170170jpt=n_elements(time) 
    171  
     171; 
    172172wg_tot=sst*0. 
    173173for jt=0, jpt-1 do begin 
    … …  
    175175endfor 
    176176help, wg_tot 
    177  
    178 ;; writing field 
    179 time=timegen(7670, units='days', start=julday(1,1,1989,0))  
     177; 
     178; writing field 
     179time=timegen(7670, units='days', start=julday(1,1,1989,0)) 
    180180jpt=n_elements(time) 
    181  
     181; 
    182182cda0=string(jul2date(time(0)),format='(i8.8)') 
    183183cda1=string(jul2date(time(jpt-1)),format='(i8.8)') 
    184184tt=time-julday(1,1,1950,00,00,00) 
    185 xlon=reform(glamt(*,0) )  
     185xlon=reform(glamt(*,0) ) 
    186186ylat=reform(gphit(0,*)) 
    187  
     187; 
    188188ncfile='!' + fullfilename_out 
    189189lon_attr={units:'degrees_east',long_name:'Longitude'} 
    … …  
    192192gust_attr={units:'m/s',missing_value:valmask,long_name:'Climatological gustiness',short_name:'wg',axis:'TYX'} 
    193193globattr={source:'Climatological wind gustiness obtained by fitting cronins gustiness values against sst ',timerange:cda0+' - '+cda1} 
    194  
     194; 
    195195ncfields = 'wg[longitude,latitude,time]=wg_tot:gust_attr; ' $ 
    196196                      + 'longitude[]=xlon:lon_attr; ' $ 
    … …  
    198198                      + 'tt[*time]=tt:time_attr ' $ 
    199199                      + ' @ globattr' 
    200  
     200; 
    201201@ncdf_quickwrite 
    202  
     202; 
    203203end 

  • trunk/src/d2m_to_q2m_erai.pro

    r94 r97  
    186186ENDIF 
    187187; 
    188 d1=19881001  
     188d1=19881001 
    189189d2=20101231 
    190190; 
    … …  
    241241initncdf, fullfilename_d2m 
    242242td=read_ncdf("d2m", d1,d2, file=fullfilename_d2m,/nostr) 
    243  
     243; 
    244244; reading erai air temperature 
    245245initncdf, fullfilename_t2m 
    246246t=read_ncdf("t2m", d1,d2, file=fullfilename_t2m,/nostr) 
    247 tt=time  
     247tt=time 
    248248jpt=n_elements(time) 
    249249help, t, td 
    250  
     250; 
    251251;since the t2m and d2m are already in K, no need for conversion 
    252252es0=6.11 
    253253e=es0*exp((25.e5/461.5)*((1/273.15)-(1/td))) 
    254254es=es0*exp((25.e5/461.5)*((1/273.15)-(1/t))) 
    255  
     255; 
    256256rh=(e/es)*100 
    257  
    258 ;; conversion of relative humidity to sp. humidity 
    259 ;; Ref.1 -  Gill, Appendix 4, 
    260 ;; Ref.2 - http://efdl.cims.nyu.edu/project_aomip/forcing_data/atmosphere/humidity.html 
    261  
     257; 
     258; conversion of relative humidity to sp. humidity 
     259; Ref.1 -  Gill, Appendix 4, 
     260; Ref.2 - http://efdl.cims.nyu.edu/project_aomip/forcing_data/atmosphere/humidity.html 
     261; 
    262262t=t-273.15 
    263  
     263; 
    264264initncdf, fullfilename_msl 
    265265P=read_ncdf("msl", d1, d2, file=fullfilename_msl,/nostr) 
    … …  
    269269; ++stop 
    270270q2m=rh_to_spechum(rh,t,P) 
    271  
     271; 
    272272;writing field 
    273273ncfile='!' + fullfilename_out 
    274 time=timegen(7670, units='days', start=julday(1,1,1989))  
     274time=timegen(7670, units='days', start=julday(1,1,1989)) 
    275275jpt=n_elements(time) 
    276276cda0=string(jul2date(time(0)),format='(i8.8)') 
    277277cda1=string(jul2date(time(jpt-1)),format='(i8.8)') 
    278  
     278; 
    279279tt=time-julday(1,1,1950,00,00,00) 
    280 xlon=reform(glamt(*,0) )  
     280xlon=reform(glamt(*,0) ) 
    281281ylat=reform(gphit(0,*)) 
    282282valmask=1.e20 
    283  
     283; 
    284284lon_attr={units:'degrees_east',long_name:'Longitude'} 
    285285lat_attr={units:'degrees_north',long_name:'Latitude'} 
    … …  
    287287time_attr={units:'days since 1950-01-01 00:00:00',long_name:'Time axis',time_origin:' 1950-JAN-01 00:00:00'} 
    288288globattr={source:'Surface specific humidity at 2m calculated from dew point temperature',timerange:cda0+' - '+cda1} 
    289  
     289; 
    290290ncfields = 'q2m[longitude,latitude,time]=q2m:q2m_attr; ' $ 
    291291                      + 'longitude[]=xlon:lon_attr; ' $ 
    … …  
    293293                      + 'tt[*time]=tt:time_attr ' $ 
    294294                      + ' @ globattr' 
    295  
     295; 
    296296@ncdf_quickwrite 
     297; 
    297298end 

  • trunk/src/dew_temp_airt_rel_humidity_jv.pro

    r85 r97  
    4848;- 
    4949function dew_temp_airt_rel_humidity_jv, t,td 
    50  
     50; 
    5151if (not keyword_set(t)) then t=28            ; air temperature in degC 
    5252if (not keyword_set(td)) then td=23           ; dew point temperature in degC 
    5353es0=6.11        ; reference saturation vapor pressure (hPa) 
    54  
    55 ;; calculating fields.  First saturation vapor pressure (Es) and 
    56 ;; actual vapor pressure are calculated.  The ratio (E/Es)*100 
    57 ;; gives the relative humidity 
    58  
     54; 
     55; calculating fields.  First saturation vapor pressure (Es) and 
     56; actual vapor pressure are calculated.  The ratio (E/Es)*100 
     57; gives the relative humidity 
     58; 
    5959e=es0*10^(7.5*td/(237.7+td)) 
    6060es=es0*10^(7.5*t/(237.7+T)) 
    61  
     61; 
    6262rh=(e/es)*100 
    63 ;;;print, 'RH = ',rh 
    64  
     63;print, 'RH = ',rh 
     64; 
    6565return, rh 
    66  
     66; 
    6767end 

  • trunk/src/get_oaflux.sh

    r77 r97  
    66# .. _get_oaflux.sh: 
    77# 
    8 # ========================================== 
    9 # get_oaflux.sh -- Get OAFLUX reference file 
    10 # ========================================== 
     8# ============= 
     9# get_oaflux.sh 
     10# ============= 
    1111# 
    1212# SYNOPSIS 

  • trunk/src/get_olr.sh

    r85 r97  
    99# get_olr.sh 
    1010# ========== 
    11 #  
     11# 
    1212# SYNOPSIS 
    1313# ======== 
    … …  
    3636# coding rules 
    3737# 
    38 # check if we can use OpenDAP file cited  
     38# check if we can use OpenDAP file cited 
    3939# in http://www.esrl.noaa.gov/psd/data/gridded/data.interp_OLR.html 
    4040# cf. http://www.esrl.noaa.gov/psd/thredds/dodsC/Datasets/interp_OLR/catalog.html?dataset=PSDgriddedData/interp_OLR/olr.day.mean.nc 

  • trunk/src/get_olrnint.sh

    r50 r97  
    66# .. _get_olrnint.sh: 
    77# 
    8 # ======================================================= 
    9 # get_olrnint.sh -- get OLR uninterpolated reference file 
    10 # ======================================================= 
    11 # 
     8# ============== 
     9# get_olrnint.sh 
     10# ============== 
    1211# 
    1312# SYNOPSIS 

  • trunk/src/get_pirata_netcdf.sh

    r91 r97  
    66# .. _get_pirata_netcdf.sh: 
    77# 
    8 # ================================================== 
    9 # get_pirata_netcdf.sh -- get PIRATA reference files 
    10 # ================================================== 
    11 # 
     8# ==================== 
     9# get_pirata_netcdf.sh 
     10# ==================== 
    1211# 
    1312# SYNOPSIS 

  • trunk/src/get_rama_netcdf.sh

    r91 r97  
    66# .. _get_rama_netcdf.sh: 
    77# 
    8 # ============================================== 
    9 # get_rama_netcdf.sh -- get RAMA reference files 
    10 # ============================================== 
     8# ================== 
     9# get_rama_netcdf.sh 
     10# ================== 
    1111# 
    1212# SYNOPSIS 

  • trunk/src/get_tao_netcdf.sh

    r91 r97  
    66# .. _get_tao_netcdf.sh: 
    77# 
    8 # ============================================ 
    9 # get_tao_netcdf.sh -- get TAO reference files 
    10 # ============================================ 
     8# ================= 
     9# get_tao_netcdf.sh 
     10# ================= 
    1111# 
    1212# SYNOPSIS 

  • trunk/src/interp_erai_dewt_1989_2009.pro

    r94 r97  
    235235initncdf, fullfilename 
    236236domdef 
    237 latin=reform(gphit(0,*))  
     237latin=reform(gphit(0,*)) 
    238238lonin=reform(glamt(*,0)) 
    239239print, 'lat grid ',min(latin),max(latin),latin(1)-latin(0) 
    240240print, 'lon grid ',min(lonin),max(lonin),lonin(1)-lonin(0) 
    241241d2min=read_ncdf("d2",19881201,20101231,file=fullfilename,/nostr) 
    242  
     242; 
    243243timein=time 
    244244jptin=jpt 
    245245tab=d2min(*,*,0) 
    246246mskin=glamt*0.+1. 
    247  
     247; 
    248248initncdf, fullfilename_msk 
    249249domdef 
    … …  
    253253print, 'lon grid ',min(lonout),max(lonout),lonout(1)-lonout(0) 
    254254mskout=read_ncdf("msk", file=fullfilename_msk,/nostr) 
    255  
     255; 
    256256help, d2min,lonin,latin,mskin,lonout,latout,mskout 
    257  
     257; 
    258258si=size(d2min) 
    259259d2mout=fltarr(jpi,jpj,jptin) 
    … …  
    266266  d2mout(*,*,jt)=d2mout(*,*,jt)*mskout+(1.-mskout)*1.e20 
    267267endfor 
    268  
     268; 
    269269timein=timein 
    270270jptin=jpt 
    271  
     271; 
    272272initncdf, fullfilename_msk 
    273273cda0=string(jul2date(timein(0)),format='(i8.8)') 
    274274cda1=string(jul2date(timein(jpt-1)),format='(i8.8)') 
    275  
    276 time=timegen(7670, units='days', start=julday(1,1,1989))  
     275; 
     276time=timegen(7670, units='days', start=julday(1,1,1989)) 
    277277jpt=n_elements(time) 
    278278cda0=string(jul2date(time(0)),format='(i8.8)') 
    279279cda1=string(jul2date(time(jpt-1)),format='(i8.8)') 
    280280timein=time-julday(1,1,1950,00,00) 
    281  
     281; 
    282282lat=latout 
    283283lon=lonout 
    … …  
    288288d2m_attr={units:'degK',missing_value:1e20,long_name:'Dew Point Temperature at 2m',short_name:'d2m',axis:'TYX'} 
    289289globattr={source:'Data are from ECMWF ERA-Interim reanalysis', timerange:cda0+' - '+cda1} 
    290  
     290; 
    291291ncfields = 'd2m[longitude,latitude,time]=d2mout:d2m_attr; ' $ 
    292292                      + 'longitude[]=lon:lon_attr; ' $ 
    293293                      + 'latitude[]=lat:lat_attr; ' $ 
    294                       + 'time[*time]=timein:time_attr ' $ 
     294                      + 'time[*time]=timein:time_attr ' $ 
    295295                      + ' @ globattr' 
    296  
     296; 
    297297@ncdf_quickwrite 
    298  
     298; 
    299299end 

  • trunk/src/interp_erai_lwr_1989_2009.pro

    r94 r97  
    1212; Interpolation of str from ERA-I grid to OAFLUX grid 
    1313; 
    14 ; :file:`${PROJECT_ID}/20c3m_erai_str_TROP_1989_2009.nc`  
    15 ; containing str from ERA-I  
     14; :file:`${PROJECT_ID}/20c3m_erai_str_TROP_1989_2009.nc` 
     15; containing str from ERA-I 
    1616; has been produced 
    1717; by :ref:`compute_erai_daily_region_2d.sh`. 
    1818; 
    19 ; :file:`${PROJECT_ID}/mask_oaflux_30N30S.nc`  
     19; :file:`${PROJECT_ID}/mask_oaflux_30N30S.nc` 
    2020; containing OAFLUX mask 
    21 ; has been produced by  
     21; has been produced by 
    2222; :ref:`oaflux_mask_30N30S.pro`. 
    2323; 
    2424; Interpolated str is written in 
    25 ; :file:`${PROJECT_OD}/erai_lwr_19890102_20091231_oafluxgrid.nc`  
     25; :file:`${PROJECT_OD}/erai_lwr_19890102_20091231_oafluxgrid.nc` 
    2626; if this file not already exists. 
    2727; 
    28 ; This output file  
    29 ; :file:`${PROJECT_OD}/erai_lwr_19890102_20091231_oafluxgrid.nc`  
     28; This output file 
     29; :file:`${PROJECT_OD}/erai_lwr_19890102_20091231_oafluxgrid.nc` 
    3030; must be processed after by :ref:`add_198900101.sh`. 
    3131; 
    … …  
    207207   STOP 
    208208ENDIF 
    209  
    210 st=19890101  
     209; 
     210st=19890101 
    211211en=20090801 
    212  
     212; 
    213213; build data filename 
    214214filename='20c3m_erai_str_TROP_1989_2009.nc' 
    … …  
    260260lwrin=read_ncdf("str",0,7668,/timestep,file=fullfilename,/nostr) 
    261261lwrin=-1*lwrin 
    262  
     262; 
    263263initncdf, fullfilename 
    264264domdef 
    265 latin=reform(gphit(0,*))  
     265latin=reform(gphit(0,*)) 
    266266lonin=reform(glamt(*,0)) 
    267267print, 'lat grid ',min(latin),max(latin),latin(1)-latin(0) 
    268268print, 'lon grid ',min(lonin),max(lonin),lonin(1)-lonin(0) 
    269  
    270 timein=time  
     269; 
     270timein=time 
    271271jptin=jpt 
    272272tab=lwrin(*,*,0) 
    273273mskin=glamt*0.+1. 
    274  
     274; 
    275275initncdf, fullfilename_msk 
    276276domdef 
    … …  
    279279print, 'lon grid ',min(lonout),max(lonout),lonout(1)-lonout(0) 
    280280mskout=read_ncdf("msk", file=fullfilename_msk,/nostr) 
    281  
     281; 
    282282si=size(lwrin) 
    283283lwrout=fltarr(jpi,jpj,jptin) 
    284  
     284; 
    285285for jt=0,jptin-1 do begin 
    286286  ; ++print, 'Interpolation jt=',jt,' / ',jptin-1 
    287  
     287; 
    288288  tab=reform(lwrin(*,*,jt)) 
    289289  lwrout(*,*,jt)=call_interp2d(tab,lonin,latin,mskin $ 
    … …  
    291291      , OUTMASK_IND=mskout, SET_OUTMSKVAL=mskout) 
    292292  lwrout(*,*,jt)=lwrout(*,*,jt)*mskout+(1.-mskout)*1.e20 
    293  
     293; 
    294294endfor 
    295  
    296 time=timegen(7669, start=julday(1,2,1989,0), units='days')  
     295; 
     296time=timegen(7669, start=julday(1,2,1989,0), units='days') 
    297297jpt=n_elements(time) 
    298 tt=time  
     298tt=time 
    299299jptin=jpt 
    300300cda0=string(jul2date(tt(0)),format='(i8.8)') 
    301301cda1=string(jul2date(tt(jpt-1)),format='(i8.8)') 
    302302tt=tt-julday(1,1,1950,00,00,00) 
    303 xlon=reform(glamt(*,0) )  
     303xlon=reform(glamt(*,0) ) 
    304304ylat=reform(gphit(0,*)) 
    305  
     305; 
    306306initncdf, fullfilename_msk 
    307307valmask=1.e20 
    308  
     308; 
    309309ylat=latout 
    310310xlon=lonout 
    … …  
    313313lat_attr={units:'degrees_north',long_name:'Latitude'} 
    314314time_attr={units:'days since 1950-01-01 00:00:00',long_name:'Time axis',time_origin:' 1950-JAN-01 00:00:00'} 
    315  
     315; 
    316316lwr_attr={units:'W/m2',missing_value:valmask,long_name:'Surface net longwave radiation ',short_name:'lwr',axis:'TYX'} 
    317317time_attr={units:'days since 1950-01-01 00:00:00',long_name:'Time axis',time_origin:' 1950-JAN-01 00:00:00'} 
    318318globattr={source:'Tropical ocean fluxes obtained from ERA Interim',timerange:cda0+' - '+cda1} 
    319  
     319; 
    320320ncfields = 'lwr[longitude,latitude,time]=lwrout:lwr_attr; ' $ 
    321321                      + 'longitude[]=xlon:lon_attr; ' $ 
    … …  
    323323                      + 'tt[*time]=tt:time_attr ' $ 
    324324                      + ' @ globattr' 
    325  
     325; 
    326326@ncdf_quickwrite 
    327  
     327; 
    328328end 

  • trunk/src/interp_erai_msl_1989_2009.pro

    r94 r97  
    221221   STOP 
    222222ENDIF 
    223  
     223; 
    224224initncdf, fullfilename 
    225225domdef 
    226 latin=reform(gphit(0,*))  
     226latin=reform(gphit(0,*)) 
    227227lonin=reform(glamt(*,0)) 
    228228print, 'lat grid ',min(latin),max(latin),latin(1)-latin(0) 
    229229print, 'lon grid ',min(lonin),max(lonin),lonin(1)-lonin(0) 
    230230mslin=read_ncdf("msl",19880101,20100930,file=fullfilename,/nostr) 
    231  
    232 timein=time  
     231; 
     232timein=time 
    233233jptin=jpt 
    234234tab=mslin(*,*,0) 
    235235mskin=glamt*0.+1. 
    236  
     236; 
    237237initncdf, fullfilename_msk 
    238238domdef 
    239 latout=reform(gphit(0,*))  
     239latout=reform(gphit(0,*)) 
    240240lonout=reform(glamt(*,0)) 
    241241print, 'lat grid ',min(latout),max(latout),latout(1)-latout(0) 
    242242print, 'lon grid ',min(lonout),max(lonout),lonout(1)-lonout(0) 
    243243mskout=read_ncdf("msk", file=fullfilename_msk,/nostr) 
    244  
     244; 
    245245; conversion to hPa 
    246246ncdf_getatt, fullfilename, 'msl', units=units 
    … …  
    255255    END 
    256256ENDCASE 
    257  
     257; 
    258258help, mslin,lonin,latin,mskin,lonout,latout,mskout 
    259  
     259; 
    260260si=size(mslin) 
    261261mslout=fltarr(jpi,jpj,jptin) 
    … …  
    268268  mslout(*,*,jt)=mslout(*,*,jt)*mskout+(1.-mskout)*1.e20 
    269269endfor 
    270  
    271 timein=timein  
     270; 
     271timein=timein 
    272272jptin=jpt 
    273  
     273; 
    274274initncdf, fullfilename_msk 
    275275;time=julday(1,2,1989)+lindgen(7516) 
    276 time=timegen(7670, units='days', start=julday(1,1,1989))  
     276time=timegen(7670, units='days', start=julday(1,1,1989)) 
    277277jpt=n_elements(time) 
    278278cda0=string(jul2date(time(0)),format='(i8.8)') 
    279279cda1=string(jul2date(time(jpt-1)),format='(i8.8)') 
    280280timein=time-julday(1,1,1950,00,00) 
    281  
     281; 
    282282lat=latout 
    283283lon=lonout 
    … …  
    288288msl_attr={units:'milibars',missing_value:1e20,long_name:'Mean Sea leval pressure',short_name:'msl',axis:'TYX'} 
    289289globattr={source:'Data are from ECMWF ERA-Interim reanalysis', timerange:cda0+' - '+cda1} 
    290  
     290; 
    291291ncfields = 'msl[longitude,latitude,time]=mslout:msl_attr; ' $ 
    292292                      + 'longitude[]=lon:lon_attr; ' $ 
    293293                      + 'latitude[]=lat:lat_attr; ' $ 
    294                       + 'time[*time]=timein:time_attr ' $ 
     294                      + 'time[*time]=timein:time_attr ' $ 
    295295                      + ' @ globattr' 
    296  
     296; 
    297297@ncdf_quickwrite 
    298  
     298; 
    299299end 

  • trunk/src/interp_erai_sst_1989_2009.pro

    r94 r97  
    229229initncdf, fullfilename 
    230230domdef 
    231 latin=reform(gphit(0,*))  
     231latin=reform(gphit(0,*)) 
    232232lonin=reform(glamt(*,0)) 
    233233print, 'lat grid ',min(latin),max(latin),latin(1)-latin(0) 
    234234print, 'lon grid ',min(lonin),max(lonin),lonin(1)-lonin(0) 
    235235sstkin=read_ncdf("sstk",19871201,20100930,file=fullfilename,/nostr) 
    236  
    237 timein=time  
     236; 
     237timein=time 
    238238jptin=jpt 
    239239tab=sstkin(*,*,0) 
    240 mskin=glamt*0.+1.  
    241 nind=where((tab eq 1.e9) or finite(tab,/nan))  
     240mskin=glamt*0.+1. 
     241ind=where((tab eq 1.e9) or finite(tab,/nan)) 
    242242mskin(ind)=0. 
    243243;mskin=glamt*0.+1. 
    244  
     244; 
    245245initncdf, fullfilename_msk 
    246246domdef 
    247 latout=reform(gphit(0,*))  
     247latout=reform(gphit(0,*)) 
    248248lonout=reform(glamt(*,0)) 
    249249print, 'lat grid ',min(latout),max(latout),latout(1)-latout(0) 
    250250print, 'lon grid ',min(lonout),max(lonout),lonout(1)-lonout(0) 
    251251mskout=read_ncdf("msk", file=fullfilename_msk,/nostr) 
    252  
     252; 
    253253help, sstkin,lonin,latin,mskin,lonout,latout,mskout 
    254  
     254; 
    255255si=size(sstkin) 
    256256sstkout=fltarr(jpi,jpj,jptin) 
    … …  
    263263  sstkout(*,*,jt)=sstkout(*,*,jt)*mskout+(1.-mskout)*1.e20 
    264264endfor 
    265  
    266 timein=timein  
     265; 
     266timein=timein 
    267267jptin=jpt 
    268  
     268; 
    269269initncdf, fullfilename_msk 
    270 time=timegen(7670, units='days', start=julday(1,1,1989))  
     270time=timegen(7670, units='days', start=julday(1,1,1989)) 
    271271jpt=n_elements(time) 
    272272tt=time 
    … …  
    274274cda1=string(jul2date(time(jpt-1)),format='(i8.8)') 
    275275timein=timein-julday(1,1,1950,00,00) 
    276  
     276; 
    277277lat=latout 
    278278lon=lonout 
    … …  
    283283sstk_attr={units:'degK',missing_value:1e20,long_name:'Sea Surface Temperature',short_name:'sst',axis:'TYX'} 
    284284globattr={source:'Data are from ECMWF ERA-Interim reanalysis', timerange:cda0+' - '+cda1} 
    285  
     285; 
    286286ncfields = 'sst[longitude,latitude,time]=sstkout:sstk_attr; ' $ 
    287287                      + 'longitude[]=lon:lon_attr; ' $ 
    288288                      + 'latitude[]=lat:lat_attr; ' $ 
    289                       + 'time[*time]=timein:time_attr ' $ 
     289                      + 'time[*time]=timein:time_attr ' $ 
    290290                      + ' @ globattr' 
    291  
     291; 
    292292@ncdf_quickwrite 
    293  
     293; 
    294294end 

  • trunk/src/interp_erai_t2m_1989_2009.pro

    r93 r97  
    9595; 
    9696; reach end but bad time and t2m values :: 
    97 ;$ ncks -v t2m  -d time,0,1 -d latitude,0,1 -d longitude,0,1 /homedata/pinsard/tropflux_d/erai_t2m_19890101_20091231_oafluxgrid.nc  
     97;$ ncks -v t2m  -d time,0,1 -d latitude,0,1 -d longitude,0,1 /homedata/pinsard/tropflux_d/erai_t2m_19890101_20091231_oafluxgrid.nc 
    9898;     latitude[0]=-29.5 degrees_north 
    9999;     latitude[1]=-28.5 degrees_north 
    100 ;      
     100; 
    101101;     longitude[0]=30.5 degrees_east 
    102102;     longitude[1]=31.5 degrees_east 
    103 ;      
     103; 
    104104;     time[0]=9.96920996839e+36 latitude[0]=-29.5 longitude[0]=30.5 t2m[0]=9.96921e+36 degK 
    105105;     time[0]=9.96920996839e+36 latitude[0]=-29.5 longitude[1]=31.5 t2m[1]=9.96921e+36 degK 
    … …  
    110110;     time[1]=9.96920996839e+36 latitude[1]=-28.5 longitude[0]=30.5 t2m[21350]=9.96921e+36 degK 
    111111;     time[1]=9.96920996839e+36 latitude[1]=-28.5 longitude[1]=31.5 t2m[21351]=9.96921e+36 degK 
    112 ;      
     112; 
    113113;     time[0]=9.96920996839e+36 hours since 1957-01-01 00:00:0.0 
    114114;     time[1]=9.96920996839e+36 hours since 1957-01-01 00:00:0.0 
    … …  
    328328print, 'first date ', cda0 
    329329print, 'last date ' , cda1 
    330  
     330; 
    331331; read t2 data 
    332332;++ pb memory t2min=read_ncdf("t2",0,jptin-1,/timestep,file=fullfilename_t2,/nostr) 
    … …  
    339339; 
    340340mskin=glamt*0.+1. 
    341  
     341; 
    342342; define grid parameters with mask file 
    343343initncdf, fullfilename_msk 
    … …  
    360360  t2mout(*,*,jt)=t2mout(*,*,jt)*mskout+(1.-mskout)*1.e20 
    361361endfor 
    362  
     362; 
    363363initncdf, fullfilename_msk 
    364  
     364; 
    365365lat=latout 
    366366lon=lonout 
    … …  
    379379t2m_attr={units:units, long_name:long_name, missing_value:1e20, short_name:'t2m',axis:'TYX'} 
    380380globattr={source:'Data are from ECMWF ERA-Interim reanalysis', timerange:cda0+' - '+cda1} 
    381  
     381; 
    382382help, t2mout 
    383383help, timein 
    … …  
    385385                      + 'longitude[]=lon:lon_attr; ' $ 
    386386                      + 'latitude[]=lat:lat_attr; ' $ 
    387                       + 'time[]=timein:time_attr ' $ 
     387                      + 'time[]=timein:time_attr ' $ 
    388388                      + ' @globattr' 
    389389@ncdf_quickwrite 
    390  
     390; 
    391391end 

  • trunk/src/interp_erai_ws_1989_2009.pro

    r94 r97  
    9696; reach end but bad values et nb timestep 4581:: 
    9797; 
    98 ;     ncks -v u10  -d time,0,1 -d latitude,0,1 -d longitude,0,1 /homedata/pinsard/tropflux_d/erai_ws_19890101_20091231_oafluxgrid.nc  
     98;     ncks -v u10  -d time,0,1 -d latitude,0,1 -d longitude,0,1 /homedata/pinsard/tropflux_d/erai_ws_19890101_20091231_oafluxgrid.nc 
    9999;     latitude[0]=-29.5 degrees_north 
    100100;     latitude[1]=-28.5 degrees_north 
    101 ;      
     101; 
    102102;     longitude[0]=30.5 degrees_east 
    103103;     longitude[1]=31.5 degrees_east 
    104 ;      
     104; 
    105105;     time[0] latitude[0]=-29.5 longitude[0]=30.5 u10[0]=9.96921e+36 m/s 
    106106;     time[0] latitude[0]=-29.5 longitude[1]=31.5 u10[1]=9.96921e+36 m/s 
    … …  
    213213ENDIF 
    214214; 
    215 st=19880101  
     215st=19880101 
    216216en=20100930 
    217217; 
    … …  
    264264initncdf, fullfilename 
    265265u10in=read_ncdf("u10",st, en,file=fullfilename,/nostr) 
    266  
     266; 
    267267; build v10 data filename 
    268268filename='20c3m_erai_v10_TROP_1989_2009.nc' 
    … …  
    279279initncdf, fullfilename 
    280280v10in=read_ncdf("v10",st, en,file=fullfilename,/nostr) 
    281  
     281; 
    282282initncdf, fullfilename 
    283283domdef 
    284 latin=reform(gphit(0,*))  
     284latin=reform(gphit(0,*)) 
    285285lonin=reform(glamt(*,0)) 
    286286print, 'lat grid ',min(latin),max(latin),latin(1)-latin(0) 
    287287print, 'lon grid ',min(lonin),max(lonin),lonin(1)-lonin(0) 
    288  
    289 timein=time  
     288; 
     289timein=time 
    290290jptin=jpt 
    291291tab=u10in(*,*,0) 
    292292mskin=glamt*0.+1. 
    293  
     293; 
    294294initncdf, fullfilename_msk 
    295295domdef 
    296 latout=reform(gphit(0,*))  
     296latout=reform(gphit(0,*)) 
    297297lonout=reform(glamt(*,0)) 
    298298print, 'lat grid ',min(latout),max(latout),latout(1)-latout(0) 
    299299print, 'lon grid ',min(lonout),max(lonout),lonout(1)-lonout(0) 
    300300mskout=read_ncdf("msk", file=fullfilename_msk,/nostr) 
    301  
     301; 
    302302help, u10in, v10in,lonin,latin,mskin,lonout,latout,mskout 
    303  
     303; 
    304304si=size(u10in) 
    305305u10out=fltarr(jpi,jpj,jptin) 
    306306v10out=fltarr(jpi,jpj,jptin) 
    307  
     307; 
    308308for jt=0,jptin-1 do begin 
    309309  ; ++print, 'Interpolation jt=',jt,' / ',jptin-1 
    … …  
    313313      , OUTMASK_IND=mskout, SET_OUTMSKVAL=mskout) 
    314314  u10out(*,*,jt)=u10out(*,*,jt)*mskout+(1.-mskout)*1.e20 
    315  
     315; 
    316316  tab=reform(v10in(*,*,jt)) 
    317317  v10out(*,*,jt)=call_interp2d(tab,lonin,latin,mskin $ 
    … …  
    319319      , OUTMASK_IND=mskout, SET_OUTMSKVAL=mskout) 
    320320  v10out(*,*,jt)=v10out(*,*,jt)*mskout+(1.-mskout)*1.e20 
    321  
     321; 
    322322endfor 
    323  
    324 time=timegen(7670, units='days', start=julday(1,1,1989))  
     323; 
     324time=timegen(7670, units='days', start=julday(1,1,1989)) 
    325325jpt=n_elements(time) 
    326 tt=time  
     326tt=time 
    327327jptin=jpt 
    328328cda0=string(jul2date(tt(0)),format='(i8.8)') 
    329329cda1=string(jul2date(tt(jpt-1)),format='(i8.8)') 
    330330tt=tt-julday(1,1,1950,00,00,00) 
    331 xlon=reform(glamt(*,0) )  
     331xlon=reform(glamt(*,0) ) 
    332332ylat=reform(gphit(0,*)) 
    333  
     333; 
    334334initncdf, fullfilename_msk 
    335335valmask=1.e20 
    336  
     336; 
    337337ylat=latout 
    338338xlon=lonout 
    … …  
    341341lat_attr={units:'degrees_north',long_name:'Latitude'} 
    342342time_attr={units:'days since 1950-01-01 00:00:00',long_name:'Time axis',time_origin:' 1950-JAN-01 00:00:00'} 
    343  
     343; 
    344344u10_attr={units:'m/s',missing_value:valmask,long_name:'10 metre u wind component',short_name:'u10',axis:'TYX'} 
    345345v10_attr={units:'m/s',missing_value:valmask,long_name:'10 metre v wind component',short_name:'v10',axis:'TYX'} 
    346346globattr={source:'Tropical ocean winds obtained from ERA Interim',timerange:cda0+' - '+cda1} 
    347  
     347; 
    348348help, u10out,v10out,tt,xlon,ylat 
    349  
     349; 
    350350ncfields = 'u10[longitude,latitude,time]=u10out:u10_attr; ' $ 
    351351          +'v10[longitude,latitude,time]=v10out:v10_attr; ' $ 
    … …  
    354354                      + 'tt[*time]=tt:time_attr ' $ 
    355355                      + ' @ globattr' 
    356  
     356; 
    357357@ncdf_quickwrite 
    358  
    359 return 
     358; 
    360359end 

  • trunk/src/interp_olr_30n30s_1989_2009.pro

    r94 r97  
    7777; 
    7878;   % initncdf: the zaxis was not found..., check the use of ZAXISNAME keyword if you want to find one... 
    79 ;  
     79; 
    8080; I think we do not need any zaxis 
    8181; 
    … …  
    8484;   $ ncdump $PROJECT_OD/olr_oafluxgrid_30n30s_19890101_20091231.nc 
    8585;     olr = 
    86 ;     1e+20, 1, 258.15, 264.882, 271.614, 273.8116, 271.4748, 269.138, 266.6868,  
     86;     1e+20, 1, 258.15, 264.882, 271.614, 273.8116, 271.4748, 269.138, 266.6868, 
    8787; 
    8888; coding rules 
    … …  
    227227initncdf, fullfilename 
    228228domdef 
    229 latin=reform(gphit(0,*))  
     229latin=reform(gphit(0,*)) 
    230230lonin=reform(glamt(*,0)) 
    231231print, 'lat grid ',min(latin),max(latin),latin(1)-latin(0) 
    232232print, 'lon grid ',min(lonin),max(lonin),lonin(1)-lonin(0) 
    233233olrin=read_ncdf("olr",19881231, 20091231, file=fullfilename,/nostr) 
    234  
     234; 
    235235mskin=glamt*0.+1. 
    236  
    237 timein=time  
     236; 
     237timein=time 
    238238jptin=jpt 
    239  
     239; 
    240240initncdf, fullfilename_msk 
    241241domdef 
    242 latout=reform(gphit(0,*))  
     242latout=reform(gphit(0,*)) 
    243243lonout=reform(glamt(*,0)) 
    244244print, 'lat grid ',min(latout),max(latout),latout(1)-latout(0) 
    245245print, 'lon grid ',min(lonout),max(lonout),lonout(1)-lonout(0) 
    246246mskout=read_ncdf("msk", file=fullfilename_msk,/nostr) 
    247  
     247; 
    248248help, olrin,lonin,latin,mskin,lonout,latout,mskout 
    249  
     249; 
    250250olrout=fltarr(jpi,jpj,jptin) 
    251  
     251; 
    252252for jt=0,jptin-1 do begin 
    253  
     253; 
    254254  print, 'Interpolation jt=',jt,' / ',jptin-1 
    255255  tab_olr=reform(olrin(*,*,jt)) 
    256  
     256; 
    257257  olrout(*,*,jt)=call_interp2d(tab_olr,lonin,latin,mskin $ 
    258258      , lonout,latout,method='bilinear'  $ 
    259259      , OUTMASK_IND=mskout, SET_OUTMSKVAL=mskout) 
    260260  olrout(*,*,jt)=olrout(*,*,jt)*mskout+(1.-mskout)*1.e20 
    261  
     261; 
    262262endfor 
    263  
    264  
    265 timein=timein  
     263; 
     264; 
     265timein=timein 
    266266jptin=jpt 
    267  
     267; 
    268268timein=timein-julday(1,1,1950,00,00) 
    269  
     269; 
    270270lat=latout 
    271271lon=lonout 
    … …  
    277277olra_attr={units:'w/m^2',missing_value:1e20,long_name:'Outgoing Longwave Radiation Anomaly',short_name:'olra',axis:'TYX'} 
    278278globattr={source:'NOAA OLR, cf http://www.cdc.noaa.gov/cdc/data.interp_OLR.html, interpolated to 1x1 degree grid and with oaflux mask'} 
    279  
     279; 
    280280ncfields = 'olr[longitude,latitude,time]=olrout:olr_attr; ' $ 
    281281                      + 'longitude[]=lon:lon_attr; ' $ 
    … …  
    283283                      + 'time[*time]=timein:time_attr ' $ 
    284284                      + ' @ globattr' 
    285  
     285; 
    286286@ncdf_quickwrite 
    287  
     287; 
    288288end 

  • trunk/src/lwdown_clark.pro

    r89 r97  
    22;- 
    33;---------------------------------------------- 
    4 function lwdown_clark, sst,qair,cld,tair,ps  
     4function lwdown_clark, sst,qair,cld,tair,ps 
    55; 
    66; Net longwave from the Clark et al. (1974) bulk formula 
    7 ;    Clark, N. E., L. Eber, R. M. Laurs, J. A. Renner, and J. F. T. Saur,  
     7;    Clark, N. E., L. Eber, R. M. Laurs, J. A. Renner, and J. F. T. Saur, 
    88;           1974: Heat exchange between ocean and atmosphere in the 
    99;           eastern North Pacific for 1961-71. NOAA Tech. Rep. NMRS 
    … …  
    2323@common 
    2424;---------------------------------------------- 
    25  
     25; 
    2626eps=.97                 ; emissivity of sea-water 
    2727sig=5.67e-8             ; Stefan-Boltzman constant (W/m2/K4) 
    … …  
    3131r=q/(1-q)               ; Mixing ratio 
    3232ea=ps*r/(r+.62197)      ; Specific humidity into vapor pressure 
    33  
     33; 
    3434lw=    eps*sig*Ts^4*(.39-.05*ea^.5)*(1.-.51*cld^2) $ 
    35    +4.*eps*sig*Ts^3*(Ts-Ta)  
    36  
     35   +4.*eps*sig*Ts^3*(Ts-Ta) 
     36; 
    3737lwup=eps*sig*Ts^4 
    38  
     38; 
    3939lwdown=lwup-lw 
    40  
     40; 
    4141return, lwdown 
    42  
    43 ;---------------------------------------------- 
     42; 
    4443end 
    45 ;---------------------------------------------- 

  • trunk/src/lwnet_clark.pro

    r89 r97  
    22;- 
    33;---------------------------------------------- 
    4 function lwnet_clark, sst,qair,cld,tair,ps  
     4function lwnet_clark, sst,qair,cld,tair,ps 
    55; 
    66; Net longwave from the Clark et al. (1974) bulk formula 
    7 ;    Clark, N. E., L. Eber, R. M. Laurs, J. A. Renner, and J. F. T. Saur,  
     7;    Clark, N. E., L. Eber, R. M. Laurs, J. A. Renner, and J. F. T. Saur, 
    88;           1974: Heat exchange between ocean and atmosphere in the 
    99;           eastern North Pacific for 1961-71. NOAA Tech. Rep. NMRS 
    … …  
    2323@common 
    2424;---------------------------------------------- 
    25  
     25; 
    2626eps=.97                 ; emissivity of sea-water 
    2727sig=5.67e-8             ; Stefan-Boltzman constant (W/m2/K4) 
    … …  
    3131r=q/(1-q)               ; Mixing ratio 
    3232ea=ps*r/(r+.62197)      ; Specific humidity into vapor pressure 
    33  
     33; 
    3434lw=    eps*sig*Ts^4*(.39-.05*ea^.5)*(1.-.51*cld^2) $ 
    35    +4.*eps*sig*Ts^3*(Ts-Ta)  
    36  
     35   +4.*eps*sig*Ts^3*(Ts-Ta) 
     36; 
    3737return, lw 
    38  
    39 ;---------------------------------------------- 
     38; 
    4039end 
    41 ;---------------------------------------------- 

  • trunk/src/lwr_correction_ncdf.pro

    r94 r97  
    158158ENDIF 
    159159; 
    160 da1=19880101  
     160da1=19880101 
    161161da2=20091231 
    162162; 
    … …  
    190190lwr_mean=grossemoyenne(lwr,'t',/nan) 
    191191help,lwr_mean 
    192  
    193 tt=time  
     192; 
     193tt=time 
    194194jpt=n_elements(time) 
    195195caldat, time,mon,day,yea 
    196196lwr_m=lwr*0. 
    197  
     197; 
    198198for jt=0,jpt-1 do begin 
    199199  jtt=(time(jt)-julday(1,1,yea(jt))) < 364 
    … …  
    202202endfor 
    203203help, lwr_m 
    204  
     204; 
    205205lwr_ano=lwr-lwr_m 
    206  
    207 ;; correction for mean based on scatter 
     206; 
     207; correction for mean based on scatter 
    208208lwr_m=lwr_m+4.61667 
    209  
     209; 
    210210help, lwr_ano 
    211  
    212 ;; applying the correction for varyability based on the scatter 
     211; 
     212; applying the correction for varyability based on the scatter 
    213213lwr_ano=lwr_ano*(1/0.760667) 
    214  
    215 ;; applying the correction for varyability based on the scatter 
    216  
     214; 
     215; applying the correction for varyability based on the scatter 
     216; 
    217217lwr_new=lwr_m+lwr_ano 
    218218help, lwr_new 
    219  
     219; 
    220220;writing field 
    221221lat=reform(gphit(0,0:jpj-1)) 
    222222lon=reform(glamt(0:jpi-1,0)) 
    223 time=timegen(7670, units='days', start=julday(1,1,1989))  
     223time=timegen(7670, units='days', start=julday(1,1,1989)) 
    224224jpt=n_elements(time) 
    225  
     225; 
    226226cda0=string(jul2date(time(0)),format='(i8.8)') 
    227227cda1=string(jul2date(time(jpt-1)),format='(i8.8)') 
    228  
    229 time=time-julday(1,1,1950)  
     228; 
     229time=time-julday(1,1,1950) 
    230230jpt=n_elements(time) 
    231  
     231; 
    232232ncfile='!' + fullfilename_out 
    233233lon_attr={units:'degrees_east',long_name:'Longitude'} 
    … …  
    236236lwr_attr={units:'degK',missing_value:1.e20,long_name:'Air Temperature at 2m',short_name:'lwr',axis:'TYX'} 
    237237globattr={source:'Basic data obtained from ERAI.  Mean correction for  bias and correction for variability are applied',timerange:cda0+' - '+cda1} 
    238  
     238; 
    239239ncfields = 'lwr[longitude,latitude,time]=lwr_new:lwr_attr; ' $ 
    240240                      + 'longitude[]=lon:lon_attr; ' $ 
    … …  
    242242                      + 'time[*time]=time:time_attr ' $ 
    243243                      + ' @ globattr' 
    244  
     244; 
    245245@ncdf_quickwrite 
    246  
     246; 
    247247end 

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

    r94 r97  
    1313; has been produced by :ref:`oaflux_mask_30N30S.pro`. 
    1414; 
    15 ; Figure of  
     15; Figure of 
    1616; ++ 
    1717; is saved in 
    … …  
    107107reinitplt, /z,/invert 
    108108key_portrait = 1 
    109  
     109; 
    110110openps, FILENAME = project_od_env + 'fig1_no_obs_map.ps' 
    111111close,/all 
    112  
     112; 
    113113yr=365. 
    114 lh_mi=365/yr  
    115 lh_ma=3285/yr  
     114lh_mi=365/yr 
     115lh_ma=3285/yr 
    116116lh_int=0.25 
    117 sw_mi=365/yr  
    118 sw_ma=3285/yr  
     117sw_mi=365/yr 
     118sw_ma=3285/yr 
    119119sw_int=0.25 
    120 lw_mi=365/yr  
    121 lw_ma=1460/yr  
     120lw_mi=365/yr 
     121lw_ma=1460/yr 
    122122lw_int=0.125 
    123123lct=65 
    124  
     124; 
    125125file=project_id_env + 'mask_oaflux_30N30S.nc' 
    126126initncdf, file 
    127127domdef, 30,390,-30,30 
    128128msk=ncdf_lec(file,var='msk') 
    129  
     129; 
    130130fi=project_id_env + 'lhf_no_obs.txt' 
    131131res=read_ascii(fi,data_start=1) 
    … …  
    135135no=reform(ff(2,*)) 
    136136no=no/yr 
    137 ;ind=where(no ge lh_ma)  
     137;ind=where(no ge lh_ma) 
    138138; no(ind)=no-0.5 
    139  
     139; 
    140140marge1=[0,0,-5,0] 
    141141plt, .4+msk*1.e-5,realcont=2,/nocont,/nofill,xminor=1,yminor=1,box=box,lct=lct, lh_mi, lh_ma, int=lh_int, $ 
    142142   title='a) Turbulent Flux validation sites', subtitle='', small=[1,4,1],/rempl, marge=marge1, format='(i5)' 
    143143NN=n_elements(lat) 
    144  
     144; 
    145145usersym, [-.5,.5,.5,-.5,-.5],[-.5,-.5,.5,.5,-.5],/fill 
    146  
    147 for n=0,NN-1 do begin 
    148   x=lon[n] 
    149   y=lat[n] 
    150   c=no[n] 
    151   cmi=lh_mi  
    152   cma=lh_ma  
     146; 
     147for n=0,NN-1 do begin 
     148  x=lon[n] 
     149  y=lat[n] 
     150  c=no[n] 
     151  cmi=lh_mi 
     152  cma=lh_ma 
    153153  dc=cma-cmi 
    154154  col=((10+244*(c-cmi)/dc) > 10) < 254 
    155155  plots, x,y,psym=8,symsize=1.5,color=col 
    156156endfor 
    157  
     157; 
    158158usersym, [-.5,.5,.5,-.5,-.5],[-.5,-.5,.5,.5,-.5] 
    159  
    160 for n=0,NN-1 do begin 
    161   x=lon[n] 
    162   y=lat[n] 
    163   c=no[n] 
    164  
     159; 
     160for n=0,NN-1 do begin 
     161  x=lon[n] 
     162  y=lat[n] 
     163  c=no[n] 
     164; 
    165165  plots, x,y,psym=8,symsize=1.5,color=0 
    166166endfor 
    167  
     167; 
    168168fi=project_id_env + 'sw_no_obs.txt' 
    169169res=read_ascii(fi,data_start=1) 
    … …  
    173173no=reform(ff(2,*)) 
    174174no=no/yr 
    175 ;ind=where(no ge sw_ma)  
     175;ind=where(no ge sw_ma) 
    176176;no(ind)=sw_ma-0.5 
    177177marge1=[0,0,-5,0] 
    … …  
    179179   title='b) SWR validation sites', subtitle='', small=[1,4,2],/noer,/rempl, marge=marge1, format='(i5)' 
    180180NN=n_elements(lat) 
    181  
     181; 
    182182usersym, [-.5,.5,.5,-.5,-.5],[-.5,-.5,.5,.5,-.5],/fill 
    183  
    184 for n=0,NN-1 do begin 
    185   x=lon[n] 
    186   y=lat[n] 
    187   c=no[n] 
    188   cmi=sw_mi  
    189   cma=sw_ma  
     183; 
     184for n=0,NN-1 do begin 
     185  x=lon[n] 
     186  y=lat[n] 
     187  c=no[n] 
     188  cmi=sw_mi 
     189  cma=sw_ma 
    190190  dc=cma-cmi 
    191191  col=((10+244*(c-cmi)/dc) > 10) < 254 
    192192  plots, x,y,psym=8,symsize=1.5,color=col 
    193193endfor 
    194  
     194; 
    195195usersym, [-.5,.5,.5,-.5,-.5],[-.5,-.5,.5,.5,-.5] 
    196  
    197 for n=0,NN-1 do begin 
    198   x=lon[n] 
    199   y=lat[n] 
    200   c=no[n] 
    201  
     196; 
     197for n=0,NN-1 do begin 
     198  x=lon[n] 
     199  y=lat[n] 
     200  c=no[n] 
     201; 
    202202  plots, x,y,psym=8,symsize=1.5,color=0 
    203203endfor 
    204  
     204; 
    205205fi=project_id_env + 'lw_no_obs.txt' 
    206206res=read_ascii(fi,data_start=1) 
    … …  
    210210no=reform(ff(2,*)) 
    211211no=no/yr 
    212 ;ind=where(no ge lw_ma)  
     212;ind=where(no ge lw_ma) 
    213213;no(ind)=lw_ma-0.25 
    214  
     214; 
    215215marge1=[0,0,-5,0] 
    216216plt, .4+msk*1.e-5,realcont=2,/nocont,/nofill,/noer,xminor=1,yminor=1,box=box,lct=lct,lw_mi, lw_ma, int=lw_int, $ 
    217217   title='c) LWR validation sites', subtitle='', small=[1,4,3],/rempl, marge=marge1, format='(i5)' 
    218218NN=n_elements(lat) 
    219  
     219; 
    220220usersym, [-.5,.5,.5,-.5,-.5],[-.5,-.5,.5,.5,-.5],/fill 
    221  
    222 for n=0,NN-1 do begin 
    223   x=lon[n] 
    224   y=lat[n] 
    225   c=no[n] 
    226   cmi=lw_mi  
    227   cma=lw_ma  
     221; 
     222for n=0,NN-1 do begin 
     223  x=lon[n] 
     224  y=lat[n] 
     225  c=no[n] 
     226  cmi=lw_mi 
     227  cma=lw_ma 
    228228  dc=cma-cmi 
    229229  col=((10+244*(c-cmi)/dc) > 10) < 254 
    230230  plots, x,y,psym=8,symsize=1.5,color=col 
    231231endfor 
    232  
     232; 
    233233usersym, [-.5,.5,.5,-.5,-.5],[-.5,-.5,.5,.5,-.5] 
    234  
    235 for n=0,NN-1 do begin 
    236   x=lon[n] 
    237   y=lat[n] 
    238   c=no[n] 
    239  
     234; 
     235for n=0,NN-1 do begin 
     236  x=lon[n] 
     237  y=lat[n] 
     238  c=no[n] 
     239; 
    240240  plots, x,y,psym=8,symsize=1.5,color=0 
    241241endfor 
    242  
    243 ;; independent validation sites 
    244  
    245 plots, 61.5, 15.5,psym=2      ;; as location 
    246 plots, 331, 25.5,psym=2       ;; subduction (central) 
    247 plots, 326, 18,psym=2         ;; subduction (sw) 
    248 plots, 338, 18,psym=2         ;; subduction (se) 
    249 plots, 156, -1.7 , psym=2     ;; coare 
    250 plots, 274.2, -21, psym=2     ;; stratus 
    251 plots, 202.46, 22.45, psym=2  ;; WHOTS 
    252  
     242; 
     243; independent validation sites 
     244; 
     245plots, 61.5, 15.5,psym=2      ; as location 
     246plots, 331, 25.5,psym=2       ; subduction (central) 
     247plots, 326, 18,psym=2         ; subduction (sw) 
     248plots, 338, 18,psym=2         ; subduction (se) 
     249plots, 156, -1.7 , psym=2     ; coare 
     250plots, 274.2, -21, psym=2     ; stratus 
     251plots, 202.46, 22.45, psym=2  ; WHOTS 
     252; 
    253253closeps 
    254  
     254; 
    255255end 

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

    r94 r97  
    8383reinitplt, /z,/invert 
    8484key_portrait = 1 
    85  
     85; 
    8686openps, FILENAME = project_od_env+'fig10_swr_correction.ps' 
    8787close,/all 
    88  
     88; 
    8989fi=project_id_env+'swr_isccp_correction.txt' 
    9090res=read_ascii(fi,data_start=0) 
    … …  
    9494std=reform(ff(2,*)) 
    9595mean=reform(ff(4,*)) 
    96  
    97  
     96; 
     97; 
    9898splot, mean, bias, small=[2,3,1], xtitle='Mean ERA-I SWR', ytitle='ERA-I SWR bias', $ 
    9999       title='', psym=2, charsize=1.2,  $ 
    100100       xrange=[170,290], yrange=[-10,35], xmin=1, ymin=1 
    101  
     101; 
    102102ab=linfit(mean, bias,yfit=yfit) 
    103 a=float(ab(0))  
     103a=float(ab(0)) 
    104104b=float(ab(1)) 
    105105oplot, mean, yfit, thick=3 
    106106print, a,b 
    107 ;; significant test 
     107; significant test 
    108108significance_test_99,mean,bias 
    109  
     109; 
    110110fi=project_id_env+'swr_isccp_correction.txt' 
    111111res=read_ascii(fi,data_start=0) 
    … …  
    115115std=reform(ff(2,*)) 
    116116mean=reform(ff(4,*)) 
    117  
     117; 
    118118splot, mean, std, small=[2,3,3],/noer, xtitle='Mean ERA-I SWR', ytitle='ERA-I std ratio', $ 
    119119       title='', psym=2, charsize=1.2,  $ 
    120120       xrange=[170,290], yrange=[0.4,1.4], xmin=1, ymin=1 
    121  
     121; 
    122122ab=linfit(mean, std,yfit=yfit) 
    123 a=float(ab(0))  
     123a=float(ab(0)) 
    124124b=float(ab(1)) 
    125125oplot, mean, yfit, thick=3 
    126  
    127 ;; significant test 
     126; 
     127; significant test 
    128128significance_test_99,mean,std 
    129  
     129; 
    130130closeps 
    131  
    132  
     131; 
    133132end 

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

    r94 r97  
    99; =========== 
    1010; 
    11 ; :file:`${PROJECT_OD}/TropFlux_sst_19890101_20091231.nc`  
    12 ; containing  
    13 ; sst corrected on OAFLUX grid  
     11; :file:`${PROJECT_OD}/TropFlux_sst_19890101_20091231.nc` 
     12; containing 
     13; sst corrected on OAFLUX grid 
    1414; has been produced by :ref:`sst_correction_ncdf.pro`. 
    1515; 
    … …  
    5454; ==== 
    5555; 
    56 ; make it work on cratos  
    57 ;  
     56; make it work on cratos 
     57; 
    5858; get rid of restore 
    5959; 
    … …  
    103103reinitplt, /z,/invert 
    104104key_portrait = 1 
    105  
     105; 
    106106openps, FILENAME = project_od_env+'correlation_rmsd_olra_swra_smooth.ps' 
    107 st=19890101  
     107st=19890101 
    108108en=20071231 
    109  
     109; 
    110110restore, project_od_env + "correlation_isccp_olr.idl" 
    111  
     111; 
    112112file=project_od_env+'TropFlux_sst_19890101_20091231.nc' 
    113113initncdf, file 
    114114sst=read_ncdf("sst", 20000101, 20091231, file=file,/nostr) 
    115115help, sst 
    116  
     116; 
    117117sst=grossemoyenne(sst, "t",/nan) 
    118118lct=64 
    … …  
    122122     subt='',title='a) Correlation (OLRA, SWRA)',xminor=1,yminor=1, $ 
    123123     contour=sst-273.15, contmin=24, contmax=29, contint=1.5 
    124  
     124; 
    125125closeps 
     126; 
    126127end 

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

    r94 r97  
    1919; :file:`${PROJECT_OD}/correlation_isccp_olr.idl` 
    2020; 
    21 ; This output file  
     21; This output file 
    2222; :file:`${PROJECT_OD}/correlation_isccp_olr.idl` 
    2323; will be used by :ref:`swr_isccp_tropflux_correlation_fig10.pro`. 
    24  
     24; 
    2525; .. graphviz:: 
    2626; 
    … …  
    102102reinitplt, /z,/invert 
    103103key_portrait = 1 
    104  
     104; 
    105105openps, FILENAME = project_od_env+'correlation_rmsd_olra_swra_smooth.ps' 
    106 st=19890101  
     106st=19890101 
    107107en=20071231 
    108  
     108; 
    109109file=project_od_env+'swr_oafluxgrid_1985_2007.nc' 
    110110initncdf, file 
    111111sw_isccp=read_ncdf("swr", st, en, file=file,/nostr) 
    112  
     112; 
    113113file=project_od_env+'sw_reconstred_1989_2009.nc' 
    114114initncdf, file 
    115115sw_trop=read_ncdf("sw", st, en+1, file=file,/nostr) 
    116  
     116; 
    117117file=project_od_env+'olr_oafluxgrid_30n30s.nc' 
    118118initncdf, file 
    119119olr=read_ncdf("olr", st, en, file=file,/nostr) 
    120  
     120; 
    121121help, sw_isccp, sw_trop , olr 
    122  
    123 ;;creating climatology 
    124  
     122; 
     123;creating climatology 
     124; 
    125125ny=(2007-1989)+1 
    126126nt=365*ny 
    127  
     127; 
    128128olri=total(reform(olr(*,*,0:nt-1),nxt,nyt,365,ny),4)/ny 
    129129swi=total(reform(sw_isccp(*,*,0:nt-1),nxt,nyt,365,ny),4)/ny 
    130130help, olri, swi 
    131  
    132 ;; applying smoothing 
     131; 
     132; applying smoothing 
    133133nsmooth=45 
    134  
    135 swi=[[[swi]],[[swi]],[[swi]]]  
     134; 
     135swi=[[[swi]],[[swi]],[[swi]]] 
    136136olri=[[[olri]],[[olri]],[[olri]]] 
    137 si=size(sw)  
    138 n1=si(1)  
     137si=size(sw) 
     138n1=si(1) 
    139139n2=si(2) 
    140  
     140; 
    141141for j=0,n2-1 do begin 
    142142  for i=0,n1-1 do begin 
    … …  
    147147  endfor 
    148148endfor 
    149  
    150 swi=swi[*,*,365:365+364]  
     149; 
     150swi=swi[*,*,365:365+364] 
    151151olri=olri[*,*,365:365+364] 
    152152help, swi, olri 
    153  
     153; 
    154154caldat, time,mon,day,yea 
    155 swm=olr*0.  
     155swm=olr*0. 
    156156olrm=olr*0. 
    157157for jt=0,jpt-1 do begin 
    … …  
    166166m=reform(sw_trop(*,*,0)) 
    167167tmask=finite(m) 
    168 cor_olr=fltarr(jpi,jpj)+!values.f_nan  
     168cor_olr=fltarr(jpi,jpj)+!values.f_nan 
    169169rms_olr=fltarr(jpi,jpj)+!values.f_nan 
    170  
     170; 
    171171for jj=0,jpj-1 do begin 
    172172  for ji=0,jpi-1 do begin 
    173173    if (tmask(ji,jj)) then begin 
    174174      print, 'over',jj, '/', jpj-1 
    175  
     175; 
    176176      swr_ano=reform(swa(ji,jj,*)) 
    177177      olr_ano=reform(olra(ji,jj,*)) 
    178  
     178; 
    179179      cor_olr(ji,jj)=correlate(swr_ano,olr_ano) 
    180180      rms_olr(ji,jj)=(total((swr_ano-olr_ano)^2)/(jpt-1l))^.5 
    181  
     181; 
    182182    endif 
    183183  endfor 
    184184endfor 
    185  
    186 cor=fltarr(jpi,jpj)+!values.f_nan  
     185; 
     186cor=fltarr(jpi,jpj)+!values.f_nan 
    187187rms=fltarr(jpi,jpj)+!values.f_nan 
    188188for jj=1,jpj-2 do begin 
    … …  
    193193  endfor 
    194194endfor 
    195  
     195; 
    196196save, cor, cor_olr, filename=project_od_env + 'correlation_isccp_olr.idl' 
    197  
    198 lct=64  
     197; 
     198lct=64 
    199199cs=0.9 
    200200marge1=[0,0,-5,0] 
    201201help, cor 
    202  
     202; 
    203203plt, cor_olr,0.5,1, lct=lct, $ 
    204204     small=[1,4,1],/rempl,/noer,/nocont, $ 
    205205     charsize=cs,/nocolorb,marge=marge, $ 
    206206     subt='',title='a) Correlation (OLRA, SWRA)',xminor=1,yminor=1 
    207  
     207; 
    208208file=project_od_env+'TropFlux_sst_19890101_20091231.nc" 
    209209initncdf, file 
    210210sst=read_ncdf("sst", 19890101, 20091231, file=file,/nostr) 
    211211sst=grossemoyenne(sst, "t",/nan) 
    212  
     212; 
    213213plt, cor_olr,0.5,1, lct=lct, $ 
    214214     small=[1,4,3],/rempl,/noer,/nocont, $ 
    … …  
    216216     subt='',title='a) Correlation (OLRA, SWRA)',xminor=1,yminor=1, $ 
    217217     contour=sst, contmin=26.5, contmax=28.5, contint=1. 
    218  
     218; 
    219219plt, rms_olr, lct=lct, $ 
    220220     small=[1,4,4],/rempl,/noer,/nocont, $ 
    221221     charsize=cs, marge=marge,/nocolorb, $ 
    222222     subt='',title='b) RMS Difference (OLRA, SWRA)',xminor=1,yminor=1 
    223  
     223; 
    224224closeps 
     225; 
    225226end 

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

    r94 r97  
    7979key_portrait = 1 
    8080coefpalit=.9 
    81  
     81; 
    8282openps, FILENAME = project_od_env+'swr_statistics_map_2000_2009_v50.ps' 
    8383; partie a changer 
    84 bias_mi=-20  
    85 bias_ma=20  
     84bias_mi=-20 
     85bias_ma=20 
    8686bias_int=2 
    87 std_mi=0.7    
    88 std_ma=1.31   
     87std_mi=0.7 
     88std_ma=1.31 
    8989std_int=0.05 
    90 rmsd_mi=10   
    91 rmsd_ma=30  
     90rmsd_mi=10 
     91rmsd_ma=30 
    9292rmsd_int=1.25 
    93 cor_mi=0.5    
    94 cor_ma=1.   
     93cor_mi=0.5 
     94cor_ma=1. 
    9595cor_int=0.02 
    9696fi_swr_erai=project_id_env+'swr_2000_2009_erai_v50.txt' 
    … …  
    9898fi_swr_oaflx=project_id_env+'swr_2000_2009_oaflx_v50.txt' 
    9999fi_swr_olr=project_id_env+'swr_2000_2009_olr_v50.txt' 
    100  
     100; 
    101101res=read_ascii(fi_swr_erai,data_start=1) 
    102102ff=res.field1 
    … …  
    107107std_era=reform(ff(4,*)) 
    108108rmsd_era=reform(ff(5,*)) 
    109  
    110 ind=where(bias_era ge bias_ma)  
     109; 
     110ind=where(bias_era ge bias_ma) 
    111111bias_era(ind)=bias_ma-0.5 
    112 ind=where(rmsd_era ge rmsd_ma)  
     112ind=where(rmsd_era ge rmsd_ma) 
    113113rmsd_era(ind)=rmsd_ma-0.5 
    114  
     114; 
    115115res=read_ascii(fi_swr_trop,data_start=1) 
    116116ff=res.field1 
    … …  
    121121std_trop=reform(ff(4,*)) 
    122122rmsd_trop=reform(ff(5,*)) 
    123 ind=where(rmsd_trop ge rmsd_ma)  
     123ind=where(rmsd_trop ge rmsd_ma) 
    124124rmsd_trop(ind)=rmsd_ma-0.5 
    125  
     125; 
    126126res=read_ascii(fi_swr_oaflx,data_start=1) 
    127127ff=res.field1 
    … …  
    132132std_oaflx=reform(ff(4,*)) 
    133133rmsd_oaflx=reform(ff(5,*)) 
    134 ind=where(rmsd_oaflx ge rmsd_ma)  
     134ind=where(rmsd_oaflx ge rmsd_ma) 
    135135rmsd_oaflx(ind)=rmsd_ma-0.5 
    136  
     136; 
    137137res=read_ascii(fi_swr_olr,data_start=1) 
    138138ff=res.field1 
    … …  
    143143std_olr=reform(ff(4,*)) 
    144144rmsd_olr=reform(ff(5,*)) 
    145 ind=where(rmsd_olr ge rmsd_ma)  
     145ind=where(rmsd_olr ge rmsd_ma) 
    146146rmsd_olr(ind)=rmsd_ma-0.5 
    147  
    148 ;ind=where(std_olr ge std_ma)  
     147; 
     148;ind=where(std_olr ge std_ma) 
    149149;std_olr(ind)=std_ma-0.01 
    150150file=project_id_env+'longwave_IO_mask.nc' 
    … …  
    157157plt, .4+msk*1.e-5,realcont=2,/nocont,/nofill,xminor=1,yminor=1,box=box,lct=64,cor_mi, cor_ma,int=cor_int, $ 
    158158   title='1) SWR Correlation - TropFlux', subtitle='', small=[1,4,1],/rempl,/nocolorb, marge=marge 
    159  
    160 NN=n_elements(lat) 
    161  
    162 usersym, [-.5,.5,.5,-.5,-.5],[-.5,-.5,.5,.5,-.5],/fill 
    163  
     159; 
     160NN=n_elements(lat) 
     161; 
     162usersym, [-.5,.5,.5,-.5,-.5],[-.5,-.5,.5,.5,-.5],/fill 
     163; 
    164164for n=0,NN-1 do begin 
    165165  x=lon(n) 
    166166  y=lat(n) 
    167167  c=cor_trop(n) 
    168   cmi=cor_mi  
    169   cma=cor_ma  
    170   dc=cma-cmi 
    171   col=((10+244*(c-cmi)/dc) > 10) < 254 
    172   plots, x,y,psym=8,symsize=1.5,color=col 
    173 endfor 
    174  
    175 usersym, [-.5,.5,.5,-.5,-.5],[-.5,-.5,.5,.5,-.5] 
    176  
     168  cmi=cor_mi 
     169  cma=cor_ma 
     170  dc=cma-cmi 
     171  col=((10+244*(c-cmi)/dc) > 10) < 254 
     172  plots, x,y,psym=8,symsize=1.5,color=col 
     173endfor 
     174; 
     175usersym, [-.5,.5,.5,-.5,-.5],[-.5,-.5,.5,.5,-.5] 
     176; 
    177177for n=0,NN-1 do begin 
    178178  x=lon(n) 
    179179  y=lat(n) 
    180180  c=cor_trop(n) 
    181  
     181; 
    182182  plots, x,y,psym=8,symsize=1.5,color=0 
    183183endfor 
    184184plt, 12+msk,realcont=2,/nocont,/nofill,xminor=1,yminor=1,lct=64,cor_mi, cor_ma,int=cor_int,/nocolorb, $ 
    185185   title='2) SWR Correlation -  ERAI', subtitle='', small=[1,4,2],/noer,/rempl, marge=marge 
    186  
    187 NN=n_elements(lat) 
    188  
    189 usersym, [-.5,.5,.5,-.5,-.5],[-.5,-.5,.5,.5,-.5],/fill 
    190  
     186; 
     187NN=n_elements(lat) 
     188; 
     189usersym, [-.5,.5,.5,-.5,-.5],[-.5,-.5,.5,.5,-.5],/fill 
     190; 
    191191for n=0,NN-1 do begin 
    192192  x=lon(n) 
    193193  y=lat(n) 
    194194  c=cor_era(n) 
    195   cmi=cor_mi  
    196   cma=cor_ma  
    197   dc=cma-cmi 
    198   col=((10+244*(c-cmi)/dc) > 10) < 254 
    199   plots, x,y,psym=8,symsize=1.5,color=col 
    200 endfor 
    201  
    202 usersym, [-.5,.5,.5,-.5,-.5],[-.5,-.5,.5,.5,-.5] 
    203  
     195  cmi=cor_mi 
     196  cma=cor_ma 
     197  dc=cma-cmi 
     198  col=((10+244*(c-cmi)/dc) > 10) < 254 
     199  plots, x,y,psym=8,symsize=1.5,color=col 
     200endfor 
     201; 
     202usersym, [-.5,.5,.5,-.5,-.5],[-.5,-.5,.5,.5,-.5] 
     203; 
    204204for n=0,NN-1 do begin 
    205205  x=lon(n) 
    206206  y=lat(n) 
    207207  c=cor_era(n) 
    208  
     208; 
    209209  plots, x,y,psym=8,symsize=1.5,color=0 
    210210endfor 
    211211plt, 12+msk,realcont=2,/nocont,/nofill,xminor=1,yminor=1,lct=64,cor_mi, cor_ma,int=cor_int,/nocolorb, $ 
    212212   title='3) SWR Correlation - OAFlux', subtitle='', small=[1,4,3],/noer,/rempl, marge=marge 
    213  
    214 NN=n_elements(lat) 
    215  
    216 usersym, [-.5,.5,.5,-.5,-.5],[-.5,-.5,.5,.5,-.5],/fill 
    217  
     213; 
     214NN=n_elements(lat) 
     215; 
     216usersym, [-.5,.5,.5,-.5,-.5],[-.5,-.5,.5,.5,-.5],/fill 
     217; 
    218218for n=0,NN-1 do begin 
    219219  x=lon(n) 
    220220  y=lat(n) 
    221221  c=cor_oaflx(n) 
    222   cmi=cor_mi  
    223   cma=cor_ma  
    224   dc=cma-cmi 
    225   col=((10+244*(c-cmi)/dc) > 10) < 254 
    226   plots, x,y,psym=8,symsize=1.5,color=col 
    227 endfor 
    228  
    229 usersym, [-.5,.5,.5,-.5,-.5],[-.5,-.5,.5,.5,-.5] 
    230  
     222  cmi=cor_mi 
     223  cma=cor_ma 
     224  dc=cma-cmi 
     225  col=((10+244*(c-cmi)/dc) > 10) < 254 
     226  plots, x,y,psym=8,symsize=1.5,color=col 
     227endfor 
     228; 
     229usersym, [-.5,.5,.5,-.5,-.5],[-.5,-.5,.5,.5,-.5] 
     230; 
    231231for n=0,NN-1 do begin 
    232232  x=lon(n) 
    233233  y=lat(n) 
    234234  c=cor_oaflx(n) 
    235  
     235; 
    236236  plots, x,y,psym=8,symsize=1.5,color=0 
    237237endfor 
    238238plt, 12+msk,realcont=2,/nocont,/nofill,xminor=1,yminor=1,lct=64,cor_mi, cor_ma,int=cor_int, $ 
    239239   title='4) SWR Correlation - SWR_olr', subtitle='', small=[1,4,4],/noer,/rempl, marge=marge1 
    240  
    241 NN=n_elements(lat) 
    242  
    243 usersym, [-.5,.5,.5,-.5,-.5],[-.5,-.5,.5,.5,-.5],/fill 
    244  
     240; 
     241NN=n_elements(lat) 
     242; 
     243usersym, [-.5,.5,.5,-.5,-.5],[-.5,-.5,.5,.5,-.5],/fill 
     244; 
    245245for n=0,NN-1 do begin 
    246246  x=lon(n) 
    247247  y=lat(n) 
    248248  c=cor_olr(n) 
    249   cmi=cor_mi  
    250   cma=cor_ma  
    251   dc=cma-cmi 
    252   col=((10+244*(c-cmi)/dc) > 10) < 254 
    253   plots, x,y,psym=8,symsize=1.5,color=col 
    254 endfor 
    255  
    256 usersym, [-.5,.5,.5,-.5,-.5],[-.5,-.5,.5,.5,-.5] 
    257  
     249  cmi=cor_mi 
     250  cma=cor_ma 
     251  dc=cma-cmi 
     252  col=((10+244*(c-cmi)/dc) > 10) < 254 
     253  plots, x,y,psym=8,symsize=1.5,color=col 
     254endfor 
     255; 
     256usersym, [-.5,.5,.5,-.5,-.5],[-.5,-.5,.5,.5,-.5] 
     257; 
    258258for n=0,NN-1 do begin 
    259259  x=lon(n) 
    260260  y=lat(n) 
    261261  c=cor_olr(n) 
    262  
    263   plots, x,y,psym=8,symsize=1.5,color=0 
    264 endfor 
    265  
     262; 
     263  plots, x,y,psym=8,symsize=1.5,color=0 
     264endfor 
     265; 
    266266erase 
    267  
     267; 
    268268plt, -5+msk*1.e-5,realcont=2,/nocont,/nofill,xminor=1,yminor=1,lct=64,bias_mi, bias_ma, int=bias_int, marge=marge,/nocolorb, $ 
    269269   title='1) SWR Mean bias - TropFlux', subtitle='', small=[1,4,1],/rempl,format='(i3)' 
    270  
    271 NN=n_elements(lat) 
    272  
    273 usersym, [-.5,.5,.5,-.5,-.5],[-.5,-.5,.5,.5,-.5],/fill 
    274  
     270; 
     271NN=n_elements(lat) 
     272; 
     273usersym, [-.5,.5,.5,-.5,-.5],[-.5,-.5,.5,.5,-.5],/fill 
     274; 
    275275for n=0,NN-1 do begin 
    276276  x=lon(n) 
    277277  y=lat(n) 
    278278  c=bias_trop(n) 
    279   cmi=bias_mi  
    280   cma=bias_ma  
    281   dc=cma-cmi 
    282   col=((10+244*(c-cmi)/dc) > 10) < 254 
    283   plots, x,y,psym=8,symsize=1.5,color=col 
    284 endfor 
    285  
    286 usersym, [-.5,.5,.5,-.5,-.5],[-.5,-.5,.5,.5,-.5] 
    287  
     279  cmi=bias_mi 
     280  cma=bias_ma 
     281  dc=cma-cmi 
     282  col=((10+244*(c-cmi)/dc) > 10) < 254 
     283  plots, x,y,psym=8,symsize=1.5,color=col 
     284endfor 
     285; 
     286usersym, [-.5,.5,.5,-.5,-.5],[-.5,-.5,.5,.5,-.5] 
     287; 
    288288for n=0,NN-1 do begin 
    289289  x=lon(n) 
    290290  y=lat(n) 
    291291  c=bias_trop(n) 
    292  
     292; 
    293293  plots, x,y,psym=8,symsize=1.5,color=0 
    294294endfor 
    295295plt,0.8+msk*1.e-5,realcont=2,/nocont,/nofill,xminor=1,yminor=1,lct=64,bias_mi, bias_ma, int=bias_int,/noer, marge=marge, $ 
    296296   title='2) SWR Mean bias - ERAI', subtitle='', small=[1,4,2],/rempl,format='(i3)',/nocolorb 
    297  
    298 NN=n_elements(lat) 
    299  
    300 usersym, [-.5,.5,.5,-.5,-.5],[-.5,-.5,.5,.5,-.5],/fill 
    301  
     297; 
     298NN=n_elements(lat) 
     299; 
     300usersym, [-.5,.5,.5,-.5,-.5],[-.5,-.5,.5,.5,-.5],/fill 
     301; 
    302302for n=0,NN-1 do begin 
    303303  x=lon(n) 
    304304  y=lat(n) 
    305305  c=bias_era(n) 
    306   cmi=bias_mi  
    307   cma=bias_ma  
    308   dc=cma-cmi 
    309   col=((10+244*(c-cmi)/dc) > 10) < 254 
    310   plots, x,y,psym=8,symsize=1.5,color=col 
    311 endfor 
    312  
    313 usersym, [-.5,.5,.5,-.5,-.5],[-.5,-.5,.5,.5,-.5] 
    314  
     306  cmi=bias_mi 
     307  cma=bias_ma 
     308  dc=cma-cmi 
     309  col=((10+244*(c-cmi)/dc) > 10) < 254 
     310  plots, x,y,psym=8,symsize=1.5,color=col 
     311endfor 
     312; 
     313usersym, [-.5,.5,.5,-.5,-.5],[-.5,-.5,.5,.5,-.5] 
     314; 
    315315for n=0,NN-1 do begin 
    316316  x=lon(n) 
    317317  y=lat(n) 
    318318  c=bias_era(n) 
    319  
    320   plots, x,y,psym=8,symsize=1.5,color=0 
    321 endfor 
    322  
    323  
     319; 
     320  plots, x,y,psym=8,symsize=1.5,color=0 
     321endfor 
     322; 
     323; 
    324324plt,0.8+msk*1.e-5,realcont=2,/nocont,/nofill,xminor=1,yminor=1,lct=64,bias_mi, bias_ma, int=bias_int,/noer, marge=marge, $ 
    325325   title='3) SWR Mean bias - OAFlux', subtitle='', small=[1,4,3],/rempl,format='(i3)',/nocolorb 
    326  
    327 NN=n_elements(lat) 
    328  
    329 usersym, [-.5,.5,.5,-.5,-.5],[-.5,-.5,.5,.5,-.5],/fill 
    330  
     326; 
     327NN=n_elements(lat) 
     328; 
     329usersym, [-.5,.5,.5,-.5,-.5],[-.5,-.5,.5,.5,-.5],/fill 
     330; 
    331331for n=0,NN-1 do begin 
    332332  x=lon(n) 
    333333  y=lat(n) 
    334334  c=bias_oaflx(n) 
    335   cmi=bias_mi  
    336   cma=bias_ma  
    337   dc=cma-cmi 
    338   col=((10+244*(c-cmi)/dc) > 10) < 254 
    339   plots, x,y,psym=8,symsize=1.5,color=col 
    340 endfor 
    341  
    342 usersym, [-.5,.5,.5,-.5,-.5],[-.5,-.5,.5,.5,-.5] 
    343  
     335  cmi=bias_mi 
     336  cma=bias_ma 
     337  dc=cma-cmi 
     338  col=((10+244*(c-cmi)/dc) > 10) < 254 
     339  plots, x,y,psym=8,symsize=1.5,color=col 
     340endfor 
     341; 
     342usersym, [-.5,.5,.5,-.5,-.5],[-.5,-.5,.5,.5,-.5] 
     343; 
    344344for n=0,NN-1 do begin 
    345345  x=lon(n) 
    346346  y=lat(n) 
    347347  c=bias_oaflx(n) 
    348  
    349   plots, x,y,psym=8,symsize=1.5,color=0 
    350 endfor 
    351  
    352  
     348; 
     349  plots, x,y,psym=8,symsize=1.5,color=0 
     350endfor 
     351; 
     352; 
    353353plt,0.8+msk*1.e-5,realcont=2,/nocont,/nofill,xminor=1,yminor=1,lct=64,bias_mi, bias_ma, int=bias_int,/noer, marge=marge1, $ 
    354    title='4) SWR Mean bias - SWR_olr', subtitle='', small=[1,4,4],/rempl ;;,format='(i4)' 
    355  
    356 NN=n_elements(lat) 
    357  
    358 usersym, [-.5,.5,.5,-.5,-.5],[-.5,-.5,.5,.5,-.5],/fill 
    359  
     354   title='4) SWR Mean bias - SWR_olr', subtitle='', small=[1,4,4],/rempl ;,format='(i4)' 
     355; 
     356NN=n_elements(lat) 
     357; 
     358usersym, [-.5,.5,.5,-.5,-.5],[-.5,-.5,.5,.5,-.5],/fill 
     359; 
    360360for n=0,NN-1 do begin 
    361361  x=lon(n) 
    362362  y=lat(n) 
    363363  c=bias_olr(n) 
    364   cmi=bias_mi  
    365   cma=bias_ma  
    366   dc=cma-cmi 
    367   col=((10+244*(c-cmi)/dc) > 10) < 254 
    368   plots, x,y,psym=8,symsize=1.5,color=col 
    369 endfor 
    370  
    371 usersym, [-.5,.5,.5,-.5,-.5],[-.5,-.5,.5,.5,-.5] 
    372  
     364  cmi=bias_mi 
     365  cma=bias_ma 
     366  dc=cma-cmi 
     367  col=((10+244*(c-cmi)/dc) > 10) < 254 
     368  plots, x,y,psym=8,symsize=1.5,color=col 
     369endfor 
     370; 
     371usersym, [-.5,.5,.5,-.5,-.5],[-.5,-.5,.5,.5,-.5] 
     372; 
    373373for n=0,NN-1 do begin 
    374374  x=lon(n) 
    375375  y=lat(n) 
    376376  c=bias_olr(n) 
    377  
    378   plots, x,y,psym=8,symsize=1.5,color=0 
    379 endfor 
    380  
     377; 
     378  plots, x,y,psym=8,symsize=1.5,color=0 
     379endfor 
     380; 
    381381erase 
    382  
    383  
     382; 
     383; 
    384384plt,0.8+msk*1.e-5,realcont=2,/nocont,/nofill,xminor=1,yminor=1,lct=64,rmsd_mi, rmsd_ma, int=rmsd_int,/noer, $ 
    385385   title='1) RMSD - TropFlux', subtitle='', small=[1,4,1],/rempl,/nocolorb, marge=marge 
    386  
    387 NN=n_elements(lat) 
    388  
    389 usersym, [-.5,.5,.5,-.5,-.5],[-.5,-.5,.5,.5,-.5],/fill 
    390  
     386; 
     387NN=n_elements(lat) 
     388; 
     389usersym, [-.5,.5,.5,-.5,-.5],[-.5,-.5,.5,.5,-.5],/fill 
     390; 
    391391for n=0,NN-1 do begin 
    392392  x=lon(n) 
    393393  y=lat(n) 
    394394  c=rmsd_trop(n) 
    395   cmi=rmsd_mi  
    396   cma=rmsd_ma  
    397   dc=cma-cmi 
    398   col=((10+244*(c-cmi)/dc) > 10) < 254 
    399   plots, x,y,psym=8,symsize=1.5,color=col 
    400 endfor 
    401  
    402 usersym, [-.5,.5,.5,-.5,-.5],[-.5,-.5,.5,.5,-.5] 
    403  
     395  cmi=rmsd_mi 
     396  cma=rmsd_ma 
     397  dc=cma-cmi 
     398  col=((10+244*(c-cmi)/dc) > 10) < 254 
     399  plots, x,y,psym=8,symsize=1.5,color=col 
     400endfor 
     401; 
     402usersym, [-.5,.5,.5,-.5,-.5],[-.5,-.5,.5,.5,-.5] 
     403; 
    404404for n=0,NN-1 do begin 
    405405  x=lon(n) 
    406406  y=lat(n) 
    407407  c=rmsd_trop(n) 
    408  
     408; 
    409409  plots, x,y,psym=8,symsize=1.5,color=0 
    410410endfor 
    411411plt,0.8+msk*1.e-5,realcont=2,/nocont,/nofill,xminor=1,yminor=1,lct=64,rmsd_mi, rmsd_ma, int=rmsd_int,/noer, $ 
    412412   title='2) RMSD - ERAI', subtitle='', small=[1,4,2],/rempl,/nocolorb, marge=marge 
    413  
    414 NN=n_elements(lat) 
    415  
    416 usersym, [-.5,.5,.5,-.5,-.5],[-.5,-.5,.5,.5,-.5],/fill 
    417  
     413; 
     414NN=n_elements(lat) 
     415; 
     416usersym, [-.5,.5,.5,-.5,-.5],[-.5,-.5,.5,.5,-.5],/fill 
     417; 
    418418for n=0,NN-1 do begin 
    419419  x=lon(n) 
    420420  y=lat(n) 
    421421  c=rmsd_era(n) 
    422   cmi=rmsd_mi  
    423   cma=rmsd_ma  
    424   dc=cma-cmi 
    425   col=((10+244*(c-cmi)/dc) > 10) < 254 
    426   plots, x,y,psym=8,symsize=1.5,color=col 
    427 endfor 
    428  
    429 usersym, [-.5,.5,.5,-.5,-.5],[-.5,-.5,.5,.5,-.5] 
    430  
     422  cmi=rmsd_mi 
     423  cma=rmsd_ma 
     424  dc=cma-cmi 
     425  col=((10+244*(c-cmi)/dc) > 10) < 254 
     426  plots, x,y,psym=8,symsize=1.5,color=col 
     427endfor 
     428; 
     429usersym, [-.5,.5,.5,-.5,-.5],[-.5,-.5,.5,.5,-.5] 
     430; 
    431431for n=0,NN-1 do begin 
    432432  x=lon(n) 
    433433  y=lat(n) 
    434434  c=rmsd_era(n) 
    435  
     435; 
    436436  plots, x,y,psym=8,symsize=1.5,color=0 
    437437endfor 
    438438plt,0.8+msk*1.e-5,realcont=2,/nocont,/nofill,xminor=1,yminor=1,lct=64,rmsd_mi, rmsd_ma, int=rmsd_int,/noer, $ 
    439439   title='3) RMSD - OAFlux', subtitle='', small=[1,4,3],/rempl,/nocolorb, marge=marge 
    440  
    441 NN=n_elements(lat) 
    442  
    443 usersym, [-.5,.5,.5,-.5,-.5],[-.5,-.5,.5,.5,-.5],/fill 
    444  
     440; 
     441NN=n_elements(lat) 
     442; 
     443usersym, [-.5,.5,.5,-.5,-.5],[-.5,-.5,.5,.5,-.5],/fill 
     444; 
    445445for n=0,NN-1 do begin 
    446446  x=lon(n) 
    447447  y=lat(n) 
    448448  c=rmsd_oaflx(n) 
    449   cmi=rmsd_mi  
    450   cma=rmsd_ma  
    451   dc=cma-cmi 
    452   col=((10+244*(c-cmi)/dc) > 10) < 254 
    453   plots, x,y,psym=8,symsize=1.5,color=col 
    454 endfor 
    455  
    456 usersym, [-.5,.5,.5,-.5,-.5],[-.5,-.5,.5,.5,-.5] 
    457  
     449  cmi=rmsd_mi 
     450  cma=rmsd_ma 
     451  dc=cma-cmi 
     452  col=((10+244*(c-cmi)/dc) > 10) < 254 
     453  plots, x,y,psym=8,symsize=1.5,color=col 
     454endfor 
     455; 
     456usersym, [-.5,.5,.5,-.5,-.5],[-.5,-.5,.5,.5,-.5] 
     457; 
    458458for n=0,NN-1 do begin 
    459459  x=lon(n) 
    460460  y=lat(n) 
    461461  c=rmsd_oaflx(n) 
    462  
    463   plots, x,y,psym=8,symsize=1.5,color=0 
    464 endfor 
    465  
     462; 
     463  plots, x,y,psym=8,symsize=1.5,color=0 
     464endfor 
     465; 
    466466plt,0.8+msk*1.e-5,realcont=2,/nocont,/nofill,xminor=1,yminor=1,lct=64,rmsd_mi, rmsd_ma, int=rmsd_int,/noer, $ 
    467467   title='4) RMSD - SWR_olr', subtitle='', small=[1,4,4],/rempl, marge=marge1 
    468  
    469 NN=n_elements(lat) 
    470  
    471 usersym, [-.5,.5,.5,-.5,-.5],[-.5,-.5,.5,.5,-.5],/fill 
    472  
     468; 
     469NN=n_elements(lat) 
     470; 
     471usersym, [-.5,.5,.5,-.5,-.5],[-.5,-.5,.5,.5,-.5],/fill 
     472; 
    473473for n=0,NN-1 do begin 
    474474  x=lon(n) 
    475475  y=lat(n) 
    476476  c=rmsd_olr(n) 
    477   cmi=rmsd_mi  
    478   cma=rmsd_ma  
    479   dc=cma-cmi 
    480   col=((10+244*(c-cmi)/dc) > 10) < 254 
    481   plots, x,y,psym=8,symsize=1.5,color=col 
    482 endfor 
    483  
    484 usersym, [-.5,.5,.5,-.5,-.5],[-.5,-.5,.5,.5,-.5] 
    485  
     477  cmi=rmsd_mi 
     478  cma=rmsd_ma 
     479  dc=cma-cmi 
     480  col=((10+244*(c-cmi)/dc) > 10) < 254 
     481  plots, x,y,psym=8,symsize=1.5,color=col 
     482endfor 
     483; 
     484usersym, [-.5,.5,.5,-.5,-.5],[-.5,-.5,.5,.5,-.5] 
     485; 
    486486for n=0,NN-1 do begin 
    487487  x=lon(n) 
    488488  y=lat(n) 
    489489  c=rmsd_olr(n) 
    490  
     490; 
    491491  plots, x,y,psym=8,symsize=1.5,color=0 
    492492endfor 
    … …  
    494494plt,0.8+msk*1.e-5,realcont=2,/nocont,/nofill,xminor=1,yminor=1,lct=64,std_mi, std_ma, int=std_int,/noer, $ 
    495495   title='1) STD ratio - TropFlux', subtitle='', small=[1,4,1],/rempl,/nocolorb, marge=marge 
    496  
    497 NN=n_elements(lat) 
    498  
    499 usersym, [-.5,.5,.5,-.5,-.5],[-.5,-.5,.5,.5,-.5],/fill 
    500  
     496; 
     497NN=n_elements(lat) 
     498; 
     499usersym, [-.5,.5,.5,-.5,-.5],[-.5,-.5,.5,.5,-.5],/fill 
     500; 
    501501for n=0,NN-1 do begin 
    502502  x=lon(n) 
    503503  y=lat(n) 
    504504  c=std_trop(n) 
    505   cmi=std_mi  
    506   cma=std_ma  
    507   dc=cma-cmi 
    508   col=((10+244*(c-cmi)/dc) > 10) < 254 
    509   plots, x,y,psym=8,symsize=1.5,color=col 
    510 endfor 
    511  
    512 usersym, [-.5,.5,.5,-.5,-.5],[-.5,-.5,.5,.5,-.5] 
    513  
     505  cmi=std_mi 
     506  cma=std_ma 
     507  dc=cma-cmi 
     508  col=((10+244*(c-cmi)/dc) > 10) < 254 
     509  plots, x,y,psym=8,symsize=1.5,color=col 
     510endfor 
     511; 
     512usersym, [-.5,.5,.5,-.5,-.5],[-.5,-.5,.5,.5,-.5] 
     513; 
    514514for n=0,NN-1 do begin 
    515515  x=lon(n) 
    516516  y=lat(n) 
    517517  c=std_trop(n) 
    518  
     518; 
    519519  plots, x,y,psym=8,symsize=1.5,color=0 
    520520endfor 
    521521plt,0.8+msk*1.e-5,realcont=2,/nocont,/nofill,xminor=1,yminor=1,lct=64,std_mi, std_ma, int=std_int,/noer, $ 
    522522   title='2) STD ratop - ERAI', subtitle='', small=[1,4,2],/rempl,/nocolorb, marge=marge 
    523  
    524 NN=n_elements(lat) 
    525  
    526 usersym, [-.5,.5,.5,-.5,-.5],[-.5,-.5,.5,.5,-.5],/fill 
    527  
     523; 
     524NN=n_elements(lat) 
     525; 
     526usersym, [-.5,.5,.5,-.5,-.5],[-.5,-.5,.5,.5,-.5],/fill 
     527; 
    528528for n=0,NN-1 do begin 
    529529  x=lon(n) 
    530530  y=lat(n) 
    531531  c=std_era(n) 
    532   cmi=std_mi  
    533   cma=std_ma  
    534   dc=cma-cmi 
    535   col=((10+244*(c-cmi)/dc) > 10) < 254 
    536   plots, x,y,psym=8,symsize=1.5,color=col 
    537 endfor 
    538  
    539 usersym, [-.5,.5,.5,-.5,-.5],[-.5,-.5,.5,.5,-.5] 
    540  
     532  cmi=std_mi 
     533  cma=std_ma 
     534  dc=cma-cmi 
     535  col=((10+244*(c-cmi)/dc) > 10) < 254 
     536  plots, x,y,psym=8,symsize=1.5,color=col 
     537endfor 
     538; 
     539usersym, [-.5,.5,.5,-.5,-.5],[-.5,-.5,.5,.5,-.5] 
     540; 
    541541for n=0,NN-1 do begin 
    542542  x=lon(n) 
    543543  y=lat(n) 
    544544  c=std_era(n) 
    545  
    546   plots, x,y,psym=8,symsize=1.5,color=0 
    547 endfor 
    548  
     545; 
     546  plots, x,y,psym=8,symsize=1.5,color=0 
     547endfor 
     548; 
    549549plt,0.8+msk*1.e-5,realcont=2,/nocont,/nofill,xminor=1,yminor=1,lct=64,std_mi, std_ma, int=std_int,/noer, $ 
    550550   title='3) STD rato - OAFlux', subtitle='', small=[1,4,3],/rempl,/nocolorb, marge=marge 
    551  
    552 NN=n_elements(lat) 
    553  
    554 usersym, [-.5,.5,.5,-.5,-.5],[-.5,-.5,.5,.5,-.5],/fill 
    555  
     551; 
     552NN=n_elements(lat) 
     553; 
     554usersym, [-.5,.5,.5,-.5,-.5],[-.5,-.5,.5,.5,-.5],/fill 
     555; 
    556556for n=0,NN-1 do begin 
    557557  x=lon(n) 
    558558  y=lat(n) 
    559559  c=std_oaflx(n) 
    560   cmi=std_mi  
    561   cma=std_ma  
    562   dc=cma-cmi 
    563   col=((10+244*(c-cmi)/dc) > 10) < 254 
    564   plots, x,y,psym=8,symsize=1.5,color=col 
    565 endfor 
    566  
    567 usersym, [-.5,.5,.5,-.5,-.5],[-.5,-.5,.5,.5,-.5] 
    568  
     560  cmi=std_mi 
     561  cma=std_ma 
     562  dc=cma-cmi 
     563  col=((10+244*(c-cmi)/dc) > 10) < 254 
     564  plots, x,y,psym=8,symsize=1.5,color=col 
     565endfor 
     566; 
     567usersym, [-.5,.5,.5,-.5,-.5],[-.5,-.5,.5,.5,-.5] 
     568; 
    569569for n=0,NN-1 do begin 
    570570  x=lon(n) 
    571571  y=lat(n) 
    572572  c=std_oaflx(n) 
    573  
    574   plots, x,y,psym=8,symsize=1.5,color=0 
    575 endfor 
    576  
     573; 
     574  plots, x,y,psym=8,symsize=1.5,color=0 
     575endfor 
     576; 
    577577plt,0.8+msk*1.e-5,realcont=2,/nocont,/nofill,xminor=1,yminor=1,lct=64,std_mi, std_ma, int=std_int,/noer, $ 
    578578   title='4) STD rato - SWR_olr', subtitle='', small=[1,4,4],/rempl, marge=marge1 
    579  
    580 NN=n_elements(lat) 
    581  
    582 usersym, [-.5,.5,.5,-.5,-.5],[-.5,-.5,.5,.5,-.5],/fill 
    583  
     579; 
     580NN=n_elements(lat) 
     581; 
     582usersym, [-.5,.5,.5,-.5,-.5],[-.5,-.5,.5,.5,-.5],/fill 
     583; 
    584584for n=0,NN-1 do begin 
    585585  x=lon(n) 
    586586  y=lat(n) 
    587587  c=std_olr(n) 
    588   cmi=std_mi  
    589   cma=std_ma  
    590   dc=cma-cmi 
    591   col=((10+244*(c-cmi)/dc) > 10) < 254 
    592   plots, x,y,psym=8,symsize=1.5,color=col 
    593 endfor 
    594  
    595 usersym, [-.5,.5,.5,-.5,-.5],[-.5,-.5,.5,.5,-.5] 
    596  
     588  cmi=std_mi 
     589  cma=std_ma 
     590  dc=cma-cmi 
     591  col=((10+244*(c-cmi)/dc) > 10) < 254 
     592  plots, x,y,psym=8,symsize=1.5,color=col 
     593endfor 
     594; 
     595usersym, [-.5,.5,.5,-.5,-.5],[-.5,-.5,.5,.5,-.5] 
     596; 
    597597for n=0,NN-1 do begin 
    598598  x=lon(n) 
    599599  y=lat(n) 
    600600  c=std_olr(n) 
    601  
    602   plots, x,y,psym=8,symsize=1.5,color=0 
    603 endfor 
     601; 
     602  plots, x,y,psym=8,symsize=1.5,color=0 
     603endfor 
     604; 
    604605closeps 
     606; 
    605607end 

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

    r94 r97  
    117117reinitplt, /z,/invert 
    118118key_portrait = 1 
    119  
     119; 
    120120openps, FILENAME = project_od_env+'net_flux_validation_scatter_2000_2007.ps' 
    121  
     121; 
    122122sitelist=['8s67e','12s55e', '8s55e', '8s80.5e', '1.5s80.5e', '0n80.5e', '1.5n80.5e', '1.5s90e', $ 
    123123           '0n90e', '1.5n90e', '4n90e','8n90e','12n90e', '15n90e', '5s95e', $ 
    … …  
    130130          '0n0e', '0n10w', '0n23w', '0n35w', '10s10w', '12n23w', '12n38w', '14s32w', '15n38w', '19s34w', '20n38w', $ 
    131131          '21n23w', '4n23w', '4n38w', '6s10w', '8n38w', '8s30w'] 
    132  
     132; 
    133133jda1=date2jul(date1) 
    134134jda2=date2jul(date2) 
    135135jpt=(jda2-jda1+1l) 
    136 time=jda1+dindgen(jpt)  
     136time=jda1+dindgen(jpt) 
    137137tt=time 
    138  
     138; 
    139139ocean='net_flux' 
    140140nsmooth=1. 
    … …  
    144144lhf_trop=read_ncdf("lhf", date1, date2, file=file_trop,/nostr) 
    145145lwr_trop=read_ncdf("lwr", date1, date2, file=file_trop,/nostr) 
    146  
     146; 
    147147file_trop=project_od_env+'TropFlux_swr_19890101_20071231_DT.nc' 
    148148initncdf, file_trop 
    … …  
    150150trop=swr_dt+(lwr_trop+lhf_trop+shf_trop) 
    151151help, trop 
    152  
     152; 
    153153file_trop=project_od_env+'TropFlux_swr_19890101_20091231_NRT.nc' 
    154154initncdf, file_trop 
    … …  
    156156tropd=swr_nrt+(lwr_trop+lhf_trop+shf_trop) 
    157157help, tropd 
    158  
     158; 
    159159file_ncep=project_od_env+'NCEP2_flux_19890101_20090729.nc' 
    160160initncdf, file_ncep 
    … …  
    163163lwr=read_ncdf("lwr", date1, date2, file=file_ncep,/nostr) 
    164164swr=read_ncdf("swr", date1, date2, file=file_ncep,/nostr) 
    165  
     165; 
    166166;ncep=swr-(lhf+shf+ref_lw) 
    167167ncep=swr-(lhf+shf+lwr) 
    168168help, ncep 
    169  
     169; 
    170170file_erai=project_od_env+'erai_fluxes_19930101_20090801_TROP_oafluxgrid.nc' 
    171171initncdf, file_erai 
    … …  
    173173lhf=read_ncdf("lhf", date1, date2, file=file_erai,/nostr) 
    174174lwr=read_ncdf("lwr", date1, date2, file=file_erai,/nostr) 
    175 swr=read_ncdf("swr", date1, date2, file=file_erai,/nostr)  
     175swr=read_ncdf("swr", date1, date2, file=file_erai,/nostr) 
    176176swr=-1*swr 
    177177erai=swr-(lwr+lhf+shf) 
    178178help, erai 
    179  
     179; 
    180180file_oaf=project_od_env+'shf_oafluxgrid_1985_2008.nc' 
    181181initncdf, file_oaf 
    … …  
    189189file_oaf=project_od_env+'swr_oafluxgrid_1985_2007.nc' 
    190190initncdf, file_oaf 
    191 swr=read_ncdf("swr", date1, date2, file=file_oaf,/nostr)  
     191swr=read_ncdf("swr", date1, date2, file=file_oaf,/nostr) 
    192192swr_trop=swr 
    193193oafl=swr-(lwr+lhf+shf) 
    194194help, oafl 
    195  
     195; 
    196196file=project_od_env+'fluxe_ncep1_19890101_20091231.nc' 
    197197initncdf, file 
    … …  
    200200lhf=read_ncdf("lhf", date1, date2, file=file,/nostr) 
    201201shf=read_ncdf("shf", date1, date2, file=file,/nostr) 
    202  
     202; 
    203203ncep1=swr+lwr+shf+lhf 
    204204help, ncep1 
    205  
     205; 
    206206close,/all 
    207  
     207; 
    208208fi_net_NRT_erai=project_od_env+'net_2000_2007_erai.txt' 
    209209openw,1,fi_net_NRT_erai 
    … …  
    218218fi_net_NRT_tropd=project_od_env+'net_2000_2007_tropd.txt' 
    219219openw,6,fi_net_NRT_tropd 
    220  
    221  
     220; 
     221; 
    222222printf,1, 'x     y      cor    bias     std     rmsd      mean_tao' 
    223223printf,2, 'x     y      cor    bias     std     rmsd      mean_tao' 
    … …  
    226226printf,5, 'x     y      cor    bias     std     rmsd      mean_tao' 
    227227printf,6, 'x     y      cor    bias     std     rmsd      mean_tao' 
    228  
     228; 
    229229nn=n_elements(sitelist) 
    230  
     230; 
    231231for n=0, nn-1 do begin 
    232  
    233 ;; reading data from mooring 
    234  
    235     site=sitelist(n)  
     232; 
     233; reading data from mooring 
     234; 
     235    site=sitelist(n) 
    236236    csite=site 
    237237    print, csite 
    … …  
    239239    y=y_site_location(site) 
    240240    if (y ge 0. and y le 30.) then y=y+360. 
    241     dx=0.5  
    242     dy=0.5  
     241    dx=0.5 
     242    dy=0.5 
    243243    box=[y-dy, y+dy, x-dx, x+dx] 
    244  
     244; 
    245245    read_variables_net_flux, csite,date1,date2,nsmooth, $ 
    246246         net 
    247     tao=net  
    248     ind=where(finite(tao))  
     247    tao=net 
     248    ind=where(finite(tao)) 
    249249    valid=n_elements(ind) 
    250  
    251 ;; 
     250; 
    252251    if (valid ge 180. ) then begin 
    253  
     252; 
    254253           extract_flux_tropflux, oafl, box, $ 
    255254              tropflux 
    256255           oaflux=tropflux 
    257  
     256; 
    258257           extract_flux_tropflux, ncep, box, $ 
    259258              tropflux 
    260259           ncepflux=tropflux 
    261  
     260; 
    262261           extract_flux_tropflux, erai, box, $ 
    263262              tropflux 
    264263           eraiflux=tropflux 
    265  
     264; 
    266265           extract_flux_tropflux, trop, box, $ 
    267266              tropflux 
    268267           tropflux_new=tropflux 
    269  
     268; 
    270269           extract_flux_tropflux, ncep1, box, $ 
    271270              tropflux 
    272271           ncepflux1=tropflux 
    273  
     272; 
    274273           extract_flux_tropflux, tropd, box, $ 
    275274              tropflux 
    276275           tropdf=tropflux 
    277  
    278            ind=where(finite(tao))  
    279            tao=tao(ind)  
    280            oaf_net=oaflux(ind)  
    281            nce_net=ncepflux(ind)  
     276; 
     277           ind=where(finite(tao)) 
     278           tao=tao(ind) 
     279           oaf_net=oaflux(ind) 
     280           nce_net=ncepflux(ind) 
    282281           trop_net=tropflux_new(ind) 
    283            erai_net=eraiflux(ind)  
    284            nce1_net=ncepflux1(ind)  
     282           erai_net=eraiflux(ind) 
     283           nce1_net=ncepflux1(ind) 
    285284           tropd_net=tropdf(ind) 
    286  
     285; 
    287286           mean_tao=total(tao,/nan)/n_elements(ind) 
    288  
     287; 
    289288        statistics_3var_v1, tao, erai_net, trop_net, $ 
    290289                 cor1, cor2, bias1, bias2, std1, std2, rmsd1, rmsd2 
    291  
     290; 
    292291        printf, 1, x, y, cor1, bias1, std1, rmsd1, mean_tao, format='(f6.2, 3x, f6.2, 3x, f4.2,3x,f7.2,3x,f4.2,3x,f6.2,3x,f7.2)' 
    293292        printf, 2, x, y, cor2, bias2, std2, rmsd2, mean_tao, format='(f6.2, 3x, f6.2, 3x, f4.2,3x,f7.2,3x,f4.2,3x,f6.2,3x,f7.2)' 
    294  
     293; 
    295294        statistics_3var_v1, tao,oaf_net , nce_net, $ 
    296295                cor1, cor2, bias1, bias2, std1, std2, rmsd1, rmsd2 
    297296        printf, 3, x, y, cor1, bias1, std1, rmsd1, mean_tao,format='(f6.2, 3x, f6.2, 3x, f4.2,3x,f7.2,3x,f4.2,3x,f6.2,3x,f7.2)' 
    298297        printf, 4, x, y, cor2, bias2, std2, rmsd2, mean_tao,format='(f6.2, 3x, f6.2, 3x, f4.2,3x,f7.2,3x,f4.2,3x,f6.2,3x,f7.2)' 
    299  
    300         statistics_3var_v1, tao,nce1_net , tropd_net, $ 
     298; 
     299        statistics_3var_v1, tao,nce1_net , tropd_net, $ 
    301300                cor1, cor2, bias1, bias2, std1, std2, rmsd1, rmsd2 
    302301        printf, 5, x, y, cor1, bias1, std1, rmsd1, mean_tao,format='(f6.2, 3x, f6.2, 3x, f4.2,3x,f7.2,3x,f4.2,3x,f6.2,3x,f7.2)' 
    303302        printf, 6, x, y, cor2, bias2, std2, rmsd2, mean_tao,format='(f6.2, 3x, f6.2, 3x, f4.2,3x,f7.2,3x,f4.2,3x,f6.2,3x,f7.2)' 
    304  
     303; 
    305304     endif 
    306305endfor 
    307  
     306; 
    308307close,/all 
    309  
     308; 
    310309fi_net_NRT_erai=project_od_env+'net_2000_2007_erai.txt' 
    311310res=read_ascii(fi_net_NRT_erai,data_start=1) 
    … …  
    317316mean_tao=reform(ff(6,*)) 
    318317mean_erai=mean_tao+bias_erai 
    319  
    320 ind=where(finite(cor_erai))  
     318; 
     319ind=where(finite(cor_erai)) 
    321320cor=total(cor_erai,/nan)/n_elements(ind) 
    322 ind=where(finite(bias_erai))  
     321ind=where(finite(bias_erai)) 
    323322bias=total(bias_erai,/nan)/n_elements(ind) 
    324 ind=where(finite(rmsd_erai))  
     323ind=where(finite(rmsd_erai)) 
    325324rmsd=total(rmsd_erai,/nan)/n_elements(ind) 
    326 ind=where(finite(std_erai))  
     325ind=where(finite(std_erai)) 
    327326std=total(std_erai,/nan)/n_elements(ind) 
    328  
     327; 
    329328print, '' 
    330329print, 'ERAI' 
    331330print, cor, bias, std, rmsd 
    332331cstat=string(cor, bias, std, rmsd, format='(f4.2,2x,f6.2,2x,f4.2,1x,f6.2)') 
    333  
     332; 
    334333splot, mean_tao, mean_erai, charsize=1.1, title='NET_Flux - TAO Vs ERAI', $ 
    335334     xrange=[-100,200], yrange=[-100,200], small=[2,3,1], psym=2, xmin=1,ymin=1 
    336335xyouts, -50,-40, cstat, charsize=1. 
    337336xyouts, -40,-80, 'cor    bias    std    rmsd', charsize=1. 
    338  
    339 x=mean_tao  
     337; 
     338x=mean_tao 
    340339y=mean_erai 
    341340ab=linfit(x,y,yfit=yfit) 
    342 a=float(ab(0))  
    343 b=float(ab(1))  
     341a=float(ab(0)) 
     342b=float(ab(1)) 
    344343print, a,b 
    345344oplot, x, yfit, thick=2, color=250 
    346345oplot, [-100,200], [-100,200] 
    347  
    348  
     346; 
     347; 
    349348fi_net_NRT_trop=project_od_env+'net_2000_2007_trop.txt' 
    350349res=read_ascii(fi_net_NRT_trop,data_start=1) 
    … …  
    356355mean_tao=reform(ff(6,*)) 
    357356mean_trop=mean_tao+bias_trop 
    358  
    359 ind=where(finite(cor_trop))  
     357; 
     358ind=where(finite(cor_trop)) 
    360359cor=total(cor_trop,/nan)/n_elements(ind) 
    361 ind=where(finite(bias_trop))  
     360ind=where(finite(bias_trop)) 
    362361bias=total(bias_trop,/nan)/n_elements(ind) 
    363 ind=where(finite(rmsd_trop))  
     362ind=where(finite(rmsd_trop)) 
    364363rmsd=total(rmsd_trop,/nan)/n_elements(ind) 
    365 ind=where(finite(std_trop))  
     364ind=where(finite(std_trop)) 
    366365std=total(std_trop,/nan)/n_elements(ind) 
    367  
     366; 
    368367print, '' 
    369368print, 'TropFlux' 
    370369print, cor, bias, std, rmsd 
    371370cstat=string(cor, bias, std, rmsd, format='(f4.2,2x,f6.2,2x,f4.2,1x,f6.2)') 
    372  
     371; 
    373372splot, mean_tao, mean_trop, charsize=1.1, title='NET_Flux - TAO Vs TropFlux', $ 
    374373     xrange=[-100,200], yrange=[-100,200], small=[2,3,2],/noer, psym=2, xmin=1,ymin=1 
    375374xyouts, -50,-40, cstat, charsize=1. 
    376375xyouts, -40,-80, 'cor    bias    std    rmsd', charsize=1. 
    377  
    378 x=mean_tao  
     376; 
     377x=mean_tao 
    379378y=mean_trop 
    380379ab=linfit(x,y,yfit=yfit) 
    381 a=float(ab(0))  
    382 b=float(ab(1))  
     380a=float(ab(0)) 
     381b=float(ab(1)) 
    383382print, a,b 
    384383oplot, x, yfit, thick=2, color=250 
    385384oplot, [-100,200], [-100,200] 
    386  
    387  
     385; 
     386; 
    388387fi_net_NRT_oaflx=project_od_env+'net_2000_2007_oaflx.txt' 
    389388res=read_ascii(fi_net_NRT_oaflx,data_start=1) 
    … …  
    395394mean_tao=reform(ff(6,*)) 
    396395mean_oaf=mean_tao+bias_oaf 
    397  
    398 ind=where(finite(cor_oaf))  
     396; 
     397ind=where(finite(cor_oaf)) 
    399398cor=total(cor_oaf,/nan)/n_elements(ind) 
    400 ind=where(finite(bias_oaf))  
     399ind=where(finite(bias_oaf)) 
    401400bias=total(bias_oaf,/nan)/n_elements(ind) 
    402 ind=where(finite(rmsd_oaf))  
     401ind=where(finite(rmsd_oaf)) 
    403402rmsd=total(rmsd_oaf,/nan)/n_elements(ind) 
    404 ind=where(finite(std_oaf))  
     403ind=where(finite(std_oaf)) 
    405404std=total(std_oaf,/nan)/n_elements(ind) 
    406  
     405; 
    407406print, '' 
    408407print, 'OAFlux' 
    409408print, cor, bias, std, rmsd 
    410409cstat=string(cor, bias, std, rmsd, format='(f4.2,2x,f6.2,2x,f4.2,1x,f6.2)') 
    411  
     410; 
    412411splot, mean_tao, mean_oaf, charsize=1.1, title='NET_Flux - TAO Vs OAFlux', $ 
    413412     xrange=[-100,200], yrange=[-100,200], small=[2,3,3],/noer, psym=2, xmin=1,ymin=1 
    414 x=mean_tao  
     413x=mean_tao 
    415414y=mean_oaf 
    416  
     415; 
    417416xyouts, -50,-40, cstat, charsize=1. 
    418417xyouts, -40,-80, 'cor    bias    std    rmsd', charsize=1. 
    419  
     418; 
    420419ab=linfit(x,y,yfit=yfit) 
    421 a=float(ab(0))  
    422 b=float(ab(1))  
     420a=float(ab(0)) 
     421b=float(ab(1)) 
    423422print, a,b 
    424423oplot, x, yfit, thick=2, color=250 
    425424oplot, [-100,200], [-100,200] 
    426  
    427  
     425; 
     426; 
    428427fi_net_NRT_ncep=project_od_env+'net_2000_2007_ncep.txt' 
    429428res=read_ascii(fi_net_NRT_ncep,data_start=1) 
    … …  
    435434mean_tao=reform(ff(6,*)) 
    436435mean_nce=mean_tao+bias_nce 
    437  
    438 ind=where(finite(cor_nce))  
     436; 
     437ind=where(finite(cor_nce)) 
    439438cor=total(cor_nce,/nan)/n_elements(ind) 
    440 ind=where(finite(bias_nce))  
     439ind=where(finite(bias_nce)) 
    441440bias=total(bias_nce,/nan)/n_elements(ind) 
    442 ind=where(finite(rmsd_nce))  
     441ind=where(finite(rmsd_nce)) 
    443442rmsd=total(rmsd_nce,/nan)/n_elements(ind) 
    444 ind=where(finite(std_nce))  
     443ind=where(finite(std_nce)) 
    445444std=total(std_nce,/nan)/n_elements(ind) 
    446  
     445; 
    447446print, '' 
    448447print, 'NCEP2' 
    449448print, cor, bias, std, rmsd 
    450449cstat=string(cor, bias, std, rmsd, format='(f4.2,2x,f6.2,2x,f4.2,1x,f6.2)') 
    451  
     450; 
    452451splot, mean_tao, mean_nce, charsize=1.1, title='NET_Flux - TAO Vs NCEP2', $ 
    453452     xrange=[-100,200], yrange=[-100,200], small=[2,3,4],/noer, psym=2, xmin=1,ymin=1 
    454453xyouts, -50,-40, cstat, charsize=1. 
    455454xyouts, -40,-80, 'cor    bias    std    rmsd', charsize=1. 
    456  
    457 x=mean_tao  
     455; 
     456x=mean_tao 
    458457y=mean_nce 
    459458ab=linfit(x,y,yfit=yfit) 
    460 a=float(ab(0))  
    461 b=float(ab(1))  
     459a=float(ab(0)) 
     460b=float(ab(1)) 
    462461print, a,b 
    463462oplot, x, yfit, thick=2, color=250 
    464463oplot, [-100,200], [-100,200] 
    465  
    466  
     464; 
     465; 
    467466fi_net_NRT_ncep1=project_od_env+'net_2000_2007_ncep1.txt' 
    468467res=read_ascii(fi_net_NRT_ncep1,data_start=1) 
    … …  
    474473mean_tao=reform(ff(6,*)) 
    475474mean_nce=mean_tao+bias_nce 
    476  
    477 ind=where(finite(cor_nce))  
     475; 
     476ind=where(finite(cor_nce)) 
    478477cor=total(cor_nce,/nan)/n_elements(ind) 
    479 ind=where(finite(bias_nce))  
     478ind=where(finite(bias_nce)) 
    480479bias=total(bias_nce,/nan)/n_elements(ind) 
    481 ind=where(finite(rmsd_nce))  
     480ind=where(finite(rmsd_nce)) 
    482481rmsd=total(rmsd_nce,/nan)/n_elements(ind) 
    483 ind=where(finite(std_nce))  
     482ind=where(finite(std_nce)) 
    484483std=total(std_nce,/nan)/n_elements(ind) 
    485  
     484; 
    486485print, '' 
    487486print, 'NCEP2' 
    488487print, cor, bias, std, rmsd 
    489488cstat=string(cor, bias, std, rmsd, format='(f4.2,2x,f6.2,2x,f4.2,1x,f6.2)') 
    490  
     489; 
    491490splot, mean_tao, mean_nce, charsize=1.1, title='NET_Flux - TAO Vs NCEP2', $ 
    492491     xrange=[-100,200], yrange=[-100,200], small=[2,3,5],/noer, psym=2, xmin=1,ymin=1 
    493492xyouts, -50,-40, cstat, charsize=1. 
    494493xyouts, -40,-80, 'cor    bias    std    rmsd', charsize=1. 
    495  
    496 x=mean_tao  
     494; 
     495x=mean_tao 
    497496y=mean_nce 
    498497ab=linfit(x,y,yfit=yfit) 
    499 a=float(ab(0))  
    500 b=float(ab(1))  
     498a=float(ab(0)) 
     499b=float(ab(1)) 
    501500print, a,b 
    502501oplot, x, yfit, thick=2, color=250 
    503502oplot, [-100,200], [-100,200] 
    504  
    505  
     503; 
     504; 
    506505fi_net_NRT_tropd=project_od_env+'net_2000_2007_tropd.txt' 
    507506res=read_ascii(fi_net_NRT_tropd,data_start=1) 
    … …  
    513512mean_tao=reform(ff(6,*)) 
    514513mean_tropd=mean_tao+bias_tropd 
    515  
    516 ind=where(finite(cor_tropd))  
     514; 
     515ind=where(finite(cor_tropd)) 
    517516cor=total(cor_tropd,/nan)/n_elements(ind) 
    518 ind=where(finite(bias_tropd))  
     517ind=where(finite(bias_tropd)) 
    519518bias=total(bias_tropd,/nan)/n_elements(ind) 
    520 ind=where(finite(rmsd_tropd))  
     519ind=where(finite(rmsd_tropd)) 
    521520rmsd=total(rmsd_tropd,/nan)/n_elements(ind) 
    522 ind=where(finite(std_tropd))  
     521ind=where(finite(std_tropd)) 
    523522std=total(std_tropd,/nan)/n_elements(ind) 
    524  
     523; 
    525524print, '' 
    526525print, 'TropFlux_NRT' 
    527526print, cor, bias, std, rmsd 
    528527cstat=string(cor, bias, std, rmsd, format='(f4.2,2x,f6.2,2x,f4.2,1x,f6.2)') 
    529  
     528; 
    530529splot, mean_tao, mean_tropd, charsize=1.1, title='NET_Flux - TAO Vs TropFlux_NRT', $ 
    531530     xrange=[-100,200], yrange=[-100,200], small=[2,3,6],/noer, psym=2, xmin=1,ymin=1 
    532531xyouts, -50,-40, cstat, charsize=1. 
    533532xyouts, -40,-80, 'cor    bias    std    rmsd', charsize=1. 
    534  
    535 x=mean_tao  
     533; 
     534x=mean_tao 
    536535y=mean_tropd 
    537536ab=linfit(x,y,yfit=yfit) 
    538 a=float(ab(0))  
    539 b=float(ab(1))  
     537a=float(ab(0)) 
     538b=float(ab(1)) 
    540539print, a,b 
    541540oplot, x, yfit, thick=2, color=250 
    542541oplot, [-100,200], [-100,200] 
    543  
     542; 
    544543closeps 
    545  
     544; 
    546545end 

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

    r94 r97  
    9191key_portrait = 1 
    9292coefpalit=.9 
    93  
     93; 
    9494openps, FILENAME = project_od_env+'as_validation_net_1994_95_v10.ps' 
    9595; partie a changer 
    9696asbox=[61,62,15,16] 
    97 date1=19941016  
     97date1=19941016 
    9898date2=19951019 
    99  
     99; 
    100100fi=project_id_env+"met_data_as_expt_1994.txt" 
    101101res=read_ascii(fi,data_start=1) 
    … …  
    106106shf94=reform(ff(6,*)) 
    107107net94=swr94+lwr94+lhf94+shf94 
    108  
     108; 
    109109fi=project_id_env+"met_data_as_expt_1995.txt" 
    110110res=read_ascii(fi,data_start=1) 
    … …  
    115115shf95=reform(ff(6,*)) 
    116116net95=swr95+lwr95+lhf95+shf95 
    117  
     117; 
    118118net=[net94, net95] 
    119119ind=where(finite(net)) 
    120120net=net(ind) 
    121  
    122 ;; start data - 16/10/94 and end date 31/12/94 
    123 ;; start data - 01/01/95 and end date 19/10/95 
    124  
     121; 
     122; start data - 16/10/94 and end date 31/12/94 
     123; start data - 01/01/95 and end date 19/10/95 
     124; 
    125125help, net 
    126 ;; reading other data sets 
     126; reading other data sets 
    127127file=project_id_env+"erai_swr_19910101_20091231_oafluxgrid.nc" 
    128128initncdf, file 
    129 swr=read_ncdf('swr',date1,date2,file=file,/nostr, box=asbox)  
     129swr=read_ncdf('swr',date1,date2,file=file,/nostr, box=asbox) 
    130130swr=reform(swr) 
    131131file=project_id_env+'erai_lwr_19890101_20091231_oafluxgrid.nc' 
    132132initncdf, file 
    133 lwr=read_ncdf('lwr',date1-1,date2,file=file,/nostr, box=asbox)  
     133lwr=read_ncdf('lwr',date1-1,date2,file=file,/nostr, box=asbox) 
    134134lwr=reform(lwr) 
    135135file=project_id_env+'erai_shf_19890101_20091231_oafluxgrid.nc' 
    136136initncdf, file 
    137 shf=-1*read_ncdf('shf',date1,date2,file=file,/nostr, box=asbox)  
     137shf=-1*read_ncdf('shf',date1,date2,file=file,/nostr, box=asbox) 
    138138shf=reform(shf) 
    139139file=project_id_env+'erai_lhf_19890101_20091231_oafluxgrid.nc' 
    140140initncdf, file 
    141 lhf=-1*read_ncdf('lhf',date1,date2,file=file,/nostr, box=asbox)  
     141lhf=-1*read_ncdf('lhf',date1,date2,file=file,/nostr, box=asbox) 
    142142lhf=reform(lhf) 
    143  
     143; 
    144144era=swr+lwr+lhf+shf 
    145145help, era 
    146146era=era(ind) 
    147147help, era 
    148  
    149 swr=0.  
    150 lwr=0.  
    151 shf=0.  
     148; 
     149swr=0. 
     150lwr=0. 
     151shf=0. 
    152152lhf=0. 
    153  
     153; 
    154154file=project_id_env+"TropFlux_19890101_20091231.nc" 
    155155initncdf, file 
    156 swr=read_ncdf('swr',date1,date2,file=file,/nostr, box=asbox)  
    157 swr=reform(swr) 
    158 lwr=read_ncdf('lwr',date1,date2,file=file,/nostr, box=asbox)  
     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) 
    159159lwr=reform(lwr) 
    160 shf=read_ncdf('shf',date1,date2,file=file,/nostr, box=asbox)  
     160shf=read_ncdf('shf',date1,date2,file=file,/nostr, box=asbox) 
    161161shf=reform(shf) 
    162 lhf=read_ncdf('lhf',date1,date2,file=file,/nostr, box=asbox)  
     162lhf=read_ncdf('lhf',date1,date2,file=file,/nostr, box=asbox) 
    163163lhf=reform(lhf) 
    164164trop=swr+lwr+shf+lhf 
    165165help, trop 
    166  
     166; 
    167167file=project_id_env+"TropFlux_swr_19890101_20091231_NRT_v50.nc" 
    168168initncdf, file 
    169 olr1=read_ncdf("sw", date1-1, date2, file=file,/nostr, box=asbox) ;;  
     169olr1=read_ncdf("sw", date1-1, date2, file=file,/nostr, box=asbox) 
    170170olr1=grossemoyenne(olr1, "xy",/nan, box=asbox) 
    171171olr1=reform(olr1) 
    172  
     172; 
    173173olr=olr1+lwr+shf+lhf 
    174  
    175 swr=0.  
    176 lwr=0.  
    177 shf=0.  
    178 lhf=0.  
     174; 
     175swr=0. 
     176lwr=0. 
     177shf=0. 
     178lhf=0. 
    179179olr1=0. 
    180  
    181 trop=trop(ind)  
     180; 
     181trop=trop(ind) 
    182182olr=olr(ind) 
    183183help, trop, olr 
    184  
     184; 
    185185file=project_id_env+'swr_oafluxgrid_1985_2007.nc' 
    186186initncdf, file 
    187 swr=read_ncdf("swr", date1, date2, file=file,/nostr, box=asbox)  
    188 swr=reform(swr) 
    189  
     187swr=read_ncdf("swr", date1, date2, file=file,/nostr, box=asbox) 
     188swr=reform(swr) 
     189; 
    190190file=project_id_env+'lwr_oafluxgrid_1985_2007.nc' 
    191191initncdf, file 
    192 lwr=read_ncdf("lwr", date1, date2, file=file,/nostr, box=asbox)  
     192lwr=read_ncdf("lwr", date1, date2, file=file,/nostr, box=asbox) 
    193193lwr=-1*reform(lwr) 
    194  
     194; 
    195195file=project_id_env+'lhf_oafluxgrid_1985_2009.nc' 
    196196initncdf, file 
    197 lhf=read_ncdf("lhf", date1, date2, file=file,/nostr, box=asbox)  
     197lhf=read_ncdf("lhf", date1, date2, file=file,/nostr, box=asbox) 
    198198lhf=-1*reform(lhf) 
    199  
     199; 
    200200file=project_id_env+'shf_oafluxgrid_1985_2009.nc' 
    201201initncdf, file 
    202 shf=read_ncdf("shf", date1, date2, file=file,/nostr, box=asbox)  
     202shf=read_ncdf("shf", date1, date2, file=file,/nostr, box=asbox) 
    203203shf=-1*reform(shf) 
    204  
     204; 
    205205oaf=swr+lwr+shf+lhf 
    206206oaf=oaf(ind) 
    207207help, oaf 
    208  
    209 swr=0.  
    210 lwr=0.  
    211 shf=0.  
     208; 
     209swr=0. 
     210lwr=0. 
     211shf=0. 
    212212lhf=0. 
    213  
     213; 
    214214fi=project_id_env+'swr_ncep2_oaflxgrid_19890101_20091231.nc' 
    215215initncdf, fi 
    216 swr=read_ncdf("swr", date1, date2, file=fi,/nostr, box=asbox)  
    217 swr=reform(swr) 
    218  
     216swr=read_ncdf("swr", date1, date2, file=fi,/nostr, box=asbox) 
     217swr=reform(swr) 
     218; 
    219219fi=project_id_env+"NCEP2_flux_19890101_20090729.nc" 
    220220initncdf, fi 
    221 lwr=read_ncdf("lwr", date1, date2, file=fi,/nostr, box=asbox)  
    222 lwr=grossemoyenne(lwr, "xy",/nan, box=asbox)  
     221lwr=read_ncdf("lwr", date1, date2, file=fi,/nostr, box=asbox) 
     222lwr=grossemoyenne(lwr, "xy",/nan, box=asbox) 
    223223lwr=reform(lwr) 
    224  
     224; 
    225225lwr=-1*lwr 
    226  
     226; 
    227227fi=project_id_env+'lhf_ncep2_oafluxgrid_19890101_20091231.nc' 
    228228initncdf, fi 
    229 lhf=read_ncdf("lhf", date1, date2, file=fi,/nostr, box=asbox)  
     229lhf=read_ncdf("lhf", date1, date2, file=fi,/nostr, box=asbox) 
    230230lhf=-1*reform(lhf) 
    231  
     231; 
    232232fi=project_id_env+'shf_ncep2_oafluxgrid_19890101_20091231.nc' 
    233233initncdf, fi 
    234 shf=read_ncdf("shf", date1, date2, file=fi,/nostr, box=asbox)  
     234shf=read_ncdf("shf", date1, date2, file=fi,/nostr, box=asbox) 
    235235shf=-1*reform(shf) 
    236  
     236; 
    237237nce2=swr+lwr+shf+lhf 
    238238help, nce2 
    239  
     239; 
    240240nce2=nce2(ind) 
    241241help, nce2 
    242 swr=0.  
    243 lwr=0.  
    244 shf=0.  
     242swr=0. 
     243lwr=0. 
     244shf=0. 
    245245lhf=0. 
    246  
     246; 
    247247file=project_id_env+"ncep1_flux_19890101_20091231.nc" 
    248248initncdf, file 
    249249swr=read_ncdf("swr", date1, date2, file=file,/nostr, box=asbox) 
    250250swr=reform(swr) 
    251 lwr=read_ncdf("lwr", date1, date2, file=file,/nostr, box=asbox)  
     251lwr=read_ncdf("lwr", date1, date2, file=file,/nostr, box=asbox) 
    252252lwr=reform(lwr) 
    253 lhf=read_ncdf("lhf", date1, date2, file=file,/nostr, box=asbox)  
     253lhf=read_ncdf("lhf", date1, date2, file=file,/nostr, box=asbox) 
    254254lhf=reform(lhf) 
    255 shf=read_ncdf("shf", date1, date2, file=file,/nostr, box=asbox)  
     255shf=read_ncdf("shf", date1, date2, file=file,/nostr, box=asbox) 
    256256shf=reform(shf) 
    257257nce1=swr+lwr+shf+lhf 
    258  
     258; 
    259259help, nce1 
    260  
     260; 
    261261nce1=nce1(ind) 
    262262help, nce1 
    263263;ind=where(finite(net)) 
    264 ;net=net(ind)  
    265 ;era=era(ind)  
    266 ;trop=trop(ind)  
    267 ;oaf=oaf(ind)  
    268 ;nce1=nce1(ind)  
     264;net=net(ind) 
     265;era=era(ind) 
     266;trop=trop(ind) 
     267;oaf=oaf(ind) 
     268;nce1=nce1(ind) 
    269269;nce2=nce2(ind) 
    270270;olr=olr(ind) 
    271  
     271; 
    272272statistics, net, era, $ 
    273273                 cor, bias, std, rmsd 
    274274print, cor, bias, std,  rmsd 
    275275cstat_era=string(cor, bias, std, rmsd, format='(f4.2,2x,f6.2,2x,f4.2,1x,f6.2)') 
    276  
     276; 
    277277statistics, net, trop, $ 
    278278                 cor, bias, std, rmsd 
    279279print, cor, bias, std,  rmsd 
    280280cstat_trop=string(cor, bias, std, rmsd, format='(f4.2,2x,f6.2,2x,f4.2,1x,f6.2)') 
    281  
     281; 
    282282statistics, net, oaf, $ 
    283283                 cor, bias, std, rmsd 
    284284print, cor, bias, std,  rmsd 
    285285cstat_oaf=string(cor, bias, std, rmsd, format='(f4.2,2x,f6.2,2x,f4.2,1x,f6.2)') 
    286  
     286; 
    287287statistics, net, nce1, $ 
    288288                 cor, bias, std, rmsd 
    289289print, cor, bias, std,  rmsd 
    290290cstat_nce1=string(cor, bias, std, rmsd, format='(f4.2,2x,f6.2,2x,f4.2,1x,f6.2)') 
    291  
     291; 
    292292statistics, net, nce2, $ 
    293293                 cor, bias, std, rmsd 
    294294print, cor, bias, std,  rmsd 
    295295cstat_nce2=string(cor, bias, std, rmsd, format='(f4.2,2x,f6.2,2x,f4.2,1x,f6.2)') 
    296  
     296; 
    297297statistics, net, olr, $ 
    298298                 cor, bias, std, rmsd 
    299299print, cor, bias, std,  rmsd 
    300300cstat_olr=string(cor, bias, std, rmsd, format='(f4.2,2x,f6.2,2x,f4.2,1x,f6.2)') 
    301  
     301; 
    302302splot, net, era, charsize=1.1, title='Net Flux - AS Vs ERAI', $ 
    303303     xrange=[-200,200], yrange=[-200,200], small=[2,3,1], psym=2, xmin=1, ymin=1 
    304304oplot, [-200,200], [-200,200] 
    305305xyouts, -150,-175, cstat_era, charsize=1. 
    306  
     306; 
    307307splot, net, trop, charsize=1.1, title='Net Flux - AS Vs TropFlux',/noer, $ 
    308308     xrange=[-200,200], yrange=[-200,200], small=[2,3,2], psym=2, xmin=1, ymin=1 
    309309oplot, [-200,200], [-200,200] 
    310310xyouts, -150,-175, cstat_trop, charsize=1. 
    311  
     311; 
    312312splot, net, oaf, charsize=1.1, title='Net Flux - AS Vs OAFlux',/noer, $ 
    313313     xrange=[-200,200], yrange=[-200,200], small=[2,3,3], psym=2, xmin=1, ymin=1 
    314314oplot, [-200,200], [-200,200] 
    315315xyouts, -150,-175, cstat_oaf, charsize=1. 
    316  
     316; 
    317317splot, net, nce1, charsize=1.1, title='Net Flux - AS Vs NCEP1',/noer, $ 
    318318     xrange=[-200,200], yrange=[-200,200], small=[2,3,4], psym=2, xmin=1, ymin=1 
    319319oplot, [-200,200], [-200,200] 
    320320xyouts, -150,-175, cstat_nce1, charsize=1. 
    321  
     321; 
    322322splot, net, nce2, charsize=1.1, title='Net Flux - AS Vs NCEP2',/noer, $ 
    323323     xrange=[-200,200], yrange=[-200,200], small=[2,3,5], psym=2, xmin=1, ymin=1 
    324324oplot, [-200,200], [-200,200] 
    325325xyouts, -150,-175, cstat_nce2, charsize=1. 
    326  
     326; 
    327327splot, net, olr, charsize=1.1, title='Net Flux - AS Vs TropFlux_NRT',/noer, $ 
    328328     xrange=[-200,200], yrange=[-200,200], small=[2,3,6], psym=2, xmin=1, ymin=1 
    329329oplot, [-200,200], [-200,200] 
    330330xyouts, -150,-175, cstat_olr, charsize=1. 
    331  
     331; 
    332332closeps 
     333; 
    333334end 

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

    r94 r97  
    9292key_portrait = 1 
    9393coefpalit=.9 
    94  
     94; 
    9595openps, FILENAME = project_od_env+"coare_validation_net_1992_93_all_v11.ps" 
    9696; partie a changer 
    97  
     97; 
    9898box=[155.5, 156.5, -2, -1] 
    99  
    100 ;; first leg 
    101 ;; start data - 11/11/92 and end date 03/12/92 
     99; 
     100; first leg 
     101; start data - 11/11/92 and end date 03/12/92 
    102102fi=project_id_env+"met_data_coare_expt_1992_p1.txt" 
    103103res=read_ascii(fi,data_start=1) 
    … …  
    108108lh92_1=reform(ff(5,*)) 
    109109sh92_1=reform(ff(6,*)) 
    110  
     110; 
    111111net1=sw92_1+lw92_1+lh92_1+sh92_1 
    112  
    113 st1=921111  
     112; 
     113st1=921111 
    114114en1=921203 
    115  
    116 ;; second leg 
    117  
     115; 
     116; second leg 
     117; 
    118118fi=project_id_env+"met_data_coare_expt_1992_p2.txt" 
    119119res=read_ascii(fi,data_start=1) 
    … …  
    123123lh92_2=reform(ff(5,*)) 
    124124sh92_2=reform(ff(6,*)) 
    125  
     125; 
    126126net2=sw92_2+lw92_2+lh92_2+sh92_2 
    127  
    128 ;; start data - 17/12/92 and end date 31/12/92 
    129 st2=19921217  
     127; 
     128; start data - 17/12/92 and end date 31/12/92 
     129st2=19921217 
    130130en2=19921231 
    131  
    132 ;; third leg 
    133  
     131; 
     132; third leg 
     133; 
    134134fi=project_id_env+"met_data_coare_expt_1993_p1.txt" 
    135135res=read_ascii(fi,data_start=1) 
    … …  
    139139lh93_1=reform(ff(5,*)) 
    140140sh93_1=reform(ff(6,*)) 
    141  
     141; 
    142142net3=sw93_1+lw93_1+lh93_1+sh93_1 
    143  
    144 ;; start data - 01/01/93 and end date 11/01/93 
    145 st3=19930101  
     143; 
     144; start data - 01/01/93 and end date 11/01/93 
     145st3=19930101 
    146146en3=19930111 
    147  
    148 ;; fourth leg 
    149  
     147; 
     148; fourth leg 
     149; 
    150150fi=project_id_env+"met_data_coare_expt_1993_p2.txt" 
    151151res=read_ascii(fi,data_start=1) 
    … …  
    155155lh93_2=reform(ff(5,*)) 
    156156sh93_2=reform(ff(6,*)) 
    157  
     157; 
    158158net4=sw93_2+lw93_2+lh93_2+sh93_2 
    159  
    160 ;; start data - 28/01/93 and end date 16/02/93 
    161 st4=19930128  
     159; 
     160; start data - 28/01/93 and end date 16/02/93 
     161st4=19930128 
    162162en4=19930216 
    163  
     163; 
    164164net=[net1, net2, net3, net4] 
    165165help, net 
    166  
    167 ;; reading other data sets 
    168  
    169 st1=19921111  
     166; 
     167; reading other data sets 
     168; 
     169st1=19921111 
    170170en1=19921203 
    171 st2=19921217  
     171st2=19921217 
    172172en2=19921231 
    173 st3=19930101  
     173st3=19930101 
    174174en3=19930111 
    175 st4=19930128  
     175st4=19930128 
    176176en4=19930216 
    177  
     177; 
    178178file=project_id_env+"erai_swr_19910101_20091231_oafluxgrid.nc" 
    179179initncdf, file 
    180 swr1=read_ncdf('swr',st1,en1,file=file,/nostr, box=box)  
    181 swr1=grossemoyenne(swr1, "xy", box=box,/nan)  
     180swr1=read_ncdf('swr',st1,en1,file=file,/nostr, box=box) 
     181swr1=grossemoyenne(swr1, "xy", box=box,/nan) 
    182182swr1=reform(swr1) 
    183 swr2=read_ncdf('swr',st2,en2,file=file,/nostr, box=box)  
    184 swr2=grossemoyenne(swr2, "xy", box=box,/nan)  
     183swr2=read_ncdf('swr',st2,en2,file=file,/nostr, box=box) 
     184swr2=grossemoyenne(swr2, "xy", box=box,/nan) 
    185185swr2=reform(swr2) 
    186 swr3=read_ncdf('swr',st3,en3,file=file,/nostr, box=box)  
    187 swr3=grossemoyenne(swr3, "xy", box=box,/nan)  
     186swr3=read_ncdf('swr',st3,en3,file=file,/nostr, box=box) 
     187swr3=grossemoyenne(swr3, "xy", box=box,/nan) 
    188188swr3=reform(swr3) 
    189 swr4=read_ncdf('swr',st4,en4,file=file,/nostr, box=box)  
    190 swr4=grossemoyenne(swr4, "xy", box=box,/nan)  
     189swr4=read_ncdf('swr',st4,en4,file=file,/nostr, box=box) 
     190swr4=grossemoyenne(swr4, "xy", box=box,/nan) 
    191191swr4=reform(swr4) 
    192  
     192; 
    193193file=project_id_env+'erai_lwr_19890101_20091231_oafluxgrid.nc' 
    194194initncdf, file 
    195 lwr1=read_ncdf('lwr',st1-1,en1,file=file,/nostr, box=box)  
    196 lwr1=grossemoyenne(lwr1, "xy", box=box,/nan)  
     195lwr1=read_ncdf('lwr',st1-1,en1,file=file,/nostr, box=box) 
     196lwr1=grossemoyenne(lwr1, "xy", box=box,/nan) 
    197197lwr1=reform(lwr1) 
    198 lwr2=read_ncdf('lwr',st2-1,en2,file=file,/nostr, box=box)  
    199 lwr2=grossemoyenne(lwr2, "xy", box=box,/nan)  
     198lwr2=read_ncdf('lwr',st2-1,en2,file=file,/nostr, box=box) 
     199lwr2=grossemoyenne(lwr2, "xy", box=box,/nan) 
    200200lwr2=reform(lwr2) 
    201 lwr3=read_ncdf('lwr',st3-1,en3,file=file,/nostr, box=box)  
    202 lwr3=grossemoyenne(lwr3, "xy", box=box,/nan)  
     201lwr3=read_ncdf('lwr',st3-1,en3,file=file,/nostr, box=box) 
     202lwr3=grossemoyenne(lwr3, "xy", box=box,/nan) 
    203203lwr3=reform(lwr3) 
    204 lwr4=read_ncdf('lwr',st4-1,en4,file=file,/nostr, box=box)  
    205 lwr4=grossemoyenne(lwr4, "xy", box=box,/nan)  
     204lwr4=read_ncdf('lwr',st4-1,en4,file=file,/nostr, box=box) 
     205lwr4=grossemoyenne(lwr4, "xy", box=box,/nan) 
    206206lwr4=reform(lwr4) 
    207  
     207; 
    208208file=project_id_env+'erai_lhf_19890101_20091231_oafluxgrid.nc' 
    209209initncdf, file 
    210 lhf1=-1*read_ncdf('lhf',st1,en1,file=file,/nostr, box=box)  
    211 lhf1=grossemoyenne(lhf1, "xy", box=box,/nan)  
     210lhf1=-1*read_ncdf('lhf',st1,en1,file=file,/nostr, box=box) 
     211lhf1=grossemoyenne(lhf1, "xy", box=box,/nan) 
    212212lhf1=reform(lhf1) 
    213 lhf2=-1*read_ncdf('lhf',st2,en2,file=file,/nostr, box=box)  
    214 lhf2=grossemoyenne(lhf2, "xy", box=box,/nan)  
     213lhf2=-1*read_ncdf('lhf',st2,en2,file=file,/nostr, box=box) 
     214lhf2=grossemoyenne(lhf2, "xy", box=box,/nan) 
    215215lhf2=reform(lhf2) 
    216 lhf3=-1*read_ncdf('lhf',st3,en3,file=file,/nostr, box=box)  
    217 lhf3=grossemoyenne(lhf3, "xy", box=box,/nan)  
     216lhf3=-1*read_ncdf('lhf',st3,en3,file=file,/nostr, box=box) 
     217lhf3=grossemoyenne(lhf3, "xy", box=box,/nan) 
    218218lhf3=reform(lhf3) 
    219 lhf4=-1*read_ncdf('lhf',st4,en4,file=file,/nostr, box=box)  
    220 lhf4=grossemoyenne(lhf4, "xy", box=box,/nan)  
     219lhf4=-1*read_ncdf('lhf',st4,en4,file=file,/nostr, box=box) 
     220lhf4=grossemoyenne(lhf4, "xy", box=box,/nan) 
    221221lhf4=reform(lhf4) 
    222  
     222; 
    223223file=project_id_env+'erai_shf_19890101_20091231_oafluxgrid.nc' 
    224224initncdf, file 
    225 shf1=-1*read_ncdf('shf',st1,en1,file=file,/nostr, box=box)  
    226 shf1=grossemoyenne(shf1, "xy", box=box,/nan)  
     225shf1=-1*read_ncdf('shf',st1,en1,file=file,/nostr, box=box) 
     226shf1=grossemoyenne(shf1, "xy", box=box,/nan) 
    227227shf1=reform(shf1) 
    228 shf2=-1*read_ncdf('shf',st2,en2,file=file,/nostr, box=box)  
    229 shf2=grossemoyenne(shf2, "xy", box=box,/nan)  
     228shf2=-1*read_ncdf('shf',st2,en2,file=file,/nostr, box=box) 
     229shf2=grossemoyenne(shf2, "xy", box=box,/nan) 
    230230shf2=reform(shf2) 
    231 shf3=-1*read_ncdf('shf',st3,en3,file=file,/nostr, box=box)  
    232 shf3=grossemoyenne(shf3, "xy", box=box,/nan)  
     231shf3=-1*read_ncdf('shf',st3,en3,file=file,/nostr, box=box) 
     232shf3=grossemoyenne(shf3, "xy", box=box,/nan) 
    233233shf3=reform(shf3) 
    234 shf4=-1*read_ncdf('shf',st4,en4,file=file,/nostr, box=box)  
    235 shf4=grossemoyenne(shf4, "xy", box=box,/nan)  
     234shf4=-1*read_ncdf('shf',st4,en4,file=file,/nostr, box=box) 
     235shf4=grossemoyenne(shf4, "xy", box=box,/nan) 
    236236shf4=reform(shf4) 
    237  
    238 net1=swr1+lwr1+lhf1+shf1  
     237; 
     238net1=swr1+lwr1+lhf1+shf1 
    239239net2=swr2+lwr2+lhf2+shf2 
    240 net3=swr3+lwr3+lhf3+shf3  
     240net3=swr3+lwr3+lhf3+shf3 
    241241net4=swr4+lwr4+lhf4+shf4 
    242242era=[net1,net2,net3,net4] 
    243  
     243; 
    244244help, era 
    245 swr1=0  
    246 swr2=0  
    247 swr3=0  
    248 swr4=0  
    249 lwr1=0  
    250 lwr2=0  
    251 lwr3=0  
     245swr1=0 
     246swr2=0 
     247swr3=0 
     248swr4=0 
     249lwr1=0 
     250lwr2=0 
     251lwr3=0 
    252252lwr4=0 
    253 lhf1=0  
    254 lhf2=0  
    255 lhf3=0  
    256 lhf4=0  
    257 shf1=0  
    258 shf2=0  
    259 shf3=0  
     253lhf1=0 
     254lhf2=0 
     255lhf3=0 
     256lhf4=0 
     257shf1=0 
     258shf2=0 
     259shf3=0 
    260260shf4=0 
    261 net1=0  
    262 net2=0  
    263 net3=0  
     261net1=0 
     262net2=0 
     263net3=0 
    264264net4=0 
    265  
     265; 
    266266file=project_id_env+"TropFlux_19890101_20091231.nc" 
    267267initncdf, file 
    268 swr1=read_ncdf('swr',st1,en1,file=file,/nostr, box=box)  
    269 swr1=grossemoyenne(swr1, "xy",/nan, box=box)  
     268swr1=read_ncdf('swr',st1,en1,file=file,/nostr, box=box) 
     269swr1=grossemoyenne(swr1, "xy",/nan, box=box) 
    270270swr1=reform(swr1) 
    271 swr2=read_ncdf('swr',st2,en2,file=file,/nostr, box=box)  
    272 swr2=grossemoyenne(swr2, "xy",/nan, box=box)  
     271swr2=read_ncdf('swr',st2,en2,file=file,/nostr, box=box) 
     272swr2=grossemoyenne(swr2, "xy",/nan, box=box) 
    273273swr2=reform(swr2) 
    274 swr3=read_ncdf('swr',st3,en3,file=file,/nostr, box=box)  
    275 swr3=grossemoyenne(swr3, "xy",/nan, box=box)  
     274swr3=read_ncdf('swr',st3,en3,file=file,/nostr, box=box) 
     275swr3=grossemoyenne(swr3, "xy",/nan, box=box) 
    276276swr3=reform(swr3) 
    277 swr4=read_ncdf('swr',st4,en4,file=file,/nostr, box=box)  
    278 swr4=grossemoyenne(swr4, "xy",/nan, box=box)  
     277swr4=read_ncdf('swr',st4,en4,file=file,/nostr, box=box) 
     278swr4=grossemoyenne(swr4, "xy",/nan, box=box) 
    279279swr4=reform(swr4) 
    280  
    281 lwr1=read_ncdf('lwr',st1,en1,file=file,/nostr, box=box)  
    282 lwr1=grossemoyenne(lwr1, "xy",/nan, box=box)  
     280; 
     281lwr1=read_ncdf('lwr',st1,en1,file=file,/nostr, box=box) 
     282lwr1=grossemoyenne(lwr1, "xy",/nan, box=box) 
    283283lwr1=reform(lwr1) 
    284 lwr2=read_ncdf('lwr',st2,en2,file=file,/nostr, box=box)  
    285 lwr2=grossemoyenne(lwr2, "xy",/nan, box=box)  
     284lwr2=read_ncdf('lwr',st2,en2,file=file,/nostr, box=box) 
     285lwr2=grossemoyenne(lwr2, "xy",/nan, box=box) 
    286286lwr2=reform(lwr2) 
    287 lwr3=read_ncdf('lwr',st3,en3,file=file,/nostr, box=box)  
    288 lwr3=grossemoyenne(lwr3, "xy",/nan, box=box)  
     287lwr3=read_ncdf('lwr',st3,en3,file=file,/nostr, box=box) 
     288lwr3=grossemoyenne(lwr3, "xy",/nan, box=box) 
    289289lwr3=reform(lwr3) 
    290 lwr4=read_ncdf('lwr',st4,en4,file=file,/nostr, box=box)  
    291 lwr4=grossemoyenne(lwr4, "xy",/nan, box=box)  
     290lwr4=read_ncdf('lwr',st4,en4,file=file,/nostr, box=box) 
     291lwr4=grossemoyenne(lwr4, "xy",/nan, box=box) 
    292292lwr4=reform(lwr4) 
    293  
    294 lhf1=read_ncdf('lhf',st1,en1,file=file,/nostr, box=box)  
    295 lhf1=grossemoyenne(lhf1, "xy",/nan, box=box)  
     293; 
     294lhf1=read_ncdf('lhf',st1,en1,file=file,/nostr, box=box) 
     295lhf1=grossemoyenne(lhf1, "xy",/nan, box=box) 
    296296lhf1=reform(lhf1) 
    297 lhf2=read_ncdf('lhf',st2,en2,file=file,/nostr, box=box)  
    298 lhf2=grossemoyenne(lhf2, "xy",/nan, box=box)  
     297lhf2=read_ncdf('lhf',st2,en2,file=file,/nostr, box=box) 
     298lhf2=grossemoyenne(lhf2, "xy",/nan, box=box) 
    299299lhf2=reform(lhf2) 
    300 lhf3=read_ncdf('lhf',st3,en3,file=file,/nostr, box=box)  
    301 lhf3=grossemoyenne(lhf3, "xy",/nan, box=box)  
     300lhf3=read_ncdf('lhf',st3,en3,file=file,/nostr, box=box) 
     301lhf3=grossemoyenne(lhf3, "xy",/nan, box=box) 
    302302lhf3=reform(lhf3) 
    303 lhf4=read_ncdf('lhf',st4,en4,file=file,/nostr, box=box)  
    304 lhf4=grossemoyenne(lhf4, "xy",/nan, box=box)  
     303lhf4=read_ncdf('lhf',st4,en4,file=file,/nostr, box=box) 
     304lhf4=grossemoyenne(lhf4, "xy",/nan, box=box) 
    305305lhf4=reform(lhf4) 
    306  
    307 shf1=read_ncdf('shf',st1,en1,file=file,/nostr, box=box)  
    308 shf1=grossemoyenne(shf1, "xy",/nan, box=box)  
     306; 
     307shf1=read_ncdf('shf',st1,en1,file=file,/nostr, box=box) 
     308shf1=grossemoyenne(shf1, "xy",/nan, box=box) 
    309309shf1=reform(shf1) 
    310 shf2=read_ncdf('shf',st2,en2,file=file,/nostr, box=box)  
    311 shf2=grossemoyenne(shf2, "xy",/nan, box=box)  
     310shf2=read_ncdf('shf',st2,en2,file=file,/nostr, box=box) 
     311shf2=grossemoyenne(shf2, "xy",/nan, box=box) 
    312312shf2=reform(shf2) 
    313 shf3=read_ncdf('shf',st3,en3,file=file,/nostr, box=box)  
    314 shf3=grossemoyenne(shf3, "xy",/nan, box=box)  
     313shf3=read_ncdf('shf',st3,en3,file=file,/nostr, box=box) 
     314shf3=grossemoyenne(shf3, "xy",/nan, box=box) 
    315315shf3=reform(shf3) 
    316 shf4=read_ncdf('shf',st4,en4,file=file,/nostr, box=box)  
    317 shf4=grossemoyenne(shf4, "xy",/nan, box=box)  
     316shf4=read_ncdf('shf',st4,en4,file=file,/nostr, box=box) 
     317shf4=grossemoyenne(shf4, "xy",/nan, box=box) 
    318318shf4=reform(shf4) 
    319  
    320 net1=swr1+lwr1+lhf1+shf1  
     319; 
     320net1=swr1+lwr1+lhf1+shf1 
    321321net2=swr2+lwr2+lhf2+shf2 
    322 net3=swr3+lwr3+lhf3+shf3  
     322net3=swr3+lwr3+lhf3+shf3 
    323323net4=swr4+lwr4+lhf4+shf4 
    324  
     324; 
    325325file=project_id_env+"TropFlux_swr_19890101_20091231_NRT_v50.nc" 
    326326initncdf, file 
    327 olr1=read_ncdf("sw", st1-1, en1, file=file,/nostr, box=box)  
    328 olr1=grossemoyenne(olr1, "xy",/nan, box=box)  
     327olr1=read_ncdf("sw", st1-1, en1, file=file,/nostr, box=box) 
     328olr1=grossemoyenne(olr1, "xy",/nan, box=box) 
    329329olr1=reform(olr1) 
    330 olr2=read_ncdf("sw", st2-1, en2, file=file,/nostr, box=box)  
    331 olr2=grossemoyenne(olr2, "xy",/nan, box=box)  
     330olr2=read_ncdf("sw", st2-1, en2, file=file,/nostr, box=box) 
     331olr2=grossemoyenne(olr2, "xy",/nan, box=box) 
    332332olr2=reform(olr2) 
    333 olr3=read_ncdf("sw", st3-1, en3, file=file,/nostr, box=box)  
    334 olr3=grossemoyenne(olr3, "xy",/nan, box=box)  
     333olr3=read_ncdf("sw", st3-1, en3, file=file,/nostr, box=box) 
     334olr3=grossemoyenne(olr3, "xy",/nan, box=box) 
    335335olr3=reform(olr3) 
    336 olr4=read_ncdf("sw", st4-1, en4, file=file,/nostr, box=box)  
    337 olr4=grossemoyenne(olr4, "xy",/nan, box=box)  
     336olr4=read_ncdf("sw", st4-1, en4, file=file,/nostr, box=box) 
     337olr4=grossemoyenne(olr4, "xy",/nan, box=box) 
    338338olr4=reform(olr4) 
    339  
    340 neto_1=olr1+lwr1+lhf1+shf1  
     339; 
     340neto_1=olr1+lwr1+lhf1+shf1 
    341341neto_2=olr2+lwr2+lhf2+shf2 
    342 neto_3=olr3+lwr3+lhf3+shf3  
     342neto_3=olr3+lwr3+lhf3+shf3 
    343343neto_4=olr4+lwr4+lhf4+shf4 
    344  
     344; 
    345345trop=[net1,net2,net3,net4] 
    346346olr=[neto_1,neto_2,neto_3,neto_4] 
    347347help, trop, olr 
    348  
    349 swr1=0  
    350 swr2=0  
    351 swr3=0  
    352 swr4=0  
    353 lwr1=0  
    354 lwr2=0  
    355 lwr3=0  
     348; 
     349swr1=0 
     350swr2=0 
     351swr3=0 
     352swr4=0 
     353lwr1=0 
     354lwr2=0 
     355lwr3=0 
    356356lwr4=0 
    357 lhf1=0  
    358 lhf2=0  
    359 lhf3=0  
    360 lhf4=0  
    361 shf1=0  
    362 shf2=0  
    363 shf3=0  
     357lhf1=0 
     358lhf2=0 
     359lhf3=0 
     360lhf4=0 
     361shf1=0 
     362shf2=0 
     363shf3=0 
    364364shf4=0 
    365 net1=0  
    366 net2=0  
    367 net3=0  
    368 net4=0  
    369 neto_1=0  
    370 neto_2=0  
    371 neto_3=0  
     365net1=0 
     366net2=0 
     367net3=0 
     368net4=0 
     369neto_1=0 
     370neto_2=0 
     371neto_3=0 
    372372neto_4=0 
    373  
     373; 
    374374file=project_id_env+'swr_oafluxgrid_1985_2007.nc' 
    375375initncdf, file 
    376 swr1=read_ncdf("swr", st1, en1, file=file,/nostr, box=box)  
    377 swr1=grossemoyenne(swr1, "xy",/nan, box=box)  
     376swr1=read_ncdf("swr", st1, en1, file=file,/nostr, box=box) 
     377swr1=grossemoyenne(swr1, "xy",/nan, box=box) 
    378378swr1=reform(swr1) 
    379 swr2=read_ncdf("swr", st2, en2, file=file,/nostr, box=box)  
    380 swr2=grossemoyenne(swr2, "xy",/nan, box=box)  
     379swr2=read_ncdf("swr", st2, en2, file=file,/nostr, box=box) 
     380swr2=grossemoyenne(swr2, "xy",/nan, box=box) 
    381381swr2=reform(swr2) 
    382 swr3=read_ncdf("swr", st3, en3, file=file,/nostr, box=box)  
    383 swr3=grossemoyenne(swr3, "xy",/nan, box=box)  
     382swr3=read_ncdf("swr", st3, en3, file=file,/nostr, box=box) 
     383swr3=grossemoyenne(swr3, "xy",/nan, box=box) 
    384384swr3=reform(swr3) 
    385 swr4=read_ncdf("swr", st4, en4, file=file,/nostr, box=box)  
    386 swr4=grossemoyenne(swr4, "xy",/nan, box=box)  
     385swr4=read_ncdf("swr", st4, en4, file=file,/nostr, box=box) 
     386swr4=grossemoyenne(swr4, "xy",/nan, box=box) 
    387387swr4=reform(swr4) 
    388  
     388; 
    389389file=project_id_env+'lwr_oafluxgrid_1985_2007.nc' 
    390390initncdf, file 
    391 lwr1=-1*read_ncdf("lwr", st1, en1, file=file,/nostr, box=box)  
    392 lwr1=grossemoyenne(lwr1, "xy",/nan, box=box)  
     391lwr1=-1*read_ncdf("lwr", st1, en1, file=file,/nostr, box=box) 
     392lwr1=grossemoyenne(lwr1, "xy",/nan, box=box) 
    393393lwr1=reform(lwr1) 
    394 lwr2=-1*read_ncdf("lwr", st2, en2, file=file,/nostr, box=box)  
    395 lwr2=grossemoyenne(lwr2, "xy",/nan, box=box)  
     394lwr2=-1*read_ncdf("lwr", st2, en2, file=file,/nostr, box=box) 
     395lwr2=grossemoyenne(lwr2, "xy",/nan, box=box) 
    396396lwr2=reform(lwr2) 
    397 lwr3=-1*read_ncdf("lwr", st3, en3, file=file,/nostr, box=box)  
    398 lwr3=grossemoyenne(lwr3, "xy",/nan, box=box)  
     397lwr3=-1*read_ncdf("lwr", st3, en3, file=file,/nostr, box=box) 
     398lwr3=grossemoyenne(lwr3, "xy",/nan, box=box) 
    399399lwr3=reform(lwr3) 
    400 lwr4=-1*read_ncdf("lwr", st4, en4, file=file,/nostr, box=box)  
    401 lwr4=grossemoyenne(lwr4, "xy",/nan, box=box)  
     400lwr4=-1*read_ncdf("lwr", st4, en4, file=file,/nostr, box=box) 
     401lwr4=grossemoyenne(lwr4, "xy",/nan, box=box) 
    402402lwr4=reform(lwr4) 
    403  
     403; 
    404404file=project_id_env+'lhf_oafluxgrid_1985_2009.nc' 
    405405initncdf, file 
    406 lhf1=-1*read_ncdf("lhf", st1, en1, file=file,/nostr, box=box)  
    407 lhf1=grossemoyenne(lhf1, "xy",/nan, box=box)  
     406lhf1=-1*read_ncdf("lhf", st1, en1, file=file,/nostr, box=box) 
     407lhf1=grossemoyenne(lhf1, "xy",/nan, box=box) 
    408408lhf1=reform(lhf1) 
    409 lhf2=-1*read_ncdf("lhf", st2, en2, file=file,/nostr, box=box)  
    410 lhf2=grossemoyenne(lhf2, "xy",/nan, box=box)  
     409lhf2=-1*read_ncdf("lhf", st2, en2, file=file,/nostr, box=box) 
     410lhf2=grossemoyenne(lhf2, "xy",/nan, box=box) 
    411411lhf2=reform(lhf2) 
    412 lhf3=-1*read_ncdf("lhf", st3, en3, file=file,/nostr, box=box)  
     412lhf3=-1*read_ncdf("lhf", st3, en3, file=file,/nostr, box=box) 
    413413lhf3=grossemoyenne(lhf3, "xy",/nan, box=box) 
    414414lhf3=reform(lhf3) 
    415 lhf4=-1*read_ncdf("lhf", st4, en4, file=file,/nostr, box=box)  
    416 lhf4=grossemoyenne(lhf4, "xy",/nan, box=box)  
     415lhf4=-1*read_ncdf("lhf", st4, en4, file=file,/nostr, box=box) 
     416lhf4=grossemoyenne(lhf4, "xy",/nan, box=box) 
    417417lhf4=reform(lhf4) 
    418  
     418; 
    419419file=project_id_env+'shf_oafluxgrid_1985_2009.nc' 
    420420initncdf, file 
    421 shf1=-1*read_ncdf("shf", st1, en1, file=file,/nostr, box=box)  
    422 shf1=grossemoyenne(shf1, "xy",/nan, box=box)  
     421shf1=-1*read_ncdf("shf", st1, en1, file=file,/nostr, box=box) 
     422shf1=grossemoyenne(shf1, "xy",/nan, box=box) 
    423423shf1=reform(shf1) 
    424 shf2=-1*read_ncdf("shf", st2, en2, file=file,/nostr, box=box)  
    425 shf2=grossemoyenne(shf2, "xy",/nan, box=box)  
     424shf2=-1*read_ncdf("shf", st2, en2, file=file,/nostr, box=box) 
     425shf2=grossemoyenne(shf2, "xy",/nan, box=box) 
    426426shf2=reform(shf2) 
    427 shf3=-1*read_ncdf("shf", st3, en3, file=file,/nostr, box=box)  
    428 shf3=grossemoyenne(shf3, "xy",/nan, box=box)  
     427shf3=-1*read_ncdf("shf", st3, en3, file=file,/nostr, box=box) 
     428shf3=grossemoyenne(shf3, "xy",/nan, box=box) 
    429429shf3=reform(shf3) 
    430 shf4=-1*read_ncdf("shf", st4, en4, file=file,/nostr, box=box)  
    431 shf4=grossemoyenne(shf4, "xy",/nan, box=box)  
     430shf4=-1*read_ncdf("shf", st4, en4, file=file,/nostr, box=box) 
     431shf4=grossemoyenne(shf4, "xy",/nan, box=box) 
    432432shf4=reform(shf4) 
    433  
    434 net1=swr1+lwr1+lhf1+shf1  
     433; 
     434net1=swr1+lwr1+lhf1+shf1 
    435435net2=swr2+lwr2+lhf2+shf2 
    436 net3=swr3+lwr3+lhf3+shf3  
     436net3=swr3+lwr3+lhf3+shf3 
    437437net4=swr4+lwr4+lhf4+shf4 
    438  
     438; 
    439439oaf=[net1,net2,net3,net4] 
    440  
     440; 
    441441help, oaf 
    442 swr1=0  
    443 swr2=0  
    444 swr3=0  
    445 swr4=0  
    446 lwr1=0  
    447 lwr2=0  
    448 lwr3=0  
     442swr1=0 
     443swr2=0 
     444swr3=0 
     445swr4=0 
     446lwr1=0 
     447lwr2=0 
     448lwr3=0 
    449449lwr4=0 
    450 lhf1=0  
    451 lhf2=0  
    452 lhf3=0  
    453 lhf4=0  
    454 shf1=0  
    455 shf2=0  
     450lhf1=0 
     451lhf2=0 
     452lhf3=0 
     453lhf4=0 
     454shf1=0 
     455shf2=0 
    456456shf3=0 
    457457shf4=0 
    458 net1=0  
    459 net2=0  
    460 net3=0  
     458net1=0 
     459net2=0 
     460net3=0 
    461461net4=0 
    462  
     462; 
    463463fi=project_id_env+'swr_ncep2_oaflxgrid_19890101_20091231.nc' 
    464464initncdf, fi 
    465 swr1=read_ncdf("swr", st1, en1, file=fi,/nostr, box=box)  
    466 swr1=grossemoyenne(swr1, "xy",/nan, box=box)  
     465swr1=read_ncdf("swr", st1, en1, file=fi,/nostr, box=box) 
     466swr1=grossemoyenne(swr1, "xy",/nan, box=box) 
    467467swr1=reform(swr1) 
    468 swr2=read_ncdf("swr", st2, en2, file=fi,/nostr, box=box)  
    469 swr2=grossemoyenne(swr2, "xy",/nan, box=box)  
     468swr2=read_ncdf("swr", st2, en2, file=fi,/nostr, box=box) 
     469swr2=grossemoyenne(swr2, "xy",/nan, box=box) 
    470470swr2=reform(swr2) 
    471 swr3=read_ncdf("swr", st3, en3, file=fi,/nostr, box=box)  
    472 swr3=grossemoyenne(swr3, "xy",/nan, box=box)  
     471swr3=read_ncdf("swr", st3, en3, file=fi,/nostr, box=box) 
     472swr3=grossemoyenne(swr3, "xy",/nan, box=box) 
    473473swr3=reform(swr3) 
    474 swr4=read_ncdf("swr", st4, en4, file=fi,/nostr, box=box)  
    475 swr4=grossemoyenne(swr4, "xy",/nan, box=box)  
     474swr4=read_ncdf("swr", st4, en4, file=fi,/nostr, box=box) 
     475swr4=grossemoyenne(swr4, "xy",/nan, box=box) 
    476476swr4=reform(swr4) 
    477  
     477; 
    478478fi=project_id_env+"NCEP2_flux_19890101_20090729.nc" 
    479479initncdf, fi 
    480 lwr1=-1*read_ncdf("lwr", st1, en1, file=fi,/nostr, box=box)  
    481 lwr1=grossemoyenne(lwr1, "xy",/nan, box=box)  
     480lwr1=-1*read_ncdf("lwr", st1, en1, file=fi,/nostr, box=box) 
     481lwr1=grossemoyenne(lwr1, "xy",/nan, box=box) 
    482482lwr1=reform(lwr1) 
    483 lwr2=-1*read_ncdf("lwr", st2, en2, file=fi,/nostr, box=box)  
    484 lwr2=grossemoyenne(lwr2, "xy",/nan, box=box)  
     483lwr2=-1*read_ncdf("lwr", st2, en2, file=fi,/nostr, box=box) 
     484lwr2=grossemoyenne(lwr2, "xy",/nan, box=box) 
    485485lwr2=reform(lwr2) 
    486 lwr3=-1*read_ncdf("lwr", st3, en3, file=fi,/nostr, box=box)  
    487 lwr3=grossemoyenne(lwr3, "xy",/nan, box=box)  
     486lwr3=-1*read_ncdf("lwr", st3, en3, file=fi,/nostr, box=box) 
     487lwr3=grossemoyenne(lwr3, "xy",/nan, box=box) 
    488488lwr3=reform(lwr3) 
    489 lwr4=-1*read_ncdf("lwr", st4, en4, file=fi,/nostr, box=box)  
    490 lwr4=grossemoyenne(lwr4, "xy",/nan, box=box)  
     489lwr4=-1*read_ncdf("lwr", st4, en4, file=fi,/nostr, box=box) 
     490lwr4=grossemoyenne(lwr4, "xy",/nan, box=box) 
    491491lwr4=reform(lwr4) 
    492  
     492; 
    493493fi=project_id_env+'lhf_ncep2_oafluxgrid_19890101_20091231.nc' 
    494494initncdf, fi 
    495 lhf1=-1*read_ncdf("lhf", st1, en1, file=fi,/nostr, box=box)  
    496 lhf1=grossemoyenne(lhf1, "xy",/nan, box=box)  
     495lhf1=-1*read_ncdf("lhf", st1, en1, file=fi,/nostr, box=box) 
     496lhf1=grossemoyenne(lhf1, "xy",/nan, box=box) 
    497497lhf1=reform(lhf1) 
    498 lhf2=-1*read_ncdf("lhf", st2, en2, file=fi,/nostr, box=box)  
    499 lhf2=grossemoyenne(lhf2, "xy",/nan, box=box)  
     498lhf2=-1*read_ncdf("lhf", st2, en2, file=fi,/nostr, box=box) 
     499lhf2=grossemoyenne(lhf2, "xy",/nan, box=box) 
    500500lhf2=reform(lhf2) 
    501 lhf3=-1*read_ncdf("lhf", st3, en3, file=fi,/nostr, box=box)  
    502 lhf3=grossemoyenne(lhf3, "xy",/nan, box=box)  
     501lhf3=-1*read_ncdf("lhf", st3, en3, file=fi,/nostr, box=box) 
     502lhf3=grossemoyenne(lhf3, "xy",/nan, box=box) 
    503503lhf3=reform(lhf3) 
    504 lhf4=-1*read_ncdf("lhf", st4, en4, file=fi,/nostr, box=box)  
    505 lhf4=grossemoyenne(lhf4, "xy",/nan, box=box)  
     504lhf4=-1*read_ncdf("lhf", st4, en4, file=fi,/nostr, box=box) 
     505lhf4=grossemoyenne(lhf4, "xy",/nan, box=box) 
    506506lhf4=reform(lhf4) 
    507  
     507; 
    508508fi=project_id_env+'shf_ncep2_oafluxgrid_19890101_20091231.nc' 
    509509initncdf, fi 
    510 shf1=-1*read_ncdf("shf", st1, en1, file=fi,/nostr, box=box)  
    511 shf1=grossemoyenne(shf1, "xy",/nan, box=box)  
     510shf1=-1*read_ncdf("shf", st1, en1, file=fi,/nostr, box=box) 
     511shf1=grossemoyenne(shf1, "xy",/nan, box=box) 
    512512shf1=reform(shf1) 
    513 shf2=-1*read_ncdf("shf", st2, en2, file=fi,/nostr, box=box)  
    514 shf2=grossemoyenne(shf2, "xy",/nan, box=box)  
     513shf2=-1*read_ncdf("shf", st2, en2, file=fi,/nostr, box=box) 
     514shf2=grossemoyenne(shf2, "xy",/nan, box=box) 
    515515shf2=reform(shf2) 
    516 shf3=-1*read_ncdf("shf", st3, en3, file=fi,/nostr, box=box)  
    517 shf3=grossemoyenne(shf3, "xy",/nan, box=box)  
     516shf3=-1*read_ncdf("shf", st3, en3, file=fi,/nostr, box=box) 
     517shf3=grossemoyenne(shf3, "xy",/nan, box=box) 
    518518shf3=reform(shf3) 
    519 shf4=-1*read_ncdf("shf", st4, en4, file=fi,/nostr, box=box)  
    520 shf4=grossemoyenne(shf4, "xy",/nan, box=box)  
     519shf4=-1*read_ncdf("shf", st4, en4, file=fi,/nostr, box=box) 
     520shf4=grossemoyenne(shf4, "xy",/nan, box=box) 
    521521shf4=reform(shf4) 
    522  
    523 net1=swr1+lwr1+lhf1+shf1  
     522; 
     523net1=swr1+lwr1+lhf1+shf1 
    524524net2=swr2+lwr2+lhf2+shf2 
    525 net3=swr3+lwr3+lhf3+shf3  
     525net3=swr3+lwr3+lhf3+shf3 
    526526net4=swr4+lwr4+lhf4+shf4 
    527  
     527; 
    528528nce2=[net1,net2,net3,net4] 
    529  
     529; 
    530530help, nce2 
    531 swr1=0  
    532 swr2=0  
    533 swr3=0  
    534 swr4=0  
    535 lwr1=0  
    536 lwr2=0  
    537 lwr3=0  
     531swr1=0 
     532swr2=0 
     533swr3=0 
     534swr4=0 
     535lwr1=0 
     536lwr2=0 
     537lwr3=0 
    538538lwr4=0 
    539 lhf1=0  
    540 lhf2=0  
    541 lhf3=0  
    542 lhf4=0  
    543 shf1=0  
    544 shf2=0  
    545 shf3=0  
     539lhf1=0 
     540lhf2=0 
     541lhf3=0 
     542lhf4=0 
     543shf1=0 
     544shf2=0 
     545shf3=0 
    546546shf4=0 
    547 net1=0  
    548 net2=0  
    549 net3=0  
     547net1=0 
     548net2=0 
     549net3=0 
    550550net4=0 
    551  
     551; 
    552552file=project_id_env+"ncep1_flux_19890101_20091231.nc" 
    553553initncdf, file 
    554 swr1=read_ncdf("swr", st1, en1, file=file,/nostr, box=box)  
    555 swr1=grossemoyenne(swr1, "xy",/nan, box=box)  
     554swr1=read_ncdf("swr", st1, en1, file=file,/nostr, box=box) 
     555swr1=grossemoyenne(swr1, "xy",/nan, box=box) 
    556556swr1=reform(swr1) 
    557 swr2=read_ncdf("swr", st2, en2, file=file,/nostr, box=box)  
    558 swr2=grossemoyenne(swr2, "xy",/nan, box=box)  
     557swr2=read_ncdf("swr", st2, en2, file=file,/nostr, box=box) 
     558swr2=grossemoyenne(swr2, "xy",/nan, box=box) 
    559559swr2=reform(swr2) 
    560 swr3=read_ncdf("swr", st3, en3, file=file,/nostr, box=box)  
    561 swr3=grossemoyenne(swr3, "xy",/nan, box=box)  
     560swr3=read_ncdf("swr", st3, en3, file=file,/nostr, box=box) 
     561swr3=grossemoyenne(swr3, "xy",/nan, box=box) 
    562562swr3=reform(swr3) 
    563 swr4=read_ncdf("swr", st4, en4, file=file,/nostr, box=box)  
    564 swr4=grossemoyenne(swr4, "xy",/nan, box=box)  
     563swr4=read_ncdf("swr", st4, en4, file=file,/nostr, box=box) 
     564swr4=grossemoyenne(swr4, "xy",/nan, box=box) 
    565565swr4=reform(swr4) 
    566  
    567 lwr1=read_ncdf("lwr", st1, en1, file=file,/nostr, box=box)  
    568 lwr1=grossemoyenne(lwr1, "xy",/nan, box=box)  
     566; 
     567lwr1=read_ncdf("lwr", st1, en1, file=file,/nostr, box=box) 
     568lwr1=grossemoyenne(lwr1, "xy",/nan, box=box) 
    569569lwr1=reform(lwr1) 
    570 lwr2=read_ncdf("lwr", st2, en2, file=file,/nostr, box=box)  
    571 lwr2=grossemoyenne(lwr2, "xy",/nan, box=box)  
     570lwr2=read_ncdf("lwr", st2, en2, file=file,/nostr, box=box) 
     571lwr2=grossemoyenne(lwr2, "xy",/nan, box=box) 
    572572lwr2=reform(lwr2) 
    573 lwr3=read_ncdf("lwr", st3, en3, file=file,/nostr, box=box)  
    574 lwr3=grossemoyenne(lwr3, "xy",/nan, box=box)  
     573lwr3=read_ncdf("lwr", st3, en3, file=file,/nostr, box=box) 
     574lwr3=grossemoyenne(lwr3, "xy",/nan, box=box) 
    575575lwr3=reform(lwr3) 
    576 lwr4=read_ncdf("lwr", st4, en4, file=file,/nostr, box=box)  
    577 lwr4=grossemoyenne(lwr4, "xy",/nan, box=box)  
     576lwr4=read_ncdf("lwr", st4, en4, file=file,/nostr, box=box) 
     577lwr4=grossemoyenne(lwr4, "xy",/nan, box=box) 
    578578lwr4=reform(lwr4) 
    579  
    580 lhf1=read_ncdf("lhf", st1, en1, file=file,/nostr, box=box)  
    581 lhf1=grossemoyenne(lhf1, "xy",/nan, box=box)  
     579; 
     580lhf1=read_ncdf("lhf", st1, en1, file=file,/nostr, box=box) 
     581lhf1=grossemoyenne(lhf1, "xy",/nan, box=box) 
    582582lhf1=reform(lhf1) 
    583 lhf2=read_ncdf("lhf", st2, en2, file=file,/nostr, box=box)  
    584 lhf2=grossemoyenne(lhf2, "xy",/nan, box=box)  
     583lhf2=read_ncdf("lhf", st2, en2, file=file,/nostr, box=box) 
     584lhf2=grossemoyenne(lhf2, "xy",/nan, box=box) 
    585585lhf2=reform(lhf2) 
    586 lhf3=read_ncdf("lhf", st3, en3, file=file,/nostr, box=box)  
    587 lhf3=grossemoyenne(lhf3, "xy",/nan, box=box)  
     586lhf3=read_ncdf("lhf", st3, en3, file=file,/nostr, box=box) 
     587lhf3=grossemoyenne(lhf3, "xy",/nan, box=box) 
    588588lhf3=reform(lhf3) 
    589 lhf4=read_ncdf("lhf", st4, en4, file=file,/nostr, box=box)  
    590 lhf4=grossemoyenne(lhf4, "xy",/nan, box=box)  
     589lhf4=read_ncdf("lhf", st4, en4, file=file,/nostr, box=box) 
     590lhf4=grossemoyenne(lhf4, "xy",/nan, box=box) 
    591591lhf4=reform(lhf4) 
    592  
    593 shf1=read_ncdf("shf", st1, en1, file=file,/nostr, box=box)  
    594 shf1=grossemoyenne(shf1, "xy",/nan, box=box)  
     592; 
     593shf1=read_ncdf("shf", st1, en1, file=file,/nostr, box=box) 
     594shf1=grossemoyenne(shf1, "xy",/nan, box=box) 
    595595shf1=reform(shf1) 
    596 shf2=read_ncdf("shf", st2, en2, file=file,/nostr, box=box)  
    597 shf2=grossemoyenne(shf2, "xy",/nan, box=box)  
     596shf2=read_ncdf("shf", st2, en2, file=file,/nostr, box=box) 
     597shf2=grossemoyenne(shf2, "xy",/nan, box=box) 
    598598shf2=reform(shf2) 
    599 shf3=read_ncdf("shf", st3, en3, file=file,/nostr, box=box)  
    600 shf3=grossemoyenne(shf3, "xy",/nan, box=box)  
     599shf3=read_ncdf("shf", st3, en3, file=file,/nostr, box=box) 
     600shf3=grossemoyenne(shf3, "xy",/nan, box=box) 
    601601shf3=reform(shf3) 
    602 shf4=read_ncdf("shf", st4, en4, file=file,/nostr, box=box)  
    603 shf4=grossemoyenne(shf4, "xy",/nan, box=box)  
     602shf4=read_ncdf("shf", st4, en4, file=file,/nostr, box=box) 
     603shf4=grossemoyenne(shf4, "xy",/nan, box=box) 
    604604shf4=reform(shf4) 
    605  
    606 net1=swr1+lwr1+lhf1+shf1  
     605; 
     606net1=swr1+lwr1+lhf1+shf1 
    607607net2=swr2+lwr2+lhf2+shf2 
    608 net3=swr3+lwr3+lhf3+shf3  
     608net3=swr3+lwr3+lhf3+shf3 
    609609net4=swr4+lwr4+lhf4+shf4 
    610  
    611 nce1=[net1,net2,net3,net4]  
     610; 
     611nce1=[net1,net2,net3,net4] 
    612612nce1=nce1 
    613  
     613; 
    614614help, nce1 
    615 swr1=0  
    616 swr2=0  
    617 swr3=0  
    618 swr4=0  
    619 lwr1=0  
    620 lwr2=0  
    621 lwr3=0  
     615swr1=0 
     616swr2=0 
     617swr3=0 
     618swr4=0 
     619lwr1=0 
     620lwr2=0 
     621lwr3=0 
    622622lwr4=0 
    623 lhf1=0  
    624 lhf2=0  
    625 lhf3=0  
    626 lhf4=0  
    627 shf1=0  
    628 shf2=0  
    629 shf3=0  
     623lhf1=0 
     624lhf2=0 
     625lhf3=0 
     626lhf4=0 
     627shf1=0 
     628shf2=0 
     629shf3=0 
    630630shf4=0 
    631 net1=0  
    632 net2=0  
    633 net3=0  
     631net1=0 
     632net2=0 
     633net3=0 
    634634net4=0 
    635  
     635; 
    636636ind=where(finite(net)) 
    637 net=net(ind)  
     637net=net(ind) 
    638638era=era(ind) 
    639 trop=trop(ind)  
    640 oaf=oaf(ind)  
    641 nce1=nce1(ind)  
     639trop=trop(ind) 
     640oaf=oaf(ind) 
     641nce1=nce1(ind) 
    642642nce2=nce2(ind) 
    643643olr=olr(ind) 
    644  
     644; 
    645645help, net, era, trop, oaf, nce1, nce2, olr 
    646  
     646; 
    647647statistics, net, era, $ 
    648648                 cor, bias, std, rmsd 
    649649print, cor, bias, std,  rmsd 
    650650cstat_era=string(cor, bias, std, rmsd, format='(f4.2,2x,f6.2,2x,f4.2,1x,f6.2)') 
    651  
     651; 
    652652statistics, net, trop, $ 
    653653                 cor, bias, std, rmsd 
    654654print, cor, bias, std,  rmsd 
    655655cstat_trop=string(cor, bias, std, rmsd, format='(f4.2,2x,f6.2,2x,f4.2,1x,f6.2)') 
    656  
     656; 
    657657statistics, net, oaf, $ 
    658658                 cor, bias, std, rmsd 
    659659print, cor, bias, std,  rmsd 
    660660cstat_oaf=string(cor, bias, std, rmsd, format='(f4.2,2x,f6.2,2x,f4.2,1x,f6.2)') 
    661  
     661; 
    662662statistics, net, nce1, $ 
    663663                 cor, bias, std, rmsd 
    664664print, cor, bias, std,  rmsd 
    665665cstat_nce1=string(cor, bias, std, rmsd, format='(f4.2,2x,f6.2,2x,f4.2,1x,f6.2)') 
    666  
     666; 
    667667statistics, net, nce2, $ 
    668668                 cor, bias, std, rmsd 
    669669print, cor, bias, std,  rmsd 
    670670cstat_nce2=string(cor, bias, std, rmsd, format='(f4.2,2x,f6.2,2x,f4.2,1x,f6.2)') 
    671  
     671; 
    672672statistics, net, olr, $ 
    673673                 cor, bias, std, rmsd 
    674674print, cor, bias, std,  rmsd 
    675675cstat_olr=string(cor, bias, std, rmsd, format='(f4.2,2x,f6.2,2x,f4.2,1x,f6.2)') 
    676  
    677  
     676; 
     677; 
    678678splot, net, era, charsize=1.1, title='Net Flux - COARE Vs ERAI', $ 
    679679     xrange=[-200,200], yrange=[-200,200], small=[2,3,1], psym=2, xmin=1, ymin=1 
    680680oplot, [-200,200], [-200,200] 
    681681xyouts, -150,-175, cstat_era, charsize=1. 
    682  
     682; 
    683683splot, net, trop, charsize=1.1, title='Net Flux - COARE Vs TropFlux',/noer, $ 
    684684     xrange=[-200,200], yrange=[-200,200], small=[2,3,2], psym=2, xmin=1, ymin=1 
    685685oplot, [-200,200], [-200,200] 
    686686xyouts, -150,-175, cstat_trop, charsize=1. 
    687  
     687; 
    688688splot, net, oaf, charsize=1.1, title='Net Flux - COARE Vs OAFlux',/noer, $ 
    689689     xrange=[-200,200], yrange=[-200,200], small=[2,3,3], psym=2, xmin=1, ymin=1 
    690690oplot, [-200,200], [-200,200] 
    691691xyouts, -150,-175, cstat_oaf, charsize=1. 
    692  
     692; 
    693693splot, net, nce1, charsize=1.1, title='Net Flux - COARE Vs NCEP1',/noer, $ 
    694694     xrange=[-200,200], yrange=[-200,200], small=[2,3,4], psym=2, xmin=1, ymin=1 
    695695oplot, [-200,200], [-200,200] 
    696696xyouts, -150,-175, cstat_nce1, charsize=1. 
    697  
     697; 
    698698splot, net, nce2, charsize=1.1, title='Net Flux - COARE Vs NCEP2',/noer, $ 
    699699     xrange=[-200,200], yrange=[-200,200], small=[2,3,5], psym=2, xmin=1, ymin=1 
    700700oplot, [-200,200], [-200,200] 
    701701xyouts, -150,-175, cstat_nce2, charsize=1. 
    702  
     702; 
    703703splot, net, olr, charsize=1.1, title='Net Flux - COARE Vs TropFlux_NRT',/noer, $ 
    704704     xrange=[-200,200], yrange=[-200,200], small=[2,3,6], psym=2, xmin=1, ymin=1 
    705705oplot, [-200,200], [-200,200] 
    706706xyouts, -150,-175, cstat_olr, charsize=1. 
    707  
     707; 
    708708closeps 
     709; 
    709710end 

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

    r94 r97  
    9494key_portrait = 1 
    9595coefpalit=.9 
    96  
     96; 
    9797openps, FILENAME = project_od_env+"stratus_validation_net_2001_2002_all_v11.ps" 
    9898; partie a changer 
    99  
    100 ;; stratus in the south pacific cold tongue 2000-01 
     99; 
     100; stratus in the south pacific cold tongue 2000-01 
    101101;20.9S, 80.8W (274.2E) 
    102102box=[274, 275, -21., -20.] 
    103  
    104 ;; first leg 
    105  
     103; 
     104; first leg 
     105; 
    106106fi=project_id_env+"met_data_stratus_2001_2002.txt" 
    107107res=read_ascii(fi,data_start=1) 
    … …  
    111111lhf=reform(ff(5,*)) 
    112112shf=reform(ff(6,*)) 
    113  
     113; 
    114114net=swr+lwr+shf+lhf 
    115115help, net 
    116  
    117 ;; reading other data sets 
    118  
    119 st1=20011019  
     116; 
     117; reading other data sets 
     118; 
     119st1=20011019 
    120120en1=20021022 
    121  
     121; 
    122122file=project_id_env+"erai_swr_19910101_20091231_oafluxgrid.nc" 
    123123initncdf, file 
    124 swr=read_ncdf('swr',st1,en1,file=file,/nostr, box=box)  
    125 swr=grossemoyenne(swr, "xy", box=box,/nan)  
     124swr=read_ncdf('swr',st1,en1,file=file,/nostr, box=box) 
     125swr=grossemoyenne(swr, "xy", box=box,/nan) 
    126126swr=reform(swr) 
    127127file=project_id_env+'erai_lwr_19890101_20091231_oafluxgrid.nc' 
    128128initncdf, file 
    129 lwr=read_ncdf('lwr',st1-1,en1,file=file,/nostr, box=box)  
     129lwr=read_ncdf('lwr',st1-1,en1,file=file,/nostr, box=box) 
    130130lwr=reform(lwr) 
    131131file=project_id_env+'erai_shf_19890101_20091231_oafluxgrid.nc' 
    132132initncdf, file 
    133 shf=-1*read_ncdf('shf',st1,en1,file=file,/nostr, box=box)  
     133shf=-1*read_ncdf('shf',st1,en1,file=file,/nostr, box=box) 
    134134shf=reform(shf) 
    135135file=project_id_env+'erai_lhf_19890101_20091231_oafluxgrid.nc' 
    136136initncdf, file 
    137 lhf=-1*read_ncdf('lhf',st1,en1,file=file,/nostr, box=box)  
     137lhf=-1*read_ncdf('lhf',st1,en1,file=file,/nostr, box=box) 
    138138lhf=reform(lhf) 
    139  
     139; 
    140140era=swr+lwr+lhf+shf 
    141141help, era 
    142  
    143 swr=0  
    144 lwr=0  
    145 lhf=0  
     142; 
     143swr=0 
     144lwr=0 
     145lhf=0 
    146146shf=0 
    147  
     147; 
    148148file=project_id_env+"TropFlux_19890101_20091231.nc" 
    149149initncdf, file 
    150 swr=read_ncdf('swr',st1,en1,file=file,/nostr, box=box)  
    151 swr=grossemoyenne(swr, "xy",/nan, box=box)  
    152 swr=reform(swr) 
    153 lwr=read_ncdf('lwr',st1,en1,file=file,/nostr, box=box)  
    154 lwr=grossemoyenne(lwr, "xy",/nan, box=box)  
     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) 
    155155lwr=reform(lwr) 
    156 shf=read_ncdf('shf',st1,en1,file=file,/nostr, box=box)  
    157 shf=grossemoyenne(shf, "xy",/nan, box=box)  
     156shf=read_ncdf('shf',st1,en1,file=file,/nostr, box=box) 
     157shf=grossemoyenne(shf, "xy",/nan, box=box) 
    158158shf=reform(shf) 
    159 lhf=read_ncdf('lhf',st1,en1,file=file,/nostr, box=box)  
    160 lhf=grossemoyenne(lhf, "xy",/nan, box=box)  
     159lhf=read_ncdf('lhf',st1,en1,file=file,/nostr, box=box) 
     160lhf=grossemoyenne(lhf, "xy",/nan, box=box) 
    161161lhf=reform(lhf) 
    162  
     162; 
    163163file=project_id_env+"TropFlux_swr_19890101_20091231_NRT_v50.nc" 
    164164initncdf, file 
    165 olr1=read_ncdf("sw", st1-1, en1, file=file,/nostr, box=box)  
    166 olr1=grossemoyenne(olr1, "xy",/nan, box=box)  
     165olr1=read_ncdf("sw", st1-1, en1, file=file,/nostr, box=box) 
     166olr1=grossemoyenne(olr1, "xy",/nan, box=box) 
    167167olr1=reform(olr1) 
    168  
     168; 
    169169trop=swr+lwr+shf+lhf 
    170170olr=olr1+lwr+shf+lhf 
    171171help, trop, olr 
    172 swr=0  
    173 lwr=0  
    174 lhf=0  
    175 shf=0  
     172swr=0 
     173lwr=0 
     174lhf=0 
     175shf=0 
    176176olr1=0 
    177  
     177; 
    178178file=project_id_env+'swr_oafluxgrid_1985_2007.nc' 
    179179initncdf, file 
    180 swr=read_ncdf("swr", st1, en1, file=file,/nostr, box=box)  
    181 swr=grossemoyenne(swr, "xy",/nan, box=box)  
    182 swr=reform(swr) 
    183  
     180swr=read_ncdf("swr", st1, en1, file=file,/nostr, box=box) 
     181swr=grossemoyenne(swr, "xy",/nan, box=box) 
     182swr=reform(swr) 
     183; 
    184184file=project_id_env+'lwr_oafluxgrid_1985_2007.nc' 
    185185initncdf, file 
    186 lwr=read_ncdf("lwr", st1, en1, file=file,/nostr, box=box)  
     186lwr=read_ncdf("lwr", st1, en1, file=file,/nostr, box=box) 
    187187lwr=-1*reform(lwr) 
    188  
     188; 
    189189file=project_id_env+'lhf_oafluxgrid_1985_2009.nc' 
    190190initncdf, file 
    191 lhf=read_ncdf("lhf", st1, en1, file=file,/nostr, box=box)  
     191lhf=read_ncdf("lhf", st1, en1, file=file,/nostr, box=box) 
    192192lhf=-1*reform(lhf) 
    193  
     193; 
    194194file=project_id_env+'shf_oafluxgrid_1985_2009.nc' 
    195195initncdf, file 
    196 shf=read_ncdf("shf", st1, en1, file=file,/nostr, box=box)  
     196shf=read_ncdf("shf", st1, en1, file=file,/nostr, box=box) 
    197197shf=-1*reform(shf) 
    198  
     198; 
    199199oaf=swr+lwr+shf+lhf 
    200200help, oaf 
    201 swr=0  
    202 lwr=0  
    203 lhf=0  
     201swr=0 
     202lwr=0 
     203lhf=0 
    204204shf=0 
    205  
     205; 
    206206fi=project_id_env+'swr_ncep2_oaflxgrid_19890101_20091231.nc' 
    207207initncdf, fi 
    208 swr=read_ncdf("swr", st1, en1, file=fi,/nostr, box=box)  
    209 swr=grossemoyenne(swr, "xy",/nan, box=box)  
    210 swr=reform(swr) 
    211  
     208swr=read_ncdf("swr", st1, en1, file=fi,/nostr, box=box) 
     209swr=grossemoyenne(swr, "xy",/nan, box=box) 
     210swr=reform(swr) 
     211; 
    212212fi=project_id_env+"NCEP2_flux_19890101_20090729.nc" 
    213213initncdf, fi 
    214 lwr=read_ncdf("lwr", st1, en1, file=fi,/nostr, box=box)  
    215 lwr=grossemoyenne(lwr, "xy",/nan, box=box)  
     214lwr=read_ncdf("lwr", st1, en1, file=fi,/nostr, box=box) 
     215lwr=grossemoyenne(lwr, "xy",/nan, box=box) 
    216216lwr=reform(lwr) 
    217217lwr=-1*lwr 
    218  
     218; 
    219219fi=project_id_env+'lhf_ncep2_oafluxgrid_19890101_20091231.nc' 
    220220initncdf, fi 
    221 lhf=read_ncdf("lhf", st1, en1, file=fi,/nostr, box=box)  
     221lhf=read_ncdf("lhf", st1, en1, file=fi,/nostr, box=box) 
    222222lhf=-1*reform(lhf) 
    223  
     223; 
    224224fi=project_id_env+'shf_ncep2_oafluxgrid_19890101_20091231.nc' 
    225225initncdf, fi 
    226 shf=read_ncdf("shf", st1, en1, file=fi,/nostr, box=box)  
     226shf=read_ncdf("shf", st1, en1, file=fi,/nostr, box=box) 
    227227shf=-1*reform(shf) 
    228  
     228; 
    229229nce2=swr+lwr+shf+lhf 
    230230help, nce2 
    231  
    232 swr=0  
    233 lwr=0  
    234 lhf=0  
     231; 
     232swr=0 
     233lwr=0 
     234lhf=0 
    235235shf=0 
    236  
     236; 
    237237file=project_id_env+"ncep1_flux_19890101_20091231.nc" 
    238238initncdf, file 
    239 swr=read_ncdf("swr", st1, en1, file=file,/nostr, box=box)  
    240 swr=grossemoyenne(swr, "xy",/nan, box=box)  
    241 swr=reform(swr) 
    242 lwr=read_ncdf("lwr", st1, en1, file=file,/nostr, box=box)  
    243 lwr=grossemoyenne(lwr, "xy",/nan, box=box)  
     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) 
    244244lwr=reform(lwr) 
    245 shf=read_ncdf("shf", st1, en1, file=file,/nostr, box=box)  
    246 shf=grossemoyenne(shf, "xy",/nan, box=box)  
     245shf=read_ncdf("shf", st1, en1, file=file,/nostr, box=box) 
     246shf=grossemoyenne(shf, "xy",/nan, box=box) 
    247247shf=reform(shf) 
    248 lhf=read_ncdf("lhf", st1, en1, file=file,/nostr, box=box)  
    249 lhf=grossemoyenne(lhf, "xy",/nan, box=box)  
     248lhf=read_ncdf("lhf", st1, en1, file=file,/nostr, box=box) 
     249lhf=grossemoyenne(lhf, "xy",/nan, box=box) 
    250250lhf=reform(lhf) 
    251  
     251; 
    252252nce1=swr+lwr+shf+lhf 
    253253help, nce1 
    254  
     254; 
    255255ind=where(finite(net)) 
    256 net=net(ind)  
    257 era=era(ind)  
    258 trop=trop(ind)  
    259 oaf=oaf(ind)  
    260 nce2=nce2(ind)  
     256net=net(ind) 
     257era=era(ind) 
     258trop=trop(ind) 
     259oaf=oaf(ind) 
     260nce2=nce2(ind) 
    261261nce1=nce1(ind) 
    262262olr=olr(ind) 
    263  
     263; 
    264264statistics, net, era, $ 
    265265                 cor, bias, std, rmsd 
    266266print, cor, bias, std,  rmsd 
    267267cstat_era=string(cor, bias, std, rmsd, format='(f4.2,2x,f6.2,2x,f4.2,1x,f6.2)') 
    268  
     268; 
    269269statistics, net, trop, $ 
    270270                 cor, bias, std, rmsd 
    271271print, cor, bias, std,  rmsd 
    272272cstat_trop=string(cor, bias, std, rmsd, format='(f4.2,2x,f6.2,2x,f4.2,1x,f6.2)') 
    273  
     273; 
    274274statistics, net, oaf, $ 
    275275                 cor, bias, std, rmsd 
    276276print, cor, bias, std,  rmsd 
    277277cstat_oaf=string(cor, bias, std, rmsd, format='(f4.2,2x,f6.2,2x,f4.2,1x,f6.2)') 
    278  
     278; 
    279279statistics, net, nce1, $ 
    280280                 cor, bias, std, rmsd 
    281281print, cor, bias, std,  rmsd 
    282282cstat_nce1=string(cor, bias, std, rmsd, format='(f4.2,2x,f6.2,2x,f4.2,1x,f6.2)') 
    283  
     283; 
    284284statistics, net, nce2, $ 
    285285                 cor, bias, std, rmsd 
    286286print, cor, bias, std,  rmsd 
    287287cstat_nce2=string(cor, bias, std, rmsd, format='(f4.2,2x,f6.2,2x,f4.2,1x,f6.2)') 
    288  
     288; 
    289289statistics, net, olr, $ 
    290290                 cor, bias, std, rmsd 
    291291print, cor, bias, std,  rmsd 
    292292cstat_olr=string(cor, bias, std, rmsd, format='(f4.2,2x,f6.2,2x,f4.2,1x,f6.2)') 
    293  
    294  
     293; 
     294; 
    295295splot, net, era, charsize=1.1, title='SWR - Stratus Vs ERAI', $ 
    296296     xrange=[-200,200], yrange=[-200,200], small=[2,3,1], psym=2, xmin=1, ymin=1 
    297297oplot, [-200,200], [-200,200] 
    298298xyouts, -150,-175, cstat_era, charsize=1. 
    299  
     299; 
    300300splot, net, trop, charsize=1.1, title='SWR - Stratus Vs TropFlux',/noer, $ 
    301301     xrange=[-200,200], yrange=[-200,200], small=[2,3,2], psym=2, xmin=1, ymin=1 
    302302oplot, [-200,200], [-200,200] 
    303303xyouts, -150,-175, cstat_trop, charsize=1. 
    304  
     304; 
    305305splot, net, oaf, charsize=1.1, title='SWR - Stratus Vs OAFlux',/noer, $ 
    306306     xrange=[-200,200], yrange=[-200,200], small=[2,3,3], psym=2, xmin=1, ymin=1 
    307307oplot, [-200,200], [-200,200] 
    308308xyouts, -150,-175, cstat_oaf, charsize=1. 
    309  
     309; 
    310310splot, net, nce1, charsize=1.1, title='SWR - Stratus Vs NCEP1',/noer, $ 
    311311     xrange=[-200,200], yrange=[-200,200], small=[2,3,4], psym=2, xmin=1, ymin=1 
    312312oplot, [-200,200], [-200,200] 
    313313xyouts, -150,-175, cstat_nce1, charsize=1. 
    314  
     314; 
    315315splot, net, nce2, charsize=1.1, title='SWR - Stratus Vs NCEP2',/noer, $ 
    316316     xrange=[-200,200], yrange=[-200,200], small=[2,3,5], psym=2, xmin=1, ymin=1 
    317317oplot, [-200,200], [-200,200] 
    318318xyouts, -150,-175, cstat_nce2, charsize=1. 
    319  
     319; 
    320320splot, net, olr, charsize=1.1, title='SWR - Stratus Vs TropFlux_NRT',/noer, $ 
    321321     xrange=[-200,200], yrange=[-200,200], small=[2,3,6], psym=2, xmin=1, ymin=1 
    322322oplot, [-200,200], [-200,200] 
    323323xyouts, -150,-175, cstat_olr, charsize=1. 
    324  
     324; 
    325325closeps 
     326; 
    326327end 

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

    r94 r97  
    9292key_portrait = 1 
    9393coefpalit=.9 
    94  
     94; 
    9595openps, FILENAME = project_od_env+"subdctn_cs_validation_net_1991_93_all_v10.ps" 
    9696; partie a changer 
    97  
    98 ;; subduction experiment in the atlantic in 1991-93 
     97; 
     98; subduction experiment in the atlantic in 1991-93 
    9999box=[330.5, 331.5, 25., 26.] 
    100  
    101 ;; first leg 
    102  
     100; 
     101; first leg 
     102; 
    103103fi=project_id_env+"met_data_subduct_cs_91.txt" 
    104104res=read_ascii(fi,data_start=1) 
    … …  
    109109lwr_91=reform(ff(8,*)) 
    110110net_91=[swr_91+lwr_91+shf_91+lhf_91] 
    111  
    112 ;; start data - 06/02/92 and end date 02/06/92 then from 11/10/92 to 31/12/92 
    113 ;; total no of daily records - 
    114 ;; second leg 
    115  
     111; 
     112; start data - 06/02/92 and end date 02/06/92 then from 11/10/92 to 31/12/92 
     113; total no of daily records - 
     114; second leg 
     115; 
    116116fi=project_id_env+"met_data_subduct_cs_92.txt" 
    117117res=read_ascii(fi,data_start=1) 
    … …  
    122122lwr_92=reform(ff(8,*)) 
    123123net_92=[swr_92+lwr_92+shf_92+lhf_92] 
    124  
    125 ;; second leg 
    126  
     124; 
     125; second leg 
     126; 
    127127fi=project_id_env+"met_data_subduct_cs_93.txt" 
    128128res=read_ascii(fi,data_start=1) 
    … …  
    133133lwr_93=reform(ff(8,*)) 
    134134net_93=[swr_93+lwr_93+shf_93+lhf_93] 
    135  
     135; 
    136136net=[net_91, net_92, net_93] 
    137137help, net 
    138  
    139 ;; reading other data sets 
    140  
    141 st1=19910623  
     138; 
     139; reading other data sets 
     140; 
     141st1=19910623 
    142142en1=19930616 
    143  
     143; 
    144144file=project_id_env+"erai_swr_19910101_20091231_oafluxgrid.nc" 
    145145initncdf, file 
    146 swr1=read_ncdf('swr',st1,en1,file=file,/nostr, box=box)  
    147 swr1=grossemoyenne(swr1, "xy", box=box,/nan)  
     146swr1=read_ncdf('swr',st1,en1,file=file,/nostr, box=box) 
     147swr1=grossemoyenne(swr1, "xy", box=box,/nan) 
    148148swr1=reform(swr1) 
    149149file=project_id_env+'erai_lhf_19890101_20091231_oafluxgrid.nc' 
    150150initncdf, file 
    151 lhf1=-1*read_ncdf('lhf',st1,en1,file=file,/nostr, box=box)  
    152 lhf1=grossemoyenne(lhf1, "xy", box=box,/nan)  
     151lhf1=-1*read_ncdf('lhf',st1,en1,file=file,/nostr, box=box) 
     152lhf1=grossemoyenne(lhf1, "xy", box=box,/nan) 
    153153lhf1=reform(lhf1) 
    154154file=project_id_env+'erai_shf_19890101_20091231_oafluxgrid.nc' 
    155155initncdf, file 
    156 shf1=-1*read_ncdf('shf',st1,en1,file=file,/nostr, box=box)  
    157 shf1=grossemoyenne(shf1, "xy", box=box,/nan)  
     156shf1=-1*read_ncdf('shf',st1,en1,file=file,/nostr, box=box) 
     157shf1=grossemoyenne(shf1, "xy", box=box,/nan) 
    158158shf1=reform(shf1) 
    159159file=project_id_env+'erai_lwr_19890101_20091231_oafluxgrid.nc' 
    160160initncdf, file 
    161 lwr1=read_ncdf('lwr',st1-1,en1,file=file,/nostr, box=box)  
    162 lwr1=grossemoyenne(lwr1, "xy", box=box,/nan)  
    163 lwr1=reform(lwr1) 
    164  
     161lwr1=read_ncdf('lwr',st1-1,en1,file=file,/nostr, box=box) 
     162lwr1=grossemoyenne(lwr1, "xy", box=box,/nan) 
     163lwr1=reform(lwr1) 
     164; 
    165165era=swr1+lwr1+lhf1+shf1 
    166 swr1=0  
    167 lwr1=0  
    168 shf1=0  
     166swr1=0 
     167lwr1=0 
     168shf1=0 
    169169lhf1=0 
    170170help, era 
    171  
     171; 
    172172file=project_id_env+"TropFlux_19890101_20091231.nc" 
    173173initncdf, file 
    174 lhf1=read_ncdf('lhf',st1,en1,file=file,/nostr, box=box)  
    175 lhf1=grossemoyenne(lhf1, "xy", box=box,/nan)  
    176 lhf1=reform(lhf1) 
    177 shf1=read_ncdf('shf',st1,en1,file=file,/nostr, box=box)  
    178 shf1=grossemoyenne(shf1, "xy", box=box,/nan)  
    179 shf1=reform(shf1) 
    180 lwr1=read_ncdf('lwr',st1,en1,file=file,/nostr, box=box)  
    181 lwr1=grossemoyenne(lwr1, "xy", box=box,/nan)  
    182 lwr1=reform(lwr1) 
    183 swr1=read_ncdf('swr',st1,en1,file=file,/nostr, box=box)  
    184 swr1=grossemoyenne(swr1, "xy", box=box,/nan)  
     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) 
    185185swr1=reform(swr1) 
    186186trop=swr1+lwr1+lhf1+shf1 
    187  
     187; 
    188188file=project_id_env+"TropFlux_swr_19890101_20091231_NRT_v50.nc" 
    189189initncdf, file 
    190 olr1=read_ncdf("sw", st1-1, en1, file=file,/nostr, box=box)  
    191 olr1=grossemoyenne(olr1, "xy",/nan, box=box)  
     190olr1=read_ncdf("sw", st1-1, en1, file=file,/nostr, box=box) 
     191olr1=grossemoyenne(olr1, "xy",/nan, box=box) 
    192192olr1=reform(olr1) 
    193  
     193; 
    194194olr=olr1+lwr1+shf1+lhf1 
    195195help, trop, olr 
    196 swr1=0  
    197 lwr1=0  
    198 shf1=0  
    199 lhf1=0  
     196swr1=0 
     197lwr1=0 
     198shf1=0 
     199lhf1=0 
    200200olr1=0 
    201  
     201; 
    202202file=project_id_env+'swr_oafluxgrid_1985_2007.nc' 
    203203initncdf, file 
    204 swr1=read_ncdf("swr", st1, en1, file=file,/nostr, box=box)  
    205 swr1=grossemoyenne(swr1, "xy",/nan, box=box)  
     204swr1=read_ncdf("swr", st1, en1, file=file,/nostr, box=box) 
     205swr1=grossemoyenne(swr1, "xy",/nan, box=box) 
    206206swr1=reform(swr1) 
    207207file=project_id_env+'lwr_oafluxgrid_1985_2007.nc' 
    208208initncdf, file 
    209 lwr1=-1*read_ncdf("lwr", st1, en1, file=file,/nostr, box=box)  
    210 lwr1=grossemoyenne(lwr1, "xy",/nan, box=box)  
     209lwr1=-1*read_ncdf("lwr", st1, en1, file=file,/nostr, box=box) 
     210lwr1=grossemoyenne(lwr1, "xy",/nan, box=box) 
    211211lwr1=reform(lwr1) 
    212212file=project_id_env+'lhf_oafluxgrid_1985_2009.nc' 
    213213initncdf, file 
    214 lhf1=-1*read_ncdf("lhf", st1, en1, file=file,/nostr, box=box)  
    215 lhf1=grossemoyenne(lhf1, "xy",/nan, box=box)  
     214lhf1=-1*read_ncdf("lhf", st1, en1, file=file,/nostr, box=box) 
     215lhf1=grossemoyenne(lhf1, "xy",/nan, box=box) 
    216216lhf1=reform(lhf1) 
    217217file=project_id_env+'shf_oafluxgrid_1985_2009.nc' 
    218218initncdf, file 
    219 shf1=-1*read_ncdf("shf", st1, en1, file=file,/nostr, box=box)  
    220 shf1=grossemoyenne(shf1, "xy",/nan, box=box)  
    221 shf1=reform(shf1) 
    222  
     219shf1=-1*read_ncdf("shf", st1, en1, file=file,/nostr, box=box) 
     220shf1=grossemoyenne(shf1, "xy",/nan, box=box) 
     221shf1=reform(shf1) 
     222; 
    223223oaf=swr1+lwr1+lhf1+shf1 
    224224help, oaf 
    225 swr1=0  
    226 lwr1=0  
    227 shf1=0  
    228 lhf1=0  
     225swr1=0 
     226lwr1=0 
     227shf1=0 
     228lhf1=0 
    229229olr1=0 
    230  
     230; 
    231231fi=project_id_env+'swr_ncep2_oaflxgrid_19890101_20091231.nc' 
    232232initncdf, fi 
    233 swr1=read_ncdf("swr", st1, en1, file=fi,/nostr, box=box)  
    234 swr1=grossemoyenne(swr1, "xy",/nan, box=box)  
     233swr1=read_ncdf("swr", st1, en1, file=fi,/nostr, box=box) 
     234swr1=grossemoyenne(swr1, "xy",/nan, box=box) 
    235235swr1=reform(swr1) 
    236236fi=project_id_env+"NCEP2_flux_19890101_20090729.nc" 
    237237initncdf, fi 
    238 lwr1=-1*read_ncdf("lwr", st1, en1, file=fi,/nostr, box=box)  
    239 lwr1=grossemoyenne(lwr1, "xy",/nan, box=box)  
     238lwr1=-1*read_ncdf("lwr", st1, en1, file=fi,/nostr, box=box) 
     239lwr1=grossemoyenne(lwr1, "xy",/nan, box=box) 
    240240lwr1=reform(lwr1) 
    241241fi=project_id_env+'lhf_ncep2_oafluxgrid_19890101_20091231.nc' 
    242242initncdf, fi 
    243 lhf1=-1*read_ncdf("lhf", st1, en1, file=fi,/nostr, box=box)  
    244 lhf1=grossemoyenne(lhf1, "xy",/nan, box=box)  
     243lhf1=-1*read_ncdf("lhf", st1, en1, file=fi,/nostr, box=box) 
     244lhf1=grossemoyenne(lhf1, "xy",/nan, box=box) 
    245245lhf1=reform(lhf1) 
    246246fi=project_id_env+'shf_ncep2_oafluxgrid_19890101_20091231.nc' 
    247247initncdf, fi 
    248 shf1=-1*read_ncdf("shf", st1, en1, file=fi,/nostr, box=box)  
    249 shf1=grossemoyenne(shf1, "xy",/nan, box=box)  
    250 shf1=reform(shf1) 
    251  
     248shf1=-1*read_ncdf("shf", st1, en1, file=fi,/nostr, box=box) 
     249shf1=grossemoyenne(shf1, "xy",/nan, box=box) 
     250shf1=reform(shf1) 
     251; 
    252252nce2=swr1+lwr1+lhf1+shf1 
    253253help, nce2 
    254 swr1=0  
    255 lwr1=0  
    256 shf1=0  
    257 lhf1=0  
     254swr1=0 
     255lwr1=0 
     256shf1=0 
     257lhf1=0 
    258258olr1=0 
    259  
     259; 
    260260file=project_id_env+"ncep1_flux_19890101_20091231.nc" 
    261261initncdf, file 
    262  
    263 lhf1=read_ncdf('lhf',st1,en1,file=file,/nostr, box=box)  
    264 lhf1=grossemoyenne(lhf1, "xy", box=box,/nan)  
    265 lhf1=reform(lhf1) 
    266 shf1=read_ncdf('shf',st1,en1,file=file,/nostr, box=box)  
    267 shf1=grossemoyenne(shf1, "xy", box=box,/nan)  
    268 shf1=reform(shf1) 
    269 lwr1=read_ncdf('lwr',st1,en1,file=file,/nostr, box=box)  
    270 lwr1=grossemoyenne(lwr1, "xy", box=box,/nan)  
    271 lwr1=reform(lwr1) 
    272 swr1=read_ncdf('swr',st1,en1,file=file,/nostr, box=box)  
    273 swr1=grossemoyenne(swr1, "xy", box=box,/nan)  
     262; 
     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) 
    274274swr1=reform(swr1) 
    275275nce1=swr1+(lwr1+shf1+lhf1) 
    276276help, nce1 
    277  
     277; 
    278278ind=where(finite(net)) 
    279 net=net(ind)  
    280 era=era(ind)  
    281 trop=trop(ind)  
    282 oaf=oaf(ind)  
    283 nce2=nce2(ind)  
     279net=net(ind) 
     280era=era(ind) 
     281trop=trop(ind) 
     282oaf=oaf(ind) 
     283nce2=nce2(ind) 
    284284nce1=nce1(ind) 
    285285olr=olr(ind) 
    286  
     286; 
    287287statistics, net, era, $ 
    288288                 cor, bias, std, rmsd 
    289289print, cor, bias, std,  rmsd 
    290290cstat_era=string(cor, bias, std, rmsd, format='(f4.2,2x,f6.2,2x,f4.2,1x,f6.2)') 
    291  
     291; 
    292292statistics, net, trop, $ 
    293293                 cor, bias, std, rmsd 
    294294print, cor, bias, std,  rmsd 
    295295cstat_trop=string(cor, bias, std, rmsd, format='(f4.2,2x,f6.2,2x,f4.2,1x,f6.2)') 
    296  
     296; 
    297297statistics, net, oaf, $ 
    298298                 cor, bias, std, rmsd 
    299299print, cor, bias, std,  rmsd 
    300300cstat_oaf=string(cor, bias, std, rmsd, format='(f4.2,2x,f6.2,2x,f4.2,1x,f6.2)') 
    301  
     301; 
    302302statistics, net, nce1, $ 
    303303                 cor, bias, std, rmsd 
    304304print, cor, bias, std,  rmsd 
    305305cstat_nce1=string(cor, bias, std, rmsd, format='(f4.2,2x,f6.2,2x,f4.2,1x,f6.2)') 
    306  
     306; 
    307307statistics, net, nce2, $ 
    308308                 cor, bias, std, rmsd 
    309309print, cor, bias, std,  rmsd 
    310310cstat_nce2=string(cor, bias, std, rmsd, format='(f4.2,2x,f6.2,2x,f4.2,1x,f6.2)') 
    311  
     311; 
    312312statistics, net, olr, $ 
    313313                 cor, bias, std, rmsd 
    314314print, cor, bias, std,  rmsd 
    315315cstat_olr=string(cor, bias, std, rmsd, format='(f4.2,2x,f6.2,2x,f4.2,1x,f6.2)') 
    316  
    317  
     316; 
     317; 
    318318splot, net, era, charsize=1.1, title='Net Flux - Subdn. cs Vs ERAI', $ 
    319319     xrange=[-200,200], yrange=[-200,200], small=[2,3,1], psym=2, xmin=1, ymin=1 
    320320oplot, [-200,200], [-200,200] 
    321321xyouts, 0,-175, cstat_era, charsize=1. 
    322  
     322; 
    323323splot, net, trop, charsize=1.1, title='Net Flux - Subdn. cs Vs TropFlux',/noer, $ 
    324324     xrange=[-200,200], yrange=[-200,200], small=[2,3,2], psym=2, xmin=1, ymin=1 
    325325oplot, [-200,200], [-200,200] 
    326326xyouts, 0,-175, cstat_trop, charsize=1. 
    327  
     327; 
    328328splot, net, oaf, charsize=1.1, title='Net Flux - Subdn. cs Vs OAFlux',/noer, $ 
    329329     xrange=[-200,200], yrange=[-200,200], small=[2,3,3], psym=2, xmin=1, ymin=1 
    330330oplot, [-200,200], [-200,200] 
    331331xyouts, 0,-175, cstat_oaf, charsize=1. 
    332  
     332; 
    333333splot, net, nce1, charsize=1.1, title='Net Flux - Subdn. cs Vs NCEP1',/noer, $ 
    334334     xrange=[-200,200], yrange=[-200,200], small=[2,3,4], psym=2, xmin=1, ymin=1 
    335335oplot, [-200,200], [-200,200] 
    336336xyouts, 0,-175, cstat_nce1, charsize=1. 
    337  
     337; 
    338338splot, net, nce2, charsize=1.1, title='Net Flux - Subdn. cs Vs NCEP2',/noer, $ 
    339339     xrange=[-200,200], yrange=[-200,200], small=[2,3,5], psym=2, xmin=1, ymin=1 
    340340oplot, [-200,200], [-200,200] 
    341341xyouts, 0,-175, cstat_nce2, charsize=1. 
    342  
     342; 
    343343splot, net, olr, charsize=1.1, title='Net Flux - Subdn. cs Vs TropFlux_NRT',/noer, $ 
    344344     xrange=[-200,200], yrange=[-200,200], small=[2,3,6], psym=2, xmin=1, ymin=1 
    345345oplot, [-200,200], [-200,200] 
    346346xyouts, 0,-175, cstat_olr, charsize=1. 
    347  
     347; 
    348348closeps 
     349; 
    349350end 

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

    r94 r97  
    9292key_portrait = 1 
    9393coefpalit=.9 
    94  
     94; 
    9595openps, FILENAME = project_od_env+"subdctn_ses_validation_net_1991_93_all_v10.ps" 
    9696; partie a changer 
    97  
    98 ;; subduction experiment in the atlantic in 1991-93 
     97; 
     98; subduction experiment in the atlantic in 1991-93 
    9999box=[337.5, 338.5, 17.5, 18.5] 
    100  
    101 ;; first leg 
    102  
    103 ;; second leg 
    104  
     100; 
     101; first leg 
     102; 
     103; second leg 
     104; 
    105105fi=project_id_env+"met_data_subduct_ses_92.txt" 
    106106res=read_ascii(fi,data_start=1) 
    … …  
    112112net_92=[swr_92+lwr_92+shf_92+lhf_92] 
    113113help, net_92 
    114  
    115 ;; second leg 
    116  
     114; 
     115; second leg 
     116; 
    117117fi=project_id_env+"met_data_subduct_ses_93.txt" 
    118118res=read_ascii(fi,data_start=1) 
    … …  
    124124net_93=[swr_93+lwr_93+shf_93+lhf_93] 
    125125help, net_93 
    126  
     126; 
    127127net=[net_92, net_93] 
    128128help, net 
    129  
    130 ;; reading other data sets 
    131  
    132 st1=19920209  
     129; 
     130; reading other data sets 
     131; 
     132st1=19920209 
    133133en1=19920911 
    134 st2=19920921  
     134st2=19920921 
    135135en2=19930618 
    136  
     136; 
    137137file=project_id_env+"erai_swr_19910101_20091231_oafluxgrid.nc" 
    138138initncdf, file 
    139 swr1=read_ncdf('swr',st1,en1,file=file,/nostr, box=box)  
    140 swr1=grossemoyenne(swr1, "xy", box=box,/nan)  
     139swr1=read_ncdf('swr',st1,en1,file=file,/nostr, box=box) 
     140swr1=grossemoyenne(swr1, "xy", box=box,/nan) 
    141141swr1=reform(swr1) 
    142 swr2=read_ncdf('swr',st2,en2,file=file,/nostr, box=box)  
    143 swr2=grossemoyenne(swr2, "xy", box=box,/nan)  
     142swr2=read_ncdf('swr',st2,en2,file=file,/nostr, box=box) 
     143swr2=grossemoyenne(swr2, "xy", box=box,/nan) 
    144144swr2=reform(swr2) 
    145  
     145; 
    146146file=project_id_env+'erai_lhf_19890101_20091231_oafluxgrid.nc' 
    147147initncdf, file 
    148 lhf1=-1*read_ncdf('lhf',st1,en1,file=file,/nostr, box=box)  
    149 lhf1=grossemoyenne(lhf1, "xy", box=box,/nan)  
     148lhf1=-1*read_ncdf('lhf',st1,en1,file=file,/nostr, box=box) 
     149lhf1=grossemoyenne(lhf1, "xy", box=box,/nan) 
    150150lhf1=reform(lhf1) 
    151 lhf2=-1*read_ncdf('lhf',st2,en2,file=file,/nostr, box=box)  
    152 lhf2=grossemoyenne(lhf2, "xy", box=box,/nan)  
     151lhf2=-1*read_ncdf('lhf',st2,en2,file=file,/nostr, box=box) 
     152lhf2=grossemoyenne(lhf2, "xy", box=box,/nan) 
    153153lhf2=reform(lhf2) 
    154  
     154; 
    155155file=project_id_env+'erai_shf_19890101_20091231_oafluxgrid.nc' 
    156156initncdf, file 
    157 shf1=-1*read_ncdf('shf',st1,en1,file=file,/nostr, box=box)  
    158 shf1=grossemoyenne(shf1, "xy", box=box,/nan)  
     157shf1=-1*read_ncdf('shf',st1,en1,file=file,/nostr, box=box) 
     158shf1=grossemoyenne(shf1, "xy", box=box,/nan) 
    159159shf1=reform(shf1) 
    160 shf2=-1*read_ncdf('shf',st2,en2,file=file,/nostr, box=box)  
    161 shf2=grossemoyenne(shf2, "xy", box=box,/nan)  
     160shf2=-1*read_ncdf('shf',st2,en2,file=file,/nostr, box=box) 
     161shf2=grossemoyenne(shf2, "xy", box=box,/nan) 
    162162shf2=reform(shf2) 
    163  
     163; 
    164164file=project_id_env+'erai_lwr_19890101_20091231_oafluxgrid.nc' 
    165165initncdf, file 
    166 lwr1=read_ncdf('lwr',st1-1,en1,file=file,/nostr, box=box)  
    167 lwr1=grossemoyenne(lwr1, "xy", box=box,/nan)  
     166lwr1=read_ncdf('lwr',st1-1,en1,file=file,/nostr, box=box) 
     167lwr1=grossemoyenne(lwr1, "xy", box=box,/nan) 
    168168lwr1=reform(lwr1) 
    169 lwr2=read_ncdf('lwr',st2-1,en2,file=file,/nostr, box=box)  
    170 lwr2=grossemoyenne(lwr2, "xy", box=box,/nan)  
     169lwr2=read_ncdf('lwr',st2-1,en2,file=file,/nostr, box=box) 
     170lwr2=grossemoyenne(lwr2, "xy", box=box,/nan) 
    171171lwr2=reform(lwr2) 
    172  
    173 net1=swr1+(lwr1+shf1+lhf1)  
     172; 
     173net1=swr1+(lwr1+shf1+lhf1) 
    174174net2=swr2+(lwr2+shf2+lhf2) 
    175175era=[net1,net2] 
    176176help, era 
    177  
    178 lhf1=0.  
    179 lhf2=0.  
    180 shf1=0.  
     177; 
     178lhf1=0. 
     179lhf2=0. 
     180shf1=0. 
    181181shf2=0. 
    182 lwr1=0.  
    183 lwr2=0.  
    184 swr1=0.  
     182lwr1=0. 
     183lwr2=0. 
     184swr1=0. 
    185185swr2=0. 
    186 net1=0.  
     186net1=0. 
    187187net2=0. 
    188  
     188; 
    189189file=project_id_env+"TropFlux_19890101_20091231.nc" 
    190190initncdf, file 
    191 lhf1=read_ncdf('lhf',st1,en1,file=file,/nostr, box=box)  
    192 lhf1=grossemoyenne(lhf1, "xy", box=box,/nan)  
     191lhf1=read_ncdf('lhf',st1,en1,file=file,/nostr, box=box) 
     192lhf1=grossemoyenne(lhf1, "xy", box=box,/nan) 
    193193lhf1=reform(lhf1) 
    194 lhf2=read_ncdf('lhf',st2,en2,file=file,/nostr, box=box)  
    195 lhf2=grossemoyenne(lhf2, "xy", box=box,/nan)  
     194lhf2=read_ncdf('lhf',st2,en2,file=file,/nostr, box=box) 
     195lhf2=grossemoyenne(lhf2, "xy", box=box,/nan) 
    196196lhf2=reform(lhf2) 
    197 shf1=read_ncdf('shf',st1,en1,file=file,/nostr, box=box)  
    198 shf1=grossemoyenne(shf1, "xy", box=box,/nan)  
     197shf1=read_ncdf('shf',st1,en1,file=file,/nostr, box=box) 
     198shf1=grossemoyenne(shf1, "xy", box=box,/nan) 
    199199shf1=reform(shf1) 
    200 shf2=read_ncdf('shf',st2,en2,file=file,/nostr, box=box)  
    201 shf2=grossemoyenne(shf2, "xy", box=box,/nan)  
     200shf2=read_ncdf('shf',st2,en2,file=file,/nostr, box=box) 
     201shf2=grossemoyenne(shf2, "xy", box=box,/nan) 
    202202shf2=reform(shf2) 
    203 lwr1=read_ncdf('lwr',st1,en1,file=file,/nostr, box=box)  
    204 lwr1=grossemoyenne(lwr1, "xy", box=box,/nan)  
     203lwr1=read_ncdf('lwr',st1,en1,file=file,/nostr, box=box) 
     204lwr1=grossemoyenne(lwr1, "xy", box=box,/nan) 
    205205lwr1=reform(lwr1) 
    206 lwr2=read_ncdf('lwr',st2,en2,file=file,/nostr, box=box)  
    207 lwr2=grossemoyenne(lwr2, "xy", box=box,/nan)  
     206lwr2=read_ncdf('lwr',st2,en2,file=file,/nostr, box=box) 
     207lwr2=grossemoyenne(lwr2, "xy", box=box,/nan) 
    208208lwr2=reform(lwr2) 
    209 swr1=read_ncdf('swr',st1,en1,file=file,/nostr, box=box)  
    210 swr1=grossemoyenne(swr1, "xy", box=box,/nan)  
     209swr1=read_ncdf('swr',st1,en1,file=file,/nostr, box=box) 
     210swr1=grossemoyenne(swr1, "xy", box=box,/nan) 
    211211swr1=reform(swr1) 
    212 swr2=read_ncdf('swr',st2,en2,file=file,/nostr, box=box)  
    213 swr2=grossemoyenne(swr2, "xy", box=box,/nan)  
     212swr2=read_ncdf('swr',st2,en2,file=file,/nostr, box=box) 
     213swr2=grossemoyenne(swr2, "xy", box=box,/nan) 
    214214swr2=reform(swr2) 
    215  
     215; 
    216216file=project_id_env+"TropFlux_swr_19890101_20091231_NRT_v50.nc" 
    217217initncdf, file 
    218 olr1=read_ncdf("sw", st1-1, en1, file=file,/nostr, box=box)  
    219 olr1=grossemoyenne(olr1, "xy",/nan, box=box)  
     218olr1=read_ncdf("sw", st1-1, en1, file=file,/nostr, box=box) 
     219olr1=grossemoyenne(olr1, "xy",/nan, box=box) 
    220220olr1=reform(olr1) 
    221 olr2=read_ncdf("sw", st2-1, en2, file=file,/nostr, box=box)  
    222 olr2=grossemoyenne(olr2, "xy",/nan, box=box)  
     221olr2=read_ncdf("sw", st2-1, en2, file=file,/nostr, box=box) 
     222olr2=grossemoyenne(olr2, "xy",/nan, box=box) 
    223223olr2=reform(olr2) 
    224  
    225 net1=swr1+lwr1+(shf1+lhf1)  
     224; 
     225net1=swr1+lwr1+(shf1+lhf1) 
    226226net2=swr2+lwr2+(shf2+lhf2) 
    227 neto_1=olr1+lwr1+lhf1+shf1  
     227neto_1=olr1+lwr1+lhf1+shf1 
    228228neto_2=olr2+lwr2+lhf2+shf2 
    229 trop=[net1,net2]  
     229trop=[net1,net2] 
    230230olr=[neto_1,neto_2] 
    231231help, trop, olr 
    232  
     232; 
    233233file=project_id_env+'swr_oafluxgrid_1985_2007.nc' 
    234234initncdf, file 
    235 swr1=read_ncdf("swr", st1, en1, file=file,/nostr, box=box)  
    236 swr1=grossemoyenne(swr1, "xy",/nan, box=box)  
     235swr1=read_ncdf("swr", st1, en1, file=file,/nostr, box=box) 
     236swr1=grossemoyenne(swr1, "xy",/nan, box=box) 
    237237swr1=reform(swr1) 
    238 swr2=read_ncdf("swr", st2, en2, file=file,/nostr, box=box)  
    239 swr2=grossemoyenne(swr2, "xy",/nan, box=box)  
     238swr2=read_ncdf("swr", st2, en2, file=file,/nostr, box=box) 
     239swr2=grossemoyenne(swr2, "xy",/nan, box=box) 
    240240swr2=reform(swr2) 
    241  
     241; 
    242242file=project_id_env+'lwr_oafluxgrid_1985_2007.nc' 
    243243initncdf, file 
    244 lwr1=-1*read_ncdf("lwr", st1, en1, file=file,/nostr, box=box)  
    245 lwr1=grossemoyenne(lwr1, "xy",/nan, box=box)  
     244lwr1=-1*read_ncdf("lwr", st1, en1, file=file,/nostr, box=box) 
     245lwr1=grossemoyenne(lwr1, "xy",/nan, box=box) 
    246246lwr1=reform(lwr1) 
    247 lwr2=-1*read_ncdf("lwr", st2, en2, file=file,/nostr, box=box)  
    248 lwr2=grossemoyenne(lwr2, "xy",/nan, box=box)  
     247lwr2=-1*read_ncdf("lwr", st2, en2, file=file,/nostr, box=box) 
     248lwr2=grossemoyenne(lwr2, "xy",/nan, box=box) 
    249249lwr2=reform(lwr2) 
    250  
     250; 
    251251file=project_id_env+'lhf_oafluxgrid_1985_2009.nc' 
    252252initncdf, file 
    253 lhf1=-1*read_ncdf("lhf", st1, en1, file=file,/nostr, box=box)  
    254 lhf1=grossemoyenne(lhf1, "xy",/nan, box=box)  
     253lhf1=-1*read_ncdf("lhf", st1, en1, file=file,/nostr, box=box) 
     254lhf1=grossemoyenne(lhf1, "xy",/nan, box=box) 
    255255lhf1=reform(lhf1) 
    256 lhf2=-1*read_ncdf("lhf", st2, en2, file=file,/nostr, box=box)  
    257 lhf2=grossemoyenne(lhf2, "xy",/nan, box=box)  
     256lhf2=-1*read_ncdf("lhf", st2, en2, file=file,/nostr, box=box) 
     257lhf2=grossemoyenne(lhf2, "xy",/nan, box=box) 
    258258lhf2=reform(lhf2) 
    259  
     259; 
    260260file=project_id_env+'shf_oafluxgrid_1985_2009.nc' 
    261261initncdf, file 
    262 shf1=-1*read_ncdf("shf", st1, en1, file=file,/nostr, box=box)  
    263 shf1=grossemoyenne(shf1, "xy",/nan, box=box)  
     262shf1=-1*read_ncdf("shf", st1, en1, file=file,/nostr, box=box) 
     263shf1=grossemoyenne(shf1, "xy",/nan, box=box) 
    264264shf1=reform(shf1) 
    265 shf2=-1*read_ncdf("shf", st2, en2, file=file,/nostr, box=box)  
    266 shf2=grossemoyenne(shf2, "xy",/nan, box=box)  
     265shf2=-1*read_ncdf("shf", st2, en2, file=file,/nostr, box=box) 
     266shf2=grossemoyenne(shf2, "xy",/nan, box=box) 
    267267shf2=reform(shf2) 
    268  
    269 net1=swr1+lwr1+lhf1+shf1  
     268; 
     269net1=swr1+lwr1+lhf1+shf1 
    270270net2=swr2+lwr2+lhf2+shf2 
    271271oaf=[net1,net2] 
    272272help, oaf 
    273  
     273; 
    274274fi=project_id_env+'swr_ncep2_oaflxgrid_19890101_20091231.nc' 
    275275initncdf, fi 
    276 swr1=read_ncdf("swr", st1, en1, file=fi,/nostr, box=box)  
    277 swr1=grossemoyenne(swr1, "xy",/nan, box=box)  
     276swr1=read_ncdf("swr", st1, en1, file=fi,/nostr, box=box) 
     277swr1=grossemoyenne(swr1, "xy",/nan, box=box) 
    278278swr1=reform(swr1) 
    279 swr2=read_ncdf("swr", st2, en2, file=fi,/nostr, box=box)  
    280 swr2=grossemoyenne(swr2, "xy",/nan, box=box)  
     279swr2=read_ncdf("swr", st2, en2, file=fi,/nostr, box=box) 
     280swr2=grossemoyenne(swr2, "xy",/nan, box=box) 
    281281swr2=reform(swr2) 
    282  
     282; 
    283283fi=project_id_env+"NCEP2_flux_19890101_20090729.nc" 
    284284initncdf, fi 
    285 lwr1=-1*read_ncdf("lwr", st1, en1, file=fi,/nostr, box=box)  
    286 lwr1=grossemoyenne(lwr1, "xy",/nan, box=box)  
     285lwr1=-1*read_ncdf("lwr", st1, en1, file=fi,/nostr, box=box) 
     286lwr1=grossemoyenne(lwr1, "xy",/nan, box=box) 
    287287lwr1=reform(lwr1) 
    288 lwr2=-1*read_ncdf("lwr", st2, en2, file=fi,/nostr, box=box)  
    289 lwr2=grossemoyenne(lwr2, "xy",/nan, box=box)  
     288lwr2=-1*read_ncdf("lwr", st2, en2, file=fi,/nostr, box=box) 
     289lwr2=grossemoyenne(lwr2, "xy",/nan, box=box) 
    290290lwr2=reform(lwr2) 
    291  
     291; 
    292292fi=project_id_env+'lhf_ncep2_oafluxgrid_19890101_20091231.nc' 
    293293initncdf, fi 
    294 lhf1=-1*read_ncdf("lhf", st1, en1, file=fi,/nostr, box=box)  
    295 lhf1=grossemoyenne(lhf1, "xy",/nan, box=box)  
     294lhf1=-1*read_ncdf("lhf", st1, en1, file=fi,/nostr, box=box) 
     295lhf1=grossemoyenne(lhf1, "xy",/nan, box=box) 
    296296lhf1=reform(lhf1) 
    297 lhf2=-1*read_ncdf("lhf", st2, en2, file=fi,/nostr, box=box)  
    298 lhf2=grossemoyenne(lhf2, "xy",/nan, box=box)  
     297lhf2=-1*read_ncdf("lhf", st2, en2, file=fi,/nostr, box=box) 
     298lhf2=grossemoyenne(lhf2, "xy",/nan, box=box) 
    299299lhf2=reform(lhf2) 
    300  
     300; 
    301301fi=project_id_env+'shf_ncep2_oafluxgrid_19890101_20091231.nc' 
    302302initncdf, fi 
    303 shf1=-1*read_ncdf("shf", st1, en1, file=fi,/nostr, box=box)  
    304 shf1=grossemoyenne(shf1, "xy",/nan, box=box)  
     303shf1=-1*read_ncdf("shf", st1, en1, file=fi,/nostr, box=box) 
     304shf1=grossemoyenne(shf1, "xy",/nan, box=box) 
    305305shf1=reform(shf1) 
    306 shf2=-1*read_ncdf("shf", st2, en2, file=fi,/nostr, box=box)  
    307 shf2=grossemoyenne(shf2, "xy",/nan, box=box)  
     306shf2=-1*read_ncdf("shf", st2, en2, file=fi,/nostr, box=box) 
     307shf2=grossemoyenne(shf2, "xy",/nan, box=box) 
    308308shf2=reform(shf2) 
    309  
    310 net1=swr1+lwr1+lhf1+shf1  
     309; 
     310net1=swr1+lwr1+lhf1+shf1 
    311311net2=swr2+lwr2+lhf2+shf2 
    312312nce2=[net1,net2] 
    313313help, nce2 
    314  
     314; 
    315315file=project_id_env+"ncep1_flux_19890101_20091231.nc" 
    316316initncdf, file 
    317 lhf1=read_ncdf('lhf',st1,en1,file=file,/nostr, box=box)  
    318 lhf1=grossemoyenne(lhf1, "xy", box=box,/nan)  
     317lhf1=read_ncdf('lhf',st1,en1,file=file,/nostr, box=box) 
     318lhf1=grossemoyenne(lhf1, "xy", box=box,/nan) 
    319319lhf1=reform(lhf1) 
    320 lhf2=read_ncdf('lhf',st2,en2,file=file,/nostr, box=box)  
    321 lhf2=grossemoyenne(lhf2, "xy", box=box,/nan)  
     320lhf2=read_ncdf('lhf',st2,en2,file=file,/nostr, box=box) 
     321lhf2=grossemoyenne(lhf2, "xy", box=box,/nan) 
    322322lhf2=reform(lhf2) 
    323 shf1=read_ncdf('shf',st1,en1,file=file,/nostr, box=box)  
    324 shf1=grossemoyenne(shf1, "xy", box=box,/nan)  
     323shf1=read_ncdf('shf',st1,en1,file=file,/nostr, box=box) 
     324shf1=grossemoyenne(shf1, "xy", box=box,/nan) 
    325325shf1=reform(shf1) 
    326 shf2=read_ncdf('shf',st2,en2,file=file,/nostr, box=box)  
    327 shf2=grossemoyenne(shf2, "xy", box=box,/nan)  
     326shf2=read_ncdf('shf',st2,en2,file=file,/nostr, box=box) 
     327shf2=grossemoyenne(shf2, "xy", box=box,/nan) 
    328328shf2=reform(shf2) 
    329 lwr1=read_ncdf('lwr',st1,en1,file=file,/nostr, box=box)  
    330 lwr1=grossemoyenne(lwr1, "xy", box=box,/nan)  
     329lwr1=read_ncdf('lwr',st1,en1,file=file,/nostr, box=box) 
     330lwr1=grossemoyenne(lwr1, "xy", box=box,/nan) 
    331331lwr1=reform(lwr1) 
    332 lwr2=read_ncdf('lwr',st2,en2,file=file,/nostr, box=box)  
    333 lwr2=grossemoyenne(lwr2, "xy", box=box,/nan)  
     332lwr2=read_ncdf('lwr',st2,en2,file=file,/nostr, box=box) 
     333lwr2=grossemoyenne(lwr2, "xy", box=box,/nan) 
    334334lwr2=reform(lwr2) 
    335 swr1=read_ncdf('swr',st1,en1,file=file,/nostr, box=box)  
    336 swr1=grossemoyenne(swr1, "xy", box=box,/nan)  
     335swr1=read_ncdf('swr',st1,en1,file=file,/nostr, box=box) 
     336swr1=grossemoyenne(swr1, "xy", box=box,/nan) 
    337337swr1=reform(swr1) 
    338 swr2=read_ncdf('swr',st2,en2,file=file,/nostr, box=box)  
    339 swr2=grossemoyenne(swr2, "xy", box=box,/nan)  
     338swr2=read_ncdf('swr',st2,en2,file=file,/nostr, box=box) 
     339swr2=grossemoyenne(swr2, "xy", box=box,/nan) 
    340340swr2=reform(swr2) 
    341 net1=swr1+(lwr1+shf1+lhf1)  
     341net1=swr1+(lwr1+shf1+lhf1) 
    342342net2=swr2+(lwr2+shf2+lhf2) 
    343343nce1=[net1,net2] 
    344  
     344; 
    345345help, nce1 
    346  
     346; 
    347347ind=where(finite(net)) 
    348 net=net(ind)  
    349 era=era(ind)  
    350 trop=trop(ind)  
    351 oaf=oaf(ind)  
    352 nce2=nce2(ind)  
     348net=net(ind) 
     349era=era(ind) 
     350trop=trop(ind) 
     351oaf=oaf(ind) 
     352nce2=nce2(ind) 
    353353nce1=nce1(ind) 
    354354olr=olr(ind) 
    355  
     355; 
    356356statistics, net, era, $ 
    357357                 cor, bias, std, rmsd 
    358358print, cor, bias, std,  rmsd 
    359359cstat_era=string(cor, bias, std, rmsd, format='(f4.2,2x,f6.2,2x,f4.2,1x,f6.2)') 
    360  
     360; 
    361361statistics, net, trop, $ 
    362362                 cor, bias, std, rmsd 
    363363print, cor, bias, std,  rmsd 
    364364cstat_trop=string(cor, bias, std, rmsd, format='(f4.2,2x,f6.2,2x,f4.2,1x,f6.2)') 
    365  
     365; 
    366366statistics, net, oaf, $ 
    367367                 cor, bias, std, rmsd 
    368368print, cor, bias, std,  rmsd 
    369369cstat_oaf=string(cor, bias, std, rmsd, format='(f4.2,2x,f6.2,2x,f4.2,1x,f6.2)') 
    370  
     370; 
    371371statistics, net, nce1, $ 
    372372                 cor, bias, std, rmsd 
    373373print, cor, bias, std,  rmsd 
    374374cstat_nce1=string(cor, bias, std, rmsd, format='(f4.2,2x,f6.2,2x,f4.2,1x,f6.2)') 
    375  
     375; 
    376376statistics, net, nce2, $ 
    377377                 cor, bias, std, rmsd 
    378378print, cor, bias, std,  rmsd 
    379379cstat_nce2=string(cor, bias, std, rmsd, format='(f4.2,2x,f6.2,2x,f4.2,1x,f6.2)') 
    380  
     380; 
    381381statistics, net, olr, $ 
    382382                 cor, bias, std, rmsd 
    383383print, cor, bias, std,  rmsd 
    384384cstat_olr=string(cor, bias, std, rmsd, format='(f4.2,2x,f6.2,2x,f4.2,1x,f6.2)') 
    385  
    386  
     385; 
     386; 
    387387splot, net, era, charsize=1.1, title='Net Flux - Subdn. ses Vs ERAI', $ 
    388388     xrange=[-200,200], yrange=[-200,200], small=[2,3,1], psym=2, xmin=1, ymin=1 
    389389oplot, [-200,200], [-200,200] 
    390390xyouts, 0,-175, cstat_era, charsize=1. 
    391  
     391; 
    392392splot, net, trop, charsize=1.1, title='Net Flux - Subdn. ses Vs TropFlux',/noer, $ 
    393393     xrange=[-200,200], yrange=[-200,200], small=[2,3,2], psym=2, xmin=1, ymin=1 
    394394oplot, [-200,200], [-200,200] 
    395395xyouts, 0,-175, cstat_trop, charsize=1. 
    396  
     396; 
    397397splot, net, oaf, charsize=1.1, title='Net Flux - Subdn. ses Vs OAFlux',/noer, $ 
    398398     xrange=[-200,200], yrange=[-200,200], small=[2,3,3], psym=2, xmin=1, ymin=1 
    399399oplot, [-200,200], [-200,200] 
    400400xyouts, 0,-175, cstat_oaf, charsize=1. 
    401  
     401; 
    402402splot, net, nce1, charsize=1.1, title='Net Flux - Subdn. ses Vs NCEP1',/noer, $ 
    403403     xrange=[-200,200], yrange=[-200,200], small=[2,3,4], psym=2, xmin=1, ymin=1 
    404404oplot, [-200,200], [-200,200] 
    405405xyouts, 0,-175, cstat_nce1, charsize=1. 
    406  
     406; 
    407407splot, net, nce2, charsize=1.1, title='Net Flux - Subdn. ses Vs NCEP2',/noer, $ 
    408408     xrange=[-200,200], yrange=[-200,200], small=[2,3,5], psym=2, xmin=1, ymin=1 
    409409oplot, [-200,200], [-200,200] 
    410410xyouts, 0,-175, cstat_nce2, charsize=1. 
    411  
     411; 
    412412splot, net, olr, charsize=1.1, title='Net Flux - Subdn. ses Vs TropFlux_NRT',/noer, $ 
    413413     xrange=[-200,200], yrange=[-200,200], small=[2,3,6], psym=2, xmin=1, ymin=1 
    414414oplot, [-200,200], [-200,200] 
    415415xyouts, 0,-175, cstat_olr, charsize=1. 
    416  
     416; 
    417417closeps 
     418; 
    418419end 

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

    r94 r97  
    9292key_portrait = 1 
    9393coefpalit=.9 
    94  
     94; 
    9595openps, FILENAME = project_od_env+"subdctn_sws_validation_net_1991_93_all_v10.ps" 
    9696; partie a changer 
    97  
    98 ;; subduction experiment in the atlantic in 1991-93 
     97; 
     98; subduction experiment in the atlantic in 1991-93 
    9999box=[325.5, 326.5, 17.5, 18.5] 
    100  
    101 ;; first leg 
    102  
     100; 
     101; first leg 
     102; 
    103103fi=project_id_env+"met_data_subduct_sws_91_v1.txt" 
    104104res=read_ascii(fi,data_start=1) 
    … …  
    109109lwr_91=reform(ff(8,*)) 
    110110net_91=[swr_91+lwr_91+shf_91+lhf_91] 
    111  
    112 ;; start data - 06/02/92 and end date 02/06/92 then from 11/10/92 to 31/12/92 
    113 ;; total no of daily records - 
    114 ;; second leg 
    115  
     111; 
     112; start data - 06/02/92 and end date 02/06/92 then from 11/10/92 to 31/12/92 
     113; total no of daily records - 
     114; second leg 
     115; 
    116116fi=project_id_env+"met_data_subduct_sws_92_v1.txt" 
    117117res=read_ascii(fi,data_start=1) 
    … …  
    123123net_92=[swr_92+lwr_92+shf_92+lhf_92] 
    124124help, net_92 
    125  
    126 ;; second leg 
    127  
     125; 
     126; second leg 
     127; 
    128128fi=project_id_env+"met_data_subduct_sws_93_v1.txt" 
    129129res=read_ascii(fi,data_start=1) 
    … …  
    135135net_93=[swr_93+lwr_93+shf_93+lhf_93] 
    136136help, net_93 
    137  
     137; 
    138138net=[net_91,net_92,net_93] 
    139 ;; reading other data sets 
    140  
    141 st1=19910626  
     139; reading other data sets 
     140; 
     141st1=19910626 
    142142en1=19911101 
    143 st2=19920206  
     143st2=19920206 
    144144en2=19920602 
    145 st3=19921011  
     145st3=19921011 
    146146en3=19921231 
    147 st4=19930101  
     147st4=19930101 
    148148en4=19930521 
    149  
     149; 
    150150file=project_id_env+"erai_swr_19910101_20091231_oafluxgrid.nc" 
    151151initncdf, file 
    152 swr1=read_ncdf('swr',st1,en1,file=file,/nostr, box=box)  
    153 swr1=grossemoyenne(swr1, "xy", box=box,/nan)  
     152swr1=read_ncdf('swr',st1,en1,file=file,/nostr, box=box) 
     153swr1=grossemoyenne(swr1, "xy", box=box,/nan) 
    154154swr1=reform(swr1) 
    155 swr2=read_ncdf('swr',st2,en2,file=file,/nostr, box=box)  
    156 swr2=grossemoyenne(swr2, "xy", box=box,/nan)  
     155swr2=read_ncdf('swr',st2,en2,file=file,/nostr, box=box) 
     156swr2=grossemoyenne(swr2, "xy", box=box,/nan) 
    157157swr2=reform(swr2) 
    158 swr3=read_ncdf('swr',st3,en3,file=file,/nostr, box=box)  
    159 swr3=grossemoyenne(swr3, "xy", box=box,/nan)  
     158swr3=read_ncdf('swr',st3,en3,file=file,/nostr, box=box) 
     159swr3=grossemoyenne(swr3, "xy", box=box,/nan) 
    160160swr3=reform(swr3) 
    161 swr4=read_ncdf('swr',st4,en4,file=file,/nostr, box=box)  
    162 swr4=grossemoyenne(swr4, "xy", box=box,/nan)  
     161swr4=read_ncdf('swr',st4,en4,file=file,/nostr, box=box) 
     162swr4=grossemoyenne(swr4, "xy", box=box,/nan) 
    163163swr4=reform(swr4) 
    164  
     164; 
    165165file=project_id_env+'erai_lhf_19890101_20091231_oafluxgrid.nc' 
    166166initncdf, file 
    167 lhf1=-1*read_ncdf('lhf',st1,en1,file=file,/nostr, box=box)  
    168 lhf1=grossemoyenne(lhf1, "xy", box=box,/nan)  
     167lhf1=-1*read_ncdf('lhf',st1,en1,file=file,/nostr, box=box) 
     168lhf1=grossemoyenne(lhf1, "xy", box=box,/nan) 
    169169lhf1=reform(lhf1) 
    170 lhf2=-1*read_ncdf('lhf',st2,en2,file=file,/nostr, box=box)  
    171 lhf2=grossemoyenne(lhf2, "xy", box=box,/nan)  
     170lhf2=-1*read_ncdf('lhf',st2,en2,file=file,/nostr, box=box) 
     171lhf2=grossemoyenne(lhf2, "xy", box=box,/nan) 
    172172lhf2=reform(lhf2) 
    173 lhf3=-1*read_ncdf('lhf',st3,en3,file=file,/nostr, box=box)  
    174 lhf3=grossemoyenne(lhf3, "xy", box=box,/nan)  
     173lhf3=-1*read_ncdf('lhf',st3,en3,file=file,/nostr, box=box) 
     174lhf3=grossemoyenne(lhf3, "xy", box=box,/nan) 
    175175lhf3=reform(lhf3) 
    176 lhf4=-1*read_ncdf('lhf',st4,en4,file=file,/nostr, box=box)  
    177 lhf4=grossemoyenne(lhf4, "xy", box=box,/nan)  
     176lhf4=-1*read_ncdf('lhf',st4,en4,file=file,/nostr, box=box) 
     177lhf4=grossemoyenne(lhf4, "xy", box=box,/nan) 
    178178lhf4=reform(lhf4) 
    179  
     179; 
    180180file=project_id_env+'erai_shf_19890101_20091231_oafluxgrid.nc' 
    181181initncdf, file 
    182 shf1=-1*read_ncdf('shf',st1,en1,file=file,/nostr, box=box)  
    183 shf1=grossemoyenne(shf1, "xy", box=box,/nan)  
     182shf1=-1*read_ncdf('shf',st1,en1,file=file,/nostr, box=box) 
     183shf1=grossemoyenne(shf1, "xy", box=box,/nan) 
    184184shf1=reform(shf1) 
    185 shf2=-1*read_ncdf('shf',st2,en2,file=file,/nostr, box=box)  
    186 shf2=grossemoyenne(shf2, "xy", box=box,/nan)  
     185shf2=-1*read_ncdf('shf',st2,en2,file=file,/nostr, box=box) 
     186shf2=grossemoyenne(shf2, "xy", box=box,/nan) 
    187187shf2=reform(shf2) 
    188 shf3=-1*read_ncdf('shf',st3,en3,file=file,/nostr, box=box)  
    189 shf3=grossemoyenne(shf3, "xy", box=box,/nan)  
     188shf3=-1*read_ncdf('shf',st3,en3,file=file,/nostr, box=box) 
     189shf3=grossemoyenne(shf3, "xy", box=box,/nan) 
    190190shf3=reform(shf3) 
    191 shf4=-1*read_ncdf('shf',st4,en4,file=file,/nostr, box=box)  
    192 shf4=grossemoyenne(shf4, "xy", box=box,/nan)  
     191shf4=-1*read_ncdf('shf',st4,en4,file=file,/nostr, box=box) 
     192shf4=grossemoyenne(shf4, "xy", box=box,/nan) 
    193193shf4=reform(shf4) 
    194  
     194; 
    195195file=project_id_env+'erai_lwr_19890101_20091231_oafluxgrid.nc' 
    196196initncdf, file 
    197 lwr1=read_ncdf('lwr',st1-1,en1,file=file,/nostr, box=box)  
    198 lwr1=grossemoyenne(lwr1, "xy", box=box,/nan)  
     197lwr1=read_ncdf('lwr',st1-1,en1,file=file,/nostr, box=box) 
     198lwr1=grossemoyenne(lwr1, "xy", box=box,/nan) 
    199199lwr1=reform(lwr1) 
    200 lwr2=read_ncdf('lwr',st2-1,en2,file=file,/nostr, box=box)  
    201 lwr2=grossemoyenne(lwr2, "xy", box=box,/nan)  
     200lwr2=read_ncdf('lwr',st2-1,en2,file=file,/nostr, box=box) 
     201lwr2=grossemoyenne(lwr2, "xy", box=box,/nan) 
    202202lwr2=reform(lwr2) 
    203 lwr3=read_ncdf('lwr',st3-1,en3,file=file,/nostr, box=box)  
    204 lwr3=grossemoyenne(lwr3, "xy", box=box,/nan)  
     203lwr3=read_ncdf('lwr',st3-1,en3,file=file,/nostr, box=box) 
     204lwr3=grossemoyenne(lwr3, "xy", box=box,/nan) 
    205205lwr3=reform(lwr3) 
    206 lwr4=read_ncdf('lwr',st4-1,en4,file=file,/nostr, box=box)  
    207 lwr4=grossemoyenne(lwr4, "xy", box=box,/nan)  
     206lwr4=read_ncdf('lwr',st4-1,en4,file=file,/nostr, box=box) 
     207lwr4=grossemoyenne(lwr4, "xy", box=box,/nan) 
    208208lwr4=reform(lwr4) 
    209  
    210 net1=swr1+(lwr1+shf1+lhf1)  
    211 net2=swr2+(lwr2+shf2+lhf2)  
    212 net3=swr3+(lwr3+shf3+lhf3)  
     209; 
     210net1=swr1+(lwr1+shf1+lhf1) 
     211net2=swr2+(lwr2+shf2+lhf2) 
     212net3=swr3+(lwr3+shf3+lhf3) 
    213213net4=swr4+(lwr4+shf4+lhf4) 
    214214era=[net1,net2,net3,net4] 
    215 lhf1=0.  
    216 lhf2=0.  
    217 lhf3=0.  
     215lhf1=0. 
     216lhf2=0. 
     217lhf3=0. 
    218218lhf4=0. 
    219 shf1=0.  
    220 shf2=0.  
    221 shf3=0.  
     219shf1=0. 
     220shf2=0. 
     221shf3=0. 
    222222shf4=0. 
    223 lwr1=0.  
    224 lwr2=0.  
    225 lwr3=0.  
     223lwr1=0. 
     224lwr2=0. 
     225lwr3=0. 
    226226lwr4=0. 
    227 swr1=0.  
    228 swr2=0.  
    229 swr3=0.  
     227swr1=0. 
     228swr2=0. 
     229swr3=0. 
    230230swr4=0. 
    231 net1=0.  
    232 net2=0.  
    233 net3=0.  
     231net1=0. 
     232net2=0. 
     233net3=0. 
    234234net4=0 
    235235help, era 
    236  
     236; 
    237237file=project_id_env+"TropFlux_19890101_20091231.nc" 
    238238initncdf, file 
    239 lhf1=read_ncdf('lhf',st1,en1,file=file,/nostr, box=box)  
    240 lhf1=grossemoyenne(lhf1, "xy", box=box,/nan)  
     239lhf1=read_ncdf('lhf',st1,en1,file=file,/nostr, box=box) 
     240lhf1=grossemoyenne(lhf1, "xy", box=box,/nan) 
    241241lhf1=reform(lhf1) 
    242 lhf2=read_ncdf('lhf',st2,en2,file=file,/nostr, box=box)  
    243 lhf2=grossemoyenne(lhf2, "xy", box=box,/nan)  
     242lhf2=read_ncdf('lhf',st2,en2,file=file,/nostr, box=box) 
     243lhf2=grossemoyenne(lhf2, "xy", box=box,/nan) 
    244244lhf2=reform(lhf2) 
    245 lhf3=read_ncdf('lhf',st3,en3,file=file,/nostr, box=box)  
    246 lhf3=grossemoyenne(lhf3, "xy", box=box,/nan)  
     245lhf3=read_ncdf('lhf',st3,en3,file=file,/nostr, box=box) 
     246lhf3=grossemoyenne(lhf3, "xy", box=box,/nan) 
    247247lhf3=reform(lhf3) 
    248 lhf4=read_ncdf('lhf',st4,en4,file=file,/nostr, box=box)  
    249 lhf4=grossemoyenne(lhf4, "xy", box=box,/nan)  
     248lhf4=read_ncdf('lhf',st4,en4,file=file,/nostr, box=box) 
     249lhf4=grossemoyenne(lhf4, "xy", box=box,/nan) 
    250250lhf4=reform(lhf4) 
    251  
    252 shf1=read_ncdf('shf',st1,en1,file=file,/nostr, box=box)  
    253 shf1=grossemoyenne(shf1, "xy", box=box,/nan)  
     251; 
     252shf1=read_ncdf('shf',st1,en1,file=file,/nostr, box=box) 
     253shf1=grossemoyenne(shf1, "xy", box=box,/nan) 
    254254shf1=reform(shf1) 
    255 shf2=read_ncdf('shf',st2,en2,file=file,/nostr, box=box)  
    256 shf2=grossemoyenne(shf2, "xy", box=box,/nan)  
     255shf2=read_ncdf('shf',st2,en2,file=file,/nostr, box=box) 
     256shf2=grossemoyenne(shf2, "xy", box=box,/nan) 
    257257shf2=reform(shf2) 
    258 shf3=read_ncdf('shf',st3,en3,file=file,/nostr, box=box)  
    259 shf3=grossemoyenne(shf3, "xy", box=box,/nan)  
     258shf3=read_ncdf('shf',st3,en3,file=file,/nostr, box=box) 
     259shf3=grossemoyenne(shf3, "xy", box=box,/nan) 
    260260shf3=reform(shf3) 
    261 shf4=read_ncdf('shf',st4,en4,file=file,/nostr, box=box)  
    262 shf4=grossemoyenne(shf4, "xy", box=box,/nan)  
     261shf4=read_ncdf('shf',st4,en4,file=file,/nostr, box=box) 
     262shf4=grossemoyenne(shf4, "xy", box=box,/nan) 
    263263shf4=reform(shf4) 
    264  
    265 lwr1=read_ncdf('lwr',st1,en1,file=file,/nostr, box=box)  
    266 lwr1=grossemoyenne(lwr1, "xy", box=box,/nan)  
     264; 
     265lwr1=read_ncdf('lwr',st1,en1,file=file,/nostr, box=box) 
     266lwr1=grossemoyenne(lwr1, "xy", box=box,/nan) 
    267267lwr1=reform(lwr1) 
    268 lwr2=read_ncdf('lwr',st2,en2,file=file,/nostr, box=box)  
    269 lwr2=grossemoyenne(lwr2, "xy", box=box,/nan)  
     268lwr2=read_ncdf('lwr',st2,en2,file=file,/nostr, box=box) 
     269lwr2=grossemoyenne(lwr2, "xy", box=box,/nan) 
    270270lwr2=reform(lwr2) 
    271 lwr3=read_ncdf('lwr',st3,en3,file=file,/nostr, box=box)  
    272 lwr3=grossemoyenne(lwr3, "xy", box=box,/nan)  
     271lwr3=read_ncdf('lwr',st3,en3,file=file,/nostr, box=box) 
     272lwr3=grossemoyenne(lwr3, "xy", box=box,/nan) 
    273273lwr3=reform(lwr3) 
    274 lwr4=read_ncdf('lwr',st4,en4,file=file,/nostr, box=box)  
    275 lwr4=grossemoyenne(lwr4, "xy", box=box,/nan)  
     274lwr4=read_ncdf('lwr',st4,en4,file=file,/nostr, box=box) 
     275lwr4=grossemoyenne(lwr4, "xy", box=box,/nan) 
    276276lwr4=reform(lwr4) 
    277  
    278 swr1=read_ncdf('swr',st1,en1,file=file,/nostr, box=box)  
    279 swr1=grossemoyenne(swr1, "xy", box=box,/nan)  
     277; 
     278swr1=read_ncdf('swr',st1,en1,file=file,/nostr, box=box) 
     279swr1=grossemoyenne(swr1, "xy", box=box,/nan) 
    280280swr1=reform(swr1) 
    281 swr2=read_ncdf('swr',st2,en2,file=file,/nostr, box=box)  
    282 swr2=grossemoyenne(swr2, "xy", box=box,/nan)  
     281swr2=read_ncdf('swr',st2,en2,file=file,/nostr, box=box) 
     282swr2=grossemoyenne(swr2, "xy", box=box,/nan) 
    283283swr2=reform(swr2) 
    284 swr3=read_ncdf('swr',st3,en3,file=file,/nostr, box=box)  
    285 swr3=grossemoyenne(swr3, "xy", box=box,/nan)  
     284swr3=read_ncdf('swr',st3,en3,file=file,/nostr, box=box) 
     285swr3=grossemoyenne(swr3, "xy", box=box,/nan) 
    286286swr3=reform(swr3) 
    287 swr4=read_ncdf('swr',st4,en4,file=file,/nostr, box=box)  
    288 swr4=grossemoyenne(swr4, "xy", box=box,/nan)  
     287swr4=read_ncdf('swr',st4,en4,file=file,/nostr, box=box) 
     288swr4=grossemoyenne(swr4, "xy", box=box,/nan) 
    289289swr4=reform(swr4) 
    290  
     290; 
    291291file=project_id_env+"TropFlux_swr_19890101_20091231_NRT_v50.nc" 
    292292initncdf, file 
    293 olr1=read_ncdf("sw", st1-1, en1, file=file,/nostr, box=box)  
    294 olr1=grossemoyenne(olr1, "xy",/nan, box=box)  
     293olr1=read_ncdf("sw", st1-1, en1, file=file,/nostr, box=box) 
     294olr1=grossemoyenne(olr1, "xy",/nan, box=box) 
    295295olr1=reform(olr1) 
    296 olr2=read_ncdf("sw", st2-1, en2, file=file,/nostr, box=box)  
    297 olr2=grossemoyenne(olr2, "xy",/nan, box=box)  
     296olr2=read_ncdf("sw", st2-1, en2, file=file,/nostr, box=box) 
     297olr2=grossemoyenne(olr2, "xy",/nan, box=box) 
    298298olr2=reform(olr2) 
    299 olr3=read_ncdf("sw", st3-1, en3, file=file,/nostr, box=box)  
    300 olr3=grossemoyenne(olr3, "xy",/nan, box=box)  
     299olr3=read_ncdf("sw", st3-1, en3, file=file,/nostr, box=box) 
     300olr3=grossemoyenne(olr3, "xy",/nan, box=box) 
    301301olr3=reform(olr3) 
    302 olr4=read_ncdf("sw", st4-1, en4, file=file,/nostr, box=box)  
    303 olr4=grossemoyenne(olr4, "xy",/nan, box=box)  
     302olr4=read_ncdf("sw", st4-1, en4, file=file,/nostr, box=box) 
     303olr4=grossemoyenne(olr4, "xy",/nan, box=box) 
    304304olr4=reform(olr4) 
    305  
    306 net1=swr1+lwr1+(shf1+lhf1)  
    307 net2=swr2+lwr2+(shf2+lhf2)  
    308 net3=swr3+lwr3+(shf3+lhf3)  
     305; 
     306net1=swr1+lwr1+(shf1+lhf1) 
     307net2=swr2+lwr2+(shf2+lhf2) 
     308net3=swr3+lwr3+(shf3+lhf3) 
    309309net4=swr4+lwr4+(shf4+lhf4) 
    310 neto_1=olr1+lwr1+lhf1+shf1  
    311 neto_2=olr2+lwr2+lhf2+shf2  
    312 neto_3=olr3+lwr3+lhf3+shf3  
     310neto_1=olr1+lwr1+lhf1+shf1 
     311neto_2=olr2+lwr2+lhf2+shf2 
     312neto_3=olr3+lwr3+lhf3+shf3 
    313313neto_4=olr4+lwr4+lhf4+shf4 
    314  
    315 trop=[net1,net2,net3,net4]  
     314; 
     315trop=[net1,net2,net3,net4] 
    316316olr=[neto_1,neto_2,neto_3,neto_4] 
    317  
    318 lhf1=0.  
    319 lhf2=0.  
    320 lhf3=0.  
     317; 
     318lhf1=0. 
     319lhf2=0. 
     320lhf3=0. 
    321321lhf4=0. 
    322 shf1=0.  
    323 shf2=0.  
    324 shf3=0.  
     322shf1=0. 
     323shf2=0. 
     324shf3=0. 
    325325shf4=0. 
    326 lwr1=0.  
    327 lwr2=0.  
    328 lwr3=0.  
     326lwr1=0. 
     327lwr2=0. 
     328lwr3=0. 
    329329lwr4=0. 
    330 swr1=0.  
    331 swr2=0.  
    332 swr3=0.  
     330swr1=0. 
     331swr2=0. 
     332swr3=0. 
    333333swr4=0. 
    334 net1=0.  
    335 net2=0.  
    336 net3=0.  
     334net1=0. 
     335net2=0. 
     336net3=0. 
    337337net4=0. 
    338 neto_1=0  
    339 neto_2=0  
    340 neto_3=0  
     338neto_1=0 
     339neto_2=0 
     340neto_3=0 
    341341neto_4=0 
    342  
     342; 
    343343help, trop, olr 
    344  
     344; 
    345345file=project_id_env+'swr_oafluxgrid_1985_2007.nc' 
    346346initncdf, file 
    347 swr1=read_ncdf("swr", st1, en1, file=file,/nostr, box=box)  
    348 swr1=grossemoyenne(swr1, "xy",/nan, box=box)  
     347swr1=read_ncdf("swr", st1, en1, file=file,/nostr, box=box) 
     348swr1=grossemoyenne(swr1, "xy",/nan, box=box) 
    349349swr1=reform(swr1) 
    350 swr2=read_ncdf("swr", st2, en2, file=file,/nostr, box=box)  
    351 swr2=grossemoyenne(swr2, "xy",/nan, box=box)  
     350swr2=read_ncdf("swr", st2, en2, file=file,/nostr, box=box) 
     351swr2=grossemoyenne(swr2, "xy",/nan, box=box) 
    352352swr2=reform(swr2) 
    353 swr3=read_ncdf("swr", st3, en3, file=file,/nostr, box=box)  
    354 swr3=grossemoyenne(swr3, "xy",/nan, box=box)  
     353swr3=read_ncdf("swr", st3, en3, file=file,/nostr, box=box) 
     354swr3=grossemoyenne(swr3, "xy",/nan, box=box) 
    355355swr3=reform(swr3) 
    356 swr4=read_ncdf("swr", st4, en4, file=file,/nostr, box=box)  
    357 swr4=grossemoyenne(swr4, "xy",/nan, box=box)  
     356swr4=read_ncdf("swr", st4, en4, file=file,/nostr, box=box) 
     357swr4=grossemoyenne(swr4, "xy",/nan, box=box) 
    358358swr4=reform(swr4) 
    359  
     359; 
    360360file=project_id_env+'lwr_oafluxgrid_1985_2007.nc' 
    361361initncdf, file 
    362 lwr1=-1*read_ncdf("lwr", st1, en1, file=file,/nostr, box=box)  
    363 lwr1=grossemoyenne(lwr1, "xy",/nan, box=box)  
     362lwr1=-1*read_ncdf("lwr", st1, en1, file=file,/nostr, box=box) 
     363lwr1=grossemoyenne(lwr1, "xy",/nan, box=box) 
    364364lwr1=reform(lwr1) 
    365 lwr2=-1*read_ncdf("lwr", st2, en2, file=file,/nostr, box=box)  
    366 lwr2=grossemoyenne(lwr2, "xy",/nan, box=box)  
     365lwr2=-1*read_ncdf("lwr", st2, en2, file=file,/nostr, box=box) 
     366lwr2=grossemoyenne(lwr2, "xy",/nan, box=box) 
    367367lwr2=reform(lwr2) 
    368 lwr3=-1*read_ncdf("lwr", st3, en3, file=file,/nostr, box=box)  
    369 lwr3=grossemoyenne(lwr3, "xy",/nan, box=box)  
     368lwr3=-1*read_ncdf("lwr", st3, en3, file=file,/nostr, box=box) 
     369lwr3=grossemoyenne(lwr3, "xy",/nan, box=box) 
    370370lwr3=reform(lwr3) 
    371 lwr4=-1*read_ncdf("lwr", st4, en4, file=file,/nostr, box=box)  
    372 lwr4=grossemoyenne(lwr4, "xy",/nan, box=box)  
     371lwr4=-1*read_ncdf("lwr", st4, en4, file=file,/nostr, box=box) 
     372lwr4=grossemoyenne(lwr4, "xy",/nan, box=box) 
    373373lwr4=reform(lwr4) 
    374  
     374; 
    375375file=project_id_env+'lhf_oafluxgrid_1985_2009.nc' 
    376376initncdf, file 
    377 lhf1=-1*read_ncdf("lhf", st1, en1, file=file,/nostr, box=box)  
    378 lhf1=grossemoyenne(lhf1, "xy",/nan, box=box)  
     377lhf1=-1*read_ncdf("lhf", st1, en1, file=file,/nostr, box=box) 
     378lhf1=grossemoyenne(lhf1, "xy",/nan, box=box) 
    379379lhf1=reform(lhf1) 
    380 lhf2=-1*read_ncdf("lhf", st2, en2, file=file,/nostr, box=box)  
    381 lhf2=grossemoyenne(lhf2, "xy",/nan, box=box)  
     380lhf2=-1*read_ncdf("lhf", st2, en2, file=file,/nostr, box=box) 
     381lhf2=grossemoyenne(lhf2, "xy",/nan, box=box) 
    382382lhf2=reform(lhf2) 
    383 lhf3=-1*read_ncdf("lhf", st3, en3, file=file,/nostr, box=box)  
    384 lhf3=grossemoyenne(lhf3, "xy",/nan, box=box)  
     383lhf3=-1*read_ncdf("lhf", st3, en3, file=file,/nostr, box=box) 
     384lhf3=grossemoyenne(lhf3, "xy",/nan, box=box) 
    385385lhf3=reform(lhf3) 
    386 lhf4=-1*read_ncdf("lhf", st4, en4, file=file,/nostr, box=box)  
    387 lhf4=grossemoyenne(lhf4, "xy",/nan, box=box)  
     386lhf4=-1*read_ncdf("lhf", st4, en4, file=file,/nostr, box=box) 
     387lhf4=grossemoyenne(lhf4, "xy",/nan, box=box) 
    388388lhf4=reform(lhf4) 
    389  
     389; 
    390390file=project_id_env+'shf_oafluxgrid_1985_2009.nc' 
    391391initncdf, file 
    392 shf1=-1*read_ncdf("shf", st1, en1, file=file,/nostr, box=box)  
    393 shf1=grossemoyenne(shf1, "xy",/nan, box=box)  
     392shf1=-1*read_ncdf("shf", st1, en1, file=file,/nostr, box=box) 
     393shf1=grossemoyenne(shf1, "xy",/nan, box=box) 
    394394shf1=reform(shf1) 
    395 shf2=-1*read_ncdf("shf", st2, en2, file=file,/nostr, box=box)  
    396 shf2=grossemoyenne(shf2, "xy",/nan, box=box)  
     395shf2=-1*read_ncdf("shf", st2, en2, file=file,/nostr, box=box) 
     396shf2=grossemoyenne(shf2, "xy",/nan, box=box) 
    397397shf2=reform(shf2) 
    398 shf3=-1*read_ncdf("shf", st3, en3, file=file,/nostr, box=box)  
    399 shf3=grossemoyenne(shf3, "xy",/nan, box=box)  
     398shf3=-1*read_ncdf("shf", st3, en3, file=file,/nostr, box=box) 
     399shf3=grossemoyenne(shf3, "xy",/nan, box=box) 
    400400shf3=reform(shf3) 
    401 shf4=-1*read_ncdf("shf", st4, en4, file=file,/nostr, box=box)  
    402 shf4=grossemoyenne(shf4, "xy",/nan, box=box)  
     401shf4=-1*read_ncdf("shf", st4, en4, file=file,/nostr, box=box) 
     402shf4=grossemoyenne(shf4, "xy",/nan, box=box) 
    403403shf4=reform(shf4) 
    404  
    405 net1=swr1+lwr1+lhf1+shf1  
    406 net2=swr2+lwr2+lhf2+shf2  
    407 net3=swr3+lwr3+lhf3+shf3  
     404; 
     405net1=swr1+lwr1+lhf1+shf1 
     406net2=swr2+lwr2+lhf2+shf2 
     407net3=swr3+lwr3+lhf3+shf3 
    408408net4=swr4+lwr4+lhf4+shf4 
    409  
     409; 
    410410oaf=[net1,net2,net3,net4] 
    411 lhf1=0.  
    412 lhf2=0.  
    413 lhf3=0.  
     411lhf1=0. 
     412lhf2=0. 
     413lhf3=0. 
    414414lhf4=0. 
    415 shf1=0.  
    416 shf2=0.  
    417 shf3=0.  
     415shf1=0. 
     416shf2=0. 
     417shf3=0. 
    418418shf4=0. 
    419 lwr1=0.  
    420 lwr2=0.  
    421 lwr3=0.  
     419lwr1=0. 
     420lwr2=0. 
     421lwr3=0. 
    422422lwr4=0. 
    423 swr1=0.  
    424 swr2=0.  
    425 swr3=0.  
     423swr1=0. 
     424swr2=0. 
     425swr3=0. 
    426426swr4=0. 
    427 net1=0.  
    428 net2=0.  
    429 net3=0.  
     427net1=0. 
     428net2=0. 
     429net3=0. 
    430430net4=0 
    431431help, oaf 
    432  
     432; 
    433433help, oaf 
    434  
     434; 
    435435fi=project_id_env+'swr_ncep2_oaflxgrid_19890101_20091231.nc' 
    436436initncdf, fi 
    437 swr1=read_ncdf("swr", st1, en1, file=fi,/nostr, box=box)  
    438 swr1=grossemoyenne(swr1, "xy",/nan, box=box)  
     437swr1=read_ncdf("swr", st1, en1, file=fi,/nostr, box=box) 
     438swr1=grossemoyenne(swr1, "xy",/nan, box=box) 
    439439swr1=reform(swr1) 
    440 swr2=read_ncdf("swr", st2, en2, file=fi,/nostr, box=box)  
    441 swr2=grossemoyenne(swr2, "xy",/nan, box=box)  
     440swr2=read_ncdf("swr", st2, en2, file=fi,/nostr, box=box) 
     441swr2=grossemoyenne(swr2, "xy",/nan, box=box) 
    442442swr2=reform(swr2) 
    443 swr3=read_ncdf("swr", st3, en3, file=fi,/nostr, box=box)  
    444 swr3=grossemoyenne(swr3, "xy",/nan, box=box)  
     443swr3=read_ncdf("swr", st3, en3, file=fi,/nostr, box=box) 
     444swr3=grossemoyenne(swr3, "xy",/nan, box=box) 
    445445swr3=reform(swr3) 
    446 swr4=read_ncdf("swr", st4, en4, file=fi,/nostr, box=box)  
    447 swr4=grossemoyenne(swr4, "xy",/nan, box=box)  
     446swr4=read_ncdf("swr", st4, en4, file=fi,/nostr, box=box) 
     447swr4=grossemoyenne(swr4, "xy",/nan, box=box) 
    448448swr4=reform(swr4) 
    449  
     449; 
    450450fi=project_id_env+'"NCEP2_flux_19890101_20090729.nc" 
    451451initncdf, fi 
    452 lwr1=-1*read_ncdf("lwr", st1, en1, file=fi,/nostr, box=box)  
    453 lwr1=grossemoyenne(lwr1, "xy",/nan, box=box)  
     452lwr1=-1*read_ncdf("lwr", st1, en1, file=fi,/nostr, box=box) 
     453lwr1=grossemoyenne(lwr1, "xy",/nan, box=box) 
    454454lwr1=reform(lwr1) 
    455 lwr2=-1*read_ncdf("lwr", st2, en2, file=fi,/nostr, box=box)  
    456 lwr2=grossemoyenne(lwr2, "xy",/nan, box=box)  
     455lwr2=-1*read_ncdf("lwr", st2, en2, file=fi,/nostr, box=box) 
     456lwr2=grossemoyenne(lwr2, "xy",/nan, box=box) 
    457457lwr2=reform(lwr2) 
    458 lwr3=-1*read_ncdf("lwr", st3, en3, file=fi,/nostr, box=box)  
     458lwr3=-1*read_ncdf("lwr", st3, en3, file=fi,/nostr, box=box) 
    459459lwr3=grossemoyenne(lwr3, "xy",/nan, box=box) 
    460460lwr3=reform(lwr3) 
    461 lwr4=-1*read_ncdf("lwr", st4, en4, file=fi,/nostr, box=box)  
    462 lwr4=grossemoyenne(lwr4, "xy",/nan, box=box)  
     461lwr4=-1*read_ncdf("lwr", st4, en4, file=fi,/nostr, box=box) 
     462lwr4=grossemoyenne(lwr4, "xy",/nan, box=box) 
    463463lwr4=reform(lwr4) 
    464  
     464; 
    465465fi=project_id_env+'lhf_ncep2_oafluxgrid_19890101_20091231.nc' 
    466466initncdf, fi 
    467 lhf1=-1*read_ncdf("lhf", st1, en1, file=fi,/nostr, box=box)  
    468 lhf1=grossemoyenne(lhf1, "xy",/nan, box=box)  
     467lhf1=-1*read_ncdf("lhf", st1, en1, file=fi,/nostr, box=box) 
     468lhf1=grossemoyenne(lhf1, "xy",/nan, box=box) 
    469469lhf1=reform(lhf1) 
    470 lhf2=-1*read_ncdf("lhf", st2, en2, file=fi,/nostr, box=box)  
    471 lhf2=grossemoyenne(lhf2, "xy",/nan, box=box)  
     470lhf2=-1*read_ncdf("lhf", st2, en2, file=fi,/nostr, box=box) 
     471lhf2=grossemoyenne(lhf2, "xy",/nan, box=box) 
    472472lhf2=reform(lhf2) 
    473 lhf3=-1*read_ncdf("lhf", st3, en3, file=fi,/nostr, box=box)  
    474 lhf3=grossemoyenne(lhf3, "xy",/nan, box=box)  
     473lhf3=-1*read_ncdf("lhf", st3, en3, file=fi,/nostr, box=box) 
     474lhf3=grossemoyenne(lhf3, "xy",/nan, box=box) 
    475475lhf3=reform(lhf3) 
    476 lhf4=-1*read_ncdf("lhf", st4, en4, file=fi,/nostr, box=box)  
    477 lhf4=grossemoyenne(lhf4, "xy",/nan, box=box)  
     476lhf4=-1*read_ncdf("lhf", st4, en4, file=fi,/nostr, box=box) 
     477lhf4=grossemoyenne(lhf4, "xy",/nan, box=box) 
    478478lhf4=reform(lhf4) 
    479  
     479; 
    480480fi=project_id_env+'shf_ncep2_oafluxgrid_19890101_20091231.nc' 
    481481initncdf, fi 
    482 shf1=-1*read_ncdf("shf", st1, en1, file=fi,/nostr, box=box)  
    483 shf1=grossemoyenne(shf1, "xy",/nan, box=box)  
     482shf1=-1*read_ncdf("shf", st1, en1, file=fi,/nostr, box=box) 
     483shf1=grossemoyenne(shf1, "xy",/nan, box=box) 
    484484shf1=reform(shf1) 
    485 shf2=-1*read_ncdf("shf", st2, en2, file=fi,/nostr, box=box)  
    486 shf2=grossemoyenne(shf2, "xy",/nan, box=box)  
     485shf2=-1*read_ncdf("shf", st2, en2, file=fi,/nostr, box=box) 
     486shf2=grossemoyenne(shf2, "xy",/nan, box=box) 
    487487shf2=reform(shf2) 
    488 shf3=-1*read_ncdf("shf", st3, en3, file=fi,/nostr, box=box)  
    489 shf3=grossemoyenne(shf3, "xy",/nan, box=box)  
     488shf3=-1*read_ncdf("shf", st3, en3, file=fi,/nostr, box=box) 
     489shf3=grossemoyenne(shf3, "xy",/nan, box=box) 
    490490shf3=reform(shf3) 
    491 shf4=-1*read_ncdf("shf", st4, en4, file=fi,/nostr, box=box)  
    492 shf4=grossemoyenne(shf4, "xy",/nan, box=box)  
     491shf4=-1*read_ncdf("shf", st4, en4, file=fi,/nostr, box=box) 
     492shf4=grossemoyenne(shf4, "xy",/nan, box=box) 
    493493shf4=reform(shf4) 
    494  
    495 net1=swr1+lwr1+lhf1+shf1  
    496 net2=swr2+lwr2+lhf2+shf2  
    497 net3=swr3+lwr3+lhf3+shf3  
     494; 
     495net1=swr1+lwr1+lhf1+shf1 
     496net2=swr2+lwr2+lhf2+shf2 
     497net3=swr3+lwr3+lhf3+shf3 
    498498net4=swr4+lwr4+lhf4+shf4 
    499  
     499; 
    500500nce2=[net1,net2,net3,net4] 
    501501help, nce2 
    502  
    503 lhf1=0.  
    504 lhf2=0.  
    505 lhf3=0.  
     502; 
     503lhf1=0. 
     504lhf2=0. 
     505lhf3=0. 
    506506lhf4=0. 
    507 shf1=0.  
    508 shf2=0.  
    509 shf3=0.  
     507shf1=0. 
     508shf2=0. 
     509shf3=0. 
    510510shf4=0. 
    511 lwr1=0.  
    512 lwr2=0.  
    513 lwr3=0.  
     511lwr1=0. 
     512lwr2=0. 
     513lwr3=0. 
    514514lwr4=0. 
    515 swr1=0.  
    516 swr2=0.  
    517 swr3=0.  
     515swr1=0. 
     516swr2=0. 
     517swr3=0. 
    518518swr4=0. 
    519 net1=0.  
    520 net2=0.  
    521 net3=0.  
     519net1=0. 
     520net2=0. 
     521net3=0. 
    522522net4=0 
    523  
     523; 
    524524file=project_id_env+"ncep1_flux_19890101_20091231.nc" 
    525525initncdf, file 
    526  
    527 lhf1=read_ncdf('lhf',st1,en1,file=file,/nostr, box=box)  
    528 lhf1=grossemoyenne(lhf1, "xy", box=box,/nan)  
     526; 
     527lhf1=read_ncdf('lhf',st1,en1,file=file,/nostr, box=box) 
     528lhf1=grossemoyenne(lhf1, "xy", box=box,/nan) 
    529529lhf1=reform(lhf1) 
    530 lhf2=read_ncdf('lhf',st2,en2,file=file,/nostr, box=box)  
    531 lhf2=grossemoyenne(lhf2, "xy", box=box,/nan)  
     530lhf2=read_ncdf('lhf',st2,en2,file=file,/nostr, box=box) 
     531lhf2=grossemoyenne(lhf2, "xy", box=box,/nan) 
    532532lhf2=reform(lhf2) 
    533 lhf3=read_ncdf('lhf',st3,en3,file=file,/nostr, box=box)  
    534 lhf3=grossemoyenne(lhf3, "xy", box=box,/nan)  
     533lhf3=read_ncdf('lhf',st3,en3,file=file,/nostr, box=box) 
     534lhf3=grossemoyenne(lhf3, "xy", box=box,/nan) 
    535535lhf3=reform(lhf3) 
    536 lhf4=read_ncdf('lhf',st4,en4,file=file,/nostr, box=box)  
    537 lhf4=grossemoyenne(lhf4, "xy", box=box,/nan)  
     536lhf4=read_ncdf('lhf',st4,en4,file=file,/nostr, box=box) 
     537lhf4=grossemoyenne(lhf4, "xy", box=box,/nan) 
    538538lhf4=reform(lhf4) 
    539  
    540 shf1=read_ncdf('shf',st1,en1,file=file,/nostr, box=box)  
    541 shf1=grossemoyenne(shf1, "xy", box=box,/nan)  
     539; 
     540shf1=read_ncdf('shf',st1,en1,file=file,/nostr, box=box) 
     541shf1=grossemoyenne(shf1, "xy", box=box,/nan) 
    542542shf1=reform(shf1) 
    543 shf2=read_ncdf('shf',st2,en2,file=file,/nostr, box=box)  
    544 shf2=grossemoyenne(shf2, "xy", box=box,/nan)  
     543shf2=read_ncdf('shf',st2,en2,file=file,/nostr, box=box) 
     544shf2=grossemoyenne(shf2, "xy", box=box,/nan) 
    545545shf2=reform(shf2) 
    546 shf3=read_ncdf('shf',st3,en3,file=file,/nostr, box=box)  
    547 shf3=grossemoyenne(shf3, "xy", box=box,/nan)  
     546shf3=read_ncdf('shf',st3,en3,file=file,/nostr, box=box) 
     547shf3=grossemoyenne(shf3, "xy", box=box,/nan) 
    548548shf3=reform(shf3) 
    549 shf4=read_ncdf('shf',st4,en4,file=file,/nostr, box=box)  
    550 shf4=grossemoyenne(shf4, "xy", box=box,/nan)  
     549shf4=read_ncdf('shf',st4,en4,file=file,/nostr, box=box) 
     550shf4=grossemoyenne(shf4, "xy", box=box,/nan) 
    551551shf4=reform(shf4) 
    552  
    553 lwr1=read_ncdf('lwr',st1,en1,file=file,/nostr, box=box)  
    554 lwr1=grossemoyenne(lwr1, "xy", box=box,/nan)  
     552; 
     553lwr1=read_ncdf('lwr',st1,en1,file=file,/nostr, box=box) 
     554lwr1=grossemoyenne(lwr1, "xy", box=box,/nan) 
    555555lwr1=reform(lwr1) 
    556 lwr2=read_ncdf('lwr',st2,en2,file=file,/nostr, box=box)  
    557 lwr2=grossemoyenne(lwr2, "xy", box=box,/nan)  
     556lwr2=read_ncdf('lwr',st2,en2,file=file,/nostr, box=box) 
     557lwr2=grossemoyenne(lwr2, "xy", box=box,/nan) 
    558558lwr2=reform(lwr2) 
    559 lwr3=read_ncdf('lwr',st3,en3,file=file,/nostr, box=box)  
    560 lwr3=grossemoyenne(lwr3, "xy", box=box,/nan)  
     559lwr3=read_ncdf('lwr',st3,en3,file=file,/nostr, box=box) 
     560lwr3=grossemoyenne(lwr3, "xy", box=box,/nan) 
    561561lwr3=reform(lwr3) 
    562 lwr4=read_ncdf('lwr',st4,en4,file=file,/nostr, box=box)  
    563 lwr4=grossemoyenne(lwr4, "xy", box=box,/nan)  
     562lwr4=read_ncdf('lwr',st4,en4,file=file,/nostr, box=box) 
     563lwr4=grossemoyenne(lwr4, "xy", box=box,/nan) 
    564564lwr4=reform(lwr4) 
    565  
    566 swr1=read_ncdf('swr',st1,en1,file=file,/nostr, box=box)  
    567 swr1=grossemoyenne(swr1, "xy", box=box,/nan)  
     565; 
     566swr1=read_ncdf('swr',st1,en1,file=file,/nostr, box=box) 
     567swr1=grossemoyenne(swr1, "xy", box=box,/nan) 
    568568swr1=reform(swr1) 
    569 swr2=read_ncdf('swr',st2,en2,file=file,/nostr, box=box)  
    570 swr2=grossemoyenne(swr2, "xy", box=box,/nan)  
     569swr2=read_ncdf('swr',st2,en2,file=file,/nostr, box=box) 
     570swr2=grossemoyenne(swr2, "xy", box=box,/nan) 
    571571swr2=reform(swr2) 
    572 swr3=read_ncdf('swr',st3,en3,file=file,/nostr, box=box)  
    573 swr3=grossemoyenne(swr3, "xy", box=box,/nan)  
     572swr3=read_ncdf('swr',st3,en3,file=file,/nostr, box=box) 
     573swr3=grossemoyenne(swr3, "xy", box=box,/nan) 
    574574swr3=reform(swr3) 
    575 swr4=read_ncdf('swr',st4,en4,file=file,/nostr, box=box)  
    576 swr4=grossemoyenne(swr4, "xy", box=box,/nan)  
     575swr4=read_ncdf('swr',st4,en4,file=file,/nostr, box=box) 
     576swr4=grossemoyenne(swr4, "xy", box=box,/nan) 
    577577swr4=reform(swr4) 
    578  
    579 net1=swr1+(lwr1+shf1+lhf1)  
    580 net2=swr2+(lwr2+shf2+lhf2)  
    581 net3=swr3+(lwr3+shf3+lhf3)  
     578; 
     579net1=swr1+(lwr1+shf1+lhf1) 
     580net2=swr2+(lwr2+shf2+lhf2) 
     581net3=swr3+(lwr3+shf3+lhf3) 
    582582net4=swr4+(lwr4+shf4+lhf4) 
    583583nce1=[net1,net2,net3,net4] 
    584 lhf1=0.  
    585 lhf2=0.  
    586 lhf3=0.  
     584lhf1=0. 
     585lhf2=0. 
     586lhf3=0. 
    587587lhf4=0. 
    588 shf1=0.  
    589 shf2=0.  
    590 shf3=0.  
     588shf1=0. 
     589shf2=0. 
     590shf3=0. 
    591591shf4=0. 
    592 lwr1=0.  
    593 lwr2=0.  
    594 lwr3=0.  
     592lwr1=0. 
     593lwr2=0. 
     594lwr3=0. 
    595595lwr4=0. 
    596 swr1=0.  
    597 swr2=0.  
    598 swr3=0.  
     596swr1=0. 
     597swr2=0. 
     598swr3=0. 
    599599swr4=0. 
    600 net1=0.  
    601 net2=0.  
    602 net3=0.  
     600net1=0. 
     601net2=0. 
     602net3=0. 
    603603net4=0 
    604  
     604; 
    605605ind=where(finite(net)) 
    606 net=net(ind)  
    607 era=era(ind)  
    608 trop=trop(ind)  
    609 oaf=oaf(ind)  
    610 nce2=nce2(ind)  
     606net=net(ind) 
     607era=era(ind) 
     608trop=trop(ind) 
     609oaf=oaf(ind) 
     610nce2=nce2(ind) 
    611611nce1=nce1(ind) 
    612612olr=olr(ind) 
    613  
     613; 
    614614statistics, net, era, $ 
    615615                 cor, bias, std, rmsd 
    616616print, cor, bias, std,  rmsd 
    617617cstat_era=string(cor, bias, std, rmsd, format='(f4.2,2x,f6.2,2x,f4.2,1x,f6.2)') 
    618  
     618; 
    619619statistics, net, trop, $ 
    620620                 cor, bias, std, rmsd 
    621621print, cor, bias, std,  rmsd 
    622622cstat_trop=string(cor, bias, std, rmsd, format='(f4.2,2x,f6.2,2x,f4.2,1x,f6.2)') 
    623  
     623; 
    624624statistics, net, oaf, $ 
    625625                 cor, bias, std, rmsd 
    626626print, cor, bias, std,  rmsd 
    627627cstat_oaf=string(cor, bias, std, rmsd, format='(f4.2,2x,f6.2,2x,f4.2,1x,f6.2)') 
    628  
     628; 
    629629statistics, net, nce1, $ 
    630630                 cor, bias, std, rmsd 
    631631print, cor, bias, std,  rmsd 
    632632cstat_nce1=string(cor, bias, std, rmsd, format='(f4.2,2x,f6.2,2x,f4.2,1x,f6.2)') 
    633  
     633; 
    634634statistics, net, nce2, $ 
    635635                 cor, bias, std, rmsd 
    636636print, cor, bias, std,  rmsd 
    637637cstat_nce2=string(cor, bias, std, rmsd, format='(f4.2,2x,f6.2,2x,f4.2,1x,f6.2)') 
    638  
     638; 
    639639statistics, net, olr, $ 
    640640                 cor, bias, std, rmsd 
    641641print, cor, bias, std,  rmsd 
    642642cstat_olr=string(cor, bias, std, rmsd, format='(f4.2,2x,f6.2,2x,f4.2,1x,f6.2)') 
    643  
    644  
     643; 
     644; 
    645645splot, net, era, charsize=1.1, title='SWR - Subdctn. sws Vs ERAI', $ 
    646646     xrange=[-200,200], yrange=[-200,200], small=[2,3,1], psym=2, xmin=1, ymin=1 
    647647oplot, [-200,200], [-200,200] 
    648648xyouts, 0,-175, cstat_era, charsize=1. 
    649  
     649; 
    650650splot, net, trop, charsize=1.1, title='SWR - Subdctn. sws Vs TropFlux',/noer, $ 
    651651     xrange=[-200,200], yrange=[-200,200], small=[2,3,2], psym=2, xmin=1, ymin=1 
    652652oplot, [-200,200], [-200,200] 
    653653xyouts, 0,-175, cstat_trop, charsize=1. 
    654  
     654; 
    655655splot, net, oaf, charsize=1.1, title='SWR - Subdctn. sws Vs OAFlux',/noer, $ 
    656656     xrange=[-200,200], yrange=[-200,200], small=[2,3,3], psym=2, xmin=1, ymin=1 
    657657oplot, [-200,200], [-200,200] 
    658658xyouts, 0,-175, cstat_oaf, charsize=1. 
    659  
     659; 
    660660splot, net, nce1, charsize=1.1, title='SWR - Subdctn. sws Vs NCEP1',/noer, $ 
    661661     xrange=[-200,200], yrange=[-200,200], small=[2,3,4], psym=2, xmin=1, ymin=1 
    662662oplot, [-200,200], [-200,200] 
    663663xyouts, 0,-175, cstat_nce1, charsize=1. 
    664  
     664; 
    665665splot, net, nce2, charsize=1.1, title='SWR - Subdctn. sws Vs NCEP2',/noer, $ 
    666666     xrange=[-200,200], yrange=[-200,200], small=[2,3,5], psym=2, xmin=1, ymin=1 
    667667oplot, [-200,200], [-200,200] 
    668668xyouts, 0,-175, cstat_nce2, charsize=1. 
    669  
     669; 
    670670splot, net, olr, charsize=1.1, title='SWR - Subdctn. sws Vs TropFlux_NRT',/noer, $ 
    671671     xrange=[-200,200], yrange=[-200,200], small=[2,3,6], psym=2, xmin=1, ymin=1 
    672672oplot, [-200,200], [-200,200] 
    673673xyouts, 0,-175, cstat_olr, charsize=1. 
    674  
     674; 
    675675closeps 
     676; 
    676677end 

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

    r94 r97  
    9292key_portrait = 1 
    9393coefpalit=.9 
    94  
     94; 
    9595openps, FILENAME = project_od_env+"WHOTS_validation_net_2004_2007_all_v10.ps" 
    9696; partie a changer 
    97  
    98 ;; WHOTS in the NC pacific  2004-09 
     97; 
     98; WHOTS in the NC pacific  2004-09 
    9999;22.45N, 157.54W (202.46E) 
    100100box=[202, 203, 22., 23.] 
    101  
    102 ;; first leg 
    103  
     101; 
     102; first leg 
     103; 
    104104fi=project_id_env+"met_data_WHOTS_2004_2005.txt" 
    105105res=read_ascii(fi,data_start=1) 
    … …  
    110110lwr_04=reform(ff(8,*)) 
    111111net_04=[lhf_04+shf_04+swr_04+lwr_04] 
    112  
     112; 
    113113fi=project_id_env+"met_data_WHOTS_2005_2006.txt" 
    114114res=read_ascii(fi,data_start=1) 
    … …  
    119119lwr_05=reform(ff(8,*)) 
    120120net_05=[lhf_05+shf_05+swr_05+lwr_05] 
    121  
     121; 
    122122fi=project_id_env+"met_data_WHOTS_2006_2007.txt" 
    123123res=read_ascii(fi,data_start=1) 
    … …  
    128128lwr_06=reform(ff(8,*)) 
    129129net_06=[lhf_06+shf_06+swr_06+lwr_06] 
    130  
     130; 
    131131net=[net_04, net_05, net_06] 
    132  
     132; 
    133133help, net 
    134  
    135 ;; reading other data sets 
    136  
    137 st1=20040813  
     134; 
     135; reading other data sets 
     136; 
     137st1=20040813 
    138138en1=20050725 
    139 st2=20050728  
     139st2=20050728 
    140140en2=20060624 
    141 st3=20060627  
     141st3=20060627 
    142142en3=20070628 
    143 ;st4=20070626  
     143;st4=20070626 
    144144;en4=20080606 
    145 ;st5=20080605  
     145;st5=20080605 
    146146; en5=20090715 
    147  
     147; 
    148148file=project_id_env+'erai_lhf_19890101_20091231_oafluxgrid.nc' 
    149149initncdf, file 
    150 lhf1=-1*read_ncdf('lhf',st1,en1,file=file,/nostr, box=box)  
    151 lhf1=grossemoyenne(lhf1, "xy", box=box,/nan)  
     150lhf1=-1*read_ncdf('lhf',st1,en1,file=file,/nostr, box=box) 
     151lhf1=grossemoyenne(lhf1, "xy", box=box,/nan) 
    152152lhf1=reform(lhf1) 
    153 lhf2=-1*read_ncdf('lhf',st2,en2,file=file,/nostr, box=box)  
    154 lhf2=grossemoyenne(lhf2, "xy", box=box,/nan)  
     153lhf2=-1*read_ncdf('lhf',st2,en2,file=file,/nostr, box=box) 
     154lhf2=grossemoyenne(lhf2, "xy", box=box,/nan) 
    155155lhf2=reform(lhf2) 
    156 lhf3=-1*read_ncdf('lhf',st3,en3,file=file,/nostr, box=box)  
    157 lhf3=grossemoyenne(lhf3, "xy", box=box,/nan)  
     156lhf3=-1*read_ncdf('lhf',st3,en3,file=file,/nostr, box=box) 
     157lhf3=grossemoyenne(lhf3, "xy", box=box,/nan) 
    158158lhf3=reform(lhf3) 
    159  
     159; 
    160160file=project_id_env+'erai_shf_19890101_20091231_oafluxgrid.nc' 
    161161initncdf, file 
    162 shf1=-1*read_ncdf('shf',st1,en1,file=file,/nostr, box=box)  
    163 shf1=grossemoyenne(shf1, "xy", box=box,/nan)  
     162shf1=-1*read_ncdf('shf',st1,en1,file=file,/nostr, box=box) 
     163shf1=grossemoyenne(shf1, "xy", box=box,/nan) 
    164164shf1=reform(shf1) 
    165 shf2=-1*read_ncdf('shf',st2,en2,file=file,/nostr, box=box)  
    166 shf2=grossemoyenne(shf2, "xy", box=box,/nan)  
     165shf2=-1*read_ncdf('shf',st2,en2,file=file,/nostr, box=box) 
     166shf2=grossemoyenne(shf2, "xy", box=box,/nan) 
    167167shf2=reform(shf2) 
    168 shf3=-1*read_ncdf('shf',st3,en3,file=file,/nostr, box=box)  
    169 shf3=grossemoyenne(shf3, "xy", box=box,/nan)  
     168shf3=-1*read_ncdf('shf',st3,en3,file=file,/nostr, box=box) 
     169shf3=grossemoyenne(shf3, "xy", box=box,/nan) 
    170170shf3=reform(shf3) 
    171  
     171; 
    172172file=project_id_env+'erai_lwr_19890101_20091231_oafluxgrid.nc' 
    173173initncdf, file 
    174 lwr1=read_ncdf('lwr',st1-1,en1,file=file,/nostr, box=box)  
    175 lwr1=grossemoyenne(lwr1, "xy", box=box,/nan)  
     174lwr1=read_ncdf('lwr',st1-1,en1,file=file,/nostr, box=box) 
     175lwr1=grossemoyenne(lwr1, "xy", box=box,/nan) 
    176176lwr1=reform(lwr1) 
    177 lwr2=read_ncdf('lwr',st2-1,en2,file=file,/nostr, box=box)  
    178 lwr2=grossemoyenne(lwr2, "xy", box=box,/nan)  
     177lwr2=read_ncdf('lwr',st2-1,en2,file=file,/nostr, box=box) 
     178lwr2=grossemoyenne(lwr2, "xy", box=box,/nan) 
    179179lwr2=reform(lwr2) 
    180 lwr3=read_ncdf('lwr',st3-1,en3,file=file,/nostr, box=box)  
    181 lwr3=grossemoyenne(lwr3, "xy", box=box,/nan)  
     180lwr3=read_ncdf('lwr',st3-1,en3,file=file,/nostr, box=box) 
     181lwr3=grossemoyenne(lwr3, "xy", box=box,/nan) 
    182182lwr3=reform(lwr3) 
    183  
     183; 
    184184file=project_id_env+"erai_swr_19910101_20091231_oafluxgrid.nc" 
    185185initncdf, file 
    186 swr1=read_ncdf('swr',st1,en1,file=file,/nostr, box=box)  
    187 swr1=grossemoyenne(swr1, "xy", box=box,/nan)  
     186swr1=read_ncdf('swr',st1,en1,file=file,/nostr, box=box) 
     187swr1=grossemoyenne(swr1, "xy", box=box,/nan) 
    188188swr1=reform(swr1) 
    189 swr2=read_ncdf('swr',st2,en2,file=file,/nostr, box=box)  
    190 swr2=grossemoyenne(swr2, "xy", box=box,/nan)  
     189swr2=read_ncdf('swr',st2,en2,file=file,/nostr, box=box) 
     190swr2=grossemoyenne(swr2, "xy", box=box,/nan) 
    191191swr2=reform(swr2) 
    192 swr3=read_ncdf('swr',st3,en3,file=file,/nostr, box=box)  
    193 swr3=grossemoyenne(swr3, "xy", box=box,/nan)  
     192swr3=read_ncdf('swr',st3,en3,file=file,/nostr, box=box) 
     193swr3=grossemoyenne(swr3, "xy", box=box,/nan) 
    194194swr3=reform(swr3) 
    195  
    196 net1=swr1+(lwr1+shf1+lhf1)  
    197 net2=swr2+(lwr2+shf2+lhf2)  
     195; 
     196net1=swr1+(lwr1+shf1+lhf1) 
     197net2=swr2+(lwr2+shf2+lhf2) 
    198198net3=swr3+(lwr3+shf3+lhf3) 
    199199era=[net1,net2,net3] 
    200 lhf1=0.  
    201 lhf2=0.  
     200lhf1=0. 
     201lhf2=0. 
    202202lhf3=0. 
    203 shf1=0.  
    204 shf2=0.  
     203shf1=0. 
     204shf2=0. 
    205205shf3=0. 
    206 lwr1=0.  
    207 lwr2=0.  
     206lwr1=0. 
     207lwr2=0. 
    208208lwr3=0. 
    209 swr1=0.  
    210 swr2=0.  
     209swr1=0. 
     210swr2=0. 
    211211swr3=0. 
    212 net1=0.  
    213 net2=0.  
     212net1=0. 
     213net2=0. 
    214214net3=0. 
    215215help, era 
    216  
     216; 
    217217file=project_id_env+"TropFlux_19890101_20091231.nc" 
    218218initncdf, file 
    219  
    220 lhf1=read_ncdf('lhf',st1,en1,file=file,/nostr, box=box)  
    221 lhf1=grossemoyenne(lhf1, "xy", box=box,/nan)  
     219; 
     220lhf1=read_ncdf('lhf',st1,en1,file=file,/nostr, box=box) 
     221lhf1=grossemoyenne(lhf1, "xy", box=box,/nan) 
    222222lhf1=reform(lhf1) 
    223 lhf2=read_ncdf('lhf',st2,en2,file=file,/nostr, box=box)  
    224 lhf2=grossemoyenne(lhf2, "xy", box=box,/nan)  
     223lhf2=read_ncdf('lhf',st2,en2,file=file,/nostr, box=box) 
     224lhf2=grossemoyenne(lhf2, "xy", box=box,/nan) 
    225225lhf2=reform(lhf2) 
    226 lhf3=read_ncdf('lhf',st3,en3,file=file,/nostr, box=box)  
    227 lhf3=grossemoyenne(lhf3, "xy", box=box,/nan)  
     226lhf3=read_ncdf('lhf',st3,en3,file=file,/nostr, box=box) 
     227lhf3=grossemoyenne(lhf3, "xy", box=box,/nan) 
    228228lhf3=reform(lhf3) 
    229  
    230 shf1=read_ncdf('shf',st1,en1,file=file,/nostr, box=box)  
    231 shf1=grossemoyenne(shf1, "xy", box=box,/nan)  
     229; 
     230shf1=read_ncdf('shf',st1,en1,file=file,/nostr, box=box) 
     231shf1=grossemoyenne(shf1, "xy", box=box,/nan) 
    232232shf1=reform(shf1) 
    233 shf2=read_ncdf('shf',st2,en2,file=file,/nostr, box=box)  
    234 shf2=grossemoyenne(shf2, "xy", box=box,/nan)  
     233shf2=read_ncdf('shf',st2,en2,file=file,/nostr, box=box) 
     234shf2=grossemoyenne(shf2, "xy", box=box,/nan) 
    235235shf2=reform(shf2) 
    236 shf3=read_ncdf('shf',st3,en3,file=file,/nostr, box=box)  
    237 shf3=grossemoyenne(shf3, "xy", box=box,/nan)  
     236shf3=read_ncdf('shf',st3,en3,file=file,/nostr, box=box) 
     237shf3=grossemoyenne(shf3, "xy", box=box,/nan) 
    238238shf3=reform(shf3) 
    239  
    240 lwr1=read_ncdf('lwr',st1,en1,file=file,/nostr, box=box)  
    241 lwr1=grossemoyenne(lwr1, "xy", box=box,/nan)  
     239; 
     240lwr1=read_ncdf('lwr',st1,en1,file=file,/nostr, box=box) 
     241lwr1=grossemoyenne(lwr1, "xy", box=box,/nan) 
    242242lwr1=reform(lwr1) 
    243 lwr2=read_ncdf('lwr',st2,en2,file=file,/nostr, box=box)  
    244 lwr2=grossemoyenne(lwr2, "xy", box=box,/nan)  
     243lwr2=read_ncdf('lwr',st2,en2,file=file,/nostr, box=box) 
     244lwr2=grossemoyenne(lwr2, "xy", box=box,/nan) 
    245245lwr2=reform(lwr2) 
    246 lwr3=read_ncdf('lwr',st3,en3,file=file,/nostr, box=box)  
    247 lwr3=grossemoyenne(lwr3, "xy", box=box,/nan)  
     246lwr3=read_ncdf('lwr',st3,en3,file=file,/nostr, box=box) 
     247lwr3=grossemoyenne(lwr3, "xy", box=box,/nan) 
    248248lwr3=reform(lwr3) 
    249  
    250 swr1=read_ncdf('swr',st1,en1,file=file,/nostr, box=box)  
    251 swr1=grossemoyenne(swr1, "xy", box=box,/nan)  
     249; 
     250swr1=read_ncdf('swr',st1,en1,file=file,/nostr, box=box) 
     251swr1=grossemoyenne(swr1, "xy", box=box,/nan) 
    252252swr1=reform(swr1) 
    253 swr2=read_ncdf('swr',st2,en2,file=file,/nostr, box=box)  
    254 swr2=grossemoyenne(swr2, "xy", box=box,/nan)  
     253swr2=read_ncdf('swr',st2,en2,file=file,/nostr, box=box) 
     254swr2=grossemoyenne(swr2, "xy", box=box,/nan) 
    255255swr2=reform(swr2) 
    256 swr3=read_ncdf('swr',st3,en3,file=file,/nostr, box=box)  
    257 swr3=grossemoyenne(swr3, "xy", box=box,/nan)  
     256swr3=read_ncdf('swr',st3,en3,file=file,/nostr, box=box) 
     257swr3=grossemoyenne(swr3, "xy", box=box,/nan) 
    258258swr3=reform(swr3) 
    259  
     259; 
    260260file=project_id_env+"TropFlux_swr_19890101_20091231_NRT_v50.nc" 
    261261initncdf, file 
    262 olr1=read_ncdf("sw", st1-1, en1, file=file,/nostr, box=box)  
    263 olr1=grossemoyenne(olr1, "xy",/nan, box=box)  
     262olr1=read_ncdf("sw", st1-1, en1, file=file,/nostr, box=box) 
     263olr1=grossemoyenne(olr1, "xy",/nan, box=box) 
    264264olr1=reform(olr1) 
    265 olr2=read_ncdf("sw", st2-1, en2, file=file,/nostr, box=box)  
    266 olr2=grossemoyenne(olr2, "xy",/nan, box=box)  
     265olr2=read_ncdf("sw", st2-1, en2, file=file,/nostr, box=box) 
     266olr2=grossemoyenne(olr2, "xy",/nan, box=box) 
    267267olr2=reform(olr2) 
    268 olr3=read_ncdf("sw", st3-1, en3, file=file,/nostr, box=box)  
    269 olr3=grossemoyenne(olr3, "xy",/nan, box=box)  
     268olr3=read_ncdf("sw", st3-1, en3, file=file,/nostr, box=box) 
     269olr3=grossemoyenne(olr3, "xy",/nan, box=box) 
    270270olr3=reform(olr3) 
    271  
    272 net1=swr1+lwr1+(shf1+lhf1)  
    273 net2=swr2+lwr2+(shf2+lhf2)  
     271; 
     272net1=swr1+lwr1+(shf1+lhf1) 
     273net2=swr2+lwr2+(shf2+lhf2) 
    274274net3=swr3+lwr3+(shf3+lhf3) 
    275 neto_1=olr1+lwr1+lhf1+shf1  
    276 neto_2=olr2+lwr2+lhf2+shf2  
     275neto_1=olr1+lwr1+lhf1+shf1 
     276neto_2=olr2+lwr2+lhf2+shf2 
    277277neto_3=olr3+lwr3+lhf3+shf3 
    278  
    279 trop=[net1,net2,net3]  
     278; 
     279trop=[net1,net2,net3] 
    280280olr=[neto_1,neto_2,neto_3] 
    281  
    282 lhf1=0.  
    283 lhf2=0.  
     281; 
     282lhf1=0. 
     283lhf2=0. 
    284284lhf3=0. 
    285 shf1=0.  
    286 shf2=0.  
     285shf1=0. 
     286shf2=0. 
    287287shf3=0. 
    288 lwr1=0.  
    289 lwr2=0.  
     288lwr1=0. 
     289lwr2=0. 
    290290lwr3=0. 
    291 swr1=0.  
    292 swr2=0.  
     291swr1=0. 
     292swr2=0. 
    293293swr3=0. 
    294 net1=0.  
    295 net2=0.  
     294net1=0. 
     295net2=0. 
    296296net3=0. 
    297 neto_1=0  
    298 neto_2=0  
     297neto_1=0 
     298neto_2=0 
    299299neto_3=0 
    300  
     300; 
    301301help, trop, olr 
    302  
     302; 
    303303file=project_id_env+'swr_oafluxgrid_1985_2007.nc' 
    304304initncdf, file 
    305 swr1=read_ncdf("swr", st1, en1, file=file,/nostr, box=box)  
    306 swr1=grossemoyenne(swr1, "xy",/nan, box=box)  
     305swr1=read_ncdf("swr", st1, en1, file=file,/nostr, box=box) 
     306swr1=grossemoyenne(swr1, "xy",/nan, box=box) 
    307307swr1=reform(swr1) 
    308 swr2=read_ncdf("swr", st2, en2, file=file,/nostr, box=box)  
    309 swr2=grossemoyenne(swr2, "xy",/nan, box=box)  
     308swr2=read_ncdf("swr", st2, en2, file=file,/nostr, box=box) 
     309swr2=grossemoyenne(swr2, "xy",/nan, box=box) 
    310310swr2=reform(swr2) 
    311 swr3=read_ncdf("swr", st3, en3, file=file,/nostr, box=box)  
    312 swr3=grossemoyenne(swr3, "xy",/nan, box=box)  
     311swr3=read_ncdf("swr", st3, en3, file=file,/nostr, box=box) 
     312swr3=grossemoyenne(swr3, "xy",/nan, box=box) 
    313313swr3=reform(swr3) 
    314  
     314; 
    315315file=project_id_env+'lwr_oafluxgrid_1985_2007.nc' 
    316316initncdf, file 
    317 lwr1=-1*read_ncdf("lwr", st1, en1, file=file,/nostr, box=box)  
    318 lwr1=grossemoyenne(lwr1, "xy",/nan, box=box)  
     317lwr1=-1*read_ncdf("lwr", st1, en1, file=file,/nostr, box=box) 
     318lwr1=grossemoyenne(lwr1, "xy",/nan, box=box) 
    319319lwr1=reform(lwr1) 
    320 lwr2=-1*read_ncdf("lwr", st2, en2, file=file,/nostr, box=box)  
    321 lwr2=grossemoyenne(lwr2, "xy",/nan, box=box)  
     320lwr2=-1*read_ncdf("lwr", st2, en2, file=file,/nostr, box=box) 
     321lwr2=grossemoyenne(lwr2, "xy",/nan, box=box) 
    322322lwr2=reform(lwr2) 
    323 lwr3=-1*read_ncdf("lwr", st3, en3, file=file,/nostr, box=box)  
    324 lwr3=grossemoyenne(lwr3, "xy",/nan, box=box)  
     323lwr3=-1*read_ncdf("lwr", st3, en3, file=file,/nostr, box=box) 
     324lwr3=grossemoyenne(lwr3, "xy",/nan, box=box) 
    325325lwr3=reform(lwr3) 
    326  
     326; 
    327327file=project_id_env+'lhf_oafluxgrid_1985_2009.nc' 
    328328initncdf, file 
    329 lhf1=-1*read_ncdf("lhf", st1, en1, file=file,/nostr, box=box)  
    330 lhf1=grossemoyenne(lhf1, "xy",/nan, box=box)  
     329lhf1=-1*read_ncdf("lhf", st1, en1, file=file,/nostr, box=box) 
     330lhf1=grossemoyenne(lhf1, "xy",/nan, box=box) 
    331331lhf1=reform(lhf1) 
    332 lhf2=-1*read_ncdf("lhf", st2, en2, file=file,/nostr, box=box)  
    333 lhf2=grossemoyenne(lhf2, "xy",/nan, box=box)  
     332lhf2=-1*read_ncdf("lhf", st2, en2, file=file,/nostr, box=box) 
     333lhf2=grossemoyenne(lhf2, "xy",/nan, box=box) 
    334334lhf2=reform(lhf2) 
    335 lhf3=-1*read_ncdf("lhf", st3, en3, file=file,/nostr, box=box)  
    336 lhf3=grossemoyenne(lhf3, "xy",/nan, box=box)  
     335lhf3=-1*read_ncdf("lhf", st3, en3, file=file,/nostr, box=box) 
     336lhf3=grossemoyenne(lhf3, "xy",/nan, box=box) 
    337337lhf3=reform(lhf3) 
    338  
     338; 
    339339file=project_id_env+'shf_oafluxgrid_1985_2009.nc' 
    340340initncdf, file 
    341 shf1=-1*read_ncdf("shf", st1, en1, file=file,/nostr, box=box)  
    342 shf1=grossemoyenne(shf1, "xy",/nan, box=box)  
     341shf1=-1*read_ncdf("shf", st1, en1, file=file,/nostr, box=box) 
     342shf1=grossemoyenne(shf1, "xy",/nan, box=box) 
    343343shf1=reform(shf1) 
    344 shf2=-1*read_ncdf("shf", st2, en2, file=file,/nostr, box=box)  
    345 shf2=grossemoyenne(shf2, "xy",/nan, box=box)  
     344shf2=-1*read_ncdf("shf", st2, en2, file=file,/nostr, box=box) 
     345shf2=grossemoyenne(shf2, "xy",/nan, box=box) 
    346346shf2=reform(shf2) 
    347 shf3=-1*read_ncdf("shf", st3, en3, file=file,/nostr, box=box)  
    348 shf3=grossemoyenne(shf3, "xy",/nan, box=box)  
     347shf3=-1*read_ncdf("shf", st3, en3, file=file,/nostr, box=box) 
     348shf3=grossemoyenne(shf3, "xy",/nan, box=box) 
    349349shf3=reform(shf3) 
    350  
    351 net1=swr1+lwr1+lhf1+shf1  
    352 net2=swr2+lwr2+lhf2+shf2  
     350; 
     351net1=swr1+lwr1+lhf1+shf1 
     352net2=swr2+lwr2+lhf2+shf2 
    353353net3=swr3+lwr3+lhf3+shf3 
    354  
     354; 
    355355oaf=[net1,net2,net3] 
    356 lhf1=0.  
    357 lhf2=0.  
     356lhf1=0. 
     357lhf2=0. 
    358358lhf3=0. 
    359 shf1=0.  
    360 shf2=0.  
     359shf1=0. 
     360shf2=0. 
    361361shf3=0. 
    362 lwr1=0.  
    363 lwr2=0.  
     362lwr1=0. 
     363lwr2=0. 
    364364lwr3=0. 
    365 swr1=0.  
    366 swr2=0.  
     365swr1=0. 
     366swr2=0. 
    367367swr3=0. 
    368 net1=0.  
     368net1=0. 
    369369net2=0. 
    370370net3=0. 
    371371help, oaf 
    372  
     372; 
    373373fi=project_id_env+'swr_ncep2_oaflxgrid_19890101_20091231.nc' 
    374374initncdf, fi 
    375 swr1=read_ncdf("swr", st1, en1, file=fi,/nostr, box=box)  
    376 swr1=grossemoyenne(swr1, "xy",/nan, box=box)  
     375swr1=read_ncdf("swr", st1, en1, file=fi,/nostr, box=box) 
     376swr1=grossemoyenne(swr1, "xy",/nan, box=box) 
    377377swr1=reform(swr1) 
    378 swr2=read_ncdf("swr", st2, en2, file=fi,/nostr, box=box)  
    379 swr2=grossemoyenne(swr2, "xy",/nan, box=box)  
     378swr2=read_ncdf("swr", st2, en2, file=fi,/nostr, box=box) 
     379swr2=grossemoyenne(swr2, "xy",/nan, box=box) 
    380380swr2=reform(swr2) 
    381 swr3=read_ncdf("swr", st3, en3, file=fi,/nostr, box=box)  
    382 swr3=grossemoyenne(swr3, "xy",/nan, box=box)  
     381swr3=read_ncdf("swr", st3, en3, file=fi,/nostr, box=box) 
     382swr3=grossemoyenne(swr3, "xy",/nan, box=box) 
    383383swr3=reform(swr3) 
    384  
     384; 
    385385fi=project_id_env+'NCEP2_flux_19890101_20090729.nc" 
    386386initncdf, fi 
    387 lwr1=-1*read_ncdf("lwr", st1, en1, file=fi,/nostr, box=box)  
    388 lwr1=grossemoyenne(lwr1, "xy",/nan, box=box)  
     387lwr1=-1*read_ncdf("lwr", st1, en1, file=fi,/nostr, box=box) 
     388lwr1=grossemoyenne(lwr1, "xy",/nan, box=box) 
    389389lwr1=reform(lwr1) 
    390 lwr2=-1*read_ncdf("lwr", st2, en2, file=fi,/nostr, box=box)  
    391 lwr2=grossemoyenne(lwr2, "xy",/nan, box=box)  
     390lwr2=-1*read_ncdf("lwr", st2, en2, file=fi,/nostr, box=box) 
     391lwr2=grossemoyenne(lwr2, "xy",/nan, box=box) 
    392392lwr2=reform(lwr2) 
    393 lwr3=-1*read_ncdf("lwr", st3, en3, file=fi,/nostr, box=box)  
    394 lwr3=grossemoyenne(lwr3, "xy",/nan, box=box)  
     393lwr3=-1*read_ncdf("lwr", st3, en3, file=fi,/nostr, box=box) 
     394lwr3=grossemoyenne(lwr3, "xy",/nan, box=box) 
    395395lwr3=reform(lwr3) 
    396  
     396; 
    397397fi=project_id_env+'lhf_ncep2_oafluxgrid_19890101_20091231.nc' 
    398398initncdf, fi 
    399 lhf1=-1*read_ncdf("lhf", st1, en1, file=fi,/nostr, box=box)  
    400 lhf1=grossemoyenne(lhf1, "xy",/nan, box=box)  
     399lhf1=-1*read_ncdf("lhf", st1, en1, file=fi,/nostr, box=box) 
     400lhf1=grossemoyenne(lhf1, "xy",/nan, box=box) 
    401401lhf1=reform(lhf1) 
    402 lhf2=-1*read_ncdf("lhf", st2, en2, file=fi,/nostr, box=box)  
    403 lhf2=grossemoyenne(lhf2, "xy",/nan, box=box)  
     402lhf2=-1*read_ncdf("lhf", st2, en2, file=fi,/nostr, box=box) 
     403lhf2=grossemoyenne(lhf2, "xy",/nan, box=box) 
    404404lhf2=reform(lhf2) 
    405 lhf3=-1*read_ncdf("lhf", st3, en3, file=fi,/nostr, box=box)  
    406 lhf3=grossemoyenne(lhf3, "xy",/nan, box=box)  
     405lhf3=-1*read_ncdf("lhf", st3, en3, file=fi,/nostr, box=box) 
     406lhf3=grossemoyenne(lhf3, "xy",/nan, box=box) 
    407407lhf3=reform(lhf3) 
    408  
     408; 
    409409fi=project_id_env+'shf_ncep2_oafluxgrid_19890101_20091231.nc' 
    410410initncdf, fi 
    411 shf1=-1*read_ncdf("shf", st1, en1, file=fi,/nostr, box=box)  
    412 shf1=grossemoyenne(shf1, "xy",/nan, box=box)  
     411shf1=-1*read_ncdf("shf", st1, en1, file=fi,/nostr, box=box) 
     412shf1=grossemoyenne(shf1, "xy",/nan, box=box) 
    413413shf1=reform(shf1) 
    414 shf2=-1*read_ncdf("shf", st2, en2, file=fi,/nostr, box=box)  
    415 shf2=grossemoyenne(shf2, "xy",/nan, box=box)  
     414shf2=-1*read_ncdf("shf", st2, en2, file=fi,/nostr, box=box) 
     415shf2=grossemoyenne(shf2, "xy",/nan, box=box) 
    416416shf2=reform(shf2) 
    417 shf3=-1*read_ncdf("shf", st3, en3, file=fi,/nostr, box=box)  
    418 shf3=grossemoyenne(shf3, "xy",/nan, box=box)  
     417shf3=-1*read_ncdf("shf", st3, en3, file=fi,/nostr, box=box) 
     418shf3=grossemoyenne(shf3, "xy",/nan, box=box) 
    419419shf3=reform(shf3) 
    420  
    421 net1=swr1+lwr1+lhf1+shf1  
    422 net2=swr2+lwr2+lhf2+shf2  
     420; 
     421net1=swr1+lwr1+lhf1+shf1 
     422net2=swr2+lwr2+lhf2+shf2 
    423423net3=swr3+lwr3+lhf3+shf3 
    424  
     424; 
    425425nce2=[net1,net2,net3] 
    426426help, nce2 
    427  
    428 lhf1=0.  
    429 lhf2=0.  
     427; 
     428lhf1=0. 
     429lhf2=0. 
    430430lhf3=0. 
    431 shf1=0.  
    432 shf2=0.  
     431shf1=0. 
     432shf2=0. 
    433433shf3=0. 
    434 lwr1=0.  
    435 lwr2=0.  
     434lwr1=0. 
     435lwr2=0. 
    436436lwr3=0. 
    437 swr1=0.  
    438 swr2=0.  
     437swr1=0. 
     438swr2=0. 
    439439swr3=0. 
    440 net1=0.  
    441 net2=0.  
     440net1=0. 
     441net2=0. 
    442442net3=0. 
    443  
     443; 
    444444file=project_id_env+"ncep1_flux_19890101_20091231.nc" 
    445445initncdf, file 
    446  
    447 lhf1=read_ncdf('lhf',st1,en1,file=file,/nostr, box=box)  
    448 lhf1=grossemoyenne(lhf1, "xy", box=box,/nan)  
     446; 
     447lhf1=read_ncdf('lhf',st1,en1,file=file,/nostr, box=box) 
     448lhf1=grossemoyenne(lhf1, "xy", box=box,/nan) 
    449449lhf1=reform(lhf1) 
    450 lhf2=read_ncdf('lhf',st2,en2,file=file,/nostr, box=box)  
    451 lhf2=grossemoyenne(lhf2, "xy", box=box,/nan)  
     450lhf2=read_ncdf('lhf',st2,en2,file=file,/nostr, box=box) 
     451lhf2=grossemoyenne(lhf2, "xy", box=box,/nan) 
    452452lhf2=reform(lhf2) 
    453 lhf3=read_ncdf('lhf',st3,en3,file=file,/nostr, box=box)  
    454 lhf3=grossemoyenne(lhf3, "xy", box=box,/nan)  
     453lhf3=read_ncdf('lhf',st3,en3,file=file,/nostr, box=box) 
     454lhf3=grossemoyenne(lhf3, "xy", box=box,/nan) 
    455455lhf3=reform(lhf3) 
    456  
    457 shf1=read_ncdf('shf',st1,en1,file=file,/nostr, box=box)  
    458 shf1=grossemoyenne(shf1, "xy", box=box,/nan)  
     456; 
     457shf1=read_ncdf('shf',st1,en1,file=file,/nostr, box=box) 
     458shf1=grossemoyenne(shf1, "xy", box=box,/nan) 
    459459shf1=reform(shf1) 
    460 shf2=read_ncdf('shf',st2,en2,file=file,/nostr, box=box)  
    461 shf2=grossemoyenne(shf2, "xy", box=box,/nan)  
     460shf2=read_ncdf('shf',st2,en2,file=file,/nostr, box=box) 
     461shf2=grossemoyenne(shf2, "xy", box=box,/nan) 
    462462shf2=reform(shf2) 
    463 shf3=read_ncdf('shf',st3,en3,file=file,/nostr, box=box)  
    464 shf3=grossemoyenne(shf3, "xy", box=box,/nan)  
     463shf3=read_ncdf('shf',st3,en3,file=file,/nostr, box=box) 
     464shf3=grossemoyenne(shf3, "xy", box=box,/nan) 
    465465shf3=reform(shf3) 
    466  
    467 lwr1=read_ncdf('lwr',st1,en1,file=file,/nostr, box=box)  
    468 lwr1=grossemoyenne(lwr1, "xy", box=box,/nan)  
     466; 
     467lwr1=read_ncdf('lwr',st1,en1,file=file,/nostr, box=box) 
     468lwr1=grossemoyenne(lwr1, "xy", box=box,/nan) 
    469469lwr1=reform(lwr1) 
    470 lwr2=read_ncdf('lwr',st2,en2,file=file,/nostr, box=box)  
    471 lwr2=grossemoyenne(lwr2, "xy", box=box,/nan)  
     470lwr2=read_ncdf('lwr',st2,en2,file=file,/nostr, box=box) 
     471lwr2=grossemoyenne(lwr2, "xy", box=box,/nan) 
    472472lwr2=reform(lwr2) 
    473 lwr3=read_ncdf('lwr',st3,en3,file=file,/nostr, box=box)  
    474 lwr3=grossemoyenne(lwr3, "xy", box=box,/nan)  
     473lwr3=read_ncdf('lwr',st3,en3,file=file,/nostr, box=box) 
     474lwr3=grossemoyenne(lwr3, "xy", box=box,/nan) 
    475475lwr3=reform(lwr3) 
    476  
    477 swr1=read_ncdf('swr',st1,en1,file=file,/nostr, box=box)  
    478 swr1=grossemoyenne(swr1, "xy", box=box,/nan)  
     476; 
     477swr1=read_ncdf('swr',st1,en1,file=file,/nostr, box=box) 
     478swr1=grossemoyenne(swr1, "xy", box=box,/nan) 
    479479swr1=reform(swr1) 
    480 swr2=read_ncdf('swr',st2,en2,file=file,/nostr, box=box)  
    481 swr2=grossemoyenne(swr2, "xy", box=box,/nan)  
     480swr2=read_ncdf('swr',st2,en2,file=file,/nostr, box=box) 
     481swr2=grossemoyenne(swr2, "xy", box=box,/nan) 
    482482swr2=reform(swr2) 
    483 swr3=read_ncdf('swr',st3,en3,file=file,/nostr, box=box)  
    484 swr3=grossemoyenne(swr3, "xy", box=box,/nan)  
     483swr3=read_ncdf('swr',st3,en3,file=file,/nostr, box=box) 
     484swr3=grossemoyenne(swr3, "xy", box=box,/nan) 
    485485swr3=reform(swr3) 
    486  
    487 net1=swr1+(lwr1+shf1+lhf1)  
    488 net2=swr2+(lwr2+shf2+lhf2)  
     486; 
     487net1=swr1+(lwr1+shf1+lhf1) 
     488net2=swr2+(lwr2+shf2+lhf2) 
    489489net3=swr3+(lwr3+shf3+lhf3) 
    490490nce1=[net1,net2,net3] 
    491491help, nce1 
    492  
    493 lhf1=0.  
    494 lhf2=0.  
     492; 
     493lhf1=0. 
     494lhf2=0. 
    495495lhf3=0. 
    496 shf1=0.  
    497 shf2=0.  
     496shf1=0. 
     497shf2=0. 
    498498shf3=0. 
    499 lwr1=0.  
    500 lwr2=0.  
     499lwr1=0. 
     500lwr2=0. 
    501501lwr3=0. 
    502 swr1=0.  
    503 swr2=0.  
     502swr1=0. 
     503swr2=0. 
    504504swr3=0. 
    505 net1=0.  
    506 net2=0.  
     505net1=0. 
     506net2=0. 
    507507net3=0. 
    508  
     508; 
    509509ind=where(finite(net)) 
    510 net=net(ind)  
    511 era=era(ind)  
    512 trop=trop(ind)  
     510net=net(ind) 
     511era=era(ind) 
     512trop=trop(ind) 
    513513oaf=oaf(ind) 
    514 nce2=nce2(ind)  
    515 nce1=nce1(ind)  
     514nce2=nce2(ind) 
     515nce1=nce1(ind) 
    516516olr=olr(ind) 
    517  
    518  
     517; 
     518; 
    519519statistics, net, era, $ 
    520520                 cor, bias, std, rmsd 
    521521print, cor, bias, std,  rmsd 
    522522cstat_era=string(cor, bias, std, rmsd, format='(f4.2,2x,f6.2,2x,f4.2,1x,f6.2)') 
    523  
     523; 
    524524statistics, net, trop, $ 
    525525                 cor, bias, std, rmsd 
    526526print, cor, bias, std,  rmsd 
    527527cstat_trop=string(cor, bias, std, rmsd, format='(f4.2,2x,f6.2,2x,f4.2,1x,f6.2)') 
    528  
     528; 
    529529statistics, net, oaf, $ 
    530530                 cor, bias, std, rmsd 
    531531print, cor, bias, std,  rmsd 
    532532cstat_oaf=string(cor, bias, std, rmsd, format='(f4.2,2x,f6.2,2x,f4.2,1x,f6.2)') 
    533  
     533; 
    534534statistics, net, nce1, $ 
    535535                 cor, bias, std, rmsd 
    536536print, cor, bias, std,  rmsd 
    537537cstat_nce1=string(cor, bias, std, rmsd, format='(f4.2,2x,f6.2,2x,f4.2,1x,f6.2)') 
    538  
     538; 
    539539statistics, net, nce2, $ 
    540540                 cor, bias, std, rmsd 
    541541print, cor, bias, std,  rmsd 
    542542cstat_nce2=string(cor, bias, std, rmsd, format='(f4.2,2x,f6.2,2x,f4.2,1x,f6.2)') 
    543  
     543; 
    544544statistics, net, olr, $ 
    545545                 cor, bias, std, rmsd 
    546546print, cor, bias, std,  rmsd 
    547547cstat_olr=string(cor, bias, std, rmsd, format='(f4.2,2x,f6.2,2x,f4.2,1x,f6.2)') 
    548  
    549  
     548; 
     549; 
    550550splot, net, era, charsize=1.1, title='Net Flux - WHOTS Vs ERAI', $ 
    551551     xrange=[-250,250], yrange=[-250,250], small=[2,3,1], psym=2, xmin=1, ymin=1 
    552552oplot, [-250,250], [-250,250] 
    553553xyouts, 0,-200, cstat_era, charsize=1. 
    554  
     554; 
    555555splot, net, trop, charsize=1.1, title='Net Flux - WHOTS Vs TropFlux',/noer, $ 
    556556     xrange=[-250,250], yrange=[-250,250], small=[2,3,2], psym=2, xmin=1, ymin=1 
    557557oplot, [-250,250], [-250,250] 
    558558xyouts, 0,-200, cstat_trop, charsize=1. 
    559  
     559; 
    560560splot, net, oaf, charsize=1.1, title='Net Flux - WHOTS Vs OAFlux',/noer, $ 
    561561     xrange=[-250,250], yrange=[-250,250], small=[2,3,3], psym=2, xmin=1, ymin=1 
    562562oplot, [-250,250], [-250,250] 
    563563xyouts, 0,-200, cstat_oaf, charsize=1. 
    564  
     564; 
    565565splot, net, nce1, charsize=1.1, title='Net Flux - WHOTS Vs NCEP1',/noer, $ 
    566566     xrange=[-250,250], yrange=[-250,250], small=[2,3,4], psym=2, xmin=1, ymin=1 
    567567oplot, [-250,250], [-250,250] 
    568568xyouts, 0,-200, cstat_nce1, charsize=1. 
    569  
     569; 
    570570splot, net, nce2, charsize=1.1, title='Net Flux - WHOTS Vs NCEP2',/noer, $ 
    571571     xrange=[-250,250], yrange=[-250,250], small=[2,3,5], psym=2, xmin=1, ymin=1 
    572572oplot, [-250,250], [-250,250] 
    573573xyouts, 0,-200, cstat_nce2, charsize=1. 
    574  
     574; 
    575575splot, net, olr, charsize=1.1, title='Net Flux - WHOTS Vs TropFlux_NRT',/noer, $ 
    576576     xrange=[-250,250], yrange=[-250,250], small=[2,3,6], psym=2, xmin=1, ymin=1 
    577577oplot, [-250,250], [-250,250] 
    578578xyouts, 0,-200, cstat_olr, charsize=1. 
    579  
     579; 
    580580closeps 
     581; 
    581582end 

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

    r94 r97  
    8282reinitplt, /z,/invert 
    8383key_portrait = 1 
    84  
     84; 
    8585openps, FILENAME = project_od_env+'fig15_timeseries_mjo.ps' 
    86 date1=20071001  
     86date1=20071001 
    8787date2=20080331 
    88 date1=19990101  
     88date1=19990101 
    8989date2=20021231 
    9090box=[50,80,-12,-5] 
    91  
     91; 
    9292file_trop=project_id_env+'TropFlux_19890101_20091231.nc' 
    9393initncdf, file_trop 
    … …  
    9595lhf_trop=read_ncdf("lhf", date1, date2, box=box, file=file_trop,/nostr) 
    9696swr_trop=read_ncdf("swr", date1, date2, box=box, file=file_trop,/nostr) 
    97 lwr_trop=read_ncdf("lwr", date1, date2, box=box, file=file_trop,/nostr)  
    98 ;; ref_lw=-1*lwr_trop 
     97lwr_trop=read_ncdf("lwr", date1, date2, box=box, file=file_trop,/nostr) 
     98; ref_lw=-1*lwr_trop 
    9999trop=swr_trop+(lwr_trop+lhf_trop+shf_trop) 
    100100help, trop 
    101101trop=grossemoyenne(trop, "xy",/nan) 
    102  
     102; 
    103103file_ncep=project_id_env+'NCEP2_flux_19890101_20090729.nc' 
    104104initncdf, file_ncep 
    … …  
    107107lwr=read_ncdf("lwr", date1, date2, box=box, file=file_ncep,/nostr) 
    108108swr=read_ncdf("swr", date1, date2, box=box, file=file_ncep,/nostr) 
    109  
     109; 
    110110nce2=swr-(lwr+lhf+shf) 
    111111nce2=grossemoyenne(nce2, "xy",/nan) 
    112112help, nce2 
    113  
     113; 
    114114file_erai=project_id_env+'erai_fluxes_19930101_20090801_TROP_oafluxgrid.nc' 
    115115initncdf, file_erai 
    … …  
    117117lhf=read_ncdf("lhf", date1, date2, box=box, file=file_erai,/nostr) 
    118118lwr=read_ncdf("lwr", date1, date2, box=box, file=file_erai,/nostr) 
    119 swr=read_ncdf("swr", date1, date2, box=box, file=file_erai,/nostr)  
     119swr=read_ncdf("swr", date1, date2, box=box, file=file_erai,/nostr) 
    120120swr=-1*swr 
    121121era=swr-(lwr+lhf+shf) 
    122122era=grossemoyenne(era, "xy",/nan) 
    123123help, era 
    124  
     124; 
    125125file=project_id_env+'fluxe_ncep1_19890101_20091231.nc' 
    126126initncdf, file 
    … …  
    129129lhf=read_ncdf("lhf", date1, date2, box=box, file=file,/nostr) 
    130130shf=read_ncdf("shf", date1, date2, box=box, file=file,/nostr) 
    131  
     131; 
    132132nce=swr+shf+lhf+lwr 
    133133nce=grossemoyenne(nce, "xy",/nan) 
    134134help, nce 
    135  
     135; 
    136136file_oaf=project_id_env+'shf_oafluxgrid_1985_2008.nc' 
    137137initncdf, file_oaf 
    … …  
    145145file_oaf=project_id_env+'swr_oafluxgrid_1985_2007.nc' 
    146146initncdf, file_oaf 
    147 swr=read_ncdf("swr", date1, date2, box=box, file=file_oaf,/nostr)  
     147swr=read_ncdf("swr", date1, date2, box=box, file=file_oaf,/nostr) 
    148148swr_trop=swr 
    149149oafl=swr-(lwr+lhf+shf) 
    150150help, oafl 
    151151oafl=grossemoyenne(oafl, "xy",/nan) 
    152  
     152; 
    153153file=project_id_env+"olr_oafluxgrid_30n30s_19890101_20091231.nc" 
    154154initncdf, file 
    155155olr=read_ncdf("olr", date1-1, date2, box=box, file=file,/nostr) 
    156156olr=grossemoyenne(olr, "xy",/nan) 
    157  
     157; 
    158158help, olr 
    159  
     159; 
    160160save, olr,trop, nce2, era, nce, filename="netflux_sctr_1999_2002.idl" 
    161  
    162 trop_hf=trop*0.  
     161; 
     162trop_hf=trop*0. 
    163163nce2_hf=trop*0. 
    164 era_hf=trop*0.  
     164era_hf=trop*0. 
    165165nce_hf=trop*0. 
    166  
    167 Thf=30  
     166; 
     167Thf=30 
    168168Tlf=90 
    169169tsamp=1.   ; monthly 
    … …  
    193193    nce_hf=float(fft(ff_ts_f,/inverse)) 
    194194; 
    195  
     195; 
    196196help, trop_hf, nce2_hf, era_hf, nce_hf 
    197197nsmooth=15. 
    198  
     198; 
    199199pltt, ts_smooth(olr,nsmooth,/nan), "t",/rempl, small=[1,3,1], $ 
    200200   charsize=1.1, title="a) Outgoing Longwave Radiation", subtitle="" 
    201  
     201; 
    202202pltt, ts_smooth(trop,nsmooth,/nan), "t",/rempl, -70,130, $ 
    203203      small=[1,3,2],/noer, charsize=1.1, title="b) Net Heat Flux", subtitle="" 
    … …  
    205205pltt, ts_smooth(nce2,nsmooth,/nan), "t",/ov1d, color=150 
    206206pltt, ts_smooth(nce,nsmooth,/nan), "t",/ov1d, color=50 
    207  
     207; 
    208208pltt, trop_hf, "t",/rempl, -80,80, $ 
    209209      small=[1,3,3],/noer, title="c) 30-90 day Net Heat Flux", charsize=1.1, subtitle="" 
    … …  
    211211pltt, nce2_hf, "t",/ov1d, color=150 
    212212pltt, nce_hf, "t",/ov1d, color=50 
    213  
     213; 
    214214closeps 
     215; 
    215216end 

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

    r94 r97  
    2020; has been produced by 
    2121; :ref:`++`. 
    22  
     22; 
    2323; .. graphviz:: 
    2424; 
    … …  
    9797@cm_4data 
    9898@cm_project 
    99  
     99; 
    100100reinitplt, /z,/invert 
    101101key_portrait = 1 
    102  
     102; 
    103103openps, FILENAME = project_od_env+'fig16_timeseries_nino3.ps' 
    104 date1=19940101  
     104date1=19940101 
    105105date2=20071231 
    106106box=[240,330,-5,5] 
    107  
     107; 
    108108file_trop=project_od_env+'TropFlux_sst_19890101_20091231.nc' 
    109109initncdf, file_trop 
    110110sst=read_ncdf("sst", date1, date2, box=box, file=file_trop,/nostr) 
    111111sst=grossemoyenne(sst, "xy",/nan) 
    112 restore, filename=project_od_env+'netflux_nino3_1989_2007.idl" 
     112restore, filename=project_od_env+'netflux_nino3_1989_2007.idl' 
    113113help, trop, oafl, nce2, era, nce, sst 
    114 ;; creating climatology 
     114; creating climatology 
    115115ny=(2007-1994)+1 
    116116nt=365*ny 
    117117nsmooth=30. 
    118  
     118; 
    119119trop_nclim=total(reform(trop(0:nt-1),365,ny),2)/ny 
    120120oafl_nclim=total(reform(oafl(0:nt-1),365,ny),2)/ny 
    … …  
    123123nce_nclim=total(reform(nce(0:nt-1),365,ny),2)/ny 
    124124sst_nclim=total(reform(sst(0:nt-1),365,ny),2)/ny 
    125  
    126 trop_nclim=[trop_nclim ,trop_nclim, trop_nclim]  
    127 trop_nclim=smooth(trop_nclim,nsmooth,/nan)  
     125; 
     126trop_nclim=[trop_nclim ,trop_nclim, trop_nclim] 
     127trop_nclim=smooth(trop_nclim,nsmooth,/nan) 
    128128trop_nclim=trop_nclim[365:365+364] 
    129 oafl_nclim=[oafl_nclim ,oafl_nclim, oafl_nclim]  
    130 oafl_nclim=smooth(oafl_nclim,nsmooth,/nan)  
     129oafl_nclim=[oafl_nclim ,oafl_nclim, oafl_nclim] 
     130oafl_nclim=smooth(oafl_nclim,nsmooth,/nan) 
    131131oafl_nclim=oafl_nclim[365:365+364] 
    132 nce2_nclim=[nce2_nclim ,nce2_nclim ,nce2_nclim]  
    133 nce2_nclim=smooth(nce2_nclim,nsmooth,/nan)  
     132nce2_nclim=[nce2_nclim ,nce2_nclim ,nce2_nclim] 
     133nce2_nclim=smooth(nce2_nclim,nsmooth,/nan) 
    134134nce2_nclim=nce2_nclim[365:365+364] 
    135 era_nclim=[era_nclim ,era_nclim, era_nclim]  
    136 era_nclim=smooth(era_nclim,nsmooth,/nan)  
     135era_nclim=[era_nclim ,era_nclim, era_nclim] 
     136era_nclim=smooth(era_nclim,nsmooth,/nan) 
    137137era_nclim=era_nclim[365:365+364] 
    138 nce_nclim=[nce_nclim ,nce_nclim ,nce_nclim]  
    139 nce_nclim=smooth(nce_nclim,nsmooth,/nan)  
     138nce_nclim=[nce_nclim ,nce_nclim ,nce_nclim] 
     139nce_nclim=smooth(nce_nclim,nsmooth,/nan) 
    140140nce_nclim=nce_nclim[365:365+364] 
    141 sst_nclim=[sst_nclim ,sst_nclim ,sst_nclim]  
    142 sst_nclim=smooth(sst_nclim,nsmooth,/nan)  
     141sst_nclim=[sst_nclim ,sst_nclim ,sst_nclim] 
     142sst_nclim=smooth(sst_nclim,nsmooth,/nan) 
    143143sst_nclim=sst_nclim[365:365+364] 
    144  
    145 time=time  
     144; 
     145time=time 
    146146jpt=n_elements(time) 
    147  
     147; 
    148148caldat, time,mon,day,yea 
    149 trop_clim=trop*0.  
     149trop_clim=trop*0. 
    150150era_clim=trop*0. 
    151 oafl_clim=trop*0.  
     151oafl_clim=trop*0. 
    152152nce_clim=trop*0. 
    153 nce2_clim=trop*0.  
     153nce2_clim=trop*0. 
    154154sst_clim=trop*0. 
    155  
     155; 
    156156for jt=0,jpt-1 do begin 
    157157  jtt=(time(jt)-julday(1,1,yea(jt))) < 364 
    … …  
    163163  sst_clim(jt)=sst_nclim(jtt) 
    164164endfor 
    165  
    166 trop_ano=trop-trop_clim  
     165; 
     166trop_ano=trop-trop_clim 
    167167oafl_ano=oafl-oafl_clim 
    168 nce2_ano=nce2-nce2_clim  
     168nce2_ano=nce2-nce2_clim 
    169169era_ano=era-era_clim 
    170 nce_ano=nce-nce_clim     
     170nce_ano=nce-nce_clim 
    171171sst_ano=sst-sst_clim 
    172  
    173 trop_hf=trop*0.  
     172; 
     173trop_hf=trop*0. 
    174174nce2_hf=trop*0. 
    175 oafl_hf=trop*0.  
     175oafl_hf=trop*0. 
    176176era_hf=trop*0. 
    177177nce_hf=trop*0. 
    178  
    179 Thf=1  
     178; 
     179Thf=1 
    180180Tlf=90 
    181181tsamp=1.   ; monthly 
    … …  
    211211; 
    212212help, trop_hf, nce2_hf, era_hf, nce_hf 
    213  
    214 trop_ano=trop_ano-trop_hf  
     213; 
     214trop_ano=trop_ano-trop_hf 
    215215oafl_ano=oafl_ano-oafl_hf 
    216 nce2_ano=nce2_ano-nce2_hf  
     216nce2_ano=nce2_ano-nce2_hf 
    217217era_ano=era_ano-era_hf 
    218218nce_ano=nce_ano-nce_hf 
    219  
     219; 
    220220nsmooth=30. 
    221221marge=[-3,-3,0,4] 
    222  
     222; 
    223223pltt, ts_smooth(sst_ano,nsmooth,/nan), "t",/rempl,/nocolorb, $ 
    224224      small=[1,3,1], title="a) Nino 3 index ", subtitle="", $ 
    225225      ytitle="(degree Celcius)", marge=marge, linethick=1.3, charsize=1.1, xmin=-1, ymin=-1 
    226  
     226; 
    227227nsmooth=90. 
    228  
     228; 
    229229pltt, ts_smooth(trop,nsmooth,/nan), "t",/rempl,/nocolorb, 0,150, $ 
    230230      small=[1,3,2], title="b) Net Heat Flux", subtitle="", color=30, $ 
    … …  
    234234pltt, ts_smooth(nce2,nsmooth,/nan), "t",/ov1d, color=250 
    235235pltt, ts_smooth(nce,nsmooth,/nan), "t",/ov1d, color=65 
    236  
     236; 
    237237nsmooth=120 
    238238pltt, ts_smooth(trop_ano,nsmooth,/nan), "t",/rempl,/nocolorb, -45,30, color=30, $ 
    … …  
    243243pltt, ts_smooth(nce2_ano,nsmooth,/nan), "t",/ov1d, color=250 
    244244pltt, ts_smooth(nce_ano,nsmooth,/nan), "t",/ov1d, color=65 
    245  
     245; 
    246246closeps 
     247; 
    247248end 

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

    r94 r97  
    99; =========== 
    1010; 
    11 ; Figure of  
     11; Figure of 
    1212; ++ 
    1313; is saved in 
    … …  
    105105key_portrait = 1 
    106106coefpalit=.9 
    107  
     107; 
    108108openps, FILENAME = project_od_env + 'fig2_timeline_diagram.ps' 
    109  
     109; 
    110110; site locations 
    111111sitelist=['8s67e','12s55e', '8s55e', '8s80.5e', '1.5s80.5e', '0n80.5e', '1.5n80.5e', '1.5s90e', $ 
    … …  
    119119          '0n0e', '0n10w', '0n23w', '0n35w', '10s10w', '12n23w', '12n38w', '14s32w', '15n38w', '19s34w', '20n38w', $ 
    120120          '21n23w', '4n23w', '4n38w', '6s10w', '8n38w', '8s30w'] 
    121  
     121; 
    122122nn=n_elements(sitelist) 
    123123date1=19890101 
    124124date2=20091231 
    125  
     125; 
    126126no_obs_lh=findgen(7670.)*0. 
    127127no_obs_lw=findgen(7670.)*0. 
    128128no_obs_sw=findgen(7670.)*0. 
    129  
     129; 
    130130for n=0, nn-1 do begin 
    131  
    132 ;; reading data from mooring 
    133  
    134     site=sitelist(n)  
     131; 
     132; reading data from mooring 
     133; 
     134    site=sitelist(n) 
    135135    csite=site 
    136136    print, csite 
    … …  
    138138    y=y_site_location(site) 
    139139    if (y ge 0. and y le 30.) then y=y+360. 
    140     dx=0.5  
    141     dy=0.5  
     140    dx=0.5 
     141    dy=0.5 
    142142    box=[y-dy, y+dy, x-dx, x+dx] 
    143  
     143; 
    144144    nsmooth=1. 
    145145    print, csite 
    … …  
    147147    print, date2 
    148148    read_lh, csite, date1, date2, nsmooth, lh 
    149  
    150     ind=where(finite(lh))  
     149; 
     150    ind=where(finite(lh)) 
    151151    lh[ind]=1. 
    152     ind=where(finite(lh,/nan))  
     152    ind=where(finite(lh,/nan)) 
    153153    lh[ind]=0. 
    154154    no_obs_lh=no_obs_lh+lh 
    155  
     155; 
    156156endfor 
    157  
     157; 
    158158sitelist=['5n165e','8s67e','12s55e', '8s55e', '8s80.5e', '0n80.5e', '1.5n80.5e', '1.5s90e', $ 
    159159           '0n90e', '1.5n90e', '4n90e','8n90e','12n90e', '15n90e', '5s95e', $ 
    … …  
    166166          '0n0e', '0n10w', '0n23w', '0n35w', '10s10w', '12n23w', '12n38w', '14s32w', '15n38w', '19s34w', '20n38w', $ 
    167167          '21n23w', '4n23w', '4n38w', '6s10w', '8n38w', '8s30w'] 
    168  
     168; 
    169169nn=n_elements(sitelist) 
    170  
     170; 
    171171for n=0, nn-1 do begin 
    172  
    173 ;; reading data from mooring 
    174  
    175     site=sitelist(n)  
     172; 
     173; reading data from mooring 
     174; 
     175    site=sitelist(n) 
    176176    csite=site 
    177177    print, csite 
    … …  
    179179    y=y_site_location(site) 
    180180    if (y ge 0. and y le 30.) then y=y+360. 
    181     dx=0.5  
    182     dy=0.5  
     181    dx=0.5 
     182    dy=0.5 
    183183    box=[y-dy, y+dy, x-dx, x+dx] 
    184  
     184; 
    185185    nsmooth=1. 
    186186    read_sw, csite, date1, date2, box, sw 
    187     swr=sw  
    188     ind=where(finite(swr))  
     187    swr=sw 
     188    ind=where(finite(swr)) 
    189189    valid=n_elements(ind) 
    190190    if (valid ge 10) then begin 
    191        ind=where(finite(sw))  
     191       ind=where(finite(sw)) 
    192192       sw[ind]=1. 
    193        ind=where(finite(sw,/nan))  
     193       ind=where(finite(sw,/nan)) 
    194194       sw[ind]=0. 
    195195       no_obs_sw=no_obs_sw+sw 
    … …  
    197197endfor 
    198198help, no_obs_sw 
    199  
     199; 
    200200sitelist=['0n110w', '0n140w', '0n165e', '0n170w', '0n23w', '0n80.5e', '0n95w', '10s10w', '12n23w', '15n38w', $ 
    201201          '15n90e', '2n95w', '2s95w', '5n95w', '5s95w', '8n95w', '8s67e', '8s95w'] 
    202  
     202; 
    203203nn=n_elements(sitelist) 
    204  
     204; 
    205205for n=0, nn-1 do begin 
    206  
    207 ;; reading data from mooring 
    208  
    209     site=sitelist(n)  
     206; 
     207; reading data from mooring 
     208; 
     209    site=sitelist(n) 
    210210    csite=site 
    211211    print, csite 
    … …  
    213213    y=y_site_location(site) 
    214214    if (y ge 0. and y le 30.) then y=y+360. 
    215     dx=0.5  
    216     dy=0.5  
     215    dx=0.5 
     216    dy=0.5 
    217217    box=[y-dy, y+dy, x-dx, x+dx] 
    218  
     218; 
    219219    nsmooth=1. 
    220220    read_lw, csite, date1, date2, box, lw 
    221     lwr=lw  
    222     ind=where(finite(lwr))  
     221    lwr=lw 
     222    ind=where(finite(lwr)) 
    223223    valid=n_elements(ind) 
    224224    if (valid ge 10) then begin 
    225        ind=where(finite(lw))  
     225       ind=where(finite(lw)) 
    226226       lw[ind]=1. 
    227        ind=where(finite(lw,/nan))  
     227       ind=where(finite(lw,/nan)) 
    228228       lw[ind]=0. 
    229229       no_obs_lw=no_obs_lw+lw 
    230230    endif 
    231  
     231; 
    232232endfor 
    233  
     233; 
    234234help,no_obs_lw 
    235235pltt, no_obs_lh, "t", small=[1,3,1],/rempl,0,80, $ 
    … …  
    239239pltt, no_obs_lw, "t",/ov1d, color=50 
    240240pltt, no_obs_lh, "t",/ov1d 
    241  
     241; 
    242242closeps 
    243  
     243; 
    244244end 

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

    r94 r97  
    7676; 
    7777@cm_project 
    78  
    79 ;; DEFINE THE OUTPUT TIME AXIS 
     78; 
     79; DEFINE THE OUTPUT TIME AXIS 
    8080; 
    8181jda1=date2jul(date1) 
    … …  
    8383jpt=(jda2-jda1+1l) 
    8484time=jda1+dindgen(jpt) 
    85  
    8685; 
    87 ;; FIRST READ ALL DATA FROM SITE 
    88 ;;   - if file exists, extract correct time axis 
    89 ;;   - if not, fill variable with missing values 
    9086; 
    91  
    92  
    93 ;;LHF 
     87; FIRST READ ALL DATA FROM SITE 
     88;   - if file exists, extract correct time axis 
     89;   - if not, fill variable with missing values 
     90; 
     91; 
     92; 
     93;LHF 
    9494fi=project_id_env+'qlat'+csite+'_dy.cdf' 
    9595f=file_test(fi) 
    … …  
    109109  print, fi, ' not found' 
    110110endelse 
    111  
     111; 
    112112ind=where(lh_q ne 1 and lh_q ne 2) 
    113  
    114  
     113; 
     114; 
    115115if (ind(0) ne -1) then begin 
    116116  lh(ind)=!Values.f_nan 
    117117endif 
    118118; 
    119 ;; Replace missing values by "NaN" 
     119; Replace missing values by "NaN" 
    120120; 
    121121tsvars=['lh'] 
    … …  
    124124for n=0,nn-1 do begin 
    125125  var=vars(n) 
    126   com='ind=where('+var+' ge 1.e20)  
     126  com='ind=where('+var+' ge 1.e20) 
    127127  if (ind(0) ne -1) then '+var+'(ind)=!values.f_nan' 
    128128  r=execute(com) 
    129129endfor 
    130  
     130; 
    131131nsmooth=nsmooth 
    132132lh=smooth(lh,nsmooth,/nan) 
    133  
     133; 
    134134end 

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

    r94 r97  
    7676; 
    7777@cm_project 
    78  
    79 ;; DEFINE THE OUTPUT TIME AXIS 
     78; 
     79; DEFINE THE OUTPUT TIME AXIS 
    8080; 
    8181jda1=date2jul(date1) 
    … …  
    8383jpt=(jda2-jda1+1l) 
    8484time=jda1+dindgen(jpt) 
    85  
    8685; 
    87 ;; FIRST READ ALL DATA FROM SITE 
    88 ;;   - if file exists, extract correct time axis 
    89 ;;   - if not, fill variable with missing values 
    9086; 
    91  
    92 ;; LWR 
     87; FIRST READ ALL DATA FROM SITE 
     88;   - if file exists, extract correct time axis 
     89;   - if not, fill variable with missing values 
     90; 
     91; 
     92; LWR 
    9393fi=project_id_env+'lwnet'+csite+'_dy.cdf' 
    9494f=file_test(fi) 
    … …  
    105105  print, fi, ' not found' 
    106106endelse 
    107  
    108  
    109107; 
    110 ;; Replace missing values by "NaN" 
     108; 
     109; 
     110; Replace missing values by "NaN" 
    111111; 
    112112;tsvars=['at','bf','bp','dyn','emp','evap','heat','iso','lw','lwnet','qlat','qsen','sw', $ 
    … …  
    114114;depvars=['u','v','d','t','s'] 
    115115vars=['lw'] 
    116  
     116; 
    117117nn=n_elements(vars) 
    118118for n=0,nn-1 do begin 
    119119  var=vars(n) 
    120   com='ind=where('+var+' ge 1.e20)  
     120  com='ind=where('+var+' ge 1.e20) 
    121121  if (ind(0) ne -1) then '+var+'(ind)=!values.f_nan' 
    122122  r=execute(com) 
    123123endfor 
    124  
     124; 
    125125;++nsmooth=nsmooth 
    126126;++lw=smooth(lw,nsmooth,/nan) 
    127  
     127; 
    128128end 

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

    r94 r97  
    2525;       {swnet} -> {read_sw} -> {sw} 
    2626;    } 
    27  
     27; 
    2828; SEE ALSO 
    2929; ======== 
    … …  
    7878@cm_project 
    7979; 
    80 ;; DEFINE THE OUTPUT TIME AXIS 
     80; DEFINE THE OUTPUT TIME AXIS 
    8181; 
    8282jda1=date2jul(date1) 
    … …  
    8484jpt=(jda2-jda1+1l) 
    8585time=jda1+dindgen(jpt) 
    86  
    8786; 
    88 ;; FIRST READ ALL DATA FROM SITE 
    89 ;;   - if file exists, extract correct time axis 
    90 ;;   - if not, fill variable with missing values 
    9187; 
    92  
    93 ;; SWR 
     88; FIRST READ ALL DATA FROM SITE 
     89;   - if file exists, extract correct time axis 
     90;   - if not, fill variable with missing values 
     91; 
     92; 
     93; SWR 
    9494fi=project_id_env+'swnet'+csite+'_dy.cdf' 
    9595f=file_test(fi) 
    96 sw=fltarr(jpt)+!values.f_nan    ;; swr 
    97 sw_q=fltarr(jpt)+!values.f_nan  ;; swr quality flag 
    98  
     96sw=fltarr(jpt)+!values.f_nan    ; swr 
     97sw_q=fltarr(jpt)+!values.f_nan  ; swr quality flag 
     98; 
    9999if (f) then begin 
    100100  tt0=time_lec(fi) 
    … …  
    110110  print, fi, ' not found' 
    111111endelse 
    112  
     112; 
    113113ind1=where((sw_q ne 1) and (sw_q ne 2)) 
    114114sw(ind1)=!Values.f_nan 
    115  
    116  
    117115; 
    118 ;; Replace missing values by "NaN" 
     116; 
     117; 
     118; Replace missing values by "NaN" 
    119119; 
    120120;tsvars=['at','bf','bp','dyn','emp','evap','heat','iso','sw','swnet','qlat','qsen','sw', $ 
    … …  
    122122;depvars=['u','v','d','t','s'] 
    123123vars=['sw'] 
    124  
     124; 
    125125nn=n_elements(vars) 
    126126for n=0,nn-1 do begin 
    127127  var=vars(n) 
    128   com='ind=where('+var+' ge 1.e20)  
     128  com='ind=where('+var+' ge 1.e20) 
    129129  if (ind(0) ne -1) then '+var+'(ind)=!values.f_nan' 
    130130  r=execute(com) 
    131131endfor 
    132  
     132; 
    133133end 
    134  

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

    r94 r97  
    4646function time_lec, fi 
    4747tt=ncdf_lec(fi,var='time') 
    48 fid=ncdf_open(fi)  
     48fid=ncdf_open(fi) 
    4949vid=ncdf_varid(fid,'time') 
    5050ncdf_attget, fid,vid,'units',orig 

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

    r85 r97  
    6060;- 
    6161function x_site_location, site 
    62  
     62; 
    6363n1=strpos(site, 's') 
    6464if (n1 gt -1) then begin 

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

    r94 r97  
    9797;- 
    9898pro air_validation_scatter_2000_2009_v50, date1, date2 
    99  
     99; 
    100100@cm_project 
    101  
     101; 
    102102reinitplt, /z,/invert 
    103103key_portrait = 1 
    104  
     104; 
    105105openps, FILENAME = project_od_env+'air_validation_scatter_2000_2009_v50.ps' 
    106  
    107 ;; Give the location of mooring for validation of basic meteorological variables 
    108  
    109  
     106; 
     107; Give the location of mooring for validation of basic meteorological variables 
     108; 
     109; 
    110110sitelist=['8s67e','12s55e', '8s55e', '8s80.5e', '1.5s80.5e', '0n80.5e', '1.5n80.5e', '1.5s90e', $ 
    111111           '0n90e', '1.5n90e', '4n90e','8n90e','12n90e', '15n90e', '5s95e', $ 
    … …  
    118118          '0n0e', '0n10w', '0n23w', '0n35w', '10s10w', '12n23w', '12n38w', '14s32w', '15n38w', '19s34w', '20n38w', $ 
    119119          '21n23w', '4n23w', '4n38w', '6s10w', '8n38w', '8s30w'] 
    120  
     120; 
    121121ocean='global' 
    122  
    123 nsmooth=1.    ;; statistics are with 7 day smoothed 
    124 ;;   This program will create the following text files with statistics of respective variables 
     122; 
     123nsmooth=1.    ; statistics are with 7 day smoothed 
     124;   This program will create the following text files with statistics of respective variables 
    125125close,/all 
    126  
     126; 
    127127fi_air_erai=project_id_env+'air_2000_2009_erai_v50.txt' 
    128128openw,1,fi_air_erai 
    … …  
    135135fi_air_ncep1=project_id_env+'air_2000_2009_ncep1_v50.txt' 
    136136openw,5,fi_air_ncep1 
    137  
    138  
     137; 
     138; 
    139139printf,1, 'x     y      cor    bias     std     rmsd    mean_tao' 
    140140printf,2, 'x     y      cor    bias     std     rmsd    mean_tao' 
    … …  
    142142printf,4, 'x     y      cor    bias     std     rmsd    mean_tao' 
    143143printf,5, 'x     y      cor    bias     std     rmsd    mean_tao' 
    144  
    145 ;; first reading the whole ERAI uncorrected and corrected data 
    146  
     144; 
     145; first reading the whole ERAI uncorrected and corrected data 
     146; 
    147147file=project_id_env+'erai_t2m_19890101_20091231_oafluxgrid.nc' 
    148148initncdf, file 
    149 unc=read_ncdf('t2m',date1,date2,file=file,/nostr)  
     149unc=read_ncdf('t2m',date1,date2,file=file,/nostr) 
    150150unc=unc-273.15 
    151151help, unc 
    152  
     152; 
    153153file=project_id_env+'TropFlux_t2m_19890101_20091231_v50.nc' 
    154154initncdf, file 
    155 cor=read_ncdf('t2m',date1,date2,file=file,/nostr)  
     155cor=read_ncdf('t2m',date1,date2,file=file,/nostr) 
    156156cor=cor-273.15 
    157157help, cor 
    158  
     158; 
    159159file=project_id_env+'OAFlux_basic_variables_1985_2009.nc' 
    160160initncdf, file 
    161161oaf=read_ncdf("air", date1, date2, file=file,/nostr) 
    162162help, oaf 
    163  
     163; 
    164164fi=project_id_env+'air_2m_ncep2_oafluxgrid_19890101_20091231.nc' 
    165165initncdf, fi 
    … …  
    167167nce=nce-273.15 
    168168help, nce 
    169  
     169; 
    170170file=project_id_env+'t2m_ncep1_19890101_20091231.nc' 
    171171initncdf, file 
    … …  
    173173nce1=nce1-273.15 
    174174help, nce1 
    175  
     175; 
    176176nn=n_elements(sitelist) 
    177177for n=0, nn-1 do begin 
    178  
    179 ;; reading data from mooring 
    180  
    181     site=sitelist(n)  
     178; 
     179; reading data from mooring 
     180; 
     181    site=sitelist(n) 
    182182    csite=site 
    183183    print, csite 
    … …  
    185185    y=y_site_location(site) 
    186186    if (y ge 0. and y le 30.) then y=y+360. 
    187     dx=0.5  
    188     dy=0.5  
     187    dx=0.5 
     188    dy=0.5 
    189189    box=[y-dy, y+dy, x-dx, x+dx] 
    190190    read_variables_v2, csite,date1,date2,nsmooth, $ 
    191191         at, sw,rh,sst,wu,wv,ws,lh 
    192  
    193  
    194 ;    air=rh_to_sphum(rh,at,1008)               ;;        at  ->  air temperature 
    195     air=at                                               ;;        air ->  sea surface temperature 
    196                                                 ;;        lh  ->  latent heat flux 
    197                                                 ;;        rh  ->  relative humidity 
    198                                                 ;;   wu,wv,ws ->  wind speed 
    199 ;; 
    200  
    201  
    202 ;;  extracting the corrected and uncorrected ERAI data at the locations 
     192; 
     193; 
     194;    air=rh_to_sphum(rh,at,1008)               ;        at  ->  air temperature 
     195    air=at                                               ;        air ->  sea surface temperature 
     196                                                ;        lh  ->  latent heat flux 
     197                                                ;        rh  ->  relative humidity 
     198                                                ;   wu,wv,ws ->  wind speed 
     199; 
     200;  extracting the corrected and uncorrected ERAI data at the locations 
    203201    nsmooth=1. 
    204  
     202; 
    205203    extract_flux_tropflux,unc,box, $ 
    206204        tropflux 
    207205    uncr=tropflux 
    208  
     206; 
    209207     extract_flux_tropflux,cor,box, $ 
    210208        tropflux 
    211209     corr=tropflux 
    212  
     210; 
    213211     extract_flux_tropflux,oaf,box, $ 
    214212        tropflux 
    215213     oafl=tropflux 
    216  
     214; 
    217215     extract_flux_tropflux,nce,box, $ 
    218216        tropflux 
    219217     ncep=tropflux 
    220  
     218; 
    221219     extract_flux_tropflux,nce1,box, $ 
    222220        tropflux 
    223221     ncep1=tropflux 
    224  
    225  
    226     ind=where(finite(air))  
    227     air=air(ind)  
    228     uncr_air=uncr(ind)   
     222; 
     223; 
     224    ind=where(finite(air)) 
     225    air=air(ind) 
     226    uncr_air=uncr(ind) 
    229227    corr_air=corr(ind) 
    230     oafl=oafl(ind)  
    231     ncep=ncep(ind)  
     228    oafl=oafl(ind) 
     229    ncep=ncep(ind) 
    232230    ncep1=ncep1(ind) 
    233231    mean_tao=total(air,/nan)/n_elements(ind) 
    234  
     232; 
    235233    statistics_3var_v1, air, uncr_air, corr_air, $ 
    236234         cor1, cor2, bias1, bias2, std1, std2, rmsd1, rmsd2 
    237  
     235; 
    238236    printf, 1, x, y, cor1, bias1, std1, rmsd1, mean_tao, format='(f6.2, 3x, f6.2, 3x, f5.2,3x,f5.2,3x,f4.2,3x,f4.2,3x,f6.2)' 
    239237    printf, 2, x, y, cor2, bias2, std2, rmsd2, mean_tao, format='(f6.2, 3x, f6.2, 3x, f5.2,3x,f5.2,3x,f4.2,3x,f4.2,3x,f6.2)' 
    240  
     238; 
    241239    statistics_3var_v1, air, oafl, ncep, $ 
    242240         cor1, cor2, bias1, bias2, std1, std2, rmsd1, rmsd2 
    243241    printf, 3, x, y, cor1, bias1, std1, rmsd1, mean_tao, format='(f6.2, 3x, f6.2, 3x, f5.2,3x,f5.2,3x,f4.2,3x,f4.2,3x,f6.2)' 
    244242    printf, 4, x, y, cor2, bias2, std2, rmsd2, mean_tao, format='(f6.2, 3x, f6.2, 3x, f5.2,3x,f6.2,3x,f4.2,3x,f4.2,3x,f6.2)' 
    245  
     243; 
    246244    statistics_3var_v1, air, ncep1, ncep, $ 
    247245         cor1, cor2, bias1, bias2, std1, std2, rmsd1, rmsd2 
    248246    printf, 5, x, y, cor1, bias1, std1, rmsd1, mean_tao, format='(f6.2, 3x, f6.2, 3x, f5.2,3x,f5.2,3x,f4.2,3x,f4.2,3x,f6.2)' 
    249  
     247; 
    250248endfor 
    251249close,/all 
    252  
     250; 
    253251fi_air_erai=project_id_env+'air_2000_2009_erai_v50.txt' 
    254252res=read_ascii(fi_air_erai,data_start=1) 
    … …  
    256254lat=reform(ff(0,*)) 
    257255lon=reform(ff(1,*)) 
    258 cor_era=reform(ff(2,*))    
     256cor_era=reform(ff(2,*)) 
    259257cor_erai=total(cor_era)/n_elements(cor_era) 
    260 bias_era=reform(ff(3,*))   
     258bias_era=reform(ff(3,*)) 
    261259bias_erai=total(bias_era)/n_elements(bias_era) 
    262 std_era=reform(ff(4,*))    
     260std_era=reform(ff(4,*)) 
    263261std_erai=total(std_era)/n_elements(std_era) 
    264 rmsd_era=reform(ff(5,*))   
     262rmsd_era=reform(ff(5,*)) 
    265263rmsd_erai=total(rmsd_era)/n_elements(rmsd_era) 
    266 mean_tao=reform(ff(6,*))   
     264mean_tao=reform(ff(6,*)) 
    267265mean_erai=bias_era+mean_tao 
    268  
     266; 
    269267print, '' 
    270268print, 'ERAI' 
    … …  
    276274xyouts, 22.3,30.2, cstat, charsize=0.9 
    277275xyouts, 22.3,29.5, 'cor   bias   std   rmsd', charsize=0.9 
    278  
     276; 
    279277oplot, [22,31], [22,31] 
    280278ab=linfit(mean_tao, mean_erai,yfit=yfit) 
    281 a=float(ab(0))  
     279a=float(ab(0)) 
    282280b=float(ab(1)) 
    283281oplot, mean_tao, yfit, color=250, thick=2 
    284  
     282; 
    285283fi_air_trop=project_id_env+'air_2000_2009_trop_v50.txt' 
    286284res=read_ascii(fi_air_trop,data_start=1) 
    … …  
    288286lat=reform(ff(0,*)) 
    289287lon=reform(ff(1,*)) 
    290 cor_tro=reform(ff(2,*))    
     288cor_tro=reform(ff(2,*)) 
    291289cor_trop=total(cor_tro)/n_elements(cor_tro) 
    292 bias_tro=reform(ff(3,*))   
     290bias_tro=reform(ff(3,*)) 
    293291bias_trop=total(bias_tro)/n_elements(bias_tro) 
    294 std_tro=reform(ff(4,*))    
     292std_tro=reform(ff(4,*)) 
    295293std_trop=total(std_tro)/n_elements(std_tro) 
    296 rmsd_tro=reform(ff(5,*))   
     294rmsd_tro=reform(ff(5,*)) 
    297295rmsd_trop=total(rmsd_tro)/n_elements(rmsd_tro) 
    298 mean_tao=reform(ff(6,*))   
     296mean_tao=reform(ff(6,*)) 
    299297mean_trop=bias_tro+mean_tao 
    300  
     298; 
    301299print, '' 
    302300print, 'TropFlux' 
    303301print, cor_trop, bias_trop, std_trop, rmsd_trop 
    304302cstat=string(cor_trop, bias_trop, std_trop, rmsd_trop, format='(f4.2,1x,f6.2,1x,f4.2,1x,f4.2)') 
    305  
     303; 
    306304splot, mean_tao, mean_trop, title='T2m - TAO Vs TropFlux', subtitle='', $ 
    307305     charsize=1.1, xtitle='TAO T2m', ytitle='TropFlux T2m', small=[2,3,2],/noer, psym=2, $ 
    … …  
    310308xyouts, 22.3,30.2, cstat, charsize=0.9 
    311309xyouts, 22.3,29.5, 'cor   bias   std   rmsd', charsize=0.9 
    312  
     310; 
    313311ab=linfit(mean_tao, mean_trop,yfit=yfit) 
    314 a=float(ab(0))  
     312a=float(ab(0)) 
    315313b=float(ab(1)) 
    316314oplot, mean_tao, yfit, color=250, thick=2 
    317  
     315; 
    318316fi_air_oaflx=project_id_env+'air_2000_2009_oaflx_v50.txt' 
    319317res=read_ascii(fi_air_oaflx,data_start=1) 
    … …  
    321319lat=reform(ff(0,*)) 
    322320lon=reform(ff(1,*)) 
    323 cor_oaf=reform(ff(2,*))    
     321cor_oaf=reform(ff(2,*)) 
    324322cor_oafl=total(cor_oaf)/n_elements(cor_oaf) 
    325 bias_oaf=reform(ff(3,*))   
     323bias_oaf=reform(ff(3,*)) 
    326324bias_oafl=total(bias_oaf)/n_elements(bias_oaf) 
    327 std_oaf=reform(ff(4,*))    
     325std_oaf=reform(ff(4,*)) 
    328326std_oafl=total(std_oaf)/n_elements(std_oaf) 
    329 rmsd_oaf=reform(ff(5,*))   
     327rmsd_oaf=reform(ff(5,*)) 
    330328rmsd_oafl=total(rmsd_oaf)/n_elements(rmsd_oaf) 
    331 mean_tao=reform(ff(6,*))   
     329mean_tao=reform(ff(6,*)) 
    332330mean_oafl=bias_oaf+mean_tao 
    333  
     331; 
    334332print, '' 
    335333print, 'OAFlux' 
    336334print, cor_oafl, bias_oafl, std_oafl, rmsd_oafl 
    337335cstat=string(cor_oafl, bias_oafl, std_oafl, rmsd_oafl, format='(f4.2,1x,f6.2,1x,f4.2,1x,f4.2)') 
    338  
     336; 
    339337splot, mean_tao, mean_oafl, title='T2m - TAO Vs OAFlux', subtitle='', $ 
    340338     charsize=1.1, xtitle='TAO T2m', ytitle='OAFlux T2m', small=[2,3,3],/noer, psym=2, $ 
    … …  
    343341xyouts, 22.3,30.2, cstat, charsize=0.9 
    344342xyouts, 22.3,29.5, 'cor   bias   std   rmsd', charsize=0.9 
    345  
     343; 
    346344ab=linfit(mean_tao, mean_oafl,yfit=yfit) 
    347 a=float(ab(0))  
     345a=float(ab(0)) 
    348346b=float(ab(1)) 
    349347oplot, mean_tao, yfit, color=250, thick=2 
    350  
     348; 
    351349fi_air_ncep=project_id_env+'air_2000_2009_ncep_v50.txt' 
    352350res=read_ascii(fi_air_ncep,data_start=1) 
    … …  
    354352lat=reform(ff(0,*)) 
    355353lon=reform(ff(1,*)) 
    356 cor_nce=reform(ff(2,*))    
     354cor_nce=reform(ff(2,*)) 
    357355cor_ncep=total(cor_nce)/n_elements(cor_nce) 
    358 bias_nce=reform(ff(3,*))   
     356bias_nce=reform(ff(3,*)) 
    359357bias_ncep=total(bias_nce)/n_elements(bias_nce) 
    360 std_nce=reform(ff(4,*))    
     358std_nce=reform(ff(4,*)) 
    361359std_ncep=total(std_nce)/n_elements(std_nce) 
    362 rmsd_nce=reform(ff(5,*))   
     360rmsd_nce=reform(ff(5,*)) 
    363361rmsd_ncep=total(rmsd_nce)/n_elements(rmsd_nce) 
    364 mean_tao=reform(ff(6,*))  
     362mean_tao=reform(ff(6,*)) 
    365363mean_ncep=bias_nce+mean_tao 
    366  
     364; 
    367365print, '' 
    368366print, 'NCEP2' 
    369367print, cor_ncep, bias_ncep, std_ncep, rmsd_ncep 
    370368cstat=string(cor_ncep, bias_ncep, std_ncep, rmsd_ncep, format='(f4.2,1x,f6.2,1x,f4.2,1x,f4.2)') 
    371  
     369; 
    372370splot, mean_tao, mean_ncep, title='T2m - TAO Vs NCEP2', subtitle='', $ 
    373371     charsize=1.1, xtitle='TAO T2m', ytitle='NCEP2 T2m', small=[2,3,4],/noer, psym=2, $ 
    … …  
    376374xyouts, 22.3,30.2, cstat, charsize=0.9 
    377375xyouts, 22.3,29.5, 'cor   bias   std   rmsd', charsize=0.9 
    378  
     376; 
    379377ab=linfit(mean_tao, mean_ncep,yfit=yfit) 
    380 a=float(ab(0))  
     378a=float(ab(0)) 
    381379b=float(ab(1)) 
    382380oplot, mean_tao, yfit, color=250, thick=2 
    383  
     381; 
    384382fi_air_ncep1=project_id_env+'air_2000_2009_ncep1_v50.txt' 
    385383res=read_ascii(fi_air_ncep1,data_start=1) 
    … …  
    387385lat=reform(ff(0,*)) 
    388386lon=reform(ff(1,*)) 
    389 cor_nce=reform(ff(2,*))    
     387cor_nce=reform(ff(2,*)) 
    390388cor_ncep=total(cor_nce)/n_elements(cor_nce) 
    391 bias_nce=reform(ff(3,*))   
     389bias_nce=reform(ff(3,*)) 
    392390bias_ncep=total(bias_nce)/n_elements(bias_nce) 
    393 std_nce=reform(ff(4,*))    
     391std_nce=reform(ff(4,*)) 
    394392std_ncep=total(std_nce)/n_elements(std_nce) 
    395 rmsd_nce=reform(ff(5,*))   
     393rmsd_nce=reform(ff(5,*)) 
    396394rmsd_ncep=total(rmsd_nce)/n_elements(rmsd_nce) 
    397 mean_tao=reform(ff(6,*))   
     395mean_tao=reform(ff(6,*)) 
    398396mean_ncep=bias_nce+mean_tao 
    399  
     397; 
    400398print, '' 
    401399print, 'NCEP1' 
    402400print, cor_ncep, bias_ncep, std_ncep, rmsd_ncep 
    403401cstat=string(cor_ncep, bias_ncep, std_ncep, rmsd_ncep, format='(f4.2,1x,f6.2,1x,f4.2,1x,f4.2)') 
    404  
     402; 
    405403splot, mean_tao, mean_ncep, title='T2m - TAO Vs NCEP_NCAR', subtitle='', $ 
    406404     charsize=1.1, xtitle='TAO T2m', ytitle='NCEP', small=[2,3,5],/noer, psym=2, $ 
    … …  
    409407xyouts, 22.3,30.2, cstat, charsize=0.9 
    410408xyouts, 22.3,29.5, 'cor   bias   std   rmsd', charsize=0.9 
    411  
     409; 
    412410ab=linfit(mean_tao, mean_ncep,yfit=yfit) 
    413 a=float(ab(0))  
     411a=float(ab(0)) 
    414412b=float(ab(1)) 
    415413oplot, mean_tao, yfit, color=250, thick=2 
    416  
     414; 
    417415closeps 
    418  
     416; 
    419417return 
    420418end 
    … …  
    443441        y=strmid(site, n+1, n1-n-1) 
    444442    endelse 
    445  
     443; 
    446444endif else begin 
    447445    n1=strpos(site, 'w') 
    … …  
    456454   endelse 
    457455endelse 
     456; 
    458457return,float(y) 
     458; 
    459459end 

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

    r94 r97  
    9999;- 
    100100pro q2m_validation_scatter_2000_2009_v50, date1, date2 
    101  
     101; 
    102102@cm_project 
    103  
     103; 
    104104reinitplt, /z,/invert 
    105105key_portrait = 1 
    106  
     106; 
    107107openps, FILENAME = project_od_env+'q2m_validation_scatter_2000_2009_v50.ps' 
    108  
    109 ;; Give the location of mooring for validation of basic meteorological variables 
    110  
    111  
     108; 
     109; Give the location of mooring for validation of basic meteorological variables 
     110; 
     111; 
    112112sitelist=['8s67e','12s55e', '8s55e', '8s80.5e', '1.5s80.5e', '0n80.5e', '1.5n80.5e', '1.5s90e', $ 
    113113           '0n90e', '1.5n90e', '4n90e','8n90e','12n90e', '15n90e', '5s95e', $ 
    … …  
    120120          '0n0e', '0n10w', '0n23w', '0n35w', '10s10w', '12n23w', '12n38w', '14s32w', '15n38w', '19s34w', '20n38w', $ 
    121121          '21n23w', '4n23w', '4n38w', '6s10w', '8n38w', '8s30w'] 
    122  
     122; 
    123123ocean='global' 
    124  
    125 nsmooth=1.    ;; statistics are with 7 day smoothed 
    126 ;;   This program will create the following text files with statistics of respective variables 
     124; 
     125nsmooth=1.    ; statistics are with 7 day smoothed 
     126;   This program will create the following text files with statistics of respective variables 
    127127close,/all 
    128  
     128; 
    129129fi_q2m_erai=project_id_env+'q2m_2000_2009_erai_v50.txt' 
    130130openw,1,fi_q2m_erai 
    … …  
    137137fi_q2m_ncep1=project_id_env+'q2m_2000_2009_ncep1_v50.txt' 
    138138openw,5,fi_q2m_ncep1 
    139  
    140  
     139; 
     140; 
    141141printf,1, 'x     y      cor    bias     std     rmsd    mean_tao' 
    142142printf,2, 'x     y      cor    bias     std     rmsd    mean_tao' 
    … …  
    144144printf,4, 'x     y      cor    bias     std     rmsd    mean_tao' 
    145145printf,5, 'x     y      cor    bias     std     rmsd    mean_tao' 
    146  
    147 ;; first reading the whole ERAI uncorrected and corrected data 
    148  
     146; 
     147; first reading the whole ERAI uncorrected and corrected data 
     148; 
    149149file=project_id_env+'erai_q2m_19890101_20091231_oafluxgrid.nc' 
    150150initncdf, file 
    151151unc=read_ncdf('q2m',date1,date2,file=file,/nostr) 
    152152help, unc 
    153  
     153; 
    154154file=project_id_env+'TropFlux_q2m_19890101_20091231_v20.nc' 
    155155initncdf, file 
    156156cor=read_ncdf('q2m',date1,date2,file=file,/nostr) 
    157157help, cor 
    158  
     158; 
    159159file=project_id_env+'OAFlux_basic_variables_1985_2009.nc' 
    160160initncdf, file 
    161161oaf=read_ncdf("sphum", date1, date2, file=file,/nostr) 
    162162help, oaf 
    163  
     163; 
    164164fi=project_id_env+'sphum_ncep2_oafluxgrid_19890101_20091231.nc' 
    165165initncdf, fi 
    … …  
    167167nce=nce*1000 
    168168help, nce 
    169  
     169; 
    170170file=project_id_env+'q2m_ncep1_19890101_20091231.nc' 
    171171initncdf, file 
    … …  
    173173nce1=nce1*1000 
    174174help, nce1 
    175  
     175; 
    176176nn=n_elements(sitelist) 
    177177for n=0, nn-1 do begin 
    178  
    179 ;; reading data from mooring 
    180  
    181     site=sitelist(n)  
     178; 
     179; reading data from mooring 
     180; 
     181    site=sitelist(n) 
    182182    csite=site 
    183183    print, csite 
    … …  
    185185    y=y_site_location(site) 
    186186    if (y ge 0. and y le 30.) then y=y+360. 
    187     dx=0.5  
    188     dy=0.5  
     187    dx=0.5 
     188    dy=0.5 
    189189    box=[y-dy, y+dy, x-dx, x+dx] 
    190190    read_variables_v2, csite,date1,date2,nsmooth, $ 
    191191         at, sw,rh,sst,wu,wv,ws,lh 
    192  
    193  
    194     q2m=rh_to_sphum(rh,at,1008)               ;;        at  ->  q2m temperature 
    195 ;    q2m=at                                               ;;        q2m ->  sea surface temperature 
    196                                                 ;;        lh  ->  latent heat flux 
    197                                                 ;;        rh  ->  relative humidity 
    198                                                 ;;   wu,wv,ws ->  wind speed 
    199 ;; 
    200  
    201  
    202 ;;  extracting the corrected and uncorrected ERAI data at the locations 
     192; 
     193; 
     194    q2m=rh_to_sphum(rh,at,1008)               ;        at  ->  q2m temperature 
     195;    q2m=at                                               ;        q2m ->  sea surface temperature 
     196                                                ;        lh  ->  latent heat flux 
     197                                                ;        rh  ->  relative humidity 
     198                                                ;   wu,wv,ws ->  wind speed 
     199; 
     200;  extracting the corrected and uncorrected ERAI data at the locations 
    203201    nsmooth=1. 
    204  
     202; 
    205203    extract_flux_tropflux,unc,box, $ 
    206204        tropflux 
    207205    uncr=tropflux 
    208  
     206; 
    209207     extract_flux_tropflux,cor,box, $ 
    210208        tropflux 
    211209     corr=tropflux 
    212  
     210; 
    213211     extract_flux_tropflux,oaf,box, $ 
    214212        tropflux 
    215213     oafl=tropflux 
    216  
     214; 
    217215     extract_flux_tropflux,nce,box, $ 
    218216        tropflux 
    219217     ncep=tropflux 
    220  
     218; 
    221219     extract_flux_tropflux,nce1,box, $ 
    222220        tropflux 
    223221     ncep1=tropflux 
    224  
    225     ind=where(finite(q2m))  
    226     q2m=q2m(ind)  
    227     uncr_q2m=uncr(ind)   
     222; 
     223    ind=where(finite(q2m)) 
     224    q2m=q2m(ind) 
     225    uncr_q2m=uncr(ind) 
    228226    corr_q2m=corr(ind) 
    229     oafl=oafl(ind)  
    230     ncep=ncep(ind)  
     227    oafl=oafl(ind) 
     228    ncep=ncep(ind) 
    231229    ncep1=ncep1(ind) 
    232230    mean_tao=total(q2m,/nan)/n_elements(ind) 
    233  
     231; 
    234232    statistics_3var_v1, q2m, uncr_q2m, corr_q2m, $ 
    235233         cor1, cor2, bias1, bias2, std1, std2, rmsd1, rmsd2 
    236  
     234; 
    237235    printf, 1, x, y, cor1, bias1, std1, rmsd1, mean_tao, format='(f6.2, 3x, f6.2, 3x, f5.2,3x,f5.2,3x,f4.2,3x,f4.2,3x,f6.2)' 
    238236    printf, 2, x, y, cor2, bias2, std2, rmsd2, mean_tao, format='(f6.2, 3x, f6.2, 3x, f5.2,3x,f5.2,3x,f4.2,3x,f4.2,3x,f6.2)' 
    239  
     237; 
    240238    statistics_3var_v1, q2m, oafl, ncep, $ 
    241239         cor1, cor2, bias1, bias2, std1, std2, rmsd1, rmsd2 
    242240    printf, 3, x, y, cor1, bias1, std1, rmsd1, mean_tao, format='(f6.2, 3x, f6.2, 3x, f5.2,3x,f5.2,3x,f4.2,3x,f4.2,3x,f6.2)' 
    243241    printf, 4, x, y, cor2, bias2, std2, rmsd2, mean_tao, format='(f6.2, 3x, f6.2, 3x, f5.2,3x,f6.2,3x,f4.2,3x,f4.2,3x,f6.2)' 
    244  
     242; 
    245243    statistics_3var_v1, q2m, ncep1, ncep, $ 
    246244         cor1, cor2, bias1, bias2, std1, std2, rmsd1, rmsd2 
    247245    printf, 5, x, y, cor1, bias1, std1, rmsd1, mean_tao, format='(f6.2, 3x, f6.2, 3x, f5.2,3x,f5.2,3x,f4.2,3x,f4.2,3x,f6.2)' 
    248  
     246; 
    249247endfor 
    250248close,/all 
    251  
     249; 
    252250fi_q2m_erai=project_id_env+'q2m_2000_2009_erai_v50.txt' 
    253251res=read_ascii(fi_q2m_erai,data_start=1) 
    … …  
    255253lat=reform(ff(0,*)) 
    256254lon=reform(ff(1,*)) 
    257 cor_era=reform(ff(2,*))    
     255cor_era=reform(ff(2,*)) 
    258256cor_erai=total(cor_era)/n_elements(cor_era) 
    259 bias_era=reform(ff(3,*))   
     257bias_era=reform(ff(3,*)) 
    260258bias_erai=total(bias_era)/n_elements(bias_era) 
    261 std_era=reform(ff(4,*))    
     259std_era=reform(ff(4,*)) 
    262260std_erai=total(std_era)/n_elements(std_era) 
    263 rmsd_era=reform(ff(5,*))   
     261rmsd_era=reform(ff(5,*)) 
    264262rmsd_erai=total(rmsd_era)/n_elements(rmsd_era) 
    265 mean_tao=reform(ff(6,*))   
     263mean_tao=reform(ff(6,*)) 
    266264mean_erai=bias_era+mean_tao 
    267  
     265; 
    268266print, '' 
    269267print, 'ERAI' 
    … …  
    275273xyouts, 12,20.2, cstat, charsize=0.9 
    276274xyouts, 12,19.7, 'cor   bias   std   rmsd', charsize=0.9 
    277  
     275; 
    278276oplot, [11,21], [11,21] 
    279277ab=linfit(mean_tao, mean_erai,yfit=yfit) 
    280 a=float(ab(0))  
     278a=float(ab(0)) 
    281279b=float(ab(1)) 
    282280oplot, mean_tao, yfit, color=250, thick=2 
    283  
     281; 
    284282fi_q2m_trop=project_id_env+'q2m_2000_2009_trop_v50.txt' 
    285283res=read_ascii(fi_q2m_trop,data_start=1) 
    … …  
    287285lat=reform(ff(0,*)) 
    288286lon=reform(ff(1,*)) 
    289 cor_tro=reform(ff(2,*))    
     287cor_tro=reform(ff(2,*)) 
    290288cor_trop=total(cor_tro)/n_elements(cor_tro) 
    291 bias_tro=reform(ff(3,*))   
     289bias_tro=reform(ff(3,*)) 
    292290bias_trop=total(bias_tro)/n_elements(bias_tro) 
    293 std_tro=reform(ff(4,*))    
     291std_tro=reform(ff(4,*)) 
    294292std_trop=total(std_tro)/n_elements(std_tro) 
    295 rmsd_tro=reform(ff(5,*))   
     293rmsd_tro=reform(ff(5,*)) 
    296294rmsd_trop=total(rmsd_tro)/n_elements(rmsd_tro) 
    297 mean_tao=reform(ff(6,*))   
     295mean_tao=reform(ff(6,*)) 
    298296mean_trop=bias_tro+mean_tao 
    299  
     297; 
    300298print, '' 
    301299print, 'TropFlux' 
    302300print, cor_trop, bias_trop, std_trop, rmsd_trop 
    303301cstat=string(cor_trop, bias_trop, std_trop, rmsd_trop, format='(f4.2,1x,f6.2,1x,f4.2,1x,f4.2)') 
    304  
     302; 
    305303splot, mean_tao, mean_trop, title='Q2m - TAO Vs TropFlux', subtitle='', $ 
    306304     charsize=1.1, xtitle='TAO Q2m', ytitle='TropFlux Q2m', small=[2,3,2],/noer, psym=2, $ 
    … …  
    309307xyouts, 12,20.2, cstat, charsize=0.9 
    310308xyouts, 12,19.7, 'cor   bias   std   rmsd', charsize=0.9 
    311  
     309; 
    312310ab=linfit(mean_tao, mean_trop,yfit=yfit) 
    313 a=float(ab(0))  
     311a=float(ab(0)) 
    314312b=float(ab(1)) 
    315313oplot, mean_tao, yfit, color=250, thick=2 
    316  
     314; 
    317315fi_q2m_oaflx=project_id_env+'q2m_2000_2009_oaflx_v50.txt' 
    318316res=read_ascii(fi_q2m_oaflx,data_start=1) 
    … …  
    320318lat=reform(ff(0,*)) 
    321319lon=reform(ff(1,*)) 
    322 cor_oaf=reform(ff(2,*))    
     320cor_oaf=reform(ff(2,*)) 
    323321cor_oafl=total(cor_oaf)/n_elements(cor_oaf) 
    324 bias_oaf=reform(ff(3,*))   
     322bias_oaf=reform(ff(3,*)) 
    325323bias_oafl=total(bias_oaf)/n_elements(bias_oaf) 
    326 std_oaf=reform(ff(4,*))    
     324std_oaf=reform(ff(4,*)) 
    327325std_oafl=total(std_oaf)/n_elements(std_oaf) 
    328 rmsd_oaf=reform(ff(5,*))   
     326rmsd_oaf=reform(ff(5,*)) 
    329327rmsd_oafl=total(rmsd_oaf)/n_elements(rmsd_oaf) 
    330 mean_tao=reform(ff(6,*))   
     328mean_tao=reform(ff(6,*)) 
    331329mean_oafl=bias_oaf+mean_tao 
    332  
     330; 
    333331print, '' 
    334332print, 'OAFlux' 
    335333print, cor_oafl, bias_oafl, std_oafl, rmsd_oafl 
    336334cstat=string(cor_oafl, bias_oafl, std_oafl, rmsd_oafl, format='(f4.2,1x,f6.2,1x,f4.2,1x,f4.2)') 
    337  
     335; 
    338336splot, mean_tao, mean_oafl, title='Q2m - TAO Vs OAFlux', subtitle='', $ 
    339337     charsize=1.1, xtitle='TAO Q2m', ytitle='OAFlux Q2m', small=[2,3,3],/noer, psym=2, $ 
    … …  
    342340xyouts, 12,20.2, cstat, charsize=0.9 
    343341xyouts, 12,19.7, 'cor   bias   std   rmsd', charsize=0.9 
    344  
     342; 
    345343ab=linfit(mean_tao, mean_oafl,yfit=yfit) 
    346 a=float(ab(0))  
     344a=float(ab(0)) 
    347345b=float(ab(1)) 
    348346oplot, mean_tao, yfit, color=250, thick=2 
    349  
    350  
     347; 
     348; 
    351349fi_q2m_ncep=project_id_env+'q2m_2000_2009_ncep_v50.txt' 
    352350res=read_ascii(fi_q2m_ncep,data_start=1) 
    … …  
    354352lat=reform(ff(0,*)) 
    355353lon=reform(ff(1,*)) 
    356 cor_nce=reform(ff(2,*))    
     354cor_nce=reform(ff(2,*)) 
    357355cor_ncep=total(cor_nce)/n_elements(cor_nce) 
    358 bias_nce=reform(ff(3,*))   
     356bias_nce=reform(ff(3,*)) 
    359357bias_ncep=total(bias_nce)/n_elements(bias_nce) 
    360 std_nce=reform(ff(4,*))    
     358std_nce=reform(ff(4,*)) 
    361359std_ncep=total(std_nce)/n_elements(std_nce) 
    362 rmsd_nce=reform(ff(5,*))   
     360rmsd_nce=reform(ff(5,*)) 
    363361rmsd_ncep=total(rmsd_nce)/n_elements(rmsd_nce) 
    364 mean_tao=reform(ff(6,*))   
     362mean_tao=reform(ff(6,*)) 
    365363mean_ncep=bias_nce+mean_tao 
    366  
     364; 
    367365print, '' 
    368366print, 'NCEP2' 
    369367print, cor_ncep, bias_ncep, std_ncep, rmsd_ncep 
    370368cstat=string(cor_ncep, bias_ncep, std_ncep, rmsd_ncep, format='(f4.2,1x,f6.2,1x,f4.2,1x,f4.2)') 
    371  
     369; 
    372370splot, mean_tao, mean_ncep, title='Q2m - TAO Vs NCEP2', subtitle='', $ 
    373371     charsize=1.1, xtitle='TAO Q2m', ytitle='NCEP2 Q2m', small=[2,3,4],/noer, psym=2, $ 
    … …  
    376374xyouts, 12,20.2, cstat, charsize=0.9 
    377375xyouts, 12,19.7, 'cor   bias   std   rmsd', charsize=0.9 
    378  
     376; 
    379377ab=linfit(mean_tao, mean_ncep,yfit=yfit) 
    380 a=float(ab(0))  
     378a=float(ab(0)) 
    381379b=float(ab(1)) 
    382380oplot, mean_tao, yfit, color=250, thick=2 
    383  
     381; 
    384382fi_q2m_ncep1=project_id_env+'q2m_2000_2009_ncep1_v50.txt' 
    385383res=read_ascii(fi_q2m_ncep1,data_start=1) 
    … …  
    387385lat=reform(ff(0,*)) 
    388386lon=reform(ff(1,*)) 
    389 cor_nce=reform(ff(2,*))    
     387cor_nce=reform(ff(2,*)) 
    390388cor_ncep=total(cor_nce)/n_elements(cor_nce) 
    391 bias_nce=reform(ff(3,*))   
     389bias_nce=reform(ff(3,*)) 
    392390bias_ncep=total(bias_nce)/n_elements(bias_nce) 
    393 std_nce=reform(ff(4,*))    
     391std_nce=reform(ff(4,*)) 
    394392std_ncep=total(std_nce)/n_elements(std_nce) 
    395 rmsd_nce=reform(ff(5,*))   
     393rmsd_nce=reform(ff(5,*)) 
    396394rmsd_ncep=total(rmsd_nce)/n_elements(rmsd_nce) 
    397 mean_tao=reform(ff(6,*))   
     395mean_tao=reform(ff(6,*)) 
    398396mean_ncep=bias_nce+mean_tao 
    399  
     397; 
    400398print, '' 
    401399print, 'NCEP1' 
    402400print, cor_ncep, bias_ncep, std_ncep, rmsd_ncep 
    403401cstat=string(cor_ncep, bias_ncep, std_ncep, rmsd_ncep, format='(f4.2,1x,f6.2,1x,f4.2,1x,f4.2)') 
    404  
     402; 
    405403splot, mean_tao, mean_ncep, title='Q2m - TAO Vs NCEP', subtitle='', $ 
    406404     charsize=1.1, xtitle='TAO Q2m', ytitle='NCEP1 Q2m', small=[2,3,5],/noer, psym=2, $ 
    … …  
    409407xyouts, 12,20.2, cstat, charsize=0.9 
    410408xyouts, 12,19.7, 'cor   bias   std   rmsd', charsize=0.9 
    411  
     409; 
    412410ab=linfit(mean_tao, mean_ncep,yfit=yfit) 
    413 a=float(ab(0))  
     411a=float(ab(0)) 
    414412b=float(ab(1)) 
    415413oplot, mean_tao, yfit, color=250, thick=2 
    416  
     414; 
    417415closeps 
    418  
     416; 
    419417end 

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

    r94 r97  
    9090@cm_project 
    9191; 
    92 ;; DEFINE THE OUTPUT TIME AXIS 
     92; DEFINE THE OUTPUT TIME AXIS 
    9393; 
    9494jda1=date2jul(date1) 
    … …  
    9696jpt=(jda2-jda1+1l) 
    9797time=jda1+dindgen(jpt) 
    98  
    99 ; 
    100 ;; FIRST READ ALL DATA FROM SITE 
    101 ;;   - if file exists, extract correct time axis 
    102 ;;   - if not, fill variable with missing values 
    103 ; 
    104 ;;SHORTWAVE 
     98; 
     99; 
     100; FIRST READ ALL DATA FROM SITE 
     101;   - if file exists, extract correct time axis 
     102;   - if not, fill variable with missing values 
     103; 
     104;SHORTWAVE 
    105105fi=project_id_env+'rad'+csite+'_dy.cdf' 
    106106f=file_test(fi) 
    … …  
    121121  print, fi, ' not found' 
    122122endelse 
    123  
     123; 
    124124ind_sw=where(sw_q ne 1. and sw_q ne 2.) 
    125  
    126 ;;LHF 
     125; 
     126;LHF 
    127127fi=project_id_env+'qlat'+csite+'_dy.cdf' 
    128128f=file_test(fi) 
    … …  
    142142  print, fi, ' not found' 
    143143endelse 
    144  
    145 ;;POSITION 
     144; 
     145;POSITION 
    146146fi=project_id_env+'pos'+csite+'_dy.cdf' 
    147147f=file_test(fi) 
    … …  
    161161  print, fi, ' not found' 
    162162endelse 
    163  
    164  
    165 ;;MET PARAMETERS 
     163; 
     164; 
     165;MET PARAMETERS 
    166166fi=project_id_env+'met'+csite+'_dy.cdf' 
    167167f=file_test(fi) 
    … …  
    176176sst=fltarr(jpt)+!values.f_nan 
    177177sst_q=fltarr(jpt)+!values.f_nan 
    178  
     178; 
    179179if (f) then begin 
    180180  tt0=time_lec(fi) 
    … …  
    206206  print, fi, ' not found' 
    207207endelse 
    208  
    209 ind_at=where(at_q ne 1 and at_q ne 2)    
     208; 
     209ind_at=where(at_q ne 1 and at_q ne 2) 
    210210ind_ws=where(ws_q ne 1 and ws_q ne 2) 
    211 ind_rh=where(rh_q ne 1 and rh_q ne 2)    
     211ind_rh=where(rh_q ne 1 and rh_q ne 2) 
    212212ind_sst=where(sst_q ne 1 and sst_q ne 2) 
    213213ind_lh=where(lh_q ne 1 and lh_q ne 2) 
    214  
     214; 
    215215ind=union(ind_at, union(ind_rh, union(ind_ws, union(ind_lh, ind_sst)))) 
    216  
     216; 
    217217if (ind(0) ne -1) then begin 
    218   sw(ind)=!Values.f_nan    
     218  sw(ind)=!Values.f_nan 
    219219  at(ind)=!Values.f_nan 
    220   rh(ind)=!Values.f_nan    
     220  rh(ind)=!Values.f_nan 
    221221  ws(ind)=!Values.f_nan 
    222   sst(ind)=!Values.f_nan   
     222  sst(ind)=!Values.f_nan 
    223223  lh(ind)=!Values.f_nan 
    224   wu(ind)=!Values.f_nan   
     224  wu(ind)=!Values.f_nan 
    225225  wv(ind)=!Values.f_nan 
    226226endif 
    227227; 
    228 ;; Replace missing values by "NaN" 
     228; Replace missing values by "NaN" 
    229229; 
    230230tsvars=['at','sw','rh','sst','wu','wv','ws','lat','lon'] 
    … …  
    233233for n=0,nn-1 do begin 
    234234  var=vars(n) 
    235   com='ind=where('+var+' ge 1.e20)  
     235  com='ind=where('+var+' ge 1.e20) 
    236236  if (ind(0) ne -1) then '+var+'(ind)=!values.f_nan' 
    237237  r=execute(com) 
    238238endfor 
    239  
     239; 
    240240nsmooth=nsmooth 
    241 at=smooth(at,nsmooth,/nan)  
     241at=smooth(at,nsmooth,/nan) 
    242242sst=smooth(sst,nsmooth,/nan) 
    243 lh=smooth(lh,nsmooth,/nan)  
     243lh=smooth(lh,nsmooth,/nan) 
    244244rh=smooth(rh,nsmooth,/nan) 
    245 wu=smooth(wu,nsmooth,/nan)  
     245wu=smooth(wu,nsmooth,/nan) 
    246246wv=smooth(wv,nsmooth,/nan) 
    247 ws=smooth(ws,nsmooth,/nan)  
     247ws=smooth(ws,nsmooth,/nan) 
    248248sw=smooth(sw,nsmooth,/nan) 
    249  
     249; 
    250250end 
    251  
    252  
     251; 
    253252function time_lec, fi 
    254253tt=ncdf_lec(fi,var='time') 
    255 fid=ncdf_open(fi)  
     254fid=ncdf_open(fi) 
    256255vid=ncdf_varid(fid,'time') 
    257256ncdf_attget, fid,vid,'units',orig 
    … …  
    261260dd=long(strmid(orig,19,2)) 
    262261tt=julday(mm,dd,yy,12,00)+tt 
     262; 
    263263return, tt 
     264; 
    264265end 

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

    r94 r97  
    9595reinitplt, /z,/invert 
    9696key_portrait = 1 
    97  
     97; 
    9898openps, FILENAME = project_od_env+'sst_validation_scatter_2000_2009_v50.ps' 
    99  
    100 ;; Give the location of mooring for validation of basic meteorological variables 
    101  
    102  
     99; 
     100; Give the location of mooring for validation of basic meteorological variables 
     101; 
     102; 
    103103sitelist=['8s67e','12s55e', '8s55e', '8s80.5e', '1.5s80.5e', '0n80.5e', '1.5n80.5e', '1.5s90e', $ 
    104104           '0n90e', '1.5n90e', '4n90e','8n90e','12n90e', '15n90e', '5s95e', $ 
    … …  
    111111          '0n0e', '0n10w', '0n23w', '0n35w', '10s10w', '12n23w', '12n38w', '14s32w', '15n38w', '19s34w', '20n38w', $ 
    112112          '21n23w', '4n23w', '4n38w', '6s10w', '8n38w', '8s30w'] 
    113  
     113; 
    114114ocean='global' 
    115  
    116 nsmooth=1.    ;; statistics are with 7 day smoothed 
    117 ;;   This program will create the following text files with statistics of respective variables 
     115; 
     116nsmooth=1.    ; statistics are with 7 day smoothed 
     117;   This program will create the following text files with statistics of respective variables 
    118118close,/all 
    119  
     119; 
    120120fi_sst_erai=project_id_env+'sst_2000_2009_erai_v50.txt' 
    121121openw,1,fi_sst_erai 
    … …  
    130130fi_sst_ncep1=project_id_env+'sst_2000_2009_ncep1_v50.txt' 
    131131openw,6,fi_sst_ncep1 
    132  
    133  
    134  
     132; 
     133; 
     134; 
    135135printf,1, 'x     y      cor    bias     std     rmsd      mean_tao' 
    136136printf,2, 'x     y      cor    bias     std     rmsd      mean_tao' 
    … …  
    139139printf,5, 'x     y      cor    bias     std     rmsd      mean_tao' 
    140140printf,6, 'x     y      cor    bias     std     rmsd      mean_tao' 
    141  
    142 ;; first reading the whole ERAI uncorrected and corrected data 
    143  
     141; 
     142; first reading the whole ERAI uncorrected and corrected data 
     143; 
    144144file=project_id_env+'erai_sst_19890101_20091231_oafluxgrid.nc' 
    145145initncdf, file 
    146 unc=read_ncdf('sst',date1,date2,file=file,/nostr)  
     146unc=read_ncdf('sst',date1,date2,file=file,/nostr) 
    147147unc=unc-273.15 
    148148help, unc 
    149  
     149; 
    150150file=project_id_env+'TropFlux_sst_19890101_20091231_v20.nc' 
    151151initncdf, file 
    152 cor=read_ncdf('sst',date1,date2,file=file,/nostr)  
     152cor=read_ncdf('sst',date1,date2,file=file,/nostr) 
    153153cor=cor-273.15 
    154154help, cor 
    155  
     155; 
    156156file=project_id_env+'OAFlux_basic_variables_1985_2009.nc' 
    157157initncdf, file 
    158158oaf=read_ncdf("sst", date1, date2, file=file,/nostr) 
    159159help, oaf 
    160  
     160; 
    161161fi=project_id_env+'sst_ncep2_oafluxgrid_19890101_20091231.nc' 
    162162initncdf, fi 
    … …  
    164164nce=nce-273.15 
    165165help, nce 
    166  
     166; 
    167167fi=project_id_env+'tmi_OI_oafluxgrid_30N30S.nc' 
    168168initncdf, fi 
    169169sst_tmi=read_ncdf("sst", date1, date2, file=fi,/nostr) 
    170170help, sst_tmi 
    171  
     171; 
    172172file=project_id_env+'sst_ncep1_19890101_20091231.nc' 
    173173initncdf, file 
    … …  
    175175nce1=nce1-273.15 
    176176help, nce1 
    177  
     177; 
    178178nn=n_elements(sitelist) 
    179179for n=0, nn-1 do begin 
    180  
    181 ;; reading data from mooring 
    182  
    183     site=sitelist(n)  
     180; 
     181; reading data from mooring 
     182; 
     183    site=sitelist(n) 
    184184    csite=site 
    185185    print, csite 
    … …  
    187187    y=y_site_location(site) 
    188188    if (y ge 0. and y le 30.) then y=y+360. 
    189     dx=0.5  
    190     dy=0.5  
     189    dx=0.5 
     190    dy=0.5 
    191191    box=[y-dy, y+dy, x-dx, x+dx] 
    192192    read_variables_v2, csite,date1,date2,nsmooth, $ 
    193193         at, sw,rh,sst,wu,wv,ws,lh 
    194  
    195  
    196     ind=where(finite(sst))  
     194; 
     195; 
     196    ind=where(finite(sst)) 
    197197    valid=n_elements(ind) 
    198  
     198; 
    199199    if (valid ge 180) then begin 
    200  
    201       ;;  extracting the corrected and uncorrected ERAI data at the locations 
     200; 
     201      ;  extracting the corrected and uncorrected ERAI data at the locations 
    202202      nsmooth=1. 
    203  
     203; 
    204204      extract_flux_tropflux,unc,box, $ 
    205205        tropflux 
    206206      uncr=tropflux 
    207  
     207; 
    208208      extract_flux_tropflux,cor,box, $ 
    209209        tropflux 
    210210      corr=tropflux 
    211  
     211; 
    212212      extract_flux_tropflux,oaf,box, $ 
    213213        tropflux 
    214214      oafl=tropflux 
    215  
     215; 
    216216      extract_flux_tropflux,nce,box, $ 
    217217        tropflux 
    218218      ncep=tropflux 
    219  
     219; 
    220220      extract_flux_tropflux,sst_tmi,box, $ 
    221221        tropflux 
    222222      tmi=tropflux 
    223  
     223; 
    224224      extract_flux_tropflux,nce1,box, $ 
    225225        tropflux 
    226226      ncep1=tropflux 
    227  
    228  
    229       ind=where(finite(sst))  
    230       sst=sst(ind)  
    231       uncr_sst=uncr(ind)   
     227; 
     228; 
     229      ind=where(finite(sst)) 
     230      sst=sst(ind) 
     231      uncr_sst=uncr(ind) 
    232232      corr_sst=corr(ind) 
    233       oafl=oafl(ind)  
    234       ncep=ncep(ind)  
    235       tmi=tmi(ind)  
     233      oafl=oafl(ind) 
     234      ncep=ncep(ind) 
     235      tmi=tmi(ind) 
    236236      ncep1=ncep1(ind) 
    237237      mean_tao=total(sst,/nan)/n_elements(ind) 
    238  
     238; 
    239239      statistics_3var_v1, sst, uncr_sst, corr_sst, $ 
    240240         cor1, cor2, bias1, bias2, std1, std2, rmsd1, rmsd2 
    241  
     241; 
    242242      printf, 1, x, y, cor1, bias1, std1, rmsd1, mean_tao, format='(f6.2, 3x, f6.2, 3x, f5.2,3x,f5.2,3x,f4.2,3x,f4.2,3x,f6.2)' 
    243243      printf, 2, x, y, cor2, bias2, std2, rmsd2, mean_tao, format='(f6.2, 3x, f6.2, 3x, f5.2,3x,f5.2,3x,f4.2,3x,f4.2,3x,f6.2)' 
    244  
     244; 
    245245      statistics_3var_v1, sst, oafl, ncep, $ 
    246246         cor1, cor2, bias1, bias2, std1, std2, rmsd1, rmsd2 
    247247      printf, 3, x, y, cor1, bias1, std1, rmsd1, mean_tao, format='(f6.2, 3x, f6.2, 3x, f5.2,3x,f5.2,3x,f4.2,3x,f4.2,3x,f6.2)' 
    248248      printf, 4, x, y, cor2, bias2, std2, rmsd2, mean_tao, format='(f6.2, 3x, f6.2, 3x, f5.2,3x,f6.2,3x,f4.2,3x,f4.2,3x,f6.2)' 
    249  
     249; 
    250250      statistics_3var_v1, sst, tmi, ncep1, $ 
    251251         cor1, cor2, bias1, bias2, std1, std2, rmsd1, rmsd2 
    252252      printf, 5, x, y, cor1, bias1, std1, rmsd1, mean_tao, format='(f6.2, 3x, f6.2, 3x, f5.2,3x,f5.2,3x,f4.2,3x,f4.2,3x,f6.2)' 
    253253      printf, 6, x, y, cor2, bias2, std2, rmsd2, mean_tao, format='(f6.2, 3x, f6.2, 3x, f5.2,3x,f5.2,3x,f4.2,3x,f4.2,3x,f6.2)' 
    254  
     254; 
    255255  endif 
    256  
     256; 
    257257endfor 
    258258close,/all 
    259  
     259; 
    260260fi_sst_erai=project_id_env+'sst_2000_2009_v50_erai.txt' 
    261261res=read_ascii(fi_sst_erai,data_start=1) 
    … …  
    263263lat=reform(ff(0,*)) 
    264264lon=reform(ff(1,*)) 
    265 cor_era=reform(ff(2,*))    
     265cor_era=reform(ff(2,*)) 
    266266cor_erai=total(cor_era)/n_elements(cor_era) 
    267 bias_era=reform(ff(3,*))   
     267bias_era=reform(ff(3,*)) 
    268268bias_erai=total(bias_era)/n_elements(bias_era) 
    269 std_era=reform(ff(4,*))    
     269std_era=reform(ff(4,*)) 
    270270std_erai=total(std_era)/n_elements(std_era) 
    271 rmsd_era=reform(ff(5,*))   
     271rmsd_era=reform(ff(5,*)) 
    272272rmsd_erai=total(rmsd_era)/n_elements(rmsd_era) 
    273 mean_tao=reform(ff(6,*))   
     273mean_tao=reform(ff(6,*)) 
    274274mean_erai=bias_era+mean_tao 
    275  
     275; 
    276276print, '' 
    277277print, 'ERAI' 
    … …  
    283283xyouts, 22.3,30.2, cstat, charsize=0.9 
    284284xyouts, 22.3,29.5, 'cor   bias   std   rmsd', charsize=0.9 
    285  
     285; 
    286286oplot, [22,31], [22,31] 
    287287ab=linfit(mean_tao, mean_erai,yfit=yfit) 
    288 a=float(ab(0))  
    289 b=float(ab(1)) 
    290 oplot, mean_tao, yfit, color=250, thick=2 
    291  
     288a=float(ab(0)) 
     289b=float(ab(1)) 
     290oplot, mean_tao, yfit, color=250, thick=2 
     291; 
    292292fi_sst_trop=project_id_env+'sst_2000_2009_v50_trop.txt' 
    293293res=read_ascii(fi_sst_trop,data_start=1) 
    … …  
    295295lat=reform(ff(0,*)) 
    296296lon=reform(ff(1,*)) 
    297 cor_tro=reform(ff(2,*))    
     297cor_tro=reform(ff(2,*)) 
    298298cor_trop=total(cor_tro)/n_elements(cor_tro) 
    299 bias_tro=reform(ff(3,*))   
     299bias_tro=reform(ff(3,*)) 
    300300bias_trop=total(bias_tro)/n_elements(bias_tro) 
    301 std_tro=reform(ff(4,*))    
     301std_tro=reform(ff(4,*)) 
    302302std_trop=total(std_tro)/n_elements(std_tro) 
    303 rmsd_tro=reform(ff(5,*))   
     303rmsd_tro=reform(ff(5,*)) 
    304304rmsd_trop=total(rmsd_tro)/n_elements(rmsd_tro) 
    305 mean_tao=reform(ff(6,*))   
     305mean_tao=reform(ff(6,*)) 
    306306mean_trop=bias_tro+mean_tao 
    307  
     307; 
    308308print, '' 
    309309print, 'TropFlux' 
    310310print, cor_trop, bias_trop, std_trop, rmsd_trop 
    311311cstat=string(cor_trop, bias_trop, std_trop, rmsd_trop, format='(f4.2,1x,f6.2,1x,f4.2,1x,f4.2)') 
    312  
     312; 
    313313splot, mean_tao, mean_trop, title='SST - TAO Vs TropFlux', subtitle='', $ 
    314314     charsize=1.1, xtitle='TAO SST', ytitle='TropFlux SST', small=[2,3,2],/noer, psym=2, $ 
    … …  
    317317xyouts, 22.3,30.2, cstat, charsize=0.9 
    318318xyouts, 22.3,29.5, 'cor   bias   std   rmsd', charsize=0.9 
    319  
     319; 
    320320ab=linfit(mean_tao, mean_trop,yfit=yfit) 
    321 a=float(ab(0))  
    322 b=float(ab(1)) 
    323 oplot, mean_tao, yfit, color=250, thick=2 
    324  
     321a=float(ab(0)) 
     322b=float(ab(1)) 
     323oplot, mean_tao, yfit, color=250, thick=2 
     324; 
    325325fi_sst_oaflx=project_id_env+'sst_2000_2009_v50_oaflx.txt' 
    326326res=read_ascii(fi_sst_oaflx,data_start=1) 
    … …  
    328328lat=reform(ff(0,*)) 
    329329lon=reform(ff(1,*)) 
    330 cor_oaf=reform(ff(2,*))    
     330cor_oaf=reform(ff(2,*)) 
    331331cor_oafl=total(cor_oaf)/n_elements(cor_oaf) 
    332 bias_oaf=reform(ff(3,*))   
     332bias_oaf=reform(ff(3,*)) 
    333333bias_oafl=total(bias_oaf)/n_elements(bias_oaf) 
    334 std_oaf=reform(ff(4,*))    
     334std_oaf=reform(ff(4,*)) 
    335335std_oafl=total(std_oaf)/n_elements(std_oaf) 
    336 rmsd_oaf=reform(ff(5,*))   
     336rmsd_oaf=reform(ff(5,*)) 
    337337rmsd_oafl=total(rmsd_oaf)/n_elements(rmsd_oaf) 
    338 mean_tao=reform(ff(6,*))   
     338mean_tao=reform(ff(6,*)) 
    339339mean_oafl=bias_oaf+mean_tao 
    340  
     340; 
    341341print, '' 
    342342print, 'OAFlux' 
    343343print, cor_oafl, bias_oafl, std_oafl, rmsd_oafl 
    344344cstat=string(cor_oafl, bias_oafl, std_oafl, rmsd_oafl, format='(f4.2,1x,f6.2,1x,f4.2,1x,f4.2)') 
    345  
     345; 
    346346splot, mean_tao, mean_oafl, title='SST - TAO Vs OAFlux', subtitle='', $ 
    347347     charsize=1.1, xtitle='TAO SST', ytitle='OAFlux SST', small=[2,3,3],/noer, psym=2, $ 
    … …  
    350350xyouts, 22.3,30.2, cstat, charsize=0.9 
    351351xyouts, 22.3,29.5, 'cor   bias   std   rmsd', charsize=0.9 
    352  
     352; 
    353353ab=linfit(mean_tao, mean_oafl,yfit=yfit) 
    354 a=float(ab(0))  
    355 b=float(ab(1)) 
    356 oplot, mean_tao, yfit, color=250, thick=2 
    357  
    358  
    359  
     354a=float(ab(0)) 
     355b=float(ab(1)) 
     356oplot, mean_tao, yfit, color=250, thick=2 
     357; 
     358; 
     359; 
    360360fi_sst_ncep=project_id_env+'sst_2000_2009_v50_ncep.txt' 
    361361res=read_ascii(fi_sst_ncep,data_start=1) 
    … …  
    363363lat=reform(ff(0,*)) 
    364364lon=reform(ff(1,*)) 
    365 cor_nce=reform(ff(2,*))    
     365cor_nce=reform(ff(2,*)) 
    366366cor_ncep=total(cor_nce)/n_elements(cor_nce) 
    367 bias_nce=reform(ff(3,*))   
     367bias_nce=reform(ff(3,*)) 
    368368bias_ncep=total(bias_nce)/n_elements(bias_nce) 
    369 std_nce=reform(ff(4,*))    
     369std_nce=reform(ff(4,*)) 
    370370std_ncep=total(std_nce)/n_elements(std_nce) 
    371 rmsd_nce=reform(ff(5,*))   
     371rmsd_nce=reform(ff(5,*)) 
    372372rmsd_ncep=total(rmsd_nce)/n_elements(rmsd_nce) 
    373 mean_tao=reform(ff(6,*))   
     373mean_tao=reform(ff(6,*)) 
    374374mean_ncep=bias_nce+mean_tao 
    375  
     375; 
    376376print, '' 
    377377print, 'NCEP2' 
    378378print, cor_ncep, bias_ncep, std_ncep, rmsd_ncep 
    379379cstat=string(cor_ncep, bias_ncep, std_ncep, rmsd_ncep, format='(f4.2,1x,f6.2,1x,f4.2,1x,f4.2)') 
    380  
     380; 
    381381splot, mean_tao, mean_ncep, title='SST - TAO Vs NCEP2', subtitle='', $ 
    382382     charsize=1.1, xtitle='TAO SST', ytitle='NCEP2 SST', small=[2,3,4],/noer, psym=2, $ 
    … …  
    385385xyouts, 22.3,30.2, cstat, charsize=0.9 
    386386xyouts, 22.3,29.5, 'cor   bias   std   rmsd', charsize=0.9 
    387  
     387; 
    388388ab=linfit(mean_tao, mean_ncep,yfit=yfit) 
    389 a=float(ab(0))  
    390 b=float(ab(1)) 
    391 oplot, mean_tao, yfit, color=250, thick=2 
    392  
    393  
     389a=float(ab(0)) 
     390b=float(ab(1)) 
     391oplot, mean_tao, yfit, color=250, thick=2 
     392; 
     393; 
    394394fi_sst_tmi=project_id_env+'sst_2000_2009_v50_tmi.txt' 
    395395res=read_ascii(fi_sst_tmi,data_start=1) 
    … …  
    397397lat=reform(ff(0,*)) 
    398398lon=reform(ff(1,*)) 
    399 cor_tm=reform(ff(2,*))    
     399cor_tm=reform(ff(2,*)) 
    400400cor_tmi=total(cor_tm)/n_elements(cor_tm) 
    401 bias_tm=reform(ff(3,*))   
     401bias_tm=reform(ff(3,*)) 
    402402bias_tmi=total(bias_tm)/n_elements(bias_tm) 
    403 std_tm=reform(ff(4,*))    
     403std_tm=reform(ff(4,*)) 
    404404std_tmi=total(std_tm)/n_elements(std_tm) 
    405 rmsd_tm=reform(ff(5,*))   
     405rmsd_tm=reform(ff(5,*)) 
    406406rmsd_tmi=total(rmsd_tm)/n_elements(rmsd_tm) 
    407 mean_tao=reform(ff(6,*))   
     407mean_tao=reform(ff(6,*)) 
    408408mean_tmi=bias_tm+mean_tao 
    409  
     409; 
    410410print, '' 
    411411print, 'TMI' 
    412412print, cor_tmi, bias_tmi, std_tmi, rmsd_tmi 
    413413cstat=string(cor_tmi, bias_tmi, std_tmi, rmsd_tmi, format='(f4.2,1x,f6.2,1x,f4.2,1x,f4.2)') 
    414  
     414; 
    415415splot, mean_tao, mean_tmi, title='SST - TAO Vs TMI', subtitle='', $ 
    416416     charsize=1.1, xtitle='TAO SST', ytitle='TMI SST', small=[2,3,5],/noer, psym=2, $ 
    … …  
    419419xyouts, 22.3,30.2, cstat, charsize=0.9 
    420420xyouts, 22.3,29.5, 'cor   bias   std   rmsd', charsize=0.9 
    421  
     421; 
    422422ab=linfit(mean_tao, mean_tmi,yfit=yfit) 
    423 a=float(ab(0))  
    424 b=float(ab(1)) 
    425 oplot, mean_tao, yfit, color=250, thick=2 
    426  
     423a=float(ab(0)) 
     424b=float(ab(1)) 
     425oplot, mean_tao, yfit, color=250, thick=2 
     426; 
    427427fi_sst_ncep1=project_id_env+'sst_2000_2009_v50_ncep1.txt' 
    428428res=read_ascii(fi_sst_ncep1,data_start=1) 
    … …  
    430430lat=reform(ff(0,*)) 
    431431lon=reform(ff(1,*)) 
    432 cor_nce=reform(ff(2,*))    
     432cor_nce=reform(ff(2,*)) 
    433433cor_ncep=total(cor_nce)/n_elements(cor_nce) 
    434 bias_nce=reform(ff(3,*))   
     434bias_nce=reform(ff(3,*)) 
    435435bias_ncep=total(bias_nce)/n_elements(bias_nce) 
    436 std_nce=reform(ff(4,*))    
     436std_nce=reform(ff(4,*)) 
    437437std_ncep=total(std_nce)/n_elements(std_nce) 
    438 rmsd_nce=reform(ff(5,*))   
     438rmsd_nce=reform(ff(5,*)) 
    439439rmsd_ncep=total(rmsd_nce)/n_elements(rmsd_nce) 
    440 mean_tao=reform(ff(6,*))   
     440mean_tao=reform(ff(6,*)) 
    441441mean_ncep=bias_nce+mean_tao 
    442  
     442; 
    443443print, '' 
    444444print, 'NCEP1' 
    445445print, cor_ncep, bias_ncep, std_ncep, rmsd_ncep 
    446446cstat=string(cor_ncep, bias_ncep, std_ncep, rmsd_ncep, format='(f4.2,1x,f6.2,1x,f4.2,1x,f4.2)') 
    447  
     447; 
    448448splot, mean_tao, mean_ncep, title='SST - TAO Vs NCEP_NCAR', subtitle='', $ 
    449449     charsize=1.1, xtitle='TAO SST', ytitle='NCEP SST', small=[2,3,6],/noer, psym=2, $ 
    … …  
    452452xyouts, 22.3,30.2, cstat, charsize=0.9 
    453453xyouts, 22.3,29.5, 'cor   bias   std   rmsd', charsize=0.9 
    454  
     454; 
    455455ab=linfit(mean_tao, mean_ncep,yfit=yfit) 
    456 a=float(ab(0))  
    457 b=float(ab(1)) 
    458 oplot, mean_tao, yfit, color=250, thick=2 
    459  
     456a=float(ab(0)) 
     457b=float(ab(1)) 
     458oplot, mean_tao, yfit, color=250, thick=2 
     459; 
    460460closeps 
    461  
     461; 
    462462end 

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

    r94 r97  
    5151pro statistics_3var_v1, tao,var1,var2, $ 
    5252    cor1, cor2, bias1, bias2, std1, std2, rmsd1, rmsd2 
    53  
     53; 
    5454@cm_project 
    55 x=tao  
    56 y=var1  
     55x=tao 
     56y=var1 
    5757z=var2 
    58  
    59 ind1=where(finite(x,/nan))  
    60 ind2=where(finite(y,/nan))  
     58; 
     59ind1=where(finite(x,/nan)) 
     60ind2=where(finite(y,/nan)) 
    6161ind3=where(finite(z,/nan)) 
    6262ind=inter(ind1,union(ind2,ind3)) 
    63  
     63; 
    6464if (ind ne -1.) then begin 
    65    x(ind)=!Values.f_nan  
    66    y(ind)=!Values.f_nan  
     65   x(ind)=!Values.f_nan 
     66   y(ind)=!Values.f_nan 
    6767   z(ind)=!Values.f_nan 
    6868endif 
    69  
    70 nsmooth=5   ;; applying a 5 day smoothing 
    71  
     69; 
     70nsmooth=5   ; applying a 5 day smoothing 
     71; 
    7272x=ts_smooth(x,nsmooth,/nan) 
    7373y=ts_smooth(y,nsmooth,/nan) 
    7474z=ts_smooth(z,nsmooth,/nan) 
    75  
     75; 
    7676ind1=where(finite(x)) 
    7777ind2=where(finite(y)) 
    … …  
    8282z=z(ind) 
    8383nn=n_elements(ind) 
    84  
     84; 
    8585cor1=correlate(x,y) 
    86 cor2=correlate(x,z)   
    87 ;; cor1=correlation(tropflux,tao) cor2=correlation(tropflux,rec) 
     86cor2=correlate(x,z) 
     87; cor1=correlation(tropflux,tao) cor2=correlation(tropflux,rec) 
    8888xxx=moment(x) 
    8989; mean1 and std1 --> for tropflux 
    90 mean1=xxx(0)  
    91 std1=sqrt(xxx(1))  
     90mean1=xxx(0) 
     91std1=sqrt(xxx(1)) 
    9292xxx=moment(y) 
    93 ;; mean2 and std2 --> for tao 
    94 mean2=xxx(0)  
     93; mean2 and std2 --> for tao 
     94mean2=xxx(0) 
    9595std2=sqrt(xxx(1)) 
    9696xxx=moment(z) 
    97 ;; mean3 and std3 --> for rec 
    98 mean3=xxx(0)  
    99 std3=sqrt(xxx(1))     
    100  
     97; mean3 and std3 --> for rec 
     98mean3=xxx(0) 
     99std3=sqrt(xxx(1)) 
     100; 
    101101bias1=mean2-mean1 
    102102st1=std2/std1 
    103 bias2=mean3-mean1  
     103bias2=mean3-mean1 
    104104st2=std3/std1 
    105  
    106 std1=st1  
     105; 
     106std1=st1 
    107107std2=st2 
    108108rmsd1=sqrt(total((x-y)*(x-y))/n_elements(x)) 
    109109rmsd2=sqrt(total((x-z)*(x-z))/n_elements(x)) 
    110  
     110; 
    111111end 

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

    r94 r97  
    9494reinitplt, /z,/invert 
    9595key_portrait = 1 
    96  
     96; 
    9797openps, FILENAME = project_od_env+'ws_validation_scatter_2000_2009_v50.ps' 
    98  
    99 ;; Give the location of mooring for validation of basic meteorological variables 
    100  
    101  
     98; 
     99; Give the location of mooring for validation of basic meteorological variables 
     100; 
     101; 
    102102sitelist=['8s67e','12s55e', '8s55e', '8s80.5e', '1.5s80.5e', '0n80.5e', '1.5n80.5e', '1.5s90e', $ 
    103103           '0n90e', '1.5n90e', '4n90e','8n90e','12n90e', '15n90e', '5s95e', $ 
    … …  
    110110          '0n0e', '0n10w', '0n23w', '0n35w', '10s10w', '12n23w', '12n38w', '14s32w', '15n38w', '19s34w', '20n38w', $ 
    111111          '21n23w', '4n23w', '4n38w', '6s10w', '8n38w', '8s30w'] 
    112  
     112; 
    113113ocean='global' 
    114  
    115 da1=10000101  
     114; 
     115da1=10000101 
    116116da2=10081231 
    117 nsmooth=1.    ;; statistics are with 7 day smoothed 
    118 ;;   This program will create the following text files with statistics of respective variables 
     117nsmooth=1.    ; statistics are with 7 day smoothed 
     118;   This program will create the following text files with statistics of respective variables 
    119119close,/all 
    120  
     120; 
    121121fi_ws_erai=project_id_env+'ws_2000_2009_erai_v50.txt' 
    122122openw,1,fi_ws_erai 
    … …  
    131131fi_ws_ncep1=project_id_env+'ws_2000_2009_ncep1_v50.txt' 
    132132openw,6,fi_ws_ncep1 
    133  
    134  
     133; 
     134; 
    135135printf,1, 'x     y      cor    bias     std     rmsd      mean_tao' 
    136136printf,2, 'x     y      cor    bias     std     rmsd      mean_tao' 
    … …  
    139139printf,5, 'x     y      cor    bias     std     rmsd      mean_tao' 
    140140printf,6, 'x     y      cor    bias     std     rmsd      mean_tao' 
    141  
    142 ;; first reading the whole ERAI uncorrected and corrected data 
    143  
     141; 
     142; first reading the whole ERAI uncorrected and corrected data 
     143; 
    144144file=project_id_env+'erai_ws_19890101_20091231_oafluxgrid.nc' 
    145145initncdf, file 
    … …  
    148148unc=sqrt(u*u+v*v) 
    149149help, unc 
    150  
     150; 
    151151file=project_id_env+'TropFlux_ws_19890101_20091231_v20.nc' 
    152152initncdf, file 
    153153cor=read_ncdf('ws',date1,date2,file=file,/nostr) 
    154154help, cor 
    155  
     155; 
    156156file=project_id_env+'OAFlux_basic_variables_1985_2009.nc' 
    157157initncdf, file 
    158158oaf=read_ncdf("wind", date1, date2, file=file,/nostr) 
    159159help, oaf 
    160  
     160; 
    161161fi=project_id_env+'uwind_ncep2_oafluxgrid_19890101_20091231.nc' 
    162162initncdf, fi 
    … …  
    167167nce=sqrt(u*u+v*v) 
    168168help, nce 
    169  
     169; 
    170170fi=project_id_env+'zonal_wind_speed_oafluxgrid_30N30S.nc' 
    171171initncdf, fi 
    … …  
    176176ws_tmi=sqrt(u*u+v*v) 
    177177help, ws_tmi 
    178  
     178; 
    179179file=project_id_env+'wind_ncep1_19890101_20091231.nc' 
    180180initncdf, file 
    … …  
    183183nce1=sqrt(u*u+v*v) 
    184184help, nce1 
    185  
     185; 
    186186nn=n_elements(sitelist) 
    187187for n=0, nn-1 do begin 
    188  
    189 ;; reading data from mooring 
    190  
    191     site=sitelist(n)  
     188; 
     189; reading data from mooring 
     190; 
     191    site=sitelist(n) 
    192192    csite=site 
    193193    print, csite 
    … …  
    195195    y=y_site_location(site) 
    196196    if (y ge 0. and y le 30.) then y=y+360. 
    197     dx=0.5  
    198     dy=0.5  
     197    dx=0.5 
     198    dy=0.5 
    199199    box=[y-dy, y+dy, x-dx, x+dx] 
    200200    read_variables_v2, csite,date1,date2,nsmooth, $ 
    201201         at, sw,rh,sst,wu,wv,ws, lh 
    202  
     202; 
    203203    ws=alog(10./0.000152)/alog(4./0.000152)*ws 
    204  
    205 ;;  extracting the corrected and uncorrected ERAI data at the locations 
     204; 
     205;  extracting the corrected and uncorrected ERAI data at the locations 
    206206    nsmooth=1. 
    207  
     207; 
    208208    extract_flux_tropflux,unc,box, $ 
    209209        tropflux 
    210210    uncr=tropflux 
    211  
     211; 
    212212     extract_flux_tropflux,cor,box, $ 
    213213        tropflux 
    214214     corr=tropflux 
    215  
     215; 
    216216     extract_flux_tropflux,oaf,box, $ 
    217217        tropflux 
    218218     oafl=tropflux 
    219  
     219; 
    220220     extract_flux_tropflux,nce,box, $ 
    221221        tropflux 
    222222     ncep=tropflux 
    223  
     223; 
    224224     extract_flux_tropflux,ws_tmi,box, $ 
    225225        tropflux 
    226226     tmi=tropflux 
    227  
     227; 
    228228     extract_flux_tropflux,nce1,box, $ 
    229229        tropflux 
    230230     ncep1=tropflux 
    231  
    232     ind=where(finite(ws))  
    233     ws=ws(ind)  
    234     uncr_ws=uncr(ind)   
     231; 
     232    ind=where(finite(ws)) 
     233    ws=ws(ind) 
     234    uncr_ws=uncr(ind) 
    235235    corr_ws=corr(ind) 
    236     oafl=oafl(ind)  
    237     ncep=ncep(ind)  
    238     tmi=tmi(ind)  
     236    oafl=oafl(ind) 
     237    ncep=ncep(ind) 
     238    tmi=tmi(ind) 
    239239    ncep1=ncep1(ind) 
    240  
     240; 
    241241    mean_tao=total(ws)/n_elements(ws) 
    242  
     242; 
    243243    statistics_3var_v1, ws, uncr_ws, corr_ws, $ 
    244244         cor1, cor2, bias1, bias2, std1, std2, rmsd1, rmsd2 
    245  
     245; 
    246246    printf, 1, x, y, cor1, bias1, std1, rmsd1, mean_tao, format='(f6.2, 3x, f6.2, 3x, f5.2,3x,f5.2,3x,f4.2,3x,f4.2,3x,f5.2)' 
    247247    printf, 2, x, y, cor2, bias2, std2, rmsd2, mean_tao, format='(f6.2, 3x, f6.2, 3x, f5.2,3x,f5.2,3x,f4.2,3x,f4.2,3x,f5.2)' 
    248  
     248; 
    249249    statistics_3var_v1, ws, oafl, ncep, $ 
    250250         cor1, cor2, bias1, bias2, std1, std2, rmsd1, rmsd2 
    251251    printf, 3, x, y, cor1, bias1, std1, rmsd1, mean_tao, format='(f6.2, 3x, f6.2, 3x, f5.2,3x,f5.2,3x,f4.2,3x,f4.2,3x,f5.2)' 
    252252    printf, 4, x, y, cor2, bias2, std2, rmsd2, mean_tao, format='(f6.2, 3x, f6.2, 3x, f5.2,3x,f6.2,3x,f4.2,3x,f4.2,3x,f5.2)' 
    253  
     253; 
    254254    statistics_3var_v1, ws, tmi, ncep1, $ 
    255255         cor1, cor2, bias1, bias2, std1, std2, rmsd1, rmsd2 
    256256    printf, 5, x, y, cor1, bias1, std1, rmsd1, mean_tao, format='(f6.2, 3x, f6.2, 3x, f5.2,3x,f5.2,3x,f4.2,3x,f4.2,3x,f5.2)' 
    257257    printf, 6, x, y, cor2, bias2, std2, rmsd2, mean_tao, format='(f6.2, 3x, f6.2, 3x, f5.2,3x,f5.2,3x,f4.2,3x,f4.2,3x,f5.2)' 
    258  
     258; 
    259259endfor 
    260260close,/all 
    … …  
    264264lat=reform(ff(0,*)) 
    265265lon=reform(ff(1,*)) 
    266 cor_era=reform(ff(2,*))    
     266cor_era=reform(ff(2,*)) 
    267267cor_erai=total(cor_era)/n_elements(cor_era) 
    268 bias_era=reform(ff(3,*))   
     268bias_era=reform(ff(3,*)) 
    269269bias_erai=total(bias_era)/n_elements(bias_era) 
    270 std_era=reform(ff(4,*))    
     270std_era=reform(ff(4,*)) 
    271271std_erai=total(std_era)/n_elements(std_era) 
    272 rmsd_era=reform(ff(5,*))   
     272rmsd_era=reform(ff(5,*)) 
    273273rmsd_erai=total(rmsd_era)/n_elements(rmsd_era) 
    274 mean_tao=reform(ff(6,*))   
     274mean_tao=reform(ff(6,*)) 
    275275mean_erai=bias_era+mean_tao 
    276  
     276; 
    277277print, '' 
    278278print, 'ERAI' 
    … …  
    284284xyouts, 2.5,9.4, cstat, charsize=0.9 
    285285xyouts, 2.5,8.5, 'cor   bias   std   rmsd', charsize=0.9 
    286  
     286; 
    287287oplot, [2,10], [2,10] 
    288288ab=linfit(mean_tao, mean_erai,yfit=yfit) 
    289 a=float(ab(0))  
    290 b=float(ab(1)) 
    291 oplot, mean_tao, yfit, color=250, thick=2 
    292  
     289a=float(ab(0)) 
     290b=float(ab(1)) 
     291oplot, mean_tao, yfit, color=250, thick=2 
     292; 
    293293fi_ws_trop=project_id_env+'ws_2000_2009_trop_v50.txt' 
    294294res=read_ascii(fi_ws_trop,data_start=1) 
    … …  
    296296lat=reform(ff(0,*)) 
    297297lon=reform(ff(1,*)) 
    298 cor_tro=reform(ff(2,*))    
     298cor_tro=reform(ff(2,*)) 
    299299cor_trop=total(cor_tro)/n_elements(cor_tro) 
    300 bias_tro=reform(ff(3,*))   
     300bias_tro=reform(ff(3,*)) 
    301301bias_trop=total(bias_tro)/n_elements(bias_tro) 
    302 std_tro=reform(ff(4,*))    
     302std_tro=reform(ff(4,*)) 
    303303std_trop=total(std_tro)/n_elements(std_tro) 
    304 rmsd_tro=reform(ff(5,*))   
     304rmsd_tro=reform(ff(5,*)) 
    305305rmsd_trop=total(rmsd_tro)/n_elements(rmsd_tro) 
    306 mean_tao=reform(ff(6,*))   
     306mean_tao=reform(ff(6,*)) 
    307307mean_trop=bias_tro+mean_tao 
    308  
     308; 
    309309print, '' 
    310310print, 'TropFlux' 
    311311print, cor_trop, bias_trop, std_trop, rmsd_trop 
    312312cstat=string(cor_trop, bias_trop, std_trop, rmsd_trop, format='(f4.2,1x,f6.2,1x,f4.2,1x,f4.2)') 
    313  
     313; 
    314314splot, mean_tao, mean_trop, title='WS - TAO Vs TropFlux', subtitle='', $ 
    315315     charsize=1.1, xtitle='TAO WS', ytitle='TropFlux WS', small=[2,3,2],/noer, psym=2, $ 
    … …  
    318318xyouts, 2.5,9.4, cstat, charsize=0.9 
    319319xyouts, 2.5,8.5, 'cor   bias   std   rmsd', charsize=0.9 
    320  
     320; 
    321321ab=linfit(mean_tao, mean_trop,yfit=yfit) 
    322 a=float(ab(0))  
    323 b=float(ab(1)) 
    324 oplot, mean_tao, yfit, color=250, thick=2 
    325  
     322a=float(ab(0)) 
     323b=float(ab(1)) 
     324oplot, mean_tao, yfit, color=250, thick=2 
     325; 
    326326fi_ws_oaflx=project_id_env+'ws_2000_2009_oaflx_v50.txt' 
    327327res=read_ascii(fi_ws_oaflx,data_start=1) 
    … …  
    329329lat=reform(ff(0,*)) 
    330330lon=reform(ff(1,*)) 
    331 cor_oaf=reform(ff(2,*))    
     331cor_oaf=reform(ff(2,*)) 
    332332cor_oafl=total(cor_oaf)/n_elements(cor_oaf) 
    333 bias_oaf=reform(ff(3,*))   
     333bias_oaf=reform(ff(3,*)) 
    334334bias_oafl=total(bias_oaf)/n_elements(bias_oaf) 
    335 std_oaf=reform(ff(4,*))    
     335std_oaf=reform(ff(4,*)) 
    336336std_oafl=total(std_oaf)/n_elements(std_oaf) 
    337 rmsd_oaf=reform(ff(5,*))   
     337rmsd_oaf=reform(ff(5,*)) 
    338338rmsd_oafl=total(rmsd_oaf)/n_elements(rmsd_oaf) 
    339 mean_tao=reform(ff(6,*))   
     339mean_tao=reform(ff(6,*)) 
    340340mean_oafl=bias_oaf+mean_tao 
    341  
     341; 
    342342print, '' 
    343343print, 'OAFlux' 
    344344print, cor_oafl, bias_oafl, std_oafl, rmsd_oafl 
    345345cstat=string(cor_oafl, bias_oafl, std_oafl, rmsd_oafl, format='(f4.2,1x,f6.2,1x,f4.2,1x,f4.2)') 
    346  
     346; 
    347347splot, mean_tao, mean_oafl, title='WS - TAO Vs OAFlux', subtitle='', $ 
    348348     charsize=1.1, xtitle='TAO WS', ytitle='OAFlux WS', small=[2,3,3],/noer, psym=2, $ 
    … …  
    351351xyouts, 2.5,9.4, cstat, charsize=0.9 
    352352xyouts, 2.5,8.5, 'cor   bias   std   rmsd', charsize=0.9 
    353  
     353; 
    354354ab=linfit(mean_tao, mean_oafl,yfit=yfit) 
    355 a=float(ab(0))  
    356 b=float(ab(1)) 
    357 oplot, mean_tao, yfit, color=250, thick=2 
    358  
    359  
    360  
     355a=float(ab(0)) 
     356b=float(ab(1)) 
     357oplot, mean_tao, yfit, color=250, thick=2 
     358; 
     359; 
     360; 
    361361fi_ws_ncep=project_id_env+'ws_2000_2009_ncep_v50.txt' 
    362362res=read_ascii(fi_ws_ncep,data_start=1) 
    … …  
    364364lat=reform(ff(0,*)) 
    365365lon=reform(ff(1,*)) 
    366 cor_nce=reform(ff(2,*))    
     366cor_nce=reform(ff(2,*)) 
    367367cor_ncep=total(cor_nce)/n_elements(cor_nce) 
    368 bias_nce=reform(ff(3,*))   
     368bias_nce=reform(ff(3,*)) 
    369369bias_ncep=total(bias_nce)/n_elements(bias_nce) 
    370 std_nce=reform(ff(4,*))    
     370std_nce=reform(ff(4,*)) 
    371371std_ncep=total(std_nce)/n_elements(std_nce) 
    372 rmsd_nce=reform(ff(5,*))   
     372rmsd_nce=reform(ff(5,*)) 
    373373rmsd_ncep=total(rmsd_nce)/n_elements(rmsd_nce) 
    374 mean_tao=reform(ff(6,*))   
     374mean_tao=reform(ff(6,*)) 
    375375mean_ncep=bias_nce+mean_tao 
    376  
     376; 
    377377print, '' 
    378378print, 'NCEP2' 
    379379print, cor_ncep, bias_ncep, std_ncep, rmsd_ncep 
    380380cstat=string(cor_ncep, bias_ncep, std_ncep, rmsd_ncep, format='(f4.2,1x,f6.2,1x,f4.2,1x,f4.2)') 
    381  
     381; 
    382382splot, mean_tao, mean_ncep, title='WS - TAO Vs NCEP2', subtitle='', $ 
    383383     charsize=1.1, xtitle='TAO WS', ytitle='NCEP2 WS', small=[2,3,4],/noer, psym=2, $ 
    … …  
    386386xyouts, 2.5,9.4, cstat, charsize=0.9 
    387387xyouts, 2.5,8.5, 'cor   bias   std   rmsd', charsize=0.9 
    388  
     388; 
    389389ab=linfit(mean_tao, mean_ncep,yfit=yfit) 
    390 a=float(ab(0))  
    391 b=float(ab(1)) 
    392 oplot, mean_tao, yfit, color=250, thick=2 
    393  
     390a=float(ab(0)) 
     391b=float(ab(1)) 
     392oplot, mean_tao, yfit, color=250, thick=2 
     393; 
    394394fi_ws_tmi=project_id_env+'ws_2000_2009_tmi_v50.txt' 
    395395res=read_ascii(fi_ws_tmi,data_start=1) 
    … …  
    397397lat=reform(ff(0,*)) 
    398398lon=reform(ff(1,*)) 
    399 cor_tm=reform(ff(2,*))    
     399cor_tm=reform(ff(2,*)) 
    400400cor_tmi=total(cor_tm)/n_elements(cor_tm) 
    401 bias_tm=reform(ff(3,*))   
     401bias_tm=reform(ff(3,*)) 
    402402bias_tmi=total(bias_tm)/n_elements(bias_tm) 
    403 std_tm=reform(ff(4,*))    
     403std_tm=reform(ff(4,*)) 
    404404std_tmi=total(std_tm)/n_elements(std_tm) 
    405 rmsd_tm=reform(ff(5,*))   
     405rmsd_tm=reform(ff(5,*)) 
    406406rmsd_tmi=total(rmsd_tm)/n_elements(rmsd_tm) 
    407 mean_tao=reform(ff(6,*))   
     407mean_tao=reform(ff(6,*)) 
    408408mean_tmi=bias_tm+mean_tao 
    409  
     409; 
    410410print, '' 
    411411print, 'Qscat' 
    412412print, cor_tmi, bias_tmi, std_tmi, rmsd_tmi 
    413413cstat=string(cor_tmi, bias_tmi, std_tmi, rmsd_tmi, format='(f4.2,1x,f6.2,1x,f4.2,1x,f4.2)') 
    414  
     414; 
    415415splot, mean_tao, mean_tmi, title='WS - TAO Vs Qscat', subtitle='', $ 
    416416     charsize=1.1, xtitle='TAO WS', ytitle='TMI WS', small=[2,3,5],/noer, psym=2, $ 
    … …  
    419419xyouts, 2.5,9.4, cstat, charsize=0.9 
    420420xyouts, 2.5,8.5, 'cor   bias   std   rmsd', charsize=0.9 
    421  
     421; 
    422422ab=linfit(mean_tao, mean_tmi,yfit=yfit) 
    423 a=float(ab(0))  
    424 b=float(ab(1)) 
    425 oplot, mean_tao, yfit, color=250, thick=2 
    426  
    427  
     423a=float(ab(0)) 
     424b=float(ab(1)) 
     425oplot, mean_tao, yfit, color=250, thick=2 
     426; 
     427; 
    428428fi_ws_ncep1=project_id_env+'ws_2000_2009_ncep1_v50.txt' 
    429429res=read_ascii(fi_ws_ncep1,data_start=1) 
    … …  
    431431lat=reform(ff(0,*)) 
    432432lon=reform(ff(1,*)) 
    433 cor_nce=reform(ff(2,*))    
     433cor_nce=reform(ff(2,*)) 
    434434cor_ncep=total(cor_nce)/n_elements(cor_nce) 
    435 bias_nce=reform(ff(3,*))   
     435bias_nce=reform(ff(3,*)) 
    436436bias_ncep=total(bias_nce)/n_elements(bias_nce) 
    437 std_nce=reform(ff(4,*))    
     437std_nce=reform(ff(4,*)) 
    438438std_ncep=total(std_nce)/n_elements(std_nce) 
    439 rmsd_nce=reform(ff(5,*))   
     439rmsd_nce=reform(ff(5,*)) 
    440440rmsd_ncep=total(rmsd_nce)/n_elements(rmsd_nce) 
    441 mean_tao=reform(ff(6,*))   
     441mean_tao=reform(ff(6,*)) 
    442442mean_ncep=bias_nce+mean_tao 
    443  
     443; 
    444444print, '' 
    445445print, 'NCEP' 
    446446print, cor_ncep, bias_ncep, std_ncep, rmsd_ncep 
    447447cstat=string(cor_ncep, bias_ncep, std_ncep, rmsd_ncep, format='(f4.2,1x,f6.2,1x,f4.2,1x,f4.2)') 
    448  
     448; 
    449449splot, mean_tao, mean_ncep, title='WS - TAO Vs NCEP', subtitle='', $ 
    450450     charsize=1.1, xtitle='TAO WS', ytitle='NCEP WS', small=[2,3,6],/noer, psym=2, $ 
    … …  
    453453xyouts, 2.5,9.4, cstat, charsize=0.9 
    454454xyouts, 2.5,8.5, 'cor   bias   std   rmsd', charsize=0.9 
    455  
     455; 
    456456ab=linfit(mean_tao, mean_ncep,yfit=yfit) 
    457 a=float(ab(0))  
    458 b=float(ab(1)) 
    459 oplot, mean_tao, yfit, color=250, thick=2 
    460  
     457a=float(ab(0)) 
     458b=float(ab(1)) 
     459oplot, mean_tao, yfit, color=250, thick=2 
     460; 
    461461closeps 
    462  
     462; 
    463463end 

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

    r94 r97  
    8484reinitplt, /z,/invert 
    8585key_portrait = 1 
    86  
     86; 
    8787openps, FILENAME = project_od_env+'fig4_met_var_correction_scatter.ps' 
    8888fi=project_id_env+'sst_correction_final.txt' 
    … …  
    9393std=reform(ff(2,*)) 
    9494mean=reform(ff(4,*)) 
    95  
     95; 
    9696splot, mean, bias, small=[2,3,1],/noer, xtitle='Mean ERAI SST', ytitle='ERAI SST bias', $ 
    9797       psym=2, charsize=1.,  $ 
    … …  
    100100xx=total(std)/n_elements(std) 
    101101yy=total(bias)/n_elements(bias) 
    102  
     102; 
    103103xyouts, 22, 0.6, 'bias=-0.05', charsize=1.1 
    104104xyouts, 22, 0.5, 'std ratio=0.989', charsize=1.1 
    105  
    106 print, xx, yy 
    107 ab=linfit(mean, bias,yfit=yfit) 
    108 a=float(ab(0))  
    109 b=float(ab(1)) 
    110 oplot, mean, yfit, thick=3, color=50 
    111 print, a,b 
    112  
    113 ;; significant test 
    114 significance_test_99,mean,bias 
    115  
     105; 
     106print, xx, yy 
     107ab=linfit(mean, bias,yfit=yfit) 
     108a=float(ab(0)) 
     109b=float(ab(1)) 
     110oplot, mean, yfit, thick=3, color=50 
     111print, a,b 
     112; 
     113; significant test 
     114significance_test_99,mean,bias 
     115; 
    116116fi=project_id_env+'t2m_correction_final.txt' 
    117117res=read_ascii(fi,data_start=0) 
    … …  
    121121std=reform(ff(2,*)) 
    122122mean=reform(ff(4,*)) 
    123  
    124 xx=total(std)/n_elements(std) 
    125 yy=total(bias)/n_elements(bias) 
    126 print, xx, yy 
    127  
     123; 
     124xx=total(std)/n_elements(std) 
     125yy=total(bias)/n_elements(bias) 
     126print, xx, yy 
     127; 
    128128splot, mean, bias, small=[2,3,2],/noer, xtitle='Mean ERAI T2m', ytitle='ERAI T2m bias', $ 
    129129       psym=2, charsize=1.,  $ 
    130130       xrange=[20,31], yrange=[-1,0.6], xmin=1, ymin=1 
    131131oplot, [20,32], [0,0] 
    132  
     132; 
    133133xyouts, 22, 0.5, 'bias=-0.296', charsize=1.1 
    134134xyouts, 22, 0.4, 'std ratio=0.92', charsize=1.1 
    135  
    136 ab=linfit(mean, bias,yfit=yfit) 
    137 a=float(ab(0))  
    138 b=float(ab(1)) 
    139 oplot, mean, yfit, thick=3, color=50 
    140 print, a,b 
    141  
    142 ;; significant test 
    143 significance_test_99,mean,bias 
    144  
     135; 
     136ab=linfit(mean, bias,yfit=yfit) 
     137a=float(ab(0)) 
     138b=float(ab(1)) 
     139oplot, mean, yfit, thick=3, color=50 
     140print, a,b 
     141; 
     142; significant test 
     143significance_test_99,mean,bias 
     144; 
    145145fi=project_id_env+'q2m_correction_final.txt' 
    146146res=read_ascii(fi,data_start=0) 
    … …  
    150150std=reform(ff(2,*)) 
    151151mean=reform(ff(4,*)) 
    152  
    153 xx=total(std)/n_elements(std) 
    154 yy=total(bias)/n_elements(bias) 
    155 print, xx, yy 
    156  
     152; 
     153xx=total(std)/n_elements(std) 
     154yy=total(bias)/n_elements(bias) 
     155print, xx, yy 
     156; 
    157157splot, mean, bias, small=[2,3,3],/noer, xtitle='Mean ERAI Q2m', ytitle='ERAI Q2m bias', $ 
    158158       psym=2, charsize=1.,  $ 
    … …  
    161161xyouts, 14, 0.6, 'bias=-0.79', charsize=1.1 
    162162xyouts, 14, 0.5, 'std ratio=0.92', charsize=1.1 
    163  
    164 ab=linfit(mean, bias,yfit=yfit) 
    165 a=float(ab(0))  
    166 b=float(ab(1)) 
    167 oplot, mean, yfit, thick=3, color=50 
    168 print, a,b 
    169  
    170 ;; significant test 
     163; 
     164ab=linfit(mean, bias,yfit=yfit) 
     165a=float(ab(0)) 
     166b=float(ab(1)) 
     167oplot, mean, yfit, thick=3, color=50 
     168print, a,b 
     169; 
     170; significant test 
    171171significance_test_99,mean,bias 
    172172fi=project_id_env+'ws_correction_final.txt' 
    … …  
    177177std=reform(ff(2,*)) 
    178178mean=reform(ff(4,*)) 
    179  
    180 xx=total(std)/n_elements(std) 
    181 yy=total(bias)/n_elements(bias) 
    182 print, xx, yy 
    183  
    184  
     179; 
     180xx=total(std)/n_elements(std) 
     181yy=total(bias)/n_elements(bias) 
     182print, xx, yy 
     183; 
     184; 
    185185splot, mean, bias, small=[2,3,4],/noer, xtitle='Mean ERAI WS', ytitle='ERAI WS bias', $ 
    186186        psym=2, charsize=1.,  $ 
    … …  
    189189xyouts, 3, 0.7, 'bias=-0.28', charsize=1.1 
    190190xyouts, 3, 0.6, 'std ratio=0.90', charsize=1.1 
    191  
    192 ab=linfit(mean, bias,yfit=yfit) 
    193 a=float(ab(0))  
    194 b=float(ab(1)) 
    195 oplot, mean, yfit, thick=3, color=50 
    196  
    197 print, a,b 
    198 ;; significant test 
    199 significance_test_99,mean,bias 
    200  
     191; 
     192ab=linfit(mean, bias,yfit=yfit) 
     193a=float(ab(0)) 
     194b=float(ab(1)) 
     195oplot, mean, yfit, thick=3, color=50 
     196; 
     197print, a,b 
     198; significant test 
     199significance_test_99,mean,bias 
     200; 
    201201closeps 
    202  
    203  
     202; 
    204203end 

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

    r94 r97  
    5050;- 
    5151pro significance_test_99, x, y, sig_value 
    52  
    53    X=x  
     52; 
     53   X=x 
    5454   Y=y 
    55  
     55; 
    5656   X=X-total(X)/n_elements(X) 
    5757   Y=Y-total(Y)/n_elements(Y) 
    … …  
    6161    sse=total((Y-reg*X)^2)/n_elements(X) 
    6262    t=abs(sqrt(n_elements(X)-2.)*reg/sqrt(sse/sx^2)) 
    63     p=0.01 ;;;(for 99% significant) 
     63    p=0.01 ;(for 99% significant) 
    6464;    tc=t_cvf(p/2.,n_elements(X)-1) 
    6565    tc=t_cvf(p/2.,n_elements(X)/5.-1) 
    66  
     66; 
    6767    sig1=1.*(t ge tc) 
    6868if (sig1 eq 1. ) then begin 
    … …  
    7171   print, 'Statistics are not valid at 99% significance level' 
    7272endelse 
    73  
     73; 
    7474end 

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

    r94 r97  
    8080reinitplt, /z,/invert 
    8181key_portrait = 1 
    82  
     82; 
    8383openps, FILENAME = project_od_env+'fig5_gustiness_scatter.ps' 
    8484fi_ws=project_id_env+'wind_gustiness_bias.txt' 
    … …  
    8787erai_wind=reform(ff(4,*)) 
    8888gust=reform(ff(9,*)) 
    89  
     89; 
    9090print, correlate(erai_wind,gust) 
    91  
     91; 
    9292fi_sst=project_id_env+'raw_sst_2000_2008_gustiness.txt' 
    9393res=read_ascii(fi_sst,data_start=1) 
    9494ff=res.field1 
    9595erai_sst=reform(ff(4,*)) 
    96  
     96; 
    9797print, correlate(erai_sst,gust) 
    98  
     98; 
    9999splot, erai_wind, gust, small=[2,3,1], title='a) ERAI Wind Vs Gustiness', $ 
    100100      xtitle='ERAI wind', ytitle='Cronin gustiness', charsize=1.2, psym=2 , $ 
    101101      xrange=[0,10], yrange=[0.5,2.5] 
    102102ab=linfit(erai_wind, gust,yfit=yfit) 
    103 a=float(ab(0))  
     103a=float(ab(0)) 
    104104b=float(ab(1)) 
    105105oplot, erai_wind, yfit, thick=3, color=250 
    … …  
    108108xyouts, 2,-0.4, 'y = -0.212379 x + 2.84459', charsize=1.2 
    109109print, a,b 
    110  
     110; 
    111111splot, erai_sst, gust, small=[2,3,2],/noer, title='b) ERAI SST Vs Gustiness', $ 
    112112      xtitle='ERAI SST', ytitle='Cronin gustiness', charsize=1.2, psym=2 , $ 
    113113      xrange=[22,32], yrange=[0.5,2.5], lct=39, xmin=1, ymin=1 
    114114ab=linfit(erai_sst, gust,yfit=yfit) 
    115 a=float(ab(0))  
     115a=float(ab(0)) 
    116116b=float(ab(1)) 
    117117oplot, erai_sst, yfit, thick=3, color=250 
    … …  
    120120xyouts, 21,-0.4, 'y = 0.175712 x -3.17303', charsize=1.2 
    121121print, a,b 
     122; 
    122123closeps 
     124; 
    123125end 

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

    r94 r97  
    8080key_portrait = 1 
    8181coefpalit=.9 
    82  
     82; 
    8383openps, FILENAME = project_od_env+"icoads_q2m_stats_paper.ps" 
    8484; partie a changer 
    8585marge=[-2,-2, -4,2] 
    86 st=19890101  
     86st=19890101 
    8787en=20091231 
    8888domdef, box 
    89  
     89; 
    9090file=project_id_env+'sphum_monthly_1960_2010_oafluxgrid.nc' 
    9191initncdf, file 
    9292icoads=read_ncdf("sphum", st, en , file=file,/nostr, box=box) 
    9393help, icoads 
    94  
     94; 
    9595file=project_id_env+'q2m_TropFlux_global_monthly_1989_2009.nc' 
    9696initncdf, file 
    9797trop=read_ncdf("q2m", st, en , file=file,/nostr, box=box) 
    9898help, trop 
    99  
     99; 
    100100file=project_id_env+"q2m_OAFlux_global_monthly_1989_2009.nc" 
    101101initncdf, file 
    102102oaf=read_ncdf("q2m", st, en , file=file,/nostr, box=box) 
    103103help, oaf 
    104  
     104; 
    105105file=project_id_env+"q2m_ERAI_global_monthly_1989_2009.nc" 
    106106initncdf, file 
    107107erai=read_ncdf("q2m", st, en , file=file,/nostr, box=box) 
    108108help, erai 
    109  
     109; 
    110110file=project_id_env+"q2m_NCEP2_global_monthly_1989_2009.nc" 
    111111initncdf, file 
    112112ncep2=1000*read_ncdf("q2m", st, en , file=file,/nostr, box=box) 
    113113help, ncep2 
    114  
     114; 
    115115file=project_id_env+"q2m_NCEP1_global_monthly_1989_2009.nc" 
    116116initncdf, file 
    117117ncep1=1000*read_ncdf("q2m", st, en , file=file,/nostr, box=box) 
    118118help, ncep1 
    119  
    120  
    121 si=size(trop)  
     119; 
     120; 
     121si=size(trop) 
    122122nt=si(3) 
    123  
     123; 
    124124lat_rama=[67, 55, 55, 80.5, 80.5, 80.5, 80.5, 90, 90, 90, 90, 90, 90, 90, 95] 
    125125lon_rama=[-8, -12, -8,-8, -1.5, 0, 1.5, -1.5, 0, 1.5, 4, 8, 12, 15, -5] 
    126  
     126; 
    127127lat_pirata=[0, 350, 337, 325, 350, 337, 322, 328, 322, 326, 322, 337, 337, 322, 350, 322, 330] 
    128128lon_pirata=[0, 0, 0, 0, -10, 12, 12, -14, 15, -19, 20, 21, 4, 4, -6, 8, -8] 
    129  
     129; 
    130130lat_tao=[165, 180, 205, 235, 250, 265, 156, 165, 180, 190, 205, 220, 235, 250, 265, 156, 165, 180, 190, 205, 220, 235, 250, 265, 147, 156, $ 
    131131         165, 180, 190, 205, 220, 235, 250, 265, 147, 156, 165, 180, 190, 205, 220, 235, 250, 265, 147, 156, 165, 190, 205, 220, 235, 250, 265, $ 
    132132         156, 165, 180, 190, 220, 235, 250, 265] 
    133  
     133; 
    134134lon_tao=[-8, -8, -8, -8, -8, -8, -5, -5, -5, -5, -5, -5, -5, -5, -5, -2, -2, -2, -2, -2, -2, -2, -2, -2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, $ 
    135135          2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 5, 5, 5, 5, 5, 5, 5, 5, 5, 8, 8, 8, 8, 9, 8, 8, 8] 
    136  
     136; 
    137137lat=[lat_rama, lat_pirata, lat_tao] 
    138138lon=[lon_rama, lon_pirata, lon_tao] 
    139  
    140 lat_tao=lat  
     139; 
     140lat_tao=lat 
    141141lon_tao=lon 
    142142nn=n_elements(lat) 
    143  
     143; 
    144144list=0 
    145145for n=0, nn-1 do begin 
    146146  x=lat_tao(n) 
    147147  y=lon_tao(n) 
    148   dx=abs(reform(glamt-x))  
     148  dx=abs(reform(glamt-x)) 
    149149  dy=abs(reform(gphit)-y) 
    150150  ind=where((dx le 0.5) and (dy le 0.5)) 
    … …  
    153153  endif 
    154154endfor 
    155  
     155; 
    156156msk=replicate(1,nxt,nyt) 
    157157msk(list)=!Values.f_nan 
    158  
     158; 
    159159mask=trop*0 
    160160for jt=0,jpt-1 do begin 
    … …  
    162162  mask(*,*,jt)=t 
    163163endfor 
    164  
     164; 
    165165param=icoads*mask 
    166 trop=trop*mask  
    167 oaf=oaf*mask  
     166trop=trop*mask 
     167oaf=oaf*mask 
    168168erai=erai*mask 
    169 ncep2=ncep2*mask  
     169ncep2=ncep2*mask 
    170170ncep1=ncep1*mask 
    171  
    172  
     171; 
     172; 
    173173ind=where(finite(param) and finite(erai) and finite(trop) and finite(oaf) and finite(ncep2) and finite(ncep1)) 
    174 x=param(ind)  
     174x=param(ind) 
    175175y=trop(ind) 
    176 param=param(ind)  
    177 trop=trop(ind)  
    178 erai=erai(ind)  
    179 oaf=oaf(ind)  
    180 ncep2=ncep2(ind)  
     176param=param(ind) 
     177trop=trop(ind) 
     178erai=erai(ind) 
     179oaf=oaf(ind) 
     180ncep2=ncep2(ind) 
    181181ncep1=ncep1(ind) 
    182  
     182; 
    183183; 
    184184statistics, param, trop, $ 
    … …  
    195195abs_diff=total(abs(oaf-param))/n_elements(oaf) 
    196196abs_oaf=string(abs_diff, format='(f5.2)') 
    197  
     197; 
    198198; 
    199199statistics, param, erai, $ 
    … …  
    203203abs_diff=total(abs(erai-param))/n_elements(erai) 
    204204abs_erai=string(abs_diff, format='(f5.2)') 
    205  
     205; 
    206206; 
    207207statistics, param, ncep2, $ 
    … …  
    211211abs_diff=total(abs(ncep2-param))/n_elements(ncep2) 
    212212abs_ncep2=string(abs_diff, format='(f5.2)') 
    213  
     213; 
    214214; 
    215215statistics, param, ncep1, $ 
    … …  
    219219abs_diff=total(abs(ncep1-param))/n_elements(ncep1) 
    220220abs_ncep1=string(abs_diff, format='(f5.2)') 
    221  
    222 ; 
    223 mio=4  
    224 mao=24  
    225 inx=1  
    226 nx=(mao-mio)/inx+1l  
     221; 
     222; 
     223mio=4 
     224mao=24 
     225inx=1 
     226nx=(mao-mio)/inx+1l 
    227227xx=mio+indgen(nx)*inx 
    228 mis=4  
    229 mas=24  
    230 iny=1  
    231 ny=(mas-mis)/iny+1l  
     228mis=4 
     229mas=24 
     230iny=1 
     231ny=(mas-mis)/iny+1l 
    232232yy=mis+indgen(ny)*iny 
    233233; 
    … …  
    238238xyouts, 10, 6, cstat_trop, charsize=1 
    239239xyouts, 10, 4, abs_trop, charsize=1 
    240  
     240; 
    241241; 
    242242pdf, param,oaf,mio,mao,inx,mis,mas,iny, $ 
    … …  
    246246xyouts, 10, 6, cstat_oaf, charsize=1 
    247247xyouts, 10, 4, abs_oaf, charsize=1 
    248  
     248; 
    249249; 
    250250pdf, param,erai,mio,mao,inx,mis,mas,iny, $ 
    … …  
    254254xyouts, 10, 6, cstat_erai, charsize=1 
    255255xyouts, 10, 4, abs_erai, charsize=1 
    256  
     256; 
    257257; 
    258258pdf, param,ncep2,mio,mao,inx,mis,mas,iny, $ 
    … …  
    262262xyouts, 10, 6, cstat_ncep2, charsize=1 
    263263xyouts, 10, 4, abs_ncep2, charsize=1 
    264  
     264; 
    265265; 
    266266pdf, param,ncep1,mio,mao,inx,mis,mas,iny, $ 
    … …  
    270270xyouts, 10, 6, cstat_ncep1, charsize=1 
    271271xyouts, 10, 4, abs_ncep1, charsize=1 
    272  
     272; 
    273273closeps 
     274; 
    274275return 
     276; 
    275277end 

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

    r94 r97  
    8080key_portrait = 1 
    8181coefpalit=.9 
    82  
     82; 
    8383openps, FILENAME = project_od_env+"icoads_sst_stats_paper.ps" 
    8484; partie a changer 
    8585marge=[-2,-2, -4,2] 
    86 st=19890101  
     86st=19890101 
    8787en=20091231 
    8888domdef, box 
    89  
     89; 
    9090file=project_id_env+'sst_monthly_1960_2010_oafluxgrid.nc' 
    9191initncdf, file 
    9292icoads=read_ncdf("sst", st-1, en , file=file,/nostr, box=box) 
    9393help, icoads 
    94  
     94; 
    9595file=project_id_env+'sst_TropFlux_global_monthly_1989_2009.nc' 
    9696initncdf, file 
    9797trop=read_ncdf("sst", st, en , file=file,/nostr, box=box)-273.15 
    9898help, trop 
    99  
     99; 
    100100file=project_id_env+"sst_OAFlux_global_monthly_1989_2009.nc" 
    101101initncdf, file 
    102102oaf=read_ncdf("sst", st, en , file=file,/nostr, box=box) 
    103103help, oaf 
    104  
     104; 
    105105file=project_id_env+"sst_ERAI_global_monthly_1989_2009.nc" 
    106106initncdf, file 
    107107erai=read_ncdf("sst", st, en , file=file,/nostr, box=box)-273.15 
    108108help, erai 
    109  
     109; 
    110110file=project_id_env+"sst_NCEP2_global_monthly_1989_2009.nc" 
    111111initncdf, file 
    112112ncep2=read_ncdf("sst", st, en , file=file,/nostr, box=box)-273.15 
    113113help, ncep2 
    114  
     114; 
    115115file=project_id_env+'nocv2_sst_19890101_20091231_oafluxgrid.nc' 
    116116initncdf, file 
    117117noc=read_ncdf("sst", st, en , file=file,/nostr, box=box) 
    118118help, noc 
    119  
     119; 
    120120file=project_id_env+"sst_NCEP1_global_monthly_1989_2009.nc" 
    121121initncdf, file 
    122122ncep1=read_ncdf("sst", st, en , file=file,/nostr, box=box)-273.15 
    123123help, ncep1 
    124  
    125  
    126 si=size(trop)  
     124; 
     125; 
     126si=size(trop) 
    127127nt=si(3) 
    128  
     128; 
    129129lat_rama=[67, 55, 55, 80.5, 80.5, 80.5, 80.5, 90, 90, 90, 90, 90, 90, 90, 95] 
    130130lon_rama=[-8, -12, -8,-8, -1.5, 0, 1.5, -1.5, 0, 1.5, 4, 8, 12, 15, -5] 
    131  
     131; 
    132132lat_pirata=[0, 350, 337, 325, 350, 337, 322, 328, 322, 326, 322, 337, 337, 322, 350, 322, 330] 
    133133lon_pirata=[0, 0, 0, 0, -10, 12, 12, -14, 15, -19, 20, 21, 4, 4, -6, 8, -8] 
    134  
     134; 
    135135lat_tao=[165, 180, 205, 235, 250, 265, 156, 165, 180, 190, 205, 220, 235, 250, 265, 156, 165, 180, 190, 205, 220, 235, 250, 265, 147, 156, $ 
    136136         165, 180, 190, 205, 220, 235, 250, 265, 147, 156, 165, 180, 190, 205, 220, 235, 250, 265, 147, 156, 165, 190, 205, 220, 235, 250, 265, $ 
    137137         156, 165, 180, 190, 220, 235, 250, 265] 
    138  
     138; 
    139139lon_tao=[-8, -8, -8, -8, -8, -8, -5, -5, -5, -5, -5, -5, -5, -5, -5, -2, -2, -2, -2, -2, -2, -2, -2, -2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, $ 
    140140          2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 5, 5, 5, 5, 5, 5, 5, 5, 5, 8, 8, 8, 8, 9, 8, 8, 8] 
    141  
     141; 
    142142lat=[lat_rama, lat_pirata, lat_tao] 
    143143lon=[lon_rama, lon_pirata, lon_tao] 
    144  
    145 lat_tao=lat  
     144; 
     145lat_tao=lat 
    146146lon_tao=lon 
    147147nn=n_elements(lat) 
    148  
     148; 
    149149list=0 
    150150for n=0, nn-1 do begin 
    151151  x=lat_tao(n) 
    152152  y=lon_tao(n) 
    153   dx=abs(reform(glamt-x))  
     153  dx=abs(reform(glamt-x)) 
    154154  dy=abs(reform(gphit)-y) 
    155155  ind=where((dx le 0.5) and (dy le 0.5)) 
    … …  
    158158  endif 
    159159endfor 
    160  
     160; 
    161161msk=replicate(1,nxt,nyt) 
    162162msk(list)=!Values.f_nan 
    163  
     163; 
    164164mask=trop*0 
    165165for jt=0,jpt-1 do begin 
    … …  
    167167  mask(*,*,jt)=t 
    168168endfor 
    169  
     169; 
    170170param=icoads*mask 
    171 trop=trop*mask  
    172 oaf=oaf*mask  
     171trop=trop*mask 
     172oaf=oaf*mask 
    173173erai=erai*mask 
    174 ncep2=ncep2*mask  
     174ncep2=ncep2*mask 
    175175ncep1=ncep1*mask 
    176176noc=noc*mask 
    177  
     177; 
    178178ind=where(finite(param) and finite(erai) and finite(trop) and finite(oaf) and finite(ncep2) and finite(ncep1)) 
    179 x=param(ind)  
     179x=param(ind) 
    180180y=trop(ind) 
    181 param=param(ind)  
    182 trop=trop(ind)  
    183 erai=erai(ind)  
    184 oaf=oaf(ind)  
    185 ncep2=ncep2(ind)  
     181param=param(ind) 
     182trop=trop(ind) 
     183erai=erai(ind) 
     184oaf=oaf(ind) 
     185ncep2=ncep2(ind) 
    186186ncep1=ncep1(ind) 
    187187noc=noc(ind) 
    188  
     188; 
    189189; 
    190190statistics, param, trop, $ 
    … …  
    194194abs_diff=total(abs(trop-param))/n_elements(trop) 
    195195abs_trop=string(abs_diff, format='(f5.2)') 
    196  
     196; 
    197197statistics, param, oaf, $ 
    198198                 cor, bias, std, rmsd 
    … …  
    201201abs_diff=total(abs(oaf-param))/n_elements(oaf) 
    202202abs_oaf=string(abs_diff, format='(f5.2)') 
    203  
     203; 
    204204; 
    205205statistics, param, erai, $ 
    … …  
    209209abs_diff=total(abs(erai-param))/n_elements(erai) 
    210210abs_erai=string(abs_diff, format='(f5.2)') 
    211  
     211; 
    212212; 
    213213statistics, param, ncep2, $ 
    … …  
    231231abs_diff=total(abs(noc-param))/n_elements(noc) 
    232232abs_noc=string(abs_diff, format='(f5.2)') 
    233  
    234 ; 
    235 mio=15  
    236 mao=32  
     233; 
     234; 
     235mio=15 
     236mao=32 
    237237inx=1 
    238 nx=(mao-mio)/inx+1l  
     238nx=(mao-mio)/inx+1l 
    239239xx=mio+indgen(nx)*inx 
    240 mis=15  
    241 mas=32  
    242 iny=1  
    243 ny=(mas-mis)/iny+1l  
     240mis=15 
     241mas=32 
     242iny=1 
     243ny=(mas-mis)/iny+1l 
    244244yy=mis+indgen(ny)*iny 
    245 xp=18  
     245xp=18 
    246246yp=16.5 
    247 x1=15  
    248 x2=32  
    249 y1=x1  
     247x1=15 
     248x2=32 
     249y1=x1 
    250250y2=x2 
    251251; 
    … …  
    257257xyouts, xp, yp, cstat_trop, charsize=1 
    258258xyouts, xp, yp-1, abs_trop, charsize=1 
    259  
     259; 
    260260; 
    261261pdf, param,oaf,mio,mao,inx,mis,mas,iny, $ 
    … …  
    266266xyouts, xp, yp, cstat_oaf, charsize=1 
    267267xyouts, xp, yp-1, abs_oaf, charsize=1 
    268  
     268; 
    269269; 
    270270pdf, param,erai,mio,mao,inx,mis,mas,iny, $ 
    … …  
    275275xyouts, xp, yp, cstat_erai, charsize=1 
    276276xyouts, xp, yp-1, abs_erai, charsize=1 
    277  
     277; 
    278278; 
    279279pdf, param,ncep2,mio,mao,inx,mis,mas,iny, $ 
    … …  
    284284xyouts, xp, yp, cstat_ncep2, charsize=1 
    285285xyouts, xp, yp-1, abs_ncep2, charsize=1 
    286  
     286; 
    287287; 
    288288pdf, param,ncep1,mio,mao,inx,mis,mas,iny, $ 
    … …  
    293293xyouts, xp, yp, cstat_ncep1, charsize=1 
    294294xyouts, xp, yp-1, abs_ncep1, charsize=1 
    295  
     295; 
    296296pdf, param,noc,mio,mao,inx,mis,mas,iny, $ 
    297297    pdf,xx,yy 
    … …  
    301301xyouts, xp, yp, cstat_noc, charsize=1 
    302302xyouts, xp, yp-1, abs_noc, charsize=1 
    303  
     303; 
    304304closeps 
     305; 
    305306end 

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

    r94 r97  
    8181key_portrait = 1 
    8282coefpalit=.9 
    83  
     83; 
    8484openps, FILENAME = project_od_env+"icoads_t2m_stats_paper.ps" 
    8585; partie a changer 
    8686marge=[-2,-2, -4,2] 
    87 st=19890101  
     87st=19890101 
    8888en=20091231 
    8989domdef, box 
    90  
     90; 
    9191file=project_id_env+'airt_monthly_1960_2010_oafluxgrid.nc' 
    9292initncdf, file 
    9393icoads=read_ncdf("airt", st-1, en , file=file,/nostr, box=box) 
    9494help, icoads 
    95  
     95; 
    9696file=project_id_env+'t2m_TropFlux_global_monthly_1989_2009.nc' 
    9797initncdf, file 
    9898trop=read_ncdf("t2m", st, en , file=file,/nostr, box=box)-273.15 
    9999help, trop 
    100  
     100; 
    101101file=project_id_env+"t2m_OAFlux_global_monthly_1989_2009.nc" 
    102102initncdf, file 
    103103oaf=read_ncdf("t2m", st, en , file=file,/nostr, box=box) 
    104104help, oaf 
    105  
     105; 
    106106file=project_id_env+"t2m_ERAI_global_monthly_1989_2009.nc" 
    107107initncdf, file 
    108108erai=read_ncdf("t2m", st, en , file=file,/nostr, box=box)-273.15 
    109109help, erai 
    110  
     110; 
    111111file=project_id_env+"t2m_NCEP2_global_monthly_1989_2009.nc" 
    112112initncdf, file 
    113113ncep2=read_ncdf("t2m", st, en , file=file,/nostr, box=box)-273.15 
    114114help, ncep2 
    115  
     115; 
    116116file=project_id_env+"t2m_NCEP1_global_monthly_1989_2009.nc" 
    117117initncdf, file 
    118118ncep1=read_ncdf("t2m", st, en , file=file,/nostr, box=box)-273.15 
    119119help, ncep1 
    120  
    121  
    122 si=size(trop)  
     120; 
     121; 
     122si=size(trop) 
    123123nt=si(3) 
    124  
     124; 
    125125lat_rama=[67, 55, 55, 80.5, 80.5, 80.5, 80.5, 90, 90, 90, 90, 90, 90, 90, 95] 
    126126lon_rama=[-8, -12, -8,-8, -1.5, 0, 1.5, -1.5, 0, 1.5, 4, 8, 12, 15, -5] 
    127  
     127; 
    128128lat_pirata=[0, 350, 337, 325, 350, 337, 322, 328, 322, 326, 322, 337, 337, 322, 350, 322, 330] 
    129129lon_pirata=[0, 0, 0, 0, -10, 12, 12, -14, 15, -19, 20, 21, 4, 4, -6, 8, -8] 
    130  
     130; 
    131131lat_tao=[165, 180, 205, 235, 250, 265, 156, 165, 180, 190, 205, 220, 235, 250, 265, 156, 165, 180, 190, 205, 220, 235, 250, 265, 147, 156, $ 
    132132         165, 180, 190, 205, 220, 235, 250, 265, 147, 156, 165, 180, 190, 205, 220, 235, 250, 265, 147, 156, 165, 190, 205, 220, 235, 250, 265, $ 
    133133         156, 165, 180, 190, 220, 235, 250, 265] 
    134  
     134; 
    135135lon_tao=[-8, -8, -8, -8, -8, -8, -5, -5, -5, -5, -5, -5, -5, -5, -5, -2, -2, -2, -2, -2, -2, -2, -2, -2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, $ 
    136136          2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 5, 5, 5, 5, 5, 5, 5, 5, 5, 8, 8, 8, 8, 9, 8, 8, 8] 
    137  
     137; 
    138138lat=[lat_rama, lat_pirata, lat_tao] 
    139139lon=[lon_rama, lon_pirata, lon_tao] 
    140  
    141 lat_tao=lat  
     140; 
     141lat_tao=lat 
    142142lon_tao=lon 
    143143nn=n_elements(lat) 
    144  
     144; 
    145145list=0 
    146146for n=0, nn-1 do begin 
    147147  x=lat_tao(n) 
    148148  y=lon_tao(n) 
    149   dx=abs(reform(glamt-x))  
     149  dx=abs(reform(glamt-x)) 
    150150  dy=abs(reform(gphit)-y) 
    151151  ind=where((dx le 0.5) and (dy le 0.5)) 
    … …  
    154154  endif 
    155155endfor 
    156  
     156; 
    157157msk=replicate(1,nxt,nyt) 
    158158msk(list)=!Values.f_nan 
    159  
     159; 
    160160mask=trop*0 
    161161for jt=0,jpt-1 do begin 
    … …  
    163163  mask(*,*,jt)=t 
    164164endfor 
    165  
     165; 
    166166param=icoads*mask 
    167 trop=trop*mask  
    168 oaf=oaf*mask  
     167trop=trop*mask 
     168oaf=oaf*mask 
    169169erai=erai*mask 
    170 ncep2=ncep2*mask  
     170ncep2=ncep2*mask 
    171171ncep1=ncep1*mask 
    172  
    173  
     172; 
     173; 
    174174ind=where(finite(param) and finite(erai) and finite(trop) and finite(oaf) and finite(ncep2) and finite(ncep1)) 
    175 x=param(ind)  
     175x=param(ind) 
    176176y=trop(ind) 
    177 param=param(ind)  
    178 trop=trop(ind)  
    179 erai=erai(ind)  
    180 oaf=oaf(ind)  
    181 ncep2=ncep2(ind)  
     177param=param(ind) 
     178trop=trop(ind) 
     179erai=erai(ind) 
     180oaf=oaf(ind) 
     181ncep2=ncep2(ind) 
    182182ncep1=ncep1(ind) 
    183  
     183; 
    184184; 
    185185statistics, param, trop, $ 
    … …  
    196196abs_diff=total(abs(oaf-param))/n_elements(oaf) 
    197197abs_oaf=string(abs_diff, format='(f5.2)') 
    198  
     198; 
    199199; 
    200200statistics, param, erai, $ 
    … …  
    204204abs_diff=total(abs(erai-param))/n_elements(erai) 
    205205abs_erai=string(abs_diff, format='(f5.2)') 
    206  
     206; 
    207207; 
    208208statistics, param, ncep2, $ 
    … …  
    212212abs_diff=total(abs(ncep2-param))/n_elements(ncep2) 
    213213abs_ncep2=string(abs_diff, format='(f5.2)') 
    214  
     214; 
    215215; 
    216216statistics, param, ncep1, $ 
    … …  
    220220abs_diff=total(abs(ncep1-param))/n_elements(ncep1) 
    221221abs_ncep1=string(abs_diff, format='(f5.2)') 
    222  
    223 ; 
    224 mio=15  
    225 mao=32  
    226 inx=1  
    227 nx=(mao-mio)/inx+1l  
     222; 
     223; 
     224mio=15 
     225mao=32 
     226inx=1 
     227nx=(mao-mio)/inx+1l 
    228228xx=mio+indgen(nx)*inx 
    229 mis=15  
    230 mas=32  
    231 iny=1  
    232 ny=(mas-mis)/iny+1l  
     229mis=15 
     230mas=32 
     231iny=1 
     232ny=(mas-mis)/iny+1l 
    233233yy=mis+indgen(ny)*iny 
    234 xp=16  
     234xp=16 
    235235yp=14 
    236  
    237 x1=13  
    238 x2=32  
    239 y1=x1  
     236; 
     237x1=13 
     238x2=32 
     239y1=x1 
    240240y2=x2 
    241241; 
    … …  
    247247xyouts, xp, yp, cstat_trop, charsize=1 
    248248xyouts, xp, yp-1, abs_trop, charsize=1 
    249  
     249; 
    250250; 
    251251pdf, param,oaf,mio,mao,inx,mis,mas,iny, $ 
    … …  
    256256xyouts, xp, yp, cstat_oaf, charsize=1 
    257257xyouts, xp, yp-1, abs_oaf, charsize=1 
    258  
     258; 
    259259; 
    260260pdf, param,erai,mio,mao,inx,mis,mas,iny, $ 
    … …  
    265265xyouts, xp, yp, cstat_erai, charsize=1 
    266266xyouts, xp, yp-1, abs_erai, charsize=1 
    267  
     267; 
    268268; 
    269269pdf, param,ncep2,mio,mao,inx,mis,mas,iny, $ 
    … …  
    274274xyouts, xp, yp, cstat_ncep2, charsize=1 
    275275xyouts, xp, yp-1, abs_ncep2, charsize=1 
    276  
     276; 
    277277; 
    278278pdf, param,ncep1,mio,mao,inx,mis,mas,iny, $ 
    … …  
    283283xyouts, xp, yp, cstat_ncep1, charsize=1 
    284284xyouts, xp, yp-1, abs_ncep1, charsize=1 
    285  
     285; 
    286286closeps 
     287; 
    287288end 

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

    r94 r97  
    8282key_portrait = 1 
    8383coefpalit=.9 
    84  
     84; 
    8585openps, FILENAME = project_od_env+"icoads_ws_stats_paper.ps" 
    8686; partie a changer 
    8787marge=[-2,-2, -4,2] 
    88 st=19890101  
     88st=19890101 
    8989en=20091231 
    9090domdef, box 
    91  
     91; 
    9292file=project_id_env+'ws_monthly_1960_2010_oafluxgrid.nc" 
    9393initncdf, file 
    9494icoads=read_ncdf("ws", st-1, en , file=file,/nostr, box=box) 
    9595help, icoads 
    96  
     96; 
    9797file=project_id_env+"ws_TropFlux_global_monthly_1989_2009.nc" 
    9898initncdf, file 
    9999trop=read_ncdf("ws", st, en , file=file,/nostr, box=box) 
    100100help, trop 
    101  
     101; 
    102102file=project_id_env+"ws_OAFlux_global_monthly_1989_2009.nc" 
    103103initncdf, file 
    104104oaf=read_ncdf("ws", st, en , file=file,/nostr, box=box) 
    105105help, oaf 
    106  
     106; 
    107107file=project_id_env+"ws_ERAI_global_monthly_1989_2009.nc" 
    108108initncdf, file 
    109109erai=read_ncdf("ws", st, en , file=file,/nostr, box=box) 
    110110help, erai 
    111  
     111; 
    112112file=project_id_env+"ws_NCEP2_global_monthly_1989_2009.nc" 
    113113initncdf, file 
    114114ncep2=read_ncdf("wsm", st, en , file=file,/nostr, box=box) 
    115115help, ncep2 
    116  
     116; 
    117117file=project_id_env+"ws_NCEP1_global_monthly_1989_2009.nc" 
    118118initncdf, file 
    119119ncep1=read_ncdf("ws", st, en , file=file,/nostr, box=box) 
    120120help, ncep1 
    121  
     121; 
    122122file=project_id_env+'nocv2_ws_19890101_20091231_oafluxgrid.nc' 
    123123initncdf, file 
    124124noc=read_ncdf("ws", st, en , file=file,/nostr, box=box) 
    125125help, noc 
    126  
    127 si=size(trop)  
     126; 
     127si=size(trop) 
    128128nt=si(3) 
    129  
     129; 
    130130lat_rama=[67, 55, 55, 80.5, 80.5, 80.5, 80.5, 90, 90, 90, 90, 90, 90, 90, 95] 
    131131lon_rama=[-8, -12, -8,-8, -1.5, 0, 1.5, -1.5, 0, 1.5, 4, 8, 12, 15, -5] 
    132  
     132; 
    133133lat_pirata=[0, 350, 337, 325, 350, 337, 322, 328, 322, 326, 322, 337, 337, 322, 350, 322, 330] 
    134134lon_pirata=[0, 0, 0, 0, -10, 12, 12, -14, 15, -19, 20, 21, 4, 4, -6, 8, -8] 
    135  
     135; 
    136136lat_tao=[165, 180, 205, 235, 250, 265, 156, 165, 180, 190, 205, 220, 235, 250, 265, 156, 165, 180, 190, 205, 220, 235, 250, 265, 147, 156, $ 
    137137         165, 180, 190, 205, 220, 235, 250, 265, 147, 156, 165, 180, 190, 205, 220, 235, 250, 265, 147, 156, 165, 190, 205, 220, 235, 250, 265, $ 
    138138         156, 165, 180, 190, 220, 235, 250, 265] 
    139  
     139; 
    140140lon_tao=[-8, -8, -8, -8, -8, -8, -5, -5, -5, -5, -5, -5, -5, -5, -5, -2, -2, -2, -2, -2, -2, -2, -2, -2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, $ 
    141141          2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 5, 5, 5, 5, 5, 5, 5, 5, 5, 8, 8, 8, 8, 9, 8, 8, 8] 
    142  
     142; 
    143143lat=[lat_rama, lat_pirata, lat_tao] 
    144144lon=[lon_rama, lon_pirata, lon_tao] 
    145  
    146 lat_tao=lat  
     145; 
     146lat_tao=lat 
    147147lon_tao=lon 
    148148nn=n_elements(lat) 
    149  
     149; 
    150150list=0 
    151151for n=0, nn-1 do begin 
    152152  x=lat_tao(n) 
    153153  y=lon_tao(n) 
    154   dx=abs(reform(glamt-x))  
     154  dx=abs(reform(glamt-x)) 
    155155  dy=abs(reform(gphit)-y) 
    156156  ind=where((dx le 0.5) and (dy le 0.5)) 
    … …  
    159159  endif 
    160160endfor 
    161  
     161; 
    162162msk=replicate(1,nxt,nyt) 
    163163msk(list)=!Values.f_nan 
    164  
     164; 
    165165mask=trop*0 
    166166for jt=0,jpt-1 do begin 
    … …  
    168168  mask(*,*,jt)=t 
    169169endfor 
    170  
     170; 
    171171param=icoads*mask 
    172 trop=trop*mask  
    173 oaf=oaf*mask  
     172trop=trop*mask 
     173oaf=oaf*mask 
    174174erai=erai*mask 
    175 ncep2=ncep2*mask  
     175ncep2=ncep2*mask 
    176176ncep1=ncep1*mask 
    177177noc=noc*mask 
    178  
     178; 
    179179ind=where(finite(param) and finite(noc) and finite(erai) and finite(trop) and finite(oaf) and finite(ncep2) and finite(ncep1)) 
    180 x=param(ind)  
     180x=param(ind) 
    181181y=trop(ind) 
    182 param=param(ind)  
    183 trop=trop(ind)  
    184 erai=erai(ind)  
    185 oaf=oaf(ind)  
    186 ncep2=ncep2(ind)  
     182param=param(ind) 
     183trop=trop(ind) 
     184erai=erai(ind) 
     185oaf=oaf(ind) 
     186ncep2=ncep2(ind) 
    187187ncep1=ncep1(ind) 
    188188noc=noc(ind) 
    189  
     189; 
    190190; 
    191191statistics, param, trop, $ 
    … …  
    209209abs_diff=total(abs(erai-param))/n_elements(erai) 
    210210abs_erai=string(abs_diff, format='(f5.2)') 
    211  
     211; 
    212212; 
    213213statistics, param, ncep2, $ 
    … …  
    232232abs_noc=string(abs_diff, format='(f5.2)') 
    233233; 
    234 mio=0  
    235 mao=15  
    236 inx=1  
    237 nx=(mao-mio)/inx+1l  
     234mio=0 
     235mao=15 
     236inx=1 
     237nx=(mao-mio)/inx+1l 
    238238xx=mio+indgen(nx)*inx 
    239 mis=0  
    240 mas=15  
    241 iny=1  
    242 ny=(mas-mis)/iny+1l  
     239mis=0 
     240mas=15 
     241iny=1 
     242ny=(mas-mis)/iny+1l 
    243243yy=mis+indgen(ny)*iny 
    244 xp=4  
     244xp=4 
    245245yp=13 
    246 x1=0  
    247 x2=15  
    248 y1=x1  
     246x1=0 
     247x2=15 
     248y1=x1 
    249249y2=x2 
    250250; 
    … …  
    256256xyouts, xp, yp, cstat_trop, charsize=1 
    257257xyouts, xp, yp-1, abs_trop, charsize=1 
    258  
     258; 
    259259; 
    260260pdf, param,oaf,mio,mao,inx,mis,mas,iny, $ 
    … …  
    265265xyouts, xp, yp, cstat_oaf, charsize=1 
    266266xyouts, xp, yp-1, abs_oaf, charsize=1 
    267  
     267; 
    268268; 
    269269pdf, param,erai,mio,mao,inx,mis,mas,iny, $ 
    … …  
    274274xyouts, xp, yp, cstat_erai, charsize=1 
    275275xyouts, xp, yp-1, abs_erai, charsize=1 
    276  
     276; 
    277277; 
    278278pdf, param,ncep2,mio,mao,inx,mis,mas,iny, $ 
    … …  
    283283xyouts, xp, yp, cstat_ncep2, charsize=1 
    284284xyouts, xp, yp-1, abs_ncep2, charsize=1 
    285  
     285; 
    286286; 
    287287pdf, param,ncep1,mio,mao,inx,mis,mas,iny, $ 
    … …  
    300300xyouts, xp, yp, cstat_noc, charsize=1 
    301301xyouts, xp, yp-1, abs_noc, charsize=1 
    302  
     302; 
    303303closeps 
     304; 
    304305end 

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

    r94 r97  
    6060   cor, bias, std, rmsd 
    6161@cm_project 
    62 ;; mean1= mean of mooring variable      std1=std of mooring variable 
    63 ;; mean2= mean of erai variable         std2=std of erai variable 
    64 x=moor  
     62; mean1= mean of mooring variable      std1=std of mooring variable 
     63; mean2= mean of erai variable         std2=std of erai variable 
     64x=moor 
    6565y=erai 
    66 ind1=where(finite(x,/nan))  
     66ind1=where(finite(x,/nan)) 
    6767ind2=where(finite(y,/nan)) 
    6868ind=inter(ind1,ind2) 
    6969if (ind ne -1 ) then begin 
    70    x(ind)=!Values.f_nan  
     70   x(ind)=!Values.f_nan 
    7171   y(ind)=!Values.f_nan 
    7272endif 
    73  
     73; 
    7474ind=where(finite(x)) 
    75 x=x(ind)  
     75x=x(ind) 
    7676y=y(ind) 
    77  
     77; 
    7878nn=n_elements(ind) 
    79  
     79; 
    8080cor=correlate(x,y) 
    8181xxx=moment(x) 
    82 mean1=xxx(0)  
     82mean1=xxx(0) 
    8383std1=sqrt(xxx(1)) 
    8484xxx=moment(y) 
    85 mean2=xxx(0)  
     85mean2=xxx(0) 
    8686std2=sqrt(xxx(1)) 
    87 bias=mean2-mean1  
     87bias=mean2-mean1 
    8888std=std2/std1 
    8989rmsd=sqrt(total((x-y)*(x-y))/n_elements(x)) 
     90; 
    9091end 

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

    r94 r97  
    9090reinitplt, /z,/invert 
    9191key_portrait = 1 
    92  
     92; 
    9393openps, FILENAME = project_od_env+'air_validation_scatter_2000_2009_'+ocean+'.ps' 
    94  
    95 ;; Give the location of mooring for validation of basic meteorological variables 
    96  
    97  
     94; 
     95; Give the location of mooring for validation of basic meteorological variables 
     96; 
     97; 
    9898sitelist=['8s67e','12s55e', '8s55e', '8s80.5e', '1.5s80.5e', '0n80.5e', '1.5n80.5e', '1.5s90e', $ 
    9999           '0n90e', '1.5n90e', '4n90e','8n90e','12n90e', '15n90e', '5s95e', $ 
    … …  
    106106          '0n0e', '0n10w', '0n23w', '0n35w', '10s10w', '12n23w', '12n38w', '14s32w', '15n38w', '19s34w', '20n38w', $ 
    107107          '21n23w', '4n23w', '4n38w', '6s10w', '8n38w', '8s30w'] 
    108  
     108; 
    109109ocean='global' 
    110  
     110; 
    111111sitelist=['8s67e','12s55e', '8s55e', '8s80.5e', '1.5s80.5e', '0n80.5e', '1.5n80.5e', '1.5s90e', $ 
    112112           '0n90e', '1.5n90e', '4n90e','8n90e','12n90e', '15n90e', '5s95e'] 
    113113ocean='IO' 
    114  
     114; 
    115115;sitelist=['8s165e', '8s180w',  '8s155w', '8s125w', '8s110w', '8s95w',  '5s156e', '5s165e', '5s180w', '5s170w', $ 
    116116;          '5s155w', '5s140w', '5s125w', '5s110w', '5s95w', '2s156e', '2s165e', '2s180w', '2s170w', '2s155w', '2s140w', $ 
    … …  
    120120;          '8n156e', '8n165e', '8n180w', '8n170w', '9n140w', '8n125w', '8n110w', '8n95w'] 
    121121;ocean='Pac' 
    122  
     122; 
    123123;sitelist=['0n0e', '0n10w', '0n23w', '0n35w', '10s10w', '12n23w', '12n38w', '14s32w', '15n38w', '19s34w', '20n38w', $ 
    124124;          '21n23w', '4n23w', '4n38w', '6s10w', '8n38w', '8s30w'] 
    125125;ocean='AO' 
    126  
     126; 
    127127;sitelist=['8s165e', '8s180w',  '8s155w','5s156e', '5s165e', '5s180w', '5s170w','2s156e', '2s165e', '2s180w', $ 
    128128;          '2s170w','0n147e', '0n156e', '0n165e', '0n180w', '0n170w', '2n147e', '2n156e', '2n165e', '2n180w', $ 
    … …  
    130130;          '8n125w', '8n110w', '8n95w'] 
    131131;ocean='Pac_warmpool' 
    132  
     132; 
    133133;sitelist=['8s125w', '8s110w', '8s95w','5s155w', '5s140w', '5s125w', '5s110w', '5s95w','2s155w', '2s140w', $ 
    134134;          '2s125w', '2s110w', '2s95w', '0n155w', '0n140w', '0n125w', '0n110w', '0n95w', '2n155w', '2n140w', $ 
    135135;         '2n125w', '2n110w', '2n95w',  '5n155w', '5n140w', '5n125w', '5n110w', '5n95w'] 
    136136;ocean='Pac_coldtongue' 
    137  
     137; 
    138138;sitelist=['0n0e','0n35w', '4n23w', '4n38w', '8n38w'] 
    139139;ocean='AO_warmpool' 
    140  
     140; 
    141141;sitelist=['0n10w','0n23w','10s10w','12n23w','12n38w','14s32w','15n38w', '19s34w','20n38w', $ 
    142142;          '21n23w', '6s10w', '8s30w'] 
    143143;ocean='AO_coldtongue' 
    144  
    145 nsmooth=1.    ;; statistics are with 7 day smoothed 
    146 ;;   This program will create the following text files with statistics of respective variables 
     144; 
     145nsmooth=1.    ; statistics are with 7 day smoothed 
     146;   This program will create the following text files with statistics of respective variables 
    147147close,/all 
    148  
     148; 
    149149fi_air_erai=project_id_env+'air_2000_2009_erai_'+ocean+'.txt' 
    150150openw,1,fi_air_erai 
    … …  
    157157fi_air_ncep1=project_id_env+'air_2000_2009_ncep1_'+ocean+'.txt' 
    158158openw,5,fi_air_ncep1 
    159  
    160  
     159; 
     160; 
    161161printf,1, 'x     y      cor    bias     std     rmsd    mean_tao' 
    162162printf,2, 'x     y      cor    bias     std     rmsd    mean_tao' 
    … …  
    164164printf,4, 'x     y      cor    bias     std     rmsd    mean_tao' 
    165165printf,5, 'x     y      cor    bias     std     rmsd    mean_tao' 
    166  
    167 ;; first reading the whole ERAI uncorrected and corrected data 
    168  
     166; 
     167; first reading the whole ERAI uncorrected and corrected data 
     168; 
    169169file=project_id_env+'erai_t2m_19890101_20091231_oafluxgrid.nc' 
    170170initncdf, file 
    171 unc=read_ncdf('t2m',date1,date2,file=file,/nostr)  
     171unc=read_ncdf('t2m',date1,date2,file=file,/nostr) 
    172172unc=unc-273.15 
    173173help, unc 
    174  
     174; 
    175175;save, unc, cor, oaf, nce, nce1, filename="airt_unc_cor_oaf_nce_nce1_2000_2009_global.idl" 
    176176restore, file="/Users/pkb/work/MY_SAXO/airt_unc_cor_oaf_nce_nce1_2000_2009_global.idl" 
    177177help, unc, cor, oaf, nce, nce1 
    178  
     178; 
    179179nn=n_elements(sitelist) 
    180180for n=0, nn-1 do begin 
    181  
    182 ;; reading data from mooring 
    183  
    184     site=sitelist(n)  
     181; 
     182; reading data from mooring 
     183; 
     184    site=sitelist(n) 
    185185csite=site 
    186186    print, csite 
    … …  
    188188    y=y_site_location(site) 
    189189    if (y ge 0. and y le 30.) then y=y+360. 
    190     dx=0.5  
    191     dy=0.5  
     190    dx=0.5 
     191    dy=0.5 
    192192    box=[y-dy, y+dy, x-dx, x+dx] 
    193193    read_variables_v2, csite,date1,date2,nsmooth, $ 
    194194         at, sw,rh,sst,wu,wv,ws,lh 
    195  
    196  
    197 ;    air=rh_to_sphum(rh,at,1008)               ;;        at  ->  air temperature 
    198     air=at                                               ;;        air ->  sea surface temperature 
    199                                                 ;;        lh  ->  latent heat flux 
    200                                                 ;;        rh  ->  relative humidity 
    201                                                 ;;   wu,wv,ws ->  wind speed 
    202 ;; 
    203  
    204  
    205 ;;  extracting the corrected and uncorrected ERAI data at the locations 
     195; 
     196; 
     197;    air=rh_to_sphum(rh,at,1008)               ;        at  ->  air temperature 
     198    air=at                                               ;        air ->  sea surface temperature 
     199                                                ;        lh  ->  latent heat flux 
     200                                                ;        rh  ->  relative humidity 
     201                                                ;   wu,wv,ws ->  wind speed 
     202; 
     203; 
     204; 
     205;  extracting the corrected and uncorrected ERAI data at the locations 
    206206    nsmooth=1. 
    207  
     207; 
    208208    extract_flux_tropflux,unc,box, $ 
    209209        tropflux 
    210210    uncr=tropflux 
    211  
     211; 
    212212     extract_flux_tropflux,cor,box, $ 
    213213        tropflux 
    214214     corr=tropflux 
    215  
     215; 
    216216     extract_flux_tropflux,oaf,box, $ 
    217217        tropflux 
    218218     oafl=tropflux 
    219  
     219; 
    220220     extract_flux_tropflux,nce,box, $ 
    221221        tropflux 
    222222     ncep=tropflux 
    223  
     223; 
    224224     extract_flux_tropflux,nce1,box, $ 
    225225        tropflux 
    226226     ncep1=tropflux 
    227  
    228  
    229     ind=where(finite(air))  
    230     air=air(ind)  
    231     uncr_air=uncr(ind)   
     227; 
     228; 
     229    ind=where(finite(air)) 
     230    air=air(ind) 
     231    uncr_air=uncr(ind) 
    232232    corr_air=corr(ind) 
    233     oafl=oafl(ind)  
    234     ncep=ncep(ind)  
     233    oafl=oafl(ind) 
     234    ncep=ncep(ind) 
    235235    ncep1=ncep1(ind) 
    236236    mean_tao=total(air,/nan)/n_elements(ind) 
    237  
     237; 
    238238    statistics_3var_v1, air, uncr_air, corr_air, $ 
    239239         cor1, cor2, bias1, bias2, std1, std2, rmsd1, rmsd2 
    240  
     240; 
    241241    printf, 1, x, y, cor1, bias1, std1, rmsd1, mean_tao, format='(f6.2, 3x, f6.2, 3x, f5.2,3x,f5.2,3x,f4.2,3x,f4.2,3x,f6.2)' 
    242242    printf, 2, x, y, cor2, bias2, std2, rmsd2, mean_tao, format='(f6.2, 3x, f6.2, 3x, f5.2,3x,f5.2,3x,f4.2,3x,f4.2,3x,f6.2)' 
    243  
     243; 
    244244    statistics_3var_v1, air, oafl, ncep, $ 
    245245         cor1, cor2, bias1, bias2, std1, std2, rmsd1, rmsd2 
    246246    printf, 3, x, y, cor1, bias1, std1, rmsd1, mean_tao, format='(f6.2, 3x, f6.2, 3x, f5.2,3x,f5.2,3x,f4.2,3x,f4.2,3x,f6.2)' 
    247247    printf, 4, x, y, cor2, bias2, std2, rmsd2, mean_tao, format='(f6.2, 3x, f6.2, 3x, f5.2,3x,f6.2,3x,f4.2,3x,f4.2,3x,f6.2)' 
    248  
     248; 
    249249    statistics_3var_v1, air, ncep1, ncep, $ 
    250250         cor1, cor2, bias1, bias2, std1, std2, rmsd1, rmsd2 
    251251    printf, 5, x, y, cor1, bias1, std1, rmsd1, mean_tao, format='(f6.2, 3x, f6.2, 3x, f5.2,3x,f5.2,3x,f4.2,3x,f4.2,3x,f6.2)' 
    252  
     252; 
    253253endfor 
    254254close,/all 
    255  
     255; 
    256256fi_air_erai=project_id_env+'air_2000_2009_erai_'+ocean+'.txt' 
    257257res=read_ascii(fi_air_erai,data_start=1) 
    … …  
    259259lat=reform(ff(0,*)) 
    260260lon=reform(ff(1,*)) 
    261 cor_era=reform(ff(2,*))    
     261cor_era=reform(ff(2,*)) 
    262262cor_erai=total(cor_era)/n_elements(cor_era) 
    263 bias_era=reform(ff(3,*))   
     263bias_era=reform(ff(3,*)) 
    264264bias_erai=total(bias_era)/n_elements(bias_era) 
    265 std_era=reform(ff(4,*))    
     265std_era=reform(ff(4,*)) 
    266266std_erai=total(std_era)/n_elements(std_era) 
    267 rmsd_era=reform(ff(5,*))   
     267rmsd_era=reform(ff(5,*)) 
    268268rmsd_erai=total(rmsd_era)/n_elements(rmsd_era) 
    269 mean_tao=reform(ff(6,*))   
     269mean_tao=reform(ff(6,*)) 
    270270mean_erai=bias_era+mean_tao 
    271  
     271; 
    272272print, '' 
    273273print, 'ERAI' 
    … …  
    279279xyouts, 22.3,30.2, cstat, charsize=0.9 
    280280xyouts, 22.3,29.5, 'cor   bias   std   rmsd', charsize=0.9 
    281  
     281; 
    282282oplot, [22,31], [22,31] 
    283283ab=linfit(mean_tao, mean_erai,yfit=yfit) 
    284 a=float(ab(0))  
     284a=float(ab(0)) 
    285285b=float(ab(1)) 
    286286oplot, mean_tao, yfit, color=250, thick=2 
    287  
     287; 
    288288fi_air_trop=project_id_env+'air_2000_2009_trop_'+ocean+'.txt' 
    289289res=read_ascii(fi_air_trop,data_start=1) 
    … …  
    291291lat=reform(ff(0,*)) 
    292292lon=reform(ff(1,*)) 
    293 cor_tro=reform(ff(2,*))    
     293cor_tro=reform(ff(2,*)) 
    294294cor_trop=total(cor_tro)/n_elements(cor_tro) 
    295 bias_tro=reform(ff(3,*))   
     295bias_tro=reform(ff(3,*)) 
    296296bias_trop=total(bias_tro)/n_elements(bias_tro) 
    297 std_tro=reform(ff(4,*))    
     297std_tro=reform(ff(4,*)) 
    298298std_trop=total(std_tro)/n_elements(std_tro) 
    299 rmsd_tro=reform(ff(5,*))   
     299rmsd_tro=reform(ff(5,*)) 
    300300rmsd_trop=total(rmsd_tro)/n_elements(rmsd_tro) 
    301 mean_tao=reform(ff(6,*))   
     301mean_tao=reform(ff(6,*)) 
    302302mean_trop=bias_tro+mean_tao 
    303  
     303; 
    304304print, '' 
    305305print, 'TropFlux' 
    306306print, cor_trop, bias_trop, std_trop, rmsd_trop 
    307307cstat=string(cor_trop, bias_trop, std_trop, rmsd_trop, format='(f4.2,1x,f6.2,1x,f4.2,1x,f4.2)') 
    308  
     308; 
    309309splot, mean_tao, mean_trop, title='T2m - TAO Vs TropFlux', subtitle='', $ 
    310310     charsize=1.1, xtitle='TAO T2m', ytitle='TropFlux T2m', small=[2,3,2],/noer, psym=2, $ 
    … …  
    313313xyouts, 22.3,30.2, cstat, charsize=0.9 
    314314xyouts, 22.3,29.5, 'cor   bias   std   rmsd', charsize=0.9 
    315  
     315; 
    316316ab=linfit(mean_tao, mean_trop,yfit=yfit) 
    317 a=float(ab(0))  
     317a=float(ab(0)) 
    318318b=float(ab(1)) 
    319319oplot, mean_tao, yfit, color=250, thick=2 
    320  
     320; 
    321321fi_air_oaflx=project_id_env+'air_2000_2009_oaflx_'+ocean+'.txt' 
    322322res=read_ascii(fi_air_oaflx,data_start=1) 
    … …  
    324324lat=reform(ff(0,*)) 
    325325lon=reform(ff(1,*)) 
    326 cor_oaf=reform(ff(2,*))    
     326cor_oaf=reform(ff(2,*)) 
    327327cor_oafl=total(cor_oaf)/n_elements(cor_oaf) 
    328 bias_oaf=reform(ff(3,*))   
     328bias_oaf=reform(ff(3,*)) 
    329329bias_oafl=total(bias_oaf)/n_elements(bias_oaf) 
    330 std_oaf=reform(ff(4,*))    
     330std_oaf=reform(ff(4,*)) 
    331331std_oafl=total(std_oaf)/n_elements(std_oaf) 
    332 rmsd_oaf=reform(ff(5,*))   
     332rmsd_oaf=reform(ff(5,*)) 
    333333rmsd_oafl=total(rmsd_oaf)/n_elements(rmsd_oaf) 
    334 mean_tao=reform(ff(6,*))   
     334mean_tao=reform(ff(6,*)) 
    335335mean_oafl=bias_oaf+mean_tao 
    336  
     336; 
    337337print, '' 
    338338print, 'OAFlux' 
    339339print, cor_oafl, bias_oafl, std_oafl, rmsd_oafl 
    340340cstat=string(cor_oafl, bias_oafl, std_oafl, rmsd_oafl, format='(f4.2,1x,f6.2,1x,f4.2,1x,f4.2)') 
    341  
     341; 
    342342splot, mean_tao, mean_oafl, title='T2m - TAO Vs OAFlux', subtitle='', $ 
    343343     charsize=1.1, xtitle='TAO T2m', ytitle='OAFlux T2m', small=[2,3,3],/noer, psym=2, $ 
    … …  
    346346xyouts, 22.3,30.2, cstat, charsize=0.9 
    347347xyouts, 22.3,29.5, 'cor   bias   std   rmsd', charsize=0.9 
    348  
     348; 
    349349ab=linfit(mean_tao, mean_oafl,yfit=yfit) 
    350 a=float(ab(0))  
     350a=float(ab(0)) 
    351351b=float(ab(1)) 
    352352oplot, mean_tao, yfit, color=250, thick=2 
    353  
    354  
    355  
     353; 
     354; 
     355; 
    356356fi_air_ncep=project_id_env+'air_2000_2009_ncep2_'+ocean+'.txt' 
    357357res=read_ascii(fi_air_ncep,data_start=1) 
    … …  
    359359lat=reform(ff(0,*)) 
    360360lon=reform(ff(1,*)) 
    361 cor_nce=reform(ff(2,*))    
     361cor_nce=reform(ff(2,*)) 
    362362cor_ncep=total(cor_nce)/n_elements(cor_nce) 
    363 bias_nce=reform(ff(3,*))   
     363bias_nce=reform(ff(3,*)) 
    364364bias_ncep=total(bias_nce)/n_elements(bias_nce) 
    365 std_nce=reform(ff(4,*))    
     365std_nce=reform(ff(4,*)) 
    366366std_ncep=total(std_nce)/n_elements(std_nce) 
    367 rmsd_nce=reform(ff(5,*))   
     367rmsd_nce=reform(ff(5,*)) 
    368368rmsd_ncep=total(rmsd_nce)/n_elements(rmsd_nce) 
    369 mean_tao=reform(ff(6,*))   
     369mean_tao=reform(ff(6,*)) 
    370370mean_ncep=bias_nce+mean_tao 
    371  
     371; 
    372372print, '' 
    373373print, 'NCEP2' 
    374374print, cor_ncep, bias_ncep, std_ncep, rmsd_ncep 
    375375cstat=string(cor_ncep, bias_ncep, std_ncep, rmsd_ncep, format='(f4.2,1x,f6.2,1x,f4.2,1x,f4.2)') 
    376  
     376; 
    377377splot, mean_tao, mean_ncep, title='T2m - TAO Vs NCEP2', subtitle='', $ 
    378378     charsize=1.1, xtitle='TAO T2m', ytitle='NCEP2 T2m', small=[2,3,4],/noer, psym=2, $ 
    … …  
    381381xyouts, 22.3,30.2, cstat, charsize=0.9 
    382382xyouts, 22.3,29.5, 'cor   bias   std   rmsd', charsize=0.9 
    383  
     383; 
    384384ab=linfit(mean_tao, mean_ncep,yfit=yfit) 
    385 a=float(ab(0))  
     385a=float(ab(0)) 
    386386b=float(ab(1)) 
    387387oplot, mean_tao, yfit, color=250, thick=2 
    388  
     388; 
    389389fi_air_ncep1=project_id_env+'air_2000_2009_ncep1_'+ocean+'.txt' 
    390390res=read_ascii(fi_air_ncep1,data_start=1) 
    … …  
    392392lat=reform(ff(0,*)) 
    393393lon=reform(ff(1,*)) 
    394 cor_nce=reform(ff(2,*))    
     394cor_nce=reform(ff(2,*)) 
    395395cor_ncep=total(cor_nce)/n_elements(cor_nce) 
    396 bias_nce=reform(ff(3,*))   
     396bias_nce=reform(ff(3,*)) 
    397397bias_ncep=total(bias_nce)/n_elements(bias_nce) 
    398 std_nce=reform(ff(4,*))    
     398std_nce=reform(ff(4,*)) 
    399399std_ncep=total(std_nce)/n_elements(std_nce) 
    400 rmsd_nce=reform(ff(5,*))   
     400rmsd_nce=reform(ff(5,*)) 
    401401rmsd_ncep=total(rmsd_nce)/n_elements(rmsd_nce) 
    402 mean_tao=reform(ff(6,*))   
     402mean_tao=reform(ff(6,*)) 
    403403mean_ncep=bias_nce+mean_tao 
    404  
     404; 
    405405print, '' 
    406406print, 'NCEP1' 
    407407print, cor_ncep, bias_ncep, std_ncep, rmsd_ncep 
    408408cstat=string(cor_ncep, bias_ncep, std_ncep, rmsd_ncep, format='(f4.2,1x,f6.2,1x,f4.2,1x,f4.2)') 
    409  
     409; 
    410410splot, mean_tao, mean_ncep, title='T2m - TAO Vs NCEP_NCAR', subtitle='', $ 
    411411     charsize=1.1, xtitle='TAO T2m', ytitle='NCEP', small=[2,3,5],/noer, psym=2, $ 
    … …  
    414414xyouts, 22.3,30.2, cstat, charsize=0.9 
    415415xyouts, 22.3,29.5, 'cor   bias   std   rmsd', charsize=0.9 
    416  
     416; 
    417417ab=linfit(mean_tao, mean_ncep,yfit=yfit) 
    418 a=float(ab(0))  
     418a=float(ab(0)) 
    419419b=float(ab(1)) 
    420420oplot, mean_tao, yfit, color=250, thick=2 
    421  
     421; 
    422422closeps 
    423  
     423; 
    424424end 

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

    r94 r97  
    8484; 
    8585;- 
    86  
     86; 
    8787pro q2m_validation_scatter_2000_2009_basin, date1, date2 
    8888@cm_general 
    … …  
    9090reinitplt, /z,/invert 
    9191key_portrait = 1 
    92  
     92; 
    9393openps, FILENAME = project_od_env+'q2m_validation_scatter_2000_2009_'+ocean+'.ps' 
    94  
    95 ;; Give the location of mooring for validation of basic meteorological variables 
     94; 
     95; Give the location of mooring for validation of basic meteorological variables 
    9696sitelist=['8s67e','12s55e', '8s55e', '8s80.5e', '1.5s80.5e', '0n80.5e', '1.5n80.5e', '1.5s90e', $ 
    9797           '0n90e', '1.5n90e', '4n90e','8n90e','12n90e', '15n90e', '5s95e', $ 
    … …  
    104104          '0n0e', '0n10w', '0n23w', '0n35w', '10s10w', '12n23w', '12n38w', '14s32w', '15n38w', '19s34w', '20n38w', $ 
    105105          '21n23w', '4n23w', '4n38w', '6s10w', '8n38w', '8s30w'] 
    106  
     106; 
    107107ocean='global' 
    108  
     108; 
    109109sitelist=['8s67e','12s55e', '8s55e', '8s80.5e', '1.5s80.5e', '0n80.5e', '1.5n80.5e', '1.5s90e', $ 
    110110           '0n90e', '1.5n90e', '4n90e','8n90e','12n90e', '15n90e', '5s95e'] 
    111111ocean='IO' 
    112  
     112; 
    113113sitelist=['8s165e', '8s180w',  '8s155w', '8s125w', '8s110w', '8s95w',  '5s156e', '5s165e', '5s180w', '5s170w', $ 
    114114          '5s155w', '5s140w', '5s125w', '5s110w', '5s95w', '2s156e', '2s165e', '2s180w', '2s170w', '2s155w', '2s140w', $ 
    … …  
    118118          '8n156e', '8n165e', '8n180w', '8n170w', '9n140w', '8n125w', '8n110w', '8n95w'] 
    119119ocean='Pac' 
    120  
     120; 
    121121sitelist=['0n0e', '0n10w', '0n23w', '0n35w', '10s10w', '12n23w', '12n38w', '14s32w', '15n38w', '19s34w', '20n38w', $ 
    122122          '21n23w', '4n23w', '4n38w', '6s10w', '8n38w', '8s30w'] 
    123123ocean='AO' 
    124  
     124; 
    125125sitelist=['8s165e', '8s180w',  '8s155w','5s156e', '5s165e', '5s180w', '5s170w','2s156e', '2s165e', '2s180w', $ 
    126126          '2s170w','0n147e', '0n156e', '0n165e', '0n180w', '0n170w', '2n147e', '2n156e', '2n165e', '2n180w', $ 
    … …  
    128128          '8n125w', '8n110w', '8n95w'] 
    129129ocean='Pac_warmpool' 
    130  
     130; 
    131131;sitelist=['8s125w', '8s110w', '8s95w','5s155w', '5s140w', '5s125w', '5s110w', '5s95w','2s155w', '2s140w', $ 
    132132;          '2s125w', '2s110w', '2s95w', '0n155w', '0n140w', '0n125w', '0n110w', '0n95w', '2n155w', '2n140w', $ 
    133133;          '2n125w', '2n110w', '2n95w',  '5n155w', '5n140w', '5n125w', '5n110w', '5n95w'] 
    134134;ocean='Pac_coldtongue' 
    135  
     135; 
    136136;sitelist=['0n0e','0n35w', '4n23w', '4n38w', '8n38w'] 
    137137;ocean='AO_warmpool' 
    138  
     138; 
    139139;sitelist=['0n10w','0n23w','10s10w','12n23w','12n38w','14s32w','15n38w', '19s34w','20n38w', $ 
    140140;          '21n23w', '6s10w', '8s30w'] 
    141141;ocean='AO_coldtongue' 
    142  
    143 nsmooth=1.    ;; statistics are with 7 day smoothed 
    144 ;;   This program will create the following text files with statistics of respective variables 
     142; 
     143nsmooth=1.    ; statistics are with 7 day smoothed 
     144;   This program will create the following text files with statistics of respective variables 
    145145close,/all 
    146  
     146; 
    147147fi_q2m_erai=project_id_env+'q2m_2000_2009_erai_'+ocean+'.txt' 
    148148openw,1,fi_q2m_erai 
    … …  
    155155fi_q2m_ncep1=project_id_env+'q2m_2000_2009_ncep1_'+ocean+'.txt' 
    156156openw,5,fi_q2m_ncep1 
    157  
    158  
     157; 
     158; 
    159159printf,1, 'x     y      cor    bias     std     rmsd    mean_tao' 
    160160printf,2, 'x     y      cor    bias     std     rmsd    mean_tao' 
    … …  
    162162printf,4, 'x     y      cor    bias     std     rmsd    mean_tao' 
    163163printf,5, 'x     y      cor    bias     std     rmsd    mean_tao' 
    164  
    165 ;; first reading the whole ERAI uncorrected and corrected data 
    166  
     164; 
     165; first reading the whole ERAI uncorrected and corrected data 
     166; 
    167167file=project_id_env+'erai_q2m_19890101_20091231_oafluxgrid.nc' 
    168168initncdf, file 
    169169unc=read_ncdf('q2m',date1,date2,file=file,/nostr) 
    170170help, unc 
    171  
     171; 
    172172;save, unc, cor, oaf, nce, nce1, filename="q2m_era_trop_oaf_nce_nce1_2000_2009_global.idl" 
    173173restore, file="/Users/pkb/work/MY_SAXO/q2m_era_trop_oaf_nce_nce1_2000_2009_global.idl" 
    174174help, unc, cor, oaf, nce, nce1 
    175  
     175; 
    176176nn=n_elements(sitelist) 
    177177for n=0, nn-1 do begin 
    178  
    179 ;; reading data from mooring 
    180  
    181     site=sitelist(n)  
     178; 
     179; reading data from mooring 
     180; 
     181    site=sitelist(n) 
    182182    csite=site 
    183183    print, csite 
    … …  
    185185    y=y_site_location(site) 
    186186    if (y ge 0. and y le 30.) then y=y+360. 
    187     dx=0.5  
    188     dy=0.5  
     187    dx=0.5 
     188    dy=0.5 
    189189    box=[y-dy, y+dy, x-dx, x+dx] 
    190190    read_variables_v2, csite,date1,date2,nsmooth, $ 
    191191         at, sw,rh,sst,wu,wv,ws,lh 
    192  
    193  
    194     q2m=rh_to_sphum(rh,at,1008)               ;;        at  ->  q2m temperature 
    195 ;    q2m=at                                               ;;        q2m ->  sea surface temperature 
    196                                                 ;;        lh  ->  latent heat flux 
    197                                                 ;;        rh  ->  relative humidity 
    198                                                 ;;   wu,wv,ws ->  wind speed 
    199 ;; 
    200  
    201  
    202 ;;  extracting the corrected and uncorrected ERAI data at the locations 
     192; 
     193; 
     194    q2m=rh_to_sphum(rh,at,1008)               ;        at  ->  q2m temperature 
     195;    q2m=at                                               ;        q2m ->  sea surface temperature 
     196                                                ;        lh  ->  latent heat flux 
     197                                                ;        rh  ->  relative humidity 
     198                                                ;   wu,wv,ws ->  wind speed 
     199; 
     200;  extracting the corrected and uncorrected ERAI data at the locations 
    203201    nsmooth=1. 
    204  
     202; 
    205203    extract_flux_tropflux,unc,box, $ 
    206204        tropflux 
    207205    uncr=tropflux 
    208  
     206; 
    209207     extract_flux_tropflux,cor,box, $ 
    210208        tropflux 
    211209     corr=tropflux 
    212  
     210; 
    213211     extract_flux_tropflux,oaf,box, $ 
    214212        tropflux 
    215213     oafl=tropflux 
    216  
     214; 
    217215     extract_flux_tropflux,nce,box, $ 
    218216        tropflux 
    219217     ncep=tropflux 
    220  
     218; 
    221219     extract_flux_tropflux,nce1,box, $ 
    222220        tropflux 
    223221     ncep1=tropflux 
    224  
    225     ind=where(finite(q2m))  
    226     q2m=q2m(ind)  
    227     uncr_q2m=uncr(ind)   
     222; 
     223    ind=where(finite(q2m)) 
     224    q2m=q2m(ind) 
     225    uncr_q2m=uncr(ind) 
    228226    corr_q2m=corr(ind) 
    229     oafl=oafl(ind)  
    230     ncep=ncep(ind)  
     227    oafl=oafl(ind) 
     228    ncep=ncep(ind) 
    231229    ncep1=ncep1(ind) 
    232230    mean_tao=total(q2m,/nan)/n_elements(ind) 
    233  
     231; 
    234232    statistics_3var_v1, q2m, uncr_q2m, corr_q2m, $ 
    235233         cor1, cor2, bias1, bias2, std1, std2, rmsd1, rmsd2 
    236  
     234; 
    237235    printf, 1, x, y, cor1, bias1, std1, rmsd1, mean_tao, format='(f6.2, 3x, f6.2, 3x, f5.2,3x,f5.2,3x,f4.2,3x,f4.2,3x,f6.2)' 
    238236    printf, 2, x, y, cor2, bias2, std2, rmsd2, mean_tao, format='(f6.2, 3x, f6.2, 3x, f5.2,3x,f5.2,3x,f4.2,3x,f4.2,3x,f6.2)' 
    239  
     237; 
    240238    statistics_3var_v1, q2m, oafl, ncep, $ 
    241239         cor1, cor2, bias1, bias2, std1, std2, rmsd1, rmsd2 
    242240    printf, 3, x, y, cor1, bias1, std1, rmsd1, mean_tao, format='(f6.2, 3x, f6.2, 3x, f5.2,3x,f5.2,3x,f4.2,3x,f4.2,3x,f6.2)' 
    243241    printf, 4, x, y, cor2, bias2, std2, rmsd2, mean_tao, format='(f6.2, 3x, f6.2, 3x, f5.2,3x,f6.2,3x,f4.2,3x,f4.2,3x,f6.2)' 
    244  
     242; 
    245243    statistics_3var_v1, q2m, ncep1, ncep, $ 
    246244         cor1, cor2, bias1, bias2, std1, std2, rmsd1, rmsd2 
    247245    printf, 5, x, y, cor1, bias1, std1, rmsd1, mean_tao, format='(f6.2, 3x, f6.2, 3x, f5.2,3x,f5.2,3x,f4.2,3x,f4.2,3x,f6.2)' 
    248  
     246; 
    249247endfor 
    250248close,/all 
    251  
     249; 
    252250fi_q2m_erai=project_id_env+'q2m_2000_2009_erai_'+ocean+'.txt' 
    253251res=read_ascii(fi_q2m_erai,data_start=1) 
    … …  
    255253lat=reform(ff(0,*)) 
    256254lon=reform(ff(1,*)) 
    257 cor_era=reform(ff(2,*))    
     255cor_era=reform(ff(2,*)) 
    258256cor_erai=total(cor_era)/n_elements(cor_era) 
    259 bias_era=reform(ff(3,*))   
     257bias_era=reform(ff(3,*)) 
    260258bias_erai=total(bias_era)/n_elements(bias_era) 
    261 std_era=reform(ff(4,*))    
     259std_era=reform(ff(4,*)) 
    262260std_erai=total(std_era)/n_elements(std_era) 
    263 rmsd_era=reform(ff(5,*))   
     261rmsd_era=reform(ff(5,*)) 
    264262rmsd_erai=total(rmsd_era)/n_elements(rmsd_era) 
    265 mean_tao=reform(ff(6,*))   
     263mean_tao=reform(ff(6,*)) 
    266264mean_erai=bias_era+mean_tao 
    267  
     265; 
    268266print, '' 
    269267print, 'ERAI' 
    … …  
    275273xyouts, 12,20.2, cstat, charsize=0.9 
    276274xyouts, 12,19.7, 'cor   bias   std   rmsd', charsize=0.9 
    277  
     275; 
    278276oplot, [11,21], [11,21] 
    279277ab=linfit(mean_tao, mean_erai,yfit=yfit) 
    280 a=float(ab(0))  
     278a=float(ab(0)) 
    281279b=float(ab(1)) 
    282280oplot, mean_tao, yfit, color=250, thick=2 
    283  
     281; 
    284282fi_q2m_trop=project_id_env+'q2m_2000_2009_trop_'+ocean+'.txt' 
    285283res=read_ascii(fi_q2m_trop,data_start=1) 
    … …  
    287285lat=reform(ff(0,*)) 
    288286lon=reform(ff(1,*)) 
    289 cor_tro=reform(ff(2,*))    
     287cor_tro=reform(ff(2,*)) 
    290288cor_trop=total(cor_tro)/n_elements(cor_tro) 
    291 bias_tro=reform(ff(3,*))   
     289bias_tro=reform(ff(3,*)) 
    292290bias_trop=total(bias_tro)/n_elements(bias_tro) 
    293 std_tro=reform(ff(4,*))    
     291std_tro=reform(ff(4,*)) 
    294292std_trop=total(std_tro)/n_elements(std_tro) 
    295 rmsd_tro=reform(ff(5,*))   
     293rmsd_tro=reform(ff(5,*)) 
    296294rmsd_trop=total(rmsd_tro)/n_elements(rmsd_tro) 
    297 mean_tao=reform(ff(6,*))   
     295mean_tao=reform(ff(6,*)) 
    298296mean_trop=bias_tro+mean_tao 
    299  
     297; 
    300298print, '' 
    301299print, 'TropFlux' 
    302300print, cor_trop, bias_trop, std_trop, rmsd_trop 
    303301cstat=string(cor_trop, bias_trop, std_trop, rmsd_trop, format='(f4.2,1x,f6.2,1x,f4.2,1x,f4.2)') 
    304  
     302; 
    305303splot, mean_tao, mean_trop, title='Q2m - TAO Vs TropFlux', subtitle='', $ 
    306304     charsize=1.1, xtitle='TAO Q2m', ytitle='TropFlux Q2m', small=[2,3,2],/noer, psym=2, $ 
    … …  
    309307xyouts, 12,20.2, cstat, charsize=0.9 
    310308xyouts, 12,19.7, 'cor   bias   std   rmsd', charsize=0.9 
    311  
     309; 
    312310ab=linfit(mean_tao, mean_trop,yfit=yfit) 
    313 a=float(ab(0))  
     311a=float(ab(0)) 
    314312b=float(ab(1)) 
    315313oplot, mean_tao, yfit, color=250, thick=2 
    316  
     314; 
    317315fi_q2m_oaflx=project_id_env+'q2m_2000_2009_oaflx_'+ocean+'.txt' 
    318316res=read_ascii(fi_q2m_oaflx,data_start=1) 
    … …  
    320318lat=reform(ff(0,*)) 
    321319lon=reform(ff(1,*)) 
    322 cor_oaf=reform(ff(2,*))    
     320cor_oaf=reform(ff(2,*)) 
    323321cor_oafl=total(cor_oaf)/n_elements(cor_oaf) 
    324 bias_oaf=reform(ff(3,*))   
     322bias_oaf=reform(ff(3,*)) 
    325323bias_oafl=total(bias_oaf)/n_elements(bias_oaf) 
    326 std_oaf=reform(ff(4,*))    
     324std_oaf=reform(ff(4,*)) 
    327325std_oafl=total(std_oaf)/n_elements(std_oaf) 
    328 rmsd_oaf=reform(ff(5,*))   
     326rmsd_oaf=reform(ff(5,*)) 
    329327rmsd_oafl=total(rmsd_oaf)/n_elements(rmsd_oaf) 
    330 mean_tao=reform(ff(6,*))   
     328mean_tao=reform(ff(6,*)) 
    331329mean_oafl=bias_oaf+mean_tao 
    332  
     330; 
    333331print, '' 
    334332print, 'OAFlux' 
    335333print, cor_oafl, bias_oafl, std_oafl, rmsd_oafl 
    336334cstat=string(cor_oafl, bias_oafl, std_oafl, rmsd_oafl, format='(f4.2,1x,f6.2,1x,f4.2,1x,f4.2)') 
    337  
     335; 
    338336splot, mean_tao, mean_oafl, title='Q2m - TAO Vs OAFlux', subtitle='', $ 
    339337     charsize=1.1, xtitle='TAO Q2m', ytitle='OAFlux Q2m', small=[2,3,3],/noer, psym=2, $ 
    … …  
    342340xyouts, 12,20.2, cstat, charsize=0.9 
    343341xyouts, 12,19.7, 'cor   bias   std   rmsd', charsize=0.9 
    344  
     342; 
    345343ab=linfit(mean_tao, mean_oafl,yfit=yfit) 
    346 a=float(ab(0))  
     344a=float(ab(0)) 
    347345b=float(ab(1)) 
    348346oplot, mean_tao, yfit, color=250, thick=2 
    349  
    350  
     347; 
     348; 
    351349fi_q2m_ncep=project_id_env+'q2m_2000_2009_ncep_'+ocean+'.txt' 
    352350res=read_ascii(fi_q2m_ncep,data_start=1) 
    … …  
    354352lat=reform(ff(0,*)) 
    355353lon=reform(ff(1,*)) 
    356 cor_nce=reform(ff(2,*))    
     354cor_nce=reform(ff(2,*)) 
    357355cor_ncep=total(cor_nce)/n_elements(cor_nce) 
    358 bias_nce=reform(ff(3,*))   
     356bias_nce=reform(ff(3,*)) 
    359357bias_ncep=total(bias_nce)/n_elements(bias_nce) 
    360 std_nce=reform(ff(4,*))    
     358std_nce=reform(ff(4,*)) 
    361359std_ncep=total(std_nce)/n_elements(std_nce) 
    362 rmsd_nce=reform(ff(5,*))   
     360rmsd_nce=reform(ff(5,*)) 
    363361rmsd_ncep=total(rmsd_nce)/n_elements(rmsd_nce) 
    364 mean_tao=reform(ff(6,*))   
     362mean_tao=reform(ff(6,*)) 
    365363mean_ncep=bias_nce+mean_tao 
    366  
     364; 
    367365print, '' 
    368366print, 'NCEP2' 
    369367print, cor_ncep, bias_ncep, std_ncep, rmsd_ncep 
    370368cstat=string(cor_ncep, bias_ncep, std_ncep, rmsd_ncep, format='(f4.2,1x,f6.2,1x,f4.2,1x,f4.2)') 
    371  
     369; 
    372370splot, mean_tao, mean_ncep, title='Q2m - TAO Vs NCEP2', subtitle='', $ 
    373371     charsize=1.1, xtitle='TAO Q2m', ytitle='NCEP2 Q2m', small=[2,3,4],/noer, psym=2, $ 
    … …  
    376374xyouts, 12,20.2, cstat, charsize=0.9 
    377375xyouts, 12,19.7, 'cor   bias   std   rmsd', charsize=0.9 
    378  
     376; 
    379377ab=linfit(mean_tao, mean_ncep,yfit=yfit) 
    380 a=float(ab(0))  
     378a=float(ab(0)) 
    381379b=float(ab(1)) 
    382380oplot, mean_tao, yfit, color=250, thick=2 
    383  
     381; 
    384382fi_q2m_ncep1=project_id_env+'q2m_2000_2009_ncep1_'+ocean+'.txt' 
    385383res=read_ascii(fi_q2m_ncep1,data_start=1) 
    … …  
    387385lat=reform(ff(0,*)) 
    388386lon=reform(ff(1,*)) 
    389 cor_nce=reform(ff(2,*))    
     387cor_nce=reform(ff(2,*)) 
    390388cor_ncep=total(cor_nce)/n_elements(cor_nce) 
    391 bias_nce=reform(ff(3,*))   
     389bias_nce=reform(ff(3,*)) 
    392390bias_ncep=total(bias_nce)/n_elements(bias_nce) 
    393 std_nce=reform(ff(4,*))    
     391std_nce=reform(ff(4,*)) 
    394392std_ncep=total(std_nce)/n_elements(std_nce) 
    395 rmsd_nce=reform(ff(5,*))   
     393rmsd_nce=reform(ff(5,*)) 
    396394rmsd_ncep=total(rmsd_nce)/n_elements(rmsd_nce) 
    397 mean_tao=reform(ff(6,*))   
     395mean_tao=reform(ff(6,*)) 
    398396mean_ncep=bias_nce+mean_tao 
    399  
     397; 
    400398print, '' 
    401399print, 'NCEP1' 
    402400print, cor_ncep, bias_ncep, std_ncep, rmsd_ncep 
    403401cstat=string(cor_ncep, bias_ncep, std_ncep, rmsd_ncep, format='(f4.2,1x,f6.2,1x,f4.2,1x,f4.2)') 
    404  
     402; 
    405403splot, mean_tao, mean_ncep, title='Q2m - TAO Vs NCEP', subtitle='', $ 
    406404     charsize=1.1, xtitle='TAO Q2m', ytitle='NCEP1 Q2m', small=[2,3,5],/noer, psym=2, $ 
    … …  
    409407xyouts, 12,20.2, cstat, charsize=0.9 
    410408xyouts, 12,19.7, 'cor   bias   std   rmsd', charsize=0.9 
    411  
     409; 
    412410ab=linfit(mean_tao, mean_ncep,yfit=yfit) 
    413 a=float(ab(0))  
     411a=float(ab(0)) 
    414412b=float(ab(1)) 
    415413oplot, mean_tao, yfit, color=250, thick=2 
    416  
     414; 
    417415closeps 
    418  
     416; 
    419417end 

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

    r94 r97  
    8989reinitplt, /z,/invert 
    9090key_portrait = 1 
    91  
     91; 
    9292openps, FILENAME = project_od_env+'sst_validation_scatter_2000_2009_'+ocean+'.ps' 
    93  
    94 ;; Give the location of mooring for validation of basic meteorological variables 
     93; 
     94; Give the location of mooring for validation of basic meteorological variables 
    9595sitelist=['8s67e','12s55e', '8s55e', '8s80.5e', '1.5s80.5e', '0n80.5e', '1.5n80.5e', '1.5s90e', $ 
    9696           '0n90e', '1.5n90e', '4n90e','8n90e','12n90e', '15n90e', '5s95e', $ 
    … …  
    103103          '0n0e', '0n10w', '0n23w', '0n35w', '10s10w', '12n23w', '12n38w', '14s32w', '15n38w', '19s34w', '20n38w', $ 
    104104          '21n23w', '4n23w', '4n38w', '6s10w', '8n38w', '8s30w'] 
    105  
     105; 
    106106;ocean='IO' 
    107107;sitelist=['8s67e','12s55e', '8s55e', '8s80.5e', '1.5s80.5e', '0n80.5e', '1.5n80.5e', '1.5s90e', $ 
    108108;           '0n90e', '1.5n90e', '4n90e','8n90e','12n90e', '15n90e', '5s95e'] 
    109  
     109; 
    110110ocean='Pac' 
    111111sitelist=['8s165e', '8s180w',  '8s155w', '8s125w', '8s110w', '8s95w',  '5s156e', '5s165e', '5s180w', '5s170w', $ 
    … …  
    118118sitelist=['0n0e', '0n10w', '0n23w', '0n35w', '10s10w', '12n23w', '12n38w', '14s32w', '15n38w', '19s34w', '20n38w', $ 
    119119          '21n23w', '4n23w', '4n38w', '6s10w', '8n38w', '8s30w'] 
    120  
     120; 
    121121nsmooth=1. 
    122 ;;   This program will create the following text files with statistics of respective variables 
     122;   This program will create the following text files with statistics of respective variables 
    123123close,/all 
    124  
     124; 
    125125fi_sst_erai=project_id_env+'sst_2000_2009_erai_'+ocean+'.txt' 
    126126openw,1,fi_sst_erai 
    … …  
    135135fi_sst_ncep1=project_id_env+'sst_2000_2009_ncep1_'+ocean+'.txt' 
    136136openw,6,fi_sst_ncep1 
    137  
    138  
    139  
     137; 
     138; 
     139; 
    140140printf,1, 'x     y      cor    bias     std     rmsd      mean_tao' 
    141141printf,2, 'x     y      cor    bias     std     rmsd      mean_tao' 
    … …  
    144144printf,5, 'x     y      cor    bias     std     rmsd      mean_tao' 
    145145printf,6, 'x     y      cor    bias     std     rmsd      mean_tao' 
    146  
    147 ;; first reading the whole ERAI uncorrected and corrected data 
    148  
     146; 
     147; first reading the whole ERAI uncorrected and corrected data 
     148; 
    149149;save, unc, cor, oaf, nce, sst_tmi, nce1, filename="sst_era_trop_oaf_nce_tmi_2000_2009_global.idl" 
    150 ;; full data from 2000-2009 period are read first, and hence the above lines are commented 
    151  
     150; full data from 2000-2009 period are read first, and hence the above lines are commented 
     151; 
    152152restore, file="/Users/pkb/work/MY_SAXO/sst_era_trop_oaf_nce_tmi_2000_2009_global.idl" 
    153153help, unc, cor, oaf, nce, sst_tmi, nce1 
    154 ;; data from 20000101, 20090931 
     154; data from 20000101, 20090931 
    155155nn=n_elements(sitelist) 
    156156for n=0, nn-1 do begin 
    157  
    158 ;; reading data from mooring 
    159  
    160     site=sitelist(n)  
     157; 
     158; reading data from mooring 
     159; 
     160    site=sitelist(n) 
    161161    csite=site 
    162162    print, csite 
    … …  
    164164    y=y_site_location(site) 
    165165    if (y ge 0. and y le 30.) then y=y+360. 
    166     dx=0.5  
    167     dy=0.5  
     166    dx=0.5 
     167    dy=0.5 
    168168    box=[y-dy, y+dy, x-dx, x+dx] 
    169169    read_variables_v2, csite,date1,date2,nsmooth, $ 
    170170         at, sw,rh,sst,wu,wv,ws,lh 
    171  
    172  
    173     ind=where(finite(sst))  
     171; 
     172; 
     173    ind=where(finite(sst)) 
    174174    valid=n_elements(ind) 
    175  
     175; 
    176176    if (valid ge 180) then begin 
    177  
    178       ;;  extracting the corrected and uncorrected ERAI data at the locations 
     177; 
     178      ;  extracting the corrected and uncorrected ERAI data at the locations 
    179179      nsmooth=1. 
    180  
     180; 
    181181      extract_flux_tropflux,unc,box, $ 
    182182        tropflux 
    183183      uncr=tropflux 
    184  
     184; 
    185185      extract_flux_tropflux,cor,box, $ 
    186186        tropflux 
    187187      corr=tropflux 
    188  
     188; 
    189189      extract_flux_tropflux,oaf,box, $ 
    190190        tropflux 
    191191      oafl=tropflux 
    192  
     192; 
    193193      extract_flux_tropflux,nce,box, $ 
    194194        tropflux 
    195195      ncep=tropflux 
    196  
     196; 
    197197      extract_flux_tropflux,sst_tmi,box, $ 
    198198        tropflux 
    199199      tmi=tropflux 
    200  
     200; 
    201201      extract_flux_tropflux,nce1,box, $ 
    202202        tropflux 
    203203      ncep1=tropflux 
    204  
    205  
    206       ind=where(finite(sst))  
    207       sst=sst(ind)  
    208       uncr_sst=uncr(ind)   
     204; 
     205; 
     206      ind=where(finite(sst)) 
     207      sst=sst(ind) 
     208      uncr_sst=uncr(ind) 
    209209      corr_sst=corr(ind) 
    210       oafl=oafl(ind)  
    211       ncep=ncep(ind)  
    212       tmi=tmi(ind)  
     210      oafl=oafl(ind) 
     211      ncep=ncep(ind) 
     212      tmi=tmi(ind) 
    213213      ncep1=ncep1(ind) 
    214214      mean_tao=total(sst,/nan)/n_elements(ind) 
    215  
     215; 
    216216      statistics_3var_v1, sst, uncr_sst, corr_sst, $ 
    217217         cor1, cor2, bias1, bias2, std1, std2, rmsd1, rmsd2 
    218  
     218; 
    219219      printf, 1, x, y, cor1, bias1, std1, rmsd1, mean_tao, format='(f6.2, 3x, f6.2, 3x, f5.2,3x,f5.2,3x,f4.2,3x,f4.2,3x,f6.2)' 
    220220      printf, 2, x, y, cor2, bias2, std2, rmsd2, mean_tao, format='(f6.2, 3x, f6.2, 3x, f5.2,3x,f5.2,3x,f4.2,3x,f4.2,3x,f6.2)' 
    221  
     221; 
    222222      statistics_3var_v1, sst, oafl, ncep, $ 
    223223         cor1, cor2, bias1, bias2, std1, std2, rmsd1, rmsd2 
    224224      printf, 3, x, y, cor1, bias1, std1, rmsd1, mean_tao, format='(f6.2, 3x, f6.2, 3x, f5.2,3x,f5.2,3x,f4.2,3x,f4.2,3x,f6.2)' 
    225225      printf, 4, x, y, cor2, bias2, std2, rmsd2, mean_tao, format='(f6.2, 3x, f6.2, 3x, f5.2,3x,f6.2,3x,f4.2,3x,f4.2,3x,f6.2)' 
    226  
     226; 
    227227      statistics_3var_v1, sst, tmi, ncep1, $ 
    228228         cor1, cor2, bias1, bias2, std1, std2, rmsd1, rmsd2 
    229229      printf, 5, x, y, cor1, bias1, std1, rmsd1, mean_tao, format='(f6.2, 3x, f6.2, 3x, f5.2,3x,f5.2,3x,f4.2,3x,f4.2,3x,f6.2)' 
    230230      printf, 6, x, y, cor2, bias2, std2, rmsd2, mean_tao, format='(f6.2, 3x, f6.2, 3x, f5.2,3x,f5.2,3x,f4.2,3x,f4.2,3x,f6.2)' 
    231  
     231; 
    232232  endif 
    233  
     233; 
    234234endfor 
    235235close,/all 
    236  
     236; 
    237237fi_sst_erai=project_id_env+'sst_2000_2009_erai_'+ocean+'.txt' 
    238238res=read_ascii(fi_sst_erai,data_start=1) 
    … …  
    240240lat=reform(ff(0,*)) 
    241241lon=reform(ff(1,*)) 
    242 cor_era=reform(ff(2,*))    
     242cor_era=reform(ff(2,*)) 
    243243cor_erai=total(cor_era)/n_elements(cor_era) 
    244 bias_era=reform(ff(3,*))   
     244bias_era=reform(ff(3,*)) 
    245245bias_erai=total(bias_era)/n_elements(bias_era) 
    246 std_era=reform(ff(4,*))    
     246std_era=reform(ff(4,*)) 
    247247std_erai=total(std_era)/n_elements(std_era) 
    248 rmsd_era=reform(ff(5,*))   
     248rmsd_era=reform(ff(5,*)) 
    249249rmsd_erai=total(rmsd_era)/n_elements(rmsd_era) 
    250 mean_tao=reform(ff(6,*))   
     250mean_tao=reform(ff(6,*)) 
    251251mean_erai=bias_era+mean_tao 
    252  
     252; 
    253253print, '' 
    254254print, 'ERAI' 
    … …  
    260260xyouts, 22.3,30.2, cstat, charsize=0.9 
    261261xyouts, 22.3,29.5, 'cor   bias   std   rmsd', charsize=0.9 
    262  
     262; 
    263263oplot, [22,31], [22,31] 
    264264ab=linfit(mean_tao, mean_erai,yfit=yfit) 
    265 a=float(ab(0))  
    266 b=float(ab(1)) 
    267 oplot, mean_tao, yfit, color=250, thick=2 
    268  
     265a=float(ab(0)) 
     266b=float(ab(1)) 
     267oplot, mean_tao, yfit, color=250, thick=2 
     268; 
    269269fi_sst_trop=project_id_env+'sst_2000_2009_trop_'+ocean+'.txt' 
    270270res=read_ascii(fi_sst_trop,data_start=1) 
    … …  
    272272lat=reform(ff(0,*)) 
    273273lon=reform(ff(1,*)) 
    274 cor_tro=reform(ff(2,*))    
     274cor_tro=reform(ff(2,*)) 
    275275cor_trop=total(cor_tro)/n_elements(cor_tro) 
    276 bias_tro=reform(ff(3,*))   
     276bias_tro=reform(ff(3,*)) 
    277277bias_trop=total(bias_tro)/n_elements(bias_tro) 
    278 std_tro=reform(ff(4,*))    
     278std_tro=reform(ff(4,*)) 
    279279std_trop=total(std_tro)/n_elements(std_tro) 
    280 rmsd_tro=reform(ff(5,*))   
     280rmsd_tro=reform(ff(5,*)) 
    281281rmsd_trop=total(rmsd_tro)/n_elements(rmsd_tro) 
    282 mean_tao=reform(ff(6,*))   
     282mean_tao=reform(ff(6,*)) 
    283283mean_trop=bias_tro+mean_tao 
    284  
     284; 
    285285print, '' 
    286286print, 'TropFlux' 
    287287print, cor_trop, bias_trop, std_trop, rmsd_trop 
    288288cstat=string(cor_trop, bias_trop, std_trop, rmsd_trop, format='(f4.2,1x,f6.2,1x,f4.2,1x,f4.2)') 
    289  
     289; 
    290290splot, mean_tao, mean_trop, title='SST - TAO Vs TropFlux', subtitle='', $ 
    291291     charsize=1.1, xtitle='TAO SST', ytitle='TropFlux SST', small=[2,3,2],/noer, psym=2, $ 
    … …  
    294294xyouts, 22.3,30.2, cstat, charsize=0.9 
    295295xyouts, 22.3,29.5, 'cor   bias   std   rmsd', charsize=0.9 
    296  
     296; 
    297297ab=linfit(mean_tao, mean_trop,yfit=yfit) 
    298 a=float(ab(0))  
    299 b=float(ab(1)) 
    300 oplot, mean_tao, yfit, color=250, thick=2 
    301  
     298a=float(ab(0)) 
     299b=float(ab(1)) 
     300oplot, mean_tao, yfit, color=250, thick=2 
     301; 
    302302fi_sst_oaflx=project_id_env+'sst_2000_2009_oaflx_'+ocean+'.txt' 
    303303res=read_ascii(fi_sst_oaflx,data_start=1) 
    … …  
    305305lat=reform(ff(0,*)) 
    306306lon=reform(ff(1,*)) 
    307 cor_oaf=reform(ff(2,*))    
     307cor_oaf=reform(ff(2,*)) 
    308308cor_oafl=total(cor_oaf)/n_elements(cor_oaf) 
    309 bias_oaf=reform(ff(3,*))   
     309bias_oaf=reform(ff(3,*)) 
    310310bias_oafl=total(bias_oaf)/n_elements(bias_oaf) 
    311 std_oaf=reform(ff(4,*))    
     311std_oaf=reform(ff(4,*)) 
    312312std_oafl=total(std_oaf)/n_elements(std_oaf) 
    313 rmsd_oaf=reform(ff(5,*))   
     313rmsd_oaf=reform(ff(5,*)) 
    314314rmsd_oafl=total(rmsd_oaf)/n_elements(rmsd_oaf) 
    315 mean_tao=reform(ff(6,*))   
     315mean_tao=reform(ff(6,*)) 
    316316mean_oafl=bias_oaf+mean_tao 
    317  
     317; 
    318318print, '' 
    319319print, 'OAFlux' 
    320320print, cor_oafl, bias_oafl, std_oafl, rmsd_oafl 
    321321cstat=string(cor_oafl, bias_oafl, std_oafl, rmsd_oafl, format='(f4.2,1x,f6.2,1x,f4.2,1x,f4.2)') 
    322  
     322; 
    323323splot, mean_tao, mean_oafl, title='SST - TAO Vs OAFlux', subtitle='', $ 
    324324     charsize=1.1, xtitle='TAO SST', ytitle='OAFlux SST', small=[2,3,3],/noer, psym=2, $ 
    … …  
    327327xyouts, 22.3,30.2, cstat, charsize=0.9 
    328328xyouts, 22.3,29.5, 'cor   bias   std   rmsd', charsize=0.9 
    329  
     329; 
    330330ab=linfit(mean_tao, mean_oafl,yfit=yfit) 
    331 a=float(ab(0))  
    332 b=float(ab(1)) 
    333 oplot, mean_tao, yfit, color=250, thick=2 
    334  
    335  
    336  
     331a=float(ab(0)) 
     332b=float(ab(1)) 
     333oplot, mean_tao, yfit, color=250, thick=2 
     334; 
     335; 
     336; 
    337337fi_sst_ncep=project_id_env+'sst_2000_2009_ncep_'+ocean+'.txt' 
    338338res=read_ascii(fi_sst_ncep,data_start=1) 
    … …  
    340340lat=reform(ff(0,*)) 
    341341lon=reform(ff(1,*)) 
    342 cor_nce=reform(ff(2,*))    
     342cor_nce=reform(ff(2,*)) 
    343343cor_ncep=total(cor_nce)/n_elements(cor_nce) 
    344 bias_nce=reform(ff(3,*))   
     344bias_nce=reform(ff(3,*)) 
    345345bias_ncep=total(bias_nce)/n_elements(bias_nce) 
    346 std_nce=reform(ff(4,*))    
     346std_nce=reform(ff(4,*)) 
    347347std_ncep=total(std_nce)/n_elements(std_nce) 
    348 rmsd_nce=reform(ff(5,*))   
     348rmsd_nce=reform(ff(5,*)) 
    349349rmsd_ncep=total(rmsd_nce)/n_elements(rmsd_nce) 
    350 mean_tao=reform(ff(6,*))   
     350mean_tao=reform(ff(6,*)) 
    351351mean_ncep=bias_nce+mean_tao 
    352  
     352; 
    353353print, '' 
    354354print, 'NCEP2' 
    355355print, cor_ncep, bias_ncep, std_ncep, rmsd_ncep 
    356356cstat=string(cor_ncep, bias_ncep, std_ncep, rmsd_ncep, format='(f4.2,1x,f6.2,1x,f4.2,1x,f4.2)') 
    357  
     357; 
    358358splot, mean_tao, mean_ncep, title='SST - TAO Vs NCEP2', subtitle='', $ 
    359359     charsize=1.1, xtitle='TAO SST', ytitle='NCEP2 SST', small=[2,3,4],/noer, psym=2, $ 
    … …  
    362362xyouts, 22.3,30.2, cstat, charsize=0.9 
    363363xyouts, 22.3,29.5, 'cor   bias   std   rmsd', charsize=0.9 
    364  
     364; 
    365365ab=linfit(mean_tao, mean_ncep,yfit=yfit) 
    366 a=float(ab(0))  
    367 b=float(ab(1)) 
    368 oplot, mean_tao, yfit, color=250, thick=2 
    369  
    370  
     366a=float(ab(0)) 
     367b=float(ab(1)) 
     368oplot, mean_tao, yfit, color=250, thick=2 
     369; 
     370; 
    371371fi_sst_tmi=project_id_env+'sst_2000_2009_tmi_'+ocean+'.txt' 
    372372res=read_ascii(fi_sst_tmi,data_start=1) 
    … …  
    374374lat=reform(ff(0,*)) 
    375375lon=reform(ff(1,*)) 
    376 cor_tm=reform(ff(2,*))    
     376cor_tm=reform(ff(2,*)) 
    377377cor_tmi=total(cor_tm)/n_elements(cor_tm) 
    378 bias_tm=reform(ff(3,*))   
     378bias_tm=reform(ff(3,*)) 
    379379bias_tmi=total(bias_tm)/n_elements(bias_tm) 
    380 std_tm=reform(ff(4,*))    
     380std_tm=reform(ff(4,*)) 
    381381std_tmi=total(std_tm)/n_elements(std_tm) 
    382 rmsd_tm=reform(ff(5,*))   
     382rmsd_tm=reform(ff(5,*)) 
    383383rmsd_tmi=total(rmsd_tm)/n_elements(rmsd_tm) 
    384 mean_tao=reform(ff(6,*))   
     384mean_tao=reform(ff(6,*)) 
    385385mean_tmi=bias_tm+mean_tao 
    386  
     386; 
    387387print, '' 
    388388print, 'TMI' 
    389389print, cor_tmi, bias_tmi, std_tmi, rmsd_tmi 
    390390cstat=string(cor_tmi, bias_tmi, std_tmi, rmsd_tmi, format='(f4.2,1x,f6.2,1x,f4.2,1x,f4.2)') 
    391  
     391; 
    392392splot, mean_tao, mean_tmi, title='SST - TAO Vs TMI', subtitle='', $ 
    393393     charsize=1.1, xtitle='TAO SST', ytitle='TMI SST', small=[2,3,5],/noer, psym=2, $ 
    … …  
    396396xyouts, 22.3,30.2, cstat, charsize=0.9 
    397397xyouts, 22.3,29.5, 'cor   bias   std   rmsd', charsize=0.9 
    398  
     398; 
    399399ab=linfit(mean_tao, mean_tmi,yfit=yfit) 
    400 a=float(ab(0))  
    401 b=float(ab(1)) 
    402 oplot, mean_tao, yfit, color=250, thick=2 
    403  
     400a=float(ab(0)) 
     401b=float(ab(1)) 
     402oplot, mean_tao, yfit, color=250, thick=2 
     403; 
    404404fi_sst_ncep1=project_id_env+'sst_2000_2009_ncep1_'+ocean+'.txt' 
    405405res=read_ascii(fi_sst_ncep1,data_start=1) 
    … …  
    407407lat=reform(ff(0,*)) 
    408408lon=reform(ff(1,*)) 
    409 cor_nce=reform(ff(2,*))    
     409cor_nce=reform(ff(2,*)) 
    410410cor_ncep=total(cor_nce)/n_elements(cor_nce) 
    411 bias_nce=reform(ff(3,*))   
     411bias_nce=reform(ff(3,*)) 
    412412bias_ncep=total(bias_nce)/n_elements(bias_nce) 
    413 std_nce=reform(ff(4,*))    
     413std_nce=reform(ff(4,*)) 
    414414std_ncep=total(std_nce)/n_elements(std_nce) 
    415 rmsd_nce=reform(ff(5,*))   
     415rmsd_nce=reform(ff(5,*)) 
    416416rmsd_ncep=total(rmsd_nce)/n_elements(rmsd_nce) 
    417 mean_tao=reform(ff(6,*))   
     417mean_tao=reform(ff(6,*)) 
    418418mean_ncep=bias_nce+mean_tao 
    419  
     419; 
    420420print, '' 
    421421print, 'NCEP1' 
    422422print, cor_ncep, bias_ncep, std_ncep, rmsd_ncep 
    423423cstat=string(cor_ncep, bias_ncep, std_ncep, rmsd_ncep, format='(f4.2,1x,f6.2,1x,f4.2,1x,f4.2)') 
    424  
     424; 
    425425splot, mean_tao, mean_ncep, title='SST - TAO Vs NCEP_NCAR', subtitle='', $ 
    426426     charsize=1.1, xtitle='TAO SST', ytitle='NCEP SST', small=[2,3,6],/noer, psym=2, $ 
    … …  
    429429xyouts, 22.3,30.2, cstat, charsize=0.9 
    430430xyouts, 22.3,29.5, 'cor   bias   std   rmsd', charsize=0.9 
    431  
     431; 
    432432ab=linfit(mean_tao, mean_ncep,yfit=yfit) 
    433 a=float(ab(0))  
    434 b=float(ab(1)) 
    435 oplot, mean_tao, yfit, color=250, thick=2 
    436  
     433a=float(ab(0)) 
     434b=float(ab(1)) 
     435oplot, mean_tao, yfit, color=250, thick=2 
     436; 
    437437closeps 
    438  
     438; 
    439439end 

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

    r94 r97  
    8484reinitplt, /z,/invert 
    8585key_portrait = 1 
    86  
     86; 
    8787openps, FILENAME = project_od_env+'ws_validation_scatter_2000_2009_'+ocean+'.ps' 
    88 ;; Give the location of mooring for validation of basic meteorological variables 
    89  
     88; Give the location of mooring for validation of basic meteorological variables 
     89; 
    9090sitelist=['8s67e','12s55e', '8s55e', '8s80.5e', '1.5s80.5e', '0n80.5e', '1.5n80.5e', '1.5s90e', $ 
    9191           '0n90e', '1.5n90e', '4n90e','8n90e','12n90e', '15n90e', '5s95e', $ 
    … …  
    9999          '21n23w', '4n23w', '4n38w', '6s10w', '8n38w', '8s30w'] 
    100100ocean='global' 
    101  
     101; 
    102102sitelist=['8s67e','12s55e', '8s55e', '8s80.5e', '1.5s80.5e', '0n80.5e', '1.5n80.5e', '1.5s90e', $ 
    103103           '0n90e', '1.5n90e', '4n90e','8n90e','12n90e', '15n90e', '5s95e'] 
    104104ocean='IO' 
    105  
     105; 
    106106sitelist=['8s165e', '8s180w',  '8s155w', '8s125w', '8s110w', '8s95w',  '5s156e', '5s165e', '5s180w', '5s170w', $ 
    107107          '5s155w', '5s140w', '5s125w', '5s110w', '5s95w', '2s156e', '2s165e', '2s180w', '2s170w', '2s155w', '2s140w', $ 
    … …  
    111111          '8n156e', '8n165e', '8n180w', '8n170w', '9n140w', '8n125w', '8n110w', '8n95w'] 
    112112ocean='Pac' 
    113  
     113; 
    114114sitelist=['8s165e', '8s180w',  '8s155w','5s156e', '5s165e', '5s180w', '5s170w','2s156e', '2s165e', '2s180w', $ 
    115115          '2s170w','0n147e', '0n156e', '0n165e', '0n180w', '0n170w', '2n147e', '2n156e', '2n165e', '2n180w', $ 
    … …  
    117117          '8n125w', '8n110w', '8n95w'] 
    118118ocean='Pac_warmpool' 
    119  
     119; 
    120120sitelist=['8s125w', '8s110w', '8s95w','5s155w', '5s140w', '5s125w', '5s110w', '5s95w','2s155w', '2s140w', $ 
    121121          '2s125w', '2s110w', '2s95w', '0n155w', '0n140w', '0n125w', '0n110w', '0n95w', '2n155w', '2n140w', $ 
    122122          '2n125w', '2n110w', '2n95w',  '5n155w', '5n140w', '5n125w', '5n110w', '5n95w'] 
    123123ocean='Pac_coldtongue' 
    124  
    125  
     124; 
     125; 
    126126;sitelist=['0n0e', '0n10w', '0n23w', '0n35w', '10s10w', '12n23w', '12n38w', '14s32w', '15n38w', '19s34w', '20n38w', $ 
    127127;          '21n23w', '4n23w', '4n38w', '6s10w', '8n38w', '8s30w'] 
    128128;ocean='AO' 
    129  
     129; 
    130130;sitelist=['0n0e','0n35w', '4n23w', '4n38w', '8n38w'] 
    131131;ocean='AO_warmpool' 
    132  
     132; 
    133133;sitelist=['0n10w','0n23w','10s10w','12n23w','12n38w','14s32w','15n38w', '19s34w','20n38w', $ 
    134134;          '21n23w', '6s10w', '8s30w'] 
    135135;ocean='AO_coldtongue' 
    136  
     136; 
    137137nsmooth=1 
    138 ;;   This program will create the following text files with statistics of respective variables 
     138;   This program will create the following text files with statistics of respective variables 
    139139close,/all 
    140  
     140; 
    141141fi_ws_erai=project_id_env+'ws_2000_2009_erai_'+ocean+'.txt' 
    142142openw,1,fi_ws_erai 
    … …  
    151151fi_ws_ncep1=project_id_env+'ws_2000_2009_ncep1_'+ocean+'.txt' 
    152152openw,6,fi_ws_ncep1 
    153  
    154  
     153; 
     154; 
    155155printf,1, 'x     y      cor    bias     std     rmsd      mean_tao' 
    156156printf,2, 'x     y      cor    bias     std     rmsd      mean_tao' 
    … …  
    159159printf,5, 'x     y      cor    bias     std     rmsd      mean_tao' 
    160160printf,6, 'x     y      cor    bias     std     rmsd      mean_tao' 
    161  
    162 ;; first reading the whole ERAI uncorrected and corrected data 
    163 ;; date1=20000101  
    164 ;; date2=20090931 
    165  
     161; 
     162; first reading the whole ERAI uncorrected and corrected data 
     163; date1=20000101 
     164; date2=20090931 
     165; 
    166166file=project_id_env+'erai_ws_19890101_20091231_oafluxgrid.nc' 
    167167initncdf, file 
    … …  
    170170;unc=sqrt(u*u+v*v) 
    171171;help, unc 
    172  
     172; 
    173173;save, unc, cor, oaf, nce, ws_tmi, nce1, filename="ws_era_trop_oaf_nce_qscat_2000_2009_global.idl" 
    174174restore, file="/Users/pkb/work/MY_SAXO/ws_era_trop_oaf_nce_qscat_2000_2009_global.idl" 
    175175help, unc, cor, oaf, nce, ws_tmi, nce1 
    176  
     176; 
    177177nn=n_elements(sitelist) 
    178178for n=0, nn-1 do begin 
    179  
    180 ;; reading data from mooring 
    181  
    182     site=sitelist(n)  
     179; 
     180; reading data from mooring 
     181; 
     182    site=sitelist(n) 
    183183    csite=site 
    184184    print, csite 
    … …  
    186186    y=y_site_location(site) 
    187187    if (y ge 0. and y le 30.) then y=y+360. 
    188     dx=0.5  
    189     dy=0.5  
     188    dx=0.5 
     189    dy=0.5 
    190190    box=[y-dy, y+dy, x-dx, x+dx] 
    191191    read_variables_v2, csite,date1,date2,nsmooth, $ 
    192192         at, sw,rh,sst,wu,wv,ws, lh 
    193  
     193; 
    194194    ws=alog(10./0.000152)/alog(4./0.000152)*ws 
    195  
    196 ;;  extracting the corrected and uncorrected ERAI data at the locations 
     195; 
     196;  extracting the corrected and uncorrected ERAI data at the locations 
    197197    nsmooth=1. 
    198  
     198; 
    199199    extract_flux_tropflux,unc,box, $ 
    200200        tropflux 
    201201    uncr=tropflux 
    202  
     202; 
    203203     extract_flux_tropflux,cor,box, $ 
    204204        tropflux 
    205205     corr=tropflux 
    206  
     206; 
    207207     extract_flux_tropflux,oaf,box, $ 
    208208        tropflux 
    209209     oafl=tropflux 
    210  
     210; 
    211211     extract_flux_tropflux,nce,box, $ 
    212212        tropflux 
    213213     ncep=tropflux 
    214  
     214; 
    215215     extract_flux_tropflux,ws_tmi,box, $ 
    216216        tropflux 
    217217     tmi=tropflux 
    218  
     218; 
    219219     extract_flux_tropflux,nce1,box, $ 
    220220        tropflux 
    221221     ncep1=tropflux 
    222  
    223     ind=where(finite(ws))  
    224     ws=ws(ind)  
    225     uncr_ws=uncr(ind)   
     222; 
     223    ind=where(finite(ws)) 
     224    ws=ws(ind) 
     225    uncr_ws=uncr(ind) 
    226226    corr_ws=corr(ind) 
    227     oafl=oafl(ind)  
    228     ncep=ncep(ind)  
    229     tmi=tmi(ind)  
     227    oafl=oafl(ind) 
     228    ncep=ncep(ind) 
     229    tmi=tmi(ind) 
    230230    ncep1=ncep1(ind) 
    231  
     231; 
    232232    mean_tao=total(ws)/n_elements(ws) 
    233  
     233; 
    234234    statistics_3var_v1, ws, uncr_ws, corr_ws, $ 
    235235         cor1, cor2, bias1, bias2, std1, std2, rmsd1, rmsd2 
    236  
     236; 
    237237    printf, 1, x, y, cor1, bias1, std1, rmsd1, mean_tao, format='(f6.2, 3x, f6.2, 3x, f5.2,3x,f5.2,3x,f4.2,3x,f4.2,3x,f5.2)' 
    238238    printf, 2, x, y, cor2, bias2, std2, rmsd2, mean_tao, format='(f6.2, 3x, f6.2, 3x, f5.2,3x,f5.2,3x,f4.2,3x,f4.2,3x,f5.2)' 
    239  
     239; 
    240240    statistics_3var_v1, ws, oafl, ncep, $ 
    241241         cor1, cor2, bias1, bias2, std1, std2, rmsd1, rmsd2 
    242242    printf, 3, x, y, cor1, bias1, std1, rmsd1, mean_tao, format='(f6.2, 3x, f6.2, 3x, f5.2,3x,f5.2,3x,f4.2,3x,f4.2,3x,f5.2)' 
    243243    printf, 4, x, y, cor2, bias2, std2, rmsd2, mean_tao, format='(f6.2, 3x, f6.2, 3x, f5.2,3x,f6.2,3x,f4.2,3x,f4.2,3x,f5.2)' 
    244  
     244; 
    245245    statistics_3var_v1, ws, tmi, ncep1, $ 
    246246         cor1, cor2, bias1, bias2, std1, std2, rmsd1, rmsd2 
    247247    printf, 5, x, y, cor1, bias1, std1, rmsd1, mean_tao, format='(f6.2, 3x, f6.2, 3x, f5.2,3x,f5.2,3x,f4.2,3x,f4.2,3x,f5.2)' 
    248248    printf, 6, x, y, cor2, bias2, std2, rmsd2, mean_tao, format='(f6.2, 3x, f6.2, 3x, f5.2,3x,f5.2,3x,f4.2,3x,f4.2,3x,f5.2)' 
    249  
     249; 
    250250endfor 
    251251close,/all 
    … …  
    255255lat=reform(ff(0,*)) 
    256256lon=reform(ff(1,*)) 
    257 cor_era=reform(ff(2,*))    
     257cor_era=reform(ff(2,*)) 
    258258cor_erai=total(cor_era)/n_elements(cor_era) 
    259 bias_era=reform(ff(3,*))   
     259bias_era=reform(ff(3,*)) 
    260260bias_erai=total(bias_era)/n_elements(bias_era) 
    261 std_era=reform(ff(4,*))    
     261std_era=reform(ff(4,*)) 
    262262std_erai=total(std_era)/n_elements(std_era) 
    263 rmsd_era=reform(ff(5,*))   
     263rmsd_era=reform(ff(5,*)) 
    264264rmsd_erai=total(rmsd_era)/n_elements(rmsd_era) 
    265 mean_tao=reform(ff(6,*))   
     265mean_tao=reform(ff(6,*)) 
    266266mean_erai=bias_era+mean_tao 
    267  
     267; 
    268268print, '' 
    269269print, 'ERAI' 
    … …  
    275275xyouts, 2.5,9.4, cstat, charsize=0.9 
    276276xyouts, 2.5,8.5, 'cor   bias   std   rmsd', charsize=0.9 
    277  
     277; 
    278278oplot, [2,10], [2,10] 
    279279ab=linfit(mean_tao, mean_erai,yfit=yfit) 
    280 a=float(ab(0))  
    281 b=float(ab(1)) 
    282 oplot, mean_tao, yfit, color=250, thick=2 
    283  
     280a=float(ab(0)) 
     281b=float(ab(1)) 
     282oplot, mean_tao, yfit, color=250, thick=2 
     283; 
    284284fi_ws_trop=project_id_env+'ws_2000_2009_trop_'+ocean+'.txt' 
    285285res=read_ascii(fi_ws_trop,data_start=1) 
    … …  
    287287lat=reform(ff(0,*)) 
    288288lon=reform(ff(1,*)) 
    289 cor_tro=reform(ff(2,*))    
     289cor_tro=reform(ff(2,*)) 
    290290cor_trop=total(cor_tro)/n_elements(cor_tro) 
    291 bias_tro=reform(ff(3,*))   
     291bias_tro=reform(ff(3,*)) 
    292292bias_trop=total(bias_tro)/n_elements(bias_tro) 
    293 std_tro=reform(ff(4,*))    
     293std_tro=reform(ff(4,*)) 
    294294std_trop=total(std_tro)/n_elements(std_tro) 
    295 rmsd_tro=reform(ff(5,*))   
     295rmsd_tro=reform(ff(5,*)) 
    296296rmsd_trop=total(rmsd_tro)/n_elements(rmsd_tro) 
    297 mean_tao=reform(ff(6,*))   
     297mean_tao=reform(ff(6,*)) 
    298298mean_trop=bias_tro+mean_tao 
    299  
     299; 
    300300print, '' 
    301301print, 'TropFlux' 
    302302print, cor_trop, bias_trop, std_trop, rmsd_trop 
    303303cstat=string(cor_trop, bias_trop, std_trop, rmsd_trop, format='(f4.2,1x,f6.2,1x,f4.2,1x,f4.2)') 
    304  
     304; 
    305305splot, mean_tao, mean_trop, title='WS - TAO Vs TropFlux', subtitle='', $ 
    306306     charsize=1.1, xtitle='TAO WS', ytitle='TropFlux WS', small=[2,3,2],/noer, psym=2, $ 
    … …  
    309309xyouts, 2.5,9.4, cstat, charsize=0.9 
    310310xyouts, 2.5,8.5, 'cor   bias   std   rmsd', charsize=0.9 
    311  
     311; 
    312312ab=linfit(mean_tao, mean_trop,yfit=yfit) 
    313 a=float(ab(0))  
    314 b=float(ab(1)) 
    315 oplot, mean_tao, yfit, color=250, thick=2 
    316  
     313a=float(ab(0)) 
     314b=float(ab(1)) 
     315oplot, mean_tao, yfit, color=250, thick=2 
     316; 
    317317fi_ws_oaflx=project_id_env+'ws_2000_2009_oaflx_'+ocean+'.txt' 
    318318res=read_ascii(fi_ws_oaflx,data_start=1) 
    … …  
    320320lat=reform(ff(0,*)) 
    321321lon=reform(ff(1,*)) 
    322 cor_oaf=reform(ff(2,*))    
     322cor_oaf=reform(ff(2,*)) 
    323323cor_oafl=total(cor_oaf)/n_elements(cor_oaf) 
    324 bias_oaf=reform(ff(3,*))   
     324bias_oaf=reform(ff(3,*)) 
    325325bias_oafl=total(bias_oaf)/n_elements(bias_oaf) 
    326 std_oaf=reform(ff(4,*))    
     326std_oaf=reform(ff(4,*)) 
    327327std_oafl=total(std_oaf)/n_elements(std_oaf) 
    328 rmsd_oaf=reform(ff(5,*))   
     328rmsd_oaf=reform(ff(5,*)) 
    329329rmsd_oafl=total(rmsd_oaf)/n_elements(rmsd_oaf) 
    330 mean_tao=reform(ff(6,*))   
     330mean_tao=reform(ff(6,*)) 
    331331mean_oafl=bias_oaf+mean_tao 
    332  
     332; 
    333333print, '' 
    334334print, 'OAFlux' 
    335335print, cor_oafl, bias_oafl, std_oafl, rmsd_oafl 
    336336cstat=string(cor_oafl, bias_oafl, std_oafl, rmsd_oafl, format='(f4.2,1x,f6.2,1x,f4.2,1x,f4.2)') 
    337  
     337; 
    338338splot, mean_tao, mean_oafl, title='WS - TAO Vs OAFlux', subtitle='', $ 
    339339     charsize=1.1, xtitle='TAO WS', ytitle='OAFlux WS', small=[2,3,3],/noer, psym=2, $ 
    … …  
    342342xyouts, 2.5,9.4, cstat, charsize=0.9 
    343343xyouts, 2.5,8.5, 'cor   bias   std   rmsd', charsize=0.9 
    344  
     344; 
    345345ab=linfit(mean_tao, mean_oafl,yfit=yfit) 
    346 a=float(ab(0))  
    347 b=float(ab(1)) 
    348 oplot, mean_tao, yfit, color=250, thick=2 
    349  
    350  
    351  
     346a=float(ab(0)) 
     347b=float(ab(1)) 
     348oplot, mean_tao, yfit, color=250, thick=2 
     349; 
     350; 
     351; 
    352352fi_ws_ncep=project_id_env+'ws_2000_2009_ncep_'+ocean+'.txt' 
    353353res=read_ascii(fi_ws_ncep,data_start=1) 
    … …  
    355355lat=reform(ff(0,*)) 
    356356lon=reform(ff(1,*)) 
    357 cor_nce=reform(ff(2,*))    
     357cor_nce=reform(ff(2,*)) 
    358358cor_ncep=total(cor_nce)/n_elements(cor_nce) 
    359 bias_nce=reform(ff(3,*))   
     359bias_nce=reform(ff(3,*)) 
    360360bias_ncep=total(bias_nce)/n_elements(bias_nce) 
    361 std_nce=reform(ff(4,*))    
     361std_nce=reform(ff(4,*)) 
    362362std_ncep=total(std_nce)/n_elements(std_nce) 
    363 rmsd_nce=reform(ff(5,*))   
     363rmsd_nce=reform(ff(5,*)) 
    364364rmsd_ncep=total(rmsd_nce)/n_elements(rmsd_nce) 
    365 mean_tao=reform(ff(6,*))   
     365mean_tao=reform(ff(6,*)) 
    366366mean_ncep=bias_nce+mean_tao 
    367  
     367; 
    368368print, '' 
    369369print, 'NCEP2' 
    370370print, cor_ncep, bias_ncep, std_ncep, rmsd_ncep 
    371371cstat=string(cor_ncep, bias_ncep, std_ncep, rmsd_ncep, format='(f4.2,1x,f6.2,1x,f4.2,1x,f4.2)') 
    372  
     372; 
    373373splot, mean_tao, mean_ncep, title='WS - TAO Vs NCEP2', subtitle='', $ 
    374374     charsize=1.1, xtitle='TAO WS', ytitle='NCEP2 WS', small=[2,3,4],/noer, psym=2, $ 
    … …  
    377377xyouts, 2.5,9.4, cstat, charsize=0.9 
    378378xyouts, 2.5,8.5, 'cor   bias   std   rmsd', charsize=0.9 
    379  
     379; 
    380380ab=linfit(mean_tao, mean_ncep,yfit=yfit) 
    381 a=float(ab(0))  
    382 b=float(ab(1)) 
    383 oplot, mean_tao, yfit, color=250, thick=2 
    384  
     381a=float(ab(0)) 
     382b=float(ab(1)) 
     383oplot, mean_tao, yfit, color=250, thick=2 
     384; 
    385385fi_ws_tmi=project_id_env+'ws_2000_2009_tmi_'+ocean+'.txt' 
    386386res=read_ascii(fi_ws_tmi,data_start=1) 
    … …  
    388388lat=reform(ff(0,*)) 
    389389lon=reform(ff(1,*)) 
    390 cor_tm=reform(ff(2,*))    
     390cor_tm=reform(ff(2,*)) 
    391391cor_tmi=total(cor_tm)/n_elements(cor_tm) 
    392 bias_tm=reform(ff(3,*))   
     392bias_tm=reform(ff(3,*)) 
    393393bias_tmi=total(bias_tm)/n_elements(bias_tm) 
    394 std_tm=reform(ff(4,*))    
     394std_tm=reform(ff(4,*)) 
    395395std_tmi=total(std_tm)/n_elements(std_tm) 
    396 rmsd_tm=reform(ff(5,*))   
     396rmsd_tm=reform(ff(5,*)) 
    397397rmsd_tmi=total(rmsd_tm)/n_elements(rmsd_tm) 
    398 mean_tao=reform(ff(6,*))   
     398mean_tao=reform(ff(6,*)) 
    399399mean_tmi=bias_tm+mean_tao 
    400  
     400; 
    401401print, '' 
    402402print, 'Qscat' 
    403403print, cor_tmi, bias_tmi, std_tmi, rmsd_tmi 
    404404cstat=string(cor_tmi, bias_tmi, std_tmi, rmsd_tmi, format='(f4.2,1x,f6.2,1x,f4.2,1x,f4.2)') 
    405  
     405; 
    406406splot, mean_tao, mean_tmi, title='WS - TAO Vs Qscat', subtitle='', $ 
    407407     charsize=1.1, xtitle='TAO WS', ytitle='TMI WS', small=[2,3,5],/noer, psym=2, $ 
    … …  
    410410xyouts, 2.5,9.4, cstat, charsize=0.9 
    411411xyouts, 2.5,8.5, 'cor   bias   std   rmsd', charsize=0.9 
    412  
     412; 
    413413ab=linfit(mean_tao, mean_tmi,yfit=yfit) 
    414 a=float(ab(0))  
    415 b=float(ab(1)) 
    416 oplot, mean_tao, yfit, color=250, thick=2 
    417  
    418  
     414a=float(ab(0)) 
     415b=float(ab(1)) 
     416oplot, mean_tao, yfit, color=250, thick=2 
     417; 
     418; 
    419419fi_ws_ncep1=project_id_env+'ws_2000_2009_ncep1_'+ocean+'.txt' 
    420420res=read_ascii(fi_ws_ncep1,data_start=1) 
    … …  
    422422lat=reform(ff(0,*)) 
    423423lon=reform(ff(1,*)) 
    424 cor_nce=reform(ff(2,*))    
     424cor_nce=reform(ff(2,*)) 
    425425cor_ncep=total(cor_nce)/n_elements(cor_nce) 
    426 bias_nce=reform(ff(3,*))   
     426bias_nce=reform(ff(3,*)) 
    427427bias_ncep=total(bias_nce)/n_elements(bias_nce) 
    428 std_nce=reform(ff(4,*))    
     428std_nce=reform(ff(4,*)) 
    429429std_ncep=total(std_nce)/n_elements(std_nce) 
    430 rmsd_nce=reform(ff(5,*))   
     430rmsd_nce=reform(ff(5,*)) 
    431431rmsd_ncep=total(rmsd_nce)/n_elements(rmsd_nce) 
    432 mean_tao=reform(ff(6,*))   
     432mean_tao=reform(ff(6,*)) 
    433433mean_ncep=bias_nce+mean_tao 
    434  
     434; 
    435435print, '' 
    436436print, 'NCEP' 
    437437print, cor_ncep, bias_ncep, std_ncep, rmsd_ncep 
    438438cstat=string(cor_ncep, bias_ncep, std_ncep, rmsd_ncep, format='(f4.2,1x,f6.2,1x,f4.2,1x,f4.2)') 
    439  
     439; 
    440440splot, mean_tao, mean_ncep, title='WS - TAO Vs NCEP', subtitle='', $ 
    441441     charsize=1.1, xtitle='TAO WS', ytitle='NCEP WS', small=[2,3,6],/noer, psym=2, $ 
    … …  
    444444xyouts, 2.5,9.4, cstat, charsize=0.9 
    445445xyouts, 2.5,8.5, 'cor   bias   std   rmsd', charsize=0.9 
    446  
     446; 
    447447ab=linfit(mean_tao, mean_ncep,yfit=yfit) 
    448 a=float(ab(0))  
    449 b=float(ab(1)) 
    450 oplot, mean_tao, yfit, color=250, thick=2 
    451  
     448a=float(ab(0)) 
     449b=float(ab(1)) 
     450oplot, mean_tao, yfit, color=250, thick=2 
     451; 
    452452closeps 
    453  
     453; 
    454454end 

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

    r94 r97  
    9393reinitplt, /z,/invert 
    9494key_portrait = 1 
    95  
     95; 
    9696openps, FILENAME = project_od_env+'lhf_validation_scatter_2000_2009.ps' 
    97  
    98 ;; evaluation is done for 20000101 - 20091231 period 
    99 ;; location of moorings 
    100  
    101  
     97; 
     98; evaluation is done for 20000101 - 20091231 period 
     99; location of moorings 
     100; 
     101; 
    102102sitelist=['8s67e','12s55e', '8s55e', '8s80.5e', '1.5s80.5e', '0n80.5e', '1.5n80.5e', '1.5s90e', $ 
    103103           '0n90e', '1.5n90e', '4n90e','8n90e','12n90e', '15n90e', '5s95e', $ 
    … …  
    110110          '0n0e', '0n10w', '0n23w', '0n35w', '10s10w', '12n23w', '12n38w', '14s32w', '15n38w', '19s34w', '20n38w', $ 
    111111          '21n23w', '4n23w', '4n38w', '6s10w', '8n38w', '8s30w'] 
    112  
     112; 
    113113ocean='global' 
    114  
    115 ;;   This program will create the following text files with statistics of respective variables 
     114; 
     115;   This program will create the following text files with statistics of respective variables 
    116116close,/all 
    117  
     117; 
    118118fi_lhf_erai=project_id_env+'lhf_2000_2009_erai_v52.txt' 
    119119openw,1,fi_lhf_erai 
    … …  
    126126fi_lhf_ncep1=project_id_env+'lhf_2000_2009_ncep1_v52.txt' 
    127127openw,5,fi_lhf_ncep1 
    128  
    129  
     128; 
     129; 
    130130printf,1, 'x     y      cor    bias     std     rmsd      mean_tao' 
    131131printf,2, 'x     y      cor    bias     std     rmsd      mean_tao' 
    132132printf,3, 'x     y      cor    bias     std     rmsd      mean_tao' 
    133133printf,4, 'x     y      cor    bias     std     rmsd      mean_tao' 
    134  
    135 ;; first reading the whole ERAI uncorrected and corrected data 
    136  
     134; 
     135; first reading the whole ERAI uncorrected and corrected data 
     136; 
    137137file=project_id_env+'erai_lhf_19890101_20091231_oafluxgrid.nc' 
    138138initncdf, file 
    139139unc=read_ncdf('lhf',date1,date2,file=file,/nostr) 
    140140help, unc 
    141  
     141; 
    142142file=project_id_env+"TropFlux_19890101_20091231.nc" 
    143143initncdf, file 
    … …  
    145145cor=-1*cor 
    146146help, cor 
    147  
     147; 
    148148file=project_id_env+'lhf_oafluxgrid_1985_2009.nc' 
    149149initncdf, file 
    150150oaf=read_ncdf("lhf", date1, date2, file=file,/nostr) 
    151151help, oaf 
    152  
     152; 
    153153fi=project_id_env+'lhf_ncep2_oafluxgrid_19890101_20091231.nc' 
    154154initncdf, fi 
    155155nce=read_ncdf("lhf", date1, date2, file=fi,/nostr) 
    156156help, nce 
    157  
     157; 
    158158file=project_id_env+'fluxe_ncep1_19890101_20091231.nc' 
    159159initncdf, file 
    160160nce1=-1*read_ncdf("lhf", date1, date2, file=file,/nostr) 
    161161help, nce1 
    162  
     162; 
    163163nsmooth=1. 
    164164nn=n_elements(sitelist) 
    165165for n=0, nn-1 do begin 
    166  
    167 ;; reading data from mooring 
    168  
    169     site=sitelist(n)  
     166; 
     167; reading data from mooring 
     168; 
     169    site=sitelist(n) 
    170170    csite=site 
    171171    print, csite 
    … …  
    173173    y=y_site_location(site) 
    174174    if (y ge 0. and y le 30.) then y=y+360. 
    175     dx=0.5  
    176     dy=0.5  
     175    dx=0.5 
     176    dy=0.5 
    177177    box=[y-dy, y+dy, x-dx, x+dx] 
    178178    read_variables_v2, csite,date1,date2,nsmooth, $ 
    179179         at, sw,rh,sst,wu,wv,ws,lh 
    180  
    181     lhf=lh  
    182     ind=where(finite(lhf))  
     180; 
     181    lhf=lh 
     182    ind=where(finite(lhf)) 
    183183    valid=n_elements(ind) 
    184  
     184; 
    185185    if (valid ge 180. ) then begin 
    186  
    187         extract_flux_tropflux,unc,box, $ 
    188                 tropflux 
    189         uncr=tropflux 
    190  
    191         extract_flux_tropflux,cor,box, $ 
    192                  tropflux 
    193         corr=tropflux 
    194  
    195         extract_flux_tropflux,oaf,box, $ 
    196                 tropflux 
    197         oafl=tropflux 
    198  
    199         extract_flux_tropflux,nce,box, $ 
    200                 tropflux 
    201         ncep=tropflux 
    202  
     186; 
     187        extract_flux_tropflux,unc,box, $ 
     188        tropflux 
     189        uncr=tropflux 
     190; 
     191        extract_flux_tropflux,cor,box, $ 
     192        tropflux 
     193        corr=tropflux 
     194; 
     195        extract_flux_tropflux,oaf,box, $ 
     196        tropflux 
     197        oafl=tropflux 
     198; 
     199        extract_flux_tropflux,nce,box, $ 
     200        tropflux 
     201        ncep=tropflux 
     202; 
    203203        extract_flux_tropflux,nce1,box, $ 
    204204                tropflux 
    205205        ncep1=tropflux 
    206  
    207  
    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)  
     206; 
     207        ind=where(finite(lhf)) 
     208        lhf=lhf(ind) 
     209        uncr_lhf=uncr(ind) 
     210        corr_lhf=corr(ind) 
     211        oafl=oafl(ind) 
     212        ncep=ncep(ind) 
    214213        ncep1=ncep1(ind) 
    215214        mean_tao=total(lhf,/nan)/n_elements(lhf) 
    216  
    217         statistics_3var_v1, lhf, uncr_lhf, corr_lhf, $ 
    218                  cor1, cor2, bias1, bias2, std1, std2, rmsd1, rmsd2 
    219  
    220         printf, 1, x, y, cor1, bias1, std1, rmsd1, mean_tao, format='(f6.2, 3x, f6.2, 3x, f4.2,3x,f7.2,3x,f4.2,3x,f5.2,3x,f6.2)' 
    221         printf, 2, x, y, cor2, bias2, std2, rmsd2, mean_tao, format='(f6.2, 3x, f6.2, 3x, f4.2,3x,f7.2,3x,f4.2,3x,f5.2,3x,f6.2)' 
    222  
    223         statistics_3var_v1, lhf, oafl, ncep, $ 
    224                 cor1, cor2, bias1, bias2, std1, std2, rmsd1, rmsd2 
    225         printf, 3, x, y, cor1, bias1, std1, rmsd1, mean_tao,format='(f6.2, 3x, f6.2, 3x, f4.2,3x,f7.2,3x,f4.2,3x,f5.2,3x,f6.2)' 
    226         printf, 4, x, y, cor2, bias2, std2, rmsd2, mean_tao,format='(f6.2, 3x, f6.2, 3x, f4.2,3x,f7.2,3x,f4.2,3x,f5.2,3x,f6.2)' 
    227  
     215; 
     216        statistics_3var_v1, lhf, uncr_lhf, corr_lhf, $ 
     217        cor1, cor2, bias1, bias2, std1, std2, rmsd1, rmsd2 
     218; 
     219        printf, 1, x, y, cor1, bias1, std1, rmsd1, mean_tao, format='(f6.2, 3x, f6.2, 3x, f4.2,3x,f7.2,3x,f4.2,3x,f5.2,3x,f6.2)' 
     220        printf, 2, x, y, cor2, bias2, std2, rmsd2, mean_tao, format='(f6.2, 3x, f6.2, 3x, f4.2,3x,f7.2,3x,f4.2,3x,f5.2,3x,f6.2)' 
     221; 
     222        statistics_3var_v1, lhf, oafl, ncep, $ 
     223        cor1, cor2, bias1, bias2, std1, std2, rmsd1, rmsd2 
     224        printf, 3, x, y, cor1, bias1, std1, rmsd1, mean_tao,format='(f6.2, 3x, f6.2, 3x, f4.2,3x,f7.2,3x,f4.2,3x,f5.2,3x,f6.2)' 
     225        printf, 4, x, y, cor2, bias2, std2, rmsd2, mean_tao,format='(f6.2, 3x, f6.2, 3x, f4.2,3x,f7.2,3x,f4.2,3x,f5.2,3x,f6.2)' 
     226; 
    228227        statistics_3var_v1, lhf, ncep1, ncep, $ 
    229228                cor1, cor2, bias1, bias2, std1, std2, rmsd1, rmsd2 
    230229        printf, 5, x, y, cor1, bias1, std1, rmsd1, mean_tao,format='(f6.2, 3x, f6.2, 3x, f4.2,3x,f7.2,3x,f4.2,3x,f5.2,3x,f6.2)' 
    231  
    232  
     230; 
     231; 
    233232    endif 
    234233endfor 
    235  
     234; 
    236235close,/all 
    237  
     236; 
    238237fi_lhf_erai=project_id_env+'lhf_2000_2009_erai_v52.txt' 
    239238res=read_ascii(fi_lhf_erai,data_start=1) 
    … …  
    245244mean_tao=reform(ff(6,*)) 
    246245mean_erai=mean_tao+bias_erai 
    247  
    248 ind=where(finite(cor_erai))  
     246; 
     247ind=where(finite(cor_erai)) 
    249248cor=total(cor_erai,/nan)/n_elements(ind) 
    250 ind=where(finite(bias_erai))  
     249ind=where(finite(bias_erai)) 
    251250bias=total(bias_erai,/nan)/n_elements(ind) 
    252 ind=where(finite(rmsd_erai))  
     251ind=where(finite(rmsd_erai)) 
    253252rmsd=total(rmsd_erai,/nan)/n_elements(ind) 
    254 ind=where(finite(std_erai))  
     253ind=where(finite(std_erai)) 
    255254std=total(std_erai,/nan)/n_elements(ind) 
    256  
     255; 
    257256print, '' 
    258257print, 'ERAI' 
    259258print, cor, bias, std, rmsd 
    260259cstat=string(cor, bias, std, rmsd, format='(f4.2,2x,f6.2,2x,f4.2,1x,f6.2)') 
    261  
     260; 
    262261splot, mean_tao, mean_erai, charsize=1.1, title='LHF - TAO Vs ERAI', $ 
    263262     xrange=[20,200], yrange=[20,200], small=[2,3,1], psym=2 
    264263xyouts, 50,25, cstat, charsize=1. 
    265264xyouts, 50,10, 'cor    bias    std    rmsd', charsize=1. 
    266  
    267 x=mean_tao  
     265; 
     266x=mean_tao 
    268267y=mean_erai 
    269268ab=linfit(x,y,yfit=yfit) 
    270 a=float(ab(0))  
    271 b=float(ab(1))  
     269a=float(ab(0)) 
     270b=float(ab(1)) 
    272271print, a,b 
    273272oplot, x, yfit, thick=2, color=250 
    274273oplot, [20,200], [20,200] 
    275  
     274; 
    276275fi_lhf_trop=project_id_env+'lhf_2000_2009_trop_v52.txt' 
    277276res=read_ascii(fi_lhf_trop,data_start=1) 
    … …  
    283282mean_tao=reform(ff(6,*)) 
    284283mean_trop=mean_tao+bias_trop 
    285  
    286 ind=where(finite(cor_trop))  
     284; 
     285ind=where(finite(cor_trop)) 
    287286cor=total(cor_trop,/nan)/n_elements(ind) 
    288 ind=where(finite(bias_trop))  
     287ind=where(finite(bias_trop)) 
    289288bias=total(bias_trop,/nan)/n_elements(ind) 
    290 ind=where(finite(rmsd_trop))  
     289ind=where(finite(rmsd_trop)) 
    291290rmsd=total(rmsd_trop,/nan)/n_elements(ind) 
    292 ind=where(finite(std_trop))  
     291ind=where(finite(std_trop)) 
    293292std=total(std_trop,/nan)/n_elements(ind) 
    294  
     293; 
    295294print, '' 
    296295print, 'TropFlux' 
    297296print, cor, bias, std, rmsd 
    298297cstat=string(cor, bias, std, rmsd, format='(f4.2,2x,f6.2,2x,f4.2,1x,f6.2)') 
    299  
     298; 
    300299splot, mean_tao, mean_trop, charsize=1.1, title='LHF - TAO Vs TropFlux', $ 
    301300     xrange=[20,200], yrange=[20,200], small=[2,3,2],/noer, psym=2 
    302 x=mean_tao  
     301x=mean_tao 
    303302y=mean_trop 
    304303xyouts, 50,25, cstat, charsize=1. 
    305304xyouts, 50,10, 'cor    bias    std    rmsd', charsize=1. 
    306  
     305; 
    307306ab=linfit(x,y,yfit=yfit) 
    308 a=float(ab(0))  
    309 b=float(ab(1))  
     307a=float(ab(0)) 
     308b=float(ab(1)) 
    310309print, a,b 
    311310oplot, x, yfit, thick=2, color=250 
    312311oplot, [20,200], [20,200] 
    313  
    314  
     312; 
     313; 
    315314fi_lhf_oaflx=project_id_env+'lhf_2000_2009_oaflx_v52.txt' 
    316315res=read_ascii(fi_lhf_oaflx,data_start=1) 
    … …  
    322321mean_tao=reform(ff(6,*)) 
    323322mean_oaf=mean_tao+bias_oaf 
    324  
    325 ind=where(finite(cor_oaf))  
     323; 
     324ind=where(finite(cor_oaf)) 
    326325cor=total(cor_oaf,/nan)/n_elements(ind) 
    327 ind=where(finite(bias_oaf))  
     326ind=where(finite(bias_oaf)) 
    328327bias=total(bias_oaf,/nan)/n_elements(ind) 
    329 ind=where(finite(rmsd_oaf))  
     328ind=where(finite(rmsd_oaf)) 
    330329rmsd=total(rmsd_oaf,/nan)/n_elements(ind) 
    331 ind=where(finite(std_oaf))  
     330ind=where(finite(std_oaf)) 
    332331std=total(std_oaf,/nan)/n_elements(ind) 
    333  
     332; 
    334333print, '' 
    335334print, 'OAFlux' 
    336335print, cor, bias, std, rmsd 
    337336cstat=string(cor, bias, std, rmsd, format='(f4.2,2x,f6.2,2x,f4.2,1x,f6.2)') 
    338  
     337; 
    339338splot, mean_tao, mean_oaf, charsize=1.1, title='LHF - TAO Vs OAFlux', $ 
    340339     xrange=[20,200], yrange=[20,200], small=[2,3,3],/noer, psym=2 
    341340xyouts, 50,25, cstat, charsize=1. 
    342341xyouts, 50,10, 'cor    bias    std    rmsd', charsize=1. 
    343  
    344 x=mean_tao  
     342; 
     343x=mean_tao 
    345344y=mean_oaf 
    346345ab=linfit(x,y,yfit=yfit) 
    347 a=float(ab(0))  
    348 b=float(ab(1))  
     346a=float(ab(0)) 
     347b=float(ab(1)) 
    349348print, a,b 
    350349oplot, x, yfit, thick=2, color=250 
    351350oplot, [20,200], [20,200] 
    352  
     351; 
    353352fi_lhf_ncep=project_id_env+'lhf_2000_2009_ncep_v52.txt' 
    354353res=read_ascii(fi_lhf_ncep,data_start=1) 
    … …  
    360359mean_tao=reform(ff(6,*)) 
    361360mean_nce=mean_tao+bias_nce 
    362  
    363 ind=where(finite(cor_nce))  
     361; 
     362ind=where(finite(cor_nce)) 
    364363cor=total(cor_nce,/nan)/n_elements(ind) 
    365 ind=where(finite(bias_nce))  
     364ind=where(finite(bias_nce)) 
    366365bias=total(bias_nce,/nan)/n_elements(ind) 
    367 ind=where(finite(rmsd_nce))  
     366ind=where(finite(rmsd_nce)) 
    368367rmsd=total(rmsd_nce,/nan)/n_elements(ind) 
    369 ind=where(finite(std_nce))  
     368ind=where(finite(std_nce)) 
    370369std=total(std_nce,/nan)/n_elements(ind) 
    371  
     370; 
    372371print, '' 
    373372print, 'NCEP2' 
    374373print, cor, bias, std, rmsd 
    375374cstat=string(cor, bias, std, rmsd, format='(f4.2,2x,f6.2,2x,f4.2,1x,f6.2)') 
    376  
     375; 
    377376splot, mean_tao, mean_nce, charsize=1.1, title='LHF - TAO Vs NCEP2', $ 
    378377     xrange=[20,200], yrange=[20,200], small=[2,3,4],/noer, psym=2 
    379378xyouts, 50,25, cstat, charsize=1. 
    380379xyouts, 50,10, 'cor    bias    std    rmsd', charsize=1. 
    381  
    382 x=mean_tao  
     380; 
     381x=mean_tao 
    383382y=mean_nce 
    384383ab=linfit(x,y,yfit=yfit) 
    385 a=float(ab(0))  
    386 b=float(ab(1))  
     384a=float(ab(0)) 
     385b=float(ab(1)) 
    387386print, a,b 
    388387oplot, x, yfit, thick=2, color=250 
    389388oplot, [20,200], [20,200] 
    390  
     389; 
    391390fi_lhf_ncep1=project_id_env+'lhf_2000_2009_ncep1_v52.txt' 
    392391res=read_ascii(fi_lhf_ncep1,data_start=1) 
    … …  
    398397mean_tao=reform(ff(6,*)) 
    399398mean_nce=mean_tao+bias_nce 
    400  
    401 ind=where(finite(cor_nce))  
     399; 
     400ind=where(finite(cor_nce)) 
    402401cor=total(cor_nce,/nan)/n_elements(ind) 
    403 ind=where(finite(bias_nce))  
     402ind=where(finite(bias_nce)) 
    404403bias=total(bias_nce,/nan)/n_elements(ind) 
    405 ind=where(finite(rmsd_nce))  
     404ind=where(finite(rmsd_nce)) 
    406405rmsd=total(rmsd_nce,/nan)/n_elements(ind) 
    407 ind=where(finite(std_nce))  
     406ind=where(finite(std_nce)) 
    408407std=total(std_nce,/nan)/n_elements(ind) 
    409  
     408; 
    410409print, '' 
    411410print, 'NCEP1' 
    412411print, cor, bias, std, rmsd 
    413412cstat=string(cor, bias, std, rmsd, format='(f4.2,2x,f6.2,2x,f4.2,1x,f6.2)') 
    414  
     413; 
    415414splot, mean_tao, mean_nce, charsize=1.1, title='LHF - TAO Vs NCEP1', $ 
    416415     xrange=[20,200], yrange=[20,200], small=[2,3,5],/noer, psym=2 
    417416xyouts, 50,25, cstat, charsize=1. 
    418417xyouts, 50,10, 'cor    bias    std    rmsd', charsize=1. 
    419  
    420 x=mean_tao  
     418; 
     419x=mean_tao 
    421420y=mean_nce 
    422421ab=linfit(x,y,yfit=yfit) 
    423 a=float(ab(0))  
    424 b=float(ab(1))  
     422a=float(ab(0)) 
     423b=float(ab(1)) 
    425424print, a,b 
    426425oplot, x, yfit, thick=2, color=250 
    427426oplot, [20,200], [20,200] 
    428  
     427; 
    429428closeps 
    430  
     429; 
    431430end 

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

    r94 r97  
    9393reinitplt, /z,/invert 
    9494key_portrait = 1 
    95  
     95; 
    9696openps, FILENAME = project_od_env+'shf_validation_scatter_2000_2009.ps' 
    97  
    98 ;; evaluation is done for 20000101, 20091231 period 
    99  
    100 ;; location of moorings 
    101  
     97; 
     98; evaluation is done for 20000101, 20091231 period 
     99; 
     100; location of moorings 
     101; 
    102102sitelist=['8s67e','12s55e', '8s55e', '8s80.5e', '1.5s80.5e', '0n80.5e', '1.5n80.5e', '1.5s90e', $ 
    103103           '0n90e', '1.5n90e', '4n90e','8n90e','12n90e', '15n90e', '5s95e', $ 
    … …  
    110110          '0n0e', '0n10w', '0n23w', '0n35w', '10s10w', '12n23w', '12n38w', '14s32w', '15n38w', '19s34w', '20n38w', $ 
    111111          '21n23w', '4n23w', '4n38w', '6s10w', '8n38w', '8s30w'] 
    112  
     112; 
    113113ocean='global' 
    114  
     114; 
    115115nsmooth=1. 
    116 ;;   This program will create the following text files with statistics of respective variables 
     116;   This program will create the following text files with statistics of respective variables 
    117117close,/all 
    118  
     118; 
    119119fi_shf_erai=project_id_env+'shf_2000_2009_erai_v52.txt' 
    120120openw,1,fi_shf_erai 
    … …  
    125125fi_shf_ncep=project_id_env+'shf_2000_2009_ncep_v52.txt' 
    126126openw,4,fi_shf_ncep 
    127  
     127; 
    128128fi_shf_ncep1=project_id_env+'shf_2000_2009_ncep1_v52.txt' 
    129129openw,5,fi_shf_ncep1 
    130  
    131  
     130; 
     131; 
    132132printf,1, 'x     y      cor    bias     std     rmsd      mean_tao' 
    133133printf,2, 'x     y      cor    bias     std     rmsd      mean_tao' 
    … …  
    135135printf,4, 'x     y      cor    bias     std     rmsd      mean_tao' 
    136136printf,5, 'x     y      cor    bias     std     rmsd      mean_tao' 
    137  
    138 ;; first reading the whole ERAI uncorrected and corrected data 
    139  
     137; 
     138; first reading the whole ERAI uncorrected and corrected data 
     139; 
    140140file=project_id_env+'erai_shf_19890101_20091231_oafluxgrid.nc' 
    141141initncdf, file 
    142142unc=read_ncdf('shf',date1,date2,file=file,/nostr) 
    143143help, unc 
    144  
     144; 
    145145file=project_id_env+'TropFlux_19890101_20091231_v51.nc' 
    146146initncdf, file 
    … …  
    148148cor=-1*cor 
    149149help, cor 
    150  
     150; 
    151151file=project_id_env+'shf_oafluxgrid_1985_2009.nc' 
    152152initncdf, file 
    153153oaf=read_ncdf("shf", date1, date2, file=file,/nostr) 
    154154help, oaf 
    155  
     155; 
    156156fi=project_id_env+'shf_ncep2_oafluxgrid_19890101_20091231.nc' 
    157157initncdf, fi 
    158158nce=read_ncdf("shf", date1, date2, file=fi,/nostr) 
    159159help, nce 
    160  
     160; 
    161161file=project_id_env+'fluxe_ncep1_19890101_20091231.nc' 
    162162initncdf, file 
    163163nce1=-1*read_ncdf("shf", date1, date2, file=file,/nostr) 
    164164help, nce1 
    165  
     165; 
    166166nn=n_elements(sitelist) 
    167167for n=0, nn-1 do begin 
    168  
    169 ;; reading data from mooring 
    170  
    171     site=sitelist(n)  
     168; 
     169; reading data from mooring 
     170; 
     171    site=sitelist(n) 
    172172    csite=site 
    173173    print, csite 
    … …  
    175175    y=y_site_location(site) 
    176176    if (y ge 0. and y le 30.) then y=y+360. 
    177     dx=0.5  
    178     dy=0.5  
     177    dx=0.5 
     178    dy=0.5 
    179179    box=[y-dy, y+dy, x-dx, x+dx] 
    180  
     180; 
    181181    read_variables_sh, csite,date1,date2,nsmooth, $ 
    182182         at, sw,rh,sst,wu,wv,ws,sh 
    183     shf=sh  
    184     ind=where(finite(shf))  
     183    shf=sh 
     184    ind=where(finite(shf)) 
    185185    valid=n_elements(ind) 
    186  
     186; 
    187187    if (valid ge 180. ) then begin 
    188  
    189         extract_flux_tropflux,unc,box, $ 
    190                 tropflux 
    191         uncr=tropflux 
    192  
    193         extract_flux_tropflux,cor,box, $ 
    194                  tropflux 
    195         corr=tropflux 
    196  
    197         extract_flux_tropflux,oaf,box, $ 
    198                 tropflux 
    199         oafl=tropflux 
    200  
    201         extract_flux_tropflux,nce,box, $ 
    202                 tropflux 
    203         ncep=tropflux 
    204  
    205         extract_flux_tropflux,nce1,box, $ 
    206                 tropflux 
    207         ncep1=tropflux 
    208  
    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) 
    217  
    218         statistics_3var_v1, shf, uncr_shf, corr_shf, $ 
    219                  cor1, cor2, bias1, bias2, std1, std2, rmsd1, rmsd2 
    220  
    221         printf, 1, x, y, cor1, bias1, std1, rmsd1, mean_tao, format='(f6.2, 3x, f6.2, 3x, f4.2,3x,f7.2,3x,f4.2,3x,f5.2,3x,f6.2)' 
    222         printf, 2, x, y, cor2, bias2, std2, rmsd2, mean_tao, format='(f6.2, 3x, f6.2, 3x, f4.2,3x,f7.2,3x,f4.2,3x,f5.2,3x,f6.2)' 
    223  
    224         statistics_3var_v1, shf, oafl, ncep, $ 
    225                 cor1, cor2, bias1, bias2, std1, std2, rmsd1, rmsd2 
    226         printf, 3, x, y, cor1, bias1, std1, rmsd1, mean_tao,format='(f6.2, 3x, f6.2, 3x, f4.2,3x,f7.2,3x,f4.2,3x,f5.2,3x,f6.2)' 
    227         printf, 4, x, y, cor2, bias2, std2, rmsd2, mean_tao,format='(f6.2, 3x, f6.2, 3x, f4.2,3x,f7.2,3x,f4.2,3x,f5.2,3x,f6.2)' 
    228  
     188; 
     189       extract_flux_tropflux,unc,box, $ 
     190       tropflux 
     191       uncr=tropflux 
     192; 
     193       extract_flux_tropflux,cor,box, $ 
     194       tropflux 
     195       corr=tropflux 
     196; 
     197       extract_flux_tropflux,oaf,box, $ 
     198       tropflux 
     199       oafl=tropflux 
     200; 
     201       extract_flux_tropflux,nce,box, $ 
     202       tropflux 
     203       ncep=tropflux 
     204; 
     205       extract_flux_tropflux,nce1,box, $ 
     206       tropflux 
     207       ncep1=tropflux 
     208; 
     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) 
     217; 
     218       statistics_3var_v1, shf, uncr_shf, corr_shf, $ 
     219       cor1, cor2, bias1, bias2, std1, std2, rmsd1, rmsd2 
     220; 
     221       printf, 1, x, y, cor1, bias1, std1, rmsd1, mean_tao, format='(f6.2, 3x, f6.2, 3x, f4.2,3x,f7.2,3x,f4.2,3x,f5.2,3x,f6.2)' 
     222       printf, 2, x, y, cor2, bias2, std2, rmsd2, mean_tao, format='(f6.2, 3x, f6.2, 3x, f4.2,3x,f7.2,3x,f4.2,3x,f5.2,3x,f6.2)' 
     223; 
     224       statistics_3var_v1, shf, oafl, ncep, $ 
     225       cor1, cor2, bias1, bias2, std1, std2, rmsd1, rmsd2 
     226       printf, 3, x, y, cor1, bias1, std1, rmsd1, mean_tao,format='(f6.2, 3x, f6.2, 3x, f4.2,3x,f7.2,3x,f4.2,3x,f5.2,3x,f6.2)' 
     227       printf, 4, x, y, cor2, bias2, std2, rmsd2, mean_tao,format='(f6.2, 3x, f6.2, 3x, f4.2,3x,f7.2,3x,f4.2,3x,f5.2,3x,f6.2)' 
     228; 
    229229        statistics_3var_v1, shf, ncep1, ncep, $ 
    230230                cor1, cor2, bias1, bias2, std1, std2, rmsd1, rmsd2 
    231231        printf, 5, x, y, cor1, bias1, std1, rmsd1, mean_tao,format='(f6.2, 3x, f6.2, 3x, f4.2,3x,f7.2,3x,f4.2,3x,f5.2,3x,f6.2)' 
    232  
     232; 
    233233    endif 
    234234endfor 
    235  
     235; 
    236236close,/all 
    237  
     237; 
    238238fi_shf_erai=project_id_env+'shf_2000_2009_erai_v52.txt' 
    239239res=read_ascii(fi_shf_erai,data_start=1) 
    … …  
    245245mean_tao=reform(ff(6,*)) 
    246246mean_erai=mean_tao+bias_erai 
    247  
    248 ind=where(finite(cor_erai))  
     247; 
     248ind=where(finite(cor_erai)) 
    249249cor=total(cor_erai,/nan)/n_elements(ind) 
    250 ind=where(finite(bias_erai))  
     250ind=where(finite(bias_erai)) 
    251251bias=total(bias_erai,/nan)/n_elements(ind) 
    252 ind=where(finite(rmsd_erai))  
     252ind=where(finite(rmsd_erai)) 
    253253rmsd=total(rmsd_erai,/nan)/n_elements(ind) 
    254 ind=where(finite(std_erai))  
     254ind=where(finite(std_erai)) 
    255255std=total(std_erai,/nan)/n_elements(ind) 
    256  
     256; 
    257257print, '' 
    258258print, 'ERAI' 
    259259print, cor, bias, std, rmsd 
    260260cstat=string(cor, bias, std, rmsd, format='(f4.2,2x,f6.2,2x,f4.2,1x,f6.2)') 
    261  
     261; 
    262262splot, mean_tao, mean_erai, charsize=1.1, title='SHF - TAO Vs ERAI', $ 
    263263     xrange=[-5,25], yrange=[-5,25], small=[2,3,1], psym=2, xmin=1,ymin=1 
    264264xyouts, 0,-0.5, cstat, charsize=1. 
    265265xyouts, 0,-4., 'cor    bias    std    rmsd', charsize=1. 
    266  
    267 x=mean_tao  
     266; 
     267x=mean_tao 
    268268y=mean_erai 
    269269ab=linfit(x,y,yfit=yfit) 
    270 a=float(ab(0))  
    271 b=float(ab(1))  
     270a=float(ab(0)) 
     271b=float(ab(1)) 
    272272print, a,b 
    273273oplot, x, yfit, thick=2, color=250 
    274274oplot, [-5,25], [-5,25] 
    275  
    276  
     275; 
     276; 
    277277fi_shf_trop=project_id_env+'shf_2000_2009_trop_v52.txt' 
    278278res=read_ascii(fi_shf_trop,data_start=1) 
    … …  
    284284mean_tao=reform(ff(6,*)) 
    285285mean_trop=mean_tao+bias_trop 
    286  
    287 ind=where(finite(cor_trop))  
     286; 
     287ind=where(finite(cor_trop)) 
    288288cor=total(cor_trop,/nan)/n_elements(ind) 
    289 ind=where(finite(bias_trop))  
     289ind=where(finite(bias_trop)) 
    290290bias=total(bias_trop,/nan)/n_elements(ind) 
    291 ind=where(finite(rmsd_trop))  
     291ind=where(finite(rmsd_trop)) 
    292292rmsd=total(rmsd_trop,/nan)/n_elements(ind) 
    293 ind=where(finite(std_trop))  
     293ind=where(finite(std_trop)) 
    294294std=total(std_trop,/nan)/n_elements(ind) 
    295  
     295; 
    296296print, '' 
    297297print, 'TropFlux' 
    298298print, cor, bias, std, rmsd 
    299299cstat=string(cor, bias, std, rmsd, format='(f4.2,2x,f6.2,2x,f4.2,1x,f6.2)') 
    300  
     300; 
    301301splot, mean_tao, mean_trop, charsize=1.1, title='SHF - TAO Vs TropFlux', $ 
    302302     xmin=1,ymin=1,xrange=[-5,25], yrange=[-5,25], small=[2,3,2],/noer, psym=2 
    303303xyouts, 0,-0.5, cstat, charsize=1. 
    304304xyouts, 0,-4., 'cor    bias    std    rmsd', charsize=1. 
    305  
    306 x=mean_tao  
     305; 
     306x=mean_tao 
    307307y=mean_trop 
    308308ab=linfit(x,y,yfit=yfit) 
    309 a=float(ab(0))  
    310 b=float(ab(1))  
     309a=float(ab(0)) 
     310b=float(ab(1)) 
    311311print, a,b 
    312312oplot, x, yfit, thick=2, color=250 
    313313oplot, [-5,25], [-5,25] 
    314  
    315  
     314; 
     315; 
    316316fi_shf_oaflx=project_id_env+'shf_2000_2009_oaflx_v52.txt' 
    317317res=read_ascii(fi_shf_oaflx,data_start=1) 
    … …  
    323323mean_tao=reform(ff(6,*)) 
    324324mean_oaf=mean_tao+bias_oaf 
    325  
    326 ind=where(finite(cor_oaf))  
     325; 
     326ind=where(finite(cor_oaf)) 
    327327cor=total(cor_oaf,/nan)/n_elements(ind) 
    328 ind=where(finite(bias_oaf))  
     328ind=where(finite(bias_oaf)) 
    329329bias=total(bias_oaf,/nan)/n_elements(ind) 
    330 ind=where(finite(rmsd_oaf))  
     330ind=where(finite(rmsd_oaf)) 
    331331rmsd=total(rmsd_oaf,/nan)/n_elements(ind) 
    332 ind=where(finite(std_oaf))  
     332ind=where(finite(std_oaf)) 
    333333std=total(std_oaf,/nan)/n_elements(ind) 
    334  
     334; 
    335335print, '' 
    336336print, 'OAFlux' 
    337337print, cor, bias, std, rmsd 
    338338cstat=string(cor, bias, std, rmsd, format='(f4.2,2x,f6.2,2x,f4.2,1x,f6.2)') 
    339  
     339; 
    340340splot, mean_tao, mean_oaf, charsize=1.1, title='SHF - TAO Vs OAFlux', $ 
    341341     xmin=1,ymin=1,xrange=[-5,25], yrange=[-5,25], small=[2,3,3],/noer, psym=2 
    342342xyouts, 0,-0.5, cstat, charsize=1. 
    343343xyouts, 0,-4., 'cor    bias    std    rmsd', charsize=1. 
    344  
    345 x=mean_tao  
     344; 
     345x=mean_tao 
    346346y=mean_oaf 
    347347ab=linfit(x,y,yfit=yfit) 
    348 a=float(ab(0))  
    349 b=float(ab(1))  
     348a=float(ab(0)) 
     349b=float(ab(1)) 
    350350print, a,b 
    351351oplot, x, yfit, thick=2, color=250 
    352352oplot, [-5,25], [-5,25] 
    353  
     353; 
    354354fi_shf_ncep=project_id_env+'shf_2000_2009_ncep_v52.txt' 
    355355res=read_ascii(fi_shf_ncep,data_start=1) 
    … …  
    361361mean_tao=reform(ff(6,*)) 
    362362mean_nce=mean_tao+bias_nce 
    363  
    364 ind=where(finite(cor_nce))  
     363; 
     364ind=where(finite(cor_nce)) 
    365365cor=total(cor_nce,/nan)/n_elements(ind) 
    366 ind=where(finite(bias_nce))  
     366ind=where(finite(bias_nce)) 
    367367bias=total(bias_nce,/nan)/n_elements(ind) 
    368 ind=where(finite(rmsd_nce))  
     368ind=where(finite(rmsd_nce)) 
    369369rmsd=total(rmsd_nce,/nan)/n_elements(ind) 
    370 ind=where(finite(std_nce))  
     370ind=where(finite(std_nce)) 
    371371std=total(std_nce,/nan)/n_elements(ind) 
    372  
     372; 
    373373print, '' 
    374374print, 'NCEP2' 
    375375print, cor, bias, std, rmsd 
    376376cstat=string(cor, bias, std, rmsd, format='(f4.2,2x,f6.2,2x,f4.2,1x,f6.2)') 
    377  
     377; 
    378378splot, mean_tao, mean_nce, charsize=1.1, title='SHF - TAO Vs NCEP2', $ 
    379379     xmin=1,ymin=1,xrange=[-5,25], yrange=[-5,25], small=[2,3,4],/noer, psym=2 
    380380xyouts, 0,-0.5, cstat, charsize=1. 
    381381xyouts, 0,-4., 'cor    bias    std    rmsd', charsize=1. 
    382  
    383 x=mean_tao  
     382; 
     383x=mean_tao 
    384384y=mean_nce 
    385385ab=linfit(x,y,yfit=yfit) 
    386 a=float(ab(0))  
    387 b=float(ab(1))  
     386a=float(ab(0)) 
     387b=float(ab(1)) 
    388388print, a,b 
    389389oplot, x, yfit, thick=2, color=250 
    390390oplot, [-5,25], [-5,25] 
    391  
     391; 
    392392fi_shf_ncep1=project_id_env+'shf_2000_2009_ncep1_v52.txt' 
    393393res=read_ascii(fi_shf_ncep1,data_start=1) 
    … …  
    399399mean_tao=reform(ff(6,*)) 
    400400mean_nce=mean_tao+bias_nce 
    401  
     401; 
    402402ind=where(finite(cor_nce)) 
    403403cor=total(cor_nce,/nan)/n_elements(ind) 
    404 ind=where(finite(bias_nce))  
     404ind=where(finite(bias_nce)) 
    405405bias=total(bias_nce,/nan)/n_elements(ind) 
    406 ind=where(finite(rmsd_nce))  
     406ind=where(finite(rmsd_nce)) 
    407407rmsd=total(rmsd_nce,/nan)/n_elements(ind) 
    408 ind=where(finite(std_nce))  
     408ind=where(finite(std_nce)) 
    409409std=total(std_nce,/nan)/n_elements(ind) 
    410  
     410; 
    411411print, '' 
    412412print, 'NCEP1' 
    413413print, cor, bias, std, rmsd 
    414414cstat=string(cor, bias, std, rmsd, format='(f4.2,2x,f6.2,2x,f4.2,1x,f6.2)') 
    415  
     415; 
    416416splot, mean_tao, mean_nce, charsize=1.1, title='SHF - TAO Vs NCEP1', $ 
    417417     xmin=1,ymin=1,xrange=[-5,25], yrange=[-5,25], small=[2,3,5],/noer, psym=2 
    418418xyouts, 0,-0.5, cstat, charsize=1. 
    419419xyouts, 0,-4., 'cor    bias    std    rmsd', charsize=1. 
    420  
    421 x=mean_tao  
     420; 
     421x=mean_tao 
    422422y=mean_nce 
    423423ab=linfit(x,y,yfit=yfit) 
    424 a=float(ab(0))  
    425 b=float(ab(1))  
     424a=float(ab(0)) 
     425b=float(ab(1)) 
    426426print, a,b 
    427427oplot, x, yfit, thick=2, color=250 
    428428oplot, [-5,25], [-5,25] 
    429  
     429; 
    430430closeps 
    431  
     431; 
    432432end 

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

    r94 r97  
    9696reinitplt, /z,/invert 
    9797key_portrait = 1 
    98  
     98; 
    9999openps, FILENAME = project_od_env+'lwr_validation_scatter_2000_2007.ps' 
    100 ;; evaluation is done for 20000101-20071231 period 
    101  
    102 ;; location of moorings 
    103  
     100; evaluation is done for 20000101-20071231 period 
     101; 
     102; location of moorings 
     103; 
    104104sitelist=['8s67e','12s55e', '8s55e', '8s80.5e', '1.5s80.5e', '0n80.5e', '1.5n80.5e', '1.5s90e', $ 
    105105           '0n90e', '1.5n90e', '4n90e','8n90e','12n90e', '15n90e', '5s95e', $ 
    … …  
    112112          '0n0e', '0n10w', '0n23w', '0n35w', '10s10w', '12n23w', '12n38w', '14s32w', '15n38w', '19s34w', '20n38w', $ 
    113113          '21n23w', '4n23w', '4n38w', '6s10w', '8n38w', '8s30w'] 
    114  
     114; 
    115115sitelist=['0n110w', '0n140w', '0n165e', '0n170w', '0n23w', '0n80.5e', '0n95w', '10s10w', '12n23w', '15n38w', $ 
    116116          '15n90e', '2n95w', '2s95w', '5n95w', '5s95w', '8n95w', '8s67e', '8s95w'] 
    117  
     117; 
    118118ocean='global' 
    119  
    120 da1=20000101  
     119; 
     120da1=20000101 
    121121da2=20071231 
    122122nsmooth=1. 
    123 ;;   This program will create the following text files with statistics of respective variables 
     123;   This program will create the following text files with statistics of respective variables 
    124124close,/all 
    125  
     125; 
    126126fi_lwr_erai=project_id_env+'lwr_2000_2007_erai.txt' 
    127127openw,1,fi_lwr_erai 
    … …  
    136136fi_lwr_clark=project_id_env+'lwr_2000_2007_clark.txt' 
    137137openw,6,fi_lwr_clark 
    138  
     138; 
    139139printf,1, 'x     y      cor    bias     std     rmsd' 
    140140printf,2, 'x     y      cor    bias     std     rmsd' 
    … …  
    143143printf,5, 'x     y      cor    bias     std     rmsd' 
    144144printf,6, 'x     y      cor    bias     std     rmsd' 
    145  
    146 ;; first reading the whole ERAI uncorrected and corrected data 
    147  
     145; 
     146; first reading the whole ERAI uncorrected and corrected data 
     147; 
    148148file=project_id_env+'erai_fluxes_19930101_20090801_TROP_oafluxgrid.nc' 
    149149initncdf, file 
    150150unc=read_ncdf('lwr',date1,date2,file=file,/nostr) 
    151151help, unc 
    152  
     152; 
    153153file=project_id_env+'TropFlux_lwr_19890101_20091231.nc" 
    154154initncda, file 
    155 cor=read_ncdf('lwr',date1,date2,file=file,/nostr)  
     155cor=read_ncdf('lwr',date1,date2,file=file,/nostr) 
    156156cor=-1*cor 
    157157help, cor 
    158  
     158; 
    159159file=project_id_env+'lwr_oafluxgrid_1985_2007.nc' 
    160160initncdf, file 
    161161oaf=read_ncdf("lwr", date1, date2, file=file,/nostr) 
    162162help, oaf 
    163  
     163; 
    164164fi=project_id_env+'NCEP2_flux_19890101_20090729.nc' 
    165165initncdf, fi 
    166 nce=read_ncdf("lwr", date1, date2, file=fi,/nostr)  
    167 ;;  nce=-1*nce 
     166nce=read_ncdf("lwr", date1, date2, file=fi,/nostr) 
     167;  nce=-1*nce 
    168168help, nce 
    169  
     169; 
    170170file=project_id_env+'fluxe_ncep1_19890101_20091231.nc' 
    171171initncdf, file 
    172172nce1=-1*read_ncdf("lwr", date1, date2, file=file,/nostr) 
    173173help, nce1 
    174  
     174; 
    175175file=project_id_env+'TropFlux_19890101_20091231.nc' 
    176176initncdf, file 
    177177clark=-1*read_ncdf("lwr", date1, date2, file=file,/nostr) 
    178178help, clark 
    179  
     179; 
    180180nn=n_elements(sitelist) 
    181181for n=0, nn-1 do begin 
    182  
    183 ;; reading data from mooring 
    184  
    185     site=sitelist(n)  
     182; 
     183; reading data from mooring 
     184; 
     185    site=sitelist(n) 
    186186    csite=site 
    187187    print, csite 
    … …  
    189189    y=y_site_location(site) 
    190190    if (y ge 0. and y le 30.) then y=y+360. 
    191     dx=0.5  
    192     dy=0.5  
     191    dx=0.5 
     192    dy=0.5 
    193193    box=[y-dy, y+dy, x-dx, x+dx] 
    194194    read_lw_global_v2, csite, date1, date2, box, $ 
    195195                           lw 
    196  
    197     lwr=lw  
    198     ind=where(finite(lwr))  
     196; 
     197    lwr=lw 
     198    ind=where(finite(lwr)) 
    199199    valid=n_elements(ind) 
    200  
     200; 
    201201    if (valid ge 180. ) then begin 
    202  
    203         extract_flux_tropflux,unc,box, $ 
    204                 tropflux 
    205         uncr=tropflux 
    206  
    207         extract_flux_tropflux,cor,box, $ 
    208                  tropflux 
    209         corr=tropflux 
    210  
    211         extract_flux_tropflux,oaf,box, $ 
    212                 tropflux 
    213         oafl=tropflux 
    214  
    215         extract_flux_tropflux,nce,box, $ 
    216                 tropflux 
    217         ncep=tropflux 
    218  
     202; 
     203       extract_flux_tropflux,unc,box, $ 
     204       tropflux 
     205       uncr=tropflux 
     206; 
     207       extract_flux_tropflux,cor,box, $ 
     208       tropflux 
     209       corr=tropflux 
     210; 
     211       extract_flux_tropflux,oaf,box, $ 
     212       tropflux 
     213       oafl=tropflux 
     214; 
     215       extract_flux_tropflux,nce,box, $ 
     216       tropflux 
     217       ncep=tropflux 
     218; 
    219219        extract_flux_tropflux,nce1,box, $ 
    220220                tropflux 
    221221        ncep1=tropflux 
    222  
     222; 
    223223        extract_flux_tropflux,clark,box, $ 
    224224                tropflux 
    225225        clrk=tropflux 
    226  
    227  
    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)  
     226; 
     227        ind=where(finite(lwr)) 
     228        lwr=lwr(ind) 
     229        uncr_lwr=uncr(ind) 
     230        corr_lwr=corr(ind) 
     231        oafl=oafl(ind) 
     232        ncep=ncep(ind) 
    234233        clrk=clrk(ind) 
    235234        ncep1=ncep1(ind) 
    236235        mean_tao=total(lwr)/n_elements(ind) 
    237  
    238         statistics_3var_v1, lwr, uncr_lwr, corr_lwr, $ 
    239                  cor1, cor2, bias1, bias2, std1, std2, rmsd1, rmsd2 
    240  
    241         printf, 1, x, y, cor1, bias1, std1, rmsd1, mean_tao, format='(f6.2, 3x, f6.2, 3x, f4.2,3x,f6.2,3x,f4.2,3x,f5.2,3x,f6.2)' 
    242         printf, 2, x, y, cor2, bias2, std2, rmsd2, mean_tao,format='(f6.2, 3x, f6.2, 3x, f4.2,3x,f6.2,3x,f4.2,3x,f5.2,3x,f6.2)' 
    243  
    244         statistics_3var_v1, lwr, oafl, ncep, $ 
    245                 cor1, cor2, bias1, bias2, std1, std2, rmsd1, rmsd2 
    246         printf, 3, x, y, cor1, bias1, std1, rmsd1, mean_tao,format='(f6.2, 3x, f6.2, 3x, f4.2,3x,f6.2,3x,f4.2,3x,f5.2,3x,f6.2)' 
    247         printf, 4, x, y, cor2, bias2, std2, rmsd2, mean_tao,format='(f6.2, 3x, f6.2, 3x, f4.2,3x,f6.2,3x,f4.2,3x,f5.2,3x,f6.2)' 
    248  
     236; 
     237        statistics_3var_v1, lwr, uncr_lwr, corr_lwr, $ 
     238        cor1, cor2, bias1, bias2, std1, std2, rmsd1, rmsd2 
     239; 
     240        printf, 1, x, y, cor1, bias1, std1, rmsd1, mean_tao, format='(f6.2, 3x, f6.2, 3x, f4.2,3x,f6.2,3x,f4.2,3x,f5.2,3x,f6.2)' 
     241        printf, 2, x, y, cor2, bias2, std2, rmsd2, mean_tao,format='(f6.2, 3x, f6.2, 3x, f4.2,3x,f6.2,3x,f4.2,3x,f5.2,3x,f6.2)' 
     242; 
     243        statistics_3var_v1, lwr, oafl, ncep, $ 
     244        cor1, cor2, bias1, bias2, std1, std2, rmsd1, rmsd2 
     245        printf, 3, x, y, cor1, bias1, std1, rmsd1, mean_tao,format='(f6.2, 3x, f6.2, 3x, f4.2,3x,f6.2,3x,f4.2,3x,f5.2,3x,f6.2)' 
     246        printf, 4, x, y, cor2, bias2, std2, rmsd2, mean_tao,format='(f6.2, 3x, f6.2, 3x, f4.2,3x,f6.2,3x,f4.2,3x,f5.2,3x,f6.2)' 
     247; 
    249248        statistics_3var_v1, lwr, ncep1, clrk, $ 
    250249                cor1, cor2, bias1, bias2, std1, std2, rmsd1, rmsd2 
    251250        printf, 5, x, y, cor1, bias1, std1, rmsd1, mean_tao,format='(f6.2, 3x, f6.2, 3x, f4.2,3x,f6.2,3x,f4.2,3x,f5.2,3x,f6.2)' 
    252251        printf, 6, x, y, cor2, bias2, std2, rmsd2, mean_tao,format='(f6.2, 3x, f6.2, 3x, f4.2,3x,f6.2,3x,f4.2,3x,f5.2,3x,f6.2)' 
    253  
    254     endif        
     252; 
     253    endif 
    255254endfor 
    256255close,/all 
    257  
     256; 
    258257fi_lwr_erai=project_id_env+'lwr_2000_2007_erai.txt' 
    259258res=read_ascii(fi_lwr_erai,data_start=1) 
    … …  
    265264mean_tao=reform(ff(6,*)) 
    266265mean_erai=mean_tao+bias_erai 
    267  
    268 ind=where(finite(cor_erai))  
     266; 
     267ind=where(finite(cor_erai)) 
    269268cor=total(cor_erai,/nan)/n_elements(ind) 
    270 ind=where(finite(bias_erai))  
     269ind=where(finite(bias_erai)) 
    271270bias=total(bias_erai,/nan)/n_elements(ind) 
    272 ind=where(finite(rmsd_erai))  
     271ind=where(finite(rmsd_erai)) 
    273272rmsd=total(rmsd_erai,/nan)/n_elements(ind) 
    274 ind=where(finite(std_erai))  
     273ind=where(finite(std_erai)) 
    275274std=total(std_erai,/nan)/n_elements(ind) 
    276  
     275; 
    277276print, '' 
    278277print, 'ERAI' 
    279278print, cor, bias, std, rmsd 
    280279cstat=string(cor, bias, std, rmsd, format='(f4.2,2x,f6.2,2x,f4.2,1x,f6.2)') 
    281  
     280; 
    282281splot, mean_tao, mean_erai, charsize=1.1, title='LWR - TAO Vs ERAI', $ 
    283282     xrange=[0,100], yrange=[0,100], small=[2,3,1], psym=2, xmin=1, ymin=1 
    284283xyouts, 40,10, cstat, charsize=1. 
    285284xyouts, 40,3, 'cor    bias    std    rmsd', charsize=1. 
    286  
    287 x=mean_tao  
     285; 
     286x=mean_tao 
    288287y=mean_erai 
    289288ab=linfit(x,y,yfit=yfit) 
    290 a=float(ab(0))  
    291 b=float(ab(1))  
    292 print, a,b 
    293 oplot, x, yfit, thick=2, color=250 
    294 oplot, [0,100], [0,100] 
    295  
     289a=float(ab(0)) 
     290b=float(ab(1)) 
     291print, a,b 
     292oplot, x, yfit, thick=2, color=250 
     293oplot, [0,100], [0,100] 
     294; 
    296295significance_test, mean_tao, mean_erai 
    297  
     296; 
    298297fi_lwr_trop=project_id_env+'lwr_2000_2007_trop.txt' 
    299298res=read_ascii(fi_lwr_trop,data_start=1) 
    … …  
    305304mean_tao=reform(ff(6,*)) 
    306305mean_trop=mean_tao+bias_trop 
    307  
    308 ind=where(finite(cor_trop))  
     306; 
     307ind=where(finite(cor_trop)) 
    309308cor=total(cor_trop,/nan)/n_elements(ind) 
    310 ind=where(finite(bias_trop))  
     309ind=where(finite(bias_trop)) 
    311310bias=total(bias_trop,/nan)/n_elements(ind) 
    312 ind=where(finite(rmsd_trop))  
     311ind=where(finite(rmsd_trop)) 
    313312rmsd=total(rmsd_trop,/nan)/n_elements(ind) 
    314 ind=where(finite(std_trop))  
     313ind=where(finite(std_trop)) 
    315314std=total(std_trop,/nan)/n_elements(ind) 
    316  
     315; 
    317316print, '' 
    318317print, 'TropFlux' 
    319318print, cor, bias, std, rmsd 
    320319cstat=string(cor, bias, std, rmsd, format='(f4.2,2x,f6.2,2x,f4.2,1x,f6.2)') 
    321  
     320; 
    322321splot, mean_tao, mean_trop, charsize=1.1, title='LWR - TAO Vs TropFlux', $ 
    323322     xmin=1,ymin=1,xrange=[0,100], yrange=[0,100], small=[2,3,2],/noer, psym=2 
    324323xyouts, 40,10, cstat, charsize=1. 
    325324xyouts, 40,3, 'cor    bias    std    rmsd', charsize=1. 
    326  
    327 x=mean_tao  
     325; 
     326x=mean_tao 
    328327y=mean_trop 
    329328ab=linfit(x,y,yfit=yfit) 
    330 a=float(ab(0))  
    331 b=float(ab(1))  
    332 print, a,b 
    333 oplot, x, yfit, thick=2, color=250 
    334 oplot, [0,100], [0,100] 
    335  
     329a=float(ab(0)) 
     330b=float(ab(1)) 
     331print, a,b 
     332oplot, x, yfit, thick=2, color=250 
     333oplot, [0,100], [0,100] 
     334; 
    336335significance_test, mean_tao, mean_trop 
    337  
     336; 
    338337fi_lwr_oaflx=project_id_env+'lwr_2000_2007_oaflx.txt' 
    339338res=read_ascii(fi_lwr_oaflx,data_start=1) 
    … …  
    345344mean_tao=reform(ff(6,*)) 
    346345mean_oaf=mean_tao+bias_oaf 
    347  
    348 ind=where(finite(cor_oaf))  
     346; 
     347ind=where(finite(cor_oaf)) 
    349348cor=total(cor_oaf,/nan)/n_elements(ind) 
    350 ind=where(finite(bias_oaf))  
     349ind=where(finite(bias_oaf)) 
    351350bias=total(bias_oaf,/nan)/n_elements(ind) 
    352 ind=where(finite(rmsd_oaf))  
     351ind=where(finite(rmsd_oaf)) 
    353352rmsd=total(rmsd_oaf,/nan)/n_elements(ind) 
    354 ind=where(finite(std_oaf))  
     353ind=where(finite(std_oaf)) 
    355354std=total(std_oaf,/nan)/n_elements(ind) 
    356  
     355; 
    357356print, '' 
    358357print, 'OAFlux' 
    359358print, cor, bias, std, rmsd 
    360359cstat=string(cor, bias, std, rmsd, format='(f4.2,2x,f6.2,2x,f4.2,1x,f6.2)') 
    361  
     360; 
    362361splot, mean_tao, mean_oaf, charsize=1.1, title='LWR - TAO Vs OAFlux', $ 
    363362     xmin=1,ymin=1,xrange=[0,100], yrange=[0,100], small=[2,3,3],/noer, psym=2 
    364363xyouts, 40,10, cstat, charsize=1. 
    365364xyouts, 40,3, 'cor    bias    std    rmsd', charsize=1. 
    366  
    367 x=mean_tao  
     365; 
     366x=mean_tao 
    368367y=mean_oaf 
    369368ab=linfit(x,y,yfit=yfit) 
    370 a=float(ab(0))  
    371 b=float(ab(1))  
    372 print, a,b 
    373 oplot, x, yfit, thick=2, color=250 
    374 oplot, [0,100], [0,100] 
    375  
     369a=float(ab(0)) 
     370b=float(ab(1)) 
     371print, a,b 
     372oplot, x, yfit, thick=2, color=250 
     373oplot, [0,100], [0,100] 
     374; 
    376375significance_test, mean_tao, mean_oaf 
    377  
     376; 
    378377fi_lwr_ncep=project_id_env+'lwr_2000_2007_ncep.txt' 
    379378res=read_ascii(fi_lwr_ncep,data_start=1) 
    … …  
    385384mean_tao=reform(ff(6,*)) 
    386385mean_nce=mean_tao+bias_nce 
    387  
    388 ind=where(finite(cor_nce))  
     386; 
     387ind=where(finite(cor_nce)) 
    389388cor=total(cor_nce,/nan)/n_elements(ind) 
    390 ind=where(finite(bias_nce))  
     389ind=where(finite(bias_nce)) 
    391390bias=total(bias_nce,/nan)/n_elements(ind) 
    392 ind=where(finite(rmsd_nce))  
     391ind=where(finite(rmsd_nce)) 
    393392rmsd=total(rmsd_nce,/nan)/n_elements(ind) 
    394 ind=where(finite(std_nce))  
     393ind=where(finite(std_nce)) 
    395394std=total(std_nce,/nan)/n_elements(ind) 
    396  
     395; 
    397396print, '' 
    398397print, 'NCEP2' 
    399398print, cor, bias, std, rmsd 
    400399cstat=string(cor, bias, std, rmsd, format='(f4.2,2x,f6.2,2x,f4.2,1x,f6.2)') 
    401  
     400; 
    402401splot, mean_tao, mean_nce, charsize=1.1, title='LWR - TAO Vs NCEP2', $ 
    403402     xmin=1,ymin=1,xrange=[0,100], yrange=[0,100], small=[2,3,4],/noer, psym=2 
    404403xyouts, 40,10, cstat, charsize=1. 
    405404xyouts, 40,3, 'cor    bias    std    rmsd', charsize=1. 
    406  
    407 x=mean_tao  
     405; 
     406x=mean_tao 
    408407y=mean_nce 
    409408ab=linfit(x,y,yfit=yfit) 
    410 a=float(ab(0))  
    411 b=float(ab(1))  
    412 print, a,b 
    413 oplot, x, yfit, thick=2, color=250 
    414 oplot, [0,100], [0,100] 
    415  
     409a=float(ab(0)) 
     410b=float(ab(1)) 
     411print, a,b 
     412oplot, x, yfit, thick=2, color=250 
     413oplot, [0,100], [0,100] 
     414; 
    416415significance_test, mean_tao, mean_nce 
    417  
     416; 
    418417fi_lwr_ncep1=project_id_env+'lwr_2000_2007_ncep1.txt' 
    419418res=read_ascii(fi_lwr_ncep1,data_start=1) 
    … …  
    425424mean_tao=reform(ff(6,*)) 
    426425mean_nce=mean_tao+bias_nce 
    427  
    428 ind=where(finite(cor_nce))  
     426; 
     427ind=where(finite(cor_nce)) 
    429428cor=total(cor_nce,/nan)/n_elements(ind) 
    430 ind=where(finite(bias_nce))  
     429ind=where(finite(bias_nce)) 
    431430bias=total(bias_nce,/nan)/n_elements(ind) 
    432 ind=where(finite(rmsd_nce))  
     431ind=where(finite(rmsd_nce)) 
    433432rmsd=total(rmsd_nce,/nan)/n_elements(ind) 
    434 ind=where(finite(std_nce))  
     433ind=where(finite(std_nce)) 
    435434std=total(std_nce,/nan)/n_elements(ind) 
    436  
     435; 
    437436print, '' 
    438437print, 'NCEP1' 
    439438print, cor, bias, std, rmsd 
    440439cstat=string(cor, bias, std, rmsd, format='(f4.2,2x,f6.2,2x,f4.2,1x,f6.2)') 
    441  
     440; 
    442441splot, mean_tao, mean_nce, charsize=1.1, title='LWR - TAO Vs NCEP1', $ 
    443442     xmin=1,ymin=1,xrange=[0,100], yrange=[0,100], small=[2,3,5],/noer, psym=2 
    444443xyouts, 40,10, cstat, charsize=1. 
    445444xyouts, 40,3, 'cor    bias    std    rmsd', charsize=1. 
    446  
    447 x=mean_tao  
     445; 
     446x=mean_tao 
    448447y=mean_nce 
    449448ab=linfit(x,y,yfit=yfit) 
    450 a=float(ab(0))  
    451 b=float(ab(1))  
    452 print, a,b 
    453 oplot, x, yfit, thick=2, color=250 
    454 oplot, [0,100], [0,100] 
    455  
     449a=float(ab(0)) 
     450b=float(ab(1)) 
     451print, a,b 
     452oplot, x, yfit, thick=2, color=250 
     453oplot, [0,100], [0,100] 
     454; 
    456455significance_test, mean_tao, mean_nce 
    457  
     456; 
    458457fi_lwr_clark=project_id_env+'lwr_2000_2007_clark.txt' 
    459458res=read_ascii(fi_lwr_clark,data_start=1) 
    … …  
    465464mean_tao=reform(ff(6,*)) 
    466465mean_clark=mean_tao+bias_clark 
    467  
    468 ind=where(finite(cor_clark))  
     466; 
     467ind=where(finite(cor_clark)) 
    469468cor=total(cor_clark,/nan)/n_elements(ind) 
    470 ind=where(finite(bias_clark))  
     469ind=where(finite(bias_clark)) 
    471470bias=total(bias_clark,/nan)/n_elements(ind) 
    472 ind=where(finite(rmsd_clark))  
     471ind=where(finite(rmsd_clark)) 
    473472rmsd=total(rmsd_clark,/nan)/n_elements(ind) 
    474473ind=where(finite(std_clark)) 
    475474std=total(std_clark,/nan)/n_elements(ind) 
    476  
     475; 
    477476print, '' 
    478477print, 'CLARK LWR' 
    479478print, cor, bias, std, rmsd 
    480479cstat=string(cor, bias, std, rmsd, format='(f4.2,2x,f6.2,2x,f4.2,1x,f6.2)') 
    481  
     480; 
    482481splot, mean_tao, mean_clark, charsize=1.1, title='LWR - TAO Vs CLARK', $ 
    483482     xmin=1,ymin=1,xrange=[0,100], yrange=[0,100], small=[2,3,6],/noer, psym=2 
    484483xyouts, 40,10, cstat, charsize=1. 
    485484xyouts, 40,3, 'cor    bias    std    rmsd', charsize=1. 
    486  
    487 x=mean_tao  
     485; 
     486x=mean_tao 
    488487y=mean_clark 
    489488ab=linfit(x,y,yfit=yfit) 
    490 a=float(ab(0))  
    491 b=float(ab(1))  
    492 print, a,b 
    493 oplot, x, yfit, thick=2, color=250 
    494 oplot, [0,100], [0,100] 
    495  
     489a=float(ab(0)) 
     490b=float(ab(1)) 
     491print, a,b 
     492oplot, x, yfit, thick=2, color=250 
     493oplot, [0,100], [0,100] 
     494; 
    496495significance_test, mean_tao, mean_clark 
    497  
     496; 
    498497closeps 
    499  
     498; 
    500499end 

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

    r94 r97  
    9595reinitplt, /z,/invert 
    9696key_portrait = 1 
    97  
     97; 
    9898openps, FILENAME = project_od_env+'swr_validation_scatter_2000_2007.ps' 
    99  
    100 ;; evaluation is done for 20000101-20071231 period 
    101  
    102 ;; location of mooring 
    103  
    104  
     99; 
     100; evaluation is done for 20000101-20071231 period 
     101; 
     102; location of mooring 
     103; 
     104; 
    105105sitelist=['5n165e','8s67e','12s55e', '8s55e', '8s80.5e', '1.5s80.5e', '0n80.5e', '1.5n80.5e', '1.5s90e', $ 
    106106           '0n90e', '1.5n90e', '4n90e','8n90e','12n90e', '15n90e', '5s95e', $ 
    … …  
    113113          '0n0e', '0n10w', '0n23w', '0n35w', '10s10w', '12n23w', '12n38w', '14s32w', '15n38w', '19s34w', '20n38w', $ 
    114114          '21n23w', '4n23w', '4n38w', '6s10w', '8n38w', '8s30w'] 
    115  
     115; 
    116116ocean='global' 
    117  
    118 ;da1=20000101  
     117; 
     118;da1=20000101 
    119119;da2=20071231 
    120120nsmooth=1. 
    121 ;;   This program will create the following text files with statistics of respective variables 
     121;   This program will create the following text files with statistics of respective variables 
    122122close,/all 
    123  
     123; 
    124124fi_swr_erai=project_id_env+'swr_2000_2007_erai_v50.txt' 
    125125openw,1,fi_swr_erai 
    … …  
    134134fi_swr_olr=project_id_env+'swr_2000_2007_olr_v50.txt' 
    135135openw,6,fi_swr_olr 
    136  
    137  
     136; 
     137; 
    138138printf,1, 'x     y      cor    bias     std     rmsd      mean_tao' 
    139139printf,2, 'x     y      cor    bias     std     rmsd      mean_tao' 
    … …  
    142142printf,5, 'x     y      cor    bias     std     rmsd      mean_tao' 
    143143printf,6, 'x     y      cor    bias     std     rmsd      mean_tao' 
    144  
    145 ;; first reading the whole ERAI uncorrected and corrected data 
    146  
     144; 
     145; first reading the whole ERAI uncorrected and corrected data 
     146; 
    147147file=project_id_env+'erai_fluxes_20000101_20090801_TROP_oafluxgrid.nc' 
    148148initncdf, file 
    149 unc=read_ncdf('swr',date1,date2,file=file,/nostr)  
     149unc=read_ncdf('swr',date1,date2,file=file,/nostr) 
    150150unc=-1*unc 
    151151help, unc 
    152  
     152; 
    153153file=project_id_env+'TropFlux_swr_19890101_20071231_DT_v51.nc' 
    154154initncdf, file 
    155155cor=read_ncdf('swr',date1,date2,file=file,/nostr) 
    156156help, cor 
    157  
     157; 
    158158file=project_id_env+'swr_oafluxgrid_1985_2007.nc' 
    159159initncdf, file 
    160160oaf=read_ncdf("swr", date1, date2, file=file,/nostr) 
    161161help, oaf 
    162  
     162; 
    163163fi=project_id_env+'swr_ncep2_oaflxgrid_19890101_20091231.nc' 
    164164initncdf, fi 
    165 nce=read_ncdf("swr", date1, date2, file=fi,/nostr)  
     165nce=read_ncdf("swr", date1, date2, file=fi,/nostr) 
    166166nce=0.94*nce 
    167167help, nce 
    168  
     168; 
    169169file=project_id_env+'fluxe_ncep1_19890101_20091231.nc' 
    170170initncdf, file 
    171171nce1=read_ncdf("swr", date1, date2, file=file,/nostr) 
    172172help, nce1 
    173  
     173; 
    174174file=project_id_env+'TropFlux_swr_19890101_20091231_NRT_v50.nc' 
    175175initncdf, file 
    … …  
    178178nn=n_elements(sitelist) 
    179179for n=0, nn-1 do begin 
    180  
    181 ;; reading data from mooring 
    182  
    183     site=sitelist(n)  
     180; 
     181; reading data from mooring 
     182; 
     183    site=sitelist(n) 
    184184    csite=site 
    185185    print, csite 
    … …  
    187187    y=y_site_location(site) 
    188188    if (y ge 0. and y le 30.) then y=y+360. 
    189     dx=0.5  
    190     dy=0.5  
     189    dx=0.5 
     190    dy=0.5 
    191191    box=[y-dy, y+dy, x-dx, x+dx] 
    192  
     192; 
    193193    read_global_sw_v50, csite, date1, date2, box, $ 
    194194                           sw 
    195  
    196     swr=sw  
    197     ind=where(finite(swr))  
     195; 
     196    swr=sw 
     197    ind=where(finite(swr)) 
    198198    valid=n_elements(ind) 
    199  
     199; 
    200200    if (valid ge 180. ) then begin 
    201  
    202         extract_flux_tropflux,unc,box, $ 
    203                 tropflux 
    204         uncr=tropflux 
    205  
    206         extract_flux_tropflux,cor,box, $ 
    207                  tropflux 
    208         corr=tropflux 
    209  
    210         extract_flux_tropflux,oaf,box, $ 
    211                 tropflux 
    212         oafl=tropflux 
    213  
    214         extract_flux_tropflux,nce,box, $ 
    215                 tropflux 
    216         ncep=tropflux 
    217  
     201; 
     202       extract_flux_tropflux,unc,box, $ 
     203       tropflux 
     204       uncr=tropflux 
     205; 
     206       extract_flux_tropflux,cor,box, $ 
     207       tropflux 
     208       corr=tropflux 
     209; 
     210       extract_flux_tropflux,oaf,box, $ 
     211       tropflux 
     212       oafl=tropflux 
     213; 
     214       extract_flux_tropflux,nce,box, $ 
     215       tropflux 
     216       ncep=tropflux 
     217; 
    218218        extract_flux_tropflux,nce1,box, $ 
    219219                tropflux 
    220220        ncep1=tropflux 
    221  
    222  
     221; 
    223222        extract_flux_tropflux,sw_olr,box, $ 
    224223                tropflux 
    225224        olr=tropflux 
    226  
    227         ind=where(finite(swr))  
    228         swr=swr(ind)  
    229         uncr_swr=uncr(ind)   
    230         corr_swr=corr(ind)  
    231         oafl=oafl(ind)  
     225; 
     226        ind=where(finite(swr)) 
     227        swr=swr(ind) 
     228        uncr_swr=uncr(ind) 
     229        corr_swr=corr(ind) 
     230        oafl=oafl(ind) 
    232231        ncep=ncep(ind) 
    233         ncep1=ncep1(ind)  
     232        ncep1=ncep1(ind) 
    234233        olr_sw=olr(ind) 
    235234        mean_tao=total(swr,/nan)/n_elements(swr) 
    236  
    237         statistics_3var_v1, swr, uncr_swr, corr_swr, $ 
    238                  cor1, cor2, bias1, bias2, std1, std2, rmsd1, rmsd2 
    239  
    240         printf, 1, x, y, cor1, bias1, std1, rmsd1, mean_tao, format='(f6.2, 3x, f6.2, 3x, f4.2,3x,f7.2,3x,f4.2,3x,f5.2,3x,f6.2)' 
    241         printf, 2, x, y, cor2, bias2, std2, rmsd2, mean_tao, format='(f6.2, 3x, f6.2, 3x, f4.2,3x,f7.2,3x,f4.2,3x,f5.2,3x,f6.2)' 
    242  
    243         statistics_3var_v1, swr, oafl, ncep, $ 
    244                 cor1, cor2, bias1, bias2, std1, std2, rmsd1, rmsd2 
    245         printf, 3, x, y, cor1, bias1, std1, rmsd1, mean_tao,format='(f6.2, 3x, f6.2, 3x, f4.2,3x,f7.2,3x,f4.2,3x,f5.2,3x,f6.2)' 
    246         printf, 4, x, y, cor2, bias2, std2, rmsd2, mean_tao,format='(f6.2, 3x, f6.2, 3x, f4.2,3x,f7.2,3x,f4.2,3x,f5.2,3x,f6.2)' 
    247  
     235; 
     236        statistics_3var_v1, swr, uncr_swr, corr_swr, $ 
     237        cor1, cor2, bias1, bias2, std1, std2, rmsd1, rmsd2 
     238; 
     239        printf, 1, x, y, cor1, bias1, std1, rmsd1, mean_tao, format='(f6.2, 3x, f6.2, 3x, f4.2,3x,f7.2,3x,f4.2,3x,f5.2,3x,f6.2)' 
     240        printf, 2, x, y, cor2, bias2, std2, rmsd2, mean_tao, format='(f6.2, 3x, f6.2, 3x, f4.2,3x,f7.2,3x,f4.2,3x,f5.2,3x,f6.2)' 
     241; 
     242        statistics_3var_v1, swr, oafl, ncep, $ 
     243        cor1, cor2, bias1, bias2, std1, std2, rmsd1, rmsd2 
     244        printf, 3, x, y, cor1, bias1, std1, rmsd1, mean_tao,format='(f6.2, 3x, f6.2, 3x, f4.2,3x,f7.2,3x,f4.2,3x,f5.2,3x,f6.2)' 
     245        printf, 4, x, y, cor2, bias2, std2, rmsd2, mean_tao,format='(f6.2, 3x, f6.2, 3x, f4.2,3x,f7.2,3x,f4.2,3x,f5.2,3x,f6.2)' 
     246; 
    248247        statistics_3var_v1, swr, ncep1, olr_sw, $ 
    249248                cor1, cor2, bias1, bias2, std1, std2, rmsd1, rmsd2 
    250249        printf, 5, x, y, cor1, bias1, std1, rmsd1, mean_tao,format='(f6.2, 3x, f6.2, 3x, f4.2,3x,f7.2,3x,f4.2,3x,f5.2,3x,f6.2)' 
    251250        printf, 6, x, y, cor2, bias2, std2, rmsd2, mean_tao,format='(f6.2, 3x, f6.2, 3x, f4.2,3x,f7.2,3x,f4.2,3x,f5.2,3x,f6.2)' 
    252  
     251; 
    253252    endif 
    254253endfor 
    255  
     254; 
    256255close,/all 
    257  
     256; 
    258257fi_swr_erai=project_id_env+'swr_2000_2007_erai_v50.txt' 
    259258res=read_ascii(fi_swr_erai,data_start=1) 
    … …  
    265264mean_tao=reform(ff(6,*)) 
    266265mean_erai=mean_tao+bias_erai 
    267  
    268 ind=where(finite(cor_erai))  
     266; 
     267ind=where(finite(cor_erai)) 
    269268cor=total(cor_erai,/nan)/n_elements(ind) 
    270 ind=where(finite(bias_erai))  
     269ind=where(finite(bias_erai)) 
    271270bias=total(bias_erai,/nan)/n_elements(ind) 
    272 ind=where(finite(rmsd_erai))  
     271ind=where(finite(rmsd_erai)) 
    273272rmsd=total(rmsd_erai,/nan)/n_elements(ind) 
    274 ind=where(finite(std_erai))  
     273ind=where(finite(std_erai)) 
    275274std=total(std_erai,/nan)/n_elements(ind) 
    276  
     275; 
    277276print, '' 
    278277print, 'ERAI' 
    279278print, cor, bias, std, rmsd 
    280279cstat=string(cor, bias, std, rmsd, format='(f4.2,2x,f6.2,2x,f4.2,1x,f6.2)') 
    281  
     280; 
    282281splot, mean_tao, mean_erai, charsize=1.1, title='SWR - TAO Vs ERAI', $ 
    283282     xrange=[100,300], yrange=[100,300], small=[2,3,1], psym=2, xmin=1, ymin=1 
    284283xyouts, 180,175, cstat, charsize=1. 
    285284xyouts, 180,160, 'cor    bias    std    rmsd', charsize=1. 
    286  
    287 x=mean_tao  
     285; 
     286x=mean_tao 
    288287y=mean_erai 
    289288ab=linfit(x,y,yfit=yfit) 
    290 a=float(ab(0))  
    291 b=float(ab(1))  
    292 print, a,b 
    293 oplot, x, yfit, thick=2, color=250 
    294 oplot, [100,300], [100,300] 
    295  
    296  
     289a=float(ab(0)) 
     290b=float(ab(1)) 
     291print, a,b 
     292oplot, x, yfit, thick=2, color=250 
     293oplot, [100,300], [100,300] 
     294; 
     295; 
    297296fi_swr_trop=project_id_env+'swr_2000_2007_trop_v50.txt' 
    298297res=read_ascii(fi_swr_trop,data_start=1) 
    … …  
    304303mean_tao=reform(ff(6,*)) 
    305304mean_trop=mean_tao+bias_trop 
    306  
    307 ind=where(finite(cor_trop))  
     305; 
     306ind=where(finite(cor_trop)) 
    308307cor=total(cor_trop,/nan)/n_elements(ind) 
    309 ind=where(finite(bias_trop))  
     308ind=where(finite(bias_trop)) 
    310309bias=total(bias_trop,/nan)/n_elements(ind) 
    311 ind=where(finite(rmsd_trop))  
     310ind=where(finite(rmsd_trop)) 
    312311rmsd=total(rmsd_trop,/nan)/n_elements(ind) 
    313 ind=where(finite(std_trop))  
     312ind=where(finite(std_trop)) 
    314313std=total(std_trop,/nan)/n_elements(ind) 
    315  
     314; 
    316315print, '' 
    317316print, 'TropFlux' 
    318317print, cor, bias, std, rmsd 
    319318cstat=string(cor, bias, std, rmsd, format='(f4.2,2x,f6.2,2x,f4.2,1x,f6.2)') 
    320  
     319; 
    321320splot, mean_tao, mean_trop, charsize=1.1, title='SWR - TAO Vs TropFlux_DT', $ 
    322321     xmin=1,ymin=1,xrange=[100,300], yrange=[100,300], small=[2,3,2],/noer, psym=2 
    323322xyouts, 180,175, cstat, charsize=1. 
    324323xyouts, 180,160, 'cor    bias    std    rmsd', charsize=1. 
    325  
    326 x=mean_tao  
     324; 
     325x=mean_tao 
    327326y=mean_trop 
    328327ab=linfit(x,y,yfit=yfit) 
    329 a=float(ab(0))  
    330 b=float(ab(1))  
    331 print, a,b 
    332 oplot, x, yfit, thick=2, color=250 
    333 oplot, [100,300], [100,300] 
    334  
    335  
     328a=float(ab(0)) 
     329b=float(ab(1)) 
     330print, a,b 
     331oplot, x, yfit, thick=2, color=250 
     332oplot, [100,300], [100,300] 
     333; 
     334; 
    336335fi_swr_oaflx=project_id_env+'swr_2000_2007_oaflx_v50.txt' 
    337336res=read_ascii(fi_swr_oaflx,data_start=1) 
    … …  
    343342mean_tao=reform(ff(6,*)) 
    344343mean_oaf=mean_tao+bias_oaf 
    345  
    346 ind=where(finite(cor_oaf))  
     344; 
     345ind=where(finite(cor_oaf)) 
    347346cor=total(cor_oaf,/nan)/n_elements(ind) 
    348 ind=where(finite(bias_oaf))  
     347ind=where(finite(bias_oaf)) 
    349348bias=total(bias_oaf,/nan)/n_elements(ind) 
    350 ind=where(finite(rmsd_oaf))  
     349ind=where(finite(rmsd_oaf)) 
    351350rmsd=total(rmsd_oaf,/nan)/n_elements(ind) 
    352 ind=where(finite(std_oaf))  
     351ind=where(finite(std_oaf)) 
    353352std=total(std_oaf,/nan)/n_elements(ind) 
    354  
     353; 
    355354print, '' 
    356355print, 'OAFlux' 
    357356print, cor, bias, std, rmsd 
    358357cstat=string(cor, bias, std, rmsd, format='(f4.2,2x,f6.2,2x,f4.2,1x,f6.2)') 
    359  
     358; 
    360359splot, mean_tao, mean_oaf, charsize=1.1, title='SWR - TAO Vs OAFlux', $ 
    361360     xmin=1,ymin=1,xrange=[100,300], yrange=[100,300], small=[2,3,3],/noer, psym=2 
    362361xyouts, 180,175, cstat, charsize=1. 
    363362xyouts, 180,160, 'cor    bias    std    rmsd', charsize=1. 
    364  
    365 x=mean_tao  
     363; 
     364x=mean_tao 
    366365y=mean_oaf 
    367366ab=linfit(x,y,yfit=yfit) 
    368 a=float(ab(0))  
    369 b=float(ab(1))  
    370 print, a,b 
    371 oplot, x, yfit, thick=2, color=250 
    372 oplot, [100,300], [100,300] 
    373  
    374  
     367a=float(ab(0)) 
     368b=float(ab(1)) 
     369print, a,b 
     370oplot, x, yfit, thick=2, color=250 
     371oplot, [100,300], [100,300] 
     372; 
     373; 
    375374fi_swr_ncep=project_id_env+'swr_2000_2007_ncep_v50.txt' 
    376375res=read_ascii(fi_swr_ncep,data_start=1) 
    … …  
    382381mean_tao=reform(ff(6,*)) 
    383382mean_nce=mean_tao+bias_nce 
    384  
    385 ind=where(finite(cor_nce))  
     383; 
     384ind=where(finite(cor_nce)) 
    386385cor=total(cor_nce,/nan)/n_elements(ind) 
    387 ind=where(finite(bias_nce))  
     386ind=where(finite(bias_nce)) 
    388387bias=total(bias_nce,/nan)/n_elements(ind) 
    389 ind=where(finite(rmsd_nce))  
     388ind=where(finite(rmsd_nce)) 
    390389rmsd=total(rmsd_nce,/nan)/n_elements(ind) 
    391 ind=where(finite(std_nce))  
     390ind=where(finite(std_nce)) 
    392391std=total(std_nce,/nan)/n_elements(ind) 
    393  
     392; 
    394393print, '' 
    395394print, 'NCEP2' 
    396395print, cor, bias, std, rmsd 
    397396cstat=string(cor, bias, std, rmsd, format='(f4.2,2x,f6.2,2x,f4.2,1x,f6.2)') 
    398  
     397; 
    399398splot, mean_tao, mean_nce, charsize=1.1, title='SWR - TAO Vs NCEP2', $ 
    400399     xmin=1,ymin=1,xrange=[100,300], yrange=[100,300], small=[2,3,4],/noer, psym=2 
    401400xyouts, 180,175, cstat, charsize=1. 
    402401xyouts, 180,160, 'cor    bias    std    rmsd', charsize=1. 
    403  
    404 x=mean_tao  
     402; 
     403x=mean_tao 
    405404y=mean_nce 
    406405ab=linfit(x,y,yfit=yfit) 
    407 a=float(ab(0))  
    408 b=float(ab(1))  
    409 print, a,b 
    410 oplot, x, yfit, thick=2, color=250 
    411 oplot, [100,300], [100,300] 
    412  
    413  
     406a=float(ab(0)) 
     407b=float(ab(1)) 
     408print, a,b 
     409oplot, x, yfit, thick=2, color=250 
     410oplot, [100,300], [100,300] 
     411; 
     412; 
    414413fi_swr_ncep1=project_id_env+'swr_2000_2007_ncep1_v50.txt' 
    415414res=read_ascii(fi_swr_ncep1,data_start=1) 
    … …  
    421420mean_tao=reform(ff(6,*)) 
    422421mean_nce=mean_tao+bias_nce 
    423  
    424 ind=where(finite(cor_nce))  
     422; 
     423ind=where(finite(cor_nce)) 
    425424cor=total(cor_nce,/nan)/n_elements(ind) 
    426 ind=where(finite(bias_nce))  
     425ind=where(finite(bias_nce)) 
    427426bias=total(bias_nce,/nan)/n_elements(ind) 
    428 ind=where(finite(rmsd_nce))  
     427ind=where(finite(rmsd_nce)) 
    429428rmsd=total(rmsd_nce,/nan)/n_elements(ind) 
    430 ind=where(finite(std_nce))  
     429ind=where(finite(std_nce)) 
    431430std=total(std_nce,/nan)/n_elements(ind) 
    432  
     431; 
    433432print, '' 
    434433print, 'NCEP1' 
    435434print, cor, bias, std, rmsd 
    436435cstat=string(cor, bias, std, rmsd, format='(f4.2,2x,f6.2,2x,f4.2,1x,f6.2)') 
    437  
     436; 
    438437splot, mean_tao, mean_nce, charsize=1.1, title='SWR - TAO Vs NCEP1', $ 
    439438     xmin=1,ymin=1,xrange=[100,300], yrange=[100,300], small=[2,3,5],/noer, psym=2 
    440439xyouts, 180,175, cstat, charsize=1. 
    441440xyouts, 180,160, 'cor    bias    std    rmsd', charsize=1. 
    442  
    443 x=mean_tao  
     441; 
     442x=mean_tao 
    444443y=mean_nce 
    445444ab=linfit(x,y,yfit=yfit) 
    446 a=float(ab(0))  
    447 b=float(ab(1))  
    448 print, a,b 
    449 oplot, x, yfit, thick=2, color=250 
    450 oplot, [100,300], [100,300] 
    451  
    452  
     445a=float(ab(0)) 
     446b=float(ab(1)) 
     447print, a,b 
     448oplot, x, yfit, thick=2, color=250 
     449oplot, [100,300], [100,300] 
     450; 
     451; 
    453452fi_swr_olr=project_id_env+'swr_2000_2007_olr_v50.txt' 
    454453res=read_ascii(fi_swr_olr,data_start=1) 
    … …  
    460459mean_tao=reform(ff(6,*)) 
    461460mean_olr=mean_tao+bias_olr 
    462  
    463 ind=where(finite(cor_olr))  
     461; 
     462ind=where(finite(cor_olr)) 
    464463cor=total(cor_olr,/nan)/n_elements(ind) 
    465 ind=where(finite(bias_olr))  
     464ind=where(finite(bias_olr)) 
    466465bias=total(bias_olr,/nan)/n_elements(ind) 
    467 ind=where(finite(rmsd_olr))  
     466ind=where(finite(rmsd_olr)) 
    468467rmsd=total(rmsd_olr,/nan)/n_elements(ind) 
    469 ind=where(finite(std_olr))  
     468ind=where(finite(std_olr)) 
    470469std=total(std_olr,/nan)/n_elements(ind) 
    471  
     470; 
    472471print, '' 
    473472print, 'SWR_olr' 
    474473print, cor, bias, std, rmsd 
    475474cstat=string(cor, bias, std, rmsd, format='(f4.2,2x,f6.2,2x,f4.2,1x,f6.2)') 
    476  
     475; 
    477476splot, mean_tao, mean_olr, charsize=1.1, title='SWR - TAO Vs SWR_olr', $ 
    478477     xmin=1,ymin=1,xrange=[100,300], yrange=[100,300], small=[2,3,6],/noer, psym=2 
    479478xyouts, 180,175, cstat, charsize=1. 
    480479xyouts, 180,160, 'cor    bias    std    rmsd', charsize=1. 
    481  
    482 x=mean_tao  
     480; 
     481x=mean_tao 
    483482y=mean_olr 
    484483ab=linfit(x,y,yfit=yfit) 
    485 a=float(ab(0))  
    486 b=float(ab(1))  
    487 print, a,b 
    488 oplot, x, yfit, thick=2, color=250 
    489 oplot, [100,300], [100,300] 
    490  
    491  
     484a=float(ab(0)) 
     485b=float(ab(1)) 
     486print, a,b 
     487oplot, x, yfit, thick=2, color=250 
     488oplot, [100,300], [100,300] 
     489; 
    492490closeps 
    493  
     491; 
    494492end 

  • trunk/src/project_init.pro

    r85 r97  
    6666; 
    6767;- 
    68 ;  
     68; 
    6969; SAXO environment 
    7070saxo_dir_env=GETENV('SAXO_DIR') 

  • trunk/src/q2m_correction_ncdf.pro

    r94 r97  
    143143ENDIF 
    144144; 
    145 da1=19880101  
     145da1=19880101 
    146146da2=20101231 
    147147; 
    … …  
    172172q2m=read_ncdf('q2m',da1,da2,file=fullfilename,/nostr) 
    173173help, q2m 
    174  
     174; 
    175175q2m_mean=grossemoyenne(q2m,'t',/nan) 
    176176help, q2m_mean 
    177  
    178 tt=time  
     177; 
     178tt=time 
    179179jpt=n_elements(time) 
    180180caldat, time,mon,day,yea 
    181181q2m_m=q2m*0. 
    182  
     182; 
    183183for jt=0,jpt-1 do begin 
    184184  jtt=(time(jt)-julday(1,1,yea(jt))) < 364 
    … …  
    187187endfor 
    188188help, q2m_m 
    189  
     189; 
    190190q2m_ano=q2m-q2m_m 
    191  
    192 ;; correction for mean based on scatter 
    193 ;q2m_m=q2m_m+0.815445  ;;  (2000-2008) 
    194 q2m_m=q2m_m+0.792717   ;;  (2000-2009) 
     191; 
     192; correction for mean based on scatter 
     193;q2m_m=q2m_m+0.815445  ;  (2000-2008) 
     194q2m_m=q2m_m+0.792717   ;  (2000-2009) 
    195195help, q2m_ano 
    196  
    197 ;; applying the correction for variability based on the scatter 
    198 ;q2m_ano=q2m_ano*(1/0.919333)  ;;  (2000-2008) 
    199 q2m_ano=q2m_ano*(1/0.924674)   ;;  (2000-2009) 
    200  
     196; 
     197; applying the correction for variability based on the scatter 
     198;q2m_ano=q2m_ano*(1/0.919333)  ;  (2000-2008) 
     199q2m_ano=q2m_ano*(1/0.924674)   ;  (2000-2009) 
     200; 
    201201q2m_new=q2m_m+q2m_ano 
    202202help, q2m_new 
    203  
     203; 
    204204;writing field 
    205205lat=reform(gphit(0,0:jpj-1)) 
    206206lon=reform(glamt(0:jpi-1,0)) 
    207 time=timegen(7670, units='days', start=julday(1,1,1989,0))  
     207time=timegen(7670, units='days', start=julday(1,1,1989,0)) 
    208208jpt=n_elements(time) 
    209  
     209; 
    210210cda0=string(jul2date(time(0)),format='(i8.8)') 
    211211cda1=string(jul2date(time(jpt-1)),format='(i8.8)') 
    212  
    213 time=time-julday(1,1,1950)  
     212; 
     213time=time-julday(1,1,1950) 
    214214jpt=n_elements(time) 
    215  
     215; 
    216216ncfile='!' + fullfilename_out 
    217217lon_attr={units:'degrees_east',long_name:'Longitude'} 
    … …  
    220220q2m_attr={units:'g/kg',missing_value:1.e20,long_name:'Specific humidity at 2m height',short_name:'q2m',axis:'TYX'} 
    221221globattr={source:'Basic data obtained from ERAI.  Mean correction for bias and correction for variability are applied',timerange:cda0+' - '+cda1} 
    222  
     222; 
    223223ncfields = 'q2m[longitude,latitude,time]=q2m_new:q2m_attr; ' $ 
    224224                      + 'longitude[]=lon:lon_attr; ' $ 
    … …  
    226226                      + 'time[*time]=time:time_attr ' $ 
    227227                      + ' @ globattr' 
    228  
     228; 
    229229@ncdf_quickwrite 
    230  
     230; 
    231231end 

  • trunk/src/rh_to_spechum.pro

    r80 r97  
    5858;- 
    5959function rh_to_spechum, rh,ta,P 
    60  
     60; 
    6161rhf=rh/100. 
    6262qw=qsat(ta,P)/1000. 
    63  
     63; 
    6464; Air specific humidity (g/kg) 
    6565q=(rhf*qw)/(1.-qw*(1-rhf))*1e3 
    66  
     66; 
    6767return, q 
    68  
     68; 
    6969end 

  • trunk/src/sst_correction_ncdf.pro

    r94 r97  
    136136;   time[7089]=21334 
    137137;   time[7090]=21335 
    138  
     138; 
    139139; coding rules 
    140140; 
    … …  
    213213ENDIF 
    214214; 
    215 da1=19880101  
     215da1=19880101 
    216216da2=20091231 
    217217; 
    … …  
    240240; 
    241241initncdf, fullfilename 
    242 sst=read_ncdf('sst',da1,da2,file=fullfilename,/nostr)  
     242sst=read_ncdf('sst',da1,da2,file=fullfilename,/nostr) 
    243243sst=sst-273.15 
    244244help, sst 
    245  
     245; 
    246246sst_mean=grossemoyenne(sst,'t',/nan) 
    247247help, sst_mean 
    248  
    249 tt=time  
     248; 
     249tt=time 
    250250jpt=n_elements(time) 
    251251caldat, time,mon,day,yea 
    … …  
    255255; 
    256256sst_m=sst*0. 
    257  
     257; 
    258258for jt=0,jpt-1 do begin 
    259259  jtt=(time(jt)-julday(1,1,yea(jt))) < 364 
    … …  
    262262endfor 
    263263help, sst_m 
    264  
     264; 
    265265sst_ano=sst-sst_m 
    266  
    267 ;; correction for mean based on scatter 
    268 ;sst_m=sst_m+0.0521111   ;; (2000-2008) 
    269 sst_m=sst_m+0.0533692    ;; (2000-2009) 
    270  
     266; 
     267; correction for mean based on scatter 
     268;sst_m=sst_m+0.0521111   ; (2000-2008) 
     269sst_m=sst_m+0.0533692    ; (2000-2009) 
     270; 
    271271help, sst_ano 
    272  
    273 ;; applying the correction for varyability based on the scatter 
    274 ;sst_ano=sst_ano*(1/0.989889)  ;; (2000-2008) 
    275 sst_ano=sst_ano*(1/0.986196)   ;; (2000-2009) 
    276  
     272; 
     273; applying the correction for varyability based on the scatter 
     274;sst_ano=sst_ano*(1/0.989889)  ; (2000-2008) 
     275sst_ano=sst_ano*(1/0.986196)   ; (2000-2009) 
     276; 
    277277sst_new=sst_m+sst_ano+273.15 
    278278help, sst_new 
    279  
     279; 
    280280;writing field 
    281281lat=reform(gphit(0,0:jpj-1)) 
    282282lon=reform(glamt(0:jpi-1,0)) 
    283 time=timegen(7670, units='days', start=julday(1,1,1989))  
     283time=timegen(7670, units='days', start=julday(1,1,1989)) 
    284284jpt=n_elements(time) 
    285  
     285; 
    286286cda0=string(jul2date(time(0)),format='(i8.8)') 
    287287cda1=string(jul2date(time(jpt-1)),format='(i8.8)') 
    288  
    289 time=time-julday(1,1,1950)  
     288; 
     289time=time-julday(1,1,1950) 
    290290jpt=n_elements(time) 
    291  
     291; 
    292292ncfile='!' + fullfilename_out 
    293293lon_attr={units:'degrees_east',long_name:'Longitude'} 
    … …  
    296296sst_attr={units:'degK',missing_value:1.e20,long_name:'Sea Surface Temperature',short_name:'sst',axis:'TYX'} 
    297297globattr={source:'Basic data obtained from ERAI.  Bias and variability correction are applied',timerange:cda0+' - '+cda1} 
    298  
     298; 
    299299ncfields = 'sst[longitude,latitude,time]=sst_new:sst_attr; ' $ 
    300300                      + 'longitude[]=lon:lon_attr; ' $ 
    … …  
    302302                      + 'time[*time]=time:time_attr ' $ 
    303303                      + ' @ globattr' 
    304  
     304; 
    305305@ncdf_quickwrite 
    306  
     306; 
    307307end 

  • trunk/src/t2m_correction_ncdf.pro

    r92 r97  
    7878; note .5 in time value ... is this correct ? do others files 
    7979; present the same feature ?:: 
    80 : 
     80; 
    8181;    $ ncks -v time -d time,0,1 /usr/work/incas/fplod/tropflux_d/TropFlux_t2m_19890101_20091231.nc 
    8282;    time: type NC_DOUBLE, 1 dimension, 3 attributes, chunked? no, compressed? no, packed? no, ID = 3 
    … …  
    255255t2m_mean=grossemoyenne(t2m,'t',/nan) 
    256256help, t2m_mean 
    257  
     257; 
    258258t2m_m=t2m*0. 
    259259bias_cor=t2m*0. 
    260  
    261 ;; line fit ->  -0.0755589x + 1.71090   ;; (2000-2008) 
    262 ;; line fit ->  -0.0741607x + 1.67601   ;; (2000-2009) 
    263  
     260; 
     261; line fit ->  -0.0755589x + 1.71090   ; (2000-2008) 
     262; line fit ->  -0.0741607x + 1.67601   ; (2000-2009) 
     263; 
    264264for jt=0,jptin-1 do begin 
    265265  caldat, julday(01, 01, 1957,timein[jt]),mon,day,yea 
    … …  
    268268  t=reform(t2m_mean(*,*)) 
    269269  t2m_m(*,*,jt)=t 
    270   bias_cor(*,*,jt)=(((t-22.6)*0.4004896/(28-22.6)) > 0.) <0.4     ;; (2000-2009) 
     270  bias_cor(*,*,jt)=(((t-22.6)*0.4004896/(28-22.6)) > 0.) <0.4     ; (2000-2009) 
    271271endfor 
    272272help, t2m_m,bias_cor 
    273  
     273; 
    274274t2m_ano=t2m-t2m_m 
    275  
    276 ;; correction for mean based on scatter 
    277  
     275; 
     276; correction for mean based on scatter 
     277; 
    278278help, t2m_ano 
    279  
    280 ;; applying the correction for varyability based on the scatter 
    281 ;t2m_ano=t2m_ano*(1/0.916484)    ;; (2000-2008) 
    282 t2m_ano=t2m_ano*(1/0.918085)     ;; (2000-2009) 
    283  
    284 ;; applying the correction for varyability based on the scatter 
     279; 
     280; applying the correction for varyability based on the scatter 
     281;t2m_ano=t2m_ano*(1/0.916484)    ; (2000-2008) 
     282t2m_ano=t2m_ano*(1/0.918085)     ; (2000-2009) 
     283; 
     284; applying the correction for varyability based on the scatter 
    285285t2m_m=t2m_m+bias_cor 
    286  
     286; 
    287287t2m_new=t2m_m+t2m_ano+273.15 
    288288help, t2m_new 
    289  
     289; 
    290290;writing field 
    291291lat=reform(gphit(0,0:jpj-1)) 
    … …  
    293293cda0=string(da1) 
    294294cda1=string(da2) 
    295  
     295; 
    296296% conversion for hours since 19570101 to days from 19500101 
    297297time=julday(01, 01, 1957,timein)-julday(1,1,1950) 
    298298jpt=n_elements(time) 
    299  
     299; 
    300300ncfile='!' + fullfilename_out 
    301  
     301; 
    302302ncdf_getatt, fullfilename_t2_uncor, 'longitude', units=units 
    303303ncdf_getatt, fullfilename_t2_uncor, 'longitude', long_name=long_name 
    … …  
    306306ncdf_getatt, fullfilename_t2_uncor, 'latitude', long_name=long_name 
    307307lat_attr={units:units, long_name:long_name} 
    308  
     308; 
    309309time_attr={units:'days since 1950-01-01 00:00:00',long_name:'Time axis',time_origin:'1950-JAN-01 00:00:00'} 
    310  
     310; 
    311311ncdf_getatt, fullfilename_t2_uncor, 't2m', units=units 
    312312ncdf_getatt, fullfilename_t2_uncor, 't2m', long_name=long_name 
    313313t2m_attr={units:units,missing_value:1.e20,long_name:long_name,short_name:'t2m',axis:'TYX'} 
    314314globattr={source:'Basic data obtained from ERAI.  Mean correction for air temperautre bias and correction for variability are applied',timerange:cda0+' - '+cda1} 
    315  
     315; 
    316316ncfields = 't2m[longitude,latitude,time]=t2m_new:t2m_attr; ' $ 
    317317                      + 'longitude[]=lon:lon_attr; ' $ 
    … …  
    319319                      + 'time[*time]=time:time_attr ' $ 
    320320                      + ' @ globattr' 
    321  
     321; 
    322322@ncdf_quickwrite 
    323  
     323; 
    324324end 

  • trunk/src/time_axe_modif_TropFlux.pro

    r91 r97  
    4646; 20c3m_erai_t2_TROP_1989_2009.nc 
    4747; 
    48 ; no change off attributs : wrong info vs data on time  
     48; no change off attributs : wrong info vs data on time 
    4949; 
    5050; EVOLUTIONS 
    … …  
    6969;- 
    7070pro time_axe_modif_TropFlux 
    71  
     71; 
    7272dir_out='/Users/pkb/data/TropFlux/' 
    7373;dir_out='/Users/pkb/data/heat_budget/oscar_global/global/' 
    … …  
    8282;file='TropFlux_t2m_19890101_20091231_v50.nc' 
    8383fic=dir_out+file 
    84  
     84; 
    8585print, '' 
    8686print, 'File in : ',fic 
    8787print, ' ' 
    88  
     88; 
    8989; 
    9090; opening the file to modify the time axis 
    … …  
    9999varid=ncdf_varid(cdfid,'time') 
    100100;varid=ncdf_varid(cdfid,'tt') 
    101  
    102101; 
    103  
     102; 
     103; 
    104104ncdf_control, cdfid ,/endef 
    105105ntt=n_elements(tt) 
    106106ttt=(julday(01, 01, 1989,12)-julday(01, 01, 1950,0))+findgen(ntt) 
    107  
     107; 
    108108NCDF_VARPUT, cdfid, 'time', ttt 
    109109;NCDF_VARPUT, cdfid, 'tt', ttt 
    110110NCDF_CLOSE, cdfid 
    111  
     111; 
    112112END 

  • trunk/src/time_axe_modif_tropflux_1d_1989_2010.pro

    r83 r97  
    6464;- 
    6565pro time_axe_modif_tropflux_1d_1989_2010 
    66  
     66; 
    6767dir_out="/Volumes/PAYASAM/TropFlux/ERA_C_1989_2010/" 
    68  
     68; 
    6969file="ws_tropflux_1d_1989_2010.nc" 
    70  
     70; 
    7171fic=dir_out+file 
    72  
     72; 
    7373print, '' 
    7474print, 'File in : ',fic 
    7575print, ' ' 
    76  
     76; 
    7777; 
    7878; opening the file to modify the time axis 
    … …  
    8080; 
    8181cdfid=NCDF_OPEN(fic,/write) 
    82  
     82; 
    8383;cdfid=NCDF_OPEN(fic,/write) 
    8484NCDF_VARGET, cdfid, 'time', tt 
    8585;NCDF_VARGET, cdfid, 'tt', tt 
    86  
     86; 
    8787ncdf_control, cdfid ,/REDEF ; put in define mode 
    8888; 
    … …  
    9191varid=ncdf_varid(cdfid,'time') 
    9292;varid=ncdf_varid(cdfid,'tt') 
    93  
    9493; 
    95  
     94; 
     95; 
    9696ncdf_control, cdfid ,/endef 
    9797ntt=n_elements(tt) 
    98  
     98; 
    9999ttt=(julday(01, 01, 1989)-julday(01, 01, 1950,0))+findgen(ntt) 
    100  
     100; 
    101101NCDF_VARPUT, cdfid, 'time', ttt 
    102102;NCDF_VARPUT, cdfid, 'tt', ttt 
    103  
     103; 
    104104NCDF_CLOSE, cdfid 
    105  
     105; 
    106106END 

  • trunk/src/ws_correction_ncdf.pro

    r94 r97  
    9494;   * complete description 
    9595;   * remove v20 in output filename 
    96  
     96; 
    9797; - fplod 20101215T115916Z aedon.locean-ipsl.upmc.fr (Darwin) 
    9898; 
    … …  
    146146ENDIF 
    147147; 
    148 da1=19880101  
     148da1=19880101 
    149149da2=20101231 
    150150; 
    … …  
    176176v=read_ncdf('v10',da1,da2,file=fullfilename,/nostr) 
    177177w=sqrt(u*u+v*v) 
    178  
     178; 
    179179help, w 
    180  
     180; 
    181181w_mean=grossemoyenne(w,'t',/nan) 
    182182help, w_mean 
    183  
    184 tt=time  
     183; 
     184tt=time 
    185185jpt=n_elements(time) 
    186186caldat, time,mon,day,yea 
    187187w_m=w*0. 
    188  
     188; 
    189189for jt=0,jpt-1 do begin 
    190190  jtt=(time(jt)-julday(1,1,yea(jt))) < 364 
    … …  
    193193endfor 
    194194help, w_m 
    195  
     195; 
    196196w_ano=w-w_m 
    197  
    198 ;; correction for mean based on scatter 
    199 ;w_m=w_m+0.282667    ;; (2000-2008) 
    200 w_m=w_m+0.276739     ;; (2000-2009) 
    201  
     197; 
     198; correction for mean based on scatter 
     199;w_m=w_m+0.282667    ; (2000-2008) 
     200w_m=w_m+0.276739     ; (2000-2009) 
     201; 
    202202help, w_ano 
    203  
    204 ;; applying the correction for varyability based on the scatter 
    205 ;w_ano=w_ano*(1/0.897667)   ;; (2000-2008) 
    206 w_ano=w_ano*(1/0.903587)    ;; (2000-2009) 
    207  
     203; 
     204; applying the correction for varyability based on the scatter 
     205;w_ano=w_ano*(1/0.897667)   ; (2000-2008) 
     206w_ano=w_ano*(1/0.903587)    ; (2000-2009) 
     207; 
    208208w_new=w_m+w_ano 
    209209help, w_new 
    210  
     210; 
    211211;writing field 
    212212lat=reform(gphit(0,0:jpj-1)) 
    213213lon=reform(glamt(0:jpi-1,0)) 
    214 time=timegen(7670, units='days', start=julday(1,1,1989,0))  
     214time=timegen(7670, units='days', start=julday(1,1,1989,0)) 
    215215jpt=n_elements(time) 
    216  
     216; 
    217217cda0=string(jul2date(time(0)),format='(i8.8)') 
    218218cda1=string(jul2date(time(jpt-1)),format='(i8.8)') 
    219  
    220 time=time-julday(1,1,1950)  
     219; 
     220time=time-julday(1,1,1950) 
    221221jpt=n_elements(time) 
    222  
     222; 
    223223ncfile='!' + fullfilename_out 
    224224lon_attr={units:'degrees_east',long_name:'Longitude'} 
    … …  
    227227w_attr={units:'m/s',missing_value:1.e20,long_name:'mean wind speed',short_name:'w',axis:'TYX'} 
    228228globattr={source:'Basic data obtained from ERAI. Bias and variability correction are applied',timerange:cda0+' - '+cda1} 
    229  
     229; 
    230230ncfields = 'ws[longitude,latitude,time]=w_new:w_attr; ' $ 
    231231                      + 'longitude[]=lon:lon_attr; ' $ 
    … …  
    233233                      + 'time[*time]=time:time_attr ' $ 
    234234                      + ' @ globattr' 
    235  
     235; 
    236236@ncdf_quickwrite 
    237  
     237; 
    238238end 

  • trunk/src/ws_tropflux_1d_to_1m_ncdf.pro

    r95 r97  
    153153en=20101231 
    154154ws=read_ncdf("ws", st, en, file=fullfilename,/nostr) 
    155  
     155; 
    156156help, ws 
    157  
     157; 
    158158tt=time 
    159159; 
    160 ;; Monthly data 
     160; Monthly data 
    161161; 
    162162jpt=22*12. 
    … …  
    164164caldat, tt,m,d,y 
    165165caldat, time, mon,day,yea 
    166  
     166; 
    167167wsm=fltarr(nxt,nyt,jpt) 
    168  
     168; 
    169169for jt=0,jpt-1 do begin 
    170  
     170; 
    171171   ind=where((m eq mon(jt)) and (y eq yea(jt))) 
    172172   wsm(*,*,jt)=total(ws(*,*,ind),3)/n_elements(ind) 
    173  
     173; 
    174174endfor 
    175  
    176  
     175; 
     176; 
    177177;----------------------------------------------------------------------------- 
    178178cda0=string(jul2date(time(0)),format='(i8.8)') 
    … …  
    181181xlon=reform(glamt(firstxt:lastxt,0)) 
    182182ylat=reform(gphit(0,firstyt:lastyt)) 
    183  
     183; 
    184184ncfile='!' + fullfilename_out 
    185  
     185; 
    186186lon_attr={units:'degrees_east',long_name:'Longitude'} 
    187187lat_attr={units:'degrees_north',long_name:'Latitude'} 
    188  
     188; 
    189189time_attr={units:'days since 1950-01-01 00:00:00',long_name:'Time axis',time_origin:'1950-JAN-01 00:00:00'} 
    190190ws_attr={units:'m/s',missing_value:1.e20,long_name:'Mean wind speed at 10m height',short_name:'ws',axis:'TYX'} 
    191  
     191; 
    192192creation_date=string(jul2date(SYSTIME( /JULIAN , /UTC )), format='(I8)') 
    193  
     193; 
    194194globattr={Source:'TropFlux - Air-Sea Fluxes for the Global Tropics' $ 
    195195    , Methodology:'Praveen Kumar et al., Clim. Dyn 2011' $ 
    … …  
    198198    , Creation_date:creation_date $ 
    199199    , Website:'http://www.locean-ipsl.upmc.fr/tropflux/'} 
    200  
    201  
     200; 
     201; 
    202202ncfields = 'ws[longitude,latitude,time]=wsm:ws_attr; ' $ 
    203203                      + 'longitude[]=xlon:lon_attr; ' $ 
    … …  
    205205                      + 'time[*time]=time:time_attr ' $ 
    206206                      + ' @ globattr' 
    207  
     207; 
    208208@ncdf_quickwrite 
    209  
    210 return 
    211  
     209; 
    212210end 
Note: See TracChangeset for help on using the changeset viewer.