LMDZ
suecaec.F90
Go to the documentation of this file.
1 SUBROUTINE suecaec ( KINDAT, KMINUT )
2 
3 
4 !**** *SUECAEC* - DEFINES NEW CLIMATOLOGICAL DISTRIBUTION OF AEROSOLS
5 
6 
7 ! PURPOSE.
8 ! --------
9 
10 !** INTERFACE.
11 ! ----------
12 ! CALL *SUECAEC* FROM *UPDTIM*
13 
14 ! EXPLICIT ARGUMENTS :
15 ! --------------------
16 ! ==== INPUTS ===
17 ! ==== OUTPUTS ===
18 ! AEROSOL TOTAL OPTICAL THICKNESS (0.55 MICRON)
19 
20 !-- TEGEN ET AL. MONTHLY CLIMATOLOGY OF TROPOSPHERIC AEROSOLS
21 
22 ! RTAEBC : BLACK CARBON AEROSOL
23 ! RTAEOR : ORGANIC AEROSOL
24 ! RTAESD : SAND DUST AEROSOL
25 ! RTAESS : SEA SALT AEROSOL
26 ! RTAESU : SULFATE AEROSOL
27 
28 !-- GISS HISTORY OF VOLCANIC AEROSOLS
29 
30 ! RTAEVO : VOLCANIC AEROSOL
31 
32 
33 
34 ! IMPLICIT ARGUMENTS : NONE
35 ! --------------------
36 
37 ! METHOD.
38 ! -------
39 
40 
41 ! EXTERNALS.
42 ! ----------
43 
44 ! NONE
45 
46 ! REFERENCE.
47 ! ----------
48 
49 ! SEE RADIATION'S PART OF THE MODEL'S DOCUMENTATION AND
50 ! ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE "I.F.S"
51 
52 ! AUTHOR.
53 ! -------
54 ! J.-J. MORCRETTE E.C.M.W.F. 98/12/21
55 
56 ! MODIFICATIONS.
57 ! --------------
58 ! 990115: JJMorcrette, Volcanic aerosols
59 ! 990525: JJMorcrette, Monthly Climatology of Tropospheric Aerosols
60 !-----------------------------------------------------------------------
61 
62 #include "tsmbkind.h"
63 
64 USE yomcst , ONLY : rpi , rday
65 USE yoeaerc , ONLY : raerbc, raeror, raersd, raerss, raersu,&
66  &repaer, rsinct, rsincv,&
67  &rtaebc, rtaeor, rtaesd, rtaess, rtaesu, rtaevo
68 
69 
70 IMPLICIT NONE
71 
72 
73 ! DUMMY INTEGER SCALARS
74 integer_m :: kindat
75 integer_m :: kminut
76 
77 
78 
79 ! -----------------------------------------------------------------
80 
81 !* 0.1 ARGUMENTS.
82 ! ----------
83 
84 
85 !* 0.2 LOCAL ARRAYS.
86 ! -------------
87 
88 ! ZAERV:2003,2004 are dummy years
89 real_b :: zlatt(46), zlatv(24) , zaerv(1957:2004,12,24)
90 real_b :: zytime(12), zmday(12) , ztaerv(24)
91 
92 ! LOCAL INTEGER SCALARS
93 integer_m :: idy, im, im1, im2, imn, iyr, iyr1, iyr2, ji, jl
94 
95 ! LOCAL REAL SCALARS
96 real_b :: grid, zint, zlat, zres, zresm, zresp, ztimi, zxtime
97 
98 
99 #include "fcttim.h"
100 ! ------------------------------------------------------------------
101 
102 zmday = (/&
103  &31._jprb, 59.25_jprb, 90.25_jprb, 120.25_jprb, 151.25_jprb, 181.25_jprb &
104  &, 212.25_jprb, 243.25_jprb, 273.25_jprb, 304.25_jprb, 334.25_jprb, 365.25_jprb &
105  &/)
106 zytime= (/&
107  &22320._jprb, 64980._jprb, 107640._jprb, 151560._jprb, 195480._jprb, 239400._jprb &
108  &, 283320._jprb, 327960._jprb, 371880._jprb, 415800._jprb, 459720._jprb, 503640._jprb &
109  &/)
110 
111 ! ------------------------------------------------------------------
112 
113 ! VOLCANIC AEROSOL OPTICAL THICKNESS (GISS)
114 
115 !- reference latitudes
116 
117 zlatv(:) = (/&
118  &90.0_jprb, 82.2_jprb, 74.3_jprb, 66.5_jprb, 58.7_jprb, 50.9_jprb, 43.0_jprb, 35.2_jprb, 27.4_jprb, 19.6_jprb, 11.7_jprb, &
119  &3.9_jprb, -3.9_jprb,-11.7_jprb,-19.6_jprb,-27.4_jprb,-35.2_jprb,-43.0_jprb,-50.9_jprb,-58.7_jprb,-66.5_jprb,-74.3_jprb,&
120 &-82.2_jprb,-90.0_jprb /)
121 
122 !- total optical thickness * 10000
123 
124 zaerv(1957, 1, :) = (/&
125  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,&
126  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1/)
127 zaerv(1957, 2, :) = (/&
128  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,&
129  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1/)
130 zaerv(1957, 3, :) = (/&
131  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,&
132  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1/)
133 zaerv(1957, 4, :) = (/&
134  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,&
135  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1/)
136 zaerv(1957, 5, :) = (/&
137  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,&
138  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1/)
139 zaerv(1957, 6, :) = (/&
140  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,&
141  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1/)
142 zaerv(1957, 7, :) = (/&
143  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,&
144  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1/)
145 zaerv(1957, 8, :) = (/&
146  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,&
147  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1/)
148 zaerv(1957, 9, :) = (/&
149  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,&
150  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1/)
151 zaerv(1957,10, :) = (/&
152  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,&
153  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1/)
154 zaerv(1957,11, :) = (/&
155  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,&
156  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1/)
157 zaerv(1957,12, :) = (/&
158  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,&
159  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1/)
160 zaerv(1958, 1, :) = (/&
161  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,&
162  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1/)
163 zaerv(1958, 2, :) = (/&
164  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,&
165  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1/)
166 zaerv(1958, 3, :) = (/&
167  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,&
168  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1/)
169 zaerv(1958, 4, :) = (/&
170  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,&
171  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1/)
172 zaerv(1958, 5, :) = (/&
173  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,&
174  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1/)
175 zaerv(1958, 6, :) = (/&
176  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,&
177  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1/)
178 zaerv(1958, 7, :) = (/&
179  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,&
180  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1/)
181 zaerv(1958, 8, :) = (/&
182  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,&
183  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1/)
184 zaerv(1958, 9, :) = (/&
185  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,&
186  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1/)
187 zaerv(1958,10, :) = (/&
188  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,&
189  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1/)
190 zaerv(1958,11, :) = (/&
191  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,&
192  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1/)
193 zaerv(1958,12, :) = (/&
194  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,&
195  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1/)
196 zaerv(1959, 1, :) = (/&
197  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,&
198  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1/)
199 zaerv(1959, 2, :) = (/&
200  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,&
201  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1/)
202 zaerv(1959, 3, :) = (/&
203  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,&
204  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1/)
205 zaerv(1959, 4, :) = (/&
206  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,&
207  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1/)
208 zaerv(1959, 5, :) = (/&
209  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,&
210  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1/)
211 zaerv(1959, 6, :) = (/&
212  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,&
213  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1/)
214 zaerv(1959, 7, :) = (/&
215  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,&
216  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1/)
217 zaerv(1959, 8, :) = (/&
218  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,&
219  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1/)
220 zaerv(1959, 9, :) = (/&
221  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,&
222  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1/)
223 zaerv(1959,10, :) = (/&
224  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,&
225  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1/)
226 zaerv(1959,11, :) = (/&
227  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,&
228  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1/)
229 zaerv(1959,12, :) = (/&
230  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,&
231  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1/)
232 zaerv(1960, 1, :) = (/&
233  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,&
234  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1/)
235 zaerv(1960, 2, :) = (/&
236  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,&
237  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1/)
238 zaerv(1960, 3, :) = (/&
239  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,&
240  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1/)
241 zaerv(1960, 4, :) = (/&
242  &17, 17, 17, 17, 17, 17, 17, 17, 17, 17, 17, 17,&
243  &17, 17, 17, 17, 17, 17, 17, 17, 17, 17, 17, 17/)
244 zaerv(1960, 5, :) = (/&
245  &33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33,&
246  &33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33/)
247 zaerv(1960, 6, :) = (/&
248  &50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50,&
249  &50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50/)
250 zaerv(1960, 7, :) = (/&
251  &67, 67, 67, 67, 67, 67, 67, 67, 67, 67, 67, 67,&
252  &67, 67, 67, 67, 67, 67, 67, 67, 67, 67, 67, 67/)
253 zaerv(1960, 8, :) = (/&
254  &83, 83, 83, 83, 83, 83, 83, 83, 83, 83, 83, 83,&
255  &83, 83, 83, 83, 83, 83, 83, 83, 83, 83, 83, 83/)
256 zaerv(1960, 9, :) = (/&
257  &100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100,&
258  &100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100/)
259 zaerv(1960,10, :) = (/&
260  &100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100,&
261  &100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100/)
262 zaerv(1960,11, :) = (/&
263  &100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100,&
264  &100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100/)
265 zaerv(1960,12, :) = (/&
266  &100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100,&
267  &100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100/)
268 zaerv(1961, 1, :) = (/&
269  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,&
270  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1/)
271 zaerv(1961, 2, :) = (/&
272  &1, 1, 1, 40, 1, 1, 20, 1, 72, 190, 190, 101,&
273  &30, 48, 69, 90, 110, 94, 78, 63, 47, 31, 16, 1/)
274 zaerv(1961, 3, :) = (/&
275  &1, 1, 1, 50, 1, 1, 10, 1, 145, 380, 380, 230,&
276  &110, 85, 57, 28, 1, 1, 1, 1, 1, 1, 1, 1/)
277 zaerv(1961, 4, :) = (/&
278  &60, 60, 60, 50, 1, 1, 1, 1, 175, 460, 460, 272,&
279  &120, 93, 62, 30, 1, 1, 1, 1, 1, 1, 1, 1/)
280 zaerv(1961, 5, :) = (/&
281  &80, 80, 80, 40, 1, 1, 1, 1, 110, 290, 290, 129,&
282  &1, 18, 39, 60, 80, 68, 57, 46, 34, 23, 11, 1/)
283 zaerv(1961, 6, :) = (/&
284  &90, 90, 90, 10, 50, 50, 1, 1, 61, 160, 160, 71,&
285  &1, 25, 53, 82, 110, 94, 78, 63, 47, 31, 16, 1/)
286 zaerv(1961, 7, :) = (/&
287  &70, 70, 70, 1, 70, 70, 1, 10, 52, 120, 120, 70,&
288  &30, 23, 15, 8, 1, 1, 1, 1, 1, 1, 1, 1/)
289 zaerv(1961, 8, :) = (/&
290  &40, 40, 40, 1, 60, 60, 1, 80, 95, 120, 120, 153,&
291  &180, 142, 97, 53, 10, 9, 7, 6, 4, 3, 1, 1/)
292 zaerv(1961, 9, :) = (/&
293  &1, 1, 1, 1, 40, 40, 1, 60, 83, 120, 120, 214,&
294  &290, 236, 173, 111, 50, 43, 36, 28, 21, 14, 7, 1/)
295 zaerv(1961,10, :) = (/&
296  &1, 1, 1, 1, 20, 20, 1, 1, 38, 100, 100, 228,&
297  &330, 258, 175, 91, 10, 9, 7, 6, 4, 3, 1, 1/)
298 zaerv(1961,11, :) = (/&
299  &1, 1, 1, 10, 10, 10, 80, 1, 4, 10, 10, 193,&
300  &340, 264, 175, 86, 1, 1, 1, 1, 1, 1, 1, 1/)
301 zaerv(1961,12, :) = (/&
302  &1, 1, 1, 10, 10, 10, 80, 1, 8, 20, 20, 164,&
303  &280, 217, 144, 71, 1, 1, 1, 1, 1, 1, 1, 1/)
304 zaerv(1962, 1, :) = (/&
305  &1, 1, 1, 10, 20, 20, 1, 1, 53, 140, 140, 112,&
306  &90, 70, 46, 23, 1, 1, 1, 1, 1, 1, 1, 1/)
307 zaerv(1962, 2, :) = (/&
308  &1, 1, 1, 1, 50, 50, 1, 1, 61, 160, 160, 116,&
309  &80, 78, 75, 73, 70, 60, 50, 40, 30, 20, 10, 1/)
310 zaerv(1962, 3, :) = (/&
311  &1, 1, 1, 1, 70, 70, 1, 1, 11, 30, 30, 152,&
312  &250, 259, 269, 280, 290, 248, 206, 165, 124, 83, 41, 1/)
313 zaerv(1962, 4, :) = (/&
314  &1, 1, 1, 1, 60, 60, 50, 1, 1, 1, 1, 216,&
315  &390, 363, 332, 300, 270, 231, 192, 154, 115, 77, 38, 1/)
316 zaerv(1962, 5, :) = (/&
317  &1, 1, 1, 1, 40, 40, 100, 1, 1, 1, 1, 28,&
318  &50, 46, 40, 35, 30, 26, 21, 17, 13, 9, 4, 1/)
319 zaerv(1962, 6, :) = (/&
320  &1, 1, 1, 1, 1, 1, 150, 1, 19, 50, 50, 33,&
321  &20, 20, 20, 20, 20, 17, 14, 11, 9, 6, 3, 1/)
322 zaerv(1962, 7, :) = (/&
323  &1, 1, 1, 20, 1, 1, 160, 1, 46, 120, 120, 270,&
324  &390, 311, 220, 129, 40, 34, 28, 23, 17, 11, 6, 1/)
325 zaerv(1962, 8, :) = (/&
326  &1, 1, 1, 20, 1, 1, 140, 1, 57, 150, 150, 405,&
327  &610, 473, 314, 155, 1, 1, 1, 1, 1, 1, 1, 1/)
328 zaerv(1962, 9, :) = (/&
329  &30, 30, 30, 10, 10, 10, 80, 10, 44, 100, 100, 189,&
330  &260, 202, 134, 66, 1, 1, 1, 1, 1, 1, 1, 1/)
331 zaerv(1962,10, :) = (/&
332  &80, 80, 80, 10, 20, 20, 10, 120, 78, 10, 10, 110,&
333  &190, 147, 98, 48, 1, 1, 1, 1, 1, 1, 1, 1/)
334 zaerv(1962,11, :) = (/&
335  &130, 130, 130, 50, 20, 20, 1, 50, 39, 20, 20, 142,&
336  &240, 186, 123, 61, 1, 1, 1, 1, 1, 1, 1, 1/)
337 zaerv(1962,12, :) = (/&
338  &180, 180, 180, 60, 1, 1, 1, 1, 19, 50, 50, 122,&
339  &180, 140, 93, 46, 1, 1, 1, 1, 1, 1, 1, 1/)
340 zaerv(1963, 1, :) = (/&
341  &230, 230, 230, 10, 1, 1, 100, 1, 53, 140, 140, 62,&
342  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1/)
343 zaerv(1963, 2, :) = (/&
344  &280, 280, 280, 70, 1, 1, 130, 1, 61, 160, 160, 71,&
345  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1/)
346 zaerv(1963, 3, :) = (/&
347  &290, 290, 290, 150, 1, 1, 50, 150, 154, 160, 160, 71,&
348  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1/)
349 zaerv(1963, 4, :) = (/&
350  &230, 230, 230, 150, 20, 20, 70, 90, 113, 150, 150, 294,&
351  &410, 379, 342, 306, 270, 231, 192, 154, 115, 77, 38, 1/)
352 zaerv(1963, 5, :) = (/&
353  &80, 80, 80, 100, 40, 40, 130, 1, 53, 140, 140, 578,&
354  &930, 874, 809, 743, 680, 581, 484, 387, 290, 194, 97, 1/)
355 zaerv(1963, 6, :) = (/&
356  &1, 1, 1, 20, 1, 1, 120, 1, 76, 200, 200, 621,&
357  &960,1025,1101,1176,1250,1067, 889, 711, 534, 356, 178, 1/)
358 zaerv(1963, 7, :) = (/&
359  &1, 1, 1, 1, 1, 1, 50, 140, 208, 320, 320, 608,&
360  &840, 975,1131,1288,1440,1229,1025, 820, 615, 410, 205, 1/)
361 zaerv(1963, 8, :) = (/&
362  &1, 1, 1, 1, 1, 1, 50, 280, 333, 420, 420, 608,&
363  &760, 946,1163,1379,1590,1357,1131, 905, 679, 452, 226, 1/)
364 zaerv(1963, 9, :) = (/&
365  &30, 30, 30, 1, 20, 20, 60, 200, 299, 460, 460, 698,&
366  &890,1072,1283,1495,1700,1451,1209, 968, 726, 484, 242, 1/)
367 zaerv(1963,10, :) = (/&
368  &90, 90, 90, 10, 90, 90, 120, 180, 271, 420, 420,1135,&
369  &1710,1714,1720,1725,1730,1524,1323,1123, 922, 721, 521, 320/)
370 zaerv(1963,11, :) = (/&
371  &160, 160, 160, 110, 150, 150, 210, 420, 352, 240, 240,1360,&
372  &2260,2116,1949,1782,1620,1560,1502,1443,1385,1327,1268,1210/)
373 zaerv(1963,12, :) = (/&
374  &220, 220, 220, 180, 210, 210, 330, 490, 364, 160, 160,1180,&
375  &2000,1823,1616,1410,1210,1264,1317,1369,1422,1475,1527,1580/)
376 zaerv(1964, 1, :) = (/&
377  &280, 280, 280, 230, 320, 320, 370, 460, 346, 160, 160, 753,&
378  &1230,1154,1065, 976, 890, 985,1078,1170,1263,1355,1448,1540/)
379 zaerv(1964, 2, :) = (/&
380  &340, 340, 340, 300, 390, 390, 350, 370, 317, 230, 230, 707,&
381  &1090,1029, 959, 888, 820, 911, 999,1087,1175,1264,1352,1440/)
382 zaerv(1964, 3, :) = (/&
383  &390, 390, 390, 360, 380, 380, 290, 240, 270, 320, 320, 808,&
384  &1200,1106, 996, 887, 780, 859, 936,1013,1089,1166,1243,1320/)
385 zaerv(1964, 4, :) = (/&
386  &430, 430, 430, 390, 310, 310, 190, 150, 245, 400, 400,1049,&
387  &1570,1379,1157, 936, 720, 792, 861, 931,1001,1071,1140,1210/)
388 zaerv(1964, 5, :) = (/&
389  &450, 450, 450, 270, 1, 1, 100, 90, 223, 440, 440,1188,&
390  &1790,1534,1237, 939, 650, 716, 780, 844, 908, 972,1036,1100/)
391 zaerv(1964, 6, :) = (/&
392  &430, 430, 430, 220, 1, 1, 30, 90, 231, 460, 460,1397,&
393  &2150,1827,1451,1075, 710, 752, 794, 835, 876, 917, 959,1000/)
394 zaerv(1964, 7, :) = (/&
395  &400, 400, 400, 250, 30, 30, 10, 170, 277, 450, 450,1697,&
396  &2700,2296,1826,1357, 900, 899, 897, 896, 894, 893, 891, 890/)
397 zaerv(1964, 8, :) = (/&
398  &320, 320, 320, 290, 90, 90, 10, 240, 308, 420, 420,1734,&
399  &2790,2363,1868,1372, 890, 875, 861, 847, 833, 818, 804, 790/)
400 zaerv(1964, 9, :) = (/&
401  &220, 220, 220, 360, 160, 160, 20, 320, 343, 380, 380,1455,&
402  &2320,1938,1495,1051, 620, 629, 637, 646, 654, 663, 671, 680/)
403 zaerv(1964,10, :) = (/&
404  &120, 120, 120, 330, 230, 230, 100, 430, 384, 310, 310,1053,&
405  &1650,1356,1014, 672, 340, 396, 450, 504, 558, 612, 666, 720/)
406 zaerv(1964,11, :) = (/&
407  &80, 80, 80, 260, 320, 320, 230, 520, 417, 250, 250, 727,&
408  &1110, 903, 663, 423, 190, 292, 392, 492, 591, 691, 790, 890/)
409 zaerv(1964,12, :) = (/&
410  &130, 130, 130, 250, 410, 410, 430, 530, 397, 180, 180, 457,&
411  &680, 561, 423, 284, 150, 273, 392, 512, 631, 751, 870, 990/)
412 zaerv(1965, 1, :) = (/&
413  &320, 320, 320, 290, 490, 490, 490, 490, 361, 150, 150, 167,&
414  &180, 178, 175, 173, 170, 288, 404, 519, 634, 749, 865, 980/)
415 zaerv(1965, 2, :) = (/&
416  &570, 570, 570, 430, 500, 500, 450, 420, 317, 150, 150, 67,&
417  &1, 49, 107, 164, 220, 314, 405, 496, 587, 678, 769, 860/)
418 zaerv(1965, 3, :) = (/&
419  &660, 660, 660, 640, 460, 460, 290, 390, 299, 150, 150, 67,&
420  &1, 56, 121, 187, 250, 316, 380, 444, 508, 572, 636, 700/)
421 zaerv(1965, 4, :) = (/&
422  &600, 600, 600, 660, 400, 400, 200, 330, 296, 240, 240, 107,&
423  &1, 72, 155, 239, 320, 351, 381, 410, 440, 470, 500, 530/)
424 zaerv(1965, 5, :) = (/&
425  &520, 520, 520, 630, 270, 270, 170, 190, 239, 320, 320, 143,&
426  &1, 90, 194, 299, 400, 400, 400, 400, 400, 400, 400, 400/)
427 zaerv(1965, 6, :) = (/&
428  &470, 470, 470, 550, 250, 250, 60, 20, 146, 350, 350, 156,&
429  &1, 90, 194, 299, 400, 380, 360, 340, 320, 300, 280, 260/)
430 zaerv(1965, 7, :) = (/&
431  &400, 400, 400, 490, 260, 260, 1, 170, 242, 360, 360, 388,&
432  &410, 379, 342, 306, 270, 255, 241, 227, 213, 198, 184, 170/)
433 zaerv(1965, 8, :) = (/&
434  &300, 300, 300, 420, 280, 280, 1, 210, 240, 290, 290, 440,&
435  &560, 459, 342, 224, 110, 113, 116, 119, 121, 124, 127, 130/)
436 zaerv(1965, 9, :) = (/&
437  &200, 200, 200, 340, 290, 290, 30, 240, 248, 260, 260, 399,&
438  &510, 411, 296, 182, 70, 80, 90, 100, 110, 120, 130, 140/)
439 zaerv(1965,10, :) = (/&
440  &100, 100, 100, 250, 290, 290, 220, 270, 262, 250, 250, 355,&
441  &440, 368, 285, 201, 120, 130, 140, 150, 160, 170, 180, 190/)
442 zaerv(1965,11, :) = (/&
443  &1, 1, 1, 180, 280, 280, 300, 290, 275, 250, 250, 305,&
444  &350, 339, 326, 313, 300, 287, 274, 261, 248, 236, 223, 210/)
445 zaerv(1965,12, :) = (/&
446  &1, 1, 1, 110, 270, 270, 350, 300, 296, 290, 290, 296,&
447  &300, 338, 383, 427, 470, 417, 366, 315, 264, 212, 161, 110/)
448 zaerv(1966, 1, :) = (/&
449  &335, 335, 335, 335, 335, 335, 335, 335, 335, 335, 335, 335,&
450  &335, 335, 335, 335, 335, 335, 335, 335, 335, 335, 335, 335/)
451 zaerv(1966, 2, :) = (/&
452  &320, 320, 320, 320, 320, 320, 320, 320, 320, 320, 320, 320,&
453  &320, 320, 320, 320, 320, 320, 320, 320, 320, 320, 320, 320/)
454 zaerv(1966, 3, :) = (/&
455  &305, 305, 305, 305, 305, 305, 305, 305, 305, 305, 305, 305,&
456  &305, 305, 305, 305, 305, 305, 305, 305, 305, 305, 305, 305/)
457 zaerv(1966, 4, :) = (/&
458  &290, 290, 290, 290, 290, 290, 290, 290, 290, 290, 290, 290,&
459  &290, 290, 290, 290, 290, 290, 290, 290, 290, 290, 290, 290/)
460 zaerv(1966, 5, :) = (/&
461  &275, 275, 275, 275, 275, 275, 275, 275, 275, 275, 275, 275,&
462  &275, 275, 275, 275, 275, 275, 275, 275, 275, 275, 275, 275/)
463 zaerv(1966, 6, :) = (/&
464  &260, 260, 260, 260, 260, 260, 260, 260, 260, 260, 260, 260,&
465  &260, 260, 260, 260, 260, 260, 260, 260, 260, 260, 260, 260/)
466 zaerv(1966, 7, :) = (/&
467  &245, 245, 245, 245, 245, 245, 245, 245, 245, 245, 245, 245,&
468  &245, 245, 245, 245, 245, 245, 245, 245, 245, 245, 245, 245/)
469 zaerv(1966, 8, :) = (/&
470  &230, 230, 230, 230, 230, 230, 230, 230, 230, 230, 230, 230,&
471  &230, 230, 230, 230, 230, 230, 230, 230, 230, 230, 230, 230/)
472 zaerv(1966, 9, :) = (/&
473  &215, 215, 215, 215, 215, 215, 215, 215, 215, 215, 215, 215,&
474  &215, 215, 215, 215, 215, 215, 215, 215, 215, 215, 215, 215/)
475 zaerv(1966,10, :) = (/&
476  &200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200,&
477  &200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200/)
478 zaerv(1966,11, :) = (/&
479  &185, 185, 185, 185, 185, 185, 185, 185, 185, 185, 185, 185,&
480  &185, 185, 185, 185, 185, 185, 185, 185, 185, 185, 185, 185/)
481 zaerv(1966,12, :) = (/&
482  &170, 170, 170, 170, 170, 170, 170, 170, 170, 170, 170, 170,&
483  &170, 170, 170, 170, 170, 170, 170, 170, 170, 170, 170, 170/)
484 zaerv(1967, 1, :) = (/&
485  &155, 155, 155, 155, 155, 155, 155, 155, 155, 155, 155, 155,&
486  &155, 155, 155, 155, 155, 155, 155, 155, 155, 155, 155, 155/)
487 zaerv(1967, 2, :) = (/&
488  &140, 140, 140, 140, 140, 140, 140, 140, 140, 140, 140, 140,&
489  &140, 140, 140, 140, 140, 140, 140, 140, 140, 140, 140, 140/)
490 zaerv(1967, 3, :) = (/&
491  &125, 125, 125, 125, 125, 125, 125, 125, 125, 125, 125, 125,&
492  &125, 125, 125, 125, 125, 125, 125, 125, 125, 125, 125, 125/)
493 zaerv(1967, 4, :) = (/&
494  &110, 110, 110, 110, 110, 110, 110, 110, 110, 110, 110, 110,&
495  &110, 110, 110, 110, 110, 110, 110, 110, 110, 110, 110, 110/)
496 zaerv(1967, 5, :) = (/&
497  &130, 130, 130, 130, 130, 130, 130, 130, 130, 130, 130, 130,&
498  &130, 130, 130, 130, 130, 130, 130, 130, 130, 130, 130, 130/)
499 zaerv(1967, 6, :) = (/&
500  &150, 150, 150, 150, 150, 150, 150, 150, 150, 150, 150, 150,&
501  &150, 150, 150, 150, 150, 150, 150, 150, 150, 150, 150, 150/)
502 zaerv(1967, 7, :) = (/&
503  &170, 170, 170, 170, 170, 170, 170, 170, 170, 170, 170, 170,&
504  &170, 170, 170, 170, 170, 170, 170, 170, 170, 170, 170, 170/)
505 zaerv(1967, 8, :) = (/&
506  &190, 190, 190, 190, 190, 190, 190, 190, 190, 190, 190, 190,&
507  &190, 190, 190, 190, 190, 190, 190, 190, 190, 190, 190, 190/)
508 zaerv(1967, 9, :) = (/&
509  &210, 210, 210, 210, 210, 210, 210, 210, 210, 210, 210, 210,&
510  &210, 210, 210, 210, 210, 210, 210, 210, 210, 210, 210, 210/)
511 zaerv(1967,10, :) = (/&
512  &230, 230, 230, 230, 230, 230, 230, 230, 230, 230, 230, 230,&
513  &230, 230, 230, 230, 230, 230, 230, 230, 230, 230, 230, 230/)
514 zaerv(1967,11, :) = (/&
515  &207, 207, 207, 207, 207, 207, 207, 207, 207, 207, 207, 207,&
516  &207, 207, 207, 207, 207, 207, 207, 207, 207, 207, 207, 207/)
517 zaerv(1967,12, :) = (/&
518  &183, 183, 183, 183, 183, 183, 183, 183, 183, 183, 183, 183,&
519  &183, 183, 183, 183, 183, 183, 183, 183, 183, 183, 183, 183/)
520 zaerv(1968, 1, :) = (/&
521  &160, 160, 160, 160, 160, 160, 160, 160, 160, 160, 160, 160,&
522  &160, 160, 160, 160, 160, 160, 160, 160, 160, 160, 160, 160/)
523 zaerv(1968, 2, :) = (/&
524  &137, 137, 137, 137, 137, 137, 137, 137, 137, 137, 137, 137,&
525  &137, 137, 137, 137, 137, 137, 137, 137, 137, 137, 137, 137/)
526 zaerv(1968, 3, :) = (/&
527  &113, 113, 113, 113, 113, 113, 113, 113, 113, 113, 113, 113,&
528  &113, 113, 113, 113, 113, 113, 113, 113, 113, 113, 113, 113/)
529 zaerv(1968, 4, :) = (/&
530  &90, 90, 90, 90, 90, 90, 90, 90, 90, 90, 90, 90,&
531  &90, 90, 90, 90, 90, 90, 90, 90, 90, 90, 90, 90/)
532 zaerv(1968, 5, :) = (/&
533  &170, 170, 170, 170, 170, 170, 170, 170, 170, 170, 170, 170,&
534  &170, 170, 170, 170, 170, 170, 170, 170, 170, 170, 170, 170/)
535 zaerv(1968, 6, :) = (/&
536  &250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250,&
537  &250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250, 250/)
538 zaerv(1968, 7, :) = (/&
539  &330, 330, 330, 330, 330, 330, 330, 330, 330, 330, 330, 330,&
540  &330, 330, 330, 330, 330, 330, 330, 330, 330, 330, 330, 330/)
541 zaerv(1968, 8, :) = (/&
542  &410, 410, 410, 410, 410, 410, 410, 410, 410, 410, 410, 410,&
543  &410, 410, 410, 410, 410, 410, 410, 410, 410, 410, 410, 410/)
544 zaerv(1968, 9, :) = (/&
545  &490, 490, 490, 490, 490, 490, 490, 490, 490, 490, 490, 490,&
546  &490, 490, 490, 490, 490, 490, 490, 490, 490, 490, 490, 490/)
547 zaerv(1968,10, :) = (/&
548  &570, 570, 570, 570, 570, 570, 570, 570, 570, 570, 570, 570,&
549  &570, 570, 570, 570, 570, 570, 570, 570, 570, 570, 570, 570/)
550 zaerv(1968,11, :) = (/&
551  &551, 551, 551, 551, 551, 551, 551, 551, 551, 551, 551, 551,&
552  &551, 551, 551, 551, 551, 551, 551, 551, 551, 551, 551, 551/)
553 zaerv(1968,12, :) = (/&
554  &533, 533, 533, 533, 533, 533, 533, 533, 533, 533, 533, 533,&
555  &533, 533, 533, 533, 533, 533, 533, 533, 533, 533, 533, 533/)
556 zaerv(1969, 1, :) = (/&
557  &514, 514, 514, 514, 514, 514, 514, 514, 514, 514, 514, 514,&
558  &514, 514, 514, 514, 514, 514, 514, 514, 514, 514, 514, 514/)
559 zaerv(1969, 2, :) = (/&
560  &496, 496, 496, 496, 496, 496, 496, 496, 496, 496, 496, 496,&
561  &496, 496, 496, 496, 496, 496, 496, 496, 496, 496, 496, 496/)
562 zaerv(1969, 3, :) = (/&
563  &477, 477, 477, 477, 477, 477, 477, 477, 477, 477, 477, 477,&
564  &477, 477, 477, 477, 477, 477, 477, 477, 477, 477, 477, 477/)
565 zaerv(1969, 4, :) = (/&
566  &459, 459, 459, 459, 459, 459, 459, 459, 459, 459, 459, 459,&
567  &459, 459, 459, 459, 459, 459, 459, 459, 459, 459, 459, 459/)
568 zaerv(1969, 5, :) = (/&
569  &440, 440, 440, 440, 440, 440, 440, 440, 440, 440, 440, 440,&
570  &440, 440, 440, 440, 440, 440, 440, 440, 440, 440, 440, 440/)
571 zaerv(1969, 6, :) = (/&
572  &421, 421, 421, 421, 421, 421, 421, 421, 421, 421, 421, 421,&
573  &421, 421, 421, 421, 421, 421, 421, 421, 421, 421, 421, 421/)
574 zaerv(1969, 7, :) = (/&
575  &403, 403, 403, 403, 403, 403, 403, 403, 403, 403, 403, 403,&
576  &403, 403, 403, 403, 403, 403, 403, 403, 403, 403, 403, 403/)
577 zaerv(1969, 8, :) = (/&
578  &384, 384, 384, 384, 384, 384, 384, 384, 384, 384, 384, 384,&
579  &384, 384, 384, 384, 384, 384, 384, 384, 384, 384, 384, 384/)
580 zaerv(1969, 9, :) = (/&
581  &366, 366, 366, 366, 366, 366, 366, 366, 366, 366, 366, 366,&
582  &366, 366, 366, 366, 366, 366, 366, 366, 366, 366, 366, 366/)
583 zaerv(1969,10, :) = (/&
584  &347, 347, 347, 347, 347, 347, 347, 347, 347, 347, 347, 347,&
585  &347, 347, 347, 347, 347, 347, 347, 347, 347, 347, 347, 347/)
586 zaerv(1969,11, :) = (/&
587  &329, 329, 329, 329, 329, 329, 329, 329, 329, 329, 329, 329,&
588  &329, 329, 329, 329, 329, 329, 329, 329, 329, 329, 329, 329/)
589 zaerv(1969,12, :) = (/&
590  &310, 310, 310, 310, 310, 310, 310, 310, 310, 310, 310, 310,&
591  &310, 310, 310, 310, 310, 310, 310, 310, 310, 310, 310, 310/)
592 zaerv(1970, 1, :) = (/&
593  &291, 291, 291, 291, 291, 291, 291, 291, 291, 291, 291, 291,&
594  &291, 291, 291, 291, 291, 291, 291, 291, 291, 291, 291, 291/)
595 zaerv(1970, 2, :) = (/&
596  &273, 273, 273, 273, 273, 273, 273, 273, 273, 273, 273, 273,&
597  &273, 273, 273, 273, 273, 273, 273, 273, 273, 273, 273, 273/)
598 zaerv(1970, 3, :) = (/&
599  &254, 254, 254, 254, 254, 254, 254, 254, 254, 254, 254, 254,&
600  &254, 254, 254, 254, 254, 254, 254, 254, 254, 254, 254, 254/)
601 zaerv(1970, 4, :) = (/&
602  &236, 236, 236, 236, 236, 236, 236, 236, 236, 236, 236, 236,&
603  &236, 236, 236, 236, 236, 236, 236, 236, 236, 236, 236, 236/)
604 zaerv(1970, 5, :) = (/&
605  &217, 217, 217, 217, 217, 217, 217, 217, 217, 217, 217, 217,&
606  &217, 217, 217, 217, 217, 217, 217, 217, 217, 217, 217, 217/)
607 zaerv(1970, 6, :) = (/&
608  &199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199,&
609  &199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199/)
610 zaerv(1970, 7, :) = (/&
611  &180, 180, 180, 180, 180, 180, 180, 180, 180, 180, 180, 180,&
612  &180, 180, 180, 180, 180, 180, 180, 180, 180, 180, 180, 180/)
613 zaerv(1970, 8, :) = (/&
614  &161, 161, 161, 161, 161, 161, 161, 161, 161, 161, 161, 161,&
615  &161, 161, 161, 161, 161, 161, 161, 161, 161, 161, 161, 161/)
616 zaerv(1970, 9, :) = (/&
617  &143, 143, 143, 143, 143, 143, 143, 143, 143, 143, 143, 143,&
618  &143, 143, 143, 143, 143, 143, 143, 143, 143, 143, 143, 143/)
619 zaerv(1970,10, :) = (/&
620  &124, 124, 124, 124, 124, 124, 124, 124, 124, 124, 124, 124,&
621  &124, 124, 124, 124, 124, 124, 124, 124, 124, 124, 124, 124/)
622 zaerv(1970,11, :) = (/&
623  &106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106,&
624  &106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106/)
625 zaerv(1970,12, :) = (/&
626  &87, 87, 87, 87, 87, 87, 87, 87, 87, 87, 87, 87,&
627  &87, 87, 87, 87, 87, 87, 87, 87, 87, 87, 87, 87/)
628 zaerv(1971, 1, :) = (/&
629  &69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69,&
630  &69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69/)
631 zaerv(1971, 2, :) = (/&
632  &50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50,&
633  &50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50/)
634 zaerv(1971, 3, :) = (/&
635  &42, 42, 42, 42, 42, 42, 42, 42, 42, 42, 42, 42,&
636  &42, 42, 42, 42, 42, 42, 42, 42, 42, 42, 42, 42/)
637 zaerv(1971, 4, :) = (/&
638  &33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33,&
639  &33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33/)
640 zaerv(1971, 5, :) = (/&
641  &25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25,&
642  &25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25/)
643 zaerv(1971, 6, :) = (/&
644  &17, 17, 17, 17, 17, 17, 17, 17, 17, 17, 17, 17,&
645  &17, 17, 17, 17, 17, 17, 17, 17, 17, 17, 17, 17/)
646 zaerv(1971, 7, :) = (/&
647  &8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8,&
648  &8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8/)
649 zaerv(1971, 8, :) = (/&
650  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,&
651  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1/)
652 zaerv(1971, 9, :) = (/&
653  &2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,&
654  &2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2/)
655 zaerv(1971,10, :) = (/&
656  &4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4,&
657  &4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4/)
658 zaerv(1971,11, :) = (/&
659  &6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6,&
660  &6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6/)
661 zaerv(1971,12, :) = (/&
662  &8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8,&
663  &8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8/)
664 zaerv(1972, 1, :) = (/&
665  &10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10,&
666  &10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10/)
667 zaerv(1972, 2, :) = (/&
668  &14, 14, 14, 14, 14, 14, 14, 14, 14, 14, 14, 14,&
669  &14, 14, 14, 14, 14, 14, 14, 14, 14, 14, 14, 14/)
670 zaerv(1972, 3, :) = (/&
671  &18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18,&
672  &18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18/)
673 zaerv(1972, 4, :) = (/&
674  &21, 21, 21, 21, 21, 21, 21, 21, 21, 21, 21, 21,&
675  &21, 21, 21, 21, 21, 21, 21, 21, 21, 21, 21, 21/)
676 zaerv(1972, 5, :) = (/&
677  &25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25,&
678  &25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25/)
679 zaerv(1972, 6, :) = (/&
680  &29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29,&
681  &29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29/)
682 zaerv(1972, 7, :) = (/&
683  &33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33,&
684  &33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33/)
685 zaerv(1972, 8, :) = (/&
686  &37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37,&
687  &37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37/)
688 zaerv(1972, 9, :) = (/&
689  &41, 41, 41, 41, 41, 41, 41, 41, 41, 41, 41, 41,&
690  &41, 41, 41, 41, 41, 41, 41, 41, 41, 41, 41, 41/)
691 zaerv(1972,10, :) = (/&
692  &44, 44, 44, 44, 44, 44, 44, 44, 44, 44, 44, 44,&
693  &44, 44, 44, 44, 44, 44, 44, 44, 44, 44, 44, 44/)
694 zaerv(1972,11, :) = (/&
695  &48, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48,&
696  &48, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48/)
697 zaerv(1972,12, :) = (/&
698  &52, 52, 52, 52, 52, 52, 52, 52, 52, 52, 52, 52,&
699  &52, 52, 52, 52, 52, 52, 52, 52, 52, 52, 52, 52/)
700 zaerv(1973, 1, :) = (/&
701  &56, 56, 56, 56, 56, 56, 56, 56, 56, 56, 56, 56,&
702  &56, 56, 56, 56, 56, 56, 56, 56, 56, 56, 56, 56/)
703 zaerv(1973, 2, :) = (/&
704  &60, 60, 60, 60, 60, 60, 60, 60, 60, 60, 60, 60,&
705  &60, 60, 60, 60, 60, 60, 60, 60, 60, 60, 60, 60/)
706 zaerv(1973, 3, :) = (/&
707  &64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64,&
708  &64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64/)
709 zaerv(1973, 4, :) = (/&
710  &67, 67, 67, 67, 67, 67, 67, 67, 67, 67, 67, 67,&
711  &67, 67, 67, 67, 67, 67, 67, 67, 67, 67, 67, 67/)
712 zaerv(1973, 5, :) = (/&
713  &71, 71, 71, 71, 71, 71, 71, 71, 71, 71, 71, 71,&
714  &71, 71, 71, 71, 71, 71, 71, 71, 71, 71, 71, 71/)
715 zaerv(1973, 6, :) = (/&
716  &75, 75, 75, 75, 75, 75, 75, 75, 75, 75, 75, 75,&
717  &75, 75, 75, 75, 75, 75, 75, 75, 75, 75, 75, 75/)
718 zaerv(1973, 7, :) = (/&
719  &79, 79, 79, 79, 79, 79, 79, 79, 79, 79, 79, 79,&
720  &79, 79, 79, 79, 79, 79, 79, 79, 79, 79, 79, 79/)
721 zaerv(1973, 8, :) = (/&
722  &83, 83, 83, 83, 83, 83, 83, 83, 83, 83, 83, 83,&
723  &83, 83, 83, 83, 83, 83, 83, 83, 83, 83, 83, 83/)
724 zaerv(1973, 9, :) = (/&
725  &86, 86, 86, 86, 86, 86, 86, 86, 86, 86, 86, 86,&
726  &86, 86, 86, 86, 86, 86, 86, 86, 86, 86, 86, 86/)
727 zaerv(1973,10, :) = (/&
728  &90, 90, 90, 90, 90, 90, 90, 90, 90, 90, 90, 90,&
729  &90, 90, 90, 90, 90, 90, 90, 90, 90, 90, 90, 90/)
730 zaerv(1973,11, :) = (/&
731  &94, 94, 94, 94, 94, 94, 94, 94, 94, 94, 94, 94,&
732  &94, 94, 94, 94, 94, 94, 94, 94, 94, 94, 94, 94/)
733 zaerv(1973,12, :) = (/&
734  &98, 98, 98, 98, 98, 98, 98, 98, 98, 98, 98, 98,&
735  &98, 98, 98, 98, 98, 98, 98, 98, 98, 98, 98, 98/)
736 zaerv(1974, 1, :) = (/&
737  &102, 102, 102, 102, 102, 102, 102, 102, 102, 102, 102, 102,&
738  &102, 102, 102, 102, 102, 102, 102, 102, 102, 102, 102, 102/)
739 zaerv(1974, 2, :) = (/&
740  &106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106,&
741  &106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106/)
742 zaerv(1974, 3, :) = (/&
743  &109, 109, 109, 109, 109, 109, 109, 109, 109, 109, 109, 109,&
744  &109, 109, 109, 109, 109, 109, 109, 109, 109, 109, 109, 109/)
745 zaerv(1974, 4, :) = (/&
746  &113, 113, 113, 113, 113, 113, 113, 113, 113, 113, 113, 113,&
747  &113, 113, 113, 113, 113, 113, 113, 113, 113, 113, 113, 113/)
748 zaerv(1974, 5, :) = (/&
749  &117, 117, 117, 117, 117, 117, 117, 117, 117, 117, 117, 117,&
750  &117, 117, 117, 117, 117, 117, 117, 117, 117, 117, 117, 117/)
751 zaerv(1974, 6, :) = (/&
752  &121, 121, 121, 121, 121, 121, 121, 121, 121, 121, 121, 121,&
753  &121, 121, 121, 121, 121, 121, 121, 121, 121, 121, 121, 121/)
754 zaerv(1974, 7, :) = (/&
755  &125, 125, 125, 125, 125, 125, 125, 125, 125, 125, 125, 125,&
756  &125, 125, 125, 125, 125, 125, 125, 125, 125, 125, 125, 125/)
757 zaerv(1974, 8, :) = (/&
758  &129, 129, 129, 129, 129, 129, 129, 129, 129, 129, 129, 129,&
759  &129, 129, 129, 129, 129, 129, 129, 129, 129, 129, 129, 129/)
760 zaerv(1974, 9, :) = (/&
761  &132, 132, 132, 132, 132, 132, 132, 132, 132, 132, 132, 132,&
762  &132, 132, 132, 132, 132, 132, 132, 132, 132, 132, 132, 132/)
763 zaerv(1974,10, :) = (/&
764  &136, 136, 136, 136, 136, 136, 136, 136, 136, 136, 136, 136,&
765  &136, 136, 136, 136, 136, 136, 136, 136, 136, 136, 136, 136/)
766 zaerv(1974,11, :) = (/&
767  &140, 140, 140, 140, 140, 140, 140, 140, 140, 140, 140, 140,&
768  &140, 140, 140, 140, 140, 140, 140, 140, 140, 140, 140, 140/)
769 zaerv(1974,12, :) = (/&
770  &183, 183, 183, 183, 183, 183, 183, 183, 183, 183, 183, 183,&
771  &183, 183, 183, 183, 183, 183, 183, 183, 183, 183, 183, 183/)
772 zaerv(1975, 1, :) = (/&
773  &227, 227, 227, 227, 227, 227, 227, 227, 227, 227, 227, 227,&
774  &227, 227, 227, 227, 227, 227, 227, 227, 227, 227, 227, 227/)
775 zaerv(1975, 2, :) = (/&
776  &270, 270, 270, 270, 270, 270, 270, 270, 270, 270, 270, 270,&
777  &270, 270, 270, 270, 270, 270, 270, 270, 270, 270, 270, 270/)
778 zaerv(1975, 3, :) = (/&
779  &313, 313, 313, 313, 313, 313, 313, 313, 313, 313, 313, 313,&
780  &313, 313, 313, 313, 313, 313, 313, 313, 313, 313, 313, 313/)
781 zaerv(1975, 4, :) = (/&
782  &357, 357, 357, 357, 357, 357, 357, 357, 357, 357, 357, 357,&
783  &357, 357, 357, 357, 357, 357, 357, 357, 357, 357, 357, 357/)
784 zaerv(1975, 5, :) = (/&
785  &400, 400, 400, 400, 400, 400, 400, 400, 400, 400, 400, 400,&
786  &400, 400, 400, 400, 400, 400, 400, 400, 400, 400, 400, 400/)
787 zaerv(1975, 6, :) = (/&
788  &337, 337, 337, 337, 337, 337, 337, 337, 337, 337, 337, 337,&
789  &337, 337, 337, 337, 337, 337, 337, 337, 337, 337, 337, 337/)
790 zaerv(1975, 7, :) = (/&
791  &273, 273, 273, 273, 273, 273, 273, 273, 273, 273, 273, 273,&
792  &273, 273, 273, 273, 273, 273, 273, 273, 273, 273, 273, 273/)
793 zaerv(1975, 8, :) = (/&
794  &210, 210, 210, 210, 210, 210, 210, 210, 210, 210, 210, 210,&
795  &210, 210, 210, 210, 210, 210, 210, 210, 210, 210, 210, 210/)
796 zaerv(1975, 9, :) = (/&
797  &147, 147, 147, 147, 147, 147, 147, 147, 147, 147, 147, 147,&
798  &147, 147, 147, 147, 147, 147, 147, 147, 147, 147, 147, 147/)
799 zaerv(1975,10, :) = (/&
800  &83, 83, 83, 83, 83, 83, 83, 83, 83, 83, 83, 83,&
801  &83, 83, 83, 83, 83, 83, 83, 83, 83, 83, 83, 83/)
802 zaerv(1975,11, :) = (/&
803  &20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20,&
804  &20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20/)
805 zaerv(1975,12, :) = (/&
806  &20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20,&
807  &20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20/)
808 zaerv(1976, 1, :) = (/&
809  &19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19,&
810  &19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19/)
811 zaerv(1976, 2, :) = (/&
812  &19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19,&
813  &19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19/)
814 zaerv(1976, 3, :) = (/&
815  &19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19,&
816  &19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19/)
817 zaerv(1976, 4, :) = (/&
818  &18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18,&
819  &18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18/)
820 zaerv(1976, 5, :) = (/&
821  &18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18,&
822  &18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18/)
823 zaerv(1976, 6, :) = (/&
824  &18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18,&
825  &18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18/)
826 zaerv(1976, 7, :) = (/&
827  &17, 17, 17, 17, 17, 17, 17, 17, 17, 17, 17, 17,&
828  &17, 17, 17, 17, 17, 17, 17, 17, 17, 17, 17, 17/)
829 zaerv(1976, 8, :) = (/&
830  &17, 17, 17, 17, 17, 17, 17, 17, 17, 17, 17, 17,&
831  &17, 17, 17, 17, 17, 17, 17, 17, 17, 17, 17, 17/)
832 zaerv(1976, 9, :) = (/&
833  &16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16,&
834  &16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16/)
835 zaerv(1976,10, :) = (/&
836  &16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16,&
837  &16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16/)
838 zaerv(1976,11, :) = (/&
839  &16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16,&
840  &16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16/)
841 zaerv(1976,12, :) = (/&
842  &15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15,&
843  &15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15/)
844 zaerv(1977, 1, :) = (/&
845  &15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15,&
846  &15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15/)
847 zaerv(1977, 2, :) = (/&
848  &15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15,&
849  &15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15/)
850 zaerv(1977, 3, :) = (/&
851  &14, 14, 14, 14, 14, 14, 14, 14, 14, 14, 14, 14,&
852  &14, 14, 14, 14, 14, 14, 14, 14, 14, 14, 14, 14/)
853 zaerv(1977, 4, :) = (/&
854  &14, 14, 14, 14, 14, 14, 14, 14, 14, 14, 14, 14,&
855  &14, 14, 14, 14, 14, 14, 14, 14, 14, 14, 14, 14/)
856 zaerv(1977, 5, :) = (/&
857  &14, 14, 14, 14, 14, 14, 14, 14, 14, 14, 14, 14,&
858  &14, 14, 14, 14, 14, 14, 14, 14, 14, 14, 14, 14/)
859 zaerv(1977, 6, :) = (/&
860  &13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13,&
861  &13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13/)
862 zaerv(1977, 7, :) = (/&
863  &13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13,&
864  &13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13/)
865 zaerv(1977, 8, :) = (/&
866  &13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13,&
867  &13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13/)
868 zaerv(1977, 9, :) = (/&
869  &12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12,&
870  &12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12/)
871 zaerv(1977,10, :) = (/&
872  &12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12,&
873  &12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12/)
874 zaerv(1977,11, :) = (/&
875  &11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11,&
876  &11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11/)
877 zaerv(1977,12, :) = (/&
878  &11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11,&
879  &11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11/)
880 zaerv(1978, 1, :) = (/&
881  &11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11,&
882  &11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11/)
883 zaerv(1978, 2, :) = (/&
884  &10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10,&
885  &10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10/)
886 zaerv(1978, 3, :) = (/&
887  &10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10,&
888  &10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10/)
889 zaerv(1978, 4, :) = (/&
890  &28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28,&
891  &28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28/)
892 zaerv(1978, 5, :) = (/&
893  &47, 47, 47, 47, 47, 47, 47, 47, 47, 47, 47, 47,&
894  &47, 47, 47, 47, 47, 47, 47, 47, 47, 47, 47, 47/)
895 zaerv(1978, 6, :) = (/&
896  &65, 65, 65, 65, 65, 65, 65, 65, 65, 65, 65, 65,&
897  &65, 65, 65, 65, 65, 65, 65, 65, 65, 65, 65, 65/)
898 zaerv(1978, 7, :) = (/&
899  &83, 83, 83, 83, 83, 83, 83, 83, 83, 83, 83, 83,&
900  &83, 83, 83, 83, 83, 83, 83, 83, 83, 83, 83, 83/)
901 zaerv(1978, 8, :) = (/&
902  &102, 102, 102, 102, 102, 102, 102, 102, 102, 102, 102, 102,&
903  &102, 102, 102, 102, 102, 102, 102, 102, 102, 102, 102, 102/)
904 zaerv(1978, 9, :) = (/&
905  &120, 120, 120, 120, 120, 120, 120, 120, 120, 120, 120, 120,&
906  &120, 120, 120, 120, 120, 120, 120, 120, 120, 120, 120, 120/)
907 zaerv(1978,10, :) = (/&
908  &122, 122, 122, 122, 122, 122, 122, 122, 122, 122, 122, 122,&
909  &122, 122, 122, 122, 122, 122, 122, 122, 122, 122, 122, 122/)
910 zaerv(1978,11, :) = (/&
911  &123, 123, 123, 123, 123, 123, 123, 123, 123, 123, 123, 123,&
912  &123, 123, 123, 123, 123, 123, 123, 123, 123, 123, 123, 123/)
913 zaerv(1978,12, :) = (/&
914  &125, 125, 125, 125, 125, 125, 125, 125, 125, 125, 125, 125,&
915  &125, 125, 125, 125, 125, 125, 125, 125, 125, 125, 125, 125/)
916 zaerv(1979, 1, :) = (/&
917  &127, 127, 127, 127, 127, 127, 127, 127, 127, 127, 127, 127,&
918  &127, 127, 127, 127, 127, 127, 127, 127, 127, 127, 127, 127/)
919 zaerv(1979, 2, :) = (/&
920  &128, 128, 128, 128, 128, 128, 128, 128, 128, 128, 128, 128,&
921  &128, 128, 128, 128, 128, 128, 128, 128, 128, 128, 128, 128/)
922 zaerv(1979, 3, :) = (/&
923  &27, 27, 27, 27, 27, 27, 27, 27, 27, 27, 27, 27,&
924  &22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22/)
925 zaerv(1979, 4, :) = (/&
926  &25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25,&
927  &23, 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, 23/)
928 zaerv(1979, 5, :) = (/&
929  &25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25,&
930  &24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24/)
931 zaerv(1979, 6, :) = (/&
932  &23, 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, 23,&
933  &24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24/)
934 zaerv(1979, 7, :) = (/&
935  &22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22,&
936  &26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26/)
937 zaerv(1979, 8, :) = (/&
938  &22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22,&
939  &27, 27, 27, 27, 27, 27, 27, 27, 27, 27, 27, 27/)
940 zaerv(1979, 9, :) = (/&
941  &23, 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, 23,&
942  &29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29/)
943 zaerv(1979,10, :) = (/&
944  &24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24,&
945  &26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26/)
946 zaerv(1979,11, :) = (/&
947  &25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25,&
948  &25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25/)
949 zaerv(1979,12, :) = (/&
950  &30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30,&
951  &25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25/)
952 zaerv(1980, 1, :) = (/&
953  &33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33,&
954  &27, 27, 27, 27, 27, 27, 27, 27, 27, 27, 27, 27/)
955 zaerv(1980, 2, :) = (/&
956  &22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22,&
957  &29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29/)
958 zaerv(1980, 3, :) = (/&
959  &34, 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, 34,&
960  &29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29/)
961 zaerv(1980, 4, :) = (/&
962  &31, 31, 31, 31, 31, 31, 31, 31, 31, 31, 31, 31,&
963  &29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29/)
964 zaerv(1980, 5, :) = (/&
965  &30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30,&
966  &30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30/)
967 zaerv(1980, 6, :) = (/&
968  &42, 42, 42, 42, 42, 42, 42, 42, 42, 42, 42, 42,&
969  &31, 31, 31, 31, 31, 31, 31, 31, 31, 31, 31, 31/)
970 zaerv(1980, 7, :) = (/&
971  &55, 55, 55, 55, 55, 55, 55, 55, 55, 55, 55, 55,&
972  &31, 31, 31, 31, 31, 31, 31, 31, 31, 31, 31, 31/)
973 zaerv(1980, 8, :) = (/&
974  &65, 65, 65, 65, 65, 65, 65, 65, 65, 65, 65, 65,&
975  &31, 31, 31, 31, 31, 31, 31, 31, 31, 31, 31, 31/)
976 zaerv(1980, 9, :) = (/&
977  &68, 68, 68, 68, 68, 68, 68, 68, 68, 68, 68, 68,&
978  &32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32/)
979 zaerv(1980,10, :) = (/&
980  &68, 68, 68, 68, 68, 68, 68, 68, 68, 68, 68, 68,&
981  &34, 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, 34/)
982 zaerv(1980,11, :) = (/&
983  &65, 65, 65, 65, 65, 65, 65, 65, 65, 65, 65, 65,&
984  &41, 41, 41, 41, 41, 41, 41, 41, 41, 41, 41, 41/)
985 zaerv(1980,12, :) = (/&
986  &61, 61, 61, 61, 61, 61, 61, 61, 61, 61, 61, 61,&
987  &41, 41, 41, 41, 41, 41, 41, 41, 41, 41, 41, 41/)
988 zaerv(1981, 1, :) = (/&
989  &59, 59, 59, 59, 59, 59, 59, 59, 59, 59, 59, 59,&
990  &42, 42, 42, 42, 42, 42, 42, 42, 42, 42, 42, 42/)
991 zaerv(1981, 2, :) = (/&
992  &55, 55, 55, 55, 55, 55, 55, 55, 55, 55, 55, 55,&
993  &42, 42, 42, 42, 42, 42, 42, 42, 42, 42, 42, 42/)
994 zaerv(1981, 3, :) = (/&
995  &49, 49, 49, 49, 49, 49, 49, 49, 49, 49, 49, 49,&
996  &42, 42, 42, 42, 42, 42, 42, 42, 42, 42, 42, 42/)
997 zaerv(1981, 4, :) = (/&
998  &42, 42, 42, 42, 42, 42, 42, 42, 42, 42, 42, 42,&
999  &42, 42, 42, 42, 42, 42, 42, 42, 42, 42, 42, 42/)
1000 zaerv(1981, 5, :) = (/&
1001  &42, 42, 42, 42, 42, 42, 42, 42, 42, 42, 42, 42,&
1002  &42, 42, 42, 42, 42, 42, 42, 42, 42, 42, 42, 42/)
1003 zaerv(1981, 6, :) = (/&
1004  &52, 52, 52, 52, 52, 52, 52, 52, 52, 52, 52, 52,&
1005  &44, 44, 44, 44, 44, 44, 44, 44, 44, 44, 44, 44/)
1006 zaerv(1981, 7, :) = (/&
1007  &61, 61, 61, 61, 61, 61, 61, 61, 61, 61, 61, 61,&
1008  &48, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48/)
1009 zaerv(1981, 8, :) = (/&
1010  &57, 57, 57, 57, 57, 57, 57, 57, 57, 57, 57, 57,&
1011  &51, 51, 51, 51, 51, 51, 51, 51, 51, 51, 51, 51/)
1012 zaerv(1981, 9, :) = (/&
1013  &53, 53, 53, 53, 53, 53, 53, 53, 53, 53, 53, 53,&
1014  &48, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48/)
1015 zaerv(1981,10, :) = (/&
1016  &54, 54, 54, 54, 54, 54, 54, 54, 54, 54, 54, 54,&
1017  &46, 46, 46, 46, 46, 46, 46, 46, 46, 46, 46, 46/)
1018 zaerv(1981,11, :) = (/&
1019  &55, 55, 55, 55, 55, 55, 55, 55, 55, 55, 55, 55,&
1020  &46, 46, 46, 46, 46, 46, 46, 46, 46, 46, 46, 46/)
1021 zaerv(1981,12, :) = (/&
1022  &55, 55, 55, 55, 55, 55, 55, 55, 55, 55, 55, 55,&
1023  &46, 46, 46, 46, 46, 46, 46, 46, 46, 46, 46, 46/)
1024 zaerv(1982, 1, :) = (/&
1025  &61, 61, 61, 61, 61, 61, 61, 61, 61, 61, 61, 61,&
1026  &51, 51, 51, 51, 51, 51, 51, 51, 51, 51, 51, 51/)
1027 zaerv(1982, 2, :) = (/&
1028  &61, 61, 61, 61, 61, 61, 61, 61, 61, 61, 61, 61,&
1029  &51, 51, 51, 51, 51, 51, 51, 51, 51, 51, 51, 51/)
1030 zaerv(1982, 3, :) = (/&
1031  &61, 61, 61, 61, 61, 61, 61, 61, 61, 61, 61, 61,&
1032  &51, 51, 51, 51, 51, 51, 51, 51, 51, 51, 51, 51/)
1033 zaerv(1982, 4, :) = (/&
1034  &101, 101, 101, 101, 101, 23, 20, 13, 123,2823, 124, 8,&
1035  &6, 6, 4, 3, 2, 2, 1, 66, 66, 66, 66, 66/)
1036 zaerv(1982, 5, :) = (/&
1037  &185, 185, 185, 185, 185, 224, 194, 146,1158,3001,1271, 102,&
1038  &77, 58, 44, 35, 29, 23, 17, 55, 55, 55, 55, 55/)
1039 zaerv(1982, 6, :) = (/&
1040  &253, 253, 253, 253, 253, 274, 238, 279,1266,2642,1938, 443,&
1041  &267, 163, 99, 78, 73, 68, 62, 66, 66, 66, 66, 66/)
1042 zaerv(1982, 7, :) = (/&
1043  &284, 284, 284, 284, 284, 299, 263, 437,1184,2470,2386,1285,&
1044  &664, 354, 187, 144, 151, 160, 163, 96, 96, 96, 96, 96/)
1045 zaerv(1982, 8, :) = (/&
1046  &347, 347, 347, 347, 347, 377, 352, 504,1242,2180,2270,1575,&
1047  &829, 468, 260, 197, 209, 227, 221, 143, 143, 143, 143, 143/)
1048 zaerv(1982, 9, :) = (/&
1049  &387, 387, 387, 387, 387, 487, 485, 557,1319,1916,2074,1719,&
1050  &938, 578, 345, 256, 273, 301, 275, 96, 96, 96, 96, 96/)
1051 zaerv(1982,10, :) = (/&
1052  &476, 476, 476, 476, 476, 630, 670, 618,1400,1681,1895,1873,&
1053  &1060, 715, 459, 337, 359, 402, 342, 46, 46, 46, 46, 46/)
1054 zaerv(1982,11, :) = (/&
1055  &689, 689, 689, 689, 689, 882, 900, 773,1218,1404,1738,1834,&
1056  &1188, 826, 531, 343, 402, 473, 430, 195, 195, 195, 195, 195/)
1057 zaerv(1982,12, :) = (/&
1058  &1085,1085,1085,1085,1085,1240,1126,1016, 890,1134,1575,1601,&
1059  &1255, 865, 532, 287, 397, 497, 526, 461, 461, 461, 461, 461/)
1060 zaerv(1983, 1, :) = (/&
1061  &1214,1214,1214,1214,1214,1300,1143,1018, 803,1015,1364,1344,&
1062  &1053, 755, 494, 310, 449, 519, 545, 549, 549, 549, 549, 549/)
1063 zaerv(1983, 2, :) = (/&
1064  &1377,1377,1377,1377,1377,1315,1132, 976, 747, 923,1176,1126,&
1065  &853, 647, 452, 352, 514, 534, 545, 575, 575, 575, 575, 575/)
1066 zaerv(1983, 3, :) = (/&
1067  &2013,2013,2013,2013,2013,1341,1128, 932, 688, 832,1010, 941,&
1068  &693, 558, 413, 400, 589, 545, 540, 487, 487, 487, 487, 487/)
1069 zaerv(1983, 4, :) = (/&
1070  &1681,1681,1681,1681,1681,1365,1124, 892, 636, 749, 864, 780,&
1071  &558, 476, 372, 458, 675, 553, 536, 410, 410, 410, 410, 410/)
1072 zaerv(1983, 5, :) = (/&
1073  &1460,1460,1460,1460,1460,1359,1093, 846, 590, 678, 746, 656,&
1074  &457, 409, 337, 502, 740, 552, 526, 331, 331, 331, 331, 331/)
1075 zaerv(1983, 6, :) = (/&
1076  &1572,1572,1572,1572,1572,1200, 943, 748, 542, 620, 674, 598,&
1077  &419, 367, 296, 447, 644, 491, 485, 279, 279, 279, 279, 279/)
1078 zaerv(1983, 7, :) = (/&
1079  &1294,1294,1294,1294,1294,1035, 793, 652, 498, 568, 615, 554,&
1080  &389, 333, 261, 381, 536, 428, 440, 290, 290, 290, 290, 290/)
1081 zaerv(1983, 8, :) = (/&
1082  &1038,1038,1038,1038,1038, 890, 663, 569, 459, 518, 560, 513,&
1083  &365, 301, 229, 327, 444, 372, 402, 329, 329, 329, 329, 329/)
1084 zaerv(1983, 9, :) = (/&
1085  &1012,1012,1012,1012,1012, 768, 558, 496, 420, 473, 510, 475,&
1086  &341, 273, 200, 279, 371, 323, 366, 188, 188, 188, 188, 188/)
1087 zaerv(1983,10, :) = (/&
1088  &818, 818, 818, 818, 818, 662, 468, 433, 385, 432, 465, 440,&
1089  &319, 246, 176, 238, 308, 282, 333, 122, 122, 122, 122, 122/)
1090 zaerv(1983,11, :) = (/&
1091  &667, 667, 667, 667, 667, 571, 393, 378, 354, 396, 424, 407,&
1092  &296, 223, 154, 204, 256, 245, 303, 186, 186, 186, 186, 186/)
1093 zaerv(1983,12, :) = (/&
1094  &567, 567, 567, 567, 567, 492, 330, 330, 326, 362, 386, 377,&
1095  &277, 204, 135, 174, 213, 213, 275, 294, 294, 294, 294, 294/)
1096 zaerv(1984, 1, :) = (/&
1097  &540, 540, 540, 540, 540, 424, 276, 287, 297, 329, 351, 349,&
1098  &259, 183, 119, 147, 177, 185, 251, 310, 310, 310, 310, 310/)
1099 zaerv(1984, 2, :) = (/&
1100  &503, 503, 503, 503, 503, 375, 242, 256, 268, 298, 318, 318,&
1101  &237, 165, 106, 131, 155, 165, 227, 293, 293, 293, 293, 293/)
1102 zaerv(1984, 3, :) = (/&
1103  &385, 385, 385, 385, 385, 338, 218, 230, 243, 268, 286, 286,&
1104  &212, 147, 96, 118, 140, 149, 205, 263, 263, 263, 263, 263/)
1105 zaerv(1984, 4, :) = (/&
1106  &433, 433, 433, 433, 433, 303, 197, 207, 217, 242, 257, 257,&
1107  &191, 133, 86, 107, 125, 133, 184, 246, 246, 246, 246, 246/)
1108 zaerv(1984, 5, :) = (/&
1109  &388, 388, 388, 388, 388, 273, 177, 186, 196, 217, 231, 231,&
1110  &173, 120, 77, 95, 112, 119, 165, 217, 217, 217, 217, 217/)
1111 zaerv(1984, 6, :) = (/&
1112  &321, 321, 321, 321, 321, 244, 158, 167, 176, 196, 208, 208,&
1113  &154, 108, 69, 85, 101, 107, 147, 249, 249, 249, 249, 249/)
1114 zaerv(1984, 7, :) = (/&
1115  &284, 284, 284, 284, 284, 220, 142, 150, 157, 175, 187, 187,&
1116  &140, 98, 62, 76, 90, 96, 133, 276, 276, 276, 276, 276/)
1117 zaerv(1984, 8, :) = (/&
1118  &274, 274, 274, 274, 274, 197, 127, 134, 142, 157, 167, 167,&
1119  &124, 86, 56, 67, 81, 86, 119, 227, 227, 227, 227, 227/)
1120 zaerv(1984, 9, :) = (/&
1121  &264, 264, 264, 264, 264, 177, 114, 121, 127, 141, 151, 151,&
1122  &112, 78, 51, 61, 73, 77, 107, 114, 114, 114, 114, 114/)
1123 zaerv(1984,10, :) = (/&
1124  &256, 256, 256, 256, 256, 158, 102, 109, 114, 127, 135, 135,&
1125  &101, 70, 44, 55, 66, 69, 95, 84, 84, 84, 84, 84/)
1126 zaerv(1984,11, :) = (/&
1127  &249, 249, 249, 249, 249, 142, 92, 98, 102, 114, 122, 122,&
1128  &90, 63, 40, 50, 59, 62, 86, 139, 139, 139, 139, 139/)
1129 zaerv(1984,12, :) = (/&
1130  &241, 241, 241, 241, 241, 128, 83, 88, 92, 102, 110, 110,&
1131  &81, 56, 35, 44, 53, 55, 77, 199, 199, 199, 199, 199/)
1132 zaerv(1985, 1, :) = (/&
1133  &229, 229, 229, 229, 229, 256, 251, 186, 134, 120, 133, 134,&
1134  &140, 145, 128, 104, 112, 145, 182, 213, 213, 213, 213, 213/)
1135 zaerv(1985, 2, :) = (/&
1136  &237, 237, 237, 237, 237, 268, 262, 178, 127, 115, 119, 117,&
1137  &125, 127, 102, 107, 111, 133, 212, 213, 211, 213, 215, 215/)
1138 zaerv(1985, 3, :) = (/&
1139  &222, 222, 222, 222, 223, 220, 202, 122, 88, 90, 103, 115,&
1140  &116, 116, 112, 109, 110, 121, 157, 208, 205, 202, 202, 202/)
1141 zaerv(1985, 4, :) = (/&
1142  &234, 234, 234, 240, 238, 191, 155, 115, 93, 92, 97, 117,&
1143  &123, 115, 105, 107, 111, 134, 165, 192, 192, 192, 192, 192/)
1144 zaerv(1985, 5, :) = (/&
1145  &210, 210, 210, 210, 210, 155, 138, 108, 88, 84, 98, 109,&
1146  &112, 105, 96, 100, 115, 149, 161, 176, 176, 176, 176, 176/)
1147 zaerv(1985, 6, :) = (/&
1148  &172, 172, 172, 172, 173, 151, 118, 94, 83, 86, 103, 112,&
1149  &116, 105, 92, 95, 121, 171, 178, 182, 182, 182, 182, 182/)
1150 zaerv(1985, 7, :) = (/&
1151  &150, 150, 150, 150, 150, 122, 98, 79, 79, 88, 109, 115,&
1152  &122, 98, 79, 86, 120, 161, 176, 205, 205, 205, 205, 205/)
1153 zaerv(1985, 8, :) = (/&
1154  &152, 152, 152, 152, 152, 119, 97, 82, 78, 86, 103, 113,&
1155  &118, 93, 73, 78, 107, 144, 165, 191, 191, 191, 191, 191/)
1156 zaerv(1985, 9, :) = (/&
1157  &155, 155, 155, 155, 156, 116, 96, 86, 77, 84, 97, 110,&
1158  &115, 88, 67, 69, 93, 127, 154, 85, 89, 89, 89, 89/)
1159 zaerv(1985,10, :) = (/&
1160  &157, 157, 157, 157, 157, 125, 97, 77, 76, 84, 93, 107,&
1161  &108, 86, 73, 80, 105, 126, 130, 75, 76, 73, 73, 73/)
1162 zaerv(1985,11, :) = (/&
1163  &146, 146, 146, 146, 146, 133, 111, 83, 77, 78, 94, 105,&
1164  &104, 81, 70, 63, 76, 107, 132, 87, 85, 85, 85, 85/)
1165 zaerv(1985,12, :) = (/&
1166  &150, 150, 150, 150, 150, 151, 134, 102, 77, 79, 139, 254,&
1167  &188, 98, 71, 62, 71, 93, 113, 116, 116, 116, 116, 116/)
1168 zaerv(1986, 1, :) = (/&
1169  &178, 178, 178, 178, 178, 168, 157, 121, 76, 80, 185, 404,&
1170  &271, 116, 71, 60, 66, 79, 94, 120, 120, 120, 120, 120/)
1171 zaerv(1986, 2, :) = (/&
1172  &224, 224, 224, 224, 224, 184, 182, 138, 104, 111, 239, 389,&
1173  &284, 115, 32, 64, 67, 83, 98, 114, 114, 115, 118, 118/)
1174 zaerv(1986, 3, :) = (/&
1175  &152, 152, 152, 152, 150, 160, 140, 86, 81, 94, 197, 364,&
1176  &290, 140, 81, 67, 67, 86, 97, 121, 118, 117, 117, 117/)
1177 zaerv(1986, 4, :) = (/&
1178  &173, 173, 173, 181, 179, 149, 140, 110, 94, 120, 178, 354,&
1179  &273, 138, 81, 68, 69, 89, 107, 116, 116, 116, 116, 116/)
1180 zaerv(1986, 5, :) = (/&
1181  &172, 172, 172, 172, 176, 130, 113, 94, 91, 110, 186, 301,&
1182  &271, 136, 79, 67, 76, 96, 117, 116, 116, 116, 116, 116/)
1183 zaerv(1986, 6, :) = (/&
1184  &149, 149, 149, 149, 150, 130, 99, 79, 76, 96, 163, 251,&
1185  &240, 125, 70, 71, 92, 119, 131, 126, 126, 126, 126, 126/)
1186 zaerv(1986, 7, :) = (/&
1187  &135, 135, 135, 135, 135, 116, 85, 63, 62, 83, 140, 202,&
1188  &208, 138, 87, 78, 107, 122, 134, 201, 201, 201, 201, 201/)
1189 zaerv(1986, 8, :) = (/&
1190  &141, 141, 141, 140, 139, 101, 64, 71, 78, 95, 117, 188,&
1191  &194, 145, 110, 86, 122, 144, 150, 303, 303, 303, 303, 303/)
1192 zaerv(1986, 9, :) = (/&
1193  &149, 149, 149, 151, 151, 112, 94, 80, 93, 109, 144, 181,&
1194  &178, 155, 79, 70, 104, 129, 140, 139, 144, 144, 144, 144/)
1195 zaerv(1986,10, :) = (/&
1196  &148, 148, 148, 148, 148, 118, 100, 82, 87, 114, 169, 207,&
1197  &186, 153, 105, 86, 100, 136, 138, 59, 63, 62, 62, 62/)
1198 zaerv(1986,11, :) = (/&
1199  &144, 144, 144, 144, 144, 141, 118, 97, 84, 113, 159, 184,&
1200  &181, 151, 95, 73, 85, 97, 111, 92, 94, 94, 94, 94/)
1201 zaerv(1986,12, :) = (/&
1202  &161, 161, 161, 161, 161, 152, 136, 107, 87, 106, 150, 162,&
1203  &160, 135, 85, 51, 60, 86, 105, 119, 120, 120, 120, 120/)
1204 zaerv(1987, 1, :) = (/&
1205  &247, 247, 247, 247, 247, 159, 105, 113, 91, 112, 136, 141,&
1206  &138, 119, 74, 28, 35, 76, 93, 118, 118, 118, 118, 118/)
1207 zaerv(1987, 2, :) = (/&
1208  &187, 187, 187, 187, 187, 157, 155, 119, 104, 104, 119, 121,&
1209  &116, 82, 76, 49, 51, 77, 101, 112, 110, 113, 112, 112/)
1210 zaerv(1987, 3, :) = (/&
1211  &176, 176, 176, 176, 176, 162, 145, 98, 83, 87, 110, 113,&
1212  &108, 100, 77, 69, 68, 78, 82, 128, 128, 128, 128, 128/)
1213 zaerv(1987, 4, :) = (/&
1214  &164, 164, 164, 167, 170, 135, 124, 104, 86, 89, 96, 105,&
1215  &105, 97, 76, 70, 69, 83, 93, 115, 115, 115, 115, 115/)
1216 zaerv(1987, 5, :) = (/&
1217  &158, 158, 158, 158, 152, 148, 118, 100, 92, 90, 102, 95,&
1218  &95, 91, 80, 65, 73, 82, 93, 105, 105, 105, 105, 105/)
1219 zaerv(1987, 6, :) = (/&
1220  &151, 151, 151, 151, 153, 119, 104, 90, 85, 86, 95, 91,&
1221  &89, 87, 91, 83, 95, 115, 115, 142, 142, 142, 142, 142/)
1222 zaerv(1987, 7, :) = (/&
1223  &124, 124, 124, 124, 126, 108, 89, 80, 79, 82, 90, 86,&
1224  &83, 87, 83, 88, 102, 114, 118, 230, 230, 230, 230, 230/)
1225 zaerv(1987, 8, :) = (/&
1226  &132, 132, 129, 129, 130, 102, 91, 81, 80, 83, 80, 85,&
1227  &87, 84, 85, 86, 109, 125, 119, 230, 230, 230, 230, 230/)
1228 zaerv(1987, 9, :) = (/&
1229  &149, 149, 149, 149, 149, 110, 93, 82, 82, 83, 82, 88,&
1230  &85, 79, 71, 80, 100, 121, 114, 180, 179, 179, 179, 179/)
1231 zaerv(1987,10, :) = (/&
1232  &140, 140, 140, 140, 140, 119, 99, 81, 82, 76, 77, 86,&
1233  &86, 73, 68, 72, 102, 122, 120, 86, 91, 82, 82, 82/)
1234 zaerv(1987,11, :) = (/&
1235  &144, 144, 144, 144, 144, 125, 111, 83, 70, 67, 74, 83,&
1236  &83, 68, 66, 74, 89, 104, 109, 70, 73, 73, 73, 73/)
1237 zaerv(1987,12, :) = (/&
1238  &139, 139, 139, 139, 139, 125, 115, 82, 63, 59, 68, 82,&
1239  &79, 72, 63, 65, 76, 102, 99, 110, 114, 114, 114, 114/)
1240 zaerv(1988, 1, :) = (/&
1241  &139, 139, 139, 139, 139, 136, 113, 80, 54, 57, 67, 80,&
1242  &75, 75, 61, 56, 63, 74, 87, 114, 115, 115, 115, 115/)
1243 zaerv(1988, 2, :) = (/&
1244  &177, 177, 177, 177, 177, 135, 123, 88, 52, 47, 66, 76,&
1245  &73, 64, 63, 60, 64, 72, 81, 113, 111, 112, 112, 112/)
1246 zaerv(1988, 3, :) = (/&
1247  &127, 127, 127, 127, 126, 112, 94, 66, 45, 41, 57, 74,&
1248  &73, 68, 64, 63, 66, 71, 75, 113, 113, 113, 113, 113/)
1249 zaerv(1988, 4, :) = (/&
1250  &122, 122, 122, 124, 129, 91, 82, 61, 42, 44, 58, 66,&
1251  &68, 54, 60, 58, 62, 73, 88, 108, 108, 108, 108, 108/)
1252 zaerv(1988, 5, :) = (/&
1253  &103, 103, 103, 103, 102, 84, 74, 54, 41, 44, 55, 66,&
1254  &67, 63, 57, 56, 67, 82, 94, 97, 97, 97, 97, 97/)
1255 zaerv(1988, 6, :) = (/&
1256  &81, 81, 81, 81, 83, 70, 49, 46, 40, 44, 56, 65,&
1257  &67, 70, 61, 67, 79, 96, 101, 110, 110, 110, 110, 110/)
1258 zaerv(1988, 7, :) = (/&
1259  &68, 68, 68, 68, 69, 54, 46, 39, 40, 43, 57, 64,&
1260  &67, 65, 58, 58, 79, 98, 104, 243, 243, 243, 243, 243/)
1261 zaerv(1988, 8, :) = (/&
1262  &77, 77, 74, 72, 73, 62, 50, 42, 41, 45, 53, 65,&
1263  &68, 66, 58, 65, 90, 118, 113, 378, 378, 378, 378, 378/)
1264 zaerv(1988, 9, :) = (/&
1265  &94, 94, 94, 94, 96, 65, 54, 45, 43, 47, 57, 66,&
1266  &70, 61, 51, 56, 79, 94, 104, 95, 95, 95, 95, 95/)
1267 zaerv(1988,10, :) = (/&
1268  &90, 90, 90, 90, 90, 67, 59, 45, 41, 44, 53, 60,&
1269  &63, 62, 56, 57, 73, 100, 105, 67, 63, 62, 62, 62/)
1270 zaerv(1988,11, :) = (/&
1271  &88, 88, 88, 88, 88, 76, 67, 50, 43, 45, 53, 59,&
1272  &63, 63, 56, 54, 65, 80, 91, 100, 100, 100, 100, 100/)
1273 zaerv(1988,12, :) = (/&
1274  &84, 84, 84, 84, 84, 82, 79, 57, 46, 49, 50, 60,&
1275  &60, 65, 54, 51, 59, 70, 86, 114, 112, 112, 112, 112/)
1276 zaerv(1989, 1, :) = (/&
1277  &160, 160, 160, 160, 160, 88, 77, 57, 41, 44, 49, 61,&
1278  &58, 67, 51, 49, 53, 63, 76, 100, 100, 100, 100, 100/)
1279 zaerv(1989, 2, :) = (/&
1280  &83, 83, 83, 83, 83, 91, 83, 61, 43, 42, 49, 53,&
1281  &54, 46, 51, 51, 54, 63, 76, 98, 96, 96, 94, 94/)
1282 zaerv(1989, 3, :) = (/&
1283  &74, 74, 74, 73, 76, 73, 63, 53, 37, 40, 47, 55,&
1284  &60, 57, 52, 53, 55, 64, 75, 100, 98, 95, 95, 95/)
1285 zaerv(1989, 4, :) = (/&
1286  &79, 79, 79, 81, 82, 72, 67, 49, 44, 42, 46, 51,&
1287  &54, 51, 48, 47, 49, 61, 71, 93, 93, 93, 93, 93/)
1288 zaerv(1989, 5, :) = (/&
1289  &67, 67, 67, 67, 66, 61, 57, 42, 38, 37, 44, 49,&
1290  &2, 12, 1, 22, 49, 68, 79, 102, 102, 102, 102, 102/)
1291 zaerv(1989, 6, :) = (/&
1292  &80, 80, 80, 80, 81, 56, 48, 38, 36, 37, 43, 46,&
1293  &24, 55, 51, 49, 63, 76, 79, 97, 97, 97, 97, 97/)
1294 zaerv(1989, 7, :) = (/&
1295  &80, 80, 80, 80, 78, 43, 40, 34, 34, 37, 43, 44,&
1296  &46, 50, 49, 52, 65, 80, 86, 203, 203, 203, 203, 203/)
1297 zaerv(1989, 8, :) = (/&
1298  &69, 69, 67, 65, 65, 42, 42, 36, 38, 42, 37, 40,&
1299  &47, 50, 52, 57, 73, 89, 90, 369, 369, 369, 369, 369/)
1300 zaerv(1989, 9, :) = (/&
1301  &71, 71, 71, 71, 71, 40, 45, 39, 42, 46, 45, 43,&
1302  &42, 46, 46, 42, 53, 79, 79, 161, 162, 162, 162, 162/)
1303 zaerv(1989,10, :) = (/&
1304  &71, 71, 71, 71, 71, 55, 48, 40, 42, 43, 42, 41,&
1305  &41, 46, 48, 50, 65, 76, 81, 63, 60, 58, 58, 58/)
1306 zaerv(1989,11, :) = (/&
1307  &73, 73, 73, 73, 73, 64, 57, 47, 42, 42, 43, 45,&
1308  &45, 47, 47, 48, 58, 63, 75, 63, 66, 66, 66, 66/)
1309 zaerv(1989,12, :) = (/&
1310  &74, 74, 74, 74, 74, 73, 71, 47, 42, 36, 36, 40,&
1311  &40, 44, 44, 43, 48, 56, 68, 77, 77, 77, 77, 77/)
1312 zaerv(1990, 1, :) = (/&
1313  &157, 157, 157, 157, 157, 81, 72, 57, 38, 35, 35, 34,&
1314  &36, 41, 41, 39, 40, 45, 59, 74, 77, 77, 77, 77/)
1315 zaerv(1990, 2, :) = (/&
1316  &313, 313, 313, 313, 313, 76, 69, 56, 41, 33, 31, 33,&
1317  &49, 28, 58, 44, 42, 49, 59, 75, 77, 77, 77, 77/)
1318 zaerv(1990, 3, :) = (/&
1319  &77, 77, 77, 67, 68, 68, 59, 48, 37, 33, 41, 58,&
1320  &70, 107, 74, 48, 45, 52, 59, 84, 82, 82, 82, 82/)
1321 zaerv(1990, 4, :) = (/&
1322  &77, 77, 77, 75, 75, 71, 64, 50, 39, 7, 1, 1,&
1323  &1, 61, 78, 56, 25, 28, 49, 73, 73, 73, 73, 73/)
1324 zaerv(1990, 5, :) = (/&
1325  &74, 74, 74, 74, 72, 55, 50, 39, 36, 37, 39, 39,&
1326  &1, 13, 22, 28, 32, 75, 84, 65, 65, 65, 65, 65/)
1327 zaerv(1990, 6, :) = (/&
1328  &74, 74, 74, 74, 74, 51, 40, 35, 34, 37, 41, 46,&
1329  &32, 72, 61, 56, 76, 91, 94, 93, 93, 93, 93, 93/)
1330 zaerv(1990, 7, :) = (/&
1331  &68, 68, 68, 68, 65, 62, 36, 30, 33, 38, 43, 53,&
1332  &64, 64, 55, 62, 82, 95, 105, 209, 209, 209, 209, 209/)
1333 zaerv(1990, 8, :) = (/&
1334  &63, 63, 63, 62, 61, 60, 40, 34, 35, 40, 47, 56,&
1335  &69, 66, 60, 62, 84, 101, 107, 203, 203, 203, 203, 203/)
1336 zaerv(1990, 9, :) = (/&
1337  &64, 64, 64, 64, 66, 58, 44, 37, 38, 42, 51, 57,&
1338  &66, 58, 47, 51, 64, 87, 92, 162, 171, 171, 171, 171/)
1339 zaerv(1990,10, :) = (/&
1340  &73, 73, 73, 73, 73, 57, 47, 40, 38, 40, 47, 57,&
1341  &63, 57, 49, 55, 68, 86, 94, 52, 54, 50, 50, 50/)
1342 zaerv(1990,11, :) = (/&
1343  &73, 73, 73, 73, 73, 60, 55, 42, 39, 43, 48, 59,&
1344  &65, 58, 51, 54, 65, 78, 87, 61, 66, 66, 66, 66/)
1345 zaerv(1990,12, :) = (/&
1346  &79, 79, 79, 79, 79, 67, 62, 48, 35, 37, 39, 59,&
1347  &65, 58, 51, 48, 51, 66, 81, 81, 82, 82, 82, 82/)
1348 zaerv(1991, 1, :) = (/&
1349  &102, 103, 110, 115, 87, 66, 64, 52, 38, 36, 43, 51,&
1350  &53, 50, 44, 47, 49, 56, 71, 98, 91, 83, 89, 89/)
1351 zaerv(1991, 2, :) = (/&
1352  &85, 86, 83, 75, 69, 68, 65, 54, 39, 36, 43, 49,&
1353  &48, 45, 44, 44, 49, 56, 67, 91, 101, 90, 85, 84/)
1354 zaerv(1991, 3, :) = (/&
1355  &73, 73, 72, 68, 65, 59, 51, 42, 34, 34, 41, 49,&
1356  &51, 49, 47, 48, 51, 58, 68, 83, 111, 109, 92, 90/)
1357 zaerv(1991, 4, :) = (/&
1358  &77, 76, 71, 70, 66, 59, 52, 43, 36, 34, 38, 43,&
1359  &45, 44, 43, 43, 47, 55, 65, 78, 105, 105, 90, 88/)
1360 zaerv(1991, 5, :) = (/&
1361  &118, 114, 63, 59, 57, 52, 45, 38, 33, 33, 40, 47,&
1362  &47, 47, 44, 48, 56, 64, 68, 87, 100, 101, 86, 84/)
1363 zaerv(1991, 6, :) = (/&
1364  &168, 160, 66, 57, 55, 52, 51, 45, 59, 164, 378, 720,&
1365  &558, 175, 60, 51, 63, 70, 74, 98, 99, 110, 97, 95/)
1366 zaerv(1991, 7, :) = (/&
1367  &228, 224, 161, 138, 126, 118, 103, 88, 213, 498, 673,1202,&
1368  &1218, 780, 146, 78, 93, 92, 89, 134, 151, 171, 111, 105/)
1369 zaerv(1991, 8, :) = (/&
1370  &342, 338, 274, 235, 225, 216, 193, 200, 480, 956,1083,1729,&
1371  &1938,1826, 721, 332, 329, 272, 191, 152, 168, 183, 121, 115/)
1372 zaerv(1991, 9, :) = (/&
1373  &366, 366, 368, 330, 336, 325, 312, 398, 883,1489,1634,2008,&
1374  &2263,2023, 990, 543, 571, 565, 450, 217, 186, 256, 157, 149/)
1375 zaerv(1991,10, :) = (/&
1376  &547, 559, 748, 531, 515, 529, 552, 613,1068,1773,1947,2163,&
1377  &2292,2090,1168, 780, 900,1019, 871, 609, 547, 442, 206, 189/)
1378 zaerv(1991,11, :) = (/&
1379  &715, 732,1010, 693, 685, 768, 804, 777,1125,1716,1959,2124,&
1380  &2301,2558,1457, 826,1020,1242,1268,1240,1057, 944, 446, 406/)
1381 zaerv(1991,12, :) = (/&
1382  &833, 854,1201,1085,1239,1635,1578,1356,1226,1606,1612,1748,&
1383  &1977,2073,1161, 720, 785, 924,1173,1413,1220,1210,1236,1236/)
1384 zaerv(1992, 1, :) = (/&
1385  &924, 949,1358,1392,1564,1731,1761,1665,1330,1539,1837,1873,&
1386  &2006,2067,1269, 708, 717, 854,1158,1423,1462,1600,1668,1668/)
1387 zaerv(1992, 2, :) = (/&
1388  &1003,1031,1454,1573,1677,1801,1837,1788,1444,1520,1846,1880,&
1389  &1863,1911,1213, 740, 729, 871,1162,1418,1553,1559,1492,1489/)
1390 zaerv(1992, 3, :) = (/&
1391  &1062,1089,1449,1524,1571,1674,1693,1581,1370,1485,1705,1760,&
1392  &1765,1699,1224, 826, 758, 886,1134,1350,1602,1635,1472,1459/)
1393 zaerv(1992, 4, :) = (/&
1394  &1120,1145,1468,1496,1461,1480,1465,1327,1285,1427,1556,1637,&
1395  &1681,1672,1310, 911, 885,1025,1242,1361,1598,1710,1442,1420/)
1396 zaerv(1992, 5, :) = (/&
1397  &1179,1193,1392,1422,1428,1404,1365,1298,1256,1435,1560,1624,&
1398  &1613,1566,1214,1035,1117,1238,1294,1369,1472,1527,1378,1366/)
1399 zaerv(1992, 6, :) = (/&
1400  &1233,1241,1334,1334,1304,1237,1110, 971, 995,1160,1294,1394,&
1401  &1414,1383,1149,1081,1295,1464,1436,1395,1479,1454,1323,1316/)
1402 zaerv(1992, 7, :) = (/&
1403  &1269,1270,1292,1299,1180,1117, 957, 836, 942,1175,1369,1415,&
1404  &1306,1257,1099,1067,1317,1532,1533,1366,1427,1347,1272,1270/)
1405 zaerv(1992, 8, :) = (/&
1406  &1272,1271,1251,1261,1203,1069, 956, 828, 912,1059,1230,1096,&
1407  &1031,1098,1098,1078,1368,1532,1418,1263,1255,1177,1212,1216/)
1408 zaerv(1992, 9, :) = (/&
1409  &1254,1253,1233,1231,1167,1041, 913, 779, 864,1066,1179, 969,&
1410  &888, 980, 965, 933,1185,1338,1283,1175,1037,1023,1156,1166/)
1411 zaerv(1992,10, :) = (/&
1412  &1193,1193,1183,1161,1147,1085, 942, 796, 829, 994,1012, 889,&
1413  &824, 866, 832, 871,1070,1208,1228,1113,1018,1012,1111,1119/)
1414 zaerv(1992,11, :) = (/&
1415  &1117,1117,1115,1120,1132,1100, 979, 820, 721, 783, 884, 862,&
1416  &785, 821, 797, 803, 935,1063,1138,1136,1039, 989,1060,1066/)
1417 zaerv(1992,12, :) = (/&
1418  &1044,1044,1050,1056,1143,1081, 984, 833, 663, 620, 667, 660,&
1419  &647, 663, 580, 577, 686, 865,1027,1091,1000, 995,1015,1017/)
1420 zaerv(1993, 1, :) = (/&
1421  &981, 982, 995, 996,1165,1123,1003, 823, 601, 520, 552, 610,&
1422  &628, 599, 535, 533, 577, 751, 915,1026,1041,1013, 995, 994/)
1423 zaerv(1993, 2, :) = (/&
1424  &904, 906, 926, 926, 985,1002, 927, 690, 482, 430, 496, 572,&
1425  &563, 521, 462, 478, 519, 638, 789, 907,1006,1054,1042,1041/)
1426 zaerv(1993, 3, :) = (/&
1427  &827, 831, 883, 887, 902, 886, 798, 610, 427, 388, 448, 518,&
1428  &521, 485, 437, 443, 483, 607, 758, 853, 913,1021,1054,1052/)
1429 zaerv(1993, 4, :) = (/&
1430  &749, 754, 817, 825, 833, 811, 725, 530, 383, 347, 407, 474,&
1431  &465, 431, 410, 412, 466, 589, 721, 808, 839, 934,1006,1005/)
1432 zaerv(1993, 5, :) = (/&
1433  &664, 664, 672, 704, 717, 702, 603, 436, 335, 323, 393, 457,&
1434  &447, 424, 398, 418, 527, 649, 713, 744, 811, 881, 945, 945/)
1435 zaerv(1993, 6, :) = (/&
1436  &579, 584, 641, 656, 644, 587, 478, 337, 285, 300, 348, 388,&
1437  &402, 409, 356, 389, 527, 674, 728, 752, 780, 826, 883, 884/)
1438 zaerv(1993, 7, :) = (/&
1439  &508, 509, 521, 512, 506, 470, 351, 275, 271, 290, 332, 369,&
1440  &385, 372, 338, 375, 523, 704, 753, 757, 747, 771, 825, 826/)
1441 zaerv(1993, 8, :) = (/&
1442  &505, 505, 506, 497, 466, 416, 331, 270, 262, 296, 357, 361,&
1443  &378, 380, 322, 333, 463, 654, 720, 719, 696, 711, 756, 758/)
1444 zaerv(1993, 9, :) = (/&
1445  &509, 509, 506, 459, 423, 372, 305, 258, 260, 299, 345, 357,&
1446  &348, 323, 296, 319, 421, 554, 638, 660, 658, 667, 679, 679/)
1447 zaerv(1993,10, :) = (/&
1448  &488, 489, 488, 432, 407, 373, 315, 254, 244, 263, 303, 343,&
1449  &344, 322, 292, 310, 409, 521, 599, 614, 617, 624, 595, 593/)
1450 zaerv(1993,11, :) = (/&
1451  &467, 467, 470, 422, 402, 381, 325, 260, 230, 237, 258, 301,&
1452  &342, 319, 284, 295, 373, 450, 537, 538, 532, 535, 539, 539/)
1453 zaerv(1993,12, :) = (/&
1454  &446, 446, 452, 405, 395, 382, 342, 255, 212, 215, 239, 265,&
1455  &273, 261, 236, 232, 263, 349, 455, 503, 537, 537, 512, 510/)
1456 zaerv(1994, 1, :) = (/&
1457  &422, 422, 431, 384, 384, 384, 341, 254, 193, 190, 216, 242,&
1458  &260, 250, 219, 206, 223, 287, 376, 435, 450, 461, 454, 453/)
1459 zaerv(1994, 2, :) = (/&
1460  &392, 392, 405, 375, 369, 368, 328, 241, 167, 172, 208, 220,&
1461  &248, 234, 203, 188, 204, 252, 325, 390, 422, 454, 470, 471/)
1462 zaerv(1994, 3, :) = (/&
1463  &360, 361, 379, 382, 363, 323, 267, 202, 153, 151, 175, 204,&
1464  &215, 206, 182, 166, 180, 226, 286, 343, 381, 449, 475, 476/)
1465 zaerv(1994, 4, :) = (/&
1466  &330, 330, 341, 350, 332, 303, 258, 195, 149, 145, 160, 178,&
1467  &180, 175, 157, 150, 173, 219, 267, 307, 338, 419, 447, 448/)
1468 zaerv(1994, 5, :) = (/&
1469  &323, 322, 316, 299, 264, 244, 211, 167, 135, 138, 155, 168,&
1470  &170, 174, 158, 156, 195, 249, 270, 283, 323, 386, 414, 414/)
1471 zaerv(1994, 6, :) = (/&
1472  &270, 269, 257, 253, 227, 195, 155, 128, 122, 137, 153, 145,&
1473  &145, 159, 144, 142, 186, 253, 280, 281, 299, 354, 383, 383/)
1474 zaerv(1994, 7, :) = (/&
1475  &205, 205, 208, 206, 196, 168, 126, 109, 116, 137, 159, 150,&
1476  &146, 171, 148, 150, 196, 265, 291, 280, 275, 319, 349, 349/)
1477 zaerv(1994, 8, :) = (/&
1478  &211, 211, 205, 195, 184, 162, 125, 110, 119, 141, 184, 154,&
1479  &142, 151, 142, 136, 179, 240, 267, 266, 254, 282, 313, 313/)
1480 zaerv(1994, 9, :) = (/&
1481  &218, 218, 209, 186, 175, 149, 124, 107, 113, 135, 159, 137,&
1482  &133, 131, 125, 131, 174, 223, 250, 249, 239, 256, 273, 273/)
1483 zaerv(1994,10, :) = (/&
1484  &250, 250, 240, 182, 173, 159, 129, 111, 109, 125, 154, 154,&
1485  &154, 146, 125, 134, 185, 239, 256, 246, 238, 238, 231, 231/)
1486 zaerv(1994,11, :) = (/&
1487  &294, 293, 285, 198, 188, 189, 160, 122, 106, 110, 123, 134,&
1488  &149, 140, 118, 118, 152, 198, 232, 237, 238, 228, 219, 219/)
1489 zaerv(1994,12, :) = (/&
1490  &367, 367, 363, 309, 261, 201, 177, 126, 95, 90, 100, 124,&
1491  &148, 132, 114, 107, 127, 164, 211, 233, 241, 246, 267, 268/)
1492 zaerv(1995, 1, :) = (/&
1493  &338, 338, 334, 284, 240, 185, 162, 116, 87, 83, 92, 114,&
1494  &136, 121, 105, 99, 117, 151, 194, 214, 222, 226, 245, 247/)
1495 zaerv(1995, 2, :) = (/&
1496  &311, 311, 308, 262, 221, 170, 149, 107, 80, 76, 85, 105,&
1497  &125, 111, 96, 91, 108, 139, 179, 197, 204, 208, 226, 227/)
1498 zaerv(1995, 3, :) = (/&
1499  &286, 286, 283, 241, 204, 156, 138, 98, 74, 70, 78, 96,&
1500  &115, 102, 89, 83, 99, 128, 165, 181, 188, 192, 208, 209/)
1501 zaerv(1995, 4, :) = (/&
1502  &263, 263, 260, 222, 187, 144, 127, 90, 68, 64, 72, 89,&
1503  &106, 94, 81, 77, 91, 118, 151, 167, 173, 176, 191, 192/)
1504 zaerv(1995, 5, :) = (/&
1505  &242, 242, 240, 204, 172, 132, 116, 83, 63, 59, 66, 82,&
1506  &97, 87, 75, 71, 84, 108, 139, 153, 159, 162, 176, 177/)
1507 zaerv(1995, 6, :) = (/&
1508  &223, 223, 220, 187, 158, 122, 107, 76, 58, 54, 61, 75,&
1509  &90, 80, 69, 65, 77, 100, 128, 141, 146, 149, 162, 163/)
1510 zaerv(1995, 7, :) = (/&
1511  &205, 205, 203, 173, 146, 112, 99, 70, 53, 50, 56, 69,&
1512  &82, 73, 63, 60, 71, 92, 118, 130, 135, 137, 149, 150/)
1513 zaerv(1995, 8, :) = (/&
1514  &189, 189, 187, 159, 134, 103, 91, 65, 49, 46, 51, 64,&
1515  &76, 68, 58, 55, 65, 84, 108, 120, 124, 126, 137, 138/)
1516 zaerv(1995, 9, :) = (/&
1517  &174, 174, 172, 146, 123, 95, 83, 59, 45, 42, 47, 58,&
1518  &70, 62, 54, 51, 60, 78, 100, 110, 114, 116, 126, 127/)
1519 zaerv(1995,10, :) = (/&
1520  &160, 160, 158, 134, 114, 87, 77, 55, 41, 39, 43, 54,&
1521  &64, 57, 49, 47, 55, 71, 92, 101, 105, 107, 116, 117/)
1522 zaerv(1995,11, :) = (/&
1523  &147, 147, 145, 124, 104, 80, 71, 50, 38, 36, 40, 50,&
1524  &59, 53, 45, 43, 51, 66, 84, 93, 96, 98, 107, 107/)
1525 zaerv(1995,12, :) = (/&
1526  &135, 135, 134, 114, 96, 74, 65, 46, 35, 33, 37, 46,&
1527  &54, 48, 42, 39, 47, 61, 78, 86, 89, 91, 98, 99/)
1528 zaerv(1996, 1, :) = (/&
1529  &124, 124, 123, 105, 88, 68, 60, 43, 32, 30, 34, 42,&
1530  &50, 45, 38, 36, 43, 56, 72, 79, 82, 83, 90, 91/)
1531 zaerv(1996, 2, :) = (/&
1532  &114, 114, 113, 96, 81, 62, 55, 39, 30, 28, 31, 39,&
1533  &46, 41, 35, 33, 40, 51, 66, 72, 75, 77, 83, 83/)
1534 zaerv(1996, 3, :) = (/&
1535  &105, 105, 104, 89, 75, 57, 51, 36, 27, 26, 29, 35,&
1536  &42, 38, 33, 31, 36, 47, 61, 67, 69, 70, 76, 77/)
1537 zaerv(1996, 4, :) = (/&
1538  &97, 97, 96, 81, 69, 53, 47, 33, 25, 24, 26, 33,&
1539  &39, 35, 30, 28, 33, 43, 56, 61, 64, 65, 70, 71/)
1540 zaerv(1996, 5, :) = (/&
1541  &89, 89, 88, 75, 63, 49, 43, 31, 23, 22, 24, 30,&
1542  &36, 32, 28, 26, 31, 40, 51, 56, 58, 60, 65, 65/)
1543 zaerv(1996, 6, :) = (/&
1544  &82, 82, 81, 69, 58, 45, 39, 28, 21, 20, 22, 28,&
1545  &33, 29, 25, 24, 28, 37, 47, 52, 54, 55, 59, 60/)
1546 zaerv(1996, 7, :) = (/&
1547  &75, 75, 75, 63, 54, 41, 36, 26, 19, 18, 21, 25,&
1548  &30, 27, 23, 22, 26, 34, 43, 48, 50, 51, 55, 55/)
1549 zaerv(1996, 8, :) = (/&
1550  &69, 69, 69, 58, 49, 38, 33, 24, 18, 17, 19, 23,&
1551  &28, 25, 21, 20, 24, 31, 40, 44, 46, 46, 50, 51/)
1552 zaerv(1996, 9, :) = (/&
1553  &64, 64, 63, 54, 45, 35, 31, 22, 17, 16, 17, 22,&
1554  &26, 23, 20, 19, 22, 29, 37, 40, 42, 43, 46, 47/)
1555 zaerv(1996,10, :) = (/&
1556  &59, 59, 58, 49, 42, 32, 28, 20, 15, 14, 16, 20,&
1557  &24, 21, 18, 17, 20, 26, 34, 37, 39, 39, 43, 43/)
1558 zaerv(1996,11, :) = (/&
1559  &54, 54, 53, 45, 38, 30, 26, 19, 14, 13, 15, 18,&
1560  &22, 19, 17, 16, 19, 24, 31, 34, 35, 36, 39, 39/)
1561 zaerv(1996,12, :) = (/&
1562  &50, 50, 49, 42, 35, 27, 24, 17, 13, 12, 14, 17,&
1563  &20, 18, 15, 14, 17, 22, 29, 32, 33, 33, 36, 36/)
1564 zaerv(1997, 1, :) = (/&
1565  &46, 46, 45, 38, 33, 25, 22, 16, 12, 11, 12, 15,&
1566  &18, 16, 14, 13, 16, 20, 26, 29, 30, 31, 33, 33/)
1567 zaerv(1997, 2, :) = (/&
1568  &42, 42, 42, 35, 30, 23, 20, 14, 11, 10, 11, 14,&
1569  &17, 15, 13, 12, 15, 19, 24, 27, 28, 28, 31, 31/)
1570 zaerv(1997, 3, :) = (/&
1571  &39, 39, 38, 33, 28, 21, 19, 13, 10, 9, 11, 13,&
1572  &16, 14, 12, 11, 13, 17, 22, 25, 25, 26, 28, 28/)
1573 zaerv(1997, 4, :) = (/&
1574  &36, 36, 35, 30, 25, 19, 17, 12, 9, 9, 10, 12,&
1575  &14, 13, 11, 10, 12, 16, 20, 23, 23, 24, 26, 26/)
1576 zaerv(1997, 5, :) = (/&
1577  &33, 33, 32, 28, 23, 18, 16, 11, 8, 8, 9, 11,&
1578  &13, 12, 10, 10, 11, 15, 19, 21, 22, 22, 24, 24/)
1579 zaerv(1997, 6, :) = (/&
1580  &30, 30, 30, 25, 21, 16, 14, 10, 8, 7, 8, 10,&
1581  &12, 11, 9, 9, 10, 13, 17, 19, 20, 20, 22, 22/)
1582 zaerv(1997, 7, :) = (/&
1583  &28, 28, 27, 23, 20, 15, 13, 10, 7, 7, 8, 9,&
1584  &11, 10, 9, 8, 10, 12, 16, 18, 18, 19, 20, 20/)
1585 zaerv(1997, 8, :) = (/&
1586  &26, 26, 25, 21, 18, 14, 12, 9, 7, 6, 7, 9,&
1587  &10, 9, 8, 7, 9, 11, 15, 16, 17, 17, 19, 19/)
1588 zaerv(1997, 9, :) = (/&
1589  &23, 23, 23, 20, 17, 13, 11, 8, 6, 6, 6, 8,&
1590  &9, 8, 7, 7, 8, 11, 14, 15, 15, 16, 17, 17/)
1591 zaerv(1997,10, :) = (/&
1592  &22, 22, 21, 18, 15, 12, 10, 7, 6, 5, 6, 7,&
1593  &9, 8, 7, 6, 7, 10, 12, 14, 14, 14, 16, 16/)
1594 zaerv(1997,11, :) = (/&
1595  &20, 20, 20, 17, 14, 11, 10, 7, 5, 5, 5, 7,&
1596  &8, 7, 6, 6, 7, 9, 11, 13, 13, 13, 14, 15/)
1597 zaerv(1997,12, :) = (/&
1598  &18, 18, 18, 15, 13, 10, 9, 6, 5, 4, 5, 6,&
1599  &7, 7, 6, 5, 6, 8, 11, 12, 12, 12, 13, 13/)
1600 zaerv(1998, 1, :) = (/&
1601  &17, 17, 17, 14, 12, 9, 8, 6, 4, 4, 5, 6,&
1602  &7, 6, 5, 5, 6, 8, 10, 11, 11, 11, 12, 12/)
1603 zaerv(1998, 2, :) = (/&
1604  &15, 15, 15, 13, 11, 8, 7, 5, 4, 4, 4, 5,&
1605  &6, 6, 5, 5, 5, 7, 9, 10, 10, 10, 11, 11/)
1606 zaerv(1998, 3, :) = (/&
1607  &14, 14, 14, 12, 10, 8, 7, 5, 4, 3, 4, 5,&
1608  &6, 5, 4, 4, 5, 6, 8, 9, 9, 10, 10, 10/)
1609 zaerv(1998, 4, :) = (/&
1610  &13, 13, 13, 11, 9, 7, 6, 4, 3, 3, 4, 4,&
1611  &5, 5, 4, 4, 5, 6, 8, 8, 9, 9, 10, 10/)
1612 zaerv(1998, 5, :) = (/&
1613  &12, 12, 12, 10, 9, 7, 6, 4, 3, 3, 3, 4,&
1614  &5, 4, 4, 4, 4, 5, 7, 8, 8, 8, 9, 9/)
1615 zaerv(1998, 6, :) = (/&
1616  &11, 11, 11, 9, 8, 6, 5, 4, 3, 3, 3, 4,&
1617  &4, 4, 3, 3, 4, 5, 6, 7, 7, 7, 8, 8/)
1618 zaerv(1998, 7, :) = (/&
1619  &10, 10, 10, 9, 7, 6, 5, 3, 3, 2, 3, 3,&
1620  &4, 4, 3, 3, 4, 5, 6, 6, 7, 7, 7, 7/)
1621 zaerv(1998, 8, :) = (/&
1622  &9, 9, 9, 8, 7, 5, 5, 3, 2, 2, 3, 3,&
1623  &4, 3, 3, 3, 3, 4, 5, 6, 6, 6, 7, 7/)
1624 zaerv(1998, 9, :) = (/&
1625  &9, 9, 9, 7, 6, 5, 4, 3, 2, 2, 2, 3,&
1626  &3, 3, 3, 3, 3, 4, 5, 5, 6, 6, 6, 6/)
1627 zaerv(1998,10, :) = (/&
1628  &8, 8, 8, 7, 6, 4, 4, 3, 2, 2, 2, 3,&
1629  &3, 3, 2, 2, 3, 4, 5, 5, 5, 5, 6, 6/)
1630 zaerv(1998,11, :) = (/&
1631  &7, 7, 7, 6, 5, 4, 4, 3, 2, 2, 2, 2,&
1632  &3, 3, 2, 2, 3, 3, 4, 5, 5, 5, 5, 5/)
1633 zaerv(1998,12, :) = (/&
1634  &7, 7, 7, 6, 5, 4, 3, 2, 2, 2, 2, 2,&
1635  &3, 2, 2, 2, 2, 3, 4, 4, 4, 5, 5, 5/)
1636 zaerv(1999, 1, :) = (/&
1637  &6, 6, 6, 5, 4, 3, 3, 2, 2, 2, 2, 2,&
1638  &2, 2, 2, 2, 2, 3, 4, 4, 4, 4, 4, 5/)
1639 zaerv(1999, 2, :) = (/&
1640  &6, 6, 6, 5, 4, 3, 3, 2, 1, 1, 2, 2,&
1641  &2, 2, 2, 2, 2, 3, 3, 4, 4, 4, 4, 4/)
1642 zaerv(1999, 3, :) = (/&
1643  &5, 5, 5, 4, 4, 3, 3, 2, 1, 1, 1, 2,&
1644  &2, 2, 2, 2, 2, 2, 3, 3, 3, 4, 4, 4/)
1645 zaerv(1999, 4, :) = (/&
1646  &5, 5, 5, 4, 3, 3, 2, 2, 1, 1, 1, 2,&
1647  &2, 2, 1, 1, 2, 2, 3, 3, 3, 3, 3, 4/)
1648 zaerv(1999, 5, :) = (/&
1649  &4, 4, 4, 4, 3, 2, 2, 2, 1, 1, 1, 1,&
1650  &2, 2, 1, 1, 2, 2, 3, 3, 3, 3, 3, 3/)
1651 zaerv(1999, 6, :) = (/&
1652  &4, 4, 4, 3, 3, 2, 2, 1, 1, 1, 1, 1,&
1653  &2, 1, 1, 1, 1, 2, 2, 3, 3, 3, 3, 3/)
1654 zaerv(1999, 7, :) = (/&
1655  &4, 4, 4, 3, 3, 2, 2, 1, 1, 1, 1, 1,&
1656  &2, 1, 1, 1, 1, 2, 2, 2, 2, 3, 3, 3/)
1657 zaerv(1999, 8, :) = (/&
1658  &3, 3, 3, 3, 2, 2, 2, 1, 1, 1, 1, 1,&
1659  &1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 3, 3/)
1660 zaerv(1999, 9, :) = (/&
1661  &3, 3, 3, 3, 2, 2, 2, 1, 1, 1, 1, 1,&
1662  &1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2/)
1663 zaerv(1999,10, :) = (/&
1664  &3, 3, 3, 2, 2, 2, 1, 1, 1, 1, 1, 1,&
1665  &1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2/)
1666 zaerv(1999,11, :) = (/&
1667  &3, 3, 3, 2, 2, 1, 1, 1, 1, 1, 1, 1,&
1668  &1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2/)
1669 zaerv(1999,12, :) = (/&
1670  &2, 2, 2, 2, 2, 1, 1, 1, 1, 1, 1, 1,&
1671  &1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2/)
1672 zaerv(2000, 1, :) = (/&
1673  &2, 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1,&
1674  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2/)
1675 zaerv(2000, 2, :) = (/&
1676  &2, 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1,&
1677  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1/)
1678 zaerv(2000, 3, :) = (/&
1679  &2, 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1,&
1680  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1/)
1681 zaerv(2000, 4, :) = (/&
1682  &2, 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1,&
1683  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1/)
1684 zaerv(2000, 5, :) = (/&
1685  &2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1,&
1686  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1/)
1687 zaerv(2000, 6, :) = (/&
1688  &2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,&
1689  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1/)
1690 zaerv(2000, 7, :) = (/&
1691  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,&
1692  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1/)
1693 zaerv(2000, 8, :) = (/&
1694  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,&
1695  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1/)
1696 zaerv(2000, 9, :) = (/&
1697  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,&
1698  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1/)
1699 zaerv(2000,10, :) = (/&
1700  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,&
1701  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1/)
1702 zaerv(2000,11, :) = (/&
1703  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,&
1704  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1/)
1705 zaerv(2000,12, :) = (/&
1706  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,&
1707  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1/)
1708 zaerv(2001, 1, :) = (/&
1709  &2, 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1,&
1710  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2/)
1711 zaerv(2001, 2, :) = (/&
1712  &2, 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1,&
1713  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1/)
1714 zaerv(2001, 3, :) = (/&
1715  &2, 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1,&
1716  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1/)
1717 zaerv(2001, 4, :) = (/&
1718  &2, 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1,&
1719  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1/)
1720 zaerv(2001, 5, :) = (/&
1721  &2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1,&
1722  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1/)
1723 zaerv(2001, 6, :) = (/&
1724  &2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,&
1725  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1/)
1726 zaerv(2001, 7, :) = (/&
1727  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,&
1728  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1/)
1729 zaerv(2001, 8, :) = (/&
1730  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,&
1731  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1/)
1732 zaerv(2001, 9, :) = (/&
1733  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,&
1734  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1/)
1735 zaerv(2001,10, :) = (/&
1736  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,&
1737  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1/)
1738 zaerv(2001,11, :) = (/&
1739  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,&
1740  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1/)
1741 zaerv(2001,12, :) = (/&
1742  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,&
1743  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1/)
1744 zaerv(2002, 1, :) = (/&
1745  &2, 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1,&
1746  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2/)
1747 zaerv(2002, 2, :) = (/&
1748  &2, 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1,&
1749  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1/)
1750 zaerv(2002, 3, :) = (/&
1751  &2, 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1,&
1752  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1/)
1753 zaerv(2002, 4, :) = (/&
1754  &2, 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1,&
1755  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1/)
1756 zaerv(2002, 5, :) = (/&
1757  &2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1,&
1758  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1/)
1759 zaerv(2002, 6, :) = (/&
1760  &2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,&
1761  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1/)
1762 zaerv(2002, 7, :) = (/&
1763  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,&
1764  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1/)
1765 zaerv(2002, 8, :) = (/&
1766  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,&
1767  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1/)
1768 zaerv(2002, 9, :) = (/&
1769  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,&
1770  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1/)
1771 zaerv(2002,10, :) = (/&
1772  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,&
1773  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1/)
1774 zaerv(2002,11, :) = (/&
1775  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,&
1776  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1/)
1777 zaerv(2002,12, :) = (/&
1778  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,&
1779  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1/)
1780 zaerv(2003, 1, :) = (/&
1781  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,&
1782  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2/)
1783 zaerv(2003, 2, :) = (/&
1784  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,&
1785  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1/)
1786 zaerv(2003, 3, :) = (/&
1787  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,&
1788  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1/)
1789 zaerv(2003, 4, :) = (/&
1790  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,&
1791  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1/)
1792 zaerv(2003, 5, :) = (/&
1793  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,&
1794  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1/)
1795 zaerv(2003, 6, :) = (/&
1796  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,&
1797  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1/)
1798 zaerv(2003, 7, :) = (/&
1799  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,&
1800  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1/)
1801 zaerv(2003, 8, :) = (/&
1802  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,&
1803  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1/)
1804 zaerv(2003, 9, :) = (/&
1805  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,&
1806  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1/)
1807 zaerv(2003,10, :) = (/&
1808  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,&
1809  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1/)
1810 zaerv(2003,11, :) = (/&
1811  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,&
1812  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1/)
1813 zaerv(2003,12, :) = (/&
1814  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,&
1815  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1/)
1816 zaerv(2004, 1, :) = (/&
1817  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,&
1818  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2/)
1819 zaerv(2004, 2, :) = (/&
1820  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,&
1821  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1/)
1822 zaerv(2004, 3, :) = (/&
1823  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,&
1824  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1/)
1825 zaerv(2004, 4, :) = (/&
1826  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,&
1827  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1/)
1828 zaerv(2004, 5, :) = (/&
1829  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,&
1830  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1/)
1831 zaerv(2004, 6, :) = (/&
1832  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,&
1833  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1/)
1834 zaerv(2004, 7, :) = (/&
1835  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,&
1836  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1/)
1837 zaerv(2004, 8, :) = (/&
1838  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,&
1839  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1/)
1840 zaerv(2004, 9, :) = (/&
1841  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,&
1842  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1/)
1843 zaerv(2004,10, :) = (/&
1844  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,&
1845  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1/)
1846 zaerv(2004,11, :) = (/&
1847  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,&
1848  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1/)
1849 zaerv(2004,12, :) = (/&
1850  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,&
1851  &1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1/)
1852 
1853 
1854 ! ------------------------------------------------------------------
1855 
1856 !* 1. TIME INDEX WITHIN AEROSOL CLIMATOLOGY
1857 ! -------------------------------------
1858 
1859 
1860 !* 1.1 SEASONAL TIME INDEX WITHIN TEGEN'S AEROSOL CLIMATOLOGY
1861 ! ------------------------------------------------------
1862 
1863 
1864 idy=ndd(kindat)-1
1865 imn=nmm(kindat)
1866 IF (imn == 1) THEN
1867  zxtime=REAL(idy)*1440._JPRB + KMINUT
1868 ELSEIF (imn == 2) THEN
1869  IF(idy == 28) idy=idy-1
1870 ! A DAY IN FEB. IS 28.25*24*60/28=1452.8571min LONG.
1871  zxtime=44640._jprb+REAL(idy)*1452.8571_JPRB+KMINUT
1872 ELSE
1873  zxtime=(zmday(imn-1)+REAL(idy))*1440._jprb+kminut
1874 ENDIF
1875 ! 525960=MINUTES IN A SIDERAL YEAR (365.25d)
1876 zxtime=mod(zxtime,525960._jprb)
1877 
1878 im1=0
1879 im2=0
1880 IF (zxtime <= zytime(1)) THEN
1881  im1=12
1882  im2=1
1883  ztimi=(zytime(1)-zxtime)/44640._jprb
1884 ELSEIF(zxtime > zytime(12)) THEN
1885  im1=12
1886  im2=1
1887  ztimi=(548280._jprb-zxtime)/44640._jprb
1888 ! 548280.=(365.25d + 15.5d)*24*60
1889 ELSE
1890  DO im=1,11
1891  IF (zxtime > zytime(im) .AND. zxtime <= zytime(im+1)) THEN
1892  im1=im
1893  im2=im+1
1894  ztimi=(zxtime-zytime(im2))/(zytime(im1)-zytime(im2))
1895  ENDIF
1896  ENDDO
1897  IF (im1 == 0.OR. im2 == 0 ) THEN
1898 ! CALL ABOR1('Problem with time interpolation in suecaec!')
1899  print *,'Problem with time interpolation in suecaec!'
1900  stop
1901  ENDIF
1902 ENDIF
1903 
1904 
1905 !* 1.2 TIME INDEX WITHIN GISS VOLCANIC AEROSOL CLIMATOLOGY
1906 ! ---------------------------------------------------
1907 
1908 iyr=nccaa(kindat)
1909 imn=nmm(kindat)
1910 idy=ndd(kindat)
1911 IF (imn == 1.AND.idy <= 15) THEN
1912  iyr1=iyr-1
1913  iyr2=iyr
1914 ELSEIF (imn == 12.AND.idy > 15) THEN
1915  iyr1=iyr
1916  iyr2=iyr+1
1917 ELSE
1918  iyr1=iyr
1919  iyr2=iyr
1920 ENDIF
1921 
1922 
1923 !* 2.0 TOTAL OPTICAL THICKNESS
1924 ! -----------------------
1925 
1926 !* 2.1 TROPOSPHERIC AEROSOL MONTHLY CLIMATOLOGY
1927 ! ----------------------------------------
1928 
1929 !-- VECTOR OF LATITUDES FOR TEGEN ET AL. AEROSOL CLIMATOLOGY:
1930 
1931 DO ji=1,46
1932  zlatt(ji)=90._jprb-(ji-1)*4._jprb
1933  rsinct(ji)=sin(zlatt(ji)*rpi/180._jprb)
1934 ENDDO
1935 
1936 DO ji=1,46
1937  DO jl=1,72
1938  rtaebc(jl,ji)=raerbc(jl,ji,im2)&
1939  &+ztimi*(raerbc(jl,ji,im1)-raerbc(jl,ji,im2))
1940  rtaeor(jl,ji)=raeror(jl,ji,im2)&
1941  &+ztimi*(raeror(jl,ji,im1)-raeror(jl,ji,im2))
1942  rtaesd(jl,ji)=raersd(jl,ji,im2)&
1943  &+ztimi*(raersd(jl,ji,im1)-raersd(jl,ji,im2))
1944  rtaess(jl,ji)=raerss(jl,ji,im2)&
1945  &+ztimi*(raerss(jl,ji,im1)-raerss(jl,ji,im2))
1946  rtaesu(jl,ji)=raersu(jl,ji,im2)&
1947  &+ztimi*(raersu(jl,ji,im1)-raersu(jl,ji,im2))
1948  ENDDO
1949 ENDDO
1950 
1951 
1952 
1953 !* 2.2 VOLCANIC AEROSOL CLIMATOLOGY
1954 ! ----------------------------
1955 
1956 grid=4._jprb
1957 DO ji=1,46
1958  zlat=90._jprb-(ji-1)*grid
1959  DO jl=1,23
1960  IF (zlat == zlatv(jl)) THEN
1961  zres=zaerv(iyr2,im2,jl)&
1962  &+ztimi*(zaerv(iyr1,im1,jl)-zaerv(iyr2,im2,jl))
1963  ELSEIF (zlat < zlatv(jl).AND.zlat >= zlatv(jl+1))THEN
1964  zint=(zlat-zlatv(jl+1))/(zlatv(jl)-zlatv(jl+1))
1965  zresm=zaerv(iyr2,im2,jl)&
1966  &+ztimi*(zaerv(iyr1,im1,jl)-zaerv(iyr2,im2,jl))
1967  zresp=zaerv(iyr2,im2,jl+1)&
1968  &+ztimi*(zaerv(iyr1,im1,jl+1)-zaerv(iyr2,im2,jl+1))
1969  zres=zresp-zint*(zresp-zresm)
1970  ENDIF
1971  ENDDO
1972 !-- 19330. is the reference thickness of the stratosphere as in the
1973 ! old aerosol climatology
1974  rtaevo(ji)=zres*1.e-04_jprb/19330._jprb
1975 ENDDO
1976 
1977 !-- security for aerosol optical thickness
1978 repaer=1.e-12_jprb
1979 
1980 
1981 ! ------------------------------------------------------------------
1982 
1983 RETURN
1984 END SUBROUTINE suecaec
yomcst::rpi
real(kind=jprb) rpi
Definition: yomcst.F90:15
yomcst::rday
real(kind=jprb) rday
Definition: yomcst.F90:21
im
!$Id mode_top_bound COMMON comconstr omeg dissip_zref ihf INTEGER im
Definition: comconst.h:7
suecaec
subroutine suecaec(KINDAT, KMINUT)
Definition: suecaec.F90:2
yomcst
Definition: yomcst.F90:1