root/DPWavesProc/trunk/DPWavesProc/adcp_matlab/Winfo_plot1.m

function [fig_sigh,fig_pp,fig_dp,fig_dd]=Winfo_plot1(Winfo);

%This function takes the wave info (sigH, peak period, direction of peak and dominant direction
%for a series of bursts and plots it as a function of time


%plot sig wave height
scrsz = get(0,'ScreenSize');
fig_sigh=figure('Position',[scrsz]);
h1=plot(Winfo.time,Winfo.hsig(1,:),'b.-');

datetick('x',15,'keepticks');
legend([h1],'EMEP radial','location','best');
title(['Significant Wave Height starting on ',datestr(Winfo.time(:,1),0)]);
xlabel('time');
ylabel('Wave Height (m)');

%plot peak period
fig_pp=figure('Position',[scrsz]);
h1=plot(Winfo.time,Winfo.peakP(1,:),'b.-');

datetick('x',15,'keepticks');
legend([h1],'EMEP radial','location','best');
title(['Peak Period starting on ',datestr(Winfo.time(:,1),0)]);
xlabel('time');
ylabel('Period (seconds)');

%plot dir of peak period
fig_dp=figure('Position',[scrsz]);
h1=plot(Winfo.time,Winfo.dirP(1,:),'b.-');

datetick('x',15,'keepticks');
legend([h1],'EMEP radial','location','best');
title(['Direction of Peak Period starting on ',datestr(Winfo.time(:,1),0)]);
xlabel('time');
ylabel('Direction (Degrees True)');

%plot the dominant direction

fig_dd=figure('Position',[scrsz]);
h1=plot(Winfo.time,Winfo.Ddir(1,:),'b.-');

datetick('x',15,'keepticks');
legend([h1],'EMEP radial','location','best');
title(['Dominant Direction starting on ',datestr(Winfo.time(:,1),0)] );
xlabel('time');
ylabel('Direction (Degrees True)');