source: trunk/src/mode_sahelien/obsolete/composite_olr_EOF1_30100.m @ 91

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

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