% maketr_0405.m
% permet de créer les fichiers *.mat correspondant aux transects
% de la campagne Golts de Jun02 à partir des fichiers tet0405aXX.txt et
% tet0405goltsXX.txt
% from AP le 10/09/02
% modifié par JG
ici=pwd;
zc=(-244:4:-8)'; % d'apres ConfigADCP du fichier .mat

for xx=1:1

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

if xx==1
   xyt=xytold(:,1:111)';
   uv=uvold(1:111,:)'/100; % pour avoir en m/s
   save v0405tr01t7a.mat xyt uv zc
   
   xyt=xytold(:,111:445)';
   uv=uvold(111:445,:)'/100; % pour avoir en m/s
    uv(:,14)=NaN;
    uv(:,56)=NaN;
   save v0405tr7t6a.mat xyt uv zc
   
   xyt=xytold(:,445:773)';
   uv=uvold(445:773,:)'/100; % pour avoir en m/s
   uv(:,228)=NaN;
   save v0405tr6t1a.mat xyt uv zc
   
   xyt=xytold(:,773:840)';
   uv=uvold(773:840,:)'/100; % pour avoir en m/s
   save v0405tr1t0a.mat xyt uv zc
   
   xyt=xytold(:,933:976)';
   uv=uvold(933:976,:)'/100; % pour avoir en m/s
   save v0405tr101t102a.mat xyt uv zc
   
   xyt=xytold(:,976:1049)';
   uv=uvold(976:1049,:)'/100; % pour avoir en m/s
   save v0405tr102t2a.mat xyt uv zc
   
   xyt=xytold(:,1050:1185)';
   uv=uvold(1050:1185,:)'/100; % pour avoir en m/s
   uv(63:64,2)=NaN;
   uv(109:114,108)=NaN;
   uv(89:92,109)=NaN;
   uv(:,110)=NaN;
   uv(89:108,111)=NaN;
   uv(37:38,90)=NaN;
   uv(39:40,76)=NaN;
   save v0405tr2t9a.mat xyt uv zc
   
   xyt=xytold(:,1185:1324)';
   uv=uvold(1185:1324,:)'/100; % pour avoir en m/s
   uv(111:114,26)=NaN;
   uv(97:100,29)=NaN;
   uv(67:68,140)=NaN;
   save v0405tr9t2a.mat xyt uv zc
   
   xyt=xytold(:,1324:1580)';
   uv=uvold(1324:1580,:)'/100; % pour avoir en m/s
   uv(:,31)=NaN;
   save v0405tr2t6a.mat xyt uv zc
   
   xyt=xytold(:,1580:1915)';
   uv=uvold(1580:1915,:)'/100; % pour avoir en m/s
   save v0405tr6t7a.mat xyt uv zc
   
   xyt=xytold(:,1915:2014)';
   uv=uvold(1915:2014,:)'/100; % pour avoir en m/s
   save v0405tr7t9a.mat xyt uv zc
   
   xyt=xytold(:,2014:2210)';
   uv=uvold(2014:2210,:)'/100; % pour avoir en m/s
   save v0405tr9t4a.mat xyt uv zc
   
   xyt=xytold(:,2210:2417)';
   uv=uvold(2210:2417,:)'/100; % pour avoir en m/s
   uv(73:74,57)=NaN;
   save v0405tr4t9a.mat xyt uv zc
   
   xyt=xytold(:,2417:2542)';
   uv=uvold(2417:2542,:)'/100; % pour avoir en m/s
   save v0405tr9t2b.mat xyt uv zc
   
   xyt=xytold(:,2542:2612)';
   uv=uvold(2542:2612,:)'/100; % pour avoir en m/s
   save v0405tr2t11a.mat xyt uv zc
   
   xyt=xytold(:,2612:2636)';
   uv=uvold(2612:2636,:)'/100; % pour avoir en m/s
   save v0405tr11t102a.mat xyt uv zc
   
   xyt=xytold(:,2636:2679)';
   uv=uvold(2636:2679,:)'/100; % pour avoir en m/s
   save v0405tr102t101a.mat xyt uv zc
   
   clear xyt uv xytold uvold 
end
end

cd (ici)
