% isolate_pairs
%
% load drifter data from world.mat and keep only values
% from the pairs identified in findpairs.m (results stored
% in pairs.mat)

clear all;
load pairs idP

load world lon lat t id drogue u_orig v_orig
load world2 sst

q=find(drogue<1);truncatedrift; clear drogue;
 
ID=setdiff(unique(id),unique(idP));
for i=1:length(ID);
    q=find(id==ID(i));
    truncatedrift;
end;

clear i ID idP
u=u_orig; v=v_orig; clear *orig

save pairs_data


