function pltwcr(m);
%
% routine to plot the 1982 Schlitz mooring positions

% if m=0 plot both numbers & labels
% if m=1 plot no labels
% if m=2 small dots only
% id m=3 tidal ellipse
% id m=4 staplot w/bathy

if nargin==0; m=0; end;

if m==4;
  pltmb;
  axis([-69.5 -67 40 42]);
  text(-69.45,41.45,'Nantuket Shoals',...

     'fontsize',14,'rotation',-90,'color','c')
  plot(-68.5,40.8,'b.','markersize',70)

  text(-68.5,40.8,'44003','color','w','horizontalalignment','center',...

     'fontsize',8);

  text(-68.2,41.1,'Georges Bank',...

     'fontsize',14,'rotation',30,'color','c')
  m=0;
end;

load wcrii.dat
dd=wcrii;

dd(:,3)=dd(:,3)*(-1);

[lat,lon]=dm2dd(dd(:,2),dd(:,3));

% plot surface mooring sites
if m==2;dots=10;elseif m<=1;dots=60;elseif m==3;dots=2;end;
plot(lon,lat,'r.','markersize',dots)

%if m==4;

  plot(-67.62,40.956,'g.','markersize',50)

  text(-67.62 ,40.956,'ST2','color','w','horizontalalignment','center',...

     'fontsize',8)

%end;


% post labels
if m==0;
  for k=1:length(dd);
    text(lon(k),lat(k),...
    [num2str(dd(k,1))],...
    'horizontalalignment','center',...

    'color','w','fontsize',10);
  end;
end;

% post tidal & low freq ellipse
if m==3;
  subplot(2,1,1);
  georbat;
  load /home3/ocn/jmanning/wcr/tides/tidebatch.out
  t=tidebatch;
  mn=0;
  for k=1:length(dd);
    id=find(t(:,1)==dd(k,1));
    for i=1:length(id);
      mn=mn+1;
      if t(id,1)==5;scal=1;else;scal=0;end;
      ellipse(lon(k),lat(k),t(id(i),3),t(id(i),4),t(id(i),5)-90,20,mn,scal);
      hold on;
    end;
    text(lon(k),lat(k),...
    [num2str(dd(k,1))],'fontsize',10,...
    'horizontalalignment','center','color','k');
  end;
  axis([-69 -67.25 40 41.25]);
  title(' M2 Tidal Ellipse','fontsize',14)
  lllabel;
  set(gca,'xticklabels','');
  xlabel('');
  subplot(2,1,2);
  georbat;
  load /data5/jmanning/moor/moor82/stathrall.out
  t=stathrall;
  [nr,nc]=size(t);
  for k=1:nr;
    ellipse(t(k,8),t(k,7),t(k,25),t(k,26),t(k,24),20,k);
    hold on;
    text(t(k,8),t(k,7),... 
    [num2str(t(k,1))],'fontsize',6,...
    'horizontalalignment','center','color','k');
  end;
  axis([-69 -67.25 40 41.25]);
  lllabel;
  title(' Subtidal Ellipse','fontsize',14)

end;

