source: trunk/src/SIMULS_IRCAAM/climato_olr_AFR.m @ 15

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

modification according to mlint diagnostic

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