% CHECK_CAL - script checks calibration for specific cruise
% 
% VERSION: 
%	$Revision: 1.4 $
%	$Date: 2008/02/20 17:32:27 $
%	$Id: check_cal.m,v 1.4 2008/02/20 17:32:27 duncombe Exp duncombe $
%
% CHANGELOG:
% 

for i=1:33
plot(ctd_cal(i).salt,ctd_cal(i).pottemp,'k');
title(['Station ',num2str(ctd_cal(i).station)])
hold on
aux=find(cond_cal.stnnbr==ctd_cal(i).station);
if cond_cal.quality(aux)==1
plot(cond_cal.btlsal(aux),sw_ptmp(cond_cal.btlsal(aux),cond_cal.ctdtmp2(aux),cond_cal.ctdprs(aux),0),'k.');
else
plot(cond_cal.btlsal(aux),sw_ptmp(cond_cal.btlsal(aux),cond_cal.ctdtmp2(aux),cond_cal.ctdprs(aux),0),'r.');
end
pause
hold off
end

