% run gen_msg_data.m and plot_argos_data.m to get argos_mgs_plots.mat
% copy argos_mgs_plots.mat to comparison folder
% run min_argos_time.m to generate min_argos_time.mat file for plotting
%
% run compile_noref.m to get compile-noref.mat
% copy compile_noref.mat to comparison folder
% run min_compile.m to generate min_sutton.mat file for plotting
%
% plots.m plots data from both sets
close all
clear all
%
load min_sutton.mat
chl2=chl_2m_compile(:,:);
chl10=chl_10m_compile(:,:);
chl15=chl_15m_compile(:,:);
flr2=flr_2m_compile(:,:);
flr10=flr_10m_compile(:,:);
flr15=flr_15m_compile(:,:);
bback2=b_back_2m_compile(:,:);
bback10=b_back_10m_compile(:,:);
bback15=b_back_15m_compile(:,:);
b100_2=b100_2m_compile(:,:);
b125_2=b125_2m_compile(:,:);
b150_2=b150_2m_compile(:,:);
b100_10=b100_10m_compile(:,:);
b125_10=b125_10m_compile(:,:);
b150_10=b150_10m_compile(:,:);
b100_15=b100_15m_compile(:,:);
b125_15=b125_15m_compile(:,:);
b150_15=b150_15m_compile(:,:);
c10=c_10m_compile(:,:);
c20=c_20m_compile(:,:);
c35=c_35m_compile(:,:);
tt1=time_comp(:,:);
tt2=tt1';
flr2a=flr2';
%xx=tt1(:,:)';
%yy=datestr(xx(:,:));
%
j=4;
for i=1:13
     junk(i)=tt2(j,:);
     junk2(i)=flr2a(j,:);
    j=j+5;
end
tt_5=junk';
flr2_5=junk2';
%
%plot(tt2,flr2,'mx'); %plot Strutton every day
plot(tt_5,flr2_5,'mx'); %plot Strutton every five days beginning 6/17/04
hold on
%
load min_argos.mat
chl=chldata(:,:); %could multiple by 3 here for calibration to Sutton data
tt_argos=time_surf(:,:);
b=scatdata(:,:);
%
plot(tt_argos,chl,'b.')
set(gca,'xlim',[datenum('12 jun 2004') datenum('06 sep 2004')])
% %set(gca,'xtick',datenum('12 jun 2004'):4:datenum('06 sep 2004'))
% %datetick('x', 'keeplimits', 'keepticks')
datetick('x','mmmyy', 'keeplimits')
%datetick('x','mmmyy')
% %datetick('x', 'keeplimits')
title({'Chlorophyll Flr','Float 0005 vs. Strutton, North Atlantic'})
% ylabel('Concentration [mg/m^3]')
% xlabel('Time')
legend('Strutton','Float 0005')
hold off