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

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

for xx=17:25

cd e:\Gatti2\golts\Survey\Survey081203\ADCPTethys\tronca
eval(['load tet1203a',int2str(xx),'t.txt'])
eval(['xytold=tet1203a',int2str(xx),'t;'])
eval(['load tet1203golts',int2str(xx),'t.txt'])
eval(['uvold=tet1203golts',int2str(xx),'t;'])

if xx==17
   xyt=xytold(:,1:65)';
   uv=uvold(1:65,:)'/100; % pour avoir en m/s
   save g1203tr0t1at.mat xyt uv zc
   
   xyt=xytold(:,65:135)';
   uv=uvold(65:135,:)'/100; % pour avoir en m/s
   
end

if xx==19
   xyt(72:135,:)=xytold(:,3:66)';
   uv(:,72:135)=uvold(3:66,:)'/100;
   save g1203tr1t3at.mat xyt uv zc
   
   clear xyt uv
   
   xyt=xytold(:,98:240)';
   uv=uvold(98:240,:)'/100;
   save g1203tr3t10at.mat xyt uv zc

   xyt=xytold(:,249:end)';
   uv=uvold(249:end,:)'/100;
   save g1203tr10t0at.mat xyt uv zc
   
   clear xyt uv xytold uvold
end

if xx==20
   
   xyt=xytold(:,1:62)';
   uv=uvold(1:62,:)'/100;
   save g1203tr0t1bt.mat xyt uv zc
      
   xyt=xytold(:,75:518)';
   uv=uvold(75:518,:)'/100; % pour avoir en m/s
   uv(:,80)=NaN;
   save g1203tr1t6at.mat xyt uv zc
   
   xyt=xytold(:,537:end)';
   uv=uvold(537:end,:)'/100; % pour avoir en m/s
   save g1203tr6t7at.mat xyt uv zc
   
   clear xyt uv xytold uvold
end

if xx==21

   xyt=xytold(:,1:340)';
   uv=uvold(1:340,:)'/100; % pour avoir en m/s
   uv(9:10,1)=NaN;
   uv(9:10,14)=NaN;
   save g1203tr7t6at.mat xyt uv zc
    
   xyt=xytold(:,341:480)';
   uv=uvold(341:480,:)'/100; % pour avoir en m/s
   save g1203tr6t4at.mat xyt uv zc
   
   xyt=xytold(:,480:686)';
   uv=uvold(480:686,:)'/100; % pour avoir en m/s
   save g1203tr4t9at.mat xyt uv zc
   
   xyt=xytold(:,688:933)';
   uv=uvold(688:933,:)'/100; % pour avoir en m/s
   save g1203tr9t4at.mat xyt uv zc
   
   clear xyt uv xytold uvold
end

if xx==22

   xyt=xytold(:,1:250)';
   uv=uvold(1:250,:)'/100; % pour avoir en m/s
   save g1203tr4t1at.mat xyt uv zc
    
   clear xyt uv xytold uvold
end
if xx==23
  
   xyt=xytold(:,1:279)';
   uv=uvold(1:279,:)'/100; % pour avoir en m/s
   save g1203tr1t5at.mat xyt uv zc 
   
   xyt=xytold(:,286:564)';
   uv=uvold(286:564,:)'/100; % pour avoir en m/s
   uv(102,201)=NaN;
   uv(106,201)=NaN;
   save g1203tr5t1at.mat xyt uv zc
   
   xyt=xytold(:,565:669)';
   uv=uvold(565:669,:)'/100; % pour avoir en m/s
   save g1203tr1t0at.mat xyt uv zc
   
   clear xyt uv xytold uvold
end    
if xx==24
  
   xyt=xytold(:,1:70)';
   uv=uvold(1:70,:)'/100; % pour avoir en m/s
   save g1203tr0t10at.mat xyt uv zc 
 
   xyt=xytold(:,70:108)';
   uv=uvold(70:108,:)'/100; % pour avoir en m/s
   save g1203tr10t9at.mat xyt uv zc 
   
   xyt=xytold(:,1:108)';
   uv=uvold(1:108,:)'/100; % pour avoir en m/s
   save g1203tr0t9at.mat xyt uv zc   

   xyt=xytold(:,118:275)';
   uv=uvold(118:275,:)'/100; % pour avoir en m/s
   uv(103,28)=NaN;
   save g1203tr9t2at.mat xyt uv zc 
   
   xyt=xytold(:,118:242)';
   uv=uvold(118:242,:)'/100; % pour avoir en m/s
   save g1203tr9t2bt.mat xyt uv zc 
   
   xyt=xytold(:,284:517)';
   uv=uvold(284:517,:)'/100; % pour avoir en m/s
   save g1203tr2tPat.mat xyt uv zc 
   
   xyt=xytold(:,517:end)';
   uv=uvold(517:end,:)'/100; % pour avoir en m/s
   save g1203trPtQat.mat xyt uv zc 

   clear xyt uv xytold uvold
end
if xx==25
   
   xyt=xytold(:,1:84)';
   uv=uvold(1:84,:)'/100; % pour avoir en m/s
   save g1203trRt9at.mat xyt uv zc 

   xyt=xytold(:,84:127)';
   uv=uvold(84:127,:)'/100; % pour avoir en m/s
   save g1203tr9t10at.mat xyt uv zc 

   xyt=xytold(:,127:end)';
   uv=uvold(127:end,:)'/100; % pour avoir en m/s
   save g1203tr10t0bt.mat xyt uv zc 
   
   xyt=xytold(:,84:end)';
   uv=uvold(84:end,:)'/100; % pour avoir en m/s
   save g1203tr9t0at.mat xyt uv zc 

   clear xyt uv xytold uvold zc
end
end
