%plot ref data
PortRef=ones(size(l,1)-1,5);
StbdRef=ones(size(l,1)-1,5);
for i=1:size(l,1)-1
    load(l(i).name);
    PortRef(i,:)=PortRefData;
   
    
end

for i=1:size(l,1)-1
    load(l(i).name);
    StbdRef(i,:)=StbdRefData;
    
end

figure;
plot(PortRef(:,3),PortRef(:,1),'bx');
hold on;
plot(StbdRef(:,3),StbdRef(:,1),'rx');
datetick('x','mmmyyyy','keepticks','keeplimits')
legend('Port','Stbd')
xlabel('Date');ylabel('Ave Conc (um)');
saveas(gcf,strcat('AveRef_Port_Stbd','.tiff'));

