% maketr_0602.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=1:3

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

if xx==1
   xyt=xytold(:,1:64)';
   uv=uvold(1:64,:)'/100; % pour avoir en m/s
   save g0602tr0t1at.mat xyt uv zc
   
   xyt=xytold(:,101:493)';
   uv=uvold(101:493,:)'/100; % pour avoir en m/s
   uv(:,105)=NaN;
   save g0602tr1t66at.mat xyt uv zc
   
   xyt=xytold(:,493:918)';
   uv=uvold(493:918,:)'/100; % pour avoir en m/s
   save g0602tr66t1at.mat xyt uv zc
   
   xyt=xytold(:,942:1169)';
   uv=uvold(942:1169,:)'/100; % pour avoir en m/s
   save g0602tr1t4at.mat xyt uv zc
   
   xyt=xytold(:,1205:1434)';
   uv=uvold(1205:1434,:)'/100; % pour avoir en m/s
   save g0602tr4t9at.mat xyt uv zc
   
   xyt=xytold(:,1443:1580)';
   uv=uvold(1443:1580,:)'/100; % pour avoir en m/s
   save g0602tr9t2at.mat xyt uv zc
   
   xyt=xytold(:,1616:1884)';
   uv=uvold(1616:1884,:)'/100; % pour avoir en m/s
   save g0602tr2t6at.mat xyt uv zc
   
   xyt=xytold(:,1884:2213)';
   uv=uvold(1884:2213,:)'/100; % pour avoir en m/s
   save g0602tr6t1at.mat xyt uv zc
   
   xyt=xytold(:,2213:end)';
   uv=uvold(2213:end,:)'/100; % pour avoir en m/s
   save g0602tr1t0at.mat xyt uv zc
   
   clear xyt uv xytold uvold
end
if xx==2
   
   xyt=xytold(:,1:73)';
   uv=uvold(1:73,:)'/100; % pour avoir en m/s
   save g0602tr0t1bt.mat xyt uv zc
   
   xyt=xytold(:,73:618)';
   uv=uvold(73:618,:)'/100; % pour avoir en m/s
   save g0602tr1t66bt.mat xyt uv zc
   
   xyt=xytold(:,73:478)';
   uv=uvold(73:478,:)'/100; % pour avoir en m/s
   save g0602tr1t6bt.mat xyt uv zc
   
   xyt=xytold(:,657:754)';
   uv=uvold(657:754,:)'/100; % pour avoir en m/s
   save g0602tr66t6at.mat xyt uv zc
   
   xyt=xytold(:,754:1170)';
   uv=uvold(754:1170,:)'/100; % pour avoir en m/s
   save g0602tr6t7at.mat xyt uv zc
   
   xyt=xytold(:,1170:1584)';
   uv=uvold(1170:1584,:)'/100; % pour avoir en m/s
   uv(5:6,35)=NaN;
   save g0602tr7t6at.mat xyt uv zc
   
   xyt=xytold(:,1618:1715)';
   uv=uvold(1618:1715,:)'/100; % pour avoir en m/s
   save g0602tr6t66at.mat xyt uv zc
   
   xyt=xytold(:,1748:2010)';
   uv=uvold(1748:2010,:)'/100; % pour avoir en m/s
   save g0602tr66t4at.mat xyt uv zc
   
   xyt=xytold(:,1880:2010)';
   uv=uvold(1880:2010,:)'/100; % pour avoir en m/s
   uv(5:6,2)=NaN;
   save g0602tr6t4at.mat xyt uv zc
   
   xyt=xytold(:,2046:2316)';
   uv=uvold(2046:2316,:)'/100; % pour avoir en m/s
   save g0602tr4t9bt.mat xyt uv zc
   
   xyt=xytold(:,2316:2548)';
   uv=uvold(2316:2548,:)'/100; % pour avoir en m/s
   save g0602tr9t4at.mat xyt uv zc
   
   xyt=xytold(:,2588:2715)';
   uv=uvold(2588:2715,:)'/100; % pour avoir en m/s
   save g0602tr4t2at.mat xyt uv zc
   
   xyt=xytold(:,2729:2805)';
   uv=uvold(2729:2805,:)'/100; % pour avoir en m/s
   uv(5:6,77)=NaN;
   save g0602tr2t11at.mat xyt uv zc
   
   xyt=xytold(:,2814:2893)';
   uv=uvold(2814:2893,:)'/100; % pour avoir en m/s
   save g0602tr11t2at.mat xyt uv zc
   
   xyt=xytold(:,2910:3202)';
   uv=uvold(2910:3202,:)'/100; % pour avoir en m/s
   save g0602tr2t6bt.mat xyt uv zc
   
   xyt=xytold(:,3221:end)';
   uv=uvold(3221:end,:)'/100; % pour avoir en m/s
   
end
if xx==3
   
   xyt(311:366,:)=xytold(:,1:56)';
   uv(:,311:366)=uvold(1:56,:)'/100;
   save g0602tr6t7bt.mat xyt uv zc
     
   clear xyt uv
   
   xyt=xytold(:,56:392)';
   uv=uvold(56:392,:)'/100; % pour avoir en m/s
   save g0602tr7t6bt.mat xyt uv zc
   
   xyt=xytold(:,392:681)';
   uv=uvold(392:681,:)'/100; % pour avoir en m/s
   save g0602tr6t2at.mat xyt uv zc
   
   xyt=xytold(:,696:end)';
   uv=uvold(696:end,:)'/100; % pour avoir en m/s
   save g0602tr2t0at.mat xyt uv zc
   clear xyt uv xytold uvold
end
end
