source: trunk/src/mode_sahelien/composite_olr_EOF12_ER30100_dat.m @ 91

Last change on this file since 91 was 91, checked in by pinsard, 10 years ago

fix thanks to coding rules
File size: 14.5 KB
Line 
1%
2
3% initialisation
4clear;
5close all;
6
7ncload('olr.day.mean.nc');
8
9% taille 12327x73x144 1er juin 1974-31 decembre2007
10% on enleve les années 1974 a 1978 nombre de jours a enlever au debut 214+365+366+365+365
11% on enleve les années 2007 a 2008 nombre de jours a enlever au debut 12327-(365+60)
12
13debut=214+365+366+365+365;
14fin=12327-(365+60);
15olr=olr(debut:fin,21:41,:);
16siz=fin-debut+1;
17for a=1:21;
18   for b=1:144;
19       for c=1:siz;
20          if olr(c,a,b)==32766;
21              olr(c,a,b)=NaN;
22          end;
23       end ;
24   end;
25end;
26olr=olr*0.01+327.65;
27olr1=zeros(siz,21,144);
28olr1(:,:,1:72)=olr(:,:,73:144);
29olr1(:,:,73:144)=olr(:,:,1:72);
30clear olr;
31
32% on permture le temps et l'espce
33% nouvelles dimensions
34% 21 144 siz
35olr1=permute(olr1, [2 3 1]);
36
37for a=1:21;
38   for b=1:144;
39      clear vecteur
40      vecteur=zeros(siz,1);
41      for c=1:siz;
42           vecteur(c)=olr1(a,b,c);
43      end;
44      std_c=nanmean(vecteur);
45      for c=1:siz;
46          olr1(a,b,c)=olr1(a,b,c)-std_c;
47      end;
48   end;
49end;
50
51% on met sous la forme longitude latitude jour
52
53% on selectionne les mois d ete (attention aux années bixestiles!)
54
55siz1=31+28+31+30+31+1;
56siz1bis=31+28+31+30+31+30+31+31+30;
57a=siz1bis-siz1;olr=zeros(21,144,122,28);
58siz2=siz1+366; siz2bis=siz2+a; % 1980
59siz3=siz2+365; siz3bis=siz3+a; % 1981
60siz4=siz3+365; siz4bis=siz4+a; % 1982
61siz5=siz4+365; siz5bis=siz5+a; % 1983
62siz6=siz5+366; siz6bis=siz6+a; % 1984
63siz7=siz6+365; siz7bis=siz7+a; % 1985
64siz8=siz7+365; siz8bis=siz8+a; % 1986
65siz9=siz8+365; siz9bis=siz9+a; % 1987
66siz10=siz9+366; siz10bis=siz10+a; % 1988
67siz11=siz10+365; siz11bis=siz11+a; % 1989
68siz12=siz11+365; siz12bis=siz12+a; % 1990
69siz13=siz12+365; siz13bis=siz13+a; % 1991
70siz14=siz13+366; siz14bis=siz14+a; % 1992
71siz15=siz14+365; siz15bis=siz15+a; % 1993
72siz16=siz15+365; siz16bis=siz16+a; % 1994
73siz17=siz16+365; siz17bis=siz17+a; % 1995
74siz18=siz17+366; siz18bis=siz18+a; % 1996
75siz19=siz18+365; siz19bis=siz19+a; % 1997
76siz20=siz19+365; siz20bis=siz20+a; % 1998
77siz21=siz20+365; siz21bis=siz21+a; % 1999
78siz22=siz21+366; siz22bis=siz22+a; % 2000
79siz23=siz22+365; siz23bis=siz23+a; % 2000
80siz24=siz23+365; siz24bis=siz24+a; % 2000
81siz25=siz24+365; siz25bis=siz25+a; % 2000
82siz26=siz25+366; siz26bis=siz26+a; % 2000
83siz27=siz26+365; siz27bis=siz27+a; % 2000
84siz28=siz27+365; siz28bis=siz28+a; % 2000
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
115clear siz1 siz1bis;
116clear siz2 siz2bis;
117clear siz3 siz3bis;
118clear siz4 siz4bis;
119clear siz5 siz5bis;
120clear siz6 siz6bis;
121clear siz7 siz7bis;
122clear siz8 siz8bis;
123clear siz9 siz9bis;
124clear siz10 siz10bis;
125clear siz11 siz11bis;
126clear siz12 siz12bis;
127clear siz13 siz13bis;
128clear siz14 siz14bis;
129clear siz15 siz15bis;
130clear siz16 siz16bis;
131clear siz17 siz17bis;
132clear siz18 siz18bis;
133clear siz19 siz19bis;
134clear siz20 siz20bis;
135clear siz21 siz21bis;
136clear siz22 siz22bis;
137clear siz23 siz23bis;
138clear siz24 siz24bis;
139clear siz25 siz25bis;
140clear siz26 siz26bis;
141clear siz27 siz27bis;
142clear siz28 siz28bis;
143
144olr1=permute(olr,[3 4 1 2]);
145clear olr;
146
147status=load('eof12_rossby_30100.txt');
148eof12_rossby_30100=status;
149clear status;
150% on met sous la forme annee mois
151olr_eof=reshape(eof12_rossby_30100,122,28);
152clear eof12_rossby_30100;
153
154% on calcule l ecart type sur la serie temporelle de l OLR
155k=122*28;
156olrbis=reshape(olr_eof,k,1);
157olrbis=std(olrbis);
158
159% intialisation des tableaux
160olr_filtre_compomax=NaN*ones(50,31,21,144);
161olr_filtre_compomin=NaN*ones(50,31,21,144);
162
163compteurmax=0;
164compteurmin=0;
165
166% boucle sur les années
167for a=1:28;
168   clear delta;
169   delta=zeros(122,1);
170   % boucle sur les jours : on prepare avant
171   for b=1:122;
172        if b>1;
173            delta(b)=olr_eof(b,a)-olr_eof(b-1,a);
174        end;
175   end;
176   % boucle sur les jours
177   for b=1:122;
178      % 1ere condition (laisser une marge de 10)
179      if (b>22 && b<110);
180% cas 1 : max deltas apres negetifs et deltas avant postifs
181         if (delta(b+1)<0 && delta(b)<0 && delta(b-1)>0 && delta(b-2)>0 && olr_eof(b,a)>(olrbis));
182            compteurmax=compteurmax+1;
183            olr_filtre_compomax(compteurmax,1,:,:)=olr1(b-21,a,:,:);
184            olr_filtre_compomax(compteurmax,2,:,:)=olr1(b-20,a,:,:);
185            olr_filtre_compomax(compteurmax,3,:,:)=olr1(b-19,a,:,:);
186            olr_filtre_compomax(compteurmax,4,:,:)=olr1(b-18,a,:,:);
187            olr_filtre_compomax(compteurmax,5,:,:)=olr1(b-17,a,:,:);
188            olr_filtre_compomax(compteurmax,6,:,:)=olr1(b-16,a,:,:);
189            olr_filtre_compomax(compteurmax,7,:,:)=olr1(b-15,a,:,:);
190            olr_filtre_compomax(compteurmax,8,:,:)=olr1(b-14,a,:,:);
191            olr_filtre_compomax(compteurmax,9,:,:)=olr1(b-13,a,:,:);
192            olr_filtre_compomax(compteurmax,10,:,:)=olr1(b-12,a,:,:);
193            olr_filtre_compomax(compteurmax,11,:,:)=olr1(b-11,a,:,:);
194
195            olr_filtre_compomax(compteurmax,12,:,:)=olr1(b-10,a,:,:);
196            olr_filtre_compomax(compteurmax,13,:,:)=olr1(b-9,a,:,:);
197            olr_filtre_compomax(compteurmax,14,:,:)=olr1(b-8,a,:,:);
198            olr_filtre_compomax(compteurmax,15,:,:)=olr1(b-7,a,:,:);
199            olr_filtre_compomax(compteurmax,16,:,:)=olr1(b-6,a,:,:);
200            olr_filtre_compomax(compteurmax,17,:,:)=olr1(b-5,a,:,:);
201            olr_filtre_compomax(compteurmax,18,:,:)=olr1(b-4,a,:,:);
202            olr_filtre_compomax(compteurmax,19,:,:)=olr1(b-3,a,:,:);
203            olr_filtre_compomax(compteurmax,20,:,:)=olr1(b-2,a,:,:);
204            olr_filtre_compomax(compteurmax,21,:,:)=olr1(b-1,a,:,:);
205
206            olr_filtre_compomax(compteurmax,22,:,:)=olr1(b,a,:,:);
207            olr_filtre_compomax(compteurmax,23,:,:)=olr1(b+1,a,:,:);
208            olr_filtre_compomax(compteurmax,24,:,:)=olr1(b+2,a,:,:);
209            olr_filtre_compomax(compteurmax,25,:,:)=olr1(b+3,a,:,:);
210            olr_filtre_compomax(compteurmax,26,:,:)=olr1(b+4,a,:,:);
211            olr_filtre_compomax(compteurmax,27,:,:)=olr1(b+5,a,:,:);
212            olr_filtre_compomax(compteurmax,28,:,:)=olr1(b+6,a,:,:);
213            olr_filtre_compomax(compteurmax,29,:,:)=olr1(b+7,a,:,:);
214            olr_filtre_compomax(compteurmax,30,:,:)=olr1(b+8,a,:,:);
215            olr_filtre_compomax(compteurmax,31,:,:)=olr1(b+9,a,:,:);
216
217% cas 2 : min deltas apres positifs et deltas avant negatifs
218         elseif (delta(b+1)>0 && delta(b)>0 && delta(b-1)<0 && delta(b-2)<0 && olr_eof(b,a)<(-olrbis));
219            compteurmin=compteurmin+1;
220
221            olr_filtre_compomin(compteurmin,1,:,:)=olr1(b-21,a,:,:);
222            olr_filtre_compomin(compteurmin,2,:,:)=olr1(b-20,a,:,:);
223            olr_filtre_compomin(compteurmin,3,:,:)=olr1(b-19,a,:,:);
224            olr_filtre_compomin(compteurmin,4,:,:)=olr1(b-18,a,:,:);
225            olr_filtre_compomin(compteurmin,5,:,:)=olr1(b-17,a,:,:);
226            olr_filtre_compomin(compteurmin,6,:,:)=olr1(b-16,a,:,:);
227            olr_filtre_compomin(compteurmin,7,:,:)=olr1(b-15,a,:,:);
228            olr_filtre_compomin(compteurmin,8,:,:)=olr1(b-14,a,:,:);
229            olr_filtre_compomin(compteurmin,9,:,:)=olr1(b-13,a,:,:);
230            olr_filtre_compomin(compteurmin,10,:,:)=olr1(b-12,a,:,:);
231            olr_filtre_compomin(compteurmin,11,:,:)=olr1(b-11,a,:,:);
232
233            olr_filtre_compomin(compteurmin,12,:,:)=olr1(b-10,a,:,:);
234            olr_filtre_compomin(compteurmin,13,:,:)=olr1(b-9,a,:,:);
235            olr_filtre_compomin(compteurmin,14,:,:)=olr1(b-8,a,:,:);
236            olr_filtre_compomin(compteurmin,15,:,:)=olr1(b-7,a,:,:);
237            olr_filtre_compomin(compteurmin,16,:,:)=olr1(b-6,a,:,:);
238            olr_filtre_compomin(compteurmin,17,:,:)=olr1(b-5,a,:,:);
239            olr_filtre_compomin(compteurmin,18,:,:)=olr1(b-4,a,:,:);
240            olr_filtre_compomin(compteurmin,19,:,:)=olr1(b-3,a,:,:);
241            olr_filtre_compomin(compteurmin,20,:,:)=olr1(b-2,a,:,:);
242            olr_filtre_compomin(compteurmin,21,:,:)=olr1(b-1,a,:,:);
243
244            olr_filtre_compomin(compteurmin,22,:,:)=olr1(b,a,:,:);
245            olr_filtre_compomin(compteurmin,23,:,:)=olr1(b+1,a,:,:);
246            olr_filtre_compomin(compteurmin,24,:,:)=olr1(b+2,a,:,:);
247            olr_filtre_compomin(compteurmin,25,:,:)=olr1(b+3,a,:,:);
248            olr_filtre_compomin(compteurmin,26,:,:)=olr1(b+4,a,:,:);
249            olr_filtre_compomin(compteurmin,27,:,:)=olr1(b+5,a,:,:);
250            olr_filtre_compomin(compteurmin,28,:,:)=olr1(b+6,a,:,:);
251            olr_filtre_compomin(compteurmin,29,:,:)=olr1(b+7,a,:,:);
252            olr_filtre_compomin(compteurmin,30,:,:)=olr1(b+8,a,:,:);
253            olr_filtre_compomin(compteurmin,31,:,:)=olr1(b+9,a,:,:);
254
255         end;
256      end;
257   end;
258end;
259
260compteurmin_eof12_er30100=compteurmin;
261compteurmax_eof12_er30100=compteurmax;
262
263% on fait le test de Student
264nb_value=min(compteurmin,compteurmax);
265student1=zeros(31,21,144);
266for a=1:31;
267    for b=1:21;
268        for c=1:144;
269           x=olr_filtre_compomin(1:nb_value,a,b,c);
270           y=olr_filtre_compomax(1:nb_value,a,b,c);
271           student1(a,b,c)=ttest(x,y,.2);
272        end;
273    end;
274end;
275
276% on fait la somme des valeurs de olr_filtreentiel sur le nbre d occurences
277% on obtent un tableau de la forme (jours-avant-apres,lon,lat)
278olr_filtre_compomin1(:,:,:)=nanmean(olr_filtre_compomin);
279clear olr_filtre_compomin;
280olr_filtre_compomax1(:,:,:)=nanmean(olr_filtre_compomax);
281clear olr_filtre_compomax;
282
283x=[-10:1:10]';
284
285figure(1);
286orient('landscape');
287
288lat=lat(21:41)';
289lon=lon-180;
290for e=1:31;
291       clear delta_olr_filtre_min;
292       delta_olr_filtre_min=zeros(21,144);
293       for b=1:21;
294          for c=1:144;
295             delta_olr_filtre_min(b,c)=olr_filtre_compomin1(e,b,c)-olr_filtre_compomax1(e,b,c);
296          end;
297       end;
298       delta_olr_filtre_min=flipud(delta_olr_filtre_min);
299       if e==1;
300            sauvegrads('composite_olr_mode_rossby_30100_moins21',delta_olr_filtre_min,[-180 2.5 -10 2.5]);
301       elseif e==2;
302            sauvegrads('composite_olr_mode_rossby_30100_moins20',delta_olr_filtre_min,[-180 2.5 -10 2.5]);
303       elseif e==3;
304            sauvegrads('composite_olr_mode_rossby_30100_moins19',delta_olr_filtre_min,[-180 2.5 -10 2.5]);
305       elseif e==4;
306            sauvegrads('composite_olr_mode_rossby_30100_moins18',delta_olr_filtre_min,[-180 2.5 -10 2.5]);
307       elseif e==5;
308            sauvegrads('composite_olr_mode_rossby_30100_moins17',delta_olr_filtre_min,[-180 2.5 -10 2.5]);
309       elseif e==6;
310            sauvegrads('composite_olr_mode_rossby_30100_moins16',delta_olr_filtre_min,[-180 2.5 -10 2.5]);
311       elseif e==7;
312            sauvegrads('composite_olr_mode_rossby_30100_moins15',delta_olr_filtre_min,[-180 2.5 -10 2.5]);
313       elseif e==8;
314            sauvegrads('composite_olr_mode_rossby_30100_moins14',delta_olr_filtre_min,[-180 2.5 -10 2.5]);
315       elseif e==9;
316            sauvegrads('composite_olr_mode_rossby_30100_moins13',delta_olr_filtre_min,[-180 2.5 -10 2.5]);
317       elseif e==10;
318            sauvegrads('composite_olr_mode_rossby_30100_moins12',delta_olr_filtre_min,[-180 2.5 -10 2.5]);
319       elseif e==11;
320            sauvegrads('composite_olr_mode_rossby_30100_moins11',delta_olr_filtre_min,[-180 2.5 -10 2.5]);
321       elseif e==12;
322            sauvegrads('composite_olr_mode_rossby_30100_moins10',delta_olr_filtre_min,[-180 2.5 -10 2.5]);
323       elseif e==13;
324            sauvegrads('composite_olr_mode_rossby_30100_moins9',delta_olr_filtre_min,[-180 2.5 -10 2.5]);
325       elseif e==14;
326            sauvegrads('composite_olr_mode_rossby_30100_moins8',delta_olr_filtre_min,[-180 2.5 -10 2.5]);
327       elseif e==15;
328            sauvegrads('composite_olr_mode_rossby_30100_moins7',delta_olr_filtre_min,[-180 2.5 -10 2.5]);
329       elseif e==16;
330            sauvegrads('composite_olr_mode_rossby_30100_moins6',delta_olr_filtre_min,[-180 2.5 -10 2.5]);
331       elseif e==17;
332            sauvegrads('composite_olr_mode_rossby_30100_moins5',delta_olr_filtre_min,[-180 2.5 -10 2.5]);
333       elseif e==18;
334            sauvegrads('composite_olr_mode_rossby_30100_moins4',delta_olr_filtre_min,[-180 2.5 -10 2.5]);
335       elseif e==19;
336            sauvegrads('composite_olr_mode_rossby_30100_moins3',delta_olr_filtre_min,[-180 2.5 -10 2.5]);
337       elseif e==20;
338            sauvegrads('composite_olr_mode_rossby_30100_moins2',delta_olr_filtre_min,[-180 2.5 -10 2.5]);
339       elseif e==21;
340            sauvegrads('composite_olr_mode_rossby_30100_moins1',delta_olr_filtre_min,[-180 2.5 -10 2.5]);
341       elseif e==22;
342            sauvegrads('composite_olr_mode_rossby_30100_0',delta_olr_filtre_min,[-180 2.5 -10 2.5]);
343       elseif e==23;
344            sauvegrads('composite_olr_mode_rossby_30100_plus1',delta_olr_filtre_min,[-180 2.5 -10 2.5]);
345       elseif e==24;
346            sauvegrads('composite_olr_mode_rossby_30100_plus2',delta_olr_filtre_min,[-180 2.5 -10 2.5]);
347       elseif e==25;
348            sauvegrads('composite_olr_mode_rossby_30100_plus3',delta_olr_filtre_min,[-180 2.5 -10 2.5]);
349       elseif e==26;
350            sauvegrads('composite_olr_mode_rossby_30100_plus4',delta_olr_filtre_min,[-180 2.5 -10 2.5]);
351       elseif e==27;
352            sauvegrads('composite_olr_mode_rossby_30100_plus5',delta_olr_filtre_min,[-180 2.5 -10 2.5]);
353       elseif e==28;
354            sauvegrads('composite_olr_mode_rossby_30100_plus6',delta_olr_filtre_min,[-180 2.5 -10 2.5]);
355       elseif e==29;
356            sauvegrads('composite_olr_mode_rossby_30100_plus7',delta_olr_filtre_min,[-180 2.5 -10 2.5]);
357       elseif e==30;
358            sauvegrads('composite_olr_mode_rossby_30100_plus8',delta_olr_filtre_min,[-180 2.5 -10 2.5]);
359       elseif e==31;
360            sauvegrads('composite_olr_mode_rossby_30100_plus9',delta_olr_filtre_min,[-180 2.5 -10 2.5]);
361       end;
362       delta_olr_filtre_min=flipud(delta_olr_filtre_min);
363end;
Note: See TracBrowser for help on using the repository browser.