GCC Code Coverage Report
Directory: ./ Exec Total Coverage
File: phylmd/rrtm/rrtm_kgb5.F90 Lines: 5026 5026 100.0 %
Date: 2023-06-30 12:56:34 Branches: 9738 9816 99.2 %

Line Branch Exec Source
1
#ifdef VPP
2
!OCL SCALAR
3
#endif
4
#ifdef RS6K
5
@PROCESS NOOPTIMIZE
6
#endif
7
!pgi$r opt=0
8
1
SUBROUTINE RRTM_KGB5
9
10
!     Originally by Eli J. Mlawer, Atmospheric & Environmental Research.
11
!     BAND 5:  700-820 cm-1 (low - H2O,CO2; high - O3,CO2)
12
!     Reformatted for F90 by JJMorcrette, ECMWF
13
!     R. Elkhatib 12-10-2005 Split for faster and more robust compilation
14
15
!     ------------------------------------------------------------------
16
17
USE PARKIND1  ,ONLY : JPRB
18
USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
19
20
USE YOERRTO5 , ONLY : KAO     ,KBO     ,SELFREFO   ,FRACREFAO  ,&
21
 & FRACREFBO, CCL4O
22
USE YOERRTA5 , ONLY : STRRAT1   ,STRRAT2
23
24
!     ------------------------------------------------------------------
25
26
IMPLICIT NONE
27
REAL(KIND=JPRB) :: ZHOOK_HANDLE
28
29
1
IF (LHOOK) CALL DR_HOOK('RRTM_KGB5',0,ZHOOK_HANDLE)
30
31
1
CALL PART1
32
1
CALL PART2
33
1
CALL PART3
34
1
CALL PART4
35
1
CALL PART5
36
1
CALL PART6
37
1
CALL PART7
38
1
CALL PART8
39
1
CALL PART9
40
1
CALL PART10
41
1
CALL PART11
42
1
CALL PART12
43
1
CALL PART13
44
1
CALL PART14
45
1
CALL PART15
46
1
CALL PART16
47
1
CALL PART17
48
1
CALL PART18
49
1
CALL PART19
50
1
CALL PART20
51
1
CALL PART21
52
1
CALL PART22
53
1
CALL PART23
54
1
CALL PART24
55
1
CALL PART25
56
1
CALL PART26
57
1
CALL PART27
58
1
CALL PART28
59
1
CALL PART29
60
1
CALL PART30
61
1
CALL PART31
62
1
CALL PART32
63
1
CALL PART33
64
1
CALL PART34
65
1
CALL PART35
66
1
CALL PART36
67
1
CALL PART37
68
1
CALL PART38
69
70
1
IF (LHOOK) CALL DR_HOOK('RRTM_KGB5',1,ZHOOK_HANDLE)
71
72
!     -----------------------------------------------------------------
73
74
CONTAINS
75
76
77
1
SUBROUTINE PART1
78
79
REAL(KIND=JPRB) :: ZHOOK_HANDLE
80
1
IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART1',0,ZHOOK_HANDLE)
81
82
83
CCL4O( :) = (/&
84
 & 26.1407_JPRB,  53.9776_JPRB,  63.8085_JPRB,  36.1701_JPRB,&
85
 & 15.4099_JPRB, 10.23116_JPRB,  4.82948_JPRB,  5.03836_JPRB,&
86
 & 1.75558_JPRB,  0.0_JPRB     ,  0.0_JPRB     ,  0.0_JPRB     ,&
87
1
 & 0.0_JPRB     ,  0.0_JPRB     ,  0.0_JPRB     ,  0.0_JPRB      /)
88
89
1
STRRAT1 = 90.4894_JPRB
90
1
STRRAT2 = 0.900502_JPRB
91
92
!     ------------------------------------------------------------------
93
94
!     The array KAO contains absorption coefs for each of the 16 g-intervals
95
!     for a range of pressure levels > ~100mb, temperatures, and ratios
96
!     of water vapor to CO2.  The first index in the array, JS, runs
97
!     from 1 to 9 and corresponds to different water vapor to CO2 ratios,
98
!     as expressed through the binary species parameter eta, defined as
99
!     eta = h2o/(h20 + (rat) * co2), where rat is the ratio of the integrated
100
!     line strength in the band of co2 to that of h2o.  For instance,
101
!     JS=1 refers to dry air (eta = 0), JS = 9 corresponds to eta = 1.0.
102
!     The 2nd index in the array, JT, which runs from 1 to 5, corresponds
103
!     to different temperatures.  More specifically, JT = 3 means that the
104
!     data are for the reference temperature TREF for this  pressure
105
!     level, JT = 2 refers to the temperature TREF-15,
106
!     JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5
107
!     is for TREF+30.  The third index, JP, runs from 1 to 13 and refers
108
!     to the reference pressure level (e.g. JP = 1 is for a
109
!     pressure of 1053.63 mb).  The fourth index, IG, goes from 1 to 16,
110
!     and tells us which g-interval the absorption coefficients are for.
111
112
KAO( :, 1, 1, 1) = (/&
113
 & 1.2281E-06_JPRB,7.3444E-06_JPRB,1.3802E-05_JPRB,2.1363E-05_JPRB,3.4026E-05_JPRB,5.1149E-05_JPRB,&
114
10
 & 7.6454E-05_JPRB,1.1492E-04_JPRB,5.1051E-05_JPRB/)
115
KAO( :, 2, 1, 1) = (/&
116
 & 1.6369E-06_JPRB,8.9617E-06_JPRB,1.6072E-05_JPRB,2.4135E-05_JPRB,3.4106E-05_JPRB,4.9214E-05_JPRB,&
117
10
 & 7.9048E-05_JPRB,1.3905E-04_JPRB,5.4063E-05_JPRB/)
118
KAO( :, 3, 1, 1) = (/&
119
 & 2.1611E-06_JPRB,1.1094E-05_JPRB,1.8726E-05_JPRB,2.7825E-05_JPRB,3.8281E-05_JPRB,5.1592E-05_JPRB,&
120
10
 & 7.6813E-05_JPRB,1.3616E-04_JPRB,6.0994E-05_JPRB/)
121
KAO( :, 4, 1, 1) = (/&
122
 & 2.8032E-06_JPRB,1.3911E-05_JPRB,2.1873E-05_JPRB,3.1872E-05_JPRB,4.3669E-05_JPRB,5.8650E-05_JPRB,&
123
10
 & 8.1107E-05_JPRB,1.3247E-04_JPRB,6.8413E-05_JPRB/)
124
KAO( :, 5, 1, 1) = (/&
125
 & 3.5749E-06_JPRB,1.7399E-05_JPRB,2.6270E-05_JPRB,3.5363E-05_JPRB,4.8470E-05_JPRB,6.5479E-05_JPRB,&
126
10
 & 9.0735E-05_JPRB,1.4099E-04_JPRB,5.7731E-05_JPRB/)
127
KAO( :, 1, 2, 1) = (/&
128
 & 9.2208E-07_JPRB,5.6661E-06_JPRB,1.0853E-05_JPRB,1.7695E-05_JPRB,2.8111E-05_JPRB,4.1811E-05_JPRB,&
129
10
 & 5.7766E-05_JPRB,8.8171E-05_JPRB,3.6499E-05_JPRB/)
130
KAO( :, 2, 2, 1) = (/&
131
 & 1.2339E-06_JPRB,6.8718E-06_JPRB,1.2450E-05_JPRB,1.9038E-05_JPRB,2.7428E-05_JPRB,4.2214E-05_JPRB,&
132
10
 & 6.5891E-05_JPRB,1.0808E-04_JPRB,3.9328E-05_JPRB/)
133
KAO( :, 3, 2, 1) = (/&
134
 & 1.6382E-06_JPRB,8.4733E-06_JPRB,1.4470E-05_JPRB,2.1567E-05_JPRB,3.0172E-05_JPRB,4.1842E-05_JPRB,&
135
10
 & 6.2761E-05_JPRB,1.1359E-04_JPRB,4.4926E-05_JPRB/)
136
KAO( :, 4, 2, 1) = (/&
137
 & 2.1437E-06_JPRB,1.0582E-05_JPRB,1.7090E-05_JPRB,2.4961E-05_JPRB,3.4319E-05_JPRB,4.6334E-05_JPRB,&
138
10
 & 6.4942E-05_JPRB,1.0880E-04_JPRB,4.8706E-05_JPRB/)
139
KAO( :, 5, 2, 1) = (/&
140
 & 2.7550E-06_JPRB,1.3307E-05_JPRB,2.0303E-05_JPRB,2.7768E-05_JPRB,3.8649E-05_JPRB,5.3069E-05_JPRB,&
141
10
 & 7.1656E-05_JPRB,1.1174E-04_JPRB,4.2264E-05_JPRB/)
142
KAO( :, 1, 3, 1) = (/&
143
 & 6.5681E-07_JPRB,4.2928E-06_JPRB,8.6206E-06_JPRB,1.4813E-05_JPRB,2.2795E-05_JPRB,3.0956E-05_JPRB,&
144
10
 & 4.2159E-05_JPRB,6.7143E-05_JPRB,2.4558E-05_JPRB/)
145
KAO( :, 2, 3, 1) = (/&
146
 & 8.8032E-07_JPRB,5.0858E-06_JPRB,9.4979E-06_JPRB,1.4908E-05_JPRB,2.3302E-05_JPRB,3.4761E-05_JPRB,&
147
10
 & 5.2810E-05_JPRB,7.8083E-05_JPRB,2.7352E-05_JPRB/)
148
KAO( :, 3, 3, 1) = (/&
149
 & 1.1757E-06_JPRB,6.2479E-06_JPRB,1.1007E-05_JPRB,1.6613E-05_JPRB,2.3543E-05_JPRB,3.3879E-05_JPRB,&
150
10
 & 5.3064E-05_JPRB,9.3905E-05_JPRB,3.1433E-05_JPRB/)
151
KAO( :, 4, 3, 1) = (/&
152
 & 1.5541E-06_JPRB,7.7549E-06_JPRB,1.2987E-05_JPRB,1.9178E-05_JPRB,2.6197E-05_JPRB,3.5750E-05_JPRB,&
153
10
 & 5.1915E-05_JPRB,9.2229E-05_JPRB,2.9423E-05_JPRB/)
154
KAO( :, 5, 3, 1) = (/&
155
 & 2.0193E-06_JPRB,9.7639E-06_JPRB,1.5167E-05_JPRB,2.2031E-05_JPRB,3.0010E-05_JPRB,4.0258E-05_JPRB,&
156
10
 & 5.5267E-05_JPRB,9.0112E-05_JPRB,2.9943E-05_JPRB/)
157
KAO( :, 1, 4, 1) = (/&
158
 & 4.6419E-07_JPRB,3.2238E-06_JPRB,7.0968E-06_JPRB,1.2172E-05_JPRB,1.6732E-05_JPRB,2.2369E-05_JPRB,&
159
10
 & 3.1463E-05_JPRB,5.3229E-05_JPRB,1.7381E-05_JPRB/)
160
KAO( :, 2, 4, 1) = (/&
161
 & 6.2245E-07_JPRB,3.7726E-06_JPRB,7.2766E-06_JPRB,1.2504E-05_JPRB,1.9255E-05_JPRB,2.8079E-05_JPRB,&
162
10
 & 3.7485E-05_JPRB,5.7403E-05_JPRB,1.9667E-05_JPRB/)
163
KAO( :, 3, 4, 1) = (/&
164
 & 8.3351E-07_JPRB,4.5653E-06_JPRB,8.3036E-06_JPRB,1.2777E-05_JPRB,1.8816E-05_JPRB,2.9030E-05_JPRB,&
165
10
 & 4.4417E-05_JPRB,7.0863E-05_JPRB,2.1895E-05_JPRB/)
166
KAO( :, 4, 4, 1) = (/&
167
 & 1.1087E-06_JPRB,5.6384E-06_JPRB,9.6405E-06_JPRB,1.4565E-05_JPRB,2.0321E-05_JPRB,2.8264E-05_JPRB,&
168
10
 & 4.3444E-05_JPRB,7.7444E-05_JPRB,2.1414E-05_JPRB/)
169
KAO( :, 5, 4, 1) = (/&
170
 & 1.4581E-06_JPRB,7.0726E-06_JPRB,1.1402E-05_JPRB,1.6579E-05_JPRB,2.3011E-05_JPRB,3.1009E-05_JPRB,&
171
10
 & 4.3245E-05_JPRB,7.3708E-05_JPRB,2.2863E-05_JPRB/)
172
KAO( :, 1, 5, 1) = (/&
173
 & 3.3427E-07_JPRB,2.5337E-06_JPRB,5.7680E-06_JPRB,8.9425E-06_JPRB,1.2242E-05_JPRB,1.6995E-05_JPRB,&
174
10
 & 2.4164E-05_JPRB,4.4230E-05_JPRB,1.3422E-05_JPRB/)
175
KAO( :, 2, 5, 1) = (/&
176
 & 4.4601E-07_JPRB,2.8401E-06_JPRB,5.8531E-06_JPRB,1.0220E-05_JPRB,1.5419E-05_JPRB,2.0153E-05_JPRB,&
177
10
 & 2.7336E-05_JPRB,4.3727E-05_JPRB,1.5115E-05_JPRB/)
178
KAO( :, 3, 5, 1) = (/&
179
 & 5.9812E-07_JPRB,3.3532E-06_JPRB,6.3191E-06_JPRB,1.0031E-05_JPRB,1.5953E-05_JPRB,2.3950E-05_JPRB,&
180
10
 & 3.4195E-05_JPRB,5.0601E-05_JPRB,1.6591E-05_JPRB/)
181
KAO( :, 4, 5, 1) = (/&
182
 & 7.9837E-07_JPRB,4.1280E-06_JPRB,7.3147E-06_JPRB,1.1079E-05_JPRB,1.5854E-05_JPRB,2.3810E-05_JPRB,&
183
10
 & 3.6514E-05_JPRB,6.2591E-05_JPRB,1.7658E-05_JPRB/)
184
KAO( :, 5, 5, 1) = (/&
185
 & 1.0575E-06_JPRB,5.1440E-06_JPRB,8.5910E-06_JPRB,1.2709E-05_JPRB,1.7592E-05_JPRB,2.4262E-05_JPRB,&
186
10
 & 3.5276E-05_JPRB,6.2368E-05_JPRB,1.9388E-05_JPRB/)
187
KAO( :, 1, 6, 1) = (/&
188
 & 2.4467E-07_JPRB,2.0115E-06_JPRB,4.4506E-06_JPRB,6.5328E-06_JPRB,9.2134E-06_JPRB,1.2867E-05_JPRB,&
189
10
 & 1.9266E-05_JPRB,3.4226E-05_JPRB,1.1020E-05_JPRB/)
190
KAO( :, 2, 6, 1) = (/&
191
 & 3.2244E-07_JPRB,2.1802E-06_JPRB,4.7859E-06_JPRB,8.3031E-06_JPRB,1.1024E-05_JPRB,1.4816E-05_JPRB,&
192
10
 & 2.0767E-05_JPRB,3.3867E-05_JPRB,1.2361E-05_JPRB/)
193
KAO( :, 3, 6, 1) = (/&
194
 & 4.3252E-07_JPRB,2.5034E-06_JPRB,4.8788E-06_JPRB,8.5188E-06_JPRB,1.3353E-05_JPRB,1.8353E-05_JPRB,&
195
10
 & 2.4440E-05_JPRB,3.7220E-05_JPRB,1.3756E-05_JPRB/)
196
KAO( :, 4, 6, 1) = (/&
197
 & 5.7866E-07_JPRB,3.0227E-06_JPRB,5.4901E-06_JPRB,8.5441E-06_JPRB,1.3294E-05_JPRB,1.9970E-05_JPRB,&
198
10
 & 3.0079E-05_JPRB,4.5487E-05_JPRB,1.5370E-05_JPRB/)
199
KAO( :, 5, 6, 1) = (/&
200
 & 7.6960E-07_JPRB,3.7504E-06_JPRB,6.3767E-06_JPRB,9.6311E-06_JPRB,1.3563E-05_JPRB,1.9464E-05_JPRB,&
201
10
 & 3.0023E-05_JPRB,5.3031E-05_JPRB,1.7349E-05_JPRB/)
202
KAO( :, 1, 7, 1) = (/&
203
 & 1.8363E-07_JPRB,1.6339E-06_JPRB,3.2365E-06_JPRB,4.8736E-06_JPRB,7.0565E-06_JPRB,1.0168E-05_JPRB,&
204
10
 & 1.5448E-05_JPRB,2.6119E-05_JPRB,9.9973E-06_JPRB/)
205
KAO( :, 2, 7, 1) = (/&
206
 & 2.3828E-07_JPRB,1.7045E-06_JPRB,3.9446E-06_JPRB,5.9885E-06_JPRB,8.1187E-06_JPRB,1.1164E-05_JPRB,&
207
10
 & 1.5910E-05_JPRB,2.7804E-05_JPRB,1.1252E-05_JPRB/)
208
KAO( :, 3, 7, 1) = (/&
209
 & 3.1712E-07_JPRB,1.8915E-06_JPRB,4.0133E-06_JPRB,6.9371E-06_JPRB,1.0184E-05_JPRB,1.3247E-05_JPRB,&
210
10
 & 1.8144E-05_JPRB,2.8687E-05_JPRB,1.2767E-05_JPRB/)
211
KAO( :, 4, 7, 1) = (/&
212
 & 4.2549E-07_JPRB,2.2415E-06_JPRB,4.2001E-06_JPRB,7.0066E-06_JPRB,1.0950E-05_JPRB,1.6323E-05_JPRB,&
213
10
 & 2.2218E-05_JPRB,3.2987E-05_JPRB,1.4591E-05_JPRB/)
214
KAO( :, 5, 7, 1) = (/&
215
 & 5.6782E-07_JPRB,2.7608E-06_JPRB,4.8541E-06_JPRB,7.3705E-06_JPRB,1.0748E-05_JPRB,1.6390E-05_JPRB,&
216
10
 & 2.5035E-05_JPRB,4.1583E-05_JPRB,1.6759E-05_JPRB/)
217
KAO( :, 1, 8, 1) = (/&
218
 & 1.4297E-07_JPRB,1.2986E-06_JPRB,2.4296E-06_JPRB,3.7740E-06_JPRB,5.5717E-06_JPRB,8.1007E-06_JPRB,&
219
10
 & 1.2269E-05_JPRB,2.0668E-05_JPRB,1.1224E-05_JPRB/)
220
KAO( :, 2, 8, 1) = (/&
221
 & 1.8237E-07_JPRB,1.3796E-06_JPRB,2.9841E-06_JPRB,4.4232E-06_JPRB,6.1625E-06_JPRB,8.6070E-06_JPRB,&
222
10
 & 1.2749E-05_JPRB,2.2374E-05_JPRB,1.3050E-05_JPRB/)
223
KAO( :, 3, 8, 1) = (/&
224
 & 2.3995E-07_JPRB,1.4828E-06_JPRB,3.2302E-06_JPRB,5.5721E-06_JPRB,7.4009E-06_JPRB,9.9584E-06_JPRB,&
225
10
 & 1.3793E-05_JPRB,2.2720E-05_JPRB,1.5037E-05_JPRB/)
226
KAO( :, 4, 8, 1) = (/&
227
 & 3.2109E-07_JPRB,1.7086E-06_JPRB,3.3052E-06_JPRB,5.7552E-06_JPRB,9.1163E-06_JPRB,1.2137E-05_JPRB,&
228
10
 & 1.6200E-05_JPRB,2.4932E-05_JPRB,1.7316E-05_JPRB/)
229
KAO( :, 5, 8, 1) = (/&
230
 & 4.2933E-07_JPRB,2.0665E-06_JPRB,3.6851E-06_JPRB,5.7093E-06_JPRB,9.1231E-06_JPRB,1.3616E-05_JPRB,&
231
10
 & 2.0240E-05_JPRB,2.9795E-05_JPRB,1.9811E-05_JPRB/)
232
KAO( :, 1, 9, 1) = (/&
233
 & 1.1391E-07_JPRB,9.6607E-07_JPRB,1.8596E-06_JPRB,2.9960E-06_JPRB,4.4278E-06_JPRB,6.4496E-06_JPRB,&
234
10
 & 9.3668E-06_JPRB,1.6296E-05_JPRB,2.3175E-05_JPRB/)
235
KAO( :, 2, 9, 1) = (/&
236
 & 1.4318E-07_JPRB,1.1432E-06_JPRB,2.1917E-06_JPRB,3.3465E-06_JPRB,4.7894E-06_JPRB,6.8583E-06_JPRB,&
237
10
 & 1.0124E-05_JPRB,1.7732E-05_JPRB,2.8424E-05_JPRB/)
238
KAO( :, 3, 9, 1) = (/&
239
 & 1.8594E-07_JPRB,1.1885E-06_JPRB,2.6962E-06_JPRB,4.0343E-06_JPRB,5.5351E-06_JPRB,7.5514E-06_JPRB,&
240
10
 & 1.0675E-05_JPRB,1.8150E-05_JPRB,3.4053E-05_JPRB/)
241
KAO( :, 4, 9, 1) = (/&
242
 & 2.4670E-07_JPRB,1.3380E-06_JPRB,2.7503E-06_JPRB,4.7549E-06_JPRB,6.8876E-06_JPRB,8.9087E-06_JPRB,&
243
10
 & 1.2295E-05_JPRB,1.9210E-05_JPRB,3.9839E-05_JPRB/)
244
KAO( :, 5, 9, 1) = (/&
245
 & 3.3010E-07_JPRB,1.5784E-06_JPRB,2.8513E-06_JPRB,4.8049E-06_JPRB,7.4827E-06_JPRB,1.1096E-05_JPRB,&
246
10
 & 1.4749E-05_JPRB,2.1955E-05_JPRB,4.5594E-05_JPRB/)
247
KAO( :, 1,10, 1) = (/&
248
 & 9.5530E-08_JPRB,7.6103E-07_JPRB,1.4822E-06_JPRB,2.4013E-06_JPRB,3.5241E-06_JPRB,5.0863E-06_JPRB,&
249
10
 & 7.7041E-06_JPRB,1.2423E-05_JPRB,8.9067E-05_JPRB/)
250
KAO( :, 2,10, 1) = (/&
251
 & 1.1882E-07_JPRB,9.2450E-07_JPRB,1.6979E-06_JPRB,2.6207E-06_JPRB,3.8503E-06_JPRB,5.4657E-06_JPRB,&
252
10
 & 7.9684E-06_JPRB,1.3651E-05_JPRB,1.1125E-04_JPRB/)
253
KAO( :, 3,10, 1) = (/&
254
 & 1.5289E-07_JPRB,9.7942E-07_JPRB,2.0846E-06_JPRB,3.0524E-06_JPRB,4.2640E-06_JPRB,5.9216E-06_JPRB,&
255
10
 & 8.6666E-06_JPRB,1.4411E-05_JPRB,1.3376E-04_JPRB/)
256
KAO( :, 4,10, 1) = (/&
257
 & 2.0094E-07_JPRB,1.0816E-06_JPRB,2.2331E-06_JPRB,3.8855E-06_JPRB,5.1239E-06_JPRB,6.8144E-06_JPRB,&
258
10
 & 9.5102E-06_JPRB,1.5396E-05_JPRB,1.5621E-04_JPRB/)
259
KAO( :, 5,10, 1) = (/&
260
 & 2.6711E-07_JPRB,1.2572E-06_JPRB,2.3283E-06_JPRB,3.9502E-06_JPRB,6.1703E-06_JPRB,8.4471E-06_JPRB,&
261
10
 & 1.1047E-05_JPRB,1.7057E-05_JPRB,1.7815E-04_JPRB/)
262
KAO( :, 1,11, 1) = (/&
263
 & 8.8479E-08_JPRB,6.5723E-07_JPRB,1.2585E-06_JPRB,2.0039E-06_JPRB,2.9121E-06_JPRB,4.1955E-06_JPRB,&
264
10
 & 6.2637E-06_JPRB,1.0419E-05_JPRB,1.7219E-04_JPRB/)
265
KAO( :, 2,11, 1) = (/&
266
 & 1.1103E-07_JPRB,7.9724E-07_JPRB,1.4388E-06_JPRB,2.1938E-06_JPRB,3.2099E-06_JPRB,4.5380E-06_JPRB,&
267
10
 & 6.5334E-06_JPRB,1.1529E-05_JPRB,2.1393E-04_JPRB/)
268
KAO( :, 3,11, 1) = (/&
269
 & 1.4325E-07_JPRB,8.5009E-07_JPRB,1.7790E-06_JPRB,2.5762E-06_JPRB,3.5853E-06_JPRB,4.9027E-06_JPRB,&
270
10
 & 7.2087E-06_JPRB,1.1783E-05_JPRB,2.5548E-04_JPRB/)
271
KAO( :, 4,11, 1) = (/&
272
 & 1.8796E-07_JPRB,9.4910E-07_JPRB,1.8794E-06_JPRB,3.2448E-06_JPRB,4.3096E-06_JPRB,5.7004E-06_JPRB,&
273
10
 & 7.8146E-06_JPRB,1.2759E-05_JPRB,2.9570E-04_JPRB/)
274
KAO( :, 5,11, 1) = (/&
275
 & 2.4830E-07_JPRB,1.0997E-06_JPRB,1.9987E-06_JPRB,3.2788E-06_JPRB,5.0983E-06_JPRB,7.0948E-06_JPRB,&
276
10
 & 9.2185E-06_JPRB,1.4157E-05_JPRB,3.3417E-04_JPRB/)
277
KAO( :, 1,12, 1) = (/&
278
 & 7.8411E-08_JPRB,5.6432E-07_JPRB,1.0564E-06_JPRB,1.6792E-06_JPRB,2.4262E-06_JPRB,3.3875E-06_JPRB,&
279
10
 & 5.1824E-06_JPRB,8.5930E-06_JPRB,2.1970E-04_JPRB/)
280
KAO( :, 2,12, 1) = (/&
281
 & 9.8958E-08_JPRB,6.8328E-07_JPRB,1.2215E-06_JPRB,1.8350E-06_JPRB,2.6716E-06_JPRB,3.7787E-06_JPRB,&
282
10
 & 5.3849E-06_JPRB,9.1860E-06_JPRB,2.7209E-04_JPRB/)
283
KAO( :, 3,12, 1) = (/&
284
 & 1.2797E-07_JPRB,7.2421E-07_JPRB,1.5209E-06_JPRB,2.1711E-06_JPRB,3.0040E-06_JPRB,4.0829E-06_JPRB,&
285
10
 & 6.0229E-06_JPRB,9.7068E-06_JPRB,3.2380E-04_JPRB/)
286
KAO( :, 4,12, 1) = (/&
287
 & 1.6772E-07_JPRB,8.1500E-07_JPRB,1.5843E-06_JPRB,2.7212E-06_JPRB,3.6141E-06_JPRB,4.7595E-06_JPRB,&
288
10
 & 6.4840E-06_JPRB,1.0629E-05_JPRB,3.7332E-04_JPRB/)
289
KAO( :, 5,12, 1) = (/&
290
 & 2.2081E-07_JPRB,9.4887E-07_JPRB,1.7061E-06_JPRB,2.7338E-06_JPRB,4.2409E-06_JPRB,5.9628E-06_JPRB,&
291
10
 & 7.7123E-06_JPRB,1.1668E-05_JPRB,4.2006E-04_JPRB/)
292
KAO( :, 1,13, 1) = (/&
293
 & 6.9984E-08_JPRB,4.8746E-07_JPRB,8.9934E-07_JPRB,1.4101E-06_JPRB,2.0188E-06_JPRB,2.7991E-06_JPRB,&
294
10
 & 4.1521E-06_JPRB,7.2727E-06_JPRB,2.2865E-04_JPRB/)
295
KAO( :, 2,13, 1) = (/&
296
 & 8.8821E-08_JPRB,5.8672E-07_JPRB,1.0421E-06_JPRB,1.5517E-06_JPRB,2.2340E-06_JPRB,3.1346E-06_JPRB,&
297
10
 & 4.4727E-06_JPRB,7.4604E-06_JPRB,2.8267E-04_JPRB/)
298
KAO( :, 3,13, 1) = (/&
299
 & 1.1504E-07_JPRB,6.2137E-07_JPRB,1.3015E-06_JPRB,1.8350E-06_JPRB,2.5305E-06_JPRB,3.4076E-06_JPRB,&
300
10
 & 4.9426E-06_JPRB,8.0265E-06_JPRB,3.3576E-04_JPRB/)
301
KAO( :, 4,13, 1) = (/&
302
 & 1.5036E-07_JPRB,7.0084E-07_JPRB,1.3483E-06_JPRB,2.2875E-06_JPRB,3.0337E-06_JPRB,3.9839E-06_JPRB,&
303
10
 & 5.4210E-06_JPRB,8.7755E-06_JPRB,3.8637E-04_JPRB/)
304
KAO( :, 5,13, 1) = (/&
305
 & 1.9712E-07_JPRB,8.1525E-07_JPRB,1.4451E-06_JPRB,2.3051E-06_JPRB,3.5032E-06_JPRB,5.0029E-06_JPRB,&
306
10
 & 6.4407E-06_JPRB,9.6564E-06_JPRB,4.3385E-04_JPRB/)
307
KAO( :, 1, 1, 2) = (/&
308
 & 3.7010E-06_JPRB,1.8091E-05_JPRB,2.8711E-05_JPRB,4.8863E-05_JPRB,7.2307E-05_JPRB,1.1413E-04_JPRB,&
309
10
 & 1.8771E-04_JPRB,3.6122E-04_JPRB,1.1281E-04_JPRB/)
310
KAO( :, 2, 1, 2) = (/&
311
 & 5.3266E-06_JPRB,2.4423E-05_JPRB,3.4269E-05_JPRB,4.7704E-05_JPRB,7.6078E-05_JPRB,1.1442E-04_JPRB,&
312
10
 & 1.6436E-04_JPRB,3.2838E-04_JPRB,8.7847E-05_JPRB/)
313
KAO( :, 3, 1, 2) = (/&
314
 & 7.5177E-06_JPRB,3.2854E-05_JPRB,4.4289E-05_JPRB,5.4913E-05_JPRB,7.2779E-05_JPRB,1.0814E-04_JPRB,&
315
10
 & 1.7906E-04_JPRB,2.8467E-04_JPRB,8.6883E-05_JPRB/)
316
KAO( :, 4, 1, 2) = (/&
317
 & 1.0391E-05_JPRB,4.3522E-05_JPRB,5.8544E-05_JPRB,6.9693E-05_JPRB,8.1288E-05_JPRB,1.0220E-04_JPRB,&
318
10
 & 1.5047E-04_JPRB,3.0285E-04_JPRB,9.1049E-05_JPRB/)
319
KAO( :, 5, 1, 2) = (/&
320
 & 1.4024E-05_JPRB,5.6758E-05_JPRB,7.6016E-05_JPRB,9.1662E-05_JPRB,1.0372E-04_JPRB,1.1700E-04_JPRB,&
321
10
 & 1.4991E-04_JPRB,2.3704E-04_JPRB,1.3000E-04_JPRB/)
322
KAO( :, 1, 2, 2) = (/&
323
 & 2.7903E-06_JPRB,1.3902E-05_JPRB,2.3771E-05_JPRB,3.9190E-05_JPRB,6.1137E-05_JPRB,9.7231E-05_JPRB,&
324
10
 & 1.5250E-04_JPRB,2.8746E-04_JPRB,7.5943E-05_JPRB/)
325
KAO( :, 2, 2, 2) = (/&
326
 & 4.0561E-06_JPRB,1.8720E-05_JPRB,2.7225E-05_JPRB,3.9741E-05_JPRB,6.4537E-05_JPRB,9.0899E-05_JPRB,&
327
10
 & 1.4609E-04_JPRB,2.7008E-04_JPRB,6.2612E-05_JPRB/)
328
KAO( :, 3, 2, 2) = (/&
329
 & 5.7887E-06_JPRB,2.5353E-05_JPRB,3.4446E-05_JPRB,4.3750E-05_JPRB,5.8352E-05_JPRB,9.7668E-05_JPRB,&
330
10
 & 1.4210E-04_JPRB,2.4211E-04_JPRB,6.1269E-05_JPRB/)
331
KAO( :, 4, 2, 2) = (/&
332
 & 8.0784E-06_JPRB,3.3950E-05_JPRB,4.5325E-05_JPRB,5.3921E-05_JPRB,6.4280E-05_JPRB,8.5665E-05_JPRB,&
333
10
 & 1.3688E-04_JPRB,2.4556E-04_JPRB,6.9568E-05_JPRB/)
334
KAO( :, 5, 2, 2) = (/&
335
 & 1.1019E-05_JPRB,4.4672E-05_JPRB,5.9575E-05_JPRB,7.1166E-05_JPRB,7.9595E-05_JPRB,9.1088E-05_JPRB,&
336
10
 & 1.2520E-04_JPRB,2.1802E-04_JPRB,9.5557E-05_JPRB/)
337
KAO( :, 1, 3, 2) = (/&
338
 & 1.9479E-06_JPRB,1.0095E-05_JPRB,1.9141E-05_JPRB,3.0705E-05_JPRB,5.2363E-05_JPRB,7.9991E-05_JPRB,&
339
10
 & 1.2823E-04_JPRB,2.3806E-04_JPRB,4.6992E-05_JPRB/)
340
KAO( :, 2, 3, 2) = (/&
341
 & 2.8509E-06_JPRB,1.3413E-05_JPRB,2.1137E-05_JPRB,3.4101E-05_JPRB,4.9706E-05_JPRB,7.8708E-05_JPRB,&
342
10
 & 1.2808E-04_JPRB,2.2769E-04_JPRB,4.2012E-05_JPRB/)
343
KAO( :, 3, 3, 2) = (/&
344
 & 4.1189E-06_JPRB,1.8265E-05_JPRB,2.5419E-05_JPRB,3.4683E-05_JPRB,5.2513E-05_JPRB,8.0240E-05_JPRB,&
345
10
 & 1.1481E-04_JPRB,2.1816E-04_JPRB,4.3174E-05_JPRB/)
346
KAO( :, 4, 3, 2) = (/&
347
 & 5.8233E-06_JPRB,2.4801E-05_JPRB,3.3200E-05_JPRB,4.0180E-05_JPRB,5.1786E-05_JPRB,7.2468E-05_JPRB,&
348
10
 & 1.2549E-04_JPRB,1.9856E-04_JPRB,5.6282E-05_JPRB/)
349
KAO( :, 5, 3, 2) = (/&
350
 & 8.0612E-06_JPRB,3.3094E-05_JPRB,4.4191E-05_JPRB,5.1801E-05_JPRB,5.9300E-05_JPRB,7.2075E-05_JPRB,&
351
10
 & 1.0386E-04_JPRB,2.0859E-04_JPRB,6.8039E-05_JPRB/)
352
KAO( :, 1, 4, 2) = (/&
353
 & 1.3432E-06_JPRB,7.4538E-06_JPRB,1.4964E-05_JPRB,2.5625E-05_JPRB,4.3243E-05_JPRB,6.6019E-05_JPRB,&
354
10
 & 1.0530E-04_JPRB,1.9952E-04_JPRB,3.1575E-05_JPRB/)
355
KAO( :, 2, 4, 2) = (/&
356
 & 1.9591E-06_JPRB,9.5155E-06_JPRB,1.6737E-05_JPRB,2.6791E-05_JPRB,4.2345E-05_JPRB,6.7439E-05_JPRB,&
357
10
 & 1.0271E-04_JPRB,1.8871E-04_JPRB,3.0704E-05_JPRB/)
358
KAO( :, 3, 4, 2) = (/&
359
 & 2.8537E-06_JPRB,1.2845E-05_JPRB,1.8934E-05_JPRB,2.8752E-05_JPRB,4.4199E-05_JPRB,6.2430E-05_JPRB,&
360
10
 & 1.0202E-04_JPRB,1.8062E-04_JPRB,3.4088E-05_JPRB/)
361
KAO( :, 4, 4, 2) = (/&
362
 & 4.0888E-06_JPRB,1.7612E-05_JPRB,2.3922E-05_JPRB,3.0749E-05_JPRB,4.2010E-05_JPRB,6.5728E-05_JPRB,&
363
10
 & 9.6566E-05_JPRB,1.7460E-04_JPRB,4.3387E-05_JPRB/)
364
KAO( :, 5, 4, 2) = (/&
365
 & 5.7388E-06_JPRB,2.3829E-05_JPRB,3.1758E-05_JPRB,3.7789E-05_JPRB,4.5312E-05_JPRB,5.9095E-05_JPRB,&
366
10
 & 1.0064E-04_JPRB,1.6850E-04_JPRB,5.1079E-05_JPRB/)
367
KAO( :, 1, 5, 2) = (/&
368
 & 9.4882E-07_JPRB,5.7155E-06_JPRB,1.1980E-05_JPRB,2.2295E-05_JPRB,3.5116E-05_JPRB,5.3339E-05_JPRB,&
369
10
 & 8.8729E-05_JPRB,1.5937E-04_JPRB,2.5456E-05_JPRB/)
370
KAO( :, 2, 5, 2) = (/&
371
 & 1.3669E-06_JPRB,6.8739E-06_JPRB,1.3459E-05_JPRB,2.1396E-05_JPRB,3.6297E-05_JPRB,5.4282E-05_JPRB,&
372
10
 & 8.6042E-05_JPRB,1.6025E-04_JPRB,2.6654E-05_JPRB/)
373
374
1
IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART1',1,ZHOOK_HANDLE)
375
1
END SUBROUTINE PART1
376
377
378
1
SUBROUTINE PART2
379
380
REAL(KIND=JPRB) :: ZHOOK_HANDLE
381
1
IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART2',0,ZHOOK_HANDLE)
382
383
384
KAO( :, 3, 5, 2) = (/&
385
 & 1.9884E-06_JPRB,9.0859E-06_JPRB,1.4605E-05_JPRB,2.3671E-05_JPRB,3.4093E-05_JPRB,5.5324E-05_JPRB,&
386
10
 & 8.6463E-05_JPRB,1.5363E-04_JPRB,3.0684E-05_JPRB/)
387
KAO( :, 4, 5, 2) = (/&
388
 & 2.8701E-06_JPRB,1.2430E-05_JPRB,1.7294E-05_JPRB,2.4580E-05_JPRB,3.7203E-05_JPRB,5.3154E-05_JPRB,&
389
10
 & 8.1963E-05_JPRB,1.5281E-04_JPRB,3.6321E-05_JPRB/)
390
KAO( :, 5, 5, 2) = (/&
391
 & 4.0709E-06_JPRB,1.7029E-05_JPRB,2.2743E-05_JPRB,2.7902E-05_JPRB,3.6353E-05_JPRB,5.3115E-05_JPRB,&
392
10
 & 8.4864E-05_JPRB,1.3732E-04_JPRB,4.2547E-05_JPRB/)
393
KAO( :, 1, 6, 2) = (/&
394
 & 6.8988E-07_JPRB,4.4652E-06_JPRB,9.7580E-06_JPRB,1.7678E-05_JPRB,2.8332E-05_JPRB,4.4145E-05_JPRB,&
395
10
 & 7.0109E-05_JPRB,1.2493E-04_JPRB,2.3716E-05_JPRB/)
396
KAO( :, 2, 6, 2) = (/&
397
 & 9.7314E-07_JPRB,5.0974E-06_JPRB,1.0412E-05_JPRB,1.7485E-05_JPRB,2.9376E-05_JPRB,4.4804E-05_JPRB,&
398
10
 & 7.0122E-05_JPRB,1.3276E-04_JPRB,2.6375E-05_JPRB/)
399
KAO( :, 3, 6, 2) = (/&
400
 & 1.3972E-06_JPRB,6.4724E-06_JPRB,1.1564E-05_JPRB,1.8858E-05_JPRB,2.8568E-05_JPRB,4.7043E-05_JPRB,&
401
10
 & 7.0202E-05_JPRB,1.2748E-04_JPRB,3.0169E-05_JPRB/)
402
KAO( :, 4, 6, 2) = (/&
403
 & 2.0156E-06_JPRB,8.7063E-06_JPRB,1.3025E-05_JPRB,2.0355E-05_JPRB,3.0069E-05_JPRB,4.4240E-05_JPRB,&
404
10
 & 7.1336E-05_JPRB,1.2324E-04_JPRB,3.4994E-05_JPRB/)
405
KAO( :, 5, 6, 2) = (/&
406
 & 2.8756E-06_JPRB,1.1976E-05_JPRB,1.6242E-05_JPRB,2.1147E-05_JPRB,3.0629E-05_JPRB,4.5526E-05_JPRB,&
407
10
 & 6.5474E-05_JPRB,1.2130E-04_JPRB,4.0495E-05_JPRB/)
408
KAO( :, 1, 7, 2) = (/&
409
 & 5.2255E-07_JPRB,3.4411E-06_JPRB,7.7789E-06_JPRB,1.4395E-05_JPRB,2.2965E-05_JPRB,3.5662E-05_JPRB,&
410
10
 & 5.5652E-05_JPRB,9.9078E-05_JPRB,2.5677E-05_JPRB/)
411
KAO( :, 2, 7, 2) = (/&
412
 & 7.2172E-07_JPRB,4.0179E-06_JPRB,8.3376E-06_JPRB,1.4853E-05_JPRB,2.4331E-05_JPRB,3.6364E-05_JPRB,&
413
10
 & 5.7791E-05_JPRB,1.0563E-04_JPRB,2.9556E-05_JPRB/)
414
KAO( :, 3, 7, 2) = (/&
415
 & 1.0201E-06_JPRB,4.7217E-06_JPRB,9.3095E-06_JPRB,1.5083E-05_JPRB,2.5365E-05_JPRB,3.7347E-05_JPRB,&
416
10
 & 5.8190E-05_JPRB,1.0603E-04_JPRB,3.3998E-05_JPRB/)
417
KAO( :, 4, 7, 2) = (/&
418
 & 1.4537E-06_JPRB,6.1748E-06_JPRB,1.0020E-05_JPRB,1.6138E-05_JPRB,2.3962E-05_JPRB,3.7967E-05_JPRB,&
419
10
 & 5.8451E-05_JPRB,1.0372E-04_JPRB,3.9119E-05_JPRB/)
420
KAO( :, 5, 7, 2) = (/&
421
 & 2.0693E-06_JPRB,8.4363E-06_JPRB,1.1705E-05_JPRB,1.7001E-05_JPRB,2.5826E-05_JPRB,3.5527E-05_JPRB,&
422
10
 & 5.8296E-05_JPRB,1.0385E-04_JPRB,4.4936E-05_JPRB/)
423
KAO( :, 1, 8, 2) = (/&
424
 & 4.1700E-07_JPRB,2.7639E-06_JPRB,6.4938E-06_JPRB,1.1630E-05_JPRB,1.8371E-05_JPRB,2.7706E-05_JPRB,&
425
10
 & 4.4850E-05_JPRB,8.0696E-05_JPRB,3.5956E-05_JPRB/)
426
KAO( :, 2, 8, 2) = (/&
427
 & 5.6411E-07_JPRB,3.1556E-06_JPRB,6.9457E-06_JPRB,1.2120E-05_JPRB,1.9397E-05_JPRB,2.9581E-05_JPRB,&
428
10
 & 4.6513E-05_JPRB,8.4727E-05_JPRB,4.2511E-05_JPRB/)
429
KAO( :, 3, 8, 2) = (/&
430
 & 7.8647E-07_JPRB,3.6535E-06_JPRB,7.3255E-06_JPRB,1.2353E-05_JPRB,2.0079E-05_JPRB,3.0844E-05_JPRB,&
431
10
 & 4.7401E-05_JPRB,8.6525E-05_JPRB,4.9724E-05_JPRB/)
432
KAO( :, 4, 8, 2) = (/&
433
 & 1.1061E-06_JPRB,4.5424E-06_JPRB,7.9917E-06_JPRB,1.3185E-05_JPRB,1.9791E-05_JPRB,3.2038E-05_JPRB,&
434
10
 & 4.8054E-05_JPRB,8.5457E-05_JPRB,5.7233E-05_JPRB/)
435
KAO( :, 5, 8, 2) = (/&
436
 & 1.5569E-06_JPRB,6.0599E-06_JPRB,9.0209E-06_JPRB,1.3990E-05_JPRB,2.0815E-05_JPRB,3.0475E-05_JPRB,&
437
10
 & 4.9899E-05_JPRB,8.4659E-05_JPRB,6.5356E-05_JPRB/)
438
KAO( :, 1, 9, 2) = (/&
439
 & 3.4646E-07_JPRB,2.3339E-06_JPRB,5.2376E-06_JPRB,9.2182E-06_JPRB,1.4337E-05_JPRB,2.2490E-05_JPRB,&
440
10
 & 3.6396E-05_JPRB,6.1412E-05_JPRB,1.0490E-04_JPRB/)
441
KAO( :, 2, 9, 2) = (/&
442
 & 4.5919E-07_JPRB,2.4585E-06_JPRB,5.5676E-06_JPRB,9.8533E-06_JPRB,1.5559E-05_JPRB,2.3683E-05_JPRB,&
443
10
 & 3.6999E-05_JPRB,7.0677E-05_JPRB,1.2405E-04_JPRB/)
444
KAO( :, 3, 9, 2) = (/&
445
 & 6.2898E-07_JPRB,2.9262E-06_JPRB,5.8022E-06_JPRB,1.0344E-05_JPRB,1.6840E-05_JPRB,2.4691E-05_JPRB,&
446
10
 & 3.8818E-05_JPRB,7.0031E-05_JPRB,1.4290E-04_JPRB/)
447
KAO( :, 4, 9, 2) = (/&
448
 & 8.7625E-07_JPRB,3.4474E-06_JPRB,6.4904E-06_JPRB,1.0589E-05_JPRB,1.7378E-05_JPRB,2.5849E-05_JPRB,&
449
10
 & 3.9400E-05_JPRB,7.0716E-05_JPRB,1.6112E-04_JPRB/)
450
KAO( :, 5, 9, 2) = (/&
451
 & 1.2209E-06_JPRB,4.4922E-06_JPRB,7.0958E-06_JPRB,1.1298E-05_JPRB,1.6936E-05_JPRB,2.6020E-05_JPRB,&
452
10
 & 4.0325E-05_JPRB,7.2083E-05_JPRB,1.7893E-04_JPRB/)
453
KAO( :, 1,10, 2) = (/&
454
 & 3.1214E-07_JPRB,1.9536E-06_JPRB,4.2576E-06_JPRB,7.3396E-06_JPRB,1.1621E-05_JPRB,1.8021E-05_JPRB,&
455
10
 & 2.8013E-05_JPRB,4.7749E-05_JPRB,4.9962E-04_JPRB/)
456
KAO( :, 2,10, 2) = (/&
457
 & 4.0887E-07_JPRB,2.0598E-06_JPRB,4.7149E-06_JPRB,8.0606E-06_JPRB,1.2573E-05_JPRB,1.8809E-05_JPRB,&
458
10
 & 3.0275E-05_JPRB,5.6188E-05_JPRB,5.8548E-04_JPRB/)
459
KAO( :, 3,10, 2) = (/&
460
 & 5.5155E-07_JPRB,2.4175E-06_JPRB,4.9545E-06_JPRB,8.5941E-06_JPRB,1.3457E-05_JPRB,2.0204E-05_JPRB,&
461
10
 & 3.1138E-05_JPRB,5.6286E-05_JPRB,6.6291E-04_JPRB/)
462
KAO( :, 4,10, 2) = (/&
463
 & 7.5650E-07_JPRB,2.8298E-06_JPRB,5.3256E-06_JPRB,8.7402E-06_JPRB,1.3978E-05_JPRB,2.1601E-05_JPRB,&
464
10
 & 3.2082E-05_JPRB,5.7693E-05_JPRB,7.2972E-04_JPRB/)
465
KAO( :, 5,10, 2) = (/&
466
 & 1.0427E-06_JPRB,3.5400E-06_JPRB,5.8501E-06_JPRB,9.4137E-06_JPRB,1.4055E-05_JPRB,2.2092E-05_JPRB,&
467
10
 & 3.3371E-05_JPRB,5.7680E-05_JPRB,7.8611E-04_JPRB/)
468
KAO( :, 1,11, 2) = (/&
469
 & 3.2074E-07_JPRB,1.7276E-06_JPRB,3.6239E-06_JPRB,6.1854E-06_JPRB,9.6607E-06_JPRB,1.4993E-05_JPRB,&
470
10
 & 2.3443E-05_JPRB,4.1061E-05_JPRB,1.0142E-03_JPRB/)
471
KAO( :, 2,11, 2) = (/&
472
 & 4.2113E-07_JPRB,1.8116E-06_JPRB,4.1199E-06_JPRB,6.7716E-06_JPRB,1.0543E-05_JPRB,1.5526E-05_JPRB,&
473
10
 & 2.4849E-05_JPRB,4.5454E-05_JPRB,1.1742E-03_JPRB/)
474
KAO( :, 3,11, 2) = (/&
475
 & 5.6514E-07_JPRB,2.1552E-06_JPRB,4.2148E-06_JPRB,7.3585E-06_JPRB,1.1239E-05_JPRB,1.6846E-05_JPRB,&
476
10
 & 2.5655E-05_JPRB,4.5531E-05_JPRB,1.3139E-03_JPRB/)
477
KAO( :, 4,11, 2) = (/&
478
 & 7.6814E-07_JPRB,2.5322E-06_JPRB,4.6852E-06_JPRB,7.3538E-06_JPRB,1.1830E-05_JPRB,1.8155E-05_JPRB,&
479
10
 & 2.6824E-05_JPRB,4.7139E-05_JPRB,1.4305E-03_JPRB/)
480
KAO( :, 5,11, 2) = (/&
481
 & 1.0464E-06_JPRB,3.2313E-06_JPRB,5.0889E-06_JPRB,8.1260E-06_JPRB,1.1741E-05_JPRB,1.8567E-05_JPRB,&
482
10
 & 2.7673E-05_JPRB,4.7684E-05_JPRB,1.5261E-03_JPRB/)
483
KAO( :, 1,12, 2) = (/&
484
 & 3.0483E-07_JPRB,1.4986E-06_JPRB,3.1036E-06_JPRB,5.2551E-06_JPRB,7.9883E-06_JPRB,1.2411E-05_JPRB,&
485
10
 & 1.9208E-05_JPRB,3.3894E-05_JPRB,1.3243E-03_JPRB/)
486
KAO( :, 2,12, 2) = (/&
487
 & 4.0026E-07_JPRB,1.5746E-06_JPRB,3.5034E-06_JPRB,5.7409E-06_JPRB,8.9248E-06_JPRB,1.2928E-05_JPRB,&
488
10
 & 2.0014E-05_JPRB,3.7406E-05_JPRB,1.5202E-03_JPRB/)
489
KAO( :, 3,12, 2) = (/&
490
 & 5.3553E-07_JPRB,1.8879E-06_JPRB,3.5598E-06_JPRB,6.2204E-06_JPRB,9.4506E-06_JPRB,1.4131E-05_JPRB,&
491
10
 & 2.1193E-05_JPRB,3.7290E-05_JPRB,1.6892E-03_JPRB/)
492
KAO( :, 4,12, 2) = (/&
493
 & 7.2441E-07_JPRB,2.2261E-06_JPRB,4.0611E-06_JPRB,6.2008E-06_JPRB,9.9865E-06_JPRB,1.4941E-05_JPRB,&
494
10
 & 2.2423E-05_JPRB,3.8766E-05_JPRB,1.8301E-03_JPRB/)
495
KAO( :, 5,12, 2) = (/&
496
 & 9.8233E-07_JPRB,2.8782E-06_JPRB,4.3585E-06_JPRB,6.9707E-06_JPRB,9.7990E-06_JPRB,1.5463E-05_JPRB,&
497
10
 & 2.2949E-05_JPRB,3.9658E-05_JPRB,1.9441E-03_JPRB/)
498
KAO( :, 1,13, 2) = (/&
499
 & 2.9003E-07_JPRB,1.3003E-06_JPRB,2.6851E-06_JPRB,4.4901E-06_JPRB,6.6847E-06_JPRB,1.0336E-05_JPRB,&
500
10
 & 1.6084E-05_JPRB,2.8206E-05_JPRB,1.3971E-03_JPRB/)
501
KAO( :, 2,13, 2) = (/&
502
 & 3.7990E-07_JPRB,1.3887E-06_JPRB,2.9888E-06_JPRB,4.8895E-06_JPRB,7.4887E-06_JPRB,1.0848E-05_JPRB,&
503
10
 & 1.6497E-05_JPRB,3.0927E-05_JPRB,1.5951E-03_JPRB/)
504
KAO( :, 3,13, 2) = (/&
505
 & 5.0572E-07_JPRB,1.6533E-06_JPRB,3.0166E-06_JPRB,5.2825E-06_JPRB,8.0084E-06_JPRB,1.1877E-05_JPRB,&
506
10
 & 1.7766E-05_JPRB,3.0474E-05_JPRB,1.7653E-03_JPRB/)
507
KAO( :, 4,13, 2) = (/&
508
 & 6.7947E-07_JPRB,1.9700E-06_JPRB,3.4410E-06_JPRB,5.2325E-06_JPRB,8.4395E-06_JPRB,1.2460E-05_JPRB,&
509
10
 & 1.8625E-05_JPRB,3.2158E-05_JPRB,1.9067E-03_JPRB/)
510
KAO( :, 5,13, 2) = (/&
511
 & 9.1576E-07_JPRB,2.5777E-06_JPRB,3.7459E-06_JPRB,5.9026E-06_JPRB,8.2962E-06_JPRB,1.2772E-05_JPRB,&
512
10
 & 1.8972E-05_JPRB,3.2948E-05_JPRB,2.0202E-03_JPRB/)
513
KAO( :, 1, 1, 3) = (/&
514
 & 1.2955E-05_JPRB,5.0522E-05_JPRB,7.1945E-05_JPRB,8.6154E-05_JPRB,1.0208E-04_JPRB,1.2598E-04_JPRB,&
515
10
 & 1.9123E-04_JPRB,3.6418E-04_JPRB,1.3186E-04_JPRB/)
516
KAO( :, 2, 1, 3) = (/&
517
 & 1.9287E-05_JPRB,7.0010E-05_JPRB,9.9593E-05_JPRB,1.2286E-04_JPRB,1.3525E-04_JPRB,1.5548E-04_JPRB,&
518
10
 & 2.0918E-04_JPRB,3.4739E-04_JPRB,1.7322E-04_JPRB/)
519
KAO( :, 3, 1, 3) = (/&
520
 & 2.7759E-05_JPRB,9.4510E-05_JPRB,1.3259E-04_JPRB,1.6366E-04_JPRB,1.8879E-04_JPRB,2.0943E-04_JPRB,&
521
10
 & 2.3157E-04_JPRB,3.4811E-04_JPRB,1.6150E-04_JPRB/)
522
KAO( :, 4, 1, 3) = (/&
523
 & 3.8738E-05_JPRB,1.2422E-04_JPRB,1.7221E-04_JPRB,2.0992E-04_JPRB,2.4272E-04_JPRB,2.7453E-04_JPRB,&
524
10
 & 3.1488E-04_JPRB,3.8180E-04_JPRB,1.6247E-04_JPRB/)
525
KAO( :, 5, 1, 3) = (/&
526
 & 5.2551E-05_JPRB,1.5948E-04_JPRB,2.1800E-04_JPRB,2.6091E-04_JPRB,2.8985E-04_JPRB,3.1670E-04_JPRB,&
527
10
 & 3.5730E-04_JPRB,5.0275E-04_JPRB,1.6769E-04_JPRB/)
528
KAO( :, 1, 2, 3) = (/&
529
 & 1.0215E-05_JPRB,3.8380E-05_JPRB,5.3048E-05_JPRB,6.6381E-05_JPRB,7.9446E-05_JPRB,1.0242E-04_JPRB,&
530
10
 & 1.6771E-04_JPRB,3.2794E-04_JPRB,9.6316E-05_JPRB/)
531
KAO( :, 2, 2, 3) = (/&
532
 & 1.5451E-05_JPRB,5.4104E-05_JPRB,7.5600E-05_JPRB,9.3324E-05_JPRB,1.0289E-04_JPRB,1.2339E-04_JPRB,&
533
10
 & 1.5508E-04_JPRB,2.9561E-04_JPRB,1.1950E-04_JPRB/)
534
KAO( :, 3, 2, 3) = (/&
535
 & 2.2597E-05_JPRB,7.3963E-05_JPRB,1.0253E-04_JPRB,1.2549E-04_JPRB,1.4695E-04_JPRB,1.5501E-04_JPRB,&
536
10
 & 1.8766E-04_JPRB,2.7580E-04_JPRB,1.1963E-04_JPRB/)
537
KAO( :, 4, 2, 3) = (/&
538
 & 3.1981E-05_JPRB,9.8266E-05_JPRB,1.3455E-04_JPRB,1.6363E-04_JPRB,1.9057E-04_JPRB,2.1405E-04_JPRB,&
539
10
 & 2.4009E-04_JPRB,3.0871E-04_JPRB,1.1944E-04_JPRB/)
540
KAO( :, 5, 2, 3) = (/&
541
 & 4.3949E-05_JPRB,1.2724E-04_JPRB,1.7210E-04_JPRB,2.0576E-04_JPRB,2.2967E-04_JPRB,2.5641E-04_JPRB,&
542
10
 & 2.9387E-04_JPRB,3.8545E-04_JPRB,1.2834E-04_JPRB/)
543
KAO( :, 1, 3, 3) = (/&
544
 & 7.2365E-06_JPRB,2.6998E-05_JPRB,3.6477E-05_JPRB,4.7217E-05_JPRB,5.6642E-05_JPRB,8.7936E-05_JPRB,&
545
10
 & 1.4529E-04_JPRB,2.7769E-04_JPRB,6.9628E-05_JPRB/)
546
KAO( :, 2, 3, 3) = (/&
547
 & 1.1199E-05_JPRB,3.9041E-05_JPRB,5.3564E-05_JPRB,6.4272E-05_JPRB,7.6774E-05_JPRB,9.0855E-05_JPRB,&
548
10
 & 1.2382E-04_JPRB,2.6260E-04_JPRB,7.7539E-05_JPRB/)
549
KAO( :, 3, 3, 3) = (/&
550
 & 1.6746E-05_JPRB,5.4459E-05_JPRB,7.4537E-05_JPRB,8.9917E-05_JPRB,1.0355E-04_JPRB,1.1572E-04_JPRB,&
551
10
 & 1.4649E-04_JPRB,2.2179E-04_JPRB,7.9988E-05_JPRB/)
552
KAO( :, 4, 3, 3) = (/&
553
 & 2.4191E-05_JPRB,7.3480E-05_JPRB,9.9615E-05_JPRB,1.2140E-04_JPRB,1.3959E-04_JPRB,1.5714E-04_JPRB,&
554
10
 & 1.6549E-04_JPRB,2.4024E-04_JPRB,8.5666E-05_JPRB/)
555
KAO( :, 5, 3, 3) = (/&
556
 & 3.3870E-05_JPRB,9.6615E-05_JPRB,1.2939E-04_JPRB,1.5483E-04_JPRB,1.7605E-04_JPRB,2.0033E-04_JPRB,&
557
10
 & 2.2747E-04_JPRB,2.7100E-04_JPRB,9.7295E-05_JPRB/)
558
KAO( :, 1, 4, 3) = (/&
559
 & 4.9164E-06_JPRB,1.8370E-05_JPRB,2.4721E-05_JPRB,3.3121E-05_JPRB,4.7620E-05_JPRB,7.5266E-05_JPRB,&
560
10
 & 1.2052E-04_JPRB,2.1534E-04_JPRB,5.2534E-05_JPRB/)
561
KAO( :, 2, 4, 3) = (/&
562
 & 7.7659E-06_JPRB,2.7326E-05_JPRB,3.6365E-05_JPRB,4.5331E-05_JPRB,5.4377E-05_JPRB,7.0048E-05_JPRB,&
563
10
 & 1.1606E-04_JPRB,2.2356E-04_JPRB,5.6606E-05_JPRB/)
564
KAO( :, 3, 4, 3) = (/&
565
 & 1.1872E-05_JPRB,3.9091E-05_JPRB,5.2753E-05_JPRB,6.2810E-05_JPRB,7.2334E-05_JPRB,8.5510E-05_JPRB,&
566
10
 & 1.0655E-04_JPRB,2.0132E-04_JPRB,6.1013E-05_JPRB/)
567
KAO( :, 4, 4, 3) = (/&
568
 & 1.7537E-05_JPRB,5.3794E-05_JPRB,7.2225E-05_JPRB,8.6566E-05_JPRB,1.0009E-04_JPRB,1.0905E-04_JPRB,&
569
10
 & 1.2927E-04_JPRB,1.7979E-04_JPRB,6.7247E-05_JPRB/)
570
KAO( :, 5, 4, 3) = (/&
571
 & 2.5077E-05_JPRB,7.1949E-05_JPRB,9.5586E-05_JPRB,1.1422E-04_JPRB,1.3046E-04_JPRB,1.4874E-04_JPRB,&
572
10
 & 1.6151E-04_JPRB,2.1004E-04_JPRB,7.8070E-05_JPRB/)
573
KAO( :, 1, 5, 3) = (/&
574
 & 3.3274E-06_JPRB,1.2413E-05_JPRB,1.6893E-05_JPRB,2.5297E-05_JPRB,3.9702E-05_JPRB,6.2471E-05_JPRB,&
575
10
 & 9.4799E-05_JPRB,1.7379E-04_JPRB,4.3352E-05_JPRB/)
576
KAO( :, 2, 5, 3) = (/&
577
 & 5.3144E-06_JPRB,1.8924E-05_JPRB,2.4595E-05_JPRB,3.1378E-05_JPRB,3.9382E-05_JPRB,6.2226E-05_JPRB,&
578
10
 & 9.6051E-05_JPRB,1.8141E-04_JPRB,4.9071E-05_JPRB/)
579
KAO( :, 3, 5, 3) = (/&
580
 & 8.2729E-06_JPRB,2.7735E-05_JPRB,3.6853E-05_JPRB,4.3473E-05_JPRB,5.3077E-05_JPRB,6.0111E-05_JPRB,&
581
10
 & 8.8205E-05_JPRB,1.7170E-04_JPRB,5.3581E-05_JPRB/)
582
KAO( :, 4, 5, 3) = (/&
583
 & 1.2483E-05_JPRB,3.8936E-05_JPRB,5.1944E-05_JPRB,6.0771E-05_JPRB,7.0416E-05_JPRB,8.1406E-05_JPRB,&
584
10
 & 9.7912E-05_JPRB,1.4624E-04_JPRB,6.0502E-05_JPRB/)
585
KAO( :, 5, 5, 3) = (/&
586
 & 1.8234E-05_JPRB,5.2997E-05_JPRB,7.0214E-05_JPRB,8.3889E-05_JPRB,9.4583E-05_JPRB,1.0646E-04_JPRB,&
587
10
 & 1.1645E-04_JPRB,1.6664E-04_JPRB,6.9524E-05_JPRB/)
588
KAO( :, 1, 6, 3) = (/&
589
 & 2.2627E-06_JPRB,8.2256E-06_JPRB,1.2662E-05_JPRB,2.0881E-05_JPRB,3.2287E-05_JPRB,4.9842E-05_JPRB,&
590
10
 & 7.8514E-05_JPRB,1.5143E-04_JPRB,4.2185E-05_JPRB/)
591
KAO( :, 2, 6, 3) = (/&
592
 & 3.5902E-06_JPRB,1.2715E-05_JPRB,1.6777E-05_JPRB,2.2883E-05_JPRB,3.3890E-05_JPRB,5.0807E-05_JPRB,&
593
10
 & 8.0753E-05_JPRB,1.4463E-04_JPRB,4.8590E-05_JPRB/)
594
KAO( :, 3, 6, 3) = (/&
595
 & 5.6436E-06_JPRB,1.9109E-05_JPRB,2.4998E-05_JPRB,3.0305E-05_JPRB,3.7831E-05_JPRB,4.7255E-05_JPRB,&
596
10
 & 7.8945E-05_JPRB,1.4406E-04_JPRB,5.5296E-05_JPRB/)
597
KAO( :, 4, 6, 3) = (/&
598
 & 8.6680E-06_JPRB,2.7468E-05_JPRB,3.6416E-05_JPRB,4.2070E-05_JPRB,4.9055E-05_JPRB,5.8245E-05_JPRB,&
599
10
 & 7.2889E-05_JPRB,1.3759E-04_JPRB,6.2699E-05_JPRB/)
600
KAO( :, 5, 6, 3) = (/&
601
 & 1.2910E-05_JPRB,3.8070E-05_JPRB,5.0552E-05_JPRB,5.9531E-05_JPRB,6.5990E-05_JPRB,7.5485E-05_JPRB,&
602
10
 & 9.0151E-05_JPRB,1.2519E-04_JPRB,7.1158E-05_JPRB/)
603
KAO( :, 1, 7, 3) = (/&
604
 & 1.6260E-06_JPRB,5.6512E-06_JPRB,1.0534E-05_JPRB,1.6548E-05_JPRB,2.5722E-05_JPRB,3.9212E-05_JPRB,&
605
10
 & 6.5255E-05_JPRB,1.1642E-04_JPRB,4.8396E-05_JPRB/)
606
KAO( :, 2, 7, 3) = (/&
607
 & 2.4977E-06_JPRB,8.5111E-06_JPRB,1.1552E-05_JPRB,1.8620E-05_JPRB,2.6964E-05_JPRB,4.1086E-05_JPRB,&
608
10
 & 6.5326E-05_JPRB,1.2038E-04_JPRB,5.6755E-05_JPRB/)
609
KAO( :, 3, 7, 3) = (/&
610
 & 3.8937E-06_JPRB,1.3083E-05_JPRB,1.6837E-05_JPRB,2.1037E-05_JPRB,2.8103E-05_JPRB,4.1971E-05_JPRB,&
611
10
 & 6.4916E-05_JPRB,1.2035E-04_JPRB,6.5643E-05_JPRB/)
612
KAO( :, 4, 7, 3) = (/&
613
 & 6.0131E-06_JPRB,1.9182E-05_JPRB,2.5262E-05_JPRB,2.9578E-05_JPRB,3.5380E-05_JPRB,4.1824E-05_JPRB,&
614
10
 & 6.4389E-05_JPRB,1.1625E-04_JPRB,7.5112E-05_JPRB/)
615
KAO( :, 5, 7, 3) = (/&
616
 & 9.0775E-06_JPRB,2.7049E-05_JPRB,3.5910E-05_JPRB,4.1673E-05_JPRB,4.7430E-05_JPRB,5.6675E-05_JPRB,&
617
10
 & 6.4662E-05_JPRB,1.0376E-04_JPRB,8.5479E-05_JPRB/)
618
KAO( :, 1, 8, 3) = (/&
619
 & 1.2762E-06_JPRB,4.2855E-06_JPRB,8.2820E-06_JPRB,1.3051E-05_JPRB,1.9907E-05_JPRB,3.3971E-05_JPRB,&
620
10
 & 5.0446E-05_JPRB,8.6971E-05_JPRB,7.7745E-05_JPRB/)
621
KAO( :, 2, 8, 3) = (/&
622
 & 1.8844E-06_JPRB,5.9050E-06_JPRB,8.9489E-06_JPRB,1.4806E-05_JPRB,2.1839E-05_JPRB,3.2608E-05_JPRB,&
623
10
 & 5.2540E-05_JPRB,9.7610E-05_JPRB,8.9498E-05_JPRB/)
624
KAO( :, 3, 8, 3) = (/&
625
 & 2.8385E-06_JPRB,8.9737E-06_JPRB,1.1895E-05_JPRB,1.5870E-05_JPRB,2.4156E-05_JPRB,3.3906E-05_JPRB,&
626
10
 & 5.3605E-05_JPRB,9.6849E-05_JPRB,1.0287E-04_JPRB/)
627
KAO( :, 4, 8, 3) = (/&
628
 & 4.3106E-06_JPRB,1.3404E-05_JPRB,1.7498E-05_JPRB,2.1009E-05_JPRB,2.6036E-05_JPRB,3.4758E-05_JPRB,&
629
10
 & 5.4115E-05_JPRB,9.7671E-05_JPRB,1.1774E-04_JPRB/)
630
KAO( :, 5, 8, 3) = (/&
631
 & 6.4933E-06_JPRB,1.9198E-05_JPRB,2.5108E-05_JPRB,2.9532E-05_JPRB,3.3547E-05_JPRB,4.0870E-05_JPRB,&
632
10
 & 5.0672E-05_JPRB,9.4048E-05_JPRB,1.3326E-04_JPRB/)
633
KAO( :, 1, 9, 3) = (/&
634
 & 1.0706E-06_JPRB,3.3489E-06_JPRB,6.5283E-06_JPRB,1.0192E-05_JPRB,1.7278E-05_JPRB,2.6238E-05_JPRB,&
635
10
 & 3.9041E-05_JPRB,7.0346E-05_JPRB,2.7103E-04_JPRB/)
636
KAO( :, 2, 9, 3) = (/&
637
 & 1.5238E-06_JPRB,4.4647E-06_JPRB,7.4896E-06_JPRB,1.1805E-05_JPRB,1.7404E-05_JPRB,2.6241E-05_JPRB,&
638
10
 & 4.5076E-05_JPRB,7.3357E-05_JPRB,3.0478E-04_JPRB/)
639
KAO( :, 3, 9, 3) = (/&
640
 & 2.2245E-06_JPRB,6.3482E-06_JPRB,8.7814E-06_JPRB,1.3182E-05_JPRB,1.8649E-05_JPRB,2.8139E-05_JPRB,&
641
10
 & 4.2432E-05_JPRB,8.1918E-05_JPRB,3.3943E-04_JPRB/)
642
KAO( :, 4, 9, 3) = (/&
643
 & 3.2853E-06_JPRB,9.5377E-06_JPRB,1.2081E-05_JPRB,1.5048E-05_JPRB,2.0438E-05_JPRB,2.9250E-05_JPRB,&
644
10
 & 4.4492E-05_JPRB,8.0054E-05_JPRB,3.7569E-04_JPRB/)
645
KAO( :, 5, 9, 3) = (/&
646
 & 4.8340E-06_JPRB,1.3704E-05_JPRB,1.7727E-05_JPRB,2.0846E-05_JPRB,2.4389E-05_JPRB,3.0169E-05_JPRB,&
647
10
 & 4.5558E-05_JPRB,7.6780E-05_JPRB,4.1363E-04_JPRB/)
648
KAO( :, 1,10, 3) = (/&
649
 & 1.0087E-06_JPRB,2.8522E-06_JPRB,5.3847E-06_JPRB,8.7589E-06_JPRB,1.3656E-05_JPRB,2.0793E-05_JPRB,&
650
10
 & 3.0265E-05_JPRB,5.6466E-05_JPRB,1.4467E-03_JPRB/)
651
KAO( :, 2,10, 3) = (/&
652
 & 1.3893E-06_JPRB,3.6572E-06_JPRB,6.0381E-06_JPRB,9.5656E-06_JPRB,1.3744E-05_JPRB,2.2378E-05_JPRB,&
653
10
 & 3.6073E-05_JPRB,5.8999E-05_JPRB,1.6134E-03_JPRB/)
654
KAO( :, 3,10, 3) = (/&
655
 & 1.9601E-06_JPRB,4.9746E-06_JPRB,7.1675E-06_JPRB,1.0782E-05_JPRB,1.5548E-05_JPRB,2.2425E-05_JPRB,&
656
10
 & 3.4813E-05_JPRB,6.8188E-05_JPRB,1.7742E-03_JPRB/)
657
KAO( :, 4,10, 3) = (/&
658
 & 2.8046E-06_JPRB,7.3061E-06_JPRB,9.2760E-06_JPRB,1.2016E-05_JPRB,1.7674E-05_JPRB,2.3526E-05_JPRB,&
659
10
 & 3.6626E-05_JPRB,6.3451E-05_JPRB,1.9257E-03_JPRB/)
660
KAO( :, 5,10, 3) = (/&
661
 & 4.0204E-06_JPRB,1.0448E-05_JPRB,1.3168E-05_JPRB,1.5711E-05_JPRB,1.8780E-05_JPRB,2.5290E-05_JPRB,&
662
10
 & 3.7179E-05_JPRB,6.5468E-05_JPRB,2.0654E-03_JPRB/)
663
KAO( :, 1,11, 3) = (/&
664
 & 1.1167E-06_JPRB,2.7196E-06_JPRB,4.8414E-06_JPRB,7.5750E-06_JPRB,1.1619E-05_JPRB,1.6844E-05_JPRB,&
665
10
 & 2.5920E-05_JPRB,4.2497E-05_JPRB,3.0648E-03_JPRB/)
666
KAO( :, 2,11, 3) = (/&
667
 & 1.5177E-06_JPRB,3.5342E-06_JPRB,5.4336E-06_JPRB,8.4346E-06_JPRB,1.1729E-05_JPRB,1.8362E-05_JPRB,&
668
10
 & 2.9194E-05_JPRB,5.0129E-05_JPRB,3.3976E-03_JPRB/)
669
KAO( :, 3,11, 3) = (/&
670
 & 2.0984E-06_JPRB,4.8006E-06_JPRB,6.5451E-06_JPRB,9.5029E-06_JPRB,1.3465E-05_JPRB,1.9020E-05_JPRB,&
671
10
 & 2.8692E-05_JPRB,5.7928E-05_JPRB,3.7050E-03_JPRB/)
672
KAO( :, 4,11, 3) = (/&
673
 & 2.9335E-06_JPRB,6.8708E-06_JPRB,8.4101E-06_JPRB,1.0863E-05_JPRB,1.4762E-05_JPRB,2.0091E-05_JPRB,&
674
10
 & 3.0371E-05_JPRB,5.2028E-05_JPRB,3.9809E-03_JPRB/)
675
676
1
IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART2',1,ZHOOK_HANDLE)
677
1
END SUBROUTINE PART2
678
679
680
1
SUBROUTINE PART3
681
682
REAL(KIND=JPRB) :: ZHOOK_HANDLE
683
1
IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART3',0,ZHOOK_HANDLE)
684
685
686
KAO( :, 5,11, 3) = (/&
687
 & 4.1000E-06_JPRB,9.6543E-06_JPRB,1.1857E-05_JPRB,1.3714E-05_JPRB,1.6526E-05_JPRB,2.1427E-05_JPRB,&
688
10
 & 3.1464E-05_JPRB,5.4245E-05_JPRB,4.2143E-03_JPRB/)
689
KAO( :, 1,12, 3) = (/&
690
 & 1.1265E-06_JPRB,2.5186E-06_JPRB,4.3674E-06_JPRB,6.5192E-06_JPRB,9.8193E-06_JPRB,1.4195E-05_JPRB,&
691
10
 & 2.1669E-05_JPRB,3.5591E-05_JPRB,4.1354E-03_JPRB/)
692
KAO( :, 2,12, 3) = (/&
693
 & 1.5273E-06_JPRB,3.2471E-06_JPRB,4.8453E-06_JPRB,7.4929E-06_JPRB,9.9333E-06_JPRB,1.5224E-05_JPRB,&
694
10
 & 2.4490E-05_JPRB,4.2520E-05_JPRB,4.5631E-03_JPRB/)
695
KAO( :, 3,12, 3) = (/&
696
 & 2.0931E-06_JPRB,4.4632E-06_JPRB,5.8990E-06_JPRB,8.1723E-06_JPRB,1.1637E-05_JPRB,1.5989E-05_JPRB,&
697
10
 & 2.3803E-05_JPRB,4.4958E-05_JPRB,4.9406E-03_JPRB/)
698
KAO( :, 4,12, 3) = (/&
699
 & 2.8927E-06_JPRB,6.3250E-06_JPRB,7.6186E-06_JPRB,9.4669E-06_JPRB,1.2563E-05_JPRB,1.7445E-05_JPRB,&
700
10
 & 2.5222E-05_JPRB,4.2668E-05_JPRB,5.2603E-03_JPRB/)
701
KAO( :, 5,12, 3) = (/&
702
 & 3.9848E-06_JPRB,8.7921E-06_JPRB,1.0605E-05_JPRB,1.2004E-05_JPRB,1.4341E-05_JPRB,1.8049E-05_JPRB,&
703
10
 & 2.6521E-05_JPRB,4.4754E-05_JPRB,5.5165E-03_JPRB/)
704
KAO( :, 1,13, 3) = (/&
705
 & 1.1328E-06_JPRB,2.3238E-06_JPRB,3.9430E-06_JPRB,5.6932E-06_JPRB,8.4038E-06_JPRB,1.1800E-05_JPRB,&
706
10
 & 1.7829E-05_JPRB,3.0820E-05_JPRB,4.4819E-03_JPRB/)
707
KAO( :, 2,13, 3) = (/&
708
 & 1.5311E-06_JPRB,3.0098E-06_JPRB,4.3521E-06_JPRB,6.6679E-06_JPRB,8.7081E-06_JPRB,1.2897E-05_JPRB,&
709
10
 & 1.9883E-05_JPRB,3.4493E-05_JPRB,4.9164E-03_JPRB/)
710
KAO( :, 3,13, 3) = (/&
711
 & 2.0853E-06_JPRB,4.1223E-06_JPRB,5.4114E-06_JPRB,7.2554E-06_JPRB,1.0229E-05_JPRB,1.3641E-05_JPRB,&
712
10
 & 1.9729E-05_JPRB,3.6438E-05_JPRB,5.2852E-03_JPRB/)
713
KAO( :, 4,13, 3) = (/&
714
 & 2.8506E-06_JPRB,5.8568E-06_JPRB,6.9938E-06_JPRB,8.4840E-06_JPRB,1.0942E-05_JPRB,1.5066E-05_JPRB,&
715
10
 & 2.1270E-05_JPRB,3.5313E-05_JPRB,5.5871E-03_JPRB/)
716
KAO( :, 5,13, 3) = (/&
717
 & 3.8711E-06_JPRB,8.0712E-06_JPRB,9.6159E-06_JPRB,1.0719E-05_JPRB,1.2561E-05_JPRB,1.5293E-05_JPRB,&
718
10
 & 2.2681E-05_JPRB,3.7058E-05_JPRB,5.8266E-03_JPRB/)
719
KAO( :, 1, 1, 4) = (/&
720
 & 7.4893E-05_JPRB,1.7660E-04_JPRB,2.0743E-04_JPRB,2.2345E-04_JPRB,2.5541E-04_JPRB,3.0113E-04_JPRB,&
721
10
 & 4.0065E-04_JPRB,5.1140E-04_JPRB,1.9420E-04_JPRB/)
722
KAO( :, 2, 1, 4) = (/&
723
 & 1.0396E-04_JPRB,2.3012E-04_JPRB,2.6622E-04_JPRB,2.8243E-04_JPRB,2.9424E-04_JPRB,3.3000E-04_JPRB,&
724
10
 & 4.1387E-04_JPRB,6.5618E-04_JPRB,1.7248E-04_JPRB/)
725
KAO( :, 3, 1, 4) = (/&
726
 & 1.3874E-04_JPRB,2.9171E-04_JPRB,3.3413E-04_JPRB,3.5198E-04_JPRB,3.5734E-04_JPRB,3.6401E-04_JPRB,&
727
10
 & 4.2489E-04_JPRB,6.4403E-04_JPRB,1.9641E-04_JPRB/)
728
KAO( :, 4, 1, 4) = (/&
729
 & 1.7941E-04_JPRB,3.6434E-04_JPRB,4.1317E-04_JPRB,4.3271E-04_JPRB,4.3728E-04_JPRB,4.3279E-04_JPRB,&
730
10
 & 4.4184E-04_JPRB,6.1293E-04_JPRB,2.4660E-04_JPRB/)
731
KAO( :, 5, 1, 4) = (/&
732
 & 2.2524E-04_JPRB,4.4700E-04_JPRB,5.0389E-04_JPRB,5.2899E-04_JPRB,5.4228E-04_JPRB,5.4473E-04_JPRB,&
733
10
 & 5.3368E-04_JPRB,5.6423E-04_JPRB,3.1492E-04_JPRB/)
734
KAO( :, 1, 2, 4) = (/&
735
 & 5.8910E-05_JPRB,1.3730E-04_JPRB,1.6111E-04_JPRB,1.7338E-04_JPRB,1.9974E-04_JPRB,2.3614E-04_JPRB,&
736
10
 & 3.1448E-04_JPRB,3.8866E-04_JPRB,1.4405E-04_JPRB/)
737
KAO( :, 2, 2, 4) = (/&
738
 & 8.3036E-05_JPRB,1.8135E-04_JPRB,2.0964E-04_JPRB,2.2070E-04_JPRB,2.3158E-04_JPRB,2.7057E-04_JPRB,&
739
10
 & 3.3372E-04_JPRB,5.4726E-04_JPRB,1.2817E-04_JPRB/)
740
KAO( :, 3, 2, 4) = (/&
741
 & 1.1213E-04_JPRB,2.3284E-04_JPRB,2.6662E-04_JPRB,2.8050E-04_JPRB,2.8374E-04_JPRB,2.9072E-04_JPRB,&
742
10
 & 3.5956E-04_JPRB,5.3062E-04_JPRB,1.4567E-04_JPRB/)
743
KAO( :, 4, 2, 4) = (/&
744
 & 1.4639E-04_JPRB,2.9331E-04_JPRB,3.3229E-04_JPRB,3.4773E-04_JPRB,3.4771E-04_JPRB,3.4598E-04_JPRB,&
745
10
 & 3.5609E-04_JPRB,5.3796E-04_JPRB,1.8917E-04_JPRB/)
746
KAO( :, 5, 2, 4) = (/&
747
 & 1.8573E-04_JPRB,3.6333E-04_JPRB,4.0899E-04_JPRB,4.2805E-04_JPRB,4.3596E-04_JPRB,4.3023E-04_JPRB,&
748
10
 & 4.2036E-04_JPRB,4.7310E-04_JPRB,2.4106E-04_JPRB/)
749
KAO( :, 1, 3, 4) = (/&
750
 & 4.2697E-05_JPRB,9.9737E-05_JPRB,1.1762E-04_JPRB,1.3175E-04_JPRB,1.5206E-04_JPRB,1.7738E-04_JPRB,&
751
10
 & 2.2461E-04_JPRB,3.0012E-04_JPRB,9.0760E-05_JPRB/)
752
KAO( :, 2, 3, 4) = (/&
753
 & 6.1628E-05_JPRB,1.3453E-04_JPRB,1.5553E-04_JPRB,1.6395E-04_JPRB,1.7863E-04_JPRB,2.1026E-04_JPRB,&
754
10
 & 2.6559E-04_JPRB,4.0665E-04_JPRB,9.5213E-05_JPRB/)
755
KAO( :, 3, 3, 4) = (/&
756
 & 8.5155E-05_JPRB,1.7580E-04_JPRB,2.0156E-04_JPRB,2.1203E-04_JPRB,2.1267E-04_JPRB,2.2935E-04_JPRB,&
757
10
 & 2.8279E-04_JPRB,4.3028E-04_JPRB,1.1265E-04_JPRB/)
758
KAO( :, 4, 3, 4) = (/&
759
 & 1.1317E-04_JPRB,2.2386E-04_JPRB,2.5438E-04_JPRB,2.6544E-04_JPRB,2.6602E-04_JPRB,2.6653E-04_JPRB,&
760
10
 & 2.9745E-04_JPRB,4.2745E-04_JPRB,1.4173E-04_JPRB/)
761
KAO( :, 5, 3, 4) = (/&
762
 & 1.4597E-04_JPRB,2.8045E-04_JPRB,3.1649E-04_JPRB,3.3077E-04_JPRB,3.3240E-04_JPRB,3.2175E-04_JPRB,&
763
10
 & 3.2192E-04_JPRB,4.1153E-04_JPRB,1.7765E-04_JPRB/)
764
KAO( :, 1, 4, 4) = (/&
765
 & 2.9896E-05_JPRB,7.0709E-05_JPRB,8.4360E-05_JPRB,9.7466E-05_JPRB,1.0874E-04_JPRB,1.3074E-04_JPRB,&
766
10
 & 1.6227E-04_JPRB,2.5464E-04_JPRB,6.8134E-05_JPRB/)
767
KAO( :, 2, 4, 4) = (/&
768
 & 4.4341E-05_JPRB,9.6962E-05_JPRB,1.1247E-04_JPRB,1.1929E-04_JPRB,1.3785E-04_JPRB,1.5834E-04_JPRB,&
769
10
 & 2.0071E-04_JPRB,2.9189E-04_JPRB,7.8206E-05_JPRB/)
770
KAO( :, 3, 4, 4) = (/&
771
 & 6.2914E-05_JPRB,1.2902E-04_JPRB,1.4817E-04_JPRB,1.5527E-04_JPRB,1.5849E-04_JPRB,1.8569E-04_JPRB,&
772
10
 & 2.2497E-04_JPRB,3.4124E-04_JPRB,9.0845E-05_JPRB/)
773
KAO( :, 4, 4, 4) = (/&
774
 & 8.5677E-05_JPRB,1.6689E-04_JPRB,1.9068E-04_JPRB,1.9916E-04_JPRB,1.9978E-04_JPRB,2.0155E-04_JPRB,&
775
10
 & 2.4936E-04_JPRB,3.5340E-04_JPRB,1.0988E-04_JPRB/)
776
KAO( :, 5, 4, 4) = (/&
777
 & 1.1242E-04_JPRB,2.1149E-04_JPRB,2.3915E-04_JPRB,2.5028E-04_JPRB,2.4989E-04_JPRB,2.4272E-04_JPRB,&
778
10
 & 2.4831E-04_JPRB,3.6709E-04_JPRB,1.3381E-04_JPRB/)
779
KAO( :, 1, 5, 4) = (/&
780
 & 2.0688E-05_JPRB,4.9203E-05_JPRB,5.9785E-05_JPRB,6.6990E-05_JPRB,7.8124E-05_JPRB,9.2624E-05_JPRB,&
781
10
 & 1.2472E-04_JPRB,2.0745E-04_JPRB,6.1812E-05_JPRB/)
782
KAO( :, 2, 5, 4) = (/&
783
 & 3.1637E-05_JPRB,6.9271E-05_JPRB,8.0604E-05_JPRB,9.0077E-05_JPRB,1.0181E-04_JPRB,1.1707E-04_JPRB,&
784
10
 & 1.4853E-04_JPRB,2.1722E-04_JPRB,7.1005E-05_JPRB/)
785
KAO( :, 3, 5, 4) = (/&
786
 & 4.6076E-05_JPRB,9.3625E-05_JPRB,1.0769E-04_JPRB,1.1334E-04_JPRB,1.2174E-04_JPRB,1.4414E-04_JPRB,&
787
10
 & 1.7668E-04_JPRB,2.5800E-04_JPRB,8.3094E-05_JPRB/)
788
KAO( :, 4, 5, 4) = (/&
789
 & 6.4341E-05_JPRB,1.2346E-04_JPRB,1.4103E-04_JPRB,1.4850E-04_JPRB,1.4693E-04_JPRB,1.5815E-04_JPRB,&
790
10
 & 1.9286E-04_JPRB,2.8817E-04_JPRB,9.6701E-05_JPRB/)
791
KAO( :, 5, 5, 4) = (/&
792
 & 8.6238E-05_JPRB,1.5868E-04_JPRB,1.7942E-04_JPRB,1.8707E-04_JPRB,1.8806E-04_JPRB,1.8319E-04_JPRB,&
793
10
 & 2.0554E-04_JPRB,2.8611E-04_JPRB,1.1287E-04_JPRB/)
794
KAO( :, 1, 6, 4) = (/&
795
 & 1.4006E-05_JPRB,3.3343E-05_JPRB,4.0079E-05_JPRB,4.5588E-05_JPRB,5.4107E-05_JPRB,6.6418E-05_JPRB,&
796
10
 & 1.0066E-04_JPRB,1.4196E-04_JPRB,6.6243E-05_JPRB/)
797
KAO( :, 2, 6, 4) = (/&
798
 & 2.2071E-05_JPRB,4.8614E-05_JPRB,5.7228E-05_JPRB,6.5093E-05_JPRB,7.1721E-05_JPRB,8.5635E-05_JPRB,&
799
10
 & 1.0856E-04_JPRB,1.8021E-04_JPRB,7.5554E-05_JPRB/)
800
KAO( :, 3, 6, 4) = (/&
801
 & 3.3040E-05_JPRB,6.6682E-05_JPRB,7.6698E-05_JPRB,8.2380E-05_JPRB,9.3552E-05_JPRB,1.0700E-04_JPRB,&
802
10
 & 1.3596E-04_JPRB,1.9405E-04_JPRB,8.6063E-05_JPRB/)
803
KAO( :, 4, 6, 4) = (/&
804
 & 4.7386E-05_JPRB,8.9793E-05_JPRB,1.0237E-04_JPRB,1.0759E-04_JPRB,1.0965E-04_JPRB,1.2726E-04_JPRB,&
805
10
 & 1.5398E-04_JPRB,2.2704E-04_JPRB,9.8696E-05_JPRB/)
806
KAO( :, 5, 6, 4) = (/&
807
 & 6.5121E-05_JPRB,1.1757E-04_JPRB,1.3268E-04_JPRB,1.3869E-04_JPRB,1.4006E-04_JPRB,1.3836E-04_JPRB,&
808
10
 & 1.7051E-04_JPRB,2.3669E-04_JPRB,1.1305E-04_JPRB/)
809
KAO( :, 1, 7, 4) = (/&
810
 & 9.5061E-06_JPRB,2.2311E-05_JPRB,2.6088E-05_JPRB,3.0162E-05_JPRB,3.7877E-05_JPRB,5.4505E-05_JPRB,&
811
10
 & 7.5227E-05_JPRB,1.1255E-04_JPRB,8.3483E-05_JPRB/)
812
KAO( :, 2, 7, 4) = (/&
813
 & 1.5323E-05_JPRB,3.3598E-05_JPRB,4.0386E-05_JPRB,4.3881E-05_JPRB,5.0583E-05_JPRB,6.2493E-05_JPRB,&
814
10
 & 8.2842E-05_JPRB,1.4322E-04_JPRB,9.4311E-05_JPRB/)
815
KAO( :, 3, 7, 4) = (/&
816
 & 2.3596E-05_JPRB,4.7494E-05_JPRB,5.4556E-05_JPRB,6.1372E-05_JPRB,6.7015E-05_JPRB,7.9350E-05_JPRB,&
817
10
 & 9.7496E-05_JPRB,1.4436E-04_JPRB,1.0703E-04_JPRB/)
818
KAO( :, 4, 7, 4) = (/&
819
 & 3.4570E-05_JPRB,6.4860E-05_JPRB,7.3694E-05_JPRB,7.7754E-05_JPRB,8.4695E-05_JPRB,9.7029E-05_JPRB,&
820
10
 & 1.1678E-04_JPRB,1.6858E-04_JPRB,1.2127E-04_JPRB/)
821
KAO( :, 5, 7, 4) = (/&
822
 & 4.8551E-05_JPRB,8.6609E-05_JPRB,9.7619E-05_JPRB,1.0164E-04_JPRB,1.0226E-04_JPRB,1.0885E-04_JPRB,&
823
10
 & 1.3405E-04_JPRB,1.9133E-04_JPRB,1.3656E-04_JPRB/)
824
KAO( :, 1, 8, 4) = (/&
825
 & 6.7311E-06_JPRB,1.4755E-05_JPRB,1.6935E-05_JPRB,2.1463E-05_JPRB,3.1231E-05_JPRB,4.0742E-05_JPRB,&
826
10
 & 5.6656E-05_JPRB,8.5927E-05_JPRB,1.5049E-04_JPRB/)
827
KAO( :, 2, 8, 4) = (/&
828
 & 1.0838E-05_JPRB,2.3183E-05_JPRB,2.7453E-05_JPRB,3.0553E-05_JPRB,3.5694E-05_JPRB,4.6374E-05_JPRB,&
829
10
 & 6.9419E-05_JPRB,1.0643E-04_JPRB,1.6866E-04_JPRB/)
830
KAO( :, 3, 8, 4) = (/&
831
 & 1.6914E-05_JPRB,3.3766E-05_JPRB,3.8989E-05_JPRB,4.4447E-05_JPRB,4.8070E-05_JPRB,5.7198E-05_JPRB,&
832
10
 & 7.1116E-05_JPRB,1.2478E-04_JPRB,1.8779E-04_JPRB/)
833
KAO( :, 4, 8, 4) = (/&
834
 & 2.5195E-05_JPRB,4.6972E-05_JPRB,5.3026E-05_JPRB,5.6927E-05_JPRB,6.4565E-05_JPRB,7.1923E-05_JPRB,&
835
10
 & 9.0751E-05_JPRB,1.2249E-04_JPRB,2.0805E-04_JPRB/)
836
KAO( :, 5, 8, 4) = (/&
837
 & 3.5942E-05_JPRB,6.3786E-05_JPRB,7.1729E-05_JPRB,7.3949E-05_JPRB,7.6446E-05_JPRB,8.8163E-05_JPRB,&
838
10
 & 1.0367E-04_JPRB,1.5461E-04_JPRB,2.3067E-04_JPRB/)
839
KAO( :, 1, 9, 4) = (/&
840
 & 5.1599E-06_JPRB,1.0081E-05_JPRB,1.1772E-05_JPRB,1.6698E-05_JPRB,2.2821E-05_JPRB,2.9936E-05_JPRB,&
841
10
 & 4.2105E-05_JPRB,6.2990E-05_JPRB,5.8733E-04_JPRB/)
842
KAO( :, 2, 9, 4) = (/&
843
 & 8.0231E-06_JPRB,1.6031E-05_JPRB,1.8581E-05_JPRB,2.0889E-05_JPRB,2.6202E-05_JPRB,3.8502E-05_JPRB,&
844
10
 & 5.1188E-05_JPRB,8.2231E-05_JPRB,6.4455E-04_JPRB/)
845
KAO( :, 3, 9, 4) = (/&
846
 & 1.2365E-05_JPRB,2.3962E-05_JPRB,2.7785E-05_JPRB,3.0574E-05_JPRB,3.4959E-05_JPRB,4.1433E-05_JPRB,&
847
10
 & 5.7939E-05_JPRB,9.7311E-05_JPRB,7.0196E-04_JPRB/)
848
KAO( :, 4, 9, 4) = (/&
849
 & 1.8494E-05_JPRB,3.4148E-05_JPRB,3.8522E-05_JPRB,4.2610E-05_JPRB,4.6125E-05_JPRB,5.4566E-05_JPRB,&
850
10
 & 6.5066E-05_JPRB,9.3543E-05_JPRB,7.5838E-04_JPRB/)
851
KAO( :, 5, 9, 4) = (/&
852
 & 2.6560E-05_JPRB,4.6839E-05_JPRB,5.2429E-05_JPRB,5.4183E-05_JPRB,5.9609E-05_JPRB,6.7149E-05_JPRB,&
853
10
 & 7.9436E-05_JPRB,1.1417E-04_JPRB,8.1247E-04_JPRB/)
854
KAO( :, 1,10, 4) = (/&
855
 & 4.5845E-06_JPRB,7.8051E-06_JPRB,9.3693E-06_JPRB,1.2991E-05_JPRB,1.7572E-05_JPRB,2.3437E-05_JPRB,&
856
10
 & 3.3813E-05_JPRB,4.9188E-05_JPRB,3.3674E-03_JPRB/)
857
KAO( :, 2,10, 4) = (/&
858
 & 6.8084E-06_JPRB,1.2034E-05_JPRB,1.3688E-05_JPRB,1.5733E-05_JPRB,2.1211E-05_JPRB,2.9098E-05_JPRB,&
859
10
 & 3.8545E-05_JPRB,6.3500E-05_JPRB,3.6391E-03_JPRB/)
860
KAO( :, 3,10, 4) = (/&
861
 & 1.0062E-05_JPRB,1.7982E-05_JPRB,2.0409E-05_JPRB,2.2663E-05_JPRB,2.5613E-05_JPRB,3.1784E-05_JPRB,&
862
10
 & 4.7385E-05_JPRB,7.3006E-05_JPRB,3.8993E-03_JPRB/)
863
KAO( :, 4,10, 4) = (/&
864
 & 1.4658E-05_JPRB,2.5727E-05_JPRB,2.8782E-05_JPRB,3.2310E-05_JPRB,3.4485E-05_JPRB,4.0752E-05_JPRB,&
865
10
 & 4.8720E-05_JPRB,8.2499E-05_JPRB,4.1490E-03_JPRB/)
866
KAO( :, 5,10, 4) = (/&
867
 & 2.0786E-05_JPRB,3.5657E-05_JPRB,3.9659E-05_JPRB,4.1123E-05_JPRB,4.6983E-05_JPRB,5.0556E-05_JPRB,&
868
10
 & 6.3521E-05_JPRB,8.4499E-05_JPRB,4.3775E-03_JPRB/)
869
KAO( :, 1,11, 4) = (/&
870
 & 5.0356E-06_JPRB,7.7353E-06_JPRB,8.8833E-06_JPRB,1.1452E-05_JPRB,1.5243E-05_JPRB,2.1044E-05_JPRB,&
871
10
 & 2.8338E-05_JPRB,4.9949E-05_JPRB,7.2577E-03_JPRB/)
872
KAO( :, 2,11, 4) = (/&
873
 & 7.2423E-06_JPRB,1.1514E-05_JPRB,1.2798E-05_JPRB,1.4086E-05_JPRB,1.8007E-05_JPRB,2.4558E-05_JPRB,&
874
10
 & 3.3851E-05_JPRB,5.2802E-05_JPRB,7.8158E-03_JPRB/)
875
KAO( :, 3,11, 4) = (/&
876
 & 1.0309E-05_JPRB,1.6653E-05_JPRB,1.8407E-05_JPRB,2.0089E-05_JPRB,2.2296E-05_JPRB,2.7018E-05_JPRB,&
877
10
 & 3.8586E-05_JPRB,6.0068E-05_JPRB,8.3354E-03_JPRB/)
878
KAO( :, 4,11, 4) = (/&
879
 & 1.4421E-05_JPRB,2.3379E-05_JPRB,2.5740E-05_JPRB,2.7750E-05_JPRB,3.0309E-05_JPRB,3.4851E-05_JPRB,&
880
10
 & 4.1245E-05_JPRB,6.8211E-05_JPRB,8.8296E-03_JPRB/)
881
KAO( :, 5,11, 4) = (/&
882
 & 1.9663E-05_JPRB,3.1842E-05_JPRB,3.4991E-05_JPRB,3.6140E-05_JPRB,3.9688E-05_JPRB,4.2983E-05_JPRB,&
883
10
 & 5.3776E-05_JPRB,6.9907E-05_JPRB,9.2688E-03_JPRB/)
884
KAO( :, 1,12, 4) = (/&
885
 & 5.1165E-06_JPRB,7.4029E-06_JPRB,8.1941E-06_JPRB,1.0138E-05_JPRB,1.3490E-05_JPRB,1.7256E-05_JPRB,&
886
10
 & 2.4419E-05_JPRB,4.0146E-05_JPRB,9.9448E-03_JPRB/)
887
KAO( :, 2,12, 4) = (/&
888
 & 7.2283E-06_JPRB,1.0802E-05_JPRB,1.1887E-05_JPRB,1.2642E-05_JPRB,1.5734E-05_JPRB,2.0542E-05_JPRB,&
889
10
 & 2.7886E-05_JPRB,4.3910E-05_JPRB,1.0705E-02_JPRB/)
890
KAO( :, 3,12, 4) = (/&
891
 & 1.0065E-05_JPRB,1.5284E-05_JPRB,1.6642E-05_JPRB,1.8157E-05_JPRB,1.9448E-05_JPRB,2.3207E-05_JPRB,&
892
10
 & 3.2168E-05_JPRB,5.3905E-05_JPRB,1.1409E-02_JPRB/)
893
KAO( :, 4,12, 4) = (/&
894
 & 1.3731E-05_JPRB,2.1142E-05_JPRB,2.2780E-05_JPRB,2.4378E-05_JPRB,2.6665E-05_JPRB,2.9738E-05_JPRB,&
895
10
 & 3.5163E-05_JPRB,5.5828E-05_JPRB,1.2051E-02_JPRB/)
896
KAO( :, 5,12, 4) = (/&
897
 & 1.8328E-05_JPRB,2.8382E-05_JPRB,3.0850E-05_JPRB,3.1430E-05_JPRB,3.3929E-05_JPRB,3.7016E-05_JPRB,&
898
10
 & 4.5266E-05_JPRB,5.8847E-05_JPRB,1.2603E-02_JPRB/)
899
KAO( :, 1,13, 4) = (/&
900
 & 5.1628E-06_JPRB,7.0476E-06_JPRB,7.6783E-06_JPRB,9.1901E-06_JPRB,1.1659E-05_JPRB,1.4990E-05_JPRB,&
901
10
 & 2.0746E-05_JPRB,3.1591E-05_JPRB,1.0979E-02_JPRB/)
902
KAO( :, 2,13, 4) = (/&
903
 & 7.1656E-06_JPRB,1.0090E-05_JPRB,1.0951E-05_JPRB,1.1562E-05_JPRB,1.3750E-05_JPRB,1.7398E-05_JPRB,&
904
10
 & 2.3701E-05_JPRB,3.7488E-05_JPRB,1.1813E-02_JPRB/)
905
KAO( :, 3,13, 4) = (/&
906
 & 9.7810E-06_JPRB,1.4159E-05_JPRB,1.5003E-05_JPRB,1.6207E-05_JPRB,1.7175E-05_JPRB,1.9965E-05_JPRB,&
907
10
 & 2.7079E-05_JPRB,4.3382E-05_JPRB,1.2578E-02_JPRB/)
908
KAO( :, 4,13, 4) = (/&
909
 & 1.3104E-05_JPRB,1.9253E-05_JPRB,2.0395E-05_JPRB,2.1436E-05_JPRB,2.3261E-05_JPRB,2.5640E-05_JPRB,&
910
10
 & 2.9895E-05_JPRB,4.6045E-05_JPRB,1.3231E-02_JPRB/)
911
KAO( :, 5,13, 4) = (/&
912
 & 1.7208E-05_JPRB,2.5546E-05_JPRB,2.7424E-05_JPRB,2.7535E-05_JPRB,2.9380E-05_JPRB,3.2546E-05_JPRB,&
913
10
 & 3.8040E-05_JPRB,4.9840E-05_JPRB,1.3742E-02_JPRB/)
914
KAO( :, 1, 1, 5) = (/&
915
 & 3.1090E-04_JPRB,4.1312E-04_JPRB,4.5176E-04_JPRB,4.6856E-04_JPRB,4.5586E-04_JPRB,4.3213E-04_JPRB,&
916
10
 & 4.5397E-04_JPRB,7.8015E-04_JPRB,2.0103E-04_JPRB/)
917
KAO( :, 2, 1, 5) = (/&
918
 & 3.8398E-04_JPRB,5.2122E-04_JPRB,5.7336E-04_JPRB,6.0217E-04_JPRB,6.0591E-04_JPRB,5.7511E-04_JPRB,&
919
10
 & 5.3422E-04_JPRB,6.1896E-04_JPRB,2.8351E-04_JPRB/)
920
KAO( :, 3, 1, 5) = (/&
921
 & 4.6534E-04_JPRB,6.4382E-04_JPRB,7.1301E-04_JPRB,7.5438E-04_JPRB,7.7134E-04_JPRB,7.6006E-04_JPRB,&
922
10
 & 7.0811E-04_JPRB,7.4234E-04_JPRB,3.7763E-04_JPRB/)
923
KAO( :, 4, 1, 5) = (/&
924
 & 5.5987E-04_JPRB,7.8442E-04_JPRB,8.7478E-04_JPRB,9.3078E-04_JPRB,9.6145E-04_JPRB,9.6632E-04_JPRB,&
925
10
 & 9.4057E-04_JPRB,8.7094E-04_JPRB,4.7321E-04_JPRB/)
926
KAO( :, 5, 1, 5) = (/&
927
 & 6.6579E-04_JPRB,9.4348E-04_JPRB,1.0594E-03_JPRB,1.1323E-03_JPRB,1.1769E-03_JPRB,1.1973E-03_JPRB,&
928
10
 & 1.1941E-03_JPRB,1.1720E-03_JPRB,5.8670E-04_JPRB/)
929
KAO( :, 1, 2, 5) = (/&
930
 & 2.4736E-04_JPRB,3.2724E-04_JPRB,3.5306E-04_JPRB,3.6178E-04_JPRB,3.4912E-04_JPRB,3.3979E-04_JPRB,&
931
10
 & 3.6882E-04_JPRB,6.4661E-04_JPRB,1.4637E-04_JPRB/)
932
KAO( :, 2, 2, 5) = (/&
933
 & 3.1002E-04_JPRB,4.1717E-04_JPRB,4.5359E-04_JPRB,4.7283E-04_JPRB,4.7168E-04_JPRB,4.4103E-04_JPRB,&
934
10
 & 4.4124E-04_JPRB,5.1519E-04_JPRB,2.1389E-04_JPRB/)
935
KAO( :, 3, 2, 5) = (/&
936
 & 3.8079E-04_JPRB,5.2107E-04_JPRB,5.7062E-04_JPRB,5.9973E-04_JPRB,6.0662E-04_JPRB,5.9325E-04_JPRB,&
937
10
 & 5.3745E-04_JPRB,5.8652E-04_JPRB,2.8633E-04_JPRB/)
938
KAO( :, 4, 2, 5) = (/&
939
 & 4.6210E-04_JPRB,6.4094E-04_JPRB,7.0763E-04_JPRB,7.4776E-04_JPRB,7.6652E-04_JPRB,7.5984E-04_JPRB,&
940
10
 & 7.3202E-04_JPRB,6.4140E-04_JPRB,3.5290E-04_JPRB/)
941
KAO( :, 5, 2, 5) = (/&
942
 & 5.5546E-04_JPRB,7.7925E-04_JPRB,8.6616E-04_JPRB,9.1863E-04_JPRB,9.4674E-04_JPRB,9.5490E-04_JPRB,&
943
10
 & 9.4094E-04_JPRB,9.1867E-04_JPRB,4.4201E-04_JPRB/)
944
KAO( :, 1, 3, 5) = (/&
945
 & 1.8639E-04_JPRB,2.4387E-04_JPRB,2.5915E-04_JPRB,2.5906E-04_JPRB,2.4918E-04_JPRB,2.5967E-04_JPRB,&
946
10
 & 3.1653E-04_JPRB,4.7580E-04_JPRB,1.1679E-04_JPRB/)
947
KAO( :, 2, 3, 5) = (/&
948
 & 2.3798E-04_JPRB,3.1564E-04_JPRB,3.3906E-04_JPRB,3.5000E-04_JPRB,3.4157E-04_JPRB,3.1943E-04_JPRB,&
949
10
 & 3.2743E-04_JPRB,4.5496E-04_JPRB,1.5856E-04_JPRB/)
950
KAO( :, 3, 3, 5) = (/&
951
 & 2.9733E-04_JPRB,4.0070E-04_JPRB,4.3349E-04_JPRB,4.5188E-04_JPRB,4.5270E-04_JPRB,4.3123E-04_JPRB,&
952
10
 & 3.9880E-04_JPRB,4.4081E-04_JPRB,2.0446E-04_JPRB/)
953
KAO( :, 4, 3, 5) = (/&
954
 & 3.6501E-04_JPRB,4.9946E-04_JPRB,5.4499E-04_JPRB,5.7170E-04_JPRB,5.7932E-04_JPRB,5.6633E-04_JPRB,&
955
10
 & 5.2704E-04_JPRB,5.1414E-04_JPRB,2.5539E-04_JPRB/)
956
KAO( :, 5, 3, 5) = (/&
957
 & 4.4410E-04_JPRB,6.1578E-04_JPRB,6.7619E-04_JPRB,7.1133E-04_JPRB,7.2738E-04_JPRB,7.2351E-04_JPRB,&
958
10
 & 7.0138E-04_JPRB,6.6673E-04_JPRB,3.2169E-04_JPRB/)
959
KAO( :, 1, 4, 5) = (/&
960
 & 1.3808E-04_JPRB,1.7775E-04_JPRB,1.8565E-04_JPRB,1.8174E-04_JPRB,1.8202E-04_JPRB,1.9738E-04_JPRB,&
961
10
 & 2.6854E-04_JPRB,3.3980E-04_JPRB,9.6622E-05_JPRB/)
962
KAO( :, 2, 4, 5) = (/&
963
 & 1.7835E-04_JPRB,2.3331E-04_JPRB,2.4753E-04_JPRB,2.5139E-04_JPRB,2.3877E-04_JPRB,2.3221E-04_JPRB,&
964
10
 & 2.5394E-04_JPRB,4.0618E-04_JPRB,1.2075E-04_JPRB/)
965
KAO( :, 3, 4, 5) = (/&
966
 & 2.2702E-04_JPRB,3.0170E-04_JPRB,3.2275E-04_JPRB,3.3261E-04_JPRB,3.2998E-04_JPRB,3.0635E-04_JPRB,&
967
10
 & 3.0422E-04_JPRB,3.7513E-04_JPRB,1.4994E-04_JPRB/)
968
KAO( :, 4, 4, 5) = (/&
969
 & 2.8327E-04_JPRB,3.8288E-04_JPRB,4.1191E-04_JPRB,4.2826E-04_JPRB,4.2837E-04_JPRB,4.1511E-04_JPRB,&
970
10
 & 3.7299E-04_JPRB,4.1488E-04_JPRB,1.8740E-04_JPRB/)
971
KAO( :, 5, 4, 5) = (/&
972
 & 3.4778E-04_JPRB,4.7798E-04_JPRB,5.1863E-04_JPRB,5.4065E-04_JPRB,5.4665E-04_JPRB,5.3624E-04_JPRB,&
973
10
 & 5.0550E-04_JPRB,4.5874E-04_JPRB,2.3509E-04_JPRB/)
974
975
1
IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART3',1,ZHOOK_HANDLE)
976
1
END SUBROUTINE PART3
977
978
979
1
SUBROUTINE PART4
980
981
REAL(KIND=JPRB) :: ZHOOK_HANDLE
982
1
IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART4',0,ZHOOK_HANDLE)
983
984
985
KAO( :, 1, 5, 5) = (/&
986
 & 1.0090E-04_JPRB,1.2840E-04_JPRB,1.3222E-04_JPRB,1.3092E-04_JPRB,1.3649E-04_JPRB,1.6019E-04_JPRB,&
987
10
 & 2.1671E-04_JPRB,2.5303E-04_JPRB,9.1217E-05_JPRB/)
988
KAO( :, 2, 5, 5) = (/&
989
 & 1.3290E-04_JPRB,1.7161E-04_JPRB,1.7952E-04_JPRB,1.7693E-04_JPRB,1.6957E-04_JPRB,1.7378E-04_JPRB,&
990
10
 & 2.2031E-04_JPRB,3.2593E-04_JPRB,1.0460E-04_JPRB/)
991
KAO( :, 3, 5, 5) = (/&
992
 & 1.7169E-04_JPRB,2.2556E-04_JPRB,2.3842E-04_JPRB,2.4266E-04_JPRB,2.3387E-04_JPRB,2.1722E-04_JPRB,&
993
10
 & 2.2376E-04_JPRB,3.3249E-04_JPRB,1.2312E-04_JPRB/)
994
KAO( :, 4, 5, 5) = (/&
995
 & 2.1761E-04_JPRB,2.9095E-04_JPRB,3.1013E-04_JPRB,3.1776E-04_JPRB,3.1556E-04_JPRB,2.9734E-04_JPRB,&
996
10
 & 2.7621E-04_JPRB,3.0674E-04_JPRB,1.4846E-04_JPRB/)
997
KAO( :, 5, 5, 5) = (/&
998
 & 2.6974E-04_JPRB,3.6873E-04_JPRB,3.9640E-04_JPRB,4.0873E-04_JPRB,4.0796E-04_JPRB,3.9425E-04_JPRB,&
999
10
 & 3.6157E-04_JPRB,3.6174E-04_JPRB,1.8146E-04_JPRB/)
1000
KAO( :, 1, 6, 5) = (/&
1001
 & 7.2092E-05_JPRB,9.1048E-05_JPRB,9.3429E-05_JPRB,9.5226E-05_JPRB,1.0150E-04_JPRB,1.3173E-04_JPRB,&
1002
10
 & 1.4984E-04_JPRB,1.9196E-04_JPRB,9.8397E-05_JPRB/)
1003
KAO( :, 2, 6, 5) = (/&
1004
 & 9.7448E-05_JPRB,1.2423E-04_JPRB,1.2792E-04_JPRB,1.2413E-04_JPRB,1.2424E-04_JPRB,1.3383E-04_JPRB,&
1005
10
 & 1.7960E-04_JPRB,2.4434E-04_JPRB,1.1133E-04_JPRB/)
1006
KAO( :, 3, 6, 5) = (/&
1007
 & 1.2736E-04_JPRB,1.6584E-04_JPRB,1.7360E-04_JPRB,1.7200E-04_JPRB,1.6167E-04_JPRB,1.5892E-04_JPRB,&
1008
10
 & 1.7153E-04_JPRB,2.8218E-04_JPRB,1.2781E-04_JPRB/)
1009
KAO( :, 4, 6, 5) = (/&
1010
 & 1.6376E-04_JPRB,2.1742E-04_JPRB,2.3003E-04_JPRB,2.3266E-04_JPRB,2.2686E-04_JPRB,2.0723E-04_JPRB,&
1011
10
 & 2.0538E-04_JPRB,2.5489E-04_JPRB,1.4690E-04_JPRB/)
1012
KAO( :, 5, 6, 5) = (/&
1013
 & 2.0555E-04_JPRB,2.7960E-04_JPRB,2.9861E-04_JPRB,3.0501E-04_JPRB,3.0003E-04_JPRB,2.8746E-04_JPRB,&
1014
10
 & 2.5983E-04_JPRB,2.8313E-04_JPRB,1.7007E-04_JPRB/)
1015
KAO( :, 1, 7, 5) = (/&
1016
 & 5.0915E-05_JPRB,6.4096E-05_JPRB,6.5839E-05_JPRB,7.0435E-05_JPRB,8.2474E-05_JPRB,1.0016E-04_JPRB,&
1017
10
 & 1.1360E-04_JPRB,1.4590E-04_JPRB,1.4032E-04_JPRB/)
1018
KAO( :, 2, 7, 5) = (/&
1019
 & 7.0625E-05_JPRB,8.9097E-05_JPRB,9.0314E-05_JPRB,8.9429E-05_JPRB,9.3251E-05_JPRB,1.0724E-04_JPRB,&
1020
10
 & 1.4912E-04_JPRB,1.8863E-04_JPRB,1.5518E-04_JPRB/)
1021
KAO( :, 3, 7, 5) = (/&
1022
 & 9.4098E-05_JPRB,1.2125E-04_JPRB,1.2537E-04_JPRB,1.2091E-04_JPRB,1.1603E-04_JPRB,1.1857E-04_JPRB,&
1023
10
 & 1.4624E-04_JPRB,2.2506E-04_JPRB,1.7262E-04_JPRB/)
1024
KAO( :, 4, 7, 5) = (/&
1025
 & 1.2191E-04_JPRB,1.6102E-04_JPRB,1.6901E-04_JPRB,1.6848E-04_JPRB,1.5829E-04_JPRB,1.4830E-04_JPRB,&
1026
10
 & 1.5156E-04_JPRB,2.2031E-04_JPRB,1.9339E-04_JPRB/)
1027
KAO( :, 5, 7, 5) = (/&
1028
 & 1.5529E-04_JPRB,2.0973E-04_JPRB,2.2297E-04_JPRB,2.2562E-04_JPRB,2.1894E-04_JPRB,2.0410E-04_JPRB,&
1029
10
 & 1.8782E-04_JPRB,2.1024E-04_JPRB,2.1671E-04_JPRB/)
1030
KAO( :, 1, 8, 5) = (/&
1031
 & 3.6049E-05_JPRB,4.5291E-05_JPRB,4.7754E-05_JPRB,5.1919E-05_JPRB,6.1186E-05_JPRB,6.9190E-05_JPRB,&
1032
10
 & 8.4378E-05_JPRB,1.1648E-04_JPRB,2.7572E-04_JPRB/)
1033
KAO( :, 2, 8, 5) = (/&
1034
 & 5.1045E-05_JPRB,6.3896E-05_JPRB,6.4272E-05_JPRB,6.5150E-05_JPRB,6.9954E-05_JPRB,8.8868E-05_JPRB,&
1035
10
 & 1.0162E-04_JPRB,1.4598E-04_JPRB,3.0000E-04_JPRB/)
1036
KAO( :, 3, 8, 5) = (/&
1037
 & 6.9216E-05_JPRB,8.8252E-05_JPRB,9.0050E-05_JPRB,8.5873E-05_JPRB,8.5359E-05_JPRB,9.1693E-05_JPRB,&
1038
10
 & 1.2432E-04_JPRB,1.5741E-04_JPRB,3.2619E-04_JPRB/)
1039
KAO( :, 4, 8, 5) = (/&
1040
 & 9.0719E-05_JPRB,1.1854E-04_JPRB,1.2391E-04_JPRB,1.2089E-04_JPRB,1.1160E-04_JPRB,1.0845E-04_JPRB,&
1041
10
 & 1.1912E-04_JPRB,1.9063E-04_JPRB,3.5459E-04_JPRB/)
1042
KAO( :, 5, 8, 5) = (/&
1043
 & 1.1702E-04_JPRB,1.5606E-04_JPRB,1.6531E-04_JPRB,1.6622E-04_JPRB,1.5932E-04_JPRB,1.4248E-04_JPRB,&
1044
10
 & 1.4183E-04_JPRB,1.7131E-04_JPRB,3.8497E-04_JPRB/)
1045
KAO( :, 1, 9, 5) = (/&
1046
 & 2.5866E-05_JPRB,3.2320E-05_JPRB,3.4576E-05_JPRB,3.8709E-05_JPRB,4.6229E-05_JPRB,5.2438E-05_JPRB,&
1047
10
 & 6.5503E-05_JPRB,9.3730E-05_JPRB,1.1703E-03_JPRB/)
1048
KAO( :, 2, 9, 5) = (/&
1049
 & 3.7130E-05_JPRB,4.6042E-05_JPRB,4.6409E-05_JPRB,4.8783E-05_JPRB,5.6170E-05_JPRB,6.7762E-05_JPRB,&
1050
10
 & 7.7225E-05_JPRB,1.1273E-04_JPRB,1.2364E-03_JPRB/)
1051
KAO( :, 3, 9, 5) = (/&
1052
 & 5.1057E-05_JPRB,6.4238E-05_JPRB,6.4747E-05_JPRB,6.3009E-05_JPRB,6.3858E-05_JPRB,7.4779E-05_JPRB,&
1053
10
 & 9.9385E-05_JPRB,1.2137E-04_JPRB,1.3035E-03_JPRB/)
1054
KAO( :, 4, 9, 5) = (/&
1055
 & 6.7872E-05_JPRB,8.7074E-05_JPRB,9.0171E-05_JPRB,8.6365E-05_JPRB,8.1775E-05_JPRB,8.1150E-05_JPRB,&
1056
10
 & 1.0091E-04_JPRB,1.5846E-04_JPRB,1.3706E-03_JPRB/)
1057
KAO( :, 5, 9, 5) = (/&
1058
 & 8.8212E-05_JPRB,1.1565E-04_JPRB,1.2170E-04_JPRB,1.2148E-04_JPRB,1.1255E-04_JPRB,1.0392E-04_JPRB,&
1059
10
 & 1.0391E-04_JPRB,1.5035E-04_JPRB,1.4393E-03_JPRB/)
1060
KAO( :, 1,10, 5) = (/&
1061
 & 2.0052E-05_JPRB,2.4599E-05_JPRB,2.6224E-05_JPRB,2.9775E-05_JPRB,3.4377E-05_JPRB,3.9753E-05_JPRB,&
1062
10
 & 5.1870E-05_JPRB,7.0614E-05_JPRB,6.9310E-03_JPRB/)
1063
KAO( :, 2,10, 5) = (/&
1064
 & 2.8642E-05_JPRB,3.5006E-05_JPRB,3.5601E-05_JPRB,3.7670E-05_JPRB,4.4192E-05_JPRB,5.0297E-05_JPRB,&
1065
10
 & 6.0753E-05_JPRB,8.8409E-05_JPRB,7.2473E-03_JPRB/)
1066
KAO( :, 3,10, 5) = (/&
1067
 & 3.9509E-05_JPRB,4.8803E-05_JPRB,4.8668E-05_JPRB,4.7951E-05_JPRB,5.0708E-05_JPRB,6.1469E-05_JPRB,&
1068
10
 & 7.4297E-05_JPRB,9.6176E-05_JPRB,7.5424E-03_JPRB/)
1069
KAO( :, 4,10, 5) = (/&
1070
 & 5.2822E-05_JPRB,6.6323E-05_JPRB,6.7918E-05_JPRB,6.3993E-05_JPRB,6.2062E-05_JPRB,6.4519E-05_JPRB,&
1071
10
 & 8.5147E-05_JPRB,1.1230E-04_JPRB,7.8121E-03_JPRB/)
1072
KAO( :, 5,10, 5) = (/&
1073
 & 6.8969E-05_JPRB,8.8314E-05_JPRB,9.1957E-05_JPRB,9.0701E-05_JPRB,8.2062E-05_JPRB,7.8779E-05_JPRB,&
1074
10
 & 8.1888E-05_JPRB,1.3051E-04_JPRB,8.0714E-03_JPRB/)
1075
KAO( :, 1,11, 5) = (/&
1076
 & 1.9311E-05_JPRB,2.2943E-05_JPRB,2.3712E-05_JPRB,2.6076E-05_JPRB,2.9763E-05_JPRB,3.4761E-05_JPRB,&
1077
10
 & 4.2561E-05_JPRB,5.7624E-05_JPRB,1.5187E-02_JPRB/)
1078
KAO( :, 2,11, 5) = (/&
1079
 & 2.6757E-05_JPRB,3.2178E-05_JPRB,3.2098E-05_JPRB,3.3425E-05_JPRB,3.7561E-05_JPRB,4.3432E-05_JPRB,&
1080
10
 & 5.1256E-05_JPRB,7.3332E-05_JPRB,1.5840E-02_JPRB/)
1081
KAO( :, 3,11, 5) = (/&
1082
 & 3.6196E-05_JPRB,4.4102E-05_JPRB,4.3948E-05_JPRB,4.2431E-05_JPRB,4.4099E-05_JPRB,5.1811E-05_JPRB,&
1083
10
 & 6.2145E-05_JPRB,8.0656E-05_JPRB,1.6449E-02_JPRB/)
1084
KAO( :, 4,11, 5) = (/&
1085
 & 4.7882E-05_JPRB,5.9111E-05_JPRB,6.0086E-05_JPRB,5.7204E-05_JPRB,5.4371E-05_JPRB,5.5076E-05_JPRB,&
1086
10
 & 7.0526E-05_JPRB,9.2945E-05_JPRB,1.6989E-02_JPRB/)
1087
KAO( :, 5,11, 5) = (/&
1088
 & 6.2068E-05_JPRB,7.8174E-05_JPRB,8.0859E-05_JPRB,7.9258E-05_JPRB,7.2738E-05_JPRB,6.8607E-05_JPRB,&
1089
10
 & 6.8925E-05_JPRB,1.0616E-04_JPRB,1.7481E-02_JPRB/)
1090
KAO( :, 1,12, 5) = (/&
1091
 & 1.8157E-05_JPRB,2.1121E-05_JPRB,2.1509E-05_JPRB,2.2736E-05_JPRB,2.6145E-05_JPRB,3.0200E-05_JPRB,&
1092
10
 & 3.7064E-05_JPRB,5.0458E-05_JPRB,2.1164E-02_JPRB/)
1093
KAO( :, 2,12, 5) = (/&
1094
 & 2.4750E-05_JPRB,2.9265E-05_JPRB,2.8640E-05_JPRB,2.9365E-05_JPRB,3.1815E-05_JPRB,3.7644E-05_JPRB,&
1095
10
 & 4.4258E-05_JPRB,6.0893E-05_JPRB,2.2083E-02_JPRB/)
1096
KAO( :, 3,12, 5) = (/&
1097
 & 3.3051E-05_JPRB,3.9669E-05_JPRB,3.9323E-05_JPRB,3.7322E-05_JPRB,3.8330E-05_JPRB,4.3268E-05_JPRB,&
1098
10
 & 5.2953E-05_JPRB,6.6459E-05_JPRB,2.2904E-02_JPRB/)
1099
KAO( :, 4,12, 5) = (/&
1100
 & 4.3268E-05_JPRB,5.2755E-05_JPRB,5.3305E-05_JPRB,5.0755E-05_JPRB,4.7183E-05_JPRB,4.7321E-05_JPRB,&
1101
10
 & 5.8905E-05_JPRB,7.8211E-05_JPRB,2.3625E-02_JPRB/)
1102
KAO( :, 5,12, 5) = (/&
1103
 & 5.5712E-05_JPRB,6.9313E-05_JPRB,7.1134E-05_JPRB,6.9400E-05_JPRB,6.4153E-05_JPRB,5.9244E-05_JPRB,&
1104
10
 & 5.8683E-05_JPRB,8.6772E-05_JPRB,2.4304E-02_JPRB/)
1105
KAO( :, 1,13, 5) = (/&
1106
 & 1.7179E-05_JPRB,1.9773E-05_JPRB,1.9599E-05_JPRB,2.0374E-05_JPRB,2.3480E-05_JPRB,2.5935E-05_JPRB,&
1107
10
 & 3.2097E-05_JPRB,4.3807E-05_JPRB,2.3722E-02_JPRB/)
1108
KAO( :, 2,13, 5) = (/&
1109
 & 2.3195E-05_JPRB,2.7018E-05_JPRB,2.6155E-05_JPRB,2.6118E-05_JPRB,2.7654E-05_JPRB,3.2413E-05_JPRB,&
1110
10
 & 3.6439E-05_JPRB,5.1480E-05_JPRB,2.4748E-02_JPRB/)
1111
KAO( :, 3,13, 5) = (/&
1112
 & 3.0612E-05_JPRB,3.6208E-05_JPRB,3.5603E-05_JPRB,3.3306E-05_JPRB,3.3238E-05_JPRB,3.6754E-05_JPRB,&
1113
10
 & 4.5231E-05_JPRB,5.7370E-05_JPRB,2.5646E-02_JPRB/)
1114
KAO( :, 4,13, 5) = (/&
1115
 & 3.9626E-05_JPRB,4.7737E-05_JPRB,4.7941E-05_JPRB,4.5252E-05_JPRB,4.1653E-05_JPRB,4.0753E-05_JPRB,&
1116
10
 & 4.9320E-05_JPRB,6.5660E-05_JPRB,2.6492E-02_JPRB/)
1117
KAO( :, 5,13, 5) = (/&
1118
 & 5.0622E-05_JPRB,6.2138E-05_JPRB,6.3203E-05_JPRB,6.1426E-05_JPRB,5.6252E-05_JPRB,5.1272E-05_JPRB,&
1119
10
 & 5.0385E-05_JPRB,7.0865E-05_JPRB,2.7279E-02_JPRB/)
1120
KAO( :, 1, 1, 6) = (/&
1121
 & 7.6668E-04_JPRB,9.5698E-04_JPRB,1.0451E-03_JPRB,1.0706E-03_JPRB,1.0458E-03_JPRB,9.8544E-04_JPRB,&
1122
10
 & 8.4925E-04_JPRB,7.0084E-04_JPRB,3.6790E-04_JPRB/)
1123
KAO( :, 2, 1, 6) = (/&
1124
 & 9.3715E-04_JPRB,1.2033E-03_JPRB,1.3264E-03_JPRB,1.3678E-03_JPRB,1.3579E-03_JPRB,1.2955E-03_JPRB,&
1125
10
 & 1.2019E-03_JPRB,1.0530E-03_JPRB,4.9374E-04_JPRB/)
1126
KAO( :, 3, 1, 6) = (/&
1127
 & 1.1259E-03_JPRB,1.4892E-03_JPRB,1.6507E-03_JPRB,1.7086E-03_JPRB,1.7099E-03_JPRB,1.6660E-03_JPRB,&
1128
10
 & 1.5468E-03_JPRB,1.3572E-03_JPRB,6.9469E-04_JPRB/)
1129
KAO( :, 4, 1, 6) = (/&
1130
 & 1.3346E-03_JPRB,1.8150E-03_JPRB,2.0125E-03_JPRB,2.0930E-03_JPRB,2.1054E-03_JPRB,2.0604E-03_JPRB,&
1131
10
 & 1.9461E-03_JPRB,1.7694E-03_JPRB,9.3629E-04_JPRB/)
1132
KAO( :, 5, 1, 6) = (/&
1133
 & 1.5631E-03_JPRB,2.1751E-03_JPRB,2.4107E-03_JPRB,2.5177E-03_JPRB,2.5412E-03_JPRB,2.4997E-03_JPRB,&
1134
10
 & 2.4003E-03_JPRB,2.2329E-03_JPRB,1.1943E-03_JPRB/)
1135
KAO( :, 1, 2, 6) = (/&
1136
 & 6.1736E-04_JPRB,7.7957E-04_JPRB,8.4495E-04_JPRB,8.5822E-04_JPRB,8.3168E-04_JPRB,7.6710E-04_JPRB,&
1137
10
 & 6.8197E-04_JPRB,6.1117E-04_JPRB,2.7552E-04_JPRB/)
1138
KAO( :, 2, 2, 6) = (/&
1139
 & 7.6431E-04_JPRB,9.9047E-04_JPRB,1.0825E-03_JPRB,1.1059E-03_JPRB,1.0905E-03_JPRB,1.0282E-03_JPRB,&
1140
10
 & 9.1763E-04_JPRB,8.3788E-04_JPRB,3.8116E-04_JPRB/)
1141
KAO( :, 3, 2, 6) = (/&
1142
 & 9.2906E-04_JPRB,1.2346E-03_JPRB,1.3561E-03_JPRB,1.3925E-03_JPRB,1.3898E-03_JPRB,1.3440E-03_JPRB,&
1143
10
 & 1.2411E-03_JPRB,1.1007E-03_JPRB,5.2777E-04_JPRB/)
1144
KAO( :, 4, 2, 6) = (/&
1145
 & 1.1126E-03_JPRB,1.5138E-03_JPRB,1.6623E-03_JPRB,1.7166E-03_JPRB,1.7237E-03_JPRB,1.6799E-03_JPRB,&
1146
10
 & 1.5813E-03_JPRB,1.4262E-03_JPRB,7.0852E-04_JPRB/)
1147
KAO( :, 5, 2, 6) = (/&
1148
 & 1.3161E-03_JPRB,1.8216E-03_JPRB,2.0023E-03_JPRB,2.0780E-03_JPRB,2.0918E-03_JPRB,2.0576E-03_JPRB,&
1149
10
 & 1.9689E-03_JPRB,1.8083E-03_JPRB,9.0055E-04_JPRB/)
1150
KAO( :, 1, 3, 6) = (/&
1151
 & 4.6874E-04_JPRB,5.9508E-04_JPRB,6.3781E-04_JPRB,6.4117E-04_JPRB,6.1436E-04_JPRB,5.4822E-04_JPRB,&
1152
10
 & 5.0421E-04_JPRB,5.3533E-04_JPRB,2.0334E-04_JPRB/)
1153
KAO( :, 2, 3, 6) = (/&
1154
 & 5.9055E-04_JPRB,7.6700E-04_JPRB,8.2890E-04_JPRB,8.3946E-04_JPRB,8.1795E-04_JPRB,7.6034E-04_JPRB,&
1155
10
 & 6.7368E-04_JPRB,6.0816E-04_JPRB,2.8145E-04_JPRB/)
1156
KAO( :, 3, 3, 6) = (/&
1157
 & 7.2955E-04_JPRB,9.6821E-04_JPRB,1.0493E-03_JPRB,1.0696E-03_JPRB,1.0616E-03_JPRB,1.0150E-03_JPRB,&
1158
10
 & 9.2112E-04_JPRB,8.3960E-04_JPRB,3.8605E-04_JPRB/)
1159
KAO( :, 4, 3, 6) = (/&
1160
 & 8.8621E-04_JPRB,1.1995E-03_JPRB,1.3001E-03_JPRB,1.3322E-03_JPRB,1.3333E-03_JPRB,1.2938E-03_JPRB,&
1161
10
 & 1.2044E-03_JPRB,1.0885E-03_JPRB,5.0764E-04_JPRB/)
1162
KAO( :, 5, 3, 6) = (/&
1163
 & 1.0620E-03_JPRB,1.4561E-03_JPRB,1.5813E-03_JPRB,1.6291E-03_JPRB,1.6339E-03_JPRB,1.6065E-03_JPRB,&
1164
10
 & 1.5265E-03_JPRB,1.3705E-03_JPRB,6.4701E-04_JPRB/)
1165
KAO( :, 1, 4, 6) = (/&
1166
 & 3.4631E-04_JPRB,4.3892E-04_JPRB,4.6539E-04_JPRB,4.6252E-04_JPRB,4.3395E-04_JPRB,3.8559E-04_JPRB,&
1167
10
 & 3.5487E-04_JPRB,4.4831E-04_JPRB,1.5114E-04_JPRB/)
1168
KAO( :, 2, 4, 6) = (/&
1169
 & 4.4425E-04_JPRB,5.7553E-04_JPRB,6.1538E-04_JPRB,6.1883E-04_JPRB,5.9314E-04_JPRB,5.4165E-04_JPRB,&
1170
10
 & 4.8640E-04_JPRB,4.4227E-04_JPRB,2.0515E-04_JPRB/)
1171
KAO( :, 3, 4, 6) = (/&
1172
 & 5.5883E-04_JPRB,7.3740E-04_JPRB,7.9031E-04_JPRB,7.9974E-04_JPRB,7.8639E-04_JPRB,7.3691E-04_JPRB,&
1173
10
 & 6.4680E-04_JPRB,6.1866E-04_JPRB,2.7731E-04_JPRB/)
1174
KAO( :, 4, 4, 6) = (/&
1175
 & 6.8974E-04_JPRB,9.2537E-04_JPRB,9.9228E-04_JPRB,1.0098E-03_JPRB,1.0044E-03_JPRB,9.6650E-04_JPRB,&
1176
10
 & 8.8358E-04_JPRB,7.6484E-04_JPRB,3.6266E-04_JPRB/)
1177
KAO( :, 5, 4, 6) = (/&
1178
 & 8.3990E-04_JPRB,1.1361E-03_JPRB,1.2201E-03_JPRB,1.2496E-03_JPRB,1.2472E-03_JPRB,1.2194E-03_JPRB,&
1179
10
 & 1.1540E-03_JPRB,1.0325E-03_JPRB,4.6430E-04_JPRB/)
1180
KAO( :, 1, 5, 6) = (/&
1181
 & 2.5250E-04_JPRB,3.1808E-04_JPRB,3.3386E-04_JPRB,3.2714E-04_JPRB,3.0037E-04_JPRB,2.7399E-04_JPRB,&
1182
10
 & 2.6791E-04_JPRB,3.5704E-04_JPRB,1.2908E-04_JPRB/)
1183
KAO( :, 2, 5, 6) = (/&
1184
 & 3.3043E-04_JPRB,4.2488E-04_JPRB,4.5012E-04_JPRB,4.4889E-04_JPRB,4.2554E-04_JPRB,3.8200E-04_JPRB,&
1185
10
 & 3.3745E-04_JPRB,3.7310E-04_JPRB,1.6348E-04_JPRB/)
1186
KAO( :, 3, 5, 6) = (/&
1187
 & 4.2316E-04_JPRB,5.5338E-04_JPRB,5.8740E-04_JPRB,5.9160E-04_JPRB,5.7542E-04_JPRB,5.3101E-04_JPRB,&
1188
10
 & 4.6257E-04_JPRB,4.4755E-04_JPRB,2.1057E-04_JPRB/)
1189
KAO( :, 4, 5, 6) = (/&
1190
 & 5.3209E-04_JPRB,7.0370E-04_JPRB,7.4784E-04_JPRB,7.5773E-04_JPRB,7.4773E-04_JPRB,7.1163E-04_JPRB,&
1191
10
 & 6.4170E-04_JPRB,5.6009E-04_JPRB,2.6995E-04_JPRB/)
1192
KAO( :, 5, 5, 6) = (/&
1193
 & 6.5954E-04_JPRB,8.7577E-04_JPRB,9.3136E-04_JPRB,9.4956E-04_JPRB,9.4321E-04_JPRB,9.1424E-04_JPRB,&
1194
10
 & 8.5021E-04_JPRB,7.6505E-04_JPRB,3.4403E-04_JPRB/)
1195
KAO( :, 1, 6, 6) = (/&
1196
 & 1.8041E-04_JPRB,2.2490E-04_JPRB,2.3336E-04_JPRB,2.2464E-04_JPRB,2.0963E-04_JPRB,1.9425E-04_JPRB,&
1197
10
 & 2.2107E-04_JPRB,2.7984E-04_JPRB,1.4894E-04_JPRB/)
1198
KAO( :, 2, 6, 6) = (/&
1199
 & 2.4129E-04_JPRB,3.0664E-04_JPRB,3.2201E-04_JPRB,3.1753E-04_JPRB,2.9432E-04_JPRB,2.6424E-04_JPRB,&
1200
10
 & 2.4608E-04_JPRB,3.2717E-04_JPRB,1.7150E-04_JPRB/)
1201
KAO( :, 3, 6, 6) = (/&
1202
 & 3.1506E-04_JPRB,4.0665E-04_JPRB,4.2823E-04_JPRB,4.2924E-04_JPRB,4.1092E-04_JPRB,3.7075E-04_JPRB,&
1203
10
 & 3.2608E-04_JPRB,3.0715E-04_JPRB,1.9997E-04_JPRB/)
1204
KAO( :, 4, 6, 6) = (/&
1205
 & 4.0467E-04_JPRB,5.2530E-04_JPRB,5.5383E-04_JPRB,5.5842E-04_JPRB,5.4724E-04_JPRB,5.1243E-04_JPRB,&
1206
10
 & 4.4254E-04_JPRB,3.9888E-04_JPRB,2.3767E-04_JPRB/)
1207
KAO( :, 5, 6, 6) = (/&
1208
 & 5.1106E-04_JPRB,6.6417E-04_JPRB,6.9974E-04_JPRB,7.0967E-04_JPRB,7.0212E-04_JPRB,6.7161E-04_JPRB,&
1209
10
 & 6.0464E-04_JPRB,5.2589E-04_JPRB,2.8598E-04_JPRB/)
1210
KAO( :, 1, 7, 6) = (/&
1211
 & 1.2786E-04_JPRB,1.5741E-04_JPRB,1.6149E-04_JPRB,1.5385E-04_JPRB,1.4113E-04_JPRB,1.3717E-04_JPRB,&
1212
10
 & 1.7921E-04_JPRB,2.1884E-04_JPRB,2.2335E-04_JPRB/)
1213
KAO( :, 2, 7, 6) = (/&
1214
 & 1.7476E-04_JPRB,2.1914E-04_JPRB,2.2777E-04_JPRB,2.2084E-04_JPRB,2.0229E-04_JPRB,1.8812E-04_JPRB,&
1215
10
 & 1.8018E-04_JPRB,2.7538E-04_JPRB,2.4653E-04_JPRB/)
1216
KAO( :, 3, 7, 6) = (/&
1217
 & 2.3335E-04_JPRB,2.9589E-04_JPRB,3.0942E-04_JPRB,3.0765E-04_JPRB,2.8977E-04_JPRB,2.5625E-04_JPRB,&
1218
10
 & 2.3275E-04_JPRB,2.5170E-04_JPRB,2.7339E-04_JPRB/)
1219
KAO( :, 4, 7, 6) = (/&
1220
 & 3.0583E-04_JPRB,3.8902E-04_JPRB,4.0709E-04_JPRB,4.0819E-04_JPRB,3.9588E-04_JPRB,3.6356E-04_JPRB,&
1221
10
 & 3.1361E-04_JPRB,2.9658E-04_JPRB,3.0348E-04_JPRB/)
1222
KAO( :, 5, 7, 6) = (/&
1223
 & 3.9359E-04_JPRB,5.0084E-04_JPRB,5.2271E-04_JPRB,5.2613E-04_JPRB,5.1742E-04_JPRB,4.8862E-04_JPRB,&
1224
10
 & 4.3693E-04_JPRB,3.8092E-04_JPRB,3.3962E-04_JPRB/)
1225
KAO( :, 1, 8, 6) = (/&
1226
 & 9.0775E-05_JPRB,1.1005E-04_JPRB,1.1099E-04_JPRB,1.0509E-04_JPRB,9.9650E-05_JPRB,1.1055E-04_JPRB,&
1227
10
 & 1.4832E-04_JPRB,1.7530E-04_JPRB,4.7525E-04_JPRB/)
1228
KAO( :, 2, 8, 6) = (/&
1229
 & 1.2669E-04_JPRB,1.5629E-04_JPRB,1.6068E-04_JPRB,1.5361E-04_JPRB,1.4250E-04_JPRB,1.3452E-04_JPRB,&
1230
10
 & 1.4933E-04_JPRB,2.0310E-04_JPRB,5.0480E-04_JPRB/)
1231
KAO( :, 3, 8, 6) = (/&
1232
 & 1.7285E-04_JPRB,2.1483E-04_JPRB,2.2274E-04_JPRB,2.1837E-04_JPRB,2.0107E-04_JPRB,1.8034E-04_JPRB,&
1233
10
 & 1.6967E-04_JPRB,2.2418E-04_JPRB,5.3971E-04_JPRB/)
1234
KAO( :, 4, 8, 6) = (/&
1235
 & 2.3078E-04_JPRB,2.8784E-04_JPRB,2.9834E-04_JPRB,2.9682E-04_JPRB,2.8348E-04_JPRB,2.5378E-04_JPRB,&
1236
10
 & 2.1967E-04_JPRB,2.1775E-04_JPRB,5.7949E-04_JPRB/)
1237
KAO( :, 5, 8, 6) = (/&
1238
 & 3.0207E-04_JPRB,3.7730E-04_JPRB,3.9003E-04_JPRB,3.8941E-04_JPRB,3.7851E-04_JPRB,3.5314E-04_JPRB,&
1239
10
 & 3.0320E-04_JPRB,2.7345E-04_JPRB,6.2347E-04_JPRB/)
1240
KAO( :, 1, 9, 6) = (/&
1241
 & 6.4923E-05_JPRB,7.7301E-05_JPRB,7.6873E-05_JPRB,7.2507E-05_JPRB,7.2968E-05_JPRB,8.8916E-05_JPRB,&
1242
10
 & 1.0626E-04_JPRB,1.3047E-04_JPRB,2.1479E-03_JPRB/)
1243
KAO( :, 2, 9, 6) = (/&
1244
 & 9.2060E-05_JPRB,1.1144E-04_JPRB,1.1301E-04_JPRB,1.0673E-04_JPRB,9.8741E-05_JPRB,9.7585E-05_JPRB,&
1245
10
 & 1.2203E-04_JPRB,1.5315E-04_JPRB,2.2213E-03_JPRB/)
1246
KAO( :, 3, 9, 6) = (/&
1247
 & 1.2784E-04_JPRB,1.5591E-04_JPRB,1.5957E-04_JPRB,1.5395E-04_JPRB,1.4101E-04_JPRB,1.2937E-04_JPRB,&
1248
10
 & 1.2902E-04_JPRB,1.8269E-04_JPRB,2.3004E-03_JPRB/)
1249
KAO( :, 4, 9, 6) = (/&
1250
 & 1.7362E-04_JPRB,2.1265E-04_JPRB,2.1819E-04_JPRB,2.1460E-04_JPRB,2.0088E-04_JPRB,1.7687E-04_JPRB,&
1251
10
 & 1.6114E-04_JPRB,1.7045E-04_JPRB,2.3836E-03_JPRB/)
1252
KAO( :, 5, 9, 6) = (/&
1253
 & 2.3060E-04_JPRB,2.8346E-04_JPRB,2.9069E-04_JPRB,2.8691E-04_JPRB,2.7538E-04_JPRB,2.5192E-04_JPRB,&
1254
10
 & 2.1567E-04_JPRB,2.0242E-04_JPRB,2.4645E-03_JPRB/)
1255
KAO( :, 1,10, 6) = (/&
1256
 & 4.9625E-05_JPRB,5.7572E-05_JPRB,5.6443E-05_JPRB,5.4999E-05_JPRB,5.9435E-05_JPRB,7.0786E-05_JPRB,&
1257
10
 & 7.6295E-05_JPRB,1.0573E-04_JPRB,1.3224E-02_JPRB/)
1258
KAO( :, 2,10, 6) = (/&
1259
 & 7.0134E-05_JPRB,8.3014E-05_JPRB,8.2620E-05_JPRB,7.7969E-05_JPRB,7.3377E-05_JPRB,8.0016E-05_JPRB,&
1260
10
 & 9.8395E-05_JPRB,1.2266E-04_JPRB,1.3476E-02_JPRB/)
1261
KAO( :, 3,10, 6) = (/&
1262
 & 9.7838E-05_JPRB,1.1716E-04_JPRB,1.1840E-04_JPRB,1.1257E-04_JPRB,1.0247E-04_JPRB,9.5389E-05_JPRB,&
1263
10
 & 1.0384E-04_JPRB,1.4488E-04_JPRB,1.3733E-02_JPRB/)
1264
KAO( :, 4,10, 6) = (/&
1265
 & 1.3411E-04_JPRB,1.6175E-04_JPRB,1.6407E-04_JPRB,1.5918E-04_JPRB,1.4592E-04_JPRB,1.2914E-04_JPRB,&
1266
10
 & 1.2234E-04_JPRB,1.5601E-04_JPRB,1.4015E-02_JPRB/)
1267
KAO( :, 5,10, 6) = (/&
1268
 & 1.7947E-04_JPRB,2.1813E-04_JPRB,2.2167E-04_JPRB,2.1661E-04_JPRB,2.0497E-04_JPRB,1.8308E-04_JPRB,&
1269
10
 & 1.5705E-04_JPRB,1.5556E-04_JPRB,1.4285E-02_JPRB/)
1270
KAO( :, 1,11, 6) = (/&
1271
 & 4.6838E-05_JPRB,5.3188E-05_JPRB,5.1940E-05_JPRB,4.9560E-05_JPRB,5.2867E-05_JPRB,6.0471E-05_JPRB,&
1272
10
 & 6.7131E-05_JPRB,8.9235E-05_JPRB,2.9682E-02_JPRB/)
1273
KAO( :, 2,11, 6) = (/&
1274
 & 6.4771E-05_JPRB,7.4879E-05_JPRB,7.3789E-05_JPRB,6.9085E-05_JPRB,6.5402E-05_JPRB,6.9078E-05_JPRB,&
1275
10
 & 8.2402E-05_JPRB,9.7823E-05_JPRB,3.0214E-02_JPRB/)
1276
1277
1
IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART4',1,ZHOOK_HANDLE)
1278
1
END SUBROUTINE PART4
1279
1280
1281
1
SUBROUTINE PART5
1282
1283
REAL(KIND=JPRB) :: ZHOOK_HANDLE
1284
1
IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART5',0,ZHOOK_HANDLE)
1285
1286
1287
KAO( :, 3,11, 6) = (/&
1288
 & 8.8977E-05_JPRB,1.0443E-04_JPRB,1.0449E-04_JPRB,9.8837E-05_JPRB,8.9325E-05_JPRB,8.2564E-05_JPRB,&
1289
10
 & 9.0256E-05_JPRB,1.2264E-04_JPRB,3.0751E-02_JPRB/)
1290
KAO( :, 4,11, 6) = (/&
1291
 & 1.2031E-04_JPRB,1.4341E-04_JPRB,1.4439E-04_JPRB,1.3909E-04_JPRB,1.2684E-04_JPRB,1.1148E-04_JPRB,&
1292
10
 & 1.0343E-04_JPRB,1.2710E-04_JPRB,3.1294E-02_JPRB/)
1293
KAO( :, 5,11, 6) = (/&
1294
 & 1.5966E-04_JPRB,1.9217E-04_JPRB,1.9445E-04_JPRB,1.8922E-04_JPRB,1.7785E-04_JPRB,1.5826E-04_JPRB,&
1295
10
 & 1.3426E-04_JPRB,1.3572E-04_JPRB,3.1828E-02_JPRB/)
1296
KAO( :, 1,12, 6) = (/&
1297
 & 4.4013E-05_JPRB,4.9051E-05_JPRB,4.7310E-05_JPRB,4.5083E-05_JPRB,4.5655E-05_JPRB,5.3046E-05_JPRB,&
1298
10
 & 5.5846E-05_JPRB,7.3868E-05_JPRB,4.2262E-02_JPRB/)
1299
KAO( :, 2,12, 6) = (/&
1300
 & 5.9811E-05_JPRB,6.7905E-05_JPRB,6.6450E-05_JPRB,6.1482E-05_JPRB,5.7471E-05_JPRB,5.8427E-05_JPRB,&
1301
10
 & 7.0235E-05_JPRB,8.1755E-05_JPRB,4.3100E-02_JPRB/)
1302
KAO( :, 3,12, 6) = (/&
1303
 & 8.0771E-05_JPRB,9.3483E-05_JPRB,9.2712E-05_JPRB,8.7290E-05_JPRB,7.8335E-05_JPRB,7.2055E-05_JPRB,&
1304
10
 & 7.5619E-05_JPRB,1.0330E-04_JPRB,4.3963E-02_JPRB/)
1305
KAO( :, 4,12, 6) = (/&
1306
 & 1.0778E-04_JPRB,1.2684E-04_JPRB,1.2706E-04_JPRB,1.2188E-04_JPRB,1.1092E-04_JPRB,9.6993E-05_JPRB,&
1307
10
 & 8.8534E-05_JPRB,1.0545E-04_JPRB,4.4781E-02_JPRB/)
1308
KAO( :, 5,12, 6) = (/&
1309
 & 1.4170E-04_JPRB,1.6874E-04_JPRB,1.7020E-04_JPRB,1.6546E-04_JPRB,1.5470E-04_JPRB,1.3786E-04_JPRB,&
1310
10
 & 1.1554E-04_JPRB,1.1534E-04_JPRB,4.5542E-02_JPRB/)
1311
KAO( :, 1,13, 6) = (/&
1312
 & 4.2090E-05_JPRB,4.6101E-05_JPRB,4.3965E-05_JPRB,4.1016E-05_JPRB,4.0300E-05_JPRB,4.5499E-05_JPRB,&
1313
10
 & 4.8852E-05_JPRB,6.1759E-05_JPRB,4.8346E-02_JPRB/)
1314
KAO( :, 2,13, 6) = (/&
1315
 & 5.6243E-05_JPRB,6.2753E-05_JPRB,6.0819E-05_JPRB,5.5713E-05_JPRB,5.1322E-05_JPRB,5.0494E-05_JPRB,&
1316
10
 & 6.0604E-05_JPRB,6.8003E-05_JPRB,4.9462E-02_JPRB/)
1317
KAO( :, 3,13, 6) = (/&
1318
 & 7.4458E-05_JPRB,8.4643E-05_JPRB,8.3343E-05_JPRB,7.8251E-05_JPRB,6.9869E-05_JPRB,6.3030E-05_JPRB,&
1319
10
 & 6.3206E-05_JPRB,8.7133E-05_JPRB,5.0553E-02_JPRB/)
1320
KAO( :, 4,13, 6) = (/&
1321
 & 9.7702E-05_JPRB,1.1298E-04_JPRB,1.1246E-04_JPRB,1.0753E-04_JPRB,9.7507E-05_JPRB,8.4857E-05_JPRB,&
1322
10
 & 7.6788E-05_JPRB,8.6167E-05_JPRB,5.1568E-02_JPRB/)
1323
KAO( :, 5,13, 6) = (/&
1324
 & 1.2694E-04_JPRB,1.4871E-04_JPRB,1.4954E-04_JPRB,1.4480E-04_JPRB,1.3473E-04_JPRB,1.1941E-04_JPRB,&
1325
10
 & 9.9413E-05_JPRB,9.9688E-05_JPRB,5.2519E-02_JPRB/)
1326
KAO( :, 1, 1, 7) = (/&
1327
 & 2.0564E-03_JPRB,2.2357E-03_JPRB,2.2921E-03_JPRB,2.2746E-03_JPRB,2.1808E-03_JPRB,2.0118E-03_JPRB,&
1328
10
 & 1.7401E-03_JPRB,1.3032E-03_JPRB,9.5552E-04_JPRB/)
1329
KAO( :, 2, 1, 7) = (/&
1330
 & 2.5245E-03_JPRB,2.7780E-03_JPRB,2.8722E-03_JPRB,2.8575E-03_JPRB,2.7633E-03_JPRB,2.6046E-03_JPRB,&
1331
10
 & 2.3222E-03_JPRB,1.8131E-03_JPRB,1.3540E-03_JPRB/)
1332
KAO( :, 3, 1, 7) = (/&
1333
 & 3.0325E-03_JPRB,3.3773E-03_JPRB,3.5284E-03_JPRB,3.5242E-03_JPRB,3.4302E-03_JPRB,3.2547E-03_JPRB,&
1334
10
 & 2.9982E-03_JPRB,2.6610E-03_JPRB,1.7942E-03_JPRB/)
1335
KAO( :, 4, 1, 7) = (/&
1336
 & 3.5774E-03_JPRB,4.0328E-03_JPRB,4.2570E-03_JPRB,4.2786E-03_JPRB,4.1734E-03_JPRB,3.9880E-03_JPRB,&
1337
10
 & 3.7418E-03_JPRB,3.6443E-03_JPRB,2.2977E-03_JPRB/)
1338
KAO( :, 5, 1, 7) = (/&
1339
 & 4.1551E-03_JPRB,4.7493E-03_JPRB,5.0612E-03_JPRB,5.1084E-03_JPRB,4.9896E-03_JPRB,4.7828E-03_JPRB,&
1340
10
 & 4.5388E-03_JPRB,4.6729E-03_JPRB,2.8901E-03_JPRB/)
1341
KAO( :, 1, 2, 7) = (/&
1342
 & 1.7021E-03_JPRB,1.8729E-03_JPRB,1.9247E-03_JPRB,1.9078E-03_JPRB,1.8213E-03_JPRB,1.6737E-03_JPRB,&
1343
10
 & 1.4152E-03_JPRB,1.0410E-03_JPRB,7.2465E-04_JPRB/)
1344
KAO( :, 2, 2, 7) = (/&
1345
 & 2.1085E-03_JPRB,2.3473E-03_JPRB,2.4306E-03_JPRB,2.4189E-03_JPRB,2.3372E-03_JPRB,2.1946E-03_JPRB,&
1346
10
 & 1.9650E-03_JPRB,1.4507E-03_JPRB,1.0070E-03_JPRB/)
1347
KAO( :, 3, 2, 7) = (/&
1348
 & 2.5539E-03_JPRB,2.8790E-03_JPRB,3.0056E-03_JPRB,3.0096E-03_JPRB,2.9218E-03_JPRB,2.7596E-03_JPRB,&
1349
10
 & 2.5256E-03_JPRB,2.1562E-03_JPRB,1.3358E-03_JPRB/)
1350
KAO( :, 4, 2, 7) = (/&
1351
 & 3.0381E-03_JPRB,3.4689E-03_JPRB,3.6518E-03_JPRB,3.6778E-03_JPRB,3.5757E-03_JPRB,3.4032E-03_JPRB,&
1352
10
 & 3.1678E-03_JPRB,2.9648E-03_JPRB,1.7229E-03_JPRB/)
1353
KAO( :, 5, 2, 7) = (/&
1354
 & 3.5521E-03_JPRB,4.1214E-03_JPRB,4.3704E-03_JPRB,4.4118E-03_JPRB,4.3015E-03_JPRB,4.1082E-03_JPRB,&
1355
10
 & 3.8609E-03_JPRB,3.8044E-03_JPRB,2.1852E-03_JPRB/)
1356
KAO( :, 1, 3, 7) = (/&
1357
 & 1.3207E-03_JPRB,1.4650E-03_JPRB,1.5081E-03_JPRB,1.4879E-03_JPRB,1.4138E-03_JPRB,1.2859E-03_JPRB,&
1358
10
 & 1.0511E-03_JPRB,7.8811E-04_JPRB,5.1479E-04_JPRB/)
1359
KAO( :, 2, 3, 7) = (/&
1360
 & 1.6600E-03_JPRB,1.8649E-03_JPRB,1.9312E-03_JPRB,1.9179E-03_JPRB,1.8422E-03_JPRB,1.7178E-03_JPRB,&
1361
10
 & 1.5069E-03_JPRB,1.1268E-03_JPRB,7.0924E-04_JPRB/)
1362
KAO( :, 3, 3, 7) = (/&
1363
 & 2.0389E-03_JPRB,2.3205E-03_JPRB,2.4185E-03_JPRB,2.4171E-03_JPRB,2.3339E-03_JPRB,2.1929E-03_JPRB,&
1364
10
 & 1.9846E-03_JPRB,1.6361E-03_JPRB,9.4601E-04_JPRB/)
1365
KAO( :, 4, 3, 7) = (/&
1366
 & 2.4547E-03_JPRB,2.8320E-03_JPRB,2.9726E-03_JPRB,2.9883E-03_JPRB,2.8925E-03_JPRB,2.7393E-03_JPRB,&
1367
10
 & 2.5305E-03_JPRB,2.2455E-03_JPRB,1.2306E-03_JPRB/)
1368
KAO( :, 5, 3, 7) = (/&
1369
 & 2.8997E-03_JPRB,3.4059E-03_JPRB,3.5906E-03_JPRB,3.6183E-03_JPRB,3.5177E-03_JPRB,3.3454E-03_JPRB,&
1370
10
 & 3.1285E-03_JPRB,2.9519E-03_JPRB,1.5729E-03_JPRB/)
1371
KAO( :, 1, 4, 7) = (/&
1372
 & 9.9106E-04_JPRB,1.1077E-03_JPRB,1.1376E-03_JPRB,1.1157E-03_JPRB,1.0521E-03_JPRB,9.4148E-04_JPRB,&
1373
10
 & 7.8510E-04_JPRB,5.6824E-04_JPRB,3.5975E-04_JPRB/)
1374
KAO( :, 2, 4, 7) = (/&
1375
 & 1.2690E-03_JPRB,1.4351E-03_JPRB,1.4835E-03_JPRB,1.4646E-03_JPRB,1.3997E-03_JPRB,1.2889E-03_JPRB,&
1376
10
 & 1.0960E-03_JPRB,8.9289E-04_JPRB,4.9353E-04_JPRB/)
1377
KAO( :, 3, 4, 7) = (/&
1378
 & 1.5842E-03_JPRB,1.8142E-03_JPRB,1.8866E-03_JPRB,1.8780E-03_JPRB,1.8013E-03_JPRB,1.6820E-03_JPRB,&
1379
10
 & 1.5023E-03_JPRB,1.1830E-03_JPRB,6.6203E-04_JPRB/)
1380
KAO( :, 4, 4, 7) = (/&
1381
 & 1.9340E-03_JPRB,2.2471E-03_JPRB,2.3499E-03_JPRB,2.3511E-03_JPRB,2.2648E-03_JPRB,2.1322E-03_JPRB,&
1382
10
 & 1.9509E-03_JPRB,1.6764E-03_JPRB,8.7194E-04_JPRB/)
1383
KAO( :, 5, 4, 7) = (/&
1384
 & 2.3113E-03_JPRB,2.7351E-03_JPRB,2.8762E-03_JPRB,2.8805E-03_JPRB,2.7879E-03_JPRB,2.6395E-03_JPRB,&
1385
10
 & 2.4567E-03_JPRB,2.2403E-03_JPRB,1.1262E-03_JPRB/)
1386
KAO( :, 1, 5, 7) = (/&
1387
 & 7.3127E-04_JPRB,8.2296E-04_JPRB,8.4087E-04_JPRB,8.1934E-04_JPRB,7.6237E-04_JPRB,6.6355E-04_JPRB,&
1388
10
 & 5.7712E-04_JPRB,4.2586E-04_JPRB,2.6106E-04_JPRB/)
1389
KAO( :, 2, 5, 7) = (/&
1390
 & 9.5564E-04_JPRB,1.0866E-03_JPRB,1.1175E-03_JPRB,1.0975E-03_JPRB,1.0423E-03_JPRB,9.4115E-04_JPRB,&
1391
10
 & 7.8089E-04_JPRB,7.0271E-04_JPRB,3.5186E-04_JPRB/)
1392
KAO( :, 3, 5, 7) = (/&
1393
 & 1.2139E-03_JPRB,1.3968E-03_JPRB,1.4447E-03_JPRB,1.4289E-03_JPRB,1.3656E-03_JPRB,1.2642E-03_JPRB,&
1394
10
 & 1.1044E-03_JPRB,8.5519E-04_JPRB,4.7090E-04_JPRB/)
1395
KAO( :, 4, 5, 7) = (/&
1396
 & 1.5030E-03_JPRB,1.7556E-03_JPRB,1.8265E-03_JPRB,1.8139E-03_JPRB,1.7423E-03_JPRB,1.6256E-03_JPRB,&
1397
10
 & 1.4668E-03_JPRB,1.2302E-03_JPRB,6.2262E-04_JPRB/)
1398
KAO( :, 5, 5, 7) = (/&
1399
 & 1.8204E-03_JPRB,2.1651E-03_JPRB,2.2625E-03_JPRB,2.2502E-03_JPRB,2.1716E-03_JPRB,2.0469E-03_JPRB,&
1400
10
 & 1.8925E-03_JPRB,1.6626E-03_JPRB,8.1240E-04_JPRB/)
1401
KAO( :, 1, 6, 7) = (/&
1402
 & 5.2529E-04_JPRB,5.9432E-04_JPRB,6.0352E-04_JPRB,5.8305E-04_JPRB,5.3304E-04_JPRB,4.5328E-04_JPRB,&
1403
10
 & 4.1878E-04_JPRB,3.5780E-04_JPRB,2.4217E-04_JPRB/)
1404
KAO( :, 2, 6, 7) = (/&
1405
 & 7.0212E-04_JPRB,8.0206E-04_JPRB,8.1885E-04_JPRB,8.0064E-04_JPRB,7.5267E-04_JPRB,6.6720E-04_JPRB,&
1406
10
 & 5.4925E-04_JPRB,4.7137E-04_JPRB,2.9304E-04_JPRB/)
1407
KAO( :, 3, 6, 7) = (/&
1408
 & 9.0974E-04_JPRB,1.0505E-03_JPRB,1.0784E-03_JPRB,1.0608E-03_JPRB,1.0082E-03_JPRB,9.2191E-04_JPRB,&
1409
10
 & 7.8184E-04_JPRB,6.5554E-04_JPRB,3.6650E-04_JPRB/)
1410
KAO( :, 4, 6, 7) = (/&
1411
 & 1.1453E-03_JPRB,1.3423E-03_JPRB,1.3852E-03_JPRB,1.3677E-03_JPRB,1.3077E-03_JPRB,1.2097E-03_JPRB,&
1412
10
 & 1.0767E-03_JPRB,8.5645E-04_JPRB,4.6653E-04_JPRB/)
1413
KAO( :, 5, 6, 7) = (/&
1414
 & 1.4081E-03_JPRB,1.6785E-03_JPRB,1.7408E-03_JPRB,1.7212E-03_JPRB,1.6525E-03_JPRB,1.5502E-03_JPRB,&
1415
10
 & 1.4183E-03_JPRB,1.2157E-03_JPRB,5.9973E-04_JPRB/)
1416
KAO( :, 1, 7, 7) = (/&
1417
 & 3.7120E-04_JPRB,4.2080E-04_JPRB,4.2477E-04_JPRB,4.0604E-04_JPRB,3.6355E-04_JPRB,3.1468E-04_JPRB,&
1418
10
 & 2.7452E-04_JPRB,3.0003E-04_JPRB,3.4329E-04_JPRB/)
1419
KAO( :, 2, 7, 7) = (/&
1420
 & 5.0811E-04_JPRB,5.8113E-04_JPRB,5.8975E-04_JPRB,5.7433E-04_JPRB,5.3282E-04_JPRB,4.5716E-04_JPRB,&
1421
10
 & 3.8591E-04_JPRB,3.1558E-04_JPRB,3.8021E-04_JPRB/)
1422
KAO( :, 3, 7, 7) = (/&
1423
 & 6.7189E-04_JPRB,7.7708E-04_JPRB,7.9243E-04_JPRB,7.7528E-04_JPRB,7.3224E-04_JPRB,6.5998E-04_JPRB,&
1424
10
 & 5.4384E-04_JPRB,5.0808E-04_JPRB,4.2510E-04_JPRB/)
1425
KAO( :, 4, 7, 7) = (/&
1426
 & 8.6172E-04_JPRB,1.0111E-03_JPRB,1.0357E-03_JPRB,1.0171E-03_JPRB,9.6771E-04_JPRB,8.8863E-04_JPRB,&
1427
10
 & 7.7053E-04_JPRB,5.9901E-04_JPRB,4.8327E-04_JPRB/)
1428
KAO( :, 5, 7, 7) = (/&
1429
 & 1.0762E-03_JPRB,1.2838E-03_JPRB,1.3208E-03_JPRB,1.3007E-03_JPRB,1.2428E-03_JPRB,1.1566E-03_JPRB,&
1430
10
 & 1.0378E-03_JPRB,8.6101E-04_JPRB,5.6256E-04_JPRB/)
1431
KAO( :, 1, 8, 7) = (/&
1432
 & 2.6005E-04_JPRB,2.9445E-04_JPRB,2.9544E-04_JPRB,2.7954E-04_JPRB,2.4583E-04_JPRB,2.1647E-04_JPRB,&
1433
10
 & 1.8002E-04_JPRB,2.3598E-04_JPRB,7.9092E-04_JPRB/)
1434
KAO( :, 2, 8, 7) = (/&
1435
 & 3.6459E-04_JPRB,4.1637E-04_JPRB,4.2010E-04_JPRB,4.0556E-04_JPRB,3.7047E-04_JPRB,3.0940E-04_JPRB,&
1436
10
 & 2.7524E-04_JPRB,2.5435E-04_JPRB,8.3476E-04_JPRB/)
1437
KAO( :, 3, 8, 7) = (/&
1438
 & 4.9221E-04_JPRB,5.6877E-04_JPRB,5.7633E-04_JPRB,5.6089E-04_JPRB,5.2598E-04_JPRB,4.6466E-04_JPRB,&
1439
10
 & 3.7776E-04_JPRB,3.4121E-04_JPRB,8.7965E-04_JPRB/)
1440
KAO( :, 4, 8, 7) = (/&
1441
 & 6.4351E-04_JPRB,7.5336E-04_JPRB,7.6684E-04_JPRB,7.4955E-04_JPRB,7.0992E-04_JPRB,6.4867E-04_JPRB,&
1442
10
 & 5.4671E-04_JPRB,4.4943E-04_JPRB,9.3048E-04_JPRB/)
1443
KAO( :, 5, 8, 7) = (/&
1444
 & 8.1696E-04_JPRB,9.7167E-04_JPRB,9.9275E-04_JPRB,9.7485E-04_JPRB,9.2841E-04_JPRB,8.5440E-04_JPRB,&
1445
10
 & 7.5642E-04_JPRB,5.9342E-04_JPRB,9.8996E-04_JPRB/)
1446
KAO( :, 1, 9, 7) = (/&
1447
 & 1.8087E-04_JPRB,2.0393E-04_JPRB,2.0319E-04_JPRB,1.8996E-04_JPRB,1.6599E-04_JPRB,1.4845E-04_JPRB,&
1448
10
 & 1.4517E-04_JPRB,1.8943E-04_JPRB,3.7840E-03_JPRB/)
1449
KAO( :, 2, 9, 7) = (/&
1450
 & 2.5947E-04_JPRB,2.9518E-04_JPRB,2.9598E-04_JPRB,2.8323E-04_JPRB,2.5237E-04_JPRB,2.1334E-04_JPRB,&
1451
10
 & 1.9297E-04_JPRB,2.0265E-04_JPRB,3.8746E-03_JPRB/)
1452
KAO( :, 3, 9, 7) = (/&
1453
 & 3.5788E-04_JPRB,4.1170E-04_JPRB,4.1507E-04_JPRB,4.0085E-04_JPRB,3.7117E-04_JPRB,3.1718E-04_JPRB,&
1454
10
 & 2.6164E-04_JPRB,2.2715E-04_JPRB,3.9645E-03_JPRB/)
1455
KAO( :, 4, 9, 7) = (/&
1456
 & 4.7699E-04_JPRB,5.5569E-04_JPRB,5.6204E-04_JPRB,5.4699E-04_JPRB,5.1526E-04_JPRB,4.6408E-04_JPRB,&
1457
10
 & 3.7784E-04_JPRB,3.4199E-04_JPRB,4.0560E-03_JPRB/)
1458
KAO( :, 5, 9, 7) = (/&
1459
 & 6.1621E-04_JPRB,7.2836E-04_JPRB,7.3953E-04_JPRB,7.2389E-04_JPRB,6.8675E-04_JPRB,6.2690E-04_JPRB,&
1460
10
 & 5.4244E-04_JPRB,4.1506E-04_JPRB,4.1481E-03_JPRB/)
1461
KAO( :, 1,10, 7) = (/&
1462
 & 1.3094E-04_JPRB,1.4617E-04_JPRB,1.4409E-04_JPRB,1.3166E-04_JPRB,1.1671E-04_JPRB,1.0840E-04_JPRB,&
1463
10
 & 1.1994E-04_JPRB,1.5334E-04_JPRB,2.4678E-02_JPRB/)
1464
KAO( :, 2,10, 7) = (/&
1465
 & 1.9036E-04_JPRB,2.1493E-04_JPRB,2.1399E-04_JPRB,2.0239E-04_JPRB,1.7779E-04_JPRB,1.5202E-04_JPRB,&
1466
10
 & 1.3461E-04_JPRB,1.6391E-04_JPRB,2.4818E-02_JPRB/)
1467
KAO( :, 3,10, 7) = (/&
1468
 & 2.6670E-04_JPRB,3.0451E-04_JPRB,3.0518E-04_JPRB,2.9252E-04_JPRB,2.6713E-04_JPRB,2.2545E-04_JPRB,&
1469
10
 & 1.9430E-04_JPRB,1.7654E-04_JPRB,2.4944E-02_JPRB/)
1470
KAO( :, 4,10, 7) = (/&
1471
 & 3.6077E-04_JPRB,4.1729E-04_JPRB,4.1982E-04_JPRB,4.0619E-04_JPRB,3.7979E-04_JPRB,3.3605E-04_JPRB,&
1472
10
 & 2.6665E-04_JPRB,2.5064E-04_JPRB,2.5043E-02_JPRB/)
1473
KAO( :, 5,10, 7) = (/&
1474
 & 4.7368E-04_JPRB,5.5457E-04_JPRB,5.6006E-04_JPRB,5.4560E-04_JPRB,5.1520E-04_JPRB,4.6682E-04_JPRB,&
1475
10
 & 3.9587E-04_JPRB,3.0490E-04_JPRB,2.5182E-02_JPRB/)
1476
KAO( :, 1,11, 7) = (/&
1477
 & 1.1672E-04_JPRB,1.2865E-04_JPRB,1.2575E-04_JPRB,1.1552E-04_JPRB,1.0159E-04_JPRB,9.2164E-05_JPRB,&
1478
10
 & 9.9270E-05_JPRB,1.2653E-04_JPRB,5.7559E-02_JPRB/)
1479
KAO( :, 2,11, 7) = (/&
1480
 & 1.6732E-04_JPRB,1.8741E-04_JPRB,1.8550E-04_JPRB,1.7442E-04_JPRB,1.5354E-04_JPRB,1.3133E-04_JPRB,&
1481
10
 & 1.1767E-04_JPRB,1.4329E-04_JPRB,5.7684E-02_JPRB/)
1482
KAO( :, 3,11, 7) = (/&
1483
 & 2.3276E-04_JPRB,2.6444E-04_JPRB,2.6342E-04_JPRB,2.5118E-04_JPRB,2.2884E-04_JPRB,1.9264E-04_JPRB,&
1484
10
 & 1.6524E-04_JPRB,1.4558E-04_JPRB,5.7855E-02_JPRB/)
1485
KAO( :, 4,11, 7) = (/&
1486
 & 3.1443E-04_JPRB,3.6154E-04_JPRB,3.6203E-04_JPRB,3.4857E-04_JPRB,3.2499E-04_JPRB,2.8713E-04_JPRB,&
1487
10
 & 2.2934E-04_JPRB,2.1182E-04_JPRB,5.7981E-02_JPRB/)
1488
KAO( :, 5,11, 7) = (/&
1489
 & 4.1392E-04_JPRB,4.8111E-04_JPRB,4.8318E-04_JPRB,4.6852E-04_JPRB,4.4073E-04_JPRB,3.9804E-04_JPRB,&
1490
10
 & 3.3719E-04_JPRB,2.5664E-04_JPRB,5.8015E-02_JPRB/)
1491
KAO( :, 1,12, 7) = (/&
1492
 & 1.0495E-04_JPRB,1.1425E-04_JPRB,1.1065E-04_JPRB,1.0139E-04_JPRB,8.8702E-05_JPRB,8.0270E-05_JPRB,&
1493
10
 & 8.3227E-05_JPRB,1.1035E-04_JPRB,8.4777E-02_JPRB/)
1494
KAO( :, 2,12, 7) = (/&
1495
 & 1.4811E-04_JPRB,1.6444E-04_JPRB,1.6133E-04_JPRB,1.5088E-04_JPRB,1.3304E-04_JPRB,1.1329E-04_JPRB,&
1496
10
 & 1.0211E-04_JPRB,1.1814E-04_JPRB,8.5052E-02_JPRB/)
1497
KAO( :, 3,12, 7) = (/&
1498
 & 2.0461E-04_JPRB,2.3053E-04_JPRB,2.2799E-04_JPRB,2.1647E-04_JPRB,1.9655E-04_JPRB,1.6510E-04_JPRB,&
1499
10
 & 1.3813E-04_JPRB,1.2052E-04_JPRB,8.5320E-02_JPRB/)
1500
KAO( :, 4,12, 7) = (/&
1501
 & 2.7614E-04_JPRB,3.1483E-04_JPRB,3.1311E-04_JPRB,3.0005E-04_JPRB,2.7866E-04_JPRB,2.4569E-04_JPRB,&
1502
10
 & 1.9595E-04_JPRB,1.7650E-04_JPRB,8.5551E-02_JPRB/)
1503
KAO( :, 5,12, 7) = (/&
1504
 & 3.6369E-04_JPRB,4.1945E-04_JPRB,4.1876E-04_JPRB,4.0374E-04_JPRB,3.7792E-04_JPRB,3.3990E-04_JPRB,&
1505
10
 & 2.8821E-04_JPRB,2.1660E-04_JPRB,8.5586E-02_JPRB/)
1506
KAO( :, 1,13, 7) = (/&
1507
 & 9.6451E-05_JPRB,1.0341E-04_JPRB,9.9264E-05_JPRB,9.0436E-05_JPRB,7.8283E-05_JPRB,7.1353E-05_JPRB,&
1508
10
 & 7.0038E-05_JPRB,8.7127E-05_JPRB,1.0017E-01_JPRB/)
1509
KAO( :, 2,13, 7) = (/&
1510
 & 1.3353E-04_JPRB,1.4634E-04_JPRB,1.4212E-04_JPRB,1.3211E-04_JPRB,1.1628E-04_JPRB,9.7846E-05_JPRB,&
1511
10
 & 8.8593E-05_JPRB,9.9520E-05_JPRB,1.0066E-01_JPRB/)
1512
KAO( :, 3,13, 7) = (/&
1513
 & 1.8247E-04_JPRB,2.0319E-04_JPRB,1.9922E-04_JPRB,1.8770E-04_JPRB,1.6984E-04_JPRB,1.4285E-04_JPRB,&
1514
10
 & 1.1822E-04_JPRB,1.0096E-04_JPRB,1.0114E-01_JPRB/)
1515
KAO( :, 4,13, 7) = (/&
1516
 & 2.4463E-04_JPRB,2.7635E-04_JPRB,2.7262E-04_JPRB,2.5991E-04_JPRB,2.4023E-04_JPRB,2.1109E-04_JPRB,&
1517
10
 & 1.6739E-04_JPRB,1.4711E-04_JPRB,1.0151E-01_JPRB/)
1518
KAO( :, 5,13, 7) = (/&
1519
 & 3.2023E-04_JPRB,3.6781E-04_JPRB,3.6463E-04_JPRB,3.4949E-04_JPRB,3.2644E-04_JPRB,2.9244E-04_JPRB,&
1520
10
 & 2.4737E-04_JPRB,1.8188E-04_JPRB,1.0162E-01_JPRB/)
1521
KAO( :, 1, 1, 8) = (/&
1522
 & 4.4239E-03_JPRB,4.5519E-03_JPRB,4.5724E-03_JPRB,4.4178E-03_JPRB,4.2198E-03_JPRB,4.0058E-03_JPRB,&
1523
10
 & 3.6615E-03_JPRB,3.0019E-03_JPRB,2.7752E-03_JPRB/)
1524
KAO( :, 2, 1, 8) = (/&
1525
 & 5.3797E-03_JPRB,5.6034E-03_JPRB,5.6810E-03_JPRB,5.5458E-03_JPRB,5.3768E-03_JPRB,5.2131E-03_JPRB,&
1526
10
 & 5.0349E-03_JPRB,4.6587E-03_JPRB,3.8056E-03_JPRB/)
1527
KAO( :, 3, 1, 8) = (/&
1528
 & 6.4347E-03_JPRB,6.7859E-03_JPRB,6.9273E-03_JPRB,6.8482E-03_JPRB,6.7118E-03_JPRB,6.6177E-03_JPRB,&
1529
10
 & 6.6013E-03_JPRB,6.5225E-03_JPRB,5.0401E-03_JPRB/)
1530
KAO( :, 4, 1, 8) = (/&
1531
 & 7.5645E-03_JPRB,8.0892E-03_JPRB,8.3352E-03_JPRB,8.3083E-03_JPRB,8.2560E-03_JPRB,8.2611E-03_JPRB,&
1532
10
 & 8.3847E-03_JPRB,8.5252E-03_JPRB,6.4996E-03_JPRB/)
1533
KAO( :, 5, 1, 8) = (/&
1534
 & 8.7680E-03_JPRB,9.5130E-03_JPRB,9.8898E-03_JPRB,9.9473E-03_JPRB,1.0011E-02_JPRB,1.0143E-02_JPRB,&
1535
10
 & 1.0425E-02_JPRB,1.0769E-02_JPRB,8.2076E-03_JPRB/)
1536
KAO( :, 1, 2, 8) = (/&
1537
 & 3.8956E-03_JPRB,4.0502E-03_JPRB,4.0603E-03_JPRB,3.9353E-03_JPRB,3.7465E-03_JPRB,3.4739E-03_JPRB,&
1538
10
 & 3.0905E-03_JPRB,2.3943E-03_JPRB,2.1184E-03_JPRB/)
1539
KAO( :, 2, 2, 8) = (/&
1540
 & 4.7918E-03_JPRB,5.0484E-03_JPRB,5.0971E-03_JPRB,4.9960E-03_JPRB,4.7901E-03_JPRB,4.5311E-03_JPRB,&
1541
10
 & 4.2459E-03_JPRB,3.8455E-03_JPRB,2.9268E-03_JPRB/)
1542
KAO( :, 3, 2, 8) = (/&
1543
 & 5.7854E-03_JPRB,6.1757E-03_JPRB,6.2838E-03_JPRB,6.2127E-03_JPRB,6.0071E-03_JPRB,5.7828E-03_JPRB,&
1544
10
 & 5.6083E-03_JPRB,5.4427E-03_JPRB,3.9021E-03_JPRB/)
1545
KAO( :, 4, 2, 8) = (/&
1546
 & 6.8580E-03_JPRB,7.4217E-03_JPRB,7.6327E-03_JPRB,7.5901E-03_JPRB,7.4062E-03_JPRB,7.2358E-03_JPRB,&
1547
10
 & 7.1625E-03_JPRB,7.2397E-03_JPRB,5.0676E-03_JPRB/)
1548
KAO( :, 5, 2, 8) = (/&
1549
 & 8.0102E-03_JPRB,8.7860E-03_JPRB,9.1257E-03_JPRB,9.1299E-03_JPRB,8.9977E-03_JPRB,8.9056E-03_JPRB,&
1550
10
 & 8.9466E-03_JPRB,9.2132E-03_JPRB,6.4234E-03_JPRB/)
1551
KAO( :, 1, 3, 8) = (/&
1552
 & 3.2185E-03_JPRB,3.3667E-03_JPRB,3.3683E-03_JPRB,3.2709E-03_JPRB,3.1158E-03_JPRB,2.8506E-03_JPRB,&
1553
10
 & 2.4272E-03_JPRB,1.7393E-03_JPRB,1.4905E-03_JPRB/)
1554
KAO( :, 2, 3, 8) = (/&
1555
 & 4.0272E-03_JPRB,4.2617E-03_JPRB,4.2966E-03_JPRB,4.2148E-03_JPRB,4.0495E-03_JPRB,3.7679E-03_JPRB,&
1556
10
 & 3.4096E-03_JPRB,2.8817E-03_JPRB,2.0706E-03_JPRB/)
1557
KAO( :, 3, 3, 8) = (/&
1558
 & 4.9255E-03_JPRB,5.2838E-03_JPRB,5.3750E-03_JPRB,5.3109E-03_JPRB,5.1338E-03_JPRB,4.8398E-03_JPRB,&
1559
10
 & 4.5501E-03_JPRB,4.1909E-03_JPRB,2.7937E-03_JPRB/)
1560
KAO( :, 4, 3, 8) = (/&
1561
 & 5.9079E-03_JPRB,6.4325E-03_JPRB,6.6107E-03_JPRB,6.5630E-03_JPRB,6.3820E-03_JPRB,6.0909E-03_JPRB,&
1562
10
 & 5.8611E-03_JPRB,5.7562E-03_JPRB,3.6692E-03_JPRB/)
1563
KAO( :, 5, 3, 8) = (/&
1564
 & 6.9696E-03_JPRB,7.6975E-03_JPRB,7.9877E-03_JPRB,7.9811E-03_JPRB,7.8040E-03_JPRB,7.5290E-03_JPRB,&
1565
10
 & 7.3615E-03_JPRB,7.4650E-03_JPRB,4.7053E-03_JPRB/)
1566
KAO( :, 1, 4, 8) = (/&
1567
 & 2.5545E-03_JPRB,2.6859E-03_JPRB,2.6880E-03_JPRB,2.6203E-03_JPRB,2.4823E-03_JPRB,2.2588E-03_JPRB,&
1568
10
 & 1.8322E-03_JPRB,1.2713E-03_JPRB,1.0214E-03_JPRB/)
1569
KAO( :, 2, 4, 8) = (/&
1570
 & 3.2572E-03_JPRB,3.4677E-03_JPRB,3.4957E-03_JPRB,3.4378E-03_JPRB,3.2931E-03_JPRB,3.0601E-03_JPRB,&
1571
10
 & 2.6717E-03_JPRB,2.0170E-03_JPRB,1.4352E-03_JPRB/)
1572
KAO( :, 3, 4, 8) = (/&
1573
 & 4.0447E-03_JPRB,4.3684E-03_JPRB,4.4456E-03_JPRB,4.3951E-03_JPRB,4.2405E-03_JPRB,3.9923E-03_JPRB,&
1574
10
 & 3.6333E-03_JPRB,3.0944E-03_JPRB,1.9579E-03_JPRB/)
1575
KAO( :, 4, 4, 8) = (/&
1576
 & 4.9198E-03_JPRB,5.3921E-03_JPRB,5.5389E-03_JPRB,5.5062E-03_JPRB,5.3434E-03_JPRB,5.0807E-03_JPRB,&
1577
10
 & 4.7402E-03_JPRB,4.4587E-03_JPRB,2.6028E-03_JPRB/)
1578
1579
1
IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART5',1,ZHOOK_HANDLE)
1580
1
END SUBROUTINE PART5
1581
1582
1583
1
SUBROUTINE PART6
1584
1585
REAL(KIND=JPRB) :: ZHOOK_HANDLE
1586
1
IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART6',0,ZHOOK_HANDLE)
1587
1588
1589
KAO( :, 5, 4, 8) = (/&
1590
 & 5.8819E-03_JPRB,6.5317E-03_JPRB,6.7822E-03_JPRB,6.7765E-03_JPRB,6.6162E-03_JPRB,6.3253E-03_JPRB,&
1591
10
 & 5.9954E-03_JPRB,5.8840E-03_JPRB,3.3755E-03_JPRB/)
1592
KAO( :, 1, 5, 8) = (/&
1593
 & 1.9756E-03_JPRB,2.0856E-03_JPRB,2.0921E-03_JPRB,2.0392E-03_JPRB,1.9309E-03_JPRB,1.7377E-03_JPRB,&
1594
10
 & 1.3394E-03_JPRB,9.1353E-04_JPRB,7.0438E-04_JPRB/)
1595
KAO( :, 2, 5, 8) = (/&
1596
 & 2.5687E-03_JPRB,2.7468E-03_JPRB,2.7774E-03_JPRB,2.7346E-03_JPRB,2.6141E-03_JPRB,2.4178E-03_JPRB,&
1597
10
 & 2.0843E-03_JPRB,1.3471E-03_JPRB,9.9854E-04_JPRB/)
1598
KAO( :, 3, 5, 8) = (/&
1599
 & 3.2454E-03_JPRB,3.5226E-03_JPRB,3.5942E-03_JPRB,3.5589E-03_JPRB,3.4246E-03_JPRB,3.2139E-03_JPRB,&
1600
10
 & 2.8968E-03_JPRB,2.2808E-03_JPRB,1.3756E-03_JPRB/)
1601
KAO( :, 4, 5, 8) = (/&
1602
 & 4.0078E-03_JPRB,4.4135E-03_JPRB,4.5464E-03_JPRB,4.5227E-03_JPRB,4.3801E-03_JPRB,4.1565E-03_JPRB,&
1603
10
 & 3.8227E-03_JPRB,3.4129E-03_JPRB,1.8460E-03_JPRB/)
1604
KAO( :, 5, 5, 8) = (/&
1605
 & 4.8571E-03_JPRB,5.4208E-03_JPRB,5.6379E-03_JPRB,5.6316E-03_JPRB,5.4908E-03_JPRB,5.2408E-03_JPRB,&
1606
10
 & 4.8842E-03_JPRB,4.5932E-03_JPRB,2.4240E-03_JPRB/)
1607
KAO( :, 1, 6, 8) = (/&
1608
 & 1.4751E-03_JPRB,1.5649E-03_JPRB,1.5698E-03_JPRB,1.5250E-03_JPRB,1.4367E-03_JPRB,1.2692E-03_JPRB,&
1609
10
 & 9.2432E-04_JPRB,6.8601E-04_JPRB,5.0937E-04_JPRB/)
1610
KAO( :, 2, 6, 8) = (/&
1611
 & 1.9613E-03_JPRB,2.1071E-03_JPRB,2.1348E-03_JPRB,2.0943E-03_JPRB,1.9976E-03_JPRB,1.8330E-03_JPRB,&
1612
10
 & 1.5334E-03_JPRB,9.4512E-04_JPRB,7.0634E-04_JPRB/)
1613
KAO( :, 3, 6, 8) = (/&
1614
 & 2.5283E-03_JPRB,2.7572E-03_JPRB,2.8184E-03_JPRB,2.7830E-03_JPRB,2.6756E-03_JPRB,2.5003E-03_JPRB,&
1615
10
 & 2.2237E-03_JPRB,1.6320E-03_JPRB,9.7275E-04_JPRB/)
1616
KAO( :, 4, 6, 8) = (/&
1617
 & 3.1771E-03_JPRB,3.5120E-03_JPRB,3.6225E-03_JPRB,3.5959E-03_JPRB,3.4819E-03_JPRB,3.2887E-03_JPRB,&
1618
10
 & 3.0155E-03_JPRB,2.5468E-03_JPRB,1.3152E-03_JPRB/)
1619
KAO( :, 5, 6, 8) = (/&
1620
 & 3.9082E-03_JPRB,4.3796E-03_JPRB,4.5491E-03_JPRB,4.5475E-03_JPRB,4.4280E-03_JPRB,4.2073E-03_JPRB,&
1621
10
 & 3.9106E-03_JPRB,3.5240E-03_JPRB,1.7410E-03_JPRB/)
1622
KAO( :, 1, 7, 8) = (/&
1623
 & 1.0756E-03_JPRB,1.1457E-03_JPRB,1.1474E-03_JPRB,1.1092E-03_JPRB,1.0328E-03_JPRB,8.8328E-04_JPRB,&
1624
10
 & 6.4847E-04_JPRB,4.9589E-04_JPRB,5.7093E-04_JPRB/)
1625
KAO( :, 2, 7, 8) = (/&
1626
 & 1.4649E-03_JPRB,1.5820E-03_JPRB,1.5990E-03_JPRB,1.5629E-03_JPRB,1.4809E-03_JPRB,1.3423E-03_JPRB,&
1627
10
 & 1.0733E-03_JPRB,6.5945E-04_JPRB,6.7059E-04_JPRB/)
1628
KAO( :, 3, 7, 8) = (/&
1629
 & 1.9283E-03_JPRB,2.1130E-03_JPRB,2.1564E-03_JPRB,2.1214E-03_JPRB,2.0320E-03_JPRB,1.8875E-03_JPRB,&
1630
10
 & 1.6475E-03_JPRB,1.0998E-03_JPRB,8.2028E-04_JPRB/)
1631
KAO( :, 4, 7, 8) = (/&
1632
 & 2.4693E-03_JPRB,2.7409E-03_JPRB,2.8220E-03_JPRB,2.7928E-03_JPRB,2.6936E-03_JPRB,2.5390E-03_JPRB,&
1633
10
 & 2.3115E-03_JPRB,1.8751E-03_JPRB,1.0332E-03_JPRB/)
1634
KAO( :, 5, 7, 8) = (/&
1635
 & 3.0886E-03_JPRB,3.4749E-03_JPRB,3.5989E-03_JPRB,3.5853E-03_JPRB,3.4794E-03_JPRB,3.3014E-03_JPRB,&
1636
10
 & 3.0555E-03_JPRB,2.6855E-03_JPRB,1.3202E-03_JPRB/)
1637
KAO( :, 1, 8, 8) = (/&
1638
 & 7.7013E-04_JPRB,8.2269E-04_JPRB,8.2096E-04_JPRB,7.8766E-04_JPRB,7.2051E-04_JPRB,5.9734E-04_JPRB,&
1639
10
 & 4.5221E-04_JPRB,3.6815E-04_JPRB,1.2465E-03_JPRB/)
1640
KAO( :, 2, 8, 8) = (/&
1641
 & 1.0761E-03_JPRB,1.1666E-03_JPRB,1.1753E-03_JPRB,1.1418E-03_JPRB,1.0747E-03_JPRB,9.5486E-04_JPRB,&
1642
10
 & 7.2722E-04_JPRB,4.9024E-04_JPRB,1.3265E-03_JPRB/)
1643
KAO( :, 3, 8, 8) = (/&
1644
 & 1.4486E-03_JPRB,1.5933E-03_JPRB,1.6206E-03_JPRB,1.5872E-03_JPRB,1.5112E-03_JPRB,1.3931E-03_JPRB,&
1645
10
 & 1.1791E-03_JPRB,7.7032E-04_JPRB,1.4183E-03_JPRB/)
1646
KAO( :, 4, 8, 8) = (/&
1647
 & 1.8914E-03_JPRB,2.1096E-03_JPRB,2.1595E-03_JPRB,2.1285E-03_JPRB,2.0449E-03_JPRB,1.9150E-03_JPRB,&
1648
10
 & 1.7248E-03_JPRB,1.3234E-03_JPRB,1.5297E-03_JPRB/)
1649
KAO( :, 5, 8, 8) = (/&
1650
 & 2.4078E-03_JPRB,2.7196E-03_JPRB,2.8008E-03_JPRB,2.7757E-03_JPRB,2.6827E-03_JPRB,2.5404E-03_JPRB,&
1651
10
 & 2.3451E-03_JPRB,2.0264E-03_JPRB,1.6770E-03_JPRB/)
1652
KAO( :, 1, 9, 8) = (/&
1653
 & 5.4062E-04_JPRB,5.7894E-04_JPRB,5.7406E-04_JPRB,5.4447E-04_JPRB,4.8698E-04_JPRB,3.9028E-04_JPRB,&
1654
10
 & 3.0735E-04_JPRB,2.8186E-04_JPRB,6.3377E-03_JPRB/)
1655
KAO( :, 2, 9, 8) = (/&
1656
 & 7.7655E-04_JPRB,8.4391E-04_JPRB,8.4599E-04_JPRB,8.1629E-04_JPRB,7.6016E-04_JPRB,6.5450E-04_JPRB,&
1657
10
 & 4.7980E-04_JPRB,3.6416E-04_JPRB,6.4305E-03_JPRB/)
1658
KAO( :, 3, 9, 8) = (/&
1659
 & 1.0705E-03_JPRB,1.1799E-03_JPRB,1.1936E-03_JPRB,1.1638E-03_JPRB,1.1017E-03_JPRB,1.0023E-03_JPRB,&
1660
10
 & 8.1517E-04_JPRB,5.4679E-04_JPRB,6.5495E-03_JPRB/)
1661
KAO( :, 4, 9, 8) = (/&
1662
 & 1.4270E-03_JPRB,1.5951E-03_JPRB,1.6232E-03_JPRB,1.5910E-03_JPRB,1.5219E-03_JPRB,1.4168E-03_JPRB,&
1663
10
 & 1.2519E-03_JPRB,8.7875E-04_JPRB,6.6729E-03_JPRB/)
1664
KAO( :, 5, 9, 8) = (/&
1665
 & 1.8505E-03_JPRB,2.0950E-03_JPRB,2.1415E-03_JPRB,2.1108E-03_JPRB,2.0308E-03_JPRB,1.9153E-03_JPRB,&
1666
10
 & 1.7561E-03_JPRB,1.4678E-03_JPRB,6.8190E-03_JPRB/)
1667
KAO( :, 1,10, 8) = (/&
1668
 & 3.8585E-04_JPRB,4.1375E-04_JPRB,4.0806E-04_JPRB,3.8295E-04_JPRB,3.3374E-04_JPRB,2.6302E-04_JPRB,&
1669
10
 & 2.1519E-04_JPRB,2.1943E-04_JPRB,4.4307E-02_JPRB/)
1670
KAO( :, 2,10, 8) = (/&
1671
 & 5.6783E-04_JPRB,6.1776E-04_JPRB,6.1659E-04_JPRB,5.9118E-04_JPRB,5.4276E-04_JPRB,4.5386E-04_JPRB,&
1672
10
 & 3.3714E-04_JPRB,2.8172E-04_JPRB,4.4039E-02_JPRB/)
1673
KAO( :, 3,10, 8) = (/&
1674
 & 7.9994E-04_JPRB,8.8269E-04_JPRB,8.8820E-04_JPRB,8.6201E-04_JPRB,8.1182E-04_JPRB,7.2562E-04_JPRB,&
1675
10
 & 5.6386E-04_JPRB,3.8153E-04_JPRB,4.3887E-02_JPRB/)
1676
KAO( :, 4,10, 8) = (/&
1677
 & 1.0873E-03_JPRB,1.2167E-03_JPRB,1.2305E-03_JPRB,1.2016E-03_JPRB,1.1439E-03_JPRB,1.0569E-03_JPRB,&
1678
10
 & 9.1489E-04_JPRB,6.0012E-04_JPRB,4.3695E-02_JPRB/)
1679
KAO( :, 5,10, 8) = (/&
1680
 & 1.4329E-03_JPRB,1.6260E-03_JPRB,1.6511E-03_JPRB,1.6186E-03_JPRB,1.5509E-03_JPRB,1.4549E-03_JPRB,&
1681
10
 & 1.3198E-03_JPRB,1.0619E-03_JPRB,4.3454E-02_JPRB/)
1682
KAO( :, 1,11, 8) = (/&
1683
 & 3.3331E-04_JPRB,3.5859E-04_JPRB,3.5347E-04_JPRB,3.3213E-04_JPRB,2.8916E-04_JPRB,2.2877E-04_JPRB,&
1684
10
 & 1.7900E-04_JPRB,1.9967E-04_JPRB,1.0878E-01_JPRB/)
1685
KAO( :, 2,11, 8) = (/&
1686
 & 4.9047E-04_JPRB,5.3552E-04_JPRB,5.3381E-04_JPRB,5.1299E-04_JPRB,4.7115E-04_JPRB,3.9388E-04_JPRB,&
1687
10
 & 2.9080E-04_JPRB,2.3623E-04_JPRB,1.0793E-01_JPRB/)
1688
KAO( :, 3,11, 8) = (/&
1689
 & 6.9278E-04_JPRB,7.6757E-04_JPRB,7.7025E-04_JPRB,7.4755E-04_JPRB,7.0442E-04_JPRB,6.3244E-04_JPRB,&
1690
10
 & 4.9501E-04_JPRB,3.3029E-04_JPRB,1.0687E-01_JPRB/)
1691
KAO( :, 4,11, 8) = (/&
1692
 & 9.4454E-04_JPRB,1.0621E-03_JPRB,1.0699E-03_JPRB,1.0431E-03_JPRB,9.9167E-04_JPRB,9.1658E-04_JPRB,&
1693
10
 & 7.9795E-04_JPRB,5.4407E-04_JPRB,1.0586E-01_JPRB/)
1694
KAO( :, 5,11, 8) = (/&
1695
 & 1.2469E-03_JPRB,1.4253E-03_JPRB,1.4411E-03_JPRB,1.4083E-03_JPRB,1.3458E-03_JPRB,1.2607E-03_JPRB,&
1696
10
 & 1.1470E-03_JPRB,9.3092E-04_JPRB,1.0499E-01_JPRB/)
1697
KAO( :, 1,12, 8) = (/&
1698
 & 2.8868E-04_JPRB,3.1016E-04_JPRB,3.0546E-04_JPRB,2.8704E-04_JPRB,2.5147E-04_JPRB,1.9676E-04_JPRB,&
1699
10
 & 1.5529E-04_JPRB,1.6943E-04_JPRB,1.6800E-01_JPRB/)
1700
KAO( :, 2,12, 8) = (/&
1701
 & 4.2419E-04_JPRB,4.6341E-04_JPRB,4.6115E-04_JPRB,4.4308E-04_JPRB,4.0808E-04_JPRB,3.4351E-04_JPRB,&
1702
10
 & 2.4857E-04_JPRB,1.9580E-04_JPRB,1.6656E-01_JPRB/)
1703
KAO( :, 3,12, 8) = (/&
1704
 & 6.0023E-04_JPRB,6.6617E-04_JPRB,6.6650E-04_JPRB,6.4587E-04_JPRB,6.0783E-04_JPRB,5.4736E-04_JPRB,&
1705
10
 & 4.3585E-04_JPRB,2.8774E-04_JPRB,1.6485E-01_JPRB/)
1706
KAO( :, 4,12, 8) = (/&
1707
 & 8.1906E-04_JPRB,9.2524E-04_JPRB,9.2921E-04_JPRB,9.0286E-04_JPRB,8.5627E-04_JPRB,7.9080E-04_JPRB,&
1708
10
 & 6.9052E-04_JPRB,4.8039E-04_JPRB,1.6324E-01_JPRB/)
1709
KAO( :, 5,12, 8) = (/&
1710
 & 1.0839E-03_JPRB,1.2432E-03_JPRB,1.2546E-03_JPRB,1.2224E-03_JPRB,1.1638E-03_JPRB,1.0874E-03_JPRB,&
1711
10
 & 9.8876E-04_JPRB,8.1388E-04_JPRB,1.6195E-01_JPRB/)
1712
KAO( :, 1,13, 8) = (/&
1713
 & 2.5312E-04_JPRB,2.6982E-04_JPRB,2.6458E-04_JPRB,2.4857E-04_JPRB,2.1806E-04_JPRB,1.7081E-04_JPRB,&
1714
10
 & 1.3117E-04_JPRB,1.3895E-04_JPRB,2.0739E-01_JPRB/)
1715
KAO( :, 2,13, 8) = (/&
1716
 & 3.6904E-04_JPRB,4.0143E-04_JPRB,3.9817E-04_JPRB,3.8186E-04_JPRB,3.5137E-04_JPRB,2.9757E-04_JPRB,&
1717
10
 & 2.1658E-04_JPRB,1.6379E-04_JPRB,2.0586E-01_JPRB/)
1718
KAO( :, 3,13, 8) = (/&
1719
 & 5.2080E-04_JPRB,5.7811E-04_JPRB,5.7661E-04_JPRB,5.5693E-04_JPRB,5.2224E-04_JPRB,4.6985E-04_JPRB,&
1720
10
 & 3.7580E-04_JPRB,2.4807E-04_JPRB,2.0409E-01_JPRB/)
1721
KAO( :, 4,13, 8) = (/&
1722
 & 7.1123E-04_JPRB,8.0344E-04_JPRB,8.0567E-04_JPRB,7.8029E-04_JPRB,7.3718E-04_JPRB,6.7848E-04_JPRB,&
1723
10
 & 5.9304E-04_JPRB,4.2232E-04_JPRB,2.0245E-01_JPRB/)
1724
KAO( :, 5,13, 8) = (/&
1725
 & 9.4485E-04_JPRB,1.0811E-03_JPRB,1.0875E-03_JPRB,1.0578E-03_JPRB,1.0044E-03_JPRB,9.3443E-04_JPRB,&
1726
10
 & 8.4723E-04_JPRB,7.0315E-04_JPRB,2.0129E-01_JPRB/)
1727
KAO( :, 1, 1, 9) = (/&
1728
 & 1.0292E-02_JPRB,1.0074E-02_JPRB,1.0433E-02_JPRB,1.0920E-02_JPRB,1.1239E-02_JPRB,1.1304E-02_JPRB,&
1729
10
 & 1.1018E-02_JPRB,9.9412E-03_JPRB,1.0267E-02_JPRB/)
1730
KAO( :, 2, 1, 9) = (/&
1731
 & 1.2495E-02_JPRB,1.2453E-02_JPRB,1.3049E-02_JPRB,1.3792E-02_JPRB,1.4278E-02_JPRB,1.4496E-02_JPRB,&
1732
10
 & 1.4236E-02_JPRB,1.3361E-02_JPRB,1.3925E-02_JPRB/)
1733
KAO( :, 3, 1, 9) = (/&
1734
 & 1.4859E-02_JPRB,1.5091E-02_JPRB,1.6017E-02_JPRB,1.7045E-02_JPRB,1.7806E-02_JPRB,1.8195E-02_JPRB,&
1735
10
 & 1.7952E-02_JPRB,1.7365E-02_JPRB,1.8464E-02_JPRB/)
1736
KAO( :, 4, 1, 9) = (/&
1737
 & 1.7363E-02_JPRB,1.7942E-02_JPRB,1.9281E-02_JPRB,2.0718E-02_JPRB,2.1801E-02_JPRB,2.2424E-02_JPRB,&
1738
10
 & 2.2300E-02_JPRB,2.2092E-02_JPRB,2.3948E-02_JPRB/)
1739
KAO( :, 5, 1, 9) = (/&
1740
 & 1.9984E-02_JPRB,2.1018E-02_JPRB,2.2868E-02_JPRB,2.4808E-02_JPRB,2.6324E-02_JPRB,2.7242E-02_JPRB,&
1741
10
 & 2.7276E-02_JPRB,2.7701E-02_JPRB,3.0488E-02_JPRB/)
1742
KAO( :, 1, 2, 9) = (/&
1743
 & 9.5128E-03_JPRB,9.2867E-03_JPRB,9.5490E-03_JPRB,9.8633E-03_JPRB,1.0027E-02_JPRB,1.0058E-02_JPRB,&
1744
10
 & 9.7636E-03_JPRB,8.7994E-03_JPRB,8.5570E-03_JPRB/)
1745
KAO( :, 2, 2, 9) = (/&
1746
 & 1.1668E-02_JPRB,1.1584E-02_JPRB,1.2077E-02_JPRB,1.2559E-02_JPRB,1.2920E-02_JPRB,1.3060E-02_JPRB,&
1747
10
 & 1.2825E-02_JPRB,1.1983E-02_JPRB,1.1751E-02_JPRB/)
1748
KAO( :, 3, 2, 9) = (/&
1749
 & 1.4011E-02_JPRB,1.4151E-02_JPRB,1.4940E-02_JPRB,1.5660E-02_JPRB,1.6284E-02_JPRB,1.6579E-02_JPRB,&
1750
10
 & 1.6367E-02_JPRB,1.5804E-02_JPRB,1.5742E-02_JPRB/)
1751
KAO( :, 4, 2, 9) = (/&
1752
 & 1.6508E-02_JPRB,1.6961E-02_JPRB,1.8102E-02_JPRB,1.9197E-02_JPRB,2.0137E-02_JPRB,2.0668E-02_JPRB,&
1753
10
 & 2.0505E-02_JPRB,2.0318E-02_JPRB,2.0610E-02_JPRB/)
1754
KAO( :, 5, 2, 9) = (/&
1755
 & 1.9122E-02_JPRB,2.0006E-02_JPRB,2.1590E-02_JPRB,2.3174E-02_JPRB,2.4520E-02_JPRB,2.5288E-02_JPRB,&
1756
10
 & 2.5261E-02_JPRB,2.5631E-02_JPRB,2.6467E-02_JPRB/)
1757
KAO( :, 1, 3, 9) = (/&
1758
 & 8.4316E-03_JPRB,8.1842E-03_JPRB,8.3414E-03_JPRB,8.4601E-03_JPRB,8.4527E-03_JPRB,8.3467E-03_JPRB,&
1759
10
 & 8.0420E-03_JPRB,7.1142E-03_JPRB,6.5461E-03_JPRB/)
1760
KAO( :, 2, 3, 9) = (/&
1761
 & 1.0508E-02_JPRB,1.0365E-02_JPRB,1.0700E-02_JPRB,1.0941E-02_JPRB,1.1049E-02_JPRB,1.1031E-02_JPRB,&
1762
10
 & 1.0751E-02_JPRB,9.9386E-03_JPRB,9.1449E-03_JPRB/)
1763
KAO( :, 3, 3, 9) = (/&
1764
 & 1.2785E-02_JPRB,1.2829E-02_JPRB,1.3389E-02_JPRB,1.3825E-02_JPRB,1.4105E-02_JPRB,1.4232E-02_JPRB,&
1765
10
 & 1.3991E-02_JPRB,1.3420E-02_JPRB,1.2428E-02_JPRB/)
1766
KAO( :, 4, 3, 9) = (/&
1767
 & 1.5245E-02_JPRB,1.5545E-02_JPRB,1.6390E-02_JPRB,1.7132E-02_JPRB,1.7666E-02_JPRB,1.7977E-02_JPRB,&
1768
10
 & 1.7716E-02_JPRB,1.7486E-02_JPRB,1.6472E-02_JPRB/)
1769
KAO( :, 5, 3, 9) = (/&
1770
 & 1.7859E-02_JPRB,1.8505E-02_JPRB,1.9736E-02_JPRB,2.0852E-02_JPRB,2.1757E-02_JPRB,2.2224E-02_JPRB,&
1771
10
 & 2.2056E-02_JPRB,2.2280E-02_JPRB,2.1403E-02_JPRB/)
1772
KAO( :, 1, 4, 9) = (/&
1773
 & 7.3484E-03_JPRB,7.0902E-03_JPRB,7.1380E-03_JPRB,7.1024E-03_JPRB,6.9776E-03_JPRB,6.7400E-03_JPRB,&
1774
10
 & 6.3521E-03_JPRB,5.4673E-03_JPRB,4.8295E-03_JPRB/)
1775
KAO( :, 2, 4, 9) = (/&
1776
 & 9.3310E-03_JPRB,9.1397E-03_JPRB,9.3159E-03_JPRB,9.3538E-03_JPRB,9.2681E-03_JPRB,9.0554E-03_JPRB,&
1777
10
 & 8.7344E-03_JPRB,7.9076E-03_JPRB,6.8828E-03_JPRB/)
1778
KAO( :, 3, 4, 9) = (/&
1779
 & 1.1534E-02_JPRB,1.1475E-02_JPRB,1.1819E-02_JPRB,1.1988E-02_JPRB,1.2000E-02_JPRB,1.1864E-02_JPRB,&
1780
10
 & 1.1575E-02_JPRB,1.0994E-02_JPRB,9.4901E-03_JPRB/)
1781
KAO( :, 4, 4, 9) = (/&
1782
 & 1.3943E-02_JPRB,1.4087E-02_JPRB,1.4649E-02_JPRB,1.5032E-02_JPRB,1.5214E-02_JPRB,1.5176E-02_JPRB,&
1783
10
 & 1.4865E-02_JPRB,1.4524E-02_JPRB,1.2777E-02_JPRB/)
1784
KAO( :, 5, 4, 9) = (/&
1785
 & 1.6517E-02_JPRB,1.6976E-02_JPRB,1.7827E-02_JPRB,1.8519E-02_JPRB,1.8920E-02_JPRB,1.9000E-02_JPRB,&
1786
10
 & 1.8720E-02_JPRB,1.8746E-02_JPRB,1.6804E-02_JPRB/)
1787
KAO( :, 1, 5, 9) = (/&
1788
 & 6.3624E-03_JPRB,6.1133E-03_JPRB,6.0634E-03_JPRB,5.9330E-03_JPRB,5.7181E-03_JPRB,5.4022E-03_JPRB,&
1789
10
 & 4.9483E-03_JPRB,4.1022E-03_JPRB,3.4892E-03_JPRB/)
1790
KAO( :, 2, 5, 9) = (/&
1791
 & 8.2407E-03_JPRB,8.0303E-03_JPRB,8.0632E-03_JPRB,7.9504E-03_JPRB,7.7253E-03_JPRB,7.3962E-03_JPRB,&
1792
10
 & 6.9698E-03_JPRB,6.1767E-03_JPRB,5.0748E-03_JPRB/)
1793
KAO( :, 3, 5, 9) = (/&
1794
 & 1.0363E-02_JPRB,1.0246E-02_JPRB,1.0387E-02_JPRB,1.0335E-02_JPRB,1.0149E-02_JPRB,9.8386E-03_JPRB,&
1795
10
 & 9.4225E-03_JPRB,8.8118E-03_JPRB,7.1402E-03_JPRB/)
1796
KAO( :, 4, 5, 9) = (/&
1797
 & 1.2695E-02_JPRB,1.2755E-02_JPRB,1.3046E-02_JPRB,1.3138E-02_JPRB,1.3029E-02_JPRB,1.2750E-02_JPRB,&
1798
10
 & 1.2327E-02_JPRB,1.1882E-02_JPRB,9.7414E-03_JPRB/)
1799
KAO( :, 5, 5, 9) = (/&
1800
 & 1.5221E-02_JPRB,1.5544E-02_JPRB,1.6067E-02_JPRB,1.6367E-02_JPRB,1.6363E-02_JPRB,1.6145E-02_JPRB,&
1801
10
 & 1.5702E-02_JPRB,1.5530E-02_JPRB,1.2966E-02_JPRB/)
1802
KAO( :, 1, 6, 9) = (/&
1803
 & 5.3819E-03_JPRB,5.1682E-03_JPRB,5.0489E-03_JPRB,4.8682E-03_JPRB,4.6033E-03_JPRB,4.2570E-03_JPRB,&
1804
10
 & 3.7892E-03_JPRB,2.8608E-03_JPRB,2.4512E-03_JPRB/)
1805
KAO( :, 2, 6, 9) = (/&
1806
 & 7.1280E-03_JPRB,6.9367E-03_JPRB,6.8489E-03_JPRB,6.6487E-03_JPRB,6.3384E-03_JPRB,5.9570E-03_JPRB,&
1807
10
 & 5.4784E-03_JPRB,4.6646E-03_JPRB,3.6355E-03_JPRB/)
1808
KAO( :, 3, 6, 9) = (/&
1809
 & 9.1302E-03_JPRB,9.0145E-03_JPRB,8.9822E-03_JPRB,8.7868E-03_JPRB,8.4616E-03_JPRB,8.0561E-03_JPRB,&
1810
10
 & 7.5662E-03_JPRB,6.8605E-03_JPRB,5.2018E-03_JPRB/)
1811
KAO( :, 4, 6, 9) = (/&
1812
 & 1.1358E-02_JPRB,1.1388E-02_JPRB,1.1456E-02_JPRB,1.1318E-02_JPRB,1.1012E-02_JPRB,1.0595E-02_JPRB,&
1813
10
 & 1.0058E-02_JPRB,9.4902E-03_JPRB,7.2223E-03_JPRB/)
1814
KAO( :, 5, 6, 9) = (/&
1815
 & 1.3798E-02_JPRB,1.4041E-02_JPRB,1.4287E-02_JPRB,1.4257E-02_JPRB,1.3997E-02_JPRB,1.3586E-02_JPRB,&
1816
10
 & 1.2991E-02_JPRB,1.2596E-02_JPRB,9.7278E-03_JPRB/)
1817
KAO( :, 1, 7, 9) = (/&
1818
 & 4.4201E-03_JPRB,4.2655E-03_JPRB,4.1450E-03_JPRB,3.9476E-03_JPRB,3.6722E-03_JPRB,3.3249E-03_JPRB,&
1819
10
 & 2.8458E-03_JPRB,1.9671E-03_JPRB,1.7803E-03_JPRB/)
1820
KAO( :, 2, 7, 9) = (/&
1821
 & 5.9991E-03_JPRB,5.8588E-03_JPRB,5.7556E-03_JPRB,5.5028E-03_JPRB,5.1661E-03_JPRB,4.7702E-03_JPRB,&
1822
10
 & 4.2756E-03_JPRB,3.4608E-03_JPRB,2.6084E-03_JPRB/)
1823
KAO( :, 3, 7, 9) = (/&
1824
 & 7.8395E-03_JPRB,7.7643E-03_JPRB,7.6944E-03_JPRB,7.4017E-03_JPRB,7.0170E-03_JPRB,6.5646E-03_JPRB,&
1825
10
 & 6.0423E-03_JPRB,5.2630E-03_JPRB,3.7628E-03_JPRB/)
1826
KAO( :, 4, 7, 9) = (/&
1827
 & 9.9189E-03_JPRB,9.9815E-03_JPRB,9.9658E-03_JPRB,9.6723E-03_JPRB,9.2685E-03_JPRB,8.7611E-03_JPRB,&
1828
10
 & 8.1722E-03_JPRB,7.4723E-03_JPRB,5.2872E-03_JPRB/)
1829
KAO( :, 5, 7, 9) = (/&
1830
 & 1.2224E-02_JPRB,1.2487E-02_JPRB,1.2587E-02_JPRB,1.2338E-02_JPRB,1.1918E-02_JPRB,1.1379E-02_JPRB,&
1831
10
 & 1.0715E-02_JPRB,1.0101E-02_JPRB,7.2253E-03_JPRB/)
1832
KAO( :, 1, 8, 9) = (/&
1833
 & 3.5350E-03_JPRB,3.4325E-03_JPRB,3.3275E-03_JPRB,3.1605E-03_JPRB,2.8988E-03_JPRB,2.5686E-03_JPRB,&
1834
10
 & 2.1091E-03_JPRB,1.2955E-03_JPRB,2.2677E-03_JPRB/)
1835
KAO( :, 2, 8, 9) = (/&
1836
 & 4.9245E-03_JPRB,4.8341E-03_JPRB,4.7376E-03_JPRB,4.5164E-03_JPRB,4.1844E-03_JPRB,3.7894E-03_JPRB,&
1837
10
 & 3.3070E-03_JPRB,2.4762E-03_JPRB,2.6602E-03_JPRB/)
1838
KAO( :, 3, 8, 9) = (/&
1839
 & 6.5727E-03_JPRB,6.5413E-03_JPRB,6.4715E-03_JPRB,6.1921E-03_JPRB,5.7948E-03_JPRB,5.3290E-03_JPRB,&
1840
10
 & 4.7963E-03_JPRB,4.0123E-03_JPRB,3.3053E-03_JPRB/)
1841
KAO( :, 4, 8, 9) = (/&
1842
 & 8.4673E-03_JPRB,8.5585E-03_JPRB,8.5340E-03_JPRB,8.2251E-03_JPRB,7.7660E-03_JPRB,7.2331E-03_JPRB,&
1843
10
 & 6.6181E-03_JPRB,5.8537E-03_JPRB,4.2835E-03_JPRB/)
1844
KAO( :, 5, 8, 9) = (/&
1845
 & 1.0594E-02_JPRB,1.0877E-02_JPRB,1.0934E-02_JPRB,1.0630E-02_JPRB,1.0118E-02_JPRB,9.5083E-03_JPRB,&
1846
10
 & 8.7956E-03_JPRB,8.0306E-03_JPRB,5.6393E-03_JPRB/)
1847
KAO( :, 1, 9, 9) = (/&
1848
 & 2.7403E-03_JPRB,2.6787E-03_JPRB,2.5973E-03_JPRB,2.4570E-03_JPRB,2.2443E-03_JPRB,1.9562E-03_JPRB,&
1849
10
 & 1.5185E-03_JPRB,8.3616E-04_JPRB,1.0274E-02_JPRB/)
1850
KAO( :, 2, 9, 9) = (/&
1851
 & 3.9274E-03_JPRB,3.8796E-03_JPRB,3.7992E-03_JPRB,3.6140E-03_JPRB,3.3367E-03_JPRB,2.9763E-03_JPRB,&
1852
10
 & 2.5173E-03_JPRB,1.7223E-03_JPRB,1.0390E-02_JPRB/)
1853
KAO( :, 3, 9, 9) = (/&
1854
 & 5.3634E-03_JPRB,5.3721E-03_JPRB,5.3082E-03_JPRB,5.0709E-03_JPRB,4.7250E-03_JPRB,4.2829E-03_JPRB,&
1855
10
 & 3.7573E-03_JPRB,2.9940E-03_JPRB,1.0638E-02_JPRB/)
1856
KAO( :, 4, 9, 9) = (/&
1857
 & 7.0458E-03_JPRB,7.1640E-03_JPRB,7.1301E-03_JPRB,6.8617E-03_JPRB,6.4511E-03_JPRB,5.9118E-03_JPRB,&
1858
10
 & 5.2974E-03_JPRB,4.5531E-03_JPRB,1.1091E-02_JPRB/)
1859
KAO( :, 5, 9, 9) = (/&
1860
 & 8.9617E-03_JPRB,9.2589E-03_JPRB,9.2849E-03_JPRB,9.0088E-03_JPRB,8.5345E-03_JPRB,7.8845E-03_JPRB,&
1861
10
 & 7.1544E-03_JPRB,6.3553E-03_JPRB,1.1709E-02_JPRB/)
1862
KAO( :, 1,10, 9) = (/&
1863
 & 2.1319E-03_JPRB,2.1004E-03_JPRB,2.0372E-03_JPRB,1.9210E-03_JPRB,1.7497E-03_JPRB,1.5111E-03_JPRB,&
1864
10
 & 1.1301E-03_JPRB,5.5756E-04_JPRB,7.5283E-02_JPRB/)
1865
KAO( :, 2,10, 9) = (/&
1866
 & 3.1363E-03_JPRB,3.1212E-03_JPRB,3.0574E-03_JPRB,2.9015E-03_JPRB,2.6722E-03_JPRB,2.3756E-03_JPRB,&
1867
10
 & 1.9576E-03_JPRB,1.2195E-03_JPRB,7.4064E-02_JPRB/)
1868
KAO( :, 3,10, 9) = (/&
1869
 & 4.3731E-03_JPRB,4.4117E-03_JPRB,4.3602E-03_JPRB,4.1608E-03_JPRB,3.8669E-03_JPRB,3.4927E-03_JPRB,&
1870
10
 & 3.0050E-03_JPRB,2.2902E-03_JPRB,7.3035E-02_JPRB/)
1871
KAO( :, 4,10, 9) = (/&
1872
 & 5.8455E-03_JPRB,5.9881E-03_JPRB,5.9565E-03_JPRB,5.7270E-03_JPRB,5.3754E-03_JPRB,4.9035E-03_JPRB,&
1873
10
 & 4.3124E-03_JPRB,3.6091E-03_JPRB,7.2537E-02_JPRB/)
1874
KAO( :, 5,10, 9) = (/&
1875
 & 7.5468E-03_JPRB,7.8566E-03_JPRB,7.8695E-03_JPRB,7.6289E-03_JPRB,7.2133E-03_JPRB,6.6234E-03_JPRB,&
1876
10
 & 5.9025E-03_JPRB,5.1322E-03_JPRB,7.2257E-02_JPRB/)
1877
1878
1
IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART6',1,ZHOOK_HANDLE)
1879
1
END SUBROUTINE PART6
1880
1881
1882
1
SUBROUTINE PART7
1883
1884
REAL(KIND=JPRB) :: ZHOOK_HANDLE
1885
1
IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART7',0,ZHOOK_HANDLE)
1886
1887
1888
KAO( :, 1,11, 9) = (/&
1889
 & 1.9745E-03_JPRB,1.9703E-03_JPRB,1.9199E-03_JPRB,1.8121E-03_JPRB,1.6559E-03_JPRB,1.4431E-03_JPRB,&
1890
10
 & 1.1163E-03_JPRB,5.3500E-04_JPRB,1.9757E-01_JPRB/)
1891
KAO( :, 2,11, 9) = (/&
1892
 & 2.8999E-03_JPRB,2.9279E-03_JPRB,2.8819E-03_JPRB,2.7350E-03_JPRB,2.5277E-03_JPRB,2.2543E-03_JPRB,&
1893
10
 & 1.8746E-03_JPRB,1.2124E-03_JPRB,1.9384E-01_JPRB/)
1894
KAO( :, 3,11, 9) = (/&
1895
 & 4.0444E-03_JPRB,4.1420E-03_JPRB,4.1037E-03_JPRB,3.9240E-03_JPRB,3.6578E-03_JPRB,3.3096E-03_JPRB,&
1896
10
 & 2.8567E-03_JPRB,2.1998E-03_JPRB,1.9071E-01_JPRB/)
1897
KAO( :, 4,11, 9) = (/&
1898
 & 5.4085E-03_JPRB,5.6287E-03_JPRB,5.6077E-03_JPRB,5.4059E-03_JPRB,5.0834E-03_JPRB,4.6413E-03_JPRB,&
1899
10
 & 4.0709E-03_JPRB,3.3776E-03_JPRB,1.8809E-01_JPRB/)
1900
KAO( :, 5,11, 9) = (/&
1901
 & 6.9941E-03_JPRB,7.3880E-03_JPRB,7.4108E-03_JPRB,7.2046E-03_JPRB,6.8126E-03_JPRB,6.2573E-03_JPRB,&
1902
10
 & 5.5477E-03_JPRB,4.7861E-03_JPRB,1.8600E-01_JPRB/)
1903
KAO( :, 1,12, 9) = (/&
1904
 & 1.7996E-03_JPRB,1.8206E-03_JPRB,1.7805E-03_JPRB,1.6829E-03_JPRB,1.5433E-03_JPRB,1.3501E-03_JPRB,&
1905
10
 & 1.0572E-03_JPRB,5.4808E-04_JPRB,3.2846E-01_JPRB/)
1906
KAO( :, 2,12, 9) = (/&
1907
 & 2.6426E-03_JPRB,2.7068E-03_JPRB,2.6687E-03_JPRB,2.5393E-03_JPRB,2.3520E-03_JPRB,2.1038E-03_JPRB,&
1908
10
 & 1.7678E-03_JPRB,1.1889E-03_JPRB,3.2273E-01_JPRB/)
1909
KAO( :, 3,12, 9) = (/&
1910
 & 3.6853E-03_JPRB,3.8343E-03_JPRB,3.8028E-03_JPRB,3.6418E-03_JPRB,3.4031E-03_JPRB,3.0855E-03_JPRB,&
1911
10
 & 2.6713E-03_JPRB,2.0755E-03_JPRB,3.1779E-01_JPRB/)
1912
KAO( :, 4,12, 9) = (/&
1913
 & 4.9356E-03_JPRB,5.2142E-03_JPRB,5.1981E-03_JPRB,5.0221E-03_JPRB,4.7252E-03_JPRB,4.3142E-03_JPRB,&
1914
10
 & 3.7960E-03_JPRB,3.1444E-03_JPRB,3.1325E-01_JPRB/)
1915
KAO( :, 5,12, 9) = (/&
1916
 & 6.3947E-03_JPRB,6.8520E-03_JPRB,6.8760E-03_JPRB,6.6872E-03_JPRB,6.3222E-03_JPRB,5.8083E-03_JPRB,&
1917
10
 & 5.1616E-03_JPRB,4.4214E-03_JPRB,3.0903E-01_JPRB/)
1918
KAO( :, 1,13, 9) = (/&
1919
 & 1.6151E-03_JPRB,1.6567E-03_JPRB,1.6234E-03_JPRB,1.5373E-03_JPRB,1.4124E-03_JPRB,1.2394E-03_JPRB,&
1920
10
 & 9.8564E-04_JPRB,5.5616E-04_JPRB,4.3871E-01_JPRB/)
1921
KAO( :, 2,13, 9) = (/&
1922
 & 2.3710E-03_JPRB,2.4678E-03_JPRB,2.4327E-03_JPRB,2.3183E-03_JPRB,2.1495E-03_JPRB,1.9302E-03_JPRB,&
1923
10
 & 1.6336E-03_JPRB,1.1398E-03_JPRB,4.3206E-01_JPRB/)
1924
KAO( :, 3,13, 9) = (/&
1925
 & 3.3121E-03_JPRB,3.4978E-03_JPRB,3.4669E-03_JPRB,3.3267E-03_JPRB,3.1113E-03_JPRB,2.8243E-03_JPRB,&
1926
10
 & 2.4585E-03_JPRB,1.9402E-03_JPRB,4.2585E-01_JPRB/)
1927
KAO( :, 4,13, 9) = (/&
1928
 & 4.4457E-03_JPRB,4.7587E-03_JPRB,4.7468E-03_JPRB,4.5875E-03_JPRB,4.3110E-03_JPRB,3.9394E-03_JPRB,&
1929
10
 & 3.4774E-03_JPRB,2.8993E-03_JPRB,4.1993E-01_JPRB/)
1930
KAO( :, 5,13, 9) = (/&
1931
 & 5.7689E-03_JPRB,6.2589E-03_JPRB,6.2951E-03_JPRB,6.1057E-03_JPRB,5.7619E-03_JPRB,5.2957E-03_JPRB,&
1932
10
 & 4.7230E-03_JPRB,4.0528E-03_JPRB,4.1400E-01_JPRB/)
1933
KAO( :, 1, 1,10) = (/&
1934
 & 2.8341E-02_JPRB,2.4949E-02_JPRB,2.4794E-02_JPRB,2.3987E-02_JPRB,2.3812E-02_JPRB,2.2586E-02_JPRB,&
1935
10
 & 2.0187E-02_JPRB,1.9376E-02_JPRB,2.5381E-02_JPRB/)
1936
KAO( :, 2, 1,10) = (/&
1937
 & 3.3991E-02_JPRB,3.0192E-02_JPRB,3.0574E-02_JPRB,3.0065E-02_JPRB,2.9840E-02_JPRB,2.8013E-02_JPRB,&
1938
10
 & 2.5566E-02_JPRB,2.6044E-02_JPRB,3.3447E-02_JPRB/)
1939
KAO( :, 3, 1,10) = (/&
1940
 & 3.9910E-02_JPRB,3.6271E-02_JPRB,3.6774E-02_JPRB,3.6789E-02_JPRB,3.6160E-02_JPRB,3.4328E-02_JPRB,&
1941
10
 & 3.2309E-02_JPRB,3.3900E-02_JPRB,4.2891E-02_JPRB/)
1942
KAO( :, 4, 1,10) = (/&
1943
 & 4.5950E-02_JPRB,4.3254E-02_JPRB,4.3515E-02_JPRB,4.3816E-02_JPRB,4.3274E-02_JPRB,4.0958E-02_JPRB,&
1944
10
 & 3.9828E-02_JPRB,4.3039E-02_JPRB,5.4536E-02_JPRB/)
1945
KAO( :, 5, 1,10) = (/&
1946
 & 5.2074E-02_JPRB,5.0170E-02_JPRB,5.0735E-02_JPRB,5.1340E-02_JPRB,5.0699E-02_JPRB,4.7916E-02_JPRB,&
1947
10
 & 4.9158E-02_JPRB,5.3574E-02_JPRB,6.8520E-02_JPRB/)
1948
KAO( :, 1, 2,10) = (/&
1949
 & 2.6184E-02_JPRB,2.3296E-02_JPRB,2.3226E-02_JPRB,2.2714E-02_JPRB,2.2514E-02_JPRB,2.1363E-02_JPRB,&
1950
10
 & 1.9364E-02_JPRB,1.8250E-02_JPRB,2.2856E-02_JPRB/)
1951
KAO( :, 2, 2,10) = (/&
1952
 & 3.1743E-02_JPRB,2.8597E-02_JPRB,2.8854E-02_JPRB,2.8835E-02_JPRB,2.8199E-02_JPRB,2.7046E-02_JPRB,&
1953
10
 & 2.4544E-02_JPRB,2.4456E-02_JPRB,3.0699E-02_JPRB/)
1954
KAO( :, 3, 2,10) = (/&
1955
 & 3.7600E-02_JPRB,3.4758E-02_JPRB,3.5112E-02_JPRB,3.5357E-02_JPRB,3.4504E-02_JPRB,3.3441E-02_JPRB,&
1956
10
 & 3.1117E-02_JPRB,3.2055E-02_JPRB,4.0509E-02_JPRB/)
1957
KAO( :, 4, 2,10) = (/&
1958
 & 4.3772E-02_JPRB,4.1496E-02_JPRB,4.2012E-02_JPRB,4.2309E-02_JPRB,4.1696E-02_JPRB,3.9959E-02_JPRB,&
1959
10
 & 3.8762E-02_JPRB,4.0415E-02_JPRB,5.2629E-02_JPRB/)
1960
KAO( :, 5, 2,10) = (/&
1961
 & 5.0069E-02_JPRB,4.8330E-02_JPRB,4.9427E-02_JPRB,4.9767E-02_JPRB,4.9310E-02_JPRB,4.7260E-02_JPRB,&
1962
10
 & 4.8222E-02_JPRB,5.0586E-02_JPRB,6.6929E-02_JPRB/)
1963
KAO( :, 1, 3,10) = (/&
1964
 & 2.2843E-02_JPRB,2.0821E-02_JPRB,2.0350E-02_JPRB,2.0283E-02_JPRB,1.9897E-02_JPRB,1.9120E-02_JPRB,&
1965
10
 & 1.7384E-02_JPRB,1.6170E-02_JPRB,1.8446E-02_JPRB/)
1966
KAO( :, 2, 3,10) = (/&
1967
 & 2.8199E-02_JPRB,2.6062E-02_JPRB,2.5776E-02_JPRB,2.5997E-02_JPRB,2.5440E-02_JPRB,2.4723E-02_JPRB,&
1968
10
 & 2.2441E-02_JPRB,2.1717E-02_JPRB,2.5483E-02_JPRB/)
1969
KAO( :, 3, 3,10) = (/&
1970
 & 3.3953E-02_JPRB,3.1919E-02_JPRB,3.1941E-02_JPRB,3.2157E-02_JPRB,3.1747E-02_JPRB,3.0922E-02_JPRB,&
1971
10
 & 2.8559E-02_JPRB,2.8709E-02_JPRB,3.4439E-02_JPRB/)
1972
KAO( :, 4, 3,10) = (/&
1973
 & 4.0002E-02_JPRB,3.8423E-02_JPRB,3.8902E-02_JPRB,3.8911E-02_JPRB,3.8820E-02_JPRB,3.7594E-02_JPRB,&
1974
10
 & 3.6351E-02_JPRB,3.6718E-02_JPRB,4.5775E-02_JPRB/)
1975
KAO( :, 5, 3,10) = (/&
1976
 & 4.6219E-02_JPRB,4.5155E-02_JPRB,4.6197E-02_JPRB,4.6387E-02_JPRB,4.6153E-02_JPRB,4.5334E-02_JPRB,&
1977
10
 & 4.5834E-02_JPRB,4.6534E-02_JPRB,5.9401E-02_JPRB/)
1978
KAO( :, 1, 4,10) = (/&
1979
 & 1.9312E-02_JPRB,1.7992E-02_JPRB,1.7480E-02_JPRB,1.7446E-02_JPRB,1.7111E-02_JPRB,1.6477E-02_JPRB,&
1980
10
 & 1.5243E-02_JPRB,1.3399E-02_JPRB,1.4121E-02_JPRB/)
1981
KAO( :, 2, 4,10) = (/&
1982
 & 2.4344E-02_JPRB,2.2955E-02_JPRB,2.2617E-02_JPRB,2.2783E-02_JPRB,2.2496E-02_JPRB,2.1867E-02_JPRB,&
1983
10
 & 1.9808E-02_JPRB,1.8936E-02_JPRB,1.9938E-02_JPRB/)
1984
KAO( :, 3, 4,10) = (/&
1985
 & 2.9801E-02_JPRB,2.8523E-02_JPRB,2.8566E-02_JPRB,2.8709E-02_JPRB,2.8682E-02_JPRB,2.7725E-02_JPRB,&
1986
10
 & 2.5334E-02_JPRB,2.5284E-02_JPRB,2.7743E-02_JPRB/)
1987
KAO( :, 4, 4,10) = (/&
1988
 & 3.5620E-02_JPRB,3.4742E-02_JPRB,3.5299E-02_JPRB,3.5308E-02_JPRB,3.5457E-02_JPRB,3.4419E-02_JPRB,&
1989
10
 & 3.2604E-02_JPRB,3.3013E-02_JPRB,3.7587E-02_JPRB/)
1990
KAO( :, 5, 4,10) = (/&
1991
 & 4.1887E-02_JPRB,4.1321E-02_JPRB,4.2274E-02_JPRB,4.2660E-02_JPRB,4.2937E-02_JPRB,4.2081E-02_JPRB,&
1992
10
 & 4.1593E-02_JPRB,4.2622E-02_JPRB,4.9653E-02_JPRB/)
1993
KAO( :, 1, 5,10) = (/&
1994
 & 1.5962E-02_JPRB,1.5091E-02_JPRB,1.4926E-02_JPRB,1.4725E-02_JPRB,1.4471E-02_JPRB,1.4016E-02_JPRB,&
1995
10
 & 1.2941E-02_JPRB,1.0781E-02_JPRB,1.0820E-02_JPRB/)
1996
KAO( :, 2, 5,10) = (/&
1997
 & 2.0561E-02_JPRB,1.9656E-02_JPRB,1.9606E-02_JPRB,1.9723E-02_JPRB,1.9597E-02_JPRB,1.8959E-02_JPRB,&
1998
10
 & 1.7070E-02_JPRB,1.5994E-02_JPRB,1.5507E-02_JPRB/)
1999
KAO( :, 3, 5,10) = (/&
2000
 & 2.5675E-02_JPRB,2.4818E-02_JPRB,2.5196E-02_JPRB,2.5517E-02_JPRB,2.5439E-02_JPRB,2.4412E-02_JPRB,&
2001
10
 & 2.1991E-02_JPRB,2.1552E-02_JPRB,2.1888E-02_JPRB/)
2002
KAO( :, 4, 5,10) = (/&
2003
 & 3.1284E-02_JPRB,3.0688E-02_JPRB,3.1452E-02_JPRB,3.1913E-02_JPRB,3.1938E-02_JPRB,3.0781E-02_JPRB,&
2004
10
 & 2.8330E-02_JPRB,2.8796E-02_JPRB,3.0247E-02_JPRB/)
2005
KAO( :, 5, 5,10) = (/&
2006
 & 3.7244E-02_JPRB,3.7039E-02_JPRB,3.8113E-02_JPRB,3.9041E-02_JPRB,3.9409E-02_JPRB,3.8138E-02_JPRB,&
2007
10
 & 3.6567E-02_JPRB,3.7730E-02_JPRB,4.0679E-02_JPRB/)
2008
KAO( :, 1, 6,10) = (/&
2009
 & 1.2975E-02_JPRB,1.2256E-02_JPRB,1.2340E-02_JPRB,1.2080E-02_JPRB,1.1895E-02_JPRB,1.1506E-02_JPRB,&
2010
10
 & 1.0365E-02_JPRB,8.5383E-03_JPRB,8.0172E-03_JPRB/)
2011
KAO( :, 2, 6,10) = (/&
2012
 & 1.7187E-02_JPRB,1.6321E-02_JPRB,1.6561E-02_JPRB,1.6669E-02_JPRB,1.6611E-02_JPRB,1.5858E-02_JPRB,&
2013
10
 & 1.4206E-02_JPRB,1.2638E-02_JPRB,1.1866E-02_JPRB/)
2014
KAO( :, 3, 6,10) = (/&
2015
 & 2.1950E-02_JPRB,2.1039E-02_JPRB,2.1721E-02_JPRB,2.2100E-02_JPRB,2.1989E-02_JPRB,2.0834E-02_JPRB,&
2016
10
 & 1.8607E-02_JPRB,1.7648E-02_JPRB,1.7187E-02_JPRB/)
2017
KAO( :, 4, 6,10) = (/&
2018
 & 2.7221E-02_JPRB,2.6492E-02_JPRB,2.7582E-02_JPRB,2.8232E-02_JPRB,2.8034E-02_JPRB,2.6720E-02_JPRB,&
2019
10
 & 2.4048E-02_JPRB,2.4099E-02_JPRB,2.3975E-02_JPRB/)
2020
KAO( :, 5, 6,10) = (/&
2021
 & 3.2966E-02_JPRB,3.2596E-02_JPRB,3.4013E-02_JPRB,3.5128E-02_JPRB,3.5174E-02_JPRB,3.3585E-02_JPRB,&
2022
10
 & 3.0966E-02_JPRB,3.2147E-02_JPRB,3.2714E-02_JPRB/)
2023
KAO( :, 1, 7,10) = (/&
2024
 & 1.1003E-02_JPRB,1.0172E-02_JPRB,9.9689E-03_JPRB,9.7030E-03_JPRB,9.5816E-03_JPRB,9.1864E-03_JPRB,&
2025
10
 & 8.3157E-03_JPRB,6.5477E-03_JPRB,5.8584E-03_JPRB/)
2026
KAO( :, 2, 7,10) = (/&
2027
 & 1.4954E-02_JPRB,1.3915E-02_JPRB,1.3705E-02_JPRB,1.3805E-02_JPRB,1.3711E-02_JPRB,1.2918E-02_JPRB,&
2028
10
 & 1.1613E-02_JPRB,9.7524E-03_JPRB,8.8921E-03_JPRB/)
2029
KAO( :, 3, 7,10) = (/&
2030
 & 1.9525E-02_JPRB,1.8286E-02_JPRB,1.8359E-02_JPRB,1.8803E-02_JPRB,1.8505E-02_JPRB,1.7397E-02_JPRB,&
2031
10
 & 1.5545E-02_JPRB,1.4074E-02_JPRB,1.3147E-02_JPRB/)
2032
KAO( :, 4, 7,10) = (/&
2033
 & 2.4765E-02_JPRB,2.3347E-02_JPRB,2.3852E-02_JPRB,2.4521E-02_JPRB,2.4046E-02_JPRB,2.2746E-02_JPRB,&
2034
10
 & 2.0338E-02_JPRB,1.9593E-02_JPRB,1.8718E-02_JPRB/)
2035
KAO( :, 5, 7,10) = (/&
2036
 & 3.0444E-02_JPRB,2.9114E-02_JPRB,2.9981E-02_JPRB,3.1001E-02_JPRB,3.0659E-02_JPRB,2.9115E-02_JPRB,&
2037
10
 & 2.6153E-02_JPRB,2.6663E-02_JPRB,2.5778E-02_JPRB/)
2038
KAO( :, 1, 8,10) = (/&
2039
 & 9.5903E-03_JPRB,8.7677E-03_JPRB,8.2751E-03_JPRB,7.7628E-03_JPRB,7.6194E-03_JPRB,7.2194E-03_JPRB,&
2040
10
 & 6.4757E-03_JPRB,5.1626E-03_JPRB,4.5446E-03_JPRB/)
2041
KAO( :, 2, 8,10) = (/&
2042
 & 1.3386E-02_JPRB,1.2290E-02_JPRB,1.1661E-02_JPRB,1.1306E-02_JPRB,1.1055E-02_JPRB,1.0454E-02_JPRB,&
2043
10
 & 9.3918E-03_JPRB,7.5740E-03_JPRB,6.6212E-03_JPRB/)
2044
KAO( :, 3, 8,10) = (/&
2045
 & 1.7895E-02_JPRB,1.6495E-02_JPRB,1.5871E-02_JPRB,1.5730E-02_JPRB,1.5237E-02_JPRB,1.4347E-02_JPRB,&
2046
10
 & 1.2880E-02_JPRB,1.1121E-02_JPRB,9.9657E-03_JPRB/)
2047
KAO( :, 4, 8,10) = (/&
2048
 & 2.3088E-02_JPRB,2.1460E-02_JPRB,2.0931E-02_JPRB,2.0828E-02_JPRB,2.0243E-02_JPRB,1.9039E-02_JPRB,&
2049
10
 & 1.7178E-02_JPRB,1.5707E-02_JPRB,1.4369E-02_JPRB/)
2050
KAO( :, 5, 8,10) = (/&
2051
 & 2.8768E-02_JPRB,2.7065E-02_JPRB,2.6736E-02_JPRB,2.6678E-02_JPRB,2.6248E-02_JPRB,2.4878E-02_JPRB,&
2052
10
 & 2.2359E-02_JPRB,2.1798E-02_JPRB,1.9974E-02_JPRB/)
2053
KAO( :, 1, 9,10) = (/&
2054
 & 8.1489E-03_JPRB,7.4648E-03_JPRB,6.9804E-03_JPRB,6.4191E-03_JPRB,5.9636E-03_JPRB,5.4909E-03_JPRB,&
2055
10
 & 4.8784E-03_JPRB,3.8347E-03_JPRB,1.5314E-02_JPRB/)
2056
KAO( :, 2, 9,10) = (/&
2057
 & 1.1712E-02_JPRB,1.0789E-02_JPRB,1.0109E-02_JPRB,9.4829E-03_JPRB,8.8584E-03_JPRB,8.2278E-03_JPRB,&
2058
10
 & 7.3764E-03_JPRB,5.7877E-03_JPRB,1.6244E-02_JPRB/)
2059
KAO( :, 3, 9,10) = (/&
2060
 & 1.6046E-02_JPRB,1.4820E-02_JPRB,1.4055E-02_JPRB,1.3332E-02_JPRB,1.2456E-02_JPRB,1.1636E-02_JPRB,&
2061
10
 & 1.0489E-02_JPRB,8.6873E-03_JPRB,1.7494E-02_JPRB/)
2062
KAO( :, 4, 9,10) = (/&
2063
 & 2.1066E-02_JPRB,1.9610E-02_JPRB,1.8931E-02_JPRB,1.7888E-02_JPRB,1.6756E-02_JPRB,1.5784E-02_JPRB,&
2064
10
 & 1.4417E-02_JPRB,1.2557E-02_JPRB,1.9326E-02_JPRB/)
2065
KAO( :, 5, 9,10) = (/&
2066
 & 2.6667E-02_JPRB,2.5074E-02_JPRB,2.4522E-02_JPRB,2.3189E-02_JPRB,2.2008E-02_JPRB,2.0995E-02_JPRB,&
2067
10
 & 1.9281E-02_JPRB,1.7791E-02_JPRB,2.1654E-02_JPRB/)
2068
KAO( :, 1,10,10) = (/&
2069
 & 6.9366E-03_JPRB,6.3789E-03_JPRB,5.9595E-03_JPRB,5.4852E-03_JPRB,4.9360E-03_JPRB,4.3201E-03_JPRB,&
2070
10
 & 3.7060E-03_JPRB,2.8411E-03_JPRB,1.0865E-01_JPRB/)
2071
KAO( :, 2,10,10) = (/&
2072
 & 1.0236E-02_JPRB,9.4750E-03_JPRB,8.8501E-03_JPRB,8.3036E-03_JPRB,7.4880E-03_JPRB,6.6146E-03_JPRB,&
2073
10
 & 5.8580E-03_JPRB,4.5793E-03_JPRB,1.0627E-01_JPRB/)
2074
KAO( :, 3,10,10) = (/&
2075
 & 1.4332E-02_JPRB,1.3324E-02_JPRB,1.2604E-02_JPRB,1.1845E-02_JPRB,1.0730E-02_JPRB,9.5741E-03_JPRB,&
2076
10
 & 8.5876E-03_JPRB,7.0236E-03_JPRB,1.0490E-01_JPRB/)
2077
KAO( :, 4,10,10) = (/&
2078
 & 1.9120E-02_JPRB,1.7914E-02_JPRB,1.7311E-02_JPRB,1.6108E-02_JPRB,1.4592E-02_JPRB,1.3253E-02_JPRB,&
2079
10
 & 1.2097E-02_JPRB,1.0165E-02_JPRB,1.0426E-01_JPRB/)
2080
KAO( :, 5,10,10) = (/&
2081
 & 2.4561E-02_JPRB,2.3221E-02_JPRB,2.2646E-02_JPRB,2.1122E-02_JPRB,1.9334E-02_JPRB,1.7961E-02_JPRB,&
2082
10
 & 1.6559E-02_JPRB,1.4610E-02_JPRB,1.0510E-01_JPRB/)
2083
KAO( :, 1,11,10) = (/&
2084
 & 7.0237E-03_JPRB,6.5225E-03_JPRB,6.1043E-03_JPRB,5.6444E-03_JPRB,5.0633E-03_JPRB,4.3399E-03_JPRB,&
2085
10
 & 3.5607E-03_JPRB,2.6850E-03_JPRB,2.8892E-01_JPRB/)
2086
KAO( :, 2,11,10) = (/&
2087
 & 1.0384E-02_JPRB,9.6831E-03_JPRB,9.0835E-03_JPRB,8.5192E-03_JPRB,7.6404E-03_JPRB,6.6528E-03_JPRB,&
2088
10
 & 5.6514E-03_JPRB,4.5273E-03_JPRB,2.8169E-01_JPRB/)
2089
KAO( :, 3,11,10) = (/&
2090
 & 1.4456E-02_JPRB,1.3566E-02_JPRB,1.2997E-02_JPRB,1.2107E-02_JPRB,1.0901E-02_JPRB,9.5425E-03_JPRB,&
2091
10
 & 8.2374E-03_JPRB,6.8400E-03_JPRB,2.7734E-01_JPRB/)
2092
KAO( :, 4,11,10) = (/&
2093
 & 1.9195E-02_JPRB,1.8156E-02_JPRB,1.7656E-02_JPRB,1.6419E-02_JPRB,1.4881E-02_JPRB,1.3205E-02_JPRB,&
2094
10
 & 1.1741E-02_JPRB,9.9915E-03_JPRB,2.7331E-01_JPRB/)
2095
KAO( :, 5,11,10) = (/&
2096
 & 2.4521E-02_JPRB,2.3536E-02_JPRB,2.2979E-02_JPRB,2.1464E-02_JPRB,1.9799E-02_JPRB,1.7771E-02_JPRB,&
2097
10
 & 1.6045E-02_JPRB,1.4047E-02_JPRB,2.7061E-01_JPRB/)
2098
KAO( :, 1,12,10) = (/&
2099
 & 6.9801E-03_JPRB,6.5414E-03_JPRB,6.1464E-03_JPRB,5.6988E-03_JPRB,5.0902E-03_JPRB,4.4198E-03_JPRB,&
2100
10
 & 3.6370E-03_JPRB,2.5506E-03_JPRB,4.9609E-01_JPRB/)
2101
KAO( :, 2,12,10) = (/&
2102
 & 1.0252E-02_JPRB,9.6631E-03_JPRB,9.2104E-03_JPRB,8.5451E-03_JPRB,7.6724E-03_JPRB,6.7086E-03_JPRB,&
2103
10
 & 5.5412E-03_JPRB,4.4277E-03_JPRB,4.8672E-01_JPRB/)
2104
KAO( :, 3,12,10) = (/&
2105
 & 1.4194E-02_JPRB,1.3473E-02_JPRB,1.3019E-02_JPRB,1.2130E-02_JPRB,1.0940E-02_JPRB,9.6059E-03_JPRB,&
2106
10
 & 8.1091E-03_JPRB,6.7337E-03_JPRB,4.7779E-01_JPRB/)
2107
KAO( :, 4,12,10) = (/&
2108
 & 1.8764E-02_JPRB,1.7996E-02_JPRB,1.7549E-02_JPRB,1.6391E-02_JPRB,1.4970E-02_JPRB,1.3362E-02_JPRB,&
2109
10
 & 1.1424E-02_JPRB,9.7371E-03_JPRB,4.7094E-01_JPRB/)
2110
KAO( :, 5,12,10) = (/&
2111
 & 2.3822E-02_JPRB,2.3255E-02_JPRB,2.2798E-02_JPRB,2.1487E-02_JPRB,1.9935E-02_JPRB,1.7893E-02_JPRB,&
2112
10
 & 1.5477E-02_JPRB,1.3501E-02_JPRB,4.6404E-01_JPRB/)
2113
KAO( :, 1,13,10) = (/&
2114
 & 6.7570E-03_JPRB,6.3985E-03_JPRB,6.0648E-03_JPRB,5.6090E-03_JPRB,5.0372E-03_JPRB,4.3896E-03_JPRB,&
2115
10
 & 3.5984E-03_JPRB,2.5612E-03_JPRB,7.0129E-01_JPRB/)
2116
KAO( :, 2,13,10) = (/&
2117
 & 9.8516E-03_JPRB,9.3610E-03_JPRB,9.0380E-03_JPRB,8.3857E-03_JPRB,7.5801E-03_JPRB,6.6037E-03_JPRB,&
2118
10
 & 5.4660E-03_JPRB,4.1572E-03_JPRB,6.8624E-01_JPRB/)
2119
KAO( :, 3,13,10) = (/&
2120
 & 1.3565E-02_JPRB,1.3023E-02_JPRB,1.2697E-02_JPRB,1.1845E-02_JPRB,1.0771E-02_JPRB,9.5129E-03_JPRB,&
2121
10
 & 8.0355E-03_JPRB,6.4068E-03_JPRB,6.7348E-01_JPRB/)
2122
KAO( :, 4,13,10) = (/&
2123
 & 1.7823E-02_JPRB,1.7451E-02_JPRB,1.7031E-02_JPRB,1.6025E-02_JPRB,1.4810E-02_JPRB,1.3226E-02_JPRB,&
2124
10
 & 1.1248E-02_JPRB,9.2627E-03_JPRB,6.6252E-01_JPRB/)
2125
KAO( :, 5,13,10) = (/&
2126
 & 2.2635E-02_JPRB,2.2570E-02_JPRB,2.2029E-02_JPRB,2.1116E-02_JPRB,1.9648E-02_JPRB,1.7648E-02_JPRB,&
2127
10
 & 1.5125E-02_JPRB,1.2814E-02_JPRB,6.5224E-01_JPRB/)
2128
KAO( :, 1, 1,11) = (/&
2129
 & 4.0423E-02_JPRB,3.5511E-02_JPRB,3.2385E-02_JPRB,3.1302E-02_JPRB,2.9329E-02_JPRB,2.7493E-02_JPRB,&
2130
10
 & 2.5237E-02_JPRB,2.6262E-02_JPRB,3.3335E-02_JPRB/)
2131
KAO( :, 2, 1,11) = (/&
2132
 & 4.8068E-02_JPRB,4.2224E-02_JPRB,3.9790E-02_JPRB,3.8473E-02_JPRB,3.6916E-02_JPRB,3.3889E-02_JPRB,&
2133
10
 & 3.2387E-02_JPRB,3.4784E-02_JPRB,4.3954E-02_JPRB/)
2134
KAO( :, 3, 1,11) = (/&
2135
 & 5.5962E-02_JPRB,4.9147E-02_JPRB,4.7932E-02_JPRB,4.6498E-02_JPRB,4.4808E-02_JPRB,4.0788E-02_JPRB,&
2136
10
 & 4.1145E-02_JPRB,4.4752E-02_JPRB,5.6848E-02_JPRB/)
2137
KAO( :, 4, 1,11) = (/&
2138
 & 6.3927E-02_JPRB,5.6554E-02_JPRB,5.6496E-02_JPRB,5.5146E-02_JPRB,5.2972E-02_JPRB,4.9275E-02_JPRB,&
2139
10
 & 5.2218E-02_JPRB,5.7028E-02_JPRB,7.1593E-02_JPRB/)
2140
KAO( :, 5, 1,11) = (/&
2141
 & 7.1900E-02_JPRB,6.5533E-02_JPRB,6.5482E-02_JPRB,6.4060E-02_JPRB,6.1054E-02_JPRB,5.9498E-02_JPRB,&
2142
10
 & 6.4850E-02_JPRB,7.0769E-02_JPRB,8.8897E-02_JPRB/)
2143
KAO( :, 1, 2,11) = (/&
2144
 & 3.8292E-02_JPRB,3.3588E-02_JPRB,3.1358E-02_JPRB,2.9906E-02_JPRB,2.8447E-02_JPRB,2.6569E-02_JPRB,&
2145
10
 & 2.3944E-02_JPRB,2.4132E-02_JPRB,3.1513E-02_JPRB/)
2146
KAO( :, 2, 2,11) = (/&
2147
 & 4.5994E-02_JPRB,4.0345E-02_JPRB,3.8650E-02_JPRB,3.7178E-02_JPRB,3.6077E-02_JPRB,3.2811E-02_JPRB,&
2148
10
 & 3.1189E-02_JPRB,3.2232E-02_JPRB,4.1849E-02_JPRB/)
2149
KAO( :, 3, 2,11) = (/&
2150
 & 5.3984E-02_JPRB,4.7456E-02_JPRB,4.6641E-02_JPRB,4.5568E-02_JPRB,4.3973E-02_JPRB,3.9559E-02_JPRB,&
2151
10
 & 3.9776E-02_JPRB,4.1895E-02_JPRB,5.4339E-02_JPRB/)
2152
KAO( :, 4, 2,11) = (/&
2153
 & 6.2153E-02_JPRB,5.5541E-02_JPRB,5.5147E-02_JPRB,5.4419E-02_JPRB,5.2145E-02_JPRB,4.8212E-02_JPRB,&
2154
10
 & 5.0049E-02_JPRB,5.4211E-02_JPRB,6.8573E-02_JPRB/)
2155
KAO( :, 5, 2,11) = (/&
2156
 & 7.0498E-02_JPRB,6.4912E-02_JPRB,6.4005E-02_JPRB,6.3675E-02_JPRB,6.0340E-02_JPRB,5.8471E-02_JPRB,&
2157
10
 & 6.1765E-02_JPRB,6.8106E-02_JPRB,8.5795E-02_JPRB/)
2158
KAO( :, 1, 3,11) = (/&
2159
 & 3.4351E-02_JPRB,3.0114E-02_JPRB,2.8690E-02_JPRB,2.7033E-02_JPRB,2.5922E-02_JPRB,2.4043E-02_JPRB,&
2160
10
 & 2.1412E-02_JPRB,2.0519E-02_JPRB,2.7411E-02_JPRB/)
2161
KAO( :, 2, 3,11) = (/&
2162
 & 4.1940E-02_JPRB,3.6767E-02_JPRB,3.5782E-02_JPRB,3.4187E-02_JPRB,3.3188E-02_JPRB,3.0297E-02_JPRB,&
2163
10
 & 2.8550E-02_JPRB,2.8551E-02_JPRB,3.7044E-02_JPRB/)
2164
KAO( :, 3, 3,11) = (/&
2165
 & 5.0028E-02_JPRB,4.4118E-02_JPRB,4.3712E-02_JPRB,4.2513E-02_JPRB,4.0818E-02_JPRB,3.7223E-02_JPRB,&
2166
10
 & 3.6892E-02_JPRB,3.7585E-02_JPRB,4.9025E-02_JPRB/)
2167
KAO( :, 4, 3,11) = (/&
2168
 & 5.8382E-02_JPRB,5.2350E-02_JPRB,5.2192E-02_JPRB,5.1365E-02_JPRB,4.8840E-02_JPRB,4.5605E-02_JPRB,&
2169
10
 & 4.6688E-02_JPRB,4.8795E-02_JPRB,6.3308E-02_JPRB/)
2170
KAO( :, 5, 3,11) = (/&
2171
 & 6.6855E-02_JPRB,6.1851E-02_JPRB,6.1319E-02_JPRB,6.0440E-02_JPRB,5.7553E-02_JPRB,5.5141E-02_JPRB,&
2172
10
 & 5.7507E-02_JPRB,6.1726E-02_JPRB,8.0747E-02_JPRB/)
2173
KAO( :, 1, 4,11) = (/&
2174
 & 2.9914E-02_JPRB,2.6434E-02_JPRB,2.5229E-02_JPRB,2.3960E-02_JPRB,2.2872E-02_JPRB,2.1167E-02_JPRB,&
2175
10
 & 1.8618E-02_JPRB,1.7654E-02_JPRB,2.2206E-02_JPRB/)
2176
KAO( :, 2, 4,11) = (/&
2177
 & 3.7311E-02_JPRB,3.2955E-02_JPRB,3.1987E-02_JPRB,3.0816E-02_JPRB,2.9746E-02_JPRB,2.7451E-02_JPRB,&
2178
10
 & 2.5496E-02_JPRB,2.4816E-02_JPRB,3.0769E-02_JPRB/)
2179
2180
1
IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART7',1,ZHOOK_HANDLE)
2181
1
END SUBROUTINE PART7
2182
2183
2184
1
SUBROUTINE PART8
2185
2186
REAL(KIND=JPRB) :: ZHOOK_HANDLE
2187
1
IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART8',0,ZHOOK_HANDLE)
2188
2189
2190
KAO( :, 3, 4,11) = (/&
2191
 & 4.5214E-02_JPRB,4.0225E-02_JPRB,3.9665E-02_JPRB,3.8830E-02_JPRB,3.7073E-02_JPRB,3.4317E-02_JPRB,&
2192
10
 & 3.3498E-02_JPRB,3.3259E-02_JPRB,4.1672E-02_JPRB/)
2193
KAO( :, 4, 4,11) = (/&
2194
 & 5.3522E-02_JPRB,4.8440E-02_JPRB,4.8077E-02_JPRB,4.7499E-02_JPRB,4.5060E-02_JPRB,4.2198E-02_JPRB,&
2195
10
 & 4.2877E-02_JPRB,4.3659E-02_JPRB,5.5415E-02_JPRB/)
2196
KAO( :, 5, 4,11) = (/&
2197
 & 6.2112E-02_JPRB,5.7637E-02_JPRB,5.7355E-02_JPRB,5.6365E-02_JPRB,5.3831E-02_JPRB,5.1483E-02_JPRB,&
2198
10
 & 5.3578E-02_JPRB,5.5548E-02_JPRB,7.2397E-02_JPRB/)
2199
KAO( :, 1, 5,11) = (/&
2200
 & 2.5525E-02_JPRB,2.2961E-02_JPRB,2.1743E-02_JPRB,2.1045E-02_JPRB,1.9762E-02_JPRB,1.8313E-02_JPRB,&
2201
10
 & 1.6006E-02_JPRB,1.4928E-02_JPRB,1.7243E-02_JPRB/)
2202
KAO( :, 2, 5,11) = (/&
2203
 & 3.2562E-02_JPRB,2.9297E-02_JPRB,2.8118E-02_JPRB,2.7378E-02_JPRB,2.6219E-02_JPRB,2.4429E-02_JPRB,&
2204
10
 & 2.2374E-02_JPRB,2.1608E-02_JPRB,2.4409E-02_JPRB/)
2205
KAO( :, 3, 5,11) = (/&
2206
 & 4.0237E-02_JPRB,3.6530E-02_JPRB,3.5529E-02_JPRB,3.4947E-02_JPRB,3.3507E-02_JPRB,3.1205E-02_JPRB,&
2207
10
 & 2.9865E-02_JPRB,2.9668E-02_JPRB,3.3965E-02_JPRB/)
2208
KAO( :, 4, 5,11) = (/&
2209
 & 4.8489E-02_JPRB,4.4640E-02_JPRB,4.3882E-02_JPRB,4.3184E-02_JPRB,4.1466E-02_JPRB,3.8716E-02_JPRB,&
2210
10
 & 3.8839E-02_JPRB,3.9053E-02_JPRB,4.6193E-02_JPRB/)
2211
KAO( :, 5, 5,11) = (/&
2212
 & 5.7075E-02_JPRB,5.3520E-02_JPRB,5.3151E-02_JPRB,5.1813E-02_JPRB,5.0143E-02_JPRB,4.7699E-02_JPRB,&
2213
10
 & 4.9575E-02_JPRB,5.0287E-02_JPRB,6.1844E-02_JPRB/)
2214
KAO( :, 1, 6,11) = (/&
2215
 & 2.1185E-02_JPRB,1.9366E-02_JPRB,1.8345E-02_JPRB,1.7861E-02_JPRB,1.6696E-02_JPRB,1.5286E-02_JPRB,&
2216
10
 & 1.3538E-02_JPRB,1.2110E-02_JPRB,1.3050E-02_JPRB/)
2217
KAO( :, 2, 6,11) = (/&
2218
 & 2.7736E-02_JPRB,2.5421E-02_JPRB,2.4344E-02_JPRB,2.3686E-02_JPRB,2.2632E-02_JPRB,2.1167E-02_JPRB,&
2219
10
 & 1.8994E-02_JPRB,1.8327E-02_JPRB,1.8722E-02_JPRB/)
2220
KAO( :, 3, 6,11) = (/&
2221
 & 3.5098E-02_JPRB,3.2433E-02_JPRB,3.1346E-02_JPRB,3.0890E-02_JPRB,2.9717E-02_JPRB,2.7709E-02_JPRB,&
2222
10
 & 2.5626E-02_JPRB,2.5639E-02_JPRB,2.6411E-02_JPRB/)
2223
KAO( :, 4, 6,11) = (/&
2224
 & 4.3033E-02_JPRB,4.0261E-02_JPRB,3.9466E-02_JPRB,3.8845E-02_JPRB,3.7545E-02_JPRB,3.4640E-02_JPRB,&
2225
10
 & 3.3862E-02_JPRB,3.4287E-02_JPRB,3.6956E-02_JPRB/)
2226
KAO( :, 5, 6,11) = (/&
2227
 & 5.1415E-02_JPRB,4.8889E-02_JPRB,4.8524E-02_JPRB,4.7406E-02_JPRB,4.5977E-02_JPRB,4.3021E-02_JPRB,&
2228
10
 & 4.4126E-02_JPRB,4.4906E-02_JPRB,5.0432E-02_JPRB/)
2229
KAO( :, 1, 7,11) = (/&
2230
 & 1.7209E-02_JPRB,1.5911E-02_JPRB,1.5312E-02_JPRB,1.4785E-02_JPRB,1.3788E-02_JPRB,1.2644E-02_JPRB,&
2231
10
 & 1.1178E-02_JPRB,9.4262E-03_JPRB,9.6250E-03_JPRB/)
2232
KAO( :, 2, 7,11) = (/&
2233
 & 2.3204E-02_JPRB,2.1530E-02_JPRB,2.0850E-02_JPRB,2.0150E-02_JPRB,1.9195E-02_JPRB,1.8013E-02_JPRB,&
2234
10
 & 1.5715E-02_JPRB,1.4967E-02_JPRB,1.4283E-02_JPRB/)
2235
KAO( :, 3, 7,11) = (/&
2236
 & 3.0021E-02_JPRB,2.8103E-02_JPRB,2.7384E-02_JPRB,2.6841E-02_JPRB,2.5917E-02_JPRB,2.4071E-02_JPRB,&
2237
10
 & 2.1339E-02_JPRB,2.1364E-02_JPRB,2.0562E-02_JPRB/)
2238
KAO( :, 4, 7,11) = (/&
2239
 & 3.7516E-02_JPRB,3.5493E-02_JPRB,3.5022E-02_JPRB,3.4550E-02_JPRB,3.3425E-02_JPRB,3.0562E-02_JPRB,&
2240
10
 & 2.8485E-02_JPRB,2.9108E-02_JPRB,2.9186E-02_JPRB/)
2241
KAO( :, 5, 7,11) = (/&
2242
 & 4.5622E-02_JPRB,4.3704E-02_JPRB,4.3641E-02_JPRB,4.3057E-02_JPRB,4.1664E-02_JPRB,3.8186E-02_JPRB,&
2243
10
 & 3.7831E-02_JPRB,3.8897E-02_JPRB,4.0505E-02_JPRB/)
2244
KAO( :, 1, 8,11) = (/&
2245
 & 1.3818E-02_JPRB,1.2820E-02_JPRB,1.2555E-02_JPRB,1.2034E-02_JPRB,1.1176E-02_JPRB,1.0359E-02_JPRB,&
2246
10
 & 9.1227E-03_JPRB,7.1909E-03_JPRB,7.1385E-03_JPRB/)
2247
KAO( :, 2, 8,11) = (/&
2248
 & 1.9199E-02_JPRB,1.7868E-02_JPRB,1.7585E-02_JPRB,1.6871E-02_JPRB,1.6078E-02_JPRB,1.5016E-02_JPRB,&
2249
10
 & 1.2893E-02_JPRB,1.1875E-02_JPRB,1.0811E-02_JPRB/)
2250
KAO( :, 3, 8,11) = (/&
2251
 & 2.5464E-02_JPRB,2.3910E-02_JPRB,2.3566E-02_JPRB,2.3034E-02_JPRB,2.2314E-02_JPRB,2.0472E-02_JPRB,&
2252
10
 & 1.7635E-02_JPRB,1.7256E-02_JPRB,1.5992E-02_JPRB/)
2253
KAO( :, 4, 8,11) = (/&
2254
 & 3.2551E-02_JPRB,3.0722E-02_JPRB,3.0704E-02_JPRB,3.0409E-02_JPRB,2.9339E-02_JPRB,2.6650E-02_JPRB,&
2255
10
 & 2.3599E-02_JPRB,2.4044E-02_JPRB,2.3236E-02_JPRB/)
2256
KAO( :, 5, 8,11) = (/&
2257
 & 4.0250E-02_JPRB,3.8454E-02_JPRB,3.8842E-02_JPRB,3.8675E-02_JPRB,3.7147E-02_JPRB,3.3647E-02_JPRB,&
2258
10
 & 3.1602E-02_JPRB,3.2839E-02_JPRB,3.2581E-02_JPRB/)
2259
KAO( :, 1, 9,11) = (/&
2260
 & 1.1316E-02_JPRB,1.0378E-02_JPRB,1.0058E-02_JPRB,9.5388E-03_JPRB,8.9583E-03_JPRB,8.3215E-03_JPRB,&
2261
10
 & 7.2172E-03_JPRB,5.3794E-03_JPRB,1.8355E-02_JPRB/)
2262
KAO( :, 2, 9,11) = (/&
2263
 & 1.6231E-02_JPRB,1.4928E-02_JPRB,1.4498E-02_JPRB,1.3829E-02_JPRB,1.3241E-02_JPRB,1.2313E-02_JPRB,&
2264
10
 & 1.0614E-02_JPRB,9.2668E-03_JPRB,1.9770E-02_JPRB/)
2265
KAO( :, 3, 9,11) = (/&
2266
 & 2.2130E-02_JPRB,2.0494E-02_JPRB,1.9903E-02_JPRB,1.9411E-02_JPRB,1.8773E-02_JPRB,1.7143E-02_JPRB,&
2267
10
 & 1.4703E-02_JPRB,1.3790E-02_JPRB,2.1581E-02_JPRB/)
2268
KAO( :, 4, 9,11) = (/&
2269
 & 2.8872E-02_JPRB,2.6893E-02_JPRB,2.6410E-02_JPRB,2.6293E-02_JPRB,2.5184E-02_JPRB,2.2875E-02_JPRB,&
2270
10
 & 1.9599E-02_JPRB,1.9453E-02_JPRB,2.4207E-02_JPRB/)
2271
KAO( :, 5, 9,11) = (/&
2272
 & 3.6434E-02_JPRB,3.4163E-02_JPRB,3.4039E-02_JPRB,3.4059E-02_JPRB,3.2485E-02_JPRB,2.9558E-02_JPRB,&
2273
10
 & 2.6124E-02_JPRB,2.6908E-02_JPRB,2.8766E-02_JPRB/)
2274
KAO( :, 1,10,11) = (/&
2275
 & 9.7526E-03_JPRB,8.8471E-03_JPRB,8.4095E-03_JPRB,7.7992E-03_JPRB,7.2733E-03_JPRB,6.6861E-03_JPRB,&
2276
10
 & 5.7804E-03_JPRB,4.0724E-03_JPRB,1.2763E-01_JPRB/)
2277
KAO( :, 2,10,11) = (/&
2278
 & 1.4441E-02_JPRB,1.3149E-02_JPRB,1.2436E-02_JPRB,1.1554E-02_JPRB,1.1049E-02_JPRB,1.0173E-02_JPRB,&
2279
10
 & 8.7698E-03_JPRB,7.1450E-03_JPRB,1.2600E-01_JPRB/)
2280
KAO( :, 3,10,11) = (/&
2281
 & 2.0155E-02_JPRB,1.8437E-02_JPRB,1.7426E-02_JPRB,1.6603E-02_JPRB,1.5853E-02_JPRB,1.4561E-02_JPRB,&
2282
10
 & 1.2511E-02_JPRB,1.1073E-02_JPRB,1.2528E-01_JPRB/)
2283
KAO( :, 4,10,11) = (/&
2284
 & 2.6846E-02_JPRB,2.4609E-02_JPRB,2.3486E-02_JPRB,2.2854E-02_JPRB,2.1623E-02_JPRB,1.9796E-02_JPRB,&
2285
10
 & 1.6929E-02_JPRB,1.5991E-02_JPRB,1.2447E-01_JPRB/)
2286
KAO( :, 5,10,11) = (/&
2287
 & 3.4410E-02_JPRB,3.1744E-02_JPRB,3.0750E-02_JPRB,2.9972E-02_JPRB,2.8397E-02_JPRB,2.5966E-02_JPRB,&
2288
10
 & 2.2616E-02_JPRB,2.2449E-02_JPRB,1.2610E-01_JPRB/)
2289
KAO( :, 1,11,11) = (/&
2290
 & 1.0324E-02_JPRB,9.3720E-03_JPRB,8.7252E-03_JPRB,7.9450E-03_JPRB,7.2482E-03_JPRB,6.5147E-03_JPRB,&
2291
10
 & 5.6100E-03_JPRB,4.1662E-03_JPRB,3.4329E-01_JPRB/)
2292
KAO( :, 2,11,11) = (/&
2293
 & 1.5204E-02_JPRB,1.3885E-02_JPRB,1.2891E-02_JPRB,1.1869E-02_JPRB,1.0956E-02_JPRB,9.8826E-03_JPRB,&
2294
10
 & 8.5703E-03_JPRB,6.8061E-03_JPRB,3.3565E-01_JPRB/)
2295
KAO( :, 3,11,11) = (/&
2296
 & 2.1115E-02_JPRB,1.9367E-02_JPRB,1.8058E-02_JPRB,1.6962E-02_JPRB,1.5612E-02_JPRB,1.4165E-02_JPRB,&
2297
10
 & 1.2308E-02_JPRB,1.0528E-02_JPRB,3.2746E-01_JPRB/)
2298
KAO( :, 4,11,11) = (/&
2299
 & 2.8056E-02_JPRB,2.5869E-02_JPRB,2.4495E-02_JPRB,2.3019E-02_JPRB,2.1190E-02_JPRB,1.9340E-02_JPRB,&
2300
10
 & 1.6909E-02_JPRB,1.5353E-02_JPRB,3.2105E-01_JPRB/)
2301
KAO( :, 5,11,11) = (/&
2302
 & 3.5830E-02_JPRB,3.3269E-02_JPRB,3.2053E-02_JPRB,3.0019E-02_JPRB,2.7764E-02_JPRB,2.5746E-02_JPRB,&
2303
10
 & 2.2821E-02_JPRB,2.2018E-02_JPRB,3.1597E-01_JPRB/)
2304
KAO( :, 1,12,11) = (/&
2305
 & 1.0672E-02_JPRB,9.7549E-03_JPRB,9.0561E-03_JPRB,8.2466E-03_JPRB,7.3613E-03_JPRB,6.3875E-03_JPRB,&
2306
10
 & 5.3947E-03_JPRB,4.0883E-03_JPRB,5.8394E-01_JPRB/)
2307
KAO( :, 2,12,11) = (/&
2308
 & 1.5642E-02_JPRB,1.4385E-02_JPRB,1.3307E-02_JPRB,1.2366E-02_JPRB,1.1058E-02_JPRB,9.6585E-03_JPRB,&
2309
10
 & 8.3795E-03_JPRB,6.6353E-03_JPRB,5.6769E-01_JPRB/)
2310
KAO( :, 3,12,11) = (/&
2311
 & 2.1675E-02_JPRB,2.0001E-02_JPRB,1.8764E-02_JPRB,1.7488E-02_JPRB,1.5704E-02_JPRB,1.3828E-02_JPRB,&
2312
10
 & 1.2045E-02_JPRB,1.0080E-02_JPRB,5.5255E-01_JPRB/)
2313
KAO( :, 4,12,11) = (/&
2314
 & 2.8647E-02_JPRB,2.6665E-02_JPRB,2.5514E-02_JPRB,2.3603E-02_JPRB,2.1257E-02_JPRB,1.8966E-02_JPRB,&
2315
10
 & 1.6778E-02_JPRB,1.4837E-02_JPRB,5.4088E-01_JPRB/)
2316
KAO( :, 5,12,11) = (/&
2317
 & 3.6513E-02_JPRB,3.4282E-02_JPRB,3.3140E-02_JPRB,3.0751E-02_JPRB,2.7941E-02_JPRB,2.5430E-02_JPRB,&
2318
10
 & 2.2803E-02_JPRB,2.1312E-02_JPRB,5.3155E-01_JPRB/)
2319
KAO( :, 1,13,11) = (/&
2320
 & 1.0760E-02_JPRB,9.9165E-03_JPRB,9.2107E-03_JPRB,8.4431E-03_JPRB,7.5043E-03_JPRB,6.4219E-03_JPRB,&
2321
10
 & 5.3322E-03_JPRB,3.9942E-03_JPRB,8.0574E-01_JPRB/)
2322
KAO( :, 2,13,11) = (/&
2323
 & 1.5718E-02_JPRB,1.4579E-02_JPRB,1.3580E-02_JPRB,1.2603E-02_JPRB,1.1240E-02_JPRB,9.7118E-03_JPRB,&
2324
10
 & 8.1489E-03_JPRB,6.5540E-03_JPRB,7.8546E-01_JPRB/)
2325
KAO( :, 3,13,11) = (/&
2326
 & 2.1709E-02_JPRB,2.0244E-02_JPRB,1.9196E-02_JPRB,1.7788E-02_JPRB,1.5932E-02_JPRB,1.3847E-02_JPRB,&
2327
10
 & 1.1724E-02_JPRB,9.8122E-03_JPRB,7.6747E-01_JPRB/)
2328
KAO( :, 4,13,11) = (/&
2329
 & 2.8590E-02_JPRB,2.6855E-02_JPRB,2.5888E-02_JPRB,2.3974E-02_JPRB,2.1610E-02_JPRB,1.9031E-02_JPRB,&
2330
10
 & 1.6481E-02_JPRB,1.4419E-02_JPRB,7.5290E-01_JPRB/)
2331
KAO( :, 5,13,11) = (/&
2332
 & 3.6243E-02_JPRB,3.4524E-02_JPRB,3.3518E-02_JPRB,3.1146E-02_JPRB,2.8589E-02_JPRB,2.5416E-02_JPRB,&
2333
10
 & 2.2358E-02_JPRB,2.0400E-02_JPRB,7.4359E-01_JPRB/)
2334
KAO( :, 1, 1,12) = (/&
2335
 & 5.6231E-02_JPRB,4.9245E-02_JPRB,4.2437E-02_JPRB,3.9377E-02_JPRB,3.6183E-02_JPRB,3.2140E-02_JPRB,&
2336
10
 & 3.2423E-02_JPRB,3.1523E-02_JPRB,4.6750E-02_JPRB/)
2337
KAO( :, 2, 1,12) = (/&
2338
 & 6.6148E-02_JPRB,5.7978E-02_JPRB,5.1041E-02_JPRB,4.8104E-02_JPRB,4.3912E-02_JPRB,4.1677E-02_JPRB,&
2339
10
 & 4.3817E-02_JPRB,4.4437E-02_JPRB,6.2584E-02_JPRB/)
2340
KAO( :, 3, 1,12) = (/&
2341
 & 7.6244E-02_JPRB,6.6854E-02_JPRB,6.1488E-02_JPRB,5.7173E-02_JPRB,5.2540E-02_JPRB,5.2875E-02_JPRB,&
2342
10
 & 5.7103E-02_JPRB,5.8708E-02_JPRB,8.0763E-02_JPRB/)
2343
KAO( :, 4, 1,12) = (/&
2344
 & 8.6310E-02_JPRB,7.5728E-02_JPRB,7.2130E-02_JPRB,6.6817E-02_JPRB,6.2530E-02_JPRB,6.5257E-02_JPRB,&
2345
10
 & 7.2354E-02_JPRB,7.4823E-02_JPRB,1.0291E-01_JPRB/)
2346
KAO( :, 5, 1,12) = (/&
2347
 & 9.6172E-02_JPRB,8.4532E-02_JPRB,8.2586E-02_JPRB,7.6624E-02_JPRB,7.4096E-02_JPRB,7.9889E-02_JPRB,&
2348
10
 & 9.0215E-02_JPRB,9.5892E-02_JPRB,1.2765E-01_JPRB/)
2349
KAO( :, 1, 2,12) = (/&
2350
 & 5.4471E-02_JPRB,4.7727E-02_JPRB,4.1337E-02_JPRB,3.9056E-02_JPRB,3.5201E-02_JPRB,3.1688E-02_JPRB,&
2351
10
 & 3.1483E-02_JPRB,3.1390E-02_JPRB,4.4121E-02_JPRB/)
2352
KAO( :, 2, 2,12) = (/&
2353
 & 6.4761E-02_JPRB,5.6767E-02_JPRB,5.0472E-02_JPRB,4.7843E-02_JPRB,4.3316E-02_JPRB,4.1425E-02_JPRB,&
2354
10
 & 4.2288E-02_JPRB,4.3887E-02_JPRB,5.9020E-02_JPRB/)
2355
KAO( :, 3, 2,12) = (/&
2356
 & 7.5278E-02_JPRB,6.6006E-02_JPRB,6.0892E-02_JPRB,5.7036E-02_JPRB,5.2510E-02_JPRB,5.2589E-02_JPRB,&
2357
10
 & 5.4973E-02_JPRB,5.8082E-02_JPRB,7.6747E-02_JPRB/)
2358
KAO( :, 4, 2,12) = (/&
2359
 & 8.5814E-02_JPRB,7.5272E-02_JPRB,7.1653E-02_JPRB,6.6752E-02_JPRB,6.2771E-02_JPRB,6.5169E-02_JPRB,&
2360
10
 & 7.0350E-02_JPRB,7.4345E-02_JPRB,9.8748E-02_JPRB/)
2361
KAO( :, 5, 2,12) = (/&
2362
 & 9.6214E-02_JPRB,8.4711E-02_JPRB,8.2534E-02_JPRB,7.6688E-02_JPRB,7.5320E-02_JPRB,7.9513E-02_JPRB,&
2363
10
 & 8.8443E-02_JPRB,9.3326E-02_JPRB,1.2393E-01_JPRB/)
2364
KAO( :, 1, 3,12) = (/&
2365
 & 5.0240E-02_JPRB,4.4018E-02_JPRB,3.8537E-02_JPRB,3.6190E-02_JPRB,3.2727E-02_JPRB,2.9265E-02_JPRB,&
2366
10
 & 2.8718E-02_JPRB,2.8539E-02_JPRB,3.8545E-02_JPRB/)
2367
KAO( :, 2, 3,12) = (/&
2368
 & 6.0700E-02_JPRB,5.3194E-02_JPRB,4.7696E-02_JPRB,4.4849E-02_JPRB,4.0923E-02_JPRB,3.8400E-02_JPRB,&
2369
10
 & 3.8699E-02_JPRB,3.9635E-02_JPRB,5.2691E-02_JPRB/)
2370
KAO( :, 3, 3,12) = (/&
2371
 & 7.1446E-02_JPRB,6.2599E-02_JPRB,5.7763E-02_JPRB,5.4243E-02_JPRB,5.0207E-02_JPRB,4.9187E-02_JPRB,&
2372
10
 & 5.0052E-02_JPRB,5.3471E-02_JPRB,6.9258E-02_JPRB/)
2373
KAO( :, 4, 3,12) = (/&
2374
 & 8.2289E-02_JPRB,7.2095E-02_JPRB,6.8416E-02_JPRB,6.4344E-02_JPRB,6.0447E-02_JPRB,6.1241E-02_JPRB,&
2375
10
 & 6.3891E-02_JPRB,6.9264E-02_JPRB,8.9560E-02_JPRB/)
2376
KAO( :, 5, 3,12) = (/&
2377
 & 9.3052E-02_JPRB,8.1807E-02_JPRB,7.9129E-02_JPRB,7.4686E-02_JPRB,7.2461E-02_JPRB,7.5879E-02_JPRB,&
2378
10
 & 8.1262E-02_JPRB,8.8197E-02_JPRB,1.1309E-01_JPRB/)
2379
KAO( :, 1, 4,12) = (/&
2380
 & 4.5028E-02_JPRB,3.9435E-02_JPRB,3.5334E-02_JPRB,3.2580E-02_JPRB,2.9727E-02_JPRB,2.6383E-02_JPRB,&
2381
10
 & 2.5279E-02_JPRB,2.4249E-02_JPRB,3.2836E-02_JPRB/)
2382
KAO( :, 2, 4,12) = (/&
2383
 & 5.5340E-02_JPRB,4.8463E-02_JPRB,4.4234E-02_JPRB,4.0965E-02_JPRB,3.7511E-02_JPRB,3.4709E-02_JPRB,&
2384
10
 & 3.4617E-02_JPRB,3.4578E-02_JPRB,4.5997E-02_JPRB/)
2385
KAO( :, 3, 4,12) = (/&
2386
 & 6.6183E-02_JPRB,5.7963E-02_JPRB,5.3924E-02_JPRB,5.0425E-02_JPRB,4.6576E-02_JPRB,4.4933E-02_JPRB,&
2387
10
 & 4.5427E-02_JPRB,4.7054E-02_JPRB,6.1726E-02_JPRB/)
2388
KAO( :, 4, 4,12) = (/&
2389
 & 7.7283E-02_JPRB,6.7685E-02_JPRB,6.4408E-02_JPRB,6.0620E-02_JPRB,5.6689E-02_JPRB,5.6675E-02_JPRB,&
2390
10
 & 5.7994E-02_JPRB,6.1679E-02_JPRB,8.0866E-02_JPRB/)
2391
KAO( :, 5, 4,12) = (/&
2392
 & 8.8418E-02_JPRB,7.8061E-02_JPRB,7.5140E-02_JPRB,7.1155E-02_JPRB,6.8119E-02_JPRB,7.0861E-02_JPRB,&
2393
10
 & 7.3683E-02_JPRB,7.9503E-02_JPRB,1.0285E-01_JPRB/)
2394
KAO( :, 1, 5,12) = (/&
2395
 & 3.9662E-02_JPRB,3.4731E-02_JPRB,3.1644E-02_JPRB,2.8938E-02_JPRB,2.6745E-02_JPRB,2.3268E-02_JPRB,&
2396
10
 & 2.1825E-02_JPRB,2.0476E-02_JPRB,2.7392E-02_JPRB/)
2397
KAO( :, 2, 5,12) = (/&
2398
 & 4.9795E-02_JPRB,4.3597E-02_JPRB,4.0424E-02_JPRB,3.7076E-02_JPRB,3.4194E-02_JPRB,3.1021E-02_JPRB,&
2399
10
 & 3.0623E-02_JPRB,2.9562E-02_JPRB,3.9492E-02_JPRB/)
2400
KAO( :, 3, 5,12) = (/&
2401
 & 6.0584E-02_JPRB,5.3042E-02_JPRB,4.9894E-02_JPRB,4.6289E-02_JPRB,4.2817E-02_JPRB,4.0884E-02_JPRB,&
2402
10
 & 4.1181E-02_JPRB,4.1314E-02_JPRB,5.4083E-02_JPRB/)
2403
KAO( :, 4, 5,12) = (/&
2404
 & 7.1810E-02_JPRB,6.2970E-02_JPRB,6.0288E-02_JPRB,5.6611E-02_JPRB,5.2417E-02_JPRB,5.2364E-02_JPRB,&
2405
10
 & 5.3447E-02_JPRB,5.4733E-02_JPRB,7.1895E-02_JPRB/)
2406
KAO( :, 5, 5,12) = (/&
2407
 & 8.3191E-02_JPRB,7.3693E-02_JPRB,7.1136E-02_JPRB,6.7175E-02_JPRB,6.3303E-02_JPRB,6.5794E-02_JPRB,&
2408
10
 & 6.8047E-02_JPRB,7.1167E-02_JPRB,9.3099E-02_JPRB/)
2409
KAO( :, 1, 6,12) = (/&
2410
 & 3.4073E-02_JPRB,2.9970E-02_JPRB,2.7448E-02_JPRB,2.5187E-02_JPRB,2.3238E-02_JPRB,2.0151E-02_JPRB,&
2411
10
 & 1.8356E-02_JPRB,1.7087E-02_JPRB,2.1825E-02_JPRB/)
2412
KAO( :, 2, 6,12) = (/&
2413
 & 4.3805E-02_JPRB,3.8540E-02_JPRB,3.5809E-02_JPRB,3.2989E-02_JPRB,3.0183E-02_JPRB,2.7066E-02_JPRB,&
2414
10
 & 2.6460E-02_JPRB,2.5241E-02_JPRB,3.2266E-02_JPRB/)
2415
KAO( :, 3, 6,12) = (/&
2416
 & 5.4408E-02_JPRB,4.7827E-02_JPRB,4.4959E-02_JPRB,4.1832E-02_JPRB,3.8412E-02_JPRB,3.6156E-02_JPRB,&
2417
10
 & 3.6616E-02_JPRB,3.5630E-02_JPRB,4.5299E-02_JPRB/)
2418
KAO( :, 4, 6,12) = (/&
2419
 & 6.5566E-02_JPRB,5.7738E-02_JPRB,5.4996E-02_JPRB,5.1938E-02_JPRB,4.7753E-02_JPRB,4.7435E-02_JPRB,&
2420
10
 & 4.8559E-02_JPRB,4.8244E-02_JPRB,6.1467E-02_JPRB/)
2421
KAO( :, 5, 6,12) = (/&
2422
 & 7.7055E-02_JPRB,6.8635E-02_JPRB,6.5830E-02_JPRB,6.2404E-02_JPRB,5.8371E-02_JPRB,6.0640E-02_JPRB,&
2423
10
 & 6.2553E-02_JPRB,6.3410E-02_JPRB,8.1734E-02_JPRB/)
2424
KAO( :, 1, 7,12) = (/&
2425
 & 2.8703E-02_JPRB,2.5583E-02_JPRB,2.3276E-02_JPRB,2.1697E-02_JPRB,1.9747E-02_JPRB,1.7089E-02_JPRB,&
2426
10
 & 1.5072E-02_JPRB,1.3835E-02_JPRB,1.6883E-02_JPRB/)
2427
KAO( :, 2, 7,12) = (/&
2428
 & 3.7935E-02_JPRB,3.3728E-02_JPRB,3.1173E-02_JPRB,2.9047E-02_JPRB,2.6304E-02_JPRB,2.3254E-02_JPRB,&
2429
10
 & 2.2495E-02_JPRB,2.1233E-02_JPRB,2.5258E-02_JPRB/)
2430
KAO( :, 3, 7,12) = (/&
2431
 & 4.8109E-02_JPRB,4.2733E-02_JPRB,3.9875E-02_JPRB,3.7411E-02_JPRB,3.4221E-02_JPRB,3.1727E-02_JPRB,&
2432
10
 & 3.2013E-02_JPRB,3.0954E-02_JPRB,3.6228E-02_JPRB/)
2433
KAO( :, 4, 7,12) = (/&
2434
 & 5.9015E-02_JPRB,5.2712E-02_JPRB,4.9724E-02_JPRB,4.7098E-02_JPRB,4.3201E-02_JPRB,4.2396E-02_JPRB,&
2435
10
 & 4.3420E-02_JPRB,4.2821E-02_JPRB,5.0322E-02_JPRB/)
2436
KAO( :, 5, 7,12) = (/&
2437
 & 7.0562E-02_JPRB,6.3765E-02_JPRB,6.0647E-02_JPRB,5.7324E-02_JPRB,5.3581E-02_JPRB,5.4932E-02_JPRB,&
2438
10
 & 5.6750E-02_JPRB,5.6861E-02_JPRB,6.8648E-02_JPRB/)
2439
KAO( :, 1, 8,12) = (/&
2440
 & 2.3797E-02_JPRB,2.1507E-02_JPRB,1.9481E-02_JPRB,1.8328E-02_JPRB,1.6567E-02_JPRB,1.4195E-02_JPRB,&
2441
10
 & 1.2226E-02_JPRB,1.1084E-02_JPRB,1.2769E-02_JPRB/)
2442
KAO( :, 2, 8,12) = (/&
2443
 & 3.2290E-02_JPRB,2.9132E-02_JPRB,2.6787E-02_JPRB,2.5154E-02_JPRB,2.2698E-02_JPRB,1.9789E-02_JPRB,&
2444
10
 & 1.8738E-02_JPRB,1.7668E-02_JPRB,1.9523E-02_JPRB/)
2445
KAO( :, 3, 8,12) = (/&
2446
 & 4.1971E-02_JPRB,3.7809E-02_JPRB,3.5153E-02_JPRB,3.3039E-02_JPRB,3.0227E-02_JPRB,2.7550E-02_JPRB,&
2447
10
 & 2.7403E-02_JPRB,2.6633E-02_JPRB,2.8356E-02_JPRB/)
2448
KAO( :, 4, 8,12) = (/&
2449
 & 5.2643E-02_JPRB,4.7711E-02_JPRB,4.4776E-02_JPRB,4.2382E-02_JPRB,3.8941E-02_JPRB,3.7160E-02_JPRB,&
2450
10
 & 3.7962E-02_JPRB,3.7660E-02_JPRB,4.0067E-02_JPRB/)
2451
KAO( :, 5, 8,12) = (/&
2452
 & 6.4120E-02_JPRB,5.8657E-02_JPRB,5.5707E-02_JPRB,5.2735E-02_JPRB,4.8989E-02_JPRB,4.8789E-02_JPRB,&
2453
10
 & 5.0472E-02_JPRB,5.0598E-02_JPRB,5.5953E-02_JPRB/)
2454
KAO( :, 1, 9,12) = (/&
2455
 & 1.9250E-02_JPRB,1.7588E-02_JPRB,1.6042E-02_JPRB,1.5146E-02_JPRB,1.3631E-02_JPRB,1.1686E-02_JPRB,&
2456
10
 & 9.9858E-03_JPRB,8.6677E-03_JPRB,2.1707E-02_JPRB/)
2457
KAO( :, 2, 9,12) = (/&
2458
 & 2.7012E-02_JPRB,2.4595E-02_JPRB,2.2809E-02_JPRB,2.1369E-02_JPRB,1.9226E-02_JPRB,1.6776E-02_JPRB,&
2459
10
 & 1.5292E-02_JPRB,1.4425E-02_JPRB,2.4366E-02_JPRB/)
2460
KAO( :, 3, 9,12) = (/&
2461
 & 3.6057E-02_JPRB,3.2810E-02_JPRB,3.0756E-02_JPRB,2.8820E-02_JPRB,2.6287E-02_JPRB,2.3677E-02_JPRB,&
2462
10
 & 2.2692E-02_JPRB,2.2334E-02_JPRB,2.7809E-02_JPRB/)
2463
KAO( :, 4, 9,12) = (/&
2464
 & 4.6276E-02_JPRB,4.2323E-02_JPRB,4.0041E-02_JPRB,3.7778E-02_JPRB,3.4895E-02_JPRB,3.2122E-02_JPRB,&
2465
10
 & 3.2057E-02_JPRB,3.2163E-02_JPRB,3.3773E-02_JPRB/)
2466
KAO( :, 5, 9,12) = (/&
2467
 & 5.7287E-02_JPRB,5.2928E-02_JPRB,5.0545E-02_JPRB,4.8124E-02_JPRB,4.4442E-02_JPRB,4.2249E-02_JPRB,&
2468
10
 & 4.3334E-02_JPRB,4.4067E-02_JPRB,4.5714E-02_JPRB/)
2469
KAO( :, 1,10,12) = (/&
2470
 & 1.5724E-02_JPRB,1.4480E-02_JPRB,1.3399E-02_JPRB,1.2607E-02_JPRB,1.1371E-02_JPRB,9.8756E-03_JPRB,&
2471
10
 & 8.2202E-03_JPRB,7.0920E-03_JPRB,1.5327E-01_JPRB/)
2472
KAO( :, 2,10,12) = (/&
2473
 & 2.2742E-02_JPRB,2.0839E-02_JPRB,1.9648E-02_JPRB,1.8330E-02_JPRB,1.6472E-02_JPRB,1.4615E-02_JPRB,&
2474
10
 & 1.2794E-02_JPRB,1.2185E-02_JPRB,1.5107E-01_JPRB/)
2475
KAO( :, 3,10,12) = (/&
2476
 & 3.1111E-02_JPRB,2.8526E-02_JPRB,2.7137E-02_JPRB,2.5313E-02_JPRB,2.3236E-02_JPRB,2.0664E-02_JPRB,&
2477
10
 & 1.8952E-02_JPRB,1.8782E-02_JPRB,1.5057E-01_JPRB/)
2478
KAO( :, 4,10,12) = (/&
2479
 & 4.0637E-02_JPRB,3.7549E-02_JPRB,3.5922E-02_JPRB,3.3978E-02_JPRB,3.1652E-02_JPRB,2.8132E-02_JPRB,&
2480
10
 & 2.7006E-02_JPRB,2.7319E-02_JPRB,1.5207E-01_JPRB/)
2481
2482
1
IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART8',1,ZHOOK_HANDLE)
2483
1
END SUBROUTINE PART8
2484
2485
2486
1
SUBROUTINE PART9
2487
2488
REAL(KIND=JPRB) :: ZHOOK_HANDLE
2489
1
IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART9',0,ZHOOK_HANDLE)
2490
2491
2492
KAO( :, 5,10,12) = (/&
2493
 & 5.1227E-02_JPRB,4.7699E-02_JPRB,4.6069E-02_JPRB,4.4170E-02_JPRB,4.0891E-02_JPRB,3.7225E-02_JPRB,&
2494
10
 & 3.7060E-02_JPRB,3.8071E-02_JPRB,1.5409E-01_JPRB/)
2495
KAO( :, 1,11,12) = (/&
2496
 & 1.5555E-02_JPRB,1.4241E-02_JPRB,1.3404E-02_JPRB,1.2541E-02_JPRB,1.1360E-02_JPRB,1.0012E-02_JPRB,&
2497
10
 & 8.3342E-03_JPRB,7.3523E-03_JPRB,4.1658E-01_JPRB/)
2498
KAO( :, 2,11,12) = (/&
2499
 & 2.2569E-02_JPRB,2.0619E-02_JPRB,1.9629E-02_JPRB,1.8217E-02_JPRB,1.6713E-02_JPRB,1.4923E-02_JPRB,&
2500
10
 & 1.2799E-02_JPRB,1.2337E-02_JPRB,4.0531E-01_JPRB/)
2501
KAO( :, 3,11,12) = (/&
2502
 & 3.1003E-02_JPRB,2.8414E-02_JPRB,2.7101E-02_JPRB,2.5438E-02_JPRB,2.3803E-02_JPRB,2.0993E-02_JPRB,&
2503
10
 & 1.8716E-02_JPRB,1.8686E-02_JPRB,3.9474E-01_JPRB/)
2504
KAO( :, 4,11,12) = (/&
2505
 & 4.0722E-02_JPRB,3.7543E-02_JPRB,3.5908E-02_JPRB,3.4570E-02_JPRB,3.2168E-02_JPRB,2.8356E-02_JPRB,&
2506
10
 & 2.6227E-02_JPRB,2.6848E-02_JPRB,3.8831E-01_JPRB/)
2507
KAO( :, 5,11,12) = (/&
2508
 & 5.1560E-02_JPRB,4.7783E-02_JPRB,4.6376E-02_JPRB,4.5061E-02_JPRB,4.1670E-02_JPRB,3.7328E-02_JPRB,&
2509
10
 & 3.5965E-02_JPRB,3.7251E-02_JPRB,3.8125E-01_JPRB/)
2510
KAO( :, 1,12,12) = (/&
2511
 & 1.5830E-02_JPRB,1.4387E-02_JPRB,1.3516E-02_JPRB,1.2418E-02_JPRB,1.1346E-02_JPRB,1.0079E-02_JPRB,&
2512
10
 & 8.3729E-03_JPRB,7.3472E-03_JPRB,7.1942E-01_JPRB/)
2513
KAO( :, 2,12,12) = (/&
2514
 & 2.3055E-02_JPRB,2.0962E-02_JPRB,1.9738E-02_JPRB,1.8144E-02_JPRB,1.6929E-02_JPRB,1.5067E-02_JPRB,&
2515
10
 & 1.2702E-02_JPRB,1.1955E-02_JPRB,6.9772E-01_JPRB/)
2516
KAO( :, 3,12,12) = (/&
2517
 & 3.1847E-02_JPRB,2.9081E-02_JPRB,2.7322E-02_JPRB,2.5612E-02_JPRB,2.3940E-02_JPRB,2.1303E-02_JPRB,&
2518
10
 & 1.8481E-02_JPRB,1.8181E-02_JPRB,6.7687E-01_JPRB/)
2519
KAO( :, 4,12,12) = (/&
2520
 & 4.1961E-02_JPRB,3.8413E-02_JPRB,3.6388E-02_JPRB,3.4886E-02_JPRB,3.2236E-02_JPRB,2.8808E-02_JPRB,&
2521
10
 & 2.5797E-02_JPRB,2.6077E-02_JPRB,6.5603E-01_JPRB/)
2522
KAO( :, 5,12,12) = (/&
2523
 & 5.3319E-02_JPRB,4.9117E-02_JPRB,4.7169E-02_JPRB,4.5236E-02_JPRB,4.1943E-02_JPRB,3.7873E-02_JPRB,&
2524
10
 & 3.5355E-02_JPRB,3.6412E-02_JPRB,6.4190E-01_JPRB/)
2525
KAO( :, 1,13,12) = (/&
2526
 & 1.6495E-02_JPRB,1.4909E-02_JPRB,1.3825E-02_JPRB,1.2544E-02_JPRB,1.1340E-02_JPRB,9.9975E-03_JPRB,&
2527
10
 & 8.3433E-03_JPRB,7.0546E-03_JPRB,9.9911E-01_JPRB/)
2528
KAO( :, 2,13,12) = (/&
2529
 & 2.4109E-02_JPRB,2.1885E-02_JPRB,2.0210E-02_JPRB,1.8488E-02_JPRB,1.6936E-02_JPRB,1.4953E-02_JPRB,&
2530
10
 & 1.2660E-02_JPRB,1.1467E-02_JPRB,9.6984E-01_JPRB/)
2531
KAO( :, 3,13,12) = (/&
2532
 & 3.3220E-02_JPRB,3.0296E-02_JPRB,2.8083E-02_JPRB,2.6185E-02_JPRB,2.3860E-02_JPRB,2.1223E-02_JPRB,&
2533
10
 & 1.8346E-02_JPRB,1.7437E-02_JPRB,9.3888E-01_JPRB/)
2534
KAO( :, 4,13,12) = (/&
2535
 & 4.3831E-02_JPRB,4.0158E-02_JPRB,3.7697E-02_JPRB,3.5285E-02_JPRB,3.2116E-02_JPRB,2.8881E-02_JPRB,&
2536
10
 & 2.5602E-02_JPRB,2.5164E-02_JPRB,9.0808E-01_JPRB/)
2537
KAO( :, 5,13,12) = (/&
2538
 & 5.5677E-02_JPRB,5.1368E-02_JPRB,4.8923E-02_JPRB,4.5702E-02_JPRB,4.1832E-02_JPRB,3.8470E-02_JPRB,&
2539
10
 & 3.5318E-02_JPRB,3.5646E-02_JPRB,8.8465E-01_JPRB/)
2540
KAO( :, 1, 1,13) = (/&
2541
 & 7.2506E-02_JPRB,6.3446E-02_JPRB,5.4408E-02_JPRB,4.7483E-02_JPRB,4.2382E-02_JPRB,4.1239E-02_JPRB,&
2542
10
 & 4.3386E-02_JPRB,4.4074E-02_JPRB,6.4271E-02_JPRB/)
2543
KAO( :, 2, 1,13) = (/&
2544
 & 8.4465E-02_JPRB,7.3953E-02_JPRB,6.3427E-02_JPRB,5.6900E-02_JPRB,5.2376E-02_JPRB,5.3648E-02_JPRB,&
2545
10
 & 5.8354E-02_JPRB,5.9101E-02_JPRB,8.6583E-02_JPRB/)
2546
KAO( :, 3, 1,13) = (/&
2547
 & 9.6444E-02_JPRB,8.4439E-02_JPRB,7.3063E-02_JPRB,6.7601E-02_JPRB,6.5429E-02_JPRB,6.9474E-02_JPRB,&
2548
10
 & 7.7817E-02_JPRB,8.1204E-02_JPRB,1.1413E-01_JPRB/)
2549
KAO( :, 4, 1,13) = (/&
2550
 & 1.0833E-01_JPRB,9.4864E-02_JPRB,8.5278E-02_JPRB,7.9673E-02_JPRB,8.1089E-02_JPRB,9.1367E-02_JPRB,&
2551
10
 & 1.0434E-01_JPRB,1.1177E-01_JPRB,1.4904E-01_JPRB/)
2552
KAO( :, 5, 1,13) = (/&
2553
 & 1.1980E-01_JPRB,1.0493E-01_JPRB,9.6406E-02_JPRB,9.4783E-02_JPRB,1.0132E-01_JPRB,1.1971E-01_JPRB,&
2554
10
 & 1.3809E-01_JPRB,1.4964E-01_JPRB,1.9375E-01_JPRB/)
2555
KAO( :, 1, 2,13) = (/&
2556
 & 7.1478E-02_JPRB,6.2570E-02_JPRB,5.3664E-02_JPRB,4.6754E-02_JPRB,4.2681E-02_JPRB,4.1156E-02_JPRB,&
2557
10
 & 4.2008E-02_JPRB,4.2483E-02_JPRB,6.2959E-02_JPRB/)
2558
KAO( :, 2, 2,13) = (/&
2559
 & 8.4247E-02_JPRB,7.3747E-02_JPRB,6.3249E-02_JPRB,5.6233E-02_JPRB,5.3534E-02_JPRB,5.3727E-02_JPRB,&
2560
10
 & 5.7468E-02_JPRB,5.8178E-02_JPRB,8.6328E-02_JPRB/)
2561
KAO( :, 3, 2,13) = (/&
2562
 & 9.6812E-02_JPRB,8.4747E-02_JPRB,7.4116E-02_JPRB,6.7508E-02_JPRB,6.6781E-02_JPRB,6.9983E-02_JPRB,&
2563
10
 & 7.6767E-02_JPRB,7.7852E-02_JPRB,1.1485E-01_JPRB/)
2564
KAO( :, 4, 2,13) = (/&
2565
 & 1.0887E-01_JPRB,9.5297E-02_JPRB,8.6108E-02_JPRB,8.0754E-02_JPRB,8.2919E-02_JPRB,8.8967E-02_JPRB,&
2566
10
 & 1.0013E-01_JPRB,1.0496E-01_JPRB,1.4738E-01_JPRB/)
2567
KAO( :, 5, 2,13) = (/&
2568
 & 1.2040E-01_JPRB,1.0544E-01_JPRB,9.8262E-02_JPRB,9.7024E-02_JPRB,1.0128E-01_JPRB,1.1389E-01_JPRB,&
2569
10
 & 1.3047E-01_JPRB,1.4126E-01_JPRB,1.8810E-01_JPRB/)
2570
KAO( :, 1, 3,13) = (/&
2571
 & 6.7428E-02_JPRB,5.9012E-02_JPRB,5.0600E-02_JPRB,4.4820E-02_JPRB,4.0284E-02_JPRB,3.8905E-02_JPRB,&
2572
10
 & 3.8433E-02_JPRB,3.8221E-02_JPRB,5.7695E-02_JPRB/)
2573
KAO( :, 2, 3,13) = (/&
2574
 & 8.0097E-02_JPRB,7.0092E-02_JPRB,6.0231E-02_JPRB,5.4560E-02_JPRB,5.1238E-02_JPRB,5.1427E-02_JPRB,&
2575
10
 & 5.2635E-02_JPRB,5.3599E-02_JPRB,7.9873E-02_JPRB/)
2576
KAO( :, 3, 3,13) = (/&
2577
 & 9.2835E-02_JPRB,8.1288E-02_JPRB,7.1303E-02_JPRB,6.5788E-02_JPRB,6.5168E-02_JPRB,6.7196E-02_JPRB,&
2578
10
 & 7.1689E-02_JPRB,7.2641E-02_JPRB,1.0771E-01_JPRB/)
2579
KAO( :, 4, 3,13) = (/&
2580
 & 1.0559E-01_JPRB,9.2480E-02_JPRB,8.3299E-02_JPRB,7.8616E-02_JPRB,8.1678E-02_JPRB,8.5882E-02_JPRB,&
2581
10
 & 9.4318E-02_JPRB,9.6259E-02_JPRB,1.4043E-01_JPRB/)
2582
KAO( :, 5, 3,13) = (/&
2583
 & 1.1824E-01_JPRB,1.0358E-01_JPRB,9.6455E-02_JPRB,9.5066E-02_JPRB,9.9972E-02_JPRB,1.0747E-01_JPRB,&
2584
10
 & 1.2012E-01_JPRB,1.2676E-01_JPRB,1.7816E-01_JPRB/)
2585
KAO( :, 1, 4,13) = (/&
2586
 & 6.1574E-02_JPRB,5.3893E-02_JPRB,4.6221E-02_JPRB,4.1581E-02_JPRB,3.7011E-02_JPRB,3.6135E-02_JPRB,&
2587
10
 & 3.5573E-02_JPRB,3.4371E-02_JPRB,5.0320E-02_JPRB/)
2588
KAO( :, 2, 4,13) = (/&
2589
 & 7.4469E-02_JPRB,6.5196E-02_JPRB,5.6073E-02_JPRB,5.1353E-02_JPRB,4.7821E-02_JPRB,4.7971E-02_JPRB,&
2590
10
 & 4.8104E-02_JPRB,4.8151E-02_JPRB,7.0598E-02_JPRB/)
2591
KAO( :, 3, 4,13) = (/&
2592
 & 8.7893E-02_JPRB,7.6969E-02_JPRB,6.7380E-02_JPRB,6.2778E-02_JPRB,6.1745E-02_JPRB,6.3327E-02_JPRB,&
2593
10
 & 6.5251E-02_JPRB,6.6605E-02_JPRB,9.6688E-02_JPRB/)
2594
KAO( :, 4, 4,13) = (/&
2595
 & 1.0128E-01_JPRB,8.8666E-02_JPRB,7.9558E-02_JPRB,7.6113E-02_JPRB,7.8711E-02_JPRB,8.2067E-02_JPRB,&
2596
10
 & 8.7118E-02_JPRB,8.9685E-02_JPRB,1.2734E-01_JPRB/)
2597
KAO( :, 5, 4,13) = (/&
2598
 & 1.1397E-01_JPRB,9.9791E-02_JPRB,9.3095E-02_JPRB,9.2358E-02_JPRB,9.7817E-02_JPRB,1.0283E-01_JPRB,&
2599
10
 & 1.1271E-01_JPRB,1.1615E-01_JPRB,1.6394E-01_JPRB/)
2600
KAO( :, 1, 5,13) = (/&
2601
 & 5.5644E-02_JPRB,4.8706E-02_JPRB,4.2042E-02_JPRB,3.7730E-02_JPRB,3.3816E-02_JPRB,3.3296E-02_JPRB,&
2602
10
 & 3.2567E-02_JPRB,3.1307E-02_JPRB,4.2852E-02_JPRB/)
2603
KAO( :, 2, 5,13) = (/&
2604
 & 6.8700E-02_JPRB,6.0145E-02_JPRB,5.2078E-02_JPRB,4.7465E-02_JPRB,4.4257E-02_JPRB,4.4542E-02_JPRB,&
2605
10
 & 4.3904E-02_JPRB,4.3555E-02_JPRB,6.1397E-02_JPRB/)
2606
KAO( :, 3, 5,13) = (/&
2607
 & 8.2079E-02_JPRB,7.1842E-02_JPRB,6.3336E-02_JPRB,5.8826E-02_JPRB,5.7771E-02_JPRB,5.9150E-02_JPRB,&
2608
10
 & 5.9615E-02_JPRB,6.0276E-02_JPRB,8.5213E-02_JPRB/)
2609
KAO( :, 4, 5,13) = (/&
2610
 & 9.5395E-02_JPRB,8.3509E-02_JPRB,7.5491E-02_JPRB,7.2428E-02_JPRB,7.4615E-02_JPRB,7.7323E-02_JPRB,&
2611
10
 & 7.9697E-02_JPRB,8.2375E-02_JPRB,1.1408E-01_JPRB/)
2612
KAO( :, 5, 5,13) = (/&
2613
 & 1.0879E-01_JPRB,9.5224E-02_JPRB,8.9008E-02_JPRB,8.9139E-02_JPRB,9.4277E-02_JPRB,9.8162E-02_JPRB,&
2614
10
 & 1.0347E-01_JPRB,1.0938E-01_JPRB,1.4850E-01_JPRB/)
2615
KAO( :, 1, 6,13) = (/&
2616
 & 4.9166E-02_JPRB,4.3032E-02_JPRB,3.7697E-02_JPRB,3.3418E-02_JPRB,3.0271E-02_JPRB,2.9707E-02_JPRB,&
2617
10
 & 2.8739E-02_JPRB,2.7107E-02_JPRB,3.5180E-02_JPRB/)
2618
KAO( :, 2, 6,13) = (/&
2619
 & 6.1802E-02_JPRB,5.4091E-02_JPRB,4.7585E-02_JPRB,4.2912E-02_JPRB,4.0335E-02_JPRB,4.0310E-02_JPRB,&
2620
10
 & 3.9360E-02_JPRB,3.8194E-02_JPRB,5.1590E-02_JPRB/)
2621
KAO( :, 3, 6,13) = (/&
2622
 & 7.4933E-02_JPRB,6.5583E-02_JPRB,5.8743E-02_JPRB,5.3925E-02_JPRB,5.3041E-02_JPRB,5.4106E-02_JPRB,&
2623
10
 & 5.3825E-02_JPRB,5.3725E-02_JPRB,7.3865E-02_JPRB/)
2624
KAO( :, 4, 6,13) = (/&
2625
 & 8.8794E-02_JPRB,7.7714E-02_JPRB,7.0892E-02_JPRB,6.7266E-02_JPRB,6.9411E-02_JPRB,7.1602E-02_JPRB,&
2626
10
 & 7.2167E-02_JPRB,7.4198E-02_JPRB,1.0072E-01_JPRB/)
2627
KAO( :, 5, 6,13) = (/&
2628
 & 1.0284E-01_JPRB,9.0019E-02_JPRB,8.4346E-02_JPRB,8.3697E-02_JPRB,8.8853E-02_JPRB,9.1618E-02_JPRB,&
2629
10
 & 9.4095E-02_JPRB,9.9493E-02_JPRB,1.3200E-01_JPRB/)
2630
KAO( :, 1, 7,13) = (/&
2631
 & 4.2481E-02_JPRB,3.7182E-02_JPRB,3.2941E-02_JPRB,2.9053E-02_JPRB,2.6729E-02_JPRB,2.5857E-02_JPRB,&
2632
10
 & 2.4817E-02_JPRB,2.3036E-02_JPRB,2.8513E-02_JPRB/)
2633
KAO( :, 2, 7,13) = (/&
2634
 & 5.4646E-02_JPRB,4.7829E-02_JPRB,4.2493E-02_JPRB,3.8260E-02_JPRB,3.6179E-02_JPRB,3.5843E-02_JPRB,&
2635
10
 & 3.4675E-02_JPRB,3.3090E-02_JPRB,4.3061E-02_JPRB/)
2636
KAO( :, 3, 7,13) = (/&
2637
 & 6.7949E-02_JPRB,5.9473E-02_JPRB,5.3629E-02_JPRB,4.8997E-02_JPRB,4.7960E-02_JPRB,4.8517E-02_JPRB,&
2638
10
 & 4.7980E-02_JPRB,4.6686E-02_JPRB,6.3225E-02_JPRB/)
2639
KAO( :, 4, 7,13) = (/&
2640
 & 8.2011E-02_JPRB,7.1775E-02_JPRB,6.5638E-02_JPRB,6.1779E-02_JPRB,6.3457E-02_JPRB,6.4989E-02_JPRB,&
2641
10
 & 6.5420E-02_JPRB,6.5338E-02_JPRB,8.8114E-02_JPRB/)
2642
KAO( :, 5, 7,13) = (/&
2643
 & 9.6121E-02_JPRB,8.4118E-02_JPRB,7.9080E-02_JPRB,7.7840E-02_JPRB,8.2099E-02_JPRB,8.4733E-02_JPRB,&
2644
10
 & 8.6013E-02_JPRB,8.9165E-02_JPRB,1.1782E-01_JPRB/)
2645
KAO( :, 1, 8,13) = (/&
2646
 & 3.6137E-02_JPRB,3.1658E-02_JPRB,2.8232E-02_JPRB,2.4974E-02_JPRB,2.3118E-02_JPRB,2.2088E-02_JPRB,&
2647
10
 & 2.1064E-02_JPRB,1.9376E-02_JPRB,2.2745E-02_JPRB/)
2648
KAO( :, 2, 8,13) = (/&
2649
 & 4.8016E-02_JPRB,4.2076E-02_JPRB,3.7504E-02_JPRB,3.3789E-02_JPRB,3.1931E-02_JPRB,3.1218E-02_JPRB,&
2650
10
 & 3.0077E-02_JPRB,2.8144E-02_JPRB,3.5232E-02_JPRB/)
2651
KAO( :, 3, 8,13) = (/&
2652
 & 6.1205E-02_JPRB,5.3668E-02_JPRB,4.8373E-02_JPRB,4.4145E-02_JPRB,4.2766E-02_JPRB,4.3001E-02_JPRB,&
2653
10
 & 4.2234E-02_JPRB,4.0332E-02_JPRB,5.3276E-02_JPRB/)
2654
KAO( :, 4, 8,13) = (/&
2655
 & 7.5025E-02_JPRB,6.5801E-02_JPRB,6.0176E-02_JPRB,5.6410E-02_JPRB,5.7125E-02_JPRB,5.8703E-02_JPRB,&
2656
10
 & 5.8721E-02_JPRB,5.7394E-02_JPRB,7.6141E-02_JPRB/)
2657
KAO( :, 5, 8,13) = (/&
2658
 & 8.9588E-02_JPRB,7.8614E-02_JPRB,7.3265E-02_JPRB,7.1609E-02_JPRB,7.4944E-02_JPRB,7.7845E-02_JPRB,&
2659
10
 & 7.8817E-02_JPRB,7.9234E-02_JPRB,1.0406E-01_JPRB/)
2660
KAO( :, 1, 9,13) = (/&
2661
 & 3.0354E-02_JPRB,2.6812E-02_JPRB,2.3806E-02_JPRB,2.1190E-02_JPRB,1.9445E-02_JPRB,1.8240E-02_JPRB,&
2662
10
 & 1.7300E-02_JPRB,1.5970E-02_JPRB,2.7469E-02_JPRB/)
2663
KAO( :, 2, 9,13) = (/&
2664
 & 4.1683E-02_JPRB,3.6828E-02_JPRB,3.2679E-02_JPRB,2.9622E-02_JPRB,2.7586E-02_JPRB,2.6377E-02_JPRB,&
2665
10
 & 2.5396E-02_JPRB,2.3781E-02_JPRB,3.1985E-02_JPRB/)
2666
KAO( :, 3, 9,13) = (/&
2667
 & 5.4431E-02_JPRB,4.8107E-02_JPRB,4.3192E-02_JPRB,3.9529E-02_JPRB,3.7624E-02_JPRB,3.7195E-02_JPRB,&
2668
10
 & 3.6607E-02_JPRB,3.4524E-02_JPRB,4.4340E-02_JPRB/)
2669
KAO( :, 4, 9,13) = (/&
2670
 & 6.8321E-02_JPRB,6.0391E-02_JPRB,5.4610E-02_JPRB,5.1211E-02_JPRB,5.0615E-02_JPRB,5.1938E-02_JPRB,&
2671
10
 & 5.2206E-02_JPRB,5.0002E-02_JPRB,6.4376E-02_JPRB/)
2672
KAO( :, 5, 9,13) = (/&
2673
 & 8.3382E-02_JPRB,7.3864E-02_JPRB,6.7608E-02_JPRB,6.5416E-02_JPRB,6.7796E-02_JPRB,7.0544E-02_JPRB,&
2674
10
 & 7.1581E-02_JPRB,7.0367E-02_JPRB,8.9820E-02_JPRB/)
2675
KAO( :, 1,10,13) = (/&
2676
 & 2.5866E-02_JPRB,2.3096E-02_JPRB,2.0359E-02_JPRB,1.8244E-02_JPRB,1.6555E-02_JPRB,1.5241E-02_JPRB,&
2677
10
 & 1.4537E-02_JPRB,1.3197E-02_JPRB,1.8207E-01_JPRB/)
2678
KAO( :, 2,10,13) = (/&
2679
 & 3.6597E-02_JPRB,3.2659E-02_JPRB,2.8899E-02_JPRB,2.6262E-02_JPRB,2.4046E-02_JPRB,2.2449E-02_JPRB,&
2680
10
 & 2.1774E-02_JPRB,2.0251E-02_JPRB,1.8269E-01_JPRB/)
2681
KAO( :, 3,10,13) = (/&
2682
 & 4.8990E-02_JPRB,4.3688E-02_JPRB,3.9094E-02_JPRB,3.5827E-02_JPRB,3.3277E-02_JPRB,3.2592E-02_JPRB,&
2683
10
 & 3.2234E-02_JPRB,3.0480E-02_JPRB,1.8337E-01_JPRB/)
2684
KAO( :, 4,10,13) = (/&
2685
 & 6.3031E-02_JPRB,5.6150E-02_JPRB,5.0614E-02_JPRB,4.7098E-02_JPRB,4.5295E-02_JPRB,4.6573E-02_JPRB,&
2686
10
 & 4.6974E-02_JPRB,4.5107E-02_JPRB,1.8526E-01_JPRB/)
2687
KAO( :, 5,10,13) = (/&
2688
 & 7.8337E-02_JPRB,7.0036E-02_JPRB,6.3907E-02_JPRB,6.0875E-02_JPRB,6.1588E-02_JPRB,6.4404E-02_JPRB,&
2689
10
 & 6.5574E-02_JPRB,6.4038E-02_JPRB,1.9009E-01_JPRB/)
2690
KAO( :, 1,11,13) = (/&
2691
 & 2.6170E-02_JPRB,2.3547E-02_JPRB,2.0835E-02_JPRB,1.8825E-02_JPRB,1.6889E-02_JPRB,1.5401E-02_JPRB,&
2692
10
 & 1.4727E-02_JPRB,1.3614E-02_JPRB,5.0818E-01_JPRB/)
2693
KAO( :, 2,11,13) = (/&
2694
 & 3.7087E-02_JPRB,3.3315E-02_JPRB,2.9858E-02_JPRB,2.7151E-02_JPRB,2.4450E-02_JPRB,2.2833E-02_JPRB,&
2695
10
 & 2.2404E-02_JPRB,2.1001E-02_JPRB,5.0103E-01_JPRB/)
2696
KAO( :, 3,11,13) = (/&
2697
 & 4.9963E-02_JPRB,4.4837E-02_JPRB,4.0625E-02_JPRB,3.7044E-02_JPRB,3.4135E-02_JPRB,3.3574E-02_JPRB,&
2698
10
 & 3.3602E-02_JPRB,3.2090E-02_JPRB,4.9194E-01_JPRB/)
2699
KAO( :, 4,11,13) = (/&
2700
 & 6.4516E-02_JPRB,5.7977E-02_JPRB,5.3206E-02_JPRB,4.8937E-02_JPRB,4.7272E-02_JPRB,4.8448E-02_JPRB,&
2701
10
 & 4.9192E-02_JPRB,4.7870E-02_JPRB,4.8323E-01_JPRB/)
2702
KAO( :, 5,11,13) = (/&
2703
 & 8.0357E-02_JPRB,7.2810E-02_JPRB,6.7423E-02_JPRB,6.3846E-02_JPRB,6.4063E-02_JPRB,6.6805E-02_JPRB,&
2704
10
 & 6.8458E-02_JPRB,6.7693E-02_JPRB,4.8224E-01_JPRB/)
2705
KAO( :, 1,12,13) = (/&
2706
 & 2.6382E-02_JPRB,2.3869E-02_JPRB,2.1423E-02_JPRB,1.9530E-02_JPRB,1.7276E-02_JPRB,1.5597E-02_JPRB,&
2707
10
 & 1.4852E-02_JPRB,1.3926E-02_JPRB,8.8613E-01_JPRB/)
2708
KAO( :, 2,12,13) = (/&
2709
 & 3.7554E-02_JPRB,3.3911E-02_JPRB,3.0989E-02_JPRB,2.8114E-02_JPRB,2.5051E-02_JPRB,2.3359E-02_JPRB,&
2710
10
 & 2.2994E-02_JPRB,2.2005E-02_JPRB,8.7122E-01_JPRB/)
2711
KAO( :, 3,12,13) = (/&
2712
 & 5.0689E-02_JPRB,4.5835E-02_JPRB,4.2372E-02_JPRB,3.8639E-02_JPRB,3.5524E-02_JPRB,3.4470E-02_JPRB,&
2713
10
 & 3.4752E-02_JPRB,3.3789E-02_JPRB,8.5297E-01_JPRB/)
2714
KAO( :, 4,12,13) = (/&
2715
 & 6.5611E-02_JPRB,5.9692E-02_JPRB,5.5677E-02_JPRB,5.1555E-02_JPRB,4.9587E-02_JPRB,4.9441E-02_JPRB,&
2716
10
 & 5.0436E-02_JPRB,4.9926E-02_JPRB,8.3445E-01_JPRB/)
2717
KAO( :, 5,12,13) = (/&
2718
 & 8.2012E-02_JPRB,7.5239E-02_JPRB,7.1004E-02_JPRB,6.7701E-02_JPRB,6.6707E-02_JPRB,6.7915E-02_JPRB,&
2719
10
 & 6.9915E-02_JPRB,7.0294E-02_JPRB,8.1920E-01_JPRB/)
2720
KAO( :, 1,13,13) = (/&
2721
 & 2.6411E-02_JPRB,2.4001E-02_JPRB,2.2003E-02_JPRB,2.0098E-02_JPRB,1.7783E-02_JPRB,1.5910E-02_JPRB,&
2722
10
 & 1.4921E-02_JPRB,1.4266E-02_JPRB,1.2499E+00_JPRB/)
2723
KAO( :, 2,13,13) = (/&
2724
 & 3.7728E-02_JPRB,3.4235E-02_JPRB,3.1890E-02_JPRB,2.9069E-02_JPRB,2.6051E-02_JPRB,2.4137E-02_JPRB,&
2725
10
 & 2.3431E-02_JPRB,2.2763E-02_JPRB,1.2233E+00_JPRB/)
2726
KAO( :, 3,13,13) = (/&
2727
 & 5.1168E-02_JPRB,4.6582E-02_JPRB,4.3725E-02_JPRB,4.0296E-02_JPRB,3.7356E-02_JPRB,3.5542E-02_JPRB,&
2728
10
 & 3.5231E-02_JPRB,3.4850E-02_JPRB,1.1970E+00_JPRB/)
2729
KAO( :, 4,13,13) = (/&
2730
 & 6.6532E-02_JPRB,6.1023E-02_JPRB,5.7678E-02_JPRB,5.4658E-02_JPRB,5.1906E-02_JPRB,5.0202E-02_JPRB,&
2731
10
 & 5.0477E-02_JPRB,5.0911E-02_JPRB,1.1702E+00_JPRB/)
2732
KAO( :, 5,13,13) = (/&
2733
 & 8.3713E-02_JPRB,7.7246E-02_JPRB,7.4186E-02_JPRB,7.1956E-02_JPRB,6.9311E-02_JPRB,6.8138E-02_JPRB,&
2734
10
 & 6.9472E-02_JPRB,7.1080E-02_JPRB,1.1427E+00_JPRB/)
2735
KAO( :, 1, 1,14) = (/&
2736
 & 8.4406E-02_JPRB,7.3923E-02_JPRB,6.3390E-02_JPRB,5.3666E-02_JPRB,5.2956E-02_JPRB,5.5472E-02_JPRB,&
2737
10
 & 6.0634E-02_JPRB,5.8813E-02_JPRB,9.2877E-02_JPRB/)
2738
KAO( :, 2, 1,14) = (/&
2739
 & 9.8373E-02_JPRB,8.6109E-02_JPRB,7.3836E-02_JPRB,6.7549E-02_JPRB,6.9431E-02_JPRB,7.7739E-02_JPRB,&
2740
10
 & 8.6438E-02_JPRB,8.5388E-02_JPRB,1.3005E-01_JPRB/)
2741
KAO( :, 3, 1,14) = (/&
2742
 & 1.1220E-01_JPRB,9.8227E-02_JPRB,8.4237E-02_JPRB,8.6127E-02_JPRB,9.3558E-02_JPRB,1.1007E-01_JPRB,&
2743
10
 & 1.2298E-01_JPRB,1.2120E-01_JPRB,1.8519E-01_JPRB/)
2744
KAO( :, 4, 1,14) = (/&
2745
 & 1.2589E-01_JPRB,1.1021E-01_JPRB,9.7341E-02_JPRB,1.0805E-01_JPRB,1.2702E-01_JPRB,1.5181E-01_JPRB,&
2746
10
 & 1.6898E-01_JPRB,1.6664E-01_JPRB,2.5570E-01_JPRB/)
2747
KAO( :, 5, 1,14) = (/&
2748
 & 1.3898E-01_JPRB,1.2167E-01_JPRB,1.1790E-01_JPRB,1.3538E-01_JPRB,1.6936E-01_JPRB,2.0147E-01_JPRB,&
2749
10
 & 2.2468E-01_JPRB,2.1901E-01_JPRB,3.4200E-01_JPRB/)
2750
KAO( :, 1, 2,14) = (/&
2751
 & 8.6965E-02_JPRB,7.6122E-02_JPRB,6.5271E-02_JPRB,5.5929E-02_JPRB,5.5266E-02_JPRB,5.6412E-02_JPRB,&
2752
10
 & 6.1162E-02_JPRB,5.9084E-02_JPRB,9.4145E-02_JPRB/)
2753
KAO( :, 2, 2,14) = (/&
2754
 & 1.0214E-01_JPRB,8.9404E-02_JPRB,7.6670E-02_JPRB,7.1026E-02_JPRB,7.1152E-02_JPRB,7.6438E-02_JPRB,&
2755
10
 & 8.4319E-02_JPRB,8.3198E-02_JPRB,1.2897E-01_JPRB/)
2756
KAO( :, 3, 2,14) = (/&
2757
 & 1.1758E-01_JPRB,1.0294E-01_JPRB,8.8300E-02_JPRB,9.0301E-02_JPRB,9.3552E-02_JPRB,1.0592E-01_JPRB,&
2758
10
 & 1.1887E-01_JPRB,1.2017E-01_JPRB,1.7974E-01_JPRB/)
2759
KAO( :, 4, 2,14) = (/&
2760
 & 1.3321E-01_JPRB,1.1665E-01_JPRB,1.0423E-01_JPRB,1.1370E-01_JPRB,1.2505E-01_JPRB,1.4860E-01_JPRB,&
2761
10
 & 1.6715E-01_JPRB,1.6784E-01_JPRB,2.5046E-01_JPRB/)
2762
KAO( :, 5, 2,14) = (/&
2763
 & 1.4865E-01_JPRB,1.3020E-01_JPRB,1.2666E-01_JPRB,1.3953E-01_JPRB,1.6682E-01_JPRB,2.0058E-01_JPRB,&
2764
10
 & 2.2553E-01_JPRB,2.2565E-01_JPRB,3.3899E-01_JPRB/)
2765
KAO( :, 1, 3,14) = (/&
2766
 & 8.6079E-02_JPRB,7.5340E-02_JPRB,6.4607E-02_JPRB,5.5456E-02_JPRB,5.5272E-02_JPRB,5.5233E-02_JPRB,&
2767
10
 & 5.8267E-02_JPRB,5.6783E-02_JPRB,8.9464E-02_JPRB/)
2768
KAO( :, 2, 3,14) = (/&
2769
 & 1.0304E-01_JPRB,9.0205E-02_JPRB,7.7348E-02_JPRB,7.0519E-02_JPRB,7.0862E-02_JPRB,7.2390E-02_JPRB,&
2770
10
 & 7.8791E-02_JPRB,7.7229E-02_JPRB,1.2132E-01_JPRB/)
2771
KAO( :, 3, 3,14) = (/&
2772
 & 1.2050E-01_JPRB,1.0550E-01_JPRB,9.0628E-02_JPRB,8.9686E-02_JPRB,9.0578E-02_JPRB,9.7251E-02_JPRB,&
2773
10
 & 1.0832E-01_JPRB,1.0857E-01_JPRB,1.6570E-01_JPRB/)
2774
KAO( :, 4, 3,14) = (/&
2775
 & 1.3798E-01_JPRB,1.2081E-01_JPRB,1.0757E-01_JPRB,1.1366E-01_JPRB,1.1771E-01_JPRB,1.3404E-01_JPRB,&
2776
10
 & 1.5114E-01_JPRB,1.5446E-01_JPRB,2.2779E-01_JPRB/)
2777
KAO( :, 5, 3,14) = (/&
2778
 & 1.5527E-01_JPRB,1.3594E-01_JPRB,1.3049E-01_JPRB,1.4065E-01_JPRB,1.5498E-01_JPRB,1.8347E-01_JPRB,&
2779
10
 & 2.0928E-01_JPRB,2.1357E-01_JPRB,3.1056E-01_JPRB/)
2780
2781
1
IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART9',1,ZHOOK_HANDLE)
2782
1
END SUBROUTINE PART9
2783
2784
2785
1
SUBROUTINE PART10
2786
2787
REAL(KIND=JPRB) :: ZHOOK_HANDLE
2788
1
IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART10',0,ZHOOK_HANDLE)
2789
2790
2791
KAO( :, 1, 4,14) = (/&
2792
 & 8.3658E-02_JPRB,7.3219E-02_JPRB,6.2782E-02_JPRB,5.4421E-02_JPRB,5.4252E-02_JPRB,5.2373E-02_JPRB,&
2793
10
 & 5.2872E-02_JPRB,5.3249E-02_JPRB,8.1760E-02_JPRB/)
2794
KAO( :, 2, 4,14) = (/&
2795
 & 1.0179E-01_JPRB,8.9084E-02_JPRB,7.6372E-02_JPRB,6.9322E-02_JPRB,6.9646E-02_JPRB,6.9291E-02_JPRB,&
2796
10
 & 7.2799E-02_JPRB,7.2370E-02_JPRB,1.1302E-01_JPRB/)
2797
KAO( :, 3, 4,14) = (/&
2798
 & 1.2055E-01_JPRB,1.0553E-01_JPRB,9.0925E-02_JPRB,8.8158E-02_JPRB,8.8997E-02_JPRB,9.0835E-02_JPRB,&
2799
10
 & 9.8776E-02_JPRB,9.8752E-02_JPRB,1.5269E-01_JPRB/)
2800
KAO( :, 4, 4,14) = (/&
2801
 & 1.3976E-01_JPRB,1.2239E-01_JPRB,1.0872E-01_JPRB,1.1120E-01_JPRB,1.1304E-01_JPRB,1.2136E-01_JPRB,&
2802
10
 & 1.3545E-01_JPRB,1.3720E-01_JPRB,2.0650E-01_JPRB/)
2803
KAO( :, 5, 4,14) = (/&
2804
 & 1.5964E-01_JPRB,1.3984E-01_JPRB,1.3154E-01_JPRB,1.3870E-01_JPRB,1.4428E-01_JPRB,1.6405E-01_JPRB,&
2805
10
 & 1.8578E-01_JPRB,1.9371E-01_JPRB,2.7910E-01_JPRB/)
2806
KAO( :, 1, 5,14) = (/&
2807
 & 7.9613E-02_JPRB,6.9667E-02_JPRB,5.9735E-02_JPRB,5.2890E-02_JPRB,5.1672E-02_JPRB,4.9631E-02_JPRB,&
2808
10
 & 4.7983E-02_JPRB,4.7891E-02_JPRB,7.3721E-02_JPRB/)
2809
KAO( :, 2, 5,14) = (/&
2810
 & 9.8444E-02_JPRB,8.6165E-02_JPRB,7.3879E-02_JPRB,6.8004E-02_JPRB,6.7906E-02_JPRB,6.5760E-02_JPRB,&
2811
10
 & 6.6820E-02_JPRB,6.7095E-02_JPRB,1.0263E-01_JPRB/)
2812
KAO( :, 3, 5,14) = (/&
2813
 & 1.1874E-01_JPRB,1.0393E-01_JPRB,8.9653E-02_JPRB,8.6769E-02_JPRB,8.7048E-02_JPRB,8.6781E-02_JPRB,&
2814
10
 & 9.1705E-02_JPRB,9.1503E-02_JPRB,1.4159E-01_JPRB/)
2815
KAO( :, 4, 5,14) = (/&
2816
 & 1.4009E-01_JPRB,1.2266E-01_JPRB,1.0834E-01_JPRB,1.0954E-01_JPRB,1.1083E-01_JPRB,1.1372E-01_JPRB,&
2817
10
 & 1.2361E-01_JPRB,1.2496E-01_JPRB,1.9192E-01_JPRB/)
2818
KAO( :, 5, 5,14) = (/&
2819
 & 1.6191E-01_JPRB,1.4179E-01_JPRB,1.3132E-01_JPRB,1.3664E-01_JPRB,1.3962E-01_JPRB,1.5009E-01_JPRB,&
2820
10
 & 1.6802E-01_JPRB,1.7246E-01_JPRB,2.5602E-01_JPRB/)
2821
KAO( :, 1, 6,14) = (/&
2822
 & 7.3321E-02_JPRB,6.4173E-02_JPRB,5.5115E-02_JPRB,5.0047E-02_JPRB,4.8003E-02_JPRB,4.5729E-02_JPRB,&
2823
10
 & 4.3413E-02_JPRB,4.2157E-02_JPRB,6.5110E-02_JPRB/)
2824
KAO( :, 2, 6,14) = (/&
2825
 & 9.2952E-02_JPRB,8.1355E-02_JPRB,6.9976E-02_JPRB,6.5257E-02_JPRB,6.4561E-02_JPRB,6.2014E-02_JPRB,&
2826
10
 & 6.0594E-02_JPRB,6.0655E-02_JPRB,9.1731E-02_JPRB/)
2827
KAO( :, 3, 6,14) = (/&
2828
 & 1.1439E-01_JPRB,1.0014E-01_JPRB,8.6575E-02_JPRB,8.3912E-02_JPRB,8.3786E-02_JPRB,8.2279E-02_JPRB,&
2829
10
 & 8.3550E-02_JPRB,8.4201E-02_JPRB,1.2740E-01_JPRB/)
2830
KAO( :, 4, 6,14) = (/&
2831
 & 1.3703E-01_JPRB,1.1997E-01_JPRB,1.0601E-01_JPRB,1.0652E-01_JPRB,1.0715E-01_JPRB,1.0792E-01_JPRB,&
2832
10
 & 1.1407E-01_JPRB,1.1447E-01_JPRB,1.7570E-01_JPRB/)
2833
KAO( :, 5, 6,14) = (/&
2834
 & 1.6047E-01_JPRB,1.4048E-01_JPRB,1.2948E-01_JPRB,1.3382E-01_JPRB,1.3571E-01_JPRB,1.4072E-01_JPRB,&
2835
10
 & 1.5346E-01_JPRB,1.5557E-01_JPRB,2.3674E-01_JPRB/)
2836
KAO( :, 1, 7,14) = (/&
2837
 & 6.6096E-02_JPRB,5.7840E-02_JPRB,5.0291E-02_JPRB,4.6255E-02_JPRB,4.3749E-02_JPRB,4.1346E-02_JPRB,&
2838
10
 & 3.9237E-02_JPRB,3.7187E-02_JPRB,5.6581E-02_JPRB/)
2839
KAO( :, 2, 7,14) = (/&
2840
 & 8.5997E-02_JPRB,7.5272E-02_JPRB,6.5564E-02_JPRB,6.1464E-02_JPRB,6.0084E-02_JPRB,5.7566E-02_JPRB,&
2841
10
 & 5.5305E-02_JPRB,5.4415E-02_JPRB,8.1052E-02_JPRB/)
2842
KAO( :, 3, 7,14) = (/&
2843
 & 1.0792E-01_JPRB,9.4463E-02_JPRB,8.2746E-02_JPRB,8.0231E-02_JPRB,7.9656E-02_JPRB,7.7519E-02_JPRB,&
2844
10
 & 7.6243E-02_JPRB,7.6636E-02_JPRB,1.1376E-01_JPRB/)
2845
KAO( :, 4, 7,14) = (/&
2846
 & 1.3147E-01_JPRB,1.1508E-01_JPRB,1.0289E-01_JPRB,1.0281E-01_JPRB,1.0321E-01_JPRB,1.0267E-01_JPRB,&
2847
10
 & 1.0428E-01_JPRB,1.0618E-01_JPRB,1.5831E-01_JPRB/)
2848
KAO( :, 5, 7,14) = (/&
2849
 & 1.5658E-01_JPRB,1.3709E-01_JPRB,1.2648E-01_JPRB,1.2964E-01_JPRB,1.3186E-01_JPRB,1.3458E-01_JPRB,&
2850
10
 & 1.4246E-01_JPRB,1.4352E-01_JPRB,2.1656E-01_JPRB/)
2851
KAO( :, 1, 8,14) = (/&
2852
 & 5.8400E-02_JPRB,5.1103E-02_JPRB,4.5168E-02_JPRB,4.1948E-02_JPRB,3.9253E-02_JPRB,3.7020E-02_JPRB,&
2853
10
 & 3.5370E-02_JPRB,3.2290E-02_JPRB,4.8663E-02_JPRB/)
2854
KAO( :, 2, 8,14) = (/&
2855
 & 7.8005E-02_JPRB,6.8268E-02_JPRB,6.0453E-02_JPRB,5.7096E-02_JPRB,5.4905E-02_JPRB,5.3117E-02_JPRB,&
2856
10
 & 5.0732E-02_JPRB,4.8891E-02_JPRB,7.1101E-02_JPRB/)
2857
KAO( :, 3, 8,14) = (/&
2858
 & 9.9991E-02_JPRB,8.7516E-02_JPRB,7.8019E-02_JPRB,7.5868E-02_JPRB,7.4621E-02_JPRB,7.2463E-02_JPRB,&
2859
10
 & 7.0304E-02_JPRB,6.9569E-02_JPRB,1.0104E-01_JPRB/)
2860
KAO( :, 4, 8,14) = (/&
2861
 & 1.2410E-01_JPRB,1.0864E-01_JPRB,9.8489E-02_JPRB,9.8564E-02_JPRB,9.8094E-02_JPRB,9.6833E-02_JPRB,&
2862
10
 & 9.6022E-02_JPRB,9.6830E-02_JPRB,1.4193E-01_JPRB/)
2863
KAO( :, 5, 8,14) = (/&
2864
 & 1.4968E-01_JPRB,1.3103E-01_JPRB,1.2227E-01_JPRB,1.2491E-01_JPRB,1.2710E-01_JPRB,1.2811E-01_JPRB,&
2865
10
 & 1.3093E-01_JPRB,1.3351E-01_JPRB,1.9610E-01_JPRB/)
2866
KAO( :, 1, 9,14) = (/&
2867
 & 5.0397E-02_JPRB,4.4093E-02_JPRB,3.9683E-02_JPRB,3.6946E-02_JPRB,3.4574E-02_JPRB,3.2784E-02_JPRB,&
2868
10
 & 3.1190E-02_JPRB,2.7785E-02_JPRB,4.2938E-02_JPRB/)
2869
KAO( :, 2, 9,14) = (/&
2870
 & 6.9192E-02_JPRB,6.0558E-02_JPRB,5.4594E-02_JPRB,5.1616E-02_JPRB,4.9513E-02_JPRB,4.8432E-02_JPRB,&
2871
10
 & 4.6308E-02_JPRB,4.3232E-02_JPRB,6.1150E-02_JPRB/)
2872
KAO( :, 3, 9,14) = (/&
2873
 & 9.0684E-02_JPRB,7.9364E-02_JPRB,7.1928E-02_JPRB,7.0062E-02_JPRB,6.8840E-02_JPRB,6.7293E-02_JPRB,&
2874
10
 & 6.5005E-02_JPRB,6.2608E-02_JPRB,8.8443E-02_JPRB/)
2875
KAO( :, 4, 9,14) = (/&
2876
 & 1.1460E-01_JPRB,1.0028E-01_JPRB,9.2569E-02_JPRB,9.2695E-02_JPRB,9.1960E-02_JPRB,9.0808E-02_JPRB,&
2877
10
 & 8.8903E-02_JPRB,8.7875E-02_JPRB,1.2618E-01_JPRB/)
2878
KAO( :, 5, 9,14) = (/&
2879
 & 1.4029E-01_JPRB,1.2278E-01_JPRB,1.1658E-01_JPRB,1.1927E-01_JPRB,1.2033E-01_JPRB,1.2086E-01_JPRB,&
2880
10
 & 1.2101E-01_JPRB,1.2214E-01_JPRB,1.7683E-01_JPRB/)
2881
KAO( :, 1,10,14) = (/&
2882
 & 4.3717E-02_JPRB,3.8278E-02_JPRB,3.5080E-02_JPRB,3.2701E-02_JPRB,3.0716E-02_JPRB,2.9342E-02_JPRB,&
2883
10
 & 2.7684E-02_JPRB,2.4470E-02_JPRB,2.2009E-01_JPRB/)
2884
KAO( :, 2,10,14) = (/&
2885
 & 6.1476E-02_JPRB,5.3866E-02_JPRB,4.9319E-02_JPRB,4.6960E-02_JPRB,4.5259E-02_JPRB,4.4478E-02_JPRB,&
2886
10
 & 4.2577E-02_JPRB,3.9251E-02_JPRB,2.1963E-01_JPRB/)
2887
KAO( :, 3,10,14) = (/&
2888
 & 8.2385E-02_JPRB,7.2234E-02_JPRB,6.6445E-02_JPRB,6.4962E-02_JPRB,6.4371E-02_JPRB,6.3180E-02_JPRB,&
2889
10
 & 6.0931E-02_JPRB,5.7438E-02_JPRB,2.2242E-01_JPRB/)
2890
KAO( :, 4,10,14) = (/&
2891
 & 1.0599E-01_JPRB,9.3000E-02_JPRB,8.7065E-02_JPRB,8.7339E-02_JPRB,8.7286E-02_JPRB,8.6396E-02_JPRB,&
2892
10
 & 8.4334E-02_JPRB,8.1297E-02_JPRB,2.2730E-01_JPRB/)
2893
KAO( :, 5,10,14) = (/&
2894
 & 1.3194E-01_JPRB,1.1580E-01_JPRB,1.1124E-01_JPRB,1.1411E-01_JPRB,1.1533E-01_JPRB,1.1612E-01_JPRB,&
2895
10
 & 1.1515E-01_JPRB,1.1414E-01_JPRB,2.3906E-01_JPRB/)
2896
KAO( :, 1,11,14) = (/&
2897
 & 4.4414E-02_JPRB,3.9124E-02_JPRB,3.6276E-02_JPRB,3.4192E-02_JPRB,3.2709E-02_JPRB,3.1757E-02_JPRB,&
2898
10
 & 3.0272E-02_JPRB,2.7274E-02_JPRB,6.0923E-01_JPRB/)
2899
KAO( :, 2,11,14) = (/&
2900
 & 6.2792E-02_JPRB,5.5349E-02_JPRB,5.1175E-02_JPRB,4.9442E-02_JPRB,4.8780E-02_JPRB,4.8068E-02_JPRB,&
2901
10
 & 4.6106E-02_JPRB,4.2789E-02_JPRB,6.0862E-01_JPRB/)
2902
KAO( :, 3,11,14) = (/&
2903
 & 8.4498E-02_JPRB,7.4522E-02_JPRB,6.9553E-02_JPRB,6.8963E-02_JPRB,6.9106E-02_JPRB,6.8253E-02_JPRB,&
2904
10
 & 6.6044E-02_JPRB,6.2338E-02_JPRB,6.0545E-01_JPRB/)
2905
KAO( :, 4,11,14) = (/&
2906
 & 1.0929E-01_JPRB,9.6406E-02_JPRB,9.1543E-02_JPRB,9.3189E-02_JPRB,9.3647E-02_JPRB,9.3574E-02_JPRB,&
2907
10
 & 9.1735E-02_JPRB,8.8253E-02_JPRB,5.9922E-01_JPRB/)
2908
KAO( :, 5,11,14) = (/&
2909
 & 1.3686E-01_JPRB,1.2067E-01_JPRB,1.1766E-01_JPRB,1.2167E-01_JPRB,1.2456E-01_JPRB,1.2652E-01_JPRB,&
2910
10
 & 1.2561E-01_JPRB,1.2397E-01_JPRB,5.9856E-01_JPRB/)
2911
KAO( :, 1,12,14) = (/&
2912
 & 4.5286E-02_JPRB,4.0194E-02_JPRB,3.7498E-02_JPRB,3.5426E-02_JPRB,3.4720E-02_JPRB,3.4064E-02_JPRB,&
2913
10
 & 3.2556E-02_JPRB,2.9605E-02_JPRB,1.0899E+00_JPRB/)
2914
KAO( :, 2,12,14) = (/&
2915
 & 6.4484E-02_JPRB,5.7256E-02_JPRB,5.3321E-02_JPRB,5.1760E-02_JPRB,5.1954E-02_JPRB,5.1386E-02_JPRB,&
2916
10
 & 4.9166E-02_JPRB,4.5588E-02_JPRB,1.0909E+00_JPRB/)
2917
KAO( :, 3,12,14) = (/&
2918
 & 8.7239E-02_JPRB,7.7409E-02_JPRB,7.3021E-02_JPRB,7.2641E-02_JPRB,7.3363E-02_JPRB,7.2923E-02_JPRB,&
2919
10
 & 7.0510E-02_JPRB,6.6538E-02_JPRB,1.0837E+00_JPRB/)
2920
KAO( :, 4,12,14) = (/&
2921
 & 1.1325E-01_JPRB,1.0044E-01_JPRB,9.6532E-02_JPRB,9.7960E-02_JPRB,9.9715E-02_JPRB,1.0061E-01_JPRB,&
2922
10
 & 9.8953E-02_JPRB,9.5070E-02_JPRB,1.0714E+00_JPRB/)
2923
KAO( :, 5,12,14) = (/&
2924
 & 1.4215E-01_JPRB,1.2620E-01_JPRB,1.2476E-01_JPRB,1.2858E-01_JPRB,1.3345E-01_JPRB,1.3645E-01_JPRB,&
2925
10
 & 1.3637E-01_JPRB,1.3374E-01_JPRB,1.0563E+00_JPRB/)
2926
KAO( :, 1,13,14) = (/&
2927
 & 4.6570E-02_JPRB,4.1678E-02_JPRB,3.8725E-02_JPRB,3.6717E-02_JPRB,3.6394E-02_JPRB,3.5946E-02_JPRB,&
2928
10
 & 3.4376E-02_JPRB,3.1454E-02_JPRB,1.5895E+00_JPRB/)
2929
KAO( :, 2,13,14) = (/&
2930
 & 6.6498E-02_JPRB,5.9462E-02_JPRB,5.5660E-02_JPRB,5.4101E-02_JPRB,5.4467E-02_JPRB,5.3788E-02_JPRB,&
2931
10
 & 5.1648E-02_JPRB,4.8046E-02_JPRB,1.5849E+00_JPRB/)
2932
KAO( :, 3,13,14) = (/&
2933
 & 9.0364E-02_JPRB,8.0700E-02_JPRB,7.6577E-02_JPRB,7.6135E-02_JPRB,7.6849E-02_JPRB,7.6753E-02_JPRB,&
2934
10
 & 7.4630E-02_JPRB,7.0420E-02_JPRB,1.5698E+00_JPRB/)
2935
KAO( :, 4,13,14) = (/&
2936
 & 1.1790E-01_JPRB,1.0519E-01_JPRB,1.0195E-01_JPRB,1.0248E-01_JPRB,1.0532E-01_JPRB,1.0714E-01_JPRB,&
2937
10
 & 1.0603E-01_JPRB,1.0171E-01_JPRB,1.5492E+00_JPRB/)
2938
KAO( :, 5,13,14) = (/&
2939
 & 1.4874E-01_JPRB,1.3321E-01_JPRB,1.3189E-01_JPRB,1.3520E-01_JPRB,1.4175E-01_JPRB,1.4629E-01_JPRB,&
2940
10
 & 1.4735E-01_JPRB,1.4395E-01_JPRB,1.5228E+00_JPRB/)
2941
KAO( :, 1, 1,15) = (/&
2942
 & 1.1131E-01_JPRB,9.7434E-02_JPRB,8.3539E-02_JPRB,6.9673E-02_JPRB,6.4542E-02_JPRB,7.4907E-02_JPRB,&
2943
10
 & 8.0610E-02_JPRB,7.4592E-02_JPRB,1.2983E-01_JPRB/)
2944
KAO( :, 2, 1,15) = (/&
2945
 & 1.2948E-01_JPRB,1.1334E-01_JPRB,9.7201E-02_JPRB,8.1647E-02_JPRB,9.0214E-02_JPRB,1.0535E-01_JPRB,&
2946
10
 & 1.1308E-01_JPRB,1.0399E-01_JPRB,1.8473E-01_JPRB/)
2947
KAO( :, 3, 1,15) = (/&
2948
 & 1.4765E-01_JPRB,1.2925E-01_JPRB,1.1103E-01_JPRB,1.0059E-01_JPRB,1.2467E-01_JPRB,1.4566E-01_JPRB,&
2949
10
 & 1.5615E-01_JPRB,1.4358E-01_JPRB,2.5548E-01_JPRB/)
2950
KAO( :, 4, 1,15) = (/&
2951
 & 1.6551E-01_JPRB,1.4490E-01_JPRB,1.2421E-01_JPRB,1.3376E-01_JPRB,1.6988E-01_JPRB,1.9836E-01_JPRB,&
2952
10
 & 2.1296E-01_JPRB,1.9754E-01_JPRB,3.4830E-01_JPRB/)
2953
KAO( :, 5, 1,15) = (/&
2954
 & 1.8295E-01_JPRB,1.6015E-01_JPRB,1.4430E-01_JPRB,1.8250E-01_JPRB,2.3252E-01_JPRB,2.7304E-01_JPRB,&
2955
10
 & 2.9658E-01_JPRB,2.7983E-01_JPRB,4.7759E-01_JPRB/)
2956
KAO( :, 1, 2,15) = (/&
2957
 & 1.2229E-01_JPRB,1.0698E-01_JPRB,9.1752E-02_JPRB,7.6480E-02_JPRB,6.8179E-02_JPRB,7.6324E-02_JPRB,&
2958
10
 & 8.2595E-02_JPRB,7.6957E-02_JPRB,1.3490E-01_JPRB/)
2959
KAO( :, 2, 2,15) = (/&
2960
 & 1.4324E-01_JPRB,1.2538E-01_JPRB,1.0747E-01_JPRB,9.0191E-02_JPRB,9.3013E-02_JPRB,1.0900E-01_JPRB,&
2961
10
 & 1.1749E-01_JPRB,1.0918E-01_JPRB,1.9459E-01_JPRB/)
2962
KAO( :, 3, 2,15) = (/&
2963
 & 1.6466E-01_JPRB,1.4413E-01_JPRB,1.2359E-01_JPRB,1.1001E-01_JPRB,1.3054E-01_JPRB,1.5305E-01_JPRB,&
2964
10
 & 1.6497E-01_JPRB,1.5263E-01_JPRB,2.7373E-01_JPRB/)
2965
KAO( :, 4, 2,15) = (/&
2966
 & 1.8622E-01_JPRB,1.6296E-01_JPRB,1.3975E-01_JPRB,1.4019E-01_JPRB,1.7799E-01_JPRB,2.0816E-01_JPRB,&
2967
10
 & 2.2421E-01_JPRB,2.0784E-01_JPRB,3.7366E-01_JPRB/)
2968
KAO( :, 5, 2,15) = (/&
2969
 & 2.0755E-01_JPRB,1.8167E-01_JPRB,1.5934E-01_JPRB,1.9033E-01_JPRB,2.4247E-01_JPRB,2.8472E-01_JPRB,&
2970
10
 & 3.0675E-01_JPRB,2.8798E-01_JPRB,5.0930E-01_JPRB/)
2971
KAO( :, 1, 3,15) = (/&
2972
 & 1.2835E-01_JPRB,1.1233E-01_JPRB,9.6332E-02_JPRB,8.0294E-02_JPRB,6.8892E-02_JPRB,7.2388E-02_JPRB,&
2973
10
 & 7.7841E-02_JPRB,7.2996E-02_JPRB,1.3009E-01_JPRB/)
2974
KAO( :, 2, 3,15) = (/&
2975
 & 1.5296E-01_JPRB,1.3385E-01_JPRB,1.1480E-01_JPRB,9.5678E-02_JPRB,9.1260E-02_JPRB,1.0384E-01_JPRB,&
2976
10
 & 1.1265E-01_JPRB,1.0600E-01_JPRB,1.8774E-01_JPRB/)
2977
KAO( :, 3, 3,15) = (/&
2978
 & 1.7841E-01_JPRB,1.5614E-01_JPRB,1.3387E-01_JPRB,1.1551E-01_JPRB,1.2609E-01_JPRB,1.4839E-01_JPRB,&
2979
10
 & 1.6074E-01_JPRB,1.4978E-01_JPRB,2.6916E-01_JPRB/)
2980
KAO( :, 4, 3,15) = (/&
2981
 & 2.0421E-01_JPRB,1.7872E-01_JPRB,1.5328E-01_JPRB,1.4514E-01_JPRB,1.7532E-01_JPRB,2.0570E-01_JPRB,&
2982
10
 & 2.2217E-01_JPRB,2.0725E-01_JPRB,3.7502E-01_JPRB/)
2983
KAO( :, 5, 3,15) = (/&
2984
 & 2.2993E-01_JPRB,2.0124E-01_JPRB,1.7291E-01_JPRB,1.8782E-01_JPRB,2.3935E-01_JPRB,2.8099E-01_JPRB,&
2985
10
 & 3.0349E-01_JPRB,2.8229E-01_JPRB,5.1274E-01_JPRB/)
2986
KAO( :, 1, 4,15) = (/&
2987
 & 1.3220E-01_JPRB,1.1572E-01_JPRB,9.9179E-02_JPRB,8.2676E-02_JPRB,6.8587E-02_JPRB,6.9929E-02_JPRB,&
2988
10
 & 7.4555E-02_JPRB,6.8313E-02_JPRB,1.2618E-01_JPRB/)
2989
KAO( :, 2, 4,15) = (/&
2990
 & 1.6060E-01_JPRB,1.4053E-01_JPRB,1.2046E-01_JPRB,1.0042E-01_JPRB,9.1232E-02_JPRB,9.6578E-02_JPRB,&
2991
10
 & 1.0443E-01_JPRB,9.9068E-02_JPRB,1.7466E-01_JPRB/)
2992
KAO( :, 3, 4,15) = (/&
2993
 & 1.9027E-01_JPRB,1.6651E-01_JPRB,1.4275E-01_JPRB,1.1998E-01_JPRB,1.2056E-01_JPRB,1.3873E-01_JPRB,&
2994
10
 & 1.5129E-01_JPRB,1.4272E-01_JPRB,2.5148E-01_JPRB/)
2995
KAO( :, 4, 4,15) = (/&
2996
 & 2.2066E-01_JPRB,1.9311E-01_JPRB,1.6558E-01_JPRB,1.4877E-01_JPRB,1.6676E-01_JPRB,1.9681E-01_JPRB,&
2997
10
 & 2.1452E-01_JPRB,2.0223E-01_JPRB,3.5884E-01_JPRB/)
2998
KAO( :, 5, 4,15) = (/&
2999
 & 2.5122E-01_JPRB,2.1983E-01_JPRB,1.8845E-01_JPRB,1.8829E-01_JPRB,2.3159E-01_JPRB,2.7258E-01_JPRB,&
3000
10
 & 2.9545E-01_JPRB,2.7646E-01_JPRB,4.9974E-01_JPRB/)
3001
KAO( :, 1, 5,15) = (/&
3002
 & 1.3465E-01_JPRB,1.1783E-01_JPRB,1.0104E-01_JPRB,8.4191E-02_JPRB,7.0181E-02_JPRB,6.7764E-02_JPRB,&
3003
10
 & 7.2349E-02_JPRB,6.6738E-02_JPRB,1.2182E-01_JPRB/)
3004
KAO( :, 2, 5,15) = (/&
3005
 & 1.6678E-01_JPRB,1.4597E-01_JPRB,1.2512E-01_JPRB,1.0428E-01_JPRB,9.0356E-02_JPRB,9.3548E-02_JPRB,&
3006
10
 & 1.0047E-01_JPRB,9.3395E-02_JPRB,1.6838E-01_JPRB/)
3007
KAO( :, 3, 5,15) = (/&
3008
 & 2.0080E-01_JPRB,1.7573E-01_JPRB,1.5067E-01_JPRB,1.2564E-01_JPRB,1.1939E-01_JPRB,1.2897E-01_JPRB,&
3009
10
 & 1.4021E-01_JPRB,1.3389E-01_JPRB,2.3367E-01_JPRB/)
3010
KAO( :, 4, 5,15) = (/&
3011
 & 2.3601E-01_JPRB,2.0651E-01_JPRB,1.7705E-01_JPRB,1.5299E-01_JPRB,1.5971E-01_JPRB,1.8409E-01_JPRB,&
3012
10
 & 2.0223E-01_JPRB,1.9297E-01_JPRB,3.3364E-01_JPRB/)
3013
KAO( :, 5, 5,15) = (/&
3014
 & 2.7164E-01_JPRB,2.3767E-01_JPRB,2.0377E-01_JPRB,1.9351E-01_JPRB,2.2099E-01_JPRB,2.6145E-01_JPRB,&
3015
10
 & 2.8569E-01_JPRB,2.7068E-01_JPRB,4.7598E-01_JPRB/)
3016
KAO( :, 1, 6,15) = (/&
3017
 & 1.3406E-01_JPRB,1.1731E-01_JPRB,1.0056E-01_JPRB,8.3806E-02_JPRB,7.0762E-02_JPRB,6.6238E-02_JPRB,&
3018
10
 & 6.8971E-02_JPRB,6.4722E-02_JPRB,1.1369E-01_JPRB/)
3019
KAO( :, 2, 6,15) = (/&
3020
 & 1.6963E-01_JPRB,1.4845E-01_JPRB,1.2729E-01_JPRB,1.0606E-01_JPRB,9.0231E-02_JPRB,9.0723E-02_JPRB,&
3021
10
 & 9.7199E-02_JPRB,9.0437E-02_JPRB,1.6138E-01_JPRB/)
3022
KAO( :, 3, 6,15) = (/&
3023
 & 2.0786E-01_JPRB,1.8191E-01_JPRB,1.5592E-01_JPRB,1.2995E-01_JPRB,1.1861E-01_JPRB,1.2279E-01_JPRB,&
3024
10
 & 1.3287E-01_JPRB,1.2524E-01_JPRB,2.2069E-01_JPRB/)
3025
KAO( :, 4, 6,15) = (/&
3026
 & 2.4779E-01_JPRB,2.1681E-01_JPRB,1.8585E-01_JPRB,1.5823E-01_JPRB,1.5558E-01_JPRB,1.7012E-01_JPRB,&
3027
10
 & 1.8594E-01_JPRB,1.7956E-01_JPRB,3.0607E-01_JPRB/)
3028
KAO( :, 5, 6,15) = (/&
3029
 & 2.8850E-01_JPRB,2.5250E-01_JPRB,2.1644E-01_JPRB,1.9593E-01_JPRB,2.0861E-01_JPRB,2.4203E-01_JPRB,&
3030
10
 & 2.6660E-01_JPRB,2.5670E-01_JPRB,4.3563E-01_JPRB/)
3031
KAO( :, 1, 7,15) = (/&
3032
 & 1.3101E-01_JPRB,1.1464E-01_JPRB,9.8272E-02_JPRB,8.1907E-02_JPRB,7.0350E-02_JPRB,6.5243E-02_JPRB,&
3033
10
 & 6.4994E-02_JPRB,6.2397E-02_JPRB,1.0427E-01_JPRB/)
3034
KAO( :, 2, 7,15) = (/&
3035
 & 1.6960E-01_JPRB,1.4841E-01_JPRB,1.2720E-01_JPRB,1.0602E-01_JPRB,9.1007E-02_JPRB,8.8046E-02_JPRB,&
3036
10
 & 9.1985E-02_JPRB,8.6734E-02_JPRB,1.5008E-01_JPRB/)
3037
KAO( :, 3, 7,15) = (/&
3038
 & 2.1159E-01_JPRB,1.8512E-01_JPRB,1.5869E-01_JPRB,1.3227E-01_JPRB,1.1799E-01_JPRB,1.2016E-01_JPRB,&
3039
10
 & 1.2848E-01_JPRB,1.2123E-01_JPRB,2.0928E-01_JPRB/)
3040
KAO( :, 4, 7,15) = (/&
3041
 & 2.5591E-01_JPRB,2.2393E-01_JPRB,1.9196E-01_JPRB,1.6246E-01_JPRB,1.5474E-01_JPRB,1.6150E-01_JPRB,&
3042
10
 & 1.7579E-01_JPRB,1.6710E-01_JPRB,2.8812E-01_JPRB/)
3043
KAO( :, 5, 7,15) = (/&
3044
 & 3.0213E-01_JPRB,2.6429E-01_JPRB,2.2656E-01_JPRB,2.0075E-01_JPRB,2.0206E-01_JPRB,2.2299E-01_JPRB,&
3045
10
 & 2.4482E-01_JPRB,2.3852E-01_JPRB,4.0014E-01_JPRB/)
3046
KAO( :, 1, 8,15) = (/&
3047
 & 1.2571E-01_JPRB,1.1002E-01_JPRB,9.4301E-02_JPRB,7.8660E-02_JPRB,6.9028E-02_JPRB,6.3512E-02_JPRB,&
3048
10
 & 6.0386E-02_JPRB,5.9283E-02_JPRB,9.4594E-02_JPRB/)
3049
KAO( :, 2, 8,15) = (/&
3050
 & 1.6658E-01_JPRB,1.4578E-01_JPRB,1.2499E-01_JPRB,1.0438E-01_JPRB,9.1618E-02_JPRB,8.5835E-02_JPRB,&
3051
10
 & 8.6312E-02_JPRB,8.2954E-02_JPRB,1.3781E-01_JPRB/)
3052
KAO( :, 3, 8,15) = (/&
3053
 & 2.1185E-01_JPRB,1.8540E-01_JPRB,1.5894E-01_JPRB,1.3292E-01_JPRB,1.1859E-01_JPRB,1.1793E-01_JPRB,&
3054
10
 & 1.2293E-01_JPRB,1.1767E-01_JPRB,1.9732E-01_JPRB/)
3055
KAO( :, 4, 8,15) = (/&
3056
 & 2.6124E-01_JPRB,2.2860E-01_JPRB,1.9595E-01_JPRB,1.6484E-01_JPRB,1.5535E-01_JPRB,1.5770E-01_JPRB,&
3057
10
 & 1.6881E-01_JPRB,1.6159E-01_JPRB,2.7186E-01_JPRB/)
3058
KAO( :, 5, 8,15) = (/&
3059
 & 3.1377E-01_JPRB,2.7455E-01_JPRB,2.3536E-01_JPRB,2.0526E-01_JPRB,2.0139E-01_JPRB,2.1210E-01_JPRB,&
3060
10
 & 2.3209E-01_JPRB,2.2418E-01_JPRB,3.7448E-01_JPRB/)
3061
KAO( :, 1, 9,15) = (/&
3062
 & 1.1779E-01_JPRB,1.0307E-01_JPRB,8.8332E-02_JPRB,7.4504E-02_JPRB,6.6446E-02_JPRB,6.0468E-02_JPRB,&
3063
10
 & 5.6136E-02_JPRB,5.4947E-02_JPRB,8.6169E-02_JPRB/)
3064
KAO( :, 2, 9,15) = (/&
3065
 & 1.6035E-01_JPRB,1.4031E-01_JPRB,1.2024E-01_JPRB,1.0163E-01_JPRB,9.0617E-02_JPRB,8.2714E-02_JPRB,&
3066
10
 & 7.9922E-02_JPRB,7.8110E-02_JPRB,1.2654E-01_JPRB/)
3067
KAO( :, 3, 9,15) = (/&
3068
 & 2.0927E-01_JPRB,1.8312E-01_JPRB,1.5698E-01_JPRB,1.3222E-01_JPRB,1.1873E-01_JPRB,1.1424E-01_JPRB,&
3069
10
 & 1.1454E-01_JPRB,1.1174E-01_JPRB,1.8302E-01_JPRB/)
3070
KAO( :, 4, 9,15) = (/&
3071
 & 2.6349E-01_JPRB,2.3054E-01_JPRB,1.9763E-01_JPRB,1.6626E-01_JPRB,1.5598E-01_JPRB,1.5598E-01_JPRB,&
3072
10
 & 1.6166E-01_JPRB,1.5736E-01_JPRB,2.5852E-01_JPRB/)
3073
KAO( :, 5, 9,15) = (/&
3074
 & 3.2165E-01_JPRB,2.8148E-01_JPRB,2.4130E-01_JPRB,2.0798E-01_JPRB,2.0349E-01_JPRB,2.0671E-01_JPRB,&
3075
10
 & 2.2142E-01_JPRB,2.1528E-01_JPRB,3.5292E-01_JPRB/)
3076
KAO( :, 1,10,15) = (/&
3077
 & 1.1095E-01_JPRB,9.7087E-02_JPRB,8.3232E-02_JPRB,7.1375E-02_JPRB,6.4431E-02_JPRB,5.8222E-02_JPRB,&
3078
10
 & 5.3438E-02_JPRB,5.1856E-02_JPRB,2.8234E-01_JPRB/)
3079
KAO( :, 2,10,15) = (/&
3080
 & 1.5568E-01_JPRB,1.3623E-01_JPRB,1.1675E-01_JPRB,9.9778E-02_JPRB,9.0053E-02_JPRB,8.1186E-02_JPRB,&
3081
10
 & 7.6199E-02_JPRB,7.4185E-02_JPRB,2.7084E-01_JPRB/)
3082
3083
1
IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART10',1,ZHOOK_HANDLE)
3084
1
END SUBROUTINE PART10
3085
3086
3087
1
SUBROUTINE PART11
3088
3089
REAL(KIND=JPRB) :: ZHOOK_HANDLE
3090
1
IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART11',0,ZHOOK_HANDLE)
3091
3092
3093
KAO( :, 3,10,15) = (/&
3094
 & 2.0787E-01_JPRB,1.8189E-01_JPRB,1.5590E-01_JPRB,1.3290E-01_JPRB,1.2001E-01_JPRB,1.1270E-01_JPRB,&
3095
10
 & 1.0975E-01_JPRB,1.0759E-01_JPRB,2.7158E-01_JPRB/)
3096
KAO( :, 4,10,15) = (/&
3097
 & 2.6636E-01_JPRB,2.3306E-01_JPRB,1.9979E-01_JPRB,1.7021E-01_JPRB,1.5900E-01_JPRB,1.5510E-01_JPRB,&
3098
10
 & 1.5611E-01_JPRB,1.5403E-01_JPRB,2.9598E-01_JPRB/)
3099
KAO( :, 5,10,15) = (/&
3100
 & 3.2972E-01_JPRB,2.8850E-01_JPRB,2.4729E-01_JPRB,2.1458E-01_JPRB,2.0828E-01_JPRB,2.0718E-01_JPRB,&
3101
10
 & 2.1605E-01_JPRB,2.1269E-01_JPRB,3.5425E-01_JPRB/)
3102
KAO( :, 1,11,15) = (/&
3103
 & 1.2309E-01_JPRB,1.0770E-01_JPRB,9.2318E-02_JPRB,8.0169E-02_JPRB,7.2987E-02_JPRB,6.5556E-02_JPRB,&
3104
10
 & 5.9599E-02_JPRB,5.7207E-02_JPRB,7.8086E-01_JPRB/)
3105
KAO( :, 2,11,15) = (/&
3106
 & 1.7300E-01_JPRB,1.5138E-01_JPRB,1.2976E-01_JPRB,1.1252E-01_JPRB,1.0172E-01_JPRB,9.2390E-02_JPRB,&
3107
10
 & 8.6481E-02_JPRB,8.3441E-02_JPRB,7.5756E-01_JPRB/)
3108
KAO( :, 3,11,15) = (/&
3109
 & 2.3096E-01_JPRB,2.0210E-01_JPRB,1.7324E-01_JPRB,1.5024E-01_JPRB,1.3705E-01_JPRB,1.2915E-01_JPRB,&
3110
10
 & 1.2474E-01_JPRB,1.2191E-01_JPRB,7.4457E-01_JPRB/)
3111
KAO( :, 4,11,15) = (/&
3112
 & 2.9558E-01_JPRB,2.5867E-01_JPRB,2.2168E-01_JPRB,1.9321E-01_JPRB,1.8253E-01_JPRB,1.7759E-01_JPRB,&
3113
10
 & 1.7734E-01_JPRB,1.7484E-01_JPRB,7.3821E-01_JPRB/)
3114
KAO( :, 5,11,15) = (/&
3115
 & 3.6617E-01_JPRB,3.2039E-01_JPRB,2.7464E-01_JPRB,2.4544E-01_JPRB,2.3942E-01_JPRB,2.3664E-01_JPRB,&
3116
10
 & 2.4480E-01_JPRB,2.4186E-01_JPRB,7.3136E-01_JPRB/)
3117
KAO( :, 1,12,15) = (/&
3118
 & 1.3535E-01_JPRB,1.1843E-01_JPRB,1.0165E-01_JPRB,8.9837E-02_JPRB,8.1690E-02_JPRB,7.3571E-02_JPRB,&
3119
10
 & 6.6791E-02_JPRB,6.3661E-02_JPRB,1.3757E+00_JPRB/)
3120
KAO( :, 2,12,15) = (/&
3121
 & 1.8999E-01_JPRB,1.6623E-01_JPRB,1.4287E-01_JPRB,1.2620E-01_JPRB,1.1425E-01_JPRB,1.0484E-01_JPRB,&
3122
10
 & 9.8183E-02_JPRB,9.4523E-02_JPRB,1.3459E+00_JPRB/)
3123
KAO( :, 3,12,15) = (/&
3124
 & 2.5368E-01_JPRB,2.2195E-01_JPRB,1.9057E-01_JPRB,1.6840E-01_JPRB,1.5584E-01_JPRB,1.4733E-01_JPRB,&
3125
10
 & 1.4186E-01_JPRB,1.3807E-01_JPRB,1.3315E+00_JPRB/)
3126
KAO( :, 4,12,15) = (/&
3127
 & 3.2577E-01_JPRB,2.8506E-01_JPRB,2.4459E-01_JPRB,2.1851E-01_JPRB,2.0824E-01_JPRB,2.0259E-01_JPRB,&
3128
10
 & 2.0145E-01_JPRB,1.9850E-01_JPRB,1.3194E+00_JPRB/)
3129
KAO( :, 5,12,15) = (/&
3130
 & 4.0459E-01_JPRB,3.5405E-01_JPRB,3.0385E-01_JPRB,2.7860E-01_JPRB,2.7319E-01_JPRB,2.7033E-01_JPRB,&
3131
10
 & 2.7684E-01_JPRB,2.7490E-01_JPRB,1.2999E+00_JPRB/)
3132
KAO( :, 1,13,15) = (/&
3133
 & 1.4666E-01_JPRB,1.2832E-01_JPRB,1.1128E-01_JPRB,9.9675E-02_JPRB,9.0808E-02_JPRB,8.2287E-02_JPRB,&
3134
10
 & 7.4732E-02_JPRB,7.0894E-02_JPRB,1.9726E+00_JPRB/)
3135
KAO( :, 2,13,15) = (/&
3136
 & 2.0655E-01_JPRB,1.8072E-01_JPRB,1.5634E-01_JPRB,1.3981E-01_JPRB,1.2800E-01_JPRB,1.1883E-01_JPRB,&
3137
10
 & 1.1080E-01_JPRB,1.0633E-01_JPRB,1.9427E+00_JPRB/)
3138
KAO( :, 3,13,15) = (/&
3139
 & 2.7678E-01_JPRB,2.4218E-01_JPRB,2.0938E-01_JPRB,1.8714E-01_JPRB,1.7583E-01_JPRB,1.6736E-01_JPRB,&
3140
10
 & 1.6095E-01_JPRB,1.5626E-01_JPRB,1.9257E+00_JPRB/)
3141
KAO( :, 4,13,15) = (/&
3142
 & 3.5575E-01_JPRB,3.1133E-01_JPRB,2.6913E-01_JPRB,2.4484E-01_JPRB,2.3543E-01_JPRB,2.2998E-01_JPRB,&
3143
10
 & 2.2795E-01_JPRB,2.2454E-01_JPRB,1.9087E+00_JPRB/)
3144
KAO( :, 5,13,15) = (/&
3145
 & 4.4176E-01_JPRB,3.8657E-01_JPRB,3.3600E-01_JPRB,3.1312E-01_JPRB,3.0900E-01_JPRB,3.0654E-01_JPRB,&
3146
10
 & 3.1167E-01_JPRB,3.1059E-01_JPRB,1.8847E+00_JPRB/)
3147
KAO( :, 1, 1,16) = (/&
3148
 & 1.2027E-01_JPRB,1.0526E-01_JPRB,9.0268E-02_JPRB,7.5271E-02_JPRB,6.8242E-02_JPRB,7.9946E-02_JPRB,&
3149
10
 & 8.4979E-02_JPRB,7.6217E-02_JPRB,1.4103E-01_JPRB/)
3150
KAO( :, 2, 1,16) = (/&
3151
 & 1.4080E-01_JPRB,1.2324E-01_JPRB,1.0567E-01_JPRB,8.8126E-02_JPRB,9.6089E-02_JPRB,1.1140E-01_JPRB,&
3152
10
 & 1.1849E-01_JPRB,1.0627E-01_JPRB,1.9684E-01_JPRB/)
3153
KAO( :, 3, 1,16) = (/&
3154
 & 1.6158E-01_JPRB,1.4144E-01_JPRB,1.1993E-01_JPRB,1.0577E-01_JPRB,1.3446E-01_JPRB,1.5713E-01_JPRB,&
3155
10
 & 1.6954E-01_JPRB,1.5459E-01_JPRB,2.8205E-01_JPRB/)
3156
KAO( :, 4, 1,16) = (/&
3157
 & 1.8229E-01_JPRB,1.5953E-01_JPRB,1.3683E-01_JPRB,1.5400E-01_JPRB,1.9491E-01_JPRB,2.2859E-01_JPRB,&
3158
10
 & 2.4701E-01_JPRB,2.2397E-01_JPRB,4.1109E-01_JPRB/)
3159
KAO( :, 5, 1,16) = (/&
3160
 & 2.0257E-01_JPRB,1.7732E-01_JPRB,1.5205E-01_JPRB,2.1653E-01_JPRB,2.7743E-01_JPRB,3.2485E-01_JPRB,&
3161
10
 & 3.4587E-01_JPRB,3.1685E-01_JPRB,5.7776E-01_JPRB/)
3162
KAO( :, 1, 2,16) = (/&
3163
 & 1.3618E-01_JPRB,1.1918E-01_JPRB,1.0218E-01_JPRB,8.5185E-02_JPRB,7.2061E-02_JPRB,8.3641E-02_JPRB,&
3164
10
 & 8.9007E-02_JPRB,8.0776E-02_JPRB,1.5158E-01_JPRB/)
3165
KAO( :, 2, 2,16) = (/&
3166
 & 1.6091E-01_JPRB,1.4083E-01_JPRB,1.2073E-01_JPRB,1.0065E-01_JPRB,1.0215E-01_JPRB,1.1864E-01_JPRB,&
3167
10
 & 1.2628E-01_JPRB,1.1335E-01_JPRB,2.1521E-01_JPRB/)
3168
KAO( :, 3, 2,16) = (/&
3169
 & 1.8613E-01_JPRB,1.6291E-01_JPRB,1.3967E-01_JPRB,1.1644E-01_JPRB,1.3974E-01_JPRB,1.6244E-01_JPRB,&
3170
10
 & 1.7346E-01_JPRB,1.5531E-01_JPRB,2.9678E-01_JPRB/)
3171
KAO( :, 4, 2,16) = (/&
3172
 & 2.1139E-01_JPRB,1.8501E-01_JPRB,1.5862E-01_JPRB,1.6081E-01_JPRB,2.0532E-01_JPRB,2.4099E-01_JPRB,&
3173
10
 & 2.5759E-01_JPRB,2.3243E-01_JPRB,4.4014E-01_JPRB/)
3174
KAO( :, 5, 2,16) = (/&
3175
 & 2.3633E-01_JPRB,2.0681E-01_JPRB,1.7734E-01_JPRB,2.3037E-01_JPRB,2.9357E-01_JPRB,3.4250E-01_JPRB,&
3176
10
 & 3.6944E-01_JPRB,3.3497E-01_JPRB,6.2683E-01_JPRB/)
3177
KAO( :, 1, 3,16) = (/&
3178
 & 1.4816E-01_JPRB,1.2967E-01_JPRB,1.1115E-01_JPRB,9.2659E-02_JPRB,7.4159E-02_JPRB,8.0583E-02_JPRB,&
3179
10
 & 8.5826E-02_JPRB,7.7925E-02_JPRB,1.4987E-01_JPRB/)
3180
KAO( :, 2, 3,16) = (/&
3181
 & 1.7766E-01_JPRB,1.5547E-01_JPRB,1.3328E-01_JPRB,1.1109E-01_JPRB,1.0104E-01_JPRB,1.1748E-01_JPRB,&
3182
10
 & 1.2514E-01_JPRB,1.1367E-01_JPRB,2.1867E-01_JPRB/)
3183
KAO( :, 3, 3,16) = (/&
3184
 & 2.0806E-01_JPRB,1.8208E-01_JPRB,1.5612E-01_JPRB,1.3012E-01_JPRB,1.4100E-01_JPRB,1.6398E-01_JPRB,&
3185
10
 & 1.7474E-01_JPRB,1.5873E-01_JPRB,3.0539E-01_JPRB/)
3186
KAO( :, 4, 3,16) = (/&
3187
 & 2.3885E-01_JPRB,2.0905E-01_JPRB,1.7920E-01_JPRB,1.5462E-01_JPRB,1.9704E-01_JPRB,2.3104E-01_JPRB,&
3188
10
 & 2.4836E-01_JPRB,2.2742E-01_JPRB,4.3187E-01_JPRB/)
3189
KAO( :, 5, 3,16) = (/&
3190
 & 2.6947E-01_JPRB,2.3583E-01_JPRB,2.0218E-01_JPRB,2.2565E-01_JPRB,2.8814E-01_JPRB,3.3769E-01_JPRB,&
3191
10
 & 3.6257E-01_JPRB,3.3019E-01_JPRB,6.3080E-01_JPRB/)
3192
KAO( :, 1, 4,16) = (/&
3193
 & 1.5818E-01_JPRB,1.3843E-01_JPRB,1.1868E-01_JPRB,9.8906E-02_JPRB,7.9147E-02_JPRB,7.4782E-02_JPRB,&
3194
10
 & 7.9730E-02_JPRB,7.2448E-02_JPRB,1.4101E-01_JPRB/)
3195
KAO( :, 2, 4,16) = (/&
3196
 & 1.9302E-01_JPRB,1.6890E-01_JPRB,1.4479E-01_JPRB,1.2067E-01_JPRB,9.6946E-02_JPRB,1.1266E-01_JPRB,&
3197
10
 & 1.2012E-01_JPRB,1.0916E-01_JPRB,2.1249E-01_JPRB/)
3198
KAO( :, 3, 4,16) = (/&
3199
 & 2.2940E-01_JPRB,2.0076E-01_JPRB,1.7206E-01_JPRB,1.4345E-01_JPRB,1.3883E-01_JPRB,1.6162E-01_JPRB,&
3200
10
 & 1.7237E-01_JPRB,1.5669E-01_JPRB,3.0501E-01_JPRB/)
3201
KAO( :, 4, 4,16) = (/&
3202
 & 2.6665E-01_JPRB,2.3335E-01_JPRB,2.0002E-01_JPRB,1.6674E-01_JPRB,1.9115E-01_JPRB,2.2258E-01_JPRB,&
3203
10
 & 2.3743E-01_JPRB,2.1581E-01_JPRB,4.2004E-01_JPRB/)
3204
KAO( :, 5, 4,16) = (/&
3205
 & 3.0410E-01_JPRB,2.6615E-01_JPRB,2.2811E-01_JPRB,2.1285E-01_JPRB,2.7372E-01_JPRB,3.2083E-01_JPRB,&
3206
10
 & 3.4541E-01_JPRB,3.1599E-01_JPRB,6.0405E-01_JPRB/)
3207
KAO( :, 1, 5,16) = (/&
3208
 & 1.6744E-01_JPRB,1.4653E-01_JPRB,1.2561E-01_JPRB,1.0468E-01_JPRB,8.3763E-02_JPRB,7.6430E-02_JPRB,&
3209
10
 & 8.0078E-02_JPRB,7.1821E-02_JPRB,1.3817E-01_JPRB/)
3210
KAO( :, 2, 5,16) = (/&
3211
 & 2.0817E-01_JPRB,1.8217E-01_JPRB,1.5617E-01_JPRB,1.3014E-01_JPRB,1.0413E-01_JPRB,1.0666E-01_JPRB,&
3212
10
 & 1.1380E-01_JPRB,1.0350E-01_JPRB,2.0245E-01_JPRB/)
3213
KAO( :, 3, 5,16) = (/&
3214
 & 2.5135E-01_JPRB,2.1998E-01_JPRB,1.8857E-01_JPRB,1.5714E-01_JPRB,1.3525E-01_JPRB,1.5761E-01_JPRB,&
3215
10
 & 1.6824E-01_JPRB,1.5302E-01_JPRB,2.9921E-01_JPRB/)
3216
KAO( :, 4, 5,16) = (/&
3217
 & 2.9614E-01_JPRB,2.5913E-01_JPRB,2.2214E-01_JPRB,1.8514E-01_JPRB,1.9095E-01_JPRB,2.2256E-01_JPRB,&
3218
10
 & 2.3757E-01_JPRB,2.1609E-01_JPRB,4.2253E-01_JPRB/)
3219
KAO( :, 5, 5,16) = (/&
3220
 & 3.4165E-01_JPRB,2.9890E-01_JPRB,2.5626E-01_JPRB,2.1358E-01_JPRB,2.6276E-01_JPRB,3.0710E-01_JPRB,&
3221
10
 & 3.2753E-01_JPRB,2.9875E-01_JPRB,5.8403E-01_JPRB/)
3222
KAO( :, 1, 6,16) = (/&
3223
 & 1.7406E-01_JPRB,1.5231E-01_JPRB,1.3056E-01_JPRB,1.0879E-01_JPRB,8.7033E-02_JPRB,7.9557E-02_JPRB,&
3224
10
 & 8.3495E-02_JPRB,7.4970E-02_JPRB,1.4461E-01_JPRB/)
3225
KAO( :, 2, 6,16) = (/&
3226
 & 2.2115E-01_JPRB,1.9353E-01_JPRB,1.6587E-01_JPRB,1.3825E-01_JPRB,1.1058E-01_JPRB,1.0079E-01_JPRB,&
3227
10
 & 1.0571E-01_JPRB,9.5354E-02_JPRB,1.8669E-01_JPRB/)
3228
KAO( :, 3, 6,16) = (/&
3229
 & 2.7185E-01_JPRB,2.3789E-01_JPRB,2.0389E-01_JPRB,1.6994E-01_JPRB,1.3598E-01_JPRB,1.4993E-01_JPRB,&
3230
10
 & 1.6017E-01_JPRB,1.4582E-01_JPRB,2.8546E-01_JPRB/)
3231
KAO( :, 4, 6,16) = (/&
3232
 & 3.2519E-01_JPRB,2.8454E-01_JPRB,2.4391E-01_JPRB,2.0327E-01_JPRB,1.8667E-01_JPRB,2.1780E-01_JPRB,&
3233
10
 & 2.3273E-01_JPRB,2.1193E-01_JPRB,4.1454E-01_JPRB/)
3234
KAO( :, 5, 6,16) = (/&
3235
 & 3.7997E-01_JPRB,3.3252E-01_JPRB,2.8502E-01_JPRB,2.3749E-01_JPRB,2.5973E-01_JPRB,3.0308E-01_JPRB,&
3236
10
 & 3.2386E-01_JPRB,2.9502E-01_JPRB,5.7680E-01_JPRB/)
3237
KAO( :, 1, 7,16) = (/&
3238
 & 1.7875E-01_JPRB,1.5642E-01_JPRB,1.3408E-01_JPRB,1.1175E-01_JPRB,8.9415E-02_JPRB,8.1831E-02_JPRB,&
3239
10
 & 8.6005E-02_JPRB,7.7323E-02_JPRB,1.4922E-01_JPRB/)
3240
KAO( :, 2, 7,16) = (/&
3241
 & 2.3257E-01_JPRB,2.0349E-01_JPRB,1.7445E-01_JPRB,1.4538E-01_JPRB,1.1631E-01_JPRB,1.0616E-01_JPRB,&
3242
10
 & 1.1147E-01_JPRB,1.0017E-01_JPRB,1.9290E-01_JPRB/)
3243
KAO( :, 3, 7,16) = (/&
3244
 & 2.9155E-01_JPRB,2.5511E-01_JPRB,2.1872E-01_JPRB,1.8226E-01_JPRB,1.4581E-01_JPRB,1.4057E-01_JPRB,&
3245
10
 & 1.5032E-01_JPRB,1.3703E-01_JPRB,2.6795E-01_JPRB/)
3246
KAO( :, 4, 7,16) = (/&
3247
 & 3.5453E-01_JPRB,3.1018E-01_JPRB,2.6586E-01_JPRB,2.2158E-01_JPRB,1.8072E-01_JPRB,2.1059E-01_JPRB,&
3248
10
 & 2.2528E-01_JPRB,2.0539E-01_JPRB,4.0134E-01_JPRB/)
3249
KAO( :, 5, 7,16) = (/&
3250
 & 4.2001E-01_JPRB,3.6750E-01_JPRB,3.1500E-01_JPRB,2.6252E-01_JPRB,2.5742E-01_JPRB,3.0072E-01_JPRB,&
3251
10
 & 3.2172E-01_JPRB,2.9345E-01_JPRB,5.7279E-01_JPRB/)
3252
KAO( :, 1, 8,16) = (/&
3253
 & 1.8184E-01_JPRB,1.5912E-01_JPRB,1.3638E-01_JPRB,1.1367E-01_JPRB,9.0918E-02_JPRB,8.3330E-02_JPRB,&
3254
10
 & 8.7708E-02_JPRB,7.9039E-02_JPRB,1.5236E-01_JPRB/)
3255
KAO( :, 2, 8,16) = (/&
3256
 & 2.4266E-01_JPRB,2.1231E-01_JPRB,1.8198E-01_JPRB,1.5168E-01_JPRB,1.2132E-01_JPRB,1.1090E-01_JPRB,&
3257
10
 & 1.1664E-01_JPRB,1.0501E-01_JPRB,2.0199E-01_JPRB/)
3258
KAO( :, 3, 8,16) = (/&
3259
 & 3.1060E-01_JPRB,2.7177E-01_JPRB,2.3297E-01_JPRB,1.9411E-01_JPRB,1.5532E-01_JPRB,1.4153E-01_JPRB,&
3260
10
 & 1.4874E-01_JPRB,1.3387E-01_JPRB,2.5753E-01_JPRB/)
3261
KAO( :, 4, 8,16) = (/&
3262
 & 3.8422E-01_JPRB,3.3618E-01_JPRB,2.8820E-01_JPRB,2.4017E-01_JPRB,1.9212E-01_JPRB,2.0191E-01_JPRB,&
3263
10
 & 2.1622E-01_JPRB,1.9751E-01_JPRB,3.8483E-01_JPRB/)
3264
KAO( :, 5, 8,16) = (/&
3265
 & 4.6183E-01_JPRB,4.0412E-01_JPRB,3.4637E-01_JPRB,2.8861E-01_JPRB,2.5332E-01_JPRB,2.9628E-01_JPRB,&
3266
10
 & 3.1743E-01_JPRB,2.9007E-01_JPRB,5.6429E-01_JPRB/)
3267
KAO( :, 1, 9,16) = (/&
3268
 & 1.8242E-01_JPRB,1.5964E-01_JPRB,1.3685E-01_JPRB,1.1403E-01_JPRB,9.1238E-02_JPRB,8.3650E-02_JPRB,&
3269
10
 & 8.8221E-02_JPRB,7.9647E-02_JPRB,1.5343E-01_JPRB/)
3270
KAO( :, 2, 9,16) = (/&
3271
 & 2.5031E-01_JPRB,2.1903E-01_JPRB,1.8774E-01_JPRB,1.5645E-01_JPRB,1.2518E-01_JPRB,1.1450E-01_JPRB,&
3272
10
 & 1.2069E-01_JPRB,1.0894E-01_JPRB,2.0909E-01_JPRB/)
3273
KAO( :, 3, 9,16) = (/&
3274
 & 3.2780E-01_JPRB,2.8681E-01_JPRB,2.4582E-01_JPRB,2.0484E-01_JPRB,1.6390E-01_JPRB,1.4947E-01_JPRB,&
3275
10
 & 1.5744E-01_JPRB,1.4207E-01_JPRB,2.7178E-01_JPRB/)
3276
KAO( :, 4, 9,16) = (/&
3277
 & 4.1288E-01_JPRB,3.6136E-01_JPRB,3.0972E-01_JPRB,2.5810E-01_JPRB,2.0648E-01_JPRB,1.9240E-01_JPRB,&
3278
10
 & 2.0499E-01_JPRB,1.8750E-01_JPRB,3.6520E-01_JPRB/)
3279
KAO( :, 5, 9,16) = (/&
3280
 & 5.0401E-01_JPRB,4.4105E-01_JPRB,3.7793E-01_JPRB,3.1504E-01_JPRB,2.5430E-01_JPRB,2.8859E-01_JPRB,&
3281
10
 & 3.0964E-01_JPRB,2.8367E-01_JPRB,5.5002E-01_JPRB/)
3282
KAO( :, 1,10,16) = (/&
3283
 & 1.8581E-01_JPRB,1.6259E-01_JPRB,1.3934E-01_JPRB,1.1613E-01_JPRB,9.2903E-02_JPRB,8.5148E-02_JPRB,&
3284
10
 & 9.0034E-02_JPRB,8.1540E-02_JPRB,3.4590E-01_JPRB/)
3285
KAO( :, 2,10,16) = (/&
3286
 & 2.6163E-01_JPRB,2.2890E-01_JPRB,1.9618E-01_JPRB,1.6349E-01_JPRB,1.3077E-01_JPRB,1.1965E-01_JPRB,&
3287
10
 & 1.2644E-01_JPRB,1.1450E-01_JPRB,3.2865E-01_JPRB/)
3288
KAO( :, 3,10,16) = (/&
3289
 & 3.4958E-01_JPRB,3.0586E-01_JPRB,2.6220E-01_JPRB,2.1849E-01_JPRB,1.7478E-01_JPRB,1.5951E-01_JPRB,&
3290
10
 & 1.6845E-01_JPRB,1.5252E-01_JPRB,3.1204E-01_JPRB/)
3291
KAO( :, 4,10,16) = (/&
3292
 & 4.4787E-01_JPRB,3.9191E-01_JPRB,3.3594E-01_JPRB,2.7989E-01_JPRB,2.2397E-01_JPRB,2.0376E-01_JPRB,&
3293
10
 & 2.1506E-01_JPRB,1.9478E-01_JPRB,3.7906E-01_JPRB/)
3294
KAO( :, 5,10,16) = (/&
3295
 & 5.5414E-01_JPRB,4.8494E-01_JPRB,4.1561E-01_JPRB,3.4636E-01_JPRB,2.7711E-01_JPRB,2.8690E-01_JPRB,&
3296
10
 & 3.0857E-01_JPRB,2.8362E-01_JPRB,5.5736E-01_JPRB/)
3297
KAO( :, 1,11,16) = (/&
3298
 & 2.2387E-01_JPRB,1.9590E-01_JPRB,1.6793E-01_JPRB,1.3995E-01_JPRB,1.1196E-01_JPRB,1.0248E-01_JPRB,&
3299
10
 & 1.0866E-01_JPRB,9.8759E-02_JPRB,9.7232E-01_JPRB/)
3300
KAO( :, 2,11,16) = (/&
3301
 & 3.1487E-01_JPRB,2.7553E-01_JPRB,2.3616E-01_JPRB,1.9682E-01_JPRB,1.5747E-01_JPRB,1.4389E-01_JPRB,&
3302
10
 & 1.5251E-01_JPRB,1.3868E-01_JPRB,9.2352E-01_JPRB/)
3303
KAO( :, 3,11,16) = (/&
3304
 & 4.2034E-01_JPRB,3.6781E-01_JPRB,3.1526E-01_JPRB,2.6274E-01_JPRB,2.1020E-01_JPRB,1.9156E-01_JPRB,&
3305
10
 & 2.0295E-01_JPRB,1.8465E-01_JPRB,8.7619E-01_JPRB/)
3306
KAO( :, 4,11,16) = (/&
3307
 & 5.3783E-01_JPRB,4.7062E-01_JPRB,4.0338E-01_JPRB,3.3619E-01_JPRB,2.6900E-01_JPRB,2.4463E-01_JPRB,&
3308
10
 & 2.5910E-01_JPRB,2.3556E-01_JPRB,8.3528E-01_JPRB/)
3309
KAO( :, 5,11,16) = (/&
3310
 & 6.6465E-01_JPRB,5.8160E-01_JPRB,4.9850E-01_JPRB,4.1545E-01_JPRB,3.3262E-01_JPRB,3.4381E-01_JPRB,&
3311
10
 & 3.7087E-01_JPRB,3.4266E-01_JPRB,8.3608E-01_JPRB/)
3312
KAO( :, 1,12,16) = (/&
3313
 & 2.6898E-01_JPRB,2.3539E-01_JPRB,2.0175E-01_JPRB,1.6812E-01_JPRB,1.3451E-01_JPRB,1.2295E-01_JPRB,&
3314
10
 & 1.3082E-01_JPRB,1.1955E-01_JPRB,1.7254E+00_JPRB/)
3315
KAO( :, 2,12,16) = (/&
3316
 & 3.7759E-01_JPRB,3.3035E-01_JPRB,2.8322E-01_JPRB,2.3602E-01_JPRB,1.8879E-01_JPRB,1.7231E-01_JPRB,&
3317
10
 & 1.8335E-01_JPRB,1.6769E-01_JPRB,1.6364E+00_JPRB/)
3318
KAO( :, 3,12,16) = (/&
3319
 & 5.0302E-01_JPRB,4.4026E-01_JPRB,3.7736E-01_JPRB,3.1440E-01_JPRB,2.5155E-01_JPRB,2.2898E-01_JPRB,&
3320
10
 & 2.4369E-01_JPRB,2.2307E-01_JPRB,1.5678E+00_JPRB/)
3321
KAO( :, 4,12,16) = (/&
3322
 & 6.4249E-01_JPRB,5.6214E-01_JPRB,4.8190E-01_JPRB,4.0154E-01_JPRB,3.2127E-01_JPRB,2.9402E-01_JPRB,&
3323
10
 & 3.1247E-01_JPRB,2.8485E-01_JPRB,1.5255E+00_JPRB/)
3324
KAO( :, 5,12,16) = (/&
3325
 & 7.9248E-01_JPRB,6.9340E-01_JPRB,5.9438E-01_JPRB,4.9520E-01_JPRB,3.9963E-01_JPRB,4.1148E-01_JPRB,&
3326
10
 & 4.4433E-01_JPRB,4.1322E-01_JPRB,1.5412E+00_JPRB/)
3327
KAO( :, 1,13,16) = (/&
3328
 & 3.2111E-01_JPRB,2.8086E-01_JPRB,2.4080E-01_JPRB,2.0063E-01_JPRB,1.6053E-01_JPRB,1.4645E-01_JPRB,&
3329
10
 & 1.5663E-01_JPRB,1.4415E-01_JPRB,2.4681E+00_JPRB/)
3330
KAO( :, 2,13,16) = (/&
3331
 & 4.4952E-01_JPRB,3.9337E-01_JPRB,3.3709E-01_JPRB,2.8095E-01_JPRB,2.2474E-01_JPRB,2.0495E-01_JPRB,&
3332
10
 & 2.1909E-01_JPRB,2.0198E-01_JPRB,2.3822E+00_JPRB/)
3333
KAO( :, 3,13,16) = (/&
3334
 & 5.9739E-01_JPRB,5.2281E-01_JPRB,4.4809E-01_JPRB,3.7333E-01_JPRB,2.9881E-01_JPRB,2.7217E-01_JPRB,&
3335
10
 & 2.9063E-01_JPRB,2.6832E-01_JPRB,2.3232E+00_JPRB/)
3336
KAO( :, 4,13,16) = (/&
3337
 & 7.6112E-01_JPRB,6.6586E-01_JPRB,5.7079E-01_JPRB,4.7570E-01_JPRB,3.8102E-01_JPRB,3.5288E-01_JPRB,&
3338
10
 & 3.7640E-01_JPRB,3.4431E-01_JPRB,2.2950E+00_JPRB/)
3339
KAO( :, 5,13,16) = (/&
3340
 & 9.3631E-01_JPRB,8.1920E-01_JPRB,7.0224E-01_JPRB,5.8508E-01_JPRB,4.7927E-01_JPRB,4.9193E-01_JPRB,&
3341
10
 & 5.3062E-01_JPRB,4.9592E-01_JPRB,2.3135E+00_JPRB/)
3342
3343
!     The array KB contains absorption coefs for each of the 16 g-intervals
3344
!     for a range of pressure levels  < ~100mb, temperatures, and ratios
3345
!     of O3 to CO2.  The first index in the array, JS, runs from 1 to 5,
3346
!     and corresponds to different O3 to CO2 ratios, as expressed through
3347
!     the binary species parameter eta, defined as eta = O3/(O3+RAT*CO2),
3348
!     where RAT is the ratio of the integrated line strength in the band
3349
!     of co2 to that of O3.  For instance, JS=1 refers to no O3 (eta = 0)
3350
!     and JS = 5 corresponds to eta = 1.0.  The second index, JT, which
3351
!     runs from 1 to 5, corresponds to different temperatures.  More
3352
!     specifically, JT = 3 means that the data are for the corresponding
3353
!     reference temperature TREF for this  pressure level, JT = 2 refers
3354
!     to the TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and
3355
!     JT = 5 is for TREF+30.  The third index, JP, runs from 13 to 59 and
3356
!     refers to the corresponding pressure level in PREF (e.g. JP = 13 is
3357
!     for a pressure of 95.5835 mb).  The fourth index, IG, goes from 1 to
3358
!     16, and tells us which g-interval the absorption coefficients are for.
3359
3360
KBO( :, 1,13, 1) = (/&
3361
6
 & 3.4470E-06_JPRB,2.6372E-04_JPRB,5.1063E-04_JPRB,7.5257E-04_JPRB,1.0534E-03_JPRB/)
3362
KBO( :, 2,13, 1) = (/&
3363
6
 & 4.0516E-06_JPRB,3.2949E-04_JPRB,6.3499E-04_JPRB,9.3141E-04_JPRB,1.3018E-03_JPRB/)
3364
KBO( :, 3,13, 1) = (/&
3365
6
 & 5.1108E-06_JPRB,3.9538E-04_JPRB,7.5778E-04_JPRB,1.1060E-03_JPRB,1.5459E-03_JPRB/)
3366
KBO( :, 4,13, 1) = (/&
3367
6
 & 6.7999E-06_JPRB,4.6001E-04_JPRB,8.7452E-04_JPRB,1.2718E-03_JPRB,1.7787E-03_JPRB/)
3368
KBO( :, 5,13, 1) = (/&
3369
6
 & 9.3241E-06_JPRB,5.2270E-04_JPRB,9.8350E-04_JPRB,1.4243E-03_JPRB,1.9970E-03_JPRB/)
3370
KBO( :, 1,14, 1) = (/&
3371
6
 & 2.8624E-06_JPRB,2.2203E-04_JPRB,4.2960E-04_JPRB,6.3242E-04_JPRB,8.7262E-04_JPRB/)
3372
KBO( :, 2,14, 1) = (/&
3373
6
 & 3.3872E-06_JPRB,2.7597E-04_JPRB,5.3199E-04_JPRB,7.7931E-04_JPRB,1.0726E-03_JPRB/)
3374
KBO( :, 3,14, 1) = (/&
3375
6
 & 4.3001E-06_JPRB,3.2993E-04_JPRB,6.3195E-04_JPRB,9.2225E-04_JPRB,1.2666E-03_JPRB/)
3376
KBO( :, 4,14, 1) = (/&
3377
6
 & 5.7406E-06_JPRB,3.8294E-04_JPRB,7.2707E-04_JPRB,1.0576E-03_JPRB,1.4495E-03_JPRB/)
3378
KBO( :, 5,14, 1) = (/&
3379
6
 & 7.8860E-06_JPRB,4.3459E-04_JPRB,8.1591E-04_JPRB,1.1810E-03_JPRB,1.6187E-03_JPRB/)
3380
KBO( :, 1,15, 1) = (/&
3381
6
 & 2.3825E-06_JPRB,1.8697E-04_JPRB,3.6183E-04_JPRB,5.3195E-04_JPRB,7.2587E-04_JPRB/)
3382
3383
1
IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART11',1,ZHOOK_HANDLE)
3384
1
END SUBROUTINE PART11
3385
3386
3387
1
SUBROUTINE PART12
3388
3389
REAL(KIND=JPRB) :: ZHOOK_HANDLE
3390
1
IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART12',0,ZHOOK_HANDLE)
3391
3392
3393
KBO( :, 2,15, 1) = (/&
3394
6
 & 2.8419E-06_JPRB,2.3121E-04_JPRB,4.4556E-04_JPRB,6.5240E-04_JPRB,8.8767E-04_JPRB/)
3395
KBO( :, 3,15, 1) = (/&
3396
6
 & 3.6307E-06_JPRB,2.7550E-04_JPRB,5.2710E-04_JPRB,7.6940E-04_JPRB,1.0435E-03_JPRB/)
3397
KBO( :, 4,15, 1) = (/&
3398
6
 & 4.8654E-06_JPRB,3.1911E-04_JPRB,6.0466E-04_JPRB,8.7922E-04_JPRB,1.1890E-03_JPRB/)
3399
KBO( :, 5,15, 1) = (/&
3400
6
 & 6.6952E-06_JPRB,3.6172E-04_JPRB,6.7720E-04_JPRB,9.7928E-04_JPRB,1.3218E-03_JPRB/)
3401
KBO( :, 1,16, 1) = (/&
3402
6
 & 1.9858E-06_JPRB,1.5742E-04_JPRB,3.0462E-04_JPRB,4.4743E-04_JPRB,6.0679E-04_JPRB/)
3403
KBO( :, 2,16, 1) = (/&
3404
6
 & 2.3893E-06_JPRB,1.9376E-04_JPRB,3.7303E-04_JPRB,5.4624E-04_JPRB,7.3818E-04_JPRB/)
3405
KBO( :, 3,16, 1) = (/&
3406
6
 & 3.0717E-06_JPRB,2.3016E-04_JPRB,4.3960E-04_JPRB,6.4157E-04_JPRB,8.6419E-04_JPRB/)
3407
KBO( :, 4,16, 1) = (/&
3408
6
 & 4.1308E-06_JPRB,2.6599E-04_JPRB,5.0281E-04_JPRB,7.3058E-04_JPRB,9.8120E-04_JPRB/)
3409
KBO( :, 5,16, 1) = (/&
3410
6
 & 5.6927E-06_JPRB,3.0109E-04_JPRB,5.6202E-04_JPRB,8.1155E-04_JPRB,1.0872E-03_JPRB/)
3411
KBO( :, 1,17, 1) = (/&
3412
6
 & 1.6559E-06_JPRB,1.3226E-04_JPRB,2.5580E-04_JPRB,3.7568E-04_JPRB,5.0686E-04_JPRB/)
3413
KBO( :, 2,17, 1) = (/&
3414
6
 & 2.0083E-06_JPRB,1.6212E-04_JPRB,3.1178E-04_JPRB,4.5651E-04_JPRB,6.1368E-04_JPRB/)
3415
KBO( :, 3,17, 1) = (/&
3416
6
 & 2.5968E-06_JPRB,1.9205E-04_JPRB,3.6613E-04_JPRB,5.3405E-04_JPRB,7.1563E-04_JPRB/)
3417
KBO( :, 4,17, 1) = (/&
3418
6
 & 3.5047E-06_JPRB,2.2153E-04_JPRB,4.1782E-04_JPRB,6.0641E-04_JPRB,8.1002E-04_JPRB/)
3419
KBO( :, 5,17, 1) = (/&
3420
6
 & 4.8351E-06_JPRB,2.5056E-04_JPRB,4.6632E-04_JPRB,6.7217E-04_JPRB,8.9508E-04_JPRB/)
3421
KBO( :, 1,18, 1) = (/&
3422
6
 & 1.3818E-06_JPRB,1.1100E-04_JPRB,2.1454E-04_JPRB,3.1506E-04_JPRB,4.2338E-04_JPRB/)
3423
KBO( :, 2,18, 1) = (/&
3424
6
 & 1.6887E-06_JPRB,1.3556E-04_JPRB,2.6035E-04_JPRB,3.8099E-04_JPRB,5.1025E-04_JPRB/)
3425
KBO( :, 3,18, 1) = (/&
3426
6
 & 2.1957E-06_JPRB,1.6016E-04_JPRB,3.0479E-04_JPRB,4.4417E-04_JPRB,5.9284E-04_JPRB/)
3427
KBO( :, 4,18, 1) = (/&
3428
6
 & 2.9733E-06_JPRB,1.8444E-04_JPRB,3.4704E-04_JPRB,5.0300E-04_JPRB,6.6896E-04_JPRB/)
3429
KBO( :, 5,18, 1) = (/&
3430
6
 & 4.1061E-06_JPRB,2.0846E-04_JPRB,3.8680E-04_JPRB,5.5649E-04_JPRB,7.3738E-04_JPRB/)
3431
KBO( :, 1,19, 1) = (/&
3432
6
 & 1.1530E-06_JPRB,9.3038E-05_JPRB,1.7970E-04_JPRB,2.6380E-04_JPRB,3.5309E-04_JPRB/)
3433
KBO( :, 2,19, 1) = (/&
3434
6
 & 1.4193E-06_JPRB,1.1326E-04_JPRB,2.1722E-04_JPRB,3.1768E-04_JPRB,4.2371E-04_JPRB/)
3435
KBO( :, 3,19, 1) = (/&
3436
6
 & 1.8551E-06_JPRB,1.3348E-04_JPRB,2.5355E-04_JPRB,3.6914E-04_JPRB,4.9054E-04_JPRB/)
3437
KBO( :, 4,19, 1) = (/&
3438
6
 & 2.5194E-06_JPRB,1.5356E-04_JPRB,2.8811E-04_JPRB,4.1698E-04_JPRB,5.5182E-04_JPRB/)
3439
KBO( :, 5,19, 1) = (/&
3440
6
 & 3.4823E-06_JPRB,1.7336E-04_JPRB,3.2068E-04_JPRB,4.6050E-04_JPRB,6.0663E-04_JPRB/)
3441
KBO( :, 1,20, 1) = (/&
3442
6
 & 9.6514E-07_JPRB,7.8220E-05_JPRB,1.5093E-04_JPRB,2.2146E-04_JPRB,2.9562E-04_JPRB/)
3443
KBO( :, 2,20, 1) = (/&
3444
6
 & 1.1977E-06_JPRB,9.4837E-05_JPRB,1.8160E-04_JPRB,2.6538E-04_JPRB,3.5295E-04_JPRB/)
3445
KBO( :, 3,20, 1) = (/&
3446
6
 & 1.5743E-06_JPRB,1.1151E-04_JPRB,2.1133E-04_JPRB,3.0732E-04_JPRB,4.0705E-04_JPRB/)
3447
KBO( :, 4,20, 1) = (/&
3448
6
 & 2.1452E-06_JPRB,1.2810E-04_JPRB,2.3959E-04_JPRB,3.4625E-04_JPRB,4.5647E-04_JPRB/)
3449
KBO( :, 5,20, 1) = (/&
3450
6
 & 2.9673E-06_JPRB,1.4434E-04_JPRB,2.6631E-04_JPRB,3.8162E-04_JPRB,5.0047E-04_JPRB/)
3451
KBO( :, 1,21, 1) = (/&
3452
6
 & 8.0884E-07_JPRB,6.5739E-05_JPRB,1.2670E-04_JPRB,1.8581E-04_JPRB,2.4748E-04_JPRB/)
3453
KBO( :, 2,21, 1) = (/&
3454
6
 & 1.0118E-06_JPRB,7.9430E-05_JPRB,1.5182E-04_JPRB,2.2166E-04_JPRB,2.9412E-04_JPRB/)
3455
KBO( :, 3,21, 1) = (/&
3456
6
 & 1.3370E-06_JPRB,9.3177E-05_JPRB,1.7611E-04_JPRB,2.5580E-04_JPRB,3.3790E-04_JPRB/)
3457
KBO( :, 4,21, 1) = (/&
3458
6
 & 1.8276E-06_JPRB,1.0684E-04_JPRB,1.9928E-04_JPRB,2.8745E-04_JPRB,3.7772E-04_JPRB/)
3459
KBO( :, 5,21, 1) = (/&
3460
6
 & 2.5289E-06_JPRB,1.2011E-04_JPRB,2.2122E-04_JPRB,3.1628E-04_JPRB,4.1308E-04_JPRB/)
3461
KBO( :, 1,22, 1) = (/&
3462
6
 & 6.8770E-07_JPRB,5.5977E-05_JPRB,1.0768E-04_JPRB,1.5779E-04_JPRB,2.0975E-04_JPRB/)
3463
KBO( :, 2,22, 1) = (/&
3464
6
 & 8.7051E-07_JPRB,6.7267E-05_JPRB,1.2822E-04_JPRB,1.8696E-04_JPRB,2.4752E-04_JPRB/)
3465
KBO( :, 3,22, 1) = (/&
3466
6
 & 1.1593E-06_JPRB,7.8612E-05_JPRB,1.4804E-04_JPRB,2.1465E-04_JPRB,2.8275E-04_JPRB/)
3467
KBO( :, 4,22, 1) = (/&
3468
6
 & 1.5914E-06_JPRB,8.9752E-05_JPRB,1.6700E-04_JPRB,2.4024E-04_JPRB,3.1462E-04_JPRB/)
3469
KBO( :, 5,22, 1) = (/&
3470
6
 & 2.2022E-06_JPRB,1.0055E-04_JPRB,1.8482E-04_JPRB,2.6358E-04_JPRB,3.4283E-04_JPRB/)
3471
KBO( :, 1,23, 1) = (/&
3472
6
 & 5.8681E-07_JPRB,4.7674E-05_JPRB,9.1507E-05_JPRB,1.3393E-04_JPRB,1.7770E-04_JPRB/)
3473
KBO( :, 2,23, 1) = (/&
3474
6
 & 7.5149E-07_JPRB,5.7003E-05_JPRB,1.0829E-04_JPRB,1.5767E-04_JPRB,2.0825E-04_JPRB/)
3475
KBO( :, 3,23, 1) = (/&
3476
6
 & 1.0080E-06_JPRB,6.6289E-05_JPRB,1.2450E-04_JPRB,1.8010E-04_JPRB,2.3658E-04_JPRB/)
3477
KBO( :, 4,23, 1) = (/&
3478
6
 & 1.3887E-06_JPRB,7.5365E-05_JPRB,1.3995E-04_JPRB,2.0079E-04_JPRB,2.6204E-04_JPRB/)
3479
KBO( :, 5,23, 1) = (/&
3480
6
 & 1.9208E-06_JPRB,8.4126E-05_JPRB,1.5435E-04_JPRB,2.1972E-04_JPRB,2.8449E-04_JPRB/)
3481
KBO( :, 1,24, 1) = (/&
3482
6
 & 5.0292E-07_JPRB,4.0632E-05_JPRB,7.7788E-05_JPRB,1.1370E-04_JPRB,1.5053E-04_JPRB/)
3483
KBO( :, 2,24, 1) = (/&
3484
6
 & 6.5118E-07_JPRB,4.8318E-05_JPRB,9.1504E-05_JPRB,1.3299E-04_JPRB,1.7517E-04_JPRB/)
3485
KBO( :, 3,24, 1) = (/&
3486
6
 & 8.7976E-07_JPRB,5.5886E-05_JPRB,1.0475E-04_JPRB,1.5115E-04_JPRB,1.9787E-04_JPRB/)
3487
KBO( :, 4,24, 1) = (/&
3488
6
 & 1.2151E-06_JPRB,6.3269E-05_JPRB,1.1727E-04_JPRB,1.6792E-04_JPRB,2.1820E-04_JPRB/)
3489
KBO( :, 5,24, 1) = (/&
3490
6
 & 1.6790E-06_JPRB,7.0361E-05_JPRB,1.2886E-04_JPRB,1.8317E-04_JPRB,2.3599E-04_JPRB/)
3491
KBO( :, 1,25, 1) = (/&
3492
6
 & 4.3320E-07_JPRB,3.4672E-05_JPRB,6.6172E-05_JPRB,9.6557E-05_JPRB,1.2755E-04_JPRB/)
3493
KBO( :, 2,25, 1) = (/&
3494
6
 & 5.6706E-07_JPRB,4.0954E-05_JPRB,7.7399E-05_JPRB,1.1224E-04_JPRB,1.4744E-04_JPRB/)
3495
KBO( :, 3,25, 1) = (/&
3496
6
 & 7.7121E-07_JPRB,4.7130E-05_JPRB,8.8173E-05_JPRB,1.2695E-04_JPRB,1.6559E-04_JPRB/)
3497
KBO( :, 4,25, 1) = (/&
3498
6
 & 1.0669E-06_JPRB,5.3117E-05_JPRB,9.8264E-05_JPRB,1.4052E-04_JPRB,1.8177E-04_JPRB/)
3499
KBO( :, 5,25, 1) = (/&
3500
6
 & 1.4722E-06_JPRB,5.8854E-05_JPRB,1.0754E-04_JPRB,1.5271E-04_JPRB,1.9584E-04_JPRB/)
3501
KBO( :, 1,26, 1) = (/&
3502
6
 & 3.7607E-07_JPRB,2.9637E-05_JPRB,5.6418E-05_JPRB,8.2160E-05_JPRB,1.0828E-04_JPRB/)
3503
KBO( :, 2,26, 1) = (/&
3504
6
 & 4.9757E-07_JPRB,3.4761E-05_JPRB,6.5581E-05_JPRB,9.4869E-05_JPRB,1.2424E-04_JPRB/)
3505
KBO( :, 3,26, 1) = (/&
3506
6
 & 6.8088E-07_JPRB,3.9782E-05_JPRB,7.4280E-05_JPRB,1.0678E-04_JPRB,1.3874E-04_JPRB/)
3507
KBO( :, 4,26, 1) = (/&
3508
6
 & 9.4259E-07_JPRB,4.4634E-05_JPRB,8.2385E-05_JPRB,1.1768E-04_JPRB,1.5157E-04_JPRB/)
3509
KBO( :, 5,26, 1) = (/&
3510
6
 & 1.2981E-06_JPRB,4.9274E-05_JPRB,8.9787E-05_JPRB,1.2735E-04_JPRB,1.6265E-04_JPRB/)
3511
KBO( :, 1,27, 1) = (/&
3512
6
 & 3.2783E-07_JPRB,2.5292E-05_JPRB,4.8063E-05_JPRB,6.9840E-05_JPRB,9.1852E-05_JPRB/)
3513
KBO( :, 2,27, 1) = (/&
3514
6
 & 4.3792E-07_JPRB,2.9476E-05_JPRB,5.5497E-05_JPRB,8.0152E-05_JPRB,1.0466E-04_JPRB/)
3515
KBO( :, 3,27, 1) = (/&
3516
6
 & 6.0227E-07_JPRB,3.3553E-05_JPRB,6.2514E-05_JPRB,8.9762E-05_JPRB,1.1621E-04_JPRB/)
3517
KBO( :, 4,27, 1) = (/&
3518
6
 & 8.3354E-07_JPRB,3.7479E-05_JPRB,6.9000E-05_JPRB,9.8462E-05_JPRB,1.2640E-04_JPRB/)
3519
KBO( :, 5,27, 1) = (/&
3520
6
 & 1.1448E-06_JPRB,4.1239E-05_JPRB,7.4917E-05_JPRB,1.0612E-04_JPRB,1.3514E-04_JPRB/)
3521
KBO( :, 1,28, 1) = (/&
3522
6
 & 2.8669E-07_JPRB,2.1556E-05_JPRB,4.0892E-05_JPRB,5.9304E-05_JPRB,7.7833E-05_JPRB/)
3523
KBO( :, 2,28, 1) = (/&
3524
6
 & 3.8635E-07_JPRB,2.4960E-05_JPRB,4.6902E-05_JPRB,6.7670E-05_JPRB,8.8103E-05_JPRB/)
3525
KBO( :, 3,28, 1) = (/&
3526
6
 & 5.3330E-07_JPRB,2.8270E-05_JPRB,5.2542E-05_JPRB,7.5364E-05_JPRB,9.7308E-05_JPRB/)
3527
KBO( :, 4,28, 1) = (/&
3528
6
 & 7.3734E-07_JPRB,3.1446E-05_JPRB,5.7727E-05_JPRB,8.2286E-05_JPRB,1.0537E-04_JPRB/)
3529
KBO( :, 5,28, 1) = (/&
3530
6
 & 1.0096E-06_JPRB,3.4495E-05_JPRB,6.2455E-05_JPRB,8.8340E-05_JPRB,1.1227E-04_JPRB/)
3531
KBO( :, 1,29, 1) = (/&
3532
6
 & 2.5201E-07_JPRB,1.8361E-05_JPRB,3.4763E-05_JPRB,5.0351E-05_JPRB,6.5987E-05_JPRB/)
3533
KBO( :, 2,29, 1) = (/&
3534
6
 & 3.4236E-07_JPRB,2.1129E-05_JPRB,3.9617E-05_JPRB,5.7095E-05_JPRB,7.4216E-05_JPRB/)
3535
KBO( :, 3,29, 1) = (/&
3536
6
 & 4.7361E-07_JPRB,2.3813E-05_JPRB,4.4138E-05_JPRB,6.3255E-05_JPRB,8.1563E-05_JPRB/)
3537
KBO( :, 4,29, 1) = (/&
3538
6
 & 6.5380E-07_JPRB,2.6387E-05_JPRB,4.8286E-05_JPRB,6.8730E-05_JPRB,8.7959E-05_JPRB/)
3539
KBO( :, 5,29, 1) = (/&
3540
6
 & 8.9193E-07_JPRB,2.8857E-05_JPRB,5.2062E-05_JPRB,7.3497E-05_JPRB,9.3411E-05_JPRB/)
3541
KBO( :, 1,30, 1) = (/&
3542
6
 & 2.2221E-07_JPRB,1.5617E-05_JPRB,2.9506E-05_JPRB,4.2701E-05_JPRB,5.5901E-05_JPRB/)
3543
KBO( :, 2,30, 1) = (/&
3544
6
 & 3.0397E-07_JPRB,1.7865E-05_JPRB,3.3414E-05_JPRB,4.8107E-05_JPRB,6.2491E-05_JPRB/)
3545
KBO( :, 3,30, 1) = (/&
3546
6
 & 4.2084E-07_JPRB,2.0038E-05_JPRB,3.7035E-05_JPRB,5.3015E-05_JPRB,6.8354E-05_JPRB/)
3547
KBO( :, 4,30, 1) = (/&
3548
6
 & 5.7974E-07_JPRB,2.2125E-05_JPRB,4.0351E-05_JPRB,5.7341E-05_JPRB,7.3435E-05_JPRB/)
3549
KBO( :, 5,30, 1) = (/&
3550
6
 & 7.8765E-07_JPRB,2.4127E-05_JPRB,4.3366E-05_JPRB,6.1092E-05_JPRB,7.7733E-05_JPRB/)
3551
KBO( :, 1,31, 1) = (/&
3552
6
 & 1.9681E-07_JPRB,1.3270E-05_JPRB,2.5018E-05_JPRB,3.6169E-05_JPRB,4.7371E-05_JPRB/)
3553
KBO( :, 2,31, 1) = (/&
3554
6
 & 2.7071E-07_JPRB,1.5097E-05_JPRB,2.8159E-05_JPRB,4.0500E-05_JPRB,5.2659E-05_JPRB/)
3555
KBO( :, 3,31, 1) = (/&
3556
6
 & 3.7475E-07_JPRB,1.6858E-05_JPRB,3.1057E-05_JPRB,4.4392E-05_JPRB,5.7349E-05_JPRB/)
3557
KBO( :, 4,31, 1) = (/&
3558
6
 & 5.1477E-07_JPRB,1.8547E-05_JPRB,3.3705E-05_JPRB,4.7805E-05_JPRB,6.1389E-05_JPRB/)
3559
KBO( :, 5,31, 1) = (/&
3560
6
 & 6.9625E-07_JPRB,2.0170E-05_JPRB,3.6118E-05_JPRB,5.0758E-05_JPRB,6.4797E-05_JPRB/)
3561
KBO( :, 1,32, 1) = (/&
3562
6
 & 1.7485E-07_JPRB,1.1265E-05_JPRB,2.1186E-05_JPRB,3.0600E-05_JPRB,4.0119E-05_JPRB/)
3563
KBO( :, 2,32, 1) = (/&
3564
6
 & 2.4148E-07_JPRB,1.2747E-05_JPRB,2.3704E-05_JPRB,3.4052E-05_JPRB,4.4364E-05_JPRB/)
3565
KBO( :, 3,32, 1) = (/&
3566
6
 & 3.3391E-07_JPRB,1.4173E-05_JPRB,2.6023E-05_JPRB,3.7134E-05_JPRB,4.8107E-05_JPRB/)
3567
KBO( :, 4,32, 1) = (/&
3568
6
 & 4.5712E-07_JPRB,1.5544E-05_JPRB,2.8139E-05_JPRB,3.9822E-05_JPRB,5.1320E-05_JPRB/)
3569
KBO( :, 5,32, 1) = (/&
3570
6
 & 6.1526E-07_JPRB,1.6857E-05_JPRB,3.0064E-05_JPRB,4.2147E-05_JPRB,5.4009E-05_JPRB/)
3571
KBO( :, 1,33, 1) = (/&
3572
6
 & 1.5570E-07_JPRB,9.5475E-06_JPRB,1.7911E-05_JPRB,2.5842E-05_JPRB,3.3957E-05_JPRB/)
3573
KBO( :, 2,33, 1) = (/&
3574
6
 & 2.1549E-07_JPRB,1.0751E-05_JPRB,1.9931E-05_JPRB,2.8592E-05_JPRB,3.7370E-05_JPRB/)
3575
KBO( :, 3,33, 1) = (/&
3576
6
 & 2.9746E-07_JPRB,1.1906E-05_JPRB,2.1783E-05_JPRB,3.1027E-05_JPRB,4.0353E-05_JPRB/)
3577
KBO( :, 4,33, 1) = (/&
3578
6
 & 4.0565E-07_JPRB,1.3019E-05_JPRB,2.3473E-05_JPRB,3.3146E-05_JPRB,4.2910E-05_JPRB/)
3579
KBO( :, 5,33, 1) = (/&
3580
6
 & 5.4308E-07_JPRB,1.4082E-05_JPRB,2.5010E-05_JPRB,3.4973E-05_JPRB,4.5040E-05_JPRB/)
3581
KBO( :, 1,34, 1) = (/&
3582
6
 & 1.3721E-07_JPRB,8.0465E-06_JPRB,1.5060E-05_JPRB,2.1707E-05_JPRB,2.8588E-05_JPRB/)
3583
KBO( :, 2,34, 1) = (/&
3584
6
 & 1.9002E-07_JPRB,9.0232E-06_JPRB,1.6681E-05_JPRB,2.3900E-05_JPRB,3.1327E-05_JPRB/)
3585
KBO( :, 3,34, 1) = (/&
3586
6
 & 2.6180E-07_JPRB,9.9630E-06_JPRB,1.8168E-05_JPRB,2.5833E-05_JPRB,3.3720E-05_JPRB/)
3587
KBO( :, 4,34, 1) = (/&
3588
6
 & 3.5566E-07_JPRB,1.0865E-05_JPRB,1.9523E-05_JPRB,2.7511E-05_JPRB,3.5767E-05_JPRB/)
3589
KBO( :, 5,34, 1) = (/&
3590
6
 & 4.7391E-07_JPRB,1.1726E-05_JPRB,2.0751E-05_JPRB,2.8954E-05_JPRB,3.7468E-05_JPRB/)
3591
KBO( :, 1,35, 1) = (/&
3592
6
 & 1.1723E-07_JPRB,6.6964E-06_JPRB,1.2516E-05_JPRB,1.8031E-05_JPRB,2.3821E-05_JPRB/)
3593
KBO( :, 2,35, 1) = (/&
3594
6
 & 1.6235E-07_JPRB,7.4927E-06_JPRB,1.3829E-05_JPRB,1.9800E-05_JPRB,2.6051E-05_JPRB/)
3595
KBO( :, 3,35, 1) = (/&
3596
6
 & 2.2335E-07_JPRB,8.2568E-06_JPRB,1.5029E-05_JPRB,2.1350E-05_JPRB,2.8000E-05_JPRB/)
3597
KBO( :, 4,35, 1) = (/&
3598
6
 & 3.0275E-07_JPRB,8.9930E-06_JPRB,1.6127E-05_JPRB,2.2699E-05_JPRB,2.9671E-05_JPRB/)
3599
KBO( :, 5,35, 1) = (/&
3600
6
 & 4.0236E-07_JPRB,9.6965E-06_JPRB,1.7121E-05_JPRB,2.3858E-05_JPRB,3.1064E-05_JPRB/)
3601
KBO( :, 1,36, 1) = (/&
3602
6
 & 9.6662E-08_JPRB,5.4982E-06_JPRB,1.0275E-05_JPRB,1.4804E-05_JPRB,1.9630E-05_JPRB/)
3603
KBO( :, 2,36, 1) = (/&
3604
6
 & 1.3386E-07_JPRB,6.1501E-06_JPRB,1.1348E-05_JPRB,1.6247E-05_JPRB,2.1474E-05_JPRB/)
3605
KBO( :, 3,36, 1) = (/&
3606
6
 & 1.8410E-07_JPRB,6.7756E-06_JPRB,1.2329E-05_JPRB,1.7513E-05_JPRB,2.3090E-05_JPRB/)
3607
KBO( :, 4,36, 1) = (/&
3608
6
 & 2.4947E-07_JPRB,7.3775E-06_JPRB,1.3225E-05_JPRB,1.8612E-05_JPRB,2.4479E-05_JPRB/)
3609
KBO( :, 5,36, 1) = (/&
3610
6
 & 3.3138E-07_JPRB,7.9539E-06_JPRB,1.4038E-05_JPRB,1.9559E-05_JPRB,2.5645E-05_JPRB/)
3611
KBO( :, 1,37, 1) = (/&
3612
6
 & 7.5833E-08_JPRB,4.4319E-06_JPRB,8.2961E-06_JPRB,1.1965E-05_JPRB,1.5922E-05_JPRB/)
3613
KBO( :, 2,37, 1) = (/&
3614
6
 & 1.0502E-07_JPRB,4.9674E-06_JPRB,9.1830E-06_JPRB,1.3164E-05_JPRB,1.7469E-05_JPRB/)
3615
KBO( :, 3,37, 1) = (/&
3616
6
 & 1.4465E-07_JPRB,5.4834E-06_JPRB,9.9967E-06_JPRB,1.4218E-05_JPRB,1.8834E-05_JPRB/)
3617
KBO( :, 4,37, 1) = (/&
3618
6
 & 1.9645E-07_JPRB,5.9788E-06_JPRB,1.0738E-05_JPRB,1.5133E-05_JPRB,2.0012E-05_JPRB/)
3619
KBO( :, 5,37, 1) = (/&
3620
6
 & 2.6166E-07_JPRB,6.4529E-06_JPRB,1.1414E-05_JPRB,1.5924E-05_JPRB,2.1010E-05_JPRB/)
3621
KBO( :, 1,38, 1) = (/&
3622
6
 & 5.9339E-08_JPRB,3.5670E-06_JPRB,6.6893E-06_JPRB,9.6566E-06_JPRB,1.2902E-05_JPRB/)
3623
KBO( :, 2,38, 1) = (/&
3624
6
 & 8.2155E-08_JPRB,4.0080E-06_JPRB,7.4233E-06_JPRB,1.0653E-05_JPRB,1.4205E-05_JPRB/)
3625
KBO( :, 3,38, 1) = (/&
3626
6
 & 1.1331E-07_JPRB,4.4325E-06_JPRB,8.0980E-06_JPRB,1.1532E-05_JPRB,1.5359E-05_JPRB/)
3627
KBO( :, 4,38, 1) = (/&
3628
6
 & 1.5427E-07_JPRB,4.8410E-06_JPRB,8.7132E-06_JPRB,1.2297E-05_JPRB,1.6364E-05_JPRB/)
3629
KBO( :, 5,38, 1) = (/&
3630
6
 & 2.0603E-07_JPRB,5.2310E-06_JPRB,9.2738E-06_JPRB,1.2957E-05_JPRB,1.7220E-05_JPRB/)
3631
KBO( :, 1,39, 1) = (/&
3632
6
 & 4.6457E-08_JPRB,2.8706E-06_JPRB,5.3922E-06_JPRB,7.7916E-06_JPRB,1.0463E-05_JPRB/)
3633
KBO( :, 2,39, 1) = (/&
3634
6
 & 6.4280E-08_JPRB,3.2335E-06_JPRB,5.9995E-06_JPRB,8.6193E-06_JPRB,1.1561E-05_JPRB/)
3635
KBO( :, 3,39, 1) = (/&
3636
6
 & 8.8753E-08_JPRB,3.5826E-06_JPRB,6.5580E-06_JPRB,9.3509E-06_JPRB,1.2539E-05_JPRB/)
3637
KBO( :, 4,39, 1) = (/&
3638
6
 & 1.2109E-07_JPRB,3.9186E-06_JPRB,7.0688E-06_JPRB,9.9899E-06_JPRB,1.3398E-05_JPRB/)
3639
KBO( :, 5,39, 1) = (/&
3640
6
 & 1.6221E-07_JPRB,4.2407E-06_JPRB,7.5350E-06_JPRB,1.0543E-05_JPRB,1.4137E-05_JPRB/)
3641
KBO( :, 1,40, 1) = (/&
3642
6
 & 3.5213E-08_JPRB,2.2779E-06_JPRB,4.2906E-06_JPRB,6.2087E-06_JPRB,8.3621E-06_JPRB/)
3643
KBO( :, 2,40, 1) = (/&
3644
6
 & 4.8621E-08_JPRB,2.5769E-06_JPRB,4.7967E-06_JPRB,6.9026E-06_JPRB,9.2884E-06_JPRB/)
3645
KBO( :, 3,40, 1) = (/&
3646
6
 & 6.7228E-08_JPRB,2.8656E-06_JPRB,5.2643E-06_JPRB,7.5217E-06_JPRB,1.0122E-05_JPRB/)
3647
KBO( :, 4,40, 1) = (/&
3648
6
 & 9.2051E-08_JPRB,3.1437E-06_JPRB,5.6919E-06_JPRB,8.0632E-06_JPRB,1.0858E-05_JPRB/)
3649
KBO( :, 5,40, 1) = (/&
3650
6
 & 1.2392E-07_JPRB,3.4099E-06_JPRB,6.0819E-06_JPRB,8.5318E-06_JPRB,1.1495E-05_JPRB/)
3651
KBO( :, 1,41, 1) = (/&
3652
6
 & 2.6618E-08_JPRB,1.8019E-06_JPRB,3.4036E-06_JPRB,4.9321E-06_JPRB,6.6614E-06_JPRB/)
3653
KBO( :, 2,41, 1) = (/&
3654
6
 & 3.6608E-08_JPRB,2.0487E-06_JPRB,3.8262E-06_JPRB,5.5154E-06_JPRB,7.4437E-06_JPRB/)
3655
KBO( :, 3,41, 1) = (/&
3656
6
 & 5.0672E-08_JPRB,2.2872E-06_JPRB,4.2170E-06_JPRB,6.0380E-06_JPRB,8.1516E-06_JPRB/)
3657
KBO( :, 4,41, 1) = (/&
3658
6
 & 6.9610E-08_JPRB,2.5171E-06_JPRB,4.5756E-06_JPRB,6.4977E-06_JPRB,8.7822E-06_JPRB/)
3659
KBO( :, 5,41, 1) = (/&
3660
6
 & 9.4152E-08_JPRB,2.7376E-06_JPRB,4.9025E-06_JPRB,6.8959E-06_JPRB,9.3313E-06_JPRB/)
3661
KBO( :, 1,42, 1) = (/&
3662
6
 & 2.0157E-08_JPRB,1.4234E-06_JPRB,2.6959E-06_JPRB,3.9114E-06_JPRB,5.2999E-06_JPRB/)
3663
KBO( :, 2,42, 1) = (/&
3664
6
 & 2.7569E-08_JPRB,1.6266E-06_JPRB,3.0478E-06_JPRB,4.4003E-06_JPRB,5.9585E-06_JPRB/)
3665
KBO( :, 3,42, 1) = (/&
3666
6
 & 3.8168E-08_JPRB,1.8237E-06_JPRB,3.3743E-06_JPRB,4.8412E-06_JPRB,6.5607E-06_JPRB/)
3667
KBO( :, 4,42, 1) = (/&
3668
6
 & 5.2578E-08_JPRB,2.0137E-06_JPRB,3.6751E-06_JPRB,5.2309E-06_JPRB,7.1001E-06_JPRB/)
3669
KBO( :, 5,42, 1) = (/&
3670
6
 & 7.1438E-08_JPRB,2.1965E-06_JPRB,3.9491E-06_JPRB,5.5693E-06_JPRB,7.5736E-06_JPRB/)
3671
KBO( :, 1,43, 1) = (/&
3672
6
 & 1.5048E-08_JPRB,1.1128E-06_JPRB,2.1143E-06_JPRB,3.0719E-06_JPRB,4.1759E-06_JPRB/)
3673
KBO( :, 2,43, 1) = (/&
3674
6
 & 2.0401E-08_JPRB,1.2805E-06_JPRB,2.4084E-06_JPRB,3.4833E-06_JPRB,4.7326E-06_JPRB/)
3675
KBO( :, 3,43, 1) = (/&
3676
6
 & 2.8205E-08_JPRB,1.4438E-06_JPRB,2.6828E-06_JPRB,3.8579E-06_JPRB,5.2466E-06_JPRB/)
3677
KBO( :, 4,43, 1) = (/&
3678
6
 & 3.8951E-08_JPRB,1.6012E-06_JPRB,2.9353E-06_JPRB,4.1897E-06_JPRB,5.7090E-06_JPRB/)
3679
KBO( :, 5,43, 1) = (/&
3680
6
 & 5.3191E-08_JPRB,1.7525E-06_JPRB,3.1662E-06_JPRB,4.4792E-06_JPRB,6.1200E-06_JPRB/)
3681
KBO( :, 1,44, 1) = (/&
3682
6
 & 1.1198E-08_JPRB,8.6431E-07_JPRB,1.6473E-06_JPRB,2.3969E-06_JPRB,3.2705E-06_JPRB/)
3683
3684
1
IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART12',1,ZHOOK_HANDLE)
3685
1
END SUBROUTINE PART12
3686
3687
3688
1
SUBROUTINE PART13
3689
3690
REAL(KIND=JPRB) :: ZHOOK_HANDLE
3691
1
IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART13',0,ZHOOK_HANDLE)
3692
3693
3694
KBO( :, 2,44, 1) = (/&
3695
6
 & 1.5007E-08_JPRB,1.0027E-06_JPRB,1.8931E-06_JPRB,2.7433E-06_JPRB,3.7404E-06_JPRB/)
3696
KBO( :, 3,44, 1) = (/&
3697
6
 & 2.0665E-08_JPRB,1.1376E-06_JPRB,2.1233E-06_JPRB,3.0602E-06_JPRB,4.1782E-06_JPRB/)
3698
KBO( :, 4,44, 1) = (/&
3699
6
 & 2.8586E-08_JPRB,1.2680E-06_JPRB,2.3363E-06_JPRB,3.3439E-06_JPRB,4.5764E-06_JPRB/)
3700
KBO( :, 5,44, 1) = (/&
3701
6
 & 3.9218E-08_JPRB,1.3937E-06_JPRB,2.5309E-06_JPRB,3.5921E-06_JPRB,4.9322E-06_JPRB/)
3702
KBO( :, 1,45, 1) = (/&
3703
6
 & 8.3759E-09_JPRB,6.6910E-07_JPRB,1.2788E-06_JPRB,1.8633E-06_JPRB,2.5541E-06_JPRB/)
3704
KBO( :, 2,45, 1) = (/&
3705
6
 & 1.1074E-08_JPRB,7.8311E-07_JPRB,1.4838E-06_JPRB,2.1538E-06_JPRB,2.9501E-06_JPRB/)
3706
KBO( :, 3,45, 1) = (/&
3707
6
 & 1.5144E-08_JPRB,8.9455E-07_JPRB,1.6769E-06_JPRB,2.4217E-06_JPRB,3.3225E-06_JPRB/)
3708
KBO( :, 4,45, 1) = (/&
3709
6
 & 2.0959E-08_JPRB,1.0028E-06_JPRB,1.8560E-06_JPRB,2.6635E-06_JPRB,3.6644E-06_JPRB/)
3710
KBO( :, 5,45, 1) = (/&
3711
6
 & 2.8861E-08_JPRB,1.1068E-06_JPRB,2.0205E-06_JPRB,2.8768E-06_JPRB,3.9736E-06_JPRB/)
3712
KBO( :, 1,46, 1) = (/&
3713
6
 & 6.2739E-09_JPRB,5.1407E-07_JPRB,9.8522E-07_JPRB,1.4377E-06_JPRB,1.9806E-06_JPRB/)
3714
KBO( :, 2,46, 1) = (/&
3715
6
 & 8.1529E-09_JPRB,6.0797E-07_JPRB,1.1561E-06_JPRB,1.6807E-06_JPRB,2.3136E-06_JPRB/)
3716
KBO( :, 3,46, 1) = (/&
3717
6
 & 1.1038E-08_JPRB,7.0008E-07_JPRB,1.3179E-06_JPRB,1.9073E-06_JPRB,2.6301E-06_JPRB/)
3718
KBO( :, 4,46, 1) = (/&
3719
6
 & 1.5249E-08_JPRB,7.8964E-07_JPRB,1.4688E-06_JPRB,2.1133E-06_JPRB,2.9239E-06_JPRB/)
3720
KBO( :, 5,46, 1) = (/&
3721
6
 & 2.1058E-08_JPRB,8.7606E-07_JPRB,1.6079E-06_JPRB,2.2965E-06_JPRB,3.1920E-06_JPRB/)
3722
KBO( :, 1,47, 1) = (/&
3723
6
 & 4.6949E-09_JPRB,3.8992E-07_JPRB,7.4927E-07_JPRB,1.0952E-06_JPRB,1.5159E-06_JPRB/)
3724
KBO( :, 2,47, 1) = (/&
3725
6
 & 5.9645E-09_JPRB,4.6716E-07_JPRB,8.9151E-07_JPRB,1.2982E-06_JPRB,1.7952E-06_JPRB/)
3726
KBO( :, 3,47, 1) = (/&
3727
6
 & 7.9612E-09_JPRB,5.4321E-07_JPRB,1.0272E-06_JPRB,1.4897E-06_JPRB,2.0633E-06_JPRB/)
3728
KBO( :, 4,47, 1) = (/&
3729
6
 & 1.0938E-08_JPRB,6.1746E-07_JPRB,1.1545E-06_JPRB,1.6654E-06_JPRB,2.3153E-06_JPRB/)
3730
KBO( :, 5,47, 1) = (/&
3731
6
 & 1.5132E-08_JPRB,6.8917E-07_JPRB,1.2721E-06_JPRB,1.8228E-06_JPRB,2.5468E-06_JPRB/)
3732
KBO( :, 1,48, 1) = (/&
3733
6
 & 3.5531E-09_JPRB,2.9393E-07_JPRB,5.6622E-07_JPRB,8.2884E-07_JPRB,1.1544E-06_JPRB/)
3734
KBO( :, 2,48, 1) = (/&
3735
6
 & 4.3982E-09_JPRB,3.5721E-07_JPRB,6.8388E-07_JPRB,9.9751E-07_JPRB,1.3878E-06_JPRB/)
3736
KBO( :, 3,48, 1) = (/&
3737
6
 & 5.7699E-09_JPRB,4.1995E-07_JPRB,7.9742E-07_JPRB,1.1586E-06_JPRB,1.6142E-06_JPRB/)
3738
KBO( :, 4,48, 1) = (/&
3739
6
 & 7.8542E-09_JPRB,4.8132E-07_JPRB,9.0450E-07_JPRB,1.3078E-06_JPRB,1.8297E-06_JPRB/)
3740
KBO( :, 5,48, 1) = (/&
3741
6
 & 1.0862E-08_JPRB,5.4098E-07_JPRB,1.0041E-06_JPRB,1.4432E-06_JPRB,2.0302E-06_JPRB/)
3742
KBO( :, 1,49, 1) = (/&
3743
6
 & 2.7223E-09_JPRB,2.2011E-07_JPRB,4.2480E-07_JPRB,6.2273E-07_JPRB,8.7522E-07_JPRB/)
3744
KBO( :, 2,49, 1) = (/&
3745
6
 & 3.2751E-09_JPRB,2.7175E-07_JPRB,5.2169E-07_JPRB,7.6216E-07_JPRB,1.0695E-06_JPRB/)
3746
KBO( :, 3,49, 1) = (/&
3747
6
 & 4.2074E-09_JPRB,3.2338E-07_JPRB,6.1638E-07_JPRB,8.9710E-07_JPRB,1.2605E-06_JPRB/)
3748
KBO( :, 4,49, 1) = (/&
3749
6
 & 5.6548E-09_JPRB,3.7408E-07_JPRB,7.0619E-07_JPRB,1.0234E-06_JPRB,1.4445E-06_JPRB/)
3750
KBO( :, 5,49, 1) = (/&
3751
6
 & 7.7931E-09_JPRB,4.2353E-07_JPRB,7.9036E-07_JPRB,1.1391E-06_JPRB,1.6183E-06_JPRB/)
3752
KBO( :, 1,50, 1) = (/&
3753
6
 & 2.1171E-09_JPRB,1.6461E-07_JPRB,3.1815E-07_JPRB,4.6707E-07_JPRB,6.6131E-07_JPRB/)
3754
KBO( :, 2,50, 1) = (/&
3755
6
 & 2.4767E-09_JPRB,2.0654E-07_JPRB,3.9751E-07_JPRB,5.8161E-07_JPRB,8.2129E-07_JPRB/)
3756
KBO( :, 3,50, 1) = (/&
3757
6
 & 3.1098E-09_JPRB,2.4898E-07_JPRB,4.7607E-07_JPRB,6.9397E-07_JPRB,9.8108E-07_JPRB/)
3758
KBO( :, 4,50, 1) = (/&
3759
6
 & 4.1196E-09_JPRB,2.9082E-07_JPRB,5.5125E-07_JPRB,8.0034E-07_JPRB,1.1364E-06_JPRB/)
3760
KBO( :, 5,50, 1) = (/&
3761
6
 & 5.6373E-09_JPRB,3.3169E-07_JPRB,6.2193E-07_JPRB,8.9844E-07_JPRB,1.2847E-06_JPRB/)
3762
KBO( :, 1,51, 1) = (/&
3763
6
 & 1.6645E-09_JPRB,1.2257E-07_JPRB,2.3718E-07_JPRB,3.4865E-07_JPRB,4.9717E-07_JPRB/)
3764
KBO( :, 2,51, 1) = (/&
3765
6
 & 1.8963E-09_JPRB,1.5653E-07_JPRB,3.0185E-07_JPRB,4.4222E-07_JPRB,6.2797E-07_JPRB/)
3766
KBO( :, 3,51, 1) = (/&
3767
6
 & 2.3235E-09_JPRB,1.9123E-07_JPRB,3.6667E-07_JPRB,5.3530E-07_JPRB,7.6057E-07_JPRB/)
3768
KBO( :, 4,51, 1) = (/&
3769
6
 & 3.0254E-09_JPRB,2.2572E-07_JPRB,4.2945E-07_JPRB,6.2453E-07_JPRB,8.9069E-07_JPRB/)
3770
KBO( :, 5,51, 1) = (/&
3771
6
 & 4.0995E-09_JPRB,2.5950E-07_JPRB,4.8873E-07_JPRB,7.0742E-07_JPRB,1.0163E-06_JPRB/)
3772
KBO( :, 1,52, 1) = (/&
3773
6
 & 1.3206E-09_JPRB,9.0571E-08_JPRB,1.7550E-07_JPRB,2.5829E-07_JPRB,3.7195E-07_JPRB/)
3774
KBO( :, 2,52, 1) = (/&
3775
6
 & 1.4670E-09_JPRB,1.1797E-07_JPRB,2.2784E-07_JPRB,3.3424E-07_JPRB,4.7844E-07_JPRB/)
3776
KBO( :, 3,52, 1) = (/&
3777
6
 & 1.7505E-09_JPRB,1.4623E-07_JPRB,2.8107E-07_JPRB,4.1094E-07_JPRB,5.8801E-07_JPRB/)
3778
KBO( :, 4,52, 1) = (/&
3779
6
 & 2.2339E-09_JPRB,1.7460E-07_JPRB,3.3329E-07_JPRB,4.8542E-07_JPRB,6.9695E-07_JPRB/)
3780
KBO( :, 5,52, 1) = (/&
3781
6
 & 2.9899E-09_JPRB,2.0250E-07_JPRB,3.8293E-07_JPRB,5.5538E-07_JPRB,8.0322E-07_JPRB/)
3782
KBO( :, 1,53, 1) = (/&
3783
6
 & 1.0570E-09_JPRB,6.6355E-08_JPRB,1.2871E-07_JPRB,1.8963E-07_JPRB,2.7719E-07_JPRB/)
3784
KBO( :, 2,53, 1) = (/&
3785
6
 & 1.1456E-09_JPRB,8.8306E-08_JPRB,1.7079E-07_JPRB,2.5086E-07_JPRB,3.6333E-07_JPRB/)
3786
KBO( :, 3,53, 1) = (/&
3787
6
 & 1.3304E-09_JPRB,1.1127E-07_JPRB,2.1434E-07_JPRB,3.1381E-07_JPRB,4.5369E-07_JPRB/)
3788
KBO( :, 4,53, 1) = (/&
3789
6
 & 1.6595E-09_JPRB,1.3454E-07_JPRB,2.5758E-07_JPRB,3.7572E-07_JPRB,5.4496E-07_JPRB/)
3790
KBO( :, 5,53, 1) = (/&
3791
6
 & 2.1883E-09_JPRB,1.5755E-07_JPRB,2.9906E-07_JPRB,4.3451E-07_JPRB,6.3482E-07_JPRB/)
3792
KBO( :, 1,54, 1) = (/&
3793
6
 & 8.5518E-10_JPRB,4.8675E-08_JPRB,9.4477E-08_JPRB,1.3931E-07_JPRB,2.0489E-07_JPRB/)
3794
KBO( :, 2,54, 1) = (/&
3795
6
 & 9.0530E-10_JPRB,6.6186E-08_JPRB,1.2814E-07_JPRB,1.8845E-07_JPRB,2.7365E-07_JPRB/)
3796
KBO( :, 3,54, 1) = (/&
3797
6
 & 1.0265E-09_JPRB,8.4782E-08_JPRB,1.6360E-07_JPRB,2.3982E-07_JPRB,3.4689E-07_JPRB/)
3798
KBO( :, 4,54, 1) = (/&
3799
6
 & 1.2515E-09_JPRB,1.0381E-07_JPRB,1.9922E-07_JPRB,2.9100E-07_JPRB,4.2180E-07_JPRB/)
3800
KBO( :, 5,54, 1) = (/&
3801
6
 & 1.6232E-09_JPRB,1.2276E-07_JPRB,2.3378E-07_JPRB,3.4015E-07_JPRB,4.9603E-07_JPRB/)
3802
KBO( :, 1,55, 1) = (/&
3803
6
 & 6.9700E-10_JPRB,3.5570E-08_JPRB,6.9080E-08_JPRB,1.0195E-07_JPRB,1.4991E-07_JPRB/)
3804
KBO( :, 2,55, 1) = (/&
3805
6
 & 7.2150E-10_JPRB,4.9476E-08_JPRB,9.5896E-08_JPRB,1.4119E-07_JPRB,2.0429E-07_JPRB/)
3806
KBO( :, 3,55, 1) = (/&
3807
6
 & 8.0028E-10_JPRB,6.4502E-08_JPRB,1.2464E-07_JPRB,1.8291E-07_JPRB,2.6311E-07_JPRB/)
3808
KBO( :, 4,55, 1) = (/&
3809
6
 & 9.5310E-10_JPRB,8.0013E-08_JPRB,1.5388E-07_JPRB,2.2506E-07_JPRB,3.2381E-07_JPRB/)
3810
KBO( :, 5,55, 1) = (/&
3811
6
 & 1.2140E-09_JPRB,9.5569E-08_JPRB,1.8254E-07_JPRB,2.6597E-07_JPRB,3.8428E-07_JPRB/)
3812
KBO( :, 1,56, 1) = (/&
3813
6
 & 5.7187E-10_JPRB,2.5788E-08_JPRB,5.0091E-08_JPRB,7.3976E-08_JPRB,1.0884E-07_JPRB/)
3814
KBO( :, 2,56, 1) = (/&
3815
6
 & 5.7915E-10_JPRB,3.6758E-08_JPRB,7.1316E-08_JPRB,1.0509E-07_JPRB,1.5165E-07_JPRB/)
3816
KBO( :, 3,56, 1) = (/&
3817
6
 & 6.2849E-10_JPRB,4.8831E-08_JPRB,9.4465E-08_JPRB,1.3879E-07_JPRB,1.9866E-07_JPRB/)
3818
KBO( :, 4,56, 1) = (/&
3819
6
 & 7.3094E-10_JPRB,6.1436E-08_JPRB,1.1839E-07_JPRB,1.7336E-07_JPRB,2.4772E-07_JPRB/)
3820
KBO( :, 5,56, 1) = (/&
3821
6
 & 9.1271E-10_JPRB,7.4209E-08_JPRB,1.4210E-07_JPRB,2.0734E-07_JPRB,2.9707E-07_JPRB/)
3822
KBO( :, 1,57, 1) = (/&
3823
6
 & 4.7220E-10_JPRB,1.8526E-08_JPRB,3.5969E-08_JPRB,5.3151E-08_JPRB,7.8305E-08_JPRB/)
3824
KBO( :, 2,57, 1) = (/&
3825
6
 & 4.6852E-10_JPRB,2.7111E-08_JPRB,5.2630E-08_JPRB,7.7619E-08_JPRB,1.1181E-07_JPRB/)
3826
KBO( :, 3,57, 1) = (/&
3827
6
 & 4.9708E-10_JPRB,3.6762E-08_JPRB,7.1191E-08_JPRB,1.0471E-07_JPRB,1.4926E-07_JPRB/)
3828
KBO( :, 4,57, 1) = (/&
3829
6
 & 5.6499E-10_JPRB,4.6985E-08_JPRB,9.0692E-08_JPRB,1.3297E-07_JPRB,1.8882E-07_JPRB/)
3830
KBO( :, 5,57, 1) = (/&
3831
6
 & 6.9035E-10_JPRB,5.7429E-08_JPRB,1.1024E-07_JPRB,1.6105E-07_JPRB,2.2899E-07_JPRB/)
3832
KBO( :, 1,58, 1) = (/&
3833
6
 & 3.9157E-10_JPRB,1.3270E-08_JPRB,2.5747E-08_JPRB,3.8061E-08_JPRB,5.5988E-08_JPRB/)
3834
KBO( :, 2,58, 1) = (/&
3835
6
 & 3.8162E-10_JPRB,1.9958E-08_JPRB,3.8768E-08_JPRB,5.7217E-08_JPRB,8.2152E-08_JPRB/)
3836
KBO( :, 3,58, 1) = (/&
3837
6
 & 3.9640E-10_JPRB,2.7646E-08_JPRB,5.3592E-08_JPRB,7.8902E-08_JPRB,1.1187E-07_JPRB/)
3838
KBO( :, 4,58, 1) = (/&
3839
6
 & 4.4118E-10_JPRB,3.5913E-08_JPRB,6.9407E-08_JPRB,1.0187E-07_JPRB,1.4365E-07_JPRB/)
3840
KBO( :, 5,58, 1) = (/&
3841
6
 & 5.2734E-10_JPRB,4.4431E-08_JPRB,8.5459E-08_JPRB,1.2500E-07_JPRB,1.7617E-07_JPRB/)
3842
KBO( :, 1,59, 1) = (/&
3843
6
 & 3.2257E-10_JPRB,1.0274E-08_JPRB,1.9927E-08_JPRB,2.9461E-08_JPRB,4.2293E-08_JPRB/)
3844
KBO( :, 2,59, 1) = (/&
3845
6
 & 3.1226E-10_JPRB,1.5633E-08_JPRB,3.0371E-08_JPRB,4.4840E-08_JPRB,6.3166E-08_JPRB/)
3846
KBO( :, 3,59, 1) = (/&
3847
6
 & 3.2148E-10_JPRB,2.1846E-08_JPRB,4.2369E-08_JPRB,6.2405E-08_JPRB,8.6964E-08_JPRB/)
3848
KBO( :, 4,59, 1) = (/&
3849
6
 & 3.5488E-10_JPRB,2.8579E-08_JPRB,5.5262E-08_JPRB,8.1150E-08_JPRB,1.1238E-07_JPRB/)
3850
KBO( :, 5,59, 1) = (/&
3851
6
 & 4.2035E-10_JPRB,3.5535E-08_JPRB,6.8411E-08_JPRB,1.0012E-07_JPRB,1.3828E-07_JPRB/)
3852
KBO( :, 1,13, 2) = (/&
3853
6
 & 8.0175E-06_JPRB,1.6125E-03_JPRB,3.1478E-03_JPRB,4.6753E-03_JPRB,6.4316E-03_JPRB/)
3854
KBO( :, 2,13, 2) = (/&
3855
6
 & 1.0426E-05_JPRB,1.8783E-03_JPRB,3.6140E-03_JPRB,5.3229E-03_JPRB,7.3431E-03_JPRB/)
3856
KBO( :, 3,13, 2) = (/&
3857
6
 & 1.4927E-05_JPRB,2.1311E-03_JPRB,4.0477E-03_JPRB,5.8993E-03_JPRB,8.1260E-03_JPRB/)
3858
KBO( :, 4,13, 2) = (/&
3859
6
 & 2.2809E-05_JPRB,2.3738E-03_JPRB,4.4493E-03_JPRB,6.4056E-03_JPRB,8.7767E-03_JPRB/)
3860
KBO( :, 5,13, 2) = (/&
3861
6
 & 3.5487E-05_JPRB,2.6072E-03_JPRB,4.8181E-03_JPRB,6.8488E-03_JPRB,9.2993E-03_JPRB/)
3862
KBO( :, 1,14, 2) = (/&
3863
6
 & 6.7524E-06_JPRB,1.3623E-03_JPRB,2.6470E-03_JPRB,3.9213E-03_JPRB,5.3373E-03_JPRB/)
3864
KBO( :, 2,14, 2) = (/&
3865
6
 & 8.8908E-06_JPRB,1.5796E-03_JPRB,3.0298E-03_JPRB,4.4457E-03_JPRB,6.0495E-03_JPRB/)
3866
KBO( :, 3,14, 2) = (/&
3867
6
 & 1.2884E-05_JPRB,1.7866E-03_JPRB,3.3866E-03_JPRB,4.9144E-03_JPRB,6.6539E-03_JPRB/)
3868
KBO( :, 4,14, 2) = (/&
3869
6
 & 1.9813E-05_JPRB,1.9855E-03_JPRB,3.7147E-03_JPRB,5.3297E-03_JPRB,7.1488E-03_JPRB/)
3870
KBO( :, 5,14, 2) = (/&
3871
6
 & 3.0910E-05_JPRB,2.1779E-03_JPRB,4.0162E-03_JPRB,5.6950E-03_JPRB,7.5412E-03_JPRB/)
3872
KBO( :, 1,15, 2) = (/&
3873
6
 & 5.7112E-06_JPRB,1.1474E-03_JPRB,2.2216E-03_JPRB,3.2811E-03_JPRB,4.4313E-03_JPRB/)
3874
KBO( :, 2,15, 2) = (/&
3875
6
 & 7.6208E-06_JPRB,1.3247E-03_JPRB,2.5364E-03_JPRB,3.7071E-03_JPRB,4.9919E-03_JPRB/)
3876
KBO( :, 3,15, 2) = (/&
3877
6
 & 1.1171E-05_JPRB,1.4944E-03_JPRB,2.8273E-03_JPRB,4.0906E-03_JPRB,5.4623E-03_JPRB/)
3878
KBO( :, 4,15, 2) = (/&
3879
6
 & 1.7286E-05_JPRB,1.6573E-03_JPRB,3.0948E-03_JPRB,4.4313E-03_JPRB,5.8428E-03_JPRB/)
3880
KBO( :, 5,15, 2) = (/&
3881
6
 & 2.7064E-05_JPRB,1.8170E-03_JPRB,3.3404E-03_JPRB,4.7290E-03_JPRB,6.1397E-03_JPRB/)
3882
KBO( :, 1,16, 2) = (/&
3883
6
 & 4.8419E-06_JPRB,9.6341E-04_JPRB,1.8620E-03_JPRB,2.7407E-03_JPRB,3.6858E-03_JPRB/)
3884
KBO( :, 2,16, 2) = (/&
3885
6
 & 6.5431E-06_JPRB,1.1085E-03_JPRB,2.1191E-03_JPRB,3.0886E-03_JPRB,4.1319E-03_JPRB/)
3886
KBO( :, 3,16, 2) = (/&
3887
6
 & 9.6991E-06_JPRB,1.2471E-03_JPRB,2.3556E-03_JPRB,3.4027E-03_JPRB,4.5021E-03_JPRB/)
3888
KBO( :, 4,16, 2) = (/&
3889
6
 & 1.5112E-05_JPRB,1.3813E-03_JPRB,2.5735E-03_JPRB,3.6791E-03_JPRB,4.7992E-03_JPRB/)
3890
KBO( :, 5,16, 2) = (/&
3891
6
 & 2.3687E-05_JPRB,1.5146E-03_JPRB,2.7739E-03_JPRB,3.9205E-03_JPRB,5.0294E-03_JPRB/)
3892
KBO( :, 1,17, 2) = (/&
3893
6
 & 4.1046E-06_JPRB,8.0658E-04_JPRB,1.5568E-03_JPRB,2.2850E-03_JPRB,3.0607E-03_JPRB/)
3894
KBO( :, 2,17, 2) = (/&
3895
6
 & 5.6128E-06_JPRB,9.2491E-04_JPRB,1.7657E-03_JPRB,2.5701E-03_JPRB,3.4165E-03_JPRB/)
3896
KBO( :, 3,17, 2) = (/&
3897
6
 & 8.4118E-06_JPRB,1.0386E-03_JPRB,1.9589E-03_JPRB,2.8258E-03_JPRB,3.7101E-03_JPRB/)
3898
KBO( :, 4,17, 2) = (/&
3899
6
 & 1.3163E-05_JPRB,1.1499E-03_JPRB,2.1360E-03_JPRB,3.0493E-03_JPRB,3.9433E-03_JPRB/)
3900
KBO( :, 5,17, 2) = (/&
3901
6
 & 2.0607E-05_JPRB,1.2605E-03_JPRB,2.3001E-03_JPRB,3.2445E-03_JPRB,4.1227E-03_JPRB/)
3902
KBO( :, 1,18, 2) = (/&
3903
6
 & 3.4787E-06_JPRB,6.7375E-04_JPRB,1.2987E-03_JPRB,1.9033E-03_JPRB,2.5394E-03_JPRB/)
3904
KBO( :, 2,18, 2) = (/&
3905
6
 & 4.8193E-06_JPRB,7.7048E-04_JPRB,1.4690E-03_JPRB,2.1362E-03_JPRB,2.8237E-03_JPRB/)
3906
KBO( :, 3,18, 2) = (/&
3907
6
 & 7.2913E-06_JPRB,8.6393E-04_JPRB,1.6256E-03_JPRB,2.3423E-03_JPRB,3.0558E-03_JPRB/)
3908
KBO( :, 4,18, 2) = (/&
3909
6
 & 1.1432E-05_JPRB,9.5623E-04_JPRB,1.7704E-03_JPRB,2.5237E-03_JPRB,3.2404E-03_JPRB/)
3910
KBO( :, 5,18, 2) = (/&
3911
6
 & 1.7868E-05_JPRB,1.0481E-03_JPRB,1.9053E-03_JPRB,2.6812E-03_JPRB,3.3808E-03_JPRB/)
3912
KBO( :, 1,19, 2) = (/&
3913
6
 & 2.9467E-06_JPRB,5.6177E-04_JPRB,1.0818E-03_JPRB,1.5840E-03_JPRB,2.1035E-03_JPRB/)
3914
KBO( :, 2,19, 2) = (/&
3915
6
 & 4.1364E-06_JPRB,6.4090E-04_JPRB,1.2199E-03_JPRB,1.7723E-03_JPRB,2.3300E-03_JPRB/)
3916
KBO( :, 3,19, 2) = (/&
3917
6
 & 6.2999E-06_JPRB,7.1829E-04_JPRB,1.3476E-03_JPRB,1.9398E-03_JPRB,2.5147E-03_JPRB/)
3918
KBO( :, 4,19, 2) = (/&
3919
6
 & 9.8879E-06_JPRB,7.9456E-04_JPRB,1.4667E-03_JPRB,2.0867E-03_JPRB,2.6608E-03_JPRB/)
3920
KBO( :, 5,19, 2) = (/&
3921
6
 & 1.5425E-05_JPRB,8.7102E-04_JPRB,1.5773E-03_JPRB,2.2143E-03_JPRB,2.7707E-03_JPRB/)
3922
KBO( :, 1,20, 2) = (/&
3923
6
 & 2.5100E-06_JPRB,4.6893E-04_JPRB,9.0169E-04_JPRB,1.3192E-03_JPRB,1.7452E-03_JPRB/)
3924
KBO( :, 2,20, 2) = (/&
3925
6
 & 3.5701E-06_JPRB,5.3398E-04_JPRB,1.0139E-03_JPRB,1.4717E-03_JPRB,1.9261E-03_JPRB/)
3926
KBO( :, 3,20, 2) = (/&
3927
6
 & 5.4715E-06_JPRB,5.9772E-04_JPRB,1.1181E-03_JPRB,1.6068E-03_JPRB,2.0724E-03_JPRB/)
3928
KBO( :, 4,20, 2) = (/&
3929
6
 & 8.5950E-06_JPRB,6.6090E-04_JPRB,1.2157E-03_JPRB,1.7253E-03_JPRB,2.1875E-03_JPRB/)
3930
KBO( :, 5,20, 2) = (/&
3931
6
 & 1.3366E-05_JPRB,7.2450E-04_JPRB,1.3064E-03_JPRB,1.8293E-03_JPRB,2.2741E-03_JPRB/)
3932
KBO( :, 1,21, 2) = (/&
3933
6
 & 2.1419E-06_JPRB,3.9129E-04_JPRB,7.5108E-04_JPRB,1.0978E-03_JPRB,1.4477E-03_JPRB/)
3934
KBO( :, 2,21, 2) = (/&
3935
6
 & 3.0823E-06_JPRB,4.4480E-04_JPRB,8.4226E-04_JPRB,1.2211E-03_JPRB,1.5919E-03_JPRB/)
3936
KBO( :, 3,21, 2) = (/&
3937
6
 & 4.7515E-06_JPRB,4.9734E-04_JPRB,9.2759E-04_JPRB,1.3300E-03_JPRB,1.7080E-03_JPRB/)
3938
KBO( :, 4,21, 2) = (/&
3939
6
 & 7.4611E-06_JPRB,5.4971E-04_JPRB,1.0075E-03_JPRB,1.4263E-03_JPRB,1.7988E-03_JPRB/)
3940
KBO( :, 5,21, 2) = (/&
3941
6
 & 1.1567E-05_JPRB,6.0267E-04_JPRB,1.0819E-03_JPRB,1.5108E-03_JPRB,1.8668E-03_JPRB/)
3942
KBO( :, 1,22, 2) = (/&
3943
6
 & 1.8692E-06_JPRB,3.2930E-04_JPRB,6.3020E-04_JPRB,9.1986E-04_JPRB,1.2087E-03_JPRB/)
3944
KBO( :, 2,22, 2) = (/&
3945
6
 & 2.7364E-06_JPRB,3.7324E-04_JPRB,7.0426E-04_JPRB,1.0187E-03_JPRB,1.3222E-03_JPRB/)
3946
KBO( :, 3,22, 2) = (/&
3947
6
 & 4.2483E-06_JPRB,4.1663E-04_JPRB,7.7378E-04_JPRB,1.1062E-03_JPRB,1.4133E-03_JPRB/)
3948
KBO( :, 4,22, 2) = (/&
3949
6
 & 6.6614E-06_JPRB,4.6001E-04_JPRB,8.3899E-04_JPRB,1.1837E-03_JPRB,1.4836E-03_JPRB/)
3950
KBO( :, 5,22, 2) = (/&
3951
6
 & 1.0283E-05_JPRB,5.0444E-04_JPRB,8.9986E-04_JPRB,1.2517E-03_JPRB,1.5358E-03_JPRB/)
3952
KBO( :, 1,23, 2) = (/&
3953
6
 & 1.6399E-06_JPRB,2.7719E-04_JPRB,5.2862E-04_JPRB,7.7027E-04_JPRB,1.0088E-03_JPRB/)
3954
KBO( :, 2,23, 2) = (/&
3955
6
 & 2.4391E-06_JPRB,3.1328E-04_JPRB,5.8895E-04_JPRB,8.4951E-04_JPRB,1.0980E-03_JPRB/)
3956
KBO( :, 3,23, 2) = (/&
3957
6
 & 3.8063E-06_JPRB,3.4908E-04_JPRB,6.4555E-04_JPRB,9.1997E-04_JPRB,1.1688E-03_JPRB/)
3958
KBO( :, 4,23, 2) = (/&
3959
6
 & 5.9548E-06_JPRB,3.8523E-04_JPRB,6.9879E-04_JPRB,9.8233E-04_JPRB,1.2233E-03_JPRB/)
3960
KBO( :, 5,23, 2) = (/&
3961
6
 & 9.1467E-06_JPRB,4.2262E-04_JPRB,7.4870E-04_JPRB,1.0371E-03_JPRB,1.2635E-03_JPRB/)
3962
KBO( :, 1,24, 2) = (/&
3963
6
 & 1.4486E-06_JPRB,2.3343E-04_JPRB,4.4362E-04_JPRB,6.4490E-04_JPRB,8.4150E-04_JPRB/)
3964
KBO( :, 2,24, 2) = (/&
3965
6
 & 2.1847E-06_JPRB,2.6312E-04_JPRB,4.9268E-04_JPRB,7.0858E-04_JPRB,9.1131E-04_JPRB/)
3966
KBO( :, 3,24, 2) = (/&
3967
6
 & 3.4199E-06_JPRB,2.9273E-04_JPRB,5.3880E-04_JPRB,7.6525E-04_JPRB,9.6646E-04_JPRB/)
3968
KBO( :, 4,24, 2) = (/&
3969
6
 & 5.3366E-06_JPRB,3.2305E-04_JPRB,5.8221E-04_JPRB,8.1539E-04_JPRB,1.0083E-03_JPRB/)
3970
KBO( :, 5,24, 2) = (/&
3971
6
 & 8.1557E-06_JPRB,3.5422E-04_JPRB,6.2350E-04_JPRB,8.5963E-04_JPRB,1.0390E-03_JPRB/)
3972
KBO( :, 1,25, 2) = (/&
3973
6
 & 1.2896E-06_JPRB,1.9674E-04_JPRB,3.7250E-04_JPRB,5.4009E-04_JPRB,7.0204E-04_JPRB/)
3974
KBO( :, 2,25, 2) = (/&
3975
6
 & 1.9685E-06_JPRB,2.2117E-04_JPRB,4.1236E-04_JPRB,5.9119E-04_JPRB,7.5627E-04_JPRB/)
3976
KBO( :, 3,25, 2) = (/&
3977
6
 & 3.0862E-06_JPRB,2.4587E-04_JPRB,4.4997E-04_JPRB,6.3678E-04_JPRB,7.9915E-04_JPRB/)
3978
KBO( :, 4,25, 2) = (/&
3979
6
 & 4.8005E-06_JPRB,2.7122E-04_JPRB,4.8550E-04_JPRB,6.7707E-04_JPRB,8.3122E-04_JPRB/)
3980
KBO( :, 5,25, 2) = (/&
3981
6
 & 7.2939E-06_JPRB,2.9701E-04_JPRB,5.1977E-04_JPRB,7.1279E-04_JPRB,8.5451E-04_JPRB/)
3982
KBO( :, 1,26, 2) = (/&
3983
6
 & 1.1608E-06_JPRB,1.6612E-04_JPRB,3.1323E-04_JPRB,4.5281E-04_JPRB,5.8594E-04_JPRB/)
3984
3985
1
IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART13',1,ZHOOK_HANDLE)
3986
1
END SUBROUTINE PART13
3987
3988
3989
1
SUBROUTINE PART14
3990
3991
REAL(KIND=JPRB) :: ZHOOK_HANDLE
3992
1
IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART14',0,ZHOOK_HANDLE)
3993
3994
3995
KBO( :, 2,26, 2) = (/&
3996
6
 & 1.7905E-06_JPRB,1.8633E-04_JPRB,3.4562E-04_JPRB,4.9378E-04_JPRB,6.2806E-04_JPRB/)
3997
KBO( :, 3,26, 2) = (/&
3998
6
 & 2.8083E-06_JPRB,2.0700E-04_JPRB,3.7628E-04_JPRB,5.3030E-04_JPRB,6.6095E-04_JPRB/)
3999
KBO( :, 4,26, 2) = (/&
4000
6
 & 4.3494E-06_JPRB,2.2796E-04_JPRB,4.0557E-04_JPRB,5.6268E-04_JPRB,6.8538E-04_JPRB/)
4001
KBO( :, 5,26, 2) = (/&
4002
6
 & 6.5643E-06_JPRB,2.4920E-04_JPRB,4.3382E-04_JPRB,5.9177E-04_JPRB,7.0285E-04_JPRB/)
4003
KBO( :, 1,27, 2) = (/&
4004
6
 & 1.0500E-06_JPRB,1.4026E-04_JPRB,2.6331E-04_JPRB,3.7943E-04_JPRB,4.8869E-04_JPRB/)
4005
KBO( :, 2,27, 2) = (/&
4006
6
 & 1.6326E-06_JPRB,1.5709E-04_JPRB,2.8964E-04_JPRB,4.1228E-04_JPRB,5.2142E-04_JPRB/)
4007
KBO( :, 3,27, 2) = (/&
4008
6
 & 2.5571E-06_JPRB,1.7422E-04_JPRB,3.1477E-04_JPRB,4.4154E-04_JPRB,5.4660E-04_JPRB/)
4009
KBO( :, 4,27, 2) = (/&
4010
6
 & 3.9402E-06_JPRB,1.9156E-04_JPRB,3.3894E-04_JPRB,4.6764E-04_JPRB,5.6523E-04_JPRB/)
4011
KBO( :, 5,27, 2) = (/&
4012
6
 & 5.9052E-06_JPRB,2.0883E-04_JPRB,3.6207E-04_JPRB,4.9151E-04_JPRB,5.7833E-04_JPRB/)
4013
KBO( :, 1,28, 2) = (/&
4014
6
 & 9.5343E-07_JPRB,1.1844E-04_JPRB,2.2122E-04_JPRB,3.1775E-04_JPRB,4.0735E-04_JPRB/)
4015
KBO( :, 2,28, 2) = (/&
4016
6
 & 1.4904E-06_JPRB,1.3245E-04_JPRB,2.4271E-04_JPRB,3.4408E-04_JPRB,4.3267E-04_JPRB/)
4017
KBO( :, 3,28, 2) = (/&
4018
6
 & 2.3285E-06_JPRB,1.4658E-04_JPRB,2.6343E-04_JPRB,3.6757E-04_JPRB,4.5198E-04_JPRB/)
4019
KBO( :, 4,28, 2) = (/&
4020
6
 & 3.5672E-06_JPRB,1.6074E-04_JPRB,2.8315E-04_JPRB,3.8877E-04_JPRB,4.6611E-04_JPRB/)
4021
KBO( :, 5,28, 2) = (/&
4022
6
 & 5.3086E-06_JPRB,1.7472E-04_JPRB,3.0190E-04_JPRB,4.0830E-04_JPRB,4.7586E-04_JPRB/)
4023
KBO( :, 1,29, 2) = (/&
4024
6
 & 8.7130E-07_JPRB,1.0013E-04_JPRB,1.8593E-04_JPRB,2.6607E-04_JPRB,3.3959E-04_JPRB/)
4025
KBO( :, 2,29, 2) = (/&
4026
6
 & 1.3662E-06_JPRB,1.1169E-04_JPRB,2.0357E-04_JPRB,2.8717E-04_JPRB,3.5915E-04_JPRB/)
4027
KBO( :, 3,29, 2) = (/&
4028
6
 & 2.1272E-06_JPRB,1.2329E-04_JPRB,2.2053E-04_JPRB,3.0613E-04_JPRB,3.7392E-04_JPRB/)
4029
KBO( :, 4,29, 2) = (/&
4030
6
 & 3.2367E-06_JPRB,1.3475E-04_JPRB,2.3655E-04_JPRB,3.2340E-04_JPRB,3.8475E-04_JPRB/)
4031
KBO( :, 5,29, 2) = (/&
4032
6
 & 4.7798E-06_JPRB,1.4613E-04_JPRB,2.5163E-04_JPRB,3.3924E-04_JPRB,3.9199E-04_JPRB/)
4033
KBO( :, 1,30, 2) = (/&
4034
6
 & 7.9857E-07_JPRB,8.4615E-05_JPRB,1.5625E-04_JPRB,2.2266E-04_JPRB,2.8295E-04_JPRB/)
4035
KBO( :, 2,30, 2) = (/&
4036
6
 & 1.2528E-06_JPRB,9.4125E-05_JPRB,1.7078E-04_JPRB,2.3961E-04_JPRB,2.9806E-04_JPRB/)
4037
KBO( :, 3,30, 2) = (/&
4038
6
 & 1.9419E-06_JPRB,1.0355E-04_JPRB,1.8452E-04_JPRB,2.5499E-04_JPRB,3.0943E-04_JPRB/)
4039
KBO( :, 4,30, 2) = (/&
4040
6
 & 2.9342E-06_JPRB,1.1289E-04_JPRB,1.9751E-04_JPRB,2.6906E-04_JPRB,3.1766E-04_JPRB/)
4041
KBO( :, 5,30, 2) = (/&
4042
6
 & 4.2987E-06_JPRB,1.2210E-04_JPRB,2.0947E-04_JPRB,2.8172E-04_JPRB,3.2307E-04_JPRB/)
4043
KBO( :, 1,31, 2) = (/&
4044
6
 & 7.3491E-07_JPRB,7.1470E-05_JPRB,1.3139E-04_JPRB,1.8630E-04_JPRB,2.3588E-04_JPRB/)
4045
KBO( :, 2,31, 2) = (/&
4046
6
 & 1.1514E-06_JPRB,7.9261E-05_JPRB,1.4322E-04_JPRB,1.9997E-04_JPRB,2.4758E-04_JPRB/)
4047
KBO( :, 3,31, 2) = (/&
4048
6
 & 1.7751E-06_JPRB,8.6934E-05_JPRB,1.5438E-04_JPRB,2.1250E-04_JPRB,2.5633E-04_JPRB/)
4049
KBO( :, 4,31, 2) = (/&
4050
6
 & 2.6619E-06_JPRB,9.4503E-05_JPRB,1.6470E-04_JPRB,2.2379E-04_JPRB,2.6262E-04_JPRB/)
4051
KBO( :, 5,31, 2) = (/&
4052
6
 & 3.8682E-06_JPRB,1.0203E-04_JPRB,1.7422E-04_JPRB,2.3379E-04_JPRB,2.6667E-04_JPRB/)
4053
KBO( :, 1,32, 2) = (/&
4054
6
 & 6.7761E-07_JPRB,6.0344E-05_JPRB,1.1046E-04_JPRB,1.5585E-04_JPRB,1.9661E-04_JPRB/)
4055
KBO( :, 2,32, 2) = (/&
4056
6
 & 1.0588E-06_JPRB,6.6689E-05_JPRB,1.2006E-04_JPRB,1.6697E-04_JPRB,2.0563E-04_JPRB/)
4057
KBO( :, 3,32, 2) = (/&
4058
6
 & 1.6222E-06_JPRB,7.2918E-05_JPRB,1.2900E-04_JPRB,1.7702E-04_JPRB,2.1238E-04_JPRB/)
4059
KBO( :, 4,32, 2) = (/&
4060
6
 & 2.4128E-06_JPRB,7.9073E-05_JPRB,1.3719E-04_JPRB,1.8602E-04_JPRB,2.1720E-04_JPRB/)
4061
KBO( :, 5,32, 2) = (/&
4062
6
 & 3.4779E-06_JPRB,8.5263E-05_JPRB,1.4481E-04_JPRB,1.9388E-04_JPRB,2.2025E-04_JPRB/)
4063
KBO( :, 1,33, 2) = (/&
4064
6
 & 6.2527E-07_JPRB,5.0902E-05_JPRB,9.2812E-05_JPRB,1.3037E-04_JPRB,1.6382E-04_JPRB/)
4065
KBO( :, 2,33, 2) = (/&
4066
6
 & 9.7334E-07_JPRB,5.6048E-05_JPRB,1.0055E-04_JPRB,1.3935E-04_JPRB,1.7082E-04_JPRB/)
4067
KBO( :, 3,33, 2) = (/&
4068
6
 & 1.4801E-06_JPRB,6.1101E-05_JPRB,1.0766E-04_JPRB,1.4740E-04_JPRB,1.7611E-04_JPRB/)
4069
KBO( :, 4,33, 2) = (/&
4070
6
 & 2.1838E-06_JPRB,6.6144E-05_JPRB,1.1420E-04_JPRB,1.5452E-04_JPRB,1.7978E-04_JPRB/)
4071
KBO( :, 5,33, 2) = (/&
4072
6
 & 3.1224E-06_JPRB,7.1225E-05_JPRB,1.2030E-04_JPRB,1.6062E-04_JPRB,1.8204E-04_JPRB/)
4073
KBO( :, 1,34, 2) = (/&
4074
6
 & 5.6731E-07_JPRB,4.2730E-05_JPRB,7.7685E-05_JPRB,1.0877E-04_JPRB,1.3615E-04_JPRB/)
4075
KBO( :, 2,34, 2) = (/&
4076
6
 & 8.7950E-07_JPRB,4.6905E-05_JPRB,8.3883E-05_JPRB,1.1598E-04_JPRB,1.4163E-04_JPRB/)
4077
KBO( :, 3,34, 2) = (/&
4078
6
 & 1.3287E-06_JPRB,5.1034E-05_JPRB,8.9565E-05_JPRB,1.2242E-04_JPRB,1.4574E-04_JPRB/)
4079
KBO( :, 4,34, 2) = (/&
4080
6
 & 1.9464E-06_JPRB,5.5143E-05_JPRB,9.4797E-05_JPRB,1.2801E-04_JPRB,1.4856E-04_JPRB/)
4081
KBO( :, 5,34, 2) = (/&
4082
6
 & 2.7640E-06_JPRB,5.9346E-05_JPRB,9.9732E-05_JPRB,1.3280E-04_JPRB,1.5030E-04_JPRB/)
4083
KBO( :, 1,35, 2) = (/&
4084
6
 & 4.9270E-07_JPRB,3.5501E-05_JPRB,6.4454E-05_JPRB,9.0102E-05_JPRB,1.1262E-04_JPRB/)
4085
KBO( :, 2,35, 2) = (/&
4086
6
 & 7.6173E-07_JPRB,3.8902E-05_JPRB,6.9450E-05_JPRB,9.5970E-05_JPRB,1.1707E-04_JPRB/)
4087
KBO( :, 3,35, 2) = (/&
4088
6
 & 1.1464E-06_JPRB,4.2272E-05_JPRB,7.4027E-05_JPRB,1.0112E-04_JPRB,1.2036E-04_JPRB/)
4089
KBO( :, 4,35, 2) = (/&
4090
6
 & 1.6726E-06_JPRB,4.5640E-05_JPRB,7.8266E-05_JPRB,1.0556E-04_JPRB,1.2264E-04_JPRB/)
4091
KBO( :, 5,35, 2) = (/&
4092
6
 & 2.3658E-06_JPRB,4.9091E-05_JPRB,8.2279E-05_JPRB,1.0938E-04_JPRB,1.2407E-04_JPRB/)
4093
KBO( :, 1,36, 2) = (/&
4094
6
 & 4.0753E-07_JPRB,2.9178E-05_JPRB,5.2991E-05_JPRB,7.4090E-05_JPRB,9.2739E-05_JPRB/)
4095
KBO( :, 2,36, 2) = (/&
4096
6
 & 6.2965E-07_JPRB,3.1953E-05_JPRB,5.7057E-05_JPRB,7.8888E-05_JPRB,9.6418E-05_JPRB/)
4097
KBO( :, 3,36, 2) = (/&
4098
6
 & 9.4705E-07_JPRB,3.4706E-05_JPRB,6.0784E-05_JPRB,8.3065E-05_JPRB,9.9161E-05_JPRB/)
4099
KBO( :, 4,36, 2) = (/&
4100
6
 & 1.3808E-06_JPRB,3.7469E-05_JPRB,6.4241E-05_JPRB,8.6658E-05_JPRB,1.0108E-04_JPRB/)
4101
KBO( :, 5,36, 2) = (/&
4102
6
 & 1.9520E-06_JPRB,4.0294E-05_JPRB,6.7509E-05_JPRB,8.9744E-05_JPRB,1.0229E-04_JPRB/)
4103
KBO( :, 1,37, 2) = (/&
4104
6
 & 3.1476E-07_JPRB,2.3629E-05_JPRB,4.3024E-05_JPRB,6.0274E-05_JPRB,7.5761E-05_JPRB/)
4105
KBO( :, 2,37, 2) = (/&
4106
6
 & 4.8773E-07_JPRB,2.5900E-05_JPRB,4.6378E-05_JPRB,6.4261E-05_JPRB,7.8929E-05_JPRB/)
4107
KBO( :, 3,37, 2) = (/&
4108
6
 & 7.3652E-07_JPRB,2.8152E-05_JPRB,4.9455E-05_JPRB,6.7730E-05_JPRB,8.1326E-05_JPRB/)
4109
KBO( :, 4,37, 2) = (/&
4110
6
 & 1.0783E-06_JPRB,3.0411E-05_JPRB,5.2306E-05_JPRB,7.0712E-05_JPRB,8.3006E-05_JPRB/)
4111
KBO( :, 5,37, 2) = (/&
4112
6
 & 1.5305E-06_JPRB,3.2717E-05_JPRB,5.4998E-05_JPRB,7.3285E-05_JPRB,8.4133E-05_JPRB/)
4113
KBO( :, 1,38, 2) = (/&
4114
6
 & 2.4210E-07_JPRB,1.9112E-05_JPRB,3.4895E-05_JPRB,4.8985E-05_JPRB,6.1887E-05_JPRB/)
4115
KBO( :, 2,38, 2) = (/&
4116
6
 & 3.7627E-07_JPRB,2.0975E-05_JPRB,3.7671E-05_JPRB,5.2313E-05_JPRB,6.4617E-05_JPRB/)
4117
KBO( :, 3,38, 2) = (/&
4118
6
 & 5.7052E-07_JPRB,2.2818E-05_JPRB,4.0210E-05_JPRB,5.5193E-05_JPRB,6.6701E-05_JPRB/)
4119
KBO( :, 4,38, 2) = (/&
4120
6
 & 8.3911E-07_JPRB,2.4669E-05_JPRB,4.2570E-05_JPRB,5.7682E-05_JPRB,6.8211E-05_JPRB/)
4121
KBO( :, 5,38, 2) = (/&
4122
6
 & 1.1958E-06_JPRB,2.6548E-05_JPRB,4.4784E-05_JPRB,5.9818E-05_JPRB,6.9237E-05_JPRB/)
4123
KBO( :, 1,39, 2) = (/&
4124
6
 & 1.8625E-07_JPRB,1.5459E-05_JPRB,2.8298E-05_JPRB,3.9805E-05_JPRB,5.0586E-05_JPRB/)
4125
KBO( :, 2,39, 2) = (/&
4126
6
 & 2.9016E-07_JPRB,1.6986E-05_JPRB,3.0594E-05_JPRB,4.2577E-05_JPRB,5.2943E-05_JPRB/)
4127
KBO( :, 3,39, 2) = (/&
4128
6
 & 4.4173E-07_JPRB,1.8495E-05_JPRB,3.2693E-05_JPRB,4.4970E-05_JPRB,5.4767E-05_JPRB/)
4129
KBO( :, 4,39, 2) = (/&
4130
6
 & 6.5253E-07_JPRB,2.0005E-05_JPRB,3.4636E-05_JPRB,4.7036E-05_JPRB,5.6106E-05_JPRB/)
4131
KBO( :, 5,39, 2) = (/&
4132
6
 & 9.3398E-07_JPRB,2.1545E-05_JPRB,3.6467E-05_JPRB,4.8821E-05_JPRB,5.7052E-05_JPRB/)
4133
KBO( :, 1,40, 2) = (/&
4134
6
 & 1.3668E-07_JPRB,1.2370E-05_JPRB,2.2736E-05_JPRB,3.2075E-05_JPRB,4.1000E-05_JPRB/)
4135
KBO( :, 2,40, 2) = (/&
4136
6
 & 2.1371E-07_JPRB,1.3625E-05_JPRB,2.4652E-05_JPRB,3.4419E-05_JPRB,4.3071E-05_JPRB/)
4137
KBO( :, 3,40, 2) = (/&
4138
6
 & 3.2755E-07_JPRB,1.4863E-05_JPRB,2.6404E-05_JPRB,3.6442E-05_JPRB,4.4686E-05_JPRB/)
4139
KBO( :, 4,40, 2) = (/&
4140
6
 & 4.8754E-07_JPRB,1.6102E-05_JPRB,2.8025E-05_JPRB,3.8191E-05_JPRB,4.5890E-05_JPRB/)
4141
KBO( :, 5,40, 2) = (/&
4142
6
 & 7.0305E-07_JPRB,1.7351E-05_JPRB,2.9541E-05_JPRB,3.9702E-05_JPRB,4.6757E-05_JPRB/)
4143
KBO( :, 1,41, 2) = (/&
4144
6
 & 9.9669E-08_JPRB,9.8770E-06_JPRB,1.8228E-05_JPRB,2.5797E-05_JPRB,3.3169E-05_JPRB/)
4145
KBO( :, 2,41, 2) = (/&
4146
6
 & 1.5628E-07_JPRB,1.0911E-05_JPRB,1.9833E-05_JPRB,2.7783E-05_JPRB,3.4989E-05_JPRB/)
4147
KBO( :, 3,41, 2) = (/&
4148
6
 & 2.4106E-07_JPRB,1.1926E-05_JPRB,2.1297E-05_JPRB,2.9495E-05_JPRB,3.6412E-05_JPRB/)
4149
KBO( :, 4,41, 2) = (/&
4150
6
 & 3.6163E-07_JPRB,1.2938E-05_JPRB,2.2645E-05_JPRB,3.0975E-05_JPRB,3.7495E-05_JPRB/)
4151
KBO( :, 5,41, 2) = (/&
4152
6
 & 5.2576E-07_JPRB,1.3959E-05_JPRB,2.3909E-05_JPRB,3.2258E-05_JPRB,3.8288E-05_JPRB/)
4153
KBO( :, 1,42, 2) = (/&
4154
6
 & 7.2678E-08_JPRB,7.8801E-06_JPRB,1.4600E-05_JPRB,2.0724E-05_JPRB,2.6808E-05_JPRB/)
4155
KBO( :, 2,42, 2) = (/&
4156
6
 & 1.1413E-07_JPRB,8.7322E-06_JPRB,1.5944E-05_JPRB,2.2404E-05_JPRB,2.8406E-05_JPRB/)
4157
KBO( :, 3,42, 2) = (/&
4158
6
 & 1.7705E-07_JPRB,9.5648E-06_JPRB,1.7165E-05_JPRB,2.3855E-05_JPRB,2.9660E-05_JPRB/)
4159
KBO( :, 4,42, 2) = (/&
4160
6
 & 2.6763E-07_JPRB,1.0394E-05_JPRB,1.8292E-05_JPRB,2.5108E-05_JPRB,3.0631E-05_JPRB/)
4161
KBO( :, 5,42, 2) = (/&
4162
6
 & 3.9231E-07_JPRB,1.1225E-05_JPRB,1.9340E-05_JPRB,2.6194E-05_JPRB,3.1357E-05_JPRB/)
4163
KBO( :, 1,43, 2) = (/&
4164
6
 & 5.1710E-08_JPRB,6.2405E-06_JPRB,1.1615E-05_JPRB,1.6545E-05_JPRB,2.1547E-05_JPRB/)
4165
KBO( :, 2,43, 2) = (/&
4166
6
 & 8.1128E-08_JPRB,6.9428E-06_JPRB,1.2742E-05_JPRB,1.7971E-05_JPRB,2.2964E-05_JPRB/)
4167
KBO( :, 3,43, 2) = (/&
4168
6
 & 1.2657E-07_JPRB,7.6287E-06_JPRB,1.3773E-05_JPRB,1.9217E-05_JPRB,2.4086E-05_JPRB/)
4169
KBO( :, 4,43, 2) = (/&
4170
6
 & 1.9308E-07_JPRB,8.3079E-06_JPRB,1.4717E-05_JPRB,2.0287E-05_JPRB,2.4962E-05_JPRB/)
4171
KBO( :, 5,43, 2) = (/&
4172
6
 & 2.8583E-07_JPRB,8.9896E-06_JPRB,1.5595E-05_JPRB,2.1216E-05_JPRB,2.5632E-05_JPRB/)
4173
KBO( :, 1,44, 2) = (/&
4174
6
 & 3.6495E-08_JPRB,4.9199E-06_JPRB,9.1989E-06_JPRB,1.3152E-05_JPRB,1.7255E-05_JPRB/)
4175
KBO( :, 2,44, 2) = (/&
4176
6
 & 5.6951E-08_JPRB,5.5005E-06_JPRB,1.0149E-05_JPRB,1.4368E-05_JPRB,1.8514E-05_JPRB/)
4177
KBO( :, 3,44, 2) = (/&
4178
6
 & 8.9239E-08_JPRB,6.0652E-06_JPRB,1.1016E-05_JPRB,1.5437E-05_JPRB,1.9519E-05_JPRB/)
4179
KBO( :, 4,44, 2) = (/&
4180
6
 & 1.3737E-07_JPRB,6.6226E-06_JPRB,1.1811E-05_JPRB,1.6355E-05_JPRB,2.0314E-05_JPRB/)
4181
KBO( :, 5,44, 2) = (/&
4182
6
 & 2.0554E-07_JPRB,7.1784E-06_JPRB,1.2547E-05_JPRB,1.7152E-05_JPRB,2.0929E-05_JPRB/)
4183
KBO( :, 1,45, 2) = (/&
4184
6
 & 2.5907E-08_JPRB,3.8721E-06_JPRB,7.2719E-06_JPRB,1.0434E-05_JPRB,1.3790E-05_JPRB/)
4185
KBO( :, 2,45, 2) = (/&
4186
6
 & 3.9986E-08_JPRB,4.3511E-06_JPRB,8.0697E-06_JPRB,1.1466E-05_JPRB,1.4905E-05_JPRB/)
4187
KBO( :, 3,45, 2) = (/&
4188
6
 & 6.2804E-08_JPRB,4.8176E-06_JPRB,8.8015E-06_JPRB,1.2382E-05_JPRB,1.5806E-05_JPRB/)
4189
KBO( :, 4,45, 2) = (/&
4190
6
 & 9.7423E-08_JPRB,5.2749E-06_JPRB,9.4698E-06_JPRB,1.3171E-05_JPRB,1.6523E-05_JPRB/)
4191
KBO( :, 5,45, 2) = (/&
4192
6
 & 1.4724E-07_JPRB,5.7306E-06_JPRB,1.0089E-05_JPRB,1.3855E-05_JPRB,1.7089E-05_JPRB/)
4193
KBO( :, 1,46, 2) = (/&
4194
6
 & 1.8373E-08_JPRB,3.0320E-06_JPRB,5.7197E-06_JPRB,8.2358E-06_JPRB,1.0971E-05_JPRB/)
4195
KBO( :, 2,46, 2) = (/&
4196
6
 & 2.7848E-08_JPRB,3.4277E-06_JPRB,6.3901E-06_JPRB,9.1142E-06_JPRB,1.1956E-05_JPRB/)
4197
KBO( :, 3,46, 2) = (/&
4198
6
 & 4.3687E-08_JPRB,3.8134E-06_JPRB,7.0085E-06_JPRB,9.9001E-06_JPRB,1.2766E-05_JPRB/)
4199
KBO( :, 4,46, 2) = (/&
4200
6
 & 6.8194E-08_JPRB,4.1901E-06_JPRB,7.5729E-06_JPRB,1.0581E-05_JPRB,1.3413E-05_JPRB/)
4201
KBO( :, 5,46, 2) = (/&
4202
6
 & 1.0416E-07_JPRB,4.5633E-06_JPRB,8.0938E-06_JPRB,1.1169E-05_JPRB,1.3933E-05_JPRB/)
4203
KBO( :, 1,47, 2) = (/&
4204
6
 & 1.2986E-08_JPRB,2.3533E-06_JPRB,4.4615E-06_JPRB,6.4491E-06_JPRB,8.6543E-06_JPRB/)
4205
KBO( :, 2,47, 2) = (/&
4206
6
 & 1.9128E-08_JPRB,2.6815E-06_JPRB,5.0257E-06_JPRB,7.1971E-06_JPRB,9.5261E-06_JPRB/)
4207
KBO( :, 3,47, 2) = (/&
4208
6
 & 2.9772E-08_JPRB,3.0001E-06_JPRB,5.5492E-06_JPRB,7.8735E-06_JPRB,1.0255E-05_JPRB/)
4209
KBO( :, 4,47, 2) = (/&
4210
6
 & 4.6702E-08_JPRB,3.3116E-06_JPRB,6.0282E-06_JPRB,8.4652E-06_JPRB,1.0843E-05_JPRB/)
4211
KBO( :, 5,47, 2) = (/&
4212
6
 & 7.2070E-08_JPRB,3.6175E-06_JPRB,6.4678E-06_JPRB,8.9726E-06_JPRB,1.1318E-05_JPRB/)
4213
KBO( :, 1,48, 2) = (/&
4214
6
 & 9.3416E-09_JPRB,1.8200E-06_JPRB,3.4670E-06_JPRB,5.0294E-06_JPRB,6.7990E-06_JPRB/)
4215
KBO( :, 2,48, 2) = (/&
4216
6
 & 1.3255E-08_JPRB,2.0919E-06_JPRB,3.9405E-06_JPRB,5.6643E-06_JPRB,7.5695E-06_JPRB/)
4217
KBO( :, 3,48, 2) = (/&
4218
6
 & 2.0305E-08_JPRB,2.3557E-06_JPRB,4.3829E-06_JPRB,6.2449E-06_JPRB,8.2237E-06_JPRB/)
4219
KBO( :, 4,48, 2) = (/&
4220
6
 & 3.1895E-08_JPRB,2.6129E-06_JPRB,4.7893E-06_JPRB,6.7563E-06_JPRB,8.7563E-06_JPRB/)
4221
KBO( :, 5,48, 2) = (/&
4222
6
 & 4.9634E-08_JPRB,2.8647E-06_JPRB,5.1614E-06_JPRB,7.1978E-06_JPRB,9.1908E-06_JPRB/)
4223
KBO( :, 1,49, 2) = (/&
4224
6
 & 6.8359E-09_JPRB,1.4019E-06_JPRB,2.6826E-06_JPRB,3.9057E-06_JPRB,5.3233E-06_JPRB/)
4225
KBO( :, 2,49, 2) = (/&
4226
6
 & 9.2996E-09_JPRB,1.6269E-06_JPRB,3.0793E-06_JPRB,4.4431E-06_JPRB,6.0005E-06_JPRB/)
4227
KBO( :, 3,49, 2) = (/&
4228
6
 & 1.3902E-08_JPRB,1.8452E-06_JPRB,3.4523E-06_JPRB,4.9386E-06_JPRB,6.5835E-06_JPRB/)
4229
KBO( :, 4,49, 2) = (/&
4230
6
 & 2.1742E-08_JPRB,2.0580E-06_JPRB,3.7970E-06_JPRB,5.3806E-06_JPRB,7.0678E-06_JPRB/)
4231
KBO( :, 5,49, 2) = (/&
4232
6
 & 3.4035E-08_JPRB,2.2660E-06_JPRB,4.1122E-06_JPRB,5.7639E-06_JPRB,7.4641E-06_JPRB/)
4233
KBO( :, 1,50, 2) = (/&
4234
6
 & 5.1178E-09_JPRB,1.0792E-06_JPRB,2.0739E-06_JPRB,3.0301E-06_JPRB,4.1532E-06_JPRB/)
4235
KBO( :, 2,50, 2) = (/&
4236
6
 & 6.6862E-09_JPRB,1.2653E-06_JPRB,2.4055E-06_JPRB,3.4823E-06_JPRB,4.7385E-06_JPRB/)
4237
KBO( :, 3,50, 2) = (/&
4238
6
 & 9.6897E-09_JPRB,1.4463E-06_JPRB,2.7192E-06_JPRB,3.9039E-06_JPRB,5.2519E-06_JPRB/)
4239
KBO( :, 4,50, 2) = (/&
4240
6
 & 1.4989E-08_JPRB,1.6221E-06_JPRB,3.0101E-06_JPRB,4.2829E-06_JPRB,5.6841E-06_JPRB/)
4241
KBO( :, 5,50, 2) = (/&
4242
6
 & 2.3540E-08_JPRB,1.7939E-06_JPRB,3.2769E-06_JPRB,4.6145E-06_JPRB,6.0402E-06_JPRB/)
4243
KBO( :, 1,51, 2) = (/&
4244
6
 & 3.8928E-09_JPRB,8.2870E-07_JPRB,1.5995E-06_JPRB,2.3444E-06_JPRB,3.2274E-06_JPRB/)
4245
KBO( :, 2,51, 2) = (/&
4246
6
 & 4.8976E-09_JPRB,9.8251E-07_JPRB,1.8756E-06_JPRB,2.7234E-06_JPRB,3.7274E-06_JPRB/)
4247
KBO( :, 3,51, 2) = (/&
4248
6
 & 6.8457E-09_JPRB,1.1323E-06_JPRB,2.1385E-06_JPRB,3.0800E-06_JPRB,4.1752E-06_JPRB/)
4249
KBO( :, 4,51, 2) = (/&
4250
6
 & 1.0404E-08_JPRB,1.2777E-06_JPRB,2.3837E-06_JPRB,3.4044E-06_JPRB,4.5574E-06_JPRB/)
4251
KBO( :, 5,51, 2) = (/&
4252
6
 & 1.6329E-08_JPRB,1.4195E-06_JPRB,2.6091E-06_JPRB,3.6893E-06_JPRB,4.8743E-06_JPRB/)
4253
KBO( :, 1,52, 2) = (/&
4254
6
 & 3.0020E-09_JPRB,6.3363E-07_JPRB,1.2279E-06_JPRB,1.8052E-06_JPRB,2.4975E-06_JPRB/)
4255
KBO( :, 2,52, 2) = (/&
4256
6
 & 3.6400E-09_JPRB,7.6019E-07_JPRB,1.4569E-06_JPRB,2.1220E-06_JPRB,2.9231E-06_JPRB/)
4257
KBO( :, 3,52, 2) = (/&
4258
6
 & 4.8925E-09_JPRB,8.8432E-07_JPRB,1.6773E-06_JPRB,2.4234E-06_JPRB,3.3127E-06_JPRB/)
4259
KBO( :, 4,52, 2) = (/&
4260
6
 & 7.2540E-09_JPRB,1.0045E-06_JPRB,1.8834E-06_JPRB,2.6996E-06_JPRB,3.6485E-06_JPRB/)
4261
KBO( :, 5,52, 2) = (/&
4262
6
 & 1.1316E-08_JPRB,1.1218E-06_JPRB,2.0739E-06_JPRB,2.9444E-06_JPRB,3.9318E-06_JPRB/)
4263
KBO( :, 1,53, 2) = (/&
4264
6
 & 2.3480E-09_JPRB,4.8194E-07_JPRB,9.3751E-07_JPRB,1.3817E-06_JPRB,1.9236E-06_JPRB/)
4265
KBO( :, 2,53, 2) = (/&
4266
6
 & 2.7431E-09_JPRB,5.8562E-07_JPRB,1.1268E-06_JPRB,1.6465E-06_JPRB,2.2857E-06_JPRB/)
4267
KBO( :, 3,53, 2) = (/&
4268
6
 & 3.5464E-09_JPRB,6.8845E-07_JPRB,1.3110E-06_JPRB,1.8999E-06_JPRB,2.6221E-06_JPRB/)
4269
KBO( :, 4,53, 2) = (/&
4270
6
 & 5.0907E-09_JPRB,7.8797E-07_JPRB,1.4844E-06_JPRB,2.1348E-06_JPRB,2.9184E-06_JPRB/)
4271
KBO( :, 5,53, 2) = (/&
4272
6
 & 7.8410E-09_JPRB,8.8479E-07_JPRB,1.6450E-06_JPRB,2.3447E-06_JPRB,3.1713E-06_JPRB/)
4273
KBO( :, 1,54, 2) = (/&
4274
6
 & 1.8594E-09_JPRB,3.6706E-07_JPRB,7.1625E-07_JPRB,1.0575E-06_JPRB,1.4721E-06_JPRB/)
4275
KBO( :, 2,54, 2) = (/&
4276
6
 & 2.1055E-09_JPRB,4.5181E-07_JPRB,8.7256E-07_JPRB,1.2786E-06_JPRB,1.7762E-06_JPRB/)
4277
KBO( :, 3,54, 2) = (/&
4278
6
 & 2.6291E-09_JPRB,5.3666E-07_JPRB,1.0257E-06_JPRB,1.4904E-06_JPRB,2.0598E-06_JPRB/)
4279
KBO( :, 4,54, 2) = (/&
4280
6
 & 3.6482E-09_JPRB,6.1906E-07_JPRB,1.1709E-06_JPRB,1.6887E-06_JPRB,2.3147E-06_JPRB/)
4281
KBO( :, 5,54, 2) = (/&
4282
6
 & 5.5210E-09_JPRB,6.9901E-07_JPRB,1.3059E-06_JPRB,1.8680E-06_JPRB,2.5342E-06_JPRB/)
4283
KBO( :, 1,55, 2) = (/&
4284
6
 & 1.4849E-09_JPRB,2.7894E-07_JPRB,5.4560E-07_JPRB,8.0660E-07_JPRB,1.1188E-06_JPRB/)
4285
4286
1
IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART14',1,ZHOOK_HANDLE)
4287
1
END SUBROUTINE PART14
4288
4289
4290
1
SUBROUTINE PART15
4291
4292
REAL(KIND=JPRB) :: ZHOOK_HANDLE
4293
1
IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART15',0,ZHOOK_HANDLE)
4294
4295
4296
KBO( :, 2,55, 2) = (/&
4297
6
 & 1.6383E-09_JPRB,3.4819E-07_JPRB,6.7462E-07_JPRB,9.9127E-07_JPRB,1.3721E-06_JPRB/)
4298
KBO( :, 3,55, 2) = (/&
4299
6
 & 1.9800E-09_JPRB,4.1799E-07_JPRB,8.0161E-07_JPRB,1.1677E-06_JPRB,1.6084E-06_JPRB/)
4300
KBO( :, 4,55, 2) = (/&
4301
6
 & 2.6536E-09_JPRB,4.8615E-07_JPRB,9.2306E-07_JPRB,1.3349E-06_JPRB,1.8249E-06_JPRB/)
4302
KBO( :, 5,55, 2) = (/&
4303
6
 & 3.9260E-09_JPRB,5.5226E-07_JPRB,1.0363E-06_JPRB,1.4870E-06_JPRB,2.0117E-06_JPRB/)
4304
KBO( :, 1,56, 2) = (/&
4305
6
 & 1.1936E-09_JPRB,2.1075E-07_JPRB,4.1302E-07_JPRB,6.1132E-07_JPRB,8.4513E-07_JPRB/)
4306
KBO( :, 2,56, 2) = (/&
4307
6
 & 1.2886E-09_JPRB,2.6729E-07_JPRB,5.1942E-07_JPRB,7.6519E-07_JPRB,1.0555E-06_JPRB/)
4308
KBO( :, 3,56, 2) = (/&
4309
6
 & 1.5077E-09_JPRB,3.2455E-07_JPRB,6.2452E-07_JPRB,9.1202E-07_JPRB,1.2523E-06_JPRB/)
4310
KBO( :, 4,56, 2) = (/&
4311
6
 & 1.9525E-09_JPRB,3.8098E-07_JPRB,7.2592E-07_JPRB,1.0524E-06_JPRB,1.4345E-06_JPRB/)
4312
KBO( :, 5,56, 2) = (/&
4313
6
 & 2.8077E-09_JPRB,4.3561E-07_JPRB,8.2084E-07_JPRB,1.1815E-06_JPRB,1.5940E-06_JPRB/)
4314
KBO( :, 1,57, 2) = (/&
4315
6
 & 9.6583E-10_JPRB,1.5815E-07_JPRB,3.1044E-07_JPRB,4.6005E-07_JPRB,6.3408E-07_JPRB/)
4316
KBO( :, 2,57, 2) = (/&
4317
6
 & 1.0215E-09_JPRB,2.0426E-07_JPRB,3.9810E-07_JPRB,5.8767E-07_JPRB,8.0766E-07_JPRB/)
4318
KBO( :, 3,57, 2) = (/&
4319
6
 & 1.1597E-09_JPRB,2.5112E-07_JPRB,4.8491E-07_JPRB,7.0984E-07_JPRB,9.7174E-07_JPRB/)
4320
KBO( :, 4,57, 2) = (/&
4321
6
 & 1.4523E-09_JPRB,2.9779E-07_JPRB,5.6934E-07_JPRB,8.2739E-07_JPRB,1.1242E-06_JPRB/)
4322
KBO( :, 5,57, 2) = (/&
4323
6
 & 2.0219E-09_JPRB,3.4296E-07_JPRB,6.4886E-07_JPRB,9.3651E-07_JPRB,1.2602E-06_JPRB/)
4324
KBO( :, 1,58, 2) = (/&
4325
6
 & 7.8662E-10_JPRB,1.1835E-07_JPRB,2.3255E-07_JPRB,3.4498E-07_JPRB,4.7381E-07_JPRB/)
4326
KBO( :, 2,58, 2) = (/&
4327
6
 & 8.1625E-10_JPRB,1.5593E-07_JPRB,3.0466E-07_JPRB,4.5040E-07_JPRB,6.1632E-07_JPRB/)
4328
KBO( :, 3,58, 2) = (/&
4329
6
 & 9.0341E-10_JPRB,1.9427E-07_JPRB,3.7628E-07_JPRB,5.5215E-07_JPRB,7.5284E-07_JPRB/)
4330
KBO( :, 4,58, 2) = (/&
4331
6
 & 1.0971E-09_JPRB,2.3273E-07_JPRB,4.4632E-07_JPRB,6.5008E-07_JPRB,8.7941E-07_JPRB/)
4332
KBO( :, 5,58, 2) = (/&
4333
6
 & 1.4779E-09_JPRB,2.7004E-07_JPRB,5.1274E-07_JPRB,7.4188E-07_JPRB,9.9429E-07_JPRB/)
4334
KBO( :, 1,59, 2) = (/&
4335
6
 & 6.4355E-10_JPRB,9.3344E-08_JPRB,1.8349E-07_JPRB,2.7230E-07_JPRB,3.7011E-07_JPRB/)
4336
KBO( :, 2,59, 2) = (/&
4337
6
 & 6.6262E-10_JPRB,1.2407E-07_JPRB,2.4261E-07_JPRB,3.5886E-07_JPRB,4.8556E-07_JPRB/)
4338
KBO( :, 3,59, 2) = (/&
4339
6
 & 7.2712E-10_JPRB,1.5550E-07_JPRB,3.0153E-07_JPRB,4.4284E-07_JPRB,5.9628E-07_JPRB/)
4340
KBO( :, 4,59, 2) = (/&
4341
6
 & 8.7156E-10_JPRB,1.8704E-07_JPRB,3.5919E-07_JPRB,5.2368E-07_JPRB,6.9842E-07_JPRB/)
4342
KBO( :, 5,59, 2) = (/&
4343
6
 & 1.1587E-09_JPRB,2.1775E-07_JPRB,4.1408E-07_JPRB,5.9979E-07_JPRB,7.9133E-07_JPRB/)
4344
KBO( :, 1,13, 3) = (/&
4345
6
 & 2.0353E-05_JPRB,5.6795E-03_JPRB,1.0879E-02_JPRB,1.5836E-02_JPRB,2.0631E-02_JPRB/)
4346
KBO( :, 2,13, 3) = (/&
4347
6
 & 3.3777E-05_JPRB,6.5066E-03_JPRB,1.2221E-02_JPRB,1.7564E-02_JPRB,2.2630E-02_JPRB/)
4348
KBO( :, 3,13, 3) = (/&
4349
6
 & 5.9522E-05_JPRB,7.3512E-03_JPRB,1.3499E-02_JPRB,1.9109E-02_JPRB,2.4328E-02_JPRB/)
4350
KBO( :, 4,13, 3) = (/&
4351
6
 & 1.0349E-04_JPRB,8.2028E-03_JPRB,1.4689E-02_JPRB,2.0461E-02_JPRB,2.5718E-02_JPRB/)
4352
KBO( :, 5,13, 3) = (/&
4353
6
 & 1.7303E-04_JPRB,9.0516E-03_JPRB,1.5806E-02_JPRB,2.1651E-02_JPRB,2.6820E-02_JPRB/)
4354
KBO( :, 1,14, 3) = (/&
4355
6
 & 1.7783E-05_JPRB,4.9056E-03_JPRB,9.3358E-03_JPRB,1.3535E-02_JPRB,1.7457E-02_JPRB/)
4356
KBO( :, 2,14, 3) = (/&
4357
6
 & 3.0011E-05_JPRB,5.5977E-03_JPRB,1.0428E-02_JPRB,1.4906E-02_JPRB,1.8958E-02_JPRB/)
4358
KBO( :, 3,14, 3) = (/&
4359
6
 & 5.3112E-05_JPRB,6.2970E-03_JPRB,1.1454E-02_JPRB,1.6118E-02_JPRB,2.0210E-02_JPRB/)
4360
KBO( :, 4,14, 3) = (/&
4361
6
 & 9.2284E-05_JPRB,6.9980E-03_JPRB,1.2425E-02_JPRB,1.7194E-02_JPRB,2.1221E-02_JPRB/)
4362
KBO( :, 5,14, 3) = (/&
4363
6
 & 1.5395E-04_JPRB,7.6990E-03_JPRB,1.3352E-02_JPRB,1.8155E-02_JPRB,2.2006E-02_JPRB/)
4364
KBO( :, 1,15, 3) = (/&
4365
6
 & 1.5619E-05_JPRB,4.1987E-03_JPRB,7.9342E-03_JPRB,1.1456E-02_JPRB,1.4646E-02_JPRB/)
4366
KBO( :, 2,15, 3) = (/&
4367
6
 & 2.6774E-05_JPRB,4.7704E-03_JPRB,8.8150E-03_JPRB,1.2537E-02_JPRB,1.5771E-02_JPRB/)
4368
KBO( :, 3,15, 3) = (/&
4369
6
 & 4.7563E-05_JPRB,5.3462E-03_JPRB,9.6501E-03_JPRB,1.3503E-02_JPRB,1.6713E-02_JPRB/)
4370
KBO( :, 4,15, 3) = (/&
4371
6
 & 8.2516E-05_JPRB,5.9238E-03_JPRB,1.0452E-02_JPRB,1.4374E-02_JPRB,1.7466E-02_JPRB/)
4372
KBO( :, 5,15, 3) = (/&
4373
6
 & 1.3728E-04_JPRB,6.5026E-03_JPRB,1.1222E-02_JPRB,1.5161E-02_JPRB,1.8044E-02_JPRB/)
4374
KBO( :, 1,16, 3) = (/&
4375
6
 & 1.3779E-05_JPRB,3.5660E-03_JPRB,6.6881E-03_JPRB,9.6171E-03_JPRB,1.2220E-02_JPRB/)
4376
KBO( :, 2,16, 3) = (/&
4377
6
 & 2.3944E-05_JPRB,4.0358E-03_JPRB,7.4057E-03_JPRB,1.0483E-02_JPRB,1.3089E-02_JPRB/)
4378
KBO( :, 3,16, 3) = (/&
4379
6
 & 4.2620E-05_JPRB,4.5089E-03_JPRB,8.0943E-03_JPRB,1.1266E-02_JPRB,1.3818E-02_JPRB/)
4380
KBO( :, 4,16, 3) = (/&
4381
6
 & 7.3893E-05_JPRB,4.9861E-03_JPRB,8.7577E-03_JPRB,1.1978E-02_JPRB,1.4391E-02_JPRB/)
4382
KBO( :, 5,16, 3) = (/&
4383
6
 & 1.2258E-04_JPRB,5.4637E-03_JPRB,9.3940E-03_JPRB,1.2628E-02_JPRB,1.4828E-02_JPRB/)
4384
KBO( :, 1,17, 3) = (/&
4385
6
 & 1.2160E-05_JPRB,3.0074E-03_JPRB,5.6060E-03_JPRB,8.0296E-03_JPRB,1.0147E-02_JPRB/)
4386
KBO( :, 2,17, 3) = (/&
4387
6
 & 2.1375E-05_JPRB,3.3935E-03_JPRB,6.1972E-03_JPRB,8.7313E-03_JPRB,1.0830E-02_JPRB/)
4388
KBO( :, 3,17, 3) = (/&
4389
6
 & 3.8127E-05_JPRB,3.7835E-03_JPRB,6.7643E-03_JPRB,9.3718E-03_JPRB,1.1398E-02_JPRB/)
4390
KBO( :, 4,17, 3) = (/&
4391
6
 & 6.6011E-05_JPRB,4.1770E-03_JPRB,7.3104E-03_JPRB,9.9575E-03_JPRB,1.1840E-02_JPRB/)
4392
KBO( :, 5,17, 3) = (/&
4393
6
 & 1.0918E-04_JPRB,4.5738E-03_JPRB,7.8339E-03_JPRB,1.0495E-02_JPRB,1.2173E-02_JPRB/)
4394
KBO( :, 1,18, 3) = (/&
4395
6
 & 1.0748E-05_JPRB,2.5245E-03_JPRB,4.6847E-03_JPRB,6.6825E-03_JPRB,8.4030E-03_JPRB/)
4396
KBO( :, 2,18, 3) = (/&
4397
6
 & 1.9076E-05_JPRB,2.8417E-03_JPRB,5.1713E-03_JPRB,7.2560E-03_JPRB,8.9449E-03_JPRB/)
4398
KBO( :, 3,18, 3) = (/&
4399
6
 & 3.4073E-05_JPRB,3.1636E-03_JPRB,5.6356E-03_JPRB,7.7811E-03_JPRB,9.3891E-03_JPRB/)
4400
KBO( :, 4,18, 3) = (/&
4401
6
 & 5.8868E-05_JPRB,3.4883E-03_JPRB,6.0850E-03_JPRB,8.2633E-03_JPRB,9.7334E-03_JPRB/)
4402
KBO( :, 5,18, 3) = (/&
4403
6
 & 9.7060E-05_JPRB,3.8208E-03_JPRB,6.5140E-03_JPRB,8.7058E-03_JPRB,9.9894E-03_JPRB/)
4404
KBO( :, 1,19, 3) = (/&
4405
6
 & 9.4932E-06_JPRB,2.1111E-03_JPRB,3.9060E-03_JPRB,5.5505E-03_JPRB,6.9419E-03_JPRB/)
4406
KBO( :, 2,19, 3) = (/&
4407
6
 & 1.6990E-05_JPRB,2.3724E-03_JPRB,4.3041E-03_JPRB,6.0210E-03_JPRB,7.3719E-03_JPRB/)
4408
KBO( :, 3,19, 3) = (/&
4409
6
 & 3.0379E-05_JPRB,2.6375E-03_JPRB,4.6850E-03_JPRB,6.4526E-03_JPRB,7.7206E-03_JPRB/)
4410
KBO( :, 4,19, 3) = (/&
4411
6
 & 5.2318E-05_JPRB,2.9073E-03_JPRB,5.0535E-03_JPRB,6.8468E-03_JPRB,7.9880E-03_JPRB/)
4412
KBO( :, 5,19, 3) = (/&
4413
6
 & 8.5851E-05_JPRB,3.1863E-03_JPRB,5.4069E-03_JPRB,7.2090E-03_JPRB,8.1842E-03_JPRB/)
4414
KBO( :, 1,20, 3) = (/&
4415
6
 & 8.4621E-06_JPRB,1.7648E-03_JPRB,3.2563E-03_JPRB,4.6122E-03_JPRB,5.7360E-03_JPRB/)
4416
KBO( :, 2,20, 3) = (/&
4417
6
 & 1.5250E-05_JPRB,1.9802E-03_JPRB,3.5810E-03_JPRB,4.9972E-03_JPRB,6.0779E-03_JPRB/)
4418
KBO( :, 3,20, 3) = (/&
4419
6
 & 2.7245E-05_JPRB,2.1990E-03_JPRB,3.8932E-03_JPRB,5.3488E-03_JPRB,6.3511E-03_JPRB/)
4420
KBO( :, 4,20, 3) = (/&
4421
6
 & 4.6707E-05_JPRB,2.4242E-03_JPRB,4.1953E-03_JPRB,5.6710E-03_JPRB,6.5600E-03_JPRB/)
4422
KBO( :, 5,20, 3) = (/&
4423
6
 & 7.6165E-05_JPRB,2.6575E-03_JPRB,4.4893E-03_JPRB,5.9661E-03_JPRB,6.7108E-03_JPRB/)
4424
KBO( :, 1,21, 3) = (/&
4425
6
 & 7.5453E-06_JPRB,1.4733E-03_JPRB,2.7104E-03_JPRB,3.8302E-03_JPRB,4.7372E-03_JPRB/)
4426
KBO( :, 2,21, 3) = (/&
4427
6
 & 1.3660E-05_JPRB,1.6505E-03_JPRB,2.9759E-03_JPRB,4.1434E-03_JPRB,5.0081E-03_JPRB/)
4428
KBO( :, 3,21, 3) = (/&
4429
6
 & 2.4360E-05_JPRB,1.8325E-03_JPRB,3.2316E-03_JPRB,4.4300E-03_JPRB,5.2232E-03_JPRB/)
4430
KBO( :, 4,21, 3) = (/&
4431
6
 & 4.1539E-05_JPRB,2.0202E-03_JPRB,3.4804E-03_JPRB,4.6921E-03_JPRB,5.3862E-03_JPRB/)
4432
KBO( :, 5,21, 3) = (/&
4433
6
 & 6.7226E-05_JPRB,2.2135E-03_JPRB,3.7240E-03_JPRB,4.9321E-03_JPRB,5.5010E-03_JPRB/)
4434
KBO( :, 1,22, 3) = (/&
4435
6
 & 6.9875E-06_JPRB,1.2377E-03_JPRB,2.2680E-03_JPRB,3.1957E-03_JPRB,3.9253E-03_JPRB/)
4436
KBO( :, 2,22, 3) = (/&
4437
6
 & 1.2689E-05_JPRB,1.3846E-03_JPRB,2.4844E-03_JPRB,3.4484E-03_JPRB,4.1374E-03_JPRB/)
4438
KBO( :, 3,22, 3) = (/&
4439
6
 & 2.2485E-05_JPRB,1.5363E-03_JPRB,2.6941E-03_JPRB,3.6801E-03_JPRB,4.3039E-03_JPRB/)
4440
KBO( :, 4,22, 3) = (/&
4441
6
 & 3.7954E-05_JPRB,1.6925E-03_JPRB,2.8992E-03_JPRB,3.8918E-03_JPRB,4.4280E-03_JPRB/)
4442
KBO( :, 5,22, 3) = (/&
4443
6
 & 6.0729E-05_JPRB,1.8529E-03_JPRB,3.1002E-03_JPRB,4.0883E-03_JPRB,4.5144E-03_JPRB/)
4444
KBO( :, 1,23, 3) = (/&
4445
6
 & 6.4953E-06_JPRB,1.0396E-03_JPRB,1.8968E-03_JPRB,2.6642E-03_JPRB,3.2502E-03_JPRB/)
4446
KBO( :, 2,23, 3) = (/&
4447
6
 & 1.1793E-05_JPRB,1.1619E-03_JPRB,2.0732E-03_JPRB,2.8684E-03_JPRB,3.4159E-03_JPRB/)
4448
KBO( :, 3,23, 3) = (/&
4449
6
 & 2.0715E-05_JPRB,1.2879E-03_JPRB,2.2459E-03_JPRB,3.0558E-03_JPRB,3.5445E-03_JPRB/)
4450
KBO( :, 4,23, 3) = (/&
4451
6
 & 3.4551E-05_JPRB,1.4176E-03_JPRB,2.4147E-03_JPRB,3.2275E-03_JPRB,3.6395E-03_JPRB/)
4452
KBO( :, 5,23, 3) = (/&
4453
6
 & 5.4641E-05_JPRB,1.5512E-03_JPRB,2.5804E-03_JPRB,3.3885E-03_JPRB,3.7034E-03_JPRB/)
4454
KBO( :, 1,24, 3) = (/&
4455
6
 & 6.0670E-06_JPRB,8.7365E-04_JPRB,1.5859E-03_JPRB,2.2204E-03_JPRB,2.6897E-03_JPRB/)
4456
KBO( :, 2,24, 3) = (/&
4457
6
 & 1.0981E-05_JPRB,9.7532E-04_JPRB,1.7303E-03_JPRB,2.3852E-03_JPRB,2.8188E-03_JPRB/)
4458
KBO( :, 3,24, 3) = (/&
4459
6
 & 1.9078E-05_JPRB,1.0799E-03_JPRB,1.8727E-03_JPRB,2.5367E-03_JPRB,2.9175E-03_JPRB/)
4460
KBO( :, 4,24, 3) = (/&
4461
6
 & 3.1407E-05_JPRB,1.1876E-03_JPRB,2.0114E-03_JPRB,2.6770E-03_JPRB,2.9899E-03_JPRB/)
4462
KBO( :, 5,24, 3) = (/&
4463
6
 & 4.9067E-05_JPRB,1.2997E-03_JPRB,2.1481E-03_JPRB,2.8086E-03_JPRB,3.0371E-03_JPRB/)
4464
KBO( :, 1,25, 3) = (/&
4465
6
 & 5.6989E-06_JPRB,7.3485E-04_JPRB,1.3264E-03_JPRB,1.8506E-03_JPRB,2.2259E-03_JPRB/)
4466
KBO( :, 2,25, 3) = (/&
4467
6
 & 1.0240E-05_JPRB,8.1910E-04_JPRB,1.4452E-03_JPRB,1.9836E-03_JPRB,2.3255E-03_JPRB/)
4468
KBO( :, 3,25, 3) = (/&
4469
6
 & 1.7580E-05_JPRB,9.0587E-04_JPRB,1.5621E-03_JPRB,2.1066E-03_JPRB,2.4014E-03_JPRB/)
4470
KBO( :, 4,25, 3) = (/&
4471
6
 & 2.8572E-05_JPRB,9.9581E-04_JPRB,1.6762E-03_JPRB,2.2210E-03_JPRB,2.4559E-03_JPRB/)
4472
KBO( :, 5,25, 3) = (/&
4473
6
 & 4.4075E-05_JPRB,1.0904E-03_JPRB,1.7895E-03_JPRB,2.3285E-03_JPRB,2.4904E-03_JPRB/)
4474
KBO( :, 1,26, 3) = (/&
4475
6
 & 5.4044E-06_JPRB,6.1917E-04_JPRB,1.1109E-03_JPRB,1.5435E-03_JPRB,1.8428E-03_JPRB/)
4476
KBO( :, 2,26, 3) = (/&
4477
6
 & 9.6129E-06_JPRB,6.8903E-04_JPRB,1.2086E-03_JPRB,1.6510E-03_JPRB,1.9194E-03_JPRB/)
4478
KBO( :, 3,26, 3) = (/&
4479
6
 & 1.6279E-05_JPRB,7.6112E-04_JPRB,1.3044E-03_JPRB,1.7509E-03_JPRB,1.9770E-03_JPRB/)
4480
KBO( :, 4,26, 3) = (/&
4481
6
 & 2.6098E-05_JPRB,8.3688E-04_JPRB,1.3985E-03_JPRB,1.8442E-03_JPRB,2.0178E-03_JPRB/)
4482
KBO( :, 5,26, 3) = (/&
4483
6
 & 3.9757E-05_JPRB,9.1748E-04_JPRB,1.4931E-03_JPRB,1.9319E-03_JPRB,2.0426E-03_JPRB/)
4484
KBO( :, 1,27, 3) = (/&
4485
6
 & 5.1208E-06_JPRB,5.2155E-04_JPRB,9.3033E-04_JPRB,1.2869E-03_JPRB,1.5252E-03_JPRB/)
4486
KBO( :, 2,27, 3) = (/&
4487
6
 & 9.0050E-06_JPRB,5.7947E-04_JPRB,1.0106E-03_JPRB,1.3741E-03_JPRB,1.5841E-03_JPRB/)
4488
KBO( :, 3,27, 3) = (/&
4489
6
 & 1.5028E-05_JPRB,6.3999E-04_JPRB,1.0891E-03_JPRB,1.4551E-03_JPRB,1.6279E-03_JPRB/)
4490
KBO( :, 4,27, 3) = (/&
4491
6
 & 2.3771E-05_JPRB,7.0422E-04_JPRB,1.1674E-03_JPRB,1.5313E-03_JPRB,1.6583E-03_JPRB/)
4492
KBO( :, 5,27, 3) = (/&
4493
6
 & 3.5789E-05_JPRB,7.7220E-04_JPRB,1.2465E-03_JPRB,1.6033E-03_JPRB,1.6759E-03_JPRB/)
4494
KBO( :, 1,28, 3) = (/&
4495
6
 & 4.8426E-06_JPRB,4.3932E-04_JPRB,7.7909E-04_JPRB,1.0728E-03_JPRB,1.2619E-03_JPRB/)
4496
KBO( :, 2,28, 3) = (/&
4497
6
 & 8.4123E-06_JPRB,4.8757E-04_JPRB,8.4493E-04_JPRB,1.1435E-03_JPRB,1.3071E-03_JPRB/)
4498
KBO( :, 3,28, 3) = (/&
4499
6
 & 1.3833E-05_JPRB,5.3874E-04_JPRB,9.0955E-04_JPRB,1.2094E-03_JPRB,1.3406E-03_JPRB/)
4500
KBO( :, 4,28, 3) = (/&
4501
6
 & 2.1607E-05_JPRB,5.9328E-04_JPRB,9.7513E-04_JPRB,1.2716E-03_JPRB,1.3629E-03_JPRB/)
4502
KBO( :, 5,28, 3) = (/&
4503
6
 & 3.2146E-05_JPRB,6.4978E-04_JPRB,1.0416E-03_JPRB,1.3310E-03_JPRB,1.3752E-03_JPRB/)
4504
KBO( :, 1,29, 3) = (/&
4505
6
 & 4.5849E-06_JPRB,3.7023E-04_JPRB,6.5264E-04_JPRB,8.9457E-04_JPRB,1.0445E-03_JPRB/)
4506
KBO( :, 2,29, 3) = (/&
4507
6
 & 7.8572E-06_JPRB,4.1089E-04_JPRB,7.0665E-04_JPRB,9.5187E-04_JPRB,1.0793E-03_JPRB/)
4508
KBO( :, 3,29, 3) = (/&
4509
6
 & 1.2741E-05_JPRB,4.5436E-04_JPRB,7.6034E-04_JPRB,1.0055E-03_JPRB,1.1048E-03_JPRB/)
4510
KBO( :, 4,29, 3) = (/&
4511
6
 & 1.9649E-05_JPRB,4.9998E-04_JPRB,8.1550E-04_JPRB,1.0566E-03_JPRB,1.1213E-03_JPRB/)
4512
KBO( :, 5,29, 3) = (/&
4513
6
 & 2.8896E-05_JPRB,5.4682E-04_JPRB,8.7093E-04_JPRB,1.1060E-03_JPRB,1.1298E-03_JPRB/)
4514
KBO( :, 1,30, 3) = (/&
4515
6
 & 4.3297E-06_JPRB,3.1217E-04_JPRB,5.4663E-04_JPRB,7.4580E-04_JPRB,8.6464E-04_JPRB/)
4516
KBO( :, 2,30, 3) = (/&
4517
6
 & 7.3120E-06_JPRB,3.4668E-04_JPRB,5.9106E-04_JPRB,7.9232E-04_JPRB,8.9143E-04_JPRB/)
4518
KBO( :, 3,30, 3) = (/&
4519
6
 & 1.1705E-05_JPRB,3.8338E-04_JPRB,6.3627E-04_JPRB,8.3604E-04_JPRB,9.1074E-04_JPRB/)
4520
KBO( :, 4,30, 3) = (/&
4521
6
 & 1.7828E-05_JPRB,4.2125E-04_JPRB,6.8249E-04_JPRB,8.7824E-04_JPRB,9.2283E-04_JPRB/)
4522
KBO( :, 5,30, 3) = (/&
4523
6
 & 2.5924E-05_JPRB,4.5966E-04_JPRB,7.2827E-04_JPRB,9.1964E-04_JPRB,9.2875E-04_JPRB/)
4524
KBO( :, 1,31, 3) = (/&
4525
6
 & 4.0874E-06_JPRB,2.6368E-04_JPRB,4.5791E-04_JPRB,6.2183E-04_JPRB,7.1613E-04_JPRB/)
4526
KBO( :, 2,31, 3) = (/&
4527
6
 & 6.8015E-06_JPRB,2.9293E-04_JPRB,4.9490E-04_JPRB,6.5949E-04_JPRB,7.3687E-04_JPRB/)
4528
KBO( :, 3,31, 3) = (/&
4529
6
 & 1.0746E-05_JPRB,3.2348E-04_JPRB,5.3298E-04_JPRB,6.9547E-04_JPRB,7.5159E-04_JPRB/)
4530
KBO( :, 4,31, 3) = (/&
4531
6
 & 1.6163E-05_JPRB,3.5480E-04_JPRB,5.7136E-04_JPRB,7.3073E-04_JPRB,7.6056E-04_JPRB/)
4532
KBO( :, 5,31, 3) = (/&
4533
6
 & 2.3251E-05_JPRB,3.8597E-04_JPRB,6.0897E-04_JPRB,7.6515E-04_JPRB,7.6467E-04_JPRB/)
4534
KBO( :, 1,32, 3) = (/&
4535
6
 & 3.8514E-06_JPRB,2.2297E-04_JPRB,3.8374E-04_JPRB,5.1829E-04_JPRB,5.9305E-04_JPRB/)
4536
KBO( :, 2,32, 3) = (/&
4537
6
 & 6.3168E-06_JPRB,2.4754E-04_JPRB,4.1485E-04_JPRB,5.4904E-04_JPRB,6.0924E-04_JPRB/)
4538
KBO( :, 3,32, 3) = (/&
4539
6
 & 9.8501E-06_JPRB,2.7292E-04_JPRB,4.4681E-04_JPRB,5.7897E-04_JPRB,6.2044E-04_JPRB/)
4540
KBO( :, 4,32, 3) = (/&
4541
6
 & 1.4638E-05_JPRB,2.9846E-04_JPRB,4.7840E-04_JPRB,6.0852E-04_JPRB,6.2707E-04_JPRB/)
4542
KBO( :, 5,32, 3) = (/&
4543
6
 & 2.0831E-05_JPRB,3.2361E-04_JPRB,5.0883E-04_JPRB,6.3658E-04_JPRB,6.2999E-04_JPRB/)
4544
KBO( :, 1,33, 3) = (/&
4545
6
 & 3.6163E-06_JPRB,1.8866E-04_JPRB,3.2190E-04_JPRB,4.3205E-04_JPRB,4.9144E-04_JPRB/)
4546
KBO( :, 2,33, 3) = (/&
4547
6
 & 5.8503E-06_JPRB,2.0912E-04_JPRB,3.4811E-04_JPRB,4.5736E-04_JPRB,5.0397E-04_JPRB/)
4548
KBO( :, 3,33, 3) = (/&
4549
6
 & 9.0067E-06_JPRB,2.2999E-04_JPRB,3.7456E-04_JPRB,4.8239E-04_JPRB,5.1238E-04_JPRB/)
4550
KBO( :, 4,33, 3) = (/&
4551
6
 & 1.3226E-05_JPRB,2.5067E-04_JPRB,4.0039E-04_JPRB,5.0676E-04_JPRB,5.1732E-04_JPRB/)
4552
KBO( :, 5,33, 3) = (/&
4553
6
 & 1.8631E-05_JPRB,2.7107E-04_JPRB,4.2476E-04_JPRB,5.2963E-04_JPRB,5.1944E-04_JPRB/)
4554
KBO( :, 1,34, 3) = (/&
4555
6
 & 3.3238E-06_JPRB,1.5902E-04_JPRB,2.6946E-04_JPRB,3.5933E-04_JPRB,4.0648E-04_JPRB/)
4556
KBO( :, 2,34, 3) = (/&
4557
6
 & 5.3166E-06_JPRB,1.7590E-04_JPRB,2.9135E-04_JPRB,3.8047E-04_JPRB,4.1623E-04_JPRB/)
4558
KBO( :, 3,34, 3) = (/&
4559
6
 & 8.0935E-06_JPRB,1.9289E-04_JPRB,3.1309E-04_JPRB,4.0135E-04_JPRB,4.2273E-04_JPRB/)
4560
KBO( :, 4,34, 3) = (/&
4561
6
 & 1.1767E-05_JPRB,2.0963E-04_JPRB,3.3398E-04_JPRB,4.2136E-04_JPRB,4.2646E-04_JPRB/)
4562
KBO( :, 5,34, 3) = (/&
4563
6
 & 1.6441E-05_JPRB,2.2628E-04_JPRB,3.5340E-04_JPRB,4.3976E-04_JPRB,4.2791E-04_JPRB/)
4564
KBO( :, 1,35, 3) = (/&
4565
6
 & 2.9067E-06_JPRB,1.3259E-04_JPRB,2.2393E-04_JPRB,2.9733E-04_JPRB,3.3540E-04_JPRB/)
4566
KBO( :, 2,35, 3) = (/&
4567
6
 & 4.6187E-06_JPRB,1.4644E-04_JPRB,2.4206E-04_JPRB,3.1503E-04_JPRB,3.4321E-04_JPRB/)
4568
KBO( :, 3,35, 3) = (/&
4569
6
 & 6.9869E-06_JPRB,1.6027E-04_JPRB,2.5990E-04_JPRB,3.3236E-04_JPRB,3.4842E-04_JPRB/)
4570
KBO( :, 4,35, 3) = (/&
4571
6
 & 1.0104E-05_JPRB,1.7387E-04_JPRB,2.7672E-04_JPRB,3.4881E-04_JPRB,3.5145E-04_JPRB/)
4572
KBO( :, 5,35, 3) = (/&
4573
6
 & 1.4052E-05_JPRB,1.8746E-04_JPRB,2.9226E-04_JPRB,3.6359E-04_JPRB,3.5262E-04_JPRB/)
4574
KBO( :, 1,36, 3) = (/&
4575
6
 & 2.4089E-06_JPRB,1.0927E-04_JPRB,1.8451E-04_JPRB,2.4455E-04_JPRB,2.7594E-04_JPRB/)
4576
KBO( :, 2,36, 3) = (/&
4577
6
 & 3.8233E-06_JPRB,1.2060E-04_JPRB,1.9949E-04_JPRB,2.5938E-04_JPRB,2.8242E-04_JPRB/)
4578
KBO( :, 3,36, 3) = (/&
4579
6
 & 5.7778E-06_JPRB,1.3185E-04_JPRB,2.1404E-04_JPRB,2.7372E-04_JPRB,2.8680E-04_JPRB/)
4580
KBO( :, 4,36, 3) = (/&
4581
6
 & 8.3484E-06_JPRB,1.4295E-04_JPRB,2.2765E-04_JPRB,2.8727E-04_JPRB,2.8945E-04_JPRB/)
4582
KBO( :, 5,36, 3) = (/&
4583
6
 & 1.1603E-05_JPRB,1.5407E-04_JPRB,2.4022E-04_JPRB,2.9918E-04_JPRB,2.9054E-04_JPRB/)
4584
KBO( :, 1,37, 3) = (/&
4585
6
 & 1.8525E-06_JPRB,8.8636E-05_JPRB,1.5015E-04_JPRB,1.9932E-04_JPRB,2.2585E-04_JPRB/)
4586
4587
1
IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART15',1,ZHOOK_HANDLE)
4588
1
END SUBROUTINE PART15
4589
4590
4591
1
SUBROUTINE PART16
4592
4593
REAL(KIND=JPRB) :: ZHOOK_HANDLE
4594
1
IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART16',0,ZHOOK_HANDLE)
4595
4596
4597
KBO( :, 2,37, 3) = (/&
4598
6
 & 2.9593E-06_JPRB,9.7894E-05_JPRB,1.6249E-04_JPRB,2.1170E-04_JPRB,2.3148E-04_JPRB/)
4599
KBO( :, 3,37, 3) = (/&
4600
6
 & 4.5018E-06_JPRB,1.0706E-04_JPRB,1.7444E-04_JPRB,2.2370E-04_JPRB,2.3543E-04_JPRB/)
4601
KBO( :, 4,37, 3) = (/&
4602
6
 & 6.5383E-06_JPRB,1.1615E-04_JPRB,1.8559E-04_JPRB,2.3492E-04_JPRB,2.3791E-04_JPRB/)
4603
KBO( :, 5,37, 3) = (/&
4604
6
 & 9.1296E-06_JPRB,1.2523E-04_JPRB,1.9593E-04_JPRB,2.4478E-04_JPRB,2.3911E-04_JPRB/)
4605
KBO( :, 1,38, 3) = (/&
4606
6
 & 1.4171E-06_JPRB,7.1807E-05_JPRB,1.2206E-04_JPRB,1.6233E-04_JPRB,1.8481E-04_JPRB/)
4607
KBO( :, 2,38, 3) = (/&
4608
6
 & 2.2804E-06_JPRB,7.9379E-05_JPRB,1.3224E-04_JPRB,1.7271E-04_JPRB,1.8979E-04_JPRB/)
4609
KBO( :, 3,38, 3) = (/&
4610
6
 & 3.4913E-06_JPRB,8.6867E-05_JPRB,1.4204E-04_JPRB,1.8270E-04_JPRB,1.9335E-04_JPRB/)
4611
KBO( :, 4,38, 3) = (/&
4612
6
 & 5.1024E-06_JPRB,9.4294E-05_JPRB,1.5119E-04_JPRB,1.9201E-04_JPRB,1.9566E-04_JPRB/)
4613
KBO( :, 5,38, 3) = (/&
4614
6
 & 7.1603E-06_JPRB,1.0172E-04_JPRB,1.5970E-04_JPRB,2.0015E-04_JPRB,1.9689E-04_JPRB/)
4615
KBO( :, 1,39, 3) = (/&
4616
6
 & 1.0836E-06_JPRB,5.8166E-05_JPRB,9.9215E-05_JPRB,1.3222E-04_JPRB,1.5133E-04_JPRB/)
4617
KBO( :, 2,39, 3) = (/&
4618
6
 & 1.7555E-06_JPRB,6.4345E-05_JPRB,1.0758E-04_JPRB,1.4088E-04_JPRB,1.5570E-04_JPRB/)
4619
KBO( :, 3,39, 3) = (/&
4620
6
 & 2.7062E-06_JPRB,7.0477E-05_JPRB,1.1564E-04_JPRB,1.4921E-04_JPRB,1.5890E-04_JPRB/)
4621
KBO( :, 4,39, 3) = (/&
4622
6
 & 3.9795E-06_JPRB,7.6546E-05_JPRB,1.2316E-04_JPRB,1.5693E-04_JPRB,1.6103E-04_JPRB/)
4623
KBO( :, 5,39, 3) = (/&
4624
6
 & 5.6128E-06_JPRB,8.2626E-05_JPRB,1.3018E-04_JPRB,1.6363E-04_JPRB,1.6230E-04_JPRB/)
4625
KBO( :, 1,40, 3) = (/&
4626
6
 & 7.8445E-07_JPRB,4.6585E-05_JPRB,7.9902E-05_JPRB,1.0692E-04_JPRB,1.2321E-04_JPRB/)
4627
KBO( :, 2,40, 3) = (/&
4628
6
 & 1.2866E-06_JPRB,5.1634E-05_JPRB,8.6802E-05_JPRB,1.1417E-04_JPRB,1.2708E-04_JPRB/)
4629
KBO( :, 3,40, 3) = (/&
4630
6
 & 2.0073E-06_JPRB,5.6656E-05_JPRB,9.3478E-05_JPRB,1.2114E-04_JPRB,1.2998E-04_JPRB/)
4631
KBO( :, 4,40, 3) = (/&
4632
6
 & 2.9837E-06_JPRB,6.1628E-05_JPRB,9.9689E-05_JPRB,1.2758E-04_JPRB,1.3201E-04_JPRB/)
4633
KBO( :, 5,40, 3) = (/&
4634
6
 & 4.2474E-06_JPRB,6.6601E-05_JPRB,1.0552E-04_JPRB,1.3318E-04_JPRB,1.3326E-04_JPRB/)
4635
KBO( :, 1,41, 3) = (/&
4636
6
 & 5.6200E-07_JPRB,3.7239E-05_JPRB,6.4245E-05_JPRB,8.6338E-05_JPRB,1.0021E-04_JPRB/)
4637
KBO( :, 2,41, 3) = (/&
4638
6
 & 9.3423E-07_JPRB,4.1365E-05_JPRB,6.9922E-05_JPRB,9.2387E-05_JPRB,1.0362E-04_JPRB/)
4639
KBO( :, 3,41, 3) = (/&
4640
6
 & 1.4759E-06_JPRB,4.5473E-05_JPRB,7.5442E-05_JPRB,9.8211E-05_JPRB,1.0623E-04_JPRB/)
4641
KBO( :, 4,41, 3) = (/&
4642
6
 & 2.2204E-06_JPRB,4.9548E-05_JPRB,8.0603E-05_JPRB,1.0362E-04_JPRB,1.0811E-04_JPRB/)
4643
KBO( :, 5,41, 3) = (/&
4644
6
 & 3.1941E-06_JPRB,5.3616E-05_JPRB,8.5442E-05_JPRB,1.0831E-04_JPRB,1.0933E-04_JPRB/)
4645
KBO( :, 1,42, 3) = (/&
4646
6
 & 4.0111E-07_JPRB,2.9743E-05_JPRB,5.1608E-05_JPRB,6.9660E-05_JPRB,8.1453E-05_JPRB/)
4647
KBO( :, 2,42, 3) = (/&
4648
6
 & 6.7588E-07_JPRB,3.3120E-05_JPRB,5.6295E-05_JPRB,7.4726E-05_JPRB,8.4452E-05_JPRB/)
4649
KBO( :, 3,42, 3) = (/&
4650
6
 & 1.0815E-06_JPRB,3.6481E-05_JPRB,6.0861E-05_JPRB,7.9587E-05_JPRB,8.6802E-05_JPRB/)
4651
KBO( :, 4,42, 3) = (/&
4652
6
 & 1.6472E-06_JPRB,3.9818E-05_JPRB,6.5135E-05_JPRB,8.4095E-05_JPRB,8.8535E-05_JPRB/)
4653
KBO( :, 5,42, 3) = (/&
4654
6
 & 2.3953E-06_JPRB,4.3150E-05_JPRB,6.9163E-05_JPRB,8.8053E-05_JPRB,8.9707E-05_JPRB/)
4655
KBO( :, 1,43, 3) = (/&
4656
6
 & 2.7634E-07_JPRB,2.3586E-05_JPRB,4.1208E-05_JPRB,5.5916E-05_JPRB,6.5980E-05_JPRB/)
4657
KBO( :, 2,43, 3) = (/&
4658
6
 & 4.7339E-07_JPRB,2.6349E-05_JPRB,4.5082E-05_JPRB,6.0171E-05_JPRB,6.8655E-05_JPRB/)
4659
KBO( :, 3,43, 3) = (/&
4660
6
 & 7.6946E-07_JPRB,2.9095E-05_JPRB,4.8858E-05_JPRB,6.4228E-05_JPRB,7.0769E-05_JPRB/)
4661
KBO( :, 4,43, 3) = (/&
4662
6
 & 1.1899E-06_JPRB,3.1831E-05_JPRB,5.2419E-05_JPRB,6.8020E-05_JPRB,7.2392E-05_JPRB/)
4663
KBO( :, 5,43, 3) = (/&
4664
6
 & 1.7542E-06_JPRB,3.4560E-05_JPRB,5.5769E-05_JPRB,7.1373E-05_JPRB,7.3520E-05_JPRB/)
4665
KBO( :, 1,44, 3) = (/&
4666
6
 & 1.8677E-07_JPRB,1.8630E-05_JPRB,3.2790E-05_JPRB,4.4748E-05_JPRB,5.3325E-05_JPRB/)
4667
KBO( :, 2,44, 3) = (/&
4668
6
 & 3.2545E-07_JPRB,2.0878E-05_JPRB,3.5981E-05_JPRB,4.8304E-05_JPRB,5.5702E-05_JPRB/)
4669
KBO( :, 3,44, 3) = (/&
4670
6
 & 5.3812E-07_JPRB,2.3132E-05_JPRB,3.9119E-05_JPRB,5.1707E-05_JPRB,5.7625E-05_JPRB/)
4671
KBO( :, 4,44, 3) = (/&
4672
6
 & 8.4624E-07_JPRB,2.5378E-05_JPRB,4.2094E-05_JPRB,5.4904E-05_JPRB,5.9117E-05_JPRB/)
4673
KBO( :, 5,44, 3) = (/&
4674
6
 & 1.2670E-06_JPRB,2.7605E-05_JPRB,4.4873E-05_JPRB,5.7740E-05_JPRB,6.0210E-05_JPRB/)
4675
KBO( :, 1,45, 3) = (/&
4676
6
 & 1.2570E-07_JPRB,1.4697E-05_JPRB,2.6055E-05_JPRB,3.5757E-05_JPRB,4.3043E-05_JPRB/)
4677
KBO( :, 2,45, 3) = (/&
4678
6
 & 2.2228E-07_JPRB,1.6531E-05_JPRB,2.8696E-05_JPRB,3.8740E-05_JPRB,4.5168E-05_JPRB/)
4679
KBO( :, 3,45, 3) = (/&
4680
6
 & 3.7425E-07_JPRB,1.8375E-05_JPRB,3.1286E-05_JPRB,4.1584E-05_JPRB,4.6892E-05_JPRB/)
4681
KBO( :, 4,45, 3) = (/&
4682
6
 & 5.9851E-07_JPRB,2.0210E-05_JPRB,3.3765E-05_JPRB,4.4275E-05_JPRB,4.8273E-05_JPRB/)
4683
KBO( :, 5,45, 3) = (/&
4684
6
 & 9.1064E-07_JPRB,2.2043E-05_JPRB,3.6086E-05_JPRB,4.6686E-05_JPRB,4.9306E-05_JPRB/)
4685
KBO( :, 1,46, 3) = (/&
4686
6
 & 8.3151E-08_JPRB,1.1545E-05_JPRB,2.0622E-05_JPRB,2.8475E-05_JPRB,3.4643E-05_JPRB/)
4687
KBO( :, 2,46, 3) = (/&
4688
6
 & 1.4909E-07_JPRB,1.3038E-05_JPRB,2.2804E-05_JPRB,3.0968E-05_JPRB,3.6538E-05_JPRB/)
4689
KBO( :, 3,46, 3) = (/&
4690
6
 & 2.5589E-07_JPRB,1.4552E-05_JPRB,2.4958E-05_JPRB,3.3368E-05_JPRB,3.8096E-05_JPRB/)
4691
KBO( :, 4,46, 3) = (/&
4692
6
 & 4.1668E-07_JPRB,1.6050E-05_JPRB,2.7017E-05_JPRB,3.5626E-05_JPRB,3.9358E-05_JPRB/)
4693
KBO( :, 5,46, 3) = (/&
4694
6
 & 6.4518E-07_JPRB,1.7554E-05_JPRB,2.8957E-05_JPRB,3.7672E-05_JPRB,4.0331E-05_JPRB/)
4695
KBO( :, 1,47, 3) = (/&
4696
6
 & 5.3540E-08_JPRB,9.0044E-06_JPRB,1.6219E-05_JPRB,2.2547E-05_JPRB,2.7739E-05_JPRB/)
4697
KBO( :, 2,47, 3) = (/&
4698
6
 & 9.7029E-08_JPRB,1.0218E-05_JPRB,1.8025E-05_JPRB,2.4635E-05_JPRB,2.9430E-05_JPRB/)
4699
KBO( :, 3,47, 3) = (/&
4700
6
 & 1.6982E-07_JPRB,1.1454E-05_JPRB,1.9806E-05_JPRB,2.6651E-05_JPRB,3.0836E-05_JPRB/)
4701
KBO( :, 4,47, 3) = (/&
4702
6
 & 2.8228E-07_JPRB,1.2681E-05_JPRB,2.1522E-05_JPRB,2.8552E-05_JPRB,3.1984E-05_JPRB/)
4703
KBO( :, 5,47, 3) = (/&
4704
6
 & 4.4593E-07_JPRB,1.3911E-05_JPRB,2.3146E-05_JPRB,3.0298E-05_JPRB,3.2902E-05_JPRB/)
4705
KBO( :, 1,48, 3) = (/&
4706
6
 & 3.4557E-08_JPRB,7.0084E-06_JPRB,1.2731E-05_JPRB,1.7817E-05_JPRB,2.2170E-05_JPRB/)
4707
KBO( :, 2,48, 3) = (/&
4708
6
 & 6.2743E-08_JPRB,7.9919E-06_JPRB,1.4216E-05_JPRB,1.9554E-05_JPRB,2.3663E-05_JPRB/)
4709
KBO( :, 3,48, 3) = (/&
4710
6
 & 1.1169E-07_JPRB,8.9994E-06_JPRB,1.5688E-05_JPRB,2.1246E-05_JPRB,2.4930E-05_JPRB/)
4711
KBO( :, 4,48, 3) = (/&
4712
6
 & 1.8970E-07_JPRB,1.0009E-05_JPRB,1.7121E-05_JPRB,2.2855E-05_JPRB,2.5977E-05_JPRB/)
4713
KBO( :, 5,48, 3) = (/&
4714
6
 & 3.0578E-07_JPRB,1.1013E-05_JPRB,1.8479E-05_JPRB,2.4337E-05_JPRB,2.6830E-05_JPRB/)
4715
KBO( :, 1,49, 3) = (/&
4716
6
 & 2.2502E-08_JPRB,5.4403E-06_JPRB,9.9701E-06_JPRB,1.4043E-05_JPRB,1.7685E-05_JPRB/)
4717
KBO( :, 2,49, 3) = (/&
4718
6
 & 4.0407E-08_JPRB,6.2386E-06_JPRB,1.1187E-05_JPRB,1.5489E-05_JPRB,1.8999E-05_JPRB/)
4719
KBO( :, 3,49, 3) = (/&
4720
6
 & 7.2903E-08_JPRB,7.0592E-06_JPRB,1.2408E-05_JPRB,1.6909E-05_JPRB,2.0138E-05_JPRB/)
4721
KBO( :, 4,49, 3) = (/&
4722
6
 & 1.2643E-07_JPRB,7.8874E-06_JPRB,1.3602E-05_JPRB,1.8265E-05_JPRB,2.1093E-05_JPRB/)
4723
KBO( :, 5,49, 3) = (/&
4724
6
 & 2.0803E-07_JPRB,8.7090E-06_JPRB,1.4734E-05_JPRB,1.9523E-05_JPRB,2.1885E-05_JPRB/)
4725
KBO( :, 1,50, 3) = (/&
4726
6
 & 1.5095E-08_JPRB,4.2287E-06_JPRB,7.8121E-06_JPRB,1.1070E-05_JPRB,1.4078E-05_JPRB/)
4727
KBO( :, 2,50, 3) = (/&
4728
6
 & 2.6427E-08_JPRB,4.8766E-06_JPRB,8.8105E-06_JPRB,1.2276E-05_JPRB,1.5222E-05_JPRB/)
4729
KBO( :, 3,50, 3) = (/&
4730
6
 & 4.7991E-08_JPRB,5.5443E-06_JPRB,9.8192E-06_JPRB,1.3460E-05_JPRB,1.6227E-05_JPRB/)
4731
KBO( :, 4,50, 3) = (/&
4732
6
 & 8.4675E-08_JPRB,6.2215E-06_JPRB,1.0811E-05_JPRB,1.4600E-05_JPRB,1.7078E-05_JPRB/)
4733
KBO( :, 5,50, 3) = (/&
4734
6
 & 1.4213E-07_JPRB,6.8957E-06_JPRB,1.1757E-05_JPRB,1.5668E-05_JPRB,1.7797E-05_JPRB/)
4735
KBO( :, 1,51, 3) = (/&
4736
6
 & 1.0409E-08_JPRB,3.2863E-06_JPRB,6.1164E-06_JPRB,8.7177E-06_JPRB,1.1179E-05_JPRB/)
4737
KBO( :, 2,51, 3) = (/&
4738
6
 & 1.7475E-08_JPRB,3.8101E-06_JPRB,6.9343E-06_JPRB,9.7209E-06_JPRB,1.2172E-05_JPRB/)
4739
KBO( :, 3,51, 3) = (/&
4740
6
 & 3.1652E-08_JPRB,4.3546E-06_JPRB,7.7683E-06_JPRB,1.0708E-05_JPRB,1.3048E-05_JPRB/)
4741
KBO( :, 4,51, 3) = (/&
4742
6
 & 5.6664E-08_JPRB,4.9075E-06_JPRB,8.5891E-06_JPRB,1.1663E-05_JPRB,1.3802E-05_JPRB/)
4743
KBO( :, 5,51, 3) = (/&
4744
6
 & 9.6978E-08_JPRB,5.4606E-06_JPRB,9.3785E-06_JPRB,1.2566E-05_JPRB,1.4438E-05_JPRB/)
4745
KBO( :, 1,52, 3) = (/&
4746
6
 & 7.3730E-09_JPRB,2.5481E-06_JPRB,4.7781E-06_JPRB,6.8480E-06_JPRB,8.8551E-06_JPRB/)
4747
KBO( :, 2,52, 3) = (/&
4748
6
 & 1.1665E-08_JPRB,2.9707E-06_JPRB,5.4480E-06_JPRB,7.6826E-06_JPRB,9.7180E-06_JPRB/)
4749
KBO( :, 3,52, 3) = (/&
4750
6
 & 2.0839E-08_JPRB,3.4136E-06_JPRB,6.1334E-06_JPRB,8.5017E-06_JPRB,1.0476E-05_JPRB/)
4751
KBO( :, 4,52, 3) = (/&
4752
6
 & 3.7702E-08_JPRB,3.8651E-06_JPRB,6.8133E-06_JPRB,9.3029E-06_JPRB,1.1144E-05_JPRB/)
4753
KBO( :, 5,52, 3) = (/&
4754
6
 & 6.5719E-08_JPRB,4.3178E-06_JPRB,7.4715E-06_JPRB,1.0064E-05_JPRB,1.1709E-05_JPRB/)
4755
KBO( :, 1,53, 3) = (/&
4756
6
 & 5.3750E-09_JPRB,1.9710E-06_JPRB,3.7222E-06_JPRB,5.3652E-06_JPRB,6.9985E-06_JPRB/)
4757
KBO( :, 2,53, 3) = (/&
4758
6
 & 7.9112E-09_JPRB,2.3105E-06_JPRB,4.2696E-06_JPRB,6.0569E-06_JPRB,7.7450E-06_JPRB/)
4759
KBO( :, 3,53, 3) = (/&
4760
6
 & 1.3727E-08_JPRB,2.6711E-06_JPRB,4.8332E-06_JPRB,6.7376E-06_JPRB,8.4040E-06_JPRB/)
4761
KBO( :, 4,53, 3) = (/&
4762
6
 & 2.4945E-08_JPRB,3.0391E-06_JPRB,5.3954E-06_JPRB,7.4078E-06_JPRB,8.9922E-06_JPRB/)
4763
KBO( :, 5,53, 3) = (/&
4764
6
 & 4.4184E-08_JPRB,3.4095E-06_JPRB,5.9433E-06_JPRB,8.0475E-06_JPRB,9.4957E-06_JPRB/)
4765
KBO( :, 1,54, 3) = (/&
4766
6
 & 4.0653E-09_JPRB,1.5287E-06_JPRB,2.9053E-06_JPRB,4.2078E-06_JPRB,5.5137E-06_JPRB/)
4767
KBO( :, 2,54, 3) = (/&
4768
6
 & 5.5613E-09_JPRB,1.8017E-06_JPRB,3.3529E-06_JPRB,4.7820E-06_JPRB,6.1506E-06_JPRB/)
4769
KBO( :, 3,54, 3) = (/&
4770
6
 & 9.2526E-09_JPRB,2.0941E-06_JPRB,3.8143E-06_JPRB,5.3462E-06_JPRB,6.7127E-06_JPRB/)
4771
KBO( :, 4,54, 3) = (/&
4772
6
 & 1.6740E-08_JPRB,2.3952E-06_JPRB,4.2796E-06_JPRB,5.9051E-06_JPRB,7.2164E-06_JPRB/)
4773
KBO( :, 5,54, 3) = (/&
4774
6
 & 3.0031E-08_JPRB,2.6979E-06_JPRB,4.7338E-06_JPRB,6.4403E-06_JPRB,7.6524E-06_JPRB/)
4775
KBO( :, 1,55, 3) = (/&
4776
6
 & 3.1540E-09_JPRB,1.1858E-06_JPRB,2.2670E-06_JPRB,3.2967E-06_JPRB,4.3283E-06_JPRB/)
4777
KBO( :, 2,55, 3) = (/&
4778
6
 & 4.0196E-09_JPRB,1.4051E-06_JPRB,2.6332E-06_JPRB,3.7741E-06_JPRB,4.8678E-06_JPRB/)
4779
KBO( :, 3,55, 3) = (/&
4780
6
 & 6.3379E-09_JPRB,1.6423E-06_JPRB,3.0104E-06_JPRB,4.2413E-06_JPRB,5.3455E-06_JPRB/)
4781
KBO( :, 4,55, 3) = (/&
4782
6
 & 1.1312E-08_JPRB,1.8877E-06_JPRB,3.3935E-06_JPRB,4.7052E-06_JPRB,5.7689E-06_JPRB/)
4783
KBO( :, 5,55, 3) = (/&
4784
6
 & 2.0477E-08_JPRB,2.1358E-06_JPRB,3.7709E-06_JPRB,5.1537E-06_JPRB,6.1417E-06_JPRB/)
4785
KBO( :, 1,56, 3) = (/&
4786
6
 & 2.4885E-09_JPRB,9.1751E-07_JPRB,1.7642E-06_JPRB,2.5751E-06_JPRB,3.3880E-06_JPRB/)
4787
KBO( :, 2,56, 3) = (/&
4788
6
 & 2.9720E-09_JPRB,1.0942E-06_JPRB,2.0641E-06_JPRB,2.9723E-06_JPRB,3.8440E-06_JPRB/)
4789
KBO( :, 3,56, 3) = (/&
4790
6
 & 4.3988E-09_JPRB,1.2857E-06_JPRB,2.3716E-06_JPRB,3.3596E-06_JPRB,4.2506E-06_JPRB/)
4791
KBO( :, 4,56, 3) = (/&
4792
6
 & 7.6547E-09_JPRB,1.4859E-06_JPRB,2.6877E-06_JPRB,3.7438E-06_JPRB,4.6065E-06_JPRB/)
4793
KBO( :, 5,56, 3) = (/&
4794
6
 & 1.3911E-08_JPRB,1.6888E-06_JPRB,2.9997E-06_JPRB,4.1185E-06_JPRB,4.9232E-06_JPRB/)
4795
KBO( :, 1,57, 3) = (/&
4796
6
 & 1.9886E-09_JPRB,7.0763E-07_JPRB,1.3683E-06_JPRB,2.0041E-06_JPRB,2.6428E-06_JPRB/)
4797
KBO( :, 2,57, 3) = (/&
4798
6
 & 2.2504E-09_JPRB,8.5035E-07_JPRB,1.6145E-06_JPRB,2.3353E-06_JPRB,3.0283E-06_JPRB/)
4799
KBO( :, 3,57, 3) = (/&
4800
6
 & 3.1057E-09_JPRB,1.0047E-06_JPRB,1.8650E-06_JPRB,2.6564E-06_JPRB,3.3731E-06_JPRB/)
4801
KBO( :, 4,57, 3) = (/&
4802
6
 & 5.1987E-09_JPRB,1.1674E-06_JPRB,2.1248E-06_JPRB,2.9740E-06_JPRB,3.6745E-06_JPRB/)
4803
KBO( :, 5,57, 3) = (/&
4804
6
 & 9.4155E-09_JPRB,1.3335E-06_JPRB,2.3825E-06_JPRB,3.2869E-06_JPRB,3.9424E-06_JPRB/)
4805
KBO( :, 1,58, 3) = (/&
4806
6
 & 1.6068E-09_JPRB,5.4596E-07_JPRB,1.0610E-06_JPRB,1.5587E-06_JPRB,2.0582E-06_JPRB/)
4807
KBO( :, 2,58, 3) = (/&
4808
6
 & 1.7459E-09_JPRB,6.6156E-07_JPRB,1.2631E-06_JPRB,1.8343E-06_JPRB,2.3824E-06_JPRB/)
4809
KBO( :, 3,58, 3) = (/&
4810
6
 & 2.2524E-09_JPRB,7.8545E-07_JPRB,1.4674E-06_JPRB,2.1005E-06_JPRB,2.6733E-06_JPRB/)
4811
KBO( :, 4,58, 3) = (/&
4812
6
 & 3.5899E-09_JPRB,9.1799E-07_JPRB,1.6806E-06_JPRB,2.3630E-06_JPRB,2.9296E-06_JPRB/)
4813
KBO( :, 5,58, 3) = (/&
4814
6
 & 6.4281E-09_JPRB,1.0538E-06_JPRB,1.8933E-06_JPRB,2.6237E-06_JPRB,3.1542E-06_JPRB/)
4815
KBO( :, 1,59, 3) = (/&
4816
6
 & 1.3115E-09_JPRB,4.3655E-07_JPRB,8.4995E-07_JPRB,1.2498E-06_JPRB,1.6427E-06_JPRB/)
4817
KBO( :, 2,59, 3) = (/&
4818
6
 & 1.4063E-09_JPRB,5.3104E-07_JPRB,1.0161E-06_JPRB,1.4776E-06_JPRB,1.9087E-06_JPRB/)
4819
KBO( :, 3,59, 3) = (/&
4820
6
 & 1.7670E-09_JPRB,6.3221E-07_JPRB,1.1839E-06_JPRB,1.6975E-06_JPRB,2.1469E-06_JPRB/)
4821
KBO( :, 4,59, 3) = (/&
4822
6
 & 2.7538E-09_JPRB,7.4064E-07_JPRB,1.3591E-06_JPRB,1.9143E-06_JPRB,2.3563E-06_JPRB/)
4823
KBO( :, 5,59, 3) = (/&
4824
6
 & 4.8966E-09_JPRB,8.5194E-07_JPRB,1.5343E-06_JPRB,2.1300E-06_JPRB,2.5372E-06_JPRB/)
4825
KBO( :, 1,13, 4) = (/&
4826
6
 & 1.4832E-04_JPRB,1.5698E-02_JPRB,2.8434E-02_JPRB,4.0000E-02_JPRB,5.0535E-02_JPRB/)
4827
KBO( :, 2,13, 4) = (/&
4828
6
 & 2.7354E-04_JPRB,1.7679E-02_JPRB,3.1476E-02_JPRB,4.3634E-02_JPRB,5.4373E-02_JPRB/)
4829
KBO( :, 3,13, 4) = (/&
4830
6
 & 4.7514E-04_JPRB,1.9768E-02_JPRB,3.4498E-02_JPRB,4.7113E-02_JPRB,5.7896E-02_JPRB/)
4831
KBO( :, 4,13, 4) = (/&
4832
6
 & 7.6575E-04_JPRB,2.1934E-02_JPRB,3.7431E-02_JPRB,5.0364E-02_JPRB,6.0901E-02_JPRB/)
4833
KBO( :, 5,13, 4) = (/&
4834
6
 & 1.1458E-03_JPRB,2.4148E-02_JPRB,4.0264E-02_JPRB,5.3231E-02_JPRB,6.3251E-02_JPRB/)
4835
KBO( :, 1,14, 4) = (/&
4836
6
 & 1.3350E-04_JPRB,1.3782E-02_JPRB,2.4857E-02_JPRB,3.4870E-02_JPRB,4.3573E-02_JPRB/)
4837
KBO( :, 2,14, 4) = (/&
4838
6
 & 2.4593E-04_JPRB,1.5547E-02_JPRB,2.7509E-02_JPRB,3.8001E-02_JPRB,4.6776E-02_JPRB/)
4839
KBO( :, 3,14, 4) = (/&
4840
6
 & 4.2506E-04_JPRB,1.7409E-02_JPRB,3.0122E-02_JPRB,4.0944E-02_JPRB,4.9474E-02_JPRB/)
4841
KBO( :, 4,14, 4) = (/&
4842
6
 & 6.7927E-04_JPRB,1.9326E-02_JPRB,3.2594E-02_JPRB,4.3519E-02_JPRB,5.1527E-02_JPRB/)
4843
KBO( :, 5,14, 4) = (/&
4844
6
 & 1.0076E-03_JPRB,2.1255E-02_JPRB,3.4899E-02_JPRB,4.5670E-02_JPRB,5.2951E-02_JPRB/)
4845
KBO( :, 1,15, 4) = (/&
4846
6
 & 1.2065E-04_JPRB,1.2024E-02_JPRB,2.1582E-02_JPRB,3.0176E-02_JPRB,3.7371E-02_JPRB/)
4847
KBO( :, 2,15, 4) = (/&
4848
6
 & 2.2207E-04_JPRB,1.3580E-02_JPRB,2.3845E-02_JPRB,3.2795E-02_JPRB,3.9887E-02_JPRB/)
4849
KBO( :, 3,15, 4) = (/&
4850
6
 & 3.8077E-04_JPRB,1.5191E-02_JPRB,2.6000E-02_JPRB,3.5116E-02_JPRB,4.1764E-02_JPRB/)
4851
KBO( :, 4,15, 4) = (/&
4852
6
 & 6.0257E-04_JPRB,1.6816E-02_JPRB,2.7979E-02_JPRB,3.7046E-02_JPRB,4.3070E-02_JPRB/)
4853
KBO( :, 5,15, 4) = (/&
4854
6
 & 8.8599E-04_JPRB,1.8418E-02_JPRB,2.9799E-02_JPRB,3.8653E-02_JPRB,4.3914E-02_JPRB/)
4855
KBO( :, 1,16, 4) = (/&
4856
6
 & 1.0931E-04_JPRB,1.0419E-02_JPRB,1.8587E-02_JPRB,2.5887E-02_JPRB,3.1833E-02_JPRB/)
4857
KBO( :, 2,16, 4) = (/&
4858
6
 & 2.0062E-04_JPRB,1.1752E-02_JPRB,2.0443E-02_JPRB,2.7962E-02_JPRB,3.3659E-02_JPRB/)
4859
KBO( :, 3,16, 4) = (/&
4860
6
 & 3.4061E-04_JPRB,1.3095E-02_JPRB,2.2148E-02_JPRB,2.9721E-02_JPRB,3.4939E-02_JPRB/)
4861
KBO( :, 4,16, 4) = (/&
4862
6
 & 5.3341E-04_JPRB,1.4426E-02_JPRB,2.3724E-02_JPRB,3.1189E-02_JPRB,3.5807E-02_JPRB/)
4863
KBO( :, 5,16, 4) = (/&
4864
6
 & 7.7707E-04_JPRB,1.5740E-02_JPRB,2.5194E-02_JPRB,3.2443E-02_JPRB,3.6342E-02_JPRB/)
4865
KBO( :, 1,17, 4) = (/&
4866
6
 & 9.8787E-05_JPRB,8.9488E-03_JPRB,1.5843E-02_JPRB,2.1968E-02_JPRB,2.6812E-02_JPRB/)
4867
KBO( :, 2,17, 4) = (/&
4868
6
 & 1.8034E-04_JPRB,1.0053E-02_JPRB,1.7312E-02_JPRB,2.3563E-02_JPRB,2.8105E-02_JPRB/)
4869
KBO( :, 3,17, 4) = (/&
4870
6
 & 3.0330E-04_JPRB,1.1150E-02_JPRB,1.8677E-02_JPRB,2.4918E-02_JPRB,2.9010E-02_JPRB/)
4871
KBO( :, 4,17, 4) = (/&
4872
6
 & 4.6915E-04_JPRB,1.2239E-02_JPRB,1.9960E-02_JPRB,2.6083E-02_JPRB,2.9616E-02_JPRB/)
4873
KBO( :, 5,17, 4) = (/&
4874
6
 & 6.7860E-04_JPRB,1.3325E-02_JPRB,2.1171E-02_JPRB,2.7089E-02_JPRB,2.9962E-02_JPRB/)
4875
KBO( :, 1,18, 4) = (/&
4876
6
 & 8.9115E-05_JPRB,7.6114E-03_JPRB,1.3364E-02_JPRB,1.8461E-02_JPRB,2.2371E-02_JPRB/)
4877
KBO( :, 2,18, 4) = (/&
4878
6
 & 1.6151E-04_JPRB,8.5146E-03_JPRB,1.4542E-02_JPRB,1.9706E-02_JPRB,2.3318E-02_JPRB/)
4879
KBO( :, 3,18, 4) = (/&
4880
6
 & 2.6853E-04_JPRB,9.4157E-03_JPRB,1.5660E-02_JPRB,2.0781E-02_JPRB,2.3982E-02_JPRB/)
4881
KBO( :, 4,18, 4) = (/&
4882
6
 & 4.1020E-04_JPRB,1.0310E-02_JPRB,1.6712E-02_JPRB,2.1721E-02_JPRB,2.4416E-02_JPRB/)
4883
KBO( :, 5,18, 4) = (/&
4884
6
 & 5.9029E-04_JPRB,1.1212E-02_JPRB,1.7715E-02_JPRB,2.2537E-02_JPRB,2.4643E-02_JPRB/)
4885
KBO( :, 1,19, 4) = (/&
4886
6
 & 8.0095E-05_JPRB,6.4231E-03_JPRB,1.1196E-02_JPRB,1.5414E-02_JPRB,1.8549E-02_JPRB/)
4887
4888
1
IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART16',1,ZHOOK_HANDLE)
4889
1
END SUBROUTINE PART16
4890
4891
4892
1
SUBROUTINE PART17
4893
4894
REAL(KIND=JPRB) :: ZHOOK_HANDLE
4895
1
IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART17',0,ZHOOK_HANDLE)
4896
4897
4898
KBO( :, 2,19, 4) = (/&
4899
6
 & 1.4382E-04_JPRB,7.1662E-03_JPRB,1.2159E-02_JPRB,1.6403E-02_JPRB,1.9259E-02_JPRB/)
4900
KBO( :, 3,19, 4) = (/&
4901
6
 & 2.3623E-04_JPRB,7.9047E-03_JPRB,1.3080E-02_JPRB,1.7271E-02_JPRB,1.9754E-02_JPRB/)
4902
KBO( :, 4,19, 4) = (/&
4903
6
 & 3.5687E-04_JPRB,8.6444E-03_JPRB,1.3944E-02_JPRB,1.8036E-02_JPRB,2.0065E-02_JPRB/)
4904
KBO( :, 5,19, 4) = (/&
4905
6
 & 5.1169E-04_JPRB,9.3924E-03_JPRB,1.4772E-02_JPRB,1.8710E-02_JPRB,2.0213E-02_JPRB/)
4906
KBO( :, 1,20, 4) = (/&
4907
6
 & 7.2492E-05_JPRB,5.4035E-03_JPRB,9.3587E-03_JPRB,1.2831E-02_JPRB,1.5342E-02_JPRB/)
4908
KBO( :, 2,20, 4) = (/&
4909
6
 & 1.2843E-04_JPRB,6.0138E-03_JPRB,1.0150E-02_JPRB,1.3627E-02_JPRB,1.5882E-02_JPRB/)
4910
KBO( :, 3,20, 4) = (/&
4911
6
 & 2.0800E-04_JPRB,6.6212E-03_JPRB,1.0905E-02_JPRB,1.4334E-02_JPRB,1.6254E-02_JPRB/)
4912
KBO( :, 4,20, 4) = (/&
4913
6
 & 3.1139E-04_JPRB,7.2334E-03_JPRB,1.1615E-02_JPRB,1.4959E-02_JPRB,1.6478E-02_JPRB/)
4914
KBO( :, 5,20, 4) = (/&
4915
6
 & 4.4561E-04_JPRB,7.8568E-03_JPRB,1.2299E-02_JPRB,1.5516E-02_JPRB,1.6574E-02_JPRB/)
4916
KBO( :, 1,21, 4) = (/&
4917
6
 & 6.5335E-05_JPRB,4.5290E-03_JPRB,7.8063E-03_JPRB,1.0655E-02_JPRB,1.2662E-02_JPRB/)
4918
KBO( :, 2,21, 4) = (/&
4919
6
 & 1.1419E-04_JPRB,5.0316E-03_JPRB,8.4549E-03_JPRB,1.1302E-02_JPRB,1.3077E-02_JPRB/)
4920
KBO( :, 3,21, 4) = (/&
4921
6
 & 1.8257E-04_JPRB,5.5323E-03_JPRB,9.0718E-03_JPRB,1.1880E-02_JPRB,1.3357E-02_JPRB/)
4922
KBO( :, 4,21, 4) = (/&
4923
6
 & 2.7150E-04_JPRB,6.0382E-03_JPRB,9.6571E-03_JPRB,1.2392E-02_JPRB,1.3520E-02_JPRB/)
4924
KBO( :, 5,21, 4) = (/&
4925
6
 & 3.8801E-04_JPRB,6.5620E-03_JPRB,1.0220E-02_JPRB,1.2849E-02_JPRB,1.3582E-02_JPRB/)
4926
KBO( :, 1,22, 4) = (/&
4927
6
 & 6.0922E-05_JPRB,3.8139E-03_JPRB,6.5357E-03_JPRB,8.8714E-03_JPRB,1.0461E-02_JPRB/)
4928
KBO( :, 2,22, 4) = (/&
4929
6
 & 1.0454E-04_JPRB,4.2277E-03_JPRB,7.0637E-03_JPRB,9.3969E-03_JPRB,1.0774E-02_JPRB/)
4930
KBO( :, 3,22, 4) = (/&
4931
6
 & 1.6444E-04_JPRB,4.6414E-03_JPRB,7.5689E-03_JPRB,9.8658E-03_JPRB,1.0980E-02_JPRB/)
4932
KBO( :, 4,22, 4) = (/&
4933
6
 & 2.4255E-04_JPRB,5.0640E-03_JPRB,8.0491E-03_JPRB,1.0279E-02_JPRB,1.1093E-02_JPRB/)
4934
KBO( :, 5,22, 4) = (/&
4935
6
 & 3.4545E-04_JPRB,5.5019E-03_JPRB,8.5122E-03_JPRB,1.0654E-02_JPRB,1.1125E-02_JPRB/)
4936
KBO( :, 1,23, 4) = (/&
4937
6
 & 5.6689E-05_JPRB,3.2067E-03_JPRB,5.4634E-03_JPRB,7.3826E-03_JPRB,8.6316E-03_JPRB/)
4938
KBO( :, 2,23, 4) = (/&
4939
6
 & 9.5550E-05_JPRB,3.5483E-03_JPRB,5.8959E-03_JPRB,7.8077E-03_JPRB,8.8675E-03_JPRB/)
4940
KBO( :, 3,23, 4) = (/&
4941
6
 & 1.4822E-04_JPRB,3.8901E-03_JPRB,6.3080E-03_JPRB,8.1829E-03_JPRB,9.0160E-03_JPRB/)
4942
KBO( :, 4,23, 4) = (/&
4943
6
 & 2.1693E-04_JPRB,4.2438E-03_JPRB,6.7020E-03_JPRB,8.5212E-03_JPRB,9.0932E-03_JPRB/)
4944
KBO( :, 5,23, 4) = (/&
4945
6
 & 3.0734E-04_JPRB,4.6091E-03_JPRB,7.0873E-03_JPRB,8.8256E-03_JPRB,9.1050E-03_JPRB/)
4946
KBO( :, 1,24, 4) = (/&
4947
6
 & 5.2736E-05_JPRB,2.6949E-03_JPRB,4.5641E-03_JPRB,6.1416E-03_JPRB,7.1164E-03_JPRB/)
4948
KBO( :, 2,24, 4) = (/&
4949
6
 & 8.7372E-05_JPRB,2.9764E-03_JPRB,4.9186E-03_JPRB,6.4817E-03_JPRB,7.2904E-03_JPRB/)
4950
KBO( :, 3,24, 4) = (/&
4951
6
 & 1.3390E-04_JPRB,3.2620E-03_JPRB,5.2557E-03_JPRB,6.7856E-03_JPRB,7.3982E-03_JPRB/)
4952
KBO( :, 4,24, 4) = (/&
4953
6
 & 1.9446E-04_JPRB,3.5561E-03_JPRB,5.5797E-03_JPRB,7.0599E-03_JPRB,7.4464E-03_JPRB/)
4954
KBO( :, 5,24, 4) = (/&
4955
6
 & 2.7345E-04_JPRB,3.8596E-03_JPRB,5.8982E-03_JPRB,7.3057E-03_JPRB,7.4438E-03_JPRB/)
4956
KBO( :, 1,25, 4) = (/&
4957
6
 & 4.9165E-05_JPRB,2.2652E-03_JPRB,3.8124E-03_JPRB,5.1055E-03_JPRB,5.8623E-03_JPRB/)
4958
KBO( :, 2,25, 4) = (/&
4959
6
 & 8.0068E-05_JPRB,2.4983E-03_JPRB,4.1027E-03_JPRB,5.3800E-03_JPRB,5.9915E-03_JPRB/)
4960
KBO( :, 3,25, 4) = (/&
4961
6
 & 1.2114E-04_JPRB,2.7360E-03_JPRB,4.3785E-03_JPRB,5.6255E-03_JPRB,6.0673E-03_JPRB/)
4962
KBO( :, 4,25, 4) = (/&
4963
6
 & 1.7452E-04_JPRB,2.9807E-03_JPRB,4.6460E-03_JPRB,5.8473E-03_JPRB,6.0957E-03_JPRB/)
4964
KBO( :, 5,25, 4) = (/&
4965
6
 & 2.4297E-04_JPRB,3.2336E-03_JPRB,4.9074E-03_JPRB,6.0470E-03_JPRB,6.0845E-03_JPRB/)
4966
KBO( :, 1,26, 4) = (/&
4967
6
 & 4.6134E-05_JPRB,1.9065E-03_JPRB,3.1876E-03_JPRB,4.2457E-03_JPRB,4.8285E-03_JPRB/)
4968
KBO( :, 2,26, 4) = (/&
4969
6
 & 7.3723E-05_JPRB,2.0998E-03_JPRB,3.4240E-03_JPRB,4.4668E-03_JPRB,4.9227E-03_JPRB/)
4970
KBO( :, 3,26, 4) = (/&
4971
6
 & 1.0992E-04_JPRB,2.2971E-03_JPRB,3.6508E-03_JPRB,4.6650E-03_JPRB,4.9747E-03_JPRB/)
4972
KBO( :, 4,26, 4) = (/&
4973
6
 & 1.5687E-04_JPRB,2.5009E-03_JPRB,3.8701E-03_JPRB,4.8439E-03_JPRB,4.9884E-03_JPRB/)
4974
KBO( :, 5,26, 4) = (/&
4975
6
 & 2.1597E-04_JPRB,2.7132E-03_JPRB,4.0857E-03_JPRB,5.0072E-03_JPRB,4.9727E-03_JPRB/)
4976
KBO( :, 1,27, 4) = (/&
4977
6
 & 4.3156E-05_JPRB,1.6045E-03_JPRB,2.6642E-03_JPRB,3.5293E-03_JPRB,3.9753E-03_JPRB/)
4978
KBO( :, 2,27, 4) = (/&
4979
6
 & 6.7610E-05_JPRB,1.7645E-03_JPRB,2.8577E-03_JPRB,3.7073E-03_JPRB,4.0435E-03_JPRB/)
4980
KBO( :, 3,27, 4) = (/&
4981
6
 & 9.9302E-05_JPRB,1.9283E-03_JPRB,3.0434E-03_JPRB,3.8675E-03_JPRB,4.0783E-03_JPRB/)
4982
KBO( :, 4,27, 4) = (/&
4983
6
 & 1.4035E-04_JPRB,2.0987E-03_JPRB,3.2238E-03_JPRB,4.0126E-03_JPRB,4.0827E-03_JPRB/)
4984
KBO( :, 5,27, 4) = (/&
4985
6
 & 1.9112E-04_JPRB,2.2790E-03_JPRB,3.4026E-03_JPRB,4.1445E-03_JPRB,4.0645E-03_JPRB/)
4986
KBO( :, 1,28, 4) = (/&
4987
6
 & 4.0151E-05_JPRB,1.3496E-03_JPRB,2.2256E-03_JPRB,2.9318E-03_JPRB,3.2709E-03_JPRB/)
4988
KBO( :, 2,28, 4) = (/&
4989
6
 & 6.1693E-05_JPRB,1.4821E-03_JPRB,2.3842E-03_JPRB,3.0756E-03_JPRB,3.3203E-03_JPRB/)
4990
KBO( :, 3,28, 4) = (/&
4991
6
 & 8.9314E-05_JPRB,1.6183E-03_JPRB,2.5363E-03_JPRB,3.2052E-03_JPRB,3.3423E-03_JPRB/)
4992
KBO( :, 4,28, 4) = (/&
4993
6
 & 1.2503E-04_JPRB,1.7621E-03_JPRB,2.6850E-03_JPRB,3.3229E-03_JPRB,3.3419E-03_JPRB/)
4994
KBO( :, 5,28, 4) = (/&
4995
6
 & 1.6847E-04_JPRB,1.9159E-03_JPRB,2.8346E-03_JPRB,3.4298E-03_JPRB,3.3234E-03_JPRB/)
4996
KBO( :, 1,29, 4) = (/&
4997
6
 & 3.7204E-05_JPRB,1.1357E-03_JPRB,1.8605E-03_JPRB,2.4364E-03_JPRB,2.6925E-03_JPRB/)
4998
KBO( :, 2,29, 4) = (/&
4999
6
 & 5.6126E-05_JPRB,1.2453E-03_JPRB,1.9896E-03_JPRB,2.5519E-03_JPRB,2.7276E-03_JPRB/)
5000
KBO( :, 3,29, 4) = (/&
5001
6
 & 8.0329E-05_JPRB,1.3596E-03_JPRB,2.1150E-03_JPRB,2.6576E-03_JPRB,2.7417E-03_JPRB/)
5002
KBO( :, 4,29, 4) = (/&
5003
6
 & 1.1119E-04_JPRB,1.4821E-03_JPRB,2.2379E-03_JPRB,2.7526E-03_JPRB,2.7376E-03_JPRB/)
5004
KBO( :, 5,29, 4) = (/&
5005
6
 & 1.4835E-04_JPRB,1.6135E-03_JPRB,2.3653E-03_JPRB,2.8402E-03_JPRB,2.7209E-03_JPRB/)
5006
KBO( :, 1,30, 4) = (/&
5007
6
 & 3.4278E-05_JPRB,9.5541E-04_JPRB,1.5548E-03_JPRB,2.0242E-03_JPRB,2.2164E-03_JPRB/)
5008
KBO( :, 2,30, 4) = (/&
5009
6
 & 5.0802E-05_JPRB,1.0465E-03_JPRB,1.6607E-03_JPRB,2.1179E-03_JPRB,2.2411E-03_JPRB/)
5010
KBO( :, 3,30, 4) = (/&
5011
6
 & 7.2016E-05_JPRB,1.1433E-03_JPRB,1.7631E-03_JPRB,2.2027E-03_JPRB,2.2491E-03_JPRB/)
5012
KBO( :, 4,30, 4) = (/&
5013
6
 & 9.8522E-05_JPRB,1.2484E-03_JPRB,1.8671E-03_JPRB,2.2807E-03_JPRB,2.2444E-03_JPRB/)
5014
KBO( :, 5,30, 4) = (/&
5015
6
 & 1.3037E-04_JPRB,1.3590E-03_JPRB,1.9752E-03_JPRB,2.3528E-03_JPRB,2.2289E-03_JPRB/)
5016
KBO( :, 1,31, 4) = (/&
5017
6
 & 3.1460E-05_JPRB,8.0377E-04_JPRB,1.2994E-03_JPRB,1.6818E-03_JPRB,1.8252E-03_JPRB/)
5018
KBO( :, 2,31, 4) = (/&
5019
6
 & 4.5877E-05_JPRB,8.8014E-04_JPRB,1.3859E-03_JPRB,1.7575E-03_JPRB,1.8427E-03_JPRB/)
5020
KBO( :, 3,31, 4) = (/&
5021
6
 & 6.4417E-05_JPRB,9.6356E-04_JPRB,1.4714E-03_JPRB,1.8269E-03_JPRB,1.8476E-03_JPRB/)
5022
KBO( :, 4,31, 4) = (/&
5023
6
 & 8.7181E-05_JPRB,1.0525E-03_JPRB,1.5596E-03_JPRB,1.8902E-03_JPRB,1.8422E-03_JPRB/)
5024
KBO( :, 5,31, 4) = (/&
5025
6
 & 1.1453E-04_JPRB,1.1450E-03_JPRB,1.6516E-03_JPRB,1.9513E-03_JPRB,1.8286E-03_JPRB/)
5026
KBO( :, 1,32, 4) = (/&
5027
6
 & 2.8746E-05_JPRB,6.7650E-04_JPRB,1.0860E-03_JPRB,1.3976E-03_JPRB,1.5036E-03_JPRB/)
5028
KBO( :, 2,32, 4) = (/&
5029
6
 & 4.1322E-05_JPRB,7.4162E-04_JPRB,1.1570E-03_JPRB,1.4588E-03_JPRB,1.5157E-03_JPRB/)
5030
KBO( :, 3,32, 4) = (/&
5031
6
 & 5.7453E-05_JPRB,8.1295E-04_JPRB,1.2291E-03_JPRB,1.5152E-03_JPRB,1.5184E-03_JPRB/)
5032
KBO( :, 4,32, 4) = (/&
5033
6
 & 7.7060E-05_JPRB,8.8760E-04_JPRB,1.3041E-03_JPRB,1.5676E-03_JPRB,1.5130E-03_JPRB/)
5034
KBO( :, 5,32, 4) = (/&
5035
6
 & 1.0055E-04_JPRB,9.6447E-04_JPRB,1.3816E-03_JPRB,1.6201E-03_JPRB,1.5011E-03_JPRB/)
5036
KBO( :, 1,33, 4) = (/&
5037
6
 & 2.6149E-05_JPRB,5.6986E-04_JPRB,9.0744E-04_JPRB,1.1611E-03_JPRB,1.2388E-03_JPRB/)
5038
KBO( :, 2,33, 4) = (/&
5039
6
 & 3.7187E-05_JPRB,6.2590E-04_JPRB,9.6645E-04_JPRB,1.2109E-03_JPRB,1.2475E-03_JPRB/)
5040
KBO( :, 3,33, 4) = (/&
5041
6
 & 5.1122E-05_JPRB,6.8620E-04_JPRB,1.0278E-03_JPRB,1.2567E-03_JPRB,1.2488E-03_JPRB/)
5042
KBO( :, 4,33, 4) = (/&
5043
6
 & 6.7992E-05_JPRB,7.4863E-04_JPRB,1.0916E-03_JPRB,1.3015E-03_JPRB,1.2439E-03_JPRB/)
5044
KBO( :, 5,33, 4) = (/&
5045
6
 & 8.8264E-05_JPRB,8.1165E-04_JPRB,1.1560E-03_JPRB,1.3467E-03_JPRB,1.2339E-03_JPRB/)
5046
KBO( :, 1,34, 4) = (/&
5047
6
 & 2.3383E-05_JPRB,4.7914E-04_JPRB,7.5656E-04_JPRB,9.6327E-04_JPRB,1.0201E-03_JPRB/)
5048
KBO( :, 2,34, 4) = (/&
5049
6
 & 3.2952E-05_JPRB,5.2698E-04_JPRB,8.0647E-04_JPRB,1.0038E-03_JPRB,1.0263E-03_JPRB/)
5050
KBO( :, 3,34, 4) = (/&
5051
6
 & 4.4898E-05_JPRB,5.7759E-04_JPRB,8.5874E-04_JPRB,1.0423E-03_JPRB,1.0268E-03_JPRB/)
5052
KBO( :, 4,34, 4) = (/&
5053
6
 & 5.9304E-05_JPRB,6.2906E-04_JPRB,9.1184E-04_JPRB,1.0803E-03_JPRB,1.0223E-03_JPRB/)
5054
KBO( :, 5,34, 4) = (/&
5055
6
 & 7.6697E-05_JPRB,6.8025E-04_JPRB,9.6511E-04_JPRB,1.1186E-03_JPRB,1.0139E-03_JPRB/)
5056
KBO( :, 1,35, 4) = (/&
5057
6
 & 2.0135E-05_JPRB,3.9961E-04_JPRB,6.2708E-04_JPRB,7.9562E-04_JPRB,8.3915E-04_JPRB/)
5058
KBO( :, 2,35, 4) = (/&
5059
6
 & 2.8240E-05_JPRB,4.3984E-04_JPRB,6.6953E-04_JPRB,8.2921E-04_JPRB,8.4431E-04_JPRB/)
5060
KBO( :, 3,35, 4) = (/&
5061
6
 & 3.8284E-05_JPRB,4.8179E-04_JPRB,7.1336E-04_JPRB,8.6176E-04_JPRB,8.4473E-04_JPRB/)
5062
KBO( :, 4,35, 4) = (/&
5063
6
 & 5.0380E-05_JPRB,5.2399E-04_JPRB,7.5755E-04_JPRB,8.9436E-04_JPRB,8.4105E-04_JPRB/)
5064
KBO( :, 5,35, 4) = (/&
5065
6
 & 6.4985E-05_JPRB,5.6538E-04_JPRB,8.0096E-04_JPRB,9.2613E-04_JPRB,8.3390E-04_JPRB/)
5066
KBO( :, 1,36, 4) = (/&
5067
6
 & 1.6672E-05_JPRB,3.3001E-04_JPRB,5.1652E-04_JPRB,6.5429E-04_JPRB,6.8995E-04_JPRB/)
5068
KBO( :, 2,36, 4) = (/&
5069
6
 & 2.3356E-05_JPRB,3.6341E-04_JPRB,5.5227E-04_JPRB,6.8236E-04_JPRB,6.9447E-04_JPRB/)
5070
KBO( :, 3,36, 4) = (/&
5071
6
 & 3.1620E-05_JPRB,3.9798E-04_JPRB,5.8880E-04_JPRB,7.1017E-04_JPRB,6.9516E-04_JPRB/)
5072
KBO( :, 4,36, 4) = (/&
5073
6
 & 4.1586E-05_JPRB,4.3228E-04_JPRB,6.2537E-04_JPRB,7.3771E-04_JPRB,6.9235E-04_JPRB/)
5074
KBO( :, 5,36, 4) = (/&
5075
6
 & 5.3612E-05_JPRB,4.6581E-04_JPRB,6.6082E-04_JPRB,7.6427E-04_JPRB,6.8669E-04_JPRB/)
5076
KBO( :, 1,37, 4) = (/&
5077
6
 & 1.3087E-05_JPRB,2.6849E-04_JPRB,4.2115E-04_JPRB,5.3442E-04_JPRB,5.6613E-04_JPRB/)
5078
KBO( :, 2,37, 4) = (/&
5079
6
 & 1.8389E-05_JPRB,2.9596E-04_JPRB,4.5110E-04_JPRB,5.5819E-04_JPRB,5.7060E-04_JPRB/)
5080
KBO( :, 3,37, 4) = (/&
5081
6
 & 2.4989E-05_JPRB,3.2427E-04_JPRB,4.8144E-04_JPRB,5.8191E-04_JPRB,5.7172E-04_JPRB/)
5082
KBO( :, 4,37, 4) = (/&
5083
6
 & 3.2975E-05_JPRB,3.5221E-04_JPRB,5.1177E-04_JPRB,6.0525E-04_JPRB,5.6998E-04_JPRB/)
5084
KBO( :, 5,37, 4) = (/&
5085
6
 & 4.2603E-05_JPRB,3.7949E-04_JPRB,5.4072E-04_JPRB,6.2738E-04_JPRB,5.6571E-04_JPRB/)
5086
KBO( :, 1,38, 4) = (/&
5087
6
 & 1.0230E-05_JPRB,2.1818E-04_JPRB,3.4316E-04_JPRB,4.3622E-04_JPRB,4.6452E-04_JPRB/)
5088
KBO( :, 2,38, 4) = (/&
5089
6
 & 1.4428E-05_JPRB,2.4074E-04_JPRB,3.6819E-04_JPRB,4.5640E-04_JPRB,4.6888E-04_JPRB/)
5090
KBO( :, 3,38, 4) = (/&
5091
6
 & 1.9697E-05_JPRB,2.6389E-04_JPRB,3.9346E-04_JPRB,4.7668E-04_JPRB,4.7037E-04_JPRB/)
5092
KBO( :, 4,38, 4) = (/&
5093
6
 & 2.6076E-05_JPRB,2.8667E-04_JPRB,4.1847E-04_JPRB,4.9632E-04_JPRB,4.6943E-04_JPRB/)
5094
KBO( :, 5,38, 4) = (/&
5095
6
 & 3.3772E-05_JPRB,3.0890E-04_JPRB,4.4212E-04_JPRB,5.1488E-04_JPRB,4.6632E-04_JPRB/)
5096
KBO( :, 1,39, 4) = (/&
5097
6
 & 7.9957E-06_JPRB,1.7734E-04_JPRB,2.7964E-04_JPRB,3.5608E-04_JPRB,3.8137E-04_JPRB/)
5098
KBO( :, 2,39, 4) = (/&
5099
6
 & 1.1315E-05_JPRB,1.9578E-04_JPRB,3.0056E-04_JPRB,3.7320E-04_JPRB,3.8548E-04_JPRB/)
5100
KBO( :, 3,39, 4) = (/&
5101
6
 & 1.5521E-05_JPRB,2.1469E-04_JPRB,3.2152E-04_JPRB,3.9044E-04_JPRB,3.8726E-04_JPRB/)
5102
KBO( :, 4,39, 4) = (/&
5103
6
 & 2.0623E-05_JPRB,2.3327E-04_JPRB,3.4211E-04_JPRB,4.0694E-04_JPRB,3.8696E-04_JPRB/)
5104
KBO( :, 5,39, 4) = (/&
5105
6
 & 2.6775E-05_JPRB,2.5145E-04_JPRB,3.6146E-04_JPRB,4.2258E-04_JPRB,3.8472E-04_JPRB/)
5106
KBO( :, 1,40, 4) = (/&
5107
6
 & 6.0059E-06_JPRB,1.4255E-04_JPRB,2.2608E-04_JPRB,2.8913E-04_JPRB,3.1195E-04_JPRB/)
5108
KBO( :, 2,40, 4) = (/&
5109
6
 & 8.5603E-06_JPRB,1.5759E-04_JPRB,2.4350E-04_JPRB,3.0367E-04_JPRB,3.1602E-04_JPRB/)
5110
KBO( :, 3,40, 4) = (/&
5111
6
 & 1.1848E-05_JPRB,1.7303E-04_JPRB,2.6092E-04_JPRB,3.1829E-04_JPRB,3.1800E-04_JPRB/)
5112
KBO( :, 4,40, 4) = (/&
5113
6
 & 1.5848E-05_JPRB,1.8824E-04_JPRB,2.7792E-04_JPRB,3.3233E-04_JPRB,3.1813E-04_JPRB/)
5114
KBO( :, 5,40, 4) = (/&
5115
6
 & 2.0655E-05_JPRB,2.0317E-04_JPRB,2.9386E-04_JPRB,3.4558E-04_JPRB,3.1680E-04_JPRB/)
5116
KBO( :, 1,41, 4) = (/&
5117
6
 & 4.4737E-06_JPRB,1.1440E-04_JPRB,1.8254E-04_JPRB,2.3457E-04_JPRB,2.5497E-04_JPRB/)
5118
KBO( :, 2,41, 4) = (/&
5119
6
 & 6.4501E-06_JPRB,1.2664E-04_JPRB,1.9704E-04_JPRB,2.4685E-04_JPRB,2.5884E-04_JPRB/)
5120
KBO( :, 3,41, 4) = (/&
5121
6
 & 8.9908E-06_JPRB,1.3923E-04_JPRB,2.1149E-04_JPRB,2.5926E-04_JPRB,2.6097E-04_JPRB/)
5122
KBO( :, 4,41, 4) = (/&
5123
6
 & 1.2113E-05_JPRB,1.5171E-04_JPRB,2.2552E-04_JPRB,2.7117E-04_JPRB,2.6150E-04_JPRB/)
5124
KBO( :, 5,41, 4) = (/&
5125
6
 & 1.5882E-05_JPRB,1.6391E-04_JPRB,2.3860E-04_JPRB,2.8232E-04_JPRB,2.6072E-04_JPRB/)
5126
KBO( :, 1,42, 4) = (/&
5127
6
 & 3.3198E-06_JPRB,9.1718E-05_JPRB,1.4723E-04_JPRB,1.9011E-04_JPRB,2.0829E-04_JPRB/)
5128
KBO( :, 2,42, 4) = (/&
5129
6
 & 4.8502E-06_JPRB,1.0170E-04_JPRB,1.5931E-04_JPRB,2.0051E-04_JPRB,2.1195E-04_JPRB/)
5130
KBO( :, 3,42, 4) = (/&
5131
6
 & 6.8039E-06_JPRB,1.1200E-04_JPRB,1.7132E-04_JPRB,2.1108E-04_JPRB,2.1414E-04_JPRB/)
5132
KBO( :, 4,42, 4) = (/&
5133
6
 & 9.2426E-06_JPRB,1.2222E-04_JPRB,1.8289E-04_JPRB,2.2117E-04_JPRB,2.1495E-04_JPRB/)
5134
KBO( :, 5,42, 4) = (/&
5135
6
 & 1.2195E-05_JPRB,1.3221E-04_JPRB,1.9367E-04_JPRB,2.3056E-04_JPRB,2.1462E-04_JPRB/)
5136
KBO( :, 1,43, 4) = (/&
5137
6
 & 2.3953E-06_JPRB,7.3035E-05_JPRB,1.1812E-04_JPRB,1.5350E-04_JPRB,1.6984E-04_JPRB/)
5138
KBO( :, 2,43, 4) = (/&
5139
6
 & 3.5612E-06_JPRB,8.1187E-05_JPRB,1.2819E-04_JPRB,1.6232E-04_JPRB,1.7330E-04_JPRB/)
5140
KBO( :, 3,43, 4) = (/&
5141
6
 & 5.0399E-06_JPRB,8.9542E-05_JPRB,1.3813E-04_JPRB,1.7126E-04_JPRB,1.7552E-04_JPRB/)
5142
KBO( :, 4,43, 4) = (/&
5143
6
 & 6.9214E-06_JPRB,9.7944E-05_JPRB,1.4772E-04_JPRB,1.7984E-04_JPRB,1.7653E-04_JPRB/)
5144
KBO( :, 5,43, 4) = (/&
5145
6
 & 9.2081E-06_JPRB,1.0615E-04_JPRB,1.5668E-04_JPRB,1.8781E-04_JPRB,1.7659E-04_JPRB/)
5146
KBO( :, 1,44, 4) = (/&
5147
6
 & 1.6976E-06_JPRB,5.7928E-05_JPRB,9.4481E-05_JPRB,1.2365E-04_JPRB,1.3829E-04_JPRB/)
5148
KBO( :, 2,44, 4) = (/&
5149
6
 & 2.5776E-06_JPRB,6.4569E-05_JPRB,1.0281E-04_JPRB,1.3107E-04_JPRB,1.4154E-04_JPRB/)
5150
KBO( :, 3,44, 4) = (/&
5151
6
 & 3.6914E-06_JPRB,7.1395E-05_JPRB,1.1108E-04_JPRB,1.3867E-04_JPRB,1.4376E-04_JPRB/)
5152
KBO( :, 4,44, 4) = (/&
5153
6
 & 5.1284E-06_JPRB,7.8255E-05_JPRB,1.1905E-04_JPRB,1.4597E-04_JPRB,1.4496E-04_JPRB/)
5154
KBO( :, 5,44, 4) = (/&
5155
6
 & 6.8839E-06_JPRB,8.5009E-05_JPRB,1.2651E-04_JPRB,1.5274E-04_JPRB,1.4528E-04_JPRB/)
5156
KBO( :, 1,45, 4) = (/&
5157
6
 & 1.1934E-06_JPRB,4.5877E-05_JPRB,7.5459E-05_JPRB,9.9465E-05_JPRB,1.1252E-04_JPRB/)
5158
KBO( :, 2,45, 4) = (/&
5159
6
 & 1.8535E-06_JPRB,5.1319E-05_JPRB,8.2366E-05_JPRB,1.0575E-04_JPRB,1.1552E-04_JPRB/)
5160
KBO( :, 3,45, 4) = (/&
5161
6
 & 2.7008E-06_JPRB,5.6880E-05_JPRB,8.9246E-05_JPRB,1.1216E-04_JPRB,1.1771E-04_JPRB/)
5162
KBO( :, 4,45, 4) = (/&
5163
6
 & 3.7837E-06_JPRB,6.2494E-05_JPRB,9.5875E-05_JPRB,1.1839E-04_JPRB,1.1899E-04_JPRB/)
5164
KBO( :, 5,45, 4) = (/&
5165
6
 & 5.1348E-06_JPRB,6.8027E-05_JPRB,1.0210E-04_JPRB,1.2412E-04_JPRB,1.1954E-04_JPRB/)
5166
KBO( :, 1,46, 4) = (/&
5167
6
 & 8.2182E-07_JPRB,3.6187E-05_JPRB,6.0090E-05_JPRB,7.9818E-05_JPRB,9.1376E-05_JPRB/)
5168
KBO( :, 2,46, 4) = (/&
5169
6
 & 1.3116E-06_JPRB,4.0642E-05_JPRB,6.5780E-05_JPRB,8.5120E-05_JPRB,9.4184E-05_JPRB/)
5170
KBO( :, 3,46, 4) = (/&
5171
6
 & 1.9501E-06_JPRB,4.5184E-05_JPRB,7.1520E-05_JPRB,9.0515E-05_JPRB,9.6278E-05_JPRB/)
5172
KBO( :, 4,46, 4) = (/&
5173
6
 & 2.7596E-06_JPRB,4.9774E-05_JPRB,7.7042E-05_JPRB,9.5816E-05_JPRB,9.7611E-05_JPRB/)
5174
KBO( :, 5,46, 4) = (/&
5175
6
 & 3.7920E-06_JPRB,5.4316E-05_JPRB,8.2245E-05_JPRB,1.0070E-04_JPRB,9.8321E-05_JPRB/)
5176
KBO( :, 1,47, 4) = (/&
5177
6
 & 5.4572E-07_JPRB,2.8352E-05_JPRB,4.7590E-05_JPRB,6.3770E-05_JPRB,7.3936E-05_JPRB/)
5178
KBO( :, 2,47, 4) = (/&
5179
6
 & 9.0249E-07_JPRB,3.1986E-05_JPRB,5.2255E-05_JPRB,6.8238E-05_JPRB,7.6557E-05_JPRB/)
5180
KBO( :, 3,47, 4) = (/&
5181
6
 & 1.3764E-06_JPRB,3.5691E-05_JPRB,5.7035E-05_JPRB,7.2769E-05_JPRB,7.8547E-05_JPRB/)
5182
KBO( :, 4,47, 4) = (/&
5183
6
 & 1.9784E-06_JPRB,3.9441E-05_JPRB,6.1643E-05_JPRB,7.7278E-05_JPRB,7.9920E-05_JPRB/)
5184
KBO( :, 5,47, 4) = (/&
5185
6
 & 2.7518E-06_JPRB,4.3171E-05_JPRB,6.6014E-05_JPRB,8.1443E-05_JPRB,8.0725E-05_JPRB/)
5186
KBO( :, 1,48, 4) = (/&
5187
6
 & 3.5613E-07_JPRB,2.2167E-05_JPRB,3.7637E-05_JPRB,5.0854E-05_JPRB,5.9741E-05_JPRB/)
5188
5189
1
IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART17',1,ZHOOK_HANDLE)
5190
1
END SUBROUTINE PART17
5191
5192
5193
1
SUBROUTINE PART18
5194
5195
REAL(KIND=JPRB) :: ZHOOK_HANDLE
5196
1
IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART18',0,ZHOOK_HANDLE)
5197
5198
5199
KBO( :, 2,48, 4) = (/&
5200
6
 & 6.1385E-07_JPRB,2.5120E-05_JPRB,4.1451E-05_JPRB,5.4622E-05_JPRB,6.2174E-05_JPRB/)
5201
KBO( :, 3,48, 4) = (/&
5202
6
 & 9.6245E-07_JPRB,2.8151E-05_JPRB,4.5401E-05_JPRB,5.8409E-05_JPRB,6.4024E-05_JPRB/)
5203
KBO( :, 4,48, 4) = (/&
5204
6
 & 1.4130E-06_JPRB,3.1220E-05_JPRB,4.9258E-05_JPRB,6.2234E-05_JPRB,6.5397E-05_JPRB/)
5205
KBO( :, 5,48, 4) = (/&
5206
6
 & 1.9862E-06_JPRB,3.4268E-05_JPRB,5.2922E-05_JPRB,6.5784E-05_JPRB,6.6274E-05_JPRB/)
5207
KBO( :, 1,49, 4) = (/&
5208
6
 & 2.2854E-07_JPRB,1.7300E-05_JPRB,2.9705E-05_JPRB,4.0466E-05_JPRB,4.8198E-05_JPRB/)
5209
KBO( :, 2,49, 4) = (/&
5210
6
 & 4.1152E-07_JPRB,1.9683E-05_JPRB,3.2825E-05_JPRB,4.3649E-05_JPRB,5.0447E-05_JPRB/)
5211
KBO( :, 3,49, 4) = (/&
5212
6
 & 6.6605E-07_JPRB,2.2175E-05_JPRB,3.6088E-05_JPRB,4.6825E-05_JPRB,5.2181E-05_JPRB/)
5213
KBO( :, 4,49, 4) = (/&
5214
6
 & 1.0015E-06_JPRB,2.4680E-05_JPRB,3.9305E-05_JPRB,5.0044E-05_JPRB,5.3514E-05_JPRB/)
5215
KBO( :, 5,49, 4) = (/&
5216
6
 & 1.4253E-06_JPRB,2.7183E-05_JPRB,4.2380E-05_JPRB,5.3073E-05_JPRB,5.4435E-05_JPRB/)
5217
KBO( :, 1,50, 4) = (/&
5218
6
 & 1.4675E-07_JPRB,1.3524E-05_JPRB,2.3463E-05_JPRB,3.2195E-05_JPRB,3.8796E-05_JPRB/)
5219
KBO( :, 2,50, 4) = (/&
5220
6
 & 2.7518E-07_JPRB,1.5442E-05_JPRB,2.6020E-05_JPRB,3.4887E-05_JPRB,4.0832E-05_JPRB/)
5221
KBO( :, 3,50, 4) = (/&
5222
6
 & 4.6153E-07_JPRB,1.7480E-05_JPRB,2.8694E-05_JPRB,3.7541E-05_JPRB,4.2427E-05_JPRB/)
5223
KBO( :, 4,50, 4) = (/&
5224
6
 & 7.1099E-07_JPRB,1.9535E-05_JPRB,3.1383E-05_JPRB,4.0252E-05_JPRB,4.3676E-05_JPRB/)
5225
KBO( :, 5,50, 4) = (/&
5226
6
 & 1.0304E-06_JPRB,2.1596E-05_JPRB,3.3959E-05_JPRB,4.2830E-05_JPRB,4.4585E-05_JPRB/)
5227
KBO( :, 1,51, 4) = (/&
5228
6
 & 9.3830E-08_JPRB,1.0573E-05_JPRB,1.8529E-05_JPRB,2.5594E-05_JPRB,3.1167E-05_JPRB/)
5229
KBO( :, 2,51, 4) = (/&
5230
6
 & 1.8257E-07_JPRB,1.2113E-05_JPRB,2.0626E-05_JPRB,2.7865E-05_JPRB,3.2983E-05_JPRB/)
5231
KBO( :, 3,51, 4) = (/&
5232
6
 & 3.1815E-07_JPRB,1.3777E-05_JPRB,2.2807E-05_JPRB,3.0085E-05_JPRB,3.4435E-05_JPRB/)
5233
KBO( :, 4,51, 4) = (/&
5234
6
 & 5.0296E-07_JPRB,1.5465E-05_JPRB,2.5047E-05_JPRB,3.2352E-05_JPRB,3.5572E-05_JPRB/)
5235
KBO( :, 5,51, 4) = (/&
5236
6
 & 7.4372E-07_JPRB,1.7150E-05_JPRB,2.7196E-05_JPRB,3.4538E-05_JPRB,3.6442E-05_JPRB/)
5237
KBO( :, 1,52, 4) = (/&
5238
6
 & 5.9402E-08_JPRB,8.2536E-06_JPRB,1.4613E-05_JPRB,2.0313E-05_JPRB,2.4997E-05_JPRB/)
5239
KBO( :, 2,52, 4) = (/&
5240
6
 & 1.1950E-07_JPRB,9.4874E-06_JPRB,1.6325E-05_JPRB,2.2218E-05_JPRB,2.6608E-05_JPRB/)
5241
KBO( :, 3,52, 4) = (/&
5242
6
 & 2.1668E-07_JPRB,1.0839E-05_JPRB,1.8107E-05_JPRB,2.4086E-05_JPRB,2.7927E-05_JPRB/)
5243
KBO( :, 4,52, 4) = (/&
5244
6
 & 3.5284E-07_JPRB,1.2223E-05_JPRB,1.9960E-05_JPRB,2.5966E-05_JPRB,2.8965E-05_JPRB/)
5245
KBO( :, 5,52, 4) = (/&
5246
6
 & 5.3348E-07_JPRB,1.3609E-05_JPRB,2.1758E-05_JPRB,2.7822E-05_JPRB,2.9780E-05_JPRB/)
5247
KBO( :, 1,53, 4) = (/&
5248
6
 & 3.7345E-08_JPRB,6.4324E-06_JPRB,1.1502E-05_JPRB,1.6089E-05_JPRB,2.0014E-05_JPRB/)
5249
KBO( :, 2,53, 4) = (/&
5250
6
 & 7.7125E-08_JPRB,7.4212E-06_JPRB,1.2900E-05_JPRB,1.7682E-05_JPRB,2.1442E-05_JPRB/)
5251
KBO( :, 3,53, 4) = (/&
5252
6
 & 1.4542E-07_JPRB,8.5076E-06_JPRB,1.4352E-05_JPRB,1.9246E-05_JPRB,2.2631E-05_JPRB/)
5253
KBO( :, 4,53, 4) = (/&
5254
6
 & 2.4523E-07_JPRB,9.6460E-06_JPRB,1.5883E-05_JPRB,2.0812E-05_JPRB,2.3585E-05_JPRB/)
5255
KBO( :, 5,53, 4) = (/&
5256
6
 & 3.7962E-07_JPRB,1.0784E-05_JPRB,1.7382E-05_JPRB,2.2378E-05_JPRB,2.4349E-05_JPRB/)
5257
KBO( :, 1,54, 4) = (/&
5258
6
 & 2.4018E-08_JPRB,5.0298E-06_JPRB,9.0727E-06_JPRB,1.2757E-05_JPRB,1.5972E-05_JPRB/)
5259
KBO( :, 2,54, 4) = (/&
5260
6
 & 5.0282E-08_JPRB,5.8191E-06_JPRB,1.0210E-05_JPRB,1.4083E-05_JPRB,1.7202E-05_JPRB/)
5261
KBO( :, 3,54, 4) = (/&
5262
6
 & 9.8093E-08_JPRB,6.6934E-06_JPRB,1.1398E-05_JPRB,1.5393E-05_JPRB,1.8246E-05_JPRB/)
5263
KBO( :, 4,54, 4) = (/&
5264
6
 & 1.7136E-07_JPRB,7.6261E-06_JPRB,1.2653E-05_JPRB,1.6695E-05_JPRB,1.9090E-05_JPRB/)
5265
KBO( :, 5,54, 4) = (/&
5266
6
 & 2.7159E-07_JPRB,8.5620E-06_JPRB,1.3903E-05_JPRB,1.8013E-05_JPRB,1.9768E-05_JPRB/)
5267
KBO( :, 1,55, 4) = (/&
5268
6
 & 1.5705E-08_JPRB,3.9361E-06_JPRB,7.1560E-06_JPRB,1.0111E-05_JPRB,1.2713E-05_JPRB/)
5269
KBO( :, 2,55, 4) = (/&
5270
6
 & 3.2852E-08_JPRB,4.5671E-06_JPRB,8.0833E-06_JPRB,1.1215E-05_JPRB,1.3756E-05_JPRB/)
5271
KBO( :, 3,55, 4) = (/&
5272
6
 & 6.5995E-08_JPRB,5.2691E-06_JPRB,9.0558E-06_JPRB,1.2309E-05_JPRB,1.4658E-05_JPRB/)
5273
KBO( :, 4,55, 4) = (/&
5274
6
 & 1.1933E-07_JPRB,6.0307E-06_JPRB,1.0082E-05_JPRB,1.3396E-05_JPRB,1.5392E-05_JPRB/)
5275
KBO( :, 5,55, 4) = (/&
5276
6
 & 1.9407E-07_JPRB,6.7994E-06_JPRB,1.1122E-05_JPRB,1.4497E-05_JPRB,1.5981E-05_JPRB/)
5277
KBO( :, 1,56, 4) = (/&
5278
6
 & 1.0423E-08_JPRB,3.0764E-06_JPRB,5.6365E-06_JPRB,8.0036E-06_JPRB,1.0107E-05_JPRB/)
5279
KBO( :, 2,56, 4) = (/&
5280
6
 & 2.1352E-08_JPRB,3.5821E-06_JPRB,6.3947E-06_JPRB,8.9204E-06_JPRB,1.0989E-05_JPRB/)
5281
KBO( :, 3,56, 4) = (/&
5282
6
 & 4.3941E-08_JPRB,4.1425E-06_JPRB,7.1860E-06_JPRB,9.8275E-06_JPRB,1.1759E-05_JPRB/)
5283
KBO( :, 4,56, 4) = (/&
5284
6
 & 8.2219E-08_JPRB,4.7612E-06_JPRB,8.0218E-06_JPRB,1.0735E-05_JPRB,1.2399E-05_JPRB/)
5285
KBO( :, 5,56, 4) = (/&
5286
6
 & 1.3782E-07_JPRB,5.3933E-06_JPRB,8.8859E-06_JPRB,1.1651E-05_JPRB,1.2911E-05_JPRB/)
5287
KBO( :, 1,57, 4) = (/&
5288
6
 & 7.0716E-09_JPRB,2.4016E-06_JPRB,4.4336E-06_JPRB,6.3273E-06_JPRB,8.0236E-06_JPRB/)
5289
KBO( :, 2,57, 4) = (/&
5290
6
 & 1.3864E-08_JPRB,2.8058E-06_JPRB,5.0502E-06_JPRB,7.0825E-06_JPRB,8.7616E-06_JPRB/)
5291
KBO( :, 3,57, 4) = (/&
5292
6
 & 2.8989E-08_JPRB,3.2523E-06_JPRB,5.6949E-06_JPRB,7.8345E-06_JPRB,9.4204E-06_JPRB/)
5293
KBO( :, 4,57, 4) = (/&
5294
6
 & 5.6049E-08_JPRB,3.7535E-06_JPRB,6.3764E-06_JPRB,8.5926E-06_JPRB,9.9758E-06_JPRB/)
5295
KBO( :, 5,57, 4) = (/&
5296
6
 & 9.7119E-08_JPRB,4.2717E-06_JPRB,7.0902E-06_JPRB,9.3510E-06_JPRB,1.0422E-05_JPRB/)
5297
KBO( :, 1,58, 4) = (/&
5298
6
 & 4.9738E-09_JPRB,1.8772E-06_JPRB,3.4889E-06_JPRB,5.0033E-06_JPRB,6.3670E-06_JPRB/)
5299
KBO( :, 2,58, 4) = (/&
5300
6
 & 9.1491E-09_JPRB,2.2003E-06_JPRB,3.9908E-06_JPRB,5.6234E-06_JPRB,6.9822E-06_JPRB/)
5301
KBO( :, 3,58, 4) = (/&
5302
6
 & 1.9204E-08_JPRB,2.5577E-06_JPRB,4.5175E-06_JPRB,6.2482E-06_JPRB,7.5411E-06_JPRB/)
5303
KBO( :, 4,58, 4) = (/&
5304
6
 & 3.8223E-08_JPRB,2.9606E-06_JPRB,5.0708E-06_JPRB,6.8776E-06_JPRB,8.0170E-06_JPRB/)
5305
KBO( :, 5,58, 4) = (/&
5306
6
 & 6.8398E-08_JPRB,3.3850E-06_JPRB,5.6590E-06_JPRB,7.5062E-06_JPRB,8.4029E-06_JPRB/)
5307
KBO( :, 1,59, 4) = (/&
5308
6
 & 3.8735E-09_JPRB,1.5107E-06_JPRB,2.8146E-06_JPRB,4.0428E-06_JPRB,5.1269E-06_JPRB/)
5309
KBO( :, 2,59, 4) = (/&
5310
6
 & 6.9185E-09_JPRB,1.7736E-06_JPRB,3.2266E-06_JPRB,4.5533E-06_JPRB,5.6260E-06_JPRB/)
5311
KBO( :, 3,59, 4) = (/&
5312
6
 & 1.4484E-08_JPRB,2.0648E-06_JPRB,3.6588E-06_JPRB,5.0704E-06_JPRB,6.0775E-06_JPRB/)
5313
KBO( :, 4,59, 4) = (/&
5314
6
 & 2.9105E-08_JPRB,2.3952E-06_JPRB,4.1152E-06_JPRB,5.5930E-06_JPRB,6.4648E-06_JPRB/)
5315
KBO( :, 5,59, 4) = (/&
5316
6
 & 5.2712E-08_JPRB,2.7434E-06_JPRB,4.6004E-06_JPRB,6.1168E-06_JPRB,6.7765E-06_JPRB/)
5317
KBO( :, 1,13, 5) = (/&
5318
6
 & 9.5206E-04_JPRB,3.5867E-02_JPRB,6.3329E-02_JPRB,8.8273E-02_JPRB,1.0919E-01_JPRB/)
5319
KBO( :, 2,13, 5) = (/&
5320
6
 & 1.4606E-03_JPRB,3.9499E-02_JPRB,6.8038E-02_JPRB,9.3530E-02_JPRB,1.1392E-01_JPRB/)
5321
KBO( :, 3,13, 5) = (/&
5322
6
 & 2.1122E-03_JPRB,4.3255E-02_JPRB,7.2755E-02_JPRB,9.8485E-02_JPRB,1.1804E-01_JPRB/)
5323
KBO( :, 4,13, 5) = (/&
5324
6
 & 2.9342E-03_JPRB,4.7055E-02_JPRB,7.7481E-02_JPRB,1.0325E-01_JPRB,1.2194E-01_JPRB/)
5325
KBO( :, 5,13, 5) = (/&
5326
6
 & 3.9691E-03_JPRB,5.0998E-02_JPRB,8.2111E-02_JPRB,1.0793E-01_JPRB,1.2556E-01_JPRB/)
5327
KBO( :, 1,14, 5) = (/&
5328
6
 & 8.3529E-04_JPRB,3.1756E-02_JPRB,5.5904E-02_JPRB,7.7763E-02_JPRB,9.5354E-02_JPRB/)
5329
KBO( :, 2,14, 5) = (/&
5330
6
 & 1.2709E-03_JPRB,3.5009E-02_JPRB,6.0040E-02_JPRB,8.2374E-02_JPRB,9.9262E-02_JPRB/)
5331
KBO( :, 3,14, 5) = (/&
5332
6
 & 1.8315E-03_JPRB,3.8336E-02_JPRB,6.4269E-02_JPRB,8.6806E-02_JPRB,1.0290E-01_JPRB/)
5333
KBO( :, 4,14, 5) = (/&
5334
6
 & 2.5450E-03_JPRB,4.1786E-02_JPRB,6.8525E-02_JPRB,9.1155E-02_JPRB,1.0629E-01_JPRB/)
5335
KBO( :, 5,14, 5) = (/&
5336
6
 & 3.4515E-03_JPRB,4.5381E-02_JPRB,7.2773E-02_JPRB,9.5396E-02_JPRB,1.0928E-01_JPRB/)
5337
KBO( :, 1,15, 5) = (/&
5338
6
 & 7.3165E-04_JPRB,2.7921E-02_JPRB,4.8914E-02_JPRB,6.7922E-02_JPRB,8.2662E-02_JPRB/)
5339
KBO( :, 2,15, 5) = (/&
5340
6
 & 1.1052E-03_JPRB,3.0784E-02_JPRB,5.2602E-02_JPRB,7.1990E-02_JPRB,8.6043E-02_JPRB/)
5341
KBO( :, 3,15, 5) = (/&
5342
6
 & 1.5893E-03_JPRB,3.3752E-02_JPRB,5.6376E-02_JPRB,7.5928E-02_JPRB,8.9235E-02_JPRB/)
5343
KBO( :, 4,15, 5) = (/&
5344
6
 & 2.2106E-03_JPRB,3.6890E-02_JPRB,6.0189E-02_JPRB,7.9806E-02_JPRB,9.1982E-02_JPRB/)
5345
KBO( :, 5,15, 5) = (/&
5346
6
 & 3.0053E-03_JPRB,4.0122E-02_JPRB,6.4009E-02_JPRB,8.3450E-02_JPRB,9.3979E-02_JPRB/)
5347
KBO( :, 1,16, 5) = (/&
5348
6
 & 6.3939E-04_JPRB,2.4371E-02_JPRB,4.2503E-02_JPRB,5.8900E-02_JPRB,7.1290E-02_JPRB/)
5349
KBO( :, 2,16, 5) = (/&
5350
6
 & 9.6055E-04_JPRB,2.6877E-02_JPRB,4.5773E-02_JPRB,6.2455E-02_JPRB,7.4252E-02_JPRB/)
5351
KBO( :, 3,16, 5) = (/&
5352
6
 & 1.3794E-03_JPRB,2.9539E-02_JPRB,4.9114E-02_JPRB,6.5898E-02_JPRB,7.6813E-02_JPRB/)
5353
KBO( :, 4,16, 5) = (/&
5354
6
 & 1.9216E-03_JPRB,3.2321E-02_JPRB,5.2426E-02_JPRB,6.9093E-02_JPRB,7.8632E-02_JPRB/)
5355
KBO( :, 5,16, 5) = (/&
5356
6
 & 2.6144E-03_JPRB,3.5146E-02_JPRB,5.5567E-02_JPRB,7.1811E-02_JPRB,7.9616E-02_JPRB/)
5357
KBO( :, 1,17, 5) = (/&
5358
6
 & 5.5621E-04_JPRB,2.1119E-02_JPRB,3.6702E-02_JPRB,5.0729E-02_JPRB,6.1106E-02_JPRB/)
5359
KBO( :, 2,17, 5) = (/&
5360
6
 & 8.3232E-04_JPRB,2.3324E-02_JPRB,3.9564E-02_JPRB,5.3768E-02_JPRB,6.3482E-02_JPRB/)
5361
KBO( :, 3,17, 5) = (/&
5362
6
 & 1.1952E-03_JPRB,2.5644E-02_JPRB,4.2368E-02_JPRB,5.6531E-02_JPRB,6.5194E-02_JPRB/)
5363
KBO( :, 4,17, 5) = (/&
5364
6
 & 1.6664E-03_JPRB,2.8012E-02_JPRB,4.5051E-02_JPRB,5.8907E-02_JPRB,6.6158E-02_JPRB/)
5365
KBO( :, 5,17, 5) = (/&
5366
6
 & 2.2697E-03_JPRB,3.0355E-02_JPRB,4.7479E-02_JPRB,6.0879E-02_JPRB,6.6574E-02_JPRB/)
5367
KBO( :, 1,18, 5) = (/&
5368
6
 & 4.8259E-04_JPRB,1.8188E-02_JPRB,3.1503E-02_JPRB,4.3373E-02_JPRB,5.1944E-02_JPRB/)
5369
KBO( :, 2,18, 5) = (/&
5370
6
 & 7.2053E-04_JPRB,2.0086E-02_JPRB,3.3870E-02_JPRB,4.5795E-02_JPRB,5.3602E-02_JPRB/)
5371
KBO( :, 3,18, 5) = (/&
5372
6
 & 1.0344E-03_JPRB,2.2024E-02_JPRB,3.6106E-02_JPRB,4.7862E-02_JPRB,5.4601E-02_JPRB/)
5373
KBO( :, 4,18, 5) = (/&
5374
6
 & 1.4426E-03_JPRB,2.3955E-02_JPRB,3.8187E-02_JPRB,4.9634E-02_JPRB,5.5105E-02_JPRB/)
5375
KBO( :, 5,18, 5) = (/&
5376
6
 & 1.9652E-03_JPRB,2.5872E-02_JPRB,4.0129E-02_JPRB,5.1165E-02_JPRB,5.5250E-02_JPRB/)
5377
KBO( :, 1,19, 5) = (/&
5378
6
 & 4.1792E-04_JPRB,1.5551E-02_JPRB,2.6815E-02_JPRB,3.6748E-02_JPRB,4.3685E-02_JPRB/)
5379
KBO( :, 2,19, 5) = (/&
5380
6
 & 6.2288E-04_JPRB,1.7122E-02_JPRB,2.8681E-02_JPRB,3.8570E-02_JPRB,4.4726E-02_JPRB/)
5381
KBO( :, 3,19, 5) = (/&
5382
6
 & 8.9314E-04_JPRB,1.8695E-02_JPRB,3.0435E-02_JPRB,4.0145E-02_JPRB,4.5326E-02_JPRB/)
5383
KBO( :, 4,19, 5) = (/&
5384
6
 & 1.2454E-03_JPRB,2.0272E-02_JPRB,3.2103E-02_JPRB,4.1538E-02_JPRB,4.5592E-02_JPRB/)
5385
KBO( :, 5,19, 5) = (/&
5386
6
 & 1.6963E-03_JPRB,2.1865E-02_JPRB,3.3692E-02_JPRB,4.2753E-02_JPRB,4.5589E-02_JPRB/)
5387
KBO( :, 1,20, 5) = (/&
5388
6
 & 3.6420E-04_JPRB,1.3204E-02_JPRB,2.2627E-02_JPRB,3.0869E-02_JPRB,3.6406E-02_JPRB/)
5389
KBO( :, 2,20, 5) = (/&
5390
6
 & 5.4128E-04_JPRB,1.4478E-02_JPRB,2.4102E-02_JPRB,3.2269E-02_JPRB,3.7086E-02_JPRB/)
5391
KBO( :, 3,20, 5) = (/&
5392
6
 & 7.7497E-04_JPRB,1.5768E-02_JPRB,2.5513E-02_JPRB,3.3512E-02_JPRB,3.7454E-02_JPRB/)
5393
KBO( :, 4,20, 5) = (/&
5394
6
 & 1.0788E-03_JPRB,1.7071E-02_JPRB,2.6877E-02_JPRB,3.4628E-02_JPRB,3.7589E-02_JPRB/)
5395
KBO( :, 5,20, 5) = (/&
5396
6
 & 1.4684E-03_JPRB,1.8409E-02_JPRB,2.8186E-02_JPRB,3.5595E-02_JPRB,3.7513E-02_JPRB/)
5397
KBO( :, 1,21, 5) = (/&
5398
6
 & 3.1749E-04_JPRB,1.1126E-02_JPRB,1.8957E-02_JPRB,2.5768E-02_JPRB,3.0157E-02_JPRB/)
5399
KBO( :, 2,21, 5) = (/&
5400
6
 & 4.7023E-04_JPRB,1.2173E-02_JPRB,2.0148E-02_JPRB,2.6878E-02_JPRB,3.0618E-02_JPRB/)
5401
KBO( :, 3,21, 5) = (/&
5402
6
 & 6.7172E-04_JPRB,1.3233E-02_JPRB,2.1304E-02_JPRB,2.7875E-02_JPRB,3.0852E-02_JPRB/)
5403
KBO( :, 4,21, 5) = (/&
5404
6
 & 9.3331E-04_JPRB,1.4327E-02_JPRB,2.2423E-02_JPRB,2.8768E-02_JPRB,3.0908E-02_JPRB/)
5405
KBO( :, 5,21, 5) = (/&
5406
6
 & 1.2694E-03_JPRB,1.5438E-02_JPRB,2.3509E-02_JPRB,2.9558E-02_JPRB,3.0797E-02_JPRB/)
5407
KBO( :, 1,22, 5) = (/&
5408
6
 & 2.8408E-04_JPRB,9.3883E-03_JPRB,1.5880E-02_JPRB,2.1492E-02_JPRB,2.4916E-02_JPRB/)
5409
KBO( :, 2,22, 5) = (/&
5410
6
 & 4.1797E-04_JPRB,1.0249E-02_JPRB,1.6855E-02_JPRB,2.2374E-02_JPRB,2.5222E-02_JPRB/)
5411
KBO( :, 3,22, 5) = (/&
5412
6
 & 5.9453E-04_JPRB,1.1132E-02_JPRB,1.7800E-02_JPRB,2.3170E-02_JPRB,2.5366E-02_JPRB/)
5413
KBO( :, 4,22, 5) = (/&
5414
6
 & 8.2301E-04_JPRB,1.2047E-02_JPRB,1.8719E-02_JPRB,2.3894E-02_JPRB,2.5365E-02_JPRB/)
5415
KBO( :, 5,22, 5) = (/&
5416
6
 & 1.1184E-03_JPRB,1.2973E-02_JPRB,1.9629E-02_JPRB,2.4534E-02_JPRB,2.5237E-02_JPRB/)
5417
KBO( :, 1,23, 5) = (/&
5418
6
 & 2.5418E-04_JPRB,7.8977E-03_JPRB,1.3269E-02_JPRB,1.7874E-02_JPRB,2.0529E-02_JPRB/)
5419
KBO( :, 2,23, 5) = (/&
5420
6
 & 3.7141E-04_JPRB,8.6092E-03_JPRB,1.4071E-02_JPRB,1.8581E-02_JPRB,2.0735E-02_JPRB/)
5421
KBO( :, 3,23, 5) = (/&
5422
6
 & 5.2592E-04_JPRB,9.3501E-03_JPRB,1.4842E-02_JPRB,1.9229E-02_JPRB,2.0817E-02_JPRB/)
5423
KBO( :, 4,23, 5) = (/&
5424
6
 & 7.2596E-04_JPRB,1.0112E-02_JPRB,1.5610E-02_JPRB,1.9813E-02_JPRB,2.0787E-02_JPRB/)
5425
KBO( :, 5,23, 5) = (/&
5426
6
 & 9.8686E-04_JPRB,1.0888E-02_JPRB,1.6368E-02_JPRB,2.0340E-02_JPRB,2.0658E-02_JPRB/)
5427
KBO( :, 1,24, 5) = (/&
5428
6
 & 2.2750E-04_JPRB,6.6317E-03_JPRB,1.1075E-02_JPRB,1.4842E-02_JPRB,1.6884E-02_JPRB/)
5429
KBO( :, 2,24, 5) = (/&
5430
6
 & 3.3026E-04_JPRB,7.2252E-03_JPRB,1.1728E-02_JPRB,1.5415E-02_JPRB,1.7024E-02_JPRB/)
5431
KBO( :, 3,24, 5) = (/&
5432
6
 & 4.6578E-04_JPRB,7.8440E-03_JPRB,1.2367E-02_JPRB,1.5941E-02_JPRB,1.7063E-02_JPRB/)
5433
KBO( :, 4,24, 5) = (/&
5434
6
 & 6.4270E-04_JPRB,8.4805E-03_JPRB,1.3008E-02_JPRB,1.6415E-02_JPRB,1.7016E-02_JPRB/)
5435
KBO( :, 5,24, 5) = (/&
5436
6
 & 8.7339E-04_JPRB,9.1332E-03_JPRB,1.3636E-02_JPRB,1.6855E-02_JPRB,1.6890E-02_JPRB/)
5437
KBO( :, 1,25, 5) = (/&
5438
6
 & 2.0394E-04_JPRB,5.5639E-03_JPRB,9.2339E-03_JPRB,1.2315E-02_JPRB,1.3870E-02_JPRB/)
5439
KBO( :, 2,25, 5) = (/&
5440
6
 & 2.9439E-04_JPRB,6.0615E-03_JPRB,9.7694E-03_JPRB,1.2780E-02_JPRB,1.3961E-02_JPRB/)
5441
KBO( :, 3,25, 5) = (/&
5442
6
 & 4.1407E-04_JPRB,6.5784E-03_JPRB,1.0303E-02_JPRB,1.3206E-02_JPRB,1.3975E-02_JPRB/)
5443
KBO( :, 4,25, 5) = (/&
5444
6
 & 5.7180E-04_JPRB,7.1121E-03_JPRB,1.0835E-02_JPRB,1.3598E-02_JPRB,1.3919E-02_JPRB/)
5445
KBO( :, 5,25, 5) = (/&
5446
6
 & 7.7557E-04_JPRB,7.6591E-03_JPRB,1.1360E-02_JPRB,1.3963E-02_JPRB,1.3799E-02_JPRB/)
5447
KBO( :, 1,26, 5) = (/&
5448
6
 & 1.8382E-04_JPRB,4.6737E-03_JPRB,7.6992E-03_JPRB,1.0216E-02_JPRB,1.1388E-02_JPRB/)
5449
KBO( :, 2,26, 5) = (/&
5450
6
 & 2.6412E-04_JPRB,5.0893E-03_JPRB,8.1430E-03_JPRB,1.0593E-02_JPRB,1.1444E-02_JPRB/)
5451
KBO( :, 3,26, 5) = (/&
5452
6
 & 3.7112E-04_JPRB,5.5248E-03_JPRB,8.5884E-03_JPRB,1.0942E-02_JPRB,1.1439E-02_JPRB/)
5453
KBO( :, 4,26, 5) = (/&
5454
6
 & 5.1206E-04_JPRB,5.9696E-03_JPRB,9.0299E-03_JPRB,1.1267E-02_JPRB,1.1378E-02_JPRB/)
5455
KBO( :, 5,26, 5) = (/&
5456
6
 & 6.9168E-04_JPRB,6.4260E-03_JPRB,9.4675E-03_JPRB,1.1565E-02_JPRB,1.1265E-02_JPRB/)
5457
KBO( :, 1,27, 5) = (/&
5458
6
 & 1.6571E-04_JPRB,3.9248E-03_JPRB,6.4172E-03_JPRB,8.4701E-03_JPRB,9.3451E-03_JPRB/)
5459
KBO( :, 2,27, 5) = (/&
5460
6
 & 2.3754E-04_JPRB,4.2747E-03_JPRB,6.7865E-03_JPRB,8.7783E-03_JPRB,9.3771E-03_JPRB/)
5461
KBO( :, 3,27, 5) = (/&
5462
6
 & 3.3337E-04_JPRB,4.6378E-03_JPRB,7.1567E-03_JPRB,9.0646E-03_JPRB,9.3601E-03_JPRB/)
5463
KBO( :, 4,27, 5) = (/&
5464
6
 & 4.5858E-04_JPRB,5.0089E-03_JPRB,7.5246E-03_JPRB,9.3326E-03_JPRB,9.2999E-03_JPRB/)
5465
KBO( :, 5,27, 5) = (/&
5466
6
 & 6.1684E-04_JPRB,5.3899E-03_JPRB,7.8886E-03_JPRB,9.5804E-03_JPRB,9.1956E-03_JPRB/)
5467
KBO( :, 1,28, 5) = (/&
5468
6
 & 1.4962E-04_JPRB,3.2968E-03_JPRB,5.3486E-03_JPRB,7.0211E-03_JPRB,7.6657E-03_JPRB/)
5469
KBO( :, 2,28, 5) = (/&
5470
6
 & 2.1414E-04_JPRB,3.5906E-03_JPRB,5.6546E-03_JPRB,7.2727E-03_JPRB,7.6801E-03_JPRB/)
5471
KBO( :, 3,28, 5) = (/&
5472
6
 & 2.9958E-04_JPRB,3.8927E-03_JPRB,5.9643E-03_JPRB,7.5099E-03_JPRB,7.6582E-03_JPRB/)
5473
KBO( :, 4,28, 5) = (/&
5474
6
 & 4.1038E-04_JPRB,4.2012E-03_JPRB,6.2693E-03_JPRB,7.7298E-03_JPRB,7.5988E-03_JPRB/)
5475
KBO( :, 5,28, 5) = (/&
5476
6
 & 5.4914E-04_JPRB,4.5240E-03_JPRB,6.5722E-03_JPRB,7.9359E-03_JPRB,7.5057E-03_JPRB/)
5477
KBO( :, 1,29, 5) = (/&
5478
6
 & 1.3561E-04_JPRB,2.7716E-03_JPRB,4.4584E-03_JPRB,5.8201E-03_JPRB,6.2872E-03_JPRB/)
5479
KBO( :, 2,29, 5) = (/&
5480
6
 & 1.9362E-04_JPRB,3.0169E-03_JPRB,4.7155E-03_JPRB,6.0283E-03_JPRB,6.2926E-03_JPRB/)
5481
KBO( :, 3,29, 5) = (/&
5482
6
 & 2.6977E-04_JPRB,3.2683E-03_JPRB,4.9713E-03_JPRB,6.2221E-03_JPRB,6.2669E-03_JPRB/)
5483
KBO( :, 4,29, 5) = (/&
5484
6
 & 3.6734E-04_JPRB,3.5269E-03_JPRB,5.2257E-03_JPRB,6.4042E-03_JPRB,6.2118E-03_JPRB/)
5485
KBO( :, 5,29, 5) = (/&
5486
6
 & 4.8841E-04_JPRB,3.8031E-03_JPRB,5.4769E-03_JPRB,6.5743E-03_JPRB,6.1306E-03_JPRB/)
5487
KBO( :, 1,30, 5) = (/&
5488
6
 & 1.2311E-04_JPRB,2.3299E-03_JPRB,3.7176E-03_JPRB,4.8241E-03_JPRB,5.1561E-03_JPRB/)
5489
5490
1
IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART18',1,ZHOOK_HANDLE)
5491
1
END SUBROUTINE PART18
5492
5493
5494
1
SUBROUTINE PART19
5495
5496
REAL(KIND=JPRB) :: ZHOOK_HANDLE
5497
1
IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART19',0,ZHOOK_HANDLE)
5498
5499
5500
KBO( :, 2,30, 5) = (/&
5501
6
 & 1.7495E-04_JPRB,2.5344E-03_JPRB,3.9319E-03_JPRB,4.9954E-03_JPRB,5.1555E-03_JPRB/)
5502
KBO( :, 3,30, 5) = (/&
5503
6
 & 2.4248E-04_JPRB,2.7440E-03_JPRB,4.1448E-03_JPRB,5.1563E-03_JPRB,5.1297E-03_JPRB/)
5504
KBO( :, 4,30, 5) = (/&
5505
6
 & 3.2798E-04_JPRB,2.9629E-03_JPRB,4.3553E-03_JPRB,5.3054E-03_JPRB,5.0790E-03_JPRB/)
5506
KBO( :, 5,30, 5) = (/&
5507
6
 & 4.3295E-04_JPRB,3.2017E-03_JPRB,4.5670E-03_JPRB,5.4466E-03_JPRB,5.0095E-03_JPRB/)
5508
KBO( :, 1,31, 5) = (/&
5509
6
 & 1.1192E-04_JPRB,1.9595E-03_JPRB,3.1024E-03_JPRB,4.0004E-03_JPRB,4.2313E-03_JPRB/)
5510
KBO( :, 2,31, 5) = (/&
5511
6
 & 1.5800E-04_JPRB,2.1296E-03_JPRB,3.2801E-03_JPRB,4.1421E-03_JPRB,4.2268E-03_JPRB/)
5512
KBO( :, 3,31, 5) = (/&
5513
6
 & 2.1757E-04_JPRB,2.3054E-03_JPRB,3.4565E-03_JPRB,4.2735E-03_JPRB,4.2017E-03_JPRB/)
5514
KBO( :, 4,31, 5) = (/&
5515
6
 & 2.9222E-04_JPRB,2.4942E-03_JPRB,3.6328E-03_JPRB,4.3970E-03_JPRB,4.1575E-03_JPRB/)
5516
KBO( :, 5,31, 5) = (/&
5517
6
 & 3.8261E-04_JPRB,2.7007E-03_JPRB,3.8145E-03_JPRB,4.5146E-03_JPRB,4.0989E-03_JPRB/)
5518
KBO( :, 1,32, 5) = (/&
5519
6
 & 1.0163E-04_JPRB,1.6481E-03_JPRB,2.5899E-03_JPRB,3.3182E-03_JPRB,3.4733E-03_JPRB/)
5520
KBO( :, 2,32, 5) = (/&
5521
6
 & 1.4246E-04_JPRB,1.7902E-03_JPRB,2.7371E-03_JPRB,3.4345E-03_JPRB,3.4660E-03_JPRB/)
5522
KBO( :, 3,32, 5) = (/&
5523
6
 & 1.9480E-04_JPRB,1.9398E-03_JPRB,2.8839E-03_JPRB,3.5427E-03_JPRB,3.4424E-03_JPRB/)
5524
KBO( :, 4,32, 5) = (/&
5525
6
 & 2.5957E-04_JPRB,2.1035E-03_JPRB,3.0336E-03_JPRB,3.6462E-03_JPRB,3.4050E-03_JPRB/)
5526
KBO( :, 5,32, 5) = (/&
5527
6
 & 3.3711E-04_JPRB,2.2803E-03_JPRB,3.1908E-03_JPRB,3.7450E-03_JPRB,3.3564E-03_JPRB/)
5528
KBO( :, 1,33, 5) = (/&
5529
6
 & 9.2126E-05_JPRB,1.3862E-03_JPRB,2.1619E-03_JPRB,2.7533E-03_JPRB,2.8512E-03_JPRB/)
5530
KBO( :, 2,33, 5) = (/&
5531
6
 & 1.2819E-04_JPRB,1.5059E-03_JPRB,2.2846E-03_JPRB,2.8490E-03_JPRB,2.8435E-03_JPRB/)
5532
KBO( :, 3,33, 5) = (/&
5533
6
 & 1.7396E-04_JPRB,1.6352E-03_JPRB,2.4079E-03_JPRB,2.9394E-03_JPRB,2.8229E-03_JPRB/)
5534
KBO( :, 4,33, 5) = (/&
5535
6
 & 2.2988E-04_JPRB,1.7763E-03_JPRB,2.5366E-03_JPRB,3.0253E-03_JPRB,2.7916E-03_JPRB/)
5536
KBO( :, 5,33, 5) = (/&
5537
6
 & 2.9642E-04_JPRB,1.9270E-03_JPRB,2.6736E-03_JPRB,3.1112E-03_JPRB,2.7515E-03_JPRB/)
5538
KBO( :, 1,34, 5) = (/&
5539
6
 & 8.2273E-05_JPRB,1.1628E-03_JPRB,1.8018E-03_JPRB,2.2821E-03_JPRB,2.3408E-03_JPRB/)
5540
KBO( :, 2,34, 5) = (/&
5541
6
 & 1.1377E-04_JPRB,1.2650E-03_JPRB,1.9038E-03_JPRB,2.3616E-03_JPRB,2.3330E-03_JPRB/)
5542
KBO( :, 3,34, 5) = (/&
5543
6
 & 1.5328E-04_JPRB,1.3767E-03_JPRB,2.0090E-03_JPRB,2.4362E-03_JPRB,2.3154E-03_JPRB/)
5544
KBO( :, 4,34, 5) = (/&
5545
6
 & 2.0116E-04_JPRB,1.4967E-03_JPRB,2.1205E-03_JPRB,2.5102E-03_JPRB,2.2896E-03_JPRB/)
5546
KBO( :, 5,34, 5) = (/&
5547
6
 & 2.5794E-04_JPRB,1.6239E-03_JPRB,2.2376E-03_JPRB,2.5850E-03_JPRB,2.2567E-03_JPRB/)
5548
KBO( :, 1,35, 5) = (/&
5549
6
 & 7.0985E-05_JPRB,9.6792E-04_JPRB,1.4935E-03_JPRB,1.8860E-03_JPRB,1.9224E-03_JPRB/)
5550
KBO( :, 2,35, 5) = (/&
5551
6
 & 9.7802E-05_JPRB,1.0553E-03_JPRB,1.5791E-03_JPRB,1.9515E-03_JPRB,1.9160E-03_JPRB/)
5552
KBO( :, 3,35, 5) = (/&
5553
6
 & 1.3114E-04_JPRB,1.1504E-03_JPRB,1.6692E-03_JPRB,2.0149E-03_JPRB,1.9021E-03_JPRB/)
5554
KBO( :, 4,35, 5) = (/&
5555
6
 & 1.7143E-04_JPRB,1.2515E-03_JPRB,1.7654E-03_JPRB,2.0786E-03_JPRB,1.8814E-03_JPRB/)
5556
KBO( :, 5,35, 5) = (/&
5557
6
 & 2.1910E-04_JPRB,1.3576E-03_JPRB,1.8646E-03_JPRB,2.1453E-03_JPRB,1.8551E-03_JPRB/)
5558
KBO( :, 1,36, 5) = (/&
5559
6
 & 5.9035E-05_JPRB,7.9892E-04_JPRB,1.2308E-03_JPRB,1.5523E-03_JPRB,1.5795E-03_JPRB/)
5560
KBO( :, 2,36, 5) = (/&
5561
6
 & 8.1217E-05_JPRB,8.7305E-04_JPRB,1.3026E-03_JPRB,1.6078E-03_JPRB,1.5749E-03_JPRB/)
5562
KBO( :, 3,36, 5) = (/&
5563
6
 & 1.0874E-04_JPRB,9.5286E-04_JPRB,1.3800E-03_JPRB,1.6617E-03_JPRB,1.5644E-03_JPRB/)
5564
KBO( :, 4,36, 5) = (/&
5565
6
 & 1.4198E-04_JPRB,1.0374E-03_JPRB,1.4616E-03_JPRB,1.7169E-03_JPRB,1.5482E-03_JPRB/)
5566
KBO( :, 5,36, 5) = (/&
5567
6
 & 1.8132E-04_JPRB,1.1249E-03_JPRB,1.5450E-03_JPRB,1.7750E-03_JPRB,1.5279E-03_JPRB/)
5568
KBO( :, 1,37, 5) = (/&
5569
6
 & 4.6641E-05_JPRB,6.5099E-04_JPRB,1.0056E-03_JPRB,1.2714E-03_JPRB,1.2972E-03_JPRB/)
5570
KBO( :, 2,37, 5) = (/&
5571
6
 & 6.4348E-05_JPRB,7.1292E-04_JPRB,1.0660E-03_JPRB,1.3181E-03_JPRB,1.2951E-03_JPRB/)
5572
KBO( :, 3,37, 5) = (/&
5573
6
 & 8.6362E-05_JPRB,7.7917E-04_JPRB,1.1314E-03_JPRB,1.3641E-03_JPRB,1.2877E-03_JPRB/)
5574
KBO( :, 4,37, 5) = (/&
5575
6
 & 1.1309E-04_JPRB,8.4913E-04_JPRB,1.1999E-03_JPRB,1.4118E-03_JPRB,1.2757E-03_JPRB/)
5576
KBO( :, 5,37, 5) = (/&
5577
6
 & 1.4475E-04_JPRB,9.2097E-04_JPRB,1.2698E-03_JPRB,1.4619E-03_JPRB,1.2601E-03_JPRB/)
5578
KBO( :, 1,38, 5) = (/&
5579
6
 & 3.6723E-05_JPRB,5.3005E-04_JPRB,8.2089E-04_JPRB,1.0406E-03_JPRB,1.0656E-03_JPRB/)
5580
KBO( :, 2,38, 5) = (/&
5581
6
 & 5.0809E-05_JPRB,5.8160E-04_JPRB,8.7173E-04_JPRB,1.0802E-03_JPRB,1.0654E-03_JPRB/)
5582
KBO( :, 3,38, 5) = (/&
5583
6
 & 6.8411E-05_JPRB,6.3671E-04_JPRB,9.2702E-04_JPRB,1.1191E-03_JPRB,1.0602E-03_JPRB/)
5584
KBO( :, 4,38, 5) = (/&
5585
6
 & 8.9837E-05_JPRB,6.9447E-04_JPRB,9.8469E-04_JPRB,1.1603E-03_JPRB,1.0517E-03_JPRB/)
5586
KBO( :, 5,38, 5) = (/&
5587
6
 & 1.1531E-04_JPRB,7.5325E-04_JPRB,1.0431E-03_JPRB,1.2032E-03_JPRB,1.0398E-03_JPRB/)
5588
KBO( :, 1,39, 5) = (/&
5589
6
 & 2.8898E-05_JPRB,4.3158E-04_JPRB,6.7024E-04_JPRB,8.5167E-04_JPRB,8.7586E-04_JPRB/)
5590
KBO( :, 2,39, 5) = (/&
5591
6
 & 4.0107E-05_JPRB,4.7450E-04_JPRB,7.1291E-04_JPRB,8.8507E-04_JPRB,8.7670E-04_JPRB/)
5592
KBO( :, 3,39, 5) = (/&
5593
6
 & 5.4168E-05_JPRB,5.2021E-04_JPRB,7.5961E-04_JPRB,9.1815E-04_JPRB,8.7354E-04_JPRB/)
5594
KBO( :, 4,39, 5) = (/&
5595
6
 & 7.1354E-05_JPRB,5.6789E-04_JPRB,8.0816E-04_JPRB,9.5425E-04_JPRB,8.6787E-04_JPRB/)
5596
KBO( :, 5,39, 5) = (/&
5597
6
 & 9.1825E-05_JPRB,6.1595E-04_JPRB,8.5693E-04_JPRB,9.9080E-04_JPRB,8.5879E-04_JPRB/)
5598
KBO( :, 1,40, 5) = (/&
5599
6
 & 2.1926E-05_JPRB,3.4792E-04_JPRB,5.4363E-04_JPRB,6.9406E-04_JPRB,7.1842E-04_JPRB/)
5600
KBO( :, 2,40, 5) = (/&
5601
6
 & 3.0613E-05_JPRB,3.8334E-04_JPRB,5.7923E-04_JPRB,7.2214E-04_JPRB,7.2011E-04_JPRB/)
5602
KBO( :, 3,40, 5) = (/&
5603
6
 & 4.1595E-05_JPRB,4.2107E-04_JPRB,6.1835E-04_JPRB,7.5061E-04_JPRB,7.1871E-04_JPRB/)
5604
KBO( :, 4,40, 5) = (/&
5605
6
 & 5.5108E-05_JPRB,4.6016E-04_JPRB,6.5893E-04_JPRB,7.8109E-04_JPRB,7.1463E-04_JPRB/)
5606
KBO( :, 5,40, 5) = (/&
5607
6
 & 7.1275E-05_JPRB,4.9940E-04_JPRB,6.9980E-04_JPRB,8.1264E-04_JPRB,7.0800E-04_JPRB/)
5608
KBO( :, 1,41, 5) = (/&
5609
6
 & 1.6527E-05_JPRB,2.7994E-04_JPRB,4.4041E-04_JPRB,5.6504E-04_JPRB,5.8892E-04_JPRB/)
5610
KBO( :, 2,41, 5) = (/&
5611
6
 & 2.3240E-05_JPRB,3.0917E-04_JPRB,4.7005E-04_JPRB,5.8887E-04_JPRB,5.9140E-04_JPRB/)
5612
KBO( :, 3,41, 5) = (/&
5613
6
 & 3.1779E-05_JPRB,3.4025E-04_JPRB,5.0274E-04_JPRB,6.1295E-04_JPRB,5.9095E-04_JPRB/)
5614
KBO( :, 4,41, 5) = (/&
5615
6
 & 4.2345E-05_JPRB,3.7229E-04_JPRB,5.3669E-04_JPRB,6.3912E-04_JPRB,5.8845E-04_JPRB/)
5616
KBO( :, 5,41, 5) = (/&
5617
6
 & 5.5088E-05_JPRB,4.0429E-04_JPRB,5.7085E-04_JPRB,6.6587E-04_JPRB,5.8356E-04_JPRB/)
5618
KBO( :, 1,42, 5) = (/&
5619
6
 & 1.2429E-05_JPRB,2.2514E-04_JPRB,3.5666E-04_JPRB,4.5978E-04_JPRB,4.8268E-04_JPRB/)
5620
KBO( :, 2,42, 5) = (/&
5621
6
 & 1.7617E-05_JPRB,2.4922E-04_JPRB,3.8130E-04_JPRB,4.8000E-04_JPRB,4.8554E-04_JPRB/)
5622
KBO( :, 3,42, 5) = (/&
5623
6
 & 2.4234E-05_JPRB,2.7477E-04_JPRB,4.0862E-04_JPRB,5.0042E-04_JPRB,4.8593E-04_JPRB/)
5624
KBO( :, 4,42, 5) = (/&
5625
6
 & 3.2488E-05_JPRB,3.0100E-04_JPRB,4.3706E-04_JPRB,5.2275E-04_JPRB,4.8456E-04_JPRB/)
5626
KBO( :, 5,42, 5) = (/&
5627
6
 & 4.2516E-05_JPRB,3.2713E-04_JPRB,4.6549E-04_JPRB,5.4559E-04_JPRB,4.8115E-04_JPRB/)
5628
KBO( :, 1,43, 5) = (/&
5629
6
 & 9.1288E-06_JPRB,1.7990E-04_JPRB,2.8763E-04_JPRB,3.7307E-04_JPRB,3.9529E-04_JPRB/)
5630
KBO( :, 2,43, 5) = (/&
5631
6
 & 1.3070E-05_JPRB,1.9955E-04_JPRB,3.0790E-04_JPRB,3.8997E-04_JPRB,3.9826E-04_JPRB/)
5632
KBO( :, 3,43, 5) = (/&
5633
6
 & 1.8123E-05_JPRB,2.2051E-04_JPRB,3.3057E-04_JPRB,4.0731E-04_JPRB,3.9935E-04_JPRB/)
5634
KBO( :, 4,43, 5) = (/&
5635
6
 & 2.4489E-05_JPRB,2.4201E-04_JPRB,3.5433E-04_JPRB,4.2614E-04_JPRB,3.9876E-04_JPRB/)
5636
KBO( :, 5,43, 5) = (/&
5637
6
 & 3.2280E-05_JPRB,2.6336E-04_JPRB,3.7813E-04_JPRB,4.4577E-04_JPRB,3.9669E-04_JPRB/)
5638
KBO( :, 1,44, 5) = (/&
5639
6
 & 6.6151E-06_JPRB,1.4326E-04_JPRB,2.3138E-04_JPRB,3.0204E-04_JPRB,3.2336E-04_JPRB/)
5640
KBO( :, 2,44, 5) = (/&
5641
6
 & 9.5822E-06_JPRB,1.5927E-04_JPRB,2.4809E-04_JPRB,3.1644E-04_JPRB,3.2651E-04_JPRB/)
5642
KBO( :, 3,44, 5) = (/&
5643
6
 & 1.3410E-05_JPRB,1.7639E-04_JPRB,2.6682E-04_JPRB,3.3096E-04_JPRB,3.2809E-04_JPRB/)
5644
KBO( :, 4,44, 5) = (/&
5645
6
 & 1.8276E-05_JPRB,1.9397E-04_JPRB,2.8664E-04_JPRB,3.4697E-04_JPRB,3.2823E-04_JPRB/)
5646
KBO( :, 5,44, 5) = (/&
5647
6
 & 2.4286E-05_JPRB,2.1151E-04_JPRB,3.0643E-04_JPRB,3.6349E-04_JPRB,3.2698E-04_JPRB/)
5648
KBO( :, 1,45, 5) = (/&
5649
6
 & 4.7734E-06_JPRB,1.1403E-04_JPRB,1.8604E-04_JPRB,2.4442E-04_JPRB,2.6449E-04_JPRB/)
5650
KBO( :, 2,45, 5) = (/&
5651
6
 & 6.9996E-06_JPRB,1.2693E-04_JPRB,1.9973E-04_JPRB,2.5644E-04_JPRB,2.6762E-04_JPRB/)
5652
KBO( :, 3,45, 5) = (/&
5653
6
 & 9.8982E-06_JPRB,1.4091E-04_JPRB,2.1513E-04_JPRB,2.6865E-04_JPRB,2.6944E-04_JPRB/)
5654
KBO( :, 4,45, 5) = (/&
5655
6
 & 1.3603E-05_JPRB,1.5533E-04_JPRB,2.3165E-04_JPRB,2.8211E-04_JPRB,2.7010E-04_JPRB/)
5656
KBO( :, 5,45, 5) = (/&
5657
6
 & 1.8224E-05_JPRB,1.6976E-04_JPRB,2.4816E-04_JPRB,2.9621E-04_JPRB,2.6963E-04_JPRB/)
5658
KBO( :, 1,46, 5) = (/&
5659
6
 & 3.3983E-06_JPRB,9.0473E-05_JPRB,1.4921E-04_JPRB,1.9732E-04_JPRB,2.1604E-04_JPRB/)
5660
KBO( :, 2,46, 5) = (/&
5661
6
 & 5.0514E-06_JPRB,1.0084E-04_JPRB,1.6045E-04_JPRB,2.0752E-04_JPRB,2.1916E-04_JPRB/)
5662
KBO( :, 3,46, 5) = (/&
5663
6
 & 7.2271E-06_JPRB,1.1223E-04_JPRB,1.7305E-04_JPRB,2.1775E-04_JPRB,2.2117E-04_JPRB/)
5664
KBO( :, 4,46, 5) = (/&
5665
6
 & 1.0026E-05_JPRB,1.2405E-04_JPRB,1.8678E-04_JPRB,2.2906E-04_JPRB,2.2224E-04_JPRB/)
5666
KBO( :, 5,46, 5) = (/&
5667
6
 & 1.3554E-05_JPRB,1.3592E-04_JPRB,2.0050E-04_JPRB,2.4099E-04_JPRB,2.2226E-04_JPRB/)
5668
KBO( :, 1,47, 5) = (/&
5669
6
 & 2.3650E-06_JPRB,7.1417E-05_JPRB,1.1919E-04_JPRB,1.5882E-04_JPRB,1.7611E-04_JPRB/)
5670
KBO( :, 2,47, 5) = (/&
5671
6
 & 3.5679E-06_JPRB,7.9650E-05_JPRB,1.2838E-04_JPRB,1.6748E-04_JPRB,1.7919E-04_JPRB/)
5672
KBO( :, 3,47, 5) = (/&
5673
6
 & 5.1778E-06_JPRB,8.8892E-05_JPRB,1.3863E-04_JPRB,1.7599E-04_JPRB,1.8128E-04_JPRB/)
5674
KBO( :, 4,47, 5) = (/&
5675
6
 & 7.2636E-06_JPRB,9.8532E-05_JPRB,1.4995E-04_JPRB,1.8532E-04_JPRB,1.8257E-04_JPRB/)
5676
KBO( :, 5,47, 5) = (/&
5677
6
 & 9.9200E-06_JPRB,1.0829E-04_JPRB,1.6134E-04_JPRB,1.9543E-04_JPRB,1.8296E-04_JPRB/)
5678
KBO( :, 1,48, 5) = (/&
5679
6
 & 1.6346E-06_JPRB,5.6335E-05_JPRB,9.5109E-05_JPRB,1.2769E-04_JPRB,1.4342E-04_JPRB/)
5680
KBO( :, 2,48, 5) = (/&
5681
6
 & 2.5038E-06_JPRB,6.2854E-05_JPRB,1.0261E-04_JPRB,1.3493E-04_JPRB,1.4636E-04_JPRB/)
5682
KBO( :, 3,48, 5) = (/&
5683
6
 & 3.6896E-06_JPRB,7.0296E-05_JPRB,1.1094E-04_JPRB,1.4209E-04_JPRB,1.4851E-04_JPRB/)
5684
KBO( :, 4,48, 5) = (/&
5685
6
 & 5.2406E-06_JPRB,7.8146E-05_JPRB,1.2020E-04_JPRB,1.4978E-04_JPRB,1.4992E-04_JPRB/)
5686
KBO( :, 5,48, 5) = (/&
5687
6
 & 7.2291E-06_JPRB,8.6170E-05_JPRB,1.2966E-04_JPRB,1.5832E-04_JPRB,1.5064E-04_JPRB/)
5688
KBO( :, 1,49, 5) = (/&
5689
6
 & 1.1213E-06_JPRB,4.4399E-05_JPRB,7.5829E-05_JPRB,1.0254E-04_JPRB,1.1671E-04_JPRB/)
5690
KBO( :, 2,49, 5) = (/&
5691
6
 & 1.7465E-06_JPRB,4.9565E-05_JPRB,8.1954E-05_JPRB,1.0863E-04_JPRB,1.1954E-04_JPRB/)
5692
KBO( :, 3,49, 5) = (/&
5693
6
 & 2.6146E-06_JPRB,5.5485E-05_JPRB,8.8647E-05_JPRB,1.1460E-04_JPRB,1.2164E-04_JPRB/)
5694
KBO( :, 4,49, 5) = (/&
5695
6
 & 3.7631E-06_JPRB,6.1900E-05_JPRB,9.6246E-05_JPRB,1.2097E-04_JPRB,1.2315E-04_JPRB/)
5696
KBO( :, 5,49, 5) = (/&
5697
6
 & 5.2478E-06_JPRB,6.8486E-05_JPRB,1.0411E-04_JPRB,1.2810E-04_JPRB,1.2412E-04_JPRB/)
5698
KBO( :, 1,50, 5) = (/&
5699
6
 & 7.7219E-07_JPRB,3.5060E-05_JPRB,6.0501E-05_JPRB,8.2333E-05_JPRB,9.4799E-05_JPRB/)
5700
KBO( :, 2,50, 5) = (/&
5701
6
 & 1.2243E-06_JPRB,3.9171E-05_JPRB,6.5508E-05_JPRB,8.7444E-05_JPRB,9.7433E-05_JPRB/)
5702
KBO( :, 3,50, 5) = (/&
5703
6
 & 1.8601E-06_JPRB,4.3898E-05_JPRB,7.0971E-05_JPRB,9.2481E-05_JPRB,9.9443E-05_JPRB/)
5704
KBO( :, 4,50, 5) = (/&
5705
6
 & 2.7138E-06_JPRB,4.9113E-05_JPRB,7.7142E-05_JPRB,9.7774E-05_JPRB,1.0093E-04_JPRB/)
5706
KBO( :, 5,50, 5) = (/&
5707
6
 & 3.8270E-06_JPRB,5.4504E-05_JPRB,8.3666E-05_JPRB,1.0372E-04_JPRB,1.0197E-04_JPRB/)
5708
KBO( :, 1,51, 5) = (/&
5709
6
 & 5.3024E-07_JPRB,2.7696E-05_JPRB,4.8261E-05_JPRB,6.6083E-05_JPRB,7.6892E-05_JPRB/)
5710
KBO( :, 2,51, 5) = (/&
5711
6
 & 8.5735E-07_JPRB,3.0983E-05_JPRB,5.2368E-05_JPRB,7.0412E-05_JPRB,7.9289E-05_JPRB/)
5712
KBO( :, 3,51, 5) = (/&
5713
6
 & 1.3218E-06_JPRB,3.4738E-05_JPRB,5.6824E-05_JPRB,7.4609E-05_JPRB,8.1180E-05_JPRB/)
5714
KBO( :, 4,51, 5) = (/&
5715
6
 & 1.9559E-06_JPRB,3.8961E-05_JPRB,6.1833E-05_JPRB,7.8998E-05_JPRB,8.2596E-05_JPRB/)
5716
KBO( :, 5,51, 5) = (/&
5717
6
 & 2.7897E-06_JPRB,4.3372E-05_JPRB,6.7221E-05_JPRB,8.3927E-05_JPRB,8.3636E-05_JPRB/)
5718
KBO( :, 1,52, 5) = (/&
5719
6
 & 3.6108E-07_JPRB,2.1866E-05_JPRB,3.8454E-05_JPRB,5.2969E-05_JPRB,6.2335E-05_JPRB/)
5720
KBO( :, 2,52, 5) = (/&
5721
6
 & 5.9667E-07_JPRB,2.4493E-05_JPRB,4.1837E-05_JPRB,5.6625E-05_JPRB,6.4483E-05_JPRB/)
5722
KBO( :, 3,52, 5) = (/&
5723
6
 & 9.3484E-07_JPRB,2.7465E-05_JPRB,4.5448E-05_JPRB,6.0126E-05_JPRB,6.6246E-05_JPRB/)
5724
KBO( :, 4,52, 5) = (/&
5725
6
 & 1.4036E-06_JPRB,3.0877E-05_JPRB,4.9517E-05_JPRB,6.3789E-05_JPRB,6.7578E-05_JPRB/)
5726
KBO( :, 5,52, 5) = (/&
5727
6
 & 2.0268E-06_JPRB,3.4479E-05_JPRB,5.3935E-05_JPRB,6.7855E-05_JPRB,6.8602E-05_JPRB/)
5728
KBO( :, 1,53, 5) = (/&
5729
6
 & 2.4332E-07_JPRB,1.7244E-05_JPRB,3.0597E-05_JPRB,4.2405E-05_JPRB,5.0498E-05_JPRB/)
5730
KBO( :, 2,53, 5) = (/&
5731
6
 & 4.1214E-07_JPRB,1.9345E-05_JPRB,3.3390E-05_JPRB,4.5480E-05_JPRB,5.2422E-05_JPRB/)
5732
KBO( :, 3,53, 5) = (/&
5733
6
 & 6.5730E-07_JPRB,2.1709E-05_JPRB,3.6329E-05_JPRB,4.8415E-05_JPRB,5.4043E-05_JPRB/)
5734
KBO( :, 4,53, 5) = (/&
5735
6
 & 1.0016E-06_JPRB,2.4434E-05_JPRB,3.9600E-05_JPRB,5.1439E-05_JPRB,5.5301E-05_JPRB/)
5736
KBO( :, 5,53, 5) = (/&
5737
6
 & 1.4656E-06_JPRB,2.7368E-05_JPRB,4.3227E-05_JPRB,5.4790E-05_JPRB,5.6292E-05_JPRB/)
5738
KBO( :, 1,54, 5) = (/&
5739
6
 & 1.6511E-07_JPRB,1.3630E-05_JPRB,2.4378E-05_JPRB,3.3979E-05_JPRB,4.0794E-05_JPRB/)
5740
KBO( :, 2,54, 5) = (/&
5741
6
 & 2.8688E-07_JPRB,1.5326E-05_JPRB,2.6694E-05_JPRB,3.6556E-05_JPRB,4.2472E-05_JPRB/)
5742
KBO( :, 3,54, 5) = (/&
5743
6
 & 4.6588E-07_JPRB,1.7208E-05_JPRB,2.9089E-05_JPRB,3.9026E-05_JPRB,4.3891E-05_JPRB/)
5744
KBO( :, 4,54, 5) = (/&
5745
6
 & 7.2012E-07_JPRB,1.9389E-05_JPRB,3.1742E-05_JPRB,4.1533E-05_JPRB,4.5023E-05_JPRB/)
5746
KBO( :, 5,54, 5) = (/&
5747
6
 & 1.0672E-06_JPRB,2.1776E-05_JPRB,3.4708E-05_JPRB,4.4305E-05_JPRB,4.5917E-05_JPRB/)
5748
KBO( :, 1,55, 5) = (/&
5749
6
 & 1.1192E-07_JPRB,1.0784E-05_JPRB,1.9433E-05_JPRB,2.7227E-05_JPRB,3.2881E-05_JPRB/)
5750
KBO( :, 2,55, 5) = (/&
5751
6
 & 1.9966E-07_JPRB,1.2152E-05_JPRB,2.1341E-05_JPRB,2.9385E-05_JPRB,3.4331E-05_JPRB/)
5752
KBO( :, 3,55, 5) = (/&
5753
6
 & 3.3052E-07_JPRB,1.3654E-05_JPRB,2.3300E-05_JPRB,3.1458E-05_JPRB,3.5546E-05_JPRB/)
5754
KBO( :, 4,55, 5) = (/&
5755
6
 & 5.1840E-07_JPRB,1.5395E-05_JPRB,2.5450E-05_JPRB,3.3531E-05_JPRB,3.6538E-05_JPRB/)
5756
KBO( :, 5,55, 5) = (/&
5757
6
 & 7.7808E-07_JPRB,1.7333E-05_JPRB,2.7868E-05_JPRB,3.5813E-05_JPRB,3.7304E-05_JPRB/)
5758
KBO( :, 1,56, 5) = (/&
5759
6
 & 7.5122E-08_JPRB,8.5244E-06_JPRB,1.5477E-05_JPRB,2.1786E-05_JPRB,2.6473E-05_JPRB/)
5760
KBO( :, 2,56, 5) = (/&
5761
6
 & 1.3800E-07_JPRB,9.6271E-06_JPRB,1.7041E-05_JPRB,2.3587E-05_JPRB,2.7734E-05_JPRB/)
5762
KBO( :, 3,56, 5) = (/&
5763
6
 & 2.3328E-07_JPRB,1.0832E-05_JPRB,1.8654E-05_JPRB,2.5333E-05_JPRB,2.8773E-05_JPRB/)
5764
KBO( :, 4,56, 5) = (/&
5765
6
 & 3.7175E-07_JPRB,1.2217E-05_JPRB,2.0395E-05_JPRB,2.7050E-05_JPRB,2.9637E-05_JPRB/)
5766
KBO( :, 5,56, 5) = (/&
5767
6
 & 5.6529E-07_JPRB,1.3785E-05_JPRB,2.2358E-05_JPRB,2.8934E-05_JPRB,3.0300E-05_JPRB/)
5768
KBO( :, 1,57, 5) = (/&
5769
6
 & 4.9911E-08_JPRB,6.7334E-06_JPRB,1.2315E-05_JPRB,1.7411E-05_JPRB,2.1292E-05_JPRB/)
5770
KBO( :, 2,57, 5) = (/&
5771
6
 & 9.4564E-08_JPRB,7.6208E-06_JPRB,1.3595E-05_JPRB,1.8912E-05_JPRB,2.2387E-05_JPRB/)
5772
KBO( :, 3,57, 5) = (/&
5773
6
 & 1.6361E-07_JPRB,8.5900E-06_JPRB,1.4922E-05_JPRB,2.0379E-05_JPRB,2.3279E-05_JPRB/)
5774
KBO( :, 4,57, 5) = (/&
5775
6
 & 2.6533E-07_JPRB,9.6896E-06_JPRB,1.6333E-05_JPRB,2.1806E-05_JPRB,2.4024E-05_JPRB/)
5776
KBO( :, 5,57, 5) = (/&
5777
6
 & 4.0896E-07_JPRB,1.0955E-05_JPRB,1.7923E-05_JPRB,2.3357E-05_JPRB,2.4605E-05_JPRB/)
5778
KBO( :, 1,58, 5) = (/&
5779
6
 & 3.3413E-08_JPRB,5.3223E-06_JPRB,9.7997E-06_JPRB,1.3911E-05_JPRB,1.7115E-05_JPRB/)
5780
KBO( :, 2,58, 5) = (/&
5781
6
 & 6.4876E-08_JPRB,6.0389E-06_JPRB,1.0850E-05_JPRB,1.5164E-05_JPRB,1.8057E-05_JPRB/)
5782
KBO( :, 3,58, 5) = (/&
5783
6
 & 1.1501E-07_JPRB,6.8202E-06_JPRB,1.1942E-05_JPRB,1.6396E-05_JPRB,1.8824E-05_JPRB/)
5784
KBO( :, 4,58, 5) = (/&
5785
6
 & 1.8988E-07_JPRB,7.6962E-06_JPRB,1.3093E-05_JPRB,1.7589E-05_JPRB,1.9461E-05_JPRB/)
5786
KBO( :, 5,58, 5) = (/&
5787
6
 & 2.9670E-07_JPRB,8.7155E-06_JPRB,1.4378E-05_JPRB,1.8862E-05_JPRB,1.9967E-05_JPRB/)
5788
KBO( :, 1,59, 5) = (/&
5789
6
 & 2.5326E-08_JPRB,4.3059E-06_JPRB,7.9479E-06_JPRB,1.1296E-05_JPRB,1.3872E-05_JPRB/)
5790
5791
1
IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART19',1,ZHOOK_HANDLE)
5792
1
END SUBROUTINE PART19
5793
5794
5795
1
SUBROUTINE PART20
5796
5797
REAL(KIND=JPRB) :: ZHOOK_HANDLE
5798
1
IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART20',0,ZHOOK_HANDLE)
5799
5800
5801
KBO( :, 2,59, 5) = (/&
5802
6
 & 4.9570E-08_JPRB,4.8933E-06_JPRB,8.8138E-06_JPRB,1.2338E-05_JPRB,1.4642E-05_JPRB/)
5803
KBO( :, 3,59, 5) = (/&
5804
6
 & 8.8759E-08_JPRB,5.5323E-06_JPRB,9.7147E-06_JPRB,1.3360E-05_JPRB,1.5267E-05_JPRB/)
5805
KBO( :, 4,59, 5) = (/&
5806
6
 & 1.4767E-07_JPRB,6.2484E-06_JPRB,1.0666E-05_JPRB,1.4358E-05_JPRB,1.5775E-05_JPRB/)
5807
KBO( :, 5,59, 5) = (/&
5808
6
 & 2.3207E-07_JPRB,7.0847E-06_JPRB,1.1728E-05_JPRB,1.5422E-05_JPRB,1.6178E-05_JPRB/)
5809
KBO( :, 1,13, 6) = (/&
5810
6
 & 2.6469E-03_JPRB,7.2603E-02_JPRB,1.2898E-01_JPRB,1.8080E-01_JPRB,2.2253E-01_JPRB/)
5811
KBO( :, 2,13, 6) = (/&
5812
6
 & 4.0410E-03_JPRB,7.8062E-02_JPRB,1.3546E-01_JPRB,1.8736E-01_JPRB,2.2767E-01_JPRB/)
5813
KBO( :, 3,13, 6) = (/&
5814
6
 & 5.9076E-03_JPRB,8.4142E-02_JPRB,1.4233E-01_JPRB,1.9380E-01_JPRB,2.3269E-01_JPRB/)
5815
KBO( :, 4,13, 6) = (/&
5816
6
 & 8.3159E-03_JPRB,9.0550E-02_JPRB,1.4952E-01_JPRB,2.0027E-01_JPRB,2.3737E-01_JPRB/)
5817
KBO( :, 5,13, 6) = (/&
5818
6
 & 1.1338E-02_JPRB,9.6973E-02_JPRB,1.5692E-01_JPRB,2.0664E-01_JPRB,2.4174E-01_JPRB/)
5819
KBO( :, 1,14, 6) = (/&
5820
6
 & 2.3459E-03_JPRB,6.5146E-02_JPRB,1.1561E-01_JPRB,1.6205E-01_JPRB,1.9813E-01_JPRB/)
5821
KBO( :, 2,14, 6) = (/&
5822
6
 & 3.5742E-03_JPRB,7.0309E-02_JPRB,1.2183E-01_JPRB,1.6837E-01_JPRB,2.0310E-01_JPRB/)
5823
KBO( :, 3,14, 6) = (/&
5824
6
 & 5.2156E-03_JPRB,7.5953E-02_JPRB,1.2830E-01_JPRB,1.7462E-01_JPRB,2.0779E-01_JPRB/)
5825
KBO( :, 4,14, 6) = (/&
5826
6
 & 7.3297E-03_JPRB,8.1768E-02_JPRB,1.3506E-01_JPRB,1.8090E-01_JPRB,2.1206E-01_JPRB/)
5827
KBO( :, 5,14, 6) = (/&
5828
6
 & 9.9793E-03_JPRB,8.7785E-02_JPRB,1.4192E-01_JPRB,1.8688E-01_JPRB,2.1597E-01_JPRB/)
5829
KBO( :, 1,15, 6) = (/&
5830
6
 & 2.0815E-03_JPRB,5.8070E-02_JPRB,1.0290E-01_JPRB,1.4403E-01_JPRB,1.7518E-01_JPRB/)
5831
KBO( :, 2,15, 6) = (/&
5832
6
 & 3.1616E-03_JPRB,6.2877E-02_JPRB,1.0871E-01_JPRB,1.5003E-01_JPRB,1.7983E-01_JPRB/)
5833
KBO( :, 3,15, 6) = (/&
5834
6
 & 4.5990E-03_JPRB,6.8034E-02_JPRB,1.1474E-01_JPRB,1.5600E-01_JPRB,1.8413E-01_JPRB/)
5835
KBO( :, 4,15, 6) = (/&
5836
6
 & 6.4457E-03_JPRB,7.3357E-02_JPRB,1.2094E-01_JPRB,1.6184E-01_JPRB,1.8811E-01_JPRB/)
5837
KBO( :, 5,15, 6) = (/&
5838
6
 & 8.7688E-03_JPRB,7.8954E-02_JPRB,1.2718E-01_JPRB,1.6743E-01_JPRB,1.9184E-01_JPRB/)
5839
KBO( :, 1,16, 6) = (/&
5840
6
 & 1.8434E-03_JPRB,5.1431E-02_JPRB,9.0904E-02_JPRB,1.2695E-01_JPRB,1.5373E-01_JPRB/)
5841
KBO( :, 2,16, 6) = (/&
5842
6
 & 2.7883E-03_JPRB,5.5853E-02_JPRB,9.6202E-02_JPRB,1.3255E-01_JPRB,1.5805E-01_JPRB/)
5843
KBO( :, 3,16, 6) = (/&
5844
6
 & 4.0405E-03_JPRB,6.0484E-02_JPRB,1.0174E-01_JPRB,1.3809E-01_JPRB,1.6209E-01_JPRB/)
5845
KBO( :, 4,16, 6) = (/&
5846
6
 & 5.6545E-03_JPRB,6.5388E-02_JPRB,1.0742E-01_JPRB,1.4346E-01_JPRB,1.6594E-01_JPRB/)
5847
KBO( :, 5,16, 6) = (/&
5848
6
 & 7.6948E-03_JPRB,7.0557E-02_JPRB,1.1317E-01_JPRB,1.4876E-01_JPRB,1.6944E-01_JPRB/)
5849
KBO( :, 1,17, 6) = (/&
5850
6
 & 1.6228E-03_JPRB,4.5214E-02_JPRB,7.9628E-02_JPRB,1.1095E-01_JPRB,1.3382E-01_JPRB/)
5851
KBO( :, 2,17, 6) = (/&
5852
6
 & 2.4444E-03_JPRB,4.9201E-02_JPRB,8.4449E-02_JPRB,1.1610E-01_JPRB,1.3782E-01_JPRB/)
5853
KBO( :, 3,17, 6) = (/&
5854
6
 & 3.5341E-03_JPRB,5.3403E-02_JPRB,8.9520E-02_JPRB,1.2115E-01_JPRB,1.4166E-01_JPRB/)
5855
KBO( :, 4,17, 6) = (/&
5856
6
 & 4.9442E-03_JPRB,5.7899E-02_JPRB,9.4657E-02_JPRB,1.2610E-01_JPRB,1.4516E-01_JPRB/)
5857
KBO( :, 5,17, 6) = (/&
5858
6
 & 6.7314E-03_JPRB,6.2605E-02_JPRB,9.9934E-02_JPRB,1.3078E-01_JPRB,1.4759E-01_JPRB/)
5859
KBO( :, 1,18, 6) = (/&
5860
6
 & 1.4215E-03_JPRB,3.9490E-02_JPRB,6.9231E-02_JPRB,9.6243E-02_JPRB,1.1568E-01_JPRB/)
5861
KBO( :, 2,18, 6) = (/&
5862
6
 & 2.1346E-03_JPRB,4.3045E-02_JPRB,7.3605E-02_JPRB,1.0089E-01_JPRB,1.1941E-01_JPRB/)
5863
KBO( :, 3,18, 6) = (/&
5864
6
 & 3.0824E-03_JPRB,4.6855E-02_JPRB,7.8190E-02_JPRB,1.0547E-01_JPRB,1.2277E-01_JPRB/)
5865
KBO( :, 4,18, 6) = (/&
5866
6
 & 4.3155E-03_JPRB,5.0887E-02_JPRB,8.2789E-02_JPRB,1.0966E-01_JPRB,1.2516E-01_JPRB/)
5867
KBO( :, 5,18, 6) = (/&
5868
6
 & 5.8773E-03_JPRB,5.5100E-02_JPRB,8.7246E-02_JPRB,1.1319E-01_JPRB,1.2607E-01_JPRB/)
5869
KBO( :, 1,19, 6) = (/&
5870
6
 & 1.2396E-03_JPRB,3.4273E-02_JPRB,5.9817E-02_JPRB,8.2935E-02_JPRB,9.9419E-02_JPRB/)
5871
KBO( :, 2,19, 6) = (/&
5872
6
 & 1.8580E-03_JPRB,3.7439E-02_JPRB,6.3787E-02_JPRB,8.7073E-02_JPRB,1.0261E-01_JPRB/)
5873
KBO( :, 3,19, 6) = (/&
5874
6
 & 2.6842E-03_JPRB,4.0827E-02_JPRB,6.7738E-02_JPRB,9.0822E-02_JPRB,1.0491E-01_JPRB/)
5875
KBO( :, 4,19, 6) = (/&
5876
6
 & 3.7596E-03_JPRB,4.4308E-02_JPRB,7.1517E-02_JPRB,9.3932E-02_JPRB,1.0593E-01_JPRB/)
5877
KBO( :, 5,19, 6) = (/&
5878
6
 & 5.1106E-03_JPRB,4.7901E-02_JPRB,7.4978E-02_JPRB,9.6351E-02_JPRB,1.0588E-01_JPRB/)
5879
KBO( :, 1,20, 6) = (/&
5880
6
 & 1.0863E-03_JPRB,2.9636E-02_JPRB,5.1506E-02_JPRB,7.1094E-02_JPRB,8.4913E-02_JPRB/)
5881
KBO( :, 2,20, 6) = (/&
5882
6
 & 1.6251E-03_JPRB,3.2413E-02_JPRB,5.4873E-02_JPRB,7.4436E-02_JPRB,8.7129E-02_JPRB/)
5883
KBO( :, 3,20, 6) = (/&
5884
6
 & 2.3482E-03_JPRB,3.5255E-02_JPRB,5.8051E-02_JPRB,7.7198E-02_JPRB,8.8290E-02_JPRB/)
5885
KBO( :, 4,20, 6) = (/&
5886
6
 & 3.2830E-03_JPRB,3.8154E-02_JPRB,6.0963E-02_JPRB,7.9391E-02_JPRB,8.8534E-02_JPRB/)
5887
KBO( :, 5,20, 6) = (/&
5888
6
 & 4.4496E-03_JPRB,4.1105E-02_JPRB,6.3670E-02_JPRB,8.1212E-02_JPRB,8.8096E-02_JPRB/)
5889
KBO( :, 1,21, 6) = (/&
5890
6
 & 9.5155E-04_JPRB,2.5477E-02_JPRB,4.4023E-02_JPRB,6.0405E-02_JPRB,7.1745E-02_JPRB/)
5891
KBO( :, 2,21, 6) = (/&
5892
6
 & 1.4227E-03_JPRB,2.7779E-02_JPRB,4.6702E-02_JPRB,6.2887E-02_JPRB,7.3006E-02_JPRB/)
5893
KBO( :, 3,21, 6) = (/&
5894
6
 & 2.0513E-03_JPRB,3.0099E-02_JPRB,4.9167E-02_JPRB,6.4894E-02_JPRB,7.3521E-02_JPRB/)
5895
KBO( :, 4,21, 6) = (/&
5896
6
 & 2.8588E-03_JPRB,3.2465E-02_JPRB,5.1448E-02_JPRB,6.6586E-02_JPRB,7.3416E-02_JPRB/)
5897
KBO( :, 5,21, 6) = (/&
5898
6
 & 3.8612E-03_JPRB,3.4927E-02_JPRB,5.3670E-02_JPRB,6.8026E-02_JPRB,7.2850E-02_JPRB/)
5899
KBO( :, 1,22, 6) = (/&
5900
6
 & 8.5713E-04_JPRB,2.1832E-02_JPRB,3.7420E-02_JPRB,5.0944E-02_JPRB,6.0002E-02_JPRB/)
5901
KBO( :, 2,22, 6) = (/&
5902
6
 & 1.2758E-03_JPRB,2.3688E-02_JPRB,3.9495E-02_JPRB,5.2772E-02_JPRB,6.0672E-02_JPRB/)
5903
KBO( :, 3,22, 6) = (/&
5904
6
 & 1.8291E-03_JPRB,2.5590E-02_JPRB,4.1428E-02_JPRB,5.4322E-02_JPRB,6.0829E-02_JPRB/)
5905
KBO( :, 4,22, 6) = (/&
5906
6
 & 2.5337E-03_JPRB,2.7556E-02_JPRB,4.3286E-02_JPRB,5.5664E-02_JPRB,6.0555E-02_JPRB/)
5907
KBO( :, 5,22, 6) = (/&
5908
6
 & 3.4060E-03_JPRB,2.9653E-02_JPRB,4.5131E-02_JPRB,5.6799E-02_JPRB,5.9942E-02_JPRB/)
5909
KBO( :, 1,23, 6) = (/&
5910
6
 & 7.7308E-04_JPRB,1.8541E-02_JPRB,3.1541E-02_JPRB,4.2653E-02_JPRB,4.9784E-02_JPRB/)
5911
KBO( :, 2,23, 6) = (/&
5912
6
 & 1.1436E-03_JPRB,2.0060E-02_JPRB,3.3177E-02_JPRB,4.4071E-02_JPRB,5.0135E-02_JPRB/)
5913
KBO( :, 3,23, 6) = (/&
5914
6
 & 1.6287E-03_JPRB,2.1636E-02_JPRB,3.4743E-02_JPRB,4.5309E-02_JPRB,5.0108E-02_JPRB/)
5915
KBO( :, 4,23, 6) = (/&
5916
6
 & 2.2433E-03_JPRB,2.3301E-02_JPRB,3.6276E-02_JPRB,4.6369E-02_JPRB,4.9769E-02_JPRB/)
5917
KBO( :, 5,23, 6) = (/&
5918
6
 & 3.0015E-03_JPRB,2.5093E-02_JPRB,3.7820E-02_JPRB,4.7284E-02_JPRB,4.9161E-02_JPRB/)
5919
KBO( :, 1,24, 6) = (/&
5920
6
 & 6.9820E-04_JPRB,1.5662E-02_JPRB,2.6451E-02_JPRB,3.5569E-02_JPRB,4.1103E-02_JPRB/)
5921
KBO( :, 2,24, 6) = (/&
5922
6
 & 1.0252E-03_JPRB,1.6916E-02_JPRB,2.7766E-02_JPRB,3.6705E-02_JPRB,4.1269E-02_JPRB/)
5923
KBO( :, 3,24, 6) = (/&
5924
6
 & 1.4503E-03_JPRB,1.8243E-02_JPRB,2.9050E-02_JPRB,3.7680E-02_JPRB,4.1148E-02_JPRB/)
5925
KBO( :, 4,24, 6) = (/&
5926
6
 & 1.9860E-03_JPRB,1.9665E-02_JPRB,3.0328E-02_JPRB,3.8530E-02_JPRB,4.0787E-02_JPRB/)
5927
KBO( :, 5,24, 6) = (/&
5928
6
 & 2.6469E-03_JPRB,2.1188E-02_JPRB,3.1637E-02_JPRB,3.9277E-02_JPRB,4.0220E-02_JPRB/)
5929
KBO( :, 1,25, 6) = (/&
5930
6
 & 6.3170E-04_JPRB,1.3191E-02_JPRB,2.2113E-02_JPRB,2.9594E-02_JPRB,3.3832E-02_JPRB/)
5931
KBO( :, 2,25, 6) = (/&
5932
6
 & 9.2001E-04_JPRB,1.4240E-02_JPRB,2.3188E-02_JPRB,3.0496E-02_JPRB,3.3883E-02_JPRB/)
5933
KBO( :, 3,25, 6) = (/&
5934
6
 & 1.2928E-03_JPRB,1.5370E-02_JPRB,2.4249E-02_JPRB,3.1273E-02_JPRB,3.3716E-02_JPRB/)
5935
KBO( :, 4,25, 6) = (/&
5936
6
 & 1.7603E-03_JPRB,1.6573E-02_JPRB,2.5329E-02_JPRB,3.1960E-02_JPRB,3.3363E-02_JPRB/)
5937
KBO( :, 5,25, 6) = (/&
5938
6
 & 2.3402E-03_JPRB,1.7869E-02_JPRB,2.6443E-02_JPRB,3.2590E-02_JPRB,3.2859E-02_JPRB/)
5939
KBO( :, 1,26, 6) = (/&
5940
6
 & 5.7419E-04_JPRB,1.1097E-02_JPRB,1.8461E-02_JPRB,2.4587E-02_JPRB,2.7791E-02_JPRB/)
5941
KBO( :, 2,26, 6) = (/&
5942
6
 & 8.2924E-04_JPRB,1.1987E-02_JPRB,1.9343E-02_JPRB,2.5297E-02_JPRB,2.7770E-02_JPRB/)
5943
KBO( :, 3,26, 6) = (/&
5944
6
 & 1.1565E-03_JPRB,1.2945E-02_JPRB,2.0233E-02_JPRB,2.5928E-02_JPRB,2.7584E-02_JPRB/)
5945
KBO( :, 4,26, 6) = (/&
5946
6
 & 1.5683E-03_JPRB,1.3972E-02_JPRB,2.1156E-02_JPRB,2.6492E-02_JPRB,2.7256E-02_JPRB/)
5947
KBO( :, 5,26, 6) = (/&
5948
6
 & 2.0814E-03_JPRB,1.5076E-02_JPRB,2.2099E-02_JPRB,2.7036E-02_JPRB,2.6815E-02_JPRB/)
5949
KBO( :, 1,27, 6) = (/&
5950
6
 & 5.2085E-04_JPRB,9.3262E-03_JPRB,1.5390E-02_JPRB,2.0394E-02_JPRB,2.2795E-02_JPRB/)
5951
KBO( :, 2,27, 6) = (/&
5952
6
 & 7.4611E-04_JPRB,1.0083E-02_JPRB,1.6124E-02_JPRB,2.0964E-02_JPRB,2.2740E-02_JPRB/)
5953
KBO( :, 3,27, 6) = (/&
5954
6
 & 1.0345E-03_JPRB,1.0897E-02_JPRB,1.6882E-02_JPRB,2.1477E-02_JPRB,2.2550E-02_JPRB/)
5955
KBO( :, 4,27, 6) = (/&
5956
6
 & 1.3997E-03_JPRB,1.1774E-02_JPRB,1.7663E-02_JPRB,2.1954E-02_JPRB,2.2255E-02_JPRB/)
5957
KBO( :, 5,27, 6) = (/&
5958
6
 & 1.8540E-03_JPRB,1.2711E-02_JPRB,1.8466E-02_JPRB,2.2421E-02_JPRB,2.1874E-02_JPRB/)
5959
KBO( :, 1,28, 6) = (/&
5960
6
 & 4.7154E-04_JPRB,7.8350E-03_JPRB,1.2820E-02_JPRB,1.6898E-02_JPRB,1.8683E-02_JPRB/)
5961
KBO( :, 2,28, 6) = (/&
5962
6
 & 6.7041E-04_JPRB,8.4791E-03_JPRB,1.3441E-02_JPRB,1.7362E-02_JPRB,1.8606E-02_JPRB/)
5963
KBO( :, 3,28, 6) = (/&
5964
6
 & 9.2613E-04_JPRB,9.1729E-03_JPRB,1.4084E-02_JPRB,1.7787E-02_JPRB,1.8427E-02_JPRB/)
5965
KBO( :, 4,28, 6) = (/&
5966
6
 & 1.2511E-03_JPRB,9.9188E-03_JPRB,1.4746E-02_JPRB,1.8199E-02_JPRB,1.8168E-02_JPRB/)
5967
KBO( :, 5,28, 6) = (/&
5968
6
 & 1.6528E-03_JPRB,1.0715E-02_JPRB,1.5432E-02_JPRB,1.8597E-02_JPRB,1.7841E-02_JPRB/)
5969
KBO( :, 1,29, 6) = (/&
5970
6
 & 4.2728E-04_JPRB,6.5872E-03_JPRB,1.0682E-02_JPRB,1.3997E-02_JPRB,1.5306E-02_JPRB/)
5971
KBO( :, 2,29, 6) = (/&
5972
6
 & 6.0398E-04_JPRB,7.1366E-03_JPRB,1.1209E-02_JPRB,1.4377E-02_JPRB,1.5221E-02_JPRB/)
5973
KBO( :, 3,29, 6) = (/&
5974
6
 & 8.3275E-04_JPRB,7.7277E-03_JPRB,1.1754E-02_JPRB,1.4740E-02_JPRB,1.5060E-02_JPRB/)
5975
KBO( :, 4,29, 6) = (/&
5976
6
 & 1.1219E-03_JPRB,8.3625E-03_JPRB,1.2318E-02_JPRB,1.5088E-02_JPRB,1.4833E-02_JPRB/)
5977
KBO( :, 5,29, 6) = (/&
5978
6
 & 1.4752E-03_JPRB,9.0420E-03_JPRB,1.2902E-02_JPRB,1.5434E-02_JPRB,1.4555E-02_JPRB/)
5979
KBO( :, 1,30, 6) = (/&
5980
6
 & 3.8695E-04_JPRB,5.5390E-03_JPRB,8.9023E-03_JPRB,1.1592E-02_JPRB,1.2537E-02_JPRB/)
5981
KBO( :, 2,30, 6) = (/&
5982
6
 & 5.4519E-04_JPRB,6.0089E-03_JPRB,9.3487E-03_JPRB,1.1911E-02_JPRB,1.2451E-02_JPRB/)
5983
KBO( :, 3,30, 6) = (/&
5984
6
 & 7.4997E-04_JPRB,6.5118E-03_JPRB,9.8133E-03_JPRB,1.2219E-02_JPRB,1.2307E-02_JPRB/)
5985
KBO( :, 4,30, 6) = (/&
5986
6
 & 1.0057E-03_JPRB,7.0541E-03_JPRB,1.0293E-02_JPRB,1.2517E-02_JPRB,1.2111E-02_JPRB/)
5987
KBO( :, 5,30, 6) = (/&
5988
6
 & 1.3159E-03_JPRB,7.6360E-03_JPRB,1.0791E-02_JPRB,1.2813E-02_JPRB,1.1876E-02_JPRB/)
5989
KBO( :, 1,31, 6) = (/&
5990
6
 & 3.5135E-04_JPRB,4.6635E-03_JPRB,7.4241E-03_JPRB,9.6038E-03_JPRB,1.0269E-02_JPRB/)
5991
KBO( :, 2,31, 6) = (/&
5992
6
 & 4.9394E-04_JPRB,5.0642E-03_JPRB,7.8045E-03_JPRB,9.8736E-03_JPRB,1.0187E-02_JPRB/)
5993
KBO( :, 3,31, 6) = (/&
5994
6
 & 6.7641E-04_JPRB,5.4940E-03_JPRB,8.1988E-03_JPRB,1.0135E-02_JPRB,1.0061E-02_JPRB/)
5995
KBO( :, 4,31, 6) = (/&
5996
6
 & 9.0234E-04_JPRB,5.9565E-03_JPRB,8.6081E-03_JPRB,1.0392E-02_JPRB,9.8960E-03_JPRB/)
5997
KBO( :, 5,31, 6) = (/&
5998
6
 & 1.1742E-03_JPRB,6.4605E-03_JPRB,9.0359E-03_JPRB,1.0646E-02_JPRB,9.7006E-03_JPRB/)
5999
KBO( :, 1,32, 6) = (/&
6000
6
 & 3.2001E-04_JPRB,3.9308E-03_JPRB,6.1947E-03_JPRB,7.9626E-03_JPRB,8.4097E-03_JPRB/)
6001
KBO( :, 2,32, 6) = (/&
6002
6
 & 4.4829E-04_JPRB,4.2720E-03_JPRB,6.5203E-03_JPRB,8.1905E-03_JPRB,8.3364E-03_JPRB/)
6003
KBO( :, 3,32, 6) = (/&
6004
6
 & 6.1024E-04_JPRB,4.6387E-03_JPRB,6.8547E-03_JPRB,8.4122E-03_JPRB,8.2274E-03_JPRB/)
6005
KBO( :, 4,32, 6) = (/&
6006
6
 & 8.0906E-04_JPRB,5.0375E-03_JPRB,7.2071E-03_JPRB,8.6330E-03_JPRB,8.0902E-03_JPRB/)
6007
KBO( :, 5,32, 6) = (/&
6008
6
 & 1.0464E-03_JPRB,5.4823E-03_JPRB,7.5792E-03_JPRB,8.8523E-03_JPRB,7.9289E-03_JPRB/)
6009
KBO( :, 1,33, 6) = (/&
6010
6
 & 2.9187E-04_JPRB,3.3162E-03_JPRB,5.1759E-03_JPRB,6.6059E-03_JPRB,6.8900E-03_JPRB/)
6011
KBO( :, 2,33, 6) = (/&
6012
6
 & 4.0643E-04_JPRB,3.6075E-03_JPRB,5.4523E-03_JPRB,6.7980E-03_JPRB,6.8251E-03_JPRB/)
6013
KBO( :, 3,33, 6) = (/&
6014
6
 & 5.4996E-04_JPRB,3.9216E-03_JPRB,5.7391E-03_JPRB,6.9881E-03_JPRB,6.7331E-03_JPRB/)
6015
KBO( :, 4,33, 6) = (/&
6016
6
 & 7.2438E-04_JPRB,4.2703E-03_JPRB,6.0424E-03_JPRB,7.1762E-03_JPRB,6.6187E-03_JPRB/)
6017
KBO( :, 5,33, 6) = (/&
6018
6
 & 9.3060E-04_JPRB,4.6643E-03_JPRB,6.3702E-03_JPRB,7.3681E-03_JPRB,6.4878E-03_JPRB/)
6019
KBO( :, 1,34, 6) = (/&
6020
6
 & 2.6296E-04_JPRB,2.7910E-03_JPRB,4.3184E-03_JPRB,5.4761E-03_JPRB,5.6450E-03_JPRB/)
6021
KBO( :, 2,34, 6) = (/&
6022
6
 & 3.6417E-04_JPRB,3.0392E-03_JPRB,4.5551E-03_JPRB,5.6403E-03_JPRB,5.5898E-03_JPRB/)
6023
KBO( :, 3,34, 6) = (/&
6024
6
 & 4.8977E-04_JPRB,3.3104E-03_JPRB,4.8001E-03_JPRB,5.8026E-03_JPRB,5.5129E-03_JPRB/)
6025
KBO( :, 4,34, 6) = (/&
6026
6
 & 6.4109E-04_JPRB,3.6176E-03_JPRB,5.0649E-03_JPRB,5.9649E-03_JPRB,5.4188E-03_JPRB/)
6027
KBO( :, 5,34, 6) = (/&
6028
6
 & 8.1804E-04_JPRB,3.9621E-03_JPRB,5.3546E-03_JPRB,6.1354E-03_JPRB,5.3128E-03_JPRB/)
6029
KBO( :, 1,35, 6) = (/&
6030
6
 & 2.2910E-04_JPRB,2.3313E-03_JPRB,3.5886E-03_JPRB,4.5289E-03_JPRB,4.6300E-03_JPRB/)
6031
KBO( :, 2,35, 6) = (/&
6032
6
 & 3.1618E-04_JPRB,2.5413E-03_JPRB,3.7885E-03_JPRB,4.6696E-03_JPRB,4.5851E-03_JPRB/)
6033
KBO( :, 3,35, 6) = (/&
6034
6
 & 4.2365E-04_JPRB,2.7760E-03_JPRB,3.9992E-03_JPRB,4.8085E-03_JPRB,4.5223E-03_JPRB/)
6035
KBO( :, 4,35, 6) = (/&
6036
6
 & 5.5209E-04_JPRB,3.0435E-03_JPRB,4.2290E-03_JPRB,4.9499E-03_JPRB,4.4473E-03_JPRB/)
6037
KBO( :, 5,35, 6) = (/&
6038
6
 & 7.0126E-04_JPRB,3.3413E-03_JPRB,4.4858E-03_JPRB,5.1019E-03_JPRB,4.3622E-03_JPRB/)
6039
KBO( :, 1,36, 6) = (/&
6040
6
 & 1.9220E-04_JPRB,1.9293E-03_JPRB,2.9645E-03_JPRB,3.7347E-03_JPRB,3.8021E-03_JPRB/)
6041
KBO( :, 2,36, 6) = (/&
6042
6
 & 2.6515E-04_JPRB,2.1069E-03_JPRB,3.1345E-03_JPRB,3.8546E-03_JPRB,3.7663E-03_JPRB/)
6043
KBO( :, 3,36, 6) = (/&
6044
6
 & 3.5491E-04_JPRB,2.3084E-03_JPRB,3.3147E-03_JPRB,3.9746E-03_JPRB,3.7181E-03_JPRB/)
6045
KBO( :, 4,36, 6) = (/&
6046
6
 & 4.6148E-04_JPRB,2.5376E-03_JPRB,3.5142E-03_JPRB,4.0989E-03_JPRB,3.6590E-03_JPRB/)
6047
KBO( :, 5,36, 6) = (/&
6048
6
 & 5.8535E-04_JPRB,2.7911E-03_JPRB,3.7375E-03_JPRB,4.2333E-03_JPRB,3.5914E-03_JPRB/)
6049
KBO( :, 1,37, 6) = (/&
6050
6
 & 1.5305E-04_JPRB,1.5760E-03_JPRB,2.4302E-03_JPRB,3.0653E-03_JPRB,3.1247E-03_JPRB/)
6051
KBO( :, 2,37, 6) = (/&
6052
6
 & 2.1204E-04_JPRB,1.7239E-03_JPRB,2.5719E-03_JPRB,3.1677E-03_JPRB,3.0989E-03_JPRB/)
6053
KBO( :, 3,37, 6) = (/&
6054
6
 & 2.8465E-04_JPRB,1.8937E-03_JPRB,2.7243E-03_JPRB,3.2712E-03_JPRB,3.0625E-03_JPRB/)
6055
KBO( :, 4,37, 6) = (/&
6056
6
 & 3.7093E-04_JPRB,2.0863E-03_JPRB,2.8955E-03_JPRB,3.3791E-03_JPRB,3.0167E-03_JPRB/)
6057
KBO( :, 5,37, 6) = (/&
6058
6
 & 4.7146E-04_JPRB,2.2992E-03_JPRB,3.0865E-03_JPRB,3.4968E-03_JPRB,2.9640E-03_JPRB/)
6059
KBO( :, 1,38, 6) = (/&
6060
6
 & 1.2136E-04_JPRB,1.2859E-03_JPRB,1.9906E-03_JPRB,2.5150E-03_JPRB,2.5688E-03_JPRB/)
6061
KBO( :, 2,38, 6) = (/&
6062
6
 & 1.6887E-04_JPRB,1.4096E-03_JPRB,2.1097E-03_JPRB,2.6028E-03_JPRB,2.5509E-03_JPRB/)
6063
KBO( :, 3,38, 6) = (/&
6064
6
 & 2.2753E-04_JPRB,1.5523E-03_JPRB,2.2385E-03_JPRB,2.6923E-03_JPRB,2.5240E-03_JPRB/)
6065
KBO( :, 4,38, 6) = (/&
6066
6
 & 2.9721E-04_JPRB,1.7139E-03_JPRB,2.3837E-03_JPRB,2.7852E-03_JPRB,2.4889E-03_JPRB/)
6067
KBO( :, 5,38, 6) = (/&
6068
6
 & 3.7858E-04_JPRB,1.8923E-03_JPRB,2.5471E-03_JPRB,2.8888E-03_JPRB,2.4479E-03_JPRB/)
6069
KBO( :, 1,39, 6) = (/&
6070
6
 & 9.6167E-05_JPRB,1.0495E-03_JPRB,1.6303E-03_JPRB,2.0636E-03_JPRB,2.1132E-03_JPRB/)
6071
KBO( :, 2,39, 6) = (/&
6072
6
 & 1.3440E-04_JPRB,1.1528E-03_JPRB,1.7304E-03_JPRB,2.1389E-03_JPRB,2.1009E-03_JPRB/)
6073
KBO( :, 3,39, 6) = (/&
6074
6
 & 1.8170E-04_JPRB,1.2730E-03_JPRB,1.8388E-03_JPRB,2.2153E-03_JPRB,2.0813E-03_JPRB/)
6075
KBO( :, 4,39, 6) = (/&
6076
6
 & 2.3793E-04_JPRB,1.4086E-03_JPRB,1.9640E-03_JPRB,2.2962E-03_JPRB,2.0549E-03_JPRB/)
6077
KBO( :, 5,39, 6) = (/&
6078
6
 & 3.0389E-04_JPRB,1.5581E-03_JPRB,2.1030E-03_JPRB,2.3870E-03_JPRB,2.0237E-03_JPRB/)
6079
KBO( :, 1,40, 6) = (/&
6080
6
 & 7.3361E-05_JPRB,8.4824E-04_JPRB,1.3271E-03_JPRB,1.6866E-03_JPRB,1.7362E-03_JPRB/)
6081
KBO( :, 2,40, 6) = (/&
6082
6
 & 1.0336E-04_JPRB,9.3344E-04_JPRB,1.4100E-03_JPRB,1.7510E-03_JPRB,1.7287E-03_JPRB/)
6083
KBO( :, 3,40, 6) = (/&
6084
6
 & 1.4073E-04_JPRB,1.0330E-03_JPRB,1.5012E-03_JPRB,1.8164E-03_JPRB,1.7149E-03_JPRB/)
6085
KBO( :, 4,40, 6) = (/&
6086
6
 & 1.8535E-04_JPRB,1.1457E-03_JPRB,1.6065E-03_JPRB,1.8858E-03_JPRB,1.6953E-03_JPRB/)
6087
KBO( :, 5,40, 6) = (/&
6088
6
 & 2.3794E-04_JPRB,1.2701E-03_JPRB,1.7242E-03_JPRB,1.9642E-03_JPRB,1.6715E-03_JPRB/)
6089
KBO( :, 1,41, 6) = (/&
6090
6
 & 5.5536E-05_JPRB,6.8458E-04_JPRB,1.0790E-03_JPRB,1.3774E-03_JPRB,1.4257E-03_JPRB/)
6091
6092
1
IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART20',1,ZHOOK_HANDLE)
6093
1
END SUBROUTINE PART20
6094
6095
6096
1
SUBROUTINE PART21
6097
6098
REAL(KIND=JPRB) :: ZHOOK_HANDLE
6099
1
IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART21',0,ZHOOK_HANDLE)
6100
6101
6102
KBO( :, 2,41, 6) = (/&
6103
6
 & 7.8965E-05_JPRB,7.5448E-04_JPRB,1.1479E-03_JPRB,1.4323E-03_JPRB,1.4220E-03_JPRB/)
6104
KBO( :, 3,41, 6) = (/&
6105
6
 & 1.0837E-04_JPRB,8.3692E-04_JPRB,1.2239E-03_JPRB,1.4879E-03_JPRB,1.4126E-03_JPRB/)
6106
KBO( :, 4,41, 6) = (/&
6107
6
 & 1.4371E-04_JPRB,9.3022E-04_JPRB,1.3127E-03_JPRB,1.5474E-03_JPRB,1.3983E-03_JPRB/)
6108
KBO( :, 5,41, 6) = (/&
6109
6
 & 1.8543E-04_JPRB,1.0335E-03_JPRB,1.4117E-03_JPRB,1.6149E-03_JPRB,1.3804E-03_JPRB/)
6110
KBO( :, 1,42, 6) = (/&
6111
6
 & 4.1927E-05_JPRB,5.5223E-04_JPRB,8.7661E-04_JPRB,1.1242E-03_JPRB,1.1705E-03_JPRB/)
6112
KBO( :, 2,42, 6) = (/&
6113
6
 & 6.0156E-05_JPRB,6.0961E-04_JPRB,9.3423E-04_JPRB,1.1710E-03_JPRB,1.1695E-03_JPRB/)
6114
KBO( :, 3,42, 6) = (/&
6115
6
 & 8.3258E-05_JPRB,6.7778E-04_JPRB,9.9759E-04_JPRB,1.2187E-03_JPRB,1.1637E-03_JPRB/)
6116
KBO( :, 4,42, 6) = (/&
6117
6
 & 1.1119E-04_JPRB,7.5501E-04_JPRB,1.0720E-03_JPRB,1.2691E-03_JPRB,1.1534E-03_JPRB/)
6118
KBO( :, 5,42, 6) = (/&
6119
6
 & 1.4431E-04_JPRB,8.4052E-04_JPRB,1.1554E-03_JPRB,1.3271E-03_JPRB,1.1399E-03_JPRB/)
6120
KBO( :, 1,43, 6) = (/&
6121
6
 & 3.0871E-05_JPRB,4.4295E-04_JPRB,7.0961E-04_JPRB,9.1501E-04_JPRB,9.6059E-04_JPRB/)
6122
KBO( :, 2,43, 6) = (/&
6123
6
 & 4.4814E-05_JPRB,4.8939E-04_JPRB,7.5700E-04_JPRB,9.5494E-04_JPRB,9.6152E-04_JPRB/)
6124
KBO( :, 3,43, 6) = (/&
6125
6
 & 6.2693E-05_JPRB,5.4521E-04_JPRB,8.0961E-04_JPRB,9.9510E-04_JPRB,9.5849E-04_JPRB/)
6126
KBO( :, 4,43, 6) = (/&
6127
6
 & 8.4515E-05_JPRB,6.0874E-04_JPRB,8.7133E-04_JPRB,1.0381E-03_JPRB,9.5168E-04_JPRB/)
6128
KBO( :, 5,43, 6) = (/&
6129
6
 & 1.1049E-04_JPRB,6.7929E-04_JPRB,9.4142E-04_JPRB,1.0873E-03_JPRB,9.4176E-04_JPRB/)
6130
KBO( :, 1,44, 6) = (/&
6131
6
 & 2.2405E-05_JPRB,3.5419E-04_JPRB,5.7300E-04_JPRB,7.4330E-04_JPRB,7.8767E-04_JPRB/)
6132
KBO( :, 2,44, 6) = (/&
6133
6
 & 3.2966E-05_JPRB,3.9175E-04_JPRB,6.1232E-04_JPRB,7.7738E-04_JPRB,7.9040E-04_JPRB/)
6134
KBO( :, 3,44, 6) = (/&
6135
6
 & 4.6673E-05_JPRB,4.3706E-04_JPRB,6.5546E-04_JPRB,8.1138E-04_JPRB,7.8937E-04_JPRB/)
6136
KBO( :, 4,44, 6) = (/&
6137
6
 & 6.3585E-05_JPRB,4.8914E-04_JPRB,7.0656E-04_JPRB,8.4741E-04_JPRB,7.8495E-04_JPRB/)
6138
KBO( :, 5,44, 6) = (/&
6139
6
 & 8.3871E-05_JPRB,5.4682E-04_JPRB,7.6475E-04_JPRB,8.8894E-04_JPRB,7.7792E-04_JPRB/)
6140
KBO( :, 1,45, 6) = (/&
6141
6
 & 1.6187E-05_JPRB,2.8311E-04_JPRB,4.6245E-04_JPRB,6.0348E-04_JPRB,6.4574E-04_JPRB/)
6142
KBO( :, 2,45, 6) = (/&
6143
6
 & 2.4128E-05_JPRB,3.1327E-04_JPRB,4.9462E-04_JPRB,6.3227E-04_JPRB,6.4929E-04_JPRB/)
6144
KBO( :, 3,45, 6) = (/&
6145
6
 & 3.4598E-05_JPRB,3.4993E-04_JPRB,5.3013E-04_JPRB,6.6097E-04_JPRB,6.4978E-04_JPRB/)
6146
KBO( :, 4,45, 6) = (/&
6147
6
 & 4.7680E-05_JPRB,3.9262E-04_JPRB,5.7224E-04_JPRB,6.9137E-04_JPRB,6.4736E-04_JPRB/)
6148
KBO( :, 5,45, 6) = (/&
6149
6
 & 6.3477E-05_JPRB,4.3989E-04_JPRB,6.2080E-04_JPRB,7.2641E-04_JPRB,6.4265E-04_JPRB/)
6150
KBO( :, 1,46, 6) = (/&
6151
6
 & 1.1520E-05_JPRB,2.2564E-04_JPRB,3.7222E-04_JPRB,4.8884E-04_JPRB,5.2865E-04_JPRB/)
6152
KBO( :, 2,46, 6) = (/&
6153
6
 & 1.7434E-05_JPRB,2.4986E-04_JPRB,3.9882E-04_JPRB,5.1333E-04_JPRB,5.3299E-04_JPRB/)
6154
KBO( :, 3,46, 6) = (/&
6155
6
 & 2.5336E-05_JPRB,2.7928E-04_JPRB,4.2790E-04_JPRB,5.3774E-04_JPRB,5.3473E-04_JPRB/)
6156
KBO( :, 4,46, 6) = (/&
6157
6
 & 3.5391E-05_JPRB,3.1408E-04_JPRB,4.6247E-04_JPRB,5.6316E-04_JPRB,5.3383E-04_JPRB/)
6158
KBO( :, 5,46, 6) = (/&
6159
6
 & 4.7626E-05_JPRB,3.5268E-04_JPRB,5.0275E-04_JPRB,5.9251E-04_JPRB,5.3089E-04_JPRB/)
6160
KBO( :, 1,47, 6) = (/&
6161
6
 & 7.9924E-06_JPRB,1.7901E-04_JPRB,2.9855E-04_JPRB,3.9477E-04_JPRB,4.3220E-04_JPRB/)
6162
KBO( :, 2,47, 6) = (/&
6163
6
 & 1.2309E-05_JPRB,1.9833E-04_JPRB,3.2055E-04_JPRB,4.1563E-04_JPRB,4.3695E-04_JPRB/)
6164
KBO( :, 3,47, 6) = (/&
6165
6
 & 1.8181E-05_JPRB,2.2162E-04_JPRB,3.4407E-04_JPRB,4.3618E-04_JPRB,4.3945E-04_JPRB/)
6166
KBO( :, 4,47, 6) = (/&
6167
6
 & 2.5793E-05_JPRB,2.4965E-04_JPRB,3.7202E-04_JPRB,4.5733E-04_JPRB,4.3966E-04_JPRB/)
6168
KBO( :, 5,47, 6) = (/&
6169
6
 & 3.5147E-05_JPRB,2.8107E-04_JPRB,4.0519E-04_JPRB,4.8165E-04_JPRB,4.3810E-04_JPRB/)
6170
KBO( :, 1,48, 6) = (/&
6171
6
 & 5.4989E-06_JPRB,1.4192E-04_JPRB,2.3922E-04_JPRB,3.1843E-04_JPRB,3.5311E-04_JPRB/)
6172
KBO( :, 2,48, 6) = (/&
6173
6
 & 8.6315E-06_JPRB,1.5730E-04_JPRB,2.5726E-04_JPRB,3.3610E-04_JPRB,3.5792E-04_JPRB/)
6174
KBO( :, 3,48, 6) = (/&
6175
6
 & 1.2966E-05_JPRB,1.7572E-04_JPRB,2.7645E-04_JPRB,3.5343E-04_JPRB,3.6095E-04_JPRB/)
6176
KBO( :, 4,48, 6) = (/&
6177
6
 & 1.8681E-05_JPRB,1.9817E-04_JPRB,2.9900E-04_JPRB,3.7105E-04_JPRB,3.6197E-04_JPRB/)
6178
KBO( :, 5,48, 6) = (/&
6179
6
 & 2.5826E-05_JPRB,2.2362E-04_JPRB,3.2610E-04_JPRB,3.9105E-04_JPRB,3.6145E-04_JPRB/)
6180
KBO( :, 1,49, 6) = (/&
6181
6
 & 3.7496E-06_JPRB,1.1244E-04_JPRB,1.9146E-04_JPRB,2.5656E-04_JPRB,2.8829E-04_JPRB/)
6182
KBO( :, 2,49, 6) = (/&
6183
6
 & 6.0096E-06_JPRB,1.2470E-04_JPRB,2.0632E-04_JPRB,2.7145E-04_JPRB,2.9308E-04_JPRB/)
6184
KBO( :, 3,49, 6) = (/&
6185
6
 & 9.1827E-06_JPRB,1.3921E-04_JPRB,2.2197E-04_JPRB,2.8604E-04_JPRB,2.9630E-04_JPRB/)
6186
KBO( :, 4,49, 6) = (/&
6187
6
 & 1.3445E-05_JPRB,1.5710E-04_JPRB,2.4010E-04_JPRB,3.0080E-04_JPRB,2.9804E-04_JPRB/)
6188
KBO( :, 5,49, 6) = (/&
6189
6
 & 1.8873E-05_JPRB,1.7770E-04_JPRB,2.6214E-04_JPRB,3.1726E-04_JPRB,2.9838E-04_JPRB/)
6190
KBO( :, 1,50, 6) = (/&
6191
6
 & 2.5671E-06_JPRB,8.9202E-05_JPRB,1.5332E-04_JPRB,2.0675E-04_JPRB,2.3501E-04_JPRB/)
6192
KBO( :, 2,50, 6) = (/&
6193
6
 & 4.1982E-06_JPRB,9.9030E-05_JPRB,1.6552E-04_JPRB,2.1923E-04_JPRB,2.3945E-04_JPRB/)
6194
KBO( :, 3,50, 6) = (/&
6195
6
 & 6.5267E-06_JPRB,1.1055E-04_JPRB,1.7841E-04_JPRB,2.3163E-04_JPRB,2.4283E-04_JPRB/)
6196
KBO( :, 4,50, 6) = (/&
6197
6
 & 9.7111E-06_JPRB,1.2482E-04_JPRB,1.9315E-04_JPRB,2.4401E-04_JPRB,2.4486E-04_JPRB/)
6198
KBO( :, 5,50, 6) = (/&
6199
6
 & 1.3834E-05_JPRB,1.4148E-04_JPRB,2.1114E-04_JPRB,2.5764E-04_JPRB,2.4575E-04_JPRB/)
6200
KBO( :, 1,51, 6) = (/&
6201
6
 & 1.7531E-06_JPRB,7.0824E-05_JPRB,1.2282E-04_JPRB,1.6665E-04_JPRB,1.9149E-04_JPRB/)
6202
KBO( :, 2,51, 6) = (/&
6203
6
 & 2.9260E-06_JPRB,7.8726E-05_JPRB,1.3289E-04_JPRB,1.7703E-04_JPRB,1.9549E-04_JPRB/)
6204
KBO( :, 3,51, 6) = (/&
6205
6
 & 4.6328E-06_JPRB,8.7882E-05_JPRB,1.4342E-04_JPRB,1.8752E-04_JPRB,1.9871E-04_JPRB/)
6206
KBO( :, 4,51, 6) = (/&
6207
6
 & 7.0046E-06_JPRB,9.9229E-05_JPRB,1.5538E-04_JPRB,1.9791E-04_JPRB,2.0087E-04_JPRB/)
6208
KBO( :, 5,51, 6) = (/&
6209
6
 & 1.0130E-05_JPRB,1.1266E-04_JPRB,1.6996E-04_JPRB,2.0914E-04_JPRB,2.0202E-04_JPRB/)
6210
KBO( :, 1,52, 6) = (/&
6211
6
 & 1.1881E-06_JPRB,5.6174E-05_JPRB,9.8252E-05_JPRB,1.3417E-04_JPRB,1.5588E-04_JPRB/)
6212
KBO( :, 2,52, 6) = (/&
6213
6
 & 2.0257E-06_JPRB,6.2550E-05_JPRB,1.0656E-04_JPRB,1.4280E-04_JPRB,1.5952E-04_JPRB/)
6214
KBO( :, 3,52, 6) = (/&
6215
6
 & 3.2686E-06_JPRB,6.9845E-05_JPRB,1.1522E-04_JPRB,1.5163E-04_JPRB,1.6251E-04_JPRB/)
6216
KBO( :, 4,52, 6) = (/&
6217
6
 & 5.0263E-06_JPRB,7.8807E-05_JPRB,1.2491E-04_JPRB,1.6037E-04_JPRB,1.6475E-04_JPRB/)
6218
KBO( :, 5,52, 6) = (/&
6219
6
 & 7.3808E-06_JPRB,8.9616E-05_JPRB,1.3676E-04_JPRB,1.6966E-04_JPRB,1.6606E-04_JPRB/)
6220
KBO( :, 1,53, 6) = (/&
6221
6
 & 7.9832E-07_JPRB,4.4542E-05_JPRB,7.8584E-05_JPRB,1.0800E-04_JPRB,1.2691E-04_JPRB/)
6222
KBO( :, 2,53, 6) = (/&
6223
6
 & 1.3907E-06_JPRB,4.9657E-05_JPRB,8.5371E-05_JPRB,1.1509E-04_JPRB,1.3015E-04_JPRB/)
6224
KBO( :, 3,53, 6) = (/&
6225
6
 & 2.2894E-06_JPRB,5.5484E-05_JPRB,9.2507E-05_JPRB,1.2251E-04_JPRB,1.3293E-04_JPRB/)
6226
KBO( :, 4,53, 6) = (/&
6227
6
 & 3.5816E-06_JPRB,6.2524E-05_JPRB,1.0033E-04_JPRB,1.2981E-04_JPRB,1.3510E-04_JPRB/)
6228
KBO( :, 5,53, 6) = (/&
6229
6
 & 5.3461E-06_JPRB,7.1179E-05_JPRB,1.0986E-04_JPRB,1.3751E-04_JPRB,1.3653E-04_JPRB/)
6230
KBO( :, 1,54, 6) = (/&
6231
6
 & 5.4266E-07_JPRB,3.5380E-05_JPRB,6.2932E-05_JPRB,8.7009E-05_JPRB,1.0307E-04_JPRB/)
6232
KBO( :, 2,54, 6) = (/&
6233
6
 & 9.6274E-07_JPRB,3.9519E-05_JPRB,6.8507E-05_JPRB,9.2859E-05_JPRB,1.0590E-04_JPRB/)
6234
KBO( :, 3,54, 6) = (/&
6235
6
 & 1.6160E-06_JPRB,4.4199E-05_JPRB,7.4364E-05_JPRB,9.9034E-05_JPRB,1.0834E-04_JPRB/)
6236
KBO( :, 4,54, 6) = (/&
6237
6
 & 2.5711E-06_JPRB,4.9786E-05_JPRB,8.0771E-05_JPRB,1.0520E-04_JPRB,1.1032E-04_JPRB/)
6238
KBO( :, 5,54, 6) = (/&
6239
6
 & 3.8980E-06_JPRB,5.6706E-05_JPRB,8.8453E-05_JPRB,1.1157E-04_JPRB,1.1168E-04_JPRB/)
6240
KBO( :, 1,55, 6) = (/&
6241
6
 & 3.6993E-07_JPRB,2.8151E-05_JPRB,5.0447E-05_JPRB,7.0154E-05_JPRB,8.3628E-05_JPRB/)
6242
KBO( :, 2,55, 6) = (/&
6243
6
 & 6.6712E-07_JPRB,3.1488E-05_JPRB,5.5000E-05_JPRB,7.4925E-05_JPRB,8.6021E-05_JPRB/)
6244
KBO( :, 3,55, 6) = (/&
6245
6
 & 1.1415E-06_JPRB,3.5243E-05_JPRB,5.9803E-05_JPRB,8.0054E-05_JPRB,8.8077E-05_JPRB/)
6246
KBO( :, 4,55, 6) = (/&
6247
6
 & 1.8471E-06_JPRB,3.9685E-05_JPRB,6.5040E-05_JPRB,8.5219E-05_JPRB,8.9795E-05_JPRB/)
6248
KBO( :, 5,55, 6) = (/&
6249
6
 & 2.8436E-06_JPRB,4.5216E-05_JPRB,7.1236E-05_JPRB,9.0537E-05_JPRB,9.1036E-05_JPRB/)
6250
KBO( :, 1,56, 6) = (/&
6251
6
 & 2.5120E-07_JPRB,2.2384E-05_JPRB,4.0408E-05_JPRB,5.6527E-05_JPRB,6.7818E-05_JPRB/)
6252
KBO( :, 2,56, 6) = (/&
6253
6
 & 4.5929E-07_JPRB,2.5052E-05_JPRB,4.4089E-05_JPRB,6.0389E-05_JPRB,6.9831E-05_JPRB/)
6254
KBO( :, 3,56, 6) = (/&
6255
6
 & 8.0167E-07_JPRB,2.8088E-05_JPRB,4.8066E-05_JPRB,6.4674E-05_JPRB,7.1604E-05_JPRB/)
6256
KBO( :, 4,56, 6) = (/&
6257
6
 & 1.3201E-06_JPRB,3.1626E-05_JPRB,5.2345E-05_JPRB,6.8997E-05_JPRB,7.3067E-05_JPRB/)
6258
KBO( :, 5,56, 6) = (/&
6259
6
 & 2.0659E-06_JPRB,3.6024E-05_JPRB,5.7338E-05_JPRB,7.3417E-05_JPRB,7.4207E-05_JPRB/)
6260
KBO( :, 1,57, 6) = (/&
6261
6
 & 1.7004E-07_JPRB,1.7782E-05_JPRB,3.2345E-05_JPRB,4.5525E-05_JPRB,5.4975E-05_JPRB/)
6262
KBO( :, 2,57, 6) = (/&
6263
6
 & 3.1410E-07_JPRB,1.9933E-05_JPRB,3.5335E-05_JPRB,4.8660E-05_JPRB,5.6678E-05_JPRB/)
6264
KBO( :, 3,57, 6) = (/&
6265
6
 & 5.5924E-07_JPRB,2.2368E-05_JPRB,3.8595E-05_JPRB,5.2193E-05_JPRB,5.8180E-05_JPRB/)
6266
KBO( :, 4,57, 6) = (/&
6267
6
 & 9.3826E-07_JPRB,2.5192E-05_JPRB,4.2090E-05_JPRB,5.5809E-05_JPRB,5.9446E-05_JPRB/)
6268
KBO( :, 5,57, 6) = (/&
6269
6
 & 1.4926E-06_JPRB,2.8677E-05_JPRB,4.6125E-05_JPRB,5.9484E-05_JPRB,6.0455E-05_JPRB/)
6270
KBO( :, 1,58, 6) = (/&
6271
6
 & 1.1577E-07_JPRB,1.4158E-05_JPRB,2.5932E-05_JPRB,3.6700E-05_JPRB,4.4570E-05_JPRB/)
6272
KBO( :, 2,58, 6) = (/&
6273
6
 & 2.1587E-07_JPRB,1.5875E-05_JPRB,2.8345E-05_JPRB,3.9233E-05_JPRB,4.6003E-05_JPRB/)
6274
KBO( :, 3,58, 6) = (/&
6275
6
 & 3.9135E-07_JPRB,1.7835E-05_JPRB,3.1005E-05_JPRB,4.2122E-05_JPRB,4.7262E-05_JPRB/)
6276
KBO( :, 4,58, 6) = (/&
6277
6
 & 6.6857E-07_JPRB,2.0101E-05_JPRB,3.3873E-05_JPRB,4.5147E-05_JPRB,4.8336E-05_JPRB/)
6278
KBO( :, 5,58, 6) = (/&
6279
6
 & 1.0806E-06_JPRB,2.2861E-05_JPRB,3.7148E-05_JPRB,4.8221E-05_JPRB,4.9215E-05_JPRB/)
6280
KBO( :, 1,59, 6) = (/&
6281
6
 & 8.8304E-08_JPRB,1.1506E-05_JPRB,2.1115E-05_JPRB,2.9926E-05_JPRB,3.6293E-05_JPRB/)
6282
KBO( :, 2,59, 6) = (/&
6283
6
 & 1.6550E-07_JPRB,1.2912E-05_JPRB,2.3105E-05_JPRB,3.2031E-05_JPRB,3.7443E-05_JPRB/)
6284
KBO( :, 3,59, 6) = (/&
6285
6
 & 3.0240E-07_JPRB,1.4529E-05_JPRB,2.5310E-05_JPRB,3.4431E-05_JPRB,3.8446E-05_JPRB/)
6286
KBO( :, 4,59, 6) = (/&
6287
6
 & 5.2081E-07_JPRB,1.6394E-05_JPRB,2.7692E-05_JPRB,3.6949E-05_JPRB,3.9290E-05_JPRB/)
6288
KBO( :, 5,59, 6) = (/&
6289
6
 & 8.4770E-07_JPRB,1.8680E-05_JPRB,3.0444E-05_JPRB,3.9546E-05_JPRB,3.9972E-05_JPRB/)
6290
KBO( :, 1,13, 7) = (/&
6291
6
 & 7.6417E-03_JPRB,1.4685E-01_JPRB,2.6416E-01_JPRB,3.6864E-01_JPRB,4.6109E-01_JPRB/)
6292
KBO( :, 2,13, 7) = (/&
6293
6
 & 1.1521E-02_JPRB,1.5454E-01_JPRB,2.7251E-01_JPRB,3.7688E-01_JPRB,4.6334E-01_JPRB/)
6294
KBO( :, 3,13, 7) = (/&
6295
6
 & 1.6613E-02_JPRB,1.6273E-01_JPRB,2.8042E-01_JPRB,3.8453E-01_JPRB,4.6553E-01_JPRB/)
6296
KBO( :, 4,13, 7) = (/&
6297
6
 & 2.3028E-02_JPRB,1.7232E-01_JPRB,2.8850E-01_JPRB,3.9133E-01_JPRB,4.6726E-01_JPRB/)
6298
KBO( :, 5,13, 7) = (/&
6299
6
 & 3.0788E-02_JPRB,1.8356E-01_JPRB,2.9741E-01_JPRB,3.9745E-01_JPRB,4.6774E-01_JPRB/)
6300
KBO( :, 1,14, 7) = (/&
6301
6
 & 6.7826E-03_JPRB,1.3584E-01_JPRB,2.4414E-01_JPRB,3.4060E-01_JPRB,4.2274E-01_JPRB/)
6302
KBO( :, 2,14, 7) = (/&
6303
6
 & 1.0248E-02_JPRB,1.4315E-01_JPRB,2.5224E-01_JPRB,3.4887E-01_JPRB,4.2540E-01_JPRB/)
6304
KBO( :, 3,14, 7) = (/&
6305
6
 & 1.4775E-02_JPRB,1.5124E-01_JPRB,2.6040E-01_JPRB,3.5649E-01_JPRB,4.2762E-01_JPRB/)
6306
KBO( :, 4,14, 7) = (/&
6307
6
 & 2.0429E-02_JPRB,1.6084E-01_JPRB,2.6907E-01_JPRB,3.6333E-01_JPRB,4.2937E-01_JPRB/)
6308
KBO( :, 5,14, 7) = (/&
6309
6
 & 2.7297E-02_JPRB,1.7167E-01_JPRB,2.7817E-01_JPRB,3.7020E-01_JPRB,4.3049E-01_JPRB/)
6310
KBO( :, 1,15, 7) = (/&
6311
6
 & 6.0553E-03_JPRB,1.2441E-01_JPRB,2.2318E-01_JPRB,3.1131E-01_JPRB,3.8387E-01_JPRB/)
6312
KBO( :, 2,15, 7) = (/&
6313
6
 & 9.1374E-03_JPRB,1.3148E-01_JPRB,2.3116E-01_JPRB,3.1936E-01_JPRB,3.8692E-01_JPRB/)
6314
KBO( :, 3,15, 7) = (/&
6315
6
 & 1.3123E-02_JPRB,1.3959E-01_JPRB,2.3951E-01_JPRB,3.2683E-01_JPRB,3.8938E-01_JPRB/)
6316
KBO( :, 4,15, 7) = (/&
6317
6
 & 1.8101E-02_JPRB,1.4896E-01_JPRB,2.4836E-01_JPRB,3.3404E-01_JPRB,3.9141E-01_JPRB/)
6318
KBO( :, 5,15, 7) = (/&
6319
6
 & 2.4175E-02_JPRB,1.5911E-01_JPRB,2.5777E-01_JPRB,3.4141E-01_JPRB,3.9315E-01_JPRB/)
6320
KBO( :, 1,16, 7) = (/&
6321
6
 & 5.4131E-03_JPRB,1.1283E-01_JPRB,2.0186E-01_JPRB,2.8155E-01_JPRB,3.4527E-01_JPRB/)
6322
KBO( :, 2,16, 7) = (/&
6323
6
 & 8.1288E-03_JPRB,1.1972E-01_JPRB,2.0981E-01_JPRB,2.8928E-01_JPRB,3.4862E-01_JPRB/)
6324
KBO( :, 3,16, 7) = (/&
6325
6
 & 1.1627E-02_JPRB,1.2773E-01_JPRB,2.1812E-01_JPRB,2.9668E-01_JPRB,3.5162E-01_JPRB/)
6326
KBO( :, 4,16, 7) = (/&
6327
6
 & 1.6009E-02_JPRB,1.3671E-01_JPRB,2.2693E-01_JPRB,3.0423E-01_JPRB,3.5439E-01_JPRB/)
6328
KBO( :, 5,16, 7) = (/&
6329
6
 & 2.1373E-02_JPRB,1.4625E-01_JPRB,2.3648E-01_JPRB,3.1202E-01_JPRB,3.5679E-01_JPRB/)
6330
KBO( :, 1,17, 7) = (/&
6331
6
 & 4.8149E-03_JPRB,1.0146E-01_JPRB,1.8080E-01_JPRB,2.5190E-01_JPRB,3.0738E-01_JPRB/)
6332
KBO( :, 2,17, 7) = (/&
6333
6
 & 7.1924E-03_JPRB,1.0816E-01_JPRB,1.8856E-01_JPRB,2.5937E-01_JPRB,3.1115E-01_JPRB/)
6334
KBO( :, 3,17, 7) = (/&
6335
6
 & 1.0254E-02_JPRB,1.1589E-01_JPRB,1.9675E-01_JPRB,2.6692E-01_JPRB,3.1465E-01_JPRB/)
6336
KBO( :, 4,17, 7) = (/&
6337
6
 & 1.4092E-02_JPRB,1.2436E-01_JPRB,2.0561E-01_JPRB,2.7457E-01_JPRB,3.1792E-01_JPRB/)
6338
KBO( :, 5,17, 7) = (/&
6339
6
 & 1.8801E-02_JPRB,1.3345E-01_JPRB,2.1493E-01_JPRB,2.8234E-01_JPRB,3.2110E-01_JPRB/)
6340
KBO( :, 1,18, 7) = (/&
6341
6
 & 4.2633E-03_JPRB,9.0462E-02_JPRB,1.6049E-01_JPRB,2.2327E-01_JPRB,2.7128E-01_JPRB/)
6342
KBO( :, 2,18, 7) = (/&
6343
6
 & 6.3371E-03_JPRB,9.6983E-02_JPRB,1.6798E-01_JPRB,2.3054E-01_JPRB,2.7526E-01_JPRB/)
6344
KBO( :, 3,18, 7) = (/&
6345
6
 & 9.0048E-03_JPRB,1.0434E-01_JPRB,1.7596E-01_JPRB,2.3795E-01_JPRB,2.7919E-01_JPRB/)
6346
KBO( :, 4,18, 7) = (/&
6347
6
 & 1.2349E-02_JPRB,1.1235E-01_JPRB,1.8455E-01_JPRB,2.4558E-01_JPRB,2.8307E-01_JPRB/)
6348
KBO( :, 5,18, 7) = (/&
6349
6
 & 1.6477E-02_JPRB,1.2095E-01_JPRB,1.9366E-01_JPRB,2.5349E-01_JPRB,2.8698E-01_JPRB/)
6350
KBO( :, 1,19, 7) = (/&
6351
6
 & 3.7554E-03_JPRB,8.0086E-02_JPRB,1.4130E-01_JPRB,1.9618E-01_JPRB,2.3729E-01_JPRB/)
6352
KBO( :, 2,19, 7) = (/&
6353
6
 & 5.5565E-03_JPRB,8.6345E-02_JPRB,1.4840E-01_JPRB,2.0316E-01_JPRB,2.4150E-01_JPRB/)
6354
KBO( :, 3,19, 7) = (/&
6355
6
 & 7.8702E-03_JPRB,9.3236E-02_JPRB,1.5616E-01_JPRB,2.1043E-01_JPRB,2.4581E-01_JPRB/)
6356
KBO( :, 4,19, 7) = (/&
6357
6
 & 1.0787E-02_JPRB,1.0080E-01_JPRB,1.6449E-01_JPRB,2.1798E-01_JPRB,2.5008E-01_JPRB/)
6358
KBO( :, 5,19, 7) = (/&
6359
6
 & 1.4413E-02_JPRB,1.0887E-01_JPRB,1.7330E-01_JPRB,2.2565E-01_JPRB,2.5355E-01_JPRB/)
6360
KBO( :, 1,20, 7) = (/&
6361
6
 & 3.3111E-03_JPRB,7.0557E-02_JPRB,1.2355E-01_JPRB,1.7117E-01_JPRB,2.0615E-01_JPRB/)
6362
KBO( :, 2,20, 7) = (/&
6363
6
 & 4.8768E-03_JPRB,7.6467E-02_JPRB,1.3039E-01_JPRB,1.7787E-01_JPRB,2.1057E-01_JPRB/)
6364
KBO( :, 3,20, 7) = (/&
6365
6
 & 6.8937E-03_JPRB,8.2939E-02_JPRB,1.3783E-01_JPRB,1.8491E-01_JPRB,2.1500E-01_JPRB/)
6366
KBO( :, 4,20, 7) = (/&
6367
6
 & 9.4568E-03_JPRB,8.9997E-02_JPRB,1.4573E-01_JPRB,1.9190E-01_JPRB,2.1847E-01_JPRB/)
6368
KBO( :, 5,20, 7) = (/&
6369
6
 & 1.2649E-02_JPRB,9.7398E-02_JPRB,1.5380E-01_JPRB,1.9837E-01_JPRB,2.2024E-01_JPRB/)
6370
KBO( :, 1,21, 7) = (/&
6371
6
 & 2.9095E-03_JPRB,6.1851E-02_JPRB,1.0745E-01_JPRB,1.4844E-01_JPRB,1.7810E-01_JPRB/)
6372
KBO( :, 2,21, 7) = (/&
6373
6
 & 4.2692E-03_JPRB,6.7344E-02_JPRB,1.1397E-01_JPRB,1.5479E-01_JPRB,1.8248E-01_JPRB/)
6374
KBO( :, 3,21, 7) = (/&
6375
6
 & 6.0338E-03_JPRB,7.3350E-02_JPRB,1.2086E-01_JPRB,1.6105E-01_JPRB,1.8592E-01_JPRB/)
6376
KBO( :, 4,21, 7) = (/&
6377
6
 & 8.2818E-03_JPRB,7.9701E-02_JPRB,1.2784E-01_JPRB,1.6671E-01_JPRB,1.8765E-01_JPRB/)
6378
KBO( :, 5,21, 7) = (/&
6379
6
 & 1.1081E-02_JPRB,8.6263E-02_JPRB,1.3464E-01_JPRB,1.7152E-01_JPRB,1.8756E-01_JPRB/)
6380
KBO( :, 1,22, 7) = (/&
6381
6
 & 2.6181E-03_JPRB,5.4287E-02_JPRB,9.3450E-02_JPRB,1.2844E-01_JPRB,1.5335E-01_JPRB/)
6382
KBO( :, 2,22, 7) = (/&
6383
6
 & 3.8243E-03_JPRB,5.9349E-02_JPRB,9.9393E-02_JPRB,1.3393E-01_JPRB,1.5664E-01_JPRB/)
6384
KBO( :, 3,22, 7) = (/&
6385
6
 & 5.3935E-03_JPRB,6.4666E-02_JPRB,1.0530E-01_JPRB,1.3879E-01_JPRB,1.5834E-01_JPRB/)
6386
KBO( :, 4,22, 7) = (/&
6387
6
 & 7.3925E-03_JPRB,7.0137E-02_JPRB,1.1102E-01_JPRB,1.4284E-01_JPRB,1.5840E-01_JPRB/)
6388
KBO( :, 5,22, 7) = (/&
6389
6
 & 9.8581E-03_JPRB,7.5739E-02_JPRB,1.1637E-01_JPRB,1.4626E-01_JPRB,1.5728E-01_JPRB/)
6390
KBO( :, 1,23, 7) = (/&
6391
6
 & 2.3567E-03_JPRB,4.7466E-02_JPRB,8.0891E-02_JPRB,1.1029E-01_JPRB,1.3073E-01_JPRB/)
6392
6393
1
IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART21',1,ZHOOK_HANDLE)
6394
1
END SUBROUTINE PART21
6395
6396
6397
1
SUBROUTINE PART22
6398
6399
REAL(KIND=JPRB) :: ZHOOK_HANDLE
6400
1
IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART22',0,ZHOOK_HANDLE)
6401
6402
6403
KBO( :, 2,23, 7) = (/&
6404
6
 & 3.4308E-03_JPRB,5.1876E-02_JPRB,8.5843E-02_JPRB,1.1448E-01_JPRB,1.3247E-01_JPRB/)
6405
KBO( :, 3,23, 7) = (/&
6406
6
 & 4.8257E-03_JPRB,5.6351E-02_JPRB,9.0620E-02_JPRB,1.1795E-01_JPRB,1.3277E-01_JPRB/)
6407
KBO( :, 4,23, 7) = (/&
6408
6
 & 6.5958E-03_JPRB,6.0900E-02_JPRB,9.5105E-02_JPRB,1.2092E-01_JPRB,1.3207E-01_JPRB/)
6409
KBO( :, 5,23, 7) = (/&
6410
6
 & 8.7592E-03_JPRB,6.5586E-02_JPRB,9.9383E-02_JPRB,1.2354E-01_JPRB,1.3064E-01_JPRB/)
6411
KBO( :, 1,24, 7) = (/&
6412
6
 & 2.1271E-03_JPRB,4.1190E-02_JPRB,6.9395E-02_JPRB,9.3707E-02_JPRB,1.1002E-01_JPRB/)
6413
KBO( :, 2,24, 7) = (/&
6414
6
 & 3.0856E-03_JPRB,4.4852E-02_JPRB,7.3354E-02_JPRB,9.6714E-02_JPRB,1.1057E-01_JPRB/)
6415
KBO( :, 3,24, 7) = (/&
6416
6
 & 4.3257E-03_JPRB,4.8524E-02_JPRB,7.7130E-02_JPRB,9.9321E-02_JPRB,1.1024E-01_JPRB/)
6417
KBO( :, 4,24, 7) = (/&
6418
6
 & 5.8826E-03_JPRB,5.2297E-02_JPRB,8.0734E-02_JPRB,1.0166E-01_JPRB,1.0927E-01_JPRB/)
6419
KBO( :, 5,24, 7) = (/&
6420
6
 & 7.7717E-03_JPRB,5.6295E-02_JPRB,8.4275E-02_JPRB,1.0378E-01_JPRB,1.0782E-01_JPRB/)
6421
KBO( :, 1,25, 7) = (/&
6422
6
 & 1.9281E-03_JPRB,3.5411E-02_JPRB,5.8998E-02_JPRB,7.8852E-02_JPRB,9.1568E-02_JPRB/)
6423
KBO( :, 2,25, 7) = (/&
6424
6
 & 2.7824E-03_JPRB,3.8393E-02_JPRB,6.2155E-02_JPRB,8.1138E-02_JPRB,9.1561E-02_JPRB/)
6425
KBO( :, 3,25, 7) = (/&
6426
6
 & 3.8806E-03_JPRB,4.1433E-02_JPRB,6.5194E-02_JPRB,8.3215E-02_JPRB,9.0981E-02_JPRB/)
6427
KBO( :, 4,25, 7) = (/&
6428
6
 & 5.2453E-03_JPRB,4.4637E-02_JPRB,6.8168E-02_JPRB,8.5119E-02_JPRB,8.9958E-02_JPRB/)
6429
KBO( :, 5,25, 7) = (/&
6430
6
 & 6.8977E-03_JPRB,4.8120E-02_JPRB,7.1175E-02_JPRB,8.6855E-02_JPRB,8.8595E-02_JPRB/)
6431
KBO( :, 1,26, 7) = (/&
6432
6
 & 1.7587E-03_JPRB,3.0214E-02_JPRB,4.9851E-02_JPRB,6.5996E-02_JPRB,7.5710E-02_JPRB/)
6433
KBO( :, 2,26, 7) = (/&
6434
6
 & 2.5210E-03_JPRB,3.2677E-02_JPRB,5.2397E-02_JPRB,6.7829E-02_JPRB,7.5438E-02_JPRB/)
6435
KBO( :, 3,26, 7) = (/&
6436
6
 & 3.4928E-03_JPRB,3.5239E-02_JPRB,5.4896E-02_JPRB,6.9528E-02_JPRB,7.4777E-02_JPRB/)
6437
KBO( :, 4,26, 7) = (/&
6438
6
 & 4.6908E-03_JPRB,3.8029E-02_JPRB,5.7397E-02_JPRB,7.1083E-02_JPRB,7.3800E-02_JPRB/)
6439
KBO( :, 5,26, 7) = (/&
6440
6
 & 6.1395E-03_JPRB,4.1060E-02_JPRB,5.9986E-02_JPRB,7.2531E-02_JPRB,7.2558E-02_JPRB/)
6441
KBO( :, 1,27, 7) = (/&
6442
6
 & 1.6029E-03_JPRB,2.5642E-02_JPRB,4.1927E-02_JPRB,5.5065E-02_JPRB,6.2332E-02_JPRB/)
6443
KBO( :, 2,27, 7) = (/&
6444
6
 & 2.2812E-03_JPRB,2.7700E-02_JPRB,4.4008E-02_JPRB,5.6573E-02_JPRB,6.1961E-02_JPRB/)
6445
KBO( :, 3,27, 7) = (/&
6446
6
 & 3.1372E-03_JPRB,2.9918E-02_JPRB,4.6094E-02_JPRB,5.7948E-02_JPRB,6.1302E-02_JPRB/)
6447
KBO( :, 4,27, 7) = (/&
6448
6
 & 4.1899E-03_JPRB,3.2354E-02_JPRB,4.8227E-02_JPRB,5.9239E-02_JPRB,6.0407E-02_JPRB/)
6449
KBO( :, 5,27, 7) = (/&
6450
6
 & 5.4669E-03_JPRB,3.4991E-02_JPRB,5.0494E-02_JPRB,6.0487E-02_JPRB,5.9313E-02_JPRB/)
6451
KBO( :, 1,28, 7) = (/&
6452
6
 & 1.4587E-03_JPRB,2.1692E-02_JPRB,3.5152E-02_JPRB,4.5868E-02_JPRB,5.1191E-02_JPRB/)
6453
KBO( :, 2,28, 7) = (/&
6454
6
 & 2.0600E-03_JPRB,2.3452E-02_JPRB,3.6880E-02_JPRB,4.7085E-02_JPRB,5.0788E-02_JPRB/)
6455
KBO( :, 3,28, 7) = (/&
6456
6
 & 2.8147E-03_JPRB,2.5390E-02_JPRB,3.8642E-02_JPRB,4.8221E-02_JPRB,5.0174E-02_JPRB/)
6457
KBO( :, 4,28, 7) = (/&
6458
6
 & 3.7416E-03_JPRB,2.7500E-02_JPRB,4.0500E-02_JPRB,4.9318E-02_JPRB,4.9374E-02_JPRB/)
6459
KBO( :, 5,28, 7) = (/&
6460
6
 & 4.8758E-03_JPRB,2.9796E-02_JPRB,4.2469E-02_JPRB,5.0418E-02_JPRB,4.8430E-02_JPRB/)
6461
KBO( :, 1,29, 7) = (/&
6462
6
 & 1.3284E-03_JPRB,1.8334E-02_JPRB,2.9430E-02_JPRB,3.8154E-02_JPRB,4.1977E-02_JPRB/)
6463
KBO( :, 2,29, 7) = (/&
6464
6
 & 1.8615E-03_JPRB,1.9864E-02_JPRB,3.0877E-02_JPRB,3.9147E-02_JPRB,4.1585E-02_JPRB/)
6465
KBO( :, 3,29, 7) = (/&
6466
6
 & 2.5273E-03_JPRB,2.1548E-02_JPRB,3.2404E-02_JPRB,4.0101E-02_JPRB,4.1024E-02_JPRB/)
6467
KBO( :, 4,29, 7) = (/&
6468
6
 & 3.3502E-03_JPRB,2.3383E-02_JPRB,3.4027E-02_JPRB,4.1054E-02_JPRB,4.0329E-02_JPRB/)
6469
KBO( :, 5,29, 7) = (/&
6470
6
 & 4.3678E-03_JPRB,2.5374E-02_JPRB,3.5730E-02_JPRB,4.2021E-02_JPRB,3.9526E-02_JPRB/)
6471
KBO( :, 1,30, 7) = (/&
6472
6
 & 1.2077E-03_JPRB,1.5498E-02_JPRB,2.4613E-02_JPRB,3.1700E-02_JPRB,3.4385E-02_JPRB/)
6473
KBO( :, 2,30, 7) = (/&
6474
6
 & 1.6794E-03_JPRB,1.6830E-02_JPRB,2.5859E-02_JPRB,3.2527E-02_JPRB,3.4019E-02_JPRB/)
6475
KBO( :, 3,30, 7) = (/&
6476
6
 & 2.2700E-03_JPRB,1.8290E-02_JPRB,2.7194E-02_JPRB,3.3342E-02_JPRB,3.3526E-02_JPRB/)
6477
KBO( :, 4,30, 7) = (/&
6478
6
 & 3.0076E-03_JPRB,1.9884E-02_JPRB,2.8602E-02_JPRB,3.4179E-02_JPRB,3.2934E-02_JPRB/)
6479
KBO( :, 5,30, 7) = (/&
6480
6
 & 3.9239E-03_JPRB,2.1618E-02_JPRB,3.0083E-02_JPRB,3.5038E-02_JPRB,3.2267E-02_JPRB/)
6481
KBO( :, 1,31, 7) = (/&
6482
6
 & 1.0979E-03_JPRB,1.3116E-02_JPRB,2.0595E-02_JPRB,2.6327E-02_JPRB,2.8152E-02_JPRB/)
6483
KBO( :, 2,31, 7) = (/&
6484
6
 & 1.5169E-03_JPRB,1.4272E-02_JPRB,2.1683E-02_JPRB,2.7024E-02_JPRB,2.7826E-02_JPRB/)
6485
KBO( :, 3,31, 7) = (/&
6486
6
 & 2.0453E-03_JPRB,1.5538E-02_JPRB,2.2843E-02_JPRB,2.7738E-02_JPRB,2.7405E-02_JPRB/)
6487
KBO( :, 4,31, 7) = (/&
6488
6
 & 2.7116E-03_JPRB,1.6927E-02_JPRB,2.4066E-02_JPRB,2.8483E-02_JPRB,2.6914E-02_JPRB/)
6489
KBO( :, 5,31, 7) = (/&
6490
6
 & 3.5394E-03_JPRB,1.8442E-02_JPRB,2.5352E-02_JPRB,2.9238E-02_JPRB,2.6357E-02_JPRB/)
6491
KBO( :, 1,32, 7) = (/&
6492
6
 & 9.9745E-04_JPRB,1.1111E-02_JPRB,1.7254E-02_JPRB,2.1864E-02_JPRB,2.3045E-02_JPRB/)
6493
KBO( :, 2,32, 7) = (/&
6494
6
 & 1.3720E-03_JPRB,1.2113E-02_JPRB,1.8202E-02_JPRB,2.2466E-02_JPRB,2.2758E-02_JPRB/)
6495
KBO( :, 3,32, 7) = (/&
6496
6
 & 1.8496E-03_JPRB,1.3215E-02_JPRB,1.9210E-02_JPRB,2.3105E-02_JPRB,2.2405E-02_JPRB/)
6497
KBO( :, 4,32, 7) = (/&
6498
6
 & 2.4534E-03_JPRB,1.4429E-02_JPRB,2.0269E-02_JPRB,2.3758E-02_JPRB,2.1994E-02_JPRB/)
6499
KBO( :, 5,32, 7) = (/&
6500
6
 & 3.1994E-03_JPRB,1.5763E-02_JPRB,2.1391E-02_JPRB,2.4424E-02_JPRB,2.1537E-02_JPRB/)
6501
KBO( :, 1,33, 7) = (/&
6502
6
 & 9.0609E-04_JPRB,9.4233E-03_JPRB,1.4475E-02_JPRB,1.8167E-02_JPRB,1.8863E-02_JPRB/)
6503
KBO( :, 2,33, 7) = (/&
6504
6
 & 1.2447E-03_JPRB,1.0296E-02_JPRB,1.5300E-02_JPRB,1.8704E-02_JPRB,1.8620E-02_JPRB/)
6505
KBO( :, 3,33, 7) = (/&
6506
6
 & 1.6790E-03_JPRB,1.1258E-02_JPRB,1.6171E-02_JPRB,1.9267E-02_JPRB,1.8323E-02_JPRB/)
6507
KBO( :, 4,33, 7) = (/&
6508
6
 & 2.2252E-03_JPRB,1.2324E-02_JPRB,1.7095E-02_JPRB,1.9844E-02_JPRB,1.7985E-02_JPRB/)
6509
KBO( :, 5,33, 7) = (/&
6510
6
 & 2.8950E-03_JPRB,1.3521E-02_JPRB,1.8082E-02_JPRB,2.0433E-02_JPRB,1.7614E-02_JPRB/)
6511
KBO( :, 1,34, 7) = (/&
6512
6
 & 8.1514E-04_JPRB,7.9756E-03_JPRB,1.2137E-02_JPRB,1.5099E-02_JPRB,1.5443E-02_JPRB/)
6513
KBO( :, 2,34, 7) = (/&
6514
6
 & 1.1204E-03_JPRB,8.7356E-03_JPRB,1.2847E-02_JPRB,1.5577E-02_JPRB,1.5237E-02_JPRB/)
6515
KBO( :, 3,34, 7) = (/&
6516
6
 & 1.5119E-03_JPRB,9.5758E-03_JPRB,1.3604E-02_JPRB,1.6072E-02_JPRB,1.4994E-02_JPRB/)
6517
KBO( :, 4,34, 7) = (/&
6518
6
 & 2.0012E-03_JPRB,1.0522E-02_JPRB,1.4410E-02_JPRB,1.6579E-02_JPRB,1.4722E-02_JPRB/)
6519
KBO( :, 5,34, 7) = (/&
6520
6
 & 2.5995E-03_JPRB,1.1602E-02_JPRB,1.5283E-02_JPRB,1.7098E-02_JPRB,1.4425E-02_JPRB/)
6521
KBO( :, 1,35, 7) = (/&
6522
6
 & 7.1227E-04_JPRB,6.7018E-03_JPRB,1.0127E-02_JPRB,1.2528E-02_JPRB,1.2660E-02_JPRB/)
6523
KBO( :, 2,35, 7) = (/&
6524
6
 & 9.8163E-04_JPRB,7.3560E-03_JPRB,1.0739E-02_JPRB,1.2948E-02_JPRB,1.2494E-02_JPRB/)
6525
KBO( :, 3,35, 7) = (/&
6526
6
 & 1.3263E-03_JPRB,8.0909E-03_JPRB,1.1393E-02_JPRB,1.3382E-02_JPRB,1.2302E-02_JPRB/)
6527
KBO( :, 4,35, 7) = (/&
6528
6
 & 1.7561E-03_JPRB,8.9242E-03_JPRB,1.2096E-02_JPRB,1.3825E-02_JPRB,1.2085E-02_JPRB/)
6529
KBO( :, 5,35, 7) = (/&
6530
6
 & 2.2810E-03_JPRB,9.8947E-03_JPRB,1.2873E-02_JPRB,1.4284E-02_JPRB,1.1851E-02_JPRB/)
6531
KBO( :, 1,36, 7) = (/&
6532
6
 & 6.0202E-04_JPRB,5.5779E-03_JPRB,8.4015E-03_JPRB,1.0366E-02_JPRB,1.0396E-02_JPRB/)
6533
KBO( :, 2,36, 7) = (/&
6534
6
 & 8.3319E-04_JPRB,6.1400E-03_JPRB,8.9260E-03_JPRB,1.0732E-02_JPRB,1.0268E-02_JPRB/)
6535
KBO( :, 3,36, 7) = (/&
6536
6
 & 1.1287E-03_JPRB,6.7734E-03_JPRB,9.4880E-03_JPRB,1.1109E-02_JPRB,1.0116E-02_JPRB/)
6537
KBO( :, 4,36, 7) = (/&
6538
6
 & 1.4983E-03_JPRB,7.5040E-03_JPRB,1.0100E-02_JPRB,1.1497E-02_JPRB,9.9466E-03_JPRB/)
6539
KBO( :, 5,36, 7) = (/&
6540
6
 & 1.9490E-03_JPRB,8.3637E-03_JPRB,1.0791E-02_JPRB,1.1906E-02_JPRB,9.7636E-03_JPRB/)
6541
KBO( :, 1,37, 7) = (/&
6542
6
 & 4.8416E-04_JPRB,4.5804E-03_JPRB,6.9086E-03_JPRB,8.5355E-03_JPRB,8.5508E-03_JPRB/)
6543
KBO( :, 2,37, 7) = (/&
6544
6
 & 6.7495E-04_JPRB,5.0520E-03_JPRB,7.3527E-03_JPRB,8.8519E-03_JPRB,8.4527E-03_JPRB/)
6545
KBO( :, 3,37, 7) = (/&
6546
6
 & 9.1952E-04_JPRB,5.5894E-03_JPRB,7.8325E-03_JPRB,9.1782E-03_JPRB,8.3356E-03_JPRB/)
6547
KBO( :, 4,37, 7) = (/&
6548
6
 & 1.2272E-03_JPRB,6.2161E-03_JPRB,8.3611E-03_JPRB,9.5172E-03_JPRB,8.2045E-03_JPRB/)
6549
KBO( :, 5,37, 7) = (/&
6550
6
 & 1.6032E-03_JPRB,6.9603E-03_JPRB,8.9629E-03_JPRB,9.8764E-03_JPRB,8.0631E-03_JPRB/)
6551
KBO( :, 1,38, 7) = (/&
6552
6
 & 3.8815E-04_JPRB,3.7581E-03_JPRB,5.6778E-03_JPRB,7.0261E-03_JPRB,7.0356E-03_JPRB/)
6553
KBO( :, 2,38, 7) = (/&
6554
6
 & 5.4489E-04_JPRB,4.1553E-03_JPRB,6.0551E-03_JPRB,7.3001E-03_JPRB,6.9620E-03_JPRB/)
6555
KBO( :, 3,38, 7) = (/&
6556
6
 & 7.4720E-04_JPRB,4.6096E-03_JPRB,6.4646E-03_JPRB,7.5820E-03_JPRB,6.8735E-03_JPRB/)
6557
KBO( :, 4,38, 7) = (/&
6558
6
 & 1.0025E-03_JPRB,5.1457E-03_JPRB,6.9210E-03_JPRB,7.8773E-03_JPRB,6.7744E-03_JPRB/)
6559
KBO( :, 5,38, 7) = (/&
6560
6
 & 1.3158E-03_JPRB,5.7907E-03_JPRB,7.4467E-03_JPRB,8.1937E-03_JPRB,6.6650E-03_JPRB/)
6561
KBO( :, 1,39, 7) = (/&
6562
6
 & 3.1112E-04_JPRB,3.0839E-03_JPRB,4.6680E-03_JPRB,5.7846E-03_JPRB,5.7911E-03_JPRB/)
6563
KBO( :, 2,39, 7) = (/&
6564
6
 & 4.3990E-04_JPRB,3.4180E-03_JPRB,4.9880E-03_JPRB,6.0205E-03_JPRB,5.7382E-03_JPRB/)
6565
KBO( :, 3,39, 7) = (/&
6566
6
 & 6.0701E-04_JPRB,3.8014E-03_JPRB,5.3384E-03_JPRB,6.2649E-03_JPRB,5.6729E-03_JPRB/)
6567
KBO( :, 4,39, 7) = (/&
6568
6
 & 8.1924E-04_JPRB,4.2647E-03_JPRB,5.7318E-03_JPRB,6.5208E-03_JPRB,5.5990E-03_JPRB/)
6569
KBO( :, 5,39, 7) = (/&
6570
6
 & 1.0794E-03_JPRB,4.8235E-03_JPRB,6.1904E-03_JPRB,6.7997E-03_JPRB,5.5155E-03_JPRB/)
6571
KBO( :, 1,40, 7) = (/&
6572
6
 & 2.3999E-04_JPRB,2.5045E-03_JPRB,3.8112E-03_JPRB,4.7419E-03_JPRB,4.7659E-03_JPRB/)
6573
KBO( :, 2,40, 7) = (/&
6574
6
 & 3.4272E-04_JPRB,2.7807E-03_JPRB,4.0807E-03_JPRB,4.9438E-03_JPRB,4.7281E-03_JPRB/)
6575
KBO( :, 3,40, 7) = (/&
6576
6
 & 4.7709E-04_JPRB,3.1013E-03_JPRB,4.3772E-03_JPRB,5.1542E-03_JPRB,4.6798E-03_JPRB/)
6577
KBO( :, 4,40, 7) = (/&
6578
6
 & 6.4876E-04_JPRB,3.4905E-03_JPRB,4.7113E-03_JPRB,5.3759E-03_JPRB,4.6247E-03_JPRB/)
6579
KBO( :, 5,40, 7) = (/&
6580
6
 & 8.6088E-04_JPRB,3.9661E-03_JPRB,5.1051E-03_JPRB,5.6199E-03_JPRB,4.5616E-03_JPRB/)
6581
KBO( :, 1,41, 7) = (/&
6582
6
 & 1.8373E-04_JPRB,2.0302E-03_JPRB,3.1081E-03_JPRB,3.8838E-03_JPRB,3.9218E-03_JPRB/)
6583
KBO( :, 2,41, 7) = (/&
6584
6
 & 2.6521E-04_JPRB,2.2593E-03_JPRB,3.3353E-03_JPRB,4.0566E-03_JPRB,3.8950E-03_JPRB/)
6585
KBO( :, 3,41, 7) = (/&
6586
6
 & 3.7260E-04_JPRB,2.5252E-03_JPRB,3.5847E-03_JPRB,4.2368E-03_JPRB,3.8605E-03_JPRB/)
6587
KBO( :, 4,41, 7) = (/&
6588
6
 & 5.1095E-04_JPRB,2.8525E-03_JPRB,3.8680E-03_JPRB,4.4284E-03_JPRB,3.8199E-03_JPRB/)
6589
KBO( :, 5,41, 7) = (/&
6590
6
 & 6.8302E-04_JPRB,3.2540E-03_JPRB,4.2038E-03_JPRB,4.6408E-03_JPRB,3.7718E-03_JPRB/)
6591
KBO( :, 1,42, 7) = (/&
6592
6
 & 1.4021E-04_JPRB,1.6447E-03_JPRB,2.5340E-03_JPRB,3.1794E-03_JPRB,3.2271E-03_JPRB/)
6593
KBO( :, 2,42, 7) = (/&
6594
6
 & 2.0457E-04_JPRB,1.8341E-03_JPRB,2.7244E-03_JPRB,3.3270E-03_JPRB,3.2092E-03_JPRB/)
6595
KBO( :, 3,42, 7) = (/&
6596
6
 & 2.9014E-04_JPRB,2.0556E-03_JPRB,2.9350E-03_JPRB,3.4824E-03_JPRB,3.1854E-03_JPRB/)
6597
KBO( :, 4,42, 7) = (/&
6598
6
 & 4.0126E-04_JPRB,2.3289E-03_JPRB,3.1740E-03_JPRB,3.6472E-03_JPRB,3.1554E-03_JPRB/)
6599
KBO( :, 5,42, 7) = (/&
6600
6
 & 5.4072E-04_JPRB,2.6686E-03_JPRB,3.4603E-03_JPRB,3.8315E-03_JPRB,3.1192E-03_JPRB/)
6601
KBO( :, 1,43, 7) = (/&
6602
6
 & 1.0418E-04_JPRB,1.3241E-03_JPRB,2.0566E-03_JPRB,2.5949E-03_JPRB,2.6555E-03_JPRB/)
6603
KBO( :, 2,43, 7) = (/&
6604
6
 & 1.5394E-04_JPRB,1.4792E-03_JPRB,2.2158E-03_JPRB,2.7206E-03_JPRB,2.6446E-03_JPRB/)
6605
KBO( :, 3,43, 7) = (/&
6606
6
 & 2.2089E-04_JPRB,1.6609E-03_JPRB,2.3912E-03_JPRB,2.8530E-03_JPRB,2.6280E-03_JPRB/)
6607
KBO( :, 4,43, 7) = (/&
6608
6
 & 3.0843E-04_JPRB,1.8861E-03_JPRB,2.5915E-03_JPRB,2.9949E-03_JPRB,2.6073E-03_JPRB/)
6609
KBO( :, 5,43, 7) = (/&
6610
6
 & 4.1975E-04_JPRB,2.1696E-03_JPRB,2.8326E-03_JPRB,3.1535E-03_JPRB,2.5807E-03_JPRB/)
6611
KBO( :, 1,44, 7) = (/&
6612
6
 & 7.6179E-05_JPRB,1.0623E-03_JPRB,1.6648E-03_JPRB,2.1141E-03_JPRB,2.1847E-03_JPRB/)
6613
KBO( :, 2,44, 7) = (/&
6614
6
 & 1.1420E-04_JPRB,1.1887E-03_JPRB,1.7975E-03_JPRB,2.2205E-03_JPRB,2.1791E-03_JPRB/)
6615
KBO( :, 3,44, 7) = (/&
6616
6
 & 1.6589E-04_JPRB,1.3367E-03_JPRB,1.9435E-03_JPRB,2.3337E-03_JPRB,2.1689E-03_JPRB/)
6617
KBO( :, 4,44, 7) = (/&
6618
6
 & 2.3431E-04_JPRB,1.5216E-03_JPRB,2.1097E-03_JPRB,2.4546E-03_JPRB,2.1546E-03_JPRB/)
6619
KBO( :, 5,44, 7) = (/&
6620
6
 & 3.2209E-04_JPRB,1.7553E-03_JPRB,2.3110E-03_JPRB,2.5901E-03_JPRB,2.1354E-03_JPRB/)
6621
KBO( :, 1,45, 7) = (/&
6622
6
 & 5.5380E-05_JPRB,8.5190E-04_JPRB,1.3470E-03_JPRB,1.7214E-03_JPRB,1.7974E-03_JPRB/)
6623
KBO( :, 2,45, 7) = (/&
6624
6
 & 8.4230E-05_JPRB,9.5419E-04_JPRB,1.4571E-03_JPRB,1.8110E-03_JPRB,1.7954E-03_JPRB/)
6625
KBO( :, 3,45, 7) = (/&
6626
6
 & 1.2398E-04_JPRB,1.0747E-03_JPRB,1.5782E-03_JPRB,1.9072E-03_JPRB,1.7895E-03_JPRB/)
6627
KBO( :, 4,45, 7) = (/&
6628
6
 & 1.7714E-04_JPRB,1.2254E-03_JPRB,1.7161E-03_JPRB,2.0103E-03_JPRB,1.7807E-03_JPRB/)
6629
KBO( :, 5,45, 7) = (/&
6630
6
 & 2.4615E-04_JPRB,1.4185E-03_JPRB,1.8836E-03_JPRB,2.1255E-03_JPRB,1.7676E-03_JPRB/)
6631
KBO( :, 1,46, 7) = (/&
6632
6
 & 3.9608E-05_JPRB,6.8065E-04_JPRB,1.0869E-03_JPRB,1.3989E-03_JPRB,1.4780E-03_JPRB/)
6633
KBO( :, 2,46, 7) = (/&
6634
6
 & 6.1254E-05_JPRB,7.6359E-04_JPRB,1.1780E-03_JPRB,1.4742E-03_JPRB,1.4788E-03_JPRB/)
6635
KBO( :, 3,46, 7) = (/&
6636
6
 & 9.1434E-05_JPRB,8.6131E-04_JPRB,1.2786E-03_JPRB,1.5561E-03_JPRB,1.4768E-03_JPRB/)
6637
KBO( :, 4,46, 7) = (/&
6638
6
 & 1.3231E-04_JPRB,9.8314E-04_JPRB,1.3925E-03_JPRB,1.6437E-03_JPRB,1.4719E-03_JPRB/)
6639
KBO( :, 5,46, 7) = (/&
6640
6
 & 1.8599E-04_JPRB,1.1411E-03_JPRB,1.5309E-03_JPRB,1.7412E-03_JPRB,1.4636E-03_JPRB/)
6641
KBO( :, 1,47, 7) = (/&
6642
6
 & 2.7565E-05_JPRB,5.4081E-04_JPRB,8.7346E-04_JPRB,1.1337E-03_JPRB,1.2145E-03_JPRB/)
6643
KBO( :, 2,47, 7) = (/&
6644
6
 & 4.3444E-05_JPRB,6.0782E-04_JPRB,9.4864E-04_JPRB,1.1966E-03_JPRB,1.2173E-03_JPRB/)
6645
KBO( :, 3,47, 7) = (/&
6646
6
 & 6.5911E-05_JPRB,6.8599E-04_JPRB,1.0313E-03_JPRB,1.2655E-03_JPRB,1.2177E-03_JPRB/)
6647
KBO( :, 4,47, 7) = (/&
6648
6
 & 9.6767E-05_JPRB,7.8305E-04_JPRB,1.1246E-03_JPRB,1.3397E-03_JPRB,1.2159E-03_JPRB/)
6649
KBO( :, 5,47, 7) = (/&
6650
6
 & 1.3786E-04_JPRB,9.1017E-04_JPRB,1.2371E-03_JPRB,1.4212E-03_JPRB,1.2107E-03_JPRB/)
6651
KBO( :, 1,48, 7) = (/&
6652
6
 & 1.9010E-05_JPRB,4.2934E-04_JPRB,7.0139E-04_JPRB,9.1842E-04_JPRB,9.9781E-04_JPRB/)
6653
KBO( :, 2,48, 7) = (/&
6654
6
 & 3.0547E-05_JPRB,4.8321E-04_JPRB,7.6298E-04_JPRB,9.7015E-04_JPRB,1.0019E-03_JPRB/)
6655
KBO( :, 3,48, 7) = (/&
6656
6
 & 4.7172E-05_JPRB,5.4566E-04_JPRB,8.3089E-04_JPRB,1.0280E-03_JPRB,1.0041E-03_JPRB/)
6657
KBO( :, 4,48, 7) = (/&
6658
6
 & 7.0312E-05_JPRB,6.2270E-04_JPRB,9.0704E-04_JPRB,1.0904E-03_JPRB,1.0043E-03_JPRB/)
6659
KBO( :, 5,48, 7) = (/&
6660
6
 & 1.0158E-04_JPRB,7.2457E-04_JPRB,9.9839E-04_JPRB,1.1584E-03_JPRB,1.0014E-03_JPRB/)
6661
KBO( :, 1,49, 7) = (/&
6662
6
 & 1.2989E-05_JPRB,3.4041E-04_JPRB,5.6254E-04_JPRB,7.4336E-04_JPRB,8.1967E-04_JPRB/)
6663
KBO( :, 2,49, 7) = (/&
6664
6
 & 2.1288E-05_JPRB,3.8375E-04_JPRB,6.1286E-04_JPRB,7.8566E-04_JPRB,8.2462E-04_JPRB/)
6665
KBO( :, 3,49, 7) = (/&
6666
6
 & 3.3501E-05_JPRB,4.3371E-04_JPRB,6.6869E-04_JPRB,8.3391E-04_JPRB,8.2791E-04_JPRB/)
6667
KBO( :, 4,49, 7) = (/&
6668
6
 & 5.0757E-05_JPRB,4.9477E-04_JPRB,7.3099E-04_JPRB,8.8650E-04_JPRB,8.2973E-04_JPRB/)
6669
KBO( :, 5,49, 7) = (/&
6670
6
 & 7.4391E-05_JPRB,5.7603E-04_JPRB,8.0512E-04_JPRB,9.4378E-04_JPRB,8.2902E-04_JPRB/)
6671
KBO( :, 1,50, 7) = (/&
6672
6
 & 8.9107E-06_JPRB,2.7028E-04_JPRB,4.5165E-04_JPRB,6.0203E-04_JPRB,6.7224E-04_JPRB/)
6673
KBO( :, 2,50, 7) = (/&
6674
6
 & 1.4889E-05_JPRB,3.0526E-04_JPRB,4.9281E-04_JPRB,6.3656E-04_JPRB,6.7754E-04_JPRB/)
6675
KBO( :, 3,50, 7) = (/&
6676
6
 & 2.3877E-05_JPRB,3.4554E-04_JPRB,5.3891E-04_JPRB,6.7691E-04_JPRB,6.8139E-04_JPRB/)
6677
KBO( :, 4,50, 7) = (/&
6678
6
 & 3.6771E-05_JPRB,3.9444E-04_JPRB,5.9020E-04_JPRB,7.2140E-04_JPRB,6.8414E-04_JPRB/)
6679
KBO( :, 5,50, 7) = (/&
6680
6
 & 5.4655E-05_JPRB,4.5942E-04_JPRB,6.5054E-04_JPRB,7.6968E-04_JPRB,6.8480E-04_JPRB/)
6681
KBO( :, 1,51, 7) = (/&
6682
6
 & 6.0961E-06_JPRB,2.1476E-04_JPRB,3.6280E-04_JPRB,4.8765E-04_JPRB,5.5078E-04_JPRB/)
6683
KBO( :, 2,51, 7) = (/&
6684
6
 & 1.0381E-05_JPRB,2.4307E-04_JPRB,3.9642E-04_JPRB,5.1588E-04_JPRB,5.5623E-04_JPRB/)
6685
KBO( :, 3,51, 7) = (/&
6686
6
 & 1.6982E-05_JPRB,2.7555E-04_JPRB,4.3451E-04_JPRB,5.4955E-04_JPRB,5.6027E-04_JPRB/)
6687
KBO( :, 4,51, 7) = (/&
6688
6
 & 2.6587E-05_JPRB,3.1466E-04_JPRB,4.7661E-04_JPRB,5.8697E-04_JPRB,5.6337E-04_JPRB/)
6689
KBO( :, 5,51, 7) = (/&
6690
6
 & 4.0101E-05_JPRB,3.6650E-04_JPRB,5.2570E-04_JPRB,6.2745E-04_JPRB,5.6478E-04_JPRB/)
6691
KBO( :, 1,52, 7) = (/&
6692
6
 & 4.1353E-06_JPRB,1.7061E-04_JPRB,2.9145E-04_JPRB,3.9501E-04_JPRB,4.5130E-04_JPRB/)
6693
6694
1
IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART22',1,ZHOOK_HANDLE)
6695
1
END SUBROUTINE PART22
6696
6697
6698
1
SUBROUTINE PART23
6699
6700
REAL(KIND=JPRB) :: ZHOOK_HANDLE
6701
1
IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART23',0,ZHOOK_HANDLE)
6702
6703
6704
KBO( :, 2,52, 7) = (/&
6705
6
 & 7.1818E-06_JPRB,1.9335E-04_JPRB,3.1863E-04_JPRB,4.1793E-04_JPRB,4.5663E-04_JPRB/)
6706
KBO( :, 3,52, 7) = (/&
6707
6
 & 1.1989E-05_JPRB,2.1956E-04_JPRB,3.4994E-04_JPRB,4.4575E-04_JPRB,4.6074E-04_JPRB/)
6708
KBO( :, 4,52, 7) = (/&
6709
6
 & 1.9102E-05_JPRB,2.5087E-04_JPRB,3.8455E-04_JPRB,4.7710E-04_JPRB,4.6395E-04_JPRB/)
6710
KBO( :, 5,52, 7) = (/&
6711
6
 & 2.9266E-05_JPRB,2.9208E-04_JPRB,4.2456E-04_JPRB,5.1110E-04_JPRB,4.6590E-04_JPRB/)
6712
KBO( :, 1,53, 7) = (/&
6713
6
 & 2.7771E-06_JPRB,1.3543E-04_JPRB,2.3402E-04_JPRB,3.1978E-04_JPRB,3.6971E-04_JPRB/)
6714
KBO( :, 2,53, 7) = (/&
6715
6
 & 4.9256E-06_JPRB,1.5363E-04_JPRB,2.5583E-04_JPRB,3.3830E-04_JPRB,3.7486E-04_JPRB/)
6716
KBO( :, 3,53, 7) = (/&
6717
6
 & 8.3927E-06_JPRB,1.7477E-04_JPRB,2.8146E-04_JPRB,3.6113E-04_JPRB,3.7892E-04_JPRB/)
6718
KBO( :, 4,53, 7) = (/&
6719
6
 & 1.3629E-05_JPRB,1.9978E-04_JPRB,3.0996E-04_JPRB,3.8736E-04_JPRB,3.8222E-04_JPRB/)
6720
KBO( :, 5,53, 7) = (/&
6721
6
 & 2.1224E-05_JPRB,2.3248E-04_JPRB,3.4254E-04_JPRB,4.1583E-04_JPRB,3.8453E-04_JPRB/)
6722
KBO( :, 1,54, 7) = (/&
6723
6
 & 1.8811E-06_JPRB,1.0783E-04_JPRB,1.8829E-04_JPRB,2.5915E-04_JPRB,3.0210E-04_JPRB/)
6724
KBO( :, 2,54, 7) = (/&
6725
6
 & 3.4084E-06_JPRB,1.2242E-04_JPRB,2.0578E-04_JPRB,2.7417E-04_JPRB,3.0673E-04_JPRB/)
6726
KBO( :, 3,54, 7) = (/&
6727
6
 & 5.9212E-06_JPRB,1.3950E-04_JPRB,2.2680E-04_JPRB,2.9292E-04_JPRB,3.1041E-04_JPRB/)
6728
KBO( :, 4,54, 7) = (/&
6729
6
 & 9.7966E-06_JPRB,1.5966E-04_JPRB,2.5030E-04_JPRB,3.1483E-04_JPRB,3.1342E-04_JPRB/)
6730
KBO( :, 5,54, 7) = (/&
6731
6
 & 1.5501E-05_JPRB,1.8577E-04_JPRB,2.7693E-04_JPRB,3.3870E-04_JPRB,3.1563E-04_JPRB/)
6732
KBO( :, 1,55, 7) = (/&
6733
6
 & 1.2736E-06_JPRB,8.5960E-05_JPRB,1.5164E-04_JPRB,2.1009E-04_JPRB,2.4656E-04_JPRB/)
6734
KBO( :, 2,55, 7) = (/&
6735
6
 & 2.3598E-06_JPRB,9.7655E-05_JPRB,1.6564E-04_JPRB,2.2229E-04_JPRB,2.5059E-04_JPRB/)
6736
KBO( :, 3,55, 7) = (/&
6737
6
 & 4.1776E-06_JPRB,1.1145E-04_JPRB,1.8284E-04_JPRB,2.3762E-04_JPRB,2.5377E-04_JPRB/)
6738
KBO( :, 4,55, 7) = (/&
6739
6
 & 7.0441E-06_JPRB,1.2773E-04_JPRB,2.0219E-04_JPRB,2.5588E-04_JPRB,2.5634E-04_JPRB/)
6740
KBO( :, 5,55, 7) = (/&
6741
6
 & 1.1323E-05_JPRB,1.4864E-04_JPRB,2.2410E-04_JPRB,2.7593E-04_JPRB,2.5827E-04_JPRB/)
6742
KBO( :, 1,56, 7) = (/&
6743
6
 & 8.5479E-07_JPRB,6.8495E-05_JPRB,1.2209E-04_JPRB,1.7021E-04_JPRB,2.0114E-04_JPRB/)
6744
KBO( :, 2,56, 7) = (/&
6745
6
 & 1.6225E-06_JPRB,7.7817E-05_JPRB,1.3325E-04_JPRB,1.8015E-04_JPRB,2.0463E-04_JPRB/)
6746
KBO( :, 3,56, 7) = (/&
6747
6
 & 2.9270E-06_JPRB,8.8970E-05_JPRB,1.4725E-04_JPRB,1.9262E-04_JPRB,2.0743E-04_JPRB/)
6748
KBO( :, 4,56, 7) = (/&
6749
6
 & 5.0340E-06_JPRB,1.0210E-04_JPRB,1.6318E-04_JPRB,2.0779E-04_JPRB,2.0965E-04_JPRB/)
6750
KBO( :, 5,56, 7) = (/&
6751
6
 & 8.2279E-06_JPRB,1.1881E-04_JPRB,1.8117E-04_JPRB,2.2455E-04_JPRB,2.1130E-04_JPRB/)
6752
KBO( :, 1,57, 7) = (/&
6753
6
 & 5.6832E-07_JPRB,5.4568E-05_JPRB,9.8248E-05_JPRB,1.3779E-04_JPRB,1.6394E-04_JPRB/)
6754
KBO( :, 2,57, 7) = (/&
6755
6
 & 1.1069E-06_JPRB,6.1982E-05_JPRB,1.0712E-04_JPRB,1.4596E-04_JPRB,1.6709E-04_JPRB/)
6756
KBO( :, 3,57, 7) = (/&
6757
6
 & 2.0353E-06_JPRB,7.0945E-05_JPRB,1.1847E-04_JPRB,1.5604E-04_JPRB,1.6951E-04_JPRB/)
6758
KBO( :, 4,57, 7) = (/&
6759
6
 & 3.5732E-06_JPRB,8.1530E-05_JPRB,1.3155E-04_JPRB,1.6855E-04_JPRB,1.7142E-04_JPRB/)
6760
KBO( :, 5,57, 7) = (/&
6761
6
 & 5.9454E-06_JPRB,9.4896E-05_JPRB,1.4631E-04_JPRB,1.8257E-04_JPRB,1.7286E-04_JPRB/)
6762
KBO( :, 1,58, 7) = (/&
6763
6
 & 3.7890E-07_JPRB,4.3568E-05_JPRB,7.9163E-05_JPRB,1.1161E-04_JPRB,1.3361E-04_JPRB/)
6764
KBO( :, 2,58, 7) = (/&
6765
6
 & 7.5700E-07_JPRB,4.9431E-05_JPRB,8.6199E-05_JPRB,1.1831E-04_JPRB,1.3638E-04_JPRB/)
6766
KBO( :, 3,58, 7) = (/&
6767
6
 & 1.4190E-06_JPRB,5.6651E-05_JPRB,9.5379E-05_JPRB,1.2647E-04_JPRB,1.3843E-04_JPRB/)
6768
KBO( :, 4,58, 7) = (/&
6769
6
 & 2.5422E-06_JPRB,6.5215E-05_JPRB,1.0612E-04_JPRB,1.3677E-04_JPRB,1.4007E-04_JPRB/)
6770
KBO( :, 5,58, 7) = (/&
6771
6
 & 4.3056E-06_JPRB,7.5939E-05_JPRB,1.1825E-04_JPRB,1.4847E-04_JPRB,1.4132E-04_JPRB/)
6772
KBO( :, 1,59, 7) = (/&
6773
6
 & 2.8711E-07_JPRB,3.5512E-05_JPRB,6.4676E-05_JPRB,9.1313E-05_JPRB,1.0905E-04_JPRB/)
6774
KBO( :, 2,59, 7) = (/&
6775
6
 & 5.8051E-07_JPRB,4.0372E-05_JPRB,7.0558E-05_JPRB,9.6940E-05_JPRB,1.1137E-04_JPRB/)
6776
KBO( :, 3,59, 7) = (/&
6777
6
 & 1.1009E-06_JPRB,4.6368E-05_JPRB,7.8242E-05_JPRB,1.0385E-04_JPRB,1.1298E-04_JPRB/)
6778
KBO( :, 4,59, 7) = (/&
6779
6
 & 1.9927E-06_JPRB,5.3528E-05_JPRB,8.7247E-05_JPRB,1.1259E-04_JPRB,1.1418E-04_JPRB/)
6780
KBO( :, 5,59, 7) = (/&
6781
6
 & 3.4060E-06_JPRB,6.2579E-05_JPRB,9.7497E-05_JPRB,1.2251E-04_JPRB,1.1509E-04_JPRB/)
6782
KBO( :, 1,13, 8) = (/&
6783
6
 & 2.3970E-02_JPRB,3.0710E-01_JPRB,5.4364E-01_JPRB,7.5219E-01_JPRB,9.5462E-01_JPRB/)
6784
KBO( :, 2,13, 8) = (/&
6785
6
 & 3.5910E-02_JPRB,3.2191E-01_JPRB,5.5986E-01_JPRB,7.6221E-01_JPRB,9.4753E-01_JPRB/)
6786
KBO( :, 3,13, 8) = (/&
6787
6
 & 5.1314E-02_JPRB,3.3704E-01_JPRB,5.7518E-01_JPRB,7.7250E-01_JPRB,9.3944E-01_JPRB/)
6788
KBO( :, 4,13, 8) = (/&
6789
6
 & 7.0544E-02_JPRB,3.5215E-01_JPRB,5.8965E-01_JPRB,7.8209E-01_JPRB,9.3187E-01_JPRB/)
6790
KBO( :, 5,13, 8) = (/&
6791
6
 & 9.4072E-02_JPRB,3.6813E-01_JPRB,6.0322E-01_JPRB,7.9095E-01_JPRB,9.2652E-01_JPRB/)
6792
KBO( :, 1,14, 8) = (/&
6793
6
 & 2.1394E-02_JPRB,2.9767E-01_JPRB,5.2636E-01_JPRB,7.2588E-01_JPRB,9.1476E-01_JPRB/)
6794
KBO( :, 2,14, 8) = (/&
6795
6
 & 3.2006E-02_JPRB,3.1221E-01_JPRB,5.4240E-01_JPRB,7.3771E-01_JPRB,9.0915E-01_JPRB/)
6796
KBO( :, 3,14, 8) = (/&
6797
6
 & 4.5714E-02_JPRB,3.2744E-01_JPRB,5.5760E-01_JPRB,7.4911E-01_JPRB,9.0264E-01_JPRB/)
6798
KBO( :, 4,14, 8) = (/&
6799
6
 & 6.3005E-02_JPRB,3.4291E-01_JPRB,5.7202E-01_JPRB,7.5985E-01_JPRB,8.9702E-01_JPRB/)
6800
KBO( :, 5,14, 8) = (/&
6801
6
 & 8.4224E-02_JPRB,3.5938E-01_JPRB,5.8648E-01_JPRB,7.6955E-01_JPRB,8.9207E-01_JPRB/)
6802
KBO( :, 1,15, 8) = (/&
6803
6
 & 1.9200E-02_JPRB,2.8555E-01_JPRB,5.0447E-01_JPRB,6.9471E-01_JPRB,8.6829E-01_JPRB/)
6804
KBO( :, 2,15, 8) = (/&
6805
6
 & 2.8674E-02_JPRB,2.9984E-01_JPRB,5.2000E-01_JPRB,7.0783E-01_JPRB,8.6420E-01_JPRB/)
6806
KBO( :, 3,15, 8) = (/&
6807
6
 & 4.1036E-02_JPRB,3.1465E-01_JPRB,5.3501E-01_JPRB,7.2026E-01_JPRB,8.6024E-01_JPRB/)
6808
KBO( :, 4,15, 8) = (/&
6809
6
 & 5.6691E-02_JPRB,3.3028E-01_JPRB,5.4991E-01_JPRB,7.3143E-01_JPRB,8.5592E-01_JPRB/)
6810
KBO( :, 5,15, 8) = (/&
6811
6
 & 7.5884E-02_JPRB,3.4766E-01_JPRB,5.6508E-01_JPRB,7.4152E-01_JPRB,8.5184E-01_JPRB/)
6812
KBO( :, 1,16, 8) = (/&
6813
6
 & 1.7280E-02_JPRB,2.7106E-01_JPRB,4.7797E-01_JPRB,6.5828E-01_JPRB,8.1566E-01_JPRB/)
6814
KBO( :, 2,16, 8) = (/&
6815
6
 & 2.5826E-02_JPRB,2.8505E-01_JPRB,4.9327E-01_JPRB,6.7219E-01_JPRB,8.1411E-01_JPRB/)
6816
KBO( :, 3,16, 8) = (/&
6817
6
 & 3.7038E-02_JPRB,2.9951E-01_JPRB,5.0847E-01_JPRB,6.8487E-01_JPRB,8.1174E-01_JPRB/)
6818
KBO( :, 4,16, 8) = (/&
6819
6
 & 5.1196E-02_JPRB,3.1526E-01_JPRB,5.2352E-01_JPRB,6.9628E-01_JPRB,8.0904E-01_JPRB/)
6820
KBO( :, 5,16, 8) = (/&
6821
6
 & 6.8473E-02_JPRB,3.3321E-01_JPRB,5.3879E-01_JPRB,7.0679E-01_JPRB,8.0649E-01_JPRB/)
6822
KBO( :, 1,17, 8) = (/&
6823
6
 & 1.5538E-02_JPRB,2.5421E-01_JPRB,4.4772E-01_JPRB,6.1710E-01_JPRB,7.5839E-01_JPRB/)
6824
KBO( :, 2,17, 8) = (/&
6825
6
 & 2.3272E-02_JPRB,2.6785E-01_JPRB,4.6279E-01_JPRB,6.3082E-01_JPRB,7.5816E-01_JPRB/)
6826
KBO( :, 3,17, 8) = (/&
6827
6
 & 3.3383E-02_JPRB,2.8231E-01_JPRB,4.7772E-01_JPRB,6.4345E-01_JPRB,7.5757E-01_JPRB/)
6828
KBO( :, 4,17, 8) = (/&
6829
6
 & 4.6070E-02_JPRB,2.9815E-01_JPRB,4.9276E-01_JPRB,6.5511E-01_JPRB,7.5658E-01_JPRB/)
6830
KBO( :, 5,17, 8) = (/&
6831
6
 & 6.1414E-02_JPRB,3.1621E-01_JPRB,5.0851E-01_JPRB,6.6619E-01_JPRB,7.5588E-01_JPRB/)
6832
KBO( :, 1,18, 8) = (/&
6833
6
 & 1.3967E-02_JPRB,2.3577E-01_JPRB,4.1440E-01_JPRB,5.7110E-01_JPRB,6.9644E-01_JPRB/)
6834
KBO( :, 2,18, 8) = (/&
6835
6
 & 2.0919E-02_JPRB,2.4897E-01_JPRB,4.2906E-01_JPRB,5.8444E-01_JPRB,6.9784E-01_JPRB/)
6836
KBO( :, 3,18, 8) = (/&
6837
6
 & 2.9927E-02_JPRB,2.6320E-01_JPRB,4.4386E-01_JPRB,5.9706E-01_JPRB,6.9881E-01_JPRB/)
6838
KBO( :, 4,18, 8) = (/&
6839
6
 & 4.1175E-02_JPRB,2.7935E-01_JPRB,4.5908E-01_JPRB,6.0918E-01_JPRB,6.9970E-01_JPRB/)
6840
KBO( :, 5,18, 8) = (/&
6841
6
 & 5.4768E-02_JPRB,2.9730E-01_JPRB,4.7517E-01_JPRB,6.2117E-01_JPRB,7.0068E-01_JPRB/)
6842
KBO( :, 1,19, 8) = (/&
6843
6
 & 1.2535E-02_JPRB,2.1612E-01_JPRB,3.7880E-01_JPRB,5.2193E-01_JPRB,6.3226E-01_JPRB/)
6844
KBO( :, 2,19, 8) = (/&
6845
6
 & 1.8709E-02_JPRB,2.2885E-01_JPRB,3.9316E-01_JPRB,5.3486E-01_JPRB,6.3494E-01_JPRB/)
6846
KBO( :, 3,19, 8) = (/&
6847
6
 & 2.6683E-02_JPRB,2.4307E-01_JPRB,4.0782E-01_JPRB,5.4746E-01_JPRB,6.3735E-01_JPRB/)
6848
KBO( :, 4,19, 8) = (/&
6849
6
 & 3.6602E-02_JPRB,2.5923E-01_JPRB,4.2323E-01_JPRB,5.6013E-01_JPRB,6.4003E-01_JPRB/)
6850
KBO( :, 5,19, 8) = (/&
6851
6
 & 4.8595E-02_JPRB,2.7710E-01_JPRB,4.3996E-01_JPRB,5.7286E-01_JPRB,6.4337E-01_JPRB/)
6852
KBO( :, 1,20, 8) = (/&
6853
6
 & 1.1287E-02_JPRB,1.9616E-01_JPRB,3.4278E-01_JPRB,4.7146E-01_JPRB,5.6767E-01_JPRB/)
6854
KBO( :, 2,20, 8) = (/&
6855
6
 & 1.6764E-02_JPRB,2.0859E-01_JPRB,3.5655E-01_JPRB,4.8417E-01_JPRB,5.7171E-01_JPRB/)
6856
KBO( :, 3,20, 8) = (/&
6857
6
 & 2.3811E-02_JPRB,2.2281E-01_JPRB,3.7110E-01_JPRB,4.9713E-01_JPRB,5.7584E-01_JPRB/)
6858
KBO( :, 4,20, 8) = (/&
6859
6
 & 3.2552E-02_JPRB,2.3876E-01_JPRB,3.8677E-01_JPRB,5.1039E-01_JPRB,5.8077E-01_JPRB/)
6860
KBO( :, 5,20, 8) = (/&
6861
6
 & 4.3159E-02_JPRB,2.5646E-01_JPRB,4.0398E-01_JPRB,5.2418E-01_JPRB,5.8653E-01_JPRB/)
6862
KBO( :, 1,21, 8) = (/&
6863
6
 & 1.0123E-02_JPRB,1.7642E-01_JPRB,3.0702E-01_JPRB,4.2164E-01_JPRB,5.0497E-01_JPRB/)
6864
KBO( :, 2,21, 8) = (/&
6865
6
 & 1.4960E-02_JPRB,1.8865E-01_JPRB,3.2047E-01_JPRB,4.3442E-01_JPRB,5.1019E-01_JPRB/)
6866
KBO( :, 3,21, 8) = (/&
6867
6
 & 2.1152E-02_JPRB,2.0268E-01_JPRB,3.3499E-01_JPRB,4.4767E-01_JPRB,5.1630E-01_JPRB/)
6868
KBO( :, 4,21, 8) = (/&
6869
6
 & 2.8843E-02_JPRB,2.1843E-01_JPRB,3.5106E-01_JPRB,4.6165E-01_JPRB,5.2357E-01_JPRB/)
6870
KBO( :, 5,21, 8) = (/&
6871
6
 & 3.8204E-02_JPRB,2.3577E-01_JPRB,3.6853E-01_JPRB,4.7644E-01_JPRB,5.3124E-01_JPRB/)
6872
KBO( :, 1,22, 8) = (/&
6873
6
 & 9.2874E-03_JPRB,1.5831E-01_JPRB,2.7358E-01_JPRB,3.7468E-01_JPRB,4.4590E-01_JPRB/)
6874
KBO( :, 2,22, 8) = (/&
6875
6
 & 1.3605E-02_JPRB,1.7047E-01_JPRB,2.8679E-01_JPRB,3.8765E-01_JPRB,4.5286E-01_JPRB/)
6876
KBO( :, 3,22, 8) = (/&
6877
6
 & 1.9114E-02_JPRB,1.8434E-01_JPRB,3.0159E-01_JPRB,4.0144E-01_JPRB,4.6097E-01_JPRB/)
6878
KBO( :, 4,22, 8) = (/&
6879
6
 & 2.5961E-02_JPRB,1.9982E-01_JPRB,3.1798E-01_JPRB,4.1606E-01_JPRB,4.6951E-01_JPRB/)
6880
KBO( :, 5,22, 8) = (/&
6881
6
 & 3.4349E-02_JPRB,2.1668E-01_JPRB,3.3570E-01_JPRB,4.3114E-01_JPRB,4.7729E-01_JPRB/)
6882
KBO( :, 1,23, 8) = (/&
6883
6
 & 8.4921E-03_JPRB,1.4152E-01_JPRB,2.4231E-01_JPRB,3.3110E-01_JPRB,3.9186E-01_JPRB/)
6884
KBO( :, 2,23, 8) = (/&
6885
6
 & 1.2342E-02_JPRB,1.5348E-01_JPRB,2.5569E-01_JPRB,3.4426E-01_JPRB,4.0022E-01_JPRB/)
6886
KBO( :, 3,23, 8) = (/&
6887
6
 & 1.7244E-02_JPRB,1.6712E-01_JPRB,2.7061E-01_JPRB,3.5816E-01_JPRB,4.0905E-01_JPRB/)
6888
KBO( :, 4,23, 8) = (/&
6889
6
 & 2.3366E-02_JPRB,1.8219E-01_JPRB,2.8684E-01_JPRB,3.7242E-01_JPRB,4.1729E-01_JPRB/)
6890
KBO( :, 5,23, 8) = (/&
6891
6
 & 3.0906E-02_JPRB,1.9826E-01_JPRB,3.0394E-01_JPRB,3.8658E-01_JPRB,4.2349E-01_JPRB/)
6892
KBO( :, 1,24, 8) = (/&
6893
6
 & 7.7535E-03_JPRB,1.2629E-01_JPRB,2.1405E-01_JPRB,2.9135E-01_JPRB,3.4301E-01_JPRB/)
6894
KBO( :, 2,24, 8) = (/&
6895
6
 & 1.1183E-02_JPRB,1.3800E-01_JPRB,2.2733E-01_JPRB,3.0427E-01_JPRB,3.5176E-01_JPRB/)
6896
KBO( :, 3,24, 8) = (/&
6897
6
 & 1.5576E-02_JPRB,1.5118E-01_JPRB,2.4185E-01_JPRB,3.1749E-01_JPRB,3.6002E-01_JPRB/)
6898
KBO( :, 4,24, 8) = (/&
6899
6
 & 2.1087E-02_JPRB,1.6543E-01_JPRB,2.5728E-01_JPRB,3.3050E-01_JPRB,3.6605E-01_JPRB/)
6900
KBO( :, 5,24, 8) = (/&
6901
6
 & 2.7862E-02_JPRB,1.8042E-01_JPRB,2.7311E-01_JPRB,3.4269E-01_JPRB,3.6924E-01_JPRB/)
6902
KBO( :, 1,25, 8) = (/&
6903
6
 & 7.0742E-03_JPRB,1.1262E-01_JPRB,1.8871E-01_JPRB,2.5540E-01_JPRB,2.9903E-01_JPRB/)
6904
KBO( :, 2,25, 8) = (/&
6905
6
 & 1.0155E-02_JPRB,1.2387E-01_JPRB,2.0149E-01_JPRB,2.6744E-01_JPRB,3.0694E-01_JPRB/)
6906
KBO( :, 3,25, 8) = (/&
6907
6
 & 1.4119E-02_JPRB,1.3621E-01_JPRB,2.1507E-01_JPRB,2.7908E-01_JPRB,3.1279E-01_JPRB/)
6908
KBO( :, 4,25, 8) = (/&
6909
6
 & 1.9079E-02_JPRB,1.4928E-01_JPRB,2.2897E-01_JPRB,2.8986E-01_JPRB,3.1583E-01_JPRB/)
6910
KBO( :, 5,25, 8) = (/&
6911
6
 & 2.5164E-02_JPRB,1.6305E-01_JPRB,2.4282E-01_JPRB,2.9961E-01_JPRB,3.1616E-01_JPRB/)
6912
KBO( :, 1,26, 8) = (/&
6913
6
 & 6.4819E-03_JPRB,1.0046E-01_JPRB,1.6616E-01_JPRB,2.2296E-01_JPRB,2.5906E-01_JPRB/)
6914
KBO( :, 2,26, 8) = (/&
6915
6
 & 9.2746E-03_JPRB,1.1094E-01_JPRB,1.7789E-01_JPRB,2.3321E-01_JPRB,2.6463E-01_JPRB/)
6916
KBO( :, 3,26, 8) = (/&
6917
6
 & 1.2860E-02_JPRB,1.2211E-01_JPRB,1.8982E-01_JPRB,2.4261E-01_JPRB,2.6762E-01_JPRB/)
6918
KBO( :, 4,26, 8) = (/&
6919
6
 & 1.7340E-02_JPRB,1.3390E-01_JPRB,2.0176E-01_JPRB,2.5109E-01_JPRB,2.6820E-01_JPRB/)
6920
KBO( :, 5,26, 8) = (/&
6921
6
 & 2.2797E-02_JPRB,1.4641E-01_JPRB,2.1346E-01_JPRB,2.5871E-01_JPRB,2.6701E-01_JPRB/)
6922
KBO( :, 1,27, 8) = (/&
6923
6
 & 5.9496E-03_JPRB,8.9354E-02_JPRB,1.4559E-01_JPRB,1.9301E-01_JPRB,2.2196E-01_JPRB/)
6924
KBO( :, 2,27, 8) = (/&
6925
6
 & 8.4823E-03_JPRB,9.8713E-02_JPRB,1.5575E-01_JPRB,2.0121E-01_JPRB,2.2502E-01_JPRB/)
6926
KBO( :, 3,27, 8) = (/&
6927
6
 & 1.1723E-02_JPRB,1.0860E-01_JPRB,1.6592E-01_JPRB,2.0857E-01_JPRB,2.2594E-01_JPRB/)
6928
KBO( :, 4,27, 8) = (/&
6929
6
 & 1.5760E-02_JPRB,1.1910E-01_JPRB,1.7588E-01_JPRB,2.1528E-01_JPRB,2.2532E-01_JPRB/)
6930
KBO( :, 5,27, 8) = (/&
6931
6
 & 2.0640E-02_JPRB,1.3042E-01_JPRB,1.8584E-01_JPRB,2.2158E-01_JPRB,2.2357E-01_JPRB/)
6932
KBO( :, 1,28, 8) = (/&
6933
6
 & 5.4648E-03_JPRB,7.8954E-02_JPRB,1.2664E-01_JPRB,1.6556E-01_JPRB,1.8790E-01_JPRB/)
6934
KBO( :, 2,28, 8) = (/&
6935
6
 & 7.7612E-03_JPRB,8.7134E-02_JPRB,1.3525E-01_JPRB,1.7197E-01_JPRB,1.8917E-01_JPRB/)
6936
KBO( :, 3,28, 8) = (/&
6937
6
 & 1.0688E-02_JPRB,9.5816E-02_JPRB,1.4371E-01_JPRB,1.7791E-01_JPRB,1.8910E-01_JPRB/)
6938
KBO( :, 4,28, 8) = (/&
6939
6
 & 1.4301E-02_JPRB,1.0515E-01_JPRB,1.5218E-01_JPRB,1.8352E-01_JPRB,1.8804E-01_JPRB/)
6940
KBO( :, 5,28, 8) = (/&
6941
6
 & 1.8668E-02_JPRB,1.1540E-01_JPRB,1.6098E-01_JPRB,1.8889E-01_JPRB,1.8616E-01_JPRB/)
6942
KBO( :, 1,29, 8) = (/&
6943
6
 & 5.0360E-03_JPRB,6.9325E-02_JPRB,1.0943E-01_JPRB,1.4091E-01_JPRB,1.5759E-01_JPRB/)
6944
KBO( :, 2,29, 8) = (/&
6945
6
 & 7.1202E-03_JPRB,7.6426E-02_JPRB,1.1663E-01_JPRB,1.4615E-01_JPRB,1.5798E-01_JPRB/)
6946
KBO( :, 3,29, 8) = (/&
6947
6
 & 9.7533E-03_JPRB,8.4055E-02_JPRB,1.2381E-01_JPRB,1.5115E-01_JPRB,1.5749E-01_JPRB/)
6948
KBO( :, 4,29, 8) = (/&
6949
6
 & 1.2997E-02_JPRB,9.2463E-02_JPRB,1.3122E-01_JPRB,1.5595E-01_JPRB,1.5628E-01_JPRB/)
6950
KBO( :, 5,29, 8) = (/&
6951
6
 & 1.6906E-02_JPRB,1.0185E-01_JPRB,1.3918E-01_JPRB,1.6061E-01_JPRB,1.5451E-01_JPRB/)
6952
KBO( :, 1,30, 8) = (/&
6953
6
 & 4.6402E-03_JPRB,6.0489E-02_JPRB,9.4043E-02_JPRB,1.1942E-01_JPRB,1.3140E-01_JPRB/)
6954
KBO( :, 2,30, 8) = (/&
6955
6
 & 6.5263E-03_JPRB,6.6689E-02_JPRB,1.0012E-01_JPRB,1.2384E-01_JPRB,1.3139E-01_JPRB/)
6956
KBO( :, 3,30, 8) = (/&
6957
6
 & 8.8957E-03_JPRB,7.3511E-02_JPRB,1.0635E-01_JPRB,1.2814E-01_JPRB,1.3072E-01_JPRB/)
6958
KBO( :, 4,30, 8) = (/&
6959
6
 & 1.1806E-02_JPRB,8.1191E-02_JPRB,1.1302E-01_JPRB,1.3230E-01_JPRB,1.2954E-01_JPRB/)
6960
KBO( :, 5,30, 8) = (/&
6961
6
 & 1.5321E-02_JPRB,8.9861E-02_JPRB,1.2036E-01_JPRB,1.3654E-01_JPRB,1.2795E-01_JPRB/)
6962
KBO( :, 1,31, 8) = (/&
6963
6
 & 4.2816E-03_JPRB,5.2594E-02_JPRB,8.0556E-02_JPRB,1.0100E-01_JPRB,1.0923E-01_JPRB/)
6964
KBO( :, 2,31, 8) = (/&
6965
6
 & 5.9928E-03_JPRB,5.8093E-02_JPRB,8.5788E-02_JPRB,1.0484E-01_JPRB,1.0901E-01_JPRB/)
6966
KBO( :, 3,31, 8) = (/&
6967
6
 & 8.1254E-03_JPRB,6.4313E-02_JPRB,9.1351E-02_JPRB,1.0855E-01_JPRB,1.0832E-01_JPRB/)
6968
KBO( :, 4,31, 8) = (/&
6969
6
 & 1.0750E-02_JPRB,7.1406E-02_JPRB,9.7440E-02_JPRB,1.1230E-01_JPRB,1.0725E-01_JPRB/)
6970
KBO( :, 5,31, 8) = (/&
6971
6
 & 1.3934E-02_JPRB,7.9435E-02_JPRB,1.0429E-01_JPRB,1.1627E-01_JPRB,1.0582E-01_JPRB/)
6972
KBO( :, 1,32, 8) = (/&
6973
6
 & 3.9575E-03_JPRB,4.5682E-02_JPRB,6.8898E-02_JPRB,8.5411E-02_JPRB,9.0602E-02_JPRB/)
6974
KBO( :, 2,32, 8) = (/&
6975
6
 & 5.5021E-03_JPRB,5.0658E-02_JPRB,7.3522E-02_JPRB,8.8727E-02_JPRB,9.0292E-02_JPRB/)
6976
KBO( :, 3,32, 8) = (/&
6977
6
 & 7.4345E-03_JPRB,5.6386E-02_JPRB,7.8565E-02_JPRB,9.2013E-02_JPRB,8.9633E-02_JPRB/)
6978
KBO( :, 4,32, 8) = (/&
6979
6
 & 9.8223E-03_JPRB,6.2960E-02_JPRB,8.4228E-02_JPRB,9.5465E-02_JPRB,8.8660E-02_JPRB/)
6980
KBO( :, 5,32, 8) = (/&
6981
6
 & 1.2730E-02_JPRB,7.0429E-02_JPRB,9.0625E-02_JPRB,9.9233E-02_JPRB,8.7449E-02_JPRB/)
6982
KBO( :, 1,33, 8) = (/&
6983
6
 & 3.6591E-03_JPRB,3.9715E-02_JPRB,5.8948E-02_JPRB,7.2241E-02_JPRB,7.5055E-02_JPRB/)
6984
KBO( :, 2,33, 8) = (/&
6985
6
 & 5.0639E-03_JPRB,4.4286E-02_JPRB,6.3097E-02_JPRB,7.5129E-02_JPRB,7.4722E-02_JPRB/)
6986
KBO( :, 3,33, 8) = (/&
6987
6
 & 6.8217E-03_JPRB,4.9606E-02_JPRB,6.7743E-02_JPRB,7.8113E-02_JPRB,7.4121E-02_JPRB/)
6988
KBO( :, 4,33, 8) = (/&
6989
6
 & 9.0010E-03_JPRB,5.5729E-02_JPRB,7.3038E-02_JPRB,8.1349E-02_JPRB,7.3284E-02_JPRB/)
6990
KBO( :, 5,33, 8) = (/&
6991
6
 & 1.1693E-02_JPRB,6.2702E-02_JPRB,7.9022E-02_JPRB,8.4992E-02_JPRB,7.2286E-02_JPRB/)
6992
KBO( :, 1,34, 8) = (/&
6993
6
 & 3.3424E-03_JPRB,3.4485E-02_JPRB,5.0364E-02_JPRB,6.1041E-02_JPRB,6.2108E-02_JPRB/)
6994
6995
1
IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART23',1,ZHOOK_HANDLE)
6996
1
END SUBROUTINE PART23
6997
6998
6999
1
SUBROUTINE PART24
7000
7001
REAL(KIND=JPRB) :: ZHOOK_HANDLE
7002
1
IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART24',0,ZHOOK_HANDLE)
7003
7004
7005
KBO( :, 2,34, 8) = (/&
7006
6
 & 4.6136E-03_JPRB,3.8708E-02_JPRB,5.4132E-02_JPRB,6.3612E-02_JPRB,6.1791E-02_JPRB/)
7007
KBO( :, 3,34, 8) = (/&
7008
6
 & 6.2081E-03_JPRB,4.3641E-02_JPRB,5.8453E-02_JPRB,6.6369E-02_JPRB,6.1269E-02_JPRB/)
7009
KBO( :, 4,34, 8) = (/&
7010
6
 & 8.2079E-03_JPRB,4.9328E-02_JPRB,6.3400E-02_JPRB,6.9443E-02_JPRB,6.0579E-02_JPRB/)
7011
KBO( :, 5,34, 8) = (/&
7012
6
 & 1.0690E-02_JPRB,5.5879E-02_JPRB,6.9026E-02_JPRB,7.2976E-02_JPRB,5.9770E-02_JPRB/)
7013
KBO( :, 1,35, 8) = (/&
7014
6
 & 2.9610E-03_JPRB,2.9708E-02_JPRB,4.2806E-02_JPRB,5.1414E-02_JPRB,5.1399E-02_JPRB/)
7015
KBO( :, 2,35, 8) = (/&
7016
6
 & 4.0852E-03_JPRB,3.3563E-02_JPRB,4.6239E-02_JPRB,5.3734E-02_JPRB,5.1129E-02_JPRB/)
7017
KBO( :, 3,35, 8) = (/&
7018
6
 & 5.5146E-03_JPRB,3.8090E-02_JPRB,5.0226E-02_JPRB,5.6294E-02_JPRB,5.0708E-02_JPRB/)
7019
KBO( :, 4,35, 8) = (/&
7020
6
 & 7.3191E-03_JPRB,4.3348E-02_JPRB,5.4809E-02_JPRB,5.9220E-02_JPRB,5.0169E-02_JPRB/)
7021
KBO( :, 5,35, 8) = (/&
7022
6
 & 9.5862E-03_JPRB,4.9447E-02_JPRB,6.0051E-02_JPRB,6.2576E-02_JPRB,4.9549E-02_JPRB/)
7023
KBO( :, 1,36, 8) = (/&
7024
6
 & 2.5291E-03_JPRB,2.5317E-02_JPRB,3.6139E-02_JPRB,4.3139E-02_JPRB,4.2550E-02_JPRB/)
7025
KBO( :, 2,36, 8) = (/&
7026
6
 & 3.5081E-03_JPRB,2.8787E-02_JPRB,3.9246E-02_JPRB,4.5245E-02_JPRB,4.2349E-02_JPRB/)
7027
KBO( :, 3,36, 8) = (/&
7028
6
 & 4.7623E-03_JPRB,3.2880E-02_JPRB,4.2875E-02_JPRB,4.7610E-02_JPRB,4.2034E-02_JPRB/)
7029
KBO( :, 4,36, 8) = (/&
7030
6
 & 6.3600E-03_JPRB,3.7684E-02_JPRB,4.7082E-02_JPRB,5.0344E-02_JPRB,4.1631E-02_JPRB/)
7031
KBO( :, 5,36, 8) = (/&
7032
6
 & 8.3828E-03_JPRB,4.3328E-02_JPRB,5.1915E-02_JPRB,5.3486E-02_JPRB,4.1174E-02_JPRB/)
7033
KBO( :, 1,37, 8) = (/&
7034
6
 & 2.0572E-03_JPRB,2.1190E-02_JPRB,3.0172E-02_JPRB,3.5966E-02_JPRB,3.5231E-02_JPRB/)
7035
KBO( :, 2,37, 8) = (/&
7036
6
 & 2.8742E-03_JPRB,2.4234E-02_JPRB,3.2921E-02_JPRB,3.7847E-02_JPRB,3.5097E-02_JPRB/)
7037
KBO( :, 3,37, 8) = (/&
7038
6
 & 3.9377E-03_JPRB,2.7856E-02_JPRB,3.6156E-02_JPRB,3.9991E-02_JPRB,3.4880E-02_JPRB/)
7039
KBO( :, 4,37, 8) = (/&
7040
6
 & 5.3075E-03_JPRB,3.2157E-02_JPRB,3.9929E-02_JPRB,4.2485E-02_JPRB,3.4595E-02_JPRB/)
7041
KBO( :, 5,37, 8) = (/&
7042
6
 & 7.0531E-03_JPRB,3.7266E-02_JPRB,4.4310E-02_JPRB,4.5361E-02_JPRB,3.4266E-02_JPRB/)
7043
KBO( :, 1,38, 8) = (/&
7044
6
 & 1.6668E-03_JPRB,1.7718E-02_JPRB,2.5179E-02_JPRB,2.9976E-02_JPRB,2.9178E-02_JPRB/)
7045
KBO( :, 2,38, 8) = (/&
7046
6
 & 2.3512E-03_JPRB,2.0388E-02_JPRB,2.7616E-02_JPRB,3.1654E-02_JPRB,2.9106E-02_JPRB/)
7047
KBO( :, 3,38, 8) = (/&
7048
6
 & 3.2489E-03_JPRB,2.3599E-02_JPRB,3.0491E-02_JPRB,3.3589E-02_JPRB,2.8965E-02_JPRB/)
7049
KBO( :, 4,38, 8) = (/&
7050
6
 & 4.4197E-03_JPRB,2.7448E-02_JPRB,3.3876E-02_JPRB,3.5861E-02_JPRB,2.8777E-02_JPRB/)
7051
KBO( :, 5,38, 8) = (/&
7052
6
 & 5.9291E-03_JPRB,3.2085E-02_JPRB,3.7857E-02_JPRB,3.8499E-02_JPRB,2.8558E-02_JPRB/)
7053
KBO( :, 1,39, 8) = (/&
7054
6
 & 1.3505E-03_JPRB,1.4824E-02_JPRB,2.1025E-02_JPRB,2.4988E-02_JPRB,2.4183E-02_JPRB/)
7055
KBO( :, 2,39, 8) = (/&
7056
6
 & 1.9237E-03_JPRB,1.7169E-02_JPRB,2.3181E-02_JPRB,2.6485E-02_JPRB,2.4157E-02_JPRB/)
7057
KBO( :, 3,39, 8) = (/&
7058
6
 & 2.6812E-03_JPRB,2.0015E-02_JPRB,2.5740E-02_JPRB,2.8232E-02_JPRB,2.4081E-02_JPRB/)
7059
KBO( :, 4,39, 8) = (/&
7060
6
 & 3.6890E-03_JPRB,2.3470E-02_JPRB,2.8781E-02_JPRB,3.0301E-02_JPRB,2.3974E-02_JPRB/)
7061
KBO( :, 5,39, 8) = (/&
7062
6
 & 4.9956E-03_JPRB,2.7688E-02_JPRB,3.2410E-02_JPRB,3.2726E-02_JPRB,2.3849E-02_JPRB/)
7063
KBO( :, 1,40, 8) = (/&
7064
6
 & 1.0535E-03_JPRB,1.2217E-02_JPRB,1.7388E-02_JPRB,2.0709E-02_JPRB,2.0019E-02_JPRB/)
7065
KBO( :, 2,40, 8) = (/&
7066
6
 & 1.5173E-03_JPRB,1.4233E-02_JPRB,1.9255E-02_JPRB,2.2025E-02_JPRB,2.0029E-02_JPRB/)
7067
KBO( :, 3,40, 8) = (/&
7068
6
 & 2.1424E-03_JPRB,1.6709E-02_JPRB,2.1499E-02_JPRB,2.3574E-02_JPRB,2.0001E-02_JPRB/)
7069
KBO( :, 4,40, 8) = (/&
7070
6
 & 2.9806E-03_JPRB,1.9754E-02_JPRB,2.4186E-02_JPRB,2.5425E-02_JPRB,1.9953E-02_JPRB/)
7071
KBO( :, 5,40, 8) = (/&
7072
6
 & 4.0841E-03_JPRB,2.3521E-02_JPRB,2.7438E-02_JPRB,2.7615E-02_JPRB,1.9891E-02_JPRB/)
7073
KBO( :, 1,41, 8) = (/&
7074
6
 & 8.1549E-04_JPRB,1.0039E-02_JPRB,1.4352E-02_JPRB,1.7141E-02_JPRB,1.6569E-02_JPRB/)
7075
KBO( :, 2,41, 8) = (/&
7076
6
 & 1.1896E-03_JPRB,1.1765E-02_JPRB,1.5963E-02_JPRB,1.8295E-02_JPRB,1.6609E-02_JPRB/)
7077
KBO( :, 3,41, 8) = (/&
7078
6
 & 1.7007E-03_JPRB,1.3910E-02_JPRB,1.7922E-02_JPRB,1.9664E-02_JPRB,1.6616E-02_JPRB/)
7079
KBO( :, 4,41, 8) = (/&
7080
6
 & 2.3967E-03_JPRB,1.6587E-02_JPRB,2.0295E-02_JPRB,2.1313E-02_JPRB,1.6608E-02_JPRB/)
7081
KBO( :, 5,41, 8) = (/&
7082
6
 & 3.3209E-03_JPRB,1.9941E-02_JPRB,2.3193E-02_JPRB,2.3279E-02_JPRB,1.6596E-02_JPRB/)
7083
KBO( :, 1,42, 8) = (/&
7084
6
 & 6.2885E-04_JPRB,8.2389E-03_JPRB,1.1838E-02_JPRB,1.4182E-02_JPRB,1.3717E-02_JPRB/)
7085
KBO( :, 2,42, 8) = (/&
7086
6
 & 9.3075E-04_JPRB,9.7147E-03_JPRB,1.3226E-02_JPRB,1.5189E-02_JPRB,1.3775E-02_JPRB/)
7087
KBO( :, 3,42, 8) = (/&
7088
6
 & 1.3476E-03_JPRB,1.1572E-02_JPRB,1.4934E-02_JPRB,1.6397E-02_JPRB,1.3812E-02_JPRB/)
7089
KBO( :, 4,42, 8) = (/&
7090
6
 & 1.9221E-03_JPRB,1.3921E-02_JPRB,1.7022E-02_JPRB,1.7862E-02_JPRB,1.3835E-02_JPRB/)
7091
KBO( :, 5,42, 8) = (/&
7092
6
 & 2.6974E-03_JPRB,1.6905E-02_JPRB,1.9608E-02_JPRB,1.9625E-02_JPRB,1.3858E-02_JPRB/)
7093
KBO( :, 1,43, 8) = (/&
7094
6
 & 4.7225E-04_JPRB,6.6911E-03_JPRB,9.6971E-03_JPRB,1.1682E-02_JPRB,1.1351E-02_JPRB/)
7095
KBO( :, 2,43, 8) = (/&
7096
6
 & 7.0933E-04_JPRB,7.9348E-03_JPRB,1.0877E-02_JPRB,1.2551E-02_JPRB,1.1424E-02_JPRB/)
7097
KBO( :, 3,43, 8) = (/&
7098
6
 & 1.0435E-03_JPRB,9.5155E-03_JPRB,1.2344E-02_JPRB,1.3602E-02_JPRB,1.1480E-02_JPRB/)
7099
KBO( :, 4,43, 8) = (/&
7100
6
 & 1.5082E-03_JPRB,1.1547E-02_JPRB,1.4158E-02_JPRB,1.4886E-02_JPRB,1.1523E-02_JPRB/)
7101
KBO( :, 5,43, 8) = (/&
7102
6
 & 2.1454E-03_JPRB,1.4163E-02_JPRB,1.6434E-02_JPRB,1.6450E-02_JPRB,1.1573E-02_JPRB/)
7103
KBO( :, 1,44, 8) = (/&
7104
6
 & 3.4902E-04_JPRB,5.4014E-03_JPRB,7.9122E-03_JPRB,9.5973E-03_JPRB,9.3906E-03_JPRB/)
7105
KBO( :, 2,44, 8) = (/&
7106
6
 & 5.3336E-04_JPRB,6.4385E-03_JPRB,8.9048E-03_JPRB,1.0341E-02_JPRB,9.4727E-03_JPRB/)
7107
KBO( :, 3,44, 8) = (/&
7108
6
 & 7.9641E-04_JPRB,7.7741E-03_JPRB,1.0155E-02_JPRB,1.1247E-02_JPRB,9.5408E-03_JPRB/)
7109
KBO( :, 4,44, 8) = (/&
7110
6
 & 1.1697E-03_JPRB,9.5107E-03_JPRB,1.1718E-02_JPRB,1.2366E-02_JPRB,9.5994E-03_JPRB/)
7111
KBO( :, 5,44, 8) = (/&
7112
6
 & 1.6866E-03_JPRB,1.1782E-02_JPRB,1.3700E-02_JPRB,1.3737E-02_JPRB,9.6629E-03_JPRB/)
7113
KBO( :, 1,45, 8) = (/&
7114
6
 & 2.5641E-04_JPRB,4.3524E-03_JPRB,6.4489E-03_JPRB,7.8776E-03_JPRB,7.7700E-03_JPRB/)
7115
KBO( :, 2,45, 8) = (/&
7116
6
 & 3.9819E-04_JPRB,5.2131E-03_JPRB,7.2796E-03_JPRB,8.5115E-03_JPRB,7.8565E-03_JPRB/)
7117
KBO( :, 3,45, 8) = (/&
7118
6
 & 6.0452E-04_JPRB,6.3356E-03_JPRB,8.3400E-03_JPRB,9.2883E-03_JPRB,7.9298E-03_JPRB/)
7119
KBO( :, 4,45, 8) = (/&
7120
6
 & 9.0225E-04_JPRB,7.8148E-03_JPRB,9.6818E-03_JPRB,1.0257E-02_JPRB,7.9978E-03_JPRB/)
7121
KBO( :, 5,45, 8) = (/&
7122
6
 & 1.3212E-03_JPRB,9.7779E-03_JPRB,1.1402E-02_JPRB,1.1457E-02_JPRB,8.0738E-03_JPRB/)
7123
KBO( :, 1,46, 8) = (/&
7124
6
 & 1.8524E-04_JPRB,3.4864E-03_JPRB,5.2341E-03_JPRB,6.4466E-03_JPRB,6.4230E-03_JPRB/)
7125
KBO( :, 2,46, 8) = (/&
7126
6
 & 2.9313E-04_JPRB,4.1931E-03_JPRB,5.9228E-03_JPRB,6.9831E-03_JPRB,6.5117E-03_JPRB/)
7127
KBO( :, 3,46, 8) = (/&
7128
6
 & 4.5241E-04_JPRB,5.1271E-03_JPRB,6.8142E-03_JPRB,7.6439E-03_JPRB,6.5889E-03_JPRB/)
7129
KBO( :, 4,46, 8) = (/&
7130
6
 & 6.8674E-04_JPRB,6.3729E-03_JPRB,7.9564E-03_JPRB,8.4768E-03_JPRB,6.6644E-03_JPRB/)
7131
KBO( :, 5,46, 8) = (/&
7132
6
 & 1.0220E-03_JPRB,8.0538E-03_JPRB,9.4380E-03_JPRB,9.5193E-03_JPRB,6.7476E-03_JPRB/)
7133
KBO( :, 1,47, 8) = (/&
7134
6
 & 1.3000E-04_JPRB,2.7663E-03_JPRB,4.2208E-03_JPRB,5.2521E-03_JPRB,5.3026E-03_JPRB/)
7135
KBO( :, 2,47, 8) = (/&
7136
6
 & 2.1025E-04_JPRB,3.3363E-03_JPRB,4.7828E-03_JPRB,5.7020E-03_JPRB,5.3902E-03_JPRB/)
7137
KBO( :, 3,47, 8) = (/&
7138
6
 & 3.3047E-04_JPRB,4.0995E-03_JPRB,5.5201E-03_JPRB,6.2559E-03_JPRB,5.4679E-03_JPRB/)
7139
KBO( :, 4,47, 8) = (/&
7140
6
 & 5.1029E-04_JPRB,5.1296E-03_JPRB,6.4755E-03_JPRB,6.9601E-03_JPRB,5.5444E-03_JPRB/)
7141
KBO( :, 5,47, 8) = (/&
7142
6
 & 7.7317E-04_JPRB,6.5403E-03_JPRB,7.7293E-03_JPRB,7.8503E-03_JPRB,5.6289E-03_JPRB/)
7143
KBO( :, 1,48, 8) = (/&
7144
6
 & 9.0250E-05_JPRB,2.1914E-03_JPRB,3.3994E-03_JPRB,4.2738E-03_JPRB,4.3771E-03_JPRB/)
7145
KBO( :, 2,48, 8) = (/&
7146
6
 & 1.4933E-04_JPRB,2.6470E-03_JPRB,3.8547E-03_JPRB,4.6490E-03_JPRB,4.4611E-03_JPRB/)
7147
KBO( :, 3,48, 8) = (/&
7148
6
 & 2.3950E-04_JPRB,3.2661E-03_JPRB,4.4586E-03_JPRB,5.1091E-03_JPRB,4.5366E-03_JPRB/)
7149
KBO( :, 4,48, 8) = (/&
7150
6
 & 3.7635E-04_JPRB,4.1116E-03_JPRB,5.2534E-03_JPRB,5.7004E-03_JPRB,4.6124E-03_JPRB/)
7151
KBO( :, 5,48, 8) = (/&
7152
6
 & 5.8082E-04_JPRB,5.2884E-03_JPRB,6.3086E-03_JPRB,6.4573E-03_JPRB,4.6977E-03_JPRB/)
7153
KBO( :, 1,49, 8) = (/&
7154
6
 & 6.1993E-05_JPRB,1.7331E-03_JPRB,2.7330E-03_JPRB,3.4719E-03_JPRB,3.6111E-03_JPRB/)
7155
KBO( :, 2,49, 8) = (/&
7156
6
 & 1.0511E-04_JPRB,2.0938E-03_JPRB,3.1004E-03_JPRB,3.7836E-03_JPRB,3.6915E-03_JPRB/)
7157
KBO( :, 3,49, 8) = (/&
7158
6
 & 1.7216E-04_JPRB,2.5932E-03_JPRB,3.5917E-03_JPRB,4.1650E-03_JPRB,3.7653E-03_JPRB/)
7159
KBO( :, 4,49, 8) = (/&
7160
6
 & 2.7551E-04_JPRB,3.2829E-03_JPRB,4.2486E-03_JPRB,4.6580E-03_JPRB,3.8405E-03_JPRB/)
7161
KBO( :, 5,49, 8) = (/&
7162
6
 & 4.3301E-04_JPRB,4.2570E-03_JPRB,5.1317E-03_JPRB,5.2985E-03_JPRB,3.9263E-03_JPRB/)
7163
KBO( :, 1,50, 8) = (/&
7164
6
 & 4.2678E-05_JPRB,1.3745E-03_JPRB,2.2002E-03_JPRB,2.8212E-03_JPRB,2.9737E-03_JPRB/)
7165
KBO( :, 2,50, 8) = (/&
7166
6
 & 7.4146E-05_JPRB,1.6605E-03_JPRB,2.4974E-03_JPRB,3.0815E-03_JPRB,3.0479E-03_JPRB/)
7167
KBO( :, 3,50, 8) = (/&
7168
6
 & 1.2406E-04_JPRB,2.0639E-03_JPRB,2.8982E-03_JPRB,3.3988E-03_JPRB,3.1188E-03_JPRB/)
7169
KBO( :, 4,50, 8) = (/&
7170
6
 & 2.0253E-04_JPRB,2.6282E-03_JPRB,3.4425E-03_JPRB,3.8116E-03_JPRB,3.1913E-03_JPRB/)
7171
KBO( :, 5,50, 8) = (/&
7172
6
 & 3.2424E-04_JPRB,3.4369E-03_JPRB,4.1830E-03_JPRB,4.3547E-03_JPRB,3.2730E-03_JPRB/)
7173
KBO( :, 1,51, 8) = (/&
7174
6
 & 2.9237E-05_JPRB,1.0909E-03_JPRB,1.7714E-03_JPRB,2.2917E-03_JPRB,2.4464E-03_JPRB/)
7175
KBO( :, 2,51, 8) = (/&
7176
6
 & 5.2166E-05_JPRB,1.3176E-03_JPRB,2.0125E-03_JPRB,2.5102E-03_JPRB,2.5148E-03_JPRB/)
7177
KBO( :, 3,51, 8) = (/&
7178
6
 & 8.9091E-05_JPRB,1.6426E-03_JPRB,2.3388E-03_JPRB,2.7738E-03_JPRB,2.5806E-03_JPRB/)
7179
KBO( :, 4,51, 8) = (/&
7180
6
 & 1.4840E-04_JPRB,2.1028E-03_JPRB,2.7878E-03_JPRB,3.1176E-03_JPRB,2.6477E-03_JPRB/)
7181
KBO( :, 5,51, 8) = (/&
7182
6
 & 2.4207E-04_JPRB,2.7714E-03_JPRB,3.4063E-03_JPRB,3.5762E-03_JPRB,2.7227E-03_JPRB/)
7183
KBO( :, 1,52, 8) = (/&
7184
6
 & 1.9807E-05_JPRB,8.6538E-04_JPRB,1.4249E-03_JPRB,1.8595E-03_JPRB,2.0124E-03_JPRB/)
7185
KBO( :, 2,52, 8) = (/&
7186
6
 & 3.6322E-05_JPRB,1.0438E-03_JPRB,1.6200E-03_JPRB,2.0422E-03_JPRB,2.0750E-03_JPRB/)
7187
KBO( :, 3,52, 8) = (/&
7188
6
 & 6.3515E-05_JPRB,1.3037E-03_JPRB,1.8836E-03_JPRB,2.2603E-03_JPRB,2.1352E-03_JPRB/)
7189
KBO( :, 4,52, 8) = (/&
7190
6
 & 1.0788E-04_JPRB,1.6767E-03_JPRB,2.2517E-03_JPRB,2.5448E-03_JPRB,2.1970E-03_JPRB/)
7191
KBO( :, 5,52, 8) = (/&
7192
6
 & 1.7958E-04_JPRB,2.2260E-03_JPRB,2.7651E-03_JPRB,2.9295E-03_JPRB,2.2657E-03_JPRB/)
7193
KBO( :, 1,53, 8) = (/&
7194
6
 & 1.3242E-05_JPRB,6.8573E-04_JPRB,1.1446E-03_JPRB,1.5067E-03_JPRB,1.6550E-03_JPRB/)
7195
KBO( :, 2,53, 8) = (/&
7196
6
 & 2.5022E-05_JPRB,8.2535E-04_JPRB,1.3018E-03_JPRB,1.6587E-03_JPRB,1.7117E-03_JPRB/)
7197
KBO( :, 3,53, 8) = (/&
7198
6
 & 4.4849E-05_JPRB,1.0313E-03_JPRB,1.5135E-03_JPRB,1.8385E-03_JPRB,1.7670E-03_JPRB/)
7199
KBO( :, 4,53, 8) = (/&
7200
6
 & 7.7724E-05_JPRB,1.3321E-03_JPRB,1.8130E-03_JPRB,2.0729E-03_JPRB,1.8239E-03_JPRB/)
7201
KBO( :, 5,53, 8) = (/&
7202
6
 & 1.3199E-04_JPRB,1.7794E-03_JPRB,2.2365E-03_JPRB,2.3931E-03_JPRB,1.8874E-03_JPRB/)
7203
KBO( :, 1,54, 8) = (/&
7204
6
 & 8.9248E-06_JPRB,5.4556E-04_JPRB,9.2163E-04_JPRB,1.2225E-03_JPRB,1.3566E-03_JPRB/)
7205
KBO( :, 2,54, 8) = (/&
7206
6
 & 1.7372E-05_JPRB,6.5581E-04_JPRB,1.0492E-03_JPRB,1.3494E-03_JPRB,1.4063E-03_JPRB/)
7207
KBO( :, 3,54, 8) = (/&
7208
6
 & 3.1907E-05_JPRB,8.1979E-04_JPRB,1.2202E-03_JPRB,1.4983E-03_JPRB,1.4551E-03_JPRB/)
7209
KBO( :, 4,54, 8) = (/&
7210
6
 & 5.6506E-05_JPRB,1.0634E-03_JPRB,1.4647E-03_JPRB,1.6922E-03_JPRB,1.5046E-03_JPRB/)
7211
KBO( :, 5,54, 8) = (/&
7212
6
 & 9.7836E-05_JPRB,1.4301E-03_JPRB,1.8159E-03_JPRB,1.9597E-03_JPRB,1.5596E-03_JPRB/)
7213
KBO( :, 1,55, 8) = (/&
7214
6
 & 6.0009E-06_JPRB,4.3459E-04_JPRB,7.4215E-04_JPRB,9.9172E-04_JPRB,1.1093E-03_JPRB/)
7215
KBO( :, 2,55, 8) = (/&
7216
6
 & 1.2050E-05_JPRB,5.2184E-04_JPRB,8.4618E-04_JPRB,1.0977E-03_JPRB,1.1520E-03_JPRB/)
7217
KBO( :, 3,55, 8) = (/&
7218
6
 & 2.2697E-05_JPRB,6.5227E-04_JPRB,9.8427E-04_JPRB,1.2212E-03_JPRB,1.1941E-03_JPRB/)
7219
KBO( :, 4,55, 8) = (/&
7220
6
 & 4.1051E-05_JPRB,8.4944E-04_JPRB,1.1837E-03_JPRB,1.3815E-03_JPRB,1.2361E-03_JPRB/)
7221
KBO( :, 5,55, 8) = (/&
7222
6
 & 7.2472E-05_JPRB,1.1494E-03_JPRB,1.4743E-03_JPRB,1.6046E-03_JPRB,1.2823E-03_JPRB/)
7223
KBO( :, 1,56, 8) = (/&
7224
6
 & 3.9898E-06_JPRB,3.4589E-04_JPRB,5.9689E-04_JPRB,8.0352E-04_JPRB,9.0649E-04_JPRB/)
7225
KBO( :, 2,56, 8) = (/&
7226
6
 & 8.2750E-06_JPRB,4.1470E-04_JPRB,6.8153E-04_JPRB,8.9166E-04_JPRB,9.4301E-04_JPRB/)
7227
KBO( :, 3,56, 8) = (/&
7228
6
 & 1.6003E-05_JPRB,5.1786E-04_JPRB,7.9279E-04_JPRB,9.9410E-04_JPRB,9.7913E-04_JPRB/)
7229
KBO( :, 4,56, 8) = (/&
7230
6
 & 2.9587E-05_JPRB,6.7655E-04_JPRB,9.5450E-04_JPRB,1.1258E-03_JPRB,1.0149E-03_JPRB/)
7231
KBO( :, 5,56, 8) = (/&
7232
6
 & 5.3280E-05_JPRB,9.2055E-04_JPRB,1.1938E-03_JPRB,1.3111E-03_JPRB,1.0536E-03_JPRB/)
7233
KBO( :, 1,57, 8) = (/&
7234
6
 & 2.6173E-06_JPRB,2.7500E-04_JPRB,4.7940E-04_JPRB,6.5022E-04_JPRB,7.4014E-04_JPRB/)
7235
KBO( :, 2,57, 8) = (/&
7236
6
 & 5.6185E-06_JPRB,3.2928E-04_JPRB,5.4834E-04_JPRB,7.2338E-04_JPRB,7.7148E-04_JPRB/)
7237
KBO( :, 3,57, 8) = (/&
7238
6
 & 1.1178E-05_JPRB,4.1034E-04_JPRB,6.3758E-04_JPRB,8.0791E-04_JPRB,8.0223E-04_JPRB/)
7239
KBO( :, 4,57, 8) = (/&
7240
6
 & 2.1131E-05_JPRB,5.3714E-04_JPRB,7.6779E-04_JPRB,9.1604E-04_JPRB,8.3279E-04_JPRB/)
7241
KBO( :, 5,57, 8) = (/&
7242
6
 & 3.8855E-05_JPRB,7.3446E-04_JPRB,9.6373E-04_JPRB,1.0689E-03_JPRB,8.6527E-04_JPRB/)
7243
KBO( :, 1,58, 8) = (/&
7244
6
 & 1.7187E-06_JPRB,2.1897E-04_JPRB,3.8537E-04_JPRB,5.2636E-04_JPRB,6.0391E-04_JPRB/)
7245
KBO( :, 2,58, 8) = (/&
7246
6
 & 3.8204E-06_JPRB,2.6201E-04_JPRB,4.4157E-04_JPRB,5.8689E-04_JPRB,6.3061E-04_JPRB/)
7247
KBO( :, 3,58, 8) = (/&
7248
6
 & 7.8175E-06_JPRB,3.2596E-04_JPRB,5.1345E-04_JPRB,6.5702E-04_JPRB,6.5669E-04_JPRB/)
7249
KBO( :, 4,58, 8) = (/&
7250
6
 & 1.5128E-05_JPRB,4.2731E-04_JPRB,6.1848E-04_JPRB,7.4589E-04_JPRB,6.8257E-04_JPRB/)
7251
KBO( :, 5,58, 8) = (/&
7252
6
 & 2.8383E-05_JPRB,5.8709E-04_JPRB,7.7891E-04_JPRB,8.7185E-04_JPRB,7.0967E-04_JPRB/)
7253
KBO( :, 1,59, 8) = (/&
7254
6
 & 1.3071E-06_JPRB,1.7971E-04_JPRB,3.1713E-04_JPRB,4.3408E-04_JPRB,4.9479E-04_JPRB/)
7255
KBO( :, 2,59, 8) = (/&
7256
6
 & 2.9593E-06_JPRB,2.1590E-04_JPRB,3.6455E-04_JPRB,4.8545E-04_JPRB,5.1653E-04_JPRB/)
7257
KBO( :, 3,59, 8) = (/&
7258
6
 & 6.1606E-06_JPRB,2.7044E-04_JPRB,4.2589E-04_JPRB,5.4538E-04_JPRB,5.3752E-04_JPRB/)
7259
KBO( :, 4,59, 8) = (/&
7260
6
 & 1.2116E-05_JPRB,3.5815E-04_JPRB,5.1701E-04_JPRB,6.2252E-04_JPRB,5.5854E-04_JPRB/)
7261
KBO( :, 5,59, 8) = (/&
7262
6
 & 2.3132E-05_JPRB,4.9905E-04_JPRB,6.5830E-04_JPRB,7.3365E-04_JPRB,5.8023E-04_JPRB/)
7263
KBO( :, 1,13, 9) = (/&
7264
6
 & 1.6103E-01_JPRB,6.6158E-01_JPRB,1.1273E+00_JPRB,1.5637E+00_JPRB,2.0193E+00_JPRB/)
7265
KBO( :, 2,13, 9) = (/&
7266
6
 & 2.3702E-01_JPRB,7.0502E-01_JPRB,1.1597E+00_JPRB,1.5650E+00_JPRB,1.9887E+00_JPRB/)
7267
KBO( :, 3,13, 9) = (/&
7268
6
 & 3.3165E-01_JPRB,7.5350E-01_JPRB,1.1971E+00_JPRB,1.5759E+00_JPRB,1.9602E+00_JPRB/)
7269
KBO( :, 4,13, 9) = (/&
7270
6
 & 4.4557E-01_JPRB,8.0998E-01_JPRB,1.2356E+00_JPRB,1.5909E+00_JPRB,1.9329E+00_JPRB/)
7271
KBO( :, 5,13, 9) = (/&
7272
6
 & 5.7859E-01_JPRB,8.7605E-01_JPRB,1.2746E+00_JPRB,1.6061E+00_JPRB,1.9056E+00_JPRB/)
7273
KBO( :, 1,14, 9) = (/&
7274
6
 & 1.4761E-01_JPRB,6.9347E-01_JPRB,1.1794E+00_JPRB,1.6262E+00_JPRB,2.0952E+00_JPRB/)
7275
KBO( :, 2,14, 9) = (/&
7276
6
 & 2.1664E-01_JPRB,7.3539E-01_JPRB,1.2185E+00_JPRB,1.6328E+00_JPRB,2.0656E+00_JPRB/)
7277
KBO( :, 3,14, 9) = (/&
7278
6
 & 3.0271E-01_JPRB,7.8091E-01_JPRB,1.2580E+00_JPRB,1.6489E+00_JPRB,2.0363E+00_JPRB/)
7279
KBO( :, 4,14, 9) = (/&
7280
6
 & 4.0599E-01_JPRB,8.3259E-01_JPRB,1.2961E+00_JPRB,1.6672E+00_JPRB,2.0067E+00_JPRB/)
7281
KBO( :, 5,14, 9) = (/&
7282
6
 & 5.2635E-01_JPRB,8.9136E-01_JPRB,1.3335E+00_JPRB,1.6865E+00_JPRB,1.9784E+00_JPRB/)
7283
KBO( :, 1,15, 9) = (/&
7284
6
 & 1.3457E-01_JPRB,7.2100E-01_JPRB,1.2219E+00_JPRB,1.6745E+00_JPRB,2.1504E+00_JPRB/)
7285
KBO( :, 2,15, 9) = (/&
7286
6
 & 1.9694E-01_JPRB,7.6310E-01_JPRB,1.2659E+00_JPRB,1.6872E+00_JPRB,2.1231E+00_JPRB/)
7287
KBO( :, 3,15, 9) = (/&
7288
6
 & 2.7439E-01_JPRB,8.0691E-01_JPRB,1.3081E+00_JPRB,1.7082E+00_JPRB,2.0944E+00_JPRB/)
7289
KBO( :, 4,15, 9) = (/&
7290
6
 & 3.6719E-01_JPRB,8.5456E-01_JPRB,1.3474E+00_JPRB,1.7304E+00_JPRB,2.0661E+00_JPRB/)
7291
KBO( :, 5,15, 9) = (/&
7292
6
 & 4.7561E-01_JPRB,9.0769E-01_JPRB,1.3846E+00_JPRB,1.7533E+00_JPRB,2.0378E+00_JPRB/)
7293
KBO( :, 1,16, 9) = (/&
7294
6
 & 1.2205E-01_JPRB,7.4077E-01_JPRB,1.2541E+00_JPRB,1.7073E+00_JPRB,2.1827E+00_JPRB/)
7295
7296
1
IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART24',1,ZHOOK_HANDLE)
7297
1
END SUBROUTINE PART24
7298
7299
7300
1
SUBROUTINE PART25
7301
7302
REAL(KIND=JPRB) :: ZHOOK_HANDLE
7303
1
IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART25',0,ZHOOK_HANDLE)
7304
7305
7306
KBO( :, 2,16, 9) = (/&
7307
6
 & 1.7791E-01_JPRB,7.8396E-01_JPRB,1.3002E+00_JPRB,1.7270E+00_JPRB,2.1581E+00_JPRB/)
7308
KBO( :, 3,16, 9) = (/&
7309
6
 & 2.4715E-01_JPRB,8.2834E-01_JPRB,1.3436E+00_JPRB,1.7521E+00_JPRB,2.1327E+00_JPRB/)
7310
KBO( :, 4,16, 9) = (/&
7311
6
 & 3.3034E-01_JPRB,8.7418E-01_JPRB,1.3847E+00_JPRB,1.7782E+00_JPRB,2.1067E+00_JPRB/)
7312
KBO( :, 5,16, 9) = (/&
7313
6
 & 4.2786E-01_JPRB,9.2279E-01_JPRB,1.4244E+00_JPRB,1.8037E+00_JPRB,2.0808E+00_JPRB/)
7314
KBO( :, 1,17, 9) = (/&
7315
6
 & 1.0982E-01_JPRB,7.5143E-01_JPRB,1.2725E+00_JPRB,1.7242E+00_JPRB,2.1909E+00_JPRB/)
7316
KBO( :, 2,17, 9) = (/&
7317
6
 & 1.5953E-01_JPRB,7.9549E-01_JPRB,1.3193E+00_JPRB,1.7501E+00_JPRB,2.1703E+00_JPRB/)
7318
KBO( :, 3,17, 9) = (/&
7319
6
 & 2.2127E-01_JPRB,8.4054E-01_JPRB,1.3636E+00_JPRB,1.7793E+00_JPRB,2.1486E+00_JPRB/)
7320
KBO( :, 4,17, 9) = (/&
7321
6
 & 2.9584E-01_JPRB,8.8682E-01_JPRB,1.4059E+00_JPRB,1.8091E+00_JPRB,2.1266E+00_JPRB/)
7322
KBO( :, 5,17, 9) = (/&
7323
6
 & 3.8385E-01_JPRB,9.3422E-01_JPRB,1.4466E+00_JPRB,1.8364E+00_JPRB,2.1039E+00_JPRB/)
7324
KBO( :, 1,18, 9) = (/&
7325
6
 & 9.8329E-02_JPRB,7.5240E-01_JPRB,1.2756E+00_JPRB,1.7244E+00_JPRB,2.1757E+00_JPRB/)
7326
KBO( :, 2,18, 9) = (/&
7327
6
 & 1.4251E-01_JPRB,7.9706E-01_JPRB,1.3228E+00_JPRB,1.7556E+00_JPRB,2.1597E+00_JPRB/)
7328
KBO( :, 3,18, 9) = (/&
7329
6
 & 1.9773E-01_JPRB,8.4264E-01_JPRB,1.3673E+00_JPRB,1.7888E+00_JPRB,2.1427E+00_JPRB/)
7330
KBO( :, 4,18, 9) = (/&
7331
6
 & 2.6482E-01_JPRB,8.8901E-01_JPRB,1.4101E+00_JPRB,1.8204E+00_JPRB,2.1245E+00_JPRB/)
7332
KBO( :, 5,18, 9) = (/&
7333
6
 & 3.4448E-01_JPRB,9.3666E-01_JPRB,1.4514E+00_JPRB,1.8483E+00_JPRB,2.1059E+00_JPRB/)
7334
KBO( :, 1,19, 9) = (/&
7335
6
 & 8.7815E-02_JPRB,7.4384E-01_JPRB,1.2637E+00_JPRB,1.7067E+00_JPRB,2.1362E+00_JPRB/)
7336
KBO( :, 2,19, 9) = (/&
7337
6
 & 1.2725E-01_JPRB,7.8828E-01_JPRB,1.3102E+00_JPRB,1.7428E+00_JPRB,2.1257E+00_JPRB/)
7338
KBO( :, 3,19, 9) = (/&
7339
6
 & 1.7679E-01_JPRB,8.3379E-01_JPRB,1.3547E+00_JPRB,1.7786E+00_JPRB,2.1135E+00_JPRB/)
7340
KBO( :, 4,19, 9) = (/&
7341
6
 & 2.3728E-01_JPRB,8.8010E-01_JPRB,1.3977E+00_JPRB,1.8108E+00_JPRB,2.0991E+00_JPRB/)
7342
KBO( :, 5,19, 9) = (/&
7343
6
 & 3.0895E-01_JPRB,9.2824E-01_JPRB,1.4393E+00_JPRB,1.8391E+00_JPRB,2.0837E+00_JPRB/)
7344
KBO( :, 1,20, 9) = (/&
7345
6
 & 7.9041E-02_JPRB,7.2700E-01_JPRB,1.2374E+00_JPRB,1.6719E+00_JPRB,2.0747E+00_JPRB/)
7346
KBO( :, 2,20, 9) = (/&
7347
6
 & 1.1454E-01_JPRB,7.7070E-01_JPRB,1.2831E+00_JPRB,1.7109E+00_JPRB,2.0685E+00_JPRB/)
7348
KBO( :, 3,20, 9) = (/&
7349
6
 & 1.5930E-01_JPRB,8.1568E-01_JPRB,1.3273E+00_JPRB,1.7472E+00_JPRB,2.0604E+00_JPRB/)
7350
KBO( :, 4,20, 9) = (/&
7351
6
 & 2.1376E-01_JPRB,8.6194E-01_JPRB,1.3702E+00_JPRB,1.7799E+00_JPRB,2.0509E+00_JPRB/)
7352
KBO( :, 5,20, 9) = (/&
7353
6
 & 2.7842E-01_JPRB,9.1045E-01_JPRB,1.4124E+00_JPRB,1.8091E+00_JPRB,2.0408E+00_JPRB/)
7354
KBO( :, 1,21, 9) = (/&
7355
6
 & 7.1445E-02_JPRB,7.0244E-01_JPRB,1.1970E+00_JPRB,1.6199E+00_JPRB,1.9923E+00_JPRB/)
7356
KBO( :, 2,21, 9) = (/&
7357
6
 & 1.0353E-01_JPRB,7.4522E-01_JPRB,1.2418E+00_JPRB,1.6596E+00_JPRB,1.9909E+00_JPRB/)
7358
KBO( :, 3,21, 9) = (/&
7359
6
 & 1.4384E-01_JPRB,7.8934E-01_JPRB,1.2854E+00_JPRB,1.6962E+00_JPRB,1.9875E+00_JPRB/)
7360
KBO( :, 4,21, 9) = (/&
7361
6
 & 1.9307E-01_JPRB,8.3547E-01_JPRB,1.3286E+00_JPRB,1.7297E+00_JPRB,1.9830E+00_JPRB/)
7362
KBO( :, 5,21, 9) = (/&
7363
6
 & 2.5151E-01_JPRB,8.8443E-01_JPRB,1.3716E+00_JPRB,1.7608E+00_JPRB,1.9785E+00_JPRB/)
7364
KBO( :, 1,22, 9) = (/&
7365
6
 & 6.6536E-02_JPRB,6.7362E-01_JPRB,1.1476E+00_JPRB,1.5553E+00_JPRB,1.8930E+00_JPRB/)
7366
KBO( :, 2,22, 9) = (/&
7367
6
 & 9.5961E-02_JPRB,7.1546E-01_JPRB,1.1915E+00_JPRB,1.5946E+00_JPRB,1.8960E+00_JPRB/)
7368
KBO( :, 3,22, 9) = (/&
7369
6
 & 1.3293E-01_JPRB,7.5906E-01_JPRB,1.2350E+00_JPRB,1.6314E+00_JPRB,1.8977E+00_JPRB/)
7370
KBO( :, 4,22, 9) = (/&
7371
6
 & 1.7791E-01_JPRB,8.0536E-01_JPRB,1.2788E+00_JPRB,1.6663E+00_JPRB,1.8991E+00_JPRB/)
7372
KBO( :, 5,22, 9) = (/&
7373
6
 & 2.3124E-01_JPRB,8.5502E-01_JPRB,1.3230E+00_JPRB,1.6998E+00_JPRB,1.9008E+00_JPRB/)
7374
KBO( :, 1,23, 9) = (/&
7375
6
 & 6.2130E-02_JPRB,6.3989E-01_JPRB,1.0889E+00_JPRB,1.4764E+00_JPRB,1.7800E+00_JPRB/)
7376
KBO( :, 2,23, 9) = (/&
7377
6
 & 8.9203E-02_JPRB,6.8080E-01_JPRB,1.1324E+00_JPRB,1.5163E+00_JPRB,1.7885E+00_JPRB/)
7378
KBO( :, 3,23, 9) = (/&
7379
6
 & 1.2310E-01_JPRB,7.2420E-01_JPRB,1.1763E+00_JPRB,1.5547E+00_JPRB,1.7963E+00_JPRB/)
7380
KBO( :, 4,23, 9) = (/&
7381
6
 & 1.6423E-01_JPRB,7.7098E-01_JPRB,1.2210E+00_JPRB,1.5918E+00_JPRB,1.8040E+00_JPRB/)
7382
KBO( :, 5,23, 9) = (/&
7383
6
 & 2.1277E-01_JPRB,8.2154E-01_JPRB,1.2673E+00_JPRB,1.6285E+00_JPRB,1.8132E+00_JPRB/)
7384
KBO( :, 1,24, 9) = (/&
7385
6
 & 5.8273E-02_JPRB,6.0306E-01_JPRB,1.0238E+00_JPRB,1.3884E+00_JPRB,1.6590E+00_JPRB/)
7386
KBO( :, 2,24, 9) = (/&
7387
6
 & 8.3232E-02_JPRB,6.4338E-01_JPRB,1.0676E+00_JPRB,1.4297E+00_JPRB,1.6731E+00_JPRB/)
7388
KBO( :, 3,24, 9) = (/&
7389
6
 & 1.1427E-01_JPRB,6.8692E-01_JPRB,1.1126E+00_JPRB,1.4703E+00_JPRB,1.6874E+00_JPRB/)
7390
KBO( :, 4,24, 9) = (/&
7391
6
 & 1.5163E-01_JPRB,7.3448E-01_JPRB,1.1591E+00_JPRB,1.5108E+00_JPRB,1.7035E+00_JPRB/)
7392
KBO( :, 5,24, 9) = (/&
7393
6
 & 1.9552E-01_JPRB,7.8610E-01_JPRB,1.2077E+00_JPRB,1.5519E+00_JPRB,1.7219E+00_JPRB/)
7394
KBO( :, 1,25, 9) = (/&
7395
6
 & 5.4812E-02_JPRB,5.6477E-01_JPRB,9.5569E-01_JPRB,1.2954E+00_JPRB,1.5347E+00_JPRB/)
7396
KBO( :, 2,25, 9) = (/&
7397
6
 & 7.7748E-02_JPRB,6.0521E-01_JPRB,1.0005E+00_JPRB,1.3386E+00_JPRB,1.5551E+00_JPRB/)
7398
KBO( :, 3,25, 9) = (/&
7399
6
 & 1.0600E-01_JPRB,6.4947E-01_JPRB,1.0471E+00_JPRB,1.3828E+00_JPRB,1.5779E+00_JPRB/)
7400
KBO( :, 4,25, 9) = (/&
7401
6
 & 1.3990E-01_JPRB,6.9799E-01_JPRB,1.0963E+00_JPRB,1.4282E+00_JPRB,1.6034E+00_JPRB/)
7402
KBO( :, 5,25, 9) = (/&
7403
6
 & 1.7983E-01_JPRB,7.5057E-01_JPRB,1.1486E+00_JPRB,1.4751E+00_JPRB,1.6307E+00_JPRB/)
7404
KBO( :, 1,26, 9) = (/&
7405
6
 & 5.1716E-02_JPRB,5.2713E-01_JPRB,8.8788E-01_JPRB,1.2018E+00_JPRB,1.4126E+00_JPRB/)
7406
KBO( :, 2,26, 9) = (/&
7407
6
 & 7.2684E-02_JPRB,5.6826E-01_JPRB,9.3427E-01_JPRB,1.2488E+00_JPRB,1.4411E+00_JPRB/)
7408
KBO( :, 3,26, 9) = (/&
7409
6
 & 9.8449E-02_JPRB,6.1372E-01_JPRB,9.8375E-01_JPRB,1.2977E+00_JPRB,1.4727E+00_JPRB/)
7410
KBO( :, 4,26, 9) = (/&
7411
6
 & 1.2939E-01_JPRB,6.6352E-01_JPRB,1.0365E+00_JPRB,1.3486E+00_JPRB,1.5064E+00_JPRB/)
7412
KBO( :, 5,26, 9) = (/&
7413
6
 & 1.6591E-01_JPRB,7.1727E-01_JPRB,1.0930E+00_JPRB,1.4010E+00_JPRB,1.5406E+00_JPRB/)
7414
KBO( :, 1,27, 9) = (/&
7415
6
 & 4.8584E-02_JPRB,4.9097E-01_JPRB,8.2256E-01_JPRB,1.1121E+00_JPRB,1.2977E+00_JPRB/)
7416
KBO( :, 2,27, 9) = (/&
7417
6
 & 6.7759E-02_JPRB,5.3335E-01_JPRB,8.7159E-01_JPRB,1.1633E+00_JPRB,1.3342E+00_JPRB/)
7418
KBO( :, 3,27, 9) = (/&
7419
6
 & 9.1281E-02_JPRB,5.8032E-01_JPRB,9.2435E-01_JPRB,1.2172E+00_JPRB,1.3733E+00_JPRB/)
7420
KBO( :, 4,27, 9) = (/&
7421
6
 & 1.1958E-01_JPRB,6.3161E-01_JPRB,9.8117E-01_JPRB,1.2730E+00_JPRB,1.4135E+00_JPRB/)
7422
KBO( :, 5,27, 9) = (/&
7423
6
 & 1.5306E-01_JPRB,6.8640E-01_JPRB,1.0413E+00_JPRB,1.3298E+00_JPRB,1.4532E+00_JPRB/)
7424
KBO( :, 1,28, 9) = (/&
7425
6
 & 4.5513E-02_JPRB,4.5771E-01_JPRB,7.6221E-01_JPRB,1.0285E+00_JPRB,1.1920E+00_JPRB/)
7426
KBO( :, 2,28, 9) = (/&
7427
6
 & 6.3043E-02_JPRB,5.0158E-01_JPRB,8.1400E-01_JPRB,1.0840E+00_JPRB,1.2355E+00_JPRB/)
7428
KBO( :, 3,28, 9) = (/&
7429
6
 & 8.4577E-02_JPRB,5.5008E-01_JPRB,8.7020E-01_JPRB,1.1421E+00_JPRB,1.2807E+00_JPRB/)
7430
KBO( :, 4,28, 9) = (/&
7431
6
 & 1.1056E-01_JPRB,6.0266E-01_JPRB,9.3037E-01_JPRB,1.2019E+00_JPRB,1.3261E+00_JPRB/)
7432
KBO( :, 5,28, 9) = (/&
7433
6
 & 1.4146E-01_JPRB,6.5861E-01_JPRB,9.9361E-01_JPRB,1.2630E+00_JPRB,1.3707E+00_JPRB/)
7434
KBO( :, 1,29, 9) = (/&
7435
6
 & 4.2634E-02_JPRB,4.2840E-01_JPRB,7.0804E-01_JPRB,9.5295E-01_JPRB,1.0976E+00_JPRB/)
7436
KBO( :, 2,29, 9) = (/&
7437
6
 & 5.8749E-02_JPRB,4.7373E-01_JPRB,7.6274E-01_JPRB,1.0122E+00_JPRB,1.1466E+00_JPRB/)
7438
KBO( :, 3,29, 9) = (/&
7439
6
 & 7.8594E-02_JPRB,5.2372E-01_JPRB,8.2196E-01_JPRB,1.0740E+00_JPRB,1.1968E+00_JPRB/)
7440
KBO( :, 4,29, 9) = (/&
7441
6
 & 1.0258E-01_JPRB,5.7741E-01_JPRB,8.8498E-01_JPRB,1.1377E+00_JPRB,1.2469E+00_JPRB/)
7442
KBO( :, 5,29, 9) = (/&
7443
6
 & 1.3125E-01_JPRB,6.3414E-01_JPRB,9.5133E-01_JPRB,1.2027E+00_JPRB,1.2962E+00_JPRB/)
7444
KBO( :, 1,30, 9) = (/&
7445
6
 & 3.9899E-02_JPRB,4.0291E-01_JPRB,6.6036E-01_JPRB,8.8584E-01_JPRB,1.0137E+00_JPRB/)
7446
KBO( :, 2,30, 9) = (/&
7447
6
 & 5.4774E-02_JPRB,4.4971E-01_JPRB,7.1779E-01_JPRB,9.4836E-01_JPRB,1.0674E+00_JPRB/)
7448
KBO( :, 3,30, 9) = (/&
7449
6
 & 7.3108E-02_JPRB,5.0075E-01_JPRB,7.7974E-01_JPRB,1.0137E+00_JPRB,1.1221E+00_JPRB/)
7450
KBO( :, 4,30, 9) = (/&
7451
6
 & 9.5439E-02_JPRB,5.5545E-01_JPRB,8.4558E-01_JPRB,1.0809E+00_JPRB,1.1769E+00_JPRB/)
7452
KBO( :, 5,30, 9) = (/&
7453
6
 & 1.2214E-01_JPRB,6.1274E-01_JPRB,9.1443E-01_JPRB,1.1496E+00_JPRB,1.2307E+00_JPRB/)
7454
KBO( :, 1,31, 9) = (/&
7455
6
 & 3.7399E-02_JPRB,3.8153E-01_JPRB,6.1964E-01_JPRB,8.2749E-01_JPRB,9.4112E-01_JPRB/)
7456
KBO( :, 2,31, 9) = (/&
7457
6
 & 5.1170E-02_JPRB,4.2947E-01_JPRB,6.7967E-01_JPRB,8.9330E-01_JPRB,9.9936E-01_JPRB/)
7458
KBO( :, 3,31, 9) = (/&
7459
6
 & 6.8267E-02_JPRB,4.8157E-01_JPRB,7.4418E-01_JPRB,9.6186E-01_JPRB,1.0590E+00_JPRB/)
7460
KBO( :, 4,31, 9) = (/&
7461
6
 & 8.9119E-02_JPRB,5.3688E-01_JPRB,8.1247E-01_JPRB,1.0326E+00_JPRB,1.1185E+00_JPRB/)
7462
KBO( :, 5,31, 9) = (/&
7463
6
 & 1.1420E-01_JPRB,5.9468E-01_JPRB,8.8352E-01_JPRB,1.1045E+00_JPRB,1.1767E+00_JPRB/)
7464
KBO( :, 1,32, 9) = (/&
7465
6
 & 3.5118E-02_JPRB,3.6406E-01_JPRB,5.8571E-01_JPRB,7.7819E-01_JPRB,8.7995E-01_JPRB/)
7466
KBO( :, 2,32, 9) = (/&
7467
6
 & 4.7970E-02_JPRB,4.1299E-01_JPRB,6.4823E-01_JPRB,8.4697E-01_JPRB,9.4296E-01_JPRB/)
7468
KBO( :, 3,32, 9) = (/&
7469
6
 & 6.4004E-02_JPRB,4.6590E-01_JPRB,7.1516E-01_JPRB,9.1892E-01_JPRB,1.0071E+00_JPRB/)
7470
KBO( :, 4,32, 9) = (/&
7471
6
 & 8.3615E-02_JPRB,5.2189E-01_JPRB,7.8583E-01_JPRB,9.9290E-01_JPRB,1.0709E+00_JPRB/)
7472
KBO( :, 5,32, 9) = (/&
7473
6
 & 1.0720E-01_JPRB,5.8002E-01_JPRB,8.5872E-01_JPRB,1.0680E+00_JPRB,1.1336E+00_JPRB/)
7474
KBO( :, 1,33, 9) = (/&
7475
6
 & 3.3077E-02_JPRB,3.5017E-01_JPRB,5.5838E-01_JPRB,7.3762E-01_JPRB,8.3032E-01_JPRB/)
7476
KBO( :, 2,33, 9) = (/&
7477
6
 & 4.5163E-02_JPRB,4.0001E-01_JPRB,6.2312E-01_JPRB,8.0956E-01_JPRB,8.9776E-01_JPRB/)
7478
KBO( :, 3,33, 9) = (/&
7479
6
 & 6.0263E-02_JPRB,4.5365E-01_JPRB,6.9243E-01_JPRB,8.8459E-01_JPRB,9.6617E-01_JPRB/)
7480
KBO( :, 4,33, 9) = (/&
7481
6
 & 7.8793E-02_JPRB,5.1005E-01_JPRB,7.6498E-01_JPRB,9.6177E-01_JPRB,1.0343E+00_JPRB/)
7482
KBO( :, 5,33, 9) = (/&
7483
6
 & 1.0108E-01_JPRB,5.6875E-01_JPRB,8.3998E-01_JPRB,1.0396E+00_JPRB,1.1011E+00_JPRB/)
7484
KBO( :, 1,34, 9) = (/&
7485
6
 & 3.0915E-02_JPRB,3.3781E-01_JPRB,5.3486E-01_JPRB,7.0304E-01_JPRB,7.8832E-01_JPRB/)
7486
KBO( :, 2,34, 9) = (/&
7487
6
 & 4.2252E-02_JPRB,3.8839E-01_JPRB,6.0166E-01_JPRB,7.7789E-01_JPRB,8.5967E-01_JPRB/)
7488
KBO( :, 3,34, 9) = (/&
7489
6
 & 5.6470E-02_JPRB,4.4255E-01_JPRB,6.7299E-01_JPRB,8.5584E-01_JPRB,9.3187E-01_JPRB/)
7490
KBO( :, 4,34, 9) = (/&
7491
6
 & 7.3896E-02_JPRB,4.9923E-01_JPRB,7.4727E-01_JPRB,9.3566E-01_JPRB,1.0039E+00_JPRB/)
7492
KBO( :, 5,34, 9) = (/&
7493
6
 & 9.5018E-02_JPRB,5.5848E-01_JPRB,8.2408E-01_JPRB,1.0160E+00_JPRB,1.0743E+00_JPRB/)
7494
KBO( :, 1,35, 9) = (/&
7495
6
 & 2.8132E-02_JPRB,3.2365E-01_JPRB,5.1055E-01_JPRB,6.6895E-01_JPRB,7.4864E-01_JPRB/)
7496
KBO( :, 2,35, 9) = (/&
7497
6
 & 3.8581E-02_JPRB,3.7456E-01_JPRB,5.7889E-01_JPRB,7.4628E-01_JPRB,8.2332E-01_JPRB/)
7498
KBO( :, 3,35, 9) = (/&
7499
6
 & 5.1721E-02_JPRB,4.2888E-01_JPRB,6.5160E-01_JPRB,8.2665E-01_JPRB,8.9938E-01_JPRB/)
7500
KBO( :, 4,35, 9) = (/&
7501
6
 & 6.7950E-02_JPRB,4.8574E-01_JPRB,7.2738E-01_JPRB,9.0865E-01_JPRB,9.7493E-01_JPRB/)
7502
KBO( :, 5,35, 9) = (/&
7503
6
 & 8.7661E-02_JPRB,5.4539E-01_JPRB,8.0566E-01_JPRB,9.9133E-01_JPRB,1.0487E+00_JPRB/)
7504
KBO( :, 1,36, 9) = (/&
7505
6
 & 2.4794E-02_JPRB,3.0684E-01_JPRB,4.8374E-01_JPRB,6.3315E-01_JPRB,7.0816E-01_JPRB/)
7506
KBO( :, 2,36, 9) = (/&
7507
6
 & 3.4216E-02_JPRB,3.5764E-01_JPRB,5.5293E-01_JPRB,7.1235E-01_JPRB,7.8609E-01_JPRB/)
7508
KBO( :, 3,36, 9) = (/&
7509
6
 & 4.6142E-02_JPRB,4.1180E-01_JPRB,6.2660E-01_JPRB,7.9449E-01_JPRB,8.6552E-01_JPRB/)
7510
KBO( :, 4,36, 9) = (/&
7511
6
 & 6.0983E-02_JPRB,4.6863E-01_JPRB,7.0343E-01_JPRB,8.7846E-01_JPRB,9.4446E-01_JPRB/)
7512
KBO( :, 5,36, 9) = (/&
7513
6
 & 7.9101E-02_JPRB,5.2833E-01_JPRB,7.8277E-01_JPRB,9.6328E-01_JPRB,1.0212E+00_JPRB/)
7514
KBO( :, 1,37, 9) = (/&
7515
6
 & 2.0815E-02_JPRB,2.8513E-01_JPRB,4.5081E-01_JPRB,5.9101E-01_JPRB,6.6164E-01_JPRB/)
7516
KBO( :, 2,37, 9) = (/&
7517
6
 & 2.9022E-02_JPRB,3.3521E-01_JPRB,5.2012E-01_JPRB,6.7125E-01_JPRB,7.4211E-01_JPRB/)
7518
KBO( :, 3,37, 9) = (/&
7519
6
 & 3.9516E-02_JPRB,3.8880E-01_JPRB,5.9400E-01_JPRB,7.5469E-01_JPRB,8.2434E-01_JPRB/)
7520
KBO( :, 4,37, 9) = (/&
7521
6
 & 5.2685E-02_JPRB,4.4520E-01_JPRB,6.7131E-01_JPRB,8.4030E-01_JPRB,9.0639E-01_JPRB/)
7522
KBO( :, 5,37, 9) = (/&
7523
6
 & 6.8908E-02_JPRB,5.0450E-01_JPRB,7.5128E-01_JPRB,9.2687E-01_JPRB,9.8613E-01_JPRB/)
7524
KBO( :, 1,38, 9) = (/&
7525
6
 & 1.7440E-02_JPRB,2.6532E-01_JPRB,4.2090E-01_JPRB,5.5282E-01_JPRB,6.1999E-01_JPRB/)
7526
KBO( :, 2,38, 9) = (/&
7527
6
 & 2.4585E-02_JPRB,3.1463E-01_JPRB,4.9010E-01_JPRB,6.3385E-01_JPRB,7.0267E-01_JPRB/)
7528
KBO( :, 3,38, 9) = (/&
7529
6
 & 3.3827E-02_JPRB,3.6763E-01_JPRB,5.6406E-01_JPRB,7.1841E-01_JPRB,7.8751E-01_JPRB/)
7530
KBO( :, 4,38, 9) = (/&
7531
6
 & 4.5497E-02_JPRB,4.2358E-01_JPRB,6.4172E-01_JPRB,8.0528E-01_JPRB,8.7233E-01_JPRB/)
7532
KBO( :, 5,38, 9) = (/&
7533
6
 & 6.0061E-02_JPRB,4.8245E-01_JPRB,7.2216E-01_JPRB,8.9334E-01_JPRB,9.5488E-01_JPRB/)
7534
KBO( :, 1,39, 9) = (/&
7535
6
 & 1.4635E-02_JPRB,2.4758E-01_JPRB,3.9422E-01_JPRB,5.1882E-01_JPRB,5.8346E-01_JPRB/)
7536
KBO( :, 2,39, 9) = (/&
7537
6
 & 2.0862E-02_JPRB,2.9613E-01_JPRB,4.6317E-01_JPRB,6.0043E-01_JPRB,6.6823E-01_JPRB/)
7538
KBO( :, 3,39, 9) = (/&
7539
6
 & 2.9010E-02_JPRB,3.4853E-01_JPRB,5.3715E-01_JPRB,6.8585E-01_JPRB,7.5543E-01_JPRB/)
7540
KBO( :, 4,39, 9) = (/&
7541
6
 & 3.9392E-02_JPRB,4.0402E-01_JPRB,6.1498E-01_JPRB,7.7375E-01_JPRB,8.4272E-01_JPRB/)
7542
KBO( :, 5,39, 9) = (/&
7543
6
 & 5.2487E-02_JPRB,4.6246E-01_JPRB,6.9574E-01_JPRB,8.6309E-01_JPRB,9.2808E-01_JPRB/)
7544
KBO( :, 1,40, 9) = (/&
7545
6
 & 1.1817E-02_JPRB,2.2703E-01_JPRB,3.6362E-01_JPRB,4.8024E-01_JPRB,5.4110E-01_JPRB/)
7546
KBO( :, 2,40, 9) = (/&
7547
6
 & 1.7093E-02_JPRB,2.7438E-01_JPRB,4.3164E-01_JPRB,5.6172E-01_JPRB,6.2692E-01_JPRB/)
7548
KBO( :, 3,40, 9) = (/&
7549
6
 & 2.4086E-02_JPRB,3.2578E-01_JPRB,5.0508E-01_JPRB,6.4747E-01_JPRB,7.1559E-01_JPRB/)
7550
KBO( :, 4,40, 9) = (/&
7551
6
 & 3.3120E-02_JPRB,3.8047E-01_JPRB,5.8258E-01_JPRB,7.3604E-01_JPRB,8.0488E-01_JPRB/)
7552
KBO( :, 5,40, 9) = (/&
7553
6
 & 4.4642E-02_JPRB,4.3816E-01_JPRB,6.6329E-01_JPRB,8.2630E-01_JPRB,8.9263E-01_JPRB/)
7554
KBO( :, 1,41, 9) = (/&
7555
6
 & 9.4732E-03_JPRB,2.0772E-01_JPRB,3.3472E-01_JPRB,4.4372E-01_JPRB,5.0098E-01_JPRB/)
7556
KBO( :, 2,41, 9) = (/&
7557
6
 & 1.3924E-02_JPRB,2.5378E-01_JPRB,4.0168E-01_JPRB,5.2481E-01_JPRB,5.8738E-01_JPRB/)
7558
KBO( :, 3,41, 9) = (/&
7559
6
 & 1.9893E-02_JPRB,3.0412E-01_JPRB,4.7431E-01_JPRB,6.1058E-01_JPRB,6.7711E-01_JPRB/)
7560
KBO( :, 4,41, 9) = (/&
7561
6
 & 2.7726E-02_JPRB,3.5790E-01_JPRB,5.5133E-01_JPRB,6.9954E-01_JPRB,7.6804E-01_JPRB/)
7562
KBO( :, 5,41, 9) = (/&
7563
6
 & 3.7835E-02_JPRB,4.1479E-01_JPRB,6.3183E-01_JPRB,7.9045E-01_JPRB,8.5793E-01_JPRB/)
7564
KBO( :, 1,42, 9) = (/&
7565
6
 & 7.5682E-03_JPRB,1.9007E-01_JPRB,3.0814E-01_JPRB,4.0997E-01_JPRB,4.6395E-01_JPRB/)
7566
KBO( :, 2,42, 9) = (/&
7567
6
 & 1.1315E-02_JPRB,2.3478E-01_JPRB,3.7386E-01_JPRB,4.9039E-01_JPRB,5.5062E-01_JPRB/)
7568
KBO( :, 3,42, 9) = (/&
7569
6
 & 1.6414E-02_JPRB,2.8401E-01_JPRB,4.4556E-01_JPRB,5.7596E-01_JPRB,6.4116E-01_JPRB/)
7570
KBO( :, 4,42, 9) = (/&
7571
6
 & 2.3189E-02_JPRB,3.3687E-01_JPRB,5.2199E-01_JPRB,6.6509E-01_JPRB,7.3350E-01_JPRB/)
7572
KBO( :, 5,42, 9) = (/&
7573
6
 & 3.2053E-02_JPRB,3.9299E-01_JPRB,6.0205E-01_JPRB,7.5646E-01_JPRB,8.2526E-01_JPRB/)
7574
KBO( :, 1,43, 9) = (/&
7575
6
 & 5.8792E-03_JPRB,1.7158E-01_JPRB,2.8021E-01_JPRB,3.7439E-01_JPRB,4.2476E-01_JPRB/)
7576
KBO( :, 2,43, 9) = (/&
7577
6
 & 8.9664E-03_JPRB,2.1465E-01_JPRB,3.4423E-01_JPRB,4.5359E-01_JPRB,5.1109E-01_JPRB/)
7578
KBO( :, 3,43, 9) = (/&
7579
6
 & 1.3239E-02_JPRB,2.6247E-01_JPRB,4.1451E-01_JPRB,5.3841E-01_JPRB,6.0195E-01_JPRB/)
7580
KBO( :, 4,43, 9) = (/&
7581
6
 & 1.8999E-02_JPRB,3.1420E-01_JPRB,4.8991E-01_JPRB,6.2734E-01_JPRB,6.9535E-01_JPRB/)
7582
KBO( :, 5,43, 9) = (/&
7583
6
 & 2.6643E-02_JPRB,3.6926E-01_JPRB,5.6925E-01_JPRB,7.1886E-01_JPRB,7.8877E-01_JPRB/)
7584
KBO( :, 1,44, 9) = (/&
7585
6
 & 4.4882E-03_JPRB,1.5364E-01_JPRB,2.5283E-01_JPRB,3.3925E-01_JPRB,3.8604E-01_JPRB/)
7586
KBO( :, 2,44, 9) = (/&
7587
6
 & 6.9936E-03_JPRB,1.9487E-01_JPRB,3.1482E-01_JPRB,4.1683E-01_JPRB,4.7142E-01_JPRB/)
7588
KBO( :, 3,44, 9) = (/&
7589
6
 & 1.0532E-02_JPRB,2.4110E-01_JPRB,3.8337E-01_JPRB,5.0055E-01_JPRB,5.6226E-01_JPRB/)
7590
KBO( :, 4,44, 9) = (/&
7591
6
 & 1.5385E-02_JPRB,2.9150E-01_JPRB,4.5750E-01_JPRB,5.8891E-01_JPRB,6.5637E-01_JPRB/)
7592
KBO( :, 5,44, 9) = (/&
7593
6
 & 2.1907E-02_JPRB,3.4545E-01_JPRB,5.3592E-01_JPRB,6.8023E-01_JPRB,7.5115E-01_JPRB/)
7594
KBO( :, 1,45, 9) = (/&
7595
6
 & 3.4023E-03_JPRB,1.3718E-01_JPRB,2.2742E-01_JPRB,3.0640E-01_JPRB,3.4986E-01_JPRB/)
7596
7597
1
IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART25',1,ZHOOK_HANDLE)
7598
1
END SUBROUTINE PART25
7599
7600
7601
1
SUBROUTINE PART26
7602
7603
REAL(KIND=JPRB) :: ZHOOK_HANDLE
7604
1
IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART26',0,ZHOOK_HANDLE)
7605
7606
7607
KBO( :, 2,45, 9) = (/&
7608
6
 & 5.4211E-03_JPRB,1.7648E-01_JPRB,2.8724E-01_JPRB,3.8210E-01_JPRB,4.3396E-01_JPRB/)
7609
KBO( :, 3,45, 9) = (/&
7610
6
 & 8.3344E-03_JPRB,2.2102E-01_JPRB,3.5390E-01_JPRB,4.6443E-01_JPRB,5.2448E-01_JPRB/)
7611
KBO( :, 4,45, 9) = (/&
7612
6
 & 1.2410E-02_JPRB,2.7007E-01_JPRB,4.2657E-01_JPRB,5.5186E-01_JPRB,6.1889E-01_JPRB/)
7613
KBO( :, 5,45, 9) = (/&
7614
6
 & 1.7962E-02_JPRB,3.2284E-01_JPRB,5.0389E-01_JPRB,6.4288E-01_JPRB,7.1489E-01_JPRB/)
7615
KBO( :, 1,46, 9) = (/&
7616
6
 & 2.5298E-03_JPRB,1.2128E-01_JPRB,2.0265E-01_JPRB,2.7417E-01_JPRB,3.1426E-01_JPRB/)
7617
KBO( :, 2,46, 9) = (/&
7618
6
 & 4.1311E-03_JPRB,1.5849E-01_JPRB,2.6002E-01_JPRB,3.4751E-01_JPRB,3.9644E-01_JPRB/)
7619
KBO( :, 3,46, 9) = (/&
7620
6
 & 6.4978E-03_JPRB,2.0122E-01_JPRB,3.2453E-01_JPRB,4.2805E-01_JPRB,4.8611E-01_JPRB/)
7621
KBO( :, 4,46, 9) = (/&
7622
6
 & 9.8756E-03_JPRB,2.4871E-01_JPRB,3.9537E-01_JPRB,5.1423E-01_JPRB,5.8048E-01_JPRB/)
7623
KBO( :, 5,46, 9) = (/&
7624
6
 & 1.4561E-02_JPRB,3.0016E-01_JPRB,4.7134E-01_JPRB,6.0463E-01_JPRB,6.7732E-01_JPRB/)
7625
KBO( :, 1,47, 9) = (/&
7626
6
 & 1.8212E-03_JPRB,1.0532E-01_JPRB,1.7755E-01_JPRB,2.4129E-01_JPRB,2.7755E-01_JPRB/)
7627
KBO( :, 2,47, 9) = (/&
7628
6
 & 3.0568E-03_JPRB,1.4024E-01_JPRB,2.3198E-01_JPRB,3.1155E-01_JPRB,3.5689E-01_JPRB/)
7629
KBO( :, 3,47, 9) = (/&
7630
6
 & 4.9310E-03_JPRB,1.8078E-01_JPRB,2.9385E-01_JPRB,3.8973E-01_JPRB,4.4482E-01_JPRB/)
7631
KBO( :, 4,47, 9) = (/&
7632
6
 & 7.6712E-03_JPRB,2.2639E-01_JPRB,3.6245E-01_JPRB,4.7424E-01_JPRB,5.3854E-01_JPRB/)
7633
KBO( :, 5,47, 9) = (/&
7634
6
 & 1.1548E-02_JPRB,2.7630E-01_JPRB,4.3672E-01_JPRB,5.6347E-01_JPRB,6.3559E-01_JPRB/)
7635
KBO( :, 1,48, 9) = (/&
7636
6
 & 1.2952E-03_JPRB,9.0848E-02_JPRB,1.5447E-01_JPRB,2.1078E-01_JPRB,2.4345E-01_JPRB/)
7637
KBO( :, 2,48, 9) = (/&
7638
6
 & 2.2372E-03_JPRB,1.2337E-01_JPRB,2.0574E-01_JPRB,2.7761E-01_JPRB,3.1960E-01_JPRB/)
7639
KBO( :, 3,48, 9) = (/&
7640
6
 & 3.7056E-03_JPRB,1.6164E-01_JPRB,2.6488E-01_JPRB,3.5315E-01_JPRB,4.0534E-01_JPRB/)
7641
KBO( :, 4,48, 9) = (/&
7642
6
 & 5.9066E-03_JPRB,2.0530E-01_JPRB,3.3102E-01_JPRB,4.3559E-01_JPRB,4.9804E-01_JPRB/)
7643
KBO( :, 5,48, 9) = (/&
7644
6
 & 9.0925E-03_JPRB,2.5355E-01_JPRB,4.0335E-01_JPRB,5.2339E-01_JPRB,5.9498E-01_JPRB/)
7645
KBO( :, 1,49, 9) = (/&
7646
6
 & 9.0858E-04_JPRB,7.7773E-02_JPRB,1.3333E-01_JPRB,1.8263E-01_JPRB,2.1203E-01_JPRB/)
7647
KBO( :, 2,49, 9) = (/&
7648
6
 & 1.6178E-03_JPRB,1.0781E-01_JPRB,1.8129E-01_JPRB,2.4570E-01_JPRB,2.8465E-01_JPRB/)
7649
KBO( :, 3,49, 9) = (/&
7650
6
 & 2.7562E-03_JPRB,1.4379E-01_JPRB,2.3752E-01_JPRB,3.1823E-01_JPRB,3.6781E-01_JPRB/)
7651
KBO( :, 4,49, 9) = (/&
7652
6
 & 4.5071E-03_JPRB,1.8535E-01_JPRB,3.0106E-01_JPRB,3.9831E-01_JPRB,4.5913E-01_JPRB/)
7653
KBO( :, 5,49, 9) = (/&
7654
6
 & 7.1028E-03_JPRB,2.3184E-01_JPRB,3.7117E-01_JPRB,4.8442E-01_JPRB,5.5577E-01_JPRB/)
7655
KBO( :, 1,50, 9) = (/&
7656
6
 & 6.3845E-04_JPRB,6.6632E-02_JPRB,1.1508E-01_JPRB,1.5813E-01_JPRB,1.8420E-01_JPRB/)
7657
KBO( :, 2,50, 9) = (/&
7658
6
 & 1.1723E-03_JPRB,9.4330E-02_JPRB,1.5988E-01_JPRB,2.1752E-01_JPRB,2.5295E-01_JPRB/)
7659
KBO( :, 3,50, 9) = (/&
7660
6
 & 2.0555E-03_JPRB,1.2813E-01_JPRB,2.1319E-01_JPRB,2.8686E-01_JPRB,3.3317E-01_JPRB/)
7661
KBO( :, 4,50, 9) = (/&
7662
6
 & 3.4507E-03_JPRB,1.6762E-01_JPRB,2.7419E-01_JPRB,3.6453E-01_JPRB,4.2252E-01_JPRB/)
7663
KBO( :, 5,50, 9) = (/&
7664
6
 & 5.5676E-03_JPRB,2.1233E-01_JPRB,3.4204E-01_JPRB,4.4881E-01_JPRB,5.1834E-01_JPRB/)
7665
KBO( :, 1,51, 9) = (/&
7666
6
 & 4.4606E-04_JPRB,5.6891E-02_JPRB,9.8867E-02_JPRB,1.3627E-01_JPRB,1.5911E-01_JPRB/)
7667
KBO( :, 2,51, 9) = (/&
7668
6
 & 8.4540E-04_JPRB,8.2329E-02_JPRB,1.4056E-01_JPRB,1.9187E-01_JPRB,2.2375E-01_JPRB/)
7669
KBO( :, 3,51, 9) = (/&
7670
6
 & 1.5266E-03_JPRB,1.1393E-01_JPRB,1.9092E-01_JPRB,2.5792E-01_JPRB,3.0065E-01_JPRB/)
7671
KBO( :, 4,51, 9) = (/&
7672
6
 & 2.6330E-03_JPRB,1.5136E-01_JPRB,2.4932E-01_JPRB,3.3298E-01_JPRB,3.8756E-01_JPRB/)
7673
KBO( :, 5,51, 9) = (/&
7674
6
 & 4.3537E-03_JPRB,1.9426E-01_JPRB,3.1486E-01_JPRB,4.1517E-01_JPRB,4.8205E-01_JPRB/)
7675
KBO( :, 1,52, 9) = (/&
7676
6
 & 3.0758E-04_JPRB,4.8172E-02_JPRB,8.4225E-02_JPRB,1.1640E-01_JPRB,1.3632E-01_JPRB/)
7677
KBO( :, 2,52, 9) = (/&
7678
6
 & 6.0273E-04_JPRB,7.1379E-02_JPRB,1.2274E-01_JPRB,1.6806E-01_JPRB,1.9667E-01_JPRB/)
7679
KBO( :, 3,52, 9) = (/&
7680
6
 & 1.1225E-03_JPRB,1.0074E-01_JPRB,1.7004E-01_JPRB,2.3059E-01_JPRB,2.6996E-01_JPRB/)
7681
KBO( :, 4,52, 9) = (/&
7682
6
 & 1.9908E-03_JPRB,1.3610E-01_JPRB,2.2571E-01_JPRB,3.0271E-01_JPRB,3.5416E-01_JPRB/)
7683
KBO( :, 5,52, 9) = (/&
7684
6
 & 3.3781E-03_JPRB,1.7706E-01_JPRB,2.8879E-01_JPRB,3.8263E-01_JPRB,4.4697E-01_JPRB/)
7685
KBO( :, 1,53, 9) = (/&
7686
6
 & 2.0907E-04_JPRB,4.0394E-02_JPRB,7.1019E-02_JPRB,9.8396E-02_JPRB,1.1571E-01_JPRB/)
7687
KBO( :, 2,53, 9) = (/&
7688
6
 & 4.2389E-04_JPRB,6.1427E-02_JPRB,1.0630E-01_JPRB,1.4598E-01_JPRB,1.7164E-01_JPRB/)
7689
KBO( :, 3,53, 9) = (/&
7690
6
 & 8.1536E-04_JPRB,8.8519E-02_JPRB,1.5049E-01_JPRB,2.0480E-01_JPRB,2.4110E-01_JPRB/)
7691
KBO( :, 4,53, 9) = (/&
7692
6
 & 1.4900E-03_JPRB,1.2174E-01_JPRB,2.0325E-01_JPRB,2.7370E-01_JPRB,3.2235E-01_JPRB/)
7693
KBO( :, 5,53, 9) = (/&
7694
6
 & 2.5972E-03_JPRB,1.6068E-01_JPRB,2.6380E-01_JPRB,3.5112E-01_JPRB,4.1323E-01_JPRB/)
7695
KBO( :, 1,54, 9) = (/&
7696
6
 & 1.4322E-04_JPRB,3.4010E-02_JPRB,6.0069E-02_JPRB,8.3407E-02_JPRB,9.8018E-02_JPRB/)
7697
KBO( :, 2,54, 9) = (/&
7698
6
 & 3.0073E-04_JPRB,5.3101E-02_JPRB,9.2377E-02_JPRB,1.2719E-01_JPRB,1.4939E-01_JPRB/)
7699
KBO( :, 3,54, 9) = (/&
7700
6
 & 5.9718E-04_JPRB,7.8129E-02_JPRB,1.3368E-01_JPRB,1.8244E-01_JPRB,2.1463E-01_JPRB/)
7701
KBO( :, 4,54, 9) = (/&
7702
6
 & 1.1241E-03_JPRB,1.0934E-01_JPRB,1.8368E-01_JPRB,2.4822E-01_JPRB,2.9238E-01_JPRB/)
7703
KBO( :, 5,54, 9) = (/&
7704
6
 & 2.0131E-03_JPRB,1.4639E-01_JPRB,2.4179E-01_JPRB,3.2314E-01_JPRB,3.8050E-01_JPRB/)
7705
KBO( :, 1,55, 9) = (/&
7706
6
 & 9.7902E-05_JPRB,2.8554E-02_JPRB,5.0642E-02_JPRB,7.0457E-02_JPRB,8.2500E-02_JPRB/)
7707
KBO( :, 2,55, 9) = (/&
7708
6
 & 2.1303E-04_JPRB,4.5829E-02_JPRB,8.0130E-02_JPRB,1.1056E-01_JPRB,1.2929E-01_JPRB/)
7709
KBO( :, 3,55, 9) = (/&
7710
6
 & 4.3705E-04_JPRB,6.8906E-02_JPRB,1.1861E-01_JPRB,1.6229E-01_JPRB,1.9004E-01_JPRB/)
7711
KBO( :, 4,55, 9) = (/&
7712
6
 & 8.4778E-04_JPRB,9.8145E-02_JPRB,1.6589E-01_JPRB,2.2492E-01_JPRB,2.6385E-01_JPRB/)
7713
KBO( :, 5,55, 9) = (/&
7714
6
 & 1.5604E-03_JPRB,1.3338E-01_JPRB,2.2157E-01_JPRB,2.9717E-01_JPRB,3.4860E-01_JPRB/)
7715
KBO( :, 1,56, 9) = (/&
7716
6
 & 6.5982E-05_JPRB,2.3749E-02_JPRB,4.2283E-02_JPRB,5.8930E-02_JPRB,6.8770E-02_JPRB/)
7717
KBO( :, 2,56, 9) = (/&
7718
6
 & 1.4918E-04_JPRB,3.9269E-02_JPRB,6.8966E-02_JPRB,9.5347E-02_JPRB,1.1107E-01_JPRB/)
7719
KBO( :, 3,56, 9) = (/&
7720
6
 & 3.1651E-04_JPRB,6.0448E-02_JPRB,1.0460E-01_JPRB,1.4348E-01_JPRB,1.6725E-01_JPRB/)
7721
KBO( :, 4,56, 9) = (/&
7722
6
 & 6.3389E-04_JPRB,8.7699E-02_JPRB,1.4915E-01_JPRB,2.0282E-01_JPRB,2.3679E-01_JPRB/)
7723
KBO( :, 5,56, 9) = (/&
7724
6
 & 1.2004E-03_JPRB,1.2107E-01_JPRB,2.0225E-01_JPRB,2.7220E-01_JPRB,3.1806E-01_JPRB/)
7725
KBO( :, 1,57, 9) = (/&
7726
6
 & 4.3767E-05_JPRB,1.9535E-02_JPRB,3.4912E-02_JPRB,4.8732E-02_JPRB,5.6673E-02_JPRB/)
7727
KBO( :, 2,57, 9) = (/&
7728
6
 & 1.0316E-04_JPRB,3.3365E-02_JPRB,5.8830E-02_JPRB,8.1501E-02_JPRB,9.4580E-02_JPRB/)
7729
KBO( :, 3,57, 9) = (/&
7730
6
 & 2.2677E-04_JPRB,5.2688E-02_JPRB,9.1608E-02_JPRB,1.2597E-01_JPRB,1.4616E-01_JPRB/)
7731
KBO( :, 4,57, 9) = (/&
7732
6
 & 4.6916E-04_JPRB,7.7962E-02_JPRB,1.3338E-01_JPRB,1.8187E-01_JPRB,2.1133E-01_JPRB/)
7733
KBO( :, 5,57, 9) = (/&
7734
6
 & 9.1588E-04_JPRB,1.0942E-01_JPRB,1.8382E-01_JPRB,2.4826E-01_JPRB,2.8886E-01_JPRB/)
7735
KBO( :, 1,58, 9) = (/&
7736
6
 & 2.9014E-05_JPRB,1.6044E-02_JPRB,2.8753E-02_JPRB,4.0190E-02_JPRB,4.6551E-02_JPRB/)
7737
KBO( :, 2,58, 9) = (/&
7738
6
 & 7.1292E-05_JPRB,2.8332E-02_JPRB,5.0135E-02_JPRB,6.9583E-02_JPRB,8.0381E-02_JPRB/)
7739
KBO( :, 3,58, 9) = (/&
7740
6
 & 1.6267E-04_JPRB,4.5930E-02_JPRB,8.0232E-02_JPRB,1.1053E-01_JPRB,1.2757E-01_JPRB/)
7741
KBO( :, 4,58, 9) = (/&
7742
6
 & 3.4791E-04_JPRB,6.9359E-02_JPRB,1.1932E-01_JPRB,1.6310E-01_JPRB,1.8840E-01_JPRB/)
7743
KBO( :, 5,58, 9) = (/&
7744
6
 & 7.0018E-04_JPRB,9.8967E-02_JPRB,1.6720E-01_JPRB,2.2650E-01_JPRB,2.6195E-01_JPRB/)
7745
KBO( :, 1,59, 9) = (/&
7746
6
 & 2.2635E-05_JPRB,1.4643E-02_JPRB,2.6255E-02_JPRB,3.6697E-02_JPRB,4.2048E-02_JPRB/)
7747
KBO( :, 2,59, 9) = (/&
7748
6
 & 5.7212E-05_JPRB,2.6338E-02_JPRB,4.6664E-02_JPRB,6.4796E-02_JPRB,7.3964E-02_JPRB/)
7749
KBO( :, 3,59, 9) = (/&
7750
6
 & 1.3405E-04_JPRB,4.3265E-02_JPRB,7.5702E-02_JPRB,1.0436E-01_JPRB,1.1887E-01_JPRB/)
7751
KBO( :, 4,59, 9) = (/&
7752
6
 & 2.9326E-04_JPRB,6.5970E-02_JPRB,1.1372E-01_JPRB,1.5558E-01_JPRB,1.7711E-01_JPRB/)
7753
KBO( :, 5,59, 9) = (/&
7754
6
 & 6.0242E-04_JPRB,9.4820E-02_JPRB,1.6057E-01_JPRB,2.1777E-01_JPRB,2.4787E-01_JPRB/)
7755
KBO( :, 1,13,10) = (/&
7756
6
 & 6.7750E-01_JPRB,1.1612E+00_JPRB,1.7683E+00_JPRB,2.4833E+00_JPRB,3.2280E+00_JPRB/)
7757
KBO( :, 2,13,10) = (/&
7758
6
 & 9.8868E-01_JPRB,1.3195E+00_JPRB,1.8430E+00_JPRB,2.4544E+00_JPRB,3.1587E+00_JPRB/)
7759
KBO( :, 3,13,10) = (/&
7760
6
 & 1.3619E+00_JPRB,1.5274E+00_JPRB,1.9406E+00_JPRB,2.4411E+00_JPRB,3.1000E+00_JPRB/)
7761
KBO( :, 4,13,10) = (/&
7762
6
 & 1.7899E+00_JPRB,1.7565E+00_JPRB,2.0793E+00_JPRB,2.4696E+00_JPRB,3.0494E+00_JPRB/)
7763
KBO( :, 5,13,10) = (/&
7764
6
 & 2.2734E+00_JPRB,2.0120E+00_JPRB,2.2415E+00_JPRB,2.5072E+00_JPRB,3.0022E+00_JPRB/)
7765
KBO( :, 1,14,10) = (/&
7766
6
 & 6.6134E-01_JPRB,1.2265E+00_JPRB,1.9371E+00_JPRB,2.7275E+00_JPRB,3.5435E+00_JPRB/)
7767
KBO( :, 2,14,10) = (/&
7768
6
 & 9.5434E-01_JPRB,1.3839E+00_JPRB,2.0016E+00_JPRB,2.7009E+00_JPRB,3.4774E+00_JPRB/)
7769
KBO( :, 3,14,10) = (/&
7770
6
 & 1.3032E+00_JPRB,1.5702E+00_JPRB,2.0959E+00_JPRB,2.6930E+00_JPRB,3.4197E+00_JPRB/)
7771
KBO( :, 4,14,10) = (/&
7772
6
 & 1.7103E+00_JPRB,1.7846E+00_JPRB,2.2135E+00_JPRB,2.7227E+00_JPRB,3.3624E+00_JPRB/)
7773
KBO( :, 5,14,10) = (/&
7774
6
 & 2.1701E+00_JPRB,2.0313E+00_JPRB,2.3489E+00_JPRB,2.7404E+00_JPRB,3.3020E+00_JPRB/)
7775
KBO( :, 1,15,10) = (/&
7776
6
 & 6.3051E-01_JPRB,1.3065E+00_JPRB,2.1302E+00_JPRB,2.9787E+00_JPRB,3.8647E+00_JPRB/)
7777
KBO( :, 2,15,10) = (/&
7778
6
 & 9.0166E-01_JPRB,1.4415E+00_JPRB,2.2062E+00_JPRB,2.9568E+00_JPRB,3.8040E+00_JPRB/)
7779
KBO( :, 3,15,10) = (/&
7780
6
 & 1.2283E+00_JPRB,1.6099E+00_JPRB,2.2945E+00_JPRB,2.9614E+00_JPRB,3.7464E+00_JPRB/)
7781
KBO( :, 4,15,10) = (/&
7782
6
 & 1.6076E+00_JPRB,1.8076E+00_JPRB,2.3898E+00_JPRB,2.9892E+00_JPRB,3.6813E+00_JPRB/)
7783
KBO( :, 5,15,10) = (/&
7784
6
 & 2.0350E+00_JPRB,2.0302E+00_JPRB,2.4952E+00_JPRB,3.0078E+00_JPRB,3.6149E+00_JPRB/)
7785
KBO( :, 1,16,10) = (/&
7786
6
 & 5.8908E-01_JPRB,1.4179E+00_JPRB,2.3250E+00_JPRB,3.2386E+00_JPRB,4.2028E+00_JPRB/)
7787
KBO( :, 2,16,10) = (/&
7788
6
 & 8.3922E-01_JPRB,1.5233E+00_JPRB,2.4132E+00_JPRB,3.2198E+00_JPRB,4.1391E+00_JPRB/)
7789
KBO( :, 3,16,10) = (/&
7790
6
 & 1.1390E+00_JPRB,1.6562E+00_JPRB,2.5083E+00_JPRB,3.2400E+00_JPRB,4.0764E+00_JPRB/)
7791
KBO( :, 4,16,10) = (/&
7792
6
 & 1.4867E+00_JPRB,1.8239E+00_JPRB,2.5939E+00_JPRB,3.2704E+00_JPRB,4.0090E+00_JPRB/)
7793
KBO( :, 5,16,10) = (/&
7794
6
 & 1.8763E+00_JPRB,2.0203E+00_JPRB,2.6728E+00_JPRB,3.3036E+00_JPRB,3.9360E+00_JPRB/)
7795
KBO( :, 1,17,10) = (/&
7796
6
 & 5.4248E-01_JPRB,1.5341E+00_JPRB,2.5200E+00_JPRB,3.4785E+00_JPRB,4.5198E+00_JPRB/)
7797
KBO( :, 2,17,10) = (/&
7798
6
 & 7.6928E-01_JPRB,1.6341E+00_JPRB,2.6202E+00_JPRB,3.4798E+00_JPRB,4.4583E+00_JPRB/)
7799
KBO( :, 3,17,10) = (/&
7800
6
 & 1.0404E+00_JPRB,1.7374E+00_JPRB,2.7194E+00_JPRB,3.5099E+00_JPRB,4.3924E+00_JPRB/)
7801
KBO( :, 4,17,10) = (/&
7802
6
 & 1.3522E+00_JPRB,1.8611E+00_JPRB,2.8021E+00_JPRB,3.5422E+00_JPRB,4.3166E+00_JPRB/)
7803
KBO( :, 5,17,10) = (/&
7804
6
 & 1.7001E+00_JPRB,2.0150E+00_JPRB,2.8795E+00_JPRB,3.5848E+00_JPRB,4.2409E+00_JPRB/)
7805
KBO( :, 1,18,10) = (/&
7806
6
 & 4.9348E-01_JPRB,1.6382E+00_JPRB,2.7119E+00_JPRB,3.6984E+00_JPRB,4.7971E+00_JPRB/)
7807
KBO( :, 2,18,10) = (/&
7808
6
 & 6.9669E-01_JPRB,1.7374E+00_JPRB,2.8139E+00_JPRB,3.7221E+00_JPRB,4.7361E+00_JPRB/)
7809
KBO( :, 3,18,10) = (/&
7810
6
 & 9.3760E-01_JPRB,1.8373E+00_JPRB,2.9117E+00_JPRB,3.7521E+00_JPRB,4.6633E+00_JPRB/)
7811
KBO( :, 4,18,10) = (/&
7812
6
 & 1.2130E+00_JPRB,1.9403E+00_JPRB,3.0001E+00_JPRB,3.7974E+00_JPRB,4.5895E+00_JPRB/)
7813
KBO( :, 5,18,10) = (/&
7814
6
 & 1.5215E+00_JPRB,2.0549E+00_JPRB,3.0821E+00_JPRB,3.8475E+00_JPRB,4.5159E+00_JPRB/)
7815
KBO( :, 1,19,10) = (/&
7816
6
 & 4.4294E-01_JPRB,1.7294E+00_JPRB,2.8772E+00_JPRB,3.8900E+00_JPRB,5.0246E+00_JPRB/)
7817
KBO( :, 2,19,10) = (/&
7818
6
 & 6.2191E-01_JPRB,1.8298E+00_JPRB,2.9845E+00_JPRB,3.9195E+00_JPRB,4.9572E+00_JPRB/)
7819
KBO( :, 3,19,10) = (/&
7820
6
 & 8.3280E-01_JPRB,1.9296E+00_JPRB,3.0814E+00_JPRB,3.9651E+00_JPRB,4.8890E+00_JPRB/)
7821
KBO( :, 4,19,10) = (/&
7822
6
 & 1.0758E+00_JPRB,2.0307E+00_JPRB,3.1709E+00_JPRB,4.0288E+00_JPRB,4.8272E+00_JPRB/)
7823
KBO( :, 5,19,10) = (/&
7824
6
 & 1.3553E+00_JPRB,2.1313E+00_JPRB,3.2530E+00_JPRB,4.0885E+00_JPRB,4.7625E+00_JPRB/)
7825
KBO( :, 1,20,10) = (/&
7826
6
 & 3.9571E-01_JPRB,1.8051E+00_JPRB,3.0095E+00_JPRB,4.0443E+00_JPRB,5.1864E+00_JPRB/)
7827
KBO( :, 2,20,10) = (/&
7828
6
 & 5.5188E-01_JPRB,1.9076E+00_JPRB,3.1223E+00_JPRB,4.0868E+00_JPRB,5.1320E+00_JPRB/)
7829
KBO( :, 3,20,10) = (/&
7830
6
 & 7.3749E-01_JPRB,2.0075E+00_JPRB,3.2244E+00_JPRB,4.1593E+00_JPRB,5.0769E+00_JPRB/)
7831
KBO( :, 4,20,10) = (/&
7832
6
 & 9.5721E-01_JPRB,2.1096E+00_JPRB,3.3164E+00_JPRB,4.2324E+00_JPRB,5.0165E+00_JPRB/)
7833
KBO( :, 5,20,10) = (/&
7834
6
 & 1.2100E+00_JPRB,2.2109E+00_JPRB,3.3994E+00_JPRB,4.2966E+00_JPRB,4.9507E+00_JPRB/)
7835
KBO( :, 1,21,10) = (/&
7836
6
 & 3.5072E-01_JPRB,1.8556E+00_JPRB,3.1080E+00_JPRB,4.1542E+00_JPRB,5.2872E+00_JPRB/)
7837
KBO( :, 2,21,10) = (/&
7838
6
 & 4.8766E-01_JPRB,1.9607E+00_JPRB,3.2231E+00_JPRB,4.2283E+00_JPRB,5.2442E+00_JPRB/)
7839
KBO( :, 3,21,10) = (/&
7840
6
 & 6.5440E-01_JPRB,2.0647E+00_JPRB,3.3316E+00_JPRB,4.3160E+00_JPRB,5.1977E+00_JPRB/)
7841
KBO( :, 4,21,10) = (/&
7842
6
 & 8.5123E-01_JPRB,2.1675E+00_JPRB,3.4268E+00_JPRB,4.3944E+00_JPRB,5.1446E+00_JPRB/)
7843
KBO( :, 5,21,10) = (/&
7844
6
 & 1.0760E+00_JPRB,2.2689E+00_JPRB,3.5139E+00_JPRB,4.4592E+00_JPRB,5.0861E+00_JPRB/)
7845
KBO( :, 1,22,10) = (/&
7846
6
 & 3.1704E-01_JPRB,1.8909E+00_JPRB,3.1718E+00_JPRB,4.2211E+00_JPRB,5.3188E+00_JPRB/)
7847
KBO( :, 2,22,10) = (/&
7848
6
 & 4.4113E-01_JPRB,1.9967E+00_JPRB,3.2921E+00_JPRB,4.3258E+00_JPRB,5.2898E+00_JPRB/)
7849
KBO( :, 3,22,10) = (/&
7850
6
 & 5.9182E-01_JPRB,2.1052E+00_JPRB,3.4006E+00_JPRB,4.4235E+00_JPRB,5.2566E+00_JPRB/)
7851
KBO( :, 4,22,10) = (/&
7852
6
 & 7.6857E-01_JPRB,2.2097E+00_JPRB,3.4994E+00_JPRB,4.5051E+00_JPRB,5.2176E+00_JPRB/)
7853
KBO( :, 5,22,10) = (/&
7854
6
 & 9.7285E-01_JPRB,2.3126E+00_JPRB,3.5927E+00_JPRB,4.5701E+00_JPRB,5.1722E+00_JPRB/)
7855
KBO( :, 1,23,10) = (/&
7856
6
 & 2.8927E-01_JPRB,1.9014E+00_JPRB,3.1969E+00_JPRB,4.2666E+00_JPRB,5.3040E+00_JPRB/)
7857
KBO( :, 2,23,10) = (/&
7858
6
 & 4.0191E-01_JPRB,2.0125E+00_JPRB,3.3191E+00_JPRB,4.3795E+00_JPRB,5.2890E+00_JPRB/)
7859
KBO( :, 3,23,10) = (/&
7860
6
 & 5.3783E-01_JPRB,2.1222E+00_JPRB,3.4289E+00_JPRB,4.4796E+00_JPRB,5.2663E+00_JPRB/)
7861
KBO( :, 4,23,10) = (/&
7862
6
 & 6.9875E-01_JPRB,2.2290E+00_JPRB,3.5339E+00_JPRB,4.5665E+00_JPRB,5.2397E+00_JPRB/)
7863
KBO( :, 5,23,10) = (/&
7864
6
 & 8.8602E-01_JPRB,2.3359E+00_JPRB,3.6321E+00_JPRB,4.6372E+00_JPRB,5.2101E+00_JPRB/)
7865
KBO( :, 1,24,10) = (/&
7866
6
 & 2.6648E-01_JPRB,1.8914E+00_JPRB,3.1927E+00_JPRB,4.2785E+00_JPRB,5.2470E+00_JPRB/)
7867
KBO( :, 2,24,10) = (/&
7868
6
 & 3.6872E-01_JPRB,2.0063E+00_JPRB,3.3129E+00_JPRB,4.3925E+00_JPRB,5.2443E+00_JPRB/)
7869
KBO( :, 3,24,10) = (/&
7870
6
 & 4.9335E-01_JPRB,2.1181E+00_JPRB,3.4275E+00_JPRB,4.4944E+00_JPRB,5.2358E+00_JPRB/)
7871
KBO( :, 4,24,10) = (/&
7872
6
 & 6.4237E-01_JPRB,2.2281E+00_JPRB,3.5391E+00_JPRB,4.5872E+00_JPRB,5.2224E+00_JPRB/)
7873
KBO( :, 5,24,10) = (/&
7874
6
 & 8.1853E-01_JPRB,2.3388E+00_JPRB,3.6424E+00_JPRB,4.6721E+00_JPRB,5.2057E+00_JPRB/)
7875
KBO( :, 1,25,10) = (/&
7876
6
 & 2.4735E-01_JPRB,1.8676E+00_JPRB,3.1644E+00_JPRB,4.2512E+00_JPRB,5.1457E+00_JPRB/)
7877
KBO( :, 2,25,10) = (/&
7878
6
 & 3.4172E-01_JPRB,1.9814E+00_JPRB,3.2839E+00_JPRB,4.3716E+00_JPRB,5.1625E+00_JPRB/)
7879
KBO( :, 3,25,10) = (/&
7880
6
 & 4.5795E-01_JPRB,2.0952E+00_JPRB,3.4036E+00_JPRB,4.4805E+00_JPRB,5.1730E+00_JPRB/)
7881
KBO( :, 4,25,10) = (/&
7882
6
 & 5.9795E-01_JPRB,2.2113E+00_JPRB,3.5208E+00_JPRB,4.5808E+00_JPRB,5.1736E+00_JPRB/)
7883
KBO( :, 5,25,10) = (/&
7884
6
 & 7.5984E-01_JPRB,2.3264E+00_JPRB,3.6336E+00_JPRB,4.6738E+00_JPRB,5.1743E+00_JPRB/)
7885
KBO( :, 1,26,10) = (/&
7886
6
 & 2.3360E-01_JPRB,1.8352E+00_JPRB,3.1131E+00_JPRB,4.1942E+00_JPRB,5.0148E+00_JPRB/)
7887
KBO( :, 2,26,10) = (/&
7888
6
 & 3.2286E-01_JPRB,1.9478E+00_JPRB,3.2410E+00_JPRB,4.3228E+00_JPRB,5.0531E+00_JPRB/)
7889
KBO( :, 3,26,10) = (/&
7890
6
 & 4.3204E-01_JPRB,2.0643E+00_JPRB,3.3666E+00_JPRB,4.4432E+00_JPRB,5.0819E+00_JPRB/)
7891
KBO( :, 4,26,10) = (/&
7892
6
 & 5.6016E-01_JPRB,2.1838E+00_JPRB,3.4889E+00_JPRB,4.5535E+00_JPRB,5.1063E+00_JPRB/)
7893
KBO( :, 5,26,10) = (/&
7894
6
 & 7.0753E-01_JPRB,2.3058E+00_JPRB,3.6092E+00_JPRB,4.6573E+00_JPRB,5.1261E+00_JPRB/)
7895
KBO( :, 1,27,10) = (/&
7896
6
 & 2.2294E-01_JPRB,1.7950E+00_JPRB,3.0495E+00_JPRB,4.1133E+00_JPRB,4.8609E+00_JPRB/)
7897
7898
1
IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART26',1,ZHOOK_HANDLE)
7899
1
END SUBROUTINE PART26
7900
7901
7902
1
SUBROUTINE PART27
7903
7904
REAL(KIND=JPRB) :: ZHOOK_HANDLE
7905
1
IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART27',0,ZHOOK_HANDLE)
7906
7907
7908
KBO( :, 2,27,10) = (/&
7909
6
 & 3.0707E-01_JPRB,1.9093E+00_JPRB,3.1862E+00_JPRB,4.2562E+00_JPRB,4.9227E+00_JPRB/)
7910
KBO( :, 3,27,10) = (/&
7911
6
 & 4.0769E-01_JPRB,2.0286E+00_JPRB,3.3192E+00_JPRB,4.3886E+00_JPRB,4.9781E+00_JPRB/)
7912
KBO( :, 4,27,10) = (/&
7913
6
 & 5.2517E-01_JPRB,2.1513E+00_JPRB,3.4485E+00_JPRB,4.5128E+00_JPRB,5.0272E+00_JPRB/)
7914
KBO( :, 5,27,10) = (/&
7915
6
 & 6.6106E-01_JPRB,2.2811E+00_JPRB,3.5767E+00_JPRB,4.6309E+00_JPRB,5.0714E+00_JPRB/)
7916
KBO( :, 1,28,10) = (/&
7917
6
 & 2.1278E-01_JPRB,1.7516E+00_JPRB,2.9793E+00_JPRB,4.0203E+00_JPRB,4.7023E+00_JPRB/)
7918
KBO( :, 2,28,10) = (/&
7919
6
 & 2.9077E-01_JPRB,1.8695E+00_JPRB,3.1275E+00_JPRB,4.1790E+00_JPRB,4.7891E+00_JPRB/)
7920
KBO( :, 3,28,10) = (/&
7921
6
 & 3.8371E-01_JPRB,1.9907E+00_JPRB,3.2690E+00_JPRB,4.3298E+00_JPRB,4.8703E+00_JPRB/)
7922
KBO( :, 4,28,10) = (/&
7923
6
 & 4.9305E-01_JPRB,2.1190E+00_JPRB,3.4062E+00_JPRB,4.4719E+00_JPRB,4.9485E+00_JPRB/)
7924
KBO( :, 5,28,10) = (/&
7925
6
 & 6.1872E-01_JPRB,2.2538E+00_JPRB,3.5418E+00_JPRB,4.5998E+00_JPRB,5.0210E+00_JPRB/)
7926
KBO( :, 1,29,10) = (/&
7927
6
 & 2.0270E-01_JPRB,1.7094E+00_JPRB,2.9099E+00_JPRB,3.9283E+00_JPRB,4.5455E+00_JPRB/)
7928
KBO( :, 2,29,10) = (/&
7929
6
 & 2.7494E-01_JPRB,1.8321E+00_JPRB,3.0685E+00_JPRB,4.1039E+00_JPRB,4.6641E+00_JPRB/)
7930
KBO( :, 3,29,10) = (/&
7931
6
 & 3.6154E-01_JPRB,1.9564E+00_JPRB,3.2214E+00_JPRB,4.2736E+00_JPRB,4.7773E+00_JPRB/)
7932
KBO( :, 4,29,10) = (/&
7933
6
 & 4.6300E-01_JPRB,2.0903E+00_JPRB,3.3694E+00_JPRB,4.4317E+00_JPRB,4.8838E+00_JPRB/)
7934
KBO( :, 5,29,10) = (/&
7935
6
 & 5.8057E-01_JPRB,2.2289E+00_JPRB,3.5079E+00_JPRB,4.5763E+00_JPRB,4.9830E+00_JPRB/)
7936
KBO( :, 1,30,10) = (/&
7937
6
 & 1.9279E-01_JPRB,1.6706E+00_JPRB,2.8469E+00_JPRB,3.8440E+00_JPRB,4.4080E+00_JPRB/)
7938
KBO( :, 2,30,10) = (/&
7939
6
 & 2.6009E-01_JPRB,1.7962E+00_JPRB,3.0153E+00_JPRB,4.0402E+00_JPRB,4.5583E+00_JPRB/)
7940
KBO( :, 3,30,10) = (/&
7941
6
 & 3.4074E-01_JPRB,1.9283E+00_JPRB,3.1794E+00_JPRB,4.2253E+00_JPRB,4.7038E+00_JPRB/)
7942
KBO( :, 4,30,10) = (/&
7943
6
 & 4.3604E-01_JPRB,2.0655E+00_JPRB,3.3337E+00_JPRB,4.4011E+00_JPRB,4.8377E+00_JPRB/)
7944
KBO( :, 5,30,10) = (/&
7945
6
 & 5.4764E-01_JPRB,2.2092E+00_JPRB,3.4808E+00_JPRB,4.5595E+00_JPRB,4.9628E+00_JPRB/)
7946
KBO( :, 1,31,10) = (/&
7947
6
 & 1.8369E-01_JPRB,1.6365E+00_JPRB,2.7938E+00_JPRB,3.7778E+00_JPRB,4.2984E+00_JPRB/)
7948
KBO( :, 2,31,10) = (/&
7949
6
 & 2.4679E-01_JPRB,1.7684E+00_JPRB,2.9729E+00_JPRB,3.9905E+00_JPRB,4.4818E+00_JPRB/)
7950
KBO( :, 3,31,10) = (/&
7951
6
 & 3.2266E-01_JPRB,1.9061E+00_JPRB,3.1442E+00_JPRB,4.1950E+00_JPRB,4.6519E+00_JPRB/)
7952
KBO( :, 4,31,10) = (/&
7953
6
 & 4.1304E-01_JPRB,2.0477E+00_JPRB,3.3074E+00_JPRB,4.3826E+00_JPRB,4.8118E+00_JPRB/)
7954
KBO( :, 5,31,10) = (/&
7955
6
 & 5.2000E-01_JPRB,2.1969E+00_JPRB,3.4636E+00_JPRB,4.5527E+00_JPRB,4.9659E+00_JPRB/)
7956
KBO( :, 1,32,10) = (/&
7957
6
 & 1.7551E-01_JPRB,1.6097E+00_JPRB,2.7544E+00_JPRB,3.7286E+00_JPRB,4.2211E+00_JPRB/)
7958
KBO( :, 2,32,10) = (/&
7959
6
 & 2.3510E-01_JPRB,1.7486E+00_JPRB,2.9407E+00_JPRB,3.9624E+00_JPRB,4.4263E+00_JPRB/)
7960
KBO( :, 3,32,10) = (/&
7961
6
 & 3.0724E-01_JPRB,1.8916E+00_JPRB,3.1218E+00_JPRB,4.1778E+00_JPRB,4.6235E+00_JPRB/)
7962
KBO( :, 4,32,10) = (/&
7963
6
 & 3.9398E-01_JPRB,2.0379E+00_JPRB,3.2915E+00_JPRB,4.3768E+00_JPRB,4.8156E+00_JPRB/)
7964
KBO( :, 5,32,10) = (/&
7965
6
 & 4.9781E-01_JPRB,2.1923E+00_JPRB,3.4588E+00_JPRB,4.5574E+00_JPRB,4.9861E+00_JPRB/)
7966
KBO( :, 1,33,10) = (/&
7967
6
 & 1.6799E-01_JPRB,1.5914E+00_JPRB,2.7274E+00_JPRB,3.7024E+00_JPRB,4.1697E+00_JPRB/)
7968
KBO( :, 2,33,10) = (/&
7969
6
 & 2.2491E-01_JPRB,1.7368E+00_JPRB,2.9243E+00_JPRB,3.9492E+00_JPRB,4.4031E+00_JPRB/)
7970
KBO( :, 3,33,10) = (/&
7971
6
 & 2.9437E-01_JPRB,1.8837E+00_JPRB,3.1109E+00_JPRB,4.1768E+00_JPRB,4.6308E+00_JPRB/)
7972
KBO( :, 4,33,10) = (/&
7973
6
 & 3.7842E-01_JPRB,2.0362E+00_JPRB,3.2892E+00_JPRB,4.3833E+00_JPRB,4.8420E+00_JPRB/)
7974
KBO( :, 5,33,10) = (/&
7975
6
 & 4.8057E-01_JPRB,2.1931E+00_JPRB,3.4634E+00_JPRB,4.5721E+00_JPRB,5.0256E+00_JPRB/)
7976
KBO( :, 1,34,10) = (/&
7977
6
 & 1.5948E-01_JPRB,1.5775E+00_JPRB,2.7077E+00_JPRB,3.6846E+00_JPRB,4.1408E+00_JPRB/)
7978
KBO( :, 2,34,10) = (/&
7979
6
 & 2.1390E-01_JPRB,1.7270E+00_JPRB,2.9131E+00_JPRB,3.9429E+00_JPRB,4.4016E+00_JPRB/)
7980
KBO( :, 3,34,10) = (/&
7981
6
 & 2.8085E-01_JPRB,1.8791E+00_JPRB,3.1047E+00_JPRB,4.1792E+00_JPRB,4.6526E+00_JPRB/)
7982
KBO( :, 4,34,10) = (/&
7983
6
 & 3.6334E-01_JPRB,2.0371E+00_JPRB,3.2904E+00_JPRB,4.3938E+00_JPRB,4.8733E+00_JPRB/)
7984
KBO( :, 5,34,10) = (/&
7985
6
 & 4.6344E-01_JPRB,2.1941E+00_JPRB,3.4718E+00_JPRB,4.5911E+00_JPRB,5.0724E+00_JPRB/)
7986
KBO( :, 1,35,10) = (/&
7987
6
 & 1.4741E-01_JPRB,1.5567E+00_JPRB,2.6803E+00_JPRB,3.6561E+00_JPRB,4.1139E+00_JPRB/)
7988
KBO( :, 2,35,10) = (/&
7989
6
 & 1.9866E-01_JPRB,1.7096E+00_JPRB,2.8922E+00_JPRB,3.9256E+00_JPRB,4.4015E+00_JPRB/)
7990
KBO( :, 3,35,10) = (/&
7991
6
 & 2.6293E-01_JPRB,1.8664E+00_JPRB,3.0898E+00_JPRB,4.1709E+00_JPRB,4.6633E+00_JPRB/)
7992
KBO( :, 4,35,10) = (/&
7993
6
 & 3.4264E-01_JPRB,2.0276E+00_JPRB,3.2824E+00_JPRB,4.3940E+00_JPRB,4.8993E+00_JPRB/)
7994
KBO( :, 5,35,10) = (/&
7995
6
 & 4.3976E-01_JPRB,2.1842E+00_JPRB,3.4695E+00_JPRB,4.5966E+00_JPRB,5.1130E+00_JPRB/)
7996
KBO( :, 1,36,10) = (/&
7997
6
 & 1.3214E-01_JPRB,1.5254E+00_JPRB,2.6382E+00_JPRB,3.6093E+00_JPRB,4.0744E+00_JPRB/)
7998
KBO( :, 2,36,10) = (/&
7999
6
 & 1.7956E-01_JPRB,1.6813E+00_JPRB,2.8567E+00_JPRB,3.8896E+00_JPRB,4.3806E+00_JPRB/)
8000
KBO( :, 3,36,10) = (/&
8001
6
 & 2.4004E-01_JPRB,1.8415E+00_JPRB,3.0610E+00_JPRB,4.1453E+00_JPRB,4.6577E+00_JPRB/)
8002
KBO( :, 4,36,10) = (/&
8003
6
 & 3.1565E-01_JPRB,2.0040E+00_JPRB,3.2597E+00_JPRB,4.3756E+00_JPRB,4.9082E+00_JPRB/)
8004
KBO( :, 5,36,10) = (/&
8005
6
 & 4.0871E-01_JPRB,2.1610E+00_JPRB,3.4521E+00_JPRB,4.5836E+00_JPRB,5.1373E+00_JPRB/)
8006
KBO( :, 1,37,10) = (/&
8007
6
 & 1.1316E-01_JPRB,1.4752E+00_JPRB,2.5688E+00_JPRB,3.5261E+00_JPRB,3.9938E+00_JPRB/)
8008
KBO( :, 2,37,10) = (/&
8009
6
 & 1.5558E-01_JPRB,1.6337E+00_JPRB,2.7946E+00_JPRB,3.8188E+00_JPRB,4.3194E+00_JPRB/)
8010
KBO( :, 3,37,10) = (/&
8011
6
 & 2.1051E-01_JPRB,1.7957E+00_JPRB,3.0066E+00_JPRB,4.0860E+00_JPRB,4.6128E+00_JPRB/)
8012
KBO( :, 4,37,10) = (/&
8013
6
 & 2.8028E-01_JPRB,1.9593E+00_JPRB,3.2111E+00_JPRB,4.3259E+00_JPRB,4.8781E+00_JPRB/)
8014
KBO( :, 5,37,10) = (/&
8015
6
 & 3.6684E-01_JPRB,2.1183E+00_JPRB,3.4096E+00_JPRB,4.5437E+00_JPRB,5.1231E+00_JPRB/)
8016
KBO( :, 1,38,10) = (/&
8017
6
 & 9.6748E-02_JPRB,1.4275E+00_JPRB,2.5025E+00_JPRB,3.4448E+00_JPRB,3.9178E+00_JPRB/)
8018
KBO( :, 2,38,10) = (/&
8019
6
 & 1.3470E-01_JPRB,1.5886E+00_JPRB,2.7351E+00_JPRB,3.7489E+00_JPRB,4.2599E+00_JPRB/)
8020
KBO( :, 3,38,10) = (/&
8021
6
 & 1.8442E-01_JPRB,1.7514E+00_JPRB,2.9540E+00_JPRB,4.0269E+00_JPRB,4.5684E+00_JPRB/)
8022
KBO( :, 4,38,10) = (/&
8023
6
 & 2.4862E-01_JPRB,1.9169E+00_JPRB,3.1637E+00_JPRB,4.2769E+00_JPRB,4.8492E+00_JPRB/)
8024
KBO( :, 5,38,10) = (/&
8025
6
 & 3.2905E-01_JPRB,2.0776E+00_JPRB,3.3672E+00_JPRB,4.5027E+00_JPRB,5.1082E+00_JPRB/)
8026
KBO( :, 1,39,10) = (/&
8027
6
 & 8.2846E-02_JPRB,1.3834E+00_JPRB,2.4412E+00_JPRB,3.3680E+00_JPRB,3.8485E+00_JPRB/)
8028
KBO( :, 2,39,10) = (/&
8029
6
 & 1.1685E-01_JPRB,1.5463E+00_JPRB,2.6796E+00_JPRB,3.6824E+00_JPRB,4.2039E+00_JPRB/)
8030
KBO( :, 3,39,10) = (/&
8031
6
 & 1.6194E-01_JPRB,1.7108E+00_JPRB,2.9043E+00_JPRB,3.9699E+00_JPRB,4.5285E+00_JPRB/)
8032
KBO( :, 4,39,10) = (/&
8033
6
 & 2.2088E-01_JPRB,1.8779E+00_JPRB,3.1188E+00_JPRB,4.2292E+00_JPRB,4.8250E+00_JPRB/)
8034
KBO( :, 5,39,10) = (/&
8035
6
 & 2.9576E-01_JPRB,2.0398E+00_JPRB,3.3275E+00_JPRB,4.4625E+00_JPRB,5.0971E+00_JPRB/)
8036
KBO( :, 1,40,10) = (/&
8037
6
 & 6.8460E-02_JPRB,1.3257E+00_JPRB,2.3577E+00_JPRB,3.2603E+00_JPRB,3.7339E+00_JPRB/)
8038
KBO( :, 2,40,10) = (/&
8039
6
 & 9.7988E-02_JPRB,1.4903E+00_JPRB,2.6023E+00_JPRB,3.5872E+00_JPRB,4.1045E+00_JPRB/)
8040
KBO( :, 3,40,10) = (/&
8041
6
 & 1.3775E-01_JPRB,1.6559E+00_JPRB,2.8336E+00_JPRB,3.8858E+00_JPRB,4.4458E+00_JPRB/)
8042
KBO( :, 4,40,10) = (/&
8043
6
 & 1.9045E-01_JPRB,1.8245E+00_JPRB,3.0542E+00_JPRB,4.1559E+00_JPRB,4.7581E+00_JPRB/)
8044
KBO( :, 5,40,10) = (/&
8045
6
 & 2.5849E-01_JPRB,1.9886E+00_JPRB,3.2674E+00_JPRB,4.3994E+00_JPRB,5.0432E+00_JPRB/)
8046
KBO( :, 1,41,10) = (/&
8047
6
 & 5.6234E-02_JPRB,1.2690E+00_JPRB,2.2720E+00_JPRB,3.1495E+00_JPRB,3.6139E+00_JPRB/)
8048
KBO( :, 2,41,10) = (/&
8049
6
 & 8.1724E-02_JPRB,1.4342E+00_JPRB,2.5230E+00_JPRB,3.4875E+00_JPRB,3.9992E+00_JPRB/)
8050
KBO( :, 3,41,10) = (/&
8051
6
 & 1.1661E-01_JPRB,1.6007E+00_JPRB,2.7616E+00_JPRB,3.7972E+00_JPRB,4.3567E+00_JPRB/)
8052
KBO( :, 4,41,10) = (/&
8053
6
 & 1.6350E-01_JPRB,1.7709E+00_JPRB,2.9870E+00_JPRB,4.0779E+00_JPRB,4.6840E+00_JPRB/)
8054
KBO( :, 5,41,10) = (/&
8055
6
 & 2.2482E-01_JPRB,1.9373E+00_JPRB,3.2036E+00_JPRB,4.3314E+00_JPRB,4.9822E+00_JPRB/)
8056
KBO( :, 1,42,10) = (/&
8057
6
 & 4.6099E-02_JPRB,1.2146E+00_JPRB,2.1872E+00_JPRB,3.0381E+00_JPRB,3.4945E+00_JPRB/)
8058
KBO( :, 2,42,10) = (/&
8059
6
 & 6.8068E-02_JPRB,1.3798E+00_JPRB,2.4452E+00_JPRB,3.3871E+00_JPRB,3.8938E+00_JPRB/)
8060
KBO( :, 3,42,10) = (/&
8061
6
 & 9.8587E-02_JPRB,1.5478E+00_JPRB,2.6891E+00_JPRB,3.7072E+00_JPRB,4.2665E+00_JPRB/)
8062
KBO( :, 4,42,10) = (/&
8063
6
 & 1.4020E-01_JPRB,1.7187E+00_JPRB,2.9198E+00_JPRB,3.9988E+00_JPRB,4.6092E+00_JPRB/)
8064
KBO( :, 5,42,10) = (/&
8065
6
 & 1.9544E-01_JPRB,1.8864E+00_JPRB,3.1414E+00_JPRB,4.2616E+00_JPRB,4.9213E+00_JPRB/)
8066
KBO( :, 1,43,10) = (/&
8067
6
 & 3.6837E-02_JPRB,1.1530E+00_JPRB,2.0885E+00_JPRB,2.9067E+00_JPRB,3.3518E+00_JPRB/)
8068
KBO( :, 2,43,10) = (/&
8069
6
 & 5.5339E-02_JPRB,1.3181E+00_JPRB,2.3532E+00_JPRB,3.2663E+00_JPRB,3.7650E+00_JPRB/)
8070
KBO( :, 3,43,10) = (/&
8071
6
 & 8.1513E-02_JPRB,1.4866E+00_JPRB,2.6028E+00_JPRB,3.5988E+00_JPRB,4.1527E+00_JPRB/)
8072
KBO( :, 4,43,10) = (/&
8073
6
 & 1.1773E-01_JPRB,1.6570E+00_JPRB,2.8399E+00_JPRB,3.9012E+00_JPRB,4.5115E+00_JPRB/)
8074
KBO( :, 5,43,10) = (/&
8075
6
 & 1.6664E-01_JPRB,1.8278E+00_JPRB,3.0668E+00_JPRB,4.1754E+00_JPRB,4.8396E+00_JPRB/)
8076
KBO( :, 1,44,10) = (/&
8077
6
 & 2.8988E-02_JPRB,1.0887E+00_JPRB,1.9830E+00_JPRB,2.7653E+00_JPRB,3.1966E+00_JPRB/)
8078
KBO( :, 2,44,10) = (/&
8079
6
 & 4.4338E-02_JPRB,1.2532E+00_JPRB,2.2540E+00_JPRB,3.1344E+00_JPRB,3.6243E+00_JPRB/)
8080
KBO( :, 3,44,10) = (/&
8081
6
 & 6.6501E-02_JPRB,1.4222E+00_JPRB,2.5105E+00_JPRB,3.4789E+00_JPRB,4.0260E+00_JPRB/)
8082
KBO( :, 4,44,10) = (/&
8083
6
 & 9.7639E-02_JPRB,1.5932E+00_JPRB,2.7543E+00_JPRB,3.7931E+00_JPRB,4.4021E+00_JPRB/)
8084
KBO( :, 5,44,10) = (/&
8085
6
 & 1.4052E-01_JPRB,1.7655E+00_JPRB,2.9842E+00_JPRB,4.0798E+00_JPRB,4.7466E+00_JPRB/)
8086
KBO( :, 1,45,10) = (/&
8087
6
 & 2.2674E-02_JPRB,1.0257E+00_JPRB,1.8783E+00_JPRB,2.6228E+00_JPRB,3.0412E+00_JPRB/)
8088
KBO( :, 2,45,10) = (/&
8089
6
 & 3.5361E-02_JPRB,1.1906E+00_JPRB,2.1544E+00_JPRB,3.0007E+00_JPRB,3.4821E+00_JPRB/)
8090
KBO( :, 3,45,10) = (/&
8091
6
 & 5.3984E-02_JPRB,1.3593E+00_JPRB,2.4179E+00_JPRB,3.3558E+00_JPRB,3.8978E+00_JPRB/)
8092
KBO( :, 4,45,10) = (/&
8093
6
 & 8.0687E-02_JPRB,1.5302E+00_JPRB,2.6662E+00_JPRB,3.6830E+00_JPRB,4.2916E+00_JPRB/)
8094
KBO( :, 5,45,10) = (/&
8095
6
 & 1.1807E-01_JPRB,1.7032E+00_JPRB,2.9026E+00_JPRB,3.9804E+00_JPRB,4.6530E+00_JPRB/)
8096
KBO( :, 1,46,10) = (/&
8097
6
 & 1.7410E-02_JPRB,9.6094E-01_JPRB,1.7674E+00_JPRB,2.4706E+00_JPRB,2.8739E+00_JPRB/)
8098
KBO( :, 2,46,10) = (/&
8099
6
 & 2.7786E-02_JPRB,1.1256E+00_JPRB,2.0477E+00_JPRB,2.8564E+00_JPRB,3.3272E+00_JPRB/)
8100
KBO( :, 3,46,10) = (/&
8101
6
 & 4.3233E-02_JPRB,1.2931E+00_JPRB,2.3174E+00_JPRB,3.2226E+00_JPRB,3.7574E+00_JPRB/)
8102
KBO( :, 4,46,10) = (/&
8103
6
 & 6.5795E-02_JPRB,1.4641E+00_JPRB,2.5723E+00_JPRB,3.5627E+00_JPRB,4.1675E+00_JPRB/)
8104
KBO( :, 5,46,10) = (/&
8105
6
 & 9.8017E-02_JPRB,1.6372E+00_JPRB,2.8147E+00_JPRB,3.8708E+00_JPRB,4.5474E+00_JPRB/)
8106
KBO( :, 1,47,10) = (/&
8107
6
 & 1.2932E-02_JPRB,8.9077E-01_JPRB,1.6439E+00_JPRB,2.2995E+00_JPRB,2.6825E+00_JPRB/)
8108
KBO( :, 2,47,10) = (/&
8109
6
 & 2.1223E-02_JPRB,1.0540E+00_JPRB,1.9287E+00_JPRB,2.6946E+00_JPRB,3.1473E+00_JPRB/)
8110
KBO( :, 3,47,10) = (/&
8111
6
 & 3.3771E-02_JPRB,1.2207E+00_JPRB,2.2047E+00_JPRB,3.0711E+00_JPRB,3.5926E+00_JPRB/)
8112
KBO( :, 4,47,10) = (/&
8113
6
 & 5.2401E-02_JPRB,1.3916E+00_JPRB,2.4667E+00_JPRB,3.4226E+00_JPRB,4.0177E+00_JPRB/)
8114
KBO( :, 5,47,10) = (/&
8115
6
 & 7.9614E-02_JPRB,1.5646E+00_JPRB,2.7148E+00_JPRB,3.7454E+00_JPRB,4.4170E+00_JPRB/)
8116
KBO( :, 1,48,10) = (/&
8117
6
 & 9.4853E-03_JPRB,8.2116E-01_JPRB,1.5192E+00_JPRB,2.1278E+00_JPRB,2.4903E+00_JPRB/)
8118
KBO( :, 2,48,10) = (/&
8119
6
 & 1.6017E-02_JPRB,9.8364E-01_JPRB,1.8094E+00_JPRB,2.5302E+00_JPRB,2.9654E+00_JPRB/)
8120
KBO( :, 3,48,10) = (/&
8121
6
 & 2.6151E-02_JPRB,1.1500E+00_JPRB,2.0897E+00_JPRB,2.9152E+00_JPRB,3.4258E+00_JPRB/)
8122
KBO( :, 4,48,10) = (/&
8123
6
 & 4.1450E-02_JPRB,1.3196E+00_JPRB,2.3589E+00_JPRB,3.2790E+00_JPRB,3.8661E+00_JPRB/)
8124
KBO( :, 5,48,10) = (/&
8125
6
 & 6.4206E-02_JPRB,1.4922E+00_JPRB,2.6125E+00_JPRB,3.6159E+00_JPRB,4.2851E+00_JPRB/)
8126
KBO( :, 1,49,10) = (/&
8127
6
 & 6.8584E-03_JPRB,7.5265E-01_JPRB,1.3951E+00_JPRB,1.9557E+00_JPRB,2.2987E+00_JPRB/)
8128
KBO( :, 2,49,10) = (/&
8129
6
 & 1.1934E-02_JPRB,9.1467E-01_JPRB,1.6885E+00_JPRB,2.3631E+00_JPRB,2.7820E+00_JPRB/)
8130
KBO( :, 3,49,10) = (/&
8131
6
 & 2.0019E-02_JPRB,1.0797E+00_JPRB,1.9731E+00_JPRB,2.7567E+00_JPRB,3.2569E+00_JPRB/)
8132
KBO( :, 4,49,10) = (/&
8133
6
 & 3.2532E-02_JPRB,1.2481E+00_JPRB,2.2484E+00_JPRB,3.1312E+00_JPRB,3.7144E+00_JPRB/)
8134
KBO( :, 5,49,10) = (/&
8135
6
 & 5.1423E-02_JPRB,1.4202E+00_JPRB,2.5087E+00_JPRB,3.4802E+00_JPRB,4.1524E+00_JPRB/)
8136
KBO( :, 1,50,10) = (/&
8137
6
 & 4.9588E-03_JPRB,6.8907E-01_JPRB,1.2794E+00_JPRB,1.7942E+00_JPRB,2.1153E+00_JPRB/)
8138
KBO( :, 2,50,10) = (/&
8139
6
 & 8.8947E-03_JPRB,8.5045E-01_JPRB,1.5739E+00_JPRB,2.2042E+00_JPRB,2.6031E+00_JPRB/)
8140
KBO( :, 3,50,10) = (/&
8141
6
 & 1.5348E-02_JPRB,1.0143E+00_JPRB,1.8632E+00_JPRB,2.6056E+00_JPRB,3.0870E+00_JPRB/)
8142
KBO( :, 4,50,10) = (/&
8143
6
 & 2.5608E-02_JPRB,1.1821E+00_JPRB,2.1430E+00_JPRB,2.9888E+00_JPRB,3.5596E+00_JPRB/)
8144
KBO( :, 5,50,10) = (/&
8145
6
 & 4.1387E-02_JPRB,1.3536E+00_JPRB,2.4101E+00_JPRB,3.3481E+00_JPRB,4.0115E+00_JPRB/)
8146
KBO( :, 1,51,10) = (/&
8147
6
 & 3.5571E-03_JPRB,6.2785E-01_JPRB,1.1678E+00_JPRB,1.6386E+00_JPRB,1.9369E+00_JPRB/)
8148
KBO( :, 2,51,10) = (/&
8149
6
 & 6.5893E-03_JPRB,7.8876E-01_JPRB,1.4624E+00_JPRB,2.0498E+00_JPRB,2.4257E+00_JPRB/)
8150
KBO( :, 3,51,10) = (/&
8151
6
 & 1.1707E-02_JPRB,9.5177E-01_JPRB,1.7551E+00_JPRB,2.4566E+00_JPRB,2.9162E+00_JPRB/)
8152
KBO( :, 4,51,10) = (/&
8153
6
 & 2.0074E-02_JPRB,1.1187E+00_JPRB,2.0387E+00_JPRB,2.8466E+00_JPRB,3.3998E+00_JPRB/)
8154
KBO( :, 5,51,10) = (/&
8155
6
 & 3.3273E-02_JPRB,1.2890E+00_JPRB,2.3117E+00_JPRB,3.2168E+00_JPRB,3.8651E+00_JPRB/)
8156
KBO( :, 1,52,10) = (/&
8157
6
 & 2.5127E-03_JPRB,5.6820E-01_JPRB,1.0583E+00_JPRB,1.4864E+00_JPRB,1.7624E+00_JPRB/)
8158
KBO( :, 2,52,10) = (/&
8159
6
 & 4.8248E-03_JPRB,7.2792E-01_JPRB,1.3512E+00_JPRB,1.8952E+00_JPRB,2.2490E+00_JPRB/)
8160
KBO( :, 3,52,10) = (/&
8161
6
 & 8.8346E-03_JPRB,8.9029E-01_JPRB,1.6463E+00_JPRB,2.3052E+00_JPRB,2.7452E+00_JPRB/)
8162
KBO( :, 4,52,10) = (/&
8163
6
 & 1.5583E-02_JPRB,1.0558E+00_JPRB,1.9336E+00_JPRB,2.7033E+00_JPRB,3.2391E+00_JPRB/)
8164
KBO( :, 5,52,10) = (/&
8165
6
 & 2.6529E-02_JPRB,1.2246E+00_JPRB,2.2115E+00_JPRB,3.0824E+00_JPRB,3.7180E+00_JPRB/)
8166
KBO( :, 1,53,10) = (/&
8167
6
 & 1.7459E-03_JPRB,5.1010E-01_JPRB,9.5136E-01_JPRB,1.3367E+00_JPRB,1.5916E+00_JPRB/)
8168
KBO( :, 2,53,10) = (/&
8169
6
 & 3.4808E-03_JPRB,6.6729E-01_JPRB,1.2403E+00_JPRB,1.7405E+00_JPRB,2.0746E+00_JPRB/)
8170
KBO( :, 3,53,10) = (/&
8171
6
 & 6.5872E-03_JPRB,8.2899E-01_JPRB,1.5363E+00_JPRB,2.1529E+00_JPRB,2.5747E+00_JPRB/)
8172
KBO( :, 4,53,10) = (/&
8173
6
 & 1.1962E-02_JPRB,9.9325E-01_JPRB,1.8279E+00_JPRB,2.5576E+00_JPRB,3.0783E+00_JPRB/)
8174
KBO( :, 5,53,10) = (/&
8175
6
 & 2.0951E-02_JPRB,1.1616E+00_JPRB,2.1096E+00_JPRB,2.9440E+00_JPRB,3.5715E+00_JPRB/)
8176
KBO( :, 1,54,10) = (/&
8177
6
 & 1.2204E-03_JPRB,4.5823E-01_JPRB,8.5579E-01_JPRB,1.2025E+00_JPRB,1.4326E+00_JPRB/)
8178
KBO( :, 2,54,10) = (/&
8179
6
 & 2.5281E-03_JPRB,6.1212E-01_JPRB,1.1396E+00_JPRB,1.5999E+00_JPRB,1.9069E+00_JPRB/)
8180
KBO( :, 3,54,10) = (/&
8181
6
 & 4.9409E-03_JPRB,7.7338E-01_JPRB,1.4350E+00_JPRB,2.0125E+00_JPRB,2.4041E+00_JPRB/)
8182
KBO( :, 4,54,10) = (/&
8183
6
 & 9.2436E-03_JPRB,9.3695E-01_JPRB,1.7295E+00_JPRB,2.4215E+00_JPRB,2.9094E+00_JPRB/)
8184
KBO( :, 5,54,10) = (/&
8185
6
 & 1.6670E-02_JPRB,1.1040E+00_JPRB,2.0145E+00_JPRB,2.8142E+00_JPRB,3.4095E+00_JPRB/)
8186
KBO( :, 1,55,10) = (/&
8187
6
 & 8.4904E-04_JPRB,4.1031E-01_JPRB,7.6714E-01_JPRB,1.0777E+00_JPRB,1.2810E+00_JPRB/)
8188
KBO( :, 2,55,10) = (/&
8189
6
 & 1.8289E-03_JPRB,5.6051E-01_JPRB,1.0445E+00_JPRB,1.4675E+00_JPRB,1.7437E+00_JPRB/)
8190
KBO( :, 3,55,10) = (/&
8191
6
 & 3.6957E-03_JPRB,7.2049E-01_JPRB,1.3381E+00_JPRB,1.8775E+00_JPRB,2.2346E+00_JPRB/)
8192
KBO( :, 4,55,10) = (/&
8193
6
 & 7.1338E-03_JPRB,8.8320E-01_JPRB,1.6342E+00_JPRB,2.2888E+00_JPRB,2.7356E+00_JPRB/)
8194
KBO( :, 5,55,10) = (/&
8195
6
 & 1.3248E-02_JPRB,1.0490E+00_JPRB,1.9226E+00_JPRB,2.6886E+00_JPRB,3.2366E+00_JPRB/)
8196
KBO( :, 1,56,10) = (/&
8197
6
 & 5.8188E-04_JPRB,3.6451E-01_JPRB,6.8188E-01_JPRB,9.5775E-01_JPRB,1.1364E+00_JPRB/)
8198
8199
1
IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART27',1,ZHOOK_HANDLE)
8200
1
END SUBROUTINE PART27
8201
8202
8203
1
SUBROUTINE PART28
8204
8205
REAL(KIND=JPRB) :: ZHOOK_HANDLE
8206
1
IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART28',0,ZHOOK_HANDLE)
8207
8208
8209
KBO( :, 2,56,10) = (/&
8210
6
 & 1.3061E-03_JPRB,5.1010E-01_JPRB,9.5157E-01_JPRB,1.3373E+00_JPRB,1.5849E+00_JPRB/)
8211
KBO( :, 3,56,10) = (/&
8212
6
 & 2.7348E-03_JPRB,6.6775E-01_JPRB,1.2416E+00_JPRB,1.7426E+00_JPRB,2.0675E+00_JPRB/)
8213
KBO( :, 4,56,10) = (/&
8214
6
 & 5.4506E-03_JPRB,8.2982E-01_JPRB,1.5384E+00_JPRB,2.1560E+00_JPRB,2.5656E+00_JPRB/)
8215
KBO( :, 5,56,10) = (/&
8216
6
 & 1.0438E-02_JPRB,9.9464E-01_JPRB,1.8304E+00_JPRB,2.5617E+00_JPRB,3.0643E+00_JPRB/)
8217
KBO( :, 1,57,10) = (/&
8218
6
 & 3.9249E-04_JPRB,3.2068E-01_JPRB,6.0044E-01_JPRB,8.4280E-01_JPRB,9.9873E-01_JPRB/)
8219
KBO( :, 2,57,10) = (/&
8220
6
 & 9.2030E-04_JPRB,4.6083E-01_JPRB,8.6077E-01_JPRB,1.2098E+00_JPRB,1.4302E+00_JPRB/)
8221
KBO( :, 3,57,10) = (/&
8222
6
 & 2.0002E-03_JPRB,6.1542E-01_JPRB,1.1460E+00_JPRB,1.6091E+00_JPRB,1.9029E+00_JPRB/)
8223
KBO( :, 4,57,10) = (/&
8224
6
 & 4.1235E-03_JPRB,7.7708E-01_JPRB,1.4422E+00_JPRB,2.0227E+00_JPRB,2.3967E+00_JPRB/)
8225
KBO( :, 5,57,10) = (/&
8226
6
 & 8.1478E-03_JPRB,9.4098E-01_JPRB,1.7369E+00_JPRB,2.4323E+00_JPRB,2.8933E+00_JPRB/)
8227
KBO( :, 1,58,10) = (/&
8228
6
 & 2.6430E-04_JPRB,2.8122E-01_JPRB,5.2695E-01_JPRB,7.3930E-01_JPRB,8.7420E-01_JPRB/)
8229
KBO( :, 2,58,10) = (/&
8230
6
 & 6.4821E-04_JPRB,4.1579E-01_JPRB,7.7745E-01_JPRB,1.0922E+00_JPRB,1.2875E+00_JPRB/)
8231
KBO( :, 3,58,10) = (/&
8232
6
 & 1.4624E-03_JPRB,5.6685E-01_JPRB,1.0564E+00_JPRB,1.4844E+00_JPRB,1.7489E+00_JPRB/)
8233
KBO( :, 4,58,10) = (/&
8234
6
 & 3.1206E-03_JPRB,7.2740E-01_JPRB,1.3510E+00_JPRB,1.8958E+00_JPRB,2.2357E+00_JPRB/)
8235
KBO( :, 5,58,10) = (/&
8236
6
 & 6.3628E-03_JPRB,8.9041E-01_JPRB,1.6474E+00_JPRB,2.3075E+00_JPRB,2.7302E+00_JPRB/)
8237
KBO( :, 1,59,10) = (/&
8238
6
 & 2.0990E-04_JPRB,2.6575E-01_JPRB,4.9806E-01_JPRB,6.9856E-01_JPRB,8.1922E-01_JPRB/)
8239
KBO( :, 2,59,10) = (/&
8240
6
 & 5.2942E-04_JPRB,3.9787E-01_JPRB,7.4416E-01_JPRB,1.0453E+00_JPRB,1.2213E+00_JPRB/)
8241
KBO( :, 3,59,10) = (/&
8242
6
 & 1.2254E-03_JPRB,5.4737E-01_JPRB,1.0206E+00_JPRB,1.4342E+00_JPRB,1.6735E+00_JPRB/)
8243
KBO( :, 4,59,10) = (/&
8244
6
 & 2.6840E-03_JPRB,7.0712E-01_JPRB,1.3141E+00_JPRB,1.8442E+00_JPRB,2.1507E+00_JPRB/)
8245
KBO( :, 5,59,10) = (/&
8246
6
 & 5.6182E-03_JPRB,8.7007E-01_JPRB,1.6111E+00_JPRB,2.2569E+00_JPRB,2.6371E+00_JPRB/)
8247
KBO( :, 1,13,11) = (/&
8248
6
 & 1.0801E+00_JPRB,1.4348E+00_JPRB,2.0789E+00_JPRB,2.8766E+00_JPRB,3.7088E+00_JPRB/)
8249
KBO( :, 2,13,11) = (/&
8250
6
 & 1.5786E+00_JPRB,1.6909E+00_JPRB,2.2344E+00_JPRB,2.8378E+00_JPRB,3.6154E+00_JPRB/)
8251
KBO( :, 3,13,11) = (/&
8252
6
 & 2.1806E+00_JPRB,1.9878E+00_JPRB,2.3945E+00_JPRB,2.8212E+00_JPRB,3.5326E+00_JPRB/)
8253
KBO( :, 4,13,11) = (/&
8254
6
 & 2.8720E+00_JPRB,2.3800E+00_JPRB,2.5914E+00_JPRB,2.8385E+00_JPRB,3.4655E+00_JPRB/)
8255
KBO( :, 5,13,11) = (/&
8256
6
 & 3.6411E+00_JPRB,2.8911E+00_JPRB,2.8480E+00_JPRB,2.9116E+00_JPRB,3.4228E+00_JPRB/)
8257
KBO( :, 1,14,11) = (/&
8258
6
 & 1.1044E+00_JPRB,1.5475E+00_JPRB,2.2497E+00_JPRB,3.1463E+00_JPRB,4.0884E+00_JPRB/)
8259
KBO( :, 2,14,11) = (/&
8260
6
 & 1.5971E+00_JPRB,1.7939E+00_JPRB,2.3794E+00_JPRB,3.1054E+00_JPRB,3.9980E+00_JPRB/)
8261
KBO( :, 3,14,11) = (/&
8262
6
 & 2.1821E+00_JPRB,2.0987E+00_JPRB,2.5507E+00_JPRB,3.0870E+00_JPRB,3.9208E+00_JPRB/)
8263
KBO( :, 4,14,11) = (/&
8264
6
 & 2.8502E+00_JPRB,2.4509E+00_JPRB,2.7671E+00_JPRB,3.1108E+00_JPRB,3.8503E+00_JPRB/)
8265
KBO( :, 5,14,11) = (/&
8266
6
 & 3.5884E+00_JPRB,2.8921E+00_JPRB,3.0089E+00_JPRB,3.1705E+00_JPRB,3.7851E+00_JPRB/)
8267
KBO( :, 1,15,11) = (/&
8268
6
 & 1.1021E+00_JPRB,1.6587E+00_JPRB,2.4815E+00_JPRB,3.5024E+00_JPRB,4.5632E+00_JPRB/)
8269
KBO( :, 2,15,11) = (/&
8270
6
 & 1.5743E+00_JPRB,1.8988E+00_JPRB,2.5745E+00_JPRB,3.4612E+00_JPRB,4.4691E+00_JPRB/)
8271
KBO( :, 3,15,11) = (/&
8272
6
 & 2.1315E+00_JPRB,2.1848E+00_JPRB,2.7319E+00_JPRB,3.4370E+00_JPRB,4.3819E+00_JPRB/)
8273
KBO( :, 4,15,11) = (/&
8274
6
 & 2.7650E+00_JPRB,2.5138E+00_JPRB,2.9331E+00_JPRB,3.4633E+00_JPRB,4.3032E+00_JPRB/)
8275
KBO( :, 5,15,11) = (/&
8276
6
 & 3.4727E+00_JPRB,2.9032E+00_JPRB,3.1579E+00_JPRB,3.5044E+00_JPRB,4.2227E+00_JPRB/)
8277
KBO( :, 1,16,11) = (/&
8278
6
 & 1.0714E+00_JPRB,1.7588E+00_JPRB,2.7564E+00_JPRB,3.8747E+00_JPRB,5.0508E+00_JPRB/)
8279
KBO( :, 2,16,11) = (/&
8280
6
 & 1.5150E+00_JPRB,1.9873E+00_JPRB,2.8550E+00_JPRB,3.8426E+00_JPRB,4.9605E+00_JPRB/)
8281
KBO( :, 3,16,11) = (/&
8282
6
 & 2.0368E+00_JPRB,2.2470E+00_JPRB,2.9773E+00_JPRB,3.8351E+00_JPRB,4.8716E+00_JPRB/)
8283
KBO( :, 4,16,11) = (/&
8284
6
 & 2.6368E+00_JPRB,2.5533E+00_JPRB,3.1361E+00_JPRB,3.8536E+00_JPRB,4.7863E+00_JPRB/)
8285
KBO( :, 5,16,11) = (/&
8286
6
 & 3.3066E+00_JPRB,2.9151E+00_JPRB,3.3174E+00_JPRB,3.8762E+00_JPRB,4.6948E+00_JPRB/)
8287
KBO( :, 1,17,11) = (/&
8288
6
 & 1.0151E+00_JPRB,1.8852E+00_JPRB,3.0518E+00_JPRB,4.2628E+00_JPRB,5.5542E+00_JPRB/)
8289
KBO( :, 2,17,11) = (/&
8290
6
 & 1.4250E+00_JPRB,2.0700E+00_JPRB,3.1614E+00_JPRB,4.2288E+00_JPRB,5.4601E+00_JPRB/)
8291
KBO( :, 3,17,11) = (/&
8292
6
 & 1.9121E+00_JPRB,2.3001E+00_JPRB,3.2776E+00_JPRB,4.2348E+00_JPRB,5.3679E+00_JPRB/)
8293
KBO( :, 4,17,11) = (/&
8294
6
 & 2.4694E+00_JPRB,2.5770E+00_JPRB,3.4037E+00_JPRB,4.2558E+00_JPRB,5.2730E+00_JPRB/)
8295
KBO( :, 5,17,11) = (/&
8296
6
 & 3.0899E+00_JPRB,2.9049E+00_JPRB,3.5383E+00_JPRB,4.2898E+00_JPRB,5.1747E+00_JPRB/)
8297
KBO( :, 1,18,11) = (/&
8298
6
 & 9.4290E-01_JPRB,2.0484E+00_JPRB,3.3469E+00_JPRB,4.6479E+00_JPRB,6.0575E+00_JPRB/)
8299
KBO( :, 2,18,11) = (/&
8300
6
 & 1.3205E+00_JPRB,2.1931E+00_JPRB,3.4728E+00_JPRB,4.6183E+00_JPRB,5.9563E+00_JPRB/)
8301
KBO( :, 3,18,11) = (/&
8302
6
 & 1.7655E+00_JPRB,2.3717E+00_JPRB,3.5959E+00_JPRB,4.6412E+00_JPRB,5.8591E+00_JPRB/)
8303
KBO( :, 4,18,11) = (/&
8304
6
 & 2.2742E+00_JPRB,2.6014E+00_JPRB,3.7076E+00_JPRB,4.6704E+00_JPRB,5.7576E+00_JPRB/)
8305
KBO( :, 5,18,11) = (/&
8306
6
 & 2.8368E+00_JPRB,2.8834E+00_JPRB,3.8149E+00_JPRB,4.7239E+00_JPRB,5.6493E+00_JPRB/)
8307
KBO( :, 1,19,11) = (/&
8308
6
 & 8.6437E-01_JPRB,2.2167E+00_JPRB,3.6423E+00_JPRB,5.0107E+00_JPRB,6.5258E+00_JPRB/)
8309
KBO( :, 2,19,11) = (/&
8310
6
 & 1.2052E+00_JPRB,2.3536E+00_JPRB,3.7778E+00_JPRB,5.0137E+00_JPRB,6.4336E+00_JPRB/)
8311
KBO( :, 3,19,11) = (/&
8312
6
 & 1.6063E+00_JPRB,2.4963E+00_JPRB,3.9078E+00_JPRB,5.0409E+00_JPRB,6.3317E+00_JPRB/)
8313
KBO( :, 4,19,11) = (/&
8314
6
 & 2.0613E+00_JPRB,2.6673E+00_JPRB,4.0216E+00_JPRB,5.0848E+00_JPRB,6.2172E+00_JPRB/)
8315
KBO( :, 5,19,11) = (/&
8316
6
 & 2.5635E+00_JPRB,2.8852E+00_JPRB,4.1233E+00_JPRB,5.1457E+00_JPRB,6.0969E+00_JPRB/)
8317
KBO( :, 1,20,11) = (/&
8318
6
 & 7.8779E-01_JPRB,2.3765E+00_JPRB,3.9264E+00_JPRB,5.3499E+00_JPRB,6.9480E+00_JPRB/)
8319
KBO( :, 2,20,11) = (/&
8320
6
 & 1.0926E+00_JPRB,2.5148E+00_JPRB,4.0670E+00_JPRB,5.3834E+00_JPRB,6.8553E+00_JPRB/)
8321
KBO( :, 3,20,11) = (/&
8322
6
 & 1.4487E+00_JPRB,2.6525E+00_JPRB,4.1962E+00_JPRB,5.4179E+00_JPRB,6.7496E+00_JPRB/)
8323
KBO( :, 4,20,11) = (/&
8324
6
 & 1.8513E+00_JPRB,2.7916E+00_JPRB,4.3148E+00_JPRB,5.4862E+00_JPRB,6.6370E+00_JPRB/)
8325
KBO( :, 5,20,11) = (/&
8326
6
 & 2.2991E+00_JPRB,2.9510E+00_JPRB,4.4216E+00_JPRB,5.5498E+00_JPRB,6.5228E+00_JPRB/)
8327
KBO( :, 1,21,11) = (/&
8328
6
 & 7.0932E-01_JPRB,2.5175E+00_JPRB,4.1824E+00_JPRB,5.6525E+00_JPRB,7.2957E+00_JPRB/)
8329
KBO( :, 2,21,11) = (/&
8330
6
 & 9.7801E-01_JPRB,2.6602E+00_JPRB,4.3300E+00_JPRB,5.6984E+00_JPRB,7.2060E+00_JPRB/)
8331
KBO( :, 3,21,11) = (/&
8332
6
 & 1.2908E+00_JPRB,2.7977E+00_JPRB,4.4565E+00_JPRB,5.7675E+00_JPRB,7.1115E+00_JPRB/)
8333
KBO( :, 4,21,11) = (/&
8334
6
 & 1.6486E+00_JPRB,2.9337E+00_JPRB,4.5784E+00_JPRB,5.8514E+00_JPRB,7.0112E+00_JPRB/)
8335
KBO( :, 5,21,11) = (/&
8336
6
 & 2.0548E+00_JPRB,3.0662E+00_JPRB,4.6884E+00_JPRB,5.9211E+00_JPRB,6.9051E+00_JPRB/)
8337
KBO( :, 1,22,11) = (/&
8338
6
 & 6.4634E-01_JPRB,2.6427E+00_JPRB,4.4108E+00_JPRB,5.9111E+00_JPRB,7.5603E+00_JPRB/)
8339
KBO( :, 2,22,11) = (/&
8340
6
 & 8.8382E-01_JPRB,2.7886E+00_JPRB,4.5605E+00_JPRB,5.9821E+00_JPRB,7.4874E+00_JPRB/)
8341
KBO( :, 3,22,11) = (/&
8342
6
 & 1.1630E+00_JPRB,2.9292E+00_JPRB,4.6954E+00_JPRB,6.0879E+00_JPRB,7.4042E+00_JPRB/)
8343
KBO( :, 4,22,11) = (/&
8344
6
 & 1.4885E+00_JPRB,3.0664E+00_JPRB,4.8184E+00_JPRB,6.1855E+00_JPRB,7.3136E+00_JPRB/)
8345
KBO( :, 5,22,11) = (/&
8346
6
 & 1.8588E+00_JPRB,3.1975E+00_JPRB,4.9293E+00_JPRB,6.2618E+00_JPRB,7.2153E+00_JPRB/)
8347
KBO( :, 1,23,11) = (/&
8348
6
 & 5.8489E-01_JPRB,2.7446E+00_JPRB,4.5940E+00_JPRB,6.1135E+00_JPRB,7.7491E+00_JPRB/)
8349
KBO( :, 2,23,11) = (/&
8350
6
 & 7.9682E-01_JPRB,2.8912E+00_JPRB,4.7488E+00_JPRB,6.2356E+00_JPRB,7.6928E+00_JPRB/)
8351
KBO( :, 3,23,11) = (/&
8352
6
 & 1.0504E+00_JPRB,3.0346E+00_JPRB,4.8968E+00_JPRB,6.3608E+00_JPRB,7.6287E+00_JPRB/)
8353
KBO( :, 4,23,11) = (/&
8354
6
 & 1.3447E+00_JPRB,3.1725E+00_JPRB,5.0242E+00_JPRB,6.4689E+00_JPRB,7.5521E+00_JPRB/)
8355
KBO( :, 5,23,11) = (/&
8356
6
 & 1.6807E+00_JPRB,3.3048E+00_JPRB,5.1382E+00_JPRB,6.5524E+00_JPRB,7.4632E+00_JPRB/)
8357
KBO( :, 1,24,11) = (/&
8358
6
 & 5.2989E-01_JPRB,2.8195E+00_JPRB,4.7301E+00_JPRB,6.2761E+00_JPRB,7.8550E+00_JPRB/)
8359
KBO( :, 2,24,11) = (/&
8360
6
 & 7.2198E-01_JPRB,2.9702E+00_JPRB,4.8974E+00_JPRB,6.4380E+00_JPRB,7.8243E+00_JPRB/)
8361
KBO( :, 3,24,11) = (/&
8362
6
 & 9.5134E-01_JPRB,3.1164E+00_JPRB,5.0504E+00_JPRB,6.5817E+00_JPRB,7.7816E+00_JPRB/)
8363
KBO( :, 4,24,11) = (/&
8364
6
 & 1.2196E+00_JPRB,3.2537E+00_JPRB,5.1885E+00_JPRB,6.6940E+00_JPRB,7.7249E+00_JPRB/)
8365
KBO( :, 5,24,11) = (/&
8366
6
 & 1.5265E+00_JPRB,3.3851E+00_JPRB,5.3089E+00_JPRB,6.7822E+00_JPRB,7.6563E+00_JPRB/)
8367
KBO( :, 1,25,11) = (/&
8368
6
 & 4.8476E-01_JPRB,2.8697E+00_JPRB,4.8218E+00_JPRB,6.4097E+00_JPRB,7.9026E+00_JPRB/)
8369
KBO( :, 2,25,11) = (/&
8370
6
 & 6.5969E-01_JPRB,3.0274E+00_JPRB,5.0029E+00_JPRB,6.5890E+00_JPRB,7.8973E+00_JPRB/)
8371
KBO( :, 3,25,11) = (/&
8372
6
 & 8.6906E-01_JPRB,3.1754E+00_JPRB,5.1656E+00_JPRB,6.7410E+00_JPRB,7.8772E+00_JPRB/)
8373
KBO( :, 4,25,11) = (/&
8374
6
 & 1.1152E+00_JPRB,3.3120E+00_JPRB,5.3111E+00_JPRB,6.8679E+00_JPRB,7.8462E+00_JPRB/)
8375
KBO( :, 5,25,11) = (/&
8376
6
 & 1.4024E+00_JPRB,3.4449E+00_JPRB,5.4363E+00_JPRB,6.9674E+00_JPRB,7.7978E+00_JPRB/)
8377
KBO( :, 1,26,11) = (/&
8378
6
 & 4.4920E-01_JPRB,2.9004E+00_JPRB,4.8834E+00_JPRB,6.5041E+00_JPRB,7.9089E+00_JPRB/)
8379
KBO( :, 2,26,11) = (/&
8380
6
 & 6.0999E-01_JPRB,3.0628E+00_JPRB,5.0713E+00_JPRB,6.6966E+00_JPRB,7.9304E+00_JPRB/)
8381
KBO( :, 3,26,11) = (/&
8382
6
 & 8.0376E-01_JPRB,3.2124E+00_JPRB,5.2452E+00_JPRB,6.8629E+00_JPRB,7.9361E+00_JPRB/)
8383
KBO( :, 4,26,11) = (/&
8384
6
 & 1.0358E+00_JPRB,3.3523E+00_JPRB,5.4003E+00_JPRB,7.0027E+00_JPRB,7.9285E+00_JPRB/)
8385
KBO( :, 5,26,11) = (/&
8386
6
 & 1.3073E+00_JPRB,3.4838E+00_JPRB,5.5299E+00_JPRB,7.1136E+00_JPRB,7.9075E+00_JPRB/)
8387
KBO( :, 1,27,11) = (/&
8388
6
 & 4.1952E-01_JPRB,2.9133E+00_JPRB,4.9160E+00_JPRB,6.5693E+00_JPRB,7.8901E+00_JPRB/)
8389
KBO( :, 2,27,11) = (/&
8390
6
 & 5.6911E-01_JPRB,3.0774E+00_JPRB,5.1132E+00_JPRB,6.7755E+00_JPRB,7.9378E+00_JPRB/)
8391
KBO( :, 3,27,11) = (/&
8392
6
 & 7.5273E-01_JPRB,3.2297E+00_JPRB,5.2948E+00_JPRB,6.9532E+00_JPRB,7.9707E+00_JPRB/)
8393
KBO( :, 4,27,11) = (/&
8394
6
 & 9.7351E-01_JPRB,3.3745E+00_JPRB,5.4563E+00_JPRB,7.1054E+00_JPRB,7.9865E+00_JPRB/)
8395
KBO( :, 5,27,11) = (/&
8396
6
 & 1.2293E+00_JPRB,3.5064E+00_JPRB,5.5938E+00_JPRB,7.2297E+00_JPRB,7.9857E+00_JPRB/)
8397
KBO( :, 1,28,11) = (/&
8398
6
 & 3.9524E-01_JPRB,2.9112E+00_JPRB,4.9316E+00_JPRB,6.6151E+00_JPRB,7.8478E+00_JPRB/)
8399
KBO( :, 2,28,11) = (/&
8400
6
 & 5.3765E-01_JPRB,3.0764E+00_JPRB,5.1350E+00_JPRB,6.8313E+00_JPRB,7.9309E+00_JPRB/)
8401
KBO( :, 3,28,11) = (/&
8402
6
 & 7.1264E-01_JPRB,3.2343E+00_JPRB,5.3248E+00_JPRB,7.0207E+00_JPRB,7.9898E+00_JPRB/)
8403
KBO( :, 4,28,11) = (/&
8404
6
 & 9.1903E-01_JPRB,3.3816E+00_JPRB,5.4915E+00_JPRB,7.1844E+00_JPRB,8.0261E+00_JPRB/)
8405
KBO( :, 5,28,11) = (/&
8406
6
 & 1.1585E+00_JPRB,3.5178E+00_JPRB,5.6384E+00_JPRB,7.3251E+00_JPRB,8.0453E+00_JPRB/)
8407
KBO( :, 1,29,11) = (/&
8408
6
 & 3.7850E-01_JPRB,2.9006E+00_JPRB,4.9391E+00_JPRB,6.6424E+00_JPRB,7.8025E+00_JPRB/)
8409
KBO( :, 2,29,11) = (/&
8410
6
 & 5.1450E-01_JPRB,3.0673E+00_JPRB,5.1512E+00_JPRB,6.8720E+00_JPRB,7.9130E+00_JPRB/)
8411
KBO( :, 3,29,11) = (/&
8412
6
 & 6.7825E-01_JPRB,3.2303E+00_JPRB,5.3447E+00_JPRB,7.0744E+00_JPRB,7.9988E+00_JPRB/)
8413
KBO( :, 4,29,11) = (/&
8414
6
 & 8.7094E-01_JPRB,3.3797E+00_JPRB,5.5169E+00_JPRB,7.2525E+00_JPRB,8.0603E+00_JPRB/)
8415
KBO( :, 5,29,11) = (/&
8416
6
 & 1.0951E+00_JPRB,3.5266E+00_JPRB,5.6745E+00_JPRB,7.3989E+00_JPRB,8.0964E+00_JPRB/)
8417
KBO( :, 1,30,11) = (/&
8418
6
 & 3.6524E-01_JPRB,2.8876E+00_JPRB,4.9408E+00_JPRB,6.6613E+00_JPRB,7.7569E+00_JPRB/)
8419
KBO( :, 2,30,11) = (/&
8420
6
 & 4.9379E-01_JPRB,3.0581E+00_JPRB,5.1612E+00_JPRB,6.9058E+00_JPRB,7.8990E+00_JPRB/)
8421
KBO( :, 3,30,11) = (/&
8422
6
 & 6.4720E-01_JPRB,3.2216E+00_JPRB,5.3594E+00_JPRB,7.1246E+00_JPRB,8.0078E+00_JPRB/)
8423
KBO( :, 4,30,11) = (/&
8424
6
 & 8.2776E-01_JPRB,3.3773E+00_JPRB,5.5423E+00_JPRB,7.3074E+00_JPRB,8.0873E+00_JPRB/)
8425
KBO( :, 5,30,11) = (/&
8426
6
 & 1.0381E+00_JPRB,3.5327E+00_JPRB,5.7037E+00_JPRB,7.4625E+00_JPRB,8.1388E+00_JPRB/)
8427
KBO( :, 1,31,11) = (/&
8428
6
 & 3.5308E-01_JPRB,2.8782E+00_JPRB,4.9477E+00_JPRB,6.6803E+00_JPRB,7.7265E+00_JPRB/)
8429
KBO( :, 2,31,11) = (/&
8430
6
 & 4.7488E-01_JPRB,3.0504E+00_JPRB,5.1727E+00_JPRB,6.9441E+00_JPRB,7.8903E+00_JPRB/)
8431
KBO( :, 3,31,11) = (/&
8432
6
 & 6.2002E-01_JPRB,3.2131E+00_JPRB,5.3800E+00_JPRB,7.1680E+00_JPRB,8.0238E+00_JPRB/)
8433
KBO( :, 4,31,11) = (/&
8434
6
 & 7.9132E-01_JPRB,3.3767E+00_JPRB,5.5675E+00_JPRB,7.3599E+00_JPRB,8.1232E+00_JPRB/)
8435
KBO( :, 5,31,11) = (/&
8436
6
 & 9.9103E-01_JPRB,3.5400E+00_JPRB,5.7311E+00_JPRB,7.5249E+00_JPRB,8.1871E+00_JPRB/)
8437
KBO( :, 1,32,11) = (/&
8438
6
 & 3.4150E-01_JPRB,2.8720E+00_JPRB,4.9582E+00_JPRB,6.7133E+00_JPRB,7.7054E+00_JPRB/)
8439
KBO( :, 2,32,11) = (/&
8440
6
 & 4.5747E-01_JPRB,3.0437E+00_JPRB,5.1930E+00_JPRB,6.9826E+00_JPRB,7.9024E+00_JPRB/)
8441
KBO( :, 3,32,11) = (/&
8442
6
 & 5.9670E-01_JPRB,3.2099E+00_JPRB,5.4027E+00_JPRB,7.2169E+00_JPRB,8.0545E+00_JPRB/)
8443
KBO( :, 4,32,11) = (/&
8444
6
 & 7.6078E-01_JPRB,3.3797E+00_JPRB,5.5915E+00_JPRB,7.4162E+00_JPRB,8.1621E+00_JPRB/)
8445
KBO( :, 5,32,11) = (/&
8446
6
 & 9.5335E-01_JPRB,3.5468E+00_JPRB,5.7567E+00_JPRB,7.5820E+00_JPRB,8.2482E+00_JPRB/)
8447
KBO( :, 1,33,11) = (/&
8448
6
 & 3.3112E-01_JPRB,2.8707E+00_JPRB,4.9789E+00_JPRB,6.7544E+00_JPRB,7.7163E+00_JPRB/)
8449
KBO( :, 2,33,11) = (/&
8450
6
 & 4.4241E-01_JPRB,3.0429E+00_JPRB,5.2166E+00_JPRB,7.0302E+00_JPRB,7.9310E+00_JPRB/)
8451
KBO( :, 3,33,11) = (/&
8452
6
 & 5.7622E-01_JPRB,3.2140E+00_JPRB,5.4288E+00_JPRB,7.2705E+00_JPRB,8.0890E+00_JPRB/)
8453
KBO( :, 4,33,11) = (/&
8454
6
 & 7.3587E-01_JPRB,3.3885E+00_JPRB,5.6201E+00_JPRB,7.4720E+00_JPRB,8.2154E+00_JPRB/)
8455
KBO( :, 5,33,11) = (/&
8456
6
 & 9.2410E-01_JPRB,3.5572E+00_JPRB,5.7855E+00_JPRB,7.6373E+00_JPRB,8.3240E+00_JPRB/)
8457
KBO( :, 1,34,11) = (/&
8458
6
 & 3.1870E-01_JPRB,2.8673E+00_JPRB,5.0003E+00_JPRB,6.7932E+00_JPRB,7.7350E+00_JPRB/)
8459
KBO( :, 2,34,11) = (/&
8460
6
 & 4.2545E-01_JPRB,3.0410E+00_JPRB,5.2383E+00_JPRB,7.0757E+00_JPRB,7.9562E+00_JPRB/)
8461
KBO( :, 3,34,11) = (/&
8462
6
 & 5.5478E-01_JPRB,3.2165E+00_JPRB,5.4526E+00_JPRB,7.3185E+00_JPRB,8.1289E+00_JPRB/)
8463
KBO( :, 4,34,11) = (/&
8464
6
 & 7.0990E-01_JPRB,3.3947E+00_JPRB,5.6453E+00_JPRB,7.5211E+00_JPRB,8.2807E+00_JPRB/)
8465
KBO( :, 5,34,11) = (/&
8466
6
 & 8.9548E-01_JPRB,3.5658E+00_JPRB,5.8091E+00_JPRB,7.6845E+00_JPRB,8.3957E+00_JPRB/)
8467
KBO( :, 1,35,11) = (/&
8468
6
 & 2.9899E-01_JPRB,2.8528E+00_JPRB,5.0022E+00_JPRB,6.8098E+00_JPRB,7.7352E+00_JPRB/)
8469
KBO( :, 2,35,11) = (/&
8470
6
 & 4.0035E-01_JPRB,3.0296E+00_JPRB,5.2435E+00_JPRB,7.1001E+00_JPRB,7.9730E+00_JPRB/)
8471
KBO( :, 3,35,11) = (/&
8472
6
 & 5.2425E-01_JPRB,3.2088E+00_JPRB,5.4619E+00_JPRB,7.3466E+00_JPRB,8.1718E+00_JPRB/)
8473
KBO( :, 4,35,11) = (/&
8474
6
 & 6.7403E-01_JPRB,3.3885E+00_JPRB,5.6558E+00_JPRB,7.5526E+00_JPRB,8.3426E+00_JPRB/)
8475
KBO( :, 5,35,11) = (/&
8476
6
 & 8.5588E-01_JPRB,3.5636E+00_JPRB,5.8215E+00_JPRB,7.7184E+00_JPRB,8.4695E+00_JPRB/)
8477
KBO( :, 1,36,11) = (/&
8478
6
 & 2.7267E-01_JPRB,2.8247E+00_JPRB,4.9811E+00_JPRB,6.7967E+00_JPRB,7.7171E+00_JPRB/)
8479
KBO( :, 2,36,11) = (/&
8480
6
 & 3.6730E-01_JPRB,3.0036E+00_JPRB,5.2282E+00_JPRB,7.0962E+00_JPRB,7.9794E+00_JPRB/)
8481
KBO( :, 3,36,11) = (/&
8482
6
 & 4.8410E-01_JPRB,3.1863E+00_JPRB,5.4514E+00_JPRB,7.3517E+00_JPRB,8.2066E+00_JPRB/)
8483
KBO( :, 4,36,11) = (/&
8484
6
 & 6.2745E-01_JPRB,3.3693E+00_JPRB,5.6486E+00_JPRB,7.5634E+00_JPRB,8.3923E+00_JPRB/)
8485
KBO( :, 5,36,11) = (/&
8486
6
 & 8.0265E-01_JPRB,3.5462E+00_JPRB,5.8174E+00_JPRB,7.7338E+00_JPRB,8.5363E+00_JPRB/)
8487
KBO( :, 1,37,11) = (/&
8488
6
 & 2.3789E-01_JPRB,2.7731E+00_JPRB,4.9241E+00_JPRB,6.7346E+00_JPRB,7.6594E+00_JPRB/)
8489
KBO( :, 2,37,11) = (/&
8490
6
 & 3.2371E-01_JPRB,2.9546E+00_JPRB,5.1797E+00_JPRB,7.0518E+00_JPRB,7.9502E+00_JPRB/)
8491
KBO( :, 3,37,11) = (/&
8492
6
 & 4.3093E-01_JPRB,3.1396E+00_JPRB,5.4103E+00_JPRB,7.3206E+00_JPRB,8.2067E+00_JPRB/)
8493
KBO( :, 4,37,11) = (/&
8494
6
 & 5.6432E-01_JPRB,3.3261E+00_JPRB,5.6154E+00_JPRB,7.5430E+00_JPRB,8.4107E+00_JPRB/)
8495
KBO( :, 5,37,11) = (/&
8496
6
 & 7.2921E-01_JPRB,3.5055E+00_JPRB,5.7906E+00_JPRB,7.7231E+00_JPRB,8.5767E+00_JPRB/)
8497
KBO( :, 1,38,11) = (/&
8498
6
 & 2.0735E-01_JPRB,2.7246E+00_JPRB,4.8643E+00_JPRB,6.6686E+00_JPRB,7.6002E+00_JPRB/)
8499
8500
1
IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART28',1,ZHOOK_HANDLE)
8501
1
END SUBROUTINE PART28
8502
8503
8504
1
SUBROUTINE PART29
8505
8506
REAL(KIND=JPRB) :: ZHOOK_HANDLE
8507
1
IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART29',0,ZHOOK_HANDLE)
8508
8509
8510
KBO( :, 2,38,11) = (/&
8511
6
 & 2.8530E-01_JPRB,2.9075E+00_JPRB,5.1303E+00_JPRB,7.0023E+00_JPRB,7.9233E+00_JPRB/)
8512
KBO( :, 3,38,11) = (/&
8513
6
 & 3.8349E-01_JPRB,3.0952E+00_JPRB,5.3688E+00_JPRB,7.2838E+00_JPRB,8.2079E+00_JPRB/)
8514
KBO( :, 4,38,11) = (/&
8515
6
 & 5.0781E-01_JPRB,3.2834E+00_JPRB,5.5805E+00_JPRB,7.5172E+00_JPRB,8.4321E+00_JPRB/)
8516
KBO( :, 5,38,11) = (/&
8517
6
 & 6.6307E-01_JPRB,3.4663E+00_JPRB,5.7630E+00_JPRB,7.7072E+00_JPRB,8.6191E+00_JPRB/)
8518
KBO( :, 1,39,11) = (/&
8519
6
 & 1.8082E-01_JPRB,2.6797E+00_JPRB,4.8064E+00_JPRB,6.6001E+00_JPRB,7.5476E+00_JPRB/)
8520
KBO( :, 2,39,11) = (/&
8521
6
 & 2.5186E-01_JPRB,2.8651E+00_JPRB,5.0819E+00_JPRB,6.9495E+00_JPRB,7.9070E+00_JPRB/)
8522
KBO( :, 3,39,11) = (/&
8523
6
 & 3.4240E-01_JPRB,3.0532E+00_JPRB,5.3282E+00_JPRB,7.2446E+00_JPRB,8.2139E+00_JPRB/)
8524
KBO( :, 4,39,11) = (/&
8525
6
 & 4.5842E-01_JPRB,3.2439E+00_JPRB,5.5467E+00_JPRB,7.4896E+00_JPRB,8.4602E+00_JPRB/)
8526
KBO( :, 5,39,11) = (/&
8527
6
 & 6.0509E-01_JPRB,3.4298E+00_JPRB,5.7341E+00_JPRB,7.6881E+00_JPRB,8.6682E+00_JPRB/)
8528
KBO( :, 1,40,11) = (/&
8529
6
 & 1.5207E-01_JPRB,2.6179E+00_JPRB,4.7176E+00_JPRB,6.4886E+00_JPRB,7.4449E+00_JPRB/)
8530
KBO( :, 2,40,11) = (/&
8531
6
 & 2.1512E-01_JPRB,2.8059E+00_JPRB,5.0086E+00_JPRB,6.8609E+00_JPRB,7.8328E+00_JPRB/)
8532
KBO( :, 3,40,11) = (/&
8533
6
 & 2.9689E-01_JPRB,2.9943E+00_JPRB,5.2638E+00_JPRB,7.1743E+00_JPRB,8.1664E+00_JPRB/)
8534
KBO( :, 4,40,11) = (/&
8535
6
 & 4.0254E-01_JPRB,3.1876E+00_JPRB,5.4913E+00_JPRB,7.4357E+00_JPRB,8.4349E+00_JPRB/)
8536
KBO( :, 5,40,11) = (/&
8537
6
 & 5.3785E-01_JPRB,3.3763E+00_JPRB,5.6880E+00_JPRB,7.6474E+00_JPRB,8.6627E+00_JPRB/)
8538
KBO( :, 1,41,11) = (/&
8539
6
 & 1.2695E-01_JPRB,2.5542E+00_JPRB,4.6228E+00_JPRB,6.3672E+00_JPRB,7.3294E+00_JPRB/)
8540
KBO( :, 2,41,11) = (/&
8541
6
 & 1.8252E-01_JPRB,2.7470E+00_JPRB,4.9288E+00_JPRB,6.7628E+00_JPRB,7.7447E+00_JPRB/)
8542
KBO( :, 3,41,11) = (/&
8543
6
 & 2.5614E-01_JPRB,2.9363E+00_JPRB,5.1938E+00_JPRB,7.0965E+00_JPRB,8.1064E+00_JPRB/)
8544
KBO( :, 4,41,11) = (/&
8545
6
 & 3.5214E-01_JPRB,3.1287E+00_JPRB,5.4316E+00_JPRB,7.3741E+00_JPRB,8.3985E+00_JPRB/)
8546
KBO( :, 5,41,11) = (/&
8547
6
 & 4.7642E-01_JPRB,3.3197E+00_JPRB,5.6390E+00_JPRB,7.5995E+00_JPRB,8.6452E+00_JPRB/)
8548
KBO( :, 1,42,11) = (/&
8549
6
 & 1.0572E-01_JPRB,2.4914E+00_JPRB,4.5264E+00_JPRB,6.2425E+00_JPRB,7.2103E+00_JPRB/)
8550
KBO( :, 2,42,11) = (/&
8551
6
 & 1.5450E-01_JPRB,2.6890E+00_JPRB,4.8460E+00_JPRB,6.6593E+00_JPRB,7.6506E+00_JPRB/)
8552
KBO( :, 3,42,11) = (/&
8553
6
 & 2.2046E-01_JPRB,2.8775E+00_JPRB,5.1228E+00_JPRB,7.0129E+00_JPRB,8.0405E+00_JPRB/)
8554
KBO( :, 4,42,11) = (/&
8555
6
 & 3.0794E-01_JPRB,3.0704E+00_JPRB,5.3705E+00_JPRB,7.3070E+00_JPRB,8.3576E+00_JPRB/)
8556
KBO( :, 5,42,11) = (/&
8557
6
 & 4.2243E-01_JPRB,3.2655E+00_JPRB,5.5859E+00_JPRB,7.5484E+00_JPRB,8.6234E+00_JPRB/)
8558
KBO( :, 1,43,11) = (/&
8559
6
 & 8.5799E-02_JPRB,2.4158E+00_JPRB,4.4064E+00_JPRB,6.0854E+00_JPRB,7.0535E+00_JPRB/)
8560
KBO( :, 2,43,11) = (/&
8561
6
 & 1.2776E-01_JPRB,2.6198E+00_JPRB,4.7439E+00_JPRB,6.5289E+00_JPRB,7.5260E+00_JPRB/)
8562
KBO( :, 3,43,11) = (/&
8563
6
 & 1.8555E-01_JPRB,2.8110E+00_JPRB,5.0358E+00_JPRB,6.9052E+00_JPRB,7.9459E+00_JPRB/)
8564
KBO( :, 4,43,11) = (/&
8565
6
 & 2.6399E-01_JPRB,3.0044E+00_JPRB,5.2930E+00_JPRB,7.2200E+00_JPRB,8.2902E+00_JPRB/)
8566
KBO( :, 5,43,11) = (/&
8567
6
 & 3.6761E-01_JPRB,3.2003E+00_JPRB,5.5191E+00_JPRB,7.4799E+00_JPRB,8.5786E+00_JPRB/)
8568
KBO( :, 1,44,11) = (/&
8569
6
 & 6.8535E-02_JPRB,2.3354E+00_JPRB,4.2721E+00_JPRB,5.9087E+00_JPRB,6.8762E+00_JPRB/)
8570
KBO( :, 2,44,11) = (/&
8571
6
 & 1.0421E-01_JPRB,2.5468E+00_JPRB,4.6283E+00_JPRB,6.3792E+00_JPRB,7.3815E+00_JPRB/)
8572
KBO( :, 3,44,11) = (/&
8573
6
 & 1.5420E-01_JPRB,2.7418E+00_JPRB,4.9358E+00_JPRB,6.7810E+00_JPRB,7.8336E+00_JPRB/)
8574
KBO( :, 4,44,11) = (/&
8575
6
 & 2.2347E-01_JPRB,2.9335E+00_JPRB,5.2044E+00_JPRB,7.1195E+00_JPRB,8.2083E+00_JPRB/)
8576
KBO( :, 5,44,11) = (/&
8577
6
 & 3.1682E-01_JPRB,3.1294E+00_JPRB,5.4461E+00_JPRB,7.3981E+00_JPRB,8.5217E+00_JPRB/)
8578
KBO( :, 1,45,11) = (/&
8579
6
 & 5.4457E-02_JPRB,2.2535E+00_JPRB,4.1320E+00_JPRB,5.7238E+00_JPRB,6.6894E+00_JPRB/)
8580
KBO( :, 2,45,11) = (/&
8581
6
 & 8.4549E-02_JPRB,2.4711E+00_JPRB,4.5065E+00_JPRB,6.2198E+00_JPRB,7.2293E+00_JPRB/)
8582
KBO( :, 3,45,11) = (/&
8583
6
 & 1.2761E-01_JPRB,2.6717E+00_JPRB,4.8324E+00_JPRB,6.6492E+00_JPRB,7.7146E+00_JPRB/)
8584
KBO( :, 4,45,11) = (/&
8585
6
 & 1.8837E-01_JPRB,2.8633E+00_JPRB,5.1155E+00_JPRB,7.0100E+00_JPRB,8.1205E+00_JPRB/)
8586
KBO( :, 5,45,11) = (/&
8587
6
 & 2.7227E-01_JPRB,3.0592E+00_JPRB,5.3653E+00_JPRB,7.3089E+00_JPRB,8.4600E+00_JPRB/)
8588
KBO( :, 1,46,11) = (/&
8589
6
 & 4.2589E-02_JPRB,2.1649E+00_JPRB,3.9784E+00_JPRB,5.5163E+00_JPRB,6.4796E+00_JPRB/)
8590
KBO( :, 2,46,11) = (/&
8591
6
 & 6.7560E-02_JPRB,2.3893E+00_JPRB,4.3722E+00_JPRB,6.0430E+00_JPRB,7.0551E+00_JPRB/)
8592
KBO( :, 3,46,11) = (/&
8593
6
 & 1.0417E-01_JPRB,2.5968E+00_JPRB,4.7173E+00_JPRB,6.4988E+00_JPRB,7.5749E+00_JPRB/)
8594
KBO( :, 4,46,11) = (/&
8595
6
 & 1.5686E-01_JPRB,2.7912E+00_JPRB,5.0150E+00_JPRB,6.8844E+00_JPRB,8.0167E+00_JPRB/)
8596
KBO( :, 5,46,11) = (/&
8597
6
 & 2.3102E-01_JPRB,2.9860E+00_JPRB,5.2763E+00_JPRB,7.2084E+00_JPRB,8.3844E+00_JPRB/)
8598
KBO( :, 1,47,11) = (/&
8599
6
 & 3.2329E-02_JPRB,2.0635E+00_JPRB,3.7990E+00_JPRB,5.2746E+00_JPRB,6.2270E+00_JPRB/)
8600
KBO( :, 2,47,11) = (/&
8601
6
 & 5.2621E-02_JPRB,2.2974E+00_JPRB,4.2140E+00_JPRB,5.8338E+00_JPRB,6.8413E+00_JPRB/)
8602
KBO( :, 3,47,11) = (/&
8603
6
 & 8.2966E-02_JPRB,2.5124E+00_JPRB,4.5790E+00_JPRB,6.3183E+00_JPRB,7.3957E+00_JPRB/)
8604
KBO( :, 4,47,11) = (/&
8605
6
 & 1.2765E-01_JPRB,2.7111E+00_JPRB,4.8962E+00_JPRB,6.7355E+00_JPRB,7.8773E+00_JPRB/)
8606
KBO( :, 5,47,11) = (/&
8607
6
 & 1.9183E-01_JPRB,2.9039E+00_JPRB,5.1733E+00_JPRB,7.0849E+00_JPRB,8.2769E+00_JPRB/)
8608
KBO( :, 1,48,11) = (/&
8609
6
 & 2.4260E-02_JPRB,1.9590E+00_JPRB,3.6114E+00_JPRB,5.0219E+00_JPRB,5.9614E+00_JPRB/)
8610
KBO( :, 2,48,11) = (/&
8611
6
 & 4.0661E-02_JPRB,2.2016E+00_JPRB,4.0471E+00_JPRB,5.6109E+00_JPRB,6.6162E+00_JPRB/)
8612
KBO( :, 3,48,11) = (/&
8613
6
 & 6.5567E-02_JPRB,2.4242E+00_JPRB,4.4350E+00_JPRB,6.1272E+00_JPRB,7.2066E+00_JPRB/)
8614
KBO( :, 4,48,11) = (/&
8615
6
 & 1.0316E-01_JPRB,2.6297E+00_JPRB,4.7726E+00_JPRB,6.5740E+00_JPRB,7.7277E+00_JPRB/)
8616
KBO( :, 5,48,11) = (/&
8617
6
 & 1.5827E-01_JPRB,2.8235E+00_JPRB,5.0650E+00_JPRB,6.9498E+00_JPRB,8.1636E+00_JPRB/)
8618
KBO( :, 1,49,11) = (/&
8619
6
 & 1.7994E-02_JPRB,1.8499E+00_JPRB,3.4182E+00_JPRB,4.7557E+00_JPRB,5.6860E+00_JPRB/)
8620
KBO( :, 2,49,11) = (/&
8621
6
 & 3.1088E-02_JPRB,2.1039E+00_JPRB,3.8735E+00_JPRB,5.3754E+00_JPRB,6.3833E+00_JPRB/)
8622
KBO( :, 3,49,11) = (/&
8623
6
 & 5.1455E-02_JPRB,2.3348E+00_JPRB,4.2824E+00_JPRB,5.9252E+00_JPRB,7.0121E+00_JPRB/)
8624
KBO( :, 4,49,11) = (/&
8625
6
 & 8.2689E-02_JPRB,2.5471E+00_JPRB,4.6395E+00_JPRB,6.4001E+00_JPRB,7.5720E+00_JPRB/)
8626
KBO( :, 5,49,11) = (/&
8627
6
 & 1.2977E-01_JPRB,2.7449E+00_JPRB,4.9494E+00_JPRB,6.8054E+00_JPRB,8.0481E+00_JPRB/)
8628
KBO( :, 1,50,11) = (/&
8629
6
 & 1.3371E-02_JPRB,1.7459E+00_JPRB,3.2314E+00_JPRB,4.4954E+00_JPRB,5.4078E+00_JPRB/)
8630
KBO( :, 2,50,11) = (/&
8631
6
 & 2.3833E-02_JPRB,2.0084E+00_JPRB,3.7026E+00_JPRB,5.1456E+00_JPRB,6.1414E+00_JPRB/)
8632
KBO( :, 3,50,11) = (/&
8633
6
 & 4.0559E-02_JPRB,2.2474E+00_JPRB,4.1296E+00_JPRB,5.7236E+00_JPRB,6.8056E+00_JPRB/)
8634
KBO( :, 4,50,11) = (/&
8635
6
 & 6.6648E-02_JPRB,2.4671E+00_JPRB,4.5076E+00_JPRB,6.2258E+00_JPRB,7.4018E+00_JPRB/)
8636
KBO( :, 5,50,11) = (/&
8637
6
 & 1.0683E-01_JPRB,2.6694E+00_JPRB,4.8363E+00_JPRB,6.6602E+00_JPRB,7.9136E+00_JPRB/)
8638
KBO( :, 1,51,11) = (/&
8639
6
 & 9.8653E-03_JPRB,1.6429E+00_JPRB,3.0451E+00_JPRB,4.2358E+00_JPRB,5.1231E+00_JPRB/)
8640
KBO( :, 2,51,11) = (/&
8641
6
 & 1.8201E-02_JPRB,1.9124E+00_JPRB,3.5299E+00_JPRB,4.9113E+00_JPRB,5.8903E+00_JPRB/)
8642
KBO( :, 3,51,11) = (/&
8643
6
 & 3.1898E-02_JPRB,2.1605E+00_JPRB,3.9764E+00_JPRB,5.5162E+00_JPRB,6.5869E+00_JPRB/)
8644
KBO( :, 4,51,11) = (/&
8645
6
 & 5.3712E-02_JPRB,2.3869E+00_JPRB,4.3743E+00_JPRB,6.0489E+00_JPRB,7.2173E+00_JPRB/)
8646
KBO( :, 5,51,11) = (/&
8647
6
 & 8.7772E-02_JPRB,2.5955E+00_JPRB,4.7209E+00_JPRB,6.5087E+00_JPRB,7.7625E+00_JPRB/)
8648
KBO( :, 1,52,11) = (/&
8649
6
 & 7.1653E-03_JPRB,1.5381E+00_JPRB,2.8544E+00_JPRB,3.9674E+00_JPRB,4.8308E+00_JPRB/)
8650
KBO( :, 2,52,11) = (/&
8651
6
 & 1.3765E-02_JPRB,1.8137E+00_JPRB,3.3544E+00_JPRB,4.6675E+00_JPRB,5.6327E+00_JPRB/)
8652
KBO( :, 3,52,11) = (/&
8653
6
 & 2.4855E-02_JPRB,2.0712E+00_JPRB,3.8173E+00_JPRB,5.3003E+00_JPRB,6.3625E+00_JPRB/)
8654
KBO( :, 4,52,11) = (/&
8655
6
 & 4.3007E-02_JPRB,2.3053E+00_JPRB,4.2329E+00_JPRB,5.8617E+00_JPRB,7.0261E+00_JPRB/)
8656
KBO( :, 5,52,11) = (/&
8657
6
 & 7.1746E-02_JPRB,2.5209E+00_JPRB,4.5976E+00_JPRB,6.3464E+00_JPRB,7.6074E+00_JPRB/)
8658
KBO( :, 1,53,11) = (/&
8659
6
 & 5.1115E-03_JPRB,1.4319E+00_JPRB,2.6598E+00_JPRB,3.6923E+00_JPRB,4.5327E+00_JPRB/)
8660
KBO( :, 2,53,11) = (/&
8661
6
 & 1.0264E-02_JPRB,1.7132E+00_JPRB,3.1732E+00_JPRB,4.4138E+00_JPRB,5.3644E+00_JPRB/)
8662
KBO( :, 3,53,11) = (/&
8663
6
 & 1.9168E-02_JPRB,1.9787E+00_JPRB,3.6497E+00_JPRB,5.0750E+00_JPRB,6.1311E+00_JPRB/)
8664
KBO( :, 4,53,11) = (/&
8665
6
 & 3.4142E-02_JPRB,2.2206E+00_JPRB,4.0841E+00_JPRB,5.6629E+00_JPRB,6.8305E+00_JPRB/)
8666
KBO( :, 5,53,11) = (/&
8667
6
 & 5.8320E-02_JPRB,2.4429E+00_JPRB,4.4694E+00_JPRB,6.1755E+00_JPRB,7.4521E+00_JPRB/)
8668
KBO( :, 1,54,11) = (/&
8669
6
 & 3.6599E-03_JPRB,1.3331E+00_JPRB,2.4769E+00_JPRB,3.4372E+00_JPRB,4.2368E+00_JPRB/)
8670
KBO( :, 2,54,11) = (/&
8671
6
 & 7.6954E-03_JPRB,1.6189E+00_JPRB,3.0020E+00_JPRB,4.1755E+00_JPRB,5.0910E+00_JPRB/)
8672
KBO( :, 3,54,11) = (/&
8673
6
 & 1.4927E-02_JPRB,1.8903E+00_JPRB,3.4914E+00_JPRB,4.8585E+00_JPRB,5.8811E+00_JPRB/)
8674
KBO( :, 4,54,11) = (/&
8675
6
 & 2.7354E-02_JPRB,2.1411E+00_JPRB,3.9432E+00_JPRB,5.4718E+00_JPRB,6.6071E+00_JPRB/)
8676
KBO( :, 5,54,11) = (/&
8677
6
 & 4.7880E-02_JPRB,2.3694E+00_JPRB,4.3455E+00_JPRB,6.0119E+00_JPRB,7.2530E+00_JPRB/)
8678
KBO( :, 1,55,11) = (/&
8679
6
 & 2.6041E-03_JPRB,1.2377E+00_JPRB,2.2999E+00_JPRB,3.1900E+00_JPRB,3.9377E+00_JPRB/)
8680
KBO( :, 2,55,11) = (/&
8681
6
 & 5.7429E-03_JPRB,1.5271E+00_JPRB,2.8349E+00_JPRB,3.9397E+00_JPRB,4.8084E+00_JPRB/)
8682
KBO( :, 3,55,11) = (/&
8683
6
 & 1.1607E-02_JPRB,1.8036E+00_JPRB,3.3372E+00_JPRB,4.6433E+00_JPRB,5.6183E+00_JPRB/)
8684
KBO( :, 4,55,11) = (/&
8685
6
 & 2.1919E-02_JPRB,2.0624E+00_JPRB,3.8024E+00_JPRB,5.2808E+00_JPRB,6.3606E+00_JPRB/)
8686
KBO( :, 5,55,11) = (/&
8687
6
 & 3.9357E-02_JPRB,2.2976E+00_JPRB,4.2205E+00_JPRB,5.8462E+00_JPRB,7.0320E+00_JPRB/)
8688
KBO( :, 1,56,11) = (/&
8689
6
 & 1.8212E-03_JPRB,1.1423E+00_JPRB,2.1234E+00_JPRB,2.9415E+00_JPRB,3.6402E+00_JPRB/)
8690
KBO( :, 2,56,11) = (/&
8691
6
 & 4.2220E-03_JPRB,1.4344E+00_JPRB,2.6648E+00_JPRB,3.6993E+00_JPRB,4.5216E+00_JPRB/)
8692
KBO( :, 3,56,11) = (/&
8693
6
 & 8.9199E-03_JPRB,1.7161E+00_JPRB,3.1791E+00_JPRB,4.4224E+00_JPRB,5.3514E+00_JPRB/)
8694
KBO( :, 4,56,11) = (/&
8695
6
 & 1.7443E-02_JPRB,1.9818E+00_JPRB,3.6561E+00_JPRB,5.0841E+00_JPRB,6.1109E+00_JPRB/)
8696
KBO( :, 5,56,11) = (/&
8697
6
 & 3.2146E-02_JPRB,2.2236E+00_JPRB,4.0904E+00_JPRB,5.6718E+00_JPRB,6.8038E+00_JPRB/)
8698
KBO( :, 1,57,11) = (/&
8699
6
 & 1.2487E-03_JPRB,1.0475E+00_JPRB,1.9452E+00_JPRB,2.6920E+00_JPRB,3.3454E+00_JPRB/)
8700
KBO( :, 2,57,11) = (/&
8701
6
 & 3.0556E-03_JPRB,1.3407E+00_JPRB,2.4912E+00_JPRB,3.4567E+00_JPRB,4.2318E+00_JPRB/)
8702
KBO( :, 3,57,11) = (/&
8703
6
 & 6.7633E-03_JPRB,1.6266E+00_JPRB,3.0165E+00_JPRB,4.1956E+00_JPRB,5.0790E+00_JPRB/)
8704
KBO( :, 4,57,11) = (/&
8705
6
 & 1.3762E-02_JPRB,1.8981E+00_JPRB,3.5056E+00_JPRB,4.8781E+00_JPRB,5.8578E+00_JPRB/)
8706
KBO( :, 5,57,11) = (/&
8707
6
 & 2.6062E-02_JPRB,2.1481E+00_JPRB,3.9566E+00_JPRB,5.4903E+00_JPRB,6.5663E+00_JPRB/)
8708
KBO( :, 1,58,11) = (/&
8709
6
 & 8.5190E-04_JPRB,9.5769E-01_JPRB,1.7770E+00_JPRB,2.4580E+00_JPRB,3.0673E+00_JPRB/)
8710
KBO( :, 2,58,11) = (/&
8711
6
 & 2.2048E-03_JPRB,1.2510E+00_JPRB,2.3247E+00_JPRB,3.2249E+00_JPRB,3.9528E+00_JPRB/)
8712
KBO( :, 3,58,11) = (/&
8713
6
 & 5.1227E-03_JPRB,1.5404E+00_JPRB,2.8593E+00_JPRB,3.9742E+00_JPRB,4.8120E+00_JPRB/)
8714
KBO( :, 4,58,11) = (/&
8715
6
 & 1.0857E-02_JPRB,1.8165E+00_JPRB,3.3607E+00_JPRB,4.6761E+00_JPRB,5.6102E+00_JPRB/)
8716
KBO( :, 5,58,11) = (/&
8717
6
 & 2.1207E-02_JPRB,2.0743E+00_JPRB,3.8247E+00_JPRB,5.3111E+00_JPRB,6.3315E+00_JPRB/)
8718
KBO( :, 1,59,11) = (/&
8719
6
 & 6.9156E-04_JPRB,9.2148E-01_JPRB,1.7091E+00_JPRB,2.3639E+00_JPRB,2.9470E+00_JPRB/)
8720
KBO( :, 2,59,11) = (/&
8721
6
 & 1.8554E-03_JPRB,1.2146E+00_JPRB,2.2573E+00_JPRB,3.1301E+00_JPRB,3.8229E+00_JPRB/)
8722
KBO( :, 3,59,11) = (/&
8723
6
 & 4.4546E-03_JPRB,1.5052E+00_JPRB,2.7951E+00_JPRB,3.8834E+00_JPRB,4.6728E+00_JPRB/)
8724
KBO( :, 4,59,11) = (/&
8725
6
 & 9.7022E-03_JPRB,1.7833E+00_JPRB,3.3009E+00_JPRB,4.5928E+00_JPRB,5.4696E+00_JPRB/)
8726
KBO( :, 5,59,11) = (/&
8727
6
 & 1.9310E-02_JPRB,2.0440E+00_JPRB,3.7699E+00_JPRB,5.2372E+00_JPRB,6.1828E+00_JPRB/)
8728
KBO( :, 1,13,12) = (/&
8729
6
 & 1.6565E+00_JPRB,1.7848E+00_JPRB,2.5700E+00_JPRB,3.5717E+00_JPRB,4.5988E+00_JPRB/)
8730
KBO( :, 2,13,12) = (/&
8731
6
 & 2.4215E+00_JPRB,2.1271E+00_JPRB,2.6999E+00_JPRB,3.5485E+00_JPRB,4.4641E+00_JPRB/)
8732
KBO( :, 3,13,12) = (/&
8733
6
 & 3.3369E+00_JPRB,2.6815E+00_JPRB,2.9576E+00_JPRB,3.5009E+00_JPRB,4.3216E+00_JPRB/)
8734
KBO( :, 4,13,12) = (/&
8735
6
 & 4.4039E+00_JPRB,3.4401E+00_JPRB,3.2679E+00_JPRB,3.4869E+00_JPRB,4.1798E+00_JPRB/)
8736
KBO( :, 5,13,12) = (/&
8737
6
 & 5.5941E+00_JPRB,4.3251E+00_JPRB,3.6079E+00_JPRB,3.5523E+00_JPRB,4.0718E+00_JPRB/)
8738
KBO( :, 1,14,12) = (/&
8739
6
 & 1.7762E+00_JPRB,1.9421E+00_JPRB,2.7864E+00_JPRB,3.8795E+00_JPRB,4.9959E+00_JPRB/)
8740
KBO( :, 2,14,12) = (/&
8741
6
 & 2.5729E+00_JPRB,2.3289E+00_JPRB,2.9407E+00_JPRB,3.8344E+00_JPRB,4.8460E+00_JPRB/)
8742
KBO( :, 3,14,12) = (/&
8743
6
 & 3.5256E+00_JPRB,2.8532E+00_JPRB,3.1735E+00_JPRB,3.7815E+00_JPRB,4.6937E+00_JPRB/)
8744
KBO( :, 4,14,12) = (/&
8745
6
 & 4.6225E+00_JPRB,3.6062E+00_JPRB,3.4878E+00_JPRB,3.7727E+00_JPRB,4.5592E+00_JPRB/)
8746
KBO( :, 5,14,12) = (/&
8747
6
 & 5.8383E+00_JPRB,4.5040E+00_JPRB,3.8887E+00_JPRB,3.8650E+00_JPRB,4.4445E+00_JPRB/)
8748
KBO( :, 1,15,12) = (/&
8749
6
 & 1.8721E+00_JPRB,2.1191E+00_JPRB,3.0241E+00_JPRB,4.2075E+00_JPRB,5.4430E+00_JPRB/)
8750
KBO( :, 2,15,12) = (/&
8751
6
 & 2.6862E+00_JPRB,2.5250E+00_JPRB,3.1995E+00_JPRB,4.1499E+00_JPRB,5.2993E+00_JPRB/)
8752
KBO( :, 3,15,12) = (/&
8753
6
 & 3.6549E+00_JPRB,3.0295E+00_JPRB,3.4400E+00_JPRB,4.1044E+00_JPRB,5.1665E+00_JPRB/)
8754
KBO( :, 4,15,12) = (/&
8755
6
 & 4.7570E+00_JPRB,3.7259E+00_JPRB,3.7691E+00_JPRB,4.1180E+00_JPRB,5.0472E+00_JPRB/)
8756
KBO( :, 5,15,12) = (/&
8757
6
 & 5.9648E+00_JPRB,4.5949E+00_JPRB,4.1611E+00_JPRB,4.2079E+00_JPRB,4.9426E+00_JPRB/)
8758
KBO( :, 1,16,12) = (/&
8759
6
 & 1.9290E+00_JPRB,2.3038E+00_JPRB,3.3146E+00_JPRB,4.6435E+00_JPRB,6.0407E+00_JPRB/)
8760
KBO( :, 2,16,12) = (/&
8761
6
 & 2.7431E+00_JPRB,2.7084E+00_JPRB,3.4673E+00_JPRB,4.5698E+00_JPRB,5.8966E+00_JPRB/)
8762
KBO( :, 3,16,12) = (/&
8763
6
 & 3.6970E+00_JPRB,3.2040E+00_JPRB,3.7345E+00_JPRB,4.5214E+00_JPRB,5.7687E+00_JPRB/)
8764
KBO( :, 4,16,12) = (/&
8765
6
 & 4.7715E+00_JPRB,3.8272E+00_JPRB,4.0666E+00_JPRB,4.5545E+00_JPRB,5.6476E+00_JPRB/)
8766
KBO( :, 5,16,12) = (/&
8767
6
 & 5.9496E+00_JPRB,4.6127E+00_JPRB,4.4402E+00_JPRB,4.6207E+00_JPRB,5.5338E+00_JPRB/)
8768
KBO( :, 1,17,12) = (/&
8769
6
 & 1.9373E+00_JPRB,2.4828E+00_JPRB,3.6697E+00_JPRB,5.1796E+00_JPRB,6.7612E+00_JPRB/)
8770
KBO( :, 2,17,12) = (/&
8771
6
 & 2.7255E+00_JPRB,2.8755E+00_JPRB,3.8159E+00_JPRB,5.1042E+00_JPRB,6.6167E+00_JPRB/)
8772
KBO( :, 3,17,12) = (/&
8773
6
 & 3.6395E+00_JPRB,3.3552E+00_JPRB,4.0591E+00_JPRB,5.0640E+00_JPRB,6.4791E+00_JPRB/)
8774
KBO( :, 4,17,12) = (/&
8775
6
 & 4.6714E+00_JPRB,3.9092E+00_JPRB,4.3629E+00_JPRB,5.0919E+00_JPRB,6.3471E+00_JPRB/)
8776
KBO( :, 5,17,12) = (/&
8777
6
 & 5.8138E+00_JPRB,4.6040E+00_JPRB,4.7123E+00_JPRB,5.1320E+00_JPRB,6.2136E+00_JPRB/)
8778
KBO( :, 1,18,12) = (/&
8779
6
 & 1.8923E+00_JPRB,2.6601E+00_JPRB,4.0950E+00_JPRB,5.7689E+00_JPRB,7.5292E+00_JPRB/)
8780
KBO( :, 2,18,12) = (/&
8781
6
 & 2.6358E+00_JPRB,3.0291E+00_JPRB,4.2495E+00_JPRB,5.7045E+00_JPRB,7.3896E+00_JPRB/)
8782
KBO( :, 3,18,12) = (/&
8783
6
 & 3.5005E+00_JPRB,3.4699E+00_JPRB,4.4508E+00_JPRB,5.6824E+00_JPRB,7.2449E+00_JPRB/)
8784
KBO( :, 4,18,12) = (/&
8785
6
 & 4.4831E+00_JPRB,3.9859E+00_JPRB,4.6968E+00_JPRB,5.6976E+00_JPRB,7.0972E+00_JPRB/)
8786
KBO( :, 5,18,12) = (/&
8787
6
 & 5.5803E+00_JPRB,4.6005E+00_JPRB,4.9912E+00_JPRB,5.7191E+00_JPRB,6.9473E+00_JPRB/)
8788
KBO( :, 1,19,12) = (/&
8789
6
 & 1.8026E+00_JPRB,2.8675E+00_JPRB,4.5643E+00_JPRB,6.3966E+00_JPRB,8.3446E+00_JPRB/)
8790
KBO( :, 2,19,12) = (/&
8791
6
 & 2.4955E+00_JPRB,3.1750E+00_JPRB,4.7346E+00_JPRB,6.3280E+00_JPRB,8.1858E+00_JPRB/)
8792
KBO( :, 3,19,12) = (/&
8793
6
 & 3.3065E+00_JPRB,3.5656E+00_JPRB,4.9096E+00_JPRB,6.3278E+00_JPRB,8.0274E+00_JPRB/)
8794
KBO( :, 4,19,12) = (/&
8795
6
 & 4.2336E+00_JPRB,4.0373E+00_JPRB,5.1018E+00_JPRB,6.3400E+00_JPRB,7.8734E+00_JPRB/)
8796
KBO( :, 5,19,12) = (/&
8797
6
 & 5.2638E+00_JPRB,4.5965E+00_JPRB,5.3281E+00_JPRB,6.3749E+00_JPRB,7.7186E+00_JPRB/)
8798
KBO( :, 1,20,12) = (/&
8799
6
 & 1.6924E+00_JPRB,3.1159E+00_JPRB,5.0615E+00_JPRB,7.0193E+00_JPRB,9.1509E+00_JPRB/)
8800
8801
1
IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART29',1,ZHOOK_HANDLE)
8802
1
END SUBROUTINE PART29
8803
8804
8805
1
SUBROUTINE PART30
8806
8807
REAL(KIND=JPRB) :: ZHOOK_HANDLE
8808
1
IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART30',0,ZHOOK_HANDLE)
8809
8810
8811
KBO( :, 2,20,12) = (/&
8812
6
 & 2.3342E+00_JPRB,3.3609E+00_JPRB,5.2475E+00_JPRB,6.9651E+00_JPRB,8.9802E+00_JPRB/)
8813
KBO( :, 3,20,12) = (/&
8814
6
 & 3.0883E+00_JPRB,3.6808E+00_JPRB,5.4216E+00_JPRB,6.9801E+00_JPRB,8.8129E+00_JPRB/)
8815
KBO( :, 4,20,12) = (/&
8816
6
 & 3.9463E+00_JPRB,4.0848E+00_JPRB,5.5777E+00_JPRB,7.0012E+00_JPRB,8.6463E+00_JPRB/)
8817
KBO( :, 5,20,12) = (/&
8818
6
 & 4.8961E+00_JPRB,4.5736E+00_JPRB,5.7512E+00_JPRB,7.0663E+00_JPRB,8.4743E+00_JPRB/)
8819
KBO( :, 1,21,12) = (/&
8820
6
 & 1.5690E+00_JPRB,3.3918E+00_JPRB,5.5679E+00_JPRB,7.6325E+00_JPRB,9.9359E+00_JPRB/)
8821
KBO( :, 2,21,12) = (/&
8822
6
 & 2.1586E+00_JPRB,3.5959E+00_JPRB,5.7632E+00_JPRB,7.6131E+00_JPRB,9.7631E+00_JPRB/)
8823
KBO( :, 3,21,12) = (/&
8824
6
 & 2.8476E+00_JPRB,3.8439E+00_JPRB,5.9415E+00_JPRB,7.6317E+00_JPRB,9.5829E+00_JPRB/)
8825
KBO( :, 4,21,12) = (/&
8826
6
 & 3.6276E+00_JPRB,4.1634E+00_JPRB,6.0894E+00_JPRB,7.6838E+00_JPRB,9.4023E+00_JPRB/)
8827
KBO( :, 5,21,12) = (/&
8828
6
 & 4.4917E+00_JPRB,4.5642E+00_JPRB,6.2271E+00_JPRB,7.7630E+00_JPRB,9.2137E+00_JPRB/)
8829
KBO( :, 1,22,12) = (/&
8830
6
 & 1.4699E+00_JPRB,3.6838E+00_JPRB,6.0744E+00_JPRB,8.2202E+00_JPRB,1.0664E+01_JPRB/)
8831
KBO( :, 2,22,12) = (/&
8832
6
 & 2.0081E+00_JPRB,3.8770E+00_JPRB,6.2779E+00_JPRB,8.2401E+00_JPRB,1.0485E+01_JPRB/)
8833
KBO( :, 3,22,12) = (/&
8834
6
 & 2.6322E+00_JPRB,4.0768E+00_JPRB,6.4526E+00_JPRB,8.2804E+00_JPRB,1.0306E+01_JPRB/)
8835
KBO( :, 4,22,12) = (/&
8836
6
 & 3.3385E+00_JPRB,4.3174E+00_JPRB,6.6003E+00_JPRB,8.3666E+00_JPRB,1.0115E+01_JPRB/)
8837
KBO( :, 5,22,12) = (/&
8838
6
 & 4.1224E+00_JPRB,4.6294E+00_JPRB,6.7220E+00_JPRB,8.4420E+00_JPRB,9.9167E+00_JPRB/)
8839
KBO( :, 1,23,12) = (/&
8840
6
 & 1.3635E+00_JPRB,3.9535E+00_JPRB,6.5578E+00_JPRB,8.7891E+00_JPRB,1.1317E+01_JPRB/)
8841
KBO( :, 2,23,12) = (/&
8842
6
 & 1.8479E+00_JPRB,4.1472E+00_JPRB,6.7653E+00_JPRB,8.8306E+00_JPRB,1.1151E+01_JPRB/)
8843
KBO( :, 3,23,12) = (/&
8844
6
 & 2.4090E+00_JPRB,4.3291E+00_JPRB,6.9299E+00_JPRB,8.9124E+00_JPRB,1.0971E+01_JPRB/)
8845
KBO( :, 4,23,12) = (/&
8846
6
 & 3.0476E+00_JPRB,4.5186E+00_JPRB,7.0757E+00_JPRB,9.0158E+00_JPRB,1.0781E+01_JPRB/)
8847
KBO( :, 5,23,12) = (/&
8848
6
 & 3.7677E+00_JPRB,4.7466E+00_JPRB,7.1916E+00_JPRB,9.0858E+00_JPRB,1.0580E+01_JPRB/)
8849
KBO( :, 1,24,12) = (/&
8850
6
 & 1.2524E+00_JPRB,4.1964E+00_JPRB,7.0027E+00_JPRB,9.3088E+00_JPRB,1.1891E+01_JPRB/)
8851
KBO( :, 2,24,12) = (/&
8852
6
 & 1.6860E+00_JPRB,4.3866E+00_JPRB,7.2061E+00_JPRB,9.3894E+00_JPRB,1.1740E+01_JPRB/)
8853
KBO( :, 3,24,12) = (/&
8854
6
 & 2.1916E+00_JPRB,4.5632E+00_JPRB,7.3707E+00_JPRB,9.5161E+00_JPRB,1.1574E+01_JPRB/)
8855
KBO( :, 4,24,12) = (/&
8856
6
 & 2.7755E+00_JPRB,4.7310E+00_JPRB,7.5040E+00_JPRB,9.6239E+00_JPRB,1.1390E+01_JPRB/)
8857
KBO( :, 5,24,12) = (/&
8858
6
 & 3.4421E+00_JPRB,4.9112E+00_JPRB,7.6141E+00_JPRB,9.6873E+00_JPRB,1.1189E+01_JPRB/)
8859
KBO( :, 1,25,12) = (/&
8860
6
 & 1.1444E+00_JPRB,4.4093E+00_JPRB,7.3963E+00_JPRB,9.7702E+00_JPRB,1.2380E+01_JPRB/)
8861
KBO( :, 2,25,12) = (/&
8862
6
 & 1.5338E+00_JPRB,4.5946E+00_JPRB,7.5950E+00_JPRB,9.9140E+00_JPRB,1.2253E+01_JPRB/)
8863
KBO( :, 3,25,12) = (/&
8864
6
 & 1.9951E+00_JPRB,4.7679E+00_JPRB,7.7559E+00_JPRB,1.0074E+01_JPRB,1.2101E+01_JPRB/)
8865
KBO( :, 4,25,12) = (/&
8866
6
 & 2.5340E+00_JPRB,4.9285E+00_JPRB,7.8837E+00_JPRB,1.0178E+01_JPRB,1.1928E+01_JPRB/)
8867
KBO( :, 5,25,12) = (/&
8868
6
 & 3.1490E+00_JPRB,5.0856E+00_JPRB,7.9862E+00_JPRB,1.0230E+01_JPRB,1.1731E+01_JPRB/)
8869
KBO( :, 1,26,12) = (/&
8870
6
 & 1.0478E+00_JPRB,4.5874E+00_JPRB,7.7327E+00_JPRB,1.0197E+01_JPRB,1.2777E+01_JPRB/)
8871
KBO( :, 2,26,12) = (/&
8872
6
 & 1.4034E+00_JPRB,4.7724E+00_JPRB,7.9352E+00_JPRB,1.0399E+01_JPRB,1.2676E+01_JPRB/)
8873
KBO( :, 3,26,12) = (/&
8874
6
 & 1.8290E+00_JPRB,4.9445E+00_JPRB,8.0940E+00_JPRB,1.0560E+01_JPRB,1.2548E+01_JPRB/)
8875
KBO( :, 4,26,12) = (/&
8876
6
 & 2.3262E+00_JPRB,5.0995E+00_JPRB,8.2175E+00_JPRB,1.0662E+01_JPRB,1.2385E+01_JPRB/)
8877
KBO( :, 5,26,12) = (/&
8878
6
 & 2.8994E+00_JPRB,5.2504E+00_JPRB,8.3168E+00_JPRB,1.0708E+01_JPRB,1.2185E+01_JPRB/)
8879
KBO( :, 1,27,12) = (/&
8880
6
 & 9.6295E-01_JPRB,4.7357E+00_JPRB,8.0186E+00_JPRB,1.0582E+01_JPRB,1.3091E+01_JPRB/)
8881
KBO( :, 2,27,12) = (/&
8882
6
 & 1.2910E+00_JPRB,4.9215E+00_JPRB,8.2248E+00_JPRB,1.0814E+01_JPRB,1.3028E+01_JPRB/)
8883
KBO( :, 3,27,12) = (/&
8884
6
 & 1.6838E+00_JPRB,5.0898E+00_JPRB,8.3871E+00_JPRB,1.0984E+01_JPRB,1.2918E+01_JPRB/)
8885
KBO( :, 4,27,12) = (/&
8886
6
 & 2.1466E+00_JPRB,5.2404E+00_JPRB,8.5110E+00_JPRB,1.1084E+01_JPRB,1.2766E+01_JPRB/)
8887
KBO( :, 5,27,12) = (/&
8888
6
 & 2.6872E+00_JPRB,5.3861E+00_JPRB,8.6027E+00_JPRB,1.1128E+01_JPRB,1.2572E+01_JPRB/)
8889
KBO( :, 1,28,12) = (/&
8890
6
 & 8.9212E-01_JPRB,4.8606E+00_JPRB,8.2568E+00_JPRB,1.0928E+01_JPRB,1.3355E+01_JPRB/)
8891
KBO( :, 2,28,12) = (/&
8892
6
 & 1.1960E+00_JPRB,5.0446E+00_JPRB,8.4744E+00_JPRB,1.1178E+01_JPRB,1.3316E+01_JPRB/)
8893
KBO( :, 3,28,12) = (/&
8894
6
 & 1.5631E+00_JPRB,5.2061E+00_JPRB,8.6403E+00_JPRB,1.1353E+01_JPRB,1.3227E+01_JPRB/)
8895
KBO( :, 4,28,12) = (/&
8896
6
 & 2.0020E+00_JPRB,5.3547E+00_JPRB,8.7642E+00_JPRB,1.1451E+01_JPRB,1.3084E+01_JPRB/)
8897
KBO( :, 5,28,12) = (/&
8898
6
 & 2.5209E+00_JPRB,5.4919E+00_JPRB,8.8461E+00_JPRB,1.1491E+01_JPRB,1.2898E+01_JPRB/)
8899
KBO( :, 1,29,12) = (/&
8900
6
 & 8.3439E-01_JPRB,4.9630E+00_JPRB,8.4638E+00_JPRB,1.1240E+01_JPRB,1.3569E+01_JPRB/)
8901
KBO( :, 2,29,12) = (/&
8902
6
 & 1.1207E+00_JPRB,5.1454E+00_JPRB,8.6875E+00_JPRB,1.1503E+01_JPRB,1.3552E+01_JPRB/)
8903
KBO( :, 3,29,12) = (/&
8904
6
 & 1.4717E+00_JPRB,5.3013E+00_JPRB,8.8580E+00_JPRB,1.1673E+01_JPRB,1.3478E+01_JPRB/)
8905
KBO( :, 4,29,12) = (/&
8906
6
 & 1.8931E+00_JPRB,5.4461E+00_JPRB,8.9793E+00_JPRB,1.1770E+01_JPRB,1.3347E+01_JPRB/)
8907
KBO( :, 5,29,12) = (/&
8908
6
 & 2.3917E+00_JPRB,5.5710E+00_JPRB,9.0514E+00_JPRB,1.1806E+01_JPRB,1.3171E+01_JPRB/)
8909
KBO( :, 1,30,12) = (/&
8910
6
 & 7.8953E-01_JPRB,5.0479E+00_JPRB,8.6488E+00_JPRB,1.1520E+01_JPRB,1.3753E+01_JPRB/)
8911
KBO( :, 2,30,12) = (/&
8912
6
 & 1.0632E+00_JPRB,5.2264E+00_JPRB,8.8753E+00_JPRB,1.1783E+01_JPRB,1.3755E+01_JPRB/)
8913
KBO( :, 3,30,12) = (/&
8914
6
 & 1.4002E+00_JPRB,5.3769E+00_JPRB,9.0463E+00_JPRB,1.1951E+01_JPRB,1.3696E+01_JPRB/)
8915
KBO( :, 4,30,12) = (/&
8916
6
 & 1.8078E+00_JPRB,5.5153E+00_JPRB,9.1561E+00_JPRB,1.2049E+01_JPRB,1.3577E+01_JPRB/)
8917
KBO( :, 5,30,12) = (/&
8918
6
 & 2.2911E+00_JPRB,5.6294E+00_JPRB,9.2248E+00_JPRB,1.2077E+01_JPRB,1.3407E+01_JPRB/)
8919
KBO( :, 1,31,12) = (/&
8920
6
 & 7.5763E-01_JPRB,5.1182E+00_JPRB,8.8135E+00_JPRB,1.1775E+01_JPRB,1.3909E+01_JPRB/)
8921
KBO( :, 2,31,12) = (/&
8922
6
 & 1.0216E+00_JPRB,5.2915E+00_JPRB,9.0421E+00_JPRB,1.2027E+01_JPRB,1.3937E+01_JPRB/)
8923
KBO( :, 3,31,12) = (/&
8924
6
 & 1.3478E+00_JPRB,5.4413E+00_JPRB,9.2028E+00_JPRB,1.2197E+01_JPRB,1.3886E+01_JPRB/)
8925
KBO( :, 4,31,12) = (/&
8926
6
 & 1.7441E+00_JPRB,5.5694E+00_JPRB,9.3055E+00_JPRB,1.2288E+01_JPRB,1.3772E+01_JPRB/)
8927
KBO( :, 5,31,12) = (/&
8928
6
 & 2.2144E+00_JPRB,5.6760E+00_JPRB,9.3680E+00_JPRB,1.2303E+01_JPRB,1.3606E+01_JPRB/)
8929
KBO( :, 1,32,12) = (/&
8930
6
 & 7.3463E-01_JPRB,5.1776E+00_JPRB,8.9653E+00_JPRB,1.1995E+01_JPRB,1.4066E+01_JPRB/)
8931
KBO( :, 2,32,12) = (/&
8932
6
 & 9.9287E-01_JPRB,5.3488E+00_JPRB,9.1823E+00_JPRB,1.2248E+01_JPRB,1.4093E+01_JPRB/)
8933
KBO( :, 3,32,12) = (/&
8934
6
 & 1.3124E+00_JPRB,5.4937E+00_JPRB,9.3364E+00_JPRB,1.2412E+01_JPRB,1.4048E+01_JPRB/)
8935
KBO( :, 4,32,12) = (/&
8936
6
 & 1.6979E+00_JPRB,5.6116E+00_JPRB,9.4348E+00_JPRB,1.2490E+01_JPRB,1.3938E+01_JPRB/)
8937
KBO( :, 5,32,12) = (/&
8938
6
 & 2.1569E+00_JPRB,5.7180E+00_JPRB,9.4915E+00_JPRB,1.2493E+01_JPRB,1.3768E+01_JPRB/)
8939
KBO( :, 1,33,12) = (/&
8940
6
 & 7.1977E-01_JPRB,5.2298E+00_JPRB,9.0982E+00_JPRB,1.2196E+01_JPRB,1.4201E+01_JPRB/)
8941
KBO( :, 2,33,12) = (/&
8942
6
 & 9.7359E-01_JPRB,5.3967E+00_JPRB,9.3054E+00_JPRB,1.2444E+01_JPRB,1.4231E+01_JPRB/)
8943
KBO( :, 3,33,12) = (/&
8944
6
 & 1.2863E+00_JPRB,5.5361E+00_JPRB,9.4542E+00_JPRB,1.2592E+01_JPRB,1.4192E+01_JPRB/)
8945
KBO( :, 4,33,12) = (/&
8946
6
 & 1.6635E+00_JPRB,5.6471E+00_JPRB,9.5434E+00_JPRB,1.2656E+01_JPRB,1.4080E+01_JPRB/)
8947
KBO( :, 5,33,12) = (/&
8948
6
 & 2.1169E+00_JPRB,5.7606E+00_JPRB,9.5939E+00_JPRB,1.2650E+01_JPRB,1.3912E+01_JPRB/)
8949
KBO( :, 1,34,12) = (/&
8950
6
 & 7.0357E-01_JPRB,5.2718E+00_JPRB,9.2058E+00_JPRB,1.2367E+01_JPRB,1.4318E+01_JPRB/)
8951
KBO( :, 2,34,12) = (/&
8952
6
 & 9.5100E-01_JPRB,5.4364E+00_JPRB,9.4086E+00_JPRB,1.2603E+01_JPRB,1.4360E+01_JPRB/)
8953
KBO( :, 3,34,12) = (/&
8954
6
 & 1.2571E+00_JPRB,5.5683E+00_JPRB,9.5524E+00_JPRB,1.2741E+01_JPRB,1.4321E+01_JPRB/)
8955
KBO( :, 4,34,12) = (/&
8956
6
 & 1.6282E+00_JPRB,5.6772E+00_JPRB,9.6331E+00_JPRB,1.2794E+01_JPRB,1.4205E+01_JPRB/)
8957
KBO( :, 5,34,12) = (/&
8958
6
 & 2.0759E+00_JPRB,5.7973E+00_JPRB,9.6806E+00_JPRB,1.2780E+01_JPRB,1.4057E+01_JPRB/)
8959
KBO( :, 1,35,12) = (/&
8960
6
 & 6.7127E-01_JPRB,5.2954E+00_JPRB,9.2834E+00_JPRB,1.2496E+01_JPRB,1.4429E+01_JPRB/)
8961
KBO( :, 2,35,12) = (/&
8962
6
 & 9.0855E-01_JPRB,5.4587E+00_JPRB,9.4864E+00_JPRB,1.2723E+01_JPRB,1.4480E+01_JPRB/)
8963
KBO( :, 3,35,12) = (/&
8964
6
 & 1.2033E+00_JPRB,5.5864E+00_JPRB,9.6267E+00_JPRB,1.2858E+01_JPRB,1.4440E+01_JPRB/)
8965
KBO( :, 4,35,12) = (/&
8966
6
 & 1.5648E+00_JPRB,5.6975E+00_JPRB,9.7046E+00_JPRB,1.2909E+01_JPRB,1.4336E+01_JPRB/)
8967
KBO( :, 5,35,12) = (/&
8968
6
 & 2.0039E+00_JPRB,5.8207E+00_JPRB,9.7512E+00_JPRB,1.2890E+01_JPRB,1.4208E+01_JPRB/)
8969
KBO( :, 1,36,12) = (/&
8970
6
 & 6.2192E-01_JPRB,5.2979E+00_JPRB,9.3271E+00_JPRB,1.2576E+01_JPRB,1.4520E+01_JPRB/)
8971
KBO( :, 2,36,12) = (/&
8972
6
 & 8.4546E-01_JPRB,5.4637E+00_JPRB,9.5367E+00_JPRB,1.2809E+01_JPRB,1.4583E+01_JPRB/)
8973
KBO( :, 3,36,12) = (/&
8974
6
 & 1.1251E+00_JPRB,5.5908E+00_JPRB,9.6790E+00_JPRB,1.2948E+01_JPRB,1.4550E+01_JPRB/)
8975
KBO( :, 4,36,12) = (/&
8976
6
 & 1.4725E+00_JPRB,5.7038E+00_JPRB,9.7597E+00_JPRB,1.3004E+01_JPRB,1.4471E+01_JPRB/)
8977
KBO( :, 5,36,12) = (/&
8978
6
 & 1.8981E+00_JPRB,5.8306E+00_JPRB,9.8077E+00_JPRB,1.2987E+01_JPRB,1.4353E+01_JPRB/)
8979
KBO( :, 1,37,12) = (/&
8980
6
 & 5.5089E-01_JPRB,5.2730E+00_JPRB,9.3242E+00_JPRB,1.2595E+01_JPRB,1.4578E+01_JPRB/)
8981
KBO( :, 2,37,12) = (/&
8982
6
 & 7.5546E-01_JPRB,5.4446E+00_JPRB,9.5503E+00_JPRB,1.2851E+01_JPRB,1.4663E+01_JPRB/)
8983
KBO( :, 3,37,12) = (/&
8984
6
 & 1.0138E+00_JPRB,5.5779E+00_JPRB,9.7054E+00_JPRB,1.3008E+01_JPRB,1.4649E+01_JPRB/)
8985
KBO( :, 4,37,12) = (/&
8986
6
 & 1.3388E+00_JPRB,5.6937E+00_JPRB,9.7968E+00_JPRB,1.3080E+01_JPRB,1.4599E+01_JPRB/)
8987
KBO( :, 5,37,12) = (/&
8988
6
 & 1.7405E+00_JPRB,5.8196E+00_JPRB,9.8483E+00_JPRB,1.3074E+01_JPRB,1.4497E+01_JPRB/)
8989
KBO( :, 1,38,12) = (/&
8990
6
 & 4.8774E-01_JPRB,5.2446E+00_JPRB,9.3121E+00_JPRB,1.2598E+01_JPRB,1.4624E+01_JPRB/)
8991
KBO( :, 2,38,12) = (/&
8992
6
 & 6.7596E-01_JPRB,5.4236E+00_JPRB,9.5535E+00_JPRB,1.2878E+01_JPRB,1.4727E+01_JPRB/)
8993
KBO( :, 3,38,12) = (/&
8994
6
 & 9.1580E-01_JPRB,5.5635E+00_JPRB,9.7210E+00_JPRB,1.3053E+01_JPRB,1.4738E+01_JPRB/)
8995
KBO( :, 4,38,12) = (/&
8996
6
 & 1.2196E+00_JPRB,5.6813E+00_JPRB,9.8236E+00_JPRB,1.3139E+01_JPRB,1.4721E+01_JPRB/)
8997
KBO( :, 5,38,12) = (/&
8998
6
 & 1.5995E+00_JPRB,5.8073E+00_JPRB,9.8794E+00_JPRB,1.3147E+01_JPRB,1.4637E+01_JPRB/)
8999
KBO( :, 1,39,12) = (/&
9000
6
 & 4.3319E-01_JPRB,5.2171E+00_JPRB,9.2923E+00_JPRB,1.2591E+01_JPRB,1.4655E+01_JPRB/)
9001
KBO( :, 2,39,12) = (/&
9002
6
 & 6.0674E-01_JPRB,5.4013E+00_JPRB,9.5491E+00_JPRB,1.2892E+01_JPRB,1.4779E+01_JPRB/)
9003
KBO( :, 3,39,12) = (/&
9004
6
 & 8.3076E-01_JPRB,5.5491E+00_JPRB,9.7285E+00_JPRB,1.3083E+01_JPRB,1.4825E+01_JPRB/)
9005
KBO( :, 4,39,12) = (/&
9006
6
 & 1.1162E+00_JPRB,5.6693E+00_JPRB,9.8420E+00_JPRB,1.3183E+01_JPRB,1.4848E+01_JPRB/)
9007
KBO( :, 5,39,12) = (/&
9008
6
 & 1.4760E+00_JPRB,5.7939E+00_JPRB,9.9065E+00_JPRB,1.3208E+01_JPRB,1.4788E+01_JPRB/)
9009
KBO( :, 1,40,12) = (/&
9010
6
 & 3.7146E-01_JPRB,5.1676E+00_JPRB,9.2350E+00_JPRB,1.2533E+01_JPRB,1.4645E+01_JPRB/)
9011
KBO( :, 2,40,12) = (/&
9012
6
 & 5.2844E-01_JPRB,5.3608E+00_JPRB,9.5128E+00_JPRB,1.2866E+01_JPRB,1.4804E+01_JPRB/)
9013
KBO( :, 3,40,12) = (/&
9014
6
 & 7.3313E-01_JPRB,5.5191E+00_JPRB,9.7148E+00_JPRB,1.3086E+01_JPRB,1.4881E+01_JPRB/)
9015
KBO( :, 4,40,12) = (/&
9016
6
 & 9.9528E-01_JPRB,5.6415E+00_JPRB,9.8443E+00_JPRB,1.3210E+01_JPRB,1.4931E+01_JPRB/)
9017
KBO( :, 5,40,12) = (/&
9018
6
 & 1.3291E+00_JPRB,5.7657E+00_JPRB,9.9220E+00_JPRB,1.3255E+01_JPRB,1.4902E+01_JPRB/)
9019
KBO( :, 1,41,12) = (/&
9020
6
 & 3.1691E-01_JPRB,5.1123E+00_JPRB,9.1654E+00_JPRB,1.2453E+01_JPRB,1.4615E+01_JPRB/)
9021
KBO( :, 2,41,12) = (/&
9022
6
 & 4.5854E-01_JPRB,5.3141E+00_JPRB,9.4645E+00_JPRB,1.2820E+01_JPRB,1.4813E+01_JPRB/)
9023
KBO( :, 3,41,12) = (/&
9024
6
 & 6.4497E-01_JPRB,5.4832E+00_JPRB,9.6893E+00_JPRB,1.3072E+01_JPRB,1.4921E+01_JPRB/)
9025
KBO( :, 4,41,12) = (/&
9026
6
 & 8.8600E-01_JPRB,5.6149E+00_JPRB,9.8376E+00_JPRB,1.3222E+01_JPRB,1.5000E+01_JPRB/)
9027
KBO( :, 5,41,12) = (/&
9028
6
 & 1.1949E+00_JPRB,5.7388E+00_JPRB,9.9263E+00_JPRB,1.3289E+01_JPRB,1.5001E+01_JPRB/)
9029
KBO( :, 1,42,12) = (/&
9030
6
 & 2.6990E-01_JPRB,5.0545E+00_JPRB,9.0851E+00_JPRB,1.2357E+01_JPRB,1.4568E+01_JPRB/)
9031
KBO( :, 2,42,12) = (/&
9032
6
 & 3.9791E-01_JPRB,5.2666E+00_JPRB,9.4059E+00_JPRB,1.2762E+01_JPRB,1.4811E+01_JPRB/)
9033
KBO( :, 3,42,12) = (/&
9034
6
 & 5.6786E-01_JPRB,5.4473E+00_JPRB,9.6535E+00_JPRB,1.3042E+01_JPRB,1.4951E+01_JPRB/)
9035
KBO( :, 4,42,12) = (/&
9036
6
 & 7.8985E-01_JPRB,5.5889E+00_JPRB,9.8202E+00_JPRB,1.3220E+01_JPRB,1.5062E+01_JPRB/)
9037
KBO( :, 5,42,12) = (/&
9038
6
 & 1.0759E+00_JPRB,5.7103E+00_JPRB,9.9256E+00_JPRB,1.3308E+01_JPRB,1.5095E+01_JPRB/)
9039
KBO( :, 1,43,12) = (/&
9040
6
 & 2.2408E-01_JPRB,4.9801E+00_JPRB,8.9750E+00_JPRB,1.2220E+01_JPRB,1.4488E+01_JPRB/)
9041
KBO( :, 2,43,12) = (/&
9042
6
 & 3.3742E-01_JPRB,5.2050E+00_JPRB,9.3221E+00_JPRB,1.2666E+01_JPRB,1.4779E+01_JPRB/)
9043
KBO( :, 3,43,12) = (/&
9044
6
 & 4.9010E-01_JPRB,5.3960E+00_JPRB,9.5945E+00_JPRB,1.2984E+01_JPRB,1.4959E+01_JPRB/)
9045
KBO( :, 4,43,12) = (/&
9046
6
 & 6.9169E-01_JPRB,5.5493E+00_JPRB,9.7889E+00_JPRB,1.3197E+01_JPRB,1.5104E+01_JPRB/)
9047
KBO( :, 5,43,12) = (/&
9048
6
 & 9.5305E-01_JPRB,5.6745E+00_JPRB,9.9131E+00_JPRB,1.3310E+01_JPRB,1.5176E+01_JPRB/)
9049
KBO( :, 1,44,12) = (/&
9050
6
 & 1.8323E-01_JPRB,4.8933E+00_JPRB,8.8410E+00_JPRB,1.2051E+01_JPRB,1.4377E+01_JPRB/)
9051
KBO( :, 2,44,12) = (/&
9052
6
 & 2.8217E-01_JPRB,5.1330E+00_JPRB,9.2212E+00_JPRB,1.2543E+01_JPRB,1.4725E+01_JPRB/)
9053
KBO( :, 3,44,12) = (/&
9054
6
 & 4.1838E-01_JPRB,5.3347E+00_JPRB,9.5219E+00_JPRB,1.2906E+01_JPRB,1.4949E+01_JPRB/)
9055
KBO( :, 4,44,12) = (/&
9056
6
 & 5.9984E-01_JPRB,5.5043E+00_JPRB,9.7457E+00_JPRB,1.3153E+01_JPRB,1.5131E+01_JPRB/)
9057
KBO( :, 5,44,12) = (/&
9058
6
 & 8.3730E-01_JPRB,5.6361E+00_JPRB,9.8881E+00_JPRB,1.3302E+01_JPRB,1.5248E+01_JPRB/)
9059
KBO( :, 1,45,12) = (/&
9060
6
 & 1.4904E-01_JPRB,4.8014E+00_JPRB,8.6942E+00_JPRB,1.1857E+01_JPRB,1.4243E+01_JPRB/)
9061
KBO( :, 2,45,12) = (/&
9062
6
 & 2.3486E-01_JPRB,5.0590E+00_JPRB,9.1087E+00_JPRB,1.2404E+01_JPRB,1.4652E+01_JPRB/)
9063
KBO( :, 3,45,12) = (/&
9064
6
 & 3.5578E-01_JPRB,5.2728E+00_JPRB,9.4361E+00_JPRB,1.2811E+01_JPRB,1.4928E+01_JPRB/)
9065
KBO( :, 4,45,12) = (/&
9066
6
 & 5.1907E-01_JPRB,5.4551E+00_JPRB,9.6849E+00_JPRB,1.3095E+01_JPRB,1.5155E+01_JPRB/)
9067
KBO( :, 5,45,12) = (/&
9068
6
 & 7.3447E-01_JPRB,5.5970E+00_JPRB,9.8551E+00_JPRB,1.3278E+01_JPRB,1.5316E+01_JPRB/)
9069
KBO( :, 1,46,12) = (/&
9070
6
 & 1.1910E-01_JPRB,4.6973E+00_JPRB,8.5264E+00_JPRB,1.1635E+01_JPRB,1.4074E+01_JPRB/)
9071
KBO( :, 2,46,12) = (/&
9072
6
 & 1.9264E-01_JPRB,4.9713E+00_JPRB,8.9752E+00_JPRB,1.2231E+01_JPRB,1.4552E+01_JPRB/)
9073
KBO( :, 3,46,12) = (/&
9074
6
 & 2.9840E-01_JPRB,5.1994E+00_JPRB,9.3302E+00_JPRB,1.2687E+01_JPRB,1.4886E+01_JPRB/)
9075
KBO( :, 4,46,12) = (/&
9076
6
 & 4.4420E-01_JPRB,5.3934E+00_JPRB,9.6109E+00_JPRB,1.3017E+01_JPRB,1.5158E+01_JPRB/)
9077
KBO( :, 5,46,12) = (/&
9078
6
 & 6.3821E-01_JPRB,5.5501E+00_JPRB,9.8128E+00_JPRB,1.3236E+01_JPRB,1.5371E+01_JPRB/)
9079
KBO( :, 1,47,12) = (/&
9080
6
 & 9.2205E-02_JPRB,4.5728E+00_JPRB,8.3222E+00_JPRB,1.1357E+01_JPRB,1.3848E+01_JPRB/)
9081
KBO( :, 2,47,12) = (/&
9082
6
 & 1.5376E-01_JPRB,4.8658E+00_JPRB,8.8065E+00_JPRB,1.2014E+01_JPRB,1.4405E+01_JPRB/)
9083
KBO( :, 3,47,12) = (/&
9084
6
 & 2.4420E-01_JPRB,5.1135E+00_JPRB,9.2023E+00_JPRB,1.2528E+01_JPRB,1.4805E+01_JPRB/)
9085
KBO( :, 4,47,12) = (/&
9086
6
 & 3.7202E-01_JPRB,5.3206E+00_JPRB,9.5150E+00_JPRB,1.2907E+01_JPRB,1.5121E+01_JPRB/)
9087
KBO( :, 5,47,12) = (/&
9088
6
 & 5.4440E-01_JPRB,5.4945E+00_JPRB,9.7455E+00_JPRB,1.3168E+01_JPRB,1.5387E+01_JPRB/)
9089
KBO( :, 1,48,12) = (/&
9090
6
 & 7.0454E-02_JPRB,4.4412E+00_JPRB,8.1011E+00_JPRB,1.1048E+01_JPRB,1.3590E+01_JPRB/)
9091
KBO( :, 2,48,12) = (/&
9092
6
 & 1.2149E-01_JPRB,4.7546E+00_JPRB,8.6257E+00_JPRB,1.1771E+01_JPRB,1.4231E+01_JPRB/)
9093
KBO( :, 3,48,12) = (/&
9094
6
 & 1.9826E-01_JPRB,5.0205E+00_JPRB,9.0577E+00_JPRB,1.2345E+01_JPRB,1.4705E+01_JPRB/)
9095
KBO( :, 4,48,12) = (/&
9096
6
 & 3.0915E-01_JPRB,5.2415E+00_JPRB,9.3998E+00_JPRB,1.2778E+01_JPRB,1.5077E+01_JPRB/)
9097
KBO( :, 5,48,12) = (/&
9098
6
 & 4.6199E-01_JPRB,5.4308E+00_JPRB,9.6652E+00_JPRB,1.3083E+01_JPRB,1.5397E+01_JPRB/)
9099
KBO( :, 1,49,12) = (/&
9100
6
 & 5.3088E-02_JPRB,4.3008E+00_JPRB,7.8587E+00_JPRB,1.0710E+01_JPRB,1.3300E+01_JPRB/)
9101
9102
1
IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART30',1,ZHOOK_HANDLE)
9103
1
END SUBROUTINE PART30
9104
9105
9106
1
SUBROUTINE PART31
9107
9108
REAL(KIND=JPRB) :: ZHOOK_HANDLE
9109
1
IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART31',0,ZHOOK_HANDLE)
9110
9111
9112
KBO( :, 2,49,12) = (/&
9113
6
 & 9.4886E-02_JPRB,4.6325E+00_JPRB,8.4260E+00_JPRB,1.1503E+01_JPRB,1.4035E+01_JPRB/)
9114
KBO( :, 3,49,12) = (/&
9115
6
 & 1.5966E-01_JPRB,4.9173E+00_JPRB,8.8952E+00_JPRB,1.2135E+01_JPRB,1.4593E+01_JPRB/)
9116
KBO( :, 4,49,12) = (/&
9117
6
 & 2.5505E-01_JPRB,5.1573E+00_JPRB,9.2755E+00_JPRB,1.2624E+01_JPRB,1.5028E+01_JPRB/)
9118
KBO( :, 5,49,12) = (/&
9119
6
 & 3.8941E-01_JPRB,5.3580E+00_JPRB,9.5745E+00_JPRB,1.2980E+01_JPRB,1.5409E+01_JPRB/)
9120
KBO( :, 1,50,12) = (/&
9121
6
 & 4.0067E-02_JPRB,4.1596E+00_JPRB,7.6089E+00_JPRB,1.0372E+01_JPRB,1.2988E+01_JPRB/)
9122
KBO( :, 2,50,12) = (/&
9123
6
 & 7.4256E-02_JPRB,4.5125E+00_JPRB,8.2260E+00_JPRB,1.1225E+01_JPRB,1.3810E+01_JPRB/)
9124
KBO( :, 3,50,12) = (/&
9125
6
 & 1.2901E-01_JPRB,4.8174E+00_JPRB,8.7310E+00_JPRB,1.1915E+01_JPRB,1.4444E+01_JPRB/)
9126
KBO( :, 4,50,12) = (/&
9127
6
 & 2.1116E-01_JPRB,5.0740E+00_JPRB,9.1458E+00_JPRB,1.2461E+01_JPRB,1.4934E+01_JPRB/)
9128
KBO( :, 5,50,12) = (/&
9129
6
 & 3.2945E-01_JPRB,5.2879E+00_JPRB,9.4738E+00_JPRB,1.2866E+01_JPRB,1.5371E+01_JPRB/)
9130
KBO( :, 1,51,12) = (/&
9131
6
 & 3.0082E-02_JPRB,4.0166E+00_JPRB,7.3470E+00_JPRB,1.0024E+01_JPRB,1.2649E+01_JPRB/)
9132
KBO( :, 2,51,12) = (/&
9133
6
 & 5.7864E-02_JPRB,4.3904E+00_JPRB,8.0166E+00_JPRB,1.0930E+01_JPRB,1.3555E+01_JPRB/)
9134
KBO( :, 3,51,12) = (/&
9135
6
 & 1.0385E-01_JPRB,4.7103E+00_JPRB,8.5593E+00_JPRB,1.1684E+01_JPRB,1.4265E+01_JPRB/)
9136
KBO( :, 4,51,12) = (/&
9137
6
 & 1.7451E-01_JPRB,4.9838E+00_JPRB,9.0063E+00_JPRB,1.2280E+01_JPRB,1.4812E+01_JPRB/)
9138
KBO( :, 5,51,12) = (/&
9139
6
 & 2.7822E-01_JPRB,5.2130E+00_JPRB,9.3629E+00_JPRB,1.2735E+01_JPRB,1.5297E+01_JPRB/)
9140
KBO( :, 1,52,12) = (/&
9141
6
 & 2.2321E-02_JPRB,3.8633E+00_JPRB,7.0669E+00_JPRB,9.6645E+00_JPRB,1.2286E+01_JPRB/)
9142
KBO( :, 2,52,12) = (/&
9143
6
 & 4.4568E-02_JPRB,4.2586E+00_JPRB,7.7887E+00_JPRB,1.0615E+01_JPRB,1.3275E+01_JPRB/)
9144
KBO( :, 3,52,12) = (/&
9145
6
 & 8.2764E-02_JPRB,4.5976E+00_JPRB,8.3722E+00_JPRB,1.1430E+01_JPRB,1.4067E+01_JPRB/)
9146
KBO( :, 4,52,12) = (/&
9147
6
 & 1.4332E-01_JPRB,4.8897E+00_JPRB,8.8533E+00_JPRB,1.2081E+01_JPRB,1.4681E+01_JPRB/)
9148
KBO( :, 5,52,12) = (/&
9149
6
 & 2.3359E-01_JPRB,5.1350E+00_JPRB,9.2453E+00_JPRB,1.2589E+01_JPRB,1.5214E+01_JPRB/)
9150
KBO( :, 1,53,12) = (/&
9151
6
 & 1.6320E-02_JPRB,3.7017E+00_JPRB,6.7670E+00_JPRB,9.2859E+00_JPRB,1.1890E+01_JPRB/)
9152
KBO( :, 2,53,12) = (/&
9153
6
 & 3.3883E-02_JPRB,4.1210E+00_JPRB,7.5408E+00_JPRB,1.0281E+01_JPRB,1.2972E+01_JPRB/)
9154
KBO( :, 3,53,12) = (/&
9155
6
 & 6.5211E-02_JPRB,4.4803E+00_JPRB,8.1737E+00_JPRB,1.1152E+01_JPRB,1.3849E+01_JPRB/)
9156
KBO( :, 4,53,12) = (/&
9157
6
 & 1.1656E-01_JPRB,4.7901E+00_JPRB,8.6895E+00_JPRB,1.1861E+01_JPRB,1.4540E+01_JPRB/)
9158
KBO( :, 5,53,12) = (/&
9159
6
 & 1.9454E-01_JPRB,5.0513E+00_JPRB,9.1138E+00_JPRB,1.2423E+01_JPRB,1.5132E+01_JPRB/)
9160
KBO( :, 1,54,12) = (/&
9161
6
 & 1.2044E-02_JPRB,3.5460E+00_JPRB,6.4769E+00_JPRB,8.9175E+00_JPRB,1.1478E+01_JPRB/)
9162
KBO( :, 2,54,12) = (/&
9163
6
 & 2.6009E-02_JPRB,3.9878E+00_JPRB,7.2955E+00_JPRB,9.9571E+00_JPRB,1.2628E+01_JPRB/)
9164
KBO( :, 3,54,12) = (/&
9165
6
 & 5.1821E-02_JPRB,4.3666E+00_JPRB,7.9779E+00_JPRB,1.0876E+01_JPRB,1.3583E+01_JPRB/)
9166
KBO( :, 4,54,12) = (/&
9167
6
 & 9.5474E-02_JPRB,4.6901E+00_JPRB,8.5279E+00_JPRB,1.1644E+01_JPRB,1.4331E+01_JPRB/)
9168
KBO( :, 5,54,12) = (/&
9169
6
 & 1.6346E-01_JPRB,4.9679E+00_JPRB,8.9829E+00_JPRB,1.2251E+01_JPRB,1.4953E+01_JPRB/)
9170
KBO( :, 1,55,12) = (/&
9171
6
 & 8.8474E-03_JPRB,3.3874E+00_JPRB,6.1849E+00_JPRB,8.5463E+00_JPRB,1.1054E+01_JPRB/)
9172
KBO( :, 2,55,12) = (/&
9173
6
 & 1.9964E-02_JPRB,3.8514E+00_JPRB,7.0467E+00_JPRB,9.6387E+00_JPRB,1.2268E+01_JPRB/)
9174
KBO( :, 3,55,12) = (/&
9175
6
 & 4.1152E-02_JPRB,4.2498E+00_JPRB,7.7746E+00_JPRB,1.0596E+01_JPRB,1.3279E+01_JPRB/)
9176
KBO( :, 4,55,12) = (/&
9177
6
 & 7.8159E-02_JPRB,4.5905E+00_JPRB,8.3623E+00_JPRB,1.1417E+01_JPRB,1.4084E+01_JPRB/)
9178
KBO( :, 5,55,12) = (/&
9179
6
 & 1.3750E-01_JPRB,4.8845E+00_JPRB,8.8463E+00_JPRB,1.2073E+01_JPRB,1.4722E+01_JPRB/)
9180
KBO( :, 1,56,12) = (/&
9181
6
 & 6.4082E-03_JPRB,3.2244E+00_JPRB,5.8774E+00_JPRB,8.1652E+00_JPRB,1.0610E+01_JPRB/)
9182
KBO( :, 2,56,12) = (/&
9183
6
 & 1.5162E-02_JPRB,3.7100E+00_JPRB,6.7838E+00_JPRB,9.3060E+00_JPRB,1.1893E+01_JPRB/)
9184
KBO( :, 3,56,12) = (/&
9185
6
 & 3.2388E-02_JPRB,4.1289E+00_JPRB,7.5561E+00_JPRB,1.0301E+01_JPRB,1.2952E+01_JPRB/)
9186
KBO( :, 4,56,12) = (/&
9187
6
 & 6.3471E-02_JPRB,4.4879E+00_JPRB,8.1882E+00_JPRB,1.1172E+01_JPRB,1.3823E+01_JPRB/)
9188
KBO( :, 5,56,12) = (/&
9189
6
 & 1.1487E-01_JPRB,4.7971E+00_JPRB,8.7028E+00_JPRB,1.1880E+01_JPRB,1.4496E+01_JPRB/)
9190
KBO( :, 1,57,12) = (/&
9191
6
 & 4.5631E-03_JPRB,3.0511E+00_JPRB,5.5587E+00_JPRB,7.7750E+00_JPRB,1.0138E+01_JPRB/)
9192
KBO( :, 2,57,12) = (/&
9193
6
 & 1.1368E-02_JPRB,3.5622E+00_JPRB,6.5073E+00_JPRB,8.9555E+00_JPRB,1.1499E+01_JPRB/)
9194
KBO( :, 3,57,12) = (/&
9195
6
 & 2.5250E-02_JPRB,4.0025E+00_JPRB,7.3232E+00_JPRB,9.9930E+00_JPRB,1.2617E+01_JPRB/)
9196
KBO( :, 4,57,12) = (/&
9197
6
 & 5.1105E-02_JPRB,4.3794E+00_JPRB,8.0015E+00_JPRB,1.0910E+01_JPRB,1.3544E+01_JPRB/)
9198
KBO( :, 5,57,12) = (/&
9199
6
 & 9.5178E-02_JPRB,4.7023E+00_JPRB,8.5498E+00_JPRB,1.1673E+01_JPRB,1.4270E+01_JPRB/)
9200
KBO( :, 1,58,12) = (/&
9201
6
 & 3.2442E-03_JPRB,2.8817E+00_JPRB,5.2469E+00_JPRB,7.3938E+00_JPRB,9.6647E+00_JPRB/)
9202
KBO( :, 2,58,12) = (/&
9203
6
 & 8.5196E-03_JPRB,3.4130E+00_JPRB,6.2333E+00_JPRB,8.6058E+00_JPRB,1.1102E+01_JPRB/)
9204
KBO( :, 3,58,12) = (/&
9205
6
 & 1.9737E-02_JPRB,3.8740E+00_JPRB,7.0888E+00_JPRB,9.6922E+00_JPRB,1.2287E+01_JPRB/)
9206
KBO( :, 4,58,12) = (/&
9207
6
 & 4.1256E-02_JPRB,4.2697E+00_JPRB,7.8107E+00_JPRB,1.0646E+01_JPRB,1.3253E+01_JPRB/)
9208
KBO( :, 5,58,12) = (/&
9209
6
 & 7.9005E-02_JPRB,4.6081E+00_JPRB,8.3923E+00_JPRB,1.1459E+01_JPRB,1.4032E+01_JPRB/)
9210
KBO( :, 1,59,12) = (/&
9211
6
 & 2.7554E-03_JPRB,2.8115E+00_JPRB,5.1204E+00_JPRB,7.2380E+00_JPRB,9.4574E+00_JPRB/)
9212
KBO( :, 2,59,12) = (/&
9213
6
 & 7.4695E-03_JPRB,3.3520E+00_JPRB,6.1191E+00_JPRB,8.4629E+00_JPRB,1.0919E+01_JPRB/)
9214
KBO( :, 3,59,12) = (/&
9215
6
 & 1.7700E-02_JPRB,3.8208E+00_JPRB,6.9919E+00_JPRB,9.5688E+00_JPRB,1.2133E+01_JPRB/)
9216
KBO( :, 4,59,12) = (/&
9217
6
 & 3.7590E-02_JPRB,4.2246E+00_JPRB,7.7306E+00_JPRB,1.0537E+01_JPRB,1.3092E+01_JPRB/)
9218
KBO( :, 5,59,12) = (/&
9219
6
 & 7.2976E-02_JPRB,4.5698E+00_JPRB,8.3286E+00_JPRB,1.1370E+01_JPRB,1.3863E+01_JPRB/)
9220
KBO( :, 1,13,13) = (/&
9221
6
 & 2.6529E+00_JPRB,2.2831E+00_JPRB,3.2422E+00_JPRB,4.4425E+00_JPRB,5.7532E+00_JPRB/)
9222
KBO( :, 2,13,13) = (/&
9223
6
 & 3.7901E+00_JPRB,3.0012E+00_JPRB,3.3868E+00_JPRB,4.4780E+00_JPRB,5.6304E+00_JPRB/)
9224
KBO( :, 3,13,13) = (/&
9225
6
 & 5.1407E+00_JPRB,3.9898E+00_JPRB,3.7034E+00_JPRB,4.5284E+00_JPRB,5.5094E+00_JPRB/)
9226
KBO( :, 4,13,13) = (/&
9227
6
 & 6.6849E+00_JPRB,5.1505E+00_JPRB,4.1152E+00_JPRB,4.5525E+00_JPRB,5.3863E+00_JPRB/)
9228
KBO( :, 5,13,13) = (/&
9229
6
 & 8.4107E+00_JPRB,6.4413E+00_JPRB,4.6939E+00_JPRB,4.5962E+00_JPRB,5.2598E+00_JPRB/)
9230
KBO( :, 1,14,13) = (/&
9231
6
 & 2.7859E+00_JPRB,2.4754E+00_JPRB,3.5707E+00_JPRB,4.9274E+00_JPRB,6.3617E+00_JPRB/)
9232
KBO( :, 2,14,13) = (/&
9233
6
 & 3.9819E+00_JPRB,3.1616E+00_JPRB,3.7430E+00_JPRB,4.9467E+00_JPRB,6.2248E+00_JPRB/)
9234
KBO( :, 3,14,13) = (/&
9235
6
 & 5.4169E+00_JPRB,4.1984E+00_JPRB,4.1076E+00_JPRB,4.9547E+00_JPRB,6.0805E+00_JPRB/)
9236
KBO( :, 4,14,13) = (/&
9237
6
 & 7.0660E+00_JPRB,5.4307E+00_JPRB,4.5231E+00_JPRB,4.9634E+00_JPRB,5.9266E+00_JPRB/)
9238
KBO( :, 5,14,13) = (/&
9239
6
 & 8.9144E+00_JPRB,6.8140E+00_JPRB,5.0663E+00_JPRB,5.0044E+00_JPRB,5.7690E+00_JPRB/)
9240
KBO( :, 1,15,13) = (/&
9241
6
 & 2.9857E+00_JPRB,2.7217E+00_JPRB,3.9316E+00_JPRB,5.4603E+00_JPRB,7.0398E+00_JPRB/)
9242
KBO( :, 2,15,13) = (/&
9243
6
 & 4.2764E+00_JPRB,3.4089E+00_JPRB,4.1424E+00_JPRB,5.4476E+00_JPRB,6.8612E+00_JPRB/)
9244
KBO( :, 3,15,13) = (/&
9245
6
 & 5.8211E+00_JPRB,4.5002E+00_JPRB,4.5148E+00_JPRB,5.4204E+00_JPRB,6.6790E+00_JPRB/)
9246
KBO( :, 4,15,13) = (/&
9247
6
 & 7.6022E+00_JPRB,5.8275E+00_JPRB,4.9790E+00_JPRB,5.4051E+00_JPRB,6.4972E+00_JPRB/)
9248
KBO( :, 5,15,13) = (/&
9249
6
 & 9.6077E+00_JPRB,7.3247E+00_JPRB,5.5648E+00_JPRB,5.4790E+00_JPRB,6.3175E+00_JPRB/)
9250
KBO( :, 1,16,13) = (/&
9251
6
 & 3.2520E+00_JPRB,3.0398E+00_JPRB,4.3234E+00_JPRB,6.0080E+00_JPRB,7.7322E+00_JPRB/)
9252
KBO( :, 2,16,13) = (/&
9253
6
 & 4.6456E+00_JPRB,3.7621E+00_JPRB,4.5833E+00_JPRB,5.9695E+00_JPRB,7.5298E+00_JPRB/)
9254
KBO( :, 3,16,13) = (/&
9255
6
 & 6.3086E+00_JPRB,4.8685E+00_JPRB,4.9506E+00_JPRB,5.9143E+00_JPRB,7.3233E+00_JPRB/)
9256
KBO( :, 4,16,13) = (/&
9257
6
 & 8.2262E+00_JPRB,6.2820E+00_JPRB,5.4881E+00_JPRB,5.8959E+00_JPRB,7.1229E+00_JPRB/)
9258
KBO( :, 5,16,13) = (/&
9259
6
 & 1.0371E+01_JPRB,7.8838E+00_JPRB,6.1617E+00_JPRB,6.0261E+00_JPRB,6.9371E+00_JPRB/)
9260
KBO( :, 1,17,13) = (/&
9261
6
 & 3.5103E+00_JPRB,3.4027E+00_JPRB,4.7571E+00_JPRB,6.5946E+00_JPRB,8.5011E+00_JPRB/)
9262
KBO( :, 2,17,13) = (/&
9263
6
 & 4.9855E+00_JPRB,4.1396E+00_JPRB,5.0300E+00_JPRB,6.5219E+00_JPRB,8.2752E+00_JPRB/)
9264
KBO( :, 3,17,13) = (/&
9265
6
 & 6.7391E+00_JPRB,5.2214E+00_JPRB,5.4410E+00_JPRB,6.4503E+00_JPRB,8.0549E+00_JPRB/)
9266
KBO( :, 4,17,13) = (/&
9267
6
 & 8.7527E+00_JPRB,6.6750E+00_JPRB,6.0440E+00_JPRB,6.4589E+00_JPRB,7.8521E+00_JPRB/)
9268
KBO( :, 5,17,13) = (/&
9269
6
 & 1.0977E+01_JPRB,8.3330E+00_JPRB,6.7610E+00_JPRB,6.6072E+00_JPRB,7.6623E+00_JPRB/)
9270
KBO( :, 1,18,13) = (/&
9271
6
 & 3.7201E+00_JPRB,3.7715E+00_JPRB,5.2410E+00_JPRB,7.2877E+00_JPRB,9.4447E+00_JPRB/)
9272
KBO( :, 2,18,13) = (/&
9273
6
 & 5.2473E+00_JPRB,4.5163E+00_JPRB,5.5131E+00_JPRB,7.1747E+00_JPRB,9.1964E+00_JPRB/)
9274
KBO( :, 3,18,13) = (/&
9275
6
 & 7.0567E+00_JPRB,5.5681E+00_JPRB,5.9890E+00_JPRB,7.0880E+00_JPRB,8.9663E+00_JPRB/)
9276
KBO( :, 4,18,13) = (/&
9277
6
 & 9.1072E+00_JPRB,6.9581E+00_JPRB,6.6273E+00_JPRB,7.1370E+00_JPRB,8.7546E+00_JPRB/)
9278
KBO( :, 5,18,13) = (/&
9279
6
 & 1.1367E+01_JPRB,8.6174E+00_JPRB,7.3488E+00_JPRB,7.2704E+00_JPRB,8.5556E+00_JPRB/)
9280
KBO( :, 1,19,13) = (/&
9281
6
 & 3.8561E+00_JPRB,4.1299E+00_JPRB,5.8089E+00_JPRB,8.1195E+00_JPRB,1.0564E+01_JPRB/)
9282
KBO( :, 2,19,13) = (/&
9283
6
 & 5.4052E+00_JPRB,4.8948E+00_JPRB,6.0739E+00_JPRB,7.9918E+00_JPRB,1.0309E+01_JPRB/)
9284
KBO( :, 3,19,13) = (/&
9285
6
 & 7.2158E+00_JPRB,5.8804E+00_JPRB,6.5899E+00_JPRB,7.9071E+00_JPRB,1.0068E+01_JPRB/)
9286
KBO( :, 4,19,13) = (/&
9287
6
 & 9.2611E+00_JPRB,7.1822E+00_JPRB,7.2047E+00_JPRB,7.9510E+00_JPRB,9.8352E+00_JPRB/)
9288
KBO( :, 5,19,13) = (/&
9289
6
 & 1.1520E+01_JPRB,8.7584E+00_JPRB,7.9092E+00_JPRB,8.0447E+00_JPRB,9.6021E+00_JPRB/)
9290
KBO( :, 1,20,13) = (/&
9291
6
 & 3.9352E+00_JPRB,4.4974E+00_JPRB,6.4850E+00_JPRB,9.0968E+00_JPRB,1.1862E+01_JPRB/)
9292
KBO( :, 2,20,13) = (/&
9293
6
 & 5.4656E+00_JPRB,5.2567E+00_JPRB,6.7702E+00_JPRB,8.9553E+00_JPRB,1.1592E+01_JPRB/)
9294
KBO( :, 3,20,13) = (/&
9295
6
 & 7.2432E+00_JPRB,6.1806E+00_JPRB,7.2339E+00_JPRB,8.8912E+00_JPRB,1.1329E+01_JPRB/)
9296
KBO( :, 4,20,13) = (/&
9297
6
 & 9.2559E+00_JPRB,7.3730E+00_JPRB,7.8059E+00_JPRB,8.9109E+00_JPRB,1.1059E+01_JPRB/)
9298
KBO( :, 5,20,13) = (/&
9299
6
 & 1.1478E+01_JPRB,8.8414E+00_JPRB,8.4557E+00_JPRB,8.9640E+00_JPRB,1.0785E+01_JPRB/)
9300
KBO( :, 1,21,13) = (/&
9301
6
 & 3.9152E+00_JPRB,4.8660E+00_JPRB,7.2675E+00_JPRB,1.0177E+01_JPRB,1.3275E+01_JPRB/)
9302
KBO( :, 2,21,13) = (/&
9303
6
 & 5.3925E+00_JPRB,5.5769E+00_JPRB,7.5673E+00_JPRB,1.0032E+01_JPRB,1.2988E+01_JPRB/)
9304
KBO( :, 3,21,13) = (/&
9305
6
 & 7.1172E+00_JPRB,6.4580E+00_JPRB,7.9491E+00_JPRB,9.9865E+00_JPRB,1.2690E+01_JPRB/)
9306
KBO( :, 4,21,13) = (/&
9307
6
 & 9.0683E+00_JPRB,7.5180E+00_JPRB,8.4370E+00_JPRB,9.9647E+00_JPRB,1.2379E+01_JPRB/)
9308
KBO( :, 5,21,13) = (/&
9309
6
 & 1.1238E+01_JPRB,8.8639E+00_JPRB,9.0125E+00_JPRB,9.9895E+00_JPRB,1.2064E+01_JPRB/)
9310
KBO( :, 1,22,13) = (/&
9311
6
 & 3.8909E+00_JPRB,5.2900E+00_JPRB,8.1566E+00_JPRB,1.1308E+01_JPRB,1.4732E+01_JPRB/)
9312
KBO( :, 2,22,13) = (/&
9313
6
 & 5.3181E+00_JPRB,5.9209E+00_JPRB,8.4402E+00_JPRB,1.1175E+01_JPRB,1.4410E+01_JPRB/)
9314
KBO( :, 3,22,13) = (/&
9315
6
 & 6.9795E+00_JPRB,6.7348E+00_JPRB,8.7599E+00_JPRB,1.1122E+01_JPRB,1.4067E+01_JPRB/)
9316
KBO( :, 4,22,13) = (/&
9317
6
 & 8.8688E+00_JPRB,7.7237E+00_JPRB,9.1513E+00_JPRB,1.1075E+01_JPRB,1.3709E+01_JPRB/)
9318
KBO( :, 5,22,13) = (/&
9319
6
 & 1.0970E+01_JPRB,8.9302E+00_JPRB,9.6408E+00_JPRB,1.1105E+01_JPRB,1.3343E+01_JPRB/)
9320
KBO( :, 1,23,13) = (/&
9321
6
 & 3.7997E+00_JPRB,5.7292E+00_JPRB,9.0913E+00_JPRB,1.2436E+01_JPRB,1.6180E+01_JPRB/)
9322
KBO( :, 2,23,13) = (/&
9323
6
 & 5.1595E+00_JPRB,6.2753E+00_JPRB,9.3535E+00_JPRB,1.2331E+01_JPRB,1.5809E+01_JPRB/)
9324
KBO( :, 3,23,13) = (/&
9325
6
 & 6.7493E+00_JPRB,6.9925E+00_JPRB,9.6137E+00_JPRB,1.2263E+01_JPRB,1.5425E+01_JPRB/)
9326
KBO( :, 4,23,13) = (/&
9327
6
 & 8.5542E+00_JPRB,7.9012E+00_JPRB,9.9104E+00_JPRB,1.2220E+01_JPRB,1.5025E+01_JPRB/)
9328
KBO( :, 5,23,13) = (/&
9329
6
 & 1.0561E+01_JPRB,8.9781E+00_JPRB,1.0309E+01_JPRB,1.2253E+01_JPRB,1.4614E+01_JPRB/)
9330
KBO( :, 1,24,13) = (/&
9331
6
 & 3.6631E+00_JPRB,6.1905E+00_JPRB,1.0011E+01_JPRB,1.3544E+01_JPRB,1.7573E+01_JPRB/)
9332
KBO( :, 2,24,13) = (/&
9333
6
 & 4.9530E+00_JPRB,6.6528E+00_JPRB,1.0267E+01_JPRB,1.3455E+01_JPRB,1.7161E+01_JPRB/)
9334
KBO( :, 3,24,13) = (/&
9335
6
 & 6.4554E+00_JPRB,7.2715E+00_JPRB,1.0481E+01_JPRB,1.3377E+01_JPRB,1.6726E+01_JPRB/)
9336
KBO( :, 4,24,13) = (/&
9337
6
 & 8.1608E+00_JPRB,8.0605E+00_JPRB,1.0709E+01_JPRB,1.3365E+01_JPRB,1.6282E+01_JPRB/)
9338
KBO( :, 5,24,13) = (/&
9339
6
 & 1.0048E+01_JPRB,9.0171E+00_JPRB,1.1006E+01_JPRB,1.3382E+01_JPRB,1.5827E+01_JPRB/)
9340
KBO( :, 1,25,13) = (/&
9341
6
 & 3.5057E+00_JPRB,6.6591E+00_JPRB,1.0912E+01_JPRB,1.4625E+01_JPRB,1.8883E+01_JPRB/)
9342
KBO( :, 2,25,13) = (/&
9343
6
 & 4.7154E+00_JPRB,7.0448E+00_JPRB,1.1156E+01_JPRB,1.4541E+01_JPRB,1.8427E+01_JPRB/)
9344
KBO( :, 3,25,13) = (/&
9345
6
 & 6.1224E+00_JPRB,7.5602E+00_JPRB,1.1335E+01_JPRB,1.4472E+01_JPRB,1.7954E+01_JPRB/)
9346
KBO( :, 4,25,13) = (/&
9347
6
 & 7.7153E+00_JPRB,8.2240E+00_JPRB,1.1508E+01_JPRB,1.4486E+01_JPRB,1.7464E+01_JPRB/)
9348
KBO( :, 5,25,13) = (/&
9349
6
 & 9.4941E+00_JPRB,9.0534E+00_JPRB,1.1717E+01_JPRB,1.4473E+01_JPRB,1.6960E+01_JPRB/)
9350
KBO( :, 1,26,13) = (/&
9351
6
 & 3.3374E+00_JPRB,7.1235E+00_JPRB,1.1789E+01_JPRB,1.5669E+01_JPRB,2.0088E+01_JPRB/)
9352
KBO( :, 2,26,13) = (/&
9353
6
 & 4.4661E+00_JPRB,7.4439E+00_JPRB,1.2007E+01_JPRB,1.5575E+01_JPRB,1.9597E+01_JPRB/)
9354
KBO( :, 3,26,13) = (/&
9355
6
 & 5.7769E+00_JPRB,7.8591E+00_JPRB,1.2149E+01_JPRB,1.5545E+01_JPRB,1.9088E+01_JPRB/)
9356
KBO( :, 4,26,13) = (/&
9357
6
 & 7.2756E+00_JPRB,8.4078E+00_JPRB,1.2269E+01_JPRB,1.5555E+01_JPRB,1.8555E+01_JPRB/)
9358
KBO( :, 5,26,13) = (/&
9359
6
 & 8.9639E+00_JPRB,9.1104E+00_JPRB,1.2401E+01_JPRB,1.5501E+01_JPRB,1.8008E+01_JPRB/)
9360
KBO( :, 1,27,13) = (/&
9361
6
 & 3.1533E+00_JPRB,7.5608E+00_JPRB,1.2611E+01_JPRB,1.6642E+01_JPRB,2.1191E+01_JPRB/)
9362
KBO( :, 2,27,13) = (/&
9363
6
 & 4.1993E+00_JPRB,7.8220E+00_JPRB,1.2795E+01_JPRB,1.6570E+01_JPRB,2.0672E+01_JPRB/)
9364
KBO( :, 3,27,13) = (/&
9365
6
 & 5.4265E+00_JPRB,8.1469E+00_JPRB,1.2900E+01_JPRB,1.6567E+01_JPRB,2.0125E+01_JPRB/)
9366
KBO( :, 4,27,13) = (/&
9367
6
 & 6.8378E+00_JPRB,8.5911E+00_JPRB,1.2961E+01_JPRB,1.6544E+01_JPRB,1.9552E+01_JPRB/)
9368
KBO( :, 5,27,13) = (/&
9369
6
 & 8.4460E+00_JPRB,9.1761E+00_JPRB,1.3028E+01_JPRB,1.6437E+01_JPRB,1.8965E+01_JPRB/)
9370
KBO( :, 1,28,13) = (/&
9371
6
 & 2.9616E+00_JPRB,7.9550E+00_JPRB,1.3362E+01_JPRB,1.7538E+01_JPRB,2.2180E+01_JPRB/)
9372
KBO( :, 2,28,13) = (/&
9373
6
 & 3.9383E+00_JPRB,8.1625E+00_JPRB,1.3501E+01_JPRB,1.7502E+01_JPRB,2.1637E+01_JPRB/)
9374
KBO( :, 3,28,13) = (/&
9375
6
 & 5.0899E+00_JPRB,8.4137E+00_JPRB,1.3570E+01_JPRB,1.7504E+01_JPRB,2.1054E+01_JPRB/)
9376
KBO( :, 4,28,13) = (/&
9377
6
 & 6.4309E+00_JPRB,8.7658E+00_JPRB,1.3582E+01_JPRB,1.7435E+01_JPRB,2.0443E+01_JPRB/)
9378
KBO( :, 5,28,13) = (/&
9379
6
 & 7.9687E+00_JPRB,9.2612E+00_JPRB,1.3583E+01_JPRB,1.7274E+01_JPRB,1.9806E+01_JPRB/)
9380
KBO( :, 1,29,13) = (/&
9381
6
 & 2.7798E+00_JPRB,8.2996E+00_JPRB,1.4029E+01_JPRB,1.8369E+01_JPRB,2.3056E+01_JPRB/)
9382
KBO( :, 2,29,13) = (/&
9383
6
 & 3.6961E+00_JPRB,8.4616E+00_JPRB,1.4123E+01_JPRB,1.8351E+01_JPRB,2.2490E+01_JPRB/)
9384
KBO( :, 3,29,13) = (/&
9385
6
 & 4.7900E+00_JPRB,8.6571E+00_JPRB,1.4153E+01_JPRB,1.8339E+01_JPRB,2.1869E+01_JPRB/)
9386
KBO( :, 4,29,13) = (/&
9387
6
 & 6.0802E+00_JPRB,8.9313E+00_JPRB,1.4117E+01_JPRB,1.8214E+01_JPRB,2.1214E+01_JPRB/)
9388
KBO( :, 5,29,13) = (/&
9389
6
 & 7.5801E+00_JPRB,9.3590E+00_JPRB,1.4065E+01_JPRB,1.8003E+01_JPRB,2.0531E+01_JPRB/)
9390
KBO( :, 1,30,13) = (/&
9391
6
 & 2.6097E+00_JPRB,8.5908E+00_JPRB,1.4603E+01_JPRB,1.9121E+01_JPRB,2.3810E+01_JPRB/)
9392
KBO( :, 2,30,13) = (/&
9393
6
 & 3.4798E+00_JPRB,8.7177E+00_JPRB,1.4662E+01_JPRB,1.9123E+01_JPRB,2.3210E+01_JPRB/)
9394
KBO( :, 3,30,13) = (/&
9395
6
 & 4.5355E+00_JPRB,8.8683E+00_JPRB,1.4648E+01_JPRB,1.9056E+01_JPRB,2.2548E+01_JPRB/)
9396
KBO( :, 4,30,13) = (/&
9397
6
 & 5.7939E+00_JPRB,9.0839E+00_JPRB,1.4573E+01_JPRB,1.8881E+01_JPRB,2.1848E+01_JPRB/)
9398
KBO( :, 5,30,13) = (/&
9399
6
 & 7.2765E+00_JPRB,9.4615E+00_JPRB,1.4472E+01_JPRB,1.8622E+01_JPRB,2.1123E+01_JPRB/)
9400
KBO( :, 1,31,13) = (/&
9401
6
 & 2.4675E+00_JPRB,8.8387E+00_JPRB,1.5097E+01_JPRB,1.9786E+01_JPRB,2.4442E+01_JPRB/)
9402
9403
1
IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART31',1,ZHOOK_HANDLE)
9404
1
END SUBROUTINE PART31
9405
9406
9407
1
SUBROUTINE PART32
9408
9409
REAL(KIND=JPRB) :: ZHOOK_HANDLE
9410
1
IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART32',0,ZHOOK_HANDLE)
9411
9412
9413
KBO( :, 2,31,13) = (/&
9414
6
 & 3.3065E+00_JPRB,8.9332E+00_JPRB,1.5120E+01_JPRB,1.9782E+01_JPRB,2.3801E+01_JPRB/)
9415
KBO( :, 3,31,13) = (/&
9416
6
 & 4.3370E+00_JPRB,9.0438E+00_JPRB,1.5067E+01_JPRB,1.9662E+01_JPRB,2.3103E+01_JPRB/)
9417
KBO( :, 4,31,13) = (/&
9418
6
 & 5.5801E+00_JPRB,9.2263E+00_JPRB,1.4955E+01_JPRB,1.9437E+01_JPRB,2.2362E+01_JPRB/)
9419
KBO( :, 5,31,13) = (/&
9420
6
 & 7.0509E+00_JPRB,9.5653E+00_JPRB,1.4810E+01_JPRB,1.9130E+01_JPRB,2.1597E+01_JPRB/)
9421
KBO( :, 1,32,13) = (/&
9422
6
 & 2.3570E+00_JPRB,9.0474E+00_JPRB,1.5512E+01_JPRB,2.0376E+01_JPRB,2.4941E+01_JPRB/)
9423
KBO( :, 2,32,13) = (/&
9424
6
 & 3.1778E+00_JPRB,9.1115E+00_JPRB,1.5508E+01_JPRB,2.0335E+01_JPRB,2.4268E+01_JPRB/)
9425
KBO( :, 3,32,13) = (/&
9426
6
 & 4.1934E+00_JPRB,9.1907E+00_JPRB,1.5415E+01_JPRB,2.0161E+01_JPRB,2.3538E+01_JPRB/)
9427
KBO( :, 4,32,13) = (/&
9428
6
 & 5.4301E+00_JPRB,9.3557E+00_JPRB,1.5262E+01_JPRB,1.9889E+01_JPRB,2.2767E+01_JPRB/)
9429
KBO( :, 5,32,13) = (/&
9430
6
 & 6.9074E+00_JPRB,9.6740E+00_JPRB,1.5082E+01_JPRB,1.9542E+01_JPRB,2.1974E+01_JPRB/)
9431
KBO( :, 1,33,13) = (/&
9432
6
 & 2.2789E+00_JPRB,9.2179E+00_JPRB,1.5861E+01_JPRB,2.0884E+01_JPRB,2.5338E+01_JPRB/)
9433
KBO( :, 2,33,13) = (/&
9434
6
 & 3.0898E+00_JPRB,9.2539E+00_JPRB,1.5825E+01_JPRB,2.0788E+01_JPRB,2.4635E+01_JPRB/)
9435
KBO( :, 3,33,13) = (/&
9436
6
 & 4.1032E+00_JPRB,9.3163E+00_JPRB,1.5692E+01_JPRB,2.0569E+01_JPRB,2.3873E+01_JPRB/)
9437
KBO( :, 4,33,13) = (/&
9438
6
 & 5.3488E+00_JPRB,9.4706E+00_JPRB,1.5505E+01_JPRB,2.0254E+01_JPRB,2.3076E+01_JPRB/)
9439
KBO( :, 5,33,13) = (/&
9440
6
 & 6.8488E+00_JPRB,9.7721E+00_JPRB,1.5299E+01_JPRB,1.9864E+01_JPRB,2.2268E+01_JPRB/)
9441
KBO( :, 1,34,13) = (/&
9442
6
 & 2.2036E+00_JPRB,9.3532E+00_JPRB,1.6153E+01_JPRB,2.1306E+01_JPRB,2.5672E+01_JPRB/)
9443
KBO( :, 2,34,13) = (/&
9444
6
 & 3.0096E+00_JPRB,9.3699E+00_JPRB,1.6083E+01_JPRB,2.1168E+01_JPRB,2.4937E+01_JPRB/)
9445
KBO( :, 3,34,13) = (/&
9446
6
 & 4.0278E+00_JPRB,9.4208E+00_JPRB,1.5917E+01_JPRB,2.0905E+01_JPRB,2.4148E+01_JPRB/)
9447
KBO( :, 4,34,13) = (/&
9448
6
 & 5.2881E+00_JPRB,9.5680E+00_JPRB,1.5706E+01_JPRB,2.0553E+01_JPRB,2.3339E+01_JPRB/)
9449
KBO( :, 5,34,13) = (/&
9450
6
 & 6.8127E+00_JPRB,9.8518E+00_JPRB,1.5477E+01_JPRB,2.0124E+01_JPRB,2.2490E+01_JPRB/)
9451
KBO( :, 1,35,13) = (/&
9452
6
 & 2.0911E+00_JPRB,9.4628E+00_JPRB,1.6401E+01_JPRB,2.1656E+01_JPRB,2.5992E+01_JPRB/)
9453
KBO( :, 2,35,13) = (/&
9454
6
 & 2.8838E+00_JPRB,9.4629E+00_JPRB,1.6303E+01_JPRB,2.1492E+01_JPRB,2.5233E+01_JPRB/)
9455
KBO( :, 3,35,13) = (/&
9456
6
 & 3.8959E+00_JPRB,9.5011E+00_JPRB,1.6117E+01_JPRB,2.1198E+01_JPRB,2.4439E+01_JPRB/)
9457
KBO( :, 4,35,13) = (/&
9458
6
 & 5.1566E+00_JPRB,9.6352E+00_JPRB,1.5885E+01_JPRB,2.0818E+01_JPRB,2.3603E+01_JPRB/)
9459
KBO( :, 5,35,13) = (/&
9460
6
 & 6.6907E+00_JPRB,9.8962E+00_JPRB,1.5633E+01_JPRB,2.0364E+01_JPRB,2.2731E+01_JPRB/)
9461
KBO( :, 1,36,13) = (/&
9462
6
 & 1.9336E+00_JPRB,9.5525E+00_JPRB,1.6611E+01_JPRB,2.1959E+01_JPRB,2.6325E+01_JPRB/)
9463
KBO( :, 2,36,13) = (/&
9464
6
 & 2.7002E+00_JPRB,9.5428E+00_JPRB,1.6501E+01_JPRB,2.1782E+01_JPRB,2.5563E+01_JPRB/)
9465
KBO( :, 3,36,13) = (/&
9466
6
 & 3.6889E+00_JPRB,9.5627E+00_JPRB,1.6302E+01_JPRB,2.1472E+01_JPRB,2.4764E+01_JPRB/)
9467
KBO( :, 4,36,13) = (/&
9468
6
 & 4.9268E+00_JPRB,9.6763E+00_JPRB,1.6053E+01_JPRB,2.1074E+01_JPRB,2.3903E+01_JPRB/)
9469
KBO( :, 5,36,13) = (/&
9470
6
 & 6.4449E+00_JPRB,9.9025E+00_JPRB,1.5784E+01_JPRB,2.0602E+01_JPRB,2.3039E+01_JPRB/)
9471
KBO( :, 1,37,13) = (/&
9472
6
 & 1.7104E+00_JPRB,9.6249E+00_JPRB,1.6795E+01_JPRB,2.2228E+01_JPRB,2.6709E+01_JPRB/)
9473
KBO( :, 2,37,13) = (/&
9474
6
 & 2.4252E+00_JPRB,9.6135E+00_JPRB,1.6690E+01_JPRB,2.2061E+01_JPRB,2.5960E+01_JPRB/)
9475
KBO( :, 3,37,13) = (/&
9476
6
 & 3.3606E+00_JPRB,9.6107E+00_JPRB,1.6491E+01_JPRB,2.1757E+01_JPRB,2.5160E+01_JPRB/)
9477
KBO( :, 4,37,13) = (/&
9478
6
 & 4.5420E+00_JPRB,9.6944E+00_JPRB,1.6238E+01_JPRB,2.1356E+01_JPRB,2.4291E+01_JPRB/)
9479
KBO( :, 5,37,13) = (/&
9480
6
 & 6.0039E+00_JPRB,9.8734E+00_JPRB,1.5956E+01_JPRB,2.0878E+01_JPRB,2.3432E+01_JPRB/)
9481
KBO( :, 1,38,13) = (/&
9482
6
 & 1.5178E+00_JPRB,9.6872E+00_JPRB,1.6953E+01_JPRB,2.2459E+01_JPRB,2.7050E+01_JPRB/)
9483
KBO( :, 2,38,13) = (/&
9484
6
 & 2.1837E+00_JPRB,9.6773E+00_JPRB,1.6856E+01_JPRB,2.2300E+01_JPRB,2.6324E+01_JPRB/)
9485
KBO( :, 3,38,13) = (/&
9486
6
 & 3.0661E+00_JPRB,9.6576E+00_JPRB,1.6660E+01_JPRB,2.2007E+01_JPRB,2.5527E+01_JPRB/)
9487
KBO( :, 4,38,13) = (/&
9488
6
 & 4.1937E+00_JPRB,9.7120E+00_JPRB,1.6406E+01_JPRB,2.1607E+01_JPRB,2.4654E+01_JPRB/)
9489
KBO( :, 5,38,13) = (/&
9490
6
 & 5.6039E+00_JPRB,9.8559E+00_JPRB,1.6114E+01_JPRB,2.1125E+01_JPRB,2.3814E+01_JPRB/)
9491
KBO( :, 1,39,13) = (/&
9492
6
 & 1.3554E+00_JPRB,9.7390E+00_JPRB,1.7088E+01_JPRB,2.2653E+01_JPRB,2.7361E+01_JPRB/)
9493
KBO( :, 2,39,13) = (/&
9494
6
 & 1.9775E+00_JPRB,9.7313E+00_JPRB,1.6998E+01_JPRB,2.2506E+01_JPRB,2.6660E+01_JPRB/)
9495
KBO( :, 3,39,13) = (/&
9496
6
 & 2.8107E+00_JPRB,9.7018E+00_JPRB,1.6808E+01_JPRB,2.2224E+01_JPRB,2.5863E+01_JPRB/)
9497
KBO( :, 4,39,13) = (/&
9498
6
 & 3.8900E+00_JPRB,9.7305E+00_JPRB,1.6552E+01_JPRB,2.1827E+01_JPRB,2.4995E+01_JPRB/)
9499
KBO( :, 5,39,13) = (/&
9500
6
 & 5.2496E+00_JPRB,9.8477E+00_JPRB,1.6251E+01_JPRB,2.1343E+01_JPRB,2.4180E+01_JPRB/)
9501
KBO( :, 1,40,13) = (/&
9502
6
 & 1.1681E+00_JPRB,9.7791E+00_JPRB,1.7201E+01_JPRB,2.2818E+01_JPRB,2.7695E+01_JPRB/)
9503
KBO( :, 2,40,13) = (/&
9504
6
 & 1.7299E+00_JPRB,9.7827E+00_JPRB,1.7132E+01_JPRB,2.2703E+01_JPRB,2.7023E+01_JPRB/)
9505
KBO( :, 3,40,13) = (/&
9506
6
 & 2.4946E+00_JPRB,9.7467E+00_JPRB,1.6955E+01_JPRB,2.2448E+01_JPRB,2.6240E+01_JPRB/)
9507
KBO( :, 4,40,13) = (/&
9508
6
 & 3.5017E+00_JPRB,9.7482E+00_JPRB,1.6709E+01_JPRB,2.2060E+01_JPRB,2.5376E+01_JPRB/)
9509
KBO( :, 5,40,13) = (/&
9510
6
 & 4.7836E+00_JPRB,9.8329E+00_JPRB,1.6405E+01_JPRB,2.1591E+01_JPRB,2.4561E+01_JPRB/)
9511
KBO( :, 1,41,13) = (/&
9512
6
 & 1.0033E+00_JPRB,9.8102E+00_JPRB,1.7286E+01_JPRB,2.2943E+01_JPRB,2.8002E+01_JPRB/)
9513
KBO( :, 2,41,13) = (/&
9514
6
 & 1.5079E+00_JPRB,9.8257E+00_JPRB,1.7243E+01_JPRB,2.2872E+01_JPRB,2.7362E+01_JPRB/)
9515
KBO( :, 3,41,13) = (/&
9516
6
 & 2.2063E+00_JPRB,9.7913E+00_JPRB,1.7089E+01_JPRB,2.2643E+01_JPRB,2.6601E+01_JPRB/)
9517
KBO( :, 4,41,13) = (/&
9518
6
 & 3.1401E+00_JPRB,9.7698E+00_JPRB,1.6851E+01_JPRB,2.2278E+01_JPRB,2.5742E+01_JPRB/)
9519
KBO( :, 5,41,13) = (/&
9520
6
 & 4.3440E+00_JPRB,9.8243E+00_JPRB,1.6560E+01_JPRB,2.1826E+01_JPRB,2.4926E+01_JPRB/)
9521
KBO( :, 1,42,13) = (/&
9522
6
 & 8.6335E-01_JPRB,9.8273E+00_JPRB,1.7356E+01_JPRB,2.3044E+01_JPRB,2.8283E+01_JPRB/)
9523
KBO( :, 2,42,13) = (/&
9524
6
 & 1.3157E+00_JPRB,9.8564E+00_JPRB,1.7335E+01_JPRB,2.3007E+01_JPRB,2.7677E+01_JPRB/)
9525
KBO( :, 3,42,13) = (/&
9526
6
 & 1.9522E+00_JPRB,9.8313E+00_JPRB,1.7204E+01_JPRB,2.2814E+01_JPRB,2.6940E+01_JPRB/)
9527
KBO( :, 4,42,13) = (/&
9528
6
 & 2.8149E+00_JPRB,9.7926E+00_JPRB,1.6984E+01_JPRB,2.2480E+01_JPRB,2.6086E+01_JPRB/)
9529
KBO( :, 5,42,13) = (/&
9530
6
 & 3.9427E+00_JPRB,9.8251E+00_JPRB,1.6704E+01_JPRB,2.2040E+01_JPRB,2.5280E+01_JPRB/)
9531
KBO( :, 1,43,13) = (/&
9532
6
 & 7.2508E-01_JPRB,9.8337E+00_JPRB,1.7398E+01_JPRB,2.3109E+01_JPRB,2.8558E+01_JPRB/)
9533
KBO( :, 2,43,13) = (/&
9534
6
 & 1.1220E+00_JPRB,9.8829E+00_JPRB,1.7414E+01_JPRB,2.3123E+01_JPRB,2.7999E+01_JPRB/)
9535
KBO( :, 3,43,13) = (/&
9536
6
 & 1.6895E+00_JPRB,9.8684E+00_JPRB,1.7314E+01_JPRB,2.2973E+01_JPRB,2.7299E+01_JPRB/)
9537
KBO( :, 4,43,13) = (/&
9538
6
 & 2.4716E+00_JPRB,9.8264E+00_JPRB,1.7115E+01_JPRB,2.2681E+01_JPRB,2.6464E+01_JPRB/)
9539
KBO( :, 5,43,13) = (/&
9540
6
 & 3.5092E+00_JPRB,9.8254E+00_JPRB,1.6846E+01_JPRB,2.2258E+01_JPRB,2.5655E+01_JPRB/)
9541
KBO( :, 1,44,13) = (/&
9542
6
 & 6.0013E-01_JPRB,9.8242E+00_JPRB,1.7407E+01_JPRB,2.3147E+01_JPRB,2.8810E+01_JPRB/)
9543
KBO( :, 2,44,13) = (/&
9544
6
 & 9.4539E-01_JPRB,9.8972E+00_JPRB,1.7468E+01_JPRB,2.3207E+01_JPRB,2.8309E+01_JPRB/)
9545
KBO( :, 3,44,13) = (/&
9546
6
 & 1.4447E+00_JPRB,9.9041E+00_JPRB,1.7409E+01_JPRB,2.3114E+01_JPRB,2.7658E+01_JPRB/)
9547
KBO( :, 4,44,13) = (/&
9548
6
 & 2.1455E+00_JPRB,9.8623E+00_JPRB,1.7235E+01_JPRB,2.2860E+01_JPRB,2.6847E+01_JPRB/)
9549
KBO( :, 5,44,13) = (/&
9550
6
 & 3.0884E+00_JPRB,9.8324E+00_JPRB,1.6982E+01_JPRB,2.2470E+01_JPRB,2.6041E+01_JPRB/)
9551
KBO( :, 1,45,13) = (/&
9552
6
 & 4.9465E-01_JPRB,9.7992E+00_JPRB,1.7389E+01_JPRB,2.3167E+01_JPRB,2.9031E+01_JPRB/)
9553
KBO( :, 2,45,13) = (/&
9554
6
 & 7.9499E-01_JPRB,9.8981E+00_JPRB,1.7509E+01_JPRB,2.3257E+01_JPRB,2.8598E+01_JPRB/)
9555
KBO( :, 3,45,13) = (/&
9556
6
 & 1.2327E+00_JPRB,9.9225E+00_JPRB,1.7478E+01_JPRB,2.3219E+01_JPRB,2.7995E+01_JPRB/)
9557
KBO( :, 4,45,13) = (/&
9558
6
 & 1.8567E+00_JPRB,9.8915E+00_JPRB,1.7341E+01_JPRB,2.3018E+01_JPRB,2.7214E+01_JPRB/)
9559
KBO( :, 5,45,13) = (/&
9560
6
 & 2.7102E+00_JPRB,9.8493E+00_JPRB,1.7115E+01_JPRB,2.2672E+01_JPRB,2.6426E+01_JPRB/)
9561
KBO( :, 1,46,13) = (/&
9562
6
 & 4.0155E-01_JPRB,9.7565E+00_JPRB,1.7327E+01_JPRB,2.3150E+01_JPRB,2.9223E+01_JPRB/)
9563
KBO( :, 2,46,13) = (/&
9564
6
 & 6.5885E-01_JPRB,9.8895E+00_JPRB,1.7519E+01_JPRB,2.3282E+01_JPRB,2.8865E+01_JPRB/)
9565
KBO( :, 3,46,13) = (/&
9566
6
 & 1.0393E+00_JPRB,9.9389E+00_JPRB,1.7538E+01_JPRB,2.3304E+01_JPRB,2.8321E+01_JPRB/)
9567
KBO( :, 4,46,13) = (/&
9568
6
 & 1.5881E+00_JPRB,9.9248E+00_JPRB,1.7436E+01_JPRB,2.3155E+01_JPRB,2.7586E+01_JPRB/)
9569
KBO( :, 5,46,13) = (/&
9570
6
 & 2.3518E+00_JPRB,9.8787E+00_JPRB,1.7232E+01_JPRB,2.2856E+01_JPRB,2.6820E+01_JPRB/)
9571
KBO( :, 1,47,13) = (/&
9572
6
 & 3.1717E-01_JPRB,9.6922E+00_JPRB,1.7208E+01_JPRB,2.3094E+01_JPRB,2.9376E+01_JPRB/)
9573
KBO( :, 2,47,13) = (/&
9574
6
 & 5.3176E-01_JPRB,9.8626E+00_JPRB,1.7496E+01_JPRB,2.3281E+01_JPRB,2.9106E+01_JPRB/)
9575
KBO( :, 3,47,13) = (/&
9576
6
 & 8.5644E-01_JPRB,9.9410E+00_JPRB,1.7572E+01_JPRB,2.3352E+01_JPRB,2.8639E+01_JPRB/)
9577
KBO( :, 4,47,13) = (/&
9578
6
 & 1.3291E+00_JPRB,9.9482E+00_JPRB,1.7517E+01_JPRB,2.3272E+01_JPRB,2.7966E+01_JPRB/)
9579
KBO( :, 5,47,13) = (/&
9580
6
 & 1.9994E+00_JPRB,9.9068E+00_JPRB,1.7348E+01_JPRB,2.3029E+01_JPRB,2.7224E+01_JPRB/)
9581
KBO( :, 1,48,13) = (/&
9582
6
 & 2.4862E-01_JPRB,9.6017E+00_JPRB,1.7047E+01_JPRB,2.3003E+01_JPRB,2.9483E+01_JPRB/)
9583
KBO( :, 2,48,13) = (/&
9584
6
 & 4.2613E-01_JPRB,9.8140E+00_JPRB,1.7433E+01_JPRB,2.3259E+01_JPRB,2.9313E+01_JPRB/)
9585
KBO( :, 3,48,13) = (/&
9586
6
 & 7.0129E-01_JPRB,9.9267E+00_JPRB,1.7586E+01_JPRB,2.3367E+01_JPRB,2.8930E+01_JPRB/)
9587
KBO( :, 4,48,13) = (/&
9588
6
 & 1.1072E+00_JPRB,9.9609E+00_JPRB,1.7574E+01_JPRB,2.3356E+01_JPRB,2.8330E+01_JPRB/)
9589
KBO( :, 5,48,13) = (/&
9590
6
 & 1.6909E+00_JPRB,9.9361E+00_JPRB,1.7449E+01_JPRB,2.3177E+01_JPRB,2.7634E+01_JPRB/)
9591
KBO( :, 1,49,13) = (/&
9592
6
 & 1.9264E-01_JPRB,9.4936E+00_JPRB,1.6831E+01_JPRB,2.2884E+01_JPRB,2.9536E+01_JPRB/)
9593
KBO( :, 2,49,13) = (/&
9594
6
 & 3.3927E-01_JPRB,9.7516E+00_JPRB,1.7325E+01_JPRB,2.3198E+01_JPRB,2.9479E+01_JPRB/)
9595
KBO( :, 3,49,13) = (/&
9596
6
 & 5.6996E-01_JPRB,9.9055E+00_JPRB,1.7565E+01_JPRB,2.3359E+01_JPRB,2.9191E+01_JPRB/)
9597
KBO( :, 4,49,13) = (/&
9598
6
 & 9.1758E-01_JPRB,9.9664E+00_JPRB,1.7609E+01_JPRB,2.3411E+01_JPRB,2.8684E+01_JPRB/)
9599
KBO( :, 5,49,13) = (/&
9600
6
 & 1.4225E+00_JPRB,9.9636E+00_JPRB,1.7532E+01_JPRB,2.3297E+01_JPRB,2.8060E+01_JPRB/)
9601
KBO( :, 1,50,13) = (/&
9602
6
 & 1.4991E-01_JPRB,9.3720E+00_JPRB,1.6585E+01_JPRB,2.2746E+01_JPRB,2.9526E+01_JPRB/)
9603
KBO( :, 2,50,13) = (/&
9604
6
 & 2.7206E-01_JPRB,9.6777E+00_JPRB,1.7184E+01_JPRB,2.3116E+01_JPRB,2.9581E+01_JPRB/)
9605
KBO( :, 3,50,13) = (/&
9606
6
 & 4.6587E-01_JPRB,9.8653E+00_JPRB,1.7520E+01_JPRB,2.3339E+01_JPRB,2.9394E+01_JPRB/)
9607
KBO( :, 4,50,13) = (/&
9608
6
 & 7.6520E-01_JPRB,9.9556E+00_JPRB,1.7628E+01_JPRB,2.3427E+01_JPRB,2.8975E+01_JPRB/)
9609
KBO( :, 5,50,13) = (/&
9610
6
 & 1.2040E+00_JPRB,9.9732E+00_JPRB,1.7585E+01_JPRB,2.3377E+01_JPRB,2.8410E+01_JPRB/)
9611
KBO( :, 1,51,13) = (/&
9612
6
 & 1.1613E-01_JPRB,9.2274E+00_JPRB,1.6313E+01_JPRB,2.2591E+01_JPRB,2.9458E+01_JPRB/)
9613
KBO( :, 2,51,13) = (/&
9614
6
 & 2.1747E-01_JPRB,9.5837E+00_JPRB,1.7015E+01_JPRB,2.3015E+01_JPRB,2.9634E+01_JPRB/)
9615
KBO( :, 3,51,13) = (/&
9616
6
 & 3.8080E-01_JPRB,9.8127E+00_JPRB,1.7438E+01_JPRB,2.3293E+01_JPRB,2.9540E+01_JPRB/)
9617
KBO( :, 4,51,13) = (/&
9618
6
 & 6.3740E-01_JPRB,9.9403E+00_JPRB,1.7621E+01_JPRB,2.3422E+01_JPRB,2.9215E+01_JPRB/)
9619
KBO( :, 5,51,13) = (/&
9620
6
 & 1.0193E+00_JPRB,9.9828E+00_JPRB,1.7629E+01_JPRB,2.3438E+01_JPRB,2.8716E+01_JPRB/)
9621
KBO( :, 1,52,13) = (/&
9622
6
 & 8.8830E-02_JPRB,9.0603E+00_JPRB,1.6002E+01_JPRB,2.2409E+01_JPRB,2.9330E+01_JPRB/)
9623
KBO( :, 2,52,13) = (/&
9624
6
 & 1.7228E-01_JPRB,9.4776E+00_JPRB,1.6796E+01_JPRB,2.2887E+01_JPRB,2.9643E+01_JPRB/)
9625
KBO( :, 3,52,13) = (/&
9626
6
 & 3.0974E-01_JPRB,9.7502E+00_JPRB,1.7322E+01_JPRB,2.3223E+01_JPRB,2.9659E+01_JPRB/)
9627
KBO( :, 4,52,13) = (/&
9628
6
 & 5.2763E-01_JPRB,9.9116E+00_JPRB,1.7589E+01_JPRB,2.3402E+01_JPRB,2.9438E+01_JPRB/)
9629
KBO( :, 5,52,13) = (/&
9630
6
 & 8.5949E-01_JPRB,9.9800E+00_JPRB,1.7648E+01_JPRB,2.3465E+01_JPRB,2.9019E+01_JPRB/)
9631
KBO( :, 1,53,13) = (/&
9632
6
 & 6.6880E-02_JPRB,8.8647E+00_JPRB,1.5677E+01_JPRB,2.2193E+01_JPRB,2.9155E+01_JPRB/)
9633
KBO( :, 2,53,13) = (/&
9634
6
 & 1.3508E-01_JPRB,9.3494E+00_JPRB,1.6545E+01_JPRB,2.2742E+01_JPRB,2.9618E+01_JPRB/)
9635
KBO( :, 3,53,13) = (/&
9636
6
 & 2.5013E-01_JPRB,9.6673E+00_JPRB,1.7171E+01_JPRB,2.3128E+01_JPRB,2.9750E+01_JPRB/)
9637
KBO( :, 4,53,13) = (/&
9638
6
 & 4.3419E-01_JPRB,9.8656E+00_JPRB,1.7531E+01_JPRB,2.3368E+01_JPRB,2.9650E+01_JPRB/)
9639
KBO( :, 5,53,13) = (/&
9640
6
 & 7.2052E-01_JPRB,9.9643E+00_JPRB,1.7656E+01_JPRB,2.3466E+01_JPRB,2.9335E+01_JPRB/)
9641
KBO( :, 1,54,13) = (/&
9642
6
 & 5.0839E-02_JPRB,8.6560E+00_JPRB,1.5373E+01_JPRB,2.1974E+01_JPRB,2.8918E+01_JPRB/)
9643
KBO( :, 2,54,13) = (/&
9644
6
 & 1.0673E-01_JPRB,9.2095E+00_JPRB,1.6282E+01_JPRB,2.2589E+01_JPRB,2.9523E+01_JPRB/)
9645
KBO( :, 3,54,13) = (/&
9646
6
 & 2.0374E-01_JPRB,9.5773E+00_JPRB,1.7000E+01_JPRB,2.3024E+01_JPRB,2.9743E+01_JPRB/)
9647
KBO( :, 4,54,13) = (/&
9648
6
 & 3.6116E-01_JPRB,9.8132E+00_JPRB,1.7444E+01_JPRB,2.3313E+01_JPRB,2.9733E+01_JPRB/)
9649
KBO( :, 5,54,13) = (/&
9650
6
 & 6.0938E-01_JPRB,9.9478E+00_JPRB,1.7641E+01_JPRB,2.3452E+01_JPRB,2.9479E+01_JPRB/)
9651
KBO( :, 1,55,13) = (/&
9652
6
 & 3.8590E-02_JPRB,8.4380E+00_JPRB,1.5071E+01_JPRB,2.1738E+01_JPRB,2.8629E+01_JPRB/)
9653
KBO( :, 2,55,13) = (/&
9654
6
 & 8.4187E-02_JPRB,9.0594E+00_JPRB,1.6002E+01_JPRB,2.2420E+01_JPRB,2.9369E+01_JPRB/)
9655
KBO( :, 3,55,13) = (/&
9656
6
 & 1.6606E-01_JPRB,9.4812E+00_JPRB,1.6803E+01_JPRB,2.2906E+01_JPRB,2.9692E+01_JPRB/)
9657
KBO( :, 4,55,13) = (/&
9658
6
 & 3.0143E-01_JPRB,9.7562E+00_JPRB,1.7333E+01_JPRB,2.3245E+01_JPRB,2.9737E+01_JPRB/)
9659
KBO( :, 5,55,13) = (/&
9660
6
 & 5.1631E-01_JPRB,9.9193E+00_JPRB,1.7608E+01_JPRB,2.3429E+01_JPRB,2.9535E+01_JPRB/)
9661
KBO( :, 1,56,13) = (/&
9662
6
 & 2.8925E-02_JPRB,8.1981E+00_JPRB,1.4756E+01_JPRB,2.1468E+01_JPRB,2.8292E+01_JPRB/)
9663
KBO( :, 2,56,13) = (/&
9664
6
 & 6.5661E-02_JPRB,8.8869E+00_JPRB,1.5713E+01_JPRB,2.2226E+01_JPRB,2.9164E+01_JPRB/)
9665
KBO( :, 3,56,13) = (/&
9666
6
 & 1.3426E-01_JPRB,9.3664E+00_JPRB,1.6578E+01_JPRB,2.2772E+01_JPRB,2.9626E+01_JPRB/)
9667
KBO( :, 4,56,13) = (/&
9668
6
 & 2.5023E-01_JPRB,9.6820E+00_JPRB,1.7199E+01_JPRB,2.3159E+01_JPRB,2.9723E+01_JPRB/)
9669
KBO( :, 5,56,13) = (/&
9670
6
 & 4.3568E-01_JPRB,9.8776E+00_JPRB,1.7553E+01_JPRB,2.3395E+01_JPRB,2.9592E+01_JPRB/)
9671
KBO( :, 1,57,13) = (/&
9672
6
 & 2.1373E-02_JPRB,7.9379E+00_JPRB,1.4433E+01_JPRB,2.1148E+01_JPRB,2.7903E+01_JPRB/)
9673
KBO( :, 2,57,13) = (/&
9674
6
 & 5.0645E-02_JPRB,8.6879E+00_JPRB,1.5420E+01_JPRB,2.2015E+01_JPRB,2.8928E+01_JPRB/)
9675
KBO( :, 3,57,13) = (/&
9676
6
 & 1.0745E-01_JPRB,9.2330E+00_JPRB,1.6328E+01_JPRB,2.2623E+01_JPRB,2.9512E+01_JPRB/)
9677
KBO( :, 4,57,13) = (/&
9678
6
 & 2.0610E-01_JPRB,9.5955E+00_JPRB,1.7038E+01_JPRB,2.3057E+01_JPRB,2.9704E+01_JPRB/)
9679
KBO( :, 5,57,13) = (/&
9680
6
 & 3.6599E-01_JPRB,9.8279E+00_JPRB,1.7470E+01_JPRB,2.3341E+01_JPRB,2.9632E+01_JPRB/)
9681
KBO( :, 1,58,13) = (/&
9682
6
 & 1.5800E-02_JPRB,7.6756E+00_JPRB,1.4130E+01_JPRB,2.0811E+01_JPRB,2.7488E+01_JPRB/)
9683
KBO( :, 2,58,13) = (/&
9684
6
 & 3.9154E-02_JPRB,8.4827E+00_JPRB,1.5134E+01_JPRB,2.1791E+01_JPRB,2.8663E+01_JPRB/)
9685
KBO( :, 3,58,13) = (/&
9686
6
 & 8.6058E-02_JPRB,9.0936E+00_JPRB,1.6064E+01_JPRB,2.2465E+01_JPRB,2.9358E+01_JPRB/)
9687
KBO( :, 4,58,13) = (/&
9688
6
 & 1.7024E-01_JPRB,9.5047E+00_JPRB,1.6851E+01_JPRB,2.2942E+01_JPRB,2.9664E+01_JPRB/)
9689
KBO( :, 5,58,13) = (/&
9690
6
 & 3.0899E-01_JPRB,9.7734E+00_JPRB,1.7367E+01_JPRB,2.3275E+01_JPRB,2.9640E+01_JPRB/)
9691
KBO( :, 1,59,13) = (/&
9692
6
 & 1.3838E-02_JPRB,7.5677E+00_JPRB,1.4007E+01_JPRB,2.0664E+01_JPRB,2.7307E+01_JPRB/)
9693
KBO( :, 2,59,13) = (/&
9694
6
 & 3.5056E-02_JPRB,8.3966E+00_JPRB,1.5017E+01_JPRB,2.1696E+01_JPRB,2.8542E+01_JPRB/)
9695
KBO( :, 3,59,13) = (/&
9696
6
 & 7.8363E-02_JPRB,9.0327E+00_JPRB,1.5954E+01_JPRB,2.2395E+01_JPRB,2.9259E+01_JPRB/)
9697
KBO( :, 4,59,13) = (/&
9698
6
 & 1.5720E-01_JPRB,9.4649E+00_JPRB,1.6772E+01_JPRB,2.2896E+01_JPRB,2.9587E+01_JPRB/)
9699
KBO( :, 5,59,13) = (/&
9700
6
 & 2.8816E-01_JPRB,9.7494E+00_JPRB,1.7321E+01_JPRB,2.3246E+01_JPRB,2.9569E+01_JPRB/)
9701
KBO( :, 1,13,14) = (/&
9702
6
 & 4.6782E+00_JPRB,3.6509E+00_JPRB,4.2069E+00_JPRB,5.5965E+00_JPRB,7.3161E+00_JPRB/)
9703
9704
1
IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART32',1,ZHOOK_HANDLE)
9705
1
END SUBROUTINE PART32
9706
9707
9708
1
SUBROUTINE PART33
9709
9710
REAL(KIND=JPRB) :: ZHOOK_HANDLE
9711
1
IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART33',0,ZHOOK_HANDLE)
9712
9713
9714
KBO( :, 2,13,14) = (/&
9715
6
 & 6.6812E+00_JPRB,5.1302E+00_JPRB,4.5042E+00_JPRB,5.7107E+00_JPRB,7.2956E+00_JPRB/)
9716
KBO( :, 3,13,14) = (/&
9717
6
 & 9.0802E+00_JPRB,6.9191E+00_JPRB,5.0854E+00_JPRB,5.8389E+00_JPRB,7.2254E+00_JPRB/)
9718
KBO( :, 4,13,14) = (/&
9719
6
 & 1.1847E+01_JPRB,8.9860E+00_JPRB,6.1879E+00_JPRB,5.9827E+00_JPRB,7.1308E+00_JPRB/)
9720
KBO( :, 5,13,14) = (/&
9721
6
 & 1.4944E+01_JPRB,1.1307E+01_JPRB,7.6807E+00_JPRB,6.1087E+00_JPRB,7.0090E+00_JPRB/)
9722
KBO( :, 1,14,14) = (/&
9723
6
 & 4.9923E+00_JPRB,3.8888E+00_JPRB,4.7381E+00_JPRB,6.4037E+00_JPRB,8.3224E+00_JPRB/)
9724
KBO( :, 2,14,14) = (/&
9725
6
 & 7.1439E+00_JPRB,5.4635E+00_JPRB,4.9958E+00_JPRB,6.5120E+00_JPRB,8.2505E+00_JPRB/)
9726
KBO( :, 3,14,14) = (/&
9727
6
 & 9.7357E+00_JPRB,7.4026E+00_JPRB,5.5402E+00_JPRB,6.6306E+00_JPRB,8.1450E+00_JPRB/)
9728
KBO( :, 4,14,14) = (/&
9729
6
 & 1.2709E+01_JPRB,9.6301E+00_JPRB,6.6722E+00_JPRB,6.7341E+00_JPRB,8.0104E+00_JPRB/)
9730
KBO( :, 5,14,14) = (/&
9731
6
 & 1.6035E+01_JPRB,1.2120E+01_JPRB,8.2226E+00_JPRB,6.8436E+00_JPRB,7.8600E+00_JPRB/)
9732
KBO( :, 1,15,14) = (/&
9733
6
 & 5.4062E+00_JPRB,4.2107E+00_JPRB,5.3329E+00_JPRB,7.2809E+00_JPRB,9.4098E+00_JPRB/)
9734
KBO( :, 2,15,14) = (/&
9735
6
 & 7.7383E+00_JPRB,5.9068E+00_JPRB,5.5826E+00_JPRB,7.3825E+00_JPRB,9.2906E+00_JPRB/)
9736
KBO( :, 3,15,14) = (/&
9737
6
 & 1.0510E+01_JPRB,7.9793E+00_JPRB,6.1638E+00_JPRB,7.4874E+00_JPRB,9.1316E+00_JPRB/)
9738
KBO( :, 4,15,14) = (/&
9739
6
 & 1.3725E+01_JPRB,1.0385E+01_JPRB,7.2775E+00_JPRB,7.5682E+00_JPRB,8.9529E+00_JPRB/)
9740
KBO( :, 5,15,14) = (/&
9741
6
 & 1.7334E+01_JPRB,1.3091E+01_JPRB,8.9110E+00_JPRB,7.6564E+00_JPRB,8.7607E+00_JPRB/)
9742
KBO( :, 1,16,14) = (/&
9743
6
 & 5.9070E+00_JPRB,4.6227E+00_JPRB,6.0140E+00_JPRB,8.2333E+00_JPRB,1.0600E+01_JPRB/)
9744
KBO( :, 2,16,14) = (/&
9745
6
 & 8.4297E+00_JPRB,6.4209E+00_JPRB,6.2881E+00_JPRB,8.3090E+00_JPRB,1.0416E+01_JPRB/)
9746
KBO( :, 3,16,14) = (/&
9747
6
 & 1.1476E+01_JPRB,8.7000E+00_JPRB,6.9539E+00_JPRB,8.3944E+00_JPRB,1.0210E+01_JPRB/)
9748
KBO( :, 4,16,14) = (/&
9749
6
 & 1.4985E+01_JPRB,1.1333E+01_JPRB,8.0898E+00_JPRB,8.4541E+00_JPRB,9.9887E+00_JPRB/)
9750
KBO( :, 5,16,14) = (/&
9751
6
 & 1.8893E+01_JPRB,1.4263E+01_JPRB,9.7433E+00_JPRB,8.5272E+00_JPRB,9.7516E+00_JPRB/)
9752
KBO( :, 1,17,14) = (/&
9753
6
 & 6.5286E+00_JPRB,5.1327E+00_JPRB,6.7700E+00_JPRB,9.2670E+00_JPRB,1.1882E+01_JPRB/)
9754
KBO( :, 2,17,14) = (/&
9755
6
 & 9.3114E+00_JPRB,7.0853E+00_JPRB,7.1236E+00_JPRB,9.3227E+00_JPRB,1.1650E+01_JPRB/)
9756
KBO( :, 3,17,14) = (/&
9757
6
 & 1.2634E+01_JPRB,9.5700E+00_JPRB,7.8705E+00_JPRB,9.3681E+00_JPRB,1.1400E+01_JPRB/)
9758
KBO( :, 4,17,14) = (/&
9759
6
 & 1.6437E+01_JPRB,1.2419E+01_JPRB,9.0210E+00_JPRB,9.4013E+00_JPRB,1.1124E+01_JPRB/)
9760
KBO( :, 5,17,14) = (/&
9761
6
 & 2.0695E+01_JPRB,1.5610E+01_JPRB,1.0717E+01_JPRB,9.5036E+00_JPRB,1.0836E+01_JPRB/)
9762
KBO( :, 1,18,14) = (/&
9763
6
 & 7.2317E+00_JPRB,5.7331E+00_JPRB,7.5895E+00_JPRB,1.0388E+01_JPRB,1.3283E+01_JPRB/)
9764
KBO( :, 2,18,14) = (/&
9765
6
 & 1.0272E+01_JPRB,7.8128E+00_JPRB,8.0485E+00_JPRB,1.0408E+01_JPRB,1.2989E+01_JPRB/)
9766
KBO( :, 3,18,14) = (/&
9767
6
 & 1.3865E+01_JPRB,1.0490E+01_JPRB,8.8399E+00_JPRB,1.0411E+01_JPRB,1.2668E+01_JPRB/)
9768
KBO( :, 4,18,14) = (/&
9769
6
 & 1.8001E+01_JPRB,1.3591E+01_JPRB,1.0044E+01_JPRB,1.0415E+01_JPRB,1.2336E+01_JPRB/)
9770
KBO( :, 5,18,14) = (/&
9771
6
 & 2.2607E+01_JPRB,1.7043E+01_JPRB,1.1818E+01_JPRB,1.0584E+01_JPRB,1.2000E+01_JPRB/)
9772
KBO( :, 1,19,14) = (/&
9773
6
 & 7.9818E+00_JPRB,6.4241E+00_JPRB,8.4744E+00_JPRB,1.1590E+01_JPRB,1.4808E+01_JPRB/)
9774
KBO( :, 2,19,14) = (/&
9775
6
 & 1.1265E+01_JPRB,8.5751E+00_JPRB,9.0608E+00_JPRB,1.1546E+01_JPRB,1.4436E+01_JPRB/)
9776
KBO( :, 3,19,14) = (/&
9777
6
 & 1.5159E+01_JPRB,1.1457E+01_JPRB,9.8998E+00_JPRB,1.1494E+01_JPRB,1.4048E+01_JPRB/)
9778
KBO( :, 4,19,14) = (/&
9779
6
 & 1.9623E+01_JPRB,1.4803E+01_JPRB,1.1193E+01_JPRB,1.1515E+01_JPRB,1.3659E+01_JPRB/)
9780
KBO( :, 5,19,14) = (/&
9781
6
 & 2.4552E+01_JPRB,1.8498E+01_JPRB,1.3028E+01_JPRB,1.1768E+01_JPRB,1.3289E+01_JPRB/)
9782
KBO( :, 1,20,14) = (/&
9783
6
 & 8.8016E+00_JPRB,7.2179E+00_JPRB,9.4445E+00_JPRB,1.2859E+01_JPRB,1.6432E+01_JPRB/)
9784
KBO( :, 2,20,14) = (/&
9785
6
 & 1.2354E+01_JPRB,9.4599E+00_JPRB,1.0108E+01_JPRB,1.2760E+01_JPRB,1.5989E+01_JPRB/)
9786
KBO( :, 3,20,14) = (/&
9787
6
 & 1.6553E+01_JPRB,1.2501E+01_JPRB,1.1094E+01_JPRB,1.2659E+01_JPRB,1.5545E+01_JPRB/)
9788
KBO( :, 4,20,14) = (/&
9789
6
 & 2.1320E+01_JPRB,1.6075E+01_JPRB,1.2479E+01_JPRB,1.2712E+01_JPRB,1.5125E+01_JPRB/)
9790
KBO( :, 5,20,14) = (/&
9791
6
 & 2.6584E+01_JPRB,2.0023E+01_JPRB,1.4364E+01_JPRB,1.3028E+01_JPRB,1.4722E+01_JPRB/)
9792
KBO( :, 1,21,14) = (/&
9793
6
 & 9.6531E+00_JPRB,8.0964E+00_JPRB,1.0501E+01_JPRB,1.4235E+01_JPRB,1.8234E+01_JPRB/)
9794
KBO( :, 2,21,14) = (/&
9795
6
 & 1.3477E+01_JPRB,1.0427E+01_JPRB,1.1223E+01_JPRB,1.4069E+01_JPRB,1.7720E+01_JPRB/)
9796
KBO( :, 3,21,14) = (/&
9797
6
 & 1.7944E+01_JPRB,1.3555E+01_JPRB,1.2376E+01_JPRB,1.3942E+01_JPRB,1.7224E+01_JPRB/)
9798
KBO( :, 4,21,14) = (/&
9799
6
 & 2.3006E+01_JPRB,1.7340E+01_JPRB,1.3886E+01_JPRB,1.4053E+01_JPRB,1.6755E+01_JPRB/)
9800
KBO( :, 5,21,14) = (/&
9801
6
 & 2.8574E+01_JPRB,2.1516E+01_JPRB,1.5811E+01_JPRB,1.4416E+01_JPRB,1.6302E+01_JPRB/)
9802
KBO( :, 1,22,14) = (/&
9803
6
 & 1.0760E+01_JPRB,9.1888E+00_JPRB,1.1695E+01_JPRB,1.5745E+01_JPRB,2.0205E+01_JPRB/)
9804
KBO( :, 2,22,14) = (/&
9805
6
 & 1.4853E+01_JPRB,1.1640E+01_JPRB,1.2517E+01_JPRB,1.5515E+01_JPRB,1.9617E+01_JPRB/)
9806
KBO( :, 3,22,14) = (/&
9807
6
 & 1.9615E+01_JPRB,1.4884E+01_JPRB,1.3822E+01_JPRB,1.5397E+01_JPRB,1.9064E+01_JPRB/)
9808
KBO( :, 4,22,14) = (/&
9809
6
 & 2.4968E+01_JPRB,1.8810E+01_JPRB,1.5484E+01_JPRB,1.5561E+01_JPRB,1.8540E+01_JPRB/)
9810
KBO( :, 5,22,14) = (/&
9811
6
 & 3.0827E+01_JPRB,2.3206E+01_JPRB,1.7456E+01_JPRB,1.5921E+01_JPRB,1.8033E+01_JPRB/)
9812
KBO( :, 1,23,14) = (/&
9813
6
 & 1.1802E+01_JPRB,1.0322E+01_JPRB,1.2998E+01_JPRB,1.7421E+01_JPRB,2.2401E+01_JPRB/)
9814
KBO( :, 2,23,14) = (/&
9815
6
 & 1.6133E+01_JPRB,1.2850E+01_JPRB,1.3921E+01_JPRB,1.7123E+01_JPRB,2.1737E+01_JPRB/)
9816
KBO( :, 3,23,14) = (/&
9817
6
 & 2.1125E+01_JPRB,1.6165E+01_JPRB,1.5339E+01_JPRB,1.7031E+01_JPRB,2.1100E+01_JPRB/)
9818
KBO( :, 4,23,14) = (/&
9819
6
 & 2.6726E+01_JPRB,2.0157E+01_JPRB,1.7101E+01_JPRB,1.7209E+01_JPRB,2.0484E+01_JPRB/)
9820
KBO( :, 5,23,14) = (/&
9821
6
 & 3.2827E+01_JPRB,2.4712E+01_JPRB,1.9081E+01_JPRB,1.7519E+01_JPRB,1.9884E+01_JPRB/)
9822
KBO( :, 1,24,14) = (/&
9823
6
 & 1.2745E+01_JPRB,1.1442E+01_JPRB,1.4445E+01_JPRB,1.9244E+01_JPRB,2.4809E+01_JPRB/)
9824
KBO( :, 2,24,14) = (/&
9825
6
 & 1.7253E+01_JPRB,1.4016E+01_JPRB,1.5441E+01_JPRB,1.8901E+01_JPRB,2.4045E+01_JPRB/)
9826
KBO( :, 3,24,14) = (/&
9827
6
 & 2.2449E+01_JPRB,1.7365E+01_JPRB,1.6912E+01_JPRB,1.8816E+01_JPRB,2.3295E+01_JPRB/)
9828
KBO( :, 4,24,14) = (/&
9829
6
 & 2.8233E+01_JPRB,2.1395E+01_JPRB,1.8672E+01_JPRB,1.8934E+01_JPRB,2.2558E+01_JPRB/)
9830
KBO( :, 5,24,14) = (/&
9831
6
 & 3.4560E+01_JPRB,2.6021E+01_JPRB,2.0658E+01_JPRB,1.9202E+01_JPRB,2.1836E+01_JPRB/)
9832
KBO( :, 1,25,14) = (/&
9833
6
 & 1.3566E+01_JPRB,1.2543E+01_JPRB,1.5996E+01_JPRB,2.1177E+01_JPRB,2.7336E+01_JPRB/)
9834
KBO( :, 2,25,14) = (/&
9835
6
 & 1.8227E+01_JPRB,1.5135E+01_JPRB,1.7035E+01_JPRB,2.0783E+01_JPRB,2.6441E+01_JPRB/)
9836
KBO( :, 3,25,14) = (/&
9837
6
 & 2.3565E+01_JPRB,1.8483E+01_JPRB,1.8488E+01_JPRB,2.0675E+01_JPRB,2.5549E+01_JPRB/)
9838
KBO( :, 4,25,14) = (/&
9839
6
 & 2.9531E+01_JPRB,2.2535E+01_JPRB,2.0204E+01_JPRB,2.0688E+01_JPRB,2.4667E+01_JPRB/)
9840
KBO( :, 5,25,14) = (/&
9841
6
 & 3.6063E+01_JPRB,2.7206E+01_JPRB,2.2162E+01_JPRB,2.0908E+01_JPRB,2.3805E+01_JPRB/)
9842
KBO( :, 1,26,14) = (/&
9843
6
 & 1.4327E+01_JPRB,1.3631E+01_JPRB,1.7595E+01_JPRB,2.3118E+01_JPRB,2.9859E+01_JPRB/)
9844
KBO( :, 2,26,14) = (/&
9845
6
 & 1.9108E+01_JPRB,1.6210E+01_JPRB,1.8663E+01_JPRB,2.2706E+01_JPRB,2.8803E+01_JPRB/)
9846
KBO( :, 3,26,14) = (/&
9847
6
 & 2.4589E+01_JPRB,1.9567E+01_JPRB,2.0048E+01_JPRB,2.2494E+01_JPRB,2.7746E+01_JPRB/)
9848
KBO( :, 4,26,14) = (/&
9849
6
 & 3.0710E+01_JPRB,2.3631E+01_JPRB,2.1693E+01_JPRB,2.2407E+01_JPRB,2.6705E+01_JPRB/)
9850
KBO( :, 5,26,14) = (/&
9851
6
 & 3.7411E+01_JPRB,2.8326E+01_JPRB,2.3613E+01_JPRB,2.2582E+01_JPRB,2.5687E+01_JPRB/)
9852
KBO( :, 1,27,14) = (/&
9853
6
 & 1.4974E+01_JPRB,1.4661E+01_JPRB,1.9208E+01_JPRB,2.5017E+01_JPRB,3.2282E+01_JPRB/)
9854
KBO( :, 2,27,14) = (/&
9855
6
 & 1.9864E+01_JPRB,1.7209E+01_JPRB,2.0231E+01_JPRB,2.4566E+01_JPRB,3.1037E+01_JPRB/)
9856
KBO( :, 3,27,14) = (/&
9857
6
 & 2.5463E+01_JPRB,2.0563E+01_JPRB,2.1528E+01_JPRB,2.4213E+01_JPRB,2.9805E+01_JPRB/)
9858
KBO( :, 4,27,14) = (/&
9859
6
 & 3.1732E+01_JPRB,2.4635E+01_JPRB,2.3113E+01_JPRB,2.4054E+01_JPRB,2.8597E+01_JPRB/)
9860
KBO( :, 5,27,14) = (/&
9861
6
 & 3.8595E+01_JPRB,2.9368E+01_JPRB,2.4984E+01_JPRB,2.4188E+01_JPRB,2.7415E+01_JPRB/)
9862
KBO( :, 1,28,14) = (/&
9863
6
 & 1.5529E+01_JPRB,1.5623E+01_JPRB,2.0763E+01_JPRB,2.6821E+01_JPRB,3.4499E+01_JPRB/)
9864
KBO( :, 2,28,14) = (/&
9865
6
 & 2.0516E+01_JPRB,1.8143E+01_JPRB,2.1720E+01_JPRB,2.6283E+01_JPRB,3.3057E+01_JPRB/)
9866
KBO( :, 3,28,14) = (/&
9867
6
 & 2.6237E+01_JPRB,2.1495E+01_JPRB,2.2921E+01_JPRB,2.5811E+01_JPRB,3.1645E+01_JPRB/)
9868
KBO( :, 4,28,14) = (/&
9869
6
 & 3.2647E+01_JPRB,2.5586E+01_JPRB,2.4438E+01_JPRB,2.5592E+01_JPRB,3.0274E+01_JPRB/)
9870
KBO( :, 5,28,14) = (/&
9871
6
 & 3.9662E+01_JPRB,3.0339E+01_JPRB,2.6263E+01_JPRB,2.5678E+01_JPRB,2.8942E+01_JPRB/)
9872
KBO( :, 1,29,14) = (/&
9873
6
 & 1.6065E+01_JPRB,1.6544E+01_JPRB,2.2216E+01_JPRB,2.8472E+01_JPRB,3.6458E+01_JPRB/)
9874
KBO( :, 2,29,14) = (/&
9875
6
 & 2.1153E+01_JPRB,1.9041E+01_JPRB,2.3104E+01_JPRB,2.7817E+01_JPRB,3.4827E+01_JPRB/)
9876
KBO( :, 3,29,14) = (/&
9877
6
 & 2.7000E+01_JPRB,2.2394E+01_JPRB,2.4221E+01_JPRB,2.7267E+01_JPRB,3.3240E+01_JPRB/)
9878
KBO( :, 4,29,14) = (/&
9879
6
 & 3.3548E+01_JPRB,2.6519E+01_JPRB,2.5679E+01_JPRB,2.7001E+01_JPRB,3.1702E+01_JPRB/)
9880
KBO( :, 5,29,14) = (/&
9881
6
 & 4.0738E+01_JPRB,3.1323E+01_JPRB,2.7457E+01_JPRB,2.7031E+01_JPRB,3.0226E+01_JPRB/)
9882
KBO( :, 1,30,14) = (/&
9883
6
 & 1.6583E+01_JPRB,1.7406E+01_JPRB,2.3544E+01_JPRB,2.9947E+01_JPRB,3.8146E+01_JPRB/)
9884
KBO( :, 2,30,14) = (/&
9885
6
 & 2.1792E+01_JPRB,1.9899E+01_JPRB,2.4353E+01_JPRB,2.9156E+01_JPRB,3.6330E+01_JPRB/)
9886
KBO( :, 3,30,14) = (/&
9887
6
 & 2.7775E+01_JPRB,2.3269E+01_JPRB,2.5405E+01_JPRB,2.8560E+01_JPRB,3.4577E+01_JPRB/)
9888
KBO( :, 4,30,14) = (/&
9889
6
 & 3.4468E+01_JPRB,2.7442E+01_JPRB,2.6816E+01_JPRB,2.8255E+01_JPRB,3.2901E+01_JPRB/)
9890
KBO( :, 5,30,14) = (/&
9891
6
 & 4.1847E+01_JPRB,3.2326E+01_JPRB,2.8565E+01_JPRB,2.8235E+01_JPRB,3.1294E+01_JPRB/)
9892
KBO( :, 1,31,14) = (/&
9893
6
 & 1.7141E+01_JPRB,1.8216E+01_JPRB,2.4732E+01_JPRB,3.1198E+01_JPRB,3.9531E+01_JPRB/)
9894
KBO( :, 2,31,14) = (/&
9895
6
 & 2.2491E+01_JPRB,2.0743E+01_JPRB,2.5474E+01_JPRB,3.0318E+01_JPRB,3.7553E+01_JPRB/)
9896
KBO( :, 3,31,14) = (/&
9897
6
 & 2.8624E+01_JPRB,2.4158E+01_JPRB,2.6485E+01_JPRB,2.9690E+01_JPRB,3.5656E+01_JPRB/)
9898
KBO( :, 4,31,14) = (/&
9899
6
 & 3.5512E+01_JPRB,2.8414E+01_JPRB,2.7854E+01_JPRB,2.9357E+01_JPRB,3.3855E+01_JPRB/)
9900
KBO( :, 5,31,14) = (/&
9901
6
 & 4.3115E+01_JPRB,3.3401E+01_JPRB,2.9611E+01_JPRB,2.9290E+01_JPRB,3.2132E+01_JPRB/)
9902
KBO( :, 1,32,14) = (/&
9903
6
 & 1.7775E+01_JPRB,1.8991E+01_JPRB,2.5780E+01_JPRB,3.2231E+01_JPRB,4.0629E+01_JPRB/)
9904
KBO( :, 2,32,14) = (/&
9905
6
 & 2.3279E+01_JPRB,2.1576E+01_JPRB,2.6467E+01_JPRB,3.1293E+01_JPRB,3.8513E+01_JPRB/)
9906
KBO( :, 3,32,14) = (/&
9907
6
 & 2.9596E+01_JPRB,2.5078E+01_JPRB,2.7453E+01_JPRB,3.0651E+01_JPRB,3.6492E+01_JPRB/)
9908
KBO( :, 4,32,14) = (/&
9909
6
 & 3.6705E+01_JPRB,2.9433E+01_JPRB,2.8819E+01_JPRB,3.0298E+01_JPRB,3.4575E+01_JPRB/)
9910
KBO( :, 5,32,14) = (/&
9911
6
 & 4.4536E+01_JPRB,3.4534E+01_JPRB,3.0584E+01_JPRB,3.0174E+01_JPRB,3.2756E+01_JPRB/)
9912
KBO( :, 1,33,14) = (/&
9913
6
 & 1.8489E+01_JPRB,1.9733E+01_JPRB,2.6684E+01_JPRB,3.3047E+01_JPRB,4.1445E+01_JPRB/)
9914
KBO( :, 2,33,14) = (/&
9915
6
 & 2.4189E+01_JPRB,2.2424E+01_JPRB,2.7346E+01_JPRB,3.2099E+01_JPRB,3.9209E+01_JPRB/)
9916
KBO( :, 3,33,14) = (/&
9917
6
 & 3.0723E+01_JPRB,2.6034E+01_JPRB,2.8320E+01_JPRB,3.1451E+01_JPRB,3.7092E+01_JPRB/)
9918
KBO( :, 4,33,14) = (/&
9919
6
 & 3.8063E+01_JPRB,3.0513E+01_JPRB,2.9704E+01_JPRB,3.1070E+01_JPRB,3.5085E+01_JPRB/)
9920
KBO( :, 5,33,14) = (/&
9921
6
 & 4.6119E+01_JPRB,3.5751E+01_JPRB,3.1499E+01_JPRB,3.0917E+01_JPRB,3.3191E+01_JPRB/)
9922
KBO( :, 1,34,14) = (/&
9923
6
 & 1.9120E+01_JPRB,2.0380E+01_JPRB,2.7451E+01_JPRB,3.3738E+01_JPRB,4.2092E+01_JPRB/)
9924
KBO( :, 2,34,14) = (/&
9925
6
 & 2.5003E+01_JPRB,2.3162E+01_JPRB,2.8086E+01_JPRB,3.2774E+01_JPRB,3.9759E+01_JPRB/)
9926
KBO( :, 3,34,14) = (/&
9927
6
 & 3.1744E+01_JPRB,2.6883E+01_JPRB,2.9061E+01_JPRB,3.2120E+01_JPRB,3.7559E+01_JPRB/)
9928
KBO( :, 4,34,14) = (/&
9929
6
 & 3.9301E+01_JPRB,3.1483E+01_JPRB,3.0464E+01_JPRB,3.1710E+01_JPRB,3.5480E+01_JPRB/)
9930
KBO( :, 5,34,14) = (/&
9931
6
 & 4.7562E+01_JPRB,3.6856E+01_JPRB,3.2292E+01_JPRB,3.1536E+01_JPRB,3.3568E+01_JPRB/)
9932
KBO( :, 1,35,14) = (/&
9933
6
 & 1.9330E+01_JPRB,2.0794E+01_JPRB,2.8053E+01_JPRB,3.4390E+01_JPRB,4.2763E+01_JPRB/)
9934
KBO( :, 2,35,14) = (/&
9935
6
 & 2.5319E+01_JPRB,2.3595E+01_JPRB,2.8656E+01_JPRB,3.3397E+01_JPRB,4.0342E+01_JPRB/)
9936
KBO( :, 3,35,14) = (/&
9937
6
 & 3.2191E+01_JPRB,2.7358E+01_JPRB,2.9608E+01_JPRB,3.2717E+01_JPRB,3.8062E+01_JPRB/)
9938
KBO( :, 4,35,14) = (/&
9939
6
 & 3.9886E+01_JPRB,3.2011E+01_JPRB,3.1003E+01_JPRB,3.2263E+01_JPRB,3.5938E+01_JPRB/)
9940
KBO( :, 5,35,14) = (/&
9941
6
 & 4.8294E+01_JPRB,3.7467E+01_JPRB,3.2840E+01_JPRB,3.2051E+01_JPRB,3.4008E+01_JPRB/)
9942
KBO( :, 1,36,14) = (/&
9943
6
 & 1.9010E+01_JPRB,2.0941E+01_JPRB,2.8519E+01_JPRB,3.5044E+01_JPRB,4.3548E+01_JPRB/)
9944
KBO( :, 2,36,14) = (/&
9945
6
 & 2.5019E+01_JPRB,2.3674E+01_JPRB,2.9070E+01_JPRB,3.3996E+01_JPRB,4.1038E+01_JPRB/)
9946
KBO( :, 3,36,14) = (/&
9947
6
 & 3.1927E+01_JPRB,2.7395E+01_JPRB,2.9968E+01_JPRB,3.3265E+01_JPRB,3.8679E+01_JPRB/)
9948
KBO( :, 4,36,14) = (/&
9949
6
 & 3.9672E+01_JPRB,3.2015E+01_JPRB,3.1322E+01_JPRB,3.2758E+01_JPRB,3.6525E+01_JPRB/)
9950
KBO( :, 5,36,14) = (/&
9951
6
 & 4.8151E+01_JPRB,3.7481E+01_JPRB,3.3115E+01_JPRB,3.2494E+01_JPRB,3.4530E+01_JPRB/)
9952
KBO( :, 1,37,14) = (/&
9953
6
 & 1.7926E+01_JPRB,2.0769E+01_JPRB,2.8871E+01_JPRB,3.5793E+01_JPRB,4.4612E+01_JPRB/)
9954
KBO( :, 2,37,14) = (/&
9955
6
 & 2.3809E+01_JPRB,2.3285E+01_JPRB,2.9325E+01_JPRB,3.4640E+01_JPRB,4.1997E+01_JPRB/)
9956
KBO( :, 3,37,14) = (/&
9957
6
 & 3.0620E+01_JPRB,2.6825E+01_JPRB,3.0118E+01_JPRB,3.3823E+01_JPRB,3.9558E+01_JPRB/)
9958
KBO( :, 4,37,14) = (/&
9959
6
 & 3.8296E+01_JPRB,3.1288E+01_JPRB,3.1366E+01_JPRB,3.3235E+01_JPRB,3.7337E+01_JPRB/)
9960
KBO( :, 5,37,14) = (/&
9961
6
 & 4.6724E+01_JPRB,3.6634E+01_JPRB,3.3044E+01_JPRB,3.2894E+01_JPRB,3.5259E+01_JPRB/)
9962
KBO( :, 1,38,14) = (/&
9963
6
 & 1.6878E+01_JPRB,2.0610E+01_JPRB,2.9172E+01_JPRB,3.6472E+01_JPRB,4.5609E+01_JPRB/)
9964
KBO( :, 2,38,14) = (/&
9965
6
 & 2.2623E+01_JPRB,2.2907E+01_JPRB,2.9536E+01_JPRB,3.5227E+01_JPRB,4.2904E+01_JPRB/)
9966
KBO( :, 3,38,14) = (/&
9967
6
 & 2.9321E+01_JPRB,2.6260E+01_JPRB,3.0234E+01_JPRB,3.4327E+01_JPRB,4.0395E+01_JPRB/)
9968
KBO( :, 4,38,14) = (/&
9969
6
 & 3.6903E+01_JPRB,3.0559E+01_JPRB,3.1375E+01_JPRB,3.3664E+01_JPRB,3.8108E+01_JPRB/)
9970
KBO( :, 5,38,14) = (/&
9971
6
 & 4.5262E+01_JPRB,3.5766E+01_JPRB,3.2950E+01_JPRB,3.3255E+01_JPRB,3.5951E+01_JPRB/)
9972
KBO( :, 1,39,14) = (/&
9973
6
 & 1.5902E+01_JPRB,2.0474E+01_JPRB,2.9440E+01_JPRB,3.7085E+01_JPRB,4.6521E+01_JPRB/)
9974
KBO( :, 2,39,14) = (/&
9975
6
 & 2.1511E+01_JPRB,2.2570E+01_JPRB,2.9719E+01_JPRB,3.5757E+01_JPRB,4.3739E+01_JPRB/)
9976
KBO( :, 3,39,14) = (/&
9977
6
 & 2.8094E+01_JPRB,2.5734E+01_JPRB,3.0328E+01_JPRB,3.4778E+01_JPRB,4.1182E+01_JPRB/)
9978
KBO( :, 4,39,14) = (/&
9979
6
 & 3.5578E+01_JPRB,2.9877E+01_JPRB,3.1374E+01_JPRB,3.4050E+01_JPRB,3.8820E+01_JPRB/)
9980
KBO( :, 5,39,14) = (/&
9981
6
 & 4.3862E+01_JPRB,3.4943E+01_JPRB,3.2862E+01_JPRB,3.3572E+01_JPRB,3.6607E+01_JPRB/)
9982
KBO( :, 1,40,14) = (/&
9983
6
 & 1.4487E+01_JPRB,2.0210E+01_JPRB,2.9678E+01_JPRB,3.7814E+01_JPRB,4.7667E+01_JPRB/)
9984
KBO( :, 2,40,14) = (/&
9985
6
 & 1.9857E+01_JPRB,2.2013E+01_JPRB,2.9846E+01_JPRB,3.6374E+01_JPRB,4.4798E+01_JPRB/)
9986
KBO( :, 3,40,14) = (/&
9987
6
 & 2.6217E+01_JPRB,2.4887E+01_JPRB,3.0342E+01_JPRB,3.5275E+01_JPRB,4.2152E+01_JPRB/)
9988
KBO( :, 4,40,14) = (/&
9989
6
 & 3.3508E+01_JPRB,2.8778E+01_JPRB,3.1239E+01_JPRB,3.4477E+01_JPRB,3.9718E+01_JPRB/)
9990
KBO( :, 5,40,14) = (/&
9991
6
 & 4.1627E+01_JPRB,3.3601E+01_JPRB,3.2609E+01_JPRB,3.3904E+01_JPRB,3.7435E+01_JPRB/)
9992
KBO( :, 1,41,14) = (/&
9993
6
 & 1.3110E+01_JPRB,1.9958E+01_JPRB,2.9912E+01_JPRB,3.8549E+01_JPRB,4.8809E+01_JPRB/)
9994
KBO( :, 2,41,14) = (/&
9995
6
 & 1.8221E+01_JPRB,2.1507E+01_JPRB,2.9962E+01_JPRB,3.6988E+01_JPRB,4.5856E+01_JPRB/)
9996
KBO( :, 3,41,14) = (/&
9997
6
 & 2.4334E+01_JPRB,2.4070E+01_JPRB,3.0356E+01_JPRB,3.5769E+01_JPRB,4.3126E+01_JPRB/)
9998
KBO( :, 4,41,14) = (/&
9999
6
 & 3.1415E+01_JPRB,2.7692E+01_JPRB,3.1100E+01_JPRB,3.4894E+01_JPRB,4.0627E+01_JPRB/)
10000
KBO( :, 5,41,14) = (/&
10001
6
 & 3.9350E+01_JPRB,3.2265E+01_JPRB,3.2344E+01_JPRB,3.4220E+01_JPRB,3.8269E+01_JPRB/)
10002
KBO( :, 1,42,14) = (/&
10003
6
 & 1.1835E+01_JPRB,1.9752E+01_JPRB,3.0145E+01_JPRB,3.9251E+01_JPRB,4.9910E+01_JPRB/)
10004
10005
1
IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART33',1,ZHOOK_HANDLE)
10006
1
END SUBROUTINE PART33
10007
10008
10009
1
SUBROUTINE PART34
10010
10011
REAL(KIND=JPRB) :: ZHOOK_HANDLE
10012
1
IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART34',0,ZHOOK_HANDLE)
10013
10014
10015
KBO( :, 2,42,14) = (/&
10016
6
 & 1.6674E+01_JPRB,2.1083E+01_JPRB,3.0080E+01_JPRB,3.7587E+01_JPRB,4.6885E+01_JPRB/)
10017
KBO( :, 3,42,14) = (/&
10018
6
 & 2.2540E+01_JPRB,2.3336E+01_JPRB,3.0367E+01_JPRB,3.6256E+01_JPRB,4.4084E+01_JPRB/)
10019
KBO( :, 4,42,14) = (/&
10020
6
 & 2.9380E+01_JPRB,2.6668E+01_JPRB,3.0980E+01_JPRB,3.5287E+01_JPRB,4.1523E+01_JPRB/)
10021
KBO( :, 5,42,14) = (/&
10022
6
 & 3.7130E+01_JPRB,3.0990E+01_JPRB,3.2078E+01_JPRB,3.4533E+01_JPRB,3.9096E+01_JPRB/)
10023
KBO( :, 1,43,14) = (/&
10024
6
 & 1.0424E+01_JPRB,1.9517E+01_JPRB,3.0390E+01_JPRB,4.0028E+01_JPRB,5.1165E+01_JPRB/)
10025
KBO( :, 2,43,14) = (/&
10026
6
 & 1.4940E+01_JPRB,2.0651E+01_JPRB,3.0207E+01_JPRB,3.8268E+01_JPRB,4.8059E+01_JPRB/)
10027
KBO( :, 3,43,14) = (/&
10028
6
 & 2.0485E+01_JPRB,2.2541E+01_JPRB,3.0363E+01_JPRB,3.6818E+01_JPRB,4.5176E+01_JPRB/)
10029
KBO( :, 4,43,14) = (/&
10030
6
 & 2.7034E+01_JPRB,2.5521E+01_JPRB,3.0853E+01_JPRB,3.5715E+01_JPRB,4.2549E+01_JPRB/)
10031
KBO( :, 5,43,14) = (/&
10032
6
 & 3.4521E+01_JPRB,2.9529E+01_JPRB,3.1770E+01_JPRB,3.4894E+01_JPRB,4.0051E+01_JPRB/)
10033
KBO( :, 1,44,14) = (/&
10034
6
 & 9.0454E+00_JPRB,1.9303E+01_JPRB,3.0654E+01_JPRB,4.0829E+01_JPRB,5.2486E+01_JPRB/)
10035
KBO( :, 2,44,14) = (/&
10036
6
 & 1.3210E+01_JPRB,2.0258E+01_JPRB,3.0364E+01_JPRB,3.9018E+01_JPRB,4.9303E+01_JPRB/)
10037
KBO( :, 3,44,14) = (/&
10038
6
 & 1.8410E+01_JPRB,2.1811E+01_JPRB,3.0377E+01_JPRB,3.7427E+01_JPRB,4.6338E+01_JPRB/)
10039
KBO( :, 4,44,14) = (/&
10040
6
 & 2.4625E+01_JPRB,2.4403E+01_JPRB,3.0751E+01_JPRB,3.6187E+01_JPRB,4.3644E+01_JPRB/)
10041
KBO( :, 5,44,14) = (/&
10042
6
 & 3.1810E+01_JPRB,2.8069E+01_JPRB,3.1486E+01_JPRB,3.5287E+01_JPRB,4.1079E+01_JPRB/)
10043
KBO( :, 1,45,14) = (/&
10044
6
 & 7.7991E+00_JPRB,1.9124E+01_JPRB,3.0912E+01_JPRB,4.1626E+01_JPRB,5.3793E+01_JPRB/)
10045
KBO( :, 2,45,14) = (/&
10046
6
 & 1.1620E+01_JPRB,1.9930E+01_JPRB,3.0535E+01_JPRB,3.9772E+01_JPRB,5.0542E+01_JPRB/)
10047
KBO( :, 3,45,14) = (/&
10048
6
 & 1.6462E+01_JPRB,2.1220E+01_JPRB,3.0424E+01_JPRB,3.8053E+01_JPRB,4.7507E+01_JPRB/)
10049
KBO( :, 4,45,14) = (/&
10050
6
 & 2.2340E+01_JPRB,2.3424E+01_JPRB,3.0669E+01_JPRB,3.6679E+01_JPRB,4.4753E+01_JPRB/)
10051
KBO( :, 5,45,14) = (/&
10052
6
 & 2.9206E+01_JPRB,2.6717E+01_JPRB,3.1243E+01_JPRB,3.5671E+01_JPRB,4.2118E+01_JPRB/)
10053
KBO( :, 1,46,14) = (/&
10054
6
 & 6.6114E+00_JPRB,1.8975E+01_JPRB,3.1192E+01_JPRB,4.2505E+01_JPRB,5.5177E+01_JPRB/)
10055
KBO( :, 2,46,14) = (/&
10056
6
 & 1.0078E+01_JPRB,1.9636E+01_JPRB,3.0742E+01_JPRB,4.0557E+01_JPRB,5.1854E+01_JPRB/)
10057
KBO( :, 3,46,14) = (/&
10058
6
 & 1.4541E+01_JPRB,2.0717E+01_JPRB,3.0510E+01_JPRB,3.8745E+01_JPRB,4.8748E+01_JPRB/)
10059
KBO( :, 4,46,14) = (/&
10060
6
 & 2.0050E+01_JPRB,2.2518E+01_JPRB,3.0610E+01_JPRB,3.7236E+01_JPRB,4.5932E+01_JPRB/)
10061
KBO( :, 5,46,14) = (/&
10062
6
 & 2.6570E+01_JPRB,2.5413E+01_JPRB,3.1056E+01_JPRB,3.6085E+01_JPRB,4.3222E+01_JPRB/)
10063
KBO( :, 1,47,14) = (/&
10064
6
 & 5.4426E+00_JPRB,1.8843E+01_JPRB,3.1468E+01_JPRB,4.3504E+01_JPRB,5.6708E+01_JPRB/)
10065
KBO( :, 2,47,14) = (/&
10066
6
 & 8.5243E+00_JPRB,1.9360E+01_JPRB,3.0989E+01_JPRB,4.1408E+01_JPRB,5.3314E+01_JPRB/)
10067
KBO( :, 3,47,14) = (/&
10068
6
 & 1.2575E+01_JPRB,2.0245E+01_JPRB,3.0638E+01_JPRB,3.9555E+01_JPRB,5.0119E+01_JPRB/)
10069
KBO( :, 4,47,14) = (/&
10070
6
 & 1.7661E+01_JPRB,2.1683E+01_JPRB,3.0580E+01_JPRB,3.7894E+01_JPRB,4.7238E+01_JPRB/)
10071
KBO( :, 5,47,14) = (/&
10072
6
 & 2.3779E+01_JPRB,2.4127E+01_JPRB,3.0897E+01_JPRB,3.6585E+01_JPRB,4.4450E+01_JPRB/)
10073
KBO( :, 1,48,14) = (/&
10074
6
 & 4.4277E+00_JPRB,1.8761E+01_JPRB,3.1768E+01_JPRB,4.4555E+01_JPRB,5.8239E+01_JPRB/)
10075
KBO( :, 2,48,14) = (/&
10076
6
 & 7.1412E+00_JPRB,1.9151E+01_JPRB,3.1244E+01_JPRB,4.2299E+01_JPRB,5.4783E+01_JPRB/)
10077
KBO( :, 3,48,14) = (/&
10078
6
 & 1.0789E+01_JPRB,1.9869E+01_JPRB,3.0807E+01_JPRB,4.0379E+01_JPRB,5.1522E+01_JPRB/)
10079
KBO( :, 4,48,14) = (/&
10080
6
 & 1.5451E+01_JPRB,2.1038E+01_JPRB,3.0616E+01_JPRB,3.8583E+01_JPRB,4.8572E+01_JPRB/)
10081
KBO( :, 5,48,14) = (/&
10082
6
 & 2.1160E+01_JPRB,2.3022E+01_JPRB,3.0768E+01_JPRB,3.7126E+01_JPRB,4.5703E+01_JPRB/)
10083
KBO( :, 1,49,14) = (/&
10084
6
 & 3.5582E+00_JPRB,1.8724E+01_JPRB,3.2110E+01_JPRB,4.5630E+01_JPRB,5.9777E+01_JPRB/)
10085
KBO( :, 2,49,14) = (/&
10086
6
 & 5.9176E+00_JPRB,1.8981E+01_JPRB,3.1512E+01_JPRB,4.3246E+01_JPRB,5.6279E+01_JPRB/)
10087
KBO( :, 3,49,14) = (/&
10088
6
 & 9.1765E+00_JPRB,1.9555E+01_JPRB,3.1023E+01_JPRB,4.1205E+01_JPRB,5.2968E+01_JPRB/)
10089
KBO( :, 4,49,14) = (/&
10090
6
 & 1.3419E+01_JPRB,2.0517E+01_JPRB,3.0706E+01_JPRB,3.9341E+01_JPRB,4.9951E+01_JPRB/)
10091
KBO( :, 5,49,14) = (/&
10092
6
 & 1.8709E+01_JPRB,2.2099E+01_JPRB,3.0706E+01_JPRB,3.7732E+01_JPRB,4.7001E+01_JPRB/)
10093
KBO( :, 1,50,14) = (/&
10094
6
 & 2.8621E+00_JPRB,1.8722E+01_JPRB,3.2476E+01_JPRB,4.6653E+01_JPRB,6.1210E+01_JPRB/)
10095
KBO( :, 2,50,14) = (/&
10096
6
 & 4.9088E+00_JPRB,1.8875E+01_JPRB,3.1754E+01_JPRB,4.4175E+01_JPRB,5.7683E+01_JPRB/)
10097
KBO( :, 3,50,14) = (/&
10098
6
 & 7.8135E+00_JPRB,1.9320E+01_JPRB,3.1237E+01_JPRB,4.1987E+01_JPRB,5.4314E+01_JPRB/)
10099
KBO( :, 4,50,14) = (/&
10100
6
 & 1.1676E+01_JPRB,2.0117E+01_JPRB,3.0830E+01_JPRB,4.0088E+01_JPRB,5.1232E+01_JPRB/)
10101
KBO( :, 5,50,14) = (/&
10102
6
 & 1.6567E+01_JPRB,2.1410E+01_JPRB,3.0696E+01_JPRB,3.8343E+01_JPRB,4.8212E+01_JPRB/)
10103
KBO( :, 1,51,14) = (/&
10104
6
 & 2.2871E+00_JPRB,1.8709E+01_JPRB,3.2860E+01_JPRB,4.7625E+01_JPRB,6.2589E+01_JPRB/)
10105
KBO( :, 2,51,14) = (/&
10106
6
 & 4.0542E+00_JPRB,1.8811E+01_JPRB,3.2015E+01_JPRB,4.5121E+01_JPRB,5.9058E+01_JPRB/)
10107
KBO( :, 3,51,14) = (/&
10108
6
 & 6.6290E+00_JPRB,1.9146E+01_JPRB,3.1467E+01_JPRB,4.2798E+01_JPRB,5.5634E+01_JPRB/)
10109
KBO( :, 4,51,14) = (/&
10110
6
 & 1.0131E+01_JPRB,1.9796E+01_JPRB,3.0988E+01_JPRB,4.0823E+01_JPRB,5.2469E+01_JPRB/)
10111
KBO( :, 5,51,14) = (/&
10112
6
 & 1.4636E+01_JPRB,2.0878E+01_JPRB,3.0739E+01_JPRB,3.8979E+01_JPRB,4.9405E+01_JPRB/)
10113
KBO( :, 1,52,14) = (/&
10114
6
 & 1.8042E+00_JPRB,1.8682E+01_JPRB,3.3246E+01_JPRB,4.8560E+01_JPRB,6.3938E+01_JPRB/)
10115
KBO( :, 2,52,14) = (/&
10116
6
 & 3.3141E+00_JPRB,1.8789E+01_JPRB,3.2326E+01_JPRB,4.6081E+01_JPRB,6.0432E+01_JPRB/)
10117
KBO( :, 3,52,14) = (/&
10118
6
 & 5.5749E+00_JPRB,1.9001E+01_JPRB,3.1682E+01_JPRB,4.3646E+01_JPRB,5.6974E+01_JPRB/)
10119
KBO( :, 4,52,14) = (/&
10120
6
 & 8.7257E+00_JPRB,1.9525E+01_JPRB,3.1181E+01_JPRB,4.1550E+01_JPRB,5.3732E+01_JPRB/)
10121
KBO( :, 5,52,14) = (/&
10122
6
 & 1.2856E+01_JPRB,2.0429E+01_JPRB,3.0821E+01_JPRB,3.9666E+01_JPRB,5.0627E+01_JPRB/)
10123
KBO( :, 1,53,14) = (/&
10124
6
 & 1.4016E+00_JPRB,1.8621E+01_JPRB,3.3678E+01_JPRB,4.9490E+01_JPRB,6.5279E+01_JPRB/)
10125
KBO( :, 2,53,14) = (/&
10126
6
 & 2.6762E+00_JPRB,1.8776E+01_JPRB,3.2671E+01_JPRB,4.7047E+01_JPRB,6.1804E+01_JPRB/)
10127
KBO( :, 3,53,14) = (/&
10128
6
 & 4.6412E+00_JPRB,1.8903E+01_JPRB,3.1912E+01_JPRB,4.4545E+01_JPRB,5.8349E+01_JPRB/)
10129
KBO( :, 4,53,14) = (/&
10130
6
 & 7.4512E+00_JPRB,1.9311E+01_JPRB,3.1378E+01_JPRB,4.2307E+01_JPRB,5.5036E+01_JPRB/)
10131
KBO( :, 5,53,14) = (/&
10132
6
 & 1.1217E+01_JPRB,2.0061E+01_JPRB,3.0940E+01_JPRB,4.0380E+01_JPRB,5.1884E+01_JPRB/)
10133
KBO( :, 1,54,14) = (/&
10134
6
 & 1.0961E+00_JPRB,1.8547E+01_JPRB,3.4112E+01_JPRB,5.0332E+01_JPRB,6.6490E+01_JPRB/)
10135
KBO( :, 2,54,14) = (/&
10136
6
 & 2.1755E+00_JPRB,1.8757E+01_JPRB,3.3015E+01_JPRB,4.7918E+01_JPRB,6.3018E+01_JPRB/)
10137
KBO( :, 3,54,14) = (/&
10138
6
 & 3.8890E+00_JPRB,1.8845E+01_JPRB,3.2149E+01_JPRB,4.5398E+01_JPRB,5.9550E+01_JPRB/)
10139
KBO( :, 4,54,14) = (/&
10140
6
 & 6.4008E+00_JPRB,1.9153E+01_JPRB,3.1582E+01_JPRB,4.3046E+01_JPRB,5.6158E+01_JPRB/)
10141
KBO( :, 5,54,14) = (/&
10142
6
 & 9.8389E+00_JPRB,1.9773E+01_JPRB,3.1086E+01_JPRB,4.1043E+01_JPRB,5.2991E+01_JPRB/)
10143
KBO( :, 1,55,14) = (/&
10144
6
 & 8.5398E-01_JPRB,1.8492E+01_JPRB,3.4545E+01_JPRB,5.1111E+01_JPRB,6.7620E+01_JPRB/)
10145
KBO( :, 2,55,14) = (/&
10146
6
 & 1.7643E+00_JPRB,1.8724E+01_JPRB,3.3346E+01_JPRB,4.8723E+01_JPRB,6.4160E+01_JPRB/)
10147
KBO( :, 3,55,14) = (/&
10148
6
 & 3.2551E+00_JPRB,1.8827E+01_JPRB,3.2415E+01_JPRB,4.6233E+01_JPRB,6.0665E+01_JPRB/)
10149
KBO( :, 4,55,14) = (/&
10150
6
 & 5.4933E+00_JPRB,1.9028E+01_JPRB,3.1761E+01_JPRB,4.3784E+01_JPRB,5.7216E+01_JPRB/)
10151
KBO( :, 5,55,14) = (/&
10152
6
 & 8.6198E+00_JPRB,1.9538E+01_JPRB,3.1251E+01_JPRB,4.1673E+01_JPRB,5.3976E+01_JPRB/)
10153
KBO( :, 1,56,14) = (/&
10154
6
 & 6.5583E-01_JPRB,1.8466E+01_JPRB,3.5009E+01_JPRB,5.1852E+01_JPRB,6.8713E+01_JPRB/)
10155
KBO( :, 2,56,14) = (/&
10156
6
 & 1.4149E+00_JPRB,1.8664E+01_JPRB,3.3714E+01_JPRB,4.9524E+01_JPRB,6.5316E+01_JPRB/)
10157
KBO( :, 3,56,14) = (/&
10158
6
 & 2.7001E+00_JPRB,1.8813E+01_JPRB,3.2708E+01_JPRB,4.7069E+01_JPRB,6.1791E+01_JPRB/)
10159
KBO( :, 4,56,14) = (/&
10160
6
 & 4.6799E+00_JPRB,1.8938E+01_JPRB,3.1954E+01_JPRB,4.4562E+01_JPRB,5.8292E+01_JPRB/)
10161
KBO( :, 5,56,14) = (/&
10162
6
 & 7.5092E+00_JPRB,1.9349E+01_JPRB,3.1417E+01_JPRB,4.2326E+01_JPRB,5.4949E+01_JPRB/)
10163
KBO( :, 1,57,14) = (/&
10164
6
 & 4.9569E-01_JPRB,1.8461E+01_JPRB,3.5476E+01_JPRB,5.2586E+01_JPRB,6.9771E+01_JPRB/)
10165
KBO( :, 2,57,14) = (/&
10166
6
 & 1.1207E+00_JPRB,1.8588E+01_JPRB,3.4120E+01_JPRB,5.0320E+01_JPRB,6.6462E+01_JPRB/)
10167
KBO( :, 3,57,14) = (/&
10168
6
 & 2.2185E+00_JPRB,1.8789E+01_JPRB,3.3026E+01_JPRB,4.7890E+01_JPRB,6.2944E+01_JPRB/)
10169
KBO( :, 4,57,14) = (/&
10170
6
 & 3.9561E+00_JPRB,1.8878E+01_JPRB,3.2169E+01_JPRB,4.5368E+01_JPRB,5.9404E+01_JPRB/)
10171
KBO( :, 5,57,14) = (/&
10172
6
 & 6.5001E+00_JPRB,1.9194E+01_JPRB,3.1605E+01_JPRB,4.3020E+01_JPRB,5.5955E+01_JPRB/)
10173
KBO( :, 1,58,14) = (/&
10174
6
 & 3.7410E-01_JPRB,1.8476E+01_JPRB,3.5878E+01_JPRB,5.3233E+01_JPRB,7.0727E+01_JPRB/)
10175
KBO( :, 2,58,14) = (/&
10176
6
 & 8.8722E-01_JPRB,1.8527E+01_JPRB,3.4515E+01_JPRB,5.1048E+01_JPRB,6.7516E+01_JPRB/)
10177
KBO( :, 3,58,14) = (/&
10178
6
 & 1.8232E+00_JPRB,1.8757E+01_JPRB,3.3332E+01_JPRB,4.8650E+01_JPRB,6.4043E+01_JPRB/)
10179
KBO( :, 4,58,14) = (/&
10180
6
 & 3.3485E+00_JPRB,1.8853E+01_JPRB,3.2410E+01_JPRB,4.6145E+01_JPRB,6.0474E+01_JPRB/)
10181
KBO( :, 5,58,14) = (/&
10182
6
 & 5.6308E+00_JPRB,1.9066E+01_JPRB,3.1770E+01_JPRB,4.3707E+01_JPRB,5.6952E+01_JPRB/)
10183
KBO( :, 1,59,14) = (/&
10184
6
 & 3.3226E-01_JPRB,1.8499E+01_JPRB,3.6042E+01_JPRB,5.3487E+01_JPRB,7.1108E+01_JPRB/)
10185
KBO( :, 2,59,14) = (/&
10186
6
 & 8.0465E-01_JPRB,1.8512E+01_JPRB,3.4692E+01_JPRB,5.1340E+01_JPRB,6.7946E+01_JPRB/)
10187
KBO( :, 3,59,14) = (/&
10188
6
 & 1.6796E+00_JPRB,1.8742E+01_JPRB,3.3465E+01_JPRB,4.8954E+01_JPRB,6.4485E+01_JPRB/)
10189
KBO( :, 4,59,14) = (/&
10190
6
 & 3.1244E+00_JPRB,1.8851E+01_JPRB,3.2518E+01_JPRB,4.6468E+01_JPRB,6.0924E+01_JPRB/)
10191
KBO( :, 5,59,14) = (/&
10192
6
 & 5.3047E+00_JPRB,1.9029E+01_JPRB,3.1839E+01_JPRB,4.3997E+01_JPRB,5.7335E+01_JPRB/)
10193
KBO( :, 1,13,15) = (/&
10194
6
 & 1.4736E+01_JPRB,1.1137E+01_JPRB,7.6940E+00_JPRB,7.1072E+00_JPRB,9.0794E+00_JPRB/)
10195
KBO( :, 2,13,15) = (/&
10196
6
 & 2.0753E+01_JPRB,1.5659E+01_JPRB,1.0572E+01_JPRB,7.4219E+00_JPRB,8.9416E+00_JPRB/)
10197
KBO( :, 3,13,15) = (/&
10198
6
 & 2.7810E+01_JPRB,2.0956E+01_JPRB,1.4105E+01_JPRB,8.2365E+00_JPRB,8.8640E+00_JPRB/)
10199
KBO( :, 4,13,15) = (/&
10200
6
 & 3.5751E+01_JPRB,2.6911E+01_JPRB,1.8075E+01_JPRB,9.6167E+00_JPRB,8.7852E+00_JPRB/)
10201
KBO( :, 5,13,15) = (/&
10202
6
 & 4.4392E+01_JPRB,3.3391E+01_JPRB,2.2391E+01_JPRB,1.1515E+01_JPRB,8.6750E+00_JPRB/)
10203
KBO( :, 1,14,15) = (/&
10204
6
 & 1.6396E+01_JPRB,1.2398E+01_JPRB,8.6531E+00_JPRB,8.0901E+00_JPRB,1.0338E+01_JPRB/)
10205
KBO( :, 2,14,15) = (/&
10206
6
 & 2.3021E+01_JPRB,1.7368E+01_JPRB,1.1723E+01_JPRB,8.4557E+00_JPRB,1.0225E+01_JPRB/)
10207
KBO( :, 3,14,15) = (/&
10208
6
 & 3.0725E+01_JPRB,2.3145E+01_JPRB,1.5568E+01_JPRB,9.3794E+00_JPRB,1.0164E+01_JPRB/)
10209
KBO( :, 4,14,15) = (/&
10210
6
 & 3.9405E+01_JPRB,2.9646E+01_JPRB,1.9890E+01_JPRB,1.0857E+01_JPRB,1.0076E+01_JPRB/)
10211
KBO( :, 5,14,15) = (/&
10212
6
 & 4.8887E+01_JPRB,3.6753E+01_JPRB,2.4621E+01_JPRB,1.2810E+01_JPRB,9.9619E+00_JPRB/)
10213
KBO( :, 1,15,15) = (/&
10214
6
 & 1.8108E+01_JPRB,1.3685E+01_JPRB,9.7296E+00_JPRB,9.2864E+00_JPRB,1.1891E+01_JPRB/)
10215
KBO( :, 2,15,15) = (/&
10216
6
 & 2.5292E+01_JPRB,1.9065E+01_JPRB,1.2925E+01_JPRB,9.7320E+00_JPRB,1.1822E+01_JPRB/)
10217
KBO( :, 3,15,15) = (/&
10218
6
 & 3.3657E+01_JPRB,2.5333E+01_JPRB,1.7012E+01_JPRB,1.0681E+01_JPRB,1.1765E+01_JPRB/)
10219
KBO( :, 4,15,15) = (/&
10220
6
 & 4.3009E+01_JPRB,3.2342E+01_JPRB,2.1677E+01_JPRB,1.2195E+01_JPRB,1.1648E+01_JPRB/)
10221
KBO( :, 5,15,15) = (/&
10222
6
 & 5.3119E+01_JPRB,3.9920E+01_JPRB,2.6722E+01_JPRB,1.4174E+01_JPRB,1.1512E+01_JPRB/)
10223
KBO( :, 1,16,15) = (/&
10224
6
 & 1.9766E+01_JPRB,1.4918E+01_JPRB,1.0847E+01_JPRB,1.0763E+01_JPRB,1.3814E+01_JPRB/)
10225
KBO( :, 2,16,15) = (/&
10226
6
 & 2.7468E+01_JPRB,2.0688E+01_JPRB,1.4114E+01_JPRB,1.1259E+01_JPRB,1.3757E+01_JPRB/)
10227
KBO( :, 3,16,15) = (/&
10228
6
 & 3.6341E+01_JPRB,2.7338E+01_JPRB,1.8370E+01_JPRB,1.2200E+01_JPRB,1.3647E+01_JPRB/)
10229
KBO( :, 4,16,15) = (/&
10230
6
 & 4.6268E+01_JPRB,3.4775E+01_JPRB,2.3285E+01_JPRB,1.3712E+01_JPRB,1.3493E+01_JPRB/)
10231
KBO( :, 5,16,15) = (/&
10232
6
 & 5.7098E+01_JPRB,4.2893E+01_JPRB,2.8688E+01_JPRB,1.5674E+01_JPRB,1.3336E+01_JPRB/)
10233
KBO( :, 1,17,15) = (/&
10234
6
 & 2.1283E+01_JPRB,1.6042E+01_JPRB,1.2037E+01_JPRB,1.2521E+01_JPRB,1.6103E+01_JPRB/)
10235
KBO( :, 2,17,15) = (/&
10236
6
 & 2.9464E+01_JPRB,2.2172E+01_JPRB,1.5299E+01_JPRB,1.3029E+01_JPRB,1.5994E+01_JPRB/)
10237
KBO( :, 3,17,15) = (/&
10238
6
 & 3.8948E+01_JPRB,2.9275E+01_JPRB,1.9669E+01_JPRB,1.3963E+01_JPRB,1.5820E+01_JPRB/)
10239
KBO( :, 4,17,15) = (/&
10240
6
 & 4.9621E+01_JPRB,3.7275E+01_JPRB,2.4936E+01_JPRB,1.5438E+01_JPRB,1.5638E+01_JPRB/)
10241
KBO( :, 5,17,15) = (/&
10242
6
 & 6.1258E+01_JPRB,4.5999E+01_JPRB,3.0742E+01_JPRB,1.7360E+01_JPRB,1.5449E+01_JPRB/)
10243
KBO( :, 1,18,15) = (/&
10244
6
 & 2.2877E+01_JPRB,1.7231E+01_JPRB,1.3375E+01_JPRB,1.4554E+01_JPRB,1.8639E+01_JPRB/)
10245
KBO( :, 2,18,15) = (/&
10246
6
 & 3.1639E+01_JPRB,2.3798E+01_JPRB,1.6609E+01_JPRB,1.5067E+01_JPRB,1.8464E+01_JPRB/)
10247
KBO( :, 3,18,15) = (/&
10248
6
 & 4.1858E+01_JPRB,3.1457E+01_JPRB,2.1141E+01_JPRB,1.5981E+01_JPRB,1.8293E+01_JPRB/)
10249
KBO( :, 4,18,15) = (/&
10250
6
 & 5.3342E+01_JPRB,4.0067E+01_JPRB,2.6795E+01_JPRB,1.7399E+01_JPRB,1.8084E+01_JPRB/)
10251
KBO( :, 5,18,15) = (/&
10252
6
 & 6.5884E+01_JPRB,4.9471E+01_JPRB,3.3060E+01_JPRB,1.9258E+01_JPRB,1.7848E+01_JPRB/)
10253
KBO( :, 1,19,15) = (/&
10254
6
 & 2.4623E+01_JPRB,1.8531E+01_JPRB,1.4907E+01_JPRB,1.6838E+01_JPRB,2.1462E+01_JPRB/)
10255
KBO( :, 2,19,15) = (/&
10256
6
 & 3.4070E+01_JPRB,2.5614E+01_JPRB,1.8084E+01_JPRB,1.7369E+01_JPRB,2.1261E+01_JPRB/)
10257
KBO( :, 3,19,15) = (/&
10258
6
 & 4.5079E+01_JPRB,3.3868E+01_JPRB,2.2784E+01_JPRB,1.8262E+01_JPRB,2.1046E+01_JPRB/)
10259
KBO( :, 4,19,15) = (/&
10260
6
 & 5.7371E+01_JPRB,4.3086E+01_JPRB,2.8804E+01_JPRB,1.9597E+01_JPRB,2.0788E+01_JPRB/)
10261
KBO( :, 5,19,15) = (/&
10262
6
 & 7.0794E+01_JPRB,5.3152E+01_JPRB,3.5511E+01_JPRB,2.1320E+01_JPRB,2.0472E+01_JPRB/)
10263
KBO( :, 1,20,15) = (/&
10264
6
 & 2.6740E+01_JPRB,2.0113E+01_JPRB,1.6687E+01_JPRB,1.9463E+01_JPRB,2.4692E+01_JPRB/)
10265
KBO( :, 2,20,15) = (/&
10266
6
 & 3.6896E+01_JPRB,2.7729E+01_JPRB,1.9869E+01_JPRB,1.9965E+01_JPRB,2.4417E+01_JPRB/)
10267
KBO( :, 3,20,15) = (/&
10268
6
 & 4.8627E+01_JPRB,3.6527E+01_JPRB,2.4686E+01_JPRB,2.0749E+01_JPRB,2.4109E+01_JPRB/)
10269
KBO( :, 4,20,15) = (/&
10270
6
 & 6.1800E+01_JPRB,4.6406E+01_JPRB,3.1013E+01_JPRB,2.1980E+01_JPRB,2.3749E+01_JPRB/)
10271
KBO( :, 5,20,15) = (/&
10272
6
 & 7.6193E+01_JPRB,5.7200E+01_JPRB,3.8207E+01_JPRB,2.3582E+01_JPRB,2.3335E+01_JPRB/)
10273
KBO( :, 1,21,15) = (/&
10274
6
 & 2.8977E+01_JPRB,2.1786E+01_JPRB,1.8588E+01_JPRB,2.2423E+01_JPRB,2.8316E+01_JPRB/)
10275
KBO( :, 2,21,15) = (/&
10276
6
 & 3.9801E+01_JPRB,2.9904E+01_JPRB,2.1842E+01_JPRB,2.2829E+01_JPRB,2.7905E+01_JPRB/)
10277
KBO( :, 3,21,15) = (/&
10278
6
 & 5.2367E+01_JPRB,3.9328E+01_JPRB,2.6804E+01_JPRB,2.3451E+01_JPRB,2.7467E+01_JPRB/)
10279
KBO( :, 4,21,15) = (/&
10280
6
 & 6.6469E+01_JPRB,4.9905E+01_JPRB,3.3345E+01_JPRB,2.4522E+01_JPRB,2.6969E+01_JPRB/)
10281
KBO( :, 5,21,15) = (/&
10282
6
 & 8.1848E+01_JPRB,6.1440E+01_JPRB,4.1033E+01_JPRB,2.6023E+01_JPRB,2.6435E+01_JPRB/)
10283
KBO( :, 1,22,15) = (/&
10284
6
 & 3.1988E+01_JPRB,2.4041E+01_JPRB,2.0812E+01_JPRB,2.5651E+01_JPRB,3.2255E+01_JPRB/)
10285
KBO( :, 2,22,15) = (/&
10286
6
 & 4.3721E+01_JPRB,3.2841E+01_JPRB,2.4334E+01_JPRB,2.5950E+01_JPRB,3.1687E+01_JPRB/)
10287
KBO( :, 3,22,15) = (/&
10288
6
 & 5.7294E+01_JPRB,4.3022E+01_JPRB,2.9561E+01_JPRB,2.6432E+01_JPRB,3.1040E+01_JPRB/)
10289
KBO( :, 4,22,15) = (/&
10290
6
 & 7.2474E+01_JPRB,5.4409E+01_JPRB,3.6410E+01_JPRB,2.7333E+01_JPRB,3.0338E+01_JPRB/)
10291
KBO( :, 5,22,15) = (/&
10292
6
 & 8.8942E+01_JPRB,6.6761E+01_JPRB,4.4583E+01_JPRB,2.8834E+01_JPRB,2.9615E+01_JPRB/)
10293
KBO( :, 1,23,15) = (/&
10294
6
 & 3.5516E+01_JPRB,2.6690E+01_JPRB,2.3334E+01_JPRB,2.9036E+01_JPRB,3.6353E+01_JPRB/)
10295
KBO( :, 2,23,15) = (/&
10296
6
 & 4.8281E+01_JPRB,3.6264E+01_JPRB,2.7127E+01_JPRB,2.9241E+01_JPRB,3.5539E+01_JPRB/)
10297
KBO( :, 3,23,15) = (/&
10298
6
 & 6.2902E+01_JPRB,4.7230E+01_JPRB,3.2633E+01_JPRB,2.9564E+01_JPRB,3.4668E+01_JPRB/)
10299
KBO( :, 4,23,15) = (/&
10300
6
 & 7.9108E+01_JPRB,5.9385E+01_JPRB,3.9793E+01_JPRB,3.0280E+01_JPRB,3.3772E+01_JPRB/)
10301
KBO( :, 5,23,15) = (/&
10302
6
 & 9.6701E+01_JPRB,7.2580E+01_JPRB,4.8461E+01_JPRB,3.1825E+01_JPRB,3.2859E+01_JPRB/)
10303
KBO( :, 1,24,15) = (/&
10304
6
 & 3.9680E+01_JPRB,2.9829E+01_JPRB,2.6160E+01_JPRB,3.2548E+01_JPRB,4.0469E+01_JPRB/)
10305
10306
1
IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART34',1,ZHOOK_HANDLE)
10307
1
END SUBROUTINE PART34
10308
10309
10310
1
SUBROUTINE PART35
10311
10312
REAL(KIND=JPRB) :: ZHOOK_HANDLE
10313
1
IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART35',0,ZHOOK_HANDLE)
10314
10315
10316
KBO( :, 2,24,15) = (/&
10317
6
 & 5.3468E+01_JPRB,4.0169E+01_JPRB,3.0146E+01_JPRB,3.2629E+01_JPRB,3.9411E+01_JPRB/)
10318
KBO( :, 3,24,15) = (/&
10319
6
 & 6.9159E+01_JPRB,5.1932E+01_JPRB,3.5957E+01_JPRB,3.2753E+01_JPRB,3.8325E+01_JPRB/)
10320
KBO( :, 4,24,15) = (/&
10321
6
 & 8.6552E+01_JPRB,6.4969E+01_JPRB,4.3591E+01_JPRB,3.3410E+01_JPRB,3.7213E+01_JPRB/)
10322
KBO( :, 5,24,15) = (/&
10323
6
 & 1.0532E+02_JPRB,7.9041E+01_JPRB,5.2783E+01_JPRB,3.4989E+01_JPRB,3.6087E+01_JPRB/)
10324
KBO( :, 1,25,15) = (/&
10325
6
 & 4.4432E+01_JPRB,3.3401E+01_JPRB,2.9194E+01_JPRB,3.6051E+01_JPRB,4.4622E+01_JPRB/)
10326
KBO( :, 2,25,15) = (/&
10327
6
 & 5.9330E+01_JPRB,4.4578E+01_JPRB,3.3433E+01_JPRB,3.6017E+01_JPRB,4.3268E+01_JPRB/)
10328
KBO( :, 3,25,15) = (/&
10329
6
 & 7.6262E+01_JPRB,5.7273E+01_JPRB,3.9678E+01_JPRB,3.5986E+01_JPRB,4.1914E+01_JPRB/)
10330
KBO( :, 4,25,15) = (/&
10331
6
 & 9.4907E+01_JPRB,7.1254E+01_JPRB,4.7861E+01_JPRB,3.6668E+01_JPRB,4.0563E+01_JPRB/)
10332
KBO( :, 5,25,15) = (/&
10333
6
 & 1.1490E+02_JPRB,8.6240E+01_JPRB,5.7602E+01_JPRB,3.8320E+01_JPRB,3.9224E+01_JPRB/)
10334
KBO( :, 1,26,15) = (/&
10335
6
 & 4.9945E+01_JPRB,3.7542E+01_JPRB,3.2485E+01_JPRB,3.9526E+01_JPRB,4.8685E+01_JPRB/)
10336
KBO( :, 2,26,15) = (/&
10337
6
 & 6.6132E+01_JPRB,4.9685E+01_JPRB,3.7067E+01_JPRB,3.9294E+01_JPRB,4.7029E+01_JPRB/)
10338
KBO( :, 3,26,15) = (/&
10339
6
 & 8.4358E+01_JPRB,6.3353E+01_JPRB,4.3878E+01_JPRB,3.9293E+01_JPRB,4.5384E+01_JPRB/)
10340
KBO( :, 4,26,15) = (/&
10341
6
 & 1.0419E+02_JPRB,7.8224E+01_JPRB,5.2598E+01_JPRB,4.0034E+01_JPRB,4.3769E+01_JPRB/)
10342
KBO( :, 5,26,15) = (/&
10343
6
 & 1.2529E+02_JPRB,9.4044E+01_JPRB,6.2813E+01_JPRB,4.1703E+01_JPRB,4.2207E+01_JPRB/)
10344
KBO( :, 1,27,15) = (/&
10345
6
 & 5.6070E+01_JPRB,4.2141E+01_JPRB,3.5908E+01_JPRB,4.2930E+01_JPRB,5.2613E+01_JPRB/)
10346
KBO( :, 2,27,15) = (/&
10347
6
 & 7.3488E+01_JPRB,5.5206E+01_JPRB,4.0960E+01_JPRB,4.2467E+01_JPRB,5.0627E+01_JPRB/)
10348
KBO( :, 3,27,15) = (/&
10349
6
 & 9.2902E+01_JPRB,6.9766E+01_JPRB,4.8295E+01_JPRB,4.2561E+01_JPRB,4.8685E+01_JPRB/)
10350
KBO( :, 4,27,15) = (/&
10351
6
 & 1.1389E+02_JPRB,8.5509E+01_JPRB,5.7519E+01_JPRB,4.3345E+01_JPRB,4.6803E+01_JPRB/)
10352
KBO( :, 5,27,15) = (/&
10353
6
 & 1.3609E+02_JPRB,1.0215E+02_JPRB,6.8230E+01_JPRB,4.5005E+01_JPRB,4.4998E+01_JPRB/)
10354
KBO( :, 1,28,15) = (/&
10355
6
 & 6.2602E+01_JPRB,4.7047E+01_JPRB,3.9407E+01_JPRB,4.6160E+01_JPRB,5.6361E+01_JPRB/)
10356
KBO( :, 2,28,15) = (/&
10357
6
 & 8.1239E+01_JPRB,6.1026E+01_JPRB,4.4978E+01_JPRB,4.5556E+01_JPRB,5.4022E+01_JPRB/)
10358
KBO( :, 3,28,15) = (/&
10359
6
 & 1.0182E+02_JPRB,7.6460E+01_JPRB,5.2849E+01_JPRB,4.5684E+01_JPRB,5.1781E+01_JPRB/)
10360
KBO( :, 4,28,15) = (/&
10361
6
 & 1.2390E+02_JPRB,9.3015E+01_JPRB,6.2567E+01_JPRB,4.6514E+01_JPRB,4.9625E+01_JPRB/)
10362
KBO( :, 5,28,15) = (/&
10363
6
 & 1.4712E+02_JPRB,1.1043E+02_JPRB,7.3749E+01_JPRB,4.8179E+01_JPRB,4.7555E+01_JPRB/)
10364
KBO( :, 1,29,15) = (/&
10365
6
 & 6.9623E+01_JPRB,5.2320E+01_JPRB,4.3015E+01_JPRB,4.9123E+01_JPRB,5.9729E+01_JPRB/)
10366
KBO( :, 2,29,15) = (/&
10367
6
 & 8.9447E+01_JPRB,6.7187E+01_JPRB,4.9134E+01_JPRB,4.8482E+01_JPRB,5.7058E+01_JPRB/)
10368
KBO( :, 3,29,15) = (/&
10369
6
 & 1.1112E+02_JPRB,8.3443E+01_JPRB,5.7534E+01_JPRB,4.8630E+01_JPRB,5.4527E+01_JPRB/)
10370
KBO( :, 4,29,15) = (/&
10371
6
 & 1.3428E+02_JPRB,1.0081E+02_JPRB,6.7748E+01_JPRB,4.9484E+01_JPRB,5.2105E+01_JPRB/)
10372
KBO( :, 5,29,15) = (/&
10373
6
 & 1.5845E+02_JPRB,1.1893E+02_JPRB,7.9425E+01_JPRB,5.1210E+01_JPRB,4.9788E+01_JPRB/)
10374
KBO( :, 1,30,15) = (/&
10375
6
 & 7.6956E+01_JPRB,5.7823E+01_JPRB,4.6660E+01_JPRB,5.1758E+01_JPRB,6.2685E+01_JPRB/)
10376
KBO( :, 2,30,15) = (/&
10377
6
 & 9.7902E+01_JPRB,7.3533E+01_JPRB,5.3332E+01_JPRB,5.1164E+01_JPRB,5.9706E+01_JPRB/)
10378
KBO( :, 3,30,15) = (/&
10379
6
 & 1.2067E+02_JPRB,9.0610E+01_JPRB,6.2274E+01_JPRB,5.1339E+01_JPRB,5.6887E+01_JPRB/)
10380
KBO( :, 4,30,15) = (/&
10381
6
 & 1.4481E+02_JPRB,1.0871E+02_JPRB,7.2976E+01_JPRB,5.2237E+01_JPRB,5.4217E+01_JPRB/)
10382
KBO( :, 5,30,15) = (/&
10383
6
 & 1.6975E+02_JPRB,1.2741E+02_JPRB,8.5081E+01_JPRB,5.4027E+01_JPRB,5.1685E+01_JPRB/)
10384
KBO( :, 1,31,15) = (/&
10385
6
 & 8.4668E+01_JPRB,6.3613E+01_JPRB,5.0308E+01_JPRB,5.4125E+01_JPRB,6.5163E+01_JPRB/)
10386
KBO( :, 2,31,15) = (/&
10387
6
 & 1.0670E+02_JPRB,8.0139E+01_JPRB,5.7571E+01_JPRB,5.3567E+01_JPRB,6.1881E+01_JPRB/)
10388
KBO( :, 3,31,15) = (/&
10389
6
 & 1.3043E+02_JPRB,9.7932E+01_JPRB,6.7030E+01_JPRB,5.3784E+01_JPRB,5.8816E+01_JPRB/)
10390
KBO( :, 4,31,15) = (/&
10391
6
 & 1.5531E+02_JPRB,1.1659E+02_JPRB,7.8195E+01_JPRB,5.4732E+01_JPRB,5.5925E+01_JPRB/)
10392
KBO( :, 5,31,15) = (/&
10393
6
 & 1.8083E+02_JPRB,1.3573E+02_JPRB,9.0627E+01_JPRB,5.6617E+01_JPRB,5.3201E+01_JPRB/)
10394
KBO( :, 1,32,15) = (/&
10395
6
 & 9.2652E+01_JPRB,6.9602E+01_JPRB,5.3950E+01_JPRB,5.6194E+01_JPRB,6.7147E+01_JPRB/)
10396
KBO( :, 2,32,15) = (/&
10397
6
 & 1.1562E+02_JPRB,8.6827E+01_JPRB,6.1761E+01_JPRB,5.5696E+01_JPRB,6.3605E+01_JPRB/)
10398
KBO( :, 3,32,15) = (/&
10399
6
 & 1.4016E+02_JPRB,1.0523E+02_JPRB,7.1723E+01_JPRB,5.5956E+01_JPRB,6.0313E+01_JPRB/)
10400
KBO( :, 4,32,15) = (/&
10401
6
 & 1.6571E+02_JPRB,1.2439E+02_JPRB,8.3322E+01_JPRB,5.6967E+01_JPRB,5.7235E+01_JPRB/)
10402
KBO( :, 5,32,15) = (/&
10403
6
 & 1.9180E+02_JPRB,1.4395E+02_JPRB,9.6112E+01_JPRB,5.9039E+01_JPRB,5.4359E+01_JPRB/)
10404
KBO( :, 1,33,15) = (/&
10405
6
 & 1.0072E+02_JPRB,7.5656E+01_JPRB,5.7525E+01_JPRB,5.7981E+01_JPRB,6.8650E+01_JPRB/)
10406
KBO( :, 2,33,15) = (/&
10407
6
 & 1.2455E+02_JPRB,9.3526E+01_JPRB,6.5887E+01_JPRB,5.7530E+01_JPRB,6.4898E+01_JPRB/)
10408
KBO( :, 3,33,15) = (/&
10409
6
 & 1.4981E+02_JPRB,1.1247E+02_JPRB,7.6362E+01_JPRB,5.7872E+01_JPRB,6.1421E+01_JPRB/)
10410
KBO( :, 4,33,15) = (/&
10411
6
 & 1.7592E+02_JPRB,1.3205E+02_JPRB,8.8345E+01_JPRB,5.9018E+01_JPRB,5.8197E+01_JPRB/)
10412
KBO( :, 5,33,15) = (/&
10413
6
 & 2.0244E+02_JPRB,1.5193E+02_JPRB,1.0144E+02_JPRB,6.1255E+01_JPRB,5.5191E+01_JPRB/)
10414
KBO( :, 1,34,15) = (/&
10415
6
 & 1.0805E+02_JPRB,8.1154E+01_JPRB,6.0752E+01_JPRB,5.9538E+01_JPRB,6.9858E+01_JPRB/)
10416
KBO( :, 2,34,15) = (/&
10417
6
 & 1.3258E+02_JPRB,9.9553E+01_JPRB,6.9613E+01_JPRB,5.9127E+01_JPRB,6.5932E+01_JPRB/)
10418
KBO( :, 3,34,15) = (/&
10419
6
 & 1.5841E+02_JPRB,1.1893E+02_JPRB,8.0500E+01_JPRB,5.9515E+01_JPRB,6.2316E+01_JPRB/)
10420
KBO( :, 4,34,15) = (/&
10421
6
 & 1.8496E+02_JPRB,1.3883E+02_JPRB,9.2804E+01_JPRB,6.0816E+01_JPRB,5.8960E+01_JPRB/)
10422
KBO( :, 5,34,15) = (/&
10423
6
 & 2.1175E+02_JPRB,1.5892E+02_JPRB,1.0610E+02_JPRB,6.3176E+01_JPRB,5.5844E+01_JPRB/)
10424
KBO( :, 1,35,15) = (/&
10425
6
 & 1.1294E+02_JPRB,8.4826E+01_JPRB,6.3098E+01_JPRB,6.0919E+01_JPRB,7.1099E+01_JPRB/)
10426
KBO( :, 2,35,15) = (/&
10427
6
 & 1.3798E+02_JPRB,1.0360E+02_JPRB,7.2230E+01_JPRB,6.0487E+01_JPRB,6.7012E+01_JPRB/)
10428
KBO( :, 3,35,15) = (/&
10429
6
 & 1.6418E+02_JPRB,1.2325E+02_JPRB,8.3338E+01_JPRB,6.0862E+01_JPRB,6.3251E+01_JPRB/)
10430
KBO( :, 4,35,15) = (/&
10431
6
 & 1.9102E+02_JPRB,1.4338E+02_JPRB,9.5820E+01_JPRB,6.2223E+01_JPRB,5.9778E+01_JPRB/)
10432
KBO( :, 5,35,15) = (/&
10433
6
 & 2.1806E+02_JPRB,1.6365E+02_JPRB,1.0925E+02_JPRB,6.4647E+01_JPRB,5.6557E+01_JPRB/)
10434
KBO( :, 1,36,15) = (/&
10435
6
 & 1.1497E+02_JPRB,8.6347E+01_JPRB,6.4397E+01_JPRB,6.2153E+01_JPRB,7.2517E+01_JPRB/)
10436
KBO( :, 2,36,15) = (/&
10437
6
 & 1.4029E+02_JPRB,1.0534E+02_JPRB,7.3555E+01_JPRB,6.1644E+01_JPRB,6.8256E+01_JPRB/)
10438
KBO( :, 3,36,15) = (/&
10439
6
 & 1.6674E+02_JPRB,1.2517E+02_JPRB,8.4714E+01_JPRB,6.1952E+01_JPRB,6.4357E+01_JPRB/)
10440
KBO( :, 4,36,15) = (/&
10441
6
 & 1.9381E+02_JPRB,1.4548E+02_JPRB,9.7239E+01_JPRB,6.3251E+01_JPRB,6.0757E+01_JPRB/)
10442
KBO( :, 5,36,15) = (/&
10443
6
 & 2.2104E+02_JPRB,1.6589E+02_JPRB,1.1075E+02_JPRB,6.5650E+01_JPRB,5.7519E+01_JPRB/)
10444
KBO( :, 1,37,15) = (/&
10445
6
 & 1.1301E+02_JPRB,8.4880E+01_JPRB,6.4331E+01_JPRB,6.3346E+01_JPRB,7.4417E+01_JPRB/)
10446
KBO( :, 2,37,15) = (/&
10447
6
 & 1.3839E+02_JPRB,1.0391E+02_JPRB,7.3187E+01_JPRB,6.2656E+01_JPRB,6.9936E+01_JPRB/)
10448
KBO( :, 3,37,15) = (/&
10449
6
 & 1.6490E+02_JPRB,1.2380E+02_JPRB,8.4124E+01_JPRB,6.2789E+01_JPRB,6.5851E+01_JPRB/)
10450
KBO( :, 4,37,15) = (/&
10451
6
 & 1.9210E+02_JPRB,1.4420E+02_JPRB,9.6503E+01_JPRB,6.3870E+01_JPRB,6.2117E+01_JPRB/)
10452
KBO( :, 5,37,15) = (/&
10453
6
 & 2.1953E+02_JPRB,1.6476E+02_JPRB,1.1000E+02_JPRB,6.6083E+01_JPRB,5.8820E+01_JPRB/)
10454
KBO( :, 1,38,15) = (/&
10455
6
 & 1.1060E+02_JPRB,8.3078E+01_JPRB,6.4103E+01_JPRB,6.4426E+01_JPRB,7.6201E+01_JPRB/)
10456
KBO( :, 2,38,15) = (/&
10457
6
 & 1.3599E+02_JPRB,1.0211E+02_JPRB,7.2632E+01_JPRB,6.3555E+01_JPRB,7.1515E+01_JPRB/)
10458
KBO( :, 3,38,15) = (/&
10459
6
 & 1.6253E+02_JPRB,1.2202E+02_JPRB,8.3307E+01_JPRB,6.3503E+01_JPRB,6.7259E+01_JPRB/)
10460
KBO( :, 4,38,15) = (/&
10461
6
 & 1.8982E+02_JPRB,1.4248E+02_JPRB,9.5509E+01_JPRB,6.4372E+01_JPRB,6.3412E+01_JPRB/)
10462
KBO( :, 5,38,15) = (/&
10463
6
 & 2.1740E+02_JPRB,1.6316E+02_JPRB,1.0894E+02_JPRB,6.6382E+01_JPRB,6.0081E+01_JPRB/)
10464
KBO( :, 1,39,15) = (/&
10465
6
 & 1.0803E+02_JPRB,8.1144E+01_JPRB,6.3771E+01_JPRB,6.5414E+01_JPRB,7.7868E+01_JPRB/)
10466
KBO( :, 2,39,15) = (/&
10467
6
 & 1.3337E+02_JPRB,1.0015E+02_JPRB,7.1982E+01_JPRB,6.4350E+01_JPRB,7.2975E+01_JPRB/)
10468
KBO( :, 3,39,15) = (/&
10469
6
 & 1.5993E+02_JPRB,1.2007E+02_JPRB,8.2398E+01_JPRB,6.4114E+01_JPRB,6.8560E+01_JPRB/)
10470
KBO( :, 4,39,15) = (/&
10471
6
 & 1.8726E+02_JPRB,1.4057E+02_JPRB,9.4413E+01_JPRB,6.4795E+01_JPRB,6.4662E+01_JPRB/)
10472
KBO( :, 5,39,15) = (/&
10473
6
 & 2.1494E+02_JPRB,1.6132E+02_JPRB,1.0771E+02_JPRB,6.6595E+01_JPRB,6.1311E+01_JPRB/)
10474
KBO( :, 1,40,15) = (/&
10475
6
 & 1.0282E+02_JPRB,7.7288E+01_JPRB,6.2719E+01_JPRB,6.6497E+01_JPRB,7.9980E+01_JPRB/)
10476
KBO( :, 2,40,15) = (/&
10477
6
 & 1.2788E+02_JPRB,9.6038E+01_JPRB,7.0327E+01_JPRB,6.5135E+01_JPRB,7.4834E+01_JPRB/)
10478
KBO( :, 3,40,15) = (/&
10479
6
 & 1.5434E+02_JPRB,1.1588E+02_JPRB,8.0252E+01_JPRB,6.4644E+01_JPRB,7.0224E+01_JPRB/)
10480
KBO( :, 4,40,15) = (/&
10481
6
 & 1.8163E+02_JPRB,1.3634E+02_JPRB,9.1957E+01_JPRB,6.5051E+01_JPRB,6.6166E+01_JPRB/)
10482
KBO( :, 5,40,15) = (/&
10483
6
 & 2.0939E+02_JPRB,1.5716E+02_JPRB,1.0497E+02_JPRB,6.6532E+01_JPRB,6.2695E+01_JPRB/)
10484
KBO( :, 1,41,15) = (/&
10485
6
 & 9.7246E+01_JPRB,7.3264E+01_JPRB,6.1654E+01_JPRB,6.7606E+01_JPRB,8.2110E+01_JPRB/)
10486
KBO( :, 2,41,15) = (/&
10487
6
 & 1.2196E+02_JPRB,9.1598E+01_JPRB,6.8639E+01_JPRB,6.5918E+01_JPRB,7.6715E+01_JPRB/)
10488
KBO( :, 3,41,15) = (/&
10489
6
 & 1.4825E+02_JPRB,1.1131E+02_JPRB,7.7976E+01_JPRB,6.5166E+01_JPRB,7.1898E+01_JPRB/)
10490
KBO( :, 4,41,15) = (/&
10491
6
 & 1.7546E+02_JPRB,1.3172E+02_JPRB,8.9341E+01_JPRB,6.5294E+01_JPRB,6.7663E+01_JPRB/)
10492
KBO( :, 5,41,15) = (/&
10493
6
 & 2.0319E+02_JPRB,1.5251E+02_JPRB,1.0200E+02_JPRB,6.6466E+01_JPRB,6.4089E+01_JPRB/)
10494
KBO( :, 1,42,15) = (/&
10495
6
 & 9.1646E+01_JPRB,6.9319E+01_JPRB,6.0662E+01_JPRB,6.8736E+01_JPRB,8.4225E+01_JPRB/)
10496
KBO( :, 2,42,15) = (/&
10497
6
 & 1.1599E+02_JPRB,8.7117E+01_JPRB,6.7035E+01_JPRB,6.6694E+01_JPRB,7.8581E+01_JPRB/)
10498
KBO( :, 3,42,15) = (/&
10499
6
 & 1.4201E+02_JPRB,1.0663E+02_JPRB,7.5772E+01_JPRB,6.5694E+01_JPRB,7.3551E+01_JPRB/)
10500
KBO( :, 4,42,15) = (/&
10501
6
 & 1.6913E+02_JPRB,1.2698E+02_JPRB,8.6698E+01_JPRB,6.5537E+01_JPRB,6.9143E+01_JPRB/)
10502
KBO( :, 5,42,15) = (/&
10503
6
 & 1.9682E+02_JPRB,1.4774E+02_JPRB,9.9046E+01_JPRB,6.6404E+01_JPRB,6.5463E+01_JPRB/)
10504
KBO( :, 1,43,15) = (/&
10505
6
 & 8.4789E+01_JPRB,6.4636E+01_JPRB,5.9566E+01_JPRB,7.0099E+01_JPRB,8.6671E+01_JPRB/)
10506
KBO( :, 2,43,15) = (/&
10507
6
 & 1.0857E+02_JPRB,8.1571E+01_JPRB,6.5097E+01_JPRB,6.7581E+01_JPRB,8.0749E+01_JPRB/)
10508
KBO( :, 3,43,15) = (/&
10509
6
 & 1.3420E+02_JPRB,1.0078E+02_JPRB,7.3112E+01_JPRB,6.6245E+01_JPRB,7.5464E+01_JPRB/)
10510
KBO( :, 4,43,15) = (/&
10511
6
 & 1.6112E+02_JPRB,1.2096E+02_JPRB,8.3408E+01_JPRB,6.5806E+01_JPRB,7.0849E+01_JPRB/)
10512
KBO( :, 5,43,15) = (/&
10513
6
 & 1.8873E+02_JPRB,1.4167E+02_JPRB,9.5382E+01_JPRB,6.6299E+01_JPRB,6.7006E+01_JPRB/)
10514
KBO( :, 1,44,15) = (/&
10515
6
 & 7.7526E+01_JPRB,5.9880E+01_JPRB,5.8674E+01_JPRB,7.1657E+01_JPRB,8.9332E+01_JPRB/)
10516
KBO( :, 2,44,15) = (/&
10517
6
 & 1.0062E+02_JPRB,7.5764E+01_JPRB,6.3217E+01_JPRB,6.8595E+01_JPRB,8.3089E+01_JPRB/)
10518
KBO( :, 3,44,15) = (/&
10519
6
 & 1.2573E+02_JPRB,9.4425E+01_JPRB,7.0405E+01_JPRB,6.6884E+01_JPRB,7.7528E+01_JPRB/)
10520
KBO( :, 4,44,15) = (/&
10521
6
 & 1.5235E+02_JPRB,1.1439E+02_JPRB,7.9935E+01_JPRB,6.6125E+01_JPRB,7.2672E+01_JPRB/)
10522
KBO( :, 5,44,15) = (/&
10523
6
 & 1.7985E+02_JPRB,1.3501E+02_JPRB,9.1481E+01_JPRB,6.6264E+01_JPRB,6.8668E+01_JPRB/)
10524
KBO( :, 1,45,15) = (/&
10525
6
 & 7.0491E+01_JPRB,5.5510E+01_JPRB,5.8020E+01_JPRB,7.3319E+01_JPRB,9.2047E+01_JPRB/)
10526
KBO( :, 2,45,15) = (/&
10527
6
 & 9.2796E+01_JPRB,7.0229E+01_JPRB,6.1583E+01_JPRB,6.9737E+01_JPRB,8.5464E+01_JPRB/)
10528
KBO( :, 3,45,15) = (/&
10529
6
 & 1.1733E+02_JPRB,8.8127E+01_JPRB,6.7937E+01_JPRB,6.7594E+01_JPRB,7.9635E+01_JPRB/)
10530
KBO( :, 4,45,15) = (/&
10531
6
 & 1.4359E+02_JPRB,1.0781E+02_JPRB,7.6707E+01_JPRB,6.6524E+01_JPRB,7.4535E+01_JPRB/)
10532
KBO( :, 5,45,15) = (/&
10533
6
 & 1.7088E+02_JPRB,1.2829E+02_JPRB,8.7650E+01_JPRB,6.6303E+01_JPRB,7.0370E+01_JPRB/)
10534
KBO( :, 1,46,15) = (/&
10535
6
 & 6.3285E+01_JPRB,5.1283E+01_JPRB,5.7489E+01_JPRB,7.5126E+01_JPRB,9.5002E+01_JPRB/)
10536
KBO( :, 2,46,15) = (/&
10537
6
 & 8.4647E+01_JPRB,6.4675E+01_JPRB,6.0155E+01_JPRB,7.1107E+01_JPRB,8.8042E+01_JPRB/)
10538
KBO( :, 3,46,15) = (/&
10539
6
 & 1.0850E+02_JPRB,8.1543E+01_JPRB,6.5540E+01_JPRB,6.8434E+01_JPRB,8.1933E+01_JPRB/)
10540
KBO( :, 4,46,15) = (/&
10541
6
 & 1.3425E+02_JPRB,1.0081E+02_JPRB,7.3459E+01_JPRB,6.6985E+01_JPRB,7.6545E+01_JPRB/)
10542
KBO( :, 5,46,15) = (/&
10543
6
 & 1.6128E+02_JPRB,1.2109E+02_JPRB,8.3670E+01_JPRB,6.6464E+01_JPRB,7.2233E+01_JPRB/)
10544
KBO( :, 1,47,15) = (/&
10545
6
 & 5.5631E+01_JPRB,4.7112E+01_JPRB,5.7366E+01_JPRB,7.7250E+01_JPRB,9.8390E+01_JPRB/)
10546
KBO( :, 2,47,15) = (/&
10547
6
 & 7.5847E+01_JPRB,5.8961E+01_JPRB,5.9001E+01_JPRB,7.2829E+01_JPRB,9.1005E+01_JPRB/)
10548
KBO( :, 3,47,15) = (/&
10549
6
 & 9.8817E+01_JPRB,7.4522E+01_JPRB,6.3205E+01_JPRB,6.9511E+01_JPRB,8.4535E+01_JPRB/)
10550
KBO( :, 4,47,15) = (/&
10551
6
 & 1.2390E+02_JPRB,9.3053E+01_JPRB,7.0147E+01_JPRB,6.7616E+01_JPRB,7.8824E+01_JPRB/)
10552
KBO( :, 5,47,15) = (/&
10553
6
 & 1.5053E+02_JPRB,1.1302E+02_JPRB,7.9443E+01_JPRB,6.6722E+01_JPRB,7.4271E+01_JPRB/)
10554
KBO( :, 1,48,15) = (/&
10555
6
 & 4.8436E+01_JPRB,4.3553E+01_JPRB,5.7561E+01_JPRB,7.9397E+01_JPRB,1.0193E+02_JPRB/)
10556
KBO( :, 2,48,15) = (/&
10557
6
 & 6.7454E+01_JPRB,5.3825E+01_JPRB,5.8172E+01_JPRB,7.4675E+01_JPRB,9.4102E+01_JPRB/)
10558
KBO( :, 3,48,15) = (/&
10559
6
 & 8.9409E+01_JPRB,6.7955E+01_JPRB,6.1273E+01_JPRB,7.0816E+01_JPRB,8.7238E+01_JPRB/)
10560
KBO( :, 4,48,15) = (/&
10561
6
 & 1.1374E+02_JPRB,8.5433E+01_JPRB,6.7178E+01_JPRB,6.8391E+01_JPRB,8.1214E+01_JPRB/)
10562
KBO( :, 5,48,15) = (/&
10563
6
 & 1.3983E+02_JPRB,1.0500E+02_JPRB,7.5561E+01_JPRB,6.7098E+01_JPRB,7.6443E+01_JPRB/)
10564
KBO( :, 1,49,15) = (/&
10565
6
 & 4.1740E+01_JPRB,4.0612E+01_JPRB,5.8201E+01_JPRB,8.1772E+01_JPRB,1.0563E+02_JPRB/)
10566
KBO( :, 2,49,15) = (/&
10567
6
 & 5.9508E+01_JPRB,4.9323E+01_JPRB,5.7719E+01_JPRB,7.6675E+01_JPRB,9.7333E+01_JPRB/)
10568
KBO( :, 3,49,15) = (/&
10569
6
 & 8.0351E+01_JPRB,6.1919E+01_JPRB,5.9828E+01_JPRB,7.2362E+01_JPRB,9.0062E+01_JPRB/)
10570
KBO( :, 4,49,15) = (/&
10571
6
 & 1.0383E+02_JPRB,7.8144E+01_JPRB,6.4592E+01_JPRB,6.9309E+01_JPRB,8.3761E+01_JPRB/)
10572
KBO( :, 5,49,15) = (/&
10573
6
 & 1.2931E+02_JPRB,9.7110E+01_JPRB,7.1998E+01_JPRB,6.7617E+01_JPRB,7.8823E+01_JPRB/)
10574
KBO( :, 1,50,15) = (/&
10575
6
 & 3.5934E+01_JPRB,3.8439E+01_JPRB,5.9112E+01_JPRB,8.4116E+01_JPRB,1.0931E+02_JPRB/)
10576
KBO( :, 2,50,15) = (/&
10577
6
 & 5.2489E+01_JPRB,4.5633E+01_JPRB,5.7703E+01_JPRB,7.8607E+01_JPRB,1.0052E+02_JPRB/)
10578
KBO( :, 3,50,15) = (/&
10579
6
 & 7.2228E+01_JPRB,5.6786E+01_JPRB,5.8886E+01_JPRB,7.4022E+01_JPRB,9.2854E+01_JPRB/)
10580
KBO( :, 4,50,15) = (/&
10581
6
 & 9.4805E+01_JPRB,7.1728E+01_JPRB,6.2540E+01_JPRB,7.0379E+01_JPRB,8.6215E+01_JPRB/)
10582
KBO( :, 5,50,15) = (/&
10583
6
 & 1.1961E+02_JPRB,8.9835E+01_JPRB,6.9015E+01_JPRB,6.8227E+01_JPRB,8.1035E+01_JPRB/)
10584
KBO( :, 1,51,15) = (/&
10585
6
 & 3.0771E+01_JPRB,3.7000E+01_JPRB,6.0264E+01_JPRB,8.6506E+01_JPRB,1.1308E+02_JPRB/)
10586
KBO( :, 2,51,15) = (/&
10587
6
 & 4.6091E+01_JPRB,4.2604E+01_JPRB,5.8016E+01_JPRB,8.0604E+01_JPRB,1.0374E+02_JPRB/)
10588
KBO( :, 3,51,15) = (/&
10589
6
 & 6.4712E+01_JPRB,5.2306E+01_JPRB,5.8175E+01_JPRB,7.5702E+01_JPRB,9.5668E+01_JPRB/)
10590
KBO( :, 4,51,15) = (/&
10591
6
 & 8.6318E+01_JPRB,6.5907E+01_JPRB,6.0924E+01_JPRB,7.1626E+01_JPRB,8.8689E+01_JPRB/)
10592
KBO( :, 5,51,15) = (/&
10593
6
 & 1.1042E+02_JPRB,8.2968E+01_JPRB,6.6417E+01_JPRB,6.8953E+01_JPRB,8.3187E+01_JPRB/)
10594
KBO( :, 1,52,15) = (/&
10595
6
 & 2.6073E+01_JPRB,3.6045E+01_JPRB,6.1822E+01_JPRB,8.9117E+01_JPRB,1.1704E+02_JPRB/)
10596
KBO( :, 2,52,15) = (/&
10597
6
 & 4.0129E+01_JPRB,4.0074E+01_JPRB,5.8683E+01_JPRB,8.2788E+01_JPRB,1.0713E+02_JPRB/)
10598
KBO( :, 3,52,15) = (/&
10599
6
 & 5.7599E+01_JPRB,4.8365E+01_JPRB,5.7911E+01_JPRB,7.7538E+01_JPRB,9.8609E+01_JPRB/)
10600
KBO( :, 4,52,15) = (/&
10601
6
 & 7.8172E+01_JPRB,6.0565E+01_JPRB,5.9728E+01_JPRB,7.3072E+01_JPRB,9.1293E+01_JPRB/)
10602
KBO( :, 5,52,15) = (/&
10603
6
 & 1.0144E+02_JPRB,7.6446E+01_JPRB,6.4164E+01_JPRB,6.9820E+01_JPRB,8.5483E+01_JPRB/)
10604
KBO( :, 1,53,15) = (/&
10605
6
 & 2.1825E+01_JPRB,3.5431E+01_JPRB,6.3525E+01_JPRB,9.1916E+01_JPRB,1.2120E+02_JPRB/)
10606
10607
1
IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART35',1,ZHOOK_HANDLE)
10608
1
END SUBROUTINE PART35
10609
10610
10611
1
SUBROUTINE PART36
10612
10613
REAL(KIND=JPRB) :: ZHOOK_HANDLE
10614
1
IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART36',0,ZHOOK_HANDLE)
10615
10616
10617
KBO( :, 2,53,15) = (/&
10618
6
 & 3.4602E+01_JPRB,3.8125E+01_JPRB,5.9600E+01_JPRB,8.5050E+01_JPRB,1.1069E+02_JPRB/)
10619
KBO( :, 3,53,15) = (/&
10620
6
 & 5.0871E+01_JPRB,4.4917E+01_JPRB,5.7933E+01_JPRB,7.9373E+01_JPRB,1.0169E+02_JPRB/)
10621
KBO( :, 4,53,15) = (/&
10622
6
 & 7.0355E+01_JPRB,5.5689E+01_JPRB,5.8850E+01_JPRB,7.4670E+01_JPRB,9.4071E+01_JPRB/)
10623
KBO( :, 5,53,15) = (/&
10624
6
 & 9.2711E+01_JPRB,7.0293E+01_JPRB,6.2235E+01_JPRB,7.0877E+01_JPRB,8.7997E+01_JPRB/)
10625
KBO( :, 1,54,15) = (/&
10626
6
 & 1.8337E+01_JPRB,3.5294E+01_JPRB,6.5103E+01_JPRB,9.4568E+01_JPRB,1.2522E+02_JPRB/)
10627
KBO( :, 2,54,15) = (/&
10628
6
 & 2.9950E+01_JPRB,3.6915E+01_JPRB,6.0716E+01_JPRB,8.7228E+01_JPRB,1.1414E+02_JPRB/)
10629
KBO( :, 3,54,15) = (/&
10630
6
 & 4.5070E+01_JPRB,4.2223E+01_JPRB,5.8276E+01_JPRB,8.1216E+01_JPRB,1.0463E+02_JPRB/)
10631
KBO( :, 4,54,15) = (/&
10632
6
 & 6.3520E+01_JPRB,5.1682E+01_JPRB,5.8241E+01_JPRB,7.6218E+01_JPRB,9.6556E+01_JPRB/)
10633
KBO( :, 5,54,15) = (/&
10634
6
 & 8.4973E+01_JPRB,6.5035E+01_JPRB,6.0814E+01_JPRB,7.2031E+01_JPRB,8.9905E+01_JPRB/)
10635
KBO( :, 1,55,15) = (/&
10636
6
 & 1.5337E+01_JPRB,3.5484E+01_JPRB,6.6783E+01_JPRB,9.7340E+01_JPRB,1.2928E+02_JPRB/)
10637
KBO( :, 2,55,15) = (/&
10638
6
 & 2.5852E+01_JPRB,3.6097E+01_JPRB,6.2097E+01_JPRB,8.9537E+01_JPRB,1.1762E+02_JPRB/)
10639
KBO( :, 3,55,15) = (/&
10640
6
 & 3.9852E+01_JPRB,4.0035E+01_JPRB,5.8876E+01_JPRB,8.3127E+01_JPRB,1.0760E+02_JPRB/)
10641
KBO( :, 4,55,15) = (/&
10642
6
 & 5.7277E+01_JPRB,4.8243E+01_JPRB,5.8037E+01_JPRB,7.7828E+01_JPRB,9.9021E+01_JPRB/)
10643
KBO( :, 5,55,15) = (/&
10644
6
 & 7.7821E+01_JPRB,6.0372E+01_JPRB,5.9798E+01_JPRB,7.3320E+01_JPRB,9.1766E+01_JPRB/)
10645
KBO( :, 1,56,15) = (/&
10646
6
 & 1.2678E+01_JPRB,3.5873E+01_JPRB,6.8551E+01_JPRB,1.0034E+02_JPRB,1.3352E+02_JPRB/)
10647
KBO( :, 2,56,15) = (/&
10648
6
 & 2.2123E+01_JPRB,3.5552E+01_JPRB,6.3571E+01_JPRB,9.1965E+01_JPRB,1.2124E+02_JPRB/)
10649
KBO( :, 3,56,15) = (/&
10650
6
 & 3.5001E+01_JPRB,3.8317E+01_JPRB,5.9669E+01_JPRB,8.5094E+01_JPRB,1.1071E+02_JPRB/)
10651
KBO( :, 4,56,15) = (/&
10652
6
 & 5.1365E+01_JPRB,4.5210E+01_JPRB,5.8041E+01_JPRB,7.9413E+01_JPRB,1.0170E+02_JPRB/)
10653
KBO( :, 5,56,15) = (/&
10654
6
 & 7.0946E+01_JPRB,5.6077E+01_JPRB,5.9007E+01_JPRB,7.4694E+01_JPRB,9.3909E+01_JPRB/)
10655
KBO( :, 1,57,15) = (/&
10656
6
 & 1.0339E+01_JPRB,3.6549E+01_JPRB,7.0411E+01_JPRB,1.0357E+02_JPRB,1.3800E+02_JPRB/)
10657
KBO( :, 2,57,15) = (/&
10658
6
 & 1.8742E+01_JPRB,3.5363E+01_JPRB,6.5053E+01_JPRB,9.4457E+01_JPRB,1.2502E+02_JPRB/)
10659
KBO( :, 3,57,15) = (/&
10660
6
 & 3.0504E+01_JPRB,3.7104E+01_JPRB,6.0681E+01_JPRB,8.7139E+01_JPRB,1.1395E+02_JPRB/)
10661
KBO( :, 4,57,15) = (/&
10662
6
 & 4.5773E+01_JPRB,4.2584E+01_JPRB,5.8331E+01_JPRB,8.1143E+01_JPRB,1.0448E+02_JPRB/)
10663
KBO( :, 5,57,15) = (/&
10664
6
 & 6.4363E+01_JPRB,5.2190E+01_JPRB,5.8389E+01_JPRB,7.6157E+01_JPRB,9.6302E+01_JPRB/)
10665
KBO( :, 1,58,15) = (/&
10666
6
 & 8.4072E+00_JPRB,3.7388E+01_JPRB,7.2338E+01_JPRB,1.0684E+02_JPRB,1.4246E+02_JPRB/)
10667
KBO( :, 2,58,15) = (/&
10668
6
 & 1.5855E+01_JPRB,3.5502E+01_JPRB,6.6608E+01_JPRB,9.7023E+01_JPRB,1.2881E+02_JPRB/)
10669
KBO( :, 3,58,15) = (/&
10670
6
 & 2.6572E+01_JPRB,3.6289E+01_JPRB,6.1949E+01_JPRB,8.9266E+01_JPRB,1.1719E+02_JPRB/)
10671
KBO( :, 4,58,15) = (/&
10672
6
 & 4.0779E+01_JPRB,4.0444E+01_JPRB,5.8844E+01_JPRB,8.2917E+01_JPRB,1.0723E+02_JPRB/)
10673
KBO( :, 5,58,15) = (/&
10674
6
 & 5.8404E+01_JPRB,4.8880E+01_JPRB,5.8134E+01_JPRB,7.7647E+01_JPRB,9.8698E+01_JPRB/)
10675
KBO( :, 1,59,15) = (/&
10676
6
 & 7.7095E+00_JPRB,3.7763E+01_JPRB,7.3160E+01_JPRB,1.0825E+02_JPRB,1.4434E+02_JPRB/)
10677
KBO( :, 2,59,15) = (/&
10678
6
 & 1.4785E+01_JPRB,3.5623E+01_JPRB,6.7273E+01_JPRB,9.8137E+01_JPRB,1.3040E+02_JPRB/)
10679
KBO( :, 3,59,15) = (/&
10680
6
 & 2.5092E+01_JPRB,3.6030E+01_JPRB,6.2505E+01_JPRB,9.0193E+01_JPRB,1.1856E+02_JPRB/)
10681
KBO( :, 4,59,15) = (/&
10682
6
 & 3.8875E+01_JPRB,3.9709E+01_JPRB,5.9122E+01_JPRB,8.3653E+01_JPRB,1.0840E+02_JPRB/)
10683
KBO( :, 5,59,15) = (/&
10684
6
 & 5.6102E+01_JPRB,4.7649E+01_JPRB,5.8109E+01_JPRB,7.8262E+01_JPRB,9.9705E+01_JPRB/)
10685
KBO( :, 1,13,16) = (/&
10686
6
 & 3.2263E+01_JPRB,2.4210E+01_JPRB,1.6158E+01_JPRB,8.6472E+00_JPRB,1.1361E+01_JPRB/)
10687
KBO( :, 2,13,16) = (/&
10688
6
 & 4.5174E+01_JPRB,3.3894E+01_JPRB,2.2614E+01_JPRB,1.1334E+01_JPRB,1.0965E+01_JPRB/)
10689
KBO( :, 3,13,16) = (/&
10690
6
 & 6.0029E+01_JPRB,4.5035E+01_JPRB,3.0042E+01_JPRB,1.5048E+01_JPRB,1.0696E+01_JPRB/)
10691
KBO( :, 4,13,16) = (/&
10692
6
 & 7.6465E+01_JPRB,5.7362E+01_JPRB,3.8260E+01_JPRB,1.9157E+01_JPRB,1.0564E+01_JPRB/)
10693
KBO( :, 5,13,16) = (/&
10694
6
 & 9.4073E+01_JPRB,7.0568E+01_JPRB,4.7064E+01_JPRB,2.3559E+01_JPRB,1.0648E+01_JPRB/)
10695
KBO( :, 1,14,16) = (/&
10696
6
 & 3.9418E+01_JPRB,2.9575E+01_JPRB,1.9732E+01_JPRB,1.0271E+01_JPRB,1.2990E+01_JPRB/)
10697
KBO( :, 2,14,16) = (/&
10698
6
 & 5.4735E+01_JPRB,4.1063E+01_JPRB,2.7391E+01_JPRB,1.3719E+01_JPRB,1.2722E+01_JPRB/)
10699
KBO( :, 3,14,16) = (/&
10700
6
 & 7.2196E+01_JPRB,5.4159E+01_JPRB,3.6122E+01_JPRB,1.8084E+01_JPRB,1.2482E+01_JPRB/)
10701
KBO( :, 4,14,16) = (/&
10702
6
 & 9.1581E+01_JPRB,6.8699E+01_JPRB,4.5817E+01_JPRB,2.2935E+01_JPRB,1.2482E+01_JPRB/)
10703
KBO( :, 5,14,16) = (/&
10704
6
 & 1.1260E+02_JPRB,8.4466E+01_JPRB,5.6330E+01_JPRB,2.8194E+01_JPRB,1.2541E+01_JPRB/)
10705
KBO( :, 1,15,16) = (/&
10706
6
 & 4.7744E+01_JPRB,3.5818E+01_JPRB,2.3892E+01_JPRB,1.2552E+01_JPRB,1.5030E+01_JPRB/)
10707
KBO( :, 2,15,16) = (/&
10708
6
 & 6.5839E+01_JPRB,4.9390E+01_JPRB,3.2941E+01_JPRB,1.6492E+01_JPRB,1.4777E+01_JPRB/)
10709
KBO( :, 3,15,16) = (/&
10710
6
 & 8.6769E+01_JPRB,6.5089E+01_JPRB,4.3408E+01_JPRB,2.1728E+01_JPRB,1.4586E+01_JPRB/)
10711
KBO( :, 4,15,16) = (/&
10712
6
 & 1.1002E+02_JPRB,8.2528E+01_JPRB,5.5036E+01_JPRB,2.7544E+01_JPRB,1.4666E+01_JPRB/)
10713
KBO( :, 5,15,16) = (/&
10714
6
 & 1.3516E+02_JPRB,1.0139E+02_JPRB,6.7610E+01_JPRB,3.3833E+01_JPRB,1.4702E+01_JPRB/)
10715
KBO( :, 1,16,16) = (/&
10716
6
 & 5.7645E+01_JPRB,4.3243E+01_JPRB,2.8842E+01_JPRB,1.5267E+01_JPRB,1.7359E+01_JPRB/)
10717
KBO( :, 2,16,16) = (/&
10718
6
 & 7.9413E+01_JPRB,5.9570E+01_JPRB,3.9727E+01_JPRB,1.9884E+01_JPRB,1.7054E+01_JPRB/)
10719
KBO( :, 3,16,16) = (/&
10720
6
 & 1.0440E+02_JPRB,7.8314E+01_JPRB,5.2225E+01_JPRB,2.6135E+01_JPRB,1.7041E+01_JPRB/)
10721
KBO( :, 4,16,16) = (/&
10722
6
 & 1.3208E+02_JPRB,9.9071E+01_JPRB,6.6063E+01_JPRB,3.3056E+01_JPRB,1.7119E+01_JPRB/)
10723
KBO( :, 5,16,16) = (/&
10724
6
 & 1.6175E+02_JPRB,1.2132E+02_JPRB,8.0899E+01_JPRB,4.0476E+01_JPRB,1.7152E+01_JPRB/)
10725
KBO( :, 1,17,16) = (/&
10726
6
 & 6.9575E+01_JPRB,5.2190E+01_JPRB,3.4804E+01_JPRB,1.8369E+01_JPRB,1.9921E+01_JPRB/)
10727
KBO( :, 2,17,16) = (/&
10728
6
 & 9.5428E+01_JPRB,7.1580E+01_JPRB,4.7733E+01_JPRB,2.3885E+01_JPRB,1.9756E+01_JPRB/)
10729
KBO( :, 3,17,16) = (/&
10730
6
 & 1.2491E+02_JPRB,9.3694E+01_JPRB,6.2476E+01_JPRB,3.1259E+01_JPRB,1.9810E+01_JPRB/)
10731
KBO( :, 4,17,16) = (/&
10732
6
 & 1.5735E+02_JPRB,1.1802E+02_JPRB,7.8696E+01_JPRB,3.9370E+01_JPRB,1.9895E+01_JPRB/)
10733
KBO( :, 5,17,16) = (/&
10734
6
 & 1.9186E+02_JPRB,1.4391E+02_JPRB,9.5955E+01_JPRB,4.8001E+01_JPRB,1.9910E+01_JPRB/)
10735
KBO( :, 1,18,16) = (/&
10736
6
 & 8.3432E+01_JPRB,6.2581E+01_JPRB,4.1731E+01_JPRB,2.1854E+01_JPRB,2.3228E+01_JPRB/)
10737
KBO( :, 2,18,16) = (/&
10738
6
 & 1.1378E+02_JPRB,8.5346E+01_JPRB,5.6908E+01_JPRB,2.8471E+01_JPRB,2.3168E+01_JPRB/)
10739
KBO( :, 3,18,16) = (/&
10740
6
 & 1.4807E+02_JPRB,1.1106E+02_JPRB,7.4051E+01_JPRB,3.7043E+01_JPRB,2.3063E+01_JPRB/)
10741
KBO( :, 4,18,16) = (/&
10742
6
 & 1.8546E+02_JPRB,1.3910E+02_JPRB,9.2747E+01_JPRB,4.6393E+01_JPRB,2.3051E+01_JPRB/)
10743
KBO( :, 5,18,16) = (/&
10744
6
 & 2.2501E+02_JPRB,1.6877E+02_JPRB,1.1253E+02_JPRB,5.6286E+01_JPRB,2.2993E+01_JPRB/)
10745
KBO( :, 1,19,16) = (/&
10746
6
 & 9.9057E+01_JPRB,7.4299E+01_JPRB,4.9542E+01_JPRB,2.5942E+01_JPRB,2.7272E+01_JPRB/)
10747
KBO( :, 2,19,16) = (/&
10748
6
 & 1.3405E+02_JPRB,1.0055E+02_JPRB,6.7042E+01_JPRB,3.3543E+01_JPRB,2.7144E+01_JPRB/)
10749
KBO( :, 3,19,16) = (/&
10750
6
 & 1.7334E+02_JPRB,1.3002E+02_JPRB,8.6689E+01_JPRB,4.3364E+01_JPRB,2.6916E+01_JPRB/)
10751
KBO( :, 4,19,16) = (/&
10752
6
 & 2.1641E+02_JPRB,1.6232E+02_JPRB,1.0823E+02_JPRB,5.4140E+01_JPRB,2.6725E+01_JPRB/)
10753
KBO( :, 5,19,16) = (/&
10754
6
 & 2.6236E+02_JPRB,1.9678E+02_JPRB,1.3121E+02_JPRB,6.5630E+01_JPRB,2.6538E+01_JPRB/)
10755
KBO( :, 1,20,16) = (/&
10756
6
 & 1.1670E+02_JPRB,8.7534E+01_JPRB,5.8366E+01_JPRB,3.0680E+01_JPRB,3.1959E+01_JPRB/)
10757
KBO( :, 2,20,16) = (/&
10758
6
 & 1.5709E+02_JPRB,1.1783E+02_JPRB,7.8566E+01_JPRB,3.9305E+01_JPRB,3.1724E+01_JPRB/)
10759
KBO( :, 3,20,16) = (/&
10760
6
 & 2.0269E+02_JPRB,1.5203E+02_JPRB,1.0137E+02_JPRB,5.0708E+01_JPRB,3.1376E+01_JPRB/)
10761
KBO( :, 4,20,16) = (/&
10762
6
 & 2.5230E+02_JPRB,1.8924E+02_JPRB,1.2618E+02_JPRB,6.3114E+01_JPRB,3.0984E+01_JPRB/)
10763
KBO( :, 5,20,16) = (/&
10764
6
 & 3.0479E+02_JPRB,2.2861E+02_JPRB,1.5242E+02_JPRB,7.6237E+01_JPRB,3.0606E+01_JPRB/)
10765
KBO( :, 1,21,16) = (/&
10766
6
 & 1.3677E+02_JPRB,1.0259E+02_JPRB,6.8408E+01_JPRB,3.5947E+01_JPRB,3.7295E+01_JPRB/)
10767
KBO( :, 2,21,16) = (/&
10768
6
 & 1.8327E+02_JPRB,1.3746E+02_JPRB,9.1655E+01_JPRB,4.5850E+01_JPRB,3.6923E+01_JPRB/)
10769
KBO( :, 3,21,16) = (/&
10770
6
 & 2.3530E+02_JPRB,1.7648E+02_JPRB,1.1767E+02_JPRB,5.8860E+01_JPRB,3.6405E+01_JPRB/)
10771
KBO( :, 4,21,16) = (/&
10772
6
 & 2.9155E+02_JPRB,2.1867E+02_JPRB,1.4580E+02_JPRB,7.2922E+01_JPRB,3.5874E+01_JPRB/)
10773
KBO( :, 5,21,16) = (/&
10774
6
 & 3.5033E+02_JPRB,2.6276E+02_JPRB,1.7519E+02_JPRB,8.7619E+01_JPRB,3.5270E+01_JPRB/)
10775
KBO( :, 1,22,16) = (/&
10776
6
 & 1.6233E+02_JPRB,1.2176E+02_JPRB,8.1187E+01_JPRB,4.2657E+01_JPRB,4.3248E+01_JPRB/)
10777
KBO( :, 2,22,16) = (/&
10778
6
 & 2.1544E+02_JPRB,1.6159E+02_JPRB,1.0774E+02_JPRB,5.3945E+01_JPRB,4.2701E+01_JPRB/)
10779
KBO( :, 3,22,16) = (/&
10780
6
 & 2.7410E+02_JPRB,2.0559E+02_JPRB,1.3707E+02_JPRB,6.8557E+01_JPRB,4.2119E+01_JPRB/)
10781
KBO( :, 4,22,16) = (/&
10782
6
 & 3.3685E+02_JPRB,2.5265E+02_JPRB,1.6845E+02_JPRB,8.4248E+01_JPRB,4.1509E+01_JPRB/)
10783
KBO( :, 5,22,16) = (/&
10784
6
 & 4.0263E+02_JPRB,3.0199E+02_JPRB,2.0134E+02_JPRB,1.0070E+02_JPRB,4.0811E+01_JPRB/)
10785
KBO( :, 1,23,16) = (/&
10786
6
 & 1.9053E+02_JPRB,1.4291E+02_JPRB,9.5285E+01_JPRB,5.0617E+01_JPRB,5.0337E+01_JPRB/)
10787
KBO( :, 2,23,16) = (/&
10788
6
 & 2.5017E+02_JPRB,1.8764E+02_JPRB,1.2511E+02_JPRB,6.2998E+01_JPRB,4.9660E+01_JPRB/)
10789
KBO( :, 3,23,16) = (/&
10790
6
 & 3.1595E+02_JPRB,2.3698E+02_JPRB,1.5800E+02_JPRB,7.9029E+01_JPRB,4.8927E+01_JPRB/)
10791
KBO( :, 4,23,16) = (/&
10792
6
 & 3.8628E+02_JPRB,2.8972E+02_JPRB,1.9317E+02_JPRB,9.6612E+01_JPRB,4.8034E+01_JPRB/)
10793
KBO( :, 5,23,16) = (/&
10794
6
 & 4.5926E+02_JPRB,3.4446E+02_JPRB,2.2966E+02_JPRB,1.1486E+02_JPRB,4.7018E+01_JPRB/)
10795
KBO( :, 1,24,16) = (/&
10796
6
 & 2.2153E+02_JPRB,1.6616E+02_JPRB,1.1079E+02_JPRB,5.9590E+01_JPRB,5.8418E+01_JPRB/)
10797
KBO( :, 2,24,16) = (/&
10798
6
 & 2.8858E+02_JPRB,2.1645E+02_JPRB,1.4432E+02_JPRB,7.2964E+01_JPRB,5.7353E+01_JPRB/)
10799
KBO( :, 3,24,16) = (/&
10800
6
 & 3.6176E+02_JPRB,2.7134E+02_JPRB,1.8091E+02_JPRB,9.0484E+01_JPRB,5.6191E+01_JPRB/)
10801
KBO( :, 4,24,16) = (/&
10802
6
 & 4.3913E+02_JPRB,3.2936E+02_JPRB,2.1959E+02_JPRB,1.0983E+02_JPRB,5.4899E+01_JPRB/)
10803
KBO( :, 5,24,16) = (/&
10804
6
 & 5.1871E+02_JPRB,3.8905E+02_JPRB,2.5939E+02_JPRB,1.2972E+02_JPRB,5.3493E+01_JPRB/)
10805
KBO( :, 1,25,16) = (/&
10806
6
 & 2.5592E+02_JPRB,1.9195E+02_JPRB,1.2799E+02_JPRB,6.9505E+01_JPRB,6.6958E+01_JPRB/)
10807
KBO( :, 2,25,16) = (/&
10808
6
 & 3.3021E+02_JPRB,2.4767E+02_JPRB,1.6513E+02_JPRB,8.3805E+01_JPRB,6.5388E+01_JPRB/)
10809
KBO( :, 3,25,16) = (/&
10810
6
 & 4.1034E+02_JPRB,3.0777E+02_JPRB,2.0520E+02_JPRB,1.0263E+02_JPRB,6.3684E+01_JPRB/)
10811
KBO( :, 4,25,16) = (/&
10812
6
 & 4.9407E+02_JPRB,3.7057E+02_JPRB,2.4706E+02_JPRB,1.2356E+02_JPRB,6.1889E+01_JPRB/)
10813
KBO( :, 5,25,16) = (/&
10814
6
 & 5.7945E+02_JPRB,4.3460E+02_JPRB,2.8975E+02_JPRB,1.4490E+02_JPRB,6.0007E+01_JPRB/)
10815
KBO( :, 1,26,16) = (/&
10816
6
 & 2.9375E+02_JPRB,2.2033E+02_JPRB,1.4690E+02_JPRB,8.0244E+01_JPRB,7.5657E+01_JPRB/)
10817
KBO( :, 2,26,16) = (/&
10818
6
 & 3.7482E+02_JPRB,2.8113E+02_JPRB,1.8744E+02_JPRB,9.5627E+01_JPRB,7.3427E+01_JPRB/)
10819
KBO( :, 3,26,16) = (/&
10820
6
 & 4.6126E+02_JPRB,3.4596E+02_JPRB,2.3065E+02_JPRB,1.1546E+02_JPRB,7.1104E+01_JPRB/)
10821
KBO( :, 4,26,16) = (/&
10822
6
 & 5.5138E+02_JPRB,4.1354E+02_JPRB,2.7571E+02_JPRB,1.3788E+02_JPRB,6.8732E+01_JPRB/)
10823
KBO( :, 5,26,16) = (/&
10824
6
 & 6.4282E+02_JPRB,4.8213E+02_JPRB,3.2143E+02_JPRB,1.6074E+02_JPRB,6.6296E+01_JPRB/)
10825
KBO( :, 1,27,16) = (/&
10826
6
 & 3.3321E+02_JPRB,2.4992E+02_JPRB,1.6663E+02_JPRB,9.1366E+01_JPRB,8.4138E+01_JPRB/)
10827
KBO( :, 2,27,16) = (/&
10828
6
 & 4.2092E+02_JPRB,3.1570E+02_JPRB,2.1048E+02_JPRB,1.0786E+02_JPRB,8.1216E+01_JPRB/)
10829
KBO( :, 3,27,16) = (/&
10830
6
 & 5.1399E+02_JPRB,3.8550E+02_JPRB,2.5701E+02_JPRB,1.2862E+02_JPRB,7.8186E+01_JPRB/)
10831
KBO( :, 4,27,16) = (/&
10832
6
 & 6.0988E+02_JPRB,4.5742E+02_JPRB,3.0496E+02_JPRB,1.5250E+02_JPRB,7.5179E+01_JPRB/)
10833
KBO( :, 5,27,16) = (/&
10834
6
 & 7.0613E+02_JPRB,5.2960E+02_JPRB,3.5308E+02_JPRB,1.7656E+02_JPRB,7.2191E+01_JPRB/)
10835
KBO( :, 1,28,16) = (/&
10836
6
 & 3.7433E+02_JPRB,2.8075E+02_JPRB,1.8718E+02_JPRB,1.0259E+02_JPRB,9.2146E+01_JPRB/)
10837
KBO( :, 2,28,16) = (/&
10838
6
 & 4.6847E+02_JPRB,3.5136E+02_JPRB,2.3425E+02_JPRB,1.2023E+02_JPRB,8.8477E+01_JPRB/)
10839
KBO( :, 3,28,16) = (/&
10840
6
 & 5.6719E+02_JPRB,4.2540E+02_JPRB,2.8361E+02_JPRB,1.4204E+02_JPRB,8.4711E+01_JPRB/)
10841
KBO( :, 4,28,16) = (/&
10842
6
 & 6.6805E+02_JPRB,5.0105E+02_JPRB,3.3404E+02_JPRB,1.6704E+02_JPRB,8.1058E+01_JPRB/)
10843
KBO( :, 5,28,16) = (/&
10844
6
 & 7.6861E+02_JPRB,5.7647E+02_JPRB,3.8432E+02_JPRB,1.9217E+02_JPRB,7.7535E+01_JPRB/)
10845
KBO( :, 1,29,16) = (/&
10846
6
 & 4.1725E+02_JPRB,3.1294E+02_JPRB,2.0864E+02_JPRB,1.1391E+02_JPRB,9.9444E+01_JPRB/)
10847
KBO( :, 2,29,16) = (/&
10848
6
 & 5.1701E+02_JPRB,3.8777E+02_JPRB,2.5852E+02_JPRB,1.3257E+02_JPRB,9.4950E+01_JPRB/)
10849
KBO( :, 3,29,16) = (/&
10850
6
 & 6.2080E+02_JPRB,4.6561E+02_JPRB,3.1041E+02_JPRB,1.5542E+02_JPRB,9.0532E+01_JPRB/)
10851
KBO( :, 4,29,16) = (/&
10852
6
 & 7.2558E+02_JPRB,5.4419E+02_JPRB,3.6280E+02_JPRB,1.8141E+02_JPRB,8.6254E+01_JPRB/)
10853
KBO( :, 5,29,16) = (/&
10854
6
 & 8.2901E+02_JPRB,6.2176E+02_JPRB,4.1451E+02_JPRB,2.0727E+02_JPRB,8.2152E+01_JPRB/)
10855
KBO( :, 1,30,16) = (/&
10856
6
 & 4.6074E+02_JPRB,3.4556E+02_JPRB,2.3038E+02_JPRB,1.2510E+02_JPRB,1.0583E+02_JPRB/)
10857
KBO( :, 2,30,16) = (/&
10858
6
 & 5.6540E+02_JPRB,4.2406E+02_JPRB,2.8271E+02_JPRB,1.4464E+02_JPRB,1.0057E+02_JPRB/)
10859
KBO( :, 3,30,16) = (/&
10860
6
 & 6.7286E+02_JPRB,5.0465E+02_JPRB,3.3644E+02_JPRB,1.6852E+02_JPRB,9.5505E+01_JPRB/)
10861
KBO( :, 4,30,16) = (/&
10862
6
 & 7.8088E+02_JPRB,5.8566E+02_JPRB,3.9045E+02_JPRB,1.9523E+02_JPRB,9.0661E+01_JPRB/)
10863
KBO( :, 5,30,16) = (/&
10864
6
 & 8.8686E+02_JPRB,6.6515E+02_JPRB,4.4344E+02_JPRB,2.2173E+02_JPRB,8.6036E+01_JPRB/)
10865
KBO( :, 1,31,16) = (/&
10866
6
 & 5.0472E+02_JPRB,3.7854E+02_JPRB,2.5237E+02_JPRB,1.3614E+02_JPRB,1.1117E+02_JPRB/)
10867
KBO( :, 2,31,16) = (/&
10868
6
 & 6.1339E+02_JPRB,4.6004E+02_JPRB,3.0670E+02_JPRB,1.5661E+02_JPRB,1.0529E+02_JPRB/)
10869
KBO( :, 3,31,16) = (/&
10870
6
 & 7.2433E+02_JPRB,5.4325E+02_JPRB,3.6217E+02_JPRB,1.8144E+02_JPRB,9.9591E+01_JPRB/)
10871
KBO( :, 4,31,16) = (/&
10872
6
 & 8.3504E+02_JPRB,6.2629E+02_JPRB,4.1753E+02_JPRB,2.0877E+02_JPRB,9.4229E+01_JPRB/)
10873
KBO( :, 5,31,16) = (/&
10874
6
 & 9.4280E+02_JPRB,7.0711E+02_JPRB,4.7141E+02_JPRB,2.3571E+02_JPRB,8.9176E+01_JPRB/)
10875
KBO( :, 1,32,16) = (/&
10876
6
 & 5.4855E+02_JPRB,4.1142E+02_JPRB,2.7428E+02_JPRB,1.4676E+02_JPRB,1.1548E+02_JPRB/)
10877
KBO( :, 2,32,16) = (/&
10878
6
 & 6.6091E+02_JPRB,4.9568E+02_JPRB,3.3046E+02_JPRB,1.6826E+02_JPRB,1.0901E+02_JPRB/)
10879
KBO( :, 3,32,16) = (/&
10880
6
 & 7.7477E+02_JPRB,5.8108E+02_JPRB,3.8739E+02_JPRB,1.9388E+02_JPRB,1.0281E+02_JPRB/)
10881
KBO( :, 4,32,16) = (/&
10882
6
 & 8.8730E+02_JPRB,6.6548E+02_JPRB,4.4366E+02_JPRB,2.2183E+02_JPRB,9.7004E+01_JPRB/)
10883
KBO( :, 5,32,16) = (/&
10884
6
 & 9.9594E+02_JPRB,7.4695E+02_JPRB,4.9797E+02_JPRB,2.4899E+02_JPRB,9.1601E+01_JPRB/)
10885
KBO( :, 1,33,16) = (/&
10886
6
 & 5.9242E+02_JPRB,4.4432E+02_JPRB,2.9622E+02_JPRB,1.5694E+02_JPRB,1.1883E+02_JPRB/)
10887
KBO( :, 2,33,16) = (/&
10888
6
 & 7.0777E+02_JPRB,5.3083E+02_JPRB,3.5389E+02_JPRB,1.7956E+02_JPRB,1.1183E+02_JPRB/)
10889
KBO( :, 3,33,16) = (/&
10890
6
 & 8.2358E+02_JPRB,6.1768E+02_JPRB,4.1179E+02_JPRB,2.0591E+02_JPRB,1.0524E+02_JPRB/)
10891
KBO( :, 4,33,16) = (/&
10892
6
 & 9.3713E+02_JPRB,7.0285E+02_JPRB,4.6857E+02_JPRB,2.3429E+02_JPRB,9.9066E+01_JPRB/)
10893
KBO( :, 5,33,16) = (/&
10894
6
 & 1.0459E+03_JPRB,7.8446E+02_JPRB,5.2297E+02_JPRB,2.6149E+02_JPRB,9.3354E+01_JPRB/)
10895
KBO( :, 1,34,16) = (/&
10896
6
 & 6.3153E+02_JPRB,4.7365E+02_JPRB,3.1577E+02_JPRB,1.6595E+02_JPRB,1.2152E+02_JPRB/)
10897
KBO( :, 2,34,16) = (/&
10898
6
 & 7.4904E+02_JPRB,5.6178E+02_JPRB,3.7452E+02_JPRB,1.8952E+02_JPRB,1.1409E+02_JPRB/)
10899
KBO( :, 3,34,16) = (/&
10900
6
 & 8.6625E+02_JPRB,6.4969E+02_JPRB,4.3313E+02_JPRB,2.1657E+02_JPRB,1.0714E+02_JPRB/)
10901
KBO( :, 4,34,16) = (/&
10902
6
 & 9.8045E+02_JPRB,7.3534E+02_JPRB,4.9023E+02_JPRB,2.4512E+02_JPRB,1.0070E+02_JPRB/)
10903
KBO( :, 5,34,16) = (/&
10904
6
 & 1.0897E+03_JPRB,8.1726E+02_JPRB,5.4484E+02_JPRB,2.7243E+02_JPRB,9.4730E+01_JPRB/)
10905
KBO( :, 1,35,16) = (/&
10906
6
 & 6.5821E+02_JPRB,4.9366E+02_JPRB,3.2911E+02_JPRB,1.7240E+02_JPRB,1.2419E+02_JPRB/)
10907
10908
1
IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART36',1,ZHOOK_HANDLE)
10909
1
END SUBROUTINE PART36
10910
10911
10912
1
SUBROUTINE PART37
10913
10914
REAL(KIND=JPRB) :: ZHOOK_HANDLE
10915
1
IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART37',0,ZHOOK_HANDLE)
10916
10917
10918
KBO( :, 2,35,16) = (/&
10919
6
 & 7.7728E+02_JPRB,5.8296E+02_JPRB,3.8864E+02_JPRB,1.9649E+02_JPRB,1.1638E+02_JPRB/)
10920
KBO( :, 3,35,16) = (/&
10921
6
 & 8.9594E+02_JPRB,6.7196E+02_JPRB,4.4797E+02_JPRB,2.2399E+02_JPRB,1.0909E+02_JPRB/)
10922
KBO( :, 4,35,16) = (/&
10923
6
 & 1.0109E+03_JPRB,7.5821E+02_JPRB,5.0548E+02_JPRB,2.5274E+02_JPRB,1.0239E+02_JPRB/)
10924
KBO( :, 5,35,16) = (/&
10925
6
 & 1.1199E+03_JPRB,8.3992E+02_JPRB,5.5995E+02_JPRB,2.7998E+02_JPRB,9.6183E+01_JPRB/)
10926
KBO( :, 1,36,16) = (/&
10927
6
 & 6.7059E+02_JPRB,5.0294E+02_JPRB,3.3530E+02_JPRB,1.7604E+02_JPRB,1.2715E+02_JPRB/)
10928
KBO( :, 2,36,16) = (/&
10929
6
 & 7.9094E+02_JPRB,5.9320E+02_JPRB,3.9547E+02_JPRB,2.0012E+02_JPRB,1.1897E+02_JPRB/)
10930
KBO( :, 3,36,16) = (/&
10931
6
 & 9.1055E+02_JPRB,6.8291E+02_JPRB,4.5528E+02_JPRB,2.2764E+02_JPRB,1.1135E+02_JPRB/)
10932
KBO( :, 4,36,16) = (/&
10933
6
 & 1.0266E+03_JPRB,7.6996E+02_JPRB,5.1331E+02_JPRB,2.5666E+02_JPRB,1.0436E+02_JPRB/)
10934
KBO( :, 5,36,16) = (/&
10935
6
 & 1.1363E+03_JPRB,8.5221E+02_JPRB,5.6814E+02_JPRB,2.8407E+02_JPRB,9.7934E+01_JPRB/)
10936
KBO( :, 1,37,16) = (/&
10937
6
 & 6.6319E+02_JPRB,4.9740E+02_JPRB,3.3160E+02_JPRB,1.7601E+02_JPRB,1.3096E+02_JPRB/)
10938
KBO( :, 2,37,16) = (/&
10939
6
 & 7.8424E+02_JPRB,5.8818E+02_JPRB,3.9212E+02_JPRB,1.9937E+02_JPRB,1.2236E+02_JPRB/)
10940
KBO( :, 3,37,16) = (/&
10941
6
 & 9.0524E+02_JPRB,6.7893E+02_JPRB,4.5262E+02_JPRB,2.2635E+02_JPRB,1.1439E+02_JPRB/)
10942
KBO( :, 4,37,16) = (/&
10943
6
 & 1.0226E+03_JPRB,7.6693E+02_JPRB,5.1129E+02_JPRB,2.5565E+02_JPRB,1.0707E+02_JPRB/)
10944
KBO( :, 5,37,16) = (/&
10945
6
 & 1.1340E+03_JPRB,8.5053E+02_JPRB,5.6702E+02_JPRB,2.8351E+02_JPRB,1.0033E+02_JPRB/)
10946
KBO( :, 1,38,16) = (/&
10947
6
 & 6.5328E+02_JPRB,4.8996E+02_JPRB,3.2664E+02_JPRB,1.7551E+02_JPRB,1.3460E+02_JPRB/)
10948
KBO( :, 2,38,16) = (/&
10949
6
 & 7.7497E+02_JPRB,5.8123E+02_JPRB,3.8749E+02_JPRB,1.9811E+02_JPRB,1.2556E+02_JPRB/)
10950
KBO( :, 3,38,16) = (/&
10951
6
 & 8.9678E+02_JPRB,6.7259E+02_JPRB,4.4839E+02_JPRB,2.2452E+02_JPRB,1.1726E+02_JPRB/)
10952
KBO( :, 4,38,16) = (/&
10953
6
 & 1.0156E+03_JPRB,7.6168E+02_JPRB,5.0779E+02_JPRB,2.5390E+02_JPRB,1.0960E+02_JPRB/)
10954
KBO( :, 5,38,16) = (/&
10955
6
 & 1.1289E+03_JPRB,8.4669E+02_JPRB,5.6446E+02_JPRB,2.8223E+02_JPRB,1.0262E+02_JPRB/)
10956
KBO( :, 1,39,16) = (/&
10957
6
 & 6.4257E+02_JPRB,4.8193E+02_JPRB,3.2129E+02_JPRB,1.7479E+02_JPRB,1.3792E+02_JPRB/)
10958
KBO( :, 2,39,16) = (/&
10959
6
 & 7.6414E+02_JPRB,5.7310E+02_JPRB,3.8207E+02_JPRB,1.9654E+02_JPRB,1.2851E+02_JPRB/)
10960
KBO( :, 3,39,16) = (/&
10961
6
 & 8.8664E+02_JPRB,6.6498E+02_JPRB,4.4332E+02_JPRB,2.2243E+02_JPRB,1.1989E+02_JPRB/)
10962
KBO( :, 4,39,16) = (/&
10963
6
 & 1.0066E+03_JPRB,7.5495E+02_JPRB,5.0330E+02_JPRB,2.5165E+02_JPRB,1.1192E+02_JPRB/)
10964
KBO( :, 5,39,16) = (/&
10965
6
 & 1.1211E+03_JPRB,8.4084E+02_JPRB,5.6056E+02_JPRB,2.8028E+02_JPRB,1.0470E+02_JPRB/)
10966
KBO( :, 1,40,16) = (/&
10967
6
 & 6.1808E+02_JPRB,4.6356E+02_JPRB,3.0904E+02_JPRB,1.7192E+02_JPRB,1.4210E+02_JPRB/)
10968
KBO( :, 2,40,16) = (/&
10969
6
 & 7.3974E+02_JPRB,5.5481E+02_JPRB,3.6987E+02_JPRB,1.9237E+02_JPRB,1.3221E+02_JPRB/)
10970
KBO( :, 3,40,16) = (/&
10971
6
 & 8.6274E+02_JPRB,6.4706E+02_JPRB,4.3137E+02_JPRB,2.1745E+02_JPRB,1.2321E+02_JPRB/)
10972
KBO( :, 4,40,16) = (/&
10973
6
 & 9.8377E+02_JPRB,7.3783E+02_JPRB,4.9189E+02_JPRB,2.4594E+02_JPRB,1.1493E+02_JPRB/)
10974
KBO( :, 5,40,16) = (/&
10975
6
 & 1.1003E+03_JPRB,8.2526E+02_JPRB,5.5018E+02_JPRB,2.7509E+02_JPRB,1.0740E+02_JPRB/)
10976
KBO( :, 1,41,16) = (/&
10977
6
 & 5.9120E+02_JPRB,4.4340E+02_JPRB,2.9560E+02_JPRB,1.6877E+02_JPRB,1.4632E+02_JPRB/)
10978
KBO( :, 2,41,16) = (/&
10979
6
 & 7.1268E+02_JPRB,5.3451E+02_JPRB,3.5634E+02_JPRB,1.8787E+02_JPRB,1.3592E+02_JPRB/)
10980
KBO( :, 3,41,16) = (/&
10981
6
 & 8.3597E+02_JPRB,6.2698E+02_JPRB,4.1798E+02_JPRB,2.1205E+02_JPRB,1.2655E+02_JPRB/)
10982
KBO( :, 4,41,16) = (/&
10983
6
 & 9.5842E+02_JPRB,7.1882E+02_JPRB,4.7921E+02_JPRB,2.3967E+02_JPRB,1.1795E+02_JPRB/)
10984
KBO( :, 5,41,16) = (/&
10985
6
 & 1.0766E+03_JPRB,8.0748E+02_JPRB,5.3832E+02_JPRB,2.6916E+02_JPRB,1.1013E+02_JPRB/)
10986
KBO( :, 1,42,16) = (/&
10987
6
 & 5.6381E+02_JPRB,4.2287E+02_JPRB,2.8192E+02_JPRB,1.6586E+02_JPRB,1.5054E+02_JPRB/)
10988
KBO( :, 2,42,16) = (/&
10989
6
 & 6.8496E+02_JPRB,5.1372E+02_JPRB,3.4248E+02_JPRB,1.8375E+02_JPRB,1.3960E+02_JPRB/)
10990
KBO( :, 3,42,16) = (/&
10991
6
 & 8.0821E+02_JPRB,6.0616E+02_JPRB,4.0411E+02_JPRB,2.0657E+02_JPRB,1.2981E+02_JPRB/)
10992
KBO( :, 4,42,16) = (/&
10993
6
 & 9.3135E+02_JPRB,6.9851E+02_JPRB,4.6567E+02_JPRB,2.3323E+02_JPRB,1.2093E+02_JPRB/)
10994
KBO( :, 5,42,16) = (/&
10995
6
 & 1.0512E+03_JPRB,7.8842E+02_JPRB,5.2562E+02_JPRB,2.6281E+02_JPRB,1.1278E+02_JPRB/)
10996
KBO( :, 1,43,16) = (/&
10997
6
 & 5.2955E+02_JPRB,3.9717E+02_JPRB,2.6480E+02_JPRB,1.6239E+02_JPRB,1.5543E+02_JPRB/)
10998
KBO( :, 2,43,16) = (/&
10999
6
 & 6.4929E+02_JPRB,4.8697E+02_JPRB,3.2465E+02_JPRB,1.7863E+02_JPRB,1.4384E+02_JPRB/)
11000
KBO( :, 3,43,16) = (/&
11001
6
 & 7.7272E+02_JPRB,5.7954E+02_JPRB,3.8636E+02_JPRB,1.9990E+02_JPRB,1.3363E+02_JPRB/)
11002
KBO( :, 4,43,16) = (/&
11003
6
 & 8.9638E+02_JPRB,6.7229E+02_JPRB,4.4819E+02_JPRB,2.2542E+02_JPRB,1.2436E+02_JPRB/)
11004
KBO( :, 5,43,16) = (/&
11005
6
 & 1.0176E+03_JPRB,7.6322E+02_JPRB,5.0881E+02_JPRB,2.5441E+02_JPRB,1.1585E+02_JPRB/)
11006
KBO( :, 1,44,16) = (/&
11007
6
 & 4.9226E+02_JPRB,3.6921E+02_JPRB,2.4618E+02_JPRB,1.5919E+02_JPRB,1.6071E+02_JPRB/)
11008
KBO( :, 2,44,16) = (/&
11009
6
 & 6.1049E+02_JPRB,4.5787E+02_JPRB,3.0525E+02_JPRB,1.7333E+02_JPRB,1.4841E+02_JPRB/)
11010
KBO( :, 3,44,16) = (/&
11011
6
 & 7.3319E+02_JPRB,5.4989E+02_JPRB,3.6660E+02_JPRB,1.9274E+02_JPRB,1.3765E+02_JPRB/)
11012
KBO( :, 4,44,16) = (/&
11013
6
 & 8.5738E+02_JPRB,6.4303E+02_JPRB,4.2869E+02_JPRB,2.1719E+02_JPRB,1.2801E+02_JPRB/)
11014
KBO( :, 5,44,16) = (/&
11015
6
 & 9.7980E+02_JPRB,7.3485E+02_JPRB,4.8990E+02_JPRB,2.4500E+02_JPRB,1.1918E+02_JPRB/)
11016
KBO( :, 1,45,16) = (/&
11017
6
 & 4.5538E+02_JPRB,3.4155E+02_JPRB,2.2854E+02_JPRB,1.5641E+02_JPRB,1.6609E+02_JPRB/)
11018
KBO( :, 2,45,16) = (/&
11019
6
 & 5.7191E+02_JPRB,4.2894E+02_JPRB,2.8597E+02_JPRB,1.6860E+02_JPRB,1.5314E+02_JPRB/)
11020
KBO( :, 3,45,16) = (/&
11021
6
 & 6.9342E+02_JPRB,5.2007E+02_JPRB,3.4671E+02_JPRB,1.8629E+02_JPRB,1.4178E+02_JPRB/)
11022
KBO( :, 4,45,16) = (/&
11023
6
 & 8.1734E+02_JPRB,6.1301E+02_JPRB,4.0867E+02_JPRB,2.0907E+02_JPRB,1.3172E+02_JPRB/)
11024
KBO( :, 5,45,16) = (/&
11025
6
 & 9.4113E+02_JPRB,7.0584E+02_JPRB,4.7056E+02_JPRB,2.3576E+02_JPRB,1.2254E+02_JPRB/)
11026
KBO( :, 1,46,16) = (/&
11027
6
 & 4.1669E+02_JPRB,3.1253E+02_JPRB,2.1183E+02_JPRB,1.5432E+02_JPRB,1.7199E+02_JPRB/)
11028
KBO( :, 2,46,16) = (/&
11029
6
 & 5.3032E+02_JPRB,3.9775E+02_JPRB,2.6519E+02_JPRB,1.6403E+02_JPRB,1.5825E+02_JPRB/)
11030
KBO( :, 3,46,16) = (/&
11031
6
 & 6.5084E+02_JPRB,4.8813E+02_JPRB,3.2542E+02_JPRB,1.7998E+02_JPRB,1.4624E+02_JPRB/)
11032
KBO( :, 4,46,16) = (/&
11033
6
 & 7.7453E+02_JPRB,5.8090E+02_JPRB,3.8727E+02_JPRB,2.0089E+02_JPRB,1.3568E+02_JPRB/)
11034
KBO( :, 5,46,16) = (/&
11035
6
 & 8.9886E+02_JPRB,6.7414E+02_JPRB,4.4943E+02_JPRB,2.2628E+02_JPRB,1.2618E+02_JPRB/)
11036
KBO( :, 1,47,16) = (/&
11037
6
 & 3.7428E+02_JPRB,2.8073E+02_JPRB,1.9464E+02_JPRB,1.5283E+02_JPRB,1.7876E+02_JPRB/)
11038
KBO( :, 2,47,16) = (/&
11039
6
 & 4.8479E+02_JPRB,3.6362E+02_JPRB,2.4253E+02_JPRB,1.5990E+02_JPRB,1.6413E+02_JPRB/)
11040
KBO( :, 3,47,16) = (/&
11041
6
 & 6.0294E+02_JPRB,4.5221E+02_JPRB,3.0147E+02_JPRB,1.7328E+02_JPRB,1.5134E+02_JPRB/)
11042
KBO( :, 4,47,16) = (/&
11043
6
 & 7.2591E+02_JPRB,5.4443E+02_JPRB,3.6295E+02_JPRB,1.9215E+02_JPRB,1.4020E+02_JPRB/)
11044
KBO( :, 5,47,16) = (/&
11045
6
 & 8.5037E+02_JPRB,6.3778E+02_JPRB,4.2518E+02_JPRB,2.1607E+02_JPRB,1.3023E+02_JPRB/)
11046
KBO( :, 1,48,16) = (/&
11047
6
 & 3.3349E+02_JPRB,2.5014E+02_JPRB,1.7970E+02_JPRB,1.5302E+02_JPRB,1.8591E+02_JPRB/)
11048
KBO( :, 2,48,16) = (/&
11049
6
 & 4.4002E+02_JPRB,3.3004E+02_JPRB,2.2195E+02_JPRB,1.5666E+02_JPRB,1.7030E+02_JPRB/)
11050
KBO( :, 3,48,16) = (/&
11051
6
 & 5.5563E+02_JPRB,4.1673E+02_JPRB,2.7783E+02_JPRB,1.6752E+02_JPRB,1.5672E+02_JPRB/)
11052
KBO( :, 4,48,16) = (/&
11053
6
 & 6.7724E+02_JPRB,5.0793E+02_JPRB,3.3862E+02_JPRB,1.8443E+02_JPRB,1.4489E+02_JPRB/)
11054
KBO( :, 5,48,16) = (/&
11055
6
 & 8.0113E+02_JPRB,6.0085E+02_JPRB,4.0056E+02_JPRB,2.0627E+02_JPRB,1.3444E+02_JPRB/)
11056
KBO( :, 1,49,16) = (/&
11057
6
 & 2.9450E+02_JPRB,2.2091E+02_JPRB,1.6633E+02_JPRB,1.5392E+02_JPRB,1.9354E+02_JPRB/)
11058
KBO( :, 2,49,16) = (/&
11059
6
 & 3.9655E+02_JPRB,2.9743E+02_JPRB,2.0370E+02_JPRB,1.5444E+02_JPRB,1.7673E+02_JPRB/)
11060
KBO( :, 3,49,16) = (/&
11061
6
 & 5.0897E+02_JPRB,3.8174E+02_JPRB,2.5452E+02_JPRB,1.6274E+02_JPRB,1.6236E+02_JPRB/)
11062
KBO( :, 4,49,16) = (/&
11063
6
 & 6.2857E+02_JPRB,4.7143E+02_JPRB,3.1428E+02_JPRB,1.7731E+02_JPRB,1.4974E+02_JPRB/)
11064
KBO( :, 5,49,16) = (/&
11065
6
 & 7.5222E+02_JPRB,5.6417E+02_JPRB,3.7611E+02_JPRB,1.9706E+02_JPRB,1.3876E+02_JPRB/)
11066
KBO( :, 1,50,16) = (/&
11067
6
 & 2.5985E+02_JPRB,1.9491E+02_JPRB,1.5586E+02_JPRB,1.5616E+02_JPRB,2.0113E+02_JPRB/)
11068
KBO( :, 2,50,16) = (/&
11069
6
 & 3.5704E+02_JPRB,2.6780E+02_JPRB,1.8851E+02_JPRB,1.5379E+02_JPRB,1.8310E+02_JPRB/)
11070
KBO( :, 3,50,16) = (/&
11071
6
 & 4.6618E+02_JPRB,3.4965E+02_JPRB,2.3374E+02_JPRB,1.5907E+02_JPRB,1.6786E+02_JPRB/)
11072
KBO( :, 4,50,16) = (/&
11073
6
 & 5.8341E+02_JPRB,4.3757E+02_JPRB,2.9172E+02_JPRB,1.7138E+02_JPRB,1.5459E+02_JPRB/)
11074
KBO( :, 5,50,16) = (/&
11075
6
 & 7.0619E+02_JPRB,5.2964E+02_JPRB,3.5310E+02_JPRB,1.8927E+02_JPRB,1.4300E+02_JPRB/)
11076
KBO( :, 1,51,16) = (/&
11077
6
 & 2.2810E+02_JPRB,1.7111E+02_JPRB,1.4781E+02_JPRB,1.5986E+02_JPRB,2.0899E+02_JPRB/)
11078
KBO( :, 2,51,16) = (/&
11079
6
 & 3.2034E+02_JPRB,2.4028E+02_JPRB,1.7546E+02_JPRB,1.5410E+02_JPRB,1.8970E+02_JPRB/)
11080
KBO( :, 3,51,16) = (/&
11081
6
 & 4.2561E+02_JPRB,3.1923E+02_JPRB,2.1599E+02_JPRB,1.5649E+02_JPRB,1.7346E+02_JPRB/)
11082
KBO( :, 4,51,16) = (/&
11083
6
 & 5.4039E+02_JPRB,4.0531E+02_JPRB,2.7023E+02_JPRB,1.6638E+02_JPRB,1.5946E+02_JPRB/)
11084
KBO( :, 5,51,16) = (/&
11085
6
 & 6.6162E+02_JPRB,4.9621E+02_JPRB,3.3081E+02_JPRB,1.8245E+02_JPRB,1.4725E+02_JPRB/)
11086
KBO( :, 1,52,16) = (/&
11087
6
 & 1.9828E+02_JPRB,1.4993E+02_JPRB,1.4119E+02_JPRB,1.6436E+02_JPRB,2.1740E+02_JPRB/)
11088
KBO( :, 2,52,16) = (/&
11089
6
 & 2.8540E+02_JPRB,2.1407E+02_JPRB,1.6382E+02_JPRB,1.5520E+02_JPRB,1.9665E+02_JPRB/)
11090
KBO( :, 3,52,16) = (/&
11091
6
 & 3.8626E+02_JPRB,2.8971E+02_JPRB,1.9981E+02_JPRB,1.5468E+02_JPRB,1.7935E+02_JPRB/)
11092
KBO( :, 4,52,16) = (/&
11093
6
 & 4.9804E+02_JPRB,3.7355E+02_JPRB,2.4908E+02_JPRB,1.6225E+02_JPRB,1.6458E+02_JPRB/)
11094
KBO( :, 5,52,16) = (/&
11095
6
 & 6.1718E+02_JPRB,4.6289E+02_JPRB,3.0859E+02_JPRB,1.7607E+02_JPRB,1.5168E+02_JPRB/)
11096
KBO( :, 1,53,16) = (/&
11097
6
 & 1.7053E+02_JPRB,1.3271E+02_JPRB,1.3636E+02_JPRB,1.6986E+02_JPRB,2.2630E+02_JPRB/)
11098
KBO( :, 2,53,16) = (/&
11099
6
 & 2.5204E+02_JPRB,1.8906E+02_JPRB,1.5417E+02_JPRB,1.5767E+02_JPRB,2.0404E+02_JPRB/)
11100
KBO( :, 3,53,16) = (/&
11101
6
 & 3.4819E+02_JPRB,2.6116E+02_JPRB,1.8555E+02_JPRB,1.5442E+02_JPRB,1.8552E+02_JPRB/)
11102
KBO( :, 4,53,16) = (/&
11103
6
 & 4.5652E+02_JPRB,3.4241E+02_JPRB,2.2942E+02_JPRB,1.5882E+02_JPRB,1.6992E+02_JPRB/)
11104
KBO( :, 5,53,16) = (/&
11105
6
 & 5.7327E+02_JPRB,4.2996E+02_JPRB,2.8665E+02_JPRB,1.7045E+02_JPRB,1.5636E+02_JPRB/)
11106
KBO( :, 1,54,16) = (/&
11107
6
 & 1.4705E+02_JPRB,1.1956E+02_JPRB,1.3416E+02_JPRB,1.7624E+02_JPRB,2.3498E+02_JPRB/)
11108
KBO( :, 2,54,16) = (/&
11109
6
 & 2.2318E+02_JPRB,1.6747E+02_JPRB,1.4694E+02_JPRB,1.6122E+02_JPRB,2.1126E+02_JPRB/)
11110
KBO( :, 3,54,16) = (/&
11111
6
 & 3.1471E+02_JPRB,2.3606E+02_JPRB,1.7373E+02_JPRB,1.5475E+02_JPRB,1.9160E+02_JPRB/)
11112
KBO( :, 4,54,16) = (/&
11113
6
 & 4.1929E+02_JPRB,3.1449E+02_JPRB,2.1344E+02_JPRB,1.5657E+02_JPRB,1.7506E+02_JPRB/)
11114
KBO( :, 5,54,16) = (/&
11115
6
 & 5.3373E+02_JPRB,4.0031E+02_JPRB,2.6690E+02_JPRB,1.6597E+02_JPRB,1.6083E+02_JPRB/)
11116
KBO( :, 1,55,16) = (/&
11117
6
 & 1.2631E+02_JPRB,1.0869E+02_JPRB,1.3316E+02_JPRB,1.8286E+02_JPRB,2.4381E+02_JPRB/)
11118
KBO( :, 2,55,16) = (/&
11119
6
 & 1.9709E+02_JPRB,1.4921E+02_JPRB,1.4131E+02_JPRB,1.6522E+02_JPRB,2.1865E+02_JPRB/)
11120
KBO( :, 3,55,16) = (/&
11121
6
 & 2.8395E+02_JPRB,2.1299E+02_JPRB,1.6360E+02_JPRB,1.5579E+02_JPRB,1.9769E+02_JPRB/)
11122
KBO( :, 4,55,16) = (/&
11123
6
 & 3.8466E+02_JPRB,2.8852E+02_JPRB,1.9931E+02_JPRB,1.5501E+02_JPRB,1.8019E+02_JPRB/)
11124
KBO( :, 5,55,16) = (/&
11125
6
 & 4.9642E+02_JPRB,3.7233E+02_JPRB,2.4828E+02_JPRB,1.6238E+02_JPRB,1.6531E+02_JPRB/)
11126
KBO( :, 1,56,16) = (/&
11127
6
 & 1.0745E+02_JPRB,1.0001E+02_JPRB,1.3351E+02_JPRB,1.8985E+02_JPRB,2.5313E+02_JPRB/)
11128
KBO( :, 2,56,16) = (/&
11129
6
 & 1.7263E+02_JPRB,1.3401E+02_JPRB,1.3702E+02_JPRB,1.6999E+02_JPRB,2.2638E+02_JPRB/)
11130
KBO( :, 3,56,16) = (/&
11131
6
 & 2.5461E+02_JPRB,1.9098E+02_JPRB,1.5506E+02_JPRB,1.5788E+02_JPRB,2.0410E+02_JPRB/)
11132
KBO( :, 4,56,16) = (/&
11133
6
 & 3.5127E+02_JPRB,2.6347E+02_JPRB,1.8679E+02_JPRB,1.5477E+02_JPRB,1.8556E+02_JPRB/)
11134
KBO( :, 5,56,16) = (/&
11135
6
 & 4.5985E+02_JPRB,3.4491E+02_JPRB,2.3096E+02_JPRB,1.5935E+02_JPRB,1.6993E+02_JPRB/)
11136
KBO( :, 1,57,16) = (/&
11137
6
 & 9.0369E+01_JPRB,9.3013E+01_JPRB,1.3545E+02_JPRB,1.9732E+02_JPRB,2.6309E+02_JPRB/)
11138
KBO( :, 2,57,16) = (/&
11139
6
 & 1.4993E+02_JPRB,1.2125E+02_JPRB,1.3471E+02_JPRB,1.7593E+02_JPRB,2.3457E+02_JPRB/)
11140
KBO( :, 3,57,16) = (/&
11141
6
 & 2.2676E+02_JPRB,1.7012E+02_JPRB,1.4804E+02_JPRB,1.6118E+02_JPRB,2.1092E+02_JPRB/)
11142
KBO( :, 4,57,16) = (/&
11143
6
 & 3.1896E+02_JPRB,2.3925E+02_JPRB,1.7532E+02_JPRB,1.5501E+02_JPRB,1.9130E+02_JPRB/)
11144
KBO( :, 5,57,16) = (/&
11145
6
 & 4.2411E+02_JPRB,3.1810E+02_JPRB,2.1552E+02_JPRB,1.5708E+02_JPRB,1.7479E+02_JPRB/)
11146
KBO( :, 1,58,16) = (/&
11147
6
 & 7.5798E+01_JPRB,8.7968E+01_JPRB,1.3839E+02_JPRB,2.0486E+02_JPRB,2.7315E+02_JPRB/)
11148
KBO( :, 2,58,16) = (/&
11149
6
 & 1.3002E+02_JPRB,1.1067E+02_JPRB,1.3357E+02_JPRB,1.8211E+02_JPRB,2.4282E+02_JPRB/)
11150
KBO( :, 3,58,16) = (/&
11151
6
 & 2.0177E+02_JPRB,1.5234E+02_JPRB,1.4243E+02_JPRB,1.6481E+02_JPRB,2.1780E+02_JPRB/)
11152
KBO( :, 4,58,16) = (/&
11153
6
 & 2.8967E+02_JPRB,2.1728E+02_JPRB,1.6554E+02_JPRB,1.5580E+02_JPRB,1.9696E+02_JPRB/)
11154
KBO( :, 5,58,16) = (/&
11155
6
 & 3.9118E+02_JPRB,2.9340E+02_JPRB,2.0194E+02_JPRB,1.5548E+02_JPRB,1.7957E+02_JPRB/)
11156
KBO( :, 1,59,16) = (/&
11157
6
 & 7.0427E+01_JPRB,8.6420E+01_JPRB,1.3992E+02_JPRB,2.0810E+02_JPRB,2.7747E+02_JPRB/)
11158
KBO( :, 2,59,16) = (/&
11159
6
 & 1.2257E+02_JPRB,1.0699E+02_JPRB,1.3342E+02_JPRB,1.8471E+02_JPRB,2.4629E+02_JPRB/)
11160
KBO( :, 3,59,16) = (/&
11161
6
 & 1.9225E+02_JPRB,1.4609E+02_JPRB,1.4061E+02_JPRB,1.6649E+02_JPRB,2.2067E+02_JPRB/)
11162
KBO( :, 4,59,16) = (/&
11163
6
 & 2.7820E+02_JPRB,2.0868E+02_JPRB,1.6196E+02_JPRB,1.5644E+02_JPRB,1.9936E+02_JPRB/)
11164
KBO( :, 5,59,16) = (/&
11165
6
 & 3.7829E+02_JPRB,2.8373E+02_JPRB,1.9693E+02_JPRB,1.5516E+02_JPRB,1.8158E+02_JPRB/)
11166
11167
!     The array SELFREFO contains the coefficient of the water vapor
11168
!     self-continuum (including the energy term).  The first index
11169
!     refers to temperature in 7.2 degree increments.  For instance,
11170
!     JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8,
11171
!     etc.  The second index runs over the g-channel (1 to 16).
11172
11173
SELFREFO( :, 1) = (/&
11174
 & 1.27664E-01_JPRB, 1.09296E-01_JPRB, 9.35703E-02_JPRB, 8.01075E-02_JPRB, 6.85818E-02_JPRB,&
11175
11
 & 5.87143E-02_JPRB, 5.02666E-02_JPRB, 4.30343E-02_JPRB, 3.68426E-02_JPRB, 3.15417E-02_JPRB/)
11176
SELFREFO( :, 2) = (/&
11177
 & 1.39620E-01_JPRB, 1.20381E-01_JPRB, 1.03793E-01_JPRB, 8.94908E-02_JPRB, 7.71595E-02_JPRB,&
11178
11
 & 6.65273E-02_JPRB, 5.73601E-02_JPRB, 4.94562E-02_JPRB, 4.26414E-02_JPRB, 3.67656E-02_JPRB/)
11179
SELFREFO( :, 3) = (/&
11180
 & 1.42628E-01_JPRB, 1.23043E-01_JPRB, 1.06148E-01_JPRB, 9.15726E-02_JPRB, 7.89986E-02_JPRB,&
11181
11
 & 6.81511E-02_JPRB, 5.87931E-02_JPRB, 5.07201E-02_JPRB, 4.37556E-02_JPRB, 3.77474E-02_JPRB/)
11182
SELFREFO( :, 4) = (/&
11183
 & 1.53569E-01_JPRB, 1.33143E-01_JPRB, 1.15435E-01_JPRB, 1.00082E-01_JPRB, 8.67706E-02_JPRB,&
11184
11
 & 7.52299E-02_JPRB, 6.52241E-02_JPRB, 5.65491E-02_JPRB, 4.90279E-02_JPRB, 4.25070E-02_JPRB/)
11185
SELFREFO( :, 5) = (/&
11186
 & 1.70491E-01_JPRB, 1.46448E-01_JPRB, 1.25796E-01_JPRB, 1.08056E-01_JPRB, 9.28182E-02_JPRB,&
11187
11
 & 7.97290E-02_JPRB, 6.84856E-02_JPRB, 5.88278E-02_JPRB, 5.05319E-02_JPRB, 4.34059E-02_JPRB/)
11188
SELFREFO( :, 6) = (/&
11189
 & 1.76394E-01_JPRB, 1.51432E-01_JPRB, 1.30003E-01_JPRB, 1.11606E-01_JPRB, 9.58127E-02_JPRB,&
11190
11
 & 8.22542E-02_JPRB, 7.06144E-02_JPRB, 6.06217E-02_JPRB, 5.20431E-02_JPRB, 4.46784E-02_JPRB/)
11191
SELFREFO( :, 7) = (/&
11192
 & 1.85706E-01_JPRB, 1.59172E-01_JPRB, 1.36429E-01_JPRB, 1.16936E-01_JPRB, 1.00228E-01_JPRB,&
11193
11
 & 8.59068E-02_JPRB, 7.36322E-02_JPRB, 6.31114E-02_JPRB, 5.40939E-02_JPRB, 4.63648E-02_JPRB/)
11194
SELFREFO( :, 8) = (/&
11195
 & 1.88647E-01_JPRB, 1.61657E-01_JPRB, 1.38529E-01_JPRB, 1.18710E-01_JPRB, 1.01726E-01_JPRB,&
11196
11
 & 8.71722E-02_JPRB, 7.47005E-02_JPRB, 6.40132E-02_JPRB, 5.48549E-02_JPRB, 4.70068E-02_JPRB/)
11197
SELFREFO( :, 9) = (/&
11198
 & 1.90074E-01_JPRB, 1.62793E-01_JPRB, 1.39427E-01_JPRB, 1.19415E-01_JPRB, 1.02275E-01_JPRB,&
11199
11
 & 8.75959E-02_JPRB, 7.50233E-02_JPRB, 6.42552E-02_JPRB, 5.50327E-02_JPRB, 4.71338E-02_JPRB/)
11200
SELFREFO( :,10) = (/&
11201
 & 1.94769E-01_JPRB, 1.66338E-01_JPRB, 1.42057E-01_JPRB, 1.21320E-01_JPRB, 1.03611E-01_JPRB,&
11202
11
 & 8.84863E-02_JPRB, 7.55696E-02_JPRB, 6.45384E-02_JPRB, 5.51175E-02_JPRB, 4.70718E-02_JPRB/)
11203
SELFREFO( :,11) = (/&
11204
 & 1.90624E-01_JPRB, 1.64229E-01_JPRB, 1.41488E-01_JPRB, 1.21896E-01_JPRB, 1.05017E-01_JPRB,&
11205
11
 & 9.04757E-02_JPRB, 7.79475E-02_JPRB, 6.71542E-02_JPRB, 5.78554E-02_JPRB, 4.98442E-02_JPRB/)
11206
SELFREFO( :,12) = (/&
11207
 & 1.90502E-01_JPRB, 1.64025E-01_JPRB, 1.41228E-01_JPRB, 1.21599E-01_JPRB, 1.04699E-01_JPRB,&
11208
11
 & 9.01472E-02_JPRB, 7.76181E-02_JPRB, 6.68303E-02_JPRB, 5.75419E-02_JPRB, 4.95444E-02_JPRB/)
11209
11210
1
IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART37',1,ZHOOK_HANDLE)
11211
1
END SUBROUTINE PART37
11212
11213
11214
1
SUBROUTINE PART38
11215
11216
REAL(KIND=JPRB) :: ZHOOK_HANDLE
11217
1
IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART38',0,ZHOOK_HANDLE)
11218
11219
11220
SELFREFO( :,13) = (/&
11221
 & 1.86786E-01_JPRB, 1.61636E-01_JPRB, 1.39872E-01_JPRB, 1.21039E-01_JPRB, 1.04741E-01_JPRB,&
11222
11
 & 9.06380E-02_JPRB, 7.84338E-02_JPRB, 6.78729E-02_JPRB, 5.87340E-02_JPRB, 5.08256E-02_JPRB/)
11223
SELFREFO( :,14) = (/&
11224
 & 1.99149E-01_JPRB, 1.71475E-01_JPRB, 1.47646E-01_JPRB, 1.27129E-01_JPRB, 1.09462E-01_JPRB,&
11225
11
 & 9.42512E-02_JPRB, 8.11538E-02_JPRB, 6.98764E-02_JPRB, 6.01662E-02_JPRB, 5.18053E-02_JPRB/)
11226
SELFREFO( :,15) = (/&
11227
 & 2.02676E-01_JPRB, 1.73701E-01_JPRB, 1.48869E-01_JPRB, 1.27587E-01_JPRB, 1.09347E-01_JPRB,&
11228
11
 & 9.37144E-02_JPRB, 8.03170E-02_JPRB, 6.88348E-02_JPRB, 5.89941E-02_JPRB, 5.05603E-02_JPRB/)
11229
SELFREFO( :,16) = (/&
11230
 & 1.99865E-01_JPRB, 1.72699E-01_JPRB, 1.49225E-01_JPRB, 1.28942E-01_JPRB, 1.11416E-01_JPRB,&
11231
11
 & 9.62721E-02_JPRB, 8.31866E-02_JPRB, 7.18797E-02_JPRB, 6.21097E-02_JPRB, 5.36676E-02_JPRB/)
11232
11233
FRACREFAO( :, 1) = (/&
11234
 !     From P = 387.6 mb.
11235
 & 0.13966499_JPRB,0.14138900_JPRB,0.13763399_JPRB,0.13076700_JPRB,&
11236
 & 0.12299100_JPRB,0.10747700_JPRB,0.08942000_JPRB,0.06769200_JPRB,&
11237
 & 0.04587610_JPRB,0.00501173_JPRB,0.00415809_JPRB,0.00328398_JPRB,&
11238
17
 & 0.00240015_JPRB,0.00156222_JPRB,0.00059104_JPRB,0.00008323_JPRB/)
11239
FRACREFAO( :, 2) = (/&
11240
 & 0.13958199_JPRB,0.14332899_JPRB,0.13785399_JPRB,0.13205400_JPRB,&
11241
 & 0.12199700_JPRB,0.10679600_JPRB,0.08861080_JPRB,0.06712320_JPRB,&
11242
 & 0.04556030_JPRB,0.00500863_JPRB,0.00416315_JPRB,0.00328629_JPRB,&
11243
17
 & 0.00240023_JPRB,0.00156220_JPRB,0.00059104_JPRB,0.00008323_JPRB/)
11244
FRACREFAO( :, 3) = (/&
11245
 & 0.13907100_JPRB,0.14250501_JPRB,0.13889600_JPRB,0.13297300_JPRB,&
11246
 & 0.12218700_JPRB,0.10683800_JPRB,0.08839260_JPRB,0.06677310_JPRB,&
11247
 & 0.04538570_JPRB,0.00495402_JPRB,0.00409863_JPRB,0.00328219_JPRB,&
11248
17
 & 0.00240805_JPRB,0.00156266_JPRB,0.00059104_JPRB,0.00008323_JPRB/)
11249
FRACREFAO( :, 4) = (/&
11250
 & 0.13867700_JPRB,0.14190100_JPRB,0.13932300_JPRB,0.13327099_JPRB,&
11251
 & 0.12280800_JPRB,0.10692500_JPRB,0.08844510_JPRB,0.06658510_JPRB,&
11252
 & 0.04519340_JPRB,0.00492276_JPRB,0.00408832_JPRB,0.00323856_JPRB,&
11253
17
 & 0.00239289_JPRB,0.00155698_JPRB,0.00059104_JPRB,0.00008323_JPRB/)
11254
FRACREFAO( :, 5) = (/&
11255
 & 0.13845000_JPRB,0.14158800_JPRB,0.13929300_JPRB,0.13295600_JPRB,&
11256
 & 0.12348300_JPRB,0.10736700_JPRB,0.08859480_JPRB,0.06650610_JPRB,&
11257
 & 0.04498230_JPRB,0.00491335_JPRB,0.00406968_JPRB,0.00322901_JPRB,&
11258
17
 & 0.00234666_JPRB,0.00155235_JPRB,0.00058813_JPRB,0.00008323_JPRB/)
11259
FRACREFAO( :, 6) = (/&
11260
 & 0.13837101_JPRB,0.14113200_JPRB,0.13930500_JPRB,0.13283101_JPRB,&
11261
 & 0.12349200_JPRB,0.10796400_JPRB,0.08890490_JPRB,0.06646480_JPRB,&
11262
 & 0.04485990_JPRB,0.00489554_JPRB,0.00405264_JPRB,0.00320313_JPRB,&
11263
17
 & 0.00234742_JPRB,0.00151159_JPRB,0.00058438_JPRB,0.00008253_JPRB/)
11264
FRACREFAO( :, 7) = (/&
11265
 & 0.13834500_JPRB,0.14093500_JPRB,0.13896500_JPRB,0.13262001_JPRB,&
11266
 & 0.12326900_JPRB,0.10828900_JPRB,0.08950050_JPRB,0.06674610_JPRB,&
11267
 & 0.04476560_JPRB,0.00489624_JPRB,0.00400962_JPRB,0.00317423_JPRB,&
11268
17
 & 0.00233479_JPRB,0.00148249_JPRB,0.00058590_JPRB,0.00008253_JPRB/)
11269
FRACREFAO( :, 8) = (/&
11270
 & 0.13831300_JPRB,0.14069000_JPRB,0.13871400_JPRB,0.13247600_JPRB,&
11271
 & 0.12251400_JPRB,0.10831300_JPRB,0.08977090_JPRB,0.06776920_JPRB,&
11272
 & 0.04498390_JPRB,0.00484111_JPRB,0.00398948_JPRB,0.00316069_JPRB,&
11273
17
 & 0.00229741_JPRB,0.00150104_JPRB,0.00058608_JPRB,0.00008253_JPRB/)
11274
FRACREFAO( :, 9) = (/&
11275
 & 0.14027201_JPRB,0.14420401_JPRB,0.14215700_JPRB,0.13446601_JPRB,&
11276
 & 0.12303700_JPRB,0.10596100_JPRB,0.08650370_JPRB,0.06409570_JPRB,&
11277
 & 0.04312310_JPRB,0.00471110_JPRB,0.00393954_JPRB,0.00310850_JPRB,&
11278
17
 & 0.00229588_JPRB,0.00146366_JPRB,0.00058194_JPRB,0.00008253_JPRB/)
11279
11280
FRACREFBO( :, 1) = (/&
11281
 !     From P = 1.17 mb.
11282
 & 0.14339100_JPRB,0.14358699_JPRB,0.13935301_JPRB,0.13306700_JPRB,&
11283
 & 0.12135700_JPRB,0.10590600_JPRB,0.08688240_JPRB,0.06553220_JPRB,&
11284
 & 0.04446740_JPRB,0.00483580_JPRB,0.00399413_JPRB,0.00316225_JPRB,&
11285
17
 & 0.00233007_JPRB,0.00149135_JPRB,0.00056246_JPRB,0.00008059_JPRB/)
11286
FRACREFBO( :, 2) = (/&
11287
 & 0.14330500_JPRB,0.14430299_JPRB,0.14053699_JPRB,0.13355300_JPRB,&
11288
 & 0.12151200_JPRB,0.10529100_JPRB,0.08627630_JPRB,0.06505230_JPRB,&
11289
 & 0.04385850_JPRB,0.00476555_JPRB,0.00395010_JPRB,0.00313878_JPRB,&
11290
17
 & 0.00232273_JPRB,0.00149354_JPRB,0.00056246_JPRB,0.00008059_JPRB/)
11291
FRACREFBO( :, 3) = (/&
11292
 & 0.14328399_JPRB,0.14442700_JPRB,0.14078601_JPRB,0.13390100_JPRB,&
11293
 & 0.12132600_JPRB,0.10510600_JPRB,0.08613660_JPRB,0.06494630_JPRB,&
11294
 & 0.04381310_JPRB,0.00475378_JPRB,0.00394166_JPRB,0.00313076_JPRB,&
11295
17
 & 0.00231235_JPRB,0.00149159_JPRB,0.00056301_JPRB,0.00008059_JPRB/)
11296
FRACREFBO( :, 4) = (/&
11297
 & 0.14326900_JPRB,0.14453100_JPRB,0.14114200_JPRB,0.13397101_JPRB,&
11298
 & 0.12127200_JPRB,0.10493400_JPRB,0.08601380_JPRB,0.06483360_JPRB,&
11299
 & 0.04378900_JPRB,0.00474655_JPRB,0.00393549_JPRB,0.00312583_JPRB,&
11300
17
 & 0.00230686_JPRB,0.00148433_JPRB,0.00056502_JPRB,0.00008059_JPRB/)
11301
FRACREFBO( :, 5) = (/&
11302
 & 0.14328900_JPRB,0.14532700_JPRB,0.14179000_JPRB,0.13384600_JPRB,&
11303
 & 0.12093700_JPRB,0.10461500_JPRB,0.08573010_JPRB,0.06461340_JPRB,&
11304
 & 0.04366570_JPRB,0.00473087_JPRB,0.00392539_JPRB,0.00311238_JPRB,&
11305
17
 & 0.00229865_JPRB,0.00147572_JPRB,0.00056517_JPRB,0.00007939_JPRB/)
11306
11307
1
IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART38',1,ZHOOK_HANDLE)
11308
1
END SUBROUTINE PART38
11309
11310
11311
END SUBROUTINE RRTM_KGB5