1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35
| nti=2861;nlo=60;nla=205;
%*** début boucle longitude
for n=1:18%début boucle toutes les 60 longitudes
chn=int2str(n);
disp(['début lon',chn ' à ' datestr(now,31)])
%*** longitude
lon=lon1(deblon(n):finlon(n));
%******** CHARGEMENT de la sst 7j :
ficdon1=['sst_mean_lon' chn];
don1=[racdon1 ficdon1];
eval (['load ' don1]);%variable THETA_UV_lon4
%******** CHARGEMENT DES DONNEES SST filtrées à 90j ex lon4 :
ficdon2=['sst_lon' chn];
don2=[racdon2 ficdon2];
eval (['load ' don2]);%variable mat
z_90=mat;clear mat;%time*lon*lat 2861*60*205 de 70S à 30S
for j=1:nla
chlat=int2str(j);
for i=1:nlo
chlon=int2str(i);
DT(:,i,j)=(sst_mean(:,i,j)-z_90(:,i,j));
end%fin lon
end%fin lat
%*** sauvegarde des données ***
ficres=['SST_GRAD_90J_7J' chn];
res=[racres ficres];
save(res,'GT');
disp(['fin lon',chn ' à ' datestr(now,31)])
clear z THETA_UV GR1 GR2 GR lon
end |
Partager