pro plotmwr, datestr

;Procedure to restore and plot the 1-min
;IDL microwave radiometer data files.
;
;I/O format:  plotmwr,'980428'

cd,'d:/shebaar/microwave/raw',current=origdir
filearg='shbmwr.1min.'+datestr+'.dat'
restore,filearg
ave=strtrim(string(mean(water)),2)
maxw=strtrim(string(max(water)),2)
minw=strtrim(string(min(water)),2)
time=(mwjtime-mwjtime[0])*24.
maxt=strtrim(string(max(time)),2)
mint=strtrim(string(min(time)),2)
window,10
plot,time,water,ytitle='Liquid Water Path [cm]',xtitle='Julian day',$
	title='Microwave Radiometer Total Water: '+datestr,xstyle=1,$
	yrange=[0,.0015],ystyle=1,xrange=[0,24]
xyouts,.65,.9,/normal,'Mean lwp = '+ave
xyouts,.65,.87,/normal,'Max lwp = '+maxw
xyouts,.65,.84,/normal,'Min lwp = '+minw
;xyouts,.65,.81,/normal,'Max time = '+maxt
;xyouts,.65,.78,/normal,'Min time = '+mint

;plot,time,vapor;,xrange=[0,12]

cd,origdir
end