% 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=4:4

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

if xx==4
   xyt=xytold(:,1:53)';
   uv=uvold(1:53,:)'/100; % pour avoir en m/s
   save v1002tr01t7a.mat xyt uv zc
   
   xyt=xytold(:,54:380)';
   uv=uvold(54:380,:)'/100; % pour avoir en m/s
   uv(:,end)=NaN;
   save v1002tr7t6a.mat xyt uv zc
   
   xyt=xytold(:,380:712)';
   uv=uvold(380:712,:)'/100; % pour avoir en m/s
   uv(:,1)=NaN;
   save v1002tr6t1a.mat xyt uv zc
   
   xyt=xytold(:,713:828)';
   uv=uvold(713:828,:)'/100; % pour avoir en m/s
   save v1002tr1t9a.mat xyt uv zc
   
   xyt=xytold(:,828:1018)';
   uv=uvold(828:1018,:)'/100; % pour avoir en m/s
   uv(:,end)=NaN;
   save v1002tr9t4a.mat xyt uv zc
   
   xyt=xytold(:,1018:1219)';
   uv=uvold(1018:1219,:)'/100; % pour avoir en m/s
   uv(:,1)=NaN;
   uv(80,19)=NaN;
   save v1002tr4t1a.mat xyt uv zc
   
   xyt=xytold(:,1219:end)';
   uv=uvold(1219:end,:)'/100; % pour avoir en m/s
   uv(31:34,3)=NaN;
   uv(31:38,27)=NaN;
   uv(33:38,37)=NaN;
   save v1002tr1tEa.mat xyt uv zc
   
   clear xyt uv xytold uvold
end

end
