Head

GCC Code Coverage Report

Directory:	./		Exec	Total	Coverage
File:	phylmd/rrtm/rrtm_kgb16.F90	Lines:	1129	1129	100.0 %
Date:	2023-06-30 12:51:15	Branches:	2156	2182	98.8 %

Line	Branch	Exec	Source
1			!OCL SCALAR
2			#ifdef RS6K
3			@PROCESS NOOPTIMIZE
4			#endif
5			!pgi$r opt=0
6		1	SUBROUTINE RRTM_KGB16
7
8			! Originally by Eli J. Mlawer, Atmospheric & Environmental Research.
9			! BAND 16: 2600-3000 cm-1 (low - H2O,CH4; high - nothing)
10			! Reformatted for F90 by JJMorcrette, ECMWF
11			! R. Elkhatib 12-10-2005 Split for faster and more robust compilation.
12
13			! ------------------------------------------------------------------
14
15			USE PARKIND1 ,ONLY : JPRB
16			USE YOMHOOK ,ONLY : LHOOK, DR_HOOK
17
18			USE YOERRTO16, ONLY : KAO ,SELFREFO ,FRACREFAO
19			USE YOERRTA16, ONLY : STRRAT
20
21			! ------------------------------------------------------------------
22
23			IMPLICIT NONE
24			REAL(KIND=JPRB) :: ZHOOK_HANDLE
25
26	✓✗	1	IF (LHOOK) CALL DR_HOOK('RRTM_KGB16',0,ZHOOK_HANDLE)
27
28		1	CALL PART1
29		1	CALL PART2
30		1	CALL PART3
31		1	CALL PART4
32		1	CALL PART5
33		1	CALL PART6
34		1	CALL PART7
35		1	CALL PART8
36		1	CALL PART9
37		1	CALL PART10
38		1	CALL PART11
39		1	CALL PART12
40
41	✓✗	1	IF (LHOOK) CALL DR_HOOK('RRTM_KGB16',1,ZHOOK_HANDLE)
42
43			! -----------------------------------------------------------------
44
45			CONTAINS
46
47
48		1	SUBROUTINE PART1
49
50			REAL(KIND=JPRB) :: ZHOOK_HANDLE
51	✓✗	1	IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART1',0,ZHOOK_HANDLE)
52
53
54		1	STRRAT = 830.411_JPRB
55
56			! ------------------------------------------------------------------
57
58			! The array KAO contains absorption coefs at the 16 chosen g-values
59			! for a range of pressure levels> ~100mb, temperatures, and binary
60			! species parameters (see taumol.f for definition). The first
61			! index in the array, JS, runs from 1 to 9, and corresponds to
62			! different values of the binary species parameter. For instance,
63			! JS=1 refers to dry air, JS = 2 corresponds to the paramter value 1/8,
64			! JS = 3 corresponds to the parameter value 2/8, etc. The second index
65			! in the array, JT, which runs from 1 to 5, corresponds to different
66			! temperatures. More specifically, JT = 3 means that the data are for
67			! the reference temperature TREF for this pressure level, JT = 2 refers
68			! to TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5
69			! is for TREF+30. The third index, JP, runs from 1 to 13 and refers
70			! to the JPth reference pressure level (see taumol.f for these levels
71			! in mb). The fourth index, IG, goes from 1 to 16, and indicates
72			! which g-interval the absorption coefficients are for.
73
74			KAO( :, 1, 1, 1) = (/&
75			& 1.9384E-05_JPRB,2.9898E-05_JPRB,3.4062E-05_JPRB,3.6004E-05_JPRB,3.6430E-05_JPRB,3.5549E-05_JPRB,&
76	✓✓	10	& 3.3320E-05_JPRB,2.9615E-05_JPRB,2.3873E-05_JPRB/)
77			KAO( :, 2, 1, 1) = (/&
78			& 1.9436E-05_JPRB,2.9740E-05_JPRB,3.3708E-05_JPRB,3.5476E-05_JPRB,3.5843E-05_JPRB,3.5033E-05_JPRB,&
79	✓✓	10	& 3.2962E-05_JPRB,2.9462E-05_JPRB,2.4055E-05_JPRB/)
80			KAO( :, 3, 1, 1) = (/&
81			& 1.9464E-05_JPRB,2.9570E-05_JPRB,3.3324E-05_JPRB,3.4974E-05_JPRB,3.5304E-05_JPRB,3.4544E-05_JPRB,&
82	✓✓	10	& 3.2637E-05_JPRB,2.9289E-05_JPRB,2.4237E-05_JPRB/)
83			KAO( :, 4, 1, 1) = (/&
84			& 1.9302E-05_JPRB,2.9247E-05_JPRB,3.2832E-05_JPRB,3.4416E-05_JPRB,3.4737E-05_JPRB,3.4031E-05_JPRB,&
85	✓✓	10	& 3.2272E-05_JPRB,2.9080E-05_JPRB,2.4364E-05_JPRB/)
86			KAO( :, 5, 1, 1) = (/&
87			& 1.9123E-05_JPRB,2.8885E-05_JPRB,3.2360E-05_JPRB,3.3877E-05_JPRB,3.4211E-05_JPRB,3.3554E-05_JPRB,&
88	✓✓	10	& 3.1880E-05_JPRB,2.8883E-05_JPRB,2.4458E-05_JPRB/)
89			KAO( :, 1, 2, 1) = (/&
90			& 1.6583E-05_JPRB,2.6012E-05_JPRB,2.9608E-05_JPRB,3.1154E-05_JPRB,3.1427E-05_JPRB,3.0616E-05_JPRB,&
91	✓✓	10	& 2.8665E-05_JPRB,2.5368E-05_JPRB,2.0615E-05_JPRB/)
92			KAO( :, 2, 2, 1) = (/&
93			& 1.6630E-05_JPRB,2.5863E-05_JPRB,2.9249E-05_JPRB,3.0678E-05_JPRB,3.0941E-05_JPRB,3.0197E-05_JPRB,&
94	✓✓	10	& 2.8392E-05_JPRB,2.5270E-05_JPRB,2.0786E-05_JPRB/)
95			KAO( :, 3, 2, 1) = (/&
96			& 1.6647E-05_JPRB,2.5697E-05_JPRB,2.8891E-05_JPRB,3.0222E-05_JPRB,3.0484E-05_JPRB,2.9802E-05_JPRB,&
97	✓✓	10	& 2.8138E-05_JPRB,2.5165E-05_JPRB,2.0933E-05_JPRB/)
98			KAO( :, 4, 2, 1) = (/&
99			& 1.6540E-05_JPRB,2.5405E-05_JPRB,2.8466E-05_JPRB,2.9745E-05_JPRB,3.0011E-05_JPRB,2.9400E-05_JPRB,&
100	✓✓	10	& 2.7847E-05_JPRB,2.5027E-05_JPRB,2.1051E-05_JPRB/)
101			KAO( :, 5, 2, 1) = (/&
102			& 1.6324E-05_JPRB,2.5032E-05_JPRB,2.7991E-05_JPRB,2.9251E-05_JPRB,2.9530E-05_JPRB,2.8984E-05_JPRB,&
103	✓✓	10	& 2.7519E-05_JPRB,2.4864E-05_JPRB,2.1134E-05_JPRB/)
104			KAO( :, 1, 3, 1) = (/&
105			& 1.4086E-05_JPRB,2.2526E-05_JPRB,2.5577E-05_JPRB,2.6862E-05_JPRB,2.7021E-05_JPRB,2.6302E-05_JPRB,&
106	✓✓	10	& 2.4576E-05_JPRB,2.1643E-05_JPRB,1.8751E-05_JPRB/)
107			KAO( :, 2, 3, 1) = (/&
108			& 1.4131E-05_JPRB,2.2392E-05_JPRB,2.5264E-05_JPRB,2.6452E-05_JPRB,2.6617E-05_JPRB,2.5964E-05_JPRB,&
109	✓✓	10	& 2.4370E-05_JPRB,2.1595E-05_JPRB,1.8898E-05_JPRB/)
110			KAO( :, 3, 3, 1) = (/&
111			& 1.4113E-05_JPRB,2.2191E-05_JPRB,2.4900E-05_JPRB,2.6018E-05_JPRB,2.6215E-05_JPRB,2.5621E-05_JPRB,&
112	✓✓	10	& 2.4158E-05_JPRB,2.1540E-05_JPRB,1.9048E-05_JPRB/)
113			KAO( :, 4, 3, 1) = (/&
114			& 1.4058E-05_JPRB,2.1961E-05_JPRB,2.4548E-05_JPRB,2.5623E-05_JPRB,2.5838E-05_JPRB,2.5312E-05_JPRB,&
115	✓✓	10	& 2.3952E-05_JPRB,2.1469E-05_JPRB,1.9182E-05_JPRB/)
116			KAO( :, 5, 3, 1) = (/&
117			& 1.3863E-05_JPRB,2.1619E-05_JPRB,2.4113E-05_JPRB,2.5184E-05_JPRB,2.5419E-05_JPRB,2.4957E-05_JPRB,&
118	✓✓	10	& 2.3697E-05_JPRB,2.1357E-05_JPRB,1.9265E-05_JPRB/)
119			KAO( :, 1, 4, 1) = (/&
120			& 1.1900E-05_JPRB,1.9396E-05_JPRB,2.1993E-05_JPRB,2.3049E-05_JPRB,2.3163E-05_JPRB,2.2508E-05_JPRB,&
121	✓✓	10	& 2.0982E-05_JPRB,1.8407E-05_JPRB,1.7094E-05_JPRB/)
122			KAO( :, 2, 4, 1) = (/&
123			& 1.1936E-05_JPRB,1.9289E-05_JPRB,2.1740E-05_JPRB,2.2712E-05_JPRB,2.2827E-05_JPRB,2.2234E-05_JPRB,&
124	✓✓	10	& 2.0833E-05_JPRB,1.8390E-05_JPRB,1.7367E-05_JPRB/)
125			KAO( :, 3, 4, 1) = (/&
126			& 1.1914E-05_JPRB,1.9113E-05_JPRB,2.1420E-05_JPRB,2.2348E-05_JPRB,2.2488E-05_JPRB,2.1958E-05_JPRB,&
127	✓✓	10	& 2.0668E-05_JPRB,1.8368E-05_JPRB,1.7624E-05_JPRB/)
128			KAO( :, 4, 4, 1) = (/&
129			& 1.1850E-05_JPRB,1.8882E-05_JPRB,2.1069E-05_JPRB,2.1971E-05_JPRB,2.2145E-05_JPRB,2.1684E-05_JPRB,&
130	✓✓	10	& 2.0493E-05_JPRB,1.8332E-05_JPRB,1.7862E-05_JPRB/)
131			KAO( :, 5, 4, 1) = (/&
132			& 1.1744E-05_JPRB,1.8626E-05_JPRB,2.0733E-05_JPRB,2.1634E-05_JPRB,2.1819E-05_JPRB,2.1414E-05_JPRB,&
133	✓✓	10	& 2.0321E-05_JPRB,1.8279E-05_JPRB,1.8065E-05_JPRB/)
134			KAO( :, 1, 5, 1) = (/&
135			& 1.0007E-05_JPRB,1.6633E-05_JPRB,1.8846E-05_JPRB,1.9714E-05_JPRB,1.9792E-05_JPRB,1.9192E-05_JPRB,&
136	✓✓	10	& 1.7849E-05_JPRB,1.5620E-05_JPRB,1.4831E-05_JPRB/)
137			KAO( :, 2, 5, 1) = (/&
138			& 1.0036E-05_JPRB,1.6537E-05_JPRB,1.8619E-05_JPRB,1.9430E-05_JPRB,1.9510E-05_JPRB,1.8974E-05_JPRB,&
139	✓✓	10	& 1.7727E-05_JPRB,1.5597E-05_JPRB,1.5243E-05_JPRB/)
140			KAO( :, 3, 5, 1) = (/&
141			& 1.0020E-05_JPRB,1.6382E-05_JPRB,1.8357E-05_JPRB,1.9125E-05_JPRB,1.9225E-05_JPRB,1.8747E-05_JPRB,&
142	✓✓	10	& 1.7610E-05_JPRB,1.5596E-05_JPRB,1.5694E-05_JPRB/)
143			KAO( :, 4, 5, 1) = (/&
144			& 9.9655E-06_JPRB,1.6185E-05_JPRB,1.8047E-05_JPRB,1.8806E-05_JPRB,1.8930E-05_JPRB,1.8511E-05_JPRB,&
145	✓✓	10	& 1.7475E-05_JPRB,1.5592E-05_JPRB,1.6134E-05_JPRB/)
146			KAO( :, 5, 5, 1) = (/&
147			& 9.8924E-06_JPRB,1.5961E-05_JPRB,1.7750E-05_JPRB,1.8511E-05_JPRB,1.8653E-05_JPRB,1.8287E-05_JPRB,&
148	✓✓	10	& 1.7340E-05_JPRB,1.5571E-05_JPRB,1.6528E-05_JPRB/)
149			KAO( :, 1, 6, 1) = (/&
150			& 8.3773E-06_JPRB,1.4205E-05_JPRB,1.6091E-05_JPRB,1.6810E-05_JPRB,1.6854E-05_JPRB,1.6312E-05_JPRB,&
151	✓✓	10	& 1.5134E-05_JPRB,1.3227E-05_JPRB,1.2806E-05_JPRB/)
152			KAO( :, 2, 6, 1) = (/&
153			& 8.4040E-06_JPRB,1.4116E-05_JPRB,1.5890E-05_JPRB,1.6565E-05_JPRB,1.6618E-05_JPRB,1.6134E-05_JPRB,&
154	✓✓	10	& 1.5030E-05_JPRB,1.3175E-05_JPRB,1.3188E-05_JPRB/)
155			KAO( :, 3, 6, 1) = (/&
156			& 8.3967E-06_JPRB,1.3982E-05_JPRB,1.5670E-05_JPRB,1.6315E-05_JPRB,1.6378E-05_JPRB,1.5948E-05_JPRB,&
157	✓✓	10	& 1.4938E-05_JPRB,1.3181E-05_JPRB,1.3640E-05_JPRB/)
158			KAO( :, 4, 6, 1) = (/&
159			& 8.3520E-06_JPRB,1.3808E-05_JPRB,1.5410E-05_JPRB,1.6041E-05_JPRB,1.6129E-05_JPRB,1.5748E-05_JPRB,&
160	✓✓	10	& 1.4840E-05_JPRB,1.3187E-05_JPRB,1.4105E-05_JPRB/)
161			KAO( :, 5, 6, 1) = (/&
162			& 8.2808E-06_JPRB,1.3600E-05_JPRB,1.5125E-05_JPRB,1.5766E-05_JPRB,1.5873E-05_JPRB,1.5546E-05_JPRB,&
163	✓✓	10	& 1.4725E-05_JPRB,1.3184E-05_JPRB,1.4585E-05_JPRB/)
164			KAO( :, 1, 7, 1) = (/&
165			& 6.9702E-06_JPRB,1.2049E-05_JPRB,1.3655E-05_JPRB,1.4254E-05_JPRB,1.4272E-05_JPRB,1.3786E-05_JPRB,&
166	✓✓	10	& 1.2775E-05_JPRB,1.1193E-05_JPRB,1.1151E-05_JPRB/)
167			KAO( :, 2, 7, 1) = (/&
168			& 6.9954E-06_JPRB,1.1967E-05_JPRB,1.3478E-05_JPRB,1.4043E-05_JPRB,1.4073E-05_JPRB,1.3643E-05_JPRB,&
169	✓✓	10	& 1.2677E-05_JPRB,1.1085E-05_JPRB,1.1514E-05_JPRB/)
170			KAO( :, 3, 7, 1) = (/&
171			& 6.9926E-06_JPRB,1.1851E-05_JPRB,1.3284E-05_JPRB,1.3826E-05_JPRB,1.3871E-05_JPRB,1.3488E-05_JPRB,&
172	✓✓	10	& 1.2600E-05_JPRB,1.1081E-05_JPRB,1.1911E-05_JPRB/)
173			KAO( :, 4, 7, 1) = (/&
174			& 6.9597E-06_JPRB,1.1700E-05_JPRB,1.3068E-05_JPRB,1.3600E-05_JPRB,1.3659E-05_JPRB,1.3321E-05_JPRB,&
175	✓✓	10	& 1.2522E-05_JPRB,1.1091E-05_JPRB,1.2356E-05_JPRB/)
176			KAO( :, 5, 7, 1) = (/&
177			& 6.9051E-06_JPRB,1.1522E-05_JPRB,1.2825E-05_JPRB,1.3359E-05_JPRB,1.3444E-05_JPRB,1.3151E-05_JPRB,&
178	✓✓	10	& 1.2435E-05_JPRB,1.1100E-05_JPRB,1.2847E-05_JPRB/)
179			KAO( :, 1, 8, 1) = (/&
180			& 5.8087E-06_JPRB,1.0208E-05_JPRB,1.1579E-05_JPRB,1.2087E-05_JPRB,1.2081E-05_JPRB,1.1640E-05_JPRB,&
181	✓✓	10	& 1.0763E-05_JPRB,9.5182E-06_JPRB,9.7914E-06_JPRB/)
182			KAO( :, 2, 8, 1) = (/&
183			& 5.8314E-06_JPRB,1.0134E-05_JPRB,1.1429E-05_JPRB,1.1911E-05_JPRB,1.1918E-05_JPRB,1.1522E-05_JPRB,&
184	✓✓	10	& 1.0685E-05_JPRB,9.3144E-06_JPRB,1.0107E-05_JPRB/)
185			KAO( :, 3, 8, 1) = (/&
186			& 5.8306E-06_JPRB,1.0039E-05_JPRB,1.1263E-05_JPRB,1.1721E-05_JPRB,1.1741E-05_JPRB,1.1392E-05_JPRB,&
187	✓✓	10	& 1.0611E-05_JPRB,9.2970E-06_JPRB,1.0491E-05_JPRB/)
188			KAO( :, 4, 8, 1) = (/&
189			& 5.8084E-06_JPRB,9.9094E-06_JPRB,1.1082E-05_JPRB,1.1528E-05_JPRB,1.1564E-05_JPRB,1.1253E-05_JPRB,&
190	✓✓	10	& 1.0543E-05_JPRB,9.3028E-06_JPRB,1.0943E-05_JPRB/)
191			KAO( :, 5, 8, 1) = (/&
192			& 5.7671E-06_JPRB,9.7597E-06_JPRB,1.0878E-05_JPRB,1.1322E-05_JPRB,1.1380E-05_JPRB,1.1112E-05_JPRB,&
193	✓✓	10	& 1.0475E-05_JPRB,9.3153E-06_JPRB,1.1451E-05_JPRB/)
194			KAO( :, 1, 9, 1) = (/&
195			& 4.8301E-06_JPRB,8.6067E-06_JPRB,9.7714E-06_JPRB,1.0210E-05_JPRB,1.0192E-05_JPRB,9.7977E-06_JPRB,&
196	✓✓	10	& 9.0505E-06_JPRB,8.2004E-06_JPRB,9.1168E-06_JPRB/)
197			KAO( :, 2, 9, 1) = (/&
198			& 4.8495E-06_JPRB,8.5468E-06_JPRB,9.6571E-06_JPRB,1.0063E-05_JPRB,1.0051E-05_JPRB,9.6903E-06_JPRB,&
199	✓✓	10	& 8.9660E-06_JPRB,7.8251E-06_JPRB,9.4876E-06_JPRB/)
200			KAO( :, 3, 9, 1) = (/&
201			& 4.8497E-06_JPRB,8.4643E-06_JPRB,9.5144E-06_JPRB,9.9014E-06_JPRB,9.9028E-06_JPRB,9.5821E-06_JPRB,&
202	✓✓	10	& 8.9043E-06_JPRB,7.7718E-06_JPRB,9.9373E-06_JPRB/)
203			KAO( :, 4, 9, 1) = (/&
204			& 4.8347E-06_JPRB,8.3597E-06_JPRB,9.3601E-06_JPRB,9.7348E-06_JPRB,9.7523E-06_JPRB,9.4691E-06_JPRB,&
205	✓✓	10	& 8.8479E-06_JPRB,7.7751E-06_JPRB,1.0480E-05_JPRB/)
206			KAO( :, 5, 9, 1) = (/&
207			& 4.8060E-06_JPRB,8.2344E-06_JPRB,9.1913E-06_JPRB,9.5624E-06_JPRB,9.5965E-06_JPRB,9.3522E-06_JPRB,&
208	✓✓	10	& 8.7881E-06_JPRB,7.7833E-06_JPRB,1.1108E-05_JPRB/)
209			KAO( :, 1,10, 1) = (/&
210			& 4.0064E-06_JPRB,7.2194E-06_JPRB,8.1998E-06_JPRB,8.5791E-06_JPRB,8.5570E-06_JPRB,8.2127E-06_JPRB,&
211	✓✓	10	& 7.5956E-06_JPRB,7.1868E-06_JPRB,1.0453E-05_JPRB/)
212			KAO( :, 2,10, 1) = (/&
213			& 4.0197E-06_JPRB,7.1679E-06_JPRB,8.1105E-06_JPRB,8.4531E-06_JPRB,8.4331E-06_JPRB,8.1149E-06_JPRB,&
214	✓✓	10	& 7.4918E-06_JPRB,6.5776E-06_JPRB,1.0520E-05_JPRB/)
215			KAO( :, 3,10, 1) = (/&
216			& 4.0198E-06_JPRB,7.0974E-06_JPRB,7.9934E-06_JPRB,8.3195E-06_JPRB,8.3088E-06_JPRB,8.0216E-06_JPRB,&
217	✓✓	10	& 7.4367E-06_JPRB,6.4788E-06_JPRB,1.0711E-05_JPRB/)
218			KAO( :, 4,10, 1) = (/&
219			& 4.0097E-06_JPRB,7.0130E-06_JPRB,7.8610E-06_JPRB,8.1737E-06_JPRB,8.1778E-06_JPRB,7.9289E-06_JPRB,&
220	✓✓	10	& 7.3886E-06_JPRB,6.4723E-06_JPRB,1.1047E-05_JPRB/)
221			KAO( :, 5,10, 1) = (/&
222			& 3.9884E-06_JPRB,6.9092E-06_JPRB,7.7198E-06_JPRB,8.0283E-06_JPRB,8.0487E-06_JPRB,7.8282E-06_JPRB,&
223	✓✓	10	& 7.3394E-06_JPRB,6.4785E-06_JPRB,1.1524E-05_JPRB/)
224			KAO( :, 1,11, 1) = (/&
225			& 3.3235E-06_JPRB,6.0184E-06_JPRB,6.8284E-06_JPRB,7.1399E-06_JPRB,7.1176E-06_JPRB,6.8268E-06_JPRB,&
226	✓✓	10	& 6.3069E-06_JPRB,5.9015E-06_JPRB,1.0775E-05_JPRB/)
227			KAO( :, 2,11, 1) = (/&
228			& 3.3290E-06_JPRB,5.9691E-06_JPRB,6.7492E-06_JPRB,7.0301E-06_JPRB,7.0090E-06_JPRB,6.7423E-06_JPRB,&
229	✓✓	10	& 6.2217E-06_JPRB,5.4471E-06_JPRB,1.0671E-05_JPRB/)
230			KAO( :, 3,11, 1) = (/&
231			& 3.3251E-06_JPRB,5.9052E-06_JPRB,6.6470E-06_JPRB,6.9153E-06_JPRB,6.9027E-06_JPRB,6.6631E-06_JPRB,&
232	✓✓	10	& 6.1768E-06_JPRB,5.3794E-06_JPRB,1.0714E-05_JPRB/)
233			KAO( :, 4,11, 1) = (/&
234			& 3.3144E-06_JPRB,5.8297E-06_JPRB,6.5309E-06_JPRB,6.7910E-06_JPRB,6.7926E-06_JPRB,6.5831E-06_JPRB,&
235	✓✓	10	& 6.1358E-06_JPRB,5.3736E-06_JPRB,1.0902E-05_JPRB/)
236			KAO( :, 5,11, 1) = (/&
237			& 3.2953E-06_JPRB,5.7419E-06_JPRB,6.4131E-06_JPRB,6.6688E-06_JPRB,6.6812E-06_JPRB,6.4951E-06_JPRB,&
238	✓✓	10	& 6.0888E-06_JPRB,5.3759E-06_JPRB,1.1211E-05_JPRB/)
239			KAO( :, 1,12, 1) = (/&
240			& 2.7539E-06_JPRB,5.0055E-06_JPRB,5.6748E-06_JPRB,5.9323E-06_JPRB,5.9106E-06_JPRB,5.6659E-06_JPRB,&
241	✓✓	10	& 5.2301E-06_JPRB,4.8410E-06_JPRB,1.0041E-05_JPRB/)
242			KAO( :, 2,12, 1) = (/&
243			& 2.7540E-06_JPRB,4.9609E-06_JPRB,5.6055E-06_JPRB,5.8388E-06_JPRB,5.8173E-06_JPRB,5.5933E-06_JPRB,&
244	✓✓	10	& 5.1585E-06_JPRB,4.5035E-06_JPRB,9.8783E-06_JPRB/)
245			KAO( :, 3,12, 1) = (/&
246			& 2.7488E-06_JPRB,4.9048E-06_JPRB,5.5190E-06_JPRB,5.7407E-06_JPRB,5.7275E-06_JPRB,5.5257E-06_JPRB,&
247	✓✓	10	& 5.1201E-06_JPRB,4.4556E-06_JPRB,9.8584E-06_JPRB/)
248			KAO( :, 4,12, 1) = (/&
249			& 2.7385E-06_JPRB,4.8395E-06_JPRB,5.4207E-06_JPRB,5.6356E-06_JPRB,5.6337E-06_JPRB,5.4559E-06_JPRB,&
250	✓✓	10	& 5.0826E-06_JPRB,4.4482E-06_JPRB,9.9631E-06_JPRB/)
251			KAO( :, 5,12, 1) = (/&
252			& 2.7214E-06_JPRB,4.7654E-06_JPRB,5.3225E-06_JPRB,5.5318E-06_JPRB,5.5373E-06_JPRB,5.3782E-06_JPRB,&
253	✓✓	10	& 5.0386E-06_JPRB,4.4476E-06_JPRB,1.0178E-05_JPRB/)
254			KAO( :, 1,13, 1) = (/&
255			& 2.2801E-06_JPRB,4.1555E-06_JPRB,4.7093E-06_JPRB,4.9224E-06_JPRB,4.9034E-06_JPRB,4.6982E-06_JPRB,&
256	✓✓	10	& 4.3297E-06_JPRB,3.9733E-06_JPRB,8.4129E-06_JPRB/)
257			KAO( :, 2,13, 1) = (/&
258			& 2.2770E-06_JPRB,4.1173E-06_JPRB,4.6509E-06_JPRB,4.8443E-06_JPRB,4.8245E-06_JPRB,4.6351E-06_JPRB,&
259	✓✓	10	& 4.2708E-06_JPRB,3.7196E-06_JPRB,8.2708E-06_JPRB/)
260			KAO( :, 3,13, 1) = (/&
261			& 2.2712E-06_JPRB,4.0679E-06_JPRB,4.5774E-06_JPRB,4.7613E-06_JPRB,4.7480E-06_JPRB,4.5771E-06_JPRB,&
262	✓✓	10	& 4.2377E-06_JPRB,3.6828E-06_JPRB,8.2482E-06_JPRB/)
263			KAO( :, 4,13, 1) = (/&
264			& 2.2616E-06_JPRB,4.0128E-06_JPRB,4.4962E-06_JPRB,4.6740E-06_JPRB,4.6674E-06_JPRB,4.5144E-06_JPRB,&
265	✓✓	10	& 4.2021E-06_JPRB,3.6746E-06_JPRB,8.3289E-06_JPRB/)
266			KAO( :, 5,13, 1) = (/&
267			& 2.2466E-06_JPRB,3.9523E-06_JPRB,4.4147E-06_JPRB,4.5851E-06_JPRB,4.5844E-06_JPRB,4.4468E-06_JPRB,&
268	✓✓	10	& 4.1612E-06_JPRB,3.6696E-06_JPRB,8.4982E-06_JPRB/)
269			KAO( :, 1, 1, 2) = (/&
270			& 4.5009E-05_JPRB,5.8537E-05_JPRB,6.2677E-05_JPRB,6.4420E-05_JPRB,6.4899E-05_JPRB,6.4046E-05_JPRB,&
271	✓✓	10	& 6.1758E-05_JPRB,5.7308E-05_JPRB,4.4974E-05_JPRB/)
272			KAO( :, 2, 1, 2) = (/&
273			& 4.4639E-05_JPRB,5.7851E-05_JPRB,6.2018E-05_JPRB,6.3985E-05_JPRB,6.4709E-05_JPRB,6.3972E-05_JPRB,&
274	✓✓	10	& 6.1776E-05_JPRB,5.7584E-05_JPRB,4.6032E-05_JPRB/)
275			KAO( :, 3, 1, 2) = (/&
276			& 4.4183E-05_JPRB,5.7134E-05_JPRB,6.1429E-05_JPRB,6.3594E-05_JPRB,6.4467E-05_JPRB,6.3906E-05_JPRB,&
277	✓✓	10	& 6.1866E-05_JPRB,5.7909E-05_JPRB,4.7065E-05_JPRB/)
278			KAO( :, 4, 1, 2) = (/&
279			& 4.3603E-05_JPRB,5.6311E-05_JPRB,6.0747E-05_JPRB,6.3098E-05_JPRB,6.4110E-05_JPRB,6.3723E-05_JPRB,&
280	✓✓	10	& 6.1859E-05_JPRB,5.8107E-05_JPRB,4.8038E-05_JPRB/)
281			KAO( :, 5, 1, 2) = (/&
282			& 4.3016E-05_JPRB,5.5575E-05_JPRB,6.0089E-05_JPRB,6.2604E-05_JPRB,6.3758E-05_JPRB,6.3526E-05_JPRB,&
283	✓✓	10	& 6.1825E-05_JPRB,5.8256E-05_JPRB,4.8937E-05_JPRB/)
284			KAO( :, 1, 2, 2) = (/&
285			& 3.8991E-05_JPRB,5.1237E-05_JPRB,5.5073E-05_JPRB,5.6912E-05_JPRB,5.7291E-05_JPRB,5.6357E-05_JPRB,&
286	✓✓	10	& 5.4136E-05_JPRB,4.9871E-05_JPRB,3.8345E-05_JPRB/)
287			KAO( :, 2, 2, 2) = (/&
288			& 3.8628E-05_JPRB,5.0611E-05_JPRB,5.4618E-05_JPRB,5.6670E-05_JPRB,5.7177E-05_JPRB,5.6367E-05_JPRB,&
289	✓✓	10	& 5.4237E-05_JPRB,5.0203E-05_JPRB,3.9241E-05_JPRB/)
290			KAO( :, 3, 2, 2) = (/&
291			& 3.8218E-05_JPRB,5.0047E-05_JPRB,5.4219E-05_JPRB,5.6458E-05_JPRB,5.7088E-05_JPRB,5.6414E-05_JPRB,&
292	✓✓	10	& 5.4375E-05_JPRB,5.0554E-05_JPRB,4.0182E-05_JPRB/)
293			KAO( :, 4, 2, 2) = (/&
294			& 3.7696E-05_JPRB,4.9413E-05_JPRB,5.3740E-05_JPRB,5.6131E-05_JPRB,5.6939E-05_JPRB,5.6393E-05_JPRB,&
295	✓✓	10	& 5.4506E-05_JPRB,5.0827E-05_JPRB,4.1063E-05_JPRB/)
296			KAO( :, 5, 2, 2) = (/&
297			& 3.7087E-05_JPRB,4.8772E-05_JPRB,5.3212E-05_JPRB,5.5737E-05_JPRB,5.6714E-05_JPRB,5.6323E-05_JPRB,&
298	✓✓	10	& 5.4580E-05_JPRB,5.1064E-05_JPRB,4.1833E-05_JPRB/)
299			KAO( :, 1, 3, 2) = (/&
300			& 3.3664E-05_JPRB,4.4718E-05_JPRB,4.8316E-05_JPRB,5.0054E-05_JPRB,5.0316E-05_JPRB,4.9337E-05_JPRB,&
301	✓✓	10	& 4.7131E-05_JPRB,4.3067E-05_JPRB,3.3821E-05_JPRB/)
302			KAO( :, 2, 3, 2) = (/&
303			& 3.3332E-05_JPRB,4.4193E-05_JPRB,4.7982E-05_JPRB,4.9921E-05_JPRB,5.0286E-05_JPRB,4.9400E-05_JPRB,&
304	✓✓	10	& 4.7278E-05_JPRB,4.3395E-05_JPRB,3.4508E-05_JPRB/)
305			KAO( :, 3, 3, 2) = (/&
306			& 3.2912E-05_JPRB,4.3709E-05_JPRB,4.7689E-05_JPRB,4.9796E-05_JPRB,5.0261E-05_JPRB,4.9490E-05_JPRB,&
307	✓✓	10	& 4.7455E-05_JPRB,4.3769E-05_JPRB,3.5275E-05_JPRB/)
308			KAO( :, 4, 3, 2) = (/&
309			& 3.2477E-05_JPRB,4.3262E-05_JPRB,4.7404E-05_JPRB,4.9658E-05_JPRB,5.0286E-05_JPRB,4.9612E-05_JPRB,&
310	✓✓	10	& 4.7676E-05_JPRB,4.4119E-05_JPRB,3.6032E-05_JPRB/)
311			KAO( :, 5, 3, 2) = (/&
312			& 3.1897E-05_JPRB,4.2732E-05_JPRB,4.7020E-05_JPRB,4.9397E-05_JPRB,5.0209E-05_JPRB,4.9662E-05_JPRB,&
313	✓✓	10	& 4.7863E-05_JPRB,4.4408E-05_JPRB,3.6739E-05_JPRB/)
314			KAO( :, 1, 4, 2) = (/&
315			& 2.9034E-05_JPRB,3.9020E-05_JPRB,4.2255E-05_JPRB,4.3779E-05_JPRB,4.3941E-05_JPRB,4.2940E-05_JPRB,&
316	✓✓	10	& 4.0749E-05_JPRB,3.6991E-05_JPRB,3.2231E-05_JPRB/)
317			KAO( :, 2, 4, 2) = (/&
318			& 2.8733E-05_JPRB,3.8566E-05_JPRB,4.1993E-05_JPRB,4.3688E-05_JPRB,4.3978E-05_JPRB,4.3065E-05_JPRB,&
319	✓✓	10	& 4.0955E-05_JPRB,3.7298E-05_JPRB,3.2530E-05_JPRB/)
320			KAO( :, 3, 4, 2) = (/&
321			& 2.8365E-05_JPRB,3.8166E-05_JPRB,4.1800E-05_JPRB,4.3640E-05_JPRB,4.4034E-05_JPRB,4.3186E-05_JPRB,&
322	✓✓	10	& 4.1171E-05_JPRB,3.7663E-05_JPRB,3.3003E-05_JPRB/)
323			KAO( :, 4, 4, 2) = (/&
324			& 2.7906E-05_JPRB,3.7772E-05_JPRB,4.1598E-05_JPRB,4.3582E-05_JPRB,4.4101E-05_JPRB,4.3335E-05_JPRB,&
325	✓✓	10	& 4.1429E-05_JPRB,3.8018E-05_JPRB,3.3543E-05_JPRB/)
326			KAO( :, 5, 4, 2) = (/&
327			& 2.7464E-05_JPRB,3.7412E-05_JPRB,4.1395E-05_JPRB,4.3505E-05_JPRB,4.4180E-05_JPRB,4.3547E-05_JPRB,&
328	✓✓	10	& 4.1708E-05_JPRB,3.8366E-05_JPRB,3.4090E-05_JPRB/)
329			KAO( :, 1, 5, 2) = (/&
330			& 2.5046E-05_JPRB,3.4030E-05_JPRB,3.6841E-05_JPRB,3.8123E-05_JPRB,3.8161E-05_JPRB,3.7165E-05_JPRB,&
331	✓✓	10	& 3.5069E-05_JPRB,3.1597E-05_JPRB,3.1884E-05_JPRB/)
332			KAO( :, 2, 5, 2) = (/&
333			& 2.4766E-05_JPRB,3.3630E-05_JPRB,3.6644E-05_JPRB,3.8042E-05_JPRB,3.8206E-05_JPRB,3.7320E-05_JPRB,&
334	✓✓	10	& 3.5335E-05_JPRB,3.1911E-05_JPRB,3.2055E-05_JPRB/)
335			KAO( :, 3, 5, 2) = (/&
336			& 2.4433E-05_JPRB,3.3294E-05_JPRB,3.6479E-05_JPRB,3.8027E-05_JPRB,3.8311E-05_JPRB,3.7468E-05_JPRB,&
337	✓✓	10	& 3.5564E-05_JPRB,3.2236E-05_JPRB,3.2305E-05_JPRB/)
338			KAO( :, 4, 5, 2) = (/&
339			& 2.4018E-05_JPRB,3.2959E-05_JPRB,3.6349E-05_JPRB,3.8027E-05_JPRB,3.8418E-05_JPRB,3.7650E-05_JPRB,&
340	✓✓	10	& 3.5828E-05_JPRB,3.2583E-05_JPRB,3.2642E-05_JPRB/)
341			KAO( :, 5, 5, 2) = (/&
342			& 2.3591E-05_JPRB,3.2668E-05_JPRB,3.6232E-05_JPRB,3.8051E-05_JPRB,3.8551E-05_JPRB,3.7905E-05_JPRB,&
343	✓✓	10	& 3.6128E-05_JPRB,3.2939E-05_JPRB,3.3008E-05_JPRB/)
344
345	✓✗	1	IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART1',1,ZHOOK_HANDLE)
346		1	END SUBROUTINE PART1
347
348
349		1	SUBROUTINE PART2
350
351			REAL(KIND=JPRB) :: ZHOOK_HANDLE
352	✓✗	1	IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART2',0,ZHOOK_HANDLE)
353
354
355			KAO( :, 1, 6, 2) = (/&
356			& 2.1579E-05_JPRB,2.9591E-05_JPRB,3.1991E-05_JPRB,3.3013E-05_JPRB,3.2936E-05_JPRB,3.1944E-05_JPRB,&
357	✓✓	10	& 3.0025E-05_JPRB,2.6876E-05_JPRB,2.9999E-05_JPRB/)
358			KAO( :, 2, 6, 2) = (/&
359			& 2.1317E-05_JPRB,2.9255E-05_JPRB,3.1830E-05_JPRB,3.2965E-05_JPRB,3.2983E-05_JPRB,3.2102E-05_JPRB,&
360	✓✓	10	& 3.0272E-05_JPRB,2.7170E-05_JPRB,3.0568E-05_JPRB/)
361			KAO( :, 3, 6, 2) = (/&
362			& 2.1011E-05_JPRB,2.8952E-05_JPRB,3.1684E-05_JPRB,3.2945E-05_JPRB,3.3093E-05_JPRB,3.2263E-05_JPRB,&
363	✓✓	10	& 3.0533E-05_JPRB,2.7474E-05_JPRB,3.1151E-05_JPRB/)
364			KAO( :, 4, 6, 2) = (/&
365			& 2.0627E-05_JPRB,2.8670E-05_JPRB,3.1569E-05_JPRB,3.2960E-05_JPRB,3.3217E-05_JPRB,3.2461E-05_JPRB,&
366	✓✓	10	& 3.0780E-05_JPRB,2.7789E-05_JPRB,3.1790E-05_JPRB/)
367			KAO( :, 5, 6, 2) = (/&
368			& 2.0182E-05_JPRB,2.8368E-05_JPRB,3.1449E-05_JPRB,3.2969E-05_JPRB,3.3342E-05_JPRB,3.2673E-05_JPRB,&
369	✓✓	10	& 3.1052E-05_JPRB,2.8119E-05_JPRB,3.2386E-05_JPRB/)
370			KAO( :, 1, 7, 2) = (/&
371			& 1.8452E-05_JPRB,2.5532E-05_JPRB,2.7551E-05_JPRB,2.8351E-05_JPRB,2.8204E-05_JPRB,2.7262E-05_JPRB,&
372	✓✓	10	& 2.5546E-05_JPRB,2.2740E-05_JPRB,2.8091E-05_JPRB/)
373			KAO( :, 2, 7, 2) = (/&
374			& 1.8215E-05_JPRB,2.5256E-05_JPRB,2.7416E-05_JPRB,2.8318E-05_JPRB,2.8249E-05_JPRB,2.7395E-05_JPRB,&
375	✓✓	10	& 2.5765E-05_JPRB,2.3002E-05_JPRB,2.8720E-05_JPRB/)
376			KAO( :, 3, 7, 2) = (/&
377			& 1.7931E-05_JPRB,2.4972E-05_JPRB,2.7294E-05_JPRB,2.8314E-05_JPRB,2.8348E-05_JPRB,2.7572E-05_JPRB,&
378	✓✓	10	& 2.6008E-05_JPRB,2.3291E-05_JPRB,2.9431E-05_JPRB/)
379			KAO( :, 4, 7, 2) = (/&
380			& 1.7583E-05_JPRB,2.4714E-05_JPRB,2.7183E-05_JPRB,2.8322E-05_JPRB,2.8484E-05_JPRB,2.7765E-05_JPRB,&
381	✓✓	10	& 2.6265E-05_JPRB,2.3586E-05_JPRB,3.0235E-05_JPRB/)
382			KAO( :, 5, 7, 2) = (/&
383			& 1.7179E-05_JPRB,2.4453E-05_JPRB,2.7076E-05_JPRB,2.8339E-05_JPRB,2.8609E-05_JPRB,2.7972E-05_JPRB,&
384	✓✓	10	& 2.6510E-05_JPRB,2.3882E-05_JPRB,3.1083E-05_JPRB/)
385			KAO( :, 1, 8, 2) = (/&
386			& 1.5794E-05_JPRB,2.2020E-05_JPRB,2.3670E-05_JPRB,2.4259E-05_JPRB,2.4056E-05_JPRB,2.3178E-05_JPRB,&
387	✓✓	10	& 2.1635E-05_JPRB,1.9134E-05_JPRB,2.7582E-05_JPRB/)
388			KAO( :, 2, 8, 2) = (/&
389			& 1.5579E-05_JPRB,2.1775E-05_JPRB,2.3546E-05_JPRB,2.4231E-05_JPRB,2.4092E-05_JPRB,2.3297E-05_JPRB,&
390	✓✓	10	& 2.1816E-05_JPRB,1.9397E-05_JPRB,2.8313E-05_JPRB/)
391			KAO( :, 3, 8, 2) = (/&
392			& 1.5328E-05_JPRB,2.1517E-05_JPRB,2.3429E-05_JPRB,2.4220E-05_JPRB,2.4175E-05_JPRB,2.3443E-05_JPRB,&
393	✓✓	10	& 2.2039E-05_JPRB,1.9642E-05_JPRB,2.9205E-05_JPRB/)
394			KAO( :, 4, 8, 2) = (/&
395			& 1.5023E-05_JPRB,2.1268E-05_JPRB,2.3319E-05_JPRB,2.4225E-05_JPRB,2.4291E-05_JPRB,2.3637E-05_JPRB,&
396	✓✓	10	& 2.2285E-05_JPRB,1.9922E-05_JPRB,3.0174E-05_JPRB/)
397			KAO( :, 5, 8, 2) = (/&
398			& 1.4668E-05_JPRB,2.1020E-05_JPRB,2.3208E-05_JPRB,2.4227E-05_JPRB,2.4407E-05_JPRB,2.3824E-05_JPRB,&
399	✓✓	10	& 2.2528E-05_JPRB,2.0191E-05_JPRB,3.1226E-05_JPRB/)
400			KAO( :, 1, 9, 2) = (/&
401			& 1.3453E-05_JPRB,1.8874E-05_JPRB,2.0200E-05_JPRB,2.0614E-05_JPRB,2.0394E-05_JPRB,1.9585E-05_JPRB,&
402	✓✓	10	& 1.8218E-05_JPRB,1.5952E-05_JPRB,3.1081E-05_JPRB/)
403			KAO( :, 2, 9, 2) = (/&
404			& 1.3262E-05_JPRB,1.8651E-05_JPRB,2.0085E-05_JPRB,2.0598E-05_JPRB,2.0424E-05_JPRB,1.9696E-05_JPRB,&
405	✓✓	10	& 1.8380E-05_JPRB,1.6281E-05_JPRB,3.2467E-05_JPRB/)
406			KAO( :, 3, 9, 2) = (/&
407			& 1.3038E-05_JPRB,1.8418E-05_JPRB,1.9972E-05_JPRB,2.0581E-05_JPRB,2.0487E-05_JPRB,1.9824E-05_JPRB,&
408	✓✓	10	& 1.8572E-05_JPRB,1.6491E-05_JPRB,3.3986E-05_JPRB/)
409			KAO( :, 4, 9, 2) = (/&
410			& 1.2776E-05_JPRB,1.8181E-05_JPRB,1.9859E-05_JPRB,2.0572E-05_JPRB,2.0585E-05_JPRB,1.9985E-05_JPRB,&
411	✓✓	10	& 1.8794E-05_JPRB,1.6733E-05_JPRB,3.5607E-05_JPRB/)
412			KAO( :, 5, 9, 2) = (/&
413			& 1.2471E-05_JPRB,1.7952E-05_JPRB,1.9753E-05_JPRB,2.0569E-05_JPRB,2.0679E-05_JPRB,2.0158E-05_JPRB,&
414	✓✓	10	& 1.9021E-05_JPRB,1.6980E-05_JPRB,3.7340E-05_JPRB/)
415			KAO( :, 1,10, 2) = (/&
416			& 1.1374E-05_JPRB,1.6047E-05_JPRB,1.7111E-05_JPRB,1.7393E-05_JPRB,1.7165E-05_JPRB,1.6451E-05_JPRB,&
417	✓✓	10	& 1.5255E-05_JPRB,1.3140E-05_JPRB,3.4787E-05_JPRB/)
418			KAO( :, 2,10, 2) = (/&
419			& 1.1208E-05_JPRB,1.5847E-05_JPRB,1.6997E-05_JPRB,1.7386E-05_JPRB,1.7209E-05_JPRB,1.6555E-05_JPRB,&
420	✓✓	10	& 1.5407E-05_JPRB,1.3598E-05_JPRB,3.7476E-05_JPRB/)
421			KAO( :, 3,10, 2) = (/&
422			& 1.1010E-05_JPRB,1.5634E-05_JPRB,1.6890E-05_JPRB,1.7366E-05_JPRB,1.7258E-05_JPRB,1.6670E-05_JPRB,&
423	✓✓	10	& 1.5570E-05_JPRB,1.3793E-05_JPRB,4.0426E-05_JPRB/)
424			KAO( :, 4,10, 2) = (/&
425			& 1.0782E-05_JPRB,1.5423E-05_JPRB,1.6783E-05_JPRB,1.7341E-05_JPRB,1.7331E-05_JPRB,1.6806E-05_JPRB,&
426	✓✓	10	& 1.5764E-05_JPRB,1.4000E-05_JPRB,4.3679E-05_JPRB/)
427			KAO( :, 5,10, 2) = (/&
428			& 1.0524E-05_JPRB,1.5209E-05_JPRB,1.6680E-05_JPRB,1.7333E-05_JPRB,1.7403E-05_JPRB,1.6952E-05_JPRB,&
429	✓✓	10	& 1.5975E-05_JPRB,1.4224E-05_JPRB,4.7059E-05_JPRB/)
430			KAO( :, 1,11, 2) = (/&
431			& 9.5209E-06_JPRB,1.3499E-05_JPRB,1.4375E-05_JPRB,1.4600E-05_JPRB,1.4393E-05_JPRB,1.3793E-05_JPRB,&
432	✓✓	10	& 1.2781E-05_JPRB,1.1038E-05_JPRB,3.2865E-05_JPRB/)
433			KAO( :, 2,11, 2) = (/&
434			& 9.3637E-06_JPRB,1.3313E-05_JPRB,1.4267E-05_JPRB,1.4592E-05_JPRB,1.4440E-05_JPRB,1.3889E-05_JPRB,&
435	✓✓	10	& 1.2920E-05_JPRB,1.1404E-05_JPRB,3.5445E-05_JPRB/)
436			KAO( :, 3,11, 2) = (/&
437			& 9.1833E-06_JPRB,1.3123E-05_JPRB,1.4166E-05_JPRB,1.4568E-05_JPRB,1.4482E-05_JPRB,1.3996E-05_JPRB,&
438	✓✓	10	& 1.3070E-05_JPRB,1.1568E-05_JPRB,3.8218E-05_JPRB/)
439			KAO( :, 4,11, 2) = (/&
440			& 8.9761E-06_JPRB,1.2932E-05_JPRB,1.4072E-05_JPRB,1.4544E-05_JPRB,1.4541E-05_JPRB,1.4107E-05_JPRB,&
441	✓✓	10	& 1.3243E-05_JPRB,1.1758E-05_JPRB,4.1117E-05_JPRB/)
442			KAO( :, 5,11, 2) = (/&
443			& 8.7519E-06_JPRB,1.2738E-05_JPRB,1.3974E-05_JPRB,1.4523E-05_JPRB,1.4594E-05_JPRB,1.4232E-05_JPRB,&
444	✓✓	10	& 1.3426E-05_JPRB,1.1955E-05_JPRB,4.4210E-05_JPRB/)
445			KAO( :, 1,12, 2) = (/&
446			& 7.9463E-06_JPRB,1.1314E-05_JPRB,1.2032E-05_JPRB,1.2211E-05_JPRB,1.2025E-05_JPRB,1.1526E-05_JPRB,&
447	✓✓	10	& 1.0676E-05_JPRB,9.2413E-06_JPRB,2.9106E-05_JPRB/)
448			KAO( :, 2,12, 2) = (/&
449			& 7.8042E-06_JPRB,1.1141E-05_JPRB,1.1931E-05_JPRB,1.2198E-05_JPRB,1.2069E-05_JPRB,1.1610E-05_JPRB,&
450	✓✓	10	& 1.0799E-05_JPRB,9.5264E-06_JPRB,3.1349E-05_JPRB/)
451			KAO( :, 3,12, 2) = (/&
452			& 7.6428E-06_JPRB,1.0975E-05_JPRB,1.1841E-05_JPRB,1.2172E-05_JPRB,1.2102E-05_JPRB,1.1694E-05_JPRB,&
453	✓✓	10	& 1.0928E-05_JPRB,9.6721E-06_JPRB,3.3866E-05_JPRB/)
454			KAO( :, 4,12, 2) = (/&
455			& 7.4623E-06_JPRB,1.0806E-05_JPRB,1.1756E-05_JPRB,1.2145E-05_JPRB,1.2145E-05_JPRB,1.1788E-05_JPRB,&
456	✓✓	10	& 1.1076E-05_JPRB,9.8394E-06_JPRB,3.6457E-05_JPRB/)
457			KAO( :, 5,12, 2) = (/&
458			& 7.2711E-06_JPRB,1.0633E-05_JPRB,1.1656E-05_JPRB,1.2115E-05_JPRB,1.2181E-05_JPRB,1.1891E-05_JPRB,&
459	✓✓	10	& 1.1228E-05_JPRB,1.0010E-05_JPRB,3.9156E-05_JPRB/)
460			KAO( :, 1,13, 2) = (/&
461			& 6.6184E-06_JPRB,9.4565E-06_JPRB,1.0043E-05_JPRB,1.0182E-05_JPRB,1.0021E-05_JPRB,9.6035E-06_JPRB,&
462	✓✓	10	& 8.8893E-06_JPRB,7.7053E-06_JPRB,2.4435E-05_JPRB/)
463			KAO( :, 2,13, 2) = (/&
464			& 6.4936E-06_JPRB,9.3020E-06_JPRB,9.9506E-06_JPRB,1.0164E-05_JPRB,1.0053E-05_JPRB,9.6688E-06_JPRB,&
465	✓✓	10	& 8.9931E-06_JPRB,7.9311E-06_JPRB,2.6318E-05_JPRB/)
466			KAO( :, 3,13, 2) = (/&
467			& 6.3517E-06_JPRB,9.1558E-06_JPRB,9.8692E-06_JPRB,1.0135E-05_JPRB,1.0076E-05_JPRB,9.7347E-06_JPRB,&
468	✓✓	10	& 9.1027E-06_JPRB,8.0612E-06_JPRB,2.8419E-05_JPRB/)
469			KAO( :, 4,13, 2) = (/&
470			& 6.1987E-06_JPRB,9.0085E-06_JPRB,9.7873E-06_JPRB,1.0106E-05_JPRB,1.0104E-05_JPRB,9.8108E-06_JPRB,&
471	✓✓	10	& 9.2254E-06_JPRB,8.2025E-06_JPRB,3.0596E-05_JPRB/)
472			KAO( :, 5,13, 2) = (/&
473			& 6.0390E-06_JPRB,8.8585E-06_JPRB,9.6966E-06_JPRB,1.0071E-05_JPRB,1.0127E-05_JPRB,9.8907E-06_JPRB,&
474	✓✓	10	& 9.3441E-06_JPRB,8.3431E-06_JPRB,3.2866E-05_JPRB/)
475			KAO( :, 1, 1, 3) = (/&
476			& 7.0753E-05_JPRB,8.7371E-05_JPRB,9.5172E-05_JPRB,9.9390E-05_JPRB,1.0056E-04_JPRB,9.9494E-05_JPRB,&
477	✓✓	10	& 9.5837E-05_JPRB,8.9326E-05_JPRB,7.4323E-05_JPRB/)
478			KAO( :, 2, 1, 3) = (/&
479			& 6.9795E-05_JPRB,8.7509E-05_JPRB,9.5691E-05_JPRB,9.9950E-05_JPRB,1.0125E-04_JPRB,1.0041E-04_JPRB,&
480	✓✓	10	& 9.7011E-05_JPRB,9.0609E-05_JPRB,7.5641E-05_JPRB/)
481			KAO( :, 3, 1, 3) = (/&
482			& 6.9131E-05_JPRB,8.7916E-05_JPRB,9.6468E-05_JPRB,1.0076E-04_JPRB,1.0214E-04_JPRB,1.0141E-04_JPRB,&
483	✓✓	10	& 9.8247E-05_JPRB,9.2085E-05_JPRB,7.7357E-05_JPRB/)
484			KAO( :, 4, 1, 3) = (/&
485			& 6.8482E-05_JPRB,8.8338E-05_JPRB,9.7157E-05_JPRB,1.0153E-04_JPRB,1.0307E-04_JPRB,1.0249E-04_JPRB,&
486	✓✓	10	& 9.9530E-05_JPRB,9.3696E-05_JPRB,7.9379E-05_JPRB/)
487			KAO( :, 5, 1, 3) = (/&
488			& 6.7880E-05_JPRB,8.8892E-05_JPRB,9.7857E-05_JPRB,1.0242E-04_JPRB,1.0411E-04_JPRB,1.0366E-04_JPRB,&
489	✓✓	10	& 1.0077E-04_JPRB,9.5333E-05_JPRB,8.1423E-05_JPRB/)
490			KAO( :, 1, 2, 3) = (/&
491			& 6.2276E-05_JPRB,7.8469E-05_JPRB,8.5472E-05_JPRB,8.8868E-05_JPRB,8.9888E-05_JPRB,8.8903E-05_JPRB,&
492	✓✓	10	& 8.5409E-05_JPRB,7.9146E-05_JPRB,6.4309E-05_JPRB/)
493			KAO( :, 2, 2, 3) = (/&
494			& 6.1522E-05_JPRB,7.8775E-05_JPRB,8.6027E-05_JPRB,8.9487E-05_JPRB,9.0686E-05_JPRB,8.9927E-05_JPRB,&
495	✓✓	10	& 8.6540E-05_JPRB,8.0293E-05_JPRB,6.5447E-05_JPRB/)
496			KAO( :, 3, 2, 3) = (/&
497			& 6.1045E-05_JPRB,7.9281E-05_JPRB,8.6793E-05_JPRB,9.0368E-05_JPRB,9.1669E-05_JPRB,9.0966E-05_JPRB,&
498	✓✓	10	& 8.7713E-05_JPRB,8.1579E-05_JPRB,6.6858E-05_JPRB/)
499			KAO( :, 4, 2, 3) = (/&
500			& 6.0651E-05_JPRB,7.9924E-05_JPRB,8.7586E-05_JPRB,9.1281E-05_JPRB,9.2660E-05_JPRB,9.2033E-05_JPRB,&
501	✓✓	10	& 8.8973E-05_JPRB,8.3100E-05_JPRB,6.8552E-05_JPRB/)
502			KAO( :, 5, 2, 3) = (/&
503			& 6.0196E-05_JPRB,8.0517E-05_JPRB,8.8362E-05_JPRB,9.2181E-05_JPRB,9.3655E-05_JPRB,9.3124E-05_JPRB,&
504	✓✓	10	& 9.0231E-05_JPRB,8.4620E-05_JPRB,7.0321E-05_JPRB/)
505			KAO( :, 1, 3, 3) = (/&
506			& 5.4594E-05_JPRB,7.0140E-05_JPRB,7.6291E-05_JPRB,7.9103E-05_JPRB,7.9908E-05_JPRB,7.8825E-05_JPRB,&
507	✓✓	10	& 7.5557E-05_JPRB,6.9638E-05_JPRB,5.6129E-05_JPRB/)
508			KAO( :, 2, 3, 3) = (/&
509			& 5.3987E-05_JPRB,7.0481E-05_JPRB,7.6809E-05_JPRB,7.9722E-05_JPRB,8.0799E-05_JPRB,7.9847E-05_JPRB,&
510	✓✓	10	& 7.6636E-05_JPRB,7.0746E-05_JPRB,5.7083E-05_JPRB/)
511			KAO( :, 3, 3, 3) = (/&
512			& 5.3598E-05_JPRB,7.0935E-05_JPRB,7.7478E-05_JPRB,8.0559E-05_JPRB,8.1742E-05_JPRB,8.0926E-05_JPRB,&
513	✓✓	10	& 7.7718E-05_JPRB,7.1792E-05_JPRB,5.8231E-05_JPRB/)
514			KAO( :, 4, 3, 3) = (/&
515			& 5.3419E-05_JPRB,7.1650E-05_JPRB,7.8342E-05_JPRB,8.1570E-05_JPRB,8.2791E-05_JPRB,8.1991E-05_JPRB,&
516	✓✓	10	& 7.8849E-05_JPRB,7.3062E-05_JPRB,5.9633E-05_JPRB/)
517			KAO( :, 5, 3, 3) = (/&
518			& 5.3129E-05_JPRB,7.2273E-05_JPRB,7.9178E-05_JPRB,8.2486E-05_JPRB,8.3759E-05_JPRB,8.3022E-05_JPRB,&
519	✓✓	10	& 8.0014E-05_JPRB,7.4467E-05_JPRB,6.1152E-05_JPRB/)
520			KAO( :, 1, 4, 3) = (/&
521			& 4.7696E-05_JPRB,6.2286E-05_JPRB,6.7749E-05_JPRB,7.0181E-05_JPRB,7.0624E-05_JPRB,6.9456E-05_JPRB,&
522	✓✓	10	& 6.6381E-05_JPRB,6.0701E-05_JPRB,5.1576E-05_JPRB/)
523			KAO( :, 2, 4, 3) = (/&
524			& 4.7208E-05_JPRB,6.2637E-05_JPRB,6.8240E-05_JPRB,7.0849E-05_JPRB,7.1530E-05_JPRB,7.0423E-05_JPRB,&
525	✓✓	10	& 6.7425E-05_JPRB,6.1760E-05_JPRB,5.2349E-05_JPRB/)
526			KAO( :, 3, 4, 3) = (/&
527			& 4.6920E-05_JPRB,6.3058E-05_JPRB,6.8836E-05_JPRB,7.1607E-05_JPRB,7.2463E-05_JPRB,7.1509E-05_JPRB,&
528	✓✓	10	& 6.8509E-05_JPRB,6.2750E-05_JPRB,5.3224E-05_JPRB/)
529			KAO( :, 4, 4, 3) = (/&
530			& 4.6776E-05_JPRB,6.3606E-05_JPRB,6.9601E-05_JPRB,7.2517E-05_JPRB,7.3446E-05_JPRB,7.2570E-05_JPRB,&
531	✓✓	10	& 6.9521E-05_JPRB,6.3786E-05_JPRB,5.4286E-05_JPRB/)
532			KAO( :, 5, 4, 3) = (/&
533			& 4.6682E-05_JPRB,6.4343E-05_JPRB,7.0568E-05_JPRB,7.3573E-05_JPRB,7.4545E-05_JPRB,7.3619E-05_JPRB,&
534	✓✓	10	& 7.0604E-05_JPRB,6.5003E-05_JPRB,5.5521E-05_JPRB/)
535			KAO( :, 1, 5, 3) = (/&
536			& 4.1581E-05_JPRB,5.4899E-05_JPRB,5.9799E-05_JPRB,6.1832E-05_JPRB,6.2136E-05_JPRB,6.0898E-05_JPRB,&
537	✓✓	10	& 5.7964E-05_JPRB,5.2516E-05_JPRB,5.0115E-05_JPRB/)
538			KAO( :, 2, 5, 3) = (/&
539			& 4.1165E-05_JPRB,5.5257E-05_JPRB,6.0251E-05_JPRB,6.2555E-05_JPRB,6.3007E-05_JPRB,6.1795E-05_JPRB,&
540	✓✓	10	& 5.8864E-05_JPRB,5.3500E-05_JPRB,5.0524E-05_JPRB/)
541			KAO( :, 3, 5, 3) = (/&
542			& 4.0905E-05_JPRB,5.5656E-05_JPRB,6.0839E-05_JPRB,6.3322E-05_JPRB,6.3891E-05_JPRB,6.2840E-05_JPRB,&
543	✓✓	10	& 5.9887E-05_JPRB,5.4446E-05_JPRB,5.1001E-05_JPRB/)
544			KAO( :, 4, 5, 3) = (/&
545			& 4.0790E-05_JPRB,5.6129E-05_JPRB,6.1526E-05_JPRB,6.4146E-05_JPRB,6.4873E-05_JPRB,6.3880E-05_JPRB,&
546	✓✓	10	& 6.0934E-05_JPRB,5.5421E-05_JPRB,5.1576E-05_JPRB/)
547			KAO( :, 5, 5, 3) = (/&
548			& 4.0741E-05_JPRB,5.6811E-05_JPRB,6.2419E-05_JPRB,6.5146E-05_JPRB,6.5947E-05_JPRB,6.4915E-05_JPRB,&
549	✓✓	10	& 6.1966E-05_JPRB,5.6459E-05_JPRB,5.2345E-05_JPRB/)
550			KAO( :, 1, 6, 3) = (/&
551			& 3.6128E-05_JPRB,4.8074E-05_JPRB,5.2303E-05_JPRB,5.4088E-05_JPRB,5.4305E-05_JPRB,5.3072E-05_JPRB,&
552	✓✓	10	& 5.0232E-05_JPRB,4.5105E-05_JPRB,5.1680E-05_JPRB/)
553			KAO( :, 2, 6, 3) = (/&
554			& 3.5776E-05_JPRB,4.8378E-05_JPRB,5.2790E-05_JPRB,5.4763E-05_JPRB,5.5146E-05_JPRB,5.3920E-05_JPRB,&
555	✓✓	10	& 5.1041E-05_JPRB,4.6023E-05_JPRB,5.1519E-05_JPRB/)
556			KAO( :, 3, 6, 3) = (/&
557			& 3.5527E-05_JPRB,4.8788E-05_JPRB,5.3350E-05_JPRB,5.5505E-05_JPRB,5.5990E-05_JPRB,5.4859E-05_JPRB,&
558	✓✓	10	& 5.1952E-05_JPRB,4.6910E-05_JPRB,5.1451E-05_JPRB/)
559			KAO( :, 4, 6, 3) = (/&
560			& 3.5393E-05_JPRB,4.9227E-05_JPRB,5.4029E-05_JPRB,5.6316E-05_JPRB,5.6902E-05_JPRB,5.5852E-05_JPRB,&
561	✓✓	10	& 5.2950E-05_JPRB,4.7839E-05_JPRB,5.1463E-05_JPRB/)
562			KAO( :, 5, 6, 3) = (/&
563			& 3.5279E-05_JPRB,4.9738E-05_JPRB,5.4773E-05_JPRB,5.7200E-05_JPRB,5.7864E-05_JPRB,5.6831E-05_JPRB,&
564	✓✓	10	& 5.3962E-05_JPRB,4.8775E-05_JPRB,5.1664E-05_JPRB/)
565			KAO( :, 1, 7, 3) = (/&
566			& 3.1175E-05_JPRB,4.1797E-05_JPRB,4.5353E-05_JPRB,4.6878E-05_JPRB,4.7045E-05_JPRB,4.5914E-05_JPRB,&
567	✓✓	10	& 4.3260E-05_JPRB,3.8528E-05_JPRB,5.5034E-05_JPRB/)
568			KAO( :, 2, 7, 3) = (/&
569			& 3.0861E-05_JPRB,4.2063E-05_JPRB,4.5864E-05_JPRB,4.7535E-05_JPRB,4.7827E-05_JPRB,4.6677E-05_JPRB,&
570	✓✓	10	& 4.3974E-05_JPRB,3.9350E-05_JPRB,5.5182E-05_JPRB/)
571			KAO( :, 3, 7, 3) = (/&
572			& 3.0632E-05_JPRB,4.2441E-05_JPRB,4.6427E-05_JPRB,4.8241E-05_JPRB,4.8620E-05_JPRB,4.7526E-05_JPRB,&
573	✓✓	10	& 4.4793E-05_JPRB,4.0140E-05_JPRB,5.5398E-05_JPRB/)
574			KAO( :, 4, 7, 3) = (/&
575			& 3.0475E-05_JPRB,4.2876E-05_JPRB,4.7039E-05_JPRB,4.9018E-05_JPRB,4.9446E-05_JPRB,4.8432E-05_JPRB,&
576	✓✓	10	& 4.5701E-05_JPRB,4.0986E-05_JPRB,5.5585E-05_JPRB/)
577			KAO( :, 5, 7, 3) = (/&
578			& 3.0340E-05_JPRB,4.3333E-05_JPRB,4.7753E-05_JPRB,4.9874E-05_JPRB,5.0366E-05_JPRB,4.9368E-05_JPRB,&
579	✓✓	10	& 4.6641E-05_JPRB,4.1870E-05_JPRB,5.5728E-05_JPRB/)
580			KAO( :, 1, 8, 3) = (/&
581			& 2.6882E-05_JPRB,3.6181E-05_JPRB,3.9159E-05_JPRB,4.0385E-05_JPRB,4.0472E-05_JPRB,3.9467E-05_JPRB,&
582	✓✓	10	& 3.7068E-05_JPRB,3.2787E-05_JPRB,6.0191E-05_JPRB/)
583			KAO( :, 2, 8, 3) = (/&
584			& 2.6577E-05_JPRB,3.6420E-05_JPRB,3.9630E-05_JPRB,4.1005E-05_JPRB,4.1190E-05_JPRB,4.0154E-05_JPRB,&
585	✓✓	10	& 3.7711E-05_JPRB,3.3501E-05_JPRB,6.0976E-05_JPRB/)
586			KAO( :, 3, 8, 3) = (/&
587			& 2.6344E-05_JPRB,3.6733E-05_JPRB,4.0183E-05_JPRB,4.1714E-05_JPRB,4.1930E-05_JPRB,4.0908E-05_JPRB,&
588	✓✓	10	& 3.8425E-05_JPRB,3.4195E-05_JPRB,6.1747E-05_JPRB/)
589			KAO( :, 4, 8, 3) = (/&
590			& 2.6154E-05_JPRB,3.7129E-05_JPRB,4.0772E-05_JPRB,4.2424E-05_JPRB,4.2698E-05_JPRB,4.1708E-05_JPRB,&
591	✓✓	10	& 3.9208E-05_JPRB,3.4923E-05_JPRB,6.2436E-05_JPRB/)
592			KAO( :, 5, 8, 3) = (/&
593			& 2.5969E-05_JPRB,3.7541E-05_JPRB,4.1396E-05_JPRB,4.3205E-05_JPRB,4.3544E-05_JPRB,4.2561E-05_JPRB,&
594	✓✓	10	& 4.0066E-05_JPRB,3.5716E-05_JPRB,6.2996E-05_JPRB/)
595			KAO( :, 1, 9, 3) = (/&
596			& 2.3030E-05_JPRB,3.1081E-05_JPRB,3.3574E-05_JPRB,3.4578E-05_JPRB,3.4594E-05_JPRB,3.3680E-05_JPRB,&
597	✓✓	10	& 3.1564E-05_JPRB,2.7753E-05_JPRB,8.2972E-05_JPRB/)
598			KAO( :, 2, 9, 3) = (/&
599			& 2.2745E-05_JPRB,3.1301E-05_JPRB,3.4001E-05_JPRB,3.5099E-05_JPRB,3.5210E-05_JPRB,3.4293E-05_JPRB,&
600	✓✓	10	& 3.2147E-05_JPRB,2.8418E-05_JPRB,8.5573E-05_JPRB/)
601			KAO( :, 3, 9, 3) = (/&
602			& 2.2504E-05_JPRB,3.1575E-05_JPRB,3.4507E-05_JPRB,3.5759E-05_JPRB,3.5892E-05_JPRB,3.4957E-05_JPRB,&
603	✓✓	10	& 3.2777E-05_JPRB,2.9021E-05_JPRB,8.7692E-05_JPRB/)
604			KAO( :, 4, 9, 3) = (/&
605			& 2.2288E-05_JPRB,3.1903E-05_JPRB,3.5055E-05_JPRB,3.6460E-05_JPRB,3.6616E-05_JPRB,3.5667E-05_JPRB,&
606	✓✓	10	& 3.3440E-05_JPRB,2.9641E-05_JPRB,8.9596E-05_JPRB/)
607			KAO( :, 5, 9, 3) = (/&
608			& 2.2076E-05_JPRB,3.2254E-05_JPRB,3.5612E-05_JPRB,3.7158E-05_JPRB,3.7379E-05_JPRB,3.6426E-05_JPRB,&
609	✓✓	10	& 3.4185E-05_JPRB,3.0329E-05_JPRB,9.1172E-05_JPRB/)
610			KAO( :, 1,10, 3) = (/&
611			& 1.9573E-05_JPRB,2.6501E-05_JPRB,2.8604E-05_JPRB,2.9434E-05_JPRB,2.9415E-05_JPRB,2.8586E-05_JPRB,&
612	✓✓	10	& 2.6756E-05_JPRB,2.3398E-05_JPRB,1.1831E-04_JPRB/)
613			KAO( :, 2,10, 3) = (/&
614			& 1.9311E-05_JPRB,2.6696E-05_JPRB,2.8987E-05_JPRB,2.9871E-05_JPRB,2.9930E-05_JPRB,2.9131E-05_JPRB,&
615	✓✓	10	& 2.7291E-05_JPRB,2.4061E-05_JPRB,1.2413E-04_JPRB/)
616			KAO( :, 3,10, 3) = (/&
617			& 1.9064E-05_JPRB,2.6931E-05_JPRB,2.9433E-05_JPRB,3.0442E-05_JPRB,3.0524E-05_JPRB,2.9723E-05_JPRB,&
618	✓✓	10	& 2.7830E-05_JPRB,2.4575E-05_JPRB,1.2968E-04_JPRB/)
619			KAO( :, 4,10, 3) = (/&
620			& 1.8838E-05_JPRB,2.7200E-05_JPRB,2.9911E-05_JPRB,3.1092E-05_JPRB,3.1189E-05_JPRB,3.0347E-05_JPRB,&
621	✓✓	10	& 2.8402E-05_JPRB,2.5111E-05_JPRB,1.3500E-04_JPRB/)
622			KAO( :, 5,10, 3) = (/&
623			& 1.8619E-05_JPRB,2.7473E-05_JPRB,3.0391E-05_JPRB,3.1737E-05_JPRB,3.1883E-05_JPRB,3.1020E-05_JPRB,&
624	✓✓	10	& 2.9042E-05_JPRB,2.5702E-05_JPRB,1.4050E-04_JPRB/)
625			KAO( :, 1,11, 3) = (/&
626			& 1.6456E-05_JPRB,2.2515E-05_JPRB,2.4353E-05_JPRB,2.5062E-05_JPRB,2.5054E-05_JPRB,2.4348E-05_JPRB,&
627	✓✓	10	& 2.2780E-05_JPRB,1.9929E-05_JPRB,1.2447E-04_JPRB/)
628			KAO( :, 2,11, 3) = (/&
629			& 1.6210E-05_JPRB,2.2705E-05_JPRB,2.4709E-05_JPRB,2.5473E-05_JPRB,2.5515E-05_JPRB,2.4826E-05_JPRB,&
630	✓✓	10	& 2.3259E-05_JPRB,2.0482E-05_JPRB,1.3150E-04_JPRB/)
631			KAO( :, 3,11, 3) = (/&
632			& 1.5971E-05_JPRB,2.2902E-05_JPRB,2.5095E-05_JPRB,2.5990E-05_JPRB,2.6068E-05_JPRB,2.5361E-05_JPRB,&
633	✓✓	10	& 2.3741E-05_JPRB,2.0933E-05_JPRB,1.3833E-04_JPRB/)
634			KAO( :, 4,11, 3) = (/&
635			& 1.5752E-05_JPRB,2.3106E-05_JPRB,2.5493E-05_JPRB,2.6568E-05_JPRB,2.6674E-05_JPRB,2.5935E-05_JPRB,&
636	✓✓	10	& 2.4259E-05_JPRB,2.1401E-05_JPRB,1.4470E-04_JPRB/)
637			KAO( :, 5,11, 3) = (/&
638			& 1.5528E-05_JPRB,2.3318E-05_JPRB,2.5901E-05_JPRB,2.7141E-05_JPRB,2.7302E-05_JPRB,2.6558E-05_JPRB,&
639	✓✓	10	& 2.4843E-05_JPRB,2.1914E-05_JPRB,1.5074E-04_JPRB/)
640			KAO( :, 1,12, 3) = (/&
641			& 1.3780E-05_JPRB,1.9033E-05_JPRB,2.0619E-05_JPRB,2.1228E-05_JPRB,2.1226E-05_JPRB,2.0621E-05_JPRB,&
642	✓✓	10	& 1.9294E-05_JPRB,1.6882E-05_JPRB,1.1649E-04_JPRB/)
643			KAO( :, 2,12, 3) = (/&
644			& 1.3548E-05_JPRB,1.9199E-05_JPRB,2.0913E-05_JPRB,2.1600E-05_JPRB,2.1645E-05_JPRB,2.1053E-05_JPRB,&
645	✓✓	10	& 1.9719E-05_JPRB,1.7352E-05_JPRB,1.2368E-04_JPRB/)
646
647	✓✗	1	IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART2',1,ZHOOK_HANDLE)
648		1	END SUBROUTINE PART2
649
650
651		1	SUBROUTINE PART3
652
653			REAL(KIND=JPRB) :: ZHOOK_HANDLE
654	✓✗	1	IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART3',0,ZHOOK_HANDLE)
655
656
657			KAO( :, 3,12, 3) = (/&
658			& 1.3324E-05_JPRB,1.9341E-05_JPRB,2.1240E-05_JPRB,2.2050E-05_JPRB,2.2132E-05_JPRB,2.1536E-05_JPRB,&
659	✓✓	10	& 2.0156E-05_JPRB,1.7750E-05_JPRB,1.3017E-04_JPRB/)
660			KAO( :, 4,12, 3) = (/&
661			& 1.3111E-05_JPRB,1.9487E-05_JPRB,2.1558E-05_JPRB,2.2533E-05_JPRB,2.2665E-05_JPRB,2.2056E-05_JPRB,&
662	✓✓	10	& 2.0628E-05_JPRB,1.8158E-05_JPRB,1.3659E-04_JPRB/)
663			KAO( :, 5,12, 3) = (/&
664			& 1.2895E-05_JPRB,1.9642E-05_JPRB,2.1889E-05_JPRB,2.3011E-05_JPRB,2.3210E-05_JPRB,2.2606E-05_JPRB,&
665	✓✓	10	& 2.1150E-05_JPRB,1.8610E-05_JPRB,1.4251E-04_JPRB/)
666			KAO( :, 1,13, 3) = (/&
667			& 1.1500E-05_JPRB,1.6003E-05_JPRB,1.7357E-05_JPRB,1.7889E-05_JPRB,1.7884E-05_JPRB,1.7367E-05_JPRB,&
668	✓✓	10	& 1.6254E-05_JPRB,1.4227E-05_JPRB,9.8757E-05_JPRB/)
669			KAO( :, 2,13, 3) = (/&
670			& 1.1286E-05_JPRB,1.6126E-05_JPRB,1.7594E-05_JPRB,1.8210E-05_JPRB,1.8252E-05_JPRB,1.7751E-05_JPRB,&
671	✓✓	10	& 1.6632E-05_JPRB,1.4641E-05_JPRB,1.0488E-04_JPRB/)
672			KAO( :, 3,13, 3) = (/&
673			& 1.1079E-05_JPRB,1.6225E-05_JPRB,1.7843E-05_JPRB,1.8579E-05_JPRB,1.8672E-05_JPRB,1.8176E-05_JPRB,&
674	✓✓	10	& 1.7024E-05_JPRB,1.4980E-05_JPRB,1.1036E-04_JPRB/)
675			KAO( :, 4,13, 3) = (/&
676			& 1.0876E-05_JPRB,1.6327E-05_JPRB,1.8099E-05_JPRB,1.8965E-05_JPRB,1.9122E-05_JPRB,1.8629E-05_JPRB,&
677	✓✓	10	& 1.7445E-05_JPRB,1.5339E-05_JPRB,1.1580E-04_JPRB/)
678			KAO( :, 5,13, 3) = (/&
679			& 1.0678E-05_JPRB,1.6434E-05_JPRB,1.8360E-05_JPRB,1.9355E-05_JPRB,1.9573E-05_JPRB,1.9100E-05_JPRB,&
680	✓✓	10	& 1.7895E-05_JPRB,1.5734E-05_JPRB,1.2071E-04_JPRB/)
681			KAO( :, 1, 1, 4) = (/&
682			& 1.0452E-04_JPRB,1.3483E-04_JPRB,1.4507E-04_JPRB,1.5035E-04_JPRB,1.5233E-04_JPRB,1.5098E-04_JPRB,&
683	✓✓	10	& 1.4623E-04_JPRB,1.3688E-04_JPRB,1.1596E-04_JPRB/)
684			KAO( :, 2, 1, 4) = (/&
685			& 1.0431E-04_JPRB,1.3598E-04_JPRB,1.4693E-04_JPRB,1.5285E-04_JPRB,1.5505E-04_JPRB,1.5376E-04_JPRB,&
686	✓✓	10	& 1.4899E-04_JPRB,1.4010E-04_JPRB,1.1898E-04_JPRB/)
687			KAO( :, 3, 1, 4) = (/&
688			& 1.0452E-04_JPRB,1.3748E-04_JPRB,1.4911E-04_JPRB,1.5568E-04_JPRB,1.5820E-04_JPRB,1.5701E-04_JPRB,&
689	✓✓	10	& 1.5204E-04_JPRB,1.4309E-04_JPRB,1.2195E-04_JPRB/)
690			KAO( :, 4, 1, 4) = (/&
691			& 1.0446E-04_JPRB,1.3898E-04_JPRB,1.5142E-04_JPRB,1.5876E-04_JPRB,1.6160E-04_JPRB,1.6033E-04_JPRB,&
692	✓✓	10	& 1.5519E-04_JPRB,1.4614E-04_JPRB,1.2504E-04_JPRB/)
693			KAO( :, 5, 1, 4) = (/&
694			& 1.0490E-04_JPRB,1.4072E-04_JPRB,1.5426E-04_JPRB,1.6221E-04_JPRB,1.6521E-04_JPRB,1.6398E-04_JPRB,&
695	✓✓	10	& 1.5900E-04_JPRB,1.4986E-04_JPRB,1.2878E-04_JPRB/)
696			KAO( :, 1, 2, 4) = (/&
697			& 9.4204E-05_JPRB,1.2226E-04_JPRB,1.3172E-04_JPRB,1.3677E-04_JPRB,1.3845E-04_JPRB,1.3676E-04_JPRB,&
698	✓✓	10	& 1.3184E-04_JPRB,1.2295E-04_JPRB,1.0190E-04_JPRB/)
699			KAO( :, 2, 2, 4) = (/&
700			& 9.4074E-05_JPRB,1.2351E-04_JPRB,1.3361E-04_JPRB,1.3908E-04_JPRB,1.4094E-04_JPRB,1.3921E-04_JPRB,&
701	✓✓	10	& 1.3441E-04_JPRB,1.2595E-04_JPRB,1.0466E-04_JPRB/)
702			KAO( :, 3, 2, 4) = (/&
703			& 9.4344E-05_JPRB,1.2509E-04_JPRB,1.3579E-04_JPRB,1.4166E-04_JPRB,1.4376E-04_JPRB,1.4219E-04_JPRB,&
704	✓✓	10	& 1.3731E-04_JPRB,1.2889E-04_JPRB,1.0736E-04_JPRB/)
705			KAO( :, 4, 2, 4) = (/&
706			& 9.4551E-05_JPRB,1.2662E-04_JPRB,1.3810E-04_JPRB,1.4452E-04_JPRB,1.4685E-04_JPRB,1.4532E-04_JPRB,&
707	✓✓	10	& 1.4026E-04_JPRB,1.3156E-04_JPRB,1.1005E-04_JPRB/)
708			KAO( :, 5, 2, 4) = (/&
709			& 9.4911E-05_JPRB,1.2828E-04_JPRB,1.4068E-04_JPRB,1.4753E-04_JPRB,1.5017E-04_JPRB,1.4865E-04_JPRB,&
710	✓✓	10	& 1.4353E-04_JPRB,1.3462E-04_JPRB,1.1332E-04_JPRB/)
711			KAO( :, 1, 3, 4) = (/&
712			& 8.4477E-05_JPRB,1.0977E-04_JPRB,1.1875E-04_JPRB,1.2346E-04_JPRB,1.2481E-04_JPRB,1.2312E-04_JPRB,&
713	✓✓	10	& 1.1833E-04_JPRB,1.0957E-04_JPRB,8.9535E-05_JPRB/)
714			KAO( :, 2, 3, 4) = (/&
715			& 8.4379E-05_JPRB,1.1105E-04_JPRB,1.2059E-04_JPRB,1.2560E-04_JPRB,1.2700E-04_JPRB,1.2527E-04_JPRB,&
716	✓✓	10	& 1.2063E-04_JPRB,1.1208E-04_JPRB,9.1925E-05_JPRB/)
717			KAO( :, 3, 3, 4) = (/&
718			& 8.4459E-05_JPRB,1.1263E-04_JPRB,1.2255E-04_JPRB,1.2789E-04_JPRB,1.2949E-04_JPRB,1.2788E-04_JPRB,&
719	✓✓	10	& 1.2327E-04_JPRB,1.1489E-04_JPRB,9.4307E-05_JPRB/)
720			KAO( :, 4, 3, 4) = (/&
721			& 8.4957E-05_JPRB,1.1436E-04_JPRB,1.2477E-04_JPRB,1.3051E-04_JPRB,1.3225E-04_JPRB,1.3075E-04_JPRB,&
722	✓✓	10	& 1.2605E-04_JPRB,1.1763E-04_JPRB,9.6664E-05_JPRB/)
723			KAO( :, 5, 3, 4) = (/&
724			& 8.5267E-05_JPRB,1.1603E-04_JPRB,1.2711E-04_JPRB,1.3323E-04_JPRB,1.3522E-04_JPRB,1.3376E-04_JPRB,&
725	✓✓	10	& 1.2892E-04_JPRB,1.2027E-04_JPRB,9.9423E-05_JPRB/)
726			KAO( :, 1, 4, 4) = (/&
727			& 7.5106E-05_JPRB,9.8023E-05_JPRB,1.0634E-04_JPRB,1.1074E-04_JPRB,1.1207E-04_JPRB,1.1047E-04_JPRB,&
728	✓✓	10	& 1.0566E-04_JPRB,9.7179E-05_JPRB,8.0970E-05_JPRB/)
729			KAO( :, 2, 4, 4) = (/&
730			& 7.5068E-05_JPRB,9.9316E-05_JPRB,1.0818E-04_JPRB,1.1273E-04_JPRB,1.1400E-04_JPRB,1.1240E-04_JPRB,&
731	✓✓	10	& 1.0763E-04_JPRB,9.9160E-05_JPRB,8.2847E-05_JPRB/)
732			KAO( :, 3, 4, 4) = (/&
733			& 7.5176E-05_JPRB,1.0088E-04_JPRB,1.1012E-04_JPRB,1.1492E-04_JPRB,1.1630E-04_JPRB,1.1469E-04_JPRB,&
734	✓✓	10	& 1.0990E-04_JPRB,1.0156E-04_JPRB,8.4919E-05_JPRB/)
735			KAO( :, 4, 4, 4) = (/&
736			& 7.5441E-05_JPRB,1.0260E-04_JPRB,1.1218E-04_JPRB,1.1722E-04_JPRB,1.1877E-04_JPRB,1.1722E-04_JPRB,&
737	✓✓	10	& 1.1247E-04_JPRB,1.0418E-04_JPRB,8.7047E-05_JPRB/)
738			KAO( :, 5, 4, 4) = (/&
739			& 7.6234E-05_JPRB,1.0451E-04_JPRB,1.1445E-04_JPRB,1.1978E-04_JPRB,1.2144E-04_JPRB,1.1995E-04_JPRB,&
740	✓✓	10	& 1.1523E-04_JPRB,1.0678E-04_JPRB,8.9379E-05_JPRB/)
741			KAO( :, 1, 5, 4) = (/&
742			& 6.6160E-05_JPRB,8.7240E-05_JPRB,9.4827E-05_JPRB,9.8971E-05_JPRB,1.0023E-04_JPRB,9.8598E-05_JPRB,&
743	✓✓	10	& 9.3977E-05_JPRB,8.6015E-05_JPRB,7.7683E-05_JPRB/)
744			KAO( :, 2, 5, 4) = (/&
745			& 6.6183E-05_JPRB,8.8517E-05_JPRB,9.6624E-05_JPRB,1.0080E-04_JPRB,1.0196E-04_JPRB,1.0036E-04_JPRB,&
746	✓✓	10	& 9.5737E-05_JPRB,8.7609E-05_JPRB,7.8892E-05_JPRB/)
747			KAO( :, 3, 5, 4) = (/&
748			& 6.6375E-05_JPRB,9.0052E-05_JPRB,9.8476E-05_JPRB,1.0284E-04_JPRB,1.0408E-04_JPRB,1.0241E-04_JPRB,&
749	✓✓	10	& 9.7689E-05_JPRB,8.9585E-05_JPRB,8.0494E-05_JPRB/)
750			KAO( :, 4, 5, 4) = (/&
751			& 6.6706E-05_JPRB,9.1731E-05_JPRB,1.0049E-04_JPRB,1.0501E-04_JPRB,1.0639E-04_JPRB,1.0469E-04_JPRB,&
752	✓✓	10	& 9.9852E-05_JPRB,9.1849E-05_JPRB,8.2317E-05_JPRB/)
753			KAO( :, 5, 5, 4) = (/&
754			& 6.7530E-05_JPRB,9.3541E-05_JPRB,1.0261E-04_JPRB,1.0728E-04_JPRB,1.0881E-04_JPRB,1.0721E-04_JPRB,&
755	✓✓	10	& 1.0236E-04_JPRB,9.4247E-05_JPRB,8.4311E-05_JPRB/)
756			KAO( :, 1, 6, 4) = (/&
757			& 5.7820E-05_JPRB,7.7124E-05_JPRB,8.4195E-05_JPRB,8.7927E-05_JPRB,8.8972E-05_JPRB,8.7430E-05_JPRB,&
758	✓✓	10	& 8.3132E-05_JPRB,7.5650E-05_JPRB,7.8327E-05_JPRB/)
759			KAO( :, 2, 6, 4) = (/&
760			& 5.7858E-05_JPRB,7.8413E-05_JPRB,8.5775E-05_JPRB,8.9605E-05_JPRB,9.0590E-05_JPRB,8.9122E-05_JPRB,&
761	✓✓	10	& 8.4773E-05_JPRB,7.7051E-05_JPRB,7.8482E-05_JPRB/)
762			KAO( :, 3, 6, 4) = (/&
763			& 5.8124E-05_JPRB,7.9824E-05_JPRB,8.7576E-05_JPRB,9.1549E-05_JPRB,9.2483E-05_JPRB,9.0882E-05_JPRB,&
764	✓✓	10	& 8.6480E-05_JPRB,7.8637E-05_JPRB,7.9105E-05_JPRB/)
765			KAO( :, 4, 6, 4) = (/&
766			& 5.8563E-05_JPRB,8.1362E-05_JPRB,8.9405E-05_JPRB,9.3593E-05_JPRB,9.4634E-05_JPRB,9.2868E-05_JPRB,&
767	✓✓	10	& 8.8337E-05_JPRB,8.0467E-05_JPRB,8.0117E-05_JPRB/)
768			KAO( :, 5, 6, 4) = (/&
769			& 5.9163E-05_JPRB,8.2947E-05_JPRB,9.1328E-05_JPRB,9.5614E-05_JPRB,9.6868E-05_JPRB,9.5118E-05_JPRB,&
770	✓✓	10	& 9.0461E-05_JPRB,8.2517E-05_JPRB,8.1395E-05_JPRB/)
771			KAO( :, 1, 7, 4) = (/&
772			& 5.0089E-05_JPRB,6.7496E-05_JPRB,7.4227E-05_JPRB,7.7520E-05_JPRB,7.8410E-05_JPRB,7.6863E-05_JPRB,&
773	✓✓	10	& 7.2879E-05_JPRB,6.5963E-05_JPRB,8.6270E-05_JPRB/)
774			KAO( :, 2, 7, 4) = (/&
775			& 5.0200E-05_JPRB,6.8721E-05_JPRB,7.5605E-05_JPRB,7.9011E-05_JPRB,7.9876E-05_JPRB,7.8434E-05_JPRB,&
776	✓✓	10	& 7.4469E-05_JPRB,6.7323E-05_JPRB,8.5543E-05_JPRB/)
777			KAO( :, 3, 7, 4) = (/&
778			& 5.0465E-05_JPRB,7.0073E-05_JPRB,7.7198E-05_JPRB,8.0725E-05_JPRB,8.1573E-05_JPRB,8.0081E-05_JPRB,&
779	✓✓	10	& 7.6049E-05_JPRB,6.8699E-05_JPRB,8.4940E-05_JPRB/)
780			KAO( :, 4, 7, 4) = (/&
781			& 5.0935E-05_JPRB,7.1437E-05_JPRB,7.8942E-05_JPRB,8.2653E-05_JPRB,8.3546E-05_JPRB,8.1849E-05_JPRB,&
782	✓✓	10	& 7.7644E-05_JPRB,7.0190E-05_JPRB,8.4597E-05_JPRB/)
783			KAO( :, 5, 7, 4) = (/&
784			& 5.1558E-05_JPRB,7.2909E-05_JPRB,8.0657E-05_JPRB,8.4558E-05_JPRB,8.5533E-05_JPRB,8.3860E-05_JPRB,&
785	✓✓	10	& 7.9445E-05_JPRB,7.1873E-05_JPRB,8.4633E-05_JPRB/)
786			KAO( :, 1, 8, 4) = (/&
787			& 4.3241E-05_JPRB,5.8715E-05_JPRB,6.4907E-05_JPRB,6.7818E-05_JPRB,6.8520E-05_JPRB,6.7059E-05_JPRB,&
788	✓✓	10	& 6.3436E-05_JPRB,5.7025E-05_JPRB,1.0556E-04_JPRB/)
789			KAO( :, 2, 8, 4) = (/&
790			& 4.3396E-05_JPRB,5.9829E-05_JPRB,6.6154E-05_JPRB,6.9172E-05_JPRB,6.9903E-05_JPRB,6.8506E-05_JPRB,&
791	✓✓	10	& 6.4888E-05_JPRB,5.8346E-05_JPRB,1.0621E-04_JPRB/)
792			KAO( :, 3, 8, 4) = (/&
793			& 4.3671E-05_JPRB,6.1116E-05_JPRB,6.7537E-05_JPRB,7.0639E-05_JPRB,7.1418E-05_JPRB,7.0005E-05_JPRB,&
794	✓✓	10	& 6.6322E-05_JPRB,5.9628E-05_JPRB,1.0623E-04_JPRB/)
795			KAO( :, 4, 8, 4) = (/&
796			& 4.4098E-05_JPRB,6.2393E-05_JPRB,6.9085E-05_JPRB,7.2351E-05_JPRB,7.3148E-05_JPRB,7.1679E-05_JPRB,&
797	✓✓	10	& 6.7759E-05_JPRB,6.0926E-05_JPRB,1.0598E-04_JPRB/)
798			KAO( :, 5, 8, 4) = (/&
799			& 4.4692E-05_JPRB,6.3732E-05_JPRB,7.0698E-05_JPRB,7.4137E-05_JPRB,7.4984E-05_JPRB,7.3462E-05_JPRB,&
800	✓✓	10	& 6.9302E-05_JPRB,6.2346E-05_JPRB,1.0567E-04_JPRB/)
801			KAO( :, 1, 9, 4) = (/&
802			& 3.7132E-05_JPRB,5.0817E-05_JPRB,5.6256E-05_JPRB,5.8754E-05_JPRB,5.9255E-05_JPRB,5.8002E-05_JPRB,&
803	✓✓	10	& 5.4741E-05_JPRB,4.8907E-05_JPRB,1.5932E-04_JPRB/)
804			KAO( :, 2, 9, 4) = (/&
805			& 3.7275E-05_JPRB,5.1787E-05_JPRB,5.7392E-05_JPRB,6.0022E-05_JPRB,6.0595E-05_JPRB,5.9356E-05_JPRB,&
806	✓✓	10	& 5.6080E-05_JPRB,5.0176E-05_JPRB,1.6074E-04_JPRB/)
807			KAO( :, 3, 9, 4) = (/&
808			& 3.7562E-05_JPRB,5.2932E-05_JPRB,5.8629E-05_JPRB,6.1314E-05_JPRB,6.1975E-05_JPRB,6.0718E-05_JPRB,&
809	✓✓	10	& 5.7380E-05_JPRB,5.1383E-05_JPRB,1.6208E-04_JPRB/)
810			KAO( :, 4, 9, 4) = (/&
811			& 3.7959E-05_JPRB,5.4161E-05_JPRB,5.9989E-05_JPRB,6.2778E-05_JPRB,6.3464E-05_JPRB,6.2208E-05_JPRB,&
812	✓✓	10	& 5.8730E-05_JPRB,5.2572E-05_JPRB,1.6367E-04_JPRB/)
813			KAO( :, 5, 9, 4) = (/&
814			& 3.8474E-05_JPRB,5.5413E-05_JPRB,6.1478E-05_JPRB,6.4374E-05_JPRB,6.5107E-05_JPRB,6.3821E-05_JPRB,&
815	✓✓	10	& 6.0122E-05_JPRB,5.3780E-05_JPRB,1.6576E-04_JPRB/)
816			KAO( :, 1,10, 4) = (/&
817			& 3.1661E-05_JPRB,4.3721E-05_JPRB,4.8375E-05_JPRB,5.0533E-05_JPRB,5.0884E-05_JPRB,4.9757E-05_JPRB,&
818	✓✓	10	& 4.6933E-05_JPRB,4.1760E-05_JPRB,3.3288E-04_JPRB/)
819			KAO( :, 2,10, 4) = (/&
820			& 3.1799E-05_JPRB,4.4567E-05_JPRB,4.9444E-05_JPRB,5.1711E-05_JPRB,5.2132E-05_JPRB,5.1037E-05_JPRB,&
821	✓✓	10	& 4.8202E-05_JPRB,4.2932E-05_JPRB,3.3259E-04_JPRB/)
822			KAO( :, 3,10, 4) = (/&
823			& 3.2076E-05_JPRB,4.5598E-05_JPRB,5.0572E-05_JPRB,5.2901E-05_JPRB,5.3401E-05_JPRB,5.2274E-05_JPRB,&
824	✓✓	10	& 4.9410E-05_JPRB,4.4046E-05_JPRB,3.3116E-04_JPRB/)
825			KAO( :, 4,10, 4) = (/&
826			& 3.2432E-05_JPRB,4.6745E-05_JPRB,5.1822E-05_JPRB,5.4161E-05_JPRB,5.4721E-05_JPRB,5.3605E-05_JPRB,&
827	✓✓	10	& 5.0657E-05_JPRB,4.5130E-05_JPRB,3.2908E-04_JPRB/)
828			KAO( :, 5,10, 4) = (/&
829			& 3.2849E-05_JPRB,4.7929E-05_JPRB,5.3191E-05_JPRB,5.5555E-05_JPRB,5.6151E-05_JPRB,5.5034E-05_JPRB,&
830	✓✓	10	& 5.1913E-05_JPRB,4.6196E-05_JPRB,3.2646E-04_JPRB/)
831			KAO( :, 1,11, 4) = (/&
832			& 2.6856E-05_JPRB,3.7683E-05_JPRB,4.1693E-05_JPRB,4.3606E-05_JPRB,4.3883E-05_JPRB,4.2891E-05_JPRB,&
833	✓✓	10	& 4.0459E-05_JPRB,3.5912E-05_JPRB,4.0077E-04_JPRB/)
834			KAO( :, 2,11, 4) = (/&
835			& 2.7039E-05_JPRB,3.8497E-05_JPRB,4.2726E-05_JPRB,4.4727E-05_JPRB,4.5037E-05_JPRB,4.4055E-05_JPRB,&
836	✓✓	10	& 4.1621E-05_JPRB,3.6978E-05_JPRB,3.9949E-04_JPRB/)
837			KAO( :, 3,11, 4) = (/&
838			& 2.7307E-05_JPRB,3.9484E-05_JPRB,4.3818E-05_JPRB,4.5808E-05_JPRB,4.6194E-05_JPRB,4.5211E-05_JPRB,&
839	✓✓	10	& 4.2730E-05_JPRB,3.7986E-05_JPRB,3.9696E-04_JPRB/)
840			KAO( :, 4,11, 4) = (/&
841			& 2.7612E-05_JPRB,4.0551E-05_JPRB,4.5021E-05_JPRB,4.6980E-05_JPRB,4.7421E-05_JPRB,4.6420E-05_JPRB,&
842	✓✓	10	& 4.3860E-05_JPRB,3.8943E-05_JPRB,3.9400E-04_JPRB/)
843			KAO( :, 5,11, 4) = (/&
844			& 2.7944E-05_JPRB,4.1639E-05_JPRB,4.6278E-05_JPRB,4.8247E-05_JPRB,4.8726E-05_JPRB,4.7717E-05_JPRB,&
845	✓✓	10	& 4.5010E-05_JPRB,3.9912E-05_JPRB,3.9021E-04_JPRB/)
846			KAO( :, 1,12, 4) = (/&
847			& 2.2674E-05_JPRB,3.2256E-05_JPRB,3.5706E-05_JPRB,3.7375E-05_JPRB,3.7620E-05_JPRB,3.6748E-05_JPRB,&
848	✓✓	10	& 3.4672E-05_JPRB,3.0753E-05_JPRB,3.9801E-04_JPRB/)
849			KAO( :, 2,12, 4) = (/&
850			& 2.2856E-05_JPRB,3.3035E-05_JPRB,3.6681E-05_JPRB,3.8389E-05_JPRB,3.8658E-05_JPRB,3.7799E-05_JPRB,&
851	✓✓	10	& 3.5709E-05_JPRB,3.1711E-05_JPRB,3.9549E-04_JPRB/)
852			KAO( :, 3,12, 4) = (/&
853			& 2.3070E-05_JPRB,3.3949E-05_JPRB,3.7724E-05_JPRB,3.9400E-05_JPRB,3.9718E-05_JPRB,3.8860E-05_JPRB,&
854	✓✓	10	& 3.6712E-05_JPRB,3.2588E-05_JPRB,3.9241E-04_JPRB/)
855			KAO( :, 4,12, 4) = (/&
856			& 2.3301E-05_JPRB,3.4905E-05_JPRB,3.8836E-05_JPRB,4.0484E-05_JPRB,4.0838E-05_JPRB,3.9966E-05_JPRB,&
857	✓✓	10	& 3.7706E-05_JPRB,3.3447E-05_JPRB,3.8870E-04_JPRB/)
858			KAO( :, 5,12, 4) = (/&
859			& 2.3543E-05_JPRB,3.5840E-05_JPRB,3.9948E-05_JPRB,4.1657E-05_JPRB,4.2028E-05_JPRB,4.1130E-05_JPRB,&
860	✓✓	10	& 3.8770E-05_JPRB,3.4320E-05_JPRB,3.8474E-04_JPRB/)
861			KAO( :, 1,13, 4) = (/&
862			& 1.9048E-05_JPRB,2.7433E-05_JPRB,3.0355E-05_JPRB,3.1781E-05_JPRB,3.2020E-05_JPRB,3.1297E-05_JPRB,&
863	✓✓	10	& 2.9545E-05_JPRB,2.6213E-05_JPRB,3.3572E-04_JPRB/)
864			KAO( :, 2,13, 4) = (/&
865			& 1.9186E-05_JPRB,2.8151E-05_JPRB,3.1249E-05_JPRB,3.2687E-05_JPRB,3.2953E-05_JPRB,3.2236E-05_JPRB,&
866	✓✓	10	& 3.0464E-05_JPRB,2.7042E-05_JPRB,3.3299E-04_JPRB/)
867			KAO( :, 3,13, 4) = (/&
868			& 1.9336E-05_JPRB,2.8946E-05_JPRB,3.2213E-05_JPRB,3.3632E-05_JPRB,3.3925E-05_JPRB,3.3202E-05_JPRB,&
869	✓✓	10	& 3.1346E-05_JPRB,2.7832E-05_JPRB,3.2995E-04_JPRB/)
870			KAO( :, 4,13, 4) = (/&
871			& 1.9500E-05_JPRB,2.9752E-05_JPRB,3.3189E-05_JPRB,3.4641E-05_JPRB,3.4936E-05_JPRB,3.4186E-05_JPRB,&
872	✓✓	10	& 3.2242E-05_JPRB,2.8586E-05_JPRB,3.2636E-04_JPRB/)
873			KAO( :, 5,13, 4) = (/&
874			& 1.9647E-05_JPRB,3.0517E-05_JPRB,3.4157E-05_JPRB,3.5690E-05_JPRB,3.6009E-05_JPRB,3.5240E-05_JPRB,&
875	✓✓	10	& 3.3224E-05_JPRB,2.9383E-05_JPRB,3.2302E-04_JPRB/)
876			KAO( :, 1, 1, 5) = (/&
877			& 1.5710E-04_JPRB,2.0320E-04_JPRB,2.2809E-04_JPRB,2.4127E-04_JPRB,2.4664E-04_JPRB,2.4637E-04_JPRB,&
878	✓✓	10	& 2.3954E-04_JPRB,2.2558E-04_JPRB,1.9226E-04_JPRB/)
879			KAO( :, 2, 1, 5) = (/&
880			& 1.5763E-04_JPRB,2.0602E-04_JPRB,2.3252E-04_JPRB,2.4654E-04_JPRB,2.5266E-04_JPRB,2.5275E-04_JPRB,&
881	✓✓	10	& 2.4636E-04_JPRB,2.3254E-04_JPRB,1.9836E-04_JPRB/)
882			KAO( :, 3, 1, 5) = (/&
883			& 1.5885E-04_JPRB,2.0936E-04_JPRB,2.3726E-04_JPRB,2.5211E-04_JPRB,2.5917E-04_JPRB,2.5987E-04_JPRB,&
884	✓✓	10	& 2.5423E-04_JPRB,2.4110E-04_JPRB,2.0597E-04_JPRB/)
885			KAO( :, 4, 1, 5) = (/&
886			& 1.6010E-04_JPRB,2.1292E-04_JPRB,2.4195E-04_JPRB,2.5773E-04_JPRB,2.6599E-04_JPRB,2.6801E-04_JPRB,&
887	✓✓	10	& 2.6343E-04_JPRB,2.5079E-04_JPRB,2.1448E-04_JPRB/)
888			KAO( :, 5, 1, 5) = (/&
889			& 1.6183E-04_JPRB,2.1689E-04_JPRB,2.4710E-04_JPRB,2.6390E-04_JPRB,2.7349E-04_JPRB,2.7678E-04_JPRB,&
890	✓✓	10	& 2.7286E-04_JPRB,2.6055E-04_JPRB,2.2334E-04_JPRB/)
891			KAO( :, 1, 2, 5) = (/&
892			& 1.4264E-04_JPRB,1.8747E-04_JPRB,2.0916E-04_JPRB,2.2048E-04_JPRB,2.2542E-04_JPRB,2.2467E-04_JPRB,&
893	✓✓	10	& 2.1833E-04_JPRB,2.0428E-04_JPRB,1.7002E-04_JPRB/)
894			KAO( :, 2, 2, 5) = (/&
895			& 1.4357E-04_JPRB,1.9029E-04_JPRB,2.1342E-04_JPRB,2.2542E-04_JPRB,2.3082E-04_JPRB,2.3044E-04_JPRB,&
896	✓✓	10	& 2.2413E-04_JPRB,2.1022E-04_JPRB,1.7510E-04_JPRB/)
897			KAO( :, 3, 2, 5) = (/&
898			& 1.4512E-04_JPRB,1.9354E-04_JPRB,2.1804E-04_JPRB,2.3071E-04_JPRB,2.3662E-04_JPRB,2.3677E-04_JPRB,&
899	✓✓	10	& 2.3090E-04_JPRB,2.1760E-04_JPRB,1.8164E-04_JPRB/)
900			KAO( :, 4, 2, 5) = (/&
901			& 1.4675E-04_JPRB,1.9716E-04_JPRB,2.2262E-04_JPRB,2.3622E-04_JPRB,2.4303E-04_JPRB,2.4400E-04_JPRB,&
902	✓✓	10	& 2.3876E-04_JPRB,2.2602E-04_JPRB,1.8905E-04_JPRB/)
903			KAO( :, 5, 2, 5) = (/&
904			& 1.4825E-04_JPRB,2.0084E-04_JPRB,2.2744E-04_JPRB,2.4214E-04_JPRB,2.4980E-04_JPRB,2.5170E-04_JPRB,&
905	✓✓	10	& 2.4697E-04_JPRB,2.3468E-04_JPRB,1.9668E-04_JPRB/)
906			KAO( :, 1, 3, 5) = (/&
907			& 1.2913E-04_JPRB,1.7105E-04_JPRB,1.8962E-04_JPRB,1.9927E-04_JPRB,2.0344E-04_JPRB,2.0263E-04_JPRB,&
908	✓✓	10	& 1.9648E-04_JPRB,1.8374E-04_JPRB,1.5154E-04_JPRB/)
909			KAO( :, 2, 3, 5) = (/&
910			& 1.3034E-04_JPRB,1.7385E-04_JPRB,1.9352E-04_JPRB,2.0379E-04_JPRB,2.0816E-04_JPRB,2.0767E-04_JPRB,&
911	✓✓	10	& 2.0141E-04_JPRB,1.8880E-04_JPRB,1.5543E-04_JPRB/)
912			KAO( :, 3, 3, 5) = (/&
913			& 1.3189E-04_JPRB,1.7683E-04_JPRB,1.9785E-04_JPRB,2.0858E-04_JPRB,2.1306E-04_JPRB,2.1289E-04_JPRB,&
914	✓✓	10	& 2.0705E-04_JPRB,1.9450E-04_JPRB,1.6042E-04_JPRB/)
915			KAO( :, 4, 3, 5) = (/&
916			& 1.3375E-04_JPRB,1.8038E-04_JPRB,2.0233E-04_JPRB,2.1375E-04_JPRB,2.1890E-04_JPRB,2.1897E-04_JPRB,&
917	✓✓	10	& 2.1362E-04_JPRB,2.0111E-04_JPRB,1.6638E-04_JPRB/)
918			KAO( :, 5, 3, 5) = (/&
919			& 1.3531E-04_JPRB,1.8393E-04_JPRB,2.0677E-04_JPRB,2.1903E-04_JPRB,2.2516E-04_JPRB,2.2557E-04_JPRB,&
920	✓✓	10	& 2.2073E-04_JPRB,2.0849E-04_JPRB,1.7278E-04_JPRB/)
921			KAO( :, 1, 4, 5) = (/&
922			& 1.1675E-04_JPRB,1.5471E-04_JPRB,1.7086E-04_JPRB,1.7907E-04_JPRB,1.8234E-04_JPRB,1.8104E-04_JPRB,&
923	✓✓	10	& 1.7606E-04_JPRB,1.6488E-04_JPRB,1.3686E-04_JPRB/)
924			KAO( :, 2, 4, 5) = (/&
925			& 1.1811E-04_JPRB,1.5738E-04_JPRB,1.7430E-04_JPRB,1.8299E-04_JPRB,1.8662E-04_JPRB,1.8551E-04_JPRB,&
926	✓✓	10	& 1.8028E-04_JPRB,1.6914E-04_JPRB,1.4021E-04_JPRB/)
927			KAO( :, 3, 4, 5) = (/&
928			& 1.1971E-04_JPRB,1.6033E-04_JPRB,1.7826E-04_JPRB,1.8706E-04_JPRB,1.9073E-04_JPRB,1.9003E-04_JPRB,&
929	✓✓	10	& 1.8491E-04_JPRB,1.7381E-04_JPRB,1.4440E-04_JPRB/)
930			KAO( :, 4, 4, 5) = (/&
931			& 1.2145E-04_JPRB,1.6360E-04_JPRB,1.8232E-04_JPRB,1.9160E-04_JPRB,1.9546E-04_JPRB,1.9520E-04_JPRB,&
932	✓✓	10	& 1.9032E-04_JPRB,1.7913E-04_JPRB,1.4919E-04_JPRB/)
933			KAO( :, 5, 4, 5) = (/&
934			& 1.2345E-04_JPRB,1.6734E-04_JPRB,1.8679E-04_JPRB,1.9667E-04_JPRB,2.0102E-04_JPRB,2.0119E-04_JPRB,&
935	✓✓	10	& 1.9631E-04_JPRB,1.8511E-04_JPRB,1.5453E-04_JPRB/)
936			KAO( :, 1, 5, 5) = (/&
937			& 1.0534E-04_JPRB,1.3892E-04_JPRB,1.5318E-04_JPRB,1.6013E-04_JPRB,1.6249E-04_JPRB,1.6140E-04_JPRB,&
938	✓✓	10	& 1.5677E-04_JPRB,1.4673E-04_JPRB,1.2734E-04_JPRB/)
939			KAO( :, 2, 5, 5) = (/&
940			& 1.0682E-04_JPRB,1.4149E-04_JPRB,1.5615E-04_JPRB,1.6351E-04_JPRB,1.6643E-04_JPRB,1.6536E-04_JPRB,&
941	✓✓	10	& 1.6060E-04_JPRB,1.5077E-04_JPRB,1.3032E-04_JPRB/)
942			KAO( :, 3, 5, 5) = (/&
943			& 1.0832E-04_JPRB,1.4437E-04_JPRB,1.5968E-04_JPRB,1.6719E-04_JPRB,1.7007E-04_JPRB,1.6925E-04_JPRB,&
944	✓✓	10	& 1.6475E-04_JPRB,1.5487E-04_JPRB,1.3383E-04_JPRB/)
945
946	✓✗	1	IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART3',1,ZHOOK_HANDLE)
947		1	END SUBROUTINE PART3
948
949
950		1	SUBROUTINE PART4
951
952			REAL(KIND=JPRB) :: ZHOOK_HANDLE
953	✓✗	1	IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART4',0,ZHOOK_HANDLE)
954
955
956			KAO( :, 4, 5, 5) = (/&
957			& 1.0998E-04_JPRB,1.4759E-04_JPRB,1.6348E-04_JPRB,1.7115E-04_JPRB,1.7411E-04_JPRB,1.7355E-04_JPRB,&
958	✓✓	10	& 1.6947E-04_JPRB,1.5945E-04_JPRB,1.3787E-04_JPRB/)
959			KAO( :, 5, 5, 5) = (/&
960			& 1.1196E-04_JPRB,1.5129E-04_JPRB,1.6770E-04_JPRB,1.7586E-04_JPRB,1.7902E-04_JPRB,1.7859E-04_JPRB,&
961	✓✓	10	& 1.7456E-04_JPRB,1.6452E-04_JPRB,1.4233E-04_JPRB/)
962			KAO( :, 1, 6, 5) = (/&
963			& 9.4514E-05_JPRB,1.2412E-04_JPRB,1.3657E-04_JPRB,1.4247E-04_JPRB,1.4441E-04_JPRB,1.4315E-04_JPRB,&
964	✓✓	10	& 1.3838E-04_JPRB,1.2929E-04_JPRB,1.2327E-04_JPRB/)
965			KAO( :, 2, 6, 5) = (/&
966			& 9.5941E-05_JPRB,1.2645E-04_JPRB,1.3931E-04_JPRB,1.4558E-04_JPRB,1.4789E-04_JPRB,1.4670E-04_JPRB,&
967	✓✓	10	& 1.4200E-04_JPRB,1.3303E-04_JPRB,1.2601E-04_JPRB/)
968			KAO( :, 3, 6, 5) = (/&
969			& 9.7365E-05_JPRB,1.2920E-04_JPRB,1.4235E-04_JPRB,1.4876E-04_JPRB,1.5129E-04_JPRB,1.5035E-04_JPRB,&
970	✓✓	10	& 1.4574E-04_JPRB,1.3687E-04_JPRB,1.2924E-04_JPRB/)
971			KAO( :, 4, 6, 5) = (/&
972			& 9.8894E-05_JPRB,1.3238E-04_JPRB,1.4586E-04_JPRB,1.5224E-04_JPRB,1.5484E-04_JPRB,1.5423E-04_JPRB,&
973	✓✓	10	& 1.4989E-04_JPRB,1.4089E-04_JPRB,1.3292E-04_JPRB/)
974			KAO( :, 5, 6, 5) = (/&
975			& 1.0059E-04_JPRB,1.3577E-04_JPRB,1.4967E-04_JPRB,1.5644E-04_JPRB,1.5902E-04_JPRB,1.5844E-04_JPRB,&
976	✓✓	10	& 1.5428E-04_JPRB,1.4522E-04_JPRB,1.3684E-04_JPRB/)
977			KAO( :, 1, 7, 5) = (/&
978			& 8.3817E-05_JPRB,1.1024E-04_JPRB,1.2069E-04_JPRB,1.2606E-04_JPRB,1.2762E-04_JPRB,1.2601E-04_JPRB,&
979	✓✓	10	& 1.2142E-04_JPRB,1.1275E-04_JPRB,1.2580E-04_JPRB/)
980			KAO( :, 2, 7, 5) = (/&
981			& 8.5049E-05_JPRB,1.1240E-04_JPRB,1.2345E-04_JPRB,1.2908E-04_JPRB,1.3088E-04_JPRB,1.2946E-04_JPRB,&
982	✓✓	10	& 1.2489E-04_JPRB,1.1643E-04_JPRB,1.2769E-04_JPRB/)
983			KAO( :, 3, 7, 5) = (/&
984			& 8.6443E-05_JPRB,1.1489E-04_JPRB,1.2631E-04_JPRB,1.3210E-04_JPRB,1.3408E-04_JPRB,1.3284E-04_JPRB,&
985	✓✓	10	& 1.2822E-04_JPRB,1.1996E-04_JPRB,1.3009E-04_JPRB/)
986			KAO( :, 4, 7, 5) = (/&
987			& 8.7868E-05_JPRB,1.1787E-04_JPRB,1.2952E-04_JPRB,1.3521E-04_JPRB,1.3734E-04_JPRB,1.3637E-04_JPRB,&
988	✓✓	10	& 1.3189E-04_JPRB,1.2366E-04_JPRB,1.3307E-04_JPRB/)
989			KAO( :, 5, 7, 5) = (/&
990			& 8.9520E-05_JPRB,1.2113E-04_JPRB,1.3311E-04_JPRB,1.3890E-04_JPRB,1.4111E-04_JPRB,1.4019E-04_JPRB,&
991	✓✓	10	& 1.3574E-04_JPRB,1.2746E-04_JPRB,1.3629E-04_JPRB/)
992			KAO( :, 1, 8, 5) = (/&
993			& 7.3739E-05_JPRB,9.7315E-05_JPRB,1.0630E-04_JPRB,1.1091E-04_JPRB,1.1210E-04_JPRB,1.1034E-04_JPRB,&
994	✓✓	10	& 1.0576E-04_JPRB,9.7435E-05_JPRB,1.5219E-04_JPRB/)
995			KAO( :, 2, 8, 5) = (/&
996			& 7.4739E-05_JPRB,9.9339E-05_JPRB,1.0888E-04_JPRB,1.1385E-04_JPRB,1.1515E-04_JPRB,1.1361E-04_JPRB,&
997	✓✓	10	& 1.0914E-04_JPRB,1.0091E-04_JPRB,1.5078E-04_JPRB/)
998			KAO( :, 3, 8, 5) = (/&
999			& 7.5979E-05_JPRB,1.0158E-04_JPRB,1.1168E-04_JPRB,1.1676E-04_JPRB,1.1825E-04_JPRB,1.1684E-04_JPRB,&
1000	✓✓	10	& 1.1240E-04_JPRB,1.0417E-04_JPRB,1.5044E-04_JPRB/)
1001			KAO( :, 4, 8, 5) = (/&
1002			& 7.7389E-05_JPRB,1.0425E-04_JPRB,1.1460E-04_JPRB,1.1977E-04_JPRB,1.2131E-04_JPRB,1.2000E-04_JPRB,&
1003	✓✓	10	& 1.1564E-04_JPRB,1.0754E-04_JPRB,1.5083E-04_JPRB/)
1004			KAO( :, 5, 8, 5) = (/&
1005			& 7.8988E-05_JPRB,1.0719E-04_JPRB,1.1787E-04_JPRB,1.2308E-04_JPRB,1.2465E-04_JPRB,1.2345E-04_JPRB,&
1006	✓✓	10	& 1.1918E-04_JPRB,1.1099E-04_JPRB,1.5186E-04_JPRB/)
1007			KAO( :, 1, 9, 5) = (/&
1008			& 6.4327E-05_JPRB,8.5194E-05_JPRB,9.3124E-05_JPRB,9.6906E-05_JPRB,9.7902E-05_JPRB,9.6087E-05_JPRB,&
1009	✓✓	10	& 9.1486E-05_JPRB,8.3530E-05_JPRB,3.0559E-04_JPRB/)
1010			KAO( :, 2, 9, 5) = (/&
1011			& 6.5169E-05_JPRB,8.7114E-05_JPRB,9.5498E-05_JPRB,9.9699E-05_JPRB,1.0078E-04_JPRB,9.9075E-05_JPRB,&
1012	✓✓	10	& 9.4585E-05_JPRB,8.6649E-05_JPRB,3.0376E-04_JPRB/)
1013			KAO( :, 3, 9, 5) = (/&
1014			& 6.6228E-05_JPRB,8.9174E-05_JPRB,9.8080E-05_JPRB,1.0257E-04_JPRB,1.0373E-04_JPRB,1.0212E-04_JPRB,&
1015	✓✓	10	& 9.7761E-05_JPRB,8.9715E-05_JPRB,3.0205E-04_JPRB/)
1016			KAO( :, 4, 9, 5) = (/&
1017			& 6.7560E-05_JPRB,9.1493E-05_JPRB,1.0085E-04_JPRB,1.0546E-04_JPRB,1.0670E-04_JPRB,1.0511E-04_JPRB,&
1018	✓✓	10	& 1.0078E-04_JPRB,9.2773E-05_JPRB,2.9925E-04_JPRB/)
1019			KAO( :, 5, 9, 5) = (/&
1020			& 6.9090E-05_JPRB,9.4108E-05_JPRB,1.0377E-04_JPRB,1.0852E-04_JPRB,1.0981E-04_JPRB,1.0822E-04_JPRB,&
1021	✓✓	10	& 1.0396E-04_JPRB,9.5948E-05_JPRB,2.9560E-04_JPRB/)
1022			KAO( :, 1,10, 5) = (/&
1023			& 5.5732E-05_JPRB,7.4195E-05_JPRB,8.1092E-05_JPRB,8.4263E-05_JPRB,8.5004E-05_JPRB,8.3260E-05_JPRB,&
1024	✓✓	10	& 7.8896E-05_JPRB,7.1326E-05_JPRB,7.3141E-04_JPRB/)
1025			KAO( :, 2,10, 5) = (/&
1026			& 5.6464E-05_JPRB,7.5996E-05_JPRB,8.3306E-05_JPRB,8.6877E-05_JPRB,8.7776E-05_JPRB,8.6058E-05_JPRB,&
1027	✓✓	10	& 8.1636E-05_JPRB,7.4082E-05_JPRB,7.1679E-04_JPRB/)
1028			KAO( :, 3,10, 5) = (/&
1029			& 5.7403E-05_JPRB,7.7891E-05_JPRB,8.5666E-05_JPRB,8.9585E-05_JPRB,9.0592E-05_JPRB,8.8875E-05_JPRB,&
1030	✓✓	10	& 8.4523E-05_JPRB,7.6897E-05_JPRB,7.0421E-04_JPRB/)
1031			KAO( :, 4,10, 5) = (/&
1032			& 5.8620E-05_JPRB,7.9933E-05_JPRB,8.8213E-05_JPRB,9.2386E-05_JPRB,9.3433E-05_JPRB,9.1667E-05_JPRB,&
1033	✓✓	10	& 8.7388E-05_JPRB,7.9742E-05_JPRB,6.9385E-04_JPRB/)
1034			KAO( :, 5,10, 5) = (/&
1035			& 6.0067E-05_JPRB,8.2256E-05_JPRB,9.0893E-05_JPRB,9.5273E-05_JPRB,9.6366E-05_JPRB,9.4596E-05_JPRB,&
1036	✓✓	10	& 9.0298E-05_JPRB,8.2632E-05_JPRB,6.8465E-04_JPRB/)
1037			KAO( :, 1,11, 5) = (/&
1038			& 4.8186E-05_JPRB,6.4983E-05_JPRB,7.1108E-05_JPRB,7.3858E-05_JPRB,7.4401E-05_JPRB,7.2817E-05_JPRB,&
1039	✓✓	10	& 6.8716E-05_JPRB,6.1721E-05_JPRB,9.3137E-04_JPRB/)
1040			KAO( :, 2,11, 5) = (/&
1041			& 4.8927E-05_JPRB,6.6681E-05_JPRB,7.3165E-05_JPRB,7.6242E-05_JPRB,7.7034E-05_JPRB,7.5453E-05_JPRB,&
1042	✓✓	10	& 7.1255E-05_JPRB,6.4142E-05_JPRB,9.0283E-04_JPRB/)
1043			KAO( :, 3,11, 5) = (/&
1044			& 4.9906E-05_JPRB,6.8442E-05_JPRB,7.5379E-05_JPRB,7.8833E-05_JPRB,7.9706E-05_JPRB,7.8052E-05_JPRB,&
1045	✓✓	10	& 7.3833E-05_JPRB,6.6698E-05_JPRB,8.7896E-04_JPRB/)
1046			KAO( :, 4,11, 5) = (/&
1047			& 5.1140E-05_JPRB,7.0403E-05_JPRB,7.7738E-05_JPRB,8.1490E-05_JPRB,8.2392E-05_JPRB,8.0715E-05_JPRB,&
1048	✓✓	10	& 7.6507E-05_JPRB,6.9333E-05_JPRB,8.5877E-04_JPRB/)
1049			KAO( :, 5,11, 5) = (/&
1050			& 5.2547E-05_JPRB,7.2595E-05_JPRB,8.0310E-05_JPRB,8.4272E-05_JPRB,8.5190E-05_JPRB,8.3479E-05_JPRB,&
1051	✓✓	10	& 7.9204E-05_JPRB,7.1956E-05_JPRB,8.4129E-04_JPRB/)
1052			KAO( :, 1,12, 5) = (/&
1053			& 4.1357E-05_JPRB,5.6591E-05_JPRB,6.2004E-05_JPRB,6.4335E-05_JPRB,6.4718E-05_JPRB,6.3255E-05_JPRB,&
1054	✓✓	10	& 5.9536E-05_JPRB,5.3170E-05_JPRB,9.4628E-04_JPRB/)
1055			KAO( :, 2,12, 5) = (/&
1056			& 4.2117E-05_JPRB,5.8142E-05_JPRB,6.3912E-05_JPRB,6.6563E-05_JPRB,6.7175E-05_JPRB,6.5721E-05_JPRB,&
1057	✓✓	10	& 6.1864E-05_JPRB,5.5283E-05_JPRB,9.1448E-04_JPRB/)
1058			KAO( :, 3,12, 5) = (/&
1059			& 4.3123E-05_JPRB,5.9831E-05_JPRB,6.5955E-05_JPRB,6.8956E-05_JPRB,6.9677E-05_JPRB,6.8113E-05_JPRB,&
1060	✓✓	10	& 6.4202E-05_JPRB,5.7597E-05_JPRB,8.8738E-04_JPRB/)
1061			KAO( :, 4,12, 5) = (/&
1062			& 4.4308E-05_JPRB,6.1719E-05_JPRB,6.8165E-05_JPRB,7.1448E-05_JPRB,7.2209E-05_JPRB,7.0617E-05_JPRB,&
1063	✓✓	10	& 6.6651E-05_JPRB,5.9974E-05_JPRB,8.6370E-04_JPRB/)
1064			KAO( :, 5,12, 5) = (/&
1065			& 4.5586E-05_JPRB,6.3825E-05_JPRB,7.0651E-05_JPRB,7.4074E-05_JPRB,7.4824E-05_JPRB,7.3199E-05_JPRB,&
1066	✓✓	10	& 6.9129E-05_JPRB,6.2368E-05_JPRB,8.4394E-04_JPRB/)
1067			KAO( :, 1,13, 5) = (/&
1068			& 3.5199E-05_JPRB,4.8904E-05_JPRB,5.3685E-05_JPRB,5.5708E-05_JPRB,5.5958E-05_JPRB,5.4602E-05_JPRB,&
1069	✓✓	10	& 5.1289E-05_JPRB,4.5544E-05_JPRB,7.9844E-04_JPRB/)
1070			KAO( :, 2,13, 5) = (/&
1071			& 3.5968E-05_JPRB,5.0359E-05_JPRB,5.5441E-05_JPRB,5.7776E-05_JPRB,5.8210E-05_JPRB,5.6833E-05_JPRB,&
1072	✓✓	10	& 5.3406E-05_JPRB,4.7437E-05_JPRB,7.7225E-04_JPRB/)
1073			KAO( :, 3,13, 5) = (/&
1074			& 3.6919E-05_JPRB,5.1978E-05_JPRB,5.7339E-05_JPRB,5.9942E-05_JPRB,6.0487E-05_JPRB,5.9061E-05_JPRB,&
1075	✓✓	10	& 5.5548E-05_JPRB,4.9491E-05_JPRB,7.4964E-04_JPRB/)
1076			KAO( :, 4,13, 5) = (/&
1077			& 3.7983E-05_JPRB,5.3790E-05_JPRB,5.9444E-05_JPRB,6.2256E-05_JPRB,6.2844E-05_JPRB,6.1377E-05_JPRB,&
1078	✓✓	10	& 5.7755E-05_JPRB,5.1611E-05_JPRB,7.3016E-04_JPRB/)
1079			KAO( :, 5,13, 5) = (/&
1080			& 3.9071E-05_JPRB,5.5803E-05_JPRB,6.1798E-05_JPRB,6.4723E-05_JPRB,6.5302E-05_JPRB,6.3732E-05_JPRB,&
1081	✓✓	10	& 5.9993E-05_JPRB,5.3748E-05_JPRB,7.1404E-04_JPRB/)
1082			KAO( :, 1, 1, 6) = (/&
1083			& 2.5660E-04_JPRB,3.1807E-04_JPRB,3.6094E-04_JPRB,3.8920E-04_JPRB,4.0736E-04_JPRB,4.1545E-04_JPRB,&
1084	✓✓	10	& 4.1386E-04_JPRB,4.0633E-04_JPRB,3.6193E-04_JPRB/)
1085			KAO( :, 2, 1, 6) = (/&
1086			& 2.5865E-04_JPRB,3.2319E-04_JPRB,3.6764E-04_JPRB,3.9762E-04_JPRB,4.1800E-04_JPRB,4.2858E-04_JPRB,&
1087	✓✓	10	& 4.2847E-04_JPRB,4.2235E-04_JPRB,3.7675E-04_JPRB/)
1088			KAO( :, 3, 1, 6) = (/&
1089			& 2.6137E-04_JPRB,3.2915E-04_JPRB,3.7535E-04_JPRB,4.0750E-04_JPRB,4.2970E-04_JPRB,4.4147E-04_JPRB,&
1090	✓✓	10	& 4.4293E-04_JPRB,4.3843E-04_JPRB,3.9233E-04_JPRB/)
1091			KAO( :, 4, 1, 6) = (/&
1092			& 2.6360E-04_JPRB,3.3488E-04_JPRB,3.8404E-04_JPRB,4.1788E-04_JPRB,4.4114E-04_JPRB,4.5427E-04_JPRB,&
1093	✓✓	10	& 4.5738E-04_JPRB,4.5544E-04_JPRB,4.1003E-04_JPRB/)
1094			KAO( :, 5, 1, 6) = (/&
1095			& 2.6660E-04_JPRB,3.4173E-04_JPRB,3.9350E-04_JPRB,4.2919E-04_JPRB,4.5400E-04_JPRB,4.6894E-04_JPRB,&
1096	✓✓	10	& 4.7415E-04_JPRB,4.7523E-04_JPRB,4.3058E-04_JPRB/)
1097			KAO( :, 1, 2, 6) = (/&
1098			& 2.3631E-04_JPRB,2.9631E-04_JPRB,3.3525E-04_JPRB,3.5919E-04_JPRB,3.7267E-04_JPRB,3.7835E-04_JPRB,&
1099	✓✓	10	& 3.7529E-04_JPRB,3.6555E-04_JPRB,3.2111E-04_JPRB/)
1100			KAO( :, 2, 2, 6) = (/&
1101			& 2.3829E-04_JPRB,3.0128E-04_JPRB,3.4159E-04_JPRB,3.6758E-04_JPRB,3.8290E-04_JPRB,3.9019E-04_JPRB,&
1102	✓✓	10	& 3.8891E-04_JPRB,3.7964E-04_JPRB,3.3378E-04_JPRB/)
1103			KAO( :, 3, 2, 6) = (/&
1104			& 2.4092E-04_JPRB,3.0698E-04_JPRB,3.4893E-04_JPRB,3.7703E-04_JPRB,3.9429E-04_JPRB,4.0240E-04_JPRB,&
1105	✓✓	10	& 4.0189E-04_JPRB,3.9363E-04_JPRB,3.4730E-04_JPRB/)
1106			KAO( :, 4, 2, 6) = (/&
1107			& 2.4353E-04_JPRB,3.1280E-04_JPRB,3.5757E-04_JPRB,3.8697E-04_JPRB,4.0550E-04_JPRB,4.1447E-04_JPRB,&
1108	✓✓	10	& 4.1496E-04_JPRB,4.0890E-04_JPRB,3.6318E-04_JPRB/)
1109			KAO( :, 5, 2, 6) = (/&
1110			& 2.4646E-04_JPRB,3.1930E-04_JPRB,3.6666E-04_JPRB,3.9774E-04_JPRB,4.1741E-04_JPRB,4.2801E-04_JPRB,&
1111	✓✓	10	& 4.2988E-04_JPRB,4.2637E-04_JPRB,3.8102E-04_JPRB/)
1112			KAO( :, 1, 3, 6) = (/&
1113			& 2.1702E-04_JPRB,2.7392E-04_JPRB,3.0713E-04_JPRB,3.2661E-04_JPRB,3.3701E-04_JPRB,3.4012E-04_JPRB,&
1114	✓✓	10	& 3.3574E-04_JPRB,3.2367E-04_JPRB,2.7953E-04_JPRB/)
1115			KAO( :, 2, 3, 6) = (/&
1116			& 2.1882E-04_JPRB,2.7874E-04_JPRB,3.1368E-04_JPRB,3.3483E-04_JPRB,3.4655E-04_JPRB,3.5089E-04_JPRB,&
1117	✓✓	10	& 3.4836E-04_JPRB,3.3662E-04_JPRB,2.9075E-04_JPRB/)
1118			KAO( :, 3, 3, 6) = (/&
1119			& 2.2093E-04_JPRB,2.8379E-04_JPRB,3.2031E-04_JPRB,3.4355E-04_JPRB,3.5690E-04_JPRB,3.6196E-04_JPRB,&
1120	✓✓	10	& 3.6029E-04_JPRB,3.4924E-04_JPRB,3.0255E-04_JPRB/)
1121			KAO( :, 4, 3, 6) = (/&
1122			& 2.2391E-04_JPRB,2.8964E-04_JPRB,3.2857E-04_JPRB,3.5322E-04_JPRB,3.6741E-04_JPRB,3.7364E-04_JPRB,&
1123	✓✓	10	& 3.7227E-04_JPRB,3.6287E-04_JPRB,3.1610E-04_JPRB/)
1124			KAO( :, 5, 3, 6) = (/&
1125			& 2.2678E-04_JPRB,2.9569E-04_JPRB,3.3712E-04_JPRB,3.6314E-04_JPRB,3.7839E-04_JPRB,3.8589E-04_JPRB,&
1126	✓✓	10	& 3.8538E-04_JPRB,3.7808E-04_JPRB,3.3103E-04_JPRB/)
1127			KAO( :, 1, 4, 6) = (/&
1128			& 1.9893E-04_JPRB,2.5184E-04_JPRB,2.7904E-04_JPRB,2.9424E-04_JPRB,3.0215E-04_JPRB,3.0353E-04_JPRB,&
1129	✓✓	10	& 2.9750E-04_JPRB,2.8367E-04_JPRB,2.4378E-04_JPRB/)
1130			KAO( :, 2, 4, 6) = (/&
1131			& 2.0039E-04_JPRB,2.5636E-04_JPRB,2.8551E-04_JPRB,3.0218E-04_JPRB,3.1138E-04_JPRB,3.1364E-04_JPRB,&
1132	✓✓	10	& 3.0933E-04_JPRB,2.9596E-04_JPRB,2.5360E-04_JPRB/)
1133			KAO( :, 3, 4, 6) = (/&
1134			& 2.0244E-04_JPRB,2.6111E-04_JPRB,2.9172E-04_JPRB,3.1073E-04_JPRB,3.2138E-04_JPRB,3.2408E-04_JPRB,&
1135	✓✓	10	& 3.2030E-04_JPRB,3.0766E-04_JPRB,2.6380E-04_JPRB/)
1136			KAO( :, 4, 4, 6) = (/&
1137			& 2.0501E-04_JPRB,2.6640E-04_JPRB,2.9889E-04_JPRB,3.1956E-04_JPRB,3.3116E-04_JPRB,3.3435E-04_JPRB,&
1138	✓✓	10	& 3.3120E-04_JPRB,3.1983E-04_JPRB,2.7551E-04_JPRB/)
1139			KAO( :, 5, 4, 6) = (/&
1140			& 2.0836E-04_JPRB,2.7264E-04_JPRB,3.0721E-04_JPRB,3.2917E-04_JPRB,3.4139E-04_JPRB,3.4585E-04_JPRB,&
1141	✓✓	10	& 3.4342E-04_JPRB,3.3321E-04_JPRB,2.8833E-04_JPRB/)
1142			KAO( :, 1, 5, 6) = (/&
1143			& 1.8177E-04_JPRB,2.3005E-04_JPRB,2.5216E-04_JPRB,2.6400E-04_JPRB,2.6980E-04_JPRB,2.6977E-04_JPRB,&
1144	✓✓	10	& 2.6270E-04_JPRB,2.4807E-04_JPRB,2.1566E-04_JPRB/)
1145			KAO( :, 2, 5, 6) = (/&
1146			& 1.8288E-04_JPRB,2.3456E-04_JPRB,2.5850E-04_JPRB,2.7178E-04_JPRB,2.7838E-04_JPRB,2.7918E-04_JPRB,&
1147	✓✓	10	& 2.7326E-04_JPRB,2.5893E-04_JPRB,2.2464E-04_JPRB/)
1148			KAO( :, 3, 5, 6) = (/&
1149			& 1.8495E-04_JPRB,2.3899E-04_JPRB,2.6446E-04_JPRB,2.7972E-04_JPRB,2.8778E-04_JPRB,2.8887E-04_JPRB,&
1150	✓✓	10	& 2.8352E-04_JPRB,2.6965E-04_JPRB,2.3371E-04_JPRB/)
1151			KAO( :, 4, 5, 6) = (/&
1152			& 1.8757E-04_JPRB,2.4389E-04_JPRB,2.7104E-04_JPRB,2.8807E-04_JPRB,2.9709E-04_JPRB,2.9855E-04_JPRB,&
1153	✓✓	10	& 2.9335E-04_JPRB,2.8065E-04_JPRB,2.4386E-04_JPRB/)
1154			KAO( :, 5, 5, 6) = (/&
1155			& 1.9089E-04_JPRB,2.4987E-04_JPRB,2.7871E-04_JPRB,2.9704E-04_JPRB,3.0660E-04_JPRB,3.0888E-04_JPRB,&
1156	✓✓	10	& 3.0414E-04_JPRB,2.9240E-04_JPRB,2.5489E-04_JPRB/)
1157			KAO( :, 1, 6, 6) = (/&
1158			& 1.6548E-04_JPRB,2.0845E-04_JPRB,2.2667E-04_JPRB,2.3621E-04_JPRB,2.3998E-04_JPRB,2.3852E-04_JPRB,&
1159	✓✓	10	& 2.3181E-04_JPRB,2.1713E-04_JPRB,1.9774E-04_JPRB/)
1160			KAO( :, 2, 6, 6) = (/&
1161			& 1.6647E-04_JPRB,2.1295E-04_JPRB,2.3285E-04_JPRB,2.4356E-04_JPRB,2.4798E-04_JPRB,2.4711E-04_JPRB,&
1162	✓✓	10	& 2.4086E-04_JPRB,2.2656E-04_JPRB,2.0619E-04_JPRB/)
1163			KAO( :, 3, 6, 6) = (/&
1164			& 1.6832E-04_JPRB,2.1735E-04_JPRB,2.3897E-04_JPRB,2.5101E-04_JPRB,2.5638E-04_JPRB,2.5608E-04_JPRB,&
1165	✓✓	10	& 2.5005E-04_JPRB,2.3612E-04_JPRB,2.1472E-04_JPRB/)
1166			KAO( :, 4, 6, 6) = (/&
1167			& 1.7090E-04_JPRB,2.2192E-04_JPRB,2.4527E-04_JPRB,2.5863E-04_JPRB,2.6479E-04_JPRB,2.6498E-04_JPRB,&
1168	✓✓	10	& 2.5909E-04_JPRB,2.4595E-04_JPRB,2.2382E-04_JPRB/)
1169			KAO( :, 5, 6, 6) = (/&
1170			& 1.7392E-04_JPRB,2.2728E-04_JPRB,2.5204E-04_JPRB,2.6653E-04_JPRB,2.7329E-04_JPRB,2.7417E-04_JPRB,&
1171	✓✓	10	& 2.6871E-04_JPRB,2.5622E-04_JPRB,2.3379E-04_JPRB/)
1172			KAO( :, 1, 7, 6) = (/&
1173			& 1.4974E-04_JPRB,1.8746E-04_JPRB,2.0303E-04_JPRB,2.1075E-04_JPRB,2.1306E-04_JPRB,2.1110E-04_JPRB,&
1174	✓✓	10	& 2.0431E-04_JPRB,1.8998E-04_JPRB,1.9358E-04_JPRB/)
1175			KAO( :, 2, 7, 6) = (/&
1176			& 1.5089E-04_JPRB,1.9183E-04_JPRB,2.0895E-04_JPRB,2.1750E-04_JPRB,2.2044E-04_JPRB,2.1873E-04_JPRB,&
1177	✓✓	10	& 2.1228E-04_JPRB,1.9808E-04_JPRB,2.0012E-04_JPRB/)
1178			KAO( :, 3, 7, 6) = (/&
1179			& 1.5257E-04_JPRB,1.9611E-04_JPRB,2.1478E-04_JPRB,2.2448E-04_JPRB,2.2805E-04_JPRB,2.2660E-04_JPRB,&
1180	✓✓	10	& 2.2066E-04_JPRB,2.0672E-04_JPRB,2.0775E-04_JPRB/)
1181			KAO( :, 4, 7, 6) = (/&
1182			& 1.5493E-04_JPRB,2.0056E-04_JPRB,2.2076E-04_JPRB,2.3152E-04_JPRB,2.3569E-04_JPRB,2.3461E-04_JPRB,&
1183	✓✓	10	& 2.2897E-04_JPRB,2.1559E-04_JPRB,2.1605E-04_JPRB/)
1184			KAO( :, 5, 7, 6) = (/&
1185			& 1.5774E-04_JPRB,2.0562E-04_JPRB,2.2715E-04_JPRB,2.3878E-04_JPRB,2.4330E-04_JPRB,2.4290E-04_JPRB,&
1186	✓✓	10	& 2.3768E-04_JPRB,2.2474E-04_JPRB,2.2537E-04_JPRB/)
1187			KAO( :, 1, 8, 6) = (/&
1188			& 1.3469E-04_JPRB,1.6768E-04_JPRB,1.8125E-04_JPRB,1.8765E-04_JPRB,1.8912E-04_JPRB,1.8647E-04_JPRB,&
1189	✓✓	10	& 1.7925E-04_JPRB,1.6551E-04_JPRB,2.2549E-04_JPRB/)
1190			KAO( :, 2, 8, 6) = (/&
1191			& 1.3601E-04_JPRB,1.7179E-04_JPRB,1.8676E-04_JPRB,1.9388E-04_JPRB,1.9601E-04_JPRB,1.9365E-04_JPRB,&
1192	✓✓	10	& 1.8651E-04_JPRB,1.7268E-04_JPRB,2.2728E-04_JPRB/)
1193			KAO( :, 3, 8, 6) = (/&
1194			& 1.3770E-04_JPRB,1.7606E-04_JPRB,1.9214E-04_JPRB,2.0024E-04_JPRB,2.0294E-04_JPRB,2.0077E-04_JPRB,&
1195	✓✓	10	& 1.9394E-04_JPRB,1.8025E-04_JPRB,2.3037E-04_JPRB/)
1196			KAO( :, 4, 8, 6) = (/&
1197			& 1.3980E-04_JPRB,1.8052E-04_JPRB,1.9782E-04_JPRB,2.0667E-04_JPRB,2.0985E-04_JPRB,2.0804E-04_JPRB,&
1198	✓✓	10	& 2.0170E-04_JPRB,1.8820E-04_JPRB,2.3502E-04_JPRB/)
1199			KAO( :, 5, 8, 6) = (/&
1200			& 1.4234E-04_JPRB,1.8549E-04_JPRB,2.0378E-04_JPRB,2.1326E-04_JPRB,2.1685E-04_JPRB,2.1554E-04_JPRB,&
1201	✓✓	10	& 2.0965E-04_JPRB,1.9644E-04_JPRB,2.4136E-04_JPRB/)
1202			KAO( :, 1, 9, 6) = (/&
1203			& 1.1992E-04_JPRB,1.4933E-04_JPRB,1.6105E-04_JPRB,1.6671E-04_JPRB,1.6730E-04_JPRB,1.6393E-04_JPRB,&
1204	✓✓	10	& 1.5666E-04_JPRB,1.4342E-04_JPRB,4.8653E-04_JPRB/)
1205			KAO( :, 2, 9, 6) = (/&
1206			& 1.2149E-04_JPRB,1.5326E-04_JPRB,1.6624E-04_JPRB,1.7247E-04_JPRB,1.7376E-04_JPRB,1.7057E-04_JPRB,&
1207	✓✓	10	& 1.6339E-04_JPRB,1.5015E-04_JPRB,4.7263E-04_JPRB/)
1208			KAO( :, 3, 9, 6) = (/&
1209			& 1.2314E-04_JPRB,1.5738E-04_JPRB,1.7131E-04_JPRB,1.7818E-04_JPRB,1.8004E-04_JPRB,1.7724E-04_JPRB,&
1210	✓✓	10	& 1.6998E-04_JPRB,1.5688E-04_JPRB,4.6122E-04_JPRB/)
1211			KAO( :, 4, 9, 6) = (/&
1212			& 1.2514E-04_JPRB,1.6177E-04_JPRB,1.7650E-04_JPRB,1.8400E-04_JPRB,1.8641E-04_JPRB,1.8403E-04_JPRB,&
1213	✓✓	10	& 1.7684E-04_JPRB,1.6385E-04_JPRB,4.5149E-04_JPRB/)
1214			KAO( :, 5, 9, 6) = (/&
1215			& 1.2748E-04_JPRB,1.6660E-04_JPRB,1.8214E-04_JPRB,1.9005E-04_JPRB,1.9284E-04_JPRB,1.9097E-04_JPRB,&
1216	✓✓	10	& 1.8405E-04_JPRB,1.7111E-04_JPRB,4.4363E-04_JPRB/)
1217			KAO( :, 1,10, 6) = (/&
1218			& 1.0584E-04_JPRB,1.3236E-04_JPRB,1.4288E-04_JPRB,1.4761E-04_JPRB,1.4780E-04_JPRB,1.4423E-04_JPRB,&
1219	✓✓	10	& 1.3667E-04_JPRB,1.2400E-04_JPRB,1.5407E-03_JPRB/)
1220			KAO( :, 2,10, 6) = (/&
1221			& 1.0748E-04_JPRB,1.3619E-04_JPRB,1.4771E-04_JPRB,1.5305E-04_JPRB,1.5361E-04_JPRB,1.5017E-04_JPRB,&
1222	✓✓	10	& 1.4291E-04_JPRB,1.3024E-04_JPRB,1.4707E-03_JPRB/)
1223			KAO( :, 3,10, 6) = (/&
1224			& 1.0916E-04_JPRB,1.4012E-04_JPRB,1.5258E-04_JPRB,1.5840E-04_JPRB,1.5929E-04_JPRB,1.5625E-04_JPRB,&
1225	✓✓	10	& 1.4913E-04_JPRB,1.3639E-04_JPRB,1.4078E-03_JPRB/)
1226			KAO( :, 4,10, 6) = (/&
1227			& 1.1108E-04_JPRB,1.4432E-04_JPRB,1.5744E-04_JPRB,1.6378E-04_JPRB,1.6514E-04_JPRB,1.6251E-04_JPRB,&
1228	✓✓	10	& 1.5541E-04_JPRB,1.4254E-04_JPRB,1.3501E-03_JPRB/)
1229			KAO( :, 5,10, 6) = (/&
1230			& 1.1328E-04_JPRB,1.4893E-04_JPRB,1.6265E-04_JPRB,1.6934E-04_JPRB,1.7119E-04_JPRB,1.6880E-04_JPRB,&
1231	✓✓	10	& 1.6190E-04_JPRB,1.4900E-04_JPRB,1.2982E-03_JPRB/)
1232			KAO( :, 1,11, 6) = (/&
1233			& 9.3489E-05_JPRB,1.1825E-04_JPRB,1.2805E-04_JPRB,1.3224E-04_JPRB,1.3232E-04_JPRB,1.2873E-04_JPRB,&
1234	✓✓	10	& 1.2131E-04_JPRB,1.0918E-04_JPRB,2.0757E-03_JPRB/)
1235			KAO( :, 2,11, 6) = (/&
1236			& 9.5099E-05_JPRB,1.2195E-04_JPRB,1.3268E-04_JPRB,1.3732E-04_JPRB,1.3748E-04_JPRB,1.3414E-04_JPRB,&
1237	✓✓	10	& 1.2695E-04_JPRB,1.1489E-04_JPRB,1.9797E-03_JPRB/)
1238			KAO( :, 3,11, 6) = (/&
1239			& 9.6804E-05_JPRB,1.2575E-04_JPRB,1.3731E-04_JPRB,1.4230E-04_JPRB,1.4278E-04_JPRB,1.3973E-04_JPRB,&
1240	✓✓	10	& 1.3283E-04_JPRB,1.2047E-04_JPRB,1.8901E-03_JPRB/)
1241			KAO( :, 4,11, 6) = (/&
1242			& 9.8710E-05_JPRB,1.2986E-04_JPRB,1.4205E-04_JPRB,1.4740E-04_JPRB,1.4826E-04_JPRB,1.4548E-04_JPRB,&
1243	✓✓	10	& 1.3868E-04_JPRB,1.2603E-04_JPRB,1.8079E-03_JPRB/)
1244			KAO( :, 5,11, 6) = (/&
1245			& 1.0095E-04_JPRB,1.3435E-04_JPRB,1.4704E-04_JPRB,1.5275E-04_JPRB,1.5397E-04_JPRB,1.5141E-04_JPRB,&
1246	✓✓	10	& 1.4471E-04_JPRB,1.3186E-04_JPRB,1.7340E-03_JPRB/)
1247
1248	✓✗	1	IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART4',1,ZHOOK_HANDLE)
1249		1	END SUBROUTINE PART4
1250
1251
1252		1	SUBROUTINE PART5
1253
1254			REAL(KIND=JPRB) :: ZHOOK_HANDLE
1255	✓✗	1	IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART5',0,ZHOOK_HANDLE)
1256
1257
1258			KAO( :, 1,12, 6) = (/&
1259			& 8.2093E-05_JPRB,1.0522E-04_JPRB,1.1410E-04_JPRB,1.1782E-04_JPRB,1.1761E-04_JPRB,1.1416E-04_JPRB,&
1260	✓✓	10	& 1.0724E-04_JPRB,9.5735E-05_JPRB,2.1586E-03_JPRB/)
1261			KAO( :, 2,12, 6) = (/&
1262			& 8.3669E-05_JPRB,1.0871E-04_JPRB,1.1846E-04_JPRB,1.2251E-04_JPRB,1.2240E-04_JPRB,1.1908E-04_JPRB,&
1263	✓✓	10	& 1.1234E-04_JPRB,1.0091E-04_JPRB,2.0547E-03_JPRB/)
1264			KAO( :, 3,12, 6) = (/&
1265			& 8.5301E-05_JPRB,1.1235E-04_JPRB,1.2282E-04_JPRB,1.2721E-04_JPRB,1.2738E-04_JPRB,1.2431E-04_JPRB,&
1266	✓✓	10	& 1.1770E-04_JPRB,1.0601E-04_JPRB,1.9599E-03_JPRB/)
1267			KAO( :, 4,12, 6) = (/&
1268			& 8.7242E-05_JPRB,1.1626E-04_JPRB,1.2740E-04_JPRB,1.3207E-04_JPRB,1.3252E-04_JPRB,1.2966E-04_JPRB,&
1269	✓✓	10	& 1.2318E-04_JPRB,1.1105E-04_JPRB,1.8736E-03_JPRB/)
1270			KAO( :, 5,12, 6) = (/&
1271			& 8.9569E-05_JPRB,1.2041E-04_JPRB,1.3214E-04_JPRB,1.3715E-04_JPRB,1.3802E-04_JPRB,1.3533E-04_JPRB,&
1272	✓✓	10	& 1.2876E-04_JPRB,1.1627E-04_JPRB,1.7949E-03_JPRB/)
1273			KAO( :, 1,13, 6) = (/&
1274			& 7.1569E-05_JPRB,9.3060E-05_JPRB,1.0102E-04_JPRB,1.0423E-04_JPRB,1.0388E-04_JPRB,1.0052E-04_JPRB,&
1275	✓✓	10	& 9.4174E-05_JPRB,8.3531E-05_JPRB,1.8351E-03_JPRB/)
1276			KAO( :, 2,13, 6) = (/&
1277			& 7.3011E-05_JPRB,9.6373E-05_JPRB,1.0503E-04_JPRB,1.0856E-04_JPRB,1.0834E-04_JPRB,1.0508E-04_JPRB,&
1278	✓✓	10	& 9.8836E-05_JPRB,8.8176E-05_JPRB,1.7459E-03_JPRB/)
1279			KAO( :, 3,13, 6) = (/&
1280			& 7.4663E-05_JPRB,9.9794E-05_JPRB,1.0913E-04_JPRB,1.1298E-04_JPRB,1.1299E-04_JPRB,1.0991E-04_JPRB,&
1281	✓✓	10	& 1.0372E-04_JPRB,9.2787E-05_JPRB,1.6660E-03_JPRB/)
1282			KAO( :, 4,13, 6) = (/&
1283			& 7.6630E-05_JPRB,1.0344E-04_JPRB,1.1345E-04_JPRB,1.1756E-04_JPRB,1.1782E-04_JPRB,1.1495E-04_JPRB,&
1284	✓✓	10	& 1.0877E-04_JPRB,9.7412E-05_JPRB,1.5932E-03_JPRB/)
1285			KAO( :, 5,13, 6) = (/&
1286			& 7.9007E-05_JPRB,1.0733E-04_JPRB,1.1787E-04_JPRB,1.2235E-04_JPRB,1.2303E-04_JPRB,1.2033E-04_JPRB,&
1287	✓✓	10	& 1.1390E-04_JPRB,1.0206E-04_JPRB,1.5265E-03_JPRB/)
1288			KAO( :, 1, 1, 7) = (/&
1289			& 4.6305E-04_JPRB,5.4556E-04_JPRB,6.0200E-04_JPRB,6.4863E-04_JPRB,6.8107E-04_JPRB,7.0420E-04_JPRB,&
1290	✓✓	10	& 7.2199E-04_JPRB,7.3085E-04_JPRB,6.7646E-04_JPRB/)
1291			KAO( :, 2, 1, 7) = (/&
1292			& 4.6301E-04_JPRB,5.5700E-04_JPRB,6.1674E-04_JPRB,6.6918E-04_JPRB,7.0683E-04_JPRB,7.3382E-04_JPRB,&
1293	✓✓	10	& 7.5720E-04_JPRB,7.6870E-04_JPRB,7.1353E-04_JPRB/)
1294			KAO( :, 3, 1, 7) = (/&
1295			& 4.6454E-04_JPRB,5.7050E-04_JPRB,6.3324E-04_JPRB,6.9016E-04_JPRB,7.3249E-04_JPRB,7.6632E-04_JPRB,&
1296	✓✓	10	& 7.9567E-04_JPRB,8.0915E-04_JPRB,7.5224E-04_JPRB/)
1297			KAO( :, 4, 1, 7) = (/&
1298			& 4.6651E-04_JPRB,5.8405E-04_JPRB,6.4895E-04_JPRB,7.1069E-04_JPRB,7.5837E-04_JPRB,7.9949E-04_JPRB,&
1299	✓✓	10	& 8.3506E-04_JPRB,8.5087E-04_JPRB,7.9164E-04_JPRB/)
1300			KAO( :, 5, 1, 7) = (/&
1301			& 4.7034E-04_JPRB,5.9930E-04_JPRB,6.6683E-04_JPRB,7.3355E-04_JPRB,7.8609E-04_JPRB,8.3312E-04_JPRB,&
1302	✓✓	10	& 8.7517E-04_JPRB,8.9333E-04_JPRB,8.3199E-04_JPRB/)
1303			KAO( :, 1, 2, 7) = (/&
1304			& 4.3178E-04_JPRB,5.0967E-04_JPRB,5.7208E-04_JPRB,6.1793E-04_JPRB,6.4678E-04_JPRB,6.6138E-04_JPRB,&
1305	✓✓	10	& 6.6815E-04_JPRB,6.6568E-04_JPRB,5.9744E-04_JPRB/)
1306			KAO( :, 2, 2, 7) = (/&
1307			& 4.3227E-04_JPRB,5.2067E-04_JPRB,5.8785E-04_JPRB,6.3795E-04_JPRB,6.7133E-04_JPRB,6.9007E-04_JPRB,&
1308	✓✓	10	& 7.0100E-04_JPRB,7.0211E-04_JPRB,6.3355E-04_JPRB/)
1309			KAO( :, 3, 2, 7) = (/&
1310			& 4.3414E-04_JPRB,5.3362E-04_JPRB,6.0473E-04_JPRB,6.5841E-04_JPRB,6.9567E-04_JPRB,7.2097E-04_JPRB,&
1311	✓✓	10	& 7.3754E-04_JPRB,7.4189E-04_JPRB,6.7066E-04_JPRB/)
1312			KAO( :, 4, 2, 7) = (/&
1313			& 4.3688E-04_JPRB,5.4677E-04_JPRB,6.2106E-04_JPRB,6.7900E-04_JPRB,7.2053E-04_JPRB,7.5255E-04_JPRB,&
1314	✓✓	10	& 7.7596E-04_JPRB,7.8317E-04_JPRB,7.0771E-04_JPRB/)
1315			KAO( :, 5, 2, 7) = (/&
1316			& 4.4026E-04_JPRB,5.6009E-04_JPRB,6.3723E-04_JPRB,6.9996E-04_JPRB,7.4621E-04_JPRB,7.8382E-04_JPRB,&
1317	✓✓	10	& 8.1411E-04_JPRB,8.2479E-04_JPRB,7.4663E-04_JPRB/)
1318			KAO( :, 1, 3, 7) = (/&
1319			& 4.0042E-04_JPRB,4.7588E-04_JPRB,5.3737E-04_JPRB,5.7848E-04_JPRB,6.0266E-04_JPRB,6.1092E-04_JPRB,&
1320	✓✓	10	& 6.0756E-04_JPRB,5.9389E-04_JPRB,5.1726E-04_JPRB/)
1321			KAO( :, 2, 3, 7) = (/&
1322			& 4.0139E-04_JPRB,4.8636E-04_JPRB,5.5256E-04_JPRB,5.9842E-04_JPRB,6.2668E-04_JPRB,6.3795E-04_JPRB,&
1323	✓✓	10	& 6.3723E-04_JPRB,6.2673E-04_JPRB,5.4890E-04_JPRB/)
1324			KAO( :, 3, 3, 7) = (/&
1325			& 4.0264E-04_JPRB,4.9818E-04_JPRB,5.6878E-04_JPRB,6.1775E-04_JPRB,6.4985E-04_JPRB,6.6625E-04_JPRB,&
1326	✓✓	10	& 6.6960E-04_JPRB,6.6297E-04_JPRB,5.8203E-04_JPRB/)
1327			KAO( :, 4, 3, 7) = (/&
1328			& 4.0594E-04_JPRB,5.1098E-04_JPRB,5.8559E-04_JPRB,6.3812E-04_JPRB,6.7417E-04_JPRB,6.9560E-04_JPRB,&
1329	✓✓	10	& 7.0436E-04_JPRB,7.0139E-04_JPRB,6.1550E-04_JPRB/)
1330			KAO( :, 5, 3, 7) = (/&
1331			& 4.0942E-04_JPRB,5.2279E-04_JPRB,6.0106E-04_JPRB,6.5810E-04_JPRB,6.9804E-04_JPRB,7.2431E-04_JPRB,&
1332	✓✓	10	& 7.3907E-04_JPRB,7.3980E-04_JPRB,6.5087E-04_JPRB/)
1333			KAO( :, 1, 4, 7) = (/&
1334			& 3.6954E-04_JPRB,4.4390E-04_JPRB,4.9967E-04_JPRB,5.3490E-04_JPRB,5.5341E-04_JPRB,5.5728E-04_JPRB,&
1335	✓✓	10	& 5.4744E-04_JPRB,5.2585E-04_JPRB,4.5076E-04_JPRB/)
1336			KAO( :, 2, 4, 7) = (/&
1337			& 3.7099E-04_JPRB,4.5452E-04_JPRB,5.1452E-04_JPRB,5.5410E-04_JPRB,5.7617E-04_JPRB,5.8227E-04_JPRB,&
1338	✓✓	10	& 5.7394E-04_JPRB,5.5446E-04_JPRB,4.7750E-04_JPRB/)
1339			KAO( :, 3, 4, 7) = (/&
1340			& 3.7261E-04_JPRB,4.6594E-04_JPRB,5.3039E-04_JPRB,5.7264E-04_JPRB,5.9783E-04_JPRB,6.0838E-04_JPRB,&
1341	✓✓	10	& 6.0270E-04_JPRB,5.8596E-04_JPRB,5.0606E-04_JPRB/)
1342			KAO( :, 4, 4, 7) = (/&
1343			& 3.7542E-04_JPRB,4.7733E-04_JPRB,5.4631E-04_JPRB,5.9142E-04_JPRB,6.2021E-04_JPRB,6.3532E-04_JPRB,&
1344	✓✓	10	& 6.3302E-04_JPRB,6.1929E-04_JPRB,5.3494E-04_JPRB/)
1345			KAO( :, 5, 4, 7) = (/&
1346			& 3.7994E-04_JPRB,4.8922E-04_JPRB,5.6238E-04_JPRB,6.1134E-04_JPRB,6.4405E-04_JPRB,6.6206E-04_JPRB,&
1347	✓✓	10	& 6.6409E-04_JPRB,6.5333E-04_JPRB,5.6564E-04_JPRB/)
1348			KAO( :, 1, 5, 7) = (/&
1349			& 3.4061E-04_JPRB,4.1228E-04_JPRB,4.6040E-04_JPRB,4.8986E-04_JPRB,5.0320E-04_JPRB,5.0314E-04_JPRB,&
1350	✓✓	10	& 4.9155E-04_JPRB,4.6563E-04_JPRB,3.9708E-04_JPRB/)
1351			KAO( :, 2, 5, 7) = (/&
1352			& 3.4265E-04_JPRB,4.2238E-04_JPRB,4.7497E-04_JPRB,5.0787E-04_JPRB,5.2436E-04_JPRB,5.2638E-04_JPRB,&
1353	✓✓	10	& 5.1586E-04_JPRB,4.9074E-04_JPRB,4.1980E-04_JPRB/)
1354			KAO( :, 3, 5, 7) = (/&
1355			& 3.4457E-04_JPRB,4.3316E-04_JPRB,4.9022E-04_JPRB,5.2547E-04_JPRB,5.4476E-04_JPRB,5.5018E-04_JPRB,&
1356	✓✓	10	& 5.4131E-04_JPRB,5.1767E-04_JPRB,4.4445E-04_JPRB/)
1357			KAO( :, 4, 5, 7) = (/&
1358			& 3.4732E-04_JPRB,4.4421E-04_JPRB,5.0540E-04_JPRB,5.4314E-04_JPRB,5.6518E-04_JPRB,5.7439E-04_JPRB,&
1359	✓✓	10	& 5.6831E-04_JPRB,5.4593E-04_JPRB,4.6962E-04_JPRB/)
1360			KAO( :, 5, 5, 7) = (/&
1361			& 3.5182E-04_JPRB,4.5580E-04_JPRB,5.2093E-04_JPRB,5.6187E-04_JPRB,5.8688E-04_JPRB,5.9917E-04_JPRB,&
1362	✓✓	10	& 5.9551E-04_JPRB,5.7498E-04_JPRB,4.9655E-04_JPRB/)
1363			KAO( :, 1, 6, 7) = (/&
1364			& 3.1397E-04_JPRB,3.8099E-04_JPRB,4.2085E-04_JPRB,4.4392E-04_JPRB,4.5344E-04_JPRB,4.5128E-04_JPRB,&
1365	✓✓	10	& 4.3795E-04_JPRB,4.1046E-04_JPRB,3.5811E-04_JPRB/)
1366			KAO( :, 2, 6, 7) = (/&
1367			& 3.1655E-04_JPRB,3.9053E-04_JPRB,4.3489E-04_JPRB,4.6069E-04_JPRB,4.7295E-04_JPRB,4.7284E-04_JPRB,&
1368	✓✓	10	& 4.6063E-04_JPRB,4.3290E-04_JPRB,3.7673E-04_JPRB/)
1369			KAO( :, 3, 6, 7) = (/&
1370			& 3.1898E-04_JPRB,4.0060E-04_JPRB,4.4896E-04_JPRB,4.7714E-04_JPRB,4.9199E-04_JPRB,4.9458E-04_JPRB,&
1371	✓✓	10	& 4.8353E-04_JPRB,4.5629E-04_JPRB,3.9672E-04_JPRB/)
1372			KAO( :, 4, 6, 7) = (/&
1373			& 3.2158E-04_JPRB,4.1129E-04_JPRB,4.6291E-04_JPRB,4.9376E-04_JPRB,5.1129E-04_JPRB,5.1624E-04_JPRB,&
1374	✓✓	10	& 5.0719E-04_JPRB,4.8049E-04_JPRB,4.1801E-04_JPRB/)
1375			KAO( :, 5, 6, 7) = (/&
1376			& 3.2502E-04_JPRB,4.2183E-04_JPRB,4.7677E-04_JPRB,5.1073E-04_JPRB,5.3095E-04_JPRB,5.3777E-04_JPRB,&
1377	✓✓	10	& 5.3107E-04_JPRB,5.0560E-04_JPRB,4.4095E-04_JPRB/)
1378			KAO( :, 1, 7, 7) = (/&
1379			& 2.8858E-04_JPRB,3.5072E-04_JPRB,3.8244E-04_JPRB,3.9969E-04_JPRB,4.0628E-04_JPRB,4.0266E-04_JPRB,&
1380	✓✓	10	& 3.8820E-04_JPRB,3.6095E-04_JPRB,3.4917E-04_JPRB/)
1381			KAO( :, 2, 7, 7) = (/&
1382			& 2.9154E-04_JPRB,3.5995E-04_JPRB,3.9513E-04_JPRB,4.1562E-04_JPRB,4.2428E-04_JPRB,4.2225E-04_JPRB,&
1383	✓✓	10	& 4.0848E-04_JPRB,3.8100E-04_JPRB,3.6556E-04_JPRB/)
1384			KAO( :, 3, 7, 7) = (/&
1385			& 2.9427E-04_JPRB,3.6955E-04_JPRB,4.0818E-04_JPRB,4.3070E-04_JPRB,4.4206E-04_JPRB,4.4209E-04_JPRB,&
1386	✓✓	10	& 4.2902E-04_JPRB,4.0153E-04_JPRB,3.8273E-04_JPRB/)
1387			KAO( :, 4, 7, 7) = (/&
1388			& 2.9693E-04_JPRB,3.7937E-04_JPRB,4.2130E-04_JPRB,4.4602E-04_JPRB,4.5975E-04_JPRB,4.6189E-04_JPRB,&
1389	✓✓	10	& 4.5029E-04_JPRB,4.2249E-04_JPRB,4.0122E-04_JPRB/)
1390			KAO( :, 5, 7, 7) = (/&
1391			& 3.0032E-04_JPRB,3.8893E-04_JPRB,4.3431E-04_JPRB,4.6164E-04_JPRB,4.7805E-04_JPRB,4.8151E-04_JPRB,&
1392	✓✓	10	& 4.7139E-04_JPRB,4.4430E-04_JPRB,4.2113E-04_JPRB/)
1393			KAO( :, 1, 8, 7) = (/&
1394			& 2.6433E-04_JPRB,3.2164E-04_JPRB,3.4678E-04_JPRB,3.5895E-04_JPRB,3.6313E-04_JPRB,3.5828E-04_JPRB,&
1395	✓✓	10	& 3.4379E-04_JPRB,3.1784E-04_JPRB,3.8325E-04_JPRB/)
1396			KAO( :, 2, 8, 7) = (/&
1397			& 2.6764E-04_JPRB,3.3079E-04_JPRB,3.5818E-04_JPRB,3.7326E-04_JPRB,3.7969E-04_JPRB,3.7570E-04_JPRB,&
1398	✓✓	10	& 3.6173E-04_JPRB,3.3531E-04_JPRB,3.9627E-04_JPRB/)
1399			KAO( :, 3, 8, 7) = (/&
1400			& 2.7049E-04_JPRB,3.3967E-04_JPRB,3.6984E-04_JPRB,3.8764E-04_JPRB,3.9567E-04_JPRB,3.9347E-04_JPRB,&
1401	✓✓	10	& 3.7992E-04_JPRB,3.5345E-04_JPRB,4.1157E-04_JPRB/)
1402			KAO( :, 4, 8, 7) = (/&
1403			& 2.7332E-04_JPRB,3.4840E-04_JPRB,3.8188E-04_JPRB,4.0186E-04_JPRB,4.1166E-04_JPRB,4.1115E-04_JPRB,&
1404	✓✓	10	& 3.9867E-04_JPRB,3.7201E-04_JPRB,4.2882E-04_JPRB/)
1405			KAO( :, 5, 8, 7) = (/&
1406			& 2.7670E-04_JPRB,3.5697E-04_JPRB,3.9392E-04_JPRB,4.1633E-04_JPRB,4.2814E-04_JPRB,4.2877E-04_JPRB,&
1407	✓✓	10	& 4.1760E-04_JPRB,3.9091E-04_JPRB,4.4711E-04_JPRB/)
1408			KAO( :, 1, 9, 7) = (/&
1409			& 2.4137E-04_JPRB,2.9350E-04_JPRB,3.1375E-04_JPRB,3.2233E-04_JPRB,3.2400E-04_JPRB,3.1859E-04_JPRB,&
1410	✓✓	10	& 3.0441E-04_JPRB,2.7946E-04_JPRB,7.4112E-04_JPRB/)
1411			KAO( :, 2, 9, 7) = (/&
1412			& 2.4480E-04_JPRB,3.0210E-04_JPRB,3.2420E-04_JPRB,3.3517E-04_JPRB,3.3871E-04_JPRB,3.3414E-04_JPRB,&
1413	✓✓	10	& 3.2021E-04_JPRB,2.9498E-04_JPRB,7.2877E-04_JPRB/)
1414			KAO( :, 3, 9, 7) = (/&
1415			& 2.4785E-04_JPRB,3.1022E-04_JPRB,3.3497E-04_JPRB,3.4812E-04_JPRB,3.5338E-04_JPRB,3.4970E-04_JPRB,&
1416	✓✓	10	& 3.3648E-04_JPRB,3.1095E-04_JPRB,7.2183E-04_JPRB/)
1417			KAO( :, 4, 9, 7) = (/&
1418			& 2.5068E-04_JPRB,3.1830E-04_JPRB,3.4602E-04_JPRB,3.6150E-04_JPRB,3.6764E-04_JPRB,3.6525E-04_JPRB,&
1419	✓✓	10	& 3.5301E-04_JPRB,3.2741E-04_JPRB,7.2069E-04_JPRB/)
1420			KAO( :, 5, 9, 7) = (/&
1421			& 2.5395E-04_JPRB,3.2629E-04_JPRB,3.5706E-04_JPRB,3.7496E-04_JPRB,3.8230E-04_JPRB,3.8101E-04_JPRB,&
1422	✓✓	10	& 3.6964E-04_JPRB,3.4426E-04_JPRB,7.2393E-04_JPRB/)
1423			KAO( :, 1,10, 7) = (/&
1424			& 2.1916E-04_JPRB,2.6728E-04_JPRB,2.8357E-04_JPRB,2.9003E-04_JPRB,2.9019E-04_JPRB,2.8394E-04_JPRB,&
1425	✓✓	10	& 2.6987E-04_JPRB,2.4557E-04_JPRB,2.2951E-03_JPRB/)
1426			KAO( :, 2,10, 7) = (/&
1427			& 2.2269E-04_JPRB,2.7508E-04_JPRB,2.9328E-04_JPRB,3.0170E-04_JPRB,3.0330E-04_JPRB,2.9810E-04_JPRB,&
1428	✓✓	10	& 2.8439E-04_JPRB,2.5963E-04_JPRB,2.1937E-03_JPRB/)
1429			KAO( :, 3,10, 7) = (/&
1430			& 2.2592E-04_JPRB,2.8247E-04_JPRB,3.0321E-04_JPRB,3.1354E-04_JPRB,3.1659E-04_JPRB,3.1208E-04_JPRB,&
1431	✓✓	10	& 2.9880E-04_JPRB,2.7415E-04_JPRB,2.1089E-03_JPRB/)
1432			KAO( :, 4,10, 7) = (/&
1433			& 2.2891E-04_JPRB,2.8992E-04_JPRB,3.1332E-04_JPRB,3.2558E-04_JPRB,3.2968E-04_JPRB,3.2576E-04_JPRB,&
1434	✓✓	10	& 3.1353E-04_JPRB,2.8898E-04_JPRB,2.0353E-03_JPRB/)
1435			KAO( :, 5,10, 7) = (/&
1436			& 2.3224E-04_JPRB,2.9740E-04_JPRB,3.2354E-04_JPRB,3.3796E-04_JPRB,3.4280E-04_JPRB,3.3971E-04_JPRB,&
1437	✓✓	10	& 3.2827E-04_JPRB,3.0414E-04_JPRB,1.9694E-03_JPRB/)
1438			KAO( :, 1,11, 7) = (/&
1439			& 1.9917E-04_JPRB,2.4536E-04_JPRB,2.5993E-04_JPRB,2.6557E-04_JPRB,2.6515E-04_JPRB,2.5837E-04_JPRB,&
1440	✓✓	10	& 2.4462E-04_JPRB,2.2066E-04_JPRB,3.1341E-03_JPRB/)
1441			KAO( :, 2,11, 7) = (/&
1442			& 2.0264E-04_JPRB,2.5224E-04_JPRB,2.6895E-04_JPRB,2.7632E-04_JPRB,2.7737E-04_JPRB,2.7142E-04_JPRB,&
1443	✓✓	10	& 2.5767E-04_JPRB,2.3346E-04_JPRB,2.9845E-03_JPRB/)
1444			KAO( :, 3,11, 7) = (/&
1445			& 2.0597E-04_JPRB,2.5913E-04_JPRB,2.7799E-04_JPRB,2.8723E-04_JPRB,2.8930E-04_JPRB,2.8411E-04_JPRB,&
1446	✓✓	10	& 2.7068E-04_JPRB,2.4666E-04_JPRB,2.8531E-03_JPRB/)
1447			KAO( :, 4,11, 7) = (/&
1448			& 2.0923E-04_JPRB,2.6606E-04_JPRB,2.8717E-04_JPRB,2.9817E-04_JPRB,3.0130E-04_JPRB,2.9662E-04_JPRB,&
1449	✓✓	10	& 2.8382E-04_JPRB,2.6011E-04_JPRB,2.7344E-03_JPRB/)
1450			KAO( :, 5,11, 7) = (/&
1451			& 2.1283E-04_JPRB,2.7325E-04_JPRB,2.9677E-04_JPRB,3.0938E-04_JPRB,3.1326E-04_JPRB,3.0919E-04_JPRB,&
1452	✓✓	10	& 2.9712E-04_JPRB,2.7384E-04_JPRB,2.6277E-03_JPRB/)
1453			KAO( :, 1,12, 7) = (/&
1454			& 1.7936E-04_JPRB,2.2328E-04_JPRB,2.3724E-04_JPRB,2.4243E-04_JPRB,2.4172E-04_JPRB,2.3478E-04_JPRB,&
1455	✓✓	10	& 2.2093E-04_JPRB,1.9737E-04_JPRB,3.2835E-03_JPRB/)
1456			KAO( :, 2,12, 7) = (/&
1457			& 1.8285E-04_JPRB,2.2978E-04_JPRB,2.4543E-04_JPRB,2.5241E-04_JPRB,2.5294E-04_JPRB,2.4651E-04_JPRB,&
1458	✓✓	10	& 2.3266E-04_JPRB,2.0912E-04_JPRB,3.1216E-03_JPRB/)
1459			KAO( :, 3,12, 7) = (/&
1460			& 1.8634E-04_JPRB,2.3640E-04_JPRB,2.5382E-04_JPRB,2.6232E-04_JPRB,2.6378E-04_JPRB,2.5795E-04_JPRB,&
1461	✓✓	10	& 2.4444E-04_JPRB,2.2095E-04_JPRB,2.9752E-03_JPRB/)
1462			KAO( :, 4,12, 7) = (/&
1463			& 1.8978E-04_JPRB,2.4319E-04_JPRB,2.6232E-04_JPRB,2.7232E-04_JPRB,2.7477E-04_JPRB,2.6960E-04_JPRB,&
1464	✓✓	10	& 2.5603E-04_JPRB,2.3306E-04_JPRB,2.8433E-03_JPRB/)
1465			KAO( :, 5,12, 7) = (/&
1466			& 1.9368E-04_JPRB,2.5043E-04_JPRB,2.7137E-04_JPRB,2.8261E-04_JPRB,2.8588E-04_JPRB,2.8109E-04_JPRB,&
1467	✓✓	10	& 2.6784E-04_JPRB,2.4548E-04_JPRB,2.7264E-03_JPRB/)
1468			KAO( :, 1,13, 7) = (/&
1469			& 1.6014E-04_JPRB,2.0144E-04_JPRB,2.1482E-04_JPRB,2.1993E-04_JPRB,2.1918E-04_JPRB,2.1245E-04_JPRB,&
1470	✓✓	10	& 1.9850E-04_JPRB,1.7572E-04_JPRB,2.8014E-03_JPRB/)
1471			KAO( :, 2,13, 7) = (/&
1472			& 1.6372E-04_JPRB,2.0772E-04_JPRB,2.2263E-04_JPRB,2.2918E-04_JPRB,2.2929E-04_JPRB,2.2295E-04_JPRB,&
1473	✓✓	10	& 2.0909E-04_JPRB,1.8627E-04_JPRB,2.6597E-03_JPRB/)
1474			KAO( :, 3,13, 7) = (/&
1475			& 1.6711E-04_JPRB,2.1423E-04_JPRB,2.3053E-04_JPRB,2.3833E-04_JPRB,2.3922E-04_JPRB,2.3334E-04_JPRB,&
1476	✓✓	10	& 2.1968E-04_JPRB,1.9695E-04_JPRB,2.5327E-03_JPRB/)
1477			KAO( :, 4,13, 7) = (/&
1478			& 1.7075E-04_JPRB,2.2099E-04_JPRB,2.3863E-04_JPRB,2.4766E-04_JPRB,2.4941E-04_JPRB,2.4382E-04_JPRB,&
1479	✓✓	10	& 2.3022E-04_JPRB,2.0776E-04_JPRB,2.4204E-03_JPRB/)
1480			KAO( :, 5,13, 7) = (/&
1481			& 1.7481E-04_JPRB,2.2827E-04_JPRB,2.4735E-04_JPRB,2.5731E-04_JPRB,2.5972E-04_JPRB,2.5434E-04_JPRB,&
1482	✓✓	10	& 2.4101E-04_JPRB,2.1916E-04_JPRB,2.3207E-03_JPRB/)
1483			KAO( :, 1, 1, 8) = (/&
1484			& 9.5608E-04_JPRB,1.1137E-03_JPRB,1.1928E-03_JPRB,1.2676E-03_JPRB,1.3453E-03_JPRB,1.4201E-03_JPRB,&
1485	✓✓	10	& 1.4858E-03_JPRB,1.4985E-03_JPRB,1.3296E-03_JPRB/)
1486			KAO( :, 2, 1, 8) = (/&
1487			& 9.5994E-04_JPRB,1.1580E-03_JPRB,1.2586E-03_JPRB,1.3444E-03_JPRB,1.4304E-03_JPRB,1.5065E-03_JPRB,&
1488	✓✓	10	& 1.5698E-03_JPRB,1.5822E-03_JPRB,1.4127E-03_JPRB/)
1489			KAO( :, 3, 1, 8) = (/&
1490			& 9.6434E-04_JPRB,1.2039E-03_JPRB,1.3295E-03_JPRB,1.4283E-03_JPRB,1.5240E-03_JPRB,1.6021E-03_JPRB,&
1491	✓✓	10	& 1.6610E-03_JPRB,1.6690E-03_JPRB,1.4964E-03_JPRB/)
1492			KAO( :, 4, 1, 8) = (/&
1493			& 9.6594E-04_JPRB,1.2459E-03_JPRB,1.3992E-03_JPRB,1.5151E-03_JPRB,1.6213E-03_JPRB,1.7037E-03_JPRB,&
1494	✓✓	10	& 1.7586E-03_JPRB,1.7581E-03_JPRB,1.5822E-03_JPRB/)
1495			KAO( :, 5, 1, 8) = (/&
1496			& 9.7112E-04_JPRB,1.2922E-03_JPRB,1.4733E-03_JPRB,1.6088E-03_JPRB,1.7251E-03_JPRB,1.8137E-03_JPRB,&
1497	✓✓	10	& 1.8637E-03_JPRB,1.8544E-03_JPRB,1.6729E-03_JPRB/)
1498			KAO( :, 1, 2, 8) = (/&
1499			& 9.2093E-04_JPRB,1.0546E-03_JPRB,1.1184E-03_JPRB,1.1877E-03_JPRB,1.2677E-03_JPRB,1.3451E-03_JPRB,&
1500	✓✓	10	& 1.4085E-03_JPRB,1.4282E-03_JPRB,1.2587E-03_JPRB/)
1501			KAO( :, 2, 2, 8) = (/&
1502			& 9.2391E-04_JPRB,1.0934E-03_JPRB,1.1705E-03_JPRB,1.2485E-03_JPRB,1.3345E-03_JPRB,1.4205E-03_JPRB,&
1503	✓✓	10	& 1.4904E-03_JPRB,1.5108E-03_JPRB,1.3375E-03_JPRB/)
1504			KAO( :, 3, 2, 8) = (/&
1505			& 9.2775E-04_JPRB,1.1328E-03_JPRB,1.2272E-03_JPRB,1.3169E-03_JPRB,1.4101E-03_JPRB,1.5006E-03_JPRB,&
1506	✓✓	10	& 1.5743E-03_JPRB,1.5928E-03_JPRB,1.4152E-03_JPRB/)
1507			KAO( :, 4, 2, 8) = (/&
1508			& 9.3033E-04_JPRB,1.1705E-03_JPRB,1.2842E-03_JPRB,1.3889E-03_JPRB,1.4909E-03_JPRB,1.5847E-03_JPRB,&
1509	✓✓	10	& 1.6559E-03_JPRB,1.6749E-03_JPRB,1.4953E-03_JPRB/)
1510			KAO( :, 5, 2, 8) = (/&
1511			& 9.3350E-04_JPRB,1.2078E-03_JPRB,1.3426E-03_JPRB,1.4642E-03_JPRB,1.5755E-03_JPRB,1.6738E-03_JPRB,&
1512	✓✓	10	& 1.7416E-03_JPRB,1.7599E-03_JPRB,1.5794E-03_JPRB/)
1513			KAO( :, 1, 3, 8) = (/&
1514			& 8.8225E-04_JPRB,9.9524E-04_JPRB,1.0564E-03_JPRB,1.1307E-03_JPRB,1.2003E-03_JPRB,1.2591E-03_JPRB,&
1515	✓✓	10	& 1.3108E-03_JPRB,1.3309E-03_JPRB,1.1549E-03_JPRB/)
1516			KAO( :, 2, 3, 8) = (/&
1517			& 8.8537E-04_JPRB,1.0284E-03_JPRB,1.0990E-03_JPRB,1.1784E-03_JPRB,1.2595E-03_JPRB,1.3310E-03_JPRB,&
1518	✓✓	10	& 1.3892E-03_JPRB,1.4138E-03_JPRB,1.2306E-03_JPRB/)
1519			KAO( :, 3, 3, 8) = (/&
1520			& 8.8781E-04_JPRB,1.0600E-03_JPRB,1.1442E-03_JPRB,1.2314E-03_JPRB,1.3222E-03_JPRB,1.4061E-03_JPRB,&
1521	✓✓	10	& 1.4693E-03_JPRB,1.4932E-03_JPRB,1.3048E-03_JPRB/)
1522			KAO( :, 4, 3, 8) = (/&
1523			& 8.9189E-04_JPRB,1.0939E-03_JPRB,1.1921E-03_JPRB,1.2907E-03_JPRB,1.3886E-03_JPRB,1.4820E-03_JPRB,&
1524	✓✓	10	& 1.5492E-03_JPRB,1.5703E-03_JPRB,1.3811E-03_JPRB/)
1525			KAO( :, 5, 3, 8) = (/&
1526			& 8.9438E-04_JPRB,1.1258E-03_JPRB,1.2397E-03_JPRB,1.3504E-03_JPRB,1.4556E-03_JPRB,1.5581E-03_JPRB,&
1527	✓✓	10	& 1.6301E-03_JPRB,1.6498E-03_JPRB,1.4607E-03_JPRB/)
1528			KAO( :, 1, 4, 8) = (/&
1529			& 8.3849E-04_JPRB,9.3566E-04_JPRB,1.0099E-03_JPRB,1.0816E-03_JPRB,1.1344E-03_JPRB,1.1752E-03_JPRB,&
1530	✓✓	10	& 1.2048E-03_JPRB,1.2139E-03_JPRB,1.0399E-03_JPRB/)
1531			KAO( :, 2, 4, 8) = (/&
1532			& 8.4244E-04_JPRB,9.6570E-04_JPRB,1.0454E-03_JPRB,1.1259E-03_JPRB,1.1888E-03_JPRB,1.2423E-03_JPRB,&
1533	✓✓	10	& 1.2800E-03_JPRB,1.2943E-03_JPRB,1.1122E-03_JPRB/)
1534			KAO( :, 3, 4, 8) = (/&
1535			& 8.4472E-04_JPRB,9.9456E-04_JPRB,1.0829E-03_JPRB,1.1722E-03_JPRB,1.2472E-03_JPRB,1.3102E-03_JPRB,&
1536	✓✓	10	& 1.3565E-03_JPRB,1.3722E-03_JPRB,1.1831E-03_JPRB/)
1537			KAO( :, 4, 4, 8) = (/&
1538			& 8.4703E-04_JPRB,1.0229E-03_JPRB,1.1215E-03_JPRB,1.2221E-03_JPRB,1.3077E-03_JPRB,1.3778E-03_JPRB,&
1539	✓✓	10	& 1.4318E-03_JPRB,1.4488E-03_JPRB,1.2549E-03_JPRB/)
1540			KAO( :, 5, 4, 8) = (/&
1541			& 8.5239E-04_JPRB,1.0541E-03_JPRB,1.1634E-03_JPRB,1.2735E-03_JPRB,1.3695E-03_JPRB,1.4485E-03_JPRB,&
1542	✓✓	10	& 1.5090E-03_JPRB,1.5277E-03_JPRB,1.3292E-03_JPRB/)
1543			KAO( :, 1, 5, 8) = (/&
1544			& 7.9083E-04_JPRB,8.8170E-04_JPRB,9.6674E-04_JPRB,1.0299E-03_JPRB,1.0698E-03_JPRB,1.0915E-03_JPRB,&
1545	✓✓	10	& 1.0968E-03_JPRB,1.0912E-03_JPRB,9.3090E-04_JPRB/)
1546			KAO( :, 2, 5, 8) = (/&
1547			& 7.9562E-04_JPRB,9.0868E-04_JPRB,9.9995E-04_JPRB,1.0720E-03_JPRB,1.1213E-03_JPRB,1.1526E-03_JPRB,&
1548	✓✓	10	& 1.1662E-03_JPRB,1.1662E-03_JPRB,9.9625E-04_JPRB/)
1549
1550	✓✗	1	IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART5',1,ZHOOK_HANDLE)
1551		1	END SUBROUTINE PART5
1552
1553
1554		1	SUBROUTINE PART6
1555
1556			REAL(KIND=JPRB) :: ZHOOK_HANDLE
1557	✓✗	1	IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART6',0,ZHOOK_HANDLE)
1558
1559
1560			KAO( :, 3, 5, 8) = (/&
1561			& 7.9829E-04_JPRB,9.3547E-04_JPRB,1.0342E-03_JPRB,1.1161E-03_JPRB,1.1759E-03_JPRB,1.2152E-03_JPRB,&
1562	✓✓	10	& 1.2368E-03_JPRB,1.2405E-03_JPRB,1.0609E-03_JPRB/)
1563			KAO( :, 4, 5, 8) = (/&
1564			& 8.0091E-04_JPRB,9.6089E-04_JPRB,1.0686E-03_JPRB,1.1624E-03_JPRB,1.2313E-03_JPRB,1.2778E-03_JPRB,&
1565	✓✓	10	& 1.3076E-03_JPRB,1.3141E-03_JPRB,1.1274E-03_JPRB/)
1566			KAO( :, 5, 5, 8) = (/&
1567			& 8.0636E-04_JPRB,9.8796E-04_JPRB,1.1047E-03_JPRB,1.2088E-03_JPRB,1.2883E-03_JPRB,1.3425E-03_JPRB,&
1568	✓✓	10	& 1.3805E-03_JPRB,1.3900E-03_JPRB,1.1960E-03_JPRB/)
1569			KAO( :, 1, 6, 8) = (/&
1570			& 7.4042E-04_JPRB,8.3357E-04_JPRB,9.1717E-04_JPRB,9.7114E-04_JPRB,1.0002E-03_JPRB,1.0057E-03_JPRB,&
1571	✓✓	10	& 9.9270E-04_JPRB,9.6792E-04_JPRB,8.3659E-04_JPRB/)
1572			KAO( :, 2, 6, 8) = (/&
1573			& 7.4565E-04_JPRB,8.5743E-04_JPRB,9.4912E-04_JPRB,1.0119E-03_JPRB,1.0480E-03_JPRB,1.0602E-03_JPRB,&
1574	✓✓	10	& 1.0545E-03_JPRB,1.0369E-03_JPRB,8.9582E-04_JPRB/)
1575			KAO( :, 3, 6, 8) = (/&
1576			& 7.4922E-04_JPRB,8.8128E-04_JPRB,9.8142E-04_JPRB,1.0542E-03_JPRB,1.0980E-03_JPRB,1.1167E-03_JPRB,&
1577	✓✓	10	& 1.1185E-03_JPRB,1.1056E-03_JPRB,9.5443E-04_JPRB/)
1578			KAO( :, 4, 6, 8) = (/&
1579			& 7.5232E-04_JPRB,9.0308E-04_JPRB,1.0141E-03_JPRB,1.0981E-03_JPRB,1.1486E-03_JPRB,1.1744E-03_JPRB,&
1580	✓✓	10	& 1.1833E-03_JPRB,1.1741E-03_JPRB,1.0132E-03_JPRB/)
1581			KAO( :, 5, 6, 8) = (/&
1582			& 7.5627E-04_JPRB,9.2523E-04_JPRB,1.0466E-03_JPRB,1.1406E-03_JPRB,1.2001E-03_JPRB,1.2335E-03_JPRB,&
1583	✓✓	10	& 1.2490E-03_JPRB,1.2439E-03_JPRB,1.0736E-03_JPRB/)
1584			KAO( :, 1, 7, 8) = (/&
1585			& 6.8964E-04_JPRB,7.8723E-04_JPRB,8.6407E-04_JPRB,9.0570E-04_JPRB,9.2461E-04_JPRB,9.2134E-04_JPRB,&
1586	✓✓	10	& 8.9655E-04_JPRB,8.5470E-04_JPRB,7.7227E-04_JPRB/)
1587			KAO( :, 2, 7, 8) = (/&
1588			& 6.9565E-04_JPRB,8.0904E-04_JPRB,8.9444E-04_JPRB,9.4366E-04_JPRB,9.6915E-04_JPRB,9.7063E-04_JPRB,&
1589	✓✓	10	& 9.5066E-04_JPRB,9.1508E-04_JPRB,8.2464E-04_JPRB/)
1590			KAO( :, 3, 7, 8) = (/&
1591			& 7.0042E-04_JPRB,8.3032E-04_JPRB,9.2461E-04_JPRB,9.8296E-04_JPRB,1.0152E-03_JPRB,1.0214E-03_JPRB,&
1592	✓✓	10	& 1.0076E-03_JPRB,9.7640E-04_JPRB,8.7766E-04_JPRB/)
1593			KAO( :, 4, 7, 8) = (/&
1594			& 7.0426E-04_JPRB,8.4981E-04_JPRB,9.5485E-04_JPRB,1.0240E-03_JPRB,1.0623E-03_JPRB,1.0734E-03_JPRB,&
1595	✓✓	10	& 1.0651E-03_JPRB,1.0378E-03_JPRB,9.3187E-04_JPRB/)
1596			KAO( :, 5, 7, 8) = (/&
1597			& 7.0821E-04_JPRB,8.6946E-04_JPRB,9.8537E-04_JPRB,1.0646E-03_JPRB,1.1098E-03_JPRB,1.1263E-03_JPRB,&
1598	✓✓	10	& 1.1245E-03_JPRB,1.1007E-03_JPRB,9.8663E-04_JPRB/)
1599			KAO( :, 1, 8, 8) = (/&
1600			& 6.4047E-04_JPRB,7.3858E-04_JPRB,8.0453E-04_JPRB,8.3694E-04_JPRB,8.4619E-04_JPRB,8.3765E-04_JPRB,&
1601	✓✓	10	& 8.0766E-04_JPRB,7.5466E-04_JPRB,8.2781E-04_JPRB/)
1602			KAO( :, 2, 8, 8) = (/&
1603			& 6.4742E-04_JPRB,7.5904E-04_JPRB,8.3405E-04_JPRB,8.7266E-04_JPRB,8.8676E-04_JPRB,8.8236E-04_JPRB,&
1604	✓✓	10	& 8.5570E-04_JPRB,8.0688E-04_JPRB,8.7433E-04_JPRB/)
1605			KAO( :, 3, 8, 8) = (/&
1606			& 6.5283E-04_JPRB,7.7980E-04_JPRB,8.6316E-04_JPRB,9.0850E-04_JPRB,9.2898E-04_JPRB,9.2841E-04_JPRB,&
1607	✓✓	10	& 9.0551E-04_JPRB,8.6048E-04_JPRB,9.2376E-04_JPRB/)
1608			KAO( :, 4, 8, 8) = (/&
1609			& 6.5707E-04_JPRB,7.9894E-04_JPRB,8.9224E-04_JPRB,9.4602E-04_JPRB,9.7258E-04_JPRB,9.7562E-04_JPRB,&
1610	✓✓	10	& 9.5565E-04_JPRB,9.1442E-04_JPRB,9.7371E-04_JPRB/)
1611			KAO( :, 5, 8, 8) = (/&
1612			& 6.6119E-04_JPRB,8.1764E-04_JPRB,9.2118E-04_JPRB,9.8357E-04_JPRB,1.0164E-03_JPRB,1.0233E-03_JPRB,&
1613	✓✓	10	& 1.0075E-03_JPRB,9.7011E-04_JPRB,1.0250E-03_JPRB/)
1614			KAO( :, 1, 9, 8) = (/&
1615			& 5.9304E-04_JPRB,6.8835E-04_JPRB,7.4179E-04_JPRB,7.6634E-04_JPRB,7.7050E-04_JPRB,7.5604E-04_JPRB,&
1616	✓✓	10	& 7.2393E-04_JPRB,6.6767E-04_JPRB,1.3527E-03_JPRB/)
1617			KAO( :, 2, 9, 8) = (/&
1618			& 6.0061E-04_JPRB,7.0826E-04_JPRB,7.7005E-04_JPRB,7.9970E-04_JPRB,8.0682E-04_JPRB,7.9622E-04_JPRB,&
1619	✓✓	10	& 7.6713E-04_JPRB,7.1229E-04_JPRB,1.3810E-03_JPRB/)
1620			KAO( :, 3, 9, 8) = (/&
1621			& 6.0690E-04_JPRB,7.2826E-04_JPRB,7.9782E-04_JPRB,8.3277E-04_JPRB,8.4414E-04_JPRB,8.3763E-04_JPRB,&
1622	✓✓	10	& 8.1182E-04_JPRB,7.5863E-04_JPRB,1.4228E-03_JPRB/)
1623			KAO( :, 4, 9, 8) = (/&
1624			& 6.1167E-04_JPRB,7.4710E-04_JPRB,8.2533E-04_JPRB,8.6687E-04_JPRB,8.8342E-04_JPRB,8.8028E-04_JPRB,&
1625	✓✓	10	& 8.5678E-04_JPRB,8.0590E-04_JPRB,1.4759E-03_JPRB/)
1626			KAO( :, 5, 9, 8) = (/&
1627			& 6.1627E-04_JPRB,7.6539E-04_JPRB,8.5255E-04_JPRB,9.0125E-04_JPRB,9.2320E-04_JPRB,9.2321E-04_JPRB,&
1628	✓✓	10	& 9.0266E-04_JPRB,8.5442E-04_JPRB,1.5365E-03_JPRB/)
1629			KAO( :, 1,10, 8) = (/&
1630			& 5.4825E-04_JPRB,6.3891E-04_JPRB,6.8254E-04_JPRB,7.0037E-04_JPRB,6.9928E-04_JPRB,6.8268E-04_JPRB,&
1631	✓✓	10	& 6.4957E-04_JPRB,5.9476E-04_JPRB,3.8180E-03_JPRB/)
1632			KAO( :, 2,10, 8) = (/&
1633			& 5.5676E-04_JPRB,6.5829E-04_JPRB,7.0890E-04_JPRB,7.3100E-04_JPRB,7.3257E-04_JPRB,7.1817E-04_JPRB,&
1634	✓✓	10	& 6.8748E-04_JPRB,6.3344E-04_JPRB,3.7319E-03_JPRB/)
1635			KAO( :, 3,10, 8) = (/&
1636			& 5.6387E-04_JPRB,6.7778E-04_JPRB,7.3493E-04_JPRB,7.6099E-04_JPRB,7.6595E-04_JPRB,7.5519E-04_JPRB,&
1637	✓✓	10	& 7.2717E-04_JPRB,6.7342E-04_JPRB,3.6841E-03_JPRB/)
1638			KAO( :, 4,10, 8) = (/&
1639			& 5.6965E-04_JPRB,6.9628E-04_JPRB,7.6095E-04_JPRB,7.9168E-04_JPRB,8.0061E-04_JPRB,7.9369E-04_JPRB,&
1640	✓✓	10	& 7.6769E-04_JPRB,7.1402E-04_JPRB,3.6718E-03_JPRB/)
1641			KAO( :, 5,10, 8) = (/&
1642			& 5.7483E-04_JPRB,7.1426E-04_JPRB,7.8640E-04_JPRB,8.2247E-04_JPRB,8.3634E-04_JPRB,8.3289E-04_JPRB,&
1643	✓✓	10	& 8.0894E-04_JPRB,7.5561E-04_JPRB,3.6884E-03_JPRB/)
1644			KAO( :, 1,11, 8) = (/&
1645			& 5.0971E-04_JPRB,5.9908E-04_JPRB,6.3716E-04_JPRB,6.5075E-04_JPRB,6.4646E-04_JPRB,6.2883E-04_JPRB,&
1646	✓✓	10	& 5.9611E-04_JPRB,5.4516E-04_JPRB,5.2044E-03_JPRB/)
1647			KAO( :, 2,11, 8) = (/&
1648			& 5.1851E-04_JPRB,6.1830E-04_JPRB,6.6103E-04_JPRB,6.7814E-04_JPRB,6.7644E-04_JPRB,6.6100E-04_JPRB,&
1649	✓✓	10	& 6.3054E-04_JPRB,5.7922E-04_JPRB,5.0472E-03_JPRB/)
1650			KAO( :, 3,11, 8) = (/&
1651			& 5.2576E-04_JPRB,6.3685E-04_JPRB,6.8508E-04_JPRB,7.0561E-04_JPRB,7.0702E-04_JPRB,6.9454E-04_JPRB,&
1652	✓✓	10	& 6.6622E-04_JPRB,6.1448E-04_JPRB,4.9485E-03_JPRB/)
1653			KAO( :, 4,11, 8) = (/&
1654			& 5.3230E-04_JPRB,6.5426E-04_JPRB,7.0906E-04_JPRB,7.3336E-04_JPRB,7.3854E-04_JPRB,7.2917E-04_JPRB,&
1655	✓✓	10	& 7.0247E-04_JPRB,6.5031E-04_JPRB,4.8945E-03_JPRB/)
1656			KAO( :, 5,11, 8) = (/&
1657			& 5.3825E-04_JPRB,6.7152E-04_JPRB,7.3265E-04_JPRB,7.6088E-04_JPRB,7.7057E-04_JPRB,7.6479E-04_JPRB,&
1658	✓✓	10	& 7.3945E-04_JPRB,6.8664E-04_JPRB,4.8718E-03_JPRB/)
1659			KAO( :, 1,12, 8) = (/&
1660			& 4.7268E-04_JPRB,5.5911E-04_JPRB,5.9221E-04_JPRB,6.0202E-04_JPRB,5.9599E-04_JPRB,5.7673E-04_JPRB,&
1661	✓✓	10	& 5.4567E-04_JPRB,4.9766E-04_JPRB,5.4784E-03_JPRB/)
1662			KAO( :, 2,12, 8) = (/&
1663			& 4.8142E-04_JPRB,5.7788E-04_JPRB,6.1435E-04_JPRB,6.2655E-04_JPRB,6.2325E-04_JPRB,6.0670E-04_JPRB,&
1664	✓✓	10	& 5.7673E-04_JPRB,5.2800E-04_JPRB,5.3059E-03_JPRB/)
1665			KAO( :, 3,12, 8) = (/&
1666			& 4.8905E-04_JPRB,5.9521E-04_JPRB,6.3638E-04_JPRB,6.5188E-04_JPRB,6.5138E-04_JPRB,6.3718E-04_JPRB,&
1667	✓✓	10	& 6.0852E-04_JPRB,5.5928E-04_JPRB,5.1929E-03_JPRB/)
1668			KAO( :, 4,12, 8) = (/&
1669			& 4.9586E-04_JPRB,6.1204E-04_JPRB,6.5810E-04_JPRB,6.7725E-04_JPRB,6.7983E-04_JPRB,6.6800E-04_JPRB,&
1670	✓✓	10	& 6.4102E-04_JPRB,5.9098E-04_JPRB,5.1181E-03_JPRB/)
1671			KAO( :, 5,12, 8) = (/&
1672			& 5.0219E-04_JPRB,6.2893E-04_JPRB,6.7933E-04_JPRB,7.0239E-04_JPRB,7.0829E-04_JPRB,6.9992E-04_JPRB,&
1673	✓✓	10	& 6.7457E-04_JPRB,6.2315E-04_JPRB,5.0659E-03_JPRB/)
1674			KAO( :, 1,13, 8) = (/&
1675			& 4.3613E-04_JPRB,5.1896E-04_JPRB,5.4757E-04_JPRB,5.5450E-04_JPRB,5.4716E-04_JPRB,5.2848E-04_JPRB,&
1676	✓✓	10	& 4.9828E-04_JPRB,4.5179E-04_JPRB,4.7039E-03_JPRB/)
1677			KAO( :, 2,13, 8) = (/&
1678			& 4.4480E-04_JPRB,5.3652E-04_JPRB,5.6828E-04_JPRB,5.7733E-04_JPRB,5.7232E-04_JPRB,5.5571E-04_JPRB,&
1679	✓✓	10	& 5.2643E-04_JPRB,4.7940E-04_JPRB,4.5588E-03_JPRB/)
1680			KAO( :, 3,13, 8) = (/&
1681			& 4.5255E-04_JPRB,5.5296E-04_JPRB,5.8851E-04_JPRB,6.0068E-04_JPRB,5.9826E-04_JPRB,5.8320E-04_JPRB,&
1682	✓✓	10	& 5.5480E-04_JPRB,5.0729E-04_JPRB,4.4582E-03_JPRB/)
1683			KAO( :, 4,13, 8) = (/&
1684			& 4.5948E-04_JPRB,5.6913E-04_JPRB,6.0860E-04_JPRB,6.2380E-04_JPRB,6.2384E-04_JPRB,6.1098E-04_JPRB,&
1685	✓✓	10	& 5.8363E-04_JPRB,5.3555E-04_JPRB,4.3840E-03_JPRB/)
1686			KAO( :, 5,13, 8) = (/&
1687			& 4.6648E-04_JPRB,5.8526E-04_JPRB,6.2843E-04_JPRB,6.4682E-04_JPRB,6.4977E-04_JPRB,6.3953E-04_JPRB,&
1688	✓✓	10	& 6.1349E-04_JPRB,5.6436E-04_JPRB,4.3301E-03_JPRB/)
1689			KAO( :, 1, 1, 9) = (/&
1690			& 4.2634E-03_JPRB,4.4619E-03_JPRB,4.8277E-03_JPRB,5.0574E-03_JPRB,5.1432E-03_JPRB,5.0824E-03_JPRB,&
1691	✓✓	10	& 4.7995E-03_JPRB,4.2519E-03_JPRB,3.6751E-03_JPRB/)
1692			KAO( :, 2, 1, 9) = (/&
1693			& 4.3896E-03_JPRB,4.7056E-03_JPRB,5.1713E-03_JPRB,5.4539E-03_JPRB,5.5796E-03_JPRB,5.5445E-03_JPRB,&
1694	✓✓	10	& 5.2467E-03_JPRB,4.6622E-03_JPRB,4.1226E-03_JPRB/)
1695			KAO( :, 3, 1, 9) = (/&
1696			& 4.5152E-03_JPRB,4.9543E-03_JPRB,5.5160E-03_JPRB,5.8544E-03_JPRB,6.0168E-03_JPRB,5.9967E-03_JPRB,&
1697	✓✓	10	& 5.6895E-03_JPRB,5.0855E-03_JPRB,4.6113E-03_JPRB/)
1698			KAO( :, 4, 1, 9) = (/&
1699			& 4.6230E-03_JPRB,5.1933E-03_JPRB,5.8501E-03_JPRB,6.2450E-03_JPRB,6.4433E-03_JPRB,6.4316E-03_JPRB,&
1700	✓✓	10	& 6.1283E-03_JPRB,5.5148E-03_JPRB,5.1307E-03_JPRB/)
1701			KAO( :, 5, 1, 9) = (/&
1702			& 4.7302E-03_JPRB,5.4309E-03_JPRB,6.1815E-03_JPRB,6.6303E-03_JPRB,6.8597E-03_JPRB,6.8605E-03_JPRB,&
1703	✓✓	10	& 6.5693E-03_JPRB,5.9487E-03_JPRB,5.6753E-03_JPRB/)
1704			KAO( :, 1, 2, 9) = (/&
1705			& 3.9323E-03_JPRB,4.1568E-03_JPRB,4.4806E-03_JPRB,4.6618E-03_JPRB,4.7304E-03_JPRB,4.6715E-03_JPRB,&
1706	✓✓	10	& 4.4161E-03_JPRB,3.9503E-03_JPRB,3.3395E-03_JPRB/)
1707			KAO( :, 2, 2, 9) = (/&
1708			& 4.0500E-03_JPRB,4.3934E-03_JPRB,4.8123E-03_JPRB,5.0480E-03_JPRB,5.1574E-03_JPRB,5.1013E-03_JPRB,&
1709	✓✓	10	& 4.8274E-03_JPRB,4.3142E-03_JPRB,3.7073E-03_JPRB/)
1710			KAO( :, 3, 2, 9) = (/&
1711			& 4.1698E-03_JPRB,4.6359E-03_JPRB,5.1475E-03_JPRB,5.4370E-03_JPRB,5.5831E-03_JPRB,5.5288E-03_JPRB,&
1712	✓✓	10	& 5.2416E-03_JPRB,4.6953E-03_JPRB,4.1146E-03_JPRB/)
1713			KAO( :, 4, 2, 9) = (/&
1714			& 4.2783E-03_JPRB,4.8739E-03_JPRB,5.4745E-03_JPRB,5.8228E-03_JPRB,5.9955E-03_JPRB,5.9514E-03_JPRB,&
1715	✓✓	10	& 5.6672E-03_JPRB,5.0790E-03_JPRB,4.5488E-03_JPRB/)
1716			KAO( :, 5, 2, 9) = (/&
1717			& 4.3743E-03_JPRB,5.1081E-03_JPRB,5.7929E-03_JPRB,6.1965E-03_JPRB,6.3958E-03_JPRB,6.3715E-03_JPRB,&
1718	✓✓	10	& 6.0950E-03_JPRB,5.4684E-03_JPRB,5.0068E-03_JPRB/)
1719			KAO( :, 1, 3, 9) = (/&
1720			& 3.6113E-03_JPRB,3.8183E-03_JPRB,4.0778E-03_JPRB,4.1984E-03_JPRB,4.2534E-03_JPRB,4.2158E-03_JPRB,&
1721	✓✓	10	& 4.0193E-03_JPRB,3.6415E-03_JPRB,3.0570E-03_JPRB/)
1722			KAO( :, 2, 3, 9) = (/&
1723			& 3.7209E-03_JPRB,4.0412E-03_JPRB,4.3896E-03_JPRB,4.5667E-03_JPRB,4.6475E-03_JPRB,4.5983E-03_JPRB,&
1724	✓✓	10	& 4.3872E-03_JPRB,3.9635E-03_JPRB,3.3466E-03_JPRB/)
1725			KAO( :, 3, 3, 9) = (/&
1726			& 3.8298E-03_JPRB,4.2704E-03_JPRB,4.6995E-03_JPRB,4.9388E-03_JPRB,5.0426E-03_JPRB,4.9845E-03_JPRB,&
1727	✓✓	10	& 4.7617E-03_JPRB,4.3009E-03_JPRB,3.6653E-03_JPRB/)
1728			KAO( :, 4, 3, 9) = (/&
1729			& 3.9362E-03_JPRB,4.5071E-03_JPRB,5.0123E-03_JPRB,5.3097E-03_JPRB,5.4362E-03_JPRB,5.3784E-03_JPRB,&
1730	✓✓	10	& 5.1527E-03_JPRB,4.6419E-03_JPRB,4.0116E-03_JPRB/)
1731			KAO( :, 5, 3, 9) = (/&
1732			& 4.0246E-03_JPRB,4.7366E-03_JPRB,5.3187E-03_JPRB,5.6677E-03_JPRB,5.8209E-03_JPRB,5.7784E-03_JPRB,&
1733	✓✓	10	& 5.5482E-03_JPRB,4.9812E-03_JPRB,4.3840E-03_JPRB/)
1734			KAO( :, 1, 4, 9) = (/&
1735			& 3.3284E-03_JPRB,3.4973E-03_JPRB,3.6827E-03_JPRB,3.7696E-03_JPRB,3.8145E-03_JPRB,3.7973E-03_JPRB,&
1736	✓✓	10	& 3.6757E-03_JPRB,3.3953E-03_JPRB,2.8711E-03_JPRB/)
1737			KAO( :, 2, 4, 9) = (/&
1738			& 3.4305E-03_JPRB,3.7049E-03_JPRB,3.9652E-03_JPRB,4.1049E-03_JPRB,4.1671E-03_JPRB,4.1383E-03_JPRB,&
1739	✓✓	10	& 3.9965E-03_JPRB,3.6722E-03_JPRB,3.0945E-03_JPRB/)
1740			KAO( :, 3, 4, 9) = (/&
1741			& 3.5295E-03_JPRB,3.9206E-03_JPRB,4.2522E-03_JPRB,4.4452E-03_JPRB,4.5189E-03_JPRB,4.4874E-03_JPRB,&
1742	✓✓	10	& 4.3285E-03_JPRB,3.9676E-03_JPRB,3.3441E-03_JPRB/)
1743			KAO( :, 4, 4, 9) = (/&
1744			& 3.6215E-03_JPRB,4.1396E-03_JPRB,4.5422E-03_JPRB,4.7812E-03_JPRB,4.8736E-03_JPRB,4.8440E-03_JPRB,&
1745	✓✓	10	& 4.6768E-03_JPRB,4.2674E-03_JPRB,3.6212E-03_JPRB/)
1746			KAO( :, 5, 4, 9) = (/&
1747			& 3.7121E-03_JPRB,4.3594E-03_JPRB,4.8380E-03_JPRB,5.1176E-03_JPRB,5.2295E-03_JPRB,5.2140E-03_JPRB,&
1748	✓✓	10	& 5.0347E-03_JPRB,4.5696E-03_JPRB,3.9241E-03_JPRB/)
1749			KAO( :, 1, 5, 9) = (/&
1750			& 3.0937E-03_JPRB,3.2190E-03_JPRB,3.3382E-03_JPRB,3.4069E-03_JPRB,3.4508E-03_JPRB,3.4576E-03_JPRB,&
1751	✓✓	10	& 3.4038E-03_JPRB,3.2121E-03_JPRB,2.7159E-03_JPRB/)
1752			KAO( :, 2, 5, 9) = (/&
1753			& 3.1841E-03_JPRB,3.4102E-03_JPRB,3.5885E-03_JPRB,3.6988E-03_JPRB,3.7561E-03_JPRB,3.7570E-03_JPRB,&
1754	✓✓	10	& 3.6806E-03_JPRB,3.4524E-03_JPRB,2.9248E-03_JPRB/)
1755			KAO( :, 3, 5, 9) = (/&
1756			& 3.2704E-03_JPRB,3.6051E-03_JPRB,3.8485E-03_JPRB,3.9980E-03_JPRB,4.0672E-03_JPRB,4.0649E-03_JPRB,&
1757	✓✓	10	& 3.9688E-03_JPRB,3.7070E-03_JPRB,3.1394E-03_JPRB/)
1758			KAO( :, 4, 5, 9) = (/&
1759			& 3.3530E-03_JPRB,3.8023E-03_JPRB,4.1127E-03_JPRB,4.2944E-03_JPRB,4.3822E-03_JPRB,4.3830E-03_JPRB,&
1760	✓✓	10	& 4.2728E-03_JPRB,3.9665E-03_JPRB,3.3644E-03_JPRB/)
1761			KAO( :, 5, 5, 9) = (/&
1762			& 3.4386E-03_JPRB,4.0026E-03_JPRB,4.3842E-03_JPRB,4.5975E-03_JPRB,4.7014E-03_JPRB,4.7133E-03_JPRB,&
1763	✓✓	10	& 4.5874E-03_JPRB,4.2339E-03_JPRB,3.6103E-03_JPRB/)
1764			KAO( :, 1, 6, 9) = (/&
1765			& 2.9009E-03_JPRB,2.9757E-03_JPRB,3.0499E-03_JPRB,3.1038E-03_JPRB,3.1541E-03_JPRB,3.1847E-03_JPRB,&
1766	✓✓	10	& 3.1836E-03_JPRB,3.0557E-03_JPRB,2.5583E-03_JPRB/)
1767			KAO( :, 2, 6, 9) = (/&
1768			& 2.9774E-03_JPRB,3.1460E-03_JPRB,3.2679E-03_JPRB,3.3537E-03_JPRB,3.4147E-03_JPRB,3.4421E-03_JPRB,&
1769	✓✓	10	& 3.4203E-03_JPRB,3.2723E-03_JPRB,2.7519E-03_JPRB/)
1770			KAO( :, 3, 6, 9) = (/&
1771			& 3.0522E-03_JPRB,3.3185E-03_JPRB,3.4964E-03_JPRB,3.6100E-03_JPRB,3.6827E-03_JPRB,3.7087E-03_JPRB,&
1772	✓✓	10	& 3.6668E-03_JPRB,3.4927E-03_JPRB,2.9536E-03_JPRB/)
1773			KAO( :, 4, 6, 9) = (/&
1774			& 3.1282E-03_JPRB,3.4957E-03_JPRB,3.7291E-03_JPRB,3.8695E-03_JPRB,3.9556E-03_JPRB,3.9847E-03_JPRB,&
1775	✓✓	10	& 3.9266E-03_JPRB,3.7176E-03_JPRB,3.1650E-03_JPRB/)
1776			KAO( :, 5, 6, 9) = (/&
1777			& 3.1999E-03_JPRB,3.6746E-03_JPRB,3.9646E-03_JPRB,4.1331E-03_JPRB,4.2341E-03_JPRB,4.2712E-03_JPRB,&
1778	✓✓	10	& 4.1979E-03_JPRB,3.9512E-03_JPRB,3.3876E-03_JPRB/)
1779			KAO( :, 1, 7, 9) = (/&
1780			& 2.7415E-03_JPRB,2.7746E-03_JPRB,2.8210E-03_JPRB,2.8741E-03_JPRB,2.9327E-03_JPRB,2.9829E-03_JPRB,&
1781	✓✓	10	& 2.9928E-03_JPRB,2.8802E-03_JPRB,2.4517E-03_JPRB/)
1782			KAO( :, 2, 7, 9) = (/&
1783			& 2.8079E-03_JPRB,2.9223E-03_JPRB,3.0084E-03_JPRB,3.0853E-03_JPRB,3.1485E-03_JPRB,3.1999E-03_JPRB,&
1784	✓✓	10	& 3.2078E-03_JPRB,3.0910E-03_JPRB,2.6310E-03_JPRB/)
1785			KAO( :, 3, 7, 9) = (/&
1786			& 2.8746E-03_JPRB,3.0732E-03_JPRB,3.2043E-03_JPRB,3.3040E-03_JPRB,3.3751E-03_JPRB,3.4239E-03_JPRB,&
1787	✓✓	10	& 3.4236E-03_JPRB,3.2999E-03_JPRB,2.8151E-03_JPRB/)
1788			KAO( :, 4, 7, 9) = (/&
1789			& 2.9412E-03_JPRB,3.2304E-03_JPRB,3.4053E-03_JPRB,3.5266E-03_JPRB,3.6086E-03_JPRB,3.6573E-03_JPRB,&
1790	✓✓	10	& 3.6460E-03_JPRB,3.5085E-03_JPRB,3.0037E-03_JPRB/)
1791			KAO( :, 5, 7, 9) = (/&
1792			& 3.0012E-03_JPRB,3.3903E-03_JPRB,3.6088E-03_JPRB,3.7519E-03_JPRB,3.8465E-03_JPRB,3.9004E-03_JPRB,&
1793	✓✓	10	& 3.8789E-03_JPRB,3.7197E-03_JPRB,3.2035E-03_JPRB/)
1794			KAO( :, 1, 8, 9) = (/&
1795			& 2.6011E-03_JPRB,2.6087E-03_JPRB,2.6505E-03_JPRB,2.7115E-03_JPRB,2.7795E-03_JPRB,2.8145E-03_JPRB,&
1796	✓✓	10	& 2.7964E-03_JPRB,2.6829E-03_JPRB,2.5124E-03_JPRB/)
1797			KAO( :, 2, 8, 9) = (/&
1798			& 2.6605E-03_JPRB,2.7384E-03_JPRB,2.8102E-03_JPRB,2.8876E-03_JPRB,2.9588E-03_JPRB,3.0106E-03_JPRB,&
1799	✓✓	10	& 2.9995E-03_JPRB,2.8886E-03_JPRB,2.6866E-03_JPRB/)
1800			KAO( :, 3, 8, 9) = (/&
1801			& 2.7221E-03_JPRB,2.8708E-03_JPRB,2.9770E-03_JPRB,3.0697E-03_JPRB,3.1469E-03_JPRB,3.2045E-03_JPRB,&
1802	✓✓	10	& 3.2054E-03_JPRB,3.0872E-03_JPRB,2.8608E-03_JPRB/)
1803			KAO( :, 4, 8, 9) = (/&
1804			& 2.7814E-03_JPRB,3.0087E-03_JPRB,3.1469E-03_JPRB,3.2564E-03_JPRB,3.3407E-03_JPRB,3.4007E-03_JPRB,&
1805	✓✓	10	& 3.4134E-03_JPRB,3.2854E-03_JPRB,3.0367E-03_JPRB/)
1806			KAO( :, 5, 8, 9) = (/&
1807			& 2.8334E-03_JPRB,3.1463E-03_JPRB,3.3224E-03_JPRB,3.4471E-03_JPRB,3.5390E-03_JPRB,3.6049E-03_JPRB,&
1808	✓✓	10	& 3.6218E-03_JPRB,3.4862E-03_JPRB,3.2148E-03_JPRB/)
1809			KAO( :, 1, 9, 9) = (/&
1810			& 2.4681E-03_JPRB,2.4670E-03_JPRB,2.5193E-03_JPRB,2.5927E-03_JPRB,2.6437E-03_JPRB,2.6462E-03_JPRB,&
1811	✓✓	10	& 2.5937E-03_JPRB,2.4688E-03_JPRB,4.0106E-03_JPRB/)
1812			KAO( :, 2, 9, 9) = (/&
1813			& 2.5243E-03_JPRB,2.5823E-03_JPRB,2.6553E-03_JPRB,2.7401E-03_JPRB,2.8086E-03_JPRB,2.8274E-03_JPRB,&
1814	✓✓	10	& 2.7863E-03_JPRB,2.6637E-03_JPRB,4.1870E-03_JPRB/)
1815			KAO( :, 3, 9, 9) = (/&
1816			& 2.5817E-03_JPRB,2.6985E-03_JPRB,2.7975E-03_JPRB,2.8934E-03_JPRB,2.9743E-03_JPRB,3.0076E-03_JPRB,&
1817	✓✓	10	& 2.9804E-03_JPRB,2.8541E-03_JPRB,4.3637E-03_JPRB/)
1818			KAO( :, 4, 9, 9) = (/&
1819			& 2.6357E-03_JPRB,2.8178E-03_JPRB,2.9439E-03_JPRB,3.0496E-03_JPRB,3.1384E-03_JPRB,3.1881E-03_JPRB,&
1820	✓✓	10	& 3.1729E-03_JPRB,3.0435E-03_JPRB,4.5427E-03_JPRB/)
1821			KAO( :, 5, 9, 9) = (/&
1822			& 2.6826E-03_JPRB,2.9379E-03_JPRB,3.0923E-03_JPRB,3.2096E-03_JPRB,3.3016E-03_JPRB,3.3682E-03_JPRB,&
1823	✓✓	10	& 3.3659E-03_JPRB,3.2338E-03_JPRB,4.7326E-03_JPRB/)
1824			KAO( :, 1,10, 9) = (/&
1825			& 2.3365E-03_JPRB,2.3445E-03_JPRB,2.4180E-03_JPRB,2.4933E-03_JPRB,2.5143E-03_JPRB,2.4864E-03_JPRB,&
1826	✓✓	10	& 2.4076E-03_JPRB,2.2631E-03_JPRB,1.0002E-02_JPRB/)
1827			KAO( :, 2,10, 9) = (/&
1828			& 2.3916E-03_JPRB,2.4482E-03_JPRB,2.5366E-03_JPRB,2.6275E-03_JPRB,2.6688E-03_JPRB,2.6554E-03_JPRB,&
1829	✓✓	10	& 2.5866E-03_JPRB,2.4438E-03_JPRB,1.0188E-02_JPRB/)
1830			KAO( :, 3,10, 9) = (/&
1831			& 2.4458E-03_JPRB,2.5525E-03_JPRB,2.6602E-03_JPRB,2.7640E-03_JPRB,2.8222E-03_JPRB,2.8241E-03_JPRB,&
1832	✓✓	10	& 2.7676E-03_JPRB,2.6219E-03_JPRB,1.0447E-02_JPRB/)
1833			KAO( :, 4,10, 9) = (/&
1834			& 2.4945E-03_JPRB,2.6579E-03_JPRB,2.7873E-03_JPRB,2.8998E-03_JPRB,2.9729E-03_JPRB,2.9898E-03_JPRB,&
1835	✓✓	10	& 2.9465E-03_JPRB,2.7998E-03_JPRB,1.0769E-02_JPRB/)
1836			KAO( :, 5,10, 9) = (/&
1837			& 2.5382E-03_JPRB,2.7637E-03_JPRB,2.9128E-03_JPRB,3.0348E-03_JPRB,3.1210E-03_JPRB,3.1536E-03_JPRB,&
1838	✓✓	10	& 3.1245E-03_JPRB,2.9806E-03_JPRB,1.1144E-02_JPRB/)
1839			KAO( :, 1,11, 9) = (/&
1840			& 2.2189E-03_JPRB,2.2637E-03_JPRB,2.3663E-03_JPRB,2.4375E-03_JPRB,2.4436E-03_JPRB,2.3971E-03_JPRB,&
1841	✓✓	10	& 2.2998E-03_JPRB,2.1349E-03_JPRB,1.4165E-02_JPRB/)
1842			KAO( :, 2,11, 9) = (/&
1843			& 2.2725E-03_JPRB,2.3594E-03_JPRB,2.4775E-03_JPRB,2.5648E-03_JPRB,2.5873E-03_JPRB,2.5525E-03_JPRB,&
1844	✓✓	10	& 2.4655E-03_JPRB,2.2999E-03_JPRB,1.4362E-02_JPRB/)
1845			KAO( :, 3,11, 9) = (/&
1846			& 2.3225E-03_JPRB,2.4563E-03_JPRB,2.5905E-03_JPRB,2.6905E-03_JPRB,2.7282E-03_JPRB,2.7081E-03_JPRB,&
1847	✓✓	10	& 2.6314E-03_JPRB,2.4622E-03_JPRB,1.4689E-02_JPRB/)
1848
1849	✓✗	1	IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART6',1,ZHOOK_HANDLE)
1850		1	END SUBROUTINE PART6
1851
1852
1853		1	SUBROUTINE PART7
1854
1855			REAL(KIND=JPRB) :: ZHOOK_HANDLE
1856	✓✗	1	IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART7',0,ZHOOK_HANDLE)
1857
1858
1859			KAO( :, 4,11, 9) = (/&
1860			& 2.3671E-03_JPRB,2.5537E-03_JPRB,2.7011E-03_JPRB,2.8153E-03_JPRB,2.8667E-03_JPRB,2.8616E-03_JPRB,&
1861	✓✓	10	& 2.7947E-03_JPRB,2.6271E-03_JPRB,1.5129E-02_JPRB/)
1862			KAO( :, 5,11, 9) = (/&
1863			& 2.4082E-03_JPRB,2.6482E-03_JPRB,2.8083E-03_JPRB,2.9363E-03_JPRB,3.0040E-03_JPRB,3.0155E-03_JPRB,&
1864	✓✓	10	& 2.9597E-03_JPRB,2.7977E-03_JPRB,1.5652E-02_JPRB/)
1865			KAO( :, 1,12, 9) = (/&
1866			& 2.0910E-03_JPRB,2.1698E-03_JPRB,2.2939E-03_JPRB,2.3579E-03_JPRB,2.3558E-03_JPRB,2.2934E-03_JPRB,&
1867	✓✓	10	& 2.1816E-03_JPRB,2.0022E-03_JPRB,1.5828E-02_JPRB/)
1868			KAO( :, 2,12, 9) = (/&
1869			& 2.1414E-03_JPRB,2.2595E-03_JPRB,2.4019E-03_JPRB,2.4797E-03_JPRB,2.4872E-03_JPRB,2.4364E-03_JPRB,&
1870	✓✓	10	& 2.3325E-03_JPRB,2.1497E-03_JPRB,1.6052E-02_JPRB/)
1871			KAO( :, 3,12, 9) = (/&
1872			& 2.1876E-03_JPRB,2.3512E-03_JPRB,2.5089E-03_JPRB,2.5983E-03_JPRB,2.6170E-03_JPRB,2.5791E-03_JPRB,&
1873	✓✓	10	& 2.4816E-03_JPRB,2.2977E-03_JPRB,1.6424E-02_JPRB/)
1874			KAO( :, 4,12, 9) = (/&
1875			& 2.2305E-03_JPRB,2.4411E-03_JPRB,2.6103E-03_JPRB,2.7123E-03_JPRB,2.7468E-03_JPRB,2.7221E-03_JPRB,&
1876	✓✓	10	& 2.6302E-03_JPRB,2.4491E-03_JPRB,1.6928E-02_JPRB/)
1877			KAO( :, 5,12, 9) = (/&
1878			& 2.2685E-03_JPRB,2.5264E-03_JPRB,2.7071E-03_JPRB,2.8237E-03_JPRB,2.8760E-03_JPRB,2.8651E-03_JPRB,&
1879	✓✓	10	& 2.7812E-03_JPRB,2.6061E-03_JPRB,1.7523E-02_JPRB/)
1880			KAO( :, 1,13, 9) = (/&
1881			& 1.9577E-03_JPRB,2.0704E-03_JPRB,2.2038E-03_JPRB,2.2584E-03_JPRB,2.2491E-03_JPRB,2.1789E-03_JPRB,&
1882	✓✓	10	& 2.0585E-03_JPRB,1.8702E-03_JPRB,1.4483E-02_JPRB/)
1883			KAO( :, 2,13, 9) = (/&
1884			& 2.0058E-03_JPRB,2.1546E-03_JPRB,2.3069E-03_JPRB,2.3735E-03_JPRB,2.3721E-03_JPRB,2.3101E-03_JPRB,&
1885	✓✓	10	& 2.1933E-03_JPRB,2.0001E-03_JPRB,1.4716E-02_JPRB/)
1886			KAO( :, 3,13, 9) = (/&
1887			& 2.0506E-03_JPRB,2.2392E-03_JPRB,2.4060E-03_JPRB,2.4864E-03_JPRB,2.4932E-03_JPRB,2.4402E-03_JPRB,&
1888	✓✓	10	& 2.3277E-03_JPRB,2.1324E-03_JPRB,1.5081E-02_JPRB/)
1889			KAO( :, 4,13, 9) = (/&
1890			& 2.0915E-03_JPRB,2.3209E-03_JPRB,2.5015E-03_JPRB,2.5952E-03_JPRB,2.6152E-03_JPRB,2.5711E-03_JPRB,&
1891	✓✓	10	& 2.4622E-03_JPRB,2.2684E-03_JPRB,1.5556E-02_JPRB/)
1892			KAO( :, 5,13, 9) = (/&
1893			& 2.1275E-03_JPRB,2.3984E-03_JPRB,2.5936E-03_JPRB,2.7019E-03_JPRB,2.7369E-03_JPRB,2.7034E-03_JPRB,&
1894	✓✓	10	& 2.5998E-03_JPRB,2.4103E-03_JPRB,1.6100E-02_JPRB/)
1895			KAO( :, 1, 1,10) = (/&
1896			& 1.7685E-02_JPRB,1.5886E-02_JPRB,1.5286E-02_JPRB,1.4910E-02_JPRB,1.4213E-02_JPRB,1.2872E-02_JPRB,&
1897	✓✓	10	& 1.1554E-02_JPRB,9.7299E-03_JPRB,9.7670E-03_JPRB/)
1898			KAO( :, 2, 1,10) = (/&
1899			& 1.7924E-02_JPRB,1.6198E-02_JPRB,1.5800E-02_JPRB,1.5762E-02_JPRB,1.5013E-02_JPRB,1.3648E-02_JPRB,&
1900	✓✓	10	& 1.2502E-02_JPRB,1.0682E-02_JPRB,1.1264E-02_JPRB/)
1901			KAO( :, 3, 1,10) = (/&
1902			& 1.8162E-02_JPRB,1.6493E-02_JPRB,1.6320E-02_JPRB,1.6501E-02_JPRB,1.5785E-02_JPRB,1.4461E-02_JPRB,&
1903	✓✓	10	& 1.3394E-02_JPRB,1.1688E-02_JPRB,1.2766E-02_JPRB/)
1904			KAO( :, 4, 1,10) = (/&
1905			& 1.8373E-02_JPRB,1.6799E-02_JPRB,1.6869E-02_JPRB,1.7132E-02_JPRB,1.6537E-02_JPRB,1.5302E-02_JPRB,&
1906	✓✓	10	& 1.4231E-02_JPRB,1.2873E-02_JPRB,1.4298E-02_JPRB/)
1907			KAO( :, 5, 1,10) = (/&
1908			& 1.8575E-02_JPRB,1.7109E-02_JPRB,1.7449E-02_JPRB,1.7721E-02_JPRB,1.7274E-02_JPRB,1.6125E-02_JPRB,&
1909	✓✓	10	& 1.4995E-02_JPRB,1.4230E-02_JPRB,1.5931E-02_JPRB/)
1910			KAO( :, 1, 2,10) = (/&
1911			& 1.6873E-02_JPRB,1.5273E-02_JPRB,1.4928E-02_JPRB,1.4779E-02_JPRB,1.3931E-02_JPRB,1.2662E-02_JPRB,&
1912	✓✓	10	& 1.1382E-02_JPRB,9.2864E-03_JPRB,8.6917E-03_JPRB/)
1913			KAO( :, 2, 2,10) = (/&
1914			& 1.7158E-02_JPRB,1.5636E-02_JPRB,1.5517E-02_JPRB,1.5568E-02_JPRB,1.4735E-02_JPRB,1.3617E-02_JPRB,&
1915	✓✓	10	& 1.2343E-02_JPRB,1.0165E-02_JPRB,1.0091E-02_JPRB/)
1916			KAO( :, 3, 2,10) = (/&
1917			& 1.7424E-02_JPRB,1.6018E-02_JPRB,1.6130E-02_JPRB,1.6288E-02_JPRB,1.5522E-02_JPRB,1.4562E-02_JPRB,&
1918	✓✓	10	& 1.3276E-02_JPRB,1.1047E-02_JPRB,1.1539E-02_JPRB/)
1919			KAO( :, 4, 2,10) = (/&
1920			& 1.7705E-02_JPRB,1.6391E-02_JPRB,1.6775E-02_JPRB,1.6913E-02_JPRB,1.6383E-02_JPRB,1.5440E-02_JPRB,&
1921	✓✓	10	& 1.4111E-02_JPRB,1.2115E-02_JPRB,1.3109E-02_JPRB/)
1922			KAO( :, 5, 2,10) = (/&
1923			& 1.7946E-02_JPRB,1.6730E-02_JPRB,1.7389E-02_JPRB,1.7560E-02_JPRB,1.7230E-02_JPRB,1.6260E-02_JPRB,&
1924	✓✓	10	& 1.4862E-02_JPRB,1.3377E-02_JPRB,1.4792E-02_JPRB/)
1925			KAO( :, 1, 3,10) = (/&
1926			& 1.5798E-02_JPRB,1.4431E-02_JPRB,1.4230E-02_JPRB,1.4159E-02_JPRB,1.3349E-02_JPRB,1.2204E-02_JPRB,&
1927	✓✓	10	& 1.0867E-02_JPRB,8.8000E-03_JPRB,7.4513E-03_JPRB/)
1928			KAO( :, 2, 3,10) = (/&
1929			& 1.6121E-02_JPRB,1.4897E-02_JPRB,1.4916E-02_JPRB,1.4922E-02_JPRB,1.4162E-02_JPRB,1.3251E-02_JPRB,&
1930	✓✓	10	& 1.1847E-02_JPRB,9.5823E-03_JPRB,8.7330E-03_JPRB/)
1931			KAO( :, 3, 3,10) = (/&
1932			& 1.6462E-02_JPRB,1.5342E-02_JPRB,1.5618E-02_JPRB,1.5620E-02_JPRB,1.5015E-02_JPRB,1.4282E-02_JPRB,&
1933	✓✓	10	& 1.2797E-02_JPRB,1.0384E-02_JPRB,1.0179E-02_JPRB/)
1934			KAO( :, 4, 3,10) = (/&
1935			& 1.6798E-02_JPRB,1.5765E-02_JPRB,1.6290E-02_JPRB,1.6289E-02_JPRB,1.5973E-02_JPRB,1.5269E-02_JPRB,&
1936	✓✓	10	& 1.3672E-02_JPRB,1.1383E-02_JPRB,1.1725E-02_JPRB/)
1937			KAO( :, 5, 3,10) = (/&
1938			& 1.7062E-02_JPRB,1.6131E-02_JPRB,1.6868E-02_JPRB,1.7006E-02_JPRB,1.6890E-02_JPRB,1.6143E-02_JPRB,&
1939	✓✓	10	& 1.4482E-02_JPRB,1.2538E-02_JPRB,1.3312E-02_JPRB/)
1940			KAO( :, 1, 4,10) = (/&
1941			& 1.4564E-02_JPRB,1.3497E-02_JPRB,1.3366E-02_JPRB,1.3251E-02_JPRB,1.2600E-02_JPRB,1.1517E-02_JPRB,&
1942	✓✓	10	& 1.0115E-02_JPRB,8.2572E-03_JPRB,6.3788E-03_JPRB/)
1943			KAO( :, 2, 4,10) = (/&
1944			& 1.4956E-02_JPRB,1.4021E-02_JPRB,1.4143E-02_JPRB,1.3989E-02_JPRB,1.3446E-02_JPRB,1.2579E-02_JPRB,&
1945	✓✓	10	& 1.1185E-02_JPRB,9.0656E-03_JPRB,7.4847E-03_JPRB/)
1946			KAO( :, 3, 4,10) = (/&
1947			& 1.5366E-02_JPRB,1.4523E-02_JPRB,1.4865E-02_JPRB,1.4686E-02_JPRB,1.4396E-02_JPRB,1.3630E-02_JPRB,&
1948	✓✓	10	& 1.2209E-02_JPRB,9.8300E-03_JPRB,8.7484E-03_JPRB/)
1949			KAO( :, 4, 4,10) = (/&
1950			& 1.5673E-02_JPRB,1.4963E-02_JPRB,1.5538E-02_JPRB,1.5419E-02_JPRB,1.5384E-02_JPRB,1.4661E-02_JPRB,&
1951	✓✓	10	& 1.3123E-02_JPRB,1.0681E-02_JPRB,1.0095E-02_JPRB/)
1952			KAO( :, 5, 4,10) = (/&
1953			& 1.5927E-02_JPRB,1.5374E-02_JPRB,1.6106E-02_JPRB,1.6246E-02_JPRB,1.6331E-02_JPRB,1.5570E-02_JPRB,&
1954	✓✓	10	& 1.3997E-02_JPRB,1.1612E-02_JPRB,1.1475E-02_JPRB/)
1955			KAO( :, 1, 5,10) = (/&
1956			& 1.3266E-02_JPRB,1.2466E-02_JPRB,1.2400E-02_JPRB,1.2242E-02_JPRB,1.1629E-02_JPRB,1.0628E-02_JPRB,&
1957	✓✓	10	& 9.2898E-03_JPRB,7.6240E-03_JPRB,5.9670E-03_JPRB/)
1958			KAO( :, 2, 5,10) = (/&
1959			& 1.3732E-02_JPRB,1.3052E-02_JPRB,1.3208E-02_JPRB,1.3005E-02_JPRB,1.2522E-02_JPRB,1.1685E-02_JPRB,&
1960	✓✓	10	& 1.0389E-02_JPRB,8.4463E-03_JPRB,6.6100E-03_JPRB/)
1961			KAO( :, 3, 5,10) = (/&
1962			& 1.4084E-02_JPRB,1.3547E-02_JPRB,1.3938E-02_JPRB,1.3750E-02_JPRB,1.3484E-02_JPRB,1.2725E-02_JPRB,&
1963	✓✓	10	& 1.1484E-02_JPRB,9.2095E-03_JPRB,7.5100E-03_JPRB/)
1964			KAO( :, 4, 5,10) = (/&
1965			& 1.4380E-02_JPRB,1.4005E-02_JPRB,1.4577E-02_JPRB,1.4581E-02_JPRB,1.4467E-02_JPRB,1.3764E-02_JPRB,&
1966	✓✓	10	& 1.2436E-02_JPRB,1.0053E-02_JPRB,8.5649E-03_JPRB/)
1967			KAO( :, 5, 5,10) = (/&
1968			& 1.4640E-02_JPRB,1.4480E-02_JPRB,1.5153E-02_JPRB,1.5470E-02_JPRB,1.5438E-02_JPRB,1.4721E-02_JPRB,&
1969	✓✓	10	& 1.3356E-02_JPRB,1.0839E-02_JPRB,9.6988E-03_JPRB/)
1970			KAO( :, 1, 6,10) = (/&
1971			& 1.1942E-02_JPRB,1.1353E-02_JPRB,1.1339E-02_JPRB,1.1150E-02_JPRB,1.0468E-02_JPRB,9.5854E-03_JPRB,&
1972	✓✓	10	& 8.3811E-03_JPRB,7.0885E-03_JPRB,5.8798E-03_JPRB/)
1973			KAO( :, 2, 6,10) = (/&
1974			& 1.2358E-02_JPRB,1.1922E-02_JPRB,1.2141E-02_JPRB,1.1920E-02_JPRB,1.1378E-02_JPRB,1.0610E-02_JPRB,&
1975	✓✓	10	& 9.4501E-03_JPRB,7.7713E-03_JPRB,6.4066E-03_JPRB/)
1976			KAO( :, 3, 6,10) = (/&
1977			& 1.2698E-02_JPRB,1.2427E-02_JPRB,1.2838E-02_JPRB,1.2735E-02_JPRB,1.2366E-02_JPRB,1.1633E-02_JPRB,&
1978	✓✓	10	& 1.0517E-02_JPRB,8.4962E-03_JPRB,6.9615E-03_JPRB/)
1979			KAO( :, 4, 6,10) = (/&
1980			& 1.2998E-02_JPRB,1.2956E-02_JPRB,1.3432E-02_JPRB,1.3603E-02_JPRB,1.3351E-02_JPRB,1.2693E-02_JPRB,&
1981	✓✓	10	& 1.1517E-02_JPRB,9.2932E-03_JPRB,7.5694E-03_JPRB/)
1982			KAO( :, 5, 6,10) = (/&
1983			& 1.3245E-02_JPRB,1.3459E-02_JPRB,1.4045E-02_JPRB,1.4501E-02_JPRB,1.4340E-02_JPRB,1.3672E-02_JPRB,&
1984	✓✓	10	& 1.2434E-02_JPRB,1.0037E-02_JPRB,8.3088E-03_JPRB/)
1985			KAO( :, 1, 7,10) = (/&
1986			& 1.0635E-02_JPRB,1.0181E-02_JPRB,1.0247E-02_JPRB,9.9535E-03_JPRB,9.2688E-03_JPRB,8.4744E-03_JPRB,&
1987	✓✓	10	& 7.6731E-03_JPRB,6.9595E-03_JPRB,5.7767E-03_JPRB/)
1988			KAO( :, 2, 7,10) = (/&
1989			& 1.1001E-02_JPRB,1.0731E-02_JPRB,1.1001E-02_JPRB,1.0727E-02_JPRB,1.0196E-02_JPRB,9.4273E-03_JPRB,&
1990	✓✓	10	& 8.5283E-03_JPRB,7.4633E-03_JPRB,6.2551E-03_JPRB/)
1991			KAO( :, 3, 7,10) = (/&
1992			& 1.1326E-02_JPRB,1.1289E-02_JPRB,1.1647E-02_JPRB,1.1559E-02_JPRB,1.1156E-02_JPRB,1.0455E-02_JPRB,&
1993	✓✓	10	& 9.4847E-03_JPRB,7.9997E-03_JPRB,6.7556E-03_JPRB/)
1994			KAO( :, 4, 7,10) = (/&
1995			& 1.1605E-02_JPRB,1.1840E-02_JPRB,1.2266E-02_JPRB,1.2419E-02_JPRB,1.2130E-02_JPRB,1.1514E-02_JPRB,&
1996	✓✓	10	& 1.0422E-02_JPRB,8.6046E-03_JPRB,7.2812E-03_JPRB/)
1997			KAO( :, 5, 7,10) = (/&
1998			& 1.1846E-02_JPRB,1.2301E-02_JPRB,1.2939E-02_JPRB,1.3278E-02_JPRB,1.3141E-02_JPRB,1.2520E-02_JPRB,&
1999	✓✓	10	& 1.1309E-02_JPRB,9.2291E-03_JPRB,7.8135E-03_JPRB/)
2000			KAO( :, 1, 8,10) = (/&
2001			& 9.5318E-03_JPRB,9.1400E-03_JPRB,9.1541E-03_JPRB,8.7469E-03_JPRB,8.1107E-03_JPRB,7.6844E-03_JPRB,&
2002	✓✓	10	& 7.4790E-03_JPRB,6.8560E-03_JPRB,6.1100E-03_JPRB/)
2003			KAO( :, 2, 8,10) = (/&
2004			& 9.8513E-03_JPRB,9.6543E-03_JPRB,9.8221E-03_JPRB,9.4930E-03_JPRB,8.9990E-03_JPRB,8.4087E-03_JPRB,&
2005	✓✓	10	& 8.1002E-03_JPRB,7.3297E-03_JPRB,6.5036E-03_JPRB/)
2006			KAO( :, 3, 8,10) = (/&
2007			& 1.0121E-02_JPRB,1.0183E-02_JPRB,1.0429E-02_JPRB,1.0295E-02_JPRB,9.9219E-03_JPRB,9.3052E-03_JPRB,&
2008	✓✓	10	& 8.7495E-03_JPRB,7.8409E-03_JPRB,6.8133E-03_JPRB/)
2009			KAO( :, 4, 8,10) = (/&
2010			& 1.0342E-02_JPRB,1.0668E-02_JPRB,1.1072E-02_JPRB,1.1128E-02_JPRB,1.0881E-02_JPRB,1.0314E-02_JPRB,&
2011	✓✓	10	& 9.4319E-03_JPRB,8.3379E-03_JPRB,7.1719E-03_JPRB/)
2012			KAO( :, 5, 8,10) = (/&
2013			& 1.0574E-02_JPRB,1.1111E-02_JPRB,1.1730E-02_JPRB,1.1969E-02_JPRB,1.1864E-02_JPRB,1.1283E-02_JPRB,&
2014	✓✓	10	& 1.0148E-02_JPRB,8.8068E-03_JPRB,7.6246E-03_JPRB/)
2015			KAO( :, 1, 9,10) = (/&
2016			& 8.6979E-03_JPRB,8.3079E-03_JPRB,8.1722E-03_JPRB,7.6777E-03_JPRB,7.3529E-03_JPRB,7.3690E-03_JPRB,&
2017	✓✓	10	& 7.3422E-03_JPRB,6.6830E-03_JPRB,8.5832E-03_JPRB/)
2018			KAO( :, 2, 9,10) = (/&
2019			& 8.9724E-03_JPRB,8.7731E-03_JPRB,8.7419E-03_JPRB,8.3348E-03_JPRB,7.9939E-03_JPRB,7.9020E-03_JPRB,&
2020	✓✓	10	& 7.8887E-03_JPRB,7.1655E-03_JPRB,9.0283E-03_JPRB/)
2021			KAO( :, 3, 9,10) = (/&
2022			& 9.1636E-03_JPRB,9.2350E-03_JPRB,9.2903E-03_JPRB,9.0718E-03_JPRB,8.7389E-03_JPRB,8.5612E-03_JPRB,&
2023	✓✓	10	& 8.4201E-03_JPRB,7.6462E-03_JPRB,9.4969E-03_JPRB/)
2024			KAO( :, 4, 9,10) = (/&
2025			& 9.3430E-03_JPRB,9.6411E-03_JPRB,9.8735E-03_JPRB,9.8458E-03_JPRB,9.5925E-03_JPRB,9.3082E-03_JPRB,&
2026	✓✓	10	& 8.9479E-03_JPRB,8.0999E-03_JPRB,9.9701E-03_JPRB/)
2027			KAO( :, 5, 9,10) = (/&
2028			& 9.5543E-03_JPRB,1.0034E-02_JPRB,1.0504E-02_JPRB,1.0652E-02_JPRB,1.0546E-02_JPRB,1.0105E-02_JPRB,&
2029	✓✓	10	& 9.4548E-03_JPRB,8.5503E-03_JPRB,1.0439E-02_JPRB/)
2030			KAO( :, 1,10,10) = (/&
2031			& 8.1157E-03_JPRB,7.6953E-03_JPRB,7.3856E-03_JPRB,7.0143E-03_JPRB,7.0934E-03_JPRB,7.1592E-03_JPRB,&
2032	✓✓	10	& 7.1366E-03_JPRB,6.4736E-03_JPRB,2.5288E-02_JPRB/)
2033			KAO( :, 2,10,10) = (/&
2034			& 8.3228E-03_JPRB,8.1050E-03_JPRB,7.8899E-03_JPRB,7.5150E-03_JPRB,7.5383E-03_JPRB,7.6577E-03_JPRB,&
2035	✓✓	10	& 7.6569E-03_JPRB,6.9536E-03_JPRB,2.5969E-02_JPRB/)
2036			KAO( :, 3,10,10) = (/&
2037			& 8.4638E-03_JPRB,8.4927E-03_JPRB,8.3732E-03_JPRB,8.1065E-03_JPRB,8.0674E-03_JPRB,8.2304E-03_JPRB,&
2038	✓✓	10	& 8.1217E-03_JPRB,7.4527E-03_JPRB,2.6813E-02_JPRB/)
2039			KAO( :, 4,10,10) = (/&
2040			& 8.6251E-03_JPRB,8.8393E-03_JPRB,8.8777E-03_JPRB,8.7542E-03_JPRB,8.7078E-03_JPRB,8.8286E-03_JPRB,&
2041	✓✓	10	& 8.6165E-03_JPRB,7.9058E-03_JPRB,2.7708E-02_JPRB/)
2042			KAO( :, 5,10,10) = (/&
2043			& 8.7883E-03_JPRB,9.2004E-03_JPRB,9.4445E-03_JPRB,9.4717E-03_JPRB,9.4479E-03_JPRB,9.4125E-03_JPRB,&
2044	✓✓	10	& 9.0956E-03_JPRB,8.3203E-03_JPRB,2.8653E-02_JPRB/)
2045			KAO( :, 1,11,10) = (/&
2046			& 7.8501E-03_JPRB,7.4452E-03_JPRB,7.0342E-03_JPRB,6.9004E-03_JPRB,7.0570E-03_JPRB,7.1201E-03_JPRB,&
2047	✓✓	10	& 7.0476E-03_JPRB,6.4243E-03_JPRB,4.0572E-02_JPRB/)
2048			KAO( :, 2,11,10) = (/&
2049			& 7.9753E-03_JPRB,7.7749E-03_JPRB,7.4240E-03_JPRB,7.3009E-03_JPRB,7.4854E-03_JPRB,7.6408E-03_JPRB,&
2050	✓✓	10	& 7.5205E-03_JPRB,6.9049E-03_JPRB,4.1441E-02_JPRB/)
2051			KAO( :, 3,11,10) = (/&
2052			& 8.0806E-03_JPRB,8.0563E-03_JPRB,7.8316E-03_JPRB,7.7518E-03_JPRB,7.9930E-03_JPRB,8.1574E-03_JPRB,&
2053	✓✓	10	& 7.9957E-03_JPRB,7.3976E-03_JPRB,4.2222E-02_JPRB/)
2054			KAO( :, 4,11,10) = (/&
2055			& 8.1992E-03_JPRB,8.3401E-03_JPRB,8.2986E-03_JPRB,8.2629E-03_JPRB,8.5167E-03_JPRB,8.6635E-03_JPRB,&
2056	✓✓	10	& 8.4735E-03_JPRB,7.8541E-03_JPRB,4.3187E-02_JPRB/)
2057			KAO( :, 5,11,10) = (/&
2058			& 8.2878E-03_JPRB,8.6780E-03_JPRB,8.8506E-03_JPRB,8.8633E-03_JPRB,9.0484E-03_JPRB,9.1413E-03_JPRB,&
2059	✓✓	10	& 8.9084E-03_JPRB,8.2746E-03_JPRB,4.4361E-02_JPRB/)
2060			KAO( :, 1,12,10) = (/&
2061			& 7.6139E-03_JPRB,7.2726E-03_JPRB,6.8850E-03_JPRB,6.9089E-03_JPRB,6.9663E-03_JPRB,7.0443E-03_JPRB,&
2062	✓✓	10	& 6.8750E-03_JPRB,6.2469E-03_JPRB,4.8797E-02_JPRB/)
2063			KAO( :, 2,12,10) = (/&
2064			& 7.7194E-03_JPRB,7.5180E-03_JPRB,7.1615E-03_JPRB,7.2509E-03_JPRB,7.4345E-03_JPRB,7.5251E-03_JPRB,&
2065	✓✓	10	& 7.3302E-03_JPRB,6.7269E-03_JPRB,4.9597E-02_JPRB/)
2066			KAO( :, 3,12,10) = (/&
2067			& 7.8184E-03_JPRB,7.7399E-03_JPRB,7.4810E-03_JPRB,7.6258E-03_JPRB,7.9008E-03_JPRB,7.9967E-03_JPRB,&
2068	✓✓	10	& 7.8018E-03_JPRB,7.1947E-03_JPRB,5.0339E-02_JPRB/)
2069			KAO( :, 4,12,10) = (/&
2070			& 7.8914E-03_JPRB,7.9922E-03_JPRB,7.8923E-03_JPRB,8.0511E-03_JPRB,8.3449E-03_JPRB,8.4240E-03_JPRB,&
2071	✓✓	10	& 8.2687E-03_JPRB,7.6521E-03_JPRB,5.1350E-02_JPRB/)
2072			KAO( :, 5,12,10) = (/&
2073			& 7.9507E-03_JPRB,8.2886E-03_JPRB,8.3628E-03_JPRB,8.5321E-03_JPRB,8.7647E-03_JPRB,8.8141E-03_JPRB,&
2074	✓✓	10	& 8.7116E-03_JPRB,8.0986E-03_JPRB,5.2764E-02_JPRB/)
2075			KAO( :, 1,13,10) = (/&
2076			& 7.3158E-03_JPRB,7.0328E-03_JPRB,6.8235E-03_JPRB,6.9230E-03_JPRB,6.9064E-03_JPRB,6.8869E-03_JPRB,&
2077	✓✓	10	& 6.6102E-03_JPRB,5.9534E-03_JPRB,4.6027E-02_JPRB/)
2078			KAO( :, 2,13,10) = (/&
2079			& 7.4278E-03_JPRB,7.2607E-03_JPRB,7.0591E-03_JPRB,7.2420E-03_JPRB,7.3482E-03_JPRB,7.3254E-03_JPRB,&
2080	✓✓	10	& 7.0547E-03_JPRB,6.4187E-03_JPRB,4.6671E-02_JPRB/)
2081			KAO( :, 3,13,10) = (/&
2082			& 7.5295E-03_JPRB,7.4924E-03_JPRB,7.3494E-03_JPRB,7.5754E-03_JPRB,7.7630E-03_JPRB,7.7638E-03_JPRB,&
2083	✓✓	10	& 7.4975E-03_JPRB,6.8755E-03_JPRB,4.7440E-02_JPRB/)
2084			KAO( :, 4,13,10) = (/&
2085			& 7.6080E-03_JPRB,7.7470E-03_JPRB,7.6819E-03_JPRB,7.9565E-03_JPRB,8.1173E-03_JPRB,8.1428E-03_JPRB,&
2086	✓✓	10	& 7.9589E-03_JPRB,7.3493E-03_JPRB,4.8497E-02_JPRB/)
2087			KAO( :, 5,13,10) = (/&
2088			& 7.6817E-03_JPRB,8.0217E-03_JPRB,8.0425E-03_JPRB,8.3061E-03_JPRB,8.4701E-03_JPRB,8.5085E-03_JPRB,&
2089	✓✓	10	& 8.3860E-03_JPRB,7.8301E-03_JPRB,4.9971E-02_JPRB/)
2090			KAO( :, 1, 1,11) = (/&
2091			& 2.7764E-02_JPRB,2.4426E-02_JPRB,2.1973E-02_JPRB,2.0093E-02_JPRB,1.8666E-02_JPRB,1.7278E-02_JPRB,&
2092	✓✓	10	& 1.5087E-02_JPRB,1.3103E-02_JPRB,1.4300E-02_JPRB/)
2093			KAO( :, 2, 1,11) = (/&
2094			& 2.7963E-02_JPRB,2.4667E-02_JPRB,2.2450E-02_JPRB,2.0789E-02_JPRB,1.9549E-02_JPRB,1.8247E-02_JPRB,&
2095	✓✓	10	& 1.6059E-02_JPRB,1.4781E-02_JPRB,1.6422E-02_JPRB/)
2096			KAO( :, 3, 1,11) = (/&
2097			& 2.8032E-02_JPRB,2.4854E-02_JPRB,2.2829E-02_JPRB,2.1504E-02_JPRB,2.0423E-02_JPRB,1.9213E-02_JPRB,&
2098	✓✓	10	& 1.7147E-02_JPRB,1.6580E-02_JPRB,1.8603E-02_JPRB/)
2099			KAO( :, 4, 1,11) = (/&
2100			& 2.7908E-02_JPRB,2.4878E-02_JPRB,2.3088E-02_JPRB,2.2255E-02_JPRB,2.1236E-02_JPRB,2.0204E-02_JPRB,&
2101	✓✓	10	& 1.8256E-02_JPRB,1.8454E-02_JPRB,2.0859E-02_JPRB/)
2102			KAO( :, 5, 1,11) = (/&
2103			& 2.7693E-02_JPRB,2.4833E-02_JPRB,2.3283E-02_JPRB,2.2953E-02_JPRB,2.2107E-02_JPRB,2.1010E-02_JPRB,&
2104	✓✓	10	& 1.9343E-02_JPRB,2.0385E-02_JPRB,2.3144E-02_JPRB/)
2105			KAO( :, 1, 2,11) = (/&
2106			& 2.7646E-02_JPRB,2.4332E-02_JPRB,2.2092E-02_JPRB,2.0298E-02_JPRB,1.9042E-02_JPRB,1.7440E-02_JPRB,&
2107	✓✓	10	& 1.5349E-02_JPRB,1.2664E-02_JPRB,1.3386E-02_JPRB/)
2108			KAO( :, 2, 2,11) = (/&
2109			& 2.7909E-02_JPRB,2.4672E-02_JPRB,2.2646E-02_JPRB,2.1214E-02_JPRB,2.0006E-02_JPRB,1.8412E-02_JPRB,&
2110	✓✓	10	& 1.6391E-02_JPRB,1.4178E-02_JPRB,1.5546E-02_JPRB/)
2111			KAO( :, 3, 2,11) = (/&
2112			& 2.7965E-02_JPRB,2.4859E-02_JPRB,2.3085E-02_JPRB,2.2119E-02_JPRB,2.0910E-02_JPRB,1.9436E-02_JPRB,&
2113	✓✓	10	& 1.7350E-02_JPRB,1.5867E-02_JPRB,1.7743E-02_JPRB/)
2114			KAO( :, 4, 2,11) = (/&
2115			& 2.7851E-02_JPRB,2.4932E-02_JPRB,2.3473E-02_JPRB,2.2951E-02_JPRB,2.1773E-02_JPRB,2.0509E-02_JPRB,&
2116	✓✓	10	& 1.8306E-02_JPRB,1.7658E-02_JPRB,1.9938E-02_JPRB/)
2117			KAO( :, 5, 2,11) = (/&
2118			& 2.7716E-02_JPRB,2.4986E-02_JPRB,2.3872E-02_JPRB,2.3624E-02_JPRB,2.2685E-02_JPRB,2.1385E-02_JPRB,&
2119	✓✓	10	& 1.9339E-02_JPRB,1.9475E-02_JPRB,2.2096E-02_JPRB/)
2120			KAO( :, 1, 3,11) = (/&
2121			& 2.7136E-02_JPRB,2.3913E-02_JPRB,2.1898E-02_JPRB,2.0239E-02_JPRB,1.8943E-02_JPRB,1.7255E-02_JPRB,&
2122	✓✓	10	& 1.5286E-02_JPRB,1.1962E-02_JPRB,1.1731E-02_JPRB/)
2123			KAO( :, 2, 3,11) = (/&
2124			& 2.7384E-02_JPRB,2.4261E-02_JPRB,2.2497E-02_JPRB,2.1296E-02_JPRB,2.0064E-02_JPRB,1.8265E-02_JPRB,&
2125	✓✓	10	& 1.6402E-02_JPRB,1.3201E-02_JPRB,1.3756E-02_JPRB/)
2126			KAO( :, 3, 3,11) = (/&
2127			& 2.7424E-02_JPRB,2.4494E-02_JPRB,2.3027E-02_JPRB,2.2286E-02_JPRB,2.1084E-02_JPRB,1.9295E-02_JPRB,&
2128	✓✓	10	& 1.7402E-02_JPRB,1.4625E-02_JPRB,1.5844E-02_JPRB/)
2129			KAO( :, 4, 3,11) = (/&
2130			& 2.7396E-02_JPRB,2.4666E-02_JPRB,2.3610E-02_JPRB,2.3218E-02_JPRB,2.1991E-02_JPRB,2.0436E-02_JPRB,&
2131	✓✓	10	& 1.8232E-02_JPRB,1.6186E-02_JPRB,1.7976E-02_JPRB/)
2132			KAO( :, 5, 3,11) = (/&
2133			& 2.7396E-02_JPRB,2.4863E-02_JPRB,2.4263E-02_JPRB,2.4003E-02_JPRB,2.2894E-02_JPRB,2.1428E-02_JPRB,&
2134	✓✓	10	& 1.9099E-02_JPRB,1.7923E-02_JPRB,2.0191E-02_JPRB/)
2135			KAO( :, 1, 4,11) = (/&
2136			& 2.6120E-02_JPRB,2.3055E-02_JPRB,2.1334E-02_JPRB,1.9874E-02_JPRB,1.8554E-02_JPRB,1.6913E-02_JPRB,&
2137	✓✓	10	& 1.4849E-02_JPRB,1.1247E-02_JPRB,9.9817E-03_JPRB/)
2138			KAO( :, 2, 4,11) = (/&
2139			& 2.6346E-02_JPRB,2.3452E-02_JPRB,2.1987E-02_JPRB,2.1036E-02_JPRB,1.9768E-02_JPRB,1.8034E-02_JPRB,&
2140	✓✓	10	& 1.5969E-02_JPRB,1.2323E-02_JPRB,1.1891E-02_JPRB/)
2141			KAO( :, 3, 4,11) = (/&
2142			& 2.6444E-02_JPRB,2.3743E-02_JPRB,2.2663E-02_JPRB,2.2134E-02_JPRB,2.0858E-02_JPRB,1.9164E-02_JPRB,&
2143	✓✓	10	& 1.7004E-02_JPRB,1.3536E-02_JPRB,1.3883E-02_JPRB/)
2144			KAO( :, 4, 4,11) = (/&
2145			& 2.6615E-02_JPRB,2.4091E-02_JPRB,2.3417E-02_JPRB,2.3175E-02_JPRB,2.1815E-02_JPRB,2.0352E-02_JPRB,&
2146	✓✓	10	& 1.7938E-02_JPRB,1.4897E-02_JPRB,1.5955E-02_JPRB/)
2147			KAO( :, 5, 4,11) = (/&
2148			& 2.6757E-02_JPRB,2.4467E-02_JPRB,2.4289E-02_JPRB,2.4064E-02_JPRB,2.2838E-02_JPRB,2.1378E-02_JPRB,&
2149	✓✓	10	& 1.8780E-02_JPRB,1.6458E-02_JPRB,1.8170E-02_JPRB/)
2150
2151	✓✗	1	IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART7',1,ZHOOK_HANDLE)
2152		1	END SUBROUTINE PART7
2153
2154
2155		1	SUBROUTINE PART8
2156
2157			REAL(KIND=JPRB) :: ZHOOK_HANDLE
2158	✓✗	1	IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART8',0,ZHOOK_HANDLE)
2159
2160
2161			KAO( :, 1, 5,11) = (/&
2162			& 2.4649E-02_JPRB,2.1845E-02_JPRB,2.0397E-02_JPRB,1.9200E-02_JPRB,1.7986E-02_JPRB,1.6354E-02_JPRB,&
2163	✓✓	10	& 1.4106E-02_JPRB,1.0659E-02_JPRB,8.5296E-03_JPRB/)
2164			KAO( :, 2, 5,11) = (/&
2165			& 2.4915E-02_JPRB,2.2302E-02_JPRB,2.1150E-02_JPRB,2.0451E-02_JPRB,1.9259E-02_JPRB,1.7581E-02_JPRB,&
2166	✓✓	10	& 1.5270E-02_JPRB,1.1646E-02_JPRB,1.0194E-02_JPRB/)
2167			KAO( :, 3, 5,11) = (/&
2168			& 2.5218E-02_JPRB,2.2788E-02_JPRB,2.1977E-02_JPRB,2.1628E-02_JPRB,2.0422E-02_JPRB,1.8826E-02_JPRB,&
2169	✓✓	10	& 1.6327E-02_JPRB,1.2719E-02_JPRB,1.2019E-02_JPRB/)
2170			KAO( :, 4, 5,11) = (/&
2171			& 2.5482E-02_JPRB,2.3305E-02_JPRB,2.2941E-02_JPRB,2.2718E-02_JPRB,2.1512E-02_JPRB,2.0034E-02_JPRB,&
2172	✓✓	10	& 1.7375E-02_JPRB,1.3885E-02_JPRB,1.4041E-02_JPRB/)
2173			KAO( :, 5, 5,11) = (/&
2174			& 2.5726E-02_JPRB,2.3793E-02_JPRB,2.3951E-02_JPRB,2.3636E-02_JPRB,2.2618E-02_JPRB,2.1077E-02_JPRB,&
2175	✓✓	10	& 1.8363E-02_JPRB,1.5350E-02_JPRB,1.6202E-02_JPRB/)
2176			KAO( :, 1, 6,11) = (/&
2177			& 2.2851E-02_JPRB,2.0373E-02_JPRB,1.9153E-02_JPRB,1.8191E-02_JPRB,1.7169E-02_JPRB,1.5447E-02_JPRB,&
2178	✓✓	10	& 1.3127E-02_JPRB,9.9268E-03_JPRB,7.8128E-03_JPRB/)
2179			KAO( :, 2, 6,11) = (/&
2180			& 2.3274E-02_JPRB,2.0974E-02_JPRB,2.0039E-02_JPRB,1.9515E-02_JPRB,1.8501E-02_JPRB,1.6740E-02_JPRB,&
2181	✓✓	10	& 1.4344E-02_JPRB,1.0951E-02_JPRB,8.8752E-03_JPRB/)
2182			KAO( :, 3, 6,11) = (/&
2183			& 2.3672E-02_JPRB,2.1617E-02_JPRB,2.1050E-02_JPRB,2.0731E-02_JPRB,1.9672E-02_JPRB,1.8067E-02_JPRB,&
2184	✓✓	10	& 1.5465E-02_JPRB,1.2013E-02_JPRB,1.0301E-02_JPRB/)
2185			KAO( :, 4, 6,11) = (/&
2186			& 2.4031E-02_JPRB,2.2215E-02_JPRB,2.2188E-02_JPRB,2.1796E-02_JPRB,2.0865E-02_JPRB,1.9256E-02_JPRB,&
2187	✓✓	10	& 1.6602E-02_JPRB,1.3087E-02_JPRB,1.2045E-02_JPRB/)
2188			KAO( :, 5, 6,11) = (/&
2189			& 2.4424E-02_JPRB,2.2835E-02_JPRB,2.3262E-02_JPRB,2.2762E-02_JPRB,2.2024E-02_JPRB,2.0317E-02_JPRB,&
2190	✓✓	10	& 1.7726E-02_JPRB,1.4330E-02_JPRB,1.3970E-02_JPRB/)
2191			KAO( :, 1, 7,11) = (/&
2192			& 2.0897E-02_JPRB,1.8755E-02_JPRB,1.7733E-02_JPRB,1.7022E-02_JPRB,1.6054E-02_JPRB,1.4311E-02_JPRB,&
2193	✓✓	10	& 1.2008E-02_JPRB,9.2731E-03_JPRB,7.7437E-03_JPRB/)
2194			KAO( :, 2, 7,11) = (/&
2195			& 2.1410E-02_JPRB,1.9491E-02_JPRB,1.8752E-02_JPRB,1.8362E-02_JPRB,1.7373E-02_JPRB,1.5636E-02_JPRB,&
2196	✓✓	10	& 1.3285E-02_JPRB,1.0177E-02_JPRB,8.5051E-03_JPRB/)
2197			KAO( :, 3, 7,11) = (/&
2198			& 2.1887E-02_JPRB,2.0202E-02_JPRB,1.9920E-02_JPRB,1.9593E-02_JPRB,1.8568E-02_JPRB,1.6958E-02_JPRB,&
2199	✓✓	10	& 1.4466E-02_JPRB,1.1212E-02_JPRB,9.3670E-03_JPRB/)
2200			KAO( :, 4, 7,11) = (/&
2201			& 2.2392E-02_JPRB,2.0930E-02_JPRB,2.1140E-02_JPRB,2.0643E-02_JPRB,1.9778E-02_JPRB,1.8147E-02_JPRB,&
2202	✓✓	10	& 1.5692E-02_JPRB,1.2278E-02_JPRB,1.0489E-02_JPRB/)
2203			KAO( :, 5, 7,11) = (/&
2204			& 2.2888E-02_JPRB,2.1742E-02_JPRB,2.2178E-02_JPRB,2.1714E-02_JPRB,2.0936E-02_JPRB,1.9278E-02_JPRB,&
2205	✓✓	10	& 1.6882E-02_JPRB,1.3452E-02_JPRB,1.1897E-02_JPRB/)
2206			KAO( :, 1, 8,11) = (/&
2207			& 1.8841E-02_JPRB,1.7056E-02_JPRB,1.6222E-02_JPRB,1.5693E-02_JPRB,1.4689E-02_JPRB,1.2994E-02_JPRB,&
2208	✓✓	10	& 1.0918E-02_JPRB,9.1547E-03_JPRB,7.9124E-03_JPRB/)
2209			KAO( :, 2, 8,11) = (/&
2210			& 1.9409E-02_JPRB,1.7855E-02_JPRB,1.7363E-02_JPRB,1.7024E-02_JPRB,1.5955E-02_JPRB,1.4305E-02_JPRB,&
2211	✓✓	10	& 1.2087E-02_JPRB,9.7905E-03_JPRB,8.4826E-03_JPRB/)
2212			KAO( :, 3, 8,11) = (/&
2213			& 1.9993E-02_JPRB,1.8663E-02_JPRB,1.8622E-02_JPRB,1.8244E-02_JPRB,1.7158E-02_JPRB,1.5610E-02_JPRB,&
2214	✓✓	10	& 1.3302E-02_JPRB,1.0551E-02_JPRB,9.2336E-03_JPRB/)
2215			KAO( :, 4, 8,11) = (/&
2216			& 2.0602E-02_JPRB,1.9539E-02_JPRB,1.9827E-02_JPRB,1.9347E-02_JPRB,1.8357E-02_JPRB,1.6779E-02_JPRB,&
2217	✓✓	10	& 1.4567E-02_JPRB,1.1467E-02_JPRB,9.9909E-03_JPRB/)
2218			KAO( :, 5, 8,11) = (/&
2219			& 2.1064E-02_JPRB,2.0402E-02_JPRB,2.0838E-02_JPRB,2.0466E-02_JPRB,1.9507E-02_JPRB,1.7959E-02_JPRB,&
2220	✓✓	10	& 1.5824E-02_JPRB,1.2520E-02_JPRB,1.0807E-02_JPRB/)
2221			KAO( :, 1, 9,11) = (/&
2222			& 1.6824E-02_JPRB,1.5334E-02_JPRB,1.4694E-02_JPRB,1.4181E-02_JPRB,1.3143E-02_JPRB,1.1680E-02_JPRB,&
2223	✓✓	10	& 1.0334E-02_JPRB,9.1831E-03_JPRB,1.1053E-02_JPRB/)
2224			KAO( :, 2, 9,11) = (/&
2225			& 1.7417E-02_JPRB,1.6144E-02_JPRB,1.5897E-02_JPRB,1.5487E-02_JPRB,1.4380E-02_JPRB,1.2867E-02_JPRB,&
2226	✓✓	10	& 1.1184E-02_JPRB,9.7551E-03_JPRB,1.1728E-02_JPRB/)
2227			KAO( :, 3, 9,11) = (/&
2228			& 1.8068E-02_JPRB,1.7042E-02_JPRB,1.7161E-02_JPRB,1.6678E-02_JPRB,1.5557E-02_JPRB,1.4093E-02_JPRB,&
2229	✓✓	10	& 1.2184E-02_JPRB,1.0404E-02_JPRB,1.2483E-02_JPRB/)
2230			KAO( :, 4, 9,11) = (/&
2231			& 1.8632E-02_JPRB,1.7983E-02_JPRB,1.8323E-02_JPRB,1.7788E-02_JPRB,1.6784E-02_JPRB,1.5260E-02_JPRB,&
2232	✓✓	10	& 1.3324E-02_JPRB,1.1123E-02_JPRB,1.3280E-02_JPRB/)
2233			KAO( :, 5, 9,11) = (/&
2234			& 1.9073E-02_JPRB,1.8843E-02_JPRB,1.9281E-02_JPRB,1.8905E-02_JPRB,1.7900E-02_JPRB,1.6447E-02_JPRB,&
2235	✓✓	10	& 1.4515E-02_JPRB,1.1877E-02_JPRB,1.4077E-02_JPRB/)
2236			KAO( :, 1,10,11) = (/&
2237			& 1.5121E-02_JPRB,1.3838E-02_JPRB,1.3365E-02_JPRB,1.2721E-02_JPRB,1.1737E-02_JPRB,1.0953E-02_JPRB,&
2238	✓✓	10	& 1.0213E-02_JPRB,9.1916E-03_JPRB,3.5198E-02_JPRB/)
2239			KAO( :, 2,10,11) = (/&
2240			& 1.5710E-02_JPRB,1.4640E-02_JPRB,1.4492E-02_JPRB,1.3911E-02_JPRB,1.2838E-02_JPRB,1.1818E-02_JPRB,&
2241	✓✓	10	& 1.0924E-02_JPRB,9.7376E-03_JPRB,3.6361E-02_JPRB/)
2242			KAO( :, 3,10,11) = (/&
2243			& 1.6286E-02_JPRB,1.5525E-02_JPRB,1.5683E-02_JPRB,1.5045E-02_JPRB,1.3992E-02_JPRB,1.2769E-02_JPRB,&
2244	✓✓	10	& 1.1723E-02_JPRB,1.0342E-02_JPRB,3.7359E-02_JPRB/)
2245			KAO( :, 4,10,11) = (/&
2246			& 1.6782E-02_JPRB,1.6440E-02_JPRB,1.6745E-02_JPRB,1.6156E-02_JPRB,1.5181E-02_JPRB,1.3811E-02_JPRB,&
2247	✓✓	10	& 1.2551E-02_JPRB,1.1044E-02_JPRB,3.8551E-02_JPRB/)
2248			KAO( :, 5,10,11) = (/&
2249			& 1.7221E-02_JPRB,1.7284E-02_JPRB,1.7650E-02_JPRB,1.7276E-02_JPRB,1.6297E-02_JPRB,1.4958E-02_JPRB,&
2250	✓✓	10	& 1.3449E-02_JPRB,1.1753E-02_JPRB,3.9714E-02_JPRB/)
2251			KAO( :, 1,11,11) = (/&
2252			& 1.4019E-02_JPRB,1.2957E-02_JPRB,1.2611E-02_JPRB,1.1869E-02_JPRB,1.1221E-02_JPRB,1.0951E-02_JPRB,&
2253	✓✓	10	& 1.0419E-02_JPRB,9.2574E-03_JPRB,5.9295E-02_JPRB/)
2254			KAO( :, 2,11,11) = (/&
2255			& 1.4514E-02_JPRB,1.3729E-02_JPRB,1.3655E-02_JPRB,1.2913E-02_JPRB,1.2091E-02_JPRB,1.1604E-02_JPRB,&
2256	✓✓	10	& 1.1118E-02_JPRB,9.8828E-03_JPRB,6.0862E-02_JPRB/)
2257			KAO( :, 3,11,11) = (/&
2258			& 1.4986E-02_JPRB,1.4596E-02_JPRB,1.4648E-02_JPRB,1.3931E-02_JPRB,1.3062E-02_JPRB,1.2353E-02_JPRB,&
2259	✓✓	10	& 1.1821E-02_JPRB,1.0518E-02_JPRB,6.2214E-02_JPRB/)
2260			KAO( :, 4,11,11) = (/&
2261			& 1.5398E-02_JPRB,1.5423E-02_JPRB,1.5511E-02_JPRB,1.4991E-02_JPRB,1.4093E-02_JPRB,1.3225E-02_JPRB,&
2262	✓✓	10	& 1.2498E-02_JPRB,1.1195E-02_JPRB,6.3269E-02_JPRB/)
2263			KAO( :, 5,11,11) = (/&
2264			& 1.5718E-02_JPRB,1.6102E-02_JPRB,1.6332E-02_JPRB,1.5968E-02_JPRB,1.5171E-02_JPRB,1.4160E-02_JPRB,&
2265	✓✓	10	& 1.3209E-02_JPRB,1.1891E-02_JPRB,6.4542E-02_JPRB/)
2266			KAO( :, 1,12,11) = (/&
2267			& 1.3164E-02_JPRB,1.2292E-02_JPRB,1.1927E-02_JPRB,1.1265E-02_JPRB,1.1057E-02_JPRB,1.0913E-02_JPRB,&
2268	✓✓	10	& 1.0445E-02_JPRB,9.2736E-03_JPRB,7.4756E-02_JPRB/)
2269			KAO( :, 2,12,11) = (/&
2270			& 1.3602E-02_JPRB,1.3075E-02_JPRB,1.2792E-02_JPRB,1.2052E-02_JPRB,1.1692E-02_JPRB,1.1536E-02_JPRB,&
2271	✓✓	10	& 1.1126E-02_JPRB,9.9170E-03_JPRB,7.6306E-02_JPRB/)
2272			KAO( :, 3,12,11) = (/&
2273			& 1.3977E-02_JPRB,1.3830E-02_JPRB,1.3590E-02_JPRB,1.2927E-02_JPRB,1.2424E-02_JPRB,1.2227E-02_JPRB,&
2274	✓✓	10	& 1.1745E-02_JPRB,1.0613E-02_JPRB,7.7655E-02_JPRB/)
2275			KAO( :, 4,12,11) = (/&
2276			& 1.4251E-02_JPRB,1.4432E-02_JPRB,1.4329E-02_JPRB,1.3821E-02_JPRB,1.3256E-02_JPRB,1.2933E-02_JPRB,&
2277	✓✓	10	& 1.2386E-02_JPRB,1.1303E-02_JPRB,7.8663E-02_JPRB/)
2278			KAO( :, 5,12,11) = (/&
2279			& 1.4497E-02_JPRB,1.4939E-02_JPRB,1.5040E-02_JPRB,1.4676E-02_JPRB,1.4122E-02_JPRB,1.3675E-02_JPRB,&
2280	✓✓	10	& 1.3045E-02_JPRB,1.1981E-02_JPRB,7.9879E-02_JPRB/)
2281			KAO( :, 1,13,11) = (/&
2282			& 1.2616E-02_JPRB,1.1893E-02_JPRB,1.1313E-02_JPRB,1.0907E-02_JPRB,1.0966E-02_JPRB,1.0790E-02_JPRB,&
2283	✓✓	10	& 1.0280E-02_JPRB,9.1949E-03_JPRB,7.3725E-02_JPRB/)
2284			KAO( :, 2,13,11) = (/&
2285			& 1.2957E-02_JPRB,1.2555E-02_JPRB,1.2016E-02_JPRB,1.1533E-02_JPRB,1.1499E-02_JPRB,1.1400E-02_JPRB,&
2286	✓✓	10	& 1.0924E-02_JPRB,9.8797E-03_JPRB,7.4996E-02_JPRB/)
2287			KAO( :, 3,13,11) = (/&
2288			& 1.3172E-02_JPRB,1.3071E-02_JPRB,1.2663E-02_JPRB,1.2207E-02_JPRB,1.2117E-02_JPRB,1.2009E-02_JPRB,&
2289	✓✓	10	& 1.1575E-02_JPRB,1.0610E-02_JPRB,7.6038E-02_JPRB/)
2290			KAO( :, 4,13,11) = (/&
2291			& 1.3348E-02_JPRB,1.3517E-02_JPRB,1.3285E-02_JPRB,1.2851E-02_JPRB,1.2762E-02_JPRB,1.2671E-02_JPRB,&
2292	✓✓	10	& 1.2190E-02_JPRB,1.1315E-02_JPRB,7.7063E-02_JPRB/)
2293			KAO( :, 5,13,11) = (/&
2294			& 1.3524E-02_JPRB,1.3946E-02_JPRB,1.3887E-02_JPRB,1.3540E-02_JPRB,1.3388E-02_JPRB,1.3305E-02_JPRB,&
2295	✓✓	10	& 1.2841E-02_JPRB,1.2009E-02_JPRB,7.8468E-02_JPRB/)
2296			KAO( :, 1, 1,12) = (/&
2297			& 3.9522E-02_JPRB,3.4695E-02_JPRB,3.0393E-02_JPRB,2.7444E-02_JPRB,2.4701E-02_JPRB,2.2430E-02_JPRB,&
2298	✓✓	10	& 1.9690E-02_JPRB,1.9007E-02_JPRB,2.1357E-02_JPRB/)
2299			KAO( :, 2, 1,12) = (/&
2300			& 3.9055E-02_JPRB,3.4293E-02_JPRB,3.0365E-02_JPRB,2.7692E-02_JPRB,2.5619E-02_JPRB,2.3505E-02_JPRB,&
2301	✓✓	10	& 2.1002E-02_JPRB,2.1723E-02_JPRB,2.4548E-02_JPRB/)
2302			KAO( :, 3, 1,12) = (/&
2303			& 3.8771E-02_JPRB,3.4045E-02_JPRB,3.0558E-02_JPRB,2.8122E-02_JPRB,2.6598E-02_JPRB,2.4455E-02_JPRB,&
2304	✓✓	10	& 2.2524E-02_JPRB,2.4725E-02_JPRB,2.7978E-02_JPRB/)
2305			KAO( :, 4, 1,12) = (/&
2306			& 3.8655E-02_JPRB,3.3972E-02_JPRB,3.0813E-02_JPRB,2.8575E-02_JPRB,2.7403E-02_JPRB,2.5405E-02_JPRB,&
2307	✓✓	10	& 2.4525E-02_JPRB,2.7903E-02_JPRB,3.1582E-02_JPRB/)
2308			KAO( :, 5, 1,12) = (/&
2309			& 3.8581E-02_JPRB,3.4020E-02_JPRB,3.1105E-02_JPRB,2.9186E-02_JPRB,2.7932E-02_JPRB,2.6686E-02_JPRB,&
2310	✓✓	10	& 2.7056E-02_JPRB,3.1213E-02_JPRB,3.5341E-02_JPRB/)
2311			KAO( :, 1, 2,12) = (/&
2312			& 4.0900E-02_JPRB,3.5882E-02_JPRB,3.1540E-02_JPRB,2.8648E-02_JPRB,2.5916E-02_JPRB,2.3479E-02_JPRB,&
2313	✓✓	10	& 1.9842E-02_JPRB,1.8172E-02_JPRB,2.0462E-02_JPRB/)
2314			KAO( :, 2, 2,12) = (/&
2315			& 4.0629E-02_JPRB,3.5647E-02_JPRB,3.1749E-02_JPRB,2.9079E-02_JPRB,2.7038E-02_JPRB,2.4448E-02_JPRB,&
2316	✓✓	10	& 2.0997E-02_JPRB,2.0801E-02_JPRB,2.3586E-02_JPRB/)
2317			KAO( :, 3, 2,12) = (/&
2318			& 4.0634E-02_JPRB,3.5666E-02_JPRB,3.2165E-02_JPRB,2.9630E-02_JPRB,2.8090E-02_JPRB,2.5205E-02_JPRB,&
2319	✓✓	10	& 2.2483E-02_JPRB,2.3756E-02_JPRB,2.6981E-02_JPRB/)
2320			KAO( :, 4, 2,12) = (/&
2321			& 4.0680E-02_JPRB,3.5804E-02_JPRB,3.2512E-02_JPRB,3.0271E-02_JPRB,2.8844E-02_JPRB,2.6048E-02_JPRB,&
2322	✓✓	10	& 2.4362E-02_JPRB,2.6965E-02_JPRB,3.0664E-02_JPRB/)
2323			KAO( :, 5, 2,12) = (/&
2324			& 4.0551E-02_JPRB,3.5850E-02_JPRB,3.2760E-02_JPRB,3.1085E-02_JPRB,2.9377E-02_JPRB,2.7302E-02_JPRB,&
2325	✓✓	10	& 2.6614E-02_JPRB,3.0323E-02_JPRB,3.4512E-02_JPRB/)
2326			KAO( :, 1, 3,12) = (/&
2327			& 4.2297E-02_JPRB,3.7083E-02_JPRB,3.2675E-02_JPRB,2.9696E-02_JPRB,2.6819E-02_JPRB,2.4251E-02_JPRB,&
2328	✓✓	10	& 1.9800E-02_JPRB,1.7013E-02_JPRB,1.8998E-02_JPRB/)
2329			KAO( :, 2, 3,12) = (/&
2330			& 4.2345E-02_JPRB,3.7129E-02_JPRB,3.3126E-02_JPRB,3.0221E-02_JPRB,2.7989E-02_JPRB,2.5268E-02_JPRB,&
2331	✓✓	10	& 2.0870E-02_JPRB,1.9534E-02_JPRB,2.2175E-02_JPRB/)
2332			KAO( :, 3, 3,12) = (/&
2333			& 4.2503E-02_JPRB,3.7329E-02_JPRB,3.3705E-02_JPRB,3.0884E-02_JPRB,2.9095E-02_JPRB,2.6012E-02_JPRB,&
2334	✓✓	10	& 2.2274E-02_JPRB,2.2409E-02_JPRB,2.5549E-02_JPRB/)
2335			KAO( :, 4, 3,12) = (/&
2336			& 4.2563E-02_JPRB,3.7513E-02_JPRB,3.4118E-02_JPRB,3.1719E-02_JPRB,2.9991E-02_JPRB,2.6648E-02_JPRB,&
2337	✓✓	10	& 2.4107E-02_JPRB,2.5501E-02_JPRB,2.9091E-02_JPRB/)
2338			KAO( :, 5, 3,12) = (/&
2339			& 4.2352E-02_JPRB,3.7494E-02_JPRB,3.4375E-02_JPRB,3.2625E-02_JPRB,3.0646E-02_JPRB,2.7653E-02_JPRB,&
2340	✓✓	10	& 2.6034E-02_JPRB,2.8674E-02_JPRB,3.2704E-02_JPRB/)
2341			KAO( :, 1, 4,12) = (/&
2342			& 4.3449E-02_JPRB,3.8071E-02_JPRB,3.3569E-02_JPRB,3.0433E-02_JPRB,2.7408E-02_JPRB,2.4611E-02_JPRB,&
2343	✓✓	10	& 2.0108E-02_JPRB,1.5832E-02_JPRB,1.6869E-02_JPRB/)
2344			KAO( :, 2, 4,12) = (/&
2345			& 4.3754E-02_JPRB,3.8357E-02_JPRB,3.4350E-02_JPRB,3.1115E-02_JPRB,2.8679E-02_JPRB,2.5625E-02_JPRB,&
2346	✓✓	10	& 2.1066E-02_JPRB,1.8077E-02_JPRB,2.0082E-02_JPRB/)
2347			KAO( :, 3, 4,12) = (/&
2348			& 4.3973E-02_JPRB,3.8656E-02_JPRB,3.5023E-02_JPRB,3.2006E-02_JPRB,2.9792E-02_JPRB,2.6458E-02_JPRB,&
2349	✓✓	10	& 2.2328E-02_JPRB,2.0812E-02_JPRB,2.3540E-02_JPRB/)
2350			KAO( :, 4, 4,12) = (/&
2351			& 4.3938E-02_JPRB,3.8773E-02_JPRB,3.5454E-02_JPRB,3.2980E-02_JPRB,3.0747E-02_JPRB,2.7193E-02_JPRB,&
2352	✓✓	10	& 2.3978E-02_JPRB,2.3783E-02_JPRB,2.7070E-02_JPRB/)
2353			KAO( :, 5, 4,12) = (/&
2354			& 4.3814E-02_JPRB,3.8836E-02_JPRB,3.5796E-02_JPRB,3.3909E-02_JPRB,3.1572E-02_JPRB,2.8214E-02_JPRB,&
2355	✓✓	10	& 2.5779E-02_JPRB,2.6823E-02_JPRB,3.0560E-02_JPRB/)
2356			KAO( :, 1, 5,12) = (/&
2357			& 4.3987E-02_JPRB,3.8530E-02_JPRB,3.4139E-02_JPRB,3.0809E-02_JPRB,2.7641E-02_JPRB,2.4664E-02_JPRB,&
2358	✓✓	10	& 2.0281E-02_JPRB,1.4828E-02_JPRB,1.4596E-02_JPRB/)
2359			KAO( :, 2, 5,12) = (/&
2360			& 4.4423E-02_JPRB,3.8965E-02_JPRB,3.5098E-02_JPRB,3.1717E-02_JPRB,2.9032E-02_JPRB,2.5717E-02_JPRB,&
2361	✓✓	10	& 2.1306E-02_JPRB,1.6792E-02_JPRB,1.7692E-02_JPRB/)
2362			KAO( :, 3, 5,12) = (/&
2363			& 4.4740E-02_JPRB,3.9368E-02_JPRB,3.5854E-02_JPRB,3.2800E-02_JPRB,3.0202E-02_JPRB,2.6633E-02_JPRB,&
2364	✓✓	10	& 2.2521E-02_JPRB,1.9130E-02_JPRB,2.0967E-02_JPRB/)
2365			KAO( :, 4, 5,12) = (/&
2366			& 4.4784E-02_JPRB,3.9578E-02_JPRB,3.6349E-02_JPRB,3.3852E-02_JPRB,3.1212E-02_JPRB,2.7594E-02_JPRB,&
2367	✓✓	10	& 2.3985E-02_JPRB,2.1768E-02_JPRB,2.4335E-02_JPRB/)
2368			KAO( :, 5, 5,12) = (/&
2369			& 4.4634E-02_JPRB,3.9684E-02_JPRB,3.6716E-02_JPRB,3.4783E-02_JPRB,3.2166E-02_JPRB,2.8840E-02_JPRB,&
2370	✓✓	10	& 2.5566E-02_JPRB,2.4589E-02_JPRB,2.7780E-02_JPRB/)
2371			KAO( :, 1, 6,12) = (/&
2372			& 4.3652E-02_JPRB,3.8230E-02_JPRB,3.4067E-02_JPRB,3.0633E-02_JPRB,2.7394E-02_JPRB,2.4357E-02_JPRB,&
2373	✓✓	10	& 2.0018E-02_JPRB,1.4129E-02_JPRB,1.2309E-02_JPRB/)
2374			KAO( :, 2, 6,12) = (/&
2375			& 4.4319E-02_JPRB,3.8893E-02_JPRB,3.5172E-02_JPRB,3.1745E-02_JPRB,2.8902E-02_JPRB,2.5570E-02_JPRB,&
2376	✓✓	10	& 2.1093E-02_JPRB,1.5716E-02_JPRB,1.5104E-02_JPRB/)
2377			KAO( :, 3, 6,12) = (/&
2378			& 4.4786E-02_JPRB,3.9451E-02_JPRB,3.6064E-02_JPRB,3.2991E-02_JPRB,3.0223E-02_JPRB,2.6609E-02_JPRB,&
2379	✓✓	10	& 2.2435E-02_JPRB,1.7637E-02_JPRB,1.8165E-02_JPRB/)
2380			KAO( :, 4, 6,12) = (/&
2381			& 4.4788E-02_JPRB,3.9699E-02_JPRB,3.6561E-02_JPRB,3.4163E-02_JPRB,3.1314E-02_JPRB,2.7788E-02_JPRB,&
2382	✓✓	10	& 2.3906E-02_JPRB,1.9877E-02_JPRB,2.1395E-02_JPRB/)
2383			KAO( :, 5, 6,12) = (/&
2384			& 4.4447E-02_JPRB,3.9668E-02_JPRB,3.6988E-02_JPRB,3.5173E-02_JPRB,3.2361E-02_JPRB,2.9209E-02_JPRB,&
2385	✓✓	10	& 2.5326E-02_JPRB,2.2392E-02_JPRB,2.4740E-02_JPRB/)
2386			KAO( :, 1, 7,12) = (/&
2387			& 4.2520E-02_JPRB,3.7241E-02_JPRB,3.3313E-02_JPRB,2.9817E-02_JPRB,2.6724E-02_JPRB,2.3713E-02_JPRB,&
2388	✓✓	10	& 1.9392E-02_JPRB,1.3514E-02_JPRB,1.0779E-02_JPRB/)
2389			KAO( :, 2, 7,12) = (/&
2390			& 4.3342E-02_JPRB,3.8062E-02_JPRB,3.4549E-02_JPRB,3.1204E-02_JPRB,2.8393E-02_JPRB,2.5083E-02_JPRB,&
2391	✓✓	10	& 2.0539E-02_JPRB,1.4970E-02_JPRB,1.2835E-02_JPRB/)
2392			KAO( :, 3, 7,12) = (/&
2393			& 4.3790E-02_JPRB,3.8673E-02_JPRB,3.5497E-02_JPRB,3.2592E-02_JPRB,2.9885E-02_JPRB,2.6278E-02_JPRB,&
2394	✓✓	10	& 2.1950E-02_JPRB,1.6561E-02_JPRB,1.5528E-02_JPRB/)
2395			KAO( :, 4, 7,12) = (/&
2396			& 4.3699E-02_JPRB,3.8889E-02_JPRB,3.6038E-02_JPRB,3.3992E-02_JPRB,3.1096E-02_JPRB,2.7610E-02_JPRB,&
2397	✓✓	10	& 2.3462E-02_JPRB,1.8494E-02_JPRB,1.8561E-02_JPRB/)
2398			KAO( :, 5, 7,12) = (/&
2399			& 4.3391E-02_JPRB,3.8899E-02_JPRB,3.6695E-02_JPRB,3.5094E-02_JPRB,3.2242E-02_JPRB,2.9127E-02_JPRB,&
2400	✓✓	10	& 2.4986E-02_JPRB,2.0683E-02_JPRB,2.1759E-02_JPRB/)
2401			KAO( :, 1, 8,12) = (/&
2402			& 4.0705E-02_JPRB,3.5661E-02_JPRB,3.2044E-02_JPRB,2.8588E-02_JPRB,2.5730E-02_JPRB,2.2651E-02_JPRB,&
2403	✓✓	10	& 1.8403E-02_JPRB,1.2786E-02_JPRB,1.0617E-02_JPRB/)
2404			KAO( :, 2, 8,12) = (/&
2405			& 4.1513E-02_JPRB,3.6523E-02_JPRB,3.3287E-02_JPRB,3.0168E-02_JPRB,2.7518E-02_JPRB,2.4185E-02_JPRB,&
2406	✓✓	10	& 1.9645E-02_JPRB,1.4186E-02_JPRB,1.1770E-02_JPRB/)
2407			KAO( :, 3, 8,12) = (/&
2408			& 4.1918E-02_JPRB,3.7171E-02_JPRB,3.4241E-02_JPRB,3.1699E-02_JPRB,2.9124E-02_JPRB,2.5489E-02_JPRB,&
2409	✓✓	10	& 2.1120E-02_JPRB,1.5769E-02_JPRB,1.3550E-02_JPRB/)
2410			KAO( :, 4, 8,12) = (/&
2411			& 4.1853E-02_JPRB,3.7439E-02_JPRB,3.4958E-02_JPRB,3.3201E-02_JPRB,3.0465E-02_JPRB,2.6939E-02_JPRB,&
2412	✓✓	10	& 2.2712E-02_JPRB,1.7517E-02_JPRB,1.5986E-02_JPRB/)
2413			KAO( :, 5, 8,12) = (/&
2414			& 4.1733E-02_JPRB,3.7668E-02_JPRB,3.5839E-02_JPRB,3.4355E-02_JPRB,3.1760E-02_JPRB,2.8542E-02_JPRB,&
2415	✓✓	10	& 2.4348E-02_JPRB,1.9402E-02_JPRB,1.8887E-02_JPRB/)
2416			KAO( :, 1, 9,12) = (/&
2417			& 3.8179E-02_JPRB,3.3470E-02_JPRB,3.0206E-02_JPRB,2.7054E-02_JPRB,2.4424E-02_JPRB,2.1213E-02_JPRB,&
2418	✓✓	10	& 1.7112E-02_JPRB,1.2467E-02_JPRB,1.5003E-02_JPRB/)
2419			KAO( :, 2, 9,12) = (/&
2420			& 3.9010E-02_JPRB,3.4434E-02_JPRB,3.1441E-02_JPRB,2.8741E-02_JPRB,2.6231E-02_JPRB,2.2823E-02_JPRB,&
2421	✓✓	10	& 1.8428E-02_JPRB,1.3530E-02_JPRB,1.6372E-02_JPRB/)
2422			KAO( :, 3, 9,12) = (/&
2423			& 3.9453E-02_JPRB,3.5166E-02_JPRB,3.2518E-02_JPRB,3.0394E-02_JPRB,2.7907E-02_JPRB,2.4225E-02_JPRB,&
2424	✓✓	10	& 1.9954E-02_JPRB,1.4900E-02_JPRB,1.8039E-02_JPRB/)
2425			KAO( :, 4, 9,12) = (/&
2426			& 3.9552E-02_JPRB,3.5595E-02_JPRB,3.3460E-02_JPRB,3.1929E-02_JPRB,2.9264E-02_JPRB,2.5769E-02_JPRB,&
2427	✓✓	10	& 2.1600E-02_JPRB,1.6537E-02_JPRB,1.9903E-02_JPRB/)
2428			KAO( :, 5, 9,12) = (/&
2429			& 3.9456E-02_JPRB,3.5940E-02_JPRB,3.4560E-02_JPRB,3.3060E-02_JPRB,3.0675E-02_JPRB,2.7481E-02_JPRB,&
2430	✓✓	10	& 2.3382E-02_JPRB,1.8398E-02_JPRB,2.1739E-02_JPRB/)
2431			KAO( :, 1,10,12) = (/&
2432			& 3.5238E-02_JPRB,3.0971E-02_JPRB,2.8042E-02_JPRB,2.5331E-02_JPRB,2.2876E-02_JPRB,1.9632E-02_JPRB,&
2433	✓✓	10	& 1.5965E-02_JPRB,1.2700E-02_JPRB,4.7338E-02_JPRB/)
2434			KAO( :, 2,10,12) = (/&
2435			& 3.6134E-02_JPRB,3.2062E-02_JPRB,2.9356E-02_JPRB,2.7135E-02_JPRB,2.4639E-02_JPRB,2.1263E-02_JPRB,&
2436	✓✓	10	& 1.7126E-02_JPRB,1.3564E-02_JPRB,4.9352E-02_JPRB/)
2437			KAO( :, 3,10,12) = (/&
2438			& 3.6647E-02_JPRB,3.2881E-02_JPRB,3.0571E-02_JPRB,2.8822E-02_JPRB,2.6275E-02_JPRB,2.2691E-02_JPRB,&
2439	✓✓	10	& 1.8634E-02_JPRB,1.4609E-02_JPRB,5.1163E-02_JPRB/)
2440			KAO( :, 4,10,12) = (/&
2441			& 3.6732E-02_JPRB,3.3352E-02_JPRB,3.1697E-02_JPRB,3.0299E-02_JPRB,2.7653E-02_JPRB,2.4298E-02_JPRB,&
2442	✓✓	10	& 2.0355E-02_JPRB,1.5925E-02_JPRB,5.2665E-02_JPRB/)
2443			KAO( :, 5,10,12) = (/&
2444			& 3.6735E-02_JPRB,3.3801E-02_JPRB,3.2857E-02_JPRB,3.1401E-02_JPRB,2.9116E-02_JPRB,2.6070E-02_JPRB,&
2445	✓✓	10	& 2.2245E-02_JPRB,1.7479E-02_JPRB,5.4548E-02_JPRB/)
2446			KAO( :, 1,11,12) = (/&
2447			& 3.2545E-02_JPRB,2.8854E-02_JPRB,2.6358E-02_JPRB,2.4300E-02_JPRB,2.1804E-02_JPRB,1.8684E-02_JPRB,&
2448	✓✓	10	& 1.5775E-02_JPRB,1.3392E-02_JPRB,8.3440E-02_JPRB/)
2449			KAO( :, 2,11,12) = (/&
2450			& 3.3300E-02_JPRB,2.9905E-02_JPRB,2.7758E-02_JPRB,2.6019E-02_JPRB,2.3465E-02_JPRB,2.0097E-02_JPRB,&
2451	✓✓	10	& 1.6793E-02_JPRB,1.4249E-02_JPRB,8.5867E-02_JPRB/)
2452
2453	✓✗	1	IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART8',1,ZHOOK_HANDLE)
2454		1	END SUBROUTINE PART8
2455
2456
2457		1	SUBROUTINE PART9
2458
2459			REAL(KIND=JPRB) :: ZHOOK_HANDLE
2460	✓✗	1	IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART9',0,ZHOOK_HANDLE)
2461
2462
2463			KAO( :, 3,11,12) = (/&
2464			& 3.3558E-02_JPRB,3.0525E-02_JPRB,2.8985E-02_JPRB,2.7554E-02_JPRB,2.4920E-02_JPRB,2.1636E-02_JPRB,&
2465	✓✓	10	& 1.8144E-02_JPRB,1.5281E-02_JPRB,8.8098E-02_JPRB/)
2466			KAO( :, 4,11,12) = (/&
2467			& 3.3710E-02_JPRB,3.1080E-02_JPRB,3.0218E-02_JPRB,2.8753E-02_JPRB,2.6347E-02_JPRB,2.3365E-02_JPRB,&
2468	✓✓	10	& 1.9836E-02_JPRB,1.6406E-02_JPRB,9.0071E-02_JPRB/)
2469			KAO( :, 5,11,12) = (/&
2470			& 3.3928E-02_JPRB,3.1726E-02_JPRB,3.1326E-02_JPRB,2.9966E-02_JPRB,2.7916E-02_JPRB,2.5204E-02_JPRB,&
2471	✓✓	10	& 2.1753E-02_JPRB,1.7712E-02_JPRB,9.1519E-02_JPRB/)
2472			KAO( :, 1,12,12) = (/&
2473			& 2.9830E-02_JPRB,2.6721E-02_JPRB,2.4676E-02_JPRB,2.2938E-02_JPRB,2.0448E-02_JPRB,1.7882E-02_JPRB,&
2474	✓✓	10	& 1.5923E-02_JPRB,1.3970E-02_JPRB,1.1086E-01_JPRB/)
2475			KAO( :, 2,12,12) = (/&
2476			& 3.0231E-02_JPRB,2.7476E-02_JPRB,2.6007E-02_JPRB,2.4462E-02_JPRB,2.1935E-02_JPRB,1.9103E-02_JPRB,&
2477	✓✓	10	& 1.6840E-02_JPRB,1.4875E-02_JPRB,1.1330E-01_JPRB/)
2478			KAO( :, 3,12,12) = (/&
2479			& 3.0491E-02_JPRB,2.8099E-02_JPRB,2.7260E-02_JPRB,2.5711E-02_JPRB,2.3307E-02_JPRB,2.0562E-02_JPRB,&
2480	✓✓	10	& 1.8077E-02_JPRB,1.5918E-02_JPRB,1.1557E-01_JPRB/)
2481			KAO( :, 4,12,12) = (/&
2482			& 3.0757E-02_JPRB,2.8842E-02_JPRB,2.8411E-02_JPRB,2.6924E-02_JPRB,2.4803E-02_JPRB,2.2253E-02_JPRB,&
2483	✓✓	10	& 1.9581E-02_JPRB,1.7012E-02_JPRB,1.1765E-01_JPRB/)
2484			KAO( :, 5,12,12) = (/&
2485			& 3.0918E-02_JPRB,2.9599E-02_JPRB,2.9489E-02_JPRB,2.8288E-02_JPRB,2.6494E-02_JPRB,2.4129E-02_JPRB,&
2486	✓✓	10	& 2.1275E-02_JPRB,1.8143E-02_JPRB,1.1909E-01_JPRB/)
2487			KAO( :, 1,13,12) = (/&
2488			& 2.7094E-02_JPRB,2.4532E-02_JPRB,2.3049E-02_JPRB,2.1309E-02_JPRB,1.9154E-02_JPRB,1.7486E-02_JPRB,&
2489	✓✓	10	& 1.6144E-02_JPRB,1.4353E-02_JPRB,1.1524E-01_JPRB/)
2490			KAO( :, 2,13,12) = (/&
2491			& 2.7412E-02_JPRB,2.5168E-02_JPRB,2.4223E-02_JPRB,2.2514E-02_JPRB,2.0316E-02_JPRB,1.8507E-02_JPRB,&
2492	✓✓	10	& 1.7150E-02_JPRB,1.5366E-02_JPRB,1.1754E-01_JPRB/)
2493			KAO( :, 3,13,12) = (/&
2494			& 2.7677E-02_JPRB,2.5904E-02_JPRB,2.5334E-02_JPRB,2.3685E-02_JPRB,2.1617E-02_JPRB,1.9773E-02_JPRB,&
2495	✓✓	10	& 1.8343E-02_JPRB,1.6413E-02_JPRB,1.1954E-01_JPRB/)
2496			KAO( :, 4,13,12) = (/&
2497			& 2.7872E-02_JPRB,2.6672E-02_JPRB,2.6384E-02_JPRB,2.5015E-02_JPRB,2.3188E-02_JPRB,2.1278E-02_JPRB,&
2498	✓✓	10	& 1.9644E-02_JPRB,1.7533E-02_JPRB,1.2118E-01_JPRB/)
2499			KAO( :, 5,13,12) = (/&
2500			& 2.7954E-02_JPRB,2.7488E-02_JPRB,2.7495E-02_JPRB,2.6532E-02_JPRB,2.4977E-02_JPRB,2.3012E-02_JPRB,&
2501	✓✓	10	& 2.1088E-02_JPRB,1.8595E-02_JPRB,1.2230E-01_JPRB/)
2502			KAO( :, 1, 1,13) = (/&
2503			& 5.6053E-02_JPRB,4.9173E-02_JPRB,4.2351E-02_JPRB,3.6619E-02_JPRB,3.1919E-02_JPRB,2.7549E-02_JPRB,&
2504	✓✓	10	& 2.5709E-02_JPRB,2.8817E-02_JPRB,3.2228E-02_JPRB/)
2505			KAO( :, 2, 1,13) = (/&
2506			& 5.5104E-02_JPRB,4.8363E-02_JPRB,4.1989E-02_JPRB,3.6731E-02_JPRB,3.2283E-02_JPRB,2.9042E-02_JPRB,&
2507	✓✓	10	& 2.9013E-02_JPRB,3.3235E-02_JPRB,3.7260E-02_JPRB/)
2508			KAO( :, 3, 1,13) = (/&
2509			& 5.3995E-02_JPRB,4.7411E-02_JPRB,4.1385E-02_JPRB,3.6532E-02_JPRB,3.2764E-02_JPRB,3.0737E-02_JPRB,&
2510	✓✓	10	& 3.2896E-02_JPRB,3.7808E-02_JPRB,4.2479E-02_JPRB/)
2511			KAO( :, 4, 1,13) = (/&
2512			& 5.2736E-02_JPRB,4.6336E-02_JPRB,4.0785E-02_JPRB,3.6489E-02_JPRB,3.3723E-02_JPRB,3.2658E-02_JPRB,&
2513	✓✓	10	& 3.6921E-02_JPRB,4.2523E-02_JPRB,4.7856E-02_JPRB/)
2514			KAO( :, 5, 1,13) = (/&
2515			& 5.1501E-02_JPRB,4.5267E-02_JPRB,4.0254E-02_JPRB,3.6460E-02_JPRB,3.5114E-02_JPRB,3.5037E-02_JPRB,&
2516	✓✓	10	& 4.0972E-02_JPRB,4.7260E-02_JPRB,5.3261E-02_JPRB/)
2517			KAO( :, 1, 2,13) = (/&
2518			& 6.0681E-02_JPRB,5.3202E-02_JPRB,4.5845E-02_JPRB,3.9636E-02_JPRB,3.4042E-02_JPRB,2.9064E-02_JPRB,&
2519	✓✓	10	& 2.6532E-02_JPRB,2.9036E-02_JPRB,3.2832E-02_JPRB/)
2520			KAO( :, 2, 2,13) = (/&
2521			& 5.9591E-02_JPRB,5.2263E-02_JPRB,4.5381E-02_JPRB,3.9598E-02_JPRB,3.4216E-02_JPRB,3.0746E-02_JPRB,&
2522	✓✓	10	& 2.9570E-02_JPRB,3.3591E-02_JPRB,3.8065E-02_JPRB/)
2523			KAO( :, 3, 2,13) = (/&
2524			& 5.8268E-02_JPRB,5.1123E-02_JPRB,4.4655E-02_JPRB,3.9364E-02_JPRB,3.4820E-02_JPRB,3.2584E-02_JPRB,&
2525	✓✓	10	& 3.3306E-02_JPRB,3.8344E-02_JPRB,4.3514E-02_JPRB/)
2526			KAO( :, 4, 2,13) = (/&
2527			& 5.6859E-02_JPRB,4.9908E-02_JPRB,4.4073E-02_JPRB,3.9320E-02_JPRB,3.5951E-02_JPRB,3.4443E-02_JPRB,&
2528	✓✓	10	& 3.7381E-02_JPRB,4.3145E-02_JPRB,4.9018E-02_JPRB/)
2529			KAO( :, 5, 2,13) = (/&
2530			& 5.5606E-02_JPRB,4.8809E-02_JPRB,4.3641E-02_JPRB,3.9295E-02_JPRB,3.7457E-02_JPRB,3.6510E-02_JPRB,&
2531	✓✓	10	& 4.1577E-02_JPRB,4.8053E-02_JPRB,5.4636E-02_JPRB/)
2532			KAO( :, 1, 3,13) = (/&
2533			& 6.5281E-02_JPRB,5.7202E-02_JPRB,4.9259E-02_JPRB,4.2481E-02_JPRB,3.6242E-02_JPRB,3.0257E-02_JPRB,&
2534	✓✓	10	& 2.6947E-02_JPRB,2.7850E-02_JPRB,3.1754E-02_JPRB/)
2535			KAO( :, 2, 3,13) = (/&
2536			& 6.4026E-02_JPRB,5.6115E-02_JPRB,4.8709E-02_JPRB,4.2529E-02_JPRB,3.6413E-02_JPRB,3.1975E-02_JPRB,&
2537	✓✓	10	& 2.9537E-02_JPRB,3.2421E-02_JPRB,3.6975E-02_JPRB/)
2538			KAO( :, 3, 3,13) = (/&
2539			& 6.2582E-02_JPRB,5.4864E-02_JPRB,4.7944E-02_JPRB,4.2387E-02_JPRB,3.6942E-02_JPRB,3.3882E-02_JPRB,&
2540	✓✓	10	& 3.2746E-02_JPRB,3.7152E-02_JPRB,4.2391E-02_JPRB/)
2541			KAO( :, 4, 3,13) = (/&
2542			& 6.1252E-02_JPRB,5.3699E-02_JPRB,4.7471E-02_JPRB,4.2276E-02_JPRB,3.8007E-02_JPRB,3.5845E-02_JPRB,&
2543	✓✓	10	& 3.6492E-02_JPRB,4.2063E-02_JPRB,4.8049E-02_JPRB/)
2544			KAO( :, 5, 3,13) = (/&
2545			& 6.0092E-02_JPRB,5.2697E-02_JPRB,4.7050E-02_JPRB,4.2178E-02_JPRB,3.9419E-02_JPRB,3.7791E-02_JPRB,&
2546	✓✓	10	& 4.0791E-02_JPRB,4.7197E-02_JPRB,5.3978E-02_JPRB/)
2547			KAO( :, 1, 4,13) = (/&
2548			& 6.9156E-02_JPRB,6.0580E-02_JPRB,5.2151E-02_JPRB,4.4993E-02_JPRB,3.8321E-02_JPRB,3.1681E-02_JPRB,&
2549	✓✓	10	& 2.7066E-02_JPRB,2.6200E-02_JPRB,2.9938E-02_JPRB/)
2550			KAO( :, 2, 4,13) = (/&
2551			& 6.7721E-02_JPRB,5.9333E-02_JPRB,5.1460E-02_JPRB,4.5174E-02_JPRB,3.8672E-02_JPRB,3.3341E-02_JPRB,&
2552	✓✓	10	& 2.9463E-02_JPRB,3.0601E-02_JPRB,3.4960E-02_JPRB/)
2553			KAO( :, 3, 4,13) = (/&
2554			& 6.6317E-02_JPRB,5.8105E-02_JPRB,5.0834E-02_JPRB,4.5138E-02_JPRB,3.9401E-02_JPRB,3.5131E-02_JPRB,&
2555	✓✓	10	& 3.2153E-02_JPRB,3.5157E-02_JPRB,4.0204E-02_JPRB/)
2556			KAO( :, 4, 4,13) = (/&
2557			& 6.5137E-02_JPRB,5.7074E-02_JPRB,5.0526E-02_JPRB,4.5041E-02_JPRB,4.0452E-02_JPRB,3.6956E-02_JPRB,&
2558	✓✓	10	& 3.5433E-02_JPRB,4.0097E-02_JPRB,4.5914E-02_JPRB/)
2559			KAO( :, 5, 4,13) = (/&
2560			& 6.4115E-02_JPRB,5.6230E-02_JPRB,5.0276E-02_JPRB,4.5144E-02_JPRB,4.1609E-02_JPRB,3.8932E-02_JPRB,&
2561	✓✓	10	& 3.9448E-02_JPRB,4.5417E-02_JPRB,5.2017E-02_JPRB/)
2562			KAO( :, 1, 5,13) = (/&
2563			& 7.2400E-02_JPRB,6.3404E-02_JPRB,5.4540E-02_JPRB,4.7112E-02_JPRB,4.0185E-02_JPRB,3.3245E-02_JPRB,&
2564	✓✓	10	& 2.7454E-02_JPRB,2.4538E-02_JPRB,2.7637E-02_JPRB/)
2565			KAO( :, 2, 5,13) = (/&
2566			& 7.1034E-02_JPRB,6.2212E-02_JPRB,5.3950E-02_JPRB,4.7421E-02_JPRB,4.0716E-02_JPRB,3.5033E-02_JPRB,&
2567	✓✓	10	& 2.9541E-02_JPRB,2.8475E-02_JPRB,3.2456E-02_JPRB/)
2568			KAO( :, 3, 5,13) = (/&
2569			& 6.9683E-02_JPRB,6.1033E-02_JPRB,5.3449E-02_JPRB,4.7487E-02_JPRB,4.1776E-02_JPRB,3.6647E-02_JPRB,&
2570	✓✓	10	& 3.1941E-02_JPRB,3.2964E-02_JPRB,3.7708E-02_JPRB/)
2571			KAO( :, 4, 5,13) = (/&
2572			& 6.8593E-02_JPRB,6.0082E-02_JPRB,5.3255E-02_JPRB,4.7581E-02_JPRB,4.2936E-02_JPRB,3.8247E-02_JPRB,&
2573	✓✓	10	& 3.4793E-02_JPRB,3.7940E-02_JPRB,4.3452E-02_JPRB/)
2574			KAO( :, 5, 5,13) = (/&
2575			& 6.7660E-02_JPRB,5.9367E-02_JPRB,5.3230E-02_JPRB,4.8095E-02_JPRB,4.3998E-02_JPRB,4.0012E-02_JPRB,&
2576	✓✓	10	& 3.8369E-02_JPRB,4.3216E-02_JPRB,4.9502E-02_JPRB/)
2577			KAO( :, 1, 6,13) = (/&
2578			& 7.5282E-02_JPRB,6.5913E-02_JPRB,5.6672E-02_JPRB,4.9038E-02_JPRB,4.1667E-02_JPRB,3.4580E-02_JPRB,&
2579	✓✓	10	& 2.8084E-02_JPRB,2.2885E-02_JPRB,2.4729E-02_JPRB/)
2580			KAO( :, 2, 6,13) = (/&
2581			& 7.3954E-02_JPRB,6.4757E-02_JPRB,5.6182E-02_JPRB,4.9451E-02_JPRB,4.2376E-02_JPRB,3.6480E-02_JPRB,&
2582	✓✓	10	& 3.0034E-02_JPRB,2.6432E-02_JPRB,2.9602E-02_JPRB/)
2583			KAO( :, 3, 6,13) = (/&
2584			& 7.2618E-02_JPRB,6.3591E-02_JPRB,5.5752E-02_JPRB,4.9591E-02_JPRB,4.3630E-02_JPRB,3.8182E-02_JPRB,&
2585	✓✓	10	& 3.2101E-02_JPRB,3.0615E-02_JPRB,3.4863E-02_JPRB/)
2586			KAO( :, 4, 6,13) = (/&
2587			& 7.1650E-02_JPRB,6.2766E-02_JPRB,5.5838E-02_JPRB,4.9867E-02_JPRB,4.5071E-02_JPRB,3.9626E-02_JPRB,&
2588	✓✓	10	& 3.4633E-02_JPRB,3.5415E-02_JPRB,4.0513E-02_JPRB/)
2589			KAO( :, 5, 6,13) = (/&
2590			& 7.0928E-02_JPRB,6.2275E-02_JPRB,5.5944E-02_JPRB,5.0656E-02_JPRB,4.6360E-02_JPRB,4.1240E-02_JPRB,&
2591	✓✓	10	& 3.7820E-02_JPRB,4.0601E-02_JPRB,4.6473E-02_JPRB/)
2592			KAO( :, 1, 7,13) = (/&
2593			& 7.7231E-02_JPRB,6.7608E-02_JPRB,5.8137E-02_JPRB,5.0496E-02_JPRB,4.2780E-02_JPRB,3.5440E-02_JPRB,&
2594	✓✓	10	& 2.8711E-02_JPRB,2.1532E-02_JPRB,2.1358E-02_JPRB/)
2595			KAO( :, 2, 7,13) = (/&
2596			& 7.6126E-02_JPRB,6.6645E-02_JPRB,5.7867E-02_JPRB,5.0956E-02_JPRB,4.3638E-02_JPRB,3.7441E-02_JPRB,&
2597	✓✓	10	& 3.0756E-02_JPRB,2.4515E-02_JPRB,2.6150E-02_JPRB/)
2598			KAO( :, 3, 7,13) = (/&
2599			& 7.4977E-02_JPRB,6.5643E-02_JPRB,5.7692E-02_JPRB,5.1264E-02_JPRB,4.5058E-02_JPRB,3.9385E-02_JPRB,&
2600	✓✓	10	& 3.2638E-02_JPRB,2.8375E-02_JPRB,3.1403E-02_JPRB/)
2601			KAO( :, 4, 7,13) = (/&
2602			& 7.4190E-02_JPRB,6.5005E-02_JPRB,5.7989E-02_JPRB,5.1738E-02_JPRB,4.6795E-02_JPRB,4.1075E-02_JPRB,&
2603	✓✓	10	& 3.4915E-02_JPRB,3.2892E-02_JPRB,3.7110E-02_JPRB/)
2604			KAO( :, 5, 7,13) = (/&
2605			& 7.3624E-02_JPRB,6.4678E-02_JPRB,5.8242E-02_JPRB,5.2839E-02_JPRB,4.8405E-02_JPRB,4.2696E-02_JPRB,&
2606	✓✓	10	& 3.7814E-02_JPRB,3.7869E-02_JPRB,4.3186E-02_JPRB/)
2607			KAO( :, 1, 8,13) = (/&
2608			& 7.8000E-02_JPRB,6.8274E-02_JPRB,5.8718E-02_JPRB,5.1101E-02_JPRB,4.3121E-02_JPRB,3.5929E-02_JPRB,&
2609	✓✓	10	& 2.8945E-02_JPRB,2.0591E-02_JPRB,1.8045E-02_JPRB/)
2610			KAO( :, 2, 8,13) = (/&
2611			& 7.7193E-02_JPRB,6.7571E-02_JPRB,5.8739E-02_JPRB,5.1625E-02_JPRB,4.4291E-02_JPRB,3.8058E-02_JPRB,&
2612	✓✓	10	& 3.1224E-02_JPRB,2.3099E-02_JPRB,2.2474E-02_JPRB/)
2613			KAO( :, 3, 8,13) = (/&
2614			& 7.6273E-02_JPRB,6.6769E-02_JPRB,5.8915E-02_JPRB,5.2274E-02_JPRB,4.5989E-02_JPRB,4.0273E-02_JPRB,&
2615	✓✓	10	& 3.3241E-02_JPRB,2.6350E-02_JPRB,2.7546E-02_JPRB/)
2616			KAO( :, 4, 8,13) = (/&
2617			& 7.5688E-02_JPRB,6.6346E-02_JPRB,5.9396E-02_JPRB,5.3087E-02_JPRB,4.8066E-02_JPRB,4.2222E-02_JPRB,&
2618	✓✓	10	& 3.5406E-02_JPRB,3.0325E-02_JPRB,3.3143E-02_JPRB/)
2619			KAO( :, 5, 8,13) = (/&
2620			& 7.5270E-02_JPRB,6.6169E-02_JPRB,5.9886E-02_JPRB,5.4558E-02_JPRB,5.0013E-02_JPRB,4.4073E-02_JPRB,&
2621	✓✓	10	& 3.8032E-02_JPRB,3.5067E-02_JPRB,3.9209E-02_JPRB/)
2622			KAO( :, 1, 9,13) = (/&
2623			& 7.7473E-02_JPRB,6.7808E-02_JPRB,5.8332E-02_JPRB,5.0781E-02_JPRB,4.2784E-02_JPRB,3.5895E-02_JPRB,&
2624	✓✓	10	& 2.8746E-02_JPRB,1.9977E-02_JPRB,2.5516E-02_JPRB/)
2625			KAO( :, 2, 9,13) = (/&
2626			& 7.6914E-02_JPRB,6.7321E-02_JPRB,5.8710E-02_JPRB,5.1554E-02_JPRB,4.4348E-02_JPRB,3.8188E-02_JPRB,&
2627	✓✓	10	& 3.1209E-02_JPRB,2.2143E-02_JPRB,2.7211E-02_JPRB/)
2628			KAO( :, 3, 9,13) = (/&
2629			& 7.6348E-02_JPRB,6.6831E-02_JPRB,5.9238E-02_JPRB,5.2455E-02_JPRB,4.6359E-02_JPRB,4.0690E-02_JPRB,&
2630	✓✓	10	& 3.3365E-02_JPRB,2.4927E-02_JPRB,2.8892E-02_JPRB/)
2631			KAO( :, 4, 9,13) = (/&
2632			& 7.6078E-02_JPRB,6.6718E-02_JPRB,5.9965E-02_JPRB,5.3687E-02_JPRB,4.8782E-02_JPRB,4.2963E-02_JPRB,&
2633	✓✓	10	& 3.5682E-02_JPRB,2.8422E-02_JPRB,3.1640E-02_JPRB/)
2634			KAO( :, 5, 9,13) = (/&
2635			& 7.5933E-02_JPRB,6.6835E-02_JPRB,6.0758E-02_JPRB,5.5666E-02_JPRB,5.1075E-02_JPRB,4.5007E-02_JPRB,&
2636	✓✓	10	& 3.8345E-02_JPRB,3.2458E-02_JPRB,3.5657E-02_JPRB/)
2637			KAO( :, 1,10,13) = (/&
2638			& 7.5495E-02_JPRB,6.6073E-02_JPRB,5.6962E-02_JPRB,4.9669E-02_JPRB,4.1944E-02_JPRB,3.5433E-02_JPRB,&
2639	✓✓	10	& 2.8273E-02_JPRB,1.9547E-02_JPRB,6.8270E-02_JPRB/)
2640			KAO( :, 2,10,13) = (/&
2641			& 7.5127E-02_JPRB,6.5753E-02_JPRB,5.7655E-02_JPRB,5.0612E-02_JPRB,4.3966E-02_JPRB,3.7985E-02_JPRB,&
2642	✓✓	10	& 3.0798E-02_JPRB,2.1586E-02_JPRB,7.2556E-02_JPRB/)
2643			KAO( :, 3,10,13) = (/&
2644			& 7.4986E-02_JPRB,6.5658E-02_JPRB,5.8530E-02_JPRB,5.1941E-02_JPRB,4.6351E-02_JPRB,4.0729E-02_JPRB,&
2645	✓✓	10	& 3.3154E-02_JPRB,2.4145E-02_JPRB,7.6901E-02_JPRB/)
2646			KAO( :, 4,10,13) = (/&
2647			& 7.5261E-02_JPRB,6.6078E-02_JPRB,5.9658E-02_JPRB,5.3761E-02_JPRB,4.9061E-02_JPRB,4.3256E-02_JPRB,&
2648	✓✓	10	& 3.5593E-02_JPRB,2.7205E-02_JPRB,8.0949E-02_JPRB/)
2649			KAO( :, 5,10,13) = (/&
2650			& 7.5310E-02_JPRB,6.6484E-02_JPRB,6.0891E-02_JPRB,5.6203E-02_JPRB,5.1608E-02_JPRB,4.5631E-02_JPRB,&
2651	✓✓	10	& 3.8393E-02_JPRB,3.0810E-02_JPRB,8.3946E-02_JPRB/)
2652			KAO( :, 1,11,13) = (/&
2653			& 7.2145E-02_JPRB,6.3140E-02_JPRB,5.5079E-02_JPRB,4.8199E-02_JPRB,4.1552E-02_JPRB,3.5607E-02_JPRB,&
2654	✓✓	10	& 2.8410E-02_JPRB,2.0333E-02_JPRB,1.1722E-01_JPRB/)
2655			KAO( :, 2,11,13) = (/&
2656			& 7.2308E-02_JPRB,6.3289E-02_JPRB,5.6229E-02_JPRB,4.9646E-02_JPRB,4.4153E-02_JPRB,3.8471E-02_JPRB,&
2657	✓✓	10	& 3.1024E-02_JPRB,2.2227E-02_JPRB,1.2017E-01_JPRB/)
2658			KAO( :, 3,11,13) = (/&
2659			& 7.2843E-02_JPRB,6.3926E-02_JPRB,5.7644E-02_JPRB,5.1784E-02_JPRB,4.7031E-02_JPRB,4.1323E-02_JPRB,&
2660	✓✓	10	& 3.3588E-02_JPRB,2.4733E-02_JPRB,1.2387E-01_JPRB/)
2661			KAO( :, 4,11,13) = (/&
2662			& 7.3135E-02_JPRB,6.4581E-02_JPRB,5.9101E-02_JPRB,5.4448E-02_JPRB,4.9988E-02_JPRB,4.3915E-02_JPRB,&
2663	✓✓	10	& 3.6387E-02_JPRB,2.7718E-02_JPRB,1.2773E-01_JPRB/)
2664			KAO( :, 5,11,13) = (/&
2665			& 7.3317E-02_JPRB,6.5357E-02_JPRB,6.0772E-02_JPRB,5.7257E-02_JPRB,5.2643E-02_JPRB,4.6647E-02_JPRB,&
2666	✓✓	10	& 3.9495E-02_JPRB,3.1088E-02_JPRB,1.3117E-01_JPRB/)
2667			KAO( :, 1,12,13) = (/&
2668			& 6.8339E-02_JPRB,5.9807E-02_JPRB,5.2868E-02_JPRB,4.6514E-02_JPRB,4.1030E-02_JPRB,3.5325E-02_JPRB,&
2669	✓✓	10	& 2.8259E-02_JPRB,2.1368E-02_JPRB,1.5845E-01_JPRB/)
2670			KAO( :, 2,12,13) = (/&
2671			& 6.9028E-02_JPRB,6.0544E-02_JPRB,5.4494E-02_JPRB,4.8800E-02_JPRB,4.4025E-02_JPRB,3.8260E-02_JPRB,&
2672	✓✓	10	& 3.0917E-02_JPRB,2.3169E-02_JPRB,1.6072E-01_JPRB/)
2673			KAO( :, 3,12,13) = (/&
2674			& 6.9564E-02_JPRB,6.1451E-02_JPRB,5.6107E-02_JPRB,5.1605E-02_JPRB,4.7233E-02_JPRB,4.1139E-02_JPRB,&
2675	✓✓	10	& 3.3727E-02_JPRB,2.5462E-02_JPRB,1.6379E-01_JPRB/)
2676			KAO( :, 4,12,13) = (/&
2677			& 7.0110E-02_JPRB,6.2544E-02_JPRB,5.8080E-02_JPRB,5.4612E-02_JPRB,5.0269E-02_JPRB,4.4060E-02_JPRB,&
2678	✓✓	10	& 3.6850E-02_JPRB,2.8277E-02_JPRB,1.6703E-01_JPRB/)
2679			KAO( :, 5,12,13) = (/&
2680			& 7.0812E-02_JPRB,6.3874E-02_JPRB,6.0361E-02_JPRB,5.7551E-02_JPRB,5.3132E-02_JPRB,4.7188E-02_JPRB,&
2681	✓✓	10	& 4.0179E-02_JPRB,3.1468E-02_JPRB,1.7022E-01_JPRB/)
2682			KAO( :, 1,13,13) = (/&
2683			& 6.4142E-02_JPRB,5.6225E-02_JPRB,5.0394E-02_JPRB,4.4947E-02_JPRB,4.0201E-02_JPRB,3.4418E-02_JPRB,&
2684	✓✓	10	& 2.8158E-02_JPRB,2.2746E-02_JPRB,1.7050E-01_JPRB/)
2685			KAO( :, 2,13,13) = (/&
2686			& 6.4886E-02_JPRB,5.7309E-02_JPRB,5.2171E-02_JPRB,4.7818E-02_JPRB,4.3432E-02_JPRB,3.7455E-02_JPRB,&
2687	✓✓	10	& 3.0630E-02_JPRB,2.4364E-02_JPRB,1.7276E-01_JPRB/)
2688			KAO( :, 3,13,13) = (/&
2689			& 6.5727E-02_JPRB,5.8652E-02_JPRB,5.4299E-02_JPRB,5.0937E-02_JPRB,4.6609E-02_JPRB,4.0612E-02_JPRB,&
2690	✓✓	10	& 3.3484E-02_JPRB,2.6453E-02_JPRB,1.7566E-01_JPRB/)
2691			KAO( :, 4,13,13) = (/&
2692			& 6.6753E-02_JPRB,6.0302E-02_JPRB,5.6875E-02_JPRB,5.4053E-02_JPRB,4.9735E-02_JPRB,4.3858E-02_JPRB,&
2693	✓✓	10	& 3.6837E-02_JPRB,2.8969E-02_JPRB,1.7832E-01_JPRB/)
2694			KAO( :, 5,13,13) = (/&
2695			& 6.7695E-02_JPRB,6.1869E-02_JPRB,5.9620E-02_JPRB,5.7064E-02_JPRB,5.2850E-02_JPRB,4.7362E-02_JPRB,&
2696	✓✓	10	& 4.0382E-02_JPRB,3.1936E-02_JPRB,1.8057E-01_JPRB/)
2697			KAO( :, 1, 1,14) = (/&
2698			& 7.1125E-02_JPRB,6.2447E-02_JPRB,5.3777E-02_JPRB,4.6002E-02_JPRB,3.9919E-02_JPRB,3.6099E-02_JPRB,&
2699	✓✓	10	& 4.0006E-02_JPRB,4.6122E-02_JPRB,5.1833E-02_JPRB/)
2700			KAO( :, 2, 1,14) = (/&
2701			& 6.9870E-02_JPRB,6.1342E-02_JPRB,5.2827E-02_JPRB,4.5922E-02_JPRB,4.0565E-02_JPRB,3.9007E-02_JPRB,&
2702	✓✓	10	& 4.5679E-02_JPRB,5.2643E-02_JPRB,5.9148E-02_JPRB/)
2703			KAO( :, 3, 1,14) = (/&
2704			& 6.8757E-02_JPRB,6.0364E-02_JPRB,5.2393E-02_JPRB,4.6480E-02_JPRB,4.1375E-02_JPRB,4.3228E-02_JPRB,&
2705	✓✓	10	& 5.1554E-02_JPRB,5.9415E-02_JPRB,6.6727E-02_JPRB/)
2706			KAO( :, 4, 1,14) = (/&
2707			& 6.7713E-02_JPRB,5.9439E-02_JPRB,5.2158E-02_JPRB,4.6803E-02_JPRB,4.2633E-02_JPRB,4.8201E-02_JPRB,&
2708	✓✓	10	& 5.7539E-02_JPRB,6.6348E-02_JPRB,7.4536E-02_JPRB/)
2709			KAO( :, 5, 1,14) = (/&
2710			& 6.6600E-02_JPRB,5.8466E-02_JPRB,5.1820E-02_JPRB,4.7055E-02_JPRB,4.4661E-02_JPRB,5.3325E-02_JPRB,&
2711	✓✓	10	& 6.3678E-02_JPRB,7.3404E-02_JPRB,8.2448E-02_JPRB/)
2712			KAO( :, 1, 2,14) = (/&
2713			& 7.7042E-02_JPRB,6.7550E-02_JPRB,5.8058E-02_JPRB,4.9570E-02_JPRB,4.3264E-02_JPRB,3.8479E-02_JPRB,&
2714	✓✓	10	& 4.1328E-02_JPRB,4.7688E-02_JPRB,5.4228E-02_JPRB/)
2715			KAO( :, 2, 2,14) = (/&
2716			& 7.5776E-02_JPRB,6.6451E-02_JPRB,5.7187E-02_JPRB,4.9780E-02_JPRB,4.4125E-02_JPRB,4.1352E-02_JPRB,&
2717	✓✓	10	& 4.7706E-02_JPRB,5.5037E-02_JPRB,6.2579E-02_JPRB/)
2718			KAO( :, 3, 2,14) = (/&
2719			& 7.4669E-02_JPRB,6.5491E-02_JPRB,5.6847E-02_JPRB,5.0512E-02_JPRB,4.5218E-02_JPRB,4.5782E-02_JPRB,&
2720	✓✓	10	& 5.4332E-02_JPRB,6.2645E-02_JPRB,7.1228E-02_JPRB/)
2721			KAO( :, 4, 2,14) = (/&
2722			& 7.3494E-02_JPRB,6.4459E-02_JPRB,5.6471E-02_JPRB,5.0688E-02_JPRB,4.6511E-02_JPRB,5.1170E-02_JPRB,&
2723	✓✓	10	& 6.1095E-02_JPRB,7.0411E-02_JPRB,8.0040E-02_JPRB/)
2724			KAO( :, 5, 2,14) = (/&
2725			& 7.2133E-02_JPRB,6.3274E-02_JPRB,5.5909E-02_JPRB,5.0987E-02_JPRB,4.8402E-02_JPRB,5.6911E-02_JPRB,&
2726	✓✓	10	& 6.7954E-02_JPRB,7.8300E-02_JPRB,8.9007E-02_JPRB/)
2727			KAO( :, 1, 3,14) = (/&
2728			& 8.3277E-02_JPRB,7.2971E-02_JPRB,6.2667E-02_JPRB,5.3474E-02_JPRB,4.6645E-02_JPRB,4.0581E-02_JPRB,&
2729	✓✓	10	& 4.0951E-02_JPRB,4.7132E-02_JPRB,5.4097E-02_JPRB/)
2730			KAO( :, 2, 3,14) = (/&
2731			& 8.2055E-02_JPRB,7.1904E-02_JPRB,6.1829E-02_JPRB,5.3750E-02_JPRB,4.7688E-02_JPRB,4.3144E-02_JPRB,&
2732	✓✓	10	& 4.7845E-02_JPRB,5.5169E-02_JPRB,6.3384E-02_JPRB/)
2733			KAO( :, 3, 3,14) = (/&
2734			& 8.0862E-02_JPRB,7.0861E-02_JPRB,6.1457E-02_JPRB,5.4455E-02_JPRB,4.8823E-02_JPRB,4.7333E-02_JPRB,&
2735	✓✓	10	& 5.5190E-02_JPRB,6.3675E-02_JPRB,7.3215E-02_JPRB/)
2736			KAO( :, 4, 3,14) = (/&
2737			& 7.9537E-02_JPRB,6.9705E-02_JPRB,6.0972E-02_JPRB,5.4811E-02_JPRB,5.0281E-02_JPRB,5.2809E-02_JPRB,&
2738	✓✓	10	& 6.2782E-02_JPRB,7.2454E-02_JPRB,8.3349E-02_JPRB/)
2739			KAO( :, 5, 3,14) = (/&
2740			& 7.8064E-02_JPRB,6.8419E-02_JPRB,6.0465E-02_JPRB,5.5324E-02_JPRB,5.2307E-02_JPRB,5.9034E-02_JPRB,&
2741	✓✓	10	& 7.0524E-02_JPRB,8.1382E-02_JPRB,9.3638E-02_JPRB/)
2742			KAO( :, 1, 4,14) = (/&
2743			& 9.0845E-02_JPRB,7.9564E-02_JPRB,6.8284E-02_JPRB,5.7995E-02_JPRB,5.0071E-02_JPRB,4.2766E-02_JPRB,&
2744	✓✓	10	& 4.0354E-02_JPRB,4.5834E-02_JPRB,5.2848E-02_JPRB/)
2745			KAO( :, 2, 4,14) = (/&
2746			& 8.9552E-02_JPRB,7.8435E-02_JPRB,6.7367E-02_JPRB,5.8123E-02_JPRB,5.1123E-02_JPRB,4.5183E-02_JPRB,&
2747	✓✓	10	& 4.7218E-02_JPRB,5.4390E-02_JPRB,6.2802E-02_JPRB/)
2748			KAO( :, 3, 4,14) = (/&
2749			& 8.8242E-02_JPRB,7.7291E-02_JPRB,6.6872E-02_JPRB,5.8721E-02_JPRB,5.2277E-02_JPRB,4.9062E-02_JPRB,&
2750	✓✓	10	& 5.5104E-02_JPRB,6.3535E-02_JPRB,7.3415E-02_JPRB/)
2751
2752	✓✗	1	IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART9',1,ZHOOK_HANDLE)
2753		1	END SUBROUTINE PART9
2754
2755
2756		1	SUBROUTINE PART10
2757
2758			REAL(KIND=JPRB) :: ZHOOK_HANDLE
2759	✓✗	1	IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART10',0,ZHOOK_HANDLE)
2760
2761
2762			KAO( :, 4, 4,14) = (/&
2763			& 8.6759E-02_JPRB,7.5998E-02_JPRB,6.6249E-02_JPRB,5.9144E-02_JPRB,5.4005E-02_JPRB,5.4305E-02_JPRB,&
2764	✓✓	10	& 6.3297E-02_JPRB,7.3031E-02_JPRB,8.4384E-02_JPRB/)
2765			KAO( :, 5, 4,14) = (/&
2766			& 8.5264E-02_JPRB,7.4691E-02_JPRB,6.5716E-02_JPRB,5.9851E-02_JPRB,5.6460E-02_JPRB,6.0471E-02_JPRB,&
2767	✓✓	10	& 7.1720E-02_JPRB,8.2783E-02_JPRB,9.5664E-02_JPRB/)
2768			KAO( :, 1, 5,14) = (/&
2769			& 9.9315E-02_JPRB,8.6956E-02_JPRB,7.4597E-02_JPRB,6.3098E-02_JPRB,5.3822E-02_JPRB,4.5087E-02_JPRB,&
2770	✓✓	10	& 4.0285E-02_JPRB,4.4268E-02_JPRB,5.1127E-02_JPRB/)
2771			KAO( :, 2, 5,14) = (/&
2772			& 9.7906E-02_JPRB,8.5725E-02_JPRB,7.3576E-02_JPRB,6.3138E-02_JPRB,5.4941E-02_JPRB,4.7422E-02_JPRB,&
2773	✓✓	10	& 4.6902E-02_JPRB,5.3385E-02_JPRB,6.1752E-02_JPRB/)
2774			KAO( :, 3, 5,14) = (/&
2775			& 9.6528E-02_JPRB,8.4522E-02_JPRB,7.2985E-02_JPRB,6.3691E-02_JPRB,5.5941E-02_JPRB,5.1390E-02_JPRB,&
2776	✓✓	10	& 5.4800E-02_JPRB,6.3141E-02_JPRB,7.3064E-02_JPRB/)
2777			KAO( :, 4, 5,14) = (/&
2778			& 9.5030E-02_JPRB,8.3215E-02_JPRB,7.2382E-02_JPRB,6.4248E-02_JPRB,5.7876E-02_JPRB,5.6367E-02_JPRB,&
2779	✓✓	10	& 6.3403E-02_JPRB,7.3204E-02_JPRB,8.4675E-02_JPRB/)
2780			KAO( :, 5, 5,14) = (/&
2781			& 9.3519E-02_JPRB,8.1896E-02_JPRB,7.1942E-02_JPRB,6.4913E-02_JPRB,6.0750E-02_JPRB,6.2288E-02_JPRB,&
2782	✓✓	10	& 7.2363E-02_JPRB,8.3574E-02_JPRB,9.6711E-02_JPRB/)
2783			KAO( :, 1, 6,14) = (/&
2784			& 1.0848E-01_JPRB,9.4964E-02_JPRB,8.1446E-02_JPRB,6.8624E-02_JPRB,5.8073E-02_JPRB,4.7733E-02_JPRB,&
2785	✓✓	10	& 4.0794E-02_JPRB,4.2233E-02_JPRB,4.8838E-02_JPRB/)
2786			KAO( :, 2, 6,14) = (/&
2787			& 1.0700E-01_JPRB,9.3665E-02_JPRB,8.0341E-02_JPRB,6.8687E-02_JPRB,5.9287E-02_JPRB,4.9965E-02_JPRB,&
2788	✓✓	10	& 4.6801E-02_JPRB,5.1522E-02_JPRB,5.9571E-02_JPRB/)
2789			KAO( :, 3, 6,14) = (/&
2790			& 1.0569E-01_JPRB,9.2526E-02_JPRB,7.9786E-02_JPRB,6.9323E-02_JPRB,6.0296E-02_JPRB,5.3850E-02_JPRB,&
2791	✓✓	10	& 5.4326E-02_JPRB,6.1617E-02_JPRB,7.1174E-02_JPRB/)
2792			KAO( :, 4, 6,14) = (/&
2793			& 1.0422E-01_JPRB,9.1243E-02_JPRB,7.9257E-02_JPRB,7.0200E-02_JPRB,6.2110E-02_JPRB,5.8890E-02_JPRB,&
2794	✓✓	10	& 6.2697E-02_JPRB,7.2186E-02_JPRB,8.3411E-02_JPRB/)
2795			KAO( :, 5, 6,14) = (/&
2796			& 1.0274E-01_JPRB,8.9945E-02_JPRB,7.8955E-02_JPRB,7.0870E-02_JPRB,6.5007E-02_JPRB,6.4538E-02_JPRB,&
2797	✓✓	10	& 7.1962E-02_JPRB,8.3225E-02_JPRB,9.6184E-02_JPRB/)
2798			KAO( :, 1, 7,14) = (/&
2799			& 1.1805E-01_JPRB,1.0333E-01_JPRB,8.8604E-02_JPRB,7.4383E-02_JPRB,6.2795E-02_JPRB,5.0938E-02_JPRB,&
2800	✓✓	10	& 4.1734E-02_JPRB,4.0173E-02_JPRB,4.6320E-02_JPRB/)
2801			KAO( :, 2, 7,14) = (/&
2802			& 1.1659E-01_JPRB,1.0206E-01_JPRB,8.7517E-02_JPRB,7.4746E-02_JPRB,6.4050E-02_JPRB,5.3141E-02_JPRB,&
2803	✓✓	10	& 4.7155E-02_JPRB,4.9297E-02_JPRB,5.6966E-02_JPRB/)
2804			KAO( :, 3, 7,14) = (/&
2805			& 1.1548E-01_JPRB,1.0108E-01_JPRB,8.7065E-02_JPRB,7.5639E-02_JPRB,6.5270E-02_JPRB,5.6793E-02_JPRB,&
2806	✓✓	10	& 5.4049E-02_JPRB,5.9341E-02_JPRB,6.8535E-02_JPRB/)
2807			KAO( :, 4, 7,14) = (/&
2808			& 1.1421E-01_JPRB,9.9974E-02_JPRB,8.6788E-02_JPRB,7.6683E-02_JPRB,6.6954E-02_JPRB,6.1718E-02_JPRB,&
2809	✓✓	10	& 6.2059E-02_JPRB,7.0009E-02_JPRB,8.0835E-02_JPRB/)
2810			KAO( :, 5, 7,14) = (/&
2811			& 1.1283E-01_JPRB,9.8769E-02_JPRB,8.6621E-02_JPRB,7.7418E-02_JPRB,6.9776E-02_JPRB,6.7214E-02_JPRB,&
2812	✓✓	10	& 7.0897E-02_JPRB,8.1280E-02_JPRB,9.3717E-02_JPRB/)
2813			KAO( :, 1, 8,14) = (/&
2814			& 1.2760E-01_JPRB,1.1168E-01_JPRB,9.5756E-02_JPRB,8.0242E-02_JPRB,6.7771E-02_JPRB,5.4512E-02_JPRB,&
2815	✓✓	10	& 4.3297E-02_JPRB,3.8468E-02_JPRB,4.3412E-02_JPRB/)
2816			KAO( :, 2, 8,14) = (/&
2817			& 1.2647E-01_JPRB,1.1069E-01_JPRB,9.4911E-02_JPRB,8.1080E-02_JPRB,6.9303E-02_JPRB,5.6801E-02_JPRB,&
2818	✓✓	10	& 4.8262E-02_JPRB,4.7089E-02_JPRB,5.4046E-02_JPRB/)
2819			KAO( :, 3, 8,14) = (/&
2820			& 1.2554E-01_JPRB,1.0988E-01_JPRB,9.4556E-02_JPRB,8.2231E-02_JPRB,7.0704E-02_JPRB,6.0253E-02_JPRB,&
2821	✓✓	10	& 5.4589E-02_JPRB,5.6872E-02_JPRB,6.5560E-02_JPRB/)
2822			KAO( :, 4, 8,14) = (/&
2823			& 1.2457E-01_JPRB,1.0903E-01_JPRB,9.4616E-02_JPRB,8.3457E-02_JPRB,7.2396E-02_JPRB,6.4980E-02_JPRB,&
2824	✓✓	10	& 6.1867E-02_JPRB,6.7548E-02_JPRB,7.7808E-02_JPRB/)
2825			KAO( :, 5, 8,14) = (/&
2826			& 1.2330E-01_JPRB,1.0792E-01_JPRB,9.4626E-02_JPRB,8.4389E-02_JPRB,7.5157E-02_JPRB,7.0416E-02_JPRB,&
2827	✓✓	10	& 7.0105E-02_JPRB,7.8665E-02_JPRB,9.0560E-02_JPRB/)
2828			KAO( :, 1, 9,14) = (/&
2829			& 1.3720E-01_JPRB,1.2007E-01_JPRB,1.0294E-01_JPRB,8.6103E-02_JPRB,7.2470E-02_JPRB,5.8097E-02_JPRB,&
2830	✓✓	10	& 4.5389E-02_JPRB,3.6904E-02_JPRB,4.1799E-02_JPRB/)
2831			KAO( :, 2, 9,14) = (/&
2832			& 1.3628E-01_JPRB,1.1927E-01_JPRB,1.0226E-01_JPRB,8.7181E-02_JPRB,7.4343E-02_JPRB,6.0740E-02_JPRB,&
2833	✓✓	10	& 4.9959E-02_JPRB,4.4876E-02_JPRB,5.0393E-02_JPRB/)
2834			KAO( :, 3, 9,14) = (/&
2835			& 1.3535E-01_JPRB,1.1846E-01_JPRB,1.0188E-01_JPRB,8.8693E-02_JPRB,7.6184E-02_JPRB,6.4206E-02_JPRB,&
2836	✓✓	10	& 5.5907E-02_JPRB,5.4085E-02_JPRB,6.1556E-02_JPRB/)
2837			KAO( :, 4, 9,14) = (/&
2838			& 1.3444E-01_JPRB,1.1766E-01_JPRB,1.0208E-01_JPRB,9.0218E-02_JPRB,7.8130E-02_JPRB,6.8528E-02_JPRB,&
2839	✓✓	10	& 6.2619E-02_JPRB,6.4323E-02_JPRB,7.3797E-02_JPRB/)
2840			KAO( :, 5, 9,14) = (/&
2841			& 1.3348E-01_JPRB,1.1683E-01_JPRB,1.0242E-01_JPRB,9.1503E-02_JPRB,8.0977E-02_JPRB,7.3855E-02_JPRB,&
2842	✓✓	10	& 6.9865E-02_JPRB,7.5417E-02_JPRB,8.6747E-02_JPRB/)
2843			KAO( :, 1,10,14) = (/&
2844			& 1.4622E-01_JPRB,1.2796E-01_JPRB,1.0970E-01_JPRB,9.1694E-02_JPRB,7.6915E-02_JPRB,6.1594E-02_JPRB,&
2845	✓✓	10	& 4.7802E-02_JPRB,3.6372E-02_JPRB,1.2782E-01_JPRB/)
2846			KAO( :, 2,10,14) = (/&
2847			& 1.4558E-01_JPRB,1.2740E-01_JPRB,1.0923E-01_JPRB,9.3107E-02_JPRB,7.9235E-02_JPRB,6.4561E-02_JPRB,&
2848	✓✓	10	& 5.2530E-02_JPRB,4.3432E-02_JPRB,1.2805E-01_JPRB/)
2849			KAO( :, 3,10,14) = (/&
2850			& 1.4478E-01_JPRB,1.2670E-01_JPRB,1.0897E-01_JPRB,9.4925E-02_JPRB,8.1357E-02_JPRB,6.8532E-02_JPRB,&
2851	✓✓	10	& 5.8051E-02_JPRB,5.1858E-02_JPRB,1.2910E-01_JPRB/)
2852			KAO( :, 4,10,14) = (/&
2853			& 1.4390E-01_JPRB,1.2594E-01_JPRB,1.0930E-01_JPRB,9.6640E-02_JPRB,8.3903E-02_JPRB,7.3006E-02_JPRB,&
2854	✓✓	10	& 6.4450E-02_JPRB,6.1593E-02_JPRB,1.3078E-01_JPRB/)
2855			KAO( :, 5,10,14) = (/&
2856			& 1.4315E-01_JPRB,1.2528E-01_JPRB,1.1004E-01_JPRB,9.8357E-02_JPRB,8.7154E-02_JPRB,7.8009E-02_JPRB,&
2857	✓✓	10	& 7.1120E-02_JPRB,7.2455E-02_JPRB,1.3316E-01_JPRB/)
2858			KAO( :, 1,11,14) = (/&
2859			& 1.5395E-01_JPRB,1.3473E-01_JPRB,1.1550E-01_JPRB,9.7315E-02_JPRB,8.2228E-02_JPRB,6.6162E-02_JPRB,&
2860	✓✓	10	& 5.2338E-02_JPRB,3.8889E-02_JPRB,2.0928E-01_JPRB/)
2861			KAO( :, 2,11,14) = (/&
2862			& 1.5355E-01_JPRB,1.3437E-01_JPRB,1.1530E-01_JPRB,9.9444E-02_JPRB,8.4668E-02_JPRB,7.0074E-02_JPRB,&
2863	✓✓	10	& 5.7545E-02_JPRB,4.5714E-02_JPRB,2.1031E-01_JPRB/)
2864			KAO( :, 3,11,14) = (/&
2865			& 1.5306E-01_JPRB,1.3395E-01_JPRB,1.1569E-01_JPRB,1.0160E-01_JPRB,8.7341E-02_JPRB,7.4791E-02_JPRB,&
2866	✓✓	10	& 6.3171E-02_JPRB,5.3818E-02_JPRB,2.0902E-01_JPRB/)
2867			KAO( :, 4,11,14) = (/&
2868			& 1.5264E-01_JPRB,1.3359E-01_JPRB,1.1675E-01_JPRB,1.0361E-01_JPRB,9.0695E-02_JPRB,7.9958E-02_JPRB,&
2869	✓✓	10	& 6.9362E-02_JPRB,6.3424E-02_JPRB,2.0832E-01_JPRB/)
2870			KAO( :, 5,11,14) = (/&
2871			& 1.5211E-01_JPRB,1.3312E-01_JPRB,1.1800E-01_JPRB,1.0575E-01_JPRB,9.4915E-02_JPRB,8.5107E-02_JPRB,&
2872	✓✓	10	& 7.5798E-02_JPRB,7.4229E-02_JPRB,2.0949E-01_JPRB/)
2873			KAO( :, 1,12,14) = (/&
2874			& 1.6007E-01_JPRB,1.4008E-01_JPRB,1.2008E-01_JPRB,1.0232E-01_JPRB,8.6761E-02_JPRB,7.0740E-02_JPRB,&
2875	✓✓	10	& 5.6718E-02_JPRB,4.1250E-02_JPRB,2.6518E-01_JPRB/)
2876			KAO( :, 2,12,14) = (/&
2877			& 1.6020E-01_JPRB,1.4019E-01_JPRB,1.2063E-01_JPRB,1.0501E-01_JPRB,8.9744E-02_JPRB,7.5616E-02_JPRB,&
2878	✓✓	10	& 6.2355E-02_JPRB,4.7922E-02_JPRB,2.6549E-01_JPRB/)
2879			KAO( :, 3,12,14) = (/&
2880			& 1.6044E-01_JPRB,1.4040E-01_JPRB,1.2209E-01_JPRB,1.0775E-01_JPRB,9.3316E-02_JPRB,8.1050E-02_JPRB,&
2881	✓✓	10	& 6.8087E-02_JPRB,5.5672E-02_JPRB,2.6354E-01_JPRB/)
2882			KAO( :, 4,12,14) = (/&
2883			& 1.6037E-01_JPRB,1.4035E-01_JPRB,1.2384E-01_JPRB,1.1034E-01_JPRB,9.7597E-02_JPRB,8.6743E-02_JPRB,&
2884	✓✓	10	& 7.4072E-02_JPRB,6.4868E-02_JPRB,2.6219E-01_JPRB/)
2885			KAO( :, 5,12,14) = (/&
2886			& 1.6003E-01_JPRB,1.4017E-01_JPRB,1.2549E-01_JPRB,1.1310E-01_JPRB,1.0250E-01_JPRB,9.1994E-02_JPRB,&
2887	✓✓	10	& 8.0439E-02_JPRB,7.5469E-02_JPRB,2.6239E-01_JPRB/)
2888			KAO( :, 1,13,14) = (/&
2889			& 1.6469E-01_JPRB,1.4412E-01_JPRB,1.2368E-01_JPRB,1.0640E-01_JPRB,9.0617E-02_JPRB,7.5149E-02_JPRB,&
2890	✓✓	10	& 6.0781E-02_JPRB,4.3348E-02_JPRB,2.6721E-01_JPRB/)
2891			KAO( :, 2,13,14) = (/&
2892			& 1.6562E-01_JPRB,1.4493E-01_JPRB,1.2548E-01_JPRB,1.0990E-01_JPRB,9.4570E-02_JPRB,8.0925E-02_JPRB,&
2893	✓✓	10	& 6.6783E-02_JPRB,4.9779E-02_JPRB,2.6700E-01_JPRB/)
2894			KAO( :, 3,13,14) = (/&
2895			& 1.6629E-01_JPRB,1.4552E-01_JPRB,1.2768E-01_JPRB,1.1332E-01_JPRB,9.9317E-02_JPRB,8.6925E-02_JPRB,&
2896	✓✓	10	& 7.2626E-02_JPRB,5.7255E-02_JPRB,2.6579E-01_JPRB/)
2897			KAO( :, 4,13,14) = (/&
2898			& 1.6653E-01_JPRB,1.4581E-01_JPRB,1.2999E-01_JPRB,1.1666E-01_JPRB,1.0451E-01_JPRB,9.2915E-02_JPRB,&
2899	✓✓	10	& 7.8534E-02_JPRB,6.6130E-02_JPRB,2.6675E-01_JPRB/)
2900			KAO( :, 5,13,14) = (/&
2901			& 1.6684E-01_JPRB,1.4632E-01_JPRB,1.3221E-01_JPRB,1.2027E-01_JPRB,1.0991E-01_JPRB,9.8357E-02_JPRB,&
2902	✓✓	10	& 8.4972E-02_JPRB,7.6473E-02_JPRB,2.6996E-01_JPRB/)
2903			KAO( :, 1, 1,15) = (/&
2904			& 8.6335E-02_JPRB,7.5626E-02_JPRB,6.4917E-02_JPRB,5.5295E-02_JPRB,5.0812E-02_JPRB,5.9948E-02_JPRB,&
2905	✓✓	10	& 7.1505E-02_JPRB,8.2180E-02_JPRB,9.1859E-02_JPRB/)
2906			KAO( :, 2, 1,15) = (/&
2907			& 8.4567E-02_JPRB,7.4086E-02_JPRB,6.3604E-02_JPRB,5.5283E-02_JPRB,5.6490E-02_JPRB,6.9672E-02_JPRB,&
2908	✓✓	10	& 8.3123E-02_JPRB,9.5602E-02_JPRB,1.0689E-01_JPRB/)
2909			KAO( :, 3, 1,15) = (/&
2910			& 8.2946E-02_JPRB,7.2675E-02_JPRB,6.2405E-02_JPRB,5.5773E-02_JPRB,6.3940E-02_JPRB,7.9639E-02_JPRB,&
2911	✓✓	10	& 9.5049E-02_JPRB,1.0933E-01_JPRB,1.2237E-01_JPRB/)
2912			KAO( :, 4, 1,15) = (/&
2913			& 8.1353E-02_JPRB,7.1286E-02_JPRB,6.1452E-02_JPRB,5.8032E-02_JPRB,7.2168E-02_JPRB,8.9901E-02_JPRB,&
2914	✓✓	10	& 1.0730E-01_JPRB,1.2343E-01_JPRB,1.3810E-01_JPRB/)
2915			KAO( :, 5, 1,15) = (/&
2916			& 8.0306E-02_JPRB,7.0375E-02_JPRB,6.1401E-02_JPRB,6.2088E-02_JPRB,8.0744E-02_JPRB,1.0061E-01_JPRB,&
2917	✓✓	10	& 1.2011E-01_JPRB,1.3812E-01_JPRB,1.5455E-01_JPRB/)
2918			KAO( :, 1, 2,15) = (/&
2919			& 9.5589E-02_JPRB,8.3777E-02_JPRB,7.1976E-02_JPRB,6.1258E-02_JPRB,5.5368E-02_JPRB,6.4085E-02_JPRB,&
2920	✓✓	10	& 7.6446E-02_JPRB,8.7825E-02_JPRB,9.9724E-02_JPRB/)
2921			KAO( :, 2, 2,15) = (/&
2922			& 9.3570E-02_JPRB,8.1988E-02_JPRB,7.0421E-02_JPRB,6.1059E-02_JPRB,6.1189E-02_JPRB,7.4507E-02_JPRB,&
2923	✓✓	10	& 8.8919E-02_JPRB,1.0224E-01_JPRB,1.1610E-01_JPRB/)
2924			KAO( :, 3, 2,15) = (/&
2925			& 9.1829E-02_JPRB,8.0436E-02_JPRB,6.9070E-02_JPRB,6.1314E-02_JPRB,6.8582E-02_JPRB,8.5238E-02_JPRB,&
2926	✓✓	10	& 1.0175E-01_JPRB,1.1706E-01_JPRB,1.3301E-01_JPRB/)
2927			KAO( :, 4, 2,15) = (/&
2928			& 9.0487E-02_JPRB,7.9254E-02_JPRB,6.8526E-02_JPRB,6.4228E-02_JPRB,7.7434E-02_JPRB,9.6498E-02_JPRB,&
2929	✓✓	10	& 1.1522E-01_JPRB,1.3267E-01_JPRB,1.5077E-01_JPRB/)
2930			KAO( :, 5, 2,15) = (/&
2931			& 8.9669E-02_JPRB,7.8542E-02_JPRB,6.8954E-02_JPRB,6.8451E-02_JPRB,8.6910E-02_JPRB,1.0835E-01_JPRB,&
2932	✓✓	10	& 1.2939E-01_JPRB,1.4902E-01_JPRB,1.6935E-01_JPRB/)
2933			KAO( :, 1, 3,15) = (/&
2934			& 1.0676E-01_JPRB,9.3553E-02_JPRB,8.0347E-02_JPRB,6.7838E-02_JPRB,5.9827E-02_JPRB,6.6522E-02_JPRB,&
2935	✓✓	10	& 7.9363E-02_JPRB,9.1189E-02_JPRB,1.0525E-01_JPRB/)
2936			KAO( :, 2, 3,15) = (/&
2937			& 1.0446E-01_JPRB,9.1534E-02_JPRB,7.8612E-02_JPRB,6.7925E-02_JPRB,6.5040E-02_JPRB,7.7741E-02_JPRB,&
2938	✓✓	10	& 9.2778E-02_JPRB,1.0667E-01_JPRB,1.2309E-01_JPRB/)
2939			KAO( :, 3, 3,15) = (/&
2940			& 1.0249E-01_JPRB,8.9809E-02_JPRB,7.7136E-02_JPRB,6.8091E-02_JPRB,7.2454E-02_JPRB,8.9300E-02_JPRB,&
2941	✓✓	10	& 1.0660E-01_JPRB,1.2265E-01_JPRB,1.4148E-01_JPRB/)
2942			KAO( :, 4, 3,15) = (/&
2943			& 1.0145E-01_JPRB,8.8891E-02_JPRB,7.6929E-02_JPRB,7.0768E-02_JPRB,8.1305E-02_JPRB,1.0131E-01_JPRB,&
2944	✓✓	10	& 1.2096E-01_JPRB,1.3918E-01_JPRB,1.6053E-01_JPRB/)
2945			KAO( :, 5, 3,15) = (/&
2946			& 1.0070E-01_JPRB,8.8241E-02_JPRB,7.7594E-02_JPRB,7.4852E-02_JPRB,9.1339E-02_JPRB,1.1386E-01_JPRB,&
2947	✓✓	10	& 1.3595E-01_JPRB,1.5652E-01_JPRB,1.8047E-01_JPRB/)
2948			KAO( :, 1, 4,15) = (/&
2949			& 1.1948E-01_JPRB,1.0466E-01_JPRB,8.9846E-02_JPRB,7.5435E-02_JPRB,6.5653E-02_JPRB,6.8395E-02_JPRB,&
2950	✓✓	10	& 8.1117E-02_JPRB,9.3286E-02_JPRB,1.0845E-01_JPRB/)
2951			KAO( :, 2, 4,15) = (/&
2952			& 1.1744E-01_JPRB,1.0288E-01_JPRB,8.8326E-02_JPRB,7.6088E-02_JPRB,7.0000E-02_JPRB,8.0045E-02_JPRB,&
2953	✓✓	10	& 9.5565E-02_JPRB,1.0996E-01_JPRB,1.2777E-01_JPRB/)
2954			KAO( :, 3, 4,15) = (/&
2955			& 1.1572E-01_JPRB,1.0138E-01_JPRB,8.7035E-02_JPRB,7.6536E-02_JPRB,7.6949E-02_JPRB,9.2508E-02_JPRB,&
2956	✓✓	10	& 1.1046E-01_JPRB,1.2718E-01_JPRB,1.4769E-01_JPRB/)
2957			KAO( :, 4, 4,15) = (/&
2958			& 1.1457E-01_JPRB,1.0037E-01_JPRB,8.6743E-02_JPRB,7.8791E-02_JPRB,8.5479E-02_JPRB,1.0549E-01_JPRB,&
2959	✓✓	10	& 1.2598E-01_JPRB,1.4506E-01_JPRB,1.6844E-01_JPRB/)
2960			KAO( :, 5, 4,15) = (/&
2961			& 1.1371E-01_JPRB,9.9614E-02_JPRB,8.7543E-02_JPRB,8.2406E-02_JPRB,9.5523E-02_JPRB,1.1901E-01_JPRB,&
2962	✓✓	10	& 1.4214E-01_JPRB,1.6372E-01_JPRB,1.9001E-01_JPRB/)
2963			KAO( :, 1, 5,15) = (/&
2964			& 1.3435E-01_JPRB,1.1765E-01_JPRB,1.0095E-01_JPRB,8.4469E-02_JPRB,7.2853E-02_JPRB,7.1272E-02_JPRB,&
2965	✓✓	10	& 8.1960E-02_JPRB,9.4385E-02_JPRB,1.0990E-01_JPRB/)
2966			KAO( :, 2, 5,15) = (/&
2967			& 1.3249E-01_JPRB,1.1603E-01_JPRB,9.9565E-02_JPRB,8.5291E-02_JPRB,7.6670E-02_JPRB,8.2310E-02_JPRB,&
2968	✓✓	10	& 9.7448E-02_JPRB,1.1228E-01_JPRB,1.3064E-01_JPRB/)
2969			KAO( :, 3, 5,15) = (/&
2970			& 1.3078E-01_JPRB,1.1453E-01_JPRB,9.8289E-02_JPRB,8.6209E-02_JPRB,8.3093E-02_JPRB,9.5057E-02_JPRB,&
2971	✓✓	10	& 1.1357E-01_JPRB,1.3082E-01_JPRB,1.5225E-01_JPRB/)
2972			KAO( :, 4, 5,15) = (/&
2973			& 1.2949E-01_JPRB,1.1340E-01_JPRB,9.7892E-02_JPRB,8.8436E-02_JPRB,9.1112E-02_JPRB,1.0924E-01_JPRB,&
2974	✓✓	10	& 1.3047E-01_JPRB,1.5034E-01_JPRB,1.7498E-01_JPRB/)
2975			KAO( :, 5, 5,15) = (/&
2976			& 1.2852E-01_JPRB,1.1256E-01_JPRB,9.8533E-02_JPRB,9.1755E-02_JPRB,1.0068E-01_JPRB,1.2400E-01_JPRB,&
2977	✓✓	10	& 1.4814E-01_JPRB,1.7069E-01_JPRB,1.9863E-01_JPRB/)
2978			KAO( :, 1, 6,15) = (/&
2979			& 1.5076E-01_JPRB,1.3198E-01_JPRB,1.1320E-01_JPRB,9.4463E-02_JPRB,8.0666E-02_JPRB,7.5054E-02_JPRB,&
2980	✓✓	10	& 8.0871E-02_JPRB,9.3264E-02_JPRB,1.0849E-01_JPRB/)
2981			KAO( :, 2, 6,15) = (/&
2982			& 1.4906E-01_JPRB,1.3049E-01_JPRB,1.1193E-01_JPRB,9.5115E-02_JPRB,8.4634E-02_JPRB,8.5281E-02_JPRB,&
2983	✓✓	10	& 9.7599E-02_JPRB,1.1257E-01_JPRB,1.3098E-01_JPRB/)
2984			KAO( :, 3, 6,15) = (/&
2985			& 1.4751E-01_JPRB,1.2914E-01_JPRB,1.1077E-01_JPRB,9.6775E-02_JPRB,9.0721E-02_JPRB,9.7408E-02_JPRB,&
2986	✓✓	10	& 1.1514E-01_JPRB,1.3281E-01_JPRB,1.5454E-01_JPRB/)
2987			KAO( :, 4, 6,15) = (/&
2988			& 1.4640E-01_JPRB,1.2818E-01_JPRB,1.1040E-01_JPRB,9.8990E-02_JPRB,9.8328E-02_JPRB,1.1180E-01_JPRB,&
2989	✓✓	10	& 1.3358E-01_JPRB,1.5404E-01_JPRB,1.7929E-01_JPRB/)
2990			KAO( :, 5, 6,15) = (/&
2991			& 1.4534E-01_JPRB,1.2726E-01_JPRB,1.1100E-01_JPRB,1.0247E-01_JPRB,1.0712E-01_JPRB,1.2780E-01_JPRB,&
2992	✓✓	10	& 1.5274E-01_JPRB,1.7614E-01_JPRB,2.0503E-01_JPRB/)
2993			KAO( :, 1, 7,15) = (/&
2994			& 1.7017E-01_JPRB,1.4895E-01_JPRB,1.2773E-01_JPRB,1.0651E-01_JPRB,8.8726E-02_JPRB,8.0014E-02_JPRB,&
2995	✓✓	10	& 7.9958E-02_JPRB,9.0777E-02_JPRB,1.0558E-01_JPRB/)
2996			KAO( :, 2, 7,15) = (/&
2997			& 1.6840E-01_JPRB,1.4740E-01_JPRB,1.2641E-01_JPRB,1.0633E-01_JPRB,9.3561E-02_JPRB,8.9399E-02_JPRB,&
2998	✓✓	10	& 9.6654E-02_JPRB,1.1154E-01_JPRB,1.2974E-01_JPRB/)
2999			KAO( :, 3, 7,15) = (/&
3000			& 1.6683E-01_JPRB,1.4603E-01_JPRB,1.2523E-01_JPRB,1.0816E-01_JPRB,9.9523E-02_JPRB,1.0085E-01_JPRB,&
3001	✓✓	10	& 1.1565E-01_JPRB,1.3349E-01_JPRB,1.5523E-01_JPRB/)
3002			KAO( :, 4, 7,15) = (/&
3003			& 1.6579E-01_JPRB,1.4512E-01_JPRB,1.2467E-01_JPRB,1.1069E-01_JPRB,1.0674E-01_JPRB,1.1452E-01_JPRB,&
3004	✓✓	10	& 1.3558E-01_JPRB,1.5645E-01_JPRB,1.8200E-01_JPRB/)
3005			KAO( :, 5, 7,15) = (/&
3006			& 1.6467E-01_JPRB,1.4415E-01_JPRB,1.2512E-01_JPRB,1.1428E-01_JPRB,1.1515E-01_JPRB,1.3096E-01_JPRB,&
3007	✓✓	10	& 1.5653E-01_JPRB,1.8061E-01_JPRB,2.1020E-01_JPRB/)
3008			KAO( :, 1, 8,15) = (/&
3009			& 1.9300E-01_JPRB,1.6891E-01_JPRB,1.4482E-01_JPRB,1.2074E-01_JPRB,9.8428E-02_JPRB,8.6453E-02_JPRB,&
3010	✓✓	10	& 8.0104E-02_JPRB,8.7414E-02_JPRB,1.0158E-01_JPRB/)
3011			KAO( :, 2, 8,15) = (/&
3012			& 1.9118E-01_JPRB,1.6732E-01_JPRB,1.4346E-01_JPRB,1.1993E-01_JPRB,1.0330E-01_JPRB,9.4785E-02_JPRB,&
3013	✓✓	10	& 9.5939E-02_JPRB,1.0927E-01_JPRB,1.2693E-01_JPRB/)
3014			KAO( :, 3, 8,15) = (/&
3015			& 1.8966E-01_JPRB,1.6599E-01_JPRB,1.4233E-01_JPRB,1.2111E-01_JPRB,1.0944E-01_JPRB,1.0556E-01_JPRB,&
3016	✓✓	10	& 1.1490E-01_JPRB,1.3272E-01_JPRB,1.5419E-01_JPRB/)
3017			KAO( :, 4, 8,15) = (/&
3018			& 1.8827E-01_JPRB,1.6478E-01_JPRB,1.4129E-01_JPRB,1.2410E-01_JPRB,1.1628E-01_JPRB,1.1877E-01_JPRB,&
3019	✓✓	10	& 1.3648E-01_JPRB,1.5764E-01_JPRB,1.8319E-01_JPRB/)
3020			KAO( :, 5, 8,15) = (/&
3021			& 1.8700E-01_JPRB,1.6367E-01_JPRB,1.4137E-01_JPRB,1.2760E-01_JPRB,1.2425E-01_JPRB,1.3451E-01_JPRB,&
3022	✓✓	10	& 1.5950E-01_JPRB,1.8417E-01_JPRB,2.1419E-01_JPRB/)
3023			KAO( :, 1, 9,15) = (/&
3024			& 2.1903E-01_JPRB,1.9168E-01_JPRB,1.6432E-01_JPRB,1.3697E-01_JPRB,1.1022E-01_JPRB,9.3381E-02_JPRB,&
3025	✓✓	10	& 8.1173E-02_JPRB,8.3378E-02_JPRB,9.6854E-02_JPRB/)
3026			KAO( :, 2, 9,15) = (/&
3027			& 2.1750E-01_JPRB,1.9034E-01_JPRB,1.6318E-01_JPRB,1.3602E-01_JPRB,1.1431E-01_JPRB,1.0171E-01_JPRB,&
3028	✓✓	10	& 9.6008E-02_JPRB,1.0601E-01_JPRB,1.2308E-01_JPRB/)
3029			KAO( :, 3, 9,15) = (/&
3030			& 2.1621E-01_JPRB,1.8921E-01_JPRB,1.6222E-01_JPRB,1.3665E-01_JPRB,1.2052E-01_JPRB,1.1120E-01_JPRB,&
3031	✓✓	10	& 1.1434E-01_JPRB,1.3077E-01_JPRB,1.5182E-01_JPRB/)
3032			KAO( :, 4, 9,15) = (/&
3033			& 2.1461E-01_JPRB,1.8782E-01_JPRB,1.6103E-01_JPRB,1.3944E-01_JPRB,1.2758E-01_JPRB,1.2410E-01_JPRB,&
3034	✓✓	10	& 1.3607E-01_JPRB,1.5728E-01_JPRB,1.8262E-01_JPRB/)
3035			KAO( :, 5, 9,15) = (/&
3036			& 2.1295E-01_JPRB,1.8637E-01_JPRB,1.6039E-01_JPRB,1.4274E-01_JPRB,1.3480E-01_JPRB,1.3933E-01_JPRB,&
3037	✓✓	10	& 1.6084E-01_JPRB,1.8591E-01_JPRB,2.1587E-01_JPRB/)
3038			KAO( :, 1,10,15) = (/&
3039			& 2.4831E-01_JPRB,2.1729E-01_JPRB,1.8627E-01_JPRB,1.5526E-01_JPRB,1.2434E-01_JPRB,1.0185E-01_JPRB,&
3040	✓✓	10	& 8.4815E-02_JPRB,8.0841E-02_JPRB,1.7532E-01_JPRB/)
3041			KAO( :, 2,10,15) = (/&
3042			& 2.4704E-01_JPRB,2.1618E-01_JPRB,1.8532E-01_JPRB,1.5447E-01_JPRB,1.2750E-01_JPRB,1.1098E-01_JPRB,&
3043	✓✓	10	& 9.8299E-02_JPRB,1.0410E-01_JPRB,1.7367E-01_JPRB/)
3044			KAO( :, 3,10,15) = (/&
3045			& 2.4585E-01_JPRB,2.1514E-01_JPRB,1.8444E-01_JPRB,1.5466E-01_JPRB,1.3408E-01_JPRB,1.1953E-01_JPRB,&
3046	✓✓	10	& 1.1633E-01_JPRB,1.3023E-01_JPRB,1.7996E-01_JPRB/)
3047			KAO( :, 4,10,15) = (/&
3048			& 2.4402E-01_JPRB,2.1354E-01_JPRB,1.8307E-01_JPRB,1.5695E-01_JPRB,1.4115E-01_JPRB,1.3126E-01_JPRB,&
3049	✓✓	10	& 1.3793E-01_JPRB,1.5846E-01_JPRB,1.9548E-01_JPRB/)
3050			KAO( :, 5,10,15) = (/&
3051			& 2.4208E-01_JPRB,2.1185E-01_JPRB,1.8198E-01_JPRB,1.6040E-01_JPRB,1.4820E-01_JPRB,1.4650E-01_JPRB,&
3052	✓✓	10	& 1.6334E-01_JPRB,1.8884E-01_JPRB,2.2082E-01_JPRB/)
3053
3054	✓✗	1	IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART10',1,ZHOOK_HANDLE)
3055		1	END SUBROUTINE PART10
3056
3057
3058		1	SUBROUTINE PART11
3059
3060			REAL(KIND=JPRB) :: ZHOOK_HANDLE
3061	✓✗	1	IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART11',0,ZHOOK_HANDLE)
3062
3063
3064			KAO( :, 1,11,15) = (/&
3065			& 2.8046E-01_JPRB,2.4542E-01_JPRB,2.1039E-01_JPRB,1.7535E-01_JPRB,1.4072E-01_JPRB,1.1602E-01_JPRB,&
3066	✓✓	10	& 9.4756E-02_JPRB,8.8842E-02_JPRB,3.0507E-01_JPRB/)
3067			KAO( :, 2,11,15) = (/&
3068			& 2.7918E-01_JPRB,2.4430E-01_JPRB,2.0943E-01_JPRB,1.7456E-01_JPRB,1.4537E-01_JPRB,1.2533E-01_JPRB,&
3069	✓✓	10	& 1.0891E-01_JPRB,1.1392E-01_JPRB,2.9566E-01_JPRB/)
3070			KAO( :, 3,11,15) = (/&
3071			& 2.7735E-01_JPRB,2.4270E-01_JPRB,2.0805E-01_JPRB,1.7500E-01_JPRB,1.5257E-01_JPRB,1.3417E-01_JPRB,&
3072	✓✓	10	& 1.2847E-01_JPRB,1.4223E-01_JPRB,2.9322E-01_JPRB/)
3073			KAO( :, 4,11,15) = (/&
3074			& 2.7527E-01_JPRB,2.4088E-01_JPRB,2.0649E-01_JPRB,1.7781E-01_JPRB,1.5979E-01_JPRB,1.4614E-01_JPRB,&
3075	✓✓	10	& 1.5179E-01_JPRB,1.7334E-01_JPRB,2.9538E-01_JPRB/)
3076			KAO( :, 5,11,15) = (/&
3077			& 2.7287E-01_JPRB,2.3878E-01_JPRB,2.0537E-01_JPRB,1.8183E-01_JPRB,1.6671E-01_JPRB,1.6236E-01_JPRB,&
3078	✓✓	10	& 1.7904E-01_JPRB,2.0699E-01_JPRB,3.0432E-01_JPRB/)
3079			KAO( :, 1,12,15) = (/&
3080			& 3.1597E-01_JPRB,2.7649E-01_JPRB,2.3701E-01_JPRB,1.9754E-01_JPRB,1.5924E-01_JPRB,1.3168E-01_JPRB,&
3081	✓✓	10	& 1.0585E-01_JPRB,9.7375E-02_JPRB,4.0358E-01_JPRB/)
3082			KAO( :, 2,12,15) = (/&
3083			& 3.1432E-01_JPRB,2.7505E-01_JPRB,2.3578E-01_JPRB,1.9654E-01_JPRB,1.6498E-01_JPRB,1.4094E-01_JPRB,&
3084	✓✓	10	& 1.2051E-01_JPRB,1.2392E-01_JPRB,3.9336E-01_JPRB/)
3085			KAO( :, 3,12,15) = (/&
3086			& 3.1171E-01_JPRB,2.7277E-01_JPRB,2.3383E-01_JPRB,1.9721E-01_JPRB,1.7246E-01_JPRB,1.5023E-01_JPRB,&
3087	✓✓	10	& 1.4122E-01_JPRB,1.5462E-01_JPRB,3.9393E-01_JPRB/)
3088			KAO( :, 4,12,15) = (/&
3089			& 3.0880E-01_JPRB,2.7022E-01_JPRB,2.3164E-01_JPRB,2.0058E-01_JPRB,1.7964E-01_JPRB,1.6232E-01_JPRB,&
3090	✓✓	10	& 1.6619E-01_JPRB,1.8839E-01_JPRB,3.9596E-01_JPRB/)
3091			KAO( :, 5,12,15) = (/&
3092			& 3.0525E-01_JPRB,2.6711E-01_JPRB,2.3006E-01_JPRB,2.0488E-01_JPRB,1.8690E-01_JPRB,1.7940E-01_JPRB,&
3093	✓✓	10	& 1.9528E-01_JPRB,2.2516E-01_JPRB,4.0079E-01_JPRB/)
3094			KAO( :, 1,13,15) = (/&
3095			& 3.5411E-01_JPRB,3.0986E-01_JPRB,2.6562E-01_JPRB,2.2137E-01_JPRB,1.7962E-01_JPRB,1.4841E-01_JPRB,&
3096	✓✓	10	& 1.1804E-01_JPRB,1.0632E-01_JPRB,4.1876E-01_JPRB/)
3097			KAO( :, 2,13,15) = (/&
3098			& 3.5164E-01_JPRB,3.0771E-01_JPRB,2.6377E-01_JPRB,2.2010E-01_JPRB,1.8598E-01_JPRB,1.5750E-01_JPRB,&
3099	✓✓	10	& 1.3321E-01_JPRB,1.3429E-01_JPRB,4.1787E-01_JPRB/)
3100			KAO( :, 3,13,15) = (/&
3101			& 3.4820E-01_JPRB,3.0469E-01_JPRB,2.6119E-01_JPRB,2.2112E-01_JPRB,1.9338E-01_JPRB,1.6728E-01_JPRB,&
3102	✓✓	10	& 1.5455E-01_JPRB,1.6711E-01_JPRB,4.2377E-01_JPRB/)
3103			KAO( :, 4,13,15) = (/&
3104			& 3.4395E-01_JPRB,3.0097E-01_JPRB,2.5812E-01_JPRB,2.2469E-01_JPRB,2.0035E-01_JPRB,1.7975E-01_JPRB,&
3105	✓✓	10	& 1.8098E-01_JPRB,2.0337E-01_JPRB,4.2831E-01_JPRB/)
3106			KAO( :, 5,13,15) = (/&
3107			& 3.3896E-01_JPRB,2.9661E-01_JPRB,2.5572E-01_JPRB,2.2897E-01_JPRB,2.0809E-01_JPRB,1.9725E-01_JPRB,&
3108	✓✓	10	& 2.1144E-01_JPRB,2.4250E-01_JPRB,4.3491E-01_JPRB/)
3109			KAO( :, 1, 1,16) = (/&
3110			& 9.7171E-02_JPRB,8.5148E-02_JPRB,7.3125E-02_JPRB,6.1102E-02_JPRB,7.6485E-02_JPRB,9.5172E-02_JPRB,&
3111	✓✓	10	& 1.1335E-01_JPRB,1.2955E-01_JPRB,1.4355E-01_JPRB/)
3112			KAO( :, 2, 1,16) = (/&
3113			& 9.4236E-02_JPRB,8.2602E-02_JPRB,7.0968E-02_JPRB,6.8035E-02_JPRB,9.0374E-02_JPRB,1.1244E-01_JPRB,&
3114	✓✓	10	& 1.3393E-01_JPRB,1.5311E-01_JPRB,1.6974E-01_JPRB/)
3115			KAO( :, 3, 1,16) = (/&
3116			& 9.1543E-02_JPRB,8.0273E-02_JPRB,6.9003E-02_JPRB,7.8791E-02_JPRB,1.0469E-01_JPRB,1.3025E-01_JPRB,&
3117	✓✓	10	& 1.5519E-01_JPRB,1.7738E-01_JPRB,1.9670E-01_JPRB/)
3118			KAO( :, 4, 1,16) = (/&
3119			& 8.8644E-02_JPRB,7.7768E-02_JPRB,6.6893E-02_JPRB,8.9756E-02_JPRB,1.1926E-01_JPRB,1.4844E-01_JPRB,&
3120	✓✓	10	& 1.7683E-01_JPRB,2.0215E-01_JPRB,2.2416E-01_JPRB/)
3121			KAO( :, 5, 1,16) = (/&
3122			& 8.6144E-02_JPRB,7.5584E-02_JPRB,6.7875E-02_JPRB,1.0078E-01_JPRB,1.3394E-01_JPRB,1.6670E-01_JPRB,&
3123	✓✓	10	& 1.9859E-01_JPRB,2.2714E-01_JPRB,2.5185E-01_JPRB/)
3124			KAO( :, 1, 2,16) = (/&
3125			& 1.1053E-01_JPRB,9.6812E-02_JPRB,8.3097E-02_JPRB,6.9381E-02_JPRB,8.5062E-02_JPRB,1.0587E-01_JPRB,&
3126	✓✓	10	& 1.2610E-01_JPRB,1.4420E-01_JPRB,1.6344E-01_JPRB/)
3127			KAO( :, 2, 2,16) = (/&
3128			& 1.0742E-01_JPRB,9.4110E-02_JPRB,8.0803E-02_JPRB,7.6274E-02_JPRB,1.0134E-01_JPRB,1.2610E-01_JPRB,&
3129	✓✓	10	& 1.5024E-01_JPRB,1.7183E-01_JPRB,1.9478E-01_JPRB/)
3130			KAO( :, 3, 2,16) = (/&
3131			& 1.0452E-01_JPRB,9.1604E-02_JPRB,7.8683E-02_JPRB,8.8937E-02_JPRB,1.1819E-01_JPRB,1.4709E-01_JPRB,&
3132	✓✓	10	& 1.7526E-01_JPRB,2.0044E-01_JPRB,2.2725E-01_JPRB/)
3133			KAO( :, 4, 2,16) = (/&
3134			& 1.0156E-01_JPRB,8.9034E-02_JPRB,7.6513E-02_JPRB,1.0188E-01_JPRB,1.3537E-01_JPRB,1.6848E-01_JPRB,&
3135	✓✓	10	& 2.0078E-01_JPRB,2.2973E-01_JPRB,2.6038E-01_JPRB/)
3136			KAO( :, 5, 2,16) = (/&
3137			& 9.9221E-02_JPRB,8.6974E-02_JPRB,7.8015E-02_JPRB,1.1491E-01_JPRB,1.5271E-01_JPRB,1.9010E-01_JPRB,&
3138	✓✓	10	& 2.2653E-01_JPRB,2.5922E-01_JPRB,2.9391E-01_JPRB/)
3139			KAO( :, 1, 3,16) = (/&
3140			& 1.2741E-01_JPRB,1.1157E-01_JPRB,9.5716E-02_JPRB,7.9867E-02_JPRB,9.0261E-02_JPRB,1.1233E-01_JPRB,&
3141	✓✓	10	& 1.3379E-01_JPRB,1.5315E-01_JPRB,1.7733E-01_JPRB/)
3142			KAO( :, 2, 3,16) = (/&
3143			& 1.2407E-01_JPRB,1.0865E-01_JPRB,9.3240E-02_JPRB,8.3066E-02_JPRB,1.0895E-01_JPRB,1.3559E-01_JPRB,&
3144	✓✓	10	& 1.6159E-01_JPRB,1.8497E-01_JPRB,2.1412E-01_JPRB/)
3145			KAO( :, 3, 3,16) = (/&
3146			& 1.2077E-01_JPRB,1.0579E-01_JPRB,9.0806E-02_JPRB,9.6664E-02_JPRB,1.2848E-01_JPRB,1.5988E-01_JPRB,&
3147	✓✓	10	& 1.9057E-01_JPRB,2.1812E-01_JPRB,2.5248E-01_JPRB/)
3148			KAO( :, 4, 3,16) = (/&
3149			& 1.1796E-01_JPRB,1.0334E-01_JPRB,8.8711E-02_JPRB,1.1167E-01_JPRB,1.4847E-01_JPRB,1.8483E-01_JPRB,&
3150	✓✓	10	& 2.2029E-01_JPRB,2.5232E-01_JPRB,2.9201E-01_JPRB/)
3151			KAO( :, 5, 3,16) = (/&
3152			& 1.1579E-01_JPRB,1.0144E-01_JPRB,8.8938E-02_JPRB,1.2695E-01_JPRB,1.6868E-01_JPRB,2.1009E-01_JPRB,&
3153	✓✓	10	& 2.5050E-01_JPRB,2.8682E-01_JPRB,3.3195E-01_JPRB/)
3154			KAO( :, 1, 4,16) = (/&
3155			& 1.4795E-01_JPRB,1.2951E-01_JPRB,1.1108E-01_JPRB,9.2642E-02_JPRB,9.3362E-02_JPRB,1.1620E-01_JPRB,&
3156	✓✓	10	& 1.3849E-01_JPRB,1.5859E-01_JPRB,1.8531E-01_JPRB/)
3157			KAO( :, 2, 4,16) = (/&
3158			& 1.4437E-01_JPRB,1.2639E-01_JPRB,1.0842E-01_JPRB,9.2423E-02_JPRB,1.1442E-01_JPRB,1.4252E-01_JPRB,&
3159	✓✓	10	& 1.6987E-01_JPRB,1.9459E-01_JPRB,2.2738E-01_JPRB/)
3160			KAO( :, 3, 4,16) = (/&
3161			& 1.4082E-01_JPRB,1.2330E-01_JPRB,1.0578E-01_JPRB,1.0327E-01_JPRB,1.3669E-01_JPRB,1.7021E-01_JPRB,&
3162	✓✓	10	& 2.0291E-01_JPRB,2.3254E-01_JPRB,2.7168E-01_JPRB/)
3163			KAO( :, 4, 4,16) = (/&
3164			& 1.3812E-01_JPRB,1.2094E-01_JPRB,1.0376E-01_JPRB,1.2016E-01_JPRB,1.5971E-01_JPRB,1.9884E-01_JPRB,&
3165	✓✓	10	& 2.3712E-01_JPRB,2.7173E-01_JPRB,3.1737E-01_JPRB/)
3166			KAO( :, 5, 4,16) = (/&
3167			& 1.3617E-01_JPRB,1.1924E-01_JPRB,1.0266E-01_JPRB,1.3775E-01_JPRB,1.8312E-01_JPRB,2.2801E-01_JPRB,&
3168	✓✓	10	& 2.7185E-01_JPRB,3.1180E-01_JPRB,3.6388E-01_JPRB/)
3169			KAO( :, 1, 5,16) = (/&
3170			& 1.7254E-01_JPRB,1.5104E-01_JPRB,1.2954E-01_JPRB,1.0804E-01_JPRB,9.7033E-02_JPRB,1.1821E-01_JPRB,&
3171	✓✓	10	& 1.4096E-01_JPRB,1.6165E-01_JPRB,1.8940E-01_JPRB/)
3172			KAO( :, 2, 5,16) = (/&
3173			& 1.6864E-01_JPRB,1.4763E-01_JPRB,1.2663E-01_JPRB,1.0583E-01_JPRB,1.1845E-01_JPRB,1.4755E-01_JPRB,&
3174	✓✓	10	& 1.7593E-01_JPRB,2.0174E-01_JPRB,2.3625E-01_JPRB/)
3175			KAO( :, 3, 5,16) = (/&
3176			& 1.6515E-01_JPRB,1.4456E-01_JPRB,1.2397E-01_JPRB,1.1290E-01_JPRB,1.4346E-01_JPRB,1.7861E-01_JPRB,&
3177	✓✓	10	& 2.1302E-01_JPRB,2.4445E-01_JPRB,2.8621E-01_JPRB/)
3178			KAO( :, 4, 5,16) = (/&
3179			& 1.6266E-01_JPRB,1.4239E-01_JPRB,1.2212E-01_JPRB,1.2793E-01_JPRB,1.6939E-01_JPRB,2.1102E-01_JPRB,&
3180	✓✓	10	& 2.5177E-01_JPRB,2.8892E-01_JPRB,3.3809E-01_JPRB/)
3181			KAO( :, 5, 5,16) = (/&
3182			& 1.6070E-01_JPRB,1.4068E-01_JPRB,1.2066E-01_JPRB,1.4743E-01_JPRB,1.9603E-01_JPRB,2.4421E-01_JPRB,&
3183	✓✓	10	& 2.9142E-01_JPRB,3.3457E-01_JPRB,3.9133E-01_JPRB/)
3184			KAO( :, 1, 6,16) = (/&
3185			& 2.0388E-01_JPRB,1.7849E-01_JPRB,1.5310E-01_JPRB,1.2771E-01_JPRB,1.0526E-01_JPRB,1.1860E-01_JPRB,&
3186	✓✓	10	& 1.4142E-01_JPRB,1.6203E-01_JPRB,1.9043E-01_JPRB/)
3187			KAO( :, 2, 6,16) = (/&
3188			& 1.9953E-01_JPRB,1.7470E-01_JPRB,1.4986E-01_JPRB,1.2501E-01_JPRB,1.2166E-01_JPRB,1.5016E-01_JPRB,&
3189	✓✓	10	& 1.7907E-01_JPRB,2.0547E-01_JPRB,2.4111E-01_JPRB/)
3190			KAO( :, 3, 6,16) = (/&
3191			& 1.9494E-01_JPRB,1.7068E-01_JPRB,1.4642E-01_JPRB,1.2626E-01_JPRB,1.4789E-01_JPRB,1.8422E-01_JPRB,&
3192	✓✓	10	& 2.1980E-01_JPRB,2.5220E-01_JPRB,2.9578E-01_JPRB/)
3193			KAO( :, 4, 6,16) = (/&
3194			& 1.9206E-01_JPRB,1.6810E-01_JPRB,1.4414E-01_JPRB,1.3841E-01_JPRB,1.7663E-01_JPRB,2.1999E-01_JPRB,&
3195	✓✓	10	& 2.6255E-01_JPRB,3.0157E-01_JPRB,3.5331E-01_JPRB/)
3196			KAO( :, 5, 6,16) = (/&
3197			& 1.9005E-01_JPRB,1.6635E-01_JPRB,1.4264E-01_JPRB,1.5606E-01_JPRB,2.0643E-01_JPRB,2.5713E-01_JPRB,&
3198	✓✓	10	& 3.0687E-01_JPRB,3.5252E-01_JPRB,4.1278E-01_JPRB/)
3199			KAO( :, 1, 7,16) = (/&
3200			& 2.4312E-01_JPRB,2.1282E-01_JPRB,1.8252E-01_JPRB,1.5222E-01_JPRB,1.2192E-01_JPRB,1.1888E-01_JPRB,&
3201	✓✓	10	& 1.4174E-01_JPRB,1.6248E-01_JPRB,1.9115E-01_JPRB/)
3202			KAO( :, 2, 7,16) = (/&
3203			& 2.3797E-01_JPRB,2.0832E-01_JPRB,1.7867E-01_JPRB,1.4904E-01_JPRB,1.2994E-01_JPRB,1.5302E-01_JPRB,&
3204	✓✓	10	& 1.8249E-01_JPRB,2.0929E-01_JPRB,2.4599E-01_JPRB/)
3205			KAO( :, 3, 7,16) = (/&
3206			& 2.3255E-01_JPRB,2.0359E-01_JPRB,1.7463E-01_JPRB,1.4575E-01_JPRB,1.5275E-01_JPRB,1.9023E-01_JPRB,&
3207	✓✓	10	& 2.2691E-01_JPRB,2.6041E-01_JPRB,3.0584E-01_JPRB/)
3208			KAO( :, 4, 7,16) = (/&
3209			& 2.2807E-01_JPRB,1.9965E-01_JPRB,1.7122E-01_JPRB,1.5317E-01_JPRB,1.8432E-01_JPRB,2.2969E-01_JPRB,&
3210	✓✓	10	& 2.7402E-01_JPRB,3.1471E-01_JPRB,3.6920E-01_JPRB/)
3211			KAO( :, 5, 7,16) = (/&
3212			& 2.2498E-01_JPRB,1.9692E-01_JPRB,1.6887E-01_JPRB,1.6865E-01_JPRB,2.1725E-01_JPRB,2.7068E-01_JPRB,&
3213	✓✓	10	& 3.2308E-01_JPRB,3.7116E-01_JPRB,4.3516E-01_JPRB/)
3214			KAO( :, 1, 8,16) = (/&
3215			& 2.9068E-01_JPRB,2.5442E-01_JPRB,2.1816E-01_JPRB,1.8190E-01_JPRB,1.4564E-01_JPRB,1.2041E-01_JPRB,&
3216	✓✓	10	& 1.4177E-01_JPRB,1.6257E-01_JPRB,1.9124E-01_JPRB/)
3217			KAO( :, 2, 8,16) = (/&
3218			& 2.8457E-01_JPRB,2.4908E-01_JPRB,2.1359E-01_JPRB,1.7807E-01_JPRB,1.4515E-01_JPRB,1.5579E-01_JPRB,&
3219	✓✓	10	& 1.8584E-01_JPRB,2.1331E-01_JPRB,2.5071E-01_JPRB/)
3220			KAO( :, 3, 8,16) = (/&
3221			& 2.7790E-01_JPRB,2.4325E-01_JPRB,2.0861E-01_JPRB,1.7396E-01_JPRB,1.6105E-01_JPRB,1.9656E-01_JPRB,&
3222	✓✓	10	& 2.3447E-01_JPRB,2.6926E-01_JPRB,3.1620E-01_JPRB/)
3223			KAO( :, 4, 8,16) = (/&
3224			& 2.7204E-01_JPRB,2.3812E-01_JPRB,2.0420E-01_JPRB,1.7391E-01_JPRB,1.9266E-01_JPRB,2.4008E-01_JPRB,&
3225	✓✓	10	& 2.8658E-01_JPRB,3.2922E-01_JPRB,3.8634E-01_JPRB/)
3226			KAO( :, 5, 8,16) = (/&
3227			& 2.6773E-01_JPRB,2.3434E-01_JPRB,2.0095E-01_JPRB,1.8582E-01_JPRB,2.2918E-01_JPRB,2.8567E-01_JPRB,&
3228	✓✓	10	& 3.4098E-01_JPRB,3.9189E-01_JPRB,4.5943E-01_JPRB/)
3229			KAO( :, 1, 9,16) = (/&
3230			& 3.4732E-01_JPRB,3.0397E-01_JPRB,2.6061E-01_JPRB,2.1726E-01_JPRB,1.7390E-01_JPRB,1.3271E-01_JPRB,&
3231	✓✓	10	& 1.4035E-01_JPRB,1.6109E-01_JPRB,1.8937E-01_JPRB/)
3232			KAO( :, 2, 9,16) = (/&
3233			& 3.3981E-01_JPRB,2.9740E-01_JPRB,2.5499E-01_JPRB,2.1257E-01_JPRB,1.7017E-01_JPRB,1.5746E-01_JPRB,&
3234	✓✓	10	& 1.8783E-01_JPRB,2.1574E-01_JPRB,2.5330E-01_JPRB/)
3235			KAO( :, 3, 9,16) = (/&
3236			& 3.3164E-01_JPRB,2.9026E-01_JPRB,2.4888E-01_JPRB,2.0750E-01_JPRB,1.7718E-01_JPRB,2.0179E-01_JPRB,&
3237	✓✓	10	& 2.4086E-01_JPRB,2.7675E-01_JPRB,3.2472E-01_JPRB/)
3238			KAO( :, 4, 9,16) = (/&
3239			& 3.2434E-01_JPRB,2.8387E-01_JPRB,2.4340E-01_JPRB,2.0299E-01_JPRB,2.0166E-01_JPRB,2.4979E-01_JPRB,&
3240	✓✓	10	& 2.9816E-01_JPRB,3.4279E-01_JPRB,4.0187E-01_JPRB/)
3241			KAO( :, 5, 9,16) = (/&
3242			& 3.1856E-01_JPRB,2.7881E-01_JPRB,2.3907E-01_JPRB,2.0909E-01_JPRB,2.4079E-01_JPRB,3.0025E-01_JPRB,&
3243	✓✓	10	& 3.5852E-01_JPRB,4.1238E-01_JPRB,4.8294E-01_JPRB/)
3244			KAO( :, 1,10,16) = (/&
3245			& 4.1296E-01_JPRB,3.6138E-01_JPRB,3.0981E-01_JPRB,2.5823E-01_JPRB,2.0667E-01_JPRB,1.5510E-01_JPRB,&
3246	✓✓	10	& 1.4272E-01_JPRB,1.6382E-01_JPRB,1.9375E-01_JPRB/)
3247			KAO( :, 2,10,16) = (/&
3248			& 4.0355E-01_JPRB,3.5316E-01_JPRB,3.0277E-01_JPRB,2.5237E-01_JPRB,2.0198E-01_JPRB,1.6688E-01_JPRB,&
3249	✓✓	10	& 1.9258E-01_JPRB,2.2130E-01_JPRB,2.5965E-01_JPRB/)
3250			KAO( :, 3,10,16) = (/&
3251			& 3.9334E-01_JPRB,3.4423E-01_JPRB,2.9512E-01_JPRB,2.4601E-01_JPRB,2.0198E-01_JPRB,2.0922E-01_JPRB,&
3252	✓✓	10	& 2.4978E-01_JPRB,2.8734E-01_JPRB,3.3649E-01_JPRB/)
3253			KAO( :, 4,10,16) = (/&
3254			& 3.8468E-01_JPRB,3.3665E-01_JPRB,2.8862E-01_JPRB,2.4064E-01_JPRB,2.1892E-01_JPRB,2.6187E-01_JPRB,&
3255	✓✓	10	& 3.1276E-01_JPRB,3.6003E-01_JPRB,4.2127E-01_JPRB/)
3256			KAO( :, 5,10,16) = (/&
3257			& 3.7732E-01_JPRB,3.3021E-01_JPRB,2.8310E-01_JPRB,2.4052E-01_JPRB,2.5525E-01_JPRB,3.1772E-01_JPRB,&
3258	✓✓	10	& 3.7953E-01_JPRB,4.3694E-01_JPRB,5.1089E-01_JPRB/)
3259			KAO( :, 1,11,16) = (/&
3260			& 4.8302E-01_JPRB,4.2268E-01_JPRB,3.6234E-01_JPRB,3.0200E-01_JPRB,2.4165E-01_JPRB,1.8151E-01_JPRB,&
3261	✓✓	10	& 1.6877E-01_JPRB,1.9388E-01_JPRB,3.3421E-01_JPRB/)
3262			KAO( :, 2,11,16) = (/&
3263			& 4.7050E-01_JPRB,4.1173E-01_JPRB,3.5296E-01_JPRB,2.9420E-01_JPRB,2.3543E-01_JPRB,1.9660E-01_JPRB,&
3264	✓✓	10	& 2.2543E-01_JPRB,2.5921E-01_JPRB,3.3179E-01_JPRB/)
3265			KAO( :, 3,11,16) = (/&
3266			& 4.5896E-01_JPRB,4.0163E-01_JPRB,3.4431E-01_JPRB,2.8698E-01_JPRB,2.3627E-01_JPRB,2.4234E-01_JPRB,&
3267	✓✓	10	& 2.8945E-01_JPRB,3.3305E-01_JPRB,3.8992E-01_JPRB/)
3268			KAO( :, 4,11,16) = (/&
3269			& 4.4916E-01_JPRB,3.9306E-01_JPRB,3.3696E-01_JPRB,2.8088E-01_JPRB,2.5515E-01_JPRB,3.0073E-01_JPRB,&
3270	✓✓	10	& 3.5922E-01_JPRB,4.1373E-01_JPRB,4.8361E-01_JPRB/)
3271			KAO( :, 5,11,16) = (/&
3272			& 4.3990E-01_JPRB,3.8496E-01_JPRB,3.3001E-01_JPRB,2.8070E-01_JPRB,2.9324E-01_JPRB,3.6251E-01_JPRB,&
3273	✓✓	10	& 4.3320E-01_JPRB,4.9939E-01_JPRB,5.8288E-01_JPRB/)
3274			KAO( :, 1,12,16) = (/&
3275			& 5.5949E-01_JPRB,4.8959E-01_JPRB,4.1968E-01_JPRB,3.4978E-01_JPRB,2.7990E-01_JPRB,2.1117E-01_JPRB,&
3276	✓✓	10	& 1.9846E-01_JPRB,2.2823E-01_JPRB,4.6485E-01_JPRB/)
3277			KAO( :, 2,12,16) = (/&
3278			& 5.4466E-01_JPRB,4.7661E-01_JPRB,4.0856E-01_JPRB,3.4053E-01_JPRB,2.7248E-01_JPRB,2.3023E-01_JPRB,&
3279	✓✓	10	& 2.6289E-01_JPRB,3.0262E-01_JPRB,4.5843E-01_JPRB/)
3280			KAO( :, 3,12,16) = (/&
3281			& 5.3198E-01_JPRB,4.6551E-01_JPRB,3.9905E-01_JPRB,3.3259E-01_JPRB,2.7378E-01_JPRB,2.8016E-01_JPRB,&
3282	✓✓	10	& 3.3471E-01_JPRB,3.8547E-01_JPRB,4.7894E-01_JPRB/)
3283			KAO( :, 4,12,16) = (/&
3284			& 5.2001E-01_JPRB,4.5505E-01_JPRB,3.9008E-01_JPRB,3.2510E-01_JPRB,2.9551E-01_JPRB,3.4473E-01_JPRB,&
3285	✓✓	10	& 4.1193E-01_JPRB,4.7482E-01_JPRB,5.5483E-01_JPRB/)
3286			KAO( :, 5,12,16) = (/&
3287			& 5.0915E-01_JPRB,4.4554E-01_JPRB,3.8193E-01_JPRB,3.2460E-01_JPRB,3.3469E-01_JPRB,4.1244E-01_JPRB,&
3288	✓✓	10	& 4.9294E-01_JPRB,5.6854E-01_JPRB,6.6308E-01_JPRB/)
3289			KAO( :, 1,13,16) = (/&
3290			& 6.4209E-01_JPRB,5.6185E-01_JPRB,4.8161E-01_JPRB,4.0138E-01_JPRB,3.2111E-01_JPRB,2.4405E-01_JPRB,&
3291	✓✓	10	& 2.3126E-01_JPRB,2.6629E-01_JPRB,5.1031E-01_JPRB/)
3292			KAO( :, 2,13,16) = (/&
3293			& 6.2605E-01_JPRB,5.4782E-01_JPRB,4.6959E-01_JPRB,3.9135E-01_JPRB,3.1312E-01_JPRB,2.6752E-01_JPRB,&
3294	✓✓	10	& 3.0417E-01_JPRB,3.5056E-01_JPRB,5.0701E-01_JPRB/)
3295			KAO( :, 3,13,16) = (/&
3296			& 6.1094E-01_JPRB,5.3460E-01_JPRB,4.5826E-01_JPRB,3.8192E-01_JPRB,3.1501E-01_JPRB,3.2162E-01_JPRB,&
3297	✓✓	10	& 3.8441E-01_JPRB,4.4331E-01_JPRB,5.4185E-01_JPRB/)
3298			KAO( :, 4,13,16) = (/&
3299			& 5.9718E-01_JPRB,5.2256E-01_JPRB,4.4794E-01_JPRB,3.7327E-01_JPRB,3.3928E-01_JPRB,3.9296E-01_JPRB,&
3300	✓✓	10	& 4.6976E-01_JPRB,5.4198E-01_JPRB,6.3180E-01_JPRB/)
3301			KAO( :, 5,13,16) = (/&
3302			& 5.8381E-01_JPRB,5.1086E-01_JPRB,4.3791E-01_JPRB,3.7153E-01_JPRB,3.7939E-01_JPRB,4.6700E-01_JPRB,&
3303	✓✓	10	& 5.5841E-01_JPRB,6.4458E-01_JPRB,7.5053E-01_JPRB/)
3304
3305			! The array SELFREFO contains the coefficient of the water vapor
3306			! self-continuum (including the energy term). The first index
3307			! refers to temperature in 7.2 degree increments. For instance,
3308			! JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8,
3309			! etc. The second index runs over the g-channel (1 to 16).
3310
3311			SELFREFO( :, 1) = (/&
3312			& 1.26476E-03_JPRB, 1.04962E-03_JPRB, 8.71080E-04_JPRB, 7.22907E-04_JPRB, 5.99939E-04_JPRB,&
3313	✓✓	11	& 4.97888E-04_JPRB, 4.13197E-04_JPRB, 3.42911E-04_JPRB, 2.84581E-04_JPRB, 2.36173E-04_JPRB/)
3314			SELFREFO( :, 2) = (/&
3315			& 1.27380E-03_JPRB, 1.05867E-03_JPRB, 8.79870E-04_JPRB, 7.31270E-04_JPRB, 6.07767E-04_JPRB,&
3316	✓✓	11	& 5.05121E-04_JPRB, 4.19812E-04_JPRB, 3.48911E-04_JPRB, 2.89983E-04_JPRB, 2.41008E-04_JPRB/)
3317			SELFREFO( :, 3) = (/&
3318			& 1.26332E-03_JPRB, 1.05867E-03_JPRB, 8.87172E-04_JPRB, 7.43454E-04_JPRB, 6.23018E-04_JPRB,&
3319	✓✓	11	& 5.22092E-04_JPRB, 4.37515E-04_JPRB, 3.66640E-04_JPRB, 3.07246E-04_JPRB, 2.57474E-04_JPRB/)
3320			SELFREFO( :, 4) = (/&
3321			& 1.28078E-03_JPRB, 1.07802E-03_JPRB, 9.07363E-04_JPRB, 7.63722E-04_JPRB, 6.42820E-04_JPRB,&
3322	✓✓	11	& 5.41057E-04_JPRB, 4.55404E-04_JPRB, 3.83311E-04_JPRB, 3.22630E-04_JPRB, 2.71556E-04_JPRB/)
3323			SELFREFO( :, 5) = (/&
3324			& 1.61188E-03_JPRB, 1.32375E-03_JPRB, 1.08712E-03_JPRB, 8.92794E-04_JPRB, 7.33203E-04_JPRB,&
3325	✓✓	11	& 6.02140E-04_JPRB, 4.94505E-04_JPRB, 4.06110E-04_JPRB, 3.33516E-04_JPRB, 2.73898E-04_JPRB/)
3326			SELFREFO( :, 6) = (/&
3327			& 1.42549E-03_JPRB, 1.25964E-03_JPRB, 1.11309E-03_JPRB, 9.83595E-04_JPRB, 8.69162E-04_JPRB,&
3328	✓✓	11	& 7.68043E-04_JPRB, 6.78688E-04_JPRB, 5.99728E-04_JPRB, 5.29955E-04_JPRB, 4.68299E-04_JPRB/)
3329			SELFREFO( :, 7) = (/&
3330			& 1.43253E-03_JPRB, 1.28535E-03_JPRB, 1.15330E-03_JPRB, 1.03480E-03_JPRB, 9.28488E-04_JPRB,&
3331	✓✓	11	& 8.33094E-04_JPRB, 7.47501E-04_JPRB, 6.70702E-04_JPRB, 6.01794E-04_JPRB, 5.39965E-04_JPRB/)
3332			SELFREFO( :, 8) = (/&
3333			& 1.48973E-03_JPRB, 1.33348E-03_JPRB, 1.19363E-03_JPRB, 1.06844E-03_JPRB, 9.56378E-04_JPRB,&
3334	✓✓	11	& 8.56072E-04_JPRB, 7.66286E-04_JPRB, 6.85918E-04_JPRB, 6.13978E-04_JPRB, 5.49583E-04_JPRB/)
3335			SELFREFO( :, 9) = (/&
3336			& 1.53002E-03_JPRB, 1.44607E-03_JPRB, 1.36674E-03_JPRB, 1.29175E-03_JPRB, 1.22088E-03_JPRB,&
3337	✓✓	11	& 1.15390E-03_JPRB, 1.09059E-03_JPRB, 1.03076E-03_JPRB, 9.74209E-04_JPRB, 9.20760E-04_JPRB/)
3338			SELFREFO( :,10) = (/&
3339			& 1.78480E-03_JPRB, 1.68865E-03_JPRB, 1.59768E-03_JPRB, 1.51161E-03_JPRB, 1.43018E-03_JPRB,&
3340	✓✓	11	& 1.35313E-03_JPRB, 1.28023E-03_JPRB, 1.21126E-03_JPRB, 1.14601E-03_JPRB, 1.08427E-03_JPRB/)
3341			SELFREFO( :,11) = (/&
3342			& 1.85121E-03_JPRB, 1.73903E-03_JPRB, 1.63364E-03_JPRB, 1.53464E-03_JPRB, 1.44164E-03_JPRB,&
3343	✓✓	11	& 1.35427E-03_JPRB, 1.27220E-03_JPRB, 1.19510E-03_JPRB, 1.12268E-03_JPRB, 1.05464E-03_JPRB/)
3344			SELFREFO( :,12) = (/&
3345			& 2.10772E-03_JPRB, 1.96994E-03_JPRB, 1.84118E-03_JPRB, 1.72082E-03_JPRB, 1.60834E-03_JPRB,&
3346	✓✓	11	& 1.50321E-03_JPRB, 1.40495E-03_JPRB, 1.31311E-03_JPRB, 1.22728E-03_JPRB, 1.14705E-03_JPRB/)
3347			SELFREFO( :,13) = (/&
3348			& 1.99323E-03_JPRB, 1.89279E-03_JPRB, 1.79741E-03_JPRB, 1.70684E-03_JPRB, 1.62083E-03_JPRB,&
3349	✓✓	11	& 1.53915E-03_JPRB, 1.46159E-03_JPRB, 1.38794E-03_JPRB, 1.31800E-03_JPRB, 1.25159E-03_JPRB/)
3350			SELFREFO( :,14) = (/&
3351			& 2.05835E-03_JPRB, 1.93301E-03_JPRB, 1.81529E-03_JPRB, 1.70475E-03_JPRB, 1.60093E-03_JPRB,&
3352	✓✓	11	& 1.50344E-03_JPRB, 1.41189E-03_JPRB, 1.32591E-03_JPRB, 1.24516E-03_JPRB, 1.16934E-03_JPRB/)
3353
3354	✓✗	1	IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART11',1,ZHOOK_HANDLE)
3355		1	END SUBROUTINE PART11
3356
3357
3358		1	SUBROUTINE PART12
3359
3360			REAL(KIND=JPRB) :: ZHOOK_HANDLE
3361	✓✗	1	IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART12',0,ZHOOK_HANDLE)
3362
3363
3364			SELFREFO( :,15) = (/&
3365			& 2.34120E-03_JPRB, 2.20012E-03_JPRB, 2.06754E-03_JPRB, 1.94295E-03_JPRB, 1.82587E-03_JPRB,&
3366	✓✓	11	& 1.71585E-03_JPRB, 1.61245E-03_JPRB, 1.51529E-03_JPRB, 1.42398E-03_JPRB, 1.33817E-03_JPRB/)
3367			SELFREFO( :,16) = (/&
3368			& 3.03559E-03_JPRB, 2.80023E-03_JPRB, 2.58312E-03_JPRB, 2.38284E-03_JPRB, 2.19809E-03_JPRB,&
3369	✓✓	11	& 2.02767E-03_JPRB, 1.87045E-03_JPRB, 1.72543E-03_JPRB, 1.59165E-03_JPRB, 1.46825E-03_JPRB/)
3370
3371			FRACREFAO( :, 1) = (/&
3372			! From P = 862.6 mb.
3373			& 0.17356300_JPRB,0.18880001_JPRB,0.17704099_JPRB,0.13661300_JPRB,&
3374			& 0.10691600_JPRB,0.08222480_JPRB,0.05939860_JPRB,0.04230810_JPRB,&
3375			& 0.02526330_JPRB,0.00244532_JPRB,0.00193541_JPRB,0.00150415_JPRB,&
3376	✓✓	17	& 0.00103528_JPRB,0.00067068_JPRB,0.00024951_JPRB,0.00003348_JPRB/)
3377			FRACREFAO( :, 2) = (/&
3378			& 0.17779499_JPRB,0.19837400_JPRB,0.16557600_JPRB,0.13470000_JPRB,&
3379			& 0.11013600_JPRB,0.08342720_JPRB,0.05987030_JPRB,0.03938700_JPRB,&
3380			& 0.02293650_JPRB,0.00238849_JPRB,0.00192400_JPRB,0.00149921_JPRB,&
3381	✓✓	17	& 0.00103539_JPRB,0.00067150_JPRB,0.00024822_JPRB,0.00003348_JPRB/)
3382			FRACREFAO( :, 3) = (/&
3383			& 0.18535601_JPRB,0.19407199_JPRB,0.16053200_JPRB,0.13300700_JPRB,&
3384			& 0.10779000_JPRB,0.08408500_JPRB,0.06480450_JPRB,0.04070160_JPRB,&
3385			& 0.02203590_JPRB,0.00227779_JPRB,0.00189074_JPRB,0.00146888_JPRB,&
3386	✓✓	17	& 0.00103147_JPRB,0.00066770_JPRB,0.00024751_JPRB,0.00003348_JPRB/)
3387			FRACREFAO( :, 4) = (/&
3388			& 0.19139200_JPRB,0.18917400_JPRB,0.15748601_JPRB,0.13240699_JPRB,&
3389			& 0.10557300_JPRB,0.08383260_JPRB,0.06724060_JPRB,0.04364450_JPRB,&
3390			& 0.02175820_JPRB,0.00225436_JPRB,0.00184421_JPRB,0.00143153_JPRB,&
3391	✓✓	17	& 0.00103027_JPRB,0.00066066_JPRB,0.00024222_JPRB,0.00003148_JPRB/)
3392			FRACREFAO( :, 5) = (/&
3393			& 0.19547801_JPRB,0.18539500_JPRB,0.15442000_JPRB,0.13114899_JPRB,&
3394			& 0.10515600_JPRB,0.08350350_JPRB,0.06909780_JPRB,0.04671630_JPRB,&
3395			& 0.02168820_JPRB,0.00224400_JPRB,0.00182009_JPRB,0.00139098_JPRB,&
3396	✓✓	17	& 0.00102582_JPRB,0.00065367_JPRB,0.00023202_JPRB,0.00003148_JPRB/)
3397			FRACREFAO( :, 6) = (/&
3398			& 0.19757500_JPRB,0.18266800_JPRB,0.15208900_JPRB,0.12897800_JPRB,&
3399			& 0.10637200_JPRB,0.08391220_JPRB,0.06989830_JPRB,0.04964120_JPRB,&
3400			& 0.02155800_JPRB,0.00224310_JPRB,0.00177358_JPRB,0.00138184_JPRB,&
3401	✓✓	17	& 0.00101538_JPRB,0.00063370_JPRB,0.00023227_JPRB,0.00003148_JPRB/)
3402			FRACREFAO( :, 7) = (/&
3403			& 0.20145500_JPRB,0.17692900_JPRB,0.14940600_JPRB,0.12690400_JPRB,&
3404			& 0.10828800_JPRB,0.08553720_JPRB,0.07004940_JPRB,0.05153430_JPRB,&
3405			& 0.02268740_JPRB,0.00216943_JPRB,0.00178603_JPRB,0.00137754_JPRB,&
3406	✓✓	17	& 0.00098344_JPRB,0.00063165_JPRB,0.00023218_JPRB,0.00003148_JPRB/)
3407			FRACREFAO( :, 8) = (/&
3408			& 0.20383500_JPRB,0.17047501_JPRB,0.14570600_JPRB,0.12679300_JPRB,&
3409			& 0.11043100_JPRB,0.08719150_JPRB,0.07045440_JPRB,0.05345420_JPRB,&
3410			& 0.02448340_JPRB,0.00215839_JPRB,0.00175893_JPRB,0.00138296_JPRB,&
3411	✓✓	17	& 0.00098318_JPRB,0.00063188_JPRB,0.00023199_JPRB,0.00003148_JPRB/)
3412			FRACREFAO( :, 9) = (/&
3413			& 0.18680701_JPRB,0.15961801_JPRB,0.15092900_JPRB,0.13049100_JPRB,&
3414			& 0.11418400_JPRB,0.09380540_JPRB,0.07093450_JPRB,0.05664280_JPRB,&
3415			& 0.02938410_JPRB,0.00217751_JPRB,0.00176766_JPRB,0.00138275_JPRB,&
3416	✓✓	17	& 0.00098377_JPRB,0.00063181_JPRB,0.00023193_JPRB,0.00003148_JPRB/)
3417
3418	✓✗	1	IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART12',1,ZHOOK_HANDLE)
3419		1	END SUBROUTINE PART12
3420
3421
3422			END SUBROUTINE RRTM_KGB16


Generated by: GCOVR (Version 4.2)