source: trunk/src/lwr_correction_ncdf.pro @ 5

pro lwr_correction_ncdf
@common
;----------------------------------------------------------------------
da1=19880101 & da2=20091231

file='/Volumes/PRAVEEN/TropFlux/input_uncor/erai_lwr_19890102_20091231_oafluxgrid.nc'
initncdf, file
lwr=read_ncdf('lwr',da1,da2,file=file,/nostr)
help, lwr

lwr_mean=grossemoyenne(lwr,'t',/nan)
help,lwr_mean
;----------------------------------------------------------------------

tt=time & jpt=n_elements(time)
caldat, time,mon,day,yea
lwr_m=lwr*0.

for jt=0,jpt-1 do begin
  jtt=(time(jt)-julday(1,1,yea(jt))) < 364
  t=reform(lwr_mean(*,*))
  lwr_m(*,*,jt)=t
endfor
help, lwr_m

lwr_ano=lwr-lwr_m

;; correction for mean based on scatter
lwr_m=lwr_m+4.61667

help, lwr_ano

;; applying the correction for varyability based on the scatter
lwr_ano=lwr_ano*(1/0.760667)

;; applying the correction for varyability based on the scatter

lwr_new=lwr_m+lwr_ano
help, lwr_new

;----------------------------------------------------------------------
;writing field
lat=reform(gphit(0,0:jpj-1))
lon=reform(glamt(0:jpi-1,0))
time=timegen(7669, units='days', start=julday(1,2,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)

ncfile='!/Volumes/PRAVEEN/TropFlux/input_cor/full_cor/TropFlux_lwr_19890101_20091231_v1.nc'
lon_attr={units:'degrees_east',long_name:'Longitude'}
lat_attr={units:'degrees_north',long_name:'Latitude'}
time_attr={units:'days since 1950-01-01 00:00:00',long_name:'Time axis',time_origin:'1950-JAN-01 00:00:00'}
lwr_attr={units:'degK',missing_value:1.e20,long_name:'Air Temperature at 2m',short_name:'lwr',axis:'TYX'}
globattr={source:'Basic data obtained from ERAI.  Mean correction for  bias and correction for variability are applied',timerange:cda0+' - '+cda1}


ncfields = 'lwr[longitude,latitude,time]=lwr_new:lwr_attr; ' $
                      + 'longitude[]=lon:lon_attr; ' $
                      + 'latitude[]=lat:lat_attr; ' $
                      + 'time[*time]=time:time_attr ' $
                      + ' @ globattr'

@ncdf_quickwrite

end