%mgb95.m
%makes 1995 Surface Drifter animation over Georges Bank
% Dick Limeburner Feb 95
% Remember to modify endday, numdrif, and tail length P when updating input

clg;clear
gbmap; % Dick's Georges Bank Base Map

%initialize
numdrif=20;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Modify
startday=1;sd=4*startday;
endday=140;ed=endday*4;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Modify

hold on
	for i=1:numdrif;
		for j=1:ed;
			X(j,i)=nan;
			Y(j,i)=nan;
		end
	end

load mdata; %  This is the X, Y, array input drifter data 

% Length of tail =p*record length =p * (length(X)/4)  ---- Note 6 hr data
%7 days=p * (length(X)/4) days
[m,n]=size(X);
P=7/(m/4);

%color head,body,tail
color='mmy';
linestyle='* - -';
linewidth=[3 2 2];

comets2(X,Y,P,color,linestyle,linewidth,sd)
clear
end

