source: LMDZ6/trunk/libf/phymar/suecozc.F90 @ 3416

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

Inclusion de la physique de MAR


Integration of MAR physics

File size: 115.3 KB
Line 
1SUBROUTINE SUECOZC ( KINDAT, KMINUT )
2
3
4!**** *SUECOZC* - DEFINES CLIMATOLOGICAL DISTRIBUTION OF OZONE
5!                 (FORTUIN LANGEMATZ CLIMATOLOGY OF OZONE)
6
7!     PURPOSE.
8!     --------
9
10!**   INTERFACE.
11!     ----------
12!        CALL *SUECOZC* FROM *UPDTIM*
13
14!        EXPLICIT ARGUMENTS :
15!        --------------------
16!     ==== INPUTS ===
17!     ==== OUTPUTS ===
18! ROZT    :                : AMOUNT OF OZONE (KG/KG)
19
20
21!        IMPLICIT ARGUMENTS :   NONE
22!        --------------------
23
24!     METHOD.
25!     -------
26
27
28!     EXTERNALS.
29!     ----------
30
31!          NONE
32
33!     REFERENCE.
34!     ----------
35
36!        SEE RADIATION'S PART OF THE MODEL'S DOCUMENTATION AND
37!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE "I.F.S"
38
39!     AUTHOR.
40!     -------
41!     J.-J. MORCRETTE  E.C.M.W.F.    95/01/25
42
43!     MODIFICATIONS.
44!     --------------
45!     JJMorcrette 971117 Cy18
46!-----------------------------------------------------------------------
47
48#include "tsmbkind.h"
49
50USE YOMCST   , ONLY : RPI      ,RDAY
51USE YOERDI   , ONLY : RO3
52USE YOEOZOC  , ONLY : RSINC    ,ROZT     ,RPROC
53
54
55IMPLICIT NONE
56
57
58!     DUMMY INTEGER SCALARS
59INTEGER_M :: KINDAT
60INTEGER_M :: KMINUT
61
62
63
64
65!     -----------------------------------------------------------------
66
67!*       0.1   ARGUMENTS.
68!              ----------
69
70
71!*       0.2   LOCAL ARRAYS.
72!              -------------
73
74REAL_B :: ZOZCL(19,34,12)
75REAL_B :: ZYTIME(12), ZMDAY(12)
76
77!     LOCAL INTEGER SCALARS
78INTEGER_M :: IDY, IM, IM1, IM2, IMN, JK, JL
79
80!     LOCAL REAL SCALARS
81REAL_B :: ZTIMI, ZXTIME
82
83
84#include "fcttim.h"     
85!     ------------------------------------------------------------------
86
87ZMDAY = (/&
88      &31._JPRB,    59.25_JPRB,  90.25_JPRB, 120.25_JPRB, 151.25_JPRB, 181.25_JPRB &
89  &,  212.25_JPRB, 243.25_JPRB, 273.25_JPRB, 304.25_JPRB, 334.25_JPRB, 365.25_JPRB &
90        &/)
91ZYTIME= (/&
92     &22320._JPRB,  64980._JPRB, 107640._JPRB, 151560._JPRB, 195480._JPRB, 239400._JPRB &
93  &, 283320._JPRB, 327960._JPRB, 371880._JPRB, 415800._JPRB, 459720._JPRB, 503640._JPRB &
94        &/)
95
96!* Ozone climatological mixing ratio (ppmv)
97!        from Langematz and Fortuin
98
99! Month:  1
100ZOZCL(:, 1, 1) = (/&
101 &0.5500_JPRB, 0.5500_JPRB, 0.7200_JPRB, 0.8000_JPRB, 0.7700_JPRB, 0.7000_JPRB, 0.6300_JPRB, 0.5600_JPRB,&
102 &0.5300_JPRB, 0.5300_JPRB, 0.5200_JPRB, 0.5200_JPRB, 0.6600_JPRB, 0.8100_JPRB, 0.8400_JPRB, 0.8300_JPRB,&
103 &0.7700_JPRB, 0.7200_JPRB, 0.7200_JPRB /)
104ZOZCL(:, 2, 1) = (/&
105 &0.2500_JPRB, 0.2500_JPRB, 0.3500_JPRB, 0.4500_JPRB, 0.5100_JPRB, 0.4900_JPRB, 0.4600_JPRB, 0.4300_JPRB,&
106 &0.4200_JPRB, 0.4100_JPRB, 0.3800_JPRB, 0.3500_JPRB, 0.4100_JPRB, 0.5000_JPRB, 0.5200_JPRB, 0.5000_JPRB,&
107 &0.4600_JPRB, 0.4300_JPRB, 0.4300_JPRB /)
108ZOZCL(:, 3, 1) = (/&
109 &0.1800_JPRB, 0.1800_JPRB, 0.2100_JPRB, 0.2800_JPRB, 0.3500_JPRB, 0.3600_JPRB, 0.3600_JPRB, 0.3700_JPRB,&
110 &0.3800_JPRB, 0.3900_JPRB, 0.3700_JPRB, 0.3200_JPRB, 0.3000_JPRB, 0.3100_JPRB, 0.3000_JPRB, 0.2700_JPRB,&
111 &0.2500_JPRB, 0.2300_JPRB, 0.2300_JPRB /)
112ZOZCL(:, 4, 1) = (/&
113 &0.1500_JPRB, 0.1500_JPRB, 0.1500_JPRB, 0.1700_JPRB, 0.2200_JPRB, 0.2300_JPRB, 0.2500_JPRB, 0.2800_JPRB,&
114 &0.3100_JPRB, 0.3200_JPRB, 0.3400_JPRB, 0.3200_JPRB, 0.2800_JPRB, 0.2300_JPRB, 0.1900_JPRB, 0.1400_JPRB,&
115 &0.1300_JPRB, 0.1200_JPRB, 0.1200_JPRB /)
116ZOZCL(:, 5, 1) = (/&
117 &0.1600_JPRB, 0.1600_JPRB, 0.1500_JPRB, 0.1400_JPRB, 0.1600_JPRB, 0.1500_JPRB, 0.1600_JPRB, 0.1900_JPRB,&
118 &0.2000_JPRB, 0.2100_JPRB, 0.2300_JPRB, 0.2700_JPRB, 0.2800_JPRB, 0.2600_JPRB, 0.2300_JPRB, 0.1700_JPRB,&
119 &0.1600_JPRB, 0.1500_JPRB, 0.1500_JPRB /)
120ZOZCL(:, 6, 1) = (/&
121 &0.1700_JPRB, 0.1700_JPRB, 0.1600_JPRB, 0.1500_JPRB, 0.1400_JPRB, 0.1400_JPRB, 0.1300_JPRB, 0.1400_JPRB,&
122 &0.1600_JPRB, 0.1600_JPRB, 0.1700_JPRB, 0.2100_JPRB, 0.2500_JPRB, 0.2700_JPRB, 0.2800_JPRB, 0.2400_JPRB,&
123 &0.2200_JPRB, 0.2100_JPRB, 0.2100_JPRB /)
124ZOZCL(:, 7, 1) = (/&
125 &0.2100_JPRB, 0.2100_JPRB, 0.1900_JPRB, 0.1700_JPRB, 0.1700_JPRB, 0.1500_JPRB, 0.1400_JPRB, 0.1500_JPRB,&
126 &0.1500_JPRB, 0.1500_JPRB, 0.1600_JPRB, 0.1700_JPRB, 0.1900_JPRB, 0.2400_JPRB, 0.3200_JPRB, 0.3700_JPRB,&
127 &0.3400_JPRB, 0.3200_JPRB, 0.3200_JPRB /)
128ZOZCL(:, 8, 1) = (/&
129 &0.3100_JPRB, 0.3100_JPRB, 0.2800_JPRB, 0.2600_JPRB, 0.2500_JPRB, 0.2400_JPRB, 0.2200_JPRB, 0.2200_JPRB,&
130 &0.2200_JPRB, 0.2300_JPRB, 0.2300_JPRB, 0.2400_JPRB, 0.2700_JPRB, 0.3000_JPRB, 0.3700_JPRB, 0.4700_JPRB,&
131 &0.4300_JPRB, 0.4100_JPRB, 0.4100_JPRB /)
132ZOZCL(:, 9, 1) = (/&
133 &0.4100_JPRB, 0.4100_JPRB, 0.3800_JPRB, 0.3700_JPRB, 0.3600_JPRB, 0.3400_JPRB, 0.3200_JPRB, 0.3100_JPRB,&
134 &0.3200_JPRB, 0.3200_JPRB, 0.3200_JPRB, 0.3400_JPRB, 0.4100_JPRB, 0.4600_JPRB, 0.4900_JPRB, 0.5300_JPRB,&
135 &0.4900_JPRB, 0.4600_JPRB, 0.4600_JPRB /)
136ZOZCL(:,10, 1) = (/&
137 &0.5400_JPRB, 0.5400_JPRB, 0.5200_JPRB, 0.5100_JPRB, 0.4900_JPRB, 0.4800_JPRB, 0.4800_JPRB, 0.4900_JPRB,&
138 &0.4900_JPRB, 0.4700_JPRB, 0.4600_JPRB, 0.4900_JPRB, 0.5200_JPRB, 0.6900_JPRB, 0.6900_JPRB, 0.6700_JPRB,&
139 &0.6200_JPRB, 0.5800_JPRB, 0.5800_JPRB /)
140ZOZCL(:,11, 1) = (/&
141 &0.7500_JPRB, 0.7500_JPRB, 0.7400_JPRB, 0.7300_JPRB, 0.7300_JPRB, 0.7400_JPRB, 0.7500_JPRB, 0.7400_JPRB,&
142 &0.7100_JPRB, 0.6800_JPRB, 0.6800_JPRB, 0.6900_JPRB, 0.7500_JPRB, 0.7900_JPRB, 1.0100_JPRB, 0.9300_JPRB,&
143 &0.8600_JPRB, 0.8000_JPRB, 0.8000_JPRB /)
144ZOZCL(:,12, 1) = (/&
145 &0.8900_JPRB, 0.8900_JPRB, 0.9000_JPRB, 0.9200_JPRB, 0.9200_JPRB, 0.9600_JPRB, 0.9800_JPRB, 0.9600_JPRB,&
146 &0.9200_JPRB, 0.8900_JPRB, 0.8900_JPRB, 0.9200_JPRB, 0.9900_JPRB, 1.0300_JPRB, 1.2800_JPRB, 1.1900_JPRB,&
147 &1.1000_JPRB, 1.0300_JPRB, 1.0300_JPRB /)
148ZOZCL(:,13, 1) = (/&
149 &1.1300_JPRB, 1.1300_JPRB, 1.1700_JPRB, 1.2100_JPRB, 1.2500_JPRB, 1.3200_JPRB, 1.3700_JPRB, 1.3500_JPRB,&
150 &1.3000_JPRB, 1.2600_JPRB, 1.2700_JPRB, 1.3300_JPRB, 1.4200_JPRB, 1.4800_JPRB, 1.7700_JPRB, 1.6300_JPRB,&
151 &1.5000_JPRB, 1.4100_JPRB, 1.4100_JPRB /)
152ZOZCL(:,14, 1) = (/&
153 &1.4100_JPRB, 1.4100_JPRB, 1.5000_JPRB, 1.6200_JPRB, 1.7500_JPRB, 1.8600_JPRB, 1.9300_JPRB, 1.9100_JPRB,&
154 &1.8500_JPRB, 1.8300_JPRB, 1.8400_JPRB, 1.8800_JPRB, 1.9900_JPRB, 2.1600_JPRB, 2.2600_JPRB, 2.0700_JPRB,&
155 &1.9100_JPRB, 1.7800_JPRB, 1.7800_JPRB /)
156ZOZCL(:,15, 1) = (/&
157 &1.6600_JPRB, 1.6600_JPRB, 1.7900_JPRB, 1.9700_JPRB, 2.1400_JPRB, 2.2800_JPRB, 2.3600_JPRB, 2.3500_JPRB,&
158 &2.3000_JPRB, 2.2900_JPRB, 2.2900_JPRB, 2.3100_JPRB, 2.4500_JPRB, 2.7100_JPRB, 2.8000_JPRB, 2.7000_JPRB,&
159 &2.3600_JPRB, 2.2200_JPRB, 2.2200_JPRB /)
160ZOZCL(:,16, 1) = (/&
161 &2.1500_JPRB, 2.1500_JPRB, 2.2800_JPRB, 2.4600_JPRB, 2.6300_JPRB, 2.8200_JPRB, 2.9700_JPRB, 3.0300_JPRB,&
162 &3.0300_JPRB, 3.0400_JPRB, 3.0500_JPRB, 3.1000_JPRB, 3.3300_JPRB, 3.6700_JPRB, 3.7500_JPRB, 3.5500_JPRB,&
163 &3.0400_JPRB, 2.8900_JPRB, 2.8900_JPRB /)
164ZOZCL(:,17, 1) = (/&
165 &2.9900_JPRB, 2.9900_JPRB, 3.0700_JPRB, 3.2600_JPRB, 3.4300_JPRB, 3.6700_JPRB, 3.9200_JPRB, 4.1000_JPRB,&
166 &4.1900_JPRB, 4.2300_JPRB, 4.2800_JPRB, 4.4200_JPRB, 4.7400_JPRB, 5.0500_JPRB, 5.0400_JPRB, 4.6500_JPRB,&
167 &3.9800_JPRB, 3.7500_JPRB, 3.7500_JPRB /)
168
169ZOZCL(:,18, 1) = (/&
170 &3.9200_JPRB, 3.9200_JPRB, 3.9600_JPRB, 4.1700_JPRB, 4.3800_JPRB, 4.6600_JPRB, 4.9500_JPRB, 5.2000_JPRB,&
171 &5.3500_JPRB, 5.4000_JPRB, 5.4600_JPRB, 5.6000_JPRB, 5.8700_JPRB, 6.0300_JPRB, 5.8800_JPRB, 5.3300_JPRB,&
172 &4.6500_JPRB, 4.3400_JPRB, 4.3400_JPRB /)
173ZOZCL(:,19, 1) = (/&
174 &5.4500_JPRB, 5.4500_JPRB, 5.4800_JPRB, 5.7700_JPRB, 6.1300_JPRB, 6.4800_JPRB, 6.8200_JPRB, 7.1300_JPRB,&
175 &7.3400_JPRB, 7.3500_JPRB, 7.3100_JPRB, 7.2700_JPRB, 7.2100_JPRB, 7.0400_JPRB, 6.6400_JPRB, 5.9600_JPRB,&
176 &5.3400_JPRB, 5.0600_JPRB, 5.0600_JPRB /)
177ZOZCL(:,20, 1) = (/&
178 &5.9900_JPRB, 5.9900_JPRB, 6.0600_JPRB, 6.7300_JPRB, 7.3900_JPRB, 8.0400_JPRB, 8.5500_JPRB, 8.9100_JPRB,&
179 &9.2500_JPRB, 8.9400_JPRB, 8.7000_JPRB, 8.3200_JPRB, 7.7900_JPRB, 7.3100_JPRB, 6.7000_JPRB, 6.1400_JPRB,&
180 &5.5500_JPRB, 5.3900_JPRB, 5.3900_JPRB /)
181ZOZCL(:,21, 1) = (/&
182 &5.4900_JPRB, 5.4900_JPRB, 5.7400_JPRB, 6.7300_JPRB, 7.6100_JPRB, 8.3800_JPRB, 8.9400_JPRB, 9.3700_JPRB,&
183 &9.8400_JPRB, 9.5400_JPRB, 9.0200_JPRB, 8.2900_JPRB, 7.6000_JPRB, 7.0100_JPRB, 6.3500_JPRB, 6.0200_JPRB,&
184 &5.3700_JPRB, 5.2700_JPRB, 5.2700_JPRB /)
185ZOZCL(:,22, 1) = (/&
186 &4.6200_JPRB, 4.6200_JPRB, 5.1400_JPRB, 6.2500_JPRB, 7.2600_JPRB, 8.0600_JPRB, 8.6200_JPRB, 9.1000_JPRB,&
187 &9.7500_JPRB, 9.6500_JPRB, 8.9000_JPRB, 7.8900_JPRB, 7.1200_JPRB, 6.5200_JPRB, 5.9100_JPRB, 5.8300_JPRB,&
188 &5.0100_JPRB, 4.9100_JPRB, 4.9100_JPRB /)
189ZOZCL(:,23, 1) = (/&
190 &3.8600_JPRB, 3.8600_JPRB, 4.3700_JPRB, 5.5300_JPRB, 6.4200_JPRB, 7.0900_JPRB, 7.4500_JPRB, 7.7700_JPRB,&
191 &8.1700_JPRB, 8.1200_JPRB, 7.5600_JPRB, 6.8500_JPRB, 6.4300_JPRB, 6.1000_JPRB, 5.7400_JPRB, 5.5200_JPRB,&
192 &4.6200_JPRB, 4.4500_JPRB, 4.4500_JPRB /)
193ZOZCL(:,24, 1) = (/&
194 &3.5200_JPRB, 3.5200_JPRB, 3.9800_JPRB, 5.0200_JPRB, 5.7300_JPRB, 6.1700_JPRB, 6.3200_JPRB, 6.4600_JPRB,&
195 &6.6000_JPRB, 6.4900_JPRB, 6.1600_JPRB, 5.8800_JPRB, 5.8200_JPRB, 5.7600_JPRB, 5.5700_JPRB, 5.1900_JPRB,&
196 &4.3400_JPRB, 4.1400_JPRB, 4.1400_JPRB /)
197ZOZCL(:,25, 1) = (/&
198 &3.1583_JPRB, 3.1583_JPRB, 3.4234_JPRB, 4.0208_JPRB, 4.4000_JPRB, 4.5357_JPRB, 4.5075_JPRB, 4.4100_JPRB,&
199 &4.0617_JPRB, 3.9694_JPRB, 4.0400_JPRB, 4.0400_JPRB, 4.6674_JPRB, 4.9255_JPRB, 5.0897_JPRB, 4.7433_JPRB,&
200 &4.0426_JPRB, 3.8076_JPRB, 3.8076_JPRB /)
201ZOZCL(:,26, 1) = (/&
202 &2.7966_JPRB, 2.7966_JPRB, 2.9248_JPRB, 2.8100_JPRB, 2.7300_JPRB, 2.2675_JPRB, 1.8250_JPRB, 1.7800_JPRB,&
203 &1.4507_JPRB, 1.4660_JPRB, 1.4200_JPRB, 1.7600_JPRB, 2.2840_JPRB, 3.0940_JPRB, 3.4392_JPRB, 3.3920_JPRB,&
204 &3.1930_JPRB, 3.0524_JPRB, 3.0524_JPRB /)
205ZOZCL(:,27, 1) = (/&
206 &2.0098_JPRB, 2.0098_JPRB, 1.9997_JPRB, 1.9061_JPRB, 1.7000_JPRB, 1.0890_JPRB, 0.6650_JPRB, 0.7000_JPRB,&
207 &0.4262_JPRB, 0.4404_JPRB, 0.5600_JPRB, 0.7400_JPRB, 0.9924_JPRB, 1.7507_JPRB, 2.1023_JPRB, 2.6257_JPRB,&
208 &2.1653_JPRB, 2.3068_JPRB, 2.3068_JPRB /)
209ZOZCL(:,28, 1) = (/&
210 &1.0717_JPRB, 1.0717_JPRB, 0.9591_JPRB, 0.9040_JPRB, 0.4530_JPRB, 0.3100_JPRB, 0.1690_JPRB, 0.1608_JPRB,&
211 &0.1179_JPRB, 0.1440_JPRB, 0.1650_JPRB, 0.1439_JPRB, 0.2560_JPRB, 0.8109_JPRB, 1.0131_JPRB, 1.6720_JPRB,&
212 &1.2675_JPRB, 1.6752_JPRB, 1.6752_JPRB /)
213ZOZCL(:,29, 1) = (/&
214 &0.4372_JPRB, 0.4372_JPRB, 0.4127_JPRB, 0.3820_JPRB, 0.1893_JPRB, 0.1654_JPRB, 0.0933_JPRB, 0.0885_JPRB,&
215 &0.0626_JPRB, 0.0781_JPRB, 0.0923_JPRB, 0.0892_JPRB, 0.0999_JPRB, 0.4074_JPRB, 0.5184_JPRB, 0.8047_JPRB,&
216 &0.5976_JPRB, 0.7238_JPRB, 0.7238_JPRB /)
217ZOZCL(:,30, 1) = (/&
218 &0.3147_JPRB, 0.3147_JPRB, 0.2824_JPRB, 0.2924_JPRB, 0.1360_JPRB, 0.0735_JPRB, 0.0805_JPRB, 0.0748_JPRB,&
219 &0.0441_JPRB, 0.0555_JPRB, 0.0608_JPRB, 0.0650_JPRB, 0.0710_JPRB, 0.2430_JPRB, 0.2822_JPRB, 0.4525_JPRB,&
220 &0.3080_JPRB, 0.3950_JPRB, 0.3950_JPRB /)
221ZOZCL(:,31, 1) = (/&
222 &0.0827_JPRB, 0.0827_JPRB, 0.0859_JPRB, 0.1133_JPRB, 0.0513_JPRB, 0.0565_JPRB, 0.0620_JPRB, 0.0574_JPRB,&
223 &0.0367_JPRB, 0.0479_JPRB, 0.0467_JPRB, 0.0498_JPRB, 0.0609_JPRB, 0.0785_JPRB, 0.0848_JPRB, 0.1037_JPRB,&
224 &0.0876_JPRB, 0.1068_JPRB, 0.1068_JPRB /)
225ZOZCL(:,32, 1) = (/&
226 &0.0266_JPRB, 0.0266_JPRB, 0.0351_JPRB, 0.0262_JPRB, 0.0320_JPRB, 0.0417_JPRB, 0.0518_JPRB, 0.0495_JPRB,&
227 &0.0445_JPRB, 0.0492_JPRB, 0.0342_JPRB, 0.0469_JPRB, 0.0435_JPRB, 0.0447_JPRB, 0.0486_JPRB, 0.0466_JPRB,&
228 &0.0475_JPRB, 0.0488_JPRB, 0.0488_JPRB /)
229ZOZCL(:,33, 1) = (/&
230 &0.0173_JPRB, 0.0173_JPRB, 0.0252_JPRB, 0.0169_JPRB, 0.0233_JPRB, 0.0311_JPRB, 0.0424_JPRB, 0.0399_JPRB,&
231 &0.0274_JPRB, 0.0313_JPRB, 0.0293_JPRB, 0.0409_JPRB, 0.0403_JPRB, 0.0393_JPRB, 0.0406_JPRB, 0.0419_JPRB,&
232 &0.0408_JPRB, 0.0404_JPRB, 0.0404_JPRB /)
233ZOZCL(:,34, 1) = (/&
234 &0.0173_JPRB, 0.0173_JPRB, 0.0252_JPRB, 0.0169_JPRB, 0.0233_JPRB, 0.0311_JPRB, 0.0424_JPRB, 0.0399_JPRB,&
235 &0.0274_JPRB, 0.0313_JPRB, 0.0293_JPRB, 0.0409_JPRB, 0.0403_JPRB, 0.0393_JPRB, 0.0406_JPRB, 0.0419_JPRB,&
236 &0.0408_JPRB, 0.0404_JPRB, 0.0404_JPRB /)
237
238! Month:  2
239ZOZCL(:, 1, 2) = (/&
240 &0.4300_JPRB, 0.4300_JPRB, 0.5600_JPRB, 0.6400_JPRB, 0.6400_JPRB, 0.6000_JPRB, 0.5700_JPRB, 0.6000_JPRB,&
241 &0.6900_JPRB, 0.7300_JPRB, 0.7000_JPRB, 0.6500_JPRB, 0.6300_JPRB, 0.6600_JPRB, 0.7300_JPRB, 0.7500_JPRB,&
242 &0.7700_JPRB, 0.7400_JPRB, 0.7400_JPRB /)
243ZOZCL(:, 2, 2) = (/&
244 &0.2100_JPRB, 0.2100_JPRB, 0.2900_JPRB, 0.3700_JPRB, 0.3900_JPRB, 0.3800_JPRB, 0.3900_JPRB, 0.4400_JPRB,&
245 &0.4700_JPRB, 0.4700_JPRB, 0.4700_JPRB, 0.4400_JPRB, 0.4200_JPRB, 0.4200_JPRB, 0.4300_JPRB, 0.4100_JPRB,&
246 &0.3700_JPRB, 0.3600_JPRB, 0.3600_JPRB /)
247ZOZCL(:, 3, 2) = (/&
248 &0.1400_JPRB, 0.1400_JPRB, 0.1800_JPRB, 0.2400_JPRB, 0.2800_JPRB, 0.3000_JPRB, 0.3500_JPRB, 0.4100_JPRB,&
249 &0.4200_JPRB, 0.4200_JPRB, 0.4200_JPRB, 0.3900_JPRB, 0.3300_JPRB, 0.3000_JPRB, 0.2700_JPRB, 0.2300_JPRB,&
250 &0.1800_JPRB, 0.1700_JPRB, 0.1700_JPRB /)
251ZOZCL(:, 4, 2) = (/&
252 &0.1300_JPRB, 0.1300_JPRB, 0.1400_JPRB, 0.1600_JPRB, 0.1900_JPRB, 0.2300_JPRB, 0.2900_JPRB, 0.3400_JPRB,&
253 &0.3500_JPRB, 0.3600_JPRB, 0.3800_JPRB, 0.3800_JPRB, 0.3300_JPRB, 0.2700_JPRB, 0.2200_JPRB, 0.1700_JPRB,&
254 &0.1200_JPRB, 0.1200_JPRB, 0.1200_JPRB /)
255ZOZCL(:, 5, 2) = (/&
256 &0.1400_JPRB, 0.1400_JPRB, 0.1300_JPRB, 0.1400_JPRB, 0.1400_JPRB, 0.1600_JPRB, 0.1800_JPRB, 0.2100_JPRB,&
257 &0.2200_JPRB, 0.2300_JPRB, 0.2600_JPRB, 0.3000_JPRB, 0.3200_JPRB, 0.3100_JPRB, 0.2800_JPRB, 0.2400_JPRB,&
258 &0.2000_JPRB, 0.1900_JPRB, 0.1900_JPRB /)
259ZOZCL(:, 6, 2) = (/&
260 &0.1500_JPRB, 0.1500_JPRB, 0.1500_JPRB, 0.1400_JPRB, 0.1400_JPRB, 0.1300_JPRB, 0.1400_JPRB, 0.1500_JPRB,&
261 &0.1600_JPRB, 0.1700_JPRB, 0.1800_JPRB, 0.2100_JPRB, 0.2600_JPRB, 0.3000_JPRB, 0.3100_JPRB, 0.3000_JPRB,&
262 &0.2700_JPRB, 0.2600_JPRB, 0.2600_JPRB /)
263ZOZCL(:, 7, 2) = (/&
264 &0.2000_JPRB, 0.2000_JPRB, 0.1900_JPRB, 0.1800_JPRB, 0.1700_JPRB, 0.1500_JPRB, 0.1500_JPRB, 0.1500_JPRB,&
265 &0.1600_JPRB, 0.1600_JPRB, 0.1600_JPRB, 0.1700_JPRB, 0.1900_JPRB, 0.2300_JPRB, 0.2800_JPRB, 0.3500_JPRB,&
266 &0.3800_JPRB, 0.3600_JPRB, 0.3600_JPRB /)
267ZOZCL(:, 8, 2) = (/&
268 &0.3000_JPRB, 0.3000_JPRB, 0.2900_JPRB, 0.2800_JPRB, 0.2600_JPRB, 0.2400_JPRB, 0.2400_JPRB, 0.2300_JPRB,&
269 &0.2300_JPRB, 0.2300_JPRB, 0.2400_JPRB, 0.2500_JPRB, 0.2700_JPRB, 0.2900_JPRB, 0.3200_JPRB, 0.3900_JPRB,&
270 &0.4600_JPRB, 0.4400_JPRB, 0.4400_JPRB /)
271ZOZCL(:, 9, 2) = (/&
272 &0.4000_JPRB, 0.4000_JPRB, 0.4000_JPRB, 0.4000_JPRB, 0.3800_JPRB, 0.3600_JPRB, 0.3400_JPRB, 0.3300_JPRB,&
273 &0.3200_JPRB, 0.3100_JPRB, 0.3200_JPRB, 0.3600_JPRB, 0.4000_JPRB, 0.4300_JPRB, 0.4500_JPRB, 0.4700_JPRB,&
274 &0.5200_JPRB, 0.5000_JPRB, 0.5000_JPRB /)
275ZOZCL(:,10, 2) = (/&
276 &0.5600_JPRB, 0.5600_JPRB, 0.5400_JPRB, 0.5300_JPRB, 0.5100_JPRB, 0.5000_JPRB, 0.5000_JPRB, 0.5000_JPRB,&
277 &0.5000_JPRB, 0.4800_JPRB, 0.4600_JPRB, 0.4700_JPRB, 0.5100_JPRB, 0.5200_JPRB, 0.6400_JPRB, 0.6300_JPRB,&
278 &0.6300_JPRB, 0.6100_JPRB, 0.6100_JPRB /)
279ZOZCL(:,11, 2) = (/&
280 &0.7600_JPRB, 0.7600_JPRB, 0.7500_JPRB, 0.7500_JPRB, 0.7700_JPRB, 0.7800_JPRB, 0.7700_JPRB, 0.7500_JPRB,&
281 &0.7300_JPRB, 0.7100_JPRB, 0.7000_JPRB, 0.7000_JPRB, 0.7100_JPRB, 0.7200_JPRB, 0.7500_JPRB, 0.7400_JPRB,&
282 &0.8500_JPRB, 0.8200_JPRB, 0.8200_JPRB /)
283ZOZCL(:,12, 2) = (/&
284 &0.9200_JPRB, 0.9200_JPRB, 0.9200_JPRB, 0.9400_JPRB, 0.9700_JPRB, 1.0100_JPRB, 1.0100_JPRB, 0.9800_JPRB,&
285 &0.9400_JPRB, 0.9200_JPRB, 0.9100_JPRB, 0.9300_JPRB, 0.9400_JPRB, 0.9500_JPRB, 0.9500_JPRB, 0.9300_JPRB,&
286 &1.0400_JPRB, 1.0000_JPRB, 1.0000_JPRB /)
287ZOZCL(:,13, 2) = (/&
288 &1.2000_JPRB, 1.2000_JPRB, 1.2200_JPRB, 1.2600_JPRB, 1.3100_JPRB, 1.3900_JPRB, 1.4100_JPRB, 1.3600_JPRB,&
289 &1.3000_JPRB, 1.2900_JPRB, 1.3000_JPRB, 1.3400_JPRB, 1.3700_JPRB, 1.3700_JPRB, 1.3500_JPRB, 1.3200_JPRB,&
290 &1.5000_JPRB, 1.4400_JPRB, 1.4400_JPRB /)
291ZOZCL(:,14, 2) = (/&
292 &1.5900_JPRB, 1.5900_JPRB, 1.6300_JPRB, 1.7300_JPRB, 1.8300_JPRB, 1.9300_JPRB, 1.9600_JPRB, 1.9000_JPRB,&
293 &1.8300_JPRB, 1.8200_JPRB, 1.8500_JPRB, 1.8800_JPRB, 1.9400_JPRB, 2.0200_JPRB, 2.1400_JPRB, 2.2200_JPRB,&
294 &2.2500_JPRB, 2.1600_JPRB, 2.1600_JPRB /)
295ZOZCL(:,15, 2) = (/&
296 &2.0000_JPRB, 2.0000_JPRB, 2.0100_JPRB, 2.1200_JPRB, 2.2500_JPRB, 2.3700_JPRB, 2.4200_JPRB, 2.3400_JPRB,&
297 &2.2400_JPRB, 2.2200_JPRB, 2.2500_JPRB, 2.2900_JPRB, 2.4000_JPRB, 2.6000_JPRB, 2.8600_JPRB, 2.9800_JPRB,&
298 &2.9500_JPRB, 2.6000_JPRB, 2.6000_JPRB /)
299ZOZCL(:,16, 2) = (/&
300 &2.7300_JPRB, 2.7300_JPRB, 2.6800_JPRB, 2.7300_JPRB, 2.8600_JPRB, 3.0000_JPRB, 3.0900_JPRB, 3.0300_JPRB,&
301 &2.9000_JPRB, 2.8600_JPRB, 2.9100_JPRB, 3.0200_JPRB, 3.2400_JPRB, 3.5800_JPRB, 3.9300_JPRB, 4.0000_JPRB,&
302 &3.8000_JPRB, 3.2200_JPRB, 3.2200_JPRB /)
303ZOZCL(:,17, 2) = (/&
304 &3.8100_JPRB, 3.8100_JPRB, 3.7100_JPRB, 3.7100_JPRB, 3.8100_JPRB, 3.9700_JPRB, 4.1100_JPRB, 4.1000_JPRB,&
305 &3.9500_JPRB, 3.8700_JPRB, 3.9800_JPRB, 4.2000_JPRB, 4.5800_JPRB, 5.1000_JPRB, 5.3800_JPRB, 5.2200_JPRB,&
306 &4.7900_JPRB, 4.1100_JPRB, 4.1100_JPRB /)
307
308ZOZCL(:,18, 2) = (/&
309 &4.6500_JPRB, 4.6500_JPRB, 4.6100_JPRB, 4.6800_JPRB, 4.8000_JPRB, 4.9800_JPRB, 5.1500_JPRB, 5.1700_JPRB,&
310 &5.0500_JPRB, 4.9900_JPRB, 5.0900_JPRB, 5.3000_JPRB, 5.7300_JPRB, 6.2400_JPRB, 6.2900_JPRB, 5.9200_JPRB,&
311 &5.4100_JPRB, 4.8200_JPRB, 4.8200_JPRB /)
312ZOZCL(:,19, 2) = (/&
313 &5.5900_JPRB, 5.5900_JPRB, 5.8400_JPRB, 6.1600_JPRB, 6.4200_JPRB, 6.6800_JPRB, 6.9100_JPRB, 7.0300_JPRB,&
314 &7.0800_JPRB, 7.0500_JPRB, 7.0400_JPRB, 7.0900_JPRB, 7.3700_JPRB, 7.4500_JPRB, 7.0400_JPRB, 6.4700_JPRB,&
315 &6.0700_JPRB, 5.6900_JPRB, 5.6900_JPRB /)
316ZOZCL(:,20, 2) = (/&
317 &5.5100_JPRB, 5.5100_JPRB, 6.2800_JPRB, 6.7600_JPRB, 7.5800_JPRB, 8.0500_JPRB, 8.5100_JPRB, 8.9700_JPRB,&
318 &9.3600_JPRB, 9.2400_JPRB, 8.9200_JPRB, 8.7000_JPRB, 8.3300_JPRB, 7.7400_JPRB, 7.0600_JPRB, 6.4900_JPRB,&
319 &6.4200_JPRB, 6.3000_JPRB, 6.3000_JPRB /)
320ZOZCL(:,21, 2) = (/&
321 &4.8400_JPRB, 4.8400_JPRB, 5.7800_JPRB, 6.5500_JPRB, 7.6000_JPRB, 8.2800_JPRB, 8.9000_JPRB, 9.5400_JPRB,&
322 &10.1000_JPRB,10.0400_JPRB, 9.5400_JPRB, 8.9100_JPRB, 8.1200_JPRB, 7.3500_JPRB, 6.7200_JPRB, 6.3100_JPRB,&
323 &6.4600_JPRB, 6.3100_JPRB, 6.3100_JPRB /)
324ZOZCL(:,22, 2) = (/&
325 &3.9800_JPRB, 3.9800_JPRB, 4.8400_JPRB, 5.9100_JPRB, 7.0800_JPRB, 7.9400_JPRB, 8.6700_JPRB, 9.4300_JPRB,&
326 &10.0300_JPRB,10.1400_JPRB, 9.5200_JPRB, 8.5500_JPRB, 7.4700_JPRB, 6.7300_JPRB, 6.2600_JPRB, 6.1500_JPRB,&
327 &6.4200_JPRB, 6.0700_JPRB, 6.0700_JPRB /)
328ZOZCL(:,23, 2) = (/&
329 &3.3900_JPRB, 3.3900_JPRB, 4.0800_JPRB, 5.1000_JPRB, 6.1900_JPRB, 6.9700_JPRB, 7.5100_JPRB, 8.0200_JPRB,&
330 &8.3900_JPRB, 8.4300_JPRB, 7.9400_JPRB, 7.2600_JPRB, 6.6300_JPRB, 6.2100_JPRB, 5.9800_JPRB, 6.0100_JPRB,&
331 &6.0600_JPRB, 5.7200_JPRB, 5.7200_JPRB /)
332ZOZCL(:,24, 2) = (/&
333 &3.2200_JPRB, 3.2200_JPRB, 3.7800_JPRB, 4.6000_JPRB, 5.4900_JPRB, 6.0500_JPRB, 6.3400_JPRB, 6.5800_JPRB,&
334 &6.6900_JPRB, 6.6400_JPRB, 6.3600_JPRB, 6.0900_JPRB, 5.9300_JPRB, 5.8200_JPRB, 5.7800_JPRB, 5.8000_JPRB,&
335 &5.5400_JPRB, 5.3000_JPRB, 5.3000_JPRB /)
336ZOZCL(:,25, 2) = (/&
337 &3.0003_JPRB, 3.0003_JPRB, 3.5474_JPRB, 3.1658_JPRB, 4.1800_JPRB, 4.3948_JPRB, 4.4725_JPRB, 4.3000_JPRB,&
338 &4.3085_JPRB, 4.2517_JPRB, 4.0900_JPRB, 4.2500_JPRB, 4.7925_JPRB, 5.0370_JPRB, 5.0522_JPRB, 5.6167_JPRB,&
339 &5.0366_JPRB, 4.8128_JPRB, 4.8128_JPRB /)
340ZOZCL(:,26, 2) = (/&
341 &2.7806_JPRB, 2.7806_JPRB, 2.8474_JPRB, 2.4030_JPRB, 2.5500_JPRB, 2.1512_JPRB, 1.8790_JPRB, 1.7200_JPRB,&
342 &1.3503_JPRB, 1.2765_JPRB, 1.4200_JPRB, 2.0100_JPRB, 2.4662_JPRB, 3.2013_JPRB, 3.5803_JPRB, 4.0760_JPRB,&
343 &3.5538_JPRB, 3.3464_JPRB, 3.3464_JPRB /)
344ZOZCL(:,27, 2) = (/&
345 &2.0816_JPRB, 2.0816_JPRB, 2.0919_JPRB, 1.6632_JPRB, 1.6600_JPRB, 1.0644_JPRB, 0.6293_JPRB, 0.6900_JPRB,&
346 &0.4460_JPRB, 0.4129_JPRB, 0.5400_JPRB, 0.7800_JPRB, 1.0097_JPRB, 1.8169_JPRB, 2.2099_JPRB, 2.6986_JPRB,&
347 &2.5496_JPRB, 2.7674_JPRB, 2.7674_JPRB /)
348ZOZCL(:,28, 2) = (/&
349 &1.1115_JPRB, 1.1115_JPRB, 1.0466_JPRB, 0.8470_JPRB, 0.4340_JPRB, 0.3083_JPRB, 0.1470_JPRB, 0.1402_JPRB,&
350 &0.0730_JPRB, 0.1244_JPRB, 0.1460_JPRB, 0.1402_JPRB, 0.2737_JPRB, 0.8487_JPRB, 1.1139_JPRB, 1.6160_JPRB,&
351 &1.5777_JPRB, 1.7738_JPRB, 1.7738_JPRB /)
352ZOZCL(:,29, 2) = (/&
353 &0.4523_JPRB, 0.4523_JPRB, 0.4153_JPRB, 0.2980_JPRB, 0.1827_JPRB, 0.1452_JPRB, 0.0900_JPRB, 0.0857_JPRB,&
354 &0.0410_JPRB, 0.0631_JPRB, 0.0707_JPRB, 0.0789_JPRB, 0.1307_JPRB, 0.5048_JPRB, 0.6104_JPRB, 0.7773_JPRB,&
355 &0.7942_JPRB, 0.9243_JPRB, 0.9243_JPRB /)
356ZOZCL(:,30, 2) = (/&
357 &0.3011_JPRB, 0.3011_JPRB, 0.2841_JPRB, 0.2348_JPRB, 0.1190_JPRB, 0.0620_JPRB, 0.0770_JPRB, 0.0732_JPRB,&
358 &0.0302_JPRB, 0.0446_JPRB, 0.0515_JPRB, 0.0643_JPRB, 0.0864_JPRB, 0.3351_JPRB, 0.3536_JPRB, 0.5345_JPRB,&
359 &0.4412_JPRB, 0.4547_JPRB, 0.4547_JPRB /)
360ZOZCL(:,31, 2) = (/&
361 &0.1151_JPRB, 0.1151_JPRB, 0.0983_JPRB, 0.1083_JPRB, 0.0503_JPRB, 0.0461_JPRB, 0.0730_JPRB, 0.0698_JPRB,&
362 &0.0308_JPRB, 0.0374_JPRB, 0.0450_JPRB, 0.0457_JPRB, 0.0681_JPRB, 0.0962_JPRB, 0.0882_JPRB, 0.1167_JPRB,&
363 &0.1221_JPRB, 0.1011_JPRB, 0.1011_JPRB /)
364ZOZCL(:,32, 2) = (/&
365 &0.0214_JPRB, 0.0214_JPRB, 0.0319_JPRB, 0.0236_JPRB, 0.0360_JPRB, 0.0395_JPRB, 0.0518_JPRB, 0.0499_JPRB,&
366 &0.0277_JPRB, 0.0309_JPRB, 0.0322_JPRB, 0.0447_JPRB, 0.0439_JPRB, 0.0484_JPRB, 0.0503_JPRB, 0.0484_JPRB,&
367 &0.0507_JPRB, 0.0452_JPRB, 0.0452_JPRB /)
368ZOZCL(:,33, 2) = (/&
369 &0.0172_JPRB, 0.0172_JPRB, 0.0237_JPRB, 0.0167_JPRB, 0.0269_JPRB, 0.0359_JPRB, 0.0436_JPRB, 0.0416_JPRB,&
370 &0.0222_JPRB, 0.0309_JPRB, 0.0286_JPRB, 0.0397_JPRB, 0.0397_JPRB, 0.0434_JPRB, 0.0428_JPRB, 0.0423_JPRB,&
371 &0.0434_JPRB, 0.0392_JPRB, 0.0392_JPRB /)
372ZOZCL(:,34, 2) = (/&
373 &0.0172_JPRB, 0.0172_JPRB, 0.0237_JPRB, 0.0167_JPRB, 0.0269_JPRB, 0.0359_JPRB, 0.0436_JPRB, 0.0416_JPRB,&
374 &0.0222_JPRB, 0.0309_JPRB, 0.0286_JPRB, 0.0397_JPRB, 0.0397_JPRB, 0.0434_JPRB, 0.0428_JPRB, 0.0423_JPRB,&
375 &0.0434_JPRB, 0.0392_JPRB, 0.0392_JPRB /)
376
377! Month:  3
378ZOZCL(:, 1, 3) = (/&
379 &0.3700_JPRB, 0.3700_JPRB, 0.5800_JPRB, 0.6600_JPRB, 0.6800_JPRB, 0.7400_JPRB, 0.8200_JPRB, 0.8100_JPRB,&
380 &0.7400_JPRB, 0.6900_JPRB, 0.7100_JPRB, 0.7600_JPRB, 0.7600_JPRB, 0.6800_JPRB, 0.5800_JPRB, 0.5700_JPRB,&
381 &0.6000_JPRB, 0.6100_JPRB, 0.6100_JPRB /)
382ZOZCL(:, 2, 3) = (/&
383 &0.2100_JPRB, 0.2100_JPRB, 0.2800_JPRB, 0.3100_JPRB, 0.3800_JPRB, 0.4800_JPRB, 0.5300_JPRB, 0.5200_JPRB,&
384 &0.4700_JPRB, 0.4400_JPRB, 0.4600_JPRB, 0.4900_JPRB, 0.4800_JPRB, 0.4200_JPRB, 0.3500_JPRB, 0.3300_JPRB,&
385 &0.3100_JPRB, 0.2700_JPRB, 0.2700_JPRB /)
386ZOZCL(:, 3, 3) = (/&
387 &0.1500_JPRB, 0.1500_JPRB, 0.2100_JPRB, 0.2400_JPRB, 0.3000_JPRB, 0.3800_JPRB, 0.4300_JPRB, 0.4300_JPRB,&
388 &0.4100_JPRB, 0.4000_JPRB, 0.4100_JPRB, 0.4200_JPRB, 0.4100_JPRB, 0.3600_JPRB, 0.3000_JPRB, 0.2600_JPRB,&
389 &0.2200_JPRB, 0.1600_JPRB, 0.1600_JPRB /)
390ZOZCL(:, 4, 3) = (/&
391 &0.1200_JPRB, 0.1200_JPRB, 0.1900_JPRB, 0.2200_JPRB, 0.2600_JPRB, 0.3300_JPRB, 0.3800_JPRB, 0.3700_JPRB,&
392 &0.3400_JPRB, 0.3200_JPRB, 0.3400_JPRB, 0.3700_JPRB, 0.3900_JPRB, 0.3800_JPRB, 0.3400_JPRB, 0.2800_JPRB,&
393 &0.2200_JPRB, 0.1500_JPRB, 0.1500_JPRB /)
394ZOZCL(:, 5, 3) = (/&
395 &0.1200_JPRB, 0.1200_JPRB, 0.1500_JPRB, 0.1600_JPRB, 0.2000_JPRB, 0.2400_JPRB, 0.2500_JPRB, 0.2300_JPRB,&
396 &0.2100_JPRB, 0.2000_JPRB, 0.2200_JPRB, 0.2600_JPRB, 0.3200_JPRB, 0.3800_JPRB, 0.3900_JPRB, 0.3500_JPRB,&
397 &0.3100_JPRB, 0.2300_JPRB, 0.2300_JPRB /)
398ZOZCL(:, 6, 3) = (/&
399 &0.1500_JPRB, 0.1500_JPRB, 0.1500_JPRB, 0.1400_JPRB, 0.1500_JPRB, 0.1700_JPRB, 0.1700_JPRB, 0.1600_JPRB,&
400 &0.1500_JPRB, 0.1600_JPRB, 0.1600_JPRB, 0.1900_JPRB, 0.2400_JPRB, 0.3200_JPRB, 0.3800_JPRB, 0.3900_JPRB,&
401 &0.3700_JPRB, 0.3100_JPRB, 0.3100_JPRB /)
402ZOZCL(:, 7, 3) = (/&
403 &0.2000_JPRB, 0.2000_JPRB, 0.1800_JPRB, 0.1700_JPRB, 0.1500_JPRB, 0.1400_JPRB, 0.1500_JPRB, 0.1700_JPRB,&
404 &0.1700_JPRB, 0.1700_JPRB, 0.1700_JPRB, 0.1700_JPRB, 0.1800_JPRB, 0.2300_JPRB, 0.2900_JPRB, 0.3700_JPRB,&
405 &0.4300_JPRB, 0.4100_JPRB, 0.4100_JPRB /)
406ZOZCL(:, 8, 3) = (/&
407 &0.3000_JPRB, 0.3000_JPRB, 0.3000_JPRB, 0.2800_JPRB, 0.2700_JPRB, 0.2500_JPRB, 0.2500_JPRB, 0.2500_JPRB,&
408 &0.2400_JPRB, 0.2300_JPRB, 0.2400_JPRB, 0.2500_JPRB, 0.2600_JPRB, 0.2800_JPRB, 0.3000_JPRB, 0.3700_JPRB,&
409 &0.4600_JPRB, 0.4800_JPRB, 0.4800_JPRB /)
410ZOZCL(:, 9, 3) = (/&
411 &0.4000_JPRB, 0.4000_JPRB, 0.4000_JPRB, 0.4100_JPRB, 0.4000_JPRB, 0.3800_JPRB, 0.3500_JPRB, 0.3400_JPRB,&
412 &0.3200_JPRB, 0.3100_JPRB, 0.3200_JPRB, 0.3600_JPRB, 0.3900_JPRB, 0.4100_JPRB, 0.4300_JPRB, 0.4600_JPRB,&
413 &0.5000_JPRB, 0.5200_JPRB, 0.5200_JPRB /)
414ZOZCL(:,10, 3) = (/&
415 &0.5500_JPRB, 0.5500_JPRB, 0.5400_JPRB, 0.5300_JPRB, 0.5200_JPRB, 0.5100_JPRB, 0.5000_JPRB, 0.5100_JPRB,&
416 &0.5000_JPRB, 0.4800_JPRB, 0.4700_JPRB, 0.4800_JPRB, 0.4900_JPRB, 0.5200_JPRB, 0.5400_JPRB, 0.5500_JPRB,&
417 &0.5700_JPRB, 0.6100_JPRB, 0.6100_JPRB /)
418ZOZCL(:,11, 3) = (/&
419 &0.7900_JPRB, 0.7900_JPRB, 0.7600_JPRB, 0.7700_JPRB, 0.7800_JPRB, 0.7700_JPRB, 0.7500_JPRB, 0.7500_JPRB,&
420 &0.7400_JPRB, 0.7300_JPRB, 0.7200_JPRB, 0.7100_JPRB, 0.7200_JPRB, 0.7400_JPRB, 0.7400_JPRB, 0.7300_JPRB,&
421 &0.7400_JPRB, 0.7500_JPRB, 0.7500_JPRB /)
422ZOZCL(:,12, 3) = (/&
423 &0.9900_JPRB, 0.9900_JPRB, 0.9700_JPRB, 0.9800_JPRB, 1.0000_JPRB, 0.9900_JPRB, 0.9700_JPRB, 0.9600_JPRB,&
424 &0.9600_JPRB, 0.9500_JPRB, 0.9400_JPRB, 0.9300_JPRB, 0.9200_JPRB, 0.9400_JPRB, 0.9400_JPRB, 0.9000_JPRB,&
425 &0.9100_JPRB, 0.9300_JPRB, 0.9300_JPRB /)
426ZOZCL(:,13, 3) = (/&
427 &1.3300_JPRB, 1.3300_JPRB, 1.3500_JPRB, 1.3600_JPRB, 1.3800_JPRB, 1.3900_JPRB, 1.3700_JPRB, 1.3300_JPRB,&
428 &1.3300_JPRB, 1.3400_JPRB, 1.3300_JPRB, 1.3200_JPRB, 1.3200_JPRB, 1.3300_JPRB, 1.3200_JPRB, 1.2800_JPRB,&
429 &1.2900_JPRB, 1.3500_JPRB, 1.3500_JPRB /)
430ZOZCL(:,14, 3) = (/&
431 &1.9700_JPRB, 1.9700_JPRB, 1.9600_JPRB, 1.9200_JPRB, 1.9300_JPRB, 1.9500_JPRB, 1.9200_JPRB, 1.8900_JPRB,&
432 &1.8800_JPRB, 1.8900_JPRB, 1.8900_JPRB, 1.9200_JPRB, 1.9400_JPRB, 1.9400_JPRB, 1.9600_JPRB, 2.0200_JPRB,&
433 &2.1200_JPRB, 2.2700_JPRB, 2.2700_JPRB /)
434ZOZCL(:,15, 3) = (/&
435 &2.8200_JPRB, 2.8200_JPRB, 2.5800_JPRB, 2.4200_JPRB, 2.4000_JPRB, 2.4000_JPRB, 2.3700_JPRB, 2.3200_JPRB,&
436 &2.3000_JPRB, 2.3000_JPRB, 2.3100_JPRB, 2.3500_JPRB, 2.4100_JPRB, 2.4200_JPRB, 2.5000_JPRB, 2.6800_JPRB,&
437 &2.8900_JPRB, 3.0000_JPRB, 3.0000_JPRB /)
438ZOZCL(:,16, 3) = (/&
439 &3.8600_JPRB, 3.8600_JPRB, 3.6200_JPRB, 3.3000_JPRB, 3.2000_JPRB, 3.1700_JPRB, 3.1100_JPRB, 2.9900_JPRB,&
440 &2.9000_JPRB, 2.8800_JPRB, 2.9200_JPRB, 3.0300_JPRB, 3.1700_JPRB, 3.2700_JPRB, 3.4500_JPRB, 3.7500_JPRB,&
441 &3.9600_JPRB, 3.9300_JPRB, 3.9300_JPRB /)
442ZOZCL(:,17, 3) = (/&
443 &5.0100_JPRB, 5.0100_JPRB, 5.0400_JPRB, 4.6600_JPRB, 4.4600_JPRB, 4.3600_JPRB, 4.2800_JPRB, 4.0600_JPRB,&
444 &3.8300_JPRB, 3.7700_JPRB, 3.8600_JPRB, 4.1000_JPRB, 4.3900_JPRB, 4.6700_JPRB, 5.0200_JPRB, 5.3300_JPRB,&
445 &5.3200_JPRB, 5.0000_JPRB, 5.0000_JPRB /)
446
447ZOZCL(:,18, 3) = (/&
448 &5.4100_JPRB, 5.4100_JPRB, 5.8000_JPRB, 5.6800_JPRB, 5.5300_JPRB, 5.4500_JPRB, 5.3700_JPRB, 5.1200_JPRB,&
449 &4.8000_JPRB, 4.7100_JPRB, 4.8500_JPRB, 5.1500_JPRB, 5.5100_JPRB, 5.9200_JPRB, 6.2800_JPRB, 6.4200_JPRB,&
450 &6.1800_JPRB, 5.7400_JPRB, 5.7400_JPRB /)
451ZOZCL(:,19, 3) = (/&
452 &5.3900_JPRB, 5.3900_JPRB, 6.2600_JPRB, 6.7600_JPRB, 6.9300_JPRB, 7.0000_JPRB, 7.0600_JPRB, 6.9300_JPRB,&
453 &6.6000_JPRB, 6.4800_JPRB, 6.6300_JPRB, 6.9100_JPRB, 7.2100_JPRB, 7.6100_JPRB, 7.7300_JPRB, 7.4100_JPRB,&
454 &6.8800_JPRB, 6.4900_JPRB, 6.4900_JPRB /)
455ZOZCL(:,20, 3) = (/&
456 &5.0800_JPRB, 5.0800_JPRB, 6.0500_JPRB, 6.8800_JPRB, 7.5300_JPRB, 7.9800_JPRB, 8.4100_JPRB, 8.7200_JPRB,&
457 &8.8900_JPRB, 8.7600_JPRB, 8.6400_JPRB, 8.5200_JPRB, 8.4500_JPRB, 8.4200_JPRB, 7.9600_JPRB, 7.2500_JPRB,&
458 &6.6500_JPRB, 6.5000_JPRB, 6.5000_JPRB /)
459ZOZCL(:,21, 3) = (/&
460 &4.6500_JPRB, 4.6500_JPRB, 5.4000_JPRB, 6.4000_JPRB, 7.3000_JPRB, 7.9900_JPRB, 8.6900_JPRB, 9.3100_JPRB,&
461 &9.8800_JPRB, 9.9200_JPRB, 9.5300_JPRB, 9.0600_JPRB, 8.6000_JPRB, 8.0800_JPRB, 7.4200_JPRB, 6.7000_JPRB,&
462 &6.2800_JPRB, 6.3000_JPRB, 6.3000_JPRB /)
463ZOZCL(:,22, 3) = (/&
464 &4.0900_JPRB, 4.0900_JPRB, 4.5200_JPRB, 5.6100_JPRB, 6.6400_JPRB, 7.5300_JPRB, 8.4300_JPRB, 9.2700_JPRB,&
465 &10.1800_JPRB,10.4300_JPRB, 9.8000_JPRB, 9.0300_JPRB, 8.1800_JPRB, 7.3100_JPRB, 6.6500_JPRB, 6.1500_JPRB,&
466 &6.0300_JPRB, 6.1800_JPRB, 6.1800_JPRB /)
467ZOZCL(:,23, 3) = (/&
468 &3.7300_JPRB, 3.7300_JPRB, 3.9800_JPRB, 4.8800_JPRB, 5.8300_JPRB, 6.6300_JPRB, 7.3900_JPRB, 8.0300_JPRB,&
469 &8.6500_JPRB, 8.8000_JPRB, 8.3400_JPRB, 7.8100_JPRB, 7.1800_JPRB, 6.4600_JPRB, 6.0500_JPRB, 5.8200_JPRB,&
470 &5.8600_JPRB, 5.9500_JPRB, 5.9500_JPRB /)
471ZOZCL(:,24, 3) = (/&
472 &3.6100_JPRB, 3.6100_JPRB, 3.8500_JPRB, 4.4800_JPRB, 5.2200_JPRB, 5.8100_JPRB, 6.2800_JPRB, 6.6300_JPRB,&
473 &6.9400_JPRB, 6.9800_JPRB, 6.7600_JPRB, 6.5900_JPRB, 6.3300_JPRB, 5.9100_JPRB, 5.6800_JPRB, 5.6600_JPRB,&
474 &5.6800_JPRB, 5.5800_JPRB, 5.5800_JPRB /)
475ZOZCL(:,25, 3) = (/&
476 &3.1224_JPRB, 3.1224_JPRB, 3.6151_JPRB, 3.7775_JPRB, 4.1300_JPRB, 4.3723_JPRB, 4.4483_JPRB, 4.4100_JPRB,&
477 &4.1969_JPRB, 4.0694_JPRB, 4.1500_JPRB, 4.4000_JPRB, 4.8127_JPRB, 4.9401_JPRB, 4.9680_JPRB, 5.3133_JPRB,&
478 &5.0041_JPRB, 4.9122_JPRB, 4.9122_JPRB /)
479ZOZCL(:,26, 3) = (/&
480 &2.6334_JPRB, 2.6334_JPRB, 2.7121_JPRB, 2.6930_JPRB, 2.5200_JPRB, 2.2178_JPRB, 1.8100_JPRB, 1.7700_JPRB,&
481 &1.4103_JPRB, 1.4057_JPRB, 1.6100_JPRB, 2.0200_JPRB, 2.5684_JPRB, 3.3099_JPRB, 3.5610_JPRB, 3.9360_JPRB,&
482 &3.8361_JPRB, 4.1727_JPRB, 4.1727_JPRB /)
483ZOZCL(:,27, 3) = (/&
484 &2.0332_JPRB, 2.0332_JPRB, 1.9125_JPRB, 1.8489_JPRB, 1.6700_JPRB, 1.1312_JPRB, 0.5907_JPRB, 0.7700_JPRB,&
485 &0.4366_JPRB, 0.4548_JPRB, 0.6900_JPRB, 0.8800_JPRB, 1.1434_JPRB, 1.9708_JPRB, 2.2482_JPRB, 2.6371_JPRB,&
486 &2.6979_JPRB, 3.0926_JPRB, 3.0926_JPRB /)
487ZOZCL(:,28, 3) = (/&
488 &1.1385_JPRB, 1.1385_JPRB, 0.9831_JPRB, 0.8470_JPRB, 0.4810_JPRB, 0.3561_JPRB, 0.1400_JPRB, 0.1253_JPRB,&
489 &0.0974_JPRB, 0.1627_JPRB, 0.2000_JPRB, 0.1653_JPRB, 0.3618_JPRB, 0.9371_JPRB, 1.0914_JPRB, 1.5090_JPRB,&
490 &1.6604_JPRB, 2.0711_JPRB, 2.0711_JPRB /)
491ZOZCL(:,29, 3) = (/&
492 &0.4663_JPRB, 0.4663_JPRB, 0.4136_JPRB, 0.2400_JPRB, 0.1867_JPRB, 0.1333_JPRB, 0.0967_JPRB, 0.0849_JPRB,&
493 &0.0506_JPRB, 0.0800_JPRB, 0.1020_JPRB, 0.0796_JPRB, 0.1820_JPRB, 0.5252_JPRB, 0.6249_JPRB, 0.8747_JPRB,&
494 &0.8605_JPRB, 1.1893_JPRB, 1.1893_JPRB /)
495ZOZCL(:,30, 3) = (/&
496 &0.2737_JPRB, 0.2737_JPRB, 0.2403_JPRB, 0.1800_JPRB, 0.1205_JPRB, 0.0946_JPRB, 0.0740_JPRB, 0.0662_JPRB,&
497 &0.0375_JPRB, 0.0530_JPRB, 0.0740_JPRB, 0.0561_JPRB, 0.1221_JPRB, 0.3503_JPRB, 0.3935_JPRB, 0.5720_JPRB,&
498 &0.5387_JPRB, 0.6621_JPRB, 0.6621_JPRB /)
499ZOZCL(:,31, 3) = (/&
500 &0.0813_JPRB, 0.0813_JPRB, 0.0808_JPRB, 0.0600_JPRB, 0.0493_JPRB, 0.0642_JPRB, 0.0617_JPRB, 0.0560_JPRB,&
501 &0.0363_JPRB, 0.0436_JPRB, 0.0510_JPRB, 0.0466_JPRB, 0.0676_JPRB, 0.0846_JPRB, 0.0938_JPRB, 0.1320_JPRB,&
502 &0.1410_JPRB, 0.1591_JPRB, 0.1591_JPRB /)
503ZOZCL(:,32, 3) = (/&
504 &0.0285_JPRB, 0.0285_JPRB, 0.0364_JPRB, 0.0294_JPRB, 0.0320_JPRB, 0.0354_JPRB, 0.0586_JPRB, 0.0538_JPRB,&
505 &0.0366_JPRB, 0.0472_JPRB, 0.0610_JPRB, 0.0460_JPRB, 0.0515_JPRB, 0.0539_JPRB, 0.0573_JPRB, 0.0522_JPRB,&
506 &0.0549_JPRB, 0.0467_JPRB, 0.0467_JPRB /)
507ZOZCL(:,33, 3) = (/&
508 &0.0220_JPRB, 0.0220_JPRB, 0.0279_JPRB, 0.0243_JPRB, 0.0254_JPRB, 0.0318_JPRB, 0.0404_JPRB, 0.0373_JPRB,&
509 &0.0268_JPRB, 0.0363_JPRB, 0.0471_JPRB, 0.0443_JPRB, 0.0465_JPRB, 0.0492_JPRB, 0.0480_JPRB, 0.0470_JPRB,&
510 &0.0471_JPRB, 0.0386_JPRB, 0.0386_JPRB /)
511ZOZCL(:,34, 3) = (/&
512 &0.0220_JPRB, 0.0220_JPRB, 0.0279_JPRB, 0.0243_JPRB, 0.0254_JPRB, 0.0318_JPRB, 0.0404_JPRB, 0.0373_JPRB,&
513 &0.0268_JPRB, 0.0363_JPRB, 0.0471_JPRB, 0.0443_JPRB, 0.0465_JPRB, 0.0492_JPRB, 0.0480_JPRB, 0.0470_JPRB,&
514 &0.0471_JPRB, 0.0386_JPRB, 0.0386_JPRB /)
515
516! Month:  4
517ZOZCL(:, 1, 4) = (/&
518 &0.8500_JPRB, 0.8500_JPRB, 0.8100_JPRB, 0.7700_JPRB, 0.8300_JPRB, 0.9200_JPRB, 0.9300_JPRB, 0.8400_JPRB,&
519 &0.7700_JPRB, 0.7600_JPRB, 0.7900_JPRB, 0.9300_JPRB, 1.0100_JPRB, 0.8300_JPRB, 0.5800_JPRB, 0.5200_JPRB,&
520 &0.5600_JPRB, 0.6300_JPRB, 0.6300_JPRB /)
521ZOZCL(:, 2, 4) = (/&
522 &0.3900_JPRB, 0.3900_JPRB, 0.3700_JPRB, 0.3500_JPRB, 0.4300_JPRB, 0.5400_JPRB, 0.5700_JPRB, 0.5000_JPRB,&
523 &0.4400_JPRB, 0.4300_JPRB, 0.4700_JPRB, 0.6200_JPRB, 0.7200_JPRB, 0.6100_JPRB, 0.4300_JPRB, 0.3600_JPRB,&
524 &0.3800_JPRB, 0.4200_JPRB, 0.4200_JPRB /)
525ZOZCL(:, 3, 4) = (/&
526 &0.2600_JPRB, 0.2600_JPRB, 0.2500_JPRB, 0.2400_JPRB, 0.3200_JPRB, 0.4100_JPRB, 0.4400_JPRB, 0.4100_JPRB,&
527 &0.3900_JPRB, 0.3900_JPRB, 0.4100_JPRB, 0.4900_JPRB, 0.5600_JPRB, 0.5100_JPRB, 0.4100_JPRB, 0.3400_JPRB,&
528 &0.3200_JPRB, 0.3000_JPRB, 0.3000_JPRB /)
529ZOZCL(:, 4, 4) = (/&
530 &0.2800_JPRB, 0.2800_JPRB, 0.2600_JPRB, 0.2500_JPRB, 0.3000_JPRB, 0.3400_JPRB, 0.3400_JPRB, 0.3400_JPRB,&
531 &0.3500_JPRB, 0.3500_JPRB, 0.3500_JPRB, 0.3800_JPRB, 0.4600_JPRB, 0.4800_JPRB, 0.4400_JPRB, 0.4100_JPRB,&
532 &0.3500_JPRB, 0.2500_JPRB, 0.2500_JPRB /)
533ZOZCL(:, 5, 4) = (/&
534 &0.3100_JPRB, 0.3100_JPRB, 0.2900_JPRB, 0.2800_JPRB, 0.2700_JPRB, 0.2600_JPRB, 0.2200_JPRB, 0.2000_JPRB,&
535 &0.2200_JPRB, 0.2300_JPRB, 0.2200_JPRB, 0.2400_JPRB, 0.3200_JPRB, 0.4100_JPRB, 0.4400_JPRB, 0.4300_JPRB,&
536 &0.3900_JPRB, 0.2900_JPRB, 0.2900_JPRB /)
537ZOZCL(:, 6, 4) = (/&
538 &0.3100_JPRB, 0.3100_JPRB, 0.2900_JPRB, 0.2800_JPRB, 0.2200_JPRB, 0.1900_JPRB, 0.1600_JPRB, 0.1500_JPRB,&
539 &0.1500_JPRB, 0.1600_JPRB, 0.1600_JPRB, 0.1700_JPRB, 0.2300_JPRB, 0.3100_JPRB, 0.3500_JPRB, 0.3700_JPRB,&
540 &0.3700_JPRB, 0.3100_JPRB, 0.3100_JPRB /)
541ZOZCL(:, 7, 4) = (/&
542 &0.2900_JPRB, 0.2900_JPRB, 0.2700_JPRB, 0.2600_JPRB, 0.1800_JPRB, 0.1600_JPRB, 0.1600_JPRB, 0.1700_JPRB,&
543 &0.1600_JPRB, 0.1700_JPRB, 0.1700_JPRB, 0.1700_JPRB, 0.1900_JPRB, 0.2100_JPRB, 0.2300_JPRB, 0.2600_JPRB,&
544 &0.3000_JPRB, 0.3300_JPRB, 0.3300_JPRB /)
545ZOZCL(:, 8, 4) = (/&
546 &0.3500_JPRB, 0.3500_JPRB, 0.3400_JPRB, 0.3200_JPRB, 0.2800_JPRB, 0.2700_JPRB, 0.2600_JPRB, 0.2600_JPRB,&
547 &0.2500_JPRB, 0.2500_JPRB, 0.2500_JPRB, 0.2700_JPRB, 0.2700_JPRB, 0.2800_JPRB, 0.2900_JPRB, 0.3100_JPRB,&
548 &0.3500_JPRB, 0.3900_JPRB, 0.3900_JPRB /)
549ZOZCL(:, 9, 4) = (/&
550 &0.4600_JPRB, 0.4600_JPRB, 0.4400_JPRB, 0.4200_JPRB, 0.4100_JPRB, 0.4000_JPRB, 0.3800_JPRB, 0.3700_JPRB,&
551 &0.3500_JPRB, 0.3400_JPRB, 0.3400_JPRB, 0.3700_JPRB, 0.3800_JPRB, 0.3900_JPRB, 0.4100_JPRB, 0.4300_JPRB,&
552 &0.4600_JPRB, 0.4900_JPRB, 0.4900_JPRB /)
553ZOZCL(:,10, 4) = (/&
554 &0.6200_JPRB, 0.6200_JPRB, 0.5900_JPRB, 0.5600_JPRB, 0.5600_JPRB, 0.5500_JPRB, 0.5400_JPRB, 0.5400_JPRB,&
555 &0.5200_JPRB, 0.5000_JPRB, 0.4900_JPRB, 0.5000_JPRB, 0.4900_JPRB, 0.4900_JPRB, 0.5000_JPRB, 0.5300_JPRB,&
556 &0.5500_JPRB, 0.5600_JPRB, 0.5600_JPRB /)
557ZOZCL(:,11, 4) = (/&
558 &0.8800_JPRB, 0.8800_JPRB, 0.8400_JPRB, 0.8000_JPRB, 0.8100_JPRB, 0.7900_JPRB, 0.7900_JPRB, 0.7900_JPRB,&
559 &0.7800_JPRB, 0.7600_JPRB, 0.7500_JPRB, 0.7500_JPRB, 0.7400_JPRB, 0.7300_JPRB, 0.7300_JPRB, 0.7300_JPRB,&
560 &0.7300_JPRB, 0.7300_JPRB, 0.7300_JPRB /)
561ZOZCL(:,12, 4) = (/&
562 &1.1700_JPRB, 1.1700_JPRB, 1.1100_JPRB, 1.0600_JPRB, 1.0500_JPRB, 1.0100_JPRB, 1.0000_JPRB, 1.0100_JPRB,&
563 &1.0000_JPRB, 0.9800_JPRB, 0.9700_JPRB, 0.9600_JPRB, 0.9500_JPRB, 0.9400_JPRB, 0.9300_JPRB, 0.9100_JPRB,&
564 &0.9000_JPRB, 0.8900_JPRB, 0.8900_JPRB /)
565ZOZCL(:,13, 4) = (/&
566 &1.7000_JPRB, 1.7000_JPRB, 1.6100_JPRB, 1.5400_JPRB, 1.5000_JPRB, 1.4300_JPRB, 1.4000_JPRB, 1.3900_JPRB,&
567 &1.3800_JPRB, 1.3600_JPRB, 1.3500_JPRB, 1.3500_JPRB, 1.3300_JPRB, 1.3200_JPRB, 1.2900_JPRB, 1.2600_JPRB,&
568 &1.2400_JPRB, 1.2400_JPRB, 1.2400_JPRB /)
569ZOZCL(:,14, 4) = (/&
570 &2.5000_JPRB, 2.5000_JPRB, 2.3800_JPRB, 2.2700_JPRB, 2.1700_JPRB, 2.0400_JPRB, 1.9600_JPRB, 1.9300_JPRB,&
571 &1.9400_JPRB, 1.9400_JPRB, 1.9300_JPRB, 1.9400_JPRB, 1.9400_JPRB, 1.8900_JPRB, 1.8400_JPRB, 1.8300_JPRB,&
572 &1.8600_JPRB, 1.9000_JPRB, 1.9000_JPRB /)
573ZOZCL(:,15, 4) = (/&
574 &3.4900_JPRB, 3.4900_JPRB, 3.3400_JPRB, 2.9600_JPRB, 2.7700_JPRB, 2.5600_JPRB, 2.4200_JPRB, 2.3600_JPRB,&
575 &2.3700_JPRB, 2.3700_JPRB, 2.3700_JPRB, 2.4000_JPRB, 2.4100_JPRB, 2.3300_JPRB, 2.2600_JPRB, 2.2800_JPRB,&
576 &2.3700_JPRB, 2.4800_JPRB, 2.4800_JPRB /)
577ZOZCL(:,16, 4) = (/&
578 &4.6400_JPRB, 4.6400_JPRB, 4.6400_JPRB, 4.1900_JPRB, 3.8700_JPRB, 3.5200_JPRB, 3.2500_JPRB, 3.0700_JPRB,&
579 &2.9900_JPRB, 2.9700_JPRB, 2.9900_JPRB, 3.0600_JPRB, 3.1100_JPRB, 3.0300_JPRB, 2.9600_JPRB, 3.0300_JPRB,&
580 &3.1800_JPRB, 3.3500_JPRB, 3.3500_JPRB /)
581ZOZCL(:,17, 4) = (/&
582 &5.5900_JPRB, 5.5900_JPRB, 6.0600_JPRB, 5.8400_JPRB, 5.4800_JPRB, 5.0100_JPRB, 4.5700_JPRB, 4.1600_JPRB,&
583 &3.9300_JPRB, 3.8800_JPRB, 3.9400_JPRB, 4.0800_JPRB, 4.2100_JPRB, 4.1800_JPRB, 4.1600_JPRB, 4.3000_JPRB,&
584 &4.4800_JPRB, 4.5700_JPRB, 4.5700_JPRB /)
585
586ZOZCL(:,18, 4) = (/&
587 &5.6500_JPRB, 5.6500_JPRB, 6.3900_JPRB, 6.6500_JPRB, 6.5100_JPRB, 6.1400_JPRB, 5.7100_JPRB, 5.2300_JPRB,&
588 &4.9000_JPRB, 4.8300_JPRB, 4.9300_JPRB, 5.1300_JPRB, 5.3100_JPRB, 5.3500_JPRB, 5.3900_JPRB, 5.5500_JPRB,&
589 &5.6300_JPRB, 5.4900_JPRB, 5.4900_JPRB /)
590ZOZCL(:,19, 4) = (/&
591 &5.1800_JPRB, 5.1800_JPRB, 5.9800_JPRB, 6.9300_JPRB, 7.3400_JPRB, 7.4000_JPRB, 7.3000_JPRB, 6.9900_JPRB,&
592 &6.5800_JPRB, 6.4900_JPRB, 6.6600_JPRB, 6.9500_JPRB, 7.1200_JPRB, 7.2500_JPRB, 7.3100_JPRB, 7.3000_JPRB,&
593 &7.0200_JPRB, 6.4200_JPRB, 6.4200_JPRB /)
594ZOZCL(:,20, 4) = (/&
595 &4.9400_JPRB, 4.9400_JPRB, 5.5400_JPRB, 6.4800_JPRB, 6.9800_JPRB, 7.8100_JPRB, 8.3300_JPRB, 8.5800_JPRB,&
596 &8.4600_JPRB, 8.4400_JPRB, 8.3600_JPRB, 8.5700_JPRB, 8.5700_JPRB, 8.6400_JPRB, 8.4100_JPRB, 7.6400_JPRB,&
597 &6.9900_JPRB, 6.1400_JPRB, 6.1400_JPRB /)
598ZOZCL(:,21, 4) = (/&
599 &4.6600_JPRB, 4.6600_JPRB, 5.0900_JPRB, 5.9000_JPRB, 6.5300_JPRB, 7.5700_JPRB, 8.4200_JPRB, 9.1000_JPRB,&
600 &9.4700_JPRB, 9.5600_JPRB, 9.3000_JPRB, 9.1100_JPRB, 8.8600_JPRB, 8.5900_JPRB, 8.0400_JPRB, 7.1700_JPRB,&
601 &6.3700_JPRB, 5.6800_JPRB, 5.6800_JPRB /)
602ZOZCL(:,22, 4) = (/&
603 &4.1800_JPRB, 4.1800_JPRB, 4.5000_JPRB, 5.2300_JPRB, 5.8700_JPRB, 6.9900_JPRB, 8.0400_JPRB, 9.0300_JPRB,&
604 &9.9400_JPRB,10.2500_JPRB, 9.7100_JPRB, 9.0500_JPRB, 8.5700_JPRB, 7.9100_JPRB, 7.1600_JPRB, 6.4400_JPRB,&
605 &5.7800_JPRB, 5.4000_JPRB, 5.4000_JPRB /)
606ZOZCL(:,23, 4) = (/&
607 &3.7300_JPRB, 3.7300_JPRB, 4.1500_JPRB, 4.8200_JPRB, 5.3000_JPRB, 6.2100_JPRB, 7.1300_JPRB, 7.9400_JPRB,&
608 &8.6900_JPRB, 8.8900_JPRB, 8.5000_JPRB, 7.9700_JPRB, 7.5700_JPRB, 6.9000_JPRB, 6.2800_JPRB, 5.8000_JPRB,&
609 &5.4000_JPRB, 5.3000_JPRB, 5.3000_JPRB /)
610ZOZCL(:,24, 4) = (/&
611 &3.4600_JPRB, 3.4600_JPRB, 4.0300_JPRB, 4.6300_JPRB, 4.8800_JPRB, 5.5400_JPRB, 6.1700_JPRB, 6.6300_JPRB,&
612 &7.0600_JPRB, 7.1500_JPRB, 7.0200_JPRB, 6.8100_JPRB, 6.6500_JPRB, 6.1900_JPRB, 5.7400_JPRB, 5.4200_JPRB,&
613 &5.2400_JPRB, 5.2600_JPRB, 5.2600_JPRB /)
614ZOZCL(:,25, 4) = (/&
615 &3.0632_JPRB, 3.0632_JPRB, 3.4158_JPRB, 3.5100_JPRB, 4.3100_JPRB, 4.3752_JPRB, 4.5208_JPRB, 4.4600_JPRB,&
616 &4.2765_JPRB, 4.1155_JPRB, 4.5100_JPRB, 4.7700_JPRB, 4.8950_JPRB, 4.9389_JPRB, 4.9170_JPRB, 4.8658_JPRB,&
617 &4.6739_JPRB, 4.4704_JPRB, 4.4704_JPRB /)
618ZOZCL(:,26, 4) = (/&
619 &2.7866_JPRB, 2.7866_JPRB, 2.8827_JPRB, 2.2940_JPRB, 2.3100_JPRB, 2.3000_JPRB, 1.8480_JPRB, 1.7500_JPRB,&
620 &1.4017_JPRB, 1.3223_JPRB, 1.9100_JPRB, 2.1500_JPRB, 2.4873_JPRB, 3.0727_JPRB, 3.3838_JPRB, 3.6860_JPRB,&
621 &3.4798_JPRB, 3.6792_JPRB, 3.6792_JPRB /)
622ZOZCL(:,27, 4) = (/&
623 &2.0170_JPRB, 2.0170_JPRB, 2.1027_JPRB, 1.5043_JPRB, 1.2057_JPRB, 1.2311_JPRB, 0.6146_JPRB, 0.7500_JPRB,&
624 &0.4326_JPRB, 0.4324_JPRB, 0.8300_JPRB, 0.9200_JPRB, 1.0115_JPRB, 1.7445_JPRB, 2.1317_JPRB, 2.5600_JPRB,&
625 &2.4715_JPRB, 2.6507_JPRB, 2.6507_JPRB /)
626ZOZCL(:,28, 4) = (/&
627 &1.0687_JPRB, 1.0687_JPRB, 1.1158_JPRB, 0.8870_JPRB, 0.4880_JPRB, 0.4550_JPRB, 0.1530_JPRB, 0.1371_JPRB,&
628 &0.0946_JPRB, 0.1433_JPRB, 0.2040_JPRB, 0.1863_JPRB, 0.3347_JPRB, 0.8332_JPRB, 1.1081_JPRB, 1.4170_JPRB,&
629 &1.3721_JPRB, 1.5628_JPRB, 1.5628_JPRB /)
630ZOZCL(:,29, 4) = (/&
631 &0.4071_JPRB, 0.4071_JPRB, 0.4014_JPRB, 0.2647_JPRB, 0.1933_JPRB, 0.1891_JPRB, 0.0920_JPRB, 0.0776_JPRB,&
632 &0.0395_JPRB, 0.0654_JPRB, 0.0907_JPRB, 0.0952_JPRB, 0.1664_JPRB, 0.4858_JPRB, 0.6369_JPRB, 0.7840_JPRB,&
633 &0.8782_JPRB, 1.0681_JPRB, 1.0681_JPRB /)
634ZOZCL(:,30, 4) = (/&
635 &0.2599_JPRB, 0.2599_JPRB, 0.2491_JPRB, 0.1898_JPRB, 0.0915_JPRB, 0.0924_JPRB, 0.0690_JPRB, 0.0586_JPRB,&
636 &0.0327_JPRB, 0.0566_JPRB, 0.0740_JPRB, 0.0723_JPRB, 0.1213_JPRB, 0.3358_JPRB, 0.4177_JPRB, 0.5340_JPRB,&
637 &0.6533_JPRB, 0.6759_JPRB, 0.6759_JPRB /)
638ZOZCL(:,31, 4) = (/&
639 &0.0723_JPRB, 0.0723_JPRB, 0.0732_JPRB, 0.0400_JPRB, 0.0433_JPRB, 0.0441_JPRB, 0.0517_JPRB, 0.0451_JPRB,&
640 &0.0301_JPRB, 0.0512_JPRB, 0.0647_JPRB, 0.0615_JPRB, 0.0745_JPRB, 0.0995_JPRB, 0.1084_JPRB, 0.1423_JPRB,&
641 &0.1592_JPRB, 0.1711_JPRB, 0.1711_JPRB /)
642ZOZCL(:,32, 4) = (/&
643 &0.0306_JPRB, 0.0306_JPRB, 0.0345_JPRB, 0.0334_JPRB, 0.0346_JPRB, 0.0344_JPRB, 0.0400_JPRB, 0.0366_JPRB,&
644 &0.0300_JPRB, 0.0491_JPRB, 0.0620_JPRB, 0.0554_JPRB, 0.0574_JPRB, 0.0620_JPRB, 0.0659_JPRB, 0.0626_JPRB,&
645 &0.0634_JPRB, 0.0558_JPRB, 0.0558_JPRB /)
646ZOZCL(:,33, 4) = (/&
647 &0.0251_JPRB, 0.0251_JPRB, 0.0280_JPRB, 0.0281_JPRB, 0.0269_JPRB, 0.0290_JPRB, 0.0376_JPRB, 0.0341_JPRB,&
648 &0.0280_JPRB, 0.0385_JPRB, 0.0357_JPRB, 0.0480_JPRB, 0.0493_JPRB, 0.0564_JPRB, 0.0559_JPRB, 0.0556_JPRB,&
649 &0.0570_JPRB, 0.0493_JPRB, 0.0493_JPRB /)
650ZOZCL(:,34, 4) = (/&
651 &0.0251_JPRB, 0.0251_JPRB, 0.0280_JPRB, 0.0281_JPRB, 0.0269_JPRB, 0.0290_JPRB, 0.0376_JPRB, 0.0341_JPRB,&
652 &0.0280_JPRB, 0.0385_JPRB, 0.0357_JPRB, 0.0480_JPRB, 0.0493_JPRB, 0.0564_JPRB, 0.0559_JPRB, 0.0556_JPRB,&
653 &0.0570_JPRB, 0.0493_JPRB, 0.0493_JPRB /)
654
655! Month:  5
656ZOZCL(:, 1, 5) = (/&
657 &0.9400_JPRB, 0.9400_JPRB, 1.0600_JPRB, 0.9900_JPRB, 0.9900_JPRB, 1.0200_JPRB, 0.9200_JPRB, 0.7500_JPRB,&
658 &0.6500_JPRB, 0.6300_JPRB, 0.6700_JPRB, 0.7500_JPRB, 0.8500_JPRB, 0.8400_JPRB, 0.7400_JPRB, 0.6400_JPRB,&
659 &0.5600_JPRB, 0.4800_JPRB, 0.4800_JPRB /)
660ZOZCL(:, 2, 5) = (/&
661 &0.4800_JPRB, 0.4800_JPRB, 0.5500_JPRB, 0.5100_JPRB, 0.5100_JPRB, 0.5700_JPRB, 0.5300_JPRB, 0.4600_JPRB,&
662 &0.4200_JPRB, 0.4100_JPRB, 0.4300_JPRB, 0.5200_JPRB, 0.6200_JPRB, 0.6300_JPRB, 0.5600_JPRB, 0.4900_JPRB,&
663 &0.4100_JPRB, 0.3300_JPRB, 0.3300_JPRB /)
664ZOZCL(:, 3, 5) = (/&
665 &0.3100_JPRB, 0.3100_JPRB, 0.3500_JPRB, 0.3300_JPRB, 0.3300_JPRB, 0.3800_JPRB, 0.3800_JPRB, 0.4000_JPRB,&
666 &0.4200_JPRB, 0.4300_JPRB, 0.4300_JPRB, 0.4500_JPRB, 0.5000_JPRB, 0.5000_JPRB, 0.4600_JPRB, 0.4100_JPRB,&
667 &0.3300_JPRB, 0.2500_JPRB, 0.2500_JPRB /)
668ZOZCL(:, 4, 5) = (/&
669 &0.2600_JPRB, 0.2600_JPRB, 0.2900_JPRB, 0.2700_JPRB, 0.2600_JPRB, 0.2900_JPRB, 0.3200_JPRB, 0.3700_JPRB,&
670 &0.4100_JPRB, 0.4200_JPRB, 0.4000_JPRB, 0.3800_JPRB, 0.3800_JPRB, 0.3800_JPRB, 0.3500_JPRB, 0.3300_JPRB,&
671 &0.2800_JPRB, 0.2100_JPRB, 0.2100_JPRB /)
672ZOZCL(:, 5, 5) = (/&
673 &0.2300_JPRB, 0.2300_JPRB, 0.2600_JPRB, 0.2400_JPRB, 0.2400_JPRB, 0.2200_JPRB, 0.2300_JPRB, 0.2400_JPRB,&
674 &0.2600_JPRB, 0.2600_JPRB, 0.2500_JPRB, 0.2400_JPRB, 0.2500_JPRB, 0.2500_JPRB, 0.2500_JPRB, 0.2400_JPRB,&
675 &0.2100_JPRB, 0.1900_JPRB, 0.1900_JPRB /)
676ZOZCL(:, 6, 5) = (/&
677 &0.2100_JPRB, 0.2100_JPRB, 0.2400_JPRB, 0.2200_JPRB, 0.2200_JPRB, 0.1800_JPRB, 0.1700_JPRB, 0.1700_JPRB,&
678 &0.1800_JPRB, 0.1700_JPRB, 0.1700_JPRB, 0.1700_JPRB, 0.1900_JPRB, 0.1900_JPRB, 0.2000_JPRB, 0.1900_JPRB,&
679 &0.1900_JPRB, 0.1800_JPRB, 0.1800_JPRB /)
680ZOZCL(:, 7, 5) = (/&
681 &0.2100_JPRB, 0.2100_JPRB, 0.2400_JPRB, 0.2200_JPRB, 0.2200_JPRB, 0.1700_JPRB, 0.1600_JPRB, 0.1600_JPRB,&
682 &0.1600_JPRB, 0.1600_JPRB, 0.1700_JPRB, 0.1700_JPRB, 0.1900_JPRB, 0.1900_JPRB, 0.2000_JPRB, 0.1900_JPRB,&
683 &0.1900_JPRB, 0.2000_JPRB, 0.2000_JPRB /)
684ZOZCL(:, 8, 5) = (/&
685 &0.2800_JPRB, 0.2800_JPRB, 0.3200_JPRB, 0.3000_JPRB, 0.3000_JPRB, 0.2800_JPRB, 0.2800_JPRB, 0.2700_JPRB,&
686 &0.2600_JPRB, 0.2700_JPRB, 0.2700_JPRB, 0.2700_JPRB, 0.2700_JPRB, 0.2800_JPRB, 0.2900_JPRB, 0.2800_JPRB,&
687 &0.2900_JPRB, 0.3100_JPRB, 0.3100_JPRB /)
688ZOZCL(:, 9, 5) = (/&
689 &0.3900_JPRB, 0.3900_JPRB, 0.4400_JPRB, 0.4100_JPRB, 0.4100_JPRB, 0.4100_JPRB, 0.4000_JPRB, 0.3900_JPRB,&
690 &0.3800_JPRB, 0.3800_JPRB, 0.3800_JPRB, 0.3800_JPRB, 0.3700_JPRB, 0.3800_JPRB, 0.3900_JPRB, 0.3900_JPRB,&
691 &0.4000_JPRB, 0.4300_JPRB, 0.4300_JPRB /)
692ZOZCL(:,10, 5) = (/&
693 &0.5600_JPRB, 0.5600_JPRB, 0.6300_JPRB, 0.5900_JPRB, 0.5800_JPRB, 0.5700_JPRB, 0.5600_JPRB, 0.5600_JPRB,&
694 &0.5500_JPRB, 0.5300_JPRB, 0.5300_JPRB, 0.5200_JPRB, 0.5000_JPRB, 0.4900_JPRB, 0.5100_JPRB, 0.5300_JPRB,&
695 &0.5400_JPRB, 0.5400_JPRB, 0.5400_JPRB /)
696ZOZCL(:,11, 5) = (/&
697 &0.8000_JPRB, 0.8000_JPRB, 0.9100_JPRB, 0.8500_JPRB, 0.8500_JPRB, 0.8100_JPRB, 0.8100_JPRB, 0.8300_JPRB,&
698 &0.8100_JPRB, 0.7900_JPRB, 0.7900_JPRB, 0.8000_JPRB, 0.7800_JPRB, 0.7600_JPRB, 0.7500_JPRB, 0.7600_JPRB,&
699 &0.7500_JPRB, 0.7300_JPRB, 0.7300_JPRB /)
700ZOZCL(:,12, 5) = (/&
701 &1.0600_JPRB, 1.0600_JPRB, 1.2000_JPRB, 1.1200_JPRB, 1.1200_JPRB, 1.0500_JPRB, 1.0300_JPRB, 1.0500_JPRB,&
702 &1.0300_JPRB, 1.0100_JPRB, 1.0200_JPRB, 1.0200_JPRB, 1.0000_JPRB, 0.9700_JPRB, 0.9500_JPRB, 0.9400_JPRB,&
703 &0.9100_JPRB, 0.8800_JPRB, 0.8800_JPRB /)
704ZOZCL(:,13, 5) = (/&
705 &1.5800_JPRB, 1.5800_JPRB, 1.7900_JPRB, 1.6800_JPRB, 1.6700_JPRB, 1.5200_JPRB, 1.4300_JPRB, 1.4200_JPRB,&
706 &1.4100_JPRB, 1.3900_JPRB, 1.4000_JPRB, 1.3900_JPRB, 1.3600_JPRB, 1.3300_JPRB, 1.2900_JPRB, 1.2500_JPRB,&
707 &1.2000_JPRB, 1.1600_JPRB, 1.1600_JPRB /)
708ZOZCL(:,14, 5) = (/&
709 &2.3200_JPRB, 2.3200_JPRB, 2.6400_JPRB, 2.4700_JPRB, 2.4600_JPRB, 2.2400_JPRB, 2.0200_JPRB, 1.9600_JPRB,&
710 &1.9700_JPRB, 1.9700_JPRB, 1.9700_JPRB, 1.9600_JPRB, 1.9500_JPRB, 1.8900_JPRB, 1.8200_JPRB, 1.7400_JPRB,&
711 &1.6500_JPRB, 1.5900_JPRB, 1.5900_JPRB /)
712ZOZCL(:,15, 5) = (/&
713 &3.0600_JPRB, 3.0600_JPRB, 3.6600_JPRB, 3.5000_JPRB, 3.3500_JPRB, 2.8900_JPRB, 2.5400_JPRB, 2.4300_JPRB,&
714 &2.4200_JPRB, 2.4200_JPRB, 2.4200_JPRB, 2.4200_JPRB, 2.4000_JPRB, 2.3300_JPRB, 2.2300_JPRB, 2.1200_JPRB,&
715 &2.0400_JPRB, 1.9700_JPRB, 1.9700_JPRB /)
716ZOZCL(:,16, 5) = (/&
717 &4.0500_JPRB, 4.0500_JPRB, 4.9700_JPRB, 4.9100_JPRB, 4.7900_JPRB, 4.0900_JPRB, 3.4900_JPRB, 3.1800_JPRB,&
718 &3.0900_JPRB, 3.0700_JPRB, 3.0600_JPRB, 3.0700_JPRB, 3.0300_JPRB, 2.9200_JPRB, 2.7900_JPRB, 2.6700_JPRB,&
719 &2.5900_JPRB, 2.5900_JPRB, 2.5900_JPRB /)
720ZOZCL(:,17, 5) = (/&
721 &4.9600_JPRB, 4.9600_JPRB, 6.3000_JPRB, 6.3900_JPRB, 6.6100_JPRB, 5.8500_JPRB, 4.9800_JPRB, 4.3300_JPRB,&
722 &4.1000_JPRB, 4.0500_JPRB, 4.0400_JPRB, 4.0600_JPRB, 4.0200_JPRB, 3.8800_JPRB, 3.7300_JPRB, 3.6200_JPRB,&
723 &3.5400_JPRB, 3.6400_JPRB, 3.6400_JPRB /)
724
725ZOZCL(:,18, 5) = (/&
726 &5.1300_JPRB, 5.1300_JPRB, 6.5200_JPRB, 6.7700_JPRB, 7.3800_JPRB, 6.9400_JPRB, 6.1500_JPRB, 5.4100_JPRB,&
727 &5.1000_JPRB, 5.0300_JPRB, 5.0500_JPRB, 5.1100_JPRB, 5.0700_JPRB, 4.9400_JPRB, 4.8100_JPRB, 4.7200_JPRB,&
728 &4.6200_JPRB, 4.7500_JPRB, 4.7500_JPRB /)
729ZOZCL(:,19, 5) = (/&
730 &4.8900_JPRB, 4.8900_JPRB, 6.0700_JPRB, 6.3900_JPRB, 7.4600_JPRB, 7.7600_JPRB, 7.5400_JPRB, 7.0600_JPRB,&
731 &6.7400_JPRB, 6.6800_JPRB, 6.7700_JPRB, 6.9300_JPRB, 6.9200_JPRB, 6.8200_JPRB, 6.7300_JPRB, 6.6000_JPRB,&
732 &6.3100_JPRB, 6.3000_JPRB, 6.3000_JPRB /)
733ZOZCL(:,20, 5) = (/&
734 &4.3800_JPRB, 4.3800_JPRB, 5.7900_JPRB, 5.7300_JPRB, 6.7400_JPRB, 7.6000_JPRB, 8.1900_JPRB, 8.4000_JPRB,&
735 &8.2700_JPRB, 8.2200_JPRB, 8.4500_JPRB, 8.5700_JPRB, 8.4800_JPRB, 8.3900_JPRB, 8.1700_JPRB, 7.5400_JPRB,&
736 &6.7500_JPRB, 6.1900_JPRB, 6.1900_JPRB /)
737ZOZCL(:,21, 5) = (/&
738 &3.8700_JPRB, 3.8700_JPRB, 5.4600_JPRB, 5.3100_JPRB, 6.1900_JPRB, 7.1700_JPRB, 8.0700_JPRB, 8.7900_JPRB,&
739 &9.1300_JPRB, 9.1000_JPRB, 9.2400_JPRB, 9.0900_JPRB, 8.8600_JPRB, 8.5900_JPRB, 8.1300_JPRB, 7.3100_JPRB,&
740 &6.2600_JPRB, 5.4700_JPRB, 5.4700_JPRB /)
741ZOZCL(:,22, 5) = (/&
742 &3.3700_JPRB, 3.3700_JPRB, 4.9300_JPRB, 4.9300_JPRB, 5.6200_JPRB, 6.5700_JPRB, 7.5700_JPRB, 8.6900_JPRB,&
743 &9.6300_JPRB, 9.7700_JPRB, 9.5700_JPRB, 8.9800_JPRB, 8.6100_JPRB, 8.1500_JPRB, 7.5200_JPRB, 6.6900_JPRB,&
744 &5.6300_JPRB, 4.8400_JPRB, 4.8400_JPRB /)
745ZOZCL(:,23, 5) = (/&
746 &3.1200_JPRB, 3.1200_JPRB, 4.4300_JPRB, 4.7400_JPRB, 5.3300_JPRB, 6.0400_JPRB, 6.8000_JPRB, 7.7200_JPRB,&
747 &8.4800_JPRB, 8.6400_JPRB, 8.4400_JPRB, 7.9500_JPRB, 7.6400_JPRB, 7.1700_JPRB, 6.5900_JPRB, 5.9200_JPRB,&
748 &5.0600_JPRB, 4.4300_JPRB, 4.4300_JPRB /)
749ZOZCL(:,24, 5) = (/&
750 &3.0200_JPRB, 3.0200_JPRB, 4.1300_JPRB, 4.6100_JPRB, 5.0700_JPRB, 5.5500_JPRB, 6.0100_JPRB, 6.5600_JPRB,&
751 &6.9800_JPRB, 7.0700_JPRB, 7.0400_JPRB, 6.8200_JPRB, 6.6900_JPRB, 6.3900_JPRB, 5.9200_JPRB, 5.4100_JPRB,&
752 &4.7600_JPRB, 4.3200_JPRB, 4.3200_JPRB /)
753ZOZCL(:,25, 5) = (/&
754 &2.9516_JPRB, 2.9516_JPRB, 3.4781_JPRB, 3.6833_JPRB, 4.4667_JPRB, 4.8018_JPRB, 4.7850_JPRB, 4.5500_JPRB,&
755 &4.2181_JPRB, 4.1108_JPRB, 4.5700_JPRB, 4.8100_JPRB, 5.0088_JPRB, 4.8876_JPRB, 4.7114_JPRB, 4.5625_JPRB,&
756 &4.0898_JPRB, 4.1086_JPRB, 4.1086_JPRB /)
757ZOZCL(:,26, 5) = (/&
758 &2.8832_JPRB, 2.8832_JPRB, 2.7087_JPRB, 2.6900_JPRB, 2.3040_JPRB, 2.5666_JPRB, 1.9860_JPRB, 1.8200_JPRB,&
759 &1.5096_JPRB, 1.4102_JPRB, 1.7700_JPRB, 2.1900_JPRB, 2.5664_JPRB, 2.8653_JPRB, 3.0488_JPRB, 3.2530_JPRB,&
760 &3.2127_JPRB, 3.2361_JPRB, 3.2361_JPRB /)
761ZOZCL(:,27, 5) = (/&
762 &2.0883_JPRB, 2.0883_JPRB, 1.8960_JPRB, 1.9786_JPRB, 1.3543_JPRB, 1.4206_JPRB, 0.7654_JPRB, 0.7400_JPRB,&
763 &0.4328_JPRB, 0.4241_JPRB, 0.6800_JPRB, 1.0200_JPRB, 1.0424_JPRB, 1.5531_JPRB, 1.8924_JPRB, 2.2554_JPRB,&
764 &2.3132_JPRB, 2.4103_JPRB, 2.4103_JPRB /)
765ZOZCL(:,28, 5) = (/&
766 &1.1625_JPRB, 1.1625_JPRB, 1.0276_JPRB, 0.9200_JPRB, 0.5320_JPRB, 0.5041_JPRB, 0.1900_JPRB, 0.1769_JPRB,&
767 &0.1036_JPRB, 0.1433_JPRB, 0.1935_JPRB, 0.2574_JPRB, 0.3144_JPRB, 0.7746_JPRB, 0.9693_JPRB, 1.1890_JPRB,&
768 &1.3057_JPRB, 1.4491_JPRB, 1.4491_JPRB /)
769ZOZCL(:,29, 5) = (/&
770 &0.4193_JPRB, 0.4193_JPRB, 0.3927_JPRB, 0.4000_JPRB, 0.3267_JPRB, 0.2070_JPRB, 0.1120_JPRB, 0.1028_JPRB,&
771 &0.0514_JPRB, 0.0754_JPRB, 0.0987_JPRB, 0.1170_JPRB, 0.1789_JPRB, 0.4257_JPRB, 0.5698_JPRB, 0.7120_JPRB,&
772 &0.7996_JPRB, 0.8829_JPRB, 0.8829_JPRB /)
773ZOZCL(:,30, 5) = (/&
774 &0.2230_JPRB, 0.2230_JPRB, 0.2099_JPRB, 0.2939_JPRB, 0.1485_JPRB, 0.1130_JPRB, 0.0840_JPRB, 0.0767_JPRB,&
775 &0.0367_JPRB, 0.0658_JPRB, 0.0820_JPRB, 0.0748_JPRB, 0.1186_JPRB, 0.2669_JPRB, 0.3765_JPRB, 0.5405_JPRB,&
776 &0.6006_JPRB, 0.6398_JPRB, 0.6398_JPRB /)
777ZOZCL(:,31, 5) = (/&
778 &0.0655_JPRB, 0.0655_JPRB, 0.0684_JPRB, 0.0817_JPRB, 0.0553_JPRB, 0.0403_JPRB, 0.0480_JPRB, 0.0450_JPRB,&
779 &0.0287_JPRB, 0.0469_JPRB, 0.0673_JPRB, 0.0601_JPRB, 0.0723_JPRB, 0.0953_JPRB, 0.1043_JPRB, 0.1463_JPRB,&
780 &0.2142_JPRB, 0.2053_JPRB, 0.2053_JPRB /)
781ZOZCL(:,32, 5) = (/&
782 &0.0340_JPRB, 0.0340_JPRB, 0.0374_JPRB, 0.0290_JPRB, 0.0324_JPRB, 0.0353_JPRB, 0.0408_JPRB, 0.0392_JPRB,&
783 &0.0312_JPRB, 0.0474_JPRB, 0.0555_JPRB, 0.0564_JPRB, 0.0634_JPRB, 0.0663_JPRB, 0.0679_JPRB, 0.0658_JPRB,&
784 &0.0669_JPRB, 0.0658_JPRB, 0.0658_JPRB /)
785ZOZCL(:,33, 5) = (/&
786 &0.0291_JPRB, 0.0291_JPRB, 0.0310_JPRB, 0.0279_JPRB, 0.0276_JPRB, 0.0307_JPRB, 0.0397_JPRB, 0.0378_JPRB,&
787 &0.0271_JPRB, 0.0307_JPRB, 0.0318_JPRB, 0.0465_JPRB, 0.0547_JPRB, 0.0581_JPRB, 0.0590_JPRB, 0.0570_JPRB,&
788 &0.0535_JPRB, 0.0531_JPRB, 0.0531_JPRB /)
789ZOZCL(:,34, 5) = (/&
790 &0.0291_JPRB, 0.0291_JPRB, 0.0310_JPRB, 0.0279_JPRB, 0.0276_JPRB, 0.0307_JPRB, 0.0397_JPRB, 0.0378_JPRB,&
791 &0.0271_JPRB, 0.0307_JPRB, 0.0318_JPRB, 0.0465_JPRB, 0.0547_JPRB, 0.0581_JPRB, 0.0590_JPRB, 0.0570_JPRB,&
792 &0.0535_JPRB, 0.0531_JPRB, 0.0531_JPRB /)
793
794! Month:  6
795ZOZCL(:, 1, 6) = (/&
796 &0.7500_JPRB, 0.7500_JPRB, 0.7700_JPRB, 0.8700_JPRB, 0.8600_JPRB, 0.8000_JPRB, 0.7800_JPRB, 0.5900_JPRB,&
797 &0.4700_JPRB, 0.4700_JPRB, 0.5400_JPRB, 0.6200_JPRB, 0.7300_JPRB, 0.8700_JPRB, 0.9400_JPRB, 0.8800_JPRB,&
798 &0.7200_JPRB, 0.5700_JPRB, 0.5700_JPRB /)
799ZOZCL(:, 2, 6) = (/&
800 &0.4700_JPRB, 0.4700_JPRB, 0.4800_JPRB, 0.5400_JPRB, 0.5400_JPRB, 0.5000_JPRB, 0.5000_JPRB, 0.3800_JPRB,&
801 &0.3400_JPRB, 0.3800_JPRB, 0.4100_JPRB, 0.4300_JPRB, 0.5100_JPRB, 0.6300_JPRB, 0.6300_JPRB, 0.5000_JPRB,&
802 &0.3900_JPRB, 0.3200_JPRB, 0.3200_JPRB /)
803ZOZCL(:, 3, 6) = (/&
804 &0.3300_JPRB, 0.3300_JPRB, 0.3400_JPRB, 0.3800_JPRB, 0.3700_JPRB, 0.3500_JPRB, 0.3700_JPRB, 0.3400_JPRB,&
805 &0.3500_JPRB, 0.3800_JPRB, 0.3800_JPRB, 0.3600_JPRB, 0.3800_JPRB, 0.4600_JPRB, 0.4200_JPRB, 0.3000_JPRB,&
806 &0.2500_JPRB, 0.2200_JPRB, 0.2200_JPRB /)
807ZOZCL(:, 4, 6) = (/&
808 &0.2500_JPRB, 0.2500_JPRB, 0.2600_JPRB, 0.2900_JPRB, 0.2900_JPRB, 0.2600_JPRB, 0.2900_JPRB, 0.3000_JPRB,&
809 &0.3100_JPRB, 0.3100_JPRB, 0.3000_JPRB, 0.2800_JPRB, 0.2700_JPRB, 0.2800_JPRB, 0.2500_JPRB, 0.1900_JPRB,&
810 &0.1700_JPRB, 0.1700_JPRB, 0.1700_JPRB /)
811ZOZCL(:, 5, 6) = (/&
812 &0.2000_JPRB, 0.2000_JPRB, 0.2000_JPRB, 0.2300_JPRB, 0.2200_JPRB, 0.2100_JPRB, 0.2200_JPRB, 0.2100_JPRB,&
813 &0.2000_JPRB, 0.1900_JPRB, 0.1900_JPRB, 0.1700_JPRB, 0.1700_JPRB, 0.1800_JPRB, 0.1800_JPRB, 0.1700_JPRB,&
814 &0.1600_JPRB, 0.1600_JPRB, 0.1600_JPRB /)
815ZOZCL(:, 6, 6) = (/&
816 &0.1700_JPRB, 0.1700_JPRB, 0.1700_JPRB, 0.2000_JPRB, 0.1900_JPRB, 0.1800_JPRB, 0.1700_JPRB, 0.1600_JPRB,&
817 &0.1500_JPRB, 0.1400_JPRB, 0.1500_JPRB, 0.1400_JPRB, 0.1400_JPRB, 0.1600_JPRB, 0.1700_JPRB, 0.1700_JPRB,&
818 &0.1700_JPRB, 0.1700_JPRB, 0.1700_JPRB /)
819ZOZCL(:, 7, 6) = (/&
820 &0.1700_JPRB, 0.1700_JPRB, 0.1700_JPRB, 0.2000_JPRB, 0.1900_JPRB, 0.1800_JPRB, 0.1700_JPRB, 0.1700_JPRB,&
821 &0.1600_JPRB, 0.1600_JPRB, 0.1700_JPRB, 0.1700_JPRB, 0.1700_JPRB, 0.1900_JPRB, 0.2000_JPRB, 0.2000_JPRB,&
822 &0.2000_JPRB, 0.2000_JPRB, 0.2000_JPRB /)
823ZOZCL(:, 8, 6) = (/&
824 &0.2900_JPRB, 0.2900_JPRB, 0.3000_JPRB, 0.3400_JPRB, 0.3300_JPRB, 0.3100_JPRB, 0.3000_JPRB, 0.2800_JPRB,&
825 &0.2600_JPRB, 0.2600_JPRB, 0.2600_JPRB, 0.2600_JPRB, 0.2700_JPRB, 0.2700_JPRB, 0.2800_JPRB, 0.2700_JPRB,&
826 &0.2800_JPRB, 0.3000_JPRB, 0.3000_JPRB /)
827ZOZCL(:, 9, 6) = (/&
828 &0.4200_JPRB, 0.4200_JPRB, 0.4300_JPRB, 0.4900_JPRB, 0.4800_JPRB, 0.4500_JPRB, 0.4500_JPRB, 0.4100_JPRB,&
829 &0.3800_JPRB, 0.3700_JPRB, 0.3700_JPRB, 0.3800_JPRB, 0.3900_JPRB, 0.3800_JPRB, 0.3800_JPRB, 0.3800_JPRB,&
830 &0.3900_JPRB, 0.4000_JPRB, 0.4000_JPRB /)
831ZOZCL(:,10, 6) = (/&
832 &0.5400_JPRB, 0.5400_JPRB, 0.5600_JPRB, 0.6300_JPRB, 0.6200_JPRB, 0.5700_JPRB, 0.5600_JPRB, 0.5600_JPRB,&
833 &0.5600_JPRB, 0.5700_JPRB, 0.5800_JPRB, 0.5800_JPRB, 0.5500_JPRB, 0.5200_JPRB, 0.5300_JPRB, 0.5600_JPRB,&
834 &0.5500_JPRB, 0.5600_JPRB, 0.5600_JPRB /)
835ZOZCL(:,11, 6) = (/&
836 &0.7600_JPRB, 0.7600_JPRB, 0.7900_JPRB, 0.8900_JPRB, 0.8800_JPRB, 0.8200_JPRB, 0.8200_JPRB, 0.8300_JPRB,&
837 &0.8300_JPRB, 0.8300_JPRB, 0.8500_JPRB, 0.8800_JPRB, 0.8400_JPRB, 0.8000_JPRB, 0.8000_JPRB, 0.8000_JPRB,&
838 &0.8000_JPRB, 0.7800_JPRB, 0.7800_JPRB /)
839ZOZCL(:,12, 6) = (/&
840 &0.9900_JPRB, 0.9900_JPRB, 1.0200_JPRB, 1.1500_JPRB, 1.1400_JPRB, 1.0600_JPRB, 1.0400_JPRB, 1.0500_JPRB,&
841 &1.0600_JPRB, 1.0600_JPRB, 1.0800_JPRB, 1.1100_JPRB, 1.0800_JPRB, 1.0300_JPRB, 1.0100_JPRB, 0.9900_JPRB,&
842 &0.9600_JPRB, 0.9300_JPRB, 0.9300_JPRB /)
843ZOZCL(:,13, 6) = (/&
844 &1.4300_JPRB, 1.4300_JPRB, 1.4700_JPRB, 1.6700_JPRB, 1.6400_JPRB, 1.5300_JPRB, 1.4400_JPRB, 1.4400_JPRB,&
845 &1.4700_JPRB, 1.4700_JPRB, 1.4800_JPRB, 1.4900_JPRB, 1.4400_JPRB, 1.3900_JPRB, 1.3500_JPRB, 1.3000_JPRB,&
846 &1.2400_JPRB, 1.1800_JPRB, 1.1800_JPRB /)
847ZOZCL(:,14, 6) = (/&
848 &2.1000_JPRB, 2.1000_JPRB, 2.1700_JPRB, 2.4600_JPRB, 2.4200_JPRB, 2.2600_JPRB, 2.0200_JPRB, 1.9800_JPRB,&
849 &2.0000_JPRB, 2.0000_JPRB, 1.9900_JPRB, 1.9800_JPRB, 1.9500_JPRB, 1.8700_JPRB, 1.7800_JPRB, 1.6700_JPRB,&
850 &1.5500_JPRB, 1.4600_JPRB, 1.4600_JPRB /)
851ZOZCL(:,15, 6) = (/&
852 &2.8600_JPRB, 2.8600_JPRB, 2.9400_JPRB, 3.5600_JPRB, 3.5400_JPRB, 2.9600_JPRB, 2.5600_JPRB, 2.4600_JPRB,&
853 &2.4600_JPRB, 2.4600_JPRB, 2.4500_JPRB, 2.4400_JPRB, 2.4100_JPRB, 2.3000_JPRB, 2.1600_JPRB, 1.9900_JPRB,&
854 &1.8300_JPRB, 1.7100_JPRB, 1.7100_JPRB /)
855ZOZCL(:,16, 6) = (/&
856 &3.9200_JPRB, 3.9200_JPRB, 4.0200_JPRB, 5.0100_JPRB, 5.1600_JPRB, 4.2900_JPRB, 3.5600_JPRB, 3.3000_JPRB,&
857 &3.2200_JPRB, 3.1900_JPRB, 3.1600_JPRB, 3.1300_JPRB, 3.0500_JPRB, 2.8800_JPRB, 2.6800_JPRB, 2.4700_JPRB,&
858 &2.2800_JPRB, 2.1600_JPRB, 2.1600_JPRB /)
859ZOZCL(:,17, 6) = (/&
860 &5.1400_JPRB, 5.1400_JPRB, 5.2800_JPRB, 6.5000_JPRB, 7.1100_JPRB, 6.1800_JPRB, 5.0600_JPRB, 4.5100_JPRB,&
861 &4.3000_JPRB, 4.2400_JPRB, 4.1900_JPRB, 4.1500_JPRB, 3.9800_JPRB, 3.7300_JPRB, 3.4900_JPRB, 3.2400_JPRB,&
862 &3.0500_JPRB, 2.9700_JPRB, 2.9700_JPRB /)
863
864ZOZCL(:,18, 6) = (/&
865 &5.5200_JPRB, 5.5200_JPRB, 5.6800_JPRB, 6.7700_JPRB, 7.7400_JPRB, 7.2700_JPRB, 6.1600_JPRB, 5.5500_JPRB,&
866 &5.3000_JPRB, 5.2300_JPRB, 5.2100_JPRB, 5.2000_JPRB, 5.0100_JPRB, 4.7300_JPRB, 4.4900_JPRB, 4.2400_JPRB,&
867 &4.0500_JPRB, 4.0300_JPRB, 4.0300_JPRB /)
868ZOZCL(:,19, 6) = (/&
869 &5.3000_JPRB, 5.3000_JPRB, 5.4800_JPRB, 6.2000_JPRB, 7.3600_JPRB, 7.9600_JPRB, 7.4300_JPRB, 7.0500_JPRB,&
870 &6.9100_JPRB, 6.8800_JPRB, 6.9400_JPRB, 7.0200_JPRB, 6.8400_JPRB, 6.5900_JPRB, 6.3800_JPRB, 6.0700_JPRB,&
871 &5.8300_JPRB, 5.8700_JPRB, 5.8700_JPRB /)
872ZOZCL(:,20, 6) = (/&
873 &4.7300_JPRB, 4.7300_JPRB, 4.9300_JPRB, 5.6400_JPRB, 6.3100_JPRB, 7.4700_JPRB, 7.8600_JPRB, 8.1400_JPRB,&
874 &8.4500_JPRB, 8.4900_JPRB, 8.5700_JPRB, 8.5600_JPRB, 8.3800_JPRB, 8.1600_JPRB, 7.8800_JPRB, 7.1400_JPRB,&
875 &6.3500_JPRB, 6.0800_JPRB, 6.0800_JPRB /)
876ZOZCL(:,21, 6) = (/&
877 &4.3200_JPRB, 4.3200_JPRB, 4.5000_JPRB, 5.3200_JPRB, 5.7000_JPRB, 6.9600_JPRB, 7.7100_JPRB, 8.4200_JPRB,&
878 &8.9600_JPRB, 9.1200_JPRB, 9.1600_JPRB, 8.9800_JPRB, 8.8100_JPRB, 8.4600_JPRB, 7.9800_JPRB, 7.0100_JPRB,&
879 &5.9300_JPRB, 5.3700_JPRB, 5.3700_JPRB /)
880ZOZCL(:,22, 6) = (/&
881 &3.9400_JPRB, 3.9400_JPRB, 4.0500_JPRB, 5.0200_JPRB, 5.1000_JPRB, 6.3100_JPRB, 7.1900_JPRB, 8.2200_JPRB,&
882 &9.0000_JPRB, 9.2500_JPRB, 9.1600_JPRB, 8.6800_JPRB, 8.5500_JPRB, 8.0800_JPRB, 7.4800_JPRB, 6.5100_JPRB,&
883 &5.4300_JPRB, 4.7100_JPRB, 4.7100_JPRB /)
884ZOZCL(:,23, 6) = (/&
885 &3.7800_JPRB, 3.7800_JPRB, 3.8600_JPRB, 4.8200_JPRB, 5.0700_JPRB, 5.8700_JPRB, 6.4500_JPRB, 7.2000_JPRB,&
886 &7.7800_JPRB, 8.0500_JPRB, 7.9600_JPRB, 7.5000_JPRB, 7.4100_JPRB, 7.0200_JPRB, 6.4900_JPRB, 5.6900_JPRB,&
887 &4.7500_JPRB, 4.1800_JPRB, 4.1800_JPRB /)
888ZOZCL(:,24, 6) = (/&
889 &3.7000_JPRB, 3.7000_JPRB, 3.7900_JPRB, 4.6800_JPRB, 5.0000_JPRB, 5.5100_JPRB, 5.7800_JPRB, 6.1900_JPRB,&
890 &6.4500_JPRB, 6.6400_JPRB, 6.6800_JPRB, 6.4200_JPRB, 6.4300_JPRB, 6.2200_JPRB, 5.8200_JPRB, 5.1700_JPRB,&
891 &4.3800_JPRB, 3.9400_JPRB, 3.9400_JPRB /)
892ZOZCL(:,25, 6) = (/&
893 &3.2554_JPRB, 3.2554_JPRB, 3.5115_JPRB, 3.8000_JPRB, 4.5633_JPRB, 4.9030_JPRB, 4.8933_JPRB, 4.6000_JPRB,&
894 &4.3704_JPRB, 4.5273_JPRB, 4.8100_JPRB, 4.8000_JPRB, 4.8910_JPRB, 4.8032_JPRB, 4.4982_JPRB, 4.1575_JPRB,&
895 &3.6667_JPRB, 3.5714_JPRB, 3.5714_JPRB /)
896ZOZCL(:,26, 6) = (/&
897 &2.8571_JPRB, 2.8571_JPRB, 2.7376_JPRB, 2.9200_JPRB, 2.5300_JPRB, 2.6316_JPRB, 2.1180_JPRB, 1.9200_JPRB,&
898 &1.5042_JPRB, 1.5932_JPRB, 1.8100_JPRB, 2.1200_JPRB, 2.3813_JPRB, 2.7239_JPRB, 2.8073_JPRB, 2.9790_JPRB,&
899 &2.8574_JPRB, 2.9008_JPRB, 2.9008_JPRB /)
900ZOZCL(:,27, 6) = (/&
901 &2.1443_JPRB, 2.1443_JPRB, 2.0070_JPRB, 2.0500_JPRB, 1.5029_JPRB, 1.5219_JPRB, 0.7621_JPRB, 0.7800_JPRB,&
902 &0.4756_JPRB, 0.5596_JPRB, 0.6700_JPRB, 0.9900_JPRB, 1.0350_JPRB, 1.4139_JPRB, 1.6538_JPRB, 1.9796_JPRB,&
903 &2.0081_JPRB, 2.1384_JPRB, 2.1384_JPRB /)
904ZOZCL(:,28, 6) = (/&
905 &1.1405_JPRB, 1.1405_JPRB, 1.0828_JPRB, 0.9800_JPRB, 0.7300_JPRB, 0.6089_JPRB, 0.2110_JPRB, 0.1911_JPRB,&
906 &0.1132_JPRB, 0.1752_JPRB, 0.1830_JPRB, 0.2386_JPRB, 0.2869_JPRB, 0.5876_JPRB, 0.8400_JPRB, 1.0000_JPRB,&
907 &1.1505_JPRB, 1.1950_JPRB, 1.1950_JPRB /)
908ZOZCL(:,29, 6) = (/&
909 &0.4485_JPRB, 0.4485_JPRB, 0.3870_JPRB, 0.4187_JPRB, 0.3760_JPRB, 0.3635_JPRB, 0.1067_JPRB, 0.0965_JPRB,&
910 &0.0605_JPRB, 0.1267_JPRB, 0.1067_JPRB, 0.1310_JPRB, 0.1509_JPRB, 0.3484_JPRB, 0.4746_JPRB, 0.5433_JPRB,&
911 &0.6391_JPRB, 0.6481_JPRB, 0.6481_JPRB /)
912ZOZCL(:,30, 6) = (/&
913 &0.2079_JPRB, 0.2079_JPRB, 0.1828_JPRB, 0.2929_JPRB, 0.2540_JPRB, 0.2042_JPRB, 0.0855_JPRB, 0.0775_JPRB,&
914 &0.0487_JPRB, 0.0990_JPRB, 0.0900_JPRB, 0.0729_JPRB, 0.1079_JPRB, 0.1876_JPRB, 0.3129_JPRB, 0.4250_JPRB,&
915 &0.5245_JPRB, 0.5229_JPRB, 0.5229_JPRB /)
916ZOZCL(:,31, 6) = (/&
917 &0.0536_JPRB, 0.0536_JPRB, 0.0557_JPRB, 0.0413_JPRB, 0.0500_JPRB, 0.0645_JPRB, 0.0503_JPRB, 0.0490_JPRB,&
918 &0.0452_JPRB, 0.0680_JPRB, 0.0700_JPRB, 0.0552_JPRB, 0.0754_JPRB, 0.0816_JPRB, 0.1056_JPRB, 0.1360_JPRB,&
919 &0.1443_JPRB, 0.1905_JPRB, 0.1905_JPRB /)
920ZOZCL(:,32, 6) = (/&
921 &0.0372_JPRB, 0.0372_JPRB, 0.0384_JPRB, 0.0340_JPRB, 0.0340_JPRB, 0.0406_JPRB, 0.0426_JPRB, 0.0422_JPRB,&
922 &0.0413_JPRB, 0.0520_JPRB, 0.0490_JPRB, 0.0509_JPRB, 0.0590_JPRB, 0.0627_JPRB, 0.0704_JPRB, 0.0678_JPRB,&
923 &0.0703_JPRB, 0.0628_JPRB, 0.0628_JPRB /)
924ZOZCL(:,33, 6) = (/&
925 &0.0315_JPRB, 0.0315_JPRB, 0.0332_JPRB, 0.0326_JPRB, 0.0304_JPRB, 0.0351_JPRB, 0.0373_JPRB, 0.0363_JPRB,&
926 &0.0331_JPRB, 0.0377_JPRB, 0.0279_JPRB, 0.0438_JPRB, 0.0537_JPRB, 0.0538_JPRB, 0.0587_JPRB, 0.0533_JPRB,&
927 &0.0534_JPRB, 0.0438_JPRB, 0.0438_JPRB /)
928ZOZCL(:,34, 6) = (/&
929 &0.0315_JPRB, 0.0315_JPRB, 0.0332_JPRB, 0.0326_JPRB, 0.0304_JPRB, 0.0351_JPRB, 0.0373_JPRB, 0.0363_JPRB,&
930 &0.0331_JPRB, 0.0377_JPRB, 0.0279_JPRB, 0.0438_JPRB, 0.0537_JPRB, 0.0538_JPRB, 0.0587_JPRB, 0.0533_JPRB,&
931 &0.0534_JPRB, 0.0438_JPRB, 0.0438_JPRB /)
932
933! Month:  7
934ZOZCL(:, 1, 7) = (/&
935 &0.4800_JPRB, 0.4800_JPRB, 0.5100_JPRB, 0.5600_JPRB, 0.5800_JPRB, 0.6600_JPRB, 0.6300_JPRB, 0.5300_JPRB,&
936 &0.4800_JPRB, 0.4700_JPRB, 0.5100_JPRB, 0.6000_JPRB, 0.6600_JPRB, 0.7100_JPRB, 0.8500_JPRB, 0.9300_JPRB,&
937 &0.8000_JPRB, 0.5800_JPRB, 0.5800_JPRB /)
938ZOZCL(:, 2, 7) = (/&
939 &0.2800_JPRB, 0.2800_JPRB, 0.3000_JPRB, 0.3300_JPRB, 0.3400_JPRB, 0.4100_JPRB, 0.4100_JPRB, 0.3700_JPRB,&
940 &0.3400_JPRB, 0.3700_JPRB, 0.4000_JPRB, 0.4200_JPRB, 0.4400_JPRB, 0.4900_JPRB, 0.5500_JPRB, 0.5200_JPRB,&
941 &0.4000_JPRB, 0.3100_JPRB, 0.3100_JPRB /)
942ZOZCL(:, 3, 7) = (/&
943 &0.2000_JPRB, 0.2000_JPRB, 0.2100_JPRB, 0.2300_JPRB, 0.2400_JPRB, 0.2800_JPRB, 0.3200_JPRB, 0.3200_JPRB,&
944 &0.3300_JPRB, 0.3500_JPRB, 0.3600_JPRB, 0.3500_JPRB, 0.3400_JPRB, 0.3600_JPRB, 0.3700_JPRB, 0.3000_JPRB,&
945 &0.2300_JPRB, 0.2100_JPRB, 0.2100_JPRB /)
946ZOZCL(:, 4, 7) = (/&
947 &0.1700_JPRB, 0.1700_JPRB, 0.1800_JPRB, 0.1900_JPRB, 0.2000_JPRB, 0.2300_JPRB, 0.2700_JPRB, 0.2800_JPRB,&
948 &0.2800_JPRB, 0.2800_JPRB, 0.2700_JPRB, 0.2500_JPRB, 0.2400_JPRB, 0.2400_JPRB, 0.2200_JPRB, 0.1900_JPRB,&
949 &0.1600_JPRB, 0.1700_JPRB, 0.1700_JPRB /)
950ZOZCL(:, 5, 7) = (/&
951 &0.1700_JPRB, 0.1700_JPRB, 0.1900_JPRB, 0.2000_JPRB, 0.2100_JPRB, 0.2000_JPRB, 0.2000_JPRB, 0.1900_JPRB,&
952 &0.1700_JPRB, 0.1600_JPRB, 0.1600_JPRB, 0.1600_JPRB, 0.1600_JPRB, 0.1600_JPRB, 0.1600_JPRB, 0.1600_JPRB,&
953 &0.1600_JPRB, 0.1600_JPRB, 0.1600_JPRB /)
954ZOZCL(:, 6, 7) = (/&
955 &0.1700_JPRB, 0.1700_JPRB, 0.1900_JPRB, 0.2000_JPRB, 0.2100_JPRB, 0.1700_JPRB, 0.1600_JPRB, 0.1500_JPRB,&
956 &0.1400_JPRB, 0.1400_JPRB, 0.1400_JPRB, 0.1400_JPRB, 0.1400_JPRB, 0.1500_JPRB, 0.1600_JPRB, 0.1700_JPRB,&
957 &0.1700_JPRB, 0.1700_JPRB, 0.1700_JPRB /)
958ZOZCL(:, 7, 7) = (/&
959 &0.1800_JPRB, 0.1800_JPRB, 0.1900_JPRB, 0.2100_JPRB, 0.2200_JPRB, 0.1700_JPRB, 0.1600_JPRB, 0.1600_JPRB,&
960 &0.1600_JPRB, 0.1700_JPRB, 0.1700_JPRB, 0.1600_JPRB, 0.1600_JPRB, 0.1800_JPRB, 0.1900_JPRB, 0.2000_JPRB,&
961 &0.2000_JPRB, 0.2100_JPRB, 0.2100_JPRB /)
962ZOZCL(:, 8, 7) = (/&
963 &0.2600_JPRB, 0.2600_JPRB, 0.2700_JPRB, 0.3000_JPRB, 0.3100_JPRB, 0.3100_JPRB, 0.2900_JPRB, 0.2600_JPRB,&
964 &0.2500_JPRB, 0.2500_JPRB, 0.2500_JPRB, 0.2400_JPRB, 0.2400_JPRB, 0.2700_JPRB, 0.2800_JPRB, 0.2800_JPRB,&
965 &0.2800_JPRB, 0.3100_JPRB, 0.3100_JPRB /)
966ZOZCL(:, 9, 7) = (/&
967 &0.3600_JPRB, 0.3600_JPRB, 0.3800_JPRB, 0.4100_JPRB, 0.4300_JPRB, 0.4600_JPRB, 0.4400_JPRB, 0.3900_JPRB,&
968 &0.3600_JPRB, 0.3600_JPRB, 0.3500_JPRB, 0.3500_JPRB, 0.3600_JPRB, 0.3900_JPRB, 0.3900_JPRB, 0.3800_JPRB,&
969 &0.3800_JPRB, 0.4100_JPRB, 0.4100_JPRB /)
970ZOZCL(:,10, 7) = (/&
971 &0.5100_JPRB, 0.5100_JPRB, 0.5400_JPRB, 0.5800_JPRB, 0.6100_JPRB, 0.6000_JPRB, 0.6000_JPRB, 0.5600_JPRB,&
972 &0.5500_JPRB, 0.5500_JPRB, 0.5600_JPRB, 0.5700_JPRB, 0.5700_JPRB, 0.5500_JPRB, 0.5500_JPRB, 0.5700_JPRB,&
973 &0.5500_JPRB, 0.5600_JPRB, 0.5600_JPRB /)
974ZOZCL(:,11, 7) = (/&
975 &0.7400_JPRB, 0.7400_JPRB, 0.7900_JPRB, 0.8500_JPRB, 0.8900_JPRB, 0.8500_JPRB, 0.8600_JPRB, 0.8300_JPRB,&
976 &0.8100_JPRB, 0.8100_JPRB, 0.8300_JPRB, 0.8700_JPRB, 0.8800_JPRB, 0.8500_JPRB, 0.8200_JPRB, 0.8100_JPRB,&
977 &0.8100_JPRB, 0.7900_JPRB, 0.7900_JPRB /)
978ZOZCL(:,12, 7) = (/&
979 &0.9400_JPRB, 0.9400_JPRB, 1.0100_JPRB, 1.0900_JPRB, 1.1400_JPRB, 1.0900_JPRB, 1.0800_JPRB, 1.0500_JPRB,&
980 &1.0400_JPRB, 1.0400_JPRB, 1.0600_JPRB, 1.1100_JPRB, 1.1200_JPRB, 1.0900_JPRB, 1.0400_JPRB, 1.0000_JPRB,&
981 &0.9800_JPRB, 0.9500_JPRB, 0.9500_JPRB /)
982ZOZCL(:,13, 7) = (/&
983 &1.2200_JPRB, 1.2200_JPRB, 1.3000_JPRB, 1.4100_JPRB, 1.4700_JPRB, 1.5300_JPRB, 1.4900_JPRB, 1.4500_JPRB,&
984 &1.4400_JPRB, 1.4400_JPRB, 1.4600_JPRB, 1.5000_JPRB, 1.5100_JPRB, 1.4600_JPRB, 1.3900_JPRB, 1.3200_JPRB,&
985 &1.2600_JPRB, 1.1900_JPRB, 1.1900_JPRB /)
986ZOZCL(:,14, 7) = (/&
987 &1.7700_JPRB, 1.7700_JPRB, 1.8900_JPRB, 2.0500_JPRB, 2.1400_JPRB, 2.2200_JPRB, 2.0700_JPRB, 2.0000_JPRB,&
988 &1.9900_JPRB, 1.9900_JPRB, 1.9900_JPRB, 2.0000_JPRB, 2.0000_JPRB, 1.9300_JPRB, 1.8100_JPRB, 1.6800_JPRB,&
989 &1.5500_JPRB, 1.4400_JPRB, 1.4400_JPRB /)
990ZOZCL(:,15, 7) = (/&
991 &2.3400_JPRB, 2.3400_JPRB, 2.4900_JPRB, 2.8500_JPRB, 3.0300_JPRB, 2.8600_JPRB, 2.6000_JPRB, 2.4800_JPRB,&
992 &2.4400_JPRB, 2.4400_JPRB, 2.4400_JPRB, 2.4800_JPRB, 2.4900_JPRB, 2.3900_JPRB, 2.2000_JPRB, 2.0000_JPRB,&
993 &1.8200_JPRB, 1.6600_JPRB, 1.6600_JPRB /)
994ZOZCL(:,16, 7) = (/&
995 &3.3100_JPRB, 3.3100_JPRB, 3.4800_JPRB, 4.0600_JPRB, 4.4000_JPRB, 4.0500_JPRB, 3.5800_JPRB, 3.3400_JPRB,&
996 &3.2300_JPRB, 3.1900_JPRB, 3.1800_JPRB, 3.2200_JPRB, 3.1900_JPRB, 3.0100_JPRB, 2.7600_JPRB, 2.5200_JPRB,&
997 &2.3000_JPRB, 2.1400_JPRB, 2.1400_JPRB /)
998ZOZCL(:,17, 7) = (/&
999 &4.5300_JPRB, 4.5300_JPRB, 4.8100_JPRB, 5.6200_JPRB, 6.2800_JPRB, 5.7600_JPRB, 5.0400_JPRB, 4.6100_JPRB,&
1000 &4.3900_JPRB, 4.3100_JPRB, 4.2900_JPRB, 4.3100_JPRB, 4.1800_JPRB, 3.9100_JPRB, 3.6100_JPRB, 3.3200_JPRB,&
1001 &3.0800_JPRB, 2.9700_JPRB, 2.9700_JPRB /)
1002
1003ZOZCL(:,18, 7) = (/&
1004 &5.0800_JPRB, 5.0800_JPRB, 5.4400_JPRB, 6.2400_JPRB, 7.1700_JPRB, 6.8600_JPRB, 6.1300_JPRB, 5.6900_JPRB,&
1005 &5.4700_JPRB, 5.3800_JPRB, 5.3700_JPRB, 5.3800_JPRB, 5.2000_JPRB, 4.9000_JPRB, 4.5900_JPRB, 4.2800_JPRB,&
1006 &4.0300_JPRB, 3.9700_JPRB, 3.9700_JPRB /)
1007ZOZCL(:,19, 7) = (/&
1008 &5.2800_JPRB, 5.2800_JPRB, 5.5700_JPRB, 6.2200_JPRB, 7.3900_JPRB, 7.7900_JPRB, 7.4300_JPRB, 7.2300_JPRB,&
1009 &7.1600_JPRB, 7.1200_JPRB, 7.1500_JPRB, 7.1800_JPRB, 6.9800_JPRB, 6.6800_JPRB, 6.3700_JPRB, 6.0000_JPRB,&
1010 &5.6600_JPRB, 5.6400_JPRB, 5.6400_JPRB /)
1011ZOZCL(:,20, 7) = (/&
1012 &5.0800_JPRB, 5.0800_JPRB, 5.2300_JPRB, 5.7900_JPRB, 6.6700_JPRB, 7.5300_JPRB, 7.9200_JPRB, 8.2000_JPRB,&
1013 &8.6400_JPRB, 8.6300_JPRB, 8.6100_JPRB, 8.6300_JPRB, 8.3900_JPRB, 8.0600_JPRB, 7.7000_JPRB, 6.9900_JPRB,&
1014 &6.1400_JPRB, 5.8400_JPRB, 5.8400_JPRB /)
1015ZOZCL(:,21, 7) = (/&
1016 &4.7200_JPRB, 4.7200_JPRB, 4.8100_JPRB, 5.3900_JPRB, 6.0700_JPRB, 7.0900_JPRB, 7.8200_JPRB, 8.3200_JPRB,&
1017 &8.9500_JPRB, 9.0900_JPRB, 9.1600_JPRB, 9.0100_JPRB, 8.8100_JPRB, 8.3800_JPRB, 7.7900_JPRB, 6.8600_JPRB,&
1018 &5.7500_JPRB, 5.1800_JPRB, 5.1800_JPRB /)
1019ZOZCL(:,22, 7) = (/&
1020 &4.1900_JPRB, 4.1900_JPRB, 4.2800_JPRB, 4.9800_JPRB, 5.4600_JPRB, 6.4700_JPRB, 7.3400_JPRB, 7.9800_JPRB,&
1021 &8.8100_JPRB, 9.0200_JPRB, 9.1000_JPRB, 8.7200_JPRB, 8.5500_JPRB, 8.0400_JPRB, 7.2800_JPRB, 6.3300_JPRB,&
1022 &5.2300_JPRB, 4.5000_JPRB, 4.5000_JPRB /)
1023ZOZCL(:,23, 7) = (/&
1024 &3.8200_JPRB, 3.8200_JPRB, 3.9700_JPRB, 4.7400_JPRB, 5.2600_JPRB, 5.9600_JPRB, 6.5700_JPRB, 6.9900_JPRB,&
1025 &7.5400_JPRB, 7.7800_JPRB, 7.9000_JPRB, 7.5300_JPRB, 7.4000_JPRB, 6.9700_JPRB, 6.3300_JPRB, 5.5000_JPRB,&
1026 &4.5300_JPRB, 3.9400_JPRB, 3.9400_JPRB /)
1027ZOZCL(:,24, 7) = (/&
1028 &3.7100_JPRB, 3.7100_JPRB, 3.8900_JPRB, 4.6500_JPRB, 5.1700_JPRB, 5.6000_JPRB, 5.9100_JPRB, 6.0600_JPRB,&
1029 &6.2700_JPRB, 6.4500_JPRB, 6.6600_JPRB, 6.4300_JPRB, 6.3800_JPRB, 6.1300_JPRB, 5.6600_JPRB, 4.9800_JPRB,&
1030 &4.1400_JPRB, 3.6800_JPRB, 3.6800_JPRB /)
1031ZOZCL(:,25, 7) = (/&
1032 &3.4701_JPRB, 3.4701_JPRB, 3.5162_JPRB, 3.9933_JPRB, 4.6133_JPRB, 5.0536_JPRB, 4.9825_JPRB, 4.5500_JPRB,&
1033 &4.1718_JPRB, 4.4264_JPRB, 4.7800_JPRB, 4.8400_JPRB, 4.8924_JPRB, 4.7025_JPRB, 4.4212_JPRB, 3.9383_JPRB,&
1034 &3.5126_JPRB, 3.1965_JPRB, 3.1965_JPRB /)
1035ZOZCL(:,26, 7) = (/&
1036 &2.9388_JPRB, 2.9388_JPRB, 2.7899_JPRB, 2.9840_JPRB, 2.7140_JPRB, 2.9684_JPRB, 2.3390_JPRB, 2.0700_JPRB,&
1037 &1.6414_JPRB, 1.6086_JPRB, 1.9200_JPRB, 2.1400_JPRB, 2.2499_JPRB, 2.5745_JPRB, 2.6698_JPRB, 2.7470_JPRB,&
1038 &2.6827_JPRB, 2.6723_JPRB, 2.6723_JPRB /)
1039ZOZCL(:,27, 7) = (/&
1040 &1.9786_JPRB, 1.9786_JPRB, 2.0127_JPRB, 2.0657_JPRB, 1.6057_JPRB, 1.6493_JPRB, 0.8961_JPRB, 0.8600_JPRB,&
1041 &0.5157_JPRB, 0.5622_JPRB, 0.8200_JPRB, 1.0500_JPRB, 0.9857_JPRB, 1.2802_JPRB, 1.5339_JPRB, 1.8314_JPRB,&
1042 &1.8882_JPRB, 2.0093_JPRB, 2.0093_JPRB /)
1043ZOZCL(:,28, 7) = (/&
1044 &1.2198_JPRB, 1.2198_JPRB, 1.1289_JPRB, 0.8280_JPRB, 0.7900_JPRB, 0.6996_JPRB, 0.2260_JPRB, 0.2119_JPRB,&
1045 &0.1338_JPRB, 0.1909_JPRB, 0.2510_JPRB, 0.2425_JPRB, 0.2364_JPRB, 0.4753_JPRB, 0.7528_JPRB, 0.9720_JPRB,&
1046 &1.0715_JPRB, 1.1551_JPRB, 1.1551_JPRB /)
1047ZOZCL(:,29, 7) = (/&
1048 &0.4683_JPRB, 0.4683_JPRB, 0.4347_JPRB, 0.5000_JPRB, 0.3573_JPRB, 0.3828_JPRB, 0.1227_JPRB, 0.1129_JPRB,&
1049 &0.0627_JPRB, 0.0932_JPRB, 0.1120_JPRB, 0.0643_JPRB, 0.0984_JPRB, 0.2115_JPRB, 0.3913_JPRB, 0.4927_JPRB,&
1050 &0.5340_JPRB, 0.5590_JPRB, 0.5590_JPRB /)
1051ZOZCL(:,30, 7) = (/&
1052 &0.2218_JPRB, 0.2218_JPRB, 0.1946_JPRB, 0.3528_JPRB, 0.2505_JPRB, 0.2352_JPRB, 0.0930_JPRB, 0.0859_JPRB,&
1053 &0.0536_JPRB, 0.0781_JPRB, 0.0850_JPRB, 0.0484_JPRB, 0.0767_JPRB, 0.1375_JPRB, 0.2833_JPRB, 0.3725_JPRB,&
1054 &0.4364_JPRB, 0.4529_JPRB, 0.4529_JPRB /)
1055ZOZCL(:,31, 7) = (/&
1056 &0.0448_JPRB, 0.0448_JPRB, 0.0520_JPRB, 0.0583_JPRB, 0.0640_JPRB, 0.0620_JPRB, 0.0693_JPRB, 0.0642_JPRB,&
1057 &0.0442_JPRB, 0.0606_JPRB, 0.0560_JPRB, 0.0391_JPRB, 0.0618_JPRB, 0.0840_JPRB, 0.1020_JPRB, 0.1090_JPRB,&
1058 &0.1481_JPRB, 0.1344_JPRB, 0.1344_JPRB /)
1059ZOZCL(:,32, 7) = (/&
1060 &0.0361_JPRB, 0.0361_JPRB, 0.0398_JPRB, 0.0390_JPRB, 0.0362_JPRB, 0.0367_JPRB, 0.0572_JPRB, 0.0539_JPRB,&
1061 &0.0400_JPRB, 0.0499_JPRB, 0.0476_JPRB, 0.0394_JPRB, 0.0482_JPRB, 0.0667_JPRB, 0.0718_JPRB, 0.0686_JPRB,&
1062 &0.0652_JPRB, 0.0560_JPRB, 0.0560_JPRB /)
1063ZOZCL(:,33, 7) = (/&
1064 &0.0312_JPRB, 0.0312_JPRB, 0.0337_JPRB, 0.0334_JPRB, 0.0329_JPRB, 0.0350_JPRB, 0.0493_JPRB, 0.0465_JPRB,&
1065 &0.0319_JPRB, 0.0340_JPRB, 0.0307_JPRB, 0.0343_JPRB, 0.0299_JPRB, 0.0549_JPRB, 0.0563_JPRB, 0.0479_JPRB,&
1066 &0.0495_JPRB, 0.0394_JPRB, 0.0394_JPRB /)
1067ZOZCL(:,34, 7) = (/&
1068 &0.0312_JPRB, 0.0312_JPRB, 0.0337_JPRB, 0.0334_JPRB, 0.0329_JPRB, 0.0350_JPRB, 0.0493_JPRB, 0.0465_JPRB,&
1069 &0.0319_JPRB, 0.0340_JPRB, 0.0307_JPRB, 0.0343_JPRB, 0.0299_JPRB, 0.0549_JPRB, 0.0563_JPRB, 0.0479_JPRB,&
1070 &0.0495_JPRB, 0.0394_JPRB, 0.0394_JPRB /)
1071
1072! Month:  8
1073ZOZCL(:, 1, 8) = (/&
1074 &0.6000_JPRB, 0.6000_JPRB, 0.6200_JPRB, 0.6200_JPRB, 0.6600_JPRB, 0.6900_JPRB, 0.6700_JPRB, 0.6100_JPRB,&
1075 &0.6000_JPRB, 0.6100_JPRB, 0.6200_JPRB, 0.6500_JPRB, 0.6800_JPRB, 0.6700_JPRB, 0.6400_JPRB, 0.6700_JPRB,&
1076 &0.6000_JPRB, 0.4400_JPRB, 0.4400_JPRB /)
1077ZOZCL(:, 2, 8) = (/&
1078 &0.3600_JPRB, 0.3600_JPRB, 0.3700_JPRB, 0.3700_JPRB, 0.4000_JPRB, 0.4300_JPRB, 0.4300_JPRB, 0.4100_JPRB,&
1079 &0.4000_JPRB, 0.4000_JPRB, 0.4100_JPRB, 0.4400_JPRB, 0.4600_JPRB, 0.4300_JPRB, 0.4100_JPRB, 0.4100_JPRB,&
1080 &0.3500_JPRB, 0.2400_JPRB, 0.2400_JPRB /)
1081ZOZCL(:, 3, 8) = (/&
1082 &0.2500_JPRB, 0.2500_JPRB, 0.2600_JPRB, 0.2600_JPRB, 0.2900_JPRB, 0.3200_JPRB, 0.3400_JPRB, 0.3500_JPRB,&
1083 &0.3500_JPRB, 0.3600_JPRB, 0.3600_JPRB, 0.3800_JPRB, 0.3600_JPRB, 0.3200_JPRB, 0.2900_JPRB, 0.2800_JPRB,&
1084 &0.2200_JPRB, 0.1800_JPRB, 0.1800_JPRB /)
1085ZOZCL(:, 4, 8) = (/&
1086 &0.2200_JPRB, 0.2200_JPRB, 0.2300_JPRB, 0.2200_JPRB, 0.2500_JPRB, 0.2800_JPRB, 0.3000_JPRB, 0.3100_JPRB,&
1087 &0.3100_JPRB, 0.2900_JPRB, 0.2900_JPRB, 0.3100_JPRB, 0.2700_JPRB, 0.2300_JPRB, 0.2000_JPRB, 0.1700_JPRB,&
1088 &0.1500_JPRB, 0.1400_JPRB, 0.1400_JPRB /)
1089ZOZCL(:, 5, 8) = (/&
1090 &0.2400_JPRB, 0.2400_JPRB, 0.2500_JPRB, 0.2500_JPRB, 0.2300_JPRB, 0.2300_JPRB, 0.2400_JPRB, 0.2200_JPRB,&
1091 &0.1900_JPRB, 0.1800_JPRB, 0.1800_JPRB, 0.1900_JPRB, 0.1700_JPRB, 0.1600_JPRB, 0.1500_JPRB, 0.1400_JPRB,&
1092 &0.1400_JPRB, 0.1300_JPRB, 0.1300_JPRB /)
1093ZOZCL(:, 6, 8) = (/&
1094 &0.2300_JPRB, 0.2300_JPRB, 0.2400_JPRB, 0.2400_JPRB, 0.2000_JPRB, 0.1900_JPRB, 0.1800_JPRB, 0.1600_JPRB,&
1095 &0.1400_JPRB, 0.1400_JPRB, 0.1400_JPRB, 0.1500_JPRB, 0.1400_JPRB, 0.1400_JPRB, 0.1400_JPRB, 0.1400_JPRB,&
1096 &0.1500_JPRB, 0.1500_JPRB, 0.1500_JPRB /)
1097ZOZCL(:, 7, 8) = (/&
1098 &0.2300_JPRB, 0.2300_JPRB, 0.2400_JPRB, 0.2400_JPRB, 0.1900_JPRB, 0.1700_JPRB, 0.1700_JPRB, 0.1700_JPRB,&
1099 &0.1600_JPRB, 0.1600_JPRB, 0.1600_JPRB, 0.1700_JPRB, 0.1600_JPRB, 0.1600_JPRB, 0.1700_JPRB, 0.1800_JPRB,&
1100 &0.1800_JPRB, 0.1900_JPRB, 0.1900_JPRB /)
1101ZOZCL(:, 8, 8) = (/&
1102 &0.3200_JPRB, 0.3200_JPRB, 0.3300_JPRB, 0.3300_JPRB, 0.3200_JPRB, 0.3100_JPRB, 0.3000_JPRB, 0.2600_JPRB,&
1103 &0.2500_JPRB, 0.2500_JPRB, 0.2500_JPRB, 0.2500_JPRB, 0.2400_JPRB, 0.2500_JPRB, 0.2600_JPRB, 0.2700_JPRB,&
1104 &0.2700_JPRB, 0.2900_JPRB, 0.2900_JPRB /)
1105ZOZCL(:, 9, 8) = (/&
1106 &0.4200_JPRB, 0.4200_JPRB, 0.4400_JPRB, 0.4400_JPRB, 0.4700_JPRB, 0.4800_JPRB, 0.4400_JPRB, 0.3800_JPRB,&
1107 &0.3500_JPRB, 0.3500_JPRB, 0.3500_JPRB, 0.3400_JPRB, 0.3400_JPRB, 0.3600_JPRB, 0.3800_JPRB, 0.3800_JPRB,&
1108 &0.3800_JPRB, 0.3900_JPRB, 0.3900_JPRB /)
1109ZOZCL(:,10, 8) = (/&
1110 &0.5800_JPRB, 0.5800_JPRB, 0.6000_JPRB, 0.6000_JPRB, 0.6100_JPRB, 0.6200_JPRB, 0.5900_JPRB, 0.5400_JPRB,&
1111 &0.5200_JPRB, 0.5300_JPRB, 0.5300_JPRB, 0.5200_JPRB, 0.5200_JPRB, 0.5300_JPRB, 0.5300_JPRB, 0.5200_JPRB,&
1112 &0.5200_JPRB, 0.5400_JPRB, 0.5400_JPRB /)
1113ZOZCL(:,11, 8) = (/&
1114 &0.8100_JPRB, 0.8100_JPRB, 0.8400_JPRB, 0.8400_JPRB, 0.8500_JPRB, 0.8800_JPRB, 0.8700_JPRB, 0.8200_JPRB,&
1115 &0.7900_JPRB, 0.7900_JPRB, 0.7900_JPRB, 0.7900_JPRB, 0.8000_JPRB, 0.8100_JPRB, 0.8000_JPRB, 0.7600_JPRB,&
1116 &0.7500_JPRB, 0.7300_JPRB, 0.7300_JPRB /)
1117ZOZCL(:,12, 8) = (/&
1118 &0.9700_JPRB, 0.9700_JPRB, 1.0100_JPRB, 1.0100_JPRB, 1.0900_JPRB, 1.1200_JPRB, 1.1100_JPRB, 1.0500_JPRB,&
1119 &1.0200_JPRB, 1.0100_JPRB, 1.0100_JPRB, 1.0300_JPRB, 1.0400_JPRB, 1.0500_JPRB, 1.0200_JPRB, 0.9600_JPRB,&
1120 &0.9200_JPRB, 0.8900_JPRB, 0.8900_JPRB /)
1121ZOZCL(:,13, 8) = (/&
1122 &1.1300_JPRB, 1.1300_JPRB, 1.1800_JPRB, 1.1800_JPRB, 1.5600_JPRB, 1.5800_JPRB, 1.5400_JPRB, 1.4700_JPRB,&
1123 &1.4300_JPRB, 1.4000_JPRB, 1.3900_JPRB, 1.4200_JPRB, 1.4600_JPRB, 1.4500_JPRB, 1.3800_JPRB, 1.3000_JPRB,&
1124 &1.2300_JPRB, 1.1800_JPRB, 1.1800_JPRB /)
1125ZOZCL(:,14, 8) = (/&
1126 &1.8200_JPRB, 1.8200_JPRB, 1.9000_JPRB, 1.9000_JPRB, 2.1900_JPRB, 2.2200_JPRB, 2.1100_JPRB, 2.0000_JPRB,&
1127 &1.9700_JPRB, 1.9500_JPRB, 1.9400_JPRB, 1.9700_JPRB, 2.0200_JPRB, 1.9800_JPRB, 1.8500_JPRB, 1.7400_JPRB,&
1128 &1.6400_JPRB, 1.5600_JPRB, 1.5600_JPRB /)
1129ZOZCL(:,15, 8) = (/&
1130 &2.2000_JPRB, 2.2000_JPRB, 2.5000_JPRB, 2.5500_JPRB, 2.7600_JPRB, 2.7900_JPRB, 2.6000_JPRB, 2.4500_JPRB,&
1131 &2.4000_JPRB, 2.3900_JPRB, 2.4000_JPRB, 2.4400_JPRB, 2.5000_JPRB, 2.4400_JPRB, 2.2600_JPRB, 2.1100_JPRB,&
1132 &2.0100_JPRB, 1.9200_JPRB, 1.9200_JPRB /)
1133ZOZCL(:,16, 8) = (/&
1134 &2.8400_JPRB, 2.8400_JPRB, 3.3500_JPRB, 3.5400_JPRB, 3.8700_JPRB, 3.8700_JPRB, 3.5500_JPRB, 3.2900_JPRB,&
1135 &3.1700_JPRB, 3.1300_JPRB, 3.1400_JPRB, 3.2200_JPRB, 3.2800_JPRB, 3.1800_JPRB, 2.9500_JPRB, 2.7700_JPRB,&
1136 &2.6500_JPRB, 2.5500_JPRB, 2.5500_JPRB /)
1137ZOZCL(:,17, 8) = (/&
1138 &3.7800_JPRB, 3.7800_JPRB, 4.4100_JPRB, 4.9700_JPRB, 5.5100_JPRB, 5.4300_JPRB, 4.9700_JPRB, 4.5500_JPRB,&
1139 &4.3100_JPRB, 4.2400_JPRB, 4.2700_JPRB, 4.3900_JPRB, 4.4200_JPRB, 4.2500_JPRB, 3.9800_JPRB, 3.7800_JPRB,&
1140 &3.6100_JPRB, 3.4800_JPRB, 3.4800_JPRB /)
1141
1142ZOZCL(:,18, 8) = (/&
1143 &4.3800_JPRB, 4.3800_JPRB, 4.9200_JPRB, 5.7900_JPRB, 6.6000_JPRB, 6.5500_JPRB, 6.0900_JPRB, 5.6800_JPRB,&
1144 &5.4200_JPRB, 5.3300_JPRB, 5.3700_JPRB, 5.5100_JPRB, 5.4900_JPRB, 5.2700_JPRB, 4.9900_JPRB, 4.7700_JPRB,&
1145 &4.5300_JPRB, 4.3200_JPRB, 4.3200_JPRB /)
1146ZOZCL(:,19, 8) = (/&
1147 &4.8800_JPRB, 4.8800_JPRB, 5.2100_JPRB, 6.3500_JPRB, 7.5700_JPRB, 7.7800_JPRB, 7.5400_JPRB, 7.3700_JPRB,&
1148 &7.2300_JPRB, 7.1600_JPRB, 7.2000_JPRB, 7.3200_JPRB, 7.2300_JPRB, 6.9400_JPRB, 6.6400_JPRB, 6.3400_JPRB,&
1149 &5.8600_JPRB, 5.4300_JPRB, 5.4300_JPRB /)
1150ZOZCL(:,20, 8) = (/&
1151 &5.2400_JPRB, 5.2400_JPRB, 5.3400_JPRB, 6.1400_JPRB, 7.2600_JPRB, 7.9400_JPRB, 8.1700_JPRB, 8.5200_JPRB,&
1152 &8.8400_JPRB, 8.9000_JPRB, 8.9100_JPRB, 8.7400_JPRB, 8.5500_JPRB, 8.2000_JPRB, 7.7500_JPRB, 7.1100_JPRB,&
1153 &6.1300_JPRB, 5.3000_JPRB, 5.3000_JPRB /)
1154ZOZCL(:,21, 8) = (/&
1155 &5.1700_JPRB, 5.1700_JPRB, 5.2900_JPRB, 5.5900_JPRB, 6.5700_JPRB, 7.5000_JPRB, 7.9800_JPRB, 8.6200_JPRB,&
1156 &9.2200_JPRB, 9.3700_JPRB, 9.4200_JPRB, 9.1600_JPRB, 8.8300_JPRB, 8.3600_JPRB, 7.7000_JPRB, 6.8700_JPRB,&
1157 &5.6600_JPRB, 4.6800_JPRB, 4.6800_JPRB /)
1158ZOZCL(:,22, 8) = (/&
1159 &4.8300_JPRB, 4.8300_JPRB, 5.1100_JPRB, 4.9400_JPRB, 5.7000_JPRB, 6.7600_JPRB, 7.3600_JPRB, 8.2000_JPRB,&
1160 &9.0800_JPRB, 9.2400_JPRB, 9.3100_JPRB, 8.9200_JPRB, 8.4600_JPRB, 7.8800_JPRB, 7.0800_JPRB, 6.2200_JPRB,&
1161 &5.0300_JPRB, 4.0600_JPRB, 4.0600_JPRB /)
1162ZOZCL(:,23, 8) = (/&
1163 &4.4114_JPRB, 4.4114_JPRB, 4.3392_JPRB, 3.8500_JPRB, 5.2000_JPRB, 6.0800_JPRB, 6.5300_JPRB, 7.0900_JPRB,&
1164 &7.7200_JPRB, 7.8900_JPRB, 8.0000_JPRB, 7.6600_JPRB, 7.2800_JPRB, 6.8400_JPRB, 6.1300_JPRB, 5.3300_JPRB,&
1165 &4.3300_JPRB, 3.6200_JPRB, 3.6200_JPRB /)
1166ZOZCL(:,24, 8) = (/&
1167 &3.8642_JPRB, 3.8642_JPRB, 3.7532_JPRB, 3.3850_JPRB, 4.9400_JPRB, 5.6200_JPRB, 5.8700_JPRB, 6.1300_JPRB,&
1168 &6.4200_JPRB, 6.5400_JPRB, 6.7200_JPRB, 6.5200_JPRB, 6.2600_JPRB, 5.9800_JPRB, 5.4700_JPRB, 4.8100_JPRB,&
1169 &3.9600_JPRB, 3.4500_JPRB, 3.4500_JPRB /)
1170ZOZCL(:,25, 8) = (/&
1171 &3.2527_JPRB, 3.2527_JPRB, 3.1107_JPRB, 3.1000_JPRB, 4.9600_JPRB, 4.9954_JPRB, 4.9525_JPRB, 4.6300_JPRB,&
1172 &4.2568_JPRB, 4.4121_JPRB, 4.7500_JPRB, 4.8600_JPRB, 4.7875_JPRB, 4.6815_JPRB, 4.3089_JPRB, 3.7158_JPRB,&
1173 &3.3159_JPRB, 3.1320_JPRB, 3.1320_JPRB /)
1174ZOZCL(:,26, 8) = (/&
1175 &2.8269_JPRB, 2.8269_JPRB, 2.5633_JPRB, 2.3880_JPRB, 3.0680_JPRB, 3.0094_JPRB, 2.5760_JPRB, 2.2800_JPRB,&
1176 &1.6597_JPRB, 1.6279_JPRB, 1.9500_JPRB, 2.1300_JPRB, 2.1947_JPRB, 2.4610_JPRB, 2.5566_JPRB, 2.5730_JPRB,&
1177 &2.5703_JPRB, 2.6306_JPRB, 2.6306_JPRB /)
1178ZOZCL(:,27, 8) = (/&
1179 &2.0124_JPRB, 2.0124_JPRB, 1.7867_JPRB, 1.4700_JPRB, 1.7214_JPRB, 1.6495_JPRB, 0.9482_JPRB, 1.0400_JPRB,&
1180 &0.6012_JPRB, 0.6575_JPRB, 0.8800_JPRB, 1.0100_JPRB, 0.9167_JPRB, 1.2381_JPRB, 1.4940_JPRB, 1.7246_JPRB,&
1181 &1.8416_JPRB, 1.9963_JPRB, 1.9963_JPRB /)
1182ZOZCL(:,28, 8) = (/&
1183 &1.0946_JPRB, 1.0946_JPRB, 1.0225_JPRB, 0.9160_JPRB, 0.8850_JPRB, 0.7602_JPRB, 0.2500_JPRB, 0.2237_JPRB,&
1184 &0.1148_JPRB, 0.1680_JPRB, 0.1830_JPRB, 0.1922_JPRB, 0.1848_JPRB, 0.4119_JPRB, 0.6847_JPRB, 0.8300_JPRB,&
1185 &0.9963_JPRB, 1.0967_JPRB, 1.0967_JPRB /)
1186ZOZCL(:,29, 8) = (/&
1187 &0.4743_JPRB, 0.4743_JPRB, 0.4304_JPRB, 0.3907_JPRB, 0.3920_JPRB, 0.3548_JPRB, 0.1347_JPRB, 0.1200_JPRB,&
1188 &0.0588_JPRB, 0.0724_JPRB, 0.0580_JPRB, 0.0565_JPRB, 0.0841_JPRB, 0.1486_JPRB, 0.3128_JPRB, 0.3640_JPRB,&
1189 &0.4621_JPRB, 0.5082_JPRB, 0.5082_JPRB /)
1190ZOZCL(:,30, 8) = (/&
1191 &0.2241_JPRB, 0.2241_JPRB, 0.2028_JPRB, 0.2759_JPRB, 0.2695_JPRB, 0.2556_JPRB, 0.1030_JPRB, 0.0919_JPRB,&
1192 &0.0441_JPRB, 0.0555_JPRB, 0.0540_JPRB, 0.0374_JPRB, 0.0641_JPRB, 0.1085_JPRB, 0.1991_JPRB, 0.2510_JPRB,&
1193 &0.3501_JPRB, 0.3990_JPRB, 0.3990_JPRB /)
1194ZOZCL(:,31, 8) = (/&
1195 &0.0529_JPRB, 0.0529_JPRB, 0.0549_JPRB, 0.0463_JPRB, 0.0600_JPRB, 0.0714_JPRB, 0.0710_JPRB, 0.0651_JPRB,&
1196 &0.0403_JPRB, 0.0451_JPRB, 0.0387_JPRB, 0.0299_JPRB, 0.0512_JPRB, 0.0798_JPRB, 0.0908_JPRB, 0.0883_JPRB,&
1197 &0.1016_JPRB, 0.1352_JPRB, 0.1352_JPRB /)
1198ZOZCL(:,32, 8) = (/&
1199 &0.0373_JPRB, 0.0373_JPRB, 0.0374_JPRB, 0.0390_JPRB, 0.0406_JPRB, 0.0402_JPRB, 0.0606_JPRB, 0.0559_JPRB,&
1200 &0.0394_JPRB, 0.0454_JPRB, 0.0280_JPRB, 0.0336_JPRB, 0.0450_JPRB, 0.0673_JPRB, 0.0685_JPRB, 0.0632_JPRB,&
1201 &0.0622_JPRB, 0.0549_JPRB, 0.0549_JPRB /)
1202ZOZCL(:,33, 8) = (/&
1203 &0.0311_JPRB, 0.0311_JPRB, 0.0313_JPRB, 0.0353_JPRB, 0.0357_JPRB, 0.0353_JPRB, 0.0543_JPRB, 0.0502_JPRB,&
1204 &0.0337_JPRB, 0.0366_JPRB, 0.0286_JPRB, 0.0355_JPRB, 0.0340_JPRB, 0.0563_JPRB, 0.0561_JPRB, 0.0500_JPRB,&
1205 &0.0496_JPRB, 0.0427_JPRB, 0.0427_JPRB /)
1206ZOZCL(:,34, 8) = (/&
1207 &0.0311_JPRB, 0.0311_JPRB, 0.0313_JPRB, 0.0353_JPRB, 0.0357_JPRB, 0.0353_JPRB, 0.0543_JPRB, 0.0502_JPRB,&
1208 &0.0337_JPRB, 0.0366_JPRB, 0.0286_JPRB, 0.0355_JPRB, 0.0340_JPRB, 0.0563_JPRB, 0.0561_JPRB, 0.0500_JPRB,&
1209 &0.0496_JPRB, 0.0427_JPRB, 0.0427_JPRB /)
1210
1211! Month:  9
1212ZOZCL(:, 1, 9) = (/&
1213 &0.4200_JPRB, 0.4200_JPRB, 0.5800_JPRB, 0.5900_JPRB, 0.6400_JPRB, 0.7400_JPRB, 0.7900_JPRB, 0.7700_JPRB,&
1214 &0.7700_JPRB, 0.7700_JPRB, 0.7500_JPRB, 0.7600_JPRB, 0.7600_JPRB, 0.6900_JPRB, 0.6100_JPRB, 0.6000_JPRB,&
1215 &0.5600_JPRB, 0.4600_JPRB, 0.4600_JPRB /)
1216ZOZCL(:, 2, 9) = (/&
1217 &0.2700_JPRB, 0.2700_JPRB, 0.3300_JPRB, 0.3600_JPRB, 0.3900_JPRB, 0.4600_JPRB, 0.5200_JPRB, 0.5100_JPRB,&
1218 &0.4800_JPRB, 0.4800_JPRB, 0.4700_JPRB, 0.4900_JPRB, 0.5300_JPRB, 0.4700_JPRB, 0.3700_JPRB, 0.3100_JPRB,&
1219 &0.2800_JPRB, 0.2100_JPRB, 0.2100_JPRB /)
1220ZOZCL(:, 3, 9) = (/&
1221 &0.2300_JPRB, 0.2300_JPRB, 0.2600_JPRB, 0.2900_JPRB, 0.3300_JPRB, 0.3800_JPRB, 0.4300_JPRB, 0.4300_JPRB,&
1222 &0.4000_JPRB, 0.3800_JPRB, 0.3800_JPRB, 0.4000_JPRB, 0.4200_JPRB, 0.3800_JPRB, 0.2900_JPRB, 0.2300_JPRB,&
1223 &0.2000_JPRB, 0.1600_JPRB, 0.1600_JPRB /)
1224ZOZCL(:, 4, 9) = (/&
1225 &0.2400_JPRB, 0.2400_JPRB, 0.2800_JPRB, 0.3100_JPRB, 0.3400_JPRB, 0.3700_JPRB, 0.3700_JPRB, 0.3500_JPRB,&
1226 &0.3200_JPRB, 0.2900_JPRB, 0.2900_JPRB, 0.3200_JPRB, 0.3400_JPRB, 0.3100_JPRB, 0.2500_JPRB, 0.2000_JPRB,&
1227 &0.1900_JPRB, 0.1600_JPRB, 0.1600_JPRB /)
1228ZOZCL(:, 5, 9) = (/&
1229 &0.2700_JPRB, 0.2700_JPRB, 0.3100_JPRB, 0.3100_JPRB, 0.3200_JPRB, 0.3000_JPRB, 0.2700_JPRB, 0.2300_JPRB,&
1230 &0.2100_JPRB, 0.2000_JPRB, 0.1900_JPRB, 0.2100_JPRB, 0.2200_JPRB, 0.2200_JPRB, 0.1900_JPRB, 0.1700_JPRB,&
1231 &0.1600_JPRB, 0.1700_JPRB, 0.1700_JPRB /)
1232ZOZCL(:, 6, 9) = (/&
1233 &0.2800_JPRB, 0.2800_JPRB, 0.3000_JPRB, 0.2700_JPRB, 0.2500_JPRB, 0.2300_JPRB, 0.1900_JPRB, 0.1700_JPRB,&
1234 &0.1600_JPRB, 0.1600_JPRB, 0.1500_JPRB, 0.1600_JPRB, 0.1700_JPRB, 0.1700_JPRB, 0.1600_JPRB, 0.1500_JPRB,&
1235 &0.1500_JPRB, 0.1800_JPRB, 0.1800_JPRB /)
1236ZOZCL(:, 7, 9) = (/&
1237 &0.2800_JPRB, 0.2800_JPRB, 0.2800_JPRB, 0.2200_JPRB, 0.1900_JPRB, 0.1700_JPRB, 0.1600_JPRB, 0.1700_JPRB,&
1238 &0.1700_JPRB, 0.1600_JPRB, 0.1600_JPRB, 0.1600_JPRB, 0.1500_JPRB, 0.1500_JPRB, 0.1600_JPRB, 0.1600_JPRB,&
1239 &0.1700_JPRB, 0.2100_JPRB, 0.2100_JPRB /)
1240ZOZCL(:, 8, 9) = (/&
1241 &0.3300_JPRB, 0.3300_JPRB, 0.3300_JPRB, 0.3100_JPRB, 0.3100_JPRB, 0.2900_JPRB, 0.2800_JPRB, 0.2600_JPRB,&
1242 &0.2400_JPRB, 0.2300_JPRB, 0.2400_JPRB, 0.2400_JPRB, 0.2300_JPRB, 0.2300_JPRB, 0.2500_JPRB, 0.2600_JPRB,&
1243 &0.2700_JPRB, 0.2900_JPRB, 0.2900_JPRB /)
1244ZOZCL(:, 9, 9) = (/&
1245 &0.4100_JPRB, 0.4100_JPRB, 0.4300_JPRB, 0.4400_JPRB, 0.4500_JPRB, 0.4400_JPRB, 0.4100_JPRB, 0.3700_JPRB,&
1246 &0.3400_JPRB, 0.3300_JPRB, 0.3400_JPRB, 0.3400_JPRB, 0.3400_JPRB, 0.3500_JPRB, 0.3800_JPRB, 0.3900_JPRB,&
1247 &0.3800_JPRB, 0.3800_JPRB, 0.3800_JPRB /)
1248ZOZCL(:,10, 9) = (/&
1249 &0.5200_JPRB, 0.5200_JPRB, 0.5700_JPRB, 0.5800_JPRB, 0.5900_JPRB, 0.5800_JPRB, 0.5400_JPRB, 0.5000_JPRB,&
1250 &0.4900_JPRB, 0.5000_JPRB, 0.4900_JPRB, 0.4700_JPRB, 0.4600_JPRB, 0.4700_JPRB, 0.4900_JPRB, 0.4800_JPRB,&
1251 &0.4900_JPRB, 0.5000_JPRB, 0.5000_JPRB /)
1252ZOZCL(:,11, 9) = (/&
1253 &0.7000_JPRB, 0.7000_JPRB, 0.8000_JPRB, 0.8000_JPRB, 0.8300_JPRB, 0.8400_JPRB, 0.8000_JPRB, 0.7700_JPRB,&
1254 &0.7600_JPRB, 0.7600_JPRB, 0.7400_JPRB, 0.7200_JPRB, 0.7000_JPRB, 0.7200_JPRB, 0.7300_JPRB, 0.7000_JPRB,&
1255 &0.6700_JPRB, 0.6700_JPRB, 0.6700_JPRB /)
1256ZOZCL(:,12, 9) = (/&
1257 &0.8700_JPRB, 0.8700_JPRB, 0.9900_JPRB, 1.0100_JPRB, 1.0500_JPRB, 1.0600_JPRB, 1.0300_JPRB, 1.0000_JPRB,&
1258 &0.9900_JPRB, 0.9800_JPRB, 0.9700_JPRB, 0.9600_JPRB, 0.9600_JPRB, 0.9700_JPRB, 0.9700_JPRB, 0.9400_JPRB,&
1259 &0.8900_JPRB, 0.8600_JPRB, 0.8600_JPRB /)
1260ZOZCL(:,13, 9) = (/&
1261 &1.2800_JPRB, 1.2800_JPRB, 1.3500_JPRB, 1.4000_JPRB, 1.4700_JPRB, 1.4800_JPRB, 1.4300_JPRB, 1.4100_JPRB,&
1262 &1.4100_JPRB, 1.3800_JPRB, 1.3600_JPRB, 1.3800_JPRB, 1.4000_JPRB, 1.4000_JPRB, 1.4000_JPRB, 1.3600_JPRB,&
1263 &1.2800_JPRB, 1.2500_JPRB, 1.2500_JPRB /)
1264ZOZCL(:,14, 9) = (/&
1265 &1.7800_JPRB, 1.7800_JPRB, 1.8800_JPRB, 1.9800_JPRB, 2.1000_JPRB, 2.1000_JPRB, 2.0200_JPRB, 1.9600_JPRB,&
1266 &1.9500_JPRB, 1.9300_JPRB, 1.9200_JPRB, 1.9400_JPRB, 1.9600_JPRB, 1.9500_JPRB, 1.9200_JPRB, 1.8900_JPRB,&
1267 &1.8700_JPRB, 1.9300_JPRB, 1.9300_JPRB /)
1268ZOZCL(:,15, 9) = (/&
1269 &2.3800_JPRB, 2.3800_JPRB, 2.3400_JPRB, 2.4800_JPRB, 2.6700_JPRB, 2.6400_JPRB, 2.4700_JPRB, 2.3800_JPRB,&
1270 &2.3600_JPRB, 2.3500_JPRB, 2.3600_JPRB, 2.3800_JPRB, 2.4000_JPRB, 2.3800_JPRB, 2.3600_JPRB, 2.3700_JPRB,&
1271 &2.4100_JPRB, 2.4800_JPRB, 2.4800_JPRB /)
1272ZOZCL(:,16, 9) = (/&
1273 &3.1900_JPRB, 3.1900_JPRB, 3.1800_JPRB, 3.3800_JPRB, 3.6600_JPRB, 3.6200_JPRB, 3.3600_JPRB, 3.1500_JPRB,&
1274 &3.0600_JPRB, 3.0400_JPRB, 3.0700_JPRB, 3.1500_JPRB, 3.2300_JPRB, 3.2300_JPRB, 3.2300_JPRB, 3.3000_JPRB,&
1275 &3.3700_JPRB, 3.3400_JPRB, 3.3400_JPRB /)
1276ZOZCL(:,17, 9) = (/&
1277 &4.2600_JPRB, 4.2600_JPRB, 4.3800_JPRB, 4.7200_JPRB, 5.1000_JPRB, 5.0700_JPRB, 4.7100_JPRB, 4.3500_JPRB,&
1278 &4.1300_JPRB, 4.0700_JPRB, 4.1500_JPRB, 4.3400_JPRB, 4.4800_JPRB, 4.5100_JPRB, 4.5400_JPRB, 4.6600_JPRB,&
1279 &4.6900_JPRB, 4.3300_JPRB, 4.3300_JPRB /)
1280
1281ZOZCL(:,18, 9) = (/&
1282 &4.8600_JPRB, 4.8600_JPRB, 5.1600_JPRB, 5.7200_JPRB, 6.2300_JPRB, 6.2600_JPRB, 5.9000_JPRB, 5.5000_JPRB,&
1283 &5.2100_JPRB, 5.1300_JPRB, 5.2100_JPRB, 5.4500_JPRB, 5.6000_JPRB, 5.5900_JPRB, 5.6000_JPRB, 5.6700_JPRB,&
1284 &5.5200_JPRB, 4.8700_JPRB, 4.8700_JPRB /)
1285ZOZCL(:,19, 9) = (/&
1286 &5.3400_JPRB, 5.3400_JPRB, 5.8900_JPRB, 6.8600_JPRB, 7.5800_JPRB, 7.8000_JPRB, 7.6300_JPRB, 7.3600_JPRB,&
1287 &7.0800_JPRB, 6.9700_JPRB, 7.0400_JPRB, 7.2500_JPRB, 7.3100_JPRB, 7.1700_JPRB, 7.0300_JPRB, 6.8200_JPRB,&
1288 &6.2300_JPRB, 5.2200_JPRB, 5.2200_JPRB /)
1289ZOZCL(:,20, 9) = (/&
1290 &5.3600_JPRB, 5.3600_JPRB, 5.9400_JPRB, 6.7700_JPRB, 7.8900_JPRB, 8.3600_JPRB, 8.7000_JPRB, 8.9000_JPRB,&
1291 &8.9000_JPRB, 8.8200_JPRB, 8.8300_JPRB, 8.7300_JPRB, 8.6200_JPRB, 8.2000_JPRB, 7.7200_JPRB, 7.0700_JPRB,&
1292 &6.0700_JPRB, 4.9700_JPRB, 4.9700_JPRB /)
1293ZOZCL(:,21, 9) = (/&
1294 &5.2800_JPRB, 5.2800_JPRB, 5.6200_JPRB, 6.3600_JPRB, 7.3900_JPRB, 8.0400_JPRB, 8.5700_JPRB, 9.0700_JPRB,&
1295 &9.4700_JPRB, 9.4700_JPRB, 9.5000_JPRB, 9.2000_JPRB, 8.8300_JPRB, 8.2500_JPRB, 7.4800_JPRB, 6.6000_JPRB,&
1296 &5.4700_JPRB, 4.5800_JPRB, 4.5800_JPRB /)
1297ZOZCL(:,22, 9) = (/&
1298 &5.1500_JPRB, 5.1500_JPRB, 5.1800_JPRB, 5.7500_JPRB, 6.5900_JPRB, 7.3200_JPRB, 7.9000_JPRB, 8.6000_JPRB,&
1299 &9.4100_JPRB, 9.4800_JPRB, 9.5200_JPRB, 9.0100_JPRB, 8.4200_JPRB, 7.7400_JPRB, 6.7700_JPRB, 5.8200_JPRB,&
1300 &4.7100_JPRB, 4.1400_JPRB, 4.1400_JPRB /)
1301ZOZCL(:,23, 9) = (/&
1302 &4.6717_JPRB, 4.6717_JPRB, 4.8458_JPRB, 3.7400_JPRB, 5.8700_JPRB, 6.4500_JPRB, 6.8700_JPRB, 7.3500_JPRB,&
1303 &7.9500_JPRB, 8.0500_JPRB, 8.1400_JPRB, 7.7000_JPRB, 7.2100_JPRB, 6.6900_JPRB, 5.8500_JPRB, 5.0300_JPRB,&
1304 &4.1300_JPRB, 3.7500_JPRB, 3.7500_JPRB /)
1305ZOZCL(:,24, 9) = (/&
1306 &3.8037_JPRB, 3.8037_JPRB, 3.8848_JPRB, 2.9500_JPRB, 5.4400_JPRB, 5.8800_JPRB, 6.1100_JPRB, 6.3000_JPRB,&
1307 &6.5900_JPRB, 6.6600_JPRB, 6.8000_JPRB, 6.5100_JPRB, 6.1700_JPRB, 5.8600_JPRB, 5.2400_JPRB, 4.5800_JPRB,&
1308 &3.8900_JPRB, 3.5300_JPRB, 3.5300_JPRB /)
1309ZOZCL(:,25, 9) = (/&
1310 &2.3519_JPRB, 2.3519_JPRB, 2.4684_JPRB, 2.5767_JPRB, 5.0900_JPRB, 5.0874_JPRB, 4.8300_JPRB, 4.6000_JPRB,&
1311 &4.2822_JPRB, 4.4093_JPRB, 4.7200_JPRB, 4.7400_JPRB, 4.7275_JPRB, 4.5475_JPRB, 4.1553_JPRB, 3.7417_JPRB,&
1312 &3.4637_JPRB, 3.1593_JPRB, 3.1593_JPRB /)
1313ZOZCL(:,26, 9) = (/&
1314 &1.6783_JPRB, 1.6783_JPRB, 1.8105_JPRB, 1.8080_JPRB, 3.2640_JPRB, 3.1160_JPRB, 2.5420_JPRB, 2.1000_JPRB,&
1315 &1.6258_JPRB, 1.6928_JPRB, 1.9000_JPRB, 2.0000_JPRB, 2.0931_JPRB, 2.3483_JPRB, 2.4707_JPRB, 2.5830_JPRB,&
1316 &2.5729_JPRB, 2.5568_JPRB, 2.5568_JPRB /)
1317ZOZCL(:,27, 9) = (/&
1318 &1.2168_JPRB, 1.2168_JPRB, 1.2714_JPRB, 1.0043_JPRB, 1.8843_JPRB, 1.7599_JPRB, 1.1100_JPRB, 0.9300_JPRB,&
1319 &0.5827_JPRB, 0.6564_JPRB, 0.7900_JPRB, 0.8800_JPRB, 0.8406_JPRB, 1.2144_JPRB, 1.4516_JPRB, 1.7825_JPRB,&
1320 &1.9065_JPRB, 2.1061_JPRB, 2.1061_JPRB /)
1321ZOZCL(:,28, 9) = (/&
1322 &0.7290_JPRB, 0.7290_JPRB, 0.7549_JPRB, 0.6280_JPRB, 0.8840_JPRB, 0.7060_JPRB, 0.2840_JPRB, 0.2657_JPRB,&
1323 &0.1308_JPRB, 0.1540_JPRB, 0.1600_JPRB, 0.1884_JPRB, 0.1743_JPRB, 0.4245_JPRB, 0.6122_JPRB, 0.8520_JPRB,&
1324 &1.0364_JPRB, 1.1360_JPRB, 1.1360_JPRB /)
1325ZOZCL(:,29, 9) = (/&
1326 &0.3900_JPRB, 0.3900_JPRB, 0.3966_JPRB, 0.3887_JPRB, 0.4313_JPRB, 0.3504_JPRB, 0.1280_JPRB, 0.1188_JPRB,&
1327 &0.0577_JPRB, 0.0775_JPRB, 0.0687_JPRB, 0.0665_JPRB, 0.0818_JPRB, 0.1571_JPRB, 0.2472_JPRB, 0.3527_JPRB,&
1328 &0.4632_JPRB, 0.5169_JPRB, 0.5169_JPRB /)
1329ZOZCL(:,30, 9) = (/&
1330 &0.1897_JPRB, 0.1897_JPRB, 0.1921_JPRB, 0.2789_JPRB, 0.2805_JPRB, 0.2363_JPRB, 0.1080_JPRB, 0.1004_JPRB,&
1331 &0.0515_JPRB, 0.0685_JPRB, 0.0550_JPRB, 0.0409_JPRB, 0.0646_JPRB, 0.1032_JPRB, 0.1543_JPRB, 0.2500_JPRB,&
1332 &0.2984_JPRB, 0.3550_JPRB, 0.3550_JPRB /)
1333ZOZCL(:,31, 9) = (/&
1334 &0.0479_JPRB, 0.0479_JPRB, 0.0560_JPRB, 0.0593_JPRB, 0.0707_JPRB, 0.0820_JPRB, 0.0993_JPRB, 0.0918_JPRB,&
1335 &0.0458_JPRB, 0.0618_JPRB, 0.0393_JPRB, 0.0401_JPRB, 0.0538_JPRB, 0.0639_JPRB, 0.0778_JPRB, 0.0907_JPRB,&
1336 &0.0977_JPRB, 0.1328_JPRB, 0.1328_JPRB /)
1337ZOZCL(:,32, 9) = (/&
1338 &0.0367_JPRB, 0.0367_JPRB, 0.0404_JPRB, 0.0436_JPRB, 0.0488_JPRB, 0.0421_JPRB, 0.0834_JPRB, 0.0781_JPRB,&
1339 &0.0480_JPRB, 0.0545_JPRB, 0.0236_JPRB, 0.0382_JPRB, 0.0543_JPRB, 0.0546_JPRB, 0.0595_JPRB, 0.0560_JPRB,&
1340 &0.0579_JPRB, 0.0574_JPRB, 0.0574_JPRB /)
1341ZOZCL(:,33, 9) = (/&
1342 &0.0316_JPRB, 0.0316_JPRB, 0.0346_JPRB, 0.0357_JPRB, 0.0379_JPRB, 0.0368_JPRB, 0.0790_JPRB, 0.0735_JPRB,&
1343 &0.0401_JPRB, 0.0458_JPRB, 0.0190_JPRB, 0.0343_JPRB, 0.0441_JPRB, 0.0496_JPRB, 0.0498_JPRB, 0.0431_JPRB,&
1344 &0.0462_JPRB, 0.0475_JPRB, 0.0475_JPRB /)
1345ZOZCL(:,34, 9) = (/&
1346 &0.0316_JPRB, 0.0316_JPRB, 0.0346_JPRB, 0.0357_JPRB, 0.0379_JPRB, 0.0368_JPRB, 0.0790_JPRB, 0.0735_JPRB,&
1347 &0.0401_JPRB, 0.0458_JPRB, 0.0190_JPRB, 0.0343_JPRB, 0.0441_JPRB, 0.0496_JPRB, 0.0498_JPRB, 0.0431_JPRB,&
1348 &0.0462_JPRB, 0.0475_JPRB, 0.0475_JPRB /)
1349
1350! Month: 10
1351ZOZCL(:, 1,10) = (/&
1352 &0.5700_JPRB, 0.5700_JPRB, 0.5600_JPRB, 0.5400_JPRB, 0.6100_JPRB, 0.8000_JPRB, 0.9300_JPRB, 0.8700_JPRB,&
1353 &0.8000_JPRB, 0.8400_JPRB, 0.8100_JPRB, 0.7600_JPRB, 0.8400_JPRB, 0.8700_JPRB, 0.7500_JPRB, 0.6600_JPRB,&
1354 &0.6500_JPRB, 0.6300_JPRB, 0.6300_JPRB /)
1355ZOZCL(:, 2,10) = (/&
1356 &0.3800_JPRB, 0.3800_JPRB, 0.4100_JPRB, 0.4100_JPRB, 0.4500_JPRB, 0.5800_JPRB, 0.6600_JPRB, 0.6000_JPRB,&
1357 &0.5300_JPRB, 0.5500_JPRB, 0.5400_JPRB, 0.5100_JPRB, 0.5500_JPRB, 0.5500_JPRB, 0.4400_JPRB, 0.3400_JPRB,&
1358 &0.3000_JPRB, 0.2300_JPRB, 0.2300_JPRB /)
1359ZOZCL(:, 3,10) = (/&
1360 &0.3100_JPRB, 0.3100_JPRB, 0.3800_JPRB, 0.4100_JPRB, 0.4400_JPRB, 0.5000_JPRB, 0.5200_JPRB, 0.4700_JPRB,&
1361 &0.4200_JPRB, 0.4300_JPRB, 0.4200_JPRB, 0.3900_JPRB, 0.4100_JPRB, 0.4100_JPRB, 0.3300_JPRB, 0.2500_JPRB,&
1362 &0.1900_JPRB, 0.1200_JPRB, 0.1200_JPRB /)
1363ZOZCL(:, 4,10) = (/&
1364 &0.2800_JPRB, 0.2800_JPRB, 0.3800_JPRB, 0.4300_JPRB, 0.4500_JPRB, 0.4400_JPRB, 0.3900_JPRB, 0.3400_JPRB,&
1365 &0.3300_JPRB, 0.3300_JPRB, 0.3100_JPRB, 0.3000_JPRB, 0.3000_JPRB, 0.3100_JPRB, 0.2800_JPRB, 0.2300_JPRB,&
1366 &0.1900_JPRB, 0.1200_JPRB, 0.1200_JPRB /)
1367ZOZCL(:, 5,10) = (/&
1368 &0.2600_JPRB, 0.2600_JPRB, 0.3200_JPRB, 0.3400_JPRB, 0.3400_JPRB, 0.3100_JPRB, 0.2600_JPRB, 0.2300_JPRB,&
1369 &0.2400_JPRB, 0.2400_JPRB, 0.2200_JPRB, 0.2200_JPRB, 0.2200_JPRB, 0.2200_JPRB, 0.2300_JPRB, 0.2500_JPRB,&
1370 &0.2500_JPRB, 0.1900_JPRB, 0.1900_JPRB /)
1371ZOZCL(:, 6,10) = (/&
1372 &0.2300_JPRB, 0.2300_JPRB, 0.2400_JPRB, 0.2500_JPRB, 0.2500_JPRB, 0.2300_JPRB, 0.1900_JPRB, 0.1900_JPRB,&
1373 &0.1900_JPRB, 0.2000_JPRB, 0.1800_JPRB, 0.1700_JPRB, 0.1700_JPRB, 0.1800_JPRB, 0.2000_JPRB, 0.2500_JPRB,&
1374 &0.2900_JPRB, 0.2500_JPRB, 0.2500_JPRB /)
1375ZOZCL(:, 7,10) = (/&
1376 &0.2400_JPRB, 0.2400_JPRB, 0.2100_JPRB, 0.2000_JPRB, 0.1900_JPRB, 0.1800_JPRB, 0.1700_JPRB, 0.1700_JPRB,&
1377 &0.1800_JPRB, 0.1700_JPRB, 0.1700_JPRB, 0.1600_JPRB, 0.1600_JPRB, 0.1600_JPRB, 0.1800_JPRB, 0.2400_JPRB,&
1378 &0.3300_JPRB, 0.3100_JPRB, 0.3100_JPRB /)
1379ZOZCL(:, 8,10) = (/&
1380 &0.3500_JPRB, 0.3500_JPRB, 0.3300_JPRB, 0.3200_JPRB, 0.3100_JPRB, 0.2800_JPRB, 0.2600_JPRB, 0.2600_JPRB,&
1381 &0.2600_JPRB, 0.2500_JPRB, 0.2400_JPRB, 0.2400_JPRB, 0.2500_JPRB, 0.2500_JPRB, 0.2600_JPRB, 0.2800_JPRB,&
1382 &0.3500_JPRB, 0.3700_JPRB, 0.3700_JPRB /)
1383ZOZCL(:, 9,10) = (/&
1384 &0.4500_JPRB, 0.4500_JPRB, 0.4500_JPRB, 0.4400_JPRB, 0.4300_JPRB, 0.4100_JPRB, 0.3900_JPRB, 0.3800_JPRB,&
1385 &0.3700_JPRB, 0.3600_JPRB, 0.3500_JPRB, 0.3500_JPRB, 0.3600_JPRB, 0.3700_JPRB, 0.3800_JPRB, 0.3800_JPRB,&
1386 &0.4000_JPRB, 0.4100_JPRB, 0.4100_JPRB /)
1387ZOZCL(:,10,10) = (/&
1388 &0.5600_JPRB, 0.5600_JPRB, 0.5500_JPRB, 0.5400_JPRB, 0.5200_JPRB, 0.5000_JPRB, 0.4800_JPRB, 0.4800_JPRB,&
1389 &0.4600_JPRB, 0.4600_JPRB, 0.4500_JPRB, 0.5200_JPRB, 0.5300_JPRB, 0.5500_JPRB, 0.5600_JPRB, 0.5400_JPRB,&
1390 &0.5100_JPRB, 0.4900_JPRB, 0.4900_JPRB /)
1391ZOZCL(:,11,10) = (/&
1392 &0.7800_JPRB, 0.7800_JPRB, 0.7500_JPRB, 0.7500_JPRB, 0.7500_JPRB, 0.7400_JPRB, 0.7400_JPRB, 0.7300_JPRB,&
1393 &0.7100_JPRB, 0.6800_JPRB, 0.6900_JPRB, 0.7900_JPRB, 0.6500_JPRB, 0.6800_JPRB, 0.7000_JPRB, 0.6900_JPRB,&
1394 &0.7200_JPRB, 0.6900_JPRB, 0.6900_JPRB /)
1395ZOZCL(:,12,10) = (/&
1396 &0.9700_JPRB, 0.9700_JPRB, 0.9300_JPRB, 0.9400_JPRB, 0.9500_JPRB, 0.9600_JPRB, 0.9600_JPRB, 0.9600_JPRB,&
1397 &0.9400_JPRB, 0.9200_JPRB, 0.9200_JPRB, 0.9300_JPRB, 0.9200_JPRB, 0.9300_JPRB, 0.9200_JPRB, 0.9100_JPRB,&
1398 &0.9400_JPRB, 0.9000_JPRB, 0.9000_JPRB /)
1399ZOZCL(:,13,10) = (/&
1400 &1.3100_JPRB, 1.3100_JPRB, 1.2800_JPRB, 1.3000_JPRB, 1.3300_JPRB, 1.3700_JPRB, 1.3900_JPRB, 1.3900_JPRB,&
1401 &1.3900_JPRB, 1.3700_JPRB, 1.3800_JPRB, 1.4100_JPRB, 1.3900_JPRB, 1.3700_JPRB, 1.3600_JPRB, 1.3600_JPRB,&
1402 &1.3700_JPRB, 1.3100_JPRB, 1.3100_JPRB /)
1403ZOZCL(:,14,10) = (/&
1404 &1.7600_JPRB, 1.7600_JPRB, 1.7900_JPRB, 1.8600_JPRB, 1.9100_JPRB, 1.9300_JPRB, 1.9400_JPRB, 1.9500_JPRB,&
1405 &1.9700_JPRB, 1.9700_JPRB, 1.9700_JPRB, 1.9600_JPRB, 1.9400_JPRB, 1.9700_JPRB, 2.0700_JPRB, 2.1600_JPRB,&
1406 &2.1600_JPRB, 2.0900_JPRB, 2.0900_JPRB /)
1407ZOZCL(:,15,10) = (/&
1408 &2.1600_JPRB, 2.1600_JPRB, 2.1800_JPRB, 2.3300_JPRB, 2.4000_JPRB, 2.3600_JPRB, 2.3100_JPRB, 2.3300_JPRB,&
1409 &2.3500_JPRB, 2.3700_JPRB, 2.3700_JPRB, 2.3400_JPRB, 2.3200_JPRB, 2.4400_JPRB, 2.6800_JPRB, 2.8400_JPRB,&
1410 &2.8800_JPRB, 2.9400_JPRB, 2.9400_JPRB /)
1411ZOZCL(:,16,10) = (/&
1412 &2.8300_JPRB, 2.8300_JPRB, 2.8700_JPRB, 3.1000_JPRB, 3.2200_JPRB, 3.1700_JPRB, 3.0700_JPRB, 3.0400_JPRB,&
1413 &3.0300_JPRB, 3.0400_JPRB, 3.0600_JPRB, 3.1000_JPRB, 3.1800_JPRB, 3.4400_JPRB, 3.8000_JPRB, 4.0500_JPRB,&
1414 &4.0600_JPRB, 3.9600_JPRB, 3.9600_JPRB /)
1415ZOZCL(:,17,10) = (/&
1416 &3.8600_JPRB, 3.8600_JPRB, 3.9300_JPRB, 4.2600_JPRB, 4.4700_JPRB, 4.4300_JPRB, 4.2600_JPRB, 4.1400_JPRB,&
1417 &4.0500_JPRB, 4.0300_JPRB, 4.0900_JPRB, 4.2600_JPRB, 4.5300_JPRB, 4.9600_JPRB, 5.4100_JPRB, 5.6600_JPRB,&
1418 &5.4900_JPRB, 4.9600_JPRB, 4.9600_JPRB /)
1419
1420ZOZCL(:,18,10) = (/&
1421 &4.7500_JPRB, 4.7500_JPRB, 4.9100_JPRB, 5.3400_JPRB, 5.6400_JPRB, 5.6600_JPRB, 5.4700_JPRB, 5.2700_JPRB,&
1422 &5.1100_JPRB, 5.0300_JPRB, 5.1100_JPRB, 5.3400_JPRB, 5.6700_JPRB, 6.0900_JPRB, 6.4200_JPRB, 6.4900_JPRB,&
1423 &6.0700_JPRB, 5.2600_JPRB, 5.2600_JPRB /)
1424ZOZCL(:,19,10) = (/&
1425 &5.9200_JPRB, 5.9200_JPRB, 6.3300_JPRB, 6.9300_JPRB, 7.3900_JPRB, 7.5800_JPRB, 7.4700_JPRB, 7.2400_JPRB,&
1426 &6.9800_JPRB, 6.8200_JPRB, 6.8600_JPRB, 7.1000_JPRB, 7.3200_JPRB, 7.4100_JPRB, 7.3000_JPRB, 6.9200_JPRB,&
1427 &6.1800_JPRB, 5.1800_JPRB, 5.1800_JPRB /)
1428ZOZCL(:,20,10) = (/&
1429 &6.1800_JPRB, 6.1800_JPRB, 6.6100_JPRB, 7.3800_JPRB, 8.0400_JPRB, 8.5000_JPRB, 8.8700_JPRB, 9.0500_JPRB,&
1430 &8.8300_JPRB, 8.7100_JPRB, 8.7600_JPRB, 8.7000_JPRB, 8.5300_JPRB, 7.9900_JPRB, 7.3800_JPRB, 6.7500_JPRB,&
1431 &5.9200_JPRB, 5.0300_JPRB, 5.0300_JPRB /)
1432ZOZCL(:,21,10) = (/&
1433 &6.0000_JPRB, 6.0000_JPRB, 6.4300_JPRB, 7.2000_JPRB, 7.8300_JPRB, 8.3700_JPRB, 8.9500_JPRB, 9.4600_JPRB,&
1434 &9.5800_JPRB, 9.6000_JPRB, 9.5900_JPRB, 9.2900_JPRB, 8.7500_JPRB, 7.7900_JPRB, 6.9600_JPRB, 6.2400_JPRB,&
1435 &5.5200_JPRB, 4.8100_JPRB, 4.8100_JPRB /)
1436ZOZCL(:,22,10) = (/&
1437 &5.7600_JPRB, 5.7600_JPRB, 6.0700_JPRB, 6.7200_JPRB, 7.2100_JPRB, 7.7200_JPRB, 8.3700_JPRB, 9.1400_JPRB,&
1438 &9.6500_JPRB, 9.8700_JPRB, 9.8100_JPRB, 9.2500_JPRB, 8.4100_JPRB, 7.2000_JPRB, 6.2600_JPRB, 5.5400_JPRB,&
1439 &4.9900_JPRB, 4.4500_JPRB, 4.4500_JPRB /)
1440ZOZCL(:,23,10) = (/&
1441 &5.2232_JPRB, 5.2232_JPRB, 5.5374_JPRB, 5.2400_JPRB, 6.4300_JPRB, 6.7200_JPRB, 7.1800_JPRB, 7.7400_JPRB,&
1442 &8.1300_JPRB, 8.3600_JPRB, 8.3600_JPRB, 7.8600_JPRB, 7.1900_JPRB, 6.2900_JPRB, 5.5800_JPRB, 4.9700_JPRB,&
1443 &4.4900_JPRB, 3.9800_JPRB, 3.9800_JPRB /)
1444ZOZCL(:,24,10) = (/&
1445 &4.1747_JPRB, 4.1747_JPRB, 4.6023_JPRB, 4.3050_JPRB, 5.9400_JPRB, 6.0800_JPRB, 6.3100_JPRB, 6.5900_JPRB,&
1446 &6.6800_JPRB, 6.7700_JPRB, 6.8000_JPRB, 6.5300_JPRB, 6.1200_JPRB, 5.5800_JPRB, 5.1000_JPRB, 4.7000_JPRB,&
1447 &4.1900_JPRB, 3.6200_JPRB, 3.6200_JPRB /)
1448ZOZCL(:,25,10) = (/&
1449 &2.7866_JPRB, 2.7866_JPRB, 3.1177_JPRB, 3.2367_JPRB, 4.9933_JPRB, 5.0993_JPRB, 4.9783_JPRB, 4.7000_JPRB,&
1450 &4.2500_JPRB, 4.3832_JPRB, 4.4600_JPRB, 4.4700_JPRB, 4.4959_JPRB, 4.4443_JPRB, 4.2617_JPRB, 4.1667_JPRB,&
1451 &3.4780_JPRB, 3.1447_JPRB, 3.1447_JPRB /)
1452ZOZCL(:,26,10) = (/&
1453 &0.9992_JPRB, 0.9992_JPRB, 1.3984_JPRB, 1.7960_JPRB, 3.1540_JPRB, 3.2618_JPRB, 2.5540_JPRB, 2.1500_JPRB,&
1454 &1.6459_JPRB, 1.5903_JPRB, 1.6300_JPRB, 1.8000_JPRB, 1.9871_JPRB, 2.2845_JPRB, 2.4964_JPRB, 2.5960_JPRB,&
1455 &2.5710_JPRB, 2.6438_JPRB, 2.6438_JPRB /)
1456ZOZCL(:,27,10) = (/&
1457 &0.5779_JPRB, 0.5779_JPRB, 0.7611_JPRB, 1.0371_JPRB, 1.8243_JPRB, 1.7040_JPRB, 1.0114_JPRB, 0.8600_JPRB,&
1458 &0.6233_JPRB, 0.5728_JPRB, 0.5700_JPRB, 0.7500_JPRB, 0.8863_JPRB, 1.2364_JPRB, 1.4982_JPRB, 1.7757_JPRB,&
1459 &1.9050_JPRB, 2.0538_JPRB, 2.0538_JPRB /)
1460ZOZCL(:,28,10) = (/&
1461 &0.3652_JPRB, 0.3652_JPRB, 0.4404_JPRB, 0.4940_JPRB, 0.8220_JPRB, 0.6328_JPRB, 0.2510_JPRB, 0.2327_JPRB,&
1462 &0.1303_JPRB, 0.1350_JPRB, 0.1380_JPRB, 0.1498_JPRB, 0.2285_JPRB, 0.4636_JPRB, 0.6430_JPRB, 0.8710_JPRB,&
1463 &1.0466_JPRB, 1.2723_JPRB, 1.2723_JPRB /)
1464ZOZCL(:,29,10) = (/&
1465 &0.3389_JPRB, 0.3389_JPRB, 0.3542_JPRB, 0.2953_JPRB, 0.3893_JPRB, 0.3197_JPRB, 0.1213_JPRB, 0.1104_JPRB,&
1466 &0.0632_JPRB, 0.0823_JPRB, 0.0647_JPRB, 0.0665_JPRB, 0.1016_JPRB, 0.1857_JPRB, 0.2449_JPRB, 0.3827_JPRB,&
1467 &0.4579_JPRB, 0.4815_JPRB, 0.4815_JPRB /)
1468ZOZCL(:,30,10) = (/&
1469 &0.1870_JPRB, 0.1870_JPRB, 0.2085_JPRB, 0.2174_JPRB, 0.2435_JPRB, 0.2014_JPRB, 0.1030_JPRB, 0.0932_JPRB,&
1470 &0.0541_JPRB, 0.0718_JPRB, 0.0475_JPRB, 0.0496_JPRB, 0.0732_JPRB, 0.1118_JPRB, 0.1368_JPRB, 0.2495_JPRB,&
1471 &0.2686_JPRB, 0.3042_JPRB, 0.3042_JPRB /)
1472ZOZCL(:,31,10) = (/&
1473 &0.0500_JPRB, 0.0500_JPRB, 0.0650_JPRB, 0.0617_JPRB, 0.0787_JPRB, 0.0777_JPRB, 0.0897_JPRB, 0.0823_JPRB,&
1474 &0.0509_JPRB, 0.0618_JPRB, 0.0443_JPRB, 0.0411_JPRB, 0.0544_JPRB, 0.0596_JPRB, 0.0680_JPRB, 0.1030_JPRB,&
1475 &0.0955_JPRB, 0.1119_JPRB, 0.1119_JPRB /)
1476ZOZCL(:,32,10) = (/&
1477 &0.0336_JPRB, 0.0336_JPRB, 0.0420_JPRB, 0.0396_JPRB, 0.0458_JPRB, 0.0480_JPRB, 0.0698_JPRB, 0.0658_JPRB,&
1478 &0.0539_JPRB, 0.0641_JPRB, 0.0462_JPRB, 0.0411_JPRB, 0.0496_JPRB, 0.0501_JPRB, 0.0543_JPRB, 0.0592_JPRB,&
1479 &0.0524_JPRB, 0.0541_JPRB, 0.0541_JPRB /)
1480ZOZCL(:,33,10) = (/&
1481 &0.0273_JPRB, 0.0273_JPRB, 0.0336_JPRB, 0.0323_JPRB, 0.0376_JPRB, 0.0347_JPRB, 0.0579_JPRB, 0.0540_JPRB,&
1482 &0.0438_JPRB, 0.0563_JPRB, 0.0390_JPRB, 0.0351_JPRB, 0.0453_JPRB, 0.0459_JPRB, 0.0470_JPRB, 0.0487_JPRB,&
1483 &0.0453_JPRB, 0.0401_JPRB, 0.0401_JPRB /)
1484ZOZCL(:,34,10) = (/&
1485 &0.0273_JPRB, 0.0273_JPRB, 0.0336_JPRB, 0.0323_JPRB, 0.0376_JPRB, 0.0347_JPRB, 0.0579_JPRB, 0.0540_JPRB,&
1486 &0.0438_JPRB, 0.0563_JPRB, 0.0390_JPRB, 0.0351_JPRB, 0.0453_JPRB, 0.0459_JPRB, 0.0470_JPRB, 0.0487_JPRB,&
1487 &0.0453_JPRB, 0.0401_JPRB, 0.0401_JPRB /)
1488
1489! Month: 11
1490ZOZCL(:, 1,11) = (/&
1491 &0.5000_JPRB, 0.5000_JPRB, 0.6000_JPRB, 0.6700_JPRB, 0.7400_JPRB, 0.8200_JPRB, 0.8400_JPRB, 0.7700_JPRB,&
1492 &0.7600_JPRB, 0.7900_JPRB, 0.8000_JPRB, 0.7700_JPRB, 0.8400_JPRB, 0.9800_JPRB, 0.9700_JPRB, 0.8800_JPRB,&
1493 &0.8800_JPRB, 0.7700_JPRB, 0.7700_JPRB /)
1494ZOZCL(:, 2,11) = (/&
1495 &0.3300_JPRB, 0.3300_JPRB, 0.4100_JPRB, 0.4800_JPRB, 0.5400_JPRB, 0.5900_JPRB, 0.5900_JPRB, 0.5500_JPRB,&
1496 &0.5300_JPRB, 0.5500_JPRB, 0.5700_JPRB, 0.5400_JPRB, 0.5400_JPRB, 0.5900_JPRB, 0.5200_JPRB, 0.4500_JPRB,&
1497 &0.4500_JPRB, 0.4000_JPRB, 0.4000_JPRB /)
1498ZOZCL(:, 3,11) = (/&
1499 &0.2400_JPRB, 0.2400_JPRB, 0.3000_JPRB, 0.3700_JPRB, 0.4200_JPRB, 0.4500_JPRB, 0.4500_JPRB, 0.4300_JPRB,&
1500 &0.4300_JPRB, 0.4500_JPRB, 0.4700_JPRB, 0.4300_JPRB, 0.4100_JPRB, 0.4100_JPRB, 0.3200_JPRB, 0.2400_JPRB,&
1501 &0.2400_JPRB, 0.2100_JPRB, 0.2100_JPRB /)
1502ZOZCL(:, 4,11) = (/&
1503 &0.1700_JPRB, 0.1700_JPRB, 0.2200_JPRB, 0.2600_JPRB, 0.3100_JPRB, 0.3200_JPRB, 0.3300_JPRB, 0.3200_JPRB,&
1504 &0.3300_JPRB, 0.3500_JPRB, 0.3700_JPRB, 0.3500_JPRB, 0.3200_JPRB, 0.3000_JPRB, 0.2400_JPRB, 0.1700_JPRB,&
1505 &0.1800_JPRB, 0.1600_JPRB, 0.1600_JPRB /)
1506ZOZCL(:, 5,11) = (/&
1507 &0.1500_JPRB, 0.1500_JPRB, 0.1700_JPRB, 0.1900_JPRB, 0.2100_JPRB, 0.2200_JPRB, 0.2200_JPRB, 0.2300_JPRB,&
1508 &0.2400_JPRB, 0.2500_JPRB, 0.2500_JPRB, 0.2500_JPRB, 0.2500_JPRB, 0.2400_JPRB, 0.2500_JPRB, 0.2200_JPRB,&
1509 &0.2200_JPRB, 0.1900_JPRB, 0.1900_JPRB /)
1510ZOZCL(:, 6,11) = (/&
1511 &0.1700_JPRB, 0.1700_JPRB, 0.1700_JPRB, 0.1800_JPRB, 0.1800_JPRB, 0.1800_JPRB, 0.1800_JPRB, 0.1800_JPRB,&
1512 &0.2000_JPRB, 0.2000_JPRB, 0.2000_JPRB, 0.2000_JPRB, 0.2000_JPRB, 0.2000_JPRB, 0.2400_JPRB, 0.2600_JPRB,&
1513 &0.2600_JPRB, 0.2300_JPRB, 0.2300_JPRB /)
1514ZOZCL(:, 7,11) = (/&
1515 &0.2100_JPRB, 0.2100_JPRB, 0.2000_JPRB, 0.2000_JPRB, 0.2000_JPRB, 0.1900_JPRB, 0.1800_JPRB, 0.1700_JPRB,&
1516 &0.1800_JPRB, 0.1700_JPRB, 0.1600_JPRB, 0.1800_JPRB, 0.1800_JPRB, 0.1900_JPRB, 0.2400_JPRB, 0.3100_JPRB,&
1517 &0.3100_JPRB, 0.2700_JPRB, 0.2700_JPRB /)
1518ZOZCL(:, 8,11) = (/&
1519 &0.3100_JPRB, 0.3100_JPRB, 0.3000_JPRB, 0.3000_JPRB, 0.3000_JPRB, 0.2800_JPRB, 0.2700_JPRB, 0.2600_JPRB,&
1520 &0.2500_JPRB, 0.2500_JPRB, 0.2400_JPRB, 0.2500_JPRB, 0.2700_JPRB, 0.2800_JPRB, 0.3100_JPRB, 0.3800_JPRB,&
1521 &0.3800_JPRB, 0.3300_JPRB, 0.3300_JPRB /)
1522ZOZCL(:, 9,11) = (/&
1523 &0.4300_JPRB, 0.4300_JPRB, 0.4100_JPRB, 0.4100_JPRB, 0.4100_JPRB, 0.4000_JPRB, 0.3900_JPRB, 0.3800_JPRB,&
1524 &0.3700_JPRB, 0.3600_JPRB, 0.3700_JPRB, 0.3800_JPRB, 0.3900_JPRB, 0.4100_JPRB, 0.4300_JPRB, 0.4400_JPRB,&
1525 &0.4400_JPRB, 0.3900_JPRB, 0.3900_JPRB /)
1526ZOZCL(:,10,11) = (/&
1527 &0.5400_JPRB, 0.5400_JPRB, 0.5200_JPRB, 0.5100_JPRB, 0.4900_JPRB, 0.4600_JPRB, 0.4600_JPRB, 0.4600_JPRB,&
1528 &0.4600_JPRB, 0.4700_JPRB, 0.4800_JPRB, 0.5700_JPRB, 0.5700_JPRB, 0.5800_JPRB, 0.5900_JPRB, 0.5700_JPRB,&
1529 &0.5800_JPRB, 0.5100_JPRB, 0.5100_JPRB /)
1530ZOZCL(:,11,11) = (/&
1531 &0.7400_JPRB, 0.7400_JPRB, 0.7300_JPRB, 0.7400_JPRB, 0.7300_JPRB, 0.7100_JPRB, 0.7200_JPRB, 0.7100_JPRB,&
1532 &0.7000_JPRB, 0.7000_JPRB, 0.7100_JPRB, 0.7300_JPRB, 0.7000_JPRB, 0.7000_JPRB, 0.7100_JPRB, 0.7900_JPRB,&
1533 &0.7900_JPRB, 0.7000_JPRB, 0.7000_JPRB /)
1534ZOZCL(:,12,11) = (/&
1535 &0.9100_JPRB, 0.9100_JPRB, 0.9100_JPRB, 0.9100_JPRB, 0.9300_JPRB, 0.9300_JPRB, 0.9400_JPRB, 0.9400_JPRB,&
1536 &0.9400_JPRB, 0.9300_JPRB, 0.9400_JPRB, 0.9500_JPRB, 0.9600_JPRB, 0.9500_JPRB, 0.9100_JPRB, 0.9100_JPRB,&
1537 &0.9100_JPRB, 0.8000_JPRB, 0.8000_JPRB /)
1538ZOZCL(:,13,11) = (/&
1539 &1.2000_JPRB, 1.2000_JPRB, 1.2100_JPRB, 1.2400_JPRB, 1.2800_JPRB, 1.3200_JPRB, 1.3500_JPRB, 1.3800_JPRB,&
1540 &1.4000_JPRB, 1.3800_JPRB, 1.3800_JPRB, 1.4100_JPRB, 1.4500_JPRB, 1.4200_JPRB, 1.3700_JPRB, 1.2700_JPRB,&
1541 &1.2700_JPRB, 1.1200_JPRB, 1.1200_JPRB /)
1542ZOZCL(:,14,11) = (/&
1543 &1.5900_JPRB, 1.5900_JPRB, 1.6400_JPRB, 1.7200_JPRB, 1.7900_JPRB, 1.8500_JPRB, 1.9000_JPRB, 1.9400_JPRB,&
1544 &1.9800_JPRB, 1.9800_JPRB, 1.9800_JPRB, 1.9600_JPRB, 1.9900_JPRB, 2.0800_JPRB, 2.1900_JPRB, 2.0900_JPRB,&
1545 &2.0900_JPRB, 1.8400_JPRB, 1.8400_JPRB /)
1546ZOZCL(:,15,11) = (/&
1547 &1.8600_JPRB, 1.8600_JPRB, 1.9300_JPRB, 2.0700_JPRB, 2.1500_JPRB, 2.2100_JPRB, 2.2600_JPRB, 2.3000_JPRB,&
1548 &2.3600_JPRB, 2.3900_JPRB, 2.3700_JPRB, 2.3100_JPRB, 2.3700_JPRB, 2.6000_JPRB, 2.8700_JPRB, 2.9800_JPRB,&
1549 &2.8900_JPRB, 2.4200_JPRB, 2.4200_JPRB /)
1550ZOZCL(:,16,11) = (/&
1551 &2.4200_JPRB, 2.4200_JPRB, 2.4700_JPRB, 2.6300_JPRB, 2.7200_JPRB, 2.7800_JPRB, 2.8600_JPRB, 2.9400_JPRB,&
1552 &3.0200_JPRB, 3.0700_JPRB, 3.0600_JPRB, 3.0400_JPRB, 3.2200_JPRB, 3.6800_JPRB, 4.1400_JPRB, 4.2400_JPRB,&
1553 &3.9800_JPRB, 3.2400_JPRB, 3.2400_JPRB /)
1554ZOZCL(:,17,11) = (/&
1555 &3.3700_JPRB, 3.3700_JPRB, 3.3800_JPRB, 3.5500_JPRB, 3.6400_JPRB, 3.7100_JPRB, 3.8200_JPRB, 3.9400_JPRB,&
1556 &4.0200_JPRB, 4.0600_JPRB, 4.0900_JPRB, 4.1900_JPRB, 4.6000_JPRB, 5.3400_JPRB, 5.8700_JPRB, 5.7600_JPRB,&
1557 &5.2600_JPRB, 4.1400_JPRB, 4.1400_JPRB /)
1558
1559ZOZCL(:,18,11) = (/&
1560 &4.3800_JPRB, 4.3800_JPRB, 4.3900_JPRB, 4.5900_JPRB, 4.7100_JPRB, 4.7900_JPRB, 4.8900_JPRB, 5.0100_JPRB,&
1561 &5.0400_JPRB, 5.0500_JPRB, 5.0900_JPRB, 5.2600_JPRB, 5.7600_JPRB, 6.4600_JPRB, 6.7700_JPRB, 6.3800_JPRB,&
1562 &5.7800_JPRB, 4.5500_JPRB, 4.5500_JPRB /)
1563ZOZCL(:,19,11) = (/&
1564 &5.9600_JPRB, 5.9600_JPRB, 6.0600_JPRB, 6.3200_JPRB, 6.6100_JPRB, 6.7600_JPRB, 6.8500_JPRB, 6.9000_JPRB,&
1565 &6.8100_JPRB, 6.7000_JPRB, 6.7200_JPRB, 6.9200_JPRB, 7.2500_JPRB, 7.4300_JPRB, 7.1800_JPRB, 6.4500_JPRB,&
1566 &5.8800_JPRB, 4.7400_JPRB, 4.7400_JPRB /)
1567ZOZCL(:,20,11) = (/&
1568 &6.3900_JPRB, 6.3900_JPRB, 6.4800_JPRB, 7.1500_JPRB, 7.7700_JPRB, 8.2100_JPRB, 8.5200_JPRB, 8.6800_JPRB,&
1569 &8.5100_JPRB, 8.2700_JPRB, 8.2500_JPRB, 8.2200_JPRB, 7.9900_JPRB, 7.5200_JPRB, 6.8200_JPRB, 6.0400_JPRB,&
1570 &5.6700_JPRB, 4.2900_JPRB, 4.2900_JPRB /)
1571ZOZCL(:,21,11) = (/&
1572 &6.0300_JPRB, 6.0300_JPRB, 6.2400_JPRB, 7.0000_JPRB, 7.7200_JPRB, 8.3000_JPRB, 8.8100_JPRB, 9.1800_JPRB,&
1573 &9.2600_JPRB, 9.1100_JPRB, 8.9400_JPRB, 8.6200_JPRB, 8.0200_JPRB, 7.1400_JPRB, 6.3300_JPRB, 5.6700_JPRB,&
1574 &5.3900_JPRB, 3.8200_JPRB, 3.8200_JPRB /)
1575ZOZCL(:,22,11) = (/&
1576 &5.5800_JPRB, 5.5800_JPRB, 5.7800_JPRB, 6.5000_JPRB, 7.1600_JPRB, 7.7000_JPRB, 8.4000_JPRB, 8.9800_JPRB,&
1577 &9.4400_JPRB, 9.5900_JPRB, 9.2100_JPRB, 8.5300_JPRB, 7.6800_JPRB, 6.5700_JPRB, 5.7600_JPRB, 5.3100_JPRB,&
1578 &4.9900_JPRB, 3.4200_JPRB, 3.4200_JPRB /)
1579ZOZCL(:,23,11) = (/&
1580 &5.2715_JPRB, 5.2715_JPRB, 5.3393_JPRB, 5.9000_JPRB, 6.3100_JPRB, 6.7100_JPRB, 7.2900_JPRB, 7.7600_JPRB,&
1581 &8.1600_JPRB, 8.3100_JPRB, 8.0600_JPRB, 7.5100_JPRB, 6.8200_JPRB, 5.9300_JPRB, 5.3900_JPRB, 4.9800_JPRB,&
1582 &4.5200_JPRB, 3.1800_JPRB, 3.1800_JPRB /)
1583ZOZCL(:,24,11) = (/&
1584 &5.0164_JPRB, 5.0164_JPRB, 5.1827_JPRB, 5.2200_JPRB, 5.7300_JPRB, 5.9600_JPRB, 6.3300_JPRB, 6.5700_JPRB,&
1585 &6.7500_JPRB, 6.7700_JPRB, 6.6400_JPRB, 6.3600_JPRB, 5.9600_JPRB, 5.3900_JPRB, 5.0500_JPRB, 4.6800_JPRB,&
1586 &4.1100_JPRB, 3.0100_JPRB, 3.0100_JPRB /)
1587ZOZCL(:,25,11) = (/&
1588 &3.8180_JPRB, 3.8180_JPRB, 4.0890_JPRB, 4.4433_JPRB, 4.6700_JPRB, 4.8787_JPRB, 4.7767_JPRB, 4.6600_JPRB,&
1589 &4.3413_JPRB, 4.1637_JPRB, 4.3100_JPRB, 4.3700_JPRB, 4.4538_JPRB, 4.5045_JPRB, 4.5130_JPRB, 3.8410_JPRB,&
1590 &3.4766_JPRB, 2.9674_JPRB, 2.9674_JPRB /)
1591ZOZCL(:,26,11) = (/&
1592 &1.8826_JPRB, 1.8826_JPRB, 2.0512_JPRB, 2.7920_JPRB, 2.9240_JPRB, 2.9289_JPRB, 2.2350_JPRB, 2.0200_JPRB,&
1593 &1.6868_JPRB, 1.5394_JPRB, 1.6600_JPRB, 1.8100_JPRB, 1.9540_JPRB, 2.4411_JPRB, 2.6708_JPRB, 3.0020_JPRB,&
1594 &2.8432_JPRB, 2.9248_JPRB, 2.9248_JPRB /)
1595ZOZCL(:,27,11) = (/&
1596 &1.0698_JPRB, 1.0698_JPRB, 1.1287_JPRB, 1.9386_JPRB, 1.6729_JPRB, 1.5172_JPRB, 0.8607_JPRB, 0.8600_JPRB,&
1597 &0.6016_JPRB, 0.5556_JPRB, 0.6600_JPRB, 0.8100_JPRB, 0.8538_JPRB, 1.3784_JPRB, 1.6005_JPRB, 1.9543_JPRB,&
1598 &2.0807_JPRB, 2.1844_JPRB, 2.1844_JPRB /)
1599ZOZCL(:,28,11) = (/&
1600 &0.5528_JPRB, 0.5528_JPRB, 0.5834_JPRB, 0.8250_JPRB, 0.6770_JPRB, 0.6063_JPRB, 0.1660_JPRB, 0.1592_JPRB,&
1601 &0.1180_JPRB, 0.1394_JPRB, 0.1610_JPRB, 0.1603_JPRB, 0.2309_JPRB, 0.5118_JPRB, 0.6898_JPRB, 1.1380_JPRB,&
1602 &1.2988_JPRB, 1.4342_JPRB, 1.4342_JPRB /)
1603ZOZCL(:,29,11) = (/&
1604 &0.3854_JPRB, 0.3854_JPRB, 0.3701_JPRB, 0.3700_JPRB, 0.3027_JPRB, 0.3665_JPRB, 0.1187_JPRB, 0.1093_JPRB,&
1605 &0.0550_JPRB, 0.0837_JPRB, 0.0893_JPRB, 0.0756_JPRB, 0.1015_JPRB, 0.2158_JPRB, 0.2926_JPRB, 0.5020_JPRB,&
1606 &0.5740_JPRB, 0.6050_JPRB, 0.6050_JPRB /)
1607ZOZCL(:,30,11) = (/&
1608 &0.2489_JPRB, 0.2489_JPRB, 0.2443_JPRB, 0.2711_JPRB, 0.2035_JPRB, 0.2187_JPRB, 0.0980_JPRB, 0.0910_JPRB,&
1609 &0.0491_JPRB, 0.0595_JPRB, 0.0587_JPRB, 0.0516_JPRB, 0.0680_JPRB, 0.1358_JPRB, 0.1652_JPRB, 0.2735_JPRB,&
1610 &0.3147_JPRB, 0.3034_JPRB, 0.3034_JPRB /)
1611ZOZCL(:,31,11) = (/&
1612 &0.0634_JPRB, 0.0634_JPRB, 0.0734_JPRB, 0.0733_JPRB, 0.0687_JPRB, 0.0717_JPRB, 0.0807_JPRB, 0.0749_JPRB,&
1613 &0.0420_JPRB, 0.0545_JPRB, 0.0463_JPRB, 0.0464_JPRB, 0.0556_JPRB, 0.0645_JPRB, 0.0703_JPRB, 0.0897_JPRB,&
1614 &0.1083_JPRB, 0.0987_JPRB, 0.0987_JPRB /)
1615ZOZCL(:,32,11) = (/&
1616 &0.0297_JPRB, 0.0297_JPRB, 0.0362_JPRB, 0.0356_JPRB, 0.0432_JPRB, 0.0435_JPRB, 0.0682_JPRB, 0.0645_JPRB,&
1617 &0.0441_JPRB, 0.0525_JPRB, 0.0412_JPRB, 0.0434_JPRB, 0.0487_JPRB, 0.0479_JPRB, 0.0513_JPRB, 0.0498_JPRB,&
1618 &0.0487_JPRB, 0.0490_JPRB, 0.0490_JPRB /)
1619ZOZCL(:,33,11) = (/&
1620 &0.0238_JPRB, 0.0238_JPRB, 0.0277_JPRB, 0.0271_JPRB, 0.0351_JPRB, 0.0343_JPRB, 0.0571_JPRB, 0.0542_JPRB,&
1621 &0.0375_JPRB, 0.0434_JPRB, 0.0345_JPRB, 0.0362_JPRB, 0.0434_JPRB, 0.0439_JPRB, 0.0445_JPRB, 0.0443_JPRB,&
1622 &0.0422_JPRB, 0.0414_JPRB, 0.0414_JPRB /)
1623ZOZCL(:,34,11) = (/&
1624 &0.0238_JPRB, 0.0238_JPRB, 0.0277_JPRB, 0.0271_JPRB, 0.0351_JPRB, 0.0343_JPRB, 0.0571_JPRB, 0.0542_JPRB,&
1625 &0.0375_JPRB, 0.0434_JPRB, 0.0345_JPRB, 0.0362_JPRB, 0.0434_JPRB, 0.0439_JPRB, 0.0445_JPRB, 0.0443_JPRB,&
1626 &0.0422_JPRB, 0.0414_JPRB, 0.0414_JPRB /)
1627
1628! Month: 12
1629ZOZCL(:, 1,12) = (/&
1630 &0.5400_JPRB, 0.5400_JPRB, 0.7000_JPRB, 0.7900_JPRB, 0.8000_JPRB, 0.7500_JPRB, 0.6600_JPRB, 0.5800_JPRB,&
1631 &0.5700_JPRB, 0.5500_JPRB, 0.5200_JPRB, 0.6000_JPRB, 0.7900_JPRB, 0.9400_JPRB, 0.9600_JPRB, 0.9600_JPRB,&
1632 &0.8500_JPRB, 0.8200_JPRB, 0.8200_JPRB /)
1633ZOZCL(:, 2,12) = (/&
1634 &0.2800_JPRB, 0.2800_JPRB, 0.3500_JPRB, 0.4400_JPRB, 0.5200_JPRB, 0.5200_JPRB, 0.4700_JPRB, 0.4400_JPRB,&
1635 &0.4500_JPRB, 0.4400_JPRB, 0.4100_JPRB, 0.4100_JPRB, 0.4900_JPRB, 0.5800_JPRB, 0.5600_JPRB, 0.5700_JPRB,&
1636 &0.5000_JPRB, 0.4900_JPRB, 0.4900_JPRB /)
1637ZOZCL(:, 3,12) = (/&
1638 &0.2000_JPRB, 0.2000_JPRB, 0.2200_JPRB, 0.2700_JPRB, 0.3500_JPRB, 0.3800_JPRB, 0.3600_JPRB, 0.3700_JPRB,&
1639 &0.4000_JPRB, 0.4100_JPRB, 0.3900_JPRB, 0.3600_JPRB, 0.3500_JPRB, 0.3700_JPRB, 0.3300_JPRB, 0.3300_JPRB,&
1640 &0.2900_JPRB, 0.2800_JPRB, 0.2800_JPRB /)
1641ZOZCL(:, 4,12) = (/&
1642 &0.1700_JPRB, 0.1700_JPRB, 0.1700_JPRB, 0.1900_JPRB, 0.2200_JPRB, 0.2500_JPRB, 0.2500_JPRB, 0.2800_JPRB,&
1643 &0.3200_JPRB, 0.3300_JPRB, 0.3300_JPRB, 0.3400_JPRB, 0.3100_JPRB, 0.2600_JPRB, 0.2100_JPRB, 0.2100_JPRB,&
1644 &0.1900_JPRB, 0.1800_JPRB, 0.1800_JPRB /)
1645ZOZCL(:, 5,12) = (/&
1646 &0.1700_JPRB, 0.1700_JPRB, 0.1700_JPRB, 0.1700_JPRB, 0.1700_JPRB, 0.1700_JPRB, 0.1800_JPRB, 0.2000_JPRB,&
1647 &0.2200_JPRB, 0.2200_JPRB, 0.2300_JPRB, 0.2600_JPRB, 0.2700_JPRB, 0.2600_JPRB, 0.2400_JPRB, 0.2400_JPRB,&
1648 &0.2100_JPRB, 0.2100_JPRB, 0.2100_JPRB /)
1649ZOZCL(:, 6,12) = (/&
1650 &0.1800_JPRB, 0.1800_JPRB, 0.1800_JPRB, 0.1700_JPRB, 0.1600_JPRB, 0.1600_JPRB, 0.1500_JPRB, 0.1600_JPRB,&
1651 &0.1700_JPRB, 0.1700_JPRB, 0.1800_JPRB, 0.2000_JPRB, 0.2300_JPRB, 0.2500_JPRB, 0.2700_JPRB, 0.2700_JPRB,&
1652 &0.2400_JPRB, 0.2300_JPRB, 0.2300_JPRB /)
1653ZOZCL(:, 7,12) = (/&
1654 &0.2200_JPRB, 0.2200_JPRB, 0.2000_JPRB, 0.2000_JPRB, 0.1900_JPRB, 0.1700_JPRB, 0.1600_JPRB, 0.1600_JPRB,&
1655 &0.1700_JPRB, 0.1700_JPRB, 0.1700_JPRB, 0.1700_JPRB, 0.1900_JPRB, 0.2300_JPRB, 0.3100_JPRB, 0.3100_JPRB,&
1656 &0.2700_JPRB, 0.2700_JPRB, 0.2700_JPRB /)
1657ZOZCL(:, 8,12) = (/&
1658 &0.3300_JPRB, 0.3300_JPRB, 0.3000_JPRB, 0.2900_JPRB, 0.2800_JPRB, 0.2700_JPRB, 0.2500_JPRB, 0.2400_JPRB,&
1659 &0.2500_JPRB, 0.2500_JPRB, 0.2400_JPRB, 0.2600_JPRB, 0.3000_JPRB, 0.3400_JPRB, 0.3900_JPRB, 0.3900_JPRB,&
1660 &0.3400_JPRB, 0.3300_JPRB, 0.3300_JPRB /)
1661ZOZCL(:, 9,12) = (/&
1662 &0.4300_JPRB, 0.4300_JPRB, 0.4100_JPRB, 0.4000_JPRB, 0.3900_JPRB, 0.3900_JPRB, 0.3800_JPRB, 0.3600_JPRB,&
1663 &0.3500_JPRB, 0.3500_JPRB, 0.3500_JPRB, 0.3800_JPRB, 0.4500_JPRB, 0.4900_JPRB, 0.5100_JPRB, 0.5100_JPRB,&
1664 &0.4500_JPRB, 0.4400_JPRB, 0.4400_JPRB /)
1665ZOZCL(:,10,12) = (/&
1666 &0.5800_JPRB, 0.5800_JPRB, 0.5700_JPRB, 0.5200_JPRB, 0.5000_JPRB, 0.4800_JPRB, 0.4900_JPRB, 0.5100_JPRB,&
1667 &0.5000_JPRB, 0.4900_JPRB, 0.4800_JPRB, 0.4900_JPRB, 0.6500_JPRB, 0.7100_JPRB, 0.6900_JPRB, 0.7000_JPRB,&
1668 &0.6200_JPRB, 0.6000_JPRB, 0.6000_JPRB /)
1669ZOZCL(:,11,12) = (/&
1670 &0.7800_JPRB, 0.7800_JPRB, 0.7700_JPRB, 0.7600_JPRB, 0.7500_JPRB, 0.7500_JPRB, 0.7700_JPRB, 0.7700_JPRB,&
1671 &0.7400_JPRB, 0.7100_JPRB, 0.7100_JPRB, 0.7200_JPRB, 0.7600_JPRB, 0.8000_JPRB, 0.9900_JPRB, 0.9900_JPRB,&
1672 &0.8700_JPRB, 0.8500_JPRB, 0.8500_JPRB /)
1673ZOZCL(:,12,12) = (/&
1674 &0.9400_JPRB, 0.9400_JPRB, 0.9300_JPRB, 0.9500_JPRB, 0.9500_JPRB, 0.9600_JPRB, 1.0000_JPRB, 1.0100_JPRB,&
1675 &0.9600_JPRB, 0.9400_JPRB, 0.9400_JPRB, 0.9700_JPRB, 1.0200_JPRB, 1.0400_JPRB, 1.2500_JPRB, 1.2500_JPRB,&
1676 &1.1000_JPRB, 1.0700_JPRB, 1.0700_JPRB /)
1677ZOZCL(:,13,12) = (/&
1678 &1.2000_JPRB, 1.2000_JPRB, 1.2200_JPRB, 1.2600_JPRB, 1.2900_JPRB, 1.3300_JPRB, 1.3900_JPRB, 1.4200_JPRB,&
1679 &1.3900_JPRB, 1.3600_JPRB, 1.3700_JPRB, 1.4200_JPRB, 1.4800_JPRB, 1.5000_JPRB, 1.7800_JPRB, 1.7800_JPRB,&
1680 &1.5700_JPRB, 1.5200_JPRB, 1.5200_JPRB /)
1681ZOZCL(:,14,12) = (/&
1682 &1.4700_JPRB, 1.4700_JPRB, 1.5500_JPRB, 1.6500_JPRB, 1.7700_JPRB, 1.8600_JPRB, 1.9300_JPRB, 1.9700_JPRB,&
1683 &1.9800_JPRB, 1.9800_JPRB, 1.9800_JPRB, 1.9700_JPRB, 1.9900_JPRB, 2.0900_JPRB, 1.9400_JPRB, 1.9400_JPRB,&
1684 &1.7100_JPRB, 1.6600_JPRB, 1.6600_JPRB /)
1685ZOZCL(:,15,12) = (/&
1686 &1.6500_JPRB, 1.6500_JPRB, 1.7700_JPRB, 1.9400_JPRB, 2.1000_JPRB, 2.2100_JPRB, 2.2900_JPRB, 2.3400_JPRB,&
1687 &2.4000_JPRB, 2.4400_JPRB, 2.4100_JPRB, 2.3500_JPRB, 2.3800_JPRB, 2.5700_JPRB, 2.7100_JPRB, 2.6800_JPRB,&
1688 &2.2100_JPRB, 2.1500_JPRB, 2.1500_JPRB /)
1689ZOZCL(:,16,12) = (/&
1690 &2.1100_JPRB, 2.1100_JPRB, 2.2300_JPRB, 2.4200_JPRB, 2.5700_JPRB, 2.7200_JPRB, 2.8600_JPRB, 2.9900_JPRB,&
1691 &3.1100_JPRB, 3.1800_JPRB, 3.1500_JPRB, 3.1300_JPRB, 3.2500_JPRB, 3.6300_JPRB, 3.9200_JPRB, 3.7300_JPRB,&
1692 &3.0000_JPRB, 2.9300_JPRB, 2.9300_JPRB /)
1693ZOZCL(:,17,12) = (/&
1694 &2.9200_JPRB, 2.9200_JPRB, 3.0000_JPRB, 3.1900_JPRB, 3.3400_JPRB, 3.5300_JPRB, 3.7700_JPRB, 4.0100_JPRB,&
1695 &4.1800_JPRB, 4.2700_JPRB, 4.2900_JPRB, 4.3500_JPRB, 4.6600_JPRB, 5.2600_JPRB, 5.5900_JPRB, 5.1000_JPRB,&
1696 &4.1400_JPRB, 4.0300_JPRB, 4.0300_JPRB /) 
1697
1698ZOZCL(:,18,12) = (/&
1699 &3.9000_JPRB, 3.9000_JPRB, 3.9500_JPRB, 4.1300_JPRB, 4.3100_JPRB, 4.5400_JPRB, 4.8100_JPRB, 5.0800_JPRB,&
1700 &5.2500_JPRB, 5.3200_JPRB, 5.3500_JPRB, 5.4500_JPRB, 5.8000_JPRB, 6.3600_JPRB, 6.4900_JPRB, 5.7900_JPRB,&
1701 &4.8600_JPRB, 4.7200_JPRB, 4.7200_JPRB /)
1702ZOZCL(:,19,12) = (/&
1703 &5.6100_JPRB, 5.6100_JPRB, 5.6400_JPRB, 5.8300_JPRB, 6.1600_JPRB, 6.4500_JPRB, 6.7100_JPRB, 6.9600_JPRB,&
1704 &7.0400_JPRB, 6.9900_JPRB, 6.9700_JPRB, 7.0200_JPRB, 7.1800_JPRB, 7.3100_JPRB, 6.9200_JPRB, 6.1000_JPRB,&
1705 &5.3900_JPRB, 5.2100_JPRB, 5.2100_JPRB /)
1706ZOZCL(:,20,12) = (/&
1707 &6.2700_JPRB, 6.2700_JPRB, 6.2300_JPRB, 6.8800_JPRB, 7.6200_JPRB, 7.9400_JPRB, 8.4000_JPRB, 8.7500_JPRB,&
1708 &8.7200_JPRB, 8.4800_JPRB, 8.1600_JPRB, 7.9900_JPRB, 7.8000_JPRB, 7.3300_JPRB, 6.5300_JPRB, 5.9400_JPRB,&
1709 &5.1900_JPRB, 4.9800_JPRB, 4.9800_JPRB /)
1710ZOZCL(:,21,12) = (/&
1711 &5.7900_JPRB, 5.7900_JPRB, 5.9500_JPRB, 6.8600_JPRB, 7.7600_JPRB, 8.2900_JPRB, 8.8600_JPRB, 9.2900_JPRB,&
1712 &9.3700_JPRB, 9.0300_JPRB, 8.6000_JPRB, 8.1500_JPRB, 7.7100_JPRB, 6.9600_JPRB, 6.0900_JPRB, 5.6900_JPRB,&
1713 &4.8100_JPRB, 4.6200_JPRB, 4.6200_JPRB /)
1714ZOZCL(:,22,12) = (/&
1715 &4.9900_JPRB, 4.9900_JPRB, 5.3900_JPRB, 6.3800_JPRB, 7.3500_JPRB, 8.0200_JPRB, 8.6600_JPRB, 9.1400_JPRB,&
1716 &9.4500_JPRB, 9.2400_JPRB, 8.6900_JPRB, 7.9100_JPRB, 7.2800_JPRB, 6.4100_JPRB, 5.6000_JPRB, 5.4200_JPRB,&
1717 &4.3700_JPRB, 4.2500_JPRB, 4.2500_JPRB /)
1718ZOZCL(:,23,12) = (/&
1719 &4.6332_JPRB, 4.6332_JPRB, 4.9550_JPRB, 5.8500_JPRB, 6.4400_JPRB, 7.0100_JPRB, 7.5100_JPRB, 7.8800_JPRB,&
1720 &8.1500_JPRB, 8.0800_JPRB, 7.6500_JPRB, 7.0200_JPRB, 6.5700_JPRB, 5.9400_JPRB, 5.4200_JPRB, 5.1000_JPRB,&
1721 &4.0800_JPRB, 4.0000_JPRB, 4.0000_JPRB /)
1722ZOZCL(:,24,12) = (/&
1723 &4.8574_JPRB, 4.8574_JPRB, 4.9240_JPRB, 5.4500_JPRB, 5.7500_JPRB, 6.1500_JPRB, 6.4700_JPRB, 6.6400_JPRB,&
1724 &6.6900_JPRB, 6.5500_JPRB, 6.3400_JPRB, 6.0500_JPRB, 5.8600_JPRB, 5.5400_JPRB, 5.2300_JPRB, 4.7700_JPRB,&
1725 &3.8600_JPRB, 3.7700_JPRB, 3.7700_JPRB /)
1726ZOZCL(:,25,12) = (/&
1727 &4.7325_JPRB, 4.7325_JPRB, 4.4182_JPRB, 4.3533_JPRB, 4.2633_JPRB, 4.4898_JPRB, 4.5542_JPRB, 4.6100_JPRB,&
1728 &4.4068_JPRB, 4.3667_JPRB, 4.3200_JPRB, 4.4100_JPRB, 4.6224_JPRB, 4.8237_JPRB, 4.8392_JPRB, 3.9730_JPRB,&
1729 &3.3764_JPRB, 3.4643_JPRB, 3.4643_JPRB /)
1730ZOZCL(:,26,12) = (/&
1731 &3.0907_JPRB, 3.0907_JPRB, 2.8831_JPRB, 2.4640_JPRB, 2.4420_JPRB, 2.6292_JPRB, 2.1590_JPRB, 2.0700_JPRB,&
1732 &1.5686_JPRB, 1.4776_JPRB, 1.5800_JPRB, 1.9000_JPRB, 2.1818_JPRB, 2.7110_JPRB, 3.0231_JPRB, 3.1760_JPRB,&
1733 &2.8928_JPRB, 3.1586_JPRB, 3.1586_JPRB /)
1734ZOZCL(:,27,12) = (/&
1735 &1.7454_JPRB, 1.7454_JPRB, 1.5773_JPRB, 1.6300_JPRB, 1.2857_JPRB, 1.3283_JPRB, 0.7750_JPRB, 0.9300_JPRB,&
1736 &0.5321_JPRB, 0.4725_JPRB, 0.6400_JPRB, 0.8800_JPRB, 0.9425_JPRB, 1.5350_JPRB, 1.8095_JPRB, 2.1829_JPRB,&
1737 &2.1034_JPRB, 2.3644_JPRB, 2.3644_JPRB /)
1738ZOZCL(:,28,12) = (/&
1739 &0.7455_JPRB, 0.7455_JPRB, 0.7238_JPRB, 0.8030_JPRB, 0.4890_JPRB, 0.4723_JPRB, 0.1650_JPRB, 0.1559_JPRB,&
1740 &0.0825_JPRB, 0.1756_JPRB, 0.1840_JPRB, 0.1397_JPRB, 0.3389_JPRB, 0.6753_JPRB, 0.8529_JPRB, 1.3150_JPRB,&
1741 &1.2478_JPRB, 1.4815_JPRB, 1.4815_JPRB /)
1742ZOZCL(:,29,12) = (/&
1743 &0.3825_JPRB, 0.3825_JPRB, 0.3773_JPRB, 0.3720_JPRB, 0.2427_JPRB, 0.1998_JPRB, 0.1060_JPRB, 0.0997_JPRB,&
1744 &0.0485_JPRB, 0.1056_JPRB, 0.1140_JPRB, 0.0693_JPRB, 0.1087_JPRB, 0.2997_JPRB, 0.3720_JPRB, 0.6467_JPRB,&
1745 &0.6166_JPRB, 0.6367_JPRB, 0.6367_JPRB /)
1746ZOZCL(:,30,12) = (/&
1747 &0.2977_JPRB, 0.2977_JPRB, 0.2726_JPRB, 0.2711_JPRB, 0.1600_JPRB, 0.1016_JPRB, 0.0905_JPRB, 0.0847_JPRB,&
1748 &0.0374_JPRB, 0.0820_JPRB, 0.0700_JPRB, 0.0536_JPRB, 0.0939_JPRB, 0.1798_JPRB, 0.2019_JPRB, 0.3510_JPRB,&
1749 &0.2935_JPRB, 0.3471_JPRB, 0.3471_JPRB /)
1750ZOZCL(:,31,12) = (/&
1751 &0.0783_JPRB, 0.0783_JPRB, 0.0717_JPRB, 0.0693_JPRB, 0.0600_JPRB, 0.0517_JPRB, 0.0713_JPRB, 0.0676_JPRB,&
1752 &0.0371_JPRB, 0.0614_JPRB, 0.0483_JPRB, 0.0488_JPRB, 0.0639_JPRB, 0.0688_JPRB, 0.0764_JPRB, 0.0943_JPRB,&
1753 &0.0892_JPRB, 0.1108_JPRB, 0.1108_JPRB /)
1754ZOZCL(:,32,12) = (/&
1755 &0.0262_JPRB, 0.0262_JPRB, 0.0372_JPRB, 0.0300_JPRB, 0.0378_JPRB, 0.0365_JPRB, 0.0552_JPRB, 0.0530_JPRB,&
1756 &0.0373_JPRB, 0.0685_JPRB, 0.0362_JPRB, 0.0437_JPRB, 0.0419_JPRB, 0.0452_JPRB, 0.0515_JPRB, 0.0458_JPRB,&
1757 &0.0440_JPRB, 0.0453_JPRB, 0.0453_JPRB /)
1758ZOZCL(:,33,12) = (/&
1759 &0.0220_JPRB, 0.0220_JPRB, 0.0281_JPRB, 0.0234_JPRB, 0.0307_JPRB, 0.0337_JPRB, 0.0520_JPRB, 0.0494_JPRB,&
1760 &0.0280_JPRB, 0.0420_JPRB, 0.0300_JPRB, 0.0379_JPRB, 0.0426_JPRB, 0.0409_JPRB, 0.0453_JPRB, 0.0411_JPRB,&
1761 &0.0391_JPRB, 0.0393_JPRB, 0.0393_JPRB /)
1762ZOZCL(:,34,12) = (/&
1763 &0.0220_JPRB, 0.0220_JPRB, 0.0281_JPRB, 0.0234_JPRB, 0.0307_JPRB, 0.0337_JPRB, 0.0520_JPRB, 0.0494_JPRB,&
1764 &0.0280_JPRB, 0.0420_JPRB, 0.0300_JPRB, 0.0379_JPRB, 0.0426_JPRB, 0.0409_JPRB, 0.0453_JPRB, 0.0411_JPRB,&
1765 &0.0391_JPRB, 0.0393_JPRB, 0.0393_JPRB /)
1766
1767
1768! PRESSURE LEVELS FOR O3 CLIMATOLOGY
1769
1770RPROC = (/&
1771            &_ZERO_ &
1772           &,                    0.3_JPRB,    _HALF_,    0.7_JPRB,      _ONE_ &
1773           &,     1.5_JPRB,    _TWO_,     3._JPRB,     5._JPRB,     7._JPRB,     10._JPRB &
1774           &,    15._JPRB,    20._JPRB,    30._JPRB,    50._JPRB,    70._JPRB,    100._JPRB &
1775           &,   150._JPRB,   200._JPRB,   300._JPRB,   500._JPRB,   700._JPRB,   1000._JPRB &
1776           &,  1500._JPRB,  2000._JPRB,  3000._JPRB,  5000._JPRB,  7000._JPRB,  10000._JPRB &
1777           &, 15000._JPRB, 20000._JPRB, 30000._JPRB, 50000._JPRB, 70000._JPRB, 100000._JPRB &
1778           &,                                         110000._JPRB &
1779           &/)
1780
1781!     ------------------------------------------------------------------
1782
1783!*         1.     TIME INDEX WITHIN OZONE CLIMATOLOGY
1784!                 -----------------------------------
1785
1786
1787IDY=NDD(KINDAT)-1
1788IMN=NMM(KINDAT)
1789IF (IMN == 1) THEN
1790  ZXTIME=REAL(IDY,KIND(ZXTIME))*1440._JPRB + KMINUT
1791ELSEIF (IMN == 2) THEN
1792  IF(IDY == 28) IDY=IDY-1
1793! A DAY IN FEB. IS 28.25*24*60/28=1452.8571min LONG.
1794  ZXTIME=44640._JPRB+REAL(IDY,KIND(ZXTIME))*1452.8571_JPRB+KMINUT
1795ELSE
1796  ZXTIME=(ZMDAY(IMN-1)+REAL(IDY,KIND(ZXTIME)))*1440._JPRB+KMINUT
1797ENDIF
1798! 525960=MINUTES IN A SIDERAL YEAR (365.25d)
1799ZXTIME=MOD(ZXTIME,525960._JPRB)
1800
1801IM1=0
1802IM2=0
1803IF (ZXTIME <= ZYTIME(1)) THEN
1804  IM1=12
1805  IM2=1
1806  ZTIMI=(ZYTIME(1)-ZXTIME)/44640._JPRB
1807ELSEIF(ZXTIME > ZYTIME(12)) THEN
1808  IM1=12
1809  IM2=1
1810  ZTIMI=(548280._JPRB-ZXTIME)/44640._JPRB
1811! 548280.=(365.25d + 15.5d)*24*60
1812ELSE
1813  DO IM=1,11
1814    IF (ZXTIME > ZYTIME(IM) .AND. ZXTIME <= ZYTIME(IM+1)) THEN
1815      IM1=IM
1816      IM2=IM+1
1817      ZTIMI=(ZXTIME-ZYTIME(IM2))/(ZYTIME(IM1)-ZYTIME(IM2))
1818    ENDIF
1819  ENDDO
1820  IF (IM1 == 0.OR. IM2 == 0 ) THEN
1821!    CALL ABOR1('Problem with time interpolation in suecozc!')
1822    PRINT *,'Problem with time interpolation in suecozc!'
1823    STOP
1824  ENDIF
1825ENDIF
1826
1827
1828!*         2.0    TIME INTERPOLATED FIELD
1829!                 -----------------------
1830
1831
1832!*( Field is also transformed in kg/kg! )
1833
1834DO JL=1,19
1835  DO JK=1,34
1836    ROZT(JL,JK)=RO3 * (ZOZCL(JL,JK,IM2)&
1837     &+ZTIMI*(ZOZCL(JL,JK,IM1)-ZOZCL(JL,JK,IM2)))
1838  ENDDO
1839  ROZT(JL, 0)=_ZERO_
1840  ROZT(JL,35)=ROZT(JL,34)
1841ENDDO
1842
1843
1844!     VECTOR OF LATITUDES FOR OZONE CLIMATOLOGY:
1845
1846DO JL=1,19
1847  RSINC(JL)=SIN((-90._JPRB+(JL-1)*10._JPRB)*RPI/180._JPRB)
1848ENDDO
1849
1850RETURN
1851END SUBROUTINE SUECOZC
Note: See TracBrowser for help on using the repository browser.