% constructgoltxt.m
% enregistre les courants mesurés par l'ADCP de coque le long du trajet du bateau
% dans un fichier "tetMMYYgolts.txt" à partir des données "TGS...skaphi.mat".
% Les lignes impaires correspondent à u et paires à v.
% from constructsartxt.m de AP le 06/09/02; 
% xx : numéro du fichier de session (TGS03xxskaphi.mat pour les campagnes
% de 2003)
% exemple : pour TGS0302skaphi.mat xx=02
%           pour TGS0412skaphi.mat xx=12

for xx=14:16
    if xx<10
        cc='0';
    elseif xx>=10 & xx<100
        cc='';
    end
cd e:\Gatti2\golts\Survey\golts_1204
eval(['load TGS04',cc,int2str(xx),'skaphi.mat'])
u=eastCurrentComponent;
v=northCurrentComponent;

eval(['tet1204golts',int2str(xx),'t(:,1:2:119)=u(:,1:60);'])
eval(['tet1204golts',int2str(xx),'t(:,2:2:120)=v(:,1:60);'])
eval(['save ../Survey081204/ADCPTethys/tronca/tet1204golts',int2str(xx),'t.txt tet1204golts',int2str(xx),'t -ascii'])
 
end
