rrtm_kgb4.F90

Go to the documentation of this file.

!OCL SCALAR
#ifdef RS6K
@process nooptimize
#endif
!pgi$r opt=0 
SUBROUTINE rrtm_kgb4

!     Originally by Eli J. Mlawer, Atmospheric & Environmental Research.
!     BAND 4:  630-700 cm-1 (low - H2O,CO2; high - O3,CO2)
!     Reformatted for F90 by JJMorcrette, ECMWF
!     R. Elkhatib 12-10-2005 Split for faster and more robust compilation.

!     ------------------------------------------------------------------

USE parkind1  ,ONLY : jprb
USE yomhook   ,ONLY : lhook,   dr_hook

USE yoerrto4 , ONLY : kao     ,kbo     ,selfrefo   ,fracrefao  ,fracrefbo
USE yoerrta4 , ONLY : strrat1   ,strrat2

!     ------------------------------------------------------------------

IMPLICIT NONE
REAL(KIND=JPRB) :: ZHOOK_HANDLE

IF (lhook) CALL dr_hook('RRTM_KGB4',0,zhook_handle)

CALL part1
CALL part2
CALL part3
CALL part4
CALL part5
CALL part6
CALL part7
CALL part8
CALL part9
CALL part10
CALL part11
CALL part12
CALL part13
CALL part14
CALL part15
CALL part16
CALL part17
CALL part18
CALL part19
CALL part20
CALL part21
CALL part22
CALL part23
CALL part24
CALL part25
CALL part26
CALL part27
CALL part28
CALL part29
CALL part30
CALL part31
CALL part32
CALL part33
CALL part34
CALL part35
CALL part36
CALL part37
CALL part38

IF (lhook) CALL dr_hook('RRTM_KGB4',1,zhook_handle)

!     -----------------------------------------------------------------

CONTAINS


SUBROUTINE part1

REAL(KIND=JPRB) :: ZHOOK_HANDLE
IF (lhook) CALL dr_hook('RRTM_KGB4:PART1',0,zhook_handle)


strrat1 = 850.577_jprb
strrat2 = 35.7416_jprb

!     ------------------------------------------------------------------

!     The array KAO contains absorption coefs for each of the 16 g-intervals
!     for a range of pressure levels > ~100mb, temperatures, and ratios
!     of water vapor to CO2.  The first index in the array, JS, runs
!     from 1 to 9 and corresponds to different water vapor to CO2 ratios,
!     as expressed through the binary species parameter eta, defined as
!     eta = h2o/(h20 + (rat) * co2), where rat is the ratio of the integrated
!     line strength in the band of co2 to that of h2o.  For instance,
!     JS=1 refers to dry air (eta = 0), JS = 9 corresponds to eta = 1.0.
!     The 2nd index in the array, JT, which runs from 1 to 5, corresponds 
!     to different temperatures.  More specifically, JT = 3 means that the 
!     data are for the reference temperature TREF for this pressure 
!     level, JT = 2 refers to the temperature TREF-15,
!     JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5
!     is for TREF+30.  The third index, JP, runs from 1 to 13 and refers
!     to the reference pressure level (e.g. JP = 1 is for a
!     pressure of 1053.63 mb).  The fourth index, IG, goes from 1 to 16,
!     and tells us which g-interval the absorption coefficients are for.

kao( :, 1, 1, 1) = (/&
 & 6.6520e-04_jprb,9.3651e-04_jprb,1.4195e-03_jprb,1.7255e-03_jprb,1.7636e-03_jprb,1.9179e-03_jprb,&
 & 2.2204e-03_jprb,6.6521e-04_jprb,2.9560e-04_jprb/)  
kao( :, 2, 1, 1) = (/&
 & 7.2624e-04_jprb,1.0466e-03_jprb,1.3888e-03_jprb,1.7096e-03_jprb,1.7897e-03_jprb,1.8561e-03_jprb,&
 & 2.1300e-03_jprb,7.2624e-04_jprb,3.1103e-04_jprb/)  
kao( :, 3, 1, 1) = (/&
 & 7.8383e-04_jprb,1.1584e-03_jprb,1.4071e-03_jprb,1.6420e-03_jprb,1.7160e-03_jprb,1.8518e-03_jprb,&
 & 1.8802e-03_jprb,7.8382e-04_jprb,3.3914e-04_jprb/)  
kao( :, 4, 1, 1) = (/&
 & 8.3828e-04_jprb,1.2570e-03_jprb,1.4277e-03_jprb,1.5406e-03_jprb,1.6601e-03_jprb,1.7661e-03_jprb,&
 & 1.9135e-03_jprb,8.3828e-04_jprb,3.4976e-04_jprb/)  
kao( :, 5, 1, 1) = (/&
 & 8.9042e-04_jprb,1.3363e-03_jprb,1.4623e-03_jprb,1.4949e-03_jprb,1.5948e-03_jprb,1.7209e-03_jprb,&
 & 1.8800e-03_jprb,8.9042e-04_jprb,3.6339e-04_jprb/)  
kao( :, 1, 2, 1) = (/&
 & 5.6062e-04_jprb,7.7127e-04_jprb,1.2084e-03_jprb,1.4307e-03_jprb,1.4610e-03_jprb,1.6052e-03_jprb,&
 & 1.8465e-03_jprb,5.6064e-04_jprb,2.2622e-04_jprb/)  
kao( :, 2, 2, 1) = (/&
 & 6.1375e-04_jprb,8.6380e-04_jprb,1.1701e-03_jprb,1.4336e-03_jprb,1.4895e-03_jprb,1.5756e-03_jprb,&
 & 1.7789e-03_jprb,6.1375e-04_jprb,2.4137e-04_jprb/)  
kao( :, 3, 2, 1) = (/&
 & 6.6443e-04_jprb,9.5953e-04_jprb,1.1781e-03_jprb,1.4158e-03_jprb,1.4693e-03_jprb,1.5606e-03_jprb,&
 & 1.5694e-03_jprb,6.6443e-04_jprb,2.6320e-04_jprb/)  
kao( :, 4, 2, 1) = (/&
 & 7.1315e-04_jprb,1.0478e-03_jprb,1.1975e-03_jprb,1.3128e-03_jprb,1.4207e-03_jprb,1.5299e-03_jprb,&
 & 1.6204e-03_jprb,7.1315e-04_jprb,2.6697e-04_jprb/)  
kao( :, 5, 2, 1) = (/&
 & 7.6110e-04_jprb,1.1196e-03_jprb,1.2294e-03_jprb,1.2636e-03_jprb,1.3416e-03_jprb,1.4292e-03_jprb,&
 & 1.6103e-03_jprb,7.6110e-04_jprb,2.8176e-04_jprb/)  
kao( :, 1, 3, 1) = (/&
 & 4.5610e-04_jprb,6.1532e-04_jprb,1.0634e-03_jprb,1.1828e-03_jprb,1.2321e-03_jprb,1.3407e-03_jprb,&
 & 1.5585e-03_jprb,4.5610e-04_jprb,1.7188e-04_jprb/)  
kao( :, 2, 3, 1) = (/&
 & 5.0238e-04_jprb,6.9021e-04_jprb,9.8179e-04_jprb,1.2124e-03_jprb,1.2375e-03_jprb,1.3359e-03_jprb,&
 & 1.5396e-03_jprb,5.0238e-04_jprb,1.8492e-04_jprb/)  
kao( :, 3, 3, 1) = (/&
 & 5.4735e-04_jprb,7.7249e-04_jprb,9.8402e-04_jprb,1.2068e-03_jprb,1.2546e-03_jprb,1.2975e-03_jprb,&
 & 1.4283e-03_jprb,5.4735e-04_jprb,1.9939e-04_jprb/)  
kao( :, 4, 3, 1) = (/&
 & 5.9112e-04_jprb,8.5275e-04_jprb,9.9833e-04_jprb,1.1432e-03_jprb,1.2143e-03_jprb,1.3053e-03_jprb,&
 & 1.3316e-03_jprb,5.9111e-04_jprb,2.0334e-04_jprb/)  
kao( :, 5, 3, 1) = (/&
 & 6.3422e-04_jprb,9.1933e-04_jprb,1.0199e-03_jprb,1.0852e-03_jprb,1.1540e-03_jprb,1.2145e-03_jprb,&
 & 1.3760e-03_jprb,6.3422e-04_jprb,2.1583e-04_jprb/)  
kao( :, 1, 4, 1) = (/&
 & 3.6423e-04_jprb,4.8714e-04_jprb,9.4139e-04_jprb,9.6507e-04_jprb,9.9104e-04_jprb,1.0740e-03_jprb,&
 & 1.2797e-03_jprb,3.6423e-04_jprb,1.3905e-04_jprb/)  
kao( :, 2, 4, 1) = (/&
 & 4.0448e-04_jprb,5.4353e-04_jprb,8.4041e-04_jprb,9.9900e-04_jprb,1.0270e-03_jprb,1.1129e-03_jprb,&
 & 1.2594e-03_jprb,4.0448e-04_jprb,1.4875e-04_jprb/)  
kao( :, 3, 4, 1) = (/&
 & 4.4401e-04_jprb,6.1201e-04_jprb,8.1748e-04_jprb,1.0205e-03_jprb,1.0406e-03_jprb,1.0943e-03_jprb,&
 & 1.2249e-03_jprb,4.4401e-04_jprb,1.5559e-04_jprb/)  
kao( :, 4, 4, 1) = (/&
 & 4.8291e-04_jprb,6.8107e-04_jprb,8.2218e-04_jprb,9.9576e-04_jprb,1.0515e-03_jprb,1.1006e-03_jprb,&
 & 1.1252e-03_jprb,4.8291e-04_jprb,1.6190e-04_jprb/)  
kao( :, 5, 4, 1) = (/&
 & 5.2123e-04_jprb,7.4343e-04_jprb,8.4151e-04_jprb,9.3019e-04_jprb,1.0130e-03_jprb,1.0785e-03_jprb,&
 & 1.1439e-03_jprb,5.2123e-04_jprb,1.7165e-04_jprb/)  
kao( :, 1, 5, 1) = (/&
 & 2.8763e-04_jprb,3.8654e-04_jprb,7.7838e-04_jprb,7.8467e-04_jprb,8.0817e-04_jprb,8.9938e-04_jprb,&
 & 1.0676e-03_jprb,2.8763e-04_jprb,1.2485e-04_jprb/)  
kao( :, 2, 5, 1) = (/&
 & 3.2269e-04_jprb,4.2830e-04_jprb,7.4590e-04_jprb,8.1887e-04_jprb,8.5674e-04_jprb,9.1744e-04_jprb,&
 & 1.0598e-03_jprb,3.2269e-04_jprb,1.2888e-04_jprb/)  
kao( :, 3, 5, 1) = (/&
 & 3.5710e-04_jprb,4.8150e-04_jprb,6.8301e-04_jprb,8.4014e-04_jprb,8.5447e-04_jprb,9.4082e-04_jprb,&
 & 1.0595e-03_jprb,3.5710e-04_jprb,1.3287e-04_jprb/)  
kao( :, 4, 5, 1) = (/&
 & 3.9114e-04_jprb,5.4044e-04_jprb,6.7913e-04_jprb,8.5598e-04_jprb,8.6451e-04_jprb,8.9768e-04_jprb,&
 & 1.0160e-03_jprb,3.9114e-04_jprb,1.3801e-04_jprb/)  
kao( :, 5, 5, 1) = (/&
 & 4.2493e-04_jprb,5.9616e-04_jprb,6.9081e-04_jprb,8.1432e-04_jprb,8.7086e-04_jprb,9.0230e-04_jprb,&
 & 9.2751e-04_jprb,4.2493e-04_jprb,1.4524e-04_jprb/)  
kao( :, 1, 6, 1) = (/&
 & 2.2397e-04_jprb,3.0352e-04_jprb,6.2893e-04_jprb,6.2633e-04_jprb,6.5793e-04_jprb,7.3403e-04_jprb,&
 & 8.4350e-04_jprb,2.2397e-04_jprb,1.2107e-04_jprb/)  
kao( :, 2, 6, 1) = (/&
 & 2.5420e-04_jprb,3.3557e-04_jprb,6.5797e-04_jprb,6.6891e-04_jprb,6.8491e-04_jprb,7.4023e-04_jprb,&
 & 8.5687e-04_jprb,2.5420e-04_jprb,1.2280e-04_jprb/)  
kao( :, 3, 6, 1) = (/&
 & 2.8396e-04_jprb,3.7655e-04_jprb,5.9102e-04_jprb,6.9033e-04_jprb,7.1783e-04_jprb,7.6667e-04_jprb,&
 & 8.6376e-04_jprb,2.8396e-04_jprb,1.2577e-04_jprb/)  
kao( :, 4, 6, 1) = (/&
 & 3.1350e-04_jprb,4.2404e-04_jprb,5.6109e-04_jprb,7.1632e-04_jprb,7.2169e-04_jprb,7.5902e-04_jprb,&
 & 8.5063e-04_jprb,3.1350e-04_jprb,1.3038e-04_jprb/)  
kao( :, 5, 6, 1) = (/&
 & 3.4283e-04_jprb,4.7259e-04_jprb,5.6315e-04_jprb,6.9669e-04_jprb,7.3767e-04_jprb,7.6266e-04_jprb,&
 & 8.1179e-04_jprb,3.4283e-04_jprb,1.3594e-04_jprb/)  
kao( :, 1, 7, 1) = (/&
 & 1.7269e-04_jprb,2.3971e-04_jprb,5.0297e-04_jprb,4.9860e-04_jprb,5.2471e-04_jprb,5.7932e-04_jprb,&
 & 6.8439e-04_jprb,1.7269e-04_jprb,1.2386e-04_jprb/)  
kao( :, 2, 7, 1) = (/&
 & 1.9843e-04_jprb,2.6259e-04_jprb,5.3532e-04_jprb,5.3729e-04_jprb,5.5606e-04_jprb,6.0939e-04_jprb,&
 & 7.1230e-04_jprb,1.9843e-04_jprb,1.2615e-04_jprb/)  
kao( :, 3, 7, 1) = (/&
 & 2.2393e-04_jprb,2.9362e-04_jprb,5.3350e-04_jprb,5.6384e-04_jprb,5.8750e-04_jprb,6.2580e-04_jprb,&
 & 7.2255e-04_jprb,2.2393e-04_jprb,1.3021e-04_jprb/)  
kao( :, 4, 7, 1) = (/&
 & 2.4925e-04_jprb,3.3156e-04_jprb,4.6934e-04_jprb,5.8250e-04_jprb,5.9359e-04_jprb,6.5453e-04_jprb,&
 & 7.2305e-04_jprb,2.4925e-04_jprb,1.3523e-04_jprb/)  
kao( :, 5, 7, 1) = (/&
 & 2.7472e-04_jprb,3.7184e-04_jprb,4.6283e-04_jprb,5.9977e-04_jprb,6.0303e-04_jprb,6.2094e-04_jprb,&
 & 7.0629e-04_jprb,2.7472e-04_jprb,1.4126e-04_jprb/)  
kao( :, 1, 8, 1) = (/&
 & 1.3221e-04_jprb,1.9199e-04_jprb,3.9770e-04_jprb,3.9939e-04_jprb,4.1807e-04_jprb,4.5731e-04_jprb,&
 & 5.2988e-04_jprb,1.3221e-04_jprb,1.4509e-04_jprb/)  
kao( :, 2, 8, 1) = (/&
 & 1.5393e-04_jprb,2.0559e-04_jprb,4.3250e-04_jprb,4.2908e-04_jprb,4.4968e-04_jprb,4.9581e-04_jprb,&
 & 5.6885e-04_jprb,1.5393e-04_jprb,1.5038e-04_jprb/)  
kao( :, 3, 8, 1) = (/&
 & 1.7558e-04_jprb,2.2912e-04_jprb,4.5525e-04_jprb,4.5996e-04_jprb,4.7140e-04_jprb,5.1385e-04_jprb,&
 & 5.9033e-04_jprb,1.7558e-04_jprb,1.5764e-04_jprb/)  
kao( :, 4, 8, 1) = (/&
 & 1.9711e-04_jprb,2.5824e-04_jprb,4.0990e-04_jprb,4.7600e-04_jprb,4.9383e-04_jprb,5.2727e-04_jprb,&
 & 5.9173e-04_jprb,1.9711e-04_jprb,1.6674e-04_jprb/)  
kao( :, 5, 8, 1) = (/&
 & 2.1892e-04_jprb,2.9157e-04_jprb,3.8268e-04_jprb,4.9451e-04_jprb,4.9883e-04_jprb,5.2700e-04_jprb,&
 & 5.9438e-04_jprb,2.1892e-04_jprb,1.7746e-04_jprb/)  
kao( :, 1, 9, 1) = (/&
 & 1.0035e-04_jprb,1.5952e-04_jprb,3.1293e-04_jprb,3.1348e-04_jprb,3.2666e-04_jprb,3.7028e-04_jprb,&
 & 4.1425e-04_jprb,1.0035e-04_jprb,2.6669e-04_jprb/)  
kao( :, 2, 9, 1) = (/&
 & 1.1858e-04_jprb,1.6346e-04_jprb,3.4529e-04_jprb,3.4165e-04_jprb,3.5657e-04_jprb,3.9289e-04_jprb,&
 & 4.5949e-04_jprb,1.1858e-04_jprb,2.9076e-04_jprb/)  
kao( :, 3, 9, 1) = (/&
 & 1.3693e-04_jprb,1.7866e-04_jprb,3.6700e-04_jprb,3.7083e-04_jprb,3.8336e-04_jprb,4.1668e-04_jprb,&
 & 4.8180e-04_jprb,1.3693e-04_jprb,3.1567e-04_jprb/)  
kao( :, 4, 9, 1) = (/&
 & 1.5518e-04_jprb,2.0111e-04_jprb,3.6635e-04_jprb,3.8855e-04_jprb,4.0471e-04_jprb,4.3043e-04_jprb,&
 & 4.9285e-04_jprb,1.5518e-04_jprb,3.4209e-04_jprb/)  
kao( :, 5, 9, 1) = (/&
 & 1.7362e-04_jprb,2.2754e-04_jprb,3.2201e-04_jprb,4.0291e-04_jprb,4.1258e-04_jprb,4.4913e-04_jprb,&
 & 4.9613e-04_jprb,1.7362e-04_jprb,3.6921e-04_jprb/)  
kao( :, 1,10, 1) = (/&
 & 7.6756e-05_jprb,1.3962e-04_jprb,2.4767e-04_jprb,2.4912e-04_jprb,2.5968e-04_jprb,2.8653e-04_jprb,&
 & 3.2992e-04_jprb,7.6756e-05_jprb,9.2332e-04_jprb/)  
kao( :, 2,10, 1) = (/&
 & 9.1972e-05_jprb,1.3177e-04_jprb,2.7498e-04_jprb,2.7460e-04_jprb,2.8768e-04_jprb,3.1486e-04_jprb,&
 & 3.6117e-04_jprb,9.1972e-05_jprb,1.0290e-03_jprb/)  
kao( :, 3,10, 1) = (/&
 & 1.0747e-04_jprb,1.4129e-04_jprb,2.9762e-04_jprb,2.9728e-04_jprb,3.1080e-04_jprb,3.3927e-04_jprb,&
 & 3.8542e-04_jprb,1.0747e-04_jprb,1.1258e-03_jprb/)  
kao( :, 4,10, 1) = (/&
 & 1.2295e-04_jprb,1.5843e-04_jprb,3.0850e-04_jprb,3.1535e-04_jprb,3.2529e-04_jprb,3.5387e-04_jprb,&
 & 4.0422e-04_jprb,1.2295e-04_jprb,1.2119e-03_jprb/)  
kao( :, 5,10, 1) = (/&
 & 1.3850e-04_jprb,1.7919e-04_jprb,2.7969e-04_jprb,3.2918e-04_jprb,3.4141e-04_jprb,3.6383e-04_jprb,&
 & 4.0592e-04_jprb,1.3850e-04_jprb,1.2885e-03_jprb/)  
kao( :, 1,11, 1) = (/&
 & 6.4262e-05_jprb,1.1488e-04_jprb,2.0652e-04_jprb,2.0693e-04_jprb,2.1515e-04_jprb,2.3759e-04_jprb,&
 & 2.7074e-04_jprb,6.4262e-05_jprb,1.7436e-03_jprb/)  
kao( :, 2,11, 1) = (/&
 & 7.7063e-05_jprb,1.0910e-04_jprb,2.2893e-04_jprb,2.2837e-04_jprb,2.3880e-04_jprb,2.5987e-04_jprb,&
 & 3.0065e-04_jprb,7.7062e-05_jprb,1.9352e-03_jprb/)  
kao( :, 3,11, 1) = (/&
 & 9.0126e-05_jprb,1.1759e-04_jprb,2.4677e-04_jprb,2.4752e-04_jprb,2.5932e-04_jprb,2.8168e-04_jprb,&
 & 3.2064e-04_jprb,9.0126e-05_jprb,2.1015e-03_jprb/)  
kao( :, 4,11, 1) = (/&
 & 1.0318e-04_jprb,1.3204e-04_jprb,2.5349e-04_jprb,2.6117e-04_jprb,2.7047e-04_jprb,2.9445e-04_jprb,&
 & 3.3354e-04_jprb,1.0318e-04_jprb,2.2375e-03_jprb/)  
kao( :, 5,11, 1) = (/&
 & 1.1625e-04_jprb,1.4979e-04_jprb,2.3047e-04_jprb,2.7288e-04_jprb,2.8316e-04_jprb,3.0222e-04_jprb,&
 & 3.3717e-04_jprb,1.1625e-04_jprb,2.3499e-03_jprb/)  
kao( :, 1,12, 1) = (/&
 & 5.3838e-05_jprb,9.4472e-05_jprb,1.7221e-04_jprb,1.7229e-04_jprb,1.7912e-04_jprb,1.9811e-04_jprb,&
 & 2.2298e-04_jprb,5.3838e-05_jprb,2.2190e-03_jprb/)  
kao( :, 2,12, 1) = (/&
 & 6.4583e-05_jprb,9.0416e-05_jprb,1.9070e-04_jprb,1.8997e-04_jprb,1.9851e-04_jprb,2.1621e-04_jprb,&
 & 2.4883e-04_jprb,6.4583e-05_jprb,2.4508e-03_jprb/)  
kao( :, 3,12, 1) = (/&
 & 7.5579e-05_jprb,9.8146e-05_jprb,2.0479e-04_jprb,2.0556e-04_jprb,2.1508e-04_jprb,2.3475e-04_jprb,&
 & 2.6564e-04_jprb,7.5579e-05_jprb,2.6460e-03_jprb/)  
kao( :, 4,12, 1) = (/&
 & 8.6531e-05_jprb,1.1008e-04_jprb,2.0887e-04_jprb,2.1630e-04_jprb,2.2430e-04_jprb,2.4416e-04_jprb,&
 & 2.7688e-04_jprb,8.6531e-05_jprb,2.8013e-03_jprb/)  
kao( :, 5,12, 1) = (/&
 & 9.7427e-05_jprb,1.2490e-04_jprb,1.8859e-04_jprb,2.2596e-04_jprb,2.3336e-04_jprb,2.5057e-04_jprb,&
 & 2.7888e-04_jprb,9.7427e-05_jprb,2.9236e-03_jprb/)  
kao( :, 1,13, 1) = (/&
 & 4.5099e-05_jprb,7.7513e-05_jprb,1.4325e-04_jprb,1.4387e-04_jprb,1.4900e-04_jprb,1.6404e-04_jprb,&
 & 1.8470e-04_jprb,4.5100e-05_jprb,2.3136e-03_jprb/)  
kao( :, 2,13, 1) = (/&
 & 5.4137e-05_jprb,7.5163e-05_jprb,1.5870e-04_jprb,1.5797e-04_jprb,1.6505e-04_jprb,1.7934e-04_jprb,&
 & 2.0687e-04_jprb,5.4137e-05_jprb,2.5403e-03_jprb/)  
kao( :, 3,13, 1) = (/&
 & 6.3329e-05_jprb,8.1727e-05_jprb,1.6965e-04_jprb,1.7063e-04_jprb,1.7871e-04_jprb,1.9512e-04_jprb,&
 & 2.2035e-04_jprb,6.3329e-05_jprb,2.7282e-03_jprb/)  
kao( :, 4,13, 1) = (/&
 & 7.2450e-05_jprb,9.1778e-05_jprb,1.7219e-04_jprb,1.7914e-04_jprb,1.8635e-04_jprb,2.0203e-04_jprb,&
 & 2.2943e-04_jprb,7.2450e-05_jprb,2.8788e-03_jprb/)  
kao( :, 5,13, 1) = (/&
 & 8.1530e-05_jprb,1.0397e-04_jprb,1.5476e-04_jprb,1.8739e-04_jprb,1.9322e-04_jprb,2.0819e-04_jprb,&
 & 2.3071e-04_jprb,8.1530e-05_jprb,2.9950e-03_jprb/)  
kao( :, 1, 1, 2) = (/&
 & 1.5260e-03_jprb,1.7595e-03_jprb,1.6480e-03_jprb,2.2258e-03_jprb,2.8344e-03_jprb,3.1469e-03_jprb,&
 & 3.6918e-03_jprb,1.5260e-03_jprb,4.9914e-04_jprb/)  
kao( :, 2, 1, 2) = (/&
 & 1.5826e-03_jprb,1.8212e-03_jprb,1.7561e-03_jprb,1.9980e-03_jprb,2.4681e-03_jprb,2.9684e-03_jprb,&
 & 3.2872e-03_jprb,1.5826e-03_jprb,4.6415e-04_jprb/)  
kao( :, 3, 1, 2) = (/&
 & 1.6227e-03_jprb,1.8571e-03_jprb,1.8350e-03_jprb,1.9032e-03_jprb,2.3046e-03_jprb,2.7220e-03_jprb,&
 & 3.3030e-03_jprb,1.6227e-03_jprb,4.6231e-04_jprb/)  
kao( :, 4, 1, 2) = (/&
 & 1.6627e-03_jprb,1.9016e-03_jprb,1.9450e-03_jprb,1.9945e-03_jprb,2.2414e-03_jprb,2.5327e-03_jprb,&
 & 2.8363e-03_jprb,1.6627e-03_jprb,4.9516e-04_jprb/)  
kao( :, 5, 1, 2) = (/&
 & 1.6942e-03_jprb,1.9567e-03_jprb,2.0282e-03_jprb,2.1178e-03_jprb,2.1837e-03_jprb,2.3289e-03_jprb,&
 & 2.6951e-03_jprb,1.6942e-03_jprb,5.5604e-04_jprb/)  
kao( :, 1, 2, 2) = (/&
 & 1.2957e-03_jprb,1.4736e-03_jprb,1.3696e-03_jprb,1.9219e-03_jprb,2.4448e-03_jprb,2.7185e-03_jprb,&
 & 3.0973e-03_jprb,1.2957e-03_jprb,3.5777e-04_jprb/)  
kao( :, 2, 2, 2) = (/&
 & 1.3520e-03_jprb,1.5352e-03_jprb,1.4594e-03_jprb,1.7363e-03_jprb,2.1608e-03_jprb,2.5931e-03_jprb,&
 & 2.9477e-03_jprb,1.3520e-03_jprb,3.5334e-04_jprb/)  
kao( :, 3, 2, 2) = (/&
 & 1.3955e-03_jprb,1.5728e-03_jprb,1.5388e-03_jprb,1.5910e-03_jprb,1.9652e-03_jprb,2.3965e-03_jprb,&
 & 2.8214e-03_jprb,1.3955e-03_jprb,3.5208e-04_jprb/)  
kao( :, 4, 2, 2) = (/&
 & 1.4306e-03_jprb,1.6119e-03_jprb,1.6289e-03_jprb,1.6668e-03_jprb,1.8749e-03_jprb,2.1515e-03_jprb,&
 & 2.5798e-03_jprb,1.4306e-03_jprb,3.8903e-04_jprb/)  
kao( :, 5, 2, 2) = (/&
 & 1.4618e-03_jprb,1.6648e-03_jprb,1.7112e-03_jprb,1.7696e-03_jprb,1.8658e-03_jprb,2.0390e-03_jprb,&
 & 2.2630e-03_jprb,1.4618e-03_jprb,4.3501e-04_jprb/)  
kao( :, 1, 3, 2) = (/&
 & 1.0941e-03_jprb,1.2249e-03_jprb,1.1110e-03_jprb,1.6978e-03_jprb,2.0757e-03_jprb,2.3977e-03_jprb,&
 & 2.5385e-03_jprb,1.0941e-03_jprb,2.5435e-04_jprb/)  
kao( :, 2, 3, 2) = (/&
 & 1.1496e-03_jprb,1.2893e-03_jprb,1.2094e-03_jprb,1.5400e-03_jprb,1.9037e-03_jprb,2.2282e-03_jprb,&
 & 2.6108e-03_jprb,1.1496e-03_jprb,2.5844e-04_jprb/)  
kao( :, 3, 3, 2) = (/&
 & 1.1926e-03_jprb,1.3278e-03_jprb,1.2717e-03_jprb,1.3590e-03_jprb,1.7088e-03_jprb,2.1812e-03_jprb,&
 & 2.3392e-03_jprb,1.1926e-03_jprb,2.6804e-04_jprb/)  
kao( :, 4, 3, 2) = (/&
 & 1.2267e-03_jprb,1.3589e-03_jprb,1.3473e-03_jprb,1.3690e-03_jprb,1.6042e-03_jprb,1.9290e-03_jprb,&
 & 2.3507e-03_jprb,1.2267e-03_jprb,3.0065e-04_jprb/)  
kao( :, 5, 3, 2) = (/&
 & 1.2554e-03_jprb,1.4034e-03_jprb,1.4269e-03_jprb,1.4462e-03_jprb,1.5803e-03_jprb,1.7891e-03_jprb,&
 & 1.9934e-03_jprb,1.2554e-03_jprb,3.3529e-04_jprb/)  
kao( :, 1, 4, 2) = (/&
 & 9.2228e-04_jprb,1.0144e-03_jprb,8.9155e-04_jprb,1.5523e-03_jprb,1.8182e-03_jprb,2.0790e-03_jprb,&
 & 2.1019e-03_jprb,9.2229e-04_jprb,1.9739e-04_jprb/)  
kao( :, 2, 4, 2) = (/&
 & 9.7173e-04_jprb,1.0764e-03_jprb,9.9094e-04_jprb,1.3563e-03_jprb,1.7130e-03_jprb,1.9182e-03_jprb,&
 & 2.1666e-03_jprb,9.7173e-04_jprb,1.9900e-04_jprb/)  
kao( :, 3, 4, 2) = (/&
 & 1.0138e-03_jprb,1.1151e-03_jprb,1.0445e-03_jprb,1.2251e-03_jprb,1.5369e-03_jprb,1.8521e-03_jprb,&
 & 2.1013e-03_jprb,1.0138e-03_jprb,2.1276e-04_jprb/)  
kao( :, 4, 4, 2) = (/&
 & 1.0473e-03_jprb,1.1460e-03_jprb,1.1161e-03_jprb,1.1284e-03_jprb,1.3578e-03_jprb,1.6754e-03_jprb,&
 & 2.0077e-03_jprb,1.0473e-03_jprb,2.3595e-04_jprb/)  
kao( :, 5, 4, 2) = (/&
 & 1.0726e-03_jprb,1.1805e-03_jprb,1.1814e-03_jprb,1.1848e-03_jprb,1.3479e-03_jprb,1.5615e-03_jprb,&
 & 1.8994e-03_jprb,1.0726e-03_jprb,2.6165e-04_jprb/)  
kao( :, 1, 5, 2) = (/&
 & 7.6690e-04_jprb,8.2765e-04_jprb,7.8062e-04_jprb,1.3867e-03_jprb,1.5867e-03_jprb,1.6936e-03_jprb,&
 & 1.7521e-03_jprb,7.6690e-04_jprb,1.6280e-04_jprb/)  
kao( :, 2, 5, 2) = (/&
 & 8.1285e-04_jprb,8.8774e-04_jprb,7.8341e-04_jprb,1.1988e-03_jprb,1.4770e-03_jprb,1.6719e-03_jprb,&
 & 1.7693e-03_jprb,8.1285e-04_jprb,1.6768e-04_jprb/)  
kao( :, 3, 5, 2) = (/&
 & 8.5183e-04_jprb,9.2930e-04_jprb,8.6098e-04_jprb,1.1035e-03_jprb,1.3517e-03_jprb,1.5871e-03_jprb,&
 & 1.8468e-03_jprb,8.5182e-04_jprb,1.7918e-04_jprb/)  
kao( :, 4, 5, 2) = (/&
 & 8.8381e-04_jprb,9.6005e-04_jprb,9.1547e-04_jprb,9.4610e-04_jprb,1.2396e-03_jprb,1.5757e-03_jprb,&
 & 1.6719e-03_jprb,8.8381e-04_jprb,1.9528e-04_jprb/)  

IF (lhook) CALL dr_hook('RRTM_KGB4:PART1',1,zhook_handle)
END SUBROUTINE part1


SUBROUTINE part2

REAL(KIND=JPRB) :: ZHOOK_HANDLE
IF (lhook) CALL dr_hook('RRTM_KGB4:PART2',0,zhook_handle)


kao( :, 5, 5, 2) = (/&
 & 9.0780e-04_jprb,9.9038e-04_jprb,9.7867e-04_jprb,9.6385e-04_jprb,1.1363e-03_jprb,1.3750e-03_jprb,&
 & 1.6759e-03_jprb,9.0780e-04_jprb,2.1430e-04_jprb/)  
kao( :, 1, 6, 2) = (/&
 & 6.2795e-04_jprb,6.6838e-04_jprb,7.3561e-04_jprb,1.2263e-03_jprb,1.3683e-03_jprb,1.4046e-03_jprb,&
 & 1.5094e-03_jprb,6.2795e-04_jprb,1.5216e-04_jprb/)  
kao( :, 2, 6, 2) = (/&
 & 6.7183e-04_jprb,7.2288e-04_jprb,6.1801e-04_jprb,1.0919e-03_jprb,1.2712e-03_jprb,1.4757e-03_jprb,&
 & 1.4814e-03_jprb,6.7183e-04_jprb,1.5894e-04_jprb/)  
kao( :, 3, 6, 2) = (/&
 & 7.0773e-04_jprb,7.6513e-04_jprb,6.8912e-04_jprb,9.6974e-04_jprb,1.1945e-03_jprb,1.3671e-03_jprb,&
 & 1.5170e-03_jprb,7.0773e-04_jprb,1.6897e-04_jprb/)  
kao( :, 4, 6, 2) = (/&
 & 7.3816e-04_jprb,7.9782e-04_jprb,7.4473e-04_jprb,8.7065e-04_jprb,1.1028e-03_jprb,1.3310e-03_jprb,&
 & 1.4982e-03_jprb,7.3816e-04_jprb,1.8083e-04_jprb/)  
kao( :, 5, 6, 2) = (/&
 & 7.6173e-04_jprb,8.2557e-04_jprb,8.0696e-04_jprb,7.9653e-04_jprb,9.7171e-04_jprb,1.2001e-03_jprb,&
 & 1.4350e-03_jprb,7.6173e-04_jprb,1.9544e-04_jprb/)  
kao( :, 1, 7, 2) = (/&
 & 5.0891e-04_jprb,5.3280e-04_jprb,7.2820e-04_jprb,1.0600e-03_jprb,1.1897e-03_jprb,1.2028e-03_jprb,&
 & 1.2645e-03_jprb,5.0891e-04_jprb,1.6819e-04_jprb/)  
kao( :, 2, 7, 2) = (/&
 & 5.5019e-04_jprb,5.8559e-04_jprb,5.5050e-04_jprb,9.8189e-04_jprb,1.1133e-03_jprb,1.1994e-03_jprb,&
 & 1.2177e-03_jprb,5.5019e-04_jprb,1.7740e-04_jprb/)  
kao( :, 3, 7, 2) = (/&
 & 5.8438e-04_jprb,6.2588e-04_jprb,5.2192e-04_jprb,8.6875e-04_jprb,1.0399e-03_jprb,1.1761e-03_jprb,&
 & 1.2214e-03_jprb,5.8438e-04_jprb,1.8897e-04_jprb/)  
kao( :, 4, 7, 2) = (/&
 & 6.1239e-04_jprb,6.5682e-04_jprb,6.0713e-04_jprb,7.7808e-04_jprb,9.7331e-04_jprb,1.1140e-03_jprb,&
 & 1.3014e-03_jprb,6.1239e-04_jprb,2.0290e-04_jprb/)  
kao( :, 5, 7, 2) = (/&
 & 6.3467e-04_jprb,6.8419e-04_jprb,6.5295e-04_jprb,6.7554e-04_jprb,8.8119e-04_jprb,1.1133e-03_jprb,&
 & 1.2053e-03_jprb,6.3467e-04_jprb,2.1872e-04_jprb/)  
kao( :, 1, 8, 2) = (/&
 & 4.0935e-04_jprb,4.1885e-04_jprb,6.7101e-04_jprb,9.1256e-04_jprb,1.0194e-03_jprb,1.0135e-03_jprb,&
 & 1.0819e-03_jprb,4.0935e-04_jprb,2.1824e-04_jprb/)  
kao( :, 2, 8, 2) = (/&
 & 4.4692e-04_jprb,4.7118e-04_jprb,5.1659e-04_jprb,8.5913e-04_jprb,9.6357e-04_jprb,9.8846e-04_jprb,&
 & 1.0429e-03_jprb,4.4692e-04_jprb,2.3690e-04_jprb/)  
kao( :, 3, 8, 2) = (/&
 & 4.7903e-04_jprb,5.0921e-04_jprb,4.2513e-04_jprb,7.7866e-04_jprb,8.9423e-04_jprb,1.0205e-03_jprb,&
 & 1.0213e-03_jprb,4.7903e-04_jprb,2.5819e-04_jprb/)  
kao( :, 4, 8, 2) = (/&
 & 5.0519e-04_jprb,5.3873e-04_jprb,4.7470e-04_jprb,6.8242e-04_jprb,8.4925e-04_jprb,9.6082e-04_jprb,&
 & 1.0565e-03_jprb,5.0519e-04_jprb,2.8169e-04_jprb/)  
kao( :, 5, 8, 2) = (/&
 & 5.2646e-04_jprb,5.6355e-04_jprb,5.3173e-04_jprb,6.2134e-04_jprb,7.8503e-04_jprb,9.3706e-04_jprb,&
 & 1.0322e-03_jprb,5.2647e-04_jprb,3.0574e-04_jprb/)  
kao( :, 1, 9, 2) = (/&
 & 3.2639e-04_jprb,3.2062e-04_jprb,6.1707e-04_jprb,7.9540e-04_jprb,8.4564e-04_jprb,8.5817e-04_jprb,&
 & 9.0723e-04_jprb,3.2639e-04_jprb,5.5545e-04_jprb/)  
kao( :, 2, 9, 2) = (/&
 & 3.6012e-04_jprb,3.7319e-04_jprb,5.0226e-04_jprb,7.4254e-04_jprb,8.4023e-04_jprb,8.3301e-04_jprb,&
 & 8.5728e-04_jprb,3.6012e-04_jprb,6.1165e-04_jprb/)  
kao( :, 3, 9, 2) = (/&
 & 3.8987e-04_jprb,4.1225e-04_jprb,3.7907e-04_jprb,6.8530e-04_jprb,7.7881e-04_jprb,8.3778e-04_jprb,&
 & 8.4817e-04_jprb,3.8987e-04_jprb,6.6653e-04_jprb/)  
kao( :, 4, 9, 2) = (/&
 & 4.1424e-04_jprb,4.3910e-04_jprb,3.6051e-04_jprb,6.1000e-04_jprb,7.2902e-04_jprb,8.1999e-04_jprb,&
 & 8.4396e-04_jprb,4.1424e-04_jprb,7.1819e-04_jprb/)  
kao( :, 5, 9, 2) = (/&
 & 4.3431e-04_jprb,4.6239e-04_jprb,4.2288e-04_jprb,5.4880e-04_jprb,6.8867e-04_jprb,7.7866e-04_jprb,&
 & 8.9097e-04_jprb,4.3431e-04_jprb,7.7202e-04_jprb/)  
kao( :, 1,10, 2) = (/&
 & 2.6062e-04_jprb,2.4097e-04_jprb,5.6760e-04_jprb,6.7838e-04_jprb,7.0839e-04_jprb,7.4582e-04_jprb,&
 & 7.5583e-04_jprb,2.6062e-04_jprb,2.5277e-03_jprb/)  
kao( :, 2,10, 2) = (/&
 & 2.9023e-04_jprb,2.9545e-04_jprb,4.5173e-04_jprb,6.2994e-04_jprb,7.1727e-04_jprb,7.0001e-04_jprb,&
 & 7.3420e-04_jprb,2.9022e-04_jprb,2.7784e-03_jprb/)  
kao( :, 3,10, 2) = (/&
 & 3.1702e-04_jprb,3.3294e-04_jprb,3.4527e-04_jprb,5.9793e-04_jprb,6.6774e-04_jprb,6.9352e-04_jprb,&
 & 7.1312e-04_jprb,3.1702e-04_jprb,3.0145e-03_jprb/)  
kao( :, 4,10, 2) = (/&
 & 3.3919e-04_jprb,3.5815e-04_jprb,2.9459e-04_jprb,5.3609e-04_jprb,6.2952e-04_jprb,7.0029e-04_jprb,&
 & 6.9972e-04_jprb,3.3919e-04_jprb,3.2222e-03_jprb/)  
kao( :, 5,10, 2) = (/&
 & 3.5768e-04_jprb,3.7923e-04_jprb,3.2874e-04_jprb,4.7549e-04_jprb,5.9483e-04_jprb,6.7311e-04_jprb,&
 & 7.3613e-04_jprb,3.5768e-04_jprb,3.4035e-03_jprb/)  
kao( :, 1,11, 2) = (/&
 & 2.1907e-04_jprb,2.0328e-04_jprb,4.6419e-04_jprb,5.6297e-04_jprb,5.8907e-04_jprb,6.1155e-04_jprb,&
 & 6.1013e-04_jprb,2.1907e-04_jprb,5.1242e-03_jprb/)  
kao( :, 2,11, 2) = (/&
 & 2.4410e-04_jprb,2.4843e-04_jprb,3.7130e-04_jprb,5.2284e-04_jprb,5.9762e-04_jprb,5.8585e-04_jprb,&
 & 6.0135e-04_jprb,2.4411e-04_jprb,5.5864e-03_jprb/)  
kao( :, 3,11, 2) = (/&
 & 2.6625e-04_jprb,2.7930e-04_jprb,2.8189e-04_jprb,4.9405e-04_jprb,5.5402e-04_jprb,5.7720e-04_jprb,&
 & 5.8571e-04_jprb,2.6625e-04_jprb,6.0066e-03_jprb/)  
kao( :, 4,11, 2) = (/&
 & 2.8487e-04_jprb,3.0018e-04_jprb,2.4472e-04_jprb,4.4200e-04_jprb,5.2652e-04_jprb,5.8248e-04_jprb,&
 & 5.7961e-04_jprb,2.8487e-04_jprb,6.3763e-03_jprb/)  
kao( :, 5,11, 2) = (/&
 & 3.0010e-04_jprb,3.1719e-04_jprb,2.7311e-04_jprb,3.9201e-04_jprb,4.9427e-04_jprb,5.6306e-04_jprb,&
 & 6.1631e-04_jprb,3.0010e-04_jprb,6.6804e-03_jprb/)  
kao( :, 1,12, 2) = (/&
 & 1.8394e-04_jprb,1.7118e-04_jprb,3.7730e-04_jprb,4.6792e-04_jprb,4.8975e-04_jprb,4.9917e-04_jprb,&
 & 5.0397e-04_jprb,1.8394e-04_jprb,6.7953e-03_jprb/)  
kao( :, 2,12, 2) = (/&
 & 2.0488e-04_jprb,2.0891e-04_jprb,3.0355e-04_jprb,4.3536e-04_jprb,4.9195e-04_jprb,4.8369e-04_jprb,&
 & 4.9615e-04_jprb,2.0488e-04_jprb,7.3722e-03_jprb/)  
kao( :, 3,12, 2) = (/&
 & 2.2338e-04_jprb,2.3370e-04_jprb,2.2853e-04_jprb,4.0848e-04_jprb,4.6057e-04_jprb,4.8139e-04_jprb,&
 & 4.8293e-04_jprb,2.2338e-04_jprb,7.8888e-03_jprb/)  
kao( :, 4,12, 2) = (/&
 & 2.3905e-04_jprb,2.5126e-04_jprb,2.0156e-04_jprb,3.6557e-04_jprb,4.3992e-04_jprb,4.8195e-04_jprb,&
 & 4.8526e-04_jprb,2.3905e-04_jprb,8.3181e-03_jprb/)  
kao( :, 5,12, 2) = (/&
 & 2.5129e-04_jprb,2.6467e-04_jprb,2.2905e-04_jprb,3.2273e-04_jprb,4.1230e-04_jprb,4.6630e-04_jprb,&
 & 5.1248e-04_jprb,2.5129e-04_jprb,8.6386e-03_jprb/)  
kao( :, 1,13, 2) = (/&
 & 1.5430e-04_jprb,1.4442e-04_jprb,3.0805e-04_jprb,3.8950e-04_jprb,4.0767e-04_jprb,4.1179e-04_jprb,&
 & 4.1330e-04_jprb,1.5430e-04_jprb,7.3053e-03_jprb/)  
kao( :, 2,13, 2) = (/&
 & 1.7179e-04_jprb,1.7510e-04_jprb,2.4818e-04_jprb,3.6198e-04_jprb,4.0625e-04_jprb,3.9974e-04_jprb,&
 & 4.1166e-04_jprb,1.7179e-04_jprb,7.9022e-03_jprb/)  
kao( :, 3,13, 2) = (/&
 & 1.8741e-04_jprb,1.9575e-04_jprb,1.8604e-04_jprb,3.3670e-04_jprb,3.8272e-04_jprb,4.0145e-04_jprb,&
 & 4.0060e-04_jprb,1.8741e-04_jprb,8.4145e-03_jprb/)  
kao( :, 4,13, 2) = (/&
 & 2.0031e-04_jprb,2.0975e-04_jprb,1.6656e-04_jprb,3.0379e-04_jprb,3.6769e-04_jprb,4.0078e-04_jprb,&
 & 4.0187e-04_jprb,2.0032e-04_jprb,8.8018e-03_jprb/)  
kao( :, 5,13, 2) = (/&
 & 2.1018e-04_jprb,2.2076e-04_jprb,1.9159e-04_jprb,2.6448e-04_jprb,3.4432e-04_jprb,3.8512e-04_jprb,&
 & 4.2420e-04_jprb,2.1018e-04_jprb,9.0680e-03_jprb/)  
kao( :, 1, 1, 3) = (/&
 & 2.3465e-03_jprb,2.4031e-03_jprb,2.2597e-03_jprb,2.1524e-03_jprb,2.8276e-03_jprb,3.5761e-03_jprb,&
 & 4.3079e-03_jprb,2.3465e-03_jprb,5.1471e-04_jprb/)  
kao( :, 2, 1, 3) = (/&
 & 2.3042e-03_jprb,2.4485e-03_jprb,2.4199e-03_jprb,2.2938e-03_jprb,2.9847e-03_jprb,3.1952e-03_jprb,&
 & 4.1667e-03_jprb,2.3042e-03_jprb,6.2319e-04_jprb/)  
kao( :, 3, 1, 3) = (/&
 & 2.2700e-03_jprb,2.4966e-03_jprb,2.5862e-03_jprb,2.6511e-03_jprb,2.8738e-03_jprb,2.9164e-03_jprb,&
 & 3.6118e-03_jprb,2.2700e-03_jprb,7.4229e-04_jprb/)  
kao( :, 4, 1, 3) = (/&
 & 2.2509e-03_jprb,2.5573e-03_jprb,2.7581e-03_jprb,2.9718e-03_jprb,3.0657e-03_jprb,3.3376e-03_jprb,&
 & 3.1600e-03_jprb,2.2509e-03_jprb,8.5977e-04_jprb/)  
kao( :, 5, 1, 3) = (/&
 & 2.2422e-03_jprb,2.6355e-03_jprb,2.9552e-03_jprb,3.2531e-03_jprb,3.4296e-03_jprb,3.4558e-03_jprb,&
 & 3.2808e-03_jprb,2.2422e-03_jprb,9.9766e-04_jprb/)  
kao( :, 1, 2, 3) = (/&
 & 2.0157e-03_jprb,2.0510e-03_jprb,1.8851e-03_jprb,1.8206e-03_jprb,2.4343e-03_jprb,2.9704e-03_jprb,&
 & 3.8311e-03_jprb,2.0157e-03_jprb,4.1396e-04_jprb/)  
kao( :, 2, 2, 3) = (/&
 & 1.9815e-03_jprb,2.0886e-03_jprb,2.0439e-03_jprb,1.8938e-03_jprb,2.5204e-03_jprb,2.7128e-03_jprb,&
 & 3.3350e-03_jprb,1.9815e-03_jprb,4.8039e-04_jprb/)  
kao( :, 3, 2, 3) = (/&
 & 1.9576e-03_jprb,2.1326e-03_jprb,2.1790e-03_jprb,2.1795e-03_jprb,2.4882e-03_jprb,2.4941e-03_jprb,&
 & 3.2109e-03_jprb,1.9575e-03_jprb,5.7955e-04_jprb/)  
kao( :, 4, 2, 3) = (/&
 & 1.9481e-03_jprb,2.1829e-03_jprb,2.3235e-03_jprb,2.4676e-03_jprb,2.6097e-03_jprb,2.8349e-03_jprb,&
 & 2.5868e-03_jprb,1.9481e-03_jprb,6.6714e-04_jprb/)  
kao( :, 5, 2, 3) = (/&
 & 1.9507e-03_jprb,2.2521e-03_jprb,2.4912e-03_jprb,2.7356e-03_jprb,2.8987e-03_jprb,2.9418e-03_jprb,&
 & 2.7830e-03_jprb,1.9507e-03_jprb,7.7523e-04_jprb/)  
kao( :, 1, 3, 3) = (/&
 & 1.7285e-03_jprb,1.7377e-03_jprb,1.5305e-03_jprb,1.6757e-03_jprb,2.1680e-03_jprb,2.5609e-03_jprb,&
 & 3.3887e-03_jprb,1.7285e-03_jprb,3.2280e-04_jprb/)  
kao( :, 2, 3, 3) = (/&
 & 1.7015e-03_jprb,1.7653e-03_jprb,1.6878e-03_jprb,1.5112e-03_jprb,2.1719e-03_jprb,2.4083e-03_jprb,&
 & 2.8061e-03_jprb,1.7015e-03_jprb,3.7412e-04_jprb/)  
kao( :, 3, 3, 3) = (/&
 & 1.6851e-03_jprb,1.8101e-03_jprb,1.8073e-03_jprb,1.7539e-03_jprb,2.2398e-03_jprb,2.1112e-03_jprb,&
 & 2.7333e-03_jprb,1.6851e-03_jprb,4.3157e-04_jprb/)  
kao( :, 4, 3, 3) = (/&
 & 1.6786e-03_jprb,1.8567e-03_jprb,1.9291e-03_jprb,1.9927e-03_jprb,2.1347e-03_jprb,2.2693e-03_jprb,&
 & 2.2801e-03_jprb,1.6786e-03_jprb,5.0448e-04_jprb/)  
kao( :, 5, 3, 3) = (/&
 & 1.6877e-03_jprb,1.9156e-03_jprb,2.0710e-03_jprb,2.2420e-03_jprb,2.3625e-03_jprb,2.5310e-03_jprb,&
 & 2.3182e-03_jprb,1.6877e-03_jprb,5.8583e-04_jprb/)  
kao( :, 1, 4, 3) = (/&
 & 1.4834e-03_jprb,1.4711e-03_jprb,1.2522e-03_jprb,1.4479e-03_jprb,1.9854e-03_jprb,2.2569e-03_jprb,&
 & 2.9775e-03_jprb,1.4834e-03_jprb,2.5081e-04_jprb/)  
kao( :, 2, 4, 3) = (/&
 & 1.4601e-03_jprb,1.4870e-03_jprb,1.3690e-03_jprb,1.2662e-03_jprb,1.8060e-03_jprb,2.0826e-03_jprb,&
 & 2.4977e-03_jprb,1.4601e-03_jprb,2.9277e-04_jprb/)  
kao( :, 3, 4, 3) = (/&
 & 1.4467e-03_jprb,1.5271e-03_jprb,1.4979e-03_jprb,1.3500e-03_jprb,1.8497e-03_jprb,1.9610e-03_jprb,&
 & 2.2907e-03_jprb,1.4467e-03_jprb,3.3271e-04_jprb/)  
kao( :, 4, 4, 3) = (/&
 & 1.4432e-03_jprb,1.5714e-03_jprb,1.5969e-03_jprb,1.5937e-03_jprb,1.7902e-03_jprb,1.9320e-03_jprb,&
 & 2.2420e-03_jprb,1.4432e-03_jprb,3.8467e-04_jprb/)  
kao( :, 5, 4, 3) = (/&
 & 1.4550e-03_jprb,1.6236e-03_jprb,1.7127e-03_jprb,1.8068e-03_jprb,1.8486e-03_jprb,2.1176e-03_jprb,&
 & 1.8018e-03_jprb,1.4551e-03_jprb,4.4551e-04_jprb/)  
kao( :, 1, 5, 3) = (/&
 & 1.2773e-03_jprb,1.2497e-03_jprb,1.0064e-03_jprb,1.2506e-03_jprb,1.7352e-03_jprb,2.1064e-03_jprb,&
 & 2.5188e-03_jprb,1.2773e-03_jprb,2.1025e-04_jprb/)  
kao( :, 2, 5, 3) = (/&
 & 1.2595e-03_jprb,1.2634e-03_jprb,1.1147e-03_jprb,1.1296e-03_jprb,1.5824e-03_jprb,1.8075e-03_jprb,&
 & 2.2978e-03_jprb,1.2595e-03_jprb,2.3601e-04_jprb/)  
kao( :, 3, 5, 3) = (/&
 & 1.2471e-03_jprb,1.2907e-03_jprb,1.2226e-03_jprb,1.0559e-03_jprb,1.5556e-03_jprb,1.7264e-03_jprb,&
 & 1.8319e-03_jprb,1.2471e-03_jprb,2.6674e-04_jprb/)  
kao( :, 4, 5, 3) = (/&
 & 1.2460e-03_jprb,1.3277e-03_jprb,1.3232e-03_jprb,1.2839e-03_jprb,1.5266e-03_jprb,1.5639e-03_jprb,&
 & 1.9030e-03_jprb,1.2460e-03_jprb,3.0491e-04_jprb/)  
kao( :, 5, 5, 3) = (/&
 & 1.2575e-03_jprb,1.3721e-03_jprb,1.4143e-03_jprb,1.4453e-03_jprb,1.5006e-03_jprb,1.7674e-03_jprb,&
 & 1.7436e-03_jprb,1.2575e-03_jprb,3.5060e-04_jprb/)  
kao( :, 1, 6, 3) = (/&
 & 1.0958e-03_jprb,1.0595e-03_jprb,7.7664e-04_jprb,1.1085e-03_jprb,1.5393e-03_jprb,1.9338e-03_jprb,&
 & 2.1934e-03_jprb,1.0958e-03_jprb,1.9645e-04_jprb/)  
kao( :, 2, 6, 3) = (/&
 & 1.0816e-03_jprb,1.0727e-03_jprb,9.0695e-04_jprb,1.0023e-03_jprb,1.4434e-03_jprb,1.5856e-03_jprb,&
 & 2.0291e-03_jprb,1.0816e-03_jprb,2.1208e-04_jprb/)  
kao( :, 3, 6, 3) = (/&
 & 1.0710e-03_jprb,1.0888e-03_jprb,9.9129e-04_jprb,8.7443e-04_jprb,1.3179e-03_jprb,1.5033e-03_jprb,&
 & 1.7077e-03_jprb,1.0710e-03_jprb,2.3481e-04_jprb/)  
kao( :, 4, 6, 3) = (/&
 & 1.0708e-03_jprb,1.1186e-03_jprb,1.0874e-03_jprb,9.5969e-04_jprb,1.2671e-03_jprb,1.4010e-03_jprb,&
 & 1.5917e-03_jprb,1.0708e-03_jprb,2.6339e-04_jprb/)  
kao( :, 5, 6, 3) = (/&
 & 1.0806e-03_jprb,1.1572e-03_jprb,1.1631e-03_jprb,1.1545e-03_jprb,1.2485e-03_jprb,1.4294e-03_jprb,&
 & 1.6004e-03_jprb,1.0806e-03_jprb,2.9803e-04_jprb/)  
kao( :, 1, 7, 3) = (/&
 & 9.3348e-04_jprb,8.9092e-04_jprb,5.7161e-04_jprb,1.0208e-03_jprb,1.3784e-03_jprb,1.7037e-03_jprb,&
 & 1.8935e-03_jprb,9.3348e-04_jprb,2.1146e-04_jprb/)  
kao( :, 2, 7, 3) = (/&
 & 9.2171e-04_jprb,9.0329e-04_jprb,7.1477e-04_jprb,8.4903e-04_jprb,1.2778e-03_jprb,1.4945e-03_jprb,&
 & 1.7270e-03_jprb,9.2171e-04_jprb,2.3005e-04_jprb/)  
kao( :, 3, 7, 3) = (/&
 & 9.1419e-04_jprb,9.1920e-04_jprb,8.1160e-04_jprb,7.6435e-04_jprb,1.1213e-03_jprb,1.3301e-03_jprb,&
 & 1.6214e-03_jprb,9.1419e-04_jprb,2.5234e-04_jprb/)  
kao( :, 4, 7, 3) = (/&
 & 9.1402e-04_jprb,9.3968e-04_jprb,8.8126e-04_jprb,7.5287e-04_jprb,1.0570e-03_jprb,1.2475e-03_jprb,&
 & 1.2998e-03_jprb,9.1402e-04_jprb,2.7815e-04_jprb/)  
kao( :, 5, 7, 3) = (/&
 & 9.2290e-04_jprb,9.7254e-04_jprb,9.5644e-04_jprb,8.9479e-04_jprb,1.0508e-03_jprb,1.1268e-03_jprb,&
 & 1.3501e-03_jprb,9.2290e-04_jprb,3.0806e-04_jprb/)  
kao( :, 1, 8, 3) = (/&
 & 7.8900e-04_jprb,7.4488e-04_jprb,4.6218e-04_jprb,9.6318e-04_jprb,1.2372e-03_jprb,1.5237e-03_jprb,&
 & 1.6722e-03_jprb,7.8900e-04_jprb,3.0765e-04_jprb/)  
kao( :, 2, 8, 3) = (/&
 & 7.8043e-04_jprb,7.5428e-04_jprb,5.4366e-04_jprb,7.5909e-04_jprb,1.0879e-03_jprb,1.3550e-03_jprb,&
 & 1.4794e-03_jprb,7.8043e-04_jprb,3.3864e-04_jprb/)  
kao( :, 3, 8, 3) = (/&
 & 7.7466e-04_jprb,7.6980e-04_jprb,6.4963e-04_jprb,7.0009e-04_jprb,9.7649e-04_jprb,1.1689e-03_jprb,&
 & 1.4326e-03_jprb,7.7466e-04_jprb,3.7286e-04_jprb/)  
kao( :, 4, 8, 3) = (/&
 & 7.7506e-04_jprb,7.8870e-04_jprb,7.1575e-04_jprb,6.1864e-04_jprb,8.9565e-04_jprb,1.0708e-03_jprb,&
 & 1.2387e-03_jprb,7.7506e-04_jprb,4.1070e-04_jprb/)  
kao( :, 5, 8, 3) = (/&
 & 7.8287e-04_jprb,8.1561e-04_jprb,7.7836e-04_jprb,6.6838e-04_jprb,8.8453e-04_jprb,9.5158e-04_jprb,&
 & 1.1620e-03_jprb,7.8287e-04_jprb,4.5222e-04_jprb/)  
kao( :, 1, 9, 3) = (/&
 & 6.6353e-04_jprb,6.2207e-04_jprb,4.1497e-04_jprb,8.5325e-04_jprb,1.1545e-03_jprb,1.3202e-03_jprb,&
 & 1.4543e-03_jprb,6.6353e-04_jprb,9.2255e-04_jprb/)  
kao( :, 2, 9, 3) = (/&
 & 6.5824e-04_jprb,6.2786e-04_jprb,3.9339e-04_jprb,7.1164e-04_jprb,9.5910e-04_jprb,1.2248e-03_jprb,&
 & 1.2834e-03_jprb,6.5824e-04_jprb,1.0047e-03_jprb/)  
kao( :, 3, 9, 3) = (/&
 & 6.5331e-04_jprb,6.3921e-04_jprb,5.1016e-04_jprb,5.9654e-04_jprb,8.7596e-04_jprb,1.0857e-03_jprb,&
 & 1.2145e-03_jprb,6.5331e-04_jprb,1.0900e-03_jprb/)  
kao( :, 4, 9, 3) = (/&
 & 6.5413e-04_jprb,6.5950e-04_jprb,5.8244e-04_jprb,5.3974e-04_jprb,7.9259e-04_jprb,9.3024e-04_jprb,&
 & 1.1600e-03_jprb,6.5413e-04_jprb,1.1801e-03_jprb/)  
kao( :, 5, 9, 3) = (/&
 & 6.6022e-04_jprb,6.8110e-04_jprb,6.3639e-04_jprb,5.2716e-04_jprb,7.2311e-04_jprb,8.5016e-04_jprb,&
 & 9.6256e-04_jprb,6.6022e-04_jprb,1.2684e-03_jprb/)  
kao( :, 1,10, 3) = (/&
 & 5.5537e-04_jprb,5.1658e-04_jprb,3.5969e-04_jprb,7.5778e-04_jprb,1.0268e-03_jprb,1.1188e-03_jprb,&
 & 1.2385e-03_jprb,5.5537e-04_jprb,4.6647e-03_jprb/)  
kao( :, 2,10, 3) = (/&
 & 5.5299e-04_jprb,5.2259e-04_jprb,3.1728e-04_jprb,6.5526e-04_jprb,8.4363e-04_jprb,1.0738e-03_jprb,&
 & 1.0790e-03_jprb,5.5299e-04_jprb,4.9960e-03_jprb/)  
kao( :, 3,10, 3) = (/&
 & 5.4881e-04_jprb,5.3065e-04_jprb,3.9373e-04_jprb,5.2361e-04_jprb,7.6014e-04_jprb,9.4697e-04_jprb,&
 & 1.0409e-03_jprb,5.4881e-04_jprb,5.3035e-03_jprb/)  
kao( :, 4,10, 3) = (/&
 & 5.5010e-04_jprb,5.4878e-04_jprb,4.7038e-04_jprb,4.9342e-04_jprb,6.7583e-04_jprb,8.0683e-04_jprb,&
 & 1.0299e-03_jprb,5.5010e-04_jprb,5.6055e-03_jprb/)  
kao( :, 5,10, 3) = (/&
 & 5.5598e-04_jprb,5.6871e-04_jprb,5.2247e-04_jprb,4.3615e-04_jprb,6.1815e-04_jprb,7.4431e-04_jprb,&
 & 8.6008e-04_jprb,5.5598e-04_jprb,5.8866e-03_jprb/)  
kao( :, 1,11, 3) = (/&
 & 4.6383e-04_jprb,4.3181e-04_jprb,2.9311e-04_jprb,6.2613e-04_jprb,8.4464e-04_jprb,9.4332e-04_jprb,&
 & 1.0276e-03_jprb,4.6383e-04_jprb,9.7820e-03_jprb/)  
kao( :, 2,11, 3) = (/&
 & 4.6171e-04_jprb,4.3648e-04_jprb,2.6562e-04_jprb,5.3382e-04_jprb,6.9685e-04_jprb,9.0179e-04_jprb,&
 & 9.0128e-04_jprb,4.6171e-04_jprb,1.0398e-02_jprb/)  
kao( :, 3,11, 3) = (/&
 & 4.5971e-04_jprb,4.4491e-04_jprb,3.3508e-04_jprb,4.3267e-04_jprb,6.3864e-04_jprb,7.7944e-04_jprb,&
 & 8.8922e-04_jprb,4.5971e-04_jprb,1.0944e-02_jprb/)  
kao( :, 4,11, 3) = (/&
 & 4.6259e-04_jprb,4.6298e-04_jprb,4.0175e-04_jprb,4.0894e-04_jprb,5.5874e-04_jprb,6.6574e-04_jprb,&
 & 8.6378e-04_jprb,4.6259e-04_jprb,1.1452e-02_jprb/)  
kao( :, 5,11, 3) = (/&
 & 4.6974e-04_jprb,4.8223e-04_jprb,4.4819e-04_jprb,3.7104e-04_jprb,5.1007e-04_jprb,6.1091e-04_jprb,&
 & 6.9095e-04_jprb,4.6974e-04_jprb,1.1916e-02_jprb/)  
kao( :, 1,12, 3) = (/&
 & 3.8677e-04_jprb,3.6035e-04_jprb,2.4184e-04_jprb,5.1647e-04_jprb,6.9945e-04_jprb,8.0460e-04_jprb,&
 & 8.3717e-04_jprb,3.8677e-04_jprb,1.3274e-02_jprb/)  

IF (lhook) CALL dr_hook('RRTM_KGB4:PART2',1,zhook_handle)
END SUBROUTINE part2


SUBROUTINE part3

REAL(KIND=JPRB) :: ZHOOK_HANDLE
IF (lhook) CALL dr_hook('RRTM_KGB4:PART3',0,zhook_handle)


kao( :, 2,12, 3) = (/&
 & 3.8521e-04_jprb,3.6402e-04_jprb,2.2242e-04_jprb,4.3447e-04_jprb,5.8110e-04_jprb,7.4047e-04_jprb,&
 & 7.6321e-04_jprb,3.8521e-04_jprb,1.4068e-02_jprb/)  
kao( :, 3,12, 3) = (/&
 & 3.8458e-04_jprb,3.7296e-04_jprb,2.8696e-04_jprb,3.5751e-04_jprb,5.2960e-04_jprb,6.4366e-04_jprb,&
 & 7.5179e-04_jprb,3.8458e-04_jprb,1.4758e-02_jprb/)  
kao( :, 4,12, 3) = (/&
 & 3.8810e-04_jprb,3.8944e-04_jprb,3.4377e-04_jprb,3.3355e-04_jprb,4.6692e-04_jprb,5.5746e-04_jprb,&
 & 7.0895e-04_jprb,3.8810e-04_jprb,1.5376e-02_jprb/)  
kao( :, 5,12, 3) = (/&
 & 3.9595e-04_jprb,4.0863e-04_jprb,3.8125e-04_jprb,3.1202e-04_jprb,4.2678e-04_jprb,5.1131e-04_jprb,&
 & 5.7489e-04_jprb,3.9595e-04_jprb,1.5941e-02_jprb/)  
kao( :, 1,13, 3) = (/&
 & 3.2194e-04_jprb,2.9976e-04_jprb,1.9852e-04_jprb,4.2567e-04_jprb,5.7525e-04_jprb,6.7061e-04_jprb,&
 & 6.9907e-04_jprb,3.2194e-04_jprb,1.4565e-02_jprb/)  
kao( :, 2,13, 3) = (/&
 & 3.2103e-04_jprb,3.0342e-04_jprb,1.8519e-04_jprb,3.5157e-04_jprb,4.8791e-04_jprb,6.1939e-04_jprb,&
 & 6.5160e-04_jprb,3.2103e-04_jprb,1.5395e-02_jprb/)  
kao( :, 3,13, 3) = (/&
 & 3.2113e-04_jprb,3.1205e-04_jprb,2.4410e-04_jprb,2.9571e-04_jprb,4.4082e-04_jprb,5.2957e-04_jprb,&
 & 6.2741e-04_jprb,3.2112e-04_jprb,1.6107e-02_jprb/)  
kao( :, 4,13, 3) = (/&
 & 3.2542e-04_jprb,3.2754e-04_jprb,2.9103e-04_jprb,2.6678e-04_jprb,3.8858e-04_jprb,4.6663e-04_jprb,&
 & 5.7700e-04_jprb,3.2542e-04_jprb,1.6764e-02_jprb/)  
kao( :, 5,13, 3) = (/&
 & 3.3271e-04_jprb,3.4522e-04_jprb,3.2313e-04_jprb,2.6306e-04_jprb,3.5325e-04_jprb,4.2786e-04_jprb,&
 & 4.7758e-04_jprb,3.3271e-04_jprb,1.7329e-02_jprb/)  
kao( :, 1, 1, 4) = (/&
 & 3.2539e-03_jprb,3.4940e-03_jprb,3.4388e-03_jprb,3.0659e-03_jprb,3.4522e-03_jprb,4.1188e-03_jprb,&
 & 4.1472e-03_jprb,3.2539e-03_jprb,9.9646e-04_jprb/)  
kao( :, 2, 1, 4) = (/&
 & 3.2363e-03_jprb,3.6045e-03_jprb,3.7021e-03_jprb,3.5901e-03_jprb,3.1463e-03_jprb,4.3360e-03_jprb,&
 & 4.0838e-03_jprb,3.2363e-03_jprb,1.0956e-03_jprb/)  
kao( :, 3, 1, 4) = (/&
 & 3.2334e-03_jprb,3.7700e-03_jprb,3.9602e-03_jprb,3.9629e-03_jprb,3.8081e-03_jprb,4.2925e-03_jprb,&
 & 5.1219e-03_jprb,3.2334e-03_jprb,1.3007e-03_jprb/)  
kao( :, 4, 1, 4) = (/&
 & 3.2490e-03_jprb,3.9748e-03_jprb,4.2071e-03_jprb,4.2935e-03_jprb,4.3164e-03_jprb,4.2604e-03_jprb,&
 & 5.6033e-03_jprb,3.2490e-03_jprb,1.5944e-03_jprb/)  
kao( :, 5, 1, 4) = (/&
 & 3.2698e-03_jprb,4.1740e-03_jprb,4.4497e-03_jprb,4.6155e-03_jprb,4.8047e-03_jprb,5.1537e-03_jprb,&
 & 5.5559e-03_jprb,3.2698e-03_jprb,1.9119e-03_jprb/)  
kao( :, 1, 2, 4) = (/&
 & 2.8229e-03_jprb,2.9984e-03_jprb,2.9248e-03_jprb,2.5710e-03_jprb,2.9591e-03_jprb,3.5685e-03_jprb,&
 & 3.3471e-03_jprb,2.8229e-03_jprb,7.1037e-04_jprb/)  
kao( :, 2, 2, 4) = (/&
 & 2.8182e-03_jprb,3.1079e-03_jprb,3.1510e-03_jprb,3.0220e-03_jprb,2.6456e-03_jprb,3.5065e-03_jprb,&
 & 3.5091e-03_jprb,2.8182e-03_jprb,8.2941e-04_jprb/)  
kao( :, 3, 2, 4) = (/&
 & 2.8273e-03_jprb,3.2641e-03_jprb,3.3991e-03_jprb,3.3882e-03_jprb,3.1076e-03_jprb,3.6339e-03_jprb,&
 & 4.1453e-03_jprb,2.8273e-03_jprb,9.9329e-04_jprb/)  
kao( :, 4, 2, 4) = (/&
 & 2.8479e-03_jprb,3.4537e-03_jprb,3.6378e-03_jprb,3.6922e-03_jprb,3.5902e-03_jprb,3.4985e-03_jprb,&
 & 4.8079e-03_jprb,2.8479e-03_jprb,1.2207e-03_jprb/)  
kao( :, 5, 2, 4) = (/&
 & 2.8762e-03_jprb,3.6435e-03_jprb,3.8640e-03_jprb,3.9829e-03_jprb,4.0196e-03_jprb,4.2137e-03_jprb,&
 & 4.6057e-03_jprb,2.8762e-03_jprb,1.4645e-03_jprb/)  
kao( :, 1, 3, 4) = (/&
 & 2.4480e-03_jprb,2.5503e-03_jprb,2.4276e-03_jprb,1.9299e-03_jprb,2.4394e-03_jprb,2.9600e-03_jprb,&
 & 3.0819e-03_jprb,2.4480e-03_jprb,5.1310e-04_jprb/)  
kao( :, 2, 3, 4) = (/&
 & 2.4484e-03_jprb,2.6489e-03_jprb,2.6249e-03_jprb,2.4613e-03_jprb,2.1891e-03_jprb,2.8113e-03_jprb,&
 & 2.9085e-03_jprb,2.4484e-03_jprb,6.0695e-04_jprb/)  
kao( :, 3, 3, 4) = (/&
 & 2.4631e-03_jprb,2.7817e-03_jprb,2.8578e-03_jprb,2.8021e-03_jprb,2.3361e-03_jprb,3.1956e-03_jprb,&
 & 3.2912e-03_jprb,2.4631e-03_jprb,7.4313e-04_jprb/)  
kao( :, 4, 3, 4) = (/&
 & 2.4843e-03_jprb,2.9440e-03_jprb,3.0734e-03_jprb,3.0947e-03_jprb,2.9596e-03_jprb,2.9621e-03_jprb,&
 & 3.8254e-03_jprb,2.4843e-03_jprb,8.9831e-04_jprb/)  
kao( :, 5, 3, 4) = (/&
 & 2.5152e-03_jprb,3.1190e-03_jprb,3.2801e-03_jprb,3.3527e-03_jprb,3.3374e-03_jprb,3.2653e-03_jprb,&
 & 3.7266e-03_jprb,2.5152e-03_jprb,1.0797e-03_jprb/)  
kao( :, 1, 4, 4) = (/&
 & 2.1250e-03_jprb,2.1670e-03_jprb,1.9990e-03_jprb,1.5199e-03_jprb,1.9962e-03_jprb,2.4995e-03_jprb,&
 & 2.9024e-03_jprb,2.1250e-03_jprb,3.7531e-04_jprb/)  
kao( :, 2, 4, 4) = (/&
 & 2.1204e-03_jprb,2.2489e-03_jprb,2.1700e-03_jprb,1.9399e-03_jprb,1.9963e-03_jprb,2.4266e-03_jprb,&
 & 2.6000e-03_jprb,2.1204e-03_jprb,4.4756e-04_jprb/)  
kao( :, 3, 4, 4) = (/&
 & 2.1413e-03_jprb,2.3587e-03_jprb,2.3627e-03_jprb,2.2544e-03_jprb,1.9195e-03_jprb,2.4658e-03_jprb,&
 & 2.5172e-03_jprb,2.1413e-03_jprb,5.4705e-04_jprb/)  
kao( :, 4, 4, 4) = (/&
 & 2.1654e-03_jprb,2.4980e-03_jprb,2.5663e-03_jprb,2.5373e-03_jprb,2.3728e-03_jprb,2.4769e-03_jprb,&
 & 2.8318e-03_jprb,2.1654e-03_jprb,6.6125e-04_jprb/)  
kao( :, 5, 4, 4) = (/&
 & 2.1913e-03_jprb,2.6456e-03_jprb,2.7536e-03_jprb,2.7816e-03_jprb,2.7405e-03_jprb,2.5702e-03_jprb,&
 & 3.2605e-03_jprb,2.1913e-03_jprb,7.9714e-04_jprb/)  
kao( :, 1, 5, 4) = (/&
 & 1.8265e-03_jprb,1.8381e-03_jprb,1.6457e-03_jprb,1.2486e-03_jprb,1.7229e-03_jprb,2.0547e-03_jprb,&
 & 2.6848e-03_jprb,1.8265e-03_jprb,2.8596e-04_jprb/)  
kao( :, 2, 5, 4) = (/&
 & 1.8274e-03_jprb,1.9048e-03_jprb,1.7983e-03_jprb,1.4752e-03_jprb,1.7469e-03_jprb,2.1116e-03_jprb,&
 & 2.1134e-03_jprb,1.8274e-03_jprb,3.4190e-04_jprb/)  
kao( :, 3, 5, 4) = (/&
 & 1.8508e-03_jprb,2.0003e-03_jprb,1.9620e-03_jprb,1.8188e-03_jprb,1.6077e-03_jprb,1.9516e-03_jprb,&
 & 2.1073e-03_jprb,1.8508e-03_jprb,4.1292e-04_jprb/)  
kao( :, 4, 5, 4) = (/&
 & 1.8793e-03_jprb,2.1182e-03_jprb,2.1350e-03_jprb,2.0517e-03_jprb,1.8087e-03_jprb,2.2071e-03_jprb,&
 & 2.2714e-03_jprb,1.8793e-03_jprb,4.9789e-04_jprb/)  
kao( :, 5, 5, 4) = (/&
 & 1.9065e-03_jprb,2.2435e-03_jprb,2.3053e-03_jprb,2.2926e-03_jprb,2.2224e-03_jprb,2.0829e-03_jprb,&
 & 2.5565e-03_jprb,1.9065e-03_jprb,5.9975e-04_jprb/)  
kao( :, 1, 6, 4) = (/&
 & 1.5738e-03_jprb,1.5536e-03_jprb,1.3462e-03_jprb,1.0905e-03_jprb,1.5345e-03_jprb,1.8378e-03_jprb,&
 & 2.3696e-03_jprb,1.5738e-03_jprb,2.4570e-04_jprb/)  
kao( :, 2, 6, 4) = (/&
 & 1.5785e-03_jprb,1.6102e-03_jprb,1.4864e-03_jprb,1.0878e-03_jprb,1.4533e-03_jprb,1.8096e-03_jprb,&
 & 1.9208e-03_jprb,1.5785e-03_jprb,2.8650e-04_jprb/)  
kao( :, 3, 6, 4) = (/&
 & 1.5938e-03_jprb,1.6886e-03_jprb,1.6242e-03_jprb,1.4329e-03_jprb,1.3971e-03_jprb,1.6588e-03_jprb,&
 & 1.7977e-03_jprb,1.5938e-03_jprb,3.3646e-04_jprb/)  
kao( :, 4, 6, 4) = (/&
 & 1.6207e-03_jprb,1.7903e-03_jprb,1.7740e-03_jprb,1.6609e-03_jprb,1.4090e-03_jprb,1.7880e-03_jprb,&
 & 1.8264e-03_jprb,1.6207e-03_jprb,3.9927e-04_jprb/)  
kao( :, 5, 6, 4) = (/&
 & 1.6514e-03_jprb,1.8945e-03_jprb,1.9189e-03_jprb,1.8707e-03_jprb,1.7309e-03_jprb,1.7651e-03_jprb,&
 & 1.8956e-03_jprb,1.6514e-03_jprb,4.7341e-04_jprb/)  
kao( :, 1, 7, 4) = (/&
 & 1.3566e-03_jprb,1.3176e-03_jprb,1.0800e-03_jprb,9.9879e-04_jprb,1.3645e-03_jprb,1.6716e-03_jprb,&
 & 2.0138e-03_jprb,1.3566e-03_jprb,2.7117e-04_jprb/)  
kao( :, 2, 7, 4) = (/&
 & 1.3616e-03_jprb,1.3614e-03_jprb,1.2294e-03_jprb,8.6943e-04_jprb,1.2441e-03_jprb,1.4557e-03_jprb,&
 & 1.7627e-03_jprb,1.3616e-03_jprb,3.0497e-04_jprb/)  
kao( :, 3, 7, 4) = (/&
 & 1.3738e-03_jprb,1.4251e-03_jprb,1.3424e-03_jprb,1.0748e-03_jprb,1.3239e-03_jprb,1.4948e-03_jprb,&
 & 1.4893e-03_jprb,1.3738e-03_jprb,3.4547e-04_jprb/)  
kao( :, 4, 7, 4) = (/&
 & 1.3909e-03_jprb,1.5062e-03_jprb,1.4675e-03_jprb,1.3314e-03_jprb,1.1299e-03_jprb,1.4256e-03_jprb,&
 & 1.5101e-03_jprb,1.3909e-03_jprb,3.9363e-04_jprb/)  
kao( :, 5, 7, 4) = (/&
 & 1.4214e-03_jprb,1.5939e-03_jprb,1.5929e-03_jprb,1.5159e-03_jprb,1.3044e-03_jprb,1.5546e-03_jprb,&
 & 1.5847e-03_jprb,1.4214e-03_jprb,4.4999e-04_jprb/)  
kao( :, 1, 8, 4) = (/&
 & 1.1638e-03_jprb,1.1139e-03_jprb,8.4796e-04_jprb,8.4668e-04_jprb,1.2396e-03_jprb,1.5094e-03_jprb,&
 & 1.6975e-03_jprb,1.1638e-03_jprb,4.3052e-04_jprb/)  
kao( :, 2, 8, 4) = (/&
 & 1.1671e-03_jprb,1.1491e-03_jprb,9.9702e-04_jprb,7.1894e-04_jprb,1.1157e-03_jprb,1.2835e-03_jprb,&
 & 1.5171e-03_jprb,1.1671e-03_jprb,4.7244e-04_jprb/)  
kao( :, 3, 8, 4) = (/&
 & 1.1763e-03_jprb,1.1971e-03_jprb,1.1061e-03_jprb,7.5625e-04_jprb,1.0948e-03_jprb,1.3227e-03_jprb,&
 & 1.3243e-03_jprb,1.1763e-03_jprb,5.1908e-04_jprb/)  
kao( :, 4, 8, 4) = (/&
 & 1.1882e-03_jprb,1.2582e-03_jprb,1.2081e-03_jprb,1.0410e-03_jprb,9.4931e-04_jprb,1.2112e-03_jprb,&
 & 1.2350e-03_jprb,1.1882e-03_jprb,5.7242e-04_jprb/)  
kao( :, 5, 8, 4) = (/&
 & 1.2141e-03_jprb,1.3322e-03_jprb,1.3142e-03_jprb,1.2208e-03_jprb,9.8671e-04_jprb,1.3128e-03_jprb,&
 & 1.3456e-03_jprb,1.2141e-03_jprb,6.3120e-04_jprb/)  
kao( :, 1, 9, 4) = (/&
 & 9.9337e-04_jprb,9.3743e-04_jprb,6.1970e-04_jprb,7.5456e-04_jprb,1.1089e-03_jprb,1.3407e-03_jprb,&
 & 1.5068e-03_jprb,9.9337e-04_jprb,1.4422e-03_jprb/)  
kao( :, 2, 9, 4) = (/&
 & 9.9471e-04_jprb,9.6601e-04_jprb,8.0263e-04_jprb,6.4260e-04_jprb,9.9035e-04_jprb,1.1710e-03_jprb,&
 & 1.3289e-03_jprb,9.9471e-04_jprb,1.5498e-03_jprb/)  
kao( :, 3, 9, 4) = (/&
 & 1.0028e-03_jprb,1.0037e-03_jprb,9.0388e-04_jprb,5.9394e-04_jprb,8.7485e-04_jprb,1.0779e-03_jprb,&
 & 1.1968e-03_jprb,1.0028e-03_jprb,1.6632e-03_jprb/)  
kao( :, 4, 9, 4) = (/&
 & 1.0138e-03_jprb,1.0500e-03_jprb,9.8794e-04_jprb,7.6322e-04_jprb,8.5312e-04_jprb,1.1047e-03_jprb,&
 & 1.0664e-03_jprb,1.0138e-03_jprb,1.7764e-03_jprb/)  
kao( :, 5, 9, 4) = (/&
 & 1.0324e-03_jprb,1.1072e-03_jprb,1.0751e-03_jprb,9.6755e-04_jprb,7.9829e-04_jprb,1.0354e-03_jprb,&
 & 1.1339e-03_jprb,1.0324e-03_jprb,1.8836e-03_jprb/)  
kao( :, 1,10, 4) = (/&
 & 8.4390e-04_jprb,7.8883e-04_jprb,4.5496e-04_jprb,6.3978e-04_jprb,9.7062e-04_jprb,1.1888e-03_jprb,&
 & 1.3025e-03_jprb,8.4390e-04_jprb,7.7978e-03_jprb/)  
kao( :, 2,10, 4) = (/&
 & 8.4417e-04_jprb,8.1047e-04_jprb,6.4039e-04_jprb,5.5867e-04_jprb,8.6775e-04_jprb,1.0100e-03_jprb,&
 & 1.1972e-03_jprb,8.4417e-04_jprb,8.1651e-03_jprb/)  
kao( :, 3,10, 4) = (/&
 & 8.5209e-04_jprb,8.4218e-04_jprb,7.3701e-04_jprb,4.8053e-04_jprb,7.5503e-04_jprb,9.4507e-04_jprb,&
 & 1.0394e-03_jprb,8.5209e-04_jprb,8.5320e-03_jprb/)  
kao( :, 4,10, 4) = (/&
 & 8.6243e-04_jprb,8.7871e-04_jprb,8.1378e-04_jprb,5.4794e-04_jprb,7.5693e-04_jprb,9.4093e-04_jprb,&
 & 9.0694e-04_jprb,8.6243e-04_jprb,8.8886e-03_jprb/)  
kao( :, 5,10, 4) = (/&
 & 8.7838e-04_jprb,9.2500e-04_jprb,8.8544e-04_jprb,7.6044e-04_jprb,6.4236e-04_jprb,8.2354e-04_jprb,&
 & 9.4540e-04_jprb,8.7839e-04_jprb,9.2325e-03_jprb/)  
kao( :, 1,11, 4) = (/&
 & 7.1140e-04_jprb,6.6686e-04_jprb,3.9659e-04_jprb,5.3128e-04_jprb,8.2390e-04_jprb,9.6334e-04_jprb,&
 & 1.0535e-03_jprb,7.1140e-04_jprb,1.6752e-02_jprb/)  
kao( :, 2,11, 4) = (/&
 & 7.1470e-04_jprb,6.8928e-04_jprb,5.4857e-04_jprb,4.7790e-04_jprb,7.0017e-04_jprb,8.4578e-04_jprb,&
 & 9.6239e-04_jprb,7.1470e-04_jprb,1.7467e-02_jprb/)  
kao( :, 3,11, 4) = (/&
 & 7.2406e-04_jprb,7.1829e-04_jprb,6.3252e-04_jprb,4.0136e-04_jprb,6.0473e-04_jprb,8.1229e-04_jprb,&
 & 8.6413e-04_jprb,7.2406e-04_jprb,1.8154e-02_jprb/)  
kao( :, 4,11, 4) = (/&
 & 7.3750e-04_jprb,7.5088e-04_jprb,6.9603e-04_jprb,4.8007e-04_jprb,6.2834e-04_jprb,7.5345e-04_jprb,&
 & 7.8530e-04_jprb,7.3750e-04_jprb,1.8779e-02_jprb/)  
kao( :, 5,11, 4) = (/&
 & 7.5575e-04_jprb,7.9367e-04_jprb,7.5606e-04_jprb,6.5213e-04_jprb,5.4718e-04_jprb,7.0193e-04_jprb,&
 & 8.3404e-04_jprb,7.5575e-04_jprb,1.9352e-02_jprb/)  
kao( :, 1,12, 4) = (/&
 & 5.9829e-04_jprb,5.6157e-04_jprb,3.4347e-04_jprb,4.4145e-04_jprb,6.8008e-04_jprb,7.8397e-04_jprb,&
 & 8.5127e-04_jprb,5.9830e-04_jprb,2.3223e-02_jprb/)  
kao( :, 2,12, 4) = (/&
 & 6.0344e-04_jprb,5.8387e-04_jprb,4.6957e-04_jprb,3.9737e-04_jprb,5.7696e-04_jprb,7.2078e-04_jprb,&
 & 7.8930e-04_jprb,6.0344e-04_jprb,2.4171e-02_jprb/)  
kao( :, 3,12, 4) = (/&
 & 6.1383e-04_jprb,6.1057e-04_jprb,5.4014e-04_jprb,3.4306e-04_jprb,5.0450e-04_jprb,6.7941e-04_jprb,&
 & 7.3306e-04_jprb,6.1383e-04_jprb,2.5042e-02_jprb/)  
kao( :, 4,12, 4) = (/&
 & 6.2909e-04_jprb,6.4187e-04_jprb,5.9443e-04_jprb,4.2049e-04_jprb,5.1244e-04_jprb,6.1921e-04_jprb,&
 & 6.8115e-04_jprb,6.2909e-04_jprb,2.5830e-02_jprb/)  
kao( :, 5,12, 4) = (/&
 & 6.5010e-04_jprb,6.8123e-04_jprb,6.4805e-04_jprb,5.6243e-04_jprb,4.5555e-04_jprb,5.8069e-04_jprb,&
 & 6.9766e-04_jprb,6.5010e-04_jprb,2.6537e-02_jprb/)  
kao( :, 1,13, 4) = (/&
 & 5.0269e-04_jprb,4.7309e-04_jprb,2.9722e-04_jprb,3.6029e-04_jprb,5.5327e-04_jprb,6.7267e-04_jprb,&
 & 6.9641e-04_jprb,5.0269e-04_jprb,2.5949e-02_jprb/)  
kao( :, 2,13, 4) = (/&
 & 5.0863e-04_jprb,4.9324e-04_jprb,4.0227e-04_jprb,3.2512e-04_jprb,4.7435e-04_jprb,5.7218e-04_jprb,&
 & 6.4965e-04_jprb,5.0863e-04_jprb,2.6966e-02_jprb/)  
kao( :, 3,13, 4) = (/&
 & 5.1998e-04_jprb,5.1754e-04_jprb,4.6042e-04_jprb,2.9200e-04_jprb,4.1919e-04_jprb,5.5920e-04_jprb,&
 & 6.2355e-04_jprb,5.1997e-04_jprb,2.7905e-02_jprb/)  
kao( :, 4,13, 4) = (/&
 & 5.3565e-04_jprb,5.4724e-04_jprb,5.0865e-04_jprb,3.7273e-04_jprb,4.1799e-04_jprb,5.1125e-04_jprb,&
 & 5.5790e-04_jprb,5.3565e-04_jprb,2.8735e-02_jprb/)  
kao( :, 5,13, 4) = (/&
 & 5.5698e-04_jprb,5.8373e-04_jprb,5.5557e-04_jprb,4.8519e-04_jprb,3.8080e-04_jprb,4.8575e-04_jprb,&
 & 5.9866e-04_jprb,5.5698e-04_jprb,2.9481e-02_jprb/)  
kao( :, 1, 1, 5) = (/&
 & 5.1773e-03_jprb,5.5179e-03_jprb,5.4794e-03_jprb,5.0590e-03_jprb,3.8870e-03_jprb,4.6296e-03_jprb,&
 & 5.9241e-03_jprb,5.1773e-03_jprb,1.5277e-03_jprb/)  
kao( :, 2, 1, 5) = (/&
 & 5.2034e-03_jprb,5.6993e-03_jprb,5.7195e-03_jprb,5.6065e-03_jprb,5.1571e-03_jprb,4.6383e-03_jprb,&
 & 6.9998e-03_jprb,5.2034e-03_jprb,2.0327e-03_jprb/)  
kao( :, 3, 1, 5) = (/&
 & 5.2523e-03_jprb,5.8787e-03_jprb,6.0084e-03_jprb,6.0684e-03_jprb,6.0397e-03_jprb,6.1073e-03_jprb,&
 & 5.9208e-03_jprb,5.2523e-03_jprb,2.5125e-03_jprb/)  
kao( :, 4, 1, 5) = (/&
 & 5.3054e-03_jprb,6.0746e-03_jprb,6.3010e-03_jprb,6.5205e-03_jprb,6.8111e-03_jprb,7.3269e-03_jprb,&
 & 7.5915e-03_jprb,5.3054e-03_jprb,3.0259e-03_jprb/)  
kao( :, 5, 1, 5) = (/&
 & 5.3679e-03_jprb,6.2880e-03_jprb,6.5896e-03_jprb,6.9769e-03_jprb,7.5426e-03_jprb,8.2616e-03_jprb,&
 & 9.5734e-03_jprb,5.3679e-03_jprb,3.5988e-03_jprb/)  
kao( :, 1, 2, 5) = (/&
 & 4.6050e-03_jprb,4.8904e-03_jprb,4.7826e-03_jprb,4.2812e-03_jprb,3.0961e-03_jprb,4.0066e-03_jprb,&
 & 5.0115e-03_jprb,4.6050e-03_jprb,1.1833e-03_jprb/)  
kao( :, 2, 2, 5) = (/&
 & 4.6546e-03_jprb,5.0669e-03_jprb,5.0153e-03_jprb,4.8028e-03_jprb,4.2371e-03_jprb,3.8571e-03_jprb,&
 & 5.7082e-03_jprb,4.6545e-03_jprb,1.5250e-03_jprb/)  
kao( :, 3, 2, 5) = (/&
 & 4.7163e-03_jprb,5.2445e-03_jprb,5.2818e-03_jprb,5.2193e-03_jprb,5.0401e-03_jprb,4.8158e-03_jprb,&
 & 4.8111e-03_jprb,4.7163e-03_jprb,1.8851e-03_jprb/)  
kao( :, 4, 2, 5) = (/&
 & 4.7840e-03_jprb,5.4375e-03_jprb,5.5428e-03_jprb,5.6145e-03_jprb,5.7557e-03_jprb,6.0979e-03_jprb,&
 & 6.0650e-03_jprb,4.7840e-03_jprb,2.2872e-03_jprb/)  
kao( :, 5, 2, 5) = (/&
 & 4.8541e-03_jprb,5.6350e-03_jprb,5.8029e-03_jprb,5.9983e-03_jprb,6.3916e-03_jprb,6.9220e-03_jprb,&
 & 7.8417e-03_jprb,4.8542e-03_jprb,2.7410e-03_jprb/)  
kao( :, 1, 3, 5) = (/&
 & 4.0566e-03_jprb,4.2666e-03_jprb,4.1136e-03_jprb,3.4902e-03_jprb,2.4320e-03_jprb,3.7448e-03_jprb,&
 & 4.0596e-03_jprb,4.0566e-03_jprb,8.5537e-04_jprb/)  
kao( :, 2, 3, 5) = (/&
 & 4.1192e-03_jprb,4.4343e-03_jprb,4.3374e-03_jprb,4.0126e-03_jprb,3.2863e-03_jprb,3.1710e-03_jprb,&
 & 4.6913e-03_jprb,4.1192e-03_jprb,1.0912e-03_jprb/)  
kao( :, 3, 3, 5) = (/&
 & 4.1883e-03_jprb,4.6068e-03_jprb,4.5710e-03_jprb,4.4080e-03_jprb,4.0587e-03_jprb,3.3970e-03_jprb,&
 & 4.0950e-03_jprb,4.1883e-03_jprb,1.3564e-03_jprb/)  
kao( :, 4, 3, 5) = (/&
 & 4.2607e-03_jprb,4.7874e-03_jprb,4.8302e-03_jprb,4.7600e-03_jprb,4.6789e-03_jprb,4.6803e-03_jprb,&
 & 4.6046e-03_jprb,4.2607e-03_jprb,1.6587e-03_jprb/)  
kao( :, 5, 3, 5) = (/&
 & 4.3291e-03_jprb,4.9729e-03_jprb,5.0821e-03_jprb,5.1132e-03_jprb,5.2389e-03_jprb,5.5501e-03_jprb,&
 & 6.1453e-03_jprb,4.3291e-03_jprb,2.0123e-03_jprb/)  
kao( :, 1, 4, 5) = (/&
 & 3.5459e-03_jprb,3.6825e-03_jprb,3.4932e-03_jprb,2.7637e-03_jprb,1.9201e-03_jprb,3.0460e-03_jprb,&
 & 3.2749e-03_jprb,3.5459e-03_jprb,6.1561e-04_jprb/)  
kao( :, 2, 4, 5) = (/&
 & 3.6061e-03_jprb,3.8362e-03_jprb,3.7182e-03_jprb,3.3223e-03_jprb,2.3497e-03_jprb,2.6627e-03_jprb,&
 & 3.6845e-03_jprb,3.6061e-03_jprb,7.8011e-04_jprb/)  
kao( :, 3, 4, 5) = (/&
 & 3.6751e-03_jprb,4.0009e-03_jprb,3.9352e-03_jprb,3.7212e-03_jprb,3.1586e-03_jprb,2.6599e-03_jprb,&
 & 3.9284e-03_jprb,3.6751e-03_jprb,9.7541e-04_jprb/)  
kao( :, 4, 4, 5) = (/&
 & 3.7472e-03_jprb,4.1657e-03_jprb,4.1547e-03_jprb,4.0471e-03_jprb,3.7579e-03_jprb,3.4987e-03_jprb,&
 & 3.4684e-03_jprb,3.7472e-03_jprb,1.2060e-03_jprb/)  
kao( :, 5, 4, 5) = (/&
 & 3.8173e-03_jprb,4.3392e-03_jprb,4.3926e-03_jprb,4.3575e-03_jprb,4.2919e-03_jprb,4.2730e-03_jprb,&
 & 4.3662e-03_jprb,3.8173e-03_jprb,1.4743e-03_jprb/)  
kao( :, 1, 5, 5) = (/&
 & 3.0911e-03_jprb,3.1547e-03_jprb,2.9517e-03_jprb,2.1585e-03_jprb,1.7089e-03_jprb,2.5065e-03_jprb,&
 & 2.6736e-03_jprb,3.0911e-03_jprb,4.5259e-04_jprb/)  
kao( :, 2, 5, 5) = (/&
 & 3.1432e-03_jprb,3.2952e-03_jprb,3.1535e-03_jprb,2.7144e-03_jprb,1.7305e-03_jprb,2.3740e-03_jprb,&
 & 2.9171e-03_jprb,3.1432e-03_jprb,5.6940e-04_jprb/)  

IF (lhook) CALL dr_hook('RRTM_KGB4:PART3',1,zhook_handle)
END SUBROUTINE part3


SUBROUTINE part4

REAL(KIND=JPRB) :: ZHOOK_HANDLE
IF (lhook) CALL dr_hook('RRTM_KGB4:PART4',0,zhook_handle)


kao( :, 3, 5, 5) = (/&
 & 3.2011e-03_jprb,3.4418e-03_jprb,3.3526e-03_jprb,3.0998e-03_jprb,2.4424e-03_jprb,2.1728e-03_jprb,&
 & 3.3563e-03_jprb,3.2011e-03_jprb,7.1313e-04_jprb/)  
kao( :, 4, 5, 5) = (/&
 & 3.2691e-03_jprb,3.5925e-03_jprb,3.5476e-03_jprb,3.4130e-03_jprb,3.0304e-03_jprb,2.4542e-03_jprb,&
 & 2.7853e-03_jprb,3.2691e-03_jprb,8.8641e-04_jprb/)  
kao( :, 5, 5, 5) = (/&
 & 3.3413e-03_jprb,3.7507e-03_jprb,3.7512e-03_jprb,3.6954e-03_jprb,3.5144e-03_jprb,3.3039e-03_jprb,&
 & 3.1174e-03_jprb,3.3413e-03_jprb,1.0913e-03_jprb/)  
kao( :, 1, 6, 5) = (/&
 & 2.6814e-03_jprb,2.6940e-03_jprb,2.4706e-03_jprb,1.6241e-03_jprb,1.5796e-03_jprb,1.9986e-03_jprb,&
 & 2.3111e-03_jprb,2.6814e-03_jprb,3.5673e-04_jprb/)  
kao( :, 2, 6, 5) = (/&
 & 2.7286e-03_jprb,2.8170e-03_jprb,2.6566e-03_jprb,2.1953e-03_jprb,1.3951e-03_jprb,2.0187e-03_jprb,&
 & 2.3167e-03_jprb,2.7286e-03_jprb,4.3928e-04_jprb/)  
kao( :, 3, 6, 5) = (/&
 & 2.7784e-03_jprb,2.9396e-03_jprb,2.8323e-03_jprb,2.5431e-03_jprb,1.8045e-03_jprb,1.8580e-03_jprb,&
 & 2.5230e-03_jprb,2.7784e-03_jprb,5.4225e-04_jprb/)  
kao( :, 4, 6, 5) = (/&
 & 2.8457e-03_jprb,3.0707e-03_jprb,3.0040e-03_jprb,2.8313e-03_jprb,2.4304e-03_jprb,1.8757e-03_jprb,&
 & 2.4280e-03_jprb,2.8457e-03_jprb,6.6880e-04_jprb/)  
kao( :, 5, 6, 5) = (/&
 & 2.9149e-03_jprb,3.2145e-03_jprb,3.1791e-03_jprb,3.0927e-03_jprb,2.8718e-03_jprb,2.5020e-03_jprb,&
 & 2.4114e-03_jprb,2.9149e-03_jprb,8.2090e-04_jprb/)  
kao( :, 1, 7, 5) = (/&
 & 2.3167e-03_jprb,2.2952e-03_jprb,2.0696e-03_jprb,1.1773e-03_jprb,1.4001e-03_jprb,1.6742e-03_jprb,&
 & 2.1113e-03_jprb,2.3167e-03_jprb,3.6556e-04_jprb/)  
kao( :, 2, 7, 5) = (/&
 & 2.3617e-03_jprb,2.3995e-03_jprb,2.2278e-03_jprb,1.7561e-03_jprb,1.2221e-03_jprb,1.7039e-03_jprb,&
 & 1.9252e-03_jprb,2.3617e-03_jprb,4.2264e-04_jprb/)  
kao( :, 3, 7, 5) = (/&
 & 2.4125e-03_jprb,2.5066e-03_jprb,2.3818e-03_jprb,2.0804e-03_jprb,1.2642e-03_jprb,1.6328e-03_jprb,&
 & 2.0160e-03_jprb,2.4124e-03_jprb,4.9466e-04_jprb/)  
kao( :, 4, 7, 5) = (/&
 & 2.4726e-03_jprb,2.6189e-03_jprb,2.5346e-03_jprb,2.3337e-03_jprb,1.9285e-03_jprb,1.5396e-03_jprb,&
 & 2.2851e-03_jprb,2.4726e-03_jprb,5.8211e-04_jprb/)  
kao( :, 5, 7, 5) = (/&
 & 2.5348e-03_jprb,2.7473e-03_jprb,2.6870e-03_jprb,2.5696e-03_jprb,2.3235e-03_jprb,1.8153e-03_jprb,&
 & 1.9526e-03_jprb,2.5348e-03_jprb,6.8811e-04_jprb/)  
kao( :, 1, 8, 5) = (/&
 & 1.9955e-03_jprb,1.9488e-03_jprb,1.7343e-03_jprb,8.5576e-04_jprb,1.2169e-03_jprb,1.3982e-03_jprb,&
 & 1.8806e-03_jprb,1.9955e-03_jprb,5.8425e-04_jprb/)  
kao( :, 2, 8, 5) = (/&
 & 2.0363e-03_jprb,2.0385e-03_jprb,1.8715e-03_jprb,1.3678e-03_jprb,1.1488e-03_jprb,1.3583e-03_jprb,&
 & 1.6630e-03_jprb,2.0363e-03_jprb,6.4943e-04_jprb/)  
kao( :, 3, 8, 5) = (/&
 & 2.0848e-03_jprb,2.1355e-03_jprb,2.0016e-03_jprb,1.7099e-03_jprb,1.0490e-03_jprb,1.3612e-03_jprb,&
 & 1.5304e-03_jprb,2.0848e-03_jprb,7.2039e-04_jprb/)  
kao( :, 4, 8, 5) = (/&
 & 2.1402e-03_jprb,2.2347e-03_jprb,2.1377e-03_jprb,1.9281e-03_jprb,1.4576e-03_jprb,1.3615e-03_jprb,&
 & 1.7494e-03_jprb,2.1402e-03_jprb,7.9144e-04_jprb/)  
kao( :, 5, 8, 5) = (/&
 & 2.1918e-03_jprb,2.3439e-03_jprb,2.2739e-03_jprb,2.1323e-03_jprb,1.8701e-03_jprb,1.4117e-03_jprb,&
 & 1.6694e-03_jprb,2.1918e-03_jprb,8.7428e-04_jprb/)  
kao( :, 1, 9, 5) = (/&
 & 1.7089e-03_jprb,1.6461e-03_jprb,1.4363e-03_jprb,6.6011e-04_jprb,1.0235e-03_jprb,1.2576e-03_jprb,&
 & 1.6021e-03_jprb,1.7089e-03_jprb,2.1905e-03_jprb/)  
kao( :, 2, 9, 5) = (/&
 & 1.7449e-03_jprb,1.7240e-03_jprb,1.5611e-03_jprb,9.5939e-04_jprb,1.0171e-03_jprb,1.0930e-03_jprb,&
 & 1.4980e-03_jprb,1.7449e-03_jprb,2.3032e-03_jprb/)  
kao( :, 3, 9, 5) = (/&
 & 1.7892e-03_jprb,1.8095e-03_jprb,1.6779e-03_jprb,1.3700e-03_jprb,8.8733e-04_jprb,1.1976e-03_jprb,&
 & 1.2362e-03_jprb,1.7892e-03_jprb,2.4285e-03_jprb/)  
kao( :, 4, 9, 5) = (/&
 & 1.8369e-03_jprb,1.8975e-03_jprb,1.7975e-03_jprb,1.5888e-03_jprb,1.0202e-03_jprb,1.1883e-03_jprb,&
 & 1.3430e-03_jprb,1.8369e-03_jprb,2.5680e-03_jprb/)  
kao( :, 5, 9, 5) = (/&
 & 1.8812e-03_jprb,1.9874e-03_jprb,1.9123e-03_jprb,1.7614e-03_jprb,1.4649e-03_jprb,1.1491e-03_jprb,&
 & 1.5713e-03_jprb,1.8812e-03_jprb,2.7221e-03_jprb/)  
kao( :, 1,10, 5) = (/&
 & 1.4572e-03_jprb,1.3868e-03_jprb,1.1826e-03_jprb,6.2346e-04_jprb,8.6762e-04_jprb,1.0836e-03_jprb,&
 & 1.3348e-03_jprb,1.4572e-03_jprb,1.2658e-02_jprb/)  
kao( :, 2,10, 5) = (/&
 & 1.4886e-03_jprb,1.4531e-03_jprb,1.3004e-03_jprb,6.9239e-04_jprb,8.6868e-04_jprb,9.6168e-04_jprb,&
 & 1.2569e-03_jprb,1.4886e-03_jprb,1.3059e-02_jprb/)  
kao( :, 3,10, 5) = (/&
 & 1.5264e-03_jprb,1.5274e-03_jprb,1.4051e-03_jprb,1.0747e-03_jprb,7.7218e-04_jprb,9.7410e-04_jprb,&
 & 1.0859e-03_jprb,1.5264e-03_jprb,1.3449e-02_jprb/)  
kao( :, 4,10, 5) = (/&
 & 1.5664e-03_jprb,1.6018e-03_jprb,1.5021e-03_jprb,1.3016e-03_jprb,7.5442e-04_jprb,1.0421e-03_jprb,&
 & 1.0986e-03_jprb,1.5664e-03_jprb,1.3823e-02_jprb/)  
kao( :, 5,10, 5) = (/&
 & 1.6039e-03_jprb,1.6782e-03_jprb,1.6029e-03_jprb,1.4558e-03_jprb,1.1428e-03_jprb,9.8459e-04_jprb,&
 & 1.2311e-03_jprb,1.6039e-03_jprb,1.4197e-02_jprb/)  
kao( :, 1,11, 5) = (/&
 & 1.2517e-03_jprb,1.1909e-03_jprb,1.0253e-03_jprb,4.8905e-04_jprb,7.3597e-04_jprb,9.0427e-04_jprb,&
 & 1.2588e-03_jprb,1.2517e-03_jprb,2.8270e-02_jprb/)  
kao( :, 2,11, 5) = (/&
 & 1.2817e-03_jprb,1.2489e-03_jprb,1.1208e-03_jprb,6.0287e-04_jprb,7.2254e-04_jprb,8.2946e-04_jprb,&
 & 1.0205e-03_jprb,1.2817e-03_jprb,2.9032e-02_jprb/)  
kao( :, 3,11, 5) = (/&
 & 1.3127e-03_jprb,1.3112e-03_jprb,1.2059e-03_jprb,9.4181e-04_jprb,6.2131e-04_jprb,8.6171e-04_jprb,&
 & 8.9101e-04_jprb,1.3127e-03_jprb,2.9698e-02_jprb/)  
kao( :, 4,11, 5) = (/&
 & 1.3452e-03_jprb,1.3741e-03_jprb,1.2883e-03_jprb,1.1215e-03_jprb,6.5766e-04_jprb,8.7354e-04_jprb,&
 & 9.3021e-04_jprb,1.3452e-03_jprb,3.0336e-02_jprb/)  
kao( :, 5,11, 5) = (/&
 & 1.3753e-03_jprb,1.4371e-03_jprb,1.3746e-03_jprb,1.2547e-03_jprb,9.9517e-04_jprb,7.9857e-04_jprb,&
 & 1.0959e-03_jprb,1.3753e-03_jprb,3.0956e-02_jprb/)  
kao( :, 1,12, 5) = (/&
 & 1.0733e-03_jprb,1.0215e-03_jprb,8.8454e-04_jprb,3.9006e-04_jprb,6.2359e-04_jprb,7.4085e-04_jprb,&
 & 1.0395e-03_jprb,1.0733e-03_jprb,4.0158e-02_jprb/)  
kao( :, 2,12, 5) = (/&
 & 1.0987e-03_jprb,1.0703e-03_jprb,9.6221e-04_jprb,5.3528e-04_jprb,5.8115e-04_jprb,7.1438e-04_jprb,&
 & 8.3203e-04_jprb,1.0987e-03_jprb,4.1196e-02_jprb/)  
kao( :, 3,12, 5) = (/&
 & 1.1257e-03_jprb,1.1222e-03_jprb,1.0309e-03_jprb,8.1291e-04_jprb,4.9033e-04_jprb,7.2341e-04_jprb,&
 & 7.5536e-04_jprb,1.1257e-03_jprb,4.2149e-02_jprb/)  
kao( :, 4,12, 5) = (/&
 & 1.1520e-03_jprb,1.1737e-03_jprb,1.0999e-03_jprb,9.6654e-04_jprb,5.7890e-04_jprb,6.9991e-04_jprb,&
 & 7.9257e-04_jprb,1.1520e-03_jprb,4.3060e-02_jprb/)  
kao( :, 5,12, 5) = (/&
 & 1.1770e-03_jprb,1.2266e-03_jprb,1.1727e-03_jprb,1.0746e-03_jprb,8.6506e-04_jprb,6.5737e-04_jprb,&
 & 9.1851e-04_jprb,1.1770e-03_jprb,4.3899e-02_jprb/)  
kao( :, 1,13, 5) = (/&
 & 9.1723e-04_jprb,8.7340e-04_jprb,7.5855e-04_jprb,3.3160e-04_jprb,5.1898e-04_jprb,6.0675e-04_jprb,&
 & 8.3666e-04_jprb,9.1723e-04_jprb,4.5805e-02_jprb/)  
kao( :, 2,13, 5) = (/&
 & 9.3894e-04_jprb,9.1416e-04_jprb,8.2179e-04_jprb,4.8369e-04_jprb,4.6977e-04_jprb,6.3046e-04_jprb,&
 & 6.9917e-04_jprb,9.3894e-04_jprb,4.7104e-02_jprb/)  
kao( :, 3,13, 5) = (/&
 & 9.6174e-04_jprb,9.5729e-04_jprb,8.7932e-04_jprb,7.0453e-04_jprb,4.0162e-04_jprb,5.9248e-04_jprb,&
 & 6.3372e-04_jprb,9.6174e-04_jprb,4.8249e-02_jprb/)  
kao( :, 4,13, 5) = (/&
 & 9.8438e-04_jprb,1.0004e-03_jprb,9.3575e-04_jprb,8.2536e-04_jprb,5.0557e-04_jprb,5.5685e-04_jprb,&
 & 6.8082e-04_jprb,9.8438e-04_jprb,4.9296e-02_jprb/)  
kao( :, 5,13, 5) = (/&
 & 1.0080e-03_jprb,1.0464e-03_jprb,9.9862e-04_jprb,9.1769e-04_jprb,7.4911e-04_jprb,5.5133e-04_jprb,&
 & 7.2141e-04_jprb,1.0080e-03_jprb,5.0236e-02_jprb/)  
kao( :, 1, 1, 6) = (/&
 & 8.5333e-03_jprb,9.0798e-03_jprb,9.1539e-03_jprb,8.9379e-03_jprb,8.0082e-03_jprb,5.5783e-03_jprb,&
 & 6.6117e-03_jprb,8.5333e-03_jprb,2.8261e-03_jprb/)  
kao( :, 2, 1, 6) = (/&
 & 8.4109e-03_jprb,9.3459e-03_jprb,9.6624e-03_jprb,9.7547e-03_jprb,9.5796e-03_jprb,8.4027e-03_jprb,&
 & 6.4961e-03_jprb,8.4109e-03_jprb,3.5780e-03_jprb/)  
kao( :, 3, 1, 6) = (/&
 & 8.3030e-03_jprb,9.6326e-03_jprb,1.0206e-02_jprb,1.0614e-02_jprb,1.0858e-02_jprb,1.0462e-02_jprb,&
 & 9.8456e-03_jprb,8.3030e-03_jprb,4.4090e-03_jprb/)  
kao( :, 4, 1, 6) = (/&
 & 8.2237e-03_jprb,9.8958e-03_jprb,1.0796e-02_jprb,1.1545e-02_jprb,1.2099e-02_jprb,1.2369e-02_jprb,&
 & 1.2077e-02_jprb,8.2237e-03_jprb,5.3050e-03_jprb/)  
kao( :, 5, 1, 6) = (/&
 & 8.1599e-03_jprb,1.0181e-02_jprb,1.1469e-02_jprb,1.2490e-02_jprb,1.3377e-02_jprb,1.4165e-02_jprb,&
 & 1.4318e-02_jprb,8.1599e-03_jprb,6.2987e-03_jprb/)  
kao( :, 1, 2, 6) = (/&
 & 7.7094e-03_jprb,8.1495e-03_jprb,8.1817e-03_jprb,7.9690e-03_jprb,7.0574e-03_jprb,4.6583e-03_jprb,&
 & 5.9458e-03_jprb,7.7094e-03_jprb,2.1253e-03_jprb/)  
kao( :, 2, 2, 6) = (/&
 & 7.6098e-03_jprb,8.3857e-03_jprb,8.6188e-03_jprb,8.6202e-03_jprb,8.3668e-03_jprb,7.2354e-03_jprb,&
 & 5.4614e-03_jprb,7.6098e-03_jprb,2.6911e-03_jprb/)  
kao( :, 3, 2, 6) = (/&
 & 7.5380e-03_jprb,8.6324e-03_jprb,9.0696e-03_jprb,9.3578e-03_jprb,9.5323e-03_jprb,9.1344e-03_jprb,&
 & 8.4099e-03_jprb,7.5380e-03_jprb,3.3283e-03_jprb/)  
kao( :, 4, 2, 6) = (/&
 & 7.4926e-03_jprb,8.8750e-03_jprb,9.5781e-03_jprb,1.0164e-02_jprb,1.0603e-02_jprb,1.0755e-02_jprb,&
 & 1.0378e-02_jprb,7.4926e-03_jprb,4.0288e-03_jprb/)  
kao( :, 5, 2, 6) = (/&
 & 7.4775e-03_jprb,9.1627e-03_jprb,1.0156e-02_jprb,1.0982e-02_jprb,1.1695e-02_jprb,1.2352e-02_jprb,&
 & 1.2667e-02_jprb,7.4775e-03_jprb,4.8116e-03_jprb/)  
kao( :, 1, 3, 6) = (/&
 & 6.9121e-03_jprb,7.2188e-03_jprb,7.1796e-03_jprb,6.8889e-03_jprb,5.8502e-03_jprb,3.2278e-03_jprb,&
 & 4.9879e-03_jprb,6.9121e-03_jprb,1.5160e-03_jprb/)  
kao( :, 2, 3, 6) = (/&
 & 6.8480e-03_jprb,7.4276e-03_jprb,7.5203e-03_jprb,7.4048e-03_jprb,7.0014e-03_jprb,5.7055e-03_jprb,&
 & 4.3384e-03_jprb,6.8480e-03_jprb,1.9279e-03_jprb/)  
kao( :, 3, 3, 6) = (/&
 & 6.8135e-03_jprb,7.6493e-03_jprb,7.8976e-03_jprb,8.0141e-03_jprb,8.0170e-03_jprb,7.5441e-03_jprb,&
 & 6.5174e-03_jprb,6.8135e-03_jprb,2.4028e-03_jprb/)  
kao( :, 4, 3, 6) = (/&
 & 6.8122e-03_jprb,7.8956e-03_jprb,8.3131e-03_jprb,8.6965e-03_jprb,8.9952e-03_jprb,8.9752e-03_jprb,&
 & 8.4882e-03_jprb,6.8122e-03_jprb,2.9375e-03_jprb/)  
kao( :, 5, 3, 6) = (/&
 & 6.8492e-03_jprb,8.1657e-03_jprb,8.7936e-03_jprb,9.3904e-03_jprb,9.9168e-03_jprb,1.0345e-02_jprb,&
 & 1.0484e-02_jprb,6.8492e-03_jprb,3.5390e-03_jprb/)  
kao( :, 1, 4, 6) = (/&
 & 6.1397e-03_jprb,6.3324e-03_jprb,6.2269e-03_jprb,5.8666e-03_jprb,4.6601e-03_jprb,2.6335e-03_jprb,&
 & 4.3502e-03_jprb,6.1397e-03_jprb,1.0676e-03_jprb/)  
kao( :, 2, 4, 6) = (/&
 & 6.1071e-03_jprb,6.5281e-03_jprb,6.5061e-03_jprb,6.2987e-03_jprb,5.7315e-03_jprb,4.2122e-03_jprb,&
 & 3.5243e-03_jprb,6.1071e-03_jprb,1.3674e-03_jprb/)  
kao( :, 3, 4, 6) = (/&
 & 6.1173e-03_jprb,6.7424e-03_jprb,6.8351e-03_jprb,6.7928e-03_jprb,6.6355e-03_jprb,6.0084e-03_jprb,&
 & 4.4111e-03_jprb,6.1173e-03_jprb,1.7216e-03_jprb/)  
kao( :, 4, 4, 6) = (/&
 & 6.1616e-03_jprb,6.9850e-03_jprb,7.2018e-03_jprb,7.3533e-03_jprb,7.4639e-03_jprb,7.3054e-03_jprb,&
 & 6.7355e-03_jprb,6.1616e-03_jprb,2.1295e-03_jprb/)  
kao( :, 5, 4, 6) = (/&
 & 6.2327e-03_jprb,7.2498e-03_jprb,7.6166e-03_jprb,7.9404e-03_jprb,8.2799e-03_jprb,8.5196e-03_jprb,&
 & 8.4780e-03_jprb,6.2327e-03_jprb,2.5893e-03_jprb/)  
kao( :, 1, 5, 6) = (/&
 & 5.4116e-03_jprb,5.5054e-03_jprb,5.3551e-03_jprb,4.9387e-03_jprb,3.4030e-03_jprb,2.3925e-03_jprb,&
 & 3.5026e-03_jprb,5.4116e-03_jprb,7.5991e-04_jprb/)  
kao( :, 2, 5, 6) = (/&
 & 5.4112e-03_jprb,5.7013e-03_jprb,5.6024e-03_jprb,5.3215e-03_jprb,4.5735e-03_jprb,2.7843e-03_jprb,&
 & 3.3021e-03_jprb,5.4112e-03_jprb,9.7889e-04_jprb/)  
kao( :, 3, 5, 6) = (/&
 & 5.4571e-03_jprb,5.9124e-03_jprb,5.8939e-03_jprb,5.7468e-03_jprb,5.4242e-03_jprb,4.5784e-03_jprb,&
 & 3.1711e-03_jprb,5.4571e-03_jprb,1.2420e-03_jprb/)  
kao( :, 4, 5, 6) = (/&
 & 5.5303e-03_jprb,6.1539e-03_jprb,6.2322e-03_jprb,6.2166e-03_jprb,6.1395e-03_jprb,5.8002e-03_jprb,&
 & 5.0694e-03_jprb,5.5303e-03_jprb,1.5508e-03_jprb/)  
kao( :, 5, 5, 6) = (/&
 & 5.6126e-03_jprb,6.4231e-03_jprb,6.6120e-03_jprb,6.7193e-03_jprb,6.8307e-03_jprb,6.8747e-03_jprb,&
 & 6.7129e-03_jprb,5.6126e-03_jprb,1.9069e-03_jprb/)  
kao( :, 1, 6, 6) = (/&
 & 4.7396e-03_jprb,4.7463e-03_jprb,4.5518e-03_jprb,4.0433e-03_jprb,2.2638e-03_jprb,2.3141e-03_jprb,&
 & 2.8805e-03_jprb,4.7396e-03_jprb,5.6698e-04_jprb/)  
kao( :, 2, 6, 6) = (/&
 & 4.7673e-03_jprb,4.9357e-03_jprb,4.7801e-03_jprb,4.4457e-03_jprb,3.5304e-03_jprb,1.8920e-03_jprb,&
 & 2.9747e-03_jprb,4.7673e-03_jprb,7.2146e-04_jprb/)  
kao( :, 3, 6, 6) = (/&
 & 4.8326e-03_jprb,5.1460e-03_jprb,5.0538e-03_jprb,4.8362e-03_jprb,4.3455e-03_jprb,3.2638e-03_jprb,&
 & 2.4492e-03_jprb,4.8326e-03_jprb,9.1393e-04_jprb/)  
kao( :, 4, 6, 6) = (/&
 & 4.9138e-03_jprb,5.3898e-03_jprb,5.3670e-03_jprb,5.2448e-03_jprb,5.0135e-03_jprb,4.4890e-03_jprb,&
 & 3.4781e-03_jprb,4.9137e-03_jprb,1.1441e-03_jprb/)  
kao( :, 5, 6, 6) = (/&
 & 5.0007e-03_jprb,5.6605e-03_jprb,5.7246e-03_jprb,5.6834e-03_jprb,5.6159e-03_jprb,5.4449e-03_jprb,&
 & 5.0343e-03_jprb,5.0007e-03_jprb,1.4139e-03_jprb/)  
kao( :, 1, 7, 6) = (/&
 & 4.1378e-03_jprb,4.0754e-03_jprb,3.8389e-03_jprb,3.2475e-03_jprb,1.4857e-03_jprb,2.1025e-03_jprb,&
 & 2.2984e-03_jprb,4.1378e-03_jprb,5.2481e-04_jprb/)  
kao( :, 2, 7, 6) = (/&
 & 4.1822e-03_jprb,4.2521e-03_jprb,4.0570e-03_jprb,3.6688e-03_jprb,2.5306e-03_jprb,1.4831e-03_jprb,&
 & 2.6067e-03_jprb,4.1822e-03_jprb,6.3111e-04_jprb/)  
kao( :, 3, 7, 6) = (/&
 & 4.2509e-03_jprb,4.4583e-03_jprb,4.3081e-03_jprb,4.0486e-03_jprb,3.4473e-03_jprb,2.1091e-03_jprb,&
 & 1.9768e-03_jprb,4.2509e-03_jprb,7.6397e-04_jprb/)  
kao( :, 4, 7, 6) = (/&
 & 4.3334e-03_jprb,4.6876e-03_jprb,4.6037e-03_jprb,4.4308e-03_jprb,4.0651e-03_jprb,3.3647e-03_jprb,&
 & 2.1587e-03_jprb,4.3334e-03_jprb,9.2876e-04_jprb/)  
kao( :, 5, 7, 6) = (/&
 & 4.4225e-03_jprb,4.9342e-03_jprb,4.9410e-03_jprb,4.8191e-03_jprb,4.6280e-03_jprb,4.2870e-03_jprb,&
 & 3.6120e-03_jprb,4.4226e-03_jprb,1.1252e-03_jprb/)  
kao( :, 1, 8, 6) = (/&
 & 3.6094e-03_jprb,3.5033e-03_jprb,3.2400e-03_jprb,2.6287e-03_jprb,9.9863e-04_jprb,1.7500e-03_jprb,&
 & 1.8960e-03_jprb,3.6094e-03_jprb,8.2600e-04_jprb/)  
kao( :, 2, 8, 6) = (/&
 & 3.6637e-03_jprb,3.6642e-03_jprb,3.4430e-03_jprb,3.0211e-03_jprb,1.7119e-03_jprb,1.3558e-03_jprb,&
 & 2.1462e-03_jprb,3.6637e-03_jprb,9.0812e-04_jprb/)  
kao( :, 3, 8, 6) = (/&
 & 3.7354e-03_jprb,3.8451e-03_jprb,3.6742e-03_jprb,3.3691e-03_jprb,2.6819e-03_jprb,1.3910e-03_jprb,&
 & 1.9474e-03_jprb,3.7354e-03_jprb,1.0101e-03_jprb/)  
kao( :, 4, 8, 6) = (/&
 & 3.8119e-03_jprb,4.0509e-03_jprb,3.9304e-03_jprb,3.7228e-03_jprb,3.3248e-03_jprb,2.3768e-03_jprb,&
 & 1.6650e-03_jprb,3.8120e-03_jprb,1.1353e-03_jprb/)  
kao( :, 5, 8, 6) = (/&
 & 3.8974e-03_jprb,4.2692e-03_jprb,4.2189e-03_jprb,4.0809e-03_jprb,3.8147e-03_jprb,3.3186e-03_jprb,&
 & 2.4419e-03_jprb,3.8974e-03_jprb,1.2742e-03_jprb/)  
kao( :, 1, 9, 6) = (/&
 & 3.1509e-03_jprb,3.0135e-03_jprb,2.7414e-03_jprb,2.0848e-03_jprb,8.0225e-04_jprb,1.3860e-03_jprb,&
 & 1.6095e-03_jprb,3.1509e-03_jprb,3.2874e-03_jprb/)  
kao( :, 2, 9, 6) = (/&
 & 3.2069e-03_jprb,3.1552e-03_jprb,2.9300e-03_jprb,2.5120e-03_jprb,1.1882e-03_jprb,1.2244e-03_jprb,&
 & 1.8134e-03_jprb,3.2069e-03_jprb,3.4426e-03_jprb/)  
kao( :, 3, 9, 6) = (/&
 & 3.2779e-03_jprb,3.3142e-03_jprb,3.1292e-03_jprb,2.8177e-03_jprb,2.0556e-03_jprb,1.0032e-03_jprb,&
 & 1.7964e-03_jprb,3.2779e-03_jprb,3.6002e-03_jprb/)  
kao( :, 4, 9, 6) = (/&
 & 3.3512e-03_jprb,3.4918e-03_jprb,3.3477e-03_jprb,3.1214e-03_jprb,2.7090e-03_jprb,1.5625e-03_jprb,&
 & 1.3565e-03_jprb,3.3512e-03_jprb,3.7586e-03_jprb/)  
kao( :, 5, 9, 6) = (/&
 & 3.4301e-03_jprb,3.6852e-03_jprb,3.5951e-03_jprb,3.4314e-03_jprb,3.1547e-03_jprb,2.5504e-03_jprb,&
 & 1.5207e-03_jprb,3.4301e-03_jprb,3.9312e-03_jprb/)  
kao( :, 1,10, 6) = (/&
 & 2.7434e-03_jprb,2.5990e-03_jprb,2.3418e-03_jprb,1.5988e-03_jprb,7.7035e-04_jprb,1.2159e-03_jprb,&
 & 1.3978e-03_jprb,2.7434e-03_jprb,2.0046e-02_jprb/)  
kao( :, 2,10, 6) = (/&
 & 2.7987e-03_jprb,2.7245e-03_jprb,2.5022e-03_jprb,2.1126e-03_jprb,8.9708e-04_jprb,1.0763e-03_jprb,&
 & 1.5093e-03_jprb,2.7987e-03_jprb,2.0516e-02_jprb/)  
kao( :, 3,10, 6) = (/&
 & 2.8639e-03_jprb,2.8623e-03_jprb,2.6825e-03_jprb,2.3837e-03_jprb,1.5791e-03_jprb,8.7614e-04_jprb,&
 & 1.4149e-03_jprb,2.8639e-03_jprb,2.0938e-02_jprb/)  
kao( :, 4,10, 6) = (/&
 & 2.9341e-03_jprb,3.0198e-03_jprb,2.8777e-03_jprb,2.6425e-03_jprb,2.2095e-03_jprb,1.1197e-03_jprb,&
 & 1.2062e-03_jprb,2.9342e-03_jprb,2.1345e-02_jprb/)  
kao( :, 5,10, 6) = (/&
 & 3.0129e-03_jprb,3.1899e-03_jprb,3.0825e-03_jprb,2.9045e-03_jprb,2.6201e-03_jprb,1.9654e-03_jprb,&
 & 1.1926e-03_jprb,3.0129e-03_jprb,2.1744e-02_jprb/)  
kao( :, 1,11, 6) = (/&
 & 2.3930e-03_jprb,2.2760e-03_jprb,2.0475e-03_jprb,1.4917e-03_jprb,6.1519e-04_jprb,9.5739e-04_jprb,&
 & 1.2117e-03_jprb,2.3930e-03_jprb,4.6010e-02_jprb/)  
kao( :, 2,11, 6) = (/&
 & 2.4495e-03_jprb,2.3897e-03_jprb,2.1964e-03_jprb,1.8774e-03_jprb,8.8795e-04_jprb,8.5785e-04_jprb,&
 & 1.2212e-03_jprb,2.4495e-03_jprb,4.7118e-02_jprb/)  
kao( :, 3,11, 6) = (/&
 & 2.5108e-03_jprb,2.5149e-03_jprb,2.3607e-03_jprb,2.1179e-03_jprb,1.5063e-03_jprb,7.2487e-04_jprb,&
 & 1.1617e-03_jprb,2.5108e-03_jprb,4.8044e-02_jprb/)  
kao( :, 4,11, 6) = (/&
 & 2.5797e-03_jprb,2.6613e-03_jprb,2.5391e-03_jprb,2.3353e-03_jprb,1.9791e-03_jprb,1.1049e-03_jprb,&
 & 9.4883e-04_jprb,2.5797e-03_jprb,4.8805e-02_jprb/)  

IF (lhook) CALL dr_hook('RRTM_KGB4:PART4',1,zhook_handle)
END SUBROUTINE part4


SUBROUTINE part5

REAL(KIND=JPRB) :: ZHOOK_HANDLE
IF (lhook) CALL dr_hook('RRTM_KGB4:PART5',0,zhook_handle)


kao( :, 5,11, 6) = (/&
 & 2.6499e-03_jprb,2.8182e-03_jprb,2.7229e-03_jprb,2.5580e-03_jprb,2.3142e-03_jprb,1.8079e-03_jprb,&
 & 1.0035e-03_jprb,2.6499e-03_jprb,4.9391e-02_jprb/)  
kao( :, 1,12, 6) = (/&
 & 2.0746e-03_jprb,1.9783e-03_jprb,1.7801e-03_jprb,1.3556e-03_jprb,4.8267e-04_jprb,8.1463e-04_jprb,&
 & 1.0185e-03_jprb,2.0746e-03_jprb,6.7547e-02_jprb/)  
kao( :, 2,12, 6) = (/&
 & 2.1273e-03_jprb,2.0770e-03_jprb,1.9105e-03_jprb,1.6481e-03_jprb,8.3724e-04_jprb,7.1683e-04_jprb,&
 & 1.0103e-03_jprb,2.1273e-03_jprb,6.9266e-02_jprb/)  
kao( :, 3,12, 6) = (/&
 & 2.1844e-03_jprb,2.1915e-03_jprb,2.0594e-03_jprb,1.8587e-03_jprb,1.3892e-03_jprb,6.4751e-04_jprb,&
 & 9.5728e-04_jprb,2.1844e-03_jprb,7.0619e-02_jprb/)  
kao( :, 4,12, 6) = (/&
 & 2.2441e-03_jprb,2.3226e-03_jprb,2.2206e-03_jprb,2.0453e-03_jprb,1.7491e-03_jprb,1.0405e-03_jprb,&
 & 7.8138e-04_jprb,2.2441e-03_jprb,7.1602e-02_jprb/)  
kao( :, 5,12, 6) = (/&
 & 2.3050e-03_jprb,2.4598e-03_jprb,2.3822e-03_jprb,2.2381e-03_jprb,2.0304e-03_jprb,1.6325e-03_jprb,&
 & 9.2438e-04_jprb,2.3050e-03_jprb,7.2303e-02_jprb/)  
kao( :, 1,13, 6) = (/&
 & 1.7883e-03_jprb,1.7065e-03_jprb,1.5374e-03_jprb,1.2007e-03_jprb,4.3025e-04_jprb,6.7590e-04_jprb,&
 & 8.1885e-04_jprb,1.7883e-03_jprb,7.9860e-02_jprb/)  
kao( :, 2,13, 6) = (/&
 & 1.8363e-03_jprb,1.7948e-03_jprb,1.6528e-03_jprb,1.4324e-03_jprb,7.6774e-04_jprb,6.2246e-04_jprb,&
 & 8.1329e-04_jprb,1.8363e-03_jprb,8.1807e-02_jprb/)  
kao( :, 3,13, 6) = (/&
 & 1.8869e-03_jprb,1.8960e-03_jprb,1.7818e-03_jprb,1.6095e-03_jprb,1.2397e-03_jprb,5.6950e-04_jprb,&
 & 8.2318e-04_jprb,1.8869e-03_jprb,8.3291e-02_jprb/)  
kao( :, 4,13, 6) = (/&
 & 1.9378e-03_jprb,2.0074e-03_jprb,1.9206e-03_jprb,1.7755e-03_jprb,1.5322e-03_jprb,9.5845e-04_jprb,&
 & 6.9708e-04_jprb,1.9378e-03_jprb,8.4416e-02_jprb/)  
kao( :, 5,13, 6) = (/&
 & 1.9900e-03_jprb,2.1258e-03_jprb,2.0644e-03_jprb,1.9405e-03_jprb,1.7651e-03_jprb,1.4419e-03_jprb,&
 & 8.3688e-04_jprb,1.9900e-03_jprb,8.5292e-02_jprb/)  
kao( :, 1, 1, 7) = (/&
 & 1.6473e-02_jprb,1.6639e-02_jprb,1.6620e-02_jprb,1.6044e-02_jprb,1.5024e-02_jprb,1.3187e-02_jprb,&
 & 7.6213e-03_jprb,1.6473e-02_jprb,5.9369e-03_jprb/)  
kao( :, 2, 1, 7) = (/&
 & 1.6283e-02_jprb,1.7319e-02_jprb,1.7601e-02_jprb,1.7371e-02_jprb,1.6714e-02_jprb,1.5606e-02_jprb,&
 & 1.2675e-02_jprb,1.6283e-02_jprb,7.5309e-03_jprb/)  
kao( :, 3, 1, 7) = (/&
 & 1.6044e-02_jprb,1.7939e-02_jprb,1.8616e-02_jprb,1.8736e-02_jprb,1.8509e-02_jprb,1.7932e-02_jprb,&
 & 1.6316e-02_jprb,1.6044e-02_jprb,9.3034e-03_jprb/)  
kao( :, 4, 1, 7) = (/&
 & 1.5780e-02_jprb,1.8566e-02_jprb,1.9707e-02_jprb,2.0218e-02_jprb,2.0468e-02_jprb,2.0392e-02_jprb,&
 & 2.0221e-02_jprb,1.5780e-02_jprb,1.1241e-02_jprb/)  
kao( :, 5, 1, 7) = (/&
 & 1.5514e-02_jprb,1.9239e-02_jprb,2.0866e-02_jprb,2.1848e-02_jprb,2.2518e-02_jprb,2.2938e-02_jprb,&
 & 2.4338e-02_jprb,1.5514e-02_jprb,1.3369e-02_jprb/)  
kao( :, 1, 2, 7) = (/&
 & 1.5534e-02_jprb,1.5698e-02_jprb,1.5655e-02_jprb,1.5068e-02_jprb,1.4135e-02_jprb,1.2270e-02_jprb,&
 & 7.4181e-03_jprb,1.5534e-02_jprb,4.4640e-03_jprb/)  
kao( :, 2, 2, 7) = (/&
 & 1.5342e-02_jprb,1.6324e-02_jprb,1.6590e-02_jprb,1.6353e-02_jprb,1.5831e-02_jprb,1.4815e-02_jprb,&
 & 1.2543e-02_jprb,1.5342e-02_jprb,5.6970e-03_jprb/)  
kao( :, 3, 2, 7) = (/&
 & 1.5098e-02_jprb,1.6904e-02_jprb,1.7545e-02_jprb,1.7691e-02_jprb,1.7497e-02_jprb,1.7085e-02_jprb,&
 & 1.5776e-02_jprb,1.5098e-02_jprb,7.0876e-03_jprb/)  
kao( :, 4, 2, 7) = (/&
 & 1.4834e-02_jprb,1.7491e-02_jprb,1.8583e-02_jprb,1.9136e-02_jprb,1.9381e-02_jprb,1.9396e-02_jprb,&
 & 1.8919e-02_jprb,1.4834e-02_jprb,8.6392e-03_jprb/)  
kao( :, 5, 2, 7) = (/&
 & 1.4582e-02_jprb,1.8087e-02_jprb,1.9710e-02_jprb,2.0699e-02_jprb,2.1415e-02_jprb,2.1844e-02_jprb,&
 & 2.2101e-02_jprb,1.4582e-02_jprb,1.0344e-02_jprb/)  
kao( :, 1, 3, 7) = (/&
 & 1.4379e-02_jprb,1.4400e-02_jprb,1.4273e-02_jprb,1.3714e-02_jprb,1.2774e-02_jprb,1.0758e-02_jprb,&
 & 5.9221e-03_jprb,1.4379e-02_jprb,3.1627e-03_jprb/)  
kao( :, 2, 3, 7) = (/&
 & 1.4181e-02_jprb,1.4962e-02_jprb,1.5204e-02_jprb,1.4906e-02_jprb,1.4357e-02_jprb,1.3275e-02_jprb,&
 & 1.0750e-02_jprb,1.4181e-02_jprb,4.0720e-03_jprb/)  
kao( :, 3, 3, 7) = (/&
 & 1.3955e-02_jprb,1.5485e-02_jprb,1.6078e-02_jprb,1.6124e-02_jprb,1.5928e-02_jprb,1.5419e-02_jprb,&
 & 1.4145e-02_jprb,1.3955e-02_jprb,5.1227e-03_jprb/)  
kao( :, 4, 3, 7) = (/&
 & 1.3715e-02_jprb,1.6019e-02_jprb,1.7011e-02_jprb,1.7443e-02_jprb,1.7601e-02_jprb,1.7599e-02_jprb,&
 & 1.7151e-02_jprb,1.3715e-02_jprb,6.3251e-03_jprb/)  
kao( :, 5, 3, 7) = (/&
 & 1.3488e-02_jprb,1.6566e-02_jprb,1.8015e-02_jprb,1.8885e-02_jprb,1.9466e-02_jprb,1.9880e-02_jprb,&
 & 1.9891e-02_jprb,1.3488e-02_jprb,7.6362e-03_jprb/)  
kao( :, 1, 4, 7) = (/&
 & 1.3100e-02_jprb,1.2948e-02_jprb,1.2709e-02_jprb,1.2152e-02_jprb,1.1211e-02_jprb,8.9540e-03_jprb,&
 & 3.9235e-03_jprb,1.3100e-02_jprb,2.2077e-03_jprb/)  
kao( :, 2, 4, 7) = (/&
 & 1.2922e-02_jprb,1.3421e-02_jprb,1.3563e-02_jprb,1.3273e-02_jprb,1.2687e-02_jprb,1.1465e-02_jprb,&
 & 8.5932e-03_jprb,1.2922e-02_jprb,2.8908e-03_jprb/)  
kao( :, 3, 4, 7) = (/&
 & 1.2710e-02_jprb,1.3886e-02_jprb,1.4373e-02_jprb,1.4371e-02_jprb,1.4080e-02_jprb,1.3407e-02_jprb,&
 & 1.1985e-02_jprb,1.2710e-02_jprb,3.6760e-03_jprb/)  
kao( :, 4, 4, 7) = (/&
 & 1.2510e-02_jprb,1.4373e-02_jprb,1.5200e-02_jprb,1.5503e-02_jprb,1.5542e-02_jprb,1.5364e-02_jprb,&
 & 1.4835e-02_jprb,1.2510e-02_jprb,4.5891e-03_jprb/)  
kao( :, 5, 4, 7) = (/&
 & 1.2325e-02_jprb,1.4885e-02_jprb,1.6099e-02_jprb,1.6758e-02_jprb,1.7169e-02_jprb,1.7435e-02_jprb,&
 & 1.7471e-02_jprb,1.2325e-02_jprb,5.6179e-03_jprb/)  
kao( :, 1, 5, 7) = (/&
 & 1.1785e-02_jprb,1.1507e-02_jprb,1.1168e-02_jprb,1.0600e-02_jprb,9.6507e-03_jprb,6.9414e-03_jprb,&
 & 2.9345e-03_jprb,1.1785e-02_jprb,1.5496e-03_jprb/)  
kao( :, 2, 5, 7) = (/&
 & 1.1618e-02_jprb,1.1886e-02_jprb,1.1906e-02_jprb,1.1601e-02_jprb,1.1008e-02_jprb,9.7482e-03_jprb,&
 & 6.3716e-03_jprb,1.1618e-02_jprb,2.0513e-03_jprb/)  
kao( :, 3, 5, 7) = (/&
 & 1.1447e-02_jprb,1.2288e-02_jprb,1.2620e-02_jprb,1.2540e-02_jprb,1.2196e-02_jprb,1.1475e-02_jprb,&
 & 9.8448e-03_jprb,1.1447e-02_jprb,2.6474e-03_jprb/)  
kao( :, 4, 5, 7) = (/&
 & 1.1293e-02_jprb,1.2719e-02_jprb,1.3350e-02_jprb,1.3509e-02_jprb,1.3472e-02_jprb,1.3207e-02_jprb,&
 & 1.2517e-02_jprb,1.1293e-02_jprb,3.3414e-03_jprb/)  
kao( :, 5, 5, 7) = (/&
 & 1.1183e-02_jprb,1.3178e-02_jprb,1.4123e-02_jprb,1.4583e-02_jprb,1.4883e-02_jprb,1.5015e-02_jprb,&
 & 1.4926e-02_jprb,1.1183e-02_jprb,4.1312e-03_jprb/)  
kao( :, 1, 6, 7) = (/&
 & 1.0487e-02_jprb,1.0124e-02_jprb,9.7249e-03_jprb,9.1457e-03_jprb,8.1285e-03_jprb,4.8996e-03_jprb,&
 & 1.9678e-03_jprb,1.0487e-02_jprb,1.0937e-03_jprb/)  
kao( :, 2, 6, 7) = (/&
 & 1.0349e-02_jprb,1.0437e-02_jprb,1.0332e-02_jprb,9.9754e-03_jprb,9.2866e-03_jprb,7.9160e-03_jprb,&
 & 4.3878e-03_jprb,1.0349e-02_jprb,1.4598e-03_jprb/)  
kao( :, 3, 6, 7) = (/&
 & 1.0220e-02_jprb,1.0784e-02_jprb,1.0929e-02_jprb,1.0753e-02_jprb,1.0353e-02_jprb,9.5432e-03_jprb,&
 & 7.8232e-03_jprb,1.0220e-02_jprb,1.9008e-03_jprb/)  
kao( :, 4, 6, 7) = (/&
 & 1.0135e-02_jprb,1.1143e-02_jprb,1.1530e-02_jprb,1.1576e-02_jprb,1.1439e-02_jprb,1.1088e-02_jprb,&
 & 1.0277e-02_jprb,1.0135e-02_jprb,2.4221e-03_jprb/)  
kao( :, 5, 6, 7) = (/&
 & 1.0102e-02_jprb,1.1554e-02_jprb,1.2194e-02_jprb,1.2480e-02_jprb,1.2652e-02_jprb,1.2678e-02_jprb,&
 & 1.2494e-02_jprb,1.0102e-02_jprb,3.0257e-03_jprb/)  
kao( :, 1, 7, 7) = (/&
 & 9.2309e-03_jprb,8.8319e-03_jprb,8.3968e-03_jprb,7.7952e-03_jprb,6.7475e-03_jprb,3.2870e-03_jprb,&
 & 1.9179e-03_jprb,9.2309e-03_jprb,8.9645e-04_jprb/)  
kao( :, 2, 7, 7) = (/&
 & 9.1242e-03_jprb,9.0932e-03_jprb,8.9046e-03_jprb,8.4994e-03_jprb,7.7737e-03_jprb,6.2095e-03_jprb,&
 & 2.8211e-03_jprb,9.1242e-03_jprb,1.1346e-03_jprb/)  
kao( :, 3, 7, 7) = (/&
 & 9.0499e-03_jprb,9.3880e-03_jprb,9.3912e-03_jprb,9.1437e-03_jprb,8.6640e-03_jprb,7.8059e-03_jprb,&
 & 5.8358e-03_jprb,9.0499e-03_jprb,1.4379e-03_jprb/)  
kao( :, 4, 7, 7) = (/&
 & 9.0319e-03_jprb,9.7281e-03_jprb,9.8888e-03_jprb,9.8240e-03_jprb,9.6043e-03_jprb,9.1535e-03_jprb,&
 & 8.2625e-03_jprb,9.0319e-03_jprb,1.8162e-03_jprb/)  
kao( :, 5, 7, 7) = (/&
 & 9.0677e-03_jprb,1.0114e-02_jprb,1.0453e-02_jprb,1.0590e-02_jprb,1.0614e-02_jprb,1.0515e-02_jprb,&
 & 1.0212e-02_jprb,9.0678e-03_jprb,2.2700e-03_jprb/)  
kao( :, 1, 8, 7) = (/&
 & 8.0750e-03_jprb,7.6623e-03_jprb,7.2138e-03_jprb,6.5975e-03_jprb,5.4257e-03_jprb,2.2723e-03_jprb,&
 & 1.6249e-03_jprb,8.0750e-03_jprb,1.2831e-03_jprb/)  
kao( :, 2, 8, 7) = (/&
 & 7.9997e-03_jprb,7.8793e-03_jprb,7.6227e-03_jprb,7.1817e-03_jprb,6.4216e-03_jprb,4.5366e-03_jprb,&
 & 1.9736e-03_jprb,7.9997e-03_jprb,1.4497e-03_jprb/)  
kao( :, 3, 8, 7) = (/&
 & 7.9739e-03_jprb,8.1496e-03_jprb,8.0220e-03_jprb,7.7220e-03_jprb,7.1874e-03_jprb,6.2455e-03_jprb,&
 & 3.8530e-03_jprb,7.9739e-03_jprb,1.6552e-03_jprb/)  
kao( :, 4, 8, 7) = (/&
 & 8.0128e-03_jprb,8.4694e-03_jprb,8.4614e-03_jprb,8.2951e-03_jprb,7.9668e-03_jprb,7.4368e-03_jprb,&
 & 6.3444e-03_jprb,8.0128e-03_jprb,1.8965e-03_jprb/)  
kao( :, 5, 8, 7) = (/&
 & 8.1136e-03_jprb,8.8341e-03_jprb,8.9710e-03_jprb,8.9459e-03_jprb,8.8203e-03_jprb,8.6006e-03_jprb,&
 & 8.1402e-03_jprb,8.1136e-03_jprb,2.1909e-03_jprb/)  
kao( :, 1, 9, 7) = (/&
 & 7.0296e-03_jprb,6.6308e-03_jprb,6.1804e-03_jprb,5.5360e-03_jprb,4.1437e-03_jprb,1.5632e-03_jprb,&
 & 1.4348e-03_jprb,7.0296e-03_jprb,5.0746e-03_jprb/)  
kao( :, 2, 9, 7) = (/&
 & 6.9891e-03_jprb,6.8154e-03_jprb,6.5047e-03_jprb,6.0126e-03_jprb,5.1664e-03_jprb,3.1309e-03_jprb,&
 & 1.3440e-03_jprb,6.9891e-03_jprb,5.2575e-03_jprb/)  
kao( :, 3, 9, 7) = (/&
 & 7.0047e-03_jprb,7.0682e-03_jprb,6.8401e-03_jprb,6.4671e-03_jprb,5.8881e-03_jprb,4.8032e-03_jprb,&
 & 2.4408e-03_jprb,7.0047e-03_jprb,5.4725e-03_jprb/)  
kao( :, 4, 9, 7) = (/&
 & 7.0937e-03_jprb,7.3642e-03_jprb,7.2266e-03_jprb,6.9602e-03_jprb,6.5505e-03_jprb,5.9472e-03_jprb,&
 & 4.6225e-03_jprb,7.0937e-03_jprb,5.7075e-03_jprb/)  
kao( :, 5, 9, 7) = (/&
 & 7.2359e-03_jprb,7.7189e-03_jprb,7.6898e-03_jprb,7.5393e-03_jprb,7.2796e-03_jprb,6.9540e-03_jprb,&
 & 6.3115e-03_jprb,7.2359e-03_jprb,5.9395e-03_jprb/)  
kao( :, 1,10, 7) = (/&
 & 6.0824e-03_jprb,5.7201e-03_jprb,5.2950e-03_jprb,4.6533e-03_jprb,3.1243e-03_jprb,1.0849e-03_jprb,&
 & 1.3514e-03_jprb,6.0824e-03_jprb,3.2036e-02_jprb/)  
kao( :, 2,10, 7) = (/&
 & 6.0816e-03_jprb,5.8999e-03_jprb,5.5711e-03_jprb,5.0543e-03_jprb,4.1674e-03_jprb,2.1951e-03_jprb,&
 & 1.1513e-03_jprb,6.0816e-03_jprb,3.2646e-02_jprb/)  
kao( :, 3,10, 7) = (/&
 & 6.1454e-03_jprb,6.1496e-03_jprb,5.8546e-03_jprb,5.4437e-03_jprb,4.8180e-03_jprb,3.6424e-03_jprb,&
 & 1.7330e-03_jprb,6.1454e-03_jprb,3.3079e-02_jprb/)  
kao( :, 4,10, 7) = (/&
 & 6.2758e-03_jprb,6.4382e-03_jprb,6.1991e-03_jprb,5.8783e-03_jprb,5.4350e-03_jprb,4.7237e-03_jprb,&
 & 3.2810e-03_jprb,6.2757e-03_jprb,3.3401e-02_jprb/)  
kao( :, 5,10, 7) = (/&
 & 6.4344e-03_jprb,6.7774e-03_jprb,6.6295e-03_jprb,6.3941e-03_jprb,6.0678e-03_jprb,5.6397e-03_jprb,&
 & 4.8978e-03_jprb,6.4344e-03_jprb,3.3652e-02_jprb/)  
kao( :, 1,11, 7) = (/&
 & 5.2811e-03_jprb,5.0055e-03_jprb,4.6335e-03_jprb,4.0757e-03_jprb,2.8727e-03_jprb,1.0865e-03_jprb,&
 & 1.0171e-03_jprb,5.2811e-03_jprb,7.6840e-02_jprb/)  
kao( :, 2,11, 7) = (/&
 & 5.3409e-03_jprb,5.2140e-03_jprb,4.8806e-03_jprb,4.4140e-03_jprb,3.6622e-03_jprb,2.0302e-03_jprb,&
 & 9.1811e-04_jprb,5.3409e-03_jprb,7.7870e-02_jprb/)  
kao( :, 3,11, 7) = (/&
 & 5.4674e-03_jprb,5.4758e-03_jprb,5.1638e-03_jprb,4.7679e-03_jprb,4.2203e-03_jprb,3.2247e-03_jprb,&
 & 1.5980e-03_jprb,5.4674e-03_jprb,7.8594e-02_jprb/)  
kao( :, 4,11, 7) = (/&
 & 5.6175e-03_jprb,5.7677e-03_jprb,5.5092e-03_jprb,5.1897e-03_jprb,4.7728e-03_jprb,4.1267e-03_jprb,&
 & 2.9888e-03_jprb,5.6175e-03_jprb,7.8959e-02_jprb/)  
kao( :, 5,11, 7) = (/&
 & 5.7848e-03_jprb,6.0885e-03_jprb,5.9189e-03_jprb,5.6782e-03_jprb,5.3431e-03_jprb,4.9223e-03_jprb,&
 & 4.2500e-03_jprb,5.7848e-03_jprb,7.9148e-02_jprb/)  
kao( :, 1,12, 7) = (/&
 & 4.6406e-03_jprb,4.4264e-03_jprb,4.0750e-03_jprb,3.5822e-03_jprb,2.6510e-03_jprb,1.0132e-03_jprb,&
 & 9.2156e-04_jprb,4.6406e-03_jprb,1.1768e-01_jprb/)  
kao( :, 2,12, 7) = (/&
 & 4.7513e-03_jprb,4.6501e-03_jprb,4.3133e-03_jprb,3.8811e-03_jprb,3.2507e-03_jprb,1.8501e-03_jprb,&
 & 7.3924e-04_jprb,4.7513e-03_jprb,1.1892e-01_jprb/)  
kao( :, 3,12, 7) = (/&
 & 4.8892e-03_jprb,4.8966e-03_jprb,4.5920e-03_jprb,4.2162e-03_jprb,3.7357e-03_jprb,2.9015e-03_jprb,&
 & 1.4402e-03_jprb,4.8892e-03_jprb,1.1988e-01_jprb/)  
kao( :, 4,12, 7) = (/&
 & 5.0434e-03_jprb,5.1649e-03_jprb,4.9117e-03_jprb,4.6087e-03_jprb,4.2340e-03_jprb,3.6743e-03_jprb,&
 & 2.6652e-03_jprb,5.0434e-03_jprb,1.2040e-01_jprb/)  
kao( :, 5,12, 7) = (/&
 & 5.1943e-03_jprb,5.4604e-03_jprb,5.2859e-03_jprb,5.0532e-03_jprb,4.7466e-03_jprb,4.3367e-03_jprb,&
 & 3.6758e-03_jprb,5.1943e-03_jprb,1.2066e-01_jprb/)  
kao( :, 1,13, 7) = (/&
 & 4.1040e-03_jprb,3.9320e-03_jprb,3.6016e-03_jprb,3.1660e-03_jprb,2.4198e-03_jprb,9.6006e-04_jprb,&
 & 7.4336e-04_jprb,4.1040e-03_jprb,1.4478e-01_jprb/)  
kao( :, 2,13, 7) = (/&
 & 4.2232e-03_jprb,4.1425e-03_jprb,3.8331e-03_jprb,3.4407e-03_jprb,2.9046e-03_jprb,1.6979e-03_jprb,&
 & 6.7921e-04_jprb,4.2232e-03_jprb,1.4623e-01_jprb/)  
kao( :, 3,13, 7) = (/&
 & 4.3611e-03_jprb,4.3698e-03_jprb,4.0899e-03_jprb,3.7461e-03_jprb,3.3273e-03_jprb,2.6603e-03_jprb,&
 & 1.2963e-03_jprb,4.3611e-03_jprb,1.4748e-01_jprb/)  
kao( :, 4,13, 7) = (/&
 & 4.4992e-03_jprb,4.6148e-03_jprb,4.3841e-03_jprb,4.0963e-03_jprb,3.7570e-03_jprb,3.2859e-03_jprb,&
 & 2.3687e-03_jprb,4.4992e-03_jprb,1.4817e-01_jprb/)  
kao( :, 5,13, 7) = (/&
 & 4.6327e-03_jprb,4.8729e-03_jprb,4.7086e-03_jprb,4.4884e-03_jprb,4.2102e-03_jprb,3.8391e-03_jprb,&
 & 3.2592e-03_jprb,4.6327e-03_jprb,1.4848e-01_jprb/)  
kao( :, 1, 1, 8) = (/&
 & 3.2446e-02_jprb,3.0961e-02_jprb,2.9943e-02_jprb,2.8814e-02_jprb,2.6701e-02_jprb,2.3826e-02_jprb,&
 & 2.0786e-02_jprb,3.2446e-02_jprb,1.5676e-02_jprb/)  
kao( :, 2, 1, 8) = (/&
 & 3.2527e-02_jprb,3.1848e-02_jprb,3.1994e-02_jprb,3.1175e-02_jprb,2.9719e-02_jprb,2.8532e-02_jprb,&
 & 2.8157e-02_jprb,3.2527e-02_jprb,2.0060e-02_jprb/)  
kao( :, 3, 1, 8) = (/&
 & 3.2555e-02_jprb,3.3035e-02_jprb,3.4009e-02_jprb,3.3632e-02_jprb,3.3098e-02_jprb,3.4035e-02_jprb,&
 & 3.6093e-02_jprb,3.2555e-02_jprb,2.5319e-02_jprb/)  
kao( :, 4, 1, 8) = (/&
 & 3.2520e-02_jprb,3.4424e-02_jprb,3.5893e-02_jprb,3.6221e-02_jprb,3.7173e-02_jprb,4.0037e-02_jprb,&
 & 4.3790e-02_jprb,3.2520e-02_jprb,3.1444e-02_jprb/)  
kao( :, 5, 1, 8) = (/&
 & 3.2436e-02_jprb,3.5761e-02_jprb,3.7828e-02_jprb,3.9167e-02_jprb,4.2081e-02_jprb,4.6777e-02_jprb,&
 & 5.1699e-02_jprb,3.2436e-02_jprb,3.8339e-02_jprb/)  
kao( :, 1, 2, 8) = (/&
 & 3.3259e-02_jprb,3.1637e-02_jprb,3.0502e-02_jprb,2.9322e-02_jprb,2.7192e-02_jprb,2.4045e-02_jprb,&
 & 1.9418e-02_jprb,3.3259e-02_jprb,1.2401e-02_jprb/)  
kao( :, 2, 2, 8) = (/&
 & 3.3309e-02_jprb,3.2542e-02_jprb,3.2579e-02_jprb,3.1869e-02_jprb,3.0109e-02_jprb,2.7900e-02_jprb,&
 & 2.5530e-02_jprb,3.3309e-02_jprb,1.5971e-02_jprb/)  
kao( :, 3, 2, 8) = (/&
 & 3.3352e-02_jprb,3.3755e-02_jprb,3.4718e-02_jprb,3.4392e-02_jprb,3.3246e-02_jprb,3.2250e-02_jprb,&
 & 3.2349e-02_jprb,3.3352e-02_jprb,2.0278e-02_jprb/)  
kao( :, 4, 2, 8) = (/&
 & 3.3330e-02_jprb,3.5174e-02_jprb,3.6737e-02_jprb,3.6916e-02_jprb,3.6641e-02_jprb,3.7274e-02_jprb,&
 & 3.9441e-02_jprb,3.3330e-02_jprb,2.5234e-02_jprb/)  
kao( :, 5, 2, 8) = (/&
 & 3.3226e-02_jprb,3.6569e-02_jprb,3.8777e-02_jprb,3.9713e-02_jprb,4.0596e-02_jprb,4.2979e-02_jprb,&
 & 4.7032e-02_jprb,3.3226e-02_jprb,3.0759e-02_jprb/)  
kao( :, 1, 3, 8) = (/&
 & 3.3391e-02_jprb,3.1594e-02_jprb,3.0176e-02_jprb,2.8739e-02_jprb,2.6633e-02_jprb,2.3336e-02_jprb,&
 & 1.8177e-02_jprb,3.3391e-02_jprb,9.1438e-03_jprb/)  
kao( :, 2, 3, 8) = (/&
 & 3.3463e-02_jprb,3.2445e-02_jprb,3.2154e-02_jprb,3.1362e-02_jprb,2.9626e-02_jprb,2.6963e-02_jprb,&
 & 2.3198e-02_jprb,3.3463e-02_jprb,1.1964e-02_jprb/)  
kao( :, 3, 3, 8) = (/&
 & 3.3507e-02_jprb,3.3666e-02_jprb,3.4348e-02_jprb,3.4020e-02_jprb,3.2664e-02_jprb,3.0729e-02_jprb,&
 & 2.8675e-02_jprb,3.3507e-02_jprb,1.5312e-02_jprb/)  
kao( :, 4, 3, 8) = (/&
 & 3.3484e-02_jprb,3.5076e-02_jprb,3.6460e-02_jprb,3.6685e-02_jprb,3.5851e-02_jprb,3.4760e-02_jprb,&
 & 3.4446e-02_jprb,3.3484e-02_jprb,1.9144e-02_jprb/)  
kao( :, 5, 3, 8) = (/&
 & 3.3365e-02_jprb,3.6491e-02_jprb,3.8546e-02_jprb,3.9400e-02_jprb,3.9309e-02_jprb,3.9340e-02_jprb,&
 & 4.1039e-02_jprb,3.3365e-02_jprb,2.3426e-02_jprb/)  
kao( :, 1, 4, 8) = (/&
 & 3.2823e-02_jprb,3.0856e-02_jprb,2.9216e-02_jprb,2.7536e-02_jprb,2.5263e-02_jprb,2.2005e-02_jprb,&
 & 1.7126e-02_jprb,3.2823e-02_jprb,6.4847e-03_jprb/)  
kao( :, 2, 4, 8) = (/&
 & 3.2916e-02_jprb,3.1703e-02_jprb,3.1081e-02_jprb,3.0059e-02_jprb,2.8252e-02_jprb,2.5566e-02_jprb,&
 & 2.1643e-02_jprb,3.2916e-02_jprb,8.6411e-03_jprb/)  
kao( :, 3, 4, 8) = (/&
 & 3.2942e-02_jprb,3.2855e-02_jprb,3.3172e-02_jprb,3.2679e-02_jprb,3.1442e-02_jprb,2.9283e-02_jprb,&
 & 2.6180e-02_jprb,3.2942e-02_jprb,1.1256e-02_jprb/)  
kao( :, 4, 4, 8) = (/&
 & 3.2895e-02_jprb,3.4207e-02_jprb,3.5261e-02_jprb,3.5386e-02_jprb,3.4683e-02_jprb,3.2992e-02_jprb,&
 & 3.0830e-02_jprb,3.2895e-02_jprb,1.4266e-02_jprb/)  
kao( :, 5, 4, 8) = (/&
 & 3.2791e-02_jprb,3.5598e-02_jprb,3.7342e-02_jprb,3.8144e-02_jprb,3.7958e-02_jprb,3.6915e-02_jprb,&
 & 3.6060e-02_jprb,3.2791e-02_jprb,1.7623e-02_jprb/)  
kao( :, 1, 5, 8) = (/&
 & 3.1527e-02_jprb,2.9441e-02_jprb,2.7666e-02_jprb,2.5800e-02_jprb,2.3517e-02_jprb,2.0290e-02_jprb,&
 & 1.5284e-02_jprb,3.1527e-02_jprb,4.5483e-03_jprb/)  

IF (lhook) CALL dr_hook('RRTM_KGB4:PART5',1,zhook_handle)
END SUBROUTINE part5


SUBROUTINE part6

REAL(KIND=JPRB) :: ZHOOK_HANDLE
IF (lhook) CALL dr_hook('RRTM_KGB4:PART6',0,zhook_handle)


kao( :, 2, 5, 8) = (/&
 & 3.1627e-02_jprb,3.0253e-02_jprb,2.9410e-02_jprb,2.8191e-02_jprb,2.6385e-02_jprb,2.3754e-02_jprb,&
 & 1.9782e-02_jprb,3.1627e-02_jprb,6.1662e-03_jprb/)  
kao( :, 3, 5, 8) = (/&
 & 3.1653e-02_jprb,3.1374e-02_jprb,3.1394e-02_jprb,3.0704e-02_jprb,2.9499e-02_jprb,2.7410e-02_jprb,&
 & 2.4207e-02_jprb,3.1653e-02_jprb,8.1447e-03_jprb/)  
kao( :, 4, 5, 8) = (/&
 & 3.1587e-02_jprb,3.2681e-02_jprb,3.3373e-02_jprb,3.3364e-02_jprb,3.2711e-02_jprb,3.1061e-02_jprb,&
 & 2.8366e-02_jprb,3.1587e-02_jprb,1.0460e-02_jprb/)  
kao( :, 5, 5, 8) = (/&
 & 3.1459e-02_jprb,3.4035e-02_jprb,3.5391e-02_jprb,3.6063e-02_jprb,3.5941e-02_jprb,3.4747e-02_jprb,&
 & 3.2643e-02_jprb,3.1459e-02_jprb,1.3095e-02_jprb/)  
kao( :, 1, 6, 8) = (/&
 & 2.9690e-02_jprb,2.7513e-02_jprb,2.5633e-02_jprb,2.3605e-02_jprb,2.1298e-02_jprb,1.8147e-02_jprb,&
 & 1.3146e-02_jprb,2.9690e-02_jprb,3.1369e-03_jprb/)  
kao( :, 2, 6, 8) = (/&
 & 2.9770e-02_jprb,2.8288e-02_jprb,2.7183e-02_jprb,2.5789e-02_jprb,2.4036e-02_jprb,2.1561e-02_jprb,&
 & 1.7543e-02_jprb,2.9770e-02_jprb,4.3187e-03_jprb/)  
kao( :, 3, 6, 8) = (/&
 & 2.9783e-02_jprb,2.9294e-02_jprb,2.9045e-02_jprb,2.8192e-02_jprb,2.6960e-02_jprb,2.5034e-02_jprb,&
 & 2.1858e-02_jprb,2.9783e-02_jprb,5.7867e-03_jprb/)  
kao( :, 4, 6, 8) = (/&
 & 2.9692e-02_jprb,3.0523e-02_jprb,3.0946e-02_jprb,3.0715e-02_jprb,3.0007e-02_jprb,2.8497e-02_jprb,&
 & 2.5800e-02_jprb,2.9692e-02_jprb,7.5502e-03_jprb/)  
kao( :, 5, 6, 8) = (/&
 & 2.9534e-02_jprb,3.1783e-02_jprb,3.2869e-02_jprb,3.3262e-02_jprb,3.3064e-02_jprb,3.1999e-02_jprb,&
 & 2.9755e-02_jprb,2.9534e-02_jprb,9.5800e-03_jprb/)  
kao( :, 1, 7, 8) = (/&
 & 2.7399e-02_jprb,2.5219e-02_jprb,2.3318e-02_jprb,2.1250e-02_jprb,1.8905e-02_jprb,1.5866e-02_jprb,&
 & 1.0211e-02_jprb,2.7399e-02_jprb,2.2133e-03_jprb/)  
kao( :, 2, 7, 8) = (/&
 & 2.7465e-02_jprb,2.5918e-02_jprb,2.4664e-02_jprb,2.3195e-02_jprb,2.1415e-02_jprb,1.9044e-02_jprb,&
 & 1.5287e-02_jprb,2.7465e-02_jprb,3.0581e-03_jprb/)  
kao( :, 3, 7, 8) = (/&
 & 2.7467e-02_jprb,2.6847e-02_jprb,2.6363e-02_jprb,2.5381e-02_jprb,2.4103e-02_jprb,2.2261e-02_jprb,&
 & 1.9298e-02_jprb,2.7467e-02_jprb,4.1379e-03_jprb/)  
kao( :, 4, 7, 8) = (/&
 & 2.7377e-02_jprb,2.7967e-02_jprb,2.8113e-02_jprb,2.7721e-02_jprb,2.6897e-02_jprb,2.5513e-02_jprb,&
 & 2.3011e-02_jprb,2.7377e-02_jprb,5.4434e-03_jprb/)  
kao( :, 5, 7, 8) = (/&
 & 2.7205e-02_jprb,2.9095e-02_jprb,2.9889e-02_jprb,3.0064e-02_jprb,2.9735e-02_jprb,2.8823e-02_jprb,&
 & 2.6785e-02_jprb,2.7205e-02_jprb,6.9886e-03_jprb/)  
kao( :, 1, 8, 8) = (/&
 & 2.4838e-02_jprb,2.2730e-02_jprb,2.0879e-02_jprb,1.8847e-02_jprb,1.6562e-02_jprb,1.3598e-02_jprb,&
 & 7.9263e-03_jprb,2.4838e-02_jprb,2.3197e-03_jprb/)  
kao( :, 2, 8, 8) = (/&
 & 2.4890e-02_jprb,2.3360e-02_jprb,2.2033e-02_jprb,2.0523e-02_jprb,1.8797e-02_jprb,1.6567e-02_jprb,&
 & 1.2790e-02_jprb,2.4890e-02_jprb,2.7806e-03_jprb/)  
kao( :, 3, 8, 8) = (/&
 & 2.4862e-02_jprb,2.4160e-02_jprb,2.3528e-02_jprb,2.2491e-02_jprb,2.1199e-02_jprb,1.9477e-02_jprb,&
 & 1.6802e-02_jprb,2.4862e-02_jprb,3.4079e-03_jprb/)  
kao( :, 4, 8, 8) = (/&
 & 2.4775e-02_jprb,2.5154e-02_jprb,2.5100e-02_jprb,2.4578e-02_jprb,2.3711e-02_jprb,2.2381e-02_jprb,&
 & 2.0219e-02_jprb,2.4775e-02_jprb,4.2580e-03_jprb/)  
kao( :, 5, 8, 8) = (/&
 & 2.4622e-02_jprb,2.6148e-02_jprb,2.6699e-02_jprb,2.6671e-02_jprb,2.6294e-02_jprb,2.5372e-02_jprb,&
 & 2.3589e-02_jprb,2.4622e-02_jprb,5.3361e-03_jprb/)  
kao( :, 1, 9, 8) = (/&
 & 2.2221e-02_jprb,2.0209e-02_jprb,1.8418e-02_jprb,1.6497e-02_jprb,1.4362e-02_jprb,1.1452e-02_jprb,&
 & 5.8464e-03_jprb,2.2221e-02_jprb,8.1045e-03_jprb/)  
kao( :, 2, 9, 8) = (/&
 & 2.2228e-02_jprb,2.0738e-02_jprb,1.9399e-02_jprb,1.7929e-02_jprb,1.6274e-02_jprb,1.4180e-02_jprb,&
 & 1.0256e-02_jprb,2.2228e-02_jprb,8.4976e-03_jprb/)  
kao( :, 3, 9, 8) = (/&
 & 2.2181e-02_jprb,2.1419e-02_jprb,2.0685e-02_jprb,1.9636e-02_jprb,1.8370e-02_jprb,1.6740e-02_jprb,&
 & 1.4221e-02_jprb,2.2181e-02_jprb,8.9064e-03_jprb/)  
kao( :, 4, 9, 8) = (/&
 & 2.2077e-02_jprb,2.2259e-02_jprb,2.2053e-02_jprb,2.1452e-02_jprb,2.0561e-02_jprb,1.9271e-02_jprb,&
 & 1.7337e-02_jprb,2.2077e-02_jprb,9.3666e-03_jprb/)  
kao( :, 5, 9, 8) = (/&
 & 2.1959e-02_jprb,2.3140e-02_jprb,2.3450e-02_jprb,2.3281e-02_jprb,2.2789e-02_jprb,2.1856e-02_jprb,&
 & 2.0328e-02_jprb,2.1959e-02_jprb,9.8960e-03_jprb/)  
kao( :, 1,10, 8) = (/&
 & 1.9665e-02_jprb,1.7813e-02_jprb,1.6135e-02_jprb,1.4379e-02_jprb,1.2423e-02_jprb,9.6194e-03_jprb,&
 & 4.3665e-03_jprb,1.9665e-02_jprb,5.0859e-02_jprb/)  
kao( :, 2,10, 8) = (/&
 & 1.9655e-02_jprb,1.8254e-02_jprb,1.6961e-02_jprb,1.5587e-02_jprb,1.4053e-02_jprb,1.2088e-02_jprb,&
 & 8.1382e-03_jprb,1.9655e-02_jprb,5.1465e-02_jprb/)  
kao( :, 3,10, 8) = (/&
 & 1.9577e-02_jprb,1.8805e-02_jprb,1.8054e-02_jprb,1.7058e-02_jprb,1.5850e-02_jprb,1.4336e-02_jprb,&
 & 1.1950e-02_jprb,1.9577e-02_jprb,5.1955e-02_jprb/)  
kao( :, 4,10, 8) = (/&
 & 1.9473e-02_jprb,1.9523e-02_jprb,1.9227e-02_jprb,1.8591e-02_jprb,1.7700e-02_jprb,1.6478e-02_jprb,&
 & 1.4693e-02_jprb,1.9473e-02_jprb,5.2354e-02_jprb/)  
kao( :, 5,10, 8) = (/&
 & 1.9405e-02_jprb,2.0288e-02_jprb,2.0423e-02_jprb,2.0132e-02_jprb,1.9564e-02_jprb,1.8691e-02_jprb,&
 & 1.7347e-02_jprb,1.9405e-02_jprb,5.2682e-02_jprb/)  
kao( :, 1,11, 8) = (/&
 & 1.7199e-02_jprb,1.5692e-02_jprb,1.4307e-02_jprb,1.2861e-02_jprb,1.1262e-02_jprb,9.0316e-03_jprb,&
 & 4.4212e-03_jprb,1.7199e-02_jprb,1.2641e-01_jprb/)  
kao( :, 2,11, 8) = (/&
 & 1.7139e-02_jprb,1.6089e-02_jprb,1.5094e-02_jprb,1.3995e-02_jprb,1.2699e-02_jprb,1.1063e-02_jprb,&
 & 8.1294e-03_jprb,1.7139e-02_jprb,1.2630e-01_jprb/)  
kao( :, 3,11, 8) = (/&
 & 1.7062e-02_jprb,1.6616e-02_jprb,1.6068e-02_jprb,1.5250e-02_jprb,1.4213e-02_jprb,1.2927e-02_jprb,&
 & 1.0968e-02_jprb,1.7062e-02_jprb,1.2657e-01_jprb/)  
kao( :, 4,11, 8) = (/&
 & 1.7027e-02_jprb,1.7284e-02_jprb,1.7074e-02_jprb,1.6503e-02_jprb,1.5727e-02_jprb,1.4747e-02_jprb,&
 & 1.3302e-02_jprb,1.7027e-02_jprb,1.2680e-01_jprb/)  
kao( :, 5,11, 8) = (/&
 & 1.7051e-02_jprb,1.8003e-02_jprb,1.8097e-02_jprb,1.7795e-02_jprb,1.7338e-02_jprb,1.6670e-02_jprb,&
 & 1.5656e-02_jprb,1.7051e-02_jprb,1.2668e-01_jprb/)  
kao( :, 1,12, 8) = (/&
 & 1.4892e-02_jprb,1.3707e-02_jprb,1.2589e-02_jprb,1.1424e-02_jprb,1.0096e-02_jprb,8.2815e-03_jprb,&
 & 4.4233e-03_jprb,1.4892e-02_jprb,2.0178e-01_jprb/)  
kao( :, 2,12, 8) = (/&
 & 1.4830e-02_jprb,1.4076e-02_jprb,1.3327e-02_jprb,1.2415e-02_jprb,1.1306e-02_jprb,9.9128e-03_jprb,&
 & 7.6510e-03_jprb,1.4830e-02_jprb,2.0127e-01_jprb/)  
kao( :, 3,12, 8) = (/&
 & 1.4815e-02_jprb,1.4616e-02_jprb,1.4166e-02_jprb,1.3436e-02_jprb,1.2531e-02_jprb,1.1419e-02_jprb,&
 & 9.8144e-03_jprb,1.4815e-02_jprb,2.0109e-01_jprb/)  
kao( :, 4,12, 8) = (/&
 & 1.4874e-02_jprb,1.5249e-02_jprb,1.5019e-02_jprb,1.4484e-02_jprb,1.3802e-02_jprb,1.2969e-02_jprb,&
 & 1.1802e-02_jprb,1.4874e-02_jprb,2.0108e-01_jprb/)  
kao( :, 5,12, 8) = (/&
 & 1.5028e-02_jprb,1.5947e-02_jprb,1.5923e-02_jprb,1.5630e-02_jprb,1.5205e-02_jprb,1.4665e-02_jprb,&
 & 1.3888e-02_jprb,1.5028e-02_jprb,2.0061e-01_jprb/)  
kao( :, 1,13, 8) = (/&
 & 1.2856e-02_jprb,1.1926e-02_jprb,1.1034e-02_jprb,1.0051e-02_jprb,8.9048e-03_jprb,7.3808e-03_jprb,&
 & 4.3560e-03_jprb,1.2856e-02_jprb,2.5947e-01_jprb/)  
kao( :, 2,13, 8) = (/&
 & 1.2849e-02_jprb,1.2317e-02_jprb,1.1692e-02_jprb,1.0882e-02_jprb,9.8884e-03_jprb,8.6786e-03_jprb,&
 & 6.8479e-03_jprb,1.2849e-02_jprb,2.5953e-01_jprb/)  
kao( :, 3,13, 8) = (/&
 & 1.2913e-02_jprb,1.2850e-02_jprb,1.2417e-02_jprb,1.1721e-02_jprb,1.0882e-02_jprb,9.9190e-03_jprb,&
 & 8.6023e-03_jprb,1.2913e-02_jprb,2.5942e-01_jprb/)  
kao( :, 4,13, 8) = (/&
 & 1.3088e-02_jprb,1.3471e-02_jprb,1.3169e-02_jprb,1.2637e-02_jprb,1.1989e-02_jprb,1.1248e-02_jprb,&
 & 1.0301e-02_jprb,1.3088e-02_jprb,2.5909e-01_jprb/)  
kao( :, 5,13, 8) = (/&
 & 1.3373e-02_jprb,1.4159e-02_jprb,1.4029e-02_jprb,1.3679e-02_jprb,1.3241e-02_jprb,1.2749e-02_jprb,&
 & 1.2125e-02_jprb,1.3373e-02_jprb,2.5815e-01_jprb/)  
kao( :, 1, 1, 9) = (/&
 & 6.4733e-02_jprb,6.0521e-02_jprb,5.8252e-02_jprb,5.6866e-02_jprb,5.6526e-02_jprb,5.5742e-02_jprb,&
 & 5.2046e-02_jprb,6.4733e-02_jprb,5.6233e-02_jprb/)  
kao( :, 2, 1, 9) = (/&
 & 6.5477e-02_jprb,6.3047e-02_jprb,6.3106e-02_jprb,6.4612e-02_jprb,6.6790e-02_jprb,6.7507e-02_jprb,&
 & 6.4723e-02_jprb,6.5477e-02_jprb,7.2720e-02_jprb/)  
kao( :, 3, 1, 9) = (/&
 & 6.6216e-02_jprb,6.6108e-02_jprb,6.9181e-02_jprb,7.4268e-02_jprb,7.9047e-02_jprb,8.0497e-02_jprb,&
 & 7.8280e-02_jprb,6.6216e-02_jprb,9.1648e-02_jprb/)  
kao( :, 4, 1, 9) = (/&
 & 6.6791e-02_jprb,6.9579e-02_jprb,7.6737e-02_jprb,8.5244e-02_jprb,9.1845e-02_jprb,9.4527e-02_jprb,&
 & 9.2441e-02_jprb,6.6791e-02_jprb,1.1307e-01_jprb/)  
kao( :, 5, 1, 9) = (/&
 & 6.7298e-02_jprb,7.3839e-02_jprb,8.5356e-02_jprb,9.7147e-02_jprb,1.0554e-01_jprb,1.0978e-01_jprb,&
 & 1.0752e-01_jprb,6.7298e-02_jprb,1.3678e-01_jprb/)  
kao( :, 1, 2, 9) = (/&
 & 7.0877e-02_jprb,6.5253e-02_jprb,6.1232e-02_jprb,5.7942e-02_jprb,5.5662e-02_jprb,5.3703e-02_jprb,&
 & 5.0251e-02_jprb,7.0877e-02_jprb,4.8550e-02_jprb/)  
kao( :, 2, 2, 9) = (/&
 & 7.1555e-02_jprb,6.7492e-02_jprb,6.5473e-02_jprb,6.4551e-02_jprb,6.5054e-02_jprb,6.5264e-02_jprb,&
 & 6.3231e-02_jprb,7.1555e-02_jprb,6.3334e-02_jprb/)  
kao( :, 3, 2, 9) = (/&
 & 7.2159e-02_jprb,7.0218e-02_jprb,7.0742e-02_jprb,7.3278e-02_jprb,7.6459e-02_jprb,7.8274e-02_jprb,&
 & 7.6836e-02_jprb,7.2159e-02_jprb,8.0528e-02_jprb/)  
kao( :, 4, 2, 9) = (/&
 & 7.2672e-02_jprb,7.3326e-02_jprb,7.7456e-02_jprb,8.3314e-02_jprb,8.9061e-02_jprb,9.2382e-02_jprb,&
 & 9.1438e-02_jprb,7.2672e-02_jprb,1.0017e-01_jprb/)  
kao( :, 5, 2, 9) = (/&
 & 7.3068e-02_jprb,7.7090e-02_jprb,8.5132e-02_jprb,9.4518e-02_jprb,1.0309e-01_jprb,1.0796e-01_jprb,&
 & 1.0651e-01_jprb,7.3067e-02_jprb,1.2229e-01_jprb/)  
kao( :, 1, 3, 9) = (/&
 & 7.7836e-02_jprb,7.0551e-02_jprb,6.4559e-02_jprb,5.9167e-02_jprb,5.4414e-02_jprb,5.0314e-02_jprb,&
 & 4.5794e-02_jprb,7.7836e-02_jprb,3.8882e-02_jprb/)  
kao( :, 2, 3, 9) = (/&
 & 7.8435e-02_jprb,7.2532e-02_jprb,6.8092e-02_jprb,6.4613e-02_jprb,6.2358e-02_jprb,6.0608e-02_jprb,&
 & 5.8276e-02_jprb,7.8435e-02_jprb,5.1370e-02_jprb/)  
kao( :, 3, 3, 9) = (/&
 & 7.8932e-02_jprb,7.4825e-02_jprb,7.2527e-02_jprb,7.1989e-02_jprb,7.2471e-02_jprb,7.2873e-02_jprb,&
 & 7.1766e-02_jprb,7.8932e-02_jprb,6.6086e-02_jprb/)  
kao( :, 4, 3, 9) = (/&
 & 7.9379e-02_jprb,7.7501e-02_jprb,7.8388e-02_jprb,8.0847e-02_jprb,8.4097e-02_jprb,8.6801e-02_jprb,&
 & 8.6568e-02_jprb,7.9379e-02_jprb,8.3141e-02_jprb/)  
kao( :, 5, 3, 9) = (/&
 & 7.9699e-02_jprb,8.0691e-02_jprb,8.5121e-02_jprb,9.1008e-02_jprb,9.7441e-02_jprb,1.0226e-01_jprb,&
 & 1.0163e-01_jprb,7.9699e-02_jprb,1.0254e-01_jprb/)  
kao( :, 1, 4, 9) = (/&
 & 8.4906e-02_jprb,7.6241e-02_jprb,6.8684e-02_jprb,6.1260e-02_jprb,5.4322e-02_jprb,4.8027e-02_jprb,&
 & 4.1411e-02_jprb,8.4906e-02_jprb,3.0325e-02_jprb/)  
kao( :, 2, 4, 9) = (/&
 & 8.5698e-02_jprb,7.8243e-02_jprb,7.1748e-02_jprb,6.5778e-02_jprb,6.0935e-02_jprb,5.6719e-02_jprb,&
 & 5.2610e-02_jprb,8.5698e-02_jprb,4.0549e-02_jprb/)  
kao( :, 3, 4, 9) = (/&
 & 8.6275e-02_jprb,8.0324e-02_jprb,7.5429e-02_jprb,7.2009e-02_jprb,6.9531e-02_jprb,6.7539e-02_jprb,&
 & 6.5470e-02_jprb,8.6275e-02_jprb,5.2700e-02_jprb/)  
kao( :, 4, 4, 9) = (/&
 & 8.6713e-02_jprb,8.2575e-02_jprb,8.0462e-02_jprb,7.9748e-02_jprb,7.9735e-02_jprb,8.0326e-02_jprb,&
 & 7.9974e-02_jprb,8.6713e-02_jprb,6.7029e-02_jprb/)  
kao( :, 5, 4, 9) = (/&
 & 8.7027e-02_jprb,8.5276e-02_jprb,8.6509e-02_jprb,8.8819e-02_jprb,9.1761e-02_jprb,9.4798e-02_jprb,&
 & 9.4801e-02_jprb,8.7027e-02_jprb,8.3508e-02_jprb/)  
kao( :, 1, 5, 9) = (/&
 & 9.1507e-02_jprb,8.1620e-02_jprb,7.2828e-02_jprb,6.4142e-02_jprb,5.5568e-02_jprb,4.7251e-02_jprb,&
 & 3.8880e-02_jprb,9.1507e-02_jprb,2.3229e-02_jprb/)  
kao( :, 2, 5, 9) = (/&
 & 9.2405e-02_jprb,8.3679e-02_jprb,7.5863e-02_jprb,6.8216e-02_jprb,6.1046e-02_jprb,5.4513e-02_jprb,&
 & 4.8261e-02_jprb,9.2405e-02_jprb,3.1508e-02_jprb/)  
kao( :, 3, 5, 9) = (/&
 & 9.3115e-02_jprb,8.5700e-02_jprb,7.9335e-02_jprb,7.3579e-02_jprb,6.8420e-02_jprb,6.3872e-02_jprb,&
 & 5.9567e-02_jprb,9.3115e-02_jprb,4.1511e-02_jprb/)  
kao( :, 4, 5, 9) = (/&
 & 9.3636e-02_jprb,8.7963e-02_jprb,8.3776e-02_jprb,8.0336e-02_jprb,7.7284e-02_jprb,7.5046e-02_jprb,&
 & 7.2882e-02_jprb,9.3636e-02_jprb,5.3333e-02_jprb/)  
kao( :, 5, 5, 9) = (/&
 & 9.4011e-02_jprb,9.0504e-02_jprb,8.9128e-02_jprb,8.8247e-02_jprb,8.7824e-02_jprb,8.7979e-02_jprb,&
 & 8.7078e-02_jprb,9.4011e-02_jprb,6.7155e-02_jprb/)  
kao( :, 1, 6, 9) = (/&
 & 9.7472e-02_jprb,8.6538e-02_jprb,7.6624e-02_jprb,6.6824e-02_jprb,5.7059e-02_jprb,4.7268e-02_jprb,&
 & 3.7138e-02_jprb,9.7472e-02_jprb,1.7221e-02_jprb/)  
kao( :, 2, 6, 9) = (/&
 & 9.8451e-02_jprb,8.8518e-02_jprb,7.9536e-02_jprb,7.0737e-02_jprb,6.1956e-02_jprb,5.3328e-02_jprb,&
 & 4.4923e-02_jprb,9.8451e-02_jprb,2.3780e-02_jprb/)  
kao( :, 3, 6, 9) = (/&
 & 9.9270e-02_jprb,9.0592e-02_jprb,8.2992e-02_jprb,7.5645e-02_jprb,6.8338e-02_jprb,6.1246e-02_jprb,&
 & 5.4647e-02_jprb,9.9270e-02_jprb,3.1821e-02_jprb/)  
kao( :, 4, 6, 9) = (/&
 & 9.9874e-02_jprb,9.2825e-02_jprb,8.7145e-02_jprb,8.1713e-02_jprb,7.6024e-02_jprb,7.0895e-02_jprb,&
 & 6.6256e-02_jprb,9.9874e-02_jprb,4.1514e-02_jprb/)  
kao( :, 5, 6, 9) = (/&
 & 1.0031e-01_jprb,9.5362e-02_jprb,9.2196e-02_jprb,8.8672e-02_jprb,8.5237e-02_jprb,8.2164e-02_jprb,&
 & 7.9017e-02_jprb,1.0031e-01_jprb,5.2892e-02_jprb/)  
kao( :, 1, 7, 9) = (/&
 & 1.0232e-01_jprb,9.0553e-02_jprb,7.9624e-02_jprb,6.8906e-02_jprb,5.8070e-02_jprb,4.7256e-02_jprb,&
 & 3.6147e-02_jprb,1.0232e-01_jprb,1.2551e-02_jprb/)  
kao( :, 2, 7, 9) = (/&
 & 1.0337e-01_jprb,9.2407e-02_jprb,8.2434e-02_jprb,7.2548e-02_jprb,6.2643e-02_jprb,5.2753e-02_jprb,&
 & 4.2581e-02_jprb,1.0337e-01_jprb,1.7575e-02_jprb/)  
kao( :, 3, 7, 9) = (/&
 & 1.0428e-01_jprb,9.4463e-02_jprb,8.5756e-02_jprb,7.7103e-02_jprb,6.8472e-02_jprb,5.9711e-02_jprb,&
 & 5.0861e-02_jprb,1.0428e-01_jprb,2.3865e-02_jprb/)  
kao( :, 4, 7, 9) = (/&
 & 1.0499e-01_jprb,9.6649e-02_jprb,8.9715e-02_jprb,8.2804e-02_jprb,7.5682e-02_jprb,6.8094e-02_jprb,&
 & 6.0862e-02_jprb,1.0499e-01_jprb,3.1546e-02_jprb/)  
kao( :, 5, 7, 9) = (/&
 & 1.0547e-01_jprb,9.9180e-02_jprb,9.4519e-02_jprb,8.9479e-02_jprb,8.3717e-02_jprb,7.7813e-02_jprb,&
 & 7.1993e-02_jprb,1.0547e-01_jprb,4.0721e-02_jprb/)  
kao( :, 1, 8, 9) = (/&
 & 1.0518e-01_jprb,9.2886e-02_jprb,8.1191e-02_jprb,6.9957e-02_jprb,5.8508e-02_jprb,4.6965e-02_jprb,&
 & 3.4947e-02_jprb,1.0518e-01_jprb,9.1670e-03_jprb/)  
kao( :, 2, 8, 9) = (/&
 & 1.0636e-01_jprb,9.4674e-02_jprb,8.4036e-02_jprb,7.3413e-02_jprb,6.2776e-02_jprb,5.2007e-02_jprb,&
 & 4.0951e-02_jprb,1.0636e-01_jprb,1.2998e-02_jprb/)  
kao( :, 3, 8, 9) = (/&
 & 1.0733e-01_jprb,9.6738e-02_jprb,8.7252e-02_jprb,7.7783e-02_jprb,6.8203e-02_jprb,5.8372e-02_jprb,&
 & 4.8034e-02_jprb,1.0733e-01_jprb,1.7878e-02_jprb/)  
kao( :, 4, 8, 9) = (/&
 & 1.0812e-01_jprb,9.8911e-02_jprb,9.1152e-02_jprb,8.3173e-02_jprb,7.4963e-02_jprb,6.6116e-02_jprb,&
 & 5.6655e-02_jprb,1.0812e-01_jprb,2.3868e-02_jprb/)  
kao( :, 5, 8, 9) = (/&
 & 1.0863e-01_jprb,1.0151e-01_jprb,9.5717e-02_jprb,8.9578e-02_jprb,8.2572e-02_jprb,7.4669e-02_jprb,&
 & 6.6397e-02_jprb,1.0863e-01_jprb,3.1082e-02_jprb/)  
kao( :, 1, 9, 9) = (/&
 & 1.0589e-01_jprb,9.3378e-02_jprb,8.1320e-02_jprb,6.9699e-02_jprb,5.7939e-02_jprb,4.5963e-02_jprb,&
 & 3.3510e-02_jprb,1.0589e-01_jprb,1.5005e-02_jprb/)  
kao( :, 2, 9, 9) = (/&
 & 1.0710e-01_jprb,9.5046e-02_jprb,8.3992e-02_jprb,7.2968e-02_jprb,6.1840e-02_jprb,5.0670e-02_jprb,&
 & 3.9172e-02_jprb,1.0710e-01_jprb,1.6687e-02_jprb/)  
kao( :, 3, 9, 9) = (/&
 & 1.0811e-01_jprb,9.7025e-02_jprb,8.7062e-02_jprb,7.7135e-02_jprb,6.7008e-02_jprb,5.6693e-02_jprb,&
 & 4.5539e-02_jprb,1.0811e-01_jprb,1.9062e-02_jprb/)  
kao( :, 4, 9, 9) = (/&
 & 1.0893e-01_jprb,9.9210e-02_jprb,9.0893e-02_jprb,8.2268e-02_jprb,7.3432e-02_jprb,6.3872e-02_jprb,&
 & 5.3354e-02_jprb,1.0893e-01_jprb,2.2517e-02_jprb/)  
kao( :, 5, 9, 9) = (/&
 & 1.0951e-01_jprb,1.0180e-01_jprb,9.5328e-02_jprb,8.8533e-02_jprb,8.0777e-02_jprb,7.1933e-02_jprb,&
 & 6.1860e-02_jprb,1.0951e-01_jprb,2.7194e-02_jprb/)  
kao( :, 1,10, 9) = (/&
 & 1.0463e-01_jprb,9.2191e-02_jprb,8.0132e-02_jprb,6.8413e-02_jprb,5.6641e-02_jprb,4.4619e-02_jprb,&
 & 3.2080e-02_jprb,1.0463e-01_jprb,8.3991e-02_jprb/)  
kao( :, 2,10, 9) = (/&
 & 1.0582e-01_jprb,9.3770e-02_jprb,8.2627e-02_jprb,7.1539e-02_jprb,6.0265e-02_jprb,4.8989e-02_jprb,&
 & 3.7366e-02_jprb,1.0582e-01_jprb,8.5008e-02_jprb/)  
kao( :, 3,10, 9) = (/&
 & 1.0683e-01_jprb,9.5651e-02_jprb,8.5587e-02_jprb,7.5429e-02_jprb,6.5154e-02_jprb,5.4715e-02_jprb,&
 & 4.3408e-02_jprb,1.0683e-01_jprb,8.6636e-02_jprb/)  
kao( :, 4,10, 9) = (/&
 & 1.0759e-01_jprb,9.7764e-02_jprb,8.9220e-02_jprb,8.0336e-02_jprb,7.1349e-02_jprb,6.1576e-02_jprb,&
 & 5.0720e-02_jprb,1.0759e-01_jprb,8.8133e-02_jprb/)  
kao( :, 5,10, 9) = (/&
 & 1.0814e-01_jprb,1.0027e-01_jprb,9.3476e-02_jprb,8.6461e-02_jprb,7.8470e-02_jprb,6.9232e-02_jprb,&
 & 5.8604e-02_jprb,1.0814e-01_jprb,8.9595e-02_jprb/)  
kao( :, 1,11, 9) = (/&
 & 1.0192e-01_jprb,8.9934e-02_jprb,7.8442e-02_jprb,6.7206e-02_jprb,5.5807e-02_jprb,4.4274e-02_jprb,&
 & 3.2485e-02_jprb,1.0192e-01_jprb,2.1346e-01_jprb/)  
kao( :, 2,11, 9) = (/&
 & 1.0294e-01_jprb,9.1474e-02_jprb,8.1001e-02_jprb,7.0324e-02_jprb,5.9618e-02_jprb,4.8890e-02_jprb,&
 & 3.7724e-02_jprb,1.0294e-01_jprb,2.1319e-01_jprb/)  

IF (lhook) CALL dr_hook('RRTM_KGB4:PART6',1,zhook_handle)
END SUBROUTINE part6


SUBROUTINE part7

REAL(KIND=JPRB) :: ZHOOK_HANDLE
IF (lhook) CALL dr_hook('RRTM_KGB4:PART7',0,zhook_handle)


kao( :, 3,11, 9) = (/&
 & 1.0376e-01_jprb,9.3370e-02_jprb,8.3962e-02_jprb,7.4435e-02_jprb,6.4795e-02_jprb,5.4795e-02_jprb,&
 & 4.3827e-02_jprb,1.0376e-01_jprb,2.1289e-01_jprb/)  
kao( :, 4,11, 9) = (/&
 & 1.0437e-01_jprb,9.5489e-02_jprb,8.7682e-02_jprb,7.9614e-02_jprb,7.1102e-02_jprb,6.1619e-02_jprb,&
 & 5.1046e-02_jprb,1.0437e-01_jprb,2.1287e-01_jprb/)  
kao( :, 5,11, 9) = (/&
 & 1.0475e-01_jprb,9.8083e-02_jprb,9.2124e-02_jprb,8.5743e-02_jprb,7.7946e-02_jprb,6.9048e-02_jprb,&
 & 5.8627e-02_jprb,1.0475e-01_jprb,2.1310e-01_jprb/)  
kao( :, 1,12, 9) = (/&
 & 9.7261e-02_jprb,8.5991e-02_jprb,7.5324e-02_jprb,6.4737e-02_jprb,5.3989e-02_jprb,4.3184e-02_jprb,&
 & 3.2169e-02_jprb,9.7261e-02_jprb,3.5384e-01_jprb/)  
kao( :, 2,12, 9) = (/&
 & 9.8101e-02_jprb,8.7528e-02_jprb,7.7838e-02_jprb,6.7921e-02_jprb,5.8031e-02_jprb,4.8011e-02_jprb,&
 & 3.7356e-02_jprb,9.8101e-02_jprb,3.5110e-01_jprb/)  
kao( :, 3,12, 9) = (/&
 & 9.8721e-02_jprb,8.9358e-02_jprb,8.0844e-02_jprb,7.2156e-02_jprb,6.3303e-02_jprb,5.3812e-02_jprb,&
 & 4.3478e-02_jprb,9.8721e-02_jprb,3.4905e-01_jprb/)  
kao( :, 4,12, 9) = (/&
 & 9.9073e-02_jprb,9.1448e-02_jprb,8.4556e-02_jprb,7.7373e-02_jprb,6.9369e-02_jprb,6.0482e-02_jprb,&
 & 5.0434e-02_jprb,9.9073e-02_jprb,3.4710e-01_jprb/)  
kao( :, 5,12, 9) = (/&
 & 9.9229e-02_jprb,9.3917e-02_jprb,8.9028e-02_jprb,8.3070e-02_jprb,7.5795e-02_jprb,6.7464e-02_jprb,&
 & 5.7745e-02_jprb,9.9229e-02_jprb,3.4526e-01_jprb/)  
kao( :, 1,13, 9) = (/&
 & 9.0938e-02_jprb,8.0633e-02_jprb,7.0954e-02_jprb,6.1198e-02_jprb,5.1349e-02_jprb,4.1513e-02_jprb,&
 & 3.1321e-02_jprb,9.0938e-02_jprb,4.7630e-01_jprb/)  
kao( :, 2,13, 9) = (/&
 & 9.1524e-02_jprb,8.2076e-02_jprb,7.3333e-02_jprb,6.4427e-02_jprb,5.5526e-02_jprb,4.6304e-02_jprb,&
 & 3.6408e-02_jprb,9.1524e-02_jprb,4.7149e-01_jprb/)  
kao( :, 3,13, 9) = (/&
 & 9.1870e-02_jprb,8.3785e-02_jprb,7.6354e-02_jprb,6.8726e-02_jprb,6.0650e-02_jprb,5.1878e-02_jprb,&
 & 4.2350e-02_jprb,9.1870e-02_jprb,4.6781e-01_jprb/)  
kao( :, 4,13, 9) = (/&
 & 9.2057e-02_jprb,8.5864e-02_jprb,8.0053e-02_jprb,7.3650e-02_jprb,6.6361e-02_jprb,5.8175e-02_jprb,&
 & 4.8890e-02_jprb,9.2057e-02_jprb,4.6471e-01_jprb/)  
kao( :, 5,13, 9) = (/&
 & 9.2051e-02_jprb,8.8153e-02_jprb,8.4238e-02_jprb,7.8829e-02_jprb,7.2224e-02_jprb,6.4662e-02_jprb,&
 & 5.5790e-02_jprb,9.2051e-02_jprb,4.6177e-01_jprb/)  
kao( :, 1, 1,10) = (/&
 & 1.8970e-01_jprb,1.6722e-01_jprb,1.5940e-01_jprb,1.4654e-01_jprb,1.3412e-01_jprb,1.1990e-01_jprb,&
 & 1.0153e-01_jprb,1.8970e-01_jprb,1.2683e-01_jprb/)  
kao( :, 2, 1,10) = (/&
 & 1.9310e-01_jprb,1.7584e-01_jprb,1.7032e-01_jprb,1.6287e-01_jprb,1.5198e-01_jprb,1.3637e-01_jprb,&
 & 1.1338e-01_jprb,1.9310e-01_jprb,1.6492e-01_jprb/)  
kao( :, 3, 1,10) = (/&
 & 1.9644e-01_jprb,1.8616e-01_jprb,1.8463e-01_jprb,1.7853e-01_jprb,1.6686e-01_jprb,1.5307e-01_jprb,&
 & 1.3006e-01_jprb,1.9644e-01_jprb,2.0951e-01_jprb/)  
kao( :, 4, 1,10) = (/&
 & 1.9909e-01_jprb,1.9510e-01_jprb,1.9794e-01_jprb,1.9455e-01_jprb,1.8814e-01_jprb,1.6970e-01_jprb,&
 & 1.4049e-01_jprb,1.9909e-01_jprb,2.6023e-01_jprb/)  
kao( :, 5, 1,10) = (/&
 & 2.0141e-01_jprb,2.0423e-01_jprb,2.1198e-01_jprb,2.1359e-01_jprb,2.0320e-01_jprb,1.7839e-01_jprb,&
 & 1.6166e-01_jprb,2.0141e-01_jprb,3.1814e-01_jprb/)  
kao( :, 1, 2,10) = (/&
 & 1.8513e-01_jprb,1.6417e-01_jprb,1.5570e-01_jprb,1.4299e-01_jprb,1.3028e-01_jprb,1.1558e-01_jprb,&
 & 9.7575e-02_jprb,1.8513e-01_jprb,1.2033e-01_jprb/)  
kao( :, 2, 2,10) = (/&
 & 1.8950e-01_jprb,1.7381e-01_jprb,1.6710e-01_jprb,1.5962e-01_jprb,1.4697e-01_jprb,1.3061e-01_jprb,&
 & 1.0961e-01_jprb,1.8950e-01_jprb,1.5920e-01_jprb/)  
kao( :, 3, 2,10) = (/&
 & 1.9362e-01_jprb,1.8395e-01_jprb,1.8195e-01_jprb,1.7419e-01_jprb,1.6167e-01_jprb,1.4828e-01_jprb,&
 & 1.2568e-01_jprb,1.9362e-01_jprb,2.0282e-01_jprb/)  
kao( :, 4, 2,10) = (/&
 & 1.9721e-01_jprb,1.9348e-01_jprb,1.9530e-01_jprb,1.9112e-01_jprb,1.8284e-01_jprb,1.6500e-01_jprb,&
 & 1.3708e-01_jprb,1.9721e-01_jprb,2.5204e-01_jprb/)  
kao( :, 5, 2,10) = (/&
 & 2.0023e-01_jprb,2.0320e-01_jprb,2.1020e-01_jprb,2.0819e-01_jprb,1.9741e-01_jprb,1.7466e-01_jprb,&
 & 1.5343e-01_jprb,2.0023e-01_jprb,3.0808e-01_jprb/)  
kao( :, 1, 3,10) = (/&
 & 1.8001e-01_jprb,1.5918e-01_jprb,1.4957e-01_jprb,1.3634e-01_jprb,1.2400e-01_jprb,1.1052e-01_jprb,&
 & 9.3510e-02_jprb,1.8001e-01_jprb,1.0219e-01_jprb/)  
kao( :, 2, 3,10) = (/&
 & 1.8528e-01_jprb,1.6901e-01_jprb,1.6096e-01_jprb,1.5327e-01_jprb,1.4061e-01_jprb,1.2481e-01_jprb,&
 & 1.0682e-01_jprb,1.8528e-01_jprb,1.3773e-01_jprb/)  
kao( :, 3, 3,10) = (/&
 & 1.9023e-01_jprb,1.7929e-01_jprb,1.7582e-01_jprb,1.6700e-01_jprb,1.5430e-01_jprb,1.4161e-01_jprb,&
 & 1.2252e-01_jprb,1.9023e-01_jprb,1.7877e-01_jprb/)  
kao( :, 4, 3,10) = (/&
 & 1.9469e-01_jprb,1.8893e-01_jprb,1.8906e-01_jprb,1.8314e-01_jprb,1.7449e-01_jprb,1.5948e-01_jprb,&
 & 1.3408e-01_jprb,1.9469e-01_jprb,2.2723e-01_jprb/)  
kao( :, 5, 3,10) = (/&
 & 1.9821e-01_jprb,1.9946e-01_jprb,2.0415e-01_jprb,1.9922e-01_jprb,1.8972e-01_jprb,1.7229e-01_jprb,&
 & 1.5170e-01_jprb,1.9821e-01_jprb,2.8243e-01_jprb/)  
kao( :, 1, 4,10) = (/&
 & 1.7916e-01_jprb,1.5693e-01_jprb,1.4317e-01_jprb,1.2970e-01_jprb,1.1820e-01_jprb,1.0542e-01_jprb,&
 & 8.8810e-02_jprb,1.7916e-01_jprb,8.1629e-02_jprb/)  
kao( :, 2, 4,10) = (/&
 & 1.8393e-01_jprb,1.6496e-01_jprb,1.5408e-01_jprb,1.4656e-01_jprb,1.3470e-01_jprb,1.1968e-01_jprb,&
 & 1.0109e-01_jprb,1.8393e-01_jprb,1.1300e-01_jprb/)  
kao( :, 3, 4,10) = (/&
 & 1.8829e-01_jprb,1.7395e-01_jprb,1.6912e-01_jprb,1.6090e-01_jprb,1.4836e-01_jprb,1.3533e-01_jprb,&
 & 1.1688e-01_jprb,1.8829e-01_jprb,1.5011e-01_jprb/)  
kao( :, 4, 4,10) = (/&
 & 1.9238e-01_jprb,1.8364e-01_jprb,1.8242e-01_jprb,1.7617e-01_jprb,1.6761e-01_jprb,1.5430e-01_jprb,&
 & 1.3056e-01_jprb,1.9230e-01_jprb,1.9532e-01_jprb/)  
kao( :, 5, 4,10) = (/&
 & 1.9574e-01_jprb,1.9463e-01_jprb,1.9705e-01_jprb,1.9264e-01_jprb,1.8511e-01_jprb,1.7157e-01_jprb,&
 & 1.5145e-01_jprb,1.9574e-01_jprb,2.4701e-01_jprb/)  
kao( :, 1, 5,10) = (/&
 & 1.8797e-01_jprb,1.6453e-01_jprb,1.4533e-01_jprb,1.2686e-01_jprb,1.1219e-01_jprb,9.8719e-02_jprb,&
 & 8.1932e-02_jprb,1.8797e-01_jprb,6.5166e-02_jprb/)  
kao( :, 2, 5,10) = (/&
 & 1.9160e-01_jprb,1.6925e-01_jprb,1.5218e-01_jprb,1.4014e-01_jprb,1.2917e-01_jprb,1.1302e-01_jprb,&
 & 9.4480e-02_jprb,1.9160e-01_jprb,9.2077e-02_jprb/)  
kao( :, 3, 5,10) = (/&
 & 1.9446e-01_jprb,1.7578e-01_jprb,1.6402e-01_jprb,1.5506e-01_jprb,1.4235e-01_jprb,1.2780e-01_jprb,&
 & 1.1066e-01_jprb,1.9446e-01_jprb,1.2479e-01_jprb/)  
kao( :, 4, 5,10) = (/&
 & 1.9736e-01_jprb,1.8183e-01_jprb,1.7664e-01_jprb,1.6999e-01_jprb,1.6179e-01_jprb,1.4826e-01_jprb,&
 & 1.2816e-01_jprb,1.9736e-01_jprb,1.6346e-01_jprb/)  
kao( :, 5, 5,10) = (/&
 & 2.0011e-01_jprb,1.9074e-01_jprb,1.9082e-01_jprb,1.8829e-01_jprb,1.8080e-01_jprb,1.6858e-01_jprb,&
 & 1.5009e-01_jprb,2.0011e-01_jprb,2.0822e-01_jprb/)  
kao( :, 1, 6,10) = (/&
 & 2.0223e-01_jprb,1.7699e-01_jprb,1.5322e-01_jprb,1.3128e-01_jprb,1.1092e-01_jprb,9.1561e-02_jprb,&
 & 7.3661e-02_jprb,2.0223e-01_jprb,5.1377e-02_jprb/)  
kao( :, 2, 6,10) = (/&
 & 2.0512e-01_jprb,1.7967e-01_jprb,1.5788e-01_jprb,1.3938e-01_jprb,1.2268e-01_jprb,1.0543e-01_jprb,&
 & 8.7385e-02_jprb,2.0512e-01_jprb,7.3853e-02_jprb/)  
kao( :, 3, 6,10) = (/&
 & 2.0790e-01_jprb,1.8450e-01_jprb,1.6529e-01_jprb,1.5112e-01_jprb,1.3529e-01_jprb,1.2022e-01_jprb,&
 & 1.0398e-01_jprb,2.0790e-01_jprb,1.0087e-01_jprb/)  
kao( :, 4, 6,10) = (/&
 & 2.1004e-01_jprb,1.8823e-01_jprb,1.7509e-01_jprb,1.6284e-01_jprb,1.5386e-01_jprb,1.4155e-01_jprb,&
 & 1.2427e-01_jprb,2.1004e-01_jprb,1.3360e-01_jprb/)  
kao( :, 5, 6,10) = (/&
 & 2.1183e-01_jprb,1.9428e-01_jprb,1.8513e-01_jprb,1.8177e-01_jprb,1.7498e-01_jprb,1.6423e-01_jprb,&
 & 1.4704e-01_jprb,2.1183e-01_jprb,1.7178e-01_jprb/)  
kao( :, 1, 7,10) = (/&
 & 2.1966e-01_jprb,1.9223e-01_jprb,1.6487e-01_jprb,1.4075e-01_jprb,1.1743e-01_jprb,9.2352e-02_jprb,&
 & 6.7165e-02_jprb,2.1966e-01_jprb,3.9844e-02_jprb/)  
kao( :, 2, 7,10) = (/&
 & 2.2289e-01_jprb,1.9505e-01_jprb,1.7012e-01_jprb,1.4711e-01_jprb,1.2482e-01_jprb,1.0166e-01_jprb,&
 & 8.1116e-02_jprb,2.2289e-01_jprb,5.8803e-02_jprb/)  
kao( :, 3, 7,10) = (/&
 & 2.2562e-01_jprb,1.9918e-01_jprb,1.7558e-01_jprb,1.5579e-01_jprb,1.3361e-01_jprb,1.1381e-01_jprb,&
 & 9.8296e-02_jprb,2.2562e-01_jprb,8.2105e-02_jprb/)  
kao( :, 4, 7,10) = (/&
 & 2.2798e-01_jprb,2.0283e-01_jprb,1.8393e-01_jprb,1.6360e-01_jprb,1.4672e-01_jprb,1.3482e-01_jprb,&
 & 1.1942e-01_jprb,2.2798e-01_jprb,1.1013e-01_jprb/)  
kao( :, 5, 7,10) = (/&
 & 2.2965e-01_jprb,2.0713e-01_jprb,1.9045e-01_jprb,1.7711e-01_jprb,1.6890e-01_jprb,1.5875e-01_jprb,&
 & 1.4294e-01_jprb,2.2965e-01_jprb,1.4301e-01_jprb/)  
kao( :, 1, 8,10) = (/&
 & 2.3927e-01_jprb,2.0940e-01_jprb,1.7953e-01_jprb,1.5074e-01_jprb,1.2505e-01_jprb,9.7338e-02_jprb,&
 & 6.8761e-02_jprb,2.3927e-01_jprb,3.1572e-02_jprb/)  
kao( :, 2, 8,10) = (/&
 & 2.4243e-01_jprb,2.1216e-01_jprb,1.8359e-01_jprb,1.5756e-01_jprb,1.3069e-01_jprb,1.0456e-01_jprb,&
 & 7.7923e-02_jprb,2.4243e-01_jprb,4.5978e-02_jprb/)  
kao( :, 3, 8,10) = (/&
 & 2.4547e-01_jprb,2.1534e-01_jprb,1.8853e-01_jprb,1.6503e-01_jprb,1.3896e-01_jprb,1.1377e-01_jprb,&
 & 9.3425e-02_jprb,2.4547e-01_jprb,6.4381e-02_jprb/)  
kao( :, 4, 8,10) = (/&
 & 2.4802e-01_jprb,2.1966e-01_jprb,1.9648e-01_jprb,1.7197e-01_jprb,1.4872e-01_jprb,1.2967e-01_jprb,&
 & 1.1417e-01_jprb,2.4802e-01_jprb,8.7970e-02_jprb/)  
kao( :, 5, 8,10) = (/&
 & 2.4998e-01_jprb,2.2309e-01_jprb,2.0261e-01_jprb,1.8232e-01_jprb,1.6517e-01_jprb,1.5264e-01_jprb,&
 & 1.3834e-01_jprb,2.4998e-01_jprb,1.1639e-01_jprb/)  
kao( :, 1, 9,10) = (/&
 & 2.6148e-01_jprb,2.2882e-01_jprb,1.9618e-01_jprb,1.6370e-01_jprb,1.3448e-01_jprb,1.0395e-01_jprb,&
 & 7.1629e-02_jprb,2.6148e-01_jprb,2.8503e-02_jprb/)  
kao( :, 2, 9,10) = (/&
 & 2.6519e-01_jprb,2.3210e-01_jprb,1.9937e-01_jprb,1.7015e-01_jprb,1.3964e-01_jprb,1.0892e-01_jprb,&
 & 7.8889e-02_jprb,2.6519e-01_jprb,3.8008e-02_jprb/)  
kao( :, 3, 9,10) = (/&
 & 2.6824e-01_jprb,2.3478e-01_jprb,2.0449e-01_jprb,1.7562e-01_jprb,1.4652e-01_jprb,1.1674e-01_jprb,&
 & 9.2270e-02_jprb,2.6824e-01_jprb,5.2422e-02_jprb/)  
kao( :, 4, 9,10) = (/&
 & 2.7078e-01_jprb,2.3877e-01_jprb,2.1054e-01_jprb,1.8264e-01_jprb,1.5412e-01_jprb,1.3041e-01_jprb,&
 & 1.0749e-01_jprb,2.7078e-01_jprb,7.0338e-02_jprb/)  
kao( :, 5, 9,10) = (/&
 & 2.7264e-01_jprb,2.4161e-01_jprb,2.1662e-01_jprb,1.8978e-01_jprb,1.6860e-01_jprb,1.4804e-01_jprb,&
 & 1.3080e-01_jprb,2.7264e-01_jprb,9.2554e-02_jprb/)  
kao( :, 1,10,10) = (/&
 & 2.8201e-01_jprb,2.4678e-01_jprb,2.1156e-01_jprb,1.7638e-01_jprb,1.4352e-01_jprb,1.1084e-01_jprb,&
 & 7.6972e-02_jprb,2.8201e-01_jprb,1.2471e-01_jprb/)  
kao( :, 2,10,10) = (/&
 & 2.8576e-01_jprb,2.5006e-01_jprb,2.1438e-01_jprb,1.8231e-01_jprb,1.4961e-01_jprb,1.1549e-01_jprb,&
 & 8.2006e-02_jprb,2.8576e-01_jprb,1.2496e-01_jprb/)  
kao( :, 3,10,10) = (/&
 & 2.8893e-01_jprb,2.5286e-01_jprb,2.1949e-01_jprb,1.8787e-01_jprb,1.5551e-01_jprb,1.2228e-01_jprb,&
 & 9.3406e-02_jprb,2.8893e-01_jprb,1.2857e-01_jprb/)  
kao( :, 4,10,10) = (/&
 & 2.9143e-01_jprb,2.5653e-01_jprb,2.2518e-01_jprb,1.9466e-01_jprb,1.6197e-01_jprb,1.3409e-01_jprb,&
 & 1.0614e-01_jprb,2.9143e-01_jprb,1.3664e-01_jprb/)  
kao( :, 5,10,10) = (/&
 & 2.9269e-01_jprb,2.5878e-01_jprb,2.3097e-01_jprb,1.9967e-01_jprb,1.7426e-01_jprb,1.4933e-01_jprb,&
 & 1.2477e-01_jprb,2.9269e-01_jprb,1.4648e-01_jprb/)  
kao( :, 1,11,10) = (/&
 & 3.0003e-01_jprb,2.6255e-01_jprb,2.2506e-01_jprb,1.8819e-01_jprb,1.5371e-01_jprb,1.1851e-01_jprb,&
 & 8.1809e-02_jprb,3.0003e-01_jprb,3.1454e-01_jprb/)  
kao( :, 2,11,10) = (/&
 & 3.0324e-01_jprb,2.6535e-01_jprb,2.2775e-01_jprb,1.9448e-01_jprb,1.5903e-01_jprb,1.2292e-01_jprb,&
 & 8.8865e-02_jprb,3.0324e-01_jprb,3.0861e-01_jprb/)  
kao( :, 3,11,10) = (/&
 & 3.0493e-01_jprb,2.6686e-01_jprb,2.3266e-01_jprb,1.9918e-01_jprb,1.6490e-01_jprb,1.3153e-01_jprb,&
 & 1.0078e-01_jprb,3.0493e-01_jprb,3.0699e-01_jprb/)  
kao( :, 4,11,10) = (/&
 & 3.0577e-01_jprb,2.6940e-01_jprb,2.3789e-01_jprb,2.0495e-01_jprb,1.7338e-01_jprb,1.4467e-01_jprb,&
 & 1.1314e-01_jprb,3.0577e-01_jprb,3.1082e-01_jprb/)  
kao( :, 5,11,10) = (/&
 & 3.0551e-01_jprb,2.7044e-01_jprb,2.4227e-01_jprb,2.1229e-01_jprb,1.8801e-01_jprb,1.5979e-01_jprb,&
 & 1.3090e-01_jprb,3.0551e-01_jprb,3.1527e-01_jprb/)  
kao( :, 1,12,10) = (/&
 & 3.1134e-01_jprb,2.7243e-01_jprb,2.3354e-01_jprb,1.9639e-01_jprb,1.6090e-01_jprb,1.2387e-01_jprb,&
 & 8.6052e-02_jprb,3.1134e-01_jprb,5.2978e-01_jprb/)  
kao( :, 2,12,10) = (/&
 & 3.1359e-01_jprb,2.7441e-01_jprb,2.3677e-01_jprb,2.0238e-01_jprb,1.6552e-01_jprb,1.2901e-01_jprb,&
 & 9.5207e-02_jprb,3.1359e-01_jprb,5.2052e-01_jprb/)  
kao( :, 3,12,10) = (/&
 & 3.1415e-01_jprb,2.7537e-01_jprb,2.4122e-01_jprb,2.0715e-01_jprb,1.7193e-01_jprb,1.3997e-01_jprb,&
 & 1.0720e-01_jprb,3.1415e-01_jprb,5.1560e-01_jprb/)  
kao( :, 4,12,10) = (/&
 & 3.1372e-01_jprb,2.7678e-01_jprb,2.4609e-01_jprb,2.1256e-01_jprb,1.8335e-01_jprb,1.5322e-01_jprb,&
 & 1.2081e-01_jprb,3.1372e-01_jprb,5.1557e-01_jprb/)  
kao( :, 5,12,10) = (/&
 & 3.1239e-01_jprb,2.7822e-01_jprb,2.4956e-01_jprb,2.2367e-01_jprb,1.9838e-01_jprb,1.6937e-01_jprb,&
 & 1.3606e-01_jprb,3.1239e-01_jprb,5.1667e-01_jprb/)  
kao( :, 1,13,10) = (/&
 & 3.1638e-01_jprb,2.7683e-01_jprb,2.3750e-01_jprb,2.0114e-01_jprb,1.6456e-01_jprb,1.2632e-01_jprb,&
 & 8.9253e-02_jprb,3.1638e-01_jprb,7.3497e-01_jprb/)  
kao( :, 2,13,10) = (/&
 & 3.1671e-01_jprb,2.7713e-01_jprb,2.4097e-01_jprb,2.0542e-01_jprb,1.6866e-01_jprb,1.3347e-01_jprb,&
 & 9.9658e-02_jprb,3.1671e-01_jprb,7.1891e-01_jprb/)  
kao( :, 3,13,10) = (/&
 & 3.1659e-01_jprb,2.7824e-01_jprb,2.4448e-01_jprb,2.1048e-01_jprb,1.7715e-01_jprb,1.4549e-01_jprb,&
 & 1.1132e-01_jprb,3.1659e-01_jprb,7.1020e-01_jprb/)  
kao( :, 4,13,10) = (/&
 & 3.1484e-01_jprb,2.7845e-01_jprb,2.4849e-01_jprb,2.1796e-01_jprb,1.8948e-01_jprb,1.5955e-01_jprb,&
 & 1.2635e-01_jprb,3.1484e-01_jprb,7.0756e-01_jprb/)  
kao( :, 5,13,10) = (/&
 & 3.1186e-01_jprb,2.8054e-01_jprb,2.5362e-01_jprb,2.3086e-01_jprb,2.0496e-01_jprb,1.7512e-01_jprb,&
 & 1.4143e-01_jprb,3.1186e-01_jprb,7.0584e-01_jprb/)  
kao( :, 1, 1,11) = (/&
 & 3.1327e-01_jprb,2.7438e-01_jprb,2.3864e-01_jprb,2.1648e-01_jprb,1.8690e-01_jprb,1.5673e-01_jprb,&
 & 1.2734e-01_jprb,3.1327e-01_jprb,1.4986e-01_jprb/)  
kao( :, 2, 1,11) = (/&
 & 3.1392e-01_jprb,2.7491e-01_jprb,2.5200e-01_jprb,2.2734e-01_jprb,2.0303e-01_jprb,1.7541e-01_jprb,&
 & 1.4089e-01_jprb,3.1392e-01_jprb,1.9707e-01_jprb/)  
kao( :, 3, 1,11) = (/&
 & 3.1383e-01_jprb,2.7650e-01_jprb,2.6109e-01_jprb,2.4195e-01_jprb,2.1927e-01_jprb,1.8650e-01_jprb,&
 & 1.4955e-01_jprb,3.1383e-01_jprb,2.5159e-01_jprb/)  
kao( :, 4, 1,11) = (/&
 & 3.1272e-01_jprb,2.8403e-01_jprb,2.7223e-01_jprb,2.5585e-01_jprb,2.2854e-01_jprb,2.0092e-01_jprb,&
 & 1.8691e-01_jprb,3.1272e-01_jprb,3.1304e-01_jprb/)  
kao( :, 5, 1,11) = (/&
 & 3.1090e-01_jprb,2.8955e-01_jprb,2.8191e-01_jprb,2.6664e-01_jprb,2.4121e-01_jprb,2.1301e-01_jprb,&
 & 2.4137e-01_jprb,3.1090e-01_jprb,3.8118e-01_jprb/)  
kao( :, 1, 2,11) = (/&
 & 3.1324e-01_jprb,2.7422e-01_jprb,2.3920e-01_jprb,2.1500e-01_jprb,1.8495e-01_jprb,1.5528e-01_jprb,&
 & 1.2577e-01_jprb,3.1324e-01_jprb,1.5045e-01_jprb/)  
kao( :, 2, 2,11) = (/&
 & 3.1470e-01_jprb,2.7557e-01_jprb,2.5223e-01_jprb,2.2657e-01_jprb,2.0210e-01_jprb,1.7421e-01_jprb,&
 & 1.3837e-01_jprb,3.1470e-01_jprb,1.9866e-01_jprb/)  
kao( :, 3, 2,11) = (/&
 & 3.1536e-01_jprb,2.7926e-01_jprb,2.6141e-01_jprb,2.4214e-01_jprb,2.1888e-01_jprb,1.8478e-01_jprb,&
 & 1.5074e-01_jprb,3.1536e-01_jprb,2.5677e-01_jprb/)  
kao( :, 4, 2,11) = (/&
 & 3.1504e-01_jprb,2.8779e-01_jprb,2.7376e-01_jprb,2.5633e-01_jprb,2.2942e-01_jprb,1.9993e-01_jprb,&
 & 1.7112e-01_jprb,3.1504e-01_jprb,3.2302e-01_jprb/)  
kao( :, 5, 2,11) = (/&
 & 3.1381e-01_jprb,2.9324e-01_jprb,2.8519e-01_jprb,2.6951e-01_jprb,2.4055e-01_jprb,2.0793e-01_jprb,&
 & 2.1700e-01_jprb,3.1381e-01_jprb,3.9625e-01_jprb/)  
kao( :, 1, 3,11) = (/&
 & 3.1204e-01_jprb,2.7315e-01_jprb,2.3704e-01_jprb,2.1094e-01_jprb,1.7966e-01_jprb,1.4896e-01_jprb,&
 & 1.2013e-01_jprb,3.1204e-01_jprb,1.3758e-01_jprb/)  
kao( :, 2, 3,11) = (/&
 & 3.1466e-01_jprb,2.7547e-01_jprb,2.5029e-01_jprb,2.2183e-01_jprb,1.9651e-01_jprb,1.6912e-01_jprb,&
 & 1.3258e-01_jprb,3.1466e-01_jprb,1.8586e-01_jprb/)  
kao( :, 3, 3,11) = (/&
 & 3.1617e-01_jprb,2.7992e-01_jprb,2.5948e-01_jprb,2.3884e-01_jprb,2.1445e-01_jprb,1.8030e-01_jprb,&
 & 1.4450e-01_jprb,3.1617e-01_jprb,2.4266e-01_jprb/)  
kao( :, 4, 3,11) = (/&
 & 3.1681e-01_jprb,2.8890e-01_jprb,2.7221e-01_jprb,2.5334e-01_jprb,2.2580e-01_jprb,1.9471e-01_jprb,&
 & 1.5799e-01_jprb,3.1681e-01_jprb,3.0762e-01_jprb/)  
kao( :, 5, 3,11) = (/&
 & 3.1660e-01_jprb,2.9490e-01_jprb,2.8472e-01_jprb,2.6817e-01_jprb,2.3814e-01_jprb,2.0506e-01_jprb,&
 & 1.8418e-01_jprb,3.1660e-01_jprb,3.8162e-01_jprb/)  
kao( :, 1, 4,11) = (/&
 & 3.0866e-01_jprb,2.7016e-01_jprb,2.3341e-01_jprb,2.0592e-01_jprb,1.7365e-01_jprb,1.4152e-01_jprb,&
 & 1.1350e-01_jprb,3.0866e-01_jprb,1.1729e-01_jprb/)  
kao( :, 2, 4,11) = (/&
 & 3.1261e-01_jprb,2.7364e-01_jprb,2.4679e-01_jprb,2.1687e-01_jprb,1.8912e-01_jprb,1.6227e-01_jprb,&
 & 1.2877e-01_jprb,3.1261e-01_jprb,1.6263e-01_jprb/)  
kao( :, 3, 4,11) = (/&
 & 3.1517e-01_jprb,2.7866e-01_jprb,2.5633e-01_jprb,2.3322e-01_jprb,2.0818e-01_jprb,1.7524e-01_jprb,&
 & 1.4011e-01_jprb,3.1517e-01_jprb,2.1741e-01_jprb/)  
kao( :, 4, 4,11) = (/&
 & 3.1718e-01_jprb,2.8802e-01_jprb,2.6947e-01_jprb,2.4866e-01_jprb,2.2061e-01_jprb,1.8942e-01_jprb,&
 & 1.5695e-01_jprb,3.1727e-01_jprb,2.8012e-01_jprb/)  

IF (lhook) CALL dr_hook('RRTM_KGB4:PART7',1,zhook_handle)
END SUBROUTINE part7


SUBROUTINE part8

REAL(KIND=JPRB) :: ZHOOK_HANDLE
IF (lhook) CALL dr_hook('RRTM_KGB4:PART8',0,zhook_handle)


kao( :, 5, 4,11) = (/&
 & 3.1858e-01_jprb,2.9479e-01_jprb,2.8190e-01_jprb,2.6309e-01_jprb,2.3448e-01_jprb,2.0068e-01_jprb,&
 & 1.6930e-01_jprb,3.1858e-01_jprb,3.4979e-01_jprb/)  
kao( :, 1, 5,11) = (/&
 & 3.0359e-01_jprb,2.6572e-01_jprb,2.2874e-01_jprb,1.9974e-01_jprb,1.6826e-01_jprb,1.3653e-01_jprb,&
 & 1.0959e-01_jprb,3.0359e-01_jprb,9.5564e-02_jprb/)  
kao( :, 2, 5,11) = (/&
 & 3.0961e-01_jprb,2.7098e-01_jprb,2.4191e-01_jprb,2.1172e-01_jprb,1.8197e-01_jprb,1.5688e-01_jprb,&
 & 1.2682e-01_jprb,3.0961e-01_jprb,1.3546e-01_jprb/)  
kao( :, 3, 5,11) = (/&
 & 3.1431e-01_jprb,2.7737e-01_jprb,2.5231e-01_jprb,2.2743e-01_jprb,2.0217e-01_jprb,1.7268e-01_jprb,&
 & 1.3768e-01_jprb,3.1431e-01_jprb,1.8484e-01_jprb/)  
kao( :, 4, 5,11) = (/&
 & 3.1787e-01_jprb,2.8734e-01_jprb,2.6579e-01_jprb,2.4308e-01_jprb,2.1533e-01_jprb,1.8679e-01_jprb,&
 & 1.5347e-01_jprb,3.1787e-01_jprb,2.4315e-01_jprb/)  
kao( :, 5, 5,11) = (/&
 & 3.2027e-01_jprb,2.9468e-01_jprb,2.7870e-01_jprb,2.5695e-01_jprb,2.3189e-01_jprb,2.0016e-01_jprb,&
 & 1.6850e-01_jprb,3.2027e-01_jprb,3.1159e-01_jprb/)  
kao( :, 1, 6,11) = (/&
 & 2.9865e-01_jprb,2.6139e-01_jprb,2.2417e-01_jprb,1.9237e-01_jprb,1.6261e-01_jprb,1.3306e-01_jprb,&
 & 1.0402e-01_jprb,2.9865e-01_jprb,7.4728e-02_jprb/)  
kao( :, 2, 6,11) = (/&
 & 3.0619e-01_jprb,2.6800e-01_jprb,2.3652e-01_jprb,2.0579e-01_jprb,1.7684e-01_jprb,1.5168e-01_jprb,&
 & 1.2223e-01_jprb,3.0619e-01_jprb,1.0829e-01_jprb/)  
kao( :, 3, 6,11) = (/&
 & 3.1241e-01_jprb,2.7514e-01_jprb,2.4815e-01_jprb,2.2081e-01_jprb,1.9720e-01_jprb,1.6917e-01_jprb,&
 & 1.3396e-01_jprb,3.1241e-01_jprb,1.5151e-01_jprb/)  
kao( :, 4, 6,11) = (/&
 & 3.1661e-01_jprb,2.8538e-01_jprb,2.6104e-01_jprb,2.3841e-01_jprb,2.1165e-01_jprb,1.8243e-01_jprb,&
 & 1.4887e-01_jprb,3.1661e-01_jprb,2.0348e-01_jprb/)  
kao( :, 5, 6,11) = (/&
 & 3.2000e-01_jprb,2.9293e-01_jprb,2.7479e-01_jprb,2.5146e-01_jprb,2.2881e-01_jprb,1.9893e-01_jprb,&
 & 1.6745e-01_jprb,3.2000e-01_jprb,2.6520e-01_jprb/)  
kao( :, 1, 7,11) = (/&
 & 3.0081e-01_jprb,2.6324e-01_jprb,2.2567e-01_jprb,1.8947e-01_jprb,1.5824e-01_jprb,1.2934e-01_jprb,&
 & 9.9139e-02_jprb,3.0081e-01_jprb,5.8236e-02_jprb/)  
kao( :, 2, 7,11) = (/&
 & 3.0785e-01_jprb,2.6938e-01_jprb,2.3362e-01_jprb,2.0225e-01_jprb,1.7197e-01_jprb,1.4526e-01_jprb,&
 & 1.1606e-01_jprb,3.0785e-01_jprb,8.6143e-02_jprb/)  
kao( :, 3, 7,11) = (/&
 & 3.1355e-01_jprb,2.7471e-01_jprb,2.4475e-01_jprb,2.1558e-01_jprb,1.9203e-01_jprb,1.6359e-01_jprb,&
 & 1.2884e-01_jprb,3.1355e-01_jprb,1.2279e-01_jprb/)  
kao( :, 4, 7,11) = (/&
 & 3.1773e-01_jprb,2.8339e-01_jprb,2.5534e-01_jprb,2.3396e-01_jprb,2.0755e-01_jprb,1.7658e-01_jprb,&
 & 1.4450e-01_jprb,3.1773e-01_jprb,1.6752e-01_jprb/)  
kao( :, 5, 7,11) = (/&
 & 3.2073e-01_jprb,2.9018e-01_jprb,2.6952e-01_jprb,2.4697e-01_jprb,2.2381e-01_jprb,1.9623e-01_jprb,&
 & 1.6582e-01_jprb,3.2073e-01_jprb,2.2165e-01_jprb/)  
kao( :, 1, 8,11) = (/&
 & 3.1629e-01_jprb,2.7676e-01_jprb,2.3728e-01_jprb,1.9776e-01_jprb,1.6109e-01_jprb,1.2901e-01_jprb,&
 & 9.4699e-02_jprb,3.1629e-01_jprb,4.5300e-02_jprb/)  
kao( :, 2, 8,11) = (/&
 & 3.2227e-01_jprb,2.8203e-01_jprb,2.4214e-01_jprb,2.0636e-01_jprb,1.7262e-01_jprb,1.4016e-01_jprb,&
 & 1.0877e-01_jprb,3.2227e-01_jprb,6.8853e-02_jprb/)  
kao( :, 3, 8,11) = (/&
 & 3.2688e-01_jprb,2.8607e-01_jprb,2.5069e-01_jprb,2.1556e-01_jprb,1.8748e-01_jprb,1.5661e-01_jprb,&
 & 1.2299e-01_jprb,3.2688e-01_jprb,1.0018e-01_jprb/)  
kao( :, 4, 8,11) = (/&
 & 3.2981e-01_jprb,2.9140e-01_jprb,2.5712e-01_jprb,2.3078e-01_jprb,2.0158e-01_jprb,1.7058e-01_jprb,&
 & 1.4006e-01_jprb,3.2981e-01_jprb,1.3838e-01_jprb/)  
kao( :, 5, 8,11) = (/&
 & 3.3188e-01_jprb,2.9618e-01_jprb,2.6784e-01_jprb,2.4209e-01_jprb,2.1696e-01_jprb,1.9240e-01_jprb,&
 & 1.6480e-01_jprb,3.3188e-01_jprb,1.8388e-01_jprb/)  
kao( :, 1, 9,11) = (/&
 & 3.4054e-01_jprb,2.9798e-01_jprb,2.5543e-01_jprb,2.1287e-01_jprb,1.7079e-01_jprb,1.3421e-01_jprb,&
 & 9.5710e-02_jprb,3.4054e-01_jprb,3.8236e-02_jprb/)  
kao( :, 2, 9,11) = (/&
 & 3.4633e-01_jprb,3.0305e-01_jprb,2.5976e-01_jprb,2.1890e-01_jprb,1.8147e-01_jprb,1.4225e-01_jprb,&
 & 1.0350e-01_jprb,3.4633e-01_jprb,5.6238e-02_jprb/)  
kao( :, 3, 9,11) = (/&
 & 3.5037e-01_jprb,3.0657e-01_jprb,2.6602e-01_jprb,2.2678e-01_jprb,1.8994e-01_jprb,1.5344e-01_jprb,&
 & 1.1667e-01_jprb,3.5037e-01_jprb,8.1743e-02_jprb/)  
kao( :, 4, 9,11) = (/&
 & 3.5228e-01_jprb,3.0944e-01_jprb,2.6992e-01_jprb,2.3660e-01_jprb,2.0123e-01_jprb,1.6487e-01_jprb,&
 & 1.3602e-01_jprb,3.5228e-01_jprb,1.1413e-01_jprb/)  
kao( :, 5, 9,11) = (/&
 & 3.5225e-01_jprb,3.1211e-01_jprb,2.7731e-01_jprb,2.4493e-01_jprb,2.1160e-01_jprb,1.8738e-01_jprb,&
 & 1.6276e-01_jprb,3.5225e-01_jprb,1.5348e-01_jprb/)  
kao( :, 1,10,11) = (/&
 & 3.6852e-01_jprb,3.2247e-01_jprb,2.7644e-01_jprb,2.3039e-01_jprb,1.8448e-01_jprb,1.4188e-01_jprb,&
 & 9.9757e-02_jprb,3.6852e-01_jprb,1.4040e-01_jprb/)  
kao( :, 2,10,11) = (/&
 & 3.7315e-01_jprb,3.2652e-01_jprb,2.7989e-01_jprb,2.3366e-01_jprb,1.9261e-01_jprb,1.5003e-01_jprb,&
 & 1.0586e-01_jprb,3.7315e-01_jprb,1.4526e-01_jprb/)  
kao( :, 3,10,11) = (/&
 & 3.7571e-01_jprb,3.2878e-01_jprb,2.8366e-01_jprb,2.4104e-01_jprb,1.9987e-01_jprb,1.5820e-01_jprb,&
 & 1.1578e-01_jprb,3.7571e-01_jprb,1.5497e-01_jprb/)  
kao( :, 4,10,11) = (/&
 & 3.7705e-01_jprb,3.3024e-01_jprb,2.8735e-01_jprb,2.4933e-01_jprb,2.0907e-01_jprb,1.6748e-01_jprb,&
 & 1.3413e-01_jprb,3.7705e-01_jprb,1.6746e-01_jprb/)  
kao( :, 5,10,11) = (/&
 & 3.7628e-01_jprb,3.3247e-01_jprb,2.9343e-01_jprb,2.5663e-01_jprb,2.1748e-01_jprb,1.8673e-01_jprb,&
 & 1.6058e-01_jprb,3.7628e-01_jprb,1.8275e-01_jprb/)  
kao( :, 1,11,11) = (/&
 & 4.0038e-01_jprb,3.5035e-01_jprb,3.0034e-01_jprb,2.5030e-01_jprb,2.0116e-01_jprb,1.5522e-01_jprb,&
 & 1.0823e-01_jprb,4.0038e-01_jprb,3.5490e-01_jprb/)  
kao( :, 2,11,11) = (/&
 & 4.0396e-01_jprb,3.5350e-01_jprb,3.0301e-01_jprb,2.5425e-01_jprb,2.0946e-01_jprb,1.6195e-01_jprb,&
 & 1.1374e-01_jprb,4.0396e-01_jprb,3.4856e-01_jprb/)  
kao( :, 3,11,11) = (/&
 & 4.0565e-01_jprb,3.5496e-01_jprb,3.0665e-01_jprb,2.6112e-01_jprb,2.1551e-01_jprb,1.6958e-01_jprb,&
 & 1.2572e-01_jprb,4.0565e-01_jprb,3.5076e-01_jprb/)  
kao( :, 4,11,11) = (/&
 & 4.0558e-01_jprb,3.5595e-01_jprb,3.0938e-01_jprb,2.6840e-01_jprb,2.2301e-01_jprb,1.8046e-01_jprb,&
 & 1.4403e-01_jprb,4.0558e-01_jprb,3.5722e-01_jprb/)  
kao( :, 5,11,11) = (/&
 & 4.0446e-01_jprb,3.5712e-01_jprb,3.1553e-01_jprb,2.7323e-01_jprb,2.3366e-01_jprb,2.0210e-01_jprb,&
 & 1.6875e-01_jprb,4.0446e-01_jprb,3.6719e-01_jprb/)  
kao( :, 1,12,11) = (/&
 & 4.3154e-01_jprb,3.7764e-01_jprb,3.2370e-01_jprb,2.6981e-01_jprb,2.1804e-01_jprb,1.6850e-01_jprb,&
 & 1.1669e-01_jprb,4.3154e-01_jprb,6.0134e-01_jprb/)  
kao( :, 2,12,11) = (/&
 & 4.3374e-01_jprb,3.7956e-01_jprb,3.2536e-01_jprb,2.7466e-01_jprb,2.2555e-01_jprb,1.7385e-01_jprb,&
 & 1.2290e-01_jprb,4.3374e-01_jprb,5.8479e-01_jprb/)  
kao( :, 3,12,11) = (/&
 & 4.3331e-01_jprb,3.7916e-01_jprb,3.2808e-01_jprb,2.8000e-01_jprb,2.3156e-01_jprb,1.8166e-01_jprb,&
 & 1.3630e-01_jprb,4.3331e-01_jprb,5.7701e-01_jprb/)  
kao( :, 4,12,11) = (/&
 & 4.3216e-01_jprb,3.8009e-01_jprb,3.3136e-01_jprb,2.8692e-01_jprb,2.3835e-01_jprb,1.9569e-01_jprb,&
 & 1.5406e-01_jprb,4.3216e-01_jprb,5.7788e-01_jprb/)  
kao( :, 5,12,11) = (/&
 & 4.2924e-01_jprb,3.7929e-01_jprb,3.3644e-01_jprb,2.9162e-01_jprb,2.5358e-01_jprb,2.1598e-01_jprb,&
 & 1.7801e-01_jprb,4.2924e-01_jprb,5.8590e-01_jprb/)  
kao( :, 1,13,11) = (/&
 & 4.5507e-01_jprb,3.9820e-01_jprb,3.4134e-01_jprb,2.8486e-01_jprb,2.3199e-01_jprb,1.7908e-01_jprb,&
 & 1.2378e-01_jprb,4.5507e-01_jprb,8.3466e-01_jprb/)  
kao( :, 2,13,11) = (/&
 & 4.5560e-01_jprb,3.9865e-01_jprb,3.4207e-01_jprb,2.9076e-01_jprb,2.3824e-01_jprb,1.8413e-01_jprb,&
 & 1.3231e-01_jprb,4.5560e-01_jprb,8.1743e-01_jprb/)  
kao( :, 3,13,11) = (/&
 & 4.5408e-01_jprb,3.9738e-01_jprb,3.4508e-01_jprb,2.9494e-01_jprb,2.4447e-01_jprb,1.9400e-01_jprb,&
 & 1.4658e-01_jprb,4.5408e-01_jprb,8.0395e-01_jprb/)  
kao( :, 4,13,11) = (/&
 & 4.5061e-01_jprb,3.9693e-01_jprb,3.4841e-01_jprb,3.0086e-01_jprb,2.5386e-01_jprb,2.0976e-01_jprb,&
 & 1.6407e-01_jprb,4.5061e-01_jprb,8.0112e-01_jprb/)  
kao( :, 5,13,11) = (/&
 & 4.4632e-01_jprb,3.9509e-01_jprb,3.5179e-01_jprb,3.0910e-01_jprb,2.7153e-01_jprb,2.3030e-01_jprb,&
 & 1.8645e-01_jprb,4.4632e-01_jprb,8.0445e-01_jprb/)  
kao( :, 1, 1,12) = (/&
 & 4.5134e-01_jprb,3.9508e-01_jprb,3.3890e-01_jprb,2.8825e-01_jprb,2.4778e-01_jprb,1.9924e-01_jprb,&
 & 1.4875e-01_jprb,4.5134e-01_jprb,1.8824e-01_jprb/)  
kao( :, 2, 1,12) = (/&
 & 4.4302e-01_jprb,3.8780e-01_jprb,3.3477e-01_jprb,2.9793e-01_jprb,2.5163e-01_jprb,2.0880e-01_jprb,&
 & 1.6421e-01_jprb,4.4302e-01_jprb,2.4393e-01_jprb/)  
kao( :, 3, 1,12) = (/&
 & 4.3442e-01_jprb,3.8027e-01_jprb,3.4110e-01_jprb,2.9993e-01_jprb,2.6022e-01_jprb,2.1949e-01_jprb,&
 & 2.0337e-01_jprb,4.3442e-01_jprb,3.1211e-01_jprb/)  
kao( :, 4, 1,12) = (/&
 & 4.2548e-01_jprb,3.7248e-01_jprb,3.4001e-01_jprb,3.0363e-01_jprb,2.6872e-01_jprb,2.3529e-01_jprb,&
 & 2.6208e-01_jprb,4.2548e-01_jprb,4.0218e-01_jprb/)  
kao( :, 5, 1,12) = (/&
 & 4.1637e-01_jprb,3.7184e-01_jprb,3.3956e-01_jprb,3.0702e-01_jprb,2.7666e-01_jprb,3.0048e-01_jprb,&
 & 3.3370e-01_jprb,4.1637e-01_jprb,5.1810e-01_jprb/)  
kao( :, 1, 2,12) = (/&
 & 4.5993e-01_jprb,4.0257e-01_jprb,3.4522e-01_jprb,2.9460e-01_jprb,2.5120e-01_jprb,2.0075e-01_jprb,&
 & 1.4994e-01_jprb,4.5993e-01_jprb,1.8380e-01_jprb/)  
kao( :, 2, 2,12) = (/&
 & 4.5214e-01_jprb,3.9569e-01_jprb,3.4306e-01_jprb,3.0314e-01_jprb,2.5542e-01_jprb,2.1170e-01_jprb,&
 & 1.6517e-01_jprb,4.5214e-01_jprb,2.4302e-01_jprb/)  
kao( :, 3, 2,12) = (/&
 & 4.4392e-01_jprb,3.8859e-01_jprb,3.4836e-01_jprb,3.0544e-01_jprb,2.6499e-01_jprb,2.2418e-01_jprb,&
 & 1.8731e-01_jprb,4.4392e-01_jprb,3.1300e-01_jprb/)  
kao( :, 4, 2,12) = (/&
 & 4.3542e-01_jprb,3.8194e-01_jprb,3.4769e-01_jprb,3.0985e-01_jprb,2.7291e-01_jprb,2.3160e-01_jprb,&
 & 2.4758e-01_jprb,4.3542e-01_jprb,3.9636e-01_jprb/)  
kao( :, 5, 2,12) = (/&
 & 4.2659e-01_jprb,3.8102e-01_jprb,3.4597e-01_jprb,3.1267e-01_jprb,2.8101e-01_jprb,2.8559e-01_jprb,&
 & 3.2264e-01_jprb,4.2659e-01_jprb,5.0187e-01_jprb/)  
kao( :, 1, 3,12) = (/&
 & 4.6833e-01_jprb,4.0988e-01_jprb,3.5146e-01_jprb,2.9725e-01_jprb,2.5255e-01_jprb,2.0071e-01_jprb,&
 & 1.4658e-01_jprb,4.6833e-01_jprb,1.7493e-01_jprb/)  
kao( :, 2, 3,12) = (/&
 & 4.6121e-01_jprb,4.0366e-01_jprb,3.4878e-01_jprb,3.0682e-01_jprb,2.5668e-01_jprb,2.1030e-01_jprb,&
 & 1.6556e-01_jprb,4.6121e-01_jprb,2.3373e-01_jprb/)  
kao( :, 3, 3,12) = (/&
 & 4.5378e-01_jprb,3.9716e-01_jprb,3.5415e-01_jprb,3.0895e-01_jprb,2.6677e-01_jprb,2.2483e-01_jprb,&
 & 1.7374e-01_jprb,4.5378e-01_jprb,3.0656e-01_jprb/)  
kao( :, 4, 3,12) = (/&
 & 4.4576e-01_jprb,3.9132e-01_jprb,3.5375e-01_jprb,3.1409e-01_jprb,2.7473e-01_jprb,2.3114e-01_jprb,&
 & 2.1677e-01_jprb,4.4576e-01_jprb,3.9296e-01_jprb/)  
kao( :, 5, 3,12) = (/&
 & 4.3705e-01_jprb,3.9046e-01_jprb,3.5326e-01_jprb,3.1679e-01_jprb,2.8502e-01_jprb,2.5712e-01_jprb,&
 & 2.8930e-01_jprb,4.3705e-01_jprb,4.9026e-01_jprb/)  
kao( :, 1, 4,12) = (/&
 & 4.7595e-01_jprb,4.1655e-01_jprb,3.5714e-01_jprb,2.9920e-01_jprb,2.5213e-01_jprb,1.9982e-01_jprb,&
 & 1.4381e-01_jprb,4.7595e-01_jprb,1.5872e-01_jprb/)  
kao( :, 2, 4,12) = (/&
 & 4.7033e-01_jprb,4.1161e-01_jprb,3.5414e-01_jprb,3.0922e-01_jprb,2.5846e-01_jprb,2.0731e-01_jprb,&
 & 1.6215e-01_jprb,4.7033e-01_jprb,2.1800e-01_jprb/)  
kao( :, 3, 4,12) = (/&
 & 4.6352e-01_jprb,4.0565e-01_jprb,3.5971e-01_jprb,3.1204e-01_jprb,2.6678e-01_jprb,2.2292e-01_jprb,&
 & 1.7122e-01_jprb,4.6352e-01_jprb,2.9018e-01_jprb/)  
kao( :, 4, 4,12) = (/&
 & 4.5585e-01_jprb,4.0027e-01_jprb,3.5920e-01_jprb,3.1814e-01_jprb,2.7571e-01_jprb,2.2988e-01_jprb,&
 & 1.8807e-01_jprb,4.5585e-01_jprb,3.7615e-01_jprb/)  
kao( :, 5, 4,12) = (/&
 & 4.4747e-01_jprb,3.9994e-01_jprb,3.6045e-01_jprb,3.2102e-01_jprb,2.8482e-01_jprb,2.4194e-01_jprb,&
 & 2.4872e-01_jprb,4.4747e-01_jprb,4.7733e-01_jprb/)  
kao( :, 1, 5,12) = (/&
 & 4.8332e-01_jprb,4.2296e-01_jprb,3.6260e-01_jprb,3.0235e-01_jprb,2.5042e-01_jprb,1.9864e-01_jprb,&
 & 1.4130e-01_jprb,4.8332e-01_jprb,1.3745e-01_jprb/)  
kao( :, 2, 5,12) = (/&
 & 4.7867e-01_jprb,4.1890e-01_jprb,3.5947e-01_jprb,3.1127e-01_jprb,2.5927e-01_jprb,2.0493e-01_jprb,&
 & 1.5750e-01_jprb,4.7867e-01_jprb,1.9596e-01_jprb/)  
kao( :, 3, 5,12) = (/&
 & 4.7259e-01_jprb,4.1358e-01_jprb,3.6520e-01_jprb,3.1459e-01_jprb,2.6723e-01_jprb,2.2048e-01_jprb,&
 & 1.7032e-01_jprb,4.7259e-01_jprb,2.6742e-01_jprb/)  
kao( :, 4, 5,12) = (/&
 & 4.6538e-01_jprb,4.0850e-01_jprb,3.6518e-01_jprb,3.2176e-01_jprb,2.7688e-01_jprb,2.2777e-01_jprb,&
 & 1.8088e-01_jprb,4.6538e-01_jprb,3.5196e-01_jprb/)  
kao( :, 5, 5,12) = (/&
 & 4.5769e-01_jprb,4.0896e-01_jprb,3.6726e-01_jprb,3.2571e-01_jprb,2.8321e-01_jprb,2.4098e-01_jprb,&
 & 2.1462e-01_jprb,4.5769e-01_jprb,4.5123e-01_jprb/)  
kao( :, 1, 6,12) = (/&
 & 4.8993e-01_jprb,4.2877e-01_jprb,3.6756e-01_jprb,3.0637e-01_jprb,2.4861e-01_jprb,1.9592e-01_jprb,&
 & 1.4097e-01_jprb,4.8993e-01_jprb,1.1309e-01_jprb/)  
kao( :, 2, 6,12) = (/&
 & 4.8623e-01_jprb,4.2551e-01_jprb,3.6480e-01_jprb,3.1259e-01_jprb,2.5937e-01_jprb,2.0293e-01_jprb,&
 & 1.5359e-01_jprb,4.8623e-01_jprb,1.6654e-01_jprb/)  
kao( :, 3, 6,12) = (/&
 & 4.8158e-01_jprb,4.2145e-01_jprb,3.6981e-01_jprb,3.1811e-01_jprb,2.6579e-01_jprb,2.1805e-01_jprb,&
 & 1.7034e-01_jprb,4.8158e-01_jprb,2.3416e-01_jprb/)  
kao( :, 4, 6,12) = (/&
 & 4.7580e-01_jprb,4.1675e-01_jprb,3.7108e-01_jprb,3.2456e-01_jprb,2.7803e-01_jprb,2.2833e-01_jprb,&
 & 1.8066e-01_jprb,4.7580e-01_jprb,3.1607e-01_jprb/)  
kao( :, 5, 6,12) = (/&
 & 4.6758e-01_jprb,4.1652e-01_jprb,3.7367e-01_jprb,3.3147e-01_jprb,2.8380e-01_jprb,2.4223e-01_jprb,&
 & 1.9841e-01_jprb,4.6758e-01_jprb,4.1181e-01_jprb/)  
kao( :, 1, 7,12) = (/&
 & 4.9556e-01_jprb,4.3365e-01_jprb,3.7175e-01_jprb,3.0985e-01_jprb,2.4854e-01_jprb,1.9277e-01_jprb,&
 & 1.4013e-01_jprb,4.9556e-01_jprb,8.9473e-02_jprb/)  
kao( :, 2, 7,12) = (/&
 & 4.9363e-01_jprb,4.3195e-01_jprb,3.7029e-01_jprb,3.1256e-01_jprb,2.5963e-01_jprb,2.0328e-01_jprb,&
 & 1.5194e-01_jprb,4.9363e-01_jprb,1.3619e-01_jprb/)  
kao( :, 3, 7,12) = (/&
 & 4.8988e-01_jprb,4.2866e-01_jprb,3.7265e-01_jprb,3.2073e-01_jprb,2.6549e-01_jprb,2.1787e-01_jprb,&
 & 1.7010e-01_jprb,4.8988e-01_jprb,1.9644e-01_jprb/)  
kao( :, 4, 7,12) = (/&
 & 4.8356e-01_jprb,4.2335e-01_jprb,3.7640e-01_jprb,3.2648e-01_jprb,2.8045e-01_jprb,2.3190e-01_jprb,&
 & 1.7955e-01_jprb,4.8356e-01_jprb,2.7163e-01_jprb/)  
kao( :, 5, 7,12) = (/&
 & 4.7613e-01_jprb,4.2343e-01_jprb,3.7941e-01_jprb,3.3677e-01_jprb,2.8839e-01_jprb,2.4416e-01_jprb,&
 & 1.9240e-01_jprb,4.7613e-01_jprb,3.6146e-01_jprb/)  
kao( :, 1, 8,12) = (/&
 & 4.9952e-01_jprb,4.3713e-01_jprb,3.7469e-01_jprb,3.1228e-01_jprb,2.4992e-01_jprb,1.8992e-01_jprb,&
 & 1.3910e-01_jprb,4.9952e-01_jprb,7.0068e-02_jprb/)  
kao( :, 2, 8,12) = (/&
 & 4.9876e-01_jprb,4.3647e-01_jprb,3.7415e-01_jprb,3.1359e-01_jprb,2.5898e-01_jprb,2.0365e-01_jprb,&
 & 1.5225e-01_jprb,4.9876e-01_jprb,1.0911e-01_jprb/)  
kao( :, 3, 8,12) = (/&
 & 4.9561e-01_jprb,4.3367e-01_jprb,3.7478e-01_jprb,3.2253e-01_jprb,2.6652e-01_jprb,2.1802e-01_jprb,&
 & 1.6931e-01_jprb,4.9561e-01_jprb,1.6065e-01_jprb/)  
kao( :, 4, 8,12) = (/&
 & 4.9132e-01_jprb,4.2995e-01_jprb,3.8056e-01_jprb,3.2825e-01_jprb,2.8313e-01_jprb,2.3561e-01_jprb,&
 & 1.7963e-01_jprb,4.9132e-01_jprb,2.2657e-01_jprb/)  
kao( :, 5, 8,12) = (/&
 & 4.8493e-01_jprb,4.3037e-01_jprb,3.8392e-01_jprb,3.3999e-01_jprb,2.9506e-01_jprb,2.4592e-01_jprb,&
 & 1.9305e-01_jprb,4.8493e-01_jprb,3.0798e-01_jprb/)  
kao( :, 1, 9,12) = (/&
 & 5.0297e-01_jprb,4.4011e-01_jprb,3.7727e-01_jprb,3.1445e-01_jprb,2.5164e-01_jprb,1.8923e-01_jprb,&
 & 1.3630e-01_jprb,5.0297e-01_jprb,5.5928e-02_jprb/)  
kao( :, 2, 9,12) = (/&
 & 5.0280e-01_jprb,4.3999e-01_jprb,3.7719e-01_jprb,3.1439e-01_jprb,2.5596e-01_jprb,2.0387e-01_jprb,&
 & 1.5194e-01_jprb,5.0280e-01_jprb,8.7259e-02_jprb/)  
kao( :, 3, 9,12) = (/&
 & 5.0165e-01_jprb,4.3899e-01_jprb,3.7733e-01_jprb,3.2316e-01_jprb,2.6815e-01_jprb,2.1765e-01_jprb,&
 & 1.6729e-01_jprb,5.0165e-01_jprb,1.3032e-01_jprb/)  
kao( :, 4, 9,12) = (/&
 & 4.9775e-01_jprb,4.3558e-01_jprb,3.8325e-01_jprb,3.2898e-01_jprb,2.8348e-01_jprb,2.3696e-01_jprb,&
 & 1.7992e-01_jprb,4.9775e-01_jprb,1.8697e-01_jprb/)  
kao( :, 5, 9,12) = (/&
 & 4.9256e-01_jprb,4.3533e-01_jprb,3.8600e-01_jprb,3.4285e-01_jprb,2.9917e-01_jprb,2.4757e-01_jprb,&
 & 1.9469e-01_jprb,4.9256e-01_jprb,2.5776e-01_jprb/)  
kao( :, 1,10,12) = (/&
 & 5.1773e-01_jprb,4.5305e-01_jprb,3.8832e-01_jprb,3.2361e-01_jprb,2.5894e-01_jprb,1.9444e-01_jprb,&
 & 1.3626e-01_jprb,5.1773e-01_jprb,1.7143e-01_jprb/)  
kao( :, 2,10,12) = (/&
 & 5.2014e-01_jprb,4.5518e-01_jprb,3.9014e-01_jprb,3.2511e-01_jprb,2.6137e-01_jprb,2.0558e-01_jprb,&
 & 1.5091e-01_jprb,5.2014e-01_jprb,1.7878e-01_jprb/)  
kao( :, 3,10,12) = (/&
 & 5.1859e-01_jprb,4.5376e-01_jprb,3.8899e-01_jprb,3.2977e-01_jprb,2.7178e-01_jprb,2.1806e-01_jprb,&
 & 1.6450e-01_jprb,5.1859e-01_jprb,1.8778e-01_jprb/)  
kao( :, 4,10,12) = (/&
 & 5.1464e-01_jprb,4.5036e-01_jprb,3.9278e-01_jprb,3.3429e-01_jprb,2.8520e-01_jprb,2.3593e-01_jprb,&
 & 1.7923e-01_jprb,5.1464e-01_jprb,2.0686e-01_jprb/)  
kao( :, 5,10,12) = (/&
 & 5.1018e-01_jprb,4.4905e-01_jprb,3.9440e-01_jprb,3.4703e-01_jprb,3.0026e-01_jprb,2.4817e-01_jprb,&
 & 1.9727e-01_jprb,5.1018e-01_jprb,2.4342e-01_jprb/)  
kao( :, 1,11,12) = (/&
 & 5.4832e-01_jprb,4.7977e-01_jprb,4.1126e-01_jprb,3.4274e-01_jprb,2.7420e-01_jprb,2.0703e-01_jprb,&
 & 1.4636e-01_jprb,5.4832e-01_jprb,4.2229e-01_jprb/)  

IF (lhook) CALL dr_hook('RRTM_KGB4:PART8',1,zhook_handle)
END SUBROUTINE part8


SUBROUTINE part9

REAL(KIND=JPRB) :: ZHOOK_HANDLE
IF (lhook) CALL dr_hook('RRTM_KGB4:PART9',0,zhook_handle)


kao( :, 2,11,12) = (/&
 & 5.4890e-01_jprb,4.8029e-01_jprb,4.1169e-01_jprb,3.4308e-01_jprb,2.7803e-01_jprb,2.1902e-01_jprb,&
 & 1.5675e-01_jprb,5.4890e-01_jprb,4.1304e-01_jprb/)  
kao( :, 3,11,12) = (/&
 & 5.4760e-01_jprb,4.7912e-01_jprb,4.1148e-01_jprb,3.4845e-01_jprb,2.8802e-01_jprb,2.2864e-01_jprb,&
 & 1.6957e-01_jprb,5.4760e-01_jprb,4.1866e-01_jprb/)  
kao( :, 4,11,12) = (/&
 & 5.4451e-01_jprb,4.7646e-01_jprb,4.1466e-01_jprb,3.5324e-01_jprb,3.0043e-01_jprb,2.4253e-01_jprb,&
 & 1.8588e-01_jprb,5.4451e-01_jprb,4.2963e-01_jprb/)  
kao( :, 5,11,12) = (/&
 & 5.3844e-01_jprb,4.7499e-01_jprb,4.1514e-01_jprb,3.6472e-01_jprb,3.0977e-01_jprb,2.5655e-01_jprb,&
 & 2.1387e-01_jprb,5.3844e-01_jprb,4.4513e-01_jprb/)  
kao( :, 1,12,12) = (/&
 & 5.9065e-01_jprb,5.1684e-01_jprb,4.4304e-01_jprb,3.6914e-01_jprb,2.9536e-01_jprb,2.2452e-01_jprb,&
 & 1.5812e-01_jprb,5.9065e-01_jprb,7.0088e-01_jprb/)  
kao( :, 2,12,12) = (/&
 & 5.8872e-01_jprb,5.1516e-01_jprb,4.4157e-01_jprb,3.6818e-01_jprb,3.0050e-01_jprb,2.3470e-01_jprb,&
 & 1.6533e-01_jprb,5.8872e-01_jprb,6.8724e-01_jprb/)  
kao( :, 3,12,12) = (/&
 & 5.8657e-01_jprb,5.1328e-01_jprb,4.4183e-01_jprb,3.7357e-01_jprb,3.0883e-01_jprb,2.4369e-01_jprb,&
 & 1.7720e-01_jprb,5.8657e-01_jprb,6.7692e-01_jprb/)  
kao( :, 4,12,12) = (/&
 & 5.8202e-01_jprb,5.0954e-01_jprb,4.4287e-01_jprb,3.7996e-01_jprb,3.1901e-01_jprb,2.5355e-01_jprb,&
 & 1.9754e-01_jprb,5.8202e-01_jprb,6.8063e-01_jprb/)  
kao( :, 5,12,12) = (/&
 & 5.7488e-01_jprb,5.0736e-01_jprb,4.4448e-01_jprb,3.8734e-01_jprb,3.2636e-01_jprb,2.7530e-01_jprb,&
 & 2.2896e-01_jprb,5.7488e-01_jprb,6.8864e-01_jprb/)  
kao( :, 1,13,12) = (/&
 & 6.3330e-01_jprb,5.5414e-01_jprb,4.7500e-01_jprb,3.9585e-01_jprb,3.1697e-01_jprb,2.4329e-01_jprb,&
 & 1.7024e-01_jprb,6.3330e-01_jprb,9.6193e-01_jprb/)  
kao( :, 2,13,12) = (/&
 & 6.3223e-01_jprb,5.5319e-01_jprb,4.7424e-01_jprb,3.9638e-01_jprb,3.2473e-01_jprb,2.5152e-01_jprb,&
 & 1.7599e-01_jprb,6.3223e-01_jprb,9.4444e-01_jprb/)  
kao( :, 3,13,12) = (/&
 & 6.2744e-01_jprb,5.4905e-01_jprb,4.7373e-01_jprb,4.0076e-01_jprb,3.3050e-01_jprb,2.6025e-01_jprb,&
 & 1.8993e-01_jprb,6.2744e-01_jprb,9.2859e-01_jprb/)  
kao( :, 4,13,12) = (/&
 & 6.2161e-01_jprb,5.4502e-01_jprb,4.7279e-01_jprb,4.0774e-01_jprb,3.3922e-01_jprb,2.7164e-01_jprb,&
 & 2.1216e-01_jprb,6.2161e-01_jprb,9.1983e-01_jprb/)  
kao( :, 5,13,12) = (/&
 & 6.1416e-01_jprb,5.4190e-01_jprb,4.7545e-01_jprb,4.1094e-01_jprb,3.4988e-01_jprb,2.9767e-01_jprb,&
 & 2.4315e-01_jprb,6.1416e-01_jprb,9.2076e-01_jprb/)  
kao( :, 1, 1,13) = (/&
 & 5.6801e-01_jprb,4.9753e-01_jprb,4.2614e-01_jprb,3.5562e-01_jprb,2.9784e-01_jprb,2.3762e-01_jprb,&
 & 1.7067e-01_jprb,5.6801e-01_jprb,2.8847e-01_jprb/)  
kao( :, 2, 1,13) = (/&
 & 5.4506e-01_jprb,4.7713e-01_jprb,4.0945e-01_jprb,3.5614e-01_jprb,2.9906e-01_jprb,2.3687e-01_jprb,&
 & 2.1806e-01_jprb,5.4506e-01_jprb,3.9566e-01_jprb/)  
kao( :, 3, 1,13) = (/&
 & 5.2208e-01_jprb,4.5704e-01_jprb,4.0103e-01_jprb,3.5099e-01_jprb,2.9640e-01_jprb,2.7382e-01_jprb,&
 & 2.9611e-01_jprb,5.2208e-01_jprb,5.3813e-01_jprb/)  
kao( :, 4, 1,13) = (/&
 & 5.0009e-01_jprb,4.3777e-01_jprb,3.9424e-01_jprb,3.4743e-01_jprb,3.1380e-01_jprb,3.5655e-01_jprb,&
 & 3.8844e-01_jprb,5.0009e-01_jprb,7.1248e-01_jprb/)  
kao( :, 5, 1,13) = (/&
 & 4.7842e-01_jprb,4.2067e-01_jprb,3.8681e-01_jprb,3.4438e-01_jprb,3.8224e-01_jprb,4.4874e-01_jprb,&
 & 4.9670e-01_jprb,4.7842e-01_jprb,9.2069e-01_jprb/)  
kao( :, 1, 2,13) = (/&
 & 5.8929e-01_jprb,5.1576e-01_jprb,4.4253e-01_jprb,3.6899e-01_jprb,3.0866e-01_jprb,2.4593e-01_jprb,&
 & 1.7419e-01_jprb,5.8929e-01_jprb,2.7016e-01_jprb/)  
kao( :, 2, 2,13) = (/&
 & 5.6495e-01_jprb,4.9446e-01_jprb,4.2405e-01_jprb,3.6956e-01_jprb,3.0941e-01_jprb,2.4584e-01_jprb,&
 & 2.0900e-01_jprb,5.6495e-01_jprb,3.6136e-01_jprb/)  
kao( :, 3, 2,13) = (/&
 & 5.4068e-01_jprb,4.7328e-01_jprb,4.1750e-01_jprb,3.6380e-01_jprb,3.0869e-01_jprb,2.6782e-01_jprb,&
 & 2.8845e-01_jprb,5.4068e-01_jprb,4.8684e-01_jprb/)  
kao( :, 4, 2,13) = (/&
 & 5.1706e-01_jprb,4.5259e-01_jprb,4.0848e-01_jprb,3.6075e-01_jprb,3.1658e-01_jprb,3.4323e-01_jprb,&
 & 3.8025e-01_jprb,5.1706e-01_jprb,6.5346e-01_jprb/)  
kao( :, 5, 2,13) = (/&
 & 4.9404e-01_jprb,4.3831e-01_jprb,4.0091e-01_jprb,3.5604e-01_jprb,3.7274e-01_jprb,4.3563e-01_jprb,&
 & 4.8657e-01_jprb,4.9404e-01_jprb,8.5443e-01_jprb/)  
kao( :, 1, 3,13) = (/&
 & 6.1460e-01_jprb,5.3792e-01_jprb,4.6119e-01_jprb,3.8446e-01_jprb,3.1580e-01_jprb,2.5245e-01_jprb,&
 & 1.8069e-01_jprb,6.1460e-01_jprb,2.4476e-01_jprb/)  
kao( :, 2, 3,13) = (/&
 & 5.8902e-01_jprb,5.1550e-01_jprb,4.4201e-01_jprb,3.8201e-01_jprb,3.1981e-01_jprb,2.5246e-01_jprb,&
 & 1.9290e-01_jprb,5.8902e-01_jprb,3.2384e-01_jprb/)  
kao( :, 3, 3,13) = (/&
 & 5.6359e-01_jprb,4.9325e-01_jprb,4.3340e-01_jprb,3.7717e-01_jprb,3.1924e-01_jprb,2.6085e-01_jprb,&
 & 2.6060e-01_jprb,5.6359e-01_jprb,4.2953e-01_jprb/)  
kao( :, 4, 3,13) = (/&
 & 5.3858e-01_jprb,4.7139e-01_jprb,4.2433e-01_jprb,3.7392e-01_jprb,3.2043e-01_jprb,3.1006e-01_jprb,&
 & 3.4867e-01_jprb,5.3858e-01_jprb,5.6773e-01_jprb/)  
kao( :, 5, 3,13) = (/&
 & 5.1490e-01_jprb,4.5696e-01_jprb,4.1592e-01_jprb,3.6991e-01_jprb,3.4822e-01_jprb,4.0122e-01_jprb,&
 & 4.5118e-01_jprb,5.1490e-01_jprb,7.4387e-01_jprb/)  
kao( :, 1, 4,13) = (/&
 & 6.4145e-01_jprb,5.6134e-01_jprb,4.8123e-01_jprb,4.0119e-01_jprb,3.2332e-01_jprb,2.5778e-01_jprb,&
 & 1.8494e-01_jprb,6.4145e-01_jprb,2.1630e-01_jprb/)  
kao( :, 2, 4,13) = (/&
 & 6.1419e-01_jprb,5.3750e-01_jprb,4.6079e-01_jprb,3.9241e-01_jprb,3.2922e-01_jprb,2.5906e-01_jprb,&
 & 1.8892e-01_jprb,6.1419e-01_jprb,2.9208e-01_jprb/)  
kao( :, 3, 4,13) = (/&
 & 5.8813e-01_jprb,5.1468e-01_jprb,4.4799e-01_jprb,3.9004e-01_jprb,3.2671e-01_jprb,2.6510e-01_jprb,&
 & 2.2685e-01_jprb,5.8813e-01_jprb,3.9137e-01_jprb/)  
kao( :, 4, 4,13) = (/&
 & 5.6273e-01_jprb,4.9248e-01_jprb,4.4059e-01_jprb,3.8556e-01_jprb,3.3060e-01_jprb,2.8625e-01_jprb,&
 & 3.0760e-01_jprb,5.6273e-01_jprb,5.0589e-01_jprb/)  
kao( :, 5, 4,13) = (/&
 & 5.3804e-01_jprb,4.7588e-01_jprb,4.3067e-01_jprb,3.8369e-01_jprb,3.3395e-01_jprb,3.5921e-01_jprb,&
 & 4.0495e-01_jprb,5.3804e-01_jprb,6.5237e-01_jprb/)  
kao( :, 1, 5,13) = (/&
 & 6.6759e-01_jprb,5.8420e-01_jprb,5.0082e-01_jprb,4.1745e-01_jprb,3.3417e-01_jprb,2.6101e-01_jprb,&
 & 1.8769e-01_jprb,6.6759e-01_jprb,1.9371e-01_jprb/)  
kao( :, 2, 5,13) = (/&
 & 6.3993e-01_jprb,5.5998e-01_jprb,4.8009e-01_jprb,4.0342e-01_jprb,3.3762e-01_jprb,2.6493e-01_jprb,&
 & 1.8973e-01_jprb,6.3993e-01_jprb,2.6409e-01_jprb/)  
kao( :, 3, 5,13) = (/&
 & 6.1332e-01_jprb,5.3667e-01_jprb,4.6314e-01_jprb,4.0266e-01_jprb,3.3397e-01_jprb,2.6941e-01_jprb,&
 & 2.0819e-01_jprb,6.1332e-01_jprb,3.5928e-01_jprb/)  
kao( :, 4, 5,13) = (/&
 & 5.8743e-01_jprb,5.1406e-01_jprb,4.5644e-01_jprb,3.9637e-01_jprb,3.3947e-01_jprb,2.7620e-01_jprb,&
 & 2.6432e-01_jprb,5.8743e-01_jprb,4.7554e-01_jprb/)  
kao( :, 5, 5,13) = (/&
 & 5.6212e-01_jprb,4.9526e-01_jprb,4.4574e-01_jprb,3.9617e-01_jprb,3.3572e-01_jprb,3.1407e-01_jprb,&
 & 3.5828e-01_jprb,5.6212e-01_jprb,6.0837e-01_jprb/)  
kao( :, 1, 6,13) = (/&
 & 6.9473e-01_jprb,6.0793e-01_jprb,5.2119e-01_jprb,4.3440e-01_jprb,3.4764e-01_jprb,2.6336e-01_jprb,&
 & 1.8896e-01_jprb,6.9473e-01_jprb,1.7250e-01_jprb/)  
kao( :, 2, 6,13) = (/&
 & 6.6721e-01_jprb,5.8382e-01_jprb,5.0053e-01_jprb,4.1719e-01_jprb,3.4561e-01_jprb,2.7121e-01_jprb,&
 & 1.9177e-01_jprb,6.6721e-01_jprb,2.4044e-01_jprb/)  
kao( :, 3, 6,13) = (/&
 & 6.4000e-01_jprb,5.6004e-01_jprb,4.8024e-01_jprb,4.1554e-01_jprb,3.4402e-01_jprb,2.7206e-01_jprb,&
 & 2.0202e-01_jprb,6.4000e-01_jprb,3.3099e-01_jprb/)  
kao( :, 4, 6,13) = (/&
 & 6.1394e-01_jprb,5.3727e-01_jprb,4.7423e-01_jprb,4.0811e-01_jprb,3.4656e-01_jprb,2.7984e-01_jprb,&
 & 2.2944e-01_jprb,6.1394e-01_jprb,4.4214e-01_jprb/)  
kao( :, 5, 6,13) = (/&
 & 5.9084e-01_jprb,5.1879e-01_jprb,4.6252e-01_jprb,4.0758e-01_jprb,3.4602e-01_jprb,2.8751e-01_jprb,&
 & 3.0432e-01_jprb,5.9084e-01_jprb,5.7787e-01_jprb/)  
kao( :, 1, 7,13) = (/&
 & 7.2249e-01_jprb,6.3225e-01_jprb,5.4192e-01_jprb,4.5166e-01_jprb,3.6141e-01_jprb,2.7115e-01_jprb,&
 & 1.8926e-01_jprb,7.2249e-01_jprb,1.4840e-01_jprb/)  
kao( :, 2, 7,13) = (/&
 & 6.9569e-01_jprb,6.0876e-01_jprb,5.2183e-01_jprb,4.3493e-01_jprb,3.5253e-01_jprb,2.7700e-01_jprb,&
 & 1.9463e-01_jprb,6.9569e-01_jprb,2.1366e-01_jprb/)  
kao( :, 3, 7,13) = (/&
 & 6.7030e-01_jprb,5.8656e-01_jprb,5.0282e-01_jprb,4.3054e-01_jprb,3.5472e-01_jprb,2.7582e-01_jprb,&
 & 2.0558e-01_jprb,6.7030e-01_jprb,3.0169e-01_jprb/)  
kao( :, 4, 7,13) = (/&
 & 6.4750e-01_jprb,5.6659e-01_jprb,4.9555e-01_jprb,4.2297e-01_jprb,3.5382e-01_jprb,2.8571e-01_jprb,&
 & 2.1673e-01_jprb,6.4750e-01_jprb,4.1281e-01_jprb/)  
kao( :, 5, 7,13) = (/&
 & 6.2512e-01_jprb,5.4760e-01_jprb,4.8374e-01_jprb,4.2116e-01_jprb,3.5619e-01_jprb,2.8468e-01_jprb,&
 & 2.6466e-01_jprb,6.2512e-01_jprb,5.4714e-01_jprb/)  
kao( :, 1, 8,13) = (/&
 & 7.5294e-01_jprb,6.5887e-01_jprb,5.6474e-01_jprb,4.7064e-01_jprb,3.7654e-01_jprb,2.8248e-01_jprb,&
 & 1.8974e-01_jprb,7.5294e-01_jprb,1.2274e-01_jprb/)  
kao( :, 2, 8,13) = (/&
 & 7.2891e-01_jprb,6.3781e-01_jprb,5.4671e-01_jprb,4.5563e-01_jprb,3.6498e-01_jprb,2.8342e-01_jprb,&
 & 1.9844e-01_jprb,7.2891e-01_jprb,1.8310e-01_jprb/)  
kao( :, 3, 8,13) = (/&
 & 7.0557e-01_jprb,6.1744e-01_jprb,5.2928e-01_jprb,4.4666e-01_jprb,3.6716e-01_jprb,2.8351e-01_jprb,&
 & 2.0879e-01_jprb,7.0557e-01_jprb,2.6614e-01_jprb/)  
kao( :, 4, 8,13) = (/&
 & 6.8244e-01_jprb,5.9719e-01_jprb,5.1867e-01_jprb,4.4210e-01_jprb,3.6383e-01_jprb,2.9223e-01_jprb,&
 & 2.1877e-01_jprb,6.8244e-01_jprb,3.7635e-01_jprb/)  
kao( :, 5, 8,13) = (/&
 & 6.6089e-01_jprb,5.7833e-01_jprb,5.0944e-01_jprb,4.4005e-01_jprb,3.6857e-01_jprb,2.9676e-01_jprb,&
 & 2.4160e-01_jprb,6.6089e-01_jprb,5.0930e-01_jprb/)  
kao( :, 1, 9,13) = (/&
 & 7.8582e-01_jprb,6.8762e-01_jprb,5.8934e-01_jprb,4.9123e-01_jprb,3.9298e-01_jprb,2.9487e-01_jprb,&
 & 1.9668e-01_jprb,7.8582e-01_jprb,9.8816e-02_jprb/)  
kao( :, 2, 9,13) = (/&
 & 7.6340e-01_jprb,6.6798e-01_jprb,5.7260e-01_jprb,4.7718e-01_jprb,3.8186e-01_jprb,2.8922e-01_jprb,&
 & 2.0391e-01_jprb,7.6340e-01_jprb,1.5257e-01_jprb/)  
kao( :, 3, 9,13) = (/&
 & 7.4083e-01_jprb,6.4825e-01_jprb,5.5561e-01_jprb,4.6459e-01_jprb,3.8180e-01_jprb,2.9456e-01_jprb,&
 & 2.1305e-01_jprb,7.4083e-01_jprb,2.2771e-01_jprb/)  
kao( :, 4, 9,13) = (/&
 & 7.2071e-01_jprb,6.3065e-01_jprb,5.4414e-01_jprb,4.6459e-01_jprb,3.7956e-01_jprb,3.0226e-01_jprb,&
 & 2.2460e-01_jprb,7.2071e-01_jprb,3.3060e-01_jprb/)  
kao( :, 5, 9,13) = (/&
 & 7.0101e-01_jprb,6.1340e-01_jprb,5.3848e-01_jprb,4.5996e-01_jprb,3.8516e-01_jprb,3.1030e-01_jprb,&
 & 2.3292e-01_jprb,7.0101e-01_jprb,4.5916e-01_jprb/)  
kao( :, 1,10,13) = (/&
 & 8.1699e-01_jprb,7.1490e-01_jprb,6.1279e-01_jprb,5.1070e-01_jprb,4.0862e-01_jprb,3.0651e-01_jprb,&
 & 2.0447e-01_jprb,8.1699e-01_jprb,2.0223e-01_jprb/)  
kao( :, 2,10,13) = (/&
 & 7.9680e-01_jprb,6.9725e-01_jprb,5.9768e-01_jprb,4.9808e-01_jprb,3.9857e-01_jprb,2.9954e-01_jprb,&
 & 2.1116e-01_jprb,7.9680e-01_jprb,2.1512e-01_jprb/)  
kao( :, 3,10,13) = (/&
 & 7.7769e-01_jprb,6.8054e-01_jprb,5.8332e-01_jprb,4.8646e-01_jprb,3.9735e-01_jprb,3.0638e-01_jprb,&
 & 2.2182e-01_jprb,7.7769e-01_jprb,2.3973e-01_jprb/)  
kao( :, 4,10,13) = (/&
 & 7.5760e-01_jprb,6.6294e-01_jprb,5.6993e-01_jprb,4.8571e-01_jprb,3.9617e-01_jprb,3.1482e-01_jprb,&
 & 2.3294e-01_jprb,7.5760e-01_jprb,3.0285e-01_jprb/)  
kao( :, 5,10,13) = (/&
 & 7.3618e-01_jprb,6.4414e-01_jprb,5.6442e-01_jprb,4.8052e-01_jprb,4.0378e-01_jprb,3.2545e-01_jprb,&
 & 2.3666e-01_jprb,7.3618e-01_jprb,4.1601e-01_jprb/)  
kao( :, 1,11,13) = (/&
 & 8.3942e-01_jprb,7.3450e-01_jprb,6.2963e-01_jprb,5.2471e-01_jprb,4.1987e-01_jprb,3.1499e-01_jprb,&
 & 2.1173e-01_jprb,8.3942e-01_jprb,5.1704e-01_jprb/)  
kao( :, 2,11,13) = (/&
 & 8.2051e-01_jprb,7.1798e-01_jprb,6.1544e-01_jprb,5.1289e-01_jprb,4.1041e-01_jprb,3.1180e-01_jprb,&
 & 2.2477e-01_jprb,8.2051e-01_jprb,5.0715e-01_jprb/)  
kao( :, 3,11,13) = (/&
 & 8.0104e-01_jprb,7.0099e-01_jprb,6.0089e-01_jprb,5.0362e-01_jprb,4.1222e-01_jprb,3.2198e-01_jprb,&
 & 2.3377e-01_jprb,8.0104e-01_jprb,5.0602e-01_jprb/)  
kao( :, 4,11,13) = (/&
 & 7.7897e-01_jprb,6.8168e-01_jprb,5.9030e-01_jprb,5.0190e-01_jprb,4.1316e-01_jprb,3.3484e-01_jprb,&
 & 2.4521e-01_jprb,7.7897e-01_jprb,5.2719e-01_jprb/)  
kao( :, 5,11,13) = (/&
 & 7.5657e-01_jprb,6.6294e-01_jprb,5.8168e-01_jprb,4.9940e-01_jprb,4.2397e-01_jprb,3.4229e-01_jprb,&
 & 2.5422e-01_jprb,7.5657e-01_jprb,5.6893e-01_jprb/)  
kao( :, 1,12,13) = (/&
 & 8.6084e-01_jprb,7.5332e-01_jprb,6.4569e-01_jprb,5.3811e-01_jprb,4.3054e-01_jprb,3.2302e-01_jprb,&
 & 2.2089e-01_jprb,8.6084e-01_jprb,8.5915e-01_jprb/)  
kao( :, 2,12,13) = (/&
 & 8.4383e-01_jprb,7.3849e-01_jprb,6.3296e-01_jprb,5.2757e-01_jprb,4.2272e-01_jprb,3.2652e-01_jprb,&
 & 2.3662e-01_jprb,8.4383e-01_jprb,8.4258e-01_jprb/)  
kao( :, 3,12,13) = (/&
 & 8.2461e-01_jprb,7.2162e-01_jprb,6.1861e-01_jprb,5.2173e-01_jprb,4.2609e-01_jprb,3.3651e-01_jprb,&
 & 2.4602e-01_jprb,8.2461e-01_jprb,8.2424e-01_jprb/)  
kao( :, 4,12,13) = (/&
 & 8.0362e-01_jprb,7.0330e-01_jprb,6.1076e-01_jprb,5.1642e-01_jprb,4.3196e-01_jprb,3.5024e-01_jprb,&
 & 2.5788e-01_jprb,8.0362e-01_jprb,8.1526e-01_jprb/)  
kao( :, 5,12,13) = (/&
 & 7.8196e-01_jprb,6.8686e-01_jprb,5.9993e-01_jprb,5.1915e-01_jprb,4.4219e-01_jprb,3.5857e-01_jprb,&
 & 2.8318e-01_jprb,7.8196e-01_jprb,8.4417e-01_jprb/)  
kao( :, 1,13,13) = (/&
 & 8.9885e-01_jprb,7.8652e-01_jprb,6.7417e-01_jprb,5.6190e-01_jprb,4.4957e-01_jprb,3.3736e-01_jprb,&
 & 2.3468e-01_jprb,8.9885e-01_jprb,1.1747e+00_jprb/)  
kao( :, 2,13,13) = (/&
 & 8.8176e-01_jprb,7.7157e-01_jprb,6.6138e-01_jprb,5.5126e-01_jprb,4.4334e-01_jprb,3.4503e-01_jprb,&
 & 2.4591e-01_jprb,8.8176e-01_jprb,1.1474e+00_jprb/)  
kao( :, 3,13,13) = (/&
 & 8.6445e-01_jprb,7.5644e-01_jprb,6.4871e-01_jprb,5.4797e-01_jprb,4.4798e-01_jprb,3.5260e-01_jprb,&
 & 2.5729e-01_jprb,8.6445e-01_jprb,1.1167e+00_jprb/)  
kao( :, 4,13,13) = (/&
 & 8.4531e-01_jprb,7.3968e-01_jprb,6.4228e-01_jprb,5.4288e-01_jprb,4.5703e-01_jprb,3.6588e-01_jprb,&
 & 2.7546e-01_jprb,8.4531e-01_jprb,1.0937e+00_jprb/)  
kao( :, 5,13,13) = (/&
 & 8.2636e-01_jprb,7.2791e-01_jprb,6.3427e-01_jprb,5.5035e-01_jprb,4.6456e-01_jprb,3.8210e-01_jprb,&
 & 3.1914e-01_jprb,8.2636e-01_jprb,1.1091e+00_jprb/)  
kao( :, 1, 1,14) = (/&
 & 6.4697e-01_jprb,5.6581e-01_jprb,4.8619e-01_jprb,4.0514e-01_jprb,3.2628e-01_jprb,2.6560e-01_jprb,&
 & 2.6000e-01_jprb,6.4697e-01_jprb,5.4302e-01_jprb/)  
kao( :, 2, 1,14) = (/&
 & 6.1615e-01_jprb,5.3934e-01_jprb,4.6216e-01_jprb,3.9067e-01_jprb,3.3456e-01_jprb,3.3408e-01_jprb,&
 & 3.5677e-01_jprb,6.1615e-01_jprb,7.5638e-01_jprb/)  
kao( :, 3, 1,14) = (/&
 & 5.8533e-01_jprb,5.1238e-01_jprb,4.4004e-01_jprb,3.8617e-01_jprb,3.9537e-01_jprb,4.4466e-01_jprb,&
 & 4.7278e-01_jprb,5.8533e-01_jprb,1.0166e+00_jprb/)  
kao( :, 4, 1,14) = (/&
 & 5.5669e-01_jprb,4.8735e-01_jprb,4.2781e-01_jprb,4.2678e-01_jprb,5.1253e-01_jprb,5.7332e-01_jprb,&
 & 6.0788e-01_jprb,5.5669e-01_jprb,1.3240e+00_jprb/)  
kao( :, 5, 1,14) = (/&
 & 5.2879e-01_jprb,4.6247e-01_jprb,4.2802e-01_jprb,5.3254e-01_jprb,6.4936e-01_jprb,7.2566e-01_jprb,&
 & 7.6206e-01_jprb,5.2879e-01_jprb,1.6773e+00_jprb/)  
kao( :, 1, 2,14) = (/&
 & 6.8303e-01_jprb,5.9781e-01_jprb,5.1220e-01_jprb,4.2706e-01_jprb,3.4379e-01_jprb,2.7382e-01_jprb,&
 & 2.5162e-01_jprb,6.8303e-01_jprb,5.1036e-01_jprb/)  
kao( :, 2, 2,14) = (/&
 & 6.4954e-01_jprb,5.6917e-01_jprb,4.8810e-01_jprb,4.1304e-01_jprb,3.4632e-01_jprb,3.2639e-01_jprb,&
 & 3.5170e-01_jprb,6.4954e-01_jprb,7.2343e-01_jprb/)  
kao( :, 3, 2,14) = (/&
 & 6.1641e-01_jprb,5.3958e-01_jprb,4.6497e-01_jprb,4.0263e-01_jprb,3.9007e-01_jprb,4.3907e-01_jprb,&
 & 4.7004e-01_jprb,6.1641e-01_jprb,9.8553e-01_jprb/)  
kao( :, 4, 2,14) = (/&
 & 5.8470e-01_jprb,5.1185e-01_jprb,4.4927e-01_jprb,4.3064e-01_jprb,5.0846e-01_jprb,5.7765e-01_jprb,&
 & 6.1669e-01_jprb,5.8470e-01_jprb,1.2985e+00_jprb/)  
kao( :, 5, 2,14) = (/&
 & 5.5467e-01_jprb,4.8565e-01_jprb,4.4367e-01_jprb,5.2819e-01_jprb,6.4947e-01_jprb,7.3873e-01_jprb,&
 & 7.8515e-01_jprb,5.5467e-01_jprb,1.6649e+00_jprb/)  
kao( :, 1, 3,14) = (/&
 & 7.2604e-01_jprb,6.3550e-01_jprb,5.4494e-01_jprb,4.5437e-01_jprb,3.6385e-01_jprb,2.8334e-01_jprb,&
 & 2.2702e-01_jprb,7.2604e-01_jprb,4.3950e-01_jprb/)  
kao( :, 2, 3,14) = (/&
 & 6.8954e-01_jprb,6.0362e-01_jprb,5.1760e-01_jprb,4.3356e-01_jprb,3.5873e-01_jprb,3.0878e-01_jprb,&
 & 3.1582e-01_jprb,6.8954e-01_jprb,6.3380e-01_jprb/)  
kao( :, 3, 3,14) = (/&
 & 6.5385e-01_jprb,5.7238e-01_jprb,4.9126e-01_jprb,4.2254e-01_jprb,3.7557e-01_jprb,4.0304e-01_jprb,&
 & 4.3683e-01_jprb,6.5385e-01_jprb,8.8264e-01_jprb/)  
kao( :, 4, 3,14) = (/&
 & 6.1901e-01_jprb,5.4191e-01_jprb,4.7603e-01_jprb,4.2566e-01_jprb,4.6990e-01_jprb,5.3966e-01_jprb,&
 & 5.8392e-01_jprb,6.1901e-01_jprb,1.1869e+00_jprb/)  
kao( :, 5, 3,14) = (/&
 & 5.8653e-01_jprb,5.1354e-01_jprb,4.5882e-01_jprb,4.9733e-01_jprb,6.1274e-01_jprb,7.0260e-01_jprb,&
 & 7.5851e-01_jprb,5.8653e-01_jprb,1.5549e+00_jprb/)  
kao( :, 1, 4,14) = (/&
 & 7.7382e-01_jprb,6.7722e-01_jprb,5.8077e-01_jprb,4.8422e-01_jprb,3.8766e-01_jprb,2.9794e-01_jprb,&
 & 2.1506e-01_jprb,7.7382e-01_jprb,3.8561e-01_jprb/)  
kao( :, 2, 4,14) = (/&
 & 7.3238e-01_jprb,6.4104e-01_jprb,5.4969e-01_jprb,4.5833e-01_jprb,3.7818e-01_jprb,3.0063e-01_jprb,&
 & 2.7269e-01_jprb,7.3238e-01_jprb,5.4567e-01_jprb/)  

IF (lhook) CALL dr_hook('RRTM_KGB4:PART9',1,zhook_handle)
END SUBROUTINE part9


SUBROUTINE part10

REAL(KIND=JPRB) :: ZHOOK_HANDLE
IF (lhook) CALL dr_hook('RRTM_KGB4:PART10',0,zhook_handle)


kao( :, 3, 4,14) = (/&
 & 6.9409e-01_jprb,6.0760e-01_jprb,5.2105e-01_jprb,4.4727e-01_jprb,3.7346e-01_jprb,3.5556e-01_jprb,&
 & 3.8970e-01_jprb,6.9409e-01_jprb,7.5575e-01_jprb/)  
kao( :, 4, 4,14) = (/&
 & 6.5680e-01_jprb,5.7500e-01_jprb,5.0421e-01_jprb,4.3210e-01_jprb,4.2750e-01_jprb,4.8792e-01_jprb,&
 & 5.3313e-01_jprb,6.5680e-01_jprb,1.0436e+00_jprb/)  
kao( :, 5, 4,14) = (/&
 & 6.2089e-01_jprb,5.4362e-01_jprb,4.8130e-01_jprb,4.7140e-01_jprb,5.6311e-01_jprb,6.4743e-01_jprb,&
 & 7.0793e-01_jprb,6.2089e-01_jprb,1.3960e+00_jprb/)  
kao( :, 1, 5,14) = (/&
 & 8.2229e-01_jprb,7.1962e-01_jprb,6.1700e-01_jprb,5.1439e-01_jprb,4.1134e-01_jprb,3.0886e-01_jprb,&
 & 2.1652e-01_jprb,8.2229e-01_jprb,3.4617e-01_jprb/)  
kao( :, 2, 5,14) = (/&
 & 7.7737e-01_jprb,6.8035e-01_jprb,5.8334e-01_jprb,4.8633e-01_jprb,3.9777e-01_jprb,3.0668e-01_jprb,&
 & 2.4242e-01_jprb,7.7737e-01_jprb,4.8134e-01_jprb/)  
kao( :, 3, 5,14) = (/&
 & 7.3545e-01_jprb,6.4364e-01_jprb,5.5194e-01_jprb,4.7124e-01_jprb,3.8457e-01_jprb,3.2665e-01_jprb,&
 & 3.3917e-01_jprb,7.3545e-01_jprb,6.5879e-01_jprb/)  
kao( :, 4, 5,14) = (/&
 & 6.9572e-01_jprb,6.0902e-01_jprb,5.3204e-01_jprb,4.5117e-01_jprb,4.0273e-01_jprb,4.3738e-01_jprb,&
 & 4.7818e-01_jprb,6.9572e-01_jprb,9.0069e-01_jprb/)  
kao( :, 5, 5,14) = (/&
 & 6.5745e-01_jprb,5.7553e-01_jprb,5.0705e-01_jprb,4.6147e-01_jprb,5.1159e-01_jprb,5.9239e-01_jprb,&
 & 6.4809e-01_jprb,6.5745e-01_jprb,1.2234e+00_jprb/)  
kao( :, 1, 6,14) = (/&
 & 8.7308e-01_jprb,7.6408e-01_jprb,6.5505e-01_jprb,5.4604e-01_jprb,4.3705e-01_jprb,3.2789e-01_jprb,&
 & 2.2557e-01_jprb,8.7308e-01_jprb,2.9961e-01_jprb/)  
kao( :, 2, 6,14) = (/&
 & 8.2540e-01_jprb,7.2233e-01_jprb,6.1930e-01_jprb,5.1628e-01_jprb,4.1422e-01_jprb,3.2146e-01_jprb,&
 & 2.2994e-01_jprb,8.2540e-01_jprb,4.2262e-01_jprb/)  
kao( :, 3, 6,14) = (/&
 & 7.7924e-01_jprb,6.8203e-01_jprb,5.8479e-01_jprb,4.9474e-01_jprb,4.0395e-01_jprb,3.1715e-01_jprb,&
 & 2.8904e-01_jprb,7.7924e-01_jprb,5.7314e-01_jprb/)  
kao( :, 4, 6,14) = (/&
 & 7.3709e-01_jprb,6.4513e-01_jprb,5.5979e-01_jprb,4.7521e-01_jprb,3.9636e-01_jprb,3.8185e-01_jprb,&
 & 4.1862e-01_jprb,7.3709e-01_jprb,7.8091e-01_jprb/)  
kao( :, 5, 6,14) = (/&
 & 6.9621e-01_jprb,6.0938e-01_jprb,5.3478e-01_jprb,4.6425e-01_jprb,4.6297e-01_jprb,5.2802e-01_jprb,&
 & 5.8170e-01_jprb,6.9621e-01_jprb,1.0527e+00_jprb/)  
kao( :, 1, 7,14) = (/&
 & 9.2395e-01_jprb,8.0850e-01_jprb,6.9306e-01_jprb,5.7769e-01_jprb,4.6224e-01_jprb,3.4691e-01_jprb,&
 & 2.3084e-01_jprb,9.2395e-01_jprb,2.5497e-01_jprb/)  
kao( :, 2, 7,14) = (/&
 & 8.7317e-01_jprb,7.6415e-01_jprb,6.5513e-01_jprb,5.4606e-01_jprb,4.3714e-01_jprb,3.3528e-01_jprb,&
 & 2.3202e-01_jprb,8.7317e-01_jprb,3.7202e-01_jprb/)  
kao( :, 3, 7,14) = (/&
 & 8.2438e-01_jprb,7.2141e-01_jprb,6.1853e-01_jprb,5.1767e-01_jprb,4.2475e-01_jprb,3.2596e-01_jprb,&
 & 2.5061e-01_jprb,8.2438e-01_jprb,5.0761e-01_jprb/)  
kao( :, 4, 7,14) = (/&
 & 7.7804e-01_jprb,6.8094e-01_jprb,5.8814e-01_jprb,5.0039e-01_jprb,4.0791e-01_jprb,3.4702e-01_jprb,&
 & 3.6090e-01_jprb,7.7804e-01_jprb,6.8063e-01_jprb/)  
kao( :, 5, 7,14) = (/&
 & 7.3636e-01_jprb,6.4448e-01_jprb,5.6430e-01_jprb,4.8129e-01_jprb,4.3569e-01_jprb,4.6156e-01_jprb,&
 & 5.1425e-01_jprb,7.3636e-01_jprb,9.1422e-01_jprb/)  
kao( :, 1, 8,14) = (/&
 & 9.7397e-01_jprb,8.5236e-01_jprb,7.3070e-01_jprb,6.0905e-01_jprb,4.8737e-01_jprb,3.6576e-01_jprb,&
 & 2.4401e-01_jprb,9.7397e-01_jprb,2.1663e-01_jprb/)  
kao( :, 2, 8,14) = (/&
 & 9.2100e-01_jprb,8.0595e-01_jprb,6.9096e-01_jprb,5.7592e-01_jprb,4.6092e-01_jprb,3.4695e-01_jprb,&
 & 2.4168e-01_jprb,9.2100e-01_jprb,3.2348e-01_jprb/)  
kao( :, 3, 8,14) = (/&
 & 8.7221e-01_jprb,7.6329e-01_jprb,6.5435e-01_jprb,5.4550e-01_jprb,4.4631e-01_jprb,3.4181e-01_jprb,&
 & 2.3826e-01_jprb,8.7221e-01_jprb,4.5837e-01_jprb/)  
kao( :, 4, 8,14) = (/&
 & 8.2606e-01_jprb,7.2291e-01_jprb,6.2015e-01_jprb,5.2779e-01_jprb,4.2860e-01_jprb,3.3690e-01_jprb,&
 & 3.1094e-01_jprb,8.2606e-01_jprb,6.1646e-01_jprb/)  
kao( :, 5, 8,14) = (/&
 & 7.8339e-01_jprb,6.8563e-01_jprb,5.9715e-01_jprb,5.0560e-01_jprb,4.2904e-01_jprb,4.0836e-01_jprb,&
 & 4.4759e-01_jprb,7.8339e-01_jprb,8.2068e-01_jprb/)  
kao( :, 1, 9,14) = (/&
 & 1.0301e+00_jprb,9.0147e-01_jprb,7.7271e-01_jprb,6.4407e-01_jprb,5.1534e-01_jprb,3.8666e-01_jprb,&
 & 2.5795e-01_jprb,1.0301e+00_jprb,1.8238e-01_jprb/)  
kao( :, 2, 9,14) = (/&
 & 9.7820e-01_jprb,8.5599e-01_jprb,7.3388e-01_jprb,6.1168e-01_jprb,4.8943e-01_jprb,3.6719e-01_jprb,&
 & 2.5130e-01_jprb,9.7820e-01_jprb,2.7990e-01_jprb/)  
kao( :, 3, 9,14) = (/&
 & 9.2786e-01_jprb,8.1203e-01_jprb,6.9612e-01_jprb,5.8026e-01_jprb,4.6878e-01_jprb,3.5884e-01_jprb,&
 & 2.4589e-01_jprb,9.2786e-01_jprb,4.0829e-01_jprb/)  
kao( :, 4, 9,14) = (/&
 & 8.8063e-01_jprb,7.7081e-01_jprb,6.6089e-01_jprb,5.5869e-01_jprb,4.5326e-01_jprb,3.4687e-01_jprb,&
 & 2.8154e-01_jprb,8.8063e-01_jprb,5.6423e-01_jprb/)  
kao( :, 5, 9,14) = (/&
 & 8.3750e-01_jprb,7.3300e-01_jprb,6.3612e-01_jprb,5.3674e-01_jprb,4.4242e-01_jprb,3.8121e-01_jprb,&
 & 3.9514e-01_jprb,8.3750e-01_jprb,7.6101e-01_jprb/)  
kao( :, 1,10,14) = (/&
 & 1.0910e+00_jprb,9.5477e-01_jprb,8.1845e-01_jprb,6.8213e-01_jprb,5.4582e-01_jprb,4.0946e-01_jprb,&
 & 2.7317e-01_jprb,1.0910e+00_jprb,2.4894e-01_jprb/)  
kao( :, 2,10,14) = (/&
 & 1.0359e+00_jprb,9.0651e-01_jprb,7.7708e-01_jprb,6.4767e-01_jprb,5.1833e-01_jprb,3.8894e-01_jprb,&
 & 2.6039e-01_jprb,1.0359e+00_jprb,2.7831e-01_jprb/)  
kao( :, 3,10,14) = (/&
 & 9.8652e-01_jprb,8.6341e-01_jprb,7.4018e-01_jprb,6.1698e-01_jprb,4.9398e-01_jprb,3.7879e-01_jprb,&
 & 2.6008e-01_jprb,9.8652e-01_jprb,3.7798e-01_jprb/)  
kao( :, 4,10,14) = (/&
 & 9.4211e-01_jprb,8.2452e-01_jprb,7.0695e-01_jprb,5.9553e-01_jprb,4.8274e-01_jprb,3.6793e-01_jprb,&
 & 2.7883e-01_jprb,9.4211e-01_jprb,5.3013e-01_jprb/)  
kao( :, 5,10,14) = (/&
 & 9.0248e-01_jprb,7.8992e-01_jprb,6.8355e-01_jprb,5.7648e-01_jprb,4.7251e-01_jprb,3.8441e-01_jprb,&
 & 3.6799e-01_jprb,9.0248e-01_jprb,7.2595e-01_jprb/)  
kao( :, 1,11,14) = (/&
 & 1.1319e+00_jprb,9.9048e-01_jprb,8.4899e-01_jprb,7.0760e-01_jprb,5.6613e-01_jprb,4.2478e-01_jprb,&
 & 2.8341e-01_jprb,1.1319e+00_jprb,6.1592e-01_jprb/)  
kao( :, 2,11,14) = (/&
 & 1.0823e+00_jprb,9.4725e-01_jprb,8.1199e-01_jprb,6.7675e-01_jprb,5.4154e-01_jprb,4.0630e-01_jprb,&
 & 2.7609e-01_jprb,1.0823e+00_jprb,6.1773e-01_jprb/)  
kao( :, 3,11,14) = (/&
 & 1.0367e+00_jprb,9.0731e-01_jprb,7.7783e-01_jprb,6.4834e-01_jprb,5.2311e-01_jprb,3.9934e-01_jprb,&
 & 2.8089e-01_jprb,1.0367e+00_jprb,6.2937e-01_jprb/)  
kao( :, 4,11,14) = (/&
 & 9.9754e-01_jprb,8.7303e-01_jprb,7.4854e-01_jprb,6.3329e-01_jprb,5.1385e-01_jprb,3.9730e-01_jprb,&
 & 3.1217e-01_jprb,9.9754e-01_jprb,6.7492e-01_jprb/)  
kao( :, 5,11,14) = (/&
 & 9.6377e-01_jprb,8.4344e-01_jprb,7.3462e-01_jprb,6.2175e-01_jprb,5.1718e-01_jprb,4.2421e-01_jprb,&
 & 3.9708e-01_jprb,9.6377e-01_jprb,8.2165e-01_jprb/)  
kao( :, 1,12,14) = (/&
 & 1.1865e+00_jprb,1.0383e+00_jprb,8.9009e-01_jprb,7.4185e-01_jprb,5.9361e-01_jprb,4.4539e-01_jprb,&
 & 2.9703e-01_jprb,1.1865e+00_jprb,1.0367e+00_jprb/)  
kao( :, 2,12,14) = (/&
 & 1.1417e+00_jprb,9.9913e-01_jprb,8.5647e-01_jprb,7.1379e-01_jprb,5.7124e-01_jprb,4.2863e-01_jprb,&
 & 2.9688e-01_jprb,1.1417e+00_jprb,1.0233e+00_jprb/)  
kao( :, 3,12,14) = (/&
 & 1.1032e+00_jprb,9.6547e-01_jprb,8.2760e-01_jprb,6.8985e-01_jprb,5.6085e-01_jprb,4.2892e-01_jprb,&
 & 3.0866e-01_jprb,1.1032e+00_jprb,1.0143e+00_jprb/)  
kao( :, 4,12,14) = (/&
 & 1.0706e+00_jprb,9.3688e-01_jprb,8.0548e-01_jprb,6.8453e-01_jprb,5.5710e-01_jprb,4.4460e-01_jprb,&
 & 3.4889e-01_jprb,1.0706e+00_jprb,1.0266e+00_jprb/)  
kao( :, 5,12,14) = (/&
 & 1.0446e+00_jprb,9.1422e-01_jprb,8.0059e-01_jprb,6.8230e-01_jprb,5.7500e-01_jprb,4.7448e-01_jprb,&
 & 4.2513e-01_jprb,1.0446e+00_jprb,1.0801e+00_jprb/)  
kao( :, 1,13,14) = (/&
 & 1.2550e+00_jprb,1.0982e+00_jprb,9.4143e-01_jprb,7.8461e-01_jprb,6.2776e-01_jprb,4.7103e-01_jprb,&
 & 3.1423e-01_jprb,1.2550e+00_jprb,1.4399e+00_jprb/)  
kao( :, 2,13,14) = (/&
 & 1.2174e+00_jprb,1.0653e+00_jprb,9.1318e-01_jprb,7.6114e-01_jprb,6.0904e-01_jprb,4.6025e-01_jprb,&
 & 3.2716e-01_jprb,1.2174e+00_jprb,1.4068e+00_jprb/)  
kao( :, 3,13,14) = (/&
 & 1.1864e+00_jprb,1.0381e+00_jprb,8.9001e-01_jprb,7.4479e-01_jprb,6.0816e-01_jprb,4.7143e-01_jprb,&
 & 3.4454e-01_jprb,1.1864e+00_jprb,1.3882e+00_jprb/)  
kao( :, 4,13,14) = (/&
 & 1.1616e+00_jprb,1.0165e+00_jprb,8.7886e-01_jprb,7.4766e-01_jprb,6.1245e-01_jprb,5.0020e-01_jprb,&
 & 3.8828e-01_jprb,1.1616e+00_jprb,1.3917e+00_jprb/)  
kao( :, 5,13,14) = (/&
 & 1.1397e+00_jprb,9.9781e-01_jprb,8.7736e-01_jprb,7.5469e-01_jprb,6.4460e-01_jprb,5.3210e-01_jprb,&
 & 4.5910e-01_jprb,1.1397e+00_jprb,1.4042e+00_jprb/)  
kao( :, 1, 1,15) = (/&
 & 6.7013e-01_jprb,5.8657e-01_jprb,5.0312e-01_jprb,4.1845e-01_jprb,3.3604e-01_jprb,3.2447e-01_jprb,&
 & 3.1596e-01_jprb,6.7013e-01_jprb,1.0209e+00_jprb/)  
kao( :, 2, 1,15) = (/&
 & 6.3713e-01_jprb,5.5910e-01_jprb,4.7959e-01_jprb,4.0042e-01_jprb,4.3246e-01_jprb,4.5455e-01_jprb,&
 & 4.4491e-01_jprb,6.3714e-01_jprb,1.4151e+00_jprb/)  
kao( :, 3, 1,15) = (/&
 & 6.0413e-01_jprb,5.2881e-01_jprb,4.5365e-01_jprb,5.1141e-01_jprb,5.7932e-01_jprb,6.0400e-01_jprb,&
 & 5.9194e-01_jprb,6.0413e-01_jprb,1.8935e+00_jprb/)  
kao( :, 4, 1,15) = (/&
 & 5.7379e-01_jprb,5.0236e-01_jprb,5.0998e-01_jprb,6.6283e-01_jprb,7.5577e-01_jprb,7.9134e-01_jprb,&
 & 7.7383e-01_jprb,5.7379e-01_jprb,2.4386e+00_jprb/)  
kao( :, 5, 1,15) = (/&
 & 5.4412e-01_jprb,4.7644e-01_jprb,6.4179e-01_jprb,8.3374e-01_jprb,9.4901e-01_jprb,9.9647e-01_jprb,&
 & 9.6829e-01_jprb,5.4412e-01_jprb,3.0668e+00_jprb/)  
kao( :, 1, 2,15) = (/&
 & 7.1168e-01_jprb,6.2291e-01_jprb,5.3428e-01_jprb,4.4560e-01_jprb,3.5787e-01_jprb,3.3695e-01_jprb,&
 & 3.3151e-01_jprb,7.1168e-01_jprb,1.0408e+00_jprb/)  
kao( :, 2, 2,15) = (/&
 & 6.7551e-01_jprb,5.8980e-01_jprb,5.0589e-01_jprb,4.2379e-01_jprb,4.5484e-01_jprb,4.7493e-01_jprb,&
 & 4.6615e-01_jprb,6.7551e-01_jprb,1.4628e+00_jprb/)  
kao( :, 3, 2,15) = (/&
 & 6.3979e-01_jprb,5.6002e-01_jprb,4.8033e-01_jprb,5.3992e-01_jprb,6.1725e-01_jprb,6.4789e-01_jprb,&
 & 6.3640e-01_jprb,6.3979e-01_jprb,1.9740e+00_jprb/)  
kao( :, 4, 2,15) = (/&
 & 6.0574e-01_jprb,5.3026e-01_jprb,5.4102e-01_jprb,7.0781e-01_jprb,8.0810e-01_jprb,8.5154e-01_jprb,&
 & 8.3777e-01_jprb,6.0574e-01_jprb,2.5770e+00_jprb/)  
kao( :, 5, 2,15) = (/&
 & 5.7367e-01_jprb,5.0230e-01_jprb,6.8564e-01_jprb,8.9765e-01_jprb,1.0319e+00_jprb,1.0843e+00_jprb,&
 & 1.0692e+00_jprb,5.7367e-01_jprb,3.2665e+00_jprb/)  
kao( :, 1, 3,15) = (/&
 & 7.6206e-01_jprb,6.6694e-01_jprb,5.7209e-01_jprb,4.7696e-01_jprb,3.8092e-01_jprb,3.2070e-01_jprb,&
 & 3.1660e-01_jprb,7.6206e-01_jprb,9.6051e-01_jprb/)  
kao( :, 2, 3,15) = (/&
 & 7.2225e-01_jprb,6.3222e-01_jprb,5.4222e-01_jprb,4.5212e-01_jprb,4.4022e-01_jprb,4.6467e-01_jprb,&
 & 4.5854e-01_jprb,7.2225e-01_jprb,1.3827e+00_jprb/)  
kao( :, 3, 3,15) = (/&
 & 6.8319e-01_jprb,5.9821e-01_jprb,5.1315e-01_jprb,5.2942e-01_jprb,6.1251e-01_jprb,6.4502e-01_jprb,&
 & 6.3732e-01_jprb,6.8319e-01_jprb,1.9060e+00_jprb/)  
kao( :, 4, 3,15) = (/&
 & 6.4520e-01_jprb,5.6501e-01_jprb,5.4637e-01_jprb,7.0565e-01_jprb,8.1836e-01_jprb,8.6755e-01_jprb,&
 & 8.5856e-01_jprb,6.4520e-01_jprb,2.5416e+00_jprb/)  
kao( :, 5, 3,15) = (/&
 & 6.1032e-01_jprb,5.3440e-01_jprb,6.8762e-01_jprb,9.1192e-01_jprb,1.0544e+00_jprb,1.1220e+00_jprb,&
 & 1.1118e+00_jprb,6.1032e-01_jprb,3.2899e+00_jprb/)  
kao( :, 1, 4,15) = (/&
 & 8.1880e-01_jprb,7.1671e-01_jprb,6.1469e-01_jprb,5.1259e-01_jprb,4.1035e-01_jprb,3.0900e-01_jprb,&
 & 2.8774e-01_jprb,8.1880e-01_jprb,8.3214e-01_jprb/)  
kao( :, 2, 4,15) = (/&
 & 7.7244e-01_jprb,6.7627e-01_jprb,5.8000e-01_jprb,4.8371e-01_jprb,4.1707e-01_jprb,4.3611e-01_jprb,&
 & 4.3242e-01_jprb,7.7244e-01_jprb,1.2349e+00_jprb/)  
kao( :, 3, 4,15) = (/&
 & 7.3041e-01_jprb,6.3939e-01_jprb,5.4855e-01_jprb,5.1182e-01_jprb,5.8284e-01_jprb,6.2247e-01_jprb,&
 & 6.1822e-01_jprb,7.3041e-01_jprb,1.7591e+00_jprb/)  
kao( :, 4, 4,15) = (/&
 & 6.8937e-01_jprb,6.0366e-01_jprb,5.5228e-01_jprb,6.8053e-01_jprb,7.9580e-01_jprb,8.4999e-01_jprb,&
 & 8.5210e-01_jprb,6.8937e-01_jprb,2.4071e+00_jprb/)  
kao( :, 5, 4,15) = (/&
 & 6.5021e-01_jprb,5.6936e-01_jprb,6.6656e-01_jprb,8.9418e-01_jprb,1.0485e+00_jprb,1.1290e+00_jprb,&
 & 1.1228e+00_jprb,6.5021e-01_jprb,3.1879e+00_jprb/)  
kao( :, 1, 5,15) = (/&
 & 8.7693e-01_jprb,7.6771e-01_jprb,6.5835e-01_jprb,5.4884e-01_jprb,4.4068e-01_jprb,3.3005e-01_jprb,&
 & 2.5822e-01_jprb,8.7693e-01_jprb,6.9752e-01_jprb/)  
kao( :, 2, 5,15) = (/&
 & 8.2534e-01_jprb,7.2250e-01_jprb,6.1982e-01_jprb,5.1679e-01_jprb,4.1772e-01_jprb,4.0063e-01_jprb,&
 & 4.0196e-01_jprb,8.2534e-01_jprb,1.0779e+00_jprb/)  
kao( :, 3, 5,15) = (/&
 & 7.7811e-01_jprb,6.8129e-01_jprb,5.8442e-01_jprb,5.0960e-01_jprb,5.4382e-01_jprb,5.8808e-01_jprb,&
 & 5.9145e-01_jprb,7.7811e-01_jprb,1.5826e+00_jprb/)  
kao( :, 4, 5,15) = (/&
 & 7.3361e-01_jprb,6.4251e-01_jprb,5.6661e-01_jprb,6.4134e-01_jprb,7.5938e-01_jprb,8.2208e-01_jprb,&
 & 8.2942e-01_jprb,7.3361e-01_jprb,2.2230e+00_jprb/)  
kao( :, 5, 5,15) = (/&
 & 6.9110e-01_jprb,6.0518e-01_jprb,6.5033e-01_jprb,8.5838e-01_jprb,1.0195e+00_jprb,1.1130e+00_jprb,&
 & 1.1201e+00_jprb,6.9110e-01_jprb,3.0082e+00_jprb/)  
kao( :, 1, 6,15) = (/&
 & 9.3756e-01_jprb,8.2068e-01_jprb,7.0383e-01_jprb,5.8672e-01_jprb,4.6972e-01_jprb,3.5270e-01_jprb,&
 & 2.3642e-01_jprb,9.3756e-01_jprb,5.8692e-01_jprb/)  
kao( :, 2, 6,15) = (/&
 & 8.8146e-01_jprb,7.7172e-01_jprb,6.6172e-01_jprb,5.5196e-01_jprb,4.4195e-01_jprb,3.6409e-01_jprb,&
 & 3.5917e-01_jprb,8.8146e-01_jprb,9.0877e-01_jprb/)  
kao( :, 3, 6,15) = (/&
 & 8.2746e-01_jprb,7.2459e-01_jprb,6.2157e-01_jprb,5.2255e-01_jprb,4.9923e-01_jprb,5.3612e-01_jprb,&
 & 5.4635e-01_jprb,8.2746e-01_jprb,1.3807e+00_jprb/)  
kao( :, 4, 6,15) = (/&
 & 7.7986e-01_jprb,6.8286e-01_jprb,5.9009e-01_jprb,6.0449e-01_jprb,7.0052e-01_jprb,7.7068e-01_jprb,&
 & 7.9084e-01_jprb,7.7986e-01_jprb,1.9934e+00_jprb/)  
kao( :, 5, 6,15) = (/&
 & 7.3459e-01_jprb,6.4331e-01_jprb,6.4051e-01_jprb,8.0328e-01_jprb,9.6129e-01_jprb,1.0614e+00_jprb,&
 & 1.0888e+00_jprb,7.3459e-01_jprb,2.7652e+00_jprb/)  
kao( :, 1, 7,15) = (/&
 & 1.0010e+00_jprb,8.7619e-01_jprb,7.5131e-01_jprb,6.2639e-01_jprb,5.0149e-01_jprb,3.7652e-01_jprb,&
 & 2.5149e-01_jprb,1.0010e+00_jprb,5.1478e-01_jprb/)  
kao( :, 2, 7,15) = (/&
 & 9.4042e-01_jprb,8.2317e-01_jprb,7.0607e-01_jprb,5.8870e-01_jprb,4.7134e-01_jprb,3.5775e-01_jprb,&
 & 3.1227e-01_jprb,9.4042e-01_jprb,7.6928e-01_jprb/)  
kao( :, 3, 7,15) = (/&
 & 8.8237e-01_jprb,7.7255e-01_jprb,6.6259e-01_jprb,5.5268e-01_jprb,4.7859e-01_jprb,4.7554e-01_jprb,&
 & 4.9216e-01_jprb,8.8237e-01_jprb,1.1825e+00_jprb/)  
kao( :, 4, 7,15) = (/&
 & 8.2933e-01_jprb,7.2604e-01_jprb,6.2305e-01_jprb,5.8548e-01_jprb,6.3044e-01_jprb,7.0378e-01_jprb,&
 & 7.3153e-01_jprb,8.2933e-01_jprb,1.7634e+00_jprb/)  
kao( :, 5, 7,15) = (/&
 & 7.8131e-01_jprb,6.8426e-01_jprb,6.4094e-01_jprb,7.3798e-01_jprb,8.8857e-01_jprb,9.9138e-01_jprb,&
 & 1.0340e+00_jprb,7.8131e-01_jprb,2.5071e+00_jprb/)  
kao( :, 1, 8,15) = (/&
 & 1.0680e+00_jprb,9.3481e-01_jprb,8.0158e-01_jprb,6.6826e-01_jprb,5.3482e-01_jprb,4.0154e-01_jprb,&
 & 2.6788e-01_jprb,1.0680e+00_jprb,4.6455e-01_jprb/)  
kao( :, 2, 8,15) = (/&
 & 1.0024e+00_jprb,8.7742e-01_jprb,7.5246e-01_jprb,6.2743e-01_jprb,5.0223e-01_jprb,3.7717e-01_jprb,&
 & 2.7719e-01_jprb,1.0024e+00_jprb,6.8110e-01_jprb/)  
kao( :, 3, 8,15) = (/&
 & 9.4024e-01_jprb,8.2314e-01_jprb,7.0609e-01_jprb,5.8881e-01_jprb,4.8025e-01_jprb,4.2864e-01_jprb,&
 & 4.3393e-01_jprb,9.4024e-01_jprb,1.0170e+00_jprb/)  
kao( :, 4, 8,15) = (/&
 & 8.8264e-01_jprb,7.7273e-01_jprb,6.6282e-01_jprb,5.8404e-01_jprb,5.7821e-01_jprb,6.2771e-01_jprb,&
 & 6.6458e-01_jprb,8.8264e-01_jprb,1.5302e+00_jprb/)  
kao( :, 5, 8,15) = (/&
 & 8.3199e-01_jprb,7.2845e-01_jprb,6.5427e-01_jprb,6.8741e-01_jprb,8.0945e-01_jprb,9.0978e-01_jprb,&
 & 9.6418e-01_jprb,8.3199e-01_jprb,2.2337e+00_jprb/)  
kao( :, 1, 9,15) = (/&
 & 1.1381e+00_jprb,9.9610e-01_jprb,8.5409e-01_jprb,7.1197e-01_jprb,5.6977e-01_jprb,4.2770e-01_jprb,&
 & 2.8544e-01_jprb,1.1381e+00_jprb,4.2382e-01_jprb/)  
kao( :, 2, 9,15) = (/&
 & 1.0667e+00_jprb,9.3372e-01_jprb,8.0061e-01_jprb,6.6744e-01_jprb,5.3433e-01_jprb,4.0118e-01_jprb,&
 & 2.6997e-01_jprb,1.0667e+00_jprb,6.1324e-01_jprb/)  
kao( :, 3, 9,15) = (/&
 & 1.0035e+00_jprb,8.7845e-01_jprb,7.5330e-01_jprb,6.2805e-01_jprb,5.0276e-01_jprb,4.0704e-01_jprb,&
 & 3.7170e-01_jprb,1.0035e+00_jprb,9.0055e-01_jprb/)  
kao( :, 4, 9,15) = (/&
 & 9.4646e-01_jprb,8.2850e-01_jprb,7.1051e-01_jprb,6.0313e-01_jprb,5.4959e-01_jprb,5.4972e-01_jprb,&
 & 5.8769e-01_jprb,9.4646e-01_jprb,1.3351e+00_jprb/)  
kao( :, 5, 9,15) = (/&
 & 8.9740e-01_jprb,7.8559e-01_jprb,6.8592e-01_jprb,6.6573e-01_jprb,7.2528e-01_jprb,8.1924e-01_jprb,&
 & 8.7543e-01_jprb,8.9740e-01_jprb,1.9504e+00_jprb/)  
kao( :, 1,10,15) = (/&
 & 1.2073e+00_jprb,1.0565e+00_jprb,9.0576e-01_jprb,7.5488e-01_jprb,6.0419e-01_jprb,4.5329e-01_jprb,&
 & 3.0227e-01_jprb,1.2073e+00_jprb,3.9999e-01_jprb/)  
kao( :, 2,10,15) = (/&
 & 1.1382e+00_jprb,9.9608e-01_jprb,8.5413e-01_jprb,7.1184e-01_jprb,5.6976e-01_jprb,4.2763e-01_jprb,&
 & 2.8536e-01_jprb,1.1382e+00_jprb,5.7883e-01_jprb/)  
kao( :, 3,10,15) = (/&
 & 1.0785e+00_jprb,9.4391e-01_jprb,8.0923e-01_jprb,6.7459e-01_jprb,5.3984e-01_jprb,4.1488e-01_jprb,&
 & 3.3805e-01_jprb,1.0785e+00_jprb,8.3839e-01_jprb/)  
kao( :, 4,10,15) = (/&
 & 1.0278e+00_jprb,8.9961e-01_jprb,7.7127e-01_jprb,6.4730e-01_jprb,5.5430e-01_jprb,5.1106e-01_jprb,&
 & 5.2425e-01_jprb,1.0278e+00_jprb,1.2284e+00_jprb/)  

IF (lhook) CALL dr_hook('RRTM_KGB4:PART10',1,zhook_handle)
END SUBROUTINE part10


SUBROUTINE part11

REAL(KIND=JPRB) :: ZHOOK_HANDLE
IF (lhook) CALL dr_hook('RRTM_KGB4:PART11',0,zhook_handle)


kao( :, 5,10,15) = (/&
 & 9.8618e-01_jprb,8.6326e-01_jprb,7.4679e-01_jprb,6.7988e-01_jprb,6.7637e-01_jprb,7.4989e-01_jprb,&
 & 8.0479e-01_jprb,9.8618e-01_jprb,1.7791e+00_jprb/)  
kao( :, 1,11,15) = (/&
 & 1.2644e+00_jprb,1.1063e+00_jprb,9.4846e-01_jprb,7.9047e-01_jprb,6.3247e-01_jprb,4.7453e-01_jprb,&
 & 3.1659e-01_jprb,1.2644e+00_jprb,7.4298e-01_jprb/)  
kao( :, 2,11,15) = (/&
 & 1.2071e+00_jprb,1.0565e+00_jprb,9.0557e-01_jprb,7.5491e-01_jprb,6.0392e-01_jprb,4.5270e-01_jprb,&
 & 3.0399e-01_jprb,1.2071e+00_jprb,8.1705e-01_jprb/)  
kao( :, 3,11,15) = (/&
 & 1.1615e+00_jprb,1.0165e+00_jprb,8.7147e-01_jprb,7.2637e-01_jprb,5.8138e-01_jprb,4.5624e-01_jprb,&
 & 3.7840e-01_jprb,1.1615e+00_jprb,9.7765e-01_jprb/)  
kao( :, 4,11,15) = (/&
 & 1.1264e+00_jprb,9.8590e-01_jprb,8.4531e-01_jprb,7.1438e-01_jprb,6.1502e-01_jprb,5.6197e-01_jprb,&
 & 5.7803e-01_jprb,1.1264e+00_jprb,1.3520e+00_jprb/)  
kao( :, 5,11,15) = (/&
 & 1.0994e+00_jprb,9.6216e-01_jprb,8.3568e-01_jprb,7.5689e-01_jprb,7.4680e-01_jprb,8.2884e-01_jprb,&
 & 8.8880e-01_jprb,1.0994e+00_jprb,1.9292e+00_jprb/)  
kao( :, 1,12,15) = (/&
 & 1.3647e+00_jprb,1.1941e+00_jprb,1.0237e+00_jprb,8.5312e-01_jprb,6.8264e-01_jprb,5.1188e-01_jprb,&
 & 3.4108e-01_jprb,1.3647e+00_jprb,1.2788e+00_jprb/)  
kao( :, 2,12,15) = (/&
 & 1.3242e+00_jprb,1.1588e+00_jprb,9.9341e-01_jprb,8.2794e-01_jprb,6.6255e-01_jprb,4.9690e-01_jprb,&
 & 3.3841e-01_jprb,1.3242e+00_jprb,1.2778e+00_jprb/)  
kao( :, 3,12,15) = (/&
 & 1.2955e+00_jprb,1.1336e+00_jprb,9.7197e-01_jprb,8.1003e-01_jprb,6.5411e-01_jprb,5.1488e-01_jprb,&
 & 4.3081e-01_jprb,1.2955e+00_jprb,1.3626e+00_jprb/)  
kao( :, 4,12,15) = (/&
 & 1.2745e+00_jprb,1.1153e+00_jprb,9.5614e-01_jprb,8.1202e-01_jprb,6.9456e-01_jprb,6.2323e-01_jprb,&
 & 6.4228e-01_jprb,1.2745e+00_jprb,1.6020e+00_jprb/)  
kao( :, 5,12,15) = (/&
 & 1.2602e+00_jprb,1.1028e+00_jprb,9.6134e-01_jprb,8.5786e-01_jprb,8.3175e-01_jprb,9.1010e-01_jprb,&
 & 9.8660e-01_jprb,1.2602e+00_jprb,2.1013e+00_jprb/)  
kao( :, 1,13,15) = (/&
 & 1.5182e+00_jprb,1.3286e+00_jprb,1.1388e+00_jprb,9.4918e-01_jprb,7.5925e-01_jprb,5.6967e-01_jprb,&
 & 3.7977e-01_jprb,1.5182e+00_jprb,1.8162e+00_jprb/)  
kao( :, 2,13,15) = (/&
 & 1.4954e+00_jprb,1.3087e+00_jprb,1.1217e+00_jprb,9.3496e-01_jprb,7.4798e-01_jprb,5.6069e-01_jprb,&
 & 3.8653e-01_jprb,1.4954e+00_jprb,1.7757e+00_jprb/)  
kao( :, 3,13,15) = (/&
 & 1.4806e+00_jprb,1.2956e+00_jprb,1.1104e+00_jprb,9.2545e-01_jprb,7.5238e-01_jprb,5.8983e-01_jprb,&
 & 4.8997e-01_jprb,1.4806e+00_jprb,1.8395e+00_jprb/)  
kao( :, 4,13,15) = (/&
 & 1.4707e+00_jprb,1.2870e+00_jprb,1.1033e+00_jprb,9.3978e-01_jprb,7.9436e-01_jprb,6.9884e-01_jprb,&
 & 7.1743e-01_jprb,1.4707e+00_jprb,1.9733e+00_jprb/)  
kao( :, 5,13,15) = (/&
 & 1.4617e+00_jprb,1.2790e+00_jprb,1.1197e+00_jprb,9.8344e-01_jprb,9.3195e-01_jprb,9.9536e-01_jprb,&
 & 1.0841e+00_jprb,1.4617e+00_jprb,2.3960e+00_jprb/)  
kao( :, 1, 1,16) = (/&
 & 6.7204e-01_jprb,5.8835e-01_jprb,4.9493e-01_jprb,4.2075e-01_jprb,3.2404e-01_jprb,3.2835e-01_jprb,&
 & 3.1694e-01_jprb,6.7204e-01_jprb,1.1553e+00_jprb/)  
kao( :, 2, 1,16) = (/&
 & 6.3886e-01_jprb,5.4837e-01_jprb,4.7048e-01_jprb,4.0570e-01_jprb,4.5211e-01_jprb,4.4664e-01_jprb,&
 & 4.2417e-01_jprb,6.3887e-01_jprb,1.6108e+00_jprb/)  
kao( :, 3, 1,16) = (/&
 & 6.0571e-01_jprb,5.3024e-01_jprb,4.5482e-01_jprb,5.4623e-01_jprb,6.0722e-01_jprb,6.1523e-01_jprb,&
 & 6.0675e-01_jprb,6.0571e-01_jprb,2.1229e+00_jprb/)  
kao( :, 4, 1,16) = (/&
 & 5.7537e-01_jprb,5.0361e-01_jprb,5.5977e-01_jprb,6.9780e-01_jprb,7.7428e-01_jprb,7.8387e-01_jprb,&
 & 7.5743e-01_jprb,5.7537e-01_jprb,2.8238e+00_jprb/)  
kao( :, 5, 1,16) = (/&
 & 5.4532e-01_jprb,4.7762e-01_jprb,7.0785e-01_jprb,8.9753e-01_jprb,9.9932e-01_jprb,1.0137e+00_jprb,&
 & 1.0005e+00_jprb,5.4532e-01_jprb,3.5639e+00_jprb/)  
kao( :, 1, 2,16) = (/&
 & 7.1419e-01_jprb,6.2513e-01_jprb,5.3613e-01_jprb,4.4716e-01_jprb,3.5137e-01_jprb,3.4275e-01_jprb,&
 & 3.2618e-01_jprb,7.1419e-01_jprb,1.2386e+00_jprb/)  
kao( :, 2, 2,16) = (/&
 & 6.7776e-01_jprb,5.9352e-01_jprb,5.0900e-01_jprb,4.3513e-01_jprb,4.7304e-01_jprb,4.9853e-01_jprb,&
 & 4.7175e-01_jprb,6.7776e-01_jprb,1.7603e+00_jprb/)  
kao( :, 3, 2,16) = (/&
 & 6.4195e-01_jprb,5.6188e-01_jprb,4.8194e-01_jprb,5.9011e-01_jprb,6.5773e-01_jprb,6.7703e-01_jprb,&
 & 6.5466e-01_jprb,6.4195e-01_jprb,2.4018e+00_jprb/)  
kao( :, 4, 2,16) = (/&
 & 6.0760e-01_jprb,5.3187e-01_jprb,6.1665e-01_jprb,7.6305e-01_jprb,8.6650e-01_jprb,8.7779e-01_jprb,&
 & 8.4546e-01_jprb,6.0760e-01_jprb,3.1623e+00_jprb/)  
kao( :, 5, 2,16) = (/&
 & 5.7557e-01_jprb,5.0389e-01_jprb,7.8645e-01_jprb,9.9605e-01_jprb,1.1101e+00_jprb,1.1441e+00_jprb,&
 & 1.0872e+00_jprb,5.7557e-01_jprb,4.0554e+00_jprb/)  
kao( :, 1, 3,16) = (/&
 & 7.6539e-01_jprb,6.6993e-01_jprb,5.7468e-01_jprb,4.7908e-01_jprb,3.8366e-01_jprb,3.3164e-01_jprb,&
 & 3.1419e-01_jprb,7.6539e-01_jprb,1.2218e+00_jprb/)  
kao( :, 2, 3,16) = (/&
 & 7.2520e-01_jprb,6.3496e-01_jprb,5.4460e-01_jprb,4.5403e-01_jprb,4.7919e-01_jprb,4.8518e-01_jprb,&
 & 4.6775e-01_jprb,7.2520e-01_jprb,1.7874e+00_jprb/)  
kao( :, 3, 3,16) = (/&
 & 6.8607e-01_jprb,6.0066e-01_jprb,5.1535e-01_jprb,6.0192e-01_jprb,6.5742e-01_jprb,6.8742e-01_jprb,&
 & 6.6482e-01_jprb,6.8607e-01_jprb,2.4947e+00_jprb/)  
kao( :, 4, 3,16) = (/&
 & 6.4786e-01_jprb,5.6724e-01_jprb,6.3678e-01_jprb,8.0813e-01_jprb,8.8359e-01_jprb,9.1109e-01_jprb,&
 & 8.7792e-01_jprb,6.4786e-01_jprb,3.3575e+00_jprb/)  
kao( :, 5, 3,16) = (/&
 & 6.1260e-01_jprb,5.3649e-01_jprb,8.2910e-01_jprb,1.0492e+00_jprb,1.1703e+00_jprb,1.2063e+00_jprb,&
 & 1.1675e+00_jprb,6.1260e-01_jprb,4.3791e+00_jprb/)  
kao( :, 1, 4,16) = (/&
 & 8.2264e-01_jprb,7.2018e-01_jprb,6.1760e-01_jprb,5.1504e-01_jprb,4.1228e-01_jprb,3.1403e-01_jprb,&
 & 3.0330e-01_jprb,8.2264e-01_jprb,1.1500e+00_jprb/)  
kao( :, 2, 4,16) = (/&
 & 7.7591e-01_jprb,6.7905e-01_jprb,5.8222e-01_jprb,4.8587e-01_jprb,4.6170e-01_jprb,4.7497e-01_jprb,&
 & 4.5862e-01_jprb,7.7591e-01_jprb,1.7280e+00_jprb/)  
kao( :, 3, 4,16) = (/&
 & 7.3290e-01_jprb,6.4193e-01_jprb,5.5048e-01_jprb,5.9279e-01_jprb,6.6051e-01_jprb,6.8079e-01_jprb,&
 & 6.5994e-01_jprb,7.3290e-01_jprb,2.4901e+00_jprb/)  
kao( :, 4, 4,16) = (/&
 & 6.9170e-01_jprb,6.0563e-01_jprb,6.4428e-01_jprb,8.1421e-01_jprb,9.0809e-01_jprb,9.3805e-01_jprb,&
 & 8.9044e-01_jprb,6.9170e-01_jprb,3.4202e+00_jprb/)  
kao( :, 5, 4,16) = (/&
 & 6.5200e-01_jprb,5.7086e-01_jprb,8.5544e-01_jprb,1.0841e+00_jprb,1.2072e+00_jprb,1.2191e+00_jprb,&
 & 1.2042e+00_jprb,6.5200e-01_jprb,4.5618e+00_jprb/)  
kao( :, 1, 5,16) = (/&
 & 8.8181e-01_jprb,7.7179e-01_jprb,6.6204e-01_jprb,5.5199e-01_jprb,4.3343e-01_jprb,3.3186e-01_jprb,&
 & 2.7727e-01_jprb,8.8181e-01_jprb,1.0520e+00_jprb/)  
kao( :, 2, 5,16) = (/&
 & 8.2952e-01_jprb,7.2638e-01_jprb,6.2324e-01_jprb,5.1947e-01_jprb,4.3588e-01_jprb,4.4832e-01_jprb,&
 & 4.3512e-01_jprb,8.2952e-01_jprb,1.6494e+00_jprb/)  
kao( :, 3, 5,16) = (/&
 & 7.8170e-01_jprb,6.8471e-01_jprb,5.8732e-01_jprb,5.7928e-01_jprb,6.4579e-01_jprb,6.6360e-01_jprb,&
 & 6.4439e-01_jprb,7.8170e-01_jprb,2.4300e+00_jprb/)  
kao( :, 4, 5,16) = (/&
 & 7.3700e-01_jprb,6.4559e-01_jprb,6.4470e-01_jprb,8.1536e-01_jprb,9.1269e-01_jprb,9.3873e-01_jprb,&
 & 9.0753e-01_jprb,7.3700e-01_jprb,3.4492e+00_jprb/)  
kao( :, 5, 5,16) = (/&
 & 6.9437e-01_jprb,6.0807e-01_jprb,8.7385e-01_jprb,1.1073e+00_jprb,1.2374e+00_jprb,1.2510e+00_jprb,&
 & 1.2316e+00_jprb,6.9437e-01_jprb,4.6799e+00_jprb/)  
kao( :, 1, 6,16) = (/&
 & 9.4656e-01_jprb,8.2884e-01_jprb,7.1064e-01_jprb,5.9233e-01_jprb,4.7420e-01_jprb,3.5608e-01_jprb,&
 & 2.4362e-01_jprb,9.4656e-01_jprb,9.2837e-01_jprb/)  
kao( :, 2, 6,16) = (/&
 & 8.9042e-01_jprb,7.7970e-01_jprb,6.6875e-01_jprb,5.5799e-01_jprb,4.4670e-01_jprb,4.1251e-01_jprb,&
 & 4.0025e-01_jprb,8.9042e-01_jprb,1.5112e+00_jprb/)  
kao( :, 3, 6,16) = (/&
 & 8.3666e-01_jprb,7.3284e-01_jprb,6.2869e-01_jprb,5.5096e-01_jprb,6.1404e-01_jprb,6.3375e-01_jprb,&
 & 6.1412e-01_jprb,8.3666e-01_jprb,2.3236e+00_jprb/)  
kao( :, 4, 6,16) = (/&
 & 7.8888e-01_jprb,6.9101e-01_jprb,6.2966e-01_jprb,7.9961e-01_jprb,8.9414e-01_jprb,9.2254e-01_jprb,&
 & 8.7581e-01_jprb,7.8888e-01_jprb,3.3711e+00_jprb/)  
kao( :, 5, 6,16) = (/&
 & 7.4306e-01_jprb,6.5113e-01_jprb,8.7601e-01_jprb,1.1131e+00_jprb,1.2418e+00_jprb,1.2838e+00_jprb,&
 & 1.2412e+00_jprb,7.4306e-01_jprb,4.6947e+00_jprb/)  
kao( :, 1, 7,16) = (/&
 & 1.0141e+00_jprb,8.8774e-01_jprb,7.6121e-01_jprb,6.3477e-01_jprb,5.0825e-01_jprb,3.8150e-01_jprb,&
 & 2.5476e-01_jprb,1.0141e+00_jprb,7.9663e-01_jprb/)  
kao( :, 2, 7,16) = (/&
 & 9.5399e-01_jprb,8.3513e-01_jprb,7.1620e-01_jprb,5.9743e-01_jprb,4.7818e-01_jprb,3.7373e-01_jprb,&
 & 3.6192e-01_jprb,9.5399e-01_jprb,1.3655e+00_jprb/)  
kao( :, 3, 7,16) = (/&
 & 8.9634e-01_jprb,7.8499e-01_jprb,6.7347e-01_jprb,5.6171e-01_jprb,5.7673e-01_jprb,5.9473e-01_jprb,&
 & 5.7642e-01_jprb,8.9634e-01_jprb,2.1680e+00_jprb/)  
kao( :, 4, 7,16) = (/&
 & 8.4326e-01_jprb,7.3869e-01_jprb,6.3388e-01_jprb,7.7423e-01_jprb,8.6537e-01_jprb,8.9227e-01_jprb,&
 & 8.6433e-01_jprb,8.4326e-01_jprb,3.2604e+00_jprb/)  
kao( :, 5, 7,16) = (/&
 & 7.9491e-01_jprb,6.9647e-01_jprb,8.6797e-01_jprb,1.1053e+00_jprb,1.2365e+00_jprb,1.2774e+00_jprb,&
 & 1.2375e+00_jprb,7.9491e-01_jprb,4.6484e+00_jprb/)  
kao( :, 1, 8,16) = (/&
 & 1.0826e+00_jprb,9.4750e-01_jprb,8.1241e-01_jprb,6.7724e-01_jprb,5.4220e-01_jprb,4.0687e-01_jprb,&
 & 2.7135e-01_jprb,1.0826e+00_jprb,6.7305e-01_jprb/)  
kao( :, 2, 8,16) = (/&
 & 1.0187e+00_jprb,8.9193e-01_jprb,7.6505e-01_jprb,6.3785e-01_jprb,5.1061e-01_jprb,3.8339e-01_jprb,&
 & 3.2268e-01_jprb,1.0187e+00_jprb,1.2085e+00_jprb/)  
kao( :, 3, 8,16) = (/&
 & 9.5858e-01_jprb,8.3946e-01_jprb,7.2017e-01_jprb,6.0051e-01_jprb,5.3532e-01_jprb,5.5217e-01_jprb,&
 & 5.3452e-01_jprb,9.5858e-01_jprb,2.0055e+00_jprb/)  
kao( :, 4, 8,16) = (/&
 & 9.0233e-01_jprb,7.9038e-01_jprb,6.7816e-01_jprb,7.4178e-01_jprb,8.2987e-01_jprb,8.5828e-01_jprb,&
 & 8.2989e-01_jprb,9.0233e-01_jprb,3.1045e+00_jprb/)  
kao( :, 5, 8,16) = (/&
 & 8.5134e-01_jprb,7.4583e-01_jprb,8.5421e-01_jprb,1.0895e+00_jprb,1.2207e+00_jprb,1.2603e+00_jprb,&
 & 1.2206e+00_jprb,8.5134e-01_jprb,4.5597e+00_jprb/)  
kao( :, 1, 9,16) = (/&
 & 1.1564e+00_jprb,1.0121e+00_jprb,8.6800e-01_jprb,7.2367e-01_jprb,5.7876e-01_jprb,4.3457e-01_jprb,&
 & 2.8981e-01_jprb,1.1564e+00_jprb,5.5525e-01_jprb/)  
kao( :, 2, 9,16) = (/&
 & 1.0903e+00_jprb,9.5491e-01_jprb,8.1871e-01_jprb,6.8281e-01_jprb,5.4658e-01_jprb,4.0983e-01_jprb,&
 & 2.8183e-01_jprb,1.0903e+00_jprb,1.0488e+00_jprb/)  
kao( :, 3, 9,16) = (/&
 & 1.0293e+00_jprb,9.0147e-01_jprb,7.7309e-01_jprb,6.4495e-01_jprb,5.1624e-01_jprb,5.0522e-01_jprb,&
 & 4.8904e-01_jprb,1.0293e+00_jprb,1.8131e+00_jprb/)  
kao( :, 4, 9,16) = (/&
 & 9.7173e-01_jprb,8.5120e-01_jprb,7.3048e-01_jprb,7.0120e-01_jprb,7.8672e-01_jprb,8.1370e-01_jprb,&
 & 7.8991e-01_jprb,9.7173e-01_jprb,2.9196e+00_jprb/)  
kao( :, 5, 9,16) = (/&
 & 9.1923e-01_jprb,8.0514e-01_jprb,8.3021e-01_jprb,1.0615e+00_jprb,1.1921e+00_jprb,1.2331e+00_jprb,&
 & 1.1982e+00_jprb,9.1923e-01_jprb,4.4066e+00_jprb/)  
kao( :, 1,10,16) = (/&
 & 1.2374e+00_jprb,1.0830e+00_jprb,9.2878e-01_jprb,7.7400e-01_jprb,6.1971e-01_jprb,4.6496e-01_jprb,&
 & 3.0999e-01_jprb,1.2374e+00_jprb,5.8062e-01_jprb/)  
kao( :, 2,10,16) = (/&
 & 1.1711e+00_jprb,1.0252e+00_jprb,8.7935e-01_jprb,7.3302e-01_jprb,5.8682e-01_jprb,4.4044e-01_jprb,&
 & 2.9397e-01_jprb,1.1711e+00_jprb,9.3348e-01_jprb/)  
kao( :, 3,10,16) = (/&
 & 1.1097e+00_jprb,9.7179e-01_jprb,8.3349e-01_jprb,6.9517e-01_jprb,5.5660e-01_jprb,4.7411e-01_jprb,&
 & 4.6026e-01_jprb,1.1097e+00_jprb,1.6848e+00_jprb/)  
kao( :, 4,10,16) = (/&
 & 1.0572e+00_jprb,9.2545e-01_jprb,7.9343e-01_jprb,6.8000e-01_jprb,7.6310e-01_jprb,7.9077e-01_jprb,&
 & 7.6860e-01_jprb,1.0572e+00_jprb,2.7940e+00_jprb/)  
kao( :, 5,10,16) = (/&
 & 1.0175e+00_jprb,8.9035e-01_jprb,8.2349e-01_jprb,1.0563e+00_jprb,1.1865e+00_jprb,1.2328e+00_jprb,&
 & 1.1994e+00_jprb,1.0175e+00_jprb,4.3373e+00_jprb/)  
kao( :, 1,11,16) = (/&
 & 1.3078e+00_jprb,1.1446e+00_jprb,9.8121e-01_jprb,8.1822e-01_jprb,6.5451e-01_jprb,4.9148e-01_jprb,&
 & 3.2796e-01_jprb,1.3078e+00_jprb,8.7955e-01_jprb/)  
kao( :, 2,11,16) = (/&
 & 1.2495e+00_jprb,1.0937e+00_jprb,9.3769e-01_jprb,7.8176e-01_jprb,6.2549e-01_jprb,4.6880e-01_jprb,&
 & 3.1026e-01_jprb,1.2495e+00_jprb,1.1103e+00_jprb/)  
kao( :, 3,11,16) = (/&
 & 1.2067e+00_jprb,1.0559e+00_jprb,9.0509e-01_jprb,7.5401e-01_jprb,6.0340e-01_jprb,5.7377e-01_jprb,&
 & 5.5854e-01_jprb,1.2067e+00_jprb,1.9965e+00_jprb/)  
kao( :, 4,11,16) = (/&
 & 1.1748e+00_jprb,1.0281e+00_jprb,8.8102e-01_jprb,8.1540e-01_jprb,9.2020e-01_jprb,9.5681e-01_jprb,&
 & 9.3190e-01_jprb,1.1748e+00_jprb,3.3092e+00_jprb/)  
kao( :, 5,11,16) = (/&
 & 1.1528e+00_jprb,1.0088e+00_jprb,9.8178e-01_jprb,1.2680e+00_jprb,1.4334e+00_jprb,1.4913e+00_jprb,&
 & 1.4507e+00_jprb,1.1528e+00_jprb,5.1215e+00_jprb/)  
kao( :, 1,12,16) = (/&
 & 1.4264e+00_jprb,1.2483e+00_jprb,1.0700e+00_jprb,8.9156e-01_jprb,7.1342e-01_jprb,5.3490e-01_jprb,&
 & 3.5601e-01_jprb,1.4264e+00_jprb,1.5795e+00_jprb/)  
kao( :, 2,12,16) = (/&
 & 1.3956e+00_jprb,1.2210e+00_jprb,1.0467e+00_jprb,8.7214e-01_jprb,6.9777e-01_jprb,5.2320e-01_jprb,&
 & 3.7423e-01_jprb,1.3956e+00_jprb,1.5601e+00_jprb/)  
kao( :, 3,12,16) = (/&
 & 1.3711e+00_jprb,1.1997e+00_jprb,1.0285e+00_jprb,8.5684e-01_jprb,6.8534e-01_jprb,6.9284e-01_jprb,&
 & 6.7781e-01_jprb,1.3711e+00_jprb,2.3512e+00_jprb/)  
kao( :, 4,12,16) = (/&
 & 1.3565e+00_jprb,1.1870e+00_jprb,1.0173e+00_jprb,9.7613e-01_jprb,1.1079e+00_jprb,1.1568e+00_jprb,&
 & 1.1307e+00_jprb,1.3565e+00_jprb,3.8814e+00_jprb/)  
kao( :, 5,12,16) = (/&
 & 1.3408e+00_jprb,1.1733e+00_jprb,1.1680e+00_jprb,1.5162e+00_jprb,1.7205e+00_jprb,1.8012e+00_jprb,&
 & 1.7627e+00_jprb,1.3408e+00_jprb,5.9949e+00_jprb/)  
kao( :, 1,13,16) = (/&
 & 1.6257e+00_jprb,1.4225e+00_jprb,1.2194e+00_jprb,1.0160e+00_jprb,8.1283e-01_jprb,6.0965e-01_jprb,&
 & 4.0604e-01_jprb,1.6257e+00_jprb,2.2989e+00_jprb/)  
kao( :, 2,13,16) = (/&
 & 1.6092e+00_jprb,1.4081e+00_jprb,1.2069e+00_jprb,1.0056e+00_jprb,8.0424e-01_jprb,6.0284e-01_jprb,&
 & 4.5252e-01_jprb,1.6092e+00_jprb,2.2727e+00_jprb/)  
kao( :, 3,13,16) = (/&
 & 1.6030e+00_jprb,1.4026e+00_jprb,1.2019e+00_jprb,1.0013e+00_jprb,8.1602e-01_jprb,8.3675e-01_jprb,&
 & 8.2085e-01_jprb,1.6030e+00_jprb,2.7443e+00_jprb/)  
kao( :, 4,13,16) = (/&
 & 1.5933e+00_jprb,1.3941e+00_jprb,1.1949e+00_jprb,1.1601e+00_jprb,1.3266e+00_jprb,1.3927e+00_jprb,&
 & 1.3677e+00_jprb,1.5933e+00_jprb,4.4922e+00_jprb/)  
kao( :, 5,13,16) = (/&
 & 1.5870e+00_jprb,1.3885e+00_jprb,1.3769e+00_jprb,1.7994e+00_jprb,2.0601e+00_jprb,2.1667e+00_jprb,&
 & 2.1254e+00_jprb,1.5870e+00_jprb,6.9188e+00_jprb/)  

!     The array KBO contains absorption coefs for each of the 16 g-intervals
!     for a range of pressure levels  < ~100mb, temperatures, and ratios
!     of O3 to CO2.  The first index in the array, JS, runs from 1 to 6, 
!     and corresponds to different O3 to CO2 ratios, as expressed through 
!     the binary species parameter eta, defined as eta = O3/(O3+RAT*H2O), 
!     where RAT is the ratio of the integrated line strength in the band 
!     of CO2 to that of O3.  For instance, JS=1 refers to no O3 (eta = 0) 
!     and JS = 5 corresponds to eta = 1.0.  The second index, JT, which
!     runs from 1 to 5, corresponds to different temperatures.  More 
!     specifically, JT = 3 means that the data are for the corresponding 
!     reference temperature TREF for this  pressure level, JT = 2 refers 
!     to the TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and
!     JT = 5 is for TREF+30.  The third index, JP, runs from 13 to 59 and
!     refers to the corresponding pressure level in PREF (e.g. JP = 13 is
!     for a pressure of 95.5835 mb).  The fourth index, IG, goes from 1 to
!     16, and tells us which g-interval the absorption coefficients are for.

kbo( :, 1,13, 1) = (/&
 & 1.0590e-03_jprb,1.1708e-03_jprb,6.1804e-03_jprb,8.3851e-03_jprb,9.8401e-03_jprb,1.0650e-02_jprb/)  
kbo( :, 2,13, 1) = (/&
 & 1.2737e-03_jprb,1.3921e-03_jprb,6.7837e-03_jprb,9.1802e-03_jprb,1.0724e-02_jprb,1.1694e-02_jprb/)  
kbo( :, 3,13, 1) = (/&
 & 1.4928e-03_jprb,1.6167e-03_jprb,7.3037e-03_jprb,9.8097e-03_jprb,1.1413e-02_jprb,1.2559e-02_jprb/)  
kbo( :, 4,13, 1) = (/&
 & 1.7101e-03_jprb,1.8380e-03_jprb,7.7361e-03_jprb,1.0305e-02_jprb,1.1932e-02_jprb,1.3252e-02_jprb/)  
kbo( :, 5,13, 1) = (/&
 & 1.9268e-03_jprb,2.0574e-03_jprb,8.1040e-03_jprb,1.0709e-02_jprb,1.2321e-02_jprb,1.3787e-02_jprb/)  
kbo( :, 1,14, 1) = (/&
 & 8.9853e-04_jprb,1.0053e-03_jprb,5.2612e-03_jprb,7.1257e-03_jprb,8.3170e-03_jprb,8.6277e-03_jprb/)  
kbo( :, 2,14, 1) = (/&
 & 1.0785e-03_jprb,1.1914e-03_jprb,5.7513e-03_jprb,7.7564e-03_jprb,9.0118e-03_jprb,9.3819e-03_jprb/)  
kbo( :, 3,14, 1) = (/&
 & 1.2591e-03_jprb,1.3782e-03_jprb,6.1715e-03_jprb,8.2478e-03_jprb,9.5484e-03_jprb,9.9996e-03_jprb/)  
kbo( :, 4,14, 1) = (/&
 & 1.4397e-03_jprb,1.5627e-03_jprb,6.5193e-03_jprb,8.6487e-03_jprb,9.9620e-03_jprb,1.0485e-02_jprb/)  
kbo( :, 5,14, 1) = (/&
 & 1.6201e-03_jprb,1.7459e-03_jprb,6.8165e-03_jprb,8.9827e-03_jprb,1.0273e-02_jprb,1.0855e-02_jprb/)  
kbo( :, 1,15, 1) = (/&
 & 7.6248e-04_jprb,8.6279e-04_jprb,4.4557e-03_jprb,6.0207e-03_jprb,6.9896e-03_jprb,7.0236e-03_jprb/)  
kbo( :, 2,15, 1) = (/&
 & 9.1117e-04_jprb,1.0180e-03_jprb,4.8561e-03_jprb,6.5127e-03_jprb,7.5369e-03_jprb,7.5846e-03_jprb/)  
kbo( :, 3,15, 1) = (/&
 & 1.0596e-03_jprb,1.1723e-03_jprb,5.1898e-03_jprb,6.9089e-03_jprb,7.9643e-03_jprb,8.0325e-03_jprb/)  
kbo( :, 4,15, 1) = (/&
 & 1.2094e-03_jprb,1.3263e-03_jprb,5.4734e-03_jprb,7.2380e-03_jprb,8.2957e-03_jprb,8.3723e-03_jprb/)  

IF (lhook) CALL dr_hook('RRTM_KGB4:PART11',1,zhook_handle)
END SUBROUTINE part11


SUBROUTINE part12

REAL(KIND=JPRB) :: ZHOOK_HANDLE
IF (lhook) CALL dr_hook('RRTM_KGB4:PART12',0,zhook_handle)


kbo( :, 5,15, 1) = (/&
 & 1.3603e-03_jprb,1.4802e-03_jprb,5.7085e-03_jprb,7.5104e-03_jprb,8.5497e-03_jprb,8.6178e-03_jprb/)  
kbo( :, 1,16, 1) = (/&
 & 6.4558e-04_jprb,7.3804e-04_jprb,3.7596e-03_jprb,5.0589e-03_jprb,5.8485e-03_jprb,5.7705e-03_jprb/)  
kbo( :, 2,16, 1) = (/&
 & 7.6748e-04_jprb,8.6612e-04_jprb,4.0796e-03_jprb,5.4496e-03_jprb,6.2858e-03_jprb,6.2010e-03_jprb/)  
kbo( :, 3,16, 1) = (/&
 & 8.9029e-04_jprb,9.9466e-04_jprb,4.3523e-03_jprb,5.7735e-03_jprb,6.6286e-03_jprb,6.5375e-03_jprb/)  
kbo( :, 4,16, 1) = (/&
 & 1.0154e-03_jprb,1.1242e-03_jprb,4.5767e-03_jprb,6.0430e-03_jprb,6.8981e-03_jprb,6.7855e-03_jprb/)  
kbo( :, 5,16, 1) = (/&
 & 1.1412e-03_jprb,1.2532e-03_jprb,4.7673e-03_jprb,6.2610e-03_jprb,7.1083e-03_jprb,6.9585e-03_jprb/)  
kbo( :, 1,17, 1) = (/&
 & 5.4461e-04_jprb,6.2792e-04_jprb,3.1575e-03_jprb,4.2329e-03_jprb,4.8773e-03_jprb,4.7433e-03_jprb/)  
kbo( :, 2,17, 1) = (/&
 & 6.4498e-04_jprb,7.3395e-04_jprb,3.4178e-03_jprb,4.5500e-03_jprb,5.2291e-03_jprb,5.0778e-03_jprb/)  
kbo( :, 3,17, 1) = (/&
 & 7.4677e-04_jprb,8.4137e-04_jprb,3.6368e-03_jprb,4.8153e-03_jprb,5.5080e-03_jprb,5.3328e-03_jprb/)  
kbo( :, 4,17, 1) = (/&
 & 8.5117e-04_jprb,9.5016e-04_jprb,3.8176e-03_jprb,5.0337e-03_jprb,5.7279e-03_jprb,5.5173e-03_jprb/)  
kbo( :, 5,17, 1) = (/&
 & 9.5670e-04_jprb,1.0591e-03_jprb,3.9736e-03_jprb,5.2057e-03_jprb,5.9001e-03_jprb,5.6411e-03_jprb/)  
kbo( :, 1,18, 1) = (/&
 & 4.5831e-04_jprb,5.3207e-04_jprb,2.6453e-03_jprb,3.5350e-03_jprb,4.0595e-03_jprb,3.9025e-03_jprb/)  
kbo( :, 2,18, 1) = (/&
 & 5.4148e-04_jprb,6.2048e-04_jprb,2.8564e-03_jprb,3.7920e-03_jprb,4.3430e-03_jprb,4.1638e-03_jprb/)  
kbo( :, 3,18, 1) = (/&
 & 6.2620e-04_jprb,7.1046e-04_jprb,3.0316e-03_jprb,4.0093e-03_jprb,4.5705e-03_jprb,4.3594e-03_jprb/)  
kbo( :, 4,18, 1) = (/&
 & 7.1296e-04_jprb,8.0140e-04_jprb,3.1785e-03_jprb,4.1822e-03_jprb,4.7500e-03_jprb,4.4993e-03_jprb/)  
kbo( :, 5,18, 1) = (/&
 & 8.0117e-04_jprb,8.9283e-04_jprb,3.3073e-03_jprb,4.3215e-03_jprb,4.8888e-03_jprb,4.5891e-03_jprb/)  
kbo( :, 1,19, 1) = (/&
 & 3.8494e-04_jprb,4.4957e-04_jprb,2.2130e-03_jprb,2.9470e-03_jprb,3.3734e-03_jprb,3.2052e-03_jprb/)  
kbo( :, 2,19, 1) = (/&
 & 4.5392e-04_jprb,5.2326e-04_jprb,2.3822e-03_jprb,3.1567e-03_jprb,3.6037e-03_jprb,3.4087e-03_jprb/)  
kbo( :, 3,19, 1) = (/&
 & 5.2442e-04_jprb,5.9860e-04_jprb,2.5231e-03_jprb,3.3307e-03_jprb,3.7894e-03_jprb,3.5584e-03_jprb/)  
kbo( :, 4,19, 1) = (/&
 & 5.9668e-04_jprb,6.7462e-04_jprb,2.6423e-03_jprb,3.4702e-03_jprb,3.9343e-03_jprb,3.6638e-03_jprb/)  
kbo( :, 5,19, 1) = (/&
 & 6.7047e-04_jprb,7.5133e-04_jprb,2.7479e-03_jprb,3.5833e-03_jprb,4.0439e-03_jprb,3.7286e-03_jprb/)  
kbo( :, 1,20, 1) = (/&
 & 3.2391e-04_jprb,3.8002e-04_jprb,1.8505e-03_jprb,2.4575e-03_jprb,2.8045e-03_jprb,2.6400e-03_jprb/)  
kbo( :, 2,20, 1) = (/&
 & 3.8111e-04_jprb,4.4150e-04_jprb,1.9855e-03_jprb,2.6268e-03_jprb,2.9913e-03_jprb,2.7980e-03_jprb/)  
kbo( :, 3,20, 1) = (/&
 & 4.3985e-04_jprb,5.0438e-04_jprb,2.0980e-03_jprb,2.7657e-03_jprb,3.1412e-03_jprb,2.9140e-03_jprb/)  
kbo( :, 4,20, 1) = (/&
 & 5.0012e-04_jprb,5.6796e-04_jprb,2.1952e-03_jprb,2.8783e-03_jprb,3.2557e-03_jprb,2.9937e-03_jprb/)  
kbo( :, 5,20, 1) = (/&
 & 5.6151e-04_jprb,6.3169e-04_jprb,2.2834e-03_jprb,2.9700e-03_jprb,3.3427e-03_jprb,3.0410e-03_jprb/)  
kbo( :, 1,21, 1) = (/&
 & 2.7240e-04_jprb,3.2071e-04_jprb,1.5442e-03_jprb,2.0481e-03_jprb,2.3310e-03_jprb,2.1748e-03_jprb/)  
kbo( :, 2,21, 1) = (/&
 & 3.1992e-04_jprb,3.7200e-04_jprb,1.6519e-03_jprb,2.1831e-03_jprb,2.4822e-03_jprb,2.2984e-03_jprb/)  
kbo( :, 3,21, 1) = (/&
 & 3.6883e-04_jprb,4.2432e-04_jprb,1.7430e-03_jprb,2.2945e-03_jprb,2.6004e-03_jprb,2.3880e-03_jprb/)  
kbo( :, 4,21, 1) = (/&
 & 4.1890e-04_jprb,4.7736e-04_jprb,1.8230e-03_jprb,2.3849e-03_jprb,2.6916e-03_jprb,2.4483e-03_jprb/)  
kbo( :, 5,21, 1) = (/&
 & 4.7018e-04_jprb,5.3020e-04_jprb,1.8963e-03_jprb,2.4601e-03_jprb,2.7620e-03_jprb,2.4834e-03_jprb/)  
kbo( :, 1,22, 1) = (/&
 & 2.3153e-04_jprb,2.7303e-04_jprb,1.2915e-03_jprb,1.7120e-03_jprb,1.9456e-03_jprb,1.7989e-03_jprb/)  
kbo( :, 2,22, 1) = (/&
 & 2.7103e-04_jprb,3.1578e-04_jprb,1.3773e-03_jprb,1.8187e-03_jprb,2.0643e-03_jprb,1.8940e-03_jprb/)  
kbo( :, 3,22, 1) = (/&
 & 3.1187e-04_jprb,3.5947e-04_jprb,1.4512e-03_jprb,1.9068e-03_jprb,2.1566e-03_jprb,1.9615e-03_jprb/)  
kbo( :, 4,22, 1) = (/&
 & 3.5350e-04_jprb,4.0345e-04_jprb,1.5172e-03_jprb,1.9794e-03_jprb,2.2288e-03_jprb,2.0059e-03_jprb/)  
kbo( :, 5,22, 1) = (/&
 & 3.9619e-04_jprb,4.4713e-04_jprb,1.5771e-03_jprb,2.0415e-03_jprb,2.2843e-03_jprb,2.0310e-03_jprb/)  
kbo( :, 1,23, 1) = (/&
 & 1.9680e-04_jprb,2.3224e-04_jprb,1.0785e-03_jprb,1.4288e-03_jprb,1.6223e-03_jprb,1.4871e-03_jprb/)  
kbo( :, 2,23, 1) = (/&
 & 2.2970e-04_jprb,2.6791e-04_jprb,1.1474e-03_jprb,1.5138e-03_jprb,1.7153e-03_jprb,1.5600e-03_jprb/)  
kbo( :, 3,23, 1) = (/&
 & 2.6356e-04_jprb,3.0411e-04_jprb,1.2075e-03_jprb,1.5839e-03_jprb,1.7875e-03_jprb,1.6111e-03_jprb/)  
kbo( :, 4,23, 1) = (/&
 & 2.9823e-04_jprb,3.4049e-04_jprb,1.2615e-03_jprb,1.6428e-03_jprb,1.8444e-03_jprb,1.6436e-03_jprb/)  
kbo( :, 5,23, 1) = (/&
 & 3.3366e-04_jprb,3.7655e-04_jprb,1.3106e-03_jprb,1.6936e-03_jprb,1.8885e-03_jprb,1.6606e-03_jprb/)  
kbo( :, 1,24, 1) = (/&
 & 1.6732e-04_jprb,1.9749e-04_jprb,9.0024e-04_jprb,1.1912e-03_jprb,1.3515e-03_jprb,1.2284e-03_jprb/)  
kbo( :, 2,24, 1) = (/&
 & 1.9470e-04_jprb,2.2712e-04_jprb,9.5558e-04_jprb,1.2587e-03_jprb,1.4239e-03_jprb,1.2838e-03_jprb/)  
kbo( :, 3,24, 1) = (/&
 & 2.2281e-04_jprb,2.5707e-04_jprb,1.0048e-03_jprb,1.3153e-03_jprb,1.4808e-03_jprb,1.3221e-03_jprb/)  
kbo( :, 4,24, 1) = (/&
 & 2.5169e-04_jprb,2.8708e-04_jprb,1.0484e-03_jprb,1.3630e-03_jprb,1.5260e-03_jprb,1.3453e-03_jprb/)  
kbo( :, 5,24, 1) = (/&
 & 2.8094e-04_jprb,3.1674e-04_jprb,1.0886e-03_jprb,1.4046e-03_jprb,1.5614e-03_jprb,1.3561e-03_jprb/)  
kbo( :, 1,25, 1) = (/&
 & 1.4236e-04_jprb,1.6794e-04_jprb,7.5125e-04_jprb,9.9289e-04_jprb,1.1254e-03_jprb,1.0148e-03_jprb/)  
kbo( :, 2,25, 1) = (/&
 & 1.6512e-04_jprb,1.9246e-04_jprb,7.9598e-04_jprb,1.0465e-03_jprb,1.1819e-03_jprb,1.0567e-03_jprb/)  
kbo( :, 3,25, 1) = (/&
 & 1.8845e-04_jprb,2.1722e-04_jprb,8.3598e-04_jprb,1.0925e-03_jprb,1.2269e-03_jprb,1.0851e-03_jprb/)  
kbo( :, 4,25, 1) = (/&
 & 2.1255e-04_jprb,2.4198e-04_jprb,8.7137e-04_jprb,1.1312e-03_jprb,1.2632e-03_jprb,1.1012e-03_jprb/)  
kbo( :, 5,25, 1) = (/&
 & 2.3642e-04_jprb,2.6609e-04_jprb,9.0373e-04_jprb,1.1641e-03_jprb,1.2904e-03_jprb,1.1075e-03_jprb/)  
kbo( :, 1,26, 1) = (/&
 & 1.2135e-04_jprb,1.4296e-04_jprb,6.2705e-04_jprb,8.2752e-04_jprb,9.3670e-04_jprb,8.3888e-04_jprb/)  
kbo( :, 2,26, 1) = (/&
 & 1.4025e-04_jprb,1.6320e-04_jprb,6.6335e-04_jprb,8.7086e-04_jprb,9.8124e-04_jprb,8.7024e-04_jprb/)  
kbo( :, 3,26, 1) = (/&
 & 1.5968e-04_jprb,1.8367e-04_jprb,6.9554e-04_jprb,9.0762e-04_jprb,1.0171e-03_jprb,8.9085e-04_jprb/)  
kbo( :, 4,26, 1) = (/&
 & 1.7968e-04_jprb,2.0411e-04_jprb,7.2423e-04_jprb,9.3899e-04_jprb,1.0460e-03_jprb,9.0171e-04_jprb/)  
kbo( :, 5,26, 1) = (/&
 & 1.9911e-04_jprb,2.2355e-04_jprb,7.5041e-04_jprb,9.6460e-04_jprb,1.0668e-03_jprb,9.0488e-04_jprb/)  
kbo( :, 1,27, 1) = (/&
 & 1.0341e-04_jprb,1.2153e-04_jprb,5.2310e-04_jprb,6.8960e-04_jprb,7.7919e-04_jprb,6.9370e-04_jprb/)  
kbo( :, 2,27, 1) = (/&
 & 1.1910e-04_jprb,1.3828e-04_jprb,5.5242e-04_jprb,7.2420e-04_jprb,8.1412e-04_jprb,7.1711e-04_jprb/)  
kbo( :, 3,27, 1) = (/&
 & 1.3529e-04_jprb,1.5520e-04_jprb,5.7820e-04_jprb,7.5373e-04_jprb,8.4285e-04_jprb,7.3175e-04_jprb/)  
kbo( :, 4,27, 1) = (/&
 & 1.5173e-04_jprb,1.7193e-04_jprb,6.0154e-04_jprb,7.7867e-04_jprb,8.6563e-04_jprb,7.3890e-04_jprb/)  
kbo( :, 5,27, 1) = (/&
 & 1.6753e-04_jprb,1.8765e-04_jprb,6.2289e-04_jprb,7.9883e-04_jprb,8.8130e-04_jprb,7.3997e-04_jprb/)  
kbo( :, 1,28, 1) = (/&
 & 8.8061e-05_jprb,1.0321e-04_jprb,4.3625e-04_jprb,5.7437e-04_jprb,6.4777e-04_jprb,5.7348e-04_jprb/)  
kbo( :, 2,28, 1) = (/&
 & 1.0110e-04_jprb,1.1708e-04_jprb,4.5983e-04_jprb,6.0227e-04_jprb,6.7553e-04_jprb,5.9094e-04_jprb/)  
kbo( :, 3,28, 1) = (/&
 & 1.1455e-04_jprb,1.3102e-04_jprb,4.8047e-04_jprb,6.2567e-04_jprb,6.9826e-04_jprb,6.0125e-04_jprb/)  
kbo( :, 4,28, 1) = (/&
 & 1.2801e-04_jprb,1.4469e-04_jprb,4.9957e-04_jprb,6.4544e-04_jprb,7.1609e-04_jprb,6.0583e-04_jprb/)  
kbo( :, 5,28, 1) = (/&
 & 1.4086e-04_jprb,1.5736e-04_jprb,5.1693e-04_jprb,6.6170e-04_jprb,7.2796e-04_jprb,6.0570e-04_jprb/)  
kbo( :, 1,29, 1) = (/&
 & 7.5003e-05_jprb,8.7664e-05_jprb,3.6374e-04_jprb,4.7834e-04_jprb,5.3844e-04_jprb,4.7486e-04_jprb/)  
kbo( :, 2,29, 1) = (/&
 & 8.5847e-05_jprb,9.9153e-05_jprb,3.8260e-04_jprb,5.0066e-04_jprb,5.6048e-04_jprb,4.8785e-04_jprb/)  
kbo( :, 3,29, 1) = (/&
 & 9.7004e-05_jprb,1.1064e-04_jprb,3.9929e-04_jprb,5.1926e-04_jprb,5.7857e-04_jprb,4.9509e-04_jprb/)  
kbo( :, 4,29, 1) = (/&
 & 1.0798e-04_jprb,1.2169e-04_jprb,4.1471e-04_jprb,5.3469e-04_jprb,5.9200e-04_jprb,4.9798e-04_jprb/)  
kbo( :, 5,29, 1) = (/&
 & 1.1839e-04_jprb,1.3193e-04_jprb,4.2885e-04_jprb,5.4790e-04_jprb,6.0121e-04_jprb,4.9719e-04_jprb/)  
kbo( :, 1,30, 1) = (/&
 & 6.3856e-05_jprb,7.4428e-05_jprb,3.0309e-04_jprb,3.9831e-04_jprb,4.4748e-04_jprb,3.9336e-04_jprb/)  
kbo( :, 2,30, 1) = (/&
 & 7.2870e-05_jprb,8.3906e-05_jprb,3.1816e-04_jprb,4.1597e-04_jprb,4.6500e-04_jprb,4.0292e-04_jprb/)  
kbo( :, 3,30, 1) = (/&
 & 8.2079e-05_jprb,9.3343e-05_jprb,3.3169e-04_jprb,4.3066e-04_jprb,4.7913e-04_jprb,4.0807e-04_jprb/)  
kbo( :, 4,30, 1) = (/&
 & 9.1015e-05_jprb,1.0225e-04_jprb,3.4430e-04_jprb,4.4314e-04_jprb,4.8947e-04_jprb,4.0977e-04_jprb/)  
kbo( :, 5,30, 1) = (/&
 & 9.9395e-05_jprb,1.1051e-04_jprb,3.5570e-04_jprb,4.5357e-04_jprb,4.9658e-04_jprb,4.0872e-04_jprb/)  
kbo( :, 1,31, 1) = (/&
 & 5.4357e-05_jprb,6.3176e-05_jprb,2.5245e-04_jprb,3.3157e-04_jprb,3.7178e-04_jprb,3.2647e-04_jprb/)  
kbo( :, 2,31, 1) = (/&
 & 6.1861e-05_jprb,7.0996e-05_jprb,2.6445e-04_jprb,3.4538e-04_jprb,3.8570e-04_jprb,3.3355e-04_jprb/)  
kbo( :, 3,31, 1) = (/&
 & 6.9416e-05_jprb,7.8709e-05_jprb,2.7554e-04_jprb,3.5712e-04_jprb,3.9671e-04_jprb,3.3723e-04_jprb/)  
kbo( :, 4,31, 1) = (/&
 & 7.6656e-05_jprb,8.5880e-05_jprb,2.8577e-04_jprb,3.6709e-04_jprb,4.0449e-04_jprb,3.3826e-04_jprb/)  
kbo( :, 5,31, 1) = (/&
 & 8.3388e-05_jprb,9.2525e-05_jprb,2.9501e-04_jprb,3.7530e-04_jprb,4.1001e-04_jprb,3.3724e-04_jprb/)  
kbo( :, 1,32, 1) = (/&
 & 4.6259e-05_jprb,5.3603e-05_jprb,2.1016e-04_jprb,2.7584e-04_jprb,3.0892e-04_jprb,2.7109e-04_jprb/)  
kbo( :, 2,32, 1) = (/&
 & 5.2498e-05_jprb,6.0059e-05_jprb,2.1987e-04_jprb,2.8676e-04_jprb,3.1987e-04_jprb,2.7630e-04_jprb/)  
kbo( :, 3,32, 1) = (/&
 & 5.8656e-05_jprb,6.6298e-05_jprb,2.2891e-04_jprb,2.9611e-04_jprb,3.2832e-04_jprb,2.7895e-04_jprb/)  
kbo( :, 4,32, 1) = (/&
 & 6.4498e-05_jprb,7.2071e-05_jprb,2.3718e-04_jprb,3.0404e-04_jprb,3.3430e-04_jprb,2.7957e-04_jprb/)  
kbo( :, 5,32, 1) = (/&
 & 6.9916e-05_jprb,7.7424e-05_jprb,2.4471e-04_jprb,3.1058e-04_jprb,3.3850e-04_jprb,2.7859e-04_jprb/)  
kbo( :, 1,33, 1) = (/&
 & 3.9361e-05_jprb,4.5460e-05_jprb,1.7493e-04_jprb,2.2932e-04_jprb,2.5656e-04_jprb,2.2525e-04_jprb/)  
kbo( :, 2,33, 1) = (/&
 & 4.4512e-05_jprb,5.0768e-05_jprb,1.8281e-04_jprb,2.3800e-04_jprb,2.6516e-04_jprb,2.2918e-04_jprb/)  
kbo( :, 3,33, 1) = (/&
 & 4.9514e-05_jprb,5.5781e-05_jprb,1.9016e-04_jprb,2.4549e-04_jprb,2.7165e-04_jprb,2.3114e-04_jprb/)  
kbo( :, 4,33, 1) = (/&
 & 5.4222e-05_jprb,6.0427e-05_jprb,1.9683e-04_jprb,2.5168e-04_jprb,2.7625e-04_jprb,2.3152e-04_jprb/)  
kbo( :, 5,33, 1) = (/&
 & 5.8568e-05_jprb,6.4731e-05_jprb,2.0299e-04_jprb,2.5697e-04_jprb,2.7939e-04_jprb,2.3058e-04_jprb/)  
kbo( :, 1,34, 1) = (/&
 & 3.3323e-05_jprb,3.8371e-05_jprb,1.4532e-04_jprb,1.9026e-04_jprb,2.1273e-04_jprb,1.8680e-04_jprb/)  
kbo( :, 2,34, 1) = (/&
 & 3.7542e-05_jprb,4.2703e-05_jprb,1.5176e-04_jprb,1.9725e-04_jprb,2.1949e-04_jprb,1.8982e-04_jprb/)  
kbo( :, 3,34, 1) = (/&
 & 4.1603e-05_jprb,4.6750e-05_jprb,1.5775e-04_jprb,2.0322e-04_jprb,2.2449e-04_jprb,1.9126e-04_jprb/)  
kbo( :, 4,34, 1) = (/&
 & 4.5410e-05_jprb,5.0505e-05_jprb,1.6321e-04_jprb,2.0822e-04_jprb,2.2810e-04_jprb,1.9147e-04_jprb/)  
kbo( :, 5,34, 1) = (/&
 & 4.8872e-05_jprb,5.3940e-05_jprb,1.6826e-04_jprb,2.1254e-04_jprb,2.3048e-04_jprb,1.9060e-04_jprb/)  
kbo( :, 1,35, 1) = (/&
 & 2.7848e-05_jprb,3.2017e-05_jprb,1.2019e-04_jprb,1.5723e-04_jprb,1.7574e-04_jprb,1.5467e-04_jprb/)  
kbo( :, 2,35, 1) = (/&
 & 3.1305e-05_jprb,3.5553e-05_jprb,1.2549e-04_jprb,1.6294e-04_jprb,1.8117e-04_jprb,1.5712e-04_jprb/)  
kbo( :, 3,35, 1) = (/&
 & 3.4621e-05_jprb,3.8848e-05_jprb,1.3039e-04_jprb,1.6780e-04_jprb,1.8517e-04_jprb,1.5830e-04_jprb/)  
kbo( :, 4,35, 1) = (/&
 & 3.7704e-05_jprb,4.1891e-05_jprb,1.3491e-04_jprb,1.7188e-04_jprb,1.8805e-04_jprb,1.5843e-04_jprb/)  
kbo( :, 5,35, 1) = (/&
 & 4.0476e-05_jprb,4.4649e-05_jprb,1.3909e-04_jprb,1.7549e-04_jprb,1.8997e-04_jprb,1.5779e-04_jprb/)  
kbo( :, 1,36, 1) = (/&
 & 2.2956e-05_jprb,2.6385e-05_jprb,9.8921e-05_jprb,1.2940e-04_jprb,1.4463e-04_jprb,1.2779e-04_jprb/)  
kbo( :, 2,36, 1) = (/&
 & 2.5793e-05_jprb,2.9285e-05_jprb,1.0333e-04_jprb,1.3415e-04_jprb,1.4912e-04_jprb,1.2989e-04_jprb/)  
kbo( :, 3,36, 1) = (/&
 & 2.8520e-05_jprb,3.1993e-05_jprb,1.0740e-04_jprb,1.3821e-04_jprb,1.5246e-04_jprb,1.3097e-04_jprb/)  
kbo( :, 4,36, 1) = (/&
 & 3.1028e-05_jprb,3.4473e-05_jprb,1.1115e-04_jprb,1.4160e-04_jprb,1.5487e-04_jprb,1.3116e-04_jprb/)  
kbo( :, 5,36, 1) = (/&
 & 3.3268e-05_jprb,3.6701e-05_jprb,1.1464e-04_jprb,1.4466e-04_jprb,1.5648e-04_jprb,1.3075e-04_jprb/)  
kbo( :, 1,37, 1) = (/&
 & 1.8563e-05_jprb,2.1372e-05_jprb,8.0857e-05_jprb,1.0587e-04_jprb,1.1839e-04_jprb,1.0509e-04_jprb/)  
kbo( :, 2,37, 1) = (/&
 & 2.0902e-05_jprb,2.3771e-05_jprb,8.4550e-05_jprb,1.0990e-04_jprb,1.2224e-04_jprb,1.0704e-04_jprb/)  
kbo( :, 3,37, 1) = (/&
 & 2.3158e-05_jprb,2.6017e-05_jprb,8.7968e-05_jprb,1.1334e-04_jprb,1.2513e-04_jprb,1.0806e-04_jprb/)  
kbo( :, 4,37, 1) = (/&
 & 2.5232e-05_jprb,2.8068e-05_jprb,9.1139e-05_jprb,1.1630e-04_jprb,1.2729e-04_jprb,1.0839e-04_jprb/)  
kbo( :, 5,37, 1) = (/&
 & 2.7075e-05_jprb,2.9898e-05_jprb,9.4071e-05_jprb,1.1891e-04_jprb,1.2874e-04_jprb,1.0822e-04_jprb/)  
kbo( :, 1,38, 1) = (/&
 & 1.4988e-05_jprb,1.7289e-05_jprb,6.6055e-05_jprb,8.6575e-05_jprb,9.6855e-05_jprb,8.6493e-05_jprb/)  
kbo( :, 2,38, 1) = (/&
 & 1.6918e-05_jprb,1.9272e-05_jprb,6.9150e-05_jprb,8.9996e-05_jprb,1.0016e-04_jprb,8.8280e-05_jprb/)  
kbo( :, 3,38, 1) = (/&
 & 1.8783e-05_jprb,2.1138e-05_jprb,7.2026e-05_jprb,9.2962e-05_jprb,1.0270e-04_jprb,8.9275e-05_jprb/)  
kbo( :, 4,38, 1) = (/&
 & 2.0496e-05_jprb,2.2834e-05_jprb,7.4689e-05_jprb,9.5470e-05_jprb,1.0459e-04_jprb,8.9701e-05_jprb/)  
kbo( :, 5,38, 1) = (/&
 & 2.2016e-05_jprb,2.4338e-05_jprb,7.7162e-05_jprb,9.7704e-05_jprb,1.0591e-04_jprb,8.9718e-05_jprb/)  
kbo( :, 1,39, 1) = (/&
 & 1.2096e-05_jprb,1.3982e-05_jprb,5.3949e-05_jprb,7.0786e-05_jprb,7.9230e-05_jprb,7.1287e-05_jprb/)  
kbo( :, 2,39, 1) = (/&
 & 1.3689e-05_jprb,1.5620e-05_jprb,5.6546e-05_jprb,7.3698e-05_jprb,8.2063e-05_jprb,7.2936e-05_jprb/)  
kbo( :, 3,39, 1) = (/&
 & 1.5231e-05_jprb,1.7169e-05_jprb,5.8966e-05_jprb,7.6225e-05_jprb,8.4277e-05_jprb,7.3907e-05_jprb/)  
kbo( :, 4,39, 1) = (/&
 & 1.6645e-05_jprb,1.8570e-05_jprb,6.1204e-05_jprb,7.8367e-05_jprb,8.5941e-05_jprb,7.4418e-05_jprb/)  
kbo( :, 5,39, 1) = (/&
 & 1.7901e-05_jprb,1.9810e-05_jprb,6.3290e-05_jprb,8.0298e-05_jprb,8.7131e-05_jprb,7.4561e-05_jprb/)  
kbo( :, 1,40, 1) = (/&
 & 9.6276e-06_jprb,1.1165e-05_jprb,4.3831e-05_jprb,5.7599e-05_jprb,6.4509e-05_jprb,5.8273e-05_jprb/)  
kbo( :, 2,40, 1) = (/&
 & 1.0939e-05_jprb,1.2519e-05_jprb,4.6024e-05_jprb,6.0108e-05_jprb,6.6994e-05_jprb,5.9810e-05_jprb/)  
kbo( :, 3,40, 1) = (/&
 & 1.2220e-05_jprb,1.3814e-05_jprb,4.8073e-05_jprb,6.2293e-05_jprb,6.8988e-05_jprb,6.0759e-05_jprb/)  
kbo( :, 4,40, 1) = (/&
 & 1.3401e-05_jprb,1.4988e-05_jprb,4.9968e-05_jprb,6.4170e-05_jprb,7.0494e-05_jprb,6.1313e-05_jprb/)  
kbo( :, 5,40, 1) = (/&
 & 1.4450e-05_jprb,1.6022e-05_jprb,5.1742e-05_jprb,6.5833e-05_jprb,7.1594e-05_jprb,6.1539e-05_jprb/)  
kbo( :, 1,41, 1) = (/&
 & 7.6383e-06_jprb,8.8906e-06_jprb,3.5555e-05_jprb,4.6806e-05_jprb,5.2458e-05_jprb,4.7568e-05_jprb/)  
kbo( :, 2,41, 1) = (/&
 & 8.7190e-06_jprb,1.0010e-05_jprb,3.7422e-05_jprb,4.8972e-05_jprb,5.4631e-05_jprb,4.8981e-05_jprb/)  
kbo( :, 3,41, 1) = (/&
 & 9.7816e-06_jprb,1.1092e-05_jprb,3.9150e-05_jprb,5.0862e-05_jprb,5.6413e-05_jprb,4.9899e-05_jprb/)  
kbo( :, 4,41, 1) = (/&
 & 1.0770e-05_jprb,1.2078e-05_jprb,4.0765e-05_jprb,5.2505e-05_jprb,5.7788e-05_jprb,5.0461e-05_jprb/)  
kbo( :, 5,41, 1) = (/&
 & 1.1650e-05_jprb,1.2944e-05_jprb,4.2271e-05_jprb,5.3948e-05_jprb,5.8801e-05_jprb,5.0748e-05_jprb/)  
kbo( :, 1,42, 1) = (/&
 & 6.0542e-06_jprb,7.0721e-06_jprb,2.8820e-05_jprb,3.8000e-05_jprb,4.2624e-05_jprb,3.8819e-05_jprb/)  
kbo( :, 2,42, 1) = (/&
 & 6.9406e-06_jprb,7.9951e-06_jprb,3.0412e-05_jprb,3.9875e-05_jprb,4.4529e-05_jprb,4.0118e-05_jprb/)  
kbo( :, 3,42, 1) = (/&
 & 7.8202e-06_jprb,8.8967e-06_jprb,3.1870e-05_jprb,4.1509e-05_jprb,4.6106e-05_jprb,4.0986e-05_jprb/)  
kbo( :, 4,42, 1) = (/&
 & 8.6462e-06_jprb,9.7239e-06_jprb,3.3236e-05_jprb,4.2934e-05_jprb,4.7338e-05_jprb,4.1549e-05_jprb/)  
kbo( :, 5,42, 1) = (/&
 & 9.3841e-06_jprb,1.0450e-05_jprb,3.4511e-05_jprb,4.4186e-05_jprb,4.8277e-05_jprb,4.1876e-05_jprb/)  
kbo( :, 1,43, 1) = (/&
 & 4.7535e-06_jprb,5.5762e-06_jprb,2.3267e-05_jprb,3.0725e-05_jprb,3.4509e-05_jprb,3.1571e-05_jprb/)  
kbo( :, 2,43, 1) = (/&
 & 5.4765e-06_jprb,6.3357e-06_jprb,2.4631e-05_jprb,3.2364e-05_jprb,3.6180e-05_jprb,3.2776e-05_jprb/)  
kbo( :, 3,43, 1) = (/&
 & 6.2063e-06_jprb,7.0878e-06_jprb,2.5870e-05_jprb,3.3787e-05_jprb,3.7588e-05_jprb,3.3603e-05_jprb/)  
kbo( :, 4,43, 1) = (/&
 & 6.8971e-06_jprb,7.7847e-06_jprb,2.7025e-05_jprb,3.5030e-05_jprb,3.8710e-05_jprb,3.4166e-05_jprb/)  
kbo( :, 5,43, 1) = (/&
 & 7.5200e-06_jprb,8.3995e-06_jprb,2.8111e-05_jprb,3.6121e-05_jprb,3.9582e-05_jprb,3.4523e-05_jprb/)  
kbo( :, 1,44, 1) = (/&
 & 3.7108e-06_jprb,4.3735e-06_jprb,1.8735e-05_jprb,2.4774e-05_jprb,2.7859e-05_jprb,2.5624e-05_jprb/)  
kbo( :, 2,44, 1) = (/&
 & 4.2986e-06_jprb,4.9970e-06_jprb,1.9896e-05_jprb,2.6202e-05_jprb,2.9326e-05_jprb,2.6740e-05_jprb/)  
kbo( :, 3,44, 1) = (/&
 & 4.9004e-06_jprb,5.6209e-06_jprb,2.0953e-05_jprb,2.7445e-05_jprb,3.0581e-05_jprb,2.7533e-05_jprb/)  
kbo( :, 4,44, 1) = (/&
 & 5.4800e-06_jprb,6.2094e-06_jprb,2.1942e-05_jprb,2.8536e-05_jprb,3.1606e-05_jprb,2.8081e-05_jprb/)  

IF (lhook) CALL dr_hook('RRTM_KGB4:PART12',1,zhook_handle)
END SUBROUTINE part12


SUBROUTINE part13

REAL(KIND=JPRB) :: ZHOOK_HANDLE
IF (lhook) CALL dr_hook('RRTM_KGB4:PART13',0,zhook_handle)


kbo( :, 5,44, 1) = (/&
 & 6.0067e-06_jprb,6.7326e-06_jprb,2.2861e-05_jprb,2.9489e-05_jprb,3.2408e-05_jprb,2.8452e-05_jprb/)  
kbo( :, 1,45, 1) = (/&
 & 2.8911e-06_jprb,3.4227e-06_jprb,1.5064e-05_jprb,1.9947e-05_jprb,2.2457e-05_jprb,2.0791e-05_jprb/)  
kbo( :, 2,45, 1) = (/&
 & 3.3674e-06_jprb,3.9335e-06_jprb,1.6057e-05_jprb,2.1189e-05_jprb,2.3743e-05_jprb,2.1813e-05_jprb/)  
kbo( :, 3,45, 1) = (/&
 & 3.8624e-06_jprb,4.4499e-06_jprb,1.6962e-05_jprb,2.2274e-05_jprb,2.4852e-05_jprb,2.2566e-05_jprb/)  
kbo( :, 4,45, 1) = (/&
 & 4.3456e-06_jprb,4.9443e-06_jprb,1.7794e-05_jprb,2.3219e-05_jprb,2.5777e-05_jprb,2.3098e-05_jprb/)  
kbo( :, 5,45, 1) = (/&
 & 4.7911e-06_jprb,5.3898e-06_jprb,1.8581e-05_jprb,2.4056e-05_jprb,2.6509e-05_jprb,2.3470e-05_jprb/)  
kbo( :, 1,46, 1) = (/&
 & 2.2383e-06_jprb,2.6637e-06_jprb,1.2073e-05_jprb,1.6011e-05_jprb,1.8044e-05_jprb,1.6831e-05_jprb/)  
kbo( :, 2,46, 1) = (/&
 & 2.6247e-06_jprb,3.0814e-06_jprb,1.2921e-05_jprb,1.7081e-05_jprb,1.9170e-05_jprb,1.7760e-05_jprb/)  
kbo( :, 3,46, 1) = (/&
 & 3.0283e-06_jprb,3.5061e-06_jprb,1.3701e-05_jprb,1.8033e-05_jprb,2.0150e-05_jprb,1.8469e-05_jprb/)  
kbo( :, 4,46, 1) = (/&
 & 3.4307e-06_jprb,3.9211e-06_jprb,1.4408e-05_jprb,1.8862e-05_jprb,2.0983e-05_jprb,1.8985e-05_jprb/)  
kbo( :, 5,46, 1) = (/&
 & 3.8069e-06_jprb,4.3002e-06_jprb,1.5076e-05_jprb,1.9597e-05_jprb,2.1654e-05_jprb,1.9353e-05_jprb/)  
kbo( :, 1,47, 1) = (/&
 & 1.7157e-06_jprb,2.0538e-06_jprb,9.6246e-06_jprb,1.2782e-05_jprb,1.4416e-05_jprb,1.3539e-05_jprb/)  
kbo( :, 2,47, 1) = (/&
 & 2.0274e-06_jprb,2.3938e-06_jprb,1.0355e-05_jprb,1.3710e-05_jprb,1.5413e-05_jprb,1.4388e-05_jprb/)  
kbo( :, 3,47, 1) = (/&
 & 2.3547e-06_jprb,2.7420e-06_jprb,1.1027e-05_jprb,1.4546e-05_jprb,1.6278e-05_jprb,1.5051e-05_jprb/)  
kbo( :, 4,47, 1) = (/&
 & 2.6881e-06_jprb,3.0885e-06_jprb,1.1632e-05_jprb,1.5275e-05_jprb,1.7026e-05_jprb,1.5547e-05_jprb/)  
kbo( :, 5,47, 1) = (/&
 & 3.0058e-06_jprb,3.4107e-06_jprb,1.2197e-05_jprb,1.5919e-05_jprb,1.7642e-05_jprb,1.5912e-05_jprb/)  
kbo( :, 1,48, 1) = (/&
 & 1.3107e-06_jprb,1.5782e-06_jprb,7.6508e-06_jprb,1.0175e-05_jprb,1.1482e-05_jprb,1.0883e-05_jprb/)  
kbo( :, 2,48, 1) = (/&
 & 1.5615e-06_jprb,1.8540e-06_jprb,8.2825e-06_jprb,1.0980e-05_jprb,1.2364e-05_jprb,1.1653e-05_jprb/)  
kbo( :, 3,48, 1) = (/&
 & 1.8258e-06_jprb,2.1385e-06_jprb,8.8579e-06_jprb,1.1710e-05_jprb,1.3124e-05_jprb,1.2269e-05_jprb/)  
kbo( :, 4,48, 1) = (/&
 & 2.0996e-06_jprb,2.4258e-06_jprb,9.3784e-06_jprb,1.2351e-05_jprb,1.3790e-05_jprb,1.2743e-05_jprb/)  
kbo( :, 5,48, 1) = (/&
 & 2.3667e-06_jprb,2.6988e-06_jprb,9.8574e-06_jprb,1.2914e-05_jprb,1.4353e-05_jprb,1.3101e-05_jprb/)  
kbo( :, 1,49, 1) = (/&
 & 9.9722e-07_jprb,1.2088e-06_jprb,6.0640e-06_jprb,8.0714e-06_jprb,9.1144e-06_jprb,8.7529e-06_jprb/)  
kbo( :, 2,49, 1) = (/&
 & 1.1984e-06_jprb,1.4315e-06_jprb,6.6089e-06_jprb,8.7743e-06_jprb,9.8916e-06_jprb,9.4492e-06_jprb/)  
kbo( :, 3,49, 1) = (/&
 & 1.4119e-06_jprb,1.6631e-06_jprb,7.1011e-06_jprb,9.4039e-06_jprb,1.0560e-05_jprb,1.0016e-05_jprb/)  
kbo( :, 4,49, 1) = (/&
 & 1.6351e-06_jprb,1.8997e-06_jprb,7.5513e-06_jprb,9.9685e-06_jprb,1.1148e-05_jprb,1.0465e-05_jprb/)  
kbo( :, 5,49, 1) = (/&
 & 1.8579e-06_jprb,2.1297e-06_jprb,7.9577e-06_jprb,1.0461e-05_jprb,1.1654e-05_jprb,1.0817e-05_jprb/)  
kbo( :, 1,50, 1) = (/&
 & 7.5886e-07_jprb,9.2721e-07_jprb,4.8038e-06_jprb,6.3978e-06_jprb,7.2231e-06_jprb,7.0033e-06_jprb/)  
kbo( :, 2,50, 1) = (/&
 & 9.2100e-07_jprb,1.1063e-06_jprb,5.2714e-06_jprb,7.0056e-06_jprb,7.9040e-06_jprb,7.6216e-06_jprb/)  
kbo( :, 3,50, 1) = (/&
 & 1.0933e-06_jprb,1.2947e-06_jprb,5.6945e-06_jprb,7.5500e-06_jprb,8.4922e-06_jprb,8.1346e-06_jprb/)  
kbo( :, 4,50, 1) = (/&
 & 1.2741e-06_jprb,1.4882e-06_jprb,6.0797e-06_jprb,8.0421e-06_jprb,9.0066e-06_jprb,8.5490e-06_jprb/)  
kbo( :, 5,50, 1) = (/&
 & 1.4586e-06_jprb,1.6807e-06_jprb,6.4274e-06_jprb,8.4750e-06_jprb,9.4574e-06_jprb,8.8779e-06_jprb/)  
kbo( :, 1,51, 1) = (/&
 & 5.7629e-07_jprb,7.1029e-07_jprb,3.7943e-06_jprb,5.0570e-06_jprb,5.7108e-06_jprb,5.5791e-06_jprb/)  
kbo( :, 2,51, 1) = (/&
 & 7.0702e-07_jprb,8.5393e-07_jprb,4.1966e-06_jprb,5.5839e-06_jprb,6.3056e-06_jprb,6.1262e-06_jprb/)  
kbo( :, 3,51, 1) = (/&
 & 8.4587e-07_jprb,1.0071e-06_jprb,4.5610e-06_jprb,6.0549e-06_jprb,6.8186e-06_jprb,6.5832e-06_jprb/)  
kbo( :, 4,51, 1) = (/&
 & 9.9205e-07_jprb,1.1651e-06_jprb,4.8914e-06_jprb,6.4815e-06_jprb,7.2681e-06_jprb,6.9582e-06_jprb/)  
kbo( :, 5,51, 1) = (/&
 & 1.1437e-06_jprb,1.3245e-06_jprb,5.1899e-06_jprb,6.8593e-06_jprb,7.6670e-06_jprb,7.2604e-06_jprb/)  
kbo( :, 1,52, 1) = (/&
 & 4.3584e-07_jprb,5.4224e-07_jprb,2.9855e-06_jprb,3.9817e-06_jprb,4.4976e-06_jprb,4.4442e-06_jprb/)  
kbo( :, 2,52, 1) = (/&
 & 5.4097e-07_jprb,6.5764e-07_jprb,3.3334e-06_jprb,4.4392e-06_jprb,5.0153e-06_jprb,4.9246e-06_jprb/)  
kbo( :, 3,52, 1) = (/&
 & 6.5253e-07_jprb,7.8129e-07_jprb,3.6456e-06_jprb,4.8458e-06_jprb,5.4625e-06_jprb,5.3314e-06_jprb/)  
kbo( :, 4,52, 1) = (/&
 & 7.7086e-07_jprb,9.1002e-07_jprb,3.9287e-06_jprb,5.2127e-06_jprb,5.8546e-06_jprb,5.6688e-06_jprb/)  
kbo( :, 5,52, 1) = (/&
 & 8.9444e-07_jprb,1.0413e-06_jprb,4.1837e-06_jprb,5.5418e-06_jprb,6.2037e-06_jprb,5.9475e-06_jprb/)  
kbo( :, 1,53, 1) = (/&
 & 3.2796e-07_jprb,4.1214e-07_jprb,2.3394e-06_jprb,3.1195e-06_jprb,3.5262e-06_jprb,3.5455e-06_jprb/)  
kbo( :, 2,53, 1) = (/&
 & 4.1213e-07_jprb,5.0498e-07_jprb,2.6399e-06_jprb,3.5184e-06_jprb,3.9742e-06_jprb,3.9662e-06_jprb/)  
kbo( :, 3,53, 1) = (/&
 & 5.0194e-07_jprb,6.0442e-07_jprb,2.9073e-06_jprb,3.8680e-06_jprb,4.3642e-06_jprb,4.3273e-06_jprb/)  
kbo( :, 4,53, 1) = (/&
 & 5.9752e-07_jprb,7.0914e-07_jprb,3.1505e-06_jprb,4.1837e-06_jprb,4.7059e-06_jprb,4.6313e-06_jprb/)  
kbo( :, 5,53, 1) = (/&
 & 6.9765e-07_jprb,8.1659e-07_jprb,3.3684e-06_jprb,4.4697e-06_jprb,5.0106e-06_jprb,4.8882e-06_jprb/)  
kbo( :, 1,54, 1) = (/&
 & 2.4768e-07_jprb,3.1412e-07_jprb,1.8333e-06_jprb,2.4420e-06_jprb,2.7649e-06_jprb,2.7862e-06_jprb/)  
kbo( :, 2,54, 1) = (/&
 & 3.1476e-07_jprb,3.8873e-07_jprb,2.0902e-06_jprb,2.7876e-06_jprb,3.1500e-06_jprb,3.1426e-06_jprb/)  
kbo( :, 3,54, 1) = (/&
 & 3.8724e-07_jprb,4.6872e-07_jprb,2.3192e-06_jprb,3.0882e-06_jprb,3.4874e-06_jprb,3.4564e-06_jprb/)  
kbo( :, 4,54, 1) = (/&
 & 4.6434e-07_jprb,5.5384e-07_jprb,2.5276e-06_jprb,3.3593e-06_jprb,3.7832e-06_jprb,3.7206e-06_jprb/)  
kbo( :, 5,54, 1) = (/&
 & 5.4537e-07_jprb,6.4156e-07_jprb,2.7141e-06_jprb,3.6064e-06_jprb,4.0468e-06_jprb,3.9453e-06_jprb/)  
kbo( :, 1,55, 1) = (/&
 & 1.8693e-07_jprb,2.3927e-07_jprb,1.4336e-06_jprb,1.9074e-06_jprb,2.1635e-06_jprb,2.1619e-06_jprb/)  
kbo( :, 2,55, 1) = (/&
 & 2.4025e-07_jprb,2.9918e-07_jprb,1.6519e-06_jprb,2.2048e-06_jprb,2.4926e-06_jprb,2.4604e-06_jprb/)  
kbo( :, 3,55, 1) = (/&
 & 2.9872e-07_jprb,3.6360e-07_jprb,1.8488e-06_jprb,2.4633e-06_jprb,2.7832e-06_jprb,2.7282e-06_jprb/)  
kbo( :, 4,55, 1) = (/&
 & 3.6075e-07_jprb,4.3251e-07_jprb,2.0265e-06_jprb,2.6954e-06_jprb,3.0391e-06_jprb,2.9551e-06_jprb/)  
kbo( :, 5,55, 1) = (/&
 & 4.2648e-07_jprb,5.0404e-07_jprb,2.1855e-06_jprb,2.9070e-06_jprb,3.2663e-06_jprb,3.1458e-06_jprb/)  
kbo( :, 1,56, 1) = (/&
 & 1.4054e-07_jprb,1.8176e-07_jprb,1.1161e-06_jprb,1.4834e-06_jprb,1.6858e-06_jprb,1.6706e-06_jprb/)  
kbo( :, 2,56, 1) = (/&
 & 1.8272e-07_jprb,2.2962e-07_jprb,1.3014e-06_jprb,1.7377e-06_jprb,1.9656e-06_jprb,1.9215e-06_jprb/)  
kbo( :, 3,56, 1) = (/&
 & 2.2968e-07_jprb,2.8144e-07_jprb,1.4702e-06_jprb,1.9602e-06_jprb,2.2149e-06_jprb,2.1478e-06_jprb/)  
kbo( :, 4,56, 1) = (/&
 & 2.7973e-07_jprb,3.3709e-07_jprb,1.6219e-06_jprb,2.1586e-06_jprb,2.4358e-06_jprb,2.3428e-06_jprb/)  
kbo( :, 5,56, 1) = (/&
 & 3.3292e-07_jprb,3.9535e-07_jprb,1.7578e-06_jprb,2.3398e-06_jprb,2.6321e-06_jprb,2.5058e-06_jprb/)  
kbo( :, 1,57, 1) = (/&
 & 1.0510e-07_jprb,1.3750e-07_jprb,8.6405e-07_jprb,1.1473e-06_jprb,1.3076e-06_jprb,1.2850e-06_jprb/)  
kbo( :, 2,57, 1) = (/&
 & 1.3849e-07_jprb,1.7560e-07_jprb,1.0222e-06_jprb,1.3638e-06_jprb,1.5446e-06_jprb,1.4961e-06_jprb/)  
kbo( :, 3,57, 1) = (/&
 & 1.7599e-07_jprb,2.1727e-07_jprb,1.1659e-06_jprb,1.5556e-06_jprb,1.7583e-06_jprb,1.6859e-06_jprb/)  
kbo( :, 4,57, 1) = (/&
 & 2.1642e-07_jprb,2.6216e-07_jprb,1.2954e-06_jprb,1.7252e-06_jprb,1.9483e-06_jprb,1.8528e-06_jprb/)  
kbo( :, 5,57, 1) = (/&
 & 2.5937e-07_jprb,3.0954e-07_jprb,1.4120e-06_jprb,1.8802e-06_jprb,2.1177e-06_jprb,1.9931e-06_jprb/)  
kbo( :, 1,58, 1) = (/&
 & 7.8562e-08_jprb,1.0412e-07_jprb,6.6697e-07_jprb,8.8547e-07_jprb,1.0122e-06_jprb,9.8359e-07_jprb/)  
kbo( :, 2,58, 1) = (/&
 & 1.0505e-07_jprb,1.3435e-07_jprb,8.0186e-07_jprb,1.0688e-06_jprb,1.2123e-06_jprb,1.1602e-06_jprb/)  
kbo( :, 3,58, 1) = (/&
 & 1.3491e-07_jprb,1.6781e-07_jprb,9.2343e-07_jprb,1.2330e-06_jprb,1.3947e-06_jprb,1.3189e-06_jprb/)  
kbo( :, 4,58, 1) = (/&
 & 1.6755e-07_jprb,2.0398e-07_jprb,1.0341e-06_jprb,1.3781e-06_jprb,1.5576e-06_jprb,1.4600e-06_jprb/)  
kbo( :, 5,58, 1) = (/&
 & 2.0219e-07_jprb,2.4245e-07_jprb,1.1337e-06_jprb,1.5104e-06_jprb,1.7029e-06_jprb,1.5797e-06_jprb/)  
kbo( :, 1,59, 1) = (/&
 & 6.2032e-08_jprb,8.2667e-08_jprb,5.3358e-07_jprb,7.0860e-07_jprb,8.1061e-07_jprb,7.5992e-07_jprb/)  
kbo( :, 2,59, 1) = (/&
 & 8.3464e-08_jprb,1.0714e-07_jprb,6.4596e-07_jprb,8.6092e-07_jprb,9.7714e-07_jprb,9.0330e-07_jprb/)  
kbo( :, 3,59, 1) = (/&
 & 1.0772e-07_jprb,1.3445e-07_jprb,7.4727e-07_jprb,9.9822e-07_jprb,1.1293e-06_jprb,1.0310e-06_jprb/)  
kbo( :, 4,59, 1) = (/&
 & 1.3434e-07_jprb,1.6394e-07_jprb,8.4000e-07_jprb,1.1197e-06_jprb,1.2658e-06_jprb,1.1431e-06_jprb/)  
kbo( :, 5,59, 1) = (/&
 & 1.6260e-07_jprb,1.9540e-07_jprb,9.2328e-07_jprb,1.2307e-06_jprb,1.3881e-06_jprb,1.2388e-06_jprb/)  
kbo( :, 1,13, 2) = (/&
 & 3.6523e-03_jprb,3.8939e-03_jprb,1.9272e-02_jprb,2.7740e-02_jprb,3.3512e-02_jprb,3.3627e-02_jprb/)  
kbo( :, 2,13, 2) = (/&
 & 4.0698e-03_jprb,4.3006e-03_jprb,2.0140e-02_jprb,2.9159e-02_jprb,3.5603e-02_jprb,3.6375e-02_jprb/)  
kbo( :, 3,13, 2) = (/&
 & 4.4412e-03_jprb,4.6650e-03_jprb,2.0907e-02_jprb,3.0329e-02_jprb,3.7178e-02_jprb,3.8732e-02_jprb/)  
kbo( :, 4,13, 2) = (/&
 & 4.7483e-03_jprb,4.9652e-03_jprb,2.1592e-02_jprb,3.1266e-02_jprb,3.8222e-02_jprb,4.0514e-02_jprb/)  
kbo( :, 5,13, 2) = (/&
 & 4.9829e-03_jprb,5.1938e-03_jprb,2.2168e-02_jprb,3.1969e-02_jprb,3.8794e-02_jprb,4.1741e-02_jprb/)  
kbo( :, 1,14, 2) = (/&
 & 3.0865e-03_jprb,3.3200e-03_jprb,1.6531e-02_jprb,2.3817e-02_jprb,2.8897e-02_jprb,2.8142e-02_jprb/)  
kbo( :, 2,14, 2) = (/&
 & 3.4362e-03_jprb,3.6603e-03_jprb,1.7252e-02_jprb,2.4966e-02_jprb,3.0545e-02_jprb,3.0211e-02_jprb/)  
kbo( :, 3,14, 2) = (/&
 & 3.7431e-03_jprb,3.9586e-03_jprb,1.7899e-02_jprb,2.5891e-02_jprb,3.1684e-02_jprb,3.1824e-02_jprb/)  
kbo( :, 4,14, 2) = (/&
 & 3.9872e-03_jprb,4.1955e-03_jprb,1.8459e-02_jprb,2.6594e-02_jprb,3.2362e-02_jprb,3.2907e-02_jprb/)  
kbo( :, 5,14, 2) = (/&
 & 4.1703e-03_jprb,4.3748e-03_jprb,1.8911e-02_jprb,2.7074e-02_jprb,3.2683e-02_jprb,3.3591e-02_jprb/)  
kbo( :, 1,15, 2) = (/&
 & 2.6115e-03_jprb,2.8311e-03_jprb,1.4085e-02_jprb,2.0304e-02_jprb,2.4710e-02_jprb,2.3514e-02_jprb/)  
kbo( :, 2,15, 2) = (/&
 & 2.9041e-03_jprb,3.1144e-03_jprb,1.4680e-02_jprb,2.1210e-02_jprb,2.5931e-02_jprb,2.4999e-02_jprb/)  
kbo( :, 3,15, 2) = (/&
 & 3.1530e-03_jprb,3.3540e-03_jprb,1.5212e-02_jprb,2.1904e-02_jprb,2.6711e-02_jprb,2.6064e-02_jprb/)  
kbo( :, 4,15, 2) = (/&
 & 3.3446e-03_jprb,3.5395e-03_jprb,1.5641e-02_jprb,2.2409e-02_jprb,2.7141e-02_jprb,2.6755e-02_jprb/)  
kbo( :, 5,15, 2) = (/&
 & 3.4849e-03_jprb,3.6794e-03_jprb,1.5995e-02_jprb,2.2750e-02_jprb,2.7330e-02_jprb,2.7152e-02_jprb/)  
kbo( :, 1,16, 2) = (/&
 & 2.2129e-03_jprb,2.4168e-03_jprb,1.1928e-02_jprb,1.7179e-02_jprb,2.0938e-02_jprb,1.9617e-02_jprb/)  
kbo( :, 2,16, 2) = (/&
 & 2.4536e-03_jprb,2.6491e-03_jprb,1.2409e-02_jprb,1.7866e-02_jprb,2.1799e-02_jprb,2.0682e-02_jprb/)  
kbo( :, 3,16, 2) = (/&
 & 2.6514e-03_jprb,2.8384e-03_jprb,1.2822e-02_jprb,1.8380e-02_jprb,2.2338e-02_jprb,2.1426e-02_jprb/)  
kbo( :, 4,16, 2) = (/&
 & 2.7951e-03_jprb,2.9778e-03_jprb,1.3157e-02_jprb,1.8769e-02_jprb,2.2630e-02_jprb,2.1902e-02_jprb/)  
kbo( :, 5,16, 2) = (/&
 & 2.9036e-03_jprb,3.0860e-03_jprb,1.3435e-02_jprb,1.9027e-02_jprb,2.2746e-02_jprb,2.2146e-02_jprb/)  
kbo( :, 1,17, 2) = (/&
 & 1.8735e-03_jprb,2.0627e-03_jprb,1.0036e-02_jprb,1.4424e-02_jprb,1.7577e-02_jprb,1.6265e-02_jprb/)  
kbo( :, 2,17, 2) = (/&
 & 2.0662e-03_jprb,2.2488e-03_jprb,1.0418e-02_jprb,1.4944e-02_jprb,1.8199e-02_jprb,1.7052e-02_jprb/)  
kbo( :, 3,17, 2) = (/&
 & 2.2194e-03_jprb,2.3925e-03_jprb,1.0739e-02_jprb,1.5350e-02_jprb,1.8589e-02_jprb,1.7595e-02_jprb/)  
kbo( :, 4,17, 2) = (/&
 & 2.3291e-03_jprb,2.4990e-03_jprb,1.1009e-02_jprb,1.5656e-02_jprb,1.8796e-02_jprb,1.7924e-02_jprb/)  
kbo( :, 5,17, 2) = (/&
 & 2.4168e-03_jprb,2.5869e-03_jprb,1.1220e-02_jprb,1.5867e-02_jprb,1.8872e-02_jprb,1.8072e-02_jprb/)  
kbo( :, 1,18, 2) = (/&
 & 1.5803e-03_jprb,1.7549e-03_jprb,8.3982e-03_jprb,1.2038e-02_jprb,1.4657e-02_jprb,1.3443e-02_jprb/)  
kbo( :, 2,18, 2) = (/&
 & 1.7325e-03_jprb,1.9010e-03_jprb,8.7001e-03_jprb,1.2445e-02_jprb,1.5124e-02_jprb,1.4037e-02_jprb/)  
kbo( :, 3,18, 2) = (/&
 & 1.8506e-03_jprb,2.0095e-03_jprb,8.9599e-03_jprb,1.2773e-02_jprb,1.5415e-02_jprb,1.4442e-02_jprb/)  
kbo( :, 4,18, 2) = (/&
 & 1.9372e-03_jprb,2.0945e-03_jprb,9.1682e-03_jprb,1.3023e-02_jprb,1.5571e-02_jprb,1.4673e-02_jprb/)  
kbo( :, 5,18, 2) = (/&
 & 2.0086e-03_jprb,2.1668e-03_jprb,9.3360e-03_jprb,1.3189e-02_jprb,1.5627e-02_jprb,1.4767e-02_jprb/)  
kbo( :, 1,19, 2) = (/&
 & 1.3263e-03_jprb,1.4842e-03_jprb,6.9965e-03_jprb,1.0005e-02_jprb,1.2171e-02_jprb,1.1073e-02_jprb/)  
kbo( :, 2,19, 2) = (/&
 & 1.4463e-03_jprb,1.5975e-03_jprb,7.2420e-03_jprb,1.0335e-02_jprb,1.2532e-02_jprb,1.1527e-02_jprb/)  
kbo( :, 3,19, 2) = (/&
 & 1.5391e-03_jprb,1.6819e-03_jprb,7.4473e-03_jprb,1.0605e-02_jprb,1.2756e-02_jprb,1.1825e-02_jprb/)  
kbo( :, 4,19, 2) = (/&
 & 1.6087e-03_jprb,1.7515e-03_jprb,7.6132e-03_jprb,1.0806e-02_jprb,1.2879e-02_jprb,1.1987e-02_jprb/)  
kbo( :, 5,19, 2) = (/&
 & 1.6667e-03_jprb,1.8113e-03_jprb,7.7489e-03_jprb,1.0927e-02_jprb,1.2923e-02_jprb,1.2042e-02_jprb/)  
kbo( :, 1,20, 2) = (/&
 & 1.1106e-03_jprb,1.2504e-03_jprb,5.8179e-03_jprb,8.3016e-03_jprb,1.0088e-02_jprb,9.1254e-03_jprb/)  
kbo( :, 2,20, 2) = (/&
 & 1.2060e-03_jprb,1.3385e-03_jprb,6.0163e-03_jprb,8.5726e-03_jprb,1.0368e-02_jprb,9.4723e-03_jprb/)  
kbo( :, 3,20, 2) = (/&
 & 1.2789e-03_jprb,1.4052e-03_jprb,6.1769e-03_jprb,8.7907e-03_jprb,1.0541e-02_jprb,9.6942e-03_jprb/)  
kbo( :, 4,20, 2) = (/&
 & 1.3351e-03_jprb,1.4622e-03_jprb,6.3118e-03_jprb,8.9433e-03_jprb,1.0640e-02_jprb,9.8077e-03_jprb/)  
kbo( :, 5,20, 2) = (/&
 & 1.3825e-03_jprb,1.5123e-03_jprb,6.4218e-03_jprb,9.0350e-03_jprb,1.0672e-02_jprb,9.8366e-03_jprb/)  
kbo( :, 1,21, 2) = (/&
 & 9.2789e-04_jprb,1.0499e-03_jprb,4.8309e-03_jprb,6.8776e-03_jprb,8.3442e-03_jprb,7.5157e-03_jprb/)  
kbo( :, 2,21, 2) = (/&
 & 1.0039e-03_jprb,1.1183e-03_jprb,4.9870e-03_jprb,7.1016e-03_jprb,8.5650e-03_jprb,7.7816e-03_jprb/)  
kbo( :, 3,21, 2) = (/&
 & 1.0617e-03_jprb,1.1723e-03_jprb,5.1161e-03_jprb,7.2723e-03_jprb,8.7032e-03_jprb,7.9463e-03_jprb/)  
kbo( :, 4,21, 2) = (/&
 & 1.1070e-03_jprb,1.2185e-03_jprb,5.2236e-03_jprb,7.3886e-03_jprb,8.7799e-03_jprb,8.0257e-03_jprb/)  
kbo( :, 5,21, 2) = (/&
 & 1.1455e-03_jprb,1.2607e-03_jprb,5.3143e-03_jprb,7.4590e-03_jprb,8.7976e-03_jprb,8.0381e-03_jprb/)  
kbo( :, 1,22, 2) = (/&
 & 7.7838e-04_jprb,8.8274e-04_jprb,4.0143e-03_jprb,5.7070e-03_jprb,6.9079e-03_jprb,6.2019e-03_jprb/)  
kbo( :, 2,22, 2) = (/&
 & 8.3803e-04_jprb,9.3549e-04_jprb,4.1360e-03_jprb,5.8838e-03_jprb,7.0782e-03_jprb,6.4006e-03_jprb/)  
kbo( :, 3,22, 2) = (/&
 & 8.8314e-04_jprb,9.7914e-04_jprb,4.2374e-03_jprb,6.0145e-03_jprb,7.1845e-03_jprb,6.5168e-03_jprb/)  
kbo( :, 4,22, 2) = (/&
 & 9.1968e-04_jprb,1.0165e-03_jprb,4.3241e-03_jprb,6.1026e-03_jprb,7.2358e-03_jprb,6.5682e-03_jprb/)  
kbo( :, 5,22, 2) = (/&
 & 9.5047e-04_jprb,1.0512e-03_jprb,4.4012e-03_jprb,6.1547e-03_jprb,7.2428e-03_jprb,6.5673e-03_jprb/)  
kbo( :, 1,23, 2) = (/&
 & 6.5215e-04_jprb,7.4036e-04_jprb,3.3305e-03_jprb,4.7319e-03_jprb,5.7142e-03_jprb,5.1137e-03_jprb/)  
kbo( :, 2,23, 2) = (/&
 & 6.9894e-04_jprb,7.8162e-04_jprb,3.4264e-03_jprb,4.8693e-03_jprb,5.8456e-03_jprb,5.2602e-03_jprb/)  
kbo( :, 3,23, 2) = (/&
 & 7.3388e-04_jprb,8.1618e-04_jprb,3.5078e-03_jprb,4.9682e-03_jprb,5.9222e-03_jprb,5.3417e-03_jprb/)  
kbo( :, 4,23, 2) = (/&
 & 7.6333e-04_jprb,8.4695e-04_jprb,3.5799e-03_jprb,5.0349e-03_jprb,5.9564e-03_jprb,5.3733e-03_jprb/)  
kbo( :, 5,23, 2) = (/&
 & 7.8904e-04_jprb,8.7612e-04_jprb,3.6454e-03_jprb,5.0755e-03_jprb,5.9574e-03_jprb,5.3648e-03_jprb/)  
kbo( :, 1,24, 2) = (/&
 & 5.4610e-04_jprb,6.1977e-04_jprb,2.7598e-03_jprb,3.9203e-03_jprb,4.7245e-03_jprb,4.2113e-03_jprb/)  
kbo( :, 2,24, 2) = (/&
 & 5.8222e-04_jprb,6.5205e-04_jprb,2.8366e-03_jprb,4.0258e-03_jprb,4.8222e-03_jprb,4.3180e-03_jprb/)  
kbo( :, 3,24, 2) = (/&
 & 6.0969e-04_jprb,6.7974e-04_jprb,2.9034e-03_jprb,4.1010e-03_jprb,4.8778e-03_jprb,4.3739e-03_jprb/)  
kbo( :, 4,24, 2) = (/&
 & 6.3347e-04_jprb,7.0509e-04_jprb,2.9644e-03_jprb,4.1523e-03_jprb,4.8995e-03_jprb,4.3910e-03_jprb/)  
kbo( :, 5,24, 2) = (/&
 & 6.5545e-04_jprb,7.3021e-04_jprb,3.0198e-03_jprb,4.1861e-03_jprb,4.8976e-03_jprb,4.3789e-03_jprb/)  
kbo( :, 1,25, 2) = (/&
 & 4.5690e-04_jprb,5.1793e-04_jprb,2.2852e-03_jprb,3.2458e-03_jprb,3.9043e-03_jprb,3.4680e-03_jprb/)  
kbo( :, 2,25, 2) = (/&
 & 4.8458e-04_jprb,5.4334e-04_jprb,2.3475e-03_jprb,3.3264e-03_jprb,3.9752e-03_jprb,3.5434e-03_jprb/)  
kbo( :, 3,25, 2) = (/&
 & 5.0654e-04_jprb,5.6573e-04_jprb,2.4036e-03_jprb,3.3847e-03_jprb,4.0147e-03_jprb,3.5813e-03_jprb/)  
kbo( :, 4,25, 2) = (/&
 & 5.2568e-04_jprb,5.8676e-04_jprb,2.4547e-03_jprb,3.4258e-03_jprb,4.0284e-03_jprb,3.5893e-03_jprb/)  
kbo( :, 5,25, 2) = (/&
 & 5.4469e-04_jprb,6.0841e-04_jprb,2.5000e-03_jprb,3.4530e-03_jprb,4.0252e-03_jprb,3.5735e-03_jprb/)  
kbo( :, 1,26, 2) = (/&
 & 3.8205e-04_jprb,4.3242e-04_jprb,1.8925e-03_jprb,2.6857e-03_jprb,3.2237e-03_jprb,2.8541e-03_jprb/)  
kbo( :, 2,26, 2) = (/&
 & 4.0335e-04_jprb,4.5263e-04_jprb,1.9438e-03_jprb,2.7484e-03_jprb,3.2757e-03_jprb,2.9087e-03_jprb/)  
kbo( :, 3,26, 2) = (/&
 & 4.2092e-04_jprb,4.7075e-04_jprb,1.9904e-03_jprb,2.7942e-03_jprb,3.3026e-03_jprb,2.9324e-03_jprb/)  
kbo( :, 4,26, 2) = (/&
 & 4.3655e-04_jprb,4.8821e-04_jprb,2.0326e-03_jprb,2.8271e-03_jprb,3.3119e-03_jprb,2.9344e-03_jprb/)  

IF (lhook) CALL dr_hook('RRTM_KGB4:PART13',1,zhook_handle)
END SUBROUTINE part13


SUBROUTINE part14

REAL(KIND=JPRB) :: ZHOOK_HANDLE
IF (lhook) CALL dr_hook('RRTM_KGB4:PART14',0,zhook_handle)


kbo( :, 5,26, 2) = (/&
 & 4.5316e-04_jprb,5.0712e-04_jprb,2.0685e-03_jprb,2.8499e-03_jprb,3.3084e-03_jprb,2.9162e-03_jprb/)  
kbo( :, 1,27, 2) = (/&
 & 3.1896e-04_jprb,3.6052e-04_jprb,1.5673e-03_jprb,2.2211e-03_jprb,2.6601e-03_jprb,2.3492e-03_jprb/)  
kbo( :, 2,27, 2) = (/&
 & 3.3544e-04_jprb,3.7654e-04_jprb,1.6095e-03_jprb,2.2697e-03_jprb,2.6969e-03_jprb,2.3868e-03_jprb/)  
kbo( :, 3,27, 2) = (/&
 & 3.4965e-04_jprb,3.9143e-04_jprb,1.6478e-03_jprb,2.3068e-03_jprb,2.7163e-03_jprb,2.4023e-03_jprb/)  
kbo( :, 4,27, 2) = (/&
 & 3.6268e-04_jprb,4.0612e-04_jprb,1.6818e-03_jprb,2.3333e-03_jprb,2.7227e-03_jprb,2.3999e-03_jprb/)  
kbo( :, 5,27, 2) = (/&
 & 3.7708e-04_jprb,4.2263e-04_jprb,1.7104e-03_jprb,2.3514e-03_jprb,2.7191e-03_jprb,2.3811e-03_jprb/)  
kbo( :, 1,28, 2) = (/&
 & 2.6585e-04_jprb,3.0014e-04_jprb,1.2979e-03_jprb,1.8363e-03_jprb,2.1935e-03_jprb,1.9332e-03_jprb/)  
kbo( :, 2,28, 2) = (/&
 & 2.7887e-04_jprb,3.1300e-04_jprb,1.3325e-03_jprb,1.8753e-03_jprb,2.2207e-03_jprb,1.9593e-03_jprb/)  
kbo( :, 3,28, 2) = (/&
 & 2.9041e-04_jprb,3.2530e-04_jprb,1.3637e-03_jprb,1.9047e-03_jprb,2.2348e-03_jprb,1.9687e-03_jprb/)  
kbo( :, 4,28, 2) = (/&
 & 3.0139e-04_jprb,3.3786e-04_jprb,1.3910e-03_jprb,1.9260e-03_jprb,2.2395e-03_jprb,1.9637e-03_jprb/)  
kbo( :, 5,28, 2) = (/&
 & 3.1381e-04_jprb,3.5218e-04_jprb,1.4147e-03_jprb,1.9395e-03_jprb,2.2363e-03_jprb,1.9458e-03_jprb/)  
kbo( :, 1,29, 2) = (/&
 & 2.2143e-04_jprb,2.4968e-04_jprb,1.0748e-03_jprb,1.5182e-03_jprb,1.8078e-03_jprb,1.5923e-03_jprb/)  
kbo( :, 2,29, 2) = (/&
 & 2.3186e-04_jprb,2.6016e-04_jprb,1.1033e-03_jprb,1.5493e-03_jprb,1.8281e-03_jprb,1.6104e-03_jprb/)  
kbo( :, 3,29, 2) = (/&
 & 2.4121e-04_jprb,2.7036e-04_jprb,1.1285e-03_jprb,1.5726e-03_jprb,1.8388e-03_jprb,1.6155e-03_jprb/)  
kbo( :, 4,29, 2) = (/&
 & 2.5062e-04_jprb,2.8128e-04_jprb,1.1506e-03_jprb,1.5888e-03_jprb,1.8420e-03_jprb,1.6082e-03_jprb/)  
kbo( :, 5,29, 2) = (/&
 & 2.6130e-04_jprb,2.9358e-04_jprb,1.1704e-03_jprb,1.5992e-03_jprb,1.8391e-03_jprb,1.5924e-03_jprb/)  
kbo( :, 1,30, 2) = (/&
 & 1.8434e-04_jprb,2.0754e-04_jprb,8.9026e-04_jprb,1.2554e-03_jprb,1.4899e-03_jprb,1.3119e-03_jprb/)  
kbo( :, 2,30, 2) = (/&
 & 1.9271e-04_jprb,2.1620e-04_jprb,9.1339e-04_jprb,1.2800e-03_jprb,1.5055e-03_jprb,1.3245e-03_jprb/)  
kbo( :, 3,30, 2) = (/&
 & 2.0034e-04_jprb,2.2477e-04_jprb,9.3373e-04_jprb,1.2981e-03_jprb,1.5133e-03_jprb,1.3262e-03_jprb/)  
kbo( :, 4,30, 2) = (/&
 & 2.0838e-04_jprb,2.3416e-04_jprb,9.5188e-04_jprb,1.3104e-03_jprb,1.5159e-03_jprb,1.3190e-03_jprb/)  
kbo( :, 5,30, 2) = (/&
 & 2.1766e-04_jprb,2.4475e-04_jprb,9.6842e-04_jprb,1.3190e-03_jprb,1.5130e-03_jprb,1.3047e-03_jprb/)  
kbo( :, 1,31, 2) = (/&
 & 1.5342e-04_jprb,1.7254e-04_jprb,7.3736e-04_jprb,1.0379e-03_jprb,1.2280e-03_jprb,1.0823e-03_jprb/)  
kbo( :, 2,31, 2) = (/&
 & 1.6018e-04_jprb,1.7972e-04_jprb,7.5593e-04_jprb,1.0574e-03_jprb,1.2397e-03_jprb,1.0908e-03_jprb/)  
kbo( :, 3,31, 2) = (/&
 & 1.6648e-04_jprb,1.8697e-04_jprb,7.7274e-04_jprb,1.0714e-03_jprb,1.2460e-03_jprb,1.0906e-03_jprb/)  
kbo( :, 4,31, 2) = (/&
 & 1.7342e-04_jprb,1.9506e-04_jprb,7.8773e-04_jprb,1.0812e-03_jprb,1.2476e-03_jprb,1.0837e-03_jprb/)  
kbo( :, 5,31, 2) = (/&
 & 1.8149e-04_jprb,2.0420e-04_jprb,8.0154e-04_jprb,1.0881e-03_jprb,1.2445e-03_jprb,1.0711e-03_jprb/)  
kbo( :, 1,32, 2) = (/&
 & 1.2767e-04_jprb,1.4347e-04_jprb,6.1066e-04_jprb,8.5823e-04_jprb,1.0121e-03_jprb,8.9310e-04_jprb/)  
kbo( :, 2,32, 2) = (/&
 & 1.3312e-04_jprb,1.4941e-04_jprb,6.2581e-04_jprb,8.7345e-04_jprb,1.0214e-03_jprb,8.9860e-04_jprb/)  
kbo( :, 3,32, 2) = (/&
 & 1.3844e-04_jprb,1.5562e-04_jprb,6.3952e-04_jprb,8.8432e-04_jprb,1.0259e-03_jprb,8.9742e-04_jprb/)  
kbo( :, 4,32, 2) = (/&
 & 1.4447e-04_jprb,1.6260e-04_jprb,6.5205e-04_jprb,8.9226e-04_jprb,1.0266e-03_jprb,8.9098e-04_jprb/)  
kbo( :, 5,32, 2) = (/&
 & 1.5144e-04_jprb,1.7054e-04_jprb,6.6359e-04_jprb,8.9794e-04_jprb,1.0240e-03_jprb,8.8056e-04_jprb/)  
kbo( :, 1,33, 2) = (/&
 & 1.0619e-04_jprb,1.1931e-04_jprb,5.0573e-04_jprb,7.0964e-04_jprb,8.3455e-04_jprb,7.3747e-04_jprb/)  
kbo( :, 2,33, 2) = (/&
 & 1.1061e-04_jprb,1.2424e-04_jprb,5.1808e-04_jprb,7.2136e-04_jprb,8.4148e-04_jprb,7.4075e-04_jprb/)  
kbo( :, 3,33, 2) = (/&
 & 1.1517e-04_jprb,1.2959e-04_jprb,5.2944e-04_jprb,7.3007e-04_jprb,8.4469e-04_jprb,7.3913e-04_jprb/)  
kbo( :, 4,33, 2) = (/&
 & 1.2041e-04_jprb,1.3563e-04_jprb,5.3985e-04_jprb,7.3647e-04_jprb,8.4479e-04_jprb,7.3349e-04_jprb/)  
kbo( :, 5,33, 2) = (/&
 & 1.2648e-04_jprb,1.4256e-04_jprb,5.4947e-04_jprb,7.4123e-04_jprb,8.4271e-04_jprb,7.2498e-04_jprb/)  
kbo( :, 1,34, 2) = (/&
 & 8.8157e-05_jprb,9.9062e-05_jprb,4.1842e-04_jprb,5.8633e-04_jprb,6.8789e-04_jprb,6.0807e-04_jprb/)  
kbo( :, 2,34, 2) = (/&
 & 9.1811e-05_jprb,1.0321e-04_jprb,4.2863e-04_jprb,5.9556e-04_jprb,6.9312e-04_jprb,6.1023e-04_jprb/)  
kbo( :, 3,34, 2) = (/&
 & 9.5729e-05_jprb,1.0782e-04_jprb,4.3808e-04_jprb,6.0259e-04_jprb,6.9556e-04_jprb,6.0848e-04_jprb/)  
kbo( :, 4,34, 2) = (/&
 & 1.0025e-04_jprb,1.1302e-04_jprb,4.4678e-04_jprb,6.0791e-04_jprb,6.9562e-04_jprb,6.0393e-04_jprb/)  
kbo( :, 5,34, 2) = (/&
 & 1.0555e-04_jprb,1.1907e-04_jprb,4.5478e-04_jprb,6.1180e-04_jprb,6.9395e-04_jprb,5.9689e-04_jprb/)  
kbo( :, 1,35, 2) = (/&
 & 7.2889e-05_jprb,8.1925e-05_jprb,3.4533e-04_jprb,4.8352e-04_jprb,5.6643e-04_jprb,5.0117e-04_jprb/)  
kbo( :, 2,35, 2) = (/&
 & 7.5938e-05_jprb,8.5438e-05_jprb,3.5394e-04_jprb,4.9121e-04_jprb,5.7081e-04_jprb,5.0282e-04_jprb/)  
kbo( :, 3,35, 2) = (/&
 & 7.9261e-05_jprb,8.9337e-05_jprb,3.6188e-04_jprb,4.9693e-04_jprb,5.7284e-04_jprb,5.0143e-04_jprb/)  
kbo( :, 4,35, 2) = (/&
 & 8.3119e-05_jprb,9.3779e-05_jprb,3.6918e-04_jprb,5.0156e-04_jprb,5.7314e-04_jprb,4.9808e-04_jprb/)  
kbo( :, 5,35, 2) = (/&
 & 8.7666e-05_jprb,9.8982e-05_jprb,3.7599e-04_jprb,5.0487e-04_jprb,5.7194e-04_jprb,4.9242e-04_jprb/)  
kbo( :, 1,36, 2) = (/&
 & 5.9995e-05_jprb,6.7468e-05_jprb,2.8433e-04_jprb,3.9801e-04_jprb,4.6610e-04_jprb,4.1281e-04_jprb/)  
kbo( :, 2,36, 2) = (/&
 & 6.2532e-05_jprb,7.0399e-05_jprb,2.9160e-04_jprb,4.0447e-04_jprb,4.6992e-04_jprb,4.1443e-04_jprb/)  
kbo( :, 3,36, 2) = (/&
 & 6.5308e-05_jprb,7.3661e-05_jprb,2.9838e-04_jprb,4.0950e-04_jprb,4.7187e-04_jprb,4.1372e-04_jprb/)  
kbo( :, 4,36, 2) = (/&
 & 6.8562e-05_jprb,7.7412e-05_jprb,3.0448e-04_jprb,4.1355e-04_jprb,4.7234e-04_jprb,4.1122e-04_jprb/)  
kbo( :, 5,36, 2) = (/&
 & 7.2367e-05_jprb,8.1795e-05_jprb,3.1033e-04_jprb,4.1642e-04_jprb,4.7161e-04_jprb,4.0689e-04_jprb/)  
kbo( :, 1,37, 2) = (/&
 & 4.9059e-05_jprb,5.5199e-05_jprb,2.3317e-04_jprb,3.2671e-04_jprb,3.8295e-04_jprb,3.3938e-04_jprb/)  
kbo( :, 2,37, 2) = (/&
 & 5.1165e-05_jprb,5.7620e-05_jprb,2.3941e-04_jprb,3.3239e-04_jprb,3.8652e-04_jprb,3.4120e-04_jprb/)  
kbo( :, 3,37, 2) = (/&
 & 5.3443e-05_jprb,6.0304e-05_jprb,2.4519e-04_jprb,3.3687e-04_jprb,3.8853e-04_jprb,3.4110e-04_jprb/)  
kbo( :, 4,37, 2) = (/&
 & 5.6114e-05_jprb,6.3395e-05_jprb,2.5044e-04_jprb,3.4049e-04_jprb,3.8930e-04_jprb,3.3955e-04_jprb/)  
kbo( :, 5,37, 2) = (/&
 & 5.9214e-05_jprb,6.6999e-05_jprb,2.5546e-04_jprb,3.4318e-04_jprb,3.8905e-04_jprb,3.3631e-04_jprb/)  
kbo( :, 1,38, 2) = (/&
 & 4.0104e-05_jprb,4.5145e-05_jprb,1.9118e-04_jprb,2.6808e-04_jprb,3.1457e-04_jprb,2.7912e-04_jprb/)  
kbo( :, 2,38, 2) = (/&
 & 4.1848e-05_jprb,4.7145e-05_jprb,1.9649e-04_jprb,2.7305e-04_jprb,3.1789e-04_jprb,2.8112e-04_jprb/)  
kbo( :, 3,38, 2) = (/&
 & 4.3721e-05_jprb,4.9348e-05_jprb,2.0143e-04_jprb,2.7709e-04_jprb,3.1990e-04_jprb,2.8154e-04_jprb/)  
kbo( :, 4,38, 2) = (/&
 & 4.5908e-05_jprb,5.1893e-05_jprb,2.0595e-04_jprb,2.8033e-04_jprb,3.2086e-04_jprb,2.8062e-04_jprb/)  
kbo( :, 5,38, 2) = (/&
 & 4.8428e-05_jprb,5.4848e-05_jprb,2.1030e-04_jprb,2.8287e-04_jprb,3.2098e-04_jprb,2.7832e-04_jprb/)  
kbo( :, 1,39, 2) = (/&
 & 3.2779e-05_jprb,3.6913e-05_jprb,1.5676e-04_jprb,2.1996e-04_jprb,2.5835e-04_jprb,2.2986e-04_jprb/)  
kbo( :, 2,39, 2) = (/&
 & 3.4226e-05_jprb,3.8568e-05_jprb,1.6127e-04_jprb,2.2431e-04_jprb,2.6140e-04_jprb,2.3193e-04_jprb/)  
kbo( :, 3,39, 2) = (/&
 & 3.5764e-05_jprb,4.0382e-05_jprb,1.6550e-04_jprb,2.2790e-04_jprb,2.6334e-04_jprb,2.3271e-04_jprb/)  
kbo( :, 4,39, 2) = (/&
 & 3.7558e-05_jprb,4.2480e-05_jprb,1.6939e-04_jprb,2.3082e-04_jprb,2.6439e-04_jprb,2.3230e-04_jprb/)  
kbo( :, 5,39, 2) = (/&
 & 3.9596e-05_jprb,4.4889e-05_jprb,1.7315e-04_jprb,2.3313e-04_jprb,2.6477e-04_jprb,2.3072e-04_jprb/)  
kbo( :, 1,40, 2) = (/&
 & 2.6669e-05_jprb,3.0049e-05_jprb,1.2812e-04_jprb,1.8003e-04_jprb,2.1187e-04_jprb,1.8838e-04_jprb/)  
kbo( :, 2,40, 2) = (/&
 & 2.7871e-05_jprb,3.1411e-05_jprb,1.3197e-04_jprb,1.8389e-04_jprb,2.1472e-04_jprb,1.9052e-04_jprb/)  
kbo( :, 3,40, 2) = (/&
 & 2.9115e-05_jprb,3.2883e-05_jprb,1.3564e-04_jprb,1.8717e-04_jprb,2.1664e-04_jprb,1.9149e-04_jprb/)  
kbo( :, 4,40, 2) = (/&
 & 3.0569e-05_jprb,3.4584e-05_jprb,1.3899e-04_jprb,1.8980e-04_jprb,2.1779e-04_jprb,1.9147e-04_jprb/)  
kbo( :, 5,40, 2) = (/&
 & 3.2192e-05_jprb,3.6525e-05_jprb,1.4223e-04_jprb,1.9192e-04_jprb,2.1835e-04_jprb,1.9045e-04_jprb/)  
kbo( :, 1,41, 2) = (/&
 & 2.1671e-05_jprb,2.4436e-05_jprb,1.0464e-04_jprb,1.4721e-04_jprb,1.7354e-04_jprb,1.5422e-04_jprb/)  
kbo( :, 2,41, 2) = (/&
 & 2.2673e-05_jprb,2.5564e-05_jprb,1.0794e-04_jprb,1.5067e-04_jprb,1.7624e-04_jprb,1.5635e-04_jprb/)  
kbo( :, 3,41, 2) = (/&
 & 2.3692e-05_jprb,2.6758e-05_jprb,1.1109e-04_jprb,1.5359e-04_jprb,1.7809e-04_jprb,1.5746e-04_jprb/)  
kbo( :, 4,41, 2) = (/&
 & 2.4859e-05_jprb,2.8133e-05_jprb,1.1398e-04_jprb,1.5600e-04_jprb,1.7932e-04_jprb,1.5772e-04_jprb/)  
kbo( :, 5,41, 2) = (/&
 & 2.6157e-05_jprb,2.9694e-05_jprb,1.1679e-04_jprb,1.5797e-04_jprb,1.8006e-04_jprb,1.5714e-04_jprb/)  
kbo( :, 1,42, 2) = (/&
 & 1.7599e-05_jprb,1.9868e-05_jprb,8.5428e-05_jprb,1.2033e-04_jprb,1.4210e-04_jprb,1.2624e-04_jprb/)  
kbo( :, 2,42, 2) = (/&
 & 1.8437e-05_jprb,2.0798e-05_jprb,8.8247e-05_jprb,1.2340e-04_jprb,1.4460e-04_jprb,1.2832e-04_jprb/)  
kbo( :, 3,42, 2) = (/&
 & 1.9276e-05_jprb,2.1771e-05_jprb,9.0940e-05_jprb,1.2600e-04_jprb,1.4636e-04_jprb,1.2953e-04_jprb/)  
kbo( :, 4,42, 2) = (/&
 & 2.0214e-05_jprb,2.2883e-05_jprb,9.3444e-05_jprb,1.2819e-04_jprb,1.4761e-04_jprb,1.2995e-04_jprb/)  
kbo( :, 5,42, 2) = (/&
 & 2.1256e-05_jprb,2.4138e-05_jprb,9.5879e-05_jprb,1.2999e-04_jprb,1.4842e-04_jprb,1.2971e-04_jprb/)  
kbo( :, 1,43, 2) = (/&
 & 1.4241e-05_jprb,1.6107e-05_jprb,6.9575e-05_jprb,9.8122e-05_jprb,1.1610e-04_jprb,1.0313e-04_jprb/)  
kbo( :, 2,43, 2) = (/&
 & 1.4953e-05_jprb,1.6876e-05_jprb,7.1989e-05_jprb,1.0088e-04_jprb,1.1847e-04_jprb,1.0516e-04_jprb/)  
kbo( :, 3,43, 2) = (/&
 & 1.5643e-05_jprb,1.7668e-05_jprb,7.4322e-05_jprb,1.0321e-04_jprb,1.2016e-04_jprb,1.0643e-04_jprb/)  
kbo( :, 4,43, 2) = (/&
 & 1.6392e-05_jprb,1.8559e-05_jprb,7.6469e-05_jprb,1.0519e-04_jprb,1.2140e-04_jprb,1.0702e-04_jprb/)  
kbo( :, 5,43, 2) = (/&
 & 1.7225e-05_jprb,1.9561e-05_jprb,7.8569e-05_jprb,1.0686e-04_jprb,1.2228e-04_jprb,1.0704e-04_jprb/)  
kbo( :, 1,44, 2) = (/&
 & 1.1498e-05_jprb,1.3036e-05_jprb,5.6576e-05_jprb,7.9895e-05_jprb,9.4733e-05_jprb,8.4131e-05_jprb/)  
kbo( :, 2,44, 2) = (/&
 & 1.2106e-05_jprb,1.3670e-05_jprb,5.8637e-05_jprb,8.2333e-05_jprb,9.6917e-05_jprb,8.6094e-05_jprb/)  
kbo( :, 3,44, 2) = (/&
 & 1.2676e-05_jprb,1.4317e-05_jprb,6.0634e-05_jprb,8.4429e-05_jprb,9.8546e-05_jprb,8.7409e-05_jprb/)  
kbo( :, 4,44, 2) = (/&
 & 1.3277e-05_jprb,1.5031e-05_jprb,6.2499e-05_jprb,8.6240e-05_jprb,9.9772e-05_jprb,8.8130e-05_jprb/)  
kbo( :, 5,44, 2) = (/&
 & 1.3943e-05_jprb,1.5832e-05_jprb,6.4310e-05_jprb,8.7770e-05_jprb,1.0066e-04_jprb,8.8344e-05_jprb/)  
kbo( :, 1,45, 2) = (/&
 & 9.2693e-06_jprb,1.0543e-05_jprb,4.5963e-05_jprb,6.4978e-05_jprb,7.7194e-05_jprb,6.8589e-05_jprb/)  
kbo( :, 2,45, 2) = (/&
 & 9.7957e-06_jprb,1.1074e-05_jprb,4.7739e-05_jprb,6.7165e-05_jprb,7.9241e-05_jprb,7.0483e-05_jprb/)  
kbo( :, 3,45, 2) = (/&
 & 1.0267e-05_jprb,1.1600e-05_jprb,4.9445e-05_jprb,6.9027e-05_jprb,8.0769e-05_jprb,7.1812e-05_jprb/)  
kbo( :, 4,45, 2) = (/&
 & 1.0754e-05_jprb,1.2174e-05_jprb,5.1050e-05_jprb,7.0661e-05_jprb,8.1921e-05_jprb,7.2601e-05_jprb/)  
kbo( :, 5,45, 2) = (/&
 & 1.1287e-05_jprb,1.2814e-05_jprb,5.2605e-05_jprb,7.2048e-05_jprb,8.2819e-05_jprb,7.2974e-05_jprb/)  
kbo( :, 1,46, 2) = (/&
 & 7.4503e-06_jprb,8.5075e-06_jprb,3.7281e-05_jprb,5.2735e-05_jprb,6.2776e-05_jprb,5.5797e-05_jprb/)  
kbo( :, 2,46, 2) = (/&
 & 7.9071e-06_jprb,8.9566e-06_jprb,3.8801e-05_jprb,5.4682e-05_jprb,6.4662e-05_jprb,5.7621e-05_jprb/)  
kbo( :, 3,46, 2) = (/&
 & 8.3054e-06_jprb,9.3874e-06_jprb,4.0254e-05_jprb,5.6347e-05_jprb,6.6096e-05_jprb,5.8936e-05_jprb/)  
kbo( :, 4,46, 2) = (/&
 & 8.7047e-06_jprb,9.8508e-06_jprb,4.1643e-05_jprb,5.7815e-05_jprb,6.7206e-05_jprb,5.9793e-05_jprb/)  
kbo( :, 5,46, 2) = (/&
 & 9.1293e-06_jprb,1.0362e-05_jprb,4.2978e-05_jprb,5.9086e-05_jprb,6.8087e-05_jprb,6.0275e-05_jprb/)  
kbo( :, 1,47, 2) = (/&
 & 5.9482e-06_jprb,6.8343e-06_jprb,3.0152e-05_jprb,4.2665e-05_jprb,5.0898e-05_jprb,4.5169e-05_jprb/)  
kbo( :, 2,47, 2) = (/&
 & 6.3610e-06_jprb,7.2250e-06_jprb,3.1455e-05_jprb,4.4406e-05_jprb,5.2643e-05_jprb,4.6942e-05_jprb/)  
kbo( :, 3,47, 2) = (/&
 & 6.7018e-06_jprb,7.5799e-06_jprb,3.2695e-05_jprb,4.5897e-05_jprb,5.3992e-05_jprb,4.8229e-05_jprb/)  
kbo( :, 4,47, 2) = (/&
 & 7.0296e-06_jprb,7.9549e-06_jprb,3.3896e-05_jprb,4.7210e-05_jprb,5.5050e-05_jprb,4.9112e-05_jprb/)  
kbo( :, 5,47, 2) = (/&
 & 7.3684e-06_jprb,8.3623e-06_jprb,3.5042e-05_jprb,4.8359e-05_jprb,5.5895e-05_jprb,4.9665e-05_jprb/)  
kbo( :, 1,48, 2) = (/&
 & 4.7226e-06_jprb,5.4755e-06_jprb,2.4366e-05_jprb,3.4470e-05_jprb,4.1173e-05_jprb,3.6520e-05_jprb/)  
kbo( :, 2,48, 2) = (/&
 & 5.1075e-06_jprb,5.8220e-06_jprb,2.5469e-05_jprb,3.6010e-05_jprb,4.2797e-05_jprb,3.8222e-05_jprb/)  
kbo( :, 3,48, 2) = (/&
 & 5.4030e-06_jprb,6.1196e-06_jprb,2.6535e-05_jprb,3.7342e-05_jprb,4.4049e-05_jprb,3.9474e-05_jprb/)  
kbo( :, 4,48, 2) = (/&
 & 5.6740e-06_jprb,6.4213e-06_jprb,2.7566e-05_jprb,3.8507e-05_jprb,4.5041e-05_jprb,4.0367e-05_jprb/)  
kbo( :, 5,48, 2) = (/&
 & 5.9485e-06_jprb,6.7483e-06_jprb,2.8544e-05_jprb,3.9542e-05_jprb,4.5839e-05_jprb,4.0966e-05_jprb/)  
kbo( :, 1,49, 2) = (/&
 & 3.7285e-06_jprb,4.3687e-06_jprb,1.9662e-05_jprb,2.7800e-05_jprb,3.3218e-05_jprb,2.9501e-05_jprb/)  
kbo( :, 2,49, 2) = (/&
 & 4.0884e-06_jprb,4.6821e-06_jprb,2.0602e-05_jprb,2.9151e-05_jprb,3.4721e-05_jprb,3.1112e-05_jprb/)  
kbo( :, 3,49, 2) = (/&
 & 4.3499e-06_jprb,4.9382e-06_jprb,2.1513e-05_jprb,3.0331e-05_jprb,3.5872e-05_jprb,3.2329e-05_jprb/)  
kbo( :, 4,49, 2) = (/&
 & 4.5782e-06_jprb,5.1831e-06_jprb,2.2388e-05_jprb,3.1370e-05_jprb,3.6806e-05_jprb,3.3224e-05_jprb/)  
kbo( :, 5,49, 2) = (/&
 & 4.8038e-06_jprb,5.4471e-06_jprb,2.3228e-05_jprb,3.2295e-05_jprb,3.7558e-05_jprb,3.3865e-05_jprb/)  
kbo( :, 1,50, 2) = (/&
 & 2.9385e-06_jprb,3.4756e-06_jprb,1.5868e-05_jprb,2.2413e-05_jprb,2.6776e-05_jprb,2.3745e-05_jprb/)  
kbo( :, 2,50, 2) = (/&
 & 3.2647e-06_jprb,3.7628e-06_jprb,1.6666e-05_jprb,2.3594e-05_jprb,2.8150e-05_jprb,2.5211e-05_jprb/)  
kbo( :, 3,50, 2) = (/&
 & 3.5024e-06_jprb,3.9867e-06_jprb,1.7439e-05_jprb,2.4630e-05_jprb,2.9198e-05_jprb,2.6360e-05_jprb/)  
kbo( :, 4,50, 2) = (/&
 & 3.6969e-06_jprb,4.1885e-06_jprb,1.8186e-05_jprb,2.5547e-05_jprb,3.0054e-05_jprb,2.7214e-05_jprb/)  
kbo( :, 5,50, 2) = (/&
 & 3.8815e-06_jprb,4.4012e-06_jprb,1.8910e-05_jprb,2.6369e-05_jprb,3.0754e-05_jprb,2.7855e-05_jprb/)  
kbo( :, 1,51, 2) = (/&
 & 2.3100e-06_jprb,2.7563e-06_jprb,1.2803e-05_jprb,1.8054e-05_jprb,2.1547e-05_jprb,1.9044e-05_jprb/)  
kbo( :, 2,51, 2) = (/&
 & 2.5961e-06_jprb,3.0186e-06_jprb,1.3477e-05_jprb,1.9076e-05_jprb,2.2781e-05_jprb,2.0360e-05_jprb/)  
kbo( :, 3,51, 2) = (/&
 & 2.8167e-06_jprb,3.2170e-06_jprb,1.4130e-05_jprb,1.9983e-05_jprb,2.3743e-05_jprb,2.1431e-05_jprb/)  
kbo( :, 4,51, 2) = (/&
 & 2.9847e-06_jprb,3.3863e-06_jprb,1.4767e-05_jprb,2.0790e-05_jprb,2.4523e-05_jprb,2.2225e-05_jprb/)  
kbo( :, 5,51, 2) = (/&
 & 3.1380e-06_jprb,3.5588e-06_jprb,1.5387e-05_jprb,2.1516e-05_jprb,2.5161e-05_jprb,2.2842e-05_jprb/)  
kbo( :, 1,52, 2) = (/&
 & 1.8092e-06_jprb,2.1783e-06_jprb,1.0320e-05_jprb,1.4520e-05_jprb,1.7296e-05_jprb,1.5258e-05_jprb/)  
kbo( :, 2,52, 2) = (/&
 & 2.0552e-06_jprb,2.4128e-06_jprb,1.0887e-05_jprb,1.5404e-05_jprb,1.8400e-05_jprb,1.6432e-05_jprb/)  
kbo( :, 3,52, 2) = (/&
 & 2.2593e-06_jprb,2.5914e-06_jprb,1.1440e-05_jprb,1.6191e-05_jprb,1.9279e-05_jprb,1.7410e-05_jprb/)  
kbo( :, 4,52, 2) = (/&
 & 2.4069e-06_jprb,2.7365e-06_jprb,1.1980e-05_jprb,1.6899e-05_jprb,1.9980e-05_jprb,1.8159e-05_jprb/)  
kbo( :, 5,52, 2) = (/&
 & 2.5360e-06_jprb,2.8766e-06_jprb,1.2509e-05_jprb,1.7535e-05_jprb,2.0563e-05_jprb,1.8740e-05_jprb/)  
kbo( :, 1,53, 2) = (/&
 & 1.4105e-06_jprb,1.7158e-06_jprb,8.3084e-06_jprb,1.1659e-05_jprb,1.3847e-05_jprb,1.2214e-05_jprb/)  
kbo( :, 2,53, 2) = (/&
 & 1.6202e-06_jprb,1.9199e-06_jprb,8.7865e-06_jprb,1.2420e-05_jprb,1.4832e-05_jprb,1.3260e-05_jprb/)  
kbo( :, 3,53, 2) = (/&
 & 1.8048e-06_jprb,2.0833e-06_jprb,9.2542e-06_jprb,1.3103e-05_jprb,1.5629e-05_jprb,1.4148e-05_jprb/)  
kbo( :, 4,53, 2) = (/&
 & 1.9388e-06_jprb,2.2099e-06_jprb,9.7095e-06_jprb,1.3720e-05_jprb,1.6258e-05_jprb,1.4856e-05_jprb/)  
kbo( :, 5,53, 2) = (/&
 & 2.0484e-06_jprb,2.3252e-06_jprb,1.0159e-05_jprb,1.4275e-05_jprb,1.6786e-05_jprb,1.5408e-05_jprb/)  
kbo( :, 1,54, 2) = (/&
 & 1.1001e-06_jprb,1.3520e-06_jprb,6.6915e-06_jprb,9.3651e-06_jprb,1.1080e-05_jprb,9.6915e-06_jprb/)  
kbo( :, 2,54, 2) = (/&
 & 1.2776e-06_jprb,1.5264e-06_jprb,7.0980e-06_jprb,1.0019e-05_jprb,1.1951e-05_jprb,1.0599e-05_jprb/)  
kbo( :, 3,54, 2) = (/&
 & 1.4389e-06_jprb,1.6744e-06_jprb,7.4896e-06_jprb,1.0605e-05_jprb,1.2661e-05_jprb,1.1371e-05_jprb/)  
kbo( :, 4,54, 2) = (/&
 & 1.5618e-06_jprb,1.7856e-06_jprb,7.8730e-06_jprb,1.1139e-05_jprb,1.3225e-05_jprb,1.2005e-05_jprb/)  
kbo( :, 5,54, 2) = (/&
 & 1.6563e-06_jprb,1.8821e-06_jprb,8.2537e-06_jprb,1.1621e-05_jprb,1.3700e-05_jprb,1.2497e-05_jprb/)  
kbo( :, 1,55, 2) = (/&
 & 8.5645e-07_jprb,1.0639e-06_jprb,5.3882e-06_jprb,7.5160e-06_jprb,8.8564e-06_jprb,7.6411e-06_jprb/)  
kbo( :, 2,55, 2) = (/&
 & 1.0060e-06_jprb,1.2118e-06_jprb,5.7336e-06_jprb,8.0780e-06_jprb,9.6170e-06_jprb,8.4151e-06_jprb/)  
kbo( :, 3,55, 2) = (/&
 & 1.1442e-06_jprb,1.3431e-06_jprb,6.0604e-06_jprb,8.5801e-06_jprb,1.0247e-05_jprb,9.0709e-06_jprb/)  
kbo( :, 4,55, 2) = (/&
 & 1.2568e-06_jprb,1.4421e-06_jprb,6.3829e-06_jprb,9.0380e-06_jprb,1.0752e-05_jprb,9.6232e-06_jprb/)  

IF (lhook) CALL dr_hook('RRTM_KGB4:PART14',1,zhook_handle)
END SUBROUTINE part14


SUBROUTINE part15

REAL(KIND=JPRB) :: ZHOOK_HANDLE
IF (lhook) CALL dr_hook('RRTM_KGB4:PART15',0,zhook_handle)


kbo( :, 5,55, 2) = (/&
 & 1.3389e-06_jprb,1.5239e-06_jprb,6.7048e-06_jprb,9.4560e-06_jprb,1.1172e-05_jprb,1.0049e-05_jprb/)  
kbo( :, 1,56, 2) = (/&
 & 6.6442e-07_jprb,8.3379e-07_jprb,4.3324e-06_jprb,6.0198e-06_jprb,7.0629e-06_jprb,6.0049e-06_jprb/)  
kbo( :, 2,56, 2) = (/&
 & 7.8950e-07_jprb,9.5952e-07_jprb,4.6273e-06_jprb,6.5047e-06_jprb,7.7219e-06_jprb,6.6682e-06_jprb/)  
kbo( :, 3,56, 2) = (/&
 & 9.0717e-07_jprb,1.0738e-06_jprb,4.9008e-06_jprb,6.9329e-06_jprb,8.2806e-06_jprb,7.2285e-06_jprb/)  
kbo( :, 4,56, 2) = (/&
 & 1.0084e-06_jprb,1.1629e-06_jprb,5.1710e-06_jprb,7.3266e-06_jprb,8.7308e-06_jprb,7.6993e-06_jprb/)  
kbo( :, 5,56, 2) = (/&
 & 1.0813e-06_jprb,1.2332e-06_jprb,5.4414e-06_jprb,7.6876e-06_jprb,9.1018e-06_jprb,8.0751e-06_jprb/)  
kbo( :, 1,57, 2) = (/&
 & 5.1317e-07_jprb,6.4951e-07_jprb,3.4793e-06_jprb,4.8121e-06_jprb,5.6195e-06_jprb,4.7031e-06_jprb/)  
kbo( :, 2,57, 2) = (/&
 & 6.1735e-07_jprb,7.5758e-07_jprb,3.7304e-06_jprb,5.2293e-06_jprb,6.1863e-06_jprb,5.2741e-06_jprb/)  
kbo( :, 3,57, 2) = (/&
 & 7.1698e-07_jprb,8.5543e-07_jprb,3.9609e-06_jprb,5.5969e-06_jprb,6.6797e-06_jprb,5.7513e-06_jprb/)  
kbo( :, 4,57, 2) = (/&
 & 8.0608e-07_jprb,9.3608e-07_jprb,4.1867e-06_jprb,5.9326e-06_jprb,7.0780e-06_jprb,6.1535e-06_jprb/)  
kbo( :, 5,57, 2) = (/&
 & 8.7220e-07_jprb,9.9722e-07_jprb,4.4123e-06_jprb,6.2442e-06_jprb,7.4063e-06_jprb,6.4839e-06_jprb/)  
kbo( :, 1,58, 2) = (/&
 & 3.9480e-07_jprb,5.0435e-07_jprb,2.7935e-06_jprb,3.8432e-06_jprb,4.4657e-06_jprb,3.6764e-06_jprb/)  
kbo( :, 2,58, 2) = (/&
 & 4.8219e-07_jprb,5.9772e-07_jprb,3.0073e-06_jprb,4.2025e-06_jprb,4.9518e-06_jprb,4.1625e-06_jprb/)  
kbo( :, 3,58, 2) = (/&
 & 5.6606e-07_jprb,6.8070e-07_jprb,3.2015e-06_jprb,4.5174e-06_jprb,5.3832e-06_jprb,4.5681e-06_jprb/)  
kbo( :, 4,58, 2) = (/&
 & 6.4282e-07_jprb,7.5255e-07_jprb,3.3896e-06_jprb,4.8024e-06_jprb,5.7338e-06_jprb,4.9081e-06_jprb/)  
kbo( :, 5,58, 2) = (/&
 & 7.0311e-07_jprb,8.0645e-07_jprb,3.5782e-06_jprb,5.0698e-06_jprb,6.0234e-06_jprb,5.1890e-06_jprb/)  
kbo( :, 1,59, 2) = (/&
 & 3.1539e-07_jprb,4.0480e-07_jprb,2.2738e-06_jprb,3.1211e-06_jprb,3.6182e-06_jprb,2.9204e-06_jprb/)  
kbo( :, 2,59, 2) = (/&
 & 3.8822e-07_jprb,4.8324e-07_jprb,2.4529e-06_jprb,3.4232e-06_jprb,4.0269e-06_jprb,3.3117e-06_jprb/)  
kbo( :, 3,59, 2) = (/&
 & 4.5803e-07_jprb,5.5251e-07_jprb,2.6142e-06_jprb,3.6873e-06_jprb,4.3909e-06_jprb,3.6397e-06_jprb/)  
kbo( :, 4,59, 2) = (/&
 & 5.2209e-07_jprb,6.1313e-07_jprb,2.7709e-06_jprb,3.9267e-06_jprb,4.6885e-06_jprb,3.9100e-06_jprb/)  
kbo( :, 5,59, 2) = (/&
 & 5.7356e-07_jprb,6.5884e-07_jprb,2.9288e-06_jprb,4.1516e-06_jprb,4.9350e-06_jprb,4.1280e-06_jprb/)  
kbo( :, 1,13, 3) = (/&
 & 7.6409e-03_jprb,7.8630e-03_jprb,3.5099e-02_jprb,5.1489e-02_jprb,6.3478e-02_jprb,6.7045e-02_jprb/)  
kbo( :, 2,13, 3) = (/&
 & 7.6194e-03_jprb,7.8439e-03_jprb,3.6320e-02_jprb,5.3590e-02_jprb,6.5755e-02_jprb,7.0861e-02_jprb/)  
kbo( :, 3,13, 3) = (/&
 & 7.6221e-03_jprb,7.8478e-03_jprb,3.7408e-02_jprb,5.5388e-02_jprb,6.7789e-02_jprb,7.4140e-02_jprb/)  
kbo( :, 4,13, 3) = (/&
 & 7.7245e-03_jprb,7.9516e-03_jprb,3.8346e-02_jprb,5.6822e-02_jprb,6.9566e-02_jprb,7.7166e-02_jprb/)  
kbo( :, 5,13, 3) = (/&
 & 7.8978e-03_jprb,8.1255e-03_jprb,3.9191e-02_jprb,5.7916e-02_jprb,7.1029e-02_jprb,7.9766e-02_jprb/)  
kbo( :, 1,14, 3) = (/&
 & 6.3458e-03_jprb,6.5743e-03_jprb,3.0544e-02_jprb,4.4937e-02_jprb,5.5150e-02_jprb,5.7197e-02_jprb/)  
kbo( :, 2,14, 3) = (/&
 & 6.3293e-03_jprb,6.5605e-03_jprb,3.1591e-02_jprb,4.6706e-02_jprb,5.7142e-02_jprb,6.0155e-02_jprb/)  
kbo( :, 3,14, 3) = (/&
 & 6.3587e-03_jprb,6.5945e-03_jprb,3.2496e-02_jprb,4.8185e-02_jprb,5.8909e-02_jprb,6.2706e-02_jprb/)  
kbo( :, 4,14, 3) = (/&
 & 6.4686e-03_jprb,6.7092e-03_jprb,3.3313e-02_jprb,4.9362e-02_jprb,6.0431e-02_jprb,6.4908e-02_jprb/)  
kbo( :, 5,14, 3) = (/&
 & 6.6255e-03_jprb,6.8640e-03_jprb,3.4024e-02_jprb,5.0218e-02_jprb,6.1528e-02_jprb,6.6516e-02_jprb/)  
kbo( :, 1,15, 3) = (/&
 & 5.2608e-03_jprb,5.4955e-03_jprb,2.6384e-02_jprb,3.8869e-02_jprb,4.7602e-02_jprb,4.8635e-02_jprb/)  
kbo( :, 2,15, 3) = (/&
 & 5.2548e-03_jprb,5.4956e-03_jprb,2.7249e-02_jprb,4.0345e-02_jprb,4.9310e-02_jprb,5.0945e-02_jprb/)  
kbo( :, 3,15, 3) = (/&
 & 5.2993e-03_jprb,5.5500e-03_jprb,2.8019e-02_jprb,4.1551e-02_jprb,5.0814e-02_jprb,5.2823e-02_jprb/)  
kbo( :, 4,15, 3) = (/&
 & 5.4066e-03_jprb,5.6608e-03_jprb,2.8708e-02_jprb,4.2452e-02_jprb,5.1926e-02_jprb,5.4154e-02_jprb/)  
kbo( :, 5,15, 3) = (/&
 & 5.5521e-03_jprb,5.8017e-03_jprb,2.9282e-02_jprb,4.3007e-02_jprb,5.2526e-02_jprb,5.4943e-02_jprb/)  
kbo( :, 1,16, 3) = (/&
 & 4.3548e-03_jprb,4.5880e-03_jprb,2.2610e-02_jprb,3.3375e-02_jprb,4.0790e-02_jprb,4.1260e-02_jprb/)  
kbo( :, 2,16, 3) = (/&
 & 4.3619e-03_jprb,4.6068e-03_jprb,2.3348e-02_jprb,3.4577e-02_jprb,4.2241e-02_jprb,4.3009e-02_jprb/)  
kbo( :, 3,16, 3) = (/&
 & 4.4136e-03_jprb,4.6705e-03_jprb,2.3984e-02_jprb,3.5504e-02_jprb,4.3353e-02_jprb,4.4224e-02_jprb/)  
kbo( :, 4,16, 3) = (/&
 & 4.5178e-03_jprb,4.7766e-03_jprb,2.4528e-02_jprb,3.6072e-02_jprb,4.4010e-02_jprb,4.4975e-02_jprb/)  
kbo( :, 5,16, 3) = (/&
 & 4.6504e-03_jprb,4.9071e-03_jprb,2.4942e-02_jprb,3.6363e-02_jprb,4.4282e-02_jprb,4.5379e-02_jprb/)  
kbo( :, 1,17, 3) = (/&
 & 3.6046e-03_jprb,3.8291e-03_jprb,1.9257e-02_jprb,2.8451e-02_jprb,3.4711e-02_jprb,3.4756e-02_jprb/)  
kbo( :, 2,17, 3) = (/&
 & 3.6213e-03_jprb,3.8592e-03_jprb,1.9862e-02_jprb,2.9374e-02_jprb,3.5819e-02_jprb,3.5957e-02_jprb/)  
kbo( :, 3,17, 3) = (/&
 & 3.6771e-03_jprb,3.9291e-03_jprb,2.0363e-02_jprb,2.9994e-02_jprb,3.6526e-02_jprb,3.6699e-02_jprb/)  
kbo( :, 4,17, 3) = (/&
 & 3.7714e-03_jprb,4.0283e-03_jprb,2.0759e-02_jprb,3.0326e-02_jprb,3.6910e-02_jprb,3.7152e-02_jprb/)  
kbo( :, 5,17, 3) = (/&
 & 3.8899e-03_jprb,4.1466e-03_jprb,2.1065e-02_jprb,3.0505e-02_jprb,3.7035e-02_jprb,3.7347e-02_jprb/)  
kbo( :, 1,18, 3) = (/&
 & 2.9885e-03_jprb,3.1998e-03_jprb,1.6296e-02_jprb,2.4061e-02_jprb,2.9310e-02_jprb,2.9021e-02_jprb/)  
kbo( :, 2,18, 3) = (/&
 & 3.0092e-03_jprb,3.2357e-03_jprb,1.6767e-02_jprb,2.4711e-02_jprb,3.0069e-02_jprb,2.9818e-02_jprb/)  
kbo( :, 3,18, 3) = (/&
 & 3.0601e-03_jprb,3.3019e-03_jprb,1.7137e-02_jprb,2.5107e-02_jprb,3.0527e-02_jprb,3.0314e-02_jprb/)  
kbo( :, 4,18, 3) = (/&
 & 3.1433e-03_jprb,3.3904e-03_jprb,1.7445e-02_jprb,2.5340e-02_jprb,3.0772e-02_jprb,3.0595e-02_jprb/)  
kbo( :, 5,18, 3) = (/&
 & 3.2491e-03_jprb,3.4975e-03_jprb,1.7663e-02_jprb,2.5461e-02_jprb,3.0822e-02_jprb,3.0677e-02_jprb/)  
kbo( :, 1,19, 3) = (/&
 & 2.4792e-03_jprb,2.6786e-03_jprb,1.3691e-02_jprb,2.0180e-02_jprb,2.4544e-02_jprb,2.4040e-02_jprb/)  
kbo( :, 2,19, 3) = (/&
 & 2.4982e-03_jprb,2.7134e-03_jprb,1.4049e-02_jprb,2.0629e-02_jprb,2.5069e-02_jprb,2.4597e-02_jprb/)  
kbo( :, 3,19, 3) = (/&
 & 2.5452e-03_jprb,2.7746e-03_jprb,1.4344e-02_jprb,2.0921e-02_jprb,2.5390e-02_jprb,2.4935e-02_jprb/)  
kbo( :, 4,19, 3) = (/&
 & 2.6196e-03_jprb,2.8530e-03_jprb,1.4579e-02_jprb,2.1097e-02_jprb,2.5555e-02_jprb,2.5107e-02_jprb/)  
kbo( :, 5,19, 3) = (/&
 & 2.7162e-03_jprb,2.9530e-03_jprb,1.4732e-02_jprb,2.1186e-02_jprb,2.5572e-02_jprb,2.5118e-02_jprb/)  
kbo( :, 1,20, 3) = (/&
 & 2.0528e-03_jprb,2.2395e-03_jprb,1.1440e-02_jprb,1.6822e-02_jprb,2.0437e-02_jprb,1.9854e-02_jprb/)  
kbo( :, 2,20, 3) = (/&
 & 2.0711e-03_jprb,2.2736e-03_jprb,1.1723e-02_jprb,1.7158e-02_jprb,2.0817e-02_jprb,2.0254e-02_jprb/)  
kbo( :, 3,20, 3) = (/&
 & 2.1151e-03_jprb,2.3293e-03_jprb,1.1957e-02_jprb,1.7380e-02_jprb,2.1050e-02_jprb,2.0492e-02_jprb/)  
kbo( :, 4,20, 3) = (/&
 & 2.1833e-03_jprb,2.4015e-03_jprb,1.2129e-02_jprb,1.7522e-02_jprb,2.1168e-02_jprb,2.0597e-02_jprb/)  
kbo( :, 5,20, 3) = (/&
 & 2.2724e-03_jprb,2.4949e-03_jprb,1.2249e-02_jprb,1.7578e-02_jprb,2.1166e-02_jprb,2.0571e-02_jprb/)  
kbo( :, 1,21, 3) = (/&
 & 1.6965e-03_jprb,1.8666e-03_jprb,9.5200e-03_jprb,1.3965e-02_jprb,1.6952e-02_jprb,1.6357e-02_jprb/)  
kbo( :, 2,21, 3) = (/&
 & 1.7152e-03_jprb,1.9002e-03_jprb,9.7517e-03_jprb,1.4227e-02_jprb,1.7236e-02_jprb,1.6650e-02_jprb/)  
kbo( :, 3,21, 3) = (/&
 & 1.7567e-03_jprb,1.9510e-03_jprb,9.9283e-03_jprb,1.4408e-02_jprb,1.7419e-02_jprb,1.6821e-02_jprb/)  
kbo( :, 4,21, 3) = (/&
 & 1.8182e-03_jprb,2.0179e-03_jprb,1.0061e-02_jprb,1.4512e-02_jprb,1.7502e-02_jprb,1.6883e-02_jprb/)  
kbo( :, 5,21, 3) = (/&
 & 1.9002e-03_jprb,2.1049e-03_jprb,1.0160e-02_jprb,1.4547e-02_jprb,1.7493e-02_jprb,1.6838e-02_jprb/)  
kbo( :, 1,22, 3) = (/&
 & 1.4012e-03_jprb,1.5543e-03_jprb,7.9187e-03_jprb,1.1582e-02_jprb,1.4044e-02_jprb,1.3475e-02_jprb/)  
kbo( :, 2,22, 3) = (/&
 & 1.4217e-03_jprb,1.5878e-03_jprb,8.0975e-03_jprb,1.1789e-02_jprb,1.4260e-02_jprb,1.3686e-02_jprb/)  
kbo( :, 3,22, 3) = (/&
 & 1.4625e-03_jprb,1.6356e-03_jprb,8.2342e-03_jprb,1.1928e-02_jprb,1.4399e-02_jprb,1.3802e-02_jprb/)  
kbo( :, 4,22, 3) = (/&
 & 1.5189e-03_jprb,1.6982e-03_jprb,8.3363e-03_jprb,1.1996e-02_jprb,1.4455e-02_jprb,1.3830e-02_jprb/)  
kbo( :, 5,22, 3) = (/&
 & 1.5929e-03_jprb,1.7785e-03_jprb,8.4131e-03_jprb,1.2015e-02_jprb,1.4430e-02_jprb,1.3772e-02_jprb/)  
kbo( :, 1,23, 3) = (/&
 & 1.1570e-03_jprb,1.2929e-03_jprb,6.5744e-03_jprb,9.5929e-03_jprb,1.1615e-02_jprb,1.1086e-02_jprb/)  
kbo( :, 2,23, 3) = (/&
 & 1.1790e-03_jprb,1.3257e-03_jprb,6.7098e-03_jprb,9.7544e-03_jprb,1.1782e-02_jprb,1.1237e-02_jprb/)  
kbo( :, 3,23, 3) = (/&
 & 1.2175e-03_jprb,1.3704e-03_jprb,6.8141e-03_jprb,9.8515e-03_jprb,1.1889e-02_jprb,1.1315e-02_jprb/)  
kbo( :, 4,23, 3) = (/&
 & 1.2686e-03_jprb,1.4282e-03_jprb,6.8934e-03_jprb,9.9002e-03_jprb,1.1920e-02_jprb,1.1318e-02_jprb/)  
kbo( :, 5,23, 3) = (/&
 & 1.3340e-03_jprb,1.5001e-03_jprb,6.9577e-03_jprb,9.9108e-03_jprb,1.1886e-02_jprb,1.1254e-02_jprb/)  
kbo( :, 1,24, 3) = (/&
 & 9.5574e-04_jprb,1.0753e-03_jprb,5.4476e-03_jprb,7.9376e-03_jprb,9.5959e-03_jprb,9.1100e-03_jprb/)  
kbo( :, 2,24, 3) = (/&
 & 9.7834e-04_jprb,1.1070e-03_jprb,5.5506e-03_jprb,8.0557e-03_jprb,9.7276e-03_jprb,9.2176e-03_jprb/)  
kbo( :, 3,24, 3) = (/&
 & 1.0140e-03_jprb,1.1485e-03_jprb,5.6323e-03_jprb,8.1281e-03_jprb,9.8028e-03_jprb,9.2635e-03_jprb/)  
kbo( :, 4,24, 3) = (/&
 & 1.0594e-03_jprb,1.2005e-03_jprb,5.6966e-03_jprb,8.1612e-03_jprb,9.8145e-03_jprb,9.2505e-03_jprb/)  
kbo( :, 5,24, 3) = (/&
 & 1.1172e-03_jprb,1.2644e-03_jprb,5.7523e-03_jprb,8.1643e-03_jprb,9.7794e-03_jprb,9.1865e-03_jprb/)  
kbo( :, 1,25, 3) = (/&
 & 7.9031e-04_jprb,8.9498e-04_jprb,4.5093e-03_jprb,6.5597e-03_jprb,7.9226e-03_jprb,7.4814e-03_jprb/)  
kbo( :, 2,25, 3) = (/&
 & 8.1263e-04_jprb,9.2459e-04_jprb,4.5880e-03_jprb,6.6467e-03_jprb,8.0247e-03_jprb,7.5572e-03_jprb/)  
kbo( :, 3,25, 3) = (/&
 & 8.4479e-04_jprb,9.6257e-04_jprb,4.6527e-03_jprb,6.6977e-03_jprb,8.0725e-03_jprb,7.5813e-03_jprb/)  
kbo( :, 4,25, 3) = (/&
 & 8.8545e-04_jprb,1.0093e-03_jprb,4.7088e-03_jprb,6.7186e-03_jprb,8.0725e-03_jprb,7.5582e-03_jprb/)  
kbo( :, 5,25, 3) = (/&
 & 9.3639e-04_jprb,1.0658e-03_jprb,4.7580e-03_jprb,6.7210e-03_jprb,8.0368e-03_jprb,7.4940e-03_jprb/)  
kbo( :, 1,26, 3) = (/&
 & 6.5440e-04_jprb,7.4555e-04_jprb,3.7287e-03_jprb,5.4156e-03_jprb,6.5397e-03_jprb,6.1435e-03_jprb/)  
kbo( :, 2,26, 3) = (/&
 & 6.7588e-04_jprb,7.7292e-04_jprb,3.7917e-03_jprb,5.4786e-03_jprb,6.6119e-03_jprb,6.1927e-03_jprb/)  
kbo( :, 3,26, 3) = (/&
 & 7.0450e-04_jprb,8.0706e-04_jprb,3.8452e-03_jprb,5.5137e-03_jprb,6.6415e-03_jprb,6.2018e-03_jprb/)  
kbo( :, 4,26, 3) = (/&
 & 7.4139e-04_jprb,8.4916e-04_jprb,3.8959e-03_jprb,5.5296e-03_jprb,6.6347e-03_jprb,6.1729e-03_jprb/)  
kbo( :, 5,26, 3) = (/&
 & 7.8678e-04_jprb,8.9964e-04_jprb,3.9398e-03_jprb,5.5339e-03_jprb,6.6007e-03_jprb,6.1130e-03_jprb/)  
kbo( :, 1,27, 3) = (/&
 & 5.4261e-04_jprb,6.2138e-04_jprb,3.0812e-03_jprb,4.4673e-03_jprb,5.3930e-03_jprb,5.0432e-03_jprb/)  
kbo( :, 2,27, 3) = (/&
 & 5.6244e-04_jprb,6.4623e-04_jprb,3.1326e-03_jprb,4.5130e-03_jprb,5.4441e-03_jprb,5.0746e-03_jprb/)  
kbo( :, 3,27, 3) = (/&
 & 5.8793e-04_jprb,6.7665e-04_jprb,3.1799e-03_jprb,4.5386e-03_jprb,5.4598e-03_jprb,5.0735e-03_jprb/)  
kbo( :, 4,27, 3) = (/&
 & 6.2139e-04_jprb,7.1456e-04_jprb,3.2246e-03_jprb,4.5530e-03_jprb,5.4488e-03_jprb,5.0440e-03_jprb/)  
kbo( :, 5,27, 3) = (/&
 & 6.6189e-04_jprb,7.5928e-04_jprb,3.2622e-03_jprb,4.5583e-03_jprb,5.4192e-03_jprb,4.9887e-03_jprb/)  
kbo( :, 1,28, 3) = (/&
 & 4.5041e-04_jprb,5.1802e-04_jprb,2.5459e-03_jprb,3.6826e-03_jprb,4.4432e-03_jprb,4.1386e-03_jprb/)  
kbo( :, 2,28, 3) = (/&
 & 4.6818e-04_jprb,5.4025e-04_jprb,2.5901e-03_jprb,3.7166e-03_jprb,4.4776e-03_jprb,4.1576e-03_jprb/)  
kbo( :, 3,28, 3) = (/&
 & 4.9122e-04_jprb,5.6731e-04_jprb,2.6317e-03_jprb,3.7378e-03_jprb,4.4848e-03_jprb,4.1511e-03_jprb/)  
kbo( :, 4,28, 3) = (/&
 & 5.2165e-04_jprb,6.0153e-04_jprb,2.6701e-03_jprb,3.7517e-03_jprb,4.4733e-03_jprb,4.1214e-03_jprb/)  
kbo( :, 5,28, 3) = (/&
 & 5.5747e-04_jprb,6.4051e-04_jprb,2.7007e-03_jprb,3.7587e-03_jprb,4.4498e-03_jprb,4.0722e-03_jprb/)  
kbo( :, 1,29, 3) = (/&
 & 3.7413e-04_jprb,4.3196e-04_jprb,2.1044e-03_jprb,3.0343e-03_jprb,3.6585e-03_jprb,3.3981e-03_jprb/)  
kbo( :, 2,29, 3) = (/&
 & 3.9017e-04_jprb,4.5166e-04_jprb,2.1424e-03_jprb,3.0612e-03_jprb,3.6810e-03_jprb,3.4095e-03_jprb/)  
kbo( :, 3,29, 3) = (/&
 & 4.1157e-04_jprb,4.7625e-04_jprb,2.1792e-03_jprb,3.0806e-03_jprb,3.6837e-03_jprb,3.4002e-03_jprb/)  
kbo( :, 4,29, 3) = (/&
 & 4.3865e-04_jprb,5.0663e-04_jprb,2.2090e-03_jprb,3.0938e-03_jprb,3.6744e-03_jprb,3.3735e-03_jprb/)  
kbo( :, 5,29, 3) = (/&
 & 4.7012e-04_jprb,5.4039e-04_jprb,2.2354e-03_jprb,3.1005e-03_jprb,3.6551e-03_jprb,3.3297e-03_jprb/)  
kbo( :, 1,30, 3) = (/&
 & 3.1103e-04_jprb,3.6024e-04_jprb,1.7406e-03_jprb,2.5005e-03_jprb,3.0110e-03_jprb,2.7911e-03_jprb/)  
kbo( :, 2,30, 3) = (/&
 & 3.2577e-04_jprb,3.7785e-04_jprb,1.7737e-03_jprb,2.5236e-03_jprb,3.0255e-03_jprb,2.7972e-03_jprb/)  
kbo( :, 3,30, 3) = (/&
 & 3.4538e-04_jprb,4.0017e-04_jprb,1.8036e-03_jprb,2.5406e-03_jprb,3.0269e-03_jprb,2.7870e-03_jprb/)  
kbo( :, 4,30, 3) = (/&
 & 3.6935e-04_jprb,4.2673e-04_jprb,1.8286e-03_jprb,2.5529e-03_jprb,3.0186e-03_jprb,2.7615e-03_jprb/)  
kbo( :, 5,30, 3) = (/&
 & 3.9676e-04_jprb,4.5608e-04_jprb,1.8513e-03_jprb,2.5584e-03_jprb,3.0040e-03_jprb,2.7242e-03_jprb/)  
kbo( :, 1,31, 3) = (/&
 & 2.5900e-04_jprb,3.0066e-04_jprb,1.4406e-03_jprb,2.0618e-03_jprb,2.4773e-03_jprb,2.2948e-03_jprb/)  
kbo( :, 2,31, 3) = (/&
 & 2.7261e-04_jprb,3.1655e-04_jprb,1.4684e-03_jprb,2.0810e-03_jprb,2.4873e-03_jprb,2.2978e-03_jprb/)  
kbo( :, 3,31, 3) = (/&
 & 2.9037e-04_jprb,3.3669e-04_jprb,1.4928e-03_jprb,2.0966e-03_jprb,2.4881e-03_jprb,2.2878e-03_jprb/)  
kbo( :, 4,31, 3) = (/&
 & 3.1154e-04_jprb,3.5979e-04_jprb,1.5138e-03_jprb,2.1064e-03_jprb,2.4823e-03_jprb,2.2654e-03_jprb/)  
kbo( :, 5,31, 3) = (/&
 & 3.3507e-04_jprb,3.8509e-04_jprb,1.5342e-03_jprb,2.1116e-03_jprb,2.4709e-03_jprb,2.2338e-03_jprb/)  
kbo( :, 1,32, 3) = (/&
 & 2.1614e-04_jprb,2.5126e-04_jprb,1.1930e-03_jprb,1.7007e-03_jprb,2.0381e-03_jprb,1.8878e-03_jprb/)  
kbo( :, 2,32, 3) = (/&
 & 2.2861e-04_jprb,2.6571e-04_jprb,1.2162e-03_jprb,1.7180e-03_jprb,2.0460e-03_jprb,1.8890e-03_jprb/)  
kbo( :, 3,32, 3) = (/&
 & 2.4457e-04_jprb,2.8365e-04_jprb,1.2363e-03_jprb,1.7307e-03_jprb,2.0470e-03_jprb,1.8790e-03_jprb/)  
kbo( :, 4,32, 3) = (/&
 & 2.6297e-04_jprb,3.0364e-04_jprb,1.2543e-03_jprb,1.7385e-03_jprb,2.0430e-03_jprb,1.8594e-03_jprb/)  
kbo( :, 5,32, 3) = (/&
 & 2.8320e-04_jprb,3.2527e-04_jprb,1.2726e-03_jprb,1.7439e-03_jprb,2.0334e-03_jprb,1.8328e-03_jprb/)  
kbo( :, 1,33, 3) = (/&
 & 1.8077e-04_jprb,2.1039e-04_jprb,9.8840e-04_jprb,1.4043e-03_jprb,1.6777e-03_jprb,1.5543e-03_jprb/)  
kbo( :, 2,33, 3) = (/&
 & 1.9220e-04_jprb,2.2350e-04_jprb,1.0074e-03_jprb,1.4187e-03_jprb,1.6838e-03_jprb,1.5538e-03_jprb/)  
kbo( :, 3,33, 3) = (/&
 & 2.0626e-04_jprb,2.3918e-04_jprb,1.0244e-03_jprb,1.4289e-03_jprb,1.6852e-03_jprb,1.5443e-03_jprb/)  
kbo( :, 4,33, 3) = (/&
 & 2.2215e-04_jprb,2.5639e-04_jprb,1.0403e-03_jprb,1.4356e-03_jprb,1.6818e-03_jprb,1.5277e-03_jprb/)  
kbo( :, 5,33, 3) = (/&
 & 2.3958e-04_jprb,2.7494e-04_jprb,1.0565e-03_jprb,1.4410e-03_jprb,1.6741e-03_jprb,1.5054e-03_jprb/)  
kbo( :, 1,34, 3) = (/&
 & 1.5119e-04_jprb,1.7609e-04_jprb,8.1855e-04_jprb,1.1596e-03_jprb,1.3812e-03_jprb,1.2791e-03_jprb/)  
kbo( :, 2,34, 3) = (/&
 & 1.6145e-04_jprb,1.8785e-04_jprb,8.3425e-04_jprb,1.1712e-03_jprb,1.3866e-03_jprb,1.2773e-03_jprb/)  
kbo( :, 3,34, 3) = (/&
 & 1.7367e-04_jprb,2.0133e-04_jprb,8.4883e-04_jprb,1.1799e-03_jprb,1.3882e-03_jprb,1.2691e-03_jprb/)  
kbo( :, 4,34, 3) = (/&
 & 1.8734e-04_jprb,2.1609e-04_jprb,8.6307e-04_jprb,1.1863e-03_jprb,1.3855e-03_jprb,1.2550e-03_jprb/)  
kbo( :, 5,34, 3) = (/&
 & 2.0225e-04_jprb,2.3202e-04_jprb,8.7752e-04_jprb,1.1920e-03_jprb,1.3795e-03_jprb,1.2363e-03_jprb/)  
kbo( :, 1,35, 3) = (/&
 & 1.2586e-04_jprb,1.4671e-04_jprb,6.7658e-04_jprb,9.5649e-04_jprb,1.1370e-03_jprb,1.0523e-03_jprb/)  
kbo( :, 2,35, 3) = (/&
 & 1.3479e-04_jprb,1.5694e-04_jprb,6.9016e-04_jprb,9.6658e-04_jprb,1.1423e-03_jprb,1.0509e-03_jprb/)  
kbo( :, 3,35, 3) = (/&
 & 1.4527e-04_jprb,1.6840e-04_jprb,7.0251e-04_jprb,9.7407e-04_jprb,1.1435e-03_jprb,1.0441e-03_jprb/)  
kbo( :, 4,35, 3) = (/&
 & 1.5691e-04_jprb,1.8098e-04_jprb,7.1533e-04_jprb,9.8058e-04_jprb,1.1418e-03_jprb,1.0326e-03_jprb/)  
kbo( :, 5,35, 3) = (/&
 & 1.6957e-04_jprb,1.9459e-04_jprb,7.2799e-04_jprb,9.8636e-04_jprb,1.1378e-03_jprb,1.0171e-03_jprb/)  
kbo( :, 1,36, 3) = (/&
 & 1.0414e-04_jprb,1.2151e-04_jprb,5.5801e-04_jprb,7.8827e-04_jprb,9.3599e-04_jprb,8.6559e-04_jprb/)  
kbo( :, 2,36, 3) = (/&
 & 1.1170e-04_jprb,1.3016e-04_jprb,5.6976e-04_jprb,7.9724e-04_jprb,9.4085e-04_jprb,8.6498e-04_jprb/)  
kbo( :, 3,36, 3) = (/&
 & 1.2056e-04_jprb,1.3986e-04_jprb,5.8091e-04_jprb,8.0448e-04_jprb,9.4273e-04_jprb,8.5997e-04_jprb/)  
kbo( :, 4,36, 3) = (/&
 & 1.3038e-04_jprb,1.5047e-04_jprb,5.9203e-04_jprb,8.1040e-04_jprb,9.4179e-04_jprb,8.5084e-04_jprb/)  
kbo( :, 5,36, 3) = (/&
 & 1.4104e-04_jprb,1.6199e-04_jprb,6.0308e-04_jprb,8.1605e-04_jprb,9.3933e-04_jprb,8.3818e-04_jprb/)  
kbo( :, 1,37, 3) = (/&
 & 8.5323e-05_jprb,9.9664e-05_jprb,4.5884e-04_jprb,6.4852e-04_jprb,7.6974e-04_jprb,7.1141e-04_jprb/)  
kbo( :, 2,37, 3) = (/&
 & 9.1527e-05_jprb,1.0682e-04_jprb,4.6909e-04_jprb,6.5669e-04_jprb,7.7467e-04_jprb,7.1194e-04_jprb/)  
kbo( :, 3,37, 3) = (/&
 & 9.8871e-05_jprb,1.1487e-04_jprb,4.7886e-04_jprb,6.6345e-04_jprb,7.7695e-04_jprb,7.0849e-04_jprb/)  
kbo( :, 4,37, 3) = (/&
 & 1.0704e-04_jprb,1.2374e-04_jprb,4.8883e-04_jprb,6.6930e-04_jprb,7.7737e-04_jprb,7.0168e-04_jprb/)  

IF (lhook) CALL dr_hook('RRTM_KGB4:PART15',1,zhook_handle)
END SUBROUTINE part15


SUBROUTINE part16

REAL(KIND=JPRB) :: ZHOOK_HANDLE
IF (lhook) CALL dr_hook('RRTM_KGB4:PART16',0,zhook_handle)


kbo( :, 5,37, 3) = (/&
 & 1.1597e-04_jprb,1.3339e-04_jprb,4.9841e-04_jprb,6.7481e-04_jprb,7.7624e-04_jprb,6.9182e-04_jprb/)  
kbo( :, 1,38, 3) = (/&
 & 6.9864e-05_jprb,8.1702e-05_jprb,3.7720e-04_jprb,5.3356e-04_jprb,6.3309e-04_jprb,5.8498e-04_jprb/)  
kbo( :, 2,38, 3) = (/&
 & 7.4949e-05_jprb,8.7605e-05_jprb,3.8612e-04_jprb,5.4085e-04_jprb,6.3774e-04_jprb,5.8615e-04_jprb/)  
kbo( :, 3,38, 3) = (/&
 & 8.1032e-05_jprb,9.4290e-05_jprb,3.9469e-04_jprb,5.4710e-04_jprb,6.4046e-04_jprb,5.8424e-04_jprb/)  
kbo( :, 4,38, 3) = (/&
 & 8.7830e-05_jprb,1.0169e-04_jprb,4.0337e-04_jprb,5.5261e-04_jprb,6.4155e-04_jprb,5.7913e-04_jprb/)  
kbo( :, 5,38, 3) = (/&
 & 9.5293e-05_jprb,1.0978e-04_jprb,4.1177e-04_jprb,5.5788e-04_jprb,6.4154e-04_jprb,5.7166e-04_jprb/)  
kbo( :, 1,39, 3) = (/&
 & 5.7197e-05_jprb,6.6973e-05_jprb,3.1005e-04_jprb,4.3874e-04_jprb,5.2056e-04_jprb,4.8131e-04_jprb/)  
kbo( :, 2,39, 3) = (/&
 & 6.1371e-05_jprb,7.1842e-05_jprb,3.1779e-04_jprb,4.4531e-04_jprb,5.2502e-04_jprb,4.8298e-04_jprb/)  
kbo( :, 3,39, 3) = (/&
 & 6.6407e-05_jprb,7.7394e-05_jprb,3.2540e-04_jprb,4.5115e-04_jprb,5.2799e-04_jprb,4.8215e-04_jprb/)  
kbo( :, 4,39, 3) = (/&
 & 7.2064e-05_jprb,8.3560e-05_jprb,3.3301e-04_jprb,4.5632e-04_jprb,5.2961e-04_jprb,4.7858e-04_jprb/)  
kbo( :, 5,39, 3) = (/&
 & 7.8303e-05_jprb,9.0355e-05_jprb,3.4035e-04_jprb,4.6134e-04_jprb,5.3031e-04_jprb,4.7308e-04_jprb/)  
kbo( :, 1,40, 3) = (/&
 & 4.6522e-05_jprb,5.4522e-05_jprb,2.5421e-04_jprb,3.6027e-04_jprb,4.2767e-04_jprb,3.9473e-04_jprb/)  
kbo( :, 2,40, 3) = (/&
 & 4.9863e-05_jprb,5.8471e-05_jprb,2.6092e-04_jprb,3.6612e-04_jprb,4.3197e-04_jprb,3.9681e-04_jprb/)  
kbo( :, 3,40, 3) = (/&
 & 5.3968e-05_jprb,6.3027e-05_jprb,2.6757e-04_jprb,3.7152e-04_jprb,4.3513e-04_jprb,3.9683e-04_jprb/)  
kbo( :, 4,40, 3) = (/&
 & 5.8623e-05_jprb,6.8126e-05_jprb,2.7426e-04_jprb,3.7636e-04_jprb,4.3711e-04_jprb,3.9452e-04_jprb/)  
kbo( :, 5,40, 3) = (/&
 & 6.3789e-05_jprb,7.3766e-05_jprb,2.8070e-04_jprb,3.8106e-04_jprb,4.3831e-04_jprb,3.9053e-04_jprb/)  
kbo( :, 1,41, 3) = (/&
 & 3.7804e-05_jprb,4.4333e-05_jprb,2.0821e-04_jprb,2.9549e-04_jprb,3.5103e-04_jprb,3.2341e-04_jprb/)  
kbo( :, 2,41, 3) = (/&
 & 4.0492e-05_jprb,4.7550e-05_jprb,2.1408e-04_jprb,3.0089e-04_jprb,3.5532e-04_jprb,3.2587e-04_jprb/)  
kbo( :, 3,41, 3) = (/&
 & 4.3795e-05_jprb,5.1265e-05_jprb,2.1987e-04_jprb,3.0577e-04_jprb,3.5843e-04_jprb,3.2638e-04_jprb/)  
kbo( :, 4,41, 3) = (/&
 & 4.7619e-05_jprb,5.5462e-05_jprb,2.2575e-04_jprb,3.1023e-04_jprb,3.6066e-04_jprb,3.2506e-04_jprb/)  
kbo( :, 5,41, 3) = (/&
 & 5.1898e-05_jprb,6.0154e-05_jprb,2.3138e-04_jprb,3.1463e-04_jprb,3.6219e-04_jprb,3.2225e-04_jprb/)  
kbo( :, 1,42, 3) = (/&
 & 3.0725e-05_jprb,3.6043e-05_jprb,1.7048e-04_jprb,2.4228e-04_jprb,2.8802e-04_jprb,2.6497e-04_jprb/)  
kbo( :, 2,42, 3) = (/&
 & 3.2881e-05_jprb,3.8663e-05_jprb,1.7559e-04_jprb,2.4716e-04_jprb,2.9210e-04_jprb,2.6748e-04_jprb/)  
kbo( :, 3,42, 3) = (/&
 & 3.5527e-05_jprb,4.1681e-05_jprb,1.8062e-04_jprb,2.5152e-04_jprb,2.9511e-04_jprb,2.6841e-04_jprb/)  
kbo( :, 4,42, 3) = (/&
 & 3.8664e-05_jprb,4.5134e-05_jprb,1.8577e-04_jprb,2.5564e-04_jprb,2.9747e-04_jprb,2.6786e-04_jprb/)  
kbo( :, 5,42, 3) = (/&
 & 4.2195e-05_jprb,4.9021e-05_jprb,1.9068e-04_jprb,2.5970e-04_jprb,2.9919e-04_jprb,2.6599e-04_jprb/)  
kbo( :, 1,43, 3) = (/&
 & 2.4891e-05_jprb,2.9187e-05_jprb,1.3928e-04_jprb,1.9831e-04_jprb,2.3592e-04_jprb,2.1675e-04_jprb/)  
kbo( :, 2,43, 3) = (/&
 & 2.6593e-05_jprb,3.1301e-05_jprb,1.4374e-04_jprb,2.0272e-04_jprb,2.3983e-04_jprb,2.1942e-04_jprb/)  
kbo( :, 3,43, 3) = (/&
 & 2.8690e-05_jprb,3.3747e-05_jprb,1.4810e-04_jprb,2.0668e-04_jprb,2.4285e-04_jprb,2.2071e-04_jprb/)  
kbo( :, 4,43, 3) = (/&
 & 3.1232e-05_jprb,3.6547e-05_jprb,1.5256e-04_jprb,2.1038e-04_jprb,2.4515e-04_jprb,2.2071e-04_jprb/)  
kbo( :, 5,43, 3) = (/&
 & 3.4120e-05_jprb,3.9743e-05_jprb,1.5683e-04_jprb,2.1407e-04_jprb,2.4696e-04_jprb,2.1958e-04_jprb/)  
kbo( :, 1,44, 3) = (/&
 & 2.0144e-05_jprb,2.3605e-05_jprb,1.1366e-04_jprb,1.6217e-04_jprb,1.9304e-04_jprb,1.7720e-04_jprb/)  
kbo( :, 2,44, 3) = (/&
 & 2.1468e-05_jprb,2.5288e-05_jprb,1.1746e-04_jprb,1.6601e-04_jprb,1.9664e-04_jprb,1.7978e-04_jprb/)  
kbo( :, 3,44, 3) = (/&
 & 2.3117e-05_jprb,2.7255e-05_jprb,1.2127e-04_jprb,1.6962e-04_jprb,1.9955e-04_jprb,1.8133e-04_jprb/)  
kbo( :, 4,44, 3) = (/&
 & 2.5167e-05_jprb,2.9525e-05_jprb,1.2515e-04_jprb,1.7298e-04_jprb,2.0188e-04_jprb,1.8182e-04_jprb/)  
kbo( :, 5,44, 3) = (/&
 & 2.7509e-05_jprb,3.2133e-05_jprb,1.2890e-04_jprb,1.7631e-04_jprb,2.0373e-04_jprb,1.8128e-04_jprb/)  
kbo( :, 1,45, 3) = (/&
 & 1.6315e-05_jprb,1.9099e-05_jprb,9.2658e-05_jprb,1.3247e-04_jprb,1.5777e-04_jprb,1.4481e-04_jprb/)  
kbo( :, 2,45, 3) = (/&
 & 1.7341e-05_jprb,2.0427e-05_jprb,9.5960e-05_jprb,1.3596e-04_jprb,1.6122e-04_jprb,1.4738e-04_jprb/)  
kbo( :, 3,45, 3) = (/&
 & 1.8647e-05_jprb,2.2022e-05_jprb,9.9238e-05_jprb,1.3912e-04_jprb,1.6388e-04_jprb,1.4901e-04_jprb/)  
kbo( :, 4,45, 3) = (/&
 & 2.0262e-05_jprb,2.3840e-05_jprb,1.0260e-04_jprb,1.4211e-04_jprb,1.6610e-04_jprb,1.4980e-04_jprb/)  
kbo( :, 5,45, 3) = (/&
 & 2.2167e-05_jprb,2.5969e-05_jprb,1.0588e-04_jprb,1.4512e-04_jprb,1.6796e-04_jprb,1.4976e-04_jprb/)  
kbo( :, 1,46, 3) = (/&
 & 1.3211e-05_jprb,1.5446e-05_jprb,7.5427e-05_jprb,1.0806e-04_jprb,1.2876e-04_jprb,1.1821e-04_jprb/)  
kbo( :, 2,46, 3) = (/&
 & 1.3990e-05_jprb,1.6470e-05_jprb,7.8248e-05_jprb,1.1113e-04_jprb,1.3193e-04_jprb,1.2064e-04_jprb/)  
kbo( :, 3,46, 3) = (/&
 & 1.5013e-05_jprb,1.7753e-05_jprb,8.1102e-05_jprb,1.1397e-04_jprb,1.3444e-04_jprb,1.2234e-04_jprb/)  
kbo( :, 4,46, 3) = (/&
 & 1.6277e-05_jprb,1.9210e-05_jprb,8.3980e-05_jprb,1.1663e-04_jprb,1.3652e-04_jprb,1.2338e-04_jprb/)  
kbo( :, 5,46, 3) = (/&
 & 1.7816e-05_jprb,2.0932e-05_jprb,8.6856e-05_jprb,1.1931e-04_jprb,1.3833e-04_jprb,1.2371e-04_jprb/)  
kbo( :, 1,47, 3) = (/&
 & 1.0695e-05_jprb,1.2476e-05_jprb,6.1245e-05_jprb,8.7921e-05_jprb,1.0481e-04_jprb,9.6236e-05_jprb/)  
kbo( :, 2,47, 3) = (/&
 & 1.1263e-05_jprb,1.3243e-05_jprb,6.3648e-05_jprb,9.0656e-05_jprb,1.0772e-04_jprb,9.8519e-05_jprb/)  
kbo( :, 3,47, 3) = (/&
 & 1.2048e-05_jprb,1.4259e-05_jprb,6.6115e-05_jprb,9.3168e-05_jprb,1.1009e-04_jprb,1.0023e-04_jprb/)  
kbo( :, 4,47, 3) = (/&
 & 1.3032e-05_jprb,1.5427e-05_jprb,6.8598e-05_jprb,9.5568e-05_jprb,1.1206e-04_jprb,1.0142e-04_jprb/)  
kbo( :, 5,47, 3) = (/&
 & 1.4254e-05_jprb,1.6795e-05_jprb,7.1096e-05_jprb,9.7934e-05_jprb,1.1379e-04_jprb,1.0199e-04_jprb/)  
kbo( :, 1,48, 3) = (/&
 & 8.6841e-06_jprb,1.0096e-05_jprb,4.9694e-05_jprb,7.1452e-05_jprb,8.5259e-05_jprb,7.8307e-05_jprb/)  
kbo( :, 2,48, 3) = (/&
 & 9.0796e-06_jprb,1.0659e-05_jprb,5.1740e-05_jprb,7.3900e-05_jprb,8.7875e-05_jprb,8.0451e-05_jprb/)  
kbo( :, 3,48, 3) = (/&
 & 9.6769e-06_jprb,1.1450e-05_jprb,5.3831e-05_jprb,7.6095e-05_jprb,9.0067e-05_jprb,8.2117e-05_jprb/)  
kbo( :, 4,48, 3) = (/&
 & 1.0440e-05_jprb,1.2385e-05_jprb,5.5960e-05_jprb,7.8221e-05_jprb,9.1891e-05_jprb,8.3379e-05_jprb/)  
kbo( :, 5,48, 3) = (/&
 & 1.1399e-05_jprb,1.3468e-05_jprb,5.8115e-05_jprb,8.0301e-05_jprb,9.3494e-05_jprb,8.4132e-05_jprb/)  
kbo( :, 1,49, 3) = (/&
 & 7.0695e-06_jprb,8.1883e-06_jprb,4.0270e-05_jprb,5.7981e-05_jprb,6.9259e-05_jprb,6.3681e-05_jprb/)  
kbo( :, 2,49, 3) = (/&
 & 7.3322e-06_jprb,8.5897e-06_jprb,4.2014e-05_jprb,6.0156e-05_jprb,7.1569e-05_jprb,6.5714e-05_jprb/)  
kbo( :, 3,49, 3) = (/&
 & 7.7779e-06_jprb,9.1932e-06_jprb,4.3778e-05_jprb,6.2075e-05_jprb,7.3581e-05_jprb,6.7311e-05_jprb/)  
kbo( :, 4,49, 3) = (/&
 & 8.3667e-06_jprb,9.9391e-06_jprb,4.5605e-05_jprb,6.3945e-05_jprb,7.5254e-05_jprb,6.8602e-05_jprb/)  
kbo( :, 5,49, 3) = (/&
 & 9.1100e-06_jprb,1.0797e-05_jprb,4.7455e-05_jprb,6.5783e-05_jprb,7.6741e-05_jprb,6.9496e-05_jprb/)  
kbo( :, 1,50, 3) = (/&
 & 5.7666e-06_jprb,6.6617e-06_jprb,3.2634e-05_jprb,4.7026e-05_jprb,5.6231e-05_jprb,5.1646e-05_jprb/)  
kbo( :, 2,50, 3) = (/&
 & 5.9413e-06_jprb,6.9423e-06_jprb,3.4121e-05_jprb,4.8951e-05_jprb,5.8275e-05_jprb,5.3533e-05_jprb/)  
kbo( :, 3,50, 3) = (/&
 & 6.2683e-06_jprb,7.3972e-06_jprb,3.5607e-05_jprb,5.0641e-05_jprb,6.0090e-05_jprb,5.4999e-05_jprb/)  
kbo( :, 4,50, 3) = (/&
 & 6.7199e-06_jprb,7.9879e-06_jprb,3.7167e-05_jprb,5.2275e-05_jprb,6.1608e-05_jprb,5.6235e-05_jprb/)  
kbo( :, 5,50, 3) = (/&
 & 7.3034e-06_jprb,8.6808e-06_jprb,3.8757e-05_jprb,5.3881e-05_jprb,6.2968e-05_jprb,5.7167e-05_jprb/)  
kbo( :, 1,51, 3) = (/&
 & 4.7086e-06_jprb,5.4299e-06_jprb,2.6424e-05_jprb,3.8115e-05_jprb,4.5610e-05_jprb,4.1794e-05_jprb/)  
kbo( :, 2,51, 3) = (/&
 & 4.8287e-06_jprb,5.6240e-06_jprb,2.7697e-05_jprb,3.9799e-05_jprb,4.7412e-05_jprb,4.3512e-05_jprb/)  
kbo( :, 3,51, 3) = (/&
 & 5.0606e-06_jprb,5.9604e-06_jprb,2.8952e-05_jprb,4.1290e-05_jprb,4.9031e-05_jprb,4.4849e-05_jprb/)  
kbo( :, 4,51, 3) = (/&
 & 5.4065e-06_jprb,6.4263e-06_jprb,3.0283e-05_jprb,4.2717e-05_jprb,5.0424e-05_jprb,4.5995e-05_jprb/)  
kbo( :, 5,51, 3) = (/&
 & 5.8615e-06_jprb,6.9820e-06_jprb,3.1641e-05_jprb,4.4120e-05_jprb,5.1647e-05_jprb,4.6912e-05_jprb/)  
kbo( :, 1,52, 3) = (/&
 & 3.8436e-06_jprb,4.4274e-06_jprb,2.1373e-05_jprb,3.0858e-05_jprb,3.6953e-05_jprb,3.3785e-05_jprb/)  
kbo( :, 2,52, 3) = (/&
 & 3.9328e-06_jprb,4.5651e-06_jprb,2.2468e-05_jprb,3.2320e-05_jprb,3.8527e-05_jprb,3.5353e-05_jprb/)  
kbo( :, 3,52, 3) = (/&
 & 4.0914e-06_jprb,4.8085e-06_jprb,2.3521e-05_jprb,3.3631e-05_jprb,3.9963e-05_jprb,3.6585e-05_jprb/)  
kbo( :, 4,52, 3) = (/&
 & 4.3531e-06_jprb,5.1701e-06_jprb,2.4643e-05_jprb,3.4861e-05_jprb,4.1208e-05_jprb,3.7630e-05_jprb/)  
kbo( :, 5,52, 3) = (/&
 & 4.7050e-06_jprb,5.6131e-06_jprb,2.5801e-05_jprb,3.6084e-05_jprb,4.2308e-05_jprb,3.8507e-05_jprb/)  
kbo( :, 1,53, 3) = (/&
 & 3.1307e-06_jprb,3.6090e-06_jprb,1.7271e-05_jprb,2.4948e-05_jprb,2.9905e-05_jprb,2.7291e-05_jprb/)  
kbo( :, 2,53, 3) = (/&
 & 3.2062e-06_jprb,3.7126e-06_jprb,1.8207e-05_jprb,2.6210e-05_jprb,3.1263e-05_jprb,2.8728e-05_jprb/)  
kbo( :, 3,53, 3) = (/&
 & 3.3144e-06_jprb,3.8844e-06_jprb,1.9096e-05_jprb,2.7367e-05_jprb,3.2548e-05_jprb,2.9869e-05_jprb/)  
kbo( :, 4,53, 3) = (/&
 & 3.5077e-06_jprb,4.1595e-06_jprb,2.0034e-05_jprb,2.8427e-05_jprb,3.3652e-05_jprb,3.0823e-05_jprb/)  
kbo( :, 5,53, 3) = (/&
 & 3.7772e-06_jprb,4.5101e-06_jprb,2.1018e-05_jprb,2.9487e-05_jprb,3.4629e-05_jprb,3.1664e-05_jprb/)  
kbo( :, 1,54, 3) = (/&
 & 2.5452e-06_jprb,2.9417e-06_jprb,1.3965e-05_jprb,2.0178e-05_jprb,2.4209e-05_jprb,2.1911e-05_jprb/)  
kbo( :, 2,54, 3) = (/&
 & 2.6173e-06_jprb,3.0265e-06_jprb,1.4760e-05_jprb,2.1266e-05_jprb,2.5377e-05_jprb,2.3188e-05_jprb/)  
kbo( :, 3,54, 3) = (/&
 & 2.6943e-06_jprb,3.1475e-06_jprb,1.5512e-05_jprb,2.2269e-05_jprb,2.6497e-05_jprb,2.4193e-05_jprb/)  
kbo( :, 4,54, 3) = (/&
 & 2.8346e-06_jprb,3.3549e-06_jprb,1.6295e-05_jprb,2.3183e-05_jprb,2.7474e-05_jprb,2.5015e-05_jprb/)  
kbo( :, 5,54, 3) = (/&
 & 3.0408e-06_jprb,3.6324e-06_jprb,1.7127e-05_jprb,2.4100e-05_jprb,2.8339e-05_jprb,2.5745e-05_jprb/)  
kbo( :, 1,55, 3) = (/&
 & 2.0632e-06_jprb,2.3940e-06_jprb,1.1296e-05_jprb,1.6316e-05_jprb,1.9586e-05_jprb,1.7519e-05_jprb/)  
kbo( :, 2,55, 3) = (/&
 & 2.1373e-06_jprb,2.4691e-06_jprb,1.1961e-05_jprb,1.7242e-05_jprb,2.0583e-05_jprb,1.8621e-05_jprb/)  
kbo( :, 3,55, 3) = (/&
 & 2.1949e-06_jprb,2.5561e-06_jprb,1.2600e-05_jprb,1.8111e-05_jprb,2.1559e-05_jprb,1.9499e-05_jprb/)  
kbo( :, 4,55, 3) = (/&
 & 2.2950e-06_jprb,2.7109e-06_jprb,1.3250e-05_jprb,1.8899e-05_jprb,2.2414e-05_jprb,2.0198e-05_jprb/)  
kbo( :, 5,55, 3) = (/&
 & 2.4530e-06_jprb,2.9291e-06_jprb,1.3951e-05_jprb,1.9686e-05_jprb,2.3177e-05_jprb,2.0800e-05_jprb/)  
kbo( :, 1,56, 3) = (/&
 & 1.6642e-06_jprb,1.9426e-06_jprb,9.1341e-06_jprb,1.3181e-05_jprb,1.5829e-05_jprb,1.3992e-05_jprb/)  
kbo( :, 2,56, 3) = (/&
 & 1.7429e-06_jprb,2.0139e-06_jprb,9.6851e-06_jprb,1.3963e-05_jprb,1.6681e-05_jprb,1.4936e-05_jprb/)  
kbo( :, 3,56, 3) = (/&
 & 1.7896e-06_jprb,2.0795e-06_jprb,1.0225e-05_jprb,1.4716e-05_jprb,1.7517e-05_jprb,1.5702e-05_jprb/)  
kbo( :, 4,56, 3) = (/&
 & 1.8607e-06_jprb,2.1923e-06_jprb,1.0768e-05_jprb,1.5397e-05_jprb,1.8274e-05_jprb,1.6306e-05_jprb/)  
kbo( :, 5,56, 3) = (/&
 & 1.9799e-06_jprb,2.3617e-06_jprb,1.1356e-05_jprb,1.6070e-05_jprb,1.8948e-05_jprb,1.6801e-05_jprb/)  
kbo( :, 1,57, 3) = (/&
 & 1.3353e-06_jprb,1.5730e-06_jprb,7.3811e-06_jprb,1.0640e-05_jprb,1.2777e-05_jprb,1.1158e-05_jprb/)  
kbo( :, 2,57, 3) = (/&
 & 1.4179e-06_jprb,1.6416e-06_jprb,7.8345e-06_jprb,1.1296e-05_jprb,1.3506e-05_jprb,1.1962e-05_jprb/)  
kbo( :, 3,57, 3) = (/&
 & 1.4599e-06_jprb,1.6939e-06_jprb,8.2917e-06_jprb,1.1945e-05_jprb,1.4220e-05_jprb,1.2633e-05_jprb/)  
kbo( :, 4,57, 3) = (/&
 & 1.5112e-06_jprb,1.7747e-06_jprb,8.7450e-06_jprb,1.2531e-05_jprb,1.4885e-05_jprb,1.3158e-05_jprb/)  
kbo( :, 5,57, 3) = (/&
 & 1.5993e-06_jprb,1.9047e-06_jprb,9.2362e-06_jprb,1.3103e-05_jprb,1.5471e-05_jprb,1.3571e-05_jprb/)  
kbo( :, 1,58, 3) = (/&
 & 1.0682e-06_jprb,1.2707e-06_jprb,5.9673e-06_jprb,8.5915e-06_jprb,1.0313e-05_jprb,8.8875e-06_jprb/)  
kbo( :, 2,58, 3) = (/&
 & 1.1510e-06_jprb,1.3372e-06_jprb,6.3383e-06_jprb,9.1371e-06_jprb,1.0932e-05_jprb,9.5717e-06_jprb/)  
kbo( :, 3,58, 3) = (/&
 & 1.1918e-06_jprb,1.3813e-06_jprb,6.7246e-06_jprb,9.6935e-06_jprb,1.1539e-05_jprb,1.0149e-05_jprb/)  
kbo( :, 4,58, 3) = (/&
 & 1.2303e-06_jprb,1.4399e-06_jprb,7.1031e-06_jprb,1.0198e-05_jprb,1.2120e-05_jprb,1.0603e-05_jprb/)  
kbo( :, 5,58, 3) = (/&
 & 1.2943e-06_jprb,1.5387e-06_jprb,7.5113e-06_jprb,1.0682e-05_jprb,1.2629e-05_jprb,1.0955e-05_jprb/)  
kbo( :, 1,59, 3) = (/&
 & 8.6844e-07_jprb,1.0371e-06_jprb,4.8749e-06_jprb,7.0111e-06_jprb,8.4115e-06_jprb,7.1461e-06_jprb/)  
kbo( :, 2,59, 3) = (/&
 & 9.4083e-07_jprb,1.0954e-06_jprb,5.1836e-06_jprb,7.4691e-06_jprb,8.9328e-06_jprb,7.7016e-06_jprb/)  
kbo( :, 3,59, 3) = (/&
 & 9.7741e-07_jprb,1.1331e-06_jprb,5.5070e-06_jprb,7.9393e-06_jprb,9.4488e-06_jprb,8.1607e-06_jprb/)  
kbo( :, 4,59, 3) = (/&
 & 1.0092e-06_jprb,1.1806e-06_jprb,5.8246e-06_jprb,8.3651e-06_jprb,9.9432e-06_jprb,8.5246e-06_jprb/)  
kbo( :, 5,59, 3) = (/&
 & 1.0602e-06_jprb,1.2608e-06_jprb,6.1682e-06_jprb,8.7778e-06_jprb,1.0376e-05_jprb,8.8030e-06_jprb/)  
kbo( :, 1,13, 4) = (/&
 & 1.1944e-02_jprb,1.2168e-02_jprb,5.9922e-02_jprb,8.9367e-02_jprb,1.1074e-01_jprb,1.1944e-01_jprb/)  
kbo( :, 2,13, 4) = (/&
 & 1.2086e-02_jprb,1.2304e-02_jprb,6.1460e-02_jprb,9.1456e-02_jprb,1.1344e-01_jprb,1.2412e-01_jprb/)  
kbo( :, 3,13, 4) = (/&
 & 1.2357e-02_jprb,1.2570e-02_jprb,6.2887e-02_jprb,9.3358e-02_jprb,1.1570e-01_jprb,1.2845e-01_jprb/)  
kbo( :, 4,13, 4) = (/&
 & 1.2729e-02_jprb,1.2937e-02_jprb,6.4147e-02_jprb,9.5013e-02_jprb,1.1762e-01_jprb,1.3226e-01_jprb/)  
kbo( :, 5,13, 4) = (/&
 & 1.3238e-02_jprb,1.3440e-02_jprb,6.5153e-02_jprb,9.6392e-02_jprb,1.1918e-01_jprb,1.3570e-01_jprb/)  
kbo( :, 1,14, 4) = (/&
 & 1.0012e-02_jprb,1.0247e-02_jprb,5.2975e-02_jprb,7.8942e-02_jprb,9.7346e-02_jprb,1.0368e-01_jprb/)  
kbo( :, 2,14, 4) = (/&
 & 1.0180e-02_jprb,1.0410e-02_jprb,5.4409e-02_jprb,8.0856e-02_jprb,9.9740e-02_jprb,1.0751e-01_jprb/)  
kbo( :, 3,14, 4) = (/&
 & 1.0467e-02_jprb,1.0689e-02_jprb,5.5693e-02_jprb,8.2579e-02_jprb,1.0188e-01_jprb,1.1093e-01_jprb/)  
kbo( :, 4,14, 4) = (/&
 & 1.0854e-02_jprb,1.1067e-02_jprb,5.6775e-02_jprb,8.4028e-02_jprb,1.0368e-01_jprb,1.1389e-01_jprb/)  
kbo( :, 5,14, 4) = (/&
 & 1.1343e-02_jprb,1.1549e-02_jprb,5.7714e-02_jprb,8.5292e-02_jprb,1.0511e-01_jprb,1.1652e-01_jprb/)  
kbo( :, 1,15, 4) = (/&
 & 8.3778e-03_jprb,8.6309e-03_jprb,4.6498e-02_jprb,6.9169e-02_jprb,8.4926e-02_jprb,8.9479e-02_jprb/)  
kbo( :, 2,15, 4) = (/&
 & 8.5667e-03_jprb,8.8101e-03_jprb,4.7757e-02_jprb,7.0912e-02_jprb,8.7130e-02_jprb,9.2622e-02_jprb/)  
kbo( :, 3,15, 4) = (/&
 & 8.8588e-03_jprb,9.0893e-03_jprb,4.8864e-02_jprb,7.2379e-02_jprb,8.9054e-02_jprb,9.5411e-02_jprb/)  
kbo( :, 4,15, 4) = (/&
 & 9.2397e-03_jprb,9.4599e-03_jprb,4.9829e-02_jprb,7.3692e-02_jprb,9.0686e-02_jprb,9.7794e-02_jprb/)  
kbo( :, 5,15, 4) = (/&
 & 9.6728e-03_jprb,9.8843e-03_jprb,5.0711e-02_jprb,7.4868e-02_jprb,9.2000e-02_jprb,9.9673e-02_jprb/)  
kbo( :, 1,16, 4) = (/&
 & 7.0032e-03_jprb,7.2800e-03_jprb,4.0493e-02_jprb,6.0087e-02_jprb,7.3654e-02_jprb,7.6847e-02_jprb/)  
kbo( :, 2,16, 4) = (/&
 & 7.2046e-03_jprb,7.4657e-03_jprb,4.1559e-02_jprb,6.1552e-02_jprb,7.5591e-02_jprb,7.9522e-02_jprb/)  
kbo( :, 3,16, 4) = (/&
 & 7.4951e-03_jprb,7.7408e-03_jprb,4.2525e-02_jprb,6.2872e-02_jprb,7.7303e-02_jprb,8.1850e-02_jprb/)  
kbo( :, 4,16, 4) = (/&
 & 7.8374e-03_jprb,8.0731e-03_jprb,4.3431e-02_jprb,6.4066e-02_jprb,7.8697e-02_jprb,8.3564e-02_jprb/)  
kbo( :, 5,16, 4) = (/&
 & 8.2028e-03_jprb,8.4261e-03_jprb,4.4256e-02_jprb,6.5005e-02_jprb,7.9598e-02_jprb,8.4430e-02_jprb/)  
kbo( :, 1,17, 4) = (/&
 & 5.8518e-03_jprb,6.1531e-03_jprb,3.4959e-02_jprb,5.1741e-02_jprb,6.3466e-02_jprb,6.5605e-02_jprb/)  
kbo( :, 2,17, 4) = (/&
 & 6.0575e-03_jprb,6.3417e-03_jprb,3.5874e-02_jprb,5.3013e-02_jprb,6.5151e-02_jprb,6.7823e-02_jprb/)  
kbo( :, 3,17, 4) = (/&
 & 6.3232e-03_jprb,6.5951e-03_jprb,3.6761e-02_jprb,5.4168e-02_jprb,6.6560e-02_jprb,6.9496e-02_jprb/)  
kbo( :, 4,17, 4) = (/&
 & 6.6221e-03_jprb,6.8782e-03_jprb,3.7567e-02_jprb,5.5100e-02_jprb,6.7478e-02_jprb,7.0358e-02_jprb/)  
kbo( :, 5,17, 4) = (/&
 & 6.9347e-03_jprb,7.1778e-03_jprb,3.8256e-02_jprb,5.5641e-02_jprb,6.7818e-02_jprb,7.0537e-02_jprb/)  
kbo( :, 1,18, 4) = (/&
 & 4.8880e-03_jprb,5.2055e-03_jprb,2.9960e-02_jprb,4.4255e-02_jprb,5.4342e-02_jprb,5.5684e-02_jprb/)  
kbo( :, 2,18, 4) = (/&
 & 5.0836e-03_jprb,5.3884e-03_jprb,3.0780e-02_jprb,4.5359e-02_jprb,5.5706e-02_jprb,5.7297e-02_jprb/)  
kbo( :, 3,18, 4) = (/&
 & 5.3194e-03_jprb,5.6126e-03_jprb,3.1543e-02_jprb,4.6238e-02_jprb,5.6632e-02_jprb,5.8242e-02_jprb/)  
kbo( :, 4,18, 4) = (/&
 & 5.5796e-03_jprb,5.8558e-03_jprb,3.2190e-02_jprb,4.6796e-02_jprb,5.7064e-02_jprb,5.8579e-02_jprb/)  
kbo( :, 5,18, 4) = (/&
 & 5.8422e-03_jprb,6.1083e-03_jprb,3.2701e-02_jprb,4.7066e-02_jprb,5.7105e-02_jprb,5.8483e-02_jprb/)  
kbo( :, 1,19, 4) = (/&
 & 4.0830e-03_jprb,4.4003e-03_jprb,2.5536e-02_jprb,3.7635e-02_jprb,4.6188e-02_jprb,4.6830e-02_jprb/)  
kbo( :, 2,19, 4) = (/&
 & 4.2621e-03_jprb,4.5739e-03_jprb,2.6225e-02_jprb,3.8473e-02_jprb,4.7113e-02_jprb,4.7821e-02_jprb/)  
kbo( :, 3,19, 4) = (/&
 & 4.4701e-03_jprb,4.7726e-03_jprb,2.6827e-02_jprb,3.9028e-02_jprb,4.7627e-02_jprb,4.8310e-02_jprb/)  
kbo( :, 4,19, 4) = (/&
 & 4.6836e-03_jprb,4.9742e-03_jprb,2.7306e-02_jprb,3.9355e-02_jprb,4.7801e-02_jprb,4.8408e-02_jprb/)  

IF (lhook) CALL dr_hook('RRTM_KGB4:PART16',1,zhook_handle)
END SUBROUTINE part16


SUBROUTINE part17

REAL(KIND=JPRB) :: ZHOOK_HANDLE
IF (lhook) CALL dr_hook('RRTM_KGB4:PART17',0,zhook_handle)


kbo( :, 5,19, 4) = (/&
 & 4.9101e-03_jprb,5.1908e-03_jprb,2.7671e-02_jprb,3.9547e-02_jprb,4.7738e-02_jprb,4.8196e-02_jprb/)  
kbo( :, 1,20, 4) = (/&
 & 3.4183e-03_jprb,3.7281e-03_jprb,2.1635e-02_jprb,3.1767e-02_jprb,3.8910e-02_jprb,3.9035e-02_jprb/)  
kbo( :, 2,20, 4) = (/&
 & 3.5755e-03_jprb,3.8847e-03_jprb,2.2172e-02_jprb,3.2321e-02_jprb,3.9468e-02_jprb,3.9630e-02_jprb/)  
kbo( :, 3,20, 4) = (/&
 & 3.7470e-03_jprb,4.0489e-03_jprb,2.2621e-02_jprb,3.2676e-02_jprb,3.9755e-02_jprb,3.9891e-02_jprb/)  
kbo( :, 4,20, 4) = (/&
 & 3.9257e-03_jprb,4.2203e-03_jprb,2.2997e-02_jprb,3.2924e-02_jprb,3.9820e-02_jprb,3.9868e-02_jprb/)  
kbo( :, 5,20, 4) = (/&
 & 4.1248e-03_jprb,4.4107e-03_jprb,2.3239e-02_jprb,3.3086e-02_jprb,3.9734e-02_jprb,3.9622e-02_jprb/)  
kbo( :, 1,21, 4) = (/&
 & 2.8606e-03_jprb,3.1596e-03_jprb,1.8191e-02_jprb,2.6601e-02_jprb,3.2515e-02_jprb,3.2317e-02_jprb/)  
kbo( :, 2,21, 4) = (/&
 & 2.9928e-03_jprb,3.2930e-03_jprb,1.8598e-02_jprb,2.6970e-02_jprb,3.2866e-02_jprb,3.2699e-02_jprb/)  
kbo( :, 3,21, 4) = (/&
 & 3.1369e-03_jprb,3.4309e-03_jprb,1.8968e-02_jprb,2.7247e-02_jprb,3.3035e-02_jprb,3.2834e-02_jprb/)  
kbo( :, 4,21, 4) = (/&
 & 3.2911e-03_jprb,3.5807e-03_jprb,1.9242e-02_jprb,2.7455e-02_jprb,3.3060e-02_jprb,3.2754e-02_jprb/)  
kbo( :, 5,21, 4) = (/&
 & 3.4660e-03_jprb,3.7486e-03_jprb,1.9402e-02_jprb,2.7577e-02_jprb,3.2988e-02_jprb,3.2505e-02_jprb/)  
kbo( :, 1,22, 4) = (/&
 & 2.3958e-03_jprb,2.6786e-03_jprb,1.5221e-02_jprb,2.2163e-02_jprb,2.7039e-02_jprb,2.6675e-02_jprb/)  
kbo( :, 2,22, 4) = (/&
 & 2.5089e-03_jprb,2.7922e-03_jprb,1.5555e-02_jprb,2.2444e-02_jprb,2.7268e-02_jprb,2.6915e-02_jprb/)  
kbo( :, 3,22, 4) = (/&
 & 2.6330e-03_jprb,2.9125e-03_jprb,1.5842e-02_jprb,2.2675e-02_jprb,2.7372e-02_jprb,2.6968e-02_jprb/)  
kbo( :, 4,22, 4) = (/&
 & 2.7694e-03_jprb,3.0464e-03_jprb,1.6030e-02_jprb,2.2843e-02_jprb,2.7392e-02_jprb,2.6856e-02_jprb/)  
kbo( :, 5,22, 4) = (/&
 & 2.9232e-03_jprb,3.1956e-03_jprb,1.6145e-02_jprb,2.2906e-02_jprb,2.7331e-02_jprb,2.6610e-02_jprb/)  
kbo( :, 1,23, 4) = (/&
 & 2.0042e-03_jprb,2.2640e-03_jprb,1.2690e-02_jprb,1.8401e-02_jprb,2.2404e-02_jprb,2.1959e-02_jprb/)  
kbo( :, 2,23, 4) = (/&
 & 2.1023e-03_jprb,2.3617e-03_jprb,1.2965e-02_jprb,1.8637e-02_jprb,2.2564e-02_jprb,2.2109e-02_jprb/)  
kbo( :, 3,23, 4) = (/&
 & 2.2103e-03_jprb,2.4685e-03_jprb,1.3173e-02_jprb,1.8833e-02_jprb,2.2645e-02_jprb,2.2108e-02_jprb/)  
kbo( :, 4,23, 4) = (/&
 & 2.3303e-03_jprb,2.5871e-03_jprb,1.3312e-02_jprb,1.8940e-02_jprb,2.2663e-02_jprb,2.1985e-02_jprb/)  
kbo( :, 5,23, 4) = (/&
 & 2.4661e-03_jprb,2.7218e-03_jprb,1.3399e-02_jprb,1.8972e-02_jprb,2.2604e-02_jprb,2.1760e-02_jprb/)  
kbo( :, 1,24, 4) = (/&
 & 1.6762e-03_jprb,1.9090e-03_jprb,1.0559e-02_jprb,1.5252e-02_jprb,1.8521e-02_jprb,1.8042e-02_jprb/)  
kbo( :, 2,24, 4) = (/&
 & 1.7614e-03_jprb,1.9932e-03_jprb,1.0770e-02_jprb,1.5455e-02_jprb,1.8647e-02_jprb,1.8128e-02_jprb/)  
kbo( :, 3,24, 4) = (/&
 & 1.8564e-03_jprb,2.0890e-03_jprb,1.0927e-02_jprb,1.5598e-02_jprb,1.8716e-02_jprb,1.8097e-02_jprb/)  
kbo( :, 4,24, 4) = (/&
 & 1.9618e-03_jprb,2.1951e-03_jprb,1.1029e-02_jprb,1.5669e-02_jprb,1.8728e-02_jprb,1.7971e-02_jprb/)  
kbo( :, 5,24, 4) = (/&
 & 2.0788e-03_jprb,2.3139e-03_jprb,1.1094e-02_jprb,1.5685e-02_jprb,1.8656e-02_jprb,1.7765e-02_jprb/)  
kbo( :, 1,25, 4) = (/&
 & 1.4025e-03_jprb,1.6067e-03_jprb,8.7676e-03_jprb,1.2632e-02_jprb,1.5295e-02_jprb,1.4808e-02_jprb/)  
kbo( :, 2,25, 4) = (/&
 & 1.4767e-03_jprb,1.6810e-03_jprb,8.9285e-03_jprb,1.2792e-02_jprb,1.5398e-02_jprb,1.4849e-02_jprb/)  
kbo( :, 3,25, 4) = (/&
 & 1.5600e-03_jprb,1.7664e-03_jprb,9.0451e-03_jprb,1.2893e-02_jprb,1.5458e-02_jprb,1.4803e-02_jprb/)  
kbo( :, 4,25, 4) = (/&
 & 1.6518e-03_jprb,1.8613e-03_jprb,9.1218e-03_jprb,1.2945e-02_jprb,1.5449e-02_jprb,1.4682e-02_jprb/)  
kbo( :, 5,25, 4) = (/&
 & 1.7503e-03_jprb,1.9622e-03_jprb,9.1788e-03_jprb,1.2954e-02_jprb,1.5378e-02_jprb,1.4496e-02_jprb/)  
kbo( :, 1,26, 4) = (/&
 & 1.1743e-03_jprb,1.3515e-03_jprb,7.2680e-03_jprb,1.0453e-02_jprb,1.2624e-02_jprb,1.2143e-02_jprb/)  
kbo( :, 2,26, 4) = (/&
 & 1.2397e-03_jprb,1.4187e-03_jprb,7.3884e-03_jprb,1.0572e-02_jprb,1.2713e-02_jprb,1.2158e-02_jprb/)  
kbo( :, 3,26, 4) = (/&
 & 1.3121e-03_jprb,1.4944e-03_jprb,7.4769e-03_jprb,1.0647e-02_jprb,1.2748e-02_jprb,1.2101e-02_jprb/)  
kbo( :, 4,26, 4) = (/&
 & 1.3904e-03_jprb,1.5774e-03_jprb,7.5401e-03_jprb,1.0684e-02_jprb,1.2728e-02_jprb,1.1986e-02_jprb/)  
kbo( :, 5,26, 4) = (/&
 & 1.4736e-03_jprb,1.6625e-03_jprb,7.5925e-03_jprb,1.0683e-02_jprb,1.2662e-02_jprb,1.1823e-02_jprb/)  
kbo( :, 1,27, 4) = (/&
 & 9.8402e-04_jprb,1.1373e-03_jprb,6.0162e-03_jprb,8.6394e-03_jprb,1.0419e-02_jprb,9.9561e-03_jprb/)  
kbo( :, 2,27, 4) = (/&
 & 1.0411e-03_jprb,1.1972e-03_jprb,6.1086e-03_jprb,8.7287e-03_jprb,1.0483e-02_jprb,9.9519e-03_jprb/)  
kbo( :, 3,27, 4) = (/&
 & 1.1029e-03_jprb,1.2633e-03_jprb,6.1781e-03_jprb,8.7827e-03_jprb,1.0501e-02_jprb,9.8918e-03_jprb/)  
kbo( :, 4,27, 4) = (/&
 & 1.1695e-03_jprb,1.3344e-03_jprb,6.2341e-03_jprb,8.8083e-03_jprb,1.0478e-02_jprb,9.7857e-03_jprb/)  
kbo( :, 5,27, 4) = (/&
 & 1.2409e-03_jprb,1.4079e-03_jprb,6.2822e-03_jprb,8.8079e-03_jprb,1.0418e-02_jprb,9.6453e-03_jprb/)  
kbo( :, 1,28, 4) = (/&
 & 8.2502e-04_jprb,9.5751e-04_jprb,4.9758e-03_jprb,7.1338e-03_jprb,8.5938e-03_jprb,8.1599e-03_jprb/)  
kbo( :, 2,28, 4) = (/&
 & 8.7450e-04_jprb,1.0105e-03_jprb,5.0486e-03_jprb,7.1996e-03_jprb,8.6369e-03_jprb,8.1441e-03_jprb/)  
kbo( :, 3,28, 4) = (/&
 & 9.2664e-04_jprb,1.0674e-03_jprb,5.1070e-03_jprb,7.2390e-03_jprb,8.6457e-03_jprb,8.0849e-03_jprb/)  
kbo( :, 4,28, 4) = (/&
 & 9.8426e-04_jprb,1.1287e-03_jprb,5.1587e-03_jprb,7.2593e-03_jprb,8.6218e-03_jprb,7.9907e-03_jprb/)  
kbo( :, 5,28, 4) = (/&
 & 1.0460e-03_jprb,1.1932e-03_jprb,5.2066e-03_jprb,7.2612e-03_jprb,8.5694e-03_jprb,7.8705e-03_jprb/)  
kbo( :, 1,29, 4) = (/&
 & 6.9236e-04_jprb,8.0674e-04_jprb,4.1133e-03_jprb,5.8863e-03_jprb,7.0815e-03_jprb,6.6900e-03_jprb/)  
kbo( :, 2,29, 4) = (/&
 & 7.3441e-04_jprb,8.5270e-04_jprb,4.1735e-03_jprb,5.9349e-03_jprb,7.1122e-03_jprb,6.6683e-03_jprb/)  
kbo( :, 3,29, 4) = (/&
 & 7.7930e-04_jprb,9.0247e-04_jprb,4.2252e-03_jprb,5.9662e-03_jprb,7.1136e-03_jprb,6.6140e-03_jprb/)  
kbo( :, 4,29, 4) = (/&
 & 8.2905e-04_jprb,9.5490e-04_jprb,4.2746e-03_jprb,5.9835e-03_jprb,7.0898e-03_jprb,6.5328e-03_jprb/)  
kbo( :, 5,29, 4) = (/&
 & 8.8288e-04_jprb,1.0121e-03_jprb,4.3168e-03_jprb,5.9898e-03_jprb,7.0475e-03_jprb,6.4307e-03_jprb/)  
kbo( :, 1,30, 4) = (/&
 & 5.8109e-04_jprb,6.7992e-04_jprb,3.4007e-03_jprb,4.8546e-03_jprb,5.8338e-03_jprb,5.4857e-03_jprb/)  
kbo( :, 2,30, 4) = (/&
 & 6.1672e-04_jprb,7.1953e-04_jprb,3.4531e-03_jprb,4.8921e-03_jprb,5.8538e-03_jprb,5.4623e-03_jprb/)  
kbo( :, 3,30, 4) = (/&
 & 6.5564e-04_jprb,7.6235e-04_jprb,3.5001e-03_jprb,4.9200e-03_jprb,5.8508e-03_jprb,5.4136e-03_jprb/)  
kbo( :, 4,30, 4) = (/&
 & 6.9916e-04_jprb,8.0837e-04_jprb,3.5445e-03_jprb,4.9361e-03_jprb,5.8315e-03_jprb,5.3448e-03_jprb/)  
kbo( :, 5,30, 4) = (/&
 & 7.4588e-04_jprb,8.5907e-04_jprb,3.5814e-03_jprb,4.9470e-03_jprb,5.7972e-03_jprb,5.2575e-03_jprb/)  
kbo( :, 1,31, 4) = (/&
 & 4.8773e-04_jprb,5.7298e-04_jprb,2.8142e-03_jprb,4.0034e-03_jprb,4.8046e-03_jprb,4.5018e-03_jprb/)  
kbo( :, 2,31, 4) = (/&
 & 5.1790e-04_jprb,6.0687e-04_jprb,2.8592e-03_jprb,4.0352e-03_jprb,4.8163e-03_jprb,4.4785e-03_jprb/)  
kbo( :, 3,31, 4) = (/&
 & 5.5259e-04_jprb,6.4420e-04_jprb,2.9026e-03_jprb,4.0596e-03_jprb,4.8128e-03_jprb,4.4370e-03_jprb/)  
kbo( :, 4,31, 4) = (/&
 & 5.9027e-04_jprb,6.8473e-04_jprb,2.9396e-03_jprb,4.0779e-03_jprb,4.7972e-03_jprb,4.3789e-03_jprb/)  
kbo( :, 5,31, 4) = (/&
 & 6.3109e-04_jprb,7.2996e-04_jprb,2.9730e-03_jprb,4.0892e-03_jprb,4.7703e-03_jprb,4.3063e-03_jprb/)  
kbo( :, 1,32, 4) = (/&
 & 4.0943e-04_jprb,4.8260e-04_jprb,2.3307e-03_jprb,3.3026e-03_jprb,3.9553e-03_jprb,3.6951e-03_jprb/)  
kbo( :, 2,32, 4) = (/&
 & 4.3585e-04_jprb,5.1194e-04_jprb,2.3706e-03_jprb,3.3307e-03_jprb,3.9627e-03_jprb,3.6751e-03_jprb/)  
kbo( :, 3,32, 4) = (/&
 & 4.6644e-04_jprb,5.4471e-04_jprb,2.4075e-03_jprb,3.3544e-03_jprb,3.9608e-03_jprb,3.6388e-03_jprb/)  
kbo( :, 4,32, 4) = (/&
 & 4.9918e-04_jprb,5.8045e-04_jprb,2.4395e-03_jprb,3.3725e-03_jprb,3.9485e-03_jprb,3.5900e-03_jprb/)  
kbo( :, 5,32, 4) = (/&
 & 5.3458e-04_jprb,6.2069e-04_jprb,2.4710e-03_jprb,3.3839e-03_jprb,3.9292e-03_jprb,3.5299e-03_jprb/)  
kbo( :, 1,33, 4) = (/&
 & 3.4410e-04_jprb,4.0654e-04_jprb,1.9317e-03_jprb,2.7269e-03_jprb,3.2560e-03_jprb,3.0357e-03_jprb/)  
kbo( :, 2,33, 4) = (/&
 & 3.6780e-04_jprb,4.3231e-04_jprb,1.9669e-03_jprb,2.7524e-03_jprb,3.2622e-03_jprb,3.0171e-03_jprb/)  
kbo( :, 3,33, 4) = (/&
 & 3.9422e-04_jprb,4.6103e-04_jprb,1.9979e-03_jprb,2.7749e-03_jprb,3.2617e-03_jprb,2.9869e-03_jprb/)  
kbo( :, 4,33, 4) = (/&
 & 4.2274e-04_jprb,4.9289e-04_jprb,2.0268e-03_jprb,2.7910e-03_jprb,3.2533e-03_jprb,2.9461e-03_jprb/)  
kbo( :, 5,33, 4) = (/&
 & 4.5356e-04_jprb,5.2826e-04_jprb,2.0558e-03_jprb,2.8026e-03_jprb,3.2388e-03_jprb,2.8971e-03_jprb/)  
kbo( :, 1,34, 4) = (/&
 & 2.8907e-04_jprb,3.4197e-04_jprb,1.6017e-03_jprb,2.2527e-03_jprb,2.6816e-03_jprb,2.4934e-03_jprb/)  
kbo( :, 2,34, 4) = (/&
 & 3.0999e-04_jprb,3.6459e-04_jprb,1.6314e-03_jprb,2.2770e-03_jprb,2.6881e-03_jprb,2.4774e-03_jprb/)  
kbo( :, 3,34, 4) = (/&
 & 3.3292e-04_jprb,3.8989e-04_jprb,1.6587e-03_jprb,2.2965e-03_jprb,2.6882e-03_jprb,2.4516e-03_jprb/)  
kbo( :, 4,34, 4) = (/&
 & 3.5758e-04_jprb,4.1817e-04_jprb,1.6851e-03_jprb,2.3118e-03_jprb,2.6837e-03_jprb,2.4183e-03_jprb/)  
kbo( :, 5,34, 4) = (/&
 & 3.8443e-04_jprb,4.4891e-04_jprb,1.7117e-03_jprb,2.3241e-03_jprb,2.6734e-03_jprb,2.3789e-03_jprb/)  
kbo( :, 1,35, 4) = (/&
 & 2.4163e-04_jprb,2.8613e-04_jprb,1.3262e-03_jprb,1.8610e-03_jprb,2.2092e-03_jprb,2.0492e-03_jprb/)  
kbo( :, 2,35, 4) = (/&
 & 2.5980e-04_jprb,3.0590e-04_jprb,1.3518e-03_jprb,1.8829e-03_jprb,2.2161e-03_jprb,2.0364e-03_jprb/)  
kbo( :, 3,35, 4) = (/&
 & 2.7948e-04_jprb,3.2806e-04_jprb,1.3762e-03_jprb,1.9000e-03_jprb,2.2186e-03_jprb,2.0149e-03_jprb/)  
kbo( :, 4,35, 4) = (/&
 & 3.0066e-04_jprb,3.5268e-04_jprb,1.4004e-03_jprb,1.9149e-03_jprb,2.2165e-03_jprb,1.9889e-03_jprb/)  
kbo( :, 5,35, 4) = (/&
 & 3.2401e-04_jprb,3.7942e-04_jprb,1.4250e-03_jprb,1.9278e-03_jprb,2.2099e-03_jprb,1.9578e-03_jprb/)  
kbo( :, 1,36, 4) = (/&
 & 2.0066e-04_jprb,2.3797e-04_jprb,1.0962e-03_jprb,1.5363e-03_jprb,1.8202e-03_jprb,1.6851e-03_jprb/)  
kbo( :, 2,36, 4) = (/&
 & 2.1623e-04_jprb,2.5498e-04_jprb,1.1188e-03_jprb,1.5557e-03_jprb,1.8279e-03_jprb,1.6749e-03_jprb/)  
kbo( :, 3,36, 4) = (/&
 & 2.3303e-04_jprb,2.7423e-04_jprb,1.1407e-03_jprb,1.5718e-03_jprb,1.8325e-03_jprb,1.6591e-03_jprb/)  
kbo( :, 4,36, 4) = (/&
 & 2.5102e-04_jprb,2.9534e-04_jprb,1.1626e-03_jprb,1.5863e-03_jprb,1.8324e-03_jprb,1.6382e-03_jprb/)  
kbo( :, 5,36, 4) = (/&
 & 2.7107e-04_jprb,3.1839e-04_jprb,1.1850e-03_jprb,1.5990e-03_jprb,1.8295e-03_jprb,1.6138e-03_jprb/)  
kbo( :, 1,37, 4) = (/&
 & 1.6489e-04_jprb,1.9598e-04_jprb,9.0338e-04_jprb,1.2660e-03_jprb,1.4992e-03_jprb,1.3858e-03_jprb/)  
kbo( :, 2,37, 4) = (/&
 & 1.7800e-04_jprb,2.1035e-04_jprb,9.2319e-04_jprb,1.2835e-03_jprb,1.5078e-03_jprb,1.3789e-03_jprb/)  
kbo( :, 3,37, 4) = (/&
 & 1.9213e-04_jprb,2.2670e-04_jprb,9.4286e-04_jprb,1.2987e-03_jprb,1.5138e-03_jprb,1.3673e-03_jprb/)  
kbo( :, 4,37, 4) = (/&
 & 2.0731e-04_jprb,2.4467e-04_jprb,9.6260e-04_jprb,1.3129e-03_jprb,1.5159e-03_jprb,1.3520e-03_jprb/)  
kbo( :, 5,37, 4) = (/&
 & 2.2426e-04_jprb,2.6433e-04_jprb,9.8317e-04_jprb,1.3255e-03_jprb,1.5160e-03_jprb,1.3330e-03_jprb/)  
kbo( :, 1,38, 4) = (/&
 & 1.3545e-04_jprb,1.6133e-04_jprb,7.4423e-04_jprb,1.0430e-03_jprb,1.2345e-03_jprb,1.1400e-03_jprb/)  
kbo( :, 2,38, 4) = (/&
 & 1.4647e-04_jprb,1.7346e-04_jprb,7.6176e-04_jprb,1.0590e-03_jprb,1.2440e-03_jprb,1.1357e-03_jprb/)  
kbo( :, 3,38, 4) = (/&
 & 1.5834e-04_jprb,1.8731e-04_jprb,7.7933e-04_jprb,1.0731e-03_jprb,1.2505e-03_jprb,1.1275e-03_jprb/)  
kbo( :, 4,38, 4) = (/&
 & 1.7112e-04_jprb,2.0254e-04_jprb,7.9709e-04_jprb,1.0866e-03_jprb,1.2542e-03_jprb,1.1163e-03_jprb/)  
kbo( :, 5,38, 4) = (/&
 & 1.8543e-04_jprb,2.1932e-04_jprb,8.1567e-04_jprb,1.0989e-03_jprb,1.2562e-03_jprb,1.1014e-03_jprb/)  
kbo( :, 1,39, 4) = (/&
 & 1.1128e-04_jprb,1.3279e-04_jprb,6.1308e-04_jprb,8.5960e-04_jprb,1.0171e-03_jprb,9.3831e-04_jprb/)  
kbo( :, 2,39, 4) = (/&
 & 1.2054e-04_jprb,1.4305e-04_jprb,6.2838e-04_jprb,8.7394e-04_jprb,1.0264e-03_jprb,9.3635e-04_jprb/)  
kbo( :, 3,39, 4) = (/&
 & 1.3051e-04_jprb,1.5480e-04_jprb,6.4408e-04_jprb,8.8688e-04_jprb,1.0332e-03_jprb,9.3078e-04_jprb/)  
kbo( :, 4,39, 4) = (/&
 & 1.4126e-04_jprb,1.6774e-04_jprb,6.5994e-04_jprb,8.9946e-04_jprb,1.0378e-03_jprb,9.2268e-04_jprb/)  
kbo( :, 5,39, 4) = (/&
 & 1.5338e-04_jprb,1.8209e-04_jprb,6.7678e-04_jprb,9.1123e-04_jprb,1.0413e-03_jprb,9.1137e-04_jprb/)  
kbo( :, 1,40, 4) = (/&
 & 9.0705e-05_jprb,1.0852e-04_jprb,5.0355e-04_jprb,7.0681e-04_jprb,8.3684e-04_jprb,7.7091e-04_jprb/)  
kbo( :, 2,40, 4) = (/&
 & 9.8348e-05_jprb,1.1706e-04_jprb,5.1697e-04_jprb,7.2009e-04_jprb,8.4601e-04_jprb,7.7004e-04_jprb/)  
kbo( :, 3,40, 4) = (/&
 & 1.0671e-04_jprb,1.2689e-04_jprb,5.3086e-04_jprb,7.3191e-04_jprb,8.5298e-04_jprb,7.6666e-04_jprb/)  
kbo( :, 4,40, 4) = (/&
 & 1.1570e-04_jprb,1.3781e-04_jprb,5.4507e-04_jprb,7.4355e-04_jprb,8.5831e-04_jprb,7.6093e-04_jprb/)  
kbo( :, 5,40, 4) = (/&
 & 1.2578e-04_jprb,1.4990e-04_jprb,5.6002e-04_jprb,7.5473e-04_jprb,8.6284e-04_jprb,7.5245e-04_jprb/)  
kbo( :, 1,41, 4) = (/&
 & 7.3817e-05_jprb,8.8549e-05_jprb,4.1325e-04_jprb,5.8106e-04_jprb,6.8830e-04_jprb,6.3269e-04_jprb/)  
kbo( :, 2,41, 4) = (/&
 & 8.0158e-05_jprb,9.5680e-05_jprb,4.2501e-04_jprb,5.9293e-04_jprb,6.9700e-04_jprb,6.3310e-04_jprb/)  
kbo( :, 3,41, 4) = (/&
 & 8.7116e-05_jprb,1.0384e-04_jprb,4.3722e-04_jprb,6.0369e-04_jprb,7.0401e-04_jprb,6.3122e-04_jprb/)  
kbo( :, 4,41, 4) = (/&
 & 9.4610e-05_jprb,1.1303e-04_jprb,4.4976e-04_jprb,6.1448e-04_jprb,7.0977e-04_jprb,6.2726e-04_jprb/)  
kbo( :, 5,41, 4) = (/&
 & 1.0305e-04_jprb,1.2324e-04_jprb,4.6311e-04_jprb,6.2475e-04_jprb,7.1477e-04_jprb,6.2101e-04_jprb/)  
kbo( :, 1,42, 4) = (/&
 & 6.0047e-05_jprb,7.2210e-05_jprb,3.3900e-04_jprb,4.7749e-04_jprb,5.6596e-04_jprb,5.1926e-04_jprb/)  
kbo( :, 2,42, 4) = (/&
 & 6.5307e-05_jprb,7.8183e-05_jprb,3.4927e-04_jprb,4.8800e-04_jprb,5.7404e-04_jprb,5.2049e-04_jprb/)  
kbo( :, 3,42, 4) = (/&
 & 7.1083e-05_jprb,8.4948e-05_jprb,3.5991e-04_jprb,4.9776e-04_jprb,5.8092e-04_jprb,5.1968e-04_jprb/)  
kbo( :, 4,42, 4) = (/&
 & 7.7339e-05_jprb,9.2668e-05_jprb,3.7098e-04_jprb,5.0759e-04_jprb,5.8676e-04_jprb,5.1717e-04_jprb/)  
kbo( :, 5,42, 4) = (/&
 & 8.4391e-05_jprb,1.0128e-04_jprb,3.8284e-04_jprb,5.1710e-04_jprb,5.9200e-04_jprb,5.1265e-04_jprb/)  
kbo( :, 1,43, 4) = (/&
 & 4.8611e-05_jprb,5.8601e-05_jprb,2.7749e-04_jprb,3.9145e-04_jprb,4.6464e-04_jprb,4.2584e-04_jprb/)  
kbo( :, 2,43, 4) = (/&
 & 5.2925e-05_jprb,6.3562e-05_jprb,2.8637e-04_jprb,4.0094e-04_jprb,4.7226e-04_jprb,4.2773e-04_jprb/)  
kbo( :, 3,43, 4) = (/&
 & 5.7704e-05_jprb,6.9143e-05_jprb,2.9565e-04_jprb,4.0976e-04_jprb,4.7882e-04_jprb,4.2784e-04_jprb/)  
kbo( :, 4,43, 4) = (/&
 & 6.2890e-05_jprb,7.5555e-05_jprb,3.0531e-04_jprb,4.1861e-04_jprb,4.8454e-04_jprb,4.2632e-04_jprb/)  
kbo( :, 5,43, 4) = (/&
 & 6.8733e-05_jprb,8.2754e-05_jprb,3.1574e-04_jprb,4.2729e-04_jprb,4.8985e-04_jprb,4.2324e-04_jprb/)  
kbo( :, 1,44, 4) = (/&
 & 3.9255e-05_jprb,4.7428e-05_jprb,2.2682e-04_jprb,3.2053e-04_jprb,3.8115e-04_jprb,3.4904e-04_jprb/)  
kbo( :, 2,44, 4) = (/&
 & 4.2756e-05_jprb,5.1518e-05_jprb,2.3446e-04_jprb,3.2900e-04_jprb,3.8818e-04_jprb,3.5126e-04_jprb/)  
kbo( :, 3,44, 4) = (/&
 & 4.6702e-05_jprb,5.6118e-05_jprb,2.4254e-04_jprb,3.3696e-04_jprb,3.9445e-04_jprb,3.5204e-04_jprb/)  
kbo( :, 4,44, 4) = (/&
 & 5.0988e-05_jprb,6.1414e-05_jprb,2.5093e-04_jprb,3.4483e-04_jprb,3.9984e-04_jprb,3.5150e-04_jprb/)  
kbo( :, 5,44, 4) = (/&
 & 5.5818e-05_jprb,6.7413e-05_jprb,2.6004e-04_jprb,3.5271e-04_jprb,4.0508e-04_jprb,3.4955e-04_jprb/)  
kbo( :, 1,45, 4) = (/&
 & 3.1677e-05_jprb,3.8360e-05_jprb,1.8523e-04_jprb,2.6222e-04_jprb,3.1238e-04_jprb,2.8592e-04_jprb/)  
kbo( :, 2,45, 4) = (/&
 & 3.4522e-05_jprb,4.1731e-05_jprb,1.9192e-04_jprb,2.6971e-04_jprb,3.1883e-04_jprb,2.8860e-04_jprb/)  
kbo( :, 3,45, 4) = (/&
 & 3.7775e-05_jprb,4.5523e-05_jprb,1.9882e-04_jprb,2.7680e-04_jprb,3.2469e-04_jprb,2.8979e-04_jprb/)  
kbo( :, 4,45, 4) = (/&
 & 4.1306e-05_jprb,4.9872e-05_jprb,2.0608e-04_jprb,2.8384e-04_jprb,3.2984e-04_jprb,2.8984e-04_jprb/)  
kbo( :, 5,45, 4) = (/&
 & 4.5292e-05_jprb,5.4864e-05_jprb,2.1395e-04_jprb,2.9088e-04_jprb,3.3473e-04_jprb,2.8876e-04_jprb/)  
kbo( :, 1,46, 4) = (/&
 & 2.5501e-05_jprb,3.0949e-05_jprb,1.5106e-04_jprb,2.1422e-04_jprb,2.5570e-04_jprb,2.3396e-04_jprb/)  
kbo( :, 2,46, 4) = (/&
 & 2.7795e-05_jprb,3.3698e-05_jprb,1.5681e-04_jprb,2.2083e-04_jprb,2.6153e-04_jprb,2.3683e-04_jprb/)  
kbo( :, 3,46, 4) = (/&
 & 3.0473e-05_jprb,3.6830e-05_jprb,1.6271e-04_jprb,2.2704e-04_jprb,2.6695e-04_jprb,2.3842e-04_jprb/)  
kbo( :, 4,46, 4) = (/&
 & 3.3376e-05_jprb,4.0385e-05_jprb,1.6899e-04_jprb,2.3332e-04_jprb,2.7178e-04_jprb,2.3894e-04_jprb/)  
kbo( :, 5,46, 4) = (/&
 & 3.6637e-05_jprb,4.4507e-05_jprb,1.7585e-04_jprb,2.3962e-04_jprb,2.7638e-04_jprb,2.3855e-04_jprb/)  
kbo( :, 1,47, 4) = (/&
 & 2.0450e-05_jprb,2.4871e-05_jprb,1.2285e-04_jprb,1.7458e-04_jprb,2.0883e-04_jprb,1.9097e-04_jprb/)  
kbo( :, 2,47, 4) = (/&
 & 2.2286e-05_jprb,2.7086e-05_jprb,1.2784e-04_jprb,1.8042e-04_jprb,2.1404e-04_jprb,1.9395e-04_jprb/)  
kbo( :, 3,47, 4) = (/&
 & 2.4454e-05_jprb,2.9649e-05_jprb,1.3286e-04_jprb,1.8591e-04_jprb,2.1910e-04_jprb,1.9581e-04_jprb/)  
kbo( :, 4,47, 4) = (/&
 & 2.6844e-05_jprb,3.2545e-05_jprb,1.3825e-04_jprb,1.9143e-04_jprb,2.2358e-04_jprb,1.9673e-04_jprb/)  
kbo( :, 5,47, 4) = (/&
 & 2.9484e-05_jprb,3.5918e-05_jprb,1.4411e-04_jprb,1.9700e-04_jprb,2.2781e-04_jprb,1.9684e-04_jprb/)  
kbo( :, 1,48, 4) = (/&
 & 1.6395e-05_jprb,1.9987e-05_jprb,9.9787e-05_jprb,1.4214e-04_jprb,1.7032e-04_jprb,1.5582e-04_jprb/)  
kbo( :, 2,48, 4) = (/&
 & 1.7860e-05_jprb,2.1753e-05_jprb,1.0413e-04_jprb,1.4725e-04_jprb,1.7499e-04_jprb,1.5884e-04_jprb/)  
kbo( :, 3,48, 4) = (/&
 & 1.9600e-05_jprb,2.3834e-05_jprb,1.0839e-04_jprb,1.5207e-04_jprb,1.7957e-04_jprb,1.6083e-04_jprb/)  
kbo( :, 4,48, 4) = (/&
 & 2.1567e-05_jprb,2.6208e-05_jprb,1.1299e-04_jprb,1.5690e-04_jprb,1.8370e-04_jprb,1.6199e-04_jprb/)  

IF (lhook) CALL dr_hook('RRTM_KGB4:PART17',1,zhook_handle)
END SUBROUTINE part17


SUBROUTINE part18

REAL(KIND=JPRB) :: ZHOOK_HANDLE
IF (lhook) CALL dr_hook('RRTM_KGB4:PART18',0,zhook_handle)


kbo( :, 5,48, 4) = (/&
 & 2.3704e-05_jprb,2.8946e-05_jprb,1.1797e-04_jprb,1.6178e-04_jprb,1.8753e-04_jprb,1.6246e-04_jprb/)  
kbo( :, 1,49, 4) = (/&
 & 1.3139e-05_jprb,1.6062e-05_jprb,8.0976e-05_jprb,1.1562e-04_jprb,1.3876e-04_jprb,1.2714e-04_jprb/)  
kbo( :, 2,49, 4) = (/&
 & 1.4304e-05_jprb,1.7455e-05_jprb,8.4710e-05_jprb,1.2004e-04_jprb,1.4288e-04_jprb,1.3003e-04_jprb/)  
kbo( :, 3,49, 4) = (/&
 & 1.5690e-05_jprb,1.9136e-05_jprb,8.8348e-05_jprb,1.2427e-04_jprb,1.4700e-04_jprb,1.3213e-04_jprb/)  
kbo( :, 4,49, 4) = (/&
 & 1.7304e-05_jprb,2.1080e-05_jprb,9.2222e-05_jprb,1.2844e-04_jprb,1.5072e-04_jprb,1.3349e-04_jprb/)  
kbo( :, 5,49, 4) = (/&
 & 1.9045e-05_jprb,2.3296e-05_jprb,9.6473e-05_jprb,1.3272e-04_jprb,1.5420e-04_jprb,1.3424e-04_jprb/)  
kbo( :, 1,50, 4) = (/&
 & 1.0555e-05_jprb,1.2937e-05_jprb,6.5695e-05_jprb,9.4043e-05_jprb,1.1302e-04_jprb,1.0345e-04_jprb/)  
kbo( :, 2,50, 4) = (/&
 & 1.1477e-05_jprb,1.4031e-05_jprb,6.8893e-05_jprb,9.7810e-05_jprb,1.1659e-04_jprb,1.0618e-04_jprb/)  
kbo( :, 3,50, 4) = (/&
 & 1.2581e-05_jprb,1.5385e-05_jprb,7.2022e-05_jprb,1.0152e-04_jprb,1.2023e-04_jprb,1.0825e-04_jprb/)  
kbo( :, 4,50, 4) = (/&
 & 1.3900e-05_jprb,1.6979e-05_jprb,7.5298e-05_jprb,1.0513e-04_jprb,1.2362e-04_jprb,1.0965e-04_jprb/)  
kbo( :, 5,50, 4) = (/&
 & 1.5333e-05_jprb,1.8783e-05_jprb,7.8918e-05_jprb,1.0888e-04_jprb,1.2677e-04_jprb,1.1057e-04_jprb/)  
kbo( :, 1,51, 4) = (/&
 & 8.4921e-06_jprb,1.0428e-05_jprb,5.3292e-05_jprb,7.6448e-05_jprb,9.1988e-05_jprb,8.4025e-05_jprb/)  
kbo( :, 2,51, 4) = (/&
 & 9.2127e-06_jprb,1.1285e-05_jprb,5.6005e-05_jprb,7.9650e-05_jprb,9.5066e-05_jprb,8.6539e-05_jprb/)  
kbo( :, 3,51, 4) = (/&
 & 1.0093e-05_jprb,1.2374e-05_jprb,5.8695e-05_jprb,8.2891e-05_jprb,9.8274e-05_jprb,8.8509e-05_jprb/)  
kbo( :, 4,51, 4) = (/&
 & 1.1165e-05_jprb,1.3675e-05_jprb,6.1461e-05_jprb,8.6028e-05_jprb,1.0132e-04_jprb,8.9926e-05_jprb/)  
kbo( :, 5,51, 4) = (/&
 & 1.2344e-05_jprb,1.5149e-05_jprb,6.4533e-05_jprb,8.9294e-05_jprb,1.0416e-04_jprb,9.0887e-05_jprb/)  
kbo( :, 1,52, 4) = (/&
 & 6.8430e-06_jprb,8.4090e-06_jprb,4.3193e-05_jprb,6.2073e-05_jprb,7.4815e-05_jprb,6.8216e-05_jprb/)  
kbo( :, 2,52, 4) = (/&
 & 7.3942e-06_jprb,9.0790e-06_jprb,4.5492e-05_jprb,6.4818e-05_jprb,7.7473e-05_jprb,7.0540e-05_jprb/)  
kbo( :, 3,52, 4) = (/&
 & 8.0962e-06_jprb,9.9455e-06_jprb,4.7801e-05_jprb,6.7638e-05_jprb,8.0241e-05_jprb,7.2366e-05_jprb/)  
kbo( :, 4,52, 4) = (/&
 & 8.9532e-06_jprb,1.0996e-05_jprb,5.0136e-05_jprb,7.0352e-05_jprb,8.2988e-05_jprb,7.3738e-05_jprb/)  
kbo( :, 5,52, 4) = (/&
 & 9.9254e-06_jprb,1.2206e-05_jprb,5.2722e-05_jprb,7.3154e-05_jprb,8.5502e-05_jprb,7.4723e-05_jprb/)  
kbo( :, 1,53, 4) = (/&
 & 5.5275e-06_jprb,6.7826e-06_jprb,3.4992e-05_jprb,5.0387e-05_jprb,6.0795e-05_jprb,5.5379e-05_jprb/)  
kbo( :, 2,53, 4) = (/&
 & 5.9360e-06_jprb,7.3070e-06_jprb,3.6904e-05_jprb,5.2681e-05_jprb,6.3070e-05_jprb,5.7475e-05_jprb/)  
kbo( :, 3,53, 4) = (/&
 & 6.4916e-06_jprb,7.9876e-06_jprb,3.8885e-05_jprb,5.5123e-05_jprb,6.5445e-05_jprb,5.9194e-05_jprb/)  
kbo( :, 4,53, 4) = (/&
 & 7.1721e-06_jprb,8.8314e-06_jprb,4.0856e-05_jprb,5.7465e-05_jprb,6.7875e-05_jprb,6.0530e-05_jprb/)  
kbo( :, 5,53, 4) = (/&
 & 7.9695e-06_jprb,9.8225e-06_jprb,4.3031e-05_jprb,5.9870e-05_jprb,7.0118e-05_jprb,6.1520e-05_jprb/)  
kbo( :, 1,54, 4) = (/&
 & 4.4841e-06_jprb,5.4855e-06_jprb,2.8370e-05_jprb,4.0916e-05_jprb,4.9401e-05_jprb,4.4764e-05_jprb/)  
kbo( :, 2,54, 4) = (/&
 & 4.7805e-06_jprb,5.8965e-06_jprb,2.9962e-05_jprb,4.2832e-05_jprb,5.1350e-05_jprb,4.6575e-05_jprb/)  
kbo( :, 3,54, 4) = (/&
 & 5.2175e-06_jprb,6.4303e-06_jprb,3.1646e-05_jprb,4.4921e-05_jprb,5.3377e-05_jprb,4.8101e-05_jprb/)  
kbo( :, 4,54, 4) = (/&
 & 5.7596e-06_jprb,7.1078e-06_jprb,3.3313e-05_jprb,4.6951e-05_jprb,5.5518e-05_jprb,4.9299e-05_jprb/)  
kbo( :, 5,54, 4) = (/&
 & 6.4121e-06_jprb,7.9214e-06_jprb,3.5145e-05_jprb,4.9005e-05_jprb,5.7497e-05_jprb,5.0216e-05_jprb/)  
kbo( :, 1,55, 4) = (/&
 & 3.6502e-06_jprb,4.4452e-06_jprb,2.3004e-05_jprb,3.3225e-05_jprb,4.0131e-05_jprb,3.6076e-05_jprb/)  
kbo( :, 2,55, 4) = (/&
 & 3.8584e-06_jprb,4.7638e-06_jprb,2.4322e-05_jprb,3.4820e-05_jprb,4.1798e-05_jprb,3.7608e-05_jprb/)  
kbo( :, 3,55, 4) = (/&
 & 4.1970e-06_jprb,5.1824e-06_jprb,2.5746e-05_jprb,3.6594e-05_jprb,4.3525e-05_jprb,3.8921e-05_jprb/)  
kbo( :, 4,55, 4) = (/&
 & 4.6296e-06_jprb,5.7238e-06_jprb,2.7170e-05_jprb,3.8354e-05_jprb,4.5386e-05_jprb,3.9954e-05_jprb/)  
kbo( :, 5,55, 4) = (/&
 & 5.1596e-06_jprb,6.3897e-06_jprb,2.8703e-05_jprb,4.0103e-05_jprb,4.7130e-05_jprb,4.0748e-05_jprb/)  
kbo( :, 1,56, 4) = (/&
 & 2.9798e-06_jprb,3.6097e-06_jprb,1.8645e-05_jprb,2.6958e-05_jprb,3.2565e-05_jprb,2.9049e-05_jprb/)  
kbo( :, 2,56, 4) = (/&
 & 3.1203e-06_jprb,3.8503e-06_jprb,1.9728e-05_jprb,2.8285e-05_jprb,3.3997e-05_jprb,3.0362e-05_jprb/)  
kbo( :, 3,56, 4) = (/&
 & 3.3770e-06_jprb,4.1764e-06_jprb,2.0929e-05_jprb,2.9782e-05_jprb,3.5468e-05_jprb,3.1480e-05_jprb/)  
kbo( :, 4,56, 4) = (/&
 & 3.7197e-06_jprb,4.6073e-06_jprb,2.2137e-05_jprb,3.1299e-05_jprb,3.7064e-05_jprb,3.2373e-05_jprb/)  
kbo( :, 5,56, 4) = (/&
 & 4.1476e-06_jprb,5.1481e-06_jprb,2.3420e-05_jprb,3.2792e-05_jprb,3.8590e-05_jprb,3.3070e-05_jprb/)  
kbo( :, 1,57, 4) = (/&
 & 2.4380e-06_jprb,2.9371e-06_jprb,1.5101e-05_jprb,2.1849e-05_jprb,2.6384e-05_jprb,2.3378e-05_jprb/)  
kbo( :, 2,57, 4) = (/&
 & 2.5283e-06_jprb,3.1131e-06_jprb,1.5990e-05_jprb,2.2961e-05_jprb,2.7628e-05_jprb,2.4501e-05_jprb/)  
kbo( :, 3,57, 4) = (/&
 & 2.7173e-06_jprb,3.3659e-06_jprb,1.6995e-05_jprb,2.4208e-05_jprb,2.8876e-05_jprb,2.5443e-05_jprb/)  
kbo( :, 4,57, 4) = (/&
 & 2.9882e-06_jprb,3.7073e-06_jprb,1.8018e-05_jprb,2.5516e-05_jprb,3.0235e-05_jprb,2.6220e-05_jprb/)  
kbo( :, 5,57, 4) = (/&
 & 3.3309e-06_jprb,4.1429e-06_jprb,1.9094e-05_jprb,2.6794e-05_jprb,3.1575e-05_jprb,2.6825e-05_jprb/)  
kbo( :, 1,58, 4) = (/&
 & 1.9991e-06_jprb,2.3969e-06_jprb,1.2235e-05_jprb,1.7713e-05_jprb,2.1380e-05_jprb,1.8819e-05_jprb/)  
kbo( :, 2,58, 4) = (/&
 & 2.0552e-06_jprb,2.5217e-06_jprb,1.2969e-05_jprb,1.8641e-05_jprb,2.2450e-05_jprb,1.9754e-05_jprb/)  
kbo( :, 3,58, 4) = (/&
 & 2.1912e-06_jprb,2.7184e-06_jprb,1.3803e-05_jprb,1.9678e-05_jprb,2.3501e-05_jprb,2.0555e-05_jprb/)  
kbo( :, 4,58, 4) = (/&
 & 2.4045e-06_jprb,2.9869e-06_jprb,1.4668e-05_jprb,2.0799e-05_jprb,2.4657e-05_jprb,2.1216e-05_jprb/)  
kbo( :, 5,58, 4) = (/&
 & 2.6779e-06_jprb,3.3369e-06_jprb,1.5570e-05_jprb,2.1893e-05_jprb,2.5824e-05_jprb,2.1730e-05_jprb/)  
kbo( :, 1,59, 4) = (/&
 & 1.6438e-06_jprb,1.9701e-06_jprb,1.0010e-05_jprb,1.4487e-05_jprb,1.7470e-05_jprb,1.5234e-05_jprb/)  
kbo( :, 2,59, 4) = (/&
 & 1.6869e-06_jprb,2.0683e-06_jprb,1.0627e-05_jprb,1.5272e-05_jprb,1.8381e-05_jprb,1.5979e-05_jprb/)  
kbo( :, 3,59, 4) = (/&
 & 1.7947e-06_jprb,2.2294e-06_jprb,1.1332e-05_jprb,1.6155e-05_jprb,1.9286e-05_jprb,1.6622e-05_jprb/)  
kbo( :, 4,59, 4) = (/&
 & 1.9699e-06_jprb,2.4516e-06_jprb,1.2063e-05_jprb,1.7108e-05_jprb,2.0268e-05_jprb,1.7134e-05_jprb/)  
kbo( :, 5,59, 4) = (/&
 & 2.1967e-06_jprb,2.7433e-06_jprb,1.2831e-05_jprb,1.8043e-05_jprb,2.1274e-05_jprb,1.7524e-05_jprb/)  
kbo( :, 1,13, 5) = (/&
 & 2.1807e-02_jprb,2.2021e-02_jprb,1.0044e-01_jprb,1.4940e-01_jprb,1.9004e-01_jprb,2.1084e-01_jprb/)  
kbo( :, 2,13, 5) = (/&
 & 2.2325e-02_jprb,2.2543e-02_jprb,1.0227e-01_jprb,1.5170e-01_jprb,1.9324e-01_jprb,2.1682e-01_jprb/)  
kbo( :, 3,13, 5) = (/&
 & 2.2866e-02_jprb,2.3082e-02_jprb,1.0400e-01_jprb,1.5406e-01_jprb,1.9625e-01_jprb,2.2209e-01_jprb/)  
kbo( :, 4,13, 5) = (/&
 & 2.3407e-02_jprb,2.3630e-02_jprb,1.0542e-01_jprb,1.5634e-01_jprb,1.9882e-01_jprb,2.2691e-01_jprb/)  
kbo( :, 5,13, 5) = (/&
 & 2.3969e-02_jprb,2.4198e-02_jprb,1.0673e-01_jprb,1.5832e-01_jprb,2.0084e-01_jprb,2.3123e-01_jprb/)  
kbo( :, 1,14, 5) = (/&
 & 1.8584e-02_jprb,1.8801e-02_jprb,9.0492e-02_jprb,1.3383e-01_jprb,1.6989e-01_jprb,1.8690e-01_jprb/)  
kbo( :, 2,14, 5) = (/&
 & 1.9043e-02_jprb,1.9260e-02_jprb,9.2363e-02_jprb,1.3650e-01_jprb,1.7338e-01_jprb,1.9215e-01_jprb/)  
kbo( :, 3,14, 5) = (/&
 & 1.9509e-02_jprb,1.9727e-02_jprb,9.4036e-02_jprb,1.3911e-01_jprb,1.7652e-01_jprb,1.9653e-01_jprb/)  
kbo( :, 4,14, 5) = (/&
 & 2.0012e-02_jprb,2.0240e-02_jprb,9.5547e-02_jprb,1.4152e-01_jprb,1.7904e-01_jprb,2.0046e-01_jprb/)  
kbo( :, 5,14, 5) = (/&
 & 2.0601e-02_jprb,2.0831e-02_jprb,9.6825e-02_jprb,1.4354e-01_jprb,1.8105e-01_jprb,2.0381e-01_jprb/)  
kbo( :, 1,15, 5) = (/&
 & 1.5764e-02_jprb,1.5986e-02_jprb,8.0805e-02_jprb,1.1930e-01_jprb,1.5084e-01_jprb,1.6442e-01_jprb/)  
kbo( :, 2,15, 5) = (/&
 & 1.6176e-02_jprb,1.6398e-02_jprb,8.2630e-02_jprb,1.2205e-01_jprb,1.5430e-01_jprb,1.6881e-01_jprb/)  
kbo( :, 3,15, 5) = (/&
 & 1.6614e-02_jprb,1.6841e-02_jprb,8.4265e-02_jprb,1.2470e-01_jprb,1.5722e-01_jprb,1.7258e-01_jprb/)  
kbo( :, 4,15, 5) = (/&
 & 1.7119e-02_jprb,1.7353e-02_jprb,8.5716e-02_jprb,1.2695e-01_jprb,1.5969e-01_jprb,1.7588e-01_jprb/)  
kbo( :, 5,15, 5) = (/&
 & 1.7713e-02_jprb,1.7947e-02_jprb,8.6884e-02_jprb,1.2867e-01_jprb,1.6168e-01_jprb,1.7864e-01_jprb/)  
kbo( :, 1,16, 5) = (/&
 & 1.3330e-02_jprb,1.3559e-02_jprb,7.1525e-02_jprb,1.0570e-01_jprb,1.3292e-01_jprb,1.4360e-01_jprb/)  
kbo( :, 2,16, 5) = (/&
 & 1.3693e-02_jprb,1.3924e-02_jprb,7.3291e-02_jprb,1.0840e-01_jprb,1.3614e-01_jprb,1.4745e-01_jprb/)  
kbo( :, 3,16, 5) = (/&
 & 1.4116e-02_jprb,1.4356e-02_jprb,7.4804e-02_jprb,1.1084e-01_jprb,1.3892e-01_jprb,1.5078e-01_jprb/)  
kbo( :, 4,16, 5) = (/&
 & 1.4627e-02_jprb,1.4869e-02_jprb,7.6067e-02_jprb,1.1275e-01_jprb,1.4132e-01_jprb,1.5373e-01_jprb/)  
kbo( :, 5,16, 5) = (/&
 & 1.5182e-02_jprb,1.5422e-02_jprb,7.7137e-02_jprb,1.1432e-01_jprb,1.4325e-01_jprb,1.5618e-01_jprb/)  
kbo( :, 1,17, 5) = (/&
 & 1.1226e-02_jprb,1.1471e-02_jprb,6.2864e-02_jprb,9.2970e-02_jprb,1.1624e-01_jprb,1.2435e-01_jprb/)  
kbo( :, 2,17, 5) = (/&
 & 1.1567e-02_jprb,1.1813e-02_jprb,6.4427e-02_jprb,9.5505e-02_jprb,1.1921e-01_jprb,1.2773e-01_jprb/)  
kbo( :, 3,17, 5) = (/&
 & 1.1990e-02_jprb,1.2239e-02_jprb,6.5773e-02_jprb,9.7566e-02_jprb,1.2183e-01_jprb,1.3076e-01_jprb/)  
kbo( :, 4,17, 5) = (/&
 & 1.2459e-02_jprb,1.2709e-02_jprb,6.6900e-02_jprb,9.9291e-02_jprb,1.2409e-01_jprb,1.3335e-01_jprb/)  
kbo( :, 5,17, 5) = (/&
 & 1.2942e-02_jprb,1.3188e-02_jprb,6.7902e-02_jprb,1.0077e-01_jprb,1.2586e-01_jprb,1.3513e-01_jprb/)  
kbo( :, 1,18, 5) = (/&
 & 9.4274e-03_jprb,9.6965e-03_jprb,5.4803e-02_jprb,8.1156e-02_jprb,1.0095e-01_jprb,1.0689e-01_jprb/)  
kbo( :, 2,18, 5) = (/&
 & 9.7636e-03_jprb,1.0029e-02_jprb,5.6180e-02_jprb,8.3292e-02_jprb,1.0368e-01_jprb,1.0994e-01_jprb/)  
kbo( :, 3,18, 5) = (/&
 & 1.0159e-02_jprb,1.0423e-02_jprb,5.7359e-02_jprb,8.5142e-02_jprb,1.0612e-01_jprb,1.1256e-01_jprb/)  
kbo( :, 4,18, 5) = (/&
 & 1.0557e-02_jprb,1.0823e-02_jprb,5.8403e-02_jprb,8.6709e-02_jprb,1.0803e-01_jprb,1.1430e-01_jprb/)  
kbo( :, 5,18, 5) = (/&
 & 1.0979e-02_jprb,1.1237e-02_jprb,5.9376e-02_jprb,8.7774e-02_jprb,1.0903e-01_jprb,1.1483e-01_jprb/)  
kbo( :, 1,19, 5) = (/&
 & 7.9098e-03_jprb,8.2116e-03_jprb,4.7414e-02_jprb,7.0216e-02_jprb,8.7160e-02_jprb,9.1322e-02_jprb/)  
kbo( :, 2,19, 5) = (/&
 & 8.2326e-03_jprb,8.5288e-03_jprb,4.8610e-02_jprb,7.2087e-02_jprb,8.9657e-02_jprb,9.3915e-02_jprb/)  
kbo( :, 3,19, 5) = (/&
 & 8.5662e-03_jprb,8.8617e-03_jprb,4.9664e-02_jprb,7.3691e-02_jprb,9.1636e-02_jprb,9.5646e-02_jprb/)  
kbo( :, 4,19, 5) = (/&
 & 8.9074e-03_jprb,9.1995e-03_jprb,5.0599e-02_jprb,7.4784e-02_jprb,9.2706e-02_jprb,9.6286e-02_jprb/)  
kbo( :, 5,19, 5) = (/&
 & 9.2777e-03_jprb,9.5603e-03_jprb,5.1404e-02_jprb,7.5248e-02_jprb,9.2890e-02_jprb,9.6015e-02_jprb/)  
kbo( :, 1,20, 5) = (/&
 & 6.6406e-03_jprb,6.9730e-03_jprb,4.0765e-02_jprb,6.0395e-02_jprb,7.4894e-02_jprb,7.7615e-02_jprb/)  
kbo( :, 2,20, 5) = (/&
 & 6.9207e-03_jprb,7.2477e-03_jprb,4.1802e-02_jprb,6.1965e-02_jprb,7.6901e-02_jprb,7.9381e-02_jprb/)  
kbo( :, 3,20, 5) = (/&
 & 7.2065e-03_jprb,7.5323e-03_jprb,4.2689e-02_jprb,6.3071e-02_jprb,7.8052e-02_jprb,8.0177e-02_jprb/)  
kbo( :, 4,20, 5) = (/&
 & 7.5033e-03_jprb,7.8245e-03_jprb,4.3401e-02_jprb,6.3586e-02_jprb,7.8425e-02_jprb,8.0205e-02_jprb/)  
kbo( :, 5,20, 5) = (/&
 & 7.8207e-03_jprb,8.1353e-03_jprb,4.3986e-02_jprb,6.3704e-02_jprb,7.8211e-02_jprb,7.9644e-02_jprb/)  
kbo( :, 1,21, 5) = (/&
 & 5.5684e-03_jprb,5.9172e-03_jprb,3.4857e-02_jprb,5.1594e-02_jprb,6.3858e-02_jprb,6.5331e-02_jprb/)  
kbo( :, 2,21, 5) = (/&
 & 5.8079e-03_jprb,6.1557e-03_jprb,3.5708e-02_jprb,5.2705e-02_jprb,6.5132e-02_jprb,6.6285e-02_jprb/)  
kbo( :, 3,21, 5) = (/&
 & 6.0503e-03_jprb,6.4001e-03_jprb,3.6352e-02_jprb,5.3300e-02_jprb,6.5675e-02_jprb,6.6569e-02_jprb/)  
kbo( :, 4,21, 5) = (/&
 & 6.2998e-03_jprb,6.6477e-03_jprb,3.6852e-02_jprb,5.3519e-02_jprb,6.5720e-02_jprb,6.6352e-02_jprb/)  
kbo( :, 5,21, 5) = (/&
 & 6.5744e-03_jprb,6.9172e-03_jprb,3.7271e-02_jprb,5.3554e-02_jprb,6.5371e-02_jprb,6.5708e-02_jprb/)  
kbo( :, 1,22, 5) = (/&
 & 4.6792e-03_jprb,5.0331e-03_jprb,2.9657e-02_jprb,4.3716e-02_jprb,5.3931e-02_jprb,5.4472e-02_jprb/)  
kbo( :, 2,22, 5) = (/&
 & 4.8778e-03_jprb,5.2371e-03_jprb,3.0261e-02_jprb,4.4366e-02_jprb,5.4607e-02_jprb,5.4935e-02_jprb/)  
kbo( :, 3,22, 5) = (/&
 & 5.0770e-03_jprb,5.4422e-03_jprb,3.0710e-02_jprb,4.4665e-02_jprb,5.4836e-02_jprb,5.4959e-02_jprb/)  
kbo( :, 4,22, 5) = (/&
 & 5.2927e-03_jprb,5.6586e-03_jprb,3.1096e-02_jprb,4.4798e-02_jprb,5.4724e-02_jprb,5.4622e-02_jprb/)  
kbo( :, 5,22, 5) = (/&
 & 5.5434e-03_jprb,5.9042e-03_jprb,3.1379e-02_jprb,4.4838e-02_jprb,5.4360e-02_jprb,5.3969e-02_jprb/)  
kbo( :, 1,23, 5) = (/&
 & 3.9250e-03_jprb,4.2788e-03_jprb,2.5012e-02_jprb,3.6685e-02_jprb,4.5117e-02_jprb,4.5081e-02_jprb/)  
kbo( :, 2,23, 5) = (/&
 & 4.0873e-03_jprb,4.4491e-03_jprb,2.5443e-02_jprb,3.7065e-02_jprb,4.5485e-02_jprb,4.5295e-02_jprb/)  
kbo( :, 3,23, 5) = (/&
 & 4.2581e-03_jprb,4.6288e-03_jprb,2.5803e-02_jprb,3.7271e-02_jprb,4.5559e-02_jprb,4.5199e-02_jprb/)  
kbo( :, 4,23, 5) = (/&
 & 4.4522e-03_jprb,4.8247e-03_jprb,2.6083e-02_jprb,3.7398e-02_jprb,4.5404e-02_jprb,4.4816e-02_jprb/)  
kbo( :, 5,23, 5) = (/&
 & 4.6797e-03_jprb,5.0478e-03_jprb,2.6273e-02_jprb,3.7409e-02_jprb,4.5088e-02_jprb,4.4196e-02_jprb/)  
kbo( :, 1,24, 5) = (/&
 & 3.2858e-03_jprb,3.6291e-03_jprb,2.0947e-02_jprb,3.0585e-02_jprb,3.7522e-02_jprb,3.7149e-02_jprb/)  
kbo( :, 2,24, 5) = (/&
 & 3.4236e-03_jprb,3.7775e-03_jprb,2.1296e-02_jprb,3.0855e-02_jprb,3.7729e-02_jprb,3.7225e-02_jprb/)  
kbo( :, 3,24, 5) = (/&
 & 3.5756e-03_jprb,3.9404e-03_jprb,2.1574e-02_jprb,3.1034e-02_jprb,3.7731e-02_jprb,3.7059e-02_jprb/)  
kbo( :, 4,24, 5) = (/&
 & 3.7547e-03_jprb,4.1217e-03_jprb,2.1772e-02_jprb,3.1132e-02_jprb,3.7589e-02_jprb,3.6671e-02_jprb/)  
kbo( :, 5,24, 5) = (/&
 & 3.9592e-03_jprb,4.3220e-03_jprb,2.1911e-02_jprb,3.1105e-02_jprb,3.7336e-02_jprb,3.6105e-02_jprb/)  
kbo( :, 1,25, 5) = (/&
 & 2.7485e-03_jprb,3.0715e-03_jprb,1.7485e-02_jprb,2.5411e-02_jprb,3.1088e-02_jprb,3.0529e-02_jprb/)  
kbo( :, 2,25, 5) = (/&
 & 2.8696e-03_jprb,3.2062e-03_jprb,1.7760e-02_jprb,2.5637e-02_jprb,3.1212e-02_jprb,3.0522e-02_jprb/)  
kbo( :, 3,25, 5) = (/&
 & 3.0093e-03_jprb,3.3562e-03_jprb,1.7965e-02_jprb,2.5792e-02_jprb,3.1200e-02_jprb,3.0326e-02_jprb/)  
kbo( :, 4,25, 5) = (/&
 & 3.1710e-03_jprb,3.5209e-03_jprb,1.8112e-02_jprb,2.5834e-02_jprb,3.1084e-02_jprb,2.9961e-02_jprb/)  
kbo( :, 5,25, 5) = (/&
 & 3.3541e-03_jprb,3.7049e-03_jprb,1.8221e-02_jprb,2.5787e-02_jprb,3.0865e-02_jprb,2.9461e-02_jprb/)  
kbo( :, 1,26, 5) = (/&
 & 2.3019e-03_jprb,2.5991e-03_jprb,1.4558e-02_jprb,2.1083e-02_jprb,2.5705e-02_jprb,2.5046e-02_jprb/)  
kbo( :, 2,26, 5) = (/&
 & 2.4097e-03_jprb,2.7218e-03_jprb,1.4765e-02_jprb,2.1273e-02_jprb,2.5791e-02_jprb,2.4990e-02_jprb/)  
kbo( :, 3,26, 5) = (/&
 & 2.5374e-03_jprb,2.8582e-03_jprb,1.4920e-02_jprb,2.1375e-02_jprb,2.5785e-02_jprb,2.4784e-02_jprb/)  
kbo( :, 4,26, 5) = (/&
 & 2.6838e-03_jprb,3.0095e-03_jprb,1.5036e-02_jprb,2.1391e-02_jprb,2.5681e-02_jprb,2.4453e-02_jprb/)  
kbo( :, 5,26, 5) = (/&
 & 2.8416e-03_jprb,3.1735e-03_jprb,1.5124e-02_jprb,2.1341e-02_jprb,2.5468e-02_jprb,2.4016e-02_jprb/)  
kbo( :, 1,27, 5) = (/&
 & 1.9284e-03_jprb,2.1979e-03_jprb,1.2092e-02_jprb,1.7474e-02_jprb,2.1233e-02_jprb,2.0526e-02_jprb/)  
kbo( :, 2,27, 5) = (/&
 & 2.0271e-03_jprb,2.3110e-03_jprb,1.2248e-02_jprb,1.7617e-02_jprb,2.1305e-02_jprb,2.0445e-02_jprb/)  
kbo( :, 3,27, 5) = (/&
 & 2.1413e-03_jprb,2.4339e-03_jprb,1.2368e-02_jprb,1.7683e-02_jprb,2.1297e-02_jprb,2.0248e-02_jprb/)  
kbo( :, 4,27, 5) = (/&
 & 2.2700e-03_jprb,2.5708e-03_jprb,1.2461e-02_jprb,1.7683e-02_jprb,2.1187e-02_jprb,1.9954e-02_jprb/)  
kbo( :, 5,27, 5) = (/&
 & 2.4050e-03_jprb,2.7137e-03_jprb,1.2547e-02_jprb,1.7644e-02_jprb,2.0996e-02_jprb,1.9578e-02_jprb/)  
kbo( :, 1,28, 5) = (/&
 & 1.6177e-03_jprb,1.8598e-03_jprb,1.0025e-02_jprb,1.4464e-02_jprb,1.7533e-02_jprb,1.6811e-02_jprb/)  
kbo( :, 2,28, 5) = (/&
 & 1.7070e-03_jprb,1.9616e-03_jprb,1.0146e-02_jprb,1.4566e-02_jprb,1.7595e-02_jprb,1.6720e-02_jprb/)  
kbo( :, 3,28, 5) = (/&
 & 1.8084e-03_jprb,2.0731e-03_jprb,1.0240e-02_jprb,1.4610e-02_jprb,1.7567e-02_jprb,1.6539e-02_jprb/)  
kbo( :, 4,28, 5) = (/&
 & 1.9191e-03_jprb,2.1930e-03_jprb,1.0326e-02_jprb,1.4610e-02_jprb,1.7462e-02_jprb,1.6282e-02_jprb/)  
kbo( :, 5,28, 5) = (/&
 & 2.0364e-03_jprb,2.3203e-03_jprb,1.0409e-02_jprb,1.4583e-02_jprb,1.7296e-02_jprb,1.5960e-02_jprb/)  
kbo( :, 1,29, 5) = (/&
 & 1.3593e-03_jprb,1.5756e-03_jprb,8.3017e-03_jprb,1.1957e-02_jprb,1.4479e-02_jprb,1.3772e-02_jprb/)  
kbo( :, 2,29, 5) = (/&
 & 1.4401e-03_jprb,1.6674e-03_jprb,8.3969e-03_jprb,1.2033e-02_jprb,1.4515e-02_jprb,1.3681e-02_jprb/)  
kbo( :, 3,29, 5) = (/&
 & 1.5286e-03_jprb,1.7667e-03_jprb,8.4784e-03_jprb,1.2064e-02_jprb,1.4477e-02_jprb,1.3518e-02_jprb/)  
kbo( :, 4,29, 5) = (/&
 & 1.6239e-03_jprb,1.8725e-03_jprb,8.5587e-03_jprb,1.2064e-02_jprb,1.4381e-02_jprb,1.3294e-02_jprb/)  
kbo( :, 5,29, 5) = (/&
 & 1.7270e-03_jprb,1.9868e-03_jprb,8.6438e-03_jprb,1.2057e-02_jprb,1.4239e-02_jprb,1.3028e-02_jprb/)  
kbo( :, 1,30, 5) = (/&
 & 1.1445e-03_jprb,1.3361e-03_jprb,6.8720e-03_jprb,9.8791e-03_jprb,1.1950e-02_jprb,1.1283e-02_jprb/)  
kbo( :, 2,30, 5) = (/&
 & 1.2156e-03_jprb,1.4188e-03_jprb,6.9493e-03_jprb,9.9349e-03_jprb,1.1964e-02_jprb,1.1195e-02_jprb/)  
kbo( :, 3,30, 5) = (/&
 & 1.2922e-03_jprb,1.5061e-03_jprb,7.0248e-03_jprb,9.9580e-03_jprb,1.1924e-02_jprb,1.1051e-02_jprb/)  
kbo( :, 4,30, 5) = (/&
 & 1.3747e-03_jprb,1.6004e-03_jprb,7.1033e-03_jprb,9.9696e-03_jprb,1.1840e-02_jprb,1.0864e-02_jprb/)  

IF (lhook) CALL dr_hook('RRTM_KGB4:PART18',1,zhook_handle)
END SUBROUTINE part18


SUBROUTINE part19

REAL(KIND=JPRB) :: ZHOOK_HANDLE
IF (lhook) CALL dr_hook('RRTM_KGB4:PART19',0,zhook_handle)


kbo( :, 5,30, 5) = (/&
 & 1.4679e-03_jprb,1.7048e-03_jprb,7.1904e-03_jprb,9.9722e-03_jprb,1.1724e-02_jprb,1.0645e-02_jprb/)  
kbo( :, 1,31, 5) = (/&
 & 9.6571e-04_jprb,1.1355e-03_jprb,5.6867e-03_jprb,8.1598e-03_jprb,9.8539e-03_jprb,9.2507e-03_jprb/)  
kbo( :, 2,31, 5) = (/&
 & 1.0268e-03_jprb,1.2081e-03_jprb,5.7561e-03_jprb,8.2013e-03_jprb,9.8560e-03_jprb,9.1701e-03_jprb/)  
kbo( :, 3,31, 5) = (/&
 & 1.0932e-03_jprb,1.2857e-03_jprb,5.8273e-03_jprb,8.2243e-03_jprb,9.8178e-03_jprb,9.0482e-03_jprb/)  
kbo( :, 4,31, 5) = (/&
 & 1.1666e-03_jprb,1.3712e-03_jprb,5.9075e-03_jprb,8.2428e-03_jprb,9.7465e-03_jprb,8.8946e-03_jprb/)  
kbo( :, 5,31, 5) = (/&
 & 1.2509e-03_jprb,1.4662e-03_jprb,5.9896e-03_jprb,8.2555e-03_jprb,9.6578e-03_jprb,8.7121e-03_jprb/)  
kbo( :, 1,32, 5) = (/&
 & 8.1549e-04_jprb,9.6647e-04_jprb,4.7087e-03_jprb,6.7390e-03_jprb,8.1222e-03_jprb,7.5866e-03_jprb/)  
kbo( :, 2,32, 5) = (/&
 & 8.6808e-04_jprb,1.0303e-03_jprb,4.7745e-03_jprb,6.7731e-03_jprb,8.1188e-03_jprb,7.5153e-03_jprb/)  
kbo( :, 3,32, 5) = (/&
 & 9.2635e-04_jprb,1.0997e-03_jprb,4.8447e-03_jprb,6.7992e-03_jprb,8.0828e-03_jprb,7.4160e-03_jprb/)  
kbo( :, 4,32, 5) = (/&
 & 9.9293e-04_jprb,1.1779e-03_jprb,4.9222e-03_jprb,6.8226e-03_jprb,8.0279e-03_jprb,7.2877e-03_jprb/)  
kbo( :, 5,32, 5) = (/&
 & 1.0686e-03_jprb,1.2641e-03_jprb,4.9952e-03_jprb,6.8449e-03_jprb,7.9628e-03_jprb,7.1366e-03_jprb/)  
kbo( :, 1,33, 5) = (/&
 & 6.8866e-04_jprb,8.2347e-04_jprb,3.9045e-03_jprb,5.5660e-03_jprb,6.6934e-03_jprb,6.2259e-03_jprb/)  
kbo( :, 2,33, 5) = (/&
 & 7.3455e-04_jprb,8.7986e-04_jprb,3.9663e-03_jprb,5.5986e-03_jprb,6.6866e-03_jprb,6.1677e-03_jprb/)  
kbo( :, 3,33, 5) = (/&
 & 7.8698e-04_jprb,9.4282e-04_jprb,4.0361e-03_jprb,5.6281e-03_jprb,6.6584e-03_jprb,6.0842e-03_jprb/)  
kbo( :, 4,33, 5) = (/&
 & 8.4706e-04_jprb,1.0140e-03_jprb,4.1036e-03_jprb,5.6568e-03_jprb,6.6185e-03_jprb,5.9772e-03_jprb/)  
kbo( :, 5,33, 5) = (/&
 & 9.1579e-04_jprb,1.0926e-03_jprb,4.1728e-03_jprb,5.6818e-03_jprb,6.5697e-03_jprb,5.8519e-03_jprb/)  
kbo( :, 1,34, 5) = (/&
 & 5.8058e-04_jprb,7.0023e-04_jprb,3.2403e-03_jprb,4.6005e-03_jprb,5.5166e-03_jprb,5.1111e-03_jprb/)  
kbo( :, 2,34, 5) = (/&
 & 6.2122e-04_jprb,7.5048e-04_jprb,3.3005e-03_jprb,4.6334e-03_jprb,5.5099e-03_jprb,5.0626e-03_jprb/)  
kbo( :, 3,34, 5) = (/&
 & 6.6865e-04_jprb,8.0788e-04_jprb,3.3630e-03_jprb,4.6658e-03_jprb,5.4906e-03_jprb,4.9925e-03_jprb/)  
kbo( :, 4,34, 5) = (/&
 & 7.2278e-04_jprb,8.7227e-04_jprb,3.4246e-03_jprb,4.6970e-03_jprb,5.4619e-03_jprb,4.9033e-03_jprb/)  
kbo( :, 5,34, 5) = (/&
 & 7.8420e-04_jprb,9.4411e-04_jprb,3.4913e-03_jprb,4.7221e-03_jprb,5.4290e-03_jprb,4.7999e-03_jprb/)  
kbo( :, 1,35, 5) = (/&
 & 4.8680e-04_jprb,5.9168e-04_jprb,2.6886e-03_jprb,3.8031e-03_jprb,4.5472e-03_jprb,4.2007e-03_jprb/)  
kbo( :, 2,35, 5) = (/&
 & 5.2287e-04_jprb,6.3647e-04_jprb,2.7442e-03_jprb,3.8365e-03_jprb,4.5442e-03_jprb,4.1613e-03_jprb/)  
kbo( :, 3,35, 5) = (/&
 & 5.6494e-04_jprb,6.8801e-04_jprb,2.7990e-03_jprb,3.8713e-03_jprb,4.5326e-03_jprb,4.1035e-03_jprb/)  
kbo( :, 4,35, 5) = (/&
 & 6.1346e-04_jprb,7.4591e-04_jprb,2.8564e-03_jprb,3.9017e-03_jprb,4.5150e-03_jprb,4.0303e-03_jprb/)  
kbo( :, 5,35, 5) = (/&
 & 6.6714e-04_jprb,8.1053e-04_jprb,2.9207e-03_jprb,3.9294e-03_jprb,4.4955e-03_jprb,3.9472e-03_jprb/)  
kbo( :, 1,36, 5) = (/&
 & 4.0556e-04_jprb,4.9618e-04_jprb,2.2284e-03_jprb,3.1440e-03_jprb,3.7492e-03_jprb,3.4553e-03_jprb/)  
kbo( :, 2,36, 5) = (/&
 & 4.3716e-04_jprb,5.3572e-04_jprb,2.2775e-03_jprb,3.1778e-03_jprb,3.7514e-03_jprb,3.4245e-03_jprb/)  
kbo( :, 3,36, 5) = (/&
 & 4.7403e-04_jprb,5.8132e-04_jprb,2.3270e-03_jprb,3.2124e-03_jprb,3.7468e-03_jprb,3.3780e-03_jprb/)  
kbo( :, 4,36, 5) = (/&
 & 5.1659e-04_jprb,6.3283e-04_jprb,2.3801e-03_jprb,3.2412e-03_jprb,3.7380e-03_jprb,3.3193e-03_jprb/)  
kbo( :, 5,36, 5) = (/&
 & 5.6320e-04_jprb,6.9001e-04_jprb,2.4401e-03_jprb,3.2716e-03_jprb,3.7268e-03_jprb,3.2538e-03_jprb/)  
kbo( :, 1,37, 5) = (/&
 & 3.3445e-04_jprb,4.1138e-04_jprb,1.8414e-03_jprb,2.5960e-03_jprb,3.0918e-03_jprb,2.8440e-03_jprb/)  
kbo( :, 2,37, 5) = (/&
 & 3.6139e-04_jprb,4.4542e-04_jprb,1.8850e-03_jprb,2.6293e-03_jprb,3.0984e-03_jprb,2.8216e-03_jprb/)  
kbo( :, 3,37, 5) = (/&
 & 3.9302e-04_jprb,4.8495e-04_jprb,1.9291e-03_jprb,2.6624e-03_jprb,3.0995e-03_jprb,2.7862e-03_jprb/)  
kbo( :, 4,37, 5) = (/&
 & 4.2962e-04_jprb,5.3000e-04_jprb,1.9778e-03_jprb,2.6913e-03_jprb,3.0985e-03_jprb,2.7408e-03_jprb/)  
kbo( :, 5,37, 5) = (/&
 & 4.6957e-04_jprb,5.7981e-04_jprb,2.0321e-03_jprb,2.7224e-03_jprb,3.0939e-03_jprb,2.6899e-03_jprb/)  
kbo( :, 1,38, 5) = (/&
 & 2.7565e-04_jprb,3.4069e-04_jprb,1.5215e-03_jprb,2.1439e-03_jprb,2.5502e-03_jprb,2.3418e-03_jprb/)  
kbo( :, 2,38, 5) = (/&
 & 2.9863e-04_jprb,3.7003e-04_jprb,1.5598e-03_jprb,2.1756e-03_jprb,2.5600e-03_jprb,2.3264e-03_jprb/)  
kbo( :, 3,38, 5) = (/&
 & 3.2577e-04_jprb,4.0422e-04_jprb,1.5995e-03_jprb,2.2068e-03_jprb,2.5657e-03_jprb,2.2995e-03_jprb/)  
kbo( :, 4,38, 5) = (/&
 & 3.5709e-04_jprb,4.4339e-04_jprb,1.6429e-03_jprb,2.2349e-03_jprb,2.5695e-03_jprb,2.2650e-03_jprb/)  
kbo( :, 5,38, 5) = (/&
 & 3.9150e-04_jprb,4.8695e-04_jprb,1.6922e-03_jprb,2.2658e-03_jprb,2.5693e-03_jprb,2.2257e-03_jprb/)  
kbo( :, 1,39, 5) = (/&
 & 2.2724e-04_jprb,2.8211e-04_jprb,1.2574e-03_jprb,1.7709e-03_jprb,2.1038e-03_jprb,1.9299e-03_jprb/)  
kbo( :, 2,39, 5) = (/&
 & 2.4681e-04_jprb,3.0736e-04_jprb,1.2915e-03_jprb,1.8008e-03_jprb,2.1155e-03_jprb,1.9194e-03_jprb/)  
kbo( :, 3,39, 5) = (/&
 & 2.7014e-04_jprb,3.3704e-04_jprb,1.3268e-03_jprb,1.8293e-03_jprb,2.1247e-03_jprb,1.8997e-03_jprb/)  
kbo( :, 4,39, 5) = (/&
 & 2.9696e-04_jprb,3.7109e-04_jprb,1.3658e-03_jprb,1.8564e-03_jprb,2.1316e-03_jprb,1.8739e-03_jprb/)  
kbo( :, 5,39, 5) = (/&
 & 3.2661e-04_jprb,4.0911e-04_jprb,1.4099e-03_jprb,1.8866e-03_jprb,2.1349e-03_jprb,1.8442e-03_jprb/)  
kbo( :, 1,40, 5) = (/&
 & 1.8579e-04_jprb,2.3160e-04_jprb,1.0365e-03_jprb,1.4603e-03_jprb,1.7343e-03_jprb,1.5866e-03_jprb/)  
kbo( :, 2,40, 5) = (/&
 & 2.0221e-04_jprb,2.5290e-04_jprb,1.0666e-03_jprb,1.4877e-03_jprb,1.7476e-03_jprb,1.5810e-03_jprb/)  
kbo( :, 3,40, 5) = (/&
 & 2.2187e-04_jprb,2.7826e-04_jprb,1.0975e-03_jprb,1.5141e-03_jprb,1.7589e-03_jprb,1.5669e-03_jprb/)  
kbo( :, 4,40, 5) = (/&
 & 2.4464e-04_jprb,3.0747e-04_jprb,1.1320e-03_jprb,1.5399e-03_jprb,1.7682e-03_jprb,1.5479e-03_jprb/)  
kbo( :, 5,40, 5) = (/&
 & 2.6982e-04_jprb,3.4023e-04_jprb,1.1712e-03_jprb,1.5681e-03_jprb,1.7744e-03_jprb,1.5254e-03_jprb/)  
kbo( :, 1,41, 5) = (/&
 & 1.5166e-04_jprb,1.8980e-04_jprb,8.5379e-04_jprb,1.2035e-03_jprb,1.4293e-03_jprb,1.3039e-03_jprb/)  
kbo( :, 2,41, 5) = (/&
 & 1.6546e-04_jprb,2.0775e-04_jprb,8.8025e-04_jprb,1.2284e-03_jprb,1.4432e-03_jprb,1.3014e-03_jprb/)  
kbo( :, 3,41, 5) = (/&
 & 1.8194e-04_jprb,2.2930e-04_jprb,9.0741e-04_jprb,1.2528e-03_jprb,1.4560e-03_jprb,1.2919e-03_jprb/)  
kbo( :, 4,41, 5) = (/&
 & 2.0120e-04_jprb,2.5429e-04_jprb,9.3787e-04_jprb,1.2766e-03_jprb,1.4664e-03_jprb,1.2782e-03_jprb/)  
kbo( :, 5,41, 5) = (/&
 & 2.2263e-04_jprb,2.8250e-04_jprb,9.7232e-04_jprb,1.3029e-03_jprb,1.4746e-03_jprb,1.2613e-03_jprb/)  
kbo( :, 1,42, 5) = (/&
 & 1.2374e-04_jprb,1.5546e-04_jprb,7.0307e-04_jprb,9.9137e-04_jprb,1.1774e-03_jprb,1.0716e-03_jprb/)  
kbo( :, 2,42, 5) = (/&
 & 1.3533e-04_jprb,1.7055e-04_jprb,7.2623e-04_jprb,1.0140e-03_jprb,1.1917e-03_jprb,1.0713e-03_jprb/)  
kbo( :, 3,42, 5) = (/&
 & 1.4914e-04_jprb,1.8882e-04_jprb,7.4998e-04_jprb,1.0363e-03_jprb,1.2049e-03_jprb,1.0651e-03_jprb/)  
kbo( :, 4,42, 5) = (/&
 & 1.6539e-04_jprb,2.1022e-04_jprb,7.7693e-04_jprb,1.0584e-03_jprb,1.2160e-03_jprb,1.0556e-03_jprb/)  
kbo( :, 5,42, 5) = (/&
 & 1.8361e-04_jprb,2.3442e-04_jprb,8.0719e-04_jprb,1.0824e-03_jprb,1.2253e-03_jprb,1.0431e-03_jprb/)  
kbo( :, 1,43, 5) = (/&
 & 1.0045e-04_jprb,1.2664e-04_jprb,5.7734e-04_jprb,8.1536e-04_jprb,9.6884e-04_jprb,8.7977e-04_jprb/)  
kbo( :, 2,43, 5) = (/&
 & 1.1005e-04_jprb,1.3917e-04_jprb,5.9774e-04_jprb,8.3582e-04_jprb,9.8292e-04_jprb,8.8149e-04_jprb/)  
kbo( :, 3,43, 5) = (/&
 & 1.2153e-04_jprb,1.5445e-04_jprb,6.1853e-04_jprb,8.5606e-04_jprb,9.9619e-04_jprb,8.7826e-04_jprb/)  
kbo( :, 4,43, 5) = (/&
 & 1.3510e-04_jprb,1.7258e-04_jprb,6.4186e-04_jprb,8.7601e-04_jprb,1.0075e-03_jprb,8.7187e-04_jprb/)  
kbo( :, 5,43, 5) = (/&
 & 1.5043e-04_jprb,1.9318e-04_jprb,6.6828e-04_jprb,8.9763e-04_jprb,1.0172e-03_jprb,8.6294e-04_jprb/)  
kbo( :, 1,44, 5) = (/&
 & 8.1305e-05_jprb,1.0284e-04_jprb,4.7336e-04_jprb,6.6976e-04_jprb,7.9626e-04_jprb,7.2189e-04_jprb/)  
kbo( :, 2,44, 5) = (/&
 & 8.9193e-05_jprb,1.1315e-04_jprb,4.9111e-04_jprb,6.8790e-04_jprb,8.0980e-04_jprb,7.2505e-04_jprb/)  
kbo( :, 3,44, 5) = (/&
 & 9.8676e-05_jprb,1.2583e-04_jprb,5.0913e-04_jprb,7.0617e-04_jprb,8.2256e-04_jprb,7.2410e-04_jprb/)  
kbo( :, 4,44, 5) = (/&
 & 1.0996e-04_jprb,1.4111e-04_jprb,5.2937e-04_jprb,7.2436e-04_jprb,8.3410e-04_jprb,7.2019e-04_jprb/)  
kbo( :, 5,44, 5) = (/&
 & 1.2282e-04_jprb,1.5859e-04_jprb,5.5236e-04_jprb,7.4376e-04_jprb,8.4405e-04_jprb,7.1417e-04_jprb/)  
kbo( :, 1,45, 5) = (/&
 & 6.5786e-05_jprb,8.3420e-05_jprb,3.8779e-04_jprb,5.4957e-04_jprb,6.5386e-04_jprb,5.9205e-04_jprb/)  
kbo( :, 2,45, 5) = (/&
 & 7.2236e-05_jprb,9.1932e-05_jprb,4.0331e-04_jprb,5.6601e-04_jprb,6.6677e-04_jprb,5.9628e-04_jprb/)  
kbo( :, 3,45, 5) = (/&
 & 8.0050e-05_jprb,1.0242e-04_jprb,4.1883e-04_jprb,5.8238e-04_jprb,6.7888e-04_jprb,5.9688e-04_jprb/)  
kbo( :, 4,45, 5) = (/&
 & 8.9405e-05_jprb,1.1521e-04_jprb,4.3614e-04_jprb,5.9853e-04_jprb,6.8997e-04_jprb,5.9495e-04_jprb/)  
kbo( :, 5,45, 5) = (/&
 & 1.0018e-04_jprb,1.3003e-04_jprb,4.5610e-04_jprb,6.1576e-04_jprb,6.9970e-04_jprb,5.9107e-04_jprb/)  
kbo( :, 1,46, 5) = (/&
 & 5.3104e-05_jprb,6.7476e-05_jprb,3.1711e-04_jprb,4.5030e-04_jprb,5.3634e-04_jprb,4.8529e-04_jprb/)  
kbo( :, 2,46, 5) = (/&
 & 5.8310e-05_jprb,7.4440e-05_jprb,3.3050e-04_jprb,4.6471e-04_jprb,5.4814e-04_jprb,4.8994e-04_jprb/)  
kbo( :, 3,46, 5) = (/&
 & 6.4721e-05_jprb,8.3070e-05_jprb,3.4388e-04_jprb,4.7945e-04_jprb,5.5942e-04_jprb,4.9178e-04_jprb/)  
kbo( :, 4,46, 5) = (/&
 & 7.2446e-05_jprb,9.3711e-05_jprb,3.5879e-04_jprb,4.9397e-04_jprb,5.7010e-04_jprb,4.9130e-04_jprb/)  
kbo( :, 5,46, 5) = (/&
 & 8.1435e-05_jprb,1.0620e-04_jprb,3.7604e-04_jprb,5.0936e-04_jprb,5.7974e-04_jprb,4.8929e-04_jprb/)  
kbo( :, 1,47, 5) = (/&
 & 4.2686e-05_jprb,5.4314e-05_jprb,2.5853e-04_jprb,3.6799e-04_jprb,4.3908e-04_jprb,3.9686e-04_jprb/)  
kbo( :, 2,47, 5) = (/&
 & 4.6834e-05_jprb,5.9958e-05_jprb,2.7010e-04_jprb,3.8053e-04_jprb,4.4992e-04_jprb,4.0194e-04_jprb/)  
kbo( :, 3,47, 5) = (/&
 & 5.2031e-05_jprb,6.6956e-05_jprb,2.8174e-04_jprb,3.9382e-04_jprb,4.6023e-04_jprb,4.0464e-04_jprb/)  
kbo( :, 4,47, 5) = (/&
 & 5.8344e-05_jprb,7.5683e-05_jprb,2.9437e-04_jprb,4.0674e-04_jprb,4.7039e-04_jprb,4.0528e-04_jprb/)  
kbo( :, 5,47, 5) = (/&
 & 6.5774e-05_jprb,8.6102e-05_jprb,3.0904e-04_jprb,4.2022e-04_jprb,4.7955e-04_jprb,4.0445e-04_jprb/)  
kbo( :, 1,48, 5) = (/&
 & 3.4313e-05_jprb,4.3687e-05_jprb,2.1071e-04_jprb,3.0035e-04_jprb,3.5902e-04_jprb,3.2436e-04_jprb/)  
kbo( :, 2,48, 5) = (/&
 & 3.7593e-05_jprb,4.8250e-05_jprb,2.2059e-04_jprb,3.1121e-04_jprb,3.6875e-04_jprb,3.2956e-04_jprb/)  
kbo( :, 3,48, 5) = (/&
 & 4.1785e-05_jprb,5.3906e-05_jprb,2.3062e-04_jprb,3.2298e-04_jprb,3.7819e-04_jprb,3.3287e-04_jprb/)  
kbo( :, 4,48, 5) = (/&
 & 4.6905e-05_jprb,6.0993e-05_jprb,2.4128e-04_jprb,3.3438e-04_jprb,3.8763e-04_jprb,3.3428e-04_jprb/)  
kbo( :, 5,48, 5) = (/&
 & 5.3020e-05_jprb,6.9645e-05_jprb,2.5366e-04_jprb,3.4620e-04_jprb,3.9625e-04_jprb,3.3440e-04_jprb/)  
kbo( :, 1,49, 5) = (/&
 & 2.7583e-05_jprb,3.5115e-05_jprb,1.7155e-04_jprb,2.4481e-04_jprb,2.9317e-04_jprb,2.6498e-04_jprb/)  
kbo( :, 2,49, 5) = (/&
 & 3.0170e-05_jprb,3.8800e-05_jprb,1.7986e-04_jprb,2.5418e-04_jprb,3.0189e-04_jprb,2.7025e-04_jprb/)  
kbo( :, 3,49, 5) = (/&
 & 3.3521e-05_jprb,4.3336e-05_jprb,1.8852e-04_jprb,2.6447e-04_jprb,3.1043e-04_jprb,2.7387e-04_jprb/)  
kbo( :, 4,49, 5) = (/&
 & 3.7657e-05_jprb,4.9084e-05_jprb,1.9758e-04_jprb,2.7449e-04_jprb,3.1899e-04_jprb,2.7586e-04_jprb/)  
kbo( :, 5,49, 5) = (/&
 & 4.2653e-05_jprb,5.6226e-05_jprb,2.0799e-04_jprb,2.8484e-04_jprb,3.2703e-04_jprb,2.7676e-04_jprb/)  
kbo( :, 1,50, 5) = (/&
 & 2.2217e-05_jprb,2.8271e-05_jprb,1.3969e-04_jprb,1.9948e-04_jprb,2.3919e-04_jprb,2.1597e-04_jprb/)  
kbo( :, 2,50, 5) = (/&
 & 2.4266e-05_jprb,3.1256e-05_jprb,1.4667e-04_jprb,2.0754e-04_jprb,2.4693e-04_jprb,2.2097e-04_jprb/)  
kbo( :, 3,50, 5) = (/&
 & 2.6941e-05_jprb,3.4914e-05_jprb,1.5413e-04_jprb,2.1640e-04_jprb,2.5457e-04_jprb,2.2461e-04_jprb/)  
kbo( :, 4,50, 5) = (/&
 & 3.0285e-05_jprb,3.9575e-05_jprb,1.6186e-04_jprb,2.2530e-04_jprb,2.6234e-04_jprb,2.2692e-04_jprb/)  
kbo( :, 5,50, 5) = (/&
 & 3.4382e-05_jprb,4.5471e-05_jprb,1.7067e-04_jprb,2.3435e-04_jprb,2.6986e-04_jprb,2.2825e-04_jprb/)  
kbo( :, 1,51, 5) = (/&
 & 1.7903e-05_jprb,2.2773e-05_jprb,1.1369e-04_jprb,1.6241e-04_jprb,1.9498e-04_jprb,1.7573e-04_jprb/)  
kbo( :, 2,51, 5) = (/&
 & 1.9536e-05_jprb,2.5192e-05_jprb,1.1954e-04_jprb,1.6937e-04_jprb,2.0181e-04_jprb,1.8035e-04_jprb/)  
kbo( :, 3,51, 5) = (/&
 & 2.1660e-05_jprb,2.8144e-05_jprb,1.2601e-04_jprb,1.7700e-04_jprb,2.0866e-04_jprb,1.8387e-04_jprb/)  
kbo( :, 4,51, 5) = (/&
 & 2.4364e-05_jprb,3.1929e-05_jprb,1.3264e-04_jprb,1.8486e-04_jprb,2.1560e-04_jprb,1.8633e-04_jprb/)  
kbo( :, 5,51, 5) = (/&
 & 2.7713e-05_jprb,3.6767e-05_jprb,1.4007e-04_jprb,1.9273e-04_jprb,2.2249e-04_jprb,1.8786e-04_jprb/)  
kbo( :, 1,52, 5) = (/&
 & 1.4419e-05_jprb,1.8337e-05_jprb,9.2470e-05_jprb,1.3214e-04_jprb,1.5869e-04_jprb,1.4290e-04_jprb/)  
kbo( :, 2,52, 5) = (/&
 & 1.5732e-05_jprb,2.0292e-05_jprb,9.7355e-05_jprb,1.3808e-04_jprb,1.6476e-04_jprb,1.4717e-04_jprb/)  
kbo( :, 3,52, 5) = (/&
 & 1.7402e-05_jprb,2.2667e-05_jprb,1.0291e-04_jprb,1.4460e-04_jprb,1.7083e-04_jprb,1.5054e-04_jprb/)  
kbo( :, 4,52, 5) = (/&
 & 1.9581e-05_jprb,2.5730e-05_jprb,1.0857e-04_jprb,1.5152e-04_jprb,1.7697e-04_jprb,1.5305e-04_jprb/)  
kbo( :, 5,52, 5) = (/&
 & 2.2301e-05_jprb,2.9666e-05_jprb,1.1484e-04_jprb,1.5832e-04_jprb,1.8319e-04_jprb,1.5468e-04_jprb/)  
kbo( :, 1,53, 5) = (/&
 & 1.1603e-05_jprb,1.4759e-05_jprb,7.5154e-05_jprb,1.0740e-04_jprb,1.2904e-04_jprb,1.1618e-04_jprb/)  
kbo( :, 2,53, 5) = (/&
 & 1.2667e-05_jprb,1.6333e-05_jprb,7.9235e-05_jprb,1.1248e-04_jprb,1.3438e-04_jprb,1.2007e-04_jprb/)  
kbo( :, 3,53, 5) = (/&
 & 1.3975e-05_jprb,1.8245e-05_jprb,8.3933e-05_jprb,1.1800e-04_jprb,1.3960e-04_jprb,1.2329e-04_jprb/)  
kbo( :, 4,53, 5) = (/&
 & 1.5718e-05_jprb,2.0708e-05_jprb,8.8803e-05_jprb,1.2402e-04_jprb,1.4502e-04_jprb,1.2574e-04_jprb/)  
kbo( :, 5,53, 5) = (/&
 & 1.7916e-05_jprb,2.3895e-05_jprb,9.4069e-05_jprb,1.2995e-04_jprb,1.5061e-04_jprb,1.2749e-04_jprb/)  
kbo( :, 1,54, 5) = (/&
 & 9.3552e-06_jprb,1.1912e-05_jprb,6.1100e-05_jprb,8.7316e-05_jprb,1.0492e-04_jprb,9.4080e-05_jprb/)  
kbo( :, 2,54, 5) = (/&
 & 1.0223e-05_jprb,1.3180e-05_jprb,6.4519e-05_jprb,9.1648e-05_jprb,1.0960e-04_jprb,9.7474e-05_jprb/)  
kbo( :, 3,54, 5) = (/&
 & 1.1260e-05_jprb,1.4728e-05_jprb,6.8487e-05_jprb,9.6346e-05_jprb,1.1410e-04_jprb,1.0031e-04_jprb/)  
kbo( :, 4,54, 5) = (/&
 & 1.2653e-05_jprb,1.6714e-05_jprb,7.2680e-05_jprb,1.0156e-04_jprb,1.1881e-04_jprb,1.0254e-04_jprb/)  
kbo( :, 5,54, 5) = (/&
 & 1.4429e-05_jprb,1.9299e-05_jprb,7.7137e-05_jprb,1.0670e-04_jprb,1.2378e-04_jprb,1.0417e-04_jprb/)  
kbo( :, 1,55, 5) = (/&
 & 7.5478e-06_jprb,9.6233e-06_jprb,4.9651e-05_jprb,7.0961e-05_jprb,8.5289e-05_jprb,7.6005e-05_jprb/)  
kbo( :, 2,55, 5) = (/&
 & 8.2560e-06_jprb,1.0645e-05_jprb,5.2535e-05_jprb,7.4651e-05_jprb,8.9338e-05_jprb,7.8872e-05_jprb/)  
kbo( :, 3,55, 5) = (/&
 & 9.0843e-06_jprb,1.1897e-05_jprb,5.5871e-05_jprb,7.8654e-05_jprb,9.3220e-05_jprb,8.1320e-05_jprb/)  
kbo( :, 4,55, 5) = (/&
 & 1.0193e-05_jprb,1.3501e-05_jprb,5.9444e-05_jprb,8.3119e-05_jprb,9.7325e-05_jprb,8.3263e-05_jprb/)  
kbo( :, 5,55, 5) = (/&
 & 1.1628e-05_jprb,1.5599e-05_jprb,6.3252e-05_jprb,8.7606e-05_jprb,1.0169e-04_jprb,8.4683e-05_jprb/)  
kbo( :, 1,56, 5) = (/&
 & 6.0903e-06_jprb,7.7718e-06_jprb,4.0310e-05_jprb,5.7612e-05_jprb,6.9244e-05_jprb,6.1397e-05_jprb/)  
kbo( :, 2,56, 5) = (/&
 & 6.6641e-06_jprb,8.5930e-06_jprb,4.2736e-05_jprb,6.0755e-05_jprb,7.2744e-05_jprb,6.3793e-05_jprb/)  
kbo( :, 3,56, 5) = (/&
 & 7.3291e-06_jprb,9.6040e-06_jprb,4.5523e-05_jprb,6.4146e-05_jprb,7.6097e-05_jprb,6.5892e-05_jprb/)  
kbo( :, 4,56, 5) = (/&
 & 8.2059e-06_jprb,1.0897e-05_jprb,4.8582e-05_jprb,6.7958e-05_jprb,7.9612e-05_jprb,6.7572e-05_jprb/)  
kbo( :, 5,56, 5) = (/&
 & 9.3593e-06_jprb,1.2596e-05_jprb,5.1826e-05_jprb,7.1849e-05_jprb,8.3426e-05_jprb,6.8816e-05_jprb/)  
kbo( :, 1,57, 5) = (/&
 & 4.9169e-06_jprb,6.2768e-06_jprb,3.2692e-05_jprb,4.6726e-05_jprb,5.6174e-05_jprb,4.9561e-05_jprb/)  
kbo( :, 2,57, 5) = (/&
 & 5.3758e-06_jprb,6.9313e-06_jprb,3.4730e-05_jprb,4.9399e-05_jprb,5.9171e-05_jprb,5.1566e-05_jprb/)  
kbo( :, 3,57, 5) = (/&
 & 5.9131e-06_jprb,7.7475e-06_jprb,3.7055e-05_jprb,5.2261e-05_jprb,6.2056e-05_jprb,5.3362e-05_jprb/)  
kbo( :, 4,57, 5) = (/&
 & 6.6016e-06_jprb,8.7843e-06_jprb,3.9661e-05_jprb,5.5498e-05_jprb,6.5058e-05_jprb,5.4813e-05_jprb/)  
kbo( :, 5,57, 5) = (/&
 & 7.5245e-06_jprb,1.0159e-05_jprb,4.2420e-05_jprb,5.8870e-05_jprb,6.8384e-05_jprb,5.5909e-05_jprb/)  
kbo( :, 1,58, 5) = (/&
 & 3.9769e-06_jprb,5.0771e-06_jprb,2.6520e-05_jprb,3.7905e-05_jprb,4.5566e-05_jprb,3.9988e-05_jprb/)  
kbo( :, 2,58, 5) = (/&
 & 4.3395e-06_jprb,5.5964e-06_jprb,2.8222e-05_jprb,4.0161e-05_jprb,4.8120e-05_jprb,4.1683e-05_jprb/)  
kbo( :, 3,58, 5) = (/&
 & 4.7765e-06_jprb,6.2573e-06_jprb,3.0162e-05_jprb,4.2567e-05_jprb,5.0612e-05_jprb,4.3174e-05_jprb/)  
kbo( :, 4,58, 5) = (/&
 & 5.3191e-06_jprb,7.0924e-06_jprb,3.2377e-05_jprb,4.5319e-05_jprb,5.3172e-05_jprb,4.4428e-05_jprb/)  
kbo( :, 5,58, 5) = (/&
 & 6.0584e-06_jprb,8.2028e-06_jprb,3.4727e-05_jprb,4.8232e-05_jprb,5.6042e-05_jprb,4.5381e-05_jprb/)  
kbo( :, 1,59, 5) = (/&
 & 3.2625e-06_jprb,4.1716e-06_jprb,2.1747e-05_jprb,3.1052e-05_jprb,3.7329e-05_jprb,3.2409e-05_jprb/)  
kbo( :, 2,59, 5) = (/&
 & 3.5622e-06_jprb,4.6062e-06_jprb,2.3191e-05_jprb,3.2966e-05_jprb,3.9488e-05_jprb,3.3775e-05_jprb/)  
kbo( :, 3,59, 5) = (/&
 & 3.9265e-06_jprb,5.1603e-06_jprb,2.4857e-05_jprb,3.5039e-05_jprb,4.1610e-05_jprb,3.4936e-05_jprb/)  
kbo( :, 4,59, 5) = (/&
 & 4.3796e-06_jprb,5.8651e-06_jprb,2.6758e-05_jprb,3.7407e-05_jprb,4.3840e-05_jprb,3.5912e-05_jprb/)  

IF (lhook) CALL dr_hook('RRTM_KGB4:PART19',1,zhook_handle)
END SUBROUTINE part19


SUBROUTINE part20

REAL(KIND=JPRB) :: ZHOOK_HANDLE
IF (lhook) CALL dr_hook('RRTM_KGB4:PART20',0,zhook_handle)


kbo( :, 5,59, 5) = (/&
 & 5.0004e-06_jprb,6.8064e-06_jprb,2.8778e-05_jprb,3.9920e-05_jprb,4.6344e-05_jprb,3.6645e-05_jprb/)  
kbo( :, 1,13, 6) = (/&
 & 4.2535e-02_jprb,4.2762e-02_jprb,1.6998e-01_jprb,2.5943e-01_jprb,3.3118e-01_jprb,3.6759e-01_jprb/)  
kbo( :, 2,13, 6) = (/&
 & 4.3681e-02_jprb,4.3907e-02_jprb,1.7098e-01_jprb,2.6169e-01_jprb,3.3567e-01_jprb,3.7656e-01_jprb/)  
kbo( :, 3,13, 6) = (/&
 & 4.4881e-02_jprb,4.5106e-02_jprb,1.7235e-01_jprb,2.6332e-01_jprb,3.3843e-01_jprb,3.8337e-01_jprb/)  
kbo( :, 4,13, 6) = (/&
 & 4.6097e-02_jprb,4.6310e-02_jprb,1.7381e-01_jprb,2.6438e-01_jprb,3.3969e-01_jprb,3.8855e-01_jprb/)  
kbo( :, 5,13, 6) = (/&
 & 4.7339e-02_jprb,4.7538e-02_jprb,1.7512e-01_jprb,2.6493e-01_jprb,3.3999e-01_jprb,3.9260e-01_jprb/)  
kbo( :, 1,14, 6) = (/&
 & 3.6653e-02_jprb,3.6883e-02_jprb,1.5729e-01_jprb,2.3949e-01_jprb,3.0622e-01_jprb,3.3569e-01_jprb/)  
kbo( :, 2,14, 6) = (/&
 & 3.7645e-02_jprb,3.7873e-02_jprb,1.5902e-01_jprb,2.4213e-01_jprb,3.1018e-01_jprb,3.4313e-01_jprb/)  
kbo( :, 3,14, 6) = (/&
 & 3.8674e-02_jprb,3.8902e-02_jprb,1.6072e-01_jprb,2.4398e-01_jprb,3.1256e-01_jprb,3.4927e-01_jprb/)  
kbo( :, 4,14, 6) = (/&
 & 3.9715e-02_jprb,3.9924e-02_jprb,1.6228e-01_jprb,2.4539e-01_jprb,3.1431e-01_jprb,3.5395e-01_jprb/)  
kbo( :, 5,14, 6) = (/&
 & 4.0819e-02_jprb,4.1022e-02_jprb,1.6343e-01_jprb,2.4658e-01_jprb,3.1537e-01_jprb,3.5723e-01_jprb/)  
kbo( :, 1,15, 6) = (/&
 & 3.1489e-02_jprb,3.1717e-02_jprb,1.4459e-01_jprb,2.1886e-01_jprb,2.7929e-01_jprb,3.0333e-01_jprb/)  
kbo( :, 2,15, 6) = (/&
 & 3.2325e-02_jprb,3.2551e-02_jprb,1.4651e-01_jprb,2.2152e-01_jprb,2.8283e-01_jprb,3.1026e-01_jprb/)  
kbo( :, 3,15, 6) = (/&
 & 3.3201e-02_jprb,3.3419e-02_jprb,1.4819e-01_jprb,2.2372e-01_jprb,2.8570e-01_jprb,3.1588e-01_jprb/)  
kbo( :, 4,15, 6) = (/&
 & 3.4109e-02_jprb,3.4317e-02_jprb,1.4957e-01_jprb,2.2574e-01_jprb,2.8792e-01_jprb,3.2003e-01_jprb/)  
kbo( :, 5,15, 6) = (/&
 & 3.5196e-02_jprb,3.5403e-02_jprb,1.5074e-01_jprb,2.2750e-01_jprb,2.8937e-01_jprb,3.2300e-01_jprb/)  
kbo( :, 1,16, 6) = (/&
 & 2.6937e-02_jprb,2.7164e-02_jprb,1.3162e-01_jprb,1.9777e-01_jprb,2.5164e-01_jprb,2.7236e-01_jprb/)  
kbo( :, 2,16, 6) = (/&
 & 2.7655e-02_jprb,2.7881e-02_jprb,1.3342e-01_jprb,2.0067e-01_jprb,2.5537e-01_jprb,2.7880e-01_jprb/)  
kbo( :, 3,16, 6) = (/&
 & 2.8404e-02_jprb,2.8615e-02_jprb,1.3503e-01_jprb,2.0326e-01_jprb,2.5856e-01_jprb,2.8387e-01_jprb/)  
kbo( :, 4,16, 6) = (/&
 & 2.9270e-02_jprb,2.9476e-02_jprb,1.3640e-01_jprb,2.0574e-01_jprb,2.6105e-01_jprb,2.8764e-01_jprb/)  
kbo( :, 5,16, 6) = (/&
 & 3.0417e-02_jprb,3.0624e-02_jprb,1.3764e-01_jprb,2.0798e-01_jprb,2.6293e-01_jprb,2.9041e-01_jprb/)  
kbo( :, 1,17, 6) = (/&
 & 2.2953e-02_jprb,2.3180e-02_jprb,1.1845e-01_jprb,1.7721e-01_jprb,2.2460e-01_jprb,2.4224e-01_jprb/)  
kbo( :, 2,17, 6) = (/&
 & 2.3559e-02_jprb,2.3784e-02_jprb,1.2023e-01_jprb,1.8031e-01_jprb,2.2852e-01_jprb,2.4805e-01_jprb/)  
kbo( :, 3,17, 6) = (/&
 & 2.4252e-02_jprb,2.4462e-02_jprb,1.2174e-01_jprb,1.8322e-01_jprb,2.3188e-01_jprb,2.5256e-01_jprb/)  
kbo( :, 4,17, 6) = (/&
 & 2.5160e-02_jprb,2.5369e-02_jprb,1.2317e-01_jprb,1.8595e-01_jprb,2.3461e-01_jprb,2.5595e-01_jprb/)  
kbo( :, 5,17, 6) = (/&
 & 2.6326e-02_jprb,2.6536e-02_jprb,1.2445e-01_jprb,1.8813e-01_jprb,2.3684e-01_jprb,2.5843e-01_jprb/)  
kbo( :, 1,18, 6) = (/&
 & 1.9482e-02_jprb,1.9716e-02_jprb,1.0560e-01_jprb,1.5764e-01_jprb,1.9885e-01_jprb,2.1333e-01_jprb/)  
kbo( :, 2,18, 6) = (/&
 & 2.0020e-02_jprb,2.0247e-02_jprb,1.0728e-01_jprb,1.6080e-01_jprb,2.0278e-01_jprb,2.1852e-01_jprb/)  
kbo( :, 3,18, 6) = (/&
 & 2.0718e-02_jprb,2.0933e-02_jprb,1.0881e-01_jprb,1.6380e-01_jprb,2.0619e-01_jprb,2.2252e-01_jprb/)  
kbo( :, 4,18, 6) = (/&
 & 2.1659e-02_jprb,2.1872e-02_jprb,1.1021e-01_jprb,1.6633e-01_jprb,2.0912e-01_jprb,2.2570e-01_jprb/)  
kbo( :, 5,18, 6) = (/&
 & 2.2723e-02_jprb,2.2936e-02_jprb,1.1153e-01_jprb,1.6848e-01_jprb,2.1149e-01_jprb,2.2818e-01_jprb/)  
kbo( :, 1,19, 6) = (/&
 & 1.6474e-02_jprb,1.6726e-02_jprb,9.3278e-02_jprb,1.3911e-01_jprb,1.7470e-01_jprb,1.8607e-01_jprb/)  
kbo( :, 2,19, 6) = (/&
 & 1.6988e-02_jprb,1.7224e-02_jprb,9.4914e-02_jprb,1.4229e-01_jprb,1.7855e-01_jprb,1.9060e-01_jprb/)  
kbo( :, 3,19, 6) = (/&
 & 1.7719e-02_jprb,1.7943e-02_jprb,9.6402e-02_jprb,1.4506e-01_jprb,1.8201e-01_jprb,1.9424e-01_jprb/)  
kbo( :, 4,19, 6) = (/&
 & 1.8600e-02_jprb,1.8821e-02_jprb,9.7809e-02_jprb,1.4747e-01_jprb,1.8495e-01_jprb,1.9716e-01_jprb/)  
kbo( :, 5,19, 6) = (/&
 & 1.9511e-02_jprb,1.9731e-02_jprb,9.9198e-02_jprb,1.4957e-01_jprb,1.8726e-01_jprb,1.9887e-01_jprb/)  
kbo( :, 1,20, 6) = (/&
 & 1.3891e-02_jprb,1.4173e-02_jprb,8.1755e-02_jprb,1.2196e-01_jprb,1.5249e-01_jprb,1.6109e-01_jprb/)  
kbo( :, 2,20, 6) = (/&
 & 1.4432e-02_jprb,1.4692e-02_jprb,8.3314e-02_jprb,1.2486e-01_jprb,1.5622e-01_jprb,1.6508e-01_jprb/)  
kbo( :, 3,20, 6) = (/&
 & 1.5139e-02_jprb,1.5385e-02_jprb,8.4783e-02_jprb,1.2741e-01_jprb,1.5952e-01_jprb,1.6830e-01_jprb/)  
kbo( :, 4,20, 6) = (/&
 & 1.5913e-02_jprb,1.6152e-02_jprb,8.6223e-02_jprb,1.2966e-01_jprb,1.6214e-01_jprb,1.7014e-01_jprb/)  
kbo( :, 5,20, 6) = (/&
 & 1.6685e-02_jprb,1.6917e-02_jprb,8.7642e-02_jprb,1.3138e-01_jprb,1.6356e-01_jprb,1.7014e-01_jprb/)  
kbo( :, 1,21, 6) = (/&
 & 1.1702e-02_jprb,1.2032e-02_jprb,7.1105e-02_jprb,1.0613e-01_jprb,1.3235e-01_jprb,1.3851e-01_jprb/)  
kbo( :, 2,21, 6) = (/&
 & 1.2249e-02_jprb,1.2553e-02_jprb,7.2595e-02_jprb,1.0875e-01_jprb,1.3581e-01_jprb,1.4193e-01_jprb/)  
kbo( :, 3,21, 6) = (/&
 & 1.2879e-02_jprb,1.3168e-02_jprb,7.4032e-02_jprb,1.1102e-01_jprb,1.3861e-01_jprb,1.4396e-01_jprb/)  
kbo( :, 4,21, 6) = (/&
 & 1.3537e-02_jprb,1.3810e-02_jprb,7.5416e-02_jprb,1.1273e-01_jprb,1.4012e-01_jprb,1.4419e-01_jprb/)  
kbo( :, 5,21, 6) = (/&
 & 1.4190e-02_jprb,1.4451e-02_jprb,7.6688e-02_jprb,1.1355e-01_jprb,1.4025e-01_jprb,1.4302e-01_jprb/)  
kbo( :, 1,22, 6) = (/&
 & 9.9001e-03_jprb,1.0285e-02_jprb,6.1552e-02_jprb,9.1903e-02_jprb,1.1446e-01_jprb,1.1850e-01_jprb/)  
kbo( :, 2,22, 6) = (/&
 & 1.0402e-02_jprb,1.0764e-02_jprb,6.2928e-02_jprb,9.4123e-02_jprb,1.1729e-01_jprb,1.2066e-01_jprb/)  
kbo( :, 3,22, 6) = (/&
 & 1.0945e-02_jprb,1.1287e-02_jprb,6.4219e-02_jprb,9.5745e-02_jprb,1.1884e-01_jprb,1.2116e-01_jprb/)  
kbo( :, 4,22, 6) = (/&
 & 1.1502e-02_jprb,1.1824e-02_jprb,6.5352e-02_jprb,9.6543e-02_jprb,1.1912e-01_jprb,1.2043e-01_jprb/)  
kbo( :, 5,22, 6) = (/&
 & 1.2057e-02_jprb,1.2365e-02_jprb,6.6306e-02_jprb,9.6694e-02_jprb,1.1850e-01_jprb,1.1887e-01_jprb/)  
kbo( :, 1,23, 6) = (/&
 & 8.3712e-03_jprb,8.8014e-03_jprb,5.2987e-02_jprb,7.9036e-02_jprb,9.8229e-02_jprb,1.0022e-01_jprb/)  
kbo( :, 2,23, 6) = (/&
 & 8.8086e-03_jprb,9.2239e-03_jprb,5.4159e-02_jprb,8.0566e-02_jprb,9.9889e-02_jprb,1.0104e-01_jprb/)  
kbo( :, 3,23, 6) = (/&
 & 9.2697e-03_jprb,9.6659e-03_jprb,5.5152e-02_jprb,8.1379e-02_jprb,1.0039e-01_jprb,1.0074e-01_jprb/)  
kbo( :, 4,23, 6) = (/&
 & 9.7327e-03_jprb,1.0110e-02_jprb,5.5972e-02_jprb,8.1635e-02_jprb,1.0009e-01_jprb,9.9702e-02_jprb/)  
kbo( :, 5,23, 6) = (/&
 & 1.0213e-02_jprb,1.0575e-02_jprb,5.6627e-02_jprb,8.1638e-02_jprb,9.9238e-02_jprb,9.8092e-02_jprb/)  
kbo( :, 1,24, 6) = (/&
 & 7.0727e-03_jprb,7.5361e-03_jprb,4.5321e-02_jprb,6.7260e-02_jprb,8.3279e-02_jprb,8.3647e-02_jprb/)  
kbo( :, 2,24, 6) = (/&
 & 7.4427e-03_jprb,7.8986e-03_jprb,4.6188e-02_jprb,6.8096e-02_jprb,8.4019e-02_jprb,8.3747e-02_jprb/)  
kbo( :, 3,24, 6) = (/&
 & 7.8269e-03_jprb,8.2674e-03_jprb,4.6892e-02_jprb,6.8450e-02_jprb,8.4013e-02_jprb,8.3148e-02_jprb/)  
kbo( :, 4,24, 6) = (/&
 & 8.2189e-03_jprb,8.6445e-03_jprb,4.7510e-02_jprb,6.8583e-02_jprb,8.3512e-02_jprb,8.2039e-02_jprb/)  
kbo( :, 5,24, 6) = (/&
 & 8.6506e-03_jprb,9.0639e-03_jprb,4.7979e-02_jprb,6.8589e-02_jprb,8.2686e-02_jprb,8.0530e-02_jprb/)  
kbo( :, 1,25, 6) = (/&
 & 5.9648e-03_jprb,6.4506e-03_jprb,3.8407e-02_jprb,5.6605e-02_jprb,6.9840e-02_jprb,6.9218e-02_jprb/)  
kbo( :, 2,25, 6) = (/&
 & 6.2753e-03_jprb,6.7567e-03_jprb,3.9061e-02_jprb,5.7057e-02_jprb,7.0098e-02_jprb,6.9005e-02_jprb/)  
kbo( :, 3,25, 6) = (/&
 & 6.5979e-03_jprb,7.0692e-03_jprb,3.9618e-02_jprb,5.7283e-02_jprb,6.9890e-02_jprb,6.8312e-02_jprb/)  
kbo( :, 4,25, 6) = (/&
 & 6.9472e-03_jprb,7.4089e-03_jprb,4.0072e-02_jprb,5.7410e-02_jprb,6.9371e-02_jprb,6.7241e-02_jprb/)  
kbo( :, 5,25, 6) = (/&
 & 7.3458e-03_jprb,7.7968e-03_jprb,4.0424e-02_jprb,5.7407e-02_jprb,6.8690e-02_jprb,6.5883e-02_jprb/)  
kbo( :, 1,26, 6) = (/&
 & 5.0276e-03_jprb,5.5197e-03_jprb,3.2341e-02_jprb,4.7306e-02_jprb,5.8159e-02_jprb,5.6987e-02_jprb/)  
kbo( :, 2,26, 6) = (/&
 & 5.2905e-03_jprb,5.7808e-03_jprb,3.2856e-02_jprb,4.7610e-02_jprb,5.8188e-02_jprb,5.6640e-02_jprb/)  
kbo( :, 3,26, 6) = (/&
 & 5.5724e-03_jprb,6.0595e-03_jprb,3.3306e-02_jprb,4.7831e-02_jprb,5.7928e-02_jprb,5.5939e-02_jprb/)  
kbo( :, 4,26, 6) = (/&
 & 5.8946e-03_jprb,6.3770e-03_jprb,3.3653e-02_jprb,4.7935e-02_jprb,5.7502e-02_jprb,5.4956e-02_jprb/)  
kbo( :, 5,26, 6) = (/&
 & 6.2574e-03_jprb,6.7355e-03_jprb,3.3928e-02_jprb,4.7887e-02_jprb,5.6970e-02_jprb,5.3762e-02_jprb/)  
kbo( :, 1,27, 6) = (/&
 & 4.2349e-03_jprb,4.7179e-03_jprb,2.7116e-02_jprb,3.9401e-02_jprb,4.8220e-02_jprb,4.6782e-02_jprb/)  
kbo( :, 2,27, 6) = (/&
 & 4.4634e-03_jprb,4.9470e-03_jprb,2.7543e-02_jprb,3.9674e-02_jprb,4.8162e-02_jprb,4.6385e-02_jprb/)  
kbo( :, 3,27, 6) = (/&
 & 4.7202e-03_jprb,5.2071e-03_jprb,2.7886e-02_jprb,3.9869e-02_jprb,4.7941e-02_jprb,4.5722e-02_jprb/)  
kbo( :, 4,27, 6) = (/&
 & 5.0160e-03_jprb,5.5039e-03_jprb,2.8167e-02_jprb,3.9934e-02_jprb,4.7615e-02_jprb,4.4846e-02_jprb/)  
kbo( :, 5,27, 6) = (/&
 & 5.3481e-03_jprb,5.8380e-03_jprb,2.8394e-02_jprb,3.9860e-02_jprb,4.7184e-02_jprb,4.3824e-02_jprb/)  
kbo( :, 1,28, 6) = (/&
 & 3.5674e-03_jprb,4.0284e-03_jprb,2.2673e-02_jprb,3.2772e-02_jprb,3.9872e-02_jprb,3.8332e-02_jprb/)  
kbo( :, 2,28, 6) = (/&
 & 3.7734e-03_jprb,4.2398e-03_jprb,2.3008e-02_jprb,3.3028e-02_jprb,3.9810e-02_jprb,3.7930e-02_jprb/)  
kbo( :, 3,28, 6) = (/&
 & 4.0097e-03_jprb,4.4845e-03_jprb,2.3286e-02_jprb,3.3175e-02_jprb,3.9654e-02_jprb,3.7324e-02_jprb/)  
kbo( :, 4,28, 6) = (/&
 & 4.2788e-03_jprb,4.7627e-03_jprb,2.3514e-02_jprb,3.3194e-02_jprb,3.9398e-02_jprb,3.6571e-02_jprb/)  
kbo( :, 5,28, 6) = (/&
 & 4.5757e-03_jprb,5.0676e-03_jprb,2.3719e-02_jprb,3.3118e-02_jprb,3.9020e-02_jprb,3.5708e-02_jprb/)  
kbo( :, 1,29, 6) = (/&
 & 3.0115e-03_jprb,3.4411e-03_jprb,1.8911e-02_jprb,2.7247e-02_jprb,3.2943e-02_jprb,3.1382e-02_jprb/)  
kbo( :, 2,29, 6) = (/&
 & 3.1994e-03_jprb,3.6407e-03_jprb,1.9179e-02_jprb,2.7455e-02_jprb,3.2911e-02_jprb,3.1000e-02_jprb/)  
kbo( :, 3,29, 6) = (/&
 & 3.4147e-03_jprb,3.8682e-03_jprb,1.9409e-02_jprb,2.7552e-02_jprb,3.2798e-02_jprb,3.0472e-02_jprb/)  
kbo( :, 4,29, 6) = (/&
 & 3.6579e-03_jprb,4.1270e-03_jprb,1.9605e-02_jprb,2.7559e-02_jprb,3.2573e-02_jprb,2.9835e-02_jprb/)  
kbo( :, 5,29, 6) = (/&
 & 3.9162e-03_jprb,4.3987e-03_jprb,1.9809e-02_jprb,2.7488e-02_jprb,3.2240e-02_jprb,2.9120e-02_jprb/)  
kbo( :, 1,30, 6) = (/&
 & 2.5481e-03_jprb,2.9444e-03_jprb,1.5745e-02_jprb,2.2634e-02_jprb,2.7226e-02_jprb,2.5677e-02_jprb/)  
kbo( :, 2,30, 6) = (/&
 & 2.7188e-03_jprb,3.1307e-03_jprb,1.5966e-02_jprb,2.2786e-02_jprb,2.7220e-02_jprb,2.5335e-02_jprb/)  
kbo( :, 3,30, 6) = (/&
 & 2.9148e-03_jprb,3.3439e-03_jprb,1.6160e-02_jprb,2.2855e-02_jprb,2.7119e-02_jprb,2.4882e-02_jprb/)  
kbo( :, 4,30, 6) = (/&
 & 3.1280e-03_jprb,3.5773e-03_jprb,1.6348e-02_jprb,2.2854e-02_jprb,2.6917e-02_jprb,2.4354e-02_jprb/)  
kbo( :, 5,30, 6) = (/&
 & 3.3553e-03_jprb,3.8202e-03_jprb,1.6558e-02_jprb,2.2811e-02_jprb,2.6630e-02_jprb,2.3768e-02_jprb/)  
kbo( :, 1,31, 6) = (/&
 & 2.1615e-03_jprb,2.5257e-03_jprb,1.3098e-02_jprb,1.8778e-02_jprb,2.2519e-02_jprb,2.1018e-02_jprb/)  
kbo( :, 2,31, 6) = (/&
 & 2.3170e-03_jprb,2.6986e-03_jprb,1.3284e-02_jprb,1.8891e-02_jprb,2.2515e-02_jprb,2.0722e-02_jprb/)  
kbo( :, 3,31, 6) = (/&
 & 2.4905e-03_jprb,2.8953e-03_jprb,1.3459e-02_jprb,1.8946e-02_jprb,2.2414e-02_jprb,2.0345e-02_jprb/)  
kbo( :, 4,31, 6) = (/&
 & 2.6777e-03_jprb,3.1024e-03_jprb,1.3649e-02_jprb,1.8949e-02_jprb,2.2235e-02_jprb,1.9908e-02_jprb/)  
kbo( :, 5,31, 6) = (/&
 & 2.8803e-03_jprb,3.3243e-03_jprb,1.3860e-02_jprb,1.8946e-02_jprb,2.1996e-02_jprb,1.9437e-02_jprb/)  
kbo( :, 1,32, 6) = (/&
 & 1.8385e-03_jprb,2.1718e-03_jprb,1.0896e-02_jprb,1.5564e-02_jprb,1.8628e-02_jprb,1.7209e-02_jprb/)  
kbo( :, 2,32, 6) = (/&
 & 1.9787e-03_jprb,2.3333e-03_jprb,1.1058e-02_jprb,1.5657e-02_jprb,1.8613e-02_jprb,1.6956e-02_jprb/)  
kbo( :, 3,32, 6) = (/&
 & 2.1311e-03_jprb,2.5090e-03_jprb,1.1225e-02_jprb,1.5701e-02_jprb,1.8522e-02_jprb,1.6642e-02_jprb/)  
kbo( :, 4,32, 6) = (/&
 & 2.2971e-03_jprb,2.6964e-03_jprb,1.1416e-02_jprb,1.5725e-02_jprb,1.8369e-02_jprb,1.6291e-02_jprb/)  
kbo( :, 5,32, 6) = (/&
 & 2.4814e-03_jprb,2.9021e-03_jprb,1.1629e-02_jprb,1.5757e-02_jprb,1.8177e-02_jprb,1.5913e-02_jprb/)  
kbo( :, 1,33, 6) = (/&
 & 1.5686e-03_jprb,1.8737e-03_jprb,9.0681e-03_jprb,1.2902e-02_jprb,1.5408e-02_jprb,1.4096e-02_jprb/)  
kbo( :, 2,33, 6) = (/&
 & 1.6920e-03_jprb,2.0214e-03_jprb,9.2168e-03_jprb,1.2976e-02_jprb,1.5384e-02_jprb,1.3883e-02_jprb/)  
kbo( :, 3,33, 6) = (/&
 & 1.8273e-03_jprb,2.1791e-03_jprb,9.3843e-03_jprb,1.3022e-02_jprb,1.5304e-02_jprb,1.3632e-02_jprb/)  
kbo( :, 4,33, 6) = (/&
 & 1.9765e-03_jprb,2.3516e-03_jprb,9.5730e-03_jprb,1.3071e-02_jprb,1.5178e-02_jprb,1.3350e-02_jprb/)  
kbo( :, 5,33, 6) = (/&
 & 2.1452e-03_jprb,2.5432e-03_jprb,9.7830e-03_jprb,1.3131e-02_jprb,1.5037e-02_jprb,1.3045e-02_jprb/)  
kbo( :, 1,34, 6) = (/&
 & 1.3372e-03_jprb,1.6178e-03_jprb,7.5519e-03_jprb,1.0693e-02_jprb,1.2740e-02_jprb,1.1549e-02_jprb/)  
kbo( :, 2,34, 6) = (/&
 & 1.4461e-03_jprb,1.7503e-03_jprb,7.6945e-03_jprb,1.0757e-02_jprb,1.2715e-02_jprb,1.1377e-02_jprb/)  
kbo( :, 3,34, 6) = (/&
 & 1.5660e-03_jprb,1.8937e-03_jprb,7.8583e-03_jprb,1.0816e-02_jprb,1.2648e-02_jprb,1.1176e-02_jprb/)  
kbo( :, 4,34, 6) = (/&
 & 1.7014e-03_jprb,2.0534e-03_jprb,8.0448e-03_jprb,1.0884e-02_jprb,1.2559e-02_jprb,1.0950e-02_jprb/)  
kbo( :, 5,34, 6) = (/&
 & 1.8558e-03_jprb,2.2315e-03_jprb,8.2423e-03_jprb,1.0963e-02_jprb,1.2464e-02_jprb,1.0705e-02_jprb/)  
kbo( :, 1,35, 6) = (/&
 & 1.1329e-03_jprb,1.3895e-03_jprb,6.2880e-03_jprb,8.8610e-03_jprb,1.0532e-02_jprb,9.4809e-03_jprb/)  
kbo( :, 2,35, 6) = (/&
 & 1.2284e-03_jprb,1.5079e-03_jprb,6.4262e-03_jprb,8.9261e-03_jprb,1.0516e-02_jprb,9.3462e-03_jprb/)  
kbo( :, 3,35, 6) = (/&
 & 1.3351e-03_jprb,1.6386e-03_jprb,6.5845e-03_jprb,8.9958e-03_jprb,1.0468e-02_jprb,9.1865e-03_jprb/)  
kbo( :, 4,35, 6) = (/&
 & 1.4573e-03_jprb,1.7849e-03_jprb,6.7614e-03_jprb,9.0760e-03_jprb,1.0410e-02_jprb,9.0064e-03_jprb/)  
kbo( :, 5,35, 6) = (/&
 & 1.5970e-03_jprb,1.9487e-03_jprb,6.9420e-03_jprb,9.1662e-03_jprb,1.0351e-02_jprb,8.8117e-03_jprb/)  
kbo( :, 1,36, 6) = (/&
 & 9.5211e-04_jprb,1.1843e-03_jprb,5.2312e-03_jprb,7.3412e-03_jprb,8.7087e-03_jprb,7.7981e-03_jprb/)  
kbo( :, 2,36, 6) = (/&
 & 1.0354e-03_jprb,1.2901e-03_jprb,5.3625e-03_jprb,7.4088e-03_jprb,8.7005e-03_jprb,7.6928e-03_jprb/)  
kbo( :, 3,36, 6) = (/&
 & 1.1296e-03_jprb,1.4079e-03_jprb,5.5138e-03_jprb,7.4862e-03_jprb,8.6732e-03_jprb,7.5689e-03_jprb/)  
kbo( :, 4,36, 6) = (/&
 & 1.2388e-03_jprb,1.5409e-03_jprb,5.6750e-03_jprb,7.5726e-03_jprb,8.6424e-03_jprb,7.4262e-03_jprb/)  
kbo( :, 5,36, 6) = (/&
 & 1.3638e-03_jprb,1.6902e-03_jprb,5.8416e-03_jprb,7.6677e-03_jprb,8.6124e-03_jprb,7.2708e-03_jprb/)  
kbo( :, 1,37, 6) = (/&
 & 7.9067e-04_jprb,9.9728e-04_jprb,4.3412e-03_jprb,6.0781e-03_jprb,7.2010e-03_jprb,6.4225e-03_jprb/)  
kbo( :, 2,37, 6) = (/&
 & 8.6207e-04_jprb,1.0903e-03_jprb,4.4618e-03_jprb,6.1477e-03_jprb,7.2040e-03_jprb,6.3450e-03_jprb/)  
kbo( :, 3,37, 6) = (/&
 & 9.4365e-04_jprb,1.1951e-03_jprb,4.6016e-03_jprb,6.2259e-03_jprb,7.1949e-03_jprb,6.2491e-03_jprb/)  
kbo( :, 4,37, 6) = (/&
 & 1.0390e-03_jprb,1.3137e-03_jprb,4.7474e-03_jprb,6.3134e-03_jprb,7.1835e-03_jprb,6.1371e-03_jprb/)  
kbo( :, 5,37, 6) = (/&
 & 1.1493e-03_jprb,1.4482e-03_jprb,4.9008e-03_jprb,6.4092e-03_jprb,7.1759e-03_jprb,6.0153e-03_jprb/)  
kbo( :, 1,38, 6) = (/&
 & 6.5574e-04_jprb,8.3902e-04_jprb,3.6029e-03_jprb,5.0338e-03_jprb,5.9535e-03_jprb,5.2931e-03_jprb/)  
kbo( :, 2,38, 6) = (/&
 & 7.1723e-04_jprb,9.2092e-04_jprb,3.7143e-03_jprb,5.1033e-03_jprb,5.9664e-03_jprb,5.2356e-03_jprb/)  
kbo( :, 3,38, 6) = (/&
 & 7.8817e-04_jprb,1.0140e-03_jprb,3.8410e-03_jprb,5.1788e-03_jprb,5.9694e-03_jprb,5.1631e-03_jprb/)  
kbo( :, 4,38, 6) = (/&
 & 8.7142e-04_jprb,1.1199e-03_jprb,3.9722e-03_jprb,5.2685e-03_jprb,5.9738e-03_jprb,5.0758e-03_jprb/)  
kbo( :, 5,38, 6) = (/&
 & 9.6814e-04_jprb,1.2406e-03_jprb,4.1130e-03_jprb,5.3594e-03_jprb,5.9796e-03_jprb,4.9809e-03_jprb/)  
kbo( :, 1,39, 6) = (/&
 & 5.4394e-04_jprb,7.0587e-04_jprb,2.9920e-03_jprb,4.1712e-03_jprb,4.9241e-03_jprb,4.3648e-03_jprb/)  
kbo( :, 2,39, 6) = (/&
 & 5.9679e-04_jprb,7.7794e-04_jprb,3.0938e-03_jprb,4.2387e-03_jprb,4.9429e-03_jprb,4.3244e-03_jprb/)  
kbo( :, 3,39, 6) = (/&
 & 6.5862e-04_jprb,8.6057e-04_jprb,3.2080e-03_jprb,4.3149e-03_jprb,4.9560e-03_jprb,4.2705e-03_jprb/)  
kbo( :, 4,39, 6) = (/&
 & 7.3136e-04_jprb,9.5521e-04_jprb,3.3261e-03_jprb,4.3998e-03_jprb,4.9704e-03_jprb,4.2037e-03_jprb/)  
kbo( :, 5,39, 6) = (/&
 & 8.1646e-04_jprb,1.0637e-03_jprb,3.4565e-03_jprb,4.4868e-03_jprb,4.9875e-03_jprb,4.1313e-03_jprb/)  
kbo( :, 1,40, 6) = (/&
 & 4.4679e-04_jprb,5.8745e-04_jprb,2.4763e-03_jprb,3.4505e-03_jprb,4.0708e-03_jprb,3.5945e-03_jprb/)  
kbo( :, 2,40, 6) = (/&
 & 4.9169e-04_jprb,6.5005e-04_jprb,2.5677e-03_jprb,3.5152e-03_jprb,4.0943e-03_jprb,3.5667e-03_jprb/)  
kbo( :, 3,40, 6) = (/&
 & 5.4450e-04_jprb,7.2222e-04_jprb,2.6693e-03_jprb,3.5873e-03_jprb,4.1135e-03_jprb,3.5266e-03_jprb/)  
kbo( :, 4,40, 6) = (/&
 & 6.0712e-04_jprb,8.0578e-04_jprb,2.7753e-03_jprb,3.6696e-03_jprb,4.1353e-03_jprb,3.4759e-03_jprb/)  
kbo( :, 5,40, 6) = (/&
 & 6.8061e-04_jprb,9.0198e-04_jprb,2.8937e-03_jprb,3.7510e-03_jprb,4.1595e-03_jprb,3.4202e-03_jprb/)  
kbo( :, 1,41, 6) = (/&
 & 3.6654e-04_jprb,4.8763e-04_jprb,2.0497e-03_jprb,2.8544e-03_jprb,3.3652e-03_jprb,2.9593e-03_jprb/)  
kbo( :, 2,41, 6) = (/&
 & 4.0436e-04_jprb,5.4168e-04_jprb,2.1297e-03_jprb,2.9143e-03_jprb,3.3913e-03_jprb,2.9409e-03_jprb/)  
kbo( :, 3,41, 6) = (/&
 & 4.4941e-04_jprb,6.0442e-04_jprb,2.2197e-03_jprb,2.9825e-03_jprb,3.4145e-03_jprb,2.9122e-03_jprb/)  
kbo( :, 4,41, 6) = (/&
 & 5.0288e-04_jprb,6.7766e-04_jprb,2.3143e-03_jprb,3.0596e-03_jprb,3.4407e-03_jprb,2.8738e-03_jprb/)  

IF (lhook) CALL dr_hook('RRTM_KGB4:PART20',1,zhook_handle)
END SUBROUTINE part20


SUBROUTINE part21

REAL(KIND=JPRB) :: ZHOOK_HANDLE
IF (lhook) CALL dr_hook('RRTM_KGB4:PART21',0,zhook_handle)


kbo( :, 5,41, 6) = (/&
 & 5.6627e-04_jprb,7.6296e-04_jprb,2.4209e-03_jprb,3.1354e-03_jprb,3.4693e-03_jprb,2.8312e-03_jprb/)  
kbo( :, 1,42, 6) = (/&
 & 3.0056e-04_jprb,4.0423e-04_jprb,1.6955e-03_jprb,2.3604e-03_jprb,2.7815e-03_jprb,2.4359e-03_jprb/)  
kbo( :, 2,42, 6) = (/&
 & 3.3240e-04_jprb,4.5078e-04_jprb,1.7662e-03_jprb,2.4162e-03_jprb,2.8087e-03_jprb,2.4250e-03_jprb/)  
kbo( :, 3,42, 6) = (/&
 & 3.7060e-04_jprb,5.0501e-04_jprb,1.8455e-03_jprb,2.4795e-03_jprb,2.8342e-03_jprb,2.4047e-03_jprb/)  
kbo( :, 4,42, 6) = (/&
 & 4.1638e-04_jprb,5.6912e-04_jprb,1.9299e-03_jprb,2.5508e-03_jprb,2.8626e-03_jprb,2.3765e-03_jprb/)  
kbo( :, 5,42, 6) = (/&
 & 4.7089e-04_jprb,6.4463e-04_jprb,2.0249e-03_jprb,2.6208e-03_jprb,2.8943e-03_jprb,2.3447e-03_jprb/)  
kbo( :, 1,43, 6) = (/&
 & 2.4502e-04_jprb,3.3261e-04_jprb,1.3991e-03_jprb,1.9481e-03_jprb,2.2961e-03_jprb,2.0045e-03_jprb/)  
kbo( :, 2,43, 6) = (/&
 & 2.7152e-04_jprb,3.7212e-04_jprb,1.4606e-03_jprb,1.9988e-03_jprb,2.3241e-03_jprb,1.9999e-03_jprb/)  
kbo( :, 3,43, 6) = (/&
 & 3.0343e-04_jprb,4.1851e-04_jprb,1.5301e-03_jprb,2.0581e-03_jprb,2.3515e-03_jprb,1.9867e-03_jprb/)  
kbo( :, 4,43, 6) = (/&
 & 3.4217e-04_jprb,4.7384e-04_jprb,1.6047e-03_jprb,2.1225e-03_jprb,2.3804e-03_jprb,1.9662e-03_jprb/)  
kbo( :, 5,43, 6) = (/&
 & 3.8865e-04_jprb,5.3980e-04_jprb,1.6888e-03_jprb,2.1871e-03_jprb,2.4134e-03_jprb,1.9423e-03_jprb/)  
kbo( :, 1,44, 6) = (/&
 & 1.9915e-04_jprb,2.7249e-04_jprb,1.1527e-03_jprb,1.6068e-03_jprb,1.8949e-03_jprb,1.6492e-03_jprb/)  
kbo( :, 2,44, 6) = (/&
 & 2.2104e-04_jprb,3.0586e-04_jprb,1.2059e-03_jprb,1.6524e-03_jprb,1.9220e-03_jprb,1.6487e-03_jprb/)  
kbo( :, 3,44, 6) = (/&
 & 2.4764e-04_jprb,3.4529e-04_jprb,1.2668e-03_jprb,1.7051e-03_jprb,1.9490e-03_jprb,1.6410e-03_jprb/)  
kbo( :, 4,44, 6) = (/&
 & 2.8005e-04_jprb,3.9253e-04_jprb,1.3322e-03_jprb,1.7635e-03_jprb,1.9786e-03_jprb,1.6274e-03_jprb/)  
kbo( :, 5,44, 6) = (/&
 & 3.1937e-04_jprb,4.4948e-04_jprb,1.4058e-03_jprb,1.8224e-03_jprb,2.0114e-03_jprb,1.6103e-03_jprb/)  
kbo( :, 1,45, 6) = (/&
 & 1.6169e-04_jprb,2.2287e-04_jprb,9.4886e-04_jprb,1.3244e-03_jprb,1.5624e-03_jprb,1.3564e-03_jprb/)  
kbo( :, 2,45, 6) = (/&
 & 1.7988e-04_jprb,2.5107e-04_jprb,9.9462e-04_jprb,1.3650e-03_jprb,1.5885e-03_jprb,1.3595e-03_jprb/)  
kbo( :, 3,45, 6) = (/&
 & 2.0188e-04_jprb,2.8430e-04_jprb,1.0481e-03_jprb,1.4121e-03_jprb,1.6151e-03_jprb,1.3561e-03_jprb/)  
kbo( :, 4,45, 6) = (/&
 & 2.2901e-04_jprb,3.2458e-04_jprb,1.1056e-03_jprb,1.4643e-03_jprb,1.6434e-03_jprb,1.3471e-03_jprb/)  
kbo( :, 5,45, 6) = (/&
 & 2.6215e-04_jprb,3.7359e-04_jprb,1.1700e-03_jprb,1.5178e-03_jprb,1.6750e-03_jprb,1.3351e-03_jprb/)  
kbo( :, 1,46, 6) = (/&
 & 1.3087e-04_jprb,1.8153e-04_jprb,7.8014e-04_jprb,1.0903e-03_jprb,1.2862e-03_jprb,1.1149e-03_jprb/)  
kbo( :, 2,46, 6) = (/&
 & 1.4588e-04_jprb,2.0523e-04_jprb,8.1887e-04_jprb,1.1260e-03_jprb,1.3113e-03_jprb,1.1201e-03_jprb/)  
kbo( :, 3,46, 6) = (/&
 & 1.6401e-04_jprb,2.3309e-04_jprb,8.6531e-04_jprb,1.1670e-03_jprb,1.3362e-03_jprb,1.1199e-03_jprb/)  
kbo( :, 4,46, 6) = (/&
 & 1.8657e-04_jprb,2.6716e-04_jprb,9.1576e-04_jprb,1.2141e-03_jprb,1.3636e-03_jprb,1.1150e-03_jprb/)  
kbo( :, 5,46, 6) = (/&
 & 2.1433e-04_jprb,3.0901e-04_jprb,9.7156e-04_jprb,1.2621e-03_jprb,1.3940e-03_jprb,1.1075e-03_jprb/)  
kbo( :, 1,47, 6) = (/&
 & 1.0532e-04_jprb,1.4678e-04_jprb,6.3931e-04_jprb,8.9566e-04_jprb,1.0570e-03_jprb,9.1457e-04_jprb/)  
kbo( :, 2,47, 6) = (/&
 & 1.1765e-04_jprb,1.6658e-04_jprb,6.7225e-04_jprb,9.2702e-04_jprb,1.0808e-03_jprb,9.2153e-04_jprb/)  
kbo( :, 3,47, 6) = (/&
 & 1.3241e-04_jprb,1.8980e-04_jprb,7.1202e-04_jprb,9.6250e-04_jprb,1.1041e-03_jprb,9.2404e-04_jprb/)  
kbo( :, 4,47, 6) = (/&
 & 1.5090e-04_jprb,2.1814e-04_jprb,7.5592e-04_jprb,1.0038e-03_jprb,1.1296e-03_jprb,9.2224e-04_jprb/)  
kbo( :, 5,47, 6) = (/&
 & 1.7385e-04_jprb,2.5344e-04_jprb,8.0420e-04_jprb,1.0471e-03_jprb,1.1580e-03_jprb,9.1765e-04_jprb/)  
kbo( :, 1,48, 6) = (/&
 & 8.4617e-05_jprb,1.1838e-04_jprb,5.2334e-04_jprb,7.3546e-04_jprb,8.6835e-04_jprb,7.5017e-04_jprb/)  
kbo( :, 2,48, 6) = (/&
 & 9.4785e-05_jprb,1.3495e-04_jprb,5.5091e-04_jprb,7.6251e-04_jprb,8.9031e-04_jprb,7.5816e-04_jprb/)  
kbo( :, 3,48, 6) = (/&
 & 1.0679e-04_jprb,1.5426e-04_jprb,5.8488e-04_jprb,7.9332e-04_jprb,9.1168e-04_jprb,7.6245e-04_jprb/)  
kbo( :, 4,48, 6) = (/&
 & 1.2188e-04_jprb,1.7784e-04_jprb,6.2314e-04_jprb,8.2922e-04_jprb,9.3479e-04_jprb,7.6276e-04_jprb/)  
kbo( :, 5,48, 6) = (/&
 & 1.4083e-04_jprb,2.0741e-04_jprb,6.6491e-04_jprb,8.6778e-04_jprb,9.6073e-04_jprb,7.6049e-04_jprb/)  
kbo( :, 1,49, 6) = (/&
 & 6.7867e-05_jprb,9.5270e-05_jprb,4.2786e-04_jprb,6.0311e-04_jprb,7.1217e-04_jprb,6.1511e-04_jprb/)  
kbo( :, 2,49, 6) = (/&
 & 7.6245e-05_jprb,1.0908e-04_jprb,4.5097e-04_jprb,6.2662e-04_jprb,7.3243e-04_jprb,6.2369e-04_jprb/)  
kbo( :, 3,49, 6) = (/&
 & 8.6029e-05_jprb,1.2515e-04_jprb,4.7966e-04_jprb,6.5287e-04_jprb,7.5158e-04_jprb,6.2923e-04_jprb/)  
kbo( :, 4,49, 6) = (/&
 & 9.8304e-05_jprb,1.4466e-04_jprb,5.1259e-04_jprb,6.8383e-04_jprb,7.7254e-04_jprb,6.3132e-04_jprb/)  
kbo( :, 5,49, 6) = (/&
 & 1.1386e-04_jprb,1.6934e-04_jprb,5.4863e-04_jprb,7.1799e-04_jprb,7.9596e-04_jprb,6.3100e-04_jprb/)  
kbo( :, 1,50, 6) = (/&
 & 5.4470e-05_jprb,7.6746e-05_jprb,3.4976e-04_jprb,4.9428e-04_jprb,5.8397e-04_jprb,5.0306e-04_jprb/)  
kbo( :, 2,50, 6) = (/&
 & 6.1410e-05_jprb,8.8237e-05_jprb,3.6915e-04_jprb,5.1456e-04_jprb,6.0217e-04_jprb,5.1154e-04_jprb/)  
kbo( :, 3,50, 6) = (/&
 & 6.9439e-05_jprb,1.0166e-04_jprb,3.9314e-04_jprb,5.3721e-04_jprb,6.1939e-04_jprb,5.1755e-04_jprb/)  
kbo( :, 4,50, 6) = (/&
 & 7.9454e-05_jprb,1.1792e-04_jprb,4.2160e-04_jprb,5.6412e-04_jprb,6.3835e-04_jprb,5.2074e-04_jprb/)  
kbo( :, 5,50, 6) = (/&
 & 9.2275e-05_jprb,1.3855e-04_jprb,4.5301e-04_jprb,5.9448e-04_jprb,6.5950e-04_jprb,5.2175e-04_jprb/)  
kbo( :, 1,51, 6) = (/&
 & 4.3722e-05_jprb,6.1806e-05_jprb,2.8578e-04_jprb,4.0468e-04_jprb,4.7855e-04_jprb,4.1074e-04_jprb/)  
kbo( :, 2,51, 6) = (/&
 & 4.9457e-05_jprb,7.1342e-05_jprb,3.0211e-04_jprb,4.2230e-04_jprb,4.9488e-04_jprb,4.1886e-04_jprb/)  
kbo( :, 3,51, 6) = (/&
 & 5.6064e-05_jprb,8.2554e-05_jprb,3.2225e-04_jprb,4.4204e-04_jprb,5.1049e-04_jprb,4.2506e-04_jprb/)  
kbo( :, 4,51, 6) = (/&
 & 6.4238e-05_jprb,9.6120e-05_jprb,3.4672e-04_jprb,4.6528e-04_jprb,5.2743e-04_jprb,4.2888e-04_jprb/)  
kbo( :, 5,51, 6) = (/&
 & 7.4796e-05_jprb,1.1334e-04_jprb,3.7378e-04_jprb,4.9196e-04_jprb,5.4618e-04_jprb,4.3057e-04_jprb/)  
kbo( :, 1,52, 6) = (/&
 & 3.5070e-05_jprb,4.9691e-05_jprb,2.3330e-04_jprb,3.3093e-04_jprb,3.9172e-04_jprb,3.3527e-04_jprb/)  
kbo( :, 2,52, 6) = (/&
 & 3.9769e-05_jprb,5.7541e-05_jprb,2.4706e-04_jprb,3.4637e-04_jprb,4.0670e-04_jprb,3.4297e-04_jprb/)  
kbo( :, 3,52, 6) = (/&
 & 4.5223e-05_jprb,6.6916e-05_jprb,2.6381e-04_jprb,3.6327e-04_jprb,4.2045e-04_jprb,3.4912e-04_jprb/)  
kbo( :, 4,52, 6) = (/&
 & 5.1871e-05_jprb,7.8200e-05_jprb,2.8472e-04_jprb,3.8310e-04_jprb,4.3533e-04_jprb,3.5324e-04_jprb/)  
kbo( :, 5,52, 6) = (/&
 & 6.0522e-05_jprb,9.2554e-05_jprb,3.0796e-04_jprb,4.0644e-04_jprb,4.5190e-04_jprb,3.5548e-04_jprb/)  
kbo( :, 1,53, 6) = (/&
 & 2.8114e-05_jprb,3.9895e-05_jprb,1.9033e-04_jprb,2.7035e-04_jprb,3.2027e-04_jprb,2.7374e-04_jprb/)  
kbo( :, 2,53, 6) = (/&
 & 3.1912e-05_jprb,4.6272e-05_jprb,2.0180e-04_jprb,2.8364e-04_jprb,3.3368e-04_jprb,2.8088e-04_jprb/)  
kbo( :, 3,53, 6) = (/&
 & 3.6415e-05_jprb,5.4088e-05_jprb,2.1570e-04_jprb,2.9812e-04_jprb,3.4609e-04_jprb,2.8682e-04_jprb/)  
kbo( :, 4,53, 6) = (/&
 & 4.1826e-05_jprb,6.3486e-05_jprb,2.3334e-04_jprb,3.1498e-04_jprb,3.5898e-04_jprb,2.9120e-04_jprb/)  
kbo( :, 5,53, 6) = (/&
 & 4.8885e-05_jprb,7.5408e-05_jprb,2.5337e-04_jprb,3.3531e-04_jprb,3.7352e-04_jprb,2.9386e-04_jprb/)  
kbo( :, 1,54, 6) = (/&
 & 2.2610e-05_jprb,3.2120e-05_jprb,1.5540e-04_jprb,2.2090e-04_jprb,2.6189e-04_jprb,2.2252e-04_jprb/)  
kbo( :, 2,54, 6) = (/&
 & 2.5670e-05_jprb,3.7304e-05_jprb,1.6500e-04_jprb,2.3234e-04_jprb,2.7383e-04_jprb,2.2881e-04_jprb/)  
kbo( :, 3,54, 6) = (/&
 & 2.9398e-05_jprb,4.3828e-05_jprb,1.7662e-04_jprb,2.4475e-04_jprb,2.8488e-04_jprb,2.3410e-04_jprb/)  
kbo( :, 4,54, 6) = (/&
 & 3.3830e-05_jprb,5.1689e-05_jprb,1.9147e-04_jprb,2.5918e-04_jprb,2.9621e-04_jprb,2.3818e-04_jprb/)  
kbo( :, 5,54, 6) = (/&
 & 3.9626e-05_jprb,6.1637e-05_jprb,2.0865e-04_jprb,2.7674e-04_jprb,3.0891e-04_jprb,2.4078e-04_jprb/)  
kbo( :, 1,55, 6) = (/&
 & 1.8209e-05_jprb,2.5880e-05_jprb,1.2688e-04_jprb,1.8045e-04_jprb,2.1398e-04_jprb,1.8038e-04_jprb/)  
kbo( :, 2,55, 6) = (/&
 & 2.0657e-05_jprb,3.0086e-05_jprb,1.3493e-04_jprb,1.9025e-04_jprb,2.2450e-04_jprb,1.8582e-04_jprb/)  
kbo( :, 3,55, 6) = (/&
 & 2.3739e-05_jprb,3.5514e-05_jprb,1.4460e-04_jprb,2.0081e-04_jprb,2.3430e-04_jprb,1.9033e-04_jprb/)  
kbo( :, 4,55, 6) = (/&
 & 2.7397e-05_jprb,4.2088e-05_jprb,1.5714e-04_jprb,2.1306e-04_jprb,2.4416e-04_jprb,1.9386e-04_jprb/)  
kbo( :, 5,55, 6) = (/&
 & 3.2153e-05_jprb,5.0387e-05_jprb,1.7186e-04_jprb,2.2820e-04_jprb,2.5533e-04_jprb,1.9627e-04_jprb/)  
kbo( :, 1,56, 6) = (/&
 & 1.4654e-05_jprb,2.0836e-05_jprb,1.0350e-04_jprb,1.4723e-04_jprb,1.7458e-04_jprb,1.4613e-04_jprb/)  
kbo( :, 2,56, 6) = (/&
 & 1.6602e-05_jprb,2.4224e-05_jprb,1.1023e-04_jprb,1.5562e-04_jprb,1.8380e-04_jprb,1.5087e-04_jprb/)  
kbo( :, 3,56, 6) = (/&
 & 1.9145e-05_jprb,2.8713e-05_jprb,1.1831e-04_jprb,1.6458e-04_jprb,1.9243e-04_jprb,1.5466e-04_jprb/)  
kbo( :, 4,56, 6) = (/&
 & 2.2162e-05_jprb,3.4205e-05_jprb,1.2877e-04_jprb,1.7500e-04_jprb,2.0107e-04_jprb,1.5776e-04_jprb/)  
kbo( :, 5,56, 6) = (/&
 & 2.6047e-05_jprb,4.1114e-05_jprb,1.4137e-04_jprb,1.8796e-04_jprb,2.1083e-04_jprb,1.5994e-04_jprb/)  
kbo( :, 1,57, 6) = (/&
 & 1.1795e-05_jprb,1.6760e-05_jprb,8.4304e-05_jprb,1.1999e-04_jprb,1.4218e-04_jprb,1.1830e-04_jprb/)  
kbo( :, 2,57, 6) = (/&
 & 1.3335e-05_jprb,1.9476e-05_jprb,8.9964e-05_jprb,1.2718e-04_jprb,1.5035e-04_jprb,1.2244e-04_jprb/)  
kbo( :, 3,57, 6) = (/&
 & 1.5412e-05_jprb,2.3150e-05_jprb,9.6680e-05_jprb,1.3478e-04_jprb,1.5779e-04_jprb,1.2566e-04_jprb/)  
kbo( :, 4,57, 6) = (/&
 & 1.7896e-05_jprb,2.7728e-05_jprb,1.0539e-04_jprb,1.4358e-04_jprb,1.6536e-04_jprb,1.2835e-04_jprb/)  
kbo( :, 5,57, 6) = (/&
 & 2.1071e-05_jprb,3.3474e-05_jprb,1.1614e-04_jprb,1.5456e-04_jprb,1.7382e-04_jprb,1.3028e-04_jprb/)  
kbo( :, 1,58, 6) = (/&
 & 9.5144e-06_jprb,1.3504e-05_jprb,6.8670e-05_jprb,9.7752e-05_jprb,1.1572e-04_jprb,9.5731e-05_jprb/)  
kbo( :, 2,58, 6) = (/&
 & 1.0727e-05_jprb,1.5682e-05_jprb,7.3425e-05_jprb,1.0393e-04_jprb,1.2288e-04_jprb,9.9268e-05_jprb/)  
kbo( :, 3,58, 6) = (/&
 & 1.2418e-05_jprb,1.8676e-05_jprb,7.9036e-05_jprb,1.1042e-04_jprb,1.2941e-04_jprb,1.0205e-04_jprb/)  
kbo( :, 4,58, 6) = (/&
 & 1.4470e-05_jprb,2.2492e-05_jprb,8.6301e-05_jprb,1.1787e-04_jprb,1.3601e-04_jprb,1.0431e-04_jprb/)  
kbo( :, 5,58, 6) = (/&
 & 1.7068e-05_jprb,2.7290e-05_jprb,9.5445e-05_jprb,1.2711e-04_jprb,1.4326e-04_jprb,1.0599e-04_jprb/)  
kbo( :, 1,59, 6) = (/&
 & 7.8205e-06_jprb,1.1144e-05_jprb,5.6553e-05_jprb,8.0518e-05_jprb,9.5253e-05_jprb,7.7758e-05_jprb/)  
kbo( :, 2,59, 6) = (/&
 & 8.8412e-06_jprb,1.2994e-05_jprb,6.0645e-05_jprb,8.5808e-05_jprb,1.0137e-04_jprb,8.0565e-05_jprb/)  
kbo( :, 3,59, 6) = (/&
 & 1.0275e-05_jprb,1.5556e-05_jprb,6.5508e-05_jprb,9.1408e-05_jprb,1.0703e-04_jprb,8.2767e-05_jprb/)  
kbo( :, 4,59, 6) = (/&
 & 1.2026e-05_jprb,1.8861e-05_jprb,7.1879e-05_jprb,9.7918e-05_jprb,1.1277e-04_jprb,8.4443e-05_jprb/)  
kbo( :, 5,59, 6) = (/&
 & 1.4259e-05_jprb,2.3051e-05_jprb,7.9857e-05_jprb,1.0611e-04_jprb,1.1921e-04_jprb,8.5697e-05_jprb/)  
kbo( :, 1,13, 7) = (/&
 & 9.7647e-02_jprb,9.7855e-02_jprb,3.0363e-01_jprb,4.7031e-01_jprb,5.9904e-01_jprb,6.6640e-01_jprb/)  
kbo( :, 2,13, 7) = (/&
 & 1.0049e-01_jprb,1.0069e-01_jprb,3.0218e-01_jprb,4.6982e-01_jprb,6.0036e-01_jprb,6.7308e-01_jprb/)  
kbo( :, 3,13, 7) = (/&
 & 1.0377e-01_jprb,1.0396e-01_jprb,3.0033e-01_jprb,4.6762e-01_jprb,5.9983e-01_jprb,6.7883e-01_jprb/)  
kbo( :, 4,13, 7) = (/&
 & 1.0704e-01_jprb,1.0722e-01_jprb,2.9892e-01_jprb,4.6467e-01_jprb,5.9751e-01_jprb,6.8204e-01_jprb/)  
kbo( :, 5,13, 7) = (/&
 & 1.1023e-01_jprb,1.1040e-01_jprb,2.9802e-01_jprb,4.6155e-01_jprb,5.9382e-01_jprb,6.8342e-01_jprb/)  
kbo( :, 1,14, 7) = (/&
 & 8.6235e-02_jprb,8.6450e-02_jprb,2.9028e-01_jprb,4.5055e-01_jprb,5.7620e-01_jprb,6.3435e-01_jprb/)  
kbo( :, 2,14, 7) = (/&
 & 8.9084e-02_jprb,8.9292e-02_jprb,2.8945e-01_jprb,4.5002e-01_jprb,5.7817e-01_jprb,6.3980e-01_jprb/)  
kbo( :, 3,14, 7) = (/&
 & 9.1939e-02_jprb,9.2133e-02_jprb,2.8902e-01_jprb,4.4871e-01_jprb,5.7814e-01_jprb,6.4427e-01_jprb/)  
kbo( :, 4,14, 7) = (/&
 & 9.4793e-02_jprb,9.4979e-02_jprb,2.8897e-01_jprb,4.4708e-01_jprb,5.7621e-01_jprb,6.4667e-01_jprb/)  
kbo( :, 5,14, 7) = (/&
 & 9.7493e-02_jprb,9.7668e-02_jprb,2.8924e-01_jprb,4.4518e-01_jprb,5.7317e-01_jprb,6.4671e-01_jprb/)  
kbo( :, 1,15, 7) = (/&
 & 7.5804e-02_jprb,7.6029e-02_jprb,2.7446e-01_jprb,4.2589e-01_jprb,5.4720e-01_jprb,5.9726e-01_jprb/)  
kbo( :, 2,15, 7) = (/&
 & 7.8300e-02_jprb,7.8517e-02_jprb,2.7502e-01_jprb,4.2618e-01_jprb,5.4948e-01_jprb,6.0171e-01_jprb/)  
kbo( :, 3,15, 7) = (/&
 & 8.0785e-02_jprb,8.0989e-02_jprb,2.7599e-01_jprb,4.2609e-01_jprb,5.4964e-01_jprb,6.0469e-01_jprb/)  
kbo( :, 4,15, 7) = (/&
 & 8.3195e-02_jprb,8.3388e-02_jprb,2.7720e-01_jprb,4.2579e-01_jprb,5.4827e-01_jprb,6.0587e-01_jprb/)  
kbo( :, 5,15, 7) = (/&
 & 8.5455e-02_jprb,8.5636e-02_jprb,2.7832e-01_jprb,4.2510e-01_jprb,5.4565e-01_jprb,6.0534e-01_jprb/)  
kbo( :, 1,16, 7) = (/&
 & 6.6118e-02_jprb,6.6355e-02_jprb,2.5732e-01_jprb,3.9829e-01_jprb,5.1265e-01_jprb,5.5527e-01_jprb/)  
kbo( :, 2,16, 7) = (/&
 & 6.8340e-02_jprb,6.8565e-02_jprb,2.5922e-01_jprb,3.9972e-01_jprb,5.1481e-01_jprb,5.5901e-01_jprb/)  
kbo( :, 3,16, 7) = (/&
 & 7.0479e-02_jprb,7.0691e-02_jprb,2.6131e-01_jprb,4.0064e-01_jprb,5.1513e-01_jprb,5.6129e-01_jprb/)  
kbo( :, 4,16, 7) = (/&
 & 7.2489e-02_jprb,7.2689e-02_jprb,2.6335e-01_jprb,4.0108e-01_jprb,5.1406e-01_jprb,5.6253e-01_jprb/)  
kbo( :, 5,16, 7) = (/&
 & 7.4397e-02_jprb,7.4586e-02_jprb,2.6518e-01_jprb,4.0098e-01_jprb,5.1222e-01_jprb,5.6243e-01_jprb/)  
kbo( :, 1,17, 7) = (/&
 & 5.7406e-02_jprb,5.7650e-02_jprb,2.3930e-01_jprb,3.6866e-01_jprb,4.7357e-01_jprb,5.0878e-01_jprb/)  
kbo( :, 2,17, 7) = (/&
 & 5.9309e-02_jprb,5.9537e-02_jprb,2.4214e-01_jprb,3.7060e-01_jprb,4.7573e-01_jprb,5.1192e-01_jprb/)  
kbo( :, 3,17, 7) = (/&
 & 6.1082e-02_jprb,6.1301e-02_jprb,2.4481e-01_jprb,3.7220e-01_jprb,4.7608e-01_jprb,5.1457e-01_jprb/)  
kbo( :, 4,17, 7) = (/&
 & 6.2769e-02_jprb,6.2976e-02_jprb,2.4726e-01_jprb,3.7333e-01_jprb,4.7575e-01_jprb,5.1639e-01_jprb/)  
kbo( :, 5,17, 7) = (/&
 & 6.4538e-02_jprb,6.4738e-02_jprb,2.4921e-01_jprb,3.7444e-01_jprb,4.7491e-01_jprb,5.1718e-01_jprb/)  
kbo( :, 1,18, 7) = (/&
 & 4.9552e-02_jprb,4.9801e-02_jprb,2.2056e-01_jprb,3.3735e-01_jprb,4.3161e-01_jprb,4.5988e-01_jprb/)  
kbo( :, 2,18, 7) = (/&
 & 5.1121e-02_jprb,5.1359e-02_jprb,2.2361e-01_jprb,3.3991e-01_jprb,4.3345e-01_jprb,4.6346e-01_jprb/)  
kbo( :, 3,18, 7) = (/&
 & 5.2593e-02_jprb,5.2821e-02_jprb,2.2654e-01_jprb,3.4220e-01_jprb,4.3440e-01_jprb,4.6667e-01_jprb/)  
kbo( :, 4,18, 7) = (/&
 & 5.4109e-02_jprb,5.4323e-02_jprb,2.2905e-01_jprb,3.4438e-01_jprb,4.3513e-01_jprb,4.6905e-01_jprb/)  
kbo( :, 5,18, 7) = (/&
 & 5.5939e-02_jprb,5.6145e-02_jprb,2.3107e-01_jprb,3.4628e-01_jprb,4.3581e-01_jprb,4.7075e-01_jprb/)  
kbo( :, 1,19, 7) = (/&
 & 4.2494e-02_jprb,4.2746e-02_jprb,2.0106e-01_jprb,3.0520e-01_jprb,3.8813e-01_jprb,4.1087e-01_jprb/)  
kbo( :, 2,19, 7) = (/&
 & 4.3779e-02_jprb,4.4022e-02_jprb,2.0425e-01_jprb,3.0836e-01_jprb,3.9036e-01_jprb,4.1494e-01_jprb/)  
kbo( :, 3,19, 7) = (/&
 & 4.5047e-02_jprb,4.5279e-02_jprb,2.0714e-01_jprb,3.1149e-01_jprb,3.9227e-01_jprb,4.1866e-01_jprb/)  
kbo( :, 4,19, 7) = (/&
 & 4.6572e-02_jprb,4.6791e-02_jprb,2.0960e-01_jprb,3.1442e-01_jprb,3.9443e-01_jprb,4.2162e-01_jprb/)  
kbo( :, 5,19, 7) = (/&
 & 4.8486e-02_jprb,4.8693e-02_jprb,2.1178e-01_jprb,3.1724e-01_jprb,3.9648e-01_jprb,4.2406e-01_jprb/)  
kbo( :, 1,20, 7) = (/&
 & 3.6269e-02_jprb,3.6528e-02_jprb,1.8145e-01_jprb,2.7358e-01_jprb,3.4556e-01_jprb,3.6362e-01_jprb/)  
kbo( :, 2,20, 7) = (/&
 & 3.7339e-02_jprb,3.7589e-02_jprb,1.8454e-01_jprb,2.7744e-01_jprb,3.4849e-01_jprb,3.6815e-01_jprb/)  
kbo( :, 3,20, 7) = (/&
 & 3.8549e-02_jprb,3.8787e-02_jprb,1.8732e-01_jprb,2.8107e-01_jprb,3.5173e-01_jprb,3.7214e-01_jprb/)  
kbo( :, 4,20, 7) = (/&
 & 4.0135e-02_jprb,4.0360e-02_jprb,1.8991e-01_jprb,2.8468e-01_jprb,3.5494e-01_jprb,3.7578e-01_jprb/)  
kbo( :, 5,20, 7) = (/&
 & 4.2034e-02_jprb,4.2244e-02_jprb,1.9231e-01_jprb,2.8796e-01_jprb,3.5825e-01_jprb,3.7920e-01_jprb/)  
kbo( :, 1,21, 7) = (/&
 & 3.0838e-02_jprb,3.1110e-02_jprb,1.6217e-01_jprb,2.4347e-01_jprb,3.0519e-01_jprb,3.1909e-01_jprb/)  
kbo( :, 2,21, 7) = (/&
 & 3.1802e-02_jprb,3.2063e-02_jprb,1.6515e-01_jprb,2.4761e-01_jprb,3.0911e-01_jprb,3.2385e-01_jprb/)  
kbo( :, 3,21, 7) = (/&
 & 3.3062e-02_jprb,3.3309e-02_jprb,1.6796e-01_jprb,2.5173e-01_jprb,3.1324e-01_jprb,3.2836e-01_jprb/)  
kbo( :, 4,21, 7) = (/&
 & 3.4629e-02_jprb,3.4862e-02_jprb,1.7066e-01_jprb,2.5561e-01_jprb,3.1762e-01_jprb,3.3243e-01_jprb/)  
kbo( :, 5,21, 7) = (/&
 & 3.6342e-02_jprb,3.6556e-02_jprb,1.7331e-01_jprb,2.5945e-01_jprb,3.2161e-01_jprb,3.3536e-01_jprb/)  
kbo( :, 1,22, 7) = (/&
 & 2.6185e-02_jprb,2.6480e-02_jprb,1.4390e-01_jprb,2.1535e-01_jprb,2.6825e-01_jprb,2.7831e-01_jprb/)  
kbo( :, 2,22, 7) = (/&
 & 2.7170e-02_jprb,2.7445e-02_jprb,1.4681e-01_jprb,2.1972e-01_jprb,2.7298e-01_jprb,2.8332e-01_jprb/)  
kbo( :, 3,22, 7) = (/&
 & 2.8461e-02_jprb,2.8721e-02_jprb,1.4967e-01_jprb,2.2403e-01_jprb,2.7800e-01_jprb,2.8771e-01_jprb/)  
kbo( :, 4,22, 7) = (/&
 & 2.9895e-02_jprb,3.0136e-02_jprb,1.5252e-01_jprb,2.2826e-01_jprb,2.8245e-01_jprb,2.9094e-01_jprb/)  
kbo( :, 5,22, 7) = (/&
 & 3.1389e-02_jprb,3.1609e-02_jprb,1.5546e-01_jprb,2.3192e-01_jprb,2.8576e-01_jprb,2.9204e-01_jprb/)  
kbo( :, 1,23, 7) = (/&
 & 2.2242e-02_jprb,2.2585e-02_jprb,1.2678e-01_jprb,1.8942e-01_jprb,2.3494e-01_jprb,2.4143e-01_jprb/)  
kbo( :, 2,23, 7) = (/&
 & 2.3269e-02_jprb,2.3584e-02_jprb,1.2966e-01_jprb,1.9392e-01_jprb,2.4012e-01_jprb,2.4601e-01_jprb/)  
kbo( :, 3,23, 7) = (/&
 & 2.4462e-02_jprb,2.4752e-02_jprb,1.3262e-01_jprb,1.9826e-01_jprb,2.4479e-01_jprb,2.4932e-01_jprb/)  
kbo( :, 4,23, 7) = (/&
 & 2.5724e-02_jprb,2.5987e-02_jprb,1.3562e-01_jprb,2.0194e-01_jprb,2.4827e-01_jprb,2.5044e-01_jprb/)  

IF (lhook) CALL dr_hook('RRTM_KGB4:PART21',1,zhook_handle)
END SUBROUTINE part21


SUBROUTINE part22

REAL(KIND=JPRB) :: ZHOOK_HANDLE
IF (lhook) CALL dr_hook('RRTM_KGB4:PART22',0,zhook_handle)


kbo( :, 5,23, 7) = (/&
 & 2.7009e-02_jprb,2.7247e-02_jprb,1.3866e-01_jprb,2.0472e-01_jprb,2.4987e-01_jprb,2.4911e-01_jprb/)  
kbo( :, 1,24, 7) = (/&
 & 1.8924e-02_jprb,1.9342e-02_jprb,1.1105e-01_jprb,1.6590e-01_jprb,2.0499e-01_jprb,2.0802e-01_jprb/)  
kbo( :, 2,24, 7) = (/&
 & 1.9910e-02_jprb,2.0290e-02_jprb,1.1397e-01_jprb,1.7018e-01_jprb,2.0970e-01_jprb,2.1135e-01_jprb/)  
kbo( :, 3,24, 7) = (/&
 & 2.0965e-02_jprb,2.1308e-02_jprb,1.1690e-01_jprb,1.7382e-01_jprb,2.1319e-01_jprb,2.1255e-01_jprb/)  
kbo( :, 4,24, 7) = (/&
 & 2.2052e-02_jprb,2.2362e-02_jprb,1.1976e-01_jprb,1.7647e-01_jprb,2.1472e-01_jprb,2.1155e-01_jprb/)  
kbo( :, 5,24, 7) = (/&
 & 2.3159e-02_jprb,2.3438e-02_jprb,1.2254e-01_jprb,1.7790e-01_jprb,2.1436e-01_jprb,2.0899e-01_jprb/)  
kbo( :, 1,25, 7) = (/&
 & 1.6126e-02_jprb,1.6634e-02_jprb,9.6918e-02_jprb,1.4450e-01_jprb,1.7776e-01_jprb,1.7751e-01_jprb/)  
kbo( :, 2,25, 7) = (/&
 & 1.7005e-02_jprb,1.7471e-02_jprb,9.9655e-02_jprb,1.4804e-01_jprb,1.8117e-01_jprb,1.7889e-01_jprb/)  
kbo( :, 3,25, 7) = (/&
 & 1.7908e-02_jprb,1.8330e-02_jprb,1.0231e-01_jprb,1.5056e-01_jprb,1.8277e-01_jprb,1.7834e-01_jprb/)  
kbo( :, 4,25, 7) = (/&
 & 1.8834e-02_jprb,1.9214e-02_jprb,1.0481e-01_jprb,1.5188e-01_jprb,1.8269e-01_jprb,1.7644e-01_jprb/)  
kbo( :, 5,25, 7) = (/&
 & 1.9803e-02_jprb,2.0147e-02_jprb,1.0706e-01_jprb,1.5241e-01_jprb,1.8142e-01_jprb,1.7360e-01_jprb/)  
kbo( :, 1,26, 7) = (/&
 & 1.3733e-02_jprb,1.4333e-02_jprb,8.4163e-02_jprb,1.2491e-01_jprb,1.5264e-01_jprb,1.4950e-01_jprb/)  
kbo( :, 2,26, 7) = (/&
 & 1.4485e-02_jprb,1.5042e-02_jprb,8.6571e-02_jprb,1.2729e-01_jprb,1.5433e-01_jprb,1.4938e-01_jprb/)  
kbo( :, 3,26, 7) = (/&
 & 1.5263e-02_jprb,1.5775e-02_jprb,8.8793e-02_jprb,1.2861e-01_jprb,1.5456e-01_jprb,1.4809e-01_jprb/)  
kbo( :, 4,26, 7) = (/&
 & 1.6060e-02_jprb,1.6526e-02_jprb,9.0766e-02_jprb,1.2922e-01_jprb,1.5373e-01_jprb,1.4598e-01_jprb/)  
kbo( :, 5,26, 7) = (/&
 & 1.6936e-02_jprb,1.7356e-02_jprb,9.2410e-02_jprb,1.2957e-01_jprb,1.5224e-01_jprb,1.4323e-01_jprb/)  
kbo( :, 1,27, 7) = (/&
 & 1.1673e-02_jprb,1.2349e-02_jprb,7.2668e-02_jprb,1.0678e-01_jprb,1.2946e-01_jprb,1.2446e-01_jprb/)  
kbo( :, 2,27, 7) = (/&
 & 1.2313e-02_jprb,1.2955e-02_jprb,7.4613e-02_jprb,1.0813e-01_jprb,1.2998e-01_jprb,1.2372e-01_jprb/)  
kbo( :, 3,27, 7) = (/&
 & 1.2974e-02_jprb,1.3574e-02_jprb,7.6365e-02_jprb,1.0885e-01_jprb,1.2958e-01_jprb,1.2223e-01_jprb/)  
kbo( :, 4,27, 7) = (/&
 & 1.3688e-02_jprb,1.4241e-02_jprb,7.7870e-02_jprb,1.0934e-01_jprb,1.2859e-01_jprb,1.2019e-01_jprb/)  
kbo( :, 5,27, 7) = (/&
 & 1.4500e-02_jprb,1.5004e-02_jprb,7.9154e-02_jprb,1.0968e-01_jprb,1.2721e-01_jprb,1.1769e-01_jprb/)  
kbo( :, 1,28, 7) = (/&
 & 9.9017e-03_jprb,1.0637e-02_jprb,6.2269e-02_jprb,9.0336e-02_jprb,1.0873e-01_jprb,1.0289e-01_jprb/)  
kbo( :, 2,28, 7) = (/&
 & 1.0447e-02_jprb,1.1155e-02_jprb,6.3837e-02_jprb,9.1161e-02_jprb,1.0870e-01_jprb,1.0194e-01_jprb/)  
kbo( :, 3,28, 7) = (/&
 & 1.1031e-02_jprb,1.1703e-02_jprb,6.5234e-02_jprb,9.1757e-02_jprb,1.0813e-01_jprb,1.0049e-01_jprb/)  
kbo( :, 4,28, 7) = (/&
 & 1.1687e-02_jprb,1.2317e-02_jprb,6.6435e-02_jprb,9.2244e-02_jprb,1.0722e-01_jprb,9.8621e-02_jprb/)  
kbo( :, 5,28, 7) = (/&
 & 1.2452e-02_jprb,1.3036e-02_jprb,6.7452e-02_jprb,9.2541e-02_jprb,1.0617e-01_jprb,9.6430e-02_jprb/)  
kbo( :, 1,29, 7) = (/&
 & 8.3943e-03_jprb,9.1654e-03_jprb,5.3047e-02_jprb,7.5941e-02_jprb,9.0764e-02_jprb,8.4732e-02_jprb/)  
kbo( :, 2,29, 7) = (/&
 & 8.8669e-03_jprb,9.6211e-03_jprb,5.4351e-02_jprb,7.6615e-02_jprb,9.0534e-02_jprb,8.3768e-02_jprb/)  
kbo( :, 3,29, 7) = (/&
 & 9.3976e-03_jprb,1.0125e-02_jprb,5.5501e-02_jprb,7.7201e-02_jprb,8.9989e-02_jprb,8.2428e-02_jprb/)  
kbo( :, 4,29, 7) = (/&
 & 1.0017e-02_jprb,1.0708e-02_jprb,5.6489e-02_jprb,7.7643e-02_jprb,8.9310e-02_jprb,8.0785e-02_jprb/)  
kbo( :, 5,29, 7) = (/&
 & 1.0736e-02_jprb,1.1389e-02_jprb,5.7305e-02_jprb,7.7877e-02_jprb,8.8545e-02_jprb,7.8917e-02_jprb/)  
kbo( :, 1,30, 7) = (/&
 & 7.1195e-03_jprb,7.9064e-03_jprb,4.5048e-02_jprb,6.3701e-02_jprb,7.5506e-02_jprb,6.9609e-02_jprb/)  
kbo( :, 2,30, 7) = (/&
 & 7.5430e-03_jprb,8.3223e-03_jprb,4.6141e-02_jprb,6.4336e-02_jprb,7.5249e-02_jprb,6.8691e-02_jprb/)  
kbo( :, 3,30, 7) = (/&
 & 8.0392e-03_jprb,8.8028e-03_jprb,4.7092e-02_jprb,6.4887e-02_jprb,7.4865e-02_jprb,6.7513e-02_jprb/)  
kbo( :, 4,30, 7) = (/&
 & 8.6260e-03_jprb,9.3657e-03_jprb,4.7903e-02_jprb,6.5263e-02_jprb,7.4401e-02_jprb,6.6108e-02_jprb/)  
kbo( :, 5,30, 7) = (/&
 & 9.2967e-03_jprb,1.0007e-02_jprb,4.8615e-02_jprb,6.5447e-02_jprb,7.3852e-02_jprb,6.4545e-02_jprb/)  
kbo( :, 1,31, 7) = (/&
 & 6.0475e-03_jprb,6.8335e-03_jprb,3.8158e-02_jprb,5.3421e-02_jprb,6.2695e-02_jprb,5.7118e-02_jprb/)  
kbo( :, 2,31, 7) = (/&
 & 6.4423e-03_jprb,7.2306e-03_jprb,3.9087e-02_jprb,5.4038e-02_jprb,6.2533e-02_jprb,5.6304e-02_jprb/)  
kbo( :, 3,31, 7) = (/&
 & 6.9157e-03_jprb,7.6990e-03_jprb,3.9885e-02_jprb,5.4507e-02_jprb,6.2314e-02_jprb,5.5291e-02_jprb/)  
kbo( :, 4,31, 7) = (/&
 & 7.4643e-03_jprb,8.2378e-03_jprb,4.0585e-02_jprb,5.4818e-02_jprb,6.2007e-02_jprb,5.4123e-02_jprb/)  
kbo( :, 5,31, 7) = (/&
 & 8.0870e-03_jprb,8.8427e-03_jprb,4.1238e-02_jprb,5.4956e-02_jprb,6.1571e-02_jprb,5.2845e-02_jprb/)  
kbo( :, 1,32, 7) = (/&
 & 5.1572e-03_jprb,5.9281e-03_jprb,3.2288e-02_jprb,4.4834e-02_jprb,5.2063e-02_jprb,4.6838e-02_jprb/)  
kbo( :, 2,32, 7) = (/&
 & 5.5343e-03_jprb,6.3178e-03_jprb,3.3066e-02_jprb,4.5379e-02_jprb,5.2022e-02_jprb,4.6134e-02_jprb/)  
kbo( :, 3,32, 7) = (/&
 & 5.9793e-03_jprb,6.7732e-03_jprb,3.3755e-02_jprb,4.5782e-02_jprb,5.1906e-02_jprb,4.5284e-02_jprb/)  
kbo( :, 4,32, 7) = (/&
 & 6.4923e-03_jprb,7.2876e-03_jprb,3.4382e-02_jprb,4.6031e-02_jprb,5.1677e-02_jprb,4.4332e-02_jprb/)  
kbo( :, 5,32, 7) = (/&
 & 7.0596e-03_jprb,7.8510e-03_jprb,3.5020e-02_jprb,4.6157e-02_jprb,5.1326e-02_jprb,4.3327e-02_jprb/)  
kbo( :, 1,33, 7) = (/&
 & 4.4193e-03_jprb,5.1672e-03_jprb,2.7281e-02_jprb,3.7643e-02_jprb,4.3289e-02_jprb,3.8410e-02_jprb/)  
kbo( :, 2,33, 7) = (/&
 & 4.7780e-03_jprb,5.5509e-03_jprb,2.7954e-02_jprb,3.8112e-02_jprb,4.3323e-02_jprb,3.7821e-02_jprb/)  
kbo( :, 3,33, 7) = (/&
 & 5.1954e-03_jprb,5.9899e-03_jprb,2.8558e-02_jprb,3.8442e-02_jprb,4.3253e-02_jprb,3.7133e-02_jprb/)  
kbo( :, 4,33, 7) = (/&
 & 5.6675e-03_jprb,6.4760e-03_jprb,2.9162e-02_jprb,3.8661e-02_jprb,4.3077e-02_jprb,3.6382e-02_jprb/)  
kbo( :, 5,33, 7) = (/&
 & 6.1867e-03_jprb,6.9981e-03_jprb,2.9817e-02_jprb,3.8817e-02_jprb,4.2791e-02_jprb,3.5593e-02_jprb/)  
kbo( :, 1,34, 7) = (/&
 & 3.7967e-03_jprb,4.5190e-03_jprb,2.3030e-02_jprb,3.1601e-02_jprb,3.6054e-02_jprb,3.1509e-02_jprb/)  
kbo( :, 2,34, 7) = (/&
 & 4.1317e-03_jprb,4.8886e-03_jprb,2.3612e-02_jprb,3.1993e-02_jprb,3.6114e-02_jprb,3.1025e-02_jprb/)  
kbo( :, 3,34, 7) = (/&
 & 4.5197e-03_jprb,5.3080e-03_jprb,2.4172e-02_jprb,3.2284e-02_jprb,3.6075e-02_jprb,3.0475e-02_jprb/)  
kbo( :, 4,34, 7) = (/&
 & 4.9490e-03_jprb,5.7615e-03_jprb,2.4765e-02_jprb,3.2500e-02_jprb,3.5934e-02_jprb,2.9886e-02_jprb/)  
kbo( :, 5,34, 7) = (/&
 & 5.4277e-03_jprb,6.2506e-03_jprb,2.5457e-02_jprb,3.2703e-02_jprb,3.5717e-02_jprb,2.9265e-02_jprb/)  
kbo( :, 1,35, 7) = (/&
 & 3.2485e-03_jprb,3.9401e-03_jprb,1.9395e-02_jprb,2.6487e-02_jprb,3.0061e-02_jprb,2.5898e-02_jprb/)  
kbo( :, 2,35, 7) = (/&
 & 3.5574e-03_jprb,4.2902e-03_jprb,1.9918e-02_jprb,2.6839e-02_jprb,3.0137e-02_jprb,2.5509e-02_jprb/)  
kbo( :, 3,35, 7) = (/&
 & 3.9084e-03_jprb,4.6823e-03_jprb,2.0454e-02_jprb,2.7112e-02_jprb,3.0123e-02_jprb,2.5080e-02_jprb/)  
kbo( :, 4,35, 7) = (/&
 & 4.2975e-03_jprb,5.1039e-03_jprb,2.1052e-02_jprb,2.7348e-02_jprb,3.0028e-02_jprb,2.4626e-02_jprb/)  
kbo( :, 5,35, 7) = (/&
 & 4.7400e-03_jprb,5.5642e-03_jprb,2.1748e-02_jprb,2.7600e-02_jprb,2.9873e-02_jprb,2.4136e-02_jprb/)  
kbo( :, 1,36, 7) = (/&
 & 2.7607e-03_jprb,3.4142e-03_jprb,1.6292e-02_jprb,2.2168e-02_jprb,2.5071e-02_jprb,2.1321e-02_jprb/)  
kbo( :, 2,36, 7) = (/&
 & 3.0408e-03_jprb,3.7429e-03_jprb,1.6771e-02_jprb,2.2492e-02_jprb,2.5167e-02_jprb,2.1022e-02_jprb/)  
kbo( :, 3,36, 7) = (/&
 & 3.3541e-03_jprb,4.1050e-03_jprb,1.7286e-02_jprb,2.2762e-02_jprb,2.5179e-02_jprb,2.0697e-02_jprb/)  
kbo( :, 4,36, 7) = (/&
 & 3.7038e-03_jprb,4.4924e-03_jprb,1.7882e-02_jprb,2.3025e-02_jprb,2.5128e-02_jprb,2.0344e-02_jprb/)  
kbo( :, 5,36, 7) = (/&
 & 4.1115e-03_jprb,4.9275e-03_jprb,1.8561e-02_jprb,2.3321e-02_jprb,2.5038e-02_jprb,1.9966e-02_jprb/)  
kbo( :, 1,37, 7) = (/&
 & 2.3165e-03_jprb,2.9243e-03_jprb,1.3632e-02_jprb,1.8511e-02_jprb,2.0911e-02_jprb,1.7582e-02_jprb/)  
kbo( :, 2,37, 7) = (/&
 & 2.5620e-03_jprb,3.2240e-03_jprb,1.4078e-02_jprb,1.8817e-02_jprb,2.1021e-02_jprb,1.7359e-02_jprb/)  
kbo( :, 3,37, 7) = (/&
 & 2.8378e-03_jprb,3.5536e-03_jprb,1.4566e-02_jprb,1.9089e-02_jprb,2.1062e-02_jprb,1.7112e-02_jprb/)  
kbo( :, 4,37, 7) = (/&
 & 3.1506e-03_jprb,3.9105e-03_jprb,1.5134e-02_jprb,1.9368e-02_jprb,2.1055e-02_jprb,1.6843e-02_jprb/)  
kbo( :, 5,37, 7) = (/&
 & 3.5154e-03_jprb,4.3116e-03_jprb,1.5780e-02_jprb,1.9690e-02_jprb,2.1025e-02_jprb,1.6554e-02_jprb/)  
kbo( :, 1,38, 7) = (/&
 & 1.9436e-03_jprb,2.5043e-03_jprb,1.1409e-02_jprb,1.5449e-02_jprb,1.7439e-02_jprb,1.4509e-02_jprb/)  
kbo( :, 2,38, 7) = (/&
 & 2.1585e-03_jprb,2.7776e-03_jprb,1.1822e-02_jprb,1.5741e-02_jprb,1.7560e-02_jprb,1.4349e-02_jprb/)  
kbo( :, 3,38, 7) = (/&
 & 2.4018e-03_jprb,3.0766e-03_jprb,1.2278e-02_jprb,1.6010e-02_jprb,1.7625e-02_jprb,1.4163e-02_jprb/)  
kbo( :, 4,38, 7) = (/&
 & 2.6807e-03_jprb,3.4074e-03_jprb,1.2821e-02_jprb,1.6300e-02_jprb,1.7653e-02_jprb,1.3961e-02_jprb/)  
kbo( :, 5,38, 7) = (/&
 & 3.0074e-03_jprb,3.7767e-03_jprb,1.3427e-02_jprb,1.6635e-02_jprb,1.7670e-02_jprb,1.3745e-02_jprb/)  
kbo( :, 1,39, 7) = (/&
 & 1.6324e-03_jprb,2.1472e-03_jprb,9.5576e-03_jprb,1.2899e-02_jprb,1.4546e-02_jprb,1.1989e-02_jprb/)  
kbo( :, 2,39, 7) = (/&
 & 1.8200e-03_jprb,2.3947e-03_jprb,9.9337e-03_jprb,1.3170e-02_jprb,1.4671e-02_jprb,1.1875e-02_jprb/)  
kbo( :, 3,39, 7) = (/&
 & 2.0341e-03_jprb,2.6676e-03_jprb,1.0368e-02_jprb,1.3436e-02_jprb,1.4754e-02_jprb,1.1741e-02_jprb/)  
kbo( :, 4,39, 7) = (/&
 & 2.2822e-03_jprb,2.9700e-03_jprb,1.0873e-02_jprb,1.3729e-02_jprb,1.4811e-02_jprb,1.1592e-02_jprb/)  
kbo( :, 5,39, 7) = (/&
 & 2.5777e-03_jprb,3.3169e-03_jprb,1.1451e-02_jprb,1.4071e-02_jprb,1.4864e-02_jprb,1.1429e-02_jprb/)  
kbo( :, 1,40, 7) = (/&
 & 1.3560e-03_jprb,1.8205e-03_jprb,7.9786e-03_jprb,1.0746e-02_jprb,1.2116e-02_jprb,9.8937e-03_jprb/)  
kbo( :, 2,40, 7) = (/&
 & 1.5188e-03_jprb,2.0432e-03_jprb,8.3209e-03_jprb,1.1001e-02_jprb,1.2248e-02_jprb,9.8116e-03_jprb/)  
kbo( :, 3,40, 7) = (/&
 & 1.7047e-03_jprb,2.2893e-03_jprb,8.7183e-03_jprb,1.1256e-02_jprb,1.2346e-02_jprb,9.7139e-03_jprb/)  
kbo( :, 4,40, 7) = (/&
 & 1.9222e-03_jprb,2.5662e-03_jprb,9.1877e-03_jprb,1.1545e-02_jprb,1.2425e-02_jprb,9.6034e-03_jprb/)  
kbo( :, 5,40, 7) = (/&
 & 2.1827e-03_jprb,2.8825e-03_jprb,9.7216e-03_jprb,1.1880e-02_jprb,1.2506e-02_jprb,9.4790e-03_jprb/)  
kbo( :, 1,41, 7) = (/&
 & 1.1245e-03_jprb,1.5415e-03_jprb,6.6591e-03_jprb,8.9478e-03_jprb,1.0087e-02_jprb,8.1642e-03_jprb/)  
kbo( :, 2,41, 7) = (/&
 & 1.2648e-03_jprb,1.7402e-03_jprb,6.9688e-03_jprb,9.1871e-03_jprb,1.0221e-02_jprb,8.1056e-03_jprb/)  
kbo( :, 3,41, 7) = (/&
 & 1.4266e-03_jprb,1.9622e-03_jprb,7.3306e-03_jprb,9.4300e-03_jprb,1.0328e-02_jprb,8.0356e-03_jprb/)  
kbo( :, 4,41, 7) = (/&
 & 1.6162e-03_jprb,2.2132e-03_jprb,7.7614e-03_jprb,9.7094e-03_jprb,1.0422e-02_jprb,7.9538e-03_jprb/)  
kbo( :, 5,41, 7) = (/&
 & 1.8452e-03_jprb,2.5020e-03_jprb,8.2540e-03_jprb,1.0030e-02_jprb,1.0522e-02_jprb,7.8592e-03_jprb/)  
kbo( :, 1,42, 7) = (/&
 & 9.3219e-04_jprb,1.3042e-03_jprb,5.5558e-03_jprb,7.4502e-03_jprb,8.3930e-03_jprb,6.7373e-03_jprb/)  
kbo( :, 2,42, 7) = (/&
 & 1.0531e-03_jprb,1.4817e-03_jprb,5.8359e-03_jprb,7.6727e-03_jprb,8.5267e-03_jprb,6.6979e-03_jprb/)  
kbo( :, 3,42, 7) = (/&
 & 1.1932e-03_jprb,1.6822e-03_jprb,6.1662e-03_jprb,7.9012e-03_jprb,8.6371e-03_jprb,6.6486e-03_jprb/)  
kbo( :, 4,42, 7) = (/&
 & 1.3591e-03_jprb,1.9101e-03_jprb,6.5594e-03_jprb,8.1659e-03_jprb,8.7400e-03_jprb,6.5900e-03_jprb/)  
kbo( :, 5,42, 7) = (/&
 & 1.5595e-03_jprb,2.1712e-03_jprb,7.0143e-03_jprb,8.4711e-03_jprb,8.8520e-03_jprb,6.5197e-03_jprb/)  
kbo( :, 1,43, 7) = (/&
 & 7.6655e-04_jprb,1.0948e-03_jprb,4.6199e-03_jprb,6.1929e-03_jprb,6.9738e-03_jprb,5.5590e-03_jprb/)  
kbo( :, 2,43, 7) = (/&
 & 8.7006e-04_jprb,1.2519e-03_jprb,4.8725e-03_jprb,6.3982e-03_jprb,7.1051e-03_jprb,5.5354e-03_jprb/)  
kbo( :, 3,43, 7) = (/&
 & 9.9067e-04_jprb,1.4317e-03_jprb,5.1714e-03_jprb,6.6094e-03_jprb,7.2167e-03_jprb,5.5034e-03_jprb/)  
kbo( :, 4,43, 7) = (/&
 & 1.1333e-03_jprb,1.6361e-03_jprb,5.5238e-03_jprb,6.8549e-03_jprb,7.3224e-03_jprb,5.4615e-03_jprb/)  
kbo( :, 5,43, 7) = (/&
 & 1.3078e-03_jprb,1.8729e-03_jprb,5.9392e-03_jprb,7.1404e-03_jprb,7.4395e-03_jprb,5.4098e-03_jprb/)  
kbo( :, 1,44, 7) = (/&
 & 6.2716e-04_jprb,9.1445e-04_jprb,3.8379e-03_jprb,5.1423e-03_jprb,5.7885e-03_jprb,4.5879e-03_jprb/)  
kbo( :, 2,44, 7) = (/&
 & 7.1539e-04_jprb,1.0525e-03_jprb,4.0608e-03_jprb,5.3284e-03_jprb,5.9139e-03_jprb,4.5750e-03_jprb/)  
kbo( :, 3,44, 7) = (/&
 & 8.1868e-04_jprb,1.2124e-03_jprb,4.3261e-03_jprb,5.5223e-03_jprb,6.0237e-03_jprb,4.5564e-03_jprb/)  
kbo( :, 4,44, 7) = (/&
 & 9.4076e-04_jprb,1.3951e-03_jprb,4.6439e-03_jprb,5.7493e-03_jprb,6.1304e-03_jprb,4.5291e-03_jprb/)  
kbo( :, 5,44, 7) = (/&
 & 1.0905e-03_jprb,1.6074e-03_jprb,5.0184e-03_jprb,6.0132e-03_jprb,6.2498e-03_jprb,4.4930e-03_jprb/)  
kbo( :, 1,45, 7) = (/&
 & 5.1229e-04_jprb,7.6193e-04_jprb,3.1853e-03_jprb,4.2678e-03_jprb,4.8007e-03_jprb,3.7867e-03_jprb/)  
kbo( :, 2,45, 7) = (/&
 & 5.8700e-04_jprb,8.8309e-04_jprb,3.3822e-03_jprb,4.4376e-03_jprb,4.9204e-03_jprb,3.7837e-03_jprb/)  
kbo( :, 3,45, 7) = (/&
 & 6.7532e-04_jprb,1.0253e-03_jprb,3.6172e-03_jprb,4.6137e-03_jprb,5.0263e-03_jprb,3.7750e-03_jprb/)  
kbo( :, 4,45, 7) = (/&
 & 7.7992e-04_jprb,1.1886e-03_jprb,3.9001e-03_jprb,4.8193e-03_jprb,5.1305e-03_jprb,3.7582e-03_jprb/)  
kbo( :, 5,45, 7) = (/&
 & 9.0898e-04_jprb,1.3801e-03_jprb,4.2375e-03_jprb,5.0602e-03_jprb,5.2468e-03_jprb,3.7339e-03_jprb/)  
kbo( :, 1,46, 7) = (/&
 & 4.1645e-04_jprb,6.3110e-04_jprb,2.6350e-03_jprb,3.5353e-03_jprb,3.9769e-03_jprb,3.1256e-03_jprb/)  
kbo( :, 2,46, 7) = (/&
 & 4.7902e-04_jprb,7.3636e-04_jprb,2.8091e-03_jprb,3.6888e-03_jprb,4.0884e-03_jprb,3.1284e-03_jprb/)  
kbo( :, 3,46, 7) = (/&
 & 5.5407e-04_jprb,8.6233e-04_jprb,3.0151e-03_jprb,3.8480e-03_jprb,4.1890e-03_jprb,3.1266e-03_jprb/)  
kbo( :, 4,46, 7) = (/&
 & 6.4357e-04_jprb,1.0083e-03_jprb,3.2677e-03_jprb,4.0349e-03_jprb,4.2897e-03_jprb,3.1195e-03_jprb/)  
kbo( :, 5,46, 7) = (/&
 & 7.5354e-04_jprb,1.1783e-03_jprb,3.5685e-03_jprb,4.2544e-03_jprb,4.4018e-03_jprb,3.1063e-03_jprb/)  
kbo( :, 1,47, 7) = (/&
 & 3.3601e-04_jprb,5.1777e-04_jprb,2.1723e-03_jprb,2.9197e-03_jprb,3.2860e-03_jprb,2.5760e-03_jprb/)  
kbo( :, 2,47, 7) = (/&
 & 3.8754e-04_jprb,6.0796e-04_jprb,2.3239e-03_jprb,3.0581e-03_jprb,3.3911e-03_jprb,2.5844e-03_jprb/)  
kbo( :, 3,47, 7) = (/&
 & 4.5065e-04_jprb,7.1798e-04_jprb,2.5022e-03_jprb,3.2019e-03_jprb,3.4875e-03_jprb,2.5889e-03_jprb/)  
kbo( :, 4,47, 7) = (/&
 & 5.2613e-04_jprb,8.4682e-04_jprb,2.7238e-03_jprb,3.3682e-03_jprb,3.5815e-03_jprb,2.5884e-03_jprb/)  
kbo( :, 5,47, 7) = (/&
 & 6.1929e-04_jprb,9.9786e-04_jprb,2.9897e-03_jprb,3.5658e-03_jprb,3.6861e-03_jprb,2.5827e-03_jprb/)  
kbo( :, 1,48, 7) = (/&
 & 2.7083e-04_jprb,4.2347e-04_jprb,1.7899e-03_jprb,2.4088e-03_jprb,2.7136e-03_jprb,2.1244e-03_jprb/)  
kbo( :, 2,48, 7) = (/&
 & 3.1279e-04_jprb,4.9999e-04_jprb,1.9206e-03_jprb,2.5330e-03_jprb,2.8112e-03_jprb,2.1367e-03_jprb/)  
kbo( :, 3,48, 7) = (/&
 & 3.6550e-04_jprb,5.9533e-04_jprb,2.0740e-03_jprb,2.6614e-03_jprb,2.9002e-03_jprb,2.1451e-03_jprb/)  
kbo( :, 4,48, 7) = (/&
 & 4.2897e-04_jprb,7.0913e-04_jprb,2.2662e-03_jprb,2.8083e-03_jprb,2.9875e-03_jprb,2.1497e-03_jprb/)  
kbo( :, 5,48, 7) = (/&
 & 5.0746e-04_jprb,8.4310e-04_jprb,2.4995e-03_jprb,2.9841e-03_jprb,3.0838e-03_jprb,2.1494e-03_jprb/)  
kbo( :, 1,49, 7) = (/&
 & 2.1798e-04_jprb,3.4528e-04_jprb,1.4710e-03_jprb,1.9833e-03_jprb,2.2375e-03_jprb,1.7528e-03_jprb/)  
kbo( :, 2,49, 7) = (/&
 & 2.5177e-04_jprb,4.0956e-04_jprb,1.5850e-03_jprb,2.0943e-03_jprb,2.3273e-03_jprb,1.7678e-03_jprb/)  
kbo( :, 3,49, 7) = (/&
 & 2.9568e-04_jprb,4.9144e-04_jprb,1.7161e-03_jprb,2.2089e-03_jprb,2.4094e-03_jprb,1.7791e-03_jprb/)  
kbo( :, 4,49, 7) = (/&
 & 3.4874e-04_jprb,5.9100e-04_jprb,1.8818e-03_jprb,2.3380e-03_jprb,2.4892e-03_jprb,1.7874e-03_jprb/)  
kbo( :, 5,49, 7) = (/&
 & 4.1458e-04_jprb,7.0951e-04_jprb,2.0849e-03_jprb,2.4934e-03_jprb,2.5772e-03_jprb,1.7919e-03_jprb/)  
kbo( :, 1,50, 7) = (/&
 & 1.7585e-04_jprb,2.8189e-04_jprb,1.2093e-03_jprb,1.6329e-03_jprb,1.8441e-03_jprb,1.4430e-03_jprb/)  
kbo( :, 2,50, 7) = (/&
 & 2.0319e-04_jprb,3.3574e-04_jprb,1.3080e-03_jprb,1.7313e-03_jprb,1.9256e-03_jprb,1.4584e-03_jprb/)  
kbo( :, 3,50, 7) = (/&
 & 2.3954e-04_jprb,4.0576e-04_jprb,1.4210e-03_jprb,1.8326e-03_jprb,2.0011e-03_jprb,1.4708e-03_jprb/)  
kbo( :, 4,50, 7) = (/&
 & 2.8402e-04_jprb,4.9271e-04_jprb,1.5642e-03_jprb,1.9468e-03_jprb,2.0746e-03_jprb,1.4813e-03_jprb/)  
kbo( :, 5,50, 7) = (/&
 & 3.3943e-04_jprb,5.9790e-04_jprb,1.7417e-03_jprb,2.0852e-03_jprb,2.1555e-03_jprb,1.4890e-03_jprb/)  
kbo( :, 1,51, 7) = (/&
 & 1.4190e-04_jprb,2.2992e-04_jprb,9.9404e-04_jprb,1.3435e-03_jprb,1.5181e-03_jprb,1.1857e-03_jprb/)  
kbo( :, 2,51, 7) = (/&
 & 1.6404e-04_jprb,2.7497e-04_jprb,1.0789e-03_jprb,1.4304e-03_jprb,1.5921e-03_jprb,1.2010e-03_jprb/)  
kbo( :, 3,51, 7) = (/&
 & 1.9404e-04_jprb,3.3460e-04_jprb,1.1768e-03_jprb,1.5204e-03_jprb,1.6616e-03_jprb,1.2144e-03_jprb/)  
kbo( :, 4,51, 7) = (/&
 & 2.3131e-04_jprb,4.1015e-04_jprb,1.3000e-03_jprb,1.6207e-03_jprb,1.7290e-03_jprb,1.2257e-03_jprb/)  
kbo( :, 5,51, 7) = (/&
 & 2.7780e-04_jprb,5.0292e-04_jprb,1.4546e-03_jprb,1.7432e-03_jprb,1.8024e-03_jprb,1.2347e-03_jprb/)  
kbo( :, 1,52, 7) = (/&
 & 1.1444e-04_jprb,1.8707e-04_jprb,8.1510e-04_jprb,1.1036e-03_jprb,1.2481e-03_jprb,9.7442e-04_jprb/)  
kbo( :, 2,52, 7) = (/&
 & 1.3222e-04_jprb,2.2446e-04_jprb,8.8966e-04_jprb,1.1810e-03_jprb,1.3153e-03_jprb,9.8987e-04_jprb/)  
kbo( :, 3,52, 7) = (/&
 & 1.5685e-04_jprb,2.7479e-04_jprb,9.7350e-04_jprb,1.2602e-03_jprb,1.3785e-03_jprb,1.0031e-03_jprb/)  
kbo( :, 4,52, 7) = (/&
 & 1.8798e-04_jprb,3.3998e-04_jprb,1.0787e-03_jprb,1.3479e-03_jprb,1.4399e-03_jprb,1.0147e-03_jprb/)  

IF (lhook) CALL dr_hook('RRTM_KGB4:PART22',1,zhook_handle)
END SUBROUTINE part22


SUBROUTINE part23

REAL(KIND=JPRB) :: ZHOOK_HANDLE
IF (lhook) CALL dr_hook('RRTM_KGB4:PART23',0,zhook_handle)


kbo( :, 5,52, 7) = (/&
 & 2.2685e-04_jprb,4.2103e-04_jprb,1.2129e-03_jprb,1.4553e-03_jprb,1.5058e-03_jprb,1.0246e-03_jprb/)  
kbo( :, 1,53, 7) = (/&
 & 9.2203e-05_jprb,1.5178e-04_jprb,6.6684e-04_jprb,9.0491e-04_jprb,1.0248e-03_jprb,8.0095e-04_jprb/)  
kbo( :, 2,53, 7) = (/&
 & 1.0645e-04_jprb,1.8273e-04_jprb,7.3180e-04_jprb,9.7345e-04_jprb,1.0848e-03_jprb,8.1627e-04_jprb/)  
kbo( :, 3,53, 7) = (/&
 & 1.2645e-04_jprb,2.2480e-04_jprb,8.0421e-04_jprb,1.0432e-03_jprb,1.1420e-03_jprb,8.2935e-04_jprb/)  
kbo( :, 4,53, 7) = (/&
 & 1.5240e-04_jprb,2.8048e-04_jprb,8.9332e-04_jprb,1.1196e-03_jprb,1.1976e-03_jprb,8.4108e-04_jprb/)  
kbo( :, 5,53, 7) = (/&
 & 1.8493e-04_jprb,3.5120e-04_jprb,1.0092e-03_jprb,1.2130e-03_jprb,1.2568e-03_jprb,8.5144e-04_jprb/)  
kbo( :, 1,54, 7) = (/&
 & 7.4475e-05_jprb,1.2345e-04_jprb,5.4618e-04_jprb,7.4261e-04_jprb,8.4183e-04_jprb,6.5530e-04_jprb/)  
kbo( :, 2,54, 7) = (/&
 & 8.5959e-05_jprb,1.4923e-04_jprb,6.0251e-04_jprb,8.0294e-04_jprb,8.9490e-04_jprb,6.6891e-04_jprb/)  
kbo( :, 3,54, 7) = (/&
 & 1.0229e-04_jprb,1.8454e-04_jprb,6.6507e-04_jprb,8.6435e-04_jprb,9.4622e-04_jprb,6.8052e-04_jprb/)  
kbo( :, 4,54, 7) = (/&
 & 1.2399e-04_jprb,2.3208e-04_jprb,7.4156e-04_jprb,9.3133e-04_jprb,9.9626e-04_jprb,6.9113e-04_jprb/)  
kbo( :, 5,54, 7) = (/&
 & 1.5132e-04_jprb,2.9378e-04_jprb,8.4147e-04_jprb,1.0125e-03_jprb,1.0494e-03_jprb,7.0039e-04_jprb/)  
kbo( :, 1,55, 7) = (/&
 & 6.0192e-05_jprb,1.0040e-04_jprb,4.4700e-04_jprb,6.0908e-04_jprb,6.9112e-04_jprb,5.3444e-04_jprb/)  
kbo( :, 2,55, 7) = (/&
 & 6.9457e-05_jprb,1.2191e-04_jprb,4.9554e-04_jprb,6.6216e-04_jprb,7.3789e-04_jprb,5.4620e-04_jprb/)  
kbo( :, 3,55, 7) = (/&
 & 8.2806e-05_jprb,1.5147e-04_jprb,5.4968e-04_jprb,7.1596e-04_jprb,7.8355e-04_jprb,5.5595e-04_jprb/)  
kbo( :, 4,55, 7) = (/&
 & 1.0089e-04_jprb,1.9188e-04_jprb,6.1506e-04_jprb,7.7451e-04_jprb,8.2844e-04_jprb,5.6494e-04_jprb/)  
kbo( :, 5,55, 7) = (/&
 & 1.2391e-04_jprb,2.4549e-04_jprb,7.0152e-04_jprb,8.4524e-04_jprb,8.7589e-04_jprb,5.7264e-04_jprb/)  
kbo( :, 1,56, 7) = (/&
 & 4.8580e-05_jprb,8.1447e-05_jprb,3.6499e-04_jprb,4.9860e-04_jprb,5.6674e-04_jprb,4.3567e-04_jprb/)  
kbo( :, 2,56, 7) = (/&
 & 5.6047e-05_jprb,9.9320e-05_jprb,4.0649e-04_jprb,5.4492e-04_jprb,6.0760e-04_jprb,4.4586e-04_jprb/)  
kbo( :, 3,56, 7) = (/&
 & 6.6893e-05_jprb,1.2391e-04_jprb,4.5320e-04_jprb,5.9224e-04_jprb,6.4818e-04_jprb,4.5422e-04_jprb/)  
kbo( :, 4,56, 7) = (/&
 & 8.1912e-05_jprb,1.5812e-04_jprb,5.0921e-04_jprb,6.4326e-04_jprb,6.8817e-04_jprb,4.6166e-04_jprb/)  
kbo( :, 5,56, 7) = (/&
 & 1.0126e-04_jprb,2.0443e-04_jprb,5.8380e-04_jprb,7.0456e-04_jprb,7.3041e-04_jprb,4.6808e-04_jprb/)  
kbo( :, 1,57, 7) = (/&
 & 3.9160e-05_jprb,6.5848e-05_jprb,2.9734e-04_jprb,4.0720e-04_jprb,4.6401e-04_jprb,3.5487e-04_jprb/)  
kbo( :, 2,57, 7) = (/&
 & 4.5169e-05_jprb,8.0667e-05_jprb,3.3303e-04_jprb,4.4771e-04_jprb,4.9960e-04_jprb,3.6385e-04_jprb/)  
kbo( :, 3,57, 7) = (/&
 & 5.3922e-05_jprb,1.0107e-04_jprb,3.7271e-04_jprb,4.8901e-04_jprb,5.3556e-04_jprb,3.7100e-04_jprb/)  
kbo( :, 4,57, 7) = (/&
 & 6.6309e-05_jprb,1.2986e-04_jprb,4.2066e-04_jprb,5.3363e-04_jprb,5.7118e-04_jprb,3.7715e-04_jprb/)  
kbo( :, 5,57, 7) = (/&
 & 8.2558e-05_jprb,1.6957e-04_jprb,4.8458e-04_jprb,5.8660e-04_jprb,6.0854e-04_jprb,3.8261e-04_jprb/)  
kbo( :, 1,58, 7) = (/&
 & 3.1595e-05_jprb,5.3251e-05_jprb,2.4214e-04_jprb,3.3220e-04_jprb,3.7979e-04_jprb,2.8893e-04_jprb/)  
kbo( :, 2,58, 7) = (/&
 & 3.6453e-05_jprb,6.5530e-05_jprb,2.7256e-04_jprb,3.6744e-04_jprb,4.1068e-04_jprb,2.9670e-04_jprb/)  
kbo( :, 3,58, 7) = (/&
 & 4.3522e-05_jprb,8.2522e-05_jprb,3.0670e-04_jprb,4.0362e-04_jprb,4.4239e-04_jprb,3.0276e-04_jprb/)  
kbo( :, 4,58, 7) = (/&
 & 5.3718e-05_jprb,1.0672e-04_jprb,3.4774e-04_jprb,4.4273e-04_jprb,4.7408e-04_jprb,3.0780e-04_jprb/)  
kbo( :, 5,58, 7) = (/&
 & 6.7377e-05_jprb,1.4070e-04_jprb,4.0225e-04_jprb,4.8863e-04_jprb,5.0717e-04_jprb,3.1234e-04_jprb/)  
kbo( :, 1,59, 7) = (/&
 & 2.6095e-05_jprb,4.4557e-05_jprb,2.0135e-04_jprb,2.7586e-04_jprb,3.1509e-04_jprb,2.3542e-04_jprb/)  
kbo( :, 2,59, 7) = (/&
 & 3.0251e-05_jprb,5.5296e-05_jprb,2.2770e-04_jprb,3.0652e-04_jprb,3.4210e-04_jprb,2.4160e-04_jprb/)  
kbo( :, 3,59, 7) = (/&
 & 3.6364e-05_jprb,7.0315e-05_jprb,2.5762e-04_jprb,3.3839e-04_jprb,3.7008e-04_jprb,2.4615e-04_jprb/)  
kbo( :, 4,59, 7) = (/&
 & 4.5252e-05_jprb,9.1955e-05_jprb,2.9410e-04_jprb,3.7318e-04_jprb,3.9814e-04_jprb,2.4968e-04_jprb/)  
kbo( :, 5,59, 7) = (/&
 & 5.7239e-05_jprb,1.2271e-04_jprb,3.4336e-04_jprb,4.1464e-04_jprb,4.2794e-04_jprb,2.5280e-04_jprb/)  
kbo( :, 1,13, 8) = (/&
 & 3.0593e-01_jprb,3.0601e-01_jprb,5.8936e-01_jprb,8.8205e-01_jprb,1.0947e+00_jprb,1.1943e+00_jprb/)  
kbo( :, 2,13, 8) = (/&
 & 3.0576e-01_jprb,3.0585e-01_jprb,5.8416e-01_jprb,8.7445e-01_jprb,1.0842e+00_jprb,1.1946e+00_jprb/)  
kbo( :, 3,13, 8) = (/&
 & 3.0730e-01_jprb,3.0739e-01_jprb,5.7838e-01_jprb,8.6622e-01_jprb,1.0736e+00_jprb,1.1941e+00_jprb/)  
kbo( :, 4,13, 8) = (/&
 & 3.1143e-01_jprb,3.1153e-01_jprb,5.7236e-01_jprb,8.5664e-01_jprb,1.0623e+00_jprb,1.1926e+00_jprb/)  
kbo( :, 5,13, 8) = (/&
 & 3.1821e-01_jprb,3.1830e-01_jprb,5.6671e-01_jprb,8.4589e-01_jprb,1.0496e+00_jprb,1.1883e+00_jprb/)  
kbo( :, 1,14, 8) = (/&
 & 2.6541e-01_jprb,2.6552e-01_jprb,5.8043e-01_jprb,8.8352e-01_jprb,1.1026e+00_jprb,1.1931e+00_jprb/)  
kbo( :, 2,14, 8) = (/&
 & 2.6695e-01_jprb,2.6706e-01_jprb,5.7539e-01_jprb,8.7778e-01_jprb,1.0951e+00_jprb,1.1937e+00_jprb/)  
kbo( :, 3,14, 8) = (/&
 & 2.7112e-01_jprb,2.7123e-01_jprb,5.7000e-01_jprb,8.7108e-01_jprb,1.0869e+00_jprb,1.1910e+00_jprb/)  
kbo( :, 4,14, 8) = (/&
 & 2.7807e-01_jprb,2.7818e-01_jprb,5.6514e-01_jprb,8.6271e-01_jprb,1.0767e+00_jprb,1.1867e+00_jprb/)  
kbo( :, 5,14, 8) = (/&
 & 2.8739e-01_jprb,2.8751e-01_jprb,5.6126e-01_jprb,8.5280e-01_jprb,1.0643e+00_jprb,1.1809e+00_jprb/)  
kbo( :, 1,15, 8) = (/&
 & 2.3178e-01_jprb,2.3191e-01_jprb,5.7184e-01_jprb,8.7693e-01_jprb,1.1022e+00_jprb,1.1813e+00_jprb/)  
kbo( :, 2,15, 8) = (/&
 & 2.3560e-01_jprb,2.3573e-01_jprb,5.6724e-01_jprb,8.7349e-01_jprb,1.0976e+00_jprb,1.1800e+00_jprb/)  
kbo( :, 3,15, 8) = (/&
 & 2.4219e-01_jprb,2.4233e-01_jprb,5.6272e-01_jprb,8.6826e-01_jprb,1.0904e+00_jprb,1.1766e+00_jprb/)  
kbo( :, 4,15, 8) = (/&
 & 2.5074e-01_jprb,2.5088e-01_jprb,5.5919e-01_jprb,8.6097e-01_jprb,1.0807e+00_jprb,1.1720e+00_jprb/)  
kbo( :, 5,15, 8) = (/&
 & 2.6000e-01_jprb,2.6013e-01_jprb,5.5698e-01_jprb,8.5261e-01_jprb,1.0688e+00_jprb,1.1657e+00_jprb/)  
kbo( :, 1,16, 8) = (/&
 & 2.0414e-01_jprb,2.0429e-01_jprb,5.5967e-01_jprb,8.6370e-01_jprb,1.0904e+00_jprb,1.1562e+00_jprb/)  
kbo( :, 2,16, 8) = (/&
 & 2.1009e-01_jprb,2.1024e-01_jprb,5.5625e-01_jprb,8.6141e-01_jprb,1.0865e+00_jprb,1.1558e+00_jprb/)  
kbo( :, 3,16, 8) = (/&
 & 2.1753e-01_jprb,2.1768e-01_jprb,5.5355e-01_jprb,8.5657e-01_jprb,1.0800e+00_jprb,1.1537e+00_jprb/)  
kbo( :, 4,16, 8) = (/&
 & 2.2581e-01_jprb,2.2595e-01_jprb,5.5210e-01_jprb,8.5071e-01_jprb,1.0712e+00_jprb,1.1497e+00_jprb/)  
kbo( :, 5,16, 8) = (/&
 & 2.3451e-01_jprb,2.3466e-01_jprb,5.5166e-01_jprb,8.4445e-01_jprb,1.0599e+00_jprb,1.1442e+00_jprb/)  
kbo( :, 1,17, 8) = (/&
 & 1.8111e-01_jprb,1.8127e-01_jprb,5.4370e-01_jprb,8.4066e-01_jprb,1.0633e+00_jprb,1.1173e+00_jprb/)  
kbo( :, 2,17, 8) = (/&
 & 1.8751e-01_jprb,1.8767e-01_jprb,5.4225e-01_jprb,8.3870e-01_jprb,1.0603e+00_jprb,1.1188e+00_jprb/)  
kbo( :, 3,17, 8) = (/&
 & 1.9478e-01_jprb,1.9494e-01_jprb,5.4182e-01_jprb,8.3528e-01_jprb,1.0547e+00_jprb,1.1179e+00_jprb/)  
kbo( :, 4,17, 8) = (/&
 & 2.0226e-01_jprb,2.0242e-01_jprb,5.4242e-01_jprb,8.3135e-01_jprb,1.0462e+00_jprb,1.1153e+00_jprb/)  
kbo( :, 5,17, 8) = (/&
 & 2.0977e-01_jprb,2.0992e-01_jprb,5.4408e-01_jprb,8.2665e-01_jprb,1.0353e+00_jprb,1.1109e+00_jprb/)  
kbo( :, 1,18, 8) = (/&
 & 1.6037e-01_jprb,1.6054e-01_jprb,5.2354e-01_jprb,8.0743e-01_jprb,1.0214e+00_jprb,1.0665e+00_jprb/)  
kbo( :, 2,18, 8) = (/&
 & 1.6652e-01_jprb,1.6669e-01_jprb,5.2468e-01_jprb,8.0676e-01_jprb,1.0196e+00_jprb,1.0692e+00_jprb/)  
kbo( :, 3,18, 8) = (/&
 & 1.7290e-01_jprb,1.7307e-01_jprb,5.2655e-01_jprb,8.0477e-01_jprb,1.0147e+00_jprb,1.0691e+00_jprb/)  
kbo( :, 4,18, 8) = (/&
 & 1.7934e-01_jprb,1.7951e-01_jprb,5.2943e-01_jprb,8.0251e-01_jprb,1.0069e+00_jprb,1.0675e+00_jprb/)  
kbo( :, 5,18, 8) = (/&
 & 1.8580e-01_jprb,1.8596e-01_jprb,5.3218e-01_jprb,7.9996e-01_jprb,9.9675e-01_jprb,1.0641e+00_jprb/)  
kbo( :, 1,19, 8) = (/&
 & 1.4147e-01_jprb,1.4165e-01_jprb,4.9931e-01_jprb,7.6579e-01_jprb,9.6706e-01_jprb,1.0036e+00_jprb/)  
kbo( :, 2,19, 8) = (/&
 & 1.4680e-01_jprb,1.4699e-01_jprb,5.0235e-01_jprb,7.6624e-01_jprb,9.6598e-01_jprb,1.0066e+00_jprb/)  
kbo( :, 3,19, 8) = (/&
 & 1.5225e-01_jprb,1.5244e-01_jprb,5.0654e-01_jprb,7.6618e-01_jprb,9.6124e-01_jprb,1.0077e+00_jprb/)  
kbo( :, 4,19, 8) = (/&
 & 1.5772e-01_jprb,1.5791e-01_jprb,5.1074e-01_jprb,7.6598e-01_jprb,9.5363e-01_jprb,1.0072e+00_jprb/)  
kbo( :, 5,19, 8) = (/&
 & 1.6330e-01_jprb,1.6348e-01_jprb,5.1433e-01_jprb,7.6482e-01_jprb,9.4459e-01_jprb,1.0048e+00_jprb/)  
kbo( :, 1,20, 8) = (/&
 & 1.2415e-01_jprb,1.2435e-01_jprb,4.7152e-01_jprb,7.1700e-01_jprb,9.0180e-01_jprb,9.3194e-01_jprb/)  
kbo( :, 2,20, 8) = (/&
 & 1.2873e-01_jprb,1.2894e-01_jprb,4.7682e-01_jprb,7.1874e-01_jprb,9.0028e-01_jprb,9.3593e-01_jprb/)  
kbo( :, 3,20, 8) = (/&
 & 1.3332e-01_jprb,1.3352e-01_jprb,4.8227e-01_jprb,7.2020e-01_jprb,8.9592e-01_jprb,9.3812e-01_jprb/)  
kbo( :, 4,20, 8) = (/&
 & 1.3806e-01_jprb,1.3826e-01_jprb,4.8689e-01_jprb,7.2110e-01_jprb,8.9003e-01_jprb,9.3865e-01_jprb/)  
kbo( :, 5,20, 8) = (/&
 & 1.4304e-01_jprb,1.4323e-01_jprb,4.9097e-01_jprb,7.2157e-01_jprb,8.8366e-01_jprb,9.3774e-01_jprb/)  
kbo( :, 1,21, 8) = (/&
 & 1.0824e-01_jprb,1.0845e-01_jprb,4.4084e-01_jprb,6.6237e-01_jprb,8.2840e-01_jprb,8.5416e-01_jprb/)  
kbo( :, 2,21, 8) = (/&
 & 1.1215e-01_jprb,1.1237e-01_jprb,4.4741e-01_jprb,6.6560e-01_jprb,8.2721e-01_jprb,8.5880e-01_jprb/)  
kbo( :, 3,21, 8) = (/&
 & 1.1610e-01_jprb,1.1631e-01_jprb,4.5328e-01_jprb,6.6844e-01_jprb,8.2433e-01_jprb,8.6217e-01_jprb/)  
kbo( :, 4,21, 8) = (/&
 & 1.2031e-01_jprb,1.2052e-01_jprb,4.5831e-01_jprb,6.7112e-01_jprb,8.2101e-01_jprb,8.6470e-01_jprb/)  
kbo( :, 5,21, 8) = (/&
 & 1.2513e-01_jprb,1.2535e-01_jprb,4.6228e-01_jprb,6.7321e-01_jprb,8.1773e-01_jprb,8.6681e-01_jprb/)  
kbo( :, 1,22, 8) = (/&
 & 9.4136e-02_jprb,9.4356e-02_jprb,4.0812e-01_jprb,6.0557e-01_jprb,7.5102e-01_jprb,7.7334e-01_jprb/)  
kbo( :, 2,22, 8) = (/&
 & 9.7453e-02_jprb,9.7680e-02_jprb,4.1479e-01_jprb,6.0994e-01_jprb,7.5090e-01_jprb,7.7909e-01_jprb/)  
kbo( :, 3,22, 8) = (/&
 & 1.0097e-01_jprb,1.0120e-01_jprb,4.2075e-01_jprb,6.1446e-01_jprb,7.5039e-01_jprb,7.8458e-01_jprb/)  
kbo( :, 4,22, 8) = (/&
 & 1.0505e-01_jprb,1.0527e-01_jprb,4.2583e-01_jprb,6.1845e-01_jprb,7.5036e-01_jprb,7.8977e-01_jprb/)  
kbo( :, 5,22, 8) = (/&
 & 1.0993e-01_jprb,1.1016e-01_jprb,4.2991e-01_jprb,6.2156e-01_jprb,7.5073e-01_jprb,7.9510e-01_jprb/)  
kbo( :, 1,23, 8) = (/&
 & 8.1349e-02_jprb,8.1584e-02_jprb,3.7354e-01_jprb,5.4796e-01_jprb,6.7356e-01_jprb,6.9291e-01_jprb/)  
kbo( :, 2,23, 8) = (/&
 & 8.4276e-02_jprb,8.4510e-02_jprb,3.8021e-01_jprb,5.5386e-01_jprb,6.7570e-01_jprb,7.0065e-01_jprb/)  
kbo( :, 3,23, 8) = (/&
 & 8.7640e-02_jprb,8.7874e-02_jprb,3.8598e-01_jprb,5.5948e-01_jprb,6.7838e-01_jprb,7.0844e-01_jprb/)  
kbo( :, 4,23, 8) = (/&
 & 9.1780e-02_jprb,9.2021e-02_jprb,3.9102e-01_jprb,5.6473e-01_jprb,6.8175e-01_jprb,7.1651e-01_jprb/)  
kbo( :, 5,23, 8) = (/&
 & 9.6686e-02_jprb,9.6939e-02_jprb,3.9533e-01_jprb,5.6950e-01_jprb,6.8602e-01_jprb,7.2456e-01_jprb/)  
kbo( :, 1,24, 8) = (/&
 & 6.9990e-02_jprb,7.0237e-02_jprb,3.3858e-01_jprb,4.9217e-01_jprb,5.9977e-01_jprb,6.1602e-01_jprb/)  
kbo( :, 2,24, 8) = (/&
 & 7.2713e-02_jprb,7.2959e-02_jprb,3.4483e-01_jprb,4.9901e-01_jprb,6.0467e-01_jprb,6.2572e-01_jprb/)  
kbo( :, 3,24, 8) = (/&
 & 7.6092e-02_jprb,7.6339e-02_jprb,3.5052e-01_jprb,5.0586e-01_jprb,6.1039e-01_jprb,6.3593e-01_jprb/)  
kbo( :, 4,24, 8) = (/&
 & 8.0272e-02_jprb,8.0531e-02_jprb,3.5585e-01_jprb,5.1250e-01_jprb,6.1729e-01_jprb,6.4602e-01_jprb/)  
kbo( :, 5,24, 8) = (/&
 & 8.5043e-02_jprb,8.5307e-02_jprb,3.6095e-01_jprb,5.1914e-01_jprb,6.2467e-01_jprb,6.5479e-01_jprb/)  
kbo( :, 1,25, 8) = (/&
 & 6.0058e-02_jprb,6.0325e-02_jprb,3.0404e-01_jprb,4.3931e-01_jprb,5.3180e-01_jprb,5.4488e-01_jprb/)  
kbo( :, 2,25, 8) = (/&
 & 6.2808e-02_jprb,6.3070e-02_jprb,3.1019e-01_jprb,4.4720e-01_jprb,5.3927e-01_jprb,5.5647e-01_jprb/)  
kbo( :, 3,25, 8) = (/&
 & 6.6253e-02_jprb,6.6517e-02_jprb,3.1620e-01_jprb,4.5515e-01_jprb,5.4804e-01_jprb,5.6793e-01_jprb/)  
kbo( :, 4,25, 8) = (/&
 & 7.0286e-02_jprb,7.0564e-02_jprb,3.2210e-01_jprb,4.6317e-01_jprb,5.5729e-01_jprb,5.7748e-01_jprb/)  
kbo( :, 5,25, 8) = (/&
 & 7.4631e-02_jprb,7.4904e-02_jprb,3.2818e-01_jprb,4.7084e-01_jprb,5.6535e-01_jprb,5.8428e-01_jprb/)  
kbo( :, 1,26, 8) = (/&
 & 5.1659e-02_jprb,5.1968e-02_jprb,2.7136e-01_jprb,3.9044e-01_jprb,4.7061e-01_jprb,4.8066e-01_jprb/)  
kbo( :, 2,26, 8) = (/&
 & 5.4454e-02_jprb,5.4749e-02_jprb,2.7780e-01_jprb,3.9925e-01_jprb,4.8060e-01_jprb,4.9280e-01_jprb/)  
kbo( :, 3,26, 8) = (/&
 & 5.7864e-02_jprb,5.8160e-02_jprb,2.8427e-01_jprb,4.0818e-01_jprb,4.9092e-01_jprb,5.0289e-01_jprb/)  
kbo( :, 4,26, 8) = (/&
 & 6.1551e-02_jprb,6.1849e-02_jprb,2.9095e-01_jprb,4.1685e-01_jprb,4.9998e-01_jprb,5.1033e-01_jprb/)  
kbo( :, 5,26, 8) = (/&
 & 6.5434e-02_jprb,6.5724e-02_jprb,2.9806e-01_jprb,4.2453e-01_jprb,5.0716e-01_jprb,5.1469e-01_jprb/)  
kbo( :, 1,27, 8) = (/&
 & 4.4574e-02_jprb,4.4959e-02_jprb,2.4126e-01_jprb,3.4609e-01_jprb,4.1629e-01_jprb,4.2248e-01_jprb/)  
kbo( :, 2,27, 8) = (/&
 & 4.7372e-02_jprb,4.7727e-02_jprb,2.4803e-01_jprb,3.5548e-01_jprb,4.2721e-01_jprb,4.3291e-01_jprb/)  
kbo( :, 3,27, 8) = (/&
 & 5.0509e-02_jprb,5.0855e-02_jprb,2.5505e-01_jprb,3.6464e-01_jprb,4.3687e-01_jprb,4.4067e-01_jprb/)  
kbo( :, 4,27, 8) = (/&
 & 5.3857e-02_jprb,5.4187e-02_jprb,2.6242e-01_jprb,3.7281e-01_jprb,4.4478e-01_jprb,4.4531e-01_jprb/)  
kbo( :, 5,27, 8) = (/&
 & 5.7275e-02_jprb,5.7589e-02_jprb,2.7029e-01_jprb,3.7997e-01_jprb,4.5055e-01_jprb,4.4651e-01_jprb/)  
kbo( :, 1,28, 8) = (/&
 & 3.8595e-02_jprb,3.9083e-02_jprb,2.1409e-01_jprb,3.0626e-01_jprb,3.6758e-01_jprb,3.6870e-01_jprb/)  
kbo( :, 2,28, 8) = (/&
 & 4.1250e-02_jprb,4.1701e-02_jprb,2.2115e-01_jprb,3.1552e-01_jprb,3.7756e-01_jprb,3.7664e-01_jprb/)  
kbo( :, 3,28, 8) = (/&
 & 4.4090e-02_jprb,4.4510e-02_jprb,2.2858e-01_jprb,3.2391e-01_jprb,3.8579e-01_jprb,3.8144e-01_jprb/)  
kbo( :, 4,28, 8) = (/&
 & 4.7006e-02_jprb,4.7391e-02_jprb,2.3638e-01_jprb,3.3136e-01_jprb,3.9193e-01_jprb,3.8299e-01_jprb/)  
kbo( :, 5,28, 8) = (/&
 & 5.0054e-02_jprb,5.0402e-02_jprb,2.4452e-01_jprb,3.3791e-01_jprb,3.9580e-01_jprb,3.8186e-01_jprb/)  
kbo( :, 1,29, 8) = (/&
 & 3.3476e-02_jprb,3.4098e-02_jprb,1.8985e-01_jprb,2.7044e-01_jprb,3.2310e-01_jprb,3.1910e-01_jprb/)  
kbo( :, 2,29, 8) = (/&
 & 3.5905e-02_jprb,3.6473e-02_jprb,1.9710e-01_jprb,2.7881e-01_jprb,3.3147e-01_jprb,3.2409e-01_jprb/)  
kbo( :, 3,29, 8) = (/&
 & 3.8420e-02_jprb,3.8933e-02_jprb,2.0468e-01_jprb,2.8629e-01_jprb,3.3775e-01_jprb,3.2611e-01_jprb/)  
kbo( :, 4,29, 8) = (/&
 & 4.1043e-02_jprb,4.1502e-02_jprb,2.1261e-01_jprb,2.9284e-01_jprb,3.4187e-01_jprb,3.2584e-01_jprb/)  
kbo( :, 5,29, 8) = (/&
 & 4.3764e-02_jprb,4.4163e-02_jprb,2.2069e-01_jprb,2.9879e-01_jprb,3.4414e-01_jprb,3.2382e-01_jprb/)  
kbo( :, 1,30, 8) = (/&
 & 2.9059e-02_jprb,2.9833e-02_jprb,1.6831e-01_jprb,2.3789e-01_jprb,2.8228e-01_jprb,2.7330e-01_jprb/)  
kbo( :, 2,30, 8) = (/&
 & 3.1236e-02_jprb,3.1934e-02_jprb,1.7554e-01_jprb,2.4524e-01_jprb,2.8861e-01_jprb,2.7583e-01_jprb/)  
kbo( :, 3,30, 8) = (/&
 & 3.3473e-02_jprb,3.4095e-02_jprb,1.8314e-01_jprb,2.5166e-01_jprb,2.9297e-01_jprb,2.7628e-01_jprb/)  
kbo( :, 4,30, 8) = (/&
 & 3.5829e-02_jprb,3.6370e-02_jprb,1.9099e-01_jprb,2.5743e-01_jprb,2.9573e-01_jprb,2.7526e-01_jprb/)  
kbo( :, 5,30, 8) = (/&
 & 3.8342e-02_jprb,3.8806e-02_jprb,1.9889e-01_jprb,2.6291e-01_jprb,2.9753e-01_jprb,2.7308e-01_jprb/)  
kbo( :, 1,31, 8) = (/&
 & 2.5215e-02_jprb,2.6144e-02_jprb,1.4919e-01_jprb,2.0841e-01_jprb,2.4479e-01_jprb,2.3198e-01_jprb/)  
kbo( :, 2,31, 8) = (/&
 & 2.7144e-02_jprb,2.7979e-02_jprb,1.5634e-01_jprb,2.1462e-01_jprb,2.4940e-01_jprb,2.3311e-01_jprb/)  
kbo( :, 3,31, 8) = (/&
 & 2.9169e-02_jprb,2.9907e-02_jprb,1.6380e-01_jprb,2.2020e-01_jprb,2.5250e-01_jprb,2.3291e-01_jprb/)  
kbo( :, 4,31, 8) = (/&
 & 3.1339e-02_jprb,3.1975e-02_jprb,1.7145e-01_jprb,2.2560e-01_jprb,2.5484e-01_jprb,2.3169e-01_jprb/)  
kbo( :, 5,31, 8) = (/&
 & 3.3710e-02_jprb,3.4248e-02_jprb,1.7897e-01_jprb,2.3122e-01_jprb,2.5681e-01_jprb,2.2968e-01_jprb/)  
kbo( :, 1,32, 8) = (/&
 & 2.1908e-02_jprb,2.2988e-02_jprb,1.3234e-01_jprb,1.8179e-01_jprb,2.1098e-01_jprb,1.9567e-01_jprb/)  
kbo( :, 2,32, 8) = (/&
 & 2.3644e-02_jprb,2.4617e-02_jprb,1.3932e-01_jprb,1.8712e-01_jprb,2.1438e-01_jprb,1.9614e-01_jprb/)  
kbo( :, 3,32, 8) = (/&
 & 2.5493e-02_jprb,2.6345e-02_jprb,1.4655e-01_jprb,1.9237e-01_jprb,2.1705e-01_jprb,1.9570e-01_jprb/)  
kbo( :, 4,32, 8) = (/&
 & 2.7518e-02_jprb,2.8252e-02_jprb,1.5380e-01_jprb,1.9790e-01_jprb,2.1948e-01_jprb,1.9455e-01_jprb/)  
kbo( :, 5,32, 8) = (/&
 & 2.9773e-02_jprb,3.0387e-02_jprb,1.6098e-01_jprb,2.0383e-01_jprb,2.2190e-01_jprb,1.9286e-01_jprb/)  
kbo( :, 1,33, 8) = (/&
 & 1.9045e-02_jprb,2.0261e-02_jprb,1.1752e-01_jprb,1.5812e-01_jprb,1.8110e-01_jprb,1.6448e-01_jprb/)  
kbo( :, 2,33, 8) = (/&
 & 2.0626e-02_jprb,2.1724e-02_jprb,1.2423e-01_jprb,1.6307e-01_jprb,1.8397e-01_jprb,1.6464e-01_jprb/)  
kbo( :, 3,33, 8) = (/&
 & 2.2336e-02_jprb,2.3302e-02_jprb,1.3114e-01_jprb,1.6839e-01_jprb,1.8664e-01_jprb,1.6418e-01_jprb/)  
kbo( :, 4,33, 8) = (/&
 & 2.4266e-02_jprb,2.5093e-02_jprb,1.3811e-01_jprb,1.7421e-01_jprb,1.8938e-01_jprb,1.6325e-01_jprb/)  
kbo( :, 5,33, 8) = (/&
 & 2.6466e-02_jprb,2.7164e-02_jprb,1.4513e-01_jprb,1.8048e-01_jprb,1.9238e-01_jprb,1.6211e-01_jprb/)  
kbo( :, 1,34, 8) = (/&
 & 1.6556e-02_jprb,1.7892e-02_jprb,1.0429e-01_jprb,1.3736e-01_jprb,1.5516e-01_jprb,1.3789e-01_jprb/)  
kbo( :, 2,34, 8) = (/&
 & 1.7996e-02_jprb,1.9210e-02_jprb,1.1072e-01_jprb,1.4236e-01_jprb,1.5794e-01_jprb,1.3797e-01_jprb/)  
kbo( :, 3,34, 8) = (/&
 & 1.9608e-02_jprb,2.0681e-02_jprb,1.1739e-01_jprb,1.4788e-01_jprb,1.6081e-01_jprb,1.3764e-01_jprb/)  
kbo( :, 4,34, 8) = (/&
 & 2.1464e-02_jprb,2.2387e-02_jprb,1.2421e-01_jprb,1.5396e-01_jprb,1.6395e-01_jprb,1.3706e-01_jprb/)  

IF (lhook) CALL dr_hook('RRTM_KGB4:PART23',1,zhook_handle)
END SUBROUTINE part23


SUBROUTINE part24

REAL(KIND=JPRB) :: ZHOOK_HANDLE
IF (lhook) CALL dr_hook('RRTM_KGB4:PART24',0,zhook_handle)


kbo( :, 5,34, 8) = (/&
 & 2.3594e-02_jprb,2.4379e-02_jprb,1.3126e-01_jprb,1.6048e-01_jprb,1.6756e-01_jprb,1.3645e-01_jprb/)  
kbo( :, 1,35, 8) = (/&
 & 1.4319e-02_jprb,1.5758e-02_jprb,9.2204e-02_jprb,1.1925e-01_jprb,1.3286e-01_jprb,1.1548e-01_jprb/)  
kbo( :, 2,35, 8) = (/&
 & 1.5652e-02_jprb,1.6978e-02_jprb,9.8399e-02_jprb,1.2433e-01_jprb,1.3567e-01_jprb,1.1564e-01_jprb/)  
kbo( :, 3,35, 8) = (/&
 & 1.7169e-02_jprb,1.8350e-02_jprb,1.0487e-01_jprb,1.3003e-01_jprb,1.3879e-01_jprb,1.1554e-01_jprb/)  
kbo( :, 4,35, 8) = (/&
 & 1.8944e-02_jprb,1.9975e-02_jprb,1.1167e-01_jprb,1.3629e-01_jprb,1.4236e-01_jprb,1.1534e-01_jprb/)  
kbo( :, 5,35, 8) = (/&
 & 2.0938e-02_jprb,2.1824e-02_jprb,1.1877e-01_jprb,1.4294e-01_jprb,1.4651e-01_jprb,1.1522e-01_jprb/)  
kbo( :, 1,36, 8) = (/&
 & 1.2304e-02_jprb,1.3829e-02_jprb,8.1120e-02_jprb,1.0334e-01_jprb,1.1366e-01_jprb,9.6686e-02_jprb/)  
kbo( :, 2,36, 8) = (/&
 & 1.3517e-02_jprb,1.4942e-02_jprb,8.7082e-02_jprb,1.0850e-01_jprb,1.1660e-01_jprb,9.6981e-02_jprb/)  
kbo( :, 3,36, 8) = (/&
 & 1.4939e-02_jprb,1.6232e-02_jprb,9.3439e-02_jprb,1.1431e-01_jprb,1.1995e-01_jprb,9.7085e-02_jprb/)  
kbo( :, 4,36, 8) = (/&
 & 1.6604e-02_jprb,1.7754e-02_jprb,1.0020e-01_jprb,1.2061e-01_jprb,1.2384e-01_jprb,9.7245e-02_jprb/)  
kbo( :, 5,36, 8) = (/&
 & 1.8458e-02_jprb,1.9458e-02_jprb,1.0732e-01_jprb,1.2741e-01_jprb,1.2840e-01_jprb,9.7611e-02_jprb/)  
kbo( :, 1,37, 8) = (/&
 & 1.0441e-02_jprb,1.2037e-02_jprb,7.0733e-02_jprb,8.9104e-02_jprb,9.7006e-02_jprb,8.0853e-02_jprb/)  
kbo( :, 2,37, 8) = (/&
 & 1.1538e-02_jprb,1.3055e-02_jprb,7.6444e-02_jprb,9.4227e-02_jprb,1.0002e-01_jprb,8.1261e-02_jprb/)  
kbo( :, 3,37, 8) = (/&
 & 1.2840e-02_jprb,1.4247e-02_jprb,8.2653e-02_jprb,9.9992e-02_jprb,1.0351e-01_jprb,8.1587e-02_jprb/)  
kbo( :, 4,37, 8) = (/&
 & 1.4355e-02_jprb,1.5634e-02_jprb,8.9312e-02_jprb,1.0629e-01_jprb,1.0761e-01_jprb,8.2022e-02_jprb/)  
kbo( :, 5,37, 8) = (/&
 & 1.6059e-02_jprb,1.7188e-02_jprb,9.6394e-02_jprb,1.1316e-01_jprb,1.1240e-01_jprb,8.2731e-02_jprb/)  
kbo( :, 1,38, 8) = (/&
 & 8.8645e-03_jprb,1.0501e-02_jprb,6.1698e-02_jprb,7.6908e-02_jprb,8.2883e-02_jprb,6.7642e-02_jprb/)  
kbo( :, 2,38, 8) = (/&
 & 9.8554e-03_jprb,1.1441e-02_jprb,6.7213e-02_jprb,8.1954e-02_jprb,8.5931e-02_jprb,6.8150e-02_jprb/)  
kbo( :, 3,38, 8) = (/&
 & 1.1041e-02_jprb,1.2540e-02_jprb,7.3258e-02_jprb,8.7642e-02_jprb,8.9506e-02_jprb,6.8667e-02_jprb/)  
kbo( :, 4,38, 8) = (/&
 & 1.2430e-02_jprb,1.3817e-02_jprb,7.9801e-02_jprb,9.3936e-02_jprb,9.3782e-02_jprb,6.9339e-02_jprb/)  
kbo( :, 5,38, 8) = (/&
 & 1.3983e-02_jprb,1.5235e-02_jprb,8.6814e-02_jprb,1.0083e-01_jprb,9.8742e-02_jprb,7.0319e-02_jprb/)  
kbo( :, 1,39, 8) = (/&
 & 7.5404e-03_jprb,9.1874e-03_jprb,5.3906e-02_jprb,6.6495e-02_jprb,7.0902e-02_jprb,5.6657e-02_jprb/)  
kbo( :, 2,39, 8) = (/&
 & 8.4340e-03_jprb,1.0061e-02_jprb,5.9245e-02_jprb,7.1435e-02_jprb,7.3979e-02_jprb,5.7261e-02_jprb/)  
kbo( :, 3,39, 8) = (/&
 & 9.5242e-03_jprb,1.1089e-02_jprb,6.5132e-02_jprb,7.7048e-02_jprb,7.7636e-02_jprb,5.7943e-02_jprb/)  
kbo( :, 4,39, 8) = (/&
 & 1.0781e-02_jprb,1.2259e-02_jprb,7.1549e-02_jprb,8.3326e-02_jprb,8.2004e-02_jprb,5.8823e-02_jprb/)  
kbo( :, 5,39, 8) = (/&
 & 1.2213e-02_jprb,1.3570e-02_jprb,7.8488e-02_jprb,9.0234e-02_jprb,8.7139e-02_jprb,6.0045e-02_jprb/)  
kbo( :, 1,40, 8) = (/&
 & 6.3480e-03_jprb,7.9841e-03_jprb,4.6707e-02_jprb,5.7154e-02_jprb,6.0478e-02_jprb,4.7309e-02_jprb/)  
kbo( :, 2,40, 8) = (/&
 & 7.1416e-03_jprb,8.7876e-03_jprb,5.1799e-02_jprb,6.1892e-02_jprb,6.3504e-02_jprb,4.7969e-02_jprb/)  
kbo( :, 3,40, 8) = (/&
 & 8.1113e-03_jprb,9.7274e-03_jprb,5.7484e-02_jprb,6.7350e-02_jprb,6.7140e-02_jprb,4.8718e-02_jprb/)  
kbo( :, 4,40, 8) = (/&
 & 9.2465e-03_jprb,1.0801e-02_jprb,6.3707e-02_jprb,7.3511e-02_jprb,7.1497e-02_jprb,4.9676e-02_jprb/)  
kbo( :, 5,40, 8) = (/&
 & 1.0544e-02_jprb,1.2001e-02_jprb,7.0505e-02_jprb,8.0368e-02_jprb,7.6674e-02_jprb,5.0981e-02_jprb/)  
kbo( :, 1,41, 8) = (/&
 & 5.3391e-03_jprb,6.9383e-03_jprb,4.0421e-02_jprb,4.9104e-02_jprb,5.1567e-02_jprb,3.9495e-02_jprb/)  
kbo( :, 2,41, 8) = (/&
 & 6.0420e-03_jprb,7.6785e-03_jprb,4.5260e-02_jprb,5.3617e-02_jprb,5.4523e-02_jprb,4.0174e-02_jprb/)  
kbo( :, 3,41, 8) = (/&
 & 6.9017e-03_jprb,8.5389e-03_jprb,5.0726e-02_jprb,5.8886e-02_jprb,5.8106e-02_jprb,4.0950e-02_jprb/)  
kbo( :, 4,41, 8) = (/&
 & 7.9215e-03_jprb,9.5281e-03_jprb,5.6758e-02_jprb,6.4894e-02_jprb,6.2425e-02_jprb,4.1953e-02_jprb/)  
kbo( :, 5,41, 8) = (/&
 & 9.0958e-03_jprb,1.0632e-02_jprb,6.3380e-02_jprb,7.1665e-02_jprb,6.7575e-02_jprb,4.3294e-02_jprb/)  
kbo( :, 1,42, 8) = (/&
 & 4.4874e-03_jprb,6.0277e-03_jprb,3.4973e-02_jprb,4.2181e-02_jprb,4.3972e-02_jprb,3.2976e-02_jprb/)  
kbo( :, 2,42, 8) = (/&
 & 5.1084e-03_jprb,6.7117e-03_jprb,3.9569e-02_jprb,4.6481e-02_jprb,4.6838e-02_jprb,3.3656e-02_jprb/)  
kbo( :, 3,42, 8) = (/&
 & 5.8774e-03_jprb,7.5092e-03_jprb,4.4793e-02_jprb,5.1534e-02_jprb,5.0349e-02_jprb,3.4440e-02_jprb/)  
kbo( :, 4,42, 8) = (/&
 & 6.7906e-03_jprb,8.4227e-03_jprb,5.0631e-02_jprb,5.7384e-02_jprb,5.4620e-02_jprb,3.5462e-02_jprb/)  
kbo( :, 5,42, 8) = (/&
 & 7.8525e-03_jprb,9.4467e-03_jprb,5.7082e-02_jprb,6.4044e-02_jprb,5.9718e-02_jprb,3.6824e-02_jprb/)  
kbo( :, 1,43, 8) = (/&
 & 3.7422e-03_jprb,5.2033e-03_jprb,3.0024e-02_jprb,3.6022e-02_jprb,3.7358e-02_jprb,2.7486e-02_jprb/)  
kbo( :, 2,43, 8) = (/&
 & 4.2855e-03_jprb,5.8316e-03_jprb,3.4344e-02_jprb,4.0070e-02_jprb,4.0089e-02_jprb,2.8154e-02_jprb/)  
kbo( :, 3,43, 8) = (/&
 & 4.9638e-03_jprb,6.5666e-03_jprb,3.9296e-02_jprb,4.4870e-02_jprb,4.3472e-02_jprb,2.8929e-02_jprb/)  
kbo( :, 4,43, 8) = (/&
 & 5.7736e-03_jprb,7.4071e-03_jprb,4.4883e-02_jprb,5.0478e-02_jprb,4.7614e-02_jprb,2.9920e-02_jprb/)  
kbo( :, 5,43, 8) = (/&
 & 6.7269e-03_jprb,8.3547e-03_jprb,5.1126e-02_jprb,5.6946e-02_jprb,5.2603e-02_jprb,3.1259e-02_jprb/)  
kbo( :, 1,44, 8) = (/&
 & 3.1123e-03_jprb,4.4787e-03_jprb,2.5629e-02_jprb,3.0645e-02_jprb,3.1662e-02_jprb,2.2891e-02_jprb/)  
kbo( :, 2,44, 8) = (/&
 & 3.5819e-03_jprb,5.0510e-03_jprb,2.9662e-02_jprb,3.4404e-02_jprb,3.4213e-02_jprb,2.3525e-02_jprb/)  
kbo( :, 3,44, 8) = (/&
 & 4.1717e-03_jprb,5.7219e-03_jprb,3.4337e-02_jprb,3.8941e-02_jprb,3.7437e-02_jprb,2.4274e-02_jprb/)  
kbo( :, 4,44, 8) = (/&
 & 4.8874e-03_jprb,6.4997e-03_jprb,3.9651e-02_jprb,4.4278e-02_jprb,4.1431e-02_jprb,2.5229e-02_jprb/)  
kbo( :, 5,44, 8) = (/&
 & 5.7377e-03_jprb,7.3726e-03_jprb,4.5649e-02_jprb,5.0511e-02_jprb,4.6265e-02_jprb,2.6526e-02_jprb/)  
kbo( :, 1,45, 8) = (/&
 & 2.5853e-03_jprb,3.8513e-03_jprb,2.1823e-02_jprb,2.6026e-02_jprb,2.6804e-02_jprb,1.9058e-02_jprb/)  
kbo( :, 2,45, 8) = (/&
 & 2.9888e-03_jprb,4.3719e-03_jprb,2.5563e-02_jprb,2.9502e-02_jprb,2.9182e-02_jprb,1.9668e-02_jprb/)  
kbo( :, 3,45, 8) = (/&
 & 3.5037e-03_jprb,4.9832e-03_jprb,2.9957e-02_jprb,3.3763e-02_jprb,3.2213e-02_jprb,2.0379e-02_jprb/)  
kbo( :, 4,45, 8) = (/&
 & 4.1322e-03_jprb,5.6995e-03_jprb,3.5000e-02_jprb,3.8824e-02_jprb,3.6032e-02_jprb,2.1286e-02_jprb/)  
kbo( :, 5,45, 8) = (/&
 & 4.8892e-03_jprb,6.5060e-03_jprb,4.0741e-02_jprb,4.4793e-02_jprb,4.0699e-02_jprb,2.2533e-02_jprb/)  
kbo( :, 1,46, 8) = (/&
 & 2.1331e-03_jprb,3.2909e-03_jprb,1.8461e-02_jprb,2.1996e-02_jprb,2.2623e-02_jprb,1.5851e-02_jprb/)  
kbo( :, 2,46, 8) = (/&
 & 2.4815e-03_jprb,3.7686e-03_jprb,2.1893e-02_jprb,2.5181e-02_jprb,2.4805e-02_jprb,1.6418e-02_jprb/)  
kbo( :, 3,46, 8) = (/&
 & 2.9255e-03_jprb,4.3224e-03_jprb,2.5992e-02_jprb,2.9135e-02_jprb,2.7620e-02_jprb,1.7082e-02_jprb/)  
kbo( :, 4,46, 8) = (/&
 & 3.4773e-03_jprb,4.9794e-03_jprb,3.0754e-02_jprb,3.3905e-02_jprb,3.1233e-02_jprb,1.7942e-02_jprb/)  
kbo( :, 5,46, 8) = (/&
 & 4.1439e-03_jprb,5.7240e-03_jprb,3.6209e-02_jprb,3.9579e-02_jprb,3.5705e-02_jprb,1.9124e-02_jprb/)  
kbo( :, 1,47, 8) = (/&
 & 1.7489e-03_jprb,2.7917e-03_jprb,1.5439e-02_jprb,1.8422e-02_jprb,1.8978e-02_jprb,1.3134e-02_jprb/)  
kbo( :, 2,47, 8) = (/&
 & 2.0428e-03_jprb,3.2234e-03_jprb,1.8541e-02_jprb,2.1302e-02_jprb,2.0952e-02_jprb,1.3661e-02_jprb/)  
kbo( :, 3,47, 8) = (/&
 & 2.4192e-03_jprb,3.7223e-03_jprb,2.2314e-02_jprb,2.4927e-02_jprb,2.3525e-02_jprb,1.4273e-02_jprb/)  
kbo( :, 4,47, 8) = (/&
 & 2.8969e-03_jprb,4.3171e-03_jprb,2.6764e-02_jprb,2.9356e-02_jprb,2.6874e-02_jprb,1.5058e-02_jprb/)  
kbo( :, 5,47, 8) = (/&
 & 3.4807e-03_jprb,5.0006e-03_jprb,3.1906e-02_jprb,3.4693e-02_jprb,3.1094e-02_jprb,1.6142e-02_jprb/)  
kbo( :, 1,48, 8) = (/&
 & 1.4327e-03_jprb,2.3618e-03_jprb,1.2851e-02_jprb,1.5372e-02_jprb,1.5885e-02_jprb,1.0883e-02_jprb/)  
kbo( :, 2,48, 8) = (/&
 & 1.6785e-03_jprb,2.7495e-03_jprb,1.5626e-02_jprb,1.7950e-02_jprb,1.7654e-02_jprb,1.1366e-02_jprb/)  
kbo( :, 3,48, 8) = (/&
 & 1.9967e-03_jprb,3.1986e-03_jprb,1.9069e-02_jprb,2.1252e-02_jprb,1.9987e-02_jprb,1.1922e-02_jprb/)  
kbo( :, 4,48, 8) = (/&
 & 2.4067e-03_jprb,3.7350e-03_jprb,2.3203e-02_jprb,2.5339e-02_jprb,2.3066e-02_jprb,1.2640e-02_jprb/)  
kbo( :, 5,48, 8) = (/&
 & 2.9156e-03_jprb,4.3597e-03_jprb,2.8035e-02_jprb,3.0335e-02_jprb,2.7010e-02_jprb,1.3635e-02_jprb/)  
kbo( :, 1,49, 8) = (/&
 & 1.1689e-03_jprb,1.9883e-03_jprb,1.0644e-02_jprb,1.2774e-02_jprb,1.3257e-02_jprb,9.0102e-03_jprb/)  
kbo( :, 2,49, 8) = (/&
 & 1.3778e-03_jprb,2.3380e-03_jprb,1.3100e-02_jprb,1.5054e-02_jprb,1.4830e-02_jprb,9.4528e-03_jprb/)  
kbo( :, 3,49, 8) = (/&
 & 1.6437e-03_jprb,2.7417e-03_jprb,1.6213e-02_jprb,1.8042e-02_jprb,1.6928e-02_jprb,9.9612e-03_jprb/)  
kbo( :, 4,49, 8) = (/&
 & 1.9940e-03_jprb,3.2236e-03_jprb,2.0024e-02_jprb,2.1800e-02_jprb,1.9739e-02_jprb,1.0620e-02_jprb/)  
kbo( :, 5,49, 8) = (/&
 & 2.4346e-03_jprb,3.7942e-03_jprb,2.4548e-02_jprb,2.6440e-02_jprb,2.3396e-02_jprb,1.1534e-02_jprb/)  
kbo( :, 1,50, 8) = (/&
 & 9.5607e-04_jprb,1.6753e-03_jprb,8.8167e-03_jprb,1.0612e-02_jprb,1.1052e-02_jprb,7.4373e-03_jprb/)  
kbo( :, 2,50, 8) = (/&
 & 1.1316e-03_jprb,1.9897e-03_jprb,1.0983e-02_jprb,1.2621e-02_jprb,1.2456e-02_jprb,7.8368e-03_jprb/)  
kbo( :, 3,50, 8) = (/&
 & 1.3565e-03_jprb,2.3537e-03_jprb,1.3790e-02_jprb,1.5320e-02_jprb,1.4346e-02_jprb,8.2918e-03_jprb/)  
kbo( :, 4,50, 8) = (/&
 & 1.6563e-03_jprb,2.7888e-03_jprb,1.7295e-02_jprb,1.8780e-02_jprb,1.6915e-02_jprb,8.8832e-03_jprb/)  
kbo( :, 5,50, 8) = (/&
 & 2.0379e-03_jprb,3.3085e-03_jprb,2.1524e-02_jprb,2.3092e-02_jprb,2.0305e-02_jprb,9.7144e-03_jprb/)  
kbo( :, 1,51, 8) = (/&
 & 7.8250e-04_jprb,1.4092e-03_jprb,7.2896e-03_jprb,8.7965e-03_jprb,9.1930e-03_jprb,6.1252e-03_jprb/)  
kbo( :, 2,51, 8) = (/&
 & 9.2963e-04_jprb,1.6917e-03_jprb,9.1856e-03_jprb,1.0556e-02_jprb,1.0442e-02_jprb,6.4818e-03_jprb/)  
kbo( :, 3,51, 8) = (/&
 & 1.1199e-03_jprb,2.0205e-03_jprb,1.1706e-02_jprb,1.2981e-02_jprb,1.2146e-02_jprb,6.8899e-03_jprb/)  
kbo( :, 4,51, 8) = (/&
 & 1.3754e-03_jprb,2.4116e-03_jprb,1.4910e-02_jprb,1.6157e-02_jprb,1.4484e-02_jprb,7.4151e-03_jprb/)  
kbo( :, 5,51, 8) = (/&
 & 1.7057e-03_jprb,2.8850e-03_jprb,1.8848e-02_jprb,2.0162e-02_jprb,1.7617e-02_jprb,8.1571e-03_jprb/)  
kbo( :, 1,52, 8) = (/&
 & 6.3740e-04_jprb,1.1795e-03_jprb,6.0058e-03_jprb,7.2694e-03_jprb,7.6231e-03_jprb,5.0413e-03_jprb/)  
kbo( :, 2,52, 8) = (/&
 & 7.6292e-04_jprb,1.4345e-03_jprb,7.6473e-03_jprb,8.7976e-03_jprb,8.7274e-03_jprb,5.3621e-03_jprb/)  
kbo( :, 3,52, 8) = (/&
 & 9.2276e-04_jprb,1.7301e-03_jprb,9.8884e-03_jprb,1.0949e-02_jprb,1.0250e-02_jprb,5.7262e-03_jprb/)  
kbo( :, 4,52, 8) = (/&
 & 1.1390e-03_jprb,2.0817e-03_jprb,1.2797e-02_jprb,1.3842e-02_jprb,1.2367e-02_jprb,6.1911e-03_jprb/)  
kbo( :, 5,52, 8) = (/&
 & 1.4240e-03_jprb,2.5099e-03_jprb,1.6438e-02_jprb,1.7549e-02_jprb,1.5248e-02_jprb,6.8528e-03_jprb/)  
kbo( :, 1,53, 8) = (/&
 & 5.1732e-04_jprb,9.8178e-04_jprb,4.9291e-03_jprb,5.9861e-03_jprb,6.3013e-03_jprb,4.1478e-03_jprb/)  
kbo( :, 2,53, 8) = (/&
 & 6.2319e-04_jprb,1.2101e-03_jprb,6.3342e-03_jprb,7.2982e-03_jprb,7.2668e-03_jprb,4.4355e-03_jprb/)  
kbo( :, 3,53, 8) = (/&
 & 7.5896e-04_jprb,1.4772e-03_jprb,8.3073e-03_jprb,9.1884e-03_jprb,8.6166e-03_jprb,4.7615e-03_jprb/)  
kbo( :, 4,53, 8) = (/&
 & 9.4032e-04_jprb,1.7923e-03_jprb,1.0926e-02_jprb,1.1795e-02_jprb,1.0522e-02_jprb,5.1760e-03_jprb/)  
kbo( :, 5,53, 8) = (/&
 & 1.1855e-03_jprb,2.1779e-03_jprb,1.4267e-02_jprb,1.5211e-02_jprb,1.3151e-02_jprb,5.7675e-03_jprb/)  
kbo( :, 1,54, 8) = (/&
 & 4.2099e-04_jprb,8.1896e-04_jprb,4.0587e-03_jprb,4.9414e-03_jprb,5.2122e-03_jprb,3.3954e-03_jprb/)  
kbo( :, 2,54, 8) = (/&
 & 5.1072e-04_jprb,1.0232e-03_jprb,5.2659e-03_jprb,6.0692e-03_jprb,6.0577e-03_jprb,3.6461e-03_jprb/)  
kbo( :, 3,54, 8) = (/&
 & 6.2630e-04_jprb,1.2640e-03_jprb,7.0010e-03_jprb,7.7316e-03_jprb,7.2545e-03_jprb,3.9269e-03_jprb/)  
kbo( :, 4,54, 8) = (/&
 & 7.8065e-04_jprb,1.5498e-03_jprb,9.3602e-03_jprb,1.0080e-02_jprb,8.9779e-03_jprb,4.2798e-03_jprb/)  
kbo( :, 5,54, 8) = (/&
 & 9.9133e-04_jprb,1.8976e-03_jprb,1.2427e-02_jprb,1.3231e-02_jprb,1.1388e-02_jprb,4.7881e-03_jprb/)  
kbo( :, 1,55, 8) = (/&
 & 3.4264e-04_jprb,6.8196e-04_jprb,3.3418e-03_jprb,4.0786e-03_jprb,4.3077e-03_jprb,2.7691e-03_jprb/)  
kbo( :, 2,55, 8) = (/&
 & 4.1827e-04_jprb,8.6407e-04_jprb,4.3772e-03_jprb,5.0438e-03_jprb,5.0439e-03_jprb,2.9836e-03_jprb/)  
kbo( :, 3,55, 8) = (/&
 & 5.1651e-04_jprb,1.0809e-03_jprb,5.8977e-03_jprb,6.5003e-03_jprb,6.1007e-03_jprb,3.2208e-03_jprb/)  
kbo( :, 4,55, 8) = (/&
 & 6.4755e-04_jprb,1.3394e-03_jprb,8.0143e-03_jprb,8.6084e-03_jprb,7.6585e-03_jprb,3.5143e-03_jprb/)  
kbo( :, 5,55, 8) = (/&
 & 8.2913e-04_jprb,1.6553e-03_jprb,1.0821e-02_jprb,1.1504e-02_jprb,9.8668e-03_jprb,3.9383e-03_jprb/)  
kbo( :, 1,56, 8) = (/&
 & 2.7803e-04_jprb,5.6487e-04_jprb,2.7420e-03_jprb,3.3568e-03_jprb,3.5496e-03_jprb,2.2543e-03_jprb/)  
kbo( :, 2,56, 8) = (/&
 & 3.4121e-04_jprb,7.2622e-04_jprb,3.6228e-03_jprb,4.1781e-03_jprb,4.1862e-03_jprb,2.4382e-03_jprb/)  
kbo( :, 3,56, 8) = (/&
 & 4.2449e-04_jprb,9.2149e-04_jprb,4.9469e-03_jprb,5.4413e-03_jprb,5.1116e-03_jprb,2.6387e-03_jprb/)  
kbo( :, 4,56, 8) = (/&
 & 5.3591e-04_jprb,1.1547e-03_jprb,6.8316e-03_jprb,7.3206e-03_jprb,6.5078e-03_jprb,2.8830e-03_jprb/)  
kbo( :, 5,56, 8) = (/&
 & 6.9206e-04_jprb,1.4413e-03_jprb,9.3865e-03_jprb,9.9613e-03_jprb,8.5223e-03_jprb,3.2344e-03_jprb/)  
kbo( :, 1,57, 8) = (/&
 & 2.2504e-04_jprb,4.6500e-04_jprb,2.2403e-03_jprb,2.7543e-03_jprb,2.9166e-03_jprb,1.8323e-03_jprb/)  
kbo( :, 2,57, 8) = (/&
 & 2.7798e-04_jprb,6.0783e-04_jprb,2.9851e-03_jprb,3.4491e-03_jprb,3.4628e-03_jprb,1.9897e-03_jprb/)  
kbo( :, 3,57, 8) = (/&
 & 3.4753e-04_jprb,7.8225e-04_jprb,4.1312e-03_jprb,4.5352e-03_jprb,4.2657e-03_jprb,2.1593e-03_jprb/)  
kbo( :, 4,57, 8) = (/&
 & 4.4202e-04_jprb,9.9272e-04_jprb,5.7973e-03_jprb,6.1951e-03_jprb,5.5060e-03_jprb,2.3628e-03_jprb/)  
kbo( :, 5,57, 8) = (/&
 & 5.7558e-04_jprb,1.2517e-03_jprb,8.1058e-03_jprb,8.5872e-03_jprb,7.3360e-03_jprb,2.6522e-03_jprb/)  
kbo( :, 1,58, 8) = (/&
 & 1.8228e-04_jprb,3.8208e-04_jprb,1.8308e-03_jprb,2.2613e-03_jprb,2.3970e-03_jprb,1.4881e-03_jprb/)  
kbo( :, 2,58, 8) = (/&
 & 2.2635e-04_jprb,5.0773e-04_jprb,2.4625e-03_jprb,2.8501e-03_jprb,2.8647e-03_jprb,1.6219e-03_jprb/)  
kbo( :, 3,58, 8) = (/&
 & 2.8516e-04_jprb,6.6412e-04_jprb,3.4519e-03_jprb,3.7830e-03_jprb,3.5592e-03_jprb,1.7642e-03_jprb/)  
kbo( :, 4,58, 8) = (/&
 & 3.6538e-04_jprb,8.5444e-04_jprb,4.9230e-03_jprb,5.2451e-03_jprb,4.6580e-03_jprb,1.9336e-03_jprb/)  
kbo( :, 5,58, 8) = (/&
 & 4.7911e-04_jprb,1.0886e-03_jprb,7.0070e-03_jprb,7.4069e-03_jprb,6.3208e-03_jprb,2.1715e-03_jprb/)  
kbo( :, 1,59, 8) = (/&
 & 1.5316e-04_jprb,3.3009e-04_jprb,1.5697e-03_jprb,1.9267e-03_jprb,2.0287e-03_jprb,1.2203e-03_jprb/)  
kbo( :, 2,59, 8) = (/&
 & 1.9174e-04_jprb,4.4479e-04_jprb,2.1483e-03_jprb,2.4646e-03_jprb,2.4521e-03_jprb,1.3301e-03_jprb/)  
kbo( :, 3,59, 8) = (/&
 & 2.4392e-04_jprb,5.8967e-04_jprb,3.0690e-03_jprb,3.3341e-03_jprb,3.1017e-03_jprb,1.4481e-03_jprb/)  
kbo( :, 4,59, 8) = (/&
 & 3.1594e-04_jprb,7.6769e-04_jprb,4.4545e-03_jprb,4.7180e-03_jprb,4.1523e-03_jprb,1.5884e-03_jprb/)  
kbo( :, 5,59, 8) = (/&
 & 4.1934e-04_jprb,9.8859e-04_jprb,6.4430e-03_jprb,6.7951e-03_jprb,5.7622e-03_jprb,1.7867e-03_jprb/)  
kbo( :, 1,13, 9) = (/&
 & 2.1640e+00_jprb,2.1630e+00_jprb,1.9037e+00_jprb,1.9914e+00_jprb,2.1507e+00_jprb,2.1924e+00_jprb/)  
kbo( :, 2,13, 9) = (/&
 & 2.1780e+00_jprb,2.1770e+00_jprb,1.9043e+00_jprb,1.9692e+00_jprb,2.1183e+00_jprb,2.1702e+00_jprb/)  
kbo( :, 3,13, 9) = (/&
 & 2.1863e+00_jprb,2.1853e+00_jprb,1.9004e+00_jprb,1.9443e+00_jprb,2.0822e+00_jprb,2.1533e+00_jprb/)  
kbo( :, 4,13, 9) = (/&
 & 2.1908e+00_jprb,2.1898e+00_jprb,1.8939e+00_jprb,1.9183e+00_jprb,2.0440e+00_jprb,2.1390e+00_jprb/)  
kbo( :, 5,13, 9) = (/&
 & 2.1905e+00_jprb,2.1895e+00_jprb,1.8836e+00_jprb,1.8902e+00_jprb,2.0042e+00_jprb,2.1255e+00_jprb/)  
kbo( :, 1,14, 9) = (/&
 & 1.9847e+00_jprb,1.9838e+00_jprb,1.8303e+00_jprb,2.0353e+00_jprb,2.2590e+00_jprb,2.3088e+00_jprb/)  
kbo( :, 2,14, 9) = (/&
 & 1.9934e+00_jprb,1.9925e+00_jprb,1.8250e+00_jprb,2.0091e+00_jprb,2.2231e+00_jprb,2.2801e+00_jprb/)  
kbo( :, 3,14, 9) = (/&
 & 1.9976e+00_jprb,1.9967e+00_jprb,1.8170e+00_jprb,1.9802e+00_jprb,2.1840e+00_jprb,2.2566e+00_jprb/)  
kbo( :, 4,14, 9) = (/&
 & 1.9974e+00_jprb,1.9965e+00_jprb,1.8053e+00_jprb,1.9495e+00_jprb,2.1431e+00_jprb,2.2372e+00_jprb/)  
kbo( :, 5,14, 9) = (/&
 & 1.9939e+00_jprb,1.9930e+00_jprb,1.7904e+00_jprb,1.9177e+00_jprb,2.1004e+00_jprb,2.2192e+00_jprb/)  
kbo( :, 1,15, 9) = (/&
 & 1.7889e+00_jprb,1.7882e+00_jprb,1.7547e+00_jprb,2.0779e+00_jprb,2.3573e+00_jprb,2.4290e+00_jprb/)  
kbo( :, 2,15, 9) = (/&
 & 1.7928e+00_jprb,1.7920e+00_jprb,1.7452e+00_jprb,2.0486e+00_jprb,2.3189e+00_jprb,2.4037e+00_jprb/)  
kbo( :, 3,15, 9) = (/&
 & 1.7928e+00_jprb,1.7920e+00_jprb,1.7330e+00_jprb,2.0171e+00_jprb,2.2790e+00_jprb,2.3775e+00_jprb/)  
kbo( :, 4,15, 9) = (/&
 & 1.7917e+00_jprb,1.7909e+00_jprb,1.7182e+00_jprb,1.9838e+00_jprb,2.2366e+00_jprb,2.3528e+00_jprb/)  
kbo( :, 5,15, 9) = (/&
 & 1.7907e+00_jprb,1.7899e+00_jprb,1.7010e+00_jprb,1.9495e+00_jprb,2.1934e+00_jprb,2.3317e+00_jprb/)  
kbo( :, 1,16, 9) = (/&
 & 1.5869e+00_jprb,1.5863e+00_jprb,1.6883e+00_jprb,2.1193e+00_jprb,2.4455e+00_jprb,2.5492e+00_jprb/)  
kbo( :, 2,16, 9) = (/&
 & 1.5874e+00_jprb,1.5868e+00_jprb,1.6750e+00_jprb,2.0881e+00_jprb,2.4087e+00_jprb,2.5259e+00_jprb/)  
kbo( :, 3,16, 9) = (/&
 & 1.5879e+00_jprb,1.5873e+00_jprb,1.6596e+00_jprb,2.0559e+00_jprb,2.3694e+00_jprb,2.5006e+00_jprb/)  
kbo( :, 4,16, 9) = (/&
 & 1.5893e+00_jprb,1.5886e+00_jprb,1.6420e+00_jprb,2.0221e+00_jprb,2.3275e+00_jprb,2.4758e+00_jprb/)  

IF (lhook) CALL dr_hook('RRTM_KGB4:PART24',1,zhook_handle)
END SUBROUTINE part24


SUBROUTINE part25

REAL(KIND=JPRB) :: ZHOOK_HANDLE
IF (lhook) CALL dr_hook('RRTM_KGB4:PART25',0,zhook_handle)


kbo( :, 5,16, 9) = (/&
 & 1.5915e+00_jprb,1.5908e+00_jprb,1.6225e+00_jprb,1.9860e+00_jprb,2.2837e+00_jprb,2.4531e+00_jprb/)  
kbo( :, 1,17, 9) = (/&
 & 1.3911e+00_jprb,1.3906e+00_jprb,1.6357e+00_jprb,2.1551e+00_jprb,2.5270e+00_jprb,2.6550e+00_jprb/)  
kbo( :, 2,17, 9) = (/&
 & 1.3924e+00_jprb,1.3919e+00_jprb,1.6197e+00_jprb,2.1251e+00_jprb,2.4914e+00_jprb,2.6342e+00_jprb/)  
kbo( :, 3,17, 9) = (/&
 & 1.3948e+00_jprb,1.3943e+00_jprb,1.6016e+00_jprb,2.0927e+00_jprb,2.4529e+00_jprb,2.6104e+00_jprb/)  
kbo( :, 4,17, 9) = (/&
 & 1.4001e+00_jprb,1.3995e+00_jprb,1.5824e+00_jprb,2.0573e+00_jprb,2.4118e+00_jprb,2.5862e+00_jprb/)  
kbo( :, 5,17, 9) = (/&
 & 1.4089e+00_jprb,1.4083e+00_jprb,1.5632e+00_jprb,2.0202e+00_jprb,2.3685e+00_jprb,2.5625e+00_jprb/)  
kbo( :, 1,18, 9) = (/&
 & 1.2109e+00_jprb,1.2104e+00_jprb,1.5964e+00_jprb,2.1814e+00_jprb,2.5952e+00_jprb,2.7389e+00_jprb/)  
kbo( :, 2,18, 9) = (/&
 & 1.2140e+00_jprb,1.2136e+00_jprb,1.5784e+00_jprb,2.1525e+00_jprb,2.5616e+00_jprb,2.7209e+00_jprb/)  
kbo( :, 3,18, 9) = (/&
 & 1.2208e+00_jprb,1.2204e+00_jprb,1.5595e+00_jprb,2.1201e+00_jprb,2.5247e+00_jprb,2.7005e+00_jprb/)  
kbo( :, 4,18, 9) = (/&
 & 1.2322e+00_jprb,1.2318e+00_jprb,1.5407e+00_jprb,2.0849e+00_jprb,2.4850e+00_jprb,2.6784e+00_jprb/)  
kbo( :, 5,18, 9) = (/&
 & 1.2477e+00_jprb,1.2472e+00_jprb,1.5230e+00_jprb,2.0478e+00_jprb,2.4440e+00_jprb,2.6553e+00_jprb/)  
kbo( :, 1,19, 9) = (/&
 & 1.0487e+00_jprb,1.0484e+00_jprb,1.5649e+00_jprb,2.1968e+00_jprb,2.6409e+00_jprb,2.7963e+00_jprb/)  
kbo( :, 2,19, 9) = (/&
 & 1.0560e+00_jprb,1.0557e+00_jprb,1.5474e+00_jprb,2.1687e+00_jprb,2.6108e+00_jprb,2.7829e+00_jprb/)  
kbo( :, 3,19, 9) = (/&
 & 1.0685e+00_jprb,1.0682e+00_jprb,1.5292e+00_jprb,2.1368e+00_jprb,2.5782e+00_jprb,2.7649e+00_jprb/)  
kbo( :, 4,19, 9) = (/&
 & 1.0859e+00_jprb,1.0855e+00_jprb,1.5121e+00_jprb,2.1019e+00_jprb,2.5438e+00_jprb,2.7445e+00_jprb/)  
kbo( :, 5,19, 9) = (/&
 & 1.1065e+00_jprb,1.1062e+00_jprb,1.4975e+00_jprb,2.0661e+00_jprb,2.5062e+00_jprb,2.7222e+00_jprb/)  
kbo( :, 1,20, 9) = (/&
 & 9.0827e-01_jprb,9.0805e-01_jprb,1.5341e+00_jprb,2.1956e+00_jprb,2.6632e+00_jprb,2.8242e+00_jprb/)  
kbo( :, 2,20, 9) = (/&
 & 9.2064e-01_jprb,9.2040e-01_jprb,1.5172e+00_jprb,2.1687e+00_jprb,2.6400e+00_jprb,2.8145e+00_jprb/)  
kbo( :, 3,20, 9) = (/&
 & 9.3844e-01_jprb,9.3819e-01_jprb,1.5016e+00_jprb,2.1388e+00_jprb,2.6129e+00_jprb,2.8000e+00_jprb/)  
kbo( :, 4,20, 9) = (/&
 & 9.6013e-01_jprb,9.5986e-01_jprb,1.4885e+00_jprb,2.1071e+00_jprb,2.5814e+00_jprb,2.7828e+00_jprb/)  
kbo( :, 5,20, 9) = (/&
 & 9.8430e-01_jprb,9.8400e-01_jprb,1.4771e+00_jprb,2.0741e+00_jprb,2.5454e+00_jprb,2.7636e+00_jprb/)  
kbo( :, 1,21, 9) = (/&
 & 7.8993e-01_jprb,7.8978e-01_jprb,1.4986e+00_jprb,2.1733e+00_jprb,2.6623e+00_jprb,2.8179e+00_jprb/)  
kbo( :, 2,21, 9) = (/&
 & 8.0667e-01_jprb,8.0650e-01_jprb,1.4848e+00_jprb,2.1496e+00_jprb,2.6446e+00_jprb,2.8129e+00_jprb/)  
kbo( :, 3,21, 9) = (/&
 & 8.2802e-01_jprb,8.2784e-01_jprb,1.4733e+00_jprb,2.1235e+00_jprb,2.6208e+00_jprb,2.8029e+00_jprb/)  
kbo( :, 4,21, 9) = (/&
 & 8.5232e-01_jprb,8.5211e-01_jprb,1.4639e+00_jprb,2.0960e+00_jprb,2.5913e+00_jprb,2.7898e+00_jprb/)  
kbo( :, 5,21, 9) = (/&
 & 8.7899e-01_jprb,8.7876e-01_jprb,1.4566e+00_jprb,2.0681e+00_jprb,2.5576e+00_jprb,2.7727e+00_jprb/)  
kbo( :, 1,22, 9) = (/&
 & 6.9217e-01_jprb,6.9207e-01_jprb,1.4567e+00_jprb,2.1294e+00_jprb,2.6320e+00_jprb,2.7789e+00_jprb/)  
kbo( :, 2,22, 9) = (/&
 & 7.1220e-01_jprb,7.1209e-01_jprb,1.4478e+00_jprb,2.1106e+00_jprb,2.6173e+00_jprb,2.7783e+00_jprb/)  
kbo( :, 3,22, 9) = (/&
 & 7.3566e-01_jprb,7.3553e-01_jprb,1.4413e+00_jprb,2.0897e+00_jprb,2.5963e+00_jprb,2.7722e+00_jprb/)  
kbo( :, 4,22, 9) = (/&
 & 7.6128e-01_jprb,7.6113e-01_jprb,1.4363e+00_jprb,2.0682e+00_jprb,2.5703e+00_jprb,2.7624e+00_jprb/)  
kbo( :, 5,22, 9) = (/&
 & 7.8574e-01_jprb,7.8555e-01_jprb,1.4327e+00_jprb,2.0477e+00_jprb,2.5401e+00_jprb,2.7492e+00_jprb/)  
kbo( :, 1,23, 9) = (/&
 & 6.1008e-01_jprb,6.1003e-01_jprb,1.4083e+00_jprb,2.0681e+00_jprb,2.5705e+00_jprb,2.7083e+00_jprb/)  
kbo( :, 2,23, 9) = (/&
 & 6.3198e-01_jprb,6.3192e-01_jprb,1.4051e+00_jprb,2.0548e+00_jprb,2.5593e+00_jprb,2.7117e+00_jprb/)  
kbo( :, 3,23, 9) = (/&
 & 6.5543e-01_jprb,6.5535e-01_jprb,1.4040e+00_jprb,2.0403e+00_jprb,2.5427e+00_jprb,2.7102e+00_jprb/)  
kbo( :, 4,23, 9) = (/&
 & 6.7837e-01_jprb,6.7826e-01_jprb,1.4041e+00_jprb,2.0263e+00_jprb,2.5213e+00_jprb,2.7060e+00_jprb/)  
kbo( :, 5,23, 9) = (/&
 & 7.0030e-01_jprb,7.0016e-01_jprb,1.4050e+00_jprb,2.0127e+00_jprb,2.4961e+00_jprb,2.6994e+00_jprb/)  
kbo( :, 1,24, 9) = (/&
 & 5.4033e-01_jprb,5.4033e-01_jprb,1.3546e+00_jprb,1.9899e+00_jprb,2.4822e+00_jprb,2.6084e+00_jprb/)  
kbo( :, 2,24, 9) = (/&
 & 5.6139e-01_jprb,5.6138e-01_jprb,1.3577e+00_jprb,1.9836e+00_jprb,2.4759e+00_jprb,2.6174e+00_jprb/)  
kbo( :, 3,24, 9) = (/&
 & 5.8245e-01_jprb,5.8242e-01_jprb,1.3618e+00_jprb,1.9770e+00_jprb,2.4649e+00_jprb,2.6232e+00_jprb/)  
kbo( :, 4,24, 9) = (/&
 & 6.0241e-01_jprb,6.0233e-01_jprb,1.3664e+00_jprb,1.9707e+00_jprb,2.4498e+00_jprb,2.6268e+00_jprb/)  
kbo( :, 5,24, 9) = (/&
 & 6.2165e-01_jprb,6.2155e-01_jprb,1.3699e+00_jprb,1.9646e+00_jprb,2.4321e+00_jprb,2.6277e+00_jprb/)  
kbo( :, 1,25, 9) = (/&
 & 4.7832e-01_jprb,4.7836e-01_jprb,1.2974e+00_jprb,1.9000e+00_jprb,2.3730e+00_jprb,2.4875e+00_jprb/)  
kbo( :, 2,25, 9) = (/&
 & 4.9733e-01_jprb,4.9735e-01_jprb,1.3057e+00_jprb,1.9014e+00_jprb,2.3734e+00_jprb,2.5038e+00_jprb/)  
kbo( :, 3,25, 9) = (/&
 & 5.1523e-01_jprb,5.1522e-01_jprb,1.3146e+00_jprb,1.9031e+00_jprb,2.3699e+00_jprb,2.5183e+00_jprb/)  
kbo( :, 4,25, 9) = (/&
 & 5.3256e-01_jprb,5.3251e-01_jprb,1.3228e+00_jprb,1.9051e+00_jprb,2.3637e+00_jprb,2.5320e+00_jprb/)  
kbo( :, 5,25, 9) = (/&
 & 5.4968e-01_jprb,5.4961e-01_jprb,1.3292e+00_jprb,1.9068e+00_jprb,2.3561e+00_jprb,2.5438e+00_jprb/)  
kbo( :, 1,26, 9) = (/&
 & 4.2201e-01_jprb,4.2207e-01_jprb,1.2364e+00_jprb,1.8029e+00_jprb,2.2507e+00_jprb,2.3533e+00_jprb/)  
kbo( :, 2,26, 9) = (/&
 & 4.3804e-01_jprb,4.3809e-01_jprb,1.2498e+00_jprb,1.8126e+00_jprb,2.2597e+00_jprb,2.3788e+00_jprb/)  
kbo( :, 3,26, 9) = (/&
 & 4.5354e-01_jprb,4.5356e-01_jprb,1.2632e+00_jprb,1.8229e+00_jprb,2.2657e+00_jprb,2.4047e+00_jprb/)  
kbo( :, 4,26, 9) = (/&
 & 4.6906e-01_jprb,4.6904e-01_jprb,1.2746e+00_jprb,1.8333e+00_jprb,2.2706e+00_jprb,2.4304e+00_jprb/)  
kbo( :, 5,26, 9) = (/&
 & 4.8497e-01_jprb,4.8494e-01_jprb,1.2839e+00_jprb,1.8429e+00_jprb,2.2744e+00_jprb,2.4544e+00_jprb/)  
kbo( :, 1,27, 9) = (/&
 & 3.7036e-01_jprb,3.7045e-01_jprb,1.1734e+00_jprb,1.7029e+00_jprb,2.1233e+00_jprb,2.2152e+00_jprb/)  
kbo( :, 2,27, 9) = (/&
 & 3.8398e-01_jprb,3.8406e-01_jprb,1.1918e+00_jprb,1.7218e+00_jprb,2.1420e+00_jprb,2.2527e+00_jprb/)  
kbo( :, 3,27, 9) = (/&
 & 3.9787e-01_jprb,3.9791e-01_jprb,1.2085e+00_jprb,1.7412e+00_jprb,2.1596e+00_jprb,2.2917e+00_jprb/)  
kbo( :, 4,27, 9) = (/&
 & 4.1227e-01_jprb,4.1229e-01_jprb,1.2235e+00_jprb,1.7604e+00_jprb,2.1764e+00_jprb,2.3307e+00_jprb/)  
kbo( :, 5,27, 9) = (/&
 & 4.2780e-01_jprb,4.2779e-01_jprb,1.2358e+00_jprb,1.7785e+00_jprb,2.1924e+00_jprb,2.3678e+00_jprb/)  
kbo( :, 1,28, 9) = (/&
 & 3.2384e-01_jprb,3.2396e-01_jprb,1.1111e+00_jprb,1.6050e+00_jprb,1.9966e+00_jprb,2.0814e+00_jprb/)  
kbo( :, 2,28, 9) = (/&
 & 3.3603e-01_jprb,3.3613e-01_jprb,1.1332e+00_jprb,1.6332e+00_jprb,2.0271e+00_jprb,2.1324e+00_jprb/)  
kbo( :, 3,28, 9) = (/&
 & 3.4881e-01_jprb,3.4887e-01_jprb,1.1536e+00_jprb,1.6622e+00_jprb,2.0573e+00_jprb,2.1850e+00_jprb/)  
kbo( :, 4,28, 9) = (/&
 & 3.6268e-01_jprb,3.6273e-01_jprb,1.1720e+00_jprb,1.6900e+00_jprb,2.0870e+00_jprb,2.2373e+00_jprb/)  
kbo( :, 5,28, 9) = (/&
 & 3.7804e-01_jprb,3.7806e-01_jprb,1.1877e+00_jprb,1.7173e+00_jprb,2.1162e+00_jprb,2.2869e+00_jprb/)  
kbo( :, 1,29, 9) = (/&
 & 2.8312e-01_jprb,2.8326e-01_jprb,1.0508e+00_jprb,1.5130e+00_jprb,1.8780e+00_jprb,1.9589e+00_jprb/)  
kbo( :, 2,29, 9) = (/&
 & 2.9434e-01_jprb,2.9445e-01_jprb,1.0766e+00_jprb,1.5511e+00_jprb,1.9210e+00_jprb,2.0243e+00_jprb/)  
kbo( :, 3,29, 9) = (/&
 & 3.0652e-01_jprb,3.0661e-01_jprb,1.1009e+00_jprb,1.5889e+00_jprb,1.9642e+00_jprb,2.0907e+00_jprb/)  
kbo( :, 4,29, 9) = (/&
 & 3.2016e-01_jprb,3.2023e-01_jprb,1.1226e+00_jprb,1.6261e+00_jprb,2.0071e+00_jprb,2.1548e+00_jprb/)  
kbo( :, 5,29, 9) = (/&
 & 3.3571e-01_jprb,3.3577e-01_jprb,1.1421e+00_jprb,1.6615e+00_jprb,2.0485e+00_jprb,2.2151e+00_jprb/)  
kbo( :, 1,30, 9) = (/&
 & 2.4766e-01_jprb,2.4782e-01_jprb,9.9433e-01_jprb,1.4304e+00_jprb,1.7715e+00_jprb,1.8514e+00_jprb/)  
kbo( :, 2,30, 9) = (/&
 & 2.5837e-01_jprb,2.5850e-01_jprb,1.0241e+00_jprb,1.4775e+00_jprb,1.8271e+00_jprb,1.9302e+00_jprb/)  
kbo( :, 3,30, 9) = (/&
 & 2.7045e-01_jprb,2.7056e-01_jprb,1.0517e+00_jprb,1.5244e+00_jprb,1.8833e+00_jprb,2.0084e+00_jprb/)  
kbo( :, 4,30, 9) = (/&
 & 2.8427e-01_jprb,2.8436e-01_jprb,1.0773e+00_jprb,1.5701e+00_jprb,1.9380e+00_jprb,2.0829e+00_jprb/)  
kbo( :, 5,30, 9) = (/&
 & 3.0013e-01_jprb,3.0021e-01_jprb,1.1005e+00_jprb,1.6130e+00_jprb,1.9897e+00_jprb,2.1530e+00_jprb/)  
kbo( :, 1,31, 9) = (/&
 & 2.1718e-01_jprb,2.1735e-01_jprb,9.4336e-01_jprb,1.3592e+00_jprb,1.6802e+00_jprb,1.7623e+00_jprb/)  
kbo( :, 2,31, 9) = (/&
 & 2.2773e-01_jprb,2.2787e-01_jprb,9.7667e-01_jprb,1.4147e+00_jprb,1.7480e+00_jprb,1.8530e+00_jprb/)  
kbo( :, 3,31, 9) = (/&
 & 2.3995e-01_jprb,2.4007e-01_jprb,1.0080e+00_jprb,1.4699e+00_jprb,1.8151e+00_jprb,1.9409e+00_jprb/)  
kbo( :, 4,31, 9) = (/&
 & 2.5414e-01_jprb,2.5424e-01_jprb,1.0371e+00_jprb,1.5227e+00_jprb,1.8795e+00_jprb,2.0251e+00_jprb/)  
kbo( :, 5,31, 9) = (/&
 & 2.7018e-01_jprb,2.7028e-01_jprb,1.0644e+00_jprb,1.5717e+00_jprb,1.9397e+00_jprb,2.1038e+00_jprb/)  
kbo( :, 1,32, 9) = (/&
 & 1.9126e-01_jprb,1.9146e-01_jprb,8.9853e-01_jprb,1.2997e+00_jprb,1.6046e+00_jprb,1.6901e+00_jprb/)  
kbo( :, 2,32, 9) = (/&
 & 2.0193e-01_jprb,2.0209e-01_jprb,9.3540e-01_jprb,1.3632e+00_jprb,1.6829e+00_jprb,1.7901e+00_jprb/)  
kbo( :, 3,32, 9) = (/&
 & 2.1445e-01_jprb,2.1459e-01_jprb,9.7036e-01_jprb,1.4251e+00_jprb,1.7593e+00_jprb,1.8876e+00_jprb/)  
kbo( :, 4,32, 9) = (/&
 & 2.2890e-01_jprb,2.2902e-01_jprb,1.0032e+00_jprb,1.4834e+00_jprb,1.8319e+00_jprb,1.9801e+00_jprb/)  
kbo( :, 5,32, 9) = (/&
 & 2.4476e-01_jprb,2.4488e-01_jprb,1.0341e+00_jprb,1.5373e+00_jprb,1.8995e+00_jprb,2.0662e+00_jprb/)  
kbo( :, 1,33, 9) = (/&
 & 1.6940e-01_jprb,1.6962e-01_jprb,8.6040e-01_jprb,1.2516e+00_jprb,1.5440e+00_jprb,1.6336e+00_jprb/)  
kbo( :, 2,33, 9) = (/&
 & 1.8040e-01_jprb,1.8058e-01_jprb,9.0069e-01_jprb,1.3217e+00_jprb,1.6313e+00_jprb,1.7427e+00_jprb/)  
kbo( :, 3,33, 9) = (/&
 & 1.9322e-01_jprb,1.9338e-01_jprb,9.3905e-01_jprb,1.3887e+00_jprb,1.7155e+00_jprb,1.8483e+00_jprb/)  
kbo( :, 4,33, 9) = (/&
 & 2.0759e-01_jprb,2.0774e-01_jprb,9.7525e-01_jprb,1.4518e+00_jprb,1.7950e+00_jprb,1.9477e+00_jprb/)  
kbo( :, 5,33, 9) = (/&
 & 2.2287e-01_jprb,2.2300e-01_jprb,1.0095e+00_jprb,1.5103e+00_jprb,1.8688e+00_jprb,2.0398e+00_jprb/)  
kbo( :, 1,34, 9) = (/&
 & 1.5076e-01_jprb,1.5101e-01_jprb,8.2749e-01_jprb,1.2115e+00_jprb,1.4944e+00_jprb,1.5862e+00_jprb/)  
kbo( :, 2,34, 9) = (/&
 & 1.6203e-01_jprb,1.6224e-01_jprb,8.7097e-01_jprb,1.2867e+00_jprb,1.5891e+00_jprb,1.7034e+00_jprb/)  
kbo( :, 3,34, 9) = (/&
 & 1.7492e-01_jprb,1.7510e-01_jprb,9.1244e-01_jprb,1.3584e+00_jprb,1.6800e+00_jprb,1.8152e+00_jprb/)  
kbo( :, 4,34, 9) = (/&
 & 1.8884e-01_jprb,1.8900e-01_jprb,9.5164e-01_jprb,1.4257e+00_jprb,1.7654e+00_jprb,1.9207e+00_jprb/)  
kbo( :, 5,34, 9) = (/&
 & 2.0347e-01_jprb,2.0361e-01_jprb,9.8858e-01_jprb,1.4882e+00_jprb,1.8441e+00_jprb,2.0182e+00_jprb/)  
kbo( :, 1,35, 9) = (/&
 & 1.3410e-01_jprb,1.3442e-01_jprb,7.9621e-01_jprb,1.1726e+00_jprb,1.4470e+00_jprb,1.5402e+00_jprb/)  
kbo( :, 2,35, 9) = (/&
 & 1.4542e-01_jprb,1.4567e-01_jprb,8.4262e-01_jprb,1.2523e+00_jprb,1.5484e+00_jprb,1.6636e+00_jprb/)  
kbo( :, 3,35, 9) = (/&
 & 1.5802e-01_jprb,1.5823e-01_jprb,8.8698e-01_jprb,1.3283e+00_jprb,1.6454e+00_jprb,1.7818e+00_jprb/)  
kbo( :, 4,35, 9) = (/&
 & 1.7135e-01_jprb,1.7153e-01_jprb,9.2894e-01_jprb,1.3999e+00_jprb,1.7361e+00_jprb,1.8932e+00_jprb/)  
kbo( :, 5,35, 9) = (/&
 & 1.8540e-01_jprb,1.8556e-01_jprb,9.6841e-01_jprb,1.4664e+00_jprb,1.8195e+00_jprb,1.9967e+00_jprb/)  
kbo( :, 1,36, 9) = (/&
 & 1.1885e-01_jprb,1.1927e-01_jprb,7.6459e-01_jprb,1.1318e+00_jprb,1.3978e+00_jprb,1.4899e+00_jprb/)  
kbo( :, 2,36, 9) = (/&
 & 1.2990e-01_jprb,1.3022e-01_jprb,8.1382e-01_jprb,1.2158e+00_jprb,1.5052e+00_jprb,1.6195e+00_jprb/)  
kbo( :, 3,36, 9) = (/&
 & 1.4201e-01_jprb,1.4226e-01_jprb,8.6094e-01_jprb,1.2962e+00_jprb,1.6079e+00_jprb,1.7441e+00_jprb/)  
kbo( :, 4,36, 9) = (/&
 & 1.5478e-01_jprb,1.5499e-01_jprb,9.0551e-01_jprb,1.3720e+00_jprb,1.7039e+00_jprb,1.8614e+00_jprb/)  
kbo( :, 5,36, 9) = (/&
 & 1.6836e-01_jprb,1.6854e-01_jprb,9.4765e-01_jprb,1.4424e+00_jprb,1.7920e+00_jprb,1.9701e+00_jprb/)  
kbo( :, 1,37, 9) = (/&
 & 1.0428e-01_jprb,1.0485e-01_jprb,7.2899e-01_jprb,1.0835e+00_jprb,1.3388e+00_jprb,1.4259e+00_jprb/)  
kbo( :, 2,37, 9) = (/&
 & 1.1481e-01_jprb,1.1525e-01_jprb,7.8118e-01_jprb,1.1719e+00_jprb,1.4522e+00_jprb,1.5616e+00_jprb/)  
kbo( :, 3,37, 9) = (/&
 & 1.2629e-01_jprb,1.2662e-01_jprb,8.3108e-01_jprb,1.2566e+00_jprb,1.5607e+00_jprb,1.6925e+00_jprb/)  
kbo( :, 4,37, 9) = (/&
 & 1.3851e-01_jprb,1.3876e-01_jprb,8.7848e-01_jprb,1.3370e+00_jprb,1.6624e+00_jprb,1.8161e+00_jprb/)  
kbo( :, 5,37, 9) = (/&
 & 1.5156e-01_jprb,1.5177e-01_jprb,9.2339e-01_jprb,1.4116e+00_jprb,1.7558e+00_jprb,1.9309e+00_jprb/)  
kbo( :, 1,38, 9) = (/&
 & 9.1605e-02_jprb,9.2343e-02_jprb,6.9610e-01_jprb,1.0388e+00_jprb,1.2845e+00_jprb,1.3674e+00_jprb/)  
kbo( :, 2,38, 9) = (/&
 & 1.0158e-01_jprb,1.0215e-01_jprb,7.5088e-01_jprb,1.1311e+00_jprb,1.4032e+00_jprb,1.5087e+00_jprb/)  
kbo( :, 3,38, 9) = (/&
 & 1.1247e-01_jprb,1.1289e-01_jprb,8.0339e-01_jprb,1.2200e+00_jprb,1.5169e+00_jprb,1.6453e+00_jprb/)  
kbo( :, 4,38, 9) = (/&
 & 1.2417e-01_jprb,1.2448e-01_jprb,8.5338e-01_jprb,1.3042e+00_jprb,1.6236e+00_jprb,1.7750e+00_jprb/)  
kbo( :, 5,38, 9) = (/&
 & 1.3676e-01_jprb,1.3700e-01_jprb,9.0083e-01_jprb,1.3828e+00_jprb,1.7217e+00_jprb,1.8952e+00_jprb/)  
kbo( :, 1,39, 9) = (/&
 & 8.0656e-02_jprb,8.1594e-02_jprb,6.6607e-01_jprb,9.9815e-01_jprb,1.2351e+00_jprb,1.3152e+00_jprb/)  
kbo( :, 2,39, 9) = (/&
 & 9.0069e-02_jprb,9.0786e-02_jprb,7.2321e-01_jprb,1.0941e+00_jprb,1.3584e+00_jprb,1.4617e+00_jprb/)  
kbo( :, 3,39, 9) = (/&
 & 1.0038e-01_jprb,1.0092e-01_jprb,7.7814e-01_jprb,1.1864e+00_jprb,1.4767e+00_jprb,1.6037e+00_jprb/)  
kbo( :, 4,39, 9) = (/&
 & 1.1160e-01_jprb,1.1200e-01_jprb,8.3050e-01_jprb,1.2742e+00_jprb,1.5879e+00_jprb,1.7392e+00_jprb/)  
kbo( :, 5,39, 9) = (/&
 & 1.2381e-01_jprb,1.2410e-01_jprb,8.8026e-01_jprb,1.3564e+00_jprb,1.6903e+00_jprb,1.8642e+00_jprb/)  
kbo( :, 1,40, 9) = (/&
 & 7.0343e-02_jprb,7.1517e-02_jprb,6.3258e-01_jprb,9.5074e-01_jprb,1.1768e+00_jprb,1.2495e+00_jprb/)  
kbo( :, 2,40, 9) = (/&
 & 7.9103e-02_jprb,8.0020e-02_jprb,6.9189e-01_jprb,1.0501e+00_jprb,1.3045e+00_jprb,1.4003e+00_jprb/)  
kbo( :, 3,40, 9) = (/&
 & 8.8790e-02_jprb,8.9492e-02_jprb,7.4925e-01_jprb,1.1461e+00_jprb,1.4274e+00_jprb,1.5476e+00_jprb/)  
kbo( :, 4,40, 9) = (/&
 & 9.9461e-02_jprb,9.9977e-02_jprb,8.0414e-01_jprb,1.2375e+00_jprb,1.5434e+00_jprb,1.6884e+00_jprb/)  
kbo( :, 5,40, 9) = (/&
 & 1.1114e-01_jprb,1.1151e-01_jprb,8.5633e-01_jprb,1.3236e+00_jprb,1.6507e+00_jprb,1.8191e+00_jprb/)  
kbo( :, 1,41, 9) = (/&
 & 6.1266e-02_jprb,6.2696e-02_jprb,6.0022e-01_jprb,9.0450e-01_jprb,1.1198e+00_jprb,1.1852e+00_jprb/)  
kbo( :, 2,41, 9) = (/&
 & 6.9449e-02_jprb,7.0593e-02_jprb,6.6161e-01_jprb,1.0070e+00_jprb,1.2513e+00_jprb,1.3399e+00_jprb/)  
kbo( :, 3,41, 9) = (/&
 & 7.8517e-02_jprb,7.9409e-02_jprb,7.2121e-01_jprb,1.1063e+00_jprb,1.3785e+00_jprb,1.4916e+00_jprb/)  
kbo( :, 4,41, 9) = (/&
 & 8.8610e-02_jprb,8.9276e-02_jprb,7.7839e-01_jprb,1.2012e+00_jprb,1.4990e+00_jprb,1.6374e+00_jprb/)  
kbo( :, 5,41, 9) = (/&
 & 9.9774e-02_jprb,1.0026e-01_jprb,8.3284e-01_jprb,1.2906e+00_jprb,1.6108e+00_jprb,1.7737e+00_jprb/)  
kbo( :, 1,42, 9) = (/&
 & 5.3360e-02_jprb,5.5059e-02_jprb,5.6966e-01_jprb,8.6038e-01_jprb,1.0655e+00_jprb,1.1243e+00_jprb/)  
kbo( :, 2,42, 9) = (/&
 & 6.0993e-02_jprb,6.2382e-02_jprb,6.3280e-01_jprb,9.6562e-01_jprb,1.2001e+00_jprb,1.2823e+00_jprb/)  
kbo( :, 3,42, 9) = (/&
 & 6.9507e-02_jprb,7.0610e-02_jprb,6.9445e-01_jprb,1.0679e+00_jprb,1.3311e+00_jprb,1.4380e+00_jprb/)  
kbo( :, 4,42, 9) = (/&
 & 7.9032e-02_jprb,7.9871e-02_jprb,7.5376e-01_jprb,1.1658e+00_jprb,1.4555e+00_jprb,1.5883e+00_jprb/)  
kbo( :, 5,42, 9) = (/&
 & 8.9684e-02_jprb,9.0303e-02_jprb,8.1031e-01_jprb,1.2585e+00_jprb,1.5717e+00_jprb,1.7298e+00_jprb/)  
kbo( :, 1,43, 9) = (/&
 & 4.6136e-02_jprb,4.8125e-02_jprb,5.3704e-01_jprb,8.1220e-01_jprb,1.0058e+00_jprb,1.0569e+00_jprb/)  
kbo( :, 2,43, 9) = (/&
 & 5.3161e-02_jprb,5.4823e-02_jprb,6.0168e-01_jprb,9.1982e-01_jprb,1.1431e+00_jprb,1.2177e+00_jprb/)  
kbo( :, 3,43, 9) = (/&
 & 6.1123e-02_jprb,6.2470e-02_jprb,6.6532e-01_jprb,1.0249e+00_jprb,1.2775e+00_jprb,1.3770e+00_jprb/)  
kbo( :, 4,43, 9) = (/&
 & 7.0049e-02_jprb,7.1098e-02_jprb,7.2673e-01_jprb,1.1259e+00_jprb,1.4060e+00_jprb,1.5318e+00_jprb/)  
kbo( :, 5,43, 9) = (/&
 & 8.0119e-02_jprb,8.0908e-02_jprb,7.8534e-01_jprb,1.2218e+00_jprb,1.5266e+00_jprb,1.6786e+00_jprb/)  
kbo( :, 1,44, 9) = (/&
 & 3.9685e-02_jprb,4.1972e-02_jprb,5.0412e-01_jprb,7.6296e-01_jprb,9.4428e-01_jprb,9.8787e-01_jprb/)  
kbo( :, 2,44, 9) = (/&
 & 4.6152e-02_jprb,4.8103e-02_jprb,5.7004e-01_jprb,8.7240e-01_jprb,1.0838e+00_jprb,1.1508e+00_jprb/)  
kbo( :, 3,44, 9) = (/&
 & 5.3529e-02_jprb,5.5143e-02_jprb,6.3536e-01_jprb,9.8002e-01_jprb,1.2213e+00_jprb,1.3132e+00_jprb/)  
kbo( :, 4,44, 9) = (/&
 & 6.1901e-02_jprb,6.3183e-02_jprb,6.9879e-01_jprb,1.0840e+00_jprb,1.3536e+00_jprb,1.4723e+00_jprb/)  
kbo( :, 5,44, 9) = (/&
 & 7.1354e-02_jprb,7.2347e-02_jprb,7.5939e-01_jprb,1.1829e+00_jprb,1.4784e+00_jprb,1.6242e+00_jprb/)  
kbo( :, 1,45, 9) = (/&
 & 3.4076e-02_jprb,3.6651e-02_jprb,4.7238e-01_jprb,7.1511e-01_jprb,8.8440e-01_jprb,9.2130e-01_jprb/)  
kbo( :, 2,45, 9) = (/&
 & 4.0025e-02_jprb,4.2260e-02_jprb,5.3939e-01_jprb,8.2584e-01_jprb,1.0257e+00_jprb,1.0858e+00_jprb/)  
kbo( :, 3,45, 9) = (/&
 & 4.6843e-02_jprb,4.8732e-02_jprb,6.0607e-01_jprb,9.3570e-01_jprb,1.1656e+00_jprb,1.2509e+00_jprb/)  
kbo( :, 4,45, 9) = (/&
 & 5.4663e-02_jprb,5.6198e-02_jprb,6.7125e-01_jprb,1.0423e+00_jprb,1.3013e+00_jprb,1.4137e+00_jprb/)  

IF (lhook) CALL dr_hook('RRTM_KGB4:PART25',1,zhook_handle)
END SUBROUTINE part25


SUBROUTINE part26

REAL(KIND=JPRB) :: ZHOOK_HANDLE
IF (lhook) CALL dr_hook('RRTM_KGB4:PART26',0,zhook_handle)


kbo( :, 5,45, 9) = (/&
 & 6.3560e-02_jprb,6.4776e-02_jprb,7.3381e-01_jprb,1.1441e+00_jprb,1.4299e+00_jprb,1.5705e+00_jprb/)  
kbo( :, 1,46, 9) = (/&
 & 2.9074e-02_jprb,3.1936e-02_jprb,4.4021e-01_jprb,6.6617e-01_jprb,8.2306e-01_jprb,8.5311e-01_jprb/)  
kbo( :, 2,46, 9) = (/&
 & 3.4514e-02_jprb,3.7034e-02_jprb,5.0803e-01_jprb,7.7771e-01_jprb,9.6537e-01_jprb,1.0184e+00_jprb/)  
kbo( :, 3,46, 9) = (/&
 & 4.0817e-02_jprb,4.2987e-02_jprb,5.7579e-01_jprb,8.8933e-01_jprb,1.1073e+00_jprb,1.1856e+00_jprb/)  
kbo( :, 4,46, 9) = (/&
 & 4.8065e-02_jprb,4.9872e-02_jprb,6.4255e-01_jprb,9.9829e-01_jprb,1.2460e+00_jprb,1.3517e+00_jprb/)  
kbo( :, 5,46, 9) = (/&
 & 5.6423e-02_jprb,5.7882e-02_jprb,7.0700e-01_jprb,1.1029e+00_jprb,1.3784e+00_jprb,1.5131e+00_jprb/)  
kbo( :, 1,47, 9) = (/&
 & 2.4535e-02_jprb,2.7684e-02_jprb,4.0628e-01_jprb,6.1382e-01_jprb,7.5741e-01_jprb,7.7949e-01_jprb/)  
kbo( :, 2,47, 9) = (/&
 & 2.9449e-02_jprb,3.2260e-02_jprb,4.7443e-01_jprb,7.2561e-01_jprb,8.9979e-01_jprb,9.4468e-01_jprb/)  
kbo( :, 3,47, 9) = (/&
 & 3.5234e-02_jprb,3.7694e-02_jprb,5.4316e-01_jprb,8.3846e-01_jprb,1.0433e+00_jprb,1.1130e+00_jprb/)  
kbo( :, 4,47, 9) = (/&
 & 4.1912e-02_jprb,4.4006e-02_jprb,6.1119e-01_jprb,9.4961e-01_jprb,1.1846e+00_jprb,1.2819e+00_jprb/)  
kbo( :, 5,47, 9) = (/&
 & 4.9674e-02_jprb,5.1405e-02_jprb,6.7740e-01_jprb,1.0570e+00_jprb,1.3207e+00_jprb,1.4474e+00_jprb/)  
kbo( :, 1,48, 9) = (/&
 & 2.0618e-02_jprb,2.4026e-02_jprb,3.7343e-01_jprb,5.6290e-01_jprb,6.9352e-01_jprb,7.0849e-01_jprb/)  
kbo( :, 2,48, 9) = (/&
 & 2.5013e-02_jprb,2.8103e-02_jprb,4.4151e-01_jprb,6.7436e-01_jprb,8.3513e-01_jprb,8.7266e-01_jprb/)  
kbo( :, 3,48, 9) = (/&
 & 3.0305e-02_jprb,3.3049e-02_jprb,5.1090e-01_jprb,7.8783e-01_jprb,9.7958e-01_jprb,1.0415e+00_jprb/)  
kbo( :, 4,48, 9) = (/&
 & 3.6461e-02_jprb,3.8842e-02_jprb,5.7999e-01_jprb,9.0076e-01_jprb,1.1229e+00_jprb,1.2126e+00_jprb/)  
kbo( :, 5,48, 9) = (/&
 & 4.3637e-02_jprb,4.5645e-02_jprb,6.4766e-01_jprb,1.0105e+00_jprb,1.2621e+00_jprb,1.3817e+00_jprb/)  
kbo( :, 1,49, 9) = (/&
 & 1.7262e-02_jprb,2.0889e-02_jprb,3.4154e-01_jprb,5.1353e-01_jprb,6.3147e-01_jprb,6.4035e-01_jprb/)  
kbo( :, 2,49, 9) = (/&
 & 2.1137e-02_jprb,2.4489e-02_jprb,4.0924e-01_jprb,6.2397e-01_jprb,7.7164e-01_jprb,8.0268e-01_jprb/)  
kbo( :, 3,49, 9) = (/&
 & 2.5945e-02_jprb,2.8963e-02_jprb,4.7895e-01_jprb,7.3764e-01_jprb,9.1622e-01_jprb,9.7159e-01_jprb/)  
kbo( :, 4,49, 9) = (/&
 & 3.1605e-02_jprb,3.4269e-02_jprb,5.4885e-01_jprb,8.5174e-01_jprb,1.0610e+00_jprb,1.1442e+00_jprb/)  
kbo( :, 5,49, 9) = (/&
 & 3.8248e-02_jprb,4.0534e-02_jprb,6.1776e-01_jprb,9.6350e-01_jprb,1.2028e+00_jprb,1.3168e+00_jprb/)  
kbo( :, 1,50, 9) = (/&
 & 1.4461e-02_jprb,1.8256e-02_jprb,3.1238e-01_jprb,4.6845e-01_jprb,5.7488e-01_jprb,5.7744e-01_jprb/)  
kbo( :, 2,50, 9) = (/&
 & 1.7870e-02_jprb,2.1439e-02_jprb,3.7949e-01_jprb,5.7732e-01_jprb,7.1302e-01_jprb,7.3703e-01_jprb/)  
kbo( :, 3,50, 9) = (/&
 & 2.2222e-02_jprb,2.5490e-02_jprb,4.4914e-01_jprb,6.9079e-01_jprb,8.5702e-01_jprb,9.0516e-01_jprb/)  
kbo( :, 4,50, 9) = (/&
 & 2.7435e-02_jprb,3.0361e-02_jprb,5.1966e-01_jprb,8.0553e-01_jprb,1.0027e+00_jprb,1.0781e+00_jprb/)  
kbo( :, 5,50, 9) = (/&
 & 3.3599e-02_jprb,3.6150e-02_jprb,5.8955e-01_jprb,9.1897e-01_jprb,1.1465e+00_jprb,1.2529e+00_jprb/)  
kbo( :, 1,51, 9) = (/&
 & 1.2097e-02_jprb,1.6003e-02_jprb,2.8492e-01_jprb,4.2603e-01_jprb,5.2182e-01_jprb,5.1816e-01_jprb/)  
kbo( :, 2,51, 9) = (/&
 & 1.5083e-02_jprb,1.8829e-02_jprb,3.5127e-01_jprb,5.3304e-01_jprb,6.5735e-01_jprb,6.7429e-01_jprb/)  
kbo( :, 3,51, 9) = (/&
 & 1.8997e-02_jprb,2.2488e-02_jprb,4.2058e-01_jprb,6.4583e-01_jprb,8.0019e-01_jprb,8.4077e-01_jprb/)  
kbo( :, 4,51, 9) = (/&
 & 2.3775e-02_jprb,2.6948e-02_jprb,4.9143e-01_jprb,7.6084e-01_jprb,9.4628e-01_jprb,1.0134e+00_jprb/)  
kbo( :, 5,51, 9) = (/&
 & 2.9499e-02_jprb,3.2304e-02_jprb,5.6205e-01_jprb,8.7547e-01_jprb,1.0915e+00_jprb,1.1895e+00_jprb/)  
kbo( :, 1,52, 9) = (/&
 & 1.0095e-02_jprb,1.4050e-02_jprb,2.5854e-01_jprb,3.8529e-01_jprb,4.7109e-01_jprb,4.6197e-01_jprb/)  
kbo( :, 2,52, 9) = (/&
 & 1.2680e-02_jprb,1.6562e-02_jprb,3.2378e-01_jprb,4.9000e-01_jprb,6.0315e-01_jprb,6.1385e-01_jprb/)  
kbo( :, 3,52, 9) = (/&
 & 1.6167e-02_jprb,1.9851e-02_jprb,3.9257e-01_jprb,6.0150e-01_jprb,7.4434e-01_jprb,7.7805e-01_jprb/)  
kbo( :, 4,52, 9) = (/&
 & 2.0524e-02_jprb,2.3923e-02_jprb,4.6343e-01_jprb,7.1644e-01_jprb,8.9011e-01_jprb,9.4994e-01_jprb/)  
kbo( :, 5,52, 9) = (/&
 & 2.5821e-02_jprb,2.8872e-02_jprb,5.3465e-01_jprb,8.3183e-01_jprb,1.0363e+00_jprb,1.1268e+00_jprb/)  
kbo( :, 1,53, 9) = (/&
 & 8.3963e-03_jprb,1.2343e-02_jprb,2.3325e-01_jprb,3.4626e-01_jprb,4.2244e-01_jprb,4.0883e-01_jprb/)  
kbo( :, 2,53, 9) = (/&
 & 1.0621e-02_jprb,1.4581e-02_jprb,2.9700e-01_jprb,4.4811e-01_jprb,5.5051e-01_jprb,5.5572e-01_jprb/)  
kbo( :, 3,53, 9) = (/&
 & 1.3693e-02_jprb,1.7537e-02_jprb,3.6501e-01_jprb,5.5778e-01_jprb,6.8933e-01_jprb,7.1705e-01_jprb/)  
kbo( :, 4,53, 9) = (/&
 & 1.7633e-02_jprb,2.1242e-02_jprb,4.3562e-01_jprb,6.7222e-01_jprb,8.3412e-01_jprb,8.8780e-01_jprb/)  
kbo( :, 5,53, 9) = (/&
 & 2.2506e-02_jprb,2.5791e-02_jprb,5.0721e-01_jprb,7.8803e-01_jprb,9.8102e-01_jprb,1.0650e+00_jprb/)  
kbo( :, 1,54, 9) = (/&
 & 7.0177e-03_jprb,1.0894e-02_jprb,2.1095e-01_jprb,3.1199e-01_jprb,3.7969e-01_jprb,3.6085e-01_jprb/)  
kbo( :, 2,54, 9) = (/&
 & 8.9302e-03_jprb,1.2918e-02_jprb,2.7298e-01_jprb,4.1066e-01_jprb,5.0363e-01_jprb,5.0181e-01_jprb/)  
kbo( :, 3,54, 9) = (/&
 & 1.1634e-02_jprb,1.5589e-02_jprb,3.4013e-01_jprb,5.1838e-01_jprb,6.3970e-01_jprb,6.5930e-01_jprb/)  
kbo( :, 4,54, 9) = (/&
 & 1.5199e-02_jprb,1.8979e-02_jprb,4.1032e-01_jprb,6.3200e-01_jprb,7.8327e-01_jprb,8.2770e-01_jprb/)  
kbo( :, 5,54, 9) = (/&
 & 1.9687e-02_jprb,2.3177e-02_jprb,4.8201e-01_jprb,7.4784e-01_jprb,9.3015e-01_jprb,1.0034e+00_jprb/)  
kbo( :, 1,55, 9) = (/&
 & 5.8731e-03_jprb,9.6286e-03_jprb,1.9052e-01_jprb,2.8063e-01_jprb,3.4069e-01_jprb,3.1655e-01_jprb/)  
kbo( :, 2,55, 9) = (/&
 & 7.5168e-03_jprb,1.1480e-02_jprb,2.5064e-01_jprb,3.7586e-01_jprb,4.6019e-01_jprb,4.5069e-01_jprb/)  
kbo( :, 3,55, 9) = (/&
 & 9.8853e-03_jprb,1.3900e-02_jprb,3.1669e-01_jprb,4.8140e-01_jprb,5.9307e-01_jprb,6.0350e-01_jprb/)  
kbo( :, 4,55, 9) = (/&
 & 1.3096e-02_jprb,1.7018e-02_jprb,3.8628e-01_jprb,5.9371e-01_jprb,7.3500e-01_jprb,7.6887e-01_jprb/)  
kbo( :, 5,55, 9) = (/&
 & 1.7222e-02_jprb,2.0899e-02_jprb,4.5791e-01_jprb,7.0935e-01_jprb,8.8144e-01_jprb,9.4215e-01_jprb/)  
kbo( :, 1,56, 9) = (/&
 & 4.9060e-03_jprb,8.5039e-03_jprb,1.7111e-01_jprb,2.5106e-01_jprb,3.0385e-01_jprb,2.7511e-01_jprb/)  
kbo( :, 2,56, 9) = (/&
 & 6.3120e-03_jprb,1.0201e-02_jprb,2.2915e-01_jprb,3.4243e-01_jprb,4.1847e-01_jprb,4.0215e-01_jprb/)  
kbo( :, 3,56, 9) = (/&
 & 8.3672e-03_jprb,1.2401e-02_jprb,2.9378e-01_jprb,4.4537e-01_jprb,5.4774e-01_jprb,5.4959e-01_jprb/)  
kbo( :, 4,56, 9) = (/&
 & 1.1240e-02_jprb,1.5268e-02_jprb,3.6263e-01_jprb,5.5595e-01_jprb,6.8746e-01_jprb,7.1138e-01_jprb/)  
kbo( :, 5,56, 9) = (/&
 & 1.5010e-02_jprb,1.8851e-02_jprb,4.3398e-01_jprb,6.7113e-01_jprb,8.3300e-01_jprb,8.8217e-01_jprb/)  
kbo( :, 1,57, 9) = (/&
 & 4.0878e-03_jprb,7.4982e-03_jprb,1.5269e-01_jprb,2.2324e-01_jprb,2.6911e-01_jprb,2.3696e-01_jprb/)  
kbo( :, 2,57, 9) = (/&
 & 5.2898e-03_jprb,9.0610e-03_jprb,2.0850e-01_jprb,3.1039e-01_jprb,3.7842e-01_jprb,3.5615e-01_jprb/)  
kbo( :, 3,57, 9) = (/&
 & 7.0606e-03_jprb,1.1069e-02_jprb,2.7146e-01_jprb,4.1021e-01_jprb,5.0366e-01_jprb,4.9745e-01_jprb/)  
kbo( :, 4,57, 9) = (/&
 & 9.6071e-03_jprb,1.3700e-02_jprb,3.3939e-01_jprb,5.1887e-01_jprb,6.4072e-01_jprb,6.5511e-01_jprb/)  
kbo( :, 5,57, 9) = (/&
 & 1.3031e-02_jprb,1.7013e-02_jprb,4.1025e-01_jprb,6.3316e-01_jprb,7.8498e-01_jprb,8.2331e-01_jprb/)  
kbo( :, 1,58, 9) = (/&
 & 3.4110e-03_jprb,6.6187e-03_jprb,1.3608e-01_jprb,1.9844e-01_jprb,2.3812e-01_jprb,2.0347e-01_jprb/)  
kbo( :, 2,58, 9) = (/&
 & 4.4437e-03_jprb,8.0723e-03_jprb,1.8969e-01_jprb,2.8123e-01_jprb,3.4208e-01_jprb,3.1439e-01_jprb/)  
kbo( :, 3,58, 9) = (/&
 & 5.9725e-03_jprb,9.9123e-03_jprb,2.5079e-01_jprb,3.7777e-01_jprb,4.6311e-01_jprb,4.4931e-01_jprb/)  
kbo( :, 4,58, 9) = (/&
 & 8.2191e-03_jprb,1.2333e-02_jprb,3.1765e-01_jprb,4.8433e-01_jprb,5.9715e-01_jprb,6.0236e-01_jprb/)  
kbo( :, 5,58, 9) = (/&
 & 1.1325e-02_jprb,1.5419e-02_jprb,3.8789e-01_jprb,5.9740e-01_jprb,7.3982e-01_jprb,7.6757e-01_jprb/)  
kbo( :, 1,59, 9) = (/&
 & 2.9777e-03_jprb,6.0559e-03_jprb,1.2911e-01_jprb,1.8831e-01_jprb,2.2557e-01_jprb,1.8804e-01_jprb/)  
kbo( :, 2,59, 9) = (/&
 & 3.9243e-03_jprb,7.4586e-03_jprb,1.8188e-01_jprb,2.6942e-01_jprb,3.2742e-01_jprb,2.9431e-01_jprb/)  
kbo( :, 3,59, 9) = (/&
 & 5.3410e-03_jprb,9.2341e-03_jprb,2.4229e-01_jprb,3.6461e-01_jprb,4.4670e-01_jprb,4.2516e-01_jprb/)  
kbo( :, 4,59, 9) = (/&
 & 7.4484e-03_jprb,1.1574e-02_jprb,3.0869e-01_jprb,4.7031e-01_jprb,5.7948e-01_jprb,5.7493e-01_jprb/)  
kbo( :, 5,59, 9) = (/&
 & 1.0416e-02_jprb,1.4573e-02_jprb,3.7872e-01_jprb,5.8281e-01_jprb,7.2146e-01_jprb,7.3756e-01_jprb/)  
kbo( :, 1,13,10) = (/&
 & 7.5289e+00_jprb,7.5248e+00_jprb,5.8020e+00_jprb,4.2235e+00_jprb,3.4788e+00_jprb,3.3830e+00_jprb/)  
kbo( :, 2,13,10) = (/&
 & 7.5373e+00_jprb,7.5331e+00_jprb,5.7965e+00_jprb,4.1949e+00_jprb,3.4100e+00_jprb,3.3091e+00_jprb/)  
kbo( :, 3,13,10) = (/&
 & 7.5342e+00_jprb,7.5300e+00_jprb,5.7907e+00_jprb,4.1656e+00_jprb,3.3402e+00_jprb,3.2690e+00_jprb/)  
kbo( :, 4,13,10) = (/&
 & 7.4927e+00_jprb,7.4886e+00_jprb,5.7565e+00_jprb,4.1206e+00_jprb,3.2641e+00_jprb,3.2567e+00_jprb/)  
kbo( :, 5,13,10) = (/&
 & 7.4212e+00_jprb,7.4171e+00_jprb,5.6978e+00_jprb,4.0611e+00_jprb,3.1856e+00_jprb,3.2490e+00_jprb/)  
kbo( :, 1,14,10) = (/&
 & 7.4571e+00_jprb,7.4529e+00_jprb,5.7300e+00_jprb,4.2516e+00_jprb,3.6973e+00_jprb,3.6249e+00_jprb/)  
kbo( :, 2,14,10) = (/&
 & 7.4407e+00_jprb,7.4365e+00_jprb,5.7211e+00_jprb,4.2113e+00_jprb,3.6244e+00_jprb,3.5667e+00_jprb/)  
kbo( :, 3,14,10) = (/&
 & 7.3963e+00_jprb,7.3922e+00_jprb,5.6812e+00_jprb,4.1556e+00_jprb,3.5526e+00_jprb,3.5115e+00_jprb/)  
kbo( :, 4,14,10) = (/&
 & 7.3296e+00_jprb,7.3255e+00_jprb,5.6249e+00_jprb,4.0935e+00_jprb,3.4766e+00_jprb,3.4707e+00_jprb/)  
kbo( :, 5,14,10) = (/&
 & 7.2465e+00_jprb,7.2425e+00_jprb,5.5619e+00_jprb,4.0245e+00_jprb,3.4020e+00_jprb,3.4493e+00_jprb/)  
kbo( :, 1,15,10) = (/&
 & 7.1911e+00_jprb,7.1871e+00_jprb,5.5280e+00_jprb,4.2968e+00_jprb,3.9627e+00_jprb,3.9090e+00_jprb/)  
kbo( :, 2,15,10) = (/&
 & 7.1513e+00_jprb,7.1474e+00_jprb,5.4956e+00_jprb,4.2289e+00_jprb,3.8871e+00_jprb,3.8400e+00_jprb/)  
kbo( :, 3,15,10) = (/&
 & 7.0923e+00_jprb,7.0884e+00_jprb,5.4464e+00_jprb,4.1468e+00_jprb,3.8062e+00_jprb,3.7828e+00_jprb/)  
kbo( :, 4,15,10) = (/&
 & 6.9934e+00_jprb,6.9895e+00_jprb,5.3713e+00_jprb,4.0638e+00_jprb,3.7328e+00_jprb,3.7290e+00_jprb/)  
kbo( :, 5,15,10) = (/&
 & 6.8864e+00_jprb,6.8825e+00_jprb,5.2899e+00_jprb,3.9761e+00_jprb,3.6483e+00_jprb,3.6704e+00_jprb/)  
kbo( :, 1,16,10) = (/&
 & 6.7911e+00_jprb,6.7873e+00_jprb,5.2205e+00_jprb,4.3199e+00_jprb,4.2502e+00_jprb,4.2466e+00_jprb/)  
kbo( :, 2,16,10) = (/&
 & 6.7263e+00_jprb,6.7226e+00_jprb,5.1711e+00_jprb,4.2329e+00_jprb,4.1599e+00_jprb,4.1741e+00_jprb/)  
kbo( :, 3,16,10) = (/&
 & 6.6333e+00_jprb,6.6296e+00_jprb,5.0988e+00_jprb,4.1448e+00_jprb,4.0703e+00_jprb,4.1094e+00_jprb/)  
kbo( :, 4,16,10) = (/&
 & 6.5280e+00_jprb,6.5244e+00_jprb,5.0198e+00_jprb,4.0496e+00_jprb,3.9801e+00_jprb,4.0403e+00_jprb/)  
kbo( :, 5,16,10) = (/&
 & 6.4167e+00_jprb,6.4131e+00_jprb,4.9361e+00_jprb,3.9499e+00_jprb,3.8927e+00_jprb,3.9614e+00_jprb/)  
kbo( :, 1,17,10) = (/&
 & 6.2531e+00_jprb,6.2497e+00_jprb,4.8286e+00_jprb,4.3686e+00_jprb,4.5172e+00_jprb,4.6364e+00_jprb/)  
kbo( :, 2,17,10) = (/&
 & 6.1677e+00_jprb,6.1643e+00_jprb,4.7626e+00_jprb,4.2792e+00_jprb,4.4298e+00_jprb,4.5601e+00_jprb/)  
kbo( :, 3,17,10) = (/&
 & 6.0747e+00_jprb,6.0713e+00_jprb,4.6908e+00_jprb,4.1860e+00_jprb,4.3428e+00_jprb,4.4812e+00_jprb/)  
kbo( :, 4,17,10) = (/&
 & 5.9604e+00_jprb,5.9571e+00_jprb,4.6053e+00_jprb,4.0899e+00_jprb,4.2570e+00_jprb,4.3935e+00_jprb/)  
kbo( :, 5,17,10) = (/&
 & 5.8291e+00_jprb,5.8259e+00_jprb,4.5089e+00_jprb,3.9935e+00_jprb,4.1733e+00_jprb,4.3011e+00_jprb/)  
kbo( :, 1,18,10) = (/&
 & 5.6266e+00_jprb,5.6236e+00_jprb,4.4207e+00_jprb,4.4989e+00_jprb,4.8053e+00_jprb,5.0247e+00_jprb/)  
kbo( :, 2,18,10) = (/&
 & 5.5427e+00_jprb,5.5397e+00_jprb,4.3512e+00_jprb,4.4021e+00_jprb,4.7226e+00_jprb,4.9470e+00_jprb/)  
kbo( :, 3,18,10) = (/&
 & 5.4374e+00_jprb,5.4345e+00_jprb,4.2669e+00_jprb,4.3054e+00_jprb,4.6429e+00_jprb,4.8548e+00_jprb/)  
kbo( :, 4,18,10) = (/&
 & 5.3118e+00_jprb,5.3090e+00_jprb,4.1727e+00_jprb,4.2046e+00_jprb,4.5567e+00_jprb,4.7652e+00_jprb/)  
kbo( :, 5,18,10) = (/&
 & 5.1788e+00_jprb,5.1760e+00_jprb,4.0826e+00_jprb,4.1045e+00_jprb,4.4583e+00_jprb,4.6766e+00_jprb/)  
kbo( :, 1,19,10) = (/&
 & 4.9892e+00_jprb,4.9865e+00_jprb,4.1022e+00_jprb,4.6290e+00_jprb,5.1554e+00_jprb,5.3946e+00_jprb/)  
kbo( :, 2,19,10) = (/&
 & 4.8951e+00_jprb,4.8924e+00_jprb,4.0165e+00_jprb,4.5273e+00_jprb,5.0702e+00_jprb,5.3073e+00_jprb/)  
kbo( :, 3,19,10) = (/&
 & 4.7798e+00_jprb,4.7773e+00_jprb,3.9238e+00_jprb,4.4269e+00_jprb,4.9753e+00_jprb,5.2208e+00_jprb/)  
kbo( :, 4,19,10) = (/&
 & 4.6598e+00_jprb,4.6573e+00_jprb,3.8352e+00_jprb,4.3303e+00_jprb,4.8704e+00_jprb,5.1400e+00_jprb/)  
kbo( :, 5,19,10) = (/&
 & 4.5508e+00_jprb,4.5484e+00_jprb,3.7462e+00_jprb,4.2290e+00_jprb,4.7590e+00_jprb,5.0603e+00_jprb/)  
kbo( :, 1,20,10) = (/&
 & 4.3446e+00_jprb,4.3423e+00_jprb,3.8795e+00_jprb,4.7522e+00_jprb,5.5065e+00_jprb,5.7535e+00_jprb/)  
kbo( :, 2,20,10) = (/&
 & 4.2431e+00_jprb,4.2409e+00_jprb,3.7927e+00_jprb,4.6561e+00_jprb,5.4004e+00_jprb,5.6800e+00_jprb/)  
kbo( :, 3,20,10) = (/&
 & 4.1397e+00_jprb,4.1376e+00_jprb,3.7047e+00_jprb,4.5585e+00_jprb,5.2878e+00_jprb,5.6033e+00_jprb/)  
kbo( :, 4,20,10) = (/&
 & 4.0481e+00_jprb,4.0460e+00_jprb,3.6150e+00_jprb,4.4575e+00_jprb,5.1721e+00_jprb,5.5261e+00_jprb/)  
kbo( :, 5,20,10) = (/&
 & 3.9765e+00_jprb,3.9744e+00_jprb,3.5343e+00_jprb,4.3595e+00_jprb,5.0554e+00_jprb,5.4406e+00_jprb/)  
kbo( :, 1,21,10) = (/&
 & 3.7211e+00_jprb,3.7192e+00_jprb,3.7613e+00_jprb,4.9074e+00_jprb,5.7827e+00_jprb,6.1154e+00_jprb/)  
kbo( :, 2,21,10) = (/&
 & 3.6330e+00_jprb,3.6312e+00_jprb,3.6717e+00_jprb,4.8116e+00_jprb,5.6714e+00_jprb,6.0506e+00_jprb/)  
kbo( :, 3,21,10) = (/&
 & 3.5589e+00_jprb,3.5571e+00_jprb,3.5807e+00_jprb,4.7108e+00_jprb,5.5635e+00_jprb,5.9724e+00_jprb/)  
kbo( :, 4,21,10) = (/&
 & 3.5073e+00_jprb,3.5055e+00_jprb,3.5016e+00_jprb,4.6097e+00_jprb,5.4603e+00_jprb,5.8886e+00_jprb/)  
kbo( :, 5,21,10) = (/&
 & 3.4691e+00_jprb,3.4674e+00_jprb,3.4364e+00_jprb,4.5052e+00_jprb,5.3541e+00_jprb,5.8090e+00_jprb/)  
kbo( :, 1,22,10) = (/&
 & 3.1543e+00_jprb,3.1527e+00_jprb,3.6782e+00_jprb,5.0447e+00_jprb,6.0160e+00_jprb,6.4253e+00_jprb/)  
kbo( :, 2,22,10) = (/&
 & 3.0969e+00_jprb,3.0954e+00_jprb,3.5898e+00_jprb,4.9499e+00_jprb,5.9206e+00_jprb,6.3659e+00_jprb/)  
kbo( :, 3,22,10) = (/&
 & 3.0620e+00_jprb,3.0605e+00_jprb,3.5058e+00_jprb,4.8486e+00_jprb,5.8265e+00_jprb,6.2989e+00_jprb/)  
kbo( :, 4,22,10) = (/&
 & 3.0425e+00_jprb,3.0410e+00_jprb,3.4395e+00_jprb,4.7446e+00_jprb,5.7289e+00_jprb,6.2283e+00_jprb/)  
kbo( :, 5,22,10) = (/&
 & 3.0546e+00_jprb,3.0532e+00_jprb,3.3854e+00_jprb,4.6358e+00_jprb,5.6252e+00_jprb,6.1603e+00_jprb/)  
kbo( :, 1,23,10) = (/&
 & 2.6854e+00_jprb,2.6841e+00_jprb,3.6308e+00_jprb,5.1459e+00_jprb,6.2399e+00_jprb,6.6740e+00_jprb/)  
kbo( :, 2,23,10) = (/&
 & 2.6617e+00_jprb,2.6604e+00_jprb,3.5468e+00_jprb,5.0540e+00_jprb,6.1652e+00_jprb,6.6315e+00_jprb/)  
kbo( :, 3,23,10) = (/&
 & 2.6584e+00_jprb,2.6571e+00_jprb,3.4703e+00_jprb,4.9599e+00_jprb,6.0780e+00_jprb,6.5824e+00_jprb/)  
kbo( :, 4,23,10) = (/&
 & 2.6872e+00_jprb,2.6859e+00_jprb,3.4111e+00_jprb,4.8587e+00_jprb,5.9856e+00_jprb,6.5287e+00_jprb/)  
kbo( :, 5,23,10) = (/&
 & 2.7417e+00_jprb,2.7405e+00_jprb,3.3560e+00_jprb,4.7548e+00_jprb,5.8884e+00_jprb,6.4686e+00_jprb/)  
kbo( :, 1,24,10) = (/&
 & 2.3151e+00_jprb,2.3140e+00_jprb,3.5886e+00_jprb,5.2274e+00_jprb,6.4311e+00_jprb,6.8789e+00_jprb/)  
kbo( :, 2,24,10) = (/&
 & 2.3230e+00_jprb,2.3219e+00_jprb,3.5113e+00_jprb,5.1442e+00_jprb,6.3705e+00_jprb,6.8549e+00_jprb/)  
kbo( :, 3,24,10) = (/&
 & 2.3609e+00_jprb,2.3598e+00_jprb,3.4524e+00_jprb,5.0514e+00_jprb,6.2984e+00_jprb,6.8163e+00_jprb/)  
kbo( :, 4,24,10) = (/&
 & 2.4175e+00_jprb,2.4164e+00_jprb,3.3989e+00_jprb,4.9521e+00_jprb,6.2181e+00_jprb,6.7710e+00_jprb/)  
kbo( :, 5,24,10) = (/&
 & 2.4762e+00_jprb,2.4752e+00_jprb,3.3577e+00_jprb,4.8533e+00_jprb,6.1278e+00_jprb,6.7244e+00_jprb/)  
kbo( :, 1,25,10) = (/&
 & 2.0244e+00_jprb,2.0235e+00_jprb,3.5269e+00_jprb,5.2724e+00_jprb,6.5740e+00_jprb,7.0315e+00_jprb/)  
kbo( :, 2,25,10) = (/&
 & 2.0651e+00_jprb,2.0643e+00_jprb,3.4750e+00_jprb,5.1965e+00_jprb,6.5327e+00_jprb,7.0283e+00_jprb/)  
kbo( :, 3,25,10) = (/&
 & 2.1229e+00_jprb,2.1220e+00_jprb,3.4316e+00_jprb,5.1098e+00_jprb,6.4777e+00_jprb,7.0013e+00_jprb/)  
kbo( :, 4,25,10) = (/&
 & 2.1858e+00_jprb,2.1849e+00_jprb,3.3932e+00_jprb,5.0189e+00_jprb,6.4050e+00_jprb,6.9699e+00_jprb/)  
kbo( :, 5,25,10) = (/&
 & 2.2519e+00_jprb,2.2510e+00_jprb,3.3680e+00_jprb,4.9354e+00_jprb,6.3143e+00_jprb,6.9411e+00_jprb/)  
kbo( :, 1,26,10) = (/&
 & 1.8038e+00_jprb,1.8031e+00_jprb,3.4751e+00_jprb,5.2741e+00_jprb,6.6754e+00_jprb,7.1367e+00_jprb/)  
kbo( :, 2,26,10) = (/&
 & 1.8584e+00_jprb,1.8577e+00_jprb,3.4421e+00_jprb,5.2128e+00_jprb,6.6468e+00_jprb,7.1525e+00_jprb/)  
kbo( :, 3,26,10) = (/&
 & 1.9217e+00_jprb,1.9209e+00_jprb,3.4089e+00_jprb,5.1445e+00_jprb,6.6040e+00_jprb,7.1457e+00_jprb/)  
kbo( :, 4,26,10) = (/&
 & 1.9824e+00_jprb,1.9816e+00_jprb,3.3919e+00_jprb,5.0736e+00_jprb,6.5398e+00_jprb,7.1301e+00_jprb/)  
kbo( :, 5,26,10) = (/&
 & 2.0431e+00_jprb,2.0423e+00_jprb,3.3693e+00_jprb,5.0098e+00_jprb,6.4614e+00_jprb,7.1116e+00_jprb/)  
kbo( :, 1,27,10) = (/&
 & 1.6205e+00_jprb,1.6200e+00_jprb,3.4312e+00_jprb,5.2512e+00_jprb,6.7302e+00_jprb,7.1916e+00_jprb/)  
kbo( :, 2,27,10) = (/&
 & 1.6821e+00_jprb,1.6815e+00_jprb,3.4096e+00_jprb,5.2107e+00_jprb,6.7204e+00_jprb,7.2341e+00_jprb/)  
kbo( :, 3,27,10) = (/&
 & 1.7393e+00_jprb,1.7387e+00_jprb,3.3986e+00_jprb,5.1611e+00_jprb,6.6901e+00_jprb,7.2461e+00_jprb/)  
kbo( :, 4,27,10) = (/&
 & 1.7952e+00_jprb,1.7945e+00_jprb,3.3849e+00_jprb,5.1118e+00_jprb,6.6400e+00_jprb,7.2521e+00_jprb/)  

IF (lhook) CALL dr_hook('RRTM_KGB4:PART26',1,zhook_handle)
END SUBROUTINE part26


SUBROUTINE part27

REAL(KIND=JPRB) :: ZHOOK_HANDLE
IF (lhook) CALL dr_hook('RRTM_KGB4:PART27',0,zhook_handle)


kbo( :, 5,27,10) = (/&
 & 1.8467e+00_jprb,1.8460e+00_jprb,3.3678e+00_jprb,5.0688e+00_jprb,6.5750e+00_jprb,7.2529e+00_jprb/)  
kbo( :, 1,28,10) = (/&
 & 1.4581e+00_jprb,1.4577e+00_jprb,3.3793e+00_jprb,5.2151e+00_jprb,6.7528e+00_jprb,7.2099e+00_jprb/)  
kbo( :, 2,28,10) = (/&
 & 1.5130e+00_jprb,1.5126e+00_jprb,3.3785e+00_jprb,5.1947e+00_jprb,6.7653e+00_jprb,7.2740e+00_jprb/)  
kbo( :, 3,28,10) = (/&
 & 1.5669e+00_jprb,1.5664e+00_jprb,3.3810e+00_jprb,5.1664e+00_jprb,6.7512e+00_jprb,7.3192e+00_jprb/)  
kbo( :, 4,28,10) = (/&
 & 1.6172e+00_jprb,1.6166e+00_jprb,3.3732e+00_jprb,5.1425e+00_jprb,6.7177e+00_jprb,7.3590e+00_jprb/)  
kbo( :, 5,28,10) = (/&
 & 1.6631e+00_jprb,1.6625e+00_jprb,3.3694e+00_jprb,5.1109e+00_jprb,6.6624e+00_jprb,7.3782e+00_jprb/)  
kbo( :, 1,29,10) = (/&
 & 1.3022e+00_jprb,1.3019e+00_jprb,3.3270e+00_jprb,5.1728e+00_jprb,6.7559e+00_jprb,7.2096e+00_jprb/)  
kbo( :, 2,29,10) = (/&
 & 1.3533e+00_jprb,1.3529e+00_jprb,3.3473e+00_jprb,5.1723e+00_jprb,6.7905e+00_jprb,7.3069e+00_jprb/)  
kbo( :, 3,29,10) = (/&
 & 1.4031e+00_jprb,1.4027e+00_jprb,3.3571e+00_jprb,5.1703e+00_jprb,6.7965e+00_jprb,7.3925e+00_jprb/)  
kbo( :, 4,29,10) = (/&
 & 1.4491e+00_jprb,1.4487e+00_jprb,3.3643e+00_jprb,5.1652e+00_jprb,6.7741e+00_jprb,7.4637e+00_jprb/)  
kbo( :, 5,29,10) = (/&
 & 1.4926e+00_jprb,1.4921e+00_jprb,3.3697e+00_jprb,5.1473e+00_jprb,6.7261e+00_jprb,7.4940e+00_jprb/)  
kbo( :, 1,30,10) = (/&
 & 1.1600e+00_jprb,1.1597e+00_jprb,3.2811e+00_jprb,5.1242e+00_jprb,6.7455e+00_jprb,7.2055e+00_jprb/)  
kbo( :, 2,30,10) = (/&
 & 1.2064e+00_jprb,1.2061e+00_jprb,3.3125e+00_jprb,5.1497e+00_jprb,6.8027e+00_jprb,7.3456e+00_jprb/)  
kbo( :, 3,30,10) = (/&
 & 1.2511e+00_jprb,1.2508e+00_jprb,3.3366e+00_jprb,5.1707e+00_jprb,6.8233e+00_jprb,7.4712e+00_jprb/)  
kbo( :, 4,30,10) = (/&
 & 1.2939e+00_jprb,1.2935e+00_jprb,3.3556e+00_jprb,5.1801e+00_jprb,6.8143e+00_jprb,7.5611e+00_jprb/)  
kbo( :, 5,30,10) = (/&
 & 1.3350e+00_jprb,1.3346e+00_jprb,3.3660e+00_jprb,5.1735e+00_jprb,6.7754e+00_jprb,7.6031e+00_jprb/)  
kbo( :, 1,31,10) = (/&
 & 1.0335e+00_jprb,1.0333e+00_jprb,3.2413e+00_jprb,5.0768e+00_jprb,6.7328e+00_jprb,7.2247e+00_jprb/)  
kbo( :, 2,31,10) = (/&
 & 1.0751e+00_jprb,1.0749e+00_jprb,3.2817e+00_jprb,5.1294e+00_jprb,6.8096e+00_jprb,7.4118e+00_jprb/)  
kbo( :, 3,31,10) = (/&
 & 1.1154e+00_jprb,1.1152e+00_jprb,3.3173e+00_jprb,5.1678e+00_jprb,6.8467e+00_jprb,7.5648e+00_jprb/)  
kbo( :, 4,31,10) = (/&
 & 1.1549e+00_jprb,1.1546e+00_jprb,3.3453e+00_jprb,5.1899e+00_jprb,6.8485e+00_jprb,7.6626e+00_jprb/)  
kbo( :, 5,31,10) = (/&
 & 1.1976e+00_jprb,1.1973e+00_jprb,3.3597e+00_jprb,5.1968e+00_jprb,6.8174e+00_jprb,7.7173e+00_jprb/)  
kbo( :, 1,32,10) = (/&
 & 9.2196e-01_jprb,9.2184e-01_jprb,3.2061e+00_jprb,5.0420e+00_jprb,6.7251e+00_jprb,7.2717e+00_jprb/)  
kbo( :, 2,32,10) = (/&
 & 9.5916e-01_jprb,9.5901e-01_jprb,3.2581e+00_jprb,5.1143e+00_jprb,6.8187e+00_jprb,7.4921e+00_jprb/)  
kbo( :, 3,32,10) = (/&
 & 9.9613e-01_jprb,9.9593e-01_jprb,3.3030e+00_jprb,5.1678e+00_jprb,6.8677e+00_jprb,7.6515e+00_jprb/)  
kbo( :, 4,32,10) = (/&
 & 1.0359e+00_jprb,1.0357e+00_jprb,3.3356e+00_jprb,5.2002e+00_jprb,6.8779e+00_jprb,7.7596e+00_jprb/)  
kbo( :, 5,32,10) = (/&
 & 1.0855e+00_jprb,1.0851e+00_jprb,3.3519e+00_jprb,5.2172e+00_jprb,6.8517e+00_jprb,7.8246e+00_jprb/)  
kbo( :, 1,33,10) = (/&
 & 8.2444e-01_jprb,8.2438e-01_jprb,3.1786e+00_jprb,5.0173e+00_jprb,6.7243e+00_jprb,7.3448e+00_jprb/)  
kbo( :, 2,33,10) = (/&
 & 8.5838e-01_jprb,8.5826e-01_jprb,3.2411e+00_jprb,5.1061e+00_jprb,6.8299e+00_jprb,7.5783e+00_jprb/)  
kbo( :, 3,33,10) = (/&
 & 8.9425e-01_jprb,8.9407e-01_jprb,3.2909e+00_jprb,5.1715e+00_jprb,6.8889e+00_jprb,7.7451e+00_jprb/)  
kbo( :, 4,33,10) = (/&
 & 9.3902e-01_jprb,9.3875e-01_jprb,3.3252e+00_jprb,5.2146e+00_jprb,6.9056e+00_jprb,7.8681e+00_jprb/)  
kbo( :, 5,33,10) = (/&
 & 9.9963e-01_jprb,9.9926e-01_jprb,3.3429e+00_jprb,5.2364e+00_jprb,6.8820e+00_jprb,7.9383e+00_jprb/)  
kbo( :, 1,34,10) = (/&
 & 7.3808e-01_jprb,7.3807e-01_jprb,3.1554e+00_jprb,5.0005e+00_jprb,6.7270e+00_jprb,7.4193e+00_jprb/)  
kbo( :, 2,34,10) = (/&
 & 7.7041e-01_jprb,7.7031e-01_jprb,3.2245e+00_jprb,5.1037e+00_jprb,6.8428e+00_jprb,7.6564e+00_jprb/)  
kbo( :, 3,34,10) = (/&
 & 8.0927e-01_jprb,8.0908e-01_jprb,3.2785e+00_jprb,5.1786e+00_jprb,6.9090e+00_jprb,7.8421e+00_jprb/)  
kbo( :, 4,34,10) = (/&
 & 8.6226e-01_jprb,8.6198e-01_jprb,3.3161e+00_jprb,5.2290e+00_jprb,6.9264e+00_jprb,7.9654e+00_jprb/)  
kbo( :, 5,34,10) = (/&
 & 9.3161e-01_jprb,9.3129e-01_jprb,3.3332e+00_jprb,5.2535e+00_jprb,6.9068e+00_jprb,8.0359e+00_jprb/)  
kbo( :, 1,35,10) = (/&
 & 6.6091e-01_jprb,6.6090e-01_jprb,3.1297e+00_jprb,4.9826e+00_jprb,6.7231e+00_jprb,7.4730e+00_jprb/)  
kbo( :, 2,35,10) = (/&
 & 6.9343e-01_jprb,6.9337e-01_jprb,3.2054e+00_jprb,5.0985e+00_jprb,6.8504e+00_jprb,7.7289e+00_jprb/)  
kbo( :, 3,35,10) = (/&
 & 7.3707e-01_jprb,7.3689e-01_jprb,3.2647e+00_jprb,5.1833e+00_jprb,6.9233e+00_jprb,7.9244e+00_jprb/)  
kbo( :, 4,35,10) = (/&
 & 7.9689e-01_jprb,7.9665e-01_jprb,3.3047e+00_jprb,5.2421e+00_jprb,6.9456e+00_jprb,8.0506e+00_jprb/)  
kbo( :, 5,35,10) = (/&
 & 8.7135e-01_jprb,8.7107e-01_jprb,3.3248e+00_jprb,5.2688e+00_jprb,6.9299e+00_jprb,8.1175e+00_jprb/)  
kbo( :, 1,36,10) = (/&
 & 5.9261e-01_jprb,5.9263e-01_jprb,3.0998e+00_jprb,4.9572e+00_jprb,6.7063e+00_jprb,7.5006e+00_jprb/)  
kbo( :, 2,36,10) = (/&
 & 6.2616e-01_jprb,6.2611e-01_jprb,3.1830e+00_jprb,5.0867e+00_jprb,6.8489e+00_jprb,7.7811e+00_jprb/)  
kbo( :, 3,36,10) = (/&
 & 6.7343e-01_jprb,6.7330e-01_jprb,3.2478e+00_jprb,5.1832e+00_jprb,6.9309e+00_jprb,7.9826e+00_jprb/)  
kbo( :, 4,36,10) = (/&
 & 7.3660e-01_jprb,7.3640e-01_jprb,3.2928e+00_jprb,5.2484e+00_jprb,6.9611e+00_jprb,8.1184e+00_jprb/)  
kbo( :, 5,36,10) = (/&
 & 8.1395e-01_jprb,8.1372e-01_jprb,3.3165e+00_jprb,5.2807e+00_jprb,6.9512e+00_jprb,8.1925e+00_jprb/)  
kbo( :, 1,37,10) = (/&
 & 5.2989e-01_jprb,5.2996e-01_jprb,3.0580e+00_jprb,4.9104e+00_jprb,6.6637e+00_jprb,7.4740e+00_jprb/)  
kbo( :, 2,37,10) = (/&
 & 5.6419e-01_jprb,5.6414e-01_jprb,3.1506e+00_jprb,5.0576e+00_jprb,6.8262e+00_jprb,7.7836e+00_jprb/)  
kbo( :, 3,37,10) = (/&
 & 6.1196e-01_jprb,6.1186e-01_jprb,3.2232e+00_jprb,5.1694e+00_jprb,6.9254e+00_jprb,8.0021e+00_jprb/)  
kbo( :, 4,37,10) = (/&
 & 6.7516e-01_jprb,6.7503e-01_jprb,3.2773e+00_jprb,5.2468e+00_jprb,6.9696e+00_jprb,8.1546e+00_jprb/)  
kbo( :, 5,37,10) = (/&
 & 7.5242e-01_jprb,7.5225e-01_jprb,3.3077e+00_jprb,5.2880e+00_jprb,6.9712e+00_jprb,8.2436e+00_jprb/)  
kbo( :, 1,38,10) = (/&
 & 4.7505e-01_jprb,4.7513e-01_jprb,3.0176e+00_jprb,4.8628e+00_jprb,6.6172e+00_jprb,7.4494e+00_jprb/)  
kbo( :, 2,38,10) = (/&
 & 5.1071e-01_jprb,5.1070e-01_jprb,3.1197e+00_jprb,5.0269e+00_jprb,6.7975e+00_jprb,7.7810e+00_jprb/)  
kbo( :, 3,38,10) = (/&
 & 5.5877e-01_jprb,5.5872e-01_jprb,3.2002e+00_jprb,5.1526e+00_jprb,6.9148e+00_jprb,8.0180e+00_jprb/)  
kbo( :, 4,38,10) = (/&
 & 6.2123e-01_jprb,6.2116e-01_jprb,3.2619e+00_jprb,5.2424e+00_jprb,6.9725e+00_jprb,8.1853e+00_jprb/)  
kbo( :, 5,38,10) = (/&
 & 6.9700e-01_jprb,6.9689e-01_jprb,3.2986e+00_jprb,5.2927e+00_jprb,6.9850e+00_jprb,8.2945e+00_jprb/)  
kbo( :, 1,39,10) = (/&
 & 4.2667e-01_jprb,4.2675e-01_jprb,2.9792e+00_jprb,4.8162e+00_jprb,6.5678e+00_jprb,7.4301e+00_jprb/)  
kbo( :, 2,39,10) = (/&
 & 4.6368e-01_jprb,4.6371e-01_jprb,3.0898e+00_jprb,4.9949e+00_jprb,6.7657e+00_jprb,7.7791e+00_jprb/)  
kbo( :, 3,39,10) = (/&
 & 5.1271e-01_jprb,5.1271e-01_jprb,3.1789e+00_jprb,5.1345e+00_jprb,6.8995e+00_jprb,8.0327e+00_jprb/)  
kbo( :, 4,39,10) = (/&
 & 5.7418e-01_jprb,5.7416e-01_jprb,3.2474e+00_jprb,5.2350e+00_jprb,6.9705e+00_jprb,8.2154e+00_jprb/)  
kbo( :, 5,39,10) = (/&
 & 6.4813e-01_jprb,6.4808e-01_jprb,3.2906e+00_jprb,5.2946e+00_jprb,6.9954e+00_jprb,8.3481e+00_jprb/)  
kbo( :, 1,40,10) = (/&
 & 3.8059e-01_jprb,3.8066e-01_jprb,2.9294e+00_jprb,4.7482e+00_jprb,6.4900e+00_jprb,7.3413e+00_jprb/)  
kbo( :, 2,40,10) = (/&
 & 4.1764e-01_jprb,4.1768e-01_jprb,3.0517e+00_jprb,4.9455e+00_jprb,6.7137e+00_jprb,7.7220e+00_jprb/)  
kbo( :, 3,40,10) = (/&
 & 4.6631e-01_jprb,4.6635e-01_jprb,3.1498e+00_jprb,5.1004e+00_jprb,6.8682e+00_jprb,8.0003e+00_jprb/)  
kbo( :, 4,40,10) = (/&
 & 5.2644e-01_jprb,5.2648e-01_jprb,3.2265e+00_jprb,5.2162e+00_jprb,6.9603e+00_jprb,8.2072e+00_jprb/)  
kbo( :, 5,40,10) = (/&
 & 5.9702e-01_jprb,5.9703e-01_jprb,3.2787e+00_jprb,5.2882e+00_jprb,7.0004e+00_jprb,8.3571e+00_jprb/)  
kbo( :, 1,41,10) = (/&
 & 3.3906e-01_jprb,3.3914e-01_jprb,2.8764e+00_jprb,4.6750e+00_jprb,6.4031e+00_jprb,7.2374e+00_jprb/)  
kbo( :, 2,41,10) = (/&
 & 3.7555e-01_jprb,3.7562e-01_jprb,3.0116e+00_jprb,4.8899e+00_jprb,6.6527e+00_jprb,7.6510e+00_jprb/)  
kbo( :, 3,41,10) = (/&
 & 4.2374e-01_jprb,4.2382e-01_jprb,3.1192e+00_jprb,5.0596e+00_jprb,6.8298e+00_jprb,7.9584e+00_jprb/)  
kbo( :, 4,41,10) = (/&
 & 4.8252e-01_jprb,4.8261e-01_jprb,3.2032e+00_jprb,5.1909e+00_jprb,6.9423e+00_jprb,8.1883e+00_jprb/)  
kbo( :, 5,41,10) = (/&
 & 5.5055e-01_jprb,5.5059e-01_jprb,3.2647e+00_jprb,5.2767e+00_jprb,6.9993e+00_jprb,8.3564e+00_jprb/)  
kbo( :, 1,42,10) = (/&
 & 3.0216e-01_jprb,3.0227e-01_jprb,2.8228e+00_jprb,4.6001e+00_jprb,6.3100e+00_jprb,7.1283e+00_jprb/)  
kbo( :, 2,42,10) = (/&
 & 3.3749e-01_jprb,3.3759e-01_jprb,2.9700e+00_jprb,4.8303e+00_jprb,6.5864e+00_jprb,7.5749e+00_jprb/)  
kbo( :, 3,42,10) = (/&
 & 3.8480e-01_jprb,3.8492e-01_jprb,3.0865e+00_jprb,5.0162e+00_jprb,6.7847e+00_jprb,7.9100e+00_jprb/)  
kbo( :, 4,42,10) = (/&
 & 4.4288e-01_jprb,4.4301e-01_jprb,3.1790e+00_jprb,5.1608e+00_jprb,6.9184e+00_jprb,8.1647e+00_jprb/)  
kbo( :, 5,42,10) = (/&
 & 5.0928e-01_jprb,5.0935e-01_jprb,3.2490e+00_jprb,5.2607e+00_jprb,6.9918e+00_jprb,8.3533e+00_jprb/)  
kbo( :, 1,43,10) = (/&
 & 2.6768e-01_jprb,2.6781e-01_jprb,2.7595e+00_jprb,4.5068e+00_jprb,6.1924e+00_jprb,6.9816e+00_jprb/)  
kbo( :, 2,43,10) = (/&
 & 3.0121e-01_jprb,3.0134e-01_jprb,2.9195e+00_jprb,4.7538e+00_jprb,6.4985e+00_jprb,7.4658e+00_jprb/)  
kbo( :, 3,43,10) = (/&
 & 3.4636e-01_jprb,3.4652e-01_jprb,3.0475e+00_jprb,4.9586e+00_jprb,6.7250e+00_jprb,7.8363e+00_jprb/)  
kbo( :, 4,43,10) = (/&
 & 4.0279e-01_jprb,4.0294e-01_jprb,3.1487e+00_jprb,5.1186e+00_jprb,6.8816e+00_jprb,8.1193e+00_jprb/)  
kbo( :, 5,43,10) = (/&
 & 4.6775e-01_jprb,4.6784e-01_jprb,3.2281e+00_jprb,5.2365e+00_jprb,6.9765e+00_jprb,8.3335e+00_jprb/)  
kbo( :, 1,44,10) = (/&
 & 2.3663e-01_jprb,2.3679e-01_jprb,2.6889e+00_jprb,4.3996e+00_jprb,6.0559e+00_jprb,6.8135e+00_jprb/)  
kbo( :, 2,44,10) = (/&
 & 2.6748e-01_jprb,2.6764e-01_jprb,2.8618e+00_jprb,4.6667e+00_jprb,6.3943e+00_jprb,7.3355e+00_jprb/)  
kbo( :, 3,44,10) = (/&
 & 3.1007e-01_jprb,3.1028e-01_jprb,3.0033e+00_jprb,4.8904e+00_jprb,6.6510e+00_jprb,7.7469e+00_jprb/)  
kbo( :, 4,44,10) = (/&
 & 3.6426e-01_jprb,3.6444e-01_jprb,3.1143e+00_jprb,5.0666e+00_jprb,6.8341e+00_jprb,8.0609e+00_jprb/)  
kbo( :, 5,44,10) = (/&
 & 4.2790e-01_jprb,4.2800e-01_jprb,3.2017e+00_jprb,5.2027e+00_jprb,6.9510e+00_jprb,8.3005e+00_jprb/)  
kbo( :, 1,45,10) = (/&
 & 2.0943e-01_jprb,2.0961e-01_jprb,2.6149e+00_jprb,4.2870e+00_jprb,5.9088e+00_jprb,6.6376e+00_jprb/)  
kbo( :, 2,45,10) = (/&
 & 2.3748e-01_jprb,2.3768e-01_jprb,2.7996e+00_jprb,4.5739e+00_jprb,6.2800e+00_jprb,7.1981e+00_jprb/)  
kbo( :, 3,45,10) = (/&
 & 2.7717e-01_jprb,2.7741e-01_jprb,2.9545e+00_jprb,4.8149e+00_jprb,6.5679e+00_jprb,7.6498e+00_jprb/)  
kbo( :, 4,45,10) = (/&
 & 3.2881e-01_jprb,3.2900e-01_jprb,3.0769e+00_jprb,5.0100e+00_jprb,6.7767e+00_jprb,7.9956e+00_jprb/)  
kbo( :, 5,45,10) = (/&
 & 3.9089e-01_jprb,3.9099e-01_jprb,3.1729e+00_jprb,5.1617e+00_jprb,6.9184e+00_jprb,8.2647e+00_jprb/)  
kbo( :, 1,46,10) = (/&
 & 1.8488e-01_jprb,1.8509e-01_jprb,2.5337e+00_jprb,4.1619e+00_jprb,5.7408e+00_jprb,6.4343e+00_jprb/)  
kbo( :, 2,46,10) = (/&
 & 2.1029e-01_jprb,2.1052e-01_jprb,2.7308e+00_jprb,4.4685e+00_jprb,6.1476e+00_jprb,7.0351e+00_jprb/)  
kbo( :, 3,46,10) = (/&
 & 2.4641e-01_jprb,2.4669e-01_jprb,2.8991e+00_jprb,4.7282e+00_jprb,6.4680e+00_jprb,7.5299e+00_jprb/)  
kbo( :, 4,46,10) = (/&
 & 2.9502e-01_jprb,2.9523e-01_jprb,3.0336e+00_jprb,4.9428e+00_jprb,6.7064e+00_jprb,7.9122e+00_jprb/)  
kbo( :, 5,46,10) = (/&
 & 3.5492e-01_jprb,3.5504e-01_jprb,3.1395e+00_jprb,5.1108e+00_jprb,6.8742e+00_jprb,8.2122e+00_jprb/)  
kbo( :, 1,47,10) = (/&
 & 1.6240e-01_jprb,1.6263e-01_jprb,2.4388e+00_jprb,4.0166e+00_jprb,5.5397e+00_jprb,6.1804e+00_jprb/)  
kbo( :, 2,47,10) = (/&
 & 1.8504e-01_jprb,1.8532e-01_jprb,2.6496e+00_jprb,4.3442e+00_jprb,5.9864e+00_jprb,6.8265e+00_jprb/)  
kbo( :, 3,47,10) = (/&
 & 2.1735e-01_jprb,2.1764e-01_jprb,2.8316e+00_jprb,4.6250e+00_jprb,6.3441e+00_jprb,7.3704e+00_jprb/)  
kbo( :, 4,47,10) = (/&
 & 2.6219e-01_jprb,2.6243e-01_jprb,2.9807e+00_jprb,4.8597e+00_jprb,6.6165e+00_jprb,7.7948e+00_jprb/)  
kbo( :, 5,47,10) = (/&
 & 3.1904e-01_jprb,3.1916e-01_jprb,3.0987e+00_jprb,5.0473e+00_jprb,6.8132e+00_jprb,8.1318e+00_jprb/)  
kbo( :, 1,48,10) = (/&
 & 1.4274e-01_jprb,1.4309e-01_jprb,2.3378e+00_jprb,3.8621e+00_jprb,5.3223e+00_jprb,5.9129e+00_jprb/)  
kbo( :, 2,48,10) = (/&
 & 1.6289e-01_jprb,1.6319e-01_jprb,2.5631e+00_jprb,4.2108e+00_jprb,5.8103e+00_jprb,6.6062e+00_jprb/)  
kbo( :, 3,48,10) = (/&
 & 1.9167e-01_jprb,1.9198e-01_jprb,2.7584e+00_jprb,4.5133e+00_jprb,6.2051e+00_jprb,7.1967e+00_jprb/)  
kbo( :, 4,48,10) = (/&
 & 2.3239e-01_jprb,2.3264e-01_jprb,2.9226e+00_jprb,4.7680e+00_jprb,6.5135e+00_jprb,7.6665e+00_jprb/)  
kbo( :, 5,48,10) = (/&
 & 2.8577e-01_jprb,2.8592e-01_jprb,3.0525e+00_jprb,4.9759e+00_jprb,6.7401e+00_jprb,8.0423e+00_jprb/)  
kbo( :, 1,49,10) = (/&
 & 1.2506e-01_jprb,1.2569e-01_jprb,2.2315e+00_jprb,3.6984e+00_jprb,5.0916e+00_jprb,5.6363e+00_jprb/)  
kbo( :, 2,49,10) = (/&
 & 1.4348e-01_jprb,1.4383e-01_jprb,2.4717e+00_jprb,4.0691e+00_jprb,5.6178e+00_jprb,6.3745e+00_jprb/)  
kbo( :, 3,49,10) = (/&
 & 1.6900e-01_jprb,1.6934e-01_jprb,2.6802e+00_jprb,4.3928e+00_jprb,6.0515e+00_jprb,7.0127e+00_jprb/)  
kbo( :, 4,49,10) = (/&
 & 2.0581e-01_jprb,2.0606e-01_jprb,2.8586e+00_jprb,4.6682e+00_jprb,6.3962e+00_jprb,7.5292e+00_jprb/)  
kbo( :, 5,49,10) = (/&
 & 2.5518e-01_jprb,2.5533e-01_jprb,3.0025e+00_jprb,4.8968e+00_jprb,6.6558e+00_jprb,7.9457e+00_jprb/)  
kbo( :, 1,50,10) = (/&
 & 1.0959e-01_jprb,1.1070e-01_jprb,2.1267e+00_jprb,3.5368e+00_jprb,4.8615e+00_jprb,5.3538e+00_jprb/)  
kbo( :, 2,50,10) = (/&
 & 1.2689e-01_jprb,1.2744e-01_jprb,2.3809e+00_jprb,3.9302e+00_jprb,5.4235e+00_jprb,6.1306e+00_jprb/)  
kbo( :, 3,50,10) = (/&
 & 1.4973e-01_jprb,1.5009e-01_jprb,2.6019e+00_jprb,4.2725e+00_jprb,5.8946e+00_jprb,6.8112e+00_jprb/)  
kbo( :, 4,50,10) = (/&
 & 1.8304e-01_jprb,1.8331e-01_jprb,2.7927e+00_jprb,4.5675e+00_jprb,6.2731e+00_jprb,7.3745e+00_jprb/)  
kbo( :, 5,50,10) = (/&
 & 2.2866e-01_jprb,2.2882e-01_jprb,2.9508e+00_jprb,4.8146e+00_jprb,6.5657e+00_jprb,7.8282e+00_jprb/)  
kbo( :, 1,51,10) = (/&
 & 9.5768e-02_jprb,9.7661e-02_jprb,2.0216e+00_jprb,3.3751e+00_jprb,4.6268e+00_jprb,5.0597e+00_jprb/)  
kbo( :, 2,51,10) = (/&
 & 1.1216e-01_jprb,1.1307e-01_jprb,2.2881e+00_jprb,3.7875e+00_jprb,5.2217e+00_jprb,5.8744e+00_jprb/)  
kbo( :, 3,51,10) = (/&
 & 1.3299e-01_jprb,1.3343e-01_jprb,2.5219e+00_jprb,4.1480e+00_jprb,5.7284e+00_jprb,6.5943e+00_jprb/)  
kbo( :, 4,51,10) = (/&
 & 1.6308e-01_jprb,1.6337e-01_jprb,2.7248e+00_jprb,4.4626e+00_jprb,6.1415e+00_jprb,7.2033e+00_jprb/)  
kbo( :, 5,51,10) = (/&
 & 2.0524e-01_jprb,2.0541e-01_jprb,2.8961e+00_jprb,4.7281e+00_jprb,6.4666e+00_jprb,7.6945e+00_jprb/)  
kbo( :, 1,52,10) = (/&
 & 8.3171e-02_jprb,8.6221e-02_jprb,1.9144e+00_jprb,3.2076e+00_jprb,4.3819e+00_jprb,4.7580e+00_jprb/)  
kbo( :, 2,52,10) = (/&
 & 9.8912e-02_jprb,1.0039e-01_jprb,2.1906e+00_jprb,3.6370e+00_jprb,5.0088e+00_jprb,5.6089e+00_jprb/)  
kbo( :, 3,52,10) = (/&
 & 1.1809e-01_jprb,1.1874e-01_jprb,2.4381e+00_jprb,4.0185e+00_jprb,5.5505e+00_jprb,6.3684e+00_jprb/)  
kbo( :, 4,52,10) = (/&
 & 1.4539e-01_jprb,1.4572e-01_jprb,2.6526e+00_jprb,4.3511e+00_jprb,5.9980e+00_jprb,7.0214e+00_jprb/)  
kbo( :, 5,52,10) = (/&
 & 1.8406e-01_jprb,1.8425e-01_jprb,2.8362e+00_jprb,4.6354e+00_jprb,6.3565e+00_jprb,7.5532e+00_jprb/)  
kbo( :, 1,53,10) = (/&
 & 7.1760e-02_jprb,7.6225e-02_jprb,1.8049e+00_jprb,3.0338e+00_jprb,4.1285e+00_jprb,4.4543e+00_jprb/)  
kbo( :, 2,53,10) = (/&
 & 8.6733e-02_jprb,8.9133e-02_jprb,2.0890e+00_jprb,3.4808e+00_jprb,4.7838e+00_jprb,5.3384e+00_jprb/)  
kbo( :, 3,53,10) = (/&
 & 1.0470e-01_jprb,1.0571e-01_jprb,2.3496e+00_jprb,3.8826e+00_jprb,5.3593e+00_jprb,6.1340e+00_jprb/)  
kbo( :, 4,53,10) = (/&
 & 1.2964e-01_jprb,1.3004e-01_jprb,2.5758e+00_jprb,4.2328e+00_jprb,5.8432e+00_jprb,6.8310e+00_jprb/)  
kbo( :, 5,53,10) = (/&
 & 1.6486e-01_jprb,1.6505e-01_jprb,2.7718e+00_jprb,4.5358e+00_jprb,6.2341e+00_jprb,7.4042e+00_jprb/)  
kbo( :, 1,54,10) = (/&
 & 6.1882e-02_jprb,6.7940e-02_jprb,1.7027e+00_jprb,2.8705e+00_jprb,3.8894e+00_jprb,4.1460e+00_jprb/)  
kbo( :, 2,54,10) = (/&
 & 7.6155e-02_jprb,7.9684e-02_jprb,1.9930e+00_jprb,3.3325e+00_jprb,4.5678e+00_jprb,5.0509e+00_jprb/)  
kbo( :, 3,54,10) = (/&
 & 9.3240e-02_jprb,9.4826e-02_jprb,2.2641e+00_jprb,3.7513e+00_jprb,5.1730e+00_jprb,5.8771e+00_jprb/)  
kbo( :, 4,54,10) = (/&
 & 1.1632e-01_jprb,1.1690e-01_jprb,2.5020e+00_jprb,4.1182e+00_jprb,5.6892e+00_jprb,6.6127e+00_jprb/)  
kbo( :, 5,54,10) = (/&
 & 1.4865e-01_jprb,1.4887e-01_jprb,2.7085e+00_jprb,4.4384e+00_jprb,6.1110e+00_jprb,7.2268e+00_jprb/)  
kbo( :, 1,55,10) = (/&
 & 5.3143e-02_jprb,6.0929e-02_jprb,1.6034e+00_jprb,2.7108e+00_jprb,3.6519e+00_jprb,3.8346e+00_jprb/)  
kbo( :, 2,55,10) = (/&
 & 6.6664e-02_jprb,7.1549e-02_jprb,1.8993e+00_jprb,3.1854e+00_jprb,4.3528e+00_jprb,4.7449e+00_jprb/)  
kbo( :, 3,55,10) = (/&
 & 8.2988e-02_jprb,8.5434e-02_jprb,2.1781e+00_jprb,3.6188e+00_jprb,4.9850e+00_jprb,5.6016e+00_jprb/)  
kbo( :, 4,55,10) = (/&
 & 1.0455e-01_jprb,1.0541e-01_jprb,2.4283e+00_jprb,4.0035e+00_jprb,5.5314e+00_jprb,6.3670e+00_jprb/)  
kbo( :, 5,55,10) = (/&
 & 1.3450e-01_jprb,1.3475e-01_jprb,2.6447e+00_jprb,4.3400e+00_jprb,5.9837e+00_jprb,7.0246e+00_jprb/)  
kbo( :, 1,56,10) = (/&
 & 4.5363e-02_jprb,5.4761e-02_jprb,1.5057e+00_jprb,2.5465e+00_jprb,3.4107e+00_jprb,3.5270e+00_jprb/)  
kbo( :, 2,56,10) = (/&
 & 5.8005e-02_jprb,6.4431e-02_jprb,1.8040e+00_jprb,3.0340e+00_jprb,4.1322e+00_jprb,4.4343e+00_jprb/)  
kbo( :, 3,56,10) = (/&
 & 7.3593e-02_jprb,7.7144e-02_jprb,2.0898e+00_jprb,3.4823e+00_jprb,4.7884e+00_jprb,5.3173e+00_jprb/)  
kbo( :, 4,56,10) = (/&
 & 9.3887e-02_jprb,9.5237e-02_jprb,2.3510e+00_jprb,3.8850e+00_jprb,5.3647e+00_jprb,6.1108e+00_jprb/)  

IF (lhook) CALL dr_hook('RRTM_KGB4:PART27',1,zhook_handle)
END SUBROUTINE part27


SUBROUTINE part28

REAL(KIND=JPRB) :: ZHOOK_HANDLE
IF (lhook) CALL dr_hook('RRTM_KGB4:PART28',0,zhook_handle)


kbo( :, 5,56,10) = (/&
 & 1.2181e-01_jprb,1.2219e-01_jprb,2.5776e+00_jprb,4.2361e+00_jprb,5.8482e+00_jprb,6.8081e+00_jprb/)  
kbo( :, 1,57,10) = (/&
 & 3.8484e-02_jprb,4.9332e-02_jprb,1.4087e+00_jprb,2.3775e+00_jprb,3.1673e+00_jprb,3.2197e+00_jprb/)  
kbo( :, 2,57,10) = (/&
 & 5.0147e-02_jprb,5.8221e-02_jprb,1.7073e+00_jprb,2.8793e+00_jprb,3.9049e+00_jprb,4.1273e+00_jprb/)  
kbo( :, 3,57,10) = (/&
 & 6.4931e-02_jprb,6.9815e-02_jprb,1.9987e+00_jprb,3.3420e+00_jprb,4.5839e+00_jprb,5.0218e+00_jprb/)  
kbo( :, 4,57,10) = (/&
 & 8.4109e-02_jprb,8.6186e-02_jprb,2.2698e+00_jprb,3.7606e+00_jprb,5.1878e+00_jprb,5.8449e+00_jprb/)  
kbo( :, 5,57,10) = (/&
 & 1.1023e-01_jprb,1.1081e-01_jprb,2.5075e+00_jprb,4.1274e+00_jprb,5.7022e+00_jprb,6.5747e+00_jprb/)  
kbo( :, 1,58,10) = (/&
 & 3.2626e-02_jprb,4.4633e-02_jprb,1.3174e+00_jprb,2.2156e+00_jprb,2.9363e+00_jprb,2.9278e+00_jprb/)  
kbo( :, 2,58,10) = (/&
 & 4.3298e-02_jprb,5.2922e-02_jprb,1.6144e+00_jprb,2.7304e+00_jprb,3.6831e+00_jprb,3.8325e+00_jprb/)  
kbo( :, 3,58,10) = (/&
 & 5.7247e-02_jprb,6.3597e-02_jprb,1.9107e+00_jprb,3.2043e+00_jprb,4.3821e+00_jprb,4.7236e+00_jprb/)  
kbo( :, 4,58,10) = (/&
 & 7.5473e-02_jprb,7.8525e-02_jprb,2.1894e+00_jprb,3.6369e+00_jprb,5.0121e+00_jprb,5.5748e+00_jprb/)  
kbo( :, 5,58,10) = (/&
 & 1.0003e-01_jprb,1.0093e-01_jprb,2.4389e+00_jprb,4.0197e+00_jprb,5.5549e+00_jprb,6.3325e+00_jprb/)  
kbo( :, 1,59,10) = (/&
 & 2.9072e-02_jprb,4.1705e-02_jprb,1.2802e+00_jprb,2.1494e+00_jprb,2.8421e+00_jprb,2.7798e+00_jprb/)  
kbo( :, 2,59,10) = (/&
 & 3.9252e-02_jprb,4.9835e-02_jprb,1.5765e+00_jprb,2.6680e+00_jprb,3.5911e+00_jprb,3.6659e+00_jprb/)  
kbo( :, 3,59,10) = (/&
 & 5.3000e-02_jprb,6.0270e-02_jprb,1.8744e+00_jprb,3.1473e+00_jprb,4.2993e+00_jprb,4.5411e+00_jprb/)  
kbo( :, 4,59,10) = (/&
 & 7.1218e-02_jprb,7.4859e-02_jprb,2.1561e+00_jprb,3.5852e+00_jprb,4.9384e+00_jprb,5.3790e+00_jprb/)  
kbo( :, 5,59,10) = (/&
 & 9.5581e-02_jprb,9.6679e-02_jprb,2.4098e+00_jprb,3.9752e+00_jprb,5.4931e+00_jprb,6.1513e+00_jprb/)  
kbo( :, 1,13,11) = (/&
 & 1.0830e+01_jprb,1.0824e+01_jprb,8.2966e+00_jprb,5.7775e+00_jprb,4.2067e+00_jprb,3.8416e+00_jprb/)  
kbo( :, 2,13,11) = (/&
 & 1.0842e+01_jprb,1.0836e+01_jprb,8.3048e+00_jprb,5.7756e+00_jprb,4.1117e+00_jprb,3.7626e+00_jprb/)  
kbo( :, 3,13,11) = (/&
 & 1.0806e+01_jprb,1.0800e+01_jprb,8.2770e+00_jprb,5.7524e+00_jprb,4.0103e+00_jprb,3.7005e+00_jprb/)  
kbo( :, 4,13,11) = (/&
 & 1.0724e+01_jprb,1.0718e+01_jprb,8.2112e+00_jprb,5.7002e+00_jprb,3.9058e+00_jprb,3.6875e+00_jprb/)  
kbo( :, 5,13,11) = (/&
 & 1.0621e+01_jprb,1.0615e+01_jprb,8.1337e+00_jprb,5.6465e+00_jprb,3.8013e+00_jprb,3.7028e+00_jprb/)  
kbo( :, 1,14,11) = (/&
 & 1.1181e+01_jprb,1.1175e+01_jprb,8.5568e+00_jprb,5.9649e+00_jprb,4.4522e+00_jprb,4.2077e+00_jprb/)  
kbo( :, 2,14,11) = (/&
 & 1.1133e+01_jprb,1.1127e+01_jprb,8.5167e+00_jprb,5.9323e+00_jprb,4.3476e+00_jprb,4.1247e+00_jprb/)  
kbo( :, 3,14,11) = (/&
 & 1.1053e+01_jprb,1.1047e+01_jprb,8.4570e+00_jprb,5.8889e+00_jprb,4.2415e+00_jprb,4.0417e+00_jprb/)  
kbo( :, 4,14,11) = (/&
 & 1.0933e+01_jprb,1.0927e+01_jprb,8.3682e+00_jprb,5.8252e+00_jprb,4.1413e+00_jprb,3.9695e+00_jprb/)  
kbo( :, 5,14,11) = (/&
 & 1.0780e+01_jprb,1.0774e+01_jprb,8.2481e+00_jprb,5.7382e+00_jprb,4.0362e+00_jprb,3.9481e+00_jprb/)  
kbo( :, 1,15,11) = (/&
 & 1.1265e+01_jprb,1.1259e+01_jprb,8.6144e+00_jprb,6.0504e+00_jprb,4.7323e+00_jprb,4.5971e+00_jprb/)  
kbo( :, 2,15,11) = (/&
 & 1.1162e+01_jprb,1.1156e+01_jprb,8.5378e+00_jprb,5.9895e+00_jprb,4.6323e+00_jprb,4.4988e+00_jprb/)  
kbo( :, 3,15,11) = (/&
 & 1.1022e+01_jprb,1.1015e+01_jprb,8.4337e+00_jprb,5.9199e+00_jprb,4.5312e+00_jprb,4.4142e+00_jprb/)  
kbo( :, 4,15,11) = (/&
 & 1.0880e+01_jprb,1.0874e+01_jprb,8.3234e+00_jprb,5.8348e+00_jprb,4.4237e+00_jprb,4.3326e+00_jprb/)  
kbo( :, 5,15,11) = (/&
 & 1.0698e+01_jprb,1.0692e+01_jprb,8.1811e+00_jprb,5.7294e+00_jprb,4.3189e+00_jprb,4.2569e+00_jprb/)  
kbo( :, 1,16,11) = (/&
 & 1.1047e+01_jprb,1.1041e+01_jprb,8.4566e+00_jprb,6.0733e+00_jprb,5.0987e+00_jprb,4.9814e+00_jprb/)  
kbo( :, 2,16,11) = (/&
 & 1.0912e+01_jprb,1.0905e+01_jprb,8.3558e+00_jprb,5.9956e+00_jprb,4.9979e+00_jprb,4.8884e+00_jprb/)  
kbo( :, 3,16,11) = (/&
 & 1.0758e+01_jprb,1.0752e+01_jprb,8.2381e+00_jprb,5.8935e+00_jprb,4.8881e+00_jprb,4.7986e+00_jprb/)  
kbo( :, 4,16,11) = (/&
 & 1.0569e+01_jprb,1.0563e+01_jprb,8.0898e+00_jprb,5.7760e+00_jprb,4.7808e+00_jprb,4.7200e+00_jprb/)  
kbo( :, 5,16,11) = (/&
 & 1.0363e+01_jprb,1.0357e+01_jprb,7.9324e+00_jprb,5.6614e+00_jprb,4.6746e+00_jprb,4.6272e+00_jprb/)  
kbo( :, 1,17,11) = (/&
 & 1.0577e+01_jprb,1.0572e+01_jprb,8.1098e+00_jprb,6.0991e+00_jprb,5.5106e+00_jprb,5.4165e+00_jprb/)  
kbo( :, 2,17,11) = (/&
 & 1.0411e+01_jprb,1.0405e+01_jprb,7.9835e+00_jprb,5.9805e+00_jprb,5.3996e+00_jprb,5.3206e+00_jprb/)  
kbo( :, 3,17,11) = (/&
 & 1.0224e+01_jprb,1.0219e+01_jprb,7.8406e+00_jprb,5.8520e+00_jprb,5.2910e+00_jprb,5.2289e+00_jprb/)  
kbo( :, 4,17,11) = (/&
 & 1.0028e+01_jprb,1.0022e+01_jprb,7.6890e+00_jprb,5.7215e+00_jprb,5.1803e+00_jprb,5.1373e+00_jprb/)  
kbo( :, 5,17,11) = (/&
 & 9.8160e+00_jprb,9.8105e+00_jprb,7.5244e+00_jprb,5.5839e+00_jprb,5.0653e+00_jprb,5.0432e+00_jprb/)  
kbo( :, 1,18,11) = (/&
 & 9.8986e+00_jprb,9.8931e+00_jprb,7.6044e+00_jprb,6.1164e+00_jprb,5.9534e+00_jprb,5.9474e+00_jprb/)  
kbo( :, 2,18,11) = (/&
 & 9.7140e+00_jprb,9.7086e+00_jprb,7.4654e+00_jprb,5.9795e+00_jprb,5.8383e+00_jprb,5.8411e+00_jprb/)  
kbo( :, 3,18,11) = (/&
 & 9.5273e+00_jprb,9.5220e+00_jprb,7.3210e+00_jprb,5.8383e+00_jprb,5.7189e+00_jprb,5.7395e+00_jprb/)  
kbo( :, 4,18,11) = (/&
 & 9.3182e+00_jprb,9.3130e+00_jprb,7.1594e+00_jprb,5.7006e+00_jprb,5.6002e+00_jprb,5.6385e+00_jprb/)  
kbo( :, 5,18,11) = (/&
 & 9.0984e+00_jprb,9.0934e+00_jprb,6.9901e+00_jprb,5.5596e+00_jprb,5.4784e+00_jprb,5.5361e+00_jprb/)  
kbo( :, 1,19,11) = (/&
 & 9.0617e+00_jprb,9.0567e+00_jprb,6.9882e+00_jprb,6.1944e+00_jprb,6.4032e+00_jprb,6.5506e+00_jprb/)  
kbo( :, 2,19,11) = (/&
 & 8.8807e+00_jprb,8.8758e+00_jprb,6.8508e+00_jprb,6.0541e+00_jprb,6.2790e+00_jprb,6.4421e+00_jprb/)  
kbo( :, 3,19,11) = (/&
 & 8.6840e+00_jprb,8.6793e+00_jprb,6.6993e+00_jprb,5.9155e+00_jprb,6.1530e+00_jprb,6.3302e+00_jprb/)  
kbo( :, 4,19,11) = (/&
 & 8.4690e+00_jprb,8.4643e+00_jprb,6.5346e+00_jprb,5.7782e+00_jprb,6.0205e+00_jprb,6.1969e+00_jprb/)  
kbo( :, 5,19,11) = (/&
 & 8.2461e+00_jprb,8.2415e+00_jprb,6.3683e+00_jprb,5.6418e+00_jprb,5.8884e+00_jprb,6.0738e+00_jprb/)  
kbo( :, 1,20,11) = (/&
 & 8.1338e+00_jprb,8.1294e+00_jprb,6.3787e+00_jprb,6.3724e+00_jprb,6.8676e+00_jprb,7.1512e+00_jprb/)  
kbo( :, 2,20,11) = (/&
 & 7.9489e+00_jprb,7.9446e+00_jprb,6.2323e+00_jprb,6.2367e+00_jprb,6.7380e+00_jprb,7.0235e+00_jprb/)  
kbo( :, 3,20,11) = (/&
 & 7.7484e+00_jprb,7.7442e+00_jprb,6.0747e+00_jprb,6.0984e+00_jprb,6.6037e+00_jprb,6.8886e+00_jprb/)  
kbo( :, 4,20,11) = (/&
 & 7.5336e+00_jprb,7.5295e+00_jprb,5.9158e+00_jprb,5.9585e+00_jprb,6.4615e+00_jprb,6.7483e+00_jprb/)  
kbo( :, 5,20,11) = (/&
 & 7.3192e+00_jprb,7.3153e+00_jprb,5.7540e+00_jprb,5.8154e+00_jprb,6.3114e+00_jprb,6.6285e+00_jprb/)  
kbo( :, 1,21,11) = (/&
 & 7.1783e+00_jprb,7.1745e+00_jprb,5.8792e+00_jprb,6.5789e+00_jprb,7.3613e+00_jprb,7.7022e+00_jprb/)  
kbo( :, 2,21,11) = (/&
 & 6.9919e+00_jprb,6.9882e+00_jprb,5.7299e+00_jprb,6.4389e+00_jprb,7.2225e+00_jprb,7.5647e+00_jprb/)  
kbo( :, 3,21,11) = (/&
 & 6.7909e+00_jprb,6.7873e+00_jprb,5.5766e+00_jprb,6.2973e+00_jprb,7.0712e+00_jprb,7.4405e+00_jprb/)  
kbo( :, 4,21,11) = (/&
 & 6.5939e+00_jprb,6.5903e+00_jprb,5.4217e+00_jprb,6.1490e+00_jprb,6.9129e+00_jprb,7.3122e+00_jprb/)  
kbo( :, 5,21,11) = (/&
 & 6.4093e+00_jprb,6.4059e+00_jprb,5.2663e+00_jprb,5.9963e+00_jprb,6.7516e+00_jprb,7.1970e+00_jprb/)  
kbo( :, 1,22,11) = (/&
 & 6.2177e+00_jprb,6.2144e+00_jprb,5.5479e+00_jprb,6.7900e+00_jprb,7.8374e+00_jprb,8.2375e+00_jprb/)  
kbo( :, 2,22,11) = (/&
 & 6.0356e+00_jprb,6.0324e+00_jprb,5.3995e+00_jprb,6.6451e+00_jprb,7.6895e+00_jprb,8.1166e+00_jprb/)  
kbo( :, 3,22,11) = (/&
 & 5.8596e+00_jprb,5.8565e+00_jprb,5.2499e+00_jprb,6.4943e+00_jprb,7.5342e+00_jprb,8.0016e+00_jprb/)  
kbo( :, 4,22,11) = (/&
 & 5.7069e+00_jprb,5.7039e+00_jprb,5.1029e+00_jprb,6.3342e+00_jprb,7.3721e+00_jprb,7.8779e+00_jprb/)  
kbo( :, 5,22,11) = (/&
 & 5.5907e+00_jprb,5.5878e+00_jprb,4.9677e+00_jprb,6.1731e+00_jprb,7.2068e+00_jprb,7.7598e+00_jprb/)  
kbo( :, 1,23,11) = (/&
 & 5.3001e+00_jprb,5.2974e+00_jprb,5.3392e+00_jprb,7.0212e+00_jprb,8.2731e+00_jprb,8.7769e+00_jprb/)  
kbo( :, 2,23,11) = (/&
 & 5.1465e+00_jprb,5.1439e+00_jprb,5.1959e+00_jprb,6.8658e+00_jprb,8.1318e+00_jprb,8.6756e+00_jprb/)  
kbo( :, 3,23,11) = (/&
 & 5.0259e+00_jprb,5.0234e+00_jprb,5.0568e+00_jprb,6.6964e+00_jprb,7.9822e+00_jprb,8.5635e+00_jprb/)  
kbo( :, 4,23,11) = (/&
 & 4.9408e+00_jprb,4.9383e+00_jprb,4.9256e+00_jprb,6.5229e+00_jprb,7.8283e+00_jprb,8.4337e+00_jprb/)  
kbo( :, 5,23,11) = (/&
 & 4.8982e+00_jprb,4.8957e+00_jprb,4.8170e+00_jprb,6.3467e+00_jprb,7.6656e+00_jprb,8.3117e+00_jprb/)  
kbo( :, 1,24,11) = (/&
 & 4.4810e+00_jprb,4.4788e+00_jprb,5.2117e+00_jprb,7.2187e+00_jprb,8.6894e+00_jprb,9.2830e+00_jprb/)  
kbo( :, 2,24,11) = (/&
 & 4.3875e+00_jprb,4.3854e+00_jprb,5.0729e+00_jprb,7.0552e+00_jprb,8.5552e+00_jprb,9.1952e+00_jprb/)  
kbo( :, 3,24,11) = (/&
 & 4.3298e+00_jprb,4.3277e+00_jprb,4.9395e+00_jprb,6.8841e+00_jprb,8.4129e+00_jprb,9.0854e+00_jprb/)  
kbo( :, 4,24,11) = (/&
 & 4.3240e+00_jprb,4.3219e+00_jprb,4.8305e+00_jprb,6.7106e+00_jprb,8.2583e+00_jprb,8.9534e+00_jprb/)  
kbo( :, 5,24,11) = (/&
 & 4.3568e+00_jprb,4.3547e+00_jprb,4.7450e+00_jprb,6.5341e+00_jprb,8.0917e+00_jprb,8.8298e+00_jprb/)  
kbo( :, 1,25,11) = (/&
 & 3.8157e+00_jprb,3.8139e+00_jprb,5.1260e+00_jprb,7.3753e+00_jprb,9.0809e+00_jprb,9.7303e+00_jprb/)  
kbo( :, 2,25,11) = (/&
 & 3.7828e+00_jprb,3.7809e+00_jprb,4.9881e+00_jprb,7.2252e+00_jprb,8.9546e+00_jprb,9.6529e+00_jprb/)  
kbo( :, 3,25,11) = (/&
 & 3.7966e+00_jprb,3.7948e+00_jprb,4.8698e+00_jprb,7.0694e+00_jprb,8.8114e+00_jprb,9.5492e+00_jprb/)  
kbo( :, 4,25,11) = (/&
 & 3.8447e+00_jprb,3.8429e+00_jprb,4.7808e+00_jprb,6.9055e+00_jprb,8.6548e+00_jprb,9.4220e+00_jprb/)  
kbo( :, 5,25,11) = (/&
 & 3.9327e+00_jprb,3.9309e+00_jprb,4.7021e+00_jprb,6.7298e+00_jprb,8.4889e+00_jprb,9.2936e+00_jprb/)  
kbo( :, 1,26,11) = (/&
 & 3.3036e+00_jprb,3.3021e+00_jprb,5.0575e+00_jprb,7.5192e+00_jprb,9.4189e+00_jprb,1.0102e+01_jprb/)  
kbo( :, 2,26,11) = (/&
 & 3.3285e+00_jprb,3.3270e+00_jprb,4.9281e+00_jprb,7.3849e+00_jprb,9.3027e+00_jprb,1.0041e+01_jprb/)  
kbo( :, 3,26,11) = (/&
 & 3.3889e+00_jprb,3.3874e+00_jprb,4.8326e+00_jprb,7.2371e+00_jprb,9.1673e+00_jprb,9.9526e+00_jprb/)  
kbo( :, 4,26,11) = (/&
 & 3.4837e+00_jprb,3.4822e+00_jprb,4.7525e+00_jprb,7.0754e+00_jprb,9.0130e+00_jprb,9.8334e+00_jprb/)  
kbo( :, 5,26,11) = (/&
 & 3.5869e+00_jprb,3.5853e+00_jprb,4.6879e+00_jprb,6.9081e+00_jprb,8.8429e+00_jprb,9.7104e+00_jprb/)  
kbo( :, 1,27,11) = (/&
 & 2.9165e+00_jprb,2.9152e+00_jprb,4.9857e+00_jprb,7.6560e+00_jprb,9.7110e+00_jprb,1.0421e+01_jprb/)  
kbo( :, 2,27,11) = (/&
 & 2.9834e+00_jprb,2.9822e+00_jprb,4.8877e+00_jprb,7.5297e+00_jprb,9.6106e+00_jprb,1.0382e+01_jprb/)  
kbo( :, 3,27,11) = (/&
 & 3.0758e+00_jprb,3.0745e+00_jprb,4.8130e+00_jprb,7.3870e+00_jprb,9.4838e+00_jprb,1.0306e+01_jprb/)  
kbo( :, 4,27,11) = (/&
 & 3.1796e+00_jprb,3.1781e+00_jprb,4.7485e+00_jprb,7.2327e+00_jprb,9.3303e+00_jprb,1.0198e+01_jprb/)  
kbo( :, 5,27,11) = (/&
 & 3.2957e+00_jprb,3.2941e+00_jprb,4.7038e+00_jprb,7.0683e+00_jprb,9.1564e+00_jprb,1.0089e+01_jprb/)  
kbo( :, 1,28,11) = (/&
 & 2.6155e+00_jprb,2.6145e+00_jprb,4.9275e+00_jprb,7.7638e+00_jprb,9.9551e+00_jprb,1.0696e+01_jprb/)  
kbo( :, 2,28,11) = (/&
 & 2.7046e+00_jprb,2.7035e+00_jprb,4.8641e+00_jprb,7.6476e+00_jprb,9.8682e+00_jprb,1.0682e+01_jprb/)  
kbo( :, 3,28,11) = (/&
 & 2.8078e+00_jprb,2.8066e+00_jprb,4.8086e+00_jprb,7.5132e+00_jprb,9.7479e+00_jprb,1.0615e+01_jprb/)  
kbo( :, 4,28,11) = (/&
 & 2.9220e+00_jprb,2.9207e+00_jprb,4.7661e+00_jprb,7.3606e+00_jprb,9.5999e+00_jprb,1.0521e+01_jprb/)  
kbo( :, 5,28,11) = (/&
 & 3.0419e+00_jprb,3.0404e+00_jprb,4.7235e+00_jprb,7.2046e+00_jprb,9.4195e+00_jprb,1.0424e+01_jprb/)  
kbo( :, 1,29,11) = (/&
 & 2.3732e+00_jprb,2.3723e+00_jprb,4.8900e+00_jprb,7.8375e+00_jprb,1.0150e+01_jprb,1.0951e+01_jprb/)  
kbo( :, 2,29,11) = (/&
 & 2.4712e+00_jprb,2.4702e+00_jprb,4.8481e+00_jprb,7.7319e+00_jprb,1.0078e+01_jprb,1.0946e+01_jprb/)  
kbo( :, 3,29,11) = (/&
 & 2.5783e+00_jprb,2.5771e+00_jprb,4.8118e+00_jprb,7.6037e+00_jprb,9.9721e+00_jprb,1.0893e+01_jprb/)  
kbo( :, 4,29,11) = (/&
 & 2.6902e+00_jprb,2.6889e+00_jprb,4.7850e+00_jprb,7.4580e+00_jprb,9.8268e+00_jprb,1.0822e+01_jprb/)  
kbo( :, 5,29,11) = (/&
 & 2.8045e+00_jprb,2.8032e+00_jprb,4.7400e+00_jprb,7.3154e+00_jprb,9.6483e+00_jprb,1.0741e+01_jprb/)  
kbo( :, 1,30,11) = (/&
 & 2.1658e+00_jprb,2.1650e+00_jprb,4.8677e+00_jprb,7.8862e+00_jprb,1.0317e+01_jprb,1.1167e+01_jprb/)  
kbo( :, 2,30,11) = (/&
 & 2.2662e+00_jprb,2.2652e+00_jprb,4.8423e+00_jprb,7.7911e+00_jprb,1.0262e+01_jprb,1.1177e+01_jprb/)  
kbo( :, 3,30,11) = (/&
 & 2.3698e+00_jprb,2.3687e+00_jprb,4.8249e+00_jprb,7.6717e+00_jprb,1.0162e+01_jprb,1.1145e+01_jprb/)  
kbo( :, 4,30,11) = (/&
 & 2.4773e+00_jprb,2.4761e+00_jprb,4.7959e+00_jprb,7.5389e+00_jprb,1.0012e+01_jprb,1.1105e+01_jprb/)  
kbo( :, 5,30,11) = (/&
 & 2.5877e+00_jprb,2.5865e+00_jprb,4.7569e+00_jprb,7.4115e+00_jprb,9.8340e+00_jprb,1.1029e+01_jprb/)  
kbo( :, 1,31,11) = (/&
 & 1.9790e+00_jprb,1.9782e+00_jprb,4.8500e+00_jprb,7.9143e+00_jprb,1.0464e+01_jprb,1.1366e+01_jprb/)  
kbo( :, 2,31,11) = (/&
 & 2.0776e+00_jprb,2.0767e+00_jprb,4.8427e+00_jprb,7.8316e+00_jprb,1.0417e+01_jprb,1.1398e+01_jprb/)  
kbo( :, 3,31,11) = (/&
 & 2.1797e+00_jprb,2.1787e+00_jprb,4.8321e+00_jprb,7.7240e+00_jprb,1.0316e+01_jprb,1.1410e+01_jprb/)  
kbo( :, 4,31,11) = (/&
 & 2.2842e+00_jprb,2.2832e+00_jprb,4.8021e+00_jprb,7.6072e+00_jprb,1.0171e+01_jprb,1.1390e+01_jprb/)  
kbo( :, 5,31,11) = (/&
 & 2.3904e+00_jprb,2.3893e+00_jprb,4.7702e+00_jprb,7.4874e+00_jprb,9.9885e+00_jprb,1.1305e+01_jprb/)  
kbo( :, 1,32,11) = (/&
 & 1.8065e+00_jprb,1.8057e+00_jprb,4.8337e+00_jprb,7.9321e+00_jprb,1.0594e+01_jprb,1.1553e+01_jprb/)  
kbo( :, 2,32,11) = (/&
 & 1.9056e+00_jprb,1.9048e+00_jprb,4.8404e+00_jprb,7.8602e+00_jprb,1.0550e+01_jprb,1.1632e+01_jprb/)  
kbo( :, 3,32,11) = (/&
 & 2.0071e+00_jprb,2.0062e+00_jprb,4.8291e+00_jprb,7.7660e+00_jprb,1.0447e+01_jprb,1.1676e+01_jprb/)  
kbo( :, 4,32,11) = (/&
 & 2.1091e+00_jprb,2.1082e+00_jprb,4.8052e+00_jprb,7.6656e+00_jprb,1.0296e+01_jprb,1.1648e+01_jprb/)  
kbo( :, 5,32,11) = (/&
 & 2.2144e+00_jprb,2.2134e+00_jprb,4.7806e+00_jprb,7.5529e+00_jprb,1.0105e+01_jprb,1.1557e+01_jprb/)  
kbo( :, 1,33,11) = (/&
 & 1.6510e+00_jprb,1.6503e+00_jprb,4.8210e+00_jprb,7.9482e+00_jprb,1.0706e+01_jprb,1.1767e+01_jprb/)  
kbo( :, 2,33,11) = (/&
 & 1.7494e+00_jprb,1.7487e+00_jprb,4.8343e+00_jprb,7.8861e+00_jprb,1.0658e+01_jprb,1.1881e+01_jprb/)  
kbo( :, 3,33,11) = (/&
 & 1.8501e+00_jprb,1.8493e+00_jprb,4.8252e+00_jprb,7.8076e+00_jprb,1.0548e+01_jprb,1.1918e+01_jprb/)  
kbo( :, 4,33,11) = (/&
 & 1.9524e+00_jprb,1.9516e+00_jprb,4.8101e+00_jprb,7.7163e+00_jprb,1.0391e+01_jprb,1.1878e+01_jprb/)  
kbo( :, 5,33,11) = (/&
 & 2.0594e+00_jprb,2.0586e+00_jprb,4.7896e+00_jprb,7.6047e+00_jprb,1.0193e+01_jprb,1.1783e+01_jprb/)  
kbo( :, 1,34,11) = (/&
 & 1.5098e+00_jprb,1.5093e+00_jprb,4.8119e+00_jprb,7.9653e+00_jprb,1.0798e+01_jprb,1.1972e+01_jprb/)  
kbo( :, 2,34,11) = (/&
 & 1.6067e+00_jprb,1.6061e+00_jprb,4.8282e+00_jprb,7.9164e+00_jprb,1.0745e+01_jprb,1.2091e+01_jprb/)  
kbo( :, 3,34,11) = (/&
 & 1.7068e+00_jprb,1.7062e+00_jprb,4.8254e+00_jprb,7.8470e+00_jprb,1.0632e+01_jprb,1.2113e+01_jprb/)  
kbo( :, 4,34,11) = (/&
 & 1.8116e+00_jprb,1.8109e+00_jprb,4.8147e+00_jprb,7.7622e+00_jprb,1.0470e+01_jprb,1.2073e+01_jprb/)  
kbo( :, 5,34,11) = (/&
 & 1.9232e+00_jprb,1.9225e+00_jprb,4.7977e+00_jprb,7.6521e+00_jprb,1.0264e+01_jprb,1.1969e+01_jprb/)  
kbo( :, 1,35,11) = (/&
 & 1.3777e+00_jprb,1.3773e+00_jprb,4.8007e+00_jprb,7.9865e+00_jprb,1.0878e+01_jprb,1.2152e+01_jprb/)  
kbo( :, 2,35,11) = (/&
 & 1.4720e+00_jprb,1.4715e+00_jprb,4.8220e+00_jprb,7.9505e+00_jprb,1.0824e+01_jprb,1.2272e+01_jprb/)  
kbo( :, 3,35,11) = (/&
 & 1.5713e+00_jprb,1.5708e+00_jprb,4.8275e+00_jprb,7.8907e+00_jprb,1.0710e+01_jprb,1.2296e+01_jprb/)  
kbo( :, 4,35,11) = (/&
 & 1.6790e+00_jprb,1.6784e+00_jprb,4.8220e+00_jprb,7.8081e+00_jprb,1.0547e+01_jprb,1.2260e+01_jprb/)  
kbo( :, 5,35,11) = (/&
 & 1.7986e+00_jprb,1.7980e+00_jprb,4.8075e+00_jprb,7.7002e+00_jprb,1.0336e+01_jprb,1.2159e+01_jprb/)  
kbo( :, 1,36,11) = (/&
 & 1.2514e+00_jprb,1.2511e+00_jprb,4.7868e+00_jprb,8.0109e+00_jprb,1.0946e+01_jprb,1.2304e+01_jprb/)  
kbo( :, 2,36,11) = (/&
 & 1.3435e+00_jprb,1.3431e+00_jprb,4.8179e+00_jprb,7.9877e+00_jprb,1.0897e+01_jprb,1.2427e+01_jprb/)  
kbo( :, 3,36,11) = (/&
 & 1.4435e+00_jprb,1.4430e+00_jprb,4.8314e+00_jprb,7.9353e+00_jprb,1.0788e+01_jprb,1.2470e+01_jprb/)  
kbo( :, 4,36,11) = (/&
 & 1.5538e+00_jprb,1.5533e+00_jprb,4.8318e+00_jprb,7.8582e+00_jprb,1.0627e+01_jprb,1.2438e+01_jprb/)  
kbo( :, 5,36,11) = (/&
 & 1.6810e+00_jprb,1.6804e+00_jprb,4.8203e+00_jprb,7.7528e+00_jprb,1.0416e+01_jprb,1.2339e+01_jprb/)  
kbo( :, 1,37,11) = (/&
 & 1.1282e+00_jprb,1.1280e+00_jprb,4.7699e+00_jprb,8.0315e+00_jprb,1.1000e+01_jprb,1.2396e+01_jprb/)  
kbo( :, 2,37,11) = (/&
 & 1.2167e+00_jprb,1.2164e+00_jprb,4.8125e+00_jprb,8.0243e+00_jprb,1.0970e+01_jprb,1.2544e+01_jprb/)  
kbo( :, 3,37,11) = (/&
 & 1.3158e+00_jprb,1.3155e+00_jprb,4.8359e+00_jprb,7.9814e+00_jprb,1.0872e+01_jprb,1.2615e+01_jprb/)  
kbo( :, 4,37,11) = (/&
 & 1.4284e+00_jprb,1.4280e+00_jprb,4.8417e+00_jprb,7.9120e+00_jprb,1.0722e+01_jprb,1.2596e+01_jprb/)  
kbo( :, 5,37,11) = (/&
 & 1.5612e+00_jprb,1.5606e+00_jprb,4.8348e+00_jprb,7.8131e+00_jprb,1.0516e+01_jprb,1.2504e+01_jprb/)  
kbo( :, 1,38,11) = (/&
 & 1.0204e+00_jprb,1.0202e+00_jprb,4.7523e+00_jprb,8.0470e+00_jprb,1.1041e+01_jprb,1.2476e+01_jprb/)  
kbo( :, 2,38,11) = (/&
 & 1.1044e+00_jprb,1.1042e+00_jprb,4.8063e+00_jprb,8.0526e+00_jprb,1.1031e+01_jprb,1.2656e+01_jprb/)  
kbo( :, 3,38,11) = (/&
 & 1.2026e+00_jprb,1.2023e+00_jprb,4.8389e+00_jprb,8.0207e+00_jprb,1.0945e+01_jprb,1.2754e+01_jprb/)  
kbo( :, 4,38,11) = (/&
 & 1.3171e+00_jprb,1.3167e+00_jprb,4.8508e+00_jprb,7.9583e+00_jprb,1.0805e+01_jprb,1.2746e+01_jprb/)  

IF (lhook) CALL dr_hook('RRTM_KGB4:PART28',1,zhook_handle)
END SUBROUTINE part28


SUBROUTINE part29

REAL(KIND=JPRB) :: ZHOOK_HANDLE
IF (lhook) CALL dr_hook('RRTM_KGB4:PART29',0,zhook_handle)


kbo( :, 5,38,11) = (/&
 & 1.4551e+00_jprb,1.4546e+00_jprb,4.8486e+00_jprb,7.8661e+00_jprb,1.0608e+01_jprb,1.2659e+01_jprb/)  
kbo( :, 1,39,11) = (/&
 & 9.2697e-01_jprb,9.2690e-01_jprb,4.7345e+00_jprb,8.0529e+00_jprb,1.1070e+01_jprb,1.2554e+01_jprb/)  
kbo( :, 2,39,11) = (/&
 & 1.0083e+00_jprb,1.0081e+00_jprb,4.8007e+00_jprb,8.0735e+00_jprb,1.1079e+01_jprb,1.2773e+01_jprb/)  
kbo( :, 3,39,11) = (/&
 & 1.1037e+00_jprb,1.1035e+00_jprb,4.8402e+00_jprb,8.0520e+00_jprb,1.1008e+01_jprb,1.2893e+01_jprb/)  
kbo( :, 4,39,11) = (/&
 & 1.2204e+00_jprb,1.2201e+00_jprb,4.8590e+00_jprb,7.9971e+00_jprb,1.0876e+01_jprb,1.2892e+01_jprb/)  
kbo( :, 5,39,11) = (/&
 & 1.3628e+00_jprb,1.3623e+00_jprb,4.8606e+00_jprb,7.9113e+00_jprb,1.0688e+01_jprb,1.2810e+01_jprb/)  
kbo( :, 1,40,11) = (/&
 & 8.3758e-01_jprb,8.3760e-01_jprb,4.7063e+00_jprb,8.0487e+00_jprb,1.1082e+01_jprb,1.2556e+01_jprb/)  
kbo( :, 2,40,11) = (/&
 & 9.1581e-01_jprb,9.1577e-01_jprb,4.7869e+00_jprb,8.0879e+00_jprb,1.1120e+01_jprb,1.2816e+01_jprb/)  
kbo( :, 3,40,11) = (/&
 & 1.0079e+00_jprb,1.0078e+00_jprb,4.8371e+00_jprb,8.0805e+00_jprb,1.1070e+01_jprb,1.2970e+01_jprb/)  
kbo( :, 4,40,11) = (/&
 & 1.1225e+00_jprb,1.1222e+00_jprb,4.8639e+00_jprb,8.0357e+00_jprb,1.0954e+01_jprb,1.2989e+01_jprb/)  
kbo( :, 5,40,11) = (/&
 & 1.2665e+00_jprb,1.2660e+00_jprb,4.8714e+00_jprb,7.9591e+00_jprb,1.0779e+01_jprb,1.2926e+01_jprb/)  
kbo( :, 1,41,11) = (/&
 & 7.5804e-01_jprb,7.5812e-01_jprb,4.6746e+00_jprb,8.0347e+00_jprb,1.1077e+01_jprb,1.2530e+01_jprb/)  
kbo( :, 2,41,11) = (/&
 & 8.3424e-01_jprb,8.3425e-01_jprb,4.7690e+00_jprb,8.0936e+00_jprb,1.1147e+01_jprb,1.2837e+01_jprb/)  
kbo( :, 3,41,11) = (/&
 & 9.2284e-01_jprb,9.2272e-01_jprb,4.8295e+00_jprb,8.1031e+00_jprb,1.1121e+01_jprb,1.3026e+01_jprb/)  
kbo( :, 4,41,11) = (/&
 & 1.0345e+00_jprb,1.0342e+00_jprb,4.8660e+00_jprb,8.0690e+00_jprb,1.1022e+01_jprb,1.3069e+01_jprb/)  
kbo( :, 5,41,11) = (/&
 & 1.1779e+00_jprb,1.1775e+00_jprb,4.8792e+00_jprb,8.0025e+00_jprb,1.0862e+01_jprb,1.3028e+01_jprb/)  
kbo( :, 1,42,11) = (/&
 & 6.8836e-01_jprb,6.8850e-01_jprb,4.6395e+00_jprb,8.0108e+00_jprb,1.1057e+01_jprb,1.2493e+01_jprb/)  
kbo( :, 2,42,11) = (/&
 & 7.6202e-01_jprb,7.6208e-01_jprb,4.7478e+00_jprb,8.0915e+00_jprb,1.1161e+01_jprb,1.2847e+01_jprb/)  
kbo( :, 3,42,11) = (/&
 & 8.4897e-01_jprb,8.4889e-01_jprb,4.8194e+00_jprb,8.1177e+00_jprb,1.1160e+01_jprb,1.3071e+01_jprb/)  
kbo( :, 4,42,11) = (/&
 & 9.5721e-01_jprb,9.5697e-01_jprb,4.8642e+00_jprb,8.0964e+00_jprb,1.1081e+01_jprb,1.3142e+01_jprb/)  
kbo( :, 5,42,11) = (/&
 & 1.0979e+00_jprb,1.0975e+00_jprb,4.8838e+00_jprb,8.0399e+00_jprb,1.0937e+01_jprb,1.3122e+01_jprb/)  
kbo( :, 1,43,11) = (/&
 & 6.2327e-01_jprb,6.2346e-01_jprb,4.5920e+00_jprb,7.9682e+00_jprb,1.1010e+01_jprb,1.2410e+01_jprb/)  
kbo( :, 2,43,11) = (/&
 & 6.9363e-01_jprb,6.9372e-01_jprb,4.7172e+00_jprb,8.0779e+00_jprb,1.1157e+01_jprb,1.2823e+01_jprb/)  
kbo( :, 3,43,11) = (/&
 & 7.7812e-01_jprb,7.7808e-01_jprb,4.8024e+00_jprb,8.1237e+00_jprb,1.1190e+01_jprb,1.3092e+01_jprb/)  
kbo( :, 4,43,11) = (/&
 & 8.8257e-01_jprb,8.8240e-01_jprb,4.8564e+00_jprb,8.1185e+00_jprb,1.1134e+01_jprb,1.3199e+01_jprb/)  
kbo( :, 5,43,11) = (/&
 & 1.0175e+00_jprb,1.0172e+00_jprb,4.8852e+00_jprb,8.0748e+00_jprb,1.1010e+01_jprb,1.3208e+01_jprb/)  
kbo( :, 1,44,11) = (/&
 & 5.6319e-01_jprb,5.6344e-01_jprb,4.5362e+00_jprb,7.9098e+00_jprb,1.0942e+01_jprb,1.2291e+01_jprb/)  
kbo( :, 2,44,11) = (/&
 & 6.3128e-01_jprb,6.3143e-01_jprb,4.6773e+00_jprb,8.0513e+00_jprb,1.1133e+01_jprb,1.2773e+01_jprb/)  
kbo( :, 3,44,11) = (/&
 & 7.1290e-01_jprb,7.1288e-01_jprb,4.7788e+00_jprb,8.1200e+00_jprb,1.1206e+01_jprb,1.3092e+01_jprb/)  
kbo( :, 4,44,11) = (/&
 & 8.1370e-01_jprb,8.1356e-01_jprb,4.8431e+00_jprb,8.1349e+00_jprb,1.1178e+01_jprb,1.3245e+01_jprb/)  
kbo( :, 5,44,11) = (/&
 & 9.4155e-01_jprb,9.4126e-01_jprb,4.8828e+00_jprb,8.1039e+00_jprb,1.1076e+01_jprb,1.3283e+01_jprb/)  
kbo( :, 1,45,11) = (/&
 & 5.0848e-01_jprb,5.0877e-01_jprb,4.4759e+00_jprb,7.8396e+00_jprb,1.0853e+01_jprb,1.2157e+01_jprb/)  
kbo( :, 2,45,11) = (/&
 & 5.7558e-01_jprb,5.7574e-01_jprb,4.6321e+00_jprb,8.0148e+00_jprb,1.1090e+01_jprb,1.2710e+01_jprb/)  
kbo( :, 3,45,11) = (/&
 & 6.5428e-01_jprb,6.5431e-01_jprb,4.7490e+00_jprb,8.1075e+00_jprb,1.1206e+01_jprb,1.3081e+01_jprb/)  
kbo( :, 4,45,11) = (/&
 & 7.5171e-01_jprb,7.5160e-01_jprb,4.8272e+00_jprb,8.1428e+00_jprb,1.1211e+01_jprb,1.3283e+01_jprb/)  
kbo( :, 5,45,11) = (/&
 & 8.7320e-01_jprb,8.7295e-01_jprb,4.8756e+00_jprb,8.1271e+00_jprb,1.1133e+01_jprb,1.3354e+01_jprb/)  
kbo( :, 1,46,11) = (/&
 & 4.5749e-01_jprb,4.5781e-01_jprb,4.4050e+00_jprb,7.7477e+00_jprb,1.0733e+01_jprb,1.1988e+01_jprb/)  
kbo( :, 2,46,11) = (/&
 & 5.2335e-01_jprb,5.2354e-01_jprb,4.5777e+00_jprb,7.9624e+00_jprb,1.1027e+01_jprb,1.2622e+01_jprb/)  
kbo( :, 3,46,11) = (/&
 & 5.9972e-01_jprb,5.9977e-01_jprb,4.7113e+00_jprb,8.0849e+00_jprb,1.1188e+01_jprb,1.3051e+01_jprb/)  
kbo( :, 4,46,11) = (/&
 & 6.9340e-01_jprb,6.9332e-01_jprb,4.8042e+00_jprb,8.1402e+00_jprb,1.1232e+01_jprb,1.3309e+01_jprb/)  
kbo( :, 5,46,11) = (/&
 & 8.0900e-01_jprb,8.0880e-01_jprb,4.8629e+00_jprb,8.1438e+00_jprb,1.1182e+01_jprb,1.3415e+01_jprb/)  
kbo( :, 1,47,11) = (/&
 & 4.0799e-01_jprb,4.0834e-01_jprb,4.3192e+00_jprb,7.6262e+00_jprb,1.0570e+01_jprb,1.1748e+01_jprb/)  
kbo( :, 2,47,11) = (/&
 & 4.7291e-01_jprb,4.7311e-01_jprb,4.5111e+00_jprb,7.8858e+00_jprb,1.0930e+01_jprb,1.2474e+01_jprb/)  
kbo( :, 3,47,11) = (/&
 & 5.4737e-01_jprb,5.4746e-01_jprb,4.6622e+00_jprb,8.0462e+00_jprb,1.1144e+01_jprb,1.2972e+01_jprb/)  
kbo( :, 4,47,11) = (/&
 & 6.3579e-01_jprb,6.3575e-01_jprb,4.7722e+00_jprb,8.1275e+00_jprb,1.1235e+01_jprb,1.3300e+01_jprb/)  
kbo( :, 5,47,11) = (/&
 & 7.4500e-01_jprb,7.4486e-01_jprb,4.8444e+00_jprb,8.1534e+00_jprb,1.1220e+01_jprb,1.3455e+01_jprb/)  
kbo( :, 1,48,11) = (/&
 & 3.6234e-01_jprb,3.6271e-01_jprb,4.2229e+00_jprb,7.4847e+00_jprb,1.0381e+01_jprb,1.1491e+01_jprb/)  
kbo( :, 2,48,11) = (/&
 & 4.2649e-01_jprb,4.2672e-01_jprb,4.4362e+00_jprb,7.7928e+00_jprb,1.0805e+01_jprb,1.2307e+01_jprb/)  
kbo( :, 3,48,11) = (/&
 & 4.9899e-01_jprb,4.9911e-01_jprb,4.6047e+00_jprb,7.9930e+00_jprb,1.1077e+01_jprb,1.2882e+01_jprb/)  
kbo( :, 4,48,11) = (/&
 & 5.8344e-01_jprb,5.8343e-01_jprb,4.7326e+00_jprb,8.1042e+00_jprb,1.1219e+01_jprb,1.3280e+01_jprb/)  
kbo( :, 5,48,11) = (/&
 & 6.8655e-01_jprb,6.8645e-01_jprb,4.8209e+00_jprb,8.1532e+00_jprb,1.1244e+01_jprb,1.3490e+01_jprb/)  
kbo( :, 1,49,11) = (/&
 & 3.2105e-01_jprb,3.2141e-01_jprb,4.1218e+00_jprb,7.3215e+00_jprb,1.0162e+01_jprb,1.1223e+01_jprb/)  
kbo( :, 2,49,11) = (/&
 & 3.8263e-01_jprb,3.8290e-01_jprb,4.3538e+00_jprb,7.6804e+00_jprb,1.0654e+01_jprb,1.2130e+01_jprb/)  
kbo( :, 3,49,11) = (/&
 & 4.5423e-01_jprb,4.5438e-01_jprb,4.5413e+00_jprb,7.9230e+00_jprb,1.0989e+01_jprb,1.2791e+01_jprb/)  
kbo( :, 4,49,11) = (/&
 & 5.3583e-01_jprb,5.3587e-01_jprb,4.6861e+00_jprb,8.0697e+00_jprb,1.1180e+01_jprb,1.3260e+01_jprb/)  
kbo( :, 5,49,11) = (/&
 & 6.3293e-01_jprb,6.3285e-01_jprb,4.7905e+00_jprb,8.1418e+00_jprb,1.1253e+01_jprb,1.3527e+01_jprb/)  
kbo( :, 1,50,11) = (/&
 & 2.8508e-01_jprb,2.8546e-01_jprb,4.0216e+00_jprb,7.1533e+00_jprb,9.9242e+00_jprb,1.0908e+01_jprb/)  
kbo( :, 2,50,11) = (/&
 & 3.4378e-01_jprb,3.4406e-01_jprb,4.2684e+00_jprb,7.5560e+00_jprb,1.0485e+01_jprb,1.1896e+01_jprb/)  
kbo( :, 3,50,11) = (/&
 & 4.1407e-01_jprb,4.1424e-01_jprb,4.4746e+00_jprb,7.8430e+00_jprb,1.0882e+01_jprb,1.2647e+01_jprb/)  
kbo( :, 4,50,11) = (/&
 & 4.9363e-01_jprb,4.9370e-01_jprb,4.6366e+00_jprb,8.0253e+00_jprb,1.1126e+01_jprb,1.3186e+01_jprb/)  
kbo( :, 5,50,11) = (/&
 & 5.8619e-01_jprb,5.8614e-01_jprb,4.7566e+00_jprb,8.1231e+00_jprb,1.1244e+01_jprb,1.3516e+01_jprb/)  
kbo( :, 1,51,11) = (/&
 & 2.5326e-01_jprb,2.5365e-01_jprb,3.9197e+00_jprb,6.9713e+00_jprb,9.6644e+00_jprb,1.0563e+01_jprb/)  
kbo( :, 2,51,11) = (/&
 & 3.0874e-01_jprb,3.0902e-01_jprb,4.1778e+00_jprb,7.4188e+00_jprb,1.0300e+01_jprb,1.1619e+01_jprb/)  
kbo( :, 3,51,11) = (/&
 & 3.7711e-01_jprb,3.7728e-01_jprb,4.4030e+00_jprb,7.7505e+00_jprb,1.0757e+01_jprb,1.2466e+01_jprb/)  
kbo( :, 4,51,11) = (/&
 & 4.5549e-01_jprb,4.5558e-01_jprb,4.5816e+00_jprb,7.9699e+00_jprb,1.1056e+01_jprb,1.3074e+01_jprb/)  
kbo( :, 5,51,11) = (/&
 & 5.4422e-01_jprb,5.4419e-01_jprb,4.7173e+00_jprb,8.0963e+00_jprb,1.1218e+01_jprb,1.3472e+01_jprb/)  
kbo( :, 1,52,11) = (/&
 & 2.2461e-01_jprb,2.2501e-01_jprb,3.8110e+00_jprb,6.7727e+00_jprb,9.3780e+00_jprb,1.0204e+01_jprb/)  
kbo( :, 2,52,11) = (/&
 & 2.7696e-01_jprb,2.7724e-01_jprb,4.0846e+00_jprb,7.2661e+00_jprb,1.0090e+01_jprb,1.1325e+01_jprb/)  
kbo( :, 3,52,11) = (/&
 & 3.4251e-01_jprb,3.4273e-01_jprb,4.3258e+00_jprb,7.6413e+00_jprb,1.0608e+01_jprb,1.2266e+01_jprb/)  
kbo( :, 4,52,11) = (/&
 & 4.1924e-01_jprb,4.1934e-01_jprb,4.5215e+00_jprb,7.9004e+00_jprb,1.0966e+01_jprb,1.2948e+01_jprb/)  
kbo( :, 5,52,11) = (/&
 & 5.0516e-01_jprb,5.0516e-01_jprb,4.6729e+00_jprb,8.0607e+00_jprb,1.1176e+01_jprb,1.3418e+01_jprb/)  
kbo( :, 1,53,11) = (/&
 & 1.9876e-01_jprb,1.9925e-01_jprb,3.6957e+00_jprb,6.5526e+00_jprb,9.0627e+00_jprb,9.8215e+00_jprb/)  
kbo( :, 2,53,11) = (/&
 & 2.4812e-01_jprb,2.4842e-01_jprb,3.9863e+00_jprb,7.0970e+00_jprb,9.8501e+00_jprb,1.1018e+01_jprb/)  
kbo( :, 3,53,11) = (/&
 & 3.1019e-01_jprb,3.1042e-01_jprb,4.2400e+00_jprb,7.5167e+00_jprb,1.0436e+01_jprb,1.2052e+01_jprb/)  
kbo( :, 4,53,11) = (/&
 & 3.8453e-01_jprb,3.8465e-01_jprb,4.4543e+00_jprb,7.8181e+00_jprb,1.0855e+01_jprb,1.2811e+01_jprb/)  
kbo( :, 5,53,11) = (/&
 & 4.6824e-01_jprb,4.6827e-01_jprb,4.6221e+00_jprb,8.0127e+00_jprb,1.1114e+01_jprb,1.3357e+01_jprb/)  
kbo( :, 1,54,11) = (/&
 & 1.7658e-01_jprb,1.7738e-01_jprb,3.5830e+00_jprb,6.3331e+00_jprb,8.7501e+00_jprb,9.3830e+00_jprb/)  
kbo( :, 2,54,11) = (/&
 & 2.2311e-01_jprb,2.2343e-01_jprb,3.8924e+00_jprb,6.9272e+00_jprb,9.6066e+00_jprb,1.0637e+01_jprb/)  
kbo( :, 3,54,11) = (/&
 & 2.8225e-01_jprb,2.8249e-01_jprb,4.1567e+00_jprb,7.3875e+00_jprb,1.0262e+01_jprb,1.1745e+01_jprb/)  
kbo( :, 4,54,11) = (/&
 & 3.5407e-01_jprb,3.5420e-01_jprb,4.3869e+00_jprb,7.7293e+00_jprb,1.0733e+01_jprb,1.2587e+01_jprb/)  
kbo( :, 5,54,11) = (/&
 & 4.3599e-01_jprb,4.3605e-01_jprb,4.5705e+00_jprb,7.9578e+00_jprb,1.1045e+01_jprb,1.3213e+01_jprb/)  
kbo( :, 1,55,11) = (/&
 & 1.5693e-01_jprb,1.5821e-01_jprb,3.4683e+00_jprb,6.1089e+00_jprb,8.4282e+00_jprb,8.9090e+00_jprb/)  
kbo( :, 2,55,11) = (/&
 & 2.0085e-01_jprb,2.0128e-01_jprb,3.7963e+00_jprb,6.7515e+00_jprb,9.3517e+00_jprb,1.0215e+01_jprb/)  
kbo( :, 3,55,11) = (/&
 & 2.5734e-01_jprb,2.5756e-01_jprb,4.0737e+00_jprb,7.2511e+00_jprb,1.0072e+01_jprb,1.1362e+01_jprb/)  
kbo( :, 4,55,11) = (/&
 & 3.2630e-01_jprb,3.2643e-01_jprb,4.3183e+00_jprb,7.6321e+00_jprb,1.0598e+01_jprb,1.2305e+01_jprb/)  
kbo( :, 5,55,11) = (/&
 & 4.0605e-01_jprb,4.0612e-01_jprb,4.5166e+00_jprb,7.8950e+00_jprb,1.0962e+01_jprb,1.2994e+01_jprb/)  
kbo( :, 1,56,11) = (/&
 & 1.3887e-01_jprb,1.4103e-01_jprb,3.3452e+00_jprb,5.8712e+00_jprb,8.0833e+00_jprb,8.4282e+00_jprb/)  
kbo( :, 2,56,11) = (/&
 & 1.8055e-01_jprb,1.8122e-01_jprb,3.6957e+00_jprb,6.5591e+00_jprb,9.0757e+00_jprb,9.7805e+00_jprb/)  
kbo( :, 3,56,11) = (/&
 & 2.3436e-01_jprb,2.3458e-01_jprb,3.9878e+00_jprb,7.1027e+00_jprb,9.8624e+00_jprb,1.0961e+01_jprb/)  
kbo( :, 4,56,11) = (/&
 & 2.9996e-01_jprb,3.0009e-01_jprb,4.2431e+00_jprb,7.5221e+00_jprb,1.0447e+01_jprb,1.1989e+01_jprb/)  
kbo( :, 5,56,11) = (/&
 & 3.7712e-01_jprb,3.7719e-01_jprb,4.4577e+00_jprb,7.8227e+00_jprb,1.0864e+01_jprb,1.2750e+01_jprb/)  
kbo( :, 1,57,11) = (/&
 & 1.2231e-01_jprb,1.2572e-01_jprb,3.2149e+00_jprb,5.6195e+00_jprb,7.7189e+00_jprb,7.9409e+00_jprb/)  
kbo( :, 2,57,11) = (/&
 & 1.6188e-01_jprb,1.6303e-01_jprb,3.5895e+00_jprb,6.3509e+00_jprb,8.7789e+00_jprb,9.3239e+00_jprb/)  
kbo( :, 3,57,11) = (/&
 & 2.1281e-01_jprb,2.1309e-01_jprb,3.8984e+00_jprb,6.9426e+00_jprb,9.6313e+00_jprb,1.0551e+01_jprb/)  
kbo( :, 4,57,11) = (/&
 & 2.7533e-01_jprb,2.7549e-01_jprb,4.1635e+00_jprb,7.3997e+00_jprb,1.0280e+01_jprb,1.1629e+01_jprb/)  
kbo( :, 5,57,11) = (/&
 & 3.4953e-01_jprb,3.4962e-01_jprb,4.3933e+00_jprb,7.7390e+00_jprb,1.0749e+01_jprb,1.2483e+01_jprb/)  
kbo( :, 1,58,11) = (/&
 & 1.0753e-01_jprb,1.1255e-01_jprb,3.0845e+00_jprb,5.3675e+00_jprb,7.3519e+00_jprb,7.4714e+00_jprb/)  
kbo( :, 2,58,11) = (/&
 & 1.4527e-01_jprb,1.4713e-01_jprb,3.4823e+00_jprb,6.1407e+00_jprb,8.4780e+00_jprb,8.8781e+00_jprb/)  
kbo( :, 3,58,11) = (/&
 & 1.9346e-01_jprb,1.9393e-01_jprb,3.8086e+00_jprb,6.7779e+00_jprb,9.3926e+00_jprb,1.0139e+01_jprb/)  
kbo( :, 4,58,11) = (/&
 & 2.5331e-01_jprb,2.5345e-01_jprb,4.0858e+00_jprb,7.2725e+00_jprb,1.0104e+01_jprb,1.1238e+01_jprb/)  
kbo( :, 5,58,11) = (/&
 & 3.2441e-01_jprb,3.2451e-01_jprb,4.3290e+00_jprb,7.6484e+00_jprb,1.0623e+01_jprb,1.2180e+01_jprb/)  
kbo( :, 1,59,11) = (/&
 & 9.9614e-02_jprb,1.0577e-01_jprb,3.0288e+00_jprb,5.2610e+00_jprb,7.1978e+00_jprb,7.2394e+00_jprb/)  
kbo( :, 2,59,11) = (/&
 & 1.3736e-01_jprb,1.3969e-01_jprb,3.4366e+00_jprb,6.0532e+00_jprb,8.3509e+00_jprb,8.6179e+00_jprb/)  
kbo( :, 3,59,11) = (/&
 & 1.8506e-01_jprb,1.8566e-01_jprb,3.7708e+00_jprb,6.7076e+00_jprb,9.2912e+00_jprb,9.8422e+00_jprb/)  
kbo( :, 4,59,11) = (/&
 & 2.4408e-01_jprb,2.4421e-01_jprb,4.0531e+00_jprb,7.2180e+00_jprb,1.0029e+01_jprb,1.0900e+01_jprb/)  
kbo( :, 5,59,11) = (/&
 & 3.1395e-01_jprb,3.1406e-01_jprb,4.3016e+00_jprb,7.6085e+00_jprb,1.0568e+01_jprb,1.1809e+01_jprb/)  
kbo( :, 1,13,12) = (/&
 & 1.5071e+01_jprb,1.5062e+01_jprb,1.1553e+01_jprb,8.0422e+00_jprb,5.1775e+00_jprb,4.4276e+00_jprb/)  
kbo( :, 2,13,12) = (/&
 & 1.5045e+01_jprb,1.5037e+01_jprb,1.1523e+01_jprb,8.0068e+00_jprb,5.0603e+00_jprb,4.3468e+00_jprb/)  
kbo( :, 3,13,12) = (/&
 & 1.4932e+01_jprb,1.4924e+01_jprb,1.1428e+01_jprb,7.9305e+00_jprb,4.9434e+00_jprb,4.2743e+00_jprb/)  
kbo( :, 4,13,12) = (/&
 & 1.4793e+01_jprb,1.4785e+01_jprb,1.1318e+01_jprb,7.8509e+00_jprb,4.8345e+00_jprb,4.2338e+00_jprb/)  
kbo( :, 5,13,12) = (/&
 & 1.4616e+01_jprb,1.4607e+01_jprb,1.1172e+01_jprb,7.7373e+00_jprb,4.7181e+00_jprb,4.2382e+00_jprb/)  
kbo( :, 1,14,12) = (/&
 & 1.6109e+01_jprb,1.6100e+01_jprb,1.2313e+01_jprb,8.5158e+00_jprb,5.5307e+00_jprb,4.8392e+00_jprb/)  
kbo( :, 2,14,12) = (/&
 & 1.6026e+01_jprb,1.6017e+01_jprb,1.2244e+01_jprb,8.4632e+00_jprb,5.4108e+00_jprb,4.7399e+00_jprb/)  
kbo( :, 3,14,12) = (/&
 & 1.5874e+01_jprb,1.5865e+01_jprb,1.2127e+01_jprb,8.3786e+00_jprb,5.2843e+00_jprb,4.6480e+00_jprb/)  
kbo( :, 4,14,12) = (/&
 & 1.5690e+01_jprb,1.5681e+01_jprb,1.1982e+01_jprb,8.2687e+00_jprb,5.1442e+00_jprb,4.5663e+00_jprb/)  
kbo( :, 5,14,12) = (/&
 & 1.5467e+01_jprb,1.5458e+01_jprb,1.1810e+01_jprb,8.1473e+00_jprb,5.0031e+00_jprb,4.5067e+00_jprb/)  
kbo( :, 1,15,12) = (/&
 & 1.6950e+01_jprb,1.6940e+01_jprb,1.2936e+01_jprb,8.9243e+00_jprb,5.9139e+00_jprb,5.3392e+00_jprb/)  
kbo( :, 2,15,12) = (/&
 & 1.6795e+01_jprb,1.6786e+01_jprb,1.2817e+01_jprb,8.8403e+00_jprb,5.7728e+00_jprb,5.2173e+00_jprb/)  
kbo( :, 3,15,12) = (/&
 & 1.6618e+01_jprb,1.6608e+01_jprb,1.2675e+01_jprb,8.7335e+00_jprb,5.6294e+00_jprb,5.1076e+00_jprb/)  
kbo( :, 4,15,12) = (/&
 & 1.6363e+01_jprb,1.6354e+01_jprb,1.2477e+01_jprb,8.5926e+00_jprb,5.4844e+00_jprb,5.0174e+00_jprb/)  
kbo( :, 5,15,12) = (/&
 & 1.6071e+01_jprb,1.6061e+01_jprb,1.2263e+01_jprb,8.4516e+00_jprb,5.3505e+00_jprb,4.9217e+00_jprb/)  
kbo( :, 1,16,12) = (/&
 & 1.7483e+01_jprb,1.7473e+01_jprb,1.3331e+01_jprb,9.1930e+00_jprb,6.3135e+00_jprb,5.9094e+00_jprb/)  
kbo( :, 2,16,12) = (/&
 & 1.7265e+01_jprb,1.7255e+01_jprb,1.3158e+01_jprb,9.0640e+00_jprb,6.1752e+00_jprb,5.7636e+00_jprb/)  
kbo( :, 3,16,12) = (/&
 & 1.7001e+01_jprb,1.6992e+01_jprb,1.2961e+01_jprb,8.9272e+00_jprb,6.0421e+00_jprb,5.6420e+00_jprb/)  
kbo( :, 4,16,12) = (/&
 & 1.6715e+01_jprb,1.6706e+01_jprb,1.2750e+01_jprb,8.7873e+00_jprb,5.9067e+00_jprb,5.5250e+00_jprb/)  
kbo( :, 5,16,12) = (/&
 & 1.6400e+01_jprb,1.6391e+01_jprb,1.2509e+01_jprb,8.6238e+00_jprb,5.7670e+00_jprb,5.4408e+00_jprb/)  
kbo( :, 1,17,12) = (/&
 & 1.7611e+01_jprb,1.7601e+01_jprb,1.3423e+01_jprb,9.2865e+00_jprb,6.8286e+00_jprb,6.5192e+00_jprb/)  
kbo( :, 2,17,12) = (/&
 & 1.7351e+01_jprb,1.7341e+01_jprb,1.3231e+01_jprb,9.1506e+00_jprb,6.6893e+00_jprb,6.3748e+00_jprb/)  
kbo( :, 3,17,12) = (/&
 & 1.7056e+01_jprb,1.7047e+01_jprb,1.3013e+01_jprb,9.0104e+00_jprb,6.5437e+00_jprb,6.2526e+00_jprb/)  
kbo( :, 4,17,12) = (/&
 & 1.6747e+01_jprb,1.6738e+01_jprb,1.2778e+01_jprb,8.8490e+00_jprb,6.3936e+00_jprb,6.1321e+00_jprb/)  
kbo( :, 5,17,12) = (/&
 & 1.6425e+01_jprb,1.6416e+01_jprb,1.2531e+01_jprb,8.6800e+00_jprb,6.2394e+00_jprb,6.0341e+00_jprb/)  
kbo( :, 1,18,12) = (/&
 & 1.7373e+01_jprb,1.7363e+01_jprb,1.3259e+01_jprb,9.2987e+00_jprb,7.4434e+00_jprb,7.1986e+00_jprb/)  
kbo( :, 2,18,12) = (/&
 & 1.7075e+01_jprb,1.7065e+01_jprb,1.3035e+01_jprb,9.1492e+00_jprb,7.2871e+00_jprb,7.0606e+00_jprb/)  
kbo( :, 3,18,12) = (/&
 & 1.6756e+01_jprb,1.6747e+01_jprb,1.2796e+01_jprb,8.9869e+00_jprb,7.1229e+00_jprb,6.9365e+00_jprb/)  
kbo( :, 4,18,12) = (/&
 & 1.6448e+01_jprb,1.6438e+01_jprb,1.2559e+01_jprb,8.8102e+00_jprb,6.9614e+00_jprb,6.7953e+00_jprb/)  
kbo( :, 5,18,12) = (/&
 & 1.6127e+01_jprb,1.6118e+01_jprb,1.2311e+01_jprb,8.6284e+00_jprb,6.8009e+00_jprb,6.6712e+00_jprb/)  
kbo( :, 1,19,12) = (/&
 & 1.6746e+01_jprb,1.6736e+01_jprb,1.2803e+01_jprb,9.3167e+00_jprb,8.0934e+00_jprb,7.9604e+00_jprb/)  
kbo( :, 2,19,12) = (/&
 & 1.6435e+01_jprb,1.6426e+01_jprb,1.2567e+01_jprb,9.1426e+00_jprb,7.9243e+00_jprb,7.8083e+00_jprb/)  
kbo( :, 3,19,12) = (/&
 & 1.6123e+01_jprb,1.6114e+01_jprb,1.2329e+01_jprb,8.9518e+00_jprb,7.7527e+00_jprb,7.6627e+00_jprb/)  
kbo( :, 4,19,12) = (/&
 & 1.5818e+01_jprb,1.5809e+01_jprb,1.2094e+01_jprb,8.7559e+00_jprb,7.5782e+00_jprb,7.5080e+00_jprb/)  
kbo( :, 5,19,12) = (/&
 & 1.5498e+01_jprb,1.5490e+01_jprb,1.1845e+01_jprb,8.5563e+00_jprb,7.3997e+00_jprb,7.3552e+00_jprb/)  
kbo( :, 1,20,12) = (/&
 & 1.5808e+01_jprb,1.5799e+01_jprb,1.2109e+01_jprb,9.3560e+00_jprb,8.7540e+00_jprb,8.7978e+00_jprb/)  
kbo( :, 2,20,12) = (/&
 & 1.5503e+01_jprb,1.5494e+01_jprb,1.1873e+01_jprb,9.1479e+00_jprb,8.5752e+00_jprb,8.6307e+00_jprb/)  
kbo( :, 3,20,12) = (/&
 & 1.5194e+01_jprb,1.5185e+01_jprb,1.1636e+01_jprb,8.9392e+00_jprb,8.3955e+00_jprb,8.4731e+00_jprb/)  
kbo( :, 4,20,12) = (/&
 & 1.4894e+01_jprb,1.4886e+01_jprb,1.1403e+01_jprb,8.7296e+00_jprb,8.2170e+00_jprb,8.2989e+00_jprb/)  

IF (lhook) CALL dr_hook('RRTM_KGB4:PART29',1,zhook_handle)
END SUBROUTINE part29


SUBROUTINE part30

REAL(KIND=JPRB) :: ZHOOK_HANDLE
IF (lhook) CALL dr_hook('RRTM_KGB4:PART30',0,zhook_handle)


kbo( :, 5,20,12) = (/&
 & 1.4572e+01_jprb,1.4563e+01_jprb,1.1152e+01_jprb,8.5115e+00_jprb,8.0382e+00_jprb,8.1214e+00_jprb/)  
kbo( :, 1,21,12) = (/&
 & 1.4618e+01_jprb,1.4609e+01_jprb,1.1224e+01_jprb,9.4749e+00_jprb,9.4674e+00_jprb,9.7176e+00_jprb/)  
kbo( :, 2,21,12) = (/&
 & 1.4320e+01_jprb,1.4312e+01_jprb,1.0993e+01_jprb,9.2613e+00_jprb,9.2871e+00_jprb,9.5392e+00_jprb/)  
kbo( :, 3,21,12) = (/&
 & 1.4030e+01_jprb,1.4022e+01_jprb,1.0770e+01_jprb,9.0451e+00_jprb,9.1076e+00_jprb,9.3604e+00_jprb/)  
kbo( :, 4,21,12) = (/&
 & 1.3731e+01_jprb,1.3724e+01_jprb,1.0538e+01_jprb,8.8193e+00_jprb,8.9189e+00_jprb,9.1661e+00_jprb/)  
kbo( :, 5,21,12) = (/&
 & 1.3412e+01_jprb,1.3405e+01_jprb,1.0288e+01_jprb,8.5978e+00_jprb,8.7269e+00_jprb,8.9634e+00_jprb/)  
kbo( :, 1,22,12) = (/&
 & 1.3252e+01_jprb,1.3245e+01_jprb,1.0263e+01_jprb,9.6884e+00_jprb,1.0237e+01_jprb,1.0659e+01_jprb/)  
kbo( :, 2,22,12) = (/&
 & 1.2974e+01_jprb,1.2967e+01_jprb,1.0045e+01_jprb,9.4635e+00_jprb,1.0051e+01_jprb,1.0470e+01_jprb/)  
kbo( :, 3,22,12) = (/&
 & 1.2686e+01_jprb,1.2679e+01_jprb,9.8204e+00_jprb,9.2336e+00_jprb,9.8532e+00_jprb,1.0276e+01_jprb/)  
kbo( :, 4,22,12) = (/&
 & 1.2392e+01_jprb,1.2385e+01_jprb,9.5853e+00_jprb,9.0077e+00_jprb,9.6460e+00_jprb,1.0057e+01_jprb/)  
kbo( :, 5,22,12) = (/&
 & 1.2080e+01_jprb,1.2073e+01_jprb,9.3373e+00_jprb,8.7763e+00_jprb,9.4290e+00_jprb,9.8257e+00_jprb/)  
kbo( :, 1,23,12) = (/&
 & 1.1802e+01_jprb,1.1796e+01_jprb,9.3955e+00_jprb,9.9793e+00_jprb,1.1071e+01_jprb,1.1590e+01_jprb/)  
kbo( :, 2,23,12) = (/&
 & 1.1532e+01_jprb,1.1526e+01_jprb,9.1740e+00_jprb,9.7510e+00_jprb,1.0853e+01_jprb,1.1387e+01_jprb/)  
kbo( :, 3,23,12) = (/&
 & 1.1254e+01_jprb,1.1248e+01_jprb,8.9457e+00_jprb,9.5279e+00_jprb,1.0621e+01_jprb,1.1176e+01_jprb/)  
kbo( :, 4,23,12) = (/&
 & 1.0971e+01_jprb,1.0965e+01_jprb,8.7049e+00_jprb,9.2947e+00_jprb,1.0373e+01_jprb,1.0939e+01_jprb/)  
kbo( :, 5,23,12) = (/&
 & 1.0694e+01_jprb,1.0688e+01_jprb,8.4691e+00_jprb,9.0520e+00_jprb,1.0118e+01_jprb,1.0692e+01_jprb/)  
kbo( :, 1,24,12) = (/&
 & 1.0339e+01_jprb,1.0334e+01_jprb,8.7416e+00_jprb,1.0311e+01_jprb,1.1869e+01_jprb,1.2496e+01_jprb/)  
kbo( :, 2,24,12) = (/&
 & 1.0079e+01_jprb,1.0074e+01_jprb,8.5118e+00_jprb,1.0085e+01_jprb,1.1623e+01_jprb,1.2266e+01_jprb/)  
kbo( :, 3,24,12) = (/&
 & 9.8237e+00_jprb,9.8183e+00_jprb,8.2739e+00_jprb,9.8502e+00_jprb,1.1362e+01_jprb,1.2041e+01_jprb/)  
kbo( :, 4,24,12) = (/&
 & 9.5837e+00_jprb,9.5785e+00_jprb,8.0352e+00_jprb,9.6060e+00_jprb,1.1087e+01_jprb,1.1795e+01_jprb/)  
kbo( :, 5,24,12) = (/&
 & 9.4022e+00_jprb,9.3971e+00_jprb,7.8130e+00_jprb,9.3488e+00_jprb,1.0802e+01_jprb,1.1530e+01_jprb/)  
kbo( :, 1,25,12) = (/&
 & 8.9159e+00_jprb,8.9112e+00_jprb,8.3253e+00_jprb,1.0680e+01_jprb,1.2624e+01_jprb,1.3349e+01_jprb/)  
kbo( :, 2,25,12) = (/&
 & 8.6856e+00_jprb,8.6810e+00_jprb,8.0901e+00_jprb,1.0434e+01_jprb,1.2357e+01_jprb,1.3117e+01_jprb/)  
kbo( :, 3,25,12) = (/&
 & 8.4955e+00_jprb,8.4909e+00_jprb,7.8520e+00_jprb,1.0179e+01_jprb,1.2070e+01_jprb,1.2889e+01_jprb/)  
kbo( :, 4,25,12) = (/&
 & 8.3669e+00_jprb,8.3624e+00_jprb,7.6206e+00_jprb,9.9074e+00_jprb,1.1769e+01_jprb,1.2627e+01_jprb/)  
kbo( :, 5,25,12) = (/&
 & 8.2951e+00_jprb,8.2906e+00_jprb,7.4263e+00_jprb,9.6322e+00_jprb,1.1459e+01_jprb,1.2339e+01_jprb/)  
kbo( :, 1,26,12) = (/&
 & 7.5918e+00_jprb,7.5878e+00_jprb,8.0448e+00_jprb,1.1047e+01_jprb,1.3308e+01_jprb,1.4181e+01_jprb/)  
kbo( :, 2,26,12) = (/&
 & 7.4417e+00_jprb,7.4378e+00_jprb,7.8118e+00_jprb,1.0782e+01_jprb,1.3032e+01_jprb,1.3946e+01_jprb/)  
kbo( :, 3,26,12) = (/&
 & 7.3590e+00_jprb,7.3551e+00_jprb,7.5780e+00_jprb,1.0497e+01_jprb,1.2721e+01_jprb,1.3696e+01_jprb/)  
kbo( :, 4,26,12) = (/&
 & 7.3502e+00_jprb,7.3462e+00_jprb,7.3714e+00_jprb,1.0203e+01_jprb,1.2399e+01_jprb,1.3409e+01_jprb/)  
kbo( :, 5,26,12) = (/&
 & 7.4276e+00_jprb,7.4236e+00_jprb,7.2173e+00_jprb,9.8998e+00_jprb,1.2064e+01_jprb,1.3105e+01_jprb/)  
kbo( :, 1,27,12) = (/&
 & 6.4683e+00_jprb,6.4649e+00_jprb,7.8812e+00_jprb,1.1375e+01_jprb,1.3927e+01_jprb,1.4966e+01_jprb/)  
kbo( :, 2,27,12) = (/&
 & 6.4189e+00_jprb,6.4156e+00_jprb,7.6472e+00_jprb,1.1088e+01_jprb,1.3638e+01_jprb,1.4716e+01_jprb/)  
kbo( :, 3,27,12) = (/&
 & 6.4591e+00_jprb,6.4557e+00_jprb,7.4245e+00_jprb,1.0785e+01_jprb,1.3326e+01_jprb,1.4451e+01_jprb/)  
kbo( :, 4,27,12) = (/&
 & 6.5895e+00_jprb,6.5861e+00_jprb,7.2540e+00_jprb,1.0466e+01_jprb,1.2988e+01_jprb,1.4141e+01_jprb/)  
kbo( :, 5,27,12) = (/&
 & 6.7673e+00_jprb,6.7638e+00_jprb,7.1253e+00_jprb,1.0145e+01_jprb,1.2630e+01_jprb,1.3805e+01_jprb/)  
kbo( :, 1,28,12) = (/&
 & 5.5812e+00_jprb,5.5783e+00_jprb,7.7689e+00_jprb,1.1658e+01_jprb,1.4504e+01_jprb,1.5676e+01_jprb/)  
kbo( :, 2,28,12) = (/&
 & 5.6494e+00_jprb,5.6465e+00_jprb,7.5324e+00_jprb,1.1356e+01_jprb,1.4208e+01_jprb,1.5420e+01_jprb/)  
kbo( :, 3,28,12) = (/&
 & 5.8063e+00_jprb,5.8033e+00_jprb,7.3350e+00_jprb,1.1035e+01_jprb,1.3883e+01_jprb,1.5136e+01_jprb/)  
kbo( :, 4,28,12) = (/&
 & 5.9982e+00_jprb,5.9952e+00_jprb,7.1895e+00_jprb,1.0705e+01_jprb,1.3523e+01_jprb,1.4796e+01_jprb/)  
kbo( :, 5,28,12) = (/&
 & 6.2275e+00_jprb,6.2243e+00_jprb,7.0847e+00_jprb,1.0363e+01_jprb,1.3144e+01_jprb,1.4440e+01_jprb/)  
kbo( :, 1,29,12) = (/&
 & 4.9263e+00_jprb,4.9239e+00_jprb,7.6738e+00_jprb,1.1886e+01_jprb,1.5034e+01_jprb,1.6303e+01_jprb/)  
kbo( :, 2,29,12) = (/&
 & 5.0905e+00_jprb,5.0880e+00_jprb,7.4511e+00_jprb,1.1577e+01_jprb,1.4725e+01_jprb,1.6056e+01_jprb/)  
kbo( :, 3,29,12) = (/&
 & 5.2910e+00_jprb,5.2884e+00_jprb,7.2824e+00_jprb,1.1245e+01_jprb,1.4371e+01_jprb,1.5737e+01_jprb/)  
kbo( :, 4,29,12) = (/&
 & 5.5388e+00_jprb,5.5361e+00_jprb,7.1566e+00_jprb,1.0903e+01_jprb,1.3995e+01_jprb,1.5373e+01_jprb/)  
kbo( :, 5,29,12) = (/&
 & 5.8140e+00_jprb,5.8111e+00_jprb,7.0642e+00_jprb,1.0551e+01_jprb,1.3590e+01_jprb,1.5023e+01_jprb/)  
kbo( :, 1,30,12) = (/&
 & 4.4481e+00_jprb,4.4460e+00_jprb,7.5927e+00_jprb,1.2072e+01_jprb,1.5506e+01_jprb,1.6872e+01_jprb/)  
kbo( :, 2,30,12) = (/&
 & 4.6495e+00_jprb,4.6473e+00_jprb,7.3991e+00_jprb,1.1764e+01_jprb,1.5173e+01_jprb,1.6609e+01_jprb/)  
kbo( :, 3,30,12) = (/&
 & 4.9026e+00_jprb,4.9003e+00_jprb,7.2499e+00_jprb,1.1426e+01_jprb,1.4795e+01_jprb,1.6261e+01_jprb/)  
kbo( :, 4,30,12) = (/&
 & 5.1748e+00_jprb,5.1723e+00_jprb,7.1402e+00_jprb,1.1073e+01_jprb,1.4399e+01_jprb,1.5886e+01_jprb/)  
kbo( :, 5,30,12) = (/&
 & 5.4669e+00_jprb,5.4641e+00_jprb,7.0513e+00_jprb,1.0712e+01_jprb,1.3969e+01_jprb,1.5546e+01_jprb/)  
kbo( :, 1,31,12) = (/&
 & 4.0826e+00_jprb,4.0808e+00_jprb,7.5248e+00_jprb,1.2230e+01_jprb,1.5909e+01_jprb,1.7372e+01_jprb/)  
kbo( :, 2,31,12) = (/&
 & 4.3203e+00_jprb,4.3184e+00_jprb,7.3583e+00_jprb,1.1921e+01_jprb,1.5546e+01_jprb,1.7073e+01_jprb/)  
kbo( :, 3,31,12) = (/&
 & 4.5820e+00_jprb,4.5799e+00_jprb,7.2311e+00_jprb,1.1577e+01_jprb,1.5153e+01_jprb,1.6713e+01_jprb/)  
kbo( :, 4,31,12) = (/&
 & 4.8695e+00_jprb,4.8672e+00_jprb,7.1286e+00_jprb,1.1212e+01_jprb,1.4724e+01_jprb,1.6381e+01_jprb/)  
kbo( :, 5,31,12) = (/&
 & 5.1816e+00_jprb,5.1790e+00_jprb,7.0469e+00_jprb,1.0847e+01_jprb,1.4274e+01_jprb,1.6048e+01_jprb/)  
kbo( :, 1,32,12) = (/&
 & 3.7968e+00_jprb,3.7952e+00_jprb,7.4739e+00_jprb,1.2361e+01_jprb,1.6239e+01_jprb,1.7800e+01_jprb/)  
kbo( :, 2,32,12) = (/&
 & 4.0447e+00_jprb,4.0430e+00_jprb,7.3338e+00_jprb,1.2050e+01_jprb,1.5855e+01_jprb,1.7484e+01_jprb/)  
kbo( :, 3,32,12) = (/&
 & 4.3179e+00_jprb,4.3159e+00_jprb,7.2183e+00_jprb,1.1702e+01_jprb,1.5442e+01_jprb,1.7161e+01_jprb/)  
kbo( :, 4,32,12) = (/&
 & 4.6213e+00_jprb,4.6191e+00_jprb,7.1240e+00_jprb,1.1329e+01_jprb,1.4991e+01_jprb,1.6858e+01_jprb/)  
kbo( :, 5,32,12) = (/&
 & 4.9485e+00_jprb,4.9460e+00_jprb,7.0483e+00_jprb,1.0954e+01_jprb,1.4516e+01_jprb,1.6491e+01_jprb/)  
kbo( :, 1,33,12) = (/&
 & 3.5568e+00_jprb,3.5554e+00_jprb,7.4337e+00_jprb,1.2471e+01_jprb,1.6507e+01_jprb,1.8167e+01_jprb/)  
kbo( :, 2,33,12) = (/&
 & 3.8191e+00_jprb,3.8174e+00_jprb,7.3162e+00_jprb,1.2150e+01_jprb,1.6107e+01_jprb,1.7878e+01_jprb/)  
kbo( :, 3,33,12) = (/&
 & 4.1081e+00_jprb,4.1061e+00_jprb,7.2154e+00_jprb,1.1795e+01_jprb,1.5670e+01_jprb,1.7617e+01_jprb/)  
kbo( :, 4,33,12) = (/&
 & 4.4244e+00_jprb,4.4223e+00_jprb,7.1305e+00_jprb,1.1413e+01_jprb,1.5196e+01_jprb,1.7282e+01_jprb/)  
kbo( :, 5,33,12) = (/&
 & 4.7677e+00_jprb,4.7653e+00_jprb,7.0542e+00_jprb,1.1036e+01_jprb,1.4698e+01_jprb,1.6888e+01_jprb/)  
kbo( :, 1,34,12) = (/&
 & 3.3521e+00_jprb,3.3507e+00_jprb,7.4128e+00_jprb,1.2559e+01_jprb,1.6734e+01_jprb,1.8506e+01_jprb/)  
kbo( :, 2,34,12) = (/&
 & 3.6291e+00_jprb,3.6275e+00_jprb,7.3128e+00_jprb,1.2232e+01_jprb,1.6317e+01_jprb,1.8280e+01_jprb/)  
kbo( :, 3,34,12) = (/&
 & 3.9317e+00_jprb,3.9298e+00_jprb,7.2212e+00_jprb,1.1872e+01_jprb,1.5854e+01_jprb,1.8005e+01_jprb/)  
kbo( :, 4,34,12) = (/&
 & 4.2593e+00_jprb,4.2572e+00_jprb,7.1423e+00_jprb,1.1481e+01_jprb,1.5360e+01_jprb,1.7643e+01_jprb/)  
kbo( :, 5,34,12) = (/&
 & 4.6153e+00_jprb,4.6130e+00_jprb,7.0650e+00_jprb,1.1105e+01_jprb,1.4842e+01_jprb,1.7226e+01_jprb/)  
kbo( :, 1,35,12) = (/&
 & 3.1598e+00_jprb,3.1585e+00_jprb,7.4142e+00_jprb,1.2657e+01_jprb,1.6945e+01_jprb,1.8872e+01_jprb/)  
kbo( :, 2,35,12) = (/&
 & 3.4442e+00_jprb,3.4427e+00_jprb,7.3257e+00_jprb,1.2327e+01_jprb,1.6516e+01_jprb,1.8673e+01_jprb/)  
kbo( :, 3,35,12) = (/&
 & 3.7587e+00_jprb,3.7569e+00_jprb,7.2409e+00_jprb,1.1960e+01_jprb,1.6036e+01_jprb,1.8373e+01_jprb/)  
kbo( :, 4,35,12) = (/&
 & 4.0964e+00_jprb,4.0944e+00_jprb,7.1633e+00_jprb,1.1567e+01_jprb,1.5526e+01_jprb,1.7979e+01_jprb/)  
kbo( :, 5,35,12) = (/&
 & 4.4686e+00_jprb,4.4663e+00_jprb,7.0860e+00_jprb,1.1190e+01_jprb,1.4992e+01_jprb,1.7544e+01_jprb/)  
kbo( :, 1,36,12) = (/&
 & 2.9654e+00_jprb,2.9641e+00_jprb,7.4313e+00_jprb,1.2766e+01_jprb,1.7160e+01_jprb,1.9227e+01_jprb/)  
kbo( :, 2,36,12) = (/&
 & 3.2570e+00_jprb,3.2555e+00_jprb,7.3495e+00_jprb,1.2436e+01_jprb,1.6723e+01_jprb,1.9033e+01_jprb/)  
kbo( :, 3,36,12) = (/&
 & 3.5797e+00_jprb,3.5780e+00_jprb,7.2711e+00_jprb,1.2069e+01_jprb,1.6233e+01_jprb,1.8715e+01_jprb/)  
kbo( :, 4,36,12) = (/&
 & 3.9316e+00_jprb,3.9297e+00_jprb,7.1919e+00_jprb,1.1675e+01_jprb,1.5711e+01_jprb,1.8314e+01_jprb/)  
kbo( :, 5,36,12) = (/&
 & 4.3127e+00_jprb,4.3105e+00_jprb,7.1101e+00_jprb,1.1293e+01_jprb,1.5166e+01_jprb,1.7865e+01_jprb/)  
kbo( :, 1,37,12) = (/&
 & 2.7533e+00_jprb,2.7522e+00_jprb,7.4577e+00_jprb,1.2906e+01_jprb,1.7405e+01_jprb,1.9546e+01_jprb/)  
kbo( :, 2,37,12) = (/&
 & 3.0486e+00_jprb,3.0472e+00_jprb,7.3839e+00_jprb,1.2582e+01_jprb,1.6967e+01_jprb,1.9367e+01_jprb/)  
kbo( :, 3,37,12) = (/&
 & 3.3772e+00_jprb,3.3756e+00_jprb,7.3093e+00_jprb,1.2218e+01_jprb,1.6476e+01_jprb,1.9050e+01_jprb/)  
kbo( :, 4,37,12) = (/&
 & 3.7381e+00_jprb,3.7362e+00_jprb,7.2303e+00_jprb,1.1826e+01_jprb,1.5946e+01_jprb,1.8659e+01_jprb/)  
kbo( :, 5,37,12) = (/&
 & 4.1246e+00_jprb,4.1225e+00_jprb,7.1455e+00_jprb,1.1440e+01_jprb,1.5395e+01_jprb,1.8212e+01_jprb/)  
kbo( :, 1,38,12) = (/&
 & 2.5620e+00_jprb,2.5610e+00_jprb,7.4808e+00_jprb,1.3030e+01_jprb,1.7619e+01_jprb,1.9841e+01_jprb/)  
kbo( :, 2,38,12) = (/&
 & 2.8608e+00_jprb,2.8595e+00_jprb,7.4174e+00_jprb,1.2714e+01_jprb,1.7188e+01_jprb,1.9683e+01_jprb/)  
kbo( :, 3,38,12) = (/&
 & 3.1956e+00_jprb,3.1942e+00_jprb,7.3440e+00_jprb,1.2353e+01_jprb,1.6696e+01_jprb,1.9369e+01_jprb/)  
kbo( :, 4,38,12) = (/&
 & 3.5649e+00_jprb,3.5631e+00_jprb,7.2670e+00_jprb,1.1965e+01_jprb,1.6163e+01_jprb,1.8994e+01_jprb/)  
kbo( :, 5,38,12) = (/&
 & 3.9585e+00_jprb,3.9565e+00_jprb,7.1817e+00_jprb,1.1573e+01_jprb,1.5604e+01_jprb,1.8550e+01_jprb/)  
kbo( :, 1,39,12) = (/&
 & 2.3896e+00_jprb,2.3887e+00_jprb,7.5031e+00_jprb,1.3145e+01_jprb,1.7806e+01_jprb,2.0123e+01_jprb/)  
kbo( :, 2,39,12) = (/&
 & 2.6949e+00_jprb,2.6937e+00_jprb,7.4455e+00_jprb,1.2830e+01_jprb,1.7380e+01_jprb,1.9979e+01_jprb/)  
kbo( :, 3,39,12) = (/&
 & 3.0362e+00_jprb,3.0348e+00_jprb,7.3756e+00_jprb,1.2474e+01_jprb,1.6890e+01_jprb,1.9683e+01_jprb/)  
kbo( :, 4,39,12) = (/&
 & 3.4116e+00_jprb,3.4099e+00_jprb,7.3010e+00_jprb,1.2089e+01_jprb,1.6357e+01_jprb,1.9331e+01_jprb/)  
kbo( :, 5,39,12) = (/&
 & 3.8125e+00_jprb,3.8105e+00_jprb,7.2161e+00_jprb,1.1695e+01_jprb,1.5793e+01_jprb,1.8893e+01_jprb/)  
kbo( :, 1,40,12) = (/&
 & 2.2084e+00_jprb,2.2076e+00_jprb,7.5257e+00_jprb,1.3272e+01_jprb,1.8011e+01_jprb,2.0327e+01_jprb/)  
kbo( :, 2,40,12) = (/&
 & 2.5142e+00_jprb,2.5132e+00_jprb,7.4776e+00_jprb,1.2969e+01_jprb,1.7599e+01_jprb,2.0223e+01_jprb/)  
kbo( :, 3,40,12) = (/&
 & 2.8571e+00_jprb,2.8558e+00_jprb,7.4104e+00_jprb,1.2622e+01_jprb,1.7115e+01_jprb,1.9951e+01_jprb/)  
kbo( :, 4,40,12) = (/&
 & 3.2355e+00_jprb,3.2339e+00_jprb,7.3412e+00_jprb,1.2241e+01_jprb,1.6586e+01_jprb,1.9625e+01_jprb/)  
kbo( :, 5,40,12) = (/&
 & 3.6402e+00_jprb,3.6383e+00_jprb,7.2559e+00_jprb,1.1846e+01_jprb,1.6023e+01_jprb,1.9193e+01_jprb/)  
kbo( :, 1,41,12) = (/&
 & 2.0392e+00_jprb,2.0384e+00_jprb,7.5497e+00_jprb,1.3388e+01_jprb,1.8196e+01_jprb,2.0499e+01_jprb/)  
kbo( :, 2,41,12) = (/&
 & 2.3453e+00_jprb,2.3444e+00_jprb,7.5055e+00_jprb,1.3103e+01_jprb,1.7800e+01_jprb,2.0441e+01_jprb/)  
kbo( :, 3,41,12) = (/&
 & 2.6889e+00_jprb,2.6876e+00_jprb,7.4442e+00_jprb,1.2764e+01_jprb,1.7330e+01_jprb,2.0201e+01_jprb/)  
kbo( :, 4,41,12) = (/&
 & 3.0674e+00_jprb,3.0659e+00_jprb,7.3773e+00_jprb,1.2388e+01_jprb,1.6806e+01_jprb,1.9901e+01_jprb/)  
kbo( :, 5,41,12) = (/&
 & 3.4739e+00_jprb,3.4722e+00_jprb,7.2932e+00_jprb,1.1996e+01_jprb,1.6248e+01_jprb,1.9478e+01_jprb/)  
kbo( :, 1,42,12) = (/&
 & 1.8842e+00_jprb,1.8835e+00_jprb,7.5738e+00_jprb,1.3492e+01_jprb,1.8356e+01_jprb,2.0651e+01_jprb/)  
kbo( :, 2,42,12) = (/&
 & 2.1916e+00_jprb,2.1907e+00_jprb,7.5284e+00_jprb,1.3224e+01_jprb,1.7982e+01_jprb,2.0639e+01_jprb/)  
kbo( :, 3,42,12) = (/&
 & 2.5344e+00_jprb,2.5332e+00_jprb,7.4756e+00_jprb,1.2895e+01_jprb,1.7528e+01_jprb,2.0438e+01_jprb/)  
kbo( :, 4,42,12) = (/&
 & 2.9115e+00_jprb,2.9101e+00_jprb,7.4107e+00_jprb,1.2526e+01_jprb,1.7014e+01_jprb,2.0170e+01_jprb/)  
kbo( :, 5,42,12) = (/&
 & 3.3176e+00_jprb,3.3160e+00_jprb,7.3300e+00_jprb,1.2138e+01_jprb,1.6460e+01_jprb,1.9759e+01_jprb/)  
kbo( :, 1,43,12) = (/&
 & 1.7267e+00_jprb,1.7260e+00_jprb,7.5950e+00_jprb,1.3597e+01_jprb,1.8513e+01_jprb,2.0770e+01_jprb/)  
kbo( :, 2,43,12) = (/&
 & 2.0318e+00_jprb,2.0310e+00_jprb,7.5508e+00_jprb,1.3350e+01_jprb,1.8172e+01_jprb,2.0815e+01_jprb/)  
kbo( :, 3,43,12) = (/&
 & 2.3711e+00_jprb,2.3700e+00_jprb,7.5067e+00_jprb,1.3037e+01_jprb,1.7739e+01_jprb,2.0667e+01_jprb/)  
kbo( :, 4,43,12) = (/&
 & 2.7430e+00_jprb,2.7417e+00_jprb,7.4433e+00_jprb,1.2679e+01_jprb,1.7236e+01_jprb,2.0434e+01_jprb/)  
kbo( :, 5,43,12) = (/&
 & 3.1470e+00_jprb,3.1454e+00_jprb,7.3686e+00_jprb,1.2292e+01_jprb,1.6691e+01_jprb,2.0048e+01_jprb/)  
kbo( :, 1,44,12) = (/&
 & 1.5761e+00_jprb,1.5756e+00_jprb,7.6126e+00_jprb,1.3691e+01_jprb,1.8648e+01_jprb,2.0862e+01_jprb/)  
kbo( :, 2,44,12) = (/&
 & 1.8753e+00_jprb,1.8746e+00_jprb,7.5725e+00_jprb,1.3468e+01_jprb,1.8351e+01_jprb,2.0968e+01_jprb/)  
kbo( :, 3,44,12) = (/&
 & 2.2096e+00_jprb,2.2086e+00_jprb,7.5342e+00_jprb,1.3177e+01_jprb,1.7945e+01_jprb,2.0887e+01_jprb/)  
kbo( :, 4,44,12) = (/&
 & 2.5754e+00_jprb,2.5742e+00_jprb,7.4767e+00_jprb,1.2832e+01_jprb,1.7460e+01_jprb,2.0692e+01_jprb/)  
kbo( :, 5,44,12) = (/&
 & 2.9738e+00_jprb,2.9723e+00_jprb,7.4066e+00_jprb,1.2450e+01_jprb,1.6925e+01_jprb,2.0342e+01_jprb/)  
kbo( :, 1,45,12) = (/&
 & 1.4392e+00_jprb,1.4387e+00_jprb,7.6289e+00_jprb,1.3769e+01_jprb,1.8760e+01_jprb,2.0935e+01_jprb/)  
kbo( :, 2,45,12) = (/&
 & 1.7286e+00_jprb,1.7279e+00_jprb,7.5921e+00_jprb,1.3574e+01_jprb,1.8509e+01_jprb,2.1105e+01_jprb/)  
kbo( :, 3,45,12) = (/&
 & 2.0581e+00_jprb,2.0572e+00_jprb,7.5558e+00_jprb,1.3307e+01_jprb,1.8131e+01_jprb,2.1101e+01_jprb/)  
kbo( :, 4,45,12) = (/&
 & 2.4180e+00_jprb,2.4169e+00_jprb,7.5062e+00_jprb,1.2976e+01_jprb,1.7672e+01_jprb,2.0953e+01_jprb/)  
kbo( :, 5,45,12) = (/&
 & 2.8084e+00_jprb,2.8070e+00_jprb,7.4420e+00_jprb,1.2604e+01_jprb,1.7149e+01_jprb,2.0640e+01_jprb/)  
kbo( :, 1,46,12) = (/&
 & 1.3097e+00_jprb,1.3093e+00_jprb,7.6423e+00_jprb,1.3829e+01_jprb,1.8849e+01_jprb,2.0974e+01_jprb/)  
kbo( :, 2,46,12) = (/&
 & 1.5854e+00_jprb,1.5848e+00_jprb,7.6098e+00_jprb,1.3672e+01_jprb,1.8651e+01_jprb,2.1212e+01_jprb/)  
kbo( :, 3,46,12) = (/&
 & 1.9071e+00_jprb,1.9063e+00_jprb,7.5745e+00_jprb,1.3430e+01_jprb,1.8314e+01_jprb,2.1300e+01_jprb/)  
kbo( :, 4,46,12) = (/&
 & 2.2598e+00_jprb,2.2588e+00_jprb,7.5350e+00_jprb,1.3119e+01_jprb,1.7880e+01_jprb,2.1201e+01_jprb/)  
kbo( :, 5,46,12) = (/&
 & 2.6412e+00_jprb,2.6399e+00_jprb,7.4731e+00_jprb,1.2761e+01_jprb,1.7374e+01_jprb,2.0932e+01_jprb/)  
kbo( :, 1,47,12) = (/&
 & 1.1830e+00_jprb,1.1826e+00_jprb,7.6481e+00_jprb,1.3869e+01_jprb,1.8908e+01_jprb,2.0951e+01_jprb/)  
kbo( :, 2,47,12) = (/&
 & 1.4407e+00_jprb,1.4402e+00_jprb,7.6261e+00_jprb,1.3765e+01_jprb,1.8775e+01_jprb,2.1251e+01_jprb/)  
kbo( :, 3,47,12) = (/&
 & 1.7493e+00_jprb,1.7485e+00_jprb,7.5928e+00_jprb,1.3553e+01_jprb,1.8492e+01_jprb,2.1457e+01_jprb/)  
kbo( :, 4,47,12) = (/&
 & 2.0941e+00_jprb,2.0931e+00_jprb,7.5591e+00_jprb,1.3267e+01_jprb,1.8091e+01_jprb,2.1416e+01_jprb/)  
kbo( :, 5,47,12) = (/&
 & 2.4666e+00_jprb,2.4654e+00_jprb,7.5056e+00_jprb,1.2925e+01_jprb,1.7610e+01_jprb,2.1209e+01_jprb/)  
kbo( :, 1,48,12) = (/&
 & 1.0695e+00_jprb,1.0692e+00_jprb,7.6498e+00_jprb,1.3881e+01_jprb,1.8927e+01_jprb,2.0896e+01_jprb/)  
kbo( :, 2,48,12) = (/&
 & 1.3081e+00_jprb,1.3076e+00_jprb,7.6404e+00_jprb,1.3836e+01_jprb,1.8873e+01_jprb,2.1276e+01_jprb/)  
kbo( :, 3,48,12) = (/&
 & 1.6006e+00_jprb,1.5999e+00_jprb,7.6097e+00_jprb,1.3659e+01_jprb,1.8647e+01_jprb,2.1600e+01_jprb/)  
kbo( :, 4,48,12) = (/&
 & 1.9354e+00_jprb,1.9345e+00_jprb,7.5773e+00_jprb,1.3403e+01_jprb,1.8286e+01_jprb,2.1634e+01_jprb/)  
kbo( :, 5,48,12) = (/&
 & 2.2984e+00_jprb,2.2973e+00_jprb,7.5353e+00_jprb,1.3082e+01_jprb,1.7836e+01_jprb,2.1486e+01_jprb/)  
kbo( :, 1,49,12) = (/&
 & 9.6483e-01_jprb,9.6464e-01_jprb,7.6392e+00_jprb,1.3864e+01_jprb,1.8901e+01_jprb,2.0809e+01_jprb/)  
kbo( :, 2,49,12) = (/&
 & 1.1880e+00_jprb,1.1876e+00_jprb,7.6494e+00_jprb,1.3882e+01_jprb,1.8939e+01_jprb,2.1303e+01_jprb/)  
kbo( :, 3,49,12) = (/&
 & 1.4610e+00_jprb,1.4604e+00_jprb,7.6246e+00_jprb,1.3753e+01_jprb,1.8773e+01_jprb,2.1746e+01_jprb/)  
kbo( :, 4,49,12) = (/&
 & 1.7825e+00_jprb,1.7817e+00_jprb,7.5952e+00_jprb,1.3527e+01_jprb,1.8464e+01_jprb,2.1864e+01_jprb/)  

IF (lhook) CALL dr_hook('RRTM_KGB4:PART30',1,zhook_handle)
END SUBROUTINE part30


SUBROUTINE part31

REAL(KIND=JPRB) :: ZHOOK_HANDLE
IF (lhook) CALL dr_hook('RRTM_KGB4:PART31',0,zhook_handle)


kbo( :, 5,49,12) = (/&
 & 2.1366e+00_jprb,2.1357e+00_jprb,7.5591e+00_jprb,1.3229e+01_jprb,1.8046e+01_jprb,2.1779e+01_jprb/)  
kbo( :, 1,50,12) = (/&
 & 8.7334e-01_jprb,8.7321e-01_jprb,7.6167e+00_jprb,1.3816e+01_jprb,1.8840e+01_jprb,2.0653e+01_jprb/)  
kbo( :, 2,50,12) = (/&
 & 1.0849e+00_jprb,1.0846e+00_jprb,7.6499e+00_jprb,1.3902e+01_jprb,1.8966e+01_jprb,2.1256e+01_jprb/)  
kbo( :, 3,50,12) = (/&
 & 1.3397e+00_jprb,1.3393e+00_jprb,7.6369e+00_jprb,1.3826e+01_jprb,1.8870e+01_jprb,2.1793e+01_jprb/)  
kbo( :, 4,50,12) = (/&
 & 1.6451e+00_jprb,1.6444e+00_jprb,7.6078e+00_jprb,1.3629e+01_jprb,1.8612e+01_jprb,2.2015e+01_jprb/)  
kbo( :, 5,50,12) = (/&
 & 1.9901e+00_jprb,1.9893e+00_jprb,7.5766e+00_jprb,1.3357e+01_jprb,1.8227e+01_jprb,2.2000e+01_jprb/)  
kbo( :, 1,51,12) = (/&
 & 7.9109e-01_jprb,7.9101e-01_jprb,7.5808e+00_jprb,1.3738e+01_jprb,1.8738e+01_jprb,2.0437e+01_jprb/)  
kbo( :, 2,51,12) = (/&
 & 9.9151e-01_jprb,9.9125e-01_jprb,7.6471e+00_jprb,1.3897e+01_jprb,1.8959e+01_jprb,2.1160e+01_jprb/)  
kbo( :, 3,51,12) = (/&
 & 1.2299e+00_jprb,1.2295e+00_jprb,7.6471e+00_jprb,1.3876e+01_jprb,1.8940e+01_jprb,2.1766e+01_jprb/)  
kbo( :, 4,51,12) = (/&
 & 1.5182e+00_jprb,1.5176e+00_jprb,7.6211e+00_jprb,1.3717e+01_jprb,1.8736e+01_jprb,2.2115e+01_jprb/)  
kbo( :, 5,51,12) = (/&
 & 1.8518e+00_jprb,1.8510e+00_jprb,7.5920e+00_jprb,1.3472e+01_jprb,1.8393e+01_jprb,2.2169e+01_jprb/)  
kbo( :, 1,52,12) = (/&
 & 7.1584e-01_jprb,7.1581e-01_jprb,7.5315e+00_jprb,1.3629e+01_jprb,1.8592e+01_jprb,2.0184e+01_jprb/)  
kbo( :, 2,52,12) = (/&
 & 9.0437e-01_jprb,9.0419e-01_jprb,7.6323e+00_jprb,1.3867e+01_jprb,1.8918e+01_jprb,2.1052e+01_jprb/)  
kbo( :, 3,52,12) = (/&
 & 1.1294e+00_jprb,1.1290e+00_jprb,7.6500e+00_jprb,1.3907e+01_jprb,1.8982e+01_jprb,2.1738e+01_jprb/)  
kbo( :, 4,52,12) = (/&
 & 1.3999e+00_jprb,1.3994e+00_jprb,7.6316e+00_jprb,1.3795e+01_jprb,1.8838e+01_jprb,2.2212e+01_jprb/)  
kbo( :, 5,52,12) = (/&
 & 1.7187e+00_jprb,1.7179e+00_jprb,7.6040e+00_jprb,1.3576e+01_jprb,1.8542e+01_jprb,2.2347e+01_jprb/)  
kbo( :, 1,53,12) = (/&
 & 6.4519e-01_jprb,6.4525e-01_jprb,7.4665e+00_jprb,1.3494e+01_jprb,1.8401e+01_jprb,1.9906e+01_jprb/)  
kbo( :, 2,53,12) = (/&
 & 8.2291e-01_jprb,8.2276e-01_jprb,7.6064e+00_jprb,1.3809e+01_jprb,1.8841e+01_jprb,2.0928e+01_jprb/)  
kbo( :, 3,53,12) = (/&
 & 1.0366e+00_jprb,1.0363e+00_jprb,7.6500e+00_jprb,1.3915e+01_jprb,1.8993e+01_jprb,2.1723e+01_jprb/)  
kbo( :, 4,53,12) = (/&
 & 1.2893e+00_jprb,1.2888e+00_jprb,7.6422e+00_jprb,1.3856e+01_jprb,1.8918e+01_jprb,2.2328e+01_jprb/)  
kbo( :, 5,53,12) = (/&
 & 1.5912e+00_jprb,1.5905e+00_jprb,7.6165e+00_jprb,1.3669e+01_jprb,1.8674e+01_jprb,2.2548e+01_jprb/)  
kbo( :, 1,54,12) = (/&
 & 5.8435e-01_jprb,5.8444e-01_jprb,7.3907e+00_jprb,1.3327e+01_jprb,1.8178e+01_jprb,1.9515e+01_jprb/)  
kbo( :, 2,54,12) = (/&
 & 7.5368e-01_jprb,7.5356e-01_jprb,7.5705e+00_jprb,1.3729e+01_jprb,1.8734e+01_jprb,2.0634e+01_jprb/)  
kbo( :, 3,54,12) = (/&
 & 9.5607e-01_jprb,9.5580e-01_jprb,7.6449e+00_jprb,1.3905e+01_jprb,1.8977e+01_jprb,2.1497e+01_jprb/)  
kbo( :, 4,54,12) = (/&
 & 1.1937e+00_jprb,1.1933e+00_jprb,7.6499e+00_jprb,1.3896e+01_jprb,1.8973e+01_jprb,2.2212e+01_jprb/)  
kbo( :, 5,54,12) = (/&
 & 1.4797e+00_jprb,1.4791e+00_jprb,7.6261e+00_jprb,1.3745e+01_jprb,1.8779e+01_jprb,2.2527e+01_jprb/)  
kbo( :, 1,55,12) = (/&
 & 5.2854e-01_jprb,5.2867e-01_jprb,7.3044e+00_jprb,1.3131e+01_jprb,1.7924e+01_jprb,1.9047e+01_jprb/)  
kbo( :, 2,55,12) = (/&
 & 6.9118e-01_jprb,6.9109e-01_jprb,7.5254e+00_jprb,1.3628e+01_jprb,1.8597e+01_jprb,2.0249e+01_jprb/)  
kbo( :, 3,55,12) = (/&
 & 8.8293e-01_jprb,8.8272e-01_jprb,7.6307e+00_jprb,1.3873e+01_jprb,1.8933e+01_jprb,2.1158e+01_jprb/)  
kbo( :, 4,55,12) = (/&
 & 1.1091e+00_jprb,1.1087e+00_jprb,7.6507e+00_jprb,1.3919e+01_jprb,1.9002e+01_jprb,2.1900e+01_jprb/)  
kbo( :, 5,55,12) = (/&
 & 1.3791e+00_jprb,1.3786e+00_jprb,7.6348e+00_jprb,1.3810e+01_jprb,1.8863e+01_jprb,2.2367e+01_jprb/)  
kbo( :, 1,56,12) = (/&
 & 4.7560e-01_jprb,4.7583e-01_jprb,7.2007e+00_jprb,1.2908e+01_jprb,1.7624e+01_jprb,1.8559e+01_jprb/)  
kbo( :, 2,56,12) = (/&
 & 6.3205e-01_jprb,6.3206e-01_jprb,7.4679e+00_jprb,1.3507e+01_jprb,1.8426e+01_jprb,1.9860e+01_jprb/)  
kbo( :, 3,56,12) = (/&
 & 8.1360e-01_jprb,8.1344e-01_jprb,7.6074e+00_jprb,1.3821e+01_jprb,1.8863e+01_jprb,2.0825e+01_jprb/)  
kbo( :, 4,56,12) = (/&
 & 1.0301e+00_jprb,1.0298e+00_jprb,7.6506e+00_jprb,1.3924e+01_jprb,1.9011e+01_jprb,2.1557e+01_jprb/)  
kbo( :, 5,56,12) = (/&
 & 1.2841e+00_jprb,1.2836e+00_jprb,7.6437e+00_jprb,1.3864e+01_jprb,1.8933e+01_jprb,2.2162e+01_jprb/)  
kbo( :, 1,57,12) = (/&
 & 4.2603e-01_jprb,4.2637e-01_jprb,7.0800e+00_jprb,1.2651e+01_jprb,1.7279e+01_jprb,1.8044e+01_jprb/)  
kbo( :, 2,57,12) = (/&
 & 5.7620e-01_jprb,5.7623e-01_jprb,7.3960e+00_jprb,1.3349e+01_jprb,1.8215e+01_jprb,1.9448e+01_jprb/)  
kbo( :, 3,57,12) = (/&
 & 7.4950e-01_jprb,7.4937e-01_jprb,7.5736e+00_jprb,1.3745e+01_jprb,1.8761e+01_jprb,2.0480e+01_jprb/)  
kbo( :, 4,57,12) = (/&
 & 9.5476e-01_jprb,9.5448e-01_jprb,7.6455e+00_jprb,1.3913e+01_jprb,1.8993e+01_jprb,2.1239e+01_jprb/)  
kbo( :, 5,57,12) = (/&
 & 1.1947e+00_jprb,1.1943e+00_jprb,7.6507e+00_jprb,1.3900e+01_jprb,1.8982e+01_jprb,2.1879e+01_jprb/)  
kbo( :, 1,58,12) = (/&
 & 3.8222e-01_jprb,3.8258e-01_jprb,6.9487e+00_jprb,1.2376e+01_jprb,1.6911e+01_jprb,1.7525e+01_jprb/)  
kbo( :, 2,58,12) = (/&
 & 5.2528e-01_jprb,5.2538e-01_jprb,7.3177e+00_jprb,1.3169e+01_jprb,1.7977e+01_jprb,1.9013e+01_jprb/)  
kbo( :, 3,58,12) = (/&
 & 6.9186e-01_jprb,6.9176e-01_jprb,7.5326e+00_jprb,1.3651e+01_jprb,1.8633e+01_jprb,2.0139e+01_jprb/)  
kbo( :, 4,58,12) = (/&
 & 8.8662e-01_jprb,8.8639e-01_jprb,7.6334e+00_jprb,1.3885e+01_jprb,1.8953e+01_jprb,2.0942e+01_jprb/)  
kbo( :, 5,58,12) = (/&
 & 1.1152e+00_jprb,1.1149e+00_jprb,7.6513e+00_jprb,1.3923e+01_jprb,1.9012e+01_jprb,2.1525e+01_jprb/)  
kbo( :, 1,59,12) = (/&
 & 3.6401e-01_jprb,3.6437e-01_jprb,6.8886e+00_jprb,1.2256e+01_jprb,1.6751e+01_jprb,1.7277e+01_jprb/)  
kbo( :, 2,59,12) = (/&
 & 5.0412e-01_jprb,5.0423e-01_jprb,7.2807e+00_jprb,1.3088e+01_jprb,1.7871e+01_jprb,1.8767e+01_jprb/)  
kbo( :, 3,59,12) = (/&
 & 6.6841e-01_jprb,6.6833e-01_jprb,7.5138e+00_jprb,1.3610e+01_jprb,1.8575e+01_jprb,1.9865e+01_jprb/)  
kbo( :, 4,59,12) = (/&
 & 8.5925e-01_jprb,8.5905e-01_jprb,7.6263e+00_jprb,1.3870e+01_jprb,1.8932e+01_jprb,2.0637e+01_jprb/)  
kbo( :, 5,59,12) = (/&
 & 1.0843e+00_jprb,1.0840e+00_jprb,7.6509e+00_jprb,1.3928e+01_jprb,1.9019e+01_jprb,2.1126e+01_jprb/)  
kbo( :, 1,13,13) = (/&
 & 2.1392e+01_jprb,2.1380e+01_jprb,1.6377e+01_jprb,1.1373e+01_jprb,6.6382e+00_jprb,5.4072e+00_jprb/)  
kbo( :, 2,13,13) = (/&
 & 2.0984e+01_jprb,2.0973e+01_jprb,1.6065e+01_jprb,1.1155e+01_jprb,6.4809e+00_jprb,5.2816e+00_jprb/)  
kbo( :, 3,13,13) = (/&
 & 2.0571e+01_jprb,2.0560e+01_jprb,1.5742e+01_jprb,1.0918e+01_jprb,6.3142e+00_jprb,5.1399e+00_jprb/)  
kbo( :, 4,13,13) = (/&
 & 2.0116e+01_jprb,2.0104e+01_jprb,1.5385e+01_jprb,1.0661e+01_jprb,6.1353e+00_jprb,5.0342e+00_jprb/)  
kbo( :, 5,13,13) = (/&
 & 1.9665e+01_jprb,1.9654e+01_jprb,1.5041e+01_jprb,1.0410e+01_jprb,5.9659e+00_jprb,5.1046e+00_jprb/)  
kbo( :, 1,14,13) = (/&
 & 2.2611e+01_jprb,2.2598e+01_jprb,1.7286e+01_jprb,1.1979e+01_jprb,6.9848e+00_jprb,5.8003e+00_jprb/)  
kbo( :, 2,14,13) = (/&
 & 2.2235e+01_jprb,2.2222e+01_jprb,1.6999e+01_jprb,1.1763e+01_jprb,6.8307e+00_jprb,5.6143e+00_jprb/)  
kbo( :, 3,14,13) = (/&
 & 2.1845e+01_jprb,2.1832e+01_jprb,1.6684e+01_jprb,1.1532e+01_jprb,6.6725e+00_jprb,5.4768e+00_jprb/)  
kbo( :, 4,14,13) = (/&
 & 2.1455e+01_jprb,2.1442e+01_jprb,1.6377e+01_jprb,1.1313e+01_jprb,6.5206e+00_jprb,5.3624e+00_jprb/)  
kbo( :, 5,14,13) = (/&
 & 2.1081e+01_jprb,2.1069e+01_jprb,1.6078e+01_jprb,1.1090e+01_jprb,6.3823e+00_jprb,5.2307e+00_jprb/)  
kbo( :, 1,15,13) = (/&
 & 2.4085e+01_jprb,2.4071e+01_jprb,1.8394e+01_jprb,1.2709e+01_jprb,7.4960e+00_jprb,6.3317e+00_jprb/)  
kbo( :, 2,15,13) = (/&
 & 2.3744e+01_jprb,2.3731e+01_jprb,1.8118e+01_jprb,1.2499e+01_jprb,7.3422e+00_jprb,6.1431e+00_jprb/)  
kbo( :, 3,15,13) = (/&
 & 2.3384e+01_jprb,2.3371e+01_jprb,1.7836e+01_jprb,1.2301e+01_jprb,7.1895e+00_jprb,5.9905e+00_jprb/)  
kbo( :, 4,15,13) = (/&
 & 2.3079e+01_jprb,2.3065e+01_jprb,1.7598e+01_jprb,1.2125e+01_jprb,7.0485e+00_jprb,5.8455e+00_jprb/)  
kbo( :, 5,15,13) = (/&
 & 2.2790e+01_jprb,2.2777e+01_jprb,1.7354e+01_jprb,1.1938e+01_jprb,6.8999e+00_jprb,5.7410e+00_jprb/)  
kbo( :, 1,16,13) = (/&
 & 2.5695e+01_jprb,2.5680e+01_jprb,1.9581e+01_jprb,1.3479e+01_jprb,8.1349e+00_jprb,7.0625e+00_jprb/)  
kbo( :, 2,16,13) = (/&
 & 2.5421e+01_jprb,2.5406e+01_jprb,1.9374e+01_jprb,1.3336e+01_jprb,7.9760e+00_jprb,6.8886e+00_jprb/)  
kbo( :, 3,16,13) = (/&
 & 2.5170e+01_jprb,2.5155e+01_jprb,1.9169e+01_jprb,1.3185e+01_jprb,7.8208e+00_jprb,6.7331e+00_jprb/)  
kbo( :, 4,16,13) = (/&
 & 2.4917e+01_jprb,2.4902e+01_jprb,1.8958e+01_jprb,1.3021e+01_jprb,7.6613e+00_jprb,6.5695e+00_jprb/)  
kbo( :, 5,16,13) = (/&
 & 2.4671e+01_jprb,2.4656e+01_jprb,1.8755e+01_jprb,1.2857e+01_jprb,7.5038e+00_jprb,6.4414e+00_jprb/)  
kbo( :, 1,17,13) = (/&
 & 2.7485e+01_jprb,2.7469e+01_jprb,2.0920e+01_jprb,1.4359e+01_jprb,8.8403e+00_jprb,7.9625e+00_jprb/)  
kbo( :, 2,17,13) = (/&
 & 2.7261e+01_jprb,2.7245e+01_jprb,2.0734e+01_jprb,1.4221e+01_jprb,8.6752e+00_jprb,7.7696e+00_jprb/)  
kbo( :, 3,17,13) = (/&
 & 2.7019e+01_jprb,2.7003e+01_jprb,2.0538e+01_jprb,1.4067e+01_jprb,8.5095e+00_jprb,7.5869e+00_jprb/)  
kbo( :, 4,17,13) = (/&
 & 2.6774e+01_jprb,2.6758e+01_jprb,2.0340e+01_jprb,1.3916e+01_jprb,8.3433e+00_jprb,7.4093e+00_jprb/)  
kbo( :, 5,17,13) = (/&
 & 2.6489e+01_jprb,2.6473e+01_jprb,2.0113e+01_jprb,1.3747e+01_jprb,8.1757e+00_jprb,7.2580e+00_jprb/)  
kbo( :, 1,18,13) = (/&
 & 2.9073e+01_jprb,2.9056e+01_jprb,2.2090e+01_jprb,1.5130e+01_jprb,9.6108e+00_jprb,8.9667e+00_jprb/)  
kbo( :, 2,18,13) = (/&
 & 2.8847e+01_jprb,2.8830e+01_jprb,2.1906e+01_jprb,1.4984e+01_jprb,9.4415e+00_jprb,8.7341e+00_jprb/)  
kbo( :, 3,18,13) = (/&
 & 2.8614e+01_jprb,2.8597e+01_jprb,2.1721e+01_jprb,1.4840e+01_jprb,9.2727e+00_jprb,8.5308e+00_jprb/)  
kbo( :, 4,18,13) = (/&
 & 2.8333e+01_jprb,2.8317e+01_jprb,2.1498e+01_jprb,1.4677e+01_jprb,9.0956e+00_jprb,8.3322e+00_jprb/)  
kbo( :, 5,18,13) = (/&
 & 2.8019e+01_jprb,2.8003e+01_jprb,2.1254e+01_jprb,1.4499e+01_jprb,8.9142e+00_jprb,8.1468e+00_jprb/)  
kbo( :, 1,19,13) = (/&
 & 3.0315e+01_jprb,3.0297e+01_jprb,2.3006e+01_jprb,1.5724e+01_jprb,1.0512e+01_jprb,1.0019e+01_jprb/)  
kbo( :, 2,19,13) = (/&
 & 3.0061e+01_jprb,3.0044e+01_jprb,2.2808e+01_jprb,1.5577e+01_jprb,1.0342e+01_jprb,9.7644e+00_jprb/)  
kbo( :, 3,19,13) = (/&
 & 2.9787e+01_jprb,2.9769e+01_jprb,2.2595e+01_jprb,1.5419e+01_jprb,1.0163e+01_jprb,9.5327e+00_jprb/)  
kbo( :, 4,19,13) = (/&
 & 2.9464e+01_jprb,2.9447e+01_jprb,2.2343e+01_jprb,1.5239e+01_jprb,9.9795e+00_jprb,9.3290e+00_jprb/)  
kbo( :, 5,19,13) = (/&
 & 2.9104e+01_jprb,2.9087e+01_jprb,2.2065e+01_jprb,1.5039e+01_jprb,9.7881e+00_jprb,9.1292e+00_jprb/)  
kbo( :, 1,20,13) = (/&
 & 3.1036e+01_jprb,3.1018e+01_jprb,2.3548e+01_jprb,1.6113e+01_jprb,1.1579e+01_jprb,1.1154e+01_jprb/)  
kbo( :, 2,20,13) = (/&
 & 3.0755e+01_jprb,3.0737e+01_jprb,2.3334e+01_jprb,1.5957e+01_jprb,1.1393e+01_jprb,1.0893e+01_jprb/)  
kbo( :, 3,20,13) = (/&
 & 3.0452e+01_jprb,3.0434e+01_jprb,2.3095e+01_jprb,1.5780e+01_jprb,1.1192e+01_jprb,1.0651e+01_jprb/)  
kbo( :, 4,20,13) = (/&
 & 3.0086e+01_jprb,3.0068e+01_jprb,2.2811e+01_jprb,1.5577e+01_jprb,1.0976e+01_jprb,1.0441e+01_jprb/)  
kbo( :, 5,20,13) = (/&
 & 2.9696e+01_jprb,2.9679e+01_jprb,2.2510e+01_jprb,1.5363e+01_jprb,1.0748e+01_jprb,1.0213e+01_jprb/)  
kbo( :, 1,21,13) = (/&
 & 3.1144e+01_jprb,3.1126e+01_jprb,2.3635e+01_jprb,1.6360e+01_jprb,1.2781e+01_jprb,1.2415e+01_jprb/)  
kbo( :, 2,21,13) = (/&
 & 3.0844e+01_jprb,3.0826e+01_jprb,2.3403e+01_jprb,1.6172e+01_jprb,1.2549e+01_jprb,1.2147e+01_jprb/)  
kbo( :, 3,21,13) = (/&
 & 3.0498e+01_jprb,3.0480e+01_jprb,2.3133e+01_jprb,1.5960e+01_jprb,1.2302e+01_jprb,1.1885e+01_jprb/)  
kbo( :, 4,21,13) = (/&
 & 3.0111e+01_jprb,3.0093e+01_jprb,2.2836e+01_jprb,1.5742e+01_jprb,1.2041e+01_jprb,1.1642e+01_jprb/)  
kbo( :, 5,21,13) = (/&
 & 2.9700e+01_jprb,2.9683e+01_jprb,2.2517e+01_jprb,1.5496e+01_jprb,1.1766e+01_jprb,1.1381e+01_jprb/)  
kbo( :, 1,22,13) = (/&
 & 3.0579e+01_jprb,3.0561e+01_jprb,2.3219e+01_jprb,1.6510e+01_jprb,1.4016e+01_jprb,1.3791e+01_jprb/)  
kbo( :, 2,22,13) = (/&
 & 3.0252e+01_jprb,3.0234e+01_jprb,2.2968e+01_jprb,1.6283e+01_jprb,1.3741e+01_jprb,1.3488e+01_jprb/)  
kbo( :, 3,22,13) = (/&
 & 2.9906e+01_jprb,2.9889e+01_jprb,2.2700e+01_jprb,1.6051e+01_jprb,1.3445e+01_jprb,1.3187e+01_jprb/)  
kbo( :, 4,22,13) = (/&
 & 2.9523e+01_jprb,2.9506e+01_jprb,2.2405e+01_jprb,1.5794e+01_jprb,1.3135e+01_jprb,1.2905e+01_jprb/)  
kbo( :, 5,22,13) = (/&
 & 2.9116e+01_jprb,2.9100e+01_jprb,2.2090e+01_jprb,1.5521e+01_jprb,1.2819e+01_jprb,1.2597e+01_jprb/)  
kbo( :, 1,23,13) = (/&
 & 2.9397e+01_jprb,2.9380e+01_jprb,2.2345e+01_jprb,1.6640e+01_jprb,1.5241e+01_jprb,1.5271e+01_jprb/)  
kbo( :, 2,23,13) = (/&
 & 2.9096e+01_jprb,2.9079e+01_jprb,2.2113e+01_jprb,1.6382e+01_jprb,1.4921e+01_jprb,1.4908e+01_jprb/)  
kbo( :, 3,23,13) = (/&
 & 2.8759e+01_jprb,2.8742e+01_jprb,2.1850e+01_jprb,1.6098e+01_jprb,1.4591e+01_jprb,1.4553e+01_jprb/)  
kbo( :, 4,23,13) = (/&
 & 2.8405e+01_jprb,2.8388e+01_jprb,2.1576e+01_jprb,1.5810e+01_jprb,1.4244e+01_jprb,1.4213e+01_jprb/)  
kbo( :, 5,23,13) = (/&
 & 2.8010e+01_jprb,2.7994e+01_jprb,2.1268e+01_jprb,1.5508e+01_jprb,1.3883e+01_jprb,1.3842e+01_jprb/)  
kbo( :, 1,24,13) = (/&
 & 2.7736e+01_jprb,2.7720e+01_jprb,2.1114e+01_jprb,1.6904e+01_jprb,1.6493e+01_jprb,1.6795e+01_jprb/)  
kbo( :, 2,24,13) = (/&
 & 2.7462e+01_jprb,2.7446e+01_jprb,2.0900e+01_jprb,1.6582e+01_jprb,1.6130e+01_jprb,1.6394e+01_jprb/)  
kbo( :, 3,24,13) = (/&
 & 2.7151e+01_jprb,2.7136e+01_jprb,2.0660e+01_jprb,1.6247e+01_jprb,1.5745e+01_jprb,1.5974e+01_jprb/)  
kbo( :, 4,24,13) = (/&
 & 2.6831e+01_jprb,2.6816e+01_jprb,2.0409e+01_jprb,1.5908e+01_jprb,1.5345e+01_jprb,1.5569e+01_jprb/)  
kbo( :, 5,24,13) = (/&
 & 2.6459e+01_jprb,2.6444e+01_jprb,2.0122e+01_jprb,1.5560e+01_jprb,1.4934e+01_jprb,1.5132e+01_jprb/)  
kbo( :, 1,25,13) = (/&
 & 2.5741e+01_jprb,2.5726e+01_jprb,1.9691e+01_jprb,1.7263e+01_jprb,1.7747e+01_jprb,1.8359e+01_jprb/)  
kbo( :, 2,25,13) = (/&
 & 2.5497e+01_jprb,2.5482e+01_jprb,1.9486e+01_jprb,1.6895e+01_jprb,1.7326e+01_jprb,1.7886e+01_jprb/)  
kbo( :, 3,25,13) = (/&
 & 2.5241e+01_jprb,2.5227e+01_jprb,1.9275e+01_jprb,1.6517e+01_jprb,1.6889e+01_jprb,1.7399e+01_jprb/)  
kbo( :, 4,25,13) = (/&
 & 2.4941e+01_jprb,2.4927e+01_jprb,1.9033e+01_jprb,1.6125e+01_jprb,1.6436e+01_jprb,1.6925e+01_jprb/)  
kbo( :, 5,25,13) = (/&
 & 2.4625e+01_jprb,2.4611e+01_jprb,1.8780e+01_jprb,1.5723e+01_jprb,1.5971e+01_jprb,1.6420e+01_jprb/)  
kbo( :, 1,26,13) = (/&
 & 2.3543e+01_jprb,2.3530e+01_jprb,1.8282e+01_jprb,1.7640e+01_jprb,1.9000e+01_jprb,1.9879e+01_jprb/)  
kbo( :, 2,26,13) = (/&
 & 2.3344e+01_jprb,2.3330e+01_jprb,1.8083e+01_jprb,1.7232e+01_jprb,1.8508e+01_jprb,1.9336e+01_jprb/)  
kbo( :, 3,26,13) = (/&
 & 2.3131e+01_jprb,2.3118e+01_jprb,1.7881e+01_jprb,1.6809e+01_jprb,1.8012e+01_jprb,1.8780e+01_jprb/)  
kbo( :, 4,26,13) = (/&
 & 2.2891e+01_jprb,2.2878e+01_jprb,1.7660e+01_jprb,1.6381e+01_jprb,1.7496e+01_jprb,1.8235e+01_jprb/)  
kbo( :, 5,26,13) = (/&
 & 2.2635e+01_jprb,2.2623e+01_jprb,1.7424e+01_jprb,1.5941e+01_jprb,1.6965e+01_jprb,1.7649e+01_jprb/)  
kbo( :, 1,27,13) = (/&
 & 2.1263e+01_jprb,2.1251e+01_jprb,1.6999e+01_jprb,1.8073e+01_jprb,2.0218e+01_jprb,2.1326e+01_jprb/)  
kbo( :, 2,27,13) = (/&
 & 2.1130e+01_jprb,2.1118e+01_jprb,1.6805e+01_jprb,1.7603e+01_jprb,1.9655e+01_jprb,2.0714e+01_jprb/)  
kbo( :, 3,27,13) = (/&
 & 2.0964e+01_jprb,2.0953e+01_jprb,1.6591e+01_jprb,1.7141e+01_jprb,1.9068e+01_jprb,2.0084e+01_jprb/)  
kbo( :, 4,27,13) = (/&
 & 2.0811e+01_jprb,2.0800e+01_jprb,1.6383e+01_jprb,1.6665e+01_jprb,1.8477e+01_jprb,1.9460e+01_jprb/)  
kbo( :, 5,27,13) = (/&
 & 2.0671e+01_jprb,2.0659e+01_jprb,1.6163e+01_jprb,1.6182e+01_jprb,1.7875e+01_jprb,1.8801e+01_jprb/)  
kbo( :, 1,28,13) = (/&
 & 1.9006e+01_jprb,1.8995e+01_jprb,1.5933e+01_jprb,1.8511e+01_jprb,2.1355e+01_jprb,2.2683e+01_jprb/)  
kbo( :, 2,28,13) = (/&
 & 1.8934e+01_jprb,1.8923e+01_jprb,1.5716e+01_jprb,1.8009e+01_jprb,2.0708e+01_jprb,2.1993e+01_jprb/)  
kbo( :, 3,28,13) = (/&
 & 1.8875e+01_jprb,1.8864e+01_jprb,1.5505e+01_jprb,1.7487e+01_jprb,2.0041e+01_jprb,2.1291e+01_jprb/)  
kbo( :, 4,28,13) = (/&
 & 1.8867e+01_jprb,1.8856e+01_jprb,1.5292e+01_jprb,1.6969e+01_jprb,1.9370e+01_jprb,2.0578e+01_jprb/)  
kbo( :, 5,28,13) = (/&
 & 1.8926e+01_jprb,1.8916e+01_jprb,1.5114e+01_jprb,1.6444e+01_jprb,1.8700e+01_jprb,1.9834e+01_jprb/)  
kbo( :, 1,29,13) = (/&
 & 1.6866e+01_jprb,1.6856e+01_jprb,1.5090e+01_jprb,1.8932e+01_jprb,2.2378e+01_jprb,2.3900e+01_jprb/)  
kbo( :, 2,29,13) = (/&
 & 1.6895e+01_jprb,1.6885e+01_jprb,1.4848e+01_jprb,1.8394e+01_jprb,2.1642e+01_jprb,2.3131e+01_jprb/)  
kbo( :, 3,29,13) = (/&
 & 1.7005e+01_jprb,1.6996e+01_jprb,1.4617e+01_jprb,1.7836e+01_jprb,2.0899e+01_jprb,2.2368e+01_jprb/)  
kbo( :, 4,29,13) = (/&
 & 1.7186e+01_jprb,1.7177e+01_jprb,1.4419e+01_jprb,1.7274e+01_jprb,2.0148e+01_jprb,2.1559e+01_jprb/)  
kbo( :, 5,29,13) = (/&
 & 1.7419e+01_jprb,1.7409e+01_jprb,1.4291e+01_jprb,1.6708e+01_jprb,1.9414e+01_jprb,2.0739e+01_jprb/)  
kbo( :, 1,30,13) = (/&
 & 1.4953e+01_jprb,1.4945e+01_jprb,1.4448e+01_jprb,1.9321e+01_jprb,2.3266e+01_jprb,2.4961e+01_jprb/)  
kbo( :, 2,30,13) = (/&
 & 1.5147e+01_jprb,1.5138e+01_jprb,1.4172e+01_jprb,1.8728e+01_jprb,2.2451e+01_jprb,2.4136e+01_jprb/)  
kbo( :, 3,30,13) = (/&
 & 1.5423e+01_jprb,1.5415e+01_jprb,1.3932e+01_jprb,1.8138e+01_jprb,2.1636e+01_jprb,2.3296e+01_jprb/)  
kbo( :, 4,30,13) = (/&
 & 1.5783e+01_jprb,1.5774e+01_jprb,1.3754e+01_jprb,1.7532e+01_jprb,2.0815e+01_jprb,2.2402e+01_jprb/)  
kbo( :, 5,30,13) = (/&
 & 1.6221e+01_jprb,1.6212e+01_jprb,1.3682e+01_jprb,1.6932e+01_jprb,2.0014e+01_jprb,2.1530e+01_jprb/)  
kbo( :, 1,31,13) = (/&
 & 1.3343e+01_jprb,1.3335e+01_jprb,1.3979e+01_jprb,1.9651e+01_jprb,2.4006e+01_jprb,2.5869e+01_jprb/)  
kbo( :, 2,31,13) = (/&
 & 1.3698e+01_jprb,1.3690e+01_jprb,1.3675e+01_jprb,1.9009e+01_jprb,2.3133e+01_jprb,2.5002e+01_jprb/)  
kbo( :, 3,31,13) = (/&
 & 1.4163e+01_jprb,1.4155e+01_jprb,1.3429e+01_jprb,1.8375e+01_jprb,2.2243e+01_jprb,2.4068e+01_jprb/)  
kbo( :, 4,31,13) = (/&
 & 1.4712e+01_jprb,1.4703e+01_jprb,1.3295e+01_jprb,1.7748e+01_jprb,2.1362e+01_jprb,2.3103e+01_jprb/)  

IF (lhook) CALL dr_hook('RRTM_KGB4:PART31',1,zhook_handle)
END SUBROUTINE part31


SUBROUTINE part32

REAL(KIND=JPRB) :: ZHOOK_HANDLE
IF (lhook) CALL dr_hook('RRTM_KGB4:PART32',0,zhook_handle)


kbo( :, 5,31,13) = (/&
 & 1.5311e+01_jprb,1.5303e+01_jprb,1.3250e+01_jprb,1.7114e+01_jprb,2.0500e+01_jprb,2.2261e+01_jprb/)  
kbo( :, 1,32,13) = (/&
 & 1.2052e+01_jprb,1.2045e+01_jprb,1.3628e+01_jprb,1.9911e+01_jprb,2.4618e+01_jprb,2.6646e+01_jprb/)  
kbo( :, 2,32,13) = (/&
 & 1.2587e+01_jprb,1.2580e+01_jprb,1.3324e+01_jprb,1.9233e+01_jprb,2.3679e+01_jprb,2.5689e+01_jprb/)  
kbo( :, 3,32,13) = (/&
 & 1.3218e+01_jprb,1.3210e+01_jprb,1.3094e+01_jprb,1.8557e+01_jprb,2.2722e+01_jprb,2.4678e+01_jprb/)  
kbo( :, 4,32,13) = (/&
 & 1.3914e+01_jprb,1.3907e+01_jprb,1.2978e+01_jprb,1.7906e+01_jprb,2.1782e+01_jprb,2.3743e+01_jprb/)  
kbo( :, 5,32,13) = (/&
 & 1.4655e+01_jprb,1.4646e+01_jprb,1.2957e+01_jprb,1.7249e+01_jprb,2.0874e+01_jprb,2.2925e+01_jprb/)  
kbo( :, 1,33,13) = (/&
 & 1.1069e+01_jprb,1.1063e+01_jprb,1.3365e+01_jprb,2.0106e+01_jprb,2.5097e+01_jprb,2.7267e+01_jprb/)  
kbo( :, 2,33,13) = (/&
 & 1.1756e+01_jprb,1.1750e+01_jprb,1.3070e+01_jprb,1.9396e+01_jprb,2.4095e+01_jprb,2.6242e+01_jprb/)  
kbo( :, 3,33,13) = (/&
 & 1.2532e+01_jprb,1.2525e+01_jprb,1.2868e+01_jprb,1.8687e+01_jprb,2.3087e+01_jprb,2.5240e+01_jprb/)  
kbo( :, 4,33,13) = (/&
 & 1.3360e+01_jprb,1.3352e+01_jprb,1.2765e+01_jprb,1.8010e+01_jprb,2.2099e+01_jprb,2.4405e+01_jprb/)  
kbo( :, 5,33,13) = (/&
 & 1.4221e+01_jprb,1.4213e+01_jprb,1.2776e+01_jprb,1.7337e+01_jprb,2.1144e+01_jprb,2.3571e+01_jprb/)  
kbo( :, 1,34,13) = (/&
 & 1.0330e+01_jprb,1.0325e+01_jprb,1.3170e+01_jprb,2.0275e+01_jprb,2.5492e+01_jprb,2.7791e+01_jprb/)  
kbo( :, 2,34,13) = (/&
 & 1.1144e+01_jprb,1.1137e+01_jprb,1.2897e+01_jprb,1.9532e+01_jprb,2.4430e+01_jprb,2.6740e+01_jprb/)  
kbo( :, 3,34,13) = (/&
 & 1.2039e+01_jprb,1.2032e+01_jprb,1.2723e+01_jprb,1.8800e+01_jprb,2.3383e+01_jprb,2.5842e+01_jprb/)  
kbo( :, 4,34,13) = (/&
 & 1.2978e+01_jprb,1.2971e+01_jprb,1.2635e+01_jprb,1.8099e+01_jprb,2.2352e+01_jprb,2.4982e+01_jprb/)  
kbo( :, 5,34,13) = (/&
 & 1.3934e+01_jprb,1.3926e+01_jprb,1.2668e+01_jprb,1.7413e+01_jprb,2.1361e+01_jprb,2.4094e+01_jprb/)  
kbo( :, 1,35,13) = (/&
 & 9.7254e+00_jprb,9.7201e+00_jprb,1.3055e+01_jprb,2.0467e+01_jprb,2.5890e+01_jprb,2.8316e+01_jprb/)  
kbo( :, 2,35,13) = (/&
 & 1.0642e+01_jprb,1.0636e+01_jprb,1.2799e+01_jprb,1.9691e+01_jprb,2.4776e+01_jprb,2.7321e+01_jprb/)  
kbo( :, 3,35,13) = (/&
 & 1.1630e+01_jprb,1.1624e+01_jprb,1.2635e+01_jprb,1.8939e+01_jprb,2.3691e+01_jprb,2.6463e+01_jprb/)  
kbo( :, 4,35,13) = (/&
 & 1.2660e+01_jprb,1.2653e+01_jprb,1.2560e+01_jprb,1.8216e+01_jprb,2.2621e+01_jprb,2.5557e+01_jprb/)  
kbo( :, 5,35,13) = (/&
 & 1.3686e+01_jprb,1.3678e+01_jprb,1.2601e+01_jprb,1.7514e+01_jprb,2.1598e+01_jprb,2.4647e+01_jprb/)  
kbo( :, 1,36,13) = (/&
 & 9.1824e+00_jprb,9.1775e+00_jprb,1.3014e+01_jprb,2.0702e+01_jprb,2.6319e+01_jprb,2.8897e+01_jprb/)  
kbo( :, 2,36,13) = (/&
 & 1.0178e+01_jprb,1.0173e+01_jprb,1.2753e+01_jprb,1.9897e+01_jprb,2.5164e+01_jprb,2.7977e+01_jprb/)  
kbo( :, 3,36,13) = (/&
 & 1.1240e+01_jprb,1.1234e+01_jprb,1.2589e+01_jprb,1.9121e+01_jprb,2.4043e+01_jprb,2.7098e+01_jprb/)  
kbo( :, 4,36,13) = (/&
 & 1.2332e+01_jprb,1.2325e+01_jprb,1.2520e+01_jprb,1.8377e+01_jprb,2.2938e+01_jprb,2.6162e+01_jprb/)  
kbo( :, 5,36,13) = (/&
 & 1.3423e+01_jprb,1.3415e+01_jprb,1.2563e+01_jprb,1.7662e+01_jprb,2.1883e+01_jprb,2.5220e+01_jprb/)  
kbo( :, 1,37,13) = (/&
 & 8.6099e+00_jprb,8.6053e+00_jprb,1.3043e+01_jprb,2.1019e+01_jprb,2.6856e+01_jprb,2.9568e+01_jprb/)  
kbo( :, 2,37,13) = (/&
 & 9.6546e+00_jprb,9.6493e+00_jprb,1.2762e+01_jprb,2.0197e+01_jprb,2.5667e+01_jprb,2.8665e+01_jprb/)  
kbo( :, 3,37,13) = (/&
 & 1.0769e+01_jprb,1.0763e+01_jprb,1.2583e+01_jprb,1.9394e+01_jprb,2.4509e+01_jprb,2.7775e+01_jprb/)  
kbo( :, 4,37,13) = (/&
 & 1.1910e+01_jprb,1.1903e+01_jprb,1.2502e+01_jprb,1.8624e+01_jprb,2.3371e+01_jprb,2.6796e+01_jprb/)  
kbo( :, 5,37,13) = (/&
 & 1.3054e+01_jprb,1.3047e+01_jprb,1.2531e+01_jprb,1.7890e+01_jprb,2.2279e+01_jprb,2.5830e+01_jprb/)  
kbo( :, 1,38,13) = (/&
 & 8.1124e+00_jprb,8.1081e+00_jprb,1.3090e+01_jprb,2.1323e+01_jprb,2.7354e+01_jprb,3.0221e+01_jprb/)  
kbo( :, 2,38,13) = (/&
 & 9.1955e+00_jprb,9.1905e+00_jprb,1.2789e+01_jprb,2.0480e+01_jprb,2.6132e+01_jprb,2.9338e+01_jprb/)  
kbo( :, 3,38,13) = (/&
 & 1.0346e+01_jprb,1.0340e+01_jprb,1.2594e+01_jprb,1.9657e+01_jprb,2.4940e+01_jprb,2.8430e+01_jprb/)  
kbo( :, 4,38,13) = (/&
 & 1.1526e+01_jprb,1.1520e+01_jprb,1.2499e+01_jprb,1.8864e+01_jprb,2.3774e+01_jprb,2.7417e+01_jprb/)  
kbo( :, 5,38,13) = (/&
 & 1.2710e+01_jprb,1.2703e+01_jprb,1.2513e+01_jprb,1.8110e+01_jprb,2.2651e+01_jprb,2.6428e+01_jprb/)  
kbo( :, 1,39,13) = (/&
 & 7.6875e+00_jprb,7.6835e+00_jprb,1.3146e+01_jprb,2.1600e+01_jprb,2.7801e+01_jprb,3.0872e+01_jprb/)  
kbo( :, 2,39,13) = (/&
 & 8.7929e+00_jprb,8.7882e+00_jprb,1.2830e+01_jprb,2.0739e+01_jprb,2.6556e+01_jprb,3.0007e+01_jprb/)  
kbo( :, 3,39,13) = (/&
 & 9.9744e+00_jprb,9.9689e+00_jprb,1.2617e+01_jprb,1.9901e+01_jprb,2.5334e+01_jprb,2.9071e+01_jprb/)  
kbo( :, 4,39,13) = (/&
 & 1.1184e+01_jprb,1.1178e+01_jprb,1.2503e+01_jprb,1.9085e+01_jprb,2.4144e+01_jprb,2.8025e+01_jprb/)  
kbo( :, 5,39,13) = (/&
 & 1.2397e+01_jprb,1.2390e+01_jprb,1.2501e+01_jprb,1.8314e+01_jprb,2.2991e+01_jprb,2.7022e+01_jprb/)  
kbo( :, 1,40,13) = (/&
 & 7.2073e+00_jprb,7.2036e+00_jprb,1.3244e+01_jprb,2.1941e+01_jprb,2.8335e+01_jprb,3.1477e+01_jprb/)  
kbo( :, 2,40,13) = (/&
 & 8.3183e+00_jprb,8.3138e+00_jprb,1.2905e+01_jprb,2.1071e+01_jprb,2.7076e+01_jprb,3.0598e+01_jprb/)  
kbo( :, 3,40,13) = (/&
 & 9.5140e+00_jprb,9.5088e+00_jprb,1.2663e+01_jprb,2.0213e+01_jprb,2.5823e+01_jprb,2.9671e+01_jprb/)  
kbo( :, 4,40,13) = (/&
 & 1.0744e+01_jprb,1.0738e+01_jprb,1.2520e+01_jprb,1.9377e+01_jprb,2.4607e+01_jprb,2.8610e+01_jprb/)  
kbo( :, 5,40,13) = (/&
 & 1.1983e+01_jprb,1.1976e+01_jprb,1.2493e+01_jprb,1.8588e+01_jprb,2.3425e+01_jprb,2.7600e+01_jprb/)  
kbo( :, 1,41,13) = (/&
 & 6.7611e+00_jprb,6.7576e+00_jprb,1.3349e+01_jprb,2.2280e+01_jprb,2.8859e+01_jprb,3.2049e+01_jprb/)  
kbo( :, 2,41,13) = (/&
 & 7.8674e+00_jprb,7.8632e+00_jprb,1.2993e+01_jprb,2.1395e+01_jprb,2.7586e+01_jprb,3.1155e+01_jprb/)  
kbo( :, 3,41,13) = (/&
 & 9.0665e+00_jprb,9.0616e+00_jprb,1.2725e+01_jprb,2.0522e+01_jprb,2.6310e+01_jprb,3.0246e+01_jprb/)  
kbo( :, 4,41,13) = (/&
 & 1.0311e+01_jprb,1.0306e+01_jprb,1.2549e+01_jprb,1.9674e+01_jprb,2.5066e+01_jprb,2.9176e+01_jprb/)  
kbo( :, 5,41,13) = (/&
 & 1.1568e+01_jprb,1.1562e+01_jprb,1.2494e+01_jprb,1.8859e+01_jprb,2.3856e+01_jprb,2.8161e+01_jprb/)  
kbo( :, 1,42,13) = (/&
 & 6.3548e+00_jprb,6.3515e+00_jprb,1.3456e+01_jprb,2.2608e+01_jprb,2.9366e+01_jprb,3.2606e+01_jprb/)  
kbo( :, 2,42,13) = (/&
 & 7.4451e+00_jprb,7.4412e+00_jprb,1.3085e+01_jprb,2.1711e+01_jprb,2.8070e+01_jprb,3.1692e+01_jprb/)  
kbo( :, 3,42,13) = (/&
 & 8.6411e+00_jprb,8.6364e+00_jprb,1.2793e+01_jprb,2.0822e+01_jprb,2.6779e+01_jprb,3.0806e+01_jprb/)  
kbo( :, 4,42,13) = (/&
 & 9.8929e+00_jprb,9.8874e+00_jprb,1.2589e+01_jprb,1.9962e+01_jprb,2.5511e+01_jprb,2.9730e+01_jprb/)  
kbo( :, 5,42,13) = (/&
 & 1.1166e+01_jprb,1.1160e+01_jprb,1.2501e+01_jprb,1.9127e+01_jprb,2.4277e+01_jprb,2.8718e+01_jprb/)  
kbo( :, 1,43,13) = (/&
 & 5.9236e+00_jprb,5.9206e+00_jprb,1.3597e+01_jprb,2.2980e+01_jprb,2.9923e+01_jprb,3.3179e+01_jprb/)  
kbo( :, 2,43,13) = (/&
 & 6.9885e+00_jprb,6.9848e+00_jprb,1.3206e+01_jprb,2.2070e+01_jprb,2.8607e+01_jprb,3.2249e+01_jprb/)  
kbo( :, 3,43,13) = (/&
 & 8.1682e+00_jprb,8.1638e+00_jprb,1.2880e+01_jprb,2.1165e+01_jprb,2.7304e+01_jprb,3.1388e+01_jprb/)  
kbo( :, 4,43,13) = (/&
 & 9.4211e+00_jprb,9.4159e+00_jprb,1.2650e+01_jprb,2.0290e+01_jprb,2.6012e+01_jprb,3.0330e+01_jprb/)  
kbo( :, 5,43,13) = (/&
 & 1.0699e+01_jprb,1.0693e+01_jprb,1.2520e+01_jprb,1.9438e+01_jprb,2.4759e+01_jprb,2.9317e+01_jprb/)  
kbo( :, 1,44,13) = (/&
 & 5.4998e+00_jprb,5.4970e+00_jprb,1.3748e+01_jprb,2.3364e+01_jprb,3.0492e+01_jprb,3.3756e+01_jprb/)  
kbo( :, 2,44,13) = (/&
 & 6.5311e+00_jprb,6.5277e+00_jprb,1.3340e+01_jprb,2.2442e+01_jprb,2.9167e+01_jprb,3.2820e+01_jprb/)  
kbo( :, 3,44,13) = (/&
 & 7.6857e+00_jprb,7.6816e+00_jprb,1.2985e+01_jprb,2.1531e+01_jprb,2.7848e+01_jprb,3.1979e+01_jprb/)  
kbo( :, 4,44,13) = (/&
 & 8.9256e+00_jprb,8.9207e+00_jprb,1.2724e+01_jprb,2.0635e+01_jprb,2.6540e+01_jprb,3.0955e+01_jprb/)  
kbo( :, 5,44,13) = (/&
 & 1.0209e+01_jprb,1.0203e+01_jprb,1.2556e+01_jprb,1.9768e+01_jprb,2.5264e+01_jprb,2.9937e+01_jprb/)  
kbo( :, 1,45,13) = (/&
 & 5.1066e+00_jprb,5.1040e+00_jprb,1.3894e+01_jprb,2.3735e+01_jprb,3.1041e+01_jprb,3.4324e+01_jprb/)  
kbo( :, 2,45,13) = (/&
 & 6.1015e+00_jprb,6.0983e+00_jprb,1.3484e+01_jprb,2.2813e+01_jprb,2.9715e+01_jprb,3.3401e+01_jprb/)  
kbo( :, 3,45,13) = (/&
 & 7.2220e+00_jprb,7.2182e+00_jprb,1.3105e+01_jprb,2.1889e+01_jprb,2.8383e+01_jprb,3.2574e+01_jprb/)  
kbo( :, 4,45,13) = (/&
 & 8.4438e+00_jprb,8.4392e+00_jprb,1.2807e+01_jprb,2.0975e+01_jprb,2.7061e+01_jprb,3.1594e+01_jprb/)  
kbo( :, 5,45,13) = (/&
 & 9.7243e+00_jprb,9.7189e+00_jprb,1.2602e+01_jprb,2.0098e+01_jprb,2.5763e+01_jprb,3.0584e+01_jprb/)  
kbo( :, 1,46,13) = (/&
 & 4.7235e+00_jprb,4.7212e+00_jprb,1.4046e+01_jprb,2.4121e+01_jprb,3.1588e+01_jprb,3.4885e+01_jprb/)  
kbo( :, 2,46,13) = (/&
 & 5.6742e+00_jprb,5.6713e+00_jprb,1.3640e+01_jprb,2.3201e+01_jprb,3.0277e+01_jprb,3.3993e+01_jprb/)  
kbo( :, 3,46,13) = (/&
 & 6.7562e+00_jprb,6.7526e+00_jprb,1.3243e+01_jprb,2.2266e+01_jprb,2.8936e+01_jprb,3.3171e+01_jprb/)  
kbo( :, 4,46,13) = (/&
 & 7.9500e+00_jprb,7.9457e+00_jprb,1.2906e+01_jprb,2.1341e+01_jprb,2.7604e+01_jprb,3.2255e+01_jprb/)  
kbo( :, 5,46,13) = (/&
 & 9.2204e+00_jprb,9.2153e+00_jprb,1.2671e+01_jprb,2.0448e+01_jprb,2.6287e+01_jprb,3.1265e+01_jprb/)  
kbo( :, 1,47,13) = (/&
 & 4.3300e+00_jprb,4.3280e+00_jprb,1.4218e+01_jprb,2.4532e+01_jprb,3.2164e+01_jprb,3.5437e+01_jprb/)  
kbo( :, 2,47,13) = (/&
 & 5.2306e+00_jprb,5.2279e+00_jprb,1.3812e+01_jprb,2.3616e+01_jprb,3.0887e+01_jprb,3.4582e+01_jprb/)  
kbo( :, 3,47,13) = (/&
 & 6.2646e+00_jprb,6.2614e+00_jprb,1.3402e+01_jprb,2.2678e+01_jprb,2.9542e+01_jprb,3.3739e+01_jprb/)  
kbo( :, 4,47,13) = (/&
 & 7.4192e+00_jprb,7.4152e+00_jprb,1.3037e+01_jprb,2.1748e+01_jprb,2.8196e+01_jprb,3.2920e+01_jprb/)  
kbo( :, 5,47,13) = (/&
 & 8.6683e+00_jprb,8.6636e+00_jprb,1.2760e+01_jprb,2.0830e+01_jprb,2.6867e+01_jprb,3.1949e+01_jprb/)  
kbo( :, 1,48,13) = (/&
 & 3.9563e+00_jprb,3.9545e+00_jprb,1.4390e+01_jprb,2.4924e+01_jprb,3.2712e+01_jprb,3.5975e+01_jprb/)  
kbo( :, 2,48,13) = (/&
 & 4.8163e+00_jprb,4.8139e+00_jprb,1.3982e+01_jprb,2.4022e+01_jprb,3.1475e+01_jprb,3.5176e+01_jprb/)  
kbo( :, 3,48,13) = (/&
 & 5.7995e+00_jprb,5.7966e+00_jprb,1.3571e+01_jprb,2.3093e+01_jprb,3.0140e+01_jprb,3.4333e+01_jprb/)  
kbo( :, 4,48,13) = (/&
 & 6.9101e+00_jprb,6.9064e+00_jprb,1.3183e+01_jprb,2.2151e+01_jprb,2.8787e+01_jprb,3.3609e+01_jprb/)  
kbo( :, 5,48,13) = (/&
 & 8.1290e+00_jprb,8.1246e+00_jprb,1.2862e+01_jprb,2.1218e+01_jprb,2.7446e+01_jprb,3.2685e+01_jprb/)  
kbo( :, 1,49,13) = (/&
 & 3.6095e+00_jprb,3.6078e+00_jprb,1.4558e+01_jprb,2.5296e+01_jprb,3.3234e+01_jprb,3.6504e+01_jprb/)  
kbo( :, 2,49,13) = (/&
 & 4.4271e+00_jprb,4.4249e+00_jprb,1.4150e+01_jprb,2.4423e+01_jprb,3.2036e+01_jprb,3.5772e+01_jprb/)  
kbo( :, 3,49,13) = (/&
 & 5.3603e+00_jprb,5.3576e+00_jprb,1.3742e+01_jprb,2.3500e+01_jprb,3.0731e+01_jprb,3.4966e+01_jprb/)  
kbo( :, 4,49,13) = (/&
 & 6.4234e+00_jprb,6.4201e+00_jprb,1.3335e+01_jprb,2.2553e+01_jprb,2.9376e+01_jprb,3.4358e+01_jprb/)  
kbo( :, 5,49,13) = (/&
 & 7.6032e+00_jprb,7.5991e+00_jprb,1.2984e+01_jprb,2.1616e+01_jprb,2.8020e+01_jprb,3.3502e+01_jprb/)  
kbo( :, 1,50,13) = (/&
 & 3.3075e+00_jprb,3.3060e+00_jprb,1.4713e+01_jprb,2.5635e+01_jprb,3.3698e+01_jprb,3.6916e+01_jprb/)  
kbo( :, 2,50,13) = (/&
 & 4.0785e+00_jprb,4.0766e+00_jprb,1.4310e+01_jprb,2.4788e+01_jprb,3.2546e+01_jprb,3.6251e+01_jprb/)  
kbo( :, 3,50,13) = (/&
 & 4.9697e+00_jprb,4.9672e+00_jprb,1.3904e+01_jprb,2.3873e+01_jprb,3.1275e+01_jprb,3.5481e+01_jprb/)  
kbo( :, 4,50,13) = (/&
 & 5.9880e+00_jprb,5.9849e+00_jprb,1.3488e+01_jprb,2.2931e+01_jprb,2.9923e+01_jprb,3.4946e+01_jprb/)  
kbo( :, 5,50,13) = (/&
 & 7.1253e+00_jprb,7.1215e+00_jprb,1.3112e+01_jprb,2.1989e+01_jprb,2.8565e+01_jprb,3.4166e+01_jprb/)  
kbo( :, 1,51,13) = (/&
 & 3.0350e+00_jprb,3.0337e+00_jprb,1.4851e+01_jprb,2.5935e+01_jprb,3.4107e+01_jprb,3.7237e+01_jprb/)  
kbo( :, 2,51,13) = (/&
 & 3.7587e+00_jprb,3.7569e+00_jprb,1.4465e+01_jprb,2.5129e+01_jprb,3.3019e+01_jprb,3.6650e+01_jprb/)  
kbo( :, 3,51,13) = (/&
 & 4.6142e+00_jprb,4.6119e+00_jprb,1.4053e+01_jprb,2.4233e+01_jprb,3.1785e+01_jprb,3.5945e+01_jprb/)  
kbo( :, 4,51,13) = (/&
 & 5.5848e+00_jprb,5.5820e+00_jprb,1.3644e+01_jprb,2.3300e+01_jprb,3.0450e+01_jprb,3.5428e+01_jprb/)  
kbo( :, 5,51,13) = (/&
 & 6.6798e+00_jprb,6.6762e+00_jprb,1.3245e+01_jprb,2.2350e+01_jprb,2.9088e+01_jprb,3.4747e+01_jprb/)  
kbo( :, 1,52,13) = (/&
 & 2.7825e+00_jprb,2.7814e+00_jprb,1.4975e+01_jprb,2.6195e+01_jprb,3.4492e+01_jprb,3.7510e+01_jprb/)  
kbo( :, 2,52,13) = (/&
 & 3.4605e+00_jprb,3.4589e+00_jprb,1.4616e+01_jprb,2.5455e+01_jprb,3.3469e+01_jprb,3.7042e+01_jprb/)  
kbo( :, 3,52,13) = (/&
 & 4.2744e+00_jprb,4.2723e+00_jprb,1.4207e+01_jprb,2.4585e+01_jprb,3.2279e+01_jprb,3.6429e+01_jprb/)  
kbo( :, 4,52,13) = (/&
 & 5.1994e+00_jprb,5.1968e+00_jprb,1.3797e+01_jprb,2.3661e+01_jprb,3.0975e+01_jprb,3.5933e+01_jprb/)  
kbo( :, 5,52,13) = (/&
 & 6.2531e+00_jprb,6.2499e+00_jprb,1.3386e+01_jprb,2.2706e+01_jprb,2.9608e+01_jprb,3.5360e+01_jprb/)  
kbo( :, 1,53,13) = (/&
 & 2.5462e+00_jprb,2.5451e+00_jprb,1.5076e+01_jprb,2.6414e+01_jprb,3.4840e+01_jprb,3.7769e+01_jprb/)  
kbo( :, 2,53,13) = (/&
 & 3.1815e+00_jprb,3.1801e+00_jprb,1.4759e+01_jprb,2.5766e+01_jprb,3.3894e+01_jprb,3.7437e+01_jprb/)  
kbo( :, 3,53,13) = (/&
 & 3.9476e+00_jprb,3.9457e+00_jprb,1.4361e+01_jprb,2.4924e+01_jprb,3.2751e+01_jprb,3.6936e+01_jprb/)  
kbo( :, 4,53,13) = (/&
 & 4.8360e+00_jprb,4.8336e+00_jprb,1.3950e+01_jprb,2.4012e+01_jprb,3.1482e+01_jprb,3.6505e+01_jprb/)  
kbo( :, 5,53,13) = (/&
 & 5.8444e+00_jprb,5.8414e+00_jprb,1.3535e+01_jprb,2.3068e+01_jprb,3.0128e+01_jprb,3.6046e+01_jprb/)  
kbo( :, 1,54,13) = (/&
 & 2.3476e+00_jprb,2.3467e+00_jprb,1.5163e+01_jprb,2.6598e+01_jprb,3.5117e+01_jprb,3.7852e+01_jprb/)  
kbo( :, 2,54,13) = (/&
 & 2.9439e+00_jprb,2.9426e+00_jprb,1.4884e+01_jprb,2.6029e+01_jprb,3.4253e+01_jprb,3.7637e+01_jprb/)  
kbo( :, 3,54,13) = (/&
 & 3.6641e+00_jprb,3.6624e+00_jprb,1.4503e+01_jprb,2.5231e+01_jprb,3.3172e+01_jprb,3.7161e+01_jprb/)  
kbo( :, 4,54,13) = (/&
 & 4.5193e+00_jprb,4.5171e+00_jprb,1.4088e+01_jprb,2.4334e+01_jprb,3.1938e+01_jprb,3.6656e+01_jprb/)  
kbo( :, 5,54,13) = (/&
 & 5.4838e+00_jprb,5.4810e+00_jprb,1.3677e+01_jprb,2.3400e+01_jprb,3.0603e+01_jprb,3.6329e+01_jprb/)  
kbo( :, 1,55,13) = (/&
 & 2.1710e+00_jprb,2.1701e+00_jprb,1.5234e+01_jprb,2.6747e+01_jprb,3.5339e+01_jprb,3.7885e+01_jprb/)  
kbo( :, 2,55,13) = (/&
 & 2.7278e+00_jprb,2.7266e+00_jprb,1.4989e+01_jprb,2.6245e+01_jprb,3.4579e+01_jprb,3.7689e+01_jprb/)  
kbo( :, 3,55,13) = (/&
 & 3.4082e+00_jprb,3.4067e+00_jprb,1.4633e+01_jprb,2.5510e+01_jprb,3.3556e+01_jprb,3.7242e+01_jprb/)  
kbo( :, 4,55,13) = (/&
 & 4.2238e+00_jprb,4.2218e+00_jprb,1.4223e+01_jprb,2.4639e+01_jprb,3.2363e+01_jprb,3.6666e+01_jprb/)  
kbo( :, 5,55,13) = (/&
 & 5.1513e+00_jprb,5.1487e+00_jprb,1.3812e+01_jprb,2.3712e+01_jprb,3.1057e+01_jprb,3.6276e+01_jprb/)  
kbo( :, 1,56,13) = (/&
 & 2.0079e+00_jprb,2.0070e+00_jprb,1.5283e+01_jprb,2.6864e+01_jprb,3.5527e+01_jprb,3.7901e+01_jprb/)  
kbo( :, 2,56,13) = (/&
 & 2.5254e+00_jprb,2.5243e+00_jprb,1.5077e+01_jprb,2.6433e+01_jprb,3.4877e+01_jprb,3.7697e+01_jprb/)  
kbo( :, 3,56,13) = (/&
 & 3.1684e+00_jprb,3.1669e+00_jprb,1.4757e+01_jprb,2.5780e+01_jprb,3.3923e+01_jprb,3.7342e+01_jprb/)  
kbo( :, 4,56,13) = (/&
 & 3.9407e+00_jprb,3.9388e+00_jprb,1.4357e+01_jprb,2.4934e+01_jprb,3.2773e+01_jprb,3.6769e+01_jprb/)  
kbo( :, 5,56,13) = (/&
 & 4.8364e+00_jprb,4.8339e+00_jprb,1.3945e+01_jprb,2.4018e+01_jprb,3.1497e+01_jprb,3.6172e+01_jprb/)  
kbo( :, 1,57,13) = (/&
 & 1.8578e+00_jprb,1.8569e+00_jprb,1.5303e+01_jprb,2.6949e+01_jprb,3.5653e+01_jprb,3.7877e+01_jprb/)  
kbo( :, 2,57,13) = (/&
 & 2.3391e+00_jprb,2.3382e+00_jprb,1.5160e+01_jprb,2.6604e+01_jprb,3.5134e+01_jprb,3.7763e+01_jprb/)  
kbo( :, 3,57,13) = (/&
 & 2.9439e+00_jprb,2.9426e+00_jprb,1.4876e+01_jprb,2.6028e+01_jprb,3.4258e+01_jprb,3.7439e+01_jprb/)  
kbo( :, 4,57,13) = (/&
 & 3.6722e+00_jprb,3.6705e+00_jprb,1.4492e+01_jprb,2.5221e+01_jprb,3.3167e+01_jprb,3.6862e+01_jprb/)  
kbo( :, 5,57,13) = (/&
 & 4.5340e+00_jprb,4.5318e+00_jprb,1.4076e+01_jprb,2.4322e+01_jprb,3.1926e+01_jprb,3.6169e+01_jprb/)  
kbo( :, 1,58,13) = (/&
 & 1.7257e+00_jprb,1.7249e+00_jprb,1.5300e+01_jprb,2.6987e+01_jprb,3.5715e+01_jprb,3.7771e+01_jprb/)  
kbo( :, 2,58,13) = (/&
 & 2.1747e+00_jprb,2.1738e+00_jprb,1.5228e+01_jprb,2.6747e+01_jprb,3.5343e+01_jprb,3.7835e+01_jprb/)  
kbo( :, 3,58,13) = (/&
 & 2.7413e+00_jprb,2.7402e+00_jprb,1.4977e+01_jprb,2.6232e+01_jprb,3.4563e+01_jprb,3.7436e+01_jprb/)  
kbo( :, 4,58,13) = (/&
 & 3.4316e+00_jprb,3.4300e+00_jprb,1.4616e+01_jprb,2.5484e+01_jprb,3.3527e+01_jprb,3.6930e+01_jprb/)  
kbo( :, 5,58,13) = (/&
 & 4.2563e+00_jprb,4.2542e+00_jprb,1.4203e+01_jprb,2.4608e+01_jprb,3.2326e+01_jprb,3.6245e+01_jprb/)  
kbo( :, 1,59,13) = (/&
 & 1.6718e+00_jprb,1.6710e+00_jprb,1.5295e+01_jprb,2.6993e+01_jprb,3.5730e+01_jprb,3.7608e+01_jprb/)  
kbo( :, 2,59,13) = (/&
 & 2.1089e+00_jprb,2.1080e+00_jprb,1.5254e+01_jprb,2.6799e+01_jprb,3.5425e+01_jprb,3.7786e+01_jprb/)  
kbo( :, 3,59,13) = (/&
 & 2.6604e+00_jprb,2.6594e+00_jprb,1.5013e+01_jprb,2.6309e+01_jprb,3.4684e+01_jprb,3.7341e+01_jprb/)  
kbo( :, 4,59,13) = (/&
 & 3.3364e+00_jprb,3.3349e+00_jprb,1.4664e+01_jprb,2.5591e+01_jprb,3.3675e+01_jprb,3.6669e+01_jprb/)  
kbo( :, 5,59,13) = (/&
 & 4.1451e+00_jprb,4.1431e+00_jprb,1.4254e+01_jprb,2.4723e+01_jprb,3.2485e+01_jprb,3.5871e+01_jprb/)  
kbo( :, 1,13,14) = (/&
 & 2.9867e+01_jprb,2.9850e+01_jprb,2.2813e+01_jprb,1.5747e+01_jprb,8.6461e+00_jprb,6.6277e+00_jprb/)  
kbo( :, 2,13,14) = (/&
 & 2.8970e+01_jprb,2.8953e+01_jprb,2.2112e+01_jprb,1.5258e+01_jprb,8.4453e+00_jprb,6.4752e+00_jprb/)  
kbo( :, 3,13,14) = (/&
 & 2.8231e+01_jprb,2.8215e+01_jprb,2.1546e+01_jprb,1.4872e+01_jprb,8.2664e+00_jprb,6.3900e+00_jprb/)  
kbo( :, 4,13,14) = (/&
 & 2.7643e+01_jprb,2.7627e+01_jprb,2.1093e+01_jprb,1.4551e+01_jprb,8.1037e+00_jprb,6.4058e+00_jprb/)  

IF (lhook) CALL dr_hook('RRTM_KGB4:PART32',1,zhook_handle)
END SUBROUTINE part32


SUBROUTINE part33

REAL(KIND=JPRB) :: ZHOOK_HANDLE
IF (lhook) CALL dr_hook('RRTM_KGB4:PART33',0,zhook_handle)


kbo( :, 5,13,14) = (/&
 & 2.7121e+01_jprb,2.7106e+01_jprb,2.0679e+01_jprb,1.4264e+01_jprb,7.9370e+00_jprb,6.4632e+00_jprb/)  
kbo( :, 1,14,14) = (/&
 & 3.1721e+01_jprb,3.1703e+01_jprb,2.4198e+01_jprb,1.6672e+01_jprb,9.2683e+00_jprb,7.3049e+00_jprb/)  
kbo( :, 2,14,14) = (/&
 & 3.1076e+01_jprb,3.1058e+01_jprb,2.3689e+01_jprb,1.6337e+01_jprb,9.1193e+00_jprb,7.0508e+00_jprb/)  
kbo( :, 3,14,14) = (/&
 & 3.0563e+01_jprb,3.0546e+01_jprb,2.3305e+01_jprb,1.6071e+01_jprb,8.9743e+00_jprb,6.8812e+00_jprb/)  
kbo( :, 4,14,14) = (/&
 & 3.0148e+01_jprb,3.0131e+01_jprb,2.2977e+01_jprb,1.5835e+01_jprb,8.8320e+00_jprb,6.7605e+00_jprb/)  
kbo( :, 5,14,14) = (/&
 & 2.9764e+01_jprb,2.9747e+01_jprb,2.2687e+01_jprb,1.5631e+01_jprb,8.6858e+00_jprb,6.7365e+00_jprb/)  
kbo( :, 1,15,14) = (/&
 & 3.4331e+01_jprb,3.4311e+01_jprb,2.6139e+01_jprb,1.7967e+01_jprb,1.0028e+01_jprb,8.1321e+00_jprb/)  
kbo( :, 2,15,14) = (/&
 & 3.3952e+01_jprb,3.3933e+01_jprb,2.5854e+01_jprb,1.7780e+01_jprb,9.9136e+00_jprb,7.8472e+00_jprb/)  
kbo( :, 3,15,14) = (/&
 & 3.3650e+01_jprb,3.3631e+01_jprb,2.5615e+01_jprb,1.7601e+01_jprb,9.7954e+00_jprb,7.6157e+00_jprb/)  
kbo( :, 4,15,14) = (/&
 & 3.3344e+01_jprb,3.3325e+01_jprb,2.5376e+01_jprb,1.7433e+01_jprb,9.6656e+00_jprb,7.3952e+00_jprb/)  
kbo( :, 5,15,14) = (/&
 & 3.3055e+01_jprb,3.3036e+01_jprb,2.5149e+01_jprb,1.7257e+01_jprb,9.5339e+00_jprb,7.2585e+00_jprb/)  
kbo( :, 1,16,14) = (/&
 & 3.7768e+01_jprb,3.7746e+01_jprb,2.8736e+01_jprb,1.9717e+01_jprb,1.0946e+01_jprb,9.0577e+00_jprb/)  
kbo( :, 2,16,14) = (/&
 & 3.7568e+01_jprb,3.7546e+01_jprb,2.8561e+01_jprb,1.9575e+01_jprb,1.0848e+01_jprb,8.7437e+00_jprb/)  
kbo( :, 3,16,14) = (/&
 & 3.7327e+01_jprb,3.7305e+01_jprb,2.8371e+01_jprb,1.9439e+01_jprb,1.0735e+01_jprb,8.4668e+00_jprb/)  
kbo( :, 4,16,14) = (/&
 & 3.7089e+01_jprb,3.7067e+01_jprb,2.8181e+01_jprb,1.9291e+01_jprb,1.0617e+01_jprb,8.2419e+00_jprb/)  
kbo( :, 5,16,14) = (/&
 & 3.6772e+01_jprb,3.6751e+01_jprb,2.7932e+01_jprb,1.9114e+01_jprb,1.0484e+01_jprb,8.0316e+00_jprb/)  
kbo( :, 1,17,14) = (/&
 & 4.1800e+01_jprb,4.1776e+01_jprb,3.1755e+01_jprb,2.1740e+01_jprb,1.2078e+01_jprb,1.0093e+01_jprb/)  
kbo( :, 2,17,14) = (/&
 & 4.1678e+01_jprb,4.1653e+01_jprb,3.1650e+01_jprb,2.1659e+01_jprb,1.1979e+01_jprb,9.7654e+00_jprb/)  
kbo( :, 3,17,14) = (/&
 & 4.1542e+01_jprb,4.1518e+01_jprb,3.1528e+01_jprb,2.1552e+01_jprb,1.1863e+01_jprb,9.4632e+00_jprb/)  
kbo( :, 4,17,14) = (/&
 & 4.1281e+01_jprb,4.1257e+01_jprb,3.1316e+01_jprb,2.1389e+01_jprb,1.1731e+01_jprb,9.2257e+00_jprb/)  
kbo( :, 5,17,14) = (/&
 & 4.1001e+01_jprb,4.0977e+01_jprb,3.1090e+01_jprb,2.1207e+01_jprb,1.1579e+01_jprb,8.9705e+00_jprb/)  
kbo( :, 1,18,14) = (/&
 & 4.6476e+01_jprb,4.6449e+01_jprb,3.5262e+01_jprb,2.4079e+01_jprb,1.3398e+01_jprb,1.1310e+01_jprb/)  
kbo( :, 2,18,14) = (/&
 & 4.6434e+01_jprb,4.6407e+01_jprb,3.5219e+01_jprb,2.4028e+01_jprb,1.3279e+01_jprb,1.0988e+01_jprb/)  
kbo( :, 3,18,14) = (/&
 & 4.6265e+01_jprb,4.6238e+01_jprb,3.5074e+01_jprb,2.3903e+01_jprb,1.3136e+01_jprb,1.0670e+01_jprb/)  
kbo( :, 4,18,14) = (/&
 & 4.6056e+01_jprb,4.6029e+01_jprb,3.4898e+01_jprb,2.3749e+01_jprb,1.2970e+01_jprb,1.0429e+01_jprb/)  
kbo( :, 5,18,14) = (/&
 & 4.5721e+01_jprb,4.5694e+01_jprb,3.4620e+01_jprb,2.3533e+01_jprb,1.2786e+01_jprb,1.0167e+01_jprb/)  
kbo( :, 1,19,14) = (/&
 & 5.1627e+01_jprb,5.1597e+01_jprb,3.9121e+01_jprb,2.6626e+01_jprb,1.4901e+01_jprb,1.2801e+01_jprb/)  
kbo( :, 2,19,14) = (/&
 & 5.1560e+01_jprb,5.1530e+01_jprb,3.9050e+01_jprb,2.6558e+01_jprb,1.4739e+01_jprb,1.2472e+01_jprb/)  
kbo( :, 3,19,14) = (/&
 & 5.1413e+01_jprb,5.1383e+01_jprb,3.8915e+01_jprb,2.6432e+01_jprb,1.4553e+01_jprb,1.2141e+01_jprb/)  
kbo( :, 4,19,14) = (/&
 & 5.1136e+01_jprb,5.1106e+01_jprb,3.8684e+01_jprb,2.6245e+01_jprb,1.4345e+01_jprb,1.1879e+01_jprb/)  
kbo( :, 5,19,14) = (/&
 & 5.0773e+01_jprb,5.0743e+01_jprb,3.8384e+01_jprb,2.6014e+01_jprb,1.4118e+01_jprb,1.1591e+01_jprb/)  
kbo( :, 1,20,14) = (/&
 & 5.6884e+01_jprb,5.6851e+01_jprb,4.3042e+01_jprb,2.9216e+01_jprb,1.6557e+01_jprb,1.4595e+01_jprb/)  
kbo( :, 2,20,14) = (/&
 & 5.6797e+01_jprb,5.6764e+01_jprb,4.2946e+01_jprb,2.9117e+01_jprb,1.6341e+01_jprb,1.4232e+01_jprb/)  
kbo( :, 3,20,14) = (/&
 & 5.6571e+01_jprb,5.6538e+01_jprb,4.2757e+01_jprb,2.8963e+01_jprb,1.6110e+01_jprb,1.3871e+01_jprb/)  
kbo( :, 4,20,14) = (/&
 & 5.6241e+01_jprb,5.6208e+01_jprb,4.2485e+01_jprb,2.8752e+01_jprb,1.5861e+01_jprb,1.3552e+01_jprb/)  
kbo( :, 5,20,14) = (/&
 & 5.5778e+01_jprb,5.5746e+01_jprb,4.2122e+01_jprb,2.8488e+01_jprb,1.5601e+01_jprb,1.3221e+01_jprb/)  
kbo( :, 1,21,14) = (/&
 & 6.2117e+01_jprb,6.2081e+01_jprb,4.6932e+01_jprb,3.1772e+01_jprb,1.8332e+01_jprb,1.6634e+01_jprb/)  
kbo( :, 2,21,14) = (/&
 & 6.1948e+01_jprb,6.1912e+01_jprb,4.6785e+01_jprb,3.1648e+01_jprb,1.8084e+01_jprb,1.6213e+01_jprb/)  
kbo( :, 3,21,14) = (/&
 & 6.1644e+01_jprb,6.1608e+01_jprb,4.6541e+01_jprb,3.1461e+01_jprb,1.7808e+01_jprb,1.5772e+01_jprb/)  
kbo( :, 4,21,14) = (/&
 & 6.1212e+01_jprb,6.1176e+01_jprb,4.6198e+01_jprb,3.1208e+01_jprb,1.7516e+01_jprb,1.5375e+01_jprb/)  
kbo( :, 5,21,14) = (/&
 & 6.0660e+01_jprb,6.0625e+01_jprb,4.5764e+01_jprb,3.0893e+01_jprb,1.7197e+01_jprb,1.4982e+01_jprb/)  
kbo( :, 1,22,14) = (/&
 & 6.7064e+01_jprb,6.7024e+01_jprb,5.0622e+01_jprb,3.4206e+01_jprb,2.0283e+01_jprb,1.8773e+01_jprb/)  
kbo( :, 2,22,14) = (/&
 & 6.6814e+01_jprb,6.6775e+01_jprb,5.0411e+01_jprb,3.4038e+01_jprb,1.9964e+01_jprb,1.8268e+01_jprb/)  
kbo( :, 3,22,14) = (/&
 & 6.6405e+01_jprb,6.6365e+01_jprb,5.0089e+01_jprb,3.3800e+01_jprb,1.9618e+01_jprb,1.7753e+01_jprb/)  
kbo( :, 4,22,14) = (/&
 & 6.5854e+01_jprb,6.5815e+01_jprb,4.9659e+01_jprb,3.3490e+01_jprb,1.9247e+01_jprb,1.7292e+01_jprb/)  
kbo( :, 5,22,14) = (/&
 & 6.5177e+01_jprb,6.5139e+01_jprb,4.9133e+01_jprb,3.3115e+01_jprb,1.8852e+01_jprb,1.6841e+01_jprb/)  
kbo( :, 1,23,14) = (/&
 & 7.1524e+01_jprb,7.1482e+01_jprb,5.3943e+01_jprb,3.6394e+01_jprb,2.2409e+01_jprb,2.1034e+01_jprb/)  
kbo( :, 2,23,14) = (/&
 & 7.1180e+01_jprb,7.1138e+01_jprb,5.3667e+01_jprb,3.6188e+01_jprb,2.2011e+01_jprb,2.0463e+01_jprb/)  
kbo( :, 3,23,14) = (/&
 & 7.0675e+01_jprb,7.0634e+01_jprb,5.3273e+01_jprb,3.5900e+01_jprb,2.1570e+01_jprb,1.9880e+01_jprb/)  
kbo( :, 4,23,14) = (/&
 & 7.0044e+01_jprb,7.0003e+01_jprb,5.2781e+01_jprb,3.5547e+01_jprb,2.1106e+01_jprb,1.9340e+01_jprb/)  
kbo( :, 5,23,14) = (/&
 & 6.9258e+01_jprb,6.9217e+01_jprb,5.2177e+01_jprb,3.5122e+01_jprb,2.0624e+01_jprb,1.8817e+01_jprb/)  
kbo( :, 1,24,14) = (/&
 & 7.5188e+01_jprb,7.5144e+01_jprb,5.6672e+01_jprb,3.8194e+01_jprb,2.4653e+01_jprb,2.3438e+01_jprb/)  
kbo( :, 2,24,14) = (/&
 & 7.4771e+01_jprb,7.4727e+01_jprb,5.6346e+01_jprb,3.7956e+01_jprb,2.4153e+01_jprb,2.2769e+01_jprb/)  
kbo( :, 3,24,14) = (/&
 & 7.4256e+01_jprb,7.4212e+01_jprb,5.5942e+01_jprb,3.7664e+01_jprb,2.3612e+01_jprb,2.2098e+01_jprb/)  
kbo( :, 4,24,14) = (/&
 & 7.3533e+01_jprb,7.3489e+01_jprb,5.5386e+01_jprb,3.7269e+01_jprb,2.3047e+01_jprb,2.1446e+01_jprb/)  
kbo( :, 5,24,14) = (/&
 & 7.2712e+01_jprb,7.2669e+01_jprb,5.4752e+01_jprb,3.6822e+01_jprb,2.2450e+01_jprb,2.0823e+01_jprb/)  
kbo( :, 1,25,14) = (/&
 & 7.7905e+01_jprb,7.7859e+01_jprb,5.8695e+01_jprb,3.9643e+01_jprb,2.6946e+01_jprb,2.5911e+01_jprb/)  
kbo( :, 2,25,14) = (/&
 & 7.7541e+01_jprb,7.7495e+01_jprb,5.8407e+01_jprb,3.9379e+01_jprb,2.6314e+01_jprb,2.5120e+01_jprb/)  
kbo( :, 3,25,14) = (/&
 & 7.6964e+01_jprb,7.6919e+01_jprb,5.7957e+01_jprb,3.9027e+01_jprb,2.5656e+01_jprb,2.4314e+01_jprb/)  
kbo( :, 4,25,14) = (/&
 & 7.6272e+01_jprb,7.6227e+01_jprb,5.7424e+01_jprb,3.8630e+01_jprb,2.4965e+01_jprb,2.3534e+01_jprb/)  
kbo( :, 5,25,14) = (/&
 & 7.5432e+01_jprb,7.5387e+01_jprb,5.6779e+01_jprb,3.8173e+01_jprb,2.4252e+01_jprb,2.2796e+01_jprb/)  
kbo( :, 1,26,14) = (/&
 & 7.9766e+01_jprb,7.9719e+01_jprb,6.0079e+01_jprb,4.0881e+01_jprb,2.9223e+01_jprb,2.8381e+01_jprb/)  
kbo( :, 2,26,14) = (/&
 & 7.9434e+01_jprb,7.9387e+01_jprb,5.9813e+01_jprb,4.0549e+01_jprb,2.8445e+01_jprb,2.7433e+01_jprb/)  
kbo( :, 3,26,14) = (/&
 & 7.8929e+01_jprb,7.8882e+01_jprb,5.9418e+01_jprb,4.0176e+01_jprb,2.7639e+01_jprb,2.6466e+01_jprb/)  
kbo( :, 4,26,14) = (/&
 & 7.8299e+01_jprb,7.8253e+01_jprb,5.8927e+01_jprb,3.9741e+01_jprb,2.6813e+01_jprb,2.5543e+01_jprb/)  
kbo( :, 5,26,14) = (/&
 & 7.7472e+01_jprb,7.7426e+01_jprb,5.8300e+01_jprb,3.9244e+01_jprb,2.5976e+01_jprb,2.4671e+01_jprb/)  
kbo( :, 1,27,14) = (/&
 & 8.0841e+01_jprb,8.0794e+01_jprb,6.0873e+01_jprb,4.1874e+01_jprb,3.1425e+01_jprb,3.0772e+01_jprb/)  
kbo( :, 2,27,14) = (/&
 & 8.0592e+01_jprb,8.0544e+01_jprb,6.0668e+01_jprb,4.1525e+01_jprb,3.0489e+01_jprb,2.9641e+01_jprb/)  
kbo( :, 3,27,14) = (/&
 & 8.0232e+01_jprb,8.0184e+01_jprb,6.0383e+01_jprb,4.1112e+01_jprb,2.9523e+01_jprb,2.8513e+01_jprb/)  
kbo( :, 4,27,14) = (/&
 & 7.9648e+01_jprb,7.9600e+01_jprb,5.9935e+01_jprb,4.0653e+01_jprb,2.8551e+01_jprb,2.7444e+01_jprb/)  
kbo( :, 5,27,14) = (/&
 & 7.8924e+01_jprb,7.8877e+01_jprb,5.9378e+01_jprb,4.0128e+01_jprb,2.7582e+01_jprb,2.6425e+01_jprb/)  
kbo( :, 1,28,14) = (/&
 & 8.1302e+01_jprb,8.1254e+01_jprb,6.1208e+01_jprb,4.2732e+01_jprb,3.3493e+01_jprb,3.3014e+01_jprb/)  
kbo( :, 2,28,14) = (/&
 & 8.1246e+01_jprb,8.1198e+01_jprb,6.1149e+01_jprb,4.2327e+01_jprb,3.2380e+01_jprb,3.1684e+01_jprb/)  
kbo( :, 3,28,14) = (/&
 & 8.0968e+01_jprb,8.0920e+01_jprb,6.0927e+01_jprb,4.1887e+01_jprb,3.1259e+01_jprb,3.0389e+01_jprb/)  
kbo( :, 4,28,14) = (/&
 & 8.0565e+01_jprb,8.0517e+01_jprb,6.0611e+01_jprb,4.1407e+01_jprb,3.0143e+01_jprb,2.9193e+01_jprb/)  
kbo( :, 5,28,14) = (/&
 & 7.9942e+01_jprb,7.9894e+01_jprb,6.0131e+01_jprb,4.0878e+01_jprb,2.9022e+01_jprb,2.8027e+01_jprb/)  
kbo( :, 1,29,14) = (/&
 & 8.1307e+01_jprb,8.1259e+01_jprb,6.1205e+01_jprb,4.3500e+01_jprb,3.5359e+01_jprb,3.5050e+01_jprb/)  
kbo( :, 2,29,14) = (/&
 & 8.1478e+01_jprb,8.1430e+01_jprb,6.1314e+01_jprb,4.3042e+01_jprb,3.4075e+01_jprb,3.3533e+01_jprb/)  
kbo( :, 3,29,14) = (/&
 & 8.1374e+01_jprb,8.1326e+01_jprb,6.1221e+01_jprb,4.2543e+01_jprb,3.2801e+01_jprb,3.2073e+01_jprb/)  
kbo( :, 4,29,14) = (/&
 & 8.1081e+01_jprb,8.1032e+01_jprb,6.0988e+01_jprb,4.2019e+01_jprb,3.1534e+01_jprb,3.0765e+01_jprb/)  
kbo( :, 5,29,14) = (/&
 & 8.0577e+01_jprb,8.0529e+01_jprb,6.0599e+01_jprb,4.1461e+01_jprb,3.0285e+01_jprb,2.9423e+01_jprb/)  
kbo( :, 1,30,14) = (/&
 & 8.1051e+01_jprb,8.1003e+01_jprb,6.1003e+01_jprb,4.4185e+01_jprb,3.7000e+01_jprb,3.6850e+01_jprb/)  
kbo( :, 2,30,14) = (/&
 & 8.1462e+01_jprb,8.1414e+01_jprb,6.1293e+01_jprb,4.3687e+01_jprb,3.5552e+01_jprb,3.5134e+01_jprb/)  
kbo( :, 3,30,14) = (/&
 & 8.1539e+01_jprb,8.1490e+01_jprb,6.1337e+01_jprb,4.3125e+01_jprb,3.4127e+01_jprb,3.3561e+01_jprb/)  
kbo( :, 4,30,14) = (/&
 & 8.1391e+01_jprb,8.1342e+01_jprb,6.1214e+01_jprb,4.2562e+01_jprb,3.2726e+01_jprb,3.2101e+01_jprb/)  
kbo( :, 5,30,14) = (/&
 & 8.0955e+01_jprb,8.0906e+01_jprb,6.0875e+01_jprb,4.1945e+01_jprb,3.1354e+01_jprb,3.0606e+01_jprb/)  
kbo( :, 1,31,14) = (/&
 & 8.0671e+01_jprb,8.0623e+01_jprb,6.0709e+01_jprb,4.4790e+01_jprb,3.8398e+01_jprb,3.8352e+01_jprb/)  
kbo( :, 2,31,14) = (/&
 & 8.1282e+01_jprb,8.1234e+01_jprb,6.1149e+01_jprb,4.4230e+01_jprb,3.6789e+01_jprb,3.6501e+01_jprb/)  
kbo( :, 3,31,14) = (/&
 & 8.1574e+01_jprb,8.1525e+01_jprb,6.1354e+01_jprb,4.3641e+01_jprb,3.5216e+01_jprb,3.4852e+01_jprb/)  
kbo( :, 4,31,14) = (/&
 & 8.1529e+01_jprb,8.1481e+01_jprb,6.1310e+01_jprb,4.3014e+01_jprb,3.3693e+01_jprb,3.3201e+01_jprb/)  
kbo( :, 5,31,14) = (/&
 & 8.1189e+01_jprb,8.1141e+01_jprb,6.1044e+01_jprb,4.2350e+01_jprb,3.2213e+01_jprb,3.1581e+01_jprb/)  
kbo( :, 1,32,14) = (/&
 & 8.0273e+01_jprb,8.0225e+01_jprb,6.0440e+01_jprb,4.5305e+01_jprb,3.9524e+01_jprb,3.9577e+01_jprb/)  
kbo( :, 2,32,14) = (/&
 & 8.1061e+01_jprb,8.1013e+01_jprb,6.0977e+01_jprb,4.4682e+01_jprb,3.7774e+01_jprb,3.7685e+01_jprb/)  
kbo( :, 3,32,14) = (/&
 & 8.1507e+01_jprb,8.1459e+01_jprb,6.1299e+01_jprb,4.4057e+01_jprb,3.6074e+01_jprb,3.5862e+01_jprb/)  
kbo( :, 4,32,14) = (/&
 & 8.1572e+01_jprb,8.1523e+01_jprb,6.1336e+01_jprb,4.3367e+01_jprb,3.4447e+01_jprb,3.4068e+01_jprb/)  
kbo( :, 5,32,14) = (/&
 & 8.1328e+01_jprb,8.1279e+01_jprb,6.1143e+01_jprb,4.2670e+01_jprb,3.2874e+01_jprb,3.2515e+01_jprb/)  
kbo( :, 1,33,14) = (/&
 & 7.9947e+01_jprb,7.9899e+01_jprb,6.0245e+01_jprb,4.5734e+01_jprb,4.0389e+01_jprb,4.0600e+01_jprb/)  
kbo( :, 2,33,14) = (/&
 & 8.0885e+01_jprb,8.0836e+01_jprb,6.0856e+01_jprb,4.5062e+01_jprb,3.8518e+01_jprb,3.8594e+01_jprb/)  
kbo( :, 3,33,14) = (/&
 & 8.1444e+01_jprb,8.1395e+01_jprb,6.1246e+01_jprb,4.4394e+01_jprb,3.6721e+01_jprb,3.6614e+01_jprb/)  
kbo( :, 4,33,14) = (/&
 & 8.1576e+01_jprb,8.1528e+01_jprb,6.1332e+01_jprb,4.3653e+01_jprb,3.5005e+01_jprb,3.4830e+01_jprb/)  
kbo( :, 5,33,14) = (/&
 & 8.1383e+01_jprb,8.1335e+01_jprb,6.1178e+01_jprb,4.2909e+01_jprb,3.3354e+01_jprb,3.3470e+01_jprb/)  
kbo( :, 1,34,14) = (/&
 & 7.9662e+01_jprb,7.9614e+01_jprb,6.0102e+01_jprb,4.6098e+01_jprb,4.1095e+01_jprb,4.1483e+01_jprb/)  
kbo( :, 2,34,14) = (/&
 & 8.0738e+01_jprb,8.0690e+01_jprb,6.0775e+01_jprb,4.5387e+01_jprb,3.9122e+01_jprb,3.9299e+01_jprb/)  
kbo( :, 3,34,14) = (/&
 & 8.1366e+01_jprb,8.1318e+01_jprb,6.1186e+01_jprb,4.4659e+01_jprb,3.7233e+01_jprb,3.7257e+01_jprb/)  
kbo( :, 4,34,14) = (/&
 & 8.1568e+01_jprb,8.1519e+01_jprb,6.1321e+01_jprb,4.3886e+01_jprb,3.5446e+01_jprb,3.5711e+01_jprb/)  
kbo( :, 5,34,14) = (/&
 & 8.1413e+01_jprb,8.1365e+01_jprb,6.1195e+01_jprb,4.3093e+01_jprb,3.3726e+01_jprb,3.4415e+01_jprb/)  
kbo( :, 1,35,14) = (/&
 & 7.9337e+01_jprb,7.9289e+01_jprb,5.9949e+01_jprb,4.6449e+01_jprb,4.1796e+01_jprb,4.2326e+01_jprb/)  
kbo( :, 2,35,14) = (/&
 & 8.0544e+01_jprb,8.0496e+01_jprb,6.0670e+01_jprb,4.5697e+01_jprb,3.9737e+01_jprb,4.0033e+01_jprb/)  
kbo( :, 3,35,14) = (/&
 & 8.1258e+01_jprb,8.1209e+01_jprb,6.1112e+01_jprb,4.4918e+01_jprb,3.7765e+01_jprb,3.8111e+01_jprb/)  
kbo( :, 4,35,14) = (/&
 & 8.1537e+01_jprb,8.1488e+01_jprb,6.1295e+01_jprb,4.4118e+01_jprb,3.5911e+01_jprb,3.6760e+01_jprb/)  
kbo( :, 5,35,14) = (/&
 & 8.1445e+01_jprb,8.1397e+01_jprb,6.1217e+01_jprb,4.3296e+01_jprb,3.4131e+01_jprb,3.5503e+01_jprb/)  
kbo( :, 1,36,14) = (/&
 & 7.8929e+01_jprb,7.8882e+01_jprb,5.9746e+01_jprb,4.6822e+01_jprb,4.2579e+01_jprb,4.3271e+01_jprb/)  
kbo( :, 2,36,14) = (/&
 & 8.0271e+01_jprb,8.0223e+01_jprb,6.0527e+01_jprb,4.6026e+01_jprb,4.0432e+01_jprb,4.0931e+01_jprb/)  
kbo( :, 3,36,14) = (/&
 & 8.1107e+01_jprb,8.1058e+01_jprb,6.1024e+01_jprb,4.5215e+01_jprb,3.8381e+01_jprb,3.9211e+01_jprb/)  
kbo( :, 4,36,14) = (/&
 & 8.1508e+01_jprb,8.1459e+01_jprb,6.1272e+01_jprb,4.4394e+01_jprb,3.6464e+01_jprb,3.7915e+01_jprb/)  
kbo( :, 5,36,14) = (/&
 & 8.1479e+01_jprb,8.1431e+01_jprb,6.1242e+01_jprb,4.3542e+01_jprb,3.4625e+01_jprb,3.6634e+01_jprb/)  
kbo( :, 1,37,14) = (/&
 & 7.8277e+01_jprb,7.8230e+01_jprb,5.9419e+01_jprb,4.7267e+01_jprb,4.3580e+01_jprb,4.4454e+01_jprb/)  
kbo( :, 2,37,14) = (/&
 & 7.9839e+01_jprb,7.9792e+01_jprb,6.0300e+01_jprb,4.6427e+01_jprb,4.1343e+01_jprb,4.2071e+01_jprb/)  
kbo( :, 3,37,14) = (/&
 & 8.0875e+01_jprb,8.0827e+01_jprb,6.0897e+01_jprb,4.5598e+01_jprb,3.9207e+01_jprb,4.0399e+01_jprb/)  
kbo( :, 4,37,14) = (/&
 & 8.1407e+01_jprb,8.1359e+01_jprb,6.1209e+01_jprb,4.4745e+01_jprb,3.7210e+01_jprb,3.9084e+01_jprb/)  
kbo( :, 5,37,14) = (/&
 & 8.1511e+01_jprb,8.1463e+01_jprb,6.1267e+01_jprb,4.3885e+01_jprb,3.5313e+01_jprb,3.7757e+01_jprb/)  
kbo( :, 1,38,14) = (/&
 & 7.7604e+01_jprb,7.7558e+01_jprb,5.9100e+01_jprb,4.7673e+01_jprb,4.4519e+01_jprb,4.5590e+01_jprb/)  
kbo( :, 2,38,14) = (/&
 & 7.9387e+01_jprb,7.9340e+01_jprb,6.0071e+01_jprb,4.6807e+01_jprb,4.2192e+01_jprb,4.3208e+01_jprb/)  
kbo( :, 3,38,14) = (/&
 & 8.0600e+01_jprb,8.0552e+01_jprb,6.0751e+01_jprb,4.5947e+01_jprb,3.9982e+01_jprb,4.1623e+01_jprb/)  
kbo( :, 4,38,14) = (/&
 & 8.1297e+01_jprb,8.1248e+01_jprb,6.1150e+01_jprb,4.5081e+01_jprb,3.7909e+01_jprb,4.0273e+01_jprb/)  
kbo( :, 5,38,14) = (/&
 & 8.1523e+01_jprb,8.1474e+01_jprb,6.1279e+01_jprb,4.4207e+01_jprb,3.5960e+01_jprb,3.8923e+01_jprb/)  
kbo( :, 1,39,14) = (/&
 & 7.6924e+01_jprb,7.6879e+01_jprb,5.8785e+01_jprb,4.8037e+01_jprb,4.5384e+01_jprb,4.6696e+01_jprb/)  
kbo( :, 2,39,14) = (/&
 & 7.8919e+01_jprb,7.8872e+01_jprb,5.9835e+01_jprb,4.7151e+01_jprb,4.2965e+01_jprb,4.4375e+01_jprb/)  
kbo( :, 3,39,14) = (/&
 & 8.0301e+01_jprb,8.0253e+01_jprb,6.0596e+01_jprb,4.6264e+01_jprb,4.0694e+01_jprb,4.2894e+01_jprb/)  
kbo( :, 4,39,14) = (/&
 & 8.1135e+01_jprb,8.1087e+01_jprb,6.1060e+01_jprb,4.5380e+01_jprb,3.8551e+01_jprb,4.1533e+01_jprb/)  
kbo( :, 5,39,14) = (/&
 & 8.1498e+01_jprb,8.1449e+01_jprb,6.1268e+01_jprb,4.4494e+01_jprb,3.6550e+01_jprb,4.0180e+01_jprb/)  
kbo( :, 1,40,14) = (/&
 & 7.6003e+01_jprb,7.5957e+01_jprb,5.8367e+01_jprb,4.8484e+01_jprb,4.6448e+01_jprb,4.7942e+01_jprb/)  
kbo( :, 2,40,14) = (/&
 & 7.8250e+01_jprb,7.8203e+01_jprb,5.9505e+01_jprb,4.7557e+01_jprb,4.3937e+01_jprb,4.5516e+01_jprb/)  
kbo( :, 3,40,14) = (/&
 & 7.9849e+01_jprb,7.9801e+01_jprb,6.0362e+01_jprb,4.6641e+01_jprb,4.1586e+01_jprb,4.3950e+01_jprb/)  
kbo( :, 4,40,14) = (/&
 & 8.0899e+01_jprb,8.0851e+01_jprb,6.0936e+01_jprb,4.5752e+01_jprb,3.9370e+01_jprb,4.2576e+01_jprb/)  
kbo( :, 5,40,14) = (/&
 & 8.1420e+01_jprb,8.1371e+01_jprb,6.1226e+01_jprb,4.4847e+01_jprb,3.7301e+01_jprb,4.1187e+01_jprb/)  
kbo( :, 1,41,14) = (/&
 & 7.5005e+01_jprb,7.4960e+01_jprb,5.7923e+01_jprb,4.8919e+01_jprb,4.7504e+01_jprb,4.9183e+01_jprb/)  
kbo( :, 2,41,14) = (/&
 & 7.7512e+01_jprb,7.7466e+01_jprb,5.9150e+01_jprb,4.7955e+01_jprb,4.4905e+01_jprb,4.6631e+01_jprb/)  
kbo( :, 3,41,14) = (/&
 & 7.9348e+01_jprb,7.9301e+01_jprb,6.0108e+01_jprb,4.7025e+01_jprb,4.2473e+01_jprb,4.4967e+01_jprb/)  
kbo( :, 4,41,14) = (/&
 & 8.0591e+01_jprb,8.0543e+01_jprb,6.0779e+01_jprb,4.6109e+01_jprb,4.0189e+01_jprb,4.3586e+01_jprb/)  
kbo( :, 5,41,14) = (/&
 & 8.1296e+01_jprb,8.1247e+01_jprb,6.1167e+01_jprb,4.5201e+01_jprb,3.8056e+01_jprb,4.2157e+01_jprb/)  
kbo( :, 1,42,14) = (/&
 & 7.3966e+01_jprb,7.3922e+01_jprb,5.7469e+01_jprb,4.9337e+01_jprb,4.8525e+01_jprb,5.0393e+01_jprb/)  
kbo( :, 2,42,14) = (/&
 & 7.6721e+01_jprb,7.6675e+01_jprb,5.8783e+01_jprb,4.8336e+01_jprb,4.5846e+01_jprb,4.7757e+01_jprb/)  
kbo( :, 3,42,14) = (/&
 & 7.8788e+01_jprb,7.8741e+01_jprb,5.9830e+01_jprb,4.7390e+01_jprb,4.3338e+01_jprb,4.6001e+01_jprb/)  
kbo( :, 4,42,14) = (/&
 & 8.0252e+01_jprb,8.0204e+01_jprb,6.0610e+01_jprb,4.6463e+01_jprb,4.0990e+01_jprb,4.4619e+01_jprb/)  

IF (lhook) CALL dr_hook('RRTM_KGB4:PART33',1,zhook_handle)
END SUBROUTINE part33


SUBROUTINE part34

REAL(KIND=JPRB) :: ZHOOK_HANDLE
IF (lhook) CALL dr_hook('RRTM_KGB4:PART34',0,zhook_handle)


kbo( :, 5,42,14) = (/&
 & 8.1117e+01_jprb,8.1069e+01_jprb,6.1079e+01_jprb,4.5535e+01_jprb,3.8790e+01_jprb,4.3153e+01_jprb/)  
kbo( :, 1,43,14) = (/&
 & 7.2705e+01_jprb,7.2662e+01_jprb,5.6918e+01_jprb,4.9800e+01_jprb,4.9669e+01_jprb,5.1746e+01_jprb/)  
kbo( :, 2,43,14) = (/&
 & 7.5730e+01_jprb,7.5685e+01_jprb,5.8326e+01_jprb,4.8759e+01_jprb,4.6917e+01_jprb,4.8987e+01_jprb/)  
kbo( :, 3,43,14) = (/&
 & 7.8083e+01_jprb,7.8037e+01_jprb,5.9488e+01_jprb,4.7800e+01_jprb,4.4326e+01_jprb,4.7090e+01_jprb/)  
kbo( :, 4,43,14) = (/&
 & 7.9761e+01_jprb,7.9714e+01_jprb,6.0355e+01_jprb,4.6841e+01_jprb,4.1904e+01_jprb,4.5691e+01_jprb/)  
kbo( :, 5,43,14) = (/&
 & 8.0847e+01_jprb,8.0799e+01_jprb,6.0937e+01_jprb,4.5910e+01_jprb,3.9634e+01_jprb,4.4206e+01_jprb/)  
kbo( :, 1,44,14) = (/&
 & 7.1287e+01_jprb,7.1245e+01_jprb,5.6316e+01_jprb,5.0292e+01_jprb,5.0887e+01_jprb,5.3170e+01_jprb/)  
kbo( :, 2,44,14) = (/&
 & 7.4599e+01_jprb,7.4555e+01_jprb,5.7821e+01_jprb,4.9215e+01_jprb,4.8047e+01_jprb,5.0291e+01_jprb/)  
kbo( :, 3,44,14) = (/&
 & 7.7237e+01_jprb,7.7191e+01_jprb,5.9077e+01_jprb,4.8209e+01_jprb,4.5375e+01_jprb,4.8245e+01_jprb/)  
kbo( :, 4,44,14) = (/&
 & 7.9186e+01_jprb,7.9139e+01_jprb,6.0066e+01_jprb,4.7254e+01_jprb,4.2877e+01_jprb,4.6818e+01_jprb/)  
kbo( :, 5,44,14) = (/&
 & 8.0509e+01_jprb,8.0461e+01_jprb,6.0765e+01_jprb,4.6310e+01_jprb,4.0533e+01_jprb,4.5323e+01_jprb/)  
kbo( :, 1,45,14) = (/&
 & 6.9761e+01_jprb,6.9720e+01_jprb,5.5680e+01_jprb,5.0779e+01_jprb,5.2112e+01_jprb,5.4609e+01_jprb/)  
kbo( :, 2,45,14) = (/&
 & 7.3387e+01_jprb,7.3344e+01_jprb,5.7284e+01_jprb,4.9658e+01_jprb,4.9177e+01_jprb,5.1651e+01_jprb/)  
kbo( :, 3,45,14) = (/&
 & 7.6302e+01_jprb,7.6257e+01_jprb,5.8639e+01_jprb,4.8623e+01_jprb,4.6419e+01_jprb,4.9491e+01_jprb/)  
kbo( :, 4,45,14) = (/&
 & 7.8515e+01_jprb,7.8468e+01_jprb,5.9732e+01_jprb,4.7651e+01_jprb,4.3843e+01_jprb,4.8016e+01_jprb/)  
kbo( :, 5,45,14) = (/&
 & 8.0070e+01_jprb,8.0022e+01_jprb,6.0538e+01_jprb,4.6688e+01_jprb,4.1436e+01_jprb,4.6520e+01_jprb/)  
kbo( :, 1,46,14) = (/&
 & 6.8043e+01_jprb,6.8003e+01_jprb,5.4978e+01_jprb,5.1296e+01_jprb,5.3415e+01_jprb,5.6131e+01_jprb/)  
kbo( :, 2,46,14) = (/&
 & 7.2020e+01_jprb,7.1978e+01_jprb,5.6693e+01_jprb,5.0128e+01_jprb,5.0366e+01_jprb,5.3081e+01_jprb/)  
kbo( :, 3,46,14) = (/&
 & 7.5220e+01_jprb,7.5175e+01_jprb,5.8142e+01_jprb,4.9054e+01_jprb,4.7529e+01_jprb,5.0825e+01_jprb/)  
kbo( :, 4,46,14) = (/&
 & 7.7714e+01_jprb,7.7668e+01_jprb,5.9339e+01_jprb,4.8058e+01_jprb,4.4874e+01_jprb,4.9267e+01_jprb/)  
kbo( :, 5,46,14) = (/&
 & 7.9534e+01_jprb,7.9486e+01_jprb,6.0264e+01_jprb,4.7084e+01_jprb,4.2395e+01_jprb,4.7792e+01_jprb/)  
kbo( :, 1,47,14) = (/&
 & 6.6054e+01_jprb,6.6015e+01_jprb,5.4183e+01_jprb,5.1903e+01_jprb,5.4894e+01_jprb,5.7778e+01_jprb/)  
kbo( :, 2,47,14) = (/&
 & 7.0378e+01_jprb,7.0336e+01_jprb,5.5996e+01_jprb,5.0654e+01_jprb,5.1707e+01_jprb,5.4608e+01_jprb/)  
kbo( :, 3,47,14) = (/&
 & 7.3908e+01_jprb,7.3864e+01_jprb,5.7556e+01_jprb,4.9537e+01_jprb,4.8774e+01_jprb,5.2210e+01_jprb/)  
kbo( :, 4,47,14) = (/&
 & 7.6726e+01_jprb,7.6681e+01_jprb,5.8866e+01_jprb,4.8503e+01_jprb,4.6033e+01_jprb,5.0483e+01_jprb/)  
kbo( :, 5,47,14) = (/&
 & 7.8817e+01_jprb,7.8770e+01_jprb,5.9899e+01_jprb,4.7521e+01_jprb,4.3467e+01_jprb,4.9057e+01_jprb/)  
kbo( :, 1,48,14) = (/&
 & 6.3955e+01_jprb,6.3917e+01_jprb,5.3354e+01_jprb,5.2548e+01_jprb,5.6389e+01_jprb,5.9437e+01_jprb/)  
kbo( :, 2,48,14) = (/&
 & 6.8594e+01_jprb,6.8553e+01_jprb,5.5256e+01_jprb,5.1194e+01_jprb,5.3073e+01_jprb,5.6223e+01_jprb/)  
kbo( :, 3,48,14) = (/&
 & 7.2478e+01_jprb,7.2435e+01_jprb,5.6928e+01_jprb,5.0025e+01_jprb,5.0034e+01_jprb,5.3708e+01_jprb/)  
kbo( :, 4,48,14) = (/&
 & 7.5613e+01_jprb,7.5568e+01_jprb,5.8350e+01_jprb,4.8962e+01_jprb,4.7206e+01_jprb,5.1823e+01_jprb/)  
kbo( :, 5,48,14) = (/&
 & 7.8004e+01_jprb,7.7958e+01_jprb,5.9498e+01_jprb,4.7959e+01_jprb,4.4557e+01_jprb,5.0435e+01_jprb/)  
kbo( :, 1,49,14) = (/&
 & 6.1733e+01_jprb,6.1696e+01_jprb,5.2490e+01_jprb,5.3233e+01_jprb,5.7911e+01_jprb,6.1164e+01_jprb/)  
kbo( :, 2,49,14) = (/&
 & 6.6686e+01_jprb,6.6647e+01_jprb,5.4483e+01_jprb,5.1761e+01_jprb,5.4482e+01_jprb,5.7948e+01_jprb/)  
kbo( :, 3,49,14) = (/&
 & 7.0933e+01_jprb,7.0891e+01_jprb,5.6270e+01_jprb,5.0531e+01_jprb,5.1319e+01_jprb,5.5363e+01_jprb/)  
kbo( :, 4,49,14) = (/&
 & 7.4366e+01_jprb,7.4322e+01_jprb,5.7787e+01_jprb,4.9421e+01_jprb,4.8403e+01_jprb,5.3357e+01_jprb/)  
kbo( :, 5,49,14) = (/&
 & 7.7078e+01_jprb,7.7033e+01_jprb,5.9049e+01_jprb,4.8386e+01_jprb,4.5673e+01_jprb,5.2019e+01_jprb/)  
kbo( :, 1,50,14) = (/&
 & 5.9556e+01_jprb,5.9521e+01_jprb,5.1669e+01_jprb,5.3919e+01_jprb,5.9382e+01_jprb,6.2781e+01_jprb/)  
kbo( :, 2,50,14) = (/&
 & 6.4814e+01_jprb,6.4775e+01_jprb,5.3744e+01_jprb,5.2339e+01_jprb,5.5844e+01_jprb,5.9493e+01_jprb/)  
kbo( :, 3,50,14) = (/&
 & 6.9336e+01_jprb,6.9295e+01_jprb,5.5596e+01_jprb,5.1013e+01_jprb,5.2559e+01_jprb,5.6778e+01_jprb/)  
kbo( :, 4,50,14) = (/&
 & 7.3091e+01_jprb,7.3048e+01_jprb,5.7225e+01_jprb,4.9862e+01_jprb,4.9551e+01_jprb,5.4617e+01_jprb/)  
kbo( :, 5,50,14) = (/&
 & 7.6098e+01_jprb,7.6053e+01_jprb,5.8589e+01_jprb,4.8799e+01_jprb,4.6739e+01_jprb,5.3303e+01_jprb/)  
kbo( :, 1,51,14) = (/&
 & 5.7367e+01_jprb,5.7333e+01_jprb,5.0871e+01_jprb,5.4612e+01_jprb,6.0840e+01_jprb,6.4373e+01_jprb/)  
kbo( :, 2,51,14) = (/&
 & 6.2885e+01_jprb,6.2848e+01_jprb,5.2984e+01_jprb,5.2932e+01_jprb,5.7187e+01_jprb,6.0966e+01_jprb/)  
kbo( :, 3,51,14) = (/&
 & 6.7687e+01_jprb,6.7647e+01_jprb,5.4925e+01_jprb,5.1505e+01_jprb,5.3793e+01_jprb,5.8080e+01_jprb/)  
kbo( :, 4,51,14) = (/&
 & 7.1761e+01_jprb,7.1718e+01_jprb,5.6647e+01_jprb,5.0300e+01_jprb,5.0681e+01_jprb,5.5789e+01_jprb/)  
kbo( :, 5,51,14) = (/&
 & 7.5046e+01_jprb,7.5001e+01_jprb,5.8108e+01_jprb,4.9204e+01_jprb,4.7793e+01_jprb,5.4431e+01_jprb/)  
kbo( :, 1,52,14) = (/&
 & 5.5098e+01_jprb,5.5065e+01_jprb,5.0074e+01_jprb,5.5358e+01_jprb,6.2317e+01_jprb,6.6056e+01_jprb/)  
kbo( :, 2,52,14) = (/&
 & 6.0852e+01_jprb,6.0816e+01_jprb,5.2195e+01_jprb,5.3549e+01_jprb,5.8551e+01_jprb,6.2483e+01_jprb/)  
kbo( :, 3,52,14) = (/&
 & 6.5953e+01_jprb,6.5914e+01_jprb,5.4229e+01_jprb,5.2028e+01_jprb,5.5063e+01_jprb,5.9490e+01_jprb/)  
kbo( :, 4,52,14) = (/&
 & 7.0320e+01_jprb,7.0278e+01_jprb,5.6036e+01_jprb,5.0747e+01_jprb,5.1835e+01_jprb,5.7114e+01_jprb/)  
kbo( :, 5,52,14) = (/&
 & 7.3892e+01_jprb,7.3848e+01_jprb,5.7595e+01_jprb,4.9618e+01_jprb,4.8874e+01_jprb,5.5672e+01_jprb/)  
kbo( :, 1,53,14) = (/&
 & 5.2721e+01_jprb,5.2690e+01_jprb,4.9263e+01_jprb,5.6120e+01_jprb,6.3814e+01_jprb,6.7766e+01_jprb/)  
kbo( :, 2,53,14) = (/&
 & 5.8756e+01_jprb,5.8721e+01_jprb,5.1411e+01_jprb,5.4211e+01_jprb,5.9956e+01_jprb,6.4072e+01_jprb/)  
kbo( :, 3,53,14) = (/&
 & 6.4126e+01_jprb,6.4088e+01_jprb,5.3502e+01_jprb,5.2588e+01_jprb,5.6365e+01_jprb,6.1039e+01_jprb/)  
kbo( :, 4,53,14) = (/&
 & 6.8738e+01_jprb,6.8697e+01_jprb,5.5371e+01_jprb,5.1205e+01_jprb,5.3025e+01_jprb,5.8602e+01_jprb/)  
kbo( :, 5,53,14) = (/&
 & 7.2636e+01_jprb,7.2593e+01_jprb,5.7041e+01_jprb,5.0037e+01_jprb,4.9973e+01_jprb,5.7127e+01_jprb/)  
kbo( :, 1,54,14) = (/&
 & 5.0488e+01_jprb,5.0458e+01_jprb,4.8529e+01_jprb,5.6862e+01_jprb,6.5226e+01_jprb,6.9287e+01_jprb/)  
kbo( :, 2,54,14) = (/&
 & 5.6752e+01_jprb,5.6718e+01_jprb,5.0683e+01_jprb,5.4841e+01_jprb,6.1279e+01_jprb,6.5223e+01_jprb/)  
kbo( :, 3,54,14) = (/&
 & 6.2359e+01_jprb,6.2322e+01_jprb,5.2805e+01_jprb,5.3124e+01_jprb,5.7582e+01_jprb,6.2132e+01_jprb/)  
kbo( :, 4,54,14) = (/&
 & 6.7239e+01_jprb,6.7199e+01_jprb,5.4766e+01_jprb,5.1664e+01_jprb,5.4149e+01_jprb,5.9478e+01_jprb/)  
kbo( :, 5,54,14) = (/&
 & 7.1401e+01_jprb,7.1358e+01_jprb,5.6510e+01_jprb,5.0433e+01_jprb,5.0999e+01_jprb,5.7575e+01_jprb/)  
kbo( :, 1,55,14) = (/&
 & 4.8301e+01_jprb,4.8272e+01_jprb,4.7833e+01_jprb,5.7595e+01_jprb,6.6585e+01_jprb,7.0689e+01_jprb/)  
kbo( :, 2,55,14) = (/&
 & 5.4769e+01_jprb,5.4736e+01_jprb,4.9988e+01_jprb,5.5495e+01_jprb,6.2560e+01_jprb,6.6385e+01_jprb/)  
kbo( :, 3,55,14) = (/&
 & 6.0573e+01_jprb,6.0537e+01_jprb,5.2112e+01_jprb,5.3664e+01_jprb,5.8770e+01_jprb,6.2943e+01_jprb/)  
kbo( :, 4,55,14) = (/&
 & 6.5713e+01_jprb,6.5674e+01_jprb,5.4151e+01_jprb,5.2119e+01_jprb,5.5258e+01_jprb,6.0010e+01_jprb/)  
kbo( :, 5,55,14) = (/&
 & 7.0126e+01_jprb,7.0084e+01_jprb,5.5970e+01_jprb,5.0826e+01_jprb,5.2008e+01_jprb,5.7678e+01_jprb/)  
kbo( :, 1,56,14) = (/&
 & 4.6079e+01_jprb,4.6051e+01_jprb,4.7176e+01_jprb,5.8356e+01_jprb,6.7969e+01_jprb,7.2050e+01_jprb/)  
kbo( :, 2,56,14) = (/&
 & 5.2701e+01_jprb,5.2670e+01_jprb,4.9282e+01_jprb,5.6152e+01_jprb,6.3857e+01_jprb,6.7749e+01_jprb/)  
kbo( :, 3,56,14) = (/&
 & 5.8754e+01_jprb,5.8720e+01_jprb,5.1436e+01_jprb,5.4239e+01_jprb,5.9985e+01_jprb,6.3792e+01_jprb/)  
kbo( :, 4,56,14) = (/&
 & 6.4130e+01_jprb,6.4092e+01_jprb,5.3523e+01_jprb,5.2605e+01_jprb,5.6386e+01_jprb,6.0677e+01_jprb/)  
kbo( :, 5,56,14) = (/&
 & 6.8768e+01_jprb,6.8727e+01_jprb,5.5406e+01_jprb,5.1229e+01_jprb,5.3042e+01_jprb,5.8111e+01_jprb/)  
kbo( :, 1,57,14) = (/&
 & 4.3796e+01_jprb,4.3770e+01_jprb,4.6545e+01_jprb,5.9133e+01_jprb,6.9380e+01_jprb,7.3404e+01_jprb/)  
kbo( :, 2,57,14) = (/&
 & 5.0589e+01_jprb,5.0559e+01_jprb,4.8583e+01_jprb,5.6850e+01_jprb,6.5189e+01_jprb,6.9103e+01_jprb/)  
kbo( :, 3,57,14) = (/&
 & 5.6860e+01_jprb,5.6826e+01_jprb,5.0745e+01_jprb,5.4829e+01_jprb,6.1234e+01_jprb,6.4852e+01_jprb/)  
kbo( :, 4,57,14) = (/&
 & 6.2462e+01_jprb,6.2424e+01_jprb,5.2862e+01_jprb,5.3112e+01_jprb,5.7531e+01_jprb,6.1451e+01_jprb/)  
kbo( :, 5,57,14) = (/&
 & 6.7340e+01_jprb,6.7300e+01_jprb,5.4823e+01_jprb,5.1656e+01_jprb,5.4098e+01_jprb,5.8580e+01_jprb/)  
kbo( :, 1,58,14) = (/&
 & 4.1597e+01_jprb,4.1573e+01_jprb,4.5980e+01_jprb,5.9890e+01_jprb,7.0733e+01_jprb,7.4721e+01_jprb/)  
kbo( :, 2,58,14) = (/&
 & 4.8541e+01_jprb,4.8512e+01_jprb,4.7924e+01_jprb,5.7530e+01_jprb,6.6457e+01_jprb,7.0297e+01_jprb/)  
kbo( :, 3,58,14) = (/&
 & 5.5001e+01_jprb,5.4968e+01_jprb,5.0085e+01_jprb,5.5434e+01_jprb,6.2433e+01_jprb,6.6096e+01_jprb/)  
kbo( :, 4,58,14) = (/&
 & 6.0796e+01_jprb,6.0760e+01_jprb,5.2213e+01_jprb,5.3615e+01_jprb,5.8644e+01_jprb,6.2188e+01_jprb/)  
kbo( :, 5,58,14) = (/&
 & 6.5915e+01_jprb,6.5876e+01_jprb,5.4248e+01_jprb,5.2078e+01_jprb,5.5135e+01_jprb,5.9028e+01_jprb/)  
kbo( :, 1,59,14) = (/&
 & 4.0694e+01_jprb,4.0670e+01_jprb,4.5769e+01_jprb,6.0220e+01_jprb,7.1303e+01_jprb,7.5294e+01_jprb/)  
kbo( :, 2,59,14) = (/&
 & 4.7704e+01_jprb,4.7676e+01_jprb,4.7670e+01_jprb,5.7820e+01_jprb,6.6989e+01_jprb,7.0669e+01_jprb/)  
kbo( :, 3,59,14) = (/&
 & 5.4223e+01_jprb,5.4191e+01_jprb,4.9817e+01_jprb,5.5687e+01_jprb,6.2924e+01_jprb,6.6331e+01_jprb/)  
kbo( :, 4,59,14) = (/&
 & 6.0110e+01_jprb,6.0074e+01_jprb,5.1957e+01_jprb,5.3831e+01_jprb,5.9105e+01_jprb,6.2224e+01_jprb/)  
kbo( :, 5,59,14) = (/&
 & 6.5318e+01_jprb,6.5279e+01_jprb,5.4011e+01_jprb,5.2258e+01_jprb,5.5565e+01_jprb,5.8638e+01_jprb/)  
kbo( :, 1,13,15) = (/&
 & 3.6131e+01_jprb,3.6111e+01_jprb,2.7504e+01_jprb,1.8893e+01_jprb,1.0455e+01_jprb,8.3589e+00_jprb/)  
kbo( :, 2,13,15) = (/&
 & 3.5587e+01_jprb,3.5567e+01_jprb,2.7173e+01_jprb,1.8796e+01_jprb,1.0430e+01_jprb,8.1741e+00_jprb/)  
kbo( :, 3,13,15) = (/&
 & 3.5232e+01_jprb,3.5212e+01_jprb,2.6920e+01_jprb,1.8645e+01_jprb,1.0345e+01_jprb,8.4671e+00_jprb/)  
kbo( :, 4,13,15) = (/&
 & 3.5001e+01_jprb,3.4981e+01_jprb,2.6729e+01_jprb,1.8467e+01_jprb,1.0232e+01_jprb,9.0834e+00_jprb/)  
kbo( :, 5,13,15) = (/&
 & 3.4785e+01_jprb,3.4765e+01_jprb,2.6543e+01_jprb,1.8302e+01_jprb,1.0125e+01_jprb,1.1028e+01_jprb/)  
kbo( :, 1,14,15) = (/&
 & 4.1079e+01_jprb,4.1055e+01_jprb,3.1300e+01_jprb,2.1582e+01_jprb,1.1853e+01_jprb,9.3349e+00_jprb/)  
kbo( :, 2,14,15) = (/&
 & 4.0876e+01_jprb,4.0852e+01_jprb,3.1181e+01_jprb,2.1527e+01_jprb,1.1831e+01_jprb,9.0870e+00_jprb/)  
kbo( :, 3,14,15) = (/&
 & 4.0794e+01_jprb,4.0770e+01_jprb,3.1110e+01_jprb,2.1447e+01_jprb,1.1767e+01_jprb,9.0396e+00_jprb/)  
kbo( :, 4,14,15) = (/&
 & 4.0674e+01_jprb,4.0650e+01_jprb,3.1006e+01_jprb,2.1331e+01_jprb,1.1685e+01_jprb,9.1026e+00_jprb/)  
kbo( :, 5,14,15) = (/&
 & 4.0556e+01_jprb,4.0533e+01_jprb,3.0850e+01_jprb,2.1168e+01_jprb,1.1577e+01_jprb,9.5160e+00_jprb/)  
kbo( :, 1,15,15) = (/&
 & 4.7326e+01_jprb,4.7299e+01_jprb,3.6027e+01_jprb,2.4785e+01_jprb,1.3503e+01_jprb,1.0407e+01_jprb/)  
kbo( :, 2,15,15) = (/&
 & 4.7413e+01_jprb,4.7386e+01_jprb,3.6106e+01_jprb,2.4831e+01_jprb,1.3509e+01_jprb,1.0116e+01_jprb/)  
kbo( :, 3,15,15) = (/&
 & 4.7425e+01_jprb,4.7398e+01_jprb,3.6101e+01_jprb,2.4790e+01_jprb,1.3473e+01_jprb,9.8259e+00_jprb/)  
kbo( :, 4,15,15) = (/&
 & 4.7432e+01_jprb,4.7405e+01_jprb,3.6056e+01_jprb,2.4680e+01_jprb,1.3388e+01_jprb,9.8639e+00_jprb/)  
kbo( :, 5,15,15) = (/&
 & 4.7370e+01_jprb,4.7342e+01_jprb,3.5942e+01_jprb,2.4552e+01_jprb,1.3257e+01_jprb,9.8173e+00_jprb/)  
kbo( :, 1,16,15) = (/&
 & 5.4875e+01_jprb,5.4844e+01_jprb,4.1702e+01_jprb,2.8578e+01_jprb,1.5437e+01_jprb,1.1664e+01_jprb/)  
kbo( :, 2,16,15) = (/&
 & 5.5032e+01_jprb,5.5000e+01_jprb,4.1823e+01_jprb,2.8656e+01_jprb,1.5467e+01_jprb,1.1353e+01_jprb/)  
kbo( :, 3,16,15) = (/&
 & 5.5199e+01_jprb,5.5167e+01_jprb,4.1916e+01_jprb,2.8637e+01_jprb,1.5432e+01_jprb,1.1037e+01_jprb/)  
kbo( :, 4,16,15) = (/&
 & 5.5276e+01_jprb,5.5244e+01_jprb,4.1910e+01_jprb,2.8561e+01_jprb,1.5341e+01_jprb,1.0976e+01_jprb/)  
kbo( :, 5,16,15) = (/&
 & 5.5278e+01_jprb,5.5245e+01_jprb,4.1857e+01_jprb,2.8461e+01_jprb,1.5222e+01_jprb,1.0876e+01_jprb/)  
kbo( :, 1,17,15) = (/&
 & 6.3573e+01_jprb,6.3536e+01_jprb,4.8216e+01_jprb,3.2905e+01_jprb,1.7651e+01_jprb,1.3317e+01_jprb/)  
kbo( :, 2,17,15) = (/&
 & 6.3845e+01_jprb,6.3808e+01_jprb,4.8400e+01_jprb,3.2984e+01_jprb,1.7690e+01_jprb,1.2970e+01_jprb/)  
kbo( :, 3,17,15) = (/&
 & 6.4023e+01_jprb,6.3985e+01_jprb,4.8498e+01_jprb,3.2989e+01_jprb,1.7656e+01_jprb,1.2620e+01_jprb/)  
kbo( :, 4,17,15) = (/&
 & 6.4166e+01_jprb,6.4129e+01_jprb,4.8557e+01_jprb,3.2962e+01_jprb,1.7567e+01_jprb,1.2436e+01_jprb/)  
kbo( :, 5,17,15) = (/&
 & 6.4111e+01_jprb,6.4073e+01_jprb,4.8467e+01_jprb,3.2855e+01_jprb,1.7451e+01_jprb,1.2281e+01_jprb/)  
kbo( :, 1,18,15) = (/&
 & 7.3440e+01_jprb,7.3397e+01_jprb,5.5592e+01_jprb,3.7776e+01_jprb,2.0119e+01_jprb,1.5329e+01_jprb/)  
kbo( :, 2,18,15) = (/&
 & 7.3743e+01_jprb,7.3700e+01_jprb,5.5787e+01_jprb,3.7865e+01_jprb,2.0169e+01_jprb,1.4924e+01_jprb/)  
kbo( :, 3,18,15) = (/&
 & 7.3962e+01_jprb,7.3919e+01_jprb,5.5904e+01_jprb,3.7908e+01_jprb,2.0135e+01_jprb,1.4518e+01_jprb/)  
kbo( :, 4,18,15) = (/&
 & 7.3953e+01_jprb,7.3909e+01_jprb,5.5863e+01_jprb,3.7855e+01_jprb,2.0062e+01_jprb,1.4197e+01_jprb/)  
kbo( :, 5,18,15) = (/&
 & 7.3825e+01_jprb,7.3781e+01_jprb,5.5741e+01_jprb,3.7729e+01_jprb,1.9926e+01_jprb,1.3956e+01_jprb/)  
kbo( :, 1,19,15) = (/&
 & 8.4462e+01_jprb,8.4413e+01_jprb,6.3820e+01_jprb,4.3253e+01_jprb,2.2902e+01_jprb,1.7600e+01_jprb/)  
kbo( :, 2,19,15) = (/&
 & 8.4860e+01_jprb,8.4810e+01_jprb,6.4094e+01_jprb,4.3382e+01_jprb,2.2923e+01_jprb,1.7125e+01_jprb/)  
kbo( :, 3,19,15) = (/&
 & 8.4963e+01_jprb,8.4913e+01_jprb,6.4146e+01_jprb,4.3401e+01_jprb,2.2894e+01_jprb,1.6619e+01_jprb/)  
kbo( :, 4,19,15) = (/&
 & 8.4919e+01_jprb,8.4869e+01_jprb,6.4089e+01_jprb,4.3332e+01_jprb,2.2791e+01_jprb,1.6133e+01_jprb/)  
kbo( :, 5,19,15) = (/&
 & 8.4612e+01_jprb,8.4563e+01_jprb,6.3846e+01_jprb,4.3142e+01_jprb,2.2633e+01_jprb,1.5830e+01_jprb/)  
kbo( :, 1,20,15) = (/&
 & 9.7043e+01_jprb,9.6986e+01_jprb,7.3234e+01_jprb,4.9485e+01_jprb,2.5962e+01_jprb,2.0077e+01_jprb/)  
kbo( :, 2,20,15) = (/&
 & 9.7332e+01_jprb,9.7275e+01_jprb,7.3444e+01_jprb,4.9611e+01_jprb,2.5984e+01_jprb,1.9505e+01_jprb/)  
kbo( :, 3,20,15) = (/&
 & 9.7370e+01_jprb,9.7313e+01_jprb,7.3448e+01_jprb,4.9583e+01_jprb,2.5915e+01_jprb,1.8890e+01_jprb/)  
kbo( :, 4,20,15) = (/&
 & 9.7125e+01_jprb,9.7068e+01_jprb,7.3251e+01_jprb,4.9424e+01_jprb,2.5774e+01_jprb,1.8285e+01_jprb/)  
kbo( :, 5,20,15) = (/&
 & 9.6643e+01_jprb,9.6586e+01_jprb,7.2853e+01_jprb,4.9111e+01_jprb,2.5548e+01_jprb,1.7915e+01_jprb/)  
kbo( :, 1,21,15) = (/&
 & 1.1092e+02_jprb,1.1085e+02_jprb,8.3649e+01_jprb,5.6418e+01_jprb,2.9378e+01_jprb,2.2812e+01_jprb/)  
kbo( :, 2,21,15) = (/&
 & 1.1109e+02_jprb,1.1103e+02_jprb,8.3756e+01_jprb,5.6460e+01_jprb,2.9344e+01_jprb,2.2156e+01_jprb/)  
kbo( :, 3,21,15) = (/&
 & 1.1096e+02_jprb,1.1089e+02_jprb,8.3624e+01_jprb,5.6337e+01_jprb,2.9225e+01_jprb,2.1484e+01_jprb/)  
kbo( :, 4,21,15) = (/&
 & 1.1048e+02_jprb,1.1042e+02_jprb,8.3238e+01_jprb,5.6034e+01_jprb,2.9000e+01_jprb,2.0793e+01_jprb/)  
kbo( :, 5,21,15) = (/&
 & 1.0971e+02_jprb,1.0964e+02_jprb,8.2635e+01_jprb,5.5599e+01_jprb,2.8723e+01_jprb,2.0338e+01_jprb/)  
kbo( :, 1,22,15) = (/&
 & 1.2596e+02_jprb,1.2589e+02_jprb,9.4893e+01_jprb,6.3871e+01_jprb,3.3059e+01_jprb,2.5998e+01_jprb/)  
kbo( :, 2,22,15) = (/&
 & 1.2587e+02_jprb,1.2580e+02_jprb,9.4816e+01_jprb,6.3793e+01_jprb,3.2943e+01_jprb,2.5227e+01_jprb/)  
kbo( :, 3,22,15) = (/&
 & 1.2541e+02_jprb,1.2533e+02_jprb,9.4434e+01_jprb,6.3497e+01_jprb,3.2730e+01_jprb,2.4435e+01_jprb/)  
kbo( :, 4,22,15) = (/&
 & 1.2461e+02_jprb,1.2453e+02_jprb,9.3802e+01_jprb,6.3040e+01_jprb,3.2441e+01_jprb,2.3619e+01_jprb/)  
kbo( :, 5,22,15) = (/&
 & 1.2345e+02_jprb,1.2338e+02_jprb,9.2915e+01_jprb,6.2412e+01_jprb,3.2063e+01_jprb,2.3036e+01_jprb/)  
kbo( :, 1,23,15) = (/&
 & 1.4197e+02_jprb,1.4188e+02_jprb,1.0687e+02_jprb,7.1809e+01_jprb,3.7052e+01_jprb,2.9587e+01_jprb/)  
kbo( :, 2,23,15) = (/&
 & 1.4145e+02_jprb,1.4137e+02_jprb,1.0646e+02_jprb,7.1497e+01_jprb,3.6788e+01_jprb,2.8648e+01_jprb/)  
kbo( :, 3,23,15) = (/&
 & 1.4055e+02_jprb,1.4047e+02_jprb,1.0576e+02_jprb,7.1003e+01_jprb,3.6445e+01_jprb,2.7684e+01_jprb/)  
kbo( :, 4,23,15) = (/&
 & 1.3924e+02_jprb,1.3916e+02_jprb,1.0475e+02_jprb,7.0305e+01_jprb,3.6030e+01_jprb,2.6707e+01_jprb/)  
kbo( :, 5,23,15) = (/&
 & 1.3763e+02_jprb,1.3754e+02_jprb,1.0352e+02_jprb,6.9448e+01_jprb,3.5536e+01_jprb,2.5941e+01_jprb/)  
kbo( :, 1,24,15) = (/&
 & 1.5875e+02_jprb,1.5866e+02_jprb,1.1943e+02_jprb,8.0138e+01_jprb,4.1339e+01_jprb,3.3488e+01_jprb/)  
kbo( :, 2,24,15) = (/&
 & 1.5772e+02_jprb,1.5762e+02_jprb,1.1862e+02_jprb,7.9566e+01_jprb,4.0871e+01_jprb,3.2326e+01_jprb/)  
kbo( :, 3,24,15) = (/&
 & 1.5618e+02_jprb,1.5608e+02_jprb,1.1744e+02_jprb,7.8741e+01_jprb,4.0347e+01_jprb,3.1135e+01_jprb/)  
kbo( :, 4,24,15) = (/&
 & 1.5432e+02_jprb,1.5423e+02_jprb,1.1603e+02_jprb,7.7772e+01_jprb,3.9739e+01_jprb,2.9970e+01_jprb/)  

IF (lhook) CALL dr_hook('RRTM_KGB4:PART34',1,zhook_handle)
END SUBROUTINE part34


SUBROUTINE part35

REAL(KIND=JPRB) :: ZHOOK_HANDLE
IF (lhook) CALL dr_hook('RRTM_KGB4:PART35',0,zhook_handle)


kbo( :, 5,24,15) = (/&
 & 1.5201e+02_jprb,1.5192e+02_jprb,1.1428e+02_jprb,7.6577e+01_jprb,3.9078e+01_jprb,2.8958e+01_jprb/)  
kbo( :, 1,25,15) = (/&
 & 1.7605e+02_jprb,1.7595e+02_jprb,1.3237e+02_jprb,8.8710e+01_jprb,4.5816e+01_jprb,3.7592e+01_jprb/)  
kbo( :, 2,25,15) = (/&
 & 1.7422e+02_jprb,1.7412e+02_jprb,1.3097e+02_jprb,8.7758e+01_jprb,4.5131e+01_jprb,3.6159e+01_jprb/)  
kbo( :, 3,25,15) = (/&
 & 1.7201e+02_jprb,1.7191e+02_jprb,1.2929e+02_jprb,8.6602e+01_jprb,4.4346e+01_jprb,3.4734e+01_jprb/)  
kbo( :, 4,25,15) = (/&
 & 1.6938e+02_jprb,1.6928e+02_jprb,1.2730e+02_jprb,8.5245e+01_jprb,4.3518e+01_jprb,3.3295e+01_jprb/)  
kbo( :, 5,25,15) = (/&
 & 1.6630e+02_jprb,1.6620e+02_jprb,1.2498e+02_jprb,8.3665e+01_jprb,4.2629e+01_jprb,3.2020e+01_jprb/)  
kbo( :, 1,26,15) = (/&
 & 1.9312e+02_jprb,1.9300e+02_jprb,1.4513e+02_jprb,9.7167e+01_jprb,5.0350e+01_jprb,4.1741e+01_jprb/)  
kbo( :, 2,26,15) = (/&
 & 1.9055e+02_jprb,1.9044e+02_jprb,1.4319e+02_jprb,9.5848e+01_jprb,4.9379e+01_jprb,3.9996e+01_jprb/)  
kbo( :, 3,26,15) = (/&
 & 1.8750e+02_jprb,1.8738e+02_jprb,1.4088e+02_jprb,9.4283e+01_jprb,4.8328e+01_jprb,3.8277e+01_jprb/)  
kbo( :, 4,26,15) = (/&
 & 1.8390e+02_jprb,1.8379e+02_jprb,1.3817e+02_jprb,9.2456e+01_jprb,4.7225e+01_jprb,3.6567e+01_jprb/)  
kbo( :, 5,26,15) = (/&
 & 1.8004e+02_jprb,1.7993e+02_jprb,1.3525e+02_jprb,9.0479e+01_jprb,4.6075e+01_jprb,3.5023e+01_jprb/)  
kbo( :, 1,27,15) = (/&
 & 2.0962e+02_jprb,2.0950e+02_jprb,1.5747e+02_jprb,1.0535e+02_jprb,5.4802e+01_jprb,4.5812e+01_jprb/)  
kbo( :, 2,27,15) = (/&
 & 2.0617e+02_jprb,2.0605e+02_jprb,1.5487e+02_jprb,1.0359e+02_jprb,5.3500e+01_jprb,4.3722e+01_jprb/)  
kbo( :, 3,27,15) = (/&
 & 2.0210e+02_jprb,2.0198e+02_jprb,1.5180e+02_jprb,1.0153e+02_jprb,5.2160e+01_jprb,4.1668e+01_jprb/)  
kbo( :, 4,27,15) = (/&
 & 1.9765e+02_jprb,1.9753e+02_jprb,1.4844e+02_jprb,9.9264e+01_jprb,5.0764e+01_jprb,3.9657e+01_jprb/)  
kbo( :, 5,27,15) = (/&
 & 1.9285e+02_jprb,1.9273e+02_jprb,1.4483e+02_jprb,9.6837e+01_jprb,4.9332e+01_jprb,3.7870e+01_jprb/)  
kbo( :, 1,28,15) = (/&
 & 2.2504e+02_jprb,2.2491e+02_jprb,1.6900e+02_jprb,1.1299e+02_jprb,5.9023e+01_jprb,4.9671e+01_jprb/)  
kbo( :, 2,28,15) = (/&
 & 2.2060e+02_jprb,2.2047e+02_jprb,1.6566e+02_jprb,1.1075e+02_jprb,5.7389e+01_jprb,4.7215e+01_jprb/)  
kbo( :, 3,28,15) = (/&
 & 2.1560e+02_jprb,2.1547e+02_jprb,1.6190e+02_jprb,1.0822e+02_jprb,5.5706e+01_jprb,4.4816e+01_jprb/)  
kbo( :, 4,28,15) = (/&
 & 2.1015e+02_jprb,2.1002e+02_jprb,1.5779e+02_jprb,1.0547e+02_jprb,5.4003e+01_jprb,4.2483e+01_jprb/)  
kbo( :, 5,28,15) = (/&
 & 2.0436e+02_jprb,2.0424e+02_jprb,1.5344e+02_jprb,1.0255e+02_jprb,5.2316e+01_jprb,4.0478e+01_jprb/)  
kbo( :, 1,29,15) = (/&
 & 2.3909e+02_jprb,2.3895e+02_jprb,1.7950e+02_jprb,1.1994e+02_jprb,6.2884e+01_jprb,5.3166e+01_jprb/)  
kbo( :, 2,29,15) = (/&
 & 2.3356e+02_jprb,2.3342e+02_jprb,1.7535e+02_jprb,1.1717e+02_jprb,6.0903e+01_jprb,5.0319e+01_jprb/)  
kbo( :, 3,29,15) = (/&
 & 2.2760e+02_jprb,2.2747e+02_jprb,1.7088e+02_jprb,1.1417e+02_jprb,5.8870e+01_jprb,4.7588e+01_jprb/)  
kbo( :, 4,29,15) = (/&
 & 2.2117e+02_jprb,2.2104e+02_jprb,1.6604e+02_jprb,1.1094e+02_jprb,5.6871e+01_jprb,4.4984e+01_jprb/)  
kbo( :, 5,29,15) = (/&
 & 2.1449e+02_jprb,2.1436e+02_jprb,1.6102e+02_jprb,1.0757e+02_jprb,5.4912e+01_jprb,4.2890e+01_jprb/)  
kbo( :, 1,30,15) = (/&
 & 2.5146e+02_jprb,2.5131e+02_jprb,1.8876e+02_jprb,1.2608e+02_jprb,6.6304e+01_jprb,5.6220e+01_jprb/)  
kbo( :, 2,30,15) = (/&
 & 2.4482e+02_jprb,2.4467e+02_jprb,1.8377e+02_jprb,1.2275e+02_jprb,6.3959e+01_jprb,5.3007e+01_jprb/)  
kbo( :, 3,30,15) = (/&
 & 2.3792e+02_jprb,2.3777e+02_jprb,1.7859e+02_jprb,1.1929e+02_jprb,6.1625e+01_jprb,4.9952e+01_jprb/)  
kbo( :, 4,30,15) = (/&
 & 2.3061e+02_jprb,2.3047e+02_jprb,1.7311e+02_jprb,1.1562e+02_jprb,5.9353e+01_jprb,4.7238e+01_jprb/)  
kbo( :, 5,30,15) = (/&
 & 2.2308e+02_jprb,2.2295e+02_jprb,1.6746e+02_jprb,1.1184e+02_jprb,5.7116e+01_jprb,4.4978e+01_jprb/)  
kbo( :, 1,31,15) = (/&
 & 2.6202e+02_jprb,2.6186e+02_jprb,1.9666e+02_jprb,1.3132e+02_jprb,6.9199e+01_jprb,5.8789e+01_jprb/)  
kbo( :, 2,31,15) = (/&
 & 2.5437e+02_jprb,2.5422e+02_jprb,1.9092e+02_jprb,1.2749e+02_jprb,6.6513e+01_jprb,5.5233e+01_jprb/)  
kbo( :, 3,31,15) = (/&
 & 2.4648e+02_jprb,2.4634e+02_jprb,1.8501e+02_jprb,1.2354e+02_jprb,6.3925e+01_jprb,5.1946e+01_jprb/)  
kbo( :, 4,31,15) = (/&
 & 2.3838e+02_jprb,2.3824e+02_jprb,1.7892e+02_jprb,1.1948e+02_jprb,6.1400e+01_jprb,4.9329e+01_jprb/)  
kbo( :, 5,31,15) = (/&
 & 2.3010e+02_jprb,2.2996e+02_jprb,1.7271e+02_jprb,1.1532e+02_jprb,5.8925e+01_jprb,4.6712e+01_jprb/)  
kbo( :, 1,32,15) = (/&
 & 2.7074e+02_jprb,2.7057e+02_jprb,2.0319e+02_jprb,1.3565e+02_jprb,7.1571e+01_jprb,6.0821e+01_jprb/)  
kbo( :, 2,32,15) = (/&
 & 2.6218e+02_jprb,2.6203e+02_jprb,1.9677e+02_jprb,1.3137e+02_jprb,6.8590e+01_jprb,5.6967e+01_jprb/)  
kbo( :, 3,32,15) = (/&
 & 2.5343e+02_jprb,2.5328e+02_jprb,1.9020e+02_jprb,1.2698e+02_jprb,6.5765e+01_jprb,5.3801e+01_jprb/)  
kbo( :, 4,32,15) = (/&
 & 2.4457e+02_jprb,2.4443e+02_jprb,1.8356e+02_jprb,1.2255e+02_jprb,6.3014e+01_jprb,5.0945e+01_jprb/)  
kbo( :, 5,32,15) = (/&
 & 2.3559e+02_jprb,2.3545e+02_jprb,1.7681e+02_jprb,1.1805e+02_jprb,6.0339e+01_jprb,4.8062e+01_jprb/)  
kbo( :, 1,33,15) = (/&
 & 2.7764e+02_jprb,2.7748e+02_jprb,2.0836e+02_jprb,1.3907e+02_jprb,7.3436e+01_jprb,6.2345e+01_jprb/)  
kbo( :, 2,33,15) = (/&
 & 2.6829e+02_jprb,2.6813e+02_jprb,2.0135e+02_jprb,1.3440e+02_jprb,7.0216e+01_jprb,5.8526e+01_jprb/)  
kbo( :, 3,33,15) = (/&
 & 2.5890e+02_jprb,2.5874e+02_jprb,1.9430e+02_jprb,1.2970e+02_jprb,6.7179e+01_jprb,5.5377e+01_jprb/)  
kbo( :, 4,33,15) = (/&
 & 2.4933e+02_jprb,2.4918e+02_jprb,1.8712e+02_jprb,1.2490e+02_jprb,6.4220e+01_jprb,5.2156e+01_jprb/)  
kbo( :, 5,33,15) = (/&
 & 2.3975e+02_jprb,2.3960e+02_jprb,1.7993e+02_jprb,1.2011e+02_jprb,6.1401e+01_jprb,4.9280e+01_jprb/)  
kbo( :, 1,34,15) = (/&
 & 2.8330e+02_jprb,2.8313e+02_jprb,2.1259e+02_jprb,1.4188e+02_jprb,7.4943e+01_jprb,6.3611e+01_jprb/)  
kbo( :, 2,34,15) = (/&
 & 2.7328e+02_jprb,2.7312e+02_jprb,2.0508e+02_jprb,1.3687e+02_jprb,7.1539e+01_jprb,6.0040e+01_jprb/)  
kbo( :, 3,34,15) = (/&
 & 2.6322e+02_jprb,2.6306e+02_jprb,1.9753e+02_jprb,1.3184e+02_jprb,6.8302e+01_jprb,5.6531e+01_jprb/)  
kbo( :, 4,34,15) = (/&
 & 2.5315e+02_jprb,2.5300e+02_jprb,1.8997e+02_jprb,1.2680e+02_jprb,6.5194e+01_jprb,5.3134e+01_jprb/)  
kbo( :, 5,34,15) = (/&
 & 2.4305e+02_jprb,2.4290e+02_jprb,1.8239e+02_jprb,1.2174e+02_jprb,6.2238e+01_jprb,5.0964e+01_jprb/)  
kbo( :, 1,35,15) = (/&
 & 2.8856e+02_jprb,2.8838e+02_jprb,2.1653e+02_jprb,1.4450e+02_jprb,7.6402e+01_jprb,6.5174e+01_jprb/)  
kbo( :, 2,35,15) = (/&
 & 2.7804e+02_jprb,2.7787e+02_jprb,2.0864e+02_jprb,1.3924e+02_jprb,7.2828e+01_jprb,6.1468e+01_jprb/)  
kbo( :, 3,35,15) = (/&
 & 2.6749e+02_jprb,2.6733e+02_jprb,2.0072e+02_jprb,1.3396e+02_jprb,6.9428e+01_jprb,5.7687e+01_jprb/)  
kbo( :, 4,35,15) = (/&
 & 2.5691e+02_jprb,2.5675e+02_jprb,1.9278e+02_jprb,1.2866e+02_jprb,6.6172e+01_jprb,5.4537e+01_jprb/)  
kbo( :, 5,35,15) = (/&
 & 2.4636e+02_jprb,2.4621e+02_jprb,1.8487e+02_jprb,1.2339e+02_jprb,6.3093e+01_jprb,5.3102e+01_jprb/)  
kbo( :, 1,36,15) = (/&
 & 2.9394e+02_jprb,2.9376e+02_jprb,2.2055e+02_jprb,1.4717e+02_jprb,7.7976e+01_jprb,6.6997e+01_jprb/)  
kbo( :, 2,36,15) = (/&
 & 2.8294e+02_jprb,2.8277e+02_jprb,2.1230e+02_jprb,1.4167e+02_jprb,7.4208e+01_jprb,6.2977e+01_jprb/)  
kbo( :, 3,36,15) = (/&
 & 2.7194e+02_jprb,2.7178e+02_jprb,2.0405e+02_jprb,1.3617e+02_jprb,7.0657e+01_jprb,5.9032e+01_jprb/)  
kbo( :, 4,36,15) = (/&
 & 2.6092e+02_jprb,2.6077e+02_jprb,1.9579e+02_jprb,1.3066e+02_jprb,6.7258e+01_jprb,5.6406e+01_jprb/)  
kbo( :, 5,36,15) = (/&
 & 2.5003e+02_jprb,2.4988e+02_jprb,1.8762e+02_jprb,1.2521e+02_jprb,6.4068e+01_jprb,5.5624e+01_jprb/)  
kbo( :, 1,37,15) = (/&
 & 3.0017e+02_jprb,2.9999e+02_jprb,2.2523e+02_jprb,1.5028e+02_jprb,7.9918e+01_jprb,6.9171e+01_jprb/)  
kbo( :, 2,37,15) = (/&
 & 2.8870e+02_jprb,2.8853e+02_jprb,2.1662e+02_jprb,1.4454e+02_jprb,7.5932e+01_jprb,6.4872e+01_jprb/)  
kbo( :, 3,37,15) = (/&
 & 2.7736e+02_jprb,2.7719e+02_jprb,2.0811e+02_jprb,1.3887e+02_jprb,7.2229e+01_jprb,6.0792e+01_jprb/)  
kbo( :, 4,37,15) = (/&
 & 2.6599e+02_jprb,2.6584e+02_jprb,1.9958e+02_jprb,1.3319e+02_jprb,6.8687e+01_jprb,5.8518e+01_jprb/)  
kbo( :, 5,37,15) = (/&
 & 2.5476e+02_jprb,2.5461e+02_jprb,1.9116e+02_jprb,1.2757e+02_jprb,6.5367e+01_jprb,5.8059e+01_jprb/)  
kbo( :, 1,38,15) = (/&
 & 3.0587e+02_jprb,3.0569e+02_jprb,2.2949e+02_jprb,1.5312e+02_jprb,8.1725e+01_jprb,7.1248e+01_jprb/)  
kbo( :, 2,38,15) = (/&
 & 2.9408e+02_jprb,2.9390e+02_jprb,2.2065e+02_jprb,1.4722e+02_jprb,7.7560e+01_jprb,6.6691e+01_jprb/)  
kbo( :, 3,38,15) = (/&
 & 2.8234e+02_jprb,2.8218e+02_jprb,2.1184e+02_jprb,1.4135e+02_jprb,7.3693e+01_jprb,6.2607e+01_jprb/)  
kbo( :, 4,38,15) = (/&
 & 2.7064e+02_jprb,2.7048e+02_jprb,2.0306e+02_jprb,1.3550e+02_jprb,7.0023e+01_jprb,6.0914e+01_jprb/)  
kbo( :, 5,38,15) = (/&
 & 2.5911e+02_jprb,2.5896e+02_jprb,1.9442e+02_jprb,1.2974e+02_jprb,6.6580e+01_jprb,6.0840e+01_jprb/)  
kbo( :, 1,39,15) = (/&
 & 3.1101e+02_jprb,3.1082e+02_jprb,2.3334e+02_jprb,1.5567e+02_jprb,8.3378e+01_jprb,7.3218e+01_jprb/)  
kbo( :, 2,39,15) = (/&
 & 2.9887e+02_jprb,2.9869e+02_jprb,2.2423e+02_jprb,1.4960e+02_jprb,7.9045e+01_jprb,6.8519e+01_jprb/)  
kbo( :, 3,39,15) = (/&
 & 2.8683e+02_jprb,2.8666e+02_jprb,2.1520e+02_jprb,1.4359e+02_jprb,7.5024e+01_jprb,6.4735e+01_jprb/)  
kbo( :, 4,39,15) = (/&
 & 2.7487e+02_jprb,2.7471e+02_jprb,2.0623e+02_jprb,1.3761e+02_jprb,7.1242e+01_jprb,6.3858e+01_jprb/)  
kbo( :, 5,39,15) = (/&
 & 2.6303e+02_jprb,2.6287e+02_jprb,1.9735e+02_jprb,1.3169e+02_jprb,6.7680e+01_jprb,6.4377e+01_jprb/)  
kbo( :, 1,40,15) = (/&
 & 3.1694e+02_jprb,3.1675e+02_jprb,2.3777e+02_jprb,1.5862e+02_jprb,8.5396e+01_jprb,7.5421e+01_jprb/)  
kbo( :, 2,40,15) = (/&
 & 3.0448e+02_jprb,3.0430e+02_jprb,2.2843e+02_jprb,1.5240e+02_jprb,8.0839e+01_jprb,7.0612e+01_jprb/)  
kbo( :, 3,40,15) = (/&
 & 2.9221e+02_jprb,2.9204e+02_jprb,2.1923e+02_jprb,1.4627e+02_jprb,7.6677e+01_jprb,6.6660e+01_jprb/)  
kbo( :, 4,40,15) = (/&
 & 2.8000e+02_jprb,2.7983e+02_jprb,2.1007e+02_jprb,1.4017e+02_jprb,7.2757e+01_jprb,6.5710e+01_jprb/)  
kbo( :, 5,40,15) = (/&
 & 2.6789e+02_jprb,2.6773e+02_jprb,2.0099e+02_jprb,1.3412e+02_jprb,6.9075e+01_jprb,6.6414e+01_jprb/)  
kbo( :, 1,41,15) = (/&
 & 3.2263e+02_jprb,3.2244e+02_jprb,2.4204e+02_jprb,1.6146e+02_jprb,8.7409e+01_jprb,7.7606e+01_jprb/)  
kbo( :, 2,41,15) = (/&
 & 3.0995e+02_jprb,3.0976e+02_jprb,2.3253e+02_jprb,1.5513e+02_jprb,8.2644e+01_jprb,7.2713e+01_jprb/)  
kbo( :, 3,41,15) = (/&
 & 2.9738e+02_jprb,2.9720e+02_jprb,2.2311e+02_jprb,1.4885e+02_jprb,7.8306e+01_jprb,6.8571e+01_jprb/)  
kbo( :, 4,41,15) = (/&
 & 2.8499e+02_jprb,2.8482e+02_jprb,2.1382e+02_jprb,1.4266e+02_jprb,7.4270e+01_jprb,6.7462e+01_jprb/)  
kbo( :, 5,41,15) = (/&
 & 2.7266e+02_jprb,2.7250e+02_jprb,2.0456e+02_jprb,1.3649e+02_jprb,7.0464e+01_jprb,6.8326e+01_jprb/)  
kbo( :, 1,42,15) = (/&
 & 3.2806e+02_jprb,3.2786e+02_jprb,2.4610e+02_jprb,1.6416e+02_jprb,8.9382e+01_jprb,7.9783e+01_jprb/)  
kbo( :, 2,42,15) = (/&
 & 3.1513e+02_jprb,3.1494e+02_jprb,2.3641e+02_jprb,1.5771e+02_jprb,8.4411e+01_jprb,7.4828e+01_jprb/)  
kbo( :, 3,42,15) = (/&
 & 3.0236e+02_jprb,3.0217e+02_jprb,2.2683e+02_jprb,1.5133e+02_jprb,7.9899e+01_jprb,7.0566e+01_jprb/)  
kbo( :, 4,42,15) = (/&
 & 2.8974e+02_jprb,2.8956e+02_jprb,2.1737e+02_jprb,1.4502e+02_jprb,7.5728e+01_jprb,6.9377e+01_jprb/)  
kbo( :, 5,42,15) = (/&
 & 2.7725e+02_jprb,2.7708e+02_jprb,2.0800e+02_jprb,1.3878e+02_jprb,7.1813e+01_jprb,7.0507e+01_jprb/)  
kbo( :, 1,43,15) = (/&
 & 3.3393e+02_jprb,3.3373e+02_jprb,2.5050e+02_jprb,1.6709e+02_jprb,9.1659e+01_jprb,8.2181e+01_jprb/)  
kbo( :, 2,43,15) = (/&
 & 3.2087e+02_jprb,3.2068e+02_jprb,2.4071e+02_jprb,1.6058e+02_jprb,8.6435e+01_jprb,7.7203e+01_jprb/)  
kbo( :, 3,43,15) = (/&
 & 3.0784e+02_jprb,3.0766e+02_jprb,2.3094e+02_jprb,1.5407e+02_jprb,8.1705e+01_jprb,7.2734e+01_jprb/)  
kbo( :, 4,43,15) = (/&
 & 2.9498e+02_jprb,2.9480e+02_jprb,2.2130e+02_jprb,1.4764e+02_jprb,7.7383e+01_jprb,7.1244e+01_jprb/)  
kbo( :, 5,43,15) = (/&
 & 2.8236e+02_jprb,2.8219e+02_jprb,2.1184e+02_jprb,1.4134e+02_jprb,7.3355e+01_jprb,7.2525e+01_jprb/)  
kbo( :, 1,44,15) = (/&
 & 3.3993e+02_jprb,3.3973e+02_jprb,2.5500e+02_jprb,1.7009e+02_jprb,9.4079e+01_jprb,8.4777e+01_jprb/)  
kbo( :, 2,44,15) = (/&
 & 3.2668e+02_jprb,3.2648e+02_jprb,2.4506e+02_jprb,1.6347e+02_jprb,8.8568e+01_jprb,7.9722e+01_jprb/)  
kbo( :, 3,44,15) = (/&
 & 3.1350e+02_jprb,3.1331e+02_jprb,2.3519e+02_jprb,1.5690e+02_jprb,8.3629e+01_jprb,7.5073e+01_jprb/)  
kbo( :, 4,44,15) = (/&
 & 3.0048e+02_jprb,3.0030e+02_jprb,2.2542e+02_jprb,1.5039e+02_jprb,7.9147e+01_jprb,7.3210e+01_jprb/)  
kbo( :, 5,44,15) = (/&
 & 2.8768e+02_jprb,2.8750e+02_jprb,2.1582e+02_jprb,1.4399e+02_jprb,7.4989e+01_jprb,7.4615e+01_jprb/)  
kbo( :, 1,45,15) = (/&
 & 3.4570e+02_jprb,3.4549e+02_jprb,2.5932e+02_jprb,1.7296e+02_jprb,9.6495e+01_jprb,8.7516e+01_jprb/)  
kbo( :, 2,45,15) = (/&
 & 3.3235e+02_jprb,3.3215e+02_jprb,2.4931e+02_jprb,1.6630e+02_jprb,9.0736e+01_jprb,8.2360e+01_jprb/)  
kbo( :, 3,45,15) = (/&
 & 3.1903e+02_jprb,3.1884e+02_jprb,2.3933e+02_jprb,1.5965e+02_jprb,8.5580e+01_jprb,7.7592e+01_jprb/)  
kbo( :, 4,45,15) = (/&
 & 3.0583e+02_jprb,3.0564e+02_jprb,2.2943e+02_jprb,1.5306e+02_jprb,8.0904e+01_jprb,7.5512e+01_jprb/)  
kbo( :, 5,45,15) = (/&
 & 2.9285e+02_jprb,2.9267e+02_jprb,2.1969e+02_jprb,1.4657e+02_jprb,7.6606e+01_jprb,7.7136e+01_jprb/)  
kbo( :, 1,46,15) = (/&
 & 3.5162e+02_jprb,3.5141e+02_jprb,2.6376e+02_jprb,1.7592e+02_jprb,9.9116e+01_jprb,9.0486e+01_jprb/)  
kbo( :, 2,46,15) = (/&
 & 3.3821e+02_jprb,3.3800e+02_jprb,2.5370e+02_jprb,1.6922e+02_jprb,9.3089e+01_jprb,8.5193e+01_jprb/)  
kbo( :, 3,46,15) = (/&
 & 3.2475e+02_jprb,3.2455e+02_jprb,2.4361e+02_jprb,1.6250e+02_jprb,8.7670e+01_jprb,8.0271e+01_jprb/)  
kbo( :, 4,46,15) = (/&
 & 3.1144e+02_jprb,3.1126e+02_jprb,2.3364e+02_jprb,1.5586e+02_jprb,8.2789e+01_jprb,7.7967e+01_jprb/)  
kbo( :, 5,46,15) = (/&
 & 2.9826e+02_jprb,2.9808e+02_jprb,2.2376e+02_jprb,1.4928e+02_jprb,7.8339e+01_jprb,7.9667e+01_jprb/)  
kbo( :, 1,47,15) = (/&
 & 3.5795e+02_jprb,3.5773e+02_jprb,2.6850e+02_jprb,1.7907e+02_jprb,1.0208e+02_jprb,9.3825e+01_jprb/)  
kbo( :, 2,47,15) = (/&
 & 3.4453e+02_jprb,3.4432e+02_jprb,2.5844e+02_jprb,1.7237e+02_jprb,9.5731e+01_jprb,8.8246e+01_jprb/)  
kbo( :, 3,47,15) = (/&
 & 3.3096e+02_jprb,3.3076e+02_jprb,2.4827e+02_jprb,1.6560e+02_jprb,9.0023e+01_jprb,8.3072e+01_jprb/)  
kbo( :, 4,47,15) = (/&
 & 3.1751e+02_jprb,3.1732e+02_jprb,2.3819e+02_jprb,1.5889e+02_jprb,8.4913e+01_jprb,8.0301e+01_jprb/)  
kbo( :, 5,47,15) = (/&
 & 3.0419e+02_jprb,3.0401e+02_jprb,2.2820e+02_jprb,1.5224e+02_jprb,8.0275e+01_jprb,8.1585e+01_jprb/)  
kbo( :, 1,48,15) = (/&
 & 3.6405e+02_jprb,3.6383e+02_jprb,2.7307e+02_jprb,1.8212e+02_jprb,1.0516e+02_jprb,9.7509e+01_jprb/)  
kbo( :, 2,48,15) = (/&
 & 3.5068e+02_jprb,3.5047e+02_jprb,2.6305e+02_jprb,1.7544e+02_jprb,9.8444e+01_jprb,9.1443e+01_jprb/)  
kbo( :, 3,48,15) = (/&
 & 3.3709e+02_jprb,3.3688e+02_jprb,2.5286e+02_jprb,1.6866e+02_jprb,9.2465e+01_jprb,8.6144e+01_jprb/)  
kbo( :, 4,48,15) = (/&
 & 3.2352e+02_jprb,3.2332e+02_jprb,2.4269e+02_jprb,1.6188e+02_jprb,8.7099e+01_jprb,8.3145e+01_jprb/)  
kbo( :, 5,48,15) = (/&
 & 3.1006e+02_jprb,3.0987e+02_jprb,2.3260e+02_jprb,1.5516e+02_jprb,8.2249e+01_jprb,8.4244e+01_jprb/)  
kbo( :, 1,49,15) = (/&
 & 3.7003e+02_jprb,3.6981e+02_jprb,2.7756e+02_jprb,1.8510e+02_jprb,1.0838e+02_jprb,1.0148e+02_jprb/)  
kbo( :, 2,49,15) = (/&
 & 3.5675e+02_jprb,3.5654e+02_jprb,2.6761e+02_jprb,1.7847e+02_jprb,1.0127e+02_jprb,9.4886e+01_jprb/)  
kbo( :, 3,49,15) = (/&
 & 3.4318e+02_jprb,3.4298e+02_jprb,2.5743e+02_jprb,1.7170e+02_jprb,9.5003e+01_jprb,8.9591e+01_jprb/)  
kbo( :, 4,49,15) = (/&
 & 3.2947e+02_jprb,3.2927e+02_jprb,2.4715e+02_jprb,1.6485e+02_jprb,8.9342e+01_jprb,8.6726e+01_jprb/)  
kbo( :, 5,49,15) = (/&
 & 3.1591e+02_jprb,3.1572e+02_jprb,2.3699e+02_jprb,1.5809e+02_jprb,8.4278e+01_jprb,8.8051e+01_jprb/)  
kbo( :, 1,50,15) = (/&
 & 3.7556e+02_jprb,3.7534e+02_jprb,2.8170e+02_jprb,1.8786e+02_jprb,1.1154e+02_jprb,1.0526e+02_jprb/)  
kbo( :, 2,50,15) = (/&
 & 3.6235e+02_jprb,3.6213e+02_jprb,2.7180e+02_jprb,1.8127e+02_jprb,1.0404e+02_jprb,9.7933e+01_jprb/)  
kbo( :, 3,50,15) = (/&
 & 3.4884e+02_jprb,3.4863e+02_jprb,2.6167e+02_jprb,1.7452e+02_jprb,9.7449e+01_jprb,9.2614e+01_jprb/)  
kbo( :, 4,50,15) = (/&
 & 3.3508e+02_jprb,3.3488e+02_jprb,2.5136e+02_jprb,1.6766e+02_jprb,9.1542e+01_jprb,8.9470e+01_jprb/)  
kbo( :, 5,50,15) = (/&
 & 3.2141e+02_jprb,3.2122e+02_jprb,2.4111e+02_jprb,1.6083e+02_jprb,8.6254e+01_jprb,9.0426e+01_jprb/)  
kbo( :, 1,51,15) = (/&
 & 3.8078e+02_jprb,3.8056e+02_jprb,2.8562e+02_jprb,1.9055e+02_jprb,1.1479e+02_jprb,1.0898e+02_jprb/)  
kbo( :, 2,51,15) = (/&
 & 3.6766e+02_jprb,3.6744e+02_jprb,2.7578e+02_jprb,1.8392e+02_jprb,1.0684e+02_jprb,1.0093e+02_jprb/)  
kbo( :, 3,51,15) = (/&
 & 3.5420e+02_jprb,3.5398e+02_jprb,2.6569e+02_jprb,1.7719e+02_jprb,9.9903e+01_jprb,9.5407e+01_jprb/)  
kbo( :, 4,51,15) = (/&
 & 3.4048e+02_jprb,3.4027e+02_jprb,2.5540e+02_jprb,1.7035e+02_jprb,9.3766e+01_jprb,9.1798e+01_jprb/)  
kbo( :, 5,51,15) = (/&
 & 3.2673e+02_jprb,3.2653e+02_jprb,2.4509e+02_jprb,1.6348e+02_jprb,8.8237e+01_jprb,9.2138e+01_jprb/)  
kbo( :, 1,52,15) = (/&
 & 3.8584e+02_jprb,3.8560e+02_jprb,2.8941e+02_jprb,1.9322e+02_jprb,1.1816e+02_jprb,1.1293e+02_jprb/)  
kbo( :, 2,52,15) = (/&
 & 3.7294e+02_jprb,3.7271e+02_jprb,2.7974e+02_jprb,1.8654e+02_jprb,1.0976e+02_jprb,1.0425e+02_jprb/)  
kbo( :, 3,52,15) = (/&
 & 3.5951e+02_jprb,3.5930e+02_jprb,2.6967e+02_jprb,1.7985e+02_jprb,1.0246e+02_jprb,9.8398e+01_jprb/)  
kbo( :, 4,52,15) = (/&
 & 3.4582e+02_jprb,3.4561e+02_jprb,2.5941e+02_jprb,1.7301e+02_jprb,9.6032e+01_jprb,9.4572e+01_jprb/)  
kbo( :, 5,52,15) = (/&
 & 3.3204e+02_jprb,3.3185e+02_jprb,2.4908e+02_jprb,1.6614e+02_jprb,9.0266e+01_jprb,9.4675e+01_jprb/)  
kbo( :, 1,53,15) = (/&
 & 3.9087e+02_jprb,3.9063e+02_jprb,2.9318e+02_jprb,1.9599e+02_jprb,1.2171e+02_jprb,1.1718e+02_jprb/)  
kbo( :, 2,53,15) = (/&
 & 3.7802e+02_jprb,3.7780e+02_jprb,2.8355e+02_jprb,1.8910e+02_jprb,1.1281e+02_jprb,1.0800e+02_jprb/)  
kbo( :, 3,53,15) = (/&
 & 3.6473e+02_jprb,3.6451e+02_jprb,2.7359e+02_jprb,1.8245e+02_jprb,1.0513e+02_jprb,1.0177e+02_jprb/)  
kbo( :, 4,53,15) = (/&
 & 3.5112e+02_jprb,3.5091e+02_jprb,2.6338e+02_jprb,1.7566e+02_jprb,9.8387e+01_jprb,9.7989e+01_jprb/)  

IF (lhook) CALL dr_hook('RRTM_KGB4:PART35',1,zhook_handle)
END SUBROUTINE part35


SUBROUTINE part36

REAL(KIND=JPRB) :: ZHOOK_HANDLE
IF (lhook) CALL dr_hook('RRTM_KGB4:PART36',0,zhook_handle)


kbo( :, 5,53,15) = (/&
 & 3.3733e+02_jprb,3.3713e+02_jprb,2.5304e+02_jprb,1.6878e+02_jprb,9.2381e+01_jprb,9.8180e+01_jprb/)  
kbo( :, 1,54,15) = (/&
 & 3.9531e+02_jprb,3.9507e+02_jprb,2.9651e+02_jprb,1.9853e+02_jprb,1.2515e+02_jprb,1.2078e+02_jprb/)  
kbo( :, 2,54,15) = (/&
 & 3.8263e+02_jprb,3.8240e+02_jprb,2.8700e+02_jprb,1.9150e+02_jprb,1.1577e+02_jprb,1.1118e+02_jprb/)  
kbo( :, 3,54,15) = (/&
 & 3.6948e+02_jprb,3.6926e+02_jprb,2.7715e+02_jprb,1.8482e+02_jprb,1.0769e+02_jprb,1.0351e+02_jprb/)  
kbo( :, 4,54,15) = (/&
 & 3.5596e+02_jprb,3.5575e+02_jprb,2.6701e+02_jprb,1.7807e+02_jprb,1.0063e+02_jprb,9.9143e+01_jprb/)  
kbo( :, 5,54,15) = (/&
 & 3.4214e+02_jprb,3.4194e+02_jprb,2.5665e+02_jprb,1.7118e+02_jprb,9.4395e+01_jprb,9.8105e+01_jprb/)  
kbo( :, 1,55,15) = (/&
 & 3.9946e+02_jprb,3.9922e+02_jprb,2.9962e+02_jprb,2.0102e+02_jprb,1.2867e+02_jprb,1.2425e+02_jprb/)  
kbo( :, 2,55,15) = (/&
 & 3.8700e+02_jprb,3.8677e+02_jprb,2.9028e+02_jprb,1.9382e+02_jprb,1.1872e+02_jprb,1.1387e+02_jprb/)  
kbo( :, 3,55,15) = (/&
 & 3.7399e+02_jprb,3.7376e+02_jprb,2.8052e+02_jprb,1.8707e+02_jprb,1.1023e+02_jprb,1.0518e+02_jprb/)  
kbo( :, 4,55,15) = (/&
 & 3.6056e+02_jprb,3.6034e+02_jprb,2.7046e+02_jprb,1.8037e+02_jprb,1.0287e+02_jprb,9.9691e+01_jprb/)  
kbo( :, 5,55,15) = (/&
 & 3.4681e+02_jprb,3.4660e+02_jprb,2.6015e+02_jprb,1.7350e+02_jprb,9.6390e+01_jprb,9.6621e+01_jprb/)  
kbo( :, 1,56,15) = (/&
 & 4.0345e+02_jprb,4.0321e+02_jprb,3.0261e+02_jprb,2.0354e+02_jprb,1.3232e+02_jprb,1.2822e+02_jprb/)  
kbo( :, 2,56,15) = (/&
 & 3.9129e+02_jprb,3.9105e+02_jprb,2.9349e+02_jprb,1.9619e+02_jprb,1.2179e+02_jprb,1.1677e+02_jprb/)  
kbo( :, 3,56,15) = (/&
 & 3.7839e+02_jprb,3.7816e+02_jprb,2.8382e+02_jprb,1.8928e+02_jprb,1.1288e+02_jprb,1.0755e+02_jprb/)  
kbo( :, 4,56,15) = (/&
 & 3.6503e+02_jprb,3.6481e+02_jprb,2.7381e+02_jprb,1.8260e+02_jprb,1.0518e+02_jprb,1.0056e+02_jprb/)  
kbo( :, 5,56,15) = (/&
 & 3.5139e+02_jprb,3.5118e+02_jprb,2.6358e+02_jprb,1.7579e+02_jprb,9.8426e+01_jprb,9.5940e+01_jprb/)  
kbo( :, 1,57,15) = (/&
 & 4.0732e+02_jprb,4.0708e+02_jprb,3.0551e+02_jprb,2.0612e+02_jprb,1.3611e+02_jprb,1.3253e+02_jprb/)  
kbo( :, 2,57,15) = (/&
 & 3.9551e+02_jprb,3.9527e+02_jprb,2.9666e+02_jprb,1.9860e+02_jprb,1.2505e+02_jprb,1.2007e+02_jprb/)  
kbo( :, 3,57,15) = (/&
 & 3.8272e+02_jprb,3.8249e+02_jprb,2.8707e+02_jprb,1.9154e+02_jprb,1.1567e+02_jprb,1.1005e+02_jprb/)  
kbo( :, 4,57,15) = (/&
 & 3.6944e+02_jprb,3.6922e+02_jprb,2.7712e+02_jprb,1.8480e+02_jprb,1.0758e+02_jprb,1.0192e+02_jprb/)  
kbo( :, 5,57,15) = (/&
 & 3.5592e+02_jprb,3.5571e+02_jprb,2.6698e+02_jprb,1.7805e+02_jprb,1.0054e+02_jprb,9.6453e+01_jprb/)  
kbo( :, 1,58,15) = (/&
 & 4.1059e+02_jprb,4.1035e+02_jprb,3.0796e+02_jprb,2.0852e+02_jprb,1.3980e+02_jprb,1.3680e+02_jprb/)  
kbo( :, 2,58,15) = (/&
 & 3.9929e+02_jprb,3.9905e+02_jprb,2.9949e+02_jprb,2.0087e+02_jprb,1.2831e+02_jprb,1.2369e+02_jprb/)  
kbo( :, 3,58,15) = (/&
 & 3.8677e+02_jprb,3.8654e+02_jprb,2.9010e+02_jprb,1.9368e+02_jprb,1.1842e+02_jprb,1.1258e+02_jprb/)  
kbo( :, 4,58,15) = (/&
 & 3.7367e+02_jprb,3.7345e+02_jprb,2.8029e+02_jprb,1.8691e+02_jprb,1.0996e+02_jprb,1.0363e+02_jprb/)  
kbo( :, 5,58,15) = (/&
 & 3.6017e+02_jprb,3.5995e+02_jprb,2.7016e+02_jprb,1.8017e+02_jprb,1.0261e+02_jprb,9.7140e+01_jprb/)  
kbo( :, 1,59,15) = (/&
 & 4.1203e+02_jprb,4.1178e+02_jprb,3.0904e+02_jprb,2.0958e+02_jprb,1.4140e+02_jprb,1.3865e+02_jprb/)  
kbo( :, 2,59,15) = (/&
 & 4.0086e+02_jprb,4.0061e+02_jprb,3.0066e+02_jprb,2.0184e+02_jprb,1.2968e+02_jprb,1.2523e+02_jprb/)  
kbo( :, 3,59,15) = (/&
 & 3.8845e+02_jprb,3.8822e+02_jprb,2.9137e+02_jprb,1.9459e+02_jprb,1.1957e+02_jprb,1.1363e+02_jprb/)  
kbo( :, 4,59,15) = (/&
 & 3.7538e+02_jprb,3.7516e+02_jprb,2.8157e+02_jprb,1.8776e+02_jprb,1.1095e+02_jprb,1.0368e+02_jprb/)  
kbo( :, 5,59,15) = (/&
 & 3.6194e+02_jprb,3.6172e+02_jprb,2.7149e+02_jprb,1.8106e+02_jprb,1.0349e+02_jprb,9.5485e+01_jprb/)  
kbo( :, 1,13,16) = (/&
 & 3.8689e+01_jprb,3.8666e+01_jprb,2.9260e+01_jprb,2.0209e+01_jprb,1.1782e+01_jprb,1.0583e+01_jprb/)  
kbo( :, 2,13,16) = (/&
 & 3.8299e+01_jprb,3.8276e+01_jprb,2.8975e+01_jprb,1.9748e+01_jprb,1.1593e+01_jprb,1.0462e+01_jprb/)  
kbo( :, 3,13,16) = (/&
 & 3.8145e+01_jprb,3.8122e+01_jprb,2.8865e+01_jprb,1.9633e+01_jprb,1.1641e+01_jprb,1.2633e+01_jprb/)  
kbo( :, 4,13,16) = (/&
 & 3.7920e+01_jprb,3.7898e+01_jprb,2.8722e+01_jprb,1.9787e+01_jprb,1.1762e+01_jprb,2.0692e+01_jprb/)  
kbo( :, 5,13,16) = (/&
 & 3.7770e+01_jprb,3.7748e+01_jprb,2.8670e+01_jprb,1.9920e+01_jprb,1.1827e+01_jprb,3.1866e+01_jprb/)  
kbo( :, 1,14,16) = (/&
 & 4.5054e+01_jprb,4.5027e+01_jprb,3.4026e+01_jprb,2.3071e+01_jprb,1.3319e+01_jprb,1.2073e+01_jprb/)  
kbo( :, 2,14,16) = (/&
 & 4.5133e+01_jprb,4.5106e+01_jprb,3.4091e+01_jprb,2.3057e+01_jprb,1.3364e+01_jprb,1.1925e+01_jprb/)  
kbo( :, 3,14,16) = (/&
 & 4.5119e+01_jprb,4.5092e+01_jprb,3.4098e+01_jprb,2.3216e+01_jprb,1.3503e+01_jprb,1.1702e+01_jprb/)  
kbo( :, 4,14,16) = (/&
 & 4.5115e+01_jprb,4.5088e+01_jprb,3.4119e+01_jprb,2.3467e+01_jprb,1.3637e+01_jprb,1.5244e+01_jprb/)  
kbo( :, 5,14,16) = (/&
 & 4.5059e+01_jprb,4.5033e+01_jprb,3.4214e+01_jprb,2.3627e+01_jprb,1.3694e+01_jprb,2.3098e+01_jprb/)  
kbo( :, 1,15,16) = (/&
 & 5.3422e+01_jprb,5.3390e+01_jprb,4.0289e+01_jprb,2.7161e+01_jprb,1.5356e+01_jprb,1.3721e+01_jprb/)  
kbo( :, 2,15,16) = (/&
 & 5.3696e+01_jprb,5.3664e+01_jprb,4.0505e+01_jprb,2.7340e+01_jprb,1.5494e+01_jprb,1.3518e+01_jprb/)  
kbo( :, 3,15,16) = (/&
 & 5.3925e+01_jprb,5.3893e+01_jprb,4.0694e+01_jprb,2.7658e+01_jprb,1.5638e+01_jprb,1.3237e+01_jprb/)  
kbo( :, 4,15,16) = (/&
 & 5.4035e+01_jprb,5.4003e+01_jprb,4.0835e+01_jprb,2.7959e+01_jprb,1.5745e+01_jprb,1.3582e+01_jprb/)  
kbo( :, 5,15,16) = (/&
 & 5.4075e+01_jprb,5.4044e+01_jprb,4.1021e+01_jprb,2.8130e+01_jprb,1.5788e+01_jprb,1.7824e+01_jprb/)  
kbo( :, 1,16,16) = (/&
 & 6.3798e+01_jprb,6.3761e+01_jprb,4.8055e+01_jprb,3.2321e+01_jprb,1.7804e+01_jprb,1.5476e+01_jprb/)  
kbo( :, 2,16,16) = (/&
 & 6.4371e+01_jprb,6.4333e+01_jprb,4.8500e+01_jprb,3.2671e+01_jprb,1.7962e+01_jprb,1.5197e+01_jprb/)  
kbo( :, 3,16,16) = (/&
 & 6.4762e+01_jprb,6.4724e+01_jprb,4.8796e+01_jprb,3.3069e+01_jprb,1.8081e+01_jprb,1.4836e+01_jprb/)  
kbo( :, 4,16,16) = (/&
 & 6.4916e+01_jprb,6.4878e+01_jprb,4.9055e+01_jprb,3.3403e+01_jprb,1.8207e+01_jprb,1.4562e+01_jprb/)  
kbo( :, 5,16,16) = (/&
 & 6.5062e+01_jprb,6.5024e+01_jprb,4.9265e+01_jprb,3.3568e+01_jprb,1.8256e+01_jprb,1.7370e+01_jprb/)  
kbo( :, 1,17,16) = (/&
 & 7.6610e+01_jprb,7.6564e+01_jprb,5.7652e+01_jprb,3.8697e+01_jprb,2.0672e+01_jprb,1.7278e+01_jprb/)  
kbo( :, 2,17,16) = (/&
 & 7.7427e+01_jprb,7.7381e+01_jprb,5.8265e+01_jprb,3.9185e+01_jprb,2.0866e+01_jprb,1.6909e+01_jprb/)  
kbo( :, 3,17,16) = (/&
 & 7.7882e+01_jprb,7.7836e+01_jprb,5.8659e+01_jprb,3.9624e+01_jprb,2.1079e+01_jprb,1.6452e+01_jprb/)  
kbo( :, 4,17,16) = (/&
 & 7.8153e+01_jprb,7.8107e+01_jprb,5.8983e+01_jprb,3.9939e+01_jprb,2.1227e+01_jprb,1.5935e+01_jprb/)  
kbo( :, 5,17,16) = (/&
 & 7.8285e+01_jprb,7.8239e+01_jprb,5.9159e+01_jprb,4.0098e+01_jprb,2.1284e+01_jprb,1.7883e+01_jprb/)  
kbo( :, 1,18,16) = (/&
 & 9.2189e+01_jprb,9.2134e+01_jprb,6.9312e+01_jprb,4.6439e+01_jprb,2.4197e+01_jprb,1.9120e+01_jprb/)  
kbo( :, 2,18,16) = (/&
 & 9.3127e+01_jprb,9.3071e+01_jprb,7.0021e+01_jprb,4.7049e+01_jprb,2.4478e+01_jprb,1.8615e+01_jprb/)  
kbo( :, 3,18,16) = (/&
 & 9.3687e+01_jprb,9.3631e+01_jprb,7.0554e+01_jprb,4.7512e+01_jprb,2.4757e+01_jprb,1.8049e+01_jprb/)  
kbo( :, 4,18,16) = (/&
 & 9.4033e+01_jprb,9.3977e+01_jprb,7.0871e+01_jprb,4.7767e+01_jprb,2.4905e+01_jprb,1.7594e+01_jprb/)  
kbo( :, 5,18,16) = (/&
 & 9.4115e+01_jprb,9.4059e+01_jprb,7.0982e+01_jprb,4.7909e+01_jprb,2.4988e+01_jprb,1.9077e+01_jprb/)  
kbo( :, 1,19,16) = (/&
 & 1.1088e+02_jprb,1.1082e+02_jprb,8.3307e+01_jprb,5.5744e+01_jprb,2.8599e+01_jprb,2.1582e+01_jprb/)  
kbo( :, 2,19,16) = (/&
 & 1.1182e+02_jprb,1.1175e+02_jprb,8.4097e+01_jprb,5.6442e+01_jprb,2.8984e+01_jprb,2.0983e+01_jprb/)  
kbo( :, 3,19,16) = (/&
 & 1.1254e+02_jprb,1.1247e+02_jprb,8.4694e+01_jprb,5.6884e+01_jprb,2.9231e+01_jprb,2.0488e+01_jprb/)  
kbo( :, 4,19,16) = (/&
 & 1.1281e+02_jprb,1.1274e+02_jprb,8.4918e+01_jprb,5.7062e+01_jprb,2.9345e+01_jprb,2.0019e+01_jprb/)  
kbo( :, 5,19,16) = (/&
 & 1.1284e+02_jprb,1.1277e+02_jprb,8.4969e+01_jprb,5.7133e+01_jprb,2.9423e+01_jprb,2.0552e+01_jprb/)  
kbo( :, 1,20,16) = (/&
 & 1.3304e+02_jprb,1.3296e+02_jprb,9.9902e+01_jprb,6.6832e+01_jprb,3.3983e+01_jprb,2.4788e+01_jprb/)  
kbo( :, 2,20,16) = (/&
 & 1.3397e+02_jprb,1.3389e+02_jprb,1.0072e+02_jprb,6.7494e+01_jprb,3.4377e+01_jprb,2.4125e+01_jprb/)  
kbo( :, 3,20,16) = (/&
 & 1.3463e+02_jprb,1.3455e+02_jprb,1.0123e+02_jprb,6.7864e+01_jprb,3.4571e+01_jprb,2.3603e+01_jprb/)  
kbo( :, 4,20,16) = (/&
 & 1.3476e+02_jprb,1.3468e+02_jprb,1.0135e+02_jprb,6.7962e+01_jprb,3.4649e+01_jprb,2.3098e+01_jprb/)  
kbo( :, 5,20,16) = (/&
 & 1.3461e+02_jprb,1.3453e+02_jprb,1.0126e+02_jprb,6.7912e+01_jprb,3.4631e+01_jprb,2.3014e+01_jprb/)  
kbo( :, 1,21,16) = (/&
 & 1.5902e+02_jprb,1.5892e+02_jprb,1.1942e+02_jprb,7.9855e+01_jprb,4.0380e+01_jprb,2.8857e+01_jprb/)  
kbo( :, 2,21,16) = (/&
 & 1.5986e+02_jprb,1.5976e+02_jprb,1.2010e+02_jprb,8.0360e+01_jprb,4.0679e+01_jprb,2.8064e+01_jprb/)  
kbo( :, 3,21,16) = (/&
 & 1.6009e+02_jprb,1.5999e+02_jprb,1.2030e+02_jprb,8.0530e+01_jprb,4.0801e+01_jprb,2.7409e+01_jprb/)  
kbo( :, 4,21,16) = (/&
 & 1.6003e+02_jprb,1.5993e+02_jprb,1.2027e+02_jprb,8.0522e+01_jprb,4.0812e+01_jprb,2.6783e+01_jprb/)  
kbo( :, 5,21,16) = (/&
 & 1.5940e+02_jprb,1.5931e+02_jprb,1.1980e+02_jprb,8.0213e+01_jprb,4.0653e+01_jprb,2.6207e+01_jprb/)  
kbo( :, 1,22,16) = (/&
 & 1.8914e+02_jprb,1.8903e+02_jprb,1.4202e+02_jprb,9.4911e+01_jprb,4.7837e+01_jprb,3.3682e+01_jprb/)  
kbo( :, 2,22,16) = (/&
 & 1.8942e+02_jprb,1.8931e+02_jprb,1.4225e+02_jprb,9.5082e+01_jprb,4.7944e+01_jprb,3.2660e+01_jprb/)  
kbo( :, 3,22,16) = (/&
 & 1.8906e+02_jprb,1.8895e+02_jprb,1.4200e+02_jprb,9.4945e+01_jprb,4.7916e+01_jprb,3.1774e+01_jprb/)  
kbo( :, 4,22,16) = (/&
 & 1.8832e+02_jprb,1.8821e+02_jprb,1.4146e+02_jprb,9.4597e+01_jprb,4.7752e+01_jprb,3.0917e+01_jprb/)  
kbo( :, 5,22,16) = (/&
 & 1.8683e+02_jprb,1.8672e+02_jprb,1.4034e+02_jprb,9.3850e+01_jprb,4.7374e+01_jprb,3.0042e+01_jprb/)  
kbo( :, 1,23,16) = (/&
 & 2.2303e+02_jprb,2.2290e+02_jprb,1.6742e+02_jprb,1.1182e+02_jprb,5.6236e+01_jprb,3.9223e+01_jprb/)  
kbo( :, 2,23,16) = (/&
 & 2.2245e+02_jprb,2.2232e+02_jprb,1.6700e+02_jprb,1.1156e+02_jprb,5.6122e+01_jprb,3.7879e+01_jprb/)  
kbo( :, 3,23,16) = (/&
 & 2.2122e+02_jprb,2.2109e+02_jprb,1.6608e+02_jprb,1.1095e+02_jprb,5.5829e+01_jprb,3.6659e+01_jprb/)  
kbo( :, 4,23,16) = (/&
 & 2.1922e+02_jprb,2.1909e+02_jprb,1.6458e+02_jprb,1.0995e+02_jprb,5.5344e+01_jprb,3.5458e+01_jprb/)  
kbo( :, 5,23,16) = (/&
 & 2.1646e+02_jprb,2.1633e+02_jprb,1.6251e+02_jprb,1.0858e+02_jprb,5.4654e+01_jprb,3.4278e+01_jprb/)  
kbo( :, 1,24,16) = (/&
 & 2.6009e+02_jprb,2.5994e+02_jprb,1.9520e+02_jprb,1.3031e+02_jprb,6.5430e+01_jprb,4.5390e+01_jprb/)  
kbo( :, 2,24,16) = (/&
 & 2.5840e+02_jprb,2.5824e+02_jprb,1.9393e+02_jprb,1.2948e+02_jprb,6.5031e+01_jprb,4.3599e+01_jprb/)  
kbo( :, 3,24,16) = (/&
 & 2.5582e+02_jprb,2.5567e+02_jprb,1.9201e+02_jprb,1.2820e+02_jprb,6.4398e+01_jprb,4.1930e+01_jprb/)  
kbo( :, 4,24,16) = (/&
 & 2.5214e+02_jprb,2.5199e+02_jprb,1.8925e+02_jprb,1.2636e+02_jprb,6.3477e+01_jprb,4.0299e+01_jprb/)  
kbo( :, 5,24,16) = (/&
 & 2.4775e+02_jprb,2.4761e+02_jprb,1.8596e+02_jprb,1.2416e+02_jprb,6.2364e+01_jprb,3.8770e+01_jprb/)  
kbo( :, 1,25,16) = (/&
 & 2.9961e+02_jprb,2.9943e+02_jprb,2.2482e+02_jprb,1.5004e+02_jprb,7.5282e+01_jprb,5.1967e+01_jprb/)  
kbo( :, 2,25,16) = (/&
 & 2.9633e+02_jprb,2.9616e+02_jprb,2.2237e+02_jprb,1.4840e+02_jprb,7.4441e+01_jprb,4.9689e+01_jprb/)  
kbo( :, 3,25,16) = (/&
 & 2.9175e+02_jprb,2.9157e+02_jprb,2.1893e+02_jprb,1.4611e+02_jprb,7.3302e+01_jprb,4.7422e+01_jprb/)  
kbo( :, 4,25,16) = (/&
 & 2.8609e+02_jprb,2.8592e+02_jprb,2.1467e+02_jprb,1.4326e+02_jprb,7.1858e+01_jprb,4.5354e+01_jprb/)  
kbo( :, 5,25,16) = (/&
 & 2.7979e+02_jprb,2.7962e+02_jprb,2.0995e+02_jprb,1.4011e+02_jprb,7.0273e+01_jprb,4.3371e+01_jprb/)  
kbo( :, 1,26,16) = (/&
 & 3.4064e+02_jprb,3.4044e+02_jprb,2.5559e+02_jprb,1.7054e+02_jprb,8.5509e+01_jprb,5.8664e+01_jprb/)  
kbo( :, 2,26,16) = (/&
 & 3.3479e+02_jprb,3.3459e+02_jprb,2.5118e+02_jprb,1.6758e+02_jprb,8.3998e+01_jprb,5.5796e+01_jprb/)  
kbo( :, 3,26,16) = (/&
 & 3.2781e+02_jprb,3.2761e+02_jprb,2.4595e+02_jprb,1.6410e+02_jprb,8.2241e+01_jprb,5.2997e+01_jprb/)  
kbo( :, 4,26,16) = (/&
 & 3.1991e+02_jprb,3.1971e+02_jprb,2.4002e+02_jprb,1.6013e+02_jprb,8.0246e+01_jprb,5.0365e+01_jprb/)  
kbo( :, 5,26,16) = (/&
 & 3.1125e+02_jprb,3.1106e+02_jprb,2.3353e+02_jprb,1.5580e+02_jprb,7.8078e+01_jprb,4.7882e+01_jprb/)  
kbo( :, 1,27,16) = (/&
 & 3.8151e+02_jprb,3.8128e+02_jprb,2.8624e+02_jprb,1.9097e+02_jprb,9.5695e+01_jprb,6.5294e+01_jprb/)  
kbo( :, 2,27,16) = (/&
 & 3.7246e+02_jprb,3.7224e+02_jprb,2.7942e+02_jprb,1.8640e+02_jprb,9.3380e+01_jprb,6.1731e+01_jprb/)  
kbo( :, 3,27,16) = (/&
 & 3.6293e+02_jprb,3.6271e+02_jprb,2.7227e+02_jprb,1.8161e+02_jprb,9.0959e+01_jprb,5.8403e+01_jprb/)  
kbo( :, 4,27,16) = (/&
 & 3.5247e+02_jprb,3.5226e+02_jprb,2.6442e+02_jprb,1.7637e+02_jprb,8.8327e+01_jprb,5.5221e+01_jprb/)  
kbo( :, 5,27,16) = (/&
 & 3.4112e+02_jprb,3.4092e+02_jprb,2.5591e+02_jprb,1.7070e+02_jprb,8.5490e+01_jprb,5.2167e+01_jprb/)  
kbo( :, 1,28,16) = (/&
 & 4.2083e+02_jprb,4.2057e+02_jprb,3.1571e+02_jprb,2.1058e+02_jprb,1.0546e+02_jprb,7.1596e+01_jprb/)  
kbo( :, 2,28,16) = (/&
 & 4.0846e+02_jprb,4.0821e+02_jprb,3.0641e+02_jprb,2.0435e+02_jprb,1.0232e+02_jprb,6.7371e+01_jprb/)  
kbo( :, 3,28,16) = (/&
 & 3.9603e+02_jprb,3.9579e+02_jprb,2.9708e+02_jprb,1.9813e+02_jprb,9.9186e+01_jprb,6.3413e+01_jprb/)  
kbo( :, 4,28,16) = (/&
 & 3.8255e+02_jprb,3.8232e+02_jprb,2.8697e+02_jprb,1.9139e+02_jprb,9.5812e+01_jprb,5.9684e+01_jprb/)  
kbo( :, 5,28,16) = (/&
 & 3.6876e+02_jprb,3.6854e+02_jprb,2.7662e+02_jprb,1.8449e+02_jprb,9.2357e+01_jprb,5.6128e+01_jprb/)  
kbo( :, 1,29,16) = (/&
 & 4.5696e+02_jprb,4.5668e+02_jprb,3.4279e+02_jprb,2.2863e+02_jprb,1.1447e+02_jprb,7.7353e+01_jprb/)  
kbo( :, 2,29,16) = (/&
 & 4.4141e+02_jprb,4.4115e+02_jprb,3.3112e+02_jprb,2.2083e+02_jprb,1.1054e+02_jprb,7.2448e+01_jprb/)  
kbo( :, 3,29,16) = (/&
 & 4.2589e+02_jprb,4.2564e+02_jprb,3.1947e+02_jprb,2.1304e+02_jprb,1.0662e+02_jprb,6.7886e+01_jprb/)  
kbo( :, 4,29,16) = (/&
 & 4.0969e+02_jprb,4.0945e+02_jprb,3.0731e+02_jprb,2.0494e+02_jprb,1.0256e+02_jprb,6.3607e+01_jprb/)  
kbo( :, 5,29,16) = (/&
 & 3.9310e+02_jprb,3.9286e+02_jprb,2.9486e+02_jprb,1.9663e+02_jprb,9.8402e+01_jprb,5.9577e+01_jprb/)  
kbo( :, 1,30,16) = (/&
 & 4.8959e+02_jprb,4.8930e+02_jprb,3.6726e+02_jprb,2.4492e+02_jprb,1.2259e+02_jprb,8.2395e+01_jprb/)  
kbo( :, 2,30,16) = (/&
 & 4.7092e+02_jprb,4.7063e+02_jprb,3.5324e+02_jprb,2.3556e+02_jprb,1.1788e+02_jprb,7.6844e+01_jprb/)  
kbo( :, 3,30,16) = (/&
 & 4.5203e+02_jprb,4.5176e+02_jprb,3.3907e+02_jprb,2.2611e+02_jprb,1.1315e+02_jprb,7.1734e+01_jprb/)  
kbo( :, 4,30,16) = (/&
 & 4.3310e+02_jprb,4.3284e+02_jprb,3.2486e+02_jprb,2.1662e+02_jprb,1.0839e+02_jprb,6.6928e+01_jprb/)  
kbo( :, 5,30,16) = (/&
 & 4.1412e+02_jprb,4.1387e+02_jprb,3.1062e+02_jprb,2.0713e+02_jprb,1.0363e+02_jprb,6.3289e+01_jprb/)  
kbo( :, 1,31,16) = (/&
 & 5.1786e+02_jprb,5.1755e+02_jprb,3.8845e+02_jprb,2.5903e+02_jprb,1.2962e+02_jprb,8.6621e+01_jprb/)  
kbo( :, 2,31,16) = (/&
 & 4.9597e+02_jprb,4.9567e+02_jprb,3.7202e+02_jprb,2.4806e+02_jprb,1.2412e+02_jprb,8.0470e+01_jprb/)  
kbo( :, 3,31,16) = (/&
 & 4.7405e+02_jprb,4.7377e+02_jprb,3.5558e+02_jprb,2.3710e+02_jprb,1.1862e+02_jprb,7.4852e+01_jprb/)  
kbo( :, 4,31,16) = (/&
 & 4.5255e+02_jprb,4.5228e+02_jprb,3.3944e+02_jprb,2.2633e+02_jprb,1.1323e+02_jprb,6.9726e+01_jprb/)  
kbo( :, 5,31,16) = (/&
 & 4.3142e+02_jprb,4.3116e+02_jprb,3.2359e+02_jprb,2.1576e+02_jprb,1.0794e+02_jprb,6.8706e+01_jprb/)  
kbo( :, 1,32,16) = (/&
 & 5.4131e+02_jprb,5.4099e+02_jprb,4.0602e+02_jprb,2.7073e+02_jprb,1.3545e+02_jprb,8.9958e+01_jprb/)  
kbo( :, 2,32,16) = (/&
 & 5.1653e+02_jprb,5.1622e+02_jprb,3.8743e+02_jprb,2.5834e+02_jprb,1.2924e+02_jprb,8.3331e+01_jprb/)  
kbo( :, 3,32,16) = (/&
 & 4.9189e+02_jprb,4.9160e+02_jprb,3.6895e+02_jprb,2.4600e+02_jprb,1.2306e+02_jprb,7.7256e+01_jprb/)  
kbo( :, 4,32,16) = (/&
 & 4.6812e+02_jprb,4.6784e+02_jprb,3.5111e+02_jprb,2.3411e+02_jprb,1.1710e+02_jprb,7.4368e+01_jprb/)  
kbo( :, 5,32,16) = (/&
 & 4.4507e+02_jprb,4.4480e+02_jprb,3.3382e+02_jprb,2.2258e+02_jprb,1.1133e+02_jprb,7.6072e+01_jprb/)  
kbo( :, 1,33,16) = (/&
 & 5.6013e+02_jprb,5.5980e+02_jprb,4.2013e+02_jprb,2.8013e+02_jprb,1.4013e+02_jprb,9.2452e+01_jprb/)  
kbo( :, 2,33,16) = (/&
 & 5.3265e+02_jprb,5.3233e+02_jprb,3.9951e+02_jprb,2.6638e+02_jprb,1.3325e+02_jprb,8.5421e+01_jprb/)  
kbo( :, 3,33,16) = (/&
 & 5.0565e+02_jprb,5.0535e+02_jprb,3.7926e+02_jprb,2.5287e+02_jprb,1.2648e+02_jprb,8.0582e+01_jprb/)  
kbo( :, 4,33,16) = (/&
 & 4.8012e+02_jprb,4.7983e+02_jprb,3.6011e+02_jprb,2.4010e+02_jprb,1.2009e+02_jprb,8.1630e+01_jprb/)  
kbo( :, 5,33,16) = (/&
 & 4.5545e+02_jprb,4.5518e+02_jprb,3.4161e+02_jprb,2.2776e+02_jprb,1.1392e+02_jprb,8.6476e+01_jprb/)  
kbo( :, 1,34,16) = (/&
 & 5.7564e+02_jprb,5.7530e+02_jprb,4.3176e+02_jprb,2.8787e+02_jprb,1.4399e+02_jprb,9.4439e+01_jprb/)  
kbo( :, 2,34,16) = (/&
 & 5.4576e+02_jprb,5.4543e+02_jprb,4.0934e+02_jprb,2.7293e+02_jprb,1.3651e+02_jprb,8.7181e+01_jprb/)  
kbo( :, 3,34,16) = (/&
 & 5.1688e+02_jprb,5.1657e+02_jprb,3.8768e+02_jprb,2.5848e+02_jprb,1.2927e+02_jprb,8.6122e+01_jprb/)  
kbo( :, 4,34,16) = (/&
 & 4.8984e+02_jprb,4.8955e+02_jprb,3.6740e+02_jprb,2.4495e+02_jprb,1.2251e+02_jprb,9.0125e+01_jprb/)  
kbo( :, 5,34,16) = (/&
 & 4.6368e+02_jprb,4.6340e+02_jprb,3.4777e+02_jprb,2.3187e+02_jprb,1.1596e+02_jprb,9.7964e+01_jprb/)  
kbo( :, 1,35,16) = (/&
 & 5.9022e+02_jprb,5.8986e+02_jprb,4.4268e+02_jprb,2.9515e+02_jprb,1.4762e+02_jprb,9.6547e+01_jprb/)  
kbo( :, 2,35,16) = (/&
 & 5.5830e+02_jprb,5.5796e+02_jprb,4.1874e+02_jprb,2.7919e+02_jprb,1.3963e+02_jprb,9.1112e+01_jprb/)  
kbo( :, 3,35,16) = (/&
 & 5.2772e+02_jprb,5.2741e+02_jprb,3.9581e+02_jprb,2.6389e+02_jprb,1.3198e+02_jprb,9.3202e+01_jprb/)  
kbo( :, 4,35,16) = (/&
 & 4.9925e+02_jprb,4.9895e+02_jprb,3.7445e+02_jprb,2.4965e+02_jprb,1.2485e+02_jprb,1.0012e+02_jprb/)  

IF (lhook) CALL dr_hook('RRTM_KGB4:PART36',1,zhook_handle)
END SUBROUTINE part36


SUBROUTINE part37

REAL(KIND=JPRB) :: ZHOOK_HANDLE
IF (lhook) CALL dr_hook('RRTM_KGB4:PART37',0,zhook_handle)


kbo( :, 5,35,16) = (/&
 & 4.7190e+02_jprb,4.7162e+02_jprb,3.5394e+02_jprb,2.3598e+02_jprb,1.1801e+02_jprb,1.1144e+02_jprb/)  
kbo( :, 1,36,16) = (/&
 & 6.0541e+02_jprb,6.0504e+02_jprb,4.5407e+02_jprb,3.0274e+02_jprb,1.5140e+02_jprb,9.9056e+01_jprb/)  
kbo( :, 2,36,16) = (/&
 & 5.7172e+02_jprb,5.7138e+02_jprb,4.2880e+02_jprb,2.8589e+02_jprb,1.4298e+02_jprb,9.6302e+01_jprb/)  
kbo( :, 3,36,16) = (/&
 & 5.3964e+02_jprb,5.3931e+02_jprb,4.0474e+02_jprb,2.6984e+02_jprb,1.3495e+02_jprb,1.0085e+02_jprb/)  
kbo( :, 4,36,16) = (/&
 & 5.0967e+02_jprb,5.0936e+02_jprb,3.8226e+02_jprb,2.5485e+02_jprb,1.2745e+02_jprb,1.1048e+02_jprb/)  
kbo( :, 5,36,16) = (/&
 & 4.8120e+02_jprb,4.8091e+02_jprb,3.6091e+02_jprb,2.4062e+02_jprb,1.2033e+02_jprb,1.2766e+02_jprb/)  
kbo( :, 1,37,16) = (/&
 & 6.2365e+02_jprb,6.2328e+02_jprb,4.6775e+02_jprb,3.1185e+02_jprb,1.5596e+02_jprb,1.0253e+02_jprb/)  
kbo( :, 2,37,16) = (/&
 & 5.8812e+02_jprb,5.8777e+02_jprb,4.4110e+02_jprb,2.9409e+02_jprb,1.4707e+02_jprb,1.0086e+02_jprb/)  
kbo( :, 3,37,16) = (/&
 & 5.5432e+02_jprb,5.5398e+02_jprb,4.1575e+02_jprb,2.7718e+02_jprb,1.3861e+02_jprb,1.0660e+02_jprb/)  
kbo( :, 4,37,16) = (/&
 & 5.2295e+02_jprb,5.2264e+02_jprb,3.9222e+02_jprb,2.6149e+02_jprb,1.3076e+02_jprb,1.1783e+02_jprb/)  
kbo( :, 5,37,16) = (/&
 & 4.9325e+02_jprb,4.9295e+02_jprb,3.6994e+02_jprb,2.4664e+02_jprb,1.2334e+02_jprb,1.3920e+02_jprb/)  
kbo( :, 1,38,16) = (/&
 & 6.4066e+02_jprb,6.4028e+02_jprb,4.8051e+02_jprb,3.2036e+02_jprb,1.6020e+02_jprb,1.0610e+02_jprb/)  
kbo( :, 2,38,16) = (/&
 & 6.0334e+02_jprb,6.0298e+02_jprb,4.5252e+02_jprb,3.0169e+02_jprb,1.5087e+02_jprb,1.0585e+02_jprb/)  
kbo( :, 3,38,16) = (/&
 & 5.6803e+02_jprb,5.6769e+02_jprb,4.2603e+02_jprb,2.8403e+02_jprb,1.4204e+02_jprb,1.1325e+02_jprb/)  
kbo( :, 4,38,16) = (/&
 & 5.3536e+02_jprb,5.3504e+02_jprb,4.0152e+02_jprb,2.6769e+02_jprb,1.3386e+02_jprb,1.2673e+02_jprb/)  
kbo( :, 5,38,16) = (/&
 & 5.0450e+02_jprb,5.0419e+02_jprb,3.7838e+02_jprb,2.5226e+02_jprb,1.2614e+02_jprb,1.5384e+02_jprb/)  
kbo( :, 1,39,16) = (/&
 & 6.5607e+02_jprb,6.5567e+02_jprb,4.9206e+02_jprb,3.2805e+02_jprb,1.6405e+02_jprb,1.1010e+02_jprb/)  
kbo( :, 2,39,16) = (/&
 & 6.1741e+02_jprb,6.1704e+02_jprb,4.6306e+02_jprb,3.0872e+02_jprb,1.5438e+02_jprb,1.1190e+02_jprb/)  
kbo( :, 3,39,16) = (/&
 & 5.8064e+02_jprb,5.8030e+02_jprb,4.3549e+02_jprb,2.9034e+02_jprb,1.4519e+02_jprb,1.2173e+02_jprb/)  
kbo( :, 4,39,16) = (/&
 & 5.4667e+02_jprb,5.4634e+02_jprb,4.1001e+02_jprb,2.7335e+02_jprb,1.3668e+02_jprb,1.3901e+02_jprb/)  
kbo( :, 5,39,16) = (/&
 & 5.1480e+02_jprb,5.1449e+02_jprb,3.8610e+02_jprb,2.5741e+02_jprb,1.2872e+02_jprb,1.7411e+02_jprb/)  
kbo( :, 1,40,16) = (/&
 & 6.7476e+02_jprb,6.7436e+02_jprb,5.0608e+02_jprb,3.3740e+02_jprb,1.6871e+02_jprb,1.1362e+02_jprb/)  
kbo( :, 2,40,16) = (/&
 & 6.3434e+02_jprb,6.3396e+02_jprb,4.7576e+02_jprb,3.1718e+02_jprb,1.5861e+02_jprb,1.1463e+02_jprb/)  
kbo( :, 3,40,16) = (/&
 & 5.9602e+02_jprb,5.9566e+02_jprb,4.4702e+02_jprb,2.9802e+02_jprb,1.4902e+02_jprb,1.2450e+02_jprb/)  
kbo( :, 4,40,16) = (/&
 & 5.6052e+02_jprb,5.6019e+02_jprb,4.2040e+02_jprb,2.8027e+02_jprb,1.4015e+02_jprb,1.4231e+02_jprb/)  
kbo( :, 5,40,16) = (/&
 & 5.2757e+02_jprb,5.2726e+02_jprb,3.9569e+02_jprb,2.6380e+02_jprb,1.3191e+02_jprb,1.7853e+02_jprb/)  
kbo( :, 1,41,16) = (/&
 & 6.9313e+02_jprb,6.9271e+02_jprb,5.1985e+02_jprb,3.4658e+02_jprb,1.7330e+02_jprb,1.1720e+02_jprb/)  
kbo( :, 2,41,16) = (/&
 & 6.5096e+02_jprb,6.5057e+02_jprb,4.8822e+02_jprb,3.2549e+02_jprb,1.6276e+02_jprb,1.1702e+02_jprb/)  
kbo( :, 3,41,16) = (/&
 & 6.1137e+02_jprb,6.1101e+02_jprb,4.5853e+02_jprb,3.0570e+02_jprb,1.5286e+02_jprb,1.2672e+02_jprb/)  
kbo( :, 4,41,16) = (/&
 & 5.7432e+02_jprb,5.7398e+02_jprb,4.3074e+02_jprb,2.8717e+02_jprb,1.4359e+02_jprb,1.4478e+02_jprb/)  
kbo( :, 5,41,16) = (/&
 & 5.4017e+02_jprb,5.3985e+02_jprb,4.0513e+02_jprb,2.7009e+02_jprb,1.3505e+02_jprb,1.8129e+02_jprb/)  
kbo( :, 1,42,16) = (/&
 & 7.1087e+02_jprb,7.1044e+02_jprb,5.3316e+02_jprb,3.5544e+02_jprb,1.7773e+02_jprb,1.2104e+02_jprb/)  
kbo( :, 2,42,16) = (/&
 & 6.6722e+02_jprb,6.6682e+02_jprb,5.0042e+02_jprb,3.3362e+02_jprb,1.6682e+02_jprb,1.1969e+02_jprb/)  
kbo( :, 3,42,16) = (/&
 & 6.2628e+02_jprb,6.2590e+02_jprb,4.6971e+02_jprb,3.1315e+02_jprb,1.5658e+02_jprb,1.2937e+02_jprb/)  
kbo( :, 4,42,16) = (/&
 & 5.8799e+02_jprb,5.8763e+02_jprb,4.4099e+02_jprb,2.9400e+02_jprb,1.4701e+02_jprb,1.4803e+02_jprb/)  
kbo( :, 5,42,16) = (/&
 & 5.5259e+02_jprb,5.5226e+02_jprb,4.1445e+02_jprb,2.7630e+02_jprb,1.3816e+02_jprb,1.8567e+02_jprb/)  
kbo( :, 1,43,16) = (/&
 & 7.3062e+02_jprb,7.3018e+02_jprb,5.4797e+02_jprb,3.6532e+02_jprb,1.8267e+02_jprb,1.2580e+02_jprb/)  
kbo( :, 2,43,16) = (/&
 & 6.8544e+02_jprb,6.8503e+02_jprb,5.1409e+02_jprb,3.4273e+02_jprb,1.7137e+02_jprb,1.2199e+02_jprb/)  
kbo( :, 3,43,16) = (/&
 & 6.4317e+02_jprb,6.4278e+02_jprb,4.8238e+02_jprb,3.2159e+02_jprb,1.6080e+02_jprb,1.3097e+02_jprb/)  
kbo( :, 4,43,16) = (/&
 & 6.0333e+02_jprb,6.0297e+02_jprb,4.5250e+02_jprb,3.0167e+02_jprb,1.5084e+02_jprb,1.4959e+02_jprb/)  
kbo( :, 5,43,16) = (/&
 & 5.6660e+02_jprb,5.6626e+02_jprb,4.2495e+02_jprb,2.8331e+02_jprb,1.4166e+02_jprb,1.8670e+02_jprb/)  
kbo( :, 1,44,16) = (/&
 & 7.5137e+02_jprb,7.5091e+02_jprb,5.6353e+02_jprb,3.7569e+02_jprb,1.8785e+02_jprb,1.3103e+02_jprb/)  
kbo( :, 2,44,16) = (/&
 & 7.0468e+02_jprb,7.0426e+02_jprb,5.2852e+02_jprb,3.5235e+02_jprb,1.7618e+02_jprb,1.2458e+02_jprb/)  
kbo( :, 3,44,16) = (/&
 & 6.6086e+02_jprb,6.6046e+02_jprb,4.9565e+02_jprb,3.3044e+02_jprb,1.6522e+02_jprb,1.3258e+02_jprb/)  
kbo( :, 4,44,16) = (/&
 & 6.1971e+02_jprb,6.1934e+02_jprb,4.6479e+02_jprb,3.0986e+02_jprb,1.5494e+02_jprb,1.5142e+02_jprb/)  
kbo( :, 5,44,16) = (/&
 & 5.8152e+02_jprb,5.8117e+02_jprb,4.3614e+02_jprb,2.9077e+02_jprb,1.4539e+02_jprb,1.8803e+02_jprb/)  
kbo( :, 1,45,16) = (/&
 & 7.7242e+02_jprb,7.7196e+02_jprb,5.7932e+02_jprb,3.8622e+02_jprb,1.9312e+02_jprb,1.3645e+02_jprb/)  
kbo( :, 2,45,16) = (/&
 & 7.2383e+02_jprb,7.2339e+02_jprb,5.4287e+02_jprb,3.6192e+02_jprb,1.8097e+02_jprb,1.2782e+02_jprb/)  
kbo( :, 3,45,16) = (/&
 & 6.7845e+02_jprb,6.7804e+02_jprb,5.0884e+02_jprb,3.3923e+02_jprb,1.6962e+02_jprb,1.3514e+02_jprb/)  
kbo( :, 4,45,16) = (/&
 & 6.3619e+02_jprb,6.3581e+02_jprb,4.7715e+02_jprb,3.1810e+02_jprb,1.5906e+02_jprb,1.5528e+02_jprb/)  
kbo( :, 5,45,16) = (/&
 & 5.9654e+02_jprb,5.9618e+02_jprb,4.4741e+02_jprb,2.9827e+02_jprb,1.4914e+02_jprb,1.9320e+02_jprb/)  
kbo( :, 1,46,16) = (/&
 & 7.9501e+02_jprb,7.9453e+02_jprb,5.9626e+02_jprb,3.9751e+02_jprb,1.9876e+02_jprb,1.4240e+02_jprb/)  
kbo( :, 2,46,16) = (/&
 & 7.4406e+02_jprb,7.4362e+02_jprb,5.5805e+02_jprb,3.7204e+02_jprb,1.8602e+02_jprb,1.3140e+02_jprb/)  
kbo( :, 3,46,16) = (/&
 & 6.9726e+02_jprb,6.9684e+02_jprb,5.2295e+02_jprb,3.4863e+02_jprb,1.7432e+02_jprb,1.3799e+02_jprb/)  
kbo( :, 4,46,16) = (/&
 & 6.5358e+02_jprb,6.5318e+02_jprb,4.9018e+02_jprb,3.2679e+02_jprb,1.6340e+02_jprb,1.5937e+02_jprb/)  
kbo( :, 5,46,16) = (/&
 & 6.1254e+02_jprb,6.1218e+02_jprb,4.5941e+02_jprb,3.0628e+02_jprb,1.5314e+02_jprb,1.9924e+02_jprb/)  
kbo( :, 1,47,16) = (/&
 & 8.2010e+02_jprb,8.1961e+02_jprb,6.1508e+02_jprb,4.1005e+02_jprb,2.0503e+02_jprb,1.4924e+02_jprb/)  
kbo( :, 2,47,16) = (/&
 & 7.6659e+02_jprb,7.6613e+02_jprb,5.7494e+02_jprb,3.8330e+02_jprb,1.9165e+02_jprb,1.3525e+02_jprb/)  
kbo( :, 3,47,16) = (/&
 & 7.1831e+02_jprb,7.1788e+02_jprb,5.3873e+02_jprb,3.5916e+02_jprb,1.7958e+02_jprb,1.3959e+02_jprb/)  
kbo( :, 4,47,16) = (/&
 & 6.7281e+02_jprb,6.7241e+02_jprb,5.0461e+02_jprb,3.3641e+02_jprb,1.6821e+02_jprb,1.6058e+02_jprb/)  
kbo( :, 5,47,16) = (/&
 & 6.3054e+02_jprb,6.3016e+02_jprb,4.7291e+02_jprb,3.1527e+02_jprb,1.5764e+02_jprb,2.0056e+02_jprb/)  
kbo( :, 1,48,16) = (/&
 & 8.4633e+02_jprb,8.4583e+02_jprb,6.3475e+02_jprb,4.2317e+02_jprb,2.1159e+02_jprb,1.5645e+02_jprb/)  
kbo( :, 2,48,16) = (/&
 & 7.9016e+02_jprb,7.8968e+02_jprb,5.9262e+02_jprb,3.9508e+02_jprb,1.9755e+02_jprb,1.4053e+02_jprb/)  
kbo( :, 3,48,16) = (/&
 & 7.3934e+02_jprb,7.3890e+02_jprb,5.5451e+02_jprb,3.6967e+02_jprb,1.8484e+02_jprb,1.4309e+02_jprb/)  
kbo( :, 4,48,16) = (/&
 & 6.9255e+02_jprb,6.9213e+02_jprb,5.1941e+02_jprb,3.4628e+02_jprb,1.7314e+02_jprb,1.6459e+02_jprb/)  
kbo( :, 5,48,16) = (/&
 & 6.4886e+02_jprb,6.4847e+02_jprb,4.8665e+02_jprb,3.2443e+02_jprb,1.6222e+02_jprb,2.0658e+02_jprb/)  
kbo( :, 1,49,16) = (/&
 & 8.7303e+02_jprb,8.7251e+02_jprb,6.5477e+02_jprb,4.3652e+02_jprb,2.1826e+02_jprb,1.6405e+02_jprb/)  
kbo( :, 2,49,16) = (/&
 & 8.1423e+02_jprb,8.1374e+02_jprb,6.1067e+02_jprb,4.0712e+02_jprb,2.0356e+02_jprb,1.4757e+02_jprb/)  
kbo( :, 3,49,16) = (/&
 & 7.6096e+02_jprb,7.6050e+02_jprb,5.7072e+02_jprb,3.8048e+02_jprb,1.9025e+02_jprb,1.4935e+02_jprb/)  
kbo( :, 4,49,16) = (/&
 & 7.1274e+02_jprb,7.1231e+02_jprb,5.3455e+02_jprb,3.5637e+02_jprb,1.7819e+02_jprb,1.7305e+02_jprb/)  
kbo( :, 5,49,16) = (/&
 & 6.6745e+02_jprb,6.6705e+02_jprb,5.0059e+02_jprb,3.3373e+02_jprb,1.6687e+02_jprb,2.2042e+02_jprb/)  
kbo( :, 1,50,16) = (/&
 & 8.9886e+02_jprb,8.9832e+02_jprb,6.7415e+02_jprb,4.4943e+02_jprb,2.2472e+02_jprb,1.7154e+02_jprb/)  
kbo( :, 2,50,16) = (/&
 & 8.3744e+02_jprb,8.3694e+02_jprb,6.2808e+02_jprb,4.1872e+02_jprb,2.0936e+02_jprb,1.5447e+02_jprb/)  
kbo( :, 3,50,16) = (/&
 & 7.8206e+02_jprb,7.8159e+02_jprb,5.8654e+02_jprb,3.9103e+02_jprb,1.9552e+02_jprb,1.5292e+02_jprb/)  
kbo( :, 4,50,16) = (/&
 & 7.3184e+02_jprb,7.3140e+02_jprb,5.4888e+02_jprb,3.6592e+02_jprb,1.8296e+02_jprb,1.7616e+02_jprb/)  
kbo( :, 5,50,16) = (/&
 & 6.8529e+02_jprb,6.8488e+02_jprb,5.1397e+02_jprb,3.4265e+02_jprb,1.7133e+02_jprb,2.2472e+02_jprb/)  
kbo( :, 1,51,16) = (/&
 & 9.2454e+02_jprb,9.2398e+02_jprb,6.9341e+02_jprb,4.6227e+02_jprb,2.3114e+02_jprb,1.7932e+02_jprb/)  
kbo( :, 2,51,16) = (/&
 & 8.6100e+02_jprb,8.6049e+02_jprb,6.4575e+02_jprb,4.3050e+02_jprb,2.1525e+02_jprb,1.6117e+02_jprb/)  
kbo( :, 3,51,16) = (/&
 & 8.0315e+02_jprb,8.0267e+02_jprb,6.0236e+02_jprb,4.0158e+02_jprb,2.0079e+02_jprb,1.5563e+02_jprb/)  
kbo( :, 4,51,16) = (/&
 & 7.5078e+02_jprb,7.5033e+02_jprb,5.6309e+02_jprb,3.7539e+02_jprb,1.8770e+02_jprb,1.7663e+02_jprb/)  
kbo( :, 5,51,16) = (/&
 & 7.0300e+02_jprb,7.0257e+02_jprb,5.2725e+02_jprb,3.5150e+02_jprb,1.7575e+02_jprb,2.2386e+02_jprb/)  
kbo( :, 1,52,16) = (/&
 & 9.5090e+02_jprb,9.5033e+02_jprb,7.1318e+02_jprb,4.7545e+02_jprb,2.3773e+02_jprb,1.8754e+02_jprb/)  
kbo( :, 2,52,16) = (/&
 & 8.8502e+02_jprb,8.8448e+02_jprb,6.6376e+02_jprb,4.4251e+02_jprb,2.2126e+02_jprb,1.6850e+02_jprb/)  
kbo( :, 3,52,16) = (/&
 & 8.2471e+02_jprb,8.2421e+02_jprb,6.1853e+02_jprb,4.1235e+02_jprb,2.0618e+02_jprb,1.6061e+02_jprb/)  
kbo( :, 4,52,16) = (/&
 & 7.7013e+02_jprb,7.6967e+02_jprb,5.7760e+02_jprb,3.8507e+02_jprb,1.9253e+02_jprb,1.8010e+02_jprb/)  
kbo( :, 5,52,16) = (/&
 & 7.2097e+02_jprb,7.2053e+02_jprb,5.4073e+02_jprb,3.6048e+02_jprb,1.8024e+02_jprb,2.2809e+02_jprb/)  
kbo( :, 1,53,16) = (/&
 & 9.7788e+02_jprb,9.7729e+02_jprb,7.3341e+02_jprb,4.8894e+02_jprb,2.4447e+02_jprb,1.9637e+02_jprb/)  
kbo( :, 2,53,16) = (/&
 & 9.0961e+02_jprb,9.0906e+02_jprb,6.8221e+02_jprb,4.5481e+02_jprb,2.2740e+02_jprb,1.7681e+02_jprb/)  
kbo( :, 3,53,16) = (/&
 & 8.4702e+02_jprb,8.4651e+02_jprb,6.3527e+02_jprb,4.2351e+02_jprb,2.1176e+02_jprb,1.6836e+02_jprb/)  
kbo( :, 4,53,16) = (/&
 & 7.9046e+02_jprb,7.8999e+02_jprb,5.9285e+02_jprb,3.9523e+02_jprb,1.9762e+02_jprb,1.8837e+02_jprb/)  
kbo( :, 5,53,16) = (/&
 & 7.3936e+02_jprb,7.3892e+02_jprb,5.5452e+02_jprb,3.6968e+02_jprb,1.8484e+02_jprb,2.4127e+02_jprb/)  
kbo( :, 1,54,16) = (/&
 & 1.0035e+03_jprb,1.0029e+03_jprb,7.5259e+02_jprb,5.0173e+02_jprb,2.5087e+02_jprb,2.0491e+02_jprb/)  
kbo( :, 2,54,16) = (/&
 & 9.3285e+02_jprb,9.3229e+02_jprb,6.9964e+02_jprb,4.6643e+02_jprb,2.3321e+02_jprb,1.8242e+02_jprb/)  
kbo( :, 3,54,16) = (/&
 & 8.6846e+02_jprb,8.6794e+02_jprb,6.5134e+02_jprb,4.3423e+02_jprb,2.1712e+02_jprb,1.7066e+02_jprb/)  
kbo( :, 4,54,16) = (/&
 & 8.0960e+02_jprb,8.0911e+02_jprb,6.0720e+02_jprb,4.0480e+02_jprb,2.0240e+02_jprb,1.8019e+02_jprb/)  
kbo( :, 5,54,16) = (/&
 & 7.5654e+02_jprb,7.5608e+02_jprb,5.6740e+02_jprb,3.7827e+02_jprb,1.8914e+02_jprb,2.2258e+02_jprb/)  
kbo( :, 1,55,16) = (/&
 & 1.0290e+03_jprb,1.0283e+03_jprb,7.7171e+02_jprb,5.1448e+02_jprb,2.5724e+02_jprb,2.1368e+02_jprb/)  
kbo( :, 2,55,16) = (/&
 & 9.5574e+02_jprb,9.5517e+02_jprb,7.1681e+02_jprb,4.7787e+02_jprb,2.3894e+02_jprb,1.8874e+02_jprb/)  
kbo( :, 3,55,16) = (/&
 & 8.8926e+02_jprb,8.8873e+02_jprb,6.6695e+02_jprb,4.4463e+02_jprb,2.2232e+02_jprb,1.7135e+02_jprb/)  
kbo( :, 4,55,16) = (/&
 & 8.2830e+02_jprb,8.2781e+02_jprb,6.2123e+02_jprb,4.1415e+02_jprb,2.0708e+02_jprb,1.6723e+02_jprb/)  
kbo( :, 5,55,16) = (/&
 & 7.7332e+02_jprb,7.7285e+02_jprb,5.7999e+02_jprb,3.8666e+02_jprb,1.9333e+02_jprb,1.9285e+02_jprb/)  
kbo( :, 1,56,16) = (/&
 & 1.0544e+03_jprb,1.0538e+03_jprb,7.9084e+02_jprb,5.2722e+02_jprb,2.6389e+02_jprb,2.2294e+02_jprb/)  
kbo( :, 2,56,16) = (/&
 & 9.7928e+02_jprb,9.7870e+02_jprb,7.3446e+02_jprb,4.8964e+02_jprb,2.4482e+02_jprb,1.9643e+02_jprb/)  
kbo( :, 3,56,16) = (/&
 & 9.1058e+02_jprb,9.1004e+02_jprb,6.8294e+02_jprb,4.5529e+02_jprb,2.2765e+02_jprb,1.7473e+02_jprb/)  
kbo( :, 4,56,16) = (/&
 & 8.4774e+02_jprb,8.4724e+02_jprb,6.3581e+02_jprb,4.2387e+02_jprb,2.1194e+02_jprb,1.6206e+02_jprb/)  
kbo( :, 5,56,16) = (/&
 & 7.9097e+02_jprb,7.9049e+02_jprb,5.9323e+02_jprb,3.9548e+02_jprb,1.9774e+02_jprb,1.7273e+02_jprb/)  
kbo( :, 1,57,16) = (/&
 & 1.0813e+03_jprb,1.0806e+03_jprb,8.1095e+02_jprb,5.4063e+02_jprb,2.7119e+02_jprb,2.3288e+02_jprb/)  
kbo( :, 2,57,16) = (/&
 & 1.0033e+03_jprb,1.0027e+03_jprb,7.5245e+02_jprb,5.0163e+02_jprb,2.5082e+02_jprb,2.0449e+02_jprb/)  
kbo( :, 3,57,16) = (/&
 & 9.3233e+02_jprb,9.3177e+02_jprb,6.9925e+02_jprb,4.6617e+02_jprb,2.3308e+02_jprb,1.8109e+02_jprb/)  
kbo( :, 4,57,16) = (/&
 & 8.6794e+02_jprb,8.6742e+02_jprb,6.5095e+02_jprb,4.3397e+02_jprb,2.1699e+02_jprb,1.6333e+02_jprb/)  
kbo( :, 5,57,16) = (/&
 & 8.0892e+02_jprb,8.0843e+02_jprb,6.0669e+02_jprb,4.0446e+02_jprb,2.0223e+02_jprb,1.5955e+02_jprb/)  
kbo( :, 1,58,16) = (/&
 & 1.1081e+03_jprb,1.1074e+03_jprb,8.3108e+02_jprb,5.5405e+02_jprb,2.7884e+02_jprb,2.4302e+02_jprb/)  
kbo( :, 2,58,16) = (/&
 & 1.0267e+03_jprb,1.0261e+03_jprb,7.7004e+02_jprb,5.1336e+02_jprb,2.5668e+02_jprb,2.1265e+02_jprb/)  
kbo( :, 3,58,16) = (/&
 & 9.5368e+02_jprb,9.5311e+02_jprb,7.1526e+02_jprb,4.7684e+02_jprb,2.3842e+02_jprb,1.8786e+02_jprb/)  
kbo( :, 4,58,16) = (/&
 & 8.8727e+02_jprb,8.8673e+02_jprb,6.6545e+02_jprb,4.4363e+02_jprb,2.2182e+02_jprb,1.6726e+02_jprb/)  
kbo( :, 5,58,16) = (/&
 & 8.2643e+02_jprb,8.2594e+02_jprb,6.1982e+02_jprb,4.1322e+02_jprb,2.0661e+02_jprb,1.5255e+02_jprb/)  
kbo( :, 1,59,16) = (/&
 & 1.1197e+03_jprb,1.1190e+03_jprb,8.3976e+02_jprb,5.5984e+02_jprb,2.8216e+02_jprb,2.4731e+02_jprb/)  
kbo( :, 2,59,16) = (/&
 & 1.0365e+03_jprb,1.0359e+03_jprb,7.7738e+02_jprb,5.1826e+02_jprb,2.5916e+02_jprb,2.1609e+02_jprb/)  
kbo( :, 3,59,16) = (/&
 & 9.6265e+02_jprb,9.6208e+02_jprb,7.2199e+02_jprb,4.8133e+02_jprb,2.4066e+02_jprb,1.9071e+02_jprb/)  
kbo( :, 4,59,16) = (/&
 & 8.9534e+02_jprb,8.9480e+02_jprb,6.7151e+02_jprb,4.4767e+02_jprb,2.2384e+02_jprb,1.6963e+02_jprb/)  
kbo( :, 5,59,16) = (/&
 & 8.3369e+02_jprb,8.3319e+02_jprb,6.2527e+02_jprb,4.1685e+02_jprb,2.0842e+02_jprb,1.5178e+02_jprb/)  

!     The array SELFREFO contains the coefficient of the water vapor
!     self-continuum (including the energy term).  The first index
!     refers to temperature in 7.2 degree increments.  For instance,
!     JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8,
!     etc.  The second index runs over the g-channel (1 to 16).

selfrefo( :, 1) = (/&
 & 2.62628e-01_jprb, 2.29008e-01_jprb, 1.99692e-01_jprb, 1.74129e-01_jprb, 1.51838e-01_jprb,&
 & 1.32400e-01_jprb, 1.15451e-01_jprb, 1.00672e-01_jprb, 8.77845e-02_jprb, 7.65469e-02_jprb/)  
selfrefo( :, 2) = (/&
 & 2.45051e-01_jprb, 2.12961e-01_jprb, 1.85073e-01_jprb, 1.60837e-01_jprb, 1.39775e-01_jprb,&
 & 1.21471e-01_jprb, 1.05564e-01_jprb, 9.17397e-02_jprb, 7.97260e-02_jprb, 6.92856e-02_jprb/)  
selfrefo( :, 3) = (/&
 & 2.42194e-01_jprb, 2.09976e-01_jprb, 1.82044e-01_jprb, 1.57827e-01_jprb, 1.36832e-01_jprb,&
 & 1.18630e-01_jprb, 1.02849e-01_jprb, 8.91673e-02_jprb, 7.73057e-02_jprb, 6.70221e-02_jprb/)  
selfrefo( :, 4) = (/&
 & 2.44485e-01_jprb, 2.11926e-01_jprb, 1.83702e-01_jprb, 1.59237e-01_jprb, 1.38030e-01_jprb,&
 & 1.19648e-01_jprb, 1.03714e-01_jprb, 8.99014e-02_jprb, 7.79286e-02_jprb, 6.75503e-02_jprb/)  
selfrefo( :, 5) = (/&
 & 2.43120e-01_jprb, 2.10743e-01_jprb, 1.82679e-01_jprb, 1.58351e-01_jprb, 1.37263e-01_jprb,&
 & 1.18984e-01_jprb, 1.03139e-01_jprb, 8.94038e-02_jprb, 7.74978e-02_jprb, 6.71774e-02_jprb/)  
selfrefo( :, 6) = (/&
 & 2.40558e-01_jprb, 2.08922e-01_jprb, 1.81446e-01_jprb, 1.57583e-01_jprb, 1.36859e-01_jprb,&
 & 1.18860e-01_jprb, 1.03229e-01_jprb, 8.96529e-02_jprb, 7.78624e-02_jprb, 6.76225e-02_jprb/)  
selfrefo( :, 7) = (/&
 & 2.42496e-01_jprb, 2.10386e-01_jprb, 1.82528e-01_jprb, 1.58359e-01_jprb, 1.37390e-01_jprb,&
 & 1.19198e-01_jprb, 1.03415e-01_jprb, 8.97211e-02_jprb, 7.78409e-02_jprb, 6.75337e-02_jprb/)  
selfrefo( :, 8) = (/&
 & 2.39781e-01_jprb, 2.08227e-01_jprb, 1.80825e-01_jprb, 1.57029e-01_jprb, 1.36365e-01_jprb,&
 & 1.18419e-01_jprb, 1.02836e-01_jprb, 8.93030e-02_jprb, 7.75510e-02_jprb, 6.73456e-02_jprb/)  
selfrefo( :, 9) = (/&
 & 2.38707e-01_jprb, 2.07058e-01_jprb, 1.79605e-01_jprb, 1.55792e-01_jprb, 1.35136e-01_jprb,&
 & 1.17219e-01_jprb, 1.01677e-01_jprb, 8.81962e-02_jprb, 7.65026e-02_jprb, 6.63594e-02_jprb/)  
selfrefo( :,10) = (/&
 & 2.29942e-01_jprb, 2.00668e-01_jprb, 1.75121e-01_jprb, 1.52826e-01_jprb, 1.33370e-01_jprb,&
 & 1.16390e-01_jprb, 1.01572e-01_jprb, 8.86410e-02_jprb, 7.73560e-02_jprb, 6.75077e-02_jprb/)  
selfrefo( :,11) = (/&
 & 2.39870e-01_jprb, 2.08120e-01_jprb, 1.80573e-01_jprb, 1.56671e-01_jprb, 1.35934e-01_jprb,&
 & 1.17941e-01_jprb, 1.02330e-01_jprb, 8.87854e-02_jprb, 7.70335e-02_jprb, 6.68371e-02_jprb/)  
selfrefo( :,12) = (/&
 & 2.40196e-01_jprb, 2.08400e-01_jprb, 1.80812e-01_jprb, 1.56877e-01_jprb, 1.36110e-01_jprb,&
 & 1.18092e-01_jprb, 1.02460e-01_jprb, 8.88962e-02_jprb, 7.71284e-02_jprb, 6.69184e-02_jprb/)  
selfrefo( :,13) = (/&
 & 2.40426e-01_jprb, 2.08603e-01_jprb, 1.80991e-01_jprb, 1.57035e-01_jprb, 1.36249e-01_jprb,&
 & 1.18214e-01_jprb, 1.02567e-01_jprb, 8.89909e-02_jprb, 7.72117e-02_jprb, 6.69917e-02_jprb/)  
selfrefo( :,14) = (/&
 & 2.40590e-01_jprb, 2.08742e-01_jprb, 1.81110e-01_jprb, 1.57135e-01_jprb, 1.36334e-01_jprb,&
 & 1.18287e-01_jprb, 1.02628e-01_jprb, 8.90428e-02_jprb, 7.72556e-02_jprb, 6.70288e-02_jprb/)  

IF (lhook) CALL dr_hook('RRTM_KGB4:PART37',1,zhook_handle)
END SUBROUTINE part37


SUBROUTINE part38

REAL(KIND=JPRB) :: ZHOOK_HANDLE
IF (lhook) CALL dr_hook('RRTM_KGB4:PART38',0,zhook_handle)


selfrefo( :,15) = (/&
 & 2.40634e-01_jprb, 2.08779e-01_jprb, 1.81141e-01_jprb, 1.57162e-01_jprb, 1.36357e-01_jprb,&
 & 1.18306e-01_jprb, 1.02645e-01_jprb, 8.90565e-02_jprb, 7.72673e-02_jprb, 6.70387e-02_jprb/)  
selfrefo( :,16) = (/&
 & 2.40652e-01_jprb, 2.08793e-01_jprb, 1.81151e-01_jprb, 1.57169e-01_jprb, 1.36362e-01_jprb,&
 & 1.18309e-01_jprb, 1.02647e-01_jprb, 8.90576e-02_jprb, 7.72675e-02_jprb, 6.70383e-02_jprb/)  

fracrefao( :, 1) = (/&
 !     From P = 
 & 0.15579100_jprb,0.14918099_jprb,0.14113800_jprb,0.13127001_jprb,&
 & 0.11796300_jprb,0.10174300_jprb,0.08282370_jprb,0.06238150_jprb,&
 & 0.04213440_jprb,0.00458968_jprb,0.00377949_jprb,0.00298736_jprb,&
 & 0.00220743_jprb,0.00140644_jprb,0.00053024_jprb,0.00007459_jprb/)  
fracrefao( :, 2) = (/&
 & 0.15292799_jprb,0.15004000_jprb,0.14211500_jprb,0.13176700_jprb,&
 & 0.11821100_jprb,0.10186300_jprb,0.08288040_jprb,0.06241390_jprb,&
 & 0.04220720_jprb,0.00459006_jprb,0.00377919_jprb,0.00298743_jprb,&
 & 0.00220743_jprb,0.00140644_jprb,0.00053024_jprb,0.00007459_jprb/)  
fracrefao( :, 3) = (/&
 & 0.14386199_jprb,0.15125300_jprb,0.14650001_jprb,0.13377000_jprb,&
 & 0.11895900_jprb,0.10229400_jprb,0.08312110_jprb,0.06239520_jprb,&
 & 0.04225560_jprb,0.00459428_jprb,0.00378865_jprb,0.00298860_jprb,&
 & 0.00220743_jprb,0.00140644_jprb,0.00053024_jprb,0.00007459_jprb/)  
fracrefao( :, 4) = (/&
 & 0.14359100_jprb,0.14561599_jprb,0.14479300_jprb,0.13740200_jprb,&
 & 0.12150100_jprb,0.10315400_jprb,0.08355480_jprb,0.06247240_jprb,&
 & 0.04230980_jprb,0.00459916_jprb,0.00378373_jprb,0.00300063_jprb,&
 & 0.00221111_jprb,0.00140644_jprb,0.00053024_jprb,0.00007459_jprb/)  
fracrefao( :, 5) = (/&
 & 0.14337599_jprb,0.14451601_jprb,0.14238000_jprb,0.13520500_jprb,&
 & 0.12354200_jprb,0.10581200_jprb,0.08451810_jprb,0.06262440_jprb,&
 & 0.04239590_jprb,0.00460297_jprb,0.00378701_jprb,0.00300466_jprb,&
 & 0.00221899_jprb,0.00141020_jprb,0.00053024_jprb,0.00007459_jprb/)  
fracrefao( :, 6) = (/&
 & 0.14322001_jprb,0.14397401_jprb,0.14117201_jprb,0.13401900_jprb,&
 & 0.12255500_jprb,0.10774100_jprb,0.08617650_jprb,0.06296420_jprb,&
 & 0.04249590_jprb,0.00463406_jprb,0.00378241_jprb,0.00302037_jprb,&
 & 0.00221583_jprb,0.00141103_jprb,0.00053814_jprb,0.00007991_jprb/)  
fracrefao( :, 7) = (/&
 & 0.14309500_jprb,0.14364301_jprb,0.14043900_jprb,0.13348100_jprb,&
 & 0.12211600_jprb,0.10684700_jprb,0.08820590_jprb,0.06374610_jprb,&
 & 0.04264730_jprb,0.00464231_jprb,0.00384022_jprb,0.00303427_jprb,&
 & 0.00221825_jprb,0.00140943_jprb,0.00055564_jprb,0.00007991_jprb/)  
fracrefao( :, 8) = (/&
 & 0.15579100_jprb,0.14918099_jprb,0.14113800_jprb,0.13127001_jprb,&
 & 0.11796300_jprb,0.10174300_jprb,0.08282370_jprb,0.06238150_jprb,&
 & 0.04213440_jprb,0.00458968_jprb,0.00377949_jprb,0.00298736_jprb,&
 & 0.00220743_jprb,0.00140644_jprb,0.00053024_jprb,0.00007459_jprb/)  
fracrefao( :, 9) = (/&
 & 0.15937001_jprb,0.15159500_jprb,0.14242800_jprb,0.13078900_jprb,&
 & 0.11671300_jprb,0.10035700_jprb,0.08143450_jprb,0.06093850_jprb,&
 & 0.04105320_jprb,0.00446233_jprb,0.00369844_jprb,0.00293784_jprb,&
 & 0.00216425_jprb,0.00143403_jprb,0.00054571_jprb,0.00007991_jprb/)  

fracrefbo( :, 1) = (/&
 !     From P = 1.17 mb.
 & 0.15558299_jprb,0.14930600_jprb,0.14104301_jprb,0.13124099_jprb,&
 & 0.11792900_jprb,0.10159200_jprb,0.08314130_jprb,0.06240450_jprb,&
 & 0.04217020_jprb,0.00459313_jprb,0.00379798_jprb,0.00299835_jprb,&
 & 0.00218950_jprb,0.00140615_jprb,0.00053010_jprb,0.00007457_jprb/)  
fracrefbo( :, 2) = (/&
 & 0.15592700_jprb,0.14918999_jprb,0.14095700_jprb,0.13115700_jprb,&
 & 0.11788900_jprb,0.10158000_jprb,0.08313780_jprb,0.06240240_jprb,&
 & 0.04217000_jprb,0.00459313_jprb,0.00379798_jprb,0.00299835_jprb,&
 & 0.00218950_jprb,0.00140615_jprb,0.00053010_jprb,0.00007457_jprb/)  
fracrefbo( :, 3) = (/&
 & 0.15949000_jprb,0.15014900_jprb,0.14162201_jprb,0.13080800_jprb,&
 & 0.11713500_jprb,0.10057100_jprb,0.08170080_jprb,0.06128110_jprb,&
 & 0.04165600_jprb,0.00459202_jprb,0.00379835_jprb,0.00299717_jprb,&
 & 0.00218958_jprb,0.00140616_jprb,0.00053010_jprb,0.00007457_jprb/)  
fracrefbo( :, 4) = (/&
 & 0.15967900_jprb,0.15038200_jprb,0.14196999_jprb,0.13074800_jprb,&
 & 0.11701700_jprb,0.10053000_jprb,0.08160790_jprb,0.06122690_jprb,&
 & 0.04128310_jprb,0.00456598_jprb,0.00379486_jprb,0.00299457_jprb,&
 & 0.00219016_jprb,0.00140619_jprb,0.00053011_jprb,0.00007456_jprb/)  
fracrefbo( :, 5) = (/&
 & 0.15989800_jprb,0.15057300_jprb,0.14207700_jprb,0.13068600_jprb,&
 & 0.11682900_jprb,0.10053900_jprb,0.08163610_jprb,0.06121870_jprb,&
 & 0.04121690_jprb,0.00449061_jprb,0.00371235_jprb,0.00294207_jprb,&
 & 0.00217778_jprb,0.00139877_jprb,0.00053011_jprb,0.00007455_jprb/)  
fracrefbo( :, 6) = (/&
 & 0.15950100_jprb,0.15112500_jprb,0.14199100_jprb,0.13071300_jprb,&
 & 0.11680800_jprb,0.10054600_jprb,0.08179050_jprb,0.06120910_jprb,&
 & 0.04126050_jprb,0.00444324_jprb,0.00366843_jprb,0.00289369_jprb,&
 & 0.00211550_jprb,0.00134746_jprb,0.00050874_jprb,0.00007863_jprb/)  

IF (lhook) CALL dr_hook('RRTM_KGB4:PART38',1,zhook_handle)
END SUBROUTINE part38


END SUBROUTINE rrtm_kgb4