source: trunk/src/mode_sahelien/composite_olr_EOF12_ER1030.m @ 15

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

modification according to mlint diagnostic

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