function map_WHOTS_2013_ep(lon,lat,cruise,ship,LatLonLim,Fluxroot)
% function map_Xcruise2009(lon,lat,cruise,year,ship,LatLonLim)
% Makes a map of the ship track using the m_map package.
% Inputs: 
%   lon,        longitude (dec degrees)
%   lat,        latitude (dec degrees)
%   cruise,     cruise code (string)
%   ship,       R/V name (string)
%   LatLonLim   Map limits (dec degrees)
% Xcruise 2009 :: 2009-09-07 :: LB

disp(['map: ' cruise]);

% m_coast('linewidth',2,'color',0.5+[0 0 0]);
% m_coast('patch',[.7 .7 .7],'edgecolor','none');
HIWHOTS09=load([Fluxroot 'flux\WHOTS09.dat']);
m_proj('mercator','longitudes',[LatLonLim(1) LatLonLim(2)],'latitudes',[LatLonLim(3) LatLonLim(4)]);
m_line(HIWHOTS09(:,1),HIWHOTS09(:,2),'linewidth',2);
m_grid;

m_line(lon,lat,'color','r','linestyle','none','marker','.','markersize',6);

% m_line(-157.9,22.7667,'marker','o','markersize',6,'LineWidth',1.5,'color','b');    %WHOTS-9
% m_line(-157.9472,22.6676,'marker','o','markersize',6,'LineWidth',1.5,'color','g');    %WHOTS-8 (new buoy deployed)
m_line(-157.9084,22.7874,'marker','o','markersize',6,'LineWidth',1.5,'color','g');    %WHOTS-12 (old buoy)
m_line(-157.9502,22.6686,'marker','*','markersize',6,'LineWidth',1.5,'color','g');    %WHOTS-13 (old buoy)


%m_text(-157.85,22.7629,'W9','FontSize',8,'FontWeight','bold','color','b');
% m_text(-157.9,22.6676,'W8','FontSize',8,'FontWeight','bold','color','g');
m_text(-157.91,22.7874,'W12','FontSize',8,'FontWeight','bold','color','g');
m_text(-157.91,22.6686,'W13','FontSize',8,'FontWeight','bold','color','g');



 
