% mk_avg.m - remake binavg files for despiked CTD's (1-3)

%%% save avg and d...avg spikey files and remake them here

load ../process/oc415401
pr1m=min(floor(press)):max(floor(press));
A=[press,t0,s0,chl];
B=interpT(A,pr1m,1);

press=B(:,1);
%aa=find(press == max(press));
%aa=1:aa;
%press=press(aa);
t0=B(:,2);
s0=B(:,3);
chl=B(:,4);

save ../process/doc415401avg

load ../process/oc415402
pr1m=min(floor(press)):max(floor(press));
A=[press,t0,s0,chl];
B=interpT(A,pr1m,1);

press=B(:,1);
%aa=find(press == max(press));
%aa=1:aa;
%press=press(aa);
t0=B(:,2);
s0=B(:,3);
chl=B(:,4);

save ../process/doc415402avg

load ../process/oc415403
pr1m=min(floor(press)):max(floor(press));
A=[press,t0,s0,chl];
B=interpT(A,pr1m,1);

press=B(:,1);
%aa=find(press == max(press));
%aa=1:aa;
%press=press(aa);
t0=B(:,2);
s0=B(:,3);
chl=B(:,4);

save ../process/doc415403avg

