;Program to evaluate the processed data

cd,'/cruises/ASCOS_2008/ODEN/radiometer/mailbox/Processed'
files=findfile('*200808*.cdf',count=numf)

for i=0,numf-1 do begin
	print,files[i]
	fid=ncdf_open(files[i])
	ncdf_varget,fid,'base_time',bt
	ncdf_varget,fid,'time_offset',to
	ncdf_varget,fid,'liquid',liq
	ncdf_close,fid
	tm=basetime_to_time(bt,to)
	if i eq 0 then begin
		lwp=liq
		time=strmid(files[i],21,2)+tm/24.0
	endif else begin
		lwp=[lwp,liq]
		time=[time,strmid(files[i],21,2)+tm/24.0]
	endelse
endfor

num=n_elements(time)
delta=lwp*0-999
for i=1L,num-1 do begin
	delta[i]=lwp[i]-lwp[i-1]
endfor

end