LMDZ
rrtm_kgb8.F90
Go to the documentation of this file.
1 !OCL SCALAR
2 #ifdef RS6K
3 @process nooptimize
4 #endif
5 !pgi$r opt=0
6 SUBROUTINE rrtm_kgb8
7 
8 ! Originally by Eli J. Mlawer, Atmospheric & Environmental Research.
9 ! BAND 8: 1080-1180 cm-1 (low (i.e.>~300mb) - H2O; high - O3)
10 ! Reformatted for F90 by JJMorcrette, ECMWF
11 ! R. Elkhatib 12-10-2005 Split for faster and more robust compilation.
12 
13 ! ------------------------------------------------------------------
14 
15 USE parkind1 ,ONLY : jprb
16 USE yomhook ,ONLY : lhook, dr_hook
17 
18 USE yoerrto8 , ONLY : kao ,kbo ,selfrefo ,fracrefao ,&
19  & fracrefbo, cfc12o ,cfc22adjo ,absco2ao ,absco2bo ,&
20  & absn2oao , absn2obo
21 USE yoerrta8 , ONLY : h2oref ,n2oref ,o3ref
22 
23 ! ------------------------------------------------------------------
24 
25 IMPLICIT NONE
26 REAL(KIND=JPRB) :: ZHOOK_HANDLE
27 
28 IF (lhook) CALL dr_hook('RRTM_KGB8',0,zhook_handle)
29 
30 CALL part1
31 CALL part2
32 CALL part3
33 CALL part4
34 CALL part5
35 CALL part6
36 CALL part7
37 CALL part8
38 
39 IF (lhook) CALL dr_hook('RRTM_KGB8',1,zhook_handle)
40 
41 ! -----------------------------------------------------------------
42 
43 CONTAINS
44 
45 
46 SUBROUTINE part1
47 
48 REAL(KIND=JPRB) :: ZHOOK_HANDLE
49 IF (lhook) CALL dr_hook('RRTM_KGB8:PART1',0,zhook_handle)
50 
51 
52 fracrefao( :) = (/&
53  ! From P = 1053.6 mb.
54  & 0.15309700_jprb,0.15450300_jprb,0.14458799_jprb,0.13098200_jprb,&
55  & 0.11817900_jprb,0.09953490_jprb,0.08132080_jprb,0.06139960_jprb,&
56  & 0.04132010_jprb,0.00446788_jprb,0.00372533_jprb,0.00294053_jprb,&
57  & 0.00211371_jprb,0.00128122_jprb,0.00048050_jprb,0.00006759_jprb/)
58 
59 fracrefbo( :) = (/&
60  ! From P = 28.9 mb.
61  & 0.14105400_jprb,0.14728899_jprb,0.14264800_jprb,0.13331699_jprb,&
62  & 0.12034100_jprb,0.10467000_jprb,0.08574980_jprb,0.06469390_jprb,&
63  & 0.04394640_jprb,0.00481284_jprb,0.00397375_jprb,0.00315006_jprb,&
64  & 0.00228636_jprb,0.00144606_jprb,0.00054604_jprb,0.00007697_jprb/)
65 
66 cfc12o( :) = (/&
67  & 85.4027_jprb, 89.4696_jprb, 74.0959_jprb, 67.7480_jprb,&
68  & 61.2444_jprb, 59.9073_jprb, 60.8296_jprb, 63.0998_jprb,&
69  & 59.6110_jprb, 64.0735_jprb, 57.2622_jprb, 58.9721_jprb,&
70  & 43.5505_jprb, 26.1192_jprb, 32.7023_jprb, 32.8667_jprb/)
71 
72 ! Original CFC22 is multiplied by 1.485 to account for the 780-850 cm-1
73 ! and 1290-1335 cm-1 bands.
74 cfc22adjo( :) = (/&
75  & 135.335_jprb, 89.6642_jprb, 76.2375_jprb, 65.9748_jprb,&
76  & 63.1164_jprb, 60.2935_jprb, 64.0299_jprb, 75.4264_jprb,&
77  & 51.3018_jprb, 7.07911_jprb, 5.86928_jprb, 0.398693_jprb,&
78  & 2.82885_jprb, 9.12751_jprb, 6.28271_jprb, 0.0_jprb/)
79 
80 absco2ao( :) = (/&
81  & 1.11233e-05_jprb, 3.92400e-05_jprb, 6.62059e-05_jprb, 8.51687e-05_jprb,&
82  & 7.79035e-05_jprb, 1.34058e-04_jprb, 2.82553e-04_jprb, 5.41741e-04_jprb,&
83  & 1.47029e-05_jprb, 2.34982e-05_jprb, 6.91094e-08_jprb, 8.48917e-08_jprb,&
84  & 6.58783e-08_jprb, 4.64849e-08_jprb, 3.62742e-08_jprb, 3.62742e-08_jprb/)
85 
86 absco2bo( :) = (/&
87  & 4.10977e-09_jprb, 5.65200e-08_jprb, 1.70800e-07_jprb, 4.16840e-07_jprb,&
88  & 9.53684e-07_jprb, 2.36468e-06_jprb, 7.29502e-06_jprb, 4.93883e-05_jprb, &
89  & 5.10440e-04_jprb, 9.75248e-04_jprb, 1.36495e-03_jprb, 2.40451e-03_jprb,&
90  & 4.50277e-03_jprb, 2.24486e-02_jprb, 4.06756e-02_jprb, 2.17447e-10_jprb/)
91 
92 absn2oao( :) = (/&
93  & 1.28527e-02_jprb,5.28651e-02_jprb,1.01668e-01_jprb,1.57224e-01_jprb,&
94  & 2.76947e-01_jprb,4.93048e-01_jprb,6.71387e-01_jprb,3.48809e-01_jprb,&
95  & 4.19840e-01_jprb,3.13558e-01_jprb,2.44432e-01_jprb,2.05108e-01_jprb,&
96  & 1.21423e-01_jprb,1.22158e-01_jprb,1.49702e-01_jprb,1.47799e-01_jprb/)
97 
98 absn2obo( : ) = (/&
99  & 3.15864e-03_jprb,4.87347e-03_jprb,8.63235e-03_jprb,2.16053e-02_jprb,&
100  & 3.63699e-02_jprb,7.89149e-02_jprb,3.53807e-01_jprb,1.27140e-00_jprb,&
101  & 2.31464e-00_jprb,7.75834e-02_jprb,5.15063e-02_jprb,4.07059e-02_jprb,&
102  & 5.91947e-02_jprb,5.83546e-02_jprb,3.12716e-01_jprb,1.47456e-01_jprb/)
103 
104 h2oref( : ) = (/&
105  & 1.87599e-02_jprb,1.22233e-02_jprb,5.89086e-03_jprb,2.76753e-03_jprb,1.40651e-03_jprb, &
106  & 7.59698e-04_jprb,3.88758e-04_jprb,1.65422e-04_jprb,3.71895e-05_jprb,7.47648e-06_jprb, &
107  & 4.30818e-06_jprb,3.33194e-06_jprb,3.20393e-06_jprb,3.16186e-06_jprb,3.25235e-06_jprb, &
108  & 3.42258e-06_jprb,3.62884e-06_jprb,3.91482e-06_jprb,4.14875e-06_jprb,4.30810e-06_jprb,&
109  & 4.44204e-06_jprb,4.57783e-06_jprb,4.70865e-06_jprb,4.79432e-06_jprb,4.86971e-06_jprb, &
110  & 4.92603e-06_jprb,4.96688e-06_jprb,4.99628e-06_jprb,5.05266e-06_jprb,5.12658e-06_jprb, &
111  & 5.25028e-06_jprb,5.35708e-06_jprb,5.45085e-06_jprb,5.48304e-06_jprb,5.50000e-06_jprb, &
112  & 5.50000e-06_jprb,5.45359e-06_jprb,5.40468e-06_jprb,5.35576e-06_jprb,5.25327e-06_jprb,&
113  & 5.14362e-06_jprb,5.03396e-06_jprb,4.87662e-06_jprb,4.69787e-06_jprb,4.51911e-06_jprb, &
114  & 4.33600e-06_jprb,4.14416e-06_jprb,3.95232e-06_jprb,3.76048e-06_jprb,3.57217e-06_jprb, &
115  & 3.38549e-06_jprb,3.19881e-06_jprb,3.01212e-06_jprb,2.82621e-06_jprb,2.64068e-06_jprb, &
116  & 2.45515e-06_jprb,2.26962e-06_jprb,2.08659e-06_jprb,1.93029e-06_jprb/)
117 
118 n2oref( : ) = (/&
119  & 3.20000e-07_jprb,3.20000e-07_jprb,3.20000e-07_jprb,3.20000e-07_jprb,3.20000e-07_jprb,&
120  & 3.19652e-07_jprb,3.15324e-07_jprb,3.03830e-07_jprb,2.94221e-07_jprb,2.84953e-07_jprb,&
121  & 2.76714e-07_jprb,2.64709e-07_jprb,2.42847e-07_jprb,2.09547e-07_jprb,1.71945e-07_jprb,&
122  & 1.37491e-07_jprb,1.13319e-07_jprb,1.00354e-07_jprb,9.12812e-08_jprb,8.54633e-08_jprb,&
123  & 8.03631e-08_jprb,7.33718e-08_jprb,6.59754e-08_jprb,5.60386e-08_jprb,4.70901e-08_jprb,&
124  & 3.99774e-08_jprb,3.29786e-08_jprb,2.60642e-08_jprb,2.10663e-08_jprb,1.65918e-08_jprb,&
125  & 1.30167e-08_jprb,1.00900e-08_jprb,7.62490e-09_jprb,6.11592e-09_jprb,4.66725e-09_jprb,&
126  & 3.28574e-09_jprb,2.84838e-09_jprb,2.46198e-09_jprb,2.07557e-09_jprb,1.85507e-09_jprb,&
127  & 1.65675e-09_jprb,1.45843e-09_jprb,1.31948e-09_jprb,1.20716e-09_jprb,1.09485e-09_jprb,&
128  & 9.97803e-10_jprb,9.31260e-10_jprb,8.64721e-10_jprb,7.98181e-10_jprb,7.51380e-10_jprb,&
129  & 7.13670e-10_jprb,6.75960e-10_jprb,6.38250e-10_jprb,6.09811e-10_jprb,5.85998e-10_jprb,&
130  & 5.62185e-10_jprb,5.38371e-10_jprb,5.15183e-10_jprb,4.98660e-10_jprb/)
131 
132 o3ref( : ) = (/&
133  & 3.01700e-08_jprb,3.47254e-08_jprb,4.24769e-08_jprb,5.27592e-08_jprb,6.69439e-08_jprb,&
134  & 8.71295e-08_jprb,1.13911e-07_jprb,1.56771e-07_jprb,2.17878e-07_jprb,3.24430e-07_jprb,&
135  & 4.65942e-07_jprb,5.68057e-07_jprb,6.96065e-07_jprb,1.11863e-06_jprb,1.76175e-06_jprb,&
136  & 2.32689e-06_jprb,2.95769e-06_jprb,3.65930e-06_jprb,4.59503e-06_jprb,5.31891e-06_jprb,&
137  & 5.96179e-06_jprb,6.51133e-06_jprb,7.06350e-06_jprb,7.69169e-06_jprb,8.25771e-06_jprb,&
138  & 8.70824e-06_jprb,8.83245e-06_jprb,8.71486e-06_jprb,8.09434e-06_jprb,7.33071e-06_jprb,&
139  & 6.31014e-06_jprb,5.36717e-06_jprb,4.48289e-06_jprb,3.83913e-06_jprb,3.28270e-06_jprb,&
140  & 2.82351e-06_jprb,2.49061e-06_jprb,2.16453e-06_jprb,1.83845e-06_jprb,1.66182e-06_jprb,&
141  & 1.50517e-06_jprb,1.34852e-06_jprb,1.19718e-06_jprb,1.04822e-06_jprb,8.99264e-07_jprb,&
142  & 7.63432e-07_jprb,6.53806e-07_jprb,5.44186e-07_jprb,4.34564e-07_jprb,3.64210e-07_jprb,&
143  & 3.11938e-07_jprb,2.59667e-07_jprb,2.07395e-07_jprb,1.91456e-07_jprb,1.93639e-07_jprb,&
144  & 1.95821e-07_jprb,1.98004e-07_jprb,2.06442e-07_jprb,2.81546e-07_jprb/)
145 
146 ! ------------------------------------------------------------------
147 
148 ! The array KAO contains absorption coefs at the 16 chosen g-values
149 ! for a range of pressure levels > ~100mb and temperatures. The first
150 ! index in the array, JT, which runs from 1 to 5, corresponds to
151 ! different temperatures. More specifically, JT = 3 means that the
152 ! data are for the corresponding TREF for this pressure level,
153 ! JT = 2 refers to the temperatureTREF-15, JT = 1 is for TREF-30,
154 ! JT = 4 is for TREF+15, and JT = 5 is for TREF+30. The second
155 ! index, JP, runs from 1 to 13 and refers to the corresponding
156 ! pressure level in PREF (e.g. JP = 1 is for a pressure of 1053.63 mb).
157 ! The third index, IG, goes from 1 to 16, and tells us which
158 ! g-interval the absorption coefficients are for.
159 ! The array KA contains absorption coef5s at the 16 chosen g-values
160 ! for a range of pressure levels > ~100mb and temperatures. The first
161 ! index in the array, JT, which runs from 1 to 5, corresponds to
162 ! different temperatures. More specifically, JT = 3 means that the
163 ! data are for the cooresponding TREF for this pressure level,
164 ! JT = 2 refers to the temperature
165 ! TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5
166 ! is for TREF+30. The second index, JP, runs from 1 to 13 and refers
167 ! to the corresponding pressure level in PREF (e.g. JP = 1 is for a
168 ! pressure of 1053.63 mb). The third index, IG, goes from 1 to 16,
169 ! and tells us which "g-channel" the absorption coefficients are for.
170 
171 kao( :, 1, 1) = (/&
172  & 2.1306e-05_jprb,2.1950e-05_jprb,2.2884e-05_jprb,2.6732e-05_jprb,3.2377e-05_jprb/)
173 kao( :, 2, 1) = (/&
174  & 1.6906e-05_jprb,1.6458e-05_jprb,1.8409e-05_jprb,2.2144e-05_jprb,2.7164e-05_jprb/)
175 kao( :, 3, 1) = (/&
176  & 1.2302e-05_jprb,1.3298e-05_jprb,1.6211e-05_jprb,2.0006e-05_jprb,2.4357e-05_jprb/)
177 kao( :, 4, 1) = (/&
178  & 1.0886e-05_jprb,1.3249e-05_jprb,1.6382e-05_jprb,2.0127e-05_jprb,2.4322e-05_jprb/)
179 kao( :, 5, 1) = (/&
180  & 1.3888e-05_jprb,1.6517e-05_jprb,1.9596e-05_jprb,2.3121e-05_jprb,2.7167e-05_jprb/)
181 kao( :, 6, 1) = (/&
182  & 2.0087e-05_jprb,2.2948e-05_jprb,2.6312e-05_jprb,3.0073e-05_jprb,3.4185e-05_jprb/)
183 kao( :, 7, 1) = (/&
184  & 3.4572e-05_jprb,3.7732e-05_jprb,4.1567e-05_jprb,4.5943e-05_jprb,5.0800e-05_jprb/)
185 kao( :, 1, 2) = (/&
186  & 2.9087e-05_jprb,2.7497e-05_jprb,3.3334e-05_jprb,4.2723e-05_jprb,5.3596e-05_jprb/)
187 kao( :, 2, 2) = (/&
188  & 1.9679e-05_jprb,2.2356e-05_jprb,2.8322e-05_jprb,3.6379e-05_jprb,4.5664e-05_jprb/)
189 kao( :, 3, 2) = (/&
190  & 1.6538e-05_jprb,2.0860e-05_jprb,2.6606e-05_jprb,3.3787e-05_jprb,4.2303e-05_jprb/)
191 kao( :, 4, 2) = (/&
192  & 1.8682e-05_jprb,2.3553e-05_jprb,2.9503e-05_jprb,3.6225e-05_jprb,4.3839e-05_jprb/)
193 kao( :, 5, 2) = (/&
194  & 2.4894e-05_jprb,3.0126e-05_jprb,3.6642e-05_jprb,4.4225e-05_jprb,5.2245e-05_jprb/)
195 kao( :, 6, 2) = (/&
196  & 3.8317e-05_jprb,4.4010e-05_jprb,5.1169e-05_jprb,5.9798e-05_jprb,6.8990e-05_jprb/)
197 kao( :, 7, 2) = (/&
198  & 6.8186e-05_jprb,7.5558e-05_jprb,8.3877e-05_jprb,9.3681e-05_jprb,1.0480e-04_jprb/)
199 kao( :, 1, 3) = (/&
200  & 3.2064e-05_jprb,3.8954e-05_jprb,5.4094e-05_jprb,6.8453e-05_jprb,8.4647e-05_jprb/)
201 kao( :, 2, 3) = (/&
202  & 2.6037e-05_jprb,3.4049e-05_jprb,4.5537e-05_jprb,5.7651e-05_jprb,7.1488e-05_jprb/)
203 kao( :, 3, 3) = (/&
204  & 2.4129e-05_jprb,3.2489e-05_jprb,4.2214e-05_jprb,5.3481e-05_jprb,6.6486e-05_jprb/)
205 kao( :, 4, 3) = (/&
206  & 2.8484e-05_jprb,3.6015e-05_jprb,4.5013e-05_jprb,5.6076e-05_jprb,6.9168e-05_jprb/)
207 kao( :, 5, 3) = (/&
208  & 3.7982e-05_jprb,4.5941e-05_jprb,5.5480e-05_jprb,6.6761e-05_jprb,8.0178e-05_jprb/)
209 kao( :, 6, 3) = (/&
210  & 5.8486e-05_jprb,6.7090e-05_jprb,7.7118e-05_jprb,8.8876e-05_jprb,1.0336e-04_jprb/)
211 kao( :, 7, 3) = (/&
212  & 1.0488e-04_jprb,1.1540e-04_jprb,1.2822e-04_jprb,1.4297e-04_jprb,1.5988e-04_jprb/)
213 kao( :, 1, 4) = (/&
214  & 4.3432e-05_jprb,6.9197e-05_jprb,8.9433e-05_jprb,1.1259e-04_jprb,1.3904e-04_jprb/)
215 kao( :, 2, 4) = (/&
216  & 4.1381e-05_jprb,5.9002e-05_jprb,7.4659e-05_jprb,9.2971e-05_jprb,1.1449e-04_jprb/)
217 kao( :, 3, 4) = (/&
218  & 4.1382e-05_jprb,5.3805e-05_jprb,6.7661e-05_jprb,8.4186e-05_jprb,1.0415e-04_jprb/)
219 kao( :, 4, 4) = (/&
220  & 4.4469e-05_jprb,5.5300e-05_jprb,6.8920e-05_jprb,8.5387e-05_jprb,1.0542e-04_jprb/)
221 kao( :, 5, 4) = (/&
222  & 5.7483e-05_jprb,6.8364e-05_jprb,8.1508e-05_jprb,9.7560e-05_jprb,1.1744e-04_jprb/)
223 kao( :, 6, 4) = (/&
224  & 8.5034e-05_jprb,9.7144e-05_jprb,1.1137e-04_jprb,1.2836e-04_jprb,1.4879e-04_jprb/)
225 kao( :, 7, 4) = (/&
226  & 1.4995e-04_jprb,1.6384e-04_jprb,1.8060e-04_jprb,2.0120e-04_jprb,2.2497e-04_jprb/)
227 kao( :, 1, 5) = (/&
228  & 8.9308e-05_jprb,1.2026e-04_jprb,1.5456e-04_jprb,1.9463e-04_jprb,2.4183e-04_jprb/)
229 kao( :, 2, 5) = (/&
230  & 7.5125e-05_jprb,9.9141e-05_jprb,1.2691e-04_jprb,1.6010e-04_jprb,1.9928e-04_jprb/)
231 kao( :, 3, 5) = (/&
232  & 7.0124e-05_jprb,8.9385e-05_jprb,1.1201e-04_jprb,1.3854e-04_jprb,1.6993e-04_jprb/)
233 kao( :, 4, 5) = (/&
234  & 7.3552e-05_jprb,9.0337e-05_jprb,1.1055e-04_jprb,1.3609e-04_jprb,1.6764e-04_jprb/)
235 kao( :, 5, 5) = (/&
236  & 8.7943e-05_jprb,1.0388e-04_jprb,1.2401e-04_jprb,1.4993e-04_jprb,1.8142e-04_jprb/)
237 kao( :, 6, 5) = (/&
238  & 1.2136e-04_jprb,1.3842e-04_jprb,1.6040e-04_jprb,1.8635e-04_jprb,2.1779e-04_jprb/)
239 kao( :, 7, 5) = (/&
240  & 2.0763e-04_jprb,2.2758e-04_jprb,2.5254e-04_jprb,2.8218e-04_jprb,3.1966e-04_jprb/)
241 kao( :, 1, 6) = (/&
242  & 1.6837e-04_jprb,2.2104e-04_jprb,2.8135e-04_jprb,3.5251e-04_jprb,4.3572e-04_jprb/)
243 kao( :, 2, 6) = (/&
244  & 1.3574e-04_jprb,1.7723e-04_jprb,2.2754e-04_jprb,2.8744e-04_jprb,3.5879e-04_jprb/)
245 kao( :, 3, 6) = (/&
246  & 1.2293e-04_jprb,1.5476e-04_jprb,1.9352e-04_jprb,2.4145e-04_jprb,2.9987e-04_jprb/)
247 kao( :, 4, 6) = (/&
248  & 1.2596e-04_jprb,1.5619e-04_jprb,1.9248e-04_jprb,2.3477e-04_jprb,2.8394e-04_jprb/)
249 kao( :, 5, 6) = (/&
250  & 1.4080e-04_jprb,1.6980e-04_jprb,2.0518e-04_jprb,2.4743e-04_jprb,2.9907e-04_jprb/)
251 kao( :, 6, 6) = (/&
252  & 1.8164e-04_jprb,2.0870e-04_jprb,2.4256e-04_jprb,2.8705e-04_jprb,3.4263e-04_jprb/)
253 kao( :, 7, 6) = (/&
254  & 2.9186e-04_jprb,3.2585e-04_jprb,3.6846e-04_jprb,4.2036e-04_jprb,4.8155e-04_jprb/)
255 kao( :, 1, 7) = (/&
256  & 3.8706e-04_jprb,4.9892e-04_jprb,6.2866e-04_jprb,7.7583e-04_jprb,9.4184e-04_jprb/)
257 kao( :, 2, 7) = (/&
258  & 2.9924e-04_jprb,3.8940e-04_jprb,4.9426e-04_jprb,6.1428e-04_jprb,7.5278e-04_jprb/)
259 kao( :, 3, 7) = (/&
260  & 2.3352e-04_jprb,3.0489e-04_jprb,3.9204e-04_jprb,4.9500e-04_jprb,6.1630e-04_jprb/)
261 kao( :, 4, 7) = (/&
262  & 2.3587e-04_jprb,2.9262e-04_jprb,3.5911e-04_jprb,4.3910e-04_jprb,5.3846e-04_jprb/)
263 kao( :, 5, 7) = (/&
264  & 2.6327e-04_jprb,3.2005e-04_jprb,3.8792e-04_jprb,4.6619e-04_jprb,5.5730e-04_jprb/)
265 kao( :, 6, 7) = (/&
266  & 3.1398e-04_jprb,3.7118e-04_jprb,4.4079e-04_jprb,5.2291e-04_jprb,6.1919e-04_jprb/)
267 kao( :, 7, 7) = (/&
268  & 4.6137e-04_jprb,5.1993e-04_jprb,5.9097e-04_jprb,6.8096e-04_jprb,7.9254e-04_jprb/)
269 kao( :, 1, 8) = (/&
270  & 1.1958e-03_jprb,1.5395e-03_jprb,1.9263e-03_jprb,2.3597e-03_jprb,2.8416e-03_jprb/)
271 kao( :, 2, 8) = (/&
272  & 9.2007e-04_jprb,1.1952e-03_jprb,1.5105e-03_jprb,1.8694e-03_jprb,2.2724e-03_jprb/)
273 kao( :, 3, 8) = (/&
274  & 6.7202e-04_jprb,8.8335e-04_jprb,1.1326e-03_jprb,1.4229e-03_jprb,1.7568e-03_jprb/)
275 kao( :, 4, 8) = (/&
276  & 5.3231e-04_jprb,6.9102e-04_jprb,8.9625e-04_jprb,1.1508e-03_jprb,1.4534e-03_jprb/)
277 kao( :, 5, 8) = (/&
278  & 5.8927e-04_jprb,7.1310e-04_jprb,8.6254e-04_jprb,1.0581e-03_jprb,1.3073e-03_jprb/)
279 kao( :, 6, 8) = (/&
280  & 7.1594e-04_jprb,8.4919e-04_jprb,1.0061e-03_jprb,1.1903e-03_jprb,1.4091e-03_jprb/)
281 kao( :, 7, 8) = (/&
282  & 9.6332e-04_jprb,1.1098e-03_jprb,1.2830e-03_jprb,1.4872e-03_jprb,1.7311e-03_jprb/)
283 kao( :, 1, 9) = (/&
284  & 4.1727e-03_jprb,5.4973e-03_jprb,7.0377e-03_jprb,8.7943e-03_jprb,1.0731e-02_jprb/)
285 kao( :, 2, 9) = (/&
286  & 3.6273e-03_jprb,4.8260e-03_jprb,6.2243e-03_jprb,7.8057e-03_jprb,9.5531e-03_jprb/)
287 kao( :, 3, 9) = (/&
288  & 2.9023e-03_jprb,3.9253e-03_jprb,5.1247e-03_jprb,6.4834e-03_jprb,7.9956e-03_jprb/)
289 kao( :, 4, 9) = (/&
290  & 2.2487e-03_jprb,3.0840e-03_jprb,4.0791e-03_jprb,5.2274e-03_jprb,6.5148e-03_jprb/)
291 kao( :, 5, 9) = (/&
292  & 1.7798e-03_jprb,2.4327e-03_jprb,3.2625e-03_jprb,4.2482e-03_jprb,5.3864e-03_jprb/)
293 kao( :, 6, 9) = (/&
294  & 1.8001e-03_jprb,2.2379e-03_jprb,2.8537e-03_jprb,3.6632e-03_jprb,4.6821e-03_jprb/)
295 kao( :, 7, 9) = (/&
296  & 2.5147e-03_jprb,2.9224e-03_jprb,3.4442e-03_jprb,4.0760e-03_jprb,4.9201e-03_jprb/)
297 kao( :, 1,10) = (/&
298  & 8.6270e-03_jprb,1.1144e-02_jprb,1.4435e-02_jprb,1.8416e-02_jprb,2.3138e-02_jprb/)
299 kao( :, 2,10) = (/&
300  & 8.0326e-03_jprb,1.0542e-02_jprb,1.3830e-02_jprb,1.7772e-02_jprb,2.2459e-02_jprb/)
301 kao( :, 3,10) = (/&
302  & 6.9631e-03_jprb,9.2657e-03_jprb,1.2368e-02_jprb,1.6195e-02_jprb,2.0590e-02_jprb/)
303 kao( :, 4,10) = (/&
304  & 5.6928e-03_jprb,7.8298e-03_jprb,1.0719e-02_jprb,1.4129e-02_jprb,1.8068e-02_jprb/)
305 kao( :, 5,10) = (/&
306  & 4.6297e-03_jprb,6.4732e-03_jprb,8.9852e-03_jprb,1.2076e-02_jprb,1.5694e-02_jprb/)
307 kao( :, 6,10) = (/&
308  & 3.6660e-03_jprb,5.2377e-03_jprb,7.3525e-03_jprb,9.9709e-03_jprb,1.3092e-02_jprb/)
309 kao( :, 7,10) = (/&
310  & 4.5886e-03_jprb,5.1723e-03_jprb,6.2981e-03_jprb,8.7864e-03_jprb,1.2005e-02_jprb/)
311 kao( :, 1,11) = (/&
312  & 1.1588e-02_jprb,1.5525e-02_jprb,1.9979e-02_jprb,2.5226e-02_jprb,3.1634e-02_jprb/)
313 kao( :, 2,11) = (/&
314  & 1.0684e-02_jprb,1.4204e-02_jprb,1.8270e-02_jprb,2.3355e-02_jprb,2.9653e-02_jprb/)
315 kao( :, 3,11) = (/&
316  & 9.3411e-03_jprb,1.2473e-02_jprb,1.6164e-02_jprb,2.0880e-02_jprb,2.6874e-02_jprb/)
317 kao( :, 4,11) = (/&
318  & 7.9944e-03_jprb,1.0851e-02_jprb,1.4275e-02_jprb,1.8869e-02_jprb,2.4580e-02_jprb/)
319 kao( :, 5,11) = (/&
320  & 6.6337e-03_jprb,9.2604e-03_jprb,1.2443e-02_jprb,1.6670e-02_jprb,2.2008e-02_jprb/)
321 kao( :, 6,11) = (/&
322  & 5.3432e-03_jprb,7.6067e-03_jprb,1.0484e-02_jprb,1.4403e-02_jprb,1.9210e-02_jprb/)
323 kao( :, 7,11) = (/&
324  & 5.2399e-03_jprb,6.3294e-03_jprb,8.7446e-03_jprb,1.2290e-02_jprb,1.7005e-02_jprb/)
325 kao( :, 1,12) = (/&
326  & 1.8590e-02_jprb,2.3597e-02_jprb,2.9609e-02_jprb,3.6637e-02_jprb,4.4785e-02_jprb/)
327 kao( :, 2,12) = (/&
328  & 1.5975e-02_jprb,2.1048e-02_jprb,2.7310e-02_jprb,3.4824e-02_jprb,4.3138e-02_jprb/)
329 kao( :, 3,12) = (/&
330  & 1.3265e-02_jprb,1.8239e-02_jprb,2.4452e-02_jprb,3.1517e-02_jprb,3.9669e-02_jprb/)
331 kao( :, 4,12) = (/&
332  & 1.1138e-02_jprb,1.5596e-02_jprb,2.1071e-02_jprb,2.7401e-02_jprb,3.4980e-02_jprb/)
333 kao( :, 5,12) = (/&
334  & 9.5074e-03_jprb,1.3466e-02_jprb,1.8276e-02_jprb,2.3939e-02_jprb,3.0805e-02_jprb/)
335 kao( :, 6,12) = (/&
336  & 7.9557e-03_jprb,1.1512e-02_jprb,1.5826e-02_jprb,2.0932e-02_jprb,2.7410e-02_jprb/)
337 kao( :, 7,12) = (/&
338  & 6.5226e-03_jprb,9.6301e-03_jprb,1.3559e-02_jprb,1.8314e-02_jprb,2.4403e-02_jprb/)
339 kao( :, 1,13) = (/&
340  & 3.3867e-02_jprb,4.3721e-02_jprb,5.4904e-02_jprb,6.6992e-02_jprb,7.9770e-02_jprb/)
341 
342 IF (lhook) CALL dr_hook('RRTM_KGB8:PART1',1,zhook_handle)
343 END SUBROUTINE part1
344 
345 
346 SUBROUTINE part2
347 
348 REAL(KIND=JPRB) :: ZHOOK_HANDLE
349 IF (lhook) CALL dr_hook('RRTM_KGB8:PART2',0,zhook_handle)
350 
351 
352 kao( :, 2,13) = (/&
353  & 3.1901e-02_jprb,4.1423e-02_jprb,5.1954e-02_jprb,6.3307e-02_jprb,7.6026e-02_jprb/)
354 kao( :, 3,13) = (/&
355  & 2.7060e-02_jprb,3.5456e-02_jprb,4.4891e-02_jprb,5.5833e-02_jprb,6.8298e-02_jprb/)
356 kao( :, 4,13) = (/&
357  & 2.1596e-02_jprb,2.8962e-02_jprb,3.7686e-02_jprb,4.8052e-02_jprb,6.0217e-02_jprb/)
358 kao( :, 5,13) = (/&
359  & 1.6874e-02_jprb,2.3280e-02_jprb,3.1365e-02_jprb,4.1278e-02_jprb,5.3126e-02_jprb/)
360 kao( :, 6,13) = (/&
361  & 1.3063e-02_jprb,1.8582e-02_jprb,2.5843e-02_jprb,3.5011e-02_jprb,4.6230e-02_jprb/)
362 kao( :, 7,13) = (/&
363  & 1.0425e-02_jprb,1.5209e-02_jprb,2.1684e-02_jprb,3.0071e-02_jprb,4.0394e-02_jprb/)
364 kao( :, 1,14) = (/&
365  & 6.7724e-02_jprb,8.4655e-02_jprb,1.0308e-01_jprb,1.2311e-01_jprb,1.4477e-01_jprb/)
366 kao( :, 2,14) = (/&
367  & 6.5011e-02_jprb,8.2552e-02_jprb,1.0230e-01_jprb,1.2414e-01_jprb,1.4787e-01_jprb/)
368 kao( :, 3,14) = (/&
369  & 5.8480e-02_jprb,7.6209e-02_jprb,9.6519e-02_jprb,1.1921e-01_jprb,1.4411e-01_jprb/)
370 kao( :, 4,14) = (/&
371  & 5.0538e-02_jprb,6.7706e-02_jprb,8.7706e-02_jprb,1.1039e-01_jprb,1.3557e-01_jprb/)
372 kao( :, 5,14) = (/&
373  & 4.2513e-02_jprb,5.8604e-02_jprb,7.7718e-02_jprb,9.9786e-02_jprb,1.2457e-01_jprb/)
374 kao( :, 6,14) = (/&
375  & 3.4330e-02_jprb,4.8876e-02_jprb,6.6577e-02_jprb,8.7405e-02_jprb,1.1118e-01_jprb/)
376 kao( :, 7,14) = (/&
377  & 2.6895e-02_jprb,3.9673e-02_jprb,5.5652e-02_jprb,7.4888e-02_jprb,9.7567e-02_jprb/)
378 kao( :, 1,15) = (/&
379  & 1.0185e-01_jprb,1.3012e-01_jprb,1.6176e-01_jprb,1.9624e-01_jprb,2.3332e-01_jprb/)
380 kao( :, 2,15) = (/&
381  & 1.1155e-01_jprb,1.4413e-01_jprb,1.8079e-01_jprb,2.2100e-01_jprb,2.6440e-01_jprb/)
382 kao( :, 3,15) = (/&
383  & 1.1383e-01_jprb,1.4981e-01_jprb,1.9079e-01_jprb,2.3617e-01_jprb,2.8542e-01_jprb/)
384 kao( :, 4,15) = (/&
385  & 1.1063e-01_jprb,1.4879e-01_jprb,1.9288e-01_jprb,2.4229e-01_jprb,2.9650e-01_jprb/)
386 kao( :, 5,15) = (/&
387  & 1.0438e-01_jprb,1.4376e-01_jprb,1.8985e-01_jprb,2.4227e-01_jprb,3.0021e-01_jprb/)
388 kao( :, 6,15) = (/&
389  & 9.4497e-02_jprb,1.3374e-01_jprb,1.8056e-01_jprb,2.3453e-01_jprb,2.9486e-01_jprb/)
390 kao( :, 7,15) = (/&
391  & 8.2957e-02_jprb,1.2094e-01_jprb,1.6723e-01_jprb,2.2140e-01_jprb,2.8274e-01_jprb/)
392 kao( :, 1,16) = (/&
393  & 1.0659e-01_jprb,1.3667e-01_jprb,1.7042e-01_jprb,2.0748e-01_jprb,2.4752e-01_jprb/)
394 kao( :, 2,16) = (/&
395  & 1.1936e-01_jprb,1.5500e-01_jprb,1.9536e-01_jprb,2.4009e-01_jprb,2.8872e-01_jprb/)
396 kao( :, 3,16) = (/&
397  & 1.2557e-01_jprb,1.6646e-01_jprb,2.1346e-01_jprb,2.6622e-01_jprb,3.2416e-01_jprb/)
398 kao( :, 4,16) = (/&
399  & 1.2678e-01_jprb,1.7224e-01_jprb,2.2548e-01_jprb,2.8607e-01_jprb,3.5364e-01_jprb/)
400 kao( :, 5,16) = (/&
401  & 1.2544e-01_jprb,1.7513e-01_jprb,2.3441e-01_jprb,3.0312e-01_jprb,3.8068e-01_jprb/)
402 kao( :, 6,16) = (/&
403  & 1.2054e-01_jprb,1.7357e-01_jprb,2.3849e-01_jprb,3.1499e-01_jprb,4.0276e-01_jprb/)
404 kao( :, 7,16) = (/&
405  & 1.1373e-01_jprb,1.6957e-01_jprb,2.3956e-01_jprb,3.2393e-01_jprb,4.2231e-01_jprb/)
406 
407 ! The array KBO contains absorption coefs at the 16 chosen g-values
408 ! for a range of pressure levels < ~100mb and temperatures. The first
409 ! index in the array, JT, which runs from 1 to 5, corresponds to
410 ! different temperatures. More specifically, JT = 3 means that the
411 ! data are for the reference temperature TREF for this pressure
412 ! level, JT = 2 refers to the temperature TREF-15, JT = 1 is for
413 ! TREF-30, JT = 4 is for TREF+15, and JT = 5 is for TREF+30.
414 ! The second index, JP, runs from 13 to 59 and refers to the JPth
415 ! reference pressure level (see taumol.f for the value of these
416 ! pressure levels in mb). The third index, IG, goes from 1 to 16,
417 ! and tells us which g-interval the absorption coefficients are for.
418 
419 kbo( :, 7, 1) = (/&
420  & 1.5344e-01_jprb,1.5367e-01_jprb,1.5941e-01_jprb,1.6925e-01_jprb,1.8219e-01_jprb/)
421 kbo( :, 8, 1) = (/&
422  & 8.8789e-02_jprb,9.2028e-02_jprb,9.6207e-02_jprb,1.0152e-01_jprb,1.0774e-01_jprb/)
423 kbo( :, 9, 1) = (/&
424  & 6.1726e-02_jprb,6.3618e-02_jprb,6.5404e-02_jprb,6.7402e-02_jprb,6.9517e-02_jprb/)
425 kbo( :,10, 1) = (/&
426  & 4.5887e-02_jprb,4.6735e-02_jprb,4.7381e-02_jprb,4.7984e-02_jprb,4.8665e-02_jprb/)
427 kbo( :,11, 1) = (/&
428  & 3.4925e-02_jprb,3.5331e-02_jprb,3.5614e-02_jprb,3.5819e-02_jprb,3.6029e-02_jprb/)
429 kbo( :,12, 1) = (/&
430  & 2.7314e-02_jprb,2.7563e-02_jprb,2.7715e-02_jprb,2.7787e-02_jprb,2.7858e-02_jprb/)
431 kbo( :,13, 1) = (/&
432  & 2.1065e-02_jprb,2.1225e-02_jprb,2.1307e-02_jprb,2.1318e-02_jprb,2.1310e-02_jprb/)
433 kbo( :,14, 1) = (/&
434  & 1.4917e-02_jprb,1.5002e-02_jprb,1.5042e-02_jprb,1.5027e-02_jprb,1.4972e-02_jprb/)
435 kbo( :,15, 1) = (/&
436  & 1.0550e-02_jprb,1.0630e-02_jprb,1.0661e-02_jprb,1.0642e-02_jprb,1.0580e-02_jprb/)
437 kbo( :,16, 1) = (/&
438  & 7.8366e-03_jprb,7.9085e-03_jprb,7.9349e-03_jprb,7.9229e-03_jprb,7.8769e-03_jprb/)
439 kbo( :,17, 1) = (/&
440  & 5.9572e-03_jprb,6.0203e-03_jprb,6.0443e-03_jprb,6.0374e-03_jprb,6.0008e-03_jprb/)
441 kbo( :,18, 1) = (/&
442  & 4.6349e-03_jprb,4.6854e-03_jprb,4.7034e-03_jprb,4.6981e-03_jprb,4.6669e-03_jprb/)
443 kbo( :,19, 1) = (/&
444  & 3.6293e-03_jprb,3.6694e-03_jprb,3.6836e-03_jprb,3.6780e-03_jprb,3.6512e-03_jprb/)
445 kbo( :,20, 1) = (/&
446  & 2.8991e-03_jprb,2.9305e-03_jprb,2.9407e-03_jprb,2.9341e-03_jprb,2.9107e-03_jprb/)
447 kbo( :,21, 1) = (/&
448  & 2.3312e-03_jprb,2.3555e-03_jprb,2.3622e-03_jprb,2.3550e-03_jprb,2.3344e-03_jprb/)
449 kbo( :,22, 1) = (/&
450  & 1.8792e-03_jprb,1.8968e-03_jprb,1.9000e-03_jprb,1.8924e-03_jprb,1.8741e-03_jprb/)
451 kbo( :,23, 1) = (/&
452  & 1.5156e-03_jprb,1.5280e-03_jprb,1.5291e-03_jprb,1.5212e-03_jprb,1.5056e-03_jprb/)
453 kbo( :,24, 1) = (/&
454  & 1.2179e-03_jprb,1.2265e-03_jprb,1.2264e-03_jprb,1.2189e-03_jprb,1.2054e-03_jprb/)
455 kbo( :,25, 1) = (/&
456  & 9.8120e-04_jprb,9.8697e-04_jprb,9.8592e-04_jprb,9.7898e-04_jprb,9.6753e-04_jprb/)
457 kbo( :,26, 1) = (/&
458  & 7.9366e-04_jprb,7.9724e-04_jprb,7.9535e-04_jprb,7.8897e-04_jprb,7.7900e-04_jprb/)
459 kbo( :,27, 1) = (/&
460  & 6.4346e-04_jprb,6.4543e-04_jprb,6.4311e-04_jprb,6.3737e-04_jprb,6.2874e-04_jprb/)
461 kbo( :,28, 1) = (/&
462  & 5.2197e-04_jprb,5.2286e-04_jprb,5.2043e-04_jprb,5.1528e-04_jprb,5.0784e-04_jprb/)
463 kbo( :,29, 1) = (/&
464  & 4.2576e-04_jprb,4.2585e-04_jprb,4.2341e-04_jprb,4.1882e-04_jprb,4.1242e-04_jprb/)
465 kbo( :,30, 1) = (/&
466  & 3.4748e-04_jprb,3.4709e-04_jprb,3.4471e-04_jprb,3.4067e-04_jprb,3.3521e-04_jprb/)
467 kbo( :,31, 1) = (/&
468  & 2.8441e-04_jprb,2.8375e-04_jprb,2.8150e-04_jprb,2.7801e-04_jprb,2.7335e-04_jprb/)
469 kbo( :,32, 1) = (/&
470  & 2.3282e-04_jprb,2.3200e-04_jprb,2.2995e-04_jprb,2.2696e-04_jprb,2.2295e-04_jprb/)
471 kbo( :,33, 1) = (/&
472  & 1.9062e-04_jprb,1.8973e-04_jprb,1.8792e-04_jprb,1.8531e-04_jprb,1.8184e-04_jprb/)
473 kbo( :,34, 1) = (/&
474  & 1.5614e-04_jprb,1.5526e-04_jprb,1.5366e-04_jprb,1.5137e-04_jprb,1.4839e-04_jprb/)
475 kbo( :,35, 1) = (/&
476  & 1.2772e-04_jprb,1.2697e-04_jprb,1.2561e-04_jprb,1.2363e-04_jprb,1.2119e-04_jprb/)
477 kbo( :,36, 1) = (/&
478  & 1.0427e-04_jprb,1.0367e-04_jprb,1.0254e-04_jprb,1.0093e-04_jprb,9.8988e-05_jprb/)
479 kbo( :,37, 1) = (/&
480  & 8.5618e-05_jprb,8.5197e-05_jprb,8.4329e-05_jprb,8.3067e-05_jprb,8.1529e-05_jprb/)
481 kbo( :,38, 1) = (/&
482  & 7.0355e-05_jprb,7.0067e-05_jprb,6.9409e-05_jprb,6.8426e-05_jprb,6.7223e-05_jprb/)
483 kbo( :,39, 1) = (/&
484  & 5.7837e-05_jprb,5.7651e-05_jprb,5.7166e-05_jprb,5.6411e-05_jprb,5.5474e-05_jprb/)
485 kbo( :,40, 1) = (/&
486  & 4.7471e-05_jprb,4.7392e-05_jprb,4.7060e-05_jprb,4.6496e-05_jprb,4.5776e-05_jprb/)
487 kbo( :,41, 1) = (/&
488  & 3.8945e-05_jprb,3.8946e-05_jprb,3.8735e-05_jprb,3.8320e-05_jprb,3.7771e-05_jprb/)
489 kbo( :,42, 1) = (/&
490  & 3.1942e-05_jprb,3.2000e-05_jprb,3.1880e-05_jprb,3.1585e-05_jprb,3.1172e-05_jprb/)
491 kbo( :,43, 1) = (/&
492  & 2.6212e-05_jprb,2.6319e-05_jprb,2.6272e-05_jprb,2.6076e-05_jprb,2.5773e-05_jprb/)
493 kbo( :,44, 1) = (/&
494  & 2.1513e-05_jprb,2.1656e-05_jprb,2.1665e-05_jprb,2.1549e-05_jprb,2.1335e-05_jprb/)
495 kbo( :,45, 1) = (/&
496  & 1.7662e-05_jprb,1.7828e-05_jprb,1.7877e-05_jprb,1.7820e-05_jprb,1.7676e-05_jprb/)
497 kbo( :,46, 1) = (/&
498  & 1.4497e-05_jprb,1.4675e-05_jprb,1.4757e-05_jprb,1.4745e-05_jprb,1.4651e-05_jprb/)
499 kbo( :,47, 1) = (/&
500  & 1.1877e-05_jprb,1.2067e-05_jprb,1.2171e-05_jprb,1.2193e-05_jprb,1.2145e-05_jprb/)
501 kbo( :,48, 1) = (/&
502  & 9.7397e-06_jprb,9.9314e-06_jprb,1.0047e-05_jprb,1.0098e-05_jprb,1.0083e-05_jprb/)
503 kbo( :,49, 1) = (/&
504  & 8.0031e-06_jprb,8.1919e-06_jprb,8.3161e-06_jprb,8.3842e-06_jprb,8.3974e-06_jprb/)
505 kbo( :,50, 1) = (/&
506  & 6.5533e-06_jprb,6.7351e-06_jprb,6.8590e-06_jprb,6.9358e-06_jprb,6.9657e-06_jprb/)
507 kbo( :,51, 1) = (/&
508  & 5.3534e-06_jprb,5.5271e-06_jprb,5.6449e-06_jprb,5.7254e-06_jprb,5.7657e-06_jprb/)
509 kbo( :,52, 1) = (/&
510  & 4.3815e-06_jprb,4.5440e-06_jprb,4.6552e-06_jprb,4.7359e-06_jprb,4.7826e-06_jprb/)
511 kbo( :,53, 1) = (/&
512  & 3.5983e-06_jprb,3.7484e-06_jprb,3.8526e-06_jprb,3.9323e-06_jprb,3.9834e-06_jprb/)
513 kbo( :,54, 1) = (/&
514  & 2.9135e-06_jprb,3.0488e-06_jprb,3.1449e-06_jprb,3.2176e-06_jprb,3.2676e-06_jprb/)
515 kbo( :,55, 1) = (/&
516  & 2.3344e-06_jprb,2.4540e-06_jprb,2.5433e-06_jprb,2.6072e-06_jprb,2.6532e-06_jprb/)
517 kbo( :,56, 1) = (/&
518  & 1.8674e-06_jprb,1.9725e-06_jprb,2.0540e-06_jprb,2.1112e-06_jprb,2.1532e-06_jprb/)
519 kbo( :,57, 1) = (/&
520  & 1.4909e-06_jprb,1.5832e-06_jprb,1.6559e-06_jprb,1.7087e-06_jprb,1.7463e-06_jprb/)
521 kbo( :,58, 1) = (/&
522  & 1.1855e-06_jprb,1.2659e-06_jprb,1.3298e-06_jprb,1.3781e-06_jprb,1.4118e-06_jprb/)
523 kbo( :,59, 1) = (/&
524  & 9.3006e-07_jprb,9.9739e-07_jprb,1.0501e-06_jprb,1.0906e-06_jprb,1.1193e-06_jprb/)
525 kbo( :, 7, 2) = (/&
526  & 2.6778e-01_jprb,2.8245e-01_jprb,3.0362e-01_jprb,3.3204e-01_jprb,3.6642e-01_jprb/)
527 kbo( :, 8, 2) = (/&
528  & 1.6981e-01_jprb,1.8043e-01_jprb,1.9307e-01_jprb,2.0690e-01_jprb,2.2313e-01_jprb/)
529 kbo( :, 9, 2) = (/&
530  & 1.2053e-01_jprb,1.2497e-01_jprb,1.3056e-01_jprb,1.3643e-01_jprb,1.4282e-01_jprb/)
531 kbo( :,10, 2) = (/&
532  & 8.7626e-02_jprb,8.9514e-02_jprb,9.1744e-02_jprb,9.4317e-02_jprb,9.6890e-02_jprb/)
533 kbo( :,11, 2) = (/&
534  & 6.5833e-02_jprb,6.6899e-02_jprb,6.8102e-02_jprb,6.9485e-02_jprb,7.0886e-02_jprb/)
535 kbo( :,12, 2) = (/&
536  & 5.1441e-02_jprb,5.2186e-02_jprb,5.3006e-02_jprb,5.3843e-02_jprb,5.4676e-02_jprb/)
537 kbo( :,13, 2) = (/&
538  & 3.9685e-02_jprb,4.0210e-02_jprb,4.0730e-02_jprb,4.1271e-02_jprb,4.1791e-02_jprb/)
539 kbo( :,14, 2) = (/&
540  & 2.8508e-02_jprb,2.8827e-02_jprb,2.9089e-02_jprb,2.9311e-02_jprb,2.9533e-02_jprb/)
541 kbo( :,15, 2) = (/&
542  & 2.0989e-02_jprb,2.1138e-02_jprb,2.1243e-02_jprb,2.1329e-02_jprb,2.1410e-02_jprb/)
543 kbo( :,16, 2) = (/&
544  & 1.6136e-02_jprb,1.6221e-02_jprb,1.6271e-02_jprb,1.6299e-02_jprb,1.6318e-02_jprb/)
545 kbo( :,17, 2) = (/&
546  & 1.2642e-02_jprb,1.2693e-02_jprb,1.2714e-02_jprb,1.2705e-02_jprb,1.2688e-02_jprb/)
547 kbo( :,18, 2) = (/&
548  & 1.0065e-02_jprb,1.0094e-02_jprb,1.0094e-02_jprb,1.0071e-02_jprb,1.0038e-02_jprb/)
549 kbo( :,19, 2) = (/&
550  & 8.0455e-03_jprb,8.0605e-03_jprb,8.0482e-03_jprb,8.0166e-03_jprb,7.9752e-03_jprb/)
551 kbo( :,20, 2) = (/&
552  & 6.5051e-03_jprb,6.5116e-03_jprb,6.4957e-03_jprb,6.4648e-03_jprb,6.4247e-03_jprb/)
553 kbo( :,21, 2) = (/&
554  & 5.2778e-03_jprb,5.2806e-03_jprb,5.2632e-03_jprb,5.2348e-03_jprb,5.1970e-03_jprb/)
555 kbo( :,22, 2) = (/&
556  & 4.2858e-03_jprb,4.2841e-03_jprb,4.2670e-03_jprb,4.2400e-03_jprb,4.2048e-03_jprb/)
557 kbo( :,23, 2) = (/&
558  & 3.4793e-03_jprb,3.4753e-03_jprb,3.4584e-03_jprb,3.4334e-03_jprb,3.4014e-03_jprb/)
559 kbo( :,24, 2) = (/&
560  & 2.8185e-03_jprb,2.8125e-03_jprb,2.7957e-03_jprb,2.7728e-03_jprb,2.7436e-03_jprb/)
561 kbo( :,25, 2) = (/&
562  & 2.2861e-03_jprb,2.2783e-03_jprb,2.2629e-03_jprb,2.2419e-03_jprb,2.2158e-03_jprb/)
563 kbo( :,26, 2) = (/&
564  & 1.8574e-03_jprb,1.8493e-03_jprb,1.8350e-03_jprb,1.8161e-03_jprb,1.7932e-03_jprb/)
565 kbo( :,27, 2) = (/&
566  & 1.5109e-03_jprb,1.5030e-03_jprb,1.4902e-03_jprb,1.4736e-03_jprb,1.4543e-03_jprb/)
567 kbo( :,28, 2) = (/&
568  & 1.2296e-03_jprb,1.2220e-03_jprb,1.2106e-03_jprb,1.1965e-03_jprb,1.1802e-03_jprb/)
569 kbo( :,29, 2) = (/&
570  & 1.0041e-03_jprb,9.9721e-04_jprb,9.8729e-04_jprb,9.7563e-04_jprb,9.6203e-04_jprb/)
571 kbo( :,30, 2) = (/&
572  & 8.2028e-04_jprb,8.1422e-04_jprb,8.0597e-04_jprb,7.9622e-04_jprb,7.8494e-04_jprb/)
573 kbo( :,31, 2) = (/&
574  & 6.7162e-04_jprb,6.6632e-04_jprb,6.5964e-04_jprb,6.5163e-04_jprb,6.4255e-04_jprb/)
575 kbo( :,32, 2) = (/&
576  & 5.5003e-04_jprb,5.4568e-04_jprb,5.4025e-04_jprb,5.3369e-04_jprb,5.2646e-04_jprb/)
577 kbo( :,33, 2) = (/&
578  & 4.5068e-04_jprb,4.4725e-04_jprb,4.4286e-04_jprb,4.3761e-04_jprb,4.3173e-04_jprb/)
579 kbo( :,34, 2) = (/&
580  & 3.6961e-04_jprb,3.6684e-04_jprb,3.6327e-04_jprb,3.5906e-04_jprb,3.5439e-04_jprb/)
581 kbo( :,35, 2) = (/&
582  & 3.0315e-04_jprb,3.0096e-04_jprb,2.9817e-04_jprb,2.9485e-04_jprb,2.9125e-04_jprb/)
583 kbo( :,36, 2) = (/&
584  & 2.4847e-04_jprb,2.4681e-04_jprb,2.4467e-04_jprb,2.4215e-04_jprb,2.3935e-04_jprb/)
585 kbo( :,37, 2) = (/&
586  & 2.0443e-04_jprb,2.0324e-04_jprb,2.0165e-04_jprb,1.9975e-04_jprb,1.9759e-04_jprb/)
587 kbo( :,38, 2) = (/&
588  & 1.6831e-04_jprb,1.6749e-04_jprb,1.6632e-04_jprb,1.6492e-04_jprb,1.6327e-04_jprb/)
589 kbo( :,39, 2) = (/&
590  & 1.3865e-04_jprb,1.3814e-04_jprb,1.3731e-04_jprb,1.3631e-04_jprb,1.3505e-04_jprb/)
591 kbo( :,40, 2) = (/&
592  & 1.1402e-04_jprb,1.1372e-04_jprb,1.1314e-04_jprb,1.1240e-04_jprb,1.1148e-04_jprb/)
593 kbo( :,41, 2) = (/&
594  & 9.3740e-05_jprb,9.3582e-05_jprb,9.3200e-05_jprb,9.2678e-05_jprb,9.2002e-05_jprb/)
595 kbo( :,42, 2) = (/&
596  & 7.7058e-05_jprb,7.7015e-05_jprb,7.6781e-05_jprb,7.6427e-05_jprb,7.5949e-05_jprb/)
597 kbo( :,43, 2) = (/&
598  & 6.3364e-05_jprb,6.3414e-05_jprb,6.3300e-05_jprb,6.3083e-05_jprb,6.2768e-05_jprb/)
599 kbo( :,44, 2) = (/&
600  & 5.2113e-05_jprb,5.2236e-05_jprb,5.2217e-05_jprb,5.2105e-05_jprb,5.1917e-05_jprb/)
601 kbo( :,45, 2) = (/&
602  & 4.2872e-05_jprb,4.3047e-05_jprb,4.3096e-05_jprb,4.3067e-05_jprb,4.2976e-05_jprb/)
603 kbo( :,46, 2) = (/&
604  & 3.5259e-05_jprb,3.5470e-05_jprb,3.5572e-05_jprb,3.5602e-05_jprb,3.5583e-05_jprb/)
605 kbo( :,47, 2) = (/&
606  & 2.8960e-05_jprb,2.9201e-05_jprb,2.9340e-05_jprb,2.9409e-05_jprb,2.9443e-05_jprb/)
607 kbo( :,48, 2) = (/&
608  & 2.3793e-05_jprb,2.4061e-05_jprb,2.4219e-05_jprb,2.4324e-05_jprb,2.4398e-05_jprb/)
609 kbo( :,49, 2) = (/&
610  & 1.9573e-05_jprb,1.9855e-05_jprb,2.0037e-05_jprb,2.0166e-05_jprb,2.0269e-05_jprb/)
611 kbo( :,50, 2) = (/&
612  & 1.6059e-05_jprb,1.6336e-05_jprb,1.6527e-05_jprb,1.6662e-05_jprb,1.6777e-05_jprb/)
613 kbo( :,51, 2) = (/&
614  & 1.3152e-05_jprb,1.3417e-05_jprb,1.3609e-05_jprb,1.3741e-05_jprb,1.3858e-05_jprb/)
615 kbo( :,52, 2) = (/&
616  & 1.0779e-05_jprb,1.1030e-05_jprb,1.1223e-05_jprb,1.1354e-05_jprb,1.1469e-05_jprb/)
617 kbo( :,53, 2) = (/&
618  & 8.8506e-06_jprb,9.0876e-06_jprb,9.2783e-06_jprb,9.4085e-06_jprb,9.5236e-06_jprb/)
619 kbo( :,54, 2) = (/&
620  & 7.2038e-06_jprb,7.4123e-06_jprb,7.5866e-06_jprb,7.7062e-06_jprb,7.8090e-06_jprb/)
621 kbo( :,55, 2) = (/&
622  & 5.8272e-06_jprb,6.0075e-06_jprb,6.1562e-06_jprb,6.2660e-06_jprb,6.3502e-06_jprb/)
623 kbo( :,56, 2) = (/&
624  & 4.7097e-06_jprb,4.8664e-06_jprb,4.9937e-06_jprb,5.0923e-06_jprb,5.1636e-06_jprb/)
625 kbo( :,57, 2) = (/&
626  & 3.8029e-06_jprb,3.9406e-06_jprb,4.0499e-06_jprb,4.1369e-06_jprb,4.1983e-06_jprb/)
627 kbo( :,58, 2) = (/&
628  & 3.0636e-06_jprb,3.1845e-06_jprb,3.2784e-06_jprb,3.3529e-06_jprb,3.4074e-06_jprb/)
629 kbo( :,59, 2) = (/&
630  & 2.4518e-06_jprb,2.5533e-06_jprb,2.6281e-06_jprb,2.6848e-06_jprb,2.7259e-06_jprb/)
631 kbo( :, 7, 3) = (/&
632  & 3.9261e-01_jprb,4.1826e-01_jprb,4.5486e-01_jprb,5.0020e-01_jprb,5.5441e-01_jprb/)
633 kbo( :, 8, 3) = (/&
634  & 2.6302e-01_jprb,2.7629e-01_jprb,2.9316e-01_jprb,3.1489e-01_jprb,3.3903e-01_jprb/)
635 kbo( :, 9, 3) = (/&
636  & 1.8742e-01_jprb,1.9413e-01_jprb,2.0162e-01_jprb,2.1065e-01_jprb,2.2099e-01_jprb/)
637 kbo( :,10, 3) = (/&
638  & 1.3691e-01_jprb,1.3995e-01_jprb,1.4395e-01_jprb,1.4843e-01_jprb,1.5362e-01_jprb/)
639 kbo( :,11, 3) = (/&
640  & 1.0382e-01_jprb,1.0590e-01_jprb,1.0849e-01_jprb,1.1133e-01_jprb,1.1437e-01_jprb/)
641 kbo( :,12, 3) = (/&
642  & 8.2774e-02_jprb,8.4314e-02_jprb,8.6091e-02_jprb,8.8097e-02_jprb,9.0175e-02_jprb/)
643 
644 IF (lhook) CALL dr_hook('RRTM_KGB8:PART2',1,zhook_handle)
645 END SUBROUTINE part2
646 
647 
648 SUBROUTINE part3
649 
650 REAL(KIND=JPRB) :: ZHOOK_HANDLE
651 IF (lhook) CALL dr_hook('RRTM_KGB8:PART3',0,zhook_handle)
652 
653 
654 kbo( :,13, 3) = (/&
655  & 6.5297e-02_jprb,6.6392e-02_jprb,6.7652e-02_jprb,6.8979e-02_jprb,7.0293e-02_jprb/)
656 kbo( :,14, 3) = (/&
657  & 4.8355e-02_jprb,4.9038e-02_jprb,4.9706e-02_jprb,5.0319e-02_jprb,5.0878e-02_jprb/)
658 kbo( :,15, 3) = (/&
659  & 3.6518e-02_jprb,3.6926e-02_jprb,3.7222e-02_jprb,3.7439e-02_jprb,3.7640e-02_jprb/)
660 kbo( :,16, 3) = (/&
661  & 2.8643e-02_jprb,2.8895e-02_jprb,2.9016e-02_jprb,2.9088e-02_jprb,2.9132e-02_jprb/)
662 kbo( :,17, 3) = (/&
663  & 2.2761e-02_jprb,2.2905e-02_jprb,2.2941e-02_jprb,2.2947e-02_jprb,2.2921e-02_jprb/)
664 kbo( :,18, 3) = (/&
665  & 1.8278e-02_jprb,1.8355e-02_jprb,1.8353e-02_jprb,1.8324e-02_jprb,1.8265e-02_jprb/)
666 kbo( :,19, 3) = (/&
667  & 1.4700e-02_jprb,1.4733e-02_jprb,1.4709e-02_jprb,1.4660e-02_jprb,1.4585e-02_jprb/)
668 kbo( :,20, 3) = (/&
669  & 1.1936e-02_jprb,1.1946e-02_jprb,1.1914e-02_jprb,1.1862e-02_jprb,1.1789e-02_jprb/)
670 kbo( :,21, 3) = (/&
671  & 9.7139e-03_jprb,9.7118e-03_jprb,9.6809e-03_jprb,9.6307e-03_jprb,9.5648e-03_jprb/)
672 kbo( :,22, 3) = (/&
673  & 7.9072e-03_jprb,7.8970e-03_jprb,7.8671e-03_jprb,7.8212e-03_jprb,7.7623e-03_jprb/)
674 kbo( :,23, 3) = (/&
675  & 6.4329e-03_jprb,6.4199e-03_jprb,6.3920e-03_jprb,6.3512e-03_jprb,6.2995e-03_jprb/)
676 kbo( :,24, 3) = (/&
677  & 5.2216e-03_jprb,5.2078e-03_jprb,5.1821e-03_jprb,5.1436e-03_jprb,5.0968e-03_jprb/)
678 kbo( :,25, 3) = (/&
679  & 4.2420e-03_jprb,4.2282e-03_jprb,4.2046e-03_jprb,4.1704e-03_jprb,4.1288e-03_jprb/)
680 kbo( :,26, 3) = (/&
681  & 3.4526e-03_jprb,3.4398e-03_jprb,3.4183e-03_jprb,3.3878e-03_jprb,3.3511e-03_jprb/)
682 kbo( :,27, 3) = (/&
683  & 2.8139e-03_jprb,2.8022e-03_jprb,2.7830e-03_jprb,2.7568e-03_jprb,2.7244e-03_jprb/)
684 kbo( :,28, 3) = (/&
685  & 2.2948e-03_jprb,2.2838e-03_jprb,2.2669e-03_jprb,2.2441e-03_jprb,2.2163e-03_jprb/)
686 kbo( :,29, 3) = (/&
687  & 1.8779e-03_jprb,1.8678e-03_jprb,1.8537e-03_jprb,1.8342e-03_jprb,1.8116e-03_jprb/)
688 kbo( :,30, 3) = (/&
689  & 1.5371e-03_jprb,1.5290e-03_jprb,1.5169e-03_jprb,1.5009e-03_jprb,1.4827e-03_jprb/)
690 kbo( :,31, 3) = (/&
691  & 1.2613e-03_jprb,1.2550e-03_jprb,1.2450e-03_jprb,1.2325e-03_jprb,1.2181e-03_jprb/)
692 kbo( :,32, 3) = (/&
693  & 1.0360e-03_jprb,1.0308e-03_jprb,1.0228e-03_jprb,1.0131e-03_jprb,1.0022e-03_jprb/)
694 kbo( :,33, 3) = (/&
695  & 8.5168e-04_jprb,8.4735e-04_jprb,8.4147e-04_jprb,8.3412e-04_jprb,8.2675e-04_jprb/)
696 kbo( :,34, 3) = (/&
697  & 7.0046e-04_jprb,6.9716e-04_jprb,6.9264e-04_jprb,6.8755e-04_jprb,6.8249e-04_jprb/)
698 kbo( :,35, 3) = (/&
699  & 5.7604e-04_jprb,5.7373e-04_jprb,5.7061e-04_jprb,5.6737e-04_jprb,5.6396e-04_jprb/)
700 kbo( :,36, 3) = (/&
701  & 4.7323e-04_jprb,4.7186e-04_jprb,4.7003e-04_jprb,4.6804e-04_jprb,4.6592e-04_jprb/)
702 kbo( :,37, 3) = (/&
703  & 3.9007e-04_jprb,3.8932e-04_jprb,3.8831e-04_jprb,3.8717e-04_jprb,3.8593e-04_jprb/)
704 kbo( :,38, 3) = (/&
705  & 3.2170e-04_jprb,3.2146e-04_jprb,3.2110e-04_jprb,3.2061e-04_jprb,3.2010e-04_jprb/)
706 kbo( :,39, 3) = (/&
707  & 2.6546e-04_jprb,2.6568e-04_jprb,2.6585e-04_jprb,2.6593e-04_jprb,2.6594e-04_jprb/)
708 kbo( :,40, 3) = (/&
709  & 2.1847e-04_jprb,2.1891e-04_jprb,2.1928e-04_jprb,2.1962e-04_jprb,2.1986e-04_jprb/)
710 kbo( :,41, 3) = (/&
711  & 1.7969e-04_jprb,1.8027e-04_jprb,1.8078e-04_jprb,1.8126e-04_jprb,1.8165e-04_jprb/)
712 kbo( :,42, 3) = (/&
713  & 1.4779e-04_jprb,1.4846e-04_jprb,1.4905e-04_jprb,1.4963e-04_jprb,1.5013e-04_jprb/)
714 kbo( :,43, 3) = (/&
715  & 1.2154e-04_jprb,1.2228e-04_jprb,1.2292e-04_jprb,1.2357e-04_jprb,1.2415e-04_jprb/)
716 kbo( :,44, 3) = (/&
717  & 9.9958e-05_jprb,1.0073e-04_jprb,1.0140e-04_jprb,1.0208e-04_jprb,1.0273e-04_jprb/)
718 kbo( :,45, 3) = (/&
719  & 8.2216e-05_jprb,8.3000e-05_jprb,8.3698e-05_jprb,8.4403e-05_jprb,8.5080e-05_jprb/)
720 kbo( :,46, 3) = (/&
721  & 6.7594e-05_jprb,6.8376e-05_jprb,6.9061e-05_jprb,6.9778e-05_jprb,7.0474e-05_jprb/)
722 kbo( :,47, 3) = (/&
723  & 5.5485e-05_jprb,5.6232e-05_jprb,5.6898e-05_jprb,5.7591e-05_jprb,5.8280e-05_jprb/)
724 kbo( :,48, 3) = (/&
725  & 4.5552e-05_jprb,4.6275e-05_jprb,4.6918e-05_jprb,4.7596e-05_jprb,4.8274e-05_jprb/)
726 kbo( :,49, 3) = (/&
727  & 3.7438e-05_jprb,3.8131e-05_jprb,3.8767e-05_jprb,3.9430e-05_jprb,4.0094e-05_jprb/)
728 kbo( :,50, 3) = (/&
729  & 3.0699e-05_jprb,3.1333e-05_jprb,3.1922e-05_jprb,3.2530e-05_jprb,3.3148e-05_jprb/)
730 kbo( :,51, 3) = (/&
731  & 2.5129e-05_jprb,2.5702e-05_jprb,2.6235e-05_jprb,2.6778e-05_jprb,2.7340e-05_jprb/)
732 kbo( :,52, 3) = (/&
733  & 2.0590e-05_jprb,2.1102e-05_jprb,2.1590e-05_jprb,2.2079e-05_jprb,2.2594e-05_jprb/)
734 kbo( :,53, 3) = (/&
735  & 1.6895e-05_jprb,1.7360e-05_jprb,1.7806e-05_jprb,1.8261e-05_jprb,1.8734e-05_jprb/)
736 kbo( :,54, 3) = (/&
737  & 1.3758e-05_jprb,1.4159e-05_jprb,1.4534e-05_jprb,1.4917e-05_jprb,1.5317e-05_jprb/)
738 kbo( :,55, 3) = (/&
739  & 1.1148e-05_jprb,1.1484e-05_jprb,1.1790e-05_jprb,1.2094e-05_jprb,1.2411e-05_jprb/)
740 kbo( :,56, 3) = (/&
741  & 9.0284e-06_jprb,9.3136e-06_jprb,9.5654e-06_jprb,9.8098e-06_jprb,1.0060e-05_jprb/)
742 kbo( :,57, 3) = (/&
743  & 7.3060e-06_jprb,7.5521e-06_jprb,7.7610e-06_jprb,7.9575e-06_jprb,8.1567e-06_jprb/)
744 kbo( :,58, 3) = (/&
745  & 5.9024e-06_jprb,6.1146e-06_jprb,6.2887e-06_jprb,6.4473e-06_jprb,6.6035e-06_jprb/)
746 kbo( :,59, 3) = (/&
747  & 4.7480e-06_jprb,4.9198e-06_jprb,5.0575e-06_jprb,5.1729e-06_jprb,5.2807e-06_jprb/)
748 kbo( :, 7, 4) = (/&
749  & 5.4576e-01_jprb,5.8321e-01_jprb,6.3352e-01_jprb,6.9888e-01_jprb,7.7662e-01_jprb/)
750 kbo( :, 8, 4) = (/&
751  & 3.7193e-01_jprb,3.9289e-01_jprb,4.1999e-01_jprb,4.5207e-01_jprb,4.8994e-01_jprb/)
752 kbo( :, 9, 4) = (/&
753  & 2.7031e-01_jprb,2.8087e-01_jprb,2.9426e-01_jprb,3.0966e-01_jprb,3.2729e-01_jprb/)
754 kbo( :,10, 4) = (/&
755  & 2.0336e-01_jprb,2.0948e-01_jprb,2.1603e-01_jprb,2.2414e-01_jprb,2.3345e-01_jprb/)
756 kbo( :,11, 4) = (/&
757  & 1.6168e-01_jprb,1.6588e-01_jprb,1.7020e-01_jprb,1.7548e-01_jprb,1.8161e-01_jprb/)
758 kbo( :,12, 4) = (/&
759  & 1.3346e-01_jprb,1.3660e-01_jprb,1.3975e-01_jprb,1.4344e-01_jprb,1.4792e-01_jprb/)
760 kbo( :,13, 4) = (/&
761  & 1.0849e-01_jprb,1.1069e-01_jprb,1.1290e-01_jprb,1.1556e-01_jprb,1.1871e-01_jprb/)
762 kbo( :,14, 4) = (/&
763  & 8.2500e-02_jprb,8.3981e-02_jprb,8.5345e-02_jprb,8.6853e-02_jprb,8.8365e-02_jprb/)
764 kbo( :,15, 4) = (/&
765  & 6.3556e-02_jprb,6.4528e-02_jprb,6.5387e-02_jprb,6.6084e-02_jprb,6.6650e-02_jprb/)
766 kbo( :,16, 4) = (/&
767  & 5.0617e-02_jprb,5.1215e-02_jprb,5.1695e-02_jprb,5.1994e-02_jprb,5.2195e-02_jprb/)
768 kbo( :,17, 4) = (/&
769  & 4.0691e-02_jprb,4.1021e-02_jprb,4.1248e-02_jprb,4.1327e-02_jprb,4.1343e-02_jprb/)
770 kbo( :,18, 4) = (/&
771  & 3.2954e-02_jprb,3.3129e-02_jprb,3.3217e-02_jprb,3.3185e-02_jprb,3.3108e-02_jprb/)
772 kbo( :,19, 4) = (/&
773  & 2.6680e-02_jprb,2.6760e-02_jprb,2.6758e-02_jprb,2.6667e-02_jprb,2.6543e-02_jprb/)
774 kbo( :,20, 4) = (/&
775  & 2.1769e-02_jprb,2.1800e-02_jprb,2.1748e-02_jprb,2.1639e-02_jprb,2.1512e-02_jprb/)
776 kbo( :,21, 4) = (/&
777  & 1.7784e-02_jprb,1.7780e-02_jprb,1.7709e-02_jprb,1.7602e-02_jprb,1.7488e-02_jprb/)
778 kbo( :,22, 4) = (/&
779  & 1.4514e-02_jprb,1.4488e-02_jprb,1.4415e-02_jprb,1.4319e-02_jprb,1.4220e-02_jprb/)
780 kbo( :,23, 4) = (/&
781  & 1.1835e-02_jprb,1.1797e-02_jprb,1.1728e-02_jprb,1.1643e-02_jprb,1.1560e-02_jprb/)
782 kbo( :,24, 4) = (/&
783  & 9.6235e-03_jprb,9.5815e-03_jprb,9.5190e-03_jprb,9.4465e-03_jprb,9.3693e-03_jprb/)
784 kbo( :,25, 4) = (/&
785  & 7.8292e-03_jprb,7.7888e-03_jprb,7.7341e-03_jprb,7.6730e-03_jprb,7.6029e-03_jprb/)
786 kbo( :,26, 4) = (/&
787  & 6.3801e-03_jprb,6.3415e-03_jprb,6.2961e-03_jprb,6.2428e-03_jprb,6.1825e-03_jprb/)
788 kbo( :,27, 4) = (/&
789  & 5.2042e-03_jprb,5.1715e-03_jprb,5.1336e-03_jprb,5.0880e-03_jprb,5.0387e-03_jprb/)
790 kbo( :,28, 4) = (/&
791  & 4.2465e-03_jprb,4.2207e-03_jprb,4.1880e-03_jprb,4.1504e-03_jprb,4.1110e-03_jprb/)
792 kbo( :,29, 4) = (/&
793  & 3.4782e-03_jprb,3.4577e-03_jprb,3.4306e-03_jprb,3.4016e-03_jprb,3.3709e-03_jprb/)
794 kbo( :,30, 4) = (/&
795  & 2.8515e-03_jprb,2.8346e-03_jprb,2.8137e-03_jprb,2.7917e-03_jprb,2.7680e-03_jprb/)
796 kbo( :,31, 4) = (/&
797  & 2.3437e-03_jprb,2.3307e-03_jprb,2.3161e-03_jprb,2.3002e-03_jprb,2.2834e-03_jprb/)
798 kbo( :,32, 4) = (/&
799  & 1.9274e-03_jprb,1.9187e-03_jprb,1.9091e-03_jprb,1.8985e-03_jprb,1.8866e-03_jprb/)
800 kbo( :,33, 4) = (/&
801  & 1.5869e-03_jprb,1.5820e-03_jprb,1.5765e-03_jprb,1.5699e-03_jprb,1.5624e-03_jprb/)
802 kbo( :,34, 4) = (/&
803  & 1.3081e-03_jprb,1.3058e-03_jprb,1.3032e-03_jprb,1.2991e-03_jprb,1.2950e-03_jprb/)
804 kbo( :,35, 4) = (/&
805  & 1.0781e-03_jprb,1.0778e-03_jprb,1.0771e-03_jprb,1.0756e-03_jprb,1.0740e-03_jprb/)
806 kbo( :,36, 4) = (/&
807  & 8.8736e-04_jprb,8.8844e-04_jprb,8.8926e-04_jprb,8.8965e-04_jprb,8.8976e-04_jprb/)
808 kbo( :,37, 4) = (/&
809  & 7.3290e-04_jprb,7.3491e-04_jprb,7.3643e-04_jprb,7.3770e-04_jprb,7.3879e-04_jprb/)
810 kbo( :,38, 4) = (/&
811  & 6.0588e-04_jprb,6.0833e-04_jprb,6.1041e-04_jprb,6.1235e-04_jprb,6.1424e-04_jprb/)
812 kbo( :,39, 4) = (/&
813  & 5.0124e-04_jprb,5.0398e-04_jprb,5.0659e-04_jprb,5.0907e-04_jprb,5.1177e-04_jprb/)
814 kbo( :,40, 4) = (/&
815  & 4.1327e-04_jprb,4.1591e-04_jprb,4.1851e-04_jprb,4.2084e-04_jprb,4.2376e-04_jprb/)
816 kbo( :,41, 4) = (/&
817  & 3.4050e-04_jprb,3.4298e-04_jprb,3.4548e-04_jprb,3.4778e-04_jprb,3.5064e-04_jprb/)
818 kbo( :,42, 4) = (/&
819  & 2.8050e-04_jprb,2.8288e-04_jprb,2.8524e-04_jprb,2.8747e-04_jprb,2.9020e-04_jprb/)
820 kbo( :,43, 4) = (/&
821  & 2.3103e-04_jprb,2.3322e-04_jprb,2.3547e-04_jprb,2.3763e-04_jprb,2.4024e-04_jprb/)
822 kbo( :,44, 4) = (/&
823  & 1.9026e-04_jprb,1.9231e-04_jprb,1.9444e-04_jprb,1.9652e-04_jprb,1.9896e-04_jprb/)
824 kbo( :,45, 4) = (/&
825  & 1.5671e-04_jprb,1.5864e-04_jprb,1.6066e-04_jprb,1.6263e-04_jprb,1.6494e-04_jprb/)
826 kbo( :,46, 4) = (/&
827  & 1.2898e-04_jprb,1.3080e-04_jprb,1.3267e-04_jprb,1.3454e-04_jprb,1.3671e-04_jprb/)
828 kbo( :,47, 4) = (/&
829  & 1.0596e-04_jprb,1.0765e-04_jprb,1.0934e-04_jprb,1.1109e-04_jprb,1.1307e-04_jprb/)
830 kbo( :,48, 4) = (/&
831  & 8.7064e-05_jprb,8.8650e-05_jprb,9.0201e-05_jprb,9.1849e-05_jprb,9.3694e-05_jprb/)
832 kbo( :,49, 4) = (/&
833  & 7.1599e-05_jprb,7.3089e-05_jprb,7.4546e-05_jprb,7.6099e-05_jprb,7.7859e-05_jprb/)
834 kbo( :,50, 4) = (/&
835  & 5.8725e-05_jprb,6.0074e-05_jprb,6.1380e-05_jprb,6.2781e-05_jprb,6.4369e-05_jprb/)
836 kbo( :,51, 4) = (/&
837  & 4.8093e-05_jprb,4.9292e-05_jprb,5.0434e-05_jprb,5.1667e-05_jprb,5.3063e-05_jprb/)
838 kbo( :,52, 4) = (/&
839  & 3.9408e-05_jprb,4.0473e-05_jprb,4.1481e-05_jprb,4.2577e-05_jprb,4.3826e-05_jprb/)
840 kbo( :,53, 4) = (/&
841  & 3.2348e-05_jprb,3.3281e-05_jprb,3.4179e-05_jprb,3.5167e-05_jprb,3.6311e-05_jprb/)
842 kbo( :,54, 4) = (/&
843  & 2.6357e-05_jprb,2.7153e-05_jprb,2.7906e-05_jprb,2.8713e-05_jprb,2.9648e-05_jprb/)
844 kbo( :,55, 4) = (/&
845  & 2.1368e-05_jprb,2.2046e-05_jprb,2.2660e-05_jprb,2.3285e-05_jprb,2.4007e-05_jprb/)
846 kbo( :,56, 4) = (/&
847  & 1.7314e-05_jprb,1.7894e-05_jprb,1.8399e-05_jprb,1.8894e-05_jprb,1.9452e-05_jprb/)
848 kbo( :,57, 4) = (/&
849  & 1.4020e-05_jprb,1.4518e-05_jprb,1.4939e-05_jprb,1.5339e-05_jprb,1.5769e-05_jprb/)
850 kbo( :,58, 4) = (/&
851  & 1.1336e-05_jprb,1.1762e-05_jprb,1.2115e-05_jprb,1.2440e-05_jprb,1.2770e-05_jprb/)
852 kbo( :,59, 4) = (/&
853  & 9.1282e-06_jprb,9.4754e-06_jprb,9.7573e-06_jprb,1.0004e-05_jprb,1.0238e-05_jprb/)
854 kbo( :, 7, 5) = (/&
855  & 7.4219e-01_jprb,8.0054e-01_jprb,8.7888e-01_jprb,9.7526e-01_jprb,1.0998e+00_jprb/)
856 kbo( :, 8, 5) = (/&
857  & 5.1152e-01_jprb,5.4637e-01_jprb,5.8683e-01_jprb,6.3535e-01_jprb,6.9455e-01_jprb/)
858 kbo( :, 9, 5) = (/&
859  & 3.8181e-01_jprb,4.0155e-01_jprb,4.2314e-01_jprb,4.4831e-01_jprb,4.7715e-01_jprb/)
860 kbo( :,10, 5) = (/&
861  & 2.9695e-01_jprb,3.0876e-01_jprb,3.2196e-01_jprb,3.3553e-01_jprb,3.5132e-01_jprb/)
862 kbo( :,11, 5) = (/&
863  & 2.4682e-01_jprb,2.5515e-01_jprb,2.6470e-01_jprb,2.7449e-01_jprb,2.8523e-01_jprb/)
864 kbo( :,12, 5) = (/&
865  & 2.1183e-01_jprb,2.1854e-01_jprb,2.2616e-01_jprb,2.3413e-01_jprb,2.4235e-01_jprb/)
866 kbo( :,13, 5) = (/&
867  & 1.7800e-01_jprb,1.8340e-01_jprb,1.8940e-01_jprb,1.9532e-01_jprb,2.0154e-01_jprb/)
868 kbo( :,14, 5) = (/&
869  & 1.4147e-01_jprb,1.4449e-01_jprb,1.4788e-01_jprb,1.5168e-01_jprb,1.5576e-01_jprb/)
870 kbo( :,15, 5) = (/&
871  & 1.1315e-01_jprb,1.1469e-01_jprb,1.1645e-01_jprb,1.1868e-01_jprb,1.2103e-01_jprb/)
872 kbo( :,16, 5) = (/&
873  & 9.2222e-02_jprb,9.3160e-02_jprb,9.4211e-02_jprb,9.5476e-02_jprb,9.6729e-02_jprb/)
874 kbo( :,17, 5) = (/&
875  & 7.5459e-02_jprb,7.6041e-02_jprb,7.6622e-02_jprb,7.7254e-02_jprb,7.7877e-02_jprb/)
876 kbo( :,18, 5) = (/&
877  & 6.1947e-02_jprb,6.2293e-02_jprb,6.2553e-02_jprb,6.2869e-02_jprb,6.3141e-02_jprb/)
878 kbo( :,19, 5) = (/&
879  & 5.0722e-02_jprb,5.0858e-02_jprb,5.0935e-02_jprb,5.1055e-02_jprb,5.1101e-02_jprb/)
880 kbo( :,20, 5) = (/&
881  & 4.1631e-02_jprb,4.1679e-02_jprb,4.1718e-02_jprb,4.1739e-02_jprb,4.1680e-02_jprb/)
882 kbo( :,21, 5) = (/&
883  & 3.4144e-02_jprb,3.4173e-02_jprb,3.4180e-02_jprb,3.4129e-02_jprb,3.4026e-02_jprb/)
884 kbo( :,22, 5) = (/&
885  & 2.7969e-02_jprb,2.7982e-02_jprb,2.7950e-02_jprb,2.7863e-02_jprb,2.7745e-02_jprb/)
886 kbo( :,23, 5) = (/&
887  & 2.2887e-02_jprb,2.2876e-02_jprb,2.2812e-02_jprb,2.2713e-02_jprb,2.2601e-02_jprb/)
888 kbo( :,24, 5) = (/&
889  & 1.8663e-02_jprb,1.8630e-02_jprb,1.8556e-02_jprb,1.8459e-02_jprb,1.8357e-02_jprb/)
890 kbo( :,25, 5) = (/&
891  & 1.5218e-02_jprb,1.5169e-02_jprb,1.5100e-02_jprb,1.5012e-02_jprb,1.4924e-02_jprb/)
892 kbo( :,26, 5) = (/&
893  & 1.2420e-02_jprb,1.2369e-02_jprb,1.2302e-02_jprb,1.2232e-02_jprb,1.2157e-02_jprb/)
894 kbo( :,27, 5) = (/&
895  & 1.0146e-02_jprb,1.0098e-02_jprb,1.0044e-02_jprb,9.9898e-03_jprb,9.9236e-03_jprb/)
896 kbo( :,28, 5) = (/&
897  & 8.2897e-03_jprb,8.2510e-03_jprb,8.2117e-03_jprb,8.1680e-03_jprb,8.1099e-03_jprb/)
898 kbo( :,29, 5) = (/&
899  & 6.7978e-03_jprb,6.7739e-03_jprb,6.7481e-03_jprb,6.7134e-03_jprb,6.6680e-03_jprb/)
900 kbo( :,30, 5) = (/&
901  & 5.5823e-03_jprb,5.5718e-03_jprb,5.5546e-03_jprb,5.5280e-03_jprb,5.4974e-03_jprb/)
902 kbo( :,31, 5) = (/&
903  & 4.6027e-03_jprb,4.6001e-03_jprb,4.5893e-03_jprb,4.5737e-03_jprb,4.5580e-03_jprb/)
904 kbo( :,32, 5) = (/&
905  & 3.8008e-03_jprb,3.8015e-03_jprb,3.7970e-03_jprb,3.7914e-03_jprb,3.7855e-03_jprb/)
906 kbo( :,33, 5) = (/&
907  & 3.1425e-03_jprb,3.1461e-03_jprb,3.1482e-03_jprb,3.1501e-03_jprb,3.1526e-03_jprb/)
908 kbo( :,34, 5) = (/&
909  & 2.5984e-03_jprb,2.6053e-03_jprb,2.6119e-03_jprb,2.6195e-03_jprb,2.6274e-03_jprb/)
910 kbo( :,35, 5) = (/&
911  & 2.1483e-03_jprb,2.1578e-03_jprb,2.1676e-03_jprb,2.1783e-03_jprb,2.1903e-03_jprb/)
912 kbo( :,36, 5) = (/&
913  & 1.7735e-03_jprb,1.7841e-03_jprb,1.7952e-03_jprb,1.8076e-03_jprb,1.8217e-03_jprb/)
914 kbo( :,37, 5) = (/&
915  & 1.4673e-03_jprb,1.4785e-03_jprb,1.4908e-03_jprb,1.5046e-03_jprb,1.5197e-03_jprb/)
916 kbo( :,38, 5) = (/&
917  & 1.2151e-03_jprb,1.2270e-03_jprb,1.2402e-03_jprb,1.2548e-03_jprb,1.2701e-03_jprb/)
918 kbo( :,39, 5) = (/&
919  & 1.0074e-03_jprb,1.0199e-03_jprb,1.0337e-03_jprb,1.0486e-03_jprb,1.0638e-03_jprb/)
920 kbo( :,40, 5) = (/&
921  & 8.3151e-04_jprb,8.4359e-04_jprb,8.5658e-04_jprb,8.6983e-04_jprb,8.8391e-04_jprb/)
922 kbo( :,41, 5) = (/&
923  & 6.8588e-04_jprb,6.9711e-04_jprb,7.0893e-04_jprb,7.2091e-04_jprb,7.3364e-04_jprb/)
924 kbo( :,42, 5) = (/&
925  & 5.6575e-04_jprb,5.7610e-04_jprb,5.8675e-04_jprb,5.9741e-04_jprb,6.0890e-04_jprb/)
926 kbo( :,43, 5) = (/&
927  & 4.6640e-04_jprb,4.7576e-04_jprb,4.8530e-04_jprb,4.9486e-04_jprb,5.0526e-04_jprb/)
928 kbo( :,44, 5) = (/&
929  & 3.8435e-04_jprb,3.9291e-04_jprb,4.0148e-04_jprb,4.1002e-04_jprb,4.1936e-04_jprb/)
930 kbo( :,45, 5) = (/&
931  & 3.1688e-04_jprb,3.2462e-04_jprb,3.3225e-04_jprb,3.3993e-04_jprb,3.4837e-04_jprb/)
932 kbo( :,46, 5) = (/&
933  & 2.6099e-04_jprb,2.6793e-04_jprb,2.7469e-04_jprb,2.8156e-04_jprb,2.8910e-04_jprb/)
934 kbo( :,47, 5) = (/&
935  & 2.1440e-04_jprb,2.2049e-04_jprb,2.2645e-04_jprb,2.3254e-04_jprb,2.3931e-04_jprb/)
936 kbo( :,48, 5) = (/&
937  & 1.7619e-04_jprb,1.8156e-04_jprb,1.8686e-04_jprb,1.9234e-04_jprb,1.9841e-04_jprb/)
938 kbo( :,49, 5) = (/&
939  & 1.4500e-04_jprb,1.4973e-04_jprb,1.5449e-04_jprb,1.5941e-04_jprb,1.6496e-04_jprb/)
940 kbo( :,50, 5) = (/&
941  & 1.1899e-04_jprb,1.2306e-04_jprb,1.2720e-04_jprb,1.3150e-04_jprb,1.3635e-04_jprb/)
942 kbo( :,51, 5) = (/&
943  & 9.7485e-05_jprb,1.0095e-04_jprb,1.0448e-04_jprb,1.0819e-04_jprb,1.1236e-04_jprb/)
944 
945 IF (lhook) CALL dr_hook('RRTM_KGB8:PART3',1,zhook_handle)
946 END SUBROUTINE part3
947 
948 
949 SUBROUTINE part4
950 
951 REAL(KIND=JPRB) :: ZHOOK_HANDLE
952 IF (lhook) CALL dr_hook('RRTM_KGB8:PART4',0,zhook_handle)
953 
954 
955 kbo( :,52, 5) = (/&
956  & 7.9898e-05_jprb,8.2877e-05_jprb,8.5912e-05_jprb,8.9120e-05_jprb,9.2744e-05_jprb/)
957 kbo( :,53, 5) = (/&
958  & 6.5564e-05_jprb,6.8161e-05_jprb,7.0774e-05_jprb,7.3596e-05_jprb,7.6784e-05_jprb/)
959 kbo( :,54, 5) = (/&
960  & 5.3382e-05_jprb,5.5562e-05_jprb,5.7697e-05_jprb,6.0028e-05_jprb,6.2619e-05_jprb/)
961 kbo( :,55, 5) = (/&
962  & 4.3245e-05_jprb,4.5036e-05_jprb,4.6756e-05_jprb,4.8597e-05_jprb,5.0630e-05_jprb/)
963 kbo( :,56, 5) = (/&
964  & 3.5030e-05_jprb,3.6502e-05_jprb,3.7905e-05_jprb,3.9364e-05_jprb,4.0960e-05_jprb/)
965 kbo( :,57, 5) = (/&
966  & 2.8365e-05_jprb,2.9581e-05_jprb,3.0734e-05_jprb,3.1886e-05_jprb,3.3151e-05_jprb/)
967 kbo( :,58, 5) = (/&
968  & 2.2943e-05_jprb,2.3945e-05_jprb,2.4891e-05_jprb,2.5800e-05_jprb,2.6793e-05_jprb/)
969 kbo( :,59, 5) = (/&
970  & 1.8495e-05_jprb,1.9293e-05_jprb,2.0030e-05_jprb,2.0717e-05_jprb,2.1421e-05_jprb/)
971 kbo( :, 7, 6) = (/&
972  & 1.0291e+00_jprb,1.1356e+00_jprb,1.2744e+00_jprb,1.4468e+00_jprb,1.6524e+00_jprb/)
973 kbo( :, 8, 6) = (/&
974  & 6.9841e-01_jprb,7.5208e-01_jprb,8.2057e-01_jprb,9.0373e-01_jprb,9.9840e-01_jprb/)
975 kbo( :, 9, 6) = (/&
976  & 5.3286e-01_jprb,5.5966e-01_jprb,5.9440e-01_jprb,6.3558e-01_jprb,6.8341e-01_jprb/)
977 kbo( :,10, 6) = (/&
978  & 4.3919e-01_jprb,4.5202e-01_jprb,4.6857e-01_jprb,4.9162e-01_jprb,5.1919e-01_jprb/)
979 kbo( :,11, 6) = (/&
980  & 3.8169e-01_jprb,3.9111e-01_jprb,4.0234e-01_jprb,4.1718e-01_jprb,4.3612e-01_jprb/)
981 kbo( :,12, 6) = (/&
982  & 3.4191e-01_jprb,3.5009e-01_jprb,3.5940e-01_jprb,3.7082e-01_jprb,3.8567e-01_jprb/)
983 kbo( :,13, 6) = (/&
984  & 3.0165e-01_jprb,3.0862e-01_jprb,3.1605e-01_jprb,3.2574e-01_jprb,3.3792e-01_jprb/)
985 kbo( :,14, 6) = (/&
986  & 2.5298e-01_jprb,2.5814e-01_jprb,2.6338e-01_jprb,2.6931e-01_jprb,2.7664e-01_jprb/)
987 kbo( :,15, 6) = (/&
988  & 2.1273e-01_jprb,2.1655e-01_jprb,2.1994e-01_jprb,2.2320e-01_jprb,2.2726e-01_jprb/)
989 kbo( :,16, 6) = (/&
990  & 1.8046e-01_jprb,1.8315e-01_jprb,1.8531e-01_jprb,1.8743e-01_jprb,1.8993e-01_jprb/)
991 kbo( :,17, 6) = (/&
992  & 1.5223e-01_jprb,1.5398e-01_jprb,1.5534e-01_jprb,1.5661e-01_jprb,1.5779e-01_jprb/)
993 kbo( :,18, 6) = (/&
994  & 1.2778e-01_jprb,1.2889e-01_jprb,1.2966e-01_jprb,1.3020e-01_jprb,1.3052e-01_jprb/)
995 kbo( :,19, 6) = (/&
996  & 1.0640e-01_jprb,1.0703e-01_jprb,1.0732e-01_jprb,1.0728e-01_jprb,1.0716e-01_jprb/)
997 kbo( :,20, 6) = (/&
998  & 8.8470e-02_jprb,8.8754e-02_jprb,8.8701e-02_jprb,8.8488e-02_jprb,8.8284e-02_jprb/)
999 kbo( :,21, 6) = (/&
1000  & 7.3231e-02_jprb,7.3261e-02_jprb,7.3087e-02_jprb,7.2888e-02_jprb,7.2674e-02_jprb/)
1001 kbo( :,22, 6) = (/&
1002  & 6.0317e-02_jprb,6.0219e-02_jprb,6.0056e-02_jprb,5.9896e-02_jprb,5.9688e-02_jprb/)
1003 kbo( :,23, 6) = (/&
1004  & 4.9481e-02_jprb,4.9377e-02_jprb,4.9249e-02_jprb,4.9098e-02_jprb,4.8909e-02_jprb/)
1005 kbo( :,24, 6) = (/&
1006  & 4.0434e-02_jprb,4.0336e-02_jprb,4.0225e-02_jprb,4.0073e-02_jprb,3.9896e-02_jprb/)
1007 kbo( :,25, 6) = (/&
1008  & 3.3025e-02_jprb,3.2945e-02_jprb,3.2829e-02_jprb,3.2695e-02_jprb,3.2543e-02_jprb/)
1009 kbo( :,26, 6) = (/&
1010  & 2.6990e-02_jprb,2.6922e-02_jprb,2.6821e-02_jprb,2.6706e-02_jprb,2.6588e-02_jprb/)
1011 kbo( :,27, 6) = (/&
1012  & 2.2079e-02_jprb,2.2020e-02_jprb,2.1942e-02_jprb,2.1852e-02_jprb,2.1768e-02_jprb/)
1013 kbo( :,28, 6) = (/&
1014  & 1.8069e-02_jprb,1.8022e-02_jprb,1.7962e-02_jprb,1.7900e-02_jprb,1.7838e-02_jprb/)
1015 kbo( :,29, 6) = (/&
1016  & 1.4852e-02_jprb,1.4820e-02_jprb,1.4781e-02_jprb,1.4749e-02_jprb,1.4702e-02_jprb/)
1017 kbo( :,30, 6) = (/&
1018  & 1.2224e-02_jprb,1.2208e-02_jprb,1.2195e-02_jprb,1.2181e-02_jprb,1.2148e-02_jprb/)
1019 kbo( :,31, 6) = (/&
1020  & 1.0105e-02_jprb,1.0111e-02_jprb,1.0120e-02_jprb,1.0118e-02_jprb,1.0103e-02_jprb/)
1021 kbo( :,32, 6) = (/&
1022  & 8.3725e-03_jprb,8.4005e-03_jprb,8.4201e-03_jprb,8.4294e-03_jprb,8.4380e-03_jprb/)
1023 kbo( :,33, 6) = (/&
1024  & 6.9608e-03_jprb,6.9985e-03_jprb,7.0246e-03_jprb,7.0506e-03_jprb,7.0801e-03_jprb/)
1025 kbo( :,34, 6) = (/&
1026  & 5.7896e-03_jprb,5.8293e-03_jprb,5.8636e-03_jprb,5.9033e-03_jprb,5.9423e-03_jprb/)
1027 kbo( :,35, 6) = (/&
1028  & 4.8109e-03_jprb,4.8516e-03_jprb,4.8942e-03_jprb,4.9402e-03_jprb,4.9858e-03_jprb/)
1029 kbo( :,36, 6) = (/&
1030  & 3.9871e-03_jprb,4.0286e-03_jprb,4.0750e-03_jprb,4.1227e-03_jprb,4.1698e-03_jprb/)
1031 kbo( :,37, 6) = (/&
1032  & 3.3096e-03_jprb,3.3515e-03_jprb,3.3976e-03_jprb,3.4442e-03_jprb,3.4909e-03_jprb/)
1033 kbo( :,38, 6) = (/&
1034  & 2.7496e-03_jprb,2.7916e-03_jprb,2.8359e-03_jprb,2.8815e-03_jprb,2.9281e-03_jprb/)
1035 kbo( :,39, 6) = (/&
1036  & 2.2877e-03_jprb,2.3291e-03_jprb,2.3716e-03_jprb,2.4163e-03_jprb,2.4637e-03_jprb/)
1037 kbo( :,40, 6) = (/&
1038  & 1.8936e-03_jprb,1.9309e-03_jprb,1.9696e-03_jprb,2.0107e-03_jprb,2.0549e-03_jprb/)
1039 kbo( :,41, 6) = (/&
1040  & 1.5662e-03_jprb,1.5994e-03_jprb,1.6345e-03_jprb,1.6724e-03_jprb,1.7133e-03_jprb/)
1041 kbo( :,42, 6) = (/&
1042  & 1.2955e-03_jprb,1.3254e-03_jprb,1.3573e-03_jprb,1.3919e-03_jprb,1.4291e-03_jprb/)
1043 kbo( :,43, 6) = (/&
1044  & 1.0710e-03_jprb,1.0978e-03_jprb,1.1266e-03_jprb,1.1585e-03_jprb,1.1927e-03_jprb/)
1045 kbo( :,44, 6) = (/&
1046  & 8.8505e-04_jprb,9.0944e-04_jprb,9.3598e-04_jprb,9.6529e-04_jprb,9.9625e-04_jprb/)
1047 kbo( :,45, 6) = (/&
1048  & 7.3173e-04_jprb,7.5385e-04_jprb,7.7814e-04_jprb,8.0503e-04_jprb,8.3318e-04_jprb/)
1049 kbo( :,46, 6) = (/&
1050  & 6.0428e-04_jprb,6.2394e-04_jprb,6.4629e-04_jprb,6.7060e-04_jprb,6.9612e-04_jprb/)
1051 kbo( :,47, 6) = (/&
1052  & 4.9743e-04_jprb,5.1490e-04_jprb,5.3489e-04_jprb,5.5664e-04_jprb,5.7933e-04_jprb/)
1053 kbo( :,48, 6) = (/&
1054  & 4.0957e-04_jprb,4.2541e-04_jprb,4.4342e-04_jprb,4.6291e-04_jprb,4.8300e-04_jprb/)
1055 kbo( :,49, 6) = (/&
1056  & 3.3774e-04_jprb,3.5226e-04_jprb,3.6850e-04_jprb,3.8591e-04_jprb,4.0393e-04_jprb/)
1057 kbo( :,50, 6) = (/&
1058  & 2.7754e-04_jprb,2.9045e-04_jprb,3.0466e-04_jprb,3.1969e-04_jprb,3.3544e-04_jprb/)
1059 kbo( :,51, 6) = (/&
1060  & 2.2753e-04_jprb,2.3884e-04_jprb,2.5106e-04_jprb,2.6388e-04_jprb,2.7745e-04_jprb/)
1061 kbo( :,52, 6) = (/&
1062  & 1.8669e-04_jprb,1.9654e-04_jprb,2.0712e-04_jprb,2.1810e-04_jprb,2.2988e-04_jprb/)
1063 kbo( :,53, 6) = (/&
1064  & 1.5338e-04_jprb,1.6202e-04_jprb,1.7120e-04_jprb,1.8071e-04_jprb,1.9105e-04_jprb/)
1065 kbo( :,54, 6) = (/&
1066  & 1.2486e-04_jprb,1.3205e-04_jprb,1.3971e-04_jprb,1.4755e-04_jprb,1.5604e-04_jprb/)
1067 kbo( :,55, 6) = (/&
1068  & 1.0106e-04_jprb,1.0690e-04_jprb,1.1311e-04_jprb,1.1943e-04_jprb,1.2616e-04_jprb/)
1069 kbo( :,56, 6) = (/&
1070  & 8.1771e-05_jprb,8.6502e-05_jprb,9.1586e-05_jprb,9.6653e-05_jprb,1.0202e-04_jprb/)
1071 kbo( :,57, 6) = (/&
1072  & 6.6144e-05_jprb,6.9933e-05_jprb,7.4136e-05_jprb,7.8259e-05_jprb,8.2530e-05_jprb/)
1073 kbo( :,58, 6) = (/&
1074  & 5.3465e-05_jprb,5.6462e-05_jprb,5.9920e-05_jprb,6.3267e-05_jprb,6.6666e-05_jprb/)
1075 kbo( :,59, 6) = (/&
1076  & 4.3125e-05_jprb,4.5368e-05_jprb,4.8072e-05_jprb,5.0671e-05_jprb,5.3226e-05_jprb/)
1077 kbo( :, 7, 7) = (/&
1078  & 1.6077e+00_jprb,1.7981e+00_jprb,2.0341e+00_jprb,2.3365e+00_jprb,2.7141e+00_jprb/)
1079 kbo( :, 8, 7) = (/&
1080  & 1.0311e+00_jprb,1.1132e+00_jprb,1.2137e+00_jprb,1.3415e+00_jprb,1.5087e+00_jprb/)
1081 kbo( :, 9, 7) = (/&
1082  & 7.6937e-01_jprb,8.0602e-01_jprb,8.5228e-01_jprb,9.1262e-01_jprb,9.8815e-01_jprb/)
1083 kbo( :,10, 7) = (/&
1084  & 6.4929e-01_jprb,6.6760e-01_jprb,6.9118e-01_jprb,7.1882e-01_jprb,7.5540e-01_jprb/)
1085 kbo( :,11, 7) = (/&
1086  & 5.9378e-01_jprb,6.0842e-01_jprb,6.2583e-01_jprb,6.4567e-01_jprb,6.6995e-01_jprb/)
1087 kbo( :,12, 7) = (/&
1088  & 5.6066e-01_jprb,5.7335e-01_jprb,5.8800e-01_jprb,6.0558e-01_jprb,6.2619e-01_jprb/)
1089 kbo( :,13, 7) = (/&
1090  & 5.2201e-01_jprb,5.3299e-01_jprb,5.4556e-01_jprb,5.5961e-01_jprb,5.7566e-01_jprb/)
1091 kbo( :,14, 7) = (/&
1092  & 4.6501e-01_jprb,4.7434e-01_jprb,4.8336e-01_jprb,4.9210e-01_jprb,5.0157e-01_jprb/)
1093 kbo( :,15, 7) = (/&
1094  & 4.1255e-01_jprb,4.2030e-01_jprb,4.2720e-01_jprb,4.3352e-01_jprb,4.3993e-01_jprb/)
1095 kbo( :,16, 7) = (/&
1096  & 3.6768e-01_jprb,3.7401e-01_jprb,3.7974e-01_jprb,3.8485e-01_jprb,3.8978e-01_jprb/)
1097 kbo( :,17, 7) = (/&
1098  & 3.2496e-01_jprb,3.3013e-01_jprb,3.3469e-01_jprb,3.3855e-01_jprb,3.4245e-01_jprb/)
1099 kbo( :,18, 7) = (/&
1100  & 2.8473e-01_jprb,2.8863e-01_jprb,2.9200e-01_jprb,2.9483e-01_jprb,2.9767e-01_jprb/)
1101 kbo( :,19, 7) = (/&
1102  & 2.4598e-01_jprb,2.4883e-01_jprb,2.5108e-01_jprb,2.5281e-01_jprb,2.5427e-01_jprb/)
1103 kbo( :,20, 7) = (/&
1104  & 2.1080e-01_jprb,2.1273e-01_jprb,2.1404e-01_jprb,2.1479e-01_jprb,2.1513e-01_jprb/)
1105 kbo( :,21, 7) = (/&
1106  & 1.7884e-01_jprb,1.8005e-01_jprb,1.8057e-01_jprb,1.8053e-01_jprb,1.8015e-01_jprb/)
1107 kbo( :,22, 7) = (/&
1108  & 1.5046e-01_jprb,1.5096e-01_jprb,1.5087e-01_jprb,1.5039e-01_jprb,1.4970e-01_jprb/)
1109 kbo( :,23, 7) = (/&
1110  & 1.2553e-01_jprb,1.2553e-01_jprb,1.2506e-01_jprb,1.2444e-01_jprb,1.2374e-01_jprb/)
1111 kbo( :,24, 7) = (/&
1112  & 1.0391e-01_jprb,1.0358e-01_jprb,1.0303e-01_jprb,1.0238e-01_jprb,1.0167e-01_jprb/)
1113 kbo( :,25, 7) = (/&
1114  & 8.5584e-02_jprb,8.5157e-02_jprb,8.4645e-02_jprb,8.4056e-02_jprb,8.3409e-02_jprb/)
1115 kbo( :,26, 7) = (/&
1116  & 7.0315e-02_jprb,6.9930e-02_jprb,6.9473e-02_jprb,6.8949e-02_jprb,6.8424e-02_jprb/)
1117 kbo( :,27, 7) = (/&
1118  & 5.7710e-02_jprb,5.7391e-02_jprb,5.7008e-02_jprb,5.6586e-02_jprb,5.6210e-02_jprb/)
1119 kbo( :,28, 7) = (/&
1120  & 4.7344e-02_jprb,4.7085e-02_jprb,4.6768e-02_jprb,4.6467e-02_jprb,4.6249e-02_jprb/)
1121 kbo( :,29, 7) = (/&
1122  & 3.8923e-02_jprb,3.8733e-02_jprb,3.8524e-02_jprb,3.8372e-02_jprb,3.8309e-02_jprb/)
1123 kbo( :,30, 7) = (/&
1124  & 3.2033e-02_jprb,3.1913e-02_jprb,3.1817e-02_jprb,3.1789e-02_jprb,3.1818e-02_jprb/)
1125 kbo( :,31, 7) = (/&
1126  & 2.6460e-02_jprb,2.6427e-02_jprb,2.6436e-02_jprb,2.6518e-02_jprb,2.6590e-02_jprb/)
1127 kbo( :,32, 7) = (/&
1128  & 2.1922e-02_jprb,2.1964e-02_jprb,2.2067e-02_jprb,2.2187e-02_jprb,2.2275e-02_jprb/)
1129 kbo( :,33, 7) = (/&
1130  & 1.8236e-02_jprb,1.8348e-02_jprb,1.8498e-02_jprb,1.8631e-02_jprb,1.8753e-02_jprb/)
1131 kbo( :,34, 7) = (/&
1132  & 1.5224e-02_jprb,1.5383e-02_jprb,1.5538e-02_jprb,1.5679e-02_jprb,1.5835e-02_jprb/)
1133 kbo( :,35, 7) = (/&
1134  & 1.2735e-02_jprb,1.2900e-02_jprb,1.3051e-02_jprb,1.3209e-02_jprb,1.3385e-02_jprb/)
1135 kbo( :,36, 7) = (/&
1136  & 1.0628e-02_jprb,1.0788e-02_jprb,1.0937e-02_jprb,1.1102e-02_jprb,1.1287e-02_jprb/)
1137 kbo( :,37, 7) = (/&
1138  & 8.9166e-03_jprb,9.0712e-03_jprb,9.2215e-03_jprb,9.3908e-03_jprb,9.5808e-03_jprb/)
1139 kbo( :,38, 7) = (/&
1140  & 7.4940e-03_jprb,7.6454e-03_jprb,7.7999e-03_jprb,7.9731e-03_jprb,8.1630e-03_jprb/)
1141 kbo( :,39, 7) = (/&
1142  & 6.3066e-03_jprb,6.4579e-03_jprb,6.6165e-03_jprb,6.7948e-03_jprb,6.9866e-03_jprb/)
1143 kbo( :,40, 7) = (/&
1144  & 5.2690e-03_jprb,5.4111e-03_jprb,5.5610e-03_jprb,5.7292e-03_jprb,5.9108e-03_jprb/)
1145 kbo( :,41, 7) = (/&
1146  & 4.3956e-03_jprb,4.5258e-03_jprb,4.6643e-03_jprb,4.8199e-03_jprb,4.9873e-03_jprb/)
1147 kbo( :,42, 7) = (/&
1148  & 3.6658e-03_jprb,3.7854e-03_jprb,3.9129e-03_jprb,4.0544e-03_jprb,4.2074e-03_jprb/)
1149 kbo( :,43, 7) = (/&
1150  & 3.0541e-03_jprb,3.1620e-03_jprb,3.2785e-03_jprb,3.4070e-03_jprb,3.5478e-03_jprb/)
1151 kbo( :,44, 7) = (/&
1152  & 2.5426e-03_jprb,2.6415e-03_jprb,2.7479e-03_jprb,2.8645e-03_jprb,2.9935e-03_jprb/)
1153 kbo( :,45, 7) = (/&
1154  & 2.1195e-03_jprb,2.2094e-03_jprb,2.3059e-03_jprb,2.4121e-03_jprb,2.5314e-03_jprb/)
1155 kbo( :,46, 7) = (/&
1156  & 1.7648e-03_jprb,1.8463e-03_jprb,1.9334e-03_jprb,2.0302e-03_jprb,2.1404e-03_jprb/)
1157 kbo( :,47, 7) = (/&
1158  & 1.4634e-03_jprb,1.5361e-03_jprb,1.6140e-03_jprb,1.7015e-03_jprb,1.8026e-03_jprb/)
1159 kbo( :,48, 7) = (/&
1160  & 1.2139e-03_jprb,1.2801e-03_jprb,1.3517e-03_jprb,1.4311e-03_jprb,1.5246e-03_jprb/)
1161 kbo( :,49, 7) = (/&
1162  & 1.0084e-03_jprb,1.0696e-03_jprb,1.1358e-03_jprb,1.2100e-03_jprb,1.2983e-03_jprb/)
1163 kbo( :,50, 7) = (/&
1164  & 8.3348e-04_jprb,8.8778e-04_jprb,9.4722e-04_jprb,1.0145e-03_jprb,1.0957e-03_jprb/)
1165 kbo( :,51, 7) = (/&
1166  & 6.8674e-04_jprb,7.3388e-04_jprb,7.8672e-04_jprb,8.4662e-04_jprb,9.1942e-04_jprb/)
1167 kbo( :,52, 7) = (/&
1168  & 5.6565e-04_jprb,6.0707e-04_jprb,6.5426e-04_jprb,7.0839e-04_jprb,7.7411e-04_jprb/)
1169 kbo( :,53, 7) = (/&
1170  & 4.6652e-04_jprb,5.0305e-04_jprb,5.4564e-04_jprb,5.9512e-04_jprb,6.5514e-04_jprb/)
1171 kbo( :,54, 7) = (/&
1172  & 3.8020e-04_jprb,4.1066e-04_jprb,4.4674e-04_jprb,4.8863e-04_jprb,5.3927e-04_jprb/)
1173 kbo( :,55, 7) = (/&
1174  & 3.0778e-04_jprb,3.3217e-04_jprb,3.6157e-04_jprb,3.9555e-04_jprb,4.3630e-04_jprb/)
1175 kbo( :,56, 7) = (/&
1176  & 2.4903e-04_jprb,2.6857e-04_jprb,2.9236e-04_jprb,3.2037e-04_jprb,3.5294e-04_jprb/)
1177 kbo( :,57, 7) = (/&
1178  & 2.0141e-04_jprb,2.1696e-04_jprb,2.3614e-04_jprb,2.5898e-04_jprb,2.8543e-04_jprb/)
1179 kbo( :,58, 7) = (/&
1180  & 1.6266e-04_jprb,1.7505e-04_jprb,1.9031e-04_jprb,2.0880e-04_jprb,2.2991e-04_jprb/)
1181 kbo( :,59, 7) = (/&
1182  & 1.3098e-04_jprb,1.4063e-04_jprb,1.5198e-04_jprb,1.6574e-04_jprb,1.8129e-04_jprb/)
1183 kbo( :, 7, 8) = (/&
1184  & 3.3211e+00_jprb,3.8117e+00_jprb,4.3961e+00_jprb,5.0891e+00_jprb,5.9185e+00_jprb/)
1185 kbo( :, 8, 8) = (/&
1186  & 1.8613e+00_jprb,2.0568e+00_jprb,2.2883e+00_jprb,2.5535e+00_jprb,2.8756e+00_jprb/)
1187 kbo( :, 9, 8) = (/&
1188  & 1.2496e+00_jprb,1.3135e+00_jprb,1.3903e+00_jprb,1.4889e+00_jprb,1.6200e+00_jprb/)
1189 kbo( :,10, 8) = (/&
1190  & 1.0270e+00_jprb,1.0590e+00_jprb,1.0952e+00_jprb,1.1413e+00_jprb,1.1993e+00_jprb/)
1191 kbo( :,11, 8) = (/&
1192  & 9.5413e-01_jprb,9.8150e-01_jprb,1.0111e+00_jprb,1.0458e+00_jprb,1.0870e+00_jprb/)
1193 kbo( :,12, 8) = (/&
1194  & 9.3205e-01_jprb,9.5733e-01_jprb,9.8351e-01_jprb,1.0122e+00_jprb,1.0457e+00_jprb/)
1195 kbo( :,13, 8) = (/&
1196  & 9.0876e-01_jprb,9.3132e-01_jprb,9.5428e-01_jprb,9.7851e-01_jprb,1.0060e+00_jprb/)
1197 kbo( :,14, 8) = (/&
1198  & 8.5246e-01_jprb,8.7119e-01_jprb,8.8993e-01_jprb,9.0965e-01_jprb,9.3087e-01_jprb/)
1199 kbo( :,15, 8) = (/&
1200  & 8.0357e-01_jprb,8.1893e-01_jprb,8.3481e-01_jprb,8.5136e-01_jprb,8.6824e-01_jprb/)
1201 kbo( :,16, 8) = (/&
1202  & 7.6497e-01_jprb,7.7909e-01_jprb,7.9306e-01_jprb,8.0699e-01_jprb,8.2094e-01_jprb/)
1203 kbo( :,17, 8) = (/&
1204  & 7.2426e-01_jprb,7.3747e-01_jprb,7.4973e-01_jprb,7.6144e-01_jprb,7.7249e-01_jprb/)
1205 kbo( :,18, 8) = (/&
1206  & 6.8011e-01_jprb,6.9229e-01_jprb,7.0291e-01_jprb,7.1244e-01_jprb,7.2174e-01_jprb/)
1207 kbo( :,19, 8) = (/&
1208  & 6.2929e-01_jprb,6.4006e-01_jprb,6.4901e-01_jprb,6.5727e-01_jprb,6.6513e-01_jprb/)
1209 kbo( :,20, 8) = (/&
1210  & 5.7567e-01_jprb,5.8515e-01_jprb,5.9318e-01_jprb,6.0058e-01_jprb,6.0766e-01_jprb/)
1211 kbo( :,21, 8) = (/&
1212  & 5.1892e-01_jprb,5.2717e-01_jprb,5.3431e-01_jprb,5.4099e-01_jprb,5.4743e-01_jprb/)
1213 kbo( :,22, 8) = (/&
1214  & 4.6089e-01_jprb,4.6796e-01_jprb,4.7423e-01_jprb,4.8007e-01_jprb,4.8563e-01_jprb/)
1215 kbo( :,23, 8) = (/&
1216  & 4.0358e-01_jprb,4.0957e-01_jprb,4.1496e-01_jprb,4.1964e-01_jprb,4.2400e-01_jprb/)
1217 kbo( :,24, 8) = (/&
1218  & 3.4857e-01_jprb,3.5354e-01_jprb,3.5772e-01_jprb,3.6116e-01_jprb,3.6425e-01_jprb/)
1219 kbo( :,25, 8) = (/&
1220  & 2.9819e-01_jprb,3.0212e-01_jprb,3.0511e-01_jprb,3.0743e-01_jprb,3.0973e-01_jprb/)
1221 kbo( :,26, 8) = (/&
1222  & 2.5341e-01_jprb,2.5614e-01_jprb,2.5815e-01_jprb,2.5994e-01_jprb,2.6173e-01_jprb/)
1223 kbo( :,27, 8) = (/&
1224  & 2.1391e-01_jprb,2.1577e-01_jprb,2.1730e-01_jprb,2.1901e-01_jprb,2.2050e-01_jprb/)
1225 kbo( :,28, 8) = (/&
1226  & 1.7949e-01_jprb,1.8088e-01_jprb,1.8241e-01_jprb,1.8396e-01_jprb,1.8539e-01_jprb/)
1227 kbo( :,29, 8) = (/&
1228  & 1.5049e-01_jprb,1.5188e-01_jprb,1.5349e-01_jprb,1.5504e-01_jprb,1.5657e-01_jprb/)
1229 kbo( :,30, 8) = (/&
1230  & 1.2605e-01_jprb,1.2767e-01_jprb,1.2921e-01_jprb,1.3083e-01_jprb,1.3263e-01_jprb/)
1231 kbo( :,31, 8) = (/&
1232  & 1.0607e-01_jprb,1.0765e-01_jprb,1.0930e-01_jprb,1.1112e-01_jprb,1.1342e-01_jprb/)
1233 kbo( :,32, 8) = (/&
1234  & 8.9368e-02_jprb,9.1008e-02_jprb,9.2774e-02_jprb,9.4981e-02_jprb,9.7872e-02_jprb/)
1235 kbo( :,33, 8) = (/&
1236  & 7.5524e-02_jprb,7.7232e-02_jprb,7.9299e-02_jprb,8.2001e-02_jprb,8.5510e-02_jprb/)
1237 kbo( :,34, 8) = (/&
1238  & 6.3951e-02_jprb,6.5799e-02_jprb,6.8200e-02_jprb,7.1324e-02_jprb,7.5176e-02_jprb/)
1239 kbo( :,35, 8) = (/&
1240  & 5.4154e-02_jprb,5.6182e-02_jprb,5.8823e-02_jprb,6.2186e-02_jprb,6.6087e-02_jprb/)
1241 kbo( :,36, 8) = (/&
1242  & 4.5779e-02_jprb,4.7854e-02_jprb,5.0601e-02_jprb,5.3968e-02_jprb,5.7802e-02_jprb/)
1243 kbo( :,37, 8) = (/&
1244  & 3.8721e-02_jprb,4.0789e-02_jprb,4.3532e-02_jprb,4.6821e-02_jprb,5.0588e-02_jprb/)
1245 
1246 IF (lhook) CALL dr_hook('RRTM_KGB8:PART4',1,zhook_handle)
1247 END SUBROUTINE part4
1248 
1249 
1250 SUBROUTINE part5
1251 
1252 REAL(KIND=JPRB) :: ZHOOK_HANDLE
1253 IF (lhook) CALL dr_hook('RRTM_KGB8:PART5',0,zhook_handle)
1254 
1255 
1256 kbo( :,38, 8) = (/&
1257  & 3.2891e-02_jprb,3.4951e-02_jprb,3.7677e-02_jprb,4.0901e-02_jprb,4.4641e-02_jprb/)
1258 kbo( :,39, 8) = (/&
1259  & 2.8118e-02_jprb,3.0183e-02_jprb,3.2884e-02_jprb,3.6081e-02_jprb,3.9837e-02_jprb/)
1260 kbo( :,40, 8) = (/&
1261  & 2.3847e-02_jprb,2.5787e-02_jprb,2.8347e-02_jprb,3.1459e-02_jprb,3.5061e-02_jprb/)
1262 kbo( :,41, 8) = (/&
1263  & 2.0268e-02_jprb,2.2079e-02_jprb,2.4495e-02_jprb,2.7477e-02_jprb,3.0979e-02_jprb/)
1264 kbo( :,42, 8) = (/&
1265  & 1.7304e-02_jprb,1.9004e-02_jprb,2.1294e-02_jprb,2.4161e-02_jprb,2.7579e-02_jprb/)
1266 kbo( :,43, 8) = (/&
1267  & 1.4797e-02_jprb,1.6382e-02_jprb,1.8537e-02_jprb,2.1286e-02_jprb,2.4610e-02_jprb/)
1268 kbo( :,44, 8) = (/&
1269  & 1.2690e-02_jprb,1.4182e-02_jprb,1.6231e-02_jprb,1.8878e-02_jprb,2.2106e-02_jprb/)
1270 kbo( :,45, 8) = (/&
1271  & 1.0930e-02_jprb,1.2370e-02_jprb,1.4353e-02_jprb,1.6936e-02_jprb,2.0100e-02_jprb/)
1272 kbo( :,46, 8) = (/&
1273  & 9.3910e-03_jprb,1.0819e-02_jprb,1.2738e-02_jprb,1.5273e-02_jprb,1.8465e-02_jprb/)
1274 kbo( :,47, 8) = (/&
1275  & 7.9861e-03_jprb,9.3365e-03_jprb,1.1203e-02_jprb,1.3684e-02_jprb,1.6817e-02_jprb/)
1276 kbo( :,48, 8) = (/&
1277  & 6.8013e-03_jprb,8.0839e-03_jprb,9.9438e-03_jprb,1.2411e-02_jprb,1.5563e-02_jprb/)
1278 kbo( :,49, 8) = (/&
1279  & 5.8190e-03_jprb,7.0513e-03_jprb,8.8856e-03_jprb,1.1416e-02_jprb,1.4708e-02_jprb/)
1280 kbo( :,50, 8) = (/&
1281  & 4.9304e-03_jprb,6.0739e-03_jprb,7.8186e-03_jprb,1.0316e-02_jprb,1.3667e-02_jprb/)
1282 kbo( :,51, 8) = (/&
1283  & 4.1610e-03_jprb,5.1921e-03_jprb,6.8130e-03_jprb,9.2232e-03_jprb,1.2553e-02_jprb/)
1284 kbo( :,52, 8) = (/&
1285  & 3.5138e-03_jprb,4.4587e-03_jprb,5.9783e-03_jprb,8.3075e-03_jprb,1.1637e-02_jprb/)
1286 kbo( :,53, 8) = (/&
1287  & 2.9769e-03_jprb,3.8545e-03_jprb,5.3084e-03_jprb,7.5851e-03_jprb,1.0949e-02_jprb/)
1288 kbo( :,54, 8) = (/&
1289  & 2.4427e-03_jprb,3.1932e-03_jprb,4.4660e-03_jprb,6.5058e-03_jprb,9.6124e-03_jprb/)
1290 kbo( :,55, 8) = (/&
1291  & 1.9622e-03_jprb,2.5690e-03_jprb,3.6206e-03_jprb,5.3411e-03_jprb,8.0479e-03_jprb/)
1292 kbo( :,56, 8) = (/&
1293  & 1.5709e-03_jprb,2.0592e-03_jprb,2.9210e-03_jprb,4.3945e-03_jprb,6.6922e-03_jprb/)
1294 kbo( :,57, 8) = (/&
1295  & 1.2535e-03_jprb,1.6436e-03_jprb,2.3438e-03_jprb,3.5705e-03_jprb,5.5260e-03_jprb/)
1296 kbo( :,58, 8) = (/&
1297  & 9.9517e-04_jprb,1.3029e-03_jprb,1.8612e-03_jprb,2.8649e-03_jprb,4.4948e-03_jprb/)
1298 kbo( :,59, 8) = (/&
1299  & 7.8554e-04_jprb,1.0228e-03_jprb,1.4402e-03_jprb,2.2044e-03_jprb,3.4577e-03_jprb/)
1300 kbo( :, 7, 9) = (/&
1301  & 8.6167e+00_jprb,9.9993e+00_jprb,1.1774e+01_jprb,1.3928e+01_jprb,1.6806e+01_jprb/)
1302 kbo( :, 8, 9) = (/&
1303  & 4.6456e+00_jprb,5.1596e+00_jprb,5.8731e+00_jprb,6.7813e+00_jprb,7.8273e+00_jprb/)
1304 kbo( :, 9, 9) = (/&
1305  & 2.8817e+00_jprb,2.9866e+00_jprb,3.1829e+00_jprb,3.4539e+00_jprb,3.7883e+00_jprb/)
1306 kbo( :,10, 9) = (/&
1307  & 2.1848e+00_jprb,2.2145e+00_jprb,2.2894e+00_jprb,2.3929e+00_jprb,2.5188e+00_jprb/)
1308 kbo( :,11, 9) = (/&
1309  & 1.8617e+00_jprb,1.8904e+00_jprb,1.9482e+00_jprb,2.0265e+00_jprb,2.1151e+00_jprb/)
1310 kbo( :,12, 9) = (/&
1311  & 1.7740e+00_jprb,1.8058e+00_jprb,1.8594e+00_jprb,1.9279e+00_jprb,2.0057e+00_jprb/)
1312 kbo( :,13, 9) = (/&
1313  & 1.7170e+00_jprb,1.7519e+00_jprb,1.8033e+00_jprb,1.8660e+00_jprb,1.9366e+00_jprb/)
1314 kbo( :,14, 9) = (/&
1315  & 1.6290e+00_jprb,1.6661e+00_jprb,1.7138e+00_jprb,1.7672e+00_jprb,1.8242e+00_jprb/)
1316 kbo( :,15, 9) = (/&
1317  & 1.6136e+00_jprb,1.6519e+00_jprb,1.6950e+00_jprb,1.7410e+00_jprb,1.7875e+00_jprb/)
1318 kbo( :,16, 9) = (/&
1319  & 1.6442e+00_jprb,1.6834e+00_jprb,1.7244e+00_jprb,1.7672e+00_jprb,1.8100e+00_jprb/)
1320 kbo( :,17, 9) = (/&
1321  & 1.6931e+00_jprb,1.7318e+00_jprb,1.7716e+00_jprb,1.8124e+00_jprb,1.8535e+00_jprb/)
1322 kbo( :,18, 9) = (/&
1323  & 1.7458e+00_jprb,1.7837e+00_jprb,1.8217e+00_jprb,1.8608e+00_jprb,1.8986e+00_jprb/)
1324 kbo( :,19, 9) = (/&
1325  & 1.7845e+00_jprb,1.8215e+00_jprb,1.8581e+00_jprb,1.8942e+00_jprb,1.9287e+00_jprb/)
1326 kbo( :,20, 9) = (/&
1327  & 1.8060e+00_jprb,1.8426e+00_jprb,1.8782e+00_jprb,1.9127e+00_jprb,1.9453e+00_jprb/)
1328 kbo( :,21, 9) = (/&
1329  & 1.8043e+00_jprb,1.8411e+00_jprb,1.8774e+00_jprb,1.9117e+00_jprb,1.9436e+00_jprb/)
1330 kbo( :,22, 9) = (/&
1331  & 1.7831e+00_jprb,1.8215e+00_jprb,1.8592e+00_jprb,1.8938e+00_jprb,1.9262e+00_jprb/)
1332 kbo( :,23, 9) = (/&
1333  & 1.7432e+00_jprb,1.7837e+00_jprb,1.8229e+00_jprb,1.8594e+00_jprb,1.8938e+00_jprb/)
1334 kbo( :,24, 9) = (/&
1335  & 1.6875e+00_jprb,1.7308e+00_jprb,1.7727e+00_jprb,1.8123e+00_jprb,1.8497e+00_jprb/)
1336 kbo( :,25, 9) = (/&
1337  & 1.6225e+00_jprb,1.6694e+00_jprb,1.7148e+00_jprb,1.7578e+00_jprb,1.7985e+00_jprb/)
1338 kbo( :,26, 9) = (/&
1339  & 1.5531e+00_jprb,1.6049e+00_jprb,1.6541e+00_jprb,1.7008e+00_jprb,1.7454e+00_jprb/)
1340 kbo( :,27, 9) = (/&
1341  & 1.4838e+00_jprb,1.5403e+00_jprb,1.5937e+00_jprb,1.6447e+00_jprb,1.6935e+00_jprb/)
1342 kbo( :,28, 9) = (/&
1343  & 1.4175e+00_jprb,1.4786e+00_jprb,1.5364e+00_jprb,1.5921e+00_jprb,1.6457e+00_jprb/)
1344 kbo( :,29, 9) = (/&
1345  & 1.3581e+00_jprb,1.4237e+00_jprb,1.4868e+00_jprb,1.5478e+00_jprb,1.6068e+00_jprb/)
1346 kbo( :,30, 9) = (/&
1347  & 1.3065e+00_jprb,1.3770e+00_jprb,1.4457e+00_jprb,1.5119e+00_jprb,1.5768e+00_jprb/)
1348 kbo( :,31, 9) = (/&
1349  & 1.2654e+00_jprb,1.3417e+00_jprb,1.4156e+00_jprb,1.4877e+00_jprb,1.5592e+00_jprb/)
1350 kbo( :,32, 9) = (/&
1351  & 1.2347e+00_jprb,1.3163e+00_jprb,1.3958e+00_jprb,1.4744e+00_jprb,1.5534e+00_jprb/)
1352 kbo( :,33, 9) = (/&
1353  & 1.2142e+00_jprb,1.3012e+00_jprb,1.3868e+00_jprb,1.4727e+00_jprb,1.5601e+00_jprb/)
1354 kbo( :,34, 9) = (/&
1355  & 1.1993e+00_jprb,1.2916e+00_jprb,1.3831e+00_jprb,1.4762e+00_jprb,1.5688e+00_jprb/)
1356 kbo( :,35, 9) = (/&
1357  & 1.1833e+00_jprb,1.2807e+00_jprb,1.3785e+00_jprb,1.4785e+00_jprb,1.5752e+00_jprb/)
1358 kbo( :,36, 9) = (/&
1359  & 1.1625e+00_jprb,1.2651e+00_jprb,1.3689e+00_jprb,1.4743e+00_jprb,1.5754e+00_jprb/)
1360 kbo( :,37, 9) = (/&
1361  & 1.1303e+00_jprb,1.2371e+00_jprb,1.3460e+00_jprb,1.4555e+00_jprb,1.5610e+00_jprb/)
1362 kbo( :,38, 9) = (/&
1363  & 1.1009e+00_jprb,1.2122e+00_jprb,1.3263e+00_jprb,1.4399e+00_jprb,1.5500e+00_jprb/)
1364 kbo( :,39, 9) = (/&
1365  & 1.0754e+00_jprb,1.1914e+00_jprb,1.3110e+00_jprb,1.4289e+00_jprb,1.5440e+00_jprb/)
1366 kbo( :,40, 9) = (/&
1367  & 1.0372e+00_jprb,1.1560e+00_jprb,1.2790e+00_jprb,1.4000e+00_jprb,1.5190e+00_jprb/)
1368 kbo( :,41, 9) = (/&
1369  & 9.9871e-01_jprb,1.1200e+00_jprb,1.2460e+00_jprb,1.3704e+00_jprb,1.4926e+00_jprb/)
1370 kbo( :,42, 9) = (/&
1371  & 9.6171e-01_jprb,1.0854e+00_jprb,1.2142e+00_jprb,1.3421e+00_jprb,1.4677e+00_jprb/)
1372 kbo( :,43, 9) = (/&
1373  & 9.1903e-01_jprb,1.0445e+00_jprb,1.1757e+00_jprb,1.3075e+00_jprb,1.4366e+00_jprb/)
1374 kbo( :,44, 9) = (/&
1375  & 8.7442e-01_jprb,1.0015e+00_jprb,1.1348e+00_jprb,1.2703e+00_jprb,1.4033e+00_jprb/)
1376 kbo( :,45, 9) = (/&
1377  & 8.3107e-01_jprb,9.5973e-01_jprb,1.0952e+00_jprb,1.2344e+00_jprb,1.3716e+00_jprb/)
1378 kbo( :,46, 9) = (/&
1379  & 7.8543e-01_jprb,9.1559e-01_jprb,1.0528e+00_jprb,1.1955e+00_jprb,1.3366e+00_jprb/)
1380 kbo( :,47, 9) = (/&
1381  & 7.3439e-01_jprb,8.6539e-01_jprb,1.0031e+00_jprb,1.1485e+00_jprb,1.2936e+00_jprb/)
1382 kbo( :,48, 9) = (/&
1383  & 6.8465e-01_jprb,8.1643e-01_jprb,9.5503e-01_jprb,1.1032e+00_jprb,1.2524e+00_jprb/)
1384 kbo( :,49, 9) = (/&
1385  & 6.3687e-01_jprb,7.6933e-01_jprb,9.0975e-01_jprb,1.0608e+00_jprb,1.2144e+00_jprb/)
1386 kbo( :,50, 9) = (/&
1387  & 5.9153e-01_jprb,7.2348e-01_jprb,8.6434e-01_jprb,1.0167e+00_jprb,1.1731e+00_jprb/)
1388 kbo( :,51, 9) = (/&
1389  & 5.4771e-01_jprb,6.7868e-01_jprb,8.1882e-01_jprb,9.7145e-01_jprb,1.1300e+00_jprb/)
1390 kbo( :,52, 9) = (/&
1391  & 5.0614e-01_jprb,6.3574e-01_jprb,7.7544e-01_jprb,9.2863e-01_jprb,1.0894e+00_jprb/)
1392 kbo( :,53, 9) = (/&
1393  & 4.6783e-01_jprb,5.9578e-01_jprb,7.3527e-01_jprb,8.8939e-01_jprb,1.0528e+00_jprb/)
1394 kbo( :,54, 9) = (/&
1395  & 4.2858e-01_jprb,5.5309e-01_jprb,6.8975e-01_jprb,8.4016e-01_jprb,1.0034e+00_jprb/)
1396 kbo( :,55, 9) = (/&
1397  & 3.8876e-01_jprb,5.0900e-01_jprb,6.4137e-01_jprb,7.8611e-01_jprb,9.4586e-01_jprb/)
1398 kbo( :,56, 9) = (/&
1399  & 3.5092e-01_jprb,4.6656e-01_jprb,5.9498e-01_jprb,7.3470e-01_jprb,8.8954e-01_jprb/)
1400 kbo( :,57, 9) = (/&
1401  & 3.1483e-01_jprb,4.2575e-01_jprb,5.4997e-01_jprb,6.8552e-01_jprb,8.3410e-01_jprb/)
1402 kbo( :,58, 9) = (/&
1403  & 2.8132e-01_jprb,3.8740e-01_jprb,5.0731e-01_jprb,6.3876e-01_jprb,7.8141e-01_jprb/)
1404 kbo( :,59, 9) = (/&
1405  & 2.6003e-01_jprb,3.6342e-01_jprb,4.7940e-01_jprb,6.0625e-01_jprb,7.4174e-01_jprb/)
1406 kbo( :, 7,10) = (/&
1407  & 1.5697e+01_jprb,1.7679e+01_jprb,2.1528e+01_jprb,3.0021e+01_jprb,4.1007e+01_jprb/)
1408 kbo( :, 8,10) = (/&
1409  & 9.2952e+00_jprb,1.0046e+01_jprb,1.1296e+01_jprb,1.2956e+01_jprb,1.5022e+01_jprb/)
1410 kbo( :, 9,10) = (/&
1411  & 6.0955e+00_jprb,6.1520e+00_jprb,6.4442e+00_jprb,6.9113e+00_jprb,7.6410e+00_jprb/)
1412 kbo( :,10,10) = (/&
1413  & 4.2479e+00_jprb,4.2558e+00_jprb,4.3823e+00_jprb,4.5849e+00_jprb,4.8443e+00_jprb/)
1414 kbo( :,11,10) = (/&
1415  & 3.5882e+00_jprb,3.5777e+00_jprb,3.6465e+00_jprb,3.7844e+00_jprb,3.9918e+00_jprb/)
1416 kbo( :,12,10) = (/&
1417  & 3.3077e+00_jprb,3.3279e+00_jprb,3.4118e+00_jprb,3.5356e+00_jprb,3.6964e+00_jprb/)
1418 kbo( :,13,10) = (/&
1419  & 3.1132e+00_jprb,3.1610e+00_jprb,3.2411e+00_jprb,3.3566e+00_jprb,3.4933e+00_jprb/)
1420 kbo( :,14,10) = (/&
1421  & 2.6876e+00_jprb,2.7279e+00_jprb,2.7858e+00_jprb,2.8724e+00_jprb,2.9756e+00_jprb/)
1422 kbo( :,15,10) = (/&
1423  & 2.5898e+00_jprb,2.6527e+00_jprb,2.7165e+00_jprb,2.7974e+00_jprb,2.8915e+00_jprb/)
1424 kbo( :,16,10) = (/&
1425  & 2.7402e+00_jprb,2.8161e+00_jprb,2.8979e+00_jprb,2.9945e+00_jprb,3.0907e+00_jprb/)
1426 kbo( :,17,10) = (/&
1427  & 2.9795e+00_jprb,3.0670e+00_jprb,3.1571e+00_jprb,3.2540e+00_jprb,3.3473e+00_jprb/)
1428 kbo( :,18,10) = (/&
1429  & 3.2307e+00_jprb,3.3198e+00_jprb,3.4108e+00_jprb,3.5052e+00_jprb,3.6016e+00_jprb/)
1430 kbo( :,19,10) = (/&
1431  & 3.4826e+00_jprb,3.5697e+00_jprb,3.6620e+00_jprb,3.7547e+00_jprb,3.8494e+00_jprb/)
1432 kbo( :,20,10) = (/&
1433  & 3.7406e+00_jprb,3.8282e+00_jprb,3.9146e+00_jprb,4.0064e+00_jprb,4.0952e+00_jprb/)
1434 kbo( :,21,10) = (/&
1435  & 4.0052e+00_jprb,4.0906e+00_jprb,4.1674e+00_jprb,4.2500e+00_jprb,4.3292e+00_jprb/)
1436 kbo( :,22,10) = (/&
1437  & 4.2533e+00_jprb,4.3366e+00_jprb,4.4069e+00_jprb,4.4888e+00_jprb,4.5601e+00_jprb/)
1438 kbo( :,23,10) = (/&
1439  & 4.4651e+00_jprb,4.5450e+00_jprb,4.6244e+00_jprb,4.7038e+00_jprb,4.7723e+00_jprb/)
1440 kbo( :,24,10) = (/&
1441  & 4.6357e+00_jprb,4.7250e+00_jprb,4.8121e+00_jprb,4.8897e+00_jprb,4.9609e+00_jprb/)
1442 kbo( :,25,10) = (/&
1443  & 4.7760e+00_jprb,4.8704e+00_jprb,4.9689e+00_jprb,5.0528e+00_jprb,5.1275e+00_jprb/)
1444 kbo( :,26,10) = (/&
1445  & 4.8874e+00_jprb,4.9911e+00_jprb,5.1002e+00_jprb,5.1918e+00_jprb,5.2692e+00_jprb/)
1446 kbo( :,27,10) = (/&
1447  & 4.9748e+00_jprb,5.0953e+00_jprb,5.2124e+00_jprb,5.3083e+00_jprb,5.3926e+00_jprb/)
1448 kbo( :,28,10) = (/&
1449  & 5.0502e+00_jprb,5.1884e+00_jprb,5.3119e+00_jprb,5.4148e+00_jprb,5.5003e+00_jprb/)
1450 kbo( :,29,10) = (/&
1451  & 5.1279e+00_jprb,5.2762e+00_jprb,5.4025e+00_jprb,5.5131e+00_jprb,5.6036e+00_jprb/)
1452 kbo( :,30,10) = (/&
1453  & 5.2044e+00_jprb,5.3581e+00_jprb,5.4889e+00_jprb,5.6058e+00_jprb,5.6994e+00_jprb/)
1454 kbo( :,31,10) = (/&
1455  & 5.2832e+00_jprb,5.4378e+00_jprb,5.5764e+00_jprb,5.6975e+00_jprb,5.7881e+00_jprb/)
1456 kbo( :,32,10) = (/&
1457  & 5.3589e+00_jprb,5.5221e+00_jprb,5.6642e+00_jprb,5.7794e+00_jprb,5.8684e+00_jprb/)
1458 kbo( :,33,10) = (/&
1459  & 5.4422e+00_jprb,5.6051e+00_jprb,5.7472e+00_jprb,5.8589e+00_jprb,5.9492e+00_jprb/)
1460 kbo( :,34,10) = (/&
1461  & 5.5143e+00_jprb,5.6758e+00_jprb,5.8184e+00_jprb,5.9324e+00_jprb,6.0581e+00_jprb/)
1462 kbo( :,35,10) = (/&
1463  & 5.5663e+00_jprb,5.7307e+00_jprb,5.8759e+00_jprb,6.0007e+00_jprb,6.1676e+00_jprb/)
1464 kbo( :,36,10) = (/&
1465  & 5.5957e+00_jprb,5.7658e+00_jprb,5.9172e+00_jprb,6.0677e+00_jprb,6.2475e+00_jprb/)
1466 kbo( :,37,10) = (/&
1467  & 5.5911e+00_jprb,5.7698e+00_jprb,5.9275e+00_jprb,6.1033e+00_jprb,6.2899e+00_jprb/)
1468 kbo( :,38,10) = (/&
1469  & 5.5847e+00_jprb,5.7702e+00_jprb,5.9359e+00_jprb,6.1377e+00_jprb,6.3291e+00_jprb/)
1470 kbo( :,39,10) = (/&
1471  & 5.5785e+00_jprb,5.7701e+00_jprb,5.9474e+00_jprb,6.1752e+00_jprb,6.3726e+00_jprb/)
1472 kbo( :,40,10) = (/&
1473  & 5.5411e+00_jprb,5.7435e+00_jprb,5.9235e+00_jprb,6.1610e+00_jprb,6.3723e+00_jprb/)
1474 kbo( :,41,10) = (/&
1475  & 5.4950e+00_jprb,5.7121e+00_jprb,5.8935e+00_jprb,6.1377e+00_jprb,6.3632e+00_jprb/)
1476 kbo( :,42,10) = (/&
1477  & 5.4435e+00_jprb,5.6770e+00_jprb,5.8638e+00_jprb,6.1135e+00_jprb,6.3531e+00_jprb/)
1478 kbo( :,43,10) = (/&
1479  & 5.3711e+00_jprb,5.6253e+00_jprb,5.8214e+00_jprb,6.0734e+00_jprb,6.3283e+00_jprb/)
1480 kbo( :,44,10) = (/&
1481  & 5.2841e+00_jprb,5.5611e+00_jprb,5.7743e+00_jprb,6.0249e+00_jprb,6.2949e+00_jprb/)
1482 kbo( :,45,10) = (/&
1483  & 5.1898e+00_jprb,5.4904e+00_jprb,5.7247e+00_jprb,5.9791e+00_jprb,6.2621e+00_jprb/)
1484 kbo( :,46,10) = (/&
1485  & 5.0867e+00_jprb,5.4031e+00_jprb,5.6642e+00_jprb,5.9247e+00_jprb,6.2201e+00_jprb/)
1486 kbo( :,47,10) = (/&
1487  & 4.9588e+00_jprb,5.2939e+00_jprb,5.5834e+00_jprb,5.8490e+00_jprb,6.1549e+00_jprb/)
1488 kbo( :,48,10) = (/&
1489  & 4.8216e+00_jprb,5.1792e+00_jprb,5.4914e+00_jprb,5.7730e+00_jprb,6.0921e+00_jprb/)
1490 kbo( :,49,10) = (/&
1491  & 4.6738e+00_jprb,5.0604e+00_jprb,5.3912e+00_jprb,5.6961e+00_jprb,6.0396e+00_jprb/)
1492 kbo( :,50,10) = (/&
1493  & 4.5187e+00_jprb,4.9359e+00_jprb,5.2845e+00_jprb,5.6050e+00_jprb,5.9698e+00_jprb/)
1494 kbo( :,51,10) = (/&
1495  & 4.3577e+00_jprb,4.8020e+00_jprb,5.1743e+00_jprb,5.5057e+00_jprb,5.8886e+00_jprb/)
1496 kbo( :,52,10) = (/&
1497  & 4.1875e+00_jprb,4.6601e+00_jprb,5.0599e+00_jprb,5.4039e+00_jprb,5.8085e+00_jprb/)
1498 kbo( :,53,10) = (/&
1499  & 4.0066e+00_jprb,4.5088e+00_jprb,4.9396e+00_jprb,5.3035e+00_jprb,5.7324e+00_jprb/)
1500 kbo( :,54,10) = (/&
1501  & 3.8264e+00_jprb,4.3529e+00_jprb,4.8099e+00_jprb,5.1931e+00_jprb,5.6043e+00_jprb/)
1502 kbo( :,55,10) = (/&
1503  & 3.6414e+00_jprb,4.1888e+00_jprb,4.6681e+00_jprb,5.0739e+00_jprb,5.4467e+00_jprb/)
1504 kbo( :,56,10) = (/&
1505  & 3.4467e+00_jprb,4.0187e+00_jprb,4.5175e+00_jprb,4.9476e+00_jprb,5.3119e+00_jprb/)
1506 kbo( :,57,10) = (/&
1507  & 3.2449e+00_jprb,3.8431e+00_jprb,4.3635e+00_jprb,4.8167e+00_jprb,5.1973e+00_jprb/)
1508 kbo( :,58,10) = (/&
1509  & 3.0504e+00_jprb,3.6676e+00_jprb,4.2101e+00_jprb,4.6788e+00_jprb,5.0833e+00_jprb/)
1510 kbo( :,59,10) = (/&
1511  & 2.9706e+00_jprb,3.5768e+00_jprb,4.1308e+00_jprb,4.6019e+00_jprb,5.0071e+00_jprb/)
1512 kbo( :, 7,11) = (/&
1513  & 1.7920e+01_jprb,2.1641e+01_jprb,2.9884e+01_jprb,4.1982e+01_jprb,5.8086e+01_jprb/)
1514 kbo( :, 8,11) = (/&
1515  & 1.1126e+01_jprb,1.2099e+01_jprb,1.3449e+01_jprb,1.5213e+01_jprb,1.8753e+01_jprb/)
1516 kbo( :, 9,11) = (/&
1517  & 7.7621e+00_jprb,7.7863e+00_jprb,8.0891e+00_jprb,8.6591e+00_jprb,9.4525e+00_jprb/)
1518 kbo( :,10,11) = (/&
1519  & 5.3764e+00_jprb,5.3165e+00_jprb,5.3549e+00_jprb,5.6476e+00_jprb,6.0580e+00_jprb/)
1520 kbo( :,11,11) = (/&
1521  & 4.4238e+00_jprb,4.4268e+00_jprb,4.4710e+00_jprb,4.6447e+00_jprb,4.9156e+00_jprb/)
1522 kbo( :,12,11) = (/&
1523  & 4.1742e+00_jprb,4.1694e+00_jprb,4.2134e+00_jprb,4.3731e+00_jprb,4.5989e+00_jprb/)
1524 kbo( :,13,11) = (/&
1525  & 3.8539e+00_jprb,3.8850e+00_jprb,3.9664e+00_jprb,4.1051e+00_jprb,4.2861e+00_jprb/)
1526 kbo( :,14,11) = (/&
1527  & 3.3455e+00_jprb,3.3983e+00_jprb,3.4591e+00_jprb,3.5679e+00_jprb,3.6998e+00_jprb/)
1528 kbo( :,15,11) = (/&
1529  & 3.0374e+00_jprb,3.0982e+00_jprb,3.1712e+00_jprb,3.2728e+00_jprb,3.3905e+00_jprb/)
1530 kbo( :,16,11) = (/&
1531  & 3.2400e+00_jprb,3.3230e+00_jprb,3.4115e+00_jprb,3.5107e+00_jprb,3.6327e+00_jprb/)
1532 kbo( :,17,11) = (/&
1533  & 3.5796e+00_jprb,3.6714e+00_jprb,3.7619e+00_jprb,3.8672e+00_jprb,3.9895e+00_jprb/)
1534 kbo( :,18,11) = (/&
1535  & 3.9339e+00_jprb,4.0372e+00_jprb,4.1451e+00_jprb,4.2637e+00_jprb,4.3878e+00_jprb/)
1536 kbo( :,19,11) = (/&
1537  & 4.3003e+00_jprb,4.4193e+00_jprb,4.5347e+00_jprb,4.6623e+00_jprb,4.7825e+00_jprb/)
1538 kbo( :,20,11) = (/&
1539  & 4.6837e+00_jprb,4.8067e+00_jprb,4.9249e+00_jprb,5.0479e+00_jprb,5.1713e+00_jprb/)
1540 kbo( :,21,11) = (/&
1541  & 5.0626e+00_jprb,5.1843e+00_jprb,5.2993e+00_jprb,5.4194e+00_jprb,5.5447e+00_jprb/)
1542 kbo( :,22,11) = (/&
1543  & 5.4464e+00_jprb,5.5600e+00_jprb,5.6663e+00_jprb,5.7827e+00_jprb,5.9026e+00_jprb/)
1544 kbo( :,23,11) = (/&
1545  & 5.8230e+00_jprb,5.9290e+00_jprb,6.0201e+00_jprb,6.1295e+00_jprb,6.2404e+00_jprb/)
1546 
1547 IF (lhook) CALL dr_hook('RRTM_KGB8:PART5',1,zhook_handle)
1548 END SUBROUTINE part5
1549 
1550 
1551 SUBROUTINE part6
1552 
1553 REAL(KIND=JPRB) :: ZHOOK_HANDLE
1554 IF (lhook) CALL dr_hook('RRTM_KGB8:PART6',0,zhook_handle)
1555 
1556 
1557 kbo( :,24,11) = (/&
1558  & 6.1873e+00_jprb,6.2763e+00_jprb,6.3564e+00_jprb,6.4571e+00_jprb,6.5535e+00_jprb/)
1559 kbo( :,25,11) = (/&
1560  & 6.5161e+00_jprb,6.5971e+00_jprb,6.6674e+00_jprb,6.7623e+00_jprb,6.8469e+00_jprb/)
1561 kbo( :,26,11) = (/&
1562  & 6.8093e+00_jprb,6.8834e+00_jprb,6.9596e+00_jprb,7.0463e+00_jprb,7.1184e+00_jprb/)
1563 kbo( :,27,11) = (/&
1564  & 7.0690e+00_jprb,7.1424e+00_jprb,7.2255e+00_jprb,7.3026e+00_jprb,7.3674e+00_jprb/)
1565 kbo( :,28,11) = (/&
1566  & 7.2957e+00_jprb,7.3779e+00_jprb,7.4665e+00_jprb,7.5315e+00_jprb,7.5874e+00_jprb/)
1567 kbo( :,29,11) = (/&
1568  & 7.4992e+00_jprb,7.5961e+00_jprb,7.6823e+00_jprb,7.7381e+00_jprb,7.7862e+00_jprb/)
1569 kbo( :,30,11) = (/&
1570  & 7.6816e+00_jprb,7.7926e+00_jprb,7.8689e+00_jprb,7.9230e+00_jprb,7.9632e+00_jprb/)
1571 kbo( :,31,11) = (/&
1572  & 7.8556e+00_jprb,7.9647e+00_jprb,8.0377e+00_jprb,8.0903e+00_jprb,8.1303e+00_jprb/)
1573 kbo( :,32,11) = (/&
1574  & 8.0202e+00_jprb,8.1171e+00_jprb,8.1880e+00_jprb,8.2406e+00_jprb,8.2756e+00_jprb/)
1575 kbo( :,33,11) = (/&
1576  & 8.1619e+00_jprb,8.2627e+00_jprb,8.3314e+00_jprb,8.3764e+00_jprb,8.4039e+00_jprb/)
1577 kbo( :,34,11) = (/&
1578  & 8.2897e+00_jprb,8.3916e+00_jprb,8.4495e+00_jprb,8.4834e+00_jprb,8.5104e+00_jprb/)
1579 kbo( :,35,11) = (/&
1580  & 8.3973e+00_jprb,8.4969e+00_jprb,8.5504e+00_jprb,8.5788e+00_jprb,8.6250e+00_jprb/)
1581 kbo( :,36,11) = (/&
1582  & 8.4783e+00_jprb,8.5783e+00_jprb,8.6329e+00_jprb,8.6663e+00_jprb,8.7603e+00_jprb/)
1583 kbo( :,37,11) = (/&
1584  & 8.5262e+00_jprb,8.6348e+00_jprb,8.6984e+00_jprb,8.7369e+00_jprb,8.8563e+00_jprb/)
1585 kbo( :,38,11) = (/&
1586  & 8.5648e+00_jprb,8.6833e+00_jprb,8.7565e+00_jprb,8.8061e+00_jprb,8.9518e+00_jprb/)
1587 kbo( :,39,11) = (/&
1588  & 8.5959e+00_jprb,8.7278e+00_jprb,8.8134e+00_jprb,8.8823e+00_jprb,9.0526e+00_jprb/)
1589 kbo( :,40,11) = (/&
1590  & 8.5957e+00_jprb,8.7419e+00_jprb,8.8442e+00_jprb,8.9192e+00_jprb,9.0935e+00_jprb/)
1591 kbo( :,41,11) = (/&
1592  & 8.5854e+00_jprb,8.7451e+00_jprb,8.8638e+00_jprb,8.9464e+00_jprb,9.1244e+00_jprb/)
1593 kbo( :,42,11) = (/&
1594  & 8.5691e+00_jprb,8.7426e+00_jprb,8.8772e+00_jprb,8.9702e+00_jprb,9.1549e+00_jprb/)
1595 kbo( :,43,11) = (/&
1596  & 8.5353e+00_jprb,8.7238e+00_jprb,8.8789e+00_jprb,8.9815e+00_jprb,9.1732e+00_jprb/)
1597 kbo( :,44,11) = (/&
1598  & 8.4888e+00_jprb,8.6962e+00_jprb,8.8660e+00_jprb,8.9836e+00_jprb,9.1847e+00_jprb/)
1599 kbo( :,45,11) = (/&
1600  & 8.4356e+00_jprb,8.6623e+00_jprb,8.8484e+00_jprb,8.9837e+00_jprb,9.1994e+00_jprb/)
1601 kbo( :,46,11) = (/&
1602  & 8.3622e+00_jprb,8.6149e+00_jprb,8.8200e+00_jprb,8.9745e+00_jprb,9.2060e+00_jprb/)
1603 kbo( :,47,11) = (/&
1604  & 8.2619e+00_jprb,8.5445e+00_jprb,8.7739e+00_jprb,8.9475e+00_jprb,9.1875e+00_jprb/)
1605 kbo( :,48,11) = (/&
1606  & 8.1513e+00_jprb,8.4680e+00_jprb,8.7219e+00_jprb,8.9176e+00_jprb,9.1678e+00_jprb/)
1607 kbo( :,49,11) = (/&
1608  & 8.0316e+00_jprb,8.3787e+00_jprb,8.6678e+00_jprb,8.8862e+00_jprb,9.1522e+00_jprb/)
1609 kbo( :,50,11) = (/&
1610  & 7.8984e+00_jprb,8.2757e+00_jprb,8.5998e+00_jprb,8.8430e+00_jprb,9.1103e+00_jprb/)
1611 kbo( :,51,11) = (/&
1612  & 7.7437e+00_jprb,8.1650e+00_jprb,8.5164e+00_jprb,8.7904e+00_jprb,9.0499e+00_jprb/)
1613 kbo( :,52,11) = (/&
1614  & 7.5822e+00_jprb,8.0442e+00_jprb,8.4217e+00_jprb,8.7308e+00_jprb,8.9942e+00_jprb/)
1615 kbo( :,53,11) = (/&
1616  & 7.4003e+00_jprb,7.9114e+00_jprb,8.3203e+00_jprb,8.6646e+00_jprb,8.9454e+00_jprb/)
1617 kbo( :,54,11) = (/&
1618  & 7.2039e+00_jprb,7.7594e+00_jprb,8.2013e+00_jprb,8.5703e+00_jprb,8.8555e+00_jprb/)
1619 kbo( :,55,11) = (/&
1620  & 6.9900e+00_jprb,7.5960e+00_jprb,8.0681e+00_jprb,8.4581e+00_jprb,8.7673e+00_jprb/)
1621 kbo( :,56,11) = (/&
1622  & 6.7720e+00_jprb,7.4183e+00_jprb,7.9272e+00_jprb,8.3307e+00_jprb,8.6758e+00_jprb/)
1623 kbo( :,57,11) = (/&
1624  & 6.5509e+00_jprb,7.2181e+00_jprb,7.7728e+00_jprb,8.2049e+00_jprb,8.5685e+00_jprb/)
1625 kbo( :,58,11) = (/&
1626  & 6.3303e+00_jprb,7.0170e+00_jprb,7.6150e+00_jprb,8.0806e+00_jprb,8.4555e+00_jprb/)
1627 kbo( :,59,11) = (/&
1628  & 6.2363e+00_jprb,6.9228e+00_jprb,7.5131e+00_jprb,7.9939e+00_jprb,8.3670e+00_jprb/)
1629 kbo( :, 7,12) = (/&
1630  & 2.2304e+01_jprb,3.2911e+01_jprb,4.6319e+01_jprb,6.2557e+01_jprb,8.3356e+01_jprb/)
1631 kbo( :, 8,12) = (/&
1632  & 1.3203e+01_jprb,1.4115e+01_jprb,1.5516e+01_jprb,1.9088e+01_jprb,2.6621e+01_jprb/)
1633 kbo( :, 9,12) = (/&
1634  & 9.6210e+00_jprb,9.7022e+00_jprb,9.9693e+00_jprb,1.0635e+01_jprb,1.1509e+01_jprb/)
1635 kbo( :,10,12) = (/&
1636  & 6.9200e+00_jprb,6.8772e+00_jprb,6.8479e+00_jprb,7.1633e+00_jprb,7.6773e+00_jprb/)
1637 kbo( :,11,12) = (/&
1638  & 5.3676e+00_jprb,5.4048e+00_jprb,5.4687e+00_jprb,5.6602e+00_jprb,5.9583e+00_jprb/)
1639 kbo( :,12,12) = (/&
1640  & 5.2136e+00_jprb,5.2336e+00_jprb,5.2831e+00_jprb,5.4582e+00_jprb,5.7388e+00_jprb/)
1641 kbo( :,13,12) = (/&
1642  & 4.8924e+00_jprb,4.9073e+00_jprb,4.9522e+00_jprb,5.1280e+00_jprb,5.3932e+00_jprb/)
1643 kbo( :,14,12) = (/&
1644  & 4.0853e+00_jprb,4.1772e+00_jprb,4.2731e+00_jprb,4.4007e+00_jprb,4.5816e+00_jprb/)
1645 kbo( :,15,12) = (/&
1646  & 3.8900e+00_jprb,3.9892e+00_jprb,4.0771e+00_jprb,4.2126e+00_jprb,4.4082e+00_jprb/)
1647 kbo( :,16,12) = (/&
1648  & 4.1327e+00_jprb,4.2242e+00_jprb,4.3125e+00_jprb,4.4391e+00_jprb,4.6138e+00_jprb/)
1649 kbo( :,17,12) = (/&
1650  & 4.4414e+00_jprb,4.5415e+00_jprb,4.6376e+00_jprb,4.7581e+00_jprb,4.9174e+00_jprb/)
1651 kbo( :,18,12) = (/&
1652  & 4.8741e+00_jprb,4.9856e+00_jprb,5.0865e+00_jprb,5.2000e+00_jprb,5.3496e+00_jprb/)
1653 kbo( :,19,12) = (/&
1654  & 5.3942e+00_jprb,5.5159e+00_jprb,5.6209e+00_jprb,5.7303e+00_jprb,5.8792e+00_jprb/)
1655 kbo( :,20,12) = (/&
1656  & 5.9449e+00_jprb,6.0804e+00_jprb,6.1977e+00_jprb,6.3136e+00_jprb,6.4625e+00_jprb/)
1657 kbo( :,21,12) = (/&
1658  & 6.5083e+00_jprb,6.6571e+00_jprb,6.7844e+00_jprb,6.9105e+00_jprb,7.0578e+00_jprb/)
1659 kbo( :,22,12) = (/&
1660  & 7.0948e+00_jprb,7.2430e+00_jprb,7.3777e+00_jprb,7.5057e+00_jprb,7.6548e+00_jprb/)
1661 kbo( :,23,12) = (/&
1662  & 7.6728e+00_jprb,7.8216e+00_jprb,7.9521e+00_jprb,8.0848e+00_jprb,8.2305e+00_jprb/)
1663 kbo( :,24,12) = (/&
1664  & 8.2357e+00_jprb,8.3751e+00_jprb,8.4992e+00_jprb,8.6326e+00_jprb,8.7728e+00_jprb/)
1665 kbo( :,25,12) = (/&
1666  & 8.7737e+00_jprb,8.9042e+00_jprb,9.0205e+00_jprb,9.1429e+00_jprb,9.2764e+00_jprb/)
1667 kbo( :,26,12) = (/&
1668  & 9.2933e+00_jprb,9.4039e+00_jprb,9.4975e+00_jprb,9.6155e+00_jprb,9.7364e+00_jprb/)
1669 kbo( :,27,12) = (/&
1670  & 9.7761e+00_jprb,9.8603e+00_jprb,9.9374e+00_jprb,1.0052e+01_jprb,1.0156e+01_jprb/)
1671 kbo( :,28,12) = (/&
1672  & 1.0209e+01_jprb,1.0271e+01_jprb,1.0341e+01_jprb,1.0444e+01_jprb,1.0534e+01_jprb/)
1673 kbo( :,29,12) = (/&
1674  & 1.0592e+01_jprb,1.0638e+01_jprb,1.0711e+01_jprb,1.0795e+01_jprb,1.0874e+01_jprb/)
1675 kbo( :,30,12) = (/&
1676  & 1.0926e+01_jprb,1.0968e+01_jprb,1.1042e+01_jprb,1.1108e+01_jprb,1.1175e+01_jprb/)
1677 kbo( :,31,12) = (/&
1678  & 1.1210e+01_jprb,1.1270e+01_jprb,1.1330e+01_jprb,1.1391e+01_jprb,1.1455e+01_jprb/)
1679 kbo( :,32,12) = (/&
1680  & 1.1473e+01_jprb,1.1530e+01_jprb,1.1583e+01_jprb,1.1643e+01_jprb,1.1703e+01_jprb/)
1681 kbo( :,33,12) = (/&
1682  & 1.1714e+01_jprb,1.1754e+01_jprb,1.1808e+01_jprb,1.1874e+01_jprb,1.1936e+01_jprb/)
1683 kbo( :,34,12) = (/&
1684  & 1.1910e+01_jprb,1.1948e+01_jprb,1.2008e+01_jprb,1.2077e+01_jprb,1.2125e+01_jprb/)
1685 kbo( :,35,12) = (/&
1686  & 1.2080e+01_jprb,1.2122e+01_jprb,1.2185e+01_jprb,1.2249e+01_jprb,1.2289e+01_jprb/)
1687 kbo( :,36,12) = (/&
1688  & 1.2230e+01_jprb,1.2275e+01_jprb,1.2329e+01_jprb,1.2385e+01_jprb,1.2434e+01_jprb/)
1689 kbo( :,37,12) = (/&
1690  & 1.2355e+01_jprb,1.2395e+01_jprb,1.2440e+01_jprb,1.2491e+01_jprb,1.2554e+01_jprb/)
1691 kbo( :,38,12) = (/&
1692  & 1.2468e+01_jprb,1.2508e+01_jprb,1.2543e+01_jprb,1.2592e+01_jprb,1.2683e+01_jprb/)
1693 kbo( :,39,12) = (/&
1694  & 1.2575e+01_jprb,1.2612e+01_jprb,1.2642e+01_jprb,1.2692e+01_jprb,1.2838e+01_jprb/)
1695 kbo( :,40,12) = (/&
1696  & 1.2650e+01_jprb,1.2686e+01_jprb,1.2711e+01_jprb,1.2759e+01_jprb,1.2904e+01_jprb/)
1697 kbo( :,41,12) = (/&
1698  & 1.2712e+01_jprb,1.2745e+01_jprb,1.2773e+01_jprb,1.2817e+01_jprb,1.2955e+01_jprb/)
1699 kbo( :,42,12) = (/&
1700  & 1.2767e+01_jprb,1.2799e+01_jprb,1.2828e+01_jprb,1.2873e+01_jprb,1.3007e+01_jprb/)
1701 kbo( :,43,12) = (/&
1702  & 1.2813e+01_jprb,1.2848e+01_jprb,1.2879e+01_jprb,1.2924e+01_jprb,1.3044e+01_jprb/)
1703 kbo( :,44,12) = (/&
1704  & 1.2854e+01_jprb,1.2894e+01_jprb,1.2928e+01_jprb,1.2974e+01_jprb,1.3081e+01_jprb/)
1705 kbo( :,45,12) = (/&
1706  & 1.2883e+01_jprb,1.2938e+01_jprb,1.2974e+01_jprb,1.3025e+01_jprb,1.3125e+01_jprb/)
1707 kbo( :,46,12) = (/&
1708  & 1.2900e+01_jprb,1.2975e+01_jprb,1.3019e+01_jprb,1.3074e+01_jprb,1.3167e+01_jprb/)
1709 kbo( :,47,12) = (/&
1710  & 1.2899e+01_jprb,1.3003e+01_jprb,1.3052e+01_jprb,1.3111e+01_jprb,1.3185e+01_jprb/)
1711 kbo( :,48,12) = (/&
1712  & 1.2888e+01_jprb,1.3016e+01_jprb,1.3084e+01_jprb,1.3147e+01_jprb,1.3217e+01_jprb/)
1713 kbo( :,49,12) = (/&
1714  & 1.2858e+01_jprb,1.3028e+01_jprb,1.3122e+01_jprb,1.3196e+01_jprb,1.3269e+01_jprb/)
1715 kbo( :,50,12) = (/&
1716  & 1.2801e+01_jprb,1.3021e+01_jprb,1.3135e+01_jprb,1.3222e+01_jprb,1.3293e+01_jprb/)
1717 kbo( :,51,12) = (/&
1718  & 1.2720e+01_jprb,1.2990e+01_jprb,1.3139e+01_jprb,1.3235e+01_jprb,1.3314e+01_jprb/)
1719 kbo( :,52,12) = (/&
1720  & 1.2625e+01_jprb,1.2948e+01_jprb,1.3140e+01_jprb,1.3259e+01_jprb,1.3347e+01_jprb/)
1721 kbo( :,53,12) = (/&
1722  & 1.2524e+01_jprb,1.2897e+01_jprb,1.3137e+01_jprb,1.3283e+01_jprb,1.3383e+01_jprb/)
1723 kbo( :,54,12) = (/&
1724  & 1.2387e+01_jprb,1.2811e+01_jprb,1.3084e+01_jprb,1.3257e+01_jprb,1.3377e+01_jprb/)
1725 kbo( :,55,12) = (/&
1726  & 1.2253e+01_jprb,1.2679e+01_jprb,1.3005e+01_jprb,1.3202e+01_jprb,1.3339e+01_jprb/)
1727 kbo( :,56,12) = (/&
1728  & 1.2121e+01_jprb,1.2542e+01_jprb,1.2916e+01_jprb,1.3156e+01_jprb,1.3289e+01_jprb/)
1729 kbo( :,57,12) = (/&
1730  & 1.1979e+01_jprb,1.2408e+01_jprb,1.2809e+01_jprb,1.3086e+01_jprb,1.3246e+01_jprb/)
1731 kbo( :,58,12) = (/&
1732  & 1.1823e+01_jprb,1.2282e+01_jprb,1.2681e+01_jprb,1.3001e+01_jprb,1.3194e+01_jprb/)
1733 kbo( :,59,12) = (/&
1734  & 1.1755e+01_jprb,1.2232e+01_jprb,1.2597e+01_jprb,1.2896e+01_jprb,1.3110e+01_jprb/)
1735 kbo( :, 7,13) = (/&
1736  & 3.5643e+01_jprb,5.1949e+01_jprb,7.4063e+01_jprb,1.0270e+02_jprb,1.3794e+02_jprb/)
1737 kbo( :, 8,13) = (/&
1738  & 1.5141e+01_jprb,1.6031e+01_jprb,1.9997e+01_jprb,2.8469e+01_jprb,4.0147e+01_jprb/)
1739 kbo( :, 9,13) = (/&
1740  & 1.1387e+01_jprb,1.1580e+01_jprb,1.1786e+01_jprb,1.2550e+01_jprb,1.3679e+01_jprb/)
1741 kbo( :,10,13) = (/&
1742  & 8.4794e+00_jprb,8.5268e+00_jprb,8.5378e+00_jprb,8.7582e+00_jprb,9.4039e+00_jprb/)
1743 kbo( :,11,13) = (/&
1744  & 6.6590e+00_jprb,6.6857e+00_jprb,6.6700e+00_jprb,6.8819e+00_jprb,7.3175e+00_jprb/)
1745 kbo( :,12,13) = (/&
1746  & 6.2717e+00_jprb,6.3757e+00_jprb,6.4443e+00_jprb,6.6558e+00_jprb,6.9844e+00_jprb/)
1747 kbo( :,13,13) = (/&
1748  & 6.0914e+00_jprb,6.1740e+00_jprb,6.2405e+00_jprb,6.4377e+00_jprb,6.7503e+00_jprb/)
1749 kbo( :,14,13) = (/&
1750  & 4.9794e+00_jprb,5.0536e+00_jprb,5.1492e+00_jprb,5.3795e+00_jprb,5.7518e+00_jprb/)
1751 kbo( :,15,13) = (/&
1752  & 5.1843e+00_jprb,5.3190e+00_jprb,5.4758e+00_jprb,5.6793e+00_jprb,6.0175e+00_jprb/)
1753 kbo( :,16,13) = (/&
1754  & 5.7049e+00_jprb,5.8741e+00_jprb,6.0283e+00_jprb,6.2146e+00_jprb,6.5273e+00_jprb/)
1755 kbo( :,17,13) = (/&
1756  & 6.2538e+00_jprb,6.4179e+00_jprb,6.5692e+00_jprb,6.7387e+00_jprb,7.0279e+00_jprb/)
1757 kbo( :,18,13) = (/&
1758  & 6.7525e+00_jprb,6.9110e+00_jprb,7.0637e+00_jprb,7.2266e+00_jprb,7.4943e+00_jprb/)
1759 kbo( :,19,13) = (/&
1760  & 7.2519e+00_jprb,7.4118e+00_jprb,7.5663e+00_jprb,7.7263e+00_jprb,7.9629e+00_jprb/)
1761 kbo( :,20,13) = (/&
1762  & 7.8324e+00_jprb,7.9965e+00_jprb,8.1590e+00_jprb,8.3205e+00_jprb,8.5444e+00_jprb/)
1763 kbo( :,21,13) = (/&
1764  & 8.5287e+00_jprb,8.6915e+00_jprb,8.8554e+00_jprb,9.0146e+00_jprb,9.2285e+00_jprb/)
1765 kbo( :,22,13) = (/&
1766  & 9.3469e+00_jprb,9.5083e+00_jprb,9.6626e+00_jprb,9.8140e+00_jprb,1.0022e+01_jprb/)
1767 kbo( :,23,13) = (/&
1768  & 1.0237e+01_jprb,1.0396e+01_jprb,1.0540e+01_jprb,1.0676e+01_jprb,1.0870e+01_jprb/)
1769 kbo( :,24,13) = (/&
1770  & 1.1146e+01_jprb,1.1303e+01_jprb,1.1436e+01_jprb,1.1550e+01_jprb,1.1722e+01_jprb/)
1771 kbo( :,25,13) = (/&
1772  & 1.2050e+01_jprb,1.2190e+01_jprb,1.2298e+01_jprb,1.2397e+01_jprb,1.2546e+01_jprb/)
1773 kbo( :,26,13) = (/&
1774  & 1.2909e+01_jprb,1.3024e+01_jprb,1.3107e+01_jprb,1.3185e+01_jprb,1.3314e+01_jprb/)
1775 kbo( :,27,13) = (/&
1776  & 1.3701e+01_jprb,1.3792e+01_jprb,1.3849e+01_jprb,1.3913e+01_jprb,1.4022e+01_jprb/)
1777 kbo( :,28,13) = (/&
1778  & 1.4427e+01_jprb,1.4484e+01_jprb,1.4511e+01_jprb,1.4572e+01_jprb,1.4654e+01_jprb/)
1779 kbo( :,29,13) = (/&
1780  & 1.5072e+01_jprb,1.5093e+01_jprb,1.5109e+01_jprb,1.5170e+01_jprb,1.5215e+01_jprb/)
1781 kbo( :,30,13) = (/&
1782  & 1.5628e+01_jprb,1.5619e+01_jprb,1.5649e+01_jprb,1.5693e+01_jprb,1.5715e+01_jprb/)
1783 kbo( :,31,13) = (/&
1784  & 1.6105e+01_jprb,1.6099e+01_jprb,1.6147e+01_jprb,1.6155e+01_jprb,1.6164e+01_jprb/)
1785 kbo( :,32,13) = (/&
1786  & 1.6511e+01_jprb,1.6547e+01_jprb,1.6576e+01_jprb,1.6572e+01_jprb,1.6565e+01_jprb/)
1787 kbo( :,33,13) = (/&
1788  & 1.6897e+01_jprb,1.6951e+01_jprb,1.6956e+01_jprb,1.6944e+01_jprb,1.6929e+01_jprb/)
1789 kbo( :,34,13) = (/&
1790  & 1.7252e+01_jprb,1.7277e+01_jprb,1.7273e+01_jprb,1.7259e+01_jprb,1.7247e+01_jprb/)
1791 kbo( :,35,13) = (/&
1792  & 1.7555e+01_jprb,1.7563e+01_jprb,1.7552e+01_jprb,1.7549e+01_jprb,1.7549e+01_jprb/)
1793 kbo( :,36,13) = (/&
1794  & 1.7803e+01_jprb,1.7812e+01_jprb,1.7811e+01_jprb,1.7814e+01_jprb,1.7805e+01_jprb/)
1795 kbo( :,37,13) = (/&
1796  & 1.8013e+01_jprb,1.8025e+01_jprb,1.8034e+01_jprb,1.8035e+01_jprb,1.8022e+01_jprb/)
1797 kbo( :,38,13) = (/&
1798  & 1.8201e+01_jprb,1.8222e+01_jprb,1.8247e+01_jprb,1.8244e+01_jprb,1.8226e+01_jprb/)
1799 kbo( :,39,13) = (/&
1800  & 1.8383e+01_jprb,1.8417e+01_jprb,1.8445e+01_jprb,1.8444e+01_jprb,1.8423e+01_jprb/)
1801 kbo( :,40,13) = (/&
1802  & 1.8521e+01_jprb,1.8556e+01_jprb,1.8589e+01_jprb,1.8588e+01_jprb,1.8570e+01_jprb/)
1803 kbo( :,41,13) = (/&
1804  & 1.8644e+01_jprb,1.8681e+01_jprb,1.8714e+01_jprb,1.8712e+01_jprb,1.8700e+01_jprb/)
1805 kbo( :,42,13) = (/&
1806  & 1.8752e+01_jprb,1.8798e+01_jprb,1.8834e+01_jprb,1.8832e+01_jprb,1.8827e+01_jprb/)
1807 kbo( :,43,13) = (/&
1808  & 1.8844e+01_jprb,1.8901e+01_jprb,1.8939e+01_jprb,1.8943e+01_jprb,1.8946e+01_jprb/)
1809 kbo( :,44,13) = (/&
1810  & 1.8930e+01_jprb,1.8996e+01_jprb,1.9046e+01_jprb,1.9057e+01_jprb,1.9063e+01_jprb/)
1811 kbo( :,45,13) = (/&
1812  & 1.9023e+01_jprb,1.9089e+01_jprb,1.9147e+01_jprb,1.9171e+01_jprb,1.9190e+01_jprb/)
1813 kbo( :,46,13) = (/&
1814  & 1.9108e+01_jprb,1.9173e+01_jprb,1.9241e+01_jprb,1.9282e+01_jprb,1.9317e+01_jprb/)
1815 kbo( :,47,13) = (/&
1816  & 1.9179e+01_jprb,1.9235e+01_jprb,1.9323e+01_jprb,1.9378e+01_jprb,1.9424e+01_jprb/)
1817 kbo( :,48,13) = (/&
1818  & 1.9259e+01_jprb,1.9311e+01_jprb,1.9403e+01_jprb,1.9481e+01_jprb,1.9542e+01_jprb/)
1819 kbo( :,49,13) = (/&
1820  & 1.9353e+01_jprb,1.9401e+01_jprb,1.9487e+01_jprb,1.9582e+01_jprb,1.9677e+01_jprb/)
1821 kbo( :,50,13) = (/&
1822  & 1.9435e+01_jprb,1.9470e+01_jprb,1.9546e+01_jprb,1.9648e+01_jprb,1.9775e+01_jprb/)
1823 kbo( :,51,13) = (/&
1824  & 1.9528e+01_jprb,1.9522e+01_jprb,1.9589e+01_jprb,1.9698e+01_jprb,1.9835e+01_jprb/)
1825 kbo( :,52,13) = (/&
1826  & 1.9619e+01_jprb,1.9589e+01_jprb,1.9648e+01_jprb,1.9751e+01_jprb,1.9897e+01_jprb/)
1827 kbo( :,53,13) = (/&
1828  & 1.9714e+01_jprb,1.9664e+01_jprb,1.9723e+01_jprb,1.9814e+01_jprb,1.9980e+01_jprb/)
1829 kbo( :,54,13) = (/&
1830  & 1.9804e+01_jprb,1.9687e+01_jprb,1.9738e+01_jprb,1.9817e+01_jprb,1.9959e+01_jprb/)
1831 kbo( :,55,13) = (/&
1832  & 1.9891e+01_jprb,1.9703e+01_jprb,1.9714e+01_jprb,1.9787e+01_jprb,1.9905e+01_jprb/)
1833 kbo( :,56,13) = (/&
1834  & 1.9968e+01_jprb,1.9742e+01_jprb,1.9687e+01_jprb,1.9751e+01_jprb,1.9853e+01_jprb/)
1835 kbo( :,57,13) = (/&
1836  & 2.0032e+01_jprb,1.9814e+01_jprb,1.9687e+01_jprb,1.9714e+01_jprb,1.9803e+01_jprb/)
1837 kbo( :,58,13) = (/&
1838  & 2.0080e+01_jprb,1.9895e+01_jprb,1.9702e+01_jprb,1.9670e+01_jprb,1.9752e+01_jprb/)
1839 kbo( :,59,13) = (/&
1840  & 2.0098e+01_jprb,1.9929e+01_jprb,1.9672e+01_jprb,1.9573e+01_jprb,1.9576e+01_jprb/)
1841 kbo( :, 7,14) = (/&
1842  & 9.1966e+01_jprb,1.3562e+02_jprb,1.9017e+02_jprb,2.5592e+02_jprb,3.3333e+02_jprb/)
1843 kbo( :, 8,14) = (/&
1844  & 2.2693e+01_jprb,3.3411e+01_jprb,4.8518e+01_jprb,6.7308e+01_jprb,8.9702e+01_jprb/)
1845 kbo( :, 9,14) = (/&
1846  & 1.2882e+01_jprb,1.3153e+01_jprb,1.3364e+01_jprb,1.4883e+01_jprb,2.1107e+01_jprb/)
1847 
1848 IF (lhook) CALL dr_hook('RRTM_KGB8:PART6',1,zhook_handle)
1849 END SUBROUTINE part6
1850 
1851 
1852 SUBROUTINE part7
1853 
1854 REAL(KIND=JPRB) :: ZHOOK_HANDLE
1855 IF (lhook) CALL dr_hook('RRTM_KGB8:PART7',0,zhook_handle)
1856 
1857 
1858 kbo( :,10,14) = (/&
1859  & 9.8362e+00_jprb,9.9117e+00_jprb,9.9648e+00_jprb,1.0153e+01_jprb,1.0885e+01_jprb/)
1860 kbo( :,11,14) = (/&
1861  & 7.9433e+00_jprb,7.9973e+00_jprb,8.0475e+00_jprb,8.2315e+00_jprb,8.7834e+00_jprb/)
1862 kbo( :,12,14) = (/&
1863  & 7.3895e+00_jprb,7.4583e+00_jprb,7.5219e+00_jprb,7.7292e+00_jprb,8.2231e+00_jprb/)
1864 kbo( :,13,14) = (/&
1865  & 7.1435e+00_jprb,7.2885e+00_jprb,7.3950e+00_jprb,7.6192e+00_jprb,8.1085e+00_jprb/)
1866 kbo( :,14,14) = (/&
1867  & 6.9992e+00_jprb,7.1773e+00_jprb,7.3399e+00_jprb,7.5909e+00_jprb,8.2289e+00_jprb/)
1868 kbo( :,15,14) = (/&
1869  & 7.9125e+00_jprb,8.1063e+00_jprb,8.2644e+00_jprb,8.4250e+00_jprb,8.8258e+00_jprb/)
1870 kbo( :,16,14) = (/&
1871  & 8.8516e+00_jprb,9.0393e+00_jprb,9.2237e+00_jprb,9.3959e+00_jprb,9.6957e+00_jprb/)
1872 kbo( :,17,14) = (/&
1873  & 9.8145e+00_jprb,1.0045e+01_jprb,1.0264e+01_jprb,1.0472e+01_jprb,1.0729e+01_jprb/)
1874 kbo( :,18,14) = (/&
1875  & 1.0863e+01_jprb,1.1143e+01_jprb,1.1400e+01_jprb,1.1634e+01_jprb,1.1884e+01_jprb/)
1876 kbo( :,19,14) = (/&
1877  & 1.1987e+01_jprb,1.2302e+01_jprb,1.2594e+01_jprb,1.2857e+01_jprb,1.3115e+01_jprb/)
1878 kbo( :,20,14) = (/&
1879  & 1.3163e+01_jprb,1.3504e+01_jprb,1.3819e+01_jprb,1.4119e+01_jprb,1.4393e+01_jprb/)
1880 kbo( :,21,14) = (/&
1881  & 1.4360e+01_jprb,1.4728e+01_jprb,1.5076e+01_jprb,1.5394e+01_jprb,1.5681e+01_jprb/)
1882 kbo( :,22,14) = (/&
1883  & 1.5564e+01_jprb,1.5972e+01_jprb,1.6343e+01_jprb,1.6667e+01_jprb,1.6964e+01_jprb/)
1884 kbo( :,23,14) = (/&
1885  & 1.6820e+01_jprb,1.7233e+01_jprb,1.7594e+01_jprb,1.7909e+01_jprb,1.8214e+01_jprb/)
1886 kbo( :,24,14) = (/&
1887  & 1.8109e+01_jprb,1.8494e+01_jprb,1.8826e+01_jprb,1.9111e+01_jprb,1.9401e+01_jprb/)
1888 kbo( :,25,14) = (/&
1889  & 1.9392e+01_jprb,1.9724e+01_jprb,2.0018e+01_jprb,2.0268e+01_jprb,2.0538e+01_jprb/)
1890 kbo( :,26,14) = (/&
1891  & 2.0628e+01_jprb,2.0920e+01_jprb,2.1173e+01_jprb,2.1372e+01_jprb,2.1625e+01_jprb/)
1892 kbo( :,27,14) = (/&
1893  & 2.1805e+01_jprb,2.2040e+01_jprb,2.2243e+01_jprb,2.2391e+01_jprb,2.2631e+01_jprb/)
1894 kbo( :,28,14) = (/&
1895  & 2.2897e+01_jprb,2.3059e+01_jprb,2.3185e+01_jprb,2.3305e+01_jprb,2.3583e+01_jprb/)
1896 kbo( :,29,14) = (/&
1897  & 2.3866e+01_jprb,2.3956e+01_jprb,2.4031e+01_jprb,2.4181e+01_jprb,2.4577e+01_jprb/)
1898 kbo( :,30,14) = (/&
1899  & 2.4714e+01_jprb,2.4744e+01_jprb,2.4786e+01_jprb,2.5037e+01_jprb,2.5553e+01_jprb/)
1900 kbo( :,31,14) = (/&
1901  & 2.5442e+01_jprb,2.5420e+01_jprb,2.5528e+01_jprb,2.5980e+01_jprb,2.6575e+01_jprb/)
1902 kbo( :,32,14) = (/&
1903  & 2.6060e+01_jprb,2.6042e+01_jprb,2.6355e+01_jprb,2.6934e+01_jprb,2.7574e+01_jprb/)
1904 kbo( :,33,14) = (/&
1905  & 2.6582e+01_jprb,2.6720e+01_jprb,2.7257e+01_jprb,2.7902e+01_jprb,2.8582e+01_jprb/)
1906 kbo( :,34,14) = (/&
1907  & 2.7091e+01_jprb,2.7462e+01_jprb,2.8092e+01_jprb,2.8769e+01_jprb,2.9492e+01_jprb/)
1908 kbo( :,35,14) = (/&
1909  & 2.7632e+01_jprb,2.8159e+01_jprb,2.8835e+01_jprb,2.9549e+01_jprb,3.0321e+01_jprb/)
1910 kbo( :,36,14) = (/&
1911  & 2.8159e+01_jprb,2.8745e+01_jprb,2.9458e+01_jprb,3.0219e+01_jprb,3.1043e+01_jprb/)
1912 kbo( :,37,14) = (/&
1913  & 2.8540e+01_jprb,2.9146e+01_jprb,2.9877e+01_jprb,3.0672e+01_jprb,3.1544e+01_jprb/)
1914 kbo( :,38,14) = (/&
1915  & 2.8901e+01_jprb,2.9532e+01_jprb,3.0283e+01_jprb,3.1140e+01_jprb,3.2071e+01_jprb/)
1916 kbo( :,39,14) = (/&
1917  & 2.9260e+01_jprb,2.9925e+01_jprb,3.0734e+01_jprb,3.1664e+01_jprb,3.2694e+01_jprb/)
1918 kbo( :,40,14) = (/&
1919  & 2.9430e+01_jprb,3.0093e+01_jprb,3.0912e+01_jprb,3.1873e+01_jprb,3.2935e+01_jprb/)
1920 kbo( :,41,14) = (/&
1921  & 2.9569e+01_jprb,3.0227e+01_jprb,3.1048e+01_jprb,3.2034e+01_jprb,3.3124e+01_jprb/)
1922 kbo( :,42,14) = (/&
1923  & 2.9715e+01_jprb,3.0354e+01_jprb,3.1194e+01_jprb,3.2201e+01_jprb,3.3328e+01_jprb/)
1924 kbo( :,43,14) = (/&
1925  & 2.9833e+01_jprb,3.0439e+01_jprb,3.1280e+01_jprb,3.2309e+01_jprb,3.3467e+01_jprb/)
1926 kbo( :,44,14) = (/&
1927  & 2.9941e+01_jprb,3.0510e+01_jprb,3.1343e+01_jprb,3.2396e+01_jprb,3.3596e+01_jprb/)
1928 kbo( :,45,14) = (/&
1929  & 3.0066e+01_jprb,3.0604e+01_jprb,3.1448e+01_jprb,3.2529e+01_jprb,3.3774e+01_jprb/)
1930 kbo( :,46,14) = (/&
1931  & 3.0186e+01_jprb,3.0696e+01_jprb,3.1535e+01_jprb,3.2640e+01_jprb,3.3926e+01_jprb/)
1932 kbo( :,47,14) = (/&
1933  & 3.0293e+01_jprb,3.0717e+01_jprb,3.1531e+01_jprb,3.2630e+01_jprb,3.3950e+01_jprb/)
1934 kbo( :,48,14) = (/&
1935  & 3.0429e+01_jprb,3.0794e+01_jprb,3.1577e+01_jprb,3.2679e+01_jprb,3.4060e+01_jprb/)
1936 kbo( :,49,14) = (/&
1937  & 3.0616e+01_jprb,3.0920e+01_jprb,3.1697e+01_jprb,3.2833e+01_jprb,3.4261e+01_jprb/)
1938 kbo( :,50,14) = (/&
1939  & 3.0818e+01_jprb,3.0958e+01_jprb,3.1730e+01_jprb,3.2862e+01_jprb,3.4287e+01_jprb/)
1940 kbo( :,51,14) = (/&
1941  & 3.1037e+01_jprb,3.0997e+01_jprb,3.1705e+01_jprb,3.2813e+01_jprb,3.4237e+01_jprb/)
1942 kbo( :,52,14) = (/&
1943  & 3.1309e+01_jprb,3.1076e+01_jprb,3.1722e+01_jprb,3.2817e+01_jprb,3.4252e+01_jprb/)
1944 kbo( :,53,14) = (/&
1945  & 3.1610e+01_jprb,3.1224e+01_jprb,3.1798e+01_jprb,3.2922e+01_jprb,3.4372e+01_jprb/)
1946 kbo( :,54,14) = (/&
1947  & 3.1900e+01_jprb,3.1278e+01_jprb,3.1648e+01_jprb,3.2670e+01_jprb,3.4089e+01_jprb/)
1948 kbo( :,55,14) = (/&
1949  & 3.2210e+01_jprb,3.1399e+01_jprb,3.1421e+01_jprb,3.2230e+01_jprb,3.3508e+01_jprb/)
1950 kbo( :,56,14) = (/&
1951  & 3.2550e+01_jprb,3.1633e+01_jprb,3.1312e+01_jprb,3.1877e+01_jprb,3.2983e+01_jprb/)
1952 kbo( :,57,14) = (/&
1953  & 3.2910e+01_jprb,3.1902e+01_jprb,3.1284e+01_jprb,3.1616e+01_jprb,3.2534e+01_jprb/)
1954 kbo( :,58,14) = (/&
1955  & 3.3271e+01_jprb,3.2188e+01_jprb,3.1382e+01_jprb,3.1393e+01_jprb,3.2095e+01_jprb/)
1956 kbo( :,59,14) = (/&
1957  & 3.3433e+01_jprb,3.2317e+01_jprb,3.1456e+01_jprb,3.1063e+01_jprb,3.1513e+01_jprb/)
1958 kbo( :, 7,15) = (/&
1959  & 2.8363e+02_jprb,4.1355e+02_jprb,5.7180e+02_jprb,7.5690e+02_jprb,9.6654e+02_jprb/)
1960 kbo( :, 8,15) = (/&
1961  & 7.4865e+01_jprb,1.1268e+02_jprb,1.5979e+02_jprb,2.1605e+02_jprb,2.8202e+02_jprb/)
1962 kbo( :, 9,15) = (/&
1963  & 1.4273e+01_jprb,1.7483e+01_jprb,2.3317e+01_jprb,3.2081e+01_jprb,4.4022e+01_jprb/)
1964 kbo( :,10,15) = (/&
1965  & 1.0822e+01_jprb,1.0897e+01_jprb,1.0977e+01_jprb,1.1194e+01_jprb,1.5009e+01_jprb/)
1966 kbo( :,11,15) = (/&
1967  & 8.8651e+00_jprb,8.9560e+00_jprb,9.0304e+00_jprb,9.2295e+00_jprb,1.2083e+01_jprb/)
1968 kbo( :,12,15) = (/&
1969  & 8.4071e+00_jprb,8.4990e+00_jprb,8.5668e+00_jprb,8.7783e+00_jprb,1.1395e+01_jprb/)
1970 kbo( :,13,15) = (/&
1971  & 7.8874e+00_jprb,8.0981e+00_jprb,8.3286e+00_jprb,8.6740e+00_jprb,1.0797e+01_jprb/)
1972 kbo( :,14,15) = (/&
1973  & 9.0700e+00_jprb,9.4397e+00_jprb,9.7504e+00_jprb,1.0023e+01_jprb,1.0663e+01_jprb/)
1974 kbo( :,15,15) = (/&
1975  & 1.0836e+01_jprb,1.1231e+01_jprb,1.1580e+01_jprb,1.1881e+01_jprb,1.2185e+01_jprb/)
1976 kbo( :,16,15) = (/&
1977  & 1.2867e+01_jprb,1.3302e+01_jprb,1.3683e+01_jprb,1.4016e+01_jprb,1.4292e+01_jprb/)
1978 kbo( :,17,15) = (/&
1979  & 1.5179e+01_jprb,1.5649e+01_jprb,1.6067e+01_jprb,1.6423e+01_jprb,1.6719e+01_jprb/)
1980 kbo( :,18,15) = (/&
1981  & 1.7779e+01_jprb,1.8278e+01_jprb,1.8717e+01_jprb,1.9093e+01_jprb,1.9383e+01_jprb/)
1982 kbo( :,19,15) = (/&
1983  & 2.0642e+01_jprb,2.1170e+01_jprb,2.1612e+01_jprb,2.1976e+01_jprb,2.2234e+01_jprb/)
1984 kbo( :,20,15) = (/&
1985  & 2.3750e+01_jprb,2.4283e+01_jprb,2.4723e+01_jprb,2.5032e+01_jprb,2.5262e+01_jprb/)
1986 kbo( :,21,15) = (/&
1987  & 2.7026e+01_jprb,2.7553e+01_jprb,2.7924e+01_jprb,2.8192e+01_jprb,2.8376e+01_jprb/)
1988 kbo( :,22,15) = (/&
1989  & 3.0466e+01_jprb,3.0907e+01_jprb,3.1208e+01_jprb,3.1413e+01_jprb,3.1533e+01_jprb/)
1990 kbo( :,23,15) = (/&
1991  & 3.3884e+01_jprb,3.4236e+01_jprb,3.4483e+01_jprb,3.4605e+01_jprb,3.4634e+01_jprb/)
1992 kbo( :,24,15) = (/&
1993  & 3.7294e+01_jprb,3.7565e+01_jprb,3.7709e+01_jprb,3.7756e+01_jprb,3.7674e+01_jprb/)
1994 kbo( :,25,15) = (/&
1995  & 4.0647e+01_jprb,4.0822e+01_jprb,4.0862e+01_jprb,4.0770e+01_jprb,4.0545e+01_jprb/)
1996 kbo( :,26,15) = (/&
1997  & 4.3918e+01_jprb,4.3923e+01_jprb,4.3794e+01_jprb,4.3551e+01_jprb,4.3172e+01_jprb/)
1998 kbo( :,27,15) = (/&
1999  & 4.6948e+01_jprb,4.6779e+01_jprb,4.6473e+01_jprb,4.6062e+01_jprb,4.5548e+01_jprb/)
2000 kbo( :,28,15) = (/&
2001  & 4.9671e+01_jprb,4.9327e+01_jprb,4.8876e+01_jprb,4.8297e+01_jprb,4.7637e+01_jprb/)
2002 kbo( :,29,15) = (/&
2003  & 5.2077e+01_jprb,5.1573e+01_jprb,5.0947e+01_jprb,5.0200e+01_jprb,4.9391e+01_jprb/)
2004 kbo( :,30,15) = (/&
2005  & 5.4175e+01_jprb,5.3476e+01_jprb,5.2686e+01_jprb,5.1783e+01_jprb,5.0979e+01_jprb/)
2006 kbo( :,31,15) = (/&
2007  & 5.5918e+01_jprb,5.5055e+01_jprb,5.4106e+01_jprb,5.3112e+01_jprb,5.2750e+01_jprb/)
2008 kbo( :,32,15) = (/&
2009  & 5.7323e+01_jprb,5.6310e+01_jprb,5.5227e+01_jprb,5.4570e+01_jprb,5.5133e+01_jprb/)
2010 kbo( :,33,15) = (/&
2011  & 5.8423e+01_jprb,5.7290e+01_jprb,5.6381e+01_jprb,5.6660e+01_jprb,5.8115e+01_jprb/)
2012 kbo( :,34,15) = (/&
2013  & 5.9305e+01_jprb,5.8151e+01_jprb,5.7902e+01_jprb,5.9181e+01_jprb,6.1024e+01_jprb/)
2014 kbo( :,35,15) = (/&
2015  & 6.0090e+01_jprb,5.9220e+01_jprb,5.9907e+01_jprb,6.1721e+01_jprb,6.3818e+01_jprb/)
2016 kbo( :,36,15) = (/&
2017  & 6.0898e+01_jprb,6.0514e+01_jprb,6.1931e+01_jprb,6.4064e+01_jprb,6.6503e+01_jprb/)
2018 kbo( :,37,15) = (/&
2019  & 6.1807e+01_jprb,6.1684e+01_jprb,6.3418e+01_jprb,6.5762e+01_jprb,6.8620e+01_jprb/)
2020 kbo( :,38,15) = (/&
2021  & 6.2675e+01_jprb,6.2924e+01_jprb,6.5022e+01_jprb,6.7556e+01_jprb,7.1076e+01_jprb/)
2022 kbo( :,39,15) = (/&
2023  & 6.3549e+01_jprb,6.4372e+01_jprb,6.6780e+01_jprb,6.9607e+01_jprb,7.4223e+01_jprb/)
2024 kbo( :,40,15) = (/&
2025  & 6.4290e+01_jprb,6.5073e+01_jprb,6.7567e+01_jprb,7.0533e+01_jprb,7.5366e+01_jprb/)
2026 kbo( :,41,15) = (/&
2027  & 6.4963e+01_jprb,6.5642e+01_jprb,6.8216e+01_jprb,7.1296e+01_jprb,7.6285e+01_jprb/)
2028 kbo( :,42,15) = (/&
2029  & 6.5588e+01_jprb,6.6218e+01_jprb,6.8898e+01_jprb,7.2126e+01_jprb,7.7367e+01_jprb/)
2030 kbo( :,43,15) = (/&
2031  & 6.6237e+01_jprb,6.6662e+01_jprb,6.9435e+01_jprb,7.2789e+01_jprb,7.8130e+01_jprb/)
2032 kbo( :,44,15) = (/&
2033  & 6.6904e+01_jprb,6.7116e+01_jprb,6.9940e+01_jprb,7.3441e+01_jprb,7.8892e+01_jprb/)
2034 kbo( :,45,15) = (/&
2035  & 6.7540e+01_jprb,6.7647e+01_jprb,7.0523e+01_jprb,7.4251e+01_jprb,7.9999e+01_jprb/)
2036 kbo( :,46,15) = (/&
2037  & 6.8229e+01_jprb,6.8156e+01_jprb,7.1033e+01_jprb,7.4993e+01_jprb,8.1031e+01_jprb/)
2038 kbo( :,47,15) = (/&
2039  & 6.8961e+01_jprb,6.8535e+01_jprb,7.1211e+01_jprb,7.5329e+01_jprb,8.1268e+01_jprb/)
2040 kbo( :,48,15) = (/&
2041  & 6.9704e+01_jprb,6.8995e+01_jprb,7.1616e+01_jprb,7.5892e+01_jprb,8.1953e+01_jprb/)
2042 kbo( :,49,15) = (/&
2043  & 7.0407e+01_jprb,6.9549e+01_jprb,7.2228e+01_jprb,7.6829e+01_jprb,8.3431e+01_jprb/)
2044 kbo( :,50,15) = (/&
2045  & 7.1019e+01_jprb,6.9986e+01_jprb,7.2345e+01_jprb,7.7143e+01_jprb,8.3800e+01_jprb/)
2046 kbo( :,51,15) = (/&
2047  & 7.1592e+01_jprb,7.0396e+01_jprb,7.2261e+01_jprb,7.7126e+01_jprb,8.3618e+01_jprb/)
2048 kbo( :,52,15) = (/&
2049  & 7.2111e+01_jprb,7.0874e+01_jprb,7.2332e+01_jprb,7.7310e+01_jprb,8.3944e+01_jprb/)
2050 kbo( :,53,15) = (/&
2051  & 7.2640e+01_jprb,7.1374e+01_jprb,7.2614e+01_jprb,7.7805e+01_jprb,8.4912e+01_jprb/)
2052 kbo( :,54,15) = (/&
2053  & 7.3148e+01_jprb,7.1814e+01_jprb,7.2024e+01_jprb,7.6722e+01_jprb,8.3248e+01_jprb/)
2054 kbo( :,55,15) = (/&
2055  & 7.3606e+01_jprb,7.2253e+01_jprb,7.1500e+01_jprb,7.4839e+01_jprb,8.0825e+01_jprb/)
2056 kbo( :,56,15) = (/&
2057  & 7.4051e+01_jprb,7.2698e+01_jprb,7.1487e+01_jprb,7.3230e+01_jprb,7.8699e+01_jprb/)
2058 kbo( :,57,15) = (/&
2059  & 7.4472e+01_jprb,7.3171e+01_jprb,7.1839e+01_jprb,7.2012e+01_jprb,7.6638e+01_jprb/)
2060 kbo( :,58,15) = (/&
2061  & 7.4894e+01_jprb,7.3601e+01_jprb,7.2242e+01_jprb,7.1442e+01_jprb,7.4559e+01_jprb/)
2062 kbo( :,59,15) = (/&
2063  & 7.5080e+01_jprb,7.3786e+01_jprb,7.2416e+01_jprb,7.1080e+01_jprb,7.1531e+01_jprb/)
2064 kbo( :, 7,16) = (/&
2065  & 3.8856e+02_jprb,5.7915e+02_jprb,8.1817e+02_jprb,1.1061e+03_jprb,1.4420e+03_jprb/)
2066 kbo( :, 8,16) = (/&
2067  & 1.1173e+02_jprb,1.7284e+02_jprb,2.5169e+02_jprb,3.4886e+02_jprb,4.6421e+02_jprb/)
2068 kbo( :, 9,16) = (/&
2069  & 1.6570e+01_jprb,2.6651e+01_jprb,4.0077e+01_jprb,5.7028e+01_jprb,7.7570e+01_jprb/)
2070 kbo( :,10,16) = (/&
2071  & 1.1513e+01_jprb,1.1599e+01_jprb,1.1623e+01_jprb,1.2273e+01_jprb,2.0793e+01_jprb/)
2072 kbo( :,11,16) = (/&
2073  & 9.4745e+00_jprb,9.5365e+00_jprb,9.5728e+00_jprb,1.0446e+01_jprb,1.7579e+01_jprb/)
2074 kbo( :,12,16) = (/&
2075  & 9.0416e+00_jprb,9.1073e+00_jprb,9.1539e+00_jprb,1.0349e+01_jprb,1.7350e+01_jprb/)
2076 kbo( :,13,16) = (/&
2077  & 8.4084e+00_jprb,8.5999e+00_jprb,8.8332e+00_jprb,1.0153e+01_jprb,1.6939e+01_jprb/)
2078 kbo( :,14,16) = (/&
2079  & 1.0079e+01_jprb,1.0411e+01_jprb,1.0702e+01_jprb,1.0966e+01_jprb,1.3320e+01_jprb/)
2080 kbo( :,15,16) = (/&
2081  & 1.2199e+01_jprb,1.2610e+01_jprb,1.2964e+01_jprb,1.3286e+01_jprb,1.3632e+01_jprb/)
2082 kbo( :,16,16) = (/&
2083  & 1.4758e+01_jprb,1.5257e+01_jprb,1.5682e+01_jprb,1.6062e+01_jprb,1.6458e+01_jprb/)
2084 kbo( :,17,16) = (/&
2085  & 1.7830e+01_jprb,1.8419e+01_jprb,1.8910e+01_jprb,1.9353e+01_jprb,1.9779e+01_jprb/)
2086 kbo( :,18,16) = (/&
2087  & 2.1465e+01_jprb,2.2139e+01_jprb,2.2704e+01_jprb,2.3183e+01_jprb,2.3616e+01_jprb/)
2088 kbo( :,19,16) = (/&
2089  & 2.5737e+01_jprb,2.6464e+01_jprb,2.7066e+01_jprb,2.7553e+01_jprb,2.7959e+01_jprb/)
2090 kbo( :,20,16) = (/&
2091  & 3.0665e+01_jprb,3.1418e+01_jprb,3.2018e+01_jprb,3.2468e+01_jprb,3.2800e+01_jprb/)
2092 kbo( :,21,16) = (/&
2093  & 3.6239e+01_jprb,3.6953e+01_jprb,3.7470e+01_jprb,3.7836e+01_jprb,3.8047e+01_jprb/)
2094 kbo( :,22,16) = (/&
2095  & 4.2431e+01_jprb,4.3003e+01_jprb,4.3369e+01_jprb,4.3556e+01_jprb,4.3562e+01_jprb/)
2096 kbo( :,23,16) = (/&
2097  & 4.9017e+01_jprb,4.9364e+01_jprb,4.9493e+01_jprb,4.9449e+01_jprb,4.9166e+01_jprb/)
2098 kbo( :,24,16) = (/&
2099  & 5.5807e+01_jprb,5.5827e+01_jprb,5.5659e+01_jprb,5.5279e+01_jprb,5.4693e+01_jprb/)
2100 kbo( :,25,16) = (/&
2101  & 6.2605e+01_jprb,6.2250e+01_jprb,6.1658e+01_jprb,6.0879e+01_jprb,5.9925e+01_jprb/)
2102 kbo( :,26,16) = (/&
2103  & 6.9126e+01_jprb,6.8329e+01_jprb,6.7305e+01_jprb,6.6047e+01_jprb,6.4706e+01_jprb/)
2104 kbo( :,27,16) = (/&
2105  & 7.5229e+01_jprb,7.3889e+01_jprb,7.2393e+01_jprb,7.0704e+01_jprb,6.8940e+01_jprb/)
2106 kbo( :,28,16) = (/&
2107  & 8.0701e+01_jprb,7.8841e+01_jprb,7.6868e+01_jprb,7.4764e+01_jprb,7.2600e+01_jprb/)
2108 kbo( :,29,16) = (/&
2109  & 8.5434e+01_jprb,8.3106e+01_jprb,8.0668e+01_jprb,7.8169e+01_jprb,7.5668e+01_jprb/)
2110 kbo( :,30,16) = (/&
2111  & 8.9445e+01_jprb,8.6639e+01_jprb,8.3811e+01_jprb,8.0953e+01_jprb,7.8147e+01_jprb/)
2112 kbo( :,31,16) = (/&
2113  & 9.2661e+01_jprb,8.9490e+01_jprb,8.6283e+01_jprb,8.3138e+01_jprb,8.0087e+01_jprb/)
2114 kbo( :,32,16) = (/&
2115  & 9.5180e+01_jprb,9.1672e+01_jprb,8.8175e+01_jprb,8.4788e+01_jprb,8.1658e+01_jprb/)
2116 kbo( :,33,16) = (/&
2117  & 9.7060e+01_jprb,9.3296e+01_jprb,8.9535e+01_jprb,8.5975e+01_jprb,8.6733e+01_jprb/)
2118 kbo( :,34,16) = (/&
2119  & 9.8535e+01_jprb,9.4543e+01_jprb,9.0580e+01_jprb,8.8544e+01_jprb,9.8376e+01_jprb/)
2120 kbo( :,35,16) = (/&
2121  & 9.9986e+01_jprb,9.5782e+01_jprb,9.1765e+01_jprb,9.5678e+01_jprb,1.1682e+02_jprb/)
2122 kbo( :,36,16) = (/&
2123  & 1.0154e+02_jprb,9.7161e+01_jprb,9.4575e+01_jprb,1.0592e+02_jprb,1.3789e+02_jprb/)
2124 kbo( :,37,16) = (/&
2125  & 1.0353e+02_jprb,9.8977e+01_jprb,9.7885e+01_jprb,1.1385e+02_jprb,1.5187e+02_jprb/)
2126 kbo( :,38,16) = (/&
2127  & 1.0537e+02_jprb,1.0066e+02_jprb,1.0193e+02_jprb,1.2434e+02_jprb,1.6894e+02_jprb/)
2128 kbo( :,39,16) = (/&
2129  & 1.0709e+02_jprb,1.0226e+02_jprb,1.0840e+02_jprb,1.3970e+02_jprb,1.9203e+02_jprb/)
2130 kbo( :,40,16) = (/&
2131  & 1.0920e+02_jprb,1.0414e+02_jprb,1.1026e+02_jprb,1.4309e+02_jprb,1.9842e+02_jprb/)
2132 kbo( :,41,16) = (/&
2133  & 1.1129e+02_jprb,1.0602e+02_jprb,1.1150e+02_jprb,1.4497e+02_jprb,2.0309e+02_jprb/)
2134 kbo( :,42,16) = (/&
2135  & 1.1332e+02_jprb,1.0786e+02_jprb,1.1308e+02_jprb,1.4794e+02_jprb,2.0952e+02_jprb/)
2136 kbo( :,43,16) = (/&
2137  & 1.1559e+02_jprb,1.1003e+02_jprb,1.1380e+02_jprb,1.4865e+02_jprb,2.1325e+02_jprb/)
2138 kbo( :,44,16) = (/&
2139  & 1.1806e+02_jprb,1.1228e+02_jprb,1.1464e+02_jprb,1.4922e+02_jprb,2.1715e+02_jprb/)
2140 kbo( :,45,16) = (/&
2141  & 1.2053e+02_jprb,1.1454e+02_jprb,1.1628e+02_jprb,1.5180e+02_jprb,2.2438e+02_jprb/)
2142 kbo( :,46,16) = (/&
2143  & 1.2309e+02_jprb,1.1696e+02_jprb,1.1783e+02_jprb,1.5362e+02_jprb,2.3111e+02_jprb/)
2144 kbo( :,47,16) = (/&
2145  & 1.2599e+02_jprb,1.1969e+02_jprb,1.1823e+02_jprb,1.5084e+02_jprb,2.3026e+02_jprb/)
2146 kbo( :,48,16) = (/&
2147  & 1.2892e+02_jprb,1.2242e+02_jprb,1.1952e+02_jprb,1.5067e+02_jprb,2.3396e+02_jprb/)
2148 
2149 IF (lhook) CALL dr_hook('RRTM_KGB8:PART7',1,zhook_handle)
2150 END SUBROUTINE part7
2151 
2152 
2153 SUBROUTINE part8
2154 
2155 REAL(KIND=JPRB) :: ZHOOK_HANDLE
2156 IF (lhook) CALL dr_hook('RRTM_KGB8:PART8',0,zhook_handle)
2157 
2158 
2159 kbo( :,49,16) = (/&
2160  & 1.3193e+02_jprb,1.2519e+02_jprb,1.2177e+02_jprb,1.5425e+02_jprb,2.4535e+02_jprb/)
2161 kbo( :,50,16) = (/&
2162  & 1.3498e+02_jprb,1.2786e+02_jprb,1.2310e+02_jprb,1.5233e+02_jprb,2.4573e+02_jprb/)
2163 kbo( :,51,16) = (/&
2164  & 1.3812e+02_jprb,1.3051e+02_jprb,1.2450e+02_jprb,1.4796e+02_jprb,2.3986e+02_jprb/)
2165 kbo( :,52,16) = (/&
2166  & 1.4129e+02_jprb,1.3328e+02_jprb,1.2643e+02_jprb,1.4628e+02_jprb,2.3868e+02_jprb/)
2167 kbo( :,53,16) = (/&
2168  & 1.4456e+02_jprb,1.3621e+02_jprb,1.2885e+02_jprb,1.4756e+02_jprb,2.4494e+02_jprb/)
2169 kbo( :,54,16) = (/&
2170  & 1.4765e+02_jprb,1.3898e+02_jprb,1.3126e+02_jprb,1.3886e+02_jprb,2.1886e+02_jprb/)
2171 kbo( :,55,16) = (/&
2172  & 1.5067e+02_jprb,1.4175e+02_jprb,1.3370e+02_jprb,1.3097e+02_jprb,1.8055e+02_jprb/)
2173 kbo( :,56,16) = (/&
2174  & 1.5379e+02_jprb,1.4459e+02_jprb,1.3623e+02_jprb,1.2922e+02_jprb,1.5393e+02_jprb/)
2175 kbo( :,57,16) = (/&
2176  & 1.5705e+02_jprb,1.4750e+02_jprb,1.3886e+02_jprb,1.3117e+02_jprb,1.3814e+02_jprb/)
2177 kbo( :,58,16) = (/&
2178  & 1.6030e+02_jprb,1.5034e+02_jprb,1.4144e+02_jprb,1.3342e+02_jprb,1.3000e+02_jprb/)
2179 kbo( :,59,16) = (/&
2180  & 1.6165e+02_jprb,1.5155e+02_jprb,1.4250e+02_jprb,1.3439e+02_jprb,1.2723e+02_jprb/)
2181 
2182 ! SELFREFO is the array for the self-continuum.
2183 
2184 selfrefo( :, 1) = (/&
2185  & 3.15710e-02_jprb, 2.74495e-02_jprb, 2.38660e-02_jprb, 2.07504e-02_jprb, 1.80415e-02_jprb,&
2186  & 1.56862e-02_jprb, 1.36384e-02_jprb, 1.18580e-02_jprb, 1.03099e-02_jprb, 8.96400e-03_jprb/)
2187 selfrefo( :, 2) = (/&
2188  & 3.10782e-02_jprb, 2.71526e-02_jprb, 2.37228e-02_jprb, 2.07262e-02_jprb, 1.81082e-02_jprb,&
2189  & 1.58209e-02_jprb, 1.38224e-02_jprb, 1.20765e-02_jprb, 1.05510e-02_jprb, 9.21827e-03_jprb/)
2190 selfrefo( :, 3) = (/&
2191  & 3.08052e-02_jprb, 2.68989e-02_jprb, 2.34880e-02_jprb, 2.05096e-02_jprb, 1.79089e-02_jprb,&
2192  & 1.56380e-02_jprb, 1.36550e-02_jprb, 1.19235e-02_jprb, 1.04116e-02_jprb, 9.09133e-03_jprb/)
2193 selfrefo( :, 4) = (/&
2194  & 3.02590e-02_jprb, 2.64547e-02_jprb, 2.31287e-02_jprb, 2.02209e-02_jprb, 1.76786e-02_jprb,&
2195  & 1.54560e-02_jprb, 1.35128e-02_jprb, 1.18139e-02_jprb, 1.03286e-02_jprb, 9.03003e-03_jprb/)
2196 selfrefo( :, 5) = (/&
2197  & 2.98458e-02_jprb, 2.61601e-02_jprb, 2.29295e-02_jprb, 2.00978e-02_jprb, 1.76159e-02_jprb,&
2198  & 1.54404e-02_jprb, 1.35336e-02_jprb, 1.18623e-02_jprb, 1.03974e-02_jprb, 9.11337e-03_jprb/)
2199 selfrefo( :, 6) = (/&
2200  & 2.95965e-02_jprb, 2.59395e-02_jprb, 2.27343e-02_jprb, 1.99252e-02_jprb, 1.74632e-02_jprb,&
2201  & 1.53054e-02_jprb, 1.34142e-02_jprb, 1.17567e-02_jprb, 1.03040e-02_jprb, 9.03083e-03_jprb/)
2202 selfrefo( :, 7) = (/&
2203  & 2.97590e-02_jprb, 2.60522e-02_jprb, 2.28071e-02_jprb, 1.99662e-02_jprb, 1.74792e-02_jprb,&
2204  & 1.53020e-02_jprb, 1.33959e-02_jprb, 1.17273e-02_jprb, 1.02665e-02_jprb, 8.98772e-03_jprb/)
2205 selfrefo( :, 8) = (/&
2206  & 2.96582e-02_jprb, 2.59789e-02_jprb, 2.27560e-02_jprb, 1.99330e-02_jprb, 1.74602e-02_jprb,&
2207  & 1.52941e-02_jprb, 1.33968e-02_jprb, 1.17348e-02_jprb, 1.02790e-02_jprb, 9.00382e-03_jprb/)
2208 selfrefo( :, 9) = (/&
2209  & 2.97945e-02_jprb, 2.60711e-02_jprb, 2.28129e-02_jprb, 1.99620e-02_jprb, 1.74673e-02_jprb,&
2210  & 1.52844e-02_jprb, 1.33743e-02_jprb, 1.17029e-02_jprb, 1.02404e-02_jprb, 8.96062e-03_jprb/)
2211 selfrefo( :,10) = (/&
2212  & 2.97731e-02_jprb, 2.60436e-02_jprb, 2.27813e-02_jprb, 1.99276e-02_jprb, 1.74314e-02_jprb,&
2213  & 1.52478e-02_jprb, 1.33378e-02_jprb, 1.16671e-02_jprb, 1.02056e-02_jprb, 8.92719e-03_jprb/)
2214 selfrefo( :,11) = (/&
2215  & 2.94084e-02_jprb, 2.57680e-02_jprb, 2.25782e-02_jprb, 1.97832e-02_jprb, 1.73343e-02_jprb,&
2216  & 1.51885e-02_jprb, 1.33083e-02_jprb, 1.16609e-02_jprb, 1.02174e-02_jprb, 8.95261e-03_jprb/)
2217 selfrefo( :,12) = (/&
2218  & 2.97023e-02_jprb, 2.60117e-02_jprb, 2.27796e-02_jprb, 1.99491e-02_jprb, 1.74703e-02_jprb,&
2219  & 1.52996e-02_jprb, 1.33985e-02_jprb, 1.17337e-02_jprb, 1.02757e-02_jprb, 8.99890e-03_jprb/)
2220 selfrefo( :,13) = (/&
2221  & 2.96542e-02_jprb, 2.59249e-02_jprb, 2.26645e-02_jprb, 1.98142e-02_jprb, 1.73223e-02_jprb,&
2222  & 1.51438e-02_jprb, 1.32393e-02_jprb, 1.15743e-02_jprb, 1.01187e-02_jprb, 8.84612e-03_jprb/)
2223 selfrefo( :,14) = (/&
2224  & 2.89971e-02_jprb, 2.53964e-02_jprb, 2.22429e-02_jprb, 1.94809e-02_jprb, 1.70619e-02_jprb,&
2225  & 1.49433e-02_jprb, 1.30877e-02_jprb, 1.14626e-02_jprb, 1.00392e-02_jprb, 8.79262e-03_jprb/)
2226 selfrefo( :,15) = (/&
2227  & 2.80866e-02_jprb, 2.46970e-02_jprb, 2.17166e-02_jprb, 1.90958e-02_jprb, 1.67913e-02_jprb,&
2228  & 1.47649e-02_jprb, 1.29830e-02_jprb, 1.14162e-02_jprb, 1.00385e-02_jprb, 8.82704e-03_jprb/)
2229 selfrefo( :,16) = (/&
2230  & 2.80866e-02_jprb, 2.46970e-02_jprb, 2.17166e-02_jprb, 1.90958e-02_jprb, 1.67913e-02_jprb,&
2231  & 1.47649e-02_jprb, 1.29830e-02_jprb, 1.14162e-02_jprb, 1.00385e-02_jprb, 8.82704e-03_jprb/)
2232 
2233 IF (lhook) CALL dr_hook('RRTM_KGB8:PART8',1,zhook_handle)
2234 END SUBROUTINE part8
2235 
2236 
2237 
2238 END SUBROUTINE rrtm_kgb8
yoerrto8::absn2obo
real(kind=jprb), dimension(no8) absn2obo
Definition: yoerrto8.F90:23
yoerrto8::fracrefao
real(kind=jprb), dimension(no8) fracrefao
Definition: yoerrto8.F90:16
part2
subroutine part2
Definition: rrtm_kgb1.F90:345
yoerrto8::absco2bo
real(kind=jprb), dimension(no8) absco2bo
Definition: yoerrto8.F90:21
yoerrto8::cfc12o
real(kind=jprb), dimension(no8) cfc12o
Definition: yoerrto8.F90:18
yoerrto8::absco2ao
real(kind=jprb), dimension(no8) absco2ao
Definition: yoerrto8.F90:20
yoerrto8::kao
real(kind=jprb), dimension(5, 7, no8) kao
Definition: yoerrto8.F90:25
part7
subroutine part7
Definition: rrtm_kgb1.F90:1849
yoerrta8::o3ref
real(kind=jprb), dimension(59) o3ref
Definition: yoerrta8.F90:26
part3
subroutine part3
Definition: rrtm_kgb1.F90:645
rrtm_kgb8
subroutine rrtm_kgb8
Definition: rrtm_kgb8.F90:7
parkind1::jprb
integer, parameter jprb
Definition: parkind1.F90:31
yoerrto8::fracrefbo
real(kind=jprb), dimension(no8) fracrefbo
Definition: yoerrto8.F90:17
part4
subroutine part4
Definition: rrtm_kgb1.F90:946
yoerrto8::selfrefo
real(kind=jprb), dimension(10, no8) selfrefo
Definition: yoerrto8.F90:27
yoerrto8::cfc22adjo
real(kind=jprb), dimension(no8) cfc22adjo
Definition: yoerrto8.F90:19
part6
subroutine part6
Definition: rrtm_kgb1.F90:1548
yomhook::lhook
logical lhook
Definition: yomhook.F90:12
yoerrta8::n2oref
real(kind=jprb), dimension(59) n2oref
Definition: yoerrta8.F90:25
yoerrto8::absn2oao
real(kind=jprb), dimension(no8) absn2oao
Definition: yoerrto8.F90:22
yoerrta8::h2oref
real(kind=jprb), dimension(59) h2oref
Definition: yoerrta8.F90:24
yomhook::dr_hook
subroutine dr_hook(CDNAME, KSWITCH, PKEY)
Definition: yomhook.F90:17
yoerrto8::kbo
real(kind=jprb), dimension(5, 7:59, no8) kbo
Definition: yoerrto8.F90:26
part5
subroutine part5
Definition: rrtm_kgb1.F90:1247
part8
subroutine part8
Definition: rrtm_kgb12.F90:2156
part1
subroutine part1
Definition: rrtm_kgb1.F90:44