% WIND
cdf1='3412-a1h.cdf';
u1='east';
v1='north';
% CURRENTS
files=[3401];
u2='east';
v2='north';
%
n=length(files);
r=zeros(n,1);
theta=zeros(n,1);
for i=1:n,
cdf2=[int2str(files(i)) '-a1h.cdf'];
[r(i),theta(i)]=bcomcor(cdf1,u1,v1,cdf2,u2,v2);
end
tab=[files' r theta]
