1 | %
|
---|
2 |
|
---|
3 | % initialisation
|
---|
4 | clear;
|
---|
5 | close all;
|
---|
6 |
|
---|
7 | cd('GEOPOT_TROP');
|
---|
8 |
|
---|
9 | hgt500=zeros(122,29,64,128);
|
---|
10 |
|
---|
11 | ncload('zg_d.TrNQIVIV.197106-09.nc','zg');
|
---|
12 | vm(:,:,:)=zg(:,6,:,:); clear zg;
|
---|
13 | hgt500(:,1,:,:)=vm; clear vm;
|
---|
14 |
|
---|
15 | ncload('zg_d.TrNQIVIV.197206-09.nc','zg');
|
---|
16 | vm(:,:,:)=zg(:,6,:,:); clear zg;
|
---|
17 | hgt500(:,2,:,:)=vm; clear vm;
|
---|
18 |
|
---|
19 | ncload('zg_d.TrNQIVIV.197306-09.nc','zg');
|
---|
20 | vm(:,:,:)=zg(:,6,:,:); clear zg;
|
---|
21 | hgt500(:,3,:,:)=vm; clear vm;
|
---|
22 |
|
---|
23 | ncload('zg_d.TrNQIVIV.197406-09.nc','zg');
|
---|
24 | vm(:,:,:)=zg(:,6,:,:); clear zg;
|
---|
25 | hgt500(:,4,:,:)=vm; clear vm;
|
---|
26 |
|
---|
27 | ncload('zg_d.TrNQIVIV.197506-09.nc','zg');
|
---|
28 | vm(:,:,:)=zg(:,6,:,:); clear zg;
|
---|
29 | hgt500(:,5,:,:)=vm; clear vm;
|
---|
30 |
|
---|
31 | ncload('zg_d.TrNQIVIV.197606-09.nc','zg');
|
---|
32 | vm(:,:,:)=zg(:,6,:,:); clear zg;
|
---|
33 | hgt500(:,6,:,:)=vm; clear vm;
|
---|
34 |
|
---|
35 | ncload('zg_d.TrNQIVIV.197706-09.nc','zg');
|
---|
36 | vm(:,:,:)=zg(:,6,:,:); clear zg;
|
---|
37 | hgt500(:,7,:,:)=vm; clear vm;
|
---|
38 |
|
---|
39 | ncload('zg_d.TrNQIVIV.197806-09.nc','zg');
|
---|
40 | vm(:,:,:)=zg(:,6,:,:); clear zg;
|
---|
41 | hgt500(:,8,:,:)=vm; clear vm;
|
---|
42 |
|
---|
43 | ncload('zg_d.TrNQIVIV.197906-09.nc','zg');
|
---|
44 | vm(:,:,:)=zg(:,6,:,:); clear zg;
|
---|
45 | hgt500(:,9,:,:)=vm; clear vm;
|
---|
46 |
|
---|
47 | ncload('zg_d.TrNQIVIV.198006-09.nc','zg');
|
---|
48 | vm(:,:,:)=zg(:,6,:,:); clear zg;
|
---|
49 | hgt500(:,10,:,:)=vm; clear vm;
|
---|
50 |
|
---|
51 | ncload('zg_d.TrNQIVIV.198106-09.nc','zg');
|
---|
52 | vm(:,:,:)=zg(:,6,:,:); clear zg;
|
---|
53 | hgt500(:,11,:,:)=vm; clear vm;
|
---|
54 |
|
---|
55 | ncload('zg_d.TrNQIVIV.198206-09.nc','zg');
|
---|
56 | vm(:,:,:)=zg(:,6,:,:); clear zg;
|
---|
57 | hgt500(:,12,:,:)=vm; clear vm;
|
---|
58 |
|
---|
59 | ncload('zg_d.TrNQIVIV.198306-09.nc','zg');
|
---|
60 | vm(:,:,:)=zg(:,6,:,:); clear zg;
|
---|
61 | hgt500(:,13,:,:)=vm; clear vm;
|
---|
62 |
|
---|
63 | ncload('zg_d.TrNQIVIV.198406-09.nc','zg');
|
---|
64 | vm(:,:,:)=zg(:,6,:,:); clear zg;
|
---|
65 | hgt500(:,14,:,:)=vm; clear vm;
|
---|
66 |
|
---|
67 | ncload('zg_d.TrNQIVIV.198506-09.nc','zg');
|
---|
68 | vm(:,:,:)=zg(:,6,:,:); clear zg;
|
---|
69 | hgt500(:,15,:,:)=vm; clear vm;
|
---|
70 |
|
---|
71 | ncload('zg_d.TrNQIVIV.198606-09.nc','zg');
|
---|
72 | vm(:,:,:)=zg(:,6,:,:); clear zg;
|
---|
73 | hgt500(:,16,:,:)=vm; clear vm;
|
---|
74 |
|
---|
75 | ncload('zg_d.TrNQIVIV.198706-09.nc','zg');
|
---|
76 | vm(:,:,:)=zg(:,6,:,:); clear zg;
|
---|
77 | hgt500(:,17,:,:)=vm; clear vm;
|
---|
78 |
|
---|
79 | ncload('zg_d.TrNQIVIV.198806-09.nc','zg');
|
---|
80 | vm(:,:,:)=zg(:,6,:,:); clear zg;
|
---|
81 | hgt500(:,18,:,:)=vm; clear vm;
|
---|
82 |
|
---|
83 | ncload('zg_d.TrNQIVIV.198906-09.nc','zg');
|
---|
84 | vm(:,:,:)=zg(:,6,:,:); clear zg;
|
---|
85 | hgt500(:,19,:,:)=vm; clear vm;
|
---|
86 |
|
---|
87 | ncload('zg_d.TrNQIVIV.199106-09.nc','zg');
|
---|
88 | vm(:,:,:)=zg(:,6,:,:); clear zg;
|
---|
89 | hgt500(:,20,:,:)=vm; clear vm;
|
---|
90 |
|
---|
91 | ncload('zg_d.TrNQIVIV.199206-09.nc','zg');
|
---|
92 | vm(:,:,:)=zg(:,6,:,:); clear zg;
|
---|
93 | hgt500(:,21,:,:)=vm; clear vm;
|
---|
94 |
|
---|
95 | ncload('zg_d.TrNQIVIV.199306-09.nc','zg');
|
---|
96 | vm(:,:,:)=zg(:,6,:,:); clear zg;
|
---|
97 | hgt500(:,22,:,:)=vm; clear vm;
|
---|
98 |
|
---|
99 | ncload('zg_d.TrNQIVIV.199406-09.nc','zg');
|
---|
100 | vm(:,:,:)=zg(:,6,:,:); clear zg;
|
---|
101 | hgt500(:,23,:,:)=vm; clear vm;
|
---|
102 |
|
---|
103 | ncload('zg_d.TrNQIVIV.199506-09.nc','zg');
|
---|
104 | vm(:,:,:)=zg(:,6,:,:); clear zg;
|
---|
105 | hgt500(:,24,:,:)=vm; clear vm;
|
---|
106 |
|
---|
107 | ncload('zg_d.TrNQIVIV.199606-09.nc','zg');
|
---|
108 | vm(:,:,:)=zg(:,6,:,:); clear zg;
|
---|
109 | hgt500(:,25,:,:)=vm; clear vm;
|
---|
110 |
|
---|
111 | ncload('zg_d.TrNQIVIV.199706-09.nc','zg');
|
---|
112 | vm(:,:,:)=zg(:,6,:,:); clear zg;
|
---|
113 | hgt500(:,26,:,:)=vm; clear vm;
|
---|
114 |
|
---|
115 | ncload('zg_d.TrNQIVIV.199806-09.nc','zg');
|
---|
116 | vm(:,:,:)=zg(:,6,:,:); clear zg;
|
---|
117 | hgt500(:,27,:,:)=vm; clear vm;
|
---|
118 |
|
---|
119 | ncload('zg_d.TrNQIVIV.199906-09.nc','zg');
|
---|
120 | vm(:,:,:)=zg(:,6,:,:); clear zg;
|
---|
121 | hgt500(:,28,:,:)=vm; clear vm;
|
---|
122 |
|
---|
123 | ncload('zg_d.TrNQIVIV.200006-09.nc','zg','lat','lon');
|
---|
124 | vm(:,:,:)=zg(:,6,:,:); clear zg;
|
---|
125 | hgt500(:,29,:,:)=vm; clear vm;
|
---|
126 |
|
---|
127 | cd('..');
|
---|
128 | save hgt500_trop.mat hgt500;
|
---|