function georbat
% function georbat
% 
% function to plot coastline and bathimetry of Georges Bank,
% plots coastline, 100, and 200 m isobaths.
% This function should be called before other stuff to be superposed.
%
%	2/7/95 Change line color to white from default of yellow RCG
%                         Julio Candela VII/93

  sa = ['georbat'];
 eval(['load ',sa]);
 x=D(:,1); y=D(:,2);
 deg=0;
if deg;
 ylaesc=0.111052 ; xloesc=0.084137;
 xloref=-71.0; ylaref=39.0;
 x = (x./xloesc) + xloref.*ones(size(x));
 y = (y./ylaesc) + ylaref.*ones(size(y));
% x=(x-xloref.*ones(size(x))).*xloesc;
% y=(y-ylaref.*ones(size(y))).*ylaesc;
end
%plot(x,y),hold on
plot(x,y,'w'),hold on

% jk=find(x==99);n=length(jk);plot(x(k(1)),y(k(1)));hold on;
% for ik=1:2:n-1,kk=jk(ik)+1:jk(ik+1)-1;plot(x(kk),y(kk)),end
%set(gca,'xlim',[-52 -45],'ylim',[-2 6],'position',[.15 .2 .7 .6216]) 
% hold off
