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

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

for xx=5:12

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

if xx==5
   xyt=xytold(:,1:68)';
   uv=uvold(1:68,:)'/100; % pour avoir en m/s
   save g1202tr0t1at.mat xyt uv zc
   
   xyt=xytold(:,76:502)';
   uv=uvold(76:502,:)'/100; % pour avoir en m/s
   save g1202tr1t6at.mat xyt uv zc
   
   xyt=xytold(:,502:end)';
   uv=uvold(502:end,:)'/100; % pour avoir en m/s
   
end

if xx==6
   xyt(17:357,:)=xytold(:,1:341)';
   uv(:,17:357)=uvold(1:341,:)'/100;
   uv(:,299)=NaN;
   uv(:,312)=NaN;
   save g1202tr6t7at.mat xyt uv zc
   
   clear xyt uv
   
   xyt=xytold(:,341:end)';
   uv=uvold(341:end,:)'/100;
   
end

if xx==7
   
   xyt(215:277,:)=xytold(:,1:63)';
   uv(:,215:277)=uvold(1:63,:)'/100;
   save g1202tr7t10at.mat xyt uv zc
     
   clear xyt uv
   
   xyt=xytold(:,63:end)';
   uv=uvold(63:end,:)'/100; % pour avoir en m/s
   save g1202tr10t0at.mat xyt uv zc
   
   clear xyt uv xytold uvold
end

if xx==8

   xyt=xytold(:,1:69)';
   uv=uvold(1:69,:)'/100; % pour avoir en m/s
   save g1202tr0t1bt.mat xyt uv zc
    
   xyt=xytold(:,81:end)';
   uv=uvold(81:end,:)'/100; % pour avoir en m/s
   
end

if xx==9

   xyt(83:134,:)=xytold(:,1:52)';
   uv(:,83:134)=uvold(1:52,:)'/100; % pour avoir en m/s
   
end
if xx==10
  
   xyt(135:243,:)=xytold(:,1:109)';
   uv(:,135:243)=uvold(1:109,:)'/100; % pour avoir en m/s
   uv(:,132)=NaN;
   save g1202tr1t4at.mat xyt uv zc 
   
   xyt=xytold(:,128:418)';
   uv=uvold(128:418,:)'/100; % pour avoir en m/s
   uv(57:58,154)=NaN;
   uv(59:60,173)=NaN;
   save g1202tr4t9at.mat xyt uv zc
   
   xyt=xytold(:,431:594)';
   uv=uvold(431:594,:)'/100; % pour avoir en m/s
   save g1202tr9t7at.mat xyt uv zc
   
   xyt=xytold(:,601:1038)';
   uv=uvold(601:1038,:)'/100; % pour avoir en m/s
   save g1202tr7t6at.mat xyt uv zc
   
   xyt=xytold(:,1080:1397)';
   uv=uvold(1080:1397,:)'/100; % pour avoir en m/s
   save g1202tr6t1at.mat xyt uv zc
   
   xyt=xytold(:,1397:end)';
   uv=uvold(1397:end,:)'/100; % pour avoir en m/s
   
end    
if xx==11
  
   xyt(22:45,:)=xytold(:,1:end)';
   uv(:,22:45)=uvold(1:end,:)'/100; % pour avoir en m/s
   save g1202tr1t0at.mat xyt uv zc

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

   xyt=xytold(:,65:147)';
   uv=uvold(65:147,:)'/100; % pour avoir en m/s
   save g1202tr1t2at.mat xyt uv zc 

   xyt=xytold(:,147:225)';
   uv=uvold(147:225,:)'/100; % pour avoir en m/s
   save g1202tr2t11at.mat xyt uv zc 

   xyt=xytold(:,225:273)';
   uv=uvold(225:273,:)'/100; % pour avoir en m/s
   save g1202tr11t10at.mat xyt uv zc 
   
   xyt=xytold(:,273:412)';
   uv=uvold(273:412,:)'/100; % pour avoir en m/s
   save g1202tr10t3at.mat xyt uv zc 
   
   xyt=xytold(:,412:472)';
   uv=uvold(412:472,:)'/100; % pour avoir en m/s
   save g1202tr3t4at.mat xyt uv zc 
   
   xyt=xytold(:,472:666)';
   uv=uvold(472:666,:)'/100; % pour avoir en m/s
   save g1202tr4t9bt.mat xyt uv zc 
   
   xyt=xytold(:,666:714)';
   uv=uvold(666:714,:)'/100; % pour avoir en m/s
   save g1202tr9t8at.mat xyt uv zc 
   
   xyt=xytold(:,714:974)';
   uv=uvold(714:974,:)'/100; % pour avoir en m/s
   save g1202tr8t5at.mat xyt uv zc 
   
   xyt=xytold(:,974:1037)';
   uv=uvold(974:1037,:)'/100; % pour avoir en m/s
   save g1202tr5t6at.mat xyt uv zc 
   
   xyt=xytold(:,1037:end)';
   uv=uvold(1037:end,:)'/100; % pour avoir en m/s
   save g1202tr6t27at.mat xyt uv zc 
   
   clear xyt uv xytold uvold zc
end
end
