function plot_hour_record(fign,vos,hr)

figure(fign);
	clf;
% disp('after figure')

if exist('hr')~=1, hr=2; end;

% plot last two hours
xax=[max(vos.yday)-hr./24-2./24./60  max(vos.yday)+1./24./60];
I=find(vos.yday>xax(1) & vos.yday<xax(2));

% convert to hour of day for plotting
yday=vos.yday;

step=1;
tax=xax.*24.*60;
xt=(ceil(tax(1)./10):step:floor(tax(2)./10)).*10;
xtl=[xt./60-floor(xt./60)].*60;
xt=xt./24./60;


plt=1;
plts=10;


	subplot(plts,1,plt);
	plot(yday(I),vos.bpr(I),'.'); hold on;
	ax=axis; axis([xax ax(3:4)]);
	ylabel('BPR');
	set(gca,'xtick',xt,'xticklabel',[]);
	if hr==1,
		title(['Last Hour Record ' datestr(now,31)]); 
	else
		title(['Last ' num2str(hr) ' Hours Record ', datestr(now,31)]);
	end;

plt=plt+1;
	subplot(plts,1,plt);
	plot(yday(I),vos.hrh(I),'.'); hold on;
	ax=axis; axis([xax ax(3:4)]);
	ylabel('HRH');
	set(gca,'xtick',xt,'xticklabel',[]);

plt=plt+1;
	subplot(plts,1,plt);
	plot(yday(I),vos.precip(I),'.'); hold on;
	ax=axis; axis([xax ax(3:4)]);
	ylabel('PRC');
	set(gca,'xtick',xt,'xticklabel',[]);

plt=plt+1;
	subplot(plts,1,plt);
	plot(yday,vos.atmp,'.'); hold on;
	ax=axis; axis([xax ax(3:4)]);
	ylabel('ATMP');
	set(gca,'xtick',xt,'xticklabel',[]);

plt=plt+1;
	subplot(plts,1,plt);
	plot(yday(I),vos.lwr(I),'b.'); hold on;
	plot(yday(I),vos.swr(I),'r.'); hold on;
	axis([xax,0,1400]);
	ylabel('S/LWR');
	set(gca,'xtick',xt,'xticklabel',[]);
% disp('swr');

plt=plt+1;
	subplot(plts,1,plt);
	plot(yday(I),vos.wndu(I),'.'); hold on;
	ax=axis; axis([xax ax(3:4)]);
	ylabel('WNDU');
	set(gca,'xtick',xt,'xticklabel',[]);

plt=plt+1;
	subplot(plts,1,plt);
	plot(yday(I),vos.wndv(I),'.'); hold on;
	ax=axis; axis([xax ax(3:4)]);
	ylabel('WNDV');
	set(gca,'xtick',xt,'xticklabel',[]);

plt=plt+1;
	subplot(plts,1,plt);
	plot(yday(I),vos.shspd(I),'.'); hold on;
	ax=axis; axis([xax ax(3:4)]);
	ylabel('SPD');
	set(gca,'xtick',xt,'xticklabel',[]);

plt=plt+1;
	subplot(plts,1,plt);
	plot(yday(I),vos.hdg(I),'.'); hold on;
	ax=axis; axis([xax ax(3:4)]);
	ylabel('HDG');
	set(gca,'xtick',xt,'xticklabel',[]);

plt=plt+1;
	subplot(plts,1,plt);
	plot(yday(I),vos.vane(I),'.'); hold on;
	ax=axis; axis([xax ax(3:4)]);
	set(gca,'xtick',xt,'xticklabel',xtl);
	ylabel('VANE');
	xlabel('Minute of Hour');

return;
