source: trunk/src/SIMULS_IRCAAM/climato_olr_AFR.m

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

fix thanks to coding rules

File size: 3.4 KB
Line 
1%
2
3close all;
4clear;
5
6olr=zeros(122,29,64,128);
7
8ncload('rlut_d.AfNQIVIV.197106-09.nc','rlut');
9olr(:,1,:,:)=rlut; clear rlut;
10
11ncload('rlut_d.AfNQIVIV.197206-09.nc','rlut');
12olr(:,2,:,:)=rlut; clear rlut;
13
14ncload('rlut_d.AfNQIVIV.197306-09.nc','rlut');
15olr(:,3,:,:)=rlut; clear rlut;
16
17ncload('rlut_d.AfNQIVIV.197406-09.nc','rlut');
18olr(:,4,:,:)=rlut; clear rlut;
19
20ncload('rlut_d.AfNQIVIV.197506-09.nc','rlut');
21olr(:,5,:,:)=rlut; clear rlut;
22
23ncload('rlut_d.AfNQIVIV.197606-09.nc','rlut');
24olr(:,6,:,:)=rlut; clear rlut;
25
26ncload('rlut_d.AfNQIVIV.197706-09.nc','rlut');
27olr(:,7,:,:)=rlut; clear rlut;
28
29ncload('rlut_d.AfNQIVIV.197806-09.nc','rlut');
30olr(:,8,:,:)=rlut; clear rlut;
31
32ncload('rlut_d.AfNQIVIV.197906-09.nc','rlut');
33olr(:,9,:,:)=rlut; clear rlut;
34
35ncload('rlut_d.AfNQIVIV.198006-09.nc','rlut');
36olr(:,10,:,:)=rlut; clear rlut;
37
38ncload('rlut_d.AfNQIVIV.198106-09.nc','rlut');
39olr(:,11,:,:)=rlut; clear rlut;
40
41ncload('rlut_d.AfNQIVIV.198206-09.nc','rlut');
42olr(:,12,:,:)=rlut; clear rlut;
43
44ncload('rlut_d.AfNQIVIV.198306-09.nc','rlut');
45olr(:,13,:,:)=rlut; clear rlut;
46
47ncload('rlut_d.AfNQIVIV.198406-09.nc','rlut');
48olr(:,14,:,:)=rlut; clear rlut;
49
50ncload('rlut_d.AfNQIVIV.198506-09.nc','rlut');
51olr(:,15,:,:)=rlut; clear rlut;
52
53ncload('rlut_d.AfNQIVIV.198606-09.nc','rlut');
54olr(:,16,:,:)=rlut; clear rlut;
55
56ncload('rlut_d.AfNQIVIV.198706-09.nc','rlut');
57olr(:,17,:,:)=rlut; clear rlut;
58
59ncload('rlut_d.AfNQIVIV.198806-09.nc','rlut');
60olr(:,18,:,:)=rlut; clear rlut;
61
62ncload('rlut_d.AfNQIVIV.198906-09.nc','rlut');
63olr(:,19,:,:)=rlut; clear rlut;
64
65ncload('rlut_d.AfNQIVIV.199106-09.nc','rlut');
66olr(:,20,:,:)=rlut; clear rlut;
67
68ncload('rlut_d.AfNQIVIV.199206-09.nc','rlut');
69olr(:,21,:,:)=rlut; clear rlut;
70
71ncload('rlut_d.AfNQIVIV.199306-09.nc','rlut');
72olr(:,22,:,:)=rlut; clear rlut;
73
74ncload('rlut_d.AfNQIVIV.199406-09.nc','rlut');
75olr(:,23,:,:)=rlut; clear rlut;
76
77ncload('rlut_d.AfNQIVIV.199506-09.nc','rlut');
78olr(:,24,:,:)=rlut; clear rlut;
79
80ncload('rlut_d.AfNQIVIV.199606-09.nc','rlut');
81olr(:,25,:,:)=rlut; clear rlut;
82
83ncload('rlut_d.AfNQIVIV.199706-09.nc','rlut');
84olr(:,26,:,:)=rlut; clear rlut;
85
86ncload('rlut_d.AfNQIVIV.199806-09.nc','rlut');
87olr(:,27,:,:)=rlut; clear rlut;
88
89ncload('rlut_d.AfNQIVIV.199906-09.nc','rlut');
90olr(:,28,:,:)=rlut; clear rlut;
91
92ncload('rlut_d.AfNQIVIV.200006-09.nc','rlut');
93olr(:,29,:,:)=rlut; clear rlut;
94
95% sélection du domaine géographique
96olr1=zeros(122,29,64,128);
97olr1(:,:,:,1:64)=olr(:,:,:,65:128);
98olr1(:,:,:,65:128)=olr(:,:,:,1:64);
99clear olr;
100olr=olr1;
101clear olr1;
102olr=olr(:,:,29:43,54:77);
103olr1(:,:,:)=mean(olr);
104clear olr;
105olr2(:,:)=mean(olr1);
106clear olr1;
107
108ncload('rlut_d.AfNQIVIV.199606-09.nc','lat','lon')
109lon=lon-180;
110lon=lon(54:77);
111lat=lat(29:43)';
112figure(1);
113orient('landscape');
114subplot(3,2,1);
115palette;
116olr2(1,1)=149.999;
117olr2(1,2)=350.001;
118
119contourf(lon,lat,olr2,[150:10:350],'LineStyle','none');
120colorbar;
121title('OLR mean JJAS AFR nudging','Fontsize',8);
122hold on;
123cartemonde;
124set (gca,'YTick',[-10:10:30],'YTickLabel',['10S';'  0';'10N';'20N';'30N'],'fontname','Arial','fontsize',6);
125set (gca,'XTick',[-30:10:30],'XTickLabel',['30W';'20W';'10W';'  0';'10E';'20E';'30E'],'fontname','Arial','fontsize',6);
126set (gca,'tickDir','out');
127axis equal;
128axis([-30 30 -10 30]);
129climato_olr_CTL;
130title('OLR mean JJAS no nudging','Fontsize',8);
131axis equal;
132axis([-30 30 -10 30]);
133climato_olr_noaa;
134title('OLR mean JJAS NOAA','Fontsize',8);
135axis equal;
136axis([-30 30 -10 30]);
137
138print('-depsc2','planel_climato_olr.eps');
Note: See TracBrowser for help on using the repository browser.