function plot_day_record(fign,vos,da)

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

if exist('da')~=1, da=1; end;

xax=[max(vos.yday)-da-1./24  max(vos.yday)+1./24];
I=find(vos.yday>xax(1) & vos.yday<xax(2));

% convert to hour of day for plotting
yday=vos.yday.*24;
step=2;
xax=xax.*24;
% xt=(ceil(xax(1).*24):step:floor(xax(2).*24))./24;
xt=(ceil(xax(1)):step:floor(xax(2)));
xtl=[xt./24-floor(xt./24)].*24;

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 da==1,
		title(['Last Day Record ' datestr(now,31)]); 
	else
		title(['Last ' num2str(da) ' Days 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('Hour of Day');

return;

