% filtre_surface_MMYY.m
% permet de créer les fichiers tetMMYYgoltsX.txt à partir des données tsg30iskaphi.mat
% pour les campagnes Golts de Juin03 ou decembre03
% en tenant compte des matrices flag 
% from constructsartxt.m de MD le 21/02/02; 
% modifie par AP le 06/09/02
ici=pwd;

for xx=4:11
    if xx<10
        cc='0';
    elseif xx>=10 & xx<100
        cc='';
    end
cd e:\Gatti2\golts\Survey\golts_0604
eval(['load TGS04',cc,int2str(xx),'aphi_new.mat'])
filtre=globalFlag;
eval(['load TGS04',cc,int2str(xx),'skaphi.mat'])
u=eastCurrentComponent;
v=northCurrentComponent;
cd (ici)
[ampl,angle]=umod(u,v);

n=nEnsembles;
m=nCells;

% suppression des  premiers bins
for j=1:3
    for i=1:n
        if filtre(i,j)==0;
            u(i,j)=NaN;
            v(i,j)=NaN;
        end
    end
end
% suppression des courants trop forts
for i=1:n
    for j=1:m
        if ampl(i,j)<=0 | ampl(i,j)>=120
            u(i,j)=NaN;
            v(i,j)=NaN;
        end
    end
end
eval(['tet0604golts',int2str(xx),'t(:,1:2:119)=u(:,1:60);'])
eval(['tet0604golts',int2str(xx),'t(:,2:2:120)=v(:,1:60);'])
eval(['save ../../Survey/Survey070604/ADCPTethys/tronca/tet0604golts',int2str(xx),'t.txt tet0604golts',int2str(xx),'t -ascii'])
end