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