function cruise_track
% cruise_track draws map of WAP with mooring
% positions and cruise track given in 
% lmg02-1A_xy for cruise lmg02-1A.
% 2/26/02

clf
load lmg02-1A_xy


% draw basemap
A=[-75 -63.5 -70 -63];
% A=[-71,-68,-68.5,-67.5];
sogbasemap(A);
hold on
% add moorings
load whoi_sio_mooring_positions
whoi=[1:6];sio=[7:14];
xw=xmoor(whoi);yw=ymoor(whoi);
xs=xmoor(sio);ys=ymoor(sio);
xw=[xw;-74];yw=[yw;-63.5];
xs=[xs;-74];ys=[ys;-64.5];
%h=plot(xw,yw,'or',xw,yw,'.r',xs,ys,'ob',xs,ys,'b.');
h=plot(xw,yw,'.r',xs,ys,'b.');

ms=24;
set(h,'markersize',ms);
 set(gca,'fontw','bold')

% add 2002 mooring
load mooring_positions_2002
xw=xmoor(1:3);yw=ymoor(1:3);
xs=xmoor(4:11);ys=ymoor(4:11);
xw=[xw;-74];yw=[yw;-64];
xs=[xs;-74];ys=[ys;-65];

% h=plot(xw,yw,'ok',xw,yw,'+k',xs,ys,'ob',xs,ys,'*b');
h=plot(xw,yw,'.k');
set(h,'markersize',ms);
h=plot(xs,ys,'ok',xs,ys,'+k');
set(h,'markersize',ms-12);



% add palmer station
xp=-64.06667;yp=-64.75833;
h=plot(xp,yp,'m.');
set(h,'markersize',ms+5);

% add cruise track
plot(xy(:,1),xy(:,2))

PF=0;
if PF==1
% add float positions
load float_positions.txt
zz=float_positions;
xf=zz(:,7)+zz(:,8)./60;xf=-xf;
yf=zz(:,5)+zz(:,6)./60;yf=-yf;
h=plot(xf,yf,'ko',xf,yf,'k*');
set(h,'markersize',ms);
end

PD=0;
if PD==1
% add drifters
load drifter_positions.txt
zz=drifter_positions;
xd=zz(:,7)+zz(:,8)./60;xd=-xd;
yd=zz(:,5)+zz(:,6)./60;yd=-yd;
h=plot(xd,yd,'go',xf,yf,'gx');
set(h,'markersize',ms);
end

AT=1;
if AT==1
   % add text
   h=text(-73.5,-63.5,'WHOI 2001');set(h,'fontw','bold');
   h=text(-73.5,-64,'WHOI 2002');set(h,'fontw','bold');
   h=text(-73.5,-64.5,'SIO 2001');set(h,'fontw','bold');
   h=text(-73.5,-65,'SIO 2002');set(h,'fontw','bold');
end

title('LMG02-1A Cruise Track','fontsize',12,'fontw','bold') 
