% routine to plot ship board temp & salt assuming
% data is stored in columns 4 and 5 of the matrix "d" of ship.mat 

% Note: this routine is called by "atsee" pull down menu 

% load the data matrix in "ship.mat" file
  exi=exist('d');
  if exi==0;
    load ship;
  end;

% plotting ship snesor with quick clean
% user needs to edit lines below to specify reasonable ranges
% put down a base map with bathymetry
  idt=find(d(:,4)>0&d(:,4)<30);
  ids=find(d(:,5)>25&d(:,5)<40);

% calculate jd
  disp('calculating julian day...');
  for k=1:length(d);
    jd(k)=julian(d(k,6),d(k,7),97,d(k,8)*100+d(k,9));
  end;

  subplot(2,1,1)
  plot(jd(idt),d(idt,4),'.','markersize',2);
  set(gca,'xticklabels','');
  ylabel('Temp (degC)');
  title('Raw Uncalibrated Shipboard Sensor Data')

  subplot(2,1,2)
  plot(jd(ids),d(ids,5),'.','markersize',2);
  ylabel('Salinity ');
  yd2calab(97);
