source: LMDZ5/trunk/libf/phymar/suecaec.F90 @ 5456

Last change on this file since 5456 was 2089, checked in by Laurent Fairhead, 10 years ago

Inclusion de la physique de MAR


Integration of MAR physics

File size: 91.9 KB
RevLine 
[2089]1SUBROUTINE 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
64USE YOMCST   , ONLY : RPI   , RDAY
65USE YOEAERC  , ONLY : RAERBC, RAEROR, RAERSD, RAERSS, RAERSU,&
66              &REPAER, RSINCT, RSINCV,&
67              &RTAEBC, RTAEOR, RTAESD, RTAESS, RTAESU, RTAEVO
68
69
70IMPLICIT NONE
71
72
73!     DUMMY INTEGER SCALARS
74INTEGER_M :: KINDAT
75INTEGER_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
89REAL_B :: ZLATT(46),  ZLATV(24) , ZAERV(1957:2004,12,24)
90REAL_B :: ZYTIME(12), ZMDAY(12) , ZTAERV(24)
91
92!     LOCAL INTEGER SCALARS
93INTEGER_M :: IDY, IM, IM1, IM2, IMN, IYR, IYR1, IYR2, JI, JL
94
95!     LOCAL REAL SCALARS
96REAL_B :: GRID, ZINT, ZLAT, ZRES, ZRESM, ZRESP, ZTIMI, ZXTIME
97
98
99#include "fcttim.h"     
100!     ------------------------------------------------------------------
101
102ZMDAY = (/&
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        &/)
106ZYTIME= (/&
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
117ZLATV(:) = (/&
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
124ZAERV(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/)
127ZAERV(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/)
130ZAERV(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/)
133ZAERV(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/)
136ZAERV(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/)
139ZAERV(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/)
142ZAERV(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/)
145ZAERV(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/)
148ZAERV(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/)
151ZAERV(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/)
154ZAERV(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/)
157ZAERV(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/)
160ZAERV(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/)
163ZAERV(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/)
166ZAERV(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/)
169ZAERV(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/)
172ZAERV(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/)
175ZAERV(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/)
178ZAERV(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/)
181ZAERV(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/)
184ZAERV(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/)
187ZAERV(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/)
190ZAERV(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/)
193ZAERV(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/)
196ZAERV(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/)
199ZAERV(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/)
202ZAERV(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/)
205ZAERV(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/)
208ZAERV(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/)
211ZAERV(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/)
214ZAERV(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/)
217ZAERV(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/)
220ZAERV(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/)
223ZAERV(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/)
226ZAERV(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/)
229ZAERV(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/)
232ZAERV(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/)
235ZAERV(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/)
238ZAERV(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/)
241ZAERV(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/)
244ZAERV(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/)
247ZAERV(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/)
250ZAERV(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/)
253ZAERV(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/)
256ZAERV(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/)
259ZAERV(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/)
262ZAERV(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/)
265ZAERV(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/)
268ZAERV(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/)
271ZAERV(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/)
274ZAERV(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/)
277ZAERV(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/)
280ZAERV(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/)
283ZAERV(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/)
286ZAERV(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/)
289ZAERV(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/)
292ZAERV(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/)
295ZAERV(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/)
298ZAERV(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/)
301ZAERV(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/)
304ZAERV(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/)
307ZAERV(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/)
310ZAERV(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/)
313ZAERV(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/)
316ZAERV(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/)
319ZAERV(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/)
322ZAERV(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/)
325ZAERV(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/)
328ZAERV(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/)
331ZAERV(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/)
334ZAERV(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/)
337ZAERV(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/)
340ZAERV(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/)
343ZAERV(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/)
346ZAERV(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/)
349ZAERV(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/)
352ZAERV(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/)
355ZAERV(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/)
358ZAERV(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/)
361ZAERV(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/)
364ZAERV(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/)
367ZAERV(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/)
370ZAERV(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/)
373ZAERV(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/)
376ZAERV(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/)
379ZAERV(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/)
382ZAERV(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/)
385ZAERV(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/)
388ZAERV(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/)
391ZAERV(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/)
394ZAERV(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/)
397ZAERV(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/)
400ZAERV(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/)
403ZAERV(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/)
406ZAERV(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/)
409ZAERV(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/)
412ZAERV(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/)
415ZAERV(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/)
418ZAERV(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/)
421ZAERV(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/)
424ZAERV(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/)
427ZAERV(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/)
430ZAERV(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/)
433ZAERV(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/)
436ZAERV(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/)
439ZAERV(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/)
442ZAERV(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/)
445ZAERV(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/)
448ZAERV(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/)
451ZAERV(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/)
454ZAERV(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/)
457ZAERV(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/)
460ZAERV(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/)
463ZAERV(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/)
466ZAERV(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/)
469ZAERV(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/)
472ZAERV(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/)
475ZAERV(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/)
478ZAERV(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/)
481ZAERV(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/)
484ZAERV(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/)
487ZAERV(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/)
490ZAERV(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/)
493ZAERV(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/)
496ZAERV(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/)
499ZAERV(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/)
502ZAERV(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/)
505ZAERV(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/)
508ZAERV(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/)
511ZAERV(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/)
514ZAERV(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/)
517ZAERV(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/)
520ZAERV(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/)
523ZAERV(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/)
526ZAERV(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/)
529ZAERV(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/)
532ZAERV(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/)
535ZAERV(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/)
538ZAERV(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/)
541ZAERV(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/)
544ZAERV(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/)
547ZAERV(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/)
550ZAERV(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/)
553ZAERV(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/)
556ZAERV(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/)
559ZAERV(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/)
562ZAERV(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/)
565ZAERV(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/)
568ZAERV(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/)
571ZAERV(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/)
574ZAERV(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/)
577ZAERV(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/)
580ZAERV(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/)
583ZAERV(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/)
586ZAERV(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/)
589ZAERV(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/)
592ZAERV(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/)
595ZAERV(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/)
598ZAERV(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/)
601ZAERV(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/)
604ZAERV(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/)
607ZAERV(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/)
610ZAERV(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/)
613ZAERV(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/)
616ZAERV(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/)
619ZAERV(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/)
622ZAERV(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/)
625ZAERV(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/)
628ZAERV(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/)
631ZAERV(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/)
634ZAERV(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/)
637ZAERV(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/)
640ZAERV(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/)
643ZAERV(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/)
646ZAERV(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/)
649ZAERV(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/)
652ZAERV(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/)
655ZAERV(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/)
658ZAERV(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/)
661ZAERV(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/)
664ZAERV(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/)
667ZAERV(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/)
670ZAERV(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/)
673ZAERV(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/)
676ZAERV(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/)
679ZAERV(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/)
682ZAERV(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/)
685ZAERV(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/)
688ZAERV(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/)
691ZAERV(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/)
694ZAERV(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/)
697ZAERV(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/)
700ZAERV(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/)
703ZAERV(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/)
706ZAERV(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/)
709ZAERV(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/)
712ZAERV(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/)
715ZAERV(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/)
718ZAERV(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/)
721ZAERV(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/)
724ZAERV(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/)
727ZAERV(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/)
730ZAERV(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/)
733ZAERV(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/)
736ZAERV(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/)
739ZAERV(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/)
742ZAERV(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/)
745ZAERV(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/)
748ZAERV(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/)
751ZAERV(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/)
754ZAERV(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/)
757ZAERV(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/)
760ZAERV(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/)
763ZAERV(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/)
766ZAERV(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/)
769ZAERV(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/)
772ZAERV(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/)
775ZAERV(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/)
778ZAERV(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/)
781ZAERV(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/)
784ZAERV(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/)
787ZAERV(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/)
790ZAERV(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/)
793ZAERV(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/)
796ZAERV(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/)
799ZAERV(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/)
802ZAERV(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/)
805ZAERV(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/)
808ZAERV(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/)
811ZAERV(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/)
814ZAERV(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/)
817ZAERV(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/)
820ZAERV(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/)
823ZAERV(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/)
826ZAERV(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/)
829ZAERV(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/)
832ZAERV(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/)
835ZAERV(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/)
838ZAERV(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/)
841ZAERV(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/)
844ZAERV(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/)
847ZAERV(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/)
850ZAERV(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/)
853ZAERV(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/)
856ZAERV(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/)
859ZAERV(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/)
862ZAERV(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/)
865ZAERV(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/)
868ZAERV(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/)
871ZAERV(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/)
874ZAERV(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/)
877ZAERV(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/)
880ZAERV(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/)
883ZAERV(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/)
886ZAERV(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/)
889ZAERV(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/)
892ZAERV(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/)
895ZAERV(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/)
898ZAERV(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/)
901ZAERV(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/)
904ZAERV(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/)
907ZAERV(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/)
910ZAERV(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/)
913ZAERV(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/)
916ZAERV(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/)
919ZAERV(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/)
922ZAERV(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/)
925ZAERV(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/)
928ZAERV(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/)
931ZAERV(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/)
934ZAERV(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/)
937ZAERV(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/)
940ZAERV(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/)
943ZAERV(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/)
946ZAERV(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/)
949ZAERV(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/)
952ZAERV(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/)
955ZAERV(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/)
958ZAERV(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/)
961ZAERV(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/)
964ZAERV(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/)
967ZAERV(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/)
970ZAERV(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/)
973ZAERV(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/)
976ZAERV(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/)
979ZAERV(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/)
982ZAERV(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/)
985ZAERV(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/)
988ZAERV(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/)
991ZAERV(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/)
994ZAERV(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/)
997ZAERV(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/)
1000ZAERV(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/)
1003ZAERV(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/)
1006ZAERV(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/)
1009ZAERV(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/)
1012ZAERV(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/)
1015ZAERV(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/)
1018ZAERV(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/)
1021ZAERV(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/)
1024ZAERV(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/)
1027ZAERV(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/)
1030ZAERV(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/)
1033ZAERV(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/)
1036ZAERV(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/)
1039ZAERV(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/)
1042ZAERV(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/)
1045ZAERV(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/)
1048ZAERV(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/)
1051ZAERV(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/)
1054ZAERV(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/)
1057ZAERV(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/)
1060ZAERV(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/)
1063ZAERV(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/)
1066ZAERV(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/)
1069ZAERV(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/)
1072ZAERV(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/)
1075ZAERV(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/)
1078ZAERV(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/)
1081ZAERV(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/)
1084ZAERV(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/)
1087ZAERV(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/)
1090ZAERV(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/)
1093ZAERV(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/)
1096ZAERV(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/)
1099ZAERV(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/)
1102ZAERV(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/)
1105ZAERV(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/)
1108ZAERV(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/)
1111ZAERV(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/)
1114ZAERV(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/)
1117ZAERV(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/)
1120ZAERV(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/)
1123ZAERV(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/)
1126ZAERV(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/)
1129ZAERV(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/)
1132ZAERV(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/)
1135ZAERV(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/)
1138ZAERV(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/)
1141ZAERV(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/)
1144ZAERV(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/)
1147ZAERV(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/)
1150ZAERV(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/)
1153ZAERV(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/)
1156ZAERV(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/)
1159ZAERV(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/)
1162ZAERV(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/)
1165ZAERV(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/)
1168ZAERV(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/)
1171ZAERV(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/)
1174ZAERV(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/)
1177ZAERV(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/)
1180ZAERV(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/)
1183ZAERV(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/)
1186ZAERV(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/)
1189ZAERV(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/)
1192ZAERV(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/)
1195ZAERV(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/)
1198ZAERV(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/)
1201ZAERV(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/)
1204ZAERV(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/)
1207ZAERV(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/)
1210ZAERV(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/)
1213ZAERV(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/)
1216ZAERV(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/)
1219ZAERV(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/)
1222ZAERV(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/)
1225ZAERV(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/)
1228ZAERV(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/)
1231ZAERV(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/)
1234ZAERV(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/)
1237ZAERV(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/)
1240ZAERV(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/)
1243ZAERV(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/)
1246ZAERV(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/)
1249ZAERV(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/)
1252ZAERV(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/)
1255ZAERV(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/)
1258ZAERV(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/)
1261ZAERV(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/)
1264ZAERV(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/)
1267ZAERV(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/)
1270ZAERV(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/)
1273ZAERV(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/)
1276ZAERV(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/)
1279ZAERV(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/)
1282ZAERV(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/)
1285ZAERV(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/)
1288ZAERV(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/)
1291ZAERV(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/)
1294ZAERV(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/)
1297ZAERV(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/)
1300ZAERV(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/)
1303ZAERV(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/)
1306ZAERV(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/)
1309ZAERV(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/)
1312ZAERV(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/)
1315ZAERV(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/)
1318ZAERV(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/)
1321ZAERV(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/)
1324ZAERV(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/)
1327ZAERV(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/)
1330ZAERV(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/)
1333ZAERV(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/)
1336ZAERV(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/)
1339ZAERV(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/)
1342ZAERV(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/)
1345ZAERV(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/)
1348ZAERV(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/)
1351ZAERV(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/)
1354ZAERV(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/)
1357ZAERV(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/)
1360ZAERV(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/)
1363ZAERV(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/)
1366ZAERV(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/)
1369ZAERV(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/)
1372ZAERV(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/)
1375ZAERV(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/)
1378ZAERV(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/)
1381ZAERV(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/)
1384ZAERV(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/)
1387ZAERV(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/)
1390ZAERV(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/)
1393ZAERV(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/)
1396ZAERV(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/)
1399ZAERV(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/)
1402ZAERV(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/)
1405ZAERV(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/)
1408ZAERV(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/)
1411ZAERV(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/)
1414ZAERV(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/)
1417ZAERV(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/)
1420ZAERV(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/)
1423ZAERV(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/)
1426ZAERV(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/)
1429ZAERV(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/)
1432ZAERV(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/)
1435ZAERV(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/)
1438ZAERV(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/)
1441ZAERV(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/)
1444ZAERV(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/)
1447ZAERV(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/)
1450ZAERV(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/)
1453ZAERV(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/)
1456ZAERV(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/)
1459ZAERV(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/)
1462ZAERV(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/)
1465ZAERV(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/)
1468ZAERV(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/)
1471ZAERV(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/)
1474ZAERV(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/)
1477ZAERV(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/)
1480ZAERV(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/)
1483ZAERV(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/)
1486ZAERV(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/)
1489ZAERV(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/)
1492ZAERV(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/)
1495ZAERV(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/)
1498ZAERV(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/)
1501ZAERV(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/)
1504ZAERV(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/)
1507ZAERV(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/)
1510ZAERV(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/)
1513ZAERV(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/)
1516ZAERV(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/)
1519ZAERV(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/)
1522ZAERV(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/)
1525ZAERV(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/)
1528ZAERV(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/)
1531ZAERV(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/)
1534ZAERV(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/)
1537ZAERV(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/)
1540ZAERV(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/)
1543ZAERV(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/)
1546ZAERV(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/)
1549ZAERV(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/)
1552ZAERV(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/)
1555ZAERV(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/)
1558ZAERV(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/)
1561ZAERV(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/)
1564ZAERV(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/)
1567ZAERV(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/)
1570ZAERV(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/)
1573ZAERV(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/)
1576ZAERV(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/)
1579ZAERV(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/)
1582ZAERV(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/)
1585ZAERV(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/)
1588ZAERV(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/)
1591ZAERV(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/)
1594ZAERV(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/)
1597ZAERV(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/)
1600ZAERV(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/)
1603ZAERV(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/)
1606ZAERV(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/)
1609ZAERV(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/)
1612ZAERV(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/)
1615ZAERV(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/)
1618ZAERV(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/)
1621ZAERV(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/)
1624ZAERV(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/)
1627ZAERV(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/)
1630ZAERV(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/)
1633ZAERV(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/)
1636ZAERV(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/)
1639ZAERV(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/)
1642ZAERV(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/)
1645ZAERV(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/)
1648ZAERV(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/)
1651ZAERV(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/)
1654ZAERV(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/)
1657ZAERV(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/)
1660ZAERV(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/)
1663ZAERV(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/)
1666ZAERV(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/)
1669ZAERV(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/)
1672ZAERV(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/)
1675ZAERV(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/)
1678ZAERV(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/)
1681ZAERV(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/)
1684ZAERV(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/)
1687ZAERV(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/)
1690ZAERV(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/)
1693ZAERV(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/)
1696ZAERV(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/)
1699ZAERV(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/)
1702ZAERV(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/)
1705ZAERV(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/)
1708ZAERV(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/)
1711ZAERV(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/)
1714ZAERV(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/)
1717ZAERV(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/)
1720ZAERV(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/)
1723ZAERV(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/)
1726ZAERV(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/)
1729ZAERV(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/)
1732ZAERV(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/)
1735ZAERV(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/)
1738ZAERV(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/)
1741ZAERV(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/)
1744ZAERV(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/)
1747ZAERV(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/)
1750ZAERV(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/)
1753ZAERV(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/)
1756ZAERV(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/)
1759ZAERV(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/)
1762ZAERV(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/)
1765ZAERV(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/)
1768ZAERV(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/)
1771ZAERV(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/)
1774ZAERV(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/)
1777ZAERV(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/)
1780ZAERV(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/)
1783ZAERV(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/)
1786ZAERV(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/)
1789ZAERV(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/)
1792ZAERV(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/)
1795ZAERV(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/)
1798ZAERV(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/)
1801ZAERV(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/)
1804ZAERV(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/)
1807ZAERV(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/)
1810ZAERV(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/)
1813ZAERV(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/)
1816ZAERV(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/)
1819ZAERV(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/)
1822ZAERV(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/)
1825ZAERV(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/)
1828ZAERV(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/)
1831ZAERV(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/)
1834ZAERV(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/)
1837ZAERV(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/)
1840ZAERV(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/)
1843ZAERV(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/)
1846ZAERV(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/)
1849ZAERV(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
1864IDY=NDD(KINDAT)-1
1865IMN=NMM(KINDAT)
1866IF (IMN == 1) THEN
1867  ZXTIME=REAL(IDY)*1440._JPRB + KMINUT
1868ELSEIF (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
1872ELSE
1873  ZXTIME=(ZMDAY(IMN-1)+REAL(IDY))*1440._JPRB+KMINUT
1874ENDIF
1875! 525960=MINUTES IN A SIDERAL YEAR (365.25d)
1876ZXTIME=MOD(ZXTIME,525960._JPRB)
1877
1878IM1=0
1879IM2=0
1880IF (ZXTIME <= ZYTIME(1)) THEN
1881  IM1=12
1882  IM2=1
1883  ZTIMI=(ZYTIME(1)-ZXTIME)/44640._JPRB
1884ELSEIF(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
1889ELSE
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
1902ENDIF
1903
1904
1905!*         1.2    TIME INDEX WITHIN GISS VOLCANIC AEROSOL CLIMATOLOGY
1906!                 ---------------------------------------------------
1907
1908IYR=NCCAA(KINDAT)
1909IMN=NMM(KINDAT)
1910IDY=NDD(KINDAT)
1911IF (IMN == 1.AND.IDY <= 15) THEN
1912  IYR1=IYR-1
1913  IYR2=IYR
1914ELSEIF (IMN == 12.AND.IDY > 15) THEN
1915  IYR1=IYR
1916  IYR2=IYR+1
1917ELSE
1918  IYR1=IYR
1919  IYR2=IYR
1920ENDIF
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
1931DO JI=1,46
1932  ZLATT(JI)=90._JPRB-(JI-1)*4._JPRB
1933  RSINCT(JI)=SIN(ZLATT(JI)*RPI/180._JPRB)
1934ENDDO
1935
1936DO 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
1949ENDDO
1950
1951
1952
1953!*         2.2    VOLCANIC AEROSOL CLIMATOLOGY
1954!                 ----------------------------
1955
1956GRID=4._JPRB
1957DO 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
1975ENDDO
1976
1977!-- security for aerosol optical thickness
1978REPAER=1.E-12_JPRB
1979
1980
1981!     ------------------------------------------------------------------
1982
1983RETURN
1984END SUBROUTINE SUECAEC
Note: See TracBrowser for help on using the repository browser.