source: trunk/src/mode_sahelien/composite_olr_eof_df.m @ 85

Last change on this file since 85 was 85, checked in by pinsard, 14 years ago

better representation of variable parts in filenames

File size: 17.0 KB
Line 
1function composite_olr_eof_df(eof_num, period1, period2)
2% composite_olr_eof_df ++explication between period1 days and period2 days
3
4%+
5%
6%  .. _composite_olr_eof_df.m:
7%
8% ======================
9% composite_olr_eof_df.m
10% ======================
11%
12% ++
13%
14% DESCRIPTION
15% ===========
16%
17% From :file:`olr.day.mean.nc` and and :file:`eof{eof_num}{period1}-{period2}d.txt`,
18% ``composite_olr_eof_df`` compute ++
19%
20% ``composite_olr_eof_df`` plot ++
21%
22% 2 Postscript files
23% :file:`composite_olr_eof{eof_num}{period1}-{period2}d_part[12].eps` are
24% written.
25%
26% CAUTIONS
27% ========
28%
29% can't work with octave because of ncload and nanmean.
30%
31% EXAMPLES
32% ========
33%
34% Following line read :file:`olr.day.mean.nc` and :file:`eof1_10-30d.txt`,
35% compute ++,
36% plot ++,
37% write :file:`composite_olr_eof1_10-30d_part[12].eps`::
38%
39% >> composite_olr_eof_df(1,10,30);
40%
41% SEE ALSO
42% ========
43%
44% :ref:`time_serie_jjas_df.m`
45%
46% :ref:`composite_olr_phase.m`
47%
48% TODO
49% ====
50%
51% improve description
52%
53% improve file pb especialy ncload
54%
55% use return function
56%
57% externalize time selection on olr.day.mean.nc
58%
59% test at the beginning if octave is running
60%
61% EVOLUTIONS
62% ==========
63%
64% $Id$
65%
66% - fplod 2009-02-11T16:27:34Z aedon.locean-ipsl.upmc.fr (Darwin)
67%
68%   * add try/catch on opening file for reading
69%
70% - fplod 2009-02-10T14:28:00Z aedon.locean-ipsl.upmc.fr (Darwin)
71%
72%   * replace ndmin by period1 and ndmax by period2
73%
74% - fplod 2009-01-28T10:38:44Z aedon.locean-ipsl.upmc.fr (Darwin)
75%
76%   * created from composite_olr_EOF1_1030.m to replace it as well as
77%     composite_olr_EOF1_30100.m
78%
79%     Days will be now written ``period1``\-``period2d`` (ex: 10-30d) in filenames.
80%
81%   * introducing parametrization on EOF number
82%
83%-
84
85global IRCAAM_ID;
86global IRCAAM_OD;
87
88eof_num_min=1;
89eof_num_max=4;
90
91close all;
92
93if nargin==3
94 % eof_num must be greater or equal to 1 and lower or equal to 4
95 if ((eof_num < eof_num_min) || (eof_num > eof_num_max))
96  disp(['eof_num_min = ', int2str(eof_num_min)]);
97  disp(['eof_num_max = ', int2str(eof_num_max)]);
98  error('eee : eof_num must be between eof_num_min and eof_num_max');
99 end
100 % period1 must be lower than period2
101 if (period1 > period2)
102  disp(['period1 = ', int2str(period1)]);
103  disp(['period2 = ', int2str(period2)]);
104  error('eee : period1 must be lower than period2');
105 end
106else
107  usage='usage : composite_olr_eof_df(eof_num,period1, period2)';
108  disp(usage);
109  error('eee : wrong arguments numbers')
110end
111
112% period1 and period2 will be used in xx-yyd form in filenames
113df = [int2str(period1),'-',int2str(period2),'d'];
114clear period1;
115clear period2;
116
117fullfilename=[IRCAAM_ID,'olr.day.mean.nc'];
118ncload(fullfilename);
119
120clear fullfilename;
121
122% taille 12327x73x144 1er juin 1974-31 decembre2007
123% on enleve les annees 1974 a 1978 nombre de jours a enlever au debut 214+365+366+365+365
124% on enleve les annees 2007 a 2008 nombre de jours a enlever au debut 12327-(365+60)
125
126debut=214+365+366+365+365;
127fin=12327-(365+60);
128olr=olr(debut:fin,21:41,:);
129siz=fin-debut+1;
130for a=1:21;
131   for b=1:144;
132       for c=1:siz;
133          if olr(c,a,b)==32766;
134              olr(c,a,b)=NaN;
135          end;
136       end ;
137   end;
138end;
139olr=olr*0.01+327.65;
140olr1=zeros(siz,21,144);
141olr1(:,:,1:72)=olr(:,:,73:144);
142olr1(:,:,73:144)=olr(:,:,1:72);
143clear olr;
144
145% on permture le temps et l'espce
146% nouvelles dimentions
147% 21 144 siz
148olr1=permute(olr1, [2 3 1]);
149
150for a=1:21;
151   for b=1:144;
152      clear vecteur
153      vecteur=zeros(siz,1);
154      for c=1:siz;
155           vecteur(c)=olr1(a,b,c);
156      end;
157      std_c=nanmean(vecteur);
158      for c=1:siz;
159          olr1(a,b,c)=olr1(a,b,c)-std_c;
160      end;
161   end;
162end;
163
164% on met sous la forme longitude latitude jour
165
166% on selectionne les mois d ete (attention aux annees bixestiles!)
167
168siz1=31+28+31+30+31+1;
169siz1bis=31+28+31+30+31+30+31+31+30;
170a=siz1bis-siz1;olr=zeros(21,144,122,28);
171siz2=siz1+366; siz2bis=siz2+a; % 1980
172siz3=siz2+365; siz3bis=siz3+a; % 1981
173siz4=siz3+365; siz4bis=siz4+a; % 1982
174siz5=siz4+365; siz5bis=siz5+a; % 1983
175siz6=siz5+366; siz6bis=siz6+a; % 1984
176siz7=siz6+365; siz7bis=siz7+a; % 1985
177siz8=siz7+365; siz8bis=siz8+a; % 1986
178siz9=siz8+365; siz9bis=siz9+a; % 1987
179siz10=siz9+366; siz10bis=siz10+a; % 1988
180siz11=siz10+365; siz11bis=siz11+a; % 1989
181siz12=siz11+365; siz12bis=siz12+a; % 1990
182siz13=siz12+365; siz13bis=siz13+a; % 1991
183siz14=siz13+366; siz14bis=siz14+a; % 1992
184siz15=siz14+365; siz15bis=siz15+a; % 1993
185siz16=siz15+365; siz16bis=siz16+a; % 1994
186siz17=siz16+365; siz17bis=siz17+a; % 1995
187siz18=siz17+366; siz18bis=siz18+a; % 1996
188siz19=siz18+365; siz19bis=siz19+a; % 1997
189siz20=siz19+365; siz20bis=siz20+a; % 1998
190siz21=siz20+365; siz21bis=siz21+a; % 1999
191siz22=siz21+366; siz22bis=siz22+a; % 2000
192siz23=siz22+365; siz23bis=siz23+a; % 2000
193siz24=siz23+365; siz24bis=siz24+a; % 2000
194siz25=siz24+365; siz25bis=siz25+a; % 2000
195siz26=siz25+366; siz26bis=siz26+a; % 2000
196siz27=siz26+365; siz27bis=siz27+a; % 2000
197siz28=siz27+365; siz28bis=siz28+a; % 2000
198
199olr(:,:,:,1)=olr1(:,:,siz1:siz1bis); % 1979
200olr(:,:,:,2)=olr1(:,:,siz2:siz2bis); % 1980
201olr(:,:,:,3)=olr1(:,:,siz3:siz3bis); % 1981
202olr(:,:,:,4)=olr1(:,:,siz4:siz4bis); % 1982
203olr(:,:,:,5)=olr1(:,:,siz5:siz5bis); % 1983
204olr(:,:,:,6)=olr1(:,:,siz6:siz6bis); % 1984
205olr(:,:,:,7)=olr1(:,:,siz7:siz7bis); % 1985
206olr(:,:,:,8)=olr1(:,:,siz8:siz8bis); % 1986
207olr(:,:,:,9)=olr1(:,:,siz9:siz9bis); % 1987
208olr(:,:,:,10)=olr1(:,:,siz10:siz10bis); % 1988
209olr(:,:,:,11)=olr1(:,:,siz11:siz11bis); % 1989
210olr(:,:,:,12)=olr1(:,:,siz12:siz12bis); % 1990
211olr(:,:,:,13)=olr1(:,:,siz13:siz13bis); % 1991
212olr(:,:,:,14)=olr1(:,:,siz14:siz14bis); % 1992
213olr(:,:,:,15)=olr1(:,:,siz15:siz15bis); % 1993
214olr(:,:,:,16)=olr1(:,:,siz16:siz16bis); % 1994
215olr(:,:,:,17)=olr1(:,:,siz17:siz17bis); % 1995
216olr(:,:,:,18)=olr1(:,:,siz18:siz18bis); % 1996
217olr(:,:,:,19)=olr1(:,:,siz19:siz19bis); % 1997
218olr(:,:,:,20)=olr1(:,:,siz20:siz20bis); % 1998
219olr(:,:,:,21)=olr1(:,:,siz21:siz21bis); % 1999
220olr(:,:,:,22)=olr1(:,:,siz22:siz22bis); % 2000
221olr(:,:,:,23)=olr1(:,:,siz23:siz23bis); % 2001
222olr(:,:,:,24)=olr1(:,:,siz24:siz24bis); % 2002
223olr(:,:,:,25)=olr1(:,:,siz25:siz25bis); % 2003
224olr(:,:,:,26)=olr1(:,:,siz26:siz26bis); % 2004
225olr(:,:,:,27)=olr1(:,:,siz27:siz27bis); % 2005
226olr(:,:,:,28)=olr1(:,:,siz28:siz28bis); % 2006
227
228clear siz1 siz1bis;
229clear siz2 siz2bis;
230clear siz3 siz3bis;
231clear siz4 siz4bis;
232clear siz5 siz5bis;
233clear siz6 siz6bis;
234clear siz7 siz7bis;
235clear siz8 siz8bis;
236clear siz9 siz9bis;
237clear siz10 siz10bis;
238clear siz11 siz11bis;
239clear siz12 siz12bis;
240clear siz13 siz13bis;
241clear siz14 siz14bis;
242clear siz15 siz15bis;
243clear siz16 siz16bis;
244clear siz17 siz17bis;
245clear siz18 siz18bis;
246clear siz19 siz19bis;
247clear siz20 siz20bis;
248clear siz21 siz21bis;
249clear siz22 siz22bis;
250clear siz23 siz23bis;
251clear siz24 siz24bis;
252clear siz25 siz25bis;
253clear siz26 siz26bis;
254clear siz27 siz27bis;
255clear siz28 siz28bis;
256
257olr1=permute(olr,[3 4 1 2]);
258clear olr;
259
260fullfilename=[IRCAAM_ID,'eof',int2str(eof_num),'_',df,'.txt'];
261try
262 status=load(fullfilename);
263catch
264 error('eee : File %s not found\n', fullfilename);
265end
266
267clear fullfilename;
268
269eof_num_df=status;
270clear status;
271% on met sous la forme annee mois
272olr_eof=reshape(eof_num_df,122,28);
273clear eof_num_df;
274
275% on calcule l ecart type sur la serie temporelle de l OLR
276k=122*28;
277olrbis=reshape(olr_eof,k,1);
278olrbis=std(olrbis);
279
280% intialisation des tableaux
281olr_filtre_compomax=NaN*ones(50,31,21,144);
282olr_filtre_compomin=NaN*ones(50,31,21,144);
283
284compteurmax=0;
285compteurmin=0;
286
287% boucle sur les annees
288for a=1:28;
289   clear delta;
290   delta=zeros(122,1);
291   % boucle sur les jours : on prepare avant
292   for b=1:122;
293        if b>1;
294            delta(b)=olr_eof(b,a)-olr_eof(b-1,a);
295        end;
296   end;
297   % boucle sur les jours
298   for b=1:122;
299      % 1ere condition (laisser une marge de 10)
300      if (b>20 && b<112);
301% cas 1 : max deltas apres negetifs et deltas avant postifs
302         if (delta(b+1)<0 && delta(b)<0 && delta(b-1)>0 && delta(b-2)>0 && olr_eof(b,a)>(olrbis));
303            compteurmax=compteurmax+1;
304            olr_filtre_compomax(compteurmax,1,:,:)=olr1(b-20,a,:,:);
305            olr_filtre_compomax(compteurmax,2,:,:)=olr1(b-19,a,:,:);
306            olr_filtre_compomax(compteurmax,3,:,:)=olr1(b-18,a,:,:);
307            olr_filtre_compomax(compteurmax,4,:,:)=olr1(b-17,a,:,:);
308            olr_filtre_compomax(compteurmax,5,:,:)=olr1(b-16,a,:,:);
309            olr_filtre_compomax(compteurmax,6,:,:)=olr1(b-15,a,:,:);
310            olr_filtre_compomax(compteurmax,7,:,:)=olr1(b-14,a,:,:);
311            olr_filtre_compomax(compteurmax,8,:,:)=olr1(b-13,a,:,:);
312            olr_filtre_compomax(compteurmax,9,:,:)=olr1(b-12,a,:,:);
313            olr_filtre_compomax(compteurmax,10,:,:)=olr1(b-11,a,:,:);
314
315            olr_filtre_compomax(compteurmax,11,:,:)=olr1(b-10,a,:,:);
316            olr_filtre_compomax(compteurmax,12,:,:)=olr1(b-9,a,:,:);
317            olr_filtre_compomax(compteurmax,13,:,:)=olr1(b-8,a,:,:);
318            olr_filtre_compomax(compteurmax,14,:,:)=olr1(b-7,a,:,:);
319            olr_filtre_compomax(compteurmax,15,:,:)=olr1(b-6,a,:,:);
320            olr_filtre_compomax(compteurmax,16,:,:)=olr1(b-5,a,:,:);
321            olr_filtre_compomax(compteurmax,17,:,:)=olr1(b-4,a,:,:);
322            olr_filtre_compomax(compteurmax,18,:,:)=olr1(b-3,a,:,:);
323            olr_filtre_compomax(compteurmax,19,:,:)=olr1(b-2,a,:,:);
324            olr_filtre_compomax(compteurmax,20,:,:)=olr1(b-1,a,:,:);
325
326            olr_filtre_compomax(compteurmax,21,:,:)=olr1(b,a,:,:);
327            olr_filtre_compomax(compteurmax,22,:,:)=olr1(b+1,a,:,:);
328            olr_filtre_compomax(compteurmax,23,:,:)=olr1(b+2,a,:,:);
329            olr_filtre_compomax(compteurmax,24,:,:)=olr1(b+3,a,:,:);
330            olr_filtre_compomax(compteurmax,25,:,:)=olr1(b+4,a,:,:);
331            olr_filtre_compomax(compteurmax,26,:,:)=olr1(b+5,a,:,:);
332            olr_filtre_compomax(compteurmax,27,:,:)=olr1(b+6,a,:,:);
333            olr_filtre_compomax(compteurmax,28,:,:)=olr1(b+7,a,:,:);
334            olr_filtre_compomax(compteurmax,29,:,:)=olr1(b+8,a,:,:);
335            olr_filtre_compomax(compteurmax,30,:,:)=olr1(b+9,a,:,:);
336            olr_filtre_compomax(compteurmax,31,:,:)=olr1(b+10,a,:,:);
337% cas 2 : min deltas apres positifs et deltas avant negatifs
338         elseif (delta(b+1)>0 && delta(b)>0 && delta(b-1)<0 && delta(b-2)<0 && olr_eof(b,a)<(-olrbis));
339            compteurmin=compteurmin+1;
340
341            olr_filtre_compomin(compteurmin,1,:,:)=olr1(b-20,a,:,:);
342            olr_filtre_compomin(compteurmin,2,:,:)=olr1(b-19,a,:,:);
343            olr_filtre_compomin(compteurmin,3,:,:)=olr1(b-18,a,:,:);
344            olr_filtre_compomin(compteurmin,4,:,:)=olr1(b-17,a,:,:);
345            olr_filtre_compomin(compteurmin,5,:,:)=olr1(b-16,a,:,:);
346            olr_filtre_compomin(compteurmin,6,:,:)=olr1(b-15,a,:,:);
347            olr_filtre_compomin(compteurmin,7,:,:)=olr1(b-14,a,:,:);
348            olr_filtre_compomin(compteurmin,8,:,:)=olr1(b-13,a,:,:);
349            olr_filtre_compomin(compteurmin,9,:,:)=olr1(b-12,a,:,:);
350            olr_filtre_compomin(compteurmin,10,:,:)=olr1(b-11,a,:,:);
351
352            olr_filtre_compomin(compteurmin,11,:,:)=olr1(b-10,a,:,:);
353            olr_filtre_compomin(compteurmin,12,:,:)=olr1(b-9,a,:,:);
354            olr_filtre_compomin(compteurmin,13,:,:)=olr1(b-8,a,:,:);
355            olr_filtre_compomin(compteurmin,14,:,:)=olr1(b-7,a,:,:);
356            olr_filtre_compomin(compteurmin,15,:,:)=olr1(b-6,a,:,:);
357            olr_filtre_compomin(compteurmin,16,:,:)=olr1(b-5,a,:,:);
358            olr_filtre_compomin(compteurmin,17,:,:)=olr1(b-4,a,:,:);
359            olr_filtre_compomin(compteurmin,18,:,:)=olr1(b-3,a,:,:);
360            olr_filtre_compomin(compteurmin,19,:,:)=olr1(b-2,a,:,:);
361            olr_filtre_compomin(compteurmin,20,:,:)=olr1(b-1,a,:,:);
362
363            olr_filtre_compomin(compteurmin,21,:,:)=olr1(b,a,:,:);
364            olr_filtre_compomin(compteurmin,22,:,:)=olr1(b+1,a,:,:);
365            olr_filtre_compomin(compteurmin,23,:,:)=olr1(b+2,a,:,:);
366            olr_filtre_compomin(compteurmin,24,:,:)=olr1(b+3,a,:,:);
367            olr_filtre_compomin(compteurmin,25,:,:)=olr1(b+4,a,:,:);
368            olr_filtre_compomin(compteurmin,26,:,:)=olr1(b+5,a,:,:);
369            olr_filtre_compomin(compteurmin,27,:,:)=olr1(b+6,a,:,:);
370            olr_filtre_compomin(compteurmin,28,:,:)=olr1(b+7,a,:,:);
371            olr_filtre_compomin(compteurmin,29,:,:)=olr1(b+8,a,:,:);
372            olr_filtre_compomin(compteurmin,30,:,:)=olr1(b+9,a,:,:);
373            olr_filtre_compomin(compteurmin,31,:,:)=olr1(b+10,a,:,:);
374         end;
375      end;
376   end;
377end;
378% on fait le test de Student
379nb_value=min(compteurmin,compteurmax);
380student1=zeros(31,21,144);
381for a=1:31;
382    for b=1:21;
383        for c=1:144;
384           x=olr_filtre_compomin(1:nb_value,a,b,c);
385           y=olr_filtre_compomax(1:nb_value,a,b,c);
386           student1(a,b,c)=ttest(x,y,.2);
387        end;
388    end;
389end;
390
391% on fait la somme des valeurs de olr_filtreentiel sur le nbre d occurences
392% on obtent un tableau de la forme (jours-avant-apres,lon,lat)
393olr_filtre_compomin1(:,:,:)=nanmean(olr_filtre_compomin);
394clear olr_filtre_compomin;
395olr_filtre_compomax1(:,:,:)=nanmean(olr_filtre_compomax);
396clear olr_filtre_compomax;
397
398x=[-10:1:10]';
399
400figure(1);
401orient('landscape');
402
403lat=lat(21:41)';
404lon=lon-180;
405for e=1:7;
406       a=7-(e-1)+1;
407       f=2*(a-1)+1;
408       clear delta_olr_filtre_min;
409       delta_olr_filtre_min=zeros(21,144);
410       for b=1:21;
411          for c=1:144;
412             delta_olr_filtre_min(b,c)=olr_filtre_compomin1(f,b,c)-olr_filtre_compomax1(f,b,c);
413             if student1(f,b,c)==1;
414                 delta_olr_filtre_min(b,c)=delta_olr_filtre_min(b,c);
415             else
416 %                delta_olr_filtre_min(b,c)=NaN;
417             end;
418          end;
419       end;
420       for b=1:21;
421          for c=1:144;
422             if delta_olr_filtre_min(b,c)<-50;
423                  delta_olr_filtre_min(b,c)=-50;
424             elseif delta_olr_filtre_min(b,c)>50;
425                  delta_olr_filtre_min(b,c)=50;
426             end;
427          end;
428       end;
429       subplot(7,1,8-e);
430       palette
431       delta_olr_filtre_min(1,1)=-50.0001;
432       delta_olr_filtre_min(1,2)=50.0001;
433       fin=-30+24*2.5;
434
435       clear fin
436       fin=-10+16*2.5;
437       aa=contourf(lon,lat,delta_olr_filtre_min,[-50:5:50],'LineStyle','none');
438       if e==1;
439         set (gca,'XTick',[-60:30:60],'XTickLabel',['60W';'30W';' 0 ';'30W';'60W'],'fontsize',6);
440       else
441         set (gca,'XTick',[-60:30:60],'XTickLabel',[' ';' ';' ';' ';' ']);
442       end;
443       set (gca,'YTick',[-10:10:30],'YTickLabel',['10S';'  0';'10N';'20N';'30N'],'fontname','Arial','fontsize',6);
444       if e==4;
445          co=colorbar;
446          set (co,'ytick',[-40:20:40],'yticklabel',[-40:20:40],'fontname','Arial','fontsize',6);
447       end;
448       hold on;
449       cartemonde1;
450       set (gca,'tickDir','out');
451       axis equal;
452       axis([-80 100 -20 40]);
453
454       if e==7;
455          my_title=['OLR composite EOF ', int2str(eof_num), ' ', df, ' ITCZ 7.5-12.5 '];
456          title(my_title,'fontsize',8) ;
457       end;
458       text(-270,10,['day = ',num2str(f-21)],'fontname','Arial','fontsize',10);
459       pos_vert=e/10;
460       set (gca,'position',[0.2 pos_vert 0.5 0.1])
461end;
462
463figure(1);
464fullfilename=[IRCAAM_OD,'composite_olr_eof',int2str(eof_num),'_', df, '_part1.eps'];
465print('-depsc2',fullfilename);
466clear fullfilename;
467
468figure(2);
469orient('landscape');
470
471for e=1:7;
472       a=7-(e-1)+1+7;
473       f=2*(a-1)+1;
474       clear delta_olr_filtre_min;
475       delta_olr_filtre_min=zeros(21,144);
476       for b=1:21;
477          for c=1:144;
478             delta_olr_filtre_min(b,c)=olr_filtre_compomin1(f,b,c)-olr_filtre_compomax1(f,b,c);
479             if student1(f,b,c)==1;
480                 delta_olr_filtre_min(b,c)=delta_olr_filtre_min(b,c);
481             else
482 %                delta_olr_filtre_min(b,c)=NaN;
483             end;
484          end;
485       end;
486       for b=1:21;
487          for c=1:144;
488             if delta_olr_filtre_min(b,c)<-50;
489                  delta_olr_filtre_min(b,c)=-50;
490             elseif delta_olr_filtre_min(b,c)>50;
491                  delta_olr_filtre_min(b,c)=50;
492             end;
493          end;
494       end;
495       subplot(7,1,8-e);
496       palette
497       delta_olr_filtre_min(1,1)=-50.0001;
498       delta_olr_filtre_min(1,2)=50.0001;
499       fin=-30+24*2.5;
500
501       clear fin
502       fin=-10+16*2.5;
503       aa=contourf(lon,lat,delta_olr_filtre_min,[-50:5:50],'LineStyle','none');
504       if e==1;
505       set (gca,'XTick',[-60:30:60],'XTickLabel',['60W';'30W';' 0 ';'30W';'60W'],'fontsize',6);
506       else
507         set (gca,'XTick',[-60:30:60],'XTickLabel',[' ';' ';' ';' ';' ']);
508       end;
509
510       set (gca,'YTick',[-10:10:30],'YTickLabel',['10S';'  0';'10N';'20N';'30N'],'fontname','Arial','fontsize',6);
511       if e==4;
512          co=colorbar;
513          set (co,'xtick',[-20:10:20],'xticklabel',[-20:10:20],'fontname','Arial','fontsize',6);
514       end;
515       hold on;
516       cartemonde1;
517       set (gca,'tickDir','out');
518       axis equal
519       axis([-80 100 -20 40]);
520       if e==7;
521          my_title=['OLR composite EOF ', int2str(eof_num), ' ', df, ' ITCZ 7.5-12.5 '];
522          title(my_title,'fontsize',8) ;
523       end;
524       text(-270,10,['day = ',num2str(f-21)],'fontname','Arial','fontsize',10);
525       pos_vert=e/10;
526       set (gca,'position',[0.2 pos_vert 0.5 0.1])
527end;
528
529figure(2);
530fullfilename=[IRCAAM_OD,'composite_olr_eof',int2str(eof_num),'_', df, '_part2.eps'];
531print('-depsc2',fullfilename);
532clear fullfilename;
Note: See TracBrowser for help on using the repository browser.