;correcttau.pro
;A one time program to correct the optical depth itau_r


files=findfile('nsamcrs1micro*.cdf',count=numf)

for i=0,numf-1 do begin
	fid=ncdf_open(files[i],/write)
	ncdf_varget,fid,ncdf_varid(fid,'itausw0_r'),tau
	ncdf_varput,fid,ncdf_varid(fid,'itausw0_r'),2.0*tau
	ncdf_close,fid
endfor

end