% constructsartxt.m
% permet de créer les fichiers sarXX.txt à partir des données tsg010ia.mat
% pour les campagnes Golts de Juin02
% en tenant compte des matrices flag 
% from constructsartxt.m de MD le 21/02/02; 
% modifie par AP le 06/09/02

for xx=2:3
cd D:\Golts\Tethys
eval(['load TGS020',int2str(xx),'a.mat'])
n=size(vref,1);
for ii=1:n
   for jj=1:60
   if flag_cor(ii,jj)==1 & flag_sonde(ii,1:jj)==1 & flag_thist(ii,jj)==1 & flag_vit_adcp(ii,jj)==1
               u(ii,jj)=ve(ii,jj)+vref(ii,1);
               v(ii,jj)=vn(ii,jj)+vref(ii,2);
    else u(ii,jj)=NaN;
         v(ii,jj)=NaN;
    end
    end
 end
      
    for ii=1:n
       eval(['tet0602golts',int2str(xx),'(ii,1:2:119)=u(ii,1:60);'])
       eval(['tet0602golts',int2str(xx),'(ii,2:2:120)=v(ii,1:60);'])
    end
    eval(['cd D:\golts\tethys'])
    %eval(['cd D:\golts\tethys\',int2str(xx)])
    eval(['save tet0602golts',int2str(xx),'.txt tet0602golts',int2str(xx),' -ascii'])
    clear 
end