%CPF_sci_plot1.m

clear;

load CPF29MAR16.mat;


for i=1:size(P,1)
    for j=1:size(P,2)
        X(i,j)=i;
    end
end

for i=1:size(FL,1)
    for j=1:size(FL,2)
        if(FL(i,j)> 500)FL(i,j)=NaN;end
    end
end



figure(1); title('CPF 23MAR16');
subplot(2,2,1); hold on;
hold on;
for i=1:size(P,1)
     scatter(X(i,:),-P(i,:),25,T(i,:),'filled');
end
colorbar;
%contour(X(:,:),-P(:,:),T(:,:));
ylabel('dBar');
xlabel('cast');
title('degC');
axis([0 size(P,1) -60 0]);

subplot(2,2,2); hold on;
for i=1:size(P,1)
     scatter(X(i,:),-P(i,:),25,S(i,:),'filled');
end
colorbar;
ylabel('dBar');
xlabel('cast');
title('PSU');
axis([0 size(P,1) -60 0]);

subplot(2,2,3); hold on;
for i=1:size(O2,1)
     scatter(X(i,:),O2d(i,:),25,O2(i,:),'filled');
end
colorbar;
title('O2');
ylabel('dBar');
xlabel('cast');
axis([0 size(P,1) -60 0]);

subplot(2,2,4); hold on;
for i=1:size(FL,1)
     scatter(X(i,:),FLd(i,:),25,FL(i,:),'filled');
end
colorbar;
title('flbb');
ylabel('dBar');
xlabel('cast');
axis([0 size(P,1) -60 0]);