% maketr_1002.m
% permet de créer les fichiers *.mat correspondant aux transects
% de la campagne Golts de Jun02 à partir des fichiers tet0602aXX.txt et
% tet0602goltsXX.txt
% from AP le 10/09/02
% modifié par JG

zc=(-244:4:-8)'; % d'apres ConfigADCP du fichier .mat

for xx=2:3

cd E:\Gatti2\golts\Valor\Valor220404\ADCPTethys\transect
eval(['load tet0404a',int2str(xx),'.txt'])
eval(['xytold=tet0404a',int2str(xx),';'])
eval(['load tet0404golts',int2str(xx),'.txt'])
eval(['uvold=tet0404golts',int2str(xx),';'])

if xx==2
   xyt=xytold(:,1:69)';
   uv=uvold(1:69,:)'/100; % pour avoir en m/s
   save v0404tr0t1a.mat xyt uv zc
   
   xyt=xytold(:,69:297)';
   uv=uvold(69:297,:)'/100; % pour avoir en m/s
      
end
if xx==3
   xyt(230:356,:)=xytold(:,1:127)';
   uv(:,230:356)=uvold(1:127,:)'/100;
   save v0404tr1t6a.mat xyt uv zc
   
   clear xyt uv
        
    xyt=xytold(:,128:485)';
    uv=uvold(128:485,:)'/100; % pour avoir en m/s
    uv(:,336)=NaN;
    save v0404tr6t7a.mat xyt uv zc
    
    xyt=xytold(:,485:590)';
    uv=uvold(485:590,:)'/100; % pour avoir en m/s
    save v0404tr7t9a.mat xyt uv zc
    
    xyt=xytold(:,590:806)';
    uv=uvold(590:806,:)'/100; % pour avoir en m/s
    save v0404tr9t4a.mat xyt uv zc
    
    xyt=xytold(:,806:936)';
    uv=uvold(806:936,:)'/100; % pour avoir en m/s
    uv(59:64,130)=NaN;
    save v0404tr4t6a.mat xyt uv zc
    
    xyt=xytold(:,936:1290)';
    uv=uvold(936:1290,:)'/100; % pour avoir en m/s
    save v0404tr6t7b.mat xyt uv zc
    
    xyt=xytold(:,1290:1596)';
    uv=uvold(1290:1596,:)'/100; % pour avoir en m/s
    uv(53:56,277)=NaN;
    save v0404tr7t55a.mat xyt uv zc
    
    xyt=xytold(:,1596:end)';
    uv=uvold(1596:end,:)'/100; % pour avoir en m/s
    save v0404tr55tEa.mat xyt uv zc
    
    clear xyt uv xytold uvold zc
end
end
