source: trunk/src/SIMULS_IRCAAM/prepare_hgt500_tr.m @ 23

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

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