source: trunk/src/mode_sahelien/composite_olr_EOF24_1030_passbande.m @ 16

Last change on this file since 16 was 16, checked in by pinsard, 15 years ago

remove trailing blanks, split lines with multiple statements

File size: 14.8 KB
Line 
1%
2
3% initialisation
4clear;
5close all;
6
7cd('..');
8ncload('olr.day.mean.nc');
9cd('mode_sahelien');
10% taille 12327x73x144 1er juin 1974-31 decembre2007
11% on enleve les annees 1974 a 1978 nombre de jours a enlever au debut 214+365+366+365+365
12% on enleve les annees 2007 a 2008 nombre de jours a enlever au debut 12327-(365+60)
13
14debut=214+365+366+365+365;
15fin=12327-(365+60);
16olr=olr(debut:fin,21:41,:);
17siz=fin-debut+1;
18for a=1:21;
19   for b=1:144;
20       for c=1:siz;
21          if olr(c,a,b)==32766;
22              olr(c,a,b)=NaN;
23          end;
24       end ;
25   end;
26end;
27olr=olr*0.01+327.65;
28olr1=zeros(siz,21,144);
29olr1(:,:,1:72)=olr(:,:,73:144);
30olr1(:,:,73:144)=olr(:,:,1:72);
31clear olr;
32
33% on permture le temps et l'espce
34% nouvelles dimentions
35% 21 144 siz
36olr1=permute(olr1, [2 3 1]);
37
38for a=1:21;
39   for b=1:144;
40      clear vecteur
41      vecteur=zeros(siz,1);
42      for c=1:siz;
43           vecteur(c)=olr1(a,b,c);
44      end;
45      std_c=nanmean(vecteur);
46      for c=1:siz;
47          olr1(a,b,c)=olr1(a,b,c)-std_c;
48      end
49   end
50end;
51
52% on met sous la forme longitude latitude jour
53
54% on selectionne les mois d ete (attention aux annees bixestiles!)
55
56siz1=31+28+31+30+31+1;
57siz1bis=31+28+31+30+31+30+31+31+30;
58a=siz1bis-siz1;olr=zeros(21,144,122,28);
59siz2=siz1+366; siz2bis=siz2+a; % 1980
60siz3=siz2+365; siz3bis=siz3+a; % 1981
61siz4=siz3+365; siz4bis=siz4+a; % 1982
62siz5=siz4+365; siz5bis=siz5+a; % 1983
63siz6=siz5+366; siz6bis=siz6+a; % 1984
64siz7=siz6+365; siz7bis=siz7+a; % 1985
65siz8=siz7+365; siz8bis=siz8+a; % 1986
66siz9=siz8+365; siz9bis=siz9+a; % 1987
67siz10=siz9+366; siz10bis=siz10+a; % 1988
68siz11=siz10+365; siz11bis=siz11+a; % 1989
69siz12=siz11+365; siz12bis=siz12+a; % 1990
70siz13=siz12+365; siz13bis=siz13+a; % 1991
71siz14=siz13+366; siz14bis=siz14+a; % 1992
72siz15=siz14+365; siz15bis=siz15+a; % 1993
73siz16=siz15+365; siz16bis=siz16+a; % 1994
74siz17=siz16+365; siz17bis=siz17+a; % 1995
75siz18=siz17+366; siz18bis=siz18+a; % 1996
76siz19=siz18+365; siz19bis=siz19+a; % 1997
77siz20=siz19+365; siz20bis=siz20+a; % 1998
78siz21=siz20+365; siz21bis=siz21+a; % 1999
79siz22=siz21+366; siz22bis=siz22+a; % 2000
80siz23=siz22+365; siz23bis=siz23+a; % 2000
81siz24=siz23+365; siz24bis=siz24+a; % 2000
82siz25=siz24+365; siz25bis=siz25+a; % 2000
83siz26=siz25+366; siz26bis=siz26+a; % 2000
84siz27=siz26+365; siz27bis=siz27+a; % 2000
85siz28=siz27+365; siz28bis=siz28+a; % 2000
86
87
88olr(:,:,:,1)=olr1(:,:,siz1:siz1bis); % 1979
89olr(:,:,:,2)=olr1(:,:,siz2:siz2bis); % 1980
90olr(:,:,:,3)=olr1(:,:,siz3:siz3bis); % 1981
91olr(:,:,:,4)=olr1(:,:,siz4:siz4bis); % 1982
92olr(:,:,:,5)=olr1(:,:,siz5:siz5bis); % 1983
93olr(:,:,:,6)=olr1(:,:,siz6:siz6bis); % 1984
94olr(:,:,:,7)=olr1(:,:,siz7:siz7bis); % 1985
95olr(:,:,:,8)=olr1(:,:,siz8:siz8bis); % 1986
96olr(:,:,:,9)=olr1(:,:,siz9:siz9bis); % 1987
97olr(:,:,:,10)=olr1(:,:,siz10:siz10bis); % 1988
98olr(:,:,:,11)=olr1(:,:,siz11:siz11bis); % 1989
99olr(:,:,:,12)=olr1(:,:,siz12:siz12bis); % 1990
100olr(:,:,:,13)=olr1(:,:,siz13:siz13bis); % 1991
101olr(:,:,:,14)=olr1(:,:,siz14:siz14bis); % 1992
102olr(:,:,:,15)=olr1(:,:,siz15:siz15bis); % 1993
103olr(:,:,:,16)=olr1(:,:,siz16:siz16bis); % 1994
104olr(:,:,:,17)=olr1(:,:,siz17:siz17bis); % 1995
105olr(:,:,:,18)=olr1(:,:,siz18:siz18bis); % 1996
106olr(:,:,:,19)=olr1(:,:,siz19:siz19bis); % 1997
107olr(:,:,:,20)=olr1(:,:,siz20:siz20bis); % 1998
108olr(:,:,:,21)=olr1(:,:,siz21:siz21bis); % 1999
109olr(:,:,:,22)=olr1(:,:,siz22:siz22bis); % 2000
110olr(:,:,:,23)=olr1(:,:,siz23:siz23bis); % 2001
111olr(:,:,:,24)=olr1(:,:,siz24:siz24bis); % 2002
112olr(:,:,:,25)=olr1(:,:,siz25:siz25bis); % 2003
113olr(:,:,:,26)=olr1(:,:,siz26:siz26bis); % 2004
114olr(:,:,:,27)=olr1(:,:,siz27:siz27bis); % 2005
115olr(:,:,:,28)=olr1(:,:,siz28:siz28bis); % 2006
116
117
118clear siz1 siz1bis;
119clear siz2 siz2bis;
120clear siz3 siz3bis;
121clear siz4 siz4bis;
122clear siz5 siz5bis;
123clear siz6 siz6bis;
124clear siz7 siz7bis;
125clear siz8 siz8bis;
126clear siz9 siz9bis;
127clear siz10 siz10bis;
128clear siz11 siz11bis;
129clear siz12 siz12bis;
130clear siz13 siz13bis;
131clear siz14 siz14bis;
132clear siz15 siz15bis;
133clear siz16 siz16bis;
134clear siz17 siz17bis;
135clear siz18 siz18bis;
136clear siz19 siz19bis;
137clear siz20 siz20bis;
138clear siz21 siz21bis;
139clear siz22 siz22bis;
140clear siz23 siz23bis;
141clear siz24 siz24bis;
142clear siz25 siz25bis;
143clear siz26 siz26bis;
144clear siz27 siz27bis;
145clear siz28 siz28bis;
146
147olr1=permute(olr,[3 4 1 2]);
148clear olr;
149
150% ouverture / lecture du fichier
151fid=fopen('sahel_pb.dat','r');
152v=fread(fid,3538,'float');
153fclose(fid);
154
155% on met sous la forme annee mois
156ind_olr=reshape(v,122,29);
157clear v;
158
159% on selectionne les annees de 1979 a 2006
160ind_olr1=ind_olr(:,1:28);
161clear ind_olr;
162k=122*28;
163olr_eof=ind_olr1;
164clear ind_olr1;
165
166% on calcule l ecart type sur la serie temporelle de l OLR
167olrbis=reshape(olr_eof,k,1);
168olr_std=std(olrbis);
169olr_moy=mean(olrbis);
170
171
172for a=1:k;
173   olrbis(a)=(olrbis(a)-olr_moy)/olr_std;
174end
175
176clear olr_eof;
177olr_eof=reshape(olrbis,122,28);
178% intialisation des tableaux
179olr_filtre_compomax=NaN*ones(50,31,21,144);
180olr_filtre_compomin=NaN*ones(50,31,21,144);
181
182compteurmax=0;
183compteurmin=0;
184
185% boucle sur les annees
186for a=1:28;
187   clear delta;
188   delta=zeros(122,1);
189   % boucle sur les jours : on prepare avant
190   for b=1:122;
191        if b>1;
192            delta(b)=olr_eof(b,a)-olr_eof(b-1,a);
193        end;
194   end;
195   % boucle sur les jours
196   for b=1:122;
197      % 1ere condition (laisser une marge de 10)
198      if (b>20 && b<112);
199% cas 1 : max deltas apres negetifs et deltas avant postifs
200         if (delta(b+1)<0 && delta(b)>0 && olr_eof(b,a)>1);
201            compteurmax=compteurmax+1;
202          olr_filtre_compomax(compteurmax,1,:,:)=olr1(b-20,a,:,:);
203            olr_filtre_compomax(compteurmax,2,:,:)=olr1(b-19,a,:,:);
204            olr_filtre_compomax(compteurmax,3,:,:)=olr1(b-18,a,:,:);
205            olr_filtre_compomax(compteurmax,4,:,:)=olr1(b-17,a,:,:);
206            olr_filtre_compomax(compteurmax,5,:,:)=olr1(b-16,a,:,:);
207            olr_filtre_compomax(compteurmax,6,:,:)=olr1(b-15,a,:,:);
208            olr_filtre_compomax(compteurmax,7,:,:)=olr1(b-14,a,:,:);
209            olr_filtre_compomax(compteurmax,8,:,:)=olr1(b-13,a,:,:);
210            olr_filtre_compomax(compteurmax,9,:,:)=olr1(b-12,a,:,:);
211            olr_filtre_compomax(compteurmax,10,:,:)=olr1(b-11,a,:,:);
212
213            olr_filtre_compomax(compteurmax,11,:,:)=olr1(b-10,a,:,:);
214            olr_filtre_compomax(compteurmax,12,:,:)=olr1(b-9,a,:,:);
215            olr_filtre_compomax(compteurmax,13,:,:)=olr1(b-8,a,:,:);
216            olr_filtre_compomax(compteurmax,14,:,:)=olr1(b-7,a,:,:);
217            olr_filtre_compomax(compteurmax,15,:,:)=olr1(b-6,a,:,:);
218            olr_filtre_compomax(compteurmax,16,:,:)=olr1(b-5,a,:,:);
219            olr_filtre_compomax(compteurmax,17,:,:)=olr1(b-4,a,:,:);
220            olr_filtre_compomax(compteurmax,18,:,:)=olr1(b-3,a,:,:);
221            olr_filtre_compomax(compteurmax,19,:,:)=olr1(b-2,a,:,:);
222            olr_filtre_compomax(compteurmax,20,:,:)=olr1(b-1,a,:,:);
223
224            olr_filtre_compomax(compteurmax,21,:,:)=olr1(b,a,:,:);
225            olr_filtre_compomax(compteurmax,22,:,:)=olr1(b+1,a,:,:);
226            olr_filtre_compomax(compteurmax,23,:,:)=olr1(b+2,a,:,:);
227            olr_filtre_compomax(compteurmax,24,:,:)=olr1(b+3,a,:,:);
228            olr_filtre_compomax(compteurmax,25,:,:)=olr1(b+4,a,:,:);
229            olr_filtre_compomax(compteurmax,26,:,:)=olr1(b+5,a,:,:);
230            olr_filtre_compomax(compteurmax,27,:,:)=olr1(b+6,a,:,:);
231            olr_filtre_compomax(compteurmax,28,:,:)=olr1(b+7,a,:,:);
232            olr_filtre_compomax(compteurmax,29,:,:)=olr1(b+8,a,:,:);
233            olr_filtre_compomax(compteurmax,30,:,:)=olr1(b+9,a,:,:);
234            olr_filtre_compomax(compteurmax,31,:,:)=olr1(b+10,a,:,:);
235% cas 2 : min deltas apres positifs et deltas avant negatifs
236         elseif (delta(b+1)>0 && delta(b)<0 && olr_eof(b,a)<-1);
237            compteurmin=compteurmin+1;
238
239            olr_filtre_compomin(compteurmin,1,:,:)=olr1(b-20,a,:,:);
240            olr_filtre_compomin(compteurmin,2,:,:)=olr1(b-19,a,:,:);
241            olr_filtre_compomin(compteurmin,3,:,:)=olr1(b-18,a,:,:);
242            olr_filtre_compomin(compteurmin,4,:,:)=olr1(b-17,a,:,:);
243            olr_filtre_compomin(compteurmin,5,:,:)=olr1(b-16,a,:,:);
244            olr_filtre_compomin(compteurmin,6,:,:)=olr1(b-15,a,:,:);
245            olr_filtre_compomin(compteurmin,7,:,:)=olr1(b-14,a,:,:);
246            olr_filtre_compomin(compteurmin,8,:,:)=olr1(b-13,a,:,:);
247            olr_filtre_compomin(compteurmin,9,:,:)=olr1(b-12,a,:,:);
248            olr_filtre_compomin(compteurmin,10,:,:)=olr1(b-11,a,:,:);
249
250            olr_filtre_compomin(compteurmin,11,:,:)=olr1(b-10,a,:,:);
251            olr_filtre_compomin(compteurmin,12,:,:)=olr1(b-9,a,:,:);
252            olr_filtre_compomin(compteurmin,13,:,:)=olr1(b-8,a,:,:);
253            olr_filtre_compomin(compteurmin,14,:,:)=olr1(b-7,a,:,:);
254            olr_filtre_compomin(compteurmin,15,:,:)=olr1(b-6,a,:,:);
255            olr_filtre_compomin(compteurmin,16,:,:)=olr1(b-5,a,:,:);
256            olr_filtre_compomin(compteurmin,17,:,:)=olr1(b-4,a,:,:);
257            olr_filtre_compomin(compteurmin,18,:,:)=olr1(b-3,a,:,:);
258            olr_filtre_compomin(compteurmin,19,:,:)=olr1(b-2,a,:,:);
259            olr_filtre_compomin(compteurmin,20,:,:)=olr1(b-1,a,:,:);
260
261            olr_filtre_compomin(compteurmin,21,:,:)=olr1(b,a,:,:);
262            olr_filtre_compomin(compteurmin,22,:,:)=olr1(b+1,a,:,:);
263            olr_filtre_compomin(compteurmin,23,:,:)=olr1(b+2,a,:,:);
264            olr_filtre_compomin(compteurmin,24,:,:)=olr1(b+3,a,:,:);
265            olr_filtre_compomin(compteurmin,25,:,:)=olr1(b+4,a,:,:);
266            olr_filtre_compomin(compteurmin,26,:,:)=olr1(b+5,a,:,:);
267            olr_filtre_compomin(compteurmin,27,:,:)=olr1(b+6,a,:,:);
268            olr_filtre_compomin(compteurmin,28,:,:)=olr1(b+7,a,:,:);
269            olr_filtre_compomin(compteurmin,29,:,:)=olr1(b+8,a,:,:);
270            olr_filtre_compomin(compteurmin,30,:,:)=olr1(b+9,a,:,:);
271            olr_filtre_compomin(compteurmin,31,:,:)=olr1(b+10,a,:,:);
272         end;
273      end;
274   end;
275end;
276disp(['iii : compteurmin =', int2str(compteurmin)]);
277disp(['iii : compteurmax =', int2str(compteurmax)]);
278% on fait le test de Student
279nb_value=min(compteurmin,compteurmax);
280student1=zeros(31,21,144);
281for a=1:31;
282    for b=1:21;
283        for c=1:144;
284           x=olr_filtre_compomin(1:nb_value,a,b,c);
285           y=olr_filtre_compomax(1:nb_value,a,b,c);
286           student1(a,b,c)=ttest(x,y,.2);
287        end
288    end
289end;
290
291
292% on fait la somme des valeurs de olr_filtre sur le nbre d occurences
293% on obtent un tableau de la forme (jours-avant-apres,lon,lat)
294olr_filtre_compomin1(:,:,:)=nanmean(olr_filtre_compomin);
295clear olr_filtre_compomin;
296olr_filtre_compomax1(:,:,:)=nanmean(olr_filtre_compomax);
297clear olr_filtre_compomax;
298
299x=[-10:1:10]';
300
301figure(1);
302orient('landscape');
303
304lat=lat(21:41)';
305lon=lon-180;
306for e=1:7;
307       a=7-(e-1)+1;
308       f=2*(a-1)+1;
309       clear delta_olr_filtre_min;
310       delta_olr_filtre_min=zeros(21,144);
311       for b=1:21;
312          for c=1:144;
313             delta_olr_filtre_min(b,c)=olr_filtre_compomin1(f,b,c)-olr_filtre_compomax1(f,b,c);
314             if student1(f,b,c)==1;
315                 delta_olr_filtre_min(b,c)=delta_olr_filtre_min(b,c);
316             else
317 %                delta_olr_filtre_min(b,c)=NaN;
318             end;
319          end;
320       end;
321       for b=1:21;
322          for c=1:144;
323             if delta_olr_filtre_min(b,c)<-50;
324                  delta_olr_filtre_min(b,c)=-50;
325             elseif delta_olr_filtre_min(b,c)>50;
326                  delta_olr_filtre_min(b,c)=50;
327             end;
328          end;
329       end
330       subplot(7,1,8-e);
331       palette
332       delta_olr_filtre_min(1,1)=-50.0001;
333       delta_olr_filtre_min(1,2)=50.0001;
334       fin=-30+24*2.5;
335
336       clear fin
337       fin=-10+16*2.5;
338       aa=contourf(lon,lat,delta_olr_filtre_min,[-50:5:50],'LineStyle','none');
339       if e==1;
340       set (gca,'XTick',[-60:30:60],'XTickLabel',['60W';'30W';' 0 ';'30W';'60W'],'fontsize',6);
341       else
342         set (gca,'XTick',[-60:30:60],'XTickLabel',[' ';' ';' ';' ';' ']);
343       end;
344
345       set (gca,'YTick',[-10:10:30],'YTickLabel',['10S';'  0';'10N';'20N';'30N'],'fontname','Arial','fontsize',6);
346       if e==4;
347          co=colorbar;
348          set (co,'xtick',[-20:10:20],'xticklabel',[-20:10:20],'fontname','Arial','fontsize',6);
349       end;
350       hold on;
351       cartemonde1;
352       set (gca,'tickDir','out');
353       axis equal
354       axis([-180 180 -20 40]);
355
356
357       if e==7;
358      title('OLR composite EOF234 1030j ITCZ 7.5-12.5 ','fontsize',8) ;
359       end
360       text(-270,10,['day = ',num2str(f-21)],'fontname','Arial','fontsize',10);
361       pos_vert=e/10;
362       set (gca,'position',[0.2 pos_vert 0.5 0.1])
363end;
364
365figure(1);
366print -depsc2 composite_olr_EOF234_1030_part1.eps;
367
368figure(2);
369orient('landscape');
370
371for e=1:7;
372       a=7-(e-1)+1+7;
373       f=2*(a-1)+1;
374       clear delta_olr_filtre_min;
375       delta_olr_filtre_min=zeros(21,144);
376       for b=1:21;
377          for c=1:144;
378             delta_olr_filtre_min(b,c)=olr_filtre_compomin1(f,b,c)-olr_filtre_compomax1(f,b,c);
379             if student1(f,b,c)==1;
380                 delta_olr_filtre_min(b,c)=delta_olr_filtre_min(b,c);
381             else
382 %                delta_olr_filtre_min(b,c)=NaN;
383             end;
384          end;
385       end;
386       for b=1:21;
387          for c=1:144;
388             if delta_olr_filtre_min(b,c)<-50;
389                  delta_olr_filtre_min(b,c)=-50;
390             elseif delta_olr_filtre_min(b,c)>50;
391                  delta_olr_filtre_min(b,c)=50;
392             end;
393          end;
394       end
395       subplot(7,1,8-e);
396       palette
397       delta_olr_filtre_min(1,1)=-50.0001;
398       delta_olr_filtre_min(1,2)=50.0001;
399       fin=-30+24*2.5;
400
401       clear fin
402       fin=-10+16*2.5;
403       aa=contourf(lon,lat,delta_olr_filtre_min,[-50:5:50],'LineStyle','none');
404       if e==1;
405       set (gca,'XTick',[-60:30:60],'XTickLabel',['60W';'30W';' 0 ';'30W';'60W'],'fontsize',6);
406       else
407         set (gca,'XTick',[-60:30:60],'XTickLabel',[' ';' ';' ';' ';' ']);
408       end;
409
410       set (gca,'YTick',[-10:10:30],'YTickLabel',['10S';'  0';'10N';'20N';'30N'],'fontname','Arial','fontsize',6);
411       if e==4;
412          co=colorbar;
413          set (co,'xtick',[-20:10:20],'xticklabel',[-20:10:20],'fontname','Arial','fontsize',6);
414       end;
415       hold on;
416       cartemonde1;
417       set (gca,'tickDir','out');
418       axis equal
419       axis([-180 180 -20 40]);
420
421
422       if e==7;
423      title('OLR composite EOF234 1030j ITCZ 7.5-12.5 ','fontsize',8) ;
424       end
425       text(-270,10,['day = ',num2str(f-21)],'fontname','Arial','fontsize',10);
426       pos_vert=e/10;
427       set (gca,'position',[0.2 pos_vert 0.5 0.1])
428end;
429
430figure(2);
431print -depsc2 composite_olr_EOF234_1030_part2.eps;
Note: See TracBrowser for help on using the repository browser.