% routine to convert old "*e.mat" drifter files

% to GLOBEC postable .jgf file



load f:\drift\sj9503\L6f21e.new

d=L6f21e;

yr=95*ones(length(d),1);

mth=3*ones(length(d),1);

day=21*ones(length(d),1);

hr=d(:,2)-9503210000;



% calculate yd

jd=julian(mth,day,yr,hr);



% output

y=[jd d(:,4) d(:,3) d(:,5)];

fploopy(y,'f:\drift\sj9503\d6a.jgf');