Context Navigation

← Previous Revision
Latest Revision
Next Revision →
Blame
Revision Log

suecaec.F90 @ 3895

Last change on this file since 3895 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

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

Note: See TracBrowser for help on using the repository browser.

Download in other formats:

Original Format