1 | %
|
---|
2 |
|
---|
3 | clear;
|
---|
4 | close all;
|
---|
5 |
|
---|
6 | %lon=[-30:2.5:30], lat=[-10:2.5:30]
|
---|
7 |
|
---|
8 | load eof_1025_jjas.mat;
|
---|
9 | olr=olr';
|
---|
10 | PC1=olr*C;
|
---|
11 |
|
---|
12 | cosa=zeros(4,3416,425);
|
---|
13 | % boucle sur les VP
|
---|
14 | for a=1:4;
|
---|
15 | for b=1:3416 % boucle sur le temps
|
---|
16 | for c=1:425 % boucle sur l espace
|
---|
17 | cosa(a,b,c)=PC1(b,426-a)*C(c,426-a);
|
---|
18 | end;
|
---|
19 | end;
|
---|
20 | end;
|
---|
21 |
|
---|
22 | cosa1(:,:)=cosa(1,:,:);
|
---|
23 | cosa1=reshape(cosa1,3416,25,17);
|
---|
24 |
|
---|
25 | cosa2(:,:)=cosa(2,:,:);
|
---|
26 | cosa2=reshape(cosa2,3416,25,17);
|
---|
27 |
|
---|
28 | cosabis=cosa(2:3,:,:);
|
---|
29 | cosa23(:,:)=sum(cosabis);
|
---|
30 | clear cosabis;
|
---|
31 | cosa23=reshape(cosa23,3416,25,17);
|
---|
32 |
|
---|
33 | cosabis=cosa(2:4,:,:);
|
---|
34 | cosa24(:,:)=sum(cosabis);
|
---|
35 | clear cosabis;
|
---|
36 | cosa24=reshape(cosa24,3416,25,17);
|
---|
37 |
|
---|
38 | figure(1);
|
---|
39 | orient('landscape')
|
---|
40 | figure(2);
|
---|
41 | orient('landscape')
|
---|
42 | figure(3);
|
---|
43 | orient('landscape')
|
---|
44 |
|
---|
45 | % On selectionne la demaine geographique
|
---|
46 |
|
---|
47 | % la latitude : 5N (7) 12.5N (10)
|
---|
48 | % la longitude : 10W (9) 10E(17)
|
---|
49 | lat1=7;
|
---|
50 | lat2=10;
|
---|
51 | lon1=9;
|
---|
52 | lon2=17;
|
---|
53 | taille=(lat2-lat1+1)*(lon2-lon1+1);
|
---|
54 |
|
---|
55 | cosa23=cosa23(:,lon1:lon2,lat1:lat2);
|
---|
56 | clear cosi2;
|
---|
57 | cosa23=reshape(cosa23,3416,taille);
|
---|
58 | cosa23=cosa23';
|
---|
59 | cosa23=mean(cosa23);
|
---|
60 | cosa23=cosa23';
|
---|
61 | save eof23_1025.txt cosa23 -ascii;
|
---|
62 | cosa23=reshape(cosa23,122,28);
|
---|
63 |
|
---|
64 | cosa24=cosa24(:,lon1:lon2,lat1:lat2);
|
---|
65 | clear cosi2;
|
---|
66 | cosa24=reshape(cosa24,3416,taille);
|
---|
67 | cosa24=cosa24';
|
---|
68 | cosa24=mean(cosa24);
|
---|
69 | cosa24=cosa24';
|
---|
70 | save eof24_1025.txt cosa24 -ascii;
|
---|
71 | cosa24=reshape(cosa24,122,28);
|
---|
72 |
|
---|
73 |
|
---|
74 | fid=fopen('sahel_scav.dat','r');
|
---|
75 | v=fread(fid,3538,'float');
|
---|
76 | fclose(fid);
|
---|
77 |
|
---|
78 | % on met sous la forme annee mois
|
---|
79 | ind_olr=reshape(v,122,29);
|
---|
80 | clear v;
|
---|
81 |
|
---|
82 | % on selectionne les annees de 1979 a 2006
|
---|
83 | ind_olr=ind_olr(:,1:28);
|
---|
84 |
|
---|
85 | for a=1:28;
|
---|
86 | if a<12;
|
---|
87 | figure(1);
|
---|
88 | subplot(4,3,a);
|
---|
89 | elseif a<24
|
---|
90 | figure(2);
|
---|
91 | subplot(4,3,a-11);
|
---|
92 | else
|
---|
93 | figure(3);
|
---|
94 | subplot(4,3,a-23);
|
---|
95 | end
|
---|
96 | y2=ind_olr(:,a);
|
---|
97 | y4=cosa24(:,a);
|
---|
98 | x=[1:122]';
|
---|
99 | plot(x,y2);
|
---|
100 | hold on;
|
---|
101 | plot(x,y4,'k');
|
---|
102 | y5=zeros(122,1);
|
---|
103 | plot(x,y5,'k:');
|
---|
104 |
|
---|
105 | title(a+1978,'Fontsize',8);
|
---|
106 | if a==2;
|
---|
107 | text(0,65,'OLR 5 -12.5N et 10W - 10E');
|
---|
108 | elseif a==13;
|
---|
109 | text(0,65,'OLR 5 -12.5N et 10W - 10E');
|
---|
110 | end
|
---|
111 | set (gca,'tickDir','out');
|
---|
112 | if a==11;
|
---|
113 | aa=legend('OLR VP2-3','OLR NOAA');
|
---|
114 | set (aa,'fontsize',8,'Position',[0.6800 0.1039 0.2470 0.1642])
|
---|
115 | legend boxoff;
|
---|
116 | elseif a==22;
|
---|
117 | clear aa;
|
---|
118 | aa=legend('OLR VP2-3','OLR NOAA');
|
---|
119 | set (aa,'fontsize',8,'Position',[0.6800 0.1039 0.2470 0.1642])
|
---|
120 | legend boxoff;
|
---|
121 | end;
|
---|
122 | axis([1 122 -15 15]);
|
---|
123 | set (gca,'YTick',[-15:5:15],'YTickLabel',[-15:5:15],'fontname','Arial','fontsize',6);
|
---|
124 | set (gca,'XTick',[10:10:122],'XTickLabel',[10:10:122],'fontname','Arial','fontsize',6);
|
---|
125 |
|
---|
126 | end;
|
---|
127 |
|
---|
128 | figure(1);
|
---|
129 | print -depsc2 reconstitution1_eof234_1025.eps;
|
---|
130 | figure(2);
|
---|
131 | print -depsc2 reconstitution2_eof234_1025.eps;
|
---|
132 | figure(3);
|
---|
133 | print -depsc2 reconstitution3_eof234_1025.eps;
|
---|