% make_gb40m99
% make_gb40m99 creates single z file 
% for the 1999 40-m drifters.
% 4/5/01

clear
load gblp99d

id=[180,181,188,189,193:195,202,203,208,210,216:218];
N=length(id);

z=[];
znan=nan*ones(1,8);

for n=1:N
   sid=int2str(id(n));
   eval(['Z=g',sid,'lp;'])
   [K,J]=size(Z);
   z=[z;Z id(n)*ones(K,1);znan];
   zd=z;
   % disp([id(n) K./4])
end

save gb40m99  zd
