% routine to refmt drifter data for quoddy
load c:\gbs99\drift\argos\d234_23.dft
a=d234_23;

% get x & y
[x,y]=ll2xy(a(:,3),a(:,2));

% get w_depth
wdep=w_depth(a(:,2),a(:,3));

ddep=input('Drogue tether length?');
dlen=input('Drogue length?');
y=[a(:,1) x y a(:,4)/100 a(:,5)/100 ...
      ones(1,length(a))'*ddep ones(1,length(a))'*ddep+dlen wdep];

fploopy(y,'el9904_234.m3d','o')