rrtm_kgb3.F90

Go to the documentation of this file.

#ifdef RS6K
@process nooptimize
#endif
#ifdef VPP 
!OPT SCALAR
#endif
SUBROUTINE rrtm_kgb3

!     Originally by Eli J. Mlawer, Atmospheric & Environmental Research.
!     BAND 3:  500-630 cm-1 (low - H2O,CO2; high - H2O,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 yoerrto3 , ONLY : kao     ,kbo     ,selfrefo   ,fracrefao  ,&
 & fracrefbo  ,forrefo    ,absn2oao   ,absn2obo  
USE yoerrta3 , ONLY :    etaref    ,h2oref     ,&
 & n2oref     ,co2ref     ,strrat  

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

IMPLICIT NONE
REAL(KIND=JPRB) :: ZHOOK_HANDLE

IF (lhook) CALL dr_hook('RRTM_KGB3',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_KGB3',1,zhook_handle)

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

CONTAINS

SUBROUTINE part1

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


forrefo( :) = (/&
 & 1.76842e-04_jprb, 1.77913e-04_jprb, 1.25186e-04_jprb, 1.07912e-04_jprb,&
 & 1.05217e-04_jprb, 7.48726e-05_jprb, 1.11701e-04_jprb, 7.68921e-05_jprb,&
 & 9.87242e-05_jprb, 9.85711e-05_jprb, 6.16557e-05_jprb,-1.61291e-05_jprb,&
 & -1.26794e-04_jprb,-1.19011e-04_jprb,-2.67814e-04_jprb, 6.95005e-05_jprb/)  

absn2oao( :) = (/&
 & 1.50387e-01_jprb,2.91407e-01_jprb,6.28803e-01_jprb,9.65619e-01_jprb,&
 & 1.15054e-00_jprb,2.23424e-00_jprb,1.83392e-00_jprb,1.39033e-00_jprb,&
 & 4.28457e-01_jprb,2.73502e-01_jprb,1.84307e-01_jprb,1.61325e-01_jprb,&
 & 7.66314e-02_jprb,1.33862e-01_jprb,6.71196e-07_jprb,1.59293e-06_jprb/)  

absn2obo( :) = (/&
 & 9.37044e-05_jprb,1.23318e-03_jprb,7.91720e-03_jprb,5.33005e-02_jprb,&
 & 1.72343e-01_jprb,4.29571e-01_jprb,1.01288e+00_jprb,3.83863e+00_jprb,&
 & 1.15312e+01_jprb,1.08383e+00_jprb,2.24847e+00_jprb,1.51268e+00_jprb,&
 & 3.33177e-01_jprb,7.82102e-01_jprb,3.44631e-01_jprb,1.61039e-03_jprb/)  

etaref( :) = (/&
 & 0.0_jprb,0.125_jprb,0.25_jprb,0.375_jprb,0.5_jprb,0.625_jprb,0.75_jprb,0.875_jprb,0.9875_jprb,1.0_jprb/)  

h2oref( :) = (/&
 & 1.87599e-02_jprb,1.22233e-02_jprb,5.89086e-03_jprb,2.76753e-03_jprb,1.40651e-03_jprb, &
 & 7.59698e-04_jprb,3.88758e-04_jprb,1.65422e-04_jprb,3.71895e-05_jprb,7.47648e-06_jprb, &
 & 4.30818e-06_jprb,3.33194e-06_jprb,3.20393e-06_jprb,3.16186e-06_jprb,3.25235e-06_jprb, &
 & 3.42258e-06_jprb,3.62884e-06_jprb,3.91482e-06_jprb,4.14875e-06_jprb,4.30810e-06_jprb,&
 & 4.44204e-06_jprb,4.57783e-06_jprb,4.70865e-06_jprb,4.79432e-06_jprb,4.86971e-06_jprb, &
 & 4.92603e-06_jprb,4.96688e-06_jprb,4.99628e-06_jprb,5.05266e-06_jprb,5.12658e-06_jprb, &
 & 5.25028e-06_jprb,5.35708e-06_jprb,5.45085e-06_jprb,5.48304e-06_jprb,5.50000e-06_jprb, &
 & 5.50000e-06_jprb,5.45359e-06_jprb,5.40468e-06_jprb,5.35576e-06_jprb,5.25327e-06_jprb,&
 & 5.14362e-06_jprb,5.03396e-06_jprb,4.87662e-06_jprb,4.69787e-06_jprb,4.51911e-06_jprb, &
 & 4.33600e-06_jprb,4.14416e-06_jprb,3.95232e-06_jprb,3.76048e-06_jprb,3.57217e-06_jprb, &
 & 3.38549e-06_jprb,3.19881e-06_jprb,3.01212e-06_jprb,2.82621e-06_jprb,2.64068e-06_jprb, &
 & 2.45515e-06_jprb,2.26962e-06_jprb,2.08659e-06_jprb,1.93029e-06_jprb/)  

n2oref( :) = (/&
 & 3.20000e-07_jprb,3.20000e-07_jprb,3.20000e-07_jprb,3.20000e-07_jprb,3.20000e-07_jprb,&
 & 3.19652e-07_jprb,3.15324e-07_jprb,3.03830e-07_jprb,2.94221e-07_jprb,2.84953e-07_jprb,&
 & 2.76714e-07_jprb,2.64709e-07_jprb,2.42847e-07_jprb,2.09547e-07_jprb,1.71945e-07_jprb,&
 & 1.37491e-07_jprb,1.13319e-07_jprb,1.00354e-07_jprb,9.12812e-08_jprb,8.54633e-08_jprb,&
 & 8.03631e-08_jprb,7.33718e-08_jprb,6.59754e-08_jprb,5.60386e-08_jprb,4.70901e-08_jprb,&
 & 3.99774e-08_jprb,3.29786e-08_jprb,2.60642e-08_jprb,2.10663e-08_jprb,1.65918e-08_jprb,&
 & 1.30167e-08_jprb,1.00900e-08_jprb,7.62490e-09_jprb,6.11592e-09_jprb,4.66725e-09_jprb,&
 & 3.28574e-09_jprb,2.84838e-09_jprb,2.46198e-09_jprb,2.07557e-09_jprb,1.85507e-09_jprb,&
 & 1.65675e-09_jprb,1.45843e-09_jprb,1.31948e-09_jprb,1.20716e-09_jprb,1.09485e-09_jprb,&
 & 9.97803e-10_jprb,9.31260e-10_jprb,8.64721e-10_jprb,7.98181e-10_jprb,7.51380e-10_jprb,&
 & 7.13670e-10_jprb,6.75960e-10_jprb,6.38250e-10_jprb,6.09811e-10_jprb,5.85998e-10_jprb,&
 & 5.62185e-10_jprb,5.38371e-10_jprb,5.15183e-10_jprb,4.98660e-10_jprb/)  

co2ref( :) = (/&
 & 3.55000e-04_jprb,3.55000e-04_jprb,3.55000e-04_jprb,3.55000e-04_jprb,3.55000e-04_jprb,&
 & 3.55000e-04_jprb,3.55000e-04_jprb,3.55000e-04_jprb,3.55000e-04_jprb,3.55000e-04_jprb,&
 & 3.55000e-04_jprb,3.55000e-04_jprb,3.55000e-04_jprb,3.55000e-04_jprb,3.55000e-04_jprb,&
 & 3.55000e-04_jprb,3.55000e-04_jprb,3.55000e-04_jprb,3.55000e-04_jprb,3.55000e-04_jprb,&
 & 3.55000e-04_jprb,3.55000e-04_jprb,3.55000e-04_jprb,3.55000e-04_jprb,3.55000e-04_jprb,&
 & 3.55000e-04_jprb,3.55000e-04_jprb,3.55000e-04_jprb,3.55000e-04_jprb,3.55000e-04_jprb,&
 & 3.55000e-04_jprb,3.55000e-04_jprb,3.55000e-04_jprb,3.55000e-04_jprb,3.55000e-04_jprb,&
 & 3.55000e-04_jprb,3.55000e-04_jprb,3.55000e-04_jprb,3.55000e-04_jprb,3.55000e-04_jprb,&
 & 3.55000e-04_jprb,3.55000e-04_jprb,3.55000e-04_jprb,3.55000e-04_jprb,3.55000e-04_jprb,&
 & 3.55000e-04_jprb,3.55000e-04_jprb,3.55000e-04_jprb,3.55000e-04_jprb,3.55000e-04_jprb,&
 & 3.55000e-04_jprb,3.55000e-04_jprb,3.55000e-04_jprb,&
 & 3.5470873e-04_jprb, 3.5427220e-04_jprb, 3.5383567e-04_jprb,&
 & 3.5339911e-04_jprb, 3.5282588e-04_jprb, 3.5079606e-04_jprb/)   

strrat = 1.19268_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 10, 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 = 10 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) = (/&
 & 1.3905e-05_jprb,5.5491e-04_jprb,9.4069e-04_jprb,1.2683e-03_jprb,1.5758e-03_jprb,1.8657e-03_jprb,&
 & 2.1271e-03_jprb,2.3310e-03_jprb,2.2238e-03_jprb,1.2098e-03_jprb/)  
kao( :, 2, 1, 1) = (/&
 & 1.8718e-05_jprb,6.2254e-04_jprb,1.0419e-03_jprb,1.3944e-03_jprb,1.7096e-03_jprb,2.0070e-03_jprb,&
 & 2.2783e-03_jprb,2.4921e-03_jprb,2.4893e-03_jprb,1.3329e-03_jprb/)  
kao( :, 3, 1, 1) = (/&
 & 2.5277e-05_jprb,7.0791e-04_jprb,1.1679e-03_jprb,1.5540e-03_jprb,1.8826e-03_jprb,2.1855e-03_jprb,&
 & 2.4637e-03_jprb,2.6836e-03_jprb,2.4870e-03_jprb,1.4683e-03_jprb/)  
kao( :, 4, 1, 1) = (/&
 & 3.3974e-05_jprb,8.1479e-04_jprb,1.3277e-03_jprb,1.7495e-03_jprb,2.1019e-03_jprb,2.4115e-03_jprb,&
 & 2.6955e-03_jprb,2.9144e-03_jprb,2.6786e-03_jprb,1.5835e-03_jprb/)  
kao( :, 5, 1, 1) = (/&
 & 4.5018e-05_jprb,9.4621e-04_jprb,1.5225e-03_jprb,1.9888e-03_jprb,2.3735e-03_jprb,2.6924e-03_jprb,&
 & 2.9767e-03_jprb,3.1904e-03_jprb,2.9199e-03_jprb,1.7196e-03_jprb/)  
kao( :, 1, 2, 1) = (/&
 & 1.0592e-05_jprb,4.4499e-04_jprb,7.6480e-04_jprb,1.0361e-03_jprb,1.2851e-03_jprb,1.5183e-03_jprb,&
 & 1.7260e-03_jprb,1.8861e-03_jprb,1.7869e-03_jprb,9.5189e-04_jprb/)  
kao( :, 2, 2, 1) = (/&
 & 1.4233e-05_jprb,4.9754e-04_jprb,8.4386e-04_jprb,1.1364e-03_jprb,1.3930e-03_jprb,1.6308e-03_jprb,&
 & 1.8450e-03_jprb,2.0088e-03_jprb,1.9843e-03_jprb,1.0406e-03_jprb/)  
kao( :, 3, 2, 1) = (/&
 & 1.9306e-05_jprb,5.6436e-04_jprb,9.4285e-04_jprb,1.2611e-03_jprb,1.5318e-03_jprb,1.7753e-03_jprb,&
 & 1.9931e-03_jprb,2.1588e-03_jprb,2.0128e-03_jprb,1.1498e-03_jprb/)  
kao( :, 4, 2, 1) = (/&
 & 2.6119e-05_jprb,6.4842e-04_jprb,1.0680e-03_jprb,1.4147e-03_jprb,1.7071e-03_jprb,1.9567e-03_jprb,&
 & 2.1789e-03_jprb,2.3401e-03_jprb,2.1538e-03_jprb,1.2358e-03_jprb/)  
kao( :, 5, 2, 1) = (/&
 & 3.4871e-05_jprb,7.5256e-04_jprb,1.2221e-03_jprb,1.6045e-03_jprb,1.9204e-03_jprb,2.1824e-03_jprb,&
 & 2.4047e-03_jprb,2.5599e-03_jprb,2.3558e-03_jprb,1.3458e-03_jprb/)  
kao( :, 1, 3, 1) = (/&
 & 7.6650e-06_jprb,3.4947e-04_jprb,6.0867e-04_jprb,8.3119e-04_jprb,1.0323e-03_jprb,1.2185e-03_jprb,&
 & 1.3830e-03_jprb,1.5087e-03_jprb,1.4187e-03_jprb,7.5325e-04_jprb/)  
kao( :, 2, 3, 1) = (/&
 & 1.0208e-05_jprb,3.8799e-04_jprb,6.6727e-04_jprb,9.0569e-04_jprb,1.1140e-03_jprb,1.3039e-03_jprb,&
 & 1.4728e-03_jprb,1.5994e-03_jprb,1.5541e-03_jprb,8.1826e-04_jprb/)  
kao( :, 3, 3, 1) = (/&
 & 1.3852e-05_jprb,4.3745e-04_jprb,7.4132e-04_jprb,9.9801e-04_jprb,1.2192e-03_jprb,1.4137e-03_jprb,&
 & 1.5849e-03_jprb,1.7123e-03_jprb,1.6593e-03_jprb,8.9528e-04_jprb/)  
kao( :, 4, 3, 1) = (/&
 & 1.8873e-05_jprb,5.0084e-04_jprb,8.3488e-04_jprb,1.1136e-03_jprb,1.3505e-03_jprb,1.5529e-03_jprb,&
 & 1.7249e-03_jprb,1.8487e-03_jprb,1.7141e-03_jprb,9.6472e-04_jprb/)  
kao( :, 5, 3, 1) = (/&
 & 2.5412e-05_jprb,5.7989e-04_jprb,9.5083e-04_jprb,1.2577e-03_jprb,1.5110e-03_jprb,1.7265e-03_jprb,&
 & 1.9001e-03_jprb,2.0154e-03_jprb,1.8592e-03_jprb,1.0514e-03_jprb/)  
kao( :, 1, 4, 1) = (/&
 & 5.5327e-06_jprb,2.7370e-04_jprb,4.8202e-04_jprb,6.6293e-04_jprb,8.2705e-04_jprb,9.7621e-04_jprb,&
 & 1.1071e-03_jprb,1.2149e-03_jprb,1.1365e-03_jprb,6.2235e-04_jprb/)  
kao( :, 2, 4, 1) = (/&
 & 7.2381e-06_jprb,3.0138e-04_jprb,5.2416e-04_jprb,7.1697e-04_jprb,8.8620e-04_jprb,1.0391e-03_jprb,&
 & 1.1730e-03_jprb,1.2726e-03_jprb,1.2113e-03_jprb,6.7320e-04_jprb/)  
kao( :, 3, 4, 1) = (/&
 & 9.7698e-06_jprb,3.3721e-04_jprb,5.7856e-04_jprb,7.8512e-04_jprb,9.6459e-04_jprb,1.1210e-03_jprb,&
 & 1.2565e-03_jprb,1.3549e-03_jprb,1.3452e-03_jprb,7.2416e-04_jprb/)  
kao( :, 4, 4, 1) = (/&
 & 1.3344e-05_jprb,3.8381e-04_jprb,6.4739e-04_jprb,8.7038e-04_jprb,1.0615e-03_jprb,1.2252e-03_jprb,&
 & 1.3612e-03_jprb,1.4576e-03_jprb,1.3655e-03_jprb,7.8325e-04_jprb/)  
kao( :, 5, 4, 1) = (/&
 & 1.8090e-05_jprb,4.4258e-04_jprb,7.3288e-04_jprb,9.7754e-04_jprb,1.1813e-03_jprb,1.3549e-03_jprb,&
 & 1.4926e-03_jprb,1.5822e-03_jprb,1.4607e-03_jprb,8.5221e-04_jprb/)  
kao( :, 1, 5, 1) = (/&
 & 4.0810e-06_jprb,2.1551e-04_jprb,3.8283e-04_jprb,5.2940e-04_jprb,6.6368e-04_jprb,7.8503e-04_jprb,&
 & 8.8897e-04_jprb,9.7870e-04_jprb,9.2885e-04_jprb,5.3112e-04_jprb/)  
kao( :, 2, 5, 1) = (/&
 & 5.1916e-06_jprb,2.3507e-04_jprb,4.1271e-04_jprb,5.6826e-04_jprb,7.0568e-04_jprb,8.2971e-04_jprb,&
 & 9.3695e-04_jprb,1.0168e-03_jprb,9.5220e-04_jprb,5.6840e-04_jprb/)  
kao( :, 3, 5, 1) = (/&
 & 6.9159e-06_jprb,2.6088e-04_jprb,4.5208e-04_jprb,6.1797e-04_jprb,7.6301e-04_jprb,8.8979e-04_jprb,&
 & 9.9853e-04_jprb,1.0759e-03_jprb,1.0389e-03_jprb,6.0777e-04_jprb/)  
kao( :, 4, 5, 1) = (/&
 & 9.4196e-06_jprb,2.9480e-04_jprb,5.0274e-04_jprb,6.8088e-04_jprb,8.3550e-04_jprb,9.6746e-04_jprb,&
 & 1.0764e-03_jprb,1.1522e-03_jprb,1.1313e-03_jprb,6.5577e-04_jprb/)  
kao( :, 5, 5, 1) = (/&
 & 1.2823e-05_jprb,3.3834e-04_jprb,5.6555e-04_jprb,7.6000e-04_jprb,9.2459e-04_jprb,1.0640e-03_jprb,&
 & 1.1745e-03_jprb,1.2456e-03_jprb,1.1599e-03_jprb,7.1205e-04_jprb/)  
kao( :, 1, 6, 1) = (/&
 & 3.0745e-06_jprb,1.7028e-04_jprb,3.0467e-04_jprb,4.2351e-04_jprb,5.3324e-04_jprb,6.3166e-04_jprb,&
 & 7.1362e-04_jprb,7.7595e-04_jprb,7.2555e-04_jprb,4.6766e-04_jprb/)  
kao( :, 2, 6, 1) = (/&
 & 3.7467e-06_jprb,1.8364e-04_jprb,3.2533e-04_jprb,4.4992e-04_jprb,5.6174e-04_jprb,6.6289e-04_jprb,&
 & 7.4918e-04_jprb,8.1992e-04_jprb,7.7217e-04_jprb,4.9540e-04_jprb/)  
kao( :, 3, 6, 1) = (/&
 & 4.8844e-06_jprb,2.0189e-04_jprb,3.5318e-04_jprb,4.8611e-04_jprb,6.0248e-04_jprb,7.0548e-04_jprb,&
 & 7.9343e-04_jprb,8.5556e-04_jprb,8.1719e-04_jprb,5.2871e-04_jprb/)  
kao( :, 4, 6, 1) = (/&
 & 6.5875e-06_jprb,2.2623e-04_jprb,3.8987e-04_jprb,5.3174e-04_jprb,6.5615e-04_jprb,7.6255e-04_jprb,&
 & 8.5105e-04_jprb,9.1164e-04_jprb,9.0776e-04_jprb,5.6738e-04_jprb/)  
kao( :, 5, 6, 1) = (/&
 & 8.9782e-06_jprb,2.5797e-04_jprb,4.3574e-04_jprb,5.8945e-04_jprb,7.2180e-04_jprb,8.3401e-04_jprb,&
 & 9.2288e-04_jprb,9.8059e-04_jprb,9.2715e-04_jprb,6.1340e-04_jprb/)  
kao( :, 1, 7, 1) = (/&
 & 2.3852e-06_jprb,1.3537e-04_jprb,2.4376e-04_jprb,3.4046e-04_jprb,4.2953e-04_jprb,5.0877e-04_jprb,&
 & 5.7353e-04_jprb,6.1192e-04_jprb,5.7270e-04_jprb,4.3319e-04_jprb/)  
kao( :, 2, 7, 1) = (/&
 & 2.7620e-06_jprb,1.4429e-04_jprb,2.5761e-04_jprb,3.5752e-04_jprb,4.4861e-04_jprb,5.3102e-04_jprb,&
 & 5.9966e-04_jprb,6.5817e-04_jprb,6.2541e-04_jprb,4.5750e-04_jprb/)  
kao( :, 3, 7, 1) = (/&
 & 3.4880e-06_jprb,1.5701e-04_jprb,2.7701e-04_jprb,3.8344e-04_jprb,4.7691e-04_jprb,5.6092e-04_jprb,&
 & 6.3220e-04_jprb,6.8391e-04_jprb,6.4333e-04_jprb,4.8664e-04_jprb/)  
kao( :, 4, 7, 1) = (/&
 & 4.6192e-06_jprb,1.7428e-04_jprb,3.0330e-04_jprb,4.1640e-04_jprb,5.1608e-04_jprb,6.0192e-04_jprb,&
 & 6.7387e-04_jprb,7.2302e-04_jprb,7.0029e-04_jprb,5.2115e-04_jprb/)  
kao( :, 5, 7, 1) = (/&
 & 6.2659e-06_jprb,1.9723e-04_jprb,3.3668e-04_jprb,4.5828e-04_jprb,5.6442e-04_jprb,6.5465e-04_jprb,&
 & 7.2699e-04_jprb,7.7405e-04_jprb,7.7413e-04_jprb,5.6002e-04_jprb/)  
kao( :, 1, 8, 1) = (/&
 & 1.9015e-06_jprb,1.0820e-04_jprb,1.9592e-04_jprb,2.7484e-04_jprb,3.4688e-04_jprb,4.0988e-04_jprb,&
 & 4.6037e-04_jprb,4.8747e-04_jprb,4.5723e-04_jprb,4.3074e-04_jprb/)  
kao( :, 2, 8, 1) = (/&
 & 2.0897e-06_jprb,1.1410e-04_jprb,2.0489e-04_jprb,2.8543e-04_jprb,3.5954e-04_jprb,4.2599e-04_jprb,&
 & 4.8075e-04_jprb,5.2102e-04_jprb,4.8940e-04_jprb,4.6091e-04_jprb/)  
kao( :, 3, 8, 1) = (/&
 & 2.5320e-06_jprb,1.2277e-04_jprb,2.1834e-04_jprb,3.0321e-04_jprb,3.7874e-04_jprb,4.4717e-04_jprb,&
 & 5.0489e-04_jprb,5.5180e-04_jprb,5.2338e-04_jprb,4.9080e-04_jprb/)  
kao( :, 4, 8, 1) = (/&
 & 3.2727e-06_jprb,1.3498e-04_jprb,2.3690e-04_jprb,3.2720e-04_jprb,4.0672e-04_jprb,4.7636e-04_jprb,&
 & 5.3491e-04_jprb,5.7561e-04_jprb,5.5051e-04_jprb,5.1978e-04_jprb/)  
kao( :, 5, 8, 1) = (/&
 & 4.3856e-06_jprb,1.5147e-04_jprb,2.6111e-04_jprb,3.5765e-04_jprb,4.4264e-04_jprb,5.1502e-04_jprb,&
 & 5.7382e-04_jprb,6.1302e-04_jprb,6.1438e-04_jprb,5.4976e-04_jprb/)  
kao( :, 1, 9, 1) = (/&
 & 1.5482e-06_jprb,8.7052e-05_jprb,1.5839e-04_jprb,2.2300e-04_jprb,2.8105e-04_jprb,3.3090e-04_jprb,&
 & 3.6936e-04_jprb,3.8992e-04_jprb,3.6561e-04_jprb,5.0307e-04_jprb/)  
kao( :, 2, 9, 1) = (/&
 & 1.6233e-06_jprb,9.0800e-05_jprb,1.6386e-04_jprb,2.2916e-04_jprb,2.8933e-04_jprb,3.4270e-04_jprb,&
 & 3.8603e-04_jprb,4.1137e-04_jprb,3.8679e-04_jprb,5.3034e-04_jprb/)  
kao( :, 3, 9, 1) = (/&
 & 1.8727e-06_jprb,9.6605e-05_jprb,1.7299e-04_jprb,2.4068e-04_jprb,3.0216e-04_jprb,3.5768e-04_jprb,&
 & 4.0386e-04_jprb,4.4306e-04_jprb,4.2523e-04_jprb,5.5823e-04_jprb/)  
kao( :, 4, 9, 1) = (/&
 & 2.3460e-06_jprb,1.0514e-04_jprb,1.8594e-04_jprb,2.5798e-04_jprb,3.2158e-04_jprb,3.7830e-04_jprb,&
 & 4.2604e-04_jprb,4.6061e-04_jprb,4.3830e-04_jprb,5.8904e-04_jprb/)  
kao( :, 5, 9, 1) = (/&
 & 3.0835e-06_jprb,1.1691e-04_jprb,2.0336e-04_jprb,2.8015e-04_jprb,3.4814e-04_jprb,4.0638e-04_jprb,&
 & 4.5421e-04_jprb,4.8658e-04_jprb,4.7615e-04_jprb,6.2435e-04_jprb/)  
kao( :, 1,10, 1) = (/&
 & 1.2799e-06_jprb,7.0646e-05_jprb,1.2898e-04_jprb,1.8180e-04_jprb,2.2870e-04_jprb,2.6728e-04_jprb,&
 & 2.9678e-04_jprb,3.1565e-04_jprb,2.9877e-04_jprb,5.6519e-04_jprb/)  
kao( :, 2,10, 1) = (/&
 & 1.2987e-06_jprb,7.2906e-05_jprb,1.3215e-04_jprb,1.8535e-04_jprb,2.3421e-04_jprb,2.7695e-04_jprb,&
 & 3.1130e-04_jprb,3.2886e-04_jprb,3.1021e-04_jprb,5.8706e-04_jprb/)  
kao( :, 3,10, 1) = (/&
 & 1.4353e-06_jprb,7.6915e-05_jprb,1.3835e-04_jprb,1.9290e-04_jprb,2.4295e-04_jprb,2.8803e-04_jprb,&
 & 3.2514e-04_jprb,3.5354e-04_jprb,3.3578e-04_jprb,6.1412e-04_jprb/)  
kao( :, 4,10, 1) = (/&
 & 1.7387e-06_jprb,8.2894e-05_jprb,1.4759e-04_jprb,2.0528e-04_jprb,2.5663e-04_jprb,3.0293e-04_jprb,&
 & 3.4175e-04_jprb,3.7216e-04_jprb,3.5751e-04_jprb,6.4985e-04_jprb/)  
kao( :, 5,10, 1) = (/&
 & 2.2343e-06_jprb,9.1469e-05_jprb,1.6022e-04_jprb,2.2168e-04_jprb,2.7630e-04_jprb,3.2346e-04_jprb,&
 & 3.6268e-04_jprb,3.8938e-04_jprb,3.7492e-04_jprb,6.9583e-04_jprb/)  
kao( :, 1,11, 1) = (/&
 & 1.0543e-06_jprb,5.7983e-05_jprb,1.0582e-04_jprb,1.4919e-04_jprb,1.8791e-04_jprb,2.2000e-04_jprb,&
 & 2.4433e-04_jprb,2.5995e-04_jprb,2.4592e-04_jprb,5.0307e-04_jprb/)  
kao( :, 2,11, 1) = (/&
 & 1.0726e-06_jprb,5.9907e-05_jprb,1.0858e-04_jprb,1.5223e-04_jprb,1.9244e-04_jprb,2.2775e-04_jprb,&
 & 2.5610e-04_jprb,2.7046e-04_jprb,2.5615e-04_jprb,5.1588e-04_jprb/)  
kao( :, 3,11, 1) = (/&
 & 1.1894e-06_jprb,6.3212e-05_jprb,1.1383e-04_jprb,1.5870e-04_jprb,1.9979e-04_jprb,2.3693e-04_jprb,&
 & 2.6747e-04_jprb,2.9154e-04_jprb,2.7919e-04_jprb,5.3855e-04_jprb/)  
kao( :, 4,11, 1) = (/&
 & 1.4390e-06_jprb,6.8258e-05_jprb,1.2145e-04_jprb,1.6906e-04_jprb,2.1138e-04_jprb,2.4948e-04_jprb,&
 & 2.8136e-04_jprb,3.0581e-04_jprb,2.9553e-04_jprb,5.7296e-04_jprb/)  
kao( :, 5,11, 1) = (/&
 & 1.8470e-06_jprb,7.5489e-05_jprb,1.3202e-04_jprb,1.8257e-04_jprb,2.2782e-04_jprb,2.6681e-04_jprb,&
 & 2.9892e-04_jprb,3.2058e-04_jprb,3.1052e-04_jprb,6.1818e-04_jprb/)  
kao( :, 1,12, 1) = (/&
 & 8.6798e-07_jprb,4.7553e-05_jprb,8.6730e-05_jprb,1.2226e-04_jprb,1.5413e-04_jprb,1.8085e-04_jprb,&
 & 2.0088e-04_jprb,2.1368e-04_jprb,2.0252e-04_jprb,4.1925e-04_jprb/)  
kao( :, 2,12, 1) = (/&
 & 8.8495e-07_jprb,4.9183e-05_jprb,8.9118e-05_jprb,1.2490e-04_jprb,1.5790e-04_jprb,1.8699e-04_jprb,&
 & 2.1049e-04_jprb,2.2231e-04_jprb,2.1170e-04_jprb,4.2911e-04_jprb/)  
kao( :, 3,12, 1) = (/&
 & 9.8325e-07_jprb,5.1925e-05_jprb,9.3547e-05_jprb,1.3044e-04_jprb,1.6413e-04_jprb,1.9471e-04_jprb,&
 & 2.1986e-04_jprb,2.4001e-04_jprb,2.3209e-04_jprb,4.4871e-04_jprb/)  
kao( :, 4,12, 1) = (/&
 & 1.1889e-06_jprb,5.6183e-05_jprb,9.9863e-05_jprb,1.3905e-04_jprb,1.7391e-04_jprb,2.0522e-04_jprb,&
 & 2.3142e-04_jprb,2.5135e-04_jprb,2.4267e-04_jprb,4.7818e-04_jprb/)  
kao( :, 5,12, 1) = (/&
 & 1.5235e-06_jprb,6.2281e-05_jprb,1.0874e-04_jprb,1.5023e-04_jprb,1.8755e-04_jprb,2.1980e-04_jprb,&
 & 2.4617e-04_jprb,2.6379e-04_jprb,2.5784e-04_jprb,5.1708e-04_jprb/)  
kao( :, 1,13, 1) = (/&
 & 7.1418e-07_jprb,3.8921e-05_jprb,7.0891e-05_jprb,9.9889e-05_jprb,1.2597e-04_jprb,1.4799e-04_jprb,&
 & 1.6453e-04_jprb,1.7513e-04_jprb,1.6667e-04_jprb,3.4309e-04_jprb/)  
kao( :, 2,13, 1) = (/&
 & 7.2895e-07_jprb,4.0284e-05_jprb,7.2945e-05_jprb,1.0221e-04_jprb,1.2923e-04_jprb,1.5309e-04_jprb,&
 & 1.7258e-04_jprb,1.8229e-04_jprb,1.7386e-04_jprb,3.5109e-04_jprb/)  
kao( :, 3,13, 1) = (/&
 & 8.1079e-07_jprb,4.2576e-05_jprb,7.6659e-05_jprb,1.0692e-04_jprb,1.3449e-04_jprb,1.5961e-04_jprb,&
 & 1.8026e-04_jprb,1.9704e-04_jprb,1.9240e-04_jprb,3.6700e-04_jprb/)  
kao( :, 4,13, 1) = (/&
 & 9.8001e-07_jprb,4.6149e-05_jprb,8.1932e-05_jprb,1.1406e-04_jprb,1.4271e-04_jprb,1.6841e-04_jprb,&
 & 1.8992e-04_jprb,2.0617e-04_jprb,1.9928e-04_jprb,3.9092e-04_jprb/)  
kao( :, 5,13, 1) = (/&
 & 1.2528e-06_jprb,5.1280e-05_jprb,8.9359e-05_jprb,1.2338e-04_jprb,1.5401e-04_jprb,1.8056e-04_jprb,&
 & 2.0225e-04_jprb,2.1672e-04_jprb,2.1360e-04_jprb,4.2252e-04_jprb/)  
kao( :, 1, 1, 2) = (/&
 & 6.1207e-05_jprb,1.0978e-03_jprb,1.7611e-03_jprb,2.3638e-03_jprb,2.9057e-03_jprb,3.3651e-03_jprb,&
 & 3.7137e-03_jprb,3.8383e-03_jprb,3.2297e-03_jprb,2.4264e-03_jprb/)  
kao( :, 2, 1, 2) = (/&
 & 8.5058e-05_jprb,1.3292e-03_jprb,2.0750e-03_jprb,2.7338e-03_jprb,3.3403e-03_jprb,3.8629e-03_jprb,&
 & 4.2579e-03_jprb,4.3337e-03_jprb,3.4101e-03_jprb,2.6736e-03_jprb/)  
kao( :, 3, 1, 2) = (/&
 & 1.1682e-04_jprb,1.6162e-03_jprb,2.4689e-03_jprb,3.1946e-03_jprb,3.8719e-03_jprb,4.4552e-03_jprb,&
 & 4.9076e-03_jprb,4.9335e-03_jprb,3.9022e-03_jprb,2.9247e-03_jprb/)  

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


SUBROUTINE part2

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


kao( :, 4, 1, 2) = (/&
 & 1.5789e-04_jprb,1.9668e-03_jprb,2.9480e-03_jprb,3.7669e-03_jprb,4.5171e-03_jprb,5.1682e-03_jprb,&
 & 5.6653e-03_jprb,5.6499e-03_jprb,4.0652e-03_jprb,3.1515e-03_jprb/)  
kao( :, 5, 1, 2) = (/&
 & 2.0990e-04_jprb,2.3887e-03_jprb,3.5299e-03_jprb,4.4565e-03_jprb,5.2844e-03_jprb,6.0076e-03_jprb,&
 & 6.5551e-03_jprb,6.4764e-03_jprb,4.4385e-03_jprb,3.4538e-03_jprb/)  
kao( :, 1, 2, 2) = (/&
 & 4.6541e-05_jprb,8.8674e-04_jprb,1.4099e-03_jprb,1.8864e-03_jprb,2.3180e-03_jprb,2.6798e-03_jprb,&
 & 2.9613e-03_jprb,3.0615e-03_jprb,2.6597e-03_jprb,1.8872e-03_jprb/)  
kao( :, 2, 2, 2) = (/&
 & 6.5339e-05_jprb,1.0747e-03_jprb,1.6670e-03_jprb,2.1855e-03_jprb,2.6622e-03_jprb,3.0710e-03_jprb,&
 & 3.3862e-03_jprb,3.4584e-03_jprb,2.7852e-03_jprb,2.0782e-03_jprb/)  
kao( :, 3, 2, 2) = (/&
 & 9.0589e-05_jprb,1.3082e-03_jprb,1.9947e-03_jprb,2.5634e-03_jprb,3.0860e-03_jprb,3.5379e-03_jprb,&
 & 3.8975e-03_jprb,3.9366e-03_jprb,3.1668e-03_jprb,2.2590e-03_jprb/)  
kao( :, 4, 2, 2) = (/&
 & 1.2385e-04_jprb,1.5968e-03_jprb,2.3941e-03_jprb,3.0350e-03_jprb,3.6067e-03_jprb,4.1057e-03_jprb,&
 & 4.4942e-03_jprb,4.5107e-03_jprb,3.2782e-03_jprb,2.4504e-03_jprb/)  
kao( :, 5, 2, 2) = (/&
 & 1.6667e-04_jprb,1.9480e-03_jprb,2.8786e-03_jprb,3.6064e-03_jprb,4.2370e-03_jprb,4.7805e-03_jprb,&
 & 5.2024e-03_jprb,5.1677e-03_jprb,3.5425e-03_jprb,2.6975e-03_jprb/)  
kao( :, 1, 3, 2) = (/&
 & 3.2922e-05_jprb,6.8654e-04_jprb,1.0970e-03_jprb,1.4654e-03_jprb,1.8051e-03_jprb,2.0847e-03_jprb,&
 & 2.3088e-03_jprb,2.3837e-03_jprb,2.1265e-03_jprb,1.4540e-03_jprb/)  
kao( :, 2, 3, 2) = (/&
 & 4.6583e-05_jprb,8.3015e-04_jprb,1.2948e-03_jprb,1.6958e-03_jprb,2.0663e-03_jprb,2.3792e-03_jprb,&
 & 2.6229e-03_jprb,2.6951e-03_jprb,2.2518e-03_jprb,1.5969e-03_jprb/)  
kao( :, 3, 3, 2) = (/&
 & 6.5410e-05_jprb,1.0114e-03_jprb,1.5518e-03_jprb,1.9919e-03_jprb,2.3944e-03_jprb,2.7366e-03_jprb,&
 & 3.0098e-03_jprb,3.0595e-03_jprb,2.4530e-03_jprb,1.7299e-03_jprb/)  
kao( :, 4, 3, 2) = (/&
 & 9.0734e-05_jprb,1.2366e-03_jprb,1.8688e-03_jprb,2.3652e-03_jprb,2.8005e-03_jprb,3.1725e-03_jprb,&
 & 3.4706e-03_jprb,3.5000e-03_jprb,2.6641e-03_jprb,1.8912e-03_jprb/)  
kao( :, 5, 3, 2) = (/&
 & 1.2407e-04_jprb,1.5126e-03_jprb,2.2510e-03_jprb,2.8211e-03_jprb,3.2989e-03_jprb,3.7001e-03_jprb,&
 & 4.0161e-03_jprb,4.0075e-03_jprb,2.7798e-03_jprb,2.0796e-03_jprb/)  
kao( :, 1, 4, 2) = (/&
 & 2.2778e-05_jprb,5.2510e-04_jprb,8.4888e-04_jprb,1.1352e-03_jprb,1.3979e-03_jprb,1.6168e-03_jprb,&
 & 1.7964e-03_jprb,1.8331e-03_jprb,1.7837e-03_jprb,1.1723e-03_jprb/)  
kao( :, 2, 4, 2) = (/&
 & 3.2363e-05_jprb,6.3086e-04_jprb,9.9709e-04_jprb,1.3073e-03_jprb,1.5943e-03_jprb,1.8366e-03_jprb,&
 & 2.0244e-03_jprb,2.0875e-03_jprb,1.8124e-03_jprb,1.2732e-03_jprb/)  
kao( :, 3, 4, 2) = (/&
 & 4.5962e-05_jprb,7.6788e-04_jprb,1.1912e-03_jprb,1.5347e-03_jprb,1.8433e-03_jprb,2.1077e-03_jprb,&
 & 2.3135e-03_jprb,2.3586e-03_jprb,1.8966e-03_jprb,1.3806e-03_jprb/)  
kao( :, 4, 4, 2) = (/&
 & 6.4739e-05_jprb,9.3992e-04_jprb,1.4352e-03_jprb,1.8248e-03_jprb,2.1580e-03_jprb,2.4403e-03_jprb,&
 & 2.6639e-03_jprb,2.6893e-03_jprb,2.1413e-03_jprb,1.4999e-03_jprb/)  
kao( :, 5, 4, 2) = (/&
 & 9.0009e-05_jprb,1.1535e-03_jprb,1.7330e-03_jprb,2.1811e-03_jprb,2.5487e-03_jprb,2.8464e-03_jprb,&
 & 3.0813e-03_jprb,3.0811e-03_jprb,2.2013e-03_jprb,1.6370e-03_jprb/)  
kao( :, 1, 5, 2) = (/&
 & 1.5792e-05_jprb,4.0148e-04_jprb,6.5831e-04_jprb,8.8434e-04_jprb,1.0869e-03_jprb,1.2568e-03_jprb,&
 & 1.4030e-03_jprb,1.4157e-03_jprb,1.3790e-03_jprb,9.9471e-04_jprb/)  
kao( :, 2, 5, 2) = (/&
 & 2.2397e-05_jprb,4.7887e-04_jprb,7.6705e-04_jprb,1.0113e-03_jprb,1.2329e-03_jprb,1.4202e-03_jprb,&
 & 1.5687e-03_jprb,1.6184e-03_jprb,1.4582e-03_jprb,1.0698e-03_jprb/)  
kao( :, 3, 5, 2) = (/&
 & 3.2096e-05_jprb,5.8078e-04_jprb,9.1183e-04_jprb,1.1823e-03_jprb,1.4221e-03_jprb,1.6260e-03_jprb,&
 & 1.7823e-03_jprb,1.8208e-03_jprb,1.5493e-03_jprb,1.1486e-03_jprb/)  
kao( :, 4, 5, 2) = (/&
 & 4.5840e-05_jprb,7.1160e-04_jprb,1.0969e-03_jprb,1.4034e-03_jprb,1.6628e-03_jprb,1.8804e-03_jprb,&
 & 2.0470e-03_jprb,2.0686e-03_jprb,1.6540e-03_jprb,1.2365e-03_jprb/)  
kao( :, 5, 5, 2) = (/&
 & 6.4822e-05_jprb,8.7496e-04_jprb,1.3269e-03_jprb,1.6793e-03_jprb,1.9658e-03_jprb,2.1946e-03_jprb,&
 & 2.3671e-03_jprb,2.3677e-03_jprb,1.7812e-03_jprb,1.3376e-03_jprb/)  
kao( :, 1, 6, 2) = (/&
 & 1.0902e-05_jprb,3.0605e-04_jprb,5.1028e-04_jprb,6.8853e-04_jprb,8.4488e-04_jprb,9.7840e-04_jprb,&
 & 1.0974e-03_jprb,1.1101e-03_jprb,1.0645e-03_jprb,8.6648e-04_jprb/)  
kao( :, 2, 6, 2) = (/&
 & 1.5301e-05_jprb,3.6130e-04_jprb,5.8719e-04_jprb,7.8079e-04_jprb,9.5252e-04_jprb,1.0959e-03_jprb,&
 & 1.2152e-03_jprb,1.2397e-03_jprb,1.2046e-03_jprb,9.1885e-04_jprb/)  
kao( :, 3, 6, 2) = (/&
 & 2.2016e-05_jprb,4.3548e-04_jprb,6.9267e-04_jprb,9.0511e-04_jprb,1.0924e-03_jprb,1.2498e-03_jprb,&
 & 1.3720e-03_jprb,1.4053e-03_jprb,1.2319e-03_jprb,9.7396e-04_jprb/)  
kao( :, 4, 6, 2) = (/&
 & 3.1830e-05_jprb,5.3317e-04_jprb,8.3063e-04_jprb,1.0698e-03_jprb,1.2734e-03_jprb,1.4418e-03_jprb,&
 & 1.5687e-03_jprb,1.5881e-03_jprb,1.2775e-03_jprb,1.0399e-03_jprb/)  
kao( :, 5, 6, 2) = (/&
 & 4.5738e-05_jprb,6.5696e-04_jprb,1.0039e-03_jprb,1.2790e-03_jprb,1.5021e-03_jprb,1.6812e-03_jprb,&
 & 1.8119e-03_jprb,1.8117e-03_jprb,1.4274e-03_jprb,1.1156e-03_jprb/)  
kao( :, 1, 7, 2) = (/&
 & 7.6369e-06_jprb,2.3409e-04_jprb,3.9662e-04_jprb,5.3736e-04_jprb,6.5954e-04_jprb,7.6628e-04_jprb,&
 & 8.6324e-04_jprb,8.8119e-04_jprb,8.6194e-04_jprb,7.9079e-04_jprb/)  
kao( :, 2, 7, 2) = (/&
 & 1.0494e-05_jprb,2.7293e-04_jprb,4.5033e-04_jprb,6.0419e-04_jprb,7.3771e-04_jprb,8.4846e-04_jprb,&
 & 9.4512e-04_jprb,9.5497e-04_jprb,9.2999e-04_jprb,8.2387e-04_jprb/)  
kao( :, 3, 7, 2) = (/&
 & 1.5059e-05_jprb,3.2612e-04_jprb,5.2570e-04_jprb,6.9285e-04_jprb,8.4056e-04_jprb,9.6214e-04_jprb,&
 & 1.0579e-03_jprb,1.0868e-03_jprb,9.8600e-04_jprb,8.6421e-04_jprb/)  
kao( :, 4, 7, 2) = (/&
 & 2.1973e-05_jprb,3.9766e-04_jprb,6.2716e-04_jprb,8.1307e-04_jprb,9.7314e-04_jprb,1.1062e-03_jprb,&
 & 1.2052e-03_jprb,1.2224e-03_jprb,1.0473e-03_jprb,9.1386e-04_jprb/)  
kao( :, 5, 7, 2) = (/&
 & 3.2024e-05_jprb,4.9023e-04_jprb,7.5693e-04_jprb,9.6942e-04_jprb,1.1441e-03_jprb,1.2861e-03_jprb,&
 & 1.3873e-03_jprb,1.3904e-03_jprb,1.0995e-03_jprb,9.7409e-04_jprb/)  
kao( :, 1, 8, 2) = (/&
 & 5.4819e-06_jprb,1.8022e-04_jprb,3.0951e-04_jprb,4.2109e-04_jprb,5.1765e-04_jprb,6.0434e-04_jprb,&
 & 6.7966e-04_jprb,7.0414e-04_jprb,7.0729e-04_jprb,7.6543e-04_jprb/)  
kao( :, 2, 8, 2) = (/&
 & 7.2946e-06_jprb,2.0689e-04_jprb,3.4673e-04_jprb,4.6841e-04_jprb,5.7263e-04_jprb,6.6046e-04_jprb,&
 & 7.3949e-04_jprb,7.4887e-04_jprb,7.2137e-04_jprb,7.8512e-04_jprb/)  
kao( :, 3, 8, 2) = (/&
 & 1.0351e-05_jprb,2.4457e-04_jprb,3.9988e-04_jprb,5.3188e-04_jprb,6.4791e-04_jprb,7.4247e-04_jprb,&
 & 8.1941e-04_jprb,8.3495e-04_jprb,8.1545e-04_jprb,8.2107e-04_jprb/)  
kao( :, 4, 8, 2) = (/&
 & 1.5156e-05_jprb,2.9629e-04_jprb,4.7365e-04_jprb,6.1873e-04_jprb,7.4454e-04_jprb,8.4958e-04_jprb,&
 & 9.2854e-04_jprb,9.4393e-04_jprb,8.3940e-04_jprb,8.7281e-04_jprb/)  
kao( :, 5, 8, 2) = (/&
 & 2.2361e-05_jprb,3.6482e-04_jprb,5.6983e-04_jprb,7.3407e-04_jprb,8.7045e-04_jprb,9.8366e-04_jprb,&
 & 1.0651e-03_jprb,1.0698e-03_jprb,8.6698e-04_jprb,9.3613e-04_jprb/)  
kao( :, 1, 9, 2) = (/&
 & 4.0452e-06_jprb,1.4017e-04_jprb,2.4329e-04_jprb,3.3218e-04_jprb,4.0925e-04_jprb,4.8103e-04_jprb,&
 & 5.3918e-04_jprb,5.6100e-04_jprb,5.6501e-04_jprb,8.0970e-04_jprb/)  
kao( :, 2, 9, 2) = (/&
 & 5.1567e-06_jprb,1.5795e-04_jprb,2.6863e-04_jprb,3.6500e-04_jprb,4.4688e-04_jprb,5.1756e-04_jprb,&
 & 5.8306e-04_jprb,5.9423e-04_jprb,5.8894e-04_jprb,8.6646e-04_jprb/)  
kao( :, 3, 9, 2) = (/&
 & 7.1657e-06_jprb,1.8427e-04_jprb,3.0563e-04_jprb,4.1026e-04_jprb,5.0076e-04_jprb,5.7510e-04_jprb,&
 & 6.3796e-04_jprb,6.4416e-04_jprb,6.2814e-04_jprb,9.4589e-04_jprb/)  
kao( :, 4, 9, 2) = (/&
 & 1.0454e-05_jprb,2.2117e-04_jprb,3.5855e-04_jprb,4.7222e-04_jprb,5.7137e-04_jprb,6.5350e-04_jprb,&
 & 7.1676e-04_jprb,7.3182e-04_jprb,6.7180e-04_jprb,1.0445e-03_jprb/)  
kao( :, 5, 9, 2) = (/&
 & 1.5554e-05_jprb,2.7129e-04_jprb,4.2902e-04_jprb,5.5622e-04_jprb,6.6296e-04_jprb,7.5220e-04_jprb,&
 & 8.1926e-04_jprb,8.2534e-04_jprb,7.1317e-04_jprb,1.1567e-03_jprb/)  
kao( :, 1,10, 2) = (/&
 & 3.1057e-06_jprb,1.1083e-04_jprb,1.9379e-04_jprb,2.6511e-04_jprb,3.2793e-04_jprb,3.8622e-04_jprb,&
 & 4.3071e-04_jprb,4.4441e-04_jprb,4.5952e-04_jprb,8.8174e-04_jprb/)  
kao( :, 2,10, 2) = (/&
 & 3.7991e-06_jprb,1.2283e-04_jprb,2.1113e-04_jprb,2.8821e-04_jprb,3.5348e-04_jprb,4.1112e-04_jprb,&
 & 4.6174e-04_jprb,4.7717e-04_jprb,4.8657e-04_jprb,9.8685e-04_jprb/)  
kao( :, 3,10, 2) = (/&
 & 5.1499e-06_jprb,1.4143e-04_jprb,2.3734e-04_jprb,3.2100e-04_jprb,3.9236e-04_jprb,4.5145e-04_jprb,&
 & 5.0315e-04_jprb,5.0792e-04_jprb,4.9406e-04_jprb,1.1242e-03_jprb/)  
kao( :, 4,10, 2) = (/&
 & 7.4528e-06_jprb,1.6827e-04_jprb,2.7574e-04_jprb,3.6613e-04_jprb,4.4442e-04_jprb,5.0912e-04_jprb,&
 & 5.6026e-04_jprb,5.7140e-04_jprb,5.5681e-04_jprb,1.2935e-03_jprb/)  
kao( :, 5,10, 2) = (/&
 & 1.1134e-05_jprb,2.0532e-04_jprb,3.2832e-04_jprb,4.2825e-04_jprb,5.1275e-04_jprb,5.8331e-04_jprb,&
 & 6.3709e-04_jprb,6.4447e-04_jprb,5.7554e-04_jprb,1.4892e-03_jprb/)  
kao( :, 1,11, 2) = (/&
 & 2.5793e-06_jprb,9.1386e-05_jprb,1.5991e-04_jprb,2.1914e-04_jprb,2.7076e-04_jprb,3.1821e-04_jprb,&
 & 3.5500e-04_jprb,3.6871e-04_jprb,3.7899e-04_jprb,8.3339e-04_jprb/)  
kao( :, 2,11, 2) = (/&
 & 3.1932e-06_jprb,1.0152e-04_jprb,1.7439e-04_jprb,2.3840e-04_jprb,2.9253e-04_jprb,3.3975e-04_jprb,&
 & 3.8122e-04_jprb,3.9384e-04_jprb,4.0567e-04_jprb,9.5074e-04_jprb/)  
kao( :, 3,11, 2) = (/&
 & 4.3709e-06_jprb,1.1728e-04_jprb,1.9656e-04_jprb,2.6595e-04_jprb,3.2495e-04_jprb,3.7366e-04_jprb,&
 & 4.1570e-04_jprb,4.1965e-04_jprb,4.1122e-04_jprb,1.0992e-03_jprb/)  
kao( :, 4,11, 2) = (/&
 & 6.3954e-06_jprb,1.4000e-04_jprb,2.2922e-04_jprb,3.0419e-04_jprb,3.6879e-04_jprb,4.2168e-04_jprb,&
 & 4.6345e-04_jprb,4.7319e-04_jprb,4.5954e-04_jprb,1.2804e-03_jprb/)  
kao( :, 5,11, 2) = (/&
 & 9.6174e-06_jprb,1.7120e-04_jprb,2.7357e-04_jprb,3.5711e-04_jprb,4.2654e-04_jprb,4.8415e-04_jprb,&
 & 5.2775e-04_jprb,5.3321e-04_jprb,4.7537e-04_jprb,1.4946e-03_jprb/)  
kao( :, 1,12, 2) = (/&
 & 2.1449e-06_jprb,7.5185e-05_jprb,1.3159e-04_jprb,1.8068e-04_jprb,2.2335e-04_jprb,2.6198e-04_jprb,&
 & 2.9235e-04_jprb,3.0350e-04_jprb,3.1256e-04_jprb,7.2986e-04_jprb/)  
kao( :, 2,12, 2) = (/&
 & 2.6849e-06_jprb,8.3739e-05_jprb,1.4370e-04_jprb,1.9666e-04_jprb,2.4153e-04_jprb,2.8046e-04_jprb,&
 & 3.1445e-04_jprb,3.2440e-04_jprb,3.3814e-04_jprb,8.3896e-04_jprb/)  
kao( :, 3,12, 2) = (/&
 & 3.7120e-06_jprb,9.7072e-05_jprb,1.6242e-04_jprb,2.1974e-04_jprb,2.6866e-04_jprb,3.0880e-04_jprb,&
 & 3.4296e-04_jprb,3.4655e-04_jprb,3.4183e-04_jprb,9.7914e-04_jprb/)  
kao( :, 4,12, 2) = (/&
 & 5.4750e-06_jprb,1.1621e-04_jprb,1.9012e-04_jprb,2.5210e-04_jprb,3.0547e-04_jprb,3.4901e-04_jprb,&
 & 3.8299e-04_jprb,3.9098e-04_jprb,3.8045e-04_jprb,1.1499e-03_jprb/)  
kao( :, 5,12, 2) = (/&
 & 8.2703e-06_jprb,1.4241e-04_jprb,2.2731e-04_jprb,2.9701e-04_jprb,3.5442e-04_jprb,4.0147e-04_jprb,&
 & 4.3679e-04_jprb,4.4039e-04_jprb,3.9154e-04_jprb,1.3496e-03_jprb/)  
kao( :, 1,13, 2) = (/&
 & 1.7830e-06_jprb,6.1545e-05_jprb,1.0776e-04_jprb,1.4816e-04_jprb,1.8346e-04_jprb,2.1518e-04_jprb,&
 & 2.4003e-04_jprb,2.4920e-04_jprb,2.5855e-04_jprb,6.0483e-04_jprb/)  
kao( :, 2,13, 2) = (/&
 & 2.2523e-06_jprb,6.8708e-05_jprb,1.1787e-04_jprb,1.6139e-04_jprb,1.9846e-04_jprb,2.3065e-04_jprb,&
 & 2.5831e-04_jprb,2.6663e-04_jprb,2.8115e-04_jprb,6.9533e-04_jprb/)  
kao( :, 3,13, 2) = (/&
 & 3.1394e-06_jprb,7.9894e-05_jprb,1.3357e-04_jprb,1.8071e-04_jprb,2.2106e-04_jprb,2.5423e-04_jprb,&
 & 2.8211e-04_jprb,2.8541e-04_jprb,2.8437e-04_jprb,8.1181e-04_jprb/)  
kao( :, 4,13, 2) = (/&
 & 4.6431e-06_jprb,9.5872e-05_jprb,1.5677e-04_jprb,2.0791e-04_jprb,2.5190e-04_jprb,2.8785e-04_jprb,&
 & 3.1567e-04_jprb,3.2214e-04_jprb,3.1077e-04_jprb,9.5374e-04_jprb/)  
kao( :, 5,13, 2) = (/&
 & 7.0293e-06_jprb,1.1782e-04_jprb,1.8782e-04_jprb,2.4556e-04_jprb,2.9310e-04_jprb,3.3172e-04_jprb,&
 & 3.6069e-04_jprb,3.6276e-04_jprb,3.2321e-04_jprb,1.1190e-03_jprb/)  
kao( :, 1, 1, 3) = (/&
 & 3.1395e-04_jprb,2.3358e-03_jprb,3.6695e-03_jprb,4.7583e-03_jprb,5.6300e-03_jprb,6.3084e-03_jprb,&
 & 6.4459e-03_jprb,5.6476e-03_jprb,4.3114e-03_jprb,3.5359e-03_jprb/)  
kao( :, 2, 1, 3) = (/&
 & 4.4041e-04_jprb,2.8550e-03_jprb,4.4288e-03_jprb,5.7337e-03_jprb,6.7703e-03_jprb,7.4874e-03_jprb,&
 & 7.5852e-03_jprb,6.6048e-03_jprb,4.4609e-03_jprb,3.7307e-03_jprb/)  
kao( :, 3, 1, 3) = (/&
 & 6.0889e-04_jprb,3.4990e-03_jprb,5.3318e-03_jprb,6.8783e-03_jprb,8.0899e-03_jprb,8.8562e-03_jprb,&
 & 8.8659e-03_jprb,7.6998e-03_jprb,5.0834e-03_jprb,4.1606e-03_jprb/)  
kao( :, 4, 1, 3) = (/&
 & 8.2945e-04_jprb,4.2967e-03_jprb,6.4106e-03_jprb,8.2013e-03_jprb,9.6038e-03_jprb,1.0382e-02_jprb,&
 & 1.0298e-02_jprb,8.9419e-03_jprb,6.1506e-03_jprb,4.8030e-03_jprb/)  
kao( :, 5, 1, 3) = (/&
 & 1.1111e-03_jprb,5.2640e-03_jprb,7.6785e-03_jprb,9.7243e-03_jprb,1.1313e-02_jprb,1.2073e-02_jprb,&
 & 1.1918e-02_jprb,1.0340e-02_jprb,7.2231e-03_jprb,5.5559e-03_jprb/)  
kao( :, 1, 2, 3) = (/&
 & 2.5786e-04_jprb,1.8689e-03_jprb,2.9171e-03_jprb,3.7655e-03_jprb,4.4557e-03_jprb,4.9851e-03_jprb,&
 & 5.0877e-03_jprb,4.4987e-03_jprb,3.5624e-03_jprb,2.7823e-03_jprb/)  
kao( :, 2, 2, 3) = (/&
 & 3.6518e-04_jprb,2.2982e-03_jprb,3.5229e-03_jprb,4.5348e-03_jprb,5.3627e-03_jprb,5.9413e-03_jprb,&
 & 6.0131e-03_jprb,5.2796e-03_jprb,3.6528e-03_jprb,2.9862e-03_jprb/)  
kao( :, 3, 2, 3) = (/&
 & 5.0963e-04_jprb,2.8326e-03_jprb,4.2490e-03_jprb,5.4478e-03_jprb,6.4291e-03_jprb,7.0522e-03_jprb,&
 & 7.0637e-03_jprb,6.1794e-03_jprb,4.0832e-03_jprb,3.3326e-03_jprb/)  
kao( :, 4, 2, 3) = (/&
 & 7.0041e-04_jprb,3.4946e-03_jprb,5.1315e-03_jprb,6.5181e-03_jprb,7.6574e-03_jprb,8.3039e-03_jprb,&
 & 8.2501e-03_jprb,7.2013e-03_jprb,4.9579e-03_jprb,3.8182e-03_jprb/)  
kao( :, 5, 2, 3) = (/&
 & 9.4509e-04_jprb,4.3042e-03_jprb,6.1780e-03_jprb,7.7645e-03_jprb,9.0552e-03_jprb,9.6970e-03_jprb,&
 & 9.5937e-03_jprb,8.3644e-03_jprb,5.8475e-03_jprb,4.3744e-03_jprb/)  
kao( :, 1, 3, 3) = (/&
 & 1.9379e-04_jprb,1.4316e-03_jprb,2.2324e-03_jprb,2.8735e-03_jprb,3.3970e-03_jprb,3.8041e-03_jprb,&
 & 3.8802e-03_jprb,3.4669e-03_jprb,2.9119e-03_jprb,2.1744e-03_jprb/)  
kao( :, 2, 3, 3) = (/&
 & 2.7770e-04_jprb,1.7674e-03_jprb,2.7001e-03_jprb,3.4577e-03_jprb,4.0882e-03_jprb,4.5451e-03_jprb,&
 & 4.6130e-03_jprb,4.0692e-03_jprb,2.9379e-03_jprb,2.3588e-03_jprb/)  
kao( :, 3, 3, 3) = (/&
 & 3.9251e-04_jprb,2.1938e-03_jprb,3.2645e-03_jprb,4.1604e-03_jprb,4.9099e-03_jprb,5.4125e-03_jprb,&
 & 5.4492e-03_jprb,4.7846e-03_jprb,3.2003e-03_jprb,2.6346e-03_jprb/)  
kao( :, 4, 3, 3) = (/&
 & 5.4605e-04_jprb,2.7278e-03_jprb,3.9609e-03_jprb,4.9977e-03_jprb,5.8740e-03_jprb,6.4067e-03_jprb,&
 & 6.4003e-03_jprb,5.6054e-03_jprb,3.7732e-03_jprb,2.9860e-03_jprb/)  
kao( :, 5, 3, 3) = (/&
 & 7.4466e-04_jprb,3.3848e-03_jprb,4.8045e-03_jprb,5.9823e-03_jprb,6.9787e-03_jprb,7.5209e-03_jprb,&
 & 7.4708e-03_jprb,6.5433e-03_jprb,4.5620e-03_jprb,3.3966e-03_jprb/)  
kao( :, 1, 4, 3) = (/&
 & 1.4015e-04_jprb,1.0813e-03_jprb,1.6854e-03_jprb,2.1729e-03_jprb,2.5709e-03_jprb,2.8772e-03_jprb,&
 & 2.9317e-03_jprb,2.6451e-03_jprb,2.2657e-03_jprb,1.7383e-03_jprb/)  
kao( :, 2, 4, 3) = (/&
 & 2.0311e-04_jprb,1.3407e-03_jprb,2.0417e-03_jprb,2.6162e-03_jprb,3.0900e-03_jprb,3.4371e-03_jprb,&
 & 3.4970e-03_jprb,3.1030e-03_jprb,2.4331e-03_jprb,1.8807e-03_jprb/)  
kao( :, 3, 4, 3) = (/&
 & 2.9086e-04_jprb,1.6740e-03_jprb,2.4810e-03_jprb,3.1478e-03_jprb,3.7091e-03_jprb,4.1012e-03_jprb,&
 & 4.1503e-03_jprb,3.6669e-03_jprb,2.5193e-03_jprb,2.0853e-03_jprb/)  
kao( :, 4, 4, 3) = (/&
 & 4.1019e-04_jprb,2.0975e-03_jprb,3.0276e-03_jprb,3.7932e-03_jprb,4.4503e-03_jprb,4.8736e-03_jprb,&
 & 4.8948e-03_jprb,4.3129e-03_jprb,2.8422e-03_jprb,2.3481e-03_jprb/)  
kao( :, 5, 4, 3) = (/&
 & 5.6658e-04_jprb,2.6213e-03_jprb,3.6972e-03_jprb,4.5663e-03_jprb,5.3124e-03_jprb,5.7564e-03_jprb,&
 & 5.7449e-03_jprb,5.0602e-03_jprb,3.4831e-03_jprb,2.6607e-03_jprb/)  
kao( :, 1, 5, 3) = (/&
 & 1.0005e-04_jprb,8.1751e-04_jprb,1.2728e-03_jprb,1.6409e-03_jprb,1.9492e-03_jprb,2.1828e-03_jprb,&
 & 2.2210e-03_jprb,2.0236e-03_jprb,1.7728e-03_jprb,1.4477e-03_jprb/)  
kao( :, 2, 5, 3) = (/&
 & 1.4628e-04_jprb,1.0154e-03_jprb,1.5439e-03_jprb,1.9778e-03_jprb,2.3404e-03_jprb,2.6065e-03_jprb,&
 & 2.6499e-03_jprb,2.3648e-03_jprb,1.9853e-03_jprb,1.5598e-03_jprb/)  
kao( :, 3, 5, 3) = (/&
 & 2.1213e-04_jprb,1.2737e-03_jprb,1.8830e-03_jprb,2.3878e-03_jprb,2.8089e-03_jprb,3.1116e-03_jprb,&
 & 3.1584e-03_jprb,2.8055e-03_jprb,1.9979e-03_jprb,1.7165e-03_jprb/)  
kao( :, 4, 5, 3) = (/&
 & 3.0316e-04_jprb,1.6037e-03_jprb,2.3102e-03_jprb,2.8890e-03_jprb,3.3732e-03_jprb,3.7052e-03_jprb,&
 & 3.7386e-03_jprb,3.3128e-03_jprb,2.1889e-03_jprb,1.9135e-03_jprb/)  
kao( :, 5, 5, 3) = (/&
 & 4.2437e-04_jprb,2.0170e-03_jprb,2.8415e-03_jprb,3.4970e-03_jprb,4.0448e-03_jprb,4.3946e-03_jprb,&
 & 4.4054e-03_jprb,3.8956e-03_jprb,2.6089e-03_jprb,2.1456e-03_jprb/)  
kao( :, 1, 6, 3) = (/&
 & 6.9848e-05_jprb,6.1344e-04_jprb,9.5427e-04_jprb,1.2333e-03_jprb,1.4696e-03_jprb,1.6459e-03_jprb,&
 & 1.6778e-03_jprb,1.5491e-03_jprb,1.4340e-03_jprb,1.2155e-03_jprb/)  
kao( :, 2, 6, 3) = (/&
 & 1.0287e-04_jprb,7.6231e-04_jprb,1.1596e-03_jprb,1.4875e-03_jprb,1.7602e-03_jprb,1.9644e-03_jprb,&
 & 1.9987e-03_jprb,1.8015e-03_jprb,1.5475e-03_jprb,1.3106e-03_jprb/)  
kao( :, 3, 6, 3) = (/&
 & 1.5064e-04_jprb,9.5897e-04_jprb,1.4184e-03_jprb,1.7997e-03_jprb,2.1174e-03_jprb,2.3481e-03_jprb,&
 & 2.3855e-03_jprb,2.1239e-03_jprb,1.6664e-03_jprb,1.4397e-03_jprb/)  
kao( :, 4, 6, 3) = (/&
 & 2.1812e-04_jprb,1.2102e-03_jprb,1.7485e-03_jprb,2.1875e-03_jprb,2.5486e-03_jprb,2.8028e-03_jprb,&
 & 2.8356e-03_jprb,2.5206e-03_jprb,1.7195e-03_jprb,1.5934e-03_jprb/)  
kao( :, 5, 6, 3) = (/&
 & 3.0969e-04_jprb,1.5273e-03_jprb,2.1634e-03_jprb,2.6620e-03_jprb,3.0695e-03_jprb,3.3380e-03_jprb,&
 & 3.3515e-03_jprb,2.9746e-03_jprb,1.9515e-03_jprb,1.7778e-03_jprb/)  
kao( :, 1, 7, 3) = (/&
 & 4.8221e-05_jprb,4.6010e-04_jprb,7.1481e-04_jprb,9.2859e-04_jprb,1.1100e-03_jprb,1.2408e-03_jprb,&
 & 1.2683e-03_jprb,1.1941e-03_jprb,1.1654e-03_jprb,1.0618e-03_jprb/)  
kao( :, 2, 7, 3) = (/&
 & 7.1316e-05_jprb,5.6993e-04_jprb,8.6994e-04_jprb,1.1165e-03_jprb,1.3220e-03_jprb,1.4781e-03_jprb,&
 & 1.5050e-03_jprb,1.3757e-03_jprb,1.2140e-03_jprb,1.1427e-03_jprb/)  
kao( :, 3, 7, 3) = (/&
 & 1.0540e-04_jprb,7.1740e-04_jprb,1.0671e-03_jprb,1.3546e-03_jprb,1.5921e-03_jprb,1.7675e-03_jprb,&
 & 1.7993e-03_jprb,1.6085e-03_jprb,1.3409e-03_jprb,1.2460e-03_jprb/)  
kao( :, 4, 7, 3) = (/&
 & 1.5421e-04_jprb,9.0675e-04_jprb,1.3194e-03_jprb,1.6531e-03_jprb,1.9239e-03_jprb,2.1163e-03_jprb,&
 & 2.1446e-03_jprb,1.9118e-03_jprb,1.3549e-03_jprb,1.3702e-03_jprb/)  
kao( :, 5, 7, 3) = (/&
 & 2.2207e-04_jprb,1.1485e-03_jprb,1.6379e-03_jprb,2.0236e-03_jprb,2.3292e-03_jprb,2.5319e-03_jprb,&
 & 2.5452e-03_jprb,2.2618e-03_jprb,1.4884e-03_jprb,1.5202e-03_jprb/)  

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


SUBROUTINE part3

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


kao( :, 1, 8, 3) = (/&
 & 3.3024e-05_jprb,3.4530e-04_jprb,5.3688e-04_jprb,7.0115e-04_jprb,8.4229e-04_jprb,9.3889e-04_jprb,&
 & 9.6725e-04_jprb,9.1694e-04_jprb,9.1670e-04_jprb,1.0135e-03_jprb/)  
kao( :, 2, 8, 3) = (/&
 & 4.8867e-05_jprb,4.2560e-04_jprb,6.5145e-04_jprb,8.3778e-04_jprb,9.9544e-04_jprb,1.1134e-03_jprb,&
 & 1.1345e-03_jprb,1.0538e-03_jprb,9.7113e-04_jprb,1.0857e-03_jprb/)  
kao( :, 3, 8, 3) = (/&
 & 7.2825e-05_jprb,5.3471e-04_jprb,8.0022e-04_jprb,1.0181e-03_jprb,1.1967e-03_jprb,1.3302e-03_jprb,&
 & 1.3547e-03_jprb,1.2266e-03_jprb,1.0446e-03_jprb,1.1774e-03_jprb/)  
kao( :, 4, 8, 3) = (/&
 & 1.0774e-04_jprb,6.7652e-04_jprb,9.9081e-04_jprb,1.2458e-03_jprb,1.4508e-03_jprb,1.5976e-03_jprb,&
 & 1.6199e-03_jprb,1.4510e-03_jprb,1.1389e-03_jprb,1.2913e-03_jprb/)  
kao( :, 5, 8, 3) = (/&
 & 1.5712e-04_jprb,8.5893e-04_jprb,1.2330e-03_jprb,1.5318e-03_jprb,1.7648e-03_jprb,1.9188e-03_jprb,&
 & 1.9298e-03_jprb,1.7197e-03_jprb,1.1585e-03_jprb,1.4301e-03_jprb/)  
kao( :, 1, 9, 3) = (/&
 & 2.2694e-05_jprb,2.5964e-04_jprb,4.0587e-04_jprb,5.3244e-04_jprb,6.4307e-04_jprb,7.1486e-04_jprb,&
 & 7.4240e-04_jprb,7.1164e-04_jprb,7.2273e-04_jprb,1.2493e-03_jprb/)  
kao( :, 2, 9, 3) = (/&
 & 3.3403e-05_jprb,3.1851e-04_jprb,4.8826e-04_jprb,6.2982e-04_jprb,7.5282e-04_jprb,8.4067e-04_jprb,&
 & 8.5777e-04_jprb,8.1055e-04_jprb,7.8048e-04_jprb,1.3812e-03_jprb/)  
kao( :, 3, 9, 3) = (/&
 & 5.0028e-05_jprb,3.9826e-04_jprb,5.9931e-04_jprb,7.6424e-04_jprb,9.0031e-04_jprb,1.0018e-03_jprb,&
 & 1.0201e-03_jprb,9.3771e-04_jprb,8.2897e-04_jprb,1.5248e-03_jprb/)  
kao( :, 4, 9, 3) = (/&
 & 7.4767e-05_jprb,5.0392e-04_jprb,7.4141e-04_jprb,9.3676e-04_jprb,1.0930e-03_jprb,1.2050e-03_jprb,&
 & 1.2228e-03_jprb,1.0983e-03_jprb,9.0134e-04_jprb,1.6871e-03_jprb/)  
kao( :, 5, 9, 3) = (/&
 & 1.1035e-04_jprb,6.4097e-04_jprb,9.2434e-04_jprb,1.1532e-03_jprb,1.3334e-03_jprb,1.4526e-03_jprb,&
 & 1.4614e-03_jprb,1.3054e-03_jprb,9.1810e-04_jprb,1.8727e-03_jprb/)  
kao( :, 1,10, 3) = (/&
 & 1.6131e-05_jprb,1.9889e-04_jprb,3.1275e-04_jprb,4.1228e-04_jprb,4.9839e-04_jprb,5.5623e-04_jprb,&
 & 5.8253e-04_jprb,5.6343e-04_jprb,5.6050e-04_jprb,1.5889e-03_jprb/)  
kao( :, 2,10, 3) = (/&
 & 2.3548e-05_jprb,2.4279e-04_jprb,3.7289e-04_jprb,4.8222e-04_jprb,5.7912e-04_jprb,6.4486e-04_jprb,&
 & 6.6265e-04_jprb,6.3391e-04_jprb,6.2287e-04_jprb,1.8970e-03_jprb/)  
kao( :, 3,10, 3) = (/&
 & 3.5345e-05_jprb,3.0213e-04_jprb,4.5662e-04_jprb,5.8302e-04_jprb,6.8872e-04_jprb,7.6652e-04_jprb,&
 & 7.8037e-04_jprb,7.2531e-04_jprb,6.6020e-04_jprb,2.2611e-03_jprb/)  
kao( :, 4,10, 3) = (/&
 & 5.3207e-05_jprb,3.8181e-04_jprb,5.6403e-04_jprb,7.1428e-04_jprb,8.3596e-04_jprb,9.2165e-04_jprb,&
 & 9.3562e-04_jprb,8.4502e-04_jprb,7.1249e-04_jprb,2.6676e-03_jprb/)  
kao( :, 5,10, 3) = (/&
 & 7.9349e-05_jprb,4.8668e-04_jprb,7.0365e-04_jprb,8.7954e-04_jprb,1.0204e-03_jprb,1.1145e-03_jprb,&
 & 1.1232e-03_jprb,1.0045e-03_jprb,7.7476e-04_jprb,3.1110e-03_jprb/)  
kao( :, 1,11, 3) = (/&
 & 1.3601e-05_jprb,1.6644e-04_jprb,2.6059e-04_jprb,3.4190e-04_jprb,4.1323e-04_jprb,4.6098e-04_jprb,&
 & 4.8236e-04_jprb,4.6602e-04_jprb,4.6408e-04_jprb,1.7060e-03_jprb/)  
kao( :, 2,11, 3) = (/&
 & 2.0015e-05_jprb,2.0390e-04_jprb,3.1274e-04_jprb,4.0248e-04_jprb,4.8157e-04_jprb,5.3553e-04_jprb,&
 & 5.5000e-04_jprb,5.2592e-04_jprb,5.1327e-04_jprb,2.0930e-03_jprb/)  
kao( :, 3,11, 3) = (/&
 & 3.0229e-05_jprb,2.5493e-04_jprb,3.8325e-04_jprb,4.8838e-04_jprb,5.7590e-04_jprb,6.3868e-04_jprb,&
 & 6.4952e-04_jprb,6.0329e-04_jprb,5.4354e-04_jprb,2.5341e-03_jprb/)  
kao( :, 4,11, 3) = (/&
 & 4.5728e-05_jprb,3.2357e-04_jprb,4.7513e-04_jprb,5.9900e-04_jprb,7.0032e-04_jprb,7.7052e-04_jprb,&
 & 7.8160e-04_jprb,7.0364e-04_jprb,5.8867e-04_jprb,3.0110e-03_jprb/)  
kao( :, 5,11, 3) = (/&
 & 6.8471e-05_jprb,4.1453e-04_jprb,5.9518e-04_jprb,7.3943e-04_jprb,8.5586e-04_jprb,9.3243e-04_jprb,&
 & 9.3985e-04_jprb,8.3888e-04_jprb,6.4004e-04_jprb,3.5144e-03_jprb/)  
kao( :, 1,12, 3) = (/&
 & 1.1390e-05_jprb,1.3855e-04_jprb,2.1705e-04_jprb,2.8356e-04_jprb,3.4198e-04_jprb,3.8125e-04_jprb,&
 & 3.9897e-04_jprb,3.8701e-04_jprb,3.8428e-04_jprb,1.6202e-03_jprb/)  
kao( :, 2,12, 3) = (/&
 & 1.6895e-05_jprb,1.7033e-04_jprb,2.6132e-04_jprb,3.3574e-04_jprb,4.0033e-04_jprb,4.4440e-04_jprb,&
 & 4.5547e-04_jprb,4.3453e-04_jprb,4.1795e-04_jprb,2.0056e-03_jprb/)  
kao( :, 3,12, 3) = (/&
 & 2.5697e-05_jprb,2.1399e-04_jprb,3.2079e-04_jprb,4.0794e-04_jprb,4.8080e-04_jprb,5.3172e-04_jprb,&
 & 5.4015e-04_jprb,5.0131e-04_jprb,4.5062e-04_jprb,2.4356e-03_jprb/)  
kao( :, 4,12, 3) = (/&
 & 3.9098e-05_jprb,2.7301e-04_jprb,3.9923e-04_jprb,5.0137e-04_jprb,5.8487e-04_jprb,6.4185e-04_jprb,&
 & 6.5190e-04_jprb,5.8598e-04_jprb,4.9100e-04_jprb,2.8992e-03_jprb/)  
kao( :, 5,12, 3) = (/&
 & 5.8880e-05_jprb,3.5135e-04_jprb,5.0233e-04_jprb,6.2054e-04_jprb,7.1596e-04_jprb,7.7742e-04_jprb,&
 & 7.8406e-04_jprb,7.0089e-04_jprb,5.2975e-04_jprb,3.3853e-03_jprb/)  
kao( :, 1,13, 3) = (/&
 & 9.3589e-06_jprb,1.1404e-04_jprb,1.7929e-04_jprb,2.3424e-04_jprb,2.8177e-04_jprb,3.1382e-04_jprb,&
 & 3.2887e-04_jprb,3.1939e-04_jprb,3.1782e-04_jprb,1.3712e-03_jprb/)  
kao( :, 2,13, 3) = (/&
 & 1.3997e-05_jprb,1.4070e-04_jprb,2.1638e-04_jprb,2.7822e-04_jprb,3.3131e-04_jprb,3.6740e-04_jprb,&
 & 3.7618e-04_jprb,3.5875e-04_jprb,3.4257e-04_jprb,1.6948e-03_jprb/)  
kao( :, 3,13, 3) = (/&
 & 2.1467e-05_jprb,1.7760e-04_jprb,2.6657e-04_jprb,3.3860e-04_jprb,3.9863e-04_jprb,4.4020e-04_jprb,&
 & 4.4774e-04_jprb,4.1503e-04_jprb,3.7387e-04_jprb,2.0555e-03_jprb/)  
kao( :, 4,13, 3) = (/&
 & 3.2939e-05_jprb,2.2791e-04_jprb,3.3320e-04_jprb,4.1728e-04_jprb,4.8576e-04_jprb,5.3169e-04_jprb,&
 & 5.4072e-04_jprb,4.8718e-04_jprb,4.1358e-04_jprb,2.4418e-03_jprb/)  
kao( :, 5,13, 3) = (/&
 & 5.0038e-05_jprb,2.9443e-04_jprb,4.2080e-04_jprb,5.1807e-04_jprb,5.9619e-04_jprb,6.4532e-04_jprb,&
 & 6.5035e-04_jprb,5.8360e-04_jprb,4.3228e-04_jprb,2.8426e-03_jprb/)  
kao( :, 1, 1, 4) = (/&
 & 1.3959e-03_jprb,5.9922e-03_jprb,8.2316e-03_jprb,9.8059e-03_jprb,1.0613e-02_jprb,1.0620e-02_jprb,&
 & 1.0007e-02_jprb,8.7254e-03_jprb,5.9465e-03_jprb,5.3438e-03_jprb/)  
kao( :, 2, 1, 4) = (/&
 & 1.8497e-03_jprb,7.5460e-03_jprb,1.0203e-02_jprb,1.1955e-02_jprb,1.2786e-02_jprb,1.2712e-02_jprb,&
 & 1.1856e-02_jprb,1.0291e-02_jprb,7.1447e-03_jprb,6.1713e-03_jprb/)  
kao( :, 3, 1, 4) = (/&
 & 2.4455e-03_jprb,9.3977e-03_jprb,1.2548e-02_jprb,1.4434e-02_jprb,1.5252e-02_jprb,1.5095e-02_jprb,&
 & 1.3989e-02_jprb,1.2066e-02_jprb,8.3510e-03_jprb,7.1167e-03_jprb/)  
kao( :, 4, 1, 4) = (/&
 & 3.2093e-03_jprb,1.1523e-02_jprb,1.5232e-02_jprb,1.7235e-02_jprb,1.8051e-02_jprb,1.7818e-02_jprb,&
 & 1.6407e-02_jprb,1.4008e-02_jprb,9.7059e-03_jprb,8.2637e-03_jprb/)  
kao( :, 5, 1, 4) = (/&
 & 4.1640e-03_jprb,1.3947e-02_jprb,1.8138e-02_jprb,2.0353e-02_jprb,2.1133e-02_jprb,2.0847e-02_jprb,&
 & 1.9064e-02_jprb,1.6182e-02_jprb,1.1218e-02_jprb,9.5219e-03_jprb/)  
kao( :, 1, 2, 4) = (/&
 & 1.1784e-03_jprb,4.8259e-03_jprb,6.5824e-03_jprb,7.8076e-03_jprb,8.3997e-03_jprb,8.4013e-03_jprb,&
 & 7.9589e-03_jprb,6.9035e-03_jprb,4.7972e-03_jprb,4.1536e-03_jprb/)  
kao( :, 2, 2, 4) = (/&
 & 1.5660e-03_jprb,6.0867e-03_jprb,8.2146e-03_jprb,9.5892e-03_jprb,1.0197e-02_jprb,1.0118e-02_jprb,&
 & 9.4816e-03_jprb,8.1710e-03_jprb,5.7311e-03_jprb,4.7856e-03_jprb/)  
kao( :, 3, 2, 4) = (/&
 & 2.0771e-03_jprb,7.6156e-03_jprb,1.0151e-02_jprb,1.1655e-02_jprb,1.2244e-02_jprb,1.2103e-02_jprb,&
 & 1.1249e-02_jprb,9.6217e-03_jprb,6.7053e-03_jprb,5.5268e-03_jprb/)  
kao( :, 4, 2, 4) = (/&
 & 2.7371e-03_jprb,9.3986e-03_jprb,1.2362e-02_jprb,1.3996e-02_jprb,1.4573e-02_jprb,1.4394e-02_jprb,&
 & 1.3273e-02_jprb,1.1249e-02_jprb,7.8082e-03_jprb,6.4145e-03_jprb/)  
kao( :, 5, 2, 4) = (/&
 & 3.5707e-03_jprb,1.1441e-02_jprb,1.4782e-02_jprb,1.6569e-02_jprb,1.7185e-02_jprb,1.6953e-02_jprb,&
 & 1.5517e-02_jprb,1.3078e-02_jprb,9.0555e-03_jprb,7.4094e-03_jprb/)  
kao( :, 1, 3, 4) = (/&
 & 9.3612e-04_jprb,3.7181e-03_jprb,5.0390e-03_jprb,5.9502e-03_jprb,6.3679e-03_jprb,6.3786e-03_jprb,&
 & 6.0698e-03_jprb,5.2727e-03_jprb,3.7120e-03_jprb,3.2201e-03_jprb/)  
kao( :, 2, 3, 4) = (/&
 & 1.2490e-03_jprb,4.6957e-03_jprb,6.3176e-03_jprb,7.3745e-03_jprb,7.7966e-03_jprb,7.7361e-03_jprb,&
 & 7.2751e-03_jprb,6.2746e-03_jprb,4.4490e-03_jprb,3.6844e-03_jprb/)  
kao( :, 3, 3, 4) = (/&
 & 1.6672e-03_jprb,5.9017e-03_jprb,7.8487e-03_jprb,9.0223e-03_jprb,9.4573e-03_jprb,9.3283e-03_jprb,&
 & 8.6995e-03_jprb,7.4301e-03_jprb,5.1895e-03_jprb,4.2405e-03_jprb/)  
kao( :, 4, 3, 4) = (/&
 & 2.2134e-03_jprb,7.3371e-03_jprb,9.6281e-03_jprb,1.0911e-02_jprb,1.1346e-02_jprb,1.1187e-02_jprb,&
 & 1.0343e-02_jprb,8.7520e-03_jprb,6.1061e-03_jprb,4.8883e-03_jprb/)  
kao( :, 5, 3, 4) = (/&
 & 2.9080e-03_jprb,9.0078e-03_jprb,1.1596e-02_jprb,1.2990e-02_jprb,1.3474e-02_jprb,1.3306e-02_jprb,&
 & 1.2200e-02_jprb,1.0250e-02_jprb,7.0746e-03_jprb,5.6394e-03_jprb/)  
kao( :, 1, 4, 4) = (/&
 & 7.2899e-04_jprb,2.8358e-03_jprb,3.8166e-03_jprb,4.4649e-03_jprb,4.7605e-03_jprb,4.7776e-03_jprb,&
 & 4.5645e-03_jprb,3.9905e-03_jprb,2.8172e-03_jprb,2.5259e-03_jprb/)  
kao( :, 2, 4, 4) = (/&
 & 9.7562e-04_jprb,3.5858e-03_jprb,4.8000e-03_jprb,5.5643e-03_jprb,5.8729e-03_jprb,5.8345e-03_jprb,&
 & 5.5106e-03_jprb,4.7660e-03_jprb,3.3369e-03_jprb,2.8747e-03_jprb/)  
kao( :, 3, 4, 4) = (/&
 & 1.3110e-03_jprb,4.5252e-03_jprb,5.9861e-03_jprb,6.8654e-03_jprb,7.1912e-03_jprb,7.0898e-03_jprb,&
 & 6.6257e-03_jprb,5.6788e-03_jprb,3.9467e-03_jprb,3.3017e-03_jprb/)  
kao( :, 4, 4, 4) = (/&
 & 1.7535e-03_jprb,5.6592e-03_jprb,7.3895e-03_jprb,8.3600e-03_jprb,8.7028e-03_jprb,8.5726e-03_jprb,&
 & 7.9544e-03_jprb,6.7413e-03_jprb,4.7023e-03_jprb,3.7920e-03_jprb/)  
kao( :, 5, 4, 4) = (/&
 & 2.3234e-03_jprb,7.0001e-03_jprb,8.9795e-03_jprb,1.0033e-02_jprb,1.0407e-02_jprb,1.0269e-02_jprb,&
 & 9.4690e-03_jprb,7.9455e-03_jprb,5.4450e-03_jprb,4.3729e-03_jprb/)  
kao( :, 1, 5, 4) = (/&
 & 5.6650e-04_jprb,2.1549e-03_jprb,2.8964e-03_jprb,3.3619e-03_jprb,3.5664e-03_jprb,3.5841e-03_jprb,&
 & 3.4323e-03_jprb,3.0201e-03_jprb,2.2575e-03_jprb,2.0547e-03_jprb/)  
kao( :, 2, 5, 4) = (/&
 & 7.5923e-04_jprb,2.7449e-03_jprb,3.6494e-03_jprb,4.2010e-03_jprb,4.4180e-03_jprb,4.3953e-03_jprb,&
 & 4.1675e-03_jprb,3.6219e-03_jprb,2.5473e-03_jprb,2.3046e-03_jprb/)  
kao( :, 3, 5, 4) = (/&
 & 1.0253e-03_jprb,3.4834e-03_jprb,4.5686e-03_jprb,5.2069e-03_jprb,5.4481e-03_jprb,5.3758e-03_jprb,&
 & 5.0408e-03_jprb,4.3359e-03_jprb,3.0162e-03_jprb,2.6195e-03_jprb/)  
kao( :, 4, 5, 4) = (/&
 & 1.3801e-03_jprb,4.3804e-03_jprb,5.6725e-03_jprb,6.3841e-03_jprb,6.6485e-03_jprb,6.5457e-03_jprb,&
 & 6.0914e-03_jprb,5.1828e-03_jprb,3.5636e-03_jprb,2.9971e-03_jprb/)  
kao( :, 5, 5, 4) = (/&
 & 1.8434e-03_jprb,5.4391e-03_jprb,6.9434e-03_jprb,7.7307e-03_jprb,8.0143e-03_jprb,7.8901e-03_jprb,&
 & 7.3072e-03_jprb,6.1548e-03_jprb,4.1784e-03_jprb,3.4508e-03_jprb/)  
kao( :, 1, 6, 4) = (/&
 & 4.3479e-04_jprb,1.6105e-03_jprb,2.1624e-03_jprb,2.5048e-03_jprb,2.6629e-03_jprb,2.6833e-03_jprb,&
 & 2.5738e-03_jprb,2.2737e-03_jprb,1.8606e-03_jprb,1.7234e-03_jprb/)  
kao( :, 2, 6, 4) = (/&
 & 5.8233e-04_jprb,2.0650e-03_jprb,2.7444e-03_jprb,3.1464e-03_jprb,3.3112e-03_jprb,3.2967e-03_jprb,&
 & 3.1292e-03_jprb,2.7330e-03_jprb,1.9142e-03_jprb,1.9183e-03_jprb/)  
kao( :, 3, 6, 4) = (/&
 & 7.8843e-04_jprb,2.6457e-03_jprb,3.4646e-03_jprb,3.9221e-03_jprb,4.0954e-03_jprb,4.0443e-03_jprb,&
 & 3.8065e-03_jprb,3.2872e-03_jprb,2.2472e-03_jprb,2.1603e-03_jprb/)  
kao( :, 4, 6, 4) = (/&
 & 1.0676e-03_jprb,3.3599e-03_jprb,4.3294e-03_jprb,4.8406e-03_jprb,5.0306e-03_jprb,4.9525e-03_jprb,&
 & 4.6235e-03_jprb,3.9530e-03_jprb,2.6778e-03_jprb,2.4636e-03_jprb/)  
kao( :, 5, 6, 4) = (/&
 & 1.4360e-03_jprb,4.2028e-03_jprb,5.3355e-03_jprb,5.9075e-03_jprb,6.1148e-03_jprb,6.0070e-03_jprb,&
 & 5.5779e-03_jprb,4.7305e-03_jprb,3.1938e-03_jprb,2.8201e-03_jprb/)  
kao( :, 1, 7, 4) = (/&
 & 3.3066e-04_jprb,1.1921e-03_jprb,1.5997e-03_jprb,1.8508e-03_jprb,1.9750e-03_jprb,2.0065e-03_jprb,&
 & 1.9362e-03_jprb,1.7121e-03_jprb,1.5102e-03_jprb,1.4755e-03_jprb/)  
kao( :, 2, 7, 4) = (/&
 & 4.4251e-04_jprb,1.5399e-03_jprb,2.0431e-03_jprb,2.3386e-03_jprb,2.4693e-03_jprb,2.4731e-03_jprb,&
 & 2.3559e-03_jprb,2.0619e-03_jprb,1.5167e-03_jprb,1.6278e-03_jprb/)  
kao( :, 3, 7, 4) = (/&
 & 5.9954e-04_jprb,1.9895e-03_jprb,2.5996e-03_jprb,2.9389e-03_jprb,3.0769e-03_jprb,3.0449e-03_jprb,&
 & 2.8696e-03_jprb,2.4854e-03_jprb,1.7100e-03_jprb,1.8261e-03_jprb/)  
kao( :, 4, 7, 4) = (/&
 & 8.1539e-04_jprb,2.5548e-03_jprb,3.2831e-03_jprb,3.6604e-03_jprb,3.8004e-03_jprb,3.7406e-03_jprb,&
 & 3.5004e-03_jprb,3.0009e-03_jprb,2.0185e-03_jprb,2.0723e-03_jprb/)  
kao( :, 5, 7, 4) = (/&
 & 1.1035e-03_jprb,3.2299e-03_jprb,4.0851e-03_jprb,4.5054e-03_jprb,4.6506e-03_jprb,4.5636e-03_jprb,&
 & 4.2458e-03_jprb,3.6170e-03_jprb,2.4150e-03_jprb,2.3689e-03_jprb/)  
kao( :, 1, 8, 4) = (/&
 & 2.4824e-04_jprb,8.7576e-04_jprb,1.1750e-03_jprb,1.3620e-03_jprb,1.4591e-03_jprb,1.4944e-03_jprb,&
 & 1.4530e-03_jprb,1.3016e-03_jprb,1.2362e-03_jprb,1.3815e-03_jprb/)  
kao( :, 2, 8, 4) = (/&
 & 3.3230e-04_jprb,1.1390e-03_jprb,1.5103e-03_jprb,1.7306e-03_jprb,1.8323e-03_jprb,1.8454e-03_jprb,&
 & 1.7715e-03_jprb,1.5588e-03_jprb,1.2567e-03_jprb,1.5241e-03_jprb/)  
kao( :, 3, 8, 4) = (/&
 & 4.5036e-04_jprb,1.4833e-03_jprb,1.9397e-03_jprb,2.1911e-03_jprb,2.2984e-03_jprb,2.2843e-03_jprb,&
 & 2.1644e-03_jprb,1.8786e-03_jprb,1.3010e-03_jprb,1.7047e-03_jprb/)  
kao( :, 4, 8, 4) = (/&
 & 6.1425e-04_jprb,1.9258e-03_jprb,2.4736e-03_jprb,2.7526e-03_jprb,2.8618e-03_jprb,2.8208e-03_jprb,&
 & 2.6474e-03_jprb,2.2738e-03_jprb,1.4977e-03_jprb,1.9231e-03_jprb/)  
kao( :, 5, 8, 4) = (/&
 & 8.3579e-04_jprb,2.4677e-03_jprb,3.1100e-03_jprb,3.4209e-03_jprb,3.5321e-03_jprb,3.4664e-03_jprb,&
 & 3.2302e-03_jprb,2.7529e-03_jprb,1.8211e-03_jprb,2.1802e-03_jprb/)  
kao( :, 1, 9, 4) = (/&
 & 1.8648e-04_jprb,6.4213e-04_jprb,8.6248e-04_jprb,1.0018e-03_jprb,1.0759e-03_jprb,1.1114e-03_jprb,&
 & 1.0893e-03_jprb,9.9064e-04_jprb,9.8753e-04_jprb,1.8775e-03_jprb/)  
kao( :, 2, 9, 4) = (/&
 & 2.4931e-04_jprb,8.3843e-04_jprb,1.1135e-03_jprb,1.2777e-03_jprb,1.3549e-03_jprb,1.3735e-03_jprb,&
 & 1.3267e-03_jprb,1.1784e-03_jprb,1.0225e-03_jprb,2.0725e-03_jprb/)  
kao( :, 3, 9, 4) = (/&
 & 3.3739e-04_jprb,1.0997e-03_jprb,1.4388e-03_jprb,1.6275e-03_jprb,1.7095e-03_jprb,1.7064e-03_jprb,&
 & 1.6276e-03_jprb,1.4244e-03_jprb,1.0196e-03_jprb,2.3196e-03_jprb/)  
kao( :, 4, 9, 4) = (/&
 & 4.6000e-04_jprb,1.4414e-03_jprb,1.8531e-03_jprb,2.0634e-03_jprb,2.1453e-03_jprb,2.1162e-03_jprb,&
 & 1.9970e-03_jprb,1.7248e-03_jprb,1.1677e-03_jprb,2.6078e-03_jprb/)  
kao( :, 5, 9, 4) = (/&
 & 6.2819e-04_jprb,1.8702e-03_jprb,2.3574e-03_jprb,2.5903e-03_jprb,2.6704e-03_jprb,2.6214e-03_jprb,&
 & 2.4477e-03_jprb,2.0914e-03_jprb,1.3608e-03_jprb,2.9294e-03_jprb/)  
kao( :, 1,10, 4) = (/&
 & 1.4307e-04_jprb,4.7989e-04_jprb,6.4527e-04_jprb,7.5154e-04_jprb,8.0960e-04_jprb,8.4090e-04_jprb,&
 & 8.3086e-04_jprb,7.6874e-04_jprb,8.2863e-04_jprb,3.6347e-03_jprb/)  
kao( :, 2,10, 4) = (/&
 & 1.9105e-04_jprb,6.2858e-04_jprb,8.3500e-04_jprb,9.5991e-04_jprb,1.0185e-03_jprb,1.0393e-03_jprb,&
 & 1.0095e-03_jprb,9.0118e-04_jprb,8.3114e-04_jprb,4.2294e-03_jprb/)  
kao( :, 3,10, 4) = (/&
 & 2.5819e-04_jprb,8.2975e-04_jprb,1.0848e-03_jprb,1.2290e-03_jprb,1.2908e-03_jprb,1.2943e-03_jprb,&
 & 1.2407e-03_jprb,1.0947e-03_jprb,8.4507e-04_jprb,4.7942e-03_jprb/)  
kao( :, 4,10, 4) = (/&
 & 3.5175e-04_jprb,1.0966e-03_jprb,1.4090e-03_jprb,1.5695e-03_jprb,1.6301e-03_jprb,1.6125e-03_jprb,&
 & 1.5271e-03_jprb,1.3244e-03_jprb,8.9574e-04_jprb,5.3326e-03_jprb/)  
kao( :, 5,10, 4) = (/&
 & 4.8140e-04_jprb,1.4355e-03_jprb,1.8096e-03_jprb,1.9894e-03_jprb,2.0475e-03_jprb,2.0080e-03_jprb,&
 & 1.8768e-03_jprb,1.6118e-03_jprb,1.0323e-03_jprb,5.8712e-03_jprb/)  
kao( :, 1,11, 4) = (/&
 & 1.2480e-04_jprb,4.0651e-04_jprb,5.4317e-04_jprb,6.3057e-04_jprb,6.7711e-04_jprb,7.0124e-04_jprb,&
 & 6.9230e-04_jprb,6.3637e-04_jprb,6.7480e-04_jprb,4.4748e-03_jprb/)  
kao( :, 2,11, 4) = (/&
 & 1.6789e-04_jprb,5.3657e-04_jprb,7.0675e-04_jprb,8.0798e-04_jprb,8.5575e-04_jprb,8.7116e-04_jprb,&
 & 8.4422e-04_jprb,7.5306e-04_jprb,6.8219e-04_jprb,5.2484e-03_jprb/)  
kao( :, 3,11, 4) = (/&
 & 2.2748e-04_jprb,7.1324e-04_jprb,9.2430e-04_jprb,1.0391e-03_jprb,1.0880e-03_jprb,1.0885e-03_jprb,&
 & 1.0414e-03_jprb,9.1761e-04_jprb,6.9310e-04_jprb,5.9997e-03_jprb/)  
kao( :, 4,11, 4) = (/&
 & 3.1100e-04_jprb,9.4662e-04_jprb,1.2062e-03_jprb,1.3345e-03_jprb,1.3806e-03_jprb,1.3616e-03_jprb,&
 & 1.2842e-03_jprb,1.1132e-03_jprb,7.5183e-04_jprb,6.7275e-03_jprb/)  
kao( :, 5,11, 4) = (/&
 & 4.2632e-04_jprb,1.2375e-03_jprb,1.5507e-03_jprb,1.6996e-03_jprb,1.7428e-03_jprb,1.7046e-03_jprb,&
 & 1.5835e-03_jprb,1.3580e-03_jprb,8.6852e-04_jprb,7.4572e-03_jprb/)  
kao( :, 1,12, 4) = (/&
 & 1.0738e-04_jprb,3.4370e-04_jprb,4.5561e-04_jprb,5.2712e-04_jprb,5.6512e-04_jprb,5.8418e-04_jprb,&
 & 5.7608e-04_jprb,5.2824e-04_jprb,5.5584e-04_jprb,4.5229e-03_jprb/)  
kao( :, 2,12, 4) = (/&
 & 1.4509e-04_jprb,4.5719e-04_jprb,5.9628e-04_jprb,6.7809e-04_jprb,7.1697e-04_jprb,7.2848e-04_jprb,&
 & 7.0565e-04_jprb,6.2997e-04_jprb,5.6436e-04_jprb,5.3156e-03_jprb/)  
kao( :, 3,12, 4) = (/&
 & 1.9783e-04_jprb,6.1167e-04_jprb,7.8481e-04_jprb,8.7764e-04_jprb,9.1476e-04_jprb,9.1298e-04_jprb,&
 & 8.7252e-04_jprb,7.6652e-04_jprb,5.7011e-04_jprb,6.0757e-03_jprb/)  
kao( :, 4,12, 4) = (/&
 & 2.7192e-04_jprb,8.1173e-04_jprb,1.0265e-03_jprb,1.1333e-03_jprb,1.1680e-03_jprb,1.1490e-03_jprb,&
 & 1.0784e-03_jprb,9.3361e-04_jprb,6.2718e-04_jprb,6.8113e-03_jprb/)  
kao( :, 5,12, 4) = (/&
 & 3.7397e-04_jprb,1.0598e-03_jprb,1.3197e-03_jprb,1.4449e-03_jprb,1.4799e-03_jprb,1.4465e-03_jprb,&
 & 1.3362e-03_jprb,1.1407e-03_jprb,7.2415e-04_jprb,7.5425e-03_jprb/)  
kao( :, 1,13, 4) = (/&
 & 8.9292e-05_jprb,2.8719e-04_jprb,3.7864e-04_jprb,4.3694e-04_jprb,4.6878e-04_jprb,4.8461e-04_jprb,&
 & 4.7788e-04_jprb,4.3842e-04_jprb,4.5719e-04_jprb,3.8416e-03_jprb/)  
kao( :, 2,13, 4) = (/&
 & 1.2149e-04_jprb,3.8537e-04_jprb,4.9918e-04_jprb,5.6557e-04_jprb,5.9698e-04_jprb,6.0549e-04_jprb,&
 & 5.8708e-04_jprb,5.2472e-04_jprb,4.6787e-04_jprb,4.4931e-03_jprb/)  
kao( :, 3,13, 4) = (/&
 & 1.6719e-04_jprb,5.1756e-04_jprb,6.6044e-04_jprb,7.3666e-04_jprb,7.6591e-04_jprb,7.6260e-04_jprb,&
 & 7.2753e-04_jprb,6.3867e-04_jprb,4.6954e-04_jprb,5.0961e-03_jprb/)  
kao( :, 4,13, 4) = (/&
 & 2.3161e-04_jprb,6.8759e-04_jprb,8.6435e-04_jprb,9.5388e-04_jprb,9.8295e-04_jprb,9.6568e-04_jprb,&
 & 9.0300e-04_jprb,7.7979e-04_jprb,5.2227e-04_jprb,5.6855e-03_jprb/)  
kao( :, 5,13, 4) = (/&
 & 3.2057e-04_jprb,8.9923e-04_jprb,1.1130e-03_jprb,1.2171e-03_jprb,1.2465e-03_jprb,1.2193e-03_jprb,&
 & 1.1245e-03_jprb,9.5521e-04_jprb,6.0646e-04_jprb,6.2875e-03_jprb/)  
kao( :, 1, 1, 5) = (/&
 & 7.8581e-03_jprb,1.6359e-02_jprb,1.8747e-02_jprb,1.9104e-02_jprb,1.8493e-02_jprb,1.7453e-02_jprb,&
 & 1.6124e-02_jprb,1.4436e-02_jprb,9.9634e-03_jprb,9.0266e-03_jprb/)  

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


SUBROUTINE part4

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


kao( :, 2, 1, 5) = (/&
 & 1.0248e-02_jprb,1.9930e-02_jprb,2.2543e-02_jprb,2.2901e-02_jprb,2.2187e-02_jprb,2.0954e-02_jprb,&
 & 1.9379e-02_jprb,1.7194e-02_jprb,1.1961e-02_jprb,1.0706e-02_jprb/)  
kao( :, 3, 1, 5) = (/&
 & 1.3096e-02_jprb,2.3888e-02_jprb,2.6739e-02_jprb,2.7195e-02_jprb,2.6433e-02_jprb,2.4936e-02_jprb,&
 & 2.3046e-02_jprb,2.0295e-02_jprb,1.4106e-02_jprb,1.2544e-02_jprb/)  
kao( :, 4, 1, 5) = (/&
 & 1.6338e-02_jprb,2.8329e-02_jprb,3.1500e-02_jprb,3.2047e-02_jprb,3.1151e-02_jprb,2.9395e-02_jprb,&
 & 2.7258e-02_jprb,2.3909e-02_jprb,1.6479e-02_jprb,1.4541e-02_jprb/)  
kao( :, 5, 1, 5) = (/&
 & 1.9905e-02_jprb,3.3267e-02_jprb,3.6925e-02_jprb,3.7523e-02_jprb,3.6460e-02_jprb,3.4480e-02_jprb,&
 & 3.1939e-02_jprb,2.7924e-02_jprb,1.9096e-02_jprb,1.6820e-02_jprb/)  
kao( :, 1, 2, 5) = (/&
 & 6.5000e-03_jprb,1.3210e-02_jprb,1.5017e-02_jprb,1.5338e-02_jprb,1.4894e-02_jprb,1.4046e-02_jprb,&
 & 1.2886e-02_jprb,1.1485e-02_jprb,7.8396e-03_jprb,6.9835e-03_jprb/)  
kao( :, 2, 2, 5) = (/&
 & 8.5060e-03_jprb,1.6246e-02_jprb,1.8196e-02_jprb,1.8546e-02_jprb,1.7999e-02_jprb,1.6962e-02_jprb,&
 & 1.5570e-02_jprb,1.3759e-02_jprb,9.5004e-03_jprb,8.2524e-03_jprb/)  
kao( :, 3, 2, 5) = (/&
 & 1.0895e-02_jprb,1.9629e-02_jprb,2.1801e-02_jprb,2.2202e-02_jprb,2.1571e-02_jprb,2.0287e-02_jprb,&
 & 1.8619e-02_jprb,1.6336e-02_jprb,1.1311e-02_jprb,9.6763e-03_jprb/)  
kao( :, 4, 2, 5) = (/&
 & 1.3634e-02_jprb,2.3467e-02_jprb,2.5938e-02_jprb,2.6385e-02_jprb,2.5626e-02_jprb,2.4039e-02_jprb,&
 & 2.2108e-02_jprb,1.9320e-02_jprb,1.3277e-02_jprb,1.1254e-02_jprb/)  
kao( :, 5, 2, 5) = (/&
 & 1.6643e-02_jprb,2.7789e-02_jprb,3.0666e-02_jprb,3.1149e-02_jprb,3.0178e-02_jprb,2.8317e-02_jprb,&
 & 2.6023e-02_jprb,2.2644e-02_jprb,1.5438e-02_jprb,1.3058e-02_jprb/)  
kao( :, 1, 3, 5) = (/&
 & 5.1068e-03_jprb,1.0155e-02_jprb,1.1485e-02_jprb,1.1770e-02_jprb,1.1484e-02_jprb,1.0823e-02_jprb,&
 & 9.8623e-03_jprb,8.7594e-03_jprb,5.9958e-03_jprb,5.2611e-03_jprb/)  
kao( :, 2, 3, 5) = (/&
 & 6.6835e-03_jprb,1.2640e-02_jprb,1.4084e-02_jprb,1.4382e-02_jprb,1.4023e-02_jprb,1.3192e-02_jprb,&
 & 1.2012e-02_jprb,1.0560e-02_jprb,7.2917e-03_jprb,6.1864e-03_jprb/)  
kao( :, 3, 3, 5) = (/&
 & 8.6033e-03_jprb,1.5444e-02_jprb,1.7069e-02_jprb,1.7437e-02_jprb,1.6940e-02_jprb,1.5900e-02_jprb,&
 & 1.4464e-02_jprb,1.2619e-02_jprb,8.8116e-03_jprb,7.2531e-03_jprb/)  
kao( :, 4, 3, 5) = (/&
 & 1.0832e-02_jprb,1.8665e-02_jprb,2.0521e-02_jprb,2.0939e-02_jprb,2.0314e-02_jprb,1.9000e-02_jprb,&
 & 1.7289e-02_jprb,1.5015e-02_jprb,1.0355e-02_jprb,8.4725e-03_jprb/)  
kao( :, 5, 3, 5) = (/&
 & 1.3328e-02_jprb,2.2307e-02_jprb,2.4508e-02_jprb,2.4967e-02_jprb,2.4135e-02_jprb,2.2494e-02_jprb,&
 & 2.0482e-02_jprb,1.7714e-02_jprb,1.2161e-02_jprb,9.8543e-03_jprb/)  
kao( :, 1, 4, 5) = (/&
 & 3.9695e-03_jprb,7.6818e-03_jprb,8.6331e-03_jprb,8.8728e-03_jprb,8.6847e-03_jprb,8.1743e-03_jprb,&
 & 7.4171e-03_jprb,6.5733e-03_jprb,4.6756e-03_jprb,4.0395e-03_jprb/)  
kao( :, 2, 4, 5) = (/&
 & 5.1871e-03_jprb,9.6669e-03_jprb,1.0730e-02_jprb,1.0984e-02_jprb,1.0727e-02_jprb,1.0079e-02_jprb,&
 & 9.1130e-03_jprb,7.9640e-03_jprb,5.5230e-03_jprb,4.7457e-03_jprb/)  
kao( :, 3, 4, 5) = (/&
 & 6.6872e-03_jprb,1.1936e-02_jprb,1.3150e-02_jprb,1.3447e-02_jprb,1.3090e-02_jprb,1.2266e-02_jprb,&
 & 1.1082e-02_jprb,9.5819e-03_jprb,6.7239e-03_jprb,5.5582e-03_jprb/)  
kao( :, 4, 4, 5) = (/&
 & 8.4686e-03_jprb,1.4558e-02_jprb,1.5982e-02_jprb,1.6346e-02_jprb,1.5841e-02_jprb,1.4783e-02_jprb,&
 & 1.3331e-02_jprb,1.1473e-02_jprb,7.9455e-03_jprb,6.5009e-03_jprb/)  
kao( :, 5, 4, 5) = (/&
 & 1.0530e-02_jprb,1.7532e-02_jprb,1.9245e-02_jprb,1.9697e-02_jprb,1.9021e-02_jprb,1.7663e-02_jprb,&
 & 1.5910e-02_jprb,1.3642e-02_jprb,9.4173e-03_jprb,7.5638e-03_jprb/)  
kao( :, 1, 5, 5) = (/&
 & 3.1180e-03_jprb,5.8209e-03_jprb,6.4854e-03_jprb,6.6644e-03_jprb,6.5380e-03_jprb,6.1410e-03_jprb,&
 & 5.5609e-03_jprb,4.9182e-03_jprb,3.5969e-03_jprb,3.1582e-03_jprb/)  
kao( :, 2, 5, 5) = (/&
 & 4.0549e-03_jprb,7.3757e-03_jprb,8.1520e-03_jprb,8.3497e-03_jprb,8.1550e-03_jprb,7.6434e-03_jprb,&
 & 6.8934e-03_jprb,5.9840e-03_jprb,4.1290e-03_jprb,3.6940e-03_jprb/)  
kao( :, 3, 5, 5) = (/&
 & 5.2180e-03_jprb,9.1787e-03_jprb,1.0116e-02_jprb,1.0335e-02_jprb,1.0048e-02_jprb,9.4058e-03_jprb,&
 & 8.4592e-03_jprb,7.2447e-03_jprb,5.0478e-03_jprb,4.3308e-03_jprb/)  
kao( :, 4, 5, 5) = (/&
 & 6.6347e-03_jprb,1.1285e-02_jprb,1.2392e-02_jprb,1.2680e-02_jprb,1.2274e-02_jprb,1.1447e-02_jprb,&
 & 1.0271e-02_jprb,8.7310e-03_jprb,6.0849e-03_jprb,5.0691e-03_jprb/)  
kao( :, 5, 5, 5) = (/&
 & 8.3131e-03_jprb,1.3706e-02_jprb,1.5023e-02_jprb,1.5394e-02_jprb,1.4880e-02_jprb,1.3810e-02_jprb,&
 & 1.2359e-02_jprb,1.0459e-02_jprb,7.2538e-03_jprb,5.9083e-03_jprb/)  
kao( :, 1, 6, 5) = (/&
 & 2.4113e-03_jprb,4.4035e-03_jprb,4.8584e-03_jprb,4.9702e-03_jprb,4.8652e-03_jprb,4.5631e-03_jprb,&
 & 4.1282e-03_jprb,3.6475e-03_jprb,2.6495e-03_jprb,2.6380e-03_jprb/)  
kao( :, 2, 6, 5) = (/&
 & 3.1417e-03_jprb,5.6041e-03_jprb,6.1552e-03_jprb,6.2788e-03_jprb,6.1209e-03_jprb,5.7279e-03_jprb,&
 & 5.1621e-03_jprb,4.4647e-03_jprb,3.1333e-03_jprb,3.0490e-03_jprb/)  
kao( :, 3, 6, 5) = (/&
 & 4.0523e-03_jprb,7.0107e-03_jprb,7.6974e-03_jprb,7.8556e-03_jprb,7.6249e-03_jprb,7.1228e-03_jprb,&
 & 6.3982e-03_jprb,5.4412e-03_jprb,3.7354e-03_jprb,3.5351e-03_jprb/)  
kao( :, 4, 6, 5) = (/&
 & 5.1735e-03_jprb,8.6714e-03_jprb,9.5046e-03_jprb,9.7062e-03_jprb,9.3937e-03_jprb,8.7514e-03_jprb,&
 & 7.8427e-03_jprb,6.5998e-03_jprb,4.6231e-03_jprb,4.0931e-03_jprb/)  
kao( :, 5, 6, 5) = (/&
 & 6.5266e-03_jprb,1.0615e-02_jprb,1.1603e-02_jprb,1.1862e-02_jprb,1.1470e-02_jprb,1.0665e-02_jprb,&
 & 9.5307e-03_jprb,7.9589e-03_jprb,5.4908e-03_jprb,4.7354e-03_jprb/)  
kao( :, 1, 7, 5) = (/&
 & 1.8313e-03_jprb,3.2981e-03_jprb,3.6334e-03_jprb,3.7067e-03_jprb,3.6201e-03_jprb,3.3912e-03_jprb,&
 & 3.0679e-03_jprb,2.7066e-03_jprb,2.0241e-03_jprb,2.2554e-03_jprb/)  
kao( :, 2, 7, 5) = (/&
 & 2.3976e-03_jprb,4.2444e-03_jprb,4.6442e-03_jprb,4.7217e-03_jprb,4.5915e-03_jprb,4.2847e-03_jprb,&
 & 3.8546e-03_jprb,3.3328e-03_jprb,2.4081e-03_jprb,2.5954e-03_jprb/)  
kao( :, 3, 7, 5) = (/&
 & 3.1184e-03_jprb,5.3559e-03_jprb,5.8460e-03_jprb,5.9451e-03_jprb,5.7583e-03_jprb,5.3717e-03_jprb,&
 & 4.8180e-03_jprb,4.0888e-03_jprb,2.7879e-03_jprb,3.0032e-03_jprb/)  
kao( :, 4, 7, 5) = (/&
 & 4.0216e-03_jprb,6.6605e-03_jprb,7.2700e-03_jprb,7.4007e-03_jprb,7.1549e-03_jprb,6.6561e-03_jprb,&
 & 5.9599e-03_jprb,4.9929e-03_jprb,3.4384e-03_jprb,3.4860e-03_jprb/)  
kao( :, 5, 7, 5) = (/&
 & 5.1206e-03_jprb,8.2127e-03_jprb,8.9364e-03_jprb,9.0944e-03_jprb,8.7960e-03_jprb,8.1717e-03_jprb,&
 & 7.3059e-03_jprb,6.0651e-03_jprb,4.1362e-03_jprb,4.0383e-03_jprb/)  
kao( :, 1, 8, 5) = (/&
 & 1.3678e-03_jprb,2.4344e-03_jprb,2.6771e-03_jprb,2.7314e-03_jprb,2.6764e-03_jprb,2.5199e-03_jprb,&
 & 2.2892e-03_jprb,2.0146e-03_jprb,1.5158e-03_jprb,2.0717e-03_jprb/)  
kao( :, 2, 8, 5) = (/&
 & 1.7986e-03_jprb,3.1721e-03_jprb,3.4698e-03_jprb,3.5325e-03_jprb,3.4383e-03_jprb,3.2125e-03_jprb,&
 & 2.8853e-03_jprb,2.4940e-03_jprb,1.7790e-03_jprb,2.3653e-03_jprb/)  
kao( :, 3, 8, 5) = (/&
 & 2.3644e-03_jprb,4.0587e-03_jprb,4.4194e-03_jprb,4.4912e-03_jprb,4.3505e-03_jprb,4.0574e-03_jprb,&
 & 3.6294e-03_jprb,3.0753e-03_jprb,2.0908e-03_jprb,2.7075e-03_jprb/)  
kao( :, 4, 8, 5) = (/&
 & 3.0885e-03_jprb,5.1052e-03_jprb,5.5511e-03_jprb,5.6359e-03_jprb,5.4460e-03_jprb,5.0617e-03_jprb,&
 & 4.5202e-03_jprb,3.7834e-03_jprb,2.5293e-03_jprb,3.1178e-03_jprb/)  
kao( :, 5, 8, 5) = (/&
 & 3.9843e-03_jprb,6.3521e-03_jprb,6.8780e-03_jprb,6.9729e-03_jprb,6.7374e-03_jprb,6.2484e-03_jprb,&
 & 5.5746e-03_jprb,4.6304e-03_jprb,3.1216e-03_jprb,3.5944e-03_jprb/)  
kao( :, 1, 9, 5) = (/&
 & 1.0180e-03_jprb,1.7808e-03_jprb,1.9513e-03_jprb,1.9917e-03_jprb,1.9571e-03_jprb,1.8568e-03_jprb,&
 & 1.7034e-03_jprb,1.5143e-03_jprb,1.2324e-03_jprb,2.9566e-03_jprb/)  
kao( :, 2, 9, 5) = (/&
 & 1.3409e-03_jprb,2.3491e-03_jprb,2.5644e-03_jprb,2.6103e-03_jprb,2.5515e-03_jprb,2.3969e-03_jprb,&
 & 2.1596e-03_jprb,1.8679e-03_jprb,1.3632e-03_jprb,3.3317e-03_jprb/)  
kao( :, 3, 9, 5) = (/&
 & 1.7770e-03_jprb,3.0450e-03_jprb,3.3094e-03_jprb,3.3641e-03_jprb,3.2693e-03_jprb,3.0590e-03_jprb,&
 & 2.7358e-03_jprb,2.3083e-03_jprb,1.6204e-03_jprb,3.7464e-03_jprb/)  
kao( :, 4, 9, 5) = (/&
 & 2.3520e-03_jprb,3.8805e-03_jprb,4.2090e-03_jprb,4.2722e-03_jprb,4.1362e-03_jprb,3.8521e-03_jprb,&
 & 3.4256e-03_jprb,2.8568e-03_jprb,1.8732e-03_jprb,4.2061e-03_jprb/)  
kao( :, 5, 9, 5) = (/&
 & 3.0729e-03_jprb,4.8855e-03_jprb,5.2770e-03_jprb,5.3379e-03_jprb,5.1589e-03_jprb,4.7790e-03_jprb,&
 & 4.2478e-03_jprb,3.5241e-03_jprb,2.3400e-03_jprb,4.7374e-03_jprb/)  
kao( :, 1,10, 5) = (/&
 & 7.7253e-04_jprb,1.3219e-03_jprb,1.4421e-03_jprb,1.4740e-03_jprb,1.4539e-03_jprb,1.3876e-03_jprb,&
 & 1.2853e-03_jprb,1.1567e-03_jprb,1.0022e-03_jprb,6.8847e-03_jprb/)  
kao( :, 2,10, 5) = (/&
 & 1.0173e-03_jprb,1.7625e-03_jprb,1.9200e-03_jprb,1.9559e-03_jprb,1.9175e-03_jprb,1.8087e-03_jprb,&
 & 1.6367e-03_jprb,1.4242e-03_jprb,1.0394e-03_jprb,7.5328e-03_jprb/)  
kao( :, 3,10, 5) = (/&
 & 1.3564e-03_jprb,2.3122e-03_jprb,2.5093e-03_jprb,2.5497e-03_jprb,2.4848e-03_jprb,2.3312e-03_jprb,&
 & 2.0902e-03_jprb,1.7668e-03_jprb,1.2230e-03_jprb,8.3126e-03_jprb/)  
kao( :, 4,10, 5) = (/&
 & 1.8134e-03_jprb,2.9832e-03_jprb,3.2264e-03_jprb,3.2755e-03_jprb,3.1788e-03_jprb,2.9672e-03_jprb,&
 & 2.6373e-03_jprb,2.1956e-03_jprb,1.4206e-03_jprb,9.1949e-03_jprb/)  
kao( :, 5,10, 5) = (/&
 & 2.3982e-03_jprb,3.8024e-03_jprb,4.0921e-03_jprb,4.1370e-03_jprb,4.0025e-03_jprb,3.7132e-03_jprb,&
 & 3.2913e-03_jprb,2.7187e-03_jprb,1.7437e-03_jprb,1.0174e-02_jprb/)  
kao( :, 1,11, 5) = (/&
 & 6.6311e-04_jprb,1.1233e-03_jprb,1.2219e-03_jprb,1.2485e-03_jprb,1.2298e-03_jprb,1.1731e-03_jprb,&
 & 1.0818e-03_jprb,9.6812e-04_jprb,8.2277e-04_jprb,9.1151e-03_jprb/)  
kao( :, 2,11, 5) = (/&
 & 8.7961e-04_jprb,1.5044e-03_jprb,1.6329e-03_jprb,1.6631e-03_jprb,1.6279e-03_jprb,1.5346e-03_jprb,&
 & 1.3878e-03_jprb,1.1990e-03_jprb,8.6844e-04_jprb,9.9636e-03_jprb/)  
kao( :, 3,11, 5) = (/&
 & 1.1836e-03_jprb,1.9811e-03_jprb,2.1444e-03_jprb,2.1783e-03_jprb,2.1211e-03_jprb,1.9859e-03_jprb,&
 & 1.7780e-03_jprb,1.4952e-03_jprb,1.0190e-03_jprb,1.0941e-02_jprb/)  
kao( :, 4,11, 5) = (/&
 & 1.5905e-03_jprb,2.5713e-03_jprb,2.7694e-03_jprb,2.8087e-03_jprb,2.7235e-03_jprb,2.5357e-03_jprb,&
 & 2.2512e-03_jprb,1.8676e-03_jprb,1.1718e-03_jprb,1.2060e-02_jprb/)  
kao( :, 5,11, 5) = (/&
 & 2.1118e-03_jprb,3.3009e-03_jprb,3.5298e-03_jprb,3.5548e-03_jprb,3.4369e-03_jprb,3.1821e-03_jprb,&
 & 2.8194e-03_jprb,2.3141e-03_jprb,1.4442e-03_jprb,1.3285e-02_jprb/)  
kao( :, 1,12, 5) = (/&
 & 5.6477e-04_jprb,9.5054e-04_jprb,1.0327e-03_jprb,1.0546e-03_jprb,1.0374e-03_jprb,9.8870e-04_jprb,&
 & 9.0992e-04_jprb,8.0701e-04_jprb,6.7076e-04_jprb,9.4607e-03_jprb/)  
kao( :, 2,12, 5) = (/&
 & 7.5728e-04_jprb,1.2785e-03_jprb,1.3875e-03_jprb,1.4113e-03_jprb,1.3782e-03_jprb,1.2986e-03_jprb,&
 & 1.1731e-03_jprb,1.0074e-03_jprb,7.2589e-04_jprb,1.0331e-02_jprb/)  
kao( :, 3,12, 5) = (/&
 & 1.0261e-03_jprb,1.6921e-03_jprb,1.8295e-03_jprb,1.8570e-03_jprb,1.8051e-03_jprb,1.6888e-03_jprb,&
 & 1.5086e-03_jprb,1.2626e-03_jprb,8.4339e-04_jprb,1.1368e-02_jprb/)  
kao( :, 4,12, 5) = (/&
 & 1.3869e-03_jprb,2.2095e-03_jprb,2.3736e-03_jprb,2.4008e-03_jprb,2.3247e-03_jprb,2.1615e-03_jprb,&
 & 1.9167e-03_jprb,1.5821e-03_jprb,9.6809e-04_jprb,1.2545e-02_jprb/)  
kao( :, 5,12, 5) = (/&
 & 1.8434e-03_jprb,2.8588e-03_jprb,3.0424e-03_jprb,3.0524e-03_jprb,2.9442e-03_jprb,2.7194e-03_jprb,&
 & 2.4068e-03_jprb,1.9656e-03_jprb,1.2057e-03_jprb,1.3846e-02_jprb/)  
kao( :, 1,13, 5) = (/&
 & 4.7278e-04_jprb,7.9552e-04_jprb,8.6502e-04_jprb,8.8337e-04_jprb,8.6881e-04_jprb,8.2802e-04_jprb,&
 & 7.6164e-04_jprb,6.7146e-04_jprb,5.4706e-04_jprb,7.8912e-03_jprb/)  
kao( :, 2,13, 5) = (/&
 & 6.4178e-04_jprb,1.0759e-03_jprb,1.1686e-03_jprb,1.1883e-03_jprb,1.1601e-03_jprb,1.0935e-03_jprb,&
 & 9.8725e-04_jprb,8.4294e-04_jprb,6.0294e-04_jprb,8.6805e-03_jprb/)  
kao( :, 3,13, 5) = (/&
 & 8.7757e-04_jprb,1.4325e-03_jprb,1.5486e-03_jprb,1.5698e-03_jprb,1.5267e-03_jprb,1.4283e-03_jprb,&
 & 1.2744e-03_jprb,1.0604e-03_jprb,6.9497e-04_jprb,9.6337e-03_jprb/)  
kao( :, 4,13, 5) = (/&
 & 1.1912e-03_jprb,1.8857e-03_jprb,2.0225e-03_jprb,2.0388e-03_jprb,1.9725e-03_jprb,1.8334e-03_jprb,&
 & 1.6247e-03_jprb,1.3326e-03_jprb,8.0026e-04_jprb,1.0694e-02_jprb/)  
kao( :, 5,13, 5) = (/&
 & 1.5846e-03_jprb,2.4545e-03_jprb,2.6070e-03_jprb,2.6093e-03_jprb,2.5111e-03_jprb,2.3151e-03_jprb,&
 & 2.0441e-03_jprb,1.6606e-03_jprb,1.0091e-03_jprb,1.1828e-02_jprb/)  
kao( :, 1, 1, 6) = (/&
 & 2.7778e-02_jprb,3.3405e-02_jprb,3.5267e-02_jprb,3.6006e-02_jprb,3.5898e-02_jprb,3.4553e-02_jprb,&
 & 3.1100e-02_jprb,2.5014e-02_jprb,1.8094e-02_jprb,1.6794e-02_jprb/)  
kao( :, 2, 1, 6) = (/&
 & 3.3366e-02_jprb,4.0235e-02_jprb,4.2608e-02_jprb,4.3370e-02_jprb,4.2914e-02_jprb,4.1247e-02_jprb,&
 & 3.7064e-02_jprb,2.9946e-02_jprb,2.1940e-02_jprb,2.0091e-02_jprb/)  
kao( :, 3, 1, 6) = (/&
 & 3.9476e-02_jprb,4.7919e-02_jprb,5.0670e-02_jprb,5.1321e-02_jprb,5.0664e-02_jprb,4.8610e-02_jprb,&
 & 4.3793e-02_jprb,3.5486e-02_jprb,2.6228e-02_jprb,2.3816e-02_jprb/)  
kao( :, 4, 1, 6) = (/&
 & 4.6165e-02_jprb,5.6406e-02_jprb,5.9353e-02_jprb,6.0117e-02_jprb,5.9468e-02_jprb,5.6918e-02_jprb,&
 & 5.1329e-02_jprb,4.1643e-02_jprb,3.1155e-02_jprb,2.8224e-02_jprb/)  
kao( :, 5, 1, 6) = (/&
 & 5.3590e-02_jprb,6.5676e-02_jprb,6.8956e-02_jprb,6.9882e-02_jprb,6.9299e-02_jprb,6.6139e-02_jprb,&
 & 5.9733e-02_jprb,4.8638e-02_jprb,3.6701e-02_jprb,3.3219e-02_jprb/)  
kao( :, 1, 2, 6) = (/&
 & 2.2559e-02_jprb,2.7654e-02_jprb,2.9015e-02_jprb,2.9337e-02_jprb,2.9078e-02_jprb,2.7937e-02_jprb,&
 & 2.5189e-02_jprb,2.0404e-02_jprb,1.4144e-02_jprb,1.2909e-02_jprb/)  
kao( :, 2, 2, 6) = (/&
 & 2.7361e-02_jprb,3.3523e-02_jprb,3.5340e-02_jprb,3.5540e-02_jprb,3.5037e-02_jprb,3.3575e-02_jprb,&
 & 3.0234e-02_jprb,2.4558e-02_jprb,1.7358e-02_jprb,1.5458e-02_jprb/)  
kao( :, 3, 2, 6) = (/&
 & 3.2702e-02_jprb,4.0222e-02_jprb,4.2266e-02_jprb,4.2370e-02_jprb,4.1690e-02_jprb,3.9887e-02_jprb,&
 & 3.5945e-02_jprb,2.9242e-02_jprb,2.0872e-02_jprb,1.8389e-02_jprb/)  
kao( :, 4, 2, 6) = (/&
 & 3.8698e-02_jprb,4.7703e-02_jprb,4.9874e-02_jprb,5.0037e-02_jprb,4.9234e-02_jprb,4.7000e-02_jprb,&
 & 4.2355e-02_jprb,3.4462e-02_jprb,2.4936e-02_jprb,2.1874e-02_jprb/)  
kao( :, 5, 2, 6) = (/&
 & 4.5406e-02_jprb,5.5864e-02_jprb,5.8250e-02_jprb,5.8611e-02_jprb,5.7701e-02_jprb,5.4940e-02_jprb,&
 & 4.9541e-02_jprb,4.0425e-02_jprb,2.9498e-02_jprb,2.5824e-02_jprb/)  
kao( :, 1, 3, 6) = (/&
 & 1.7492e-02_jprb,2.1787e-02_jprb,2.2652e-02_jprb,2.2750e-02_jprb,2.2453e-02_jprb,2.1534e-02_jprb,&
 & 1.9495e-02_jprb,1.5819e-02_jprb,1.0602e-02_jprb,9.5365e-03_jprb/)  
kao( :, 2, 3, 6) = (/&
 & 2.1519e-02_jprb,2.6731e-02_jprb,2.7902e-02_jprb,2.7864e-02_jprb,2.7355e-02_jprb,2.6151e-02_jprb,&
 & 2.3624e-02_jprb,1.9184e-02_jprb,1.3144e-02_jprb,1.1427e-02_jprb/)  
kao( :, 3, 3, 6) = (/&
 & 2.6104e-02_jprb,3.2391e-02_jprb,3.3736e-02_jprb,3.3545e-02_jprb,3.2846e-02_jprb,3.1374e-02_jprb,&
 & 2.8297e-02_jprb,2.2996e-02_jprb,1.5964e-02_jprb,1.3632e-02_jprb/)  
kao( :, 4, 3, 6) = (/&
 & 3.1327e-02_jprb,3.8767e-02_jprb,4.0227e-02_jprb,3.9993e-02_jprb,3.9114e-02_jprb,3.7263e-02_jprb,&
 & 3.3562e-02_jprb,2.7293e-02_jprb,1.9234e-02_jprb,1.6283e-02_jprb/)  
kao( :, 5, 3, 6) = (/&
 & 3.7182e-02_jprb,4.5791e-02_jprb,4.7452e-02_jprb,4.7270e-02_jprb,4.6211e-02_jprb,4.3900e-02_jprb,&
 & 3.9502e-02_jprb,3.2188e-02_jprb,2.2900e-02_jprb,1.9326e-02_jprb/)  
kao( :, 1, 4, 6) = (/&
 & 1.3291e-02_jprb,1.6678e-02_jprb,1.7275e-02_jprb,1.7278e-02_jprb,1.6993e-02_jprb,1.6286e-02_jprb,&
 & 1.4822e-02_jprb,1.1990e-02_jprb,7.7579e-03_jprb,7.1488e-03_jprb/)  
kao( :, 2, 4, 6) = (/&
 & 1.6630e-02_jprb,2.0815e-02_jprb,2.1568e-02_jprb,2.1440e-02_jprb,2.0973e-02_jprb,2.0006e-02_jprb,&
 & 1.8126e-02_jprb,1.4654e-02_jprb,9.8329e-03_jprb,8.5205e-03_jprb/)  
kao( :, 3, 4, 6) = (/&
 & 2.0444e-02_jprb,2.5553e-02_jprb,2.6397e-02_jprb,2.6132e-02_jprb,2.5471e-02_jprb,2.4223e-02_jprb,&
 & 2.1910e-02_jprb,1.7722e-02_jprb,1.2155e-02_jprb,1.0148e-02_jprb/)  
kao( :, 4, 4, 6) = (/&
 & 2.4887e-02_jprb,3.0959e-02_jprb,3.1847e-02_jprb,3.1469e-02_jprb,3.0641e-02_jprb,2.9051e-02_jprb,&
 & 2.6190e-02_jprb,2.1212e-02_jprb,1.4767e-02_jprb,1.2110e-02_jprb/)  
kao( :, 5, 4, 6) = (/&
 & 2.9912e-02_jprb,3.7010e-02_jprb,3.8031e-02_jprb,3.7546e-02_jprb,3.6509e-02_jprb,3.4523e-02_jprb,&
 & 3.1009e-02_jprb,2.5164e-02_jprb,1.7705e-02_jprb,1.4427e-02_jprb/)  
kao( :, 1, 5, 6) = (/&
 & 1.0066e-02_jprb,1.2668e-02_jprb,1.3071e-02_jprb,1.3029e-02_jprb,1.2765e-02_jprb,1.2217e-02_jprb,&
 & 1.1148e-02_jprb,9.0021e-03_jprb,5.7587e-03_jprb,5.4209e-03_jprb/)  
kao( :, 2, 5, 6) = (/&
 & 1.2757e-02_jprb,1.6015e-02_jprb,1.6544e-02_jprb,1.6397e-02_jprb,1.5990e-02_jprb,1.5234e-02_jprb,&
 & 1.3789e-02_jprb,1.1105e-02_jprb,7.3967e-03_jprb,6.5046e-03_jprb/)  
kao( :, 3, 5, 6) = (/&
 & 1.5901e-02_jprb,1.9963e-02_jprb,2.0508e-02_jprb,2.0254e-02_jprb,1.9682e-02_jprb,1.8644e-02_jprb,&
 & 1.6821e-02_jprb,1.3552e-02_jprb,9.2356e-03_jprb,7.7811e-03_jprb/)  
kao( :, 4, 5, 6) = (/&
 & 1.9596e-02_jprb,2.4499e-02_jprb,2.5082e-02_jprb,2.4696e-02_jprb,2.3936e-02_jprb,2.2580e-02_jprb,&
 & 2.0269e-02_jprb,1.6344e-02_jprb,1.1321e-02_jprb,9.3163e-03_jprb/)  
kao( :, 5, 5, 6) = (/&
 & 2.3830e-02_jprb,2.9650e-02_jprb,3.0334e-02_jprb,2.9811e-02_jprb,2.8792e-02_jprb,2.7070e-02_jprb,&
 & 2.4166e-02_jprb,1.9536e-02_jprb,1.3665e-02_jprb,1.1111e-02_jprb/)  
kao( :, 1, 6, 6) = (/&
 & 7.6087e-03_jprb,9.4951e-03_jprb,9.7649e-03_jprb,9.6943e-03_jprb,9.4691e-03_jprb,9.0311e-03_jprb,&
 & 8.2249e-03_jprb,6.6528e-03_jprb,4.3378e-03_jprb,4.2627e-03_jprb/)  
kao( :, 2, 6, 6) = (/&
 & 9.7029e-03_jprb,1.2146e-02_jprb,1.2495e-02_jprb,1.2394e-02_jprb,1.2047e-02_jprb,1.1438e-02_jprb,&
 & 1.0329e-02_jprb,8.2946e-03_jprb,5.4267e-03_jprb,5.0549e-03_jprb/)  
kao( :, 3, 6, 6) = (/&
 & 1.2241e-02_jprb,1.5353e-02_jprb,1.5729e-02_jprb,1.5534e-02_jprb,1.5039e-02_jprb,1.4188e-02_jprb,&
 & 1.2727e-02_jprb,1.0218e-02_jprb,6.8803e-03_jprb,6.0223e-03_jprb/)  
kao( :, 4, 6, 6) = (/&
 & 1.5222e-02_jprb,1.9088e-02_jprb,1.9504e-02_jprb,1.9213e-02_jprb,1.8550e-02_jprb,1.7379e-02_jprb,&
 & 1.5483e-02_jprb,1.2434e-02_jprb,8.5170e-03_jprb,7.2084e-03_jprb/)  
kao( :, 5, 6, 6) = (/&
 & 1.8677e-02_jprb,2.3384e-02_jprb,2.3892e-02_jprb,2.3510e-02_jprb,2.2581e-02_jprb,2.1034e-02_jprb,&
 & 1.8630e-02_jprb,1.4980e-02_jprb,1.0415e-02_jprb,8.6059e-03_jprb/)  
kao( :, 1, 7, 6) = (/&
 & 5.7827e-03_jprb,7.1313e-03_jprb,7.2802e-03_jprb,7.2045e-03_jprb,6.9954e-03_jprb,6.6269e-03_jprb,&
 & 6.0097e-03_jprb,4.8731e-03_jprb,3.1264e-03_jprb,3.7137e-03_jprb/)  
kao( :, 2, 7, 6) = (/&
 & 7.4084e-03_jprb,9.1887e-03_jprb,9.4000e-03_jprb,9.3096e-03_jprb,9.0304e-03_jprb,8.5190e-03_jprb,&
 & 7.6733e-03_jprb,6.1525e-03_jprb,3.9263e-03_jprb,4.3944e-03_jprb/)  
kao( :, 3, 7, 6) = (/&
 & 9.4040e-03_jprb,1.1717e-02_jprb,1.1976e-02_jprb,1.1835e-02_jprb,1.1434e-02_jprb,1.0726e-02_jprb,&
 & 9.5804e-03_jprb,7.6627e-03_jprb,5.0656e-03_jprb,5.1961e-03_jprb/)  

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


SUBROUTINE part5

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


kao( :, 4, 7, 6) = (/&
 & 1.1772e-02_jprb,1.4730e-02_jprb,1.5048e-02_jprb,1.4854e-02_jprb,1.4302e-02_jprb,1.3320e-02_jprb,&
 & 1.1779e-02_jprb,9.4074e-03_jprb,6.3725e-03_jprb,6.1249e-03_jprb/)  
kao( :, 5, 7, 6) = (/&
 & 1.4533e-02_jprb,1.8234e-02_jprb,1.8652e-02_jprb,1.8417e-02_jprb,1.7654e-02_jprb,1.6319e-02_jprb,&
 & 1.4317e-02_jprb,1.1422e-02_jprb,7.8881e-03_jprb,7.1931e-03_jprb/)  
kao( :, 1, 8, 6) = (/&
 & 4.3473e-03_jprb,5.3530e-03_jprb,5.4453e-03_jprb,5.3772e-03_jprb,5.1866e-03_jprb,4.8647e-03_jprb,&
 & 4.3808e-03_jprb,3.5559e-03_jprb,2.4173e-03_jprb,3.5108e-03_jprb/)  
kao( :, 2, 8, 6) = (/&
 & 5.6534e-03_jprb,6.9608e-03_jprb,7.0942e-03_jprb,6.9933e-03_jprb,6.7489e-03_jprb,6.3330e-03_jprb,&
 & 5.6745e-03_jprb,4.5520e-03_jprb,2.9081e-03_jprb,4.1180e-03_jprb/)  
kao( :, 3, 8, 6) = (/&
 & 7.2231e-03_jprb,8.9492e-03_jprb,9.1155e-03_jprb,8.9772e-03_jprb,8.6519e-03_jprb,8.0865e-03_jprb,&
 & 7.1842e-03_jprb,5.7298e-03_jprb,3.7126e-03_jprb,4.8510e-03_jprb/)  
kao( :, 4, 8, 6) = (/&
 & 9.0980e-03_jprb,1.1325e-02_jprb,1.1554e-02_jprb,1.1402e-02_jprb,1.0960e-02_jprb,1.0182e-02_jprb,&
 & 8.9521e-03_jprb,7.1103e-03_jprb,4.7399e-03_jprb,5.6880e-03_jprb/)  
kao( :, 5, 8, 6) = (/&
 & 1.1302e-02_jprb,1.4121e-02_jprb,1.4457e-02_jprb,1.4302e-02_jprb,1.3709e-02_jprb,1.2644e-02_jprb,&
 & 1.1007e-02_jprb,8.6993e-03_jprb,5.9281e-03_jprb,6.6436e-03_jprb/)  
kao( :, 1, 9, 6) = (/&
 & 3.2166e-03_jprb,3.9635e-03_jprb,4.0421e-03_jprb,3.9936e-03_jprb,3.8441e-03_jprb,3.5923e-03_jprb,&
 & 3.2097e-03_jprb,2.5886e-03_jprb,1.7693e-03_jprb,5.0615e-03_jprb/)  
kao( :, 2, 9, 6) = (/&
 & 4.2551e-03_jprb,5.2496e-03_jprb,5.3431e-03_jprb,5.2633e-03_jprb,5.0543e-03_jprb,4.7090e-03_jprb,&
 & 4.1979e-03_jprb,3.3556e-03_jprb,2.0811e-03_jprb,5.7517e-03_jprb/)  
kao( :, 3, 9, 6) = (/&
 & 5.5178e-03_jprb,6.8310e-03_jprb,6.9481e-03_jprb,6.8181e-03_jprb,6.5340e-03_jprb,6.0733e-03_jprb,&
 & 5.3775e-03_jprb,4.2779e-03_jprb,2.6744e-03_jprb,6.5436e-03_jprb/)  
kao( :, 4, 9, 6) = (/&
 & 7.0233e-03_jprb,8.7120e-03_jprb,8.8693e-03_jprb,8.7209e-03_jprb,8.3514e-03_jprb,7.7376e-03_jprb,&
 & 6.7992e-03_jprb,5.3653e-03_jprb,3.4836e-03_jprb,7.4458e-03_jprb/)  
kao( :, 5, 9, 6) = (/&
 & 8.7908e-03_jprb,1.0935e-02_jprb,1.1156e-02_jprb,1.1011e-02_jprb,1.0551e-02_jprb,9.7377e-03_jprb,&
 & 8.4643e-03_jprb,6.6157e-03_jprb,4.4105e-03_jprb,8.4131e-03_jprb/)  
kao( :, 1,10, 6) = (/&
 & 2.4036e-03_jprb,2.9626e-03_jprb,3.0270e-03_jprb,2.9891e-03_jprb,2.8783e-03_jprb,2.6966e-03_jprb,&
 & 2.4167e-03_jprb,1.9384e-03_jprb,1.2950e-03_jprb,1.2580e-02_jprb/)  
kao( :, 2,10, 6) = (/&
 & 3.2304e-03_jprb,3.9936e-03_jprb,4.0696e-03_jprb,4.0063e-03_jprb,3.8441e-03_jprb,3.5817e-03_jprb,&
 & 3.1841e-03_jprb,2.5258e-03_jprb,1.6318e-03_jprb,1.3867e-02_jprb/)  
kao( :, 3,10, 6) = (/&
 & 4.2450e-03_jprb,5.2713e-03_jprb,5.3717e-03_jprb,5.2683e-03_jprb,5.0339e-03_jprb,4.6625e-03_jprb,&
 & 4.1091e-03_jprb,3.2509e-03_jprb,2.0065e-03_jprb,1.5204e-02_jprb/)  
kao( :, 4,10, 6) = (/&
 & 5.4744e-03_jprb,6.8064e-03_jprb,6.9238e-03_jprb,6.7912e-03_jprb,6.4905e-03_jprb,5.9838e-03_jprb,&
 & 5.2439e-03_jprb,4.1188e-03_jprb,2.6002e-03_jprb,1.6652e-02_jprb/)  
kao( :, 5,10, 6) = (/&
 & 6.9353e-03_jprb,8.6079e-03_jprb,8.7635e-03_jprb,8.6181e-03_jprb,8.2349e-03_jprb,7.5886e-03_jprb,&
 & 6.5994e-03_jprb,5.1192e-03_jprb,3.3239e-03_jprb,1.8251e-02_jprb/)  
kao( :, 1,11, 6) = (/&
 & 2.0648e-03_jprb,2.5481e-03_jprb,2.6000e-03_jprb,2.5607e-03_jprb,2.4630e-03_jprb,2.3069e-03_jprb,&
 & 2.0692e-03_jprb,1.6562e-03_jprb,1.0860e-03_jprb,1.7049e-02_jprb/)  
kao( :, 2,11, 6) = (/&
 & 2.7859e-03_jprb,3.4547e-03_jprb,3.5237e-03_jprb,3.4594e-03_jprb,3.3142e-03_jprb,3.0841e-03_jprb,&
 & 2.7345e-03_jprb,2.1584e-03_jprb,1.3341e-03_jprb,1.8747e-02_jprb/)  
kao( :, 3,11, 6) = (/&
 & 3.6773e-03_jprb,4.5764e-03_jprb,4.6633e-03_jprb,4.5751e-03_jprb,4.3721e-03_jprb,4.0405e-03_jprb,&
 & 3.5419e-03_jprb,2.7771e-03_jprb,1.6730e-03_jprb,2.0460e-02_jprb/)  
kao( :, 4,11, 6) = (/&
 & 4.7645e-03_jprb,5.9262e-03_jprb,6.0301e-03_jprb,5.9104e-03_jprb,5.6462e-03_jprb,5.2017e-03_jprb,&
 & 4.5306e-03_jprb,3.5163e-03_jprb,2.1775e-03_jprb,2.2225e-02_jprb/)  
kao( :, 5,11, 6) = (/&
 & 6.0673e-03_jprb,7.5194e-03_jprb,7.6592e-03_jprb,7.5146e-03_jprb,7.1608e-03_jprb,6.5750e-03_jprb,&
 & 5.6954e-03_jprb,4.3877e-03_jprb,2.7878e-03_jprb,2.4112e-02_jprb/)  
kao( :, 1,12, 6) = (/&
 & 1.7649e-03_jprb,2.1840e-03_jprb,2.2273e-03_jprb,2.1894e-03_jprb,2.1029e-03_jprb,1.9647e-03_jprb,&
 & 1.7570e-03_jprb,1.4092e-03_jprb,9.0612e-04_jprb,1.8116e-02_jprb/)  
kao( :, 2,12, 6) = (/&
 & 2.3911e-03_jprb,2.9721e-03_jprb,3.0306e-03_jprb,2.9776e-03_jprb,2.8514e-03_jprb,2.6450e-03_jprb,&
 & 2.3351e-03_jprb,1.8424e-03_jprb,1.0968e-03_jprb,1.9929e-02_jprb/)  
kao( :, 3,12, 6) = (/&
 & 3.1732e-03_jprb,3.9503e-03_jprb,4.0215e-03_jprb,3.9440e-03_jprb,3.7721e-03_jprb,3.4863e-03_jprb,&
 & 3.0465e-03_jprb,2.3738e-03_jprb,1.3931e-03_jprb,2.1707e-02_jprb/)  
kao( :, 4,12, 6) = (/&
 & 4.1329e-03_jprb,5.1374e-03_jprb,5.2226e-03_jprb,5.1161e-03_jprb,4.8827e-03_jprb,4.4950e-03_jprb,&
 & 3.9019e-03_jprb,3.0106e-03_jprb,1.8199e-03_jprb,2.3542e-02_jprb/)  
kao( :, 5,12, 6) = (/&
 & 5.2972e-03_jprb,6.5406e-03_jprb,6.6636e-03_jprb,6.5319e-03_jprb,6.2060e-03_jprb,5.6779e-03_jprb,&
 & 4.9006e-03_jprb,3.7653e-03_jprb,2.3340e-03_jprb,2.5478e-02_jprb/)  
kao( :, 1,13, 6) = (/&
 & 1.4917e-03_jprb,1.8531e-03_jprb,1.8920e-03_jprb,1.8620e-03_jprb,1.7861e-03_jprb,1.6617e-03_jprb,&
 & 1.4788e-03_jprb,1.1873e-03_jprb,7.5550e-04_jprb,1.5444e-02_jprb/)  
kao( :, 2,13, 6) = (/&
 & 2.0333e-03_jprb,2.5348e-03_jprb,2.5838e-03_jprb,2.5408e-03_jprb,2.4328e-03_jprb,2.2514e-03_jprb,&
 & 1.9783e-03_jprb,1.5611e-03_jprb,9.0187e-04_jprb,1.7015e-02_jprb/)  
kao( :, 3,13, 6) = (/&
 & 2.7153e-03_jprb,3.3873e-03_jprb,3.4439e-03_jprb,3.3763e-03_jprb,3.2264e-03_jprb,2.9750e-03_jprb,&
 & 2.5932e-03_jprb,2.0239e-03_jprb,1.1597e-03_jprb,1.8564e-02_jprb/)  
kao( :, 4,13, 6) = (/&
 & 3.5625e-03_jprb,4.4244e-03_jprb,4.4971e-03_jprb,4.4025e-03_jprb,4.1909e-03_jprb,3.8436e-03_jprb,&
 & 3.3277e-03_jprb,2.5719e-03_jprb,1.5159e-03_jprb,2.0176e-02_jprb/)  
kao( :, 5,13, 6) = (/&
 & 4.5915e-03_jprb,5.6599e-03_jprb,5.7629e-03_jprb,5.6406e-03_jprb,5.3423e-03_jprb,4.8700e-03_jprb,&
 & 4.1907e-03_jprb,3.2171e-03_jprb,1.9497e-03_jprb,2.1913e-02_jprb/)  
kao( :, 1, 1, 7) = (/&
 & 6.4013e-02_jprb,7.3559e-02_jprb,7.8016e-02_jprb,7.8110e-02_jprb,7.4963e-02_jprb,6.8933e-02_jprb,&
 & 6.0750e-02_jprb,4.8875e-02_jprb,3.9308e-02_jprb,3.6560e-02_jprb/)  
kao( :, 2, 1, 7) = (/&
 & 7.6363e-02_jprb,8.7960e-02_jprb,9.3559e-02_jprb,9.3979e-02_jprb,9.0734e-02_jprb,8.3349e-02_jprb,&
 & 7.3192e-02_jprb,5.8774e-02_jprb,4.7441e-02_jprb,4.4036e-02_jprb/)  
kao( :, 3, 1, 7) = (/&
 & 8.9758e-02_jprb,1.0331e-01_jprb,1.1051e-01_jprb,1.1169e-01_jprb,1.0769e-01_jprb,9.8679e-02_jprb,&
 & 8.6726e-02_jprb,6.9819e-02_jprb,5.6655e-02_jprb,5.2675e-02_jprb/)  
kao( :, 4, 1, 7) = (/&
 & 1.0433e-01_jprb,1.2008e-01_jprb,1.2928e-01_jprb,1.3105e-01_jprb,1.2576e-01_jprb,1.1544e-01_jprb,&
 & 1.0166e-01_jprb,8.2241e-02_jprb,6.7142e-02_jprb,6.2520e-02_jprb/)  
kao( :, 5, 1, 7) = (/&
 & 1.2001e-01_jprb,1.3824e-01_jprb,1.4932e-01_jprb,1.5158e-01_jprb,1.4526e-01_jprb,1.3374e-01_jprb,&
 & 1.1804e-01_jprb,9.5951e-02_jprb,7.9016e-02_jprb,7.3734e-02_jprb/)  
kao( :, 1, 2, 7) = (/&
 & 5.2968e-02_jprb,6.2116e-02_jprb,6.5835e-02_jprb,6.6044e-02_jprb,6.3294e-02_jprb,5.8161e-02_jprb,&
 & 5.1176e-02_jprb,4.1393e-02_jprb,3.1133e-02_jprb,2.8255e-02_jprb/)  
kao( :, 2, 2, 7) = (/&
 & 6.3728e-02_jprb,7.4899e-02_jprb,7.9536e-02_jprb,8.0057e-02_jprb,7.7101e-02_jprb,7.0839e-02_jprb,&
 & 6.2175e-02_jprb,5.0108e-02_jprb,3.7798e-02_jprb,3.4182e-02_jprb/)  
kao( :, 3, 2, 7) = (/&
 & 7.5532e-02_jprb,8.8572e-02_jprb,9.4648e-02_jprb,9.5700e-02_jprb,9.1973e-02_jprb,8.4443e-02_jprb,&
 & 7.4085e-02_jprb,5.9918e-02_jprb,4.5429e-02_jprb,4.1069e-02_jprb/)  
kao( :, 4, 2, 7) = (/&
 & 8.8404e-02_jprb,1.0356e-01_jprb,1.1124e-01_jprb,1.1259e-01_jprb,1.0798e-01_jprb,9.9246e-02_jprb,&
 & 8.7373e-02_jprb,7.0993e-02_jprb,5.4110e-02_jprb,4.8926e-02_jprb/)  
kao( :, 5, 2, 7) = (/&
 & 1.0235e-01_jprb,1.2010e-01_jprb,1.2926e-01_jprb,1.3064e-01_jprb,1.2537e-01_jprb,1.1556e-01_jprb,&
 & 1.0208e-01_jprb,8.3206e-02_jprb,6.4030e-02_jprb,5.7947e-02_jprb/)  
kao( :, 1, 3, 7) = (/&
 & 4.1735e-02_jprb,4.9803e-02_jprb,5.2741e-02_jprb,5.2657e-02_jprb,5.0249e-02_jprb,4.6113e-02_jprb,&
 & 4.0588e-02_jprb,3.2986e-02_jprb,2.3522e-02_jprb,2.0886e-02_jprb/)  
kao( :, 2, 3, 7) = (/&
 & 5.0841e-02_jprb,6.0757e-02_jprb,6.4389e-02_jprb,6.4564e-02_jprb,6.1844e-02_jprb,5.6795e-02_jprb,&
 & 4.9854e-02_jprb,4.0407e-02_jprb,2.8855e-02_jprb,2.5442e-02_jprb/)  
kao( :, 3, 3, 7) = (/&
 & 6.0889e-02_jprb,7.2603e-02_jprb,7.7334e-02_jprb,7.7876e-02_jprb,7.4574e-02_jprb,6.8388e-02_jprb,&
 & 6.0037e-02_jprb,4.8827e-02_jprb,3.5004e-02_jprb,3.0751e-02_jprb/)  
kao( :, 4, 3, 7) = (/&
 & 7.1992e-02_jprb,8.5675e-02_jprb,9.1634e-02_jprb,9.2233e-02_jprb,8.8356e-02_jprb,8.1063e-02_jprb,&
 & 7.1397e-02_jprb,5.8371e-02_jprb,4.1972e-02_jprb,3.6821e-02_jprb/)  
kao( :, 5, 3, 7) = (/&
 & 8.4144e-02_jprb,1.0019e-01_jprb,1.0713e-01_jprb,1.0774e-01_jprb,1.0345e-01_jprb,9.5140e-02_jprb,&
 & 8.4076e-02_jprb,6.8896e-02_jprb,4.9944e-02_jprb,4.3832e-02_jprb/)  
kao( :, 1, 4, 7) = (/&
 & 3.2154e-02_jprb,3.8970e-02_jprb,4.1150e-02_jprb,4.0802e-02_jprb,3.8734e-02_jprb,3.5463e-02_jprb,&
 & 3.1189e-02_jprb,2.5441e-02_jprb,1.7426e-02_jprb,1.5348e-02_jprb/)  
kao( :, 2, 4, 7) = (/&
 & 3.9739e-02_jprb,4.8115e-02_jprb,5.0846e-02_jprb,5.0567e-02_jprb,4.8188e-02_jprb,4.4146e-02_jprb,&
 & 3.8765e-02_jprb,3.1629e-02_jprb,2.1722e-02_jprb,1.8824e-02_jprb/)  
kao( :, 3, 4, 7) = (/&
 & 4.8232e-02_jprb,5.8202e-02_jprb,6.1786e-02_jprb,6.1691e-02_jprb,5.8769e-02_jprb,5.3800e-02_jprb,&
 & 4.7237e-02_jprb,3.8627e-02_jprb,2.6596e-02_jprb,2.2906e-02_jprb/)  
kao( :, 4, 4, 7) = (/&
 & 5.7693e-02_jprb,6.9403e-02_jprb,7.3912e-02_jprb,7.3801e-02_jprb,7.0370e-02_jprb,6.4487e-02_jprb,&
 & 5.6733e-02_jprb,4.6604e-02_jprb,3.2157e-02_jprb,2.7582e-02_jprb/)  
kao( :, 5, 4, 7) = (/&
 & 6.8162e-02_jprb,8.1910e-02_jprb,8.6943e-02_jprb,8.6947e-02_jprb,8.3116e-02_jprb,7.6355e-02_jprb,&
 & 6.7389e-02_jprb,5.5474e-02_jprb,3.8506e-02_jprb,3.2984e-02_jprb/)  
kao( :, 1, 5, 7) = (/&
 & 2.4543e-02_jprb,3.0114e-02_jprb,3.1564e-02_jprb,3.1114e-02_jprb,2.9453e-02_jprb,2.6887e-02_jprb,&
 & 2.3575e-02_jprb,1.9323e-02_jprb,1.2795e-02_jprb,1.1691e-02_jprb/)  
kao( :, 2, 5, 7) = (/&
 & 3.0843e-02_jprb,3.7719e-02_jprb,3.9540e-02_jprb,3.9065e-02_jprb,3.7079e-02_jprb,3.3845e-02_jprb,&
 & 2.9679e-02_jprb,2.4367e-02_jprb,1.6282e-02_jprb,1.4283e-02_jprb/)  
kao( :, 3, 5, 7) = (/&
 & 3.7989e-02_jprb,4.6141e-02_jprb,4.8601e-02_jprb,4.8164e-02_jprb,4.5691e-02_jprb,4.1697e-02_jprb,&
 & 3.6599e-02_jprb,3.0110e-02_jprb,2.0230e-02_jprb,1.7316e-02_jprb/)  
kao( :, 4, 5, 7) = (/&
 & 4.5997e-02_jprb,5.5639e-02_jprb,5.8738e-02_jprb,5.8217e-02_jprb,5.5293e-02_jprb,5.0551e-02_jprb,&
 & 4.4474e-02_jprb,3.6675e-02_jprb,2.4679e-02_jprb,2.0824e-02_jprb/)  
kao( :, 5, 5, 7) = (/&
 & 5.4980e-02_jprb,6.6335e-02_jprb,6.9689e-02_jprb,6.9220e-02_jprb,6.5934e-02_jprb,6.0477e-02_jprb,&
 & 5.3356e-02_jprb,4.4023e-02_jprb,2.9735e-02_jprb,2.4925e-02_jprb/)  
kao( :, 1, 6, 7) = (/&
 & 1.8426e-02_jprb,2.2761e-02_jprb,2.3641e-02_jprb,2.3226e-02_jprb,2.1929e-02_jprb,1.9968e-02_jprb,&
 & 1.7467e-02_jprb,1.4347e-02_jprb,9.1807e-03_jprb,8.8441e-03_jprb/)  
kao( :, 2, 6, 7) = (/&
 & 2.3578e-02_jprb,2.9032e-02_jprb,3.0133e-02_jprb,2.9606e-02_jprb,2.7996e-02_jprb,2.5495e-02_jprb,&
 & 2.2298e-02_jprb,1.8363e-02_jprb,1.2129e-02_jprb,1.0950e-02_jprb/)  
kao( :, 3, 6, 7) = (/&
 & 2.9507e-02_jprb,3.6047e-02_jprb,3.7508e-02_jprb,3.6913e-02_jprb,3.4886e-02_jprb,3.1786e-02_jprb,&
 & 2.7844e-02_jprb,2.2965e-02_jprb,1.5292e-02_jprb,1.3409e-02_jprb/)  
kao( :, 4, 6, 7) = (/&
 & 3.6266e-02_jprb,4.4015e-02_jprb,4.5865e-02_jprb,4.5103e-02_jprb,4.2675e-02_jprb,3.8982e-02_jprb,&
 & 3.4261e-02_jprb,2.8279e-02_jprb,1.8853e-02_jprb,1.6214e-02_jprb/)  
kao( :, 5, 6, 7) = (/&
 & 4.3984e-02_jprb,5.3041e-02_jprb,5.5017e-02_jprb,5.4129e-02_jprb,5.1429e-02_jprb,4.7161e-02_jprb,&
 & 4.1564e-02_jprb,3.4270e-02_jprb,2.2882e-02_jprb,1.9446e-02_jprb/)  
kao( :, 1, 7, 7) = (/&
 & 1.3764e-02_jprb,1.6980e-02_jprb,1.7488e-02_jprb,1.7108e-02_jprb,1.6106e-02_jprb,1.4660e-02_jprb,&
 & 1.2811e-02_jprb,1.0508e-02_jprb,6.5858e-03_jprb,7.3979e-03_jprb/)  
kao( :, 2, 7, 7) = (/&
 & 1.7905e-02_jprb,2.2049e-02_jprb,2.2708e-02_jprb,2.2213e-02_jprb,2.0912e-02_jprb,1.9015e-02_jprb,&
 & 1.6594e-02_jprb,1.3616e-02_jprb,8.9925e-03_jprb,8.9127e-03_jprb/)  
kao( :, 3, 7, 7) = (/&
 & 2.2781e-02_jprb,2.7834e-02_jprb,2.8707e-02_jprb,2.8089e-02_jprb,2.6436e-02_jprb,2.4036e-02_jprb,&
 & 2.1001e-02_jprb,1.7243e-02_jprb,1.1550e-02_jprb,1.0727e-02_jprb/)  
kao( :, 4, 7, 7) = (/&
 & 2.8466e-02_jprb,3.4473e-02_jprb,3.5499e-02_jprb,3.4681e-02_jprb,3.2695e-02_jprb,2.9803e-02_jprb,&
 & 2.6138e-02_jprb,2.1504e-02_jprb,1.4432e-02_jprb,1.2888e-02_jprb/)  
kao( :, 5, 7, 7) = (/&
 & 3.5087e-02_jprb,4.2091e-02_jprb,4.3096e-02_jprb,4.2057e-02_jprb,3.9781e-02_jprb,3.6456e-02_jprb,&
 & 3.2089e-02_jprb,2.6356e-02_jprb,1.7665e-02_jprb,1.5419e-02_jprb/)  
kao( :, 1, 8, 7) = (/&
 & 1.0353e-02_jprb,1.2614e-02_jprb,1.2882e-02_jprb,1.2507e-02_jprb,1.1737e-02_jprb,1.0675e-02_jprb,&
 & 9.3093e-03_jprb,7.6257e-03_jprb,4.6116e-03_jprb,7.3615e-03_jprb/)  
kao( :, 2, 8, 7) = (/&
 & 1.3587e-02_jprb,1.6625e-02_jprb,1.6988e-02_jprb,1.6539e-02_jprb,1.5521e-02_jprb,1.4075e-02_jprb,&
 & 1.2252e-02_jprb,1.0008e-02_jprb,6.5742e-03_jprb,8.8183e-03_jprb/)  
kao( :, 3, 8, 7) = (/&
 & 1.7551e-02_jprb,2.1310e-02_jprb,2.1821e-02_jprb,2.1262e-02_jprb,1.9937e-02_jprb,1.8066e-02_jprb,&
 & 1.5721e-02_jprb,1.2839e-02_jprb,8.6653e-03_jprb,1.0458e-02_jprb/)  
kao( :, 4, 8, 7) = (/&
 & 2.2265e-02_jprb,2.6814e-02_jprb,2.7357e-02_jprb,2.6600e-02_jprb,2.4976e-02_jprb,2.2670e-02_jprb,&
 & 1.9796e-02_jprb,1.6193e-02_jprb,1.0979e-02_jprb,1.2332e-02_jprb/)  
kao( :, 5, 8, 7) = (/&
 & 2.7862e-02_jprb,3.3218e-02_jprb,3.3662e-02_jprb,3.2634e-02_jprb,3.0703e-02_jprb,2.8021e-02_jprb,&
 & 2.4581e-02_jprb,2.0102e-02_jprb,1.3589e-02_jprb,1.4413e-02_jprb/)  
kao( :, 1, 9, 7) = (/&
 & 7.8781e-03_jprb,9.4357e-03_jprb,9.5082e-03_jprb,9.1567e-03_jprb,8.5455e-03_jprb,7.7115e-03_jprb,&
 & 6.6987e-03_jprb,5.4668e-03_jprb,3.2375e-03_jprb,1.0690e-02_jprb/)  
kao( :, 2, 9, 7) = (/&
 & 1.0378e-02_jprb,1.2532e-02_jprb,1.2692e-02_jprb,1.2260e-02_jprb,1.1450e-02_jprb,1.0342e-02_jprb,&
 & 8.9582e-03_jprb,7.2956e-03_jprb,4.7236e-03_jprb,1.2330e-02_jprb/)  
kao( :, 3, 9, 7) = (/&
 & 1.3495e-02_jprb,1.6270e-02_jprb,1.6516e-02_jprb,1.6000e-02_jprb,1.4955e-02_jprb,1.3485e-02_jprb,&
 & 1.1675e-02_jprb,9.4744e-03_jprb,6.3929e-03_jprb,1.4160e-02_jprb/)  
kao( :, 4, 9, 7) = (/&
 & 1.7315e-02_jprb,2.0761e-02_jprb,2.1026e-02_jprb,2.0326e-02_jprb,1.9009e-02_jprb,1.7164e-02_jprb,&
 & 1.4884e-02_jprb,1.2091e-02_jprb,8.2532e-03_jprb,1.6229e-02_jprb/)  
kao( :, 5, 9, 7) = (/&
 & 2.1950e-02_jprb,2.6079e-02_jprb,2.6242e-02_jprb,2.5301e-02_jprb,2.3645e-02_jprb,2.1443e-02_jprb,&
 & 1.8684e-02_jprb,1.5203e-02_jprb,1.0361e-02_jprb,1.8623e-02_jprb/)  
kao( :, 1,10, 7) = (/&
 & 6.0912e-03_jprb,7.2618e-03_jprb,7.2497e-03_jprb,6.9368e-03_jprb,6.4251e-03_jprb,5.7381e-03_jprb,&
 & 4.9224e-03_jprb,3.9870e-03_jprb,2.3279e-03_jprb,2.4406e-02_jprb/)  
kao( :, 2,10, 7) = (/&
 & 8.1237e-03_jprb,9.7061e-03_jprb,9.7375e-03_jprb,9.3388e-03_jprb,8.6591e-03_jprb,7.7505e-03_jprb,&
 & 6.6642e-03_jprb,5.3997e-03_jprb,3.3513e-03_jprb,2.6559e-02_jprb/)  
kao( :, 3,10, 7) = (/&
 & 1.0643e-02_jprb,1.2680e-02_jprb,1.2767e-02_jprb,1.2292e-02_jprb,1.1416e-02_jprb,1.0235e-02_jprb,&
 & 8.8042e-03_jprb,7.1077e-03_jprb,4.7423e-03_jprb,2.9166e-02_jprb/)  
kao( :, 4,10, 7) = (/&
 & 1.3745e-02_jprb,1.6327e-02_jprb,1.6432e-02_jprb,1.5803e-02_jprb,1.4680e-02_jprb,1.3196e-02_jprb,&
 & 1.1368e-02_jprb,9.1591e-03_jprb,6.2576e-03_jprb,3.2140e-02_jprb/)  
kao( :, 5,10, 7) = (/&
 & 1.7515e-02_jprb,2.0726e-02_jprb,2.0778e-02_jprb,1.9936e-02_jprb,1.8503e-02_jprb,1.6679e-02_jprb,&
 & 1.4419e-02_jprb,1.1642e-02_jprb,7.9656e-03_jprb,3.5445e-02_jprb/)  
kao( :, 1,11, 7) = (/&
 & 5.3549e-03_jprb,6.3816e-03_jprb,6.3660e-03_jprb,6.0840e-03_jprb,5.6156e-03_jprb,4.9825e-03_jprb,&
 & 4.2303e-03_jprb,3.3795e-03_jprb,1.9749e-03_jprb,3.2367e-02_jprb/)  
kao( :, 2,11, 7) = (/&
 & 7.2013e-03_jprb,8.5604e-03_jprb,8.5532e-03_jprb,8.1763e-03_jprb,7.5421e-03_jprb,6.6997e-03_jprb,&
 & 5.7065e-03_jprb,4.5729e-03_jprb,2.8632e-03_jprb,3.5196e-02_jprb/)  
kao( :, 3,11, 7) = (/&
 & 9.5022e-03_jprb,1.1202e-02_jprb,1.1204e-02_jprb,1.0716e-02_jprb,9.9000e-03_jprb,8.8230e-03_jprb,&
 & 7.5394e-03_jprb,6.0331e-03_jprb,4.0236e-03_jprb,3.8638e-02_jprb/)  
kao( :, 4,11, 7) = (/&
 & 1.2288e-02_jprb,1.4432e-02_jprb,1.4424e-02_jprb,1.3791e-02_jprb,1.2735e-02_jprb,1.1387e-02_jprb,&
 & 9.7608e-03_jprb,7.8103e-03_jprb,5.3234e-03_jprb,4.2507e-02_jprb/)  
kao( :, 5,11, 7) = (/&
 & 1.5567e-02_jprb,1.8295e-02_jprb,1.8261e-02_jprb,1.7460e-02_jprb,1.6145e-02_jprb,1.4469e-02_jprb,&
 & 1.2448e-02_jprb,9.9477e-03_jprb,6.7800e-03_jprb,4.6703e-02_jprb/)  
kao( :, 1,12, 7) = (/&
 & 4.6610e-03_jprb,5.5454e-03_jprb,5.5315e-03_jprb,5.2838e-03_jprb,4.8759e-03_jprb,4.3254e-03_jprb,&
 & 3.6583e-03_jprb,2.8821e-03_jprb,1.6681e-03_jprb,3.4347e-02_jprb/)  
kao( :, 2,12, 7) = (/&
 & 6.3285e-03_jprb,7.4864e-03_jprb,7.4682e-03_jprb,7.1266e-03_jprb,6.5590e-03_jprb,5.8111e-03_jprb,&
 & 4.9232e-03_jprb,3.8901e-03_jprb,2.4263e-03_jprb,3.7723e-02_jprb/)  
kao( :, 3,12, 7) = (/&
 & 8.4114e-03_jprb,9.8725e-03_jprb,9.8303e-03_jprb,9.3562e-03_jprb,8.6044e-03_jprb,7.6370e-03_jprb,&
 & 6.4946e-03_jprb,5.1447e-03_jprb,3.4144e-03_jprb,4.1645e-02_jprb/)  
kao( :, 4,12, 7) = (/&
 & 1.0877e-02_jprb,1.2730e-02_jprb,1.2662e-02_jprb,1.2056e-02_jprb,1.1093e-02_jprb,9.8741e-03_jprb,&
 & 8.4352e-03_jprb,6.6865e-03_jprb,4.5146e-03_jprb,4.5836e-02_jprb/)  
kao( :, 5,12, 7) = (/&
 & 1.3747e-02_jprb,1.6074e-02_jprb,1.5983e-02_jprb,1.5257e-02_jprb,1.4098e-02_jprb,1.2612e-02_jprb,&
 & 1.0799e-02_jprb,8.5347e-03_jprb,5.7461e-03_jprb,5.0295e-02_jprb/)  
kao( :, 1,13, 7) = (/&
 & 4.0079e-03_jprb,4.7560e-03_jprb,4.7417e-03_jprb,4.5251e-03_jprb,4.1763e-03_jprb,3.7162e-03_jprb,&
 & 3.1488e-03_jprb,2.4610e-03_jprb,1.3983e-03_jprb,2.9797e-02_jprb/)  
kao( :, 2,13, 7) = (/&
 & 5.4975e-03_jprb,6.4791e-03_jprb,6.4467e-03_jprb,6.1399e-03_jprb,5.6502e-03_jprb,5.0140e-03_jprb,&
 & 4.2451e-03_jprb,3.3175e-03_jprb,2.0465e-03_jprb,3.3074e-02_jprb/)  
kao( :, 3,13, 7) = (/&
 & 7.3173e-03_jprb,8.5913e-03_jprb,8.5377e-03_jprb,8.1192e-03_jprb,7.4539e-03_jprb,6.6075e-03_jprb,&
 & 5.6063e-03_jprb,4.3940e-03_jprb,2.8772e-03_jprb,3.6709e-02_jprb/)  
kao( :, 4,13, 7) = (/&
 & 9.4743e-03_jprb,1.1090e-02_jprb,1.1002e-02_jprb,1.0468e-02_jprb,9.6356e-03_jprb,8.5792e-03_jprb,&
 & 7.2993e-03_jprb,5.7314e-03_jprb,3.8025e-03_jprb,4.0547e-02_jprb/)  
kao( :, 5,13, 7) = (/&
 & 1.2013e-02_jprb,1.3994e-02_jprb,1.3879e-02_jprb,1.3228e-02_jprb,1.2234e-02_jprb,1.0964e-02_jprb,&
 & 9.3662e-03_jprb,7.3363e-03_jprb,4.8412e-03_jprb,4.4593e-02_jprb/)  

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


SUBROUTINE part6

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


kao( :, 1, 1, 8) = (/&
 & 1.6043e-01_jprb,1.5955e-01_jprb,1.5744e-01_jprb,1.5203e-01_jprb,1.4391e-01_jprb,1.3266e-01_jprb,&
 & 1.1826e-01_jprb,1.0647e-01_jprb,1.0371e-01_jprb,1.0144e-01_jprb/)  
kao( :, 2, 1, 8) = (/&
 & 1.9219e-01_jprb,1.9200e-01_jprb,1.8944e-01_jprb,1.8309e-01_jprb,1.7324e-01_jprb,1.6054e-01_jprb,&
 & 1.4443e-01_jprb,1.3095e-01_jprb,1.2672e-01_jprb,1.2410e-01_jprb/)  
kao( :, 3, 1, 8) = (/&
 & 2.2629e-01_jprb,2.2700e-01_jprb,2.2424e-01_jprb,2.1719e-01_jprb,2.0625e-01_jprb,1.9280e-01_jprb,&
 & 1.7410e-01_jprb,1.5851e-01_jprb,1.5238e-01_jprb,1.4924e-01_jprb/)  
kao( :, 4, 1, 8) = (/&
 & 2.6302e-01_jprb,2.6487e-01_jprb,2.6214e-01_jprb,2.5470e-01_jprb,2.4371e-01_jprb,2.2882e-01_jprb,&
 & 2.0692e-01_jprb,1.8914e-01_jprb,1.8098e-01_jprb,1.7748e-01_jprb/)  
kao( :, 5, 1, 8) = (/&
 & 3.0195e-01_jprb,3.0538e-01_jprb,3.0299e-01_jprb,2.9584e-01_jprb,2.8471e-01_jprb,2.6793e-01_jprb,&
 & 2.4285e-01_jprb,2.2301e-01_jprb,2.1336e-01_jprb,2.0952e-01_jprb/)  
kao( :, 1, 2, 8) = (/&
 & 1.3846e-01_jprb,1.4022e-01_jprb,1.4003e-01_jprb,1.3582e-01_jprb,1.2900e-01_jprb,1.1965e-01_jprb,&
 & 1.0668e-01_jprb,9.1059e-02_jprb,8.5585e-02_jprb,8.1636e-02_jprb/)  
kao( :, 2, 2, 8) = (/&
 & 1.6715e-01_jprb,1.6985e-01_jprb,1.6971e-01_jprb,1.6484e-01_jprb,1.5668e-01_jprb,1.4564e-01_jprb,&
 & 1.3093e-01_jprb,1.1285e-01_jprb,1.0555e-01_jprb,1.0079e-01_jprb/)  
kao( :, 3, 2, 8) = (/&
 & 1.9803e-01_jprb,2.0244e-01_jprb,2.0211e-01_jprb,1.9690e-01_jprb,1.8801e-01_jprb,1.7558e-01_jprb,&
 & 1.5851e-01_jprb,1.3719e-01_jprb,1.2761e-01_jprb,1.2193e-01_jprb/)  
kao( :, 4, 2, 8) = (/&
 & 2.3133e-01_jprb,2.3777e-01_jprb,2.3782e-01_jprb,2.3254e-01_jprb,2.2351e-01_jprb,2.0946e-01_jprb,&
 & 1.8890e-01_jprb,1.6397e-01_jprb,1.5196e-01_jprb,1.4557e-01_jprb/)  
kao( :, 5, 2, 8) = (/&
 & 2.6711e-01_jprb,2.7542e-01_jprb,2.7668e-01_jprb,2.7185e-01_jprb,2.6232e-01_jprb,2.4621e-01_jprb,&
 & 2.2197e-01_jprb,1.9371e-01_jprb,1.7953e-01_jprb,1.7231e-01_jprb/)  
kao( :, 1, 3, 8) = (/&
 & 1.1272e-01_jprb,1.1648e-01_jprb,1.1742e-01_jprb,1.1452e-01_jprb,1.0929e-01_jprb,1.0158e-01_jprb,&
 & 9.0376e-02_jprb,7.4637e-02_jprb,6.6429e-02_jprb,6.1506e-02_jprb/)  
kao( :, 2, 3, 8) = (/&
 & 1.3749e-01_jprb,1.4273e-01_jprb,1.4386e-01_jprb,1.4052e-01_jprb,1.3417e-01_jprb,1.2510e-01_jprb,&
 & 1.1193e-01_jprb,9.3361e-02_jprb,8.2893e-02_jprb,7.6819e-02_jprb/)  
kao( :, 3, 3, 8) = (/&
 & 1.6469e-01_jprb,1.7179e-01_jprb,1.7314e-01_jprb,1.6944e-01_jprb,1.6261e-01_jprb,1.5216e-01_jprb,&
 & 1.3674e-01_jprb,1.1431e-01_jprb,1.0110e-01_jprb,9.3702e-02_jprb/)  
kao( :, 4, 3, 8) = (/&
 & 1.9422e-01_jprb,2.0356e-01_jprb,2.0555e-01_jprb,2.0203e-01_jprb,1.9491e-01_jprb,1.8285e-01_jprb,&
 & 1.6414e-01_jprb,1.3754e-01_jprb,1.2151e-01_jprb,1.1286e-01_jprb/)  
kao( :, 5, 3, 8) = (/&
 & 2.2623e-01_jprb,2.3781e-01_jprb,2.4116e-01_jprb,2.3829e-01_jprb,2.3049e-01_jprb,2.1610e-01_jprb,&
 & 1.9397e-01_jprb,1.6347e-01_jprb,1.4442e-01_jprb,1.3449e-01_jprb/)  
kao( :, 1, 4, 8) = (/&
 & 8.9051e-02_jprb,9.4148e-02_jprb,9.5376e-02_jprb,9.3490e-02_jprb,8.9564e-02_jprb,8.3123e-02_jprb,&
 & 7.3825e-02_jprb,6.0440e-02_jprb,5.0018e-02_jprb,4.5241e-02_jprb/)  
kao( :, 2, 4, 8) = (/&
 & 1.0984e-01_jprb,1.1667e-01_jprb,1.1837e-01_jprb,1.1624e-01_jprb,1.1142e-01_jprb,1.0383e-01_jprb,&
 & 9.2686e-02_jprb,7.6384e-02_jprb,6.3307e-02_jprb,5.7158e-02_jprb/)  
kao( :, 3, 4, 8) = (/&
 & 1.3321e-01_jprb,1.4188e-01_jprb,1.4403e-01_jprb,1.4173e-01_jprb,1.3641e-01_jprb,1.2779e-01_jprb,&
 & 1.1439e-01_jprb,9.4375e-02_jprb,7.8066e-02_jprb,7.0497e-02_jprb/)  
kao( :, 4, 4, 8) = (/&
 & 1.5891e-01_jprb,1.6984e-01_jprb,1.7265e-01_jprb,1.7069e-01_jprb,1.6497e-01_jprb,1.5505e-01_jprb,&
 & 1.3862e-01_jprb,1.1439e-01_jprb,9.4690e-02_jprb,8.5635e-02_jprb/)  
kao( :, 5, 4, 8) = (/&
 & 1.8690e-01_jprb,2.0031e-01_jprb,2.0459e-01_jprb,2.0306e-01_jprb,1.9673e-01_jprb,1.8463e-01_jprb,&
 & 1.6524e-01_jprb,1.3669e-01_jprb,1.1330e-01_jprb,1.0289e-01_jprb/)  
kao( :, 1, 5, 8) = (/&
 & 6.9203e-02_jprb,7.4779e-02_jprb,7.5983e-02_jprb,7.4840e-02_jprb,7.1567e-02_jprb,6.6398e-02_jprb,&
 & 5.8865e-02_jprb,4.8193e-02_jprb,3.7188e-02_jprb,3.3169e-02_jprb/)  
kao( :, 2, 5, 8) = (/&
 & 8.6430e-02_jprb,9.3817e-02_jprb,9.5587e-02_jprb,9.4322e-02_jprb,9.0456e-02_jprb,8.4124e-02_jprb,&
 & 7.5016e-02_jprb,6.1615e-02_jprb,4.7744e-02_jprb,4.2317e-02_jprb/)  
kao( :, 3, 5, 8) = (/&
 & 1.0608e-01_jprb,1.1542e-01_jprb,1.1772e-01_jprb,1.1636e-01_jprb,1.1218e-01_jprb,1.0479e-01_jprb,&
 & 9.3784e-02_jprb,7.6996e-02_jprb,5.9545e-02_jprb,5.2656e-02_jprb/)  
kao( :, 4, 5, 8) = (/&
 & 1.2808e-01_jprb,1.3974e-01_jprb,1.4262e-01_jprb,1.4148e-01_jprb,1.3703e-01_jprb,1.2845e-01_jprb,&
 & 1.1485e-01_jprb,9.4184e-02_jprb,7.2838e-02_jprb,6.4516e-02_jprb/)  
kao( :, 5, 5, 8) = (/&
 & 1.5224e-01_jprb,1.6648e-01_jprb,1.7081e-01_jprb,1.6990e-01_jprb,1.6471e-01_jprb,1.5442e-01_jprb,&
 & 1.3821e-01_jprb,1.1347e-01_jprb,8.7956e-02_jprb,7.8195e-02_jprb/)  
kao( :, 1, 6, 8) = (/&
 & 5.2711e-02_jprb,5.7994e-02_jprb,5.9096e-02_jprb,5.8090e-02_jprb,5.5430e-02_jprb,5.1354e-02_jprb,&
 & 4.5515e-02_jprb,3.7271e-02_jprb,2.7030e-02_jprb,2.5040e-02_jprb/)  
kao( :, 2, 6, 8) = (/&
 & 6.6719e-02_jprb,7.3700e-02_jprb,7.5367e-02_jprb,7.4311e-02_jprb,7.1156e-02_jprb,6.6068e-02_jprb,&
 & 5.8853e-02_jprb,4.8369e-02_jprb,3.5301e-02_jprb,3.1744e-02_jprb/)  
kao( :, 3, 6, 8) = (/&
 & 8.2863e-02_jprb,9.1758e-02_jprb,9.3947e-02_jprb,9.2979e-02_jprb,8.9500e-02_jprb,8.3468e-02_jprb,&
 & 7.4609e-02_jprb,6.1328e-02_jprb,4.4683e-02_jprb,3.9440e-02_jprb/)  
kao( :, 4, 6, 8) = (/&
 & 1.0132e-01_jprb,1.1234e-01_jprb,1.1520e-01_jprb,1.1443e-01_jprb,1.1059e-01_jprb,1.0353e-01_jprb,&
 & 9.2489e-02_jprb,7.5833e-02_jprb,5.5318e-02_jprb,4.8406e-02_jprb/)  
kao( :, 5, 6, 8) = (/&
 & 1.2185e-01_jprb,1.3538e-01_jprb,1.3945e-01_jprb,1.3895e-01_jprb,1.3433e-01_jprb,1.2572e-01_jprb,&
 & 1.1243e-01_jprb,9.2112e-02_jprb,6.7492e-02_jprb,5.8870e-02_jprb/)  
kao( :, 1, 7, 8) = (/&
 & 3.9562e-02_jprb,4.4276e-02_jprb,4.5109e-02_jprb,4.4187e-02_jprb,4.2082e-02_jprb,3.8859e-02_jprb,&
 & 3.4454e-02_jprb,2.8224e-02_jprb,1.9384e-02_jprb,1.9321e-02_jprb/)  
kao( :, 2, 7, 8) = (/&
 & 5.0879e-02_jprb,5.7055e-02_jprb,5.8399e-02_jprb,5.7367e-02_jprb,5.4802e-02_jprb,5.0789e-02_jprb,&
 & 4.5232e-02_jprb,3.7273e-02_jprb,2.5806e-02_jprb,2.4869e-02_jprb/)  
kao( :, 3, 7, 8) = (/&
 & 6.4003e-02_jprb,7.1996e-02_jprb,7.3764e-02_jprb,7.2774e-02_jprb,6.9847e-02_jprb,6.5078e-02_jprb,&
 & 5.8125e-02_jprb,4.7947e-02_jprb,3.3205e-02_jprb,3.1173e-02_jprb/)  
kao( :, 4, 7, 8) = (/&
 & 7.9173e-02_jprb,8.9239e-02_jprb,9.1617e-02_jprb,9.0750e-02_jprb,8.7396e-02_jprb,8.1720e-02_jprb,&
 & 7.3031e-02_jprb,6.0013e-02_jprb,4.1674e-02_jprb,3.8297e-02_jprb/)  
kao( :, 5, 7, 8) = (/&
 & 9.6350e-02_jprb,1.0877e-01_jprb,1.1214e-01_jprb,1.1148e-01_jprb,1.0740e-01_jprb,1.0030e-01_jprb,&
 & 8.9645e-02_jprb,7.3703e-02_jprb,5.1413e-02_jprb,4.6217e-02_jprb/)  
kao( :, 1, 8, 8) = (/&
 & 2.9374e-02_jprb,3.3358e-02_jprb,3.3910e-02_jprb,3.3176e-02_jprb,3.1488e-02_jprb,2.9002e-02_jprb,&
 & 2.5651e-02_jprb,2.0998e-02_jprb,1.3790e-02_jprb,1.7931e-02_jprb/)  
kao( :, 2, 8, 8) = (/&
 & 3.8453e-02_jprb,4.3732e-02_jprb,4.4619e-02_jprb,4.3676e-02_jprb,4.1586e-02_jprb,3.8491e-02_jprb,&
 & 3.4234e-02_jprb,2.8236e-02_jprb,1.8826e-02_jprb,2.1882e-02_jprb/)  
kao( :, 3, 8, 8) = (/&
 & 4.9075e-02_jprb,5.5936e-02_jprb,5.7139e-02_jprb,5.6138e-02_jprb,5.3708e-02_jprb,4.9953e-02_jprb,&
 & 4.4646e-02_jprb,3.6887e-02_jprb,2.4662e-02_jprb,2.6591e-02_jprb/)  
kao( :, 4, 8, 8) = (/&
 & 6.1437e-02_jprb,7.0140e-02_jprb,7.1902e-02_jprb,7.0919e-02_jprb,6.8027e-02_jprb,6.3508e-02_jprb,&
 & 5.6793e-02_jprb,4.6822e-02_jprb,3.1405e-02_jprb,3.2120e-02_jprb/)  
kao( :, 5, 8, 8) = (/&
 & 7.5648e-02_jprb,8.6455e-02_jprb,8.9059e-02_jprb,8.8138e-02_jprb,8.4612e-02_jprb,7.8826e-02_jprb,&
 & 7.0474e-02_jprb,5.8121e-02_jprb,3.9203e-02_jprb,3.8693e-02_jprb/)  
kao( :, 1, 9, 8) = (/&
 & 2.1631e-02_jprb,2.4762e-02_jprb,2.5091e-02_jprb,2.4519e-02_jprb,2.3245e-02_jprb,2.1343e-02_jprb,&
 & 1.8810e-02_jprb,1.5373e-02_jprb,9.7641e-03_jprb,2.9273e-02_jprb/)  
kao( :, 2, 9, 8) = (/&
 & 2.8813e-02_jprb,3.3084e-02_jprb,3.3621e-02_jprb,3.2842e-02_jprb,3.1201e-02_jprb,2.8769e-02_jprb,&
 & 2.5516e-02_jprb,2.1018e-02_jprb,1.3707e-02_jprb,3.3813e-02_jprb/)  
kao( :, 3, 9, 8) = (/&
 & 3.7408e-02_jprb,4.2984e-02_jprb,4.3696e-02_jprb,4.2737e-02_jprb,4.0787e-02_jprb,3.7847e-02_jprb,&
 & 3.3777e-02_jprb,2.7905e-02_jprb,1.8311e-02_jprb,3.9010e-02_jprb/)  
kao( :, 4, 9, 8) = (/&
 & 4.7502e-02_jprb,5.4598e-02_jprb,5.5650e-02_jprb,5.4654e-02_jprb,5.2292e-02_jprb,4.8701e-02_jprb,&
 & 4.3528e-02_jprb,3.5956e-02_jprb,2.3660e-02_jprb,4.4684e-02_jprb/)  
kao( :, 5, 9, 8) = (/&
 & 5.9184e-02_jprb,6.8075e-02_jprb,6.9737e-02_jprb,6.8716e-02_jprb,6.5788e-02_jprb,6.1148e-02_jprb,&
 & 5.4664e-02_jprb,4.5216e-02_jprb,2.9878e-02_jprb,5.0829e-02_jprb/)  
kao( :, 1,10, 8) = (/&
 & 1.6420e-02_jprb,1.8693e-02_jprb,1.8856e-02_jprb,1.8334e-02_jprb,1.7341e-02_jprb,1.5930e-02_jprb,&
 & 1.4013e-02_jprb,1.1403e-02_jprb,7.0640e-03_jprb,7.0532e-02_jprb/)  
kao( :, 2,10, 8) = (/&
 & 2.2040e-02_jprb,2.5317e-02_jprb,2.5632e-02_jprb,2.5009e-02_jprb,2.3702e-02_jprb,2.1797e-02_jprb,&
 & 1.9273e-02_jprb,1.5810e-02_jprb,1.0204e-02_jprb,7.6827e-02_jprb/)  
kao( :, 3,10, 8) = (/&
 & 2.8968e-02_jprb,3.3418e-02_jprb,3.3805e-02_jprb,3.2963e-02_jprb,3.1358e-02_jprb,2.9007e-02_jprb,&
 & 2.5810e-02_jprb,2.1266e-02_jprb,1.3886e-02_jprb,8.3691e-02_jprb/)  
kao( :, 4,10, 8) = (/&
 & 3.7285e-02_jprb,4.3000e-02_jprb,4.3529e-02_jprb,4.2562e-02_jprb,4.0635e-02_jprb,3.7704e-02_jprb,&
 & 3.3617e-02_jprb,2.7781e-02_jprb,1.8177e-02_jprb,9.1457e-02_jprb/)  
kao( :, 5,10, 8) = (/&
 & 4.7085e-02_jprb,5.4248e-02_jprb,5.5089e-02_jprb,5.4027e-02_jprb,5.1573e-02_jprb,4.7828e-02_jprb,&
 & 4.2671e-02_jprb,3.5326e-02_jprb,2.3198e-02_jprb,9.9898e-02_jprb/)  
kao( :, 1,11, 8) = (/&
 & 1.4563e-02_jprb,1.6480e-02_jprb,1.6520e-02_jprb,1.5972e-02_jprb,1.5054e-02_jprb,1.3800e-02_jprb,&
 & 1.2151e-02_jprb,9.8498e-03_jprb,6.1529e-03_jprb,9.3025e-02_jprb/)  
kao( :, 2,11, 8) = (/&
 & 1.9422e-02_jprb,2.2230e-02_jprb,2.2365e-02_jprb,2.1742e-02_jprb,2.0575e-02_jprb,1.8920e-02_jprb,&
 & 1.6702e-02_jprb,1.3649e-02_jprb,8.8593e-03_jprb,9.9753e-02_jprb/)  
kao( :, 3,11, 8) = (/&
 & 2.5471e-02_jprb,2.9351e-02_jprb,2.9545e-02_jprb,2.8766e-02_jprb,2.7276e-02_jprb,2.5150e-02_jprb,&
 & 2.2319e-02_jprb,1.8330e-02_jprb,1.2044e-02_jprb,1.0708e-01_jprb/)  
kao( :, 4,11, 8) = (/&
 & 3.2877e-02_jprb,3.7913e-02_jprb,3.8172e-02_jprb,3.7200e-02_jprb,3.5345e-02_jprb,3.2640e-02_jprb,&
 & 2.9010e-02_jprb,2.3912e-02_jprb,1.5750e-02_jprb,1.1551e-01_jprb/)  
kao( :, 5,11, 8) = (/&
 & 4.1783e-02_jprb,4.8070e-02_jprb,4.8478e-02_jprb,4.7211e-02_jprb,4.4842e-02_jprb,4.1431e-02_jprb,&
 & 3.6822e-02_jprb,3.0426e-02_jprb,2.0117e-02_jprb,1.2493e-01_jprb/)  
kao( :, 1,12, 8) = (/&
 & 1.2968e-02_jprb,1.4613e-02_jprb,1.4518e-02_jprb,1.3965e-02_jprb,1.3108e-02_jprb,1.1965e-02_jprb,&
 & 1.0480e-02_jprb,8.4661e-03_jprb,5.3281e-03_jprb,9.6224e-02_jprb/)  
kao( :, 2,12, 8) = (/&
 & 1.7226e-02_jprb,1.9607e-02_jprb,1.9589e-02_jprb,1.8955e-02_jprb,1.7877e-02_jprb,1.6390e-02_jprb,&
 & 1.4401e-02_jprb,1.1714e-02_jprb,7.6423e-03_jprb,1.0281e-01_jprb/)  
kao( :, 3,12, 8) = (/&
 & 2.2561e-02_jprb,2.5832e-02_jprb,2.5887e-02_jprb,2.5130e-02_jprb,2.3746e-02_jprb,2.1760e-02_jprb,&
 & 1.9184e-02_jprb,1.5701e-02_jprb,1.0359e-02_jprb,1.1042e-01_jprb/)  
kao( :, 4,12, 8) = (/&
 & 2.9208e-02_jprb,3.3517e-02_jprb,3.3592e-02_jprb,3.2561e-02_jprb,3.0751e-02_jprb,2.8221e-02_jprb,&
 & 2.4906e-02_jprb,2.0465e-02_jprb,1.3564e-02_jprb,1.1943e-01_jprb/)  
kao( :, 5,12, 8) = (/&
 & 3.7315e-02_jprb,4.2782e-02_jprb,4.2863e-02_jprb,4.1414e-02_jprb,3.9083e-02_jprb,3.5863e-02_jprb,&
 & 3.1661e-02_jprb,2.6087e-02_jprb,1.7348e-02_jprb,1.2941e-01_jprb/)  
kao( :, 1,13, 8) = (/&
 & 1.1431e-02_jprb,1.2896e-02_jprb,1.2736e-02_jprb,1.2199e-02_jprb,1.1402e-02_jprb,1.0345e-02_jprb,&
 & 9.0003e-03_jprb,7.2287e-03_jprb,4.5824e-03_jprb,8.0519e-02_jprb/)  
kao( :, 2,13, 8) = (/&
 & 1.5206e-02_jprb,1.7258e-02_jprb,1.7158e-02_jprb,1.6539e-02_jprb,1.5531e-02_jprb,1.4140e-02_jprb,&
 & 1.2338e-02_jprb,9.9830e-03_jprb,6.5464e-03_jprb,8.6863e-02_jprb/)  
kao( :, 3,13, 8) = (/&
 & 1.9972e-02_jprb,2.2777e-02_jprb,2.2713e-02_jprb,2.1940e-02_jprb,2.0631e-02_jprb,1.8770e-02_jprb,&
 & 1.6415e-02_jprb,1.3364e-02_jprb,8.8693e-03_jprb,9.4420e-02_jprb/)  
kao( :, 4,13, 8) = (/&
 & 2.5947e-02_jprb,2.9698e-02_jprb,2.9634e-02_jprb,2.8542e-02_jprb,2.6762e-02_jprb,2.4361e-02_jprb,&
 & 2.1338e-02_jprb,1.7424e-02_jprb,1.1633e-02_jprb,1.0329e-01_jprb/)  
kao( :, 5,13, 8) = (/&
 & 3.3342e-02_jprb,3.8082e-02_jprb,3.7942e-02_jprb,3.6482e-02_jprb,3.4168e-02_jprb,3.1080e-02_jprb,&
 & 2.7224e-02_jprb,2.2266e-02_jprb,1.4896e-02_jprb,1.1299e-01_jprb/)  
kao( :, 1, 1, 9) = (/&
 & 3.5399e-01_jprb,3.3121e-01_jprb,3.2486e-01_jprb,3.1880e-01_jprb,3.1822e-01_jprb,3.2442e-01_jprb,&
 & 3.3586e-01_jprb,3.4269e-01_jprb,3.3501e-01_jprb,3.3685e-01_jprb/)  
kao( :, 2, 1, 9) = (/&
 & 4.2651e-01_jprb,4.0055e-01_jprb,3.9461e-01_jprb,3.8890e-01_jprb,3.8920e-01_jprb,3.9613e-01_jprb,&
 & 4.0802e-01_jprb,4.1445e-01_jprb,4.0640e-01_jprb,4.0867e-01_jprb/)  
kao( :, 3, 1, 9) = (/&
 & 5.0539e-01_jprb,4.7639e-01_jprb,4.7090e-01_jprb,4.6538e-01_jprb,4.6724e-01_jprb,4.7472e-01_jprb,&
 & 4.8830e-01_jprb,4.9479e-01_jprb,4.8770e-01_jprb,4.9083e-01_jprb/)  
kao( :, 4, 1, 9) = (/&
 & 5.9058e-01_jprb,5.5850e-01_jprb,5.5373e-01_jprb,5.4899e-01_jprb,5.5264e-01_jprb,5.6233e-01_jprb,&
 & 5.7911e-01_jprb,5.8486e-01_jprb,5.8020e-01_jprb,5.8417e-01_jprb/)  
kao( :, 5, 1, 9) = (/&
 & 6.8144e-01_jprb,6.4618e-01_jprb,6.4280e-01_jprb,6.4028e-01_jprb,6.4693e-01_jprb,6.6026e-01_jprb,&
 & 6.7993e-01_jprb,6.8608e-01_jprb,6.8519e-01_jprb,6.9037e-01_jprb/)  
kao( :, 1, 2, 9) = (/&
 & 3.4190e-01_jprb,3.2327e-01_jprb,3.1819e-01_jprb,3.0936e-01_jprb,3.0384e-01_jprb,3.0263e-01_jprb,&
 & 3.0472e-01_jprb,3.0754e-01_jprb,2.9901e-01_jprb,2.9844e-01_jprb/)  
kao( :, 2, 2, 9) = (/&
 & 4.1493e-01_jprb,3.9389e-01_jprb,3.8895e-01_jprb,3.7913e-01_jprb,3.7292e-01_jprb,3.7132e-01_jprb,&
 & 3.7292e-01_jprb,3.7436e-01_jprb,3.6462e-01_jprb,3.6374e-01_jprb/)  
kao( :, 3, 2, 9) = (/&
 & 4.9524e-01_jprb,4.7144e-01_jprb,4.6681e-01_jprb,4.5556e-01_jprb,4.4901e-01_jprb,4.4730e-01_jprb,&
 & 4.4941e-01_jprb,4.4980e-01_jprb,4.3975e-01_jprb,4.3888e-01_jprb/)  
kao( :, 4, 2, 9) = (/&
 & 5.8258e-01_jprb,5.5620e-01_jprb,5.5130e-01_jprb,5.3974e-01_jprb,5.3286e-01_jprb,5.3221e-01_jprb,&
 & 5.3561e-01_jprb,5.3530e-01_jprb,5.2641e-01_jprb,5.2532e-01_jprb/)  
kao( :, 5, 2, 9) = (/&
 & 6.7549e-01_jprb,6.4700e-01_jprb,6.4191e-01_jprb,6.3134e-01_jprb,6.2562e-01_jprb,6.2644e-01_jprb,&
 & 6.3141e-01_jprb,6.3148e-01_jprb,6.2520e-01_jprb,6.2423e-01_jprb/)  
kao( :, 1, 3, 9) = (/&
 & 3.1322e-01_jprb,2.9905e-01_jprb,2.9475e-01_jprb,2.8714e-01_jprb,2.7777e-01_jprb,2.7056e-01_jprb,&
 & 2.6471e-01_jprb,2.6169e-01_jprb,2.5251e-01_jprb,2.4874e-01_jprb/)  
kao( :, 2, 3, 9) = (/&
 & 3.8433e-01_jprb,3.6852e-01_jprb,3.6478e-01_jprb,3.5517e-01_jprb,3.4410e-01_jprb,3.3552e-01_jprb,&
 & 3.2763e-01_jprb,3.2198e-01_jprb,3.1065e-01_jprb,3.0619e-01_jprb/)  
kao( :, 3, 3, 9) = (/&
 & 4.6279e-01_jprb,4.4538e-01_jprb,4.4243e-01_jprb,4.3036e-01_jprb,4.1731e-01_jprb,4.0795e-01_jprb,&
 & 3.9813e-01_jprb,3.9008e-01_jprb,3.7721e-01_jprb,3.7260e-01_jprb/)  
kao( :, 4, 3, 9) = (/&
 & 5.4926e-01_jprb,5.2996e-01_jprb,5.2724e-01_jprb,5.1320e-01_jprb,4.9840e-01_jprb,4.8894e-01_jprb,&
 & 4.7837e-01_jprb,4.6780e-01_jprb,4.5401e-01_jprb,4.4835e-01_jprb/)  
kao( :, 5, 3, 9) = (/&
 & 6.4194e-01_jprb,6.2152e-01_jprb,6.1862e-01_jprb,6.0327e-01_jprb,5.8767e-01_jprb,5.7864e-01_jprb,&
 & 5.6818e-01_jprb,5.5487e-01_jprb,5.4176e-01_jprb,5.3533e-01_jprb/)  
kao( :, 1, 4, 9) = (/&
 & 2.7768e-01_jprb,2.6760e-01_jprb,2.6572e-01_jprb,2.5980e-01_jprb,2.4896e-01_jprb,2.3795e-01_jprb,&
 & 2.2584e-01_jprb,2.1553e-01_jprb,2.0567e-01_jprb,1.9994e-01_jprb/)  
kao( :, 2, 4, 9) = (/&
 & 3.4628e-01_jprb,3.3518e-01_jprb,3.3312e-01_jprb,3.2573e-01_jprb,3.1238e-01_jprb,2.9848e-01_jprb,&
 & 2.8332e-01_jprb,2.6934e-01_jprb,2.5641e-01_jprb,2.4969e-01_jprb/)  
kao( :, 3, 4, 9) = (/&
 & 4.2166e-01_jprb,4.1018e-01_jprb,4.0846e-01_jprb,3.9896e-01_jprb,3.8288e-01_jprb,3.6617e-01_jprb,&
 & 3.4804e-01_jprb,3.3049e-01_jprb,3.1485e-01_jprb,3.0688e-01_jprb/)  
kao( :, 4, 4, 9) = (/&
 & 5.0480e-01_jprb,4.9294e-01_jprb,4.9184e-01_jprb,4.7995e-01_jprb,4.6126e-01_jprb,4.4207e-01_jprb,&
 & 4.2165e-01_jprb,4.0000e-01_jprb,3.8208e-01_jprb,3.7264e-01_jprb/)  
kao( :, 5, 4, 9) = (/&
 & 5.9516e-01_jprb,5.8326e-01_jprb,5.8244e-01_jprb,5.6852e-01_jprb,5.4774e-01_jprb,5.2760e-01_jprb,&
 & 5.0410e-01_jprb,4.7792e-01_jprb,4.5860e-01_jprb,4.4782e-01_jprb/)  
kao( :, 1, 5, 9) = (/&
 & 2.4131e-01_jprb,2.3501e-01_jprb,2.3520e-01_jprb,2.3089e-01_jprb,2.2183e-01_jprb,2.0721e-01_jprb,&
 & 1.9087e-01_jprb,1.7544e-01_jprb,1.6409e-01_jprb,1.5817e-01_jprb/)  
kao( :, 2, 5, 9) = (/&
 & 3.0553e-01_jprb,2.9936e-01_jprb,2.9956e-01_jprb,2.9368e-01_jprb,2.8148e-01_jprb,2.6374e-01_jprb,&
 & 2.4318e-01_jprb,2.2281e-01_jprb,2.0743e-01_jprb,2.0014e-01_jprb/)  
kao( :, 3, 5, 9) = (/&
 & 3.7703e-01_jprb,3.7157e-01_jprb,3.7167e-01_jprb,3.6419e-01_jprb,3.4859e-01_jprb,3.2739e-01_jprb,&
 & 3.0264e-01_jprb,2.7688e-01_jprb,2.5755e-01_jprb,2.4828e-01_jprb/)  
kao( :, 4, 5, 9) = (/&
 & 4.5610e-01_jprb,4.5131e-01_jprb,4.5213e-01_jprb,4.4247e-01_jprb,4.2387e-01_jprb,3.9882e-01_jprb,&
 & 3.7008e-01_jprb,3.3849e-01_jprb,3.1536e-01_jprb,3.0426e-01_jprb/)  
kao( :, 5, 5, 9) = (/&
 & 5.4247e-01_jprb,5.3886e-01_jprb,5.4021e-01_jprb,5.2840e-01_jprb,5.0753e-01_jprb,4.7901e-01_jprb,&
 & 4.4567e-01_jprb,4.0809e-01_jprb,3.8163e-01_jprb,3.6881e-01_jprb/)  
kao( :, 1, 6, 9) = (/&
 & 2.0298e-01_jprb,2.0025e-01_jprb,2.0213e-01_jprb,1.9982e-01_jprb,1.9212e-01_jprb,1.7691e-01_jprb,&
 & 1.5886e-01_jprb,1.4069e-01_jprb,1.2763e-01_jprb,1.2147e-01_jprb/)  
kao( :, 2, 6, 9) = (/&
 & 2.6157e-01_jprb,2.5976e-01_jprb,2.6209e-01_jprb,2.5832e-01_jprb,2.4798e-01_jprb,2.2871e-01_jprb,&
 & 2.0577e-01_jprb,1.8197e-01_jprb,1.6416e-01_jprb,1.5634e-01_jprb/)  
kao( :, 3, 6, 9) = (/&
 & 3.2801e-01_jprb,3.2761e-01_jprb,3.3023e-01_jprb,3.2484e-01_jprb,3.1114e-01_jprb,2.8803e-01_jprb,&
 & 2.5966e-01_jprb,2.2885e-01_jprb,2.0587e-01_jprb,1.9644e-01_jprb/)  
kao( :, 4, 6, 9) = (/&
 & 4.0207e-01_jprb,4.0351e-01_jprb,4.0622e-01_jprb,3.9903e-01_jprb,3.8234e-01_jprb,3.5465e-01_jprb,&
 & 3.2062e-01_jprb,2.8289e-01_jprb,2.5440e-01_jprb,2.4312e-01_jprb/)  
kao( :, 5, 6, 9) = (/&
 & 4.8336e-01_jprb,4.8697e-01_jprb,4.9003e-01_jprb,4.8114e-01_jprb,4.6185e-01_jprb,4.2928e-01_jprb,&
 & 3.8966e-01_jprb,3.4463e-01_jprb,3.1043e-01_jprb,2.9706e-01_jprb/)  
kao( :, 1, 7, 9) = (/&
 & 1.6688e-01_jprb,1.6702e-01_jprb,1.7031e-01_jprb,1.6921e-01_jprb,1.6199e-01_jprb,1.4897e-01_jprb,&
 & 1.3092e-01_jprb,1.1133e-01_jprb,9.6760e-02_jprb,9.3718e-02_jprb/)  

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


SUBROUTINE part7

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


kao( :, 2, 7, 9) = (/&
 & 2.1882e-01_jprb,2.2087e-01_jprb,2.2486e-01_jprb,2.2286e-01_jprb,2.1335e-01_jprb,1.9615e-01_jprb,&
 & 1.7285e-01_jprb,1.4695e-01_jprb,1.2690e-01_jprb,1.2096e-01_jprb/)  
kao( :, 3, 7, 9) = (/&
 & 2.7888e-01_jprb,2.8306e-01_jprb,2.8777e-01_jprb,2.8469e-01_jprb,2.7204e-01_jprb,2.5033e-01_jprb,&
 & 2.2122e-01_jprb,1.8786e-01_jprb,1.6161e-01_jprb,1.5296e-01_jprb/)  
kao( :, 4, 7, 9) = (/&
 & 3.4680e-01_jprb,3.5385e-01_jprb,3.5881e-01_jprb,3.5420e-01_jprb,3.3854e-01_jprb,3.1188e-01_jprb,&
 & 2.7612e-01_jprb,2.3528e-01_jprb,2.0215e-01_jprb,1.9095e-01_jprb/)  
kao( :, 5, 7, 9) = (/&
 & 4.2205e-01_jprb,4.3215e-01_jprb,4.3759e-01_jprb,4.3127e-01_jprb,4.1273e-01_jprb,3.8116e-01_jprb,&
 & 3.3879e-01_jprb,2.8948e-01_jprb,2.4886e-01_jprb,2.3560e-01_jprb/)  
kao( :, 1, 8, 9) = (/&
 & 1.3459e-01_jprb,1.3692e-01_jprb,1.4080e-01_jprb,1.3971e-01_jprb,1.3347e-01_jprb,1.2262e-01_jprb,&
 & 1.0666e-01_jprb,8.7305e-02_jprb,7.1915e-02_jprb,8.0038e-02_jprb/)  
kao( :, 2, 8, 9) = (/&
 & 1.7963e-01_jprb,1.8442e-01_jprb,1.8954e-01_jprb,1.8806e-01_jprb,1.7951e-01_jprb,1.6497e-01_jprb,&
 & 1.4377e-01_jprb,1.1758e-01_jprb,9.6206e-02_jprb,1.0094e-01_jprb/)  
kao( :, 3, 8, 9) = (/&
 & 2.3266e-01_jprb,2.4033e-01_jprb,2.4672e-01_jprb,2.4454e-01_jprb,2.3290e-01_jprb,2.1424e-01_jprb,&
 & 1.8695e-01_jprb,1.5303e-01_jprb,1.2456e-01_jprb,1.2568e-01_jprb/)  
kao( :, 4, 8, 9) = (/&
 & 2.9355e-01_jprb,3.0495e-01_jprb,3.1213e-01_jprb,3.0852e-01_jprb,2.9407e-01_jprb,2.7020e-01_jprb,&
 & 2.3654e-01_jprb,1.9451e-01_jprb,1.5796e-01_jprb,1.5516e-01_jprb/)  
kao( :, 5, 8, 9) = (/&
 & 3.6186e-01_jprb,3.7725e-01_jprb,3.8522e-01_jprb,3.7996e-01_jprb,3.6242e-01_jprb,3.3355e-01_jprb,&
 & 2.9318e-01_jprb,2.4229e-01_jprb,1.9677e-01_jprb,1.8992e-01_jprb/)  
kao( :, 1, 9, 9) = (/&
 & 1.0631e-01_jprb,1.0993e-01_jprb,1.1355e-01_jprb,1.1237e-01_jprb,1.0701e-01_jprb,9.8207e-02_jprb,&
 & 8.5182e-02_jprb,6.7755e-02_jprb,5.2331e-02_jprb,1.0492e-01_jprb/)  
kao( :, 2, 9, 9) = (/&
 & 1.4454e-01_jprb,1.5090e-01_jprb,1.5590e-01_jprb,1.5444e-01_jprb,1.4727e-01_jprb,1.3526e-01_jprb,&
 & 1.1750e-01_jprb,9.3259e-02_jprb,7.1622e-02_jprb,1.2467e-01_jprb/)  
kao( :, 3, 9, 9) = (/&
 & 1.9019e-01_jprb,2.0011e-01_jprb,2.0653e-01_jprb,2.0466e-01_jprb,1.9486e-01_jprb,1.7904e-01_jprb,&
 & 1.5563e-01_jprb,1.2364e-01_jprb,9.4415e-02_jprb,1.4740e-01_jprb/)  
kao( :, 4, 9, 9) = (/&
 & 2.4347e-01_jprb,2.5775e-01_jprb,2.6549e-01_jprb,2.6241e-01_jprb,2.4987e-01_jprb,2.2949e-01_jprb,&
 & 1.9969e-01_jprb,1.5939e-01_jprb,1.2136e-01_jprb,1.7369e-01_jprb/)  
kao( :, 5, 9, 9) = (/&
 & 3.0422e-01_jprb,3.2317e-01_jprb,3.3203e-01_jprb,3.2777e-01_jprb,3.1197e-01_jprb,2.8664e-01_jprb,&
 & 2.5051e-01_jprb,2.0084e-01_jprb,1.5296e-01_jprb,2.0398e-01_jprb/)  
kao( :, 1,10, 9) = (/&
 & 8.4350e-02_jprb,8.8815e-02_jprb,9.2007e-02_jprb,9.0712e-02_jprb,8.6235e-02_jprb,7.8834e-02_jprb,&
 & 6.8251e-02_jprb,5.3494e-02_jprb,3.8569e-02_jprb,2.8448e-01_jprb/)  
kao( :, 2,10, 9) = (/&
 & 1.1655e-01_jprb,1.2396e-01_jprb,1.2864e-01_jprb,1.2700e-01_jprb,1.2091e-01_jprb,1.1076e-01_jprb,&
 & 9.6175e-02_jprb,7.5206e-02_jprb,5.3741e-02_jprb,3.1183e-01_jprb/)  
kao( :, 3,10, 9) = (/&
 & 1.5575e-01_jprb,1.6688e-01_jprb,1.7302e-01_jprb,1.7096e-01_jprb,1.6280e-01_jprb,1.4927e-01_jprb,&
 & 1.2964e-01_jprb,1.0128e-01_jprb,7.1998e-02_jprb,3.4035e-01_jprb/)  
kao( :, 4,10, 9) = (/&
 & 2.0199e-01_jprb,2.1771e-01_jprb,2.2539e-01_jprb,2.2239e-01_jprb,2.1182e-01_jprb,1.9426e-01_jprb,&
 & 1.6870e-01_jprb,1.3220e-01_jprb,9.3820e-02_jprb,3.7022e-01_jprb/)  
kao( :, 5,10, 9) = (/&
 & 2.5543e-01_jprb,2.7602e-01_jprb,2.8512e-01_jprb,2.8125e-01_jprb,2.6776e-01_jprb,2.4558e-01_jprb,&
 & 2.1379e-01_jprb,1.6843e-01_jprb,1.1967e-01_jprb,4.0133e-01_jprb/)  
kao( :, 1,11, 9) = (/&
 & 7.7305e-02_jprb,8.3512e-02_jprb,8.6558e-02_jprb,8.5115e-02_jprb,8.0759e-02_jprb,7.3668e-02_jprb,&
 & 6.3729e-02_jprb,4.9798e-02_jprb,3.3279e-02_jprb,4.2331e-01_jprb/)  
kao( :, 2,11, 9) = (/&
 & 1.0674e-01_jprb,1.1631e-01_jprb,1.2074e-01_jprb,1.1897e-01_jprb,1.1306e-01_jprb,1.0338e-01_jprb,&
 & 8.9693e-02_jprb,6.9947e-02_jprb,4.6392e-02_jprb,4.5759e-01_jprb/)  
kao( :, 3,11, 9) = (/&
 & 1.4252e-01_jprb,1.5630e-01_jprb,1.6230e-01_jprb,1.5989e-01_jprb,1.5215e-01_jprb,1.3931e-01_jprb,&
 & 1.2082e-01_jprb,9.4229e-02_jprb,6.2207e-02_jprb,4.9301e-01_jprb/)  
kao( :, 4,11, 9) = (/&
 & 1.8495e-01_jprb,2.0344e-01_jprb,2.1113e-01_jprb,2.0801e-01_jprb,1.9807e-01_jprb,1.8125e-01_jprb,&
 & 1.5734e-01_jprb,1.2303e-01_jprb,8.1307e-02_jprb,5.3012e-01_jprb/)  
kao( :, 5,11, 9) = (/&
 & 2.3411e-01_jprb,2.5783e-01_jprb,2.6690e-01_jprb,2.6303e-01_jprb,2.5035e-01_jprb,2.2944e-01_jprb,&
 & 1.9943e-01_jprb,1.5658e-01_jprb,1.0397e-01_jprb,5.6789e-01_jprb/)  
kao( :, 1,12, 9) = (/&
 & 7.0108e-02_jprb,7.7427e-02_jprb,8.0063e-02_jprb,7.8695e-02_jprb,7.4412e-02_jprb,6.7798e-02_jprb,&
 & 5.8710e-02_jprb,4.5826e-02_jprb,2.8701e-02_jprb,4.8793e-01_jprb/)  
kao( :, 2,12, 9) = (/&
 & 9.6572e-02_jprb,1.0765e-01_jprb,1.1154e-01_jprb,1.0976e-01_jprb,1.0403e-01_jprb,9.5053e-02_jprb,&
 & 8.2414e-02_jprb,6.4355e-02_jprb,4.0085e-02_jprb,5.2480e-01_jprb/)  
kao( :, 3,12, 9) = (/&
 & 1.2890e-01_jprb,1.4436e-01_jprb,1.4960e-01_jprb,1.4739e-01_jprb,1.3992e-01_jprb,1.2801e-01_jprb,&
 & 1.1096e-01_jprb,8.6644e-02_jprb,5.3975e-02_jprb,5.6251e-01_jprb/)  
kao( :, 4,12, 9) = (/&
 & 1.6737e-01_jprb,1.8778e-01_jprb,1.9430e-01_jprb,1.9165e-01_jprb,1.8208e-01_jprb,1.6659e-01_jprb,&
 & 1.4450e-01_jprb,1.1307e-01_jprb,7.0696e-02_jprb,6.0183e-01_jprb/)  
kao( :, 5,12, 9) = (/&
 & 2.1186e-01_jprb,2.3792e-01_jprb,2.4587e-01_jprb,2.4233e-01_jprb,2.3021e-01_jprb,2.1086e-01_jprb,&
 & 1.8327e-01_jprb,1.4386e-01_jprb,9.0292e-02_jprb,6.4163e-01_jprb/)  
kao( :, 1,13, 9) = (/&
 & 6.2750e-02_jprb,7.0678e-02_jprb,7.2850e-02_jprb,7.1358e-02_jprb,6.7441e-02_jprb,6.1433e-02_jprb,&
 & 5.3185e-02_jprb,4.1505e-02_jprb,2.4806e-02_jprb,4.4700e-01_jprb/)  
kao( :, 2,13, 9) = (/&
 & 8.6316e-02_jprb,9.8143e-02_jprb,1.0134e-01_jprb,9.9447e-02_jprb,9.4210e-02_jprb,8.6014e-02_jprb,&
 & 7.4526e-02_jprb,5.8273e-02_jprb,3.4743e-02_jprb,4.8103e-01_jprb/)  
kao( :, 3,13, 9) = (/&
 & 1.1529e-01_jprb,1.3156e-01_jprb,1.3579e-01_jprb,1.3346e-01_jprb,1.2666e-01_jprb,1.1573e-01_jprb,&
 & 1.0031e-01_jprb,7.8511e-02_jprb,4.6928e-02_jprb,5.1606e-01_jprb/)  
kao( :, 4,13, 9) = (/&
 & 1.4976e-01_jprb,1.7104e-01_jprb,1.7643e-01_jprb,1.7358e-01_jprb,1.6473e-01_jprb,1.5058e-01_jprb,&
 & 1.3067e-01_jprb,1.0249e-01_jprb,6.1551e-02_jprb,5.5224e-01_jprb/)  
kao( :, 5,13, 9) = (/&
 & 1.8964e-01_jprb,2.1656e-01_jprb,2.2339e-01_jprb,2.1970e-01_jprb,2.0856e-01_jprb,1.9074e-01_jprb,&
 & 1.6575e-01_jprb,1.3031e-01_jprb,7.8382e-02_jprb,5.8913e-01_jprb/)  
kao( :, 1, 1,10) = (/&
 & 6.1867e-01_jprb,5.7630e-01_jprb,6.0305e-01_jprb,6.9456e-01_jprb,7.7261e-01_jprb,8.1005e-01_jprb,&
 & 8.2424e-01_jprb,7.8487e-01_jprb,7.9716e-01_jprb,8.1097e-01_jprb/)  
kao( :, 2, 1,10) = (/&
 & 7.5538e-01_jprb,7.0706e-01_jprb,7.4825e-01_jprb,8.6573e-01_jprb,9.5133e-01_jprb,9.9496e-01_jprb,&
 & 1.0144e+00_jprb,9.4349e-01_jprb,9.7510e-01_jprb,9.8557e-01_jprb/)  
kao( :, 3, 1,10) = (/&
 & 9.0753e-01_jprb,8.5431e-01_jprb,9.0954e-01_jprb,1.0504e+00_jprb,1.1439e+00_jprb,1.1961e+00_jprb,&
 & 1.2138e+00_jprb,1.1038e+00_jprb,1.1635e+00_jprb,1.1729e+00_jprb/)  
kao( :, 4, 1,10) = (/&
 & 1.0717e+00_jprb,1.0134e+00_jprb,1.0876e+00_jprb,1.2471e+00_jprb,1.3505e+00_jprb,1.4049e+00_jprb,&
 & 1.4219e+00_jprb,1.2915e+00_jprb,1.3878e+00_jprb,1.3991e+00_jprb/)  
kao( :, 5, 1,10) = (/&
 & 1.2427e+00_jprb,1.1827e+00_jprb,1.2833e+00_jprb,1.4504e+00_jprb,1.5635e+00_jprb,1.6298e+00_jprb,&
 & 1.6597e+00_jprb,1.4857e+00_jprb,1.6414e+00_jprb,1.6460e+00_jprb/)  
kao( :, 1, 2,10) = (/&
 & 6.4321e-01_jprb,5.8696e-01_jprb,5.8230e-01_jprb,6.5619e-01_jprb,7.1556e-01_jprb,7.4170e-01_jprb,&
 & 7.6071e-01_jprb,7.3912e-01_jprb,7.4532e-01_jprb,7.5850e-01_jprb/)  
kao( :, 2, 2,10) = (/&
 & 7.8984e-01_jprb,7.2453e-01_jprb,7.3316e-01_jprb,8.2574e-01_jprb,8.9339e-01_jprb,9.2578e-01_jprb,&
 & 9.3666e-01_jprb,8.9172e-01_jprb,9.0627e-01_jprb,9.2412e-01_jprb/)  
kao( :, 3, 2,10) = (/&
 & 9.4869e-01_jprb,8.7312e-01_jprb,8.9992e-01_jprb,1.0108e+00_jprb,1.0906e+00_jprb,1.1228e+00_jprb,&
 & 1.1184e+00_jprb,1.0532e+00_jprb,1.0816e+00_jprb,1.1050e+00_jprb/)  
kao( :, 4, 2,10) = (/&
 & 1.1182e+00_jprb,1.0333e+00_jprb,1.0816e+00_jprb,1.2099e+00_jprb,1.2991e+00_jprb,1.3295e+00_jprb,&
 & 1.3183e+00_jprb,1.2305e+00_jprb,1.2865e+00_jprb,1.3109e+00_jprb/)  
kao( :, 5, 2,10) = (/&
 & 1.2953e+00_jprb,1.2046e+00_jprb,1.2743e+00_jprb,1.4197e+00_jprb,1.5179e+00_jprb,1.5565e+00_jprb,&
 & 1.5463e+00_jprb,1.4061e+00_jprb,1.5050e+00_jprb,1.5282e+00_jprb/)  
kao( :, 1, 3,10) = (/&
 & 6.2757e-01_jprb,5.7473e-01_jprb,5.5914e-01_jprb,5.8172e-01_jprb,6.2887e-01_jprb,6.5014e-01_jprb,&
 & 6.7802e-01_jprb,6.5904e-01_jprb,6.5934e-01_jprb,6.7295e-01_jprb/)  
kao( :, 2, 3,10) = (/&
 & 7.8418e-01_jprb,7.1588e-01_jprb,7.0607e-01_jprb,7.4238e-01_jprb,8.0014e-01_jprb,8.1822e-01_jprb,&
 & 8.4016e-01_jprb,8.0936e-01_jprb,8.1484e-01_jprb,8.2805e-01_jprb/)  
kao( :, 3, 3,10) = (/&
 & 9.6014e-01_jprb,8.7612e-01_jprb,8.6845e-01_jprb,9.2232e-01_jprb,9.9214e-01_jprb,9.9810e-01_jprb,&
 & 1.0104e+00_jprb,9.7306e-01_jprb,9.8869e-01_jprb,1.0030e+00_jprb/)  
kao( :, 4, 3,10) = (/&
 & 1.1436e+00_jprb,1.0500e+00_jprb,1.0473e+00_jprb,1.1216e+00_jprb,1.1992e+00_jprb,1.1909e+00_jprb,&
 & 1.1979e+00_jprb,1.1493e+00_jprb,1.1843e+00_jprb,1.2028e+00_jprb/)  
kao( :, 5, 3,10) = (/&
 & 1.3363e+00_jprb,1.2288e+00_jprb,1.2400e+00_jprb,1.3328e+00_jprb,1.4189e+00_jprb,1.4085e+00_jprb,&
 & 1.4054e+00_jprb,1.3326e+00_jprb,1.3952e+00_jprb,1.4190e+00_jprb/)  
kao( :, 1, 4,10) = (/&
 & 6.0902e-01_jprb,5.5865e-01_jprb,5.2875e-01_jprb,5.1792e-01_jprb,5.4518e-01_jprb,5.6325e-01_jprb,&
 & 5.8877e-01_jprb,5.8387e-01_jprb,5.8206e-01_jprb,5.9308e-01_jprb/)  
kao( :, 2, 4,10) = (/&
 & 7.6140e-01_jprb,6.9912e-01_jprb,6.7757e-01_jprb,6.6690e-01_jprb,7.0327e-01_jprb,7.2305e-01_jprb,&
 & 7.4172e-01_jprb,7.2030e-01_jprb,7.2068e-01_jprb,7.3161e-01_jprb/)  
kao( :, 3, 4,10) = (/&
 & 9.4002e-01_jprb,8.6365e-01_jprb,8.4366e-01_jprb,8.3795e-01_jprb,8.8109e-01_jprb,8.9279e-01_jprb,&
 & 9.0652e-01_jprb,8.7018e-01_jprb,8.7595e-01_jprb,8.8773e-01_jprb/)  
kao( :, 4, 4,10) = (/&
 & 1.1361e+00_jprb,1.0471e+00_jprb,1.0239e+00_jprb,1.0291e+00_jprb,1.0729e+00_jprb,1.0769e+00_jprb,&
 & 1.0898e+00_jprb,1.0370e+00_jprb,1.0554e+00_jprb,1.0680e+00_jprb/)  
kao( :, 5, 4,10) = (/&
 & 1.3459e+00_jprb,1.2415e+00_jprb,1.2200e+00_jprb,1.2343e+00_jprb,1.2811e+00_jprb,1.2812e+00_jprb,&
 & 1.2941e+00_jprb,1.2225e+00_jprb,1.2598e+00_jprb,1.2702e+00_jprb/)  
kao( :, 1, 5,10) = (/&
 & 5.7515e-01_jprb,5.3232e-01_jprb,5.0391e-01_jprb,4.7978e-01_jprb,4.6984e-01_jprb,4.8839e-01_jprb,&
 & 5.1587e-01_jprb,5.0590e-01_jprb,5.0049e-01_jprb,4.9518e-01_jprb/)  
kao( :, 2, 5,10) = (/&
 & 7.3128e-01_jprb,6.7406e-01_jprb,6.4811e-01_jprb,6.2049e-01_jprb,6.1868e-01_jprb,6.3401e-01_jprb,&
 & 6.5439e-01_jprb,6.3488e-01_jprb,6.3015e-01_jprb,6.2410e-01_jprb/)  
kao( :, 3, 5,10) = (/&
 & 9.0920e-01_jprb,8.3759e-01_jprb,8.1835e-01_jprb,7.8435e-01_jprb,7.8487e-01_jprb,7.9695e-01_jprb,&
 & 8.0516e-01_jprb,7.7727e-01_jprb,7.7504e-01_jprb,7.7636e-01_jprb/)  
kao( :, 4, 5,10) = (/&
 & 1.1099e+00_jprb,1.0245e+00_jprb,1.0070e+00_jprb,9.7052e-01_jprb,9.6348e-01_jprb,9.7780e-01_jprb,&
 & 9.7649e-01_jprb,9.3660e-01_jprb,9.3973e-01_jprb,9.4451e-01_jprb/)  
kao( :, 5, 5,10) = (/&
 & 1.3305e+00_jprb,1.2272e+00_jprb,1.2112e+00_jprb,1.1732e+00_jprb,1.1594e+00_jprb,1.1784e+00_jprb,&
 & 1.1704e+00_jprb,1.1112e+00_jprb,1.1263e+00_jprb,1.1272e+00_jprb/)  
kao( :, 1, 6,10) = (/&
 & 5.3624e-01_jprb,4.9966e-01_jprb,4.7124e-01_jprb,4.4396e-01_jprb,4.1309e-01_jprb,4.1799e-01_jprb,&
 & 4.3204e-01_jprb,4.1689e-01_jprb,4.0796e-01_jprb,4.0296e-01_jprb/)  
kao( :, 2, 6,10) = (/&
 & 6.9086e-01_jprb,6.4214e-01_jprb,6.1471e-01_jprb,5.8168e-01_jprb,5.4576e-01_jprb,5.5331e-01_jprb,&
 & 5.6106e-01_jprb,5.3207e-01_jprb,5.1983e-01_jprb,5.1381e-01_jprb/)  
kao( :, 3, 6,10) = (/&
 & 8.6785e-01_jprb,8.0700e-01_jprb,7.8156e-01_jprb,7.4169e-01_jprb,7.0281e-01_jprb,7.0090e-01_jprb,&
 & 7.0317e-01_jprb,6.6880e-01_jprb,6.5685e-01_jprb,6.4884e-01_jprb/)  
kao( :, 4, 6,10) = (/&
 & 1.0625e+00_jprb,9.9150e-01_jprb,9.7284e-01_jprb,9.2583e-01_jprb,8.7592e-01_jprb,8.6864e-01_jprb,&
 & 8.6733e-01_jprb,8.2238e-01_jprb,8.1245e-01_jprb,8.0011e-01_jprb/)  
kao( :, 5, 6,10) = (/&
 & 1.2823e+00_jprb,1.1975e+00_jprb,1.1856e+00_jprb,1.1255e+00_jprb,1.0659e+00_jprb,1.0612e+00_jprb,&
 & 1.0498e+00_jprb,9.8546e-01_jprb,9.8371e-01_jprb,9.6751e-01_jprb/)  
kao( :, 1, 7,10) = (/&
 & 4.8822e-01_jprb,4.5431e-01_jprb,4.2346e-01_jprb,3.9680e-01_jprb,3.7415e-01_jprb,3.5071e-01_jprb,&
 & 3.5118e-01_jprb,3.4152e-01_jprb,3.3119e-01_jprb,3.2558e-01_jprb/)  
kao( :, 2, 7,10) = (/&
 & 6.4341e-01_jprb,5.9836e-01_jprb,5.6565e-01_jprb,5.3167e-01_jprb,5.0027e-01_jprb,4.7116e-01_jprb,&
 & 4.6350e-01_jprb,4.4353e-01_jprb,4.2884e-01_jprb,4.2493e-01_jprb/)  
kao( :, 3, 7,10) = (/&
 & 8.2158e-01_jprb,7.6606e-01_jprb,7.3098e-01_jprb,6.8632e-01_jprb,6.4732e-01_jprb,6.1167e-01_jprb,&
 & 5.9535e-01_jprb,5.6548e-01_jprb,5.4739e-01_jprb,5.4288e-01_jprb/)  
kao( :, 4, 7,10) = (/&
 & 1.0179e+00_jprb,9.5156e-01_jprb,9.1785e-01_jprb,8.6567e-01_jprb,8.1404e-01_jprb,7.7261e-01_jprb,&
 & 7.5332e-01_jprb,7.0277e-01_jprb,6.8164e-01_jprb,6.6834e-01_jprb/)  
kao( :, 5, 7,10) = (/&
 & 1.2332e+00_jprb,1.1568e+00_jprb,1.1270e+00_jprb,1.0643e+00_jprb,1.0019e+00_jprb,9.5490e-01_jprb,&
 & 9.2760e-01_jprb,8.5293e-01_jprb,8.3234e-01_jprb,8.1269e-01_jprb/)  
kao( :, 1, 8,10) = (/&
 & 4.2698e-01_jprb,3.9591e-01_jprb,3.6905e-01_jprb,3.5247e-01_jprb,3.3247e-01_jprb,3.0233e-01_jprb,&
 & 2.8539e-01_jprb,2.7613e-01_jprb,2.6380e-01_jprb,2.5566e-01_jprb/)  
kao( :, 2, 8,10) = (/&
 & 5.7792e-01_jprb,5.3599e-01_jprb,5.0504e-01_jprb,4.7965e-01_jprb,4.5454e-01_jprb,4.1047e-01_jprb,&
 & 3.8401e-01_jprb,3.6795e-01_jprb,3.5022e-01_jprb,3.4085e-01_jprb/)  
kao( :, 3, 8,10) = (/&
 & 7.5312e-01_jprb,7.0208e-01_jprb,6.6433e-01_jprb,6.2807e-01_jprb,5.9800e-01_jprb,5.3750e-01_jprb,&
 & 5.0237e-01_jprb,4.7916e-01_jprb,4.5629e-01_jprb,4.4355e-01_jprb/)  
kao( :, 4, 8,10) = (/&
 & 9.4927e-01_jprb,8.8669e-01_jprb,8.4547e-01_jprb,8.0194e-01_jprb,7.5725e-01_jprb,6.9205e-01_jprb,&
 & 6.4511e-01_jprb,6.0026e-01_jprb,5.7127e-01_jprb,5.5530e-01_jprb/)  
kao( :, 5, 8,10) = (/&
 & 1.1639e+00_jprb,1.0911e+00_jprb,1.0454e+00_jprb,9.9552e-01_jprb,9.4083e-01_jprb,8.6800e-01_jprb,&
 & 8.0258e-01_jprb,7.3309e-01_jprb,6.9987e-01_jprb,6.8251e-01_jprb/)  
kao( :, 1, 9,10) = (/&
 & 3.5900e-01_jprb,3.3445e-01_jprb,3.1730e-01_jprb,3.0609e-01_jprb,2.8916e-01_jprb,2.6120e-01_jprb,&
 & 2.3361e-01_jprb,2.1576e-01_jprb,2.0240e-01_jprb,3.1625e-01_jprb/)  
kao( :, 2, 9,10) = (/&
 & 4.9875e-01_jprb,4.6530e-01_jprb,4.4401e-01_jprb,4.2786e-01_jprb,4.0336e-01_jprb,3.6326e-01_jprb,&
 & 3.2063e-01_jprb,2.9583e-01_jprb,2.7549e-01_jprb,3.9596e-01_jprb/)  
kao( :, 3, 9,10) = (/&
 & 6.6489e-01_jprb,6.2199e-01_jprb,5.9558e-01_jprb,5.7021e-01_jprb,5.3875e-01_jprb,4.8355e-01_jprb,&
 & 4.2692e-01_jprb,3.9415e-01_jprb,3.6637e-01_jprb,4.8553e-01_jprb/)  
kao( :, 4, 9,10) = (/&
 & 8.5340e-01_jprb,8.0059e-01_jprb,7.6830e-01_jprb,7.3710e-01_jprb,6.9306e-01_jprb,6.2454e-01_jprb,&
 & 5.5697e-01_jprb,5.0419e-01_jprb,4.6742e-01_jprb,5.7732e-01_jprb/)  
kao( :, 5, 9,10) = (/&
 & 1.0646e+00_jprb,1.0028e+00_jprb,9.6218e-01_jprb,9.2180e-01_jprb,8.7012e-01_jprb,7.9202e-01_jprb,&
 & 6.9796e-01_jprb,6.2710e-01_jprb,5.8174e-01_jprb,6.5582e-01_jprb/)  
kao( :, 1,10,10) = (/&
 & 3.0304e-01_jprb,2.8397e-01_jprb,2.7440e-01_jprb,2.6814e-01_jprb,2.5119e-01_jprb,2.2864e-01_jprb,&
 & 1.9712e-01_jprb,1.7067e-01_jprb,1.5439e-01_jprb,6.7616e-01_jprb/)  
kao( :, 2,10,10) = (/&
 & 4.3039e-01_jprb,4.0463e-01_jprb,3.9135e-01_jprb,3.8116e-01_jprb,3.5873e-01_jprb,3.2509e-01_jprb,&
 & 2.7758e-01_jprb,2.3881e-01_jprb,2.1708e-01_jprb,7.4040e-01_jprb/)  
kao( :, 3,10,10) = (/&
 & 5.8308e-01_jprb,5.5089e-01_jprb,5.3392e-01_jprb,5.1881e-01_jprb,4.8588e-01_jprb,4.3969e-01_jprb,&
 & 3.7659e-01_jprb,3.2471e-01_jprb,2.9357e-01_jprb,8.1103e-01_jprb/)  
kao( :, 4,10,10) = (/&
 & 7.6072e-01_jprb,7.2098e-01_jprb,6.9990e-01_jprb,6.8047e-01_jprb,6.3309e-01_jprb,5.7383e-01_jprb,&
 & 4.9589e-01_jprb,4.2336e-01_jprb,3.8001e-01_jprb,8.9328e-01_jprb/)  
kao( :, 5,10,10) = (/&
 & 9.6027e-01_jprb,9.1775e-01_jprb,8.8924e-01_jprb,8.5893e-01_jprb,8.0372e-01_jprb,7.2911e-01_jprb,&
 & 6.3058e-01_jprb,5.3610e-01_jprb,4.7858e-01_jprb,1.0024e+00_jprb/)  
kao( :, 1,11,10) = (/&
 & 2.9953e-01_jprb,2.8331e-01_jprb,2.7926e-01_jprb,2.7321e-01_jprb,2.5698e-01_jprb,2.3318e-01_jprb,&
 & 1.9872e-01_jprb,1.5868e-01_jprb,1.3779e-01_jprb,1.1107e+00_jprb/)  
kao( :, 2,11,10) = (/&
 & 4.2474e-01_jprb,4.0404e-01_jprb,3.9781e-01_jprb,3.8780e-01_jprb,3.6438e-01_jprb,3.3087e-01_jprb,&
 & 2.8103e-01_jprb,2.2386e-01_jprb,1.9434e-01_jprb,1.2029e+00_jprb/)  
kao( :, 3,11,10) = (/&
 & 5.7442e-01_jprb,5.4924e-01_jprb,5.3961e-01_jprb,5.2667e-01_jprb,4.9259e-01_jprb,4.4653e-01_jprb,&
 & 3.8245e-01_jprb,3.0341e-01_jprb,2.6142e-01_jprb,1.2915e+00_jprb/)  
kao( :, 4,11,10) = (/&
 & 7.4813e-01_jprb,7.2159e-01_jprb,7.0602e-01_jprb,6.8759e-01_jprb,6.4029e-01_jprb,5.8462e-01_jprb,&
 & 4.9983e-01_jprb,3.9642e-01_jprb,3.3795e-01_jprb,1.3704e+00_jprb/)  
kao( :, 5,11,10) = (/&
 & 9.4256e-01_jprb,9.1581e-01_jprb,8.9684e-01_jprb,8.6915e-01_jprb,8.1278e-01_jprb,7.3805e-01_jprb,&
 & 6.3353e-01_jprb,5.0310e-01_jprb,4.2644e-01_jprb,1.4638e+00_jprb/)  
kao( :, 1,12,10) = (/&
 & 2.9002e-01_jprb,2.7890e-01_jprb,2.8045e-01_jprb,2.7244e-01_jprb,2.5769e-01_jprb,2.3303e-01_jprb,&
 & 1.9729e-01_jprb,1.5119e-01_jprb,1.2251e-01_jprb,1.4129e+00_jprb/)  
kao( :, 2,12,10) = (/&
 & 4.1026e-01_jprb,3.9679e-01_jprb,3.9830e-01_jprb,3.8652e-01_jprb,3.6420e-01_jprb,3.2847e-01_jprb,&
 & 2.8036e-01_jprb,2.1376e-01_jprb,1.7058e-01_jprb,1.5197e+00_jprb/)  
kao( :, 3,12,10) = (/&
 & 5.5455e-01_jprb,5.4038e-01_jprb,5.4011e-01_jprb,5.2208e-01_jprb,4.9107e-01_jprb,4.4447e-01_jprb,&
 & 3.8090e-01_jprb,2.8868e-01_jprb,2.2751e-01_jprb,1.6225e+00_jprb/)  
kao( :, 4,12,10) = (/&
 & 7.2014e-01_jprb,7.0695e-01_jprb,7.0633e-01_jprb,6.7903e-01_jprb,6.3973e-01_jprb,5.8007e-01_jprb,&
 & 4.9576e-01_jprb,3.7656e-01_jprb,2.9460e-01_jprb,1.7134e+00_jprb/)  
kao( :, 5,12,10) = (/&
 & 9.0944e-01_jprb,8.9423e-01_jprb,8.9075e-01_jprb,8.5941e-01_jprb,8.0946e-01_jprb,7.3161e-01_jprb,&
 & 6.2652e-01_jprb,4.7880e-01_jprb,3.7532e-01_jprb,1.8224e+00_jprb/)  
kao( :, 1,13,10) = (/&
 & 2.7340e-01_jprb,2.7076e-01_jprb,2.7526e-01_jprb,2.6770e-01_jprb,2.5179e-01_jprb,2.2675e-01_jprb,&
 & 1.9245e-01_jprb,1.4682e-01_jprb,1.0619e-01_jprb,1.4210e+00_jprb/)  
kao( :, 2,13,10) = (/&
 & 3.8641e-01_jprb,3.8425e-01_jprb,3.8930e-01_jprb,3.7816e-01_jprb,3.5501e-01_jprb,3.1994e-01_jprb,&
 & 2.7350e-01_jprb,2.0671e-01_jprb,1.4761e-01_jprb,1.5251e+00_jprb/)  
kao( :, 3,13,10) = (/&
 & 5.2089e-01_jprb,5.2113e-01_jprb,5.2738e-01_jprb,5.0973e-01_jprb,4.7827e-01_jprb,4.3346e-01_jprb,&
 & 3.6991e-01_jprb,2.7849e-01_jprb,1.9608e-01_jprb,1.6238e+00_jprb/)  

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


SUBROUTINE part8

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


kao( :, 4,13,10) = (/&
 & 6.7786e-01_jprb,6.7938e-01_jprb,6.8608e-01_jprb,6.6233e-01_jprb,6.2421e-01_jprb,5.6410e-01_jprb,&
 & 4.8140e-01_jprb,3.6259e-01_jprb,2.5473e-01_jprb,1.7230e+00_jprb/)  
kao( :, 5,13,10) = (/&
 & 8.5711e-01_jprb,8.6068e-01_jprb,8.6472e-01_jprb,8.3617e-01_jprb,7.8602e-01_jprb,7.1217e-01_jprb,&
 & 6.0760e-01_jprb,4.5966e-01_jprb,3.2905e-01_jprb,1.8345e+00_jprb/)  
kao( :, 1, 1,11) = (/&
 & 9.4159e-01_jprb,8.6910e-01_jprb,9.4939e-01_jprb,1.0309e+00_jprb,1.0971e+00_jprb,1.1597e+00_jprb,&
 & 1.1573e+00_jprb,1.0198e+00_jprb,1.1259e+00_jprb,1.1444e+00_jprb/)  
kao( :, 2, 1,11) = (/&
 & 1.1816e+00_jprb,1.0903e+00_jprb,1.1681e+00_jprb,1.2491e+00_jprb,1.3524e+00_jprb,1.4252e+00_jprb,&
 & 1.4017e+00_jprb,1.2548e+00_jprb,1.3885e+00_jprb,1.4161e+00_jprb/)  
kao( :, 3, 1,11) = (/&
 & 1.4457e+00_jprb,1.3338e+00_jprb,1.4098e+00_jprb,1.4943e+00_jprb,1.6257e+00_jprb,1.6966e+00_jprb,&
 & 1.6615e+00_jprb,1.5145e+00_jprb,1.6823e+00_jprb,1.7160e+00_jprb/)  
kao( :, 4, 1,11) = (/&
 & 1.7261e+00_jprb,1.5936e+00_jprb,1.6676e+00_jprb,1.7640e+00_jprb,1.9034e+00_jprb,1.9816e+00_jprb,&
 & 1.9375e+00_jprb,1.7904e+00_jprb,1.9915e+00_jprb,2.0290e+00_jprb/)  
kao( :, 5, 1,11) = (/&
 & 2.0222e+00_jprb,1.8664e+00_jprb,1.9402e+00_jprb,2.0588e+00_jprb,2.1886e+00_jprb,2.2719e+00_jprb,&
 & 2.2171e+00_jprb,2.1130e+00_jprb,2.3320e+00_jprb,2.3861e+00_jprb/)  
kao( :, 1, 2,11) = (/&
 & 8.8414e-01_jprb,8.3470e-01_jprb,9.0122e-01_jprb,9.8198e-01_jprb,1.0450e+00_jprb,1.0902e+00_jprb,&
 & 1.0770e+00_jprb,9.4855e-01_jprb,1.0386e+00_jprb,1.0581e+00_jprb/)  
kao( :, 2, 2,11) = (/&
 & 1.1143e+00_jprb,1.0550e+00_jprb,1.1151e+00_jprb,1.2176e+00_jprb,1.3030e+00_jprb,1.3437e+00_jprb,&
 & 1.3207e+00_jprb,1.1746e+00_jprb,1.3022e+00_jprb,1.3229e+00_jprb/)  
kao( :, 3, 2,11) = (/&
 & 1.3705e+00_jprb,1.3001e+00_jprb,1.3557e+00_jprb,1.4797e+00_jprb,1.5774e+00_jprb,1.6133e+00_jprb,&
 & 1.5892e+00_jprb,1.4167e+00_jprb,1.5912e+00_jprb,1.6096e+00_jprb/)  
kao( :, 4, 2,11) = (/&
 & 1.6529e+00_jprb,1.5667e+00_jprb,1.6252e+00_jprb,1.7602e+00_jprb,1.8638e+00_jprb,1.8995e+00_jprb,&
 & 1.8687e+00_jprb,1.6782e+00_jprb,1.8967e+00_jprb,1.9189e+00_jprb/)  
kao( :, 5, 2,11) = (/&
 & 1.9543e+00_jprb,1.8492e+00_jprb,1.9198e+00_jprb,2.0574e+00_jprb,2.1583e+00_jprb,2.1944e+00_jprb,&
 & 2.1594e+00_jprb,1.9939e+00_jprb,2.2472e+00_jprb,2.2791e+00_jprb/)  
kao( :, 1, 3,11) = (/&
 & 8.1869e-01_jprb,7.7023e-01_jprb,8.2109e-01_jprb,8.8336e-01_jprb,9.2805e-01_jprb,9.6128e-01_jprb,&
 & 9.4856e-01_jprb,8.5843e-01_jprb,9.1983e-01_jprb,9.4743e-01_jprb/)  
kao( :, 2, 3,11) = (/&
 & 1.0389e+00_jprb,9.8615e-01_jprb,1.0345e+00_jprb,1.1256e+00_jprb,1.1752e+00_jprb,1.2020e+00_jprb,&
 & 1.1857e+00_jprb,1.0608e+00_jprb,1.1599e+00_jprb,1.1854e+00_jprb/)  
kao( :, 3, 3,11) = (/&
 & 1.2826e+00_jprb,1.2250e+00_jprb,1.2747e+00_jprb,1.3968e+00_jprb,1.4383e+00_jprb,1.4671e+00_jprb,&
 & 1.4487e+00_jprb,1.2721e+00_jprb,1.4175e+00_jprb,1.4350e+00_jprb/)  
kao( :, 4, 3,11) = (/&
 & 1.5564e+00_jprb,1.4865e+00_jprb,1.5447e+00_jprb,1.6881e+00_jprb,1.7201e+00_jprb,1.7557e+00_jprb,&
 & 1.7225e+00_jprb,1.5035e+00_jprb,1.6929e+00_jprb,1.7100e+00_jprb/)  
kao( :, 5, 3,11) = (/&
 & 1.8539e+00_jprb,1.7704e+00_jprb,1.8370e+00_jprb,1.9889e+00_jprb,2.0183e+00_jprb,2.0511e+00_jprb,&
 & 2.0075e+00_jprb,1.7816e+00_jprb,2.0126e+00_jprb,2.0331e+00_jprb/)  
kao( :, 1, 4,11) = (/&
 & 7.6497e-01_jprb,7.1076e-01_jprb,7.3295e-01_jprb,7.7006e-01_jprb,7.9642e-01_jprb,8.2481e-01_jprb,&
 & 8.2608e-01_jprb,7.5993e-01_jprb,8.0777e-01_jprb,8.2848e-01_jprb/)  
kao( :, 2, 4,11) = (/&
 & 9.8352e-01_jprb,9.1857e-01_jprb,9.4611e-01_jprb,1.0073e+00_jprb,1.0282e+00_jprb,1.0497e+00_jprb,&
 & 1.0467e+00_jprb,9.5389e-01_jprb,1.0316e+00_jprb,1.0517e+00_jprb/)  
kao( :, 3, 4,11) = (/&
 & 1.2292e+00_jprb,1.1512e+00_jprb,1.1846e+00_jprb,1.2709e+00_jprb,1.2824e+00_jprb,1.3065e+00_jprb,&
 & 1.2899e+00_jprb,1.1574e+00_jprb,1.2650e+00_jprb,1.2904e+00_jprb/)  
kao( :, 4, 4,11) = (/&
 & 1.5012e+00_jprb,1.4093e+00_jprb,1.4510e+00_jprb,1.5565e+00_jprb,1.5637e+00_jprb,1.5870e+00_jprb,&
 & 1.5399e+00_jprb,1.3774e+00_jprb,1.5183e+00_jprb,1.5518e+00_jprb/)  
kao( :, 5, 4,11) = (/&
 & 1.7934e+00_jprb,1.6886e+00_jprb,1.7434e+00_jprb,1.8620e+00_jprb,1.8667e+00_jprb,1.8779e+00_jprb,&
 & 1.8058e+00_jprb,1.6243e+00_jprb,1.8061e+00_jprb,1.8476e+00_jprb/)  
kao( :, 1, 5,11) = (/&
 & 7.4548e-01_jprb,6.7814e-01_jprb,6.5476e-01_jprb,6.5948e-01_jprb,6.7934e-01_jprb,7.0788e-01_jprb,&
 & 7.1745e-01_jprb,6.7353e-01_jprb,7.0461e-01_jprb,7.3099e-01_jprb/)  
kao( :, 2, 5,11) = (/&
 & 9.5969e-01_jprb,8.7825e-01_jprb,8.6017e-01_jprb,8.8155e-01_jprb,8.9239e-01_jprb,9.1670e-01_jprb,&
 & 9.2708e-01_jprb,8.5000e-01_jprb,9.0728e-01_jprb,9.3032e-01_jprb/)  
kao( :, 3, 5,11) = (/&
 & 1.2058e+00_jprb,1.1099e+00_jprb,1.0960e+00_jprb,1.1330e+00_jprb,1.1377e+00_jprb,1.1558e+00_jprb,&
 & 1.1565e+00_jprb,1.0416e+00_jprb,1.1278e+00_jprb,1.1476e+00_jprb/)  
kao( :, 4, 5,11) = (/&
 & 1.4810e+00_jprb,1.3671e+00_jprb,1.3639e+00_jprb,1.4095e+00_jprb,1.4162e+00_jprb,1.4159e+00_jprb,&
 & 1.3960e+00_jprb,1.2531e+00_jprb,1.3726e+00_jprb,1.3940e+00_jprb/)  
kao( :, 5, 5,11) = (/&
 & 1.7798e+00_jprb,1.6471e+00_jprb,1.6584e+00_jprb,1.7100e+00_jprb,1.7173e+00_jprb,1.6890e+00_jprb,&
 & 1.6525e+00_jprb,1.4879e+00_jprb,1.6471e+00_jprb,1.6748e+00_jprb/)  
kao( :, 1, 6,11) = (/&
 & 7.0565e-01_jprb,6.4191e-01_jprb,5.9174e-01_jprb,5.6344e-01_jprb,5.7413e-01_jprb,6.0216e-01_jprb,&
 & 6.1735e-01_jprb,5.8882e-01_jprb,6.1391e-01_jprb,6.2532e-01_jprb/)  
kao( :, 2, 6,11) = (/&
 & 9.2376e-01_jprb,8.4064e-01_jprb,7.8353e-01_jprb,7.6203e-01_jprb,7.6995e-01_jprb,7.9470e-01_jprb,&
 & 8.0774e-01_jprb,7.5710e-01_jprb,7.9836e-01_jprb,8.1211e-01_jprb/)  
kao( :, 3, 6,11) = (/&
 & 1.1735e+00_jprb,1.0693e+00_jprb,1.0163e+00_jprb,9.9460e-01_jprb,1.0005e+00_jprb,1.0222e+00_jprb,&
 & 1.0221e+00_jprb,9.3247e-01_jprb,9.9633e-01_jprb,1.0096e+00_jprb/)  
kao( :, 4, 6,11) = (/&
 & 1.4611e+00_jprb,1.3294e+00_jprb,1.2780e+00_jprb,1.2558e+00_jprb,1.2632e+00_jprb,1.2674e+00_jprb,&
 & 1.2528e+00_jprb,1.1244e+00_jprb,1.2175e+00_jprb,1.2339e+00_jprb/)  
kao( :, 5, 6,11) = (/&
 & 1.7762e+00_jprb,1.6171e+00_jprb,1.5645e+00_jprb,1.5462e+00_jprb,1.5483e+00_jprb,1.5299e+00_jprb,&
 & 1.5045e+00_jprb,1.3389e+00_jprb,1.4702e+00_jprb,1.4860e+00_jprb/)  
kao( :, 1, 7,11) = (/&
 & 6.4397e-01_jprb,5.8848e-01_jprb,5.4164e-01_jprb,5.0438e-01_jprb,4.8904e-01_jprb,5.1205e-01_jprb,&
 & 5.2888e-01_jprb,4.9547e-01_jprb,5.1219e-01_jprb,5.1357e-01_jprb/)  
kao( :, 2, 7,11) = (/&
 & 8.6014e-01_jprb,7.8541e-01_jprb,7.2738e-01_jprb,6.8109e-01_jprb,6.6447e-01_jprb,6.8735e-01_jprb,&
 & 7.0610e-01_jprb,6.4880e-01_jprb,6.8044e-01_jprb,6.7457e-01_jprb/)  
kao( :, 3, 7,11) = (/&
 & 1.1052e+00_jprb,1.0089e+00_jprb,9.5053e-01_jprb,8.9433e-01_jprb,8.7834e-01_jprb,8.9637e-01_jprb,&
 & 9.0307e-01_jprb,8.1519e-01_jprb,8.6489e-01_jprb,8.5495e-01_jprb/)  
kao( :, 4, 7,11) = (/&
 & 1.3894e+00_jprb,1.2661e+00_jprb,1.2117e+00_jprb,1.1436e+00_jprb,1.1239e+00_jprb,1.1302e+00_jprb,&
 & 1.1159e+00_jprb,1.0009e+00_jprb,1.0705e+00_jprb,1.0686e+00_jprb/)  
kao( :, 5, 7,11) = (/&
 & 1.7112e+00_jprb,1.5598e+00_jprb,1.4999e+00_jprb,1.4251e+00_jprb,1.3915e+00_jprb,1.3874e+00_jprb,&
 & 1.3517e+00_jprb,1.2058e+00_jprb,1.3049e+00_jprb,1.3059e+00_jprb/)  
kao( :, 1, 8,11) = (/&
 & 5.7879e-01_jprb,5.3274e-01_jprb,4.8973e-01_jprb,4.5630e-01_jprb,4.3269e-01_jprb,4.3284e-01_jprb,&
 & 4.3930e-01_jprb,4.0946e-01_jprb,4.1860e-01_jprb,4.1655e-01_jprb/)  
kao( :, 2, 8,11) = (/&
 & 7.8913e-01_jprb,7.2614e-01_jprb,6.7155e-01_jprb,6.2927e-01_jprb,5.8919e-01_jprb,5.9377e-01_jprb,&
 & 5.9849e-01_jprb,5.4629e-01_jprb,5.6116e-01_jprb,5.5524e-01_jprb/)  
kao( :, 3, 8,11) = (/&
 & 1.0315e+00_jprb,9.4848e-01_jprb,8.8923e-01_jprb,8.3184e-01_jprb,7.8312e-01_jprb,7.8922e-01_jprb,&
 & 7.8217e-01_jprb,6.9528e-01_jprb,7.2027e-01_jprb,7.1126e-01_jprb/)  
kao( :, 4, 8,11) = (/&
 & 1.3089e+00_jprb,1.2030e+00_jprb,1.1421e+00_jprb,1.0710e+00_jprb,1.0184e+00_jprb,1.0078e+00_jprb,&
 & 9.8494e-01_jprb,8.6981e-01_jprb,9.1055e-01_jprb,9.0117e-01_jprb/)  
kao( :, 5, 8,11) = (/&
 & 1.6233e+00_jprb,1.4930e+00_jprb,1.4334e+00_jprb,1.3459e+00_jprb,1.2797e+00_jprb,1.2512e+00_jprb,&
 & 1.2155e+00_jprb,1.0647e+00_jprb,1.1303e+00_jprb,1.1143e+00_jprb/)  
kao( :, 1, 9,11) = (/&
 & 5.0872e-01_jprb,4.7000e-01_jprb,4.3189e-01_jprb,4.0703e-01_jprb,3.8347e-01_jprb,3.6637e-01_jprb,&
 & 3.5722e-01_jprb,3.3322e-01_jprb,3.3519e-01_jprb,4.9629e-01_jprb/)  
kao( :, 2, 9,11) = (/&
 & 7.1032e-01_jprb,6.5670e-01_jprb,6.0796e-01_jprb,5.7264e-01_jprb,5.3661e-01_jprb,5.0689e-01_jprb,&
 & 4.9599e-01_jprb,4.5581e-01_jprb,4.5901e-01_jprb,6.1504e-01_jprb/)  
kao( :, 3, 9,11) = (/&
 & 9.4725e-01_jprb,8.7492e-01_jprb,8.2052e-01_jprb,7.7219e-01_jprb,7.2220e-01_jprb,6.8379e-01_jprb,&
 & 6.5839e-01_jprb,5.9352e-01_jprb,5.9853e-01_jprb,7.1363e-01_jprb/)  
kao( :, 4, 9,11) = (/&
 & 1.2212e+00_jprb,1.1285e+00_jprb,1.0680e+00_jprb,1.0029e+00_jprb,9.4208e-01_jprb,8.9072e-01_jprb,&
 & 8.4577e-01_jprb,7.5557e-01_jprb,7.6527e-01_jprb,8.0522e-01_jprb/)  
kao( :, 5, 9,11) = (/&
 & 1.5263e+00_jprb,1.4126e+00_jprb,1.3499e+00_jprb,1.2718e+00_jprb,1.1921e+00_jprb,1.1220e+00_jprb,&
 & 1.0685e+00_jprb,9.3213e-01_jprb,9.5775e-01_jprb,9.4303e-01_jprb/)  
kao( :, 1,10,11) = (/&
 & 4.4834e-01_jprb,4.1596e-01_jprb,3.8519e-01_jprb,3.6738e-01_jprb,3.4707e-01_jprb,3.1667e-01_jprb,&
 & 2.9935e-01_jprb,2.7308e-01_jprb,2.6993e-01_jprb,8.6202e-01_jprb/)  
kao( :, 2,10,11) = (/&
 & 6.4018e-01_jprb,5.9476e-01_jprb,5.5452e-01_jprb,5.2742e-01_jprb,4.9444e-01_jprb,4.5039e-01_jprb,&
 & 4.1885e-01_jprb,3.8235e-01_jprb,3.7606e-01_jprb,1.0050e+00_jprb/)  
kao( :, 3,10,11) = (/&
 & 8.6941e-01_jprb,8.0719e-01_jprb,7.6128e-01_jprb,7.2083e-01_jprb,6.7778e-01_jprb,6.1132e-01_jprb,&
 & 5.6485e-01_jprb,5.0977e-01_jprb,5.0052e-01_jprb,1.1879e+00_jprb/)  
kao( :, 4,10,11) = (/&
 & 1.1374e+00_jprb,1.0578e+00_jprb,1.0048e+00_jprb,9.4669e-01_jprb,8.9485e-01_jprb,8.0262e-01_jprb,&
 & 7.3730e-01_jprb,6.6231e-01_jprb,6.5210e-01_jprb,1.3926e+00_jprb/)  
kao( :, 5,10,11) = (/&
 & 1.4379e+00_jprb,1.3398e+00_jprb,1.2800e+00_jprb,1.2099e+00_jprb,1.1369e+00_jprb,1.0290e+00_jprb,&
 & 9.4239e-01_jprb,8.2621e-01_jprb,8.2033e-01_jprb,1.5987e+00_jprb/)  
kao( :, 1,11,11) = (/&
 & 4.6437e-01_jprb,4.3195e-01_jprb,4.0640e-01_jprb,3.9083e-01_jprb,3.6759e-01_jprb,3.3095e-01_jprb,&
 & 2.9621e-01_jprb,2.6059e-01_jprb,2.4898e-01_jprb,1.4424e+00_jprb/)  
kao( :, 2,11,11) = (/&
 & 6.5995e-01_jprb,6.1504e-01_jprb,5.8354e-01_jprb,5.6109e-01_jprb,5.2448e-01_jprb,4.7076e-01_jprb,&
 & 4.1510e-01_jprb,3.6345e-01_jprb,3.4571e-01_jprb,1.5679e+00_jprb/)  
kao( :, 3,11,11) = (/&
 & 8.9627e-01_jprb,8.3726e-01_jprb,7.9810e-01_jprb,7.6313e-01_jprb,7.1561e-01_jprb,6.3926e-01_jprb,&
 & 5.5804e-01_jprb,4.8959e-01_jprb,4.6565e-01_jprb,1.7093e+00_jprb/)  
kao( :, 4,11,11) = (/&
 & 1.1695e+00_jprb,1.0949e+00_jprb,1.0494e+00_jprb,9.9979e-01_jprb,9.3792e-01_jprb,8.3384e-01_jprb,&
 & 7.3304e-01_jprb,6.3611e-01_jprb,6.0648e-01_jprb,1.8687e+00_jprb/)  
kao( :, 5,11,11) = (/&
 & 1.4756e+00_jprb,1.3865e+00_jprb,1.3306e+00_jprb,1.2700e+00_jprb,1.1860e+00_jprb,1.0648e+00_jprb,&
 & 9.3310e-01_jprb,7.9796e-01_jprb,7.6114e-01_jprb,2.0433e+00_jprb/)  
kao( :, 1,12,11) = (/&
 & 4.6883e-01_jprb,4.3992e-01_jprb,4.2363e-01_jprb,4.0991e-01_jprb,3.8267e-01_jprb,3.4548e-01_jprb,&
 & 2.9549e-01_jprb,2.4606e-01_jprb,2.2406e-01_jprb,1.9161e+00_jprb/)  
kao( :, 2,12,11) = (/&
 & 6.6619e-01_jprb,6.2643e-01_jprb,6.0394e-01_jprb,5.8416e-01_jprb,5.4621e-01_jprb,4.9020e-01_jprb,&
 & 4.1568e-01_jprb,3.4416e-01_jprb,3.1499e-01_jprb,2.0541e+00_jprb/)  
kao( :, 3,12,11) = (/&
 & 9.0247e-01_jprb,8.5182e-01_jprb,8.2328e-01_jprb,7.9362e-01_jprb,7.4057e-01_jprb,6.6249e-01_jprb,&
 & 5.6167e-01_jprb,4.6621e-01_jprb,4.2576e-01_jprb,2.2005e+00_jprb/)  
kao( :, 4,12,11) = (/&
 & 1.1754e+00_jprb,1.1141e+00_jprb,1.0763e+00_jprb,1.0393e+00_jprb,9.6314e-01_jprb,8.6349e-01_jprb,&
 & 7.3733e-01_jprb,6.0555e-01_jprb,5.5108e-01_jprb,2.3506e+00_jprb/)  
kao( :, 5,12,11) = (/&
 & 1.4816e+00_jprb,1.4118e+00_jprb,1.3630e+00_jprb,1.3109e+00_jprb,1.2174e+00_jprb,1.0945e+00_jprb,&
 & 9.3470e-01_jprb,7.6327e-01_jprb,6.9458e-01_jprb,2.4817e+00_jprb/)  
kao( :, 1,13,11) = (/&
 & 4.6581e-01_jprb,4.3907e-01_jprb,4.3125e-01_jprb,4.2012e-01_jprb,3.9142e-01_jprb,3.5288e-01_jprb,&
 & 2.9764e-01_jprb,2.3165e-01_jprb,2.0022e-01_jprb,2.0038e+00_jprb/)  
kao( :, 2,13,11) = (/&
 & 6.6014e-01_jprb,6.2525e-01_jprb,6.1363e-01_jprb,5.9556e-01_jprb,5.5565e-01_jprb,4.9958e-01_jprb,&
 & 4.1989e-01_jprb,3.2603e-01_jprb,2.8204e-01_jprb,2.1506e+00_jprb/)  
kao( :, 3,13,11) = (/&
 & 8.9162e-01_jprb,8.4866e-01_jprb,8.3231e-01_jprb,8.0747e-01_jprb,7.5010e-01_jprb,6.7287e-01_jprb,&
 & 5.6952e-01_jprb,4.4032e-01_jprb,3.7944e-01_jprb,2.2963e+00_jprb/)  
kao( :, 4,13,11) = (/&
 & 1.1582e+00_jprb,1.1105e+00_jprb,1.0865e+00_jprb,1.0526e+00_jprb,9.7320e-01_jprb,8.7688e-01_jprb,&
 & 7.4169e-01_jprb,5.7254e-01_jprb,4.9090e-01_jprb,2.4264e+00_jprb/)  
kao( :, 5,13,11) = (/&
 & 1.4557e+00_jprb,1.4054e+00_jprb,1.3756e+00_jprb,1.3241e+00_jprb,1.2283e+00_jprb,1.1037e+00_jprb,&
 & 9.3580e-01_jprb,7.2342e-01_jprb,6.1924e-01_jprb,2.5526e+00_jprb/)  
kao( :, 1, 1,12) = (/&
 & 1.9899e+00_jprb,1.7416e+00_jprb,1.6557e+00_jprb,1.6626e+00_jprb,1.6292e+00_jprb,1.6186e+00_jprb,&
 & 1.5516e+00_jprb,1.5111e+00_jprb,1.6515e+00_jprb,1.6999e+00_jprb/)  
kao( :, 2, 1,12) = (/&
 & 2.4167e+00_jprb,2.1150e+00_jprb,2.0285e+00_jprb,2.0154e+00_jprb,1.9446e+00_jprb,1.9378e+00_jprb,&
 & 1.8912e+00_jprb,1.8727e+00_jprb,2.0572e+00_jprb,2.1137e+00_jprb/)  
kao( :, 3, 1,12) = (/&
 & 2.8678e+00_jprb,2.5098e+00_jprb,2.4251e+00_jprb,2.3840e+00_jprb,2.2898e+00_jprb,2.2925e+00_jprb,&
 & 2.2262e+00_jprb,2.2528e+00_jprb,2.4748e+00_jprb,2.5402e+00_jprb/)  
kao( :, 4, 1,12) = (/&
 & 3.3334e+00_jprb,2.9172e+00_jprb,2.8340e+00_jprb,2.7633e+00_jprb,2.6747e+00_jprb,2.6799e+00_jprb,&
 & 2.5511e+00_jprb,2.6575e+00_jprb,2.9171e+00_jprb,2.9951e+00_jprb/)  
kao( :, 5, 1,12) = (/&
 & 3.8070e+00_jprb,3.3317e+00_jprb,3.2431e+00_jprb,3.1434e+00_jprb,3.0844e+00_jprb,3.0767e+00_jprb,&
 & 2.8871e+00_jprb,3.0851e+00_jprb,3.3768e+00_jprb,3.4700e+00_jprb/)  
kao( :, 1, 2,12) = (/&
 & 1.8020e+00_jprb,1.5771e+00_jprb,1.5658e+00_jprb,1.5529e+00_jprb,1.5678e+00_jprb,1.5609e+00_jprb,&
 & 1.5068e+00_jprb,1.4322e+00_jprb,1.5794e+00_jprb,1.6265e+00_jprb/)  
kao( :, 2, 2,12) = (/&
 & 2.2244e+00_jprb,1.9467e+00_jprb,1.9376e+00_jprb,1.8878e+00_jprb,1.8907e+00_jprb,1.9156e+00_jprb,&
 & 1.8451e+00_jprb,1.7806e+00_jprb,1.9775e+00_jprb,2.0248e+00_jprb/)  
kao( :, 3, 2,12) = (/&
 & 2.6777e+00_jprb,2.3433e+00_jprb,2.3279e+00_jprb,2.2466e+00_jprb,2.2434e+00_jprb,2.3061e+00_jprb,&
 & 2.1731e+00_jprb,2.1601e+00_jprb,2.3971e+00_jprb,2.4544e+00_jprb/)  
kao( :, 4, 2,12) = (/&
 & 3.1544e+00_jprb,2.7605e+00_jprb,2.7326e+00_jprb,2.6320e+00_jprb,2.6342e+00_jprb,2.7059e+00_jprb,&
 & 2.5082e+00_jprb,2.5770e+00_jprb,2.8498e+00_jprb,2.9233e+00_jprb/)  
kao( :, 5, 2,12) = (/&
 & 3.6408e+00_jprb,3.1864e+00_jprb,3.1392e+00_jprb,3.0321e+00_jprb,3.0540e+00_jprb,3.0950e+00_jprb,&
 & 2.8509e+00_jprb,3.0202e+00_jprb,3.3350e+00_jprb,3.4273e+00_jprb/)  
kao( :, 1, 3,12) = (/&
 & 1.5649e+00_jprb,1.3732e+00_jprb,1.3826e+00_jprb,1.4020e+00_jprb,1.4318e+00_jprb,1.4266e+00_jprb,&
 & 1.3676e+00_jprb,1.2621e+00_jprb,1.4113e+00_jprb,1.4411e+00_jprb/)  
kao( :, 2, 3,12) = (/&
 & 1.9750e+00_jprb,1.7323e+00_jprb,1.7348e+00_jprb,1.7212e+00_jprb,1.7704e+00_jprb,1.7925e+00_jprb,&
 & 1.6949e+00_jprb,1.5960e+00_jprb,1.7832e+00_jprb,1.8209e+00_jprb/)  
kao( :, 3, 3,12) = (/&
 & 2.4222e+00_jprb,2.1256e+00_jprb,2.1157e+00_jprb,2.0688e+00_jprb,2.1464e+00_jprb,2.1852e+00_jprb,&
 & 2.0239e+00_jprb,1.9726e+00_jprb,2.1958e+00_jprb,2.2498e+00_jprb/)  
kao( :, 4, 3,12) = (/&
 & 2.9000e+00_jprb,2.5481e+00_jprb,2.5206e+00_jprb,2.4500e+00_jprb,2.5548e+00_jprb,2.5853e+00_jprb,&
 & 2.3675e+00_jprb,2.3891e+00_jprb,2.6536e+00_jprb,2.7238e+00_jprb/)  
kao( :, 5, 3,12) = (/&
 & 3.3931e+00_jprb,2.9865e+00_jprb,2.9396e+00_jprb,2.8624e+00_jprb,2.9741e+00_jprb,2.9949e+00_jprb,&
 & 2.7166e+00_jprb,2.8252e+00_jprb,3.1477e+00_jprb,3.2225e+00_jprb/)  
kao( :, 1, 4,12) = (/&
 & 1.3280e+00_jprb,1.1786e+00_jprb,1.2003e+00_jprb,1.2384e+00_jprb,1.2621e+00_jprb,1.2623e+00_jprb,&
 & 1.2074e+00_jprb,1.0954e+00_jprb,1.2178e+00_jprb,1.2519e+00_jprb/)  
kao( :, 2, 4,12) = (/&
 & 1.7214e+00_jprb,1.5303e+00_jprb,1.5296e+00_jprb,1.5581e+00_jprb,1.6045e+00_jprb,1.6160e+00_jprb,&
 & 1.5191e+00_jprb,1.4004e+00_jprb,1.5599e+00_jprb,1.5995e+00_jprb/)  
kao( :, 3, 4,12) = (/&
 & 2.1531e+00_jprb,1.9184e+00_jprb,1.8960e+00_jprb,1.9073e+00_jprb,1.9909e+00_jprb,1.9956e+00_jprb,&
 & 1.8466e+00_jprb,1.7529e+00_jprb,1.9597e+00_jprb,2.0020e+00_jprb/)  
kao( :, 4, 4,12) = (/&
 & 2.6259e+00_jprb,2.3421e+00_jprb,2.3006e+00_jprb,2.2911e+00_jprb,2.4098e+00_jprb,2.3862e+00_jprb,&
 & 2.2059e+00_jprb,2.1477e+00_jprb,2.4083e+00_jprb,2.4533e+00_jprb/)  
kao( :, 5, 4,12) = (/&
 & 3.1312e+00_jprb,2.7951e+00_jprb,2.7289e+00_jprb,2.7098e+00_jprb,2.8440e+00_jprb,2.7955e+00_jprb,&
 & 2.5674e+00_jprb,2.5718e+00_jprb,2.8862e+00_jprb,2.9375e+00_jprb/)  
kao( :, 1, 5,12) = (/&
 & 1.1161e+00_jprb,1.0073e+00_jprb,1.0475e+00_jprb,1.0704e+00_jprb,1.0924e+00_jprb,1.0965e+00_jprb,&
 & 1.0516e+00_jprb,9.4881e-01_jprb,1.0568e+00_jprb,1.0851e+00_jprb/)  
kao( :, 2, 5,12) = (/&
 & 1.4852e+00_jprb,1.3439e+00_jprb,1.3607e+00_jprb,1.3892e+00_jprb,1.4288e+00_jprb,1.4308e+00_jprb,&
 & 1.3421e+00_jprb,1.2297e+00_jprb,1.3696e+00_jprb,1.4061e+00_jprb/)  
kao( :, 3, 5,12) = (/&
 & 1.9072e+00_jprb,1.7266e+00_jprb,1.7136e+00_jprb,1.7495e+00_jprb,1.8113e+00_jprb,1.7903e+00_jprb,&
 & 1.6625e+00_jprb,1.5561e+00_jprb,1.7354e+00_jprb,1.7786e+00_jprb/)  
kao( :, 4, 5,12) = (/&
 & 2.3754e+00_jprb,2.1543e+00_jprb,2.1024e+00_jprb,2.1512e+00_jprb,2.2237e+00_jprb,2.1735e+00_jprb,&
 & 2.0175e+00_jprb,1.9176e+00_jprb,2.1504e+00_jprb,2.1913e+00_jprb/)  
kao( :, 5, 5,12) = (/&
 & 2.8766e+00_jprb,2.6154e+00_jprb,2.5264e+00_jprb,2.5896e+00_jprb,2.6493e+00_jprb,2.5886e+00_jprb,&
 & 2.3776e+00_jprb,2.3037e+00_jprb,2.5969e+00_jprb,2.6316e+00_jprb/)  
kao( :, 1, 6,12) = (/&
 & 9.4985e-01_jprb,8.5933e-01_jprb,8.8898e-01_jprb,9.0232e-01_jprb,9.2354e-01_jprb,9.3066e-01_jprb,&
 & 9.0486e-01_jprb,8.1739e-01_jprb,9.0706e-01_jprb,9.3532e-01_jprb/)  
kao( :, 2, 6,12) = (/&
 & 1.2834e+00_jprb,1.1690e+00_jprb,1.1908e+00_jprb,1.2086e+00_jprb,1.2415e+00_jprb,1.2368e+00_jprb,&
 & 1.1756e+00_jprb,1.0742e+00_jprb,1.1928e+00_jprb,1.2288e+00_jprb/)  
kao( :, 3, 6,12) = (/&
 & 1.6799e+00_jprb,1.5378e+00_jprb,1.5358e+00_jprb,1.5673e+00_jprb,1.6035e+00_jprb,1.5726e+00_jprb,&
 & 1.4795e+00_jprb,1.3798e+00_jprb,1.5315e+00_jprb,1.5776e+00_jprb/)  
kao( :, 4, 6,12) = (/&
 & 2.1238e+00_jprb,1.9529e+00_jprb,1.9235e+00_jprb,1.9758e+00_jprb,1.9970e+00_jprb,1.9496e+00_jprb,&
 & 1.8190e+00_jprb,1.7092e+00_jprb,1.9137e+00_jprb,1.9536e+00_jprb/)  
kao( :, 5, 6,12) = (/&
 & 2.6095e+00_jprb,2.4084e+00_jprb,2.3509e+00_jprb,2.4228e+00_jprb,2.4180e+00_jprb,2.3618e+00_jprb,&
 & 2.1597e+00_jprb,2.0675e+00_jprb,2.3214e+00_jprb,2.3618e+00_jprb/)  

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


SUBROUTINE part9

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


kao( :, 1, 7,12) = (/&
 & 8.4812e-01_jprb,7.6841e-01_jprb,7.5326e-01_jprb,7.5035e-01_jprb,7.7118e-01_jprb,7.8872e-01_jprb,&
 & 7.7183e-01_jprb,7.0585e-01_jprb,7.7946e-01_jprb,8.0795e-01_jprb/)  
kao( :, 2, 7,12) = (/&
 & 1.1465e+00_jprb,1.0445e+00_jprb,1.0290e+00_jprb,1.0370e+00_jprb,1.0598e+00_jprb,1.0683e+00_jprb,&
 & 1.0242e+00_jprb,9.3963e-01_jprb,1.0386e+00_jprb,1.0754e+00_jprb/)  
kao( :, 3, 7,12) = (/&
 & 1.5193e+00_jprb,1.3894e+00_jprb,1.3649e+00_jprb,1.3853e+00_jprb,1.3982e+00_jprb,1.3813e+00_jprb,&
 & 1.3178e+00_jprb,1.2173e+00_jprb,1.3509e+00_jprb,1.3914e+00_jprb/)  
kao( :, 4, 7,12) = (/&
 & 1.9518e+00_jprb,1.7884e+00_jprb,1.7513e+00_jprb,1.7865e+00_jprb,1.7771e+00_jprb,1.7370e+00_jprb,&
 & 1.6446e+00_jprb,1.5222e+00_jprb,1.7063e+00_jprb,1.7391e+00_jprb/)  
kao( :, 5, 7,12) = (/&
 & 2.4259e+00_jprb,2.2279e+00_jprb,2.1794e+00_jprb,2.2290e+00_jprb,2.1962e+00_jprb,2.1299e+00_jprb,&
 & 1.9788e+00_jprb,1.8585e+00_jprb,2.0857e+00_jprb,2.1225e+00_jprb/)  
kao( :, 1, 8,12) = (/&
 & 7.7841e-01_jprb,7.0711e-01_jprb,6.6522e-01_jprb,6.3606e-01_jprb,6.4760e-01_jprb,6.6713e-01_jprb,&
 & 6.6148e-01_jprb,6.0390e-01_jprb,6.6973e-01_jprb,6.8843e-01_jprb/)  
kao( :, 2, 8,12) = (/&
 & 1.0658e+00_jprb,9.6636e-01_jprb,9.1583e-01_jprb,8.8699e-01_jprb,9.0848e-01_jprb,9.1965e-01_jprb,&
 & 8.9372e-01_jprb,8.1955e-01_jprb,9.1141e-01_jprb,9.3497e-01_jprb/)  
kao( :, 3, 8,12) = (/&
 & 1.4137e+00_jprb,1.2836e+00_jprb,1.2307e+00_jprb,1.2115e+00_jprb,1.2232e+00_jprb,1.2116e+00_jprb,&
 & 1.1659e+00_jprb,1.0732e+00_jprb,1.1969e+00_jprb,1.2259e+00_jprb/)  
kao( :, 4, 8,12) = (/&
 & 1.8330e+00_jprb,1.6670e+00_jprb,1.6047e+00_jprb,1.5956e+00_jprb,1.5811e+00_jprb,1.5515e+00_jprb,&
 & 1.4752e+00_jprb,1.3507e+00_jprb,1.5186e+00_jprb,1.5425e+00_jprb/)  
kao( :, 5, 8,12) = (/&
 & 2.3049e+00_jprb,2.1036e+00_jprb,2.0278e+00_jprb,2.0220e+00_jprb,1.9855e+00_jprb,1.9308e+00_jprb,&
 & 1.8019e+00_jprb,1.6605e+00_jprb,1.8705e+00_jprb,1.8963e+00_jprb/)  
kao( :, 1, 9,12) = (/&
 & 7.0912e-01_jprb,6.4469e-01_jprb,5.9363e-01_jprb,5.5627e-01_jprb,5.5384e-01_jprb,5.6186e-01_jprb,&
 & 5.5927e-01_jprb,5.0354e-01_jprb,5.6125e-01_jprb,7.4969e-01_jprb/)  
kao( :, 2, 9,12) = (/&
 & 9.9527e-01_jprb,9.0550e-01_jprb,8.3442e-01_jprb,7.8264e-01_jprb,7.7752e-01_jprb,7.8969e-01_jprb,&
 & 7.7692e-01_jprb,6.9354e-01_jprb,7.7793e-01_jprb,8.7043e-01_jprb/)  
kao( :, 3, 9,12) = (/&
 & 1.3412e+00_jprb,1.2190e+00_jprb,1.1268e+00_jprb,1.0743e+00_jprb,1.0606e+00_jprb,1.0614e+00_jprb,&
 & 1.0350e+00_jprb,9.2237e-01_jprb,1.0409e+00_jprb,1.0573e+00_jprb/)  
kao( :, 4, 9,12) = (/&
 & 1.7493e+00_jprb,1.5874e+00_jprb,1.4863e+00_jprb,1.4310e+00_jprb,1.3986e+00_jprb,1.3843e+00_jprb,&
 & 1.3254e+00_jprb,1.1771e+00_jprb,1.3374e+00_jprb,1.3371e+00_jprb/)  
kao( :, 5, 9,12) = (/&
 & 2.2176e+00_jprb,2.0127e+00_jprb,1.9126e+00_jprb,1.8371e+00_jprb,1.7903e+00_jprb,1.7504e+00_jprb,&
 & 1.6358e+00_jprb,1.4630e+00_jprb,1.6600e+00_jprb,1.6679e+00_jprb/)  
kao( :, 1,10,12) = (/&
 & 6.5376e-01_jprb,5.9649e-01_jprb,5.4382e-01_jprb,5.0392e-01_jprb,4.9222e-01_jprb,4.9094e-01_jprb,&
 & 4.7672e-01_jprb,4.1966e-01_jprb,4.6921e-01_jprb,1.3769e+00_jprb/)  
kao( :, 2,10,12) = (/&
 & 9.3800e-01_jprb,8.5670e-01_jprb,7.8367e-01_jprb,7.2595e-01_jprb,6.9805e-01_jprb,6.9533e-01_jprb,&
 & 6.7619e-01_jprb,5.9132e-01_jprb,6.6160e-01_jprb,1.6706e+00_jprb/)  
kao( :, 3,10,12) = (/&
 & 1.2854e+00_jprb,1.1741e+00_jprb,1.0774e+00_jprb,1.0008e+00_jprb,9.5668e-01_jprb,9.5165e-01_jprb,&
 & 9.1656e-01_jprb,7.9224e-01_jprb,8.9510e-01_jprb,1.9785e+00_jprb/)  
kao( :, 4,10,12) = (/&
 & 1.6921e+00_jprb,1.5448e+00_jprb,1.4301e+00_jprb,1.3361e+00_jprb,1.2735e+00_jprb,1.2587e+00_jprb,&
 & 1.1957e+00_jprb,1.0181e+00_jprb,1.1609e+00_jprb,2.2894e+00_jprb/)  
kao( :, 5,10,12) = (/&
 & 2.1576e+00_jprb,1.9664e+00_jprb,1.8494e+00_jprb,1.7300e+00_jprb,1.6509e+00_jprb,1.6070e+00_jprb,&
 & 1.4973e+00_jprb,1.2816e+00_jprb,1.4648e+00_jprb,2.6067e+00_jprb/)  
kao( :, 1,11,12) = (/&
 & 7.0952e-01_jprb,6.5053e-01_jprb,5.9316e-01_jprb,5.5146e-01_jprb,5.2180e-01_jprb,5.0652e-01_jprb,&
 & 4.7718e-01_jprb,4.1246e-01_jprb,4.5783e-01_jprb,2.0241e+00_jprb/)  
kao( :, 2,11,12) = (/&
 & 1.0167e+00_jprb,9.3262e-01_jprb,8.5333e-01_jprb,7.9232e-01_jprb,7.4499e-01_jprb,7.1140e-01_jprb,&
 & 6.7465e-01_jprb,5.7859e-01_jprb,6.4613e-01_jprb,2.2912e+00_jprb/)  
kao( :, 3,11,12) = (/&
 & 1.3886e+00_jprb,1.2732e+00_jprb,1.1736e+00_jprb,1.0906e+00_jprb,1.0139e+00_jprb,9.7034e-01_jprb,&
 & 9.1240e-01_jprb,7.7049e-01_jprb,8.6376e-01_jprb,2.6463e+00_jprb/)  
kao( :, 4,11,12) = (/&
 & 1.8181e+00_jprb,1.6680e+00_jprb,1.5549e+00_jprb,1.4417e+00_jprb,1.3425e+00_jprb,1.2830e+00_jprb,&
 & 1.1836e+00_jprb,9.8857e-01_jprb,1.1129e+00_jprb,3.0263e+00_jprb/)  
kao( :, 5,11,12) = (/&
 & 2.3057e+00_jprb,2.1146e+00_jprb,1.9950e+00_jprb,1.8508e+00_jprb,1.7289e+00_jprb,1.6307e+00_jprb,&
 & 1.4919e+00_jprb,1.2455e+00_jprb,1.4085e+00_jprb,3.4186e+00_jprb/)  
kao( :, 1,12,12) = (/&
 & 7.5886e-01_jprb,6.9796e-01_jprb,6.3852e-01_jprb,5.9929e-01_jprb,5.5990e-01_jprb,5.1924e-01_jprb,&
 & 4.7840e-01_jprb,4.0341e-01_jprb,4.4154e-01_jprb,2.6087e+00_jprb/)  
kao( :, 2,12,12) = (/&
 & 1.0851e+00_jprb,9.9770e-01_jprb,9.1673e-01_jprb,8.5899e-01_jprb,7.9809e-01_jprb,7.3287e-01_jprb,&
 & 6.7148e-01_jprb,5.6350e-01_jprb,6.1612e-01_jprb,2.8310e+00_jprb/)  
kao( :, 3,12,12) = (/&
 & 1.4755e+00_jprb,1.3573e+00_jprb,1.2579e+00_jprb,1.1774e+00_jprb,1.0886e+00_jprb,9.9484e-01_jprb,&
 & 9.0354e-01_jprb,7.5007e-01_jprb,8.2214e-01_jprb,3.1388e+00_jprb/)  
kao( :, 4,12,12) = (/&
 & 1.9253e+00_jprb,1.7711e+00_jprb,1.6604e+00_jprb,1.5471e+00_jprb,1.4336e+00_jprb,1.3051e+00_jprb,&
 & 1.1698e+00_jprb,9.7140e-01_jprb,1.0651e+00_jprb,3.4850e+00_jprb/)  
kao( :, 5,12,12) = (/&
 & 2.4308e+00_jprb,2.2396e+00_jprb,2.1167e+00_jprb,1.9729e+00_jprb,1.8272e+00_jprb,1.6585e+00_jprb,&
 & 1.4809e+00_jprb,1.2177e+00_jprb,1.3448e+00_jprb,3.8825e+00_jprb/)  
kao( :, 1,13,12) = (/&
 & 7.9229e-01_jprb,7.3221e-01_jprb,6.7737e-01_jprb,6.4130e-01_jprb,5.9847e-01_jprb,5.3580e-01_jprb,&
 & 4.7728e-01_jprb,3.9003e-01_jprb,4.1400e-01_jprb,2.7638e+00_jprb/)  
kao( :, 2,13,12) = (/&
 & 1.1297e+00_jprb,1.0450e+00_jprb,9.7140e-01_jprb,9.1618e-01_jprb,8.5138e-01_jprb,7.6006e-01_jprb,&
 & 6.6619e-01_jprb,5.4383e-01_jprb,5.7638e-01_jprb,2.9703e+00_jprb/)  
kao( :, 3,13,12) = (/&
 & 1.5310e+00_jprb,1.4169e+00_jprb,1.3280e+00_jprb,1.2470e+00_jprb,1.1584e+00_jprb,1.0272e+00_jprb,&
 & 8.9295e-01_jprb,7.3007e-01_jprb,7.7208e-01_jprb,3.2180e+00_jprb/)  
kao( :, 4,13,12) = (/&
 & 1.9939e+00_jprb,1.8457e+00_jprb,1.7416e+00_jprb,1.6315e+00_jprb,1.5169e+00_jprb,1.3360e+00_jprb,&
 & 1.1634e+00_jprb,9.4900e-01_jprb,1.0058e+00_jprb,3.5288e+00_jprb/)  
kao( :, 5,13,12) = (/&
 & 2.5079e+00_jprb,2.3287e+00_jprb,2.2043e+00_jprb,2.0691e+00_jprb,1.9162e+00_jprb,1.6967e+00_jprb,&
 & 1.4732e+00_jprb,1.1903e+00_jprb,1.2641e+00_jprb,3.8603e+00_jprb/)  
kao( :, 1, 1,13) = (/&
 & 3.9649e+00_jprb,3.4696e+00_jprb,2.9742e+00_jprb,2.6893e+00_jprb,2.5814e+00_jprb,2.2539e+00_jprb,&
 & 1.9591e+00_jprb,2.1953e+00_jprb,2.3585e+00_jprb,2.4435e+00_jprb/)  
kao( :, 2, 1,13) = (/&
 & 4.6934e+00_jprb,4.1070e+00_jprb,3.5206e+00_jprb,3.2425e+00_jprb,3.0762e+00_jprb,2.6670e+00_jprb,&
 & 2.3213e+00_jprb,2.6577e+00_jprb,2.8281e+00_jprb,2.9391e+00_jprb/)  
kao( :, 3, 1,13) = (/&
 & 5.4309e+00_jprb,4.7524e+00_jprb,4.0738e+00_jprb,3.8211e+00_jprb,3.5699e+00_jprb,3.1013e+00_jprb,&
 & 2.7446e+00_jprb,3.1848e+00_jprb,3.3841e+00_jprb,3.5205e+00_jprb/)  
kao( :, 4, 1,13) = (/&
 & 6.1708e+00_jprb,5.3997e+00_jprb,4.6331e+00_jprb,4.4110e+00_jprb,4.0650e+00_jprb,3.5506e+00_jprb,&
 & 3.2653e+00_jprb,3.7939e+00_jprb,4.0349e+00_jprb,4.1946e+00_jprb/)  
kao( :, 5, 1,13) = (/&
 & 6.8879e+00_jprb,6.0273e+00_jprb,5.1873e+00_jprb,4.9821e+00_jprb,4.5559e+00_jprb,4.0078e+00_jprb,&
 & 3.8433e+00_jprb,4.4688e+00_jprb,4.7724e+00_jprb,4.9544e+00_jprb/)  
kao( :, 1, 2,13) = (/&
 & 3.6698e+00_jprb,3.2113e+00_jprb,2.7634e+00_jprb,2.6220e+00_jprb,2.4498e+00_jprb,2.2177e+00_jprb,&
 & 1.9317e+00_jprb,2.1759e+00_jprb,2.3566e+00_jprb,2.4539e+00_jprb/)  
kao( :, 2, 2,13) = (/&
 & 4.3922e+00_jprb,3.8433e+00_jprb,3.3174e+00_jprb,3.1962e+00_jprb,2.9402e+00_jprb,2.6303e+00_jprb,&
 & 2.3496e+00_jprb,2.7064e+00_jprb,2.8995e+00_jprb,3.0421e+00_jprb/)  
kao( :, 3, 2,13) = (/&
 & 5.1315e+00_jprb,4.4903e+00_jprb,3.8960e+00_jprb,3.7804e+00_jprb,3.4475e+00_jprb,3.0575e+00_jprb,&
 & 2.8478e+00_jprb,3.3075e+00_jprb,3.5154e+00_jprb,3.7101e+00_jprb/)  
kao( :, 4, 2,13) = (/&
 & 5.8800e+00_jprb,5.1453e+00_jprb,4.4924e+00_jprb,4.3646e+00_jprb,3.9642e+00_jprb,3.5208e+00_jprb,&
 & 3.3891e+00_jprb,3.9399e+00_jprb,4.1954e+00_jprb,4.4214e+00_jprb/)  
kao( :, 5, 2,13) = (/&
 & 6.6101e+00_jprb,5.7841e+00_jprb,5.0872e+00_jprb,4.9348e+00_jprb,4.4777e+00_jprb,4.0458e+00_jprb,&
 & 3.9713e+00_jprb,4.6160e+00_jprb,4.9393e+00_jprb,5.1870e+00_jprb/)  
kao( :, 1, 3,13) = (/&
 & 3.2411e+00_jprb,2.8361e+00_jprb,2.4831e+00_jprb,2.4070e+00_jprb,2.2480e+00_jprb,2.0870e+00_jprb,&
 & 1.8051e+00_jprb,2.0202e+00_jprb,2.1994e+00_jprb,2.3002e+00_jprb/)  
kao( :, 2, 3,13) = (/&
 & 3.9470e+00_jprb,3.4538e+00_jprb,3.0483e+00_jprb,2.9667e+00_jprb,2.7181e+00_jprb,2.5148e+00_jprb,&
 & 2.2501e+00_jprb,2.5765e+00_jprb,2.7837e+00_jprb,2.9313e+00_jprb/)  
kao( :, 3, 3,13) = (/&
 & 4.6804e+00_jprb,4.0955e+00_jprb,3.6459e+00_jprb,3.5399e+00_jprb,3.2163e+00_jprb,2.9639e+00_jprb,&
 & 2.7715e+00_jprb,3.2088e+00_jprb,3.4557e+00_jprb,3.6507e+00_jprb/)  
kao( :, 4, 3,13) = (/&
 & 5.4312e+00_jprb,4.7525e+00_jprb,4.2675e+00_jprb,4.1206e+00_jprb,3.7364e+00_jprb,3.4562e+00_jprb,&
 & 3.3399e+00_jprb,3.8844e+00_jprb,4.1920e+00_jprb,4.4202e+00_jprb/)  
kao( :, 5, 3,13) = (/&
 & 6.1796e+00_jprb,5.4074e+00_jprb,4.8990e+00_jprb,4.7013e+00_jprb,4.2915e+00_jprb,3.9757e+00_jprb,&
 & 3.9407e+00_jprb,4.5828e+00_jprb,4.9410e+00_jprb,5.2123e+00_jprb/)  
kao( :, 1, 4,13) = (/&
 & 2.7929e+00_jprb,2.4439e+00_jprb,2.1939e+00_jprb,2.1454e+00_jprb,2.0515e+00_jprb,1.8877e+00_jprb,&
 & 1.6383e+00_jprb,1.8045e+00_jprb,1.9740e+00_jprb,2.0628e+00_jprb/)  
kao( :, 2, 4,13) = (/&
 & 3.4793e+00_jprb,3.0445e+00_jprb,2.7598e+00_jprb,2.6705e+00_jprb,2.5121e+00_jprb,2.3266e+00_jprb,&
 & 2.0901e+00_jprb,2.3620e+00_jprb,2.5689e+00_jprb,2.6998e+00_jprb/)  
kao( :, 3, 4,13) = (/&
 & 4.2010e+00_jprb,3.6761e+00_jprb,3.3660e+00_jprb,3.2278e+00_jprb,3.0027e+00_jprb,2.8086e+00_jprb,&
 & 2.6028e+00_jprb,2.9855e+00_jprb,3.2574e+00_jprb,3.4124e+00_jprb/)  
kao( :, 4, 4,13) = (/&
 & 4.9519e+00_jprb,4.3331e+00_jprb,4.0066e+00_jprb,3.8137e+00_jprb,3.5269e+00_jprb,3.3453e+00_jprb,&
 & 3.1635e+00_jprb,3.6670e+00_jprb,4.0070e+00_jprb,4.1903e+00_jprb/)  
kao( :, 5, 4,13) = (/&
 & 5.7128e+00_jprb,4.9989e+00_jprb,4.6672e+00_jprb,4.4092e+00_jprb,4.0817e+00_jprb,3.8791e+00_jprb,&
 & 3.7698e+00_jprb,4.3882e+00_jprb,4.8065e+00_jprb,5.0150e+00_jprb/)  
kao( :, 1, 5,13) = (/&
 & 2.3832e+00_jprb,2.0854e+00_jprb,1.9206e+00_jprb,1.9102e+00_jprb,1.8377e+00_jprb,1.6804e+00_jprb,&
 & 1.4581e+00_jprb,1.5820e+00_jprb,1.7385e+00_jprb,1.8104e+00_jprb/)  
kao( :, 2, 5,13) = (/&
 & 3.0408e+00_jprb,2.6608e+00_jprb,2.4785e+00_jprb,2.4054e+00_jprb,2.3025e+00_jprb,2.1234e+00_jprb,&
 & 1.8947e+00_jprb,2.1142e+00_jprb,2.3213e+00_jprb,2.4192e+00_jprb/)  
kao( :, 3, 5,13) = (/&
 & 3.7472e+00_jprb,3.2789e+00_jprb,3.0888e+00_jprb,2.9395e+00_jprb,2.8036e+00_jprb,2.6282e+00_jprb,&
 & 2.3906e+00_jprb,2.7153e+00_jprb,2.9926e+00_jprb,3.1059e+00_jprb/)  
kao( :, 4, 5,13) = (/&
 & 4.4915e+00_jprb,3.9302e+00_jprb,3.7393e+00_jprb,3.5090e+00_jprb,3.3375e+00_jprb,3.1759e+00_jprb,&
 & 2.9354e+00_jprb,3.3827e+00_jprb,3.7352e+00_jprb,3.8690e+00_jprb/)  
kao( :, 5, 5,13) = (/&
 & 5.2663e+00_jprb,4.6081e+00_jprb,4.4077e+00_jprb,4.1006e+00_jprb,3.9180e+00_jprb,3.7090e+00_jprb,&
 & 3.5307e+00_jprb,4.1076e+00_jprb,4.5338e+00_jprb,4.6986e+00_jprb/)  
kao( :, 1, 6,13) = (/&
 & 1.9932e+00_jprb,1.7450e+00_jprb,1.6663e+00_jprb,1.6747e+00_jprb,1.5875e+00_jprb,1.4577e+00_jprb,&
 & 1.2653e+00_jprb,1.3499e+00_jprb,1.4817e+00_jprb,1.5465e+00_jprb/)  
kao( :, 2, 6,13) = (/&
 & 2.6126e+00_jprb,2.2877e+00_jprb,2.1906e+00_jprb,2.1465e+00_jprb,2.0440e+00_jprb,1.8948e+00_jprb,&
 & 1.6751e+00_jprb,1.8295e+00_jprb,2.0253e+00_jprb,2.0939e+00_jprb/)  
kao( :, 3, 6,13) = (/&
 & 3.3035e+00_jprb,2.8922e+00_jprb,2.7796e+00_jprb,2.6671e+00_jprb,2.5564e+00_jprb,2.3982e+00_jprb,&
 & 2.1433e+00_jprb,2.3876e+00_jprb,2.6563e+00_jprb,2.7311e+00_jprb/)  
kao( :, 4, 6,13) = (/&
 & 4.0480e+00_jprb,3.5441e+00_jprb,3.4094e+00_jprb,3.2253e+00_jprb,3.1196e+00_jprb,2.9346e+00_jprb,&
 & 2.6536e+00_jprb,3.0266e+00_jprb,3.3710e+00_jprb,3.4616e+00_jprb/)  
kao( :, 5, 6,13) = (/&
 & 4.8342e+00_jprb,4.2338e+00_jprb,4.0696e+00_jprb,3.8230e+00_jprb,3.7396e+00_jprb,3.4594e+00_jprb,&
 & 3.2309e+00_jprb,3.7339e+00_jprb,4.1600e+00_jprb,4.2696e+00_jprb/)  
kao( :, 1, 7,13) = (/&
 & 1.6468e+00_jprb,1.4469e+00_jprb,1.4375e+00_jprb,1.4321e+00_jprb,1.3474e+00_jprb,1.2424e+00_jprb,&
 & 1.0892e+00_jprb,1.1510e+00_jprb,1.2626e+00_jprb,1.3183e+00_jprb/)  
kao( :, 2, 7,13) = (/&
 & 2.2291e+00_jprb,1.9582e+00_jprb,1.9270e+00_jprb,1.8946e+00_jprb,1.7899e+00_jprb,1.6613e+00_jprb,&
 & 1.4638e+00_jprb,1.5844e+00_jprb,1.7486e+00_jprb,1.8143e+00_jprb/)  
kao( :, 3, 7,13) = (/&
 & 2.8937e+00_jprb,2.5452e+00_jprb,2.4760e+00_jprb,2.4095e+00_jprb,2.2977e+00_jprb,2.1475e+00_jprb,&
 & 1.8921e+00_jprb,2.0920e+00_jprb,2.3240e+00_jprb,2.3941e+00_jprb/)  
kao( :, 4, 7,13) = (/&
 & 3.6319e+00_jprb,3.2018e+00_jprb,3.0807e+00_jprb,2.9736e+00_jprb,2.8721e+00_jprb,2.6699e+00_jprb,&
 & 2.3689e+00_jprb,2.6767e+00_jprb,2.9818e+00_jprb,3.0621e+00_jprb/)  
kao( :, 5, 7,13) = (/&
 & 4.4294e+00_jprb,3.9124e+00_jprb,3.7363e+00_jprb,3.5826e+00_jprb,3.5031e+00_jprb,3.1936e+00_jprb,&
 & 2.9162e+00_jprb,3.3346e+00_jprb,3.7295e+00_jprb,3.8139e+00_jprb/)  
kao( :, 1, 8,13) = (/&
 & 1.3645e+00_jprb,1.2030e+00_jprb,1.2251e+00_jprb,1.1980e+00_jprb,1.1267e+00_jprb,1.0496e+00_jprb,&
 & 9.4007e-01_jprb,9.8738e-01_jprb,1.0795e+00_jprb,1.1321e+00_jprb/)  
kao( :, 2, 8,13) = (/&
 & 1.8875e+00_jprb,1.6716e+00_jprb,1.6787e+00_jprb,1.6357e+00_jprb,1.5491e+00_jprb,1.4420e+00_jprb,&
 & 1.2844e+00_jprb,1.3709e+00_jprb,1.5112e+00_jprb,1.5708e+00_jprb/)  
kao( :, 3, 8,13) = (/&
 & 2.5235e+00_jprb,2.2405e+00_jprb,2.2018e+00_jprb,2.1383e+00_jprb,2.0418e+00_jprb,1.9034e+00_jprb,&
 & 1.6797e+00_jprb,1.8309e+00_jprb,2.0369e+00_jprb,2.0956e+00_jprb/)  
kao( :, 4, 8,13) = (/&
 & 3.2460e+00_jprb,2.8890e+00_jprb,2.7989e+00_jprb,2.7089e+00_jprb,2.6113e+00_jprb,2.4070e+00_jprb,&
 & 2.1243e+00_jprb,2.3727e+00_jprb,2.6443e+00_jprb,2.7141e+00_jprb/)  
kao( :, 5, 8,13) = (/&
 & 4.0415e+00_jprb,3.6015e+00_jprb,3.4549e+00_jprb,3.3427e+00_jprb,3.2300e+00_jprb,2.9321e+00_jprb,&
 & 2.6354e+00_jprb,2.9888e+00_jprb,3.3390e+00_jprb,3.4186e+00_jprb/)  
kao( :, 1, 9,13) = (/&
 & 1.1543e+00_jprb,1.0251e+00_jprb,1.0349e+00_jprb,9.8794e-01_jprb,9.3205e-01_jprb,8.8440e-01_jprb,&
 & 8.0320e-01_jprb,8.4519e-01_jprb,9.2711e-01_jprb,1.0206e+00_jprb/)  
kao( :, 2, 9,13) = (/&
 & 1.6108e+00_jprb,1.4310e+00_jprb,1.4476e+00_jprb,1.3885e+00_jprb,1.3235e+00_jprb,1.2492e+00_jprb,&
 & 1.1169e+00_jprb,1.1958e+00_jprb,1.3141e+00_jprb,1.3705e+00_jprb/)  
kao( :, 3, 9,13) = (/&
 & 2.1885e+00_jprb,1.9532e+00_jprb,1.9550e+00_jprb,1.8741e+00_jprb,1.7932e+00_jprb,1.6819e+00_jprb,&
 & 1.4843e+00_jprb,1.6106e+00_jprb,1.7801e+00_jprb,1.8447e+00_jprb/)  
kao( :, 4, 9,13) = (/&
 & 2.8811e+00_jprb,2.5830e+00_jprb,2.5357e+00_jprb,2.4436e+00_jprb,2.3447e+00_jprb,2.1613e+00_jprb,&
 & 1.9043e+00_jprb,2.1005e+00_jprb,2.3339e+00_jprb,2.4057e+00_jprb/)  
kao( :, 5, 9,13) = (/&
 & 3.6764e+00_jprb,3.3079e+00_jprb,3.1796e+00_jprb,3.0911e+00_jprb,2.9539e+00_jprb,2.6757e+00_jprb,&
 & 2.3874e+00_jprb,2.6741e+00_jprb,2.9820e+00_jprb,3.0611e+00_jprb/)  
kao( :, 1,10,13) = (/&
 & 1.0302e+00_jprb,9.2176e-01_jprb,9.0574e-01_jprb,8.4615e-01_jprb,7.9970e-01_jprb,7.6976e-01_jprb,&
 & 7.0274e-01_jprb,7.4283e-01_jprb,8.1565e-01_jprb,2.7017e+00_jprb/)  
kao( :, 2,10,13) = (/&
 & 1.4458e+00_jprb,1.2918e+00_jprb,1.2726e+00_jprb,1.2041e+00_jprb,1.1546e+00_jprb,1.1052e+00_jprb,&
 & 9.9535e-01_jprb,1.0584e+00_jprb,1.1691e+00_jprb,2.9336e+00_jprb/)  
kao( :, 3,10,13) = (/&
 & 1.9856e+00_jprb,1.7787e+00_jprb,1.7427e+00_jprb,1.6691e+00_jprb,1.6016e+00_jprb,1.5137e+00_jprb,&
 & 1.3407e+00_jprb,1.4471e+00_jprb,1.6060e+00_jprb,3.2154e+00_jprb/)  
kao( :, 4,10,13) = (/&
 & 2.6493e+00_jprb,2.3820e+00_jprb,2.3103e+00_jprb,2.2284e+00_jprb,2.1316e+00_jprb,1.9769e+00_jprb,&
 & 1.7435e+00_jprb,1.9143e+00_jprb,2.1248e+00_jprb,3.4633e+00_jprb/)  
kao( :, 5,10,13) = (/&
 & 3.4281e+00_jprb,3.0946e+00_jprb,2.9645e+00_jprb,2.8748e+00_jprb,2.7245e+00_jprb,2.4879e+00_jprb,&
 & 2.2103e+00_jprb,2.4551e+00_jprb,2.7307e+00_jprb,3.6000e+00_jprb/)  
kao( :, 1,11,13) = (/&
 & 1.0987e+00_jprb,9.8883e-01_jprb,9.4457e-01_jprb,8.7599e-01_jprb,8.3570e-01_jprb,8.0174e-01_jprb,&
 & 7.2908e-01_jprb,7.6400e-01_jprb,8.5040e-01_jprb,4.1644e+00_jprb/)  
kao( :, 2,11,13) = (/&
 & 1.5519e+00_jprb,1.3960e+00_jprb,1.3272e+00_jprb,1.2419e+00_jprb,1.1936e+00_jprb,1.1475e+00_jprb,&
 & 1.0323e+00_jprb,1.0904e+00_jprb,1.2118e+00_jprb,4.4377e+00_jprb/)  
kao( :, 3,11,13) = (/&
 & 2.1168e+00_jprb,1.9062e+00_jprb,1.8156e+00_jprb,1.7151e+00_jprb,1.6554e+00_jprb,1.5612e+00_jprb,&
 & 1.3900e+00_jprb,1.4823e+00_jprb,1.6504e+00_jprb,4.7648e+00_jprb/)  
kao( :, 4,11,13) = (/&
 & 2.8109e+00_jprb,2.5372e+00_jprb,2.4065e+00_jprb,2.2977e+00_jprb,2.1984e+00_jprb,2.0338e+00_jprb,&
 & 1.8057e+00_jprb,1.9491e+00_jprb,2.1792e+00_jprb,5.1367e+00_jprb/)  
kao( :, 5,11,13) = (/&
 & 3.6200e+00_jprb,3.2757e+00_jprb,3.0973e+00_jprb,2.9725e+00_jprb,2.8049e+00_jprb,2.5726e+00_jprb,&
 & 2.2731e+00_jprb,2.4759e+00_jprb,2.7857e+00_jprb,5.3931e+00_jprb/)  
kao( :, 1,12,13) = (/&
 & 1.1834e+00_jprb,1.0718e+00_jprb,9.9832e-01_jprb,9.1951e-01_jprb,8.8066e-01_jprb,8.3984e-01_jprb,&
 & 7.5516e-01_jprb,7.7629e-01_jprb,8.6924e-01_jprb,5.0196e+00_jprb/)  
kao( :, 2,12,13) = (/&
 & 1.6817e+00_jprb,1.5210e+00_jprb,1.4125e+00_jprb,1.3041e+00_jprb,1.2468e+00_jprb,1.1910e+00_jprb,&
 & 1.0644e+00_jprb,1.0991e+00_jprb,1.2384e+00_jprb,5.3253e+00_jprb/)  
kao( :, 3,12,13) = (/&
 & 2.2884e+00_jprb,2.0697e+00_jprb,1.9237e+00_jprb,1.7926e+00_jprb,1.7105e+00_jprb,1.6141e+00_jprb,&
 & 1.4356e+00_jprb,1.4903e+00_jprb,1.6827e+00_jprb,5.6934e+00_jprb/)  
kao( :, 4,12,13) = (/&
 & 3.0153e+00_jprb,2.7275e+00_jprb,2.5449e+00_jprb,2.3911e+00_jprb,2.2578e+00_jprb,2.1058e+00_jprb,&
 & 1.8686e+00_jprb,1.9453e+00_jprb,2.2026e+00_jprb,6.1123e+00_jprb/)  
kao( :, 5,12,13) = (/&
 & 3.8521e+00_jprb,3.4852e+00_jprb,3.2646e+00_jprb,3.0814e+00_jprb,2.8800e+00_jprb,2.6613e+00_jprb,&
 & 2.3377e+00_jprb,2.4576e+00_jprb,2.7866e+00_jprb,6.4282e+00_jprb/)  
kao( :, 1,13,13) = (/&
 & 1.2852e+00_jprb,1.1646e+00_jprb,1.0642e+00_jprb,9.7556e-01_jprb,9.2420e-01_jprb,8.7620e-01_jprb,&
 & 7.7196e-01_jprb,7.7146e-01_jprb,8.7630e-01_jprb,4.8556e+00_jprb/)  

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


SUBROUTINE part10

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


kao( :, 2,13,13) = (/&
 & 1.8301e+00_jprb,1.6589e+00_jprb,1.5152e+00_jprb,1.3893e+00_jprb,1.3055e+00_jprb,1.2323e+00_jprb,&
 & 1.0895e+00_jprb,1.0875e+00_jprb,1.2372e+00_jprb,5.1762e+00_jprb/)  
kao( :, 3,13,13) = (/&
 & 2.4889e+00_jprb,2.2558e+00_jprb,2.0613e+00_jprb,1.9034e+00_jprb,1.7774e+00_jprb,1.6692e+00_jprb,&
 & 1.4717e+00_jprb,1.4657e+00_jprb,1.6743e+00_jprb,5.5984e+00_jprb/)  
kao( :, 4,13,13) = (/&
 & 3.2570e+00_jprb,2.9493e+00_jprb,2.7127e+00_jprb,2.5175e+00_jprb,2.3371e+00_jprb,2.1800e+00_jprb,&
 & 1.9099e+00_jprb,1.9041e+00_jprb,2.1795e+00_jprb,5.9989e+00_jprb/)  
kao( :, 5,13,13) = (/&
 & 4.1326e+00_jprb,3.7382e+00_jprb,3.4726e+00_jprb,3.2172e+00_jprb,2.9811e+00_jprb,2.7433e+00_jprb,&
 & 2.3977e+00_jprb,2.4060e+00_jprb,2.7519e+00_jprb,6.3218e+00_jprb/)  
kao( :, 1, 1,14) = (/&
 & 6.3467e+00_jprb,5.5536e+00_jprb,4.7605e+00_jprb,3.9673e+00_jprb,3.4386e+00_jprb,3.0089e+00_jprb,&
 & 3.2295e+00_jprb,3.7567e+00_jprb,4.0531e+00_jprb,4.1923e+00_jprb/)  
kao( :, 2, 1,14) = (/&
 & 7.3964e+00_jprb,6.4721e+00_jprb,5.5478e+00_jprb,4.6234e+00_jprb,4.0808e+00_jprb,3.6137e+00_jprb,&
 & 3.9782e+00_jprb,4.6298e+00_jprb,5.0268e+00_jprb,5.1845e+00_jprb/)  
kao( :, 3, 1,14) = (/&
 & 8.4250e+00_jprb,7.3721e+00_jprb,6.3192e+00_jprb,5.2663e+00_jprb,4.6836e+00_jprb,4.2376e+00_jprb,&
 & 4.8035e+00_jprb,5.5919e+00_jprb,6.0740e+00_jprb,6.2648e+00_jprb/)  
kao( :, 4, 1,14) = (/&
 & 9.4499e+00_jprb,8.2689e+00_jprb,7.0879e+00_jprb,5.9239e+00_jprb,5.2786e+00_jprb,4.8999e+00_jprb,&
 & 5.6760e+00_jprb,6.6052e+00_jprb,7.1802e+00_jprb,7.4022e+00_jprb/)  
kao( :, 5, 1,14) = (/&
 & 1.0423e+01_jprb,9.1200e+00_jprb,7.8174e+00_jprb,6.5882e+00_jprb,5.8558e+00_jprb,5.6014e+00_jprb,&
 & 6.5884e+00_jprb,7.6675e+00_jprb,8.3255e+00_jprb,8.5803e+00_jprb/)  
kao( :, 1, 2,14) = (/&
 & 6.0960e+00_jprb,5.3341e+00_jprb,4.5723e+00_jprb,3.8126e+00_jprb,3.4069e+00_jprb,2.9396e+00_jprb,&
 & 3.2197e+00_jprb,3.7455e+00_jprb,4.0286e+00_jprb,4.2155e+00_jprb/)  
kao( :, 2, 2,14) = (/&
 & 7.1676e+00_jprb,6.2719e+00_jprb,5.3761e+00_jprb,4.4966e+00_jprb,4.0412e+00_jprb,3.5493e+00_jprb,&
 & 3.9472e+00_jprb,4.5920e+00_jprb,4.9699e+00_jprb,5.1775e+00_jprb/)  
kao( :, 3, 2,14) = (/&
 & 8.2275e+00_jprb,7.1993e+00_jprb,6.1710e+00_jprb,5.2089e+00_jprb,4.6568e+00_jprb,4.1985e+00_jprb,&
 & 4.7440e+00_jprb,5.5211e+00_jprb,6.0149e+00_jprb,6.2370e+00_jprb/)  
kao( :, 4, 2,14) = (/&
 & 9.2799e+00_jprb,8.1202e+00_jprb,6.9604e+00_jprb,5.9586e+00_jprb,5.2716e+00_jprb,4.8960e+00_jprb,&
 & 5.6599e+00_jprb,6.5872e+00_jprb,7.1735e+00_jprb,7.4414e+00_jprb/)  
kao( :, 5, 2,14) = (/&
 & 1.0290e+01_jprb,9.0044e+00_jprb,7.7181e+00_jprb,6.7211e+00_jprb,5.8757e+00_jprb,5.6245e+00_jprb,&
 & 6.6558e+00_jprb,7.7452e+00_jprb,8.4069e+00_jprb,8.7373e+00_jprb/)  
kao( :, 1, 3,14) = (/&
 & 5.6039e+00_jprb,4.9036e+00_jprb,4.2032e+00_jprb,3.5445e+00_jprb,3.1902e+00_jprb,2.7537e+00_jprb,&
 & 3.0813e+00_jprb,3.5840e+00_jprb,3.8576e+00_jprb,4.0764e+00_jprb/)  
kao( :, 2, 3,14) = (/&
 & 6.6863e+00_jprb,5.8506e+00_jprb,5.0150e+00_jprb,4.2815e+00_jprb,3.8270e+00_jprb,3.3352e+00_jprb,&
 & 3.7857e+00_jprb,4.4048e+00_jprb,4.7637e+00_jprb,5.0131e+00_jprb/)  
kao( :, 3, 3,14) = (/&
 & 7.7737e+00_jprb,6.8021e+00_jprb,5.8305e+00_jprb,5.0665e+00_jprb,4.4594e+00_jprb,3.9827e+00_jprb,&
 & 4.5659e+00_jprb,5.3124e+00_jprb,5.7659e+00_jprb,6.0477e+00_jprb/)  
kao( :, 4, 3,14) = (/&
 & 8.8508e+00_jprb,7.7446e+00_jprb,6.6384e+00_jprb,5.8813e+00_jprb,5.0859e+00_jprb,4.6840e+00_jprb,&
 & 5.4591e+00_jprb,6.3527e+00_jprb,6.8914e+00_jprb,7.2291e+00_jprb/)  
kao( :, 5, 3,14) = (/&
 & 9.9079e+00_jprb,8.6696e+00_jprb,7.4314e+00_jprb,6.6539e+00_jprb,5.7107e+00_jprb,5.4618e+00_jprb,&
 & 6.4933e+00_jprb,7.5556e+00_jprb,8.1916e+00_jprb,8.5967e+00_jprb/)  
kao( :, 1, 4,14) = (/&
 & 5.0429e+00_jprb,4.4127e+00_jprb,3.7824e+00_jprb,3.2565e+00_jprb,2.9117e+00_jprb,2.5898e+00_jprb,&
 & 2.8958e+00_jprb,3.3702e+00_jprb,3.6408e+00_jprb,3.8526e+00_jprb/)  
kao( :, 2, 4,14) = (/&
 & 6.1165e+00_jprb,5.3520e+00_jprb,4.5876e+00_jprb,4.0300e+00_jprb,3.5416e+00_jprb,3.1532e+00_jprb,&
 & 3.5780e+00_jprb,4.1633e+00_jprb,4.5155e+00_jprb,4.7595e+00_jprb/)  
kao( :, 3, 4,14) = (/&
 & 7.2202e+00_jprb,6.3178e+00_jprb,5.4153e+00_jprb,4.8492e+00_jprb,4.1829e+00_jprb,3.7790e+00_jprb,&
 & 4.3631e+00_jprb,5.0766e+00_jprb,5.4928e+00_jprb,5.8029e+00_jprb/)  
kao( :, 4, 4,14) = (/&
 & 8.3276e+00_jprb,7.2868e+00_jprb,6.2460e+00_jprb,5.6534e+00_jprb,4.8225e+00_jprb,4.4640e+00_jprb,&
 & 5.2625e+00_jprb,6.1221e+00_jprb,6.6156e+00_jprb,6.9984e+00_jprb/)  
kao( :, 5, 4,14) = (/&
 & 9.4148e+00_jprb,8.2381e+00_jprb,7.0618e+00_jprb,6.4221e+00_jprb,5.4760e+00_jprb,5.2668e+00_jprb,&
 & 6.3012e+00_jprb,7.3279e+00_jprb,7.8962e+00_jprb,8.3774e+00_jprb/)  
kao( :, 1, 5,14) = (/&
 & 4.4802e+00_jprb,3.9202e+00_jprb,3.3603e+00_jprb,2.9662e+00_jprb,2.6611e+00_jprb,2.4288e+00_jprb,&
 & 2.7026e+00_jprb,3.1455e+00_jprb,3.4114e+00_jprb,3.6024e+00_jprb/)  
kao( :, 2, 5,14) = (/&
 & 5.5401e+00_jprb,4.8477e+00_jprb,4.1552e+00_jprb,3.7384e+00_jprb,3.2633e+00_jprb,2.9928e+00_jprb,&
 & 3.3900e+00_jprb,3.9443e+00_jprb,4.2636e+00_jprb,4.5188e+00_jprb/)  
kao( :, 3, 5,14) = (/&
 & 6.6438e+00_jprb,5.8134e+00_jprb,4.9831e+00_jprb,4.5446e+00_jprb,3.8884e+00_jprb,3.6053e+00_jprb,&
 & 4.1835e+00_jprb,4.8658e+00_jprb,5.2435e+00_jprb,5.5754e+00_jprb/)  
kao( :, 4, 5,14) = (/&
 & 7.7709e+00_jprb,6.7996e+00_jprb,5.8338e+00_jprb,5.3460e+00_jprb,4.5461e+00_jprb,4.3055e+00_jprb,&
 & 5.1051e+00_jprb,5.9359e+00_jprb,6.3763e+00_jprb,6.8031e+00_jprb/)  
kao( :, 5, 5,14) = (/&
 & 8.8898e+00_jprb,7.7787e+00_jprb,6.6983e+00_jprb,6.1260e+00_jprb,5.2267e+00_jprb,5.1517e+00_jprb,&
 & 6.1712e+00_jprb,7.1748e+00_jprb,7.6888e+00_jprb,8.2242e+00_jprb/)  
kao( :, 1, 6,14) = (/&
 & 3.8956e+00_jprb,3.4087e+00_jprb,2.9221e+00_jprb,2.6281e+00_jprb,2.4050e+00_jprb,2.1916e+00_jprb,&
 & 2.4174e+00_jprb,2.8161e+00_jprb,3.0927e+00_jprb,3.2244e+00_jprb/)  
kao( :, 2, 6,14) = (/&
 & 4.9303e+00_jprb,4.3141e+00_jprb,3.7046e+00_jprb,3.3844e+00_jprb,3.0105e+00_jprb,2.7770e+00_jprb,&
 & 3.1412e+00_jprb,3.6575e+00_jprb,3.9814e+00_jprb,4.1910e+00_jprb/)  
kao( :, 3, 6,14) = (/&
 & 6.0218e+00_jprb,5.2691e+00_jprb,4.5387e+00_jprb,4.1657e+00_jprb,3.6350e+00_jprb,3.4172e+00_jprb,&
 & 3.9726e+00_jprb,4.6214e+00_jprb,4.9897e+00_jprb,5.2991e+00_jprb/)  
kao( :, 4, 6,14) = (/&
 & 7.1568e+00_jprb,6.2623e+00_jprb,5.4345e+00_jprb,4.9658e+00_jprb,4.2966e+00_jprb,4.1563e+00_jprb,&
 & 4.9351e+00_jprb,5.7383e+00_jprb,6.1434e+00_jprb,6.5857e+00_jprb/)  
kao( :, 5, 6,14) = (/&
 & 8.3003e+00_jprb,7.2628e+00_jprb,6.3671e+00_jprb,5.7590e+00_jprb,4.9644e+00_jprb,5.0298e+00_jprb,&
 & 6.0229e+00_jprb,7.0046e+00_jprb,7.4957e+00_jprb,8.0375e+00_jprb/)  
kao( :, 1, 7,14) = (/&
 & 3.3388e+00_jprb,2.9215e+00_jprb,2.5187e+00_jprb,2.3253e+00_jprb,2.1119e+00_jprb,1.9164e+00_jprb,&
 & 2.0859e+00_jprb,2.4315e+00_jprb,2.6982e+00_jprb,2.7836e+00_jprb/)  
kao( :, 2, 7,14) = (/&
 & 4.3359e+00_jprb,3.7940e+00_jprb,3.2869e+00_jprb,3.0293e+00_jprb,2.7102e+00_jprb,2.5026e+00_jprb,&
 & 2.8032e+00_jprb,3.2661e+00_jprb,3.5953e+00_jprb,3.7400e+00_jprb/)  
kao( :, 3, 7,14) = (/&
 & 5.4120e+00_jprb,4.7356e+00_jprb,4.1395e+00_jprb,3.7778e+00_jprb,3.3513e+00_jprb,3.1688e+00_jprb,&
 & 3.6572e+00_jprb,4.2574e+00_jprb,4.6459e+00_jprb,4.8805e+00_jprb/)  
kao( :, 4, 7,14) = (/&
 & 6.5428e+00_jprb,5.7250e+00_jprb,5.0639e+00_jprb,4.5620e+00_jprb,4.0362e+00_jprb,3.9521e+00_jprb,&
 & 4.6701e+00_jprb,5.4350e+00_jprb,5.8814e+00_jprb,6.2344e+00_jprb/)  
kao( :, 5, 7,14) = (/&
 & 7.7011e+00_jprb,6.7385e+00_jprb,6.0359e+00_jprb,5.3689e+00_jprb,4.7398e+00_jprb,4.8671e+00_jprb,&
 & 5.8104e+00_jprb,6.7609e+00_jprb,7.2855e+00_jprb,7.7564e+00_jprb/)  
kao( :, 1, 8,14) = (/&
 & 2.8332e+00_jprb,2.4790e+00_jprb,2.1588e+00_jprb,2.0517e+00_jprb,1.8212e+00_jprb,1.6427e+00_jprb,&
 & 1.7555e+00_jprb,2.0463e+00_jprb,2.2808e+00_jprb,2.3417e+00_jprb/)  
kao( :, 2, 8,14) = (/&
 & 3.7845e+00_jprb,3.3115e+00_jprb,2.9062e+00_jprb,2.7307e+00_jprb,2.4002e+00_jprb,2.2076e+00_jprb,&
 & 2.4394e+00_jprb,2.8424e+00_jprb,3.1489e+00_jprb,3.2550e+00_jprb/)  
kao( :, 3, 8,14) = (/&
 & 4.8341e+00_jprb,4.2299e+00_jprb,3.7584e+00_jprb,3.4582e+00_jprb,3.0437e+00_jprb,2.8748e+00_jprb,&
 & 3.2834e+00_jprb,3.8242e+00_jprb,4.1983e+00_jprb,4.3823e+00_jprb/)  
kao( :, 4, 8,14) = (/&
 & 5.9611e+00_jprb,5.2160e+00_jprb,4.6841e+00_jprb,4.2257e+00_jprb,3.7381e+00_jprb,3.6695e+00_jprb,&
 & 4.3008e+00_jprb,5.0080e+00_jprb,5.4653e+00_jprb,5.7413e+00_jprb/)  
kao( :, 5, 8,14) = (/&
 & 7.1388e+00_jprb,6.2465e+00_jprb,5.6516e+00_jprb,5.0317e+00_jprb,4.4851e+00_jprb,4.5966e+00_jprb,&
 & 5.4606e+00_jprb,6.3571e+00_jprb,6.9303e+00_jprb,7.2901e+00_jprb/)  
kao( :, 1, 9,14) = (/&
 & 2.3712e+00_jprb,2.0748e+00_jprb,1.8514e+00_jprb,1.7610e+00_jprb,1.5410e+00_jprb,1.3776e+00_jprb,&
 & 1.4602e+00_jprb,1.7019e+00_jprb,1.8917e+00_jprb,1.9491e+00_jprb/)  
kao( :, 2, 9,14) = (/&
 & 3.2706e+00_jprb,2.8618e+00_jprb,2.5535e+00_jprb,2.4121e+00_jprb,2.0953e+00_jprb,1.9091e+00_jprb,&
 & 2.0867e+00_jprb,2.4315e+00_jprb,2.6961e+00_jprb,2.7855e+00_jprb/)  
kao( :, 3, 9,14) = (/&
 & 4.2928e+00_jprb,3.7562e+00_jprb,3.3707e+00_jprb,3.1325e+00_jprb,2.7323e+00_jprb,2.5568e+00_jprb,&
 & 2.8897e+00_jprb,3.3658e+00_jprb,3.7112e+00_jprb,3.8566e+00_jprb/)  
kao( :, 4, 9,14) = (/&
 & 5.4084e+00_jprb,4.7324e+00_jprb,4.2872e+00_jprb,3.9074e+00_jprb,3.4333e+00_jprb,3.3403e+00_jprb,&
 & 3.8759e+00_jprb,4.5148e+00_jprb,4.9657e+00_jprb,5.1730e+00_jprb/)  
kao( :, 5, 9,14) = (/&
 & 6.5945e+00_jprb,5.7702e+00_jprb,5.2612e+00_jprb,4.7341e+00_jprb,4.2027e+00_jprb,4.2619e+00_jprb,&
 & 5.0203e+00_jprb,5.8475e+00_jprb,6.4247e+00_jprb,6.7007e+00_jprb/)  
kao( :, 1,10,14) = (/&
 & 2.0238e+00_jprb,1.7709e+00_jprb,1.6271e+00_jprb,1.5213e+00_jprb,1.3211e+00_jprb,1.1708e+00_jprb,&
 & 1.2470e+00_jprb,1.4529e+00_jprb,1.6100e+00_jprb,4.3675e+00_jprb/)  
kao( :, 2,10,14) = (/&
 & 2.8739e+00_jprb,2.5147e+00_jprb,2.3020e+00_jprb,2.1393e+00_jprb,1.8575e+00_jprb,1.6735e+00_jprb,&
 & 1.8305e+00_jprb,2.1324e+00_jprb,2.3565e+00_jprb,4.3227e+00_jprb/)  
kao( :, 3,10,14) = (/&
 & 3.8650e+00_jprb,3.3819e+00_jprb,3.1009e+00_jprb,2.8438e+00_jprb,2.4832e+00_jprb,2.3021e+00_jprb,&
 & 2.5924e+00_jprb,3.0194e+00_jprb,3.3202e+00_jprb,4.3938e+00_jprb/)  
kao( :, 4,10,14) = (/&
 & 4.9777e+00_jprb,4.3555e+00_jprb,3.9964e+00_jprb,3.6309e+00_jprb,3.1871e+00_jprb,3.0700e+00_jprb,&
 & 3.5258e+00_jprb,4.1073e+00_jprb,4.5249e+00_jprb,4.9612e+00_jprb/)  
kao( :, 5,10,14) = (/&
 & 6.1825e+00_jprb,5.4114e+00_jprb,4.9528e+00_jprb,4.4825e+00_jprb,3.9869e+00_jprb,3.9806e+00_jprb,&
 & 4.6382e+00_jprb,5.4027e+00_jprb,5.9521e+00_jprb,6.1940e+00_jprb/)  
kao( :, 1,11,14) = (/&
 & 2.0804e+00_jprb,1.8204e+00_jprb,1.7005e+00_jprb,1.5536e+00_jprb,1.3500e+00_jprb,1.2044e+00_jprb,&
 & 1.3053e+00_jprb,1.5201e+00_jprb,1.6683e+00_jprb,7.0995e+00_jprb/)  
kao( :, 2,11,14) = (/&
 & 2.9372e+00_jprb,2.5710e+00_jprb,2.4123e+00_jprb,2.1876e+00_jprb,1.9103e+00_jprb,1.7356e+00_jprb,&
 & 1.9131e+00_jprb,2.2284e+00_jprb,2.4493e+00_jprb,7.0950e+00_jprb/)  
kao( :, 3,11,14) = (/&
 & 3.9628e+00_jprb,3.4731e+00_jprb,3.2411e+00_jprb,2.9265e+00_jprb,2.5614e+00_jprb,2.3947e+00_jprb,&
 & 2.6976e+00_jprb,3.1434e+00_jprb,3.4700e+00_jprb,6.9637e+00_jprb/)  
kao( :, 4,11,14) = (/&
 & 5.1248e+00_jprb,4.4937e+00_jprb,4.1603e+00_jprb,3.7597e+00_jprb,3.3177e+00_jprb,3.2015e+00_jprb,&
 & 3.6687e+00_jprb,4.2746e+00_jprb,4.7220e+00_jprb,6.9069e+00_jprb/)  
kao( :, 5,11,14) = (/&
 & 6.4048e+00_jprb,5.6238e+00_jprb,5.1596e+00_jprb,4.6653e+00_jprb,4.1869e+00_jprb,4.1503e+00_jprb,&
 & 4.8291e+00_jprb,5.6278e+00_jprb,6.2131e+00_jprb,7.3735e+00_jprb/)  
kao( :, 1,12,14) = (/&
 & 2.1606e+00_jprb,1.8919e+00_jprb,1.7776e+00_jprb,1.5988e+00_jprb,1.3931e+00_jprb,1.2607e+00_jprb,&
 & 1.3765e+00_jprb,1.6030e+00_jprb,1.7584e+00_jprb,8.8539e+00_jprb/)  
kao( :, 2,12,14) = (/&
 & 3.0241e+00_jprb,2.6538e+00_jprb,2.5108e+00_jprb,2.2558e+00_jprb,1.9760e+00_jprb,1.8135e+00_jprb,&
 & 2.0048e+00_jprb,2.3354e+00_jprb,2.5682e+00_jprb,8.8299e+00_jprb/)  
kao( :, 3,12,14) = (/&
 & 4.0854e+00_jprb,3.5917e+00_jprb,3.3758e+00_jprb,3.0347e+00_jprb,2.6732e+00_jprb,2.5117e+00_jprb,&
 & 2.8106e+00_jprb,3.2743e+00_jprb,3.6095e+00_jprb,8.6670e+00_jprb/)  
kao( :, 4,12,14) = (/&
 & 5.3044e+00_jprb,4.6786e+00_jprb,4.3443e+00_jprb,3.9213e+00_jprb,3.4969e+00_jprb,3.3585e+00_jprb,&
 & 3.8040e+00_jprb,4.4330e+00_jprb,4.9075e+00_jprb,8.5700e+00_jprb/)  
kao( :, 5,12,14) = (/&
 & 6.6440e+00_jprb,5.8812e+00_jprb,5.4120e+00_jprb,4.9125e+00_jprb,4.4282e+00_jprb,4.3429e+00_jprb,&
 & 4.9855e+00_jprb,5.8102e+00_jprb,6.4492e+00_jprb,8.6830e+00_jprb/)  
kao( :, 1,13,14) = (/&
 & 2.2525e+00_jprb,1.9864e+00_jprb,1.8643e+00_jprb,1.6602e+00_jprb,1.4614e+00_jprb,1.3350e+00_jprb,&
 & 1.4569e+00_jprb,1.6960e+00_jprb,1.8539e+00_jprb,8.7601e+00_jprb/)  
kao( :, 2,13,14) = (/&
 & 3.1332e+00_jprb,2.7632e+00_jprb,2.6018e+00_jprb,2.3367e+00_jprb,2.0765e+00_jprb,1.9171e+00_jprb,&
 & 2.1105e+00_jprb,2.4578e+00_jprb,2.6945e+00_jprb,8.6837e+00_jprb/)  
kao( :, 3,13,14) = (/&
 & 4.2146e+00_jprb,3.7269e+00_jprb,3.4963e+00_jprb,3.1609e+00_jprb,2.8326e+00_jprb,2.6522e+00_jprb,&
 & 2.9390e+00_jprb,3.4234e+00_jprb,3.7715e+00_jprb,8.5952e+00_jprb/)  
kao( :, 4,13,14) = (/&
 & 5.4718e+00_jprb,4.8645e+00_jprb,4.5313e+00_jprb,4.1221e+00_jprb,3.7163e+00_jprb,3.5387e+00_jprb,&
 & 3.9442e+00_jprb,4.5945e+00_jprb,5.0796e+00_jprb,8.5494e+00_jprb/)  
kao( :, 5,13,14) = (/&
 & 6.8761e+00_jprb,6.1372e+00_jprb,5.6718e+00_jprb,5.2229e+00_jprb,4.7155e+00_jprb,4.5637e+00_jprb,&
 & 5.1163e+00_jprb,5.9645e+00_jprb,6.6388e+00_jprb,8.7275e+00_jprb/)  
kao( :, 1, 1,15) = (/&
 & 7.4038e+00_jprb,6.4785e+00_jprb,5.5532e+00_jprb,4.6280e+00_jprb,3.7389e+00_jprb,4.3853e+00_jprb,&
 & 5.2514e+00_jprb,6.0902e+00_jprb,6.2346e+00_jprb,6.5981e+00_jprb/)  
kao( :, 2, 1,15) = (/&
 & 8.5770e+00_jprb,7.5051e+00_jprb,6.4332e+00_jprb,5.3613e+00_jprb,4.4922e+00_jprb,5.5332e+00_jprb,&
 & 6.6248e+00_jprb,7.6856e+00_jprb,7.8788e+00_jprb,8.3358e+00_jprb/)  
kao( :, 3, 1,15) = (/&
 & 9.7196e+00_jprb,8.4924e+00_jprb,7.2901e+00_jprb,6.0754e+00_jprb,5.4287e+00_jprb,6.7758e+00_jprb,&
 & 8.1174e+00_jprb,9.4295e+00_jprb,9.6454e+00_jprb,1.0231e+01_jprb/)  
kao( :, 4, 1,15) = (/&
 & 1.0823e+01_jprb,9.4701e+00_jprb,8.1175e+00_jprb,6.7650e+00_jprb,6.4845e+00_jprb,8.0968e+00_jprb,&
 & 9.6971e+00_jprb,1.1247e+01_jprb,1.1535e+01_jprb,1.2232e+01_jprb/)  
kao( :, 5, 1,15) = (/&
 & 1.1862e+01_jprb,1.0380e+01_jprb,8.8975e+00_jprb,7.4149e+00_jprb,7.5987e+00_jprb,9.4854e+00_jprb,&
 & 1.1367e+01_jprb,1.3183e+01_jprb,1.3535e+01_jprb,1.4322e+01_jprb/)  
kao( :, 1, 2,15) = (/&
 & 7.2487e+00_jprb,6.3428e+00_jprb,5.4369e+00_jprb,4.5309e+00_jprb,3.8305e+00_jprb,4.6866e+00_jprb,&
 & 5.6122e+00_jprb,6.5109e+00_jprb,6.6944e+00_jprb,7.2237e+00_jprb/)  
kao( :, 2, 2,15) = (/&
 & 8.4632e+00_jprb,7.4054e+00_jprb,6.3477e+00_jprb,5.2900e+00_jprb,4.7972e+00_jprb,5.9774e+00_jprb,&
 & 7.1612e+00_jprb,8.3091e+00_jprb,8.5448e+00_jprb,9.2203e+00_jprb/)  
kao( :, 3, 2,15) = (/&
 & 9.6376e+00_jprb,8.4331e+00_jprb,7.2286e+00_jprb,6.0241e+00_jprb,5.9277e+00_jprb,7.4032e+00_jprb,&
 & 8.8670e+00_jprb,1.0288e+01_jprb,1.0591e+01_jprb,1.1420e+01_jprb/)  
kao( :, 4, 2,15) = (/&
 & 1.0787e+01_jprb,9.4386e+00_jprb,8.0905e+00_jprb,6.7423e+00_jprb,7.1365e+00_jprb,8.9120e+00_jprb,&
 & 1.0675e+01_jprb,1.2387e+01_jprb,1.2766e+01_jprb,1.3751e+01_jprb/)  
kao( :, 5, 2,15) = (/&
 & 1.1876e+01_jprb,1.0392e+01_jprb,8.9076e+00_jprb,7.4263e+00_jprb,8.4093e+00_jprb,1.0502e+01_jprb,&
 & 1.2577e+01_jprb,1.4600e+01_jprb,1.5061e+01_jprb,1.6216e+01_jprb/)  
kao( :, 1, 3,15) = (/&
 & 6.8060e+00_jprb,5.9554e+00_jprb,5.1048e+00_jprb,4.2541e+00_jprb,3.7945e+00_jprb,4.6793e+00_jprb,&
 & 5.6066e+00_jprb,6.5069e+00_jprb,6.7262e+00_jprb,7.3705e+00_jprb/)  
kao( :, 2, 3,15) = (/&
 & 8.0512e+00_jprb,7.0449e+00_jprb,6.0387e+00_jprb,5.0324e+00_jprb,4.8723e+00_jprb,6.0807e+00_jprb,&
 & 7.2845e+00_jprb,8.4534e+00_jprb,8.7471e+00_jprb,9.5785e+00_jprb/)  
kao( :, 3, 3,15) = (/&
 & 9.2771e+00_jprb,8.1176e+00_jprb,6.9581e+00_jprb,5.7986e+00_jprb,6.1227e+00_jprb,7.6490e+00_jprb,&
 & 9.1620e+00_jprb,1.0634e+01_jprb,1.1013e+01_jprb,1.2049e+01_jprb/)  
kao( :, 4, 3,15) = (/&
 & 1.0461e+01_jprb,9.1535e+00_jprb,7.8460e+00_jprb,6.5548e+00_jprb,7.4810e+00_jprb,9.3445e+00_jprb,&
 & 1.1193e+01_jprb,1.2995e+01_jprb,1.3474e+01_jprb,1.4726e+01_jprb/)  
kao( :, 5, 3,15) = (/&
 & 1.1612e+01_jprb,1.0161e+01_jprb,8.7094e+00_jprb,7.3963e+00_jprb,8.9014e+00_jprb,1.1119e+01_jprb,&
 & 1.3323e+01_jprb,1.5462e+01_jprb,1.6055e+01_jprb,1.7525e+01_jprb/)  
kao( :, 1, 4,15) = (/&
 & 6.2727e+00_jprb,5.4887e+00_jprb,4.7047e+00_jprb,3.9207e+00_jprb,3.6525e+00_jprb,4.5000e+00_jprb,&
 & 5.3898e+00_jprb,6.2588e+00_jprb,6.5149e+00_jprb,7.1567e+00_jprb/)  
kao( :, 2, 4,15) = (/&
 & 7.5169e+00_jprb,6.5774e+00_jprb,5.6379e+00_jprb,4.6985e+00_jprb,4.7911e+00_jprb,5.9751e+00_jprb,&
 & 7.1596e+00_jprb,8.3141e+00_jprb,8.6620e+00_jprb,9.5044e+00_jprb/)  
kao( :, 3, 4,15) = (/&
 & 8.7861e+00_jprb,7.6880e+00_jprb,6.5898e+00_jprb,5.5305e+00_jprb,6.1247e+00_jprb,7.6488e+00_jprb,&
 & 9.1669e+00_jprb,1.0645e+01_jprb,1.1106e+01_jprb,1.2173e+01_jprb/)  
kao( :, 4, 4,15) = (/&
 & 1.0026e+01_jprb,8.7728e+00_jprb,7.5197e+00_jprb,6.4473e+00_jprb,7.6081e+00_jprb,9.5022e+00_jprb,&
 & 1.1386e+01_jprb,1.3225e+01_jprb,1.3819e+01_jprb,1.5121e+01_jprb/)  
kao( :, 5, 4,15) = (/&
 & 1.1215e+01_jprb,9.8132e+00_jprb,8.4117e+00_jprb,7.4634e+00_jprb,9.1763e+00_jprb,1.1465e+01_jprb,&
 & 1.3734e+01_jprb,1.5956e+01_jprb,1.6697e+01_jprb,1.8243e+01_jprb/)  
kao( :, 1, 5,15) = (/&
 & 5.7094e+00_jprb,4.9958e+00_jprb,4.2822e+00_jprb,3.5751e+00_jprb,3.4456e+00_jprb,4.2408e+00_jprb,&
 & 5.0808e+00_jprb,5.9001e+00_jprb,6.1640e+00_jprb,6.7724e+00_jprb/)  
kao( :, 2, 5,15) = (/&
 & 6.9610e+00_jprb,6.0909e+00_jprb,5.2209e+00_jprb,4.3950e+00_jprb,4.6160e+00_jprb,5.7378e+00_jprb,&
 & 6.8746e+00_jprb,7.9877e+00_jprb,8.3933e+00_jprb,9.1641e+00_jprb/)  
kao( :, 3, 5,15) = (/&
 & 8.2452e+00_jprb,7.2146e+00_jprb,6.1840e+00_jprb,5.2978e+00_jprb,5.9973e+00_jprb,7.4900e+00_jprb,&
 & 8.9757e+00_jprb,1.0429e+01_jprb,1.0974e+01_jprb,1.1967e+01_jprb/)  
kao( :, 4, 5,15) = (/&
 & 9.5317e+00_jprb,8.3403e+00_jprb,7.1489e+00_jprb,6.3594e+00_jprb,7.5690e+00_jprb,9.4570e+00_jprb,&
 & 1.1330e+01_jprb,1.3166e+01_jprb,1.3879e+01_jprb,1.5102e+01_jprb/)  
kao( :, 5, 5,15) = (/&
 & 1.0774e+01_jprb,9.4271e+00_jprb,8.0808e+00_jprb,7.5165e+00_jprb,9.2600e+00_jprb,1.1570e+01_jprb,&
 & 1.3864e+01_jprb,1.6116e+01_jprb,1.7021e+01_jprb,1.8481e+01_jprb/)  
kao( :, 1, 6,15) = (/&
 & 5.0892e+00_jprb,4.4531e+00_jprb,3.8170e+00_jprb,3.2199e+00_jprb,3.2113e+00_jprb,4.0113e+00_jprb,&
 & 4.8052e+00_jprb,5.5784e+00_jprb,5.7946e+00_jprb,6.4168e+00_jprb/)  
kao( :, 2, 6,15) = (/&
 & 6.3415e+00_jprb,5.5489e+00_jprb,4.7563e+00_jprb,4.0482e+00_jprb,4.3407e+00_jprb,5.4212e+00_jprb,&
 & 6.4943e+00_jprb,7.5434e+00_jprb,7.9031e+00_jprb,8.6734e+00_jprb/)  
kao( :, 3, 6,15) = (/&
 & 7.6230e+00_jprb,6.6701e+00_jprb,5.7173e+00_jprb,5.0372e+00_jprb,5.7049e+00_jprb,7.1268e+00_jprb,&
 & 8.5427e+00_jprb,9.9277e+00_jprb,1.0503e+01_jprb,1.1401e+01_jprb/)  

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


SUBROUTINE part11

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


kao( :, 4, 6,15) = (/&
 & 8.9427e+00_jprb,7.8250e+00_jprb,6.7072e+00_jprb,6.1864e+00_jprb,7.3054e+00_jprb,9.1262e+00_jprb,&
 & 1.0936e+01_jprb,1.2717e+01_jprb,1.3530e+01_jprb,1.4596e+01_jprb/)  
kao( :, 5, 6,15) = (/&
 & 1.0234e+01_jprb,8.9552e+00_jprb,7.6757e+00_jprb,7.4408e+00_jprb,9.0975e+00_jprb,1.1364e+01_jprb,&
 & 1.3619e+01_jprb,1.5837e+01_jprb,1.6857e+01_jprb,1.8182e+01_jprb/)  
kao( :, 1, 7,15) = (/&
 & 4.4701e+00_jprb,3.9114e+00_jprb,3.3527e+00_jprb,2.8491e+00_jprb,3.0525e+00_jprb,3.8120e+00_jprb,&
 & 4.5671e+00_jprb,5.3029e+00_jprb,5.5170e+00_jprb,6.1054e+00_jprb/)  
kao( :, 2, 7,15) = (/&
 & 5.7025e+00_jprb,4.9897e+00_jprb,4.2769e+00_jprb,3.7076e+00_jprb,4.1441e+00_jprb,5.1768e+00_jprb,&
 & 6.2022e+00_jprb,7.2045e+00_jprb,7.5353e+00_jprb,8.2888e+00_jprb/)  
kao( :, 3, 7,15) = (/&
 & 6.9903e+00_jprb,6.1166e+00_jprb,5.2429e+00_jprb,4.7421e+00_jprb,5.4711e+00_jprb,6.8345e+00_jprb,&
 & 8.1908e+00_jprb,9.5158e+00_jprb,1.0021e+01_jprb,1.0944e+01_jprb/)  
kao( :, 4, 7,15) = (/&
 & 8.3116e+00_jprb,7.2727e+00_jprb,6.2339e+00_jprb,5.9347e+00_jprb,7.0277e+00_jprb,8.7788e+00_jprb,&
 & 1.0523e+01_jprb,1.2229e+01_jprb,1.2970e+01_jprb,1.4056e+01_jprb/)  
kao( :, 5, 7,15) = (/&
 & 9.6433e+00_jprb,8.4379e+00_jprb,7.2404e+00_jprb,7.2539e+00_jprb,8.8191e+00_jprb,1.1015e+01_jprb,&
 & 1.3202e+01_jprb,1.5351e+01_jprb,1.6381e+01_jprb,1.7636e+01_jprb/)  
kao( :, 1, 8,15) = (/&
 & 3.8815e+00_jprb,3.3963e+00_jprb,2.9112e+00_jprb,2.5144e+00_jprb,2.8901e+00_jprb,3.6107e+00_jprb,&
 & 4.3267e+00_jprb,5.0237e+00_jprb,5.2562e+00_jprb,5.7843e+00_jprb/)  
kao( :, 2, 8,15) = (/&
 & 5.0803e+00_jprb,4.4453e+00_jprb,3.8103e+00_jprb,3.3588e+00_jprb,3.9581e+00_jprb,4.9433e+00_jprb,&
 & 5.9245e+00_jprb,6.8831e+00_jprb,7.2246e+00_jprb,7.9205e+00_jprb/)  
kao( :, 3, 8,15) = (/&
 & 6.3642e+00_jprb,5.5687e+00_jprb,4.7732e+00_jprb,4.4061e+00_jprb,5.2635e+00_jprb,6.5746e+00_jprb,&
 & 7.8793e+00_jprb,9.1591e+00_jprb,9.6612e+00_jprb,1.0533e+01_jprb/)  
kao( :, 4, 8,15) = (/&
 & 7.6962e+00_jprb,6.7342e+00_jprb,5.8016e+00_jprb,5.6218e+00_jprb,6.8073e+00_jprb,8.5035e+00_jprb,&
 & 1.0191e+01_jprb,1.1842e+01_jprb,1.2564e+01_jprb,1.3618e+01_jprb/)  
kao( :, 5, 8,15) = (/&
 & 9.0600e+00_jprb,7.9276e+00_jprb,6.8887e+00_jprb,6.9782e+00_jprb,8.5965e+00_jprb,1.0738e+01_jprb,&
 & 1.2872e+01_jprb,1.4959e+01_jprb,1.5916e+01_jprb,1.7201e+01_jprb/)  
kao( :, 1, 9,15) = (/&
 & 3.3248e+00_jprb,2.9093e+00_jprb,2.4937e+00_jprb,2.2724e+00_jprb,2.6961e+00_jprb,3.3684e+00_jprb,&
 & 4.0359e+00_jprb,4.6900e+00_jprb,4.9499e+00_jprb,5.3973e+00_jprb/)  
kao( :, 2, 9,15) = (/&
 & 4.4808e+00_jprb,3.9207e+00_jprb,3.3615e+00_jprb,3.0920e+00_jprb,3.7395e+00_jprb,4.6706e+00_jprb,&
 & 5.5971e+00_jprb,6.5044e+00_jprb,6.8727e+00_jprb,7.4836e+00_jprb/)  
kao( :, 3, 9,15) = (/&
 & 5.7505e+00_jprb,5.0317e+00_jprb,4.3435e+00_jprb,4.1016e+00_jprb,5.0205e+00_jprb,6.2714e+00_jprb,&
 & 7.5160e+00_jprb,8.7397e+00_jprb,9.2709e+00_jprb,1.0047e+01_jprb/)  
kao( :, 4, 9,15) = (/&
 & 7.0908e+00_jprb,6.2044e+00_jprb,5.3782e+00_jprb,5.2882e+00_jprb,6.5597e+00_jprb,8.1944e+00_jprb,&
 & 9.8217e+00_jprb,1.1416e+01_jprb,1.2142e+01_jprb,1.3130e+01_jprb/)  
kao( :, 5, 9,15) = (/&
 & 8.4732e+00_jprb,7.4141e+00_jprb,6.4913e+00_jprb,6.6287e+00_jprb,8.3565e+00_jprb,1.0438e+01_jprb,&
 & 1.2512e+01_jprb,1.4551e+01_jprb,1.5514e+01_jprb,1.6723e+01_jprb/)  
kao( :, 1,10,15) = (/&
 & 2.8920e+00_jprb,2.5306e+00_jprb,2.1693e+00_jprb,2.0986e+00_jprb,2.5124e+00_jprb,3.1388e+00_jprb,&
 & 3.7625e+00_jprb,4.3752e+00_jprb,4.6672e+00_jprb,5.6157e+00_jprb/)  
kao( :, 2,10,15) = (/&
 & 4.0040e+00_jprb,3.5035e+00_jprb,3.0238e+00_jprb,2.9376e+00_jprb,3.5667e+00_jprb,4.4559e+00_jprb,&
 & 5.3416e+00_jprb,6.2115e+00_jprb,6.6210e+00_jprb,7.1691e+00_jprb/)  
kao( :, 3,10,15) = (/&
 & 5.2529e+00_jprb,4.5963e+00_jprb,3.9804e+00_jprb,3.9436e+00_jprb,4.8397e+00_jprb,6.0465e+00_jprb,&
 & 7.2474e+00_jprb,8.4282e+00_jprb,9.0023e+00_jprb,9.6885e+00_jprb/)  
kao( :, 4,10,15) = (/&
 & 6.6009e+00_jprb,5.7758e+00_jprb,5.0451e+00_jprb,5.1236e+00_jprb,6.3901e+00_jprb,7.9831e+00_jprb,&
 & 9.5690e+00_jprb,1.1128e+01_jprb,1.1898e+01_jprb,1.2790e+01_jprb/)  
kao( :, 5,10,15) = (/&
 & 8.0358e+00_jprb,7.0314e+00_jprb,6.2146e+00_jprb,6.4650e+00_jprb,8.1964e+00_jprb,1.0240e+01_jprb,&
 & 1.2274e+01_jprb,1.4283e+01_jprb,1.5317e+01_jprb,1.6405e+01_jprb/)  
kao( :, 1,11,15) = (/&
 & 2.9597e+00_jprb,2.5897e+00_jprb,2.2655e+00_jprb,2.2769e+00_jprb,2.7359e+00_jprb,3.4131e+00_jprb,&
 & 4.0924e+00_jprb,4.7622e+00_jprb,5.1369e+00_jprb,8.7664e+00_jprb/)  
kao( :, 2,11,15) = (/&
 & 4.1090e+00_jprb,3.5954e+00_jprb,3.1274e+00_jprb,3.2086e+00_jprb,3.8891e+00_jprb,4.8589e+00_jprb,&
 & 5.8255e+00_jprb,6.7761e+00_jprb,7.2974e+00_jprb,9.1429e+00_jprb/)  
kao( :, 3,11,15) = (/&
 & 5.4257e+00_jprb,4.7475e+00_jprb,4.1432e+00_jprb,4.3071e+00_jprb,5.2960e+00_jprb,6.6178e+00_jprb,&
 & 7.9327e+00_jprb,9.2300e+00_jprb,9.9139e+00_jprb,1.0877e+01_jprb/)  
kao( :, 4,11,15) = (/&
 & 6.8635e+00_jprb,6.0056e+00_jprb,5.3031e+00_jprb,5.5726e+00_jprb,6.9728e+00_jprb,8.7117e+00_jprb,&
 & 1.0444e+01_jprb,1.2152e+01_jprb,1.3068e+01_jprb,1.3956e+01_jprb/)  
kao( :, 5,11,15) = (/&
 & 8.4007e+00_jprb,7.3506e+00_jprb,6.6010e+00_jprb,7.0376e+00_jprb,8.9249e+00_jprb,1.1150e+01_jprb,&
 & 1.3367e+01_jprb,1.5547e+01_jprb,1.6736e+01_jprb,1.7861e+01_jprb/)  
kao( :, 1,12,15) = (/&
 & 3.0706e+00_jprb,2.6868e+00_jprb,2.3786e+00_jprb,2.4650e+00_jprb,2.9376e+00_jprb,3.6606e+00_jprb,&
 & 4.3900e+00_jprb,5.1097e+00_jprb,5.5523e+00_jprb,1.1122e+01_jprb/)  
kao( :, 2,12,15) = (/&
 & 4.2894e+00_jprb,3.7532e+00_jprb,3.3135e+00_jprb,3.4942e+00_jprb,4.2139e+00_jprb,5.2646e+00_jprb,&
 & 6.3121e+00_jprb,7.3466e+00_jprb,7.9376e+00_jprb,1.1136e+01_jprb/)  
kao( :, 3,12,15) = (/&
 & 5.6884e+00_jprb,4.9773e+00_jprb,4.4260e+00_jprb,4.7039e+00_jprb,5.7519e+00_jprb,7.1866e+00_jprb,&
 & 8.6165e+00_jprb,1.0029e+01_jprb,1.0827e+01_jprb,1.2499e+01_jprb/)  
kao( :, 4,12,15) = (/&
 & 7.2505e+00_jprb,6.3448e+00_jprb,5.7066e+00_jprb,6.0941e+00_jprb,7.5592e+00_jprb,9.4443e+00_jprb,&
 & 1.1323e+01_jprb,1.3172e+01_jprb,1.4230e+01_jprb,1.5157e+01_jprb/)  
kao( :, 5,12,15) = (/&
 & 8.9729e+00_jprb,7.8513e+00_jprb,7.1677e+00_jprb,7.7018e+00_jprb,9.6945e+00_jprb,1.2112e+01_jprb,&
 & 1.4519e+01_jprb,1.6896e+01_jprb,1.8235e+01_jprb,1.9402e+01_jprb/)  
kao( :, 1,13,15) = (/&
 & 3.2246e+00_jprb,2.8216e+00_jprb,2.5410e+00_jprb,2.6672e+00_jprb,3.1335e+00_jprb,3.8953e+00_jprb,&
 & 4.6718e+00_jprb,5.4398e+00_jprb,5.9398e+00_jprb,1.1048e+01_jprb/)  
kao( :, 2,13,15) = (/&
 & 4.5396e+00_jprb,3.9722e+00_jprb,3.6057e+00_jprb,3.8124e+00_jprb,4.5235e+00_jprb,5.6334e+00_jprb,&
 & 6.7551e+00_jprb,7.8654e+00_jprb,8.5655e+00_jprb,1.1523e+01_jprb/)  
kao( :, 3,13,15) = (/&
 & 6.0822e+00_jprb,5.3219e+00_jprb,4.8716e+00_jprb,5.1514e+00_jprb,6.1861e+00_jprb,7.7214e+00_jprb,&
 & 9.2581e+00_jprb,1.0776e+01_jprb,1.1699e+01_jprb,1.3150e+01_jprb/)  
kao( :, 4,13,15) = (/&
 & 7.8600e+00_jprb,6.8777e+00_jprb,6.3193e+00_jprb,6.6903e+00_jprb,8.1367e+00_jprb,1.0164e+01_jprb,&
 & 1.2187e+01_jprb,1.4188e+01_jprb,1.5392e+01_jprb,1.6289e+01_jprb/)  
kao( :, 5,13,15) = (/&
 & 9.8483e+00_jprb,8.6182e+00_jprb,7.9619e+00_jprb,8.4555e+00_jprb,1.0467e+01_jprb,1.3077e+01_jprb,&
 & 1.5680e+01_jprb,1.8246e+01_jprb,1.9749e+01_jprb,2.0946e+01_jprb/)  
kao( :, 1, 1,16) = (/&
 & 7.5127e+00_jprb,6.5737e+00_jprb,5.6349e+00_jprb,4.6958e+00_jprb,3.8779e+00_jprb,4.8416e+00_jprb,&
 & 5.7981e+00_jprb,6.7189e+00_jprb,6.8002e+00_jprb,7.2408e+00_jprb/)  
kao( :, 2, 1,16) = (/&
 & 8.6979e+00_jprb,7.6109e+00_jprb,6.5239e+00_jprb,5.4368e+00_jprb,4.7903e+00_jprb,5.9807e+00_jprb,&
 & 7.1609e+00_jprb,8.2994e+00_jprb,8.3109e+00_jprb,8.9455e+00_jprb/)  
kao( :, 3, 1,16) = (/&
 & 9.7317e+00_jprb,8.6042e+00_jprb,7.2993e+00_jprb,6.0830e+00_jprb,5.8526e+00_jprb,7.3076e+00_jprb,&
 & 8.7490e+00_jprb,1.0034e+01_jprb,1.0263e+01_jprb,1.0816e+01_jprb/)  
kao( :, 4, 1,16) = (/&
 & 1.0961e+01_jprb,9.5913e+00_jprb,8.2214e+00_jprb,6.8514e+00_jprb,7.1532e+00_jprb,8.9336e+00_jprb,&
 & 1.0696e+01_jprb,1.2395e+01_jprb,1.2541e+01_jprb,1.3218e+01_jprb/)  
kao( :, 5, 1,16) = (/&
 & 1.2007e+01_jprb,1.0506e+01_jprb,9.0063e+00_jprb,7.5055e+00_jprb,8.5533e+00_jprb,1.0682e+01_jprb,&
 & 1.2789e+01_jprb,1.4823e+01_jprb,1.5003e+01_jprb,1.5975e+01_jprb/)  
kao( :, 1, 2,16) = (/&
 & 7.3731e+00_jprb,6.4516e+00_jprb,5.5301e+00_jprb,4.6086e+00_jprb,4.2937e+00_jprb,5.3609e+00_jprb,&
 & 6.4198e+00_jprb,7.4408e+00_jprb,7.5329e+00_jprb,8.2124e+00_jprb/)  
kao( :, 2, 2,16) = (/&
 & 8.6021e+00_jprb,7.5271e+00_jprb,6.4520e+00_jprb,5.3768e+00_jprb,5.3675e+00_jprb,6.7018e+00_jprb,&
 & 8.0237e+00_jprb,9.2997e+00_jprb,9.4140e+00_jprb,1.0264e+01_jprb/)  
kao( :, 3, 2,16) = (/&
 & 9.7888e+00_jprb,8.5654e+00_jprb,7.3420e+00_jprb,6.1186e+00_jprb,6.5496e+00_jprb,8.1782e+00_jprb,&
 & 9.7904e+00_jprb,1.1344e+01_jprb,1.1474e+01_jprb,1.2519e+01_jprb/)  
kao( :, 4, 2,16) = (/&
 & 1.0945e+01_jprb,9.5769e+00_jprb,8.2090e+00_jprb,6.8412e+00_jprb,8.0474e+00_jprb,1.0048e+01_jprb,&
 & 1.2030e+01_jprb,1.3944e+01_jprb,1.4114e+01_jprb,1.5388e+01_jprb/)  
kao( :, 5, 2,16) = (/&
 & 1.2042e+01_jprb,1.0537e+01_jprb,9.0333e+00_jprb,7.5280e+00_jprb,9.7062e+00_jprb,1.2117e+01_jprb,&
 & 1.4511e+01_jprb,1.6819e+01_jprb,1.7024e+01_jprb,1.8558e+01_jprb/)  
kao( :, 1, 3,16) = (/&
 & 6.9437e+00_jprb,6.0759e+00_jprb,5.2080e+00_jprb,4.3402e+00_jprb,4.5023e+00_jprb,5.6214e+00_jprb,&
 & 6.7297e+00_jprb,7.8026e+00_jprb,7.9012e+00_jprb,8.8155e+00_jprb/)  
kao( :, 2, 3,16) = (/&
 & 8.2070e+00_jprb,7.1813e+00_jprb,6.1554e+00_jprb,5.1298e+00_jprb,5.7329e+00_jprb,7.1578e+00_jprb,&
 & 8.5699e+00_jprb,9.9336e+00_jprb,1.0060e+01_jprb,1.1228e+01_jprb/)  
kao( :, 3, 3,16) = (/&
 & 9.4491e+00_jprb,8.2681e+00_jprb,7.0872e+00_jprb,5.9062e+00_jprb,7.0707e+00_jprb,8.8297e+00_jprb,&
 & 1.0581e+01_jprb,1.2262e+01_jprb,1.2422e+01_jprb,1.3860e+01_jprb/)  
kao( :, 4, 3,16) = (/&
 & 1.0642e+01_jprb,9.3115e+00_jprb,7.9815e+00_jprb,6.6515e+00_jprb,8.6654e+00_jprb,1.0819e+01_jprb,&
 & 1.2954e+01_jprb,1.5013e+01_jprb,1.5194e+01_jprb,1.6966e+01_jprb/)  
kao( :, 5, 3,16) = (/&
 & 1.1807e+01_jprb,1.0331e+01_jprb,8.8554e+00_jprb,7.9416e+00_jprb,1.0582e+01_jprb,1.3212e+01_jprb,&
 & 1.5820e+01_jprb,1.8322e+01_jprb,1.8571e+01_jprb,2.0721e+01_jprb/)  
kao( :, 1, 4,16) = (/&
 & 6.4258e+00_jprb,5.6226e+00_jprb,4.8196e+00_jprb,4.0164e+00_jprb,4.5983e+00_jprb,5.7339e+00_jprb,&
 & 6.8740e+00_jprb,7.9661e+00_jprb,8.0728e+00_jprb,9.1132e+00_jprb/)  
kao( :, 2, 4,16) = (/&
 & 7.6917e+00_jprb,6.7303e+00_jprb,5.7690e+00_jprb,4.8076e+00_jprb,5.9866e+00_jprb,7.4749e+00_jprb,&
 & 8.9518e+00_jprb,1.0377e+01_jprb,1.0515e+01_jprb,1.1857e+01_jprb/)  
kao( :, 3, 4,16) = (/&
 & 8.9813e+00_jprb,7.8586e+00_jprb,6.7361e+00_jprb,5.6678e+00_jprb,7.5316e+00_jprb,9.4038e+00_jprb,&
 & 1.1247e+01_jprb,1.3049e+01_jprb,1.3228e+01_jprb,1.4925e+01_jprb/)  
kao( :, 4, 4,16) = (/&
 & 1.0239e+01_jprb,8.9593e+00_jprb,7.6796e+00_jprb,6.9509e+00_jprb,9.2615e+00_jprb,1.1564e+01_jprb,&
 & 1.3845e+01_jprb,1.6028e+01_jprb,1.6220e+01_jprb,1.8333e+01_jprb/)  
kao( :, 5, 4,16) = (/&
 & 1.1440e+01_jprb,1.0010e+01_jprb,8.5838e+00_jprb,8.5098e+00_jprb,1.1339e+01_jprb,1.4159e+01_jprb,&
 & 1.6953e+01_jprb,1.9656e+01_jprb,1.9906e+01_jprb,2.2476e+01_jprb/)  
kao( :, 1, 5,16) = (/&
 & 5.8770e+00_jprb,5.1424e+00_jprb,4.4079e+00_jprb,3.6733e+00_jprb,4.6297e+00_jprb,5.7866e+00_jprb,&
 & 6.9277e+00_jprb,8.0308e+00_jprb,8.1369e+00_jprb,9.2272e+00_jprb/)  
kao( :, 2, 5,16) = (/&
 & 7.1523e+00_jprb,6.2582e+00_jprb,5.3644e+00_jprb,4.6413e+00_jprb,6.1841e+00_jprb,7.7213e+00_jprb,&
 & 9.2461e+00_jprb,1.0718e+01_jprb,1.0873e+01_jprb,1.2325e+01_jprb/)  
kao( :, 3, 5,16) = (/&
 & 8.4613e+00_jprb,7.4038e+00_jprb,6.3462e+00_jprb,5.9572e+00_jprb,7.9337e+00_jprb,9.9057e+00_jprb,&
 & 1.1872e+01_jprb,1.3758e+01_jprb,1.3965e+01_jprb,1.5800e+01_jprb/)  
kao( :, 4, 5,16) = (/&
 & 9.7676e+00_jprb,8.5468e+00_jprb,7.3259e+00_jprb,7.4238e+00_jprb,9.8916e+00_jprb,1.2352e+01_jprb,&
 & 1.4791e+01_jprb,1.7147e+01_jprb,1.7384e+01_jprb,1.9719e+01_jprb/)  
kao( :, 5, 5,16) = (/&
 & 1.1025e+01_jprb,9.6472e+00_jprb,8.2716e+00_jprb,9.1406e+00_jprb,1.2179e+01_jprb,1.5208e+01_jprb,&
 & 1.8211e+01_jprb,2.1097e+01_jprb,2.1364e+01_jprb,2.4267e+01_jprb/)  
kao( :, 1, 6,16) = (/&
 & 5.2650e+00_jprb,4.6069e+00_jprb,3.9488e+00_jprb,3.4184e+00_jprb,4.5538e+00_jprb,5.6834e+00_jprb,&
 & 6.8059e+00_jprb,7.8914e+00_jprb,8.0145e+00_jprb,9.0940e+00_jprb/)  
kao( :, 2, 6,16) = (/&
 & 6.5470e+00_jprb,5.7287e+00_jprb,4.9104e+00_jprb,4.6912e+00_jprb,6.2505e+00_jprb,7.8043e+00_jprb,&
 & 9.3463e+00_jprb,1.0825e+01_jprb,1.1010e+01_jprb,1.2479e+01_jprb/)  
kao( :, 3, 6,16) = (/&
 & 7.8534e+00_jprb,6.8718e+00_jprb,5.8902e+00_jprb,6.1640e+00_jprb,8.2139e+00_jprb,1.0257e+01_jprb,&
 & 1.2274e+01_jprb,1.4245e+01_jprb,1.4468e+01_jprb,1.6406e+01_jprb/)  
kao( :, 4, 6,16) = (/&
 & 9.2007e+00_jprb,8.0507e+00_jprb,6.9007e+00_jprb,7.8216e+00_jprb,1.0421e+01_jprb,1.3014e+01_jprb,&
 & 1.5581e+01_jprb,1.8055e+01_jprb,1.8344e+01_jprb,2.0809e+01_jprb/)  
kao( :, 5, 6,16) = (/&
 & 1.0512e+01_jprb,9.1984e+00_jprb,7.8842e+00_jprb,9.7429e+00_jprb,1.2982e+01_jprb,1.6206e+01_jprb,&
 & 1.9407e+01_jprb,2.2502e+01_jprb,2.2789e+01_jprb,2.5928e+01_jprb/)  
kao( :, 1, 7,16) = (/&
 & 4.6565e+00_jprb,4.0745e+00_jprb,3.4925e+00_jprb,3.2956e+00_jprb,4.3911e+00_jprb,5.4864e+00_jprb,&
 & 6.5695e+00_jprb,7.6115e+00_jprb,7.7439e+00_jprb,8.7837e+00_jprb/)  
kao( :, 2, 7,16) = (/&
 & 5.9292e+00_jprb,5.1881e+00_jprb,4.4470e+00_jprb,4.6697e+00_jprb,6.2219e+00_jprb,7.7686e+00_jprb,&
 & 9.3043e+00_jprb,1.0790e+01_jprb,1.0982e+01_jprb,1.2451e+01_jprb/)  
kao( :, 3, 7,16) = (/&
 & 7.2576e+00_jprb,6.3505e+00_jprb,5.4433e+00_jprb,6.2922e+00_jprb,8.3823e+00_jprb,1.0468e+01_jprb,&
 & 1.2543e+01_jprb,1.4536e+01_jprb,1.4805e+01_jprb,1.6765e+01_jprb/)  
kao( :, 4, 7,16) = (/&
 & 8.6179e+00_jprb,7.5406e+00_jprb,6.4633e+00_jprb,8.1550e+00_jprb,1.0866e+01_jprb,1.3567e+01_jprb,&
 & 1.6244e+01_jprb,1.8842e+01_jprb,1.9186e+01_jprb,2.1742e+01_jprb/)  
kao( :, 5, 7,16) = (/&
 & 9.9851e+00_jprb,8.7370e+00_jprb,7.4898e+00_jprb,1.0321e+01_jprb,1.3752e+01_jprb,1.7171e+01_jprb,&
 & 2.0561e+01_jprb,2.3825e+01_jprb,2.4177e+01_jprb,2.7508e+01_jprb/)  
kao( :, 1, 8,16) = (/&
 & 4.0754e+00_jprb,3.5660e+00_jprb,3.0566e+00_jprb,3.1333e+00_jprb,4.1749e+00_jprb,5.2109e+00_jprb,&
 & 6.2379e+00_jprb,7.2391e+00_jprb,7.3822e+00_jprb,8.3583e+00_jprb/)  
kao( :, 2, 8,16) = (/&
 & 5.3273e+00_jprb,4.6614e+00_jprb,3.9956e+00_jprb,4.5880e+00_jprb,6.1132e+00_jprb,7.6329e+00_jprb,&
 & 9.1372e+00_jprb,1.0600e+01_jprb,1.0819e+01_jprb,1.2238e+01_jprb/)  
kao( :, 3, 8,16) = (/&
 & 6.6607e+00_jprb,5.8281e+00_jprb,4.9956e+00_jprb,6.3489e+00_jprb,8.4692e+00_jprb,1.0575e+01_jprb,&
 & 1.2658e+01_jprb,1.4678e+01_jprb,1.4991e+01_jprb,1.6951e+01_jprb/)  
kao( :, 4, 8,16) = (/&
 & 8.0394e+00_jprb,7.0344e+00_jprb,6.0296e+00_jprb,8.4237e+00_jprb,1.1224e+01_jprb,1.4014e+01_jprb,&
 & 1.6789e+01_jprb,1.9460e+01_jprb,1.9854e+01_jprb,2.2470e+01_jprb/)  
kao( :, 5, 8,16) = (/&
 & 9.4437e+00_jprb,8.2633e+00_jprb,7.2895e+00_jprb,1.0868e+01_jprb,1.4480e+01_jprb,1.8081e+01_jprb,&
 & 2.1653e+01_jprb,2.5111e+01_jprb,2.5514e+01_jprb,2.8990e+01_jprb/)  
kao( :, 1, 9,16) = (/&
 & 3.5121e+00_jprb,3.0731e+00_jprb,2.6341e+00_jprb,2.9279e+00_jprb,3.9013e+00_jprb,4.8754e+00_jprb,&
 & 5.8368e+00_jprb,6.7644e+00_jprb,6.8920e+00_jprb,7.8150e+00_jprb/)  
kao( :, 2, 9,16) = (/&
 & 4.7223e+00_jprb,4.1321e+00_jprb,3.5416e+00_jprb,4.4240e+00_jprb,5.8947e+00_jprb,7.3602e+00_jprb,&
 & 8.8237e+00_jprb,1.0234e+01_jprb,1.0473e+01_jprb,1.1818e+01_jprb/)  
kao( :, 3, 9,16) = (/&
 & 6.0478e+00_jprb,5.2918e+00_jprb,4.5359e+00_jprb,6.3118e+00_jprb,8.4105e+00_jprb,1.0504e+01_jprb,&
 & 1.2585e+01_jprb,1.4594e+01_jprb,1.4948e+01_jprb,1.6837e+01_jprb/)  
kao( :, 4, 9,16) = (/&
 & 7.4404e+00_jprb,6.5104e+00_jprb,5.8282e+00_jprb,8.5908e+00_jprb,1.1447e+01_jprb,1.4294e+01_jprb,&
 & 1.7119e+01_jprb,1.9856e+01_jprb,2.0299e+01_jprb,2.2935e+01_jprb/)  
kao( :, 5, 9,16) = (/&
 & 8.8732e+00_jprb,7.7641e+00_jprb,7.5539e+00_jprb,1.1327e+01_jprb,1.5093e+01_jprb,1.8849e+01_jprb,&
 & 2.2573e+01_jprb,2.6165e+01_jprb,2.6652e+01_jprb,3.0230e+01_jprb/)  
kao( :, 1,10,16) = (/&
 & 3.0618e+00_jprb,2.6791e+00_jprb,2.2964e+00_jprb,2.9364e+00_jprb,3.9126e+00_jprb,4.8847e+00_jprb,&
 & 5.8475e+00_jprb,6.7808e+00_jprb,6.8756e+00_jprb,7.8358e+00_jprb/)  
kao( :, 2,10,16) = (/&
 & 4.2316e+00_jprb,3.7027e+00_jprb,3.1743e+00_jprb,4.3350e+00_jprb,5.7762e+00_jprb,7.2138e+00_jprb,&
 & 8.6367e+00_jprb,1.0019e+01_jprb,1.0284e+01_jprb,1.1570e+01_jprb/)  
kao( :, 3,10,16) = (/&
 & 5.5457e+00_jprb,4.8525e+00_jprb,4.3615e+00_jprb,6.3373e+00_jprb,8.4492e+00_jprb,1.0550e+01_jprb,&
 & 1.2638e+01_jprb,1.4656e+01_jprb,1.5082e+01_jprb,1.6923e+01_jprb/)  
kao( :, 4,10,16) = (/&
 & 6.9593e+00_jprb,6.0894e+00_jprb,5.9134e+00_jprb,8.8661e+00_jprb,1.1814e+01_jprb,1.4751e+01_jprb,&
 & 1.7669e+01_jprb,2.0491e+01_jprb,2.0978e+01_jprb,2.3664e+01_jprb/)  
kao( :, 5,10,16) = (/&
 & 8.4396e+00_jprb,7.3847e+00_jprb,7.9651e+00_jprb,1.1942e+01_jprb,1.5915e+01_jprb,1.9872e+01_jprb,&
 & 2.3793e+01_jprb,2.7593e+01_jprb,2.8161e+01_jprb,3.1872e+01_jprb/)  
kao( :, 1,11,16) = (/&
 & 3.1579e+00_jprb,2.7632e+00_jprb,2.3896e+00_jprb,3.5545e+00_jprb,4.7362e+00_jprb,5.9136e+00_jprb,&
 & 7.0823e+00_jprb,8.2069e+00_jprb,8.3323e+00_jprb,9.4873e+00_jprb/)  
kao( :, 2,11,16) = (/&
 & 4.3744e+00_jprb,3.8276e+00_jprb,3.5100e+00_jprb,5.1538e+00_jprb,6.8671e+00_jprb,8.5743e+00_jprb,&
 & 1.0274e+01_jprb,1.1914e+01_jprb,1.2209e+01_jprb,1.3757e+01_jprb/)  
kao( :, 3,11,16) = (/&
 & 5.7471e+00_jprb,5.0288e+00_jprb,5.0034e+00_jprb,7.4970e+00_jprb,9.9888e+00_jprb,1.2472e+01_jprb,&
 & 1.4942e+01_jprb,1.7333e+01_jprb,1.7821e+01_jprb,2.0007e+01_jprb/)  
kao( :, 4,11,16) = (/&
 & 7.2629e+00_jprb,6.3550e+00_jprb,7.0474e+00_jprb,1.0566e+01_jprb,1.4079e+01_jprb,1.7584e+01_jprb,&
 & 2.1057e+01_jprb,2.4419e+01_jprb,2.5019e+01_jprb,2.8211e+01_jprb/)  
kao( :, 5,11,16) = (/&
 & 8.9069e+00_jprb,7.7936e+00_jprb,9.5284e+00_jprb,1.4286e+01_jprb,1.9037e+01_jprb,2.3771e+01_jprb,&
 & 2.8468e+01_jprb,3.3010e+01_jprb,3.3751e+01_jprb,3.8130e+01_jprb/)  
kao( :, 1,12,16) = (/&
 & 3.3006e+00_jprb,2.8881e+00_jprb,2.8666e+00_jprb,4.2985e+00_jprb,5.7274e+00_jprb,7.1506e+00_jprb,&
 & 8.5607e+00_jprb,9.9299e+00_jprb,1.0097e+01_jprb,1.1570e+01_jprb/)  
kao( :, 2,12,16) = (/&
 & 4.5952e+00_jprb,4.0208e+00_jprb,4.1024e+00_jprb,6.1511e+00_jprb,8.1959e+00_jprb,1.0235e+01_jprb,&
 & 1.2254e+01_jprb,1.4215e+01_jprb,1.4558e+01_jprb,1.6415e+01_jprb/)  
kao( :, 3,12,16) = (/&
 & 6.1172e+00_jprb,5.3526e+00_jprb,5.9205e+00_jprb,8.8783e+00_jprb,1.1835e+01_jprb,1.4781e+01_jprb,&
 & 1.7706e+01_jprb,2.0531e+01_jprb,2.1114e+01_jprb,2.3705e+01_jprb/)  
kao( :, 4,12,16) = (/&
 & 7.9063e+00_jprb,6.9180e+00_jprb,8.3812e+00_jprb,1.2566e+01_jprb,1.6747e+01_jprb,2.0915e+01_jprb,&
 & 2.5049e+01_jprb,2.9064e+01_jprb,2.9820e+01_jprb,3.3552e+01_jprb/)  
kao( :, 5,12,16) = (/&
 & 9.9405e+00_jprb,8.6980e+00_jprb,1.1361e+01_jprb,1.7034e+01_jprb,2.2697e+01_jprb,2.8347e+01_jprb,&
 & 3.3936e+01_jprb,3.9357e+01_jprb,4.0377e+01_jprb,4.5471e+01_jprb/)  

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


SUBROUTINE part12

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


kao( :, 1,13,16) = (/&
 & 3.5240e+00_jprb,3.0835e+00_jprb,3.4502e+00_jprb,5.1734e+00_jprb,6.8947e+00_jprb,8.6091e+00_jprb,&
 & 1.0310e+01_jprb,1.1954e+01_jprb,1.2187e+01_jprb,1.3806e+01_jprb/)  
kao( :, 2,13,16) = (/&
 & 5.0191e+00_jprb,4.3917e+00_jprb,4.8873e+00_jprb,7.3276e+00_jprb,9.7654e+00_jprb,1.2194e+01_jprb,&
 & 1.4608e+01_jprb,1.6943e+01_jprb,1.7366e+01_jprb,1.9559e+01_jprb/)  
kao( :, 3,13,16) = (/&
 & 6.8612e+00_jprb,6.0035e+00_jprb,6.9941e+00_jprb,1.0486e+01_jprb,1.3971e+01_jprb,1.7446e+01_jprb,&
 & 2.0896e+01_jprb,2.4256e+01_jprb,2.4993e+01_jprb,2.7979e+01_jprb/)  
kao( :, 4,13,16) = (/&
 & 8.9937e+00_jprb,7.8713e+00_jprb,9.9172e+00_jprb,1.4874e+01_jprb,1.9818e+01_jprb,2.4754e+01_jprb,&
 & 2.9642e+01_jprb,3.4374e+01_jprb,3.5407e+01_jprb,3.9689e+01_jprb/)  
kao( :, 5,13,16) = (/&
 & 1.1386e+01_jprb,9.9632e+00_jprb,1.3441e+01_jprb,2.0157e+01_jprb,2.6861e+01_jprb,3.3545e+01_jprb,&
 & 4.0165e+01_jprb,4.6616e+01_jprb,4.7981e+01_jprb,5.3793e+01_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 H2O to CO2.  The first index in the array, JS, runs from 1 to 5, 
!     and corresponds to different H2O to CO2 ratios, as expressed through 
!     the binary species parameter eta, defined as eta = H2O/(H2O+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 no H2O, 
!     JS = 2 corresponds to eta = 0.25, etc.  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) = (/&
 & 7.1418e-07_jprb,7.7683e-05_jprb,1.6530e-04_jprb,3.3221e-04_jprb,3.4375e-04_jprb/)  
kbo( :, 2,13, 1) = (/&
 & 7.2895e-07_jprb,7.7891e-05_jprb,1.5813e-04_jprb,2.9611e-04_jprb,3.5156e-04_jprb/)  
kbo( :, 3,13, 1) = (/&
 & 8.1104e-07_jprb,8.0313e-05_jprb,1.5573e-04_jprb,2.7205e-04_jprb,3.6744e-04_jprb/)  
kbo( :, 4,13, 1) = (/&
 & 9.8030e-07_jprb,8.4645e-05_jprb,1.5829e-04_jprb,2.5788e-04_jprb,3.9124e-04_jprb/)  
kbo( :, 5,13, 1) = (/&
 & 1.2532e-06_jprb,9.1367e-05_jprb,1.6556e-04_jprb,2.5243e-04_jprb,4.2278e-04_jprb/)  
kbo( :, 1,14, 1) = (/&
 & 5.8662e-07_jprb,6.3217e-05_jprb,1.3394e-04_jprb,2.6815e-04_jprb,2.8024e-04_jprb/)  
kbo( :, 2,14, 1) = (/&
 & 6.0322e-07_jprb,6.3644e-05_jprb,1.2871e-04_jprb,2.3989e-04_jprb,2.8697e-04_jprb/)  
kbo( :, 3,14, 1) = (/&
 & 6.7707e-07_jprb,6.5857e-05_jprb,1.2726e-04_jprb,2.2113e-04_jprb,3.0014e-04_jprb/)  
kbo( :, 4,14, 1) = (/&
 & 8.2251e-07_jprb,6.9663e-05_jprb,1.2984e-04_jprb,2.1038e-04_jprb,3.1976e-04_jprb/)  
kbo( :, 5,14, 1) = (/&
 & 1.0537e-06_jprb,7.5477e-05_jprb,1.3625e-04_jprb,2.0669e-04_jprb,3.4553e-04_jprb/)  
kbo( :, 1,15, 1) = (/&
 & 4.8159e-07_jprb,5.1327e-05_jprb,1.0828e-04_jprb,2.1580e-04_jprb,2.2716e-04_jprb/)  
kbo( :, 2,15, 1) = (/&
 & 4.9953e-07_jprb,5.1898e-05_jprb,1.0456e-04_jprb,1.9384e-04_jprb,2.3282e-04_jprb/)  
kbo( :, 3,15, 1) = (/&
 & 5.6592e-07_jprb,5.3937e-05_jprb,1.0383e-04_jprb,1.7938e-04_jprb,2.4342e-04_jprb/)  
kbo( :, 4,15, 1) = (/&
 & 6.9060e-07_jprb,5.7276e-05_jprb,1.0637e-04_jprb,1.7136e-04_jprb,2.5925e-04_jprb/)  
kbo( :, 5,15, 1) = (/&
 & 8.8764e-07_jprb,6.2300e-05_jprb,1.1206e-04_jprb,1.6901e-04_jprb,2.7978e-04_jprb/)  
kbo( :, 1,16, 1) = (/&
 & 3.9534e-07_jprb,4.1658e-05_jprb,8.7509e-05_jprb,1.7349e-04_jprb,1.8327e-04_jprb/)  
kbo( :, 2,16, 1) = (/&
 & 4.1395e-07_jprb,4.2305e-05_jprb,8.4934e-05_jprb,1.5653e-04_jprb,1.8794e-04_jprb/)  
kbo( :, 3,16, 1) = (/&
 & 4.7298e-07_jprb,4.4176e-05_jprb,8.4714e-05_jprb,1.4546e-04_jprb,1.9627e-04_jprb/)  
kbo( :, 4,16, 1) = (/&
 & 5.8017e-07_jprb,4.7094e-05_jprb,8.7162e-05_jprb,1.3953e-04_jprb,2.0862e-04_jprb/)  
kbo( :, 5,16, 1) = (/&
 & 7.4847e-07_jprb,5.1410e-05_jprb,9.2164e-05_jprb,1.3822e-04_jprb,2.2492e-04_jprb/)  
kbo( :, 1,17, 1) = (/&
 & 3.2461e-07_jprb,3.3900e-05_jprb,7.0928e-05_jprb,1.3982e-04_jprb,1.4790e-04_jprb/)  
kbo( :, 2,17, 1) = (/&
 & 3.4310e-07_jprb,3.4570e-05_jprb,6.9142e-05_jprb,1.2666e-04_jprb,1.5175e-04_jprb/)  
kbo( :, 3,17, 1) = (/&
 & 3.9502e-07_jprb,3.6243e-05_jprb,6.9258e-05_jprb,1.1817e-04_jprb,1.5840e-04_jprb/)  
kbo( :, 4,17, 1) = (/&
 & 4.8706e-07_jprb,3.8770e-05_jprb,7.1558e-05_jprb,1.1380e-04_jprb,1.6811e-04_jprb/)  
kbo( :, 5,17, 1) = (/&
 & 6.3052e-07_jprb,4.2462e-05_jprb,7.5924e-05_jprb,1.1322e-04_jprb,1.8097e-04_jprb/)  
kbo( :, 1,18, 1) = (/&
 & 2.6665e-07_jprb,2.7690e-05_jprb,5.7714e-05_jprb,1.1306e-04_jprb,1.1974e-04_jprb/)  
kbo( :, 2,18, 1) = (/&
 & 2.8433e-07_jprb,2.8352e-05_jprb,5.6467e-05_jprb,1.0278e-04_jprb,1.2295e-04_jprb/)  
kbo( :, 3,18, 1) = (/&
 & 3.2991e-07_jprb,2.9820e-05_jprb,5.6782e-05_jprb,9.6223e-05_jprb,1.2833e-04_jprb/)  
kbo( :, 4,18, 1) = (/&
 & 4.0885e-07_jprb,3.1990e-05_jprb,5.8916e-05_jprb,9.3033e-05_jprb,1.3601e-04_jprb/)  
kbo( :, 5,18, 1) = (/&
 & 5.3113e-07_jprb,3.5147e-05_jprb,6.2667e-05_jprb,9.2955e-05_jprb,1.4604e-04_jprb/)  
kbo( :, 1,19, 1) = (/&
 & 2.1915e-07_jprb,2.2650e-05_jprb,4.7032e-05_jprb,9.1545e-05_jprb,9.7174e-05_jprb/)  
kbo( :, 2,19, 1) = (/&
 & 2.3563e-07_jprb,2.3282e-05_jprb,4.6172e-05_jprb,8.3486e-05_jprb,9.9869e-05_jprb/)  
kbo( :, 3,19, 1) = (/&
 & 2.7548e-07_jprb,2.4553e-05_jprb,4.6603e-05_jprb,7.8441e-05_jprb,1.0422e-04_jprb/)  
kbo( :, 4,19, 1) = (/&
 & 3.4310e-07_jprb,2.6414e-05_jprb,4.8547e-05_jprb,7.6134e-05_jprb,1.1036e-04_jprb/)  
kbo( :, 5,19, 1) = (/&
 & 4.4724e-07_jprb,2.9096e-05_jprb,5.1737e-05_jprb,7.6381e-05_jprb,1.1839e-04_jprb/)  
kbo( :, 1,20, 1) = (/&
 & 1.8030e-07_jprb,1.8558e-05_jprb,3.8356e-05_jprb,7.4071e-05_jprb,7.9169e-05_jprb/)  
kbo( :, 2,20, 1) = (/&
 & 1.9579e-07_jprb,1.9155e-05_jprb,3.7791e-05_jprb,6.7788e-05_jprb,8.1446e-05_jprb/)  
kbo( :, 3,20, 1) = (/&
 & 2.3085e-07_jprb,2.0254e-05_jprb,3.8309e-05_jprb,6.3956e-05_jprb,8.5047e-05_jprb/)  
kbo( :, 4,20, 1) = (/&
 & 2.8924e-07_jprb,2.1859e-05_jprb,4.0062e-05_jprb,6.2346e-05_jprb,9.0082e-05_jprb/)  
kbo( :, 5,20, 1) = (/&
 & 3.7846e-07_jprb,2.4137e-05_jprb,4.2788e-05_jprb,6.2820e-05_jprb,9.6650e-05_jprb/)  
kbo( :, 1,21, 1) = (/&
 & 1.4847e-07_jprb,1.5215e-05_jprb,3.1290e-05_jprb,5.9949e-05_jprb,6.4552e-05_jprb/)  
kbo( :, 2,21, 1) = (/&
 & 1.6287e-07_jprb,1.5766e-05_jprb,3.0943e-05_jprb,5.5054e-05_jprb,6.6478e-05_jprb/)  
kbo( :, 3,21, 1) = (/&
 & 1.9366e-07_jprb,1.6713e-05_jprb,3.1503e-05_jprb,5.2161e-05_jprb,6.9475e-05_jprb/)  
kbo( :, 4,21, 1) = (/&
 & 2.4408e-07_jprb,1.8092e-05_jprb,3.3059e-05_jprb,5.1064e-05_jprb,7.3632e-05_jprb/)  
kbo( :, 5,21, 1) = (/&
 & 3.2048e-07_jprb,2.0022e-05_jprb,3.5383e-05_jprb,5.1675e-05_jprb,7.9025e-05_jprb/)  
kbo( :, 1,22, 1) = (/&
 & 1.2289e-07_jprb,1.2484e-05_jprb,2.5472e-05_jprb,4.8192e-05_jprb,5.2603e-05_jprb/)  
kbo( :, 2,22, 1) = (/&
 & 1.3697e-07_jprb,1.3009e-05_jprb,2.5334e-05_jprb,4.4504e-05_jprb,5.4267e-05_jprb/)  
kbo( :, 3,22, 1) = (/&
 & 1.6488e-07_jprb,1.3843e-05_jprb,2.5950e-05_jprb,4.2432e-05_jprb,5.6803e-05_jprb/)  
kbo( :, 4,22, 1) = (/&
 & 2.0968e-07_jprb,1.5052e-05_jprb,2.7363e-05_jprb,4.1803e-05_jprb,6.0274e-05_jprb/)  
kbo( :, 5,22, 1) = (/&
 & 2.7669e-07_jprb,1.6715e-05_jprb,2.9384e-05_jprb,4.2575e-05_jprb,6.4715e-05_jprb/)  
kbo( :, 1,23, 1) = (/&
 & 1.0206e-07_jprb,1.0252e-05_jprb,2.0747e-05_jprb,3.8734e-05_jprb,4.2840e-05_jprb/)  
kbo( :, 2,23, 1) = (/&
 & 1.1559e-07_jprb,1.0742e-05_jprb,2.0755e-05_jprb,3.5990e-05_jprb,4.4274e-05_jprb/)  
kbo( :, 3,23, 1) = (/&
 & 1.4082e-07_jprb,1.1473e-05_jprb,2.1391e-05_jprb,3.4535e-05_jprb,4.6409e-05_jprb/)  
kbo( :, 4,23, 1) = (/&
 & 1.8064e-07_jprb,1.2528e-05_jprb,2.2650e-05_jprb,3.4245e-05_jprb,4.9289e-05_jprb/)  
kbo( :, 5,23, 1) = (/&
 & 2.3944e-07_jprb,1.3961e-05_jprb,2.4408e-05_jprb,3.5094e-05_jprb,5.2908e-05_jprb/)  
kbo( :, 1,24, 1) = (/&
 & 8.5103e-08_jprb,8.4147e-06_jprb,1.6891e-05_jprb,3.1099e-05_jprb,3.4780e-05_jprb/)  
kbo( :, 2,24, 1) = (/&
 & 9.8006e-08_jprb,8.8655e-06_jprb,1.6999e-05_jprb,2.9091e-05_jprb,3.5996e-05_jprb/)  
kbo( :, 3,24, 1) = (/&
 & 1.2073e-07_jprb,9.5086e-06_jprb,1.7631e-05_jprb,2.8105e-05_jprb,3.7773e-05_jprb/)  
kbo( :, 4,24, 1) = (/&
 & 1.5616e-07_jprb,1.0427e-05_jprb,1.8742e-05_jprb,2.8056e-05_jprb,4.0114e-05_jprb/)  
kbo( :, 5,24, 1) = (/&
 & 2.0784e-07_jprb,1.1663e-05_jprb,2.0274e-05_jprb,2.8927e-05_jprb,4.3028e-05_jprb/)  
kbo( :, 1,25, 1) = (/&
 & 7.1310e-08_jprb,6.9185e-06_jprb,1.3767e-05_jprb,2.4976e-05_jprb,2.8241e-05_jprb/)  
kbo( :, 2,25, 1) = (/&
 & 8.3499e-08_jprb,7.3246e-06_jprb,1.3943e-05_jprb,2.3533e-05_jprb,2.9273e-05_jprb/)  
kbo( :, 3,25, 1) = (/&
 & 1.0401e-07_jprb,7.8935e-06_jprb,1.4555e-05_jprb,2.2896e-05_jprb,3.0735e-05_jprb/)  
kbo( :, 4,25, 1) = (/&
 & 1.3555e-07_jprb,8.6941e-06_jprb,1.5529e-05_jprb,2.3015e-05_jprb,3.2639e-05_jprb/)  
kbo( :, 5,25, 1) = (/&
 & 1.8108e-07_jprb,9.7609e-06_jprb,1.6867e-05_jprb,2.3873e-05_jprb,3.4993e-05_jprb/)  
kbo( :, 1,26, 1) = (/&
 & 6.0142e-08_jprb,5.7047e-06_jprb,1.1243e-05_jprb,2.0069e-05_jprb,2.2978e-05_jprb/)  
kbo( :, 2,26, 1) = (/&
 & 7.1603e-08_jprb,6.0681e-06_jprb,1.1465e-05_jprb,1.9057e-05_jprb,2.3854e-05_jprb/)  
kbo( :, 3,26, 1) = (/&
 & 9.0251e-08_jprb,6.5738e-06_jprb,1.2045e-05_jprb,1.8681e-05_jprb,2.5076e-05_jprb/)  
kbo( :, 4,26, 1) = (/&
 & 1.1847e-07_jprb,7.2745e-06_jprb,1.2903e-05_jprb,1.8921e-05_jprb,2.6626e-05_jprb/)  
kbo( :, 5,26, 1) = (/&
 & 1.5875e-07_jprb,8.1996e-06_jprb,1.4077e-05_jprb,1.9751e-05_jprb,2.8555e-05_jprb/)  
kbo( :, 1,27, 1) = (/&
 & 5.0983e-08_jprb,4.7088e-06_jprb,9.1912e-06_jprb,1.6147e-05_jprb,1.8668e-05_jprb/)  
kbo( :, 2,27, 1) = (/&
 & 6.1630e-08_jprb,5.0315e-06_jprb,9.4402e-06_jprb,1.5452e-05_jprb,1.9405e-05_jprb/)  
kbo( :, 3,27, 1) = (/&
 & 7.8563e-08_jprb,5.4806e-06_jprb,9.9742e-06_jprb,1.5262e-05_jprb,2.0403e-05_jprb/)  
kbo( :, 4,27, 1) = (/&
 & 1.0377e-07_jprb,6.0931e-06_jprb,1.0731e-05_jprb,1.5575e-05_jprb,2.1672e-05_jprb/)  
kbo( :, 5,27, 1) = (/&
 & 1.3934e-07_jprb,6.8942e-06_jprb,1.1760e-05_jprb,1.6361e-05_jprb,2.3196e-05_jprb/)  
kbo( :, 1,28, 1) = (/&
 & 4.3423e-08_jprb,3.8906e-06_jprb,7.5226e-06_jprb,1.3009e-05_jprb,1.5127e-05_jprb/)  
kbo( :, 2,28, 1) = (/&
 & 5.3228e-08_jprb,4.1755e-06_jprb,7.7818e-06_jprb,1.2546e-05_jprb,1.5736e-05_jprb/)  
kbo( :, 3,28, 1) = (/&
 & 6.8564e-08_jprb,4.5731e-06_jprb,8.2639e-06_jprb,1.2487e-05_jprb,1.6536e-05_jprb/)  
kbo( :, 4,28, 1) = (/&
 & 9.1039e-08_jprb,5.1074e-06_jprb,8.9326e-06_jprb,1.2837e-05_jprb,1.7505e-05_jprb/)  
kbo( :, 5,28, 1) = (/&
 & 1.2239e-07_jprb,5.8016e-06_jprb,9.8318e-06_jprb,1.3565e-05_jprb,1.8670e-05_jprb/)  
kbo( :, 1,29, 1) = (/&
 & 3.7204e-08_jprb,3.2238e-06_jprb,6.1736e-06_jprb,1.0502e-05_jprb,1.2279e-05_jprb/)  
kbo( :, 2,29, 1) = (/&
 & 4.6206e-08_jprb,3.4759e-06_jprb,6.4330e-06_jprb,1.0209e-05_jprb,1.2764e-05_jprb/)  
kbo( :, 3,29, 1) = (/&
 & 6.0076e-08_jprb,3.8273e-06_jprb,6.8635e-06_jprb,1.0241e-05_jprb,1.3368e-05_jprb/)  
kbo( :, 4,29, 1) = (/&
 & 8.0144e-08_jprb,4.2936e-06_jprb,7.4538e-06_jprb,1.0606e-05_jprb,1.4121e-05_jprb/)  
kbo( :, 5,29, 1) = (/&
 & 1.0777e-07_jprb,4.8966e-06_jprb,8.2412e-06_jprb,1.1275e-05_jprb,1.5046e-05_jprb/)  
kbo( :, 1,30, 1) = (/&
 & 3.1996e-08_jprb,2.6737e-06_jprb,5.0754e-06_jprb,8.4948e-06_jprb,9.8822e-06_jprb/)  
kbo( :, 2,30, 1) = (/&
 & 4.0245e-08_jprb,2.8984e-06_jprb,5.3264e-06_jprb,8.3223e-06_jprb,1.0256e-05_jprb/)  
kbo( :, 3,30, 1) = (/&
 & 5.2747e-08_jprb,3.2079e-06_jprb,5.7080e-06_jprb,8.4160e-06_jprb,1.0727e-05_jprb/)  
kbo( :, 4,30, 1) = (/&
 & 7.0609e-08_jprb,3.6138e-06_jprb,6.2283e-06_jprb,8.7777e-06_jprb,1.1320e-05_jprb/)  
kbo( :, 5,30, 1) = (/&
 & 9.4984e-08_jprb,4.1398e-06_jprb,6.9193e-06_jprb,9.3872e-06_jprb,1.2062e-05_jprb/)  
kbo( :, 1,31, 1) = (/&
 & 2.7641e-08_jprb,2.2221e-06_jprb,4.1820e-06_jprb,6.8854e-06_jprb,7.8857e-06_jprb/)  
kbo( :, 2,31, 1) = (/&
 & 3.5201e-08_jprb,2.4225e-06_jprb,4.4182e-06_jprb,6.7986e-06_jprb,8.1875e-06_jprb/)  
kbo( :, 3,31, 1) = (/&
 & 4.6451e-08_jprb,2.6943e-06_jprb,4.7566e-06_jprb,6.9330e-06_jprb,8.5704e-06_jprb/)  
kbo( :, 4,31, 1) = (/&
 & 6.2336e-08_jprb,3.0481e-06_jprb,5.2150e-06_jprb,7.2810e-06_jprb,9.0473e-06_jprb/)  
kbo( :, 5,31, 1) = (/&
 & 8.3774e-08_jprb,3.5048e-06_jprb,5.8188e-06_jprb,7.8290e-06_jprb,9.6365e-06_jprb/)  
kbo( :, 1,32, 1) = (/&
 & 2.3981e-08_jprb,1.8500e-06_jprb,3.4538e-06_jprb,5.5925e-06_jprb,6.2708e-06_jprb/)  
kbo( :, 2,32, 1) = (/&
 & 3.0888e-08_jprb,2.0288e-06_jprb,3.6701e-06_jprb,5.5668e-06_jprb,6.5148e-06_jprb/)  
kbo( :, 3,32, 1) = (/&
 & 4.1004e-08_jprb,2.2672e-06_jprb,3.9709e-06_jprb,5.7241e-06_jprb,6.8232e-06_jprb/)  
kbo( :, 4,32, 1) = (/&
 & 5.5092e-08_jprb,2.5754e-06_jprb,4.3743e-06_jprb,6.0514e-06_jprb,7.2153e-06_jprb/)  
kbo( :, 5,32, 1) = (/&
 & 7.3928e-08_jprb,2.9722e-06_jprb,4.9013e-06_jprb,6.5406e-06_jprb,7.6884e-06_jprb/)  
kbo( :, 1,33, 1) = (/&
 & 2.0891e-08_jprb,1.5432e-06_jprb,2.8587e-06_jprb,4.5518e-06_jprb,4.9648e-06_jprb/)  
kbo( :, 2,33, 1) = (/&
 & 2.7170e-08_jprb,1.7018e-06_jprb,3.0535e-06_jprb,4.5689e-06_jprb,5.1628e-06_jprb/)  
kbo( :, 3,33, 1) = (/&
 & 3.6242e-08_jprb,1.9105e-06_jprb,3.3202e-06_jprb,4.7346e-06_jprb,5.4226e-06_jprb/)  
kbo( :, 4,33, 1) = (/&
 & 4.8741e-08_jprb,2.1800e-06_jprb,3.6760e-06_jprb,5.0388e-06_jprb,5.7379e-06_jprb/)  
kbo( :, 5,33, 1) = (/&
 & 6.5227e-08_jprb,2.5234e-06_jprb,4.1341e-06_jprb,5.4730e-06_jprb,6.1189e-06_jprb/)  
kbo( :, 1,34, 1) = (/&
 & 1.8095e-08_jprb,1.2866e-06_jprb,2.3675e-06_jprb,3.7154e-06_jprb,3.9669e-06_jprb/)  
kbo( :, 2,34, 1) = (/&
 & 2.3709e-08_jprb,1.4253e-06_jprb,2.5394e-06_jprb,3.7569e-06_jprb,4.1359e-06_jprb/)  
kbo( :, 3,34, 1) = (/&
 & 3.1721e-08_jprb,1.6060e-06_jprb,2.7729e-06_jprb,3.9185e-06_jprb,4.3498e-06_jprb/)  
kbo( :, 4,34, 1) = (/&
 & 4.2654e-08_jprb,1.8394e-06_jprb,3.0822e-06_jprb,4.1918e-06_jprb,4.6083e-06_jprb/)  
kbo( :, 5,34, 1) = (/&
 & 5.6945e-08_jprb,2.1348e-06_jprb,3.4773e-06_jprb,4.5733e-06_jprb,4.9229e-06_jprb/)  
kbo( :, 1,35, 1) = (/&
 & 1.5318e-08_jprb,1.0637e-06_jprb,1.9503e-06_jprb,3.0369e-06_jprb,3.1425e-06_jprb/)  
kbo( :, 2,35, 1) = (/&
 & 2.0142e-08_jprb,1.1814e-06_jprb,2.0969e-06_jprb,3.0840e-06_jprb,3.2804e-06_jprb/)  
kbo( :, 3,35, 1) = (/&
 & 2.6985e-08_jprb,1.3339e-06_jprb,2.2954e-06_jprb,3.2281e-06_jprb,3.4506e-06_jprb/)  
kbo( :, 4,35, 1) = (/&
 & 3.6271e-08_jprb,1.5312e-06_jprb,2.5572e-06_jprb,3.4632e-06_jprb,3.6600e-06_jprb/)  
kbo( :, 5,35, 1) = (/&
 & 4.8348e-08_jprb,1.7796e-06_jprb,2.8900e-06_jprb,3.7877e-06_jprb,3.9119e-06_jprb/)  
kbo( :, 1,36, 1) = (/&
 & 1.2609e-08_jprb,8.7019e-07_jprb,1.5952e-06_jprb,2.4829e-06_jprb,2.4549e-06_jprb/)  
kbo( :, 2,36, 1) = (/&
 & 1.6587e-08_jprb,9.6711e-07_jprb,1.7160e-06_jprb,2.5229e-06_jprb,2.5656e-06_jprb/)  
kbo( :, 3,36, 1) = (/&
 & 2.2224e-08_jprb,1.0924e-06_jprb,1.8795e-06_jprb,2.6424e-06_jprb,2.6986e-06_jprb/)  
kbo( :, 4,36, 1) = (/&
 & 2.9869e-08_jprb,1.2544e-06_jprb,2.0948e-06_jprb,2.8361e-06_jprb,2.8620e-06_jprb/)  
kbo( :, 5,36, 1) = (/&
 & 3.9802e-08_jprb,1.4584e-06_jprb,2.3682e-06_jprb,3.1034e-06_jprb,3.0593e-06_jprb/)  
kbo( :, 1,37, 1) = (/&
 & 9.9825e-09_jprb,7.0298e-07_jprb,1.2942e-06_jprb,2.0328e-06_jprb,1.9580e-06_jprb/)  
kbo( :, 2,37, 1) = (/&
 & 1.3082e-08_jprb,7.7949e-07_jprb,1.3892e-06_jprb,2.0567e-06_jprb,2.0455e-06_jprb/)  
kbo( :, 3,37, 1) = (/&
 & 1.7504e-08_jprb,8.7873e-07_jprb,1.5181e-06_jprb,2.1464e-06_jprb,2.1505e-06_jprb/)  
kbo( :, 4,37, 1) = (/&
 & 2.3530e-08_jprb,1.0069e-06_jprb,1.6884e-06_jprb,2.2974e-06_jprb,2.2783e-06_jprb/)  
kbo( :, 5,37, 1) = (/&
 & 3.1408e-08_jprb,1.1691e-06_jprb,1.9058e-06_jprb,2.5076e-06_jprb,2.4325e-06_jprb/)  
kbo( :, 1,38, 1) = (/&
 & 7.8914e-09_jprb,5.6770e-07_jprb,1.0500e-06_jprb,1.6653e-06_jprb,1.5591e-06_jprb/)  
kbo( :, 2,38, 1) = (/&
 & 1.0298e-08_jprb,6.2785e-07_jprb,1.1243e-06_jprb,1.6773e-06_jprb,1.6284e-06_jprb/)  
kbo( :, 3,38, 1) = (/&
 & 1.3752e-08_jprb,7.0630e-07_jprb,1.2256e-06_jprb,1.7435e-06_jprb,1.7113e-06_jprb/)  

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


SUBROUTINE part13

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


kbo( :, 4,38, 1) = (/&
 & 1.8491e-08_jprb,8.0748e-07_jprb,1.3600e-06_jprb,1.8604e-06_jprb,1.8119e-06_jprb/)  
kbo( :, 5,38, 1) = (/&
 & 2.4713e-08_jprb,9.3623e-07_jprb,1.5323e-06_jprb,2.0252e-06_jprb,1.9325e-06_jprb/)  
kbo( :, 1,39, 1) = (/&
 & 6.2449e-09_jprb,4.5862e-07_jprb,8.5227e-07_jprb,1.3650e-06_jprb,1.2362e-06_jprb/)  
kbo( :, 2,39, 1) = (/&
 & 8.1107e-09_jprb,5.0588e-07_jprb,9.1024e-07_jprb,1.3687e-06_jprb,1.2913e-06_jprb/)  
kbo( :, 3,39, 1) = (/&
 & 1.0807e-08_jprb,5.6790e-07_jprb,9.8979e-07_jprb,1.4171e-06_jprb,1.3567e-06_jprb/)  
kbo( :, 4,39, 1) = (/&
 & 1.4528e-08_jprb,6.4780e-07_jprb,1.0958e-06_jprb,1.5072e-06_jprb,1.4361e-06_jprb/)  
kbo( :, 5,39, 1) = (/&
 & 1.9446e-08_jprb,7.4988e-07_jprb,1.2323e-06_jprb,1.6363e-06_jprb,1.5306e-06_jprb/)  
kbo( :, 1,40, 1) = (/&
 & 4.8302e-09_jprb,3.6764e-07_jprb,6.8890e-07_jprb,1.1218e-06_jprb,9.8696e-07_jprb/)  
kbo( :, 2,40, 1) = (/&
 & 6.2157e-09_jprb,4.0354e-07_jprb,7.3207e-07_jprb,1.1164e-06_jprb,1.0304e-06_jprb/)  
kbo( :, 3,40, 1) = (/&
 & 8.2441e-09_jprb,4.5131e-07_jprb,7.9261e-07_jprb,1.1474e-06_jprb,1.0817e-06_jprb/)  
kbo( :, 4,40, 1) = (/&
 & 1.1074e-08_jprb,5.1282e-07_jprb,8.7386e-07_jprb,1.2132e-06_jprb,1.1434e-06_jprb/)  
kbo( :, 5,40, 1) = (/&
 & 1.4851e-08_jprb,5.9180e-07_jprb,9.7921e-07_jprb,1.3110e-06_jprb,1.2171e-06_jprb/)  
kbo( :, 1,41, 1) = (/&
 & 3.7368e-09_jprb,2.9476e-07_jprb,5.5755e-07_jprb,9.2376e-07_jprb,7.8720e-07_jprb/)  
kbo( :, 2,41, 1) = (/&
 & 4.7545e-09_jprb,3.2182e-07_jprb,5.8886e-07_jprb,9.1238e-07_jprb,8.2191e-07_jprb/)  
kbo( :, 3,41, 1) = (/&
 & 6.2690e-09_jprb,3.5842e-07_jprb,6.3462e-07_jprb,9.3003e-07_jprb,8.6237e-07_jprb/)  
kbo( :, 4,41, 1) = (/&
 & 8.4086e-09_jprb,4.0567e-07_jprb,6.9663e-07_jprb,9.7688e-07_jprb,9.1026e-07_jprb/)  
kbo( :, 5,41, 1) = (/&
 & 1.1291e-08_jprb,4.6640e-07_jprb,7.7748e-07_jprb,1.0503e-06_jprb,9.6752e-07_jprb/)  
kbo( :, 1,42, 1) = (/&
 & 2.9007e-09_jprb,2.3650e-07_jprb,4.5213e-07_jprb,7.6209e-07_jprb,6.2575e-07_jprb/)  
kbo( :, 2,42, 1) = (/&
 & 3.6445e-09_jprb,2.5698e-07_jprb,4.7408e-07_jprb,7.4714e-07_jprb,6.5397e-07_jprb/)  
kbo( :, 3,42, 1) = (/&
 & 4.7714e-09_jprb,2.8488e-07_jprb,5.0867e-07_jprb,7.5527e-07_jprb,6.8601e-07_jprb/)  
kbo( :, 4,42, 1) = (/&
 & 6.3838e-09_jprb,3.2120e-07_jprb,5.5584e-07_jprb,7.8778e-07_jprb,7.2350e-07_jprb/)  
kbo( :, 5,42, 1) = (/&
 & 8.5773e-09_jprb,3.6777e-07_jprb,6.1782e-07_jprb,8.4249e-07_jprb,7.6794e-07_jprb/)  
kbo( :, 1,43, 1) = (/&
 & 2.2351e-09_jprb,1.8911e-07_jprb,3.6687e-07_jprb,6.3162e-07_jprb,4.9805e-07_jprb/)  
kbo( :, 2,43, 1) = (/&
 & 2.7634e-09_jprb,2.0451e-07_jprb,3.8115e-07_jprb,6.1360e-07_jprb,5.2107e-07_jprb/)  
kbo( :, 3,43, 1) = (/&
 & 3.5807e-09_jprb,2.2534e-07_jprb,4.0658e-07_jprb,6.1409e-07_jprb,5.4635e-07_jprb/)  
kbo( :, 4,43, 1) = (/&
 & 4.7672e-09_jprb,2.5284e-07_jprb,4.4177e-07_jprb,6.3473e-07_jprb,5.7553e-07_jprb/)  
kbo( :, 5,43, 1) = (/&
 & 6.4052e-09_jprb,2.8805e-07_jprb,4.8846e-07_jprb,6.7397e-07_jprb,6.0977e-07_jprb/)  
kbo( :, 1,44, 1) = (/&
 & 1.7248e-09_jprb,1.5121e-07_jprb,2.9826e-07_jprb,5.2580e-07_jprb,3.9624e-07_jprb/)  
kbo( :, 2,44, 1) = (/&
 & 2.0939e-09_jprb,1.6277e-07_jprb,3.0698e-07_jprb,5.0563e-07_jprb,4.1515e-07_jprb/)  
kbo( :, 3,44, 1) = (/&
 & 2.6759e-09_jprb,1.7808e-07_jprb,3.2502e-07_jprb,5.0085e-07_jprb,4.3507e-07_jprb/)  
kbo( :, 4,44, 1) = (/&
 & 3.5375e-09_jprb,1.9875e-07_jprb,3.5098e-07_jprb,5.1227e-07_jprb,4.5779e-07_jprb/)  
kbo( :, 5,44, 1) = (/&
 & 4.7457e-09_jprb,2.2523e-07_jprb,3.8582e-07_jprb,5.3933e-07_jprb,4.8421e-07_jprb/)  
kbo( :, 1,45, 1) = (/&
 & 1.3426e-09_jprb,1.2131e-07_jprb,2.4315e-07_jprb,4.3919e-07_jprb,3.1429e-07_jprb/)  
kbo( :, 2,45, 1) = (/&
 & 1.5963e-09_jprb,1.2978e-07_jprb,2.4811e-07_jprb,4.1799e-07_jprb,3.2982e-07_jprb/)  
kbo( :, 3,45, 1) = (/&
 & 2.0068e-09_jprb,1.4107e-07_jprb,2.6027e-07_jprb,4.0999e-07_jprb,3.4585e-07_jprb/)  
kbo( :, 4,45, 1) = (/&
 & 2.6291e-09_jprb,1.5649e-07_jprb,2.7939e-07_jprb,4.1473e-07_jprb,3.6360e-07_jprb/)  
kbo( :, 5,45, 1) = (/&
 & 3.5165e-09_jprb,1.7643e-07_jprb,3.0531e-07_jprb,4.3268e-07_jprb,3.8407e-07_jprb/)  
kbo( :, 1,46, 1) = (/&
 & 1.0525e-09_jprb,9.7607e-08_jprb,1.9871e-07_jprb,3.6864e-07_jprb,2.4954e-07_jprb/)  
kbo( :, 2,46, 1) = (/&
 & 1.2190e-09_jprb,1.0342e-07_jprb,2.0108e-07_jprb,3.4713e-07_jprb,2.6150e-07_jprb/)  
kbo( :, 3,46, 1) = (/&
 & 1.5044e-09_jprb,1.1181e-07_jprb,2.0871e-07_jprb,3.3691e-07_jprb,2.7474e-07_jprb/)  
kbo( :, 4,46, 1) = (/&
 & 1.9474e-09_jprb,1.2315e-07_jprb,2.2254e-07_jprb,3.3690e-07_jprb,2.8869e-07_jprb/)  
kbo( :, 5,46, 1) = (/&
 & 2.5900e-09_jprb,1.3809e-07_jprb,2.4160e-07_jprb,3.4784e-07_jprb,3.0446e-07_jprb/)  
kbo( :, 1,47, 1) = (/&
 & 8.3184e-10_jprb,7.8730e-08_jprb,1.6288e-07_jprb,3.1142e-07_jprb,1.9926e-07_jprb/)  
kbo( :, 2,47, 1) = (/&
 & 9.3189e-10_jprb,8.2400e-08_jprb,1.6338e-07_jprb,2.9014e-07_jprb,2.0781e-07_jprb/)  
kbo( :, 3,47, 1) = (/&
 & 1.1246e-09_jprb,8.8566e-08_jprb,1.6773e-07_jprb,2.7820e-07_jprb,2.1850e-07_jprb/)  
kbo( :, 4,47, 1) = (/&
 & 1.4310e-09_jprb,9.6726e-08_jprb,1.7718e-07_jprb,2.7482e-07_jprb,2.2960e-07_jprb/)  
kbo( :, 5,47, 1) = (/&
 & 1.8866e-09_jprb,1.0777e-07_jprb,1.9096e-07_jprb,2.8016e-07_jprb,2.4174e-07_jprb/)  
kbo( :, 1,48, 1) = (/&
 & 6.6667e-10_jprb,6.3743e-08_jprb,1.3383e-07_jprb,2.6444e-07_jprb,1.5919e-07_jprb/)  
kbo( :, 2,48, 1) = (/&
 & 7.2152e-10_jprb,6.5980e-08_jprb,1.3326e-07_jprb,2.4370e-07_jprb,1.6500e-07_jprb/)  
kbo( :, 3,48, 1) = (/&
 & 8.4803e-10_jprb,7.0305e-08_jprb,1.3546e-07_jprb,2.3079e-07_jprb,1.7325e-07_jprb/)  
kbo( :, 4,48, 1) = (/&
 & 1.0576e-09_jprb,7.6239e-08_jprb,1.4145e-07_jprb,2.2533e-07_jprb,1.8229e-07_jprb/)  
kbo( :, 5,48, 1) = (/&
 & 1.3781e-09_jprb,8.4292e-08_jprb,1.5136e-07_jprb,2.2672e-07_jprb,1.9179e-07_jprb/)  
kbo( :, 1,49, 1) = (/&
 & 5.4144e-10_jprb,5.1801e-08_jprb,1.1013e-07_jprb,2.2618e-07_jprb,1.2711e-07_jprb/)  
kbo( :, 2,49, 1) = (/&
 & 5.6629e-10_jprb,5.3107e-08_jprb,1.0907e-07_jprb,2.0553e-07_jprb,1.3089e-07_jprb/)  
kbo( :, 3,49, 1) = (/&
 & 6.4486e-10_jprb,5.5918e-08_jprb,1.0986e-07_jprb,1.9244e-07_jprb,1.3676e-07_jprb/)  
kbo( :, 4,49, 1) = (/&
 & 7.8735e-10_jprb,6.0291e-08_jprb,1.1339e-07_jprb,1.8565e-07_jprb,1.4422e-07_jprb/)  
kbo( :, 5,49, 1) = (/&
 & 1.0106e-09_jprb,6.6110e-08_jprb,1.2034e-07_jprb,1.8446e-07_jprb,1.5185e-07_jprb/)  
kbo( :, 1,50, 1) = (/&
 & 4.4437e-10_jprb,4.2232e-08_jprb,9.0862e-08_jprb,1.9444e-07_jprb,1.0220e-07_jprb/)  
kbo( :, 2,50, 1) = (/&
 & 4.5142e-10_jprb,4.2954e-08_jprb,8.9495e-08_jprb,1.7367e-07_jprb,1.0478e-07_jprb/)  
kbo( :, 3,50, 1) = (/&
 & 4.9792e-10_jprb,4.4724e-08_jprb,8.9470e-08_jprb,1.6100e-07_jprb,1.0886e-07_jprb/)  
kbo( :, 4,50, 1) = (/&
 & 5.9436e-10_jprb,4.7919e-08_jprb,9.1442e-08_jprb,1.5352e-07_jprb,1.1464e-07_jprb/)  
kbo( :, 5,50, 1) = (/&
 & 7.4940e-10_jprb,5.2145e-08_jprb,9.6092e-08_jprb,1.5086e-07_jprb,1.2088e-07_jprb/)  
kbo( :, 1,51, 1) = (/&
 & 3.6713e-10_jprb,3.4474e-08_jprb,7.5308e-08_jprb,1.6803e-07_jprb,8.2415e-08_jprb/)  
kbo( :, 2,51, 1) = (/&
 & 3.6430e-10_jprb,3.4862e-08_jprb,7.3571e-08_jprb,1.4732e-07_jprb,8.4283e-08_jprb/)  
kbo( :, 3,51, 1) = (/&
 & 3.8938e-10_jprb,3.5958e-08_jprb,7.3095e-08_jprb,1.3515e-07_jprb,8.7129e-08_jprb/)  
kbo( :, 4,51, 1) = (/&
 & 4.5287e-10_jprb,3.8169e-08_jprb,7.4068e-08_jprb,1.2746e-07_jprb,9.1359e-08_jprb/)  
kbo( :, 5,51, 1) = (/&
 & 5.6042e-10_jprb,4.1297e-08_jprb,7.7005e-08_jprb,1.2390e-07_jprb,9.6467e-08_jprb/)  
kbo( :, 1,52, 1) = (/&
 & 3.0507e-10_jprb,2.8135e-08_jprb,6.2903e-08_jprb,1.4596e-07_jprb,6.6326e-08_jprb/)  
kbo( :, 2,52, 1) = (/&
 & 2.9709e-10_jprb,2.8385e-08_jprb,6.0554e-08_jprb,1.2580e-07_jprb,6.7717e-08_jprb/)  
kbo( :, 3,52, 1) = (/&
 & 3.0805e-10_jprb,2.9029e-08_jprb,5.9886e-08_jprb,1.1380e-07_jprb,6.9709e-08_jprb/)  
kbo( :, 4,52, 1) = (/&
 & 3.4776e-10_jprb,3.0470e-08_jprb,6.0190e-08_jprb,1.0625e-07_jprb,7.2725e-08_jprb/)  
kbo( :, 5,52, 1) = (/&
 & 4.2195e-10_jprb,3.2800e-08_jprb,6.1944e-08_jprb,1.0216e-07_jprb,7.6745e-08_jprb/)  
kbo( :, 1,53, 1) = (/&
 & 2.5471e-10_jprb,2.2998e-08_jprb,5.2959e-08_jprb,1.2738e-07_jprb,5.3131e-08_jprb/)  
kbo( :, 2,53, 1) = (/&
 & 2.4432e-10_jprb,2.3152e-08_jprb,5.0007e-08_jprb,1.0819e-07_jprb,5.4179e-08_jprb/)  
kbo( :, 3,53, 1) = (/&
 & 2.4654e-10_jprb,2.3508e-08_jprb,4.9165e-08_jprb,9.6195e-08_jprb,5.5658e-08_jprb/)  
kbo( :, 4,53, 1) = (/&
 & 2.6977e-10_jprb,2.4417e-08_jprb,4.9071e-08_jprb,8.8939e-08_jprb,5.7790e-08_jprb/)  
kbo( :, 5,53, 1) = (/&
 & 3.1992e-10_jprb,2.6104e-08_jprb,5.0031e-08_jprb,8.4550e-08_jprb,6.0803e-08_jprb/)  
kbo( :, 1,54, 1) = (/&
 & 2.1314e-10_jprb,1.8852e-08_jprb,4.4748e-08_jprb,1.1115e-07_jprb,4.3302e-08_jprb/)  
kbo( :, 2,54, 1) = (/&
 & 2.0193e-10_jprb,1.8904e-08_jprb,4.1449e-08_jprb,9.3135e-08_jprb,4.4067e-08_jprb/)  
kbo( :, 3,54, 1) = (/&
 & 1.9965e-10_jprb,1.9105e-08_jprb,4.0409e-08_jprb,8.1420e-08_jprb,4.5177e-08_jprb/)  
kbo( :, 4,54, 1) = (/&
 & 2.1224e-10_jprb,1.9678e-08_jprb,4.0114e-08_jprb,7.4541e-08_jprb,4.6704e-08_jprb/)  
kbo( :, 5,54, 1) = (/&
 & 2.4557e-10_jprb,2.0847e-08_jprb,4.0586e-08_jprb,7.0154e-08_jprb,4.8932e-08_jprb/)  
kbo( :, 1,55, 1) = (/&
 & 1.7867e-10_jprb,1.5555e-08_jprb,3.7972e-08_jprb,9.7108e-08_jprb,3.5728e-08_jprb/)  
kbo( :, 2,55, 1) = (/&
 & 1.6760e-10_jprb,1.5433e-08_jprb,3.4555e-08_jprb,8.0306e-08_jprb,3.6271e-08_jprb/)  
kbo( :, 3,55, 1) = (/&
 & 1.6306e-10_jprb,1.5570e-08_jprb,3.3237e-08_jprb,6.9179e-08_jprb,3.7075e-08_jprb/)  
kbo( :, 4,55, 1) = (/&
 & 1.6881e-10_jprb,1.5918e-08_jprb,3.2865e-08_jprb,6.2543e-08_jprb,3.8181e-08_jprb/)  
kbo( :, 5,55, 1) = (/&
 & 1.9022e-10_jprb,1.6697e-08_jprb,3.3018e-08_jprb,5.8357e-08_jprb,3.9829e-08_jprb/)  
kbo( :, 1,56, 1) = (/&
 & 1.5014e-10_jprb,1.2915e-08_jprb,3.2380e-08_jprb,8.5055e-08_jprb,2.9526e-08_jprb/)  
kbo( :, 2,56, 1) = (/&
 & 1.3958e-10_jprb,1.2616e-08_jprb,2.8978e-08_jprb,6.9473e-08_jprb,2.9904e-08_jprb/)  
kbo( :, 3,56, 1) = (/&
 & 1.3402e-10_jprb,1.2704e-08_jprb,2.7411e-08_jprb,5.9088e-08_jprb,3.0485e-08_jprb/)  
kbo( :, 4,56, 1) = (/&
 & 1.3548e-10_jprb,1.2908e-08_jprb,2.6966e-08_jprb,5.2631e-08_jprb,3.1281e-08_jprb/)  
kbo( :, 5,56, 1) = (/&
 & 1.4854e-10_jprb,1.3416e-08_jprb,2.6928e-08_jprb,4.8694e-08_jprb,3.2487e-08_jprb/)  
kbo( :, 1,57, 1) = (/&
 & 1.2648e-10_jprb,1.0778e-08_jprb,2.7708e-08_jprb,7.4942e-08_jprb,2.4443e-08_jprb/)  
kbo( :, 2,57, 1) = (/&
 & 1.1666e-10_jprb,1.0334e-08_jprb,2.4430e-08_jprb,6.0404e-08_jprb,2.4707e-08_jprb/)  
kbo( :, 3,57, 1) = (/&
 & 1.1067e-10_jprb,1.0374e-08_jprb,2.2691e-08_jprb,5.0714e-08_jprb,2.5111e-08_jprb/)  
kbo( :, 4,57, 1) = (/&
 & 1.0967e-10_jprb,1.0490e-08_jprb,2.2155e-08_jprb,4.4446e-08_jprb,2.5686e-08_jprb/)  
kbo( :, 5,57, 1) = (/&
 & 1.1697e-10_jprb,1.0815e-08_jprb,2.2007e-08_jprb,4.0752e-08_jprb,2.6560e-08_jprb/)  
kbo( :, 1,58, 1) = (/&
 & 1.0659e-10_jprb,9.0293e-09_jprb,2.3759e-08_jprb,6.6089e-08_jprb,2.0347e-08_jprb/)  
kbo( :, 2,58, 1) = (/&
 & 9.7636e-11_jprb,8.5135e-09_jprb,2.0668e-08_jprb,5.2543e-08_jprb,2.0525e-08_jprb/)  
kbo( :, 3,58, 1) = (/&
 & 9.1732e-11_jprb,8.4689e-09_jprb,1.8876e-08_jprb,4.3570e-08_jprb,2.0785e-08_jprb/)  
kbo( :, 4,58, 1) = (/&
 & 8.9487e-11_jprb,8.5483e-09_jprb,1.8213e-08_jprb,3.7645e-08_jprb,2.1195e-08_jprb/)  
kbo( :, 5,58, 1) = (/&
 & 9.3059e-11_jprb,8.7505e-09_jprb,1.8022e-08_jprb,3.4131e-08_jprb,2.1827e-08_jprb/)  
kbo( :, 1,59, 1) = (/&
 & 8.8331e-11_jprb,7.4630e-09_jprb,1.9793e-08_jprb,5.5593e-08_jprb,1.7482e-08_jprb/)  
kbo( :, 2,59, 1) = (/&
 & 8.0694e-11_jprb,6.9932e-09_jprb,1.7133e-08_jprb,4.3957e-08_jprb,1.7486e-08_jprb/)  
kbo( :, 3,59, 1) = (/&
 & 7.5549e-11_jprb,6.9233e-09_jprb,1.5553e-08_jprb,3.6288e-08_jprb,1.7620e-08_jprb/)  
kbo( :, 4,59, 1) = (/&
 & 7.3293e-11_jprb,6.9863e-09_jprb,1.4925e-08_jprb,3.1206e-08_jprb,1.7870e-08_jprb/)  
kbo( :, 5,59, 1) = (/&
 & 7.5492e-11_jprb,7.1328e-09_jprb,1.4750e-08_jprb,2.8159e-08_jprb,1.8369e-08_jprb/)  
kbo( :, 1,13, 2) = (/&
 & 1.7831e-06_jprb,1.1485e-04_jprb,2.2492e-04_jprb,4.1688e-04_jprb,6.0547e-04_jprb/)  
kbo( :, 2,13, 2) = (/&
 & 2.2523e-06_jprb,1.2306e-04_jprb,2.2855e-04_jprb,3.8873e-04_jprb,6.9580e-04_jprb/)  
kbo( :, 3,13, 2) = (/&
 & 3.1401e-06_jprb,1.3738e-04_jprb,2.4315e-04_jprb,3.7873e-04_jprb,8.1218e-04_jprb/)  
kbo( :, 4,13, 2) = (/&
 & 4.6444e-06_jprb,1.5956e-04_jprb,2.6822e-04_jprb,3.8629e-04_jprb,9.5399e-04_jprb/)  
kbo( :, 5,13, 2) = (/&
 & 7.0313e-06_jprb,1.8987e-04_jprb,3.0507e-04_jprb,4.1261e-04_jprb,1.1192e-03_jprb/)  
kbo( :, 1,14, 2) = (/&
 & 1.5078e-06_jprb,9.3955e-05_jprb,1.8376e-04_jprb,3.3845e-04_jprb,5.0372e-04_jprb/)  
kbo( :, 2,14, 2) = (/&
 & 1.9334e-06_jprb,1.0121e-04_jprb,1.8743e-04_jprb,3.1713e-04_jprb,5.7910e-04_jprb/)  
kbo( :, 3,14, 2) = (/&
 & 2.7160e-06_jprb,1.1368e-04_jprb,2.0048e-04_jprb,3.1032e-04_jprb,6.7658e-04_jprb/)  
kbo( :, 4,14, 2) = (/&
 & 4.0314e-06_jprb,1.3266e-04_jprb,2.2233e-04_jprb,3.1845e-04_jprb,7.9423e-04_jprb/)  
kbo( :, 5,14, 2) = (/&
 & 6.1144e-06_jprb,1.5848e-04_jprb,2.5408e-04_jprb,3.4197e-04_jprb,9.2922e-04_jprb/)  
kbo( :, 1,15, 2) = (/&
 & 1.2774e-06_jprb,7.6659e-05_jprb,1.4966e-04_jprb,2.7428e-04_jprb,4.0806e-04_jprb/)  
kbo( :, 2,15, 2) = (/&
 & 1.6539e-06_jprb,8.3075e-05_jprb,1.5341e-04_jprb,2.5818e-04_jprb,4.6824e-04_jprb/)  
kbo( :, 3,15, 2) = (/&
 & 2.3327e-06_jprb,9.3823e-05_jprb,1.6504e-04_jprb,2.5400e-04_jprb,5.4554e-04_jprb/)  
kbo( :, 4,15, 2) = (/&
 & 3.4694e-06_jprb,1.1007e-04_jprb,1.8398e-04_jprb,2.6231e-04_jprb,6.3780e-04_jprb/)  
kbo( :, 5,15, 2) = (/&
 & 5.2705e-06_jprb,1.3207e-04_jprb,2.1119e-04_jprb,2.8323e-04_jprb,7.4509e-04_jprb/)  
kbo( :, 1,16, 2) = (/&
 & 1.0807e-06_jprb,6.2530e-05_jprb,1.2180e-04_jprb,2.2215e-04_jprb,3.2808e-04_jprb/)  
kbo( :, 2,16, 2) = (/&
 & 1.4084e-06_jprb,6.8196e-05_jprb,1.2558e-04_jprb,2.1014e-04_jprb,3.7445e-04_jprb/)  
kbo( :, 3,16, 2) = (/&
 & 1.9921e-06_jprb,7.7409e-05_jprb,1.3589e-04_jprb,2.0792e-04_jprb,4.3322e-04_jprb/)  
kbo( :, 4,16, 2) = (/&
 & 2.9709e-06_jprb,9.1317e-05_jprb,1.5223e-04_jprb,2.1610e-04_jprb,5.0329e-04_jprb/)  
kbo( :, 5,16, 2) = (/&
 & 4.5175e-06_jprb,1.1013e-04_jprb,1.7552e-04_jprb,2.3456e-04_jprb,5.8394e-04_jprb/)  
kbo( :, 1,17, 2) = (/&
 & 9.1180e-07_jprb,5.1179e-05_jprb,9.9386e-05_jprb,1.8025e-04_jprb,2.6437e-04_jprb/)  
kbo( :, 2,17, 2) = (/&
 & 1.1946e-06_jprb,5.6143e-05_jprb,1.0310e-04_jprb,1.7134e-04_jprb,2.9996e-04_jprb/)  
kbo( :, 3,17, 2) = (/&
 & 1.6972e-06_jprb,6.4077e-05_jprb,1.1216e-04_jprb,1.7049e-04_jprb,3.4494e-04_jprb/)  
kbo( :, 4,17, 2) = (/&
 & 2.5402e-06_jprb,7.6034e-05_jprb,1.2620e-04_jprb,1.7834e-04_jprb,3.9850e-04_jprb/)  
kbo( :, 5,17, 2) = (/&
 & 3.8602e-06_jprb,9.2137e-05_jprb,1.4620e-04_jprb,1.9446e-04_jprb,4.6053e-04_jprb/)  
kbo( :, 1,18, 2) = (/&
 & 7.6847e-07_jprb,4.2128e-05_jprb,8.1427e-05_jprb,1.4663e-04_jprb,2.1428e-04_jprb/)  
kbo( :, 2,18, 2) = (/&
 & 1.0140e-06_jprb,4.6467e-05_jprb,8.5018e-05_jprb,1.4005e-04_jprb,2.4221e-04_jprb/)  
kbo( :, 3,18, 2) = (/&
 & 1.4492e-06_jprb,5.3358e-05_jprb,9.2939e-05_jprb,1.4019e-04_jprb,2.7739e-04_jprb/)  
kbo( :, 4,18, 2) = (/&
 & 2.1756e-06_jprb,6.3671e-05_jprb,1.0504e-04_jprb,1.4753e-04_jprb,3.1937e-04_jprb/)  
kbo( :, 5,18, 2) = (/&
 & 3.2973e-06_jprb,7.7469e-05_jprb,1.2233e-04_jprb,1.6159e-04_jprb,3.6805e-04_jprb/)  
kbo( :, 1,19, 2) = (/&
 & 6.4665e-07_jprb,3.4756e-05_jprb,6.6830e-05_jprb,1.1940e-04_jprb,1.7455e-04_jprb/)  
kbo( :, 2,19, 2) = (/&
 & 8.6026e-07_jprb,3.8528e-05_jprb,7.0212e-05_jprb,1.1460e-04_jprb,1.9694e-04_jprb/)  
kbo( :, 3,19, 2) = (/&
 & 1.2368e-06_jprb,4.4528e-05_jprb,7.7120e-05_jprb,1.1540e-04_jprb,2.2498e-04_jprb/)  
kbo( :, 4,19, 2) = (/&
 & 1.8580e-06_jprb,5.3404e-05_jprb,8.7557e-05_jprb,1.2215e-04_jprb,2.5850e-04_jprb/)  
kbo( :, 5,19, 2) = (/&
 & 2.8103e-06_jprb,6.5162e-05_jprb,1.0249e-04_jprb,1.3438e-04_jprb,2.9679e-04_jprb/)  
kbo( :, 1,20, 2) = (/&
 & 5.4656e-07_jprb,2.8770e-05_jprb,5.4975e-05_jprb,9.7196e-05_jprb,1.4326e-04_jprb/)  
kbo( :, 2,20, 2) = (/&
 & 7.3436e-07_jprb,3.2085e-05_jprb,5.8157e-05_jprb,9.3865e-05_jprb,1.6155e-04_jprb/)  
kbo( :, 3,20, 2) = (/&
 & 1.0622e-06_jprb,3.7358e-05_jprb,6.4221e-05_jprb,9.5159e-05_jprb,1.8436e-04_jprb/)  

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


SUBROUTINE part14

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


kbo( :, 4,20, 2) = (/&
 & 1.5965e-06_jprb,4.4974e-05_jprb,7.3287e-05_jprb,1.0139e-04_jprb,2.1149e-04_jprb/)  
kbo( :, 5,20, 2) = (/&
 & 2.4119e-06_jprb,5.5033e-05_jprb,8.6244e-05_jprb,1.1207e-04_jprb,2.4172e-04_jprb/)  
kbo( :, 1,21, 2) = (/&
 & 4.6233e-07_jprb,2.3834e-05_jprb,4.5264e-05_jprb,7.9149e-05_jprb,1.1774e-04_jprb/)  
kbo( :, 2,21, 2) = (/&
 & 6.2707e-07_jprb,2.6751e-05_jprb,4.8202e-05_jprb,7.6928e-05_jprb,1.3273e-04_jprb/)  
kbo( :, 3,21, 2) = (/&
 & 9.1123e-07_jprb,3.1358e-05_jprb,5.3515e-05_jprb,7.8550e-05_jprb,1.5133e-04_jprb/)  
kbo( :, 4,21, 2) = (/&
 & 1.3711e-06_jprb,3.7856e-05_jprb,6.1405e-05_jprb,8.4206e-05_jprb,1.7321e-04_jprb/)  
kbo( :, 5,21, 2) = (/&
 & 2.0698e-06_jprb,4.6466e-05_jprb,7.2555e-05_jprb,9.3524e-05_jprb,1.9698e-04_jprb/)  
kbo( :, 1,22, 2) = (/&
 & 3.9809e-07_jprb,1.9861e-05_jprb,3.7362e-05_jprb,6.4255e-05_jprb,9.7130e-05_jprb/)  
kbo( :, 2,22, 2) = (/&
 & 5.4666e-07_jprb,2.2487e-05_jprb,4.0159e-05_jprb,6.3058e-05_jprb,1.0946e-04_jprb/)  
kbo( :, 3,22, 2) = (/&
 & 8.0057e-07_jprb,2.6577e-05_jprb,4.4935e-05_jprb,6.5070e-05_jprb,1.2456e-04_jprb/)  
kbo( :, 4,22, 2) = (/&
 & 1.2071e-06_jprb,3.2211e-05_jprb,5.1924e-05_jprb,7.0344e-05_jprb,1.4182e-04_jprb/)  
kbo( :, 5,22, 2) = (/&
 & 1.8195e-06_jprb,3.9674e-05_jprb,6.1645e-05_jprb,7.8623e-05_jprb,1.6040e-04_jprb/)  
kbo( :, 1,23, 2) = (/&
 & 3.4367e-07_jprb,1.6568e-05_jprb,3.0880e-05_jprb,5.2238e-05_jprb,8.0021e-05_jprb/)  
kbo( :, 2,23, 2) = (/&
 & 4.7758e-07_jprb,1.8928e-05_jprb,3.3504e-05_jprb,5.1762e-05_jprb,9.0054e-05_jprb/)  
kbo( :, 3,23, 2) = (/&
 & 7.0447e-07_jprb,2.2529e-05_jprb,3.7774e-05_jprb,5.3990e-05_jprb,1.0211e-04_jprb/)  
kbo( :, 4,23, 2) = (/&
 & 1.0638e-06_jprb,2.7414e-05_jprb,4.3928e-05_jprb,5.8845e-05_jprb,1.1542e-04_jprb/)  
kbo( :, 5,23, 2) = (/&
 & 1.6007e-06_jprb,3.3849e-05_jprb,5.2353e-05_jprb,6.6134e-05_jprb,1.3002e-04_jprb/)  
kbo( :, 1,24, 2) = (/&
 & 2.9731e-07_jprb,1.3817e-05_jprb,2.5531e-05_jprb,4.2477e-05_jprb,6.5483e-05_jprb/)  
kbo( :, 2,24, 2) = (/&
 & 4.1800e-07_jprb,1.5925e-05_jprb,2.7963e-05_jprb,4.2525e-05_jprb,7.3450e-05_jprb/)  
kbo( :, 3,24, 2) = (/&
 & 6.2039e-07_jprb,1.9083e-05_jprb,3.1748e-05_jprb,4.4841e-05_jprb,8.2603e-05_jprb/)  
kbo( :, 4,24, 2) = (/&
 & 9.3799e-07_jprb,2.3303e-05_jprb,3.7155e-05_jprb,4.9236e-05_jprb,9.2771e-05_jprb/)  
kbo( :, 5,24, 2) = (/&
 & 1.4084e-06_jprb,2.8824e-05_jprb,4.4404e-05_jprb,5.5621e-05_jprb,1.0401e-04_jprb/)  
kbo( :, 1,25, 2) = (/&
 & 2.5846e-07_jprb,1.1557e-05_jprb,2.1168e-05_jprb,3.4591e-05_jprb,5.3402e-05_jprb/)  
kbo( :, 2,25, 2) = (/&
 & 3.6779e-07_jprb,1.3446e-05_jprb,2.3397e-05_jprb,3.5019e-05_jprb,5.9504e-05_jprb/)  
kbo( :, 3,25, 2) = (/&
 & 5.4914e-07_jprb,1.6203e-05_jprb,2.6747e-05_jprb,3.7316e-05_jprb,6.6453e-05_jprb/)  
kbo( :, 4,25, 2) = (/&
 & 8.3081e-07_jprb,1.9848e-05_jprb,3.1489e-05_jprb,4.1271e-05_jprb,7.4204e-05_jprb/)  
kbo( :, 5,25, 2) = (/&
 & 1.2434e-06_jprb,2.4586e-05_jprb,3.7706e-05_jprb,4.6843e-05_jprb,8.2964e-05_jprb/)  
kbo( :, 1,26, 2) = (/&
 & 2.2688e-07_jprb,9.7182e-06_jprb,1.7626e-05_jprb,2.8238e-05_jprb,4.3458e-05_jprb/)  
kbo( :, 2,26, 2) = (/&
 & 3.2698e-07_jprb,1.1421e-05_jprb,1.9660e-05_jprb,2.8946e-05_jprb,4.8104e-05_jprb/)  
kbo( :, 3,26, 2) = (/&
 & 4.9095e-07_jprb,1.3827e-05_jprb,2.2642e-05_jprb,3.1162e-05_jprb,5.3458e-05_jprb/)  
kbo( :, 4,26, 2) = (/&
 & 7.4254e-07_jprb,1.6991e-05_jprb,2.6804e-05_jprb,3.4710e-05_jprb,5.9616e-05_jprb/)  
kbo( :, 5,26, 2) = (/&
 & 1.1064e-06_jprb,2.1073e-05_jprb,3.2131e-05_jprb,3.9581e-05_jprb,6.6564e-05_jprb/)  
kbo( :, 1,27, 2) = (/&
 & 1.9993e-07_jprb,8.1890e-06_jprb,1.4706e-05_jprb,2.3104e-05_jprb,3.4885e-05_jprb/)  
kbo( :, 2,27, 2) = (/&
 & 2.9147e-07_jprb,9.7120e-06_jprb,1.6544e-05_jprb,2.3984e-05_jprb,3.8444e-05_jprb/)  
kbo( :, 3,27, 2) = (/&
 & 4.3955e-07_jprb,1.1803e-05_jprb,1.9192e-05_jprb,2.6063e-05_jprb,4.2658e-05_jprb/)  
kbo( :, 4,27, 2) = (/&
 & 6.6365e-07_jprb,1.4549e-05_jprb,2.2817e-05_jprb,2.9214e-05_jprb,4.7548e-05_jprb/)  
kbo( :, 5,27, 2) = (/&
 & 9.8399e-07_jprb,1.8060e-05_jprb,2.7381e-05_jprb,3.3454e-05_jprb,5.3034e-05_jprb/)  
kbo( :, 1,28, 2) = (/&
 & 1.7666e-07_jprb,6.9106e-06_jprb,1.2291e-05_jprb,1.8950e-05_jprb,2.7614e-05_jprb/)  
kbo( :, 2,28, 2) = (/&
 & 2.6027e-07_jprb,8.2613e-06_jprb,1.3939e-05_jprb,1.9912e-05_jprb,3.0347e-05_jprb/)  
kbo( :, 3,28, 2) = (/&
 & 3.9360e-07_jprb,1.0076e-05_jprb,1.6277e-05_jprb,2.1822e-05_jprb,3.3665e-05_jprb/)  
kbo( :, 4,28, 2) = (/&
 & 5.9255e-07_jprb,1.2455e-05_jprb,1.9419e-05_jprb,2.4599e-05_jprb,3.7521e-05_jprb/)  
kbo( :, 5,28, 2) = (/&
 & 8.7397e-07_jprb,1.5474e-05_jprb,2.3332e-05_jprb,2.8281e-05_jprb,4.1809e-05_jprb/)  
kbo( :, 1,29, 2) = (/&
 & 1.5731e-07_jprb,5.8606e-06_jprb,1.0316e-05_jprb,1.5600e-05_jprb,2.1902e-05_jprb/)  
kbo( :, 2,29, 2) = (/&
 & 2.3400e-07_jprb,7.0543e-06_jprb,1.1790e-05_jprb,1.6590e-05_jprb,2.4089e-05_jprb/)  
kbo( :, 3,29, 2) = (/&
 & 3.5418e-07_jprb,8.6343e-06_jprb,1.3853e-05_jprb,1.8324e-05_jprb,2.6737e-05_jprb/)  
kbo( :, 4,29, 2) = (/&
 & 5.3119e-07_jprb,1.0700e-05_jprb,1.6576e-05_jprb,2.0766e-05_jprb,2.9758e-05_jprb/)  
kbo( :, 5,29, 2) = (/&
 & 7.7916e-07_jprb,1.3299e-05_jprb,1.9939e-05_jprb,2.3971e-05_jprb,3.3117e-05_jprb/)  
kbo( :, 1,30, 2) = (/&
 & 1.4063e-07_jprb,4.9824e-06_jprb,8.6764e-06_jprb,1.2880e-05_jprb,1.7310e-05_jprb/)  
kbo( :, 2,30, 2) = (/&
 & 2.1067e-07_jprb,6.0303e-06_jprb,9.9875e-06_jprb,1.3848e-05_jprb,1.9047e-05_jprb/)  
kbo( :, 3,30, 2) = (/&
 & 3.1873e-07_jprb,7.4093e-06_jprb,1.1804e-05_jprb,1.5408e-05_jprb,2.1112e-05_jprb/)  
kbo( :, 4,30, 2) = (/&
 & 4.7602e-07_jprb,9.1990e-06_jprb,1.4156e-05_jprb,1.7550e-05_jprb,2.3467e-05_jprb/)  
kbo( :, 5,30, 2) = (/&
 & 6.9431e-07_jprb,1.1442e-05_jprb,1.7053e-05_jprb,2.0340e-05_jprb,2.6091e-05_jprb/)  
kbo( :, 1,31, 2) = (/&
 & 1.2644e-07_jprb,4.2516e-06_jprb,7.3195e-06_jprb,1.0673e-05_jprb,1.3682e-05_jprb/)  
kbo( :, 2,31, 2) = (/&
 & 1.9031e-07_jprb,5.1693e-06_jprb,8.4857e-06_jprb,1.1593e-05_jprb,1.5034e-05_jprb/)  
kbo( :, 3,31, 2) = (/&
 & 2.8751e-07_jprb,6.3745e-06_jprb,1.0084e-05_jprb,1.2985e-05_jprb,1.6635e-05_jprb/)  
kbo( :, 4,31, 2) = (/&
 & 4.2724e-07_jprb,7.9260e-06_jprb,1.2109e-05_jprb,1.4860e-05_jprb,1.8446e-05_jprb/)  
kbo( :, 5,31, 2) = (/&
 & 6.1916e-07_jprb,9.8570e-06_jprb,1.4602e-05_jprb,1.7280e-05_jprb,2.0481e-05_jprb/)  
kbo( :, 1,32, 2) = (/&
 & 1.1409e-07_jprb,3.6379e-06_jprb,6.1915e-06_jprb,8.8747e-06_jprb,1.0783e-05_jprb/)  
kbo( :, 2,32, 2) = (/&
 & 1.7228e-07_jprb,4.4412e-06_jprb,7.2287e-06_jprb,9.7273e-06_jprb,1.1842e-05_jprb/)  
kbo( :, 3,32, 2) = (/&
 & 2.5962e-07_jprb,5.4949e-06_jprb,8.6268e-06_jprb,1.0963e-05_jprb,1.3078e-05_jprb/)  
kbo( :, 4,32, 2) = (/&
 & 3.8365e-07_jprb,6.8377e-06_jprb,1.0371e-05_jprb,1.2605e-05_jprb,1.4477e-05_jprb/)  
kbo( :, 5,32, 2) = (/&
 & 5.5233e-07_jprb,8.5032e-06_jprb,1.2515e-05_jprb,1.4698e-05_jprb,1.6068e-05_jprb/)  
kbo( :, 1,33, 2) = (/&
 & 1.0319e-07_jprb,3.1180e-06_jprb,5.2481e-06_jprb,7.4004e-06_jprb,8.4500e-06_jprb/)  
kbo( :, 2,33, 2) = (/&
 & 1.5612e-07_jprb,3.8215e-06_jprb,6.1686e-06_jprb,8.1771e-06_jprb,9.2833e-06_jprb/)  
kbo( :, 3,33, 2) = (/&
 & 2.3441e-07_jprb,4.7418e-06_jprb,7.3861e-06_jprb,9.2700e-06_jprb,1.0235e-05_jprb/)  
kbo( :, 4,33, 2) = (/&
 & 3.4446e-07_jprb,5.9060e-06_jprb,8.8925e-06_jprb,1.0710e-05_jprb,1.1335e-05_jprb/)  
kbo( :, 5,33, 2) = (/&
 & 4.9241e-07_jprb,7.3371e-06_jprb,1.0731e-05_jprb,1.2507e-05_jprb,1.2576e-05_jprb/)  
kbo( :, 1,34, 2) = (/&
 & 9.2307e-08_jprb,2.6619e-06_jprb,4.4385e-06_jprb,6.1710e-06_jprb,6.7086e-06_jprb/)  
kbo( :, 2,34, 2) = (/&
 & 1.3970e-07_jprb,3.2731e-06_jprb,5.2448e-06_jprb,6.8652e-06_jprb,7.3666e-06_jprb/)  
kbo( :, 3,34, 2) = (/&
 & 2.0895e-07_jprb,4.0690e-06_jprb,6.2930e-06_jprb,7.8186e-06_jprb,8.1274e-06_jprb/)  
kbo( :, 4,34, 2) = (/&
 & 3.0532e-07_jprb,5.0681e-06_jprb,7.5836e-06_jprb,9.0634e-06_jprb,9.0071e-06_jprb/)  
kbo( :, 5,34, 2) = (/&
 & 4.3392e-07_jprb,6.2912e-06_jprb,9.1516e-06_jprb,1.0598e-05_jprb,1.0001e-05_jprb/)  
kbo( :, 1,35, 2) = (/&
 & 7.9334e-08_jprb,2.2294e-06_jprb,3.6998e-06_jprb,5.1049e-06_jprb,5.2466e-06_jprb/)  
kbo( :, 2,35, 2) = (/&
 & 1.2002e-07_jprb,2.7467e-06_jprb,4.3846e-06_jprb,5.6993e-06_jprb,5.7554e-06_jprb/)  
kbo( :, 3,35, 2) = (/&
 & 1.7912e-07_jprb,3.4176e-06_jprb,5.2654e-06_jprb,6.5073e-06_jprb,6.3538e-06_jprb/)  
kbo( :, 4,35, 2) = (/&
 & 2.6096e-07_jprb,4.2572e-06_jprb,6.3499e-06_jprb,7.5566e-06_jprb,7.0484e-06_jprb/)  
kbo( :, 5,35, 2) = (/&
 & 3.6971e-07_jprb,5.2820e-06_jprb,7.6616e-06_jprb,8.8415e-06_jprb,7.8403e-06_jprb/)  
kbo( :, 1,36, 2) = (/&
 & 6.5133e-08_jprb,1.8258e-06_jprb,3.0305e-06_jprb,4.1781e-06_jprb,4.0391e-06_jprb/)  
kbo( :, 2,36, 2) = (/&
 & 9.8521e-08_jprb,2.2504e-06_jprb,3.5927e-06_jprb,4.6670e-06_jprb,4.4257e-06_jprb/)  
kbo( :, 3,36, 2) = (/&
 & 1.4704e-07_jprb,2.8014e-06_jprb,4.3159e-06_jprb,5.3307e-06_jprb,4.8851e-06_jprb/)  
kbo( :, 4,36, 2) = (/&
 & 2.1423e-07_jprb,3.4905e-06_jprb,5.2056e-06_jprb,6.1919e-06_jprb,5.4221e-06_jprb/)  
kbo( :, 5,36, 2) = (/&
 & 3.0347e-07_jprb,4.3311e-06_jprb,6.2810e-06_jprb,7.2464e-06_jprb,6.0400e-06_jprb/)  
kbo( :, 1,37, 2) = (/&
 & 5.0409e-08_jprb,1.4546e-06_jprb,2.4297e-06_jprb,3.3777e-06_jprb,3.1888e-06_jprb/)  
kbo( :, 2,37, 2) = (/&
 & 7.6278e-08_jprb,1.7897e-06_jprb,2.8722e-06_jprb,3.7595e-06_jprb,3.4883e-06_jprb/)  
kbo( :, 3,37, 2) = (/&
 & 1.1416e-07_jprb,2.2265e-06_jprb,3.4480e-06_jprb,4.2834e-06_jprb,3.8454e-06_jprb/)  
kbo( :, 4,37, 2) = (/&
 & 1.6695e-07_jprb,2.7752e-06_jprb,4.1566e-06_jprb,4.9670e-06_jprb,4.2653e-06_jprb/)  
kbo( :, 5,37, 2) = (/&
 & 2.3741e-07_jprb,3.4464e-06_jprb,5.0175e-06_jprb,5.8098e-06_jprb,4.7509e-06_jprb/)  
kbo( :, 1,38, 2) = (/&
 & 3.8890e-08_jprb,1.1572e-06_jprb,1.9462e-06_jprb,2.7303e-06_jprb,2.5173e-06_jprb/)  
kbo( :, 2,38, 2) = (/&
 & 5.8839e-08_jprb,1.4211e-06_jprb,2.2935e-06_jprb,3.0265e-06_jprb,2.7490e-06_jprb/)  
kbo( :, 3,38, 2) = (/&
 & 8.8306e-08_jprb,1.7664e-06_jprb,2.7503e-06_jprb,3.4388e-06_jprb,3.0259e-06_jprb/)  
kbo( :, 4,38, 2) = (/&
 & 1.2963e-07_jprb,2.2023e-06_jprb,3.3138e-06_jprb,3.9798e-06_jprb,3.3533e-06_jprb/)  
kbo( :, 5,38, 2) = (/&
 & 1.8509e-07_jprb,2.7372e-06_jprb,4.0007e-06_jprb,4.6520e-06_jprb,3.7342e-06_jprb/)  
kbo( :, 1,39, 2) = (/&
 & 3.0015e-08_jprb,9.2084e-07_jprb,1.5596e-06_jprb,2.2083e-06_jprb,1.9828e-06_jprb/)  
kbo( :, 2,39, 2) = (/&
 & 4.5385e-08_jprb,1.1288e-06_jprb,1.8319e-06_jprb,2.4376e-06_jprb,2.1608e-06_jprb/)  
kbo( :, 3,39, 2) = (/&
 & 6.8278e-08_jprb,1.4014e-06_jprb,2.1937e-06_jprb,2.7616e-06_jprb,2.3751e-06_jprb/)  
kbo( :, 4,39, 2) = (/&
 & 1.0061e-07_jprb,1.7477e-06_jprb,2.6422e-06_jprb,3.1891e-06_jprb,2.6290e-06_jprb/)  
kbo( :, 5,39, 2) = (/&
 & 1.4423e-07_jprb,2.1734e-06_jprb,3.1901e-06_jprb,3.7248e-06_jprb,2.9256e-06_jprb/)  
kbo( :, 1,40, 2) = (/&
 & 2.2256e-08_jprb,7.1912e-07_jprb,1.2329e-06_jprb,1.7745e-06_jprb,1.5697e-06_jprb/)  
kbo( :, 2,40, 2) = (/&
 & 3.3569e-08_jprb,8.7851e-07_jprb,1.4396e-06_jprb,1.9436e-06_jprb,1.7055e-06_jprb/)  
kbo( :, 3,40, 2) = (/&
 & 5.0664e-08_jprb,1.0879e-06_jprb,1.7182e-06_jprb,2.1900e-06_jprb,1.8705e-06_jprb/)  
kbo( :, 4,40, 2) = (/&
 & 7.5118e-08_jprb,1.3564e-06_jprb,2.0680e-06_jprb,2.5192e-06_jprb,2.0668e-06_jprb/)  
kbo( :, 5,40, 2) = (/&
 & 1.0843e-07_jprb,1.6886e-06_jprb,2.4960e-06_jprb,2.9369e-06_jprb,2.2973e-06_jprb/)  
kbo( :, 1,41, 2) = (/&
 & 1.6447e-08_jprb,5.6080e-07_jprb,9.7444e-07_jprb,1.4286e-06_jprb,1.2435e-06_jprb/)  
kbo( :, 2,41, 2) = (/&
 & 2.4695e-08_jprb,6.8242e-07_jprb,1.1302e-06_jprb,1.5500e-06_jprb,1.3469e-06_jprb/)  
kbo( :, 3,41, 2) = (/&
 & 3.7349e-08_jprb,8.4229e-07_jprb,1.3428e-06_jprb,1.7360e-06_jprb,1.4732e-06_jprb/)  
kbo( :, 4,41, 2) = (/&
 & 5.5705e-08_jprb,1.0497e-06_jprb,1.6148e-06_jprb,1.9875e-06_jprb,1.6246e-06_jprb/)  
kbo( :, 5,41, 2) = (/&
 & 8.0988e-08_jprb,1.3075e-06_jprb,1.9479e-06_jprb,2.3109e-06_jprb,1.8030e-06_jprb/)  
kbo( :, 1,42, 2) = (/&
 & 1.2186e-08_jprb,4.3819e-07_jprb,7.7124e-07_jprb,1.1538e-06_jprb,9.8460e-07_jprb/)  
kbo( :, 2,42, 2) = (/&
 & 1.8167e-08_jprb,5.3040e-07_jprb,8.8867e-07_jprb,1.2386e-06_jprb,1.0631e-06_jprb/)  
kbo( :, 3,42, 2) = (/&
 & 2.7496e-08_jprb,6.5240e-07_jprb,1.0501e-06_jprb,1.3776e-06_jprb,1.1592e-06_jprb/)  
kbo( :, 4,42, 2) = (/&
 & 4.1226e-08_jprb,8.1205e-07_jprb,1.2611e-06_jprb,1.5695e-06_jprb,1.2755e-06_jprb/)  
kbo( :, 5,42, 2) = (/&
 & 6.0358e-08_jprb,1.0122e-06_jprb,1.5198e-06_jprb,1.8189e-06_jprb,1.4129e-06_jprb/)  
kbo( :, 1,43, 2) = (/&
 & 8.8825e-09_jprb,3.4025e-07_jprb,6.0770e-07_jprb,9.3331e-07_jprb,7.8085e-07_jprb/)  
kbo( :, 2,43, 2) = (/&
 & 1.3077e-08_jprb,4.0821e-07_jprb,6.9425e-07_jprb,9.8759e-07_jprb,8.3977e-07_jprb/)  
kbo( :, 3,43, 2) = (/&
 & 1.9763e-08_jprb,4.9996e-07_jprb,8.1437e-07_jprb,1.0881e-06_jprb,9.1252e-07_jprb/)  
kbo( :, 4,43, 2) = (/&
 & 2.9785e-08_jprb,6.2062e-07_jprb,9.7495e-07_jprb,1.2316e-06_jprb,1.0010e-06_jprb/)  
kbo( :, 5,43, 2) = (/&
 & 4.3968e-08_jprb,7.7371e-07_jprb,1.1737e-06_jprb,1.4206e-06_jprb,1.1059e-06_jprb/)  
kbo( :, 1,44, 2) = (/&
 & 6.4652e-09_jprb,2.6432e-07_jprb,4.7930e-07_jprb,7.5854e-07_jprb,6.2018e-07_jprb/)  
kbo( :, 2,44, 2) = (/&
 & 9.3431e-09_jprb,3.1321e-07_jprb,5.4189e-07_jprb,7.8917e-07_jprb,6.6342e-07_jprb/)  
kbo( :, 3,44, 2) = (/&
 & 1.4054e-08_jprb,3.8170e-07_jprb,6.3021e-07_jprb,8.5948e-07_jprb,7.1866e-07_jprb/)  
kbo( :, 4,44, 2) = (/&
 & 2.1257e-08_jprb,4.7192e-07_jprb,7.5053e-07_jprb,9.6532e-07_jprb,7.8542e-07_jprb/)  
kbo( :, 5,44, 2) = (/&
 & 3.1636e-08_jprb,5.8814e-07_jprb,9.0255e-07_jprb,1.1069e-06_jprb,8.6508e-07_jprb/)  
kbo( :, 1,45, 2) = (/&
 & 4.7493e-09_jprb,2.0618e-07_jprb,3.7955e-07_jprb,6.2010e-07_jprb,4.9320e-07_jprb/)  
kbo( :, 2,45, 2) = (/&
 & 6.7046e-09_jprb,2.4103e-07_jprb,4.2421e-07_jprb,6.3409e-07_jprb,5.2372e-07_jprb/)  
kbo( :, 3,45, 2) = (/&
 & 9.9979e-09_jprb,2.9183e-07_jprb,4.8903e-07_jprb,6.8121e-07_jprb,5.6534e-07_jprb/)  
kbo( :, 4,45, 2) = (/&
 & 1.5142e-08_jprb,3.5915e-07_jprb,5.7833e-07_jprb,7.5825e-07_jprb,6.1575e-07_jprb/)  
kbo( :, 5,45, 2) = (/&
 & 2.2692e-08_jprb,4.4695e-07_jprb,6.9435e-07_jprb,8.6394e-07_jprb,6.7584e-07_jprb/)  
kbo( :, 1,46, 2) = (/&
 & 3.5026e-09_jprb,1.6095e-07_jprb,3.0164e-07_jprb,5.0988e-07_jprb,3.9266e-07_jprb/)  
kbo( :, 2,46, 2) = (/&
 & 4.8056e-09_jprb,1.8571e-07_jprb,3.3238e-07_jprb,5.1211e-07_jprb,4.1411e-07_jprb/)  
kbo( :, 3,46, 2) = (/&
 & 7.0611e-09_jprb,2.2256e-07_jprb,3.7936e-07_jprb,5.4108e-07_jprb,4.4422e-07_jprb/)  
kbo( :, 4,46, 2) = (/&
 & 1.0674e-08_jprb,2.7254e-07_jprb,4.4484e-07_jprb,5.9573e-07_jprb,4.8213e-07_jprb/)  
kbo( :, 5,46, 2) = (/&
 & 1.6091e-08_jprb,3.3807e-07_jprb,5.3220e-07_jprb,6.7368e-07_jprb,5.2739e-07_jprb/)  
kbo( :, 1,47, 2) = (/&
 & 2.5860e-09_jprb,1.2558e-07_jprb,2.4079e-07_jprb,4.2237e-07_jprb,3.1326e-07_jprb/)  
kbo( :, 2,47, 2) = (/&
 & 3.4290e-09_jprb,1.4300e-07_jprb,2.6056e-07_jprb,4.1623e-07_jprb,3.2857e-07_jprb/)  
kbo( :, 3,47, 2) = (/&
 & 4.9220e-09_jprb,1.6878e-07_jprb,2.9365e-07_jprb,4.3092e-07_jprb,3.4960e-07_jprb/)  
kbo( :, 4,47, 2) = (/&
 & 7.3908e-09_jprb,2.0541e-07_jprb,3.4074e-07_jprb,4.6771e-07_jprb,3.7790e-07_jprb/)  
kbo( :, 5,47, 2) = (/&
 & 1.1182e-08_jprb,2.5354e-07_jprb,4.0498e-07_jprb,5.2394e-07_jprb,4.1187e-07_jprb/)  
kbo( :, 1,48, 2) = (/&
 & 1.9362e-09_jprb,9.8548e-08_jprb,1.9411e-07_jprb,3.5272e-07_jprb,2.4937e-07_jprb/)  
kbo( :, 2,48, 2) = (/&
 & 2.4798e-09_jprb,1.1072e-07_jprb,2.0550e-07_jprb,3.4105e-07_jprb,2.6090e-07_jprb/)  
kbo( :, 3,48, 2) = (/&
 & 3.4555e-09_jprb,1.2865e-07_jprb,2.2828e-07_jprb,3.4594e-07_jprb,2.7560e-07_jprb/)  
kbo( :, 4,48, 2) = (/&
 & 5.1234e-09_jprb,1.5515e-07_jprb,2.6207e-07_jprb,3.6909e-07_jprb,2.9595e-07_jprb/)  
kbo( :, 5,48, 2) = (/&
 & 7.7538e-09_jprb,1.9045e-07_jprb,3.0872e-07_jprb,4.0878e-07_jprb,3.2128e-07_jprb/)  
kbo( :, 1,49, 2) = (/&
 & 1.4693e-09_jprb,7.7790e-08_jprb,1.5796e-07_jprb,2.9638e-07_jprb,1.9770e-07_jprb/)  
kbo( :, 2,49, 2) = (/&
 & 1.8189e-09_jprb,8.6134e-08_jprb,1.6334e-07_jprb,2.8139e-07_jprb,2.0674e-07_jprb/)  
kbo( :, 3,49, 2) = (/&
 & 2.4514e-09_jprb,9.8737e-08_jprb,1.7842e-07_jprb,2.8001e-07_jprb,2.1740e-07_jprb/)  

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


SUBROUTINE part15

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


kbo( :, 4,49, 2) = (/&
 & 3.5625e-09_jprb,1.1749e-07_jprb,2.0240e-07_jprb,2.9292e-07_jprb,2.3150e-07_jprb/)  
kbo( :, 5,49, 2) = (/&
 & 5.3682e-09_jprb,1.4339e-07_jprb,2.3606e-07_jprb,3.2024e-07_jprb,2.5000e-07_jprb/)  
kbo( :, 1,50, 2) = (/&
 & 1.1339e-09_jprb,6.1945e-08_jprb,1.2933e-07_jprb,2.5041e-07_jprb,1.5748e-07_jprb/)  
kbo( :, 2,50, 2) = (/&
 & 1.3605e-09_jprb,6.7603e-08_jprb,1.3118e-07_jprb,2.3383e-07_jprb,1.6480e-07_jprb/)  
kbo( :, 3,50, 2) = (/&
 & 1.7751e-09_jprb,7.6527e-08_jprb,1.4063e-07_jprb,2.2853e-07_jprb,1.7288e-07_jprb/)  
kbo( :, 4,50, 2) = (/&
 & 2.5157e-09_jprb,8.9697e-08_jprb,1.5753e-07_jprb,2.3451e-07_jprb,1.8295e-07_jprb/)  
kbo( :, 5,50, 2) = (/&
 & 3.7579e-09_jprb,1.0875e-07_jprb,1.8190e-07_jprb,2.5266e-07_jprb,1.9633e-07_jprb/)  
kbo( :, 1,51, 2) = (/&
 & 8.8714e-10_jprb,4.9745e-08_jprb,1.0659e-07_jprb,2.1260e-07_jprb,1.2561e-07_jprb/)  
kbo( :, 2,51, 2) = (/&
 & 1.0323e-09_jprb,5.3369e-08_jprb,1.0630e-07_jprb,1.9542e-07_jprb,1.3171e-07_jprb/)  
kbo( :, 3,51, 2) = (/&
 & 1.3054e-09_jprb,5.9668e-08_jprb,1.1161e-07_jprb,1.8777e-07_jprb,1.3801e-07_jprb/)  
kbo( :, 4,51, 2) = (/&
 & 1.7978e-09_jprb,6.8999e-08_jprb,1.2328e-07_jprb,1.8919e-07_jprb,1.4548e-07_jprb/)  
kbo( :, 5,51, 2) = (/&
 & 2.6478e-09_jprb,8.2837e-08_jprb,1.4093e-07_jprb,2.0051e-07_jprb,1.5510e-07_jprb/)  
kbo( :, 1,52, 2) = (/&
 & 7.0184e-10_jprb,4.0190e-08_jprb,8.8218e-08_jprb,1.8136e-07_jprb,9.9731e-08_jprb/)  
kbo( :, 2,52, 2) = (/&
 & 7.9197e-10_jprb,4.2349e-08_jprb,8.6755e-08_jprb,1.6417e-07_jprb,1.0496e-07_jprb/)  
kbo( :, 3,52, 2) = (/&
 & 9.7132e-10_jprb,4.6717e-08_jprb,8.9179e-08_jprb,1.5515e-07_jprb,1.1000e-07_jprb/)  
kbo( :, 4,52, 2) = (/&
 & 1.2972e-09_jprb,5.3380e-08_jprb,9.6954e-08_jprb,1.5366e-07_jprb,1.1563e-07_jprb/)  
kbo( :, 5,52, 2) = (/&
 & 1.8721e-09_jprb,6.3248e-08_jprb,1.0959e-07_jprb,1.5990e-07_jprb,1.2254e-07_jprb/)  
kbo( :, 1,53, 2) = (/&
 & 5.6092e-10_jprb,3.2648e-08_jprb,7.3117e-08_jprb,1.5519e-07_jprb,7.8979e-08_jprb/)  
kbo( :, 2,53, 2) = (/&
 & 6.1423e-10_jprb,3.3821e-08_jprb,7.1138e-08_jprb,1.3880e-07_jprb,8.3275e-08_jprb/)  
kbo( :, 3,53, 2) = (/&
 & 7.3095e-10_jprb,3.6763e-08_jprb,7.1824e-08_jprb,1.2909e-07_jprb,8.7408e-08_jprb/)  
kbo( :, 4,53, 2) = (/&
 & 9.4591e-10_jprb,4.1492e-08_jprb,7.6609e-08_jprb,1.2565e-07_jprb,9.1725e-08_jprb/)  
kbo( :, 5,53, 2) = (/&
 & 1.3305e-09_jprb,4.8452e-08_jprb,8.5519e-08_jprb,1.2833e-07_jprb,9.6780e-08_jprb/)  
kbo( :, 1,54, 2) = (/&
 & 4.5340e-10_jprb,2.6715e-08_jprb,6.0844e-08_jprb,1.3273e-07_jprb,6.3768e-08_jprb/)  
kbo( :, 2,54, 2) = (/&
 & 4.8357e-10_jprb,2.7241e-08_jprb,5.8664e-08_jprb,1.1758e-07_jprb,6.7028e-08_jprb/)  
kbo( :, 3,54, 2) = (/&
 & 5.5955e-10_jprb,2.9137e-08_jprb,5.8341e-08_jprb,1.0779e-07_jprb,7.0461e-08_jprb/)  
kbo( :, 4,54, 2) = (/&
 & 7.0364e-10_jprb,3.2508e-08_jprb,6.1041e-08_jprb,1.0330e-07_jprb,7.3905e-08_jprb/)  
kbo( :, 5,54, 2) = (/&
 & 9.6348e-10_jprb,3.7510e-08_jprb,6.7236e-08_jprb,1.0378e-07_jprb,7.7793e-08_jprb/)  
kbo( :, 1,55, 2) = (/&
 & 3.7018e-10_jprb,2.1877e-08_jprb,5.0748e-08_jprb,1.1383e-07_jprb,5.2143e-08_jprb/)  
kbo( :, 2,55, 2) = (/&
 & 3.8461e-10_jprb,2.2059e-08_jprb,4.8491e-08_jprb,9.9810e-08_jprb,5.4531e-08_jprb/)  
kbo( :, 3,55, 2) = (/&
 & 4.3319e-10_jprb,2.3219e-08_jprb,4.7656e-08_jprb,9.0291e-08_jprb,5.7357e-08_jprb/)  
kbo( :, 4,55, 2) = (/&
 & 5.3033e-10_jprb,2.5603e-08_jprb,4.8945e-08_jprb,8.5282e-08_jprb,6.0114e-08_jprb/)  
kbo( :, 5,55, 2) = (/&
 & 7.0668e-10_jprb,2.9236e-08_jprb,5.3162e-08_jprb,8.4413e-08_jprb,6.3151e-08_jprb/)  
kbo( :, 1,56, 2) = (/&
 & 3.0445e-10_jprb,1.7931e-08_jprb,4.2378e-08_jprb,9.8533e-08_jprb,4.2768e-08_jprb/)  
kbo( :, 2,56, 2) = (/&
 & 3.0831e-10_jprb,1.7934e-08_jprb,4.0116e-08_jprb,8.4908e-08_jprb,4.4445e-08_jprb/)  
kbo( :, 3,56, 2) = (/&
 & 3.3824e-10_jprb,1.8600e-08_jprb,3.9063e-08_jprb,7.5998e-08_jprb,4.6738e-08_jprb/)  
kbo( :, 4,56, 2) = (/&
 & 4.0330e-10_jprb,2.0246e-08_jprb,3.9492e-08_jprb,7.0783e-08_jprb,4.8957e-08_jprb/)  
kbo( :, 5,56, 2) = (/&
 & 5.2280e-10_jprb,2.2872e-08_jprb,4.2190e-08_jprb,6.9008e-08_jprb,5.1331e-08_jprb/)  
kbo( :, 1,57, 2) = (/&
 & 2.5188e-10_jprb,1.4754e-08_jprb,3.5438e-08_jprb,8.5756e-08_jprb,3.5193e-08_jprb/)  
kbo( :, 2,57, 2) = (/&
 & 2.4912e-10_jprb,1.4670e-08_jprb,3.3337e-08_jprb,7.2430e-08_jprb,3.6276e-08_jprb/)  
kbo( :, 3,57, 2) = (/&
 & 2.6653e-10_jprb,1.4983e-08_jprb,3.2184e-08_jprb,6.4241e-08_jprb,3.8128e-08_jprb/)  
kbo( :, 4,57, 2) = (/&
 & 3.0939e-10_jprb,1.6062e-08_jprb,3.2064e-08_jprb,5.9025e-08_jprb,3.9920e-08_jprb/)  
kbo( :, 5,57, 2) = (/&
 & 3.9021e-10_jprb,1.7948e-08_jprb,3.3635e-08_jprb,5.6680e-08_jprb,4.1787e-08_jprb/)  
kbo( :, 1,58, 2) = (/&
 & 2.0925e-10_jprb,1.2170e-08_jprb,2.9715e-08_jprb,7.4671e-08_jprb,2.9109e-08_jprb/)  
kbo( :, 2,58, 2) = (/&
 & 2.0318e-10_jprb,1.2015e-08_jprb,2.7763e-08_jprb,6.1869e-08_jprb,2.9789e-08_jprb/)  
kbo( :, 3,58, 2) = (/&
 & 2.1207e-10_jprb,1.2135e-08_jprb,2.6581e-08_jprb,5.4388e-08_jprb,3.1254e-08_jprb/)  
kbo( :, 4,58, 2) = (/&
 & 2.3998e-10_jprb,1.2810e-08_jprb,2.6176e-08_jprb,4.9330e-08_jprb,3.2703e-08_jprb/)  
kbo( :, 5,58, 2) = (/&
 & 2.9508e-10_jprb,1.4156e-08_jprb,2.6975e-08_jprb,4.6724e-08_jprb,3.4169e-08_jprb/)  
kbo( :, 1,59, 2) = (/&
 & 1.7253e-10_jprb,9.9906e-09_jprb,2.4546e-08_jprb,6.2526e-08_jprb,2.4559e-08_jprb/)  
kbo( :, 2,59, 2) = (/&
 & 1.6644e-10_jprb,9.8313e-09_jprb,2.2868e-08_jprb,5.1484e-08_jprb,2.5300e-08_jprb/)  
kbo( :, 3,59, 2) = (/&
 & 1.7202e-10_jprb,9.8966e-09_jprb,2.1823e-08_jprb,4.5067e-08_jprb,2.6453e-08_jprb/)  
kbo( :, 4,59, 2) = (/&
 & 1.9270e-10_jprb,1.0388e-08_jprb,2.1414e-08_jprb,4.0702e-08_jprb,2.7518e-08_jprb/)  
kbo( :, 5,59, 2) = (/&
 & 2.3454e-10_jprb,1.1431e-08_jprb,2.1928e-08_jprb,3.8364e-08_jprb,2.8657e-08_jprb/)  
kbo( :, 1,13, 3) = (/&
 & 9.3592e-06_jprb,1.8635e-04_jprb,3.2360e-04_jprb,5.1013e-04_jprb,1.3719e-03_jprb/)  
kbo( :, 2,13, 3) = (/&
 & 1.3997e-05_jprb,2.2150e-04_jprb,3.6186e-04_jprb,5.0766e-04_jprb,1.6952e-03_jprb/)  
kbo( :, 3,13, 3) = (/&
 & 2.1472e-05_jprb,2.7029e-04_jprb,4.2086e-04_jprb,5.4160e-04_jprb,2.0559e-03_jprb/)  
kbo( :, 4,13, 3) = (/&
 & 3.2949e-05_jprb,3.3595e-04_jprb,5.0190e-04_jprb,6.0909e-04_jprb,2.4422e-03_jprb/)  
kbo( :, 5,13, 3) = (/&
 & 5.0055e-05_jprb,4.2283e-04_jprb,6.0794e-04_jprb,7.0057e-04_jprb,2.8431e-03_jprb/)  
kbo( :, 1,14, 3) = (/&
 & 7.7811e-06_jprb,1.5443e-04_jprb,2.6731e-04_jprb,4.1737e-04_jprb,1.1937e-03_jprb/)  
kbo( :, 2,14, 3) = (/&
 & 1.1790e-05_jprb,1.8454e-04_jprb,3.0104e-04_jprb,4.1861e-04_jprb,1.4661e-03_jprb/)  
kbo( :, 3,14, 3) = (/&
 & 1.8281e-05_jprb,2.2651e-04_jprb,3.5177e-04_jprb,4.5049e-04_jprb,1.7659e-03_jprb/)  
kbo( :, 4,14, 3) = (/&
 & 2.8361e-05_jprb,2.8319e-04_jprb,4.2136e-04_jprb,5.0814e-04_jprb,2.0759e-03_jprb/)  
kbo( :, 5,14, 3) = (/&
 & 4.3496e-05_jprb,3.5806e-04_jprb,5.1240e-04_jprb,5.8626e-04_jprb,2.3955e-03_jprb/)  
kbo( :, 1,15, 3) = (/&
 & 6.4085e-06_jprb,1.2732e-04_jprb,2.2021e-04_jprb,3.4093e-04_jprb,1.0104e-03_jprb/)  
kbo( :, 2,15, 3) = (/&
 & 9.8620e-06_jprb,1.5303e-04_jprb,2.4982e-04_jprb,3.4487e-04_jprb,1.2327e-03_jprb/)  
kbo( :, 3,15, 3) = (/&
 & 1.5483e-05_jprb,1.8913e-04_jprb,2.9331e-04_jprb,3.7385e-04_jprb,1.4660e-03_jprb/)  
kbo( :, 4,15, 3) = (/&
 & 2.4329e-05_jprb,2.3772e-04_jprb,3.5313e-04_jprb,4.2330e-04_jprb,1.7021e-03_jprb/)  
kbo( :, 5,15, 3) = (/&
 & 3.7620e-05_jprb,3.0181e-04_jprb,4.3081e-04_jprb,4.9037e-04_jprb,1.9309e-03_jprb/)  
kbo( :, 1,16, 3) = (/&
 & 5.2944e-06_jprb,1.0489e-04_jprb,1.8139e-04_jprb,2.7836e-04_jprb,8.1553e-04_jprb/)  
kbo( :, 2,16, 3) = (/&
 & 8.2639e-06_jprb,1.2685e-04_jprb,2.0708e-04_jprb,2.8409e-04_jprb,9.8078e-04_jprb/)  
kbo( :, 3,16, 3) = (/&
 & 1.3171e-05_jprb,1.5775e-04_jprb,2.4443e-04_jprb,3.0988e-04_jprb,1.1503e-03_jprb/)  
kbo( :, 4,16, 3) = (/&
 & 2.0912e-05_jprb,1.9929e-04_jprb,2.9554e-04_jprb,3.5252e-04_jprb,1.3131e-03_jprb/)  
kbo( :, 5,16, 3) = (/&
 & 3.2496e-05_jprb,2.5409e-04_jprb,3.6179e-04_jprb,4.0963e-04_jprb,1.4760e-03_jprb/)  
kbo( :, 1,17, 3) = (/&
 & 4.4493e-06_jprb,8.6770e-05_jprb,1.4991e-04_jprb,2.2771e-04_jprb,6.5245e-04_jprb/)  
kbo( :, 2,17, 3) = (/&
 & 7.0395e-06_jprb,1.0559e-04_jprb,1.7203e-04_jprb,2.3430e-04_jprb,7.7262e-04_jprb/)  
kbo( :, 3,17, 3) = (/&
 & 1.1335e-05_jprb,1.3208e-04_jprb,2.0407e-04_jprb,2.5722e-04_jprb,8.9028e-04_jprb/)  
kbo( :, 4,17, 3) = (/&
 & 1.8069e-05_jprb,1.6765e-04_jprb,2.4779e-04_jprb,2.9368e-04_jprb,1.0063e-03_jprb/)  
kbo( :, 5,17, 3) = (/&
 & 2.8090e-05_jprb,2.1455e-04_jprb,3.0412e-04_jprb,3.4249e-04_jprb,1.1248e-03_jprb/)  
kbo( :, 1,18, 3) = (/&
 & 3.8316e-06_jprb,7.2347e-05_jprb,1.2458e-04_jprb,1.8673e-04_jprb,5.2122e-04_jprb/)  
kbo( :, 2,18, 3) = (/&
 & 6.1184e-06_jprb,8.8580e-05_jprb,1.4361e-04_jprb,1.9377e-04_jprb,6.0767e-04_jprb/)  
kbo( :, 3,18, 3) = (/&
 & 9.8947e-06_jprb,1.1135e-04_jprb,1.7120e-04_jprb,2.1410e-04_jprb,6.9194e-04_jprb/)  
kbo( :, 4,18, 3) = (/&
 & 1.5756e-05_jprb,1.4190e-04_jprb,2.0855e-04_jprb,2.4531e-04_jprb,7.7868e-04_jprb/)  
kbo( :, 5,18, 3) = (/&
 & 2.4472e-05_jprb,1.8227e-04_jprb,2.5667e-04_jprb,2.8708e-04_jprb,8.6975e-04_jprb/)  
kbo( :, 1,19, 3) = (/&
 & 3.3167e-06_jprb,6.0472e-05_jprb,1.0361e-04_jprb,1.5344e-04_jprb,4.1912e-04_jprb/)  
kbo( :, 2,19, 3) = (/&
 & 5.3275e-06_jprb,7.4485e-05_jprb,1.2002e-04_jprb,1.6049e-04_jprb,4.8167e-04_jprb/)  
kbo( :, 3,19, 3) = (/&
 & 8.6182e-06_jprb,9.4048e-05_jprb,1.4375e-04_jprb,1.7839e-04_jprb,5.4498e-04_jprb/)  
kbo( :, 4,19, 3) = (/&
 & 1.3697e-05_jprb,1.2034e-04_jprb,1.7570e-04_jprb,2.0508e-04_jprb,6.1244e-04_jprb/)  
kbo( :, 5,19, 3) = (/&
 & 2.1261e-05_jprb,1.5516e-04_jprb,2.1680e-04_jprb,2.4089e-04_jprb,6.8509e-04_jprb/)  
kbo( :, 1,20, 3) = (/&
 & 2.9049e-06_jprb,5.0863e-05_jprb,8.6497e-05_jprb,1.2631e-04_jprb,3.3898e-04_jprb/)  
kbo( :, 2,20, 3) = (/&
 & 4.6782e-06_jprb,6.3037e-05_jprb,1.0077e-04_jprb,1.3328e-04_jprb,3.8658e-04_jprb/)  
kbo( :, 3,20, 3) = (/&
 & 7.5551e-06_jprb,7.9949e-05_jprb,1.2127e-04_jprb,1.4912e-04_jprb,4.3608e-04_jprb/)  
kbo( :, 4,20, 3) = (/&
 & 1.1985e-05_jprb,1.0272e-04_jprb,1.4880e-04_jprb,1.7209e-04_jprb,4.8968e-04_jprb/)  
kbo( :, 5,20, 3) = (/&
 & 1.8564e-05_jprb,1.3289e-04_jprb,1.8395e-04_jprb,2.0290e-04_jprb,5.4862e-04_jprb/)  
kbo( :, 1,21, 3) = (/&
 & 2.5348e-06_jprb,4.2827e-05_jprb,7.2239e-05_jprb,1.0405e-04_jprb,2.7347e-04_jprb/)  
kbo( :, 2,21, 3) = (/&
 & 4.0896e-06_jprb,5.3392e-05_jprb,8.4682e-05_jprb,1.1078e-04_jprb,3.1033e-04_jprb/)  
kbo( :, 3,21, 3) = (/&
 & 6.5911e-06_jprb,6.8002e-05_jprb,1.0240e-04_jprb,1.2468e-04_jprb,3.4945e-04_jprb/)  
kbo( :, 4,21, 3) = (/&
 & 1.0443e-05_jprb,8.7777e-05_jprb,1.2604e-04_jprb,1.4448e-04_jprb,3.9270e-04_jprb/)  
kbo( :, 5,21, 3) = (/&
 & 1.6126e-05_jprb,1.1384e-04_jprb,1.5619e-04_jprb,1.7100e-04_jprb,4.4032e-04_jprb/)  
kbo( :, 1,22, 3) = (/&
 & 2.2535e-06_jprb,3.6484e-05_jprb,6.0844e-05_jprb,8.5915e-05_jprb,2.1861e-04_jprb/)  
kbo( :, 2,22, 3) = (/&
 & 3.6421e-06_jprb,4.5838e-05_jprb,7.1930e-05_jprb,9.2688e-05_jprb,2.4695e-04_jprb/)  
kbo( :, 3,22, 3) = (/&
 & 5.8649e-06_jprb,5.8716e-05_jprb,8.7516e-05_jprb,1.0512e-04_jprb,2.7805e-04_jprb/)  
kbo( :, 4,22, 3) = (/&
 & 9.2724e-06_jprb,7.6158e-05_jprb,1.0809e-04_jprb,1.2256e-04_jprb,3.1283e-04_jprb/)  
kbo( :, 5,22, 3) = (/&
 & 1.4237e-05_jprb,9.8834e-05_jprb,1.3432e-04_jprb,1.4571e-04_jprb,3.5095e-04_jprb/)  
kbo( :, 1,23, 3) = (/&
 & 1.9940e-06_jprb,3.1133e-05_jprb,5.1328e-05_jprb,7.1090e-05_jprb,1.7327e-04_jprb/)  
kbo( :, 2,23, 3) = (/&
 & 3.2312e-06_jprb,3.9399e-05_jprb,6.1179e-05_jprb,7.7708e-05_jprb,1.9531e-04_jprb/)  
kbo( :, 3,23, 3) = (/&
 & 5.2011e-06_jprb,5.0768e-05_jprb,7.4847e-05_jprb,8.8760e-05_jprb,2.2017e-04_jprb/)  
kbo( :, 4,23, 3) = (/&
 & 8.1919e-06_jprb,6.6023e-05_jprb,9.2815e-05_jprb,1.0413e-04_jprb,2.4809e-04_jprb/)  
kbo( :, 5,23, 3) = (/&
 & 1.2498e-05_jprb,8.5676e-05_jprb,1.1550e-04_jprb,1.2430e-04_jprb,2.7861e-04_jprb/)  
kbo( :, 1,24, 3) = (/&
 & 1.7459e-06_jprb,2.6558e-05_jprb,4.3302e-05_jprb,5.8931e-05_jprb,1.3456e-04_jprb/)  
kbo( :, 2,24, 3) = (/&
 & 2.8378e-06_jprb,3.3840e-05_jprb,5.2034e-05_jprb,6.5221e-05_jprb,1.5184e-04_jprb/)  
kbo( :, 3,24, 3) = (/&
 & 4.5668e-06_jprb,4.3812e-05_jprb,6.4027e-05_jprb,7.5015e-05_jprb,1.7156e-04_jprb/)  
kbo( :, 4,24, 3) = (/&
 & 7.1655e-06_jprb,5.7056e-05_jprb,7.9597e-05_jprb,8.8545e-05_jprb,1.9368e-04_jprb/)  
kbo( :, 5,24, 3) = (/&
 & 1.0891e-05_jprb,7.4041e-05_jprb,9.9156e-05_jprb,1.0602e-04_jprb,2.1759e-04_jprb/)  
kbo( :, 1,25, 3) = (/&
 & 1.5351e-06_jprb,2.2739e-05_jprb,3.6661e-05_jprb,4.9033e-05_jprb,1.0464e-04_jprb/)  
kbo( :, 2,25, 3) = (/&
 & 2.5013e-06_jprb,2.9156e-05_jprb,4.4403e-05_jprb,5.4906e-05_jprb,1.1839e-04_jprb/)  
kbo( :, 3,25, 3) = (/&
 & 4.0193e-06_jprb,3.7867e-05_jprb,5.4900e-05_jprb,6.3596e-05_jprb,1.3405e-04_jprb/)  
kbo( :, 4,25, 3) = (/&
 & 6.2816e-06_jprb,4.9369e-05_jprb,6.8362e-05_jprb,7.5478e-05_jprb,1.5142e-04_jprb/)  
kbo( :, 5,25, 3) = (/&
 & 9.5147e-06_jprb,6.4006e-05_jprb,8.5212e-05_jprb,9.0532e-05_jprb,1.6998e-04_jprb/)  
kbo( :, 1,26, 3) = (/&
 & 1.3683e-06_jprb,1.9609e-05_jprb,3.1239e-05_jprb,4.1025e-05_jprb,8.2529e-05_jprb/)  
kbo( :, 2,26, 3) = (/&
 & 2.2313e-06_jprb,2.5269e-05_jprb,3.8126e-05_jprb,4.6436e-05_jprb,9.3600e-05_jprb/)  
kbo( :, 3,26, 3) = (/&
 & 3.5754e-06_jprb,3.2913e-05_jprb,4.7295e-05_jprb,5.4190e-05_jprb,1.0611e-04_jprb/)  
kbo( :, 4,26, 3) = (/&
 & 5.5664e-06_jprb,4.2915e-05_jprb,5.8952e-05_jprb,6.4581e-05_jprb,1.1966e-04_jprb/)  
kbo( :, 5,26, 3) = (/&
 & 8.3928e-06_jprb,5.5540e-05_jprb,7.3478e-05_jprb,7.7578e-05_jprb,1.3407e-04_jprb/)  
kbo( :, 1,27, 3) = (/&
 & 1.2171e-06_jprb,1.6923e-05_jprb,2.6666e-05_jprb,3.4428e-05_jprb,6.4836e-05_jprb/)  
kbo( :, 2,27, 3) = (/&
 & 1.9862e-06_jprb,2.1896e-05_jprb,3.2752e-05_jprb,3.9332e-05_jprb,7.3650e-05_jprb/)  
kbo( :, 3,27, 3) = (/&
 & 3.1750e-06_jprb,2.8593e-05_jprb,4.0727e-05_jprb,4.6210e-05_jprb,8.3366e-05_jprb/)  
kbo( :, 4,27, 3) = (/&
 & 4.9257e-06_jprb,3.7245e-05_jprb,5.0788e-05_jprb,5.5242e-05_jprb,9.3744e-05_jprb/)  
kbo( :, 5,27, 3) = (/&
 & 7.3934e-06_jprb,4.8090e-05_jprb,6.3249e-05_jprb,6.6414e-05_jprb,1.0490e-04_jprb/)  
kbo( :, 1,28, 3) = (/&
 & 1.0792e-06_jprb,1.4600e-05_jprb,2.2784e-05_jprb,2.8952e-05_jprb,5.0485e-05_jprb/)  
kbo( :, 2,28, 3) = (/&
 & 1.7629e-06_jprb,1.8972e-05_jprb,2.8123e-05_jprb,3.3346e-05_jprb,5.7277e-05_jprb/)  
kbo( :, 3,28, 3) = (/&
 & 2.8131e-06_jprb,2.4805e-05_jprb,3.5042e-05_jprb,3.9409e-05_jprb,6.4622e-05_jprb/)  
kbo( :, 4,28, 3) = (/&
 & 4.3512e-06_jprb,3.2251e-05_jprb,4.3694e-05_jprb,4.7211e-05_jprb,7.2602e-05_jprb/)  
kbo( :, 5,28, 3) = (/&
 & 6.4989e-06_jprb,4.1559e-05_jprb,5.4337e-05_jprb,5.6763e-05_jprb,8.1333e-05_jprb/)  
kbo( :, 1,29, 3) = (/&
 & 9.6857e-07_jprb,1.2666e-05_jprb,1.9556e-05_jprb,2.4447e-05_jprb,3.9529e-05_jprb/)  
kbo( :, 2,29, 3) = (/&
 & 1.5818e-06_jprb,1.6515e-05_jprb,2.4236e-05_jprb,2.8362e-05_jprb,4.4697e-05_jprb/)  
kbo( :, 3,29, 3) = (/&
 & 2.5168e-06_jprb,2.1586e-05_jprb,3.0227e-05_jprb,3.3688e-05_jprb,5.0413e-05_jprb/)  
kbo( :, 4,29, 3) = (/&
 & 3.8723e-06_jprb,2.8010e-05_jprb,3.7666e-05_jprb,4.0411e-05_jprb,5.6688e-05_jprb/)  
kbo( :, 5,29, 3) = (/&
 & 5.7462e-06_jprb,3.6016e-05_jprb,4.6768e-05_jprb,4.8565e-05_jprb,6.3553e-05_jprb/)  
kbo( :, 1,30, 3) = (/&
 & 8.7056e-07_jprb,1.1001e-05_jprb,1.6806e-05_jprb,2.0679e-05_jprb,3.0642e-05_jprb/)  
kbo( :, 2,30, 3) = (/&
 & 1.4204e-06_jprb,1.4373e-05_jprb,2.0891e-05_jprb,2.4158e-05_jprb,3.4644e-05_jprb/)  
kbo( :, 3,30, 3) = (/&
 & 2.2511e-06_jprb,1.8769e-05_jprb,2.6058e-05_jprb,2.8796e-05_jprb,3.9114e-05_jprb/)  
kbo( :, 4,30, 3) = (/&
 & 3.4456e-06_jprb,2.4312e-05_jprb,3.2449e-05_jprb,3.4570e-05_jprb,4.4025e-05_jprb/)  
kbo( :, 5,30, 3) = (/&
 & 5.0796e-06_jprb,3.1203e-05_jprb,4.0247e-05_jprb,4.1528e-05_jprb,4.9430e-05_jprb/)  
kbo( :, 1,31, 3) = (/&
 & 7.8800e-07_jprb,9.5841e-06_jprb,1.4480e-05_jprb,1.7537e-05_jprb,2.3703e-05_jprb/)  
kbo( :, 2,31, 3) = (/&
 & 1.2827e-06_jprb,1.2532e-05_jprb,1.8035e-05_jprb,2.0619e-05_jprb,2.6829e-05_jprb/)  
kbo( :, 3,31, 3) = (/&
 & 2.0224e-06_jprb,1.6343e-05_jprb,2.2488e-05_jprb,2.4639e-05_jprb,3.0300e-05_jprb/)  

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


SUBROUTINE part16

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


kbo( :, 4,31, 3) = (/&
 & 3.0735e-06_jprb,2.1137e-05_jprb,2.7988e-05_jprb,2.9590e-05_jprb,3.4174e-05_jprb/)  
kbo( :, 5,31, 3) = (/&
 & 4.5010e-06_jprb,2.7051e-05_jprb,3.4649e-05_jprb,3.5519e-05_jprb,3.8449e-05_jprb/)  
kbo( :, 1,32, 3) = (/&
 & 7.1645e-07_jprb,8.3621e-06_jprb,1.2499e-05_jprb,1.4908e-05_jprb,1.8443e-05_jprb/)  
kbo( :, 2,32, 3) = (/&
 & 1.1619e-06_jprb,1.0942e-05_jprb,1.5584e-05_jprb,1.7626e-05_jprb,2.0886e-05_jprb/)  
kbo( :, 3,32, 3) = (/&
 & 1.8202e-06_jprb,1.4246e-05_jprb,1.9422e-05_jprb,2.1099e-05_jprb,2.3648e-05_jprb/)  
kbo( :, 4,32, 3) = (/&
 & 2.7468e-06_jprb,1.8389e-05_jprb,2.4154e-05_jprb,2.5344e-05_jprb,2.6722e-05_jprb/)  
kbo( :, 5,32, 3) = (/&
 & 3.9939e-06_jprb,2.3459e-05_jprb,2.9845e-05_jprb,3.0391e-05_jprb,3.0128e-05_jprb/)  
kbo( :, 1,33, 3) = (/&
 & 6.5279e-07_jprb,7.3021e-06_jprb,1.0797e-05_jprb,1.2695e-05_jprb,1.4402e-05_jprb/)  
kbo( :, 2,33, 3) = (/&
 & 1.0533e-06_jprb,9.5550e-06_jprb,1.3466e-05_jprb,1.5078e-05_jprb,1.6322e-05_jprb/)  
kbo( :, 3,33, 3) = (/&
 & 1.6386e-06_jprb,1.2420e-05_jprb,1.6777e-05_jprb,1.8071e-05_jprb,1.8509e-05_jprb/)  
kbo( :, 4,33, 3) = (/&
 & 2.4555e-06_jprb,1.6002e-05_jprb,2.0850e-05_jprb,2.1713e-05_jprb,2.0967e-05_jprb/)  
kbo( :, 5,33, 3) = (/&
 & 3.5438e-06_jprb,2.0331e-05_jprb,2.5695e-05_jprb,2.6001e-05_jprb,2.3644e-05_jprb/)  
kbo( :, 1,34, 3) = (/&
 & 5.8863e-07_jprb,6.3339e-06_jprb,9.2734e-06_jprb,1.0778e-05_jprb,1.1469e-05_jprb/)  
kbo( :, 2,34, 3) = (/&
 & 9.4445e-07_jprb,8.2845e-06_jprb,1.1567e-05_jprb,1.2839e-05_jprb,1.3017e-05_jprb/)  
kbo( :, 3,34, 3) = (/&
 & 1.4596e-06_jprb,1.0750e-05_jprb,1.4406e-05_jprb,1.5399e-05_jprb,1.4774e-05_jprb/)  
kbo( :, 4,34, 3) = (/&
 & 2.1724e-06_jprb,1.3818e-05_jprb,1.7879e-05_jprb,1.8493e-05_jprb,1.6729e-05_jprb/)  
kbo( :, 5,34, 3) = (/&
 & 3.1148e-06_jprb,1.7498e-05_jprb,2.1987e-05_jprb,2.2131e-05_jprb,1.8824e-05_jprb/)  
kbo( :, 1,35, 3) = (/&
 & 5.0537e-07_jprb,5.3493e-06_jprb,7.7919e-06_jprb,9.0039e-06_jprb,8.9781e-06_jprb/)  
kbo( :, 2,35, 3) = (/&
 & 8.0918e-07_jprb,6.9937e-06_jprb,9.7192e-06_jprb,1.0739e-05_jprb,1.0213e-05_jprb/)  
kbo( :, 3,35, 3) = (/&
 & 1.2470e-06_jprb,9.0680e-06_jprb,1.2102e-05_jprb,1.2886e-05_jprb,1.1596e-05_jprb/)  
kbo( :, 4,35, 3) = (/&
 & 1.8501e-06_jprb,1.1641e-05_jprb,1.5006e-05_jprb,1.5470e-05_jprb,1.3118e-05_jprb/)  
kbo( :, 5,35, 3) = (/&
 & 2.6449e-06_jprb,1.4713e-05_jprb,1.8433e-05_jprb,1.8505e-05_jprb,1.4740e-05_jprb/)  
kbo( :, 1,36, 3) = (/&
 & 4.1057e-07_jprb,4.3814e-06_jprb,6.3851e-06_jprb,7.3787e-06_jprb,6.8704e-06_jprb/)  
kbo( :, 2,36, 3) = (/&
 & 6.5882e-07_jprb,5.7295e-06_jprb,7.9649e-06_jprb,8.8014e-06_jprb,7.8310e-06_jprb/)  
kbo( :, 3,36, 3) = (/&
 & 1.0168e-06_jprb,7.4305e-06_jprb,9.9179e-06_jprb,1.0562e-05_jprb,8.9079e-06_jprb/)  
kbo( :, 4,36, 3) = (/&
 & 1.5108e-06_jprb,9.5390e-06_jprb,1.2298e-05_jprb,1.2679e-05_jprb,1.0083e-05_jprb/)  
kbo( :, 5,36, 3) = (/&
 & 2.1616e-06_jprb,1.2056e-05_jprb,1.5104e-05_jprb,1.5169e-05_jprb,1.1345e-05_jprb/)  
kbo( :, 1,37, 3) = (/&
 & 3.1315e-07_jprb,3.4610e-06_jprb,5.0780e-06_jprb,5.9099e-06_jprb,5.3692e-06_jprb/)  
kbo( :, 2,37, 3) = (/&
 & 5.0553e-07_jprb,4.5300e-06_jprb,6.3356e-06_jprb,7.0381e-06_jprb,6.1160e-06_jprb/)  
kbo( :, 3,37, 3) = (/&
 & 7.8502e-07_jprb,5.8822e-06_jprb,7.8910e-06_jprb,8.4420e-06_jprb,6.9587e-06_jprb/)  
kbo( :, 4,37, 3) = (/&
 & 1.1731e-06_jprb,7.5654e-06_jprb,9.7936e-06_jprb,1.0137e-05_jprb,7.8860e-06_jprb/)  
kbo( :, 5,37, 3) = (/&
 & 1.6874e-06_jprb,9.5810e-06_jprb,1.2045e-05_jprb,1.2132e-05_jprb,8.8810e-06_jprb/)  
kbo( :, 1,38, 3) = (/&
 & 2.3771e-07_jprb,2.7274e-06_jprb,4.0311e-06_jprb,4.7281e-06_jprb,4.1877e-06_jprb/)  
kbo( :, 2,38, 3) = (/&
 & 3.8612e-07_jprb,3.5727e-06_jprb,5.0296e-06_jprb,5.6200e-06_jprb,4.7630e-06_jprb/)  
kbo( :, 3,38, 3) = (/&
 & 6.0348e-07_jprb,4.6457e-06_jprb,6.2661e-06_jprb,6.7370e-06_jprb,5.4196e-06_jprb/)  
kbo( :, 4,38, 3) = (/&
 & 9.0735e-07_jprb,5.9856e-06_jprb,7.7840e-06_jprb,8.0913e-06_jprb,6.1484e-06_jprb/)  
kbo( :, 5,38, 3) = (/&
 & 1.3127e-06_jprb,7.5975e-06_jprb,9.5859e-06_jprb,9.6880e-06_jprb,6.9288e-06_jprb/)  
kbo( :, 1,39, 3) = (/&
 & 1.8023e-07_jprb,2.1491e-06_jprb,3.2000e-06_jprb,3.7837e-06_jprb,3.2502e-06_jprb/)  
kbo( :, 2,39, 3) = (/&
 & 2.9456e-07_jprb,2.8164e-06_jprb,3.9921e-06_jprb,4.4877e-06_jprb,3.6914e-06_jprb/)  
kbo( :, 3,39, 3) = (/&
 & 4.6344e-07_jprb,3.6676e-06_jprb,4.9751e-06_jprb,5.3760e-06_jprb,4.1983e-06_jprb/)  
kbo( :, 4,39, 3) = (/&
 & 7.0119e-07_jprb,4.7335e-06_jprb,6.1852e-06_jprb,6.4579e-06_jprb,4.7648e-06_jprb/)  
kbo( :, 5,39, 3) = (/&
 & 1.0202e-06_jprb,6.0220e-06_jprb,7.6267e-06_jprb,7.7355e-06_jprb,5.3712e-06_jprb/)  
kbo( :, 1,40, 3) = (/&
 & 1.2988e-07_jprb,1.6490e-06_jprb,2.4862e-06_jprb,2.9837e-06_jprb,2.5331e-06_jprb/)  
kbo( :, 2,40, 3) = (/&
 & 2.1421e-07_jprb,2.1615e-06_jprb,3.1003e-06_jprb,3.5229e-06_jprb,2.8723e-06_jprb/)  
kbo( :, 3,40, 3) = (/&
 & 3.4046e-07_jprb,2.8213e-06_jprb,3.8655e-06_jprb,4.2144e-06_jprb,3.2646e-06_jprb/)  
kbo( :, 4,40, 3) = (/&
 & 5.2031e-07_jprb,3.6506e-06_jprb,4.8112e-06_jprb,5.0626e-06_jprb,3.7075e-06_jprb/)  
kbo( :, 5,40, 3) = (/&
 & 7.6450e-07_jprb,4.6621e-06_jprb,5.9448e-06_jprb,6.0685e-06_jprb,4.1839e-06_jprb/)  
kbo( :, 1,41, 3) = (/&
 & 9.2788e-08_jprb,1.2611e-06_jprb,1.9271e-06_jprb,2.3514e-06_jprb,1.9748e-06_jprb/)  
kbo( :, 2,41, 3) = (/&
 & 1.5438e-07_jprb,1.6527e-06_jprb,2.4004e-06_jprb,2.7614e-06_jprb,2.2337e-06_jprb/)  
kbo( :, 3,41, 3) = (/&
 & 2.4802e-07_jprb,2.1617e-06_jprb,2.9945e-06_jprb,3.2967e-06_jprb,2.5364e-06_jprb/)  
kbo( :, 4,41, 3) = (/&
 & 3.8306e-07_jprb,2.8040e-06_jprb,3.7298e-06_jprb,3.9584e-06_jprb,2.8813e-06_jprb/)  
kbo( :, 5,41, 3) = (/&
 & 5.6866e-07_jprb,3.5943e-06_jprb,4.6183e-06_jprb,4.7484e-06_jprb,3.2555e-06_jprb/)  
kbo( :, 1,42, 3) = (/&
 & 6.6123e-08_jprb,9.6442e-07_jprb,1.4943e-06_jprb,1.8557e-06_jprb,1.5379e-06_jprb/)  
kbo( :, 2,42, 3) = (/&
 & 1.1090e-07_jprb,1.2629e-06_jprb,1.8581e-06_jprb,2.1664e-06_jprb,1.7336e-06_jprb/)  
kbo( :, 3,42, 3) = (/&
 & 1.8006e-07_jprb,1.6546e-06_jprb,2.3186e-06_jprb,2.5790e-06_jprb,1.9660e-06_jprb/)  
kbo( :, 4,42, 3) = (/&
 & 2.8112e-07_jprb,2.1513e-06_jprb,2.8897e-06_jprb,3.0943e-06_jprb,2.2331e-06_jprb/)  
kbo( :, 5,42, 3) = (/&
 & 4.2176e-07_jprb,2.7676e-06_jprb,3.5854e-06_jprb,3.7139e-06_jprb,2.5247e-06_jprb/)  
kbo( :, 1,43, 3) = (/&
 & 4.5723e-08_jprb,7.2721e-07_jprb,1.1468e-06_jprb,1.4561e-06_jprb,1.1970e-06_jprb/)  
kbo( :, 2,43, 3) = (/&
 & 7.7279e-08_jprb,9.5086e-07_jprb,1.4214e-06_jprb,1.6869e-06_jprb,1.3436e-06_jprb/)  
kbo( :, 3,43, 3) = (/&
 & 1.2698e-07_jprb,1.2469e-06_jprb,1.7734e-06_jprb,1.9988e-06_jprb,1.5201e-06_jprb/)  
kbo( :, 4,43, 3) = (/&
 & 2.0087e-07_jprb,1.6261e-06_jprb,2.2117e-06_jprb,2.3948e-06_jprb,1.7257e-06_jprb/)  
kbo( :, 5,43, 3) = (/&
 & 3.0517e-07_jprb,2.0997e-06_jprb,2.7492e-06_jprb,2.8756e-06_jprb,1.9526e-06_jprb/)  
kbo( :, 1,44, 3) = (/&
 & 3.1195e-08_jprb,5.4529e-07_jprb,8.7740e-07_jprb,1.1428e-06_jprb,9.3212e-07_jprb/)  
kbo( :, 2,44, 3) = (/&
 & 5.3002e-08_jprb,7.1132e-07_jprb,1.0821e-06_jprb,1.3117e-06_jprb,1.0411e-06_jprb/)  
kbo( :, 3,44, 3) = (/&
 & 8.8116e-08_jprb,9.3281e-07_jprb,1.3488e-06_jprb,1.5439e-06_jprb,1.1733e-06_jprb/)  
kbo( :, 4,44, 3) = (/&
 & 1.4135e-07_jprb,1.2201e-06_jprb,1.6833e-06_jprb,1.8457e-06_jprb,1.3305e-06_jprb/)  
kbo( :, 5,44, 3) = (/&
 & 2.1772e-07_jprb,1.5809e-06_jprb,2.0956e-06_jprb,2.2159e-06_jprb,1.5063e-06_jprb/)  
kbo( :, 1,45, 3) = (/&
 & 2.1310e-08_jprb,4.0944e-07_jprb,6.7327e-07_jprb,9.0153e-07_jprb,7.2497e-07_jprb/)  
kbo( :, 2,45, 3) = (/&
 & 3.6231e-08_jprb,5.3235e-07_jprb,8.2462e-07_jprb,1.0227e-06_jprb,8.0606e-07_jprb/)  
kbo( :, 3,45, 3) = (/&
 & 6.0860e-08_jprb,6.9752e-07_jprb,1.0257e-06_jprb,1.1946e-06_jprb,9.0421e-07_jprb/)  
kbo( :, 4,45, 3) = (/&
 & 9.8966e-08_jprb,9.1442e-07_jprb,1.2808e-06_jprb,1.4232e-06_jprb,1.0228e-06_jprb/)  
kbo( :, 5,45, 3) = (/&
 & 1.5458e-07_jprb,1.1885e-06_jprb,1.5957e-06_jprb,1.7071e-06_jprb,1.1581e-06_jprb/)  
kbo( :, 1,46, 3) = (/&
 & 1.4455e-08_jprb,3.0647e-07_jprb,5.1657e-07_jprb,7.1517e-07_jprb,5.6309e-07_jprb/)  
kbo( :, 2,46, 3) = (/&
 & 2.4438e-08_jprb,3.9644e-07_jprb,6.2668e-07_jprb,7.9740e-07_jprb,6.2357e-07_jprb/)  
kbo( :, 3,46, 3) = (/&
 & 4.1400e-08_jprb,5.1850e-07_jprb,7.7667e-07_jprb,9.2312e-07_jprb,6.9619e-07_jprb/)  
kbo( :, 4,46, 3) = (/&
 & 6.8241e-08_jprb,6.8045e-07_jprb,9.6951e-07_jprb,1.0939e-06_jprb,7.8455e-07_jprb/)  
kbo( :, 5,46, 3) = (/&
 & 1.0821e-07_jprb,8.8739e-07_jprb,1.2089e-06_jprb,1.3101e-06_jprb,8.8794e-07_jprb/)  
kbo( :, 1,47, 3) = (/&
 & 9.6929e-09_jprb,2.2797e-07_jprb,3.9542e-07_jprb,5.7182e-07_jprb,4.3847e-07_jprb/)  
kbo( :, 2,47, 3) = (/&
 & 1.6123e-08_jprb,2.9242e-07_jprb,4.7359e-07_jprb,6.2141e-07_jprb,4.8271e-07_jprb/)  
kbo( :, 3,47, 3) = (/&
 & 2.7447e-08_jprb,3.8129e-07_jprb,5.8328e-07_jprb,7.1120e-07_jprb,5.3692e-07_jprb/)  
kbo( :, 4,47, 3) = (/&
 & 4.5855e-08_jprb,5.0030e-07_jprb,7.2710e-07_jprb,8.3592e-07_jprb,6.0206e-07_jprb/)  
kbo( :, 5,47, 3) = (/&
 & 7.3923e-08_jprb,6.5467e-07_jprb,9.0733e-07_jprb,9.9829e-07_jprb,6.8031e-07_jprb/)  
kbo( :, 1,48, 3) = (/&
 & 6.6058e-09_jprb,1.7063e-07_jprb,3.0447e-07_jprb,4.6224e-07_jprb,3.4217e-07_jprb/)  
kbo( :, 2,48, 3) = (/&
 & 1.0670e-08_jprb,2.1618e-07_jprb,3.5958e-07_jprb,4.8824e-07_jprb,3.7325e-07_jprb/)  
kbo( :, 3,48, 3) = (/&
 & 1.8128e-08_jprb,2.8060e-07_jprb,4.3881e-07_jprb,5.5007e-07_jprb,4.1348e-07_jprb/)  
kbo( :, 4,48, 3) = (/&
 & 3.0624e-08_jprb,3.6766e-07_jprb,5.4535e-07_jprb,6.4036e-07_jprb,4.6137e-07_jprb/)  
kbo( :, 5,48, 3) = (/&
 & 5.0151e-08_jprb,4.8217e-07_jprb,6.8071e-07_jprb,7.6123e-07_jprb,5.1955e-07_jprb/)  
kbo( :, 1,49, 3) = (/&
 & 4.6014e-09_jprb,1.2872e-07_jprb,2.3633e-07_jprb,3.7814e-07_jprb,2.6748e-07_jprb/)  
kbo( :, 2,49, 3) = (/&
 & 7.1127e-09_jprb,1.6040e-07_jprb,2.7445e-07_jprb,3.8804e-07_jprb,2.8841e-07_jprb/)  
kbo( :, 3,49, 3) = (/&
 & 1.1951e-08_jprb,2.0675e-07_jprb,3.3098e-07_jprb,4.2738e-07_jprb,3.1734e-07_jprb/)  
kbo( :, 4,49, 3) = (/&
 & 2.0341e-08_jprb,2.7019e-07_jprb,4.0929e-07_jprb,4.9230e-07_jprb,3.5284e-07_jprb/)  
kbo( :, 5,49, 3) = (/&
 & 3.3789e-08_jprb,3.5457e-07_jprb,5.1051e-07_jprb,5.8104e-07_jprb,3.9543e-07_jprb/)  
kbo( :, 1,50, 3) = (/&
 & 3.3123e-09_jprb,9.8389e-08_jprb,1.8583e-07_jprb,3.1200e-07_jprb,2.1151e-07_jprb/)  
kbo( :, 2,50, 3) = (/&
 & 4.8635e-09_jprb,1.2034e-07_jprb,2.1156e-07_jprb,3.1223e-07_jprb,2.2606e-07_jprb/)  
kbo( :, 3,50, 3) = (/&
 & 8.0017e-09_jprb,1.5366e-07_jprb,2.5190e-07_jprb,3.3521e-07_jprb,2.4676e-07_jprb/)  
kbo( :, 4,50, 3) = (/&
 & 1.3638e-08_jprb,2.0012e-07_jprb,3.0928e-07_jprb,3.8141e-07_jprb,2.7336e-07_jprb/)  
kbo( :, 5,50, 3) = (/&
 & 2.2922e-08_jprb,2.6241e-07_jprb,3.8502e-07_jprb,4.4648e-07_jprb,3.0528e-07_jprb/)  
kbo( :, 1,51, 3) = (/&
 & 2.4418e-09_jprb,7.5933e-08_jprb,1.4742e-07_jprb,2.5968e-07_jprb,1.6891e-07_jprb/)  
kbo( :, 2,51, 3) = (/&
 & 3.3989e-09_jprb,9.1095e-08_jprb,1.6428e-07_jprb,2.5385e-07_jprb,1.7889e-07_jprb/)  
kbo( :, 3,51, 3) = (/&
 & 5.4139e-09_jprb,1.1482e-07_jprb,1.9299e-07_jprb,2.6542e-07_jprb,1.9344e-07_jprb/)  
kbo( :, 4,51, 3) = (/&
 & 9.1803e-09_jprb,1.4881e-07_jprb,2.3477e-07_jprb,2.9709e-07_jprb,2.1318e-07_jprb/)  
kbo( :, 5,51, 3) = (/&
 & 1.5567e-08_jprb,1.9481e-07_jprb,2.9131e-07_jprb,3.4464e-07_jprb,2.3734e-07_jprb/)  
kbo( :, 1,52, 3) = (/&
 & 1.8356e-09_jprb,5.9138e-08_jprb,1.1788e-07_jprb,2.1792e-07_jprb,1.3551e-07_jprb/)  
kbo( :, 2,52, 3) = (/&
 & 2.4226e-09_jprb,6.9427e-08_jprb,1.2853e-07_jprb,2.0827e-07_jprb,1.4167e-07_jprb/)  
kbo( :, 3,52, 3) = (/&
 & 3.6921e-09_jprb,8.6117e-08_jprb,1.4855e-07_jprb,2.1230e-07_jprb,1.5195e-07_jprb/)  
kbo( :, 4,52, 3) = (/&
 & 6.1793e-09_jprb,1.1080e-07_jprb,1.7865e-07_jprb,2.3238e-07_jprb,1.6623e-07_jprb/)  
kbo( :, 5,52, 3) = (/&
 & 1.0533e-08_jprb,1.4468e-07_jprb,2.2055e-07_jprb,2.6689e-07_jprb,1.8440e-07_jprb/)  
kbo( :, 1,53, 3) = (/&
 & 1.4057e-09_jprb,4.6460e-08_jprb,9.5335e-08_jprb,1.8476e-07_jprb,1.0859e-07_jprb/)  
kbo( :, 2,53, 3) = (/&
 & 1.7607e-09_jprb,5.3285e-08_jprb,1.0139e-07_jprb,1.7215e-07_jprb,1.1242e-07_jprb/)  
kbo( :, 3,53, 3) = (/&
 & 2.5488e-09_jprb,6.4871e-08_jprb,1.1488e-07_jprb,1.7132e-07_jprb,1.1951e-07_jprb/)  
kbo( :, 4,53, 3) = (/&
 & 4.1657e-09_jprb,8.2629e-08_jprb,1.3641e-07_jprb,1.8283e-07_jprb,1.2965e-07_jprb/)  
kbo( :, 5,53, 3) = (/&
 & 7.0997e-09_jprb,1.0750e-07_jprb,1.6715e-07_jprb,2.0732e-07_jprb,1.4296e-07_jprb/)  
kbo( :, 1,54, 3) = (/&
 & 1.0999e-09_jprb,3.6846e-08_jprb,7.7697e-08_jprb,1.5754e-07_jprb,8.8206e-08_jprb/)  
kbo( :, 2,54, 3) = (/&
 & 1.3156e-09_jprb,4.1399e-08_jprb,8.0749e-08_jprb,1.4331e-07_jprb,9.0854e-08_jprb/)  
kbo( :, 3,54, 3) = (/&
 & 1.8124e-09_jprb,4.9493e-08_jprb,8.9710e-08_jprb,1.3962e-07_jprb,9.5712e-08_jprb/)  
kbo( :, 4,54, 3) = (/&
 & 2.8677e-09_jprb,6.2264e-08_jprb,1.0518e-07_jprb,1.4542e-07_jprb,1.0312e-07_jprb/)  
kbo( :, 5,54, 3) = (/&
 & 4.8571e-09_jprb,8.0602e-08_jprb,1.2774e-07_jprb,1.6229e-07_jprb,1.1315e-07_jprb/)  
kbo( :, 1,55, 3) = (/&
 & 8.7254e-10_jprb,2.9511e-08_jprb,6.3773e-08_jprb,1.3472e-07_jprb,7.2224e-08_jprb/)  
kbo( :, 2,55, 3) = (/&
 & 1.0019e-09_jprb,3.2470e-08_jprb,6.4795e-08_jprb,1.1996e-07_jprb,7.4131e-08_jprb/)  
kbo( :, 3,55, 3) = (/&
 & 1.3171e-09_jprb,3.8081e-08_jprb,7.0642e-08_jprb,1.1458e-07_jprb,7.7438e-08_jprb/)  
kbo( :, 4,55, 3) = (/&
 & 2.0021e-09_jprb,4.7221e-08_jprb,8.1614e-08_jprb,1.1674e-07_jprb,8.2998e-08_jprb/)  
kbo( :, 5,55, 3) = (/&
 & 3.3482e-09_jprb,6.0727e-08_jprb,9.8113e-08_jprb,1.2774e-07_jprb,9.0672e-08_jprb/)  
kbo( :, 1,56, 3) = (/&
 & 6.9950e-10_jprb,2.3838e-08_jprb,5.2680e-08_jprb,1.1562e-07_jprb,5.9234e-08_jprb/)  
kbo( :, 2,56, 3) = (/&
 & 7.7413e-10_jprb,2.5644e-08_jprb,5.2472e-08_jprb,1.0117e-07_jprb,6.0572e-08_jprb/)  
kbo( :, 3,56, 3) = (/&
 & 9.7208e-10_jprb,2.9465e-08_jprb,5.5972e-08_jprb,9.4548e-08_jprb,6.2834e-08_jprb/)  
kbo( :, 4,56, 3) = (/&
 & 1.4121e-09_jprb,3.5940e-08_jprb,6.3562e-08_jprb,9.4353e-08_jprb,6.6970e-08_jprb/)  
kbo( :, 5,56, 3) = (/&
 & 2.3128e-09_jprb,4.5822e-08_jprb,7.5568e-08_jprb,1.0098e-07_jprb,7.2808e-08_jprb/)  
kbo( :, 1,57, 3) = (/&
 & 5.6581e-10_jprb,1.9346e-08_jprb,4.3790e-08_jprb,9.9565e-08_jprb,4.8602e-08_jprb/)  
kbo( :, 2,57, 3) = (/&
 & 6.0638e-10_jprb,2.0352e-08_jprb,4.2737e-08_jprb,8.6020e-08_jprb,4.9598e-08_jprb/)  
kbo( :, 3,57, 3) = (/&
 & 7.2835e-10_jprb,2.2928e-08_jprb,4.4588e-08_jprb,7.8554e-08_jprb,5.1156e-08_jprb/)  
kbo( :, 4,57, 3) = (/&
 & 1.0089e-09_jprb,2.7487e-08_jprb,4.9704e-08_jprb,7.6812e-08_jprb,5.4188e-08_jprb/)  
kbo( :, 5,57, 3) = (/&
 & 1.6034e-09_jprb,3.4641e-08_jprb,5.8392e-08_jprb,8.0331e-08_jprb,5.8574e-08_jprb/)  
kbo( :, 1,58, 3) = (/&
 & 4.6103e-10_jprb,1.5793e-08_jprb,3.6627e-08_jprb,8.5726e-08_jprb,3.9978e-08_jprb/)  
kbo( :, 2,58, 3) = (/&
 & 4.8130e-10_jprb,1.6286e-08_jprb,3.5015e-08_jprb,7.3307e-08_jprb,4.0789e-08_jprb/)  
kbo( :, 3,58, 3) = (/&
 & 5.5585e-10_jprb,1.8004e-08_jprb,3.5764e-08_jprb,6.5610e-08_jprb,4.1884e-08_jprb/)  
kbo( :, 4,58, 3) = (/&
 & 7.3630e-10_jprb,2.1198e-08_jprb,3.9171e-08_jprb,6.2959e-08_jprb,4.4100e-08_jprb/)  
kbo( :, 5,58, 3) = (/&
 & 1.1276e-09_jprb,2.6366e-08_jprb,4.5403e-08_jprb,6.4458e-08_jprb,4.7431e-08_jprb/)  
kbo( :, 1,59, 3) = (/&
 & 3.7755e-10_jprb,1.2932e-08_jprb,3.0232e-08_jprb,7.1480e-08_jprb,3.3647e-08_jprb/)  
kbo( :, 2,59, 3) = (/&
 & 3.9028e-10_jprb,1.3252e-08_jprb,2.8716e-08_jprb,6.0919e-08_jprb,3.4209e-08_jprb/)  
kbo( :, 3,59, 3) = (/&
 & 4.4415e-10_jprb,1.4531e-08_jprb,2.9099e-08_jprb,5.4129e-08_jprb,3.5197e-08_jprb/)  
kbo( :, 4,59, 3) = (/&
 & 5.7804e-10_jprb,1.6979e-08_jprb,3.1645e-08_jprb,5.1588e-08_jprb,3.7203e-08_jprb/)  
kbo( :, 5,59, 3) = (/&
 & 8.7073e-10_jprb,2.0997e-08_jprb,3.6469e-08_jprb,5.2428e-08_jprb,4.0115e-08_jprb/)  
kbo( :, 1,13, 4) = (/&
 & 8.9291e-05_jprb,3.8524e-04_jprb,5.0838e-04_jprb,6.5865e-04_jprb,3.8422e-03_jprb/)  
kbo( :, 2,13, 4) = (/&
 & 1.2150e-04_jprb,5.0395e-04_jprb,6.2502e-04_jprb,7.1591e-04_jprb,4.4934e-03_jprb/)  
kbo( :, 3,13, 4) = (/&
 & 1.6722e-04_jprb,6.6391e-04_jprb,7.8605e-04_jprb,8.2001e-04_jprb,5.0967e-03_jprb/)  

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


SUBROUTINE part17

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


kbo( :, 4,13, 4) = (/&
 & 2.3167e-04_jprb,8.6690e-04_jprb,9.9738e-04_jprb,9.6960e-04_jprb,5.6862e-03_jprb/)  
kbo( :, 5,13, 4) = (/&
 & 3.2066e-04_jprb,1.1149e-03_jprb,1.2572e-03_jprb,1.1723e-03_jprb,6.2886e-03_jprb/)  
kbo( :, 1,14, 4) = (/&
 & 7.3069e-05_jprb,3.2443e-04_jprb,4.2572e-04_jprb,5.4565e-04_jprb,3.2324e-03_jprb/)  
kbo( :, 2,14, 4) = (/&
 & 1.0078e-04_jprb,4.2788e-04_jprb,5.2773e-04_jprb,5.9812e-04_jprb,3.7083e-03_jprb/)  
kbo( :, 3,14, 4) = (/&
 & 1.4066e-04_jprb,5.6564e-04_jprb,6.6846e-04_jprb,6.8982e-04_jprb,4.1601e-03_jprb/)  
kbo( :, 4,14, 4) = (/&
 & 1.9708e-04_jprb,7.3974e-04_jprb,8.5021e-04_jprb,8.2165e-04_jprb,4.6256e-03_jprb/)  
kbo( :, 5,14, 4) = (/&
 & 2.7523e-04_jprb,9.5281e-04_jprb,1.0713e-03_jprb,9.9745e-04_jprb,5.1177e-03_jprb/)  
kbo( :, 1,15, 4) = (/&
 & 5.8268e-05_jprb,2.7203e-04_jprb,3.5604e-04_jprb,4.5206e-04_jprb,2.5355e-03_jprb/)  
kbo( :, 2,15, 4) = (/&
 & 8.1805e-05_jprb,3.6098e-04_jprb,4.4467e-04_jprb,4.9956e-04_jprb,2.8581e-03_jprb/)  
kbo( :, 3,15, 4) = (/&
 & 1.1620e-04_jprb,4.7910e-04_jprb,5.6641e-04_jprb,5.8044e-04_jprb,3.1903e-03_jprb/)  
kbo( :, 4,15, 4) = (/&
 & 1.6501e-04_jprb,6.2810e-04_jprb,7.2148e-04_jprb,6.9577e-04_jprb,3.5501e-03_jprb/)  
kbo( :, 5,15, 4) = (/&
 & 2.3301e-04_jprb,8.1144e-04_jprb,9.1027e-04_jprb,8.4726e-04_jprb,3.9463e-03_jprb/)  
kbo( :, 1,16, 4) = (/&
 & 4.6115e-05_jprb,2.2742e-04_jprb,2.9760e-04_jprb,3.7441e-04_jprb,1.8635e-03_jprb/)  
kbo( :, 2,16, 4) = (/&
 & 6.6044e-05_jprb,3.0388e-04_jprb,3.7432e-04_jprb,4.1709e-04_jprb,2.0896e-03_jprb/)  
kbo( :, 3,16, 4) = (/&
 & 9.5513e-05_jprb,4.0494e-04_jprb,4.7881e-04_jprb,4.8833e-04_jprb,2.3373e-03_jprb/)  
kbo( :, 4,16, 4) = (/&
 & 1.3768e-04_jprb,5.3229e-04_jprb,6.1073e-04_jprb,5.8836e-04_jprb,2.6201e-03_jprb/)  
kbo( :, 5,16, 4) = (/&
 & 1.9676e-04_jprb,6.8916e-04_jprb,7.7223e-04_jprb,7.1811e-04_jprb,2.9128e-03_jprb/)  
kbo( :, 1,17, 4) = (/&
 & 3.7236e-05_jprb,1.9117e-04_jprb,2.4928e-04_jprb,3.1036e-04_jprb,1.3781e-03_jprb/)  
kbo( :, 2,17, 4) = (/&
 & 5.4291e-05_jprb,2.5693e-04_jprb,3.1565e-04_jprb,3.4867e-04_jprb,1.5505e-03_jprb/)  
kbo( :, 3,17, 4) = (/&
 & 7.9749e-05_jprb,3.4332e-04_jprb,4.0498e-04_jprb,4.1127e-04_jprb,1.7502e-03_jprb/)  
kbo( :, 4,17, 4) = (/&
 & 1.1653e-04_jprb,4.5210e-04_jprb,5.1744e-04_jprb,4.9715e-04_jprb,1.9654e-03_jprb/)  
kbo( :, 5,17, 4) = (/&
 & 1.6848e-04_jprb,5.8567e-04_jprb,6.5487e-04_jprb,6.0828e-04_jprb,2.1867e-03_jprb/)  
kbo( :, 1,18, 4) = (/&
 & 3.1214e-05_jprb,1.6265e-04_jprb,2.1001e-04_jprb,2.5789e-04_jprb,1.0508e-03_jprb/)  
kbo( :, 2,18, 4) = (/&
 & 4.6115e-05_jprb,2.1928e-04_jprb,2.6764e-04_jprb,2.9235e-04_jprb,1.1925e-03_jprb/)  
kbo( :, 3,18, 4) = (/&
 & 6.8526e-05_jprb,2.9311e-04_jprb,3.4395e-04_jprb,3.4662e-04_jprb,1.3522e-03_jprb/)  
kbo( :, 4,18, 4) = (/&
 & 1.0108e-04_jprb,3.8595e-04_jprb,4.3972e-04_jprb,4.2050e-04_jprb,1.5200e-03_jprb/)  
kbo( :, 5,18, 4) = (/&
 & 1.4724e-04_jprb,4.9979e-04_jprb,5.5620e-04_jprb,5.1508e-04_jprb,1.6884e-03_jprb/)  
kbo( :, 1,19, 4) = (/&
 & 2.6494e-05_jprb,1.3877e-04_jprb,1.7752e-04_jprb,2.1456e-04_jprb,8.3267e-04_jprb/)  
kbo( :, 2,19, 4) = (/&
 & 3.9645e-05_jprb,1.8735e-04_jprb,2.2717e-04_jprb,2.4531e-04_jprb,9.5168e-04_jprb/)  
kbo( :, 3,19, 4) = (/&
 & 5.9441e-05_jprb,2.5031e-04_jprb,2.9223e-04_jprb,2.9203e-04_jprb,1.0814e-03_jprb/)  
kbo( :, 4,19, 4) = (/&
 & 8.8341e-05_jprb,3.2954e-04_jprb,3.7346e-04_jprb,3.5516e-04_jprb,1.2143e-03_jprb/)  
kbo( :, 5,19, 4) = (/&
 & 1.2952e-04_jprb,4.2674e-04_jprb,4.7232e-04_jprb,4.3565e-04_jprb,1.3453e-03_jprb/)  
kbo( :, 1,20, 4) = (/&
 & 2.2953e-05_jprb,1.1923e-04_jprb,1.5106e-04_jprb,1.7906e-04_jprb,6.7531e-04_jprb/)  
kbo( :, 2,20, 4) = (/&
 & 3.4684e-05_jprb,1.6096e-04_jprb,1.9387e-04_jprb,2.0645e-04_jprb,7.7360e-04_jprb/)  
kbo( :, 3,20, 4) = (/&
 & 5.2387e-05_jprb,2.1493e-04_jprb,2.4939e-04_jprb,2.4674e-04_jprb,8.7927e-04_jprb/)  
kbo( :, 4,20, 4) = (/&
 & 7.8339e-05_jprb,2.8287e-04_jprb,3.1867e-04_jprb,3.0094e-04_jprb,9.8457e-04_jprb/)  
kbo( :, 5,20, 4) = (/&
 & 1.1532e-04_jprb,3.6655e-04_jprb,4.0332e-04_jprb,3.6955e-04_jprb,1.0890e-03_jprb/)  
kbo( :, 1,21, 4) = (/&
 & 1.9939e-05_jprb,1.0230e-04_jprb,1.2858e-04_jprb,1.4968e-04_jprb,5.4869e-04_jprb/)  
kbo( :, 2,21, 4) = (/&
 & 3.0427e-05_jprb,1.3816e-04_jprb,1.6531e-04_jprb,1.7375e-04_jprb,6.2932e-04_jprb/)  
kbo( :, 3,21, 4) = (/&
 & 4.6301e-05_jprb,1.8453e-04_jprb,2.1269e-04_jprb,2.0848e-04_jprb,7.1424e-04_jprb/)  
kbo( :, 4,21, 4) = (/&
 & 6.9612e-05_jprb,2.4288e-04_jprb,2.7189e-04_jprb,2.5497e-04_jprb,7.9799e-04_jprb/)  
kbo( :, 5,21, 4) = (/&
 & 1.0255e-04_jprb,3.1496e-04_jprb,3.4452e-04_jprb,3.1356e-04_jprb,8.8178e-04_jprb/)  
kbo( :, 1,22, 4) = (/&
 & 1.7650e-05_jprb,8.9099e-05_jprb,1.1086e-04_jprb,1.2617e-04_jprb,4.4136e-04_jprb/)  
kbo( :, 2,22, 4) = (/&
 & 2.7256e-05_jprb,1.2040e-04_jprb,1.4288e-04_jprb,1.4770e-04_jprb,5.0625e-04_jprb/)  
kbo( :, 3,22, 4) = (/&
 & 4.1784e-05_jprb,1.6082e-04_jprb,1.8391e-04_jprb,1.7825e-04_jprb,5.7259e-04_jprb/)  
kbo( :, 4,22, 4) = (/&
 & 6.2963e-05_jprb,2.1168e-04_jprb,2.3528e-04_jprb,2.1869e-04_jprb,6.3831e-04_jprb/)  
kbo( :, 5,22, 4) = (/&
 & 9.2479e-05_jprb,2.7473e-04_jprb,2.9834e-04_jprb,2.6936e-04_jprb,7.0511e-04_jprb/)  
kbo( :, 1,23, 4) = (/&
 & 1.5661e-05_jprb,7.7570e-05_jprb,9.5606e-05_jprb,1.0649e-04_jprb,3.5282e-04_jprb/)  
kbo( :, 2,23, 4) = (/&
 & 2.4419e-05_jprb,1.0492e-04_jprb,1.2350e-04_jprb,1.2569e-04_jprb,4.0389e-04_jprb/)  
kbo( :, 3,23, 4) = (/&
 & 3.7617e-05_jprb,1.4021e-04_jprb,1.5914e-04_jprb,1.5253e-04_jprb,4.5535e-04_jprb/)  
kbo( :, 4,23, 4) = (/&
 & 5.6623e-05_jprb,1.8459e-04_jprb,2.0378e-04_jprb,1.8772e-04_jprb,5.0734e-04_jprb/)  
kbo( :, 5,23, 4) = (/&
 & 8.2850e-05_jprb,2.3955e-04_jprb,2.5868e-04_jprb,2.3168e-04_jprb,5.6073e-04_jprb/)  
kbo( :, 1,24, 4) = (/&
 & 1.3761e-05_jprb,6.7313e-05_jprb,8.2387e-05_jprb,8.9985e-05_jprb,2.7657e-04_jprb/)  
kbo( :, 2,24, 4) = (/&
 & 2.1660e-05_jprb,9.1214e-05_jprb,1.0663e-04_jprb,1.0703e-04_jprb,3.1564e-04_jprb/)  
kbo( :, 3,24, 4) = (/&
 & 3.3471e-05_jprb,1.2198e-04_jprb,1.3767e-04_jprb,1.3062e-04_jprb,3.5536e-04_jprb/)  
kbo( :, 4,24, 4) = (/&
 & 5.0313e-05_jprb,1.6066e-04_jprb,1.7646e-04_jprb,1.6127e-04_jprb,3.9633e-04_jprb/)  
kbo( :, 5,24, 4) = (/&
 & 7.3360e-05_jprb,2.0829e-04_jprb,2.2414e-04_jprb,1.9939e-04_jprb,4.3964e-04_jprb/)  
kbo( :, 1,25, 4) = (/&
 & 1.2163e-05_jprb,5.8632e-05_jprb,7.1210e-05_jprb,7.6289e-05_jprb,2.1557e-04_jprb/)  
kbo( :, 2,25, 4) = (/&
 & 1.9262e-05_jprb,7.9563e-05_jprb,9.2384e-05_jprb,9.1431e-05_jprb,2.4548e-04_jprb/)  
kbo( :, 3,25, 4) = (/&
 & 2.9768e-05_jprb,1.0645e-04_jprb,1.1942e-04_jprb,1.1222e-04_jprb,2.7636e-04_jprb/)  
kbo( :, 4,25, 4) = (/&
 & 4.4635e-05_jprb,1.4006e-04_jprb,1.5316e-04_jprb,1.3892e-04_jprb,3.0913e-04_jprb/)  
kbo( :, 5,25, 4) = (/&
 & 6.4723e-05_jprb,1.8122e-04_jprb,1.9446e-04_jprb,1.7203e-04_jprb,3.4459e-04_jprb/)  
kbo( :, 1,26, 4) = (/&
 & 1.0905e-05_jprb,5.1509e-05_jprb,6.1982e-05_jprb,6.5048e-05_jprb,1.6912e-04_jprb/)  
kbo( :, 2,26, 4) = (/&
 & 1.7301e-05_jprb,6.9938e-05_jprb,8.0564e-05_jprb,7.8594e-05_jprb,1.9235e-04_jprb/)  
kbo( :, 3,26, 4) = (/&
 & 2.6674e-05_jprb,9.3478e-05_jprb,1.0420e-04_jprb,9.6933e-05_jprb,2.1692e-04_jprb/)  
kbo( :, 4,26, 4) = (/&
 & 3.9810e-05_jprb,1.2260e-04_jprb,1.3358e-04_jprb,1.2031e-04_jprb,2.4372e-04_jprb/)  
kbo( :, 5,26, 4) = (/&
 & 5.7269e-05_jprb,1.5819e-04_jprb,1.6929e-04_jprb,1.4904e-04_jprb,2.7283e-04_jprb/)  
kbo( :, 1,27, 4) = (/&
 & 9.7443e-06_jprb,4.5256e-05_jprb,5.3977e-05_jprb,5.5564e-05_jprb,1.3079e-04_jprb/)  
kbo( :, 2,27, 4) = (/&
 & 1.5468e-05_jprb,6.1434e-05_jprb,7.0240e-05_jprb,6.7661e-05_jprb,1.4885e-04_jprb/)  
kbo( :, 3,27, 4) = (/&
 & 2.3785e-05_jprb,8.1876e-05_jprb,9.0868e-05_jprb,8.3801e-05_jprb,1.6857e-04_jprb/)  
kbo( :, 4,27, 4) = (/&
 & 3.5289e-05_jprb,1.0705e-04_jprb,1.1628e-04_jprb,1.0418e-04_jprb,1.9038e-04_jprb/)  
kbo( :, 5,27, 4) = (/&
 & 5.0352e-05_jprb,1.3763e-04_jprb,1.4705e-04_jprb,1.2891e-04_jprb,2.1399e-04_jprb/)  
kbo( :, 1,28, 4) = (/&
 & 8.6662e-06_jprb,3.9710e-05_jprb,4.6973e-05_jprb,4.7545e-05_jprb,9.9573e-05_jprb/)  
kbo( :, 2,28, 4) = (/&
 & 1.3762e-05_jprb,5.3808e-05_jprb,6.1191e-05_jprb,5.8312e-05_jprb,1.1378e-04_jprb/)  
kbo( :, 3,28, 4) = (/&
 & 2.1087e-05_jprb,7.1458e-05_jprb,7.9071e-05_jprb,7.2428e-05_jprb,1.2969e-04_jprb/)  
kbo( :, 4,28, 4) = (/&
 & 3.1073e-05_jprb,9.3127e-05_jprb,1.0097e-04_jprb,9.0079e-05_jprb,1.4713e-04_jprb/)  
kbo( :, 5,28, 4) = (/&
 & 4.4032e-05_jprb,1.1919e-04_jprb,1.2726e-04_jprb,1.1128e-04_jprb,1.6603e-04_jprb/)  
kbo( :, 1,29, 4) = (/&
 & 7.7998e-06_jprb,3.4996e-05_jprb,4.1036e-05_jprb,4.0865e-05_jprb,7.6462e-05_jprb/)  
kbo( :, 2,29, 4) = (/&
 & 1.2351e-05_jprb,4.7253e-05_jprb,5.3436e-05_jprb,5.0409e-05_jprb,8.7836e-05_jprb/)  
kbo( :, 3,29, 4) = (/&
 & 1.8799e-05_jprb,6.2498e-05_jprb,6.8909e-05_jprb,6.2727e-05_jprb,1.0047e-04_jprb/)  
kbo( :, 4,29, 4) = (/&
 & 2.7485e-05_jprb,8.1095e-05_jprb,8.7731e-05_jprb,7.7973e-05_jprb,1.1434e-04_jprb/)  
kbo( :, 5,29, 4) = (/&
 & 3.8681e-05_jprb,1.0324e-04_jprb,1.1009e-04_jprb,9.6092e-05_jprb,1.2937e-04_jprb/)  
kbo( :, 1,30, 4) = (/&
 & 7.0184e-06_jprb,3.0793e-05_jprb,3.5835e-05_jprb,3.5181e-05_jprb,5.8539e-05_jprb/)  
kbo( :, 2,30, 4) = (/&
 & 1.1059e-05_jprb,4.1419e-05_jprb,4.6605e-05_jprb,4.3585e-05_jprb,6.7504e-05_jprb/)  
kbo( :, 3,30, 4) = (/&
 & 1.6707e-05_jprb,5.4550e-05_jprb,5.9937e-05_jprb,5.4295e-05_jprb,7.7471e-05_jprb/)  
kbo( :, 4,30, 4) = (/&
 & 2.4261e-05_jprb,7.0416e-05_jprb,7.6043e-05_jprb,6.7394e-05_jprb,8.8468e-05_jprb/)  
kbo( :, 5,30, 4) = (/&
 & 3.3920e-05_jprb,8.9259e-05_jprb,9.5020e-05_jprb,8.2834e-05_jprb,1.0026e-04_jprb/)  
kbo( :, 1,31, 4) = (/&
 & 6.3446e-06_jprb,2.7130e-05_jprb,3.1326e-05_jprb,3.0364e-05_jprb,4.4778e-05_jprb/)  
kbo( :, 2,31, 4) = (/&
 & 9.9240e-06_jprb,3.6330e-05_jprb,4.0667e-05_jprb,3.7732e-05_jprb,5.1776e-05_jprb/)  
kbo( :, 3,31, 4) = (/&
 & 1.4883e-05_jprb,4.7593e-05_jprb,5.2134e-05_jprb,4.7015e-05_jprb,5.9603e-05_jprb/)  
kbo( :, 4,31, 4) = (/&
 & 2.1454e-05_jprb,6.1120e-05_jprb,6.5847e-05_jprb,5.8207e-05_jprb,6.8104e-05_jprb/)  
kbo( :, 5,31, 4) = (/&
 & 2.9770e-05_jprb,7.7114e-05_jprb,8.1935e-05_jprb,7.1309e-05_jprb,7.7163e-05_jprb/)  
kbo( :, 1,32, 4) = (/&
 & 5.7447e-06_jprb,2.3909e-05_jprb,2.7402e-05_jprb,2.6256e-05_jprb,3.4475e-05_jprb/)  
kbo( :, 2,32, 4) = (/&
 & 8.9146e-06_jprb,3.1849e-05_jprb,3.5487e-05_jprb,3.2695e-05_jprb,3.9934e-05_jprb/)  
kbo( :, 3,32, 4) = (/&
 & 1.3271e-05_jprb,4.1481e-05_jprb,4.5305e-05_jprb,4.0703e-05_jprb,4.6002e-05_jprb/)  
kbo( :, 4,32, 4) = (/&
 & 1.8982e-05_jprb,5.3015e-05_jprb,5.6969e-05_jprb,5.0230e-05_jprb,5.2546e-05_jprb/)  
kbo( :, 5,32, 4) = (/&
 & 2.6129e-05_jprb,6.6634e-05_jprb,7.0625e-05_jprb,6.1359e-05_jprb,5.9507e-05_jprb/)  
kbo( :, 1,33, 4) = (/&
 & 5.1981e-06_jprb,2.1048e-05_jprb,2.3959e-05_jprb,2.2727e-05_jprb,2.6591e-05_jprb/)  
kbo( :, 2,33, 4) = (/&
 & 8.0045e-06_jprb,2.7863e-05_jprb,3.0928e-05_jprb,2.8329e-05_jprb,3.0795e-05_jprb/)  
kbo( :, 3,33, 4) = (/&
 & 1.1826e-05_jprb,3.6107e-05_jprb,3.9311e-05_jprb,3.5200e-05_jprb,3.5437e-05_jprb/)  
kbo( :, 4,33, 4) = (/&
 & 1.6780e-05_jprb,4.5955e-05_jprb,4.9249e-05_jprb,4.3321e-05_jprb,4.0422e-05_jprb/)  
kbo( :, 5,33, 4) = (/&
 & 2.2903e-05_jprb,5.7519e-05_jprb,6.0835e-05_jprb,5.2765e-05_jprb,4.5739e-05_jprb/)  
kbo( :, 1,34, 4) = (/&
 & 4.6580e-06_jprb,1.8365e-05_jprb,2.0792e-05_jprb,1.9562e-05_jprb,2.0973e-05_jprb/)  
kbo( :, 2,34, 4) = (/&
 & 7.1195e-06_jprb,2.4178e-05_jprb,2.6741e-05_jprb,2.4385e-05_jprb,2.4253e-05_jprb/)  
kbo( :, 3,34, 4) = (/&
 & 1.0442e-05_jprb,3.1196e-05_jprb,3.3863e-05_jprb,3.0227e-05_jprb,2.7827e-05_jprb/)  
kbo( :, 4,34, 4) = (/&
 & 1.4703e-05_jprb,3.9556e-05_jprb,4.2281e-05_jprb,3.7105e-05_jprb,3.1694e-05_jprb/)  
kbo( :, 5,34, 4) = (/&
 & 1.9922e-05_jprb,4.9351e-05_jprb,5.2082e-05_jprb,4.5102e-05_jprb,3.5824e-05_jprb/)  
kbo( :, 1,35, 4) = (/&
 & 3.9871e-06_jprb,1.5551e-05_jprb,1.7571e-05_jprb,1.6475e-05_jprb,1.6236e-05_jprb/)  
kbo( :, 2,35, 4) = (/&
 & 6.0757e-06_jprb,2.0414e-05_jprb,2.2542e-05_jprb,2.0527e-05_jprb,1.8741e-05_jprb/)  
kbo( :, 3,35, 4) = (/&
 & 8.8794e-06_jprb,2.6281e-05_jprb,2.8490e-05_jprb,2.5405e-05_jprb,2.1473e-05_jprb/)  
kbo( :, 4,35, 4) = (/&
 & 1.2455e-05_jprb,3.3253e-05_jprb,3.5511e-05_jprb,3.1147e-05_jprb,2.4458e-05_jprb/)  
kbo( :, 5,35, 4) = (/&
 & 1.6817e-05_jprb,4.1417e-05_jprb,4.3680e-05_jprb,3.7812e-05_jprb,2.7668e-05_jprb/)  
kbo( :, 1,36, 4) = (/&
 & 3.2421e-06_jprb,1.2741e-05_jprb,1.4415e-05_jprb,1.3532e-05_jprb,1.2305e-05_jprb/)  
kbo( :, 2,36, 4) = (/&
 & 4.9489e-06_jprb,1.6721e-05_jprb,1.8482e-05_jprb,1.6856e-05_jprb,1.4197e-05_jprb/)  
kbo( :, 3,36, 4) = (/&
 & 7.2420e-06_jprb,2.1525e-05_jprb,2.3354e-05_jprb,2.0857e-05_jprb,1.6279e-05_jprb/)  
kbo( :, 4,36, 4) = (/&
 & 1.0165e-05_jprb,2.7235e-05_jprb,2.9106e-05_jprb,2.5564e-05_jprb,1.8568e-05_jprb/)  
kbo( :, 5,36, 4) = (/&
 & 1.3731e-05_jprb,3.3924e-05_jprb,3.5798e-05_jprb,3.1035e-05_jprb,2.1028e-05_jprb/)  
kbo( :, 1,37, 4) = (/&
 & 2.4960e-06_jprb,1.0060e-05_jprb,1.1424e-05_jprb,1.0782e-05_jprb,9.5086e-06_jprb/)  
kbo( :, 2,37, 4) = (/&
 & 3.8363e-06_jprb,1.3236e-05_jprb,1.4673e-05_jprb,1.3431e-05_jprb,1.0977e-05_jprb/)  
kbo( :, 3,37, 4) = (/&
 & 5.6488e-06_jprb,1.7076e-05_jprb,1.8572e-05_jprb,1.6635e-05_jprb,1.2594e-05_jprb/)  
kbo( :, 4,37, 4) = (/&
 & 7.9747e-06_jprb,2.1652e-05_jprb,2.3188e-05_jprb,2.0415e-05_jprb,1.4374e-05_jprb/)  
kbo( :, 5,37, 4) = (/&
 & 1.0825e-05_jprb,2.7021e-05_jprb,2.8566e-05_jprb,2.4811e-05_jprb,1.6291e-05_jprb/)  
kbo( :, 1,38, 4) = (/&
 & 1.9124e-06_jprb,7.9183e-06_jprb,9.0316e-06_jprb,8.5743e-06_jprb,7.3236e-06_jprb/)  
kbo( :, 2,38, 4) = (/&
 & 2.9610e-06_jprb,1.0450e-05_jprb,1.1621e-05_jprb,1.0680e-05_jprb,8.4614e-06_jprb/)  
kbo( :, 3,38, 4) = (/&
 & 4.3884e-06_jprb,1.3515e-05_jprb,1.4735e-05_jprb,1.3241e-05_jprb,9.7136e-06_jprb/)  
kbo( :, 4,38, 4) = (/&
 & 6.2344e-06_jprb,1.7177e-05_jprb,1.8435e-05_jprb,1.6272e-05_jprb,1.1094e-05_jprb/)  
kbo( :, 5,38, 4) = (/&
 & 8.5074e-06_jprb,2.1480e-05_jprb,2.2749e-05_jprb,1.9801e-05_jprb,1.2587e-05_jprb/)  
kbo( :, 1,39, 4) = (/&
 & 1.4627e-06_jprb,6.2280e-06_jprb,7.1358e-06_jprb,6.8164e-06_jprb,5.6091e-06_jprb/)  
kbo( :, 2,39, 4) = (/&
 & 2.2819e-06_jprb,8.2437e-06_jprb,9.1991e-06_jprb,8.4900e-06_jprb,6.4837e-06_jprb/)  
kbo( :, 3,39, 4) = (/&
 & 3.4040e-06_jprb,1.0689e-05_jprb,1.1687e-05_jprb,1.0535e-05_jprb,7.4507e-06_jprb/)  
kbo( :, 4,39, 4) = (/&
 & 4.8667e-06_jprb,1.3619e-05_jprb,1.4649e-05_jprb,1.2965e-05_jprb,8.5144e-06_jprb/)  
kbo( :, 5,39, 4) = (/&
 & 6.6789e-06_jprb,1.7065e-05_jprb,1.8109e-05_jprb,1.5796e-05_jprb,9.6724e-06_jprb/)  
kbo( :, 1,40, 4) = (/&
 & 1.0675e-06_jprb,4.7580e-06_jprb,5.4948e-06_jprb,5.3059e-06_jprb,4.3235e-06_jprb/)  
kbo( :, 2,40, 4) = (/&
 & 1.6854e-06_jprb,6.3316e-06_jprb,7.1065e-06_jprb,6.6059e-06_jprb,5.0037e-06_jprb/)  
kbo( :, 3,40, 4) = (/&
 & 2.5416e-06_jprb,8.2475e-06_jprb,9.0584e-06_jprb,8.2078e-06_jprb,5.7598e-06_jprb/)  
kbo( :, 4,40, 4) = (/&
 & 3.6732e-06_jprb,1.0552e-05_jprb,1.1392e-05_jprb,1.0125e-05_jprb,6.5921e-06_jprb/)  
kbo( :, 5,40, 4) = (/&
 & 5.0895e-06_jprb,1.3270e-05_jprb,1.4125e-05_jprb,1.2362e-05_jprb,7.4983e-06_jprb/)  
kbo( :, 1,41, 4) = (/&
 & 7.7161e-07_jprb,3.6153e-06_jprb,4.2135e-06_jprb,4.1208e-06_jprb,3.3291e-06_jprb/)  
kbo( :, 2,41, 4) = (/&
 & 1.2341e-06_jprb,4.8398e-06_jprb,5.4667e-06_jprb,5.1245e-06_jprb,3.8572e-06_jprb/)  
kbo( :, 3,41, 4) = (/&
 & 1.8830e-06_jprb,6.3358e-06_jprb,6.9937e-06_jprb,6.3742e-06_jprb,4.4475e-06_jprb/)  
kbo( :, 4,41, 4) = (/&
 & 2.7524e-06_jprb,8.1422e-06_jprb,8.8253e-06_jprb,7.8806e-06_jprb,5.1001e-06_jprb/)  
kbo( :, 5,41, 4) = (/&
 & 3.8533e-06_jprb,1.0280e-05_jprb,1.0980e-05_jprb,9.6445e-06_jprb,5.8088e-06_jprb/)  
kbo( :, 1,42, 4) = (/&
 & 5.5525e-07_jprb,2.7416e-06_jprb,3.2273e-06_jprb,3.2019e-06_jprb,2.5561e-06_jprb/)  
kbo( :, 2,42, 4) = (/&
 & 8.9993e-07_jprb,3.6924e-06_jprb,4.1998e-06_jprb,3.9740e-06_jprb,2.9638e-06_jprb/)  
kbo( :, 3,42, 4) = (/&
 & 1.3900e-06_jprb,4.8597e-06_jprb,5.3933e-06_jprb,4.9465e-06_jprb,3.4230e-06_jprb/)  

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


SUBROUTINE part18

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


kbo( :, 4,42, 4) = (/&
 & 2.0552e-06_jprb,6.2735e-06_jprb,6.8295e-06_jprb,6.1284e-06_jprb,3.9326e-06_jprb/)  
kbo( :, 5,42, 4) = (/&
 & 2.9084e-06_jprb,7.9541e-06_jprb,8.5264e-06_jprb,7.5190e-06_jprb,4.4871e-06_jprb/)  
kbo( :, 1,43, 4) = (/&
 & 3.8700e-07_jprb,2.0403e-06_jprb,2.4343e-06_jprb,2.4629e-06_jprb,1.9559e-06_jprb/)  
kbo( :, 2,43, 4) = (/&
 & 6.3768e-07_jprb,2.7683e-06_jprb,3.1780e-06_jprb,3.0455e-06_jprb,2.2677e-06_jprb/)  
kbo( :, 3,43, 4) = (/&
 & 9.9992e-07_jprb,3.6688e-06_jprb,4.0996e-06_jprb,3.7915e-06_jprb,2.6241e-06_jprb/)  
kbo( :, 4,43, 4) = (/&
 & 1.4987e-06_jprb,4.7637e-06_jprb,5.2140e-06_jprb,4.7076e-06_jprb,3.0207e-06_jprb/)  
kbo( :, 5,43, 4) = (/&
 & 2.1501e-06_jprb,6.0714e-06_jprb,6.5361e-06_jprb,5.7934e-06_jprb,3.4541e-06_jprb/)  
kbo( :, 1,44, 4) = (/&
 & 2.6473e-07_jprb,1.5026e-06_jprb,1.8221e-06_jprb,1.8897e-06_jprb,1.4930e-06_jprb/)  
kbo( :, 2,44, 4) = (/&
 & 4.4431e-07_jprb,2.0561e-06_jprb,2.3866e-06_jprb,2.3229e-06_jprb,1.7300e-06_jprb/)  
kbo( :, 3,44, 4) = (/&
 & 7.0836e-07_jprb,2.7457e-06_jprb,3.0927e-06_jprb,2.8894e-06_jprb,2.0046e-06_jprb/)  
kbo( :, 4,44, 4) = (/&
 & 1.0778e-06_jprb,3.5888e-06_jprb,3.9529e-06_jprb,3.5941e-06_jprb,2.3122e-06_jprb/)  
kbo( :, 5,44, 4) = (/&
 & 1.5696e-06_jprb,4.6015e-06_jprb,4.9786e-06_jprb,4.4373e-06_jprb,2.6499e-06_jprb/)  
kbo( :, 1,45, 4) = (/&
 & 1.7988e-07_jprb,1.1038e-06_jprb,1.3625e-06_jprb,1.4540e-06_jprb,1.1371e-06_jprb/)  
kbo( :, 2,45, 4) = (/&
 & 3.0761e-07_jprb,1.5225e-06_jprb,1.7898e-06_jprb,1.7738e-06_jprb,1.3160e-06_jprb/)  
kbo( :, 3,45, 4) = (/&
 & 4.9893e-07_jprb,2.0494e-06_jprb,2.3287e-06_jprb,2.2017e-06_jprb,1.5258e-06_jprb/)  
kbo( :, 4,45, 4) = (/&
 & 7.7117e-07_jprb,2.6974e-06_jprb,2.9913e-06_jprb,2.7416e-06_jprb,1.7632e-06_jprb/)  
kbo( :, 5,45, 4) = (/&
 & 1.1399e-06_jprb,3.4797e-06_jprb,3.7851e-06_jprb,3.3943e-06_jprb,2.0252e-06_jprb/)  
kbo( :, 1,46, 4) = (/&
 & 1.1995e-07_jprb,8.0292e-07_jprb,1.0121e-06_jprb,1.1184e-06_jprb,8.6488e-07_jprb/)  
kbo( :, 2,46, 4) = (/&
 & 2.0923e-07_jprb,1.1166e-06_jprb,1.3331e-06_jprb,1.3511e-06_jprb,9.9849e-07_jprb/)  
kbo( :, 3,46, 4) = (/&
 & 3.4582e-07_jprb,1.5161e-06_jprb,1.7409e-06_jprb,1.6700e-06_jprb,1.1579e-06_jprb/)  
kbo( :, 4,46, 4) = (/&
 & 5.4384e-07_jprb,2.0114e-06_jprb,2.2481e-06_jprb,2.0803e-06_jprb,1.3401e-06_jprb/)  
kbo( :, 5,46, 4) = (/&
 & 8.1669e-07_jprb,2.6123e-06_jprb,2.8596e-06_jprb,2.5822e-06_jprb,1.5424e-06_jprb/)  
kbo( :, 1,47, 4) = (/&
 & 7.7552e-08_jprb,5.7430e-07_jprb,7.4352e-07_jprb,8.5913e-07_jprb,6.5834e-07_jprb/)  
kbo( :, 2,47, 4) = (/&
 & 1.3815e-07_jprb,8.0547e-07_jprb,9.8055e-07_jprb,1.0241e-06_jprb,7.5785e-07_jprb/)  
kbo( :, 3,47, 4) = (/&
 & 2.3338e-07_jprb,1.1046e-06_jprb,1.2855e-06_jprb,1.2567e-06_jprb,8.7753e-07_jprb/)  
kbo( :, 4,47, 4) = (/&
 & 3.7439e-07_jprb,1.4793e-06_jprb,1.6690e-06_jprb,1.5636e-06_jprb,1.0168e-06_jprb/)  
kbo( :, 5,47, 4) = (/&
 & 5.7238e-07_jprb,1.9364e-06_jprb,2.1357e-06_jprb,1.9451e-06_jprb,1.1726e-06_jprb/)  
kbo( :, 1,48, 4) = (/&
 & 4.9759e-08_jprb,4.0982e-07_jprb,5.4734e-07_jprb,6.6597e-07_jprb,5.0055e-07_jprb/)  
kbo( :, 2,48, 4) = (/&
 & 9.0399e-08_jprb,5.7899e-07_jprb,7.2041e-07_jprb,7.7952e-07_jprb,5.7407e-07_jprb/)  
kbo( :, 3,48, 4) = (/&
 & 1.5613e-07_jprb,8.0155e-07_jprb,9.4754e-07_jprb,9.4742e-07_jprb,6.6288e-07_jprb/)  
kbo( :, 4,48, 4) = (/&
 & 2.5563e-07_jprb,1.0837e-06_jprb,1.2359e-06_jprb,1.1750e-06_jprb,7.6860e-07_jprb/)  
kbo( :, 5,48, 4) = (/&
 & 3.9824e-07_jprb,1.4310e-06_jprb,1.5913e-06_jprb,1.4634e-06_jprb,8.8756e-07_jprb/)  
kbo( :, 1,49, 4) = (/&
 & 3.1747e-08_jprb,2.9202e-07_jprb,4.0458e-07_jprb,5.2185e-07_jprb,3.8074e-07_jprb/)  
kbo( :, 2,49, 4) = (/&
 & 5.8620e-08_jprb,4.1476e-07_jprb,5.2889e-07_jprb,5.9643e-07_jprb,4.3322e-07_jprb/)  
kbo( :, 3,49, 4) = (/&
 & 1.0349e-07_jprb,5.7925e-07_jprb,6.9731e-07_jprb,7.1647e-07_jprb,4.9889e-07_jprb/)  
kbo( :, 4,49, 4) = (/&
 & 1.7311e-07_jprb,7.9083e-07_jprb,9.1312e-07_jprb,8.8335e-07_jprb,5.7760e-07_jprb/)  
kbo( :, 5,49, 4) = (/&
 & 2.7502e-07_jprb,1.0539e-06_jprb,1.1826e-06_jprb,1.1000e-06_jprb,6.6799e-07_jprb/)  
kbo( :, 1,50, 4) = (/&
 & 2.0584e-08_jprb,2.1008e-07_jprb,3.0301e-07_jprb,4.1495e-07_jprb,2.9497e-07_jprb/)  
kbo( :, 2,50, 4) = (/&
 & 3.8348e-08_jprb,2.9905e-07_jprb,3.9149e-07_jprb,4.6171e-07_jprb,3.3200e-07_jprb/)  
kbo( :, 3,50, 4) = (/&
 & 6.9001e-08_jprb,4.2073e-07_jprb,5.1626e-07_jprb,5.4677e-07_jprb,3.8063e-07_jprb/)  
kbo( :, 4,50, 4) = (/&
 & 1.1783e-07_jprb,5.7965e-07_jprb,6.7829e-07_jprb,6.6887e-07_jprb,4.3991e-07_jprb/)  
kbo( :, 5,50, 4) = (/&
 & 1.9076e-07_jprb,7.7947e-07_jprb,8.8269e-07_jprb,8.3154e-07_jprb,5.0913e-07_jprb/)  
kbo( :, 1,51, 4) = (/&
 & 1.3493e-08_jprb,1.5211e-07_jprb,2.2929e-07_jprb,3.3385e-07_jprb,2.3077e-07_jprb/)  
kbo( :, 2,51, 4) = (/&
 & 2.5122e-08_jprb,2.1611e-07_jprb,2.9145e-07_jprb,3.6106e-07_jprb,2.5676e-07_jprb/)  
kbo( :, 3,51, 4) = (/&
 & 4.5978e-08_jprb,3.0596e-07_jprb,3.8316e-07_jprb,4.1984e-07_jprb,2.9257e-07_jprb/)  
kbo( :, 4,51, 4) = (/&
 & 8.0110e-08_jprb,4.2511e-07_jprb,5.0483e-07_jprb,5.0877e-07_jprb,3.3737e-07_jprb/)  
kbo( :, 5,51, 4) = (/&
 & 1.3215e-07_jprb,5.7668e-07_jprb,6.5965e-07_jprb,6.3029e-07_jprb,3.9043e-07_jprb/)  
kbo( :, 1,52, 4) = (/&
 & 8.9230e-09_jprb,1.1071e-07_jprb,1.7523e-07_jprb,2.7190e-07_jprb,1.8118e-07_jprb/)  
kbo( :, 2,52, 4) = (/&
 & 1.6411e-08_jprb,1.5606e-07_jprb,2.1785e-07_jprb,2.8505e-07_jprb,1.9923e-07_jprb/)  
kbo( :, 3,52, 4) = (/&
 & 3.0439e-08_jprb,2.2195e-07_jprb,2.8438e-07_jprb,3.2394e-07_jprb,2.2485e-07_jprb/)  
kbo( :, 4,52, 4) = (/&
 & 5.4073e-08_jprb,3.1080e-07_jprb,3.7535e-07_jprb,3.8813e-07_jprb,2.5827e-07_jprb/)  
kbo( :, 5,52, 4) = (/&
 & 9.0961e-08_jprb,4.2534e-07_jprb,4.9215e-07_jprb,4.7800e-07_jprb,2.9864e-07_jprb/)  
kbo( :, 1,53, 4) = (/&
 & 5.9876e-09_jprb,8.1201e-08_jprb,1.3536e-07_jprb,2.2434e-07_jprb,1.4306e-07_jprb/)  
kbo( :, 2,53, 4) = (/&
 & 1.0717e-08_jprb,1.1272e-07_jprb,1.6383e-07_jprb,2.2748e-07_jprb,1.5495e-07_jprb/)  
kbo( :, 3,53, 4) = (/&
 & 2.0015e-08_jprb,1.6060e-07_jprb,2.1125e-07_jprb,2.5162e-07_jprb,1.7284e-07_jprb/)  
kbo( :, 4,53, 4) = (/&
 & 3.6209e-08_jprb,2.2643e-07_jprb,2.7869e-07_jprb,2.9706e-07_jprb,1.9723e-07_jprb/)  
kbo( :, 5,53, 4) = (/&
 & 6.2161e-08_jprb,3.1263e-07_jprb,3.6655e-07_jprb,3.6292e-07_jprb,2.2770e-07_jprb/)  
kbo( :, 1,54, 4) = (/&
 & 4.1655e-09_jprb,6.0699e-08_jprb,1.0631e-07_jprb,1.8695e-07_jprb,1.1504e-07_jprb/)  
kbo( :, 2,54, 4) = (/&
 & 7.1662e-09_jprb,8.2506e-08_jprb,1.2498e-07_jprb,1.8360e-07_jprb,1.2311e-07_jprb/)  
kbo( :, 3,54, 4) = (/&
 & 1.3353e-08_jprb,1.1732e-07_jprb,1.5863e-07_jprb,1.9781e-07_jprb,1.3609e-07_jprb/)  
kbo( :, 4,54, 4) = (/&
 & 2.4527e-08_jprb,1.6632e-07_jprb,2.0860e-07_jprb,2.2954e-07_jprb,1.5431e-07_jprb/)  
kbo( :, 5,54, 4) = (/&
 & 4.2883e-08_jprb,2.3139e-07_jprb,2.7507e-07_jprb,2.7789e-07_jprb,1.7766e-07_jprb/)  
kbo( :, 1,55, 4) = (/&
 & 2.9815e-09_jprb,4.5994e-08_jprb,8.4525e-08_jprb,1.5735e-07_jprb,9.3462e-08_jprb/)  
kbo( :, 2,55, 4) = (/&
 & 4.8723e-09_jprb,6.0940e-08_jprb,9.6391e-08_jprb,1.4974e-07_jprb,9.9006e-08_jprb/)  
kbo( :, 3,55, 4) = (/&
 & 8.9683e-09_jprb,8.6061e-08_jprb,1.1996e-07_jprb,1.5698e-07_jprb,1.0869e-07_jprb/)  
kbo( :, 4,55, 4) = (/&
 & 1.6661e-08_jprb,1.2249e-07_jprb,1.5677e-07_jprb,1.7852e-07_jprb,1.2250e-07_jprb/)  
kbo( :, 5,55, 4) = (/&
 & 2.9629e-08_jprb,1.7161e-07_jprb,2.0705e-07_jprb,2.1394e-07_jprb,1.4060e-07_jprb/)  
kbo( :, 1,56, 4) = (/&
 & 2.1861e-09_jprb,3.5243e-08_jprb,6.7842e-08_jprb,1.3338e-07_jprb,7.6071e-08_jprb/)  
kbo( :, 2,56, 4) = (/&
 & 3.3518e-09_jprb,4.5292e-08_jprb,7.4962e-08_jprb,1.2335e-07_jprb,7.9965e-08_jprb/)  
kbo( :, 3,56, 4) = (/&
 & 6.0272e-09_jprb,6.3165e-08_jprb,9.1168e-08_jprb,1.2562e-07_jprb,8.7021e-08_jprb/)  
kbo( :, 4,56, 4) = (/&
 & 1.1269e-08_jprb,9.0068e-08_jprb,1.1792e-07_jprb,1.3956e-07_jprb,9.7479e-08_jprb/)  
kbo( :, 5,56, 4) = (/&
 & 2.0362e-08_jprb,1.2698e-07_jprb,1.5571e-07_jprb,1.6515e-07_jprb,1.1148e-07_jprb/)  
kbo( :, 1,57, 4) = (/&
 & 1.6409e-09_jprb,2.7386e-08_jprb,5.4848e-08_jprb,1.1388e-07_jprb,6.2033e-08_jprb/)  
kbo( :, 2,57, 4) = (/&
 & 2.3428e-09_jprb,3.3930e-08_jprb,5.8875e-08_jprb,1.0251e-07_jprb,6.4870e-08_jprb/)  
kbo( :, 3,57, 4) = (/&
 & 4.0625e-09_jprb,4.6423e-08_jprb,6.9674e-08_jprb,1.0133e-07_jprb,6.9866e-08_jprb/)  
kbo( :, 4,57, 4) = (/&
 & 7.5880e-09_jprb,6.6138e-08_jprb,8.8862e-08_jprb,1.0977e-07_jprb,7.7746e-08_jprb/)  
kbo( :, 5,57, 4) = (/&
 & 1.3915e-08_jprb,9.3738e-08_jprb,1.1702e-07_jprb,1.2786e-07_jprb,8.8586e-08_jprb/)  
kbo( :, 1,58, 4) = (/&
 & 1.2635e-09_jprb,2.1604e-08_jprb,4.4731e-08_jprb,9.7552e-08_jprb,5.0828e-08_jprb/)  
kbo( :, 2,58, 4) = (/&
 & 1.6814e-09_jprb,2.5762e-08_jprb,4.6786e-08_jprb,8.5976e-08_jprb,5.2911e-08_jprb/)  
kbo( :, 3,58, 4) = (/&
 & 2.7835e-09_jprb,3.4427e-08_jprb,5.3815e-08_jprb,8.2469e-08_jprb,5.6515e-08_jprb/)  
kbo( :, 4,58, 4) = (/&
 & 5.1497e-09_jprb,4.8806e-08_jprb,6.7425e-08_jprb,8.7085e-08_jprb,6.2504e-08_jprb/)  
kbo( :, 5,58, 4) = (/&
 & 9.5533e-09_jprb,6.9446e-08_jprb,8.8336e-08_jprb,9.9625e-08_jprb,7.0988e-08_jprb/)  
kbo( :, 1,59, 4) = (/&
 & 1.0158e-09_jprb,1.7490e-08_jprb,3.6651e-08_jprb,8.1330e-08_jprb,4.2750e-08_jprb/)  
kbo( :, 2,59, 4) = (/&
 & 1.3161e-09_jprb,2.0543e-08_jprb,3.7942e-08_jprb,7.1098e-08_jprb,4.4506e-08_jprb/)  
kbo( :, 3,59, 4) = (/&
 & 2.1325e-09_jprb,2.7191e-08_jprb,4.3180e-08_jprb,6.7506e-08_jprb,4.7664e-08_jprb/)  
kbo( :, 4,59, 4) = (/&
 & 3.9206e-09_jprb,3.8435e-08_jprb,5.3711e-08_jprb,7.0587e-08_jprb,5.2961e-08_jprb/)  
kbo( :, 5,59, 4) = (/&
 & 7.2991e-09_jprb,5.4760e-08_jprb,7.0199e-08_jprb,8.0158e-08_jprb,6.0356e-08_jprb/)  
kbo( :, 1,13, 5) = (/&
 & 4.7279e-04_jprb,8.7098e-04_jprb,9.0543e-04_jprb,9.3823e-04_jprb,7.8919e-03_jprb/)  
kbo( :, 2,13, 5) = (/&
 & 6.4177e-04_jprb,1.1728e-03_jprb,1.1865e-03_jprb,1.1108e-03_jprb,8.6809e-03_jprb/)  
kbo( :, 3,13, 5) = (/&
 & 8.7771e-04_jprb,1.5520e-03_jprb,1.5457e-03_jprb,1.3624e-03_jprb,9.6358e-03_jprb/)  
kbo( :, 4,13, 5) = (/&
 & 1.1913e-03_jprb,2.0247e-03_jprb,1.9864e-03_jprb,1.6883e-03_jprb,1.0697e-02_jprb/)  
kbo( :, 5,13, 5) = (/&
 & 1.5849e-03_jprb,2.6087e-03_jprb,2.5214e-03_jprb,2.0902e-03_jprb,1.1832e-02_jprb/)  
kbo( :, 1,14, 5) = (/&
 & 3.9797e-04_jprb,7.4264e-04_jprb,7.7131e-04_jprb,7.8917e-04_jprb,6.3875e-03_jprb/)  
kbo( :, 2,14, 5) = (/&
 & 5.4883e-04_jprb,1.0041e-03_jprb,1.0164e-03_jprb,9.4462e-04_jprb,7.1228e-03_jprb/)  
kbo( :, 3,14, 5) = (/&
 & 7.5764e-04_jprb,1.3360e-03_jprb,1.3281e-03_jprb,1.1660e-03_jprb,7.9451e-03_jprb/)  
kbo( :, 4,14, 5) = (/&
 & 1.0318e-03_jprb,1.7525e-03_jprb,1.7145e-03_jprb,1.4506e-03_jprb,8.8337e-03_jprb/)  
kbo( :, 5,14, 5) = (/&
 & 1.3764e-03_jprb,2.2658e-03_jprb,2.1860e-03_jprb,1.8014e-03_jprb,9.7391e-03_jprb/)  
kbo( :, 1,15, 5) = (/&
 & 3.3164e-04_jprb,6.3085e-04_jprb,6.5753e-04_jprb,6.6377e-04_jprb,4.8736e-03_jprb/)  
kbo( :, 2,15, 5) = (/&
 & 4.6431e-04_jprb,8.5791e-04_jprb,8.7041e-04_jprb,8.0246e-04_jprb,5.4864e-03_jprb/)  
kbo( :, 3,15, 5) = (/&
 & 6.4635e-04_jprb,1.1477e-03_jprb,1.1413e-03_jprb,9.9664e-04_jprb,6.1519e-03_jprb/)  
kbo( :, 4,15, 5) = (/&
 & 8.8542e-04_jprb,1.5118e-03_jprb,1.4797e-03_jprb,1.2450e-03_jprb,6.8384e-03_jprb/)  
kbo( :, 5,15, 5) = (/&
 & 1.1860e-03_jprb,1.9607e-03_jprb,1.8917e-03_jprb,1.5514e-03_jprb,7.5330e-03_jprb/)  
kbo( :, 1,16, 5) = (/&
 & 2.7547e-04_jprb,5.3540e-04_jprb,5.5986e-04_jprb,5.5850e-04_jprb,3.5571e-03_jprb/)  
kbo( :, 2,16, 5) = (/&
 & 3.9076e-04_jprb,7.3210e-04_jprb,7.4449e-04_jprb,6.8182e-04_jprb,4.0376e-03_jprb/)  
kbo( :, 3,16, 5) = (/&
 & 5.4914e-04_jprb,9.8388e-04_jprb,9.7975e-04_jprb,8.5148e-04_jprb,4.5400e-03_jprb/)  
kbo( :, 4,16, 5) = (/&
 & 7.5647e-04_jprb,1.3013e-03_jprb,1.2750e-03_jprb,1.0673e-03_jprb,5.0491e-03_jprb/)  
kbo( :, 5,16, 5) = (/&
 & 1.0168e-03_jprb,1.6894e-03_jprb,1.6327e-03_jprb,1.3347e-03_jprb,5.5864e-03_jprb/)  
kbo( :, 1,17, 5) = (/&
 & 2.3152e-04_jprb,4.5640e-04_jprb,4.7753e-04_jprb,4.7152e-04_jprb,2.6479e-03_jprb/)  
kbo( :, 2,17, 5) = (/&
 & 3.3215e-04_jprb,6.2600e-04_jprb,6.3690e-04_jprb,5.8069e-04_jprb,3.0163e-03_jprb/)  
kbo( :, 3,17, 5) = (/&
 & 4.6960e-04_jprb,8.4466e-04_jprb,8.4113e-04_jprb,7.2795e-04_jprb,3.3924e-03_jprb/)  
kbo( :, 4,17, 5) = (/&
 & 6.4890e-04_jprb,1.1190e-03_jprb,1.0981e-03_jprb,9.1560e-04_jprb,3.7876e-03_jprb/)  
kbo( :, 5,17, 5) = (/&
 & 8.7357e-04_jprb,1.4542e-03_jprb,1.4067e-03_jprb,1.1490e-03_jprb,4.2015e-03_jprb/)  
kbo( :, 1,18, 5) = (/&
 & 1.9932e-04_jprb,3.9153e-04_jprb,4.0894e-04_jprb,3.9983e-04_jprb,2.0392e-03_jprb/)  
kbo( :, 2,18, 5) = (/&
 & 2.8740e-04_jprb,5.3802e-04_jprb,5.4670e-04_jprb,4.9548e-04_jprb,2.3218e-03_jprb/)  
kbo( :, 3,18, 5) = (/&
 & 4.0688e-04_jprb,7.2769e-04_jprb,7.2473e-04_jprb,6.2367e-04_jprb,2.6171e-03_jprb/)  
kbo( :, 4,18, 5) = (/&
 & 5.6212e-04_jprb,9.6442e-04_jprb,9.4622e-04_jprb,7.8767e-04_jprb,2.9286e-03_jprb/)  
kbo( :, 5,18, 5) = (/&
 & 7.5657e-04_jprb,1.2523e-03_jprb,1.2126e-03_jprb,9.8987e-04_jprb,3.2584e-03_jprb/)  
kbo( :, 1,19, 5) = (/&
 & 1.7300e-04_jprb,3.3615e-04_jprb,3.5010e-04_jprb,3.3920e-04_jprb,1.6249e-03_jprb/)  
kbo( :, 2,19, 5) = (/&
 & 2.4990e-04_jprb,4.6314e-04_jprb,4.6930e-04_jprb,4.2253e-04_jprb,1.8509e-03_jprb/)  
kbo( :, 3,19, 5) = (/&
 & 3.5374e-04_jprb,6.2681e-04_jprb,6.2354e-04_jprb,5.3462e-04_jprb,2.0903e-03_jprb/)  
kbo( :, 4,19, 5) = (/&
 & 4.8808e-04_jprb,8.3000e-04_jprb,8.1368e-04_jprb,6.7693e-04_jprb,2.3442e-03_jprb/)  
kbo( :, 5,19, 5) = (/&
 & 6.5622e-04_jprb,1.0763e-03_jprb,1.0415e-03_jprb,8.5100e-04_jprb,2.6149e-03_jprb/)  
kbo( :, 1,20, 5) = (/&
 & 1.5202e-04_jprb,2.9089e-04_jprb,3.0118e-04_jprb,2.8847e-04_jprb,1.3195e-03_jprb/)  
kbo( :, 2,20, 5) = (/&
 & 2.1947e-04_jprb,4.0137e-04_jprb,4.0488e-04_jprb,3.6160e-04_jprb,1.5051e-03_jprb/)  
kbo( :, 3,20, 5) = (/&
 & 3.1005e-04_jprb,5.4229e-04_jprb,5.3773e-04_jprb,4.5934e-04_jprb,1.7011e-03_jprb/)  
kbo( :, 4,20, 5) = (/&
 & 4.2687e-04_jprb,7.1641e-04_jprb,7.0062e-04_jprb,5.8213e-04_jprb,1.9126e-03_jprb/)  
kbo( :, 5,20, 5) = (/&
 & 5.7243e-04_jprb,9.2825e-04_jprb,8.9565e-04_jprb,7.3135e-04_jprb,2.1352e-03_jprb/)  
kbo( :, 1,21, 5) = (/&
 & 1.3342e-04_jprb,2.5207e-04_jprb,2.5927e-04_jprb,2.4529e-04_jprb,1.0741e-03_jprb/)  
kbo( :, 2,21, 5) = (/&
 & 1.9233e-04_jprb,3.4753e-04_jprb,3.4906e-04_jprb,3.0934e-04_jprb,1.2262e-03_jprb/)  
kbo( :, 3,21, 5) = (/&
 & 2.7108e-04_jprb,4.6836e-04_jprb,4.6295e-04_jprb,3.9387e-04_jprb,1.3885e-03_jprb/)  
kbo( :, 4,21, 5) = (/&
 & 3.7228e-04_jprb,6.1777e-04_jprb,6.0200e-04_jprb,4.9887e-04_jprb,1.5626e-03_jprb/)  
kbo( :, 5,21, 5) = (/&
 & 4.9911e-04_jprb,7.9951e-04_jprb,7.6864e-04_jprb,6.2637e-04_jprb,1.7443e-03_jprb/)  
kbo( :, 1,22, 5) = (/&
 & 1.1876e-04_jprb,2.2232e-04_jprb,2.2723e-04_jprb,2.1144e-04_jprb,8.6475e-04_jprb/)  
kbo( :, 2,22, 5) = (/&
 & 1.7098e-04_jprb,3.0547e-04_jprb,3.0556e-04_jprb,2.6827e-04_jprb,9.8817e-04_jprb/)  
kbo( :, 3,22, 5) = (/&
 & 2.4024e-04_jprb,4.1043e-04_jprb,4.0412e-04_jprb,3.4171e-04_jprb,1.1213e-03_jprb/)  
kbo( :, 4,22, 5) = (/&
 & 3.2954e-04_jprb,5.4028e-04_jprb,5.2414e-04_jprb,4.3238e-04_jprb,1.2619e-03_jprb/)  
kbo( :, 5,22, 5) = (/&
 & 4.4187e-04_jprb,6.9761e-04_jprb,6.6809e-04_jprb,5.4249e-04_jprb,1.4080e-03_jprb/)  
kbo( :, 1,23, 5) = (/&
 & 1.0533e-04_jprb,1.9573e-04_jprb,1.9910e-04_jprb,1.8269e-04_jprb,6.9257e-04_jprb/)  
kbo( :, 2,23, 5) = (/&
 & 1.5155e-04_jprb,2.6816e-04_jprb,2.6720e-04_jprb,2.3262e-04_jprb,7.9308e-04_jprb/)  
kbo( :, 3,23, 5) = (/&
 & 2.1274e-04_jprb,3.5921e-04_jprb,3.5244e-04_jprb,2.9616e-04_jprb,9.0068e-04_jprb/)  
kbo( :, 4,23, 5) = (/&
 & 2.9190e-04_jprb,4.7191e-04_jprb,4.5593e-04_jprb,3.7445e-04_jprb,1.0136e-03_jprb/)  
kbo( :, 5,23, 5) = (/&
 & 3.9138e-04_jprb,6.0878e-04_jprb,5.8059e-04_jprb,4.6968e-04_jprb,1.1306e-03_jprb/)  
kbo( :, 1,24, 5) = (/&
 & 9.2582e-05_jprb,1.7167e-04_jprb,1.7398e-04_jprb,1.5781e-04_jprb,5.4677e-04_jprb/)  
kbo( :, 2,24, 5) = (/&
 & 1.3344e-04_jprb,2.3456e-04_jprb,2.3315e-04_jprb,2.0139e-04_jprb,6.2782e-04_jprb/)  
kbo( :, 3,24, 5) = (/&
 & 1.8769e-04_jprb,3.1365e-04_jprb,3.0670e-04_jprb,2.5637e-04_jprb,7.1420e-04_jprb/)  

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


SUBROUTINE part19

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


kbo( :, 4,24, 5) = (/&
 & 2.5773e-04_jprb,4.1174e-04_jprb,3.9630e-04_jprb,3.2402e-04_jprb,8.0431e-04_jprb/)  
kbo( :, 5,24, 5) = (/&
 & 3.4549e-04_jprb,5.3124e-04_jprb,5.0449e-04_jprb,4.0653e-04_jprb,8.9759e-04_jprb/)  
kbo( :, 1,25, 5) = (/&
 & 8.1720e-05_jprb,1.5080e-04_jprb,1.5235e-04_jprb,1.3662e-04_jprb,4.3240e-04_jprb/)  
kbo( :, 2,25, 5) = (/&
 & 1.1805e-04_jprb,2.0558e-04_jprb,2.0367e-04_jprb,1.7460e-04_jprb,4.9748e-04_jprb/)  
kbo( :, 3,25, 5) = (/&
 & 1.6632e-04_jprb,2.7459e-04_jprb,2.6746e-04_jprb,2.2227e-04_jprb,5.6662e-04_jprb/)  
kbo( :, 4,25, 5) = (/&
 & 2.2820e-04_jprb,3.6032e-04_jprb,3.4539e-04_jprb,2.8107e-04_jprb,6.3853e-04_jprb/)  
kbo( :, 5,25, 5) = (/&
 & 3.0509e-04_jprb,4.6497e-04_jprb,4.3993e-04_jprb,3.5289e-04_jprb,7.1328e-04_jprb/)  
kbo( :, 1,26, 5) = (/&
 & 7.3023e-05_jprb,1.3337e-04_jprb,1.3413e-04_jprb,1.1892e-04_jprb,3.4584e-04_jprb/)  
kbo( :, 2,26, 5) = (/&
 & 1.0560e-04_jprb,1.8141e-04_jprb,1.7894e-04_jprb,1.5213e-04_jprb,3.9839e-04_jprb/)  
kbo( :, 3,26, 5) = (/&
 & 1.4861e-04_jprb,2.4208e-04_jprb,2.3462e-04_jprb,1.9371e-04_jprb,4.5384e-04_jprb/)  
kbo( :, 4,26, 5) = (/&
 & 2.0313e-04_jprb,3.1741e-04_jprb,3.0291e-04_jprb,2.4516e-04_jprb,5.1150e-04_jprb/)  
kbo( :, 5,26, 5) = (/&
 & 2.7025e-04_jprb,4.0891e-04_jprb,3.8585e-04_jprb,3.0810e-04_jprb,5.7158e-04_jprb/)  
kbo( :, 1,27, 5) = (/&
 & 6.5244e-05_jprb,1.1779e-04_jprb,1.1796e-04_jprb,1.0347e-04_jprb,2.7274e-04_jprb/)  
kbo( :, 2,27, 5) = (/&
 & 9.4317e-05_jprb,1.6003e-04_jprb,1.5711e-04_jprb,1.3251e-04_jprb,3.1462e-04_jprb/)  
kbo( :, 3,27, 5) = (/&
 & 1.3235e-04_jprb,2.1338e-04_jprb,2.0578e-04_jprb,1.6888e-04_jprb,3.5874e-04_jprb/)  
kbo( :, 4,27, 5) = (/&
 & 1.7994e-04_jprb,2.7923e-04_jprb,2.6567e-04_jprb,2.1397e-04_jprb,4.0423e-04_jprb/)  
kbo( :, 5,27, 5) = (/&
 & 2.3815e-04_jprb,3.5878e-04_jprb,3.3808e-04_jprb,2.6908e-04_jprb,4.5194e-04_jprb/)  
kbo( :, 1,28, 5) = (/&
 & 5.8135e-05_jprb,1.0393e-04_jprb,1.0358e-04_jprb,8.9974e-05_jprb,2.1186e-04_jprb/)  
kbo( :, 2,28, 5) = (/&
 & 8.3922e-05_jprb,1.4106e-04_jprb,1.3783e-04_jprb,1.1539e-04_jprb,2.4486e-04_jprb/)  
kbo( :, 3,28, 5) = (/&
 & 1.1719e-04_jprb,1.8771e-04_jprb,1.8042e-04_jprb,1.4725e-04_jprb,2.7921e-04_jprb/)  
kbo( :, 4,28, 5) = (/&
 & 1.5846e-04_jprb,2.4498e-04_jprb,2.3269e-04_jprb,1.8682e-04_jprb,3.1493e-04_jprb/)  
kbo( :, 5,28, 5) = (/&
 & 2.0834e-04_jprb,3.1383e-04_jprb,2.9568e-04_jprb,2.3488e-04_jprb,3.5235e-04_jprb/)  
kbo( :, 1,29, 5) = (/&
 & 5.2156e-05_jprb,9.2110e-05_jprb,9.1288e-05_jprb,7.8487e-05_jprb,1.6379e-04_jprb/)  
kbo( :, 2,29, 5) = (/&
 & 7.4907e-05_jprb,1.2474e-04_jprb,1.2134e-04_jprb,1.0081e-04_jprb,1.8924e-04_jprb/)  
kbo( :, 3,29, 5) = (/&
 & 1.0389e-04_jprb,1.6543e-04_jprb,1.5862e-04_jprb,1.2884e-04_jprb,2.1564e-04_jprb/)  
kbo( :, 4,29, 5) = (/&
 & 1.3949e-04_jprb,2.1507e-04_jprb,2.0416e-04_jprb,1.6349e-04_jprb,2.4336e-04_jprb/)  
kbo( :, 5,29, 5) = (/&
 & 1.8193e-04_jprb,2.7457e-04_jprb,2.5880e-04_jprb,2.0529e-04_jprb,2.7230e-04_jprb/)  
kbo( :, 1,30, 5) = (/&
 & 4.6665e-05_jprb,8.1578e-05_jprb,8.0475e-05_jprb,6.8545e-05_jprb,1.2523e-04_jprb/)  
kbo( :, 2,30, 5) = (/&
 & 6.6590e-05_jprb,1.1011e-04_jprb,1.0677e-04_jprb,8.8175e-05_jprb,1.4448e-04_jprb/)  
kbo( :, 3,30, 5) = (/&
 & 9.1666e-05_jprb,1.4544e-04_jprb,1.3932e-04_jprb,1.1280e-04_jprb,1.6467e-04_jprb/)  
kbo( :, 4,30, 5) = (/&
 & 1.2214e-04_jprb,1.8830e-04_jprb,1.7882e-04_jprb,1.4301e-04_jprb,1.8584e-04_jprb/)  
kbo( :, 5,30, 5) = (/&
 & 1.5808e-04_jprb,2.3937e-04_jprb,2.2601e-04_jprb,1.7927e-04_jprb,2.0804e-04_jprb/)  
kbo( :, 1,31, 5) = (/&
 & 4.1774e-05_jprb,7.2293e-05_jprb,7.1044e-05_jprb,6.0014e-05_jprb,9.4404e-05_jprb/)  
kbo( :, 2,31, 5) = (/&
 & 5.9153e-05_jprb,9.7142e-05_jprb,9.4034e-05_jprb,7.7303e-05_jprb,1.0876e-04_jprb/)  
kbo( :, 3,31, 5) = (/&
 & 8.0749e-05_jprb,1.2773e-04_jprb,1.2231e-04_jprb,9.8861e-05_jprb,1.2383e-04_jprb/)  
kbo( :, 4,31, 5) = (/&
 & 1.0665e-04_jprb,1.6459e-04_jprb,1.5646e-04_jprb,1.2511e-04_jprb,1.3969e-04_jprb/)  
kbo( :, 5,31, 5) = (/&
 & 1.3708e-04_jprb,2.0815e-04_jprb,1.9687e-04_jprb,1.5634e-04_jprb,1.5670e-04_jprb/)  
kbo( :, 1,32, 5) = (/&
 & 3.7360e-05_jprb,6.4042e-05_jprb,6.2763e-05_jprb,5.2674e-05_jprb,7.1295e-05_jprb/)  
kbo( :, 2,32, 5) = (/&
 & 5.2458e-05_jprb,8.5627e-05_jprb,8.2786e-05_jprb,6.7846e-05_jprb,8.1990e-05_jprb/)  
kbo( :, 3,32, 5) = (/&
 & 7.0948e-05_jprb,1.1205e-04_jprb,1.0732e-04_jprb,8.6659e-05_jprb,9.3329e-05_jprb/)  
kbo( :, 4,32, 5) = (/&
 & 9.2912e-05_jprb,1.4361e-04_jprb,1.3667e-04_jprb,1.0937e-04_jprb,1.0550e-04_jprb/)  
kbo( :, 5,32, 5) = (/&
 & 1.1872e-04_jprb,1.8058e-04_jprb,1.7108e-04_jprb,1.3607e-04_jprb,1.1861e-04_jprb/)  
kbo( :, 1,33, 5) = (/&
 & 3.3330e-05_jprb,5.6651e-05_jprb,5.5404e-05_jprb,4.6257e-05_jprb,5.3603e-05_jprb/)  
kbo( :, 2,33, 5) = (/&
 & 4.6366e-05_jprb,7.5365e-05_jprb,7.2815e-05_jprb,5.9541e-05_jprb,6.1709e-05_jprb/)  
kbo( :, 3,33, 5) = (/&
 & 6.2117e-05_jprb,9.8064e-05_jprb,9.4002e-05_jprb,7.5880e-05_jprb,7.0404e-05_jprb/)  
kbo( :, 4,33, 5) = (/&
 & 8.0785e-05_jprb,1.2503e-04_jprb,1.1911e-04_jprb,9.5440e-05_jprb,7.9842e-05_jprb/)  
kbo( :, 5,33, 5) = (/&
 & 1.0266e-04_jprb,1.5642e-04_jprb,1.4831e-04_jprb,1.1813e-04_jprb,8.9956e-05_jprb/)  
kbo( :, 1,34, 5) = (/&
 & 2.9453e-05_jprb,4.9674e-05_jprb,4.8494e-05_jprb,4.0330e-05_jprb,4.1449e-05_jprb/)  
kbo( :, 2,34, 5) = (/&
 & 4.0587e-05_jprb,6.5763e-05_jprb,6.3519e-05_jprb,5.1852e-05_jprb,4.7772e-05_jprb/)  
kbo( :, 3,34, 5) = (/&
 & 5.3941e-05_jprb,8.5109e-05_jprb,8.1613e-05_jprb,6.5908e-05_jprb,5.4645e-05_jprb/)  
kbo( :, 4,34, 5) = (/&
 & 6.9742e-05_jprb,1.0800e-04_jprb,1.0292e-04_jprb,8.2540e-05_jprb,6.2110e-05_jprb/)  
kbo( :, 5,34, 5) = (/&
 & 8.8248e-05_jprb,1.3461e-04_jprb,1.2764e-04_jprb,1.0173e-04_jprb,7.0115e-05_jprb/)  
kbo( :, 1,35, 5) = (/&
 & 2.5087e-05_jprb,4.2259e-05_jprb,4.1255e-05_jprb,3.4275e-05_jprb,3.1533e-05_jprb/)  
kbo( :, 2,35, 5) = (/&
 & 3.4377e-05_jprb,5.5779e-05_jprb,5.3928e-05_jprb,4.4037e-05_jprb,3.6467e-05_jprb/)  
kbo( :, 3,35, 5) = (/&
 & 4.5509e-05_jprb,7.1962e-05_jprb,6.9073e-05_jprb,5.5855e-05_jprb,4.1858e-05_jprb/)  
kbo( :, 4,35, 5) = (/&
 & 5.8672e-05_jprb,9.1085e-05_jprb,8.6867e-05_jprb,6.9736e-05_jprb,4.7718e-05_jprb/)  
kbo( :, 5,35, 5) = (/&
 & 7.4086e-05_jprb,1.1331e-04_jprb,1.0750e-04_jprb,8.5753e-05_jprb,5.3964e-05_jprb/)  
kbo( :, 1,36, 5) = (/&
 & 2.0525e-05_jprb,3.4767e-05_jprb,3.4001e-05_jprb,2.8297e-05_jprb,2.3548e-05_jprb/)  
kbo( :, 2,36, 5) = (/&
 & 2.8104e-05_jprb,4.5872e-05_jprb,4.4441e-05_jprb,3.6357e-05_jprb,2.7355e-05_jprb/)  
kbo( :, 3,36, 5) = (/&
 & 3.7199e-05_jprb,5.9142e-05_jprb,5.6864e-05_jprb,4.6074e-05_jprb,3.1516e-05_jprb/)  
kbo( :, 4,36, 5) = (/&
 & 4.7973e-05_jprb,7.4842e-05_jprb,7.1480e-05_jprb,5.7473e-05_jprb,3.6056e-05_jprb/)  
kbo( :, 5,36, 5) = (/&
 & 6.0589e-05_jprb,9.3078e-05_jprb,8.8416e-05_jprb,7.0645e-05_jprb,4.0905e-05_jprb/)  
kbo( :, 1,37, 5) = (/&
 & 1.6118e-05_jprb,2.7523e-05_jprb,2.6979e-05_jprb,2.2543e-05_jprb,1.8010e-05_jprb/)  
kbo( :, 2,37, 5) = (/&
 & 2.2165e-05_jprb,3.6407e-05_jprb,3.5348e-05_jprb,2.9008e-05_jprb,2.0983e-05_jprb/)  
kbo( :, 3,37, 5) = (/&
 & 2.9444e-05_jprb,4.7055e-05_jprb,4.5326e-05_jprb,3.6808e-05_jprb,2.4249e-05_jprb/)  
kbo( :, 4,37, 5) = (/&
 & 3.8081e-05_jprb,5.9681e-05_jprb,5.7081e-05_jprb,4.5982e-05_jprb,2.7813e-05_jprb/)  
kbo( :, 5,37, 5) = (/&
 & 4.8212e-05_jprb,7.4374e-05_jprb,7.0740e-05_jprb,5.6602e-05_jprb,3.1635e-05_jprb/)  
kbo( :, 1,38, 5) = (/&
 & 1.2610e-05_jprb,2.1718e-05_jprb,2.1343e-05_jprb,1.7908e-05_jprb,1.3720e-05_jprb/)  
kbo( :, 2,38, 5) = (/&
 & 1.7424e-05_jprb,2.8812e-05_jprb,2.8034e-05_jprb,2.3079e-05_jprb,1.6034e-05_jprb/)  
kbo( :, 3,38, 5) = (/&
 & 2.3240e-05_jprb,3.7339e-05_jprb,3.6033e-05_jprb,2.9331e-05_jprb,1.8589e-05_jprb/)  
kbo( :, 4,38, 5) = (/&
 & 3.0149e-05_jprb,4.7476e-05_jprb,4.5479e-05_jprb,3.6700e-05_jprb,2.1382e-05_jprb/)  
kbo( :, 5,38, 5) = (/&
 & 3.8276e-05_jprb,5.9294e-05_jprb,5.6476e-05_jprb,4.5256e-05_jprb,2.4387e-05_jprb/)  
kbo( :, 1,39, 5) = (/&
 & 9.8494e-06_jprb,1.7119e-05_jprb,1.6865e-05_jprb,1.4215e-05_jprb,1.0374e-05_jprb/)  
kbo( :, 2,39, 5) = (/&
 & 1.3680e-05_jprb,2.2781e-05_jprb,2.2215e-05_jprb,1.8350e-05_jprb,1.2167e-05_jprb/)  
kbo( :, 3,39, 5) = (/&
 & 1.8324e-05_jprb,2.9603e-05_jprb,2.8623e-05_jprb,2.3356e-05_jprb,1.4153e-05_jprb/)  
kbo( :, 4,39, 5) = (/&
 & 2.3849e-05_jprb,3.7739e-05_jprb,3.6208e-05_jprb,2.9278e-05_jprb,1.6336e-05_jprb/)  
kbo( :, 5,39, 5) = (/&
 & 3.0362e-05_jprb,4.7240e-05_jprb,4.5057e-05_jprb,3.6164e-05_jprb,1.8690e-05_jprb/)  
kbo( :, 1,40, 5) = (/&
 & 7.4339e-06_jprb,1.3096e-05_jprb,1.2949e-05_jprb,1.0994e-05_jprb,7.9222e-06_jprb/)  
kbo( :, 2,40, 5) = (/&
 & 1.0423e-05_jprb,1.7529e-05_jprb,1.7143e-05_jprb,1.4230e-05_jprb,9.3215e-06_jprb/)  
kbo( :, 3,40, 5) = (/&
 & 1.4064e-05_jprb,2.2897e-05_jprb,2.2194e-05_jprb,1.8169e-05_jprb,1.0878e-05_jprb/)  
kbo( :, 4,40, 5) = (/&
 & 1.8421e-05_jprb,2.9319e-05_jprb,2.8191e-05_jprb,2.2850e-05_jprb,1.2595e-05_jprb/)  
kbo( :, 5,40, 5) = (/&
 & 2.3560e-05_jprb,3.6849e-05_jprb,3.5209e-05_jprb,2.8311e-05_jprb,1.4456e-05_jprb/)  
kbo( :, 1,41, 5) = (/&
 & 5.5704e-06_jprb,9.9619e-06_jprb,9.8891e-06_jprb,8.4654e-06_jprb,6.0394e-06_jprb/)  
kbo( :, 2,41, 5) = (/&
 & 7.8899e-06_jprb,1.3424e-05_jprb,1.3166e-05_jprb,1.0990e-05_jprb,7.1317e-06_jprb/)  
kbo( :, 3,41, 5) = (/&
 & 1.0739e-05_jprb,1.7632e-05_jprb,1.7133e-05_jprb,1.4077e-05_jprb,8.3487e-06_jprb/)  
kbo( :, 4,41, 5) = (/&
 & 1.4162e-05_jprb,2.2683e-05_jprb,2.1860e-05_jprb,1.7767e-05_jprb,9.6986e-06_jprb/)  
kbo( :, 5,41, 5) = (/&
 & 1.8206e-05_jprb,2.8635e-05_jprb,2.7414e-05_jprb,2.2091e-05_jprb,1.1170e-05_jprb/)  
kbo( :, 1,42, 5) = (/&
 & 4.1581e-06_jprb,7.5591e-06_jprb,7.5361e-06_jprb,6.5108e-06_jprb,4.5852e-06_jprb/)  
kbo( :, 2,42, 5) = (/&
 & 5.9538e-06_jprb,1.0259e-05_jprb,1.0094e-05_jprb,8.4784e-06_jprb,5.4324e-06_jprb/)  
kbo( :, 3,42, 5) = (/&
 & 8.1801e-06_jprb,1.3552e-05_jprb,1.3202e-05_jprb,1.0892e-05_jprb,6.3816e-06_jprb/)  
kbo( :, 4,42, 5) = (/&
 & 1.0865e-05_jprb,1.7520e-05_jprb,1.6925e-05_jprb,1.3796e-05_jprb,7.4382e-06_jprb/)  
kbo( :, 5,42, 5) = (/&
 & 1.4044e-05_jprb,2.2222e-05_jprb,2.1312e-05_jprb,1.7215e-05_jprb,8.5974e-06_jprb/)  
kbo( :, 1,43, 5) = (/&
 & 3.0295e-06_jprb,5.6227e-06_jprb,5.6370e-06_jprb,4.9291e-06_jprb,3.4644e-06_jprb/)  
kbo( :, 2,43, 5) = (/&
 & 4.3992e-06_jprb,7.7006e-06_jprb,7.6071e-06_jprb,6.4406e-06_jprb,4.1177e-06_jprb/)  
kbo( :, 3,43, 5) = (/&
 & 6.1168e-06_jprb,1.0248e-05_jprb,1.0014e-05_jprb,8.3065e-06_jprb,4.8541e-06_jprb/)  
kbo( :, 4,43, 5) = (/&
 & 8.2022e-06_jprb,1.3332e-05_jprb,1.2916e-05_jprb,1.0567e-05_jprb,5.6783e-06_jprb/)  
kbo( :, 5,43, 5) = (/&
 & 1.0679e-05_jprb,1.7006e-05_jprb,1.6348e-05_jprb,1.3242e-05_jprb,6.5871e-06_jprb/)  
kbo( :, 1,44, 5) = (/&
 & 2.1752e-06_jprb,4.1354e-06_jprb,4.1745e-06_jprb,3.7028e-06_jprb,2.6072e-06_jprb/)  
kbo( :, 2,44, 5) = (/&
 & 3.2105e-06_jprb,5.7219e-06_jprb,5.6778e-06_jprb,4.8546e-06_jprb,3.1066e-06_jprb/)  
kbo( :, 3,44, 5) = (/&
 & 4.5242e-06_jprb,7.6797e-06_jprb,7.5307e-06_jprb,6.2874e-06_jprb,3.6742e-06_jprb/)  
kbo( :, 4,44, 5) = (/&
 & 6.1342e-06_jprb,1.0065e-05_jprb,9.7795e-06_jprb,8.0353e-06_jprb,4.3146e-06_jprb/)  
kbo( :, 5,44, 5) = (/&
 & 8.0572e-06_jprb,1.2919e-05_jprb,1.2450e-05_jprb,1.0118e-05_jprb,5.0246e-06_jprb/)  
kbo( :, 1,45, 5) = (/&
 & 1.5520e-06_jprb,3.0304e-06_jprb,3.0821e-06_jprb,2.7797e-06_jprb,1.9539e-06_jprb/)  
kbo( :, 2,45, 5) = (/&
 & 2.3304e-06_jprb,4.2364e-06_jprb,4.2250e-06_jprb,3.6531e-06_jprb,2.3326e-06_jprb/)  
kbo( :, 3,45, 5) = (/&
 & 3.3303e-06_jprb,5.7394e-06_jprb,5.6502e-06_jprb,4.7523e-06_jprb,2.7664e-06_jprb/)  
kbo( :, 4,45, 5) = (/&
 & 4.5711e-06_jprb,7.5789e-06_jprb,7.3862e-06_jprb,6.0991e-06_jprb,3.2606e-06_jprb/)  
kbo( :, 5,45, 5) = (/&
 & 6.0612e-06_jprb,9.7914e-06_jprb,9.4635e-06_jprb,7.7174e-06_jprb,3.8129e-06_jprb/)  
kbo( :, 1,46, 5) = (/&
 & 1.0896e-06_jprb,2.1957e-06_jprb,2.2531e-06_jprb,2.0749e-06_jprb,1.4595e-06_jprb/)  
kbo( :, 2,46, 5) = (/&
 & 1.6682e-06_jprb,3.1035e-06_jprb,3.1144e-06_jprb,2.7296e-06_jprb,1.7441e-06_jprb/)  
kbo( :, 3,46, 5) = (/&
 & 2.4227e-06_jprb,4.2500e-06_jprb,4.2020e-06_jprb,3.5671e-06_jprb,2.0729e-06_jprb/)  
kbo( :, 4,46, 5) = (/&
 & 3.3718e-06_jprb,5.6598e-06_jprb,5.5353e-06_jprb,4.5977e-06_jprb,2.4518e-06_jprb/)  
kbo( :, 5,46, 5) = (/&
 & 4.5215e-06_jprb,7.3662e-06_jprb,7.1417e-06_jprb,5.8470e-06_jprb,2.8782e-06_jprb/)  
kbo( :, 1,47, 5) = (/&
 & 7.4469e-07_jprb,1.5605e-06_jprb,1.6200e-06_jprb,1.5335e-06_jprb,1.0893e-06_jprb/)  
kbo( :, 2,47, 5) = (/&
 & 1.1672e-06_jprb,2.2327e-06_jprb,2.2585e-06_jprb,2.0143e-06_jprb,1.3019e-06_jprb/)  
kbo( :, 3,47, 5) = (/&
 & 1.7284e-06_jprb,3.0966e-06_jprb,3.0782e-06_jprb,2.6442e-06_jprb,1.5506e-06_jprb/)  
kbo( :, 4,47, 5) = (/&
 & 2.4447e-06_jprb,4.1671e-06_jprb,4.0916e-06_jprb,3.4253e-06_jprb,1.8389e-06_jprb/)  
kbo( :, 5,47, 5) = (/&
 & 3.3234e-06_jprb,5.4710e-06_jprb,5.3227e-06_jprb,4.3793e-06_jprb,2.1666e-06_jprb/)  
kbo( :, 1,48, 5) = (/&
 & 5.0356e-07_jprb,1.1031e-06_jprb,1.1612e-06_jprb,1.1366e-06_jprb,8.1111e-07_jprb/)  
kbo( :, 2,48, 5) = (/&
 & 8.0967e-07_jprb,1.5982e-06_jprb,1.6316e-06_jprb,1.4855e-06_jprb,9.6803e-07_jprb/)  
kbo( :, 3,48, 5) = (/&
 & 1.2240e-06_jprb,2.2449e-06_jprb,2.2458e-06_jprb,1.9554e-06_jprb,1.1545e-06_jprb/)  
kbo( :, 4,48, 5) = (/&
 & 1.7609e-06_jprb,3.0561e-06_jprb,3.0144e-06_jprb,2.5471e-06_jprb,1.3716e-06_jprb/)  
kbo( :, 5,48, 5) = (/&
 & 2.4302e-06_jprb,4.0500e-06_jprb,3.9537e-06_jprb,3.2729e-06_jprb,1.6214e-06_jprb/)  
kbo( :, 1,49, 5) = (/&
 & 3.3669e-07_jprb,7.7562e-07_jprb,8.3013e-07_jprb,8.4661e-07_jprb,6.0239e-07_jprb/)  
kbo( :, 2,49, 5) = (/&
 & 5.5618e-07_jprb,1.1378e-06_jprb,1.1737e-06_jprb,1.0960e-06_jprb,7.1701e-07_jprb/)  
kbo( :, 3,49, 5) = (/&
 & 8.5966e-07_jprb,1.6189e-06_jprb,1.6315e-06_jprb,1.4432e-06_jprb,8.5489e-07_jprb/)  
kbo( :, 4,49, 5) = (/&
 & 1.2600e-06_jprb,2.2310e-06_jprb,2.2122e-06_jprb,1.8904e-06_jprb,1.0169e-06_jprb/)  
kbo( :, 5,49, 5) = (/&
 & 1.7668e-06_jprb,2.9864e-06_jprb,2.9265e-06_jprb,2.4403e-06_jprb,1.2053e-06_jprb/)  
kbo( :, 1,50, 5) = (/&
 & 2.2597e-07_jprb,5.4865e-07_jprb,5.9834e-07_jprb,6.3972e-07_jprb,4.5578e-07_jprb/)  
kbo( :, 2,50, 5) = (/&
 & 3.8336e-07_jprb,8.1421e-07_jprb,8.4965e-07_jprb,8.1592e-07_jprb,5.4000e-07_jprb/)  
kbo( :, 3,50, 5) = (/&
 & 6.0620e-07_jprb,1.1725e-06_jprb,1.1909e-06_jprb,1.0720e-06_jprb,6.4348e-07_jprb/)  
kbo( :, 4,50, 5) = (/&
 & 9.0494e-07_jprb,1.6354e-06_jprb,1.6304e-06_jprb,1.4100e-06_jprb,7.6597e-07_jprb/)  
kbo( :, 5,50, 5) = (/&
 & 1.2886e-06_jprb,2.2119e-06_jprb,2.1763e-06_jprb,1.8292e-06_jprb,9.0912e-07_jprb/)  
kbo( :, 1,51, 5) = (/&
 & 1.5102e-07_jprb,3.8839e-07_jprb,4.3315e-07_jprb,4.8969e-07_jprb,3.4866e-07_jprb/)  
kbo( :, 2,51, 5) = (/&
 & 2.6341e-07_jprb,5.8277e-07_jprb,6.1614e-07_jprb,6.1112e-07_jprb,4.1018e-07_jprb/)  
kbo( :, 3,51, 5) = (/&
 & 4.2666e-07_jprb,8.4914e-07_jprb,8.6978e-07_jprb,7.9868e-07_jprb,4.8807e-07_jprb/)  
kbo( :, 4,51, 5) = (/&
 & 6.4908e-07_jprb,1.1984e-06_jprb,1.2019e-06_jprb,1.0530e-06_jprb,5.8123e-07_jprb/)  
kbo( :, 5,51, 5) = (/&
 & 9.3904e-07_jprb,1.6385e-06_jprb,1.6190e-06_jprb,1.3734e-06_jprb,6.9028e-07_jprb/)  
kbo( :, 1,52, 5) = (/&
 & 9.9875e-08_jprb,2.7392e-07_jprb,3.1411e-07_jprb,3.7992e-07_jprb,2.6732e-07_jprb/)  
kbo( :, 2,52, 5) = (/&
 & 1.7936e-07_jprb,4.1537e-07_jprb,4.4601e-07_jprb,4.6002e-07_jprb,3.1160e-07_jprb/)  
kbo( :, 3,52, 5) = (/&
 & 2.9800e-07_jprb,6.1230e-07_jprb,6.3323e-07_jprb,5.9558e-07_jprb,3.6937e-07_jprb/)  
kbo( :, 4,52, 5) = (/&
 & 4.6262e-07_jprb,8.7457e-07_jprb,8.8316e-07_jprb,7.8544e-07_jprb,4.3987e-07_jprb/)  
kbo( :, 5,52, 5) = (/&
 & 6.8072e-07_jprb,1.2094e-06_jprb,1.2006e-06_jprb,1.0296e-06_jprb,5.2264e-07_jprb/)  
kbo( :, 1,53, 5) = (/&
 & 6.5343e-08_jprb,1.9251e-07_jprb,2.2851e-07_jprb,2.9947e-07_jprb,2.0556e-07_jprb/)  
kbo( :, 2,53, 5) = (/&
 & 1.2091e-07_jprb,2.9469e-07_jprb,3.2248e-07_jprb,3.4877e-07_jprb,2.3686e-07_jprb/)  
kbo( :, 3,53, 5) = (/&
 & 2.0627e-07_jprb,4.3946e-07_jprb,4.5963e-07_jprb,4.4471e-07_jprb,2.7889e-07_jprb/)  

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


SUBROUTINE part20

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


kbo( :, 4,53, 5) = (/&
 & 3.2743e-07_jprb,6.3522e-07_jprb,6.4653e-07_jprb,5.8508e-07_jprb,3.3168e-07_jprb/)  
kbo( :, 5,53, 5) = (/&
 & 4.9060e-07_jprb,8.8881e-07_jprb,8.8708e-07_jprb,7.7003e-07_jprb,3.9409e-07_jprb/)  
kbo( :, 1,54, 5) = (/&
 & 4.3306e-08_jprb,1.3699e-07_jprb,1.6897e-07_jprb,2.4035e-07_jprb,1.6171e-07_jprb/)  
kbo( :, 2,54, 5) = (/&
 & 8.2182e-08_jprb,2.1109e-07_jprb,2.3589e-07_jprb,2.6887e-07_jprb,1.8465e-07_jprb/)  
kbo( :, 3,54, 5) = (/&
 & 1.4392e-07_jprb,3.1803e-07_jprb,3.3664e-07_jprb,3.3573e-07_jprb,2.1605e-07_jprb/)  
kbo( :, 4,54, 5) = (/&
 & 2.3356e-07_jprb,4.6489e-07_jprb,4.7688e-07_jprb,4.3961e-07_jprb,2.5649e-07_jprb/)  
kbo( :, 5,54, 5) = (/&
 & 3.5601e-07_jprb,6.5756e-07_jprb,6.5990e-07_jprb,5.7981e-07_jprb,3.0495e-07_jprb/)  
kbo( :, 1,55, 5) = (/&
 & 2.8854e-08_jprb,9.8072e-08_jprb,1.2651e-07_jprb,1.9577e-07_jprb,1.2893e-07_jprb/)  
kbo( :, 2,55, 5) = (/&
 & 5.5873e-08_jprb,1.5168e-07_jprb,1.7364e-07_jprb,2.1001e-07_jprb,1.4600e-07_jprb/)  
kbo( :, 3,55, 5) = (/&
 & 1.0041e-07_jprb,2.3068e-07_jprb,2.4750e-07_jprb,2.5542e-07_jprb,1.6992e-07_jprb/)  
kbo( :, 4,55, 5) = (/&
 & 1.6665e-07_jprb,3.4087e-07_jprb,3.5250e-07_jprb,3.3178e-07_jprb,2.0129e-07_jprb/)  
kbo( :, 5,55, 5) = (/&
 & 2.5859e-07_jprb,4.8718e-07_jprb,4.9183e-07_jprb,4.3783e-07_jprb,2.3951e-07_jprb/)  
kbo( :, 1,56, 5) = (/&
 & 1.9183e-08_jprb,7.0296e-08_jprb,9.5958e-08_jprb,1.6166e-07_jprb,1.0324e-07_jprb/)  
kbo( :, 2,56, 5) = (/&
 & 3.7690e-08_jprb,1.0873e-07_jprb,1.2816e-07_jprb,1.6606e-07_jprb,1.1573e-07_jprb/)  
kbo( :, 3,56, 5) = (/&
 & 6.9564e-08_jprb,1.6681e-07_jprb,1.8184e-07_jprb,1.9538e-07_jprb,1.3395e-07_jprb/)  
kbo( :, 4,56, 5) = (/&
 & 1.1817e-07_jprb,2.4912e-07_jprb,2.5998e-07_jprb,2.5068e-07_jprb,1.5820e-07_jprb/)  
kbo( :, 5,56, 5) = (/&
 & 1.8685e-07_jprb,3.5979e-07_jprb,3.6566e-07_jprb,3.3044e-07_jprb,1.8828e-07_jprb/)  
kbo( :, 1,57, 5) = (/&
 & 1.2749e-08_jprb,5.0514e-08_jprb,7.4147e-08_jprb,1.3511e-07_jprb,8.3045e-08_jprb/)  
kbo( :, 2,57, 5) = (/&
 & 2.5237e-08_jprb,7.7785e-08_jprb,9.5012e-08_jprb,1.3300e-07_jprb,9.1992e-08_jprb/)  
kbo( :, 3,57, 5) = (/&
 & 4.7790e-08_jprb,1.2024e-07_jprb,1.3358e-07_jprb,1.5060e-07_jprb,1.0586e-07_jprb/)  
kbo( :, 4,57, 5) = (/&
 & 8.3233e-08_jprb,1.8139e-07_jprb,1.9136e-07_jprb,1.8973e-07_jprb,1.2456e-07_jprb/)  
kbo( :, 5,57, 5) = (/&
 & 1.3430e-07_jprb,2.6480e-07_jprb,2.7113e-07_jprb,2.4926e-07_jprb,1.4817e-07_jprb/)  
kbo( :, 1,58, 5) = (/&
 & 8.6071e-09_jprb,3.6748e-08_jprb,5.8348e-08_jprb,1.1389e-07_jprb,6.7280e-08_jprb/)  
kbo( :, 2,58, 5) = (/&
 & 1.7003e-08_jprb,5.6012e-08_jprb,7.1270e-08_jprb,1.0797e-07_jprb,7.3801e-08_jprb/)  
kbo( :, 3,58, 5) = (/&
 & 3.2884e-08_jprb,8.7017e-08_jprb,9.8797e-08_jprb,1.1752e-07_jprb,8.4329e-08_jprb/)  
kbo( :, 4,58, 5) = (/&
 & 5.8722e-08_jprb,1.3250e-07_jprb,1.4147e-07_jprb,1.4468e-07_jprb,9.8923e-08_jprb/)  
kbo( :, 5,58, 5) = (/&
 & 9.6718e-08_jprb,1.9549e-07_jprb,2.0167e-07_jprb,1.8889e-07_jprb,1.1761e-07_jprb/)  
kbo( :, 1,59, 5) = (/&
 & 6.5762e-09_jprb,2.8839e-08_jprb,4.7240e-08_jprb,9.4281e-08_jprb,5.6347e-08_jprb/)  
kbo( :, 2,59, 5) = (/&
 & 1.2969e-08_jprb,4.3747e-08_jprb,5.6620e-08_jprb,8.8361e-08_jprb,6.2071e-08_jprb/)  
kbo( :, 3,59, 5) = (/&
 & 2.5275e-08_jprb,6.8112e-08_jprb,7.8014e-08_jprb,9.4814e-08_jprb,7.1293e-08_jprb/)  
kbo( :, 4,59, 5) = (/&
 & 4.5565e-08_jprb,1.0415e-07_jprb,1.1172e-07_jprb,1.1566e-07_jprb,8.4152e-08_jprb/)  
kbo( :, 5,59, 5) = (/&
 & 7.5655e-08_jprb,1.5435e-07_jprb,1.5965e-07_jprb,1.5065e-07_jprb,1.0042e-07_jprb/)  
kbo( :, 1,13, 6) = (/&
 & 1.4917e-03_jprb,1.8975e-03_jprb,1.8217e-03_jprb,1.6462e-03_jprb,1.5445e-02_jprb/)  
kbo( :, 2,13, 6) = (/&
 & 2.0332e-03_jprb,2.5878e-03_jprb,2.4581e-03_jprb,2.0975e-03_jprb,1.7016e-02_jprb/)  
kbo( :, 3,13, 6) = (/&
 & 2.7157e-03_jprb,3.4479e-03_jprb,3.2442e-03_jprb,2.6787e-03_jprb,1.8566e-02_jprb/)  
kbo( :, 4,13, 6) = (/&
 & 3.5630e-03_jprb,4.4992e-03_jprb,4.2037e-03_jprb,3.3897e-03_jprb,2.0183e-02_jprb/)  
kbo( :, 5,13, 6) = (/&
 & 4.5925e-03_jprb,5.7651e-03_jprb,5.3543e-03_jprb,4.2359e-03_jprb,2.1919e-02_jprb/)  
kbo( :, 1,14, 6) = (/&
 & 1.2829e-03_jprb,1.6450e-03_jprb,1.5791e-03_jprb,1.4049e-03_jprb,1.2669e-02_jprb/)  
kbo( :, 2,14, 6) = (/&
 & 1.7594e-03_jprb,2.2519e-03_jprb,2.1337e-03_jprb,1.8028e-03_jprb,1.3983e-02_jprb/)  
kbo( :, 3,14, 6) = (/&
 & 2.3660e-03_jprb,3.0125e-03_jprb,2.8248e-03_jprb,2.3088e-03_jprb,1.5340e-02_jprb/)  
kbo( :, 4,14, 6) = (/&
 & 3.1206e-03_jprb,3.9492e-03_jprb,3.6685e-03_jprb,2.9292e-03_jprb,1.6758e-02_jprb/)  
kbo( :, 5,14, 6) = (/&
 & 4.0424e-03_jprb,5.0714e-03_jprb,4.6797e-03_jprb,3.6711e-03_jprb,1.8318e-02_jprb/)  
kbo( :, 1,15, 6) = (/&
 & 1.1010e-03_jprb,1.4255e-03_jprb,1.3650e-03_jprb,1.2017e-03_jprb,9.7184e-03_jprb/)  
kbo( :, 2,15, 6) = (/&
 & 1.5219e-03_jprb,1.9593e-03_jprb,1.8495e-03_jprb,1.5487e-03_jprb,1.0782e-02_jprb/)  
kbo( :, 3,15, 6) = (/&
 & 2.0586e-03_jprb,2.6324e-03_jprb,2.4574e-03_jprb,1.9892e-03_jprb,1.1885e-02_jprb/)  
kbo( :, 4,15, 6) = (/&
 & 2.7279e-03_jprb,3.4587e-03_jprb,3.1990e-03_jprb,2.5317e-03_jprb,1.3076e-02_jprb/)  
kbo( :, 5,15, 6) = (/&
 & 3.5476e-03_jprb,4.4511e-03_jprb,4.0873e-03_jprb,3.1825e-03_jprb,1.4381e-02_jprb/)  
kbo( :, 1,16, 6) = (/&
 & 9.4439e-04_jprb,1.2342e-03_jprb,1.1791e-03_jprb,1.0290e-03_jprb,7.0974e-03_jprb/)  
kbo( :, 2,16, 6) = (/&
 & 1.3152e-03_jprb,1.7038e-03_jprb,1.6038e-03_jprb,1.3320e-03_jprb,7.9219e-03_jprb/)  
kbo( :, 3,16, 6) = (/&
 & 1.7873e-03_jprb,2.2957e-03_jprb,2.1360e-03_jprb,1.7165e-03_jprb,8.8130e-03_jprb/)  
kbo( :, 4,16, 6) = (/&
 & 2.3776e-03_jprb,3.0227e-03_jprb,2.7856e-03_jprb,2.1917e-03_jprb,9.7773e-03_jprb/)  
kbo( :, 5,16, 6) = (/&
 & 3.1042e-03_jprb,3.9007e-03_jprb,3.5645e-03_jprb,2.7609e-03_jprb,1.0823e-02_jprb/)  
kbo( :, 1,17, 6) = (/&
 & 8.1418e-04_jprb,1.0727e-03_jprb,1.0215e-03_jprb,8.8282e-04_jprb,5.2836e-03_jprb/)  
kbo( :, 2,17, 6) = (/&
 & 1.1389e-03_jprb,1.4851e-03_jprb,1.3936e-03_jprb,1.1467e-03_jprb,5.9459e-03_jprb/)  
kbo( :, 3,17, 6) = (/&
 & 1.5530e-03_jprb,2.0047e-03_jprb,1.8586e-03_jprb,1.4830e-03_jprb,6.6722e-03_jprb/)  
kbo( :, 4,17, 6) = (/&
 & 2.0750e-03_jprb,2.6425e-03_jprb,2.4247e-03_jprb,1.8986e-03_jprb,7.4589e-03_jprb/)  
kbo( :, 5,17, 6) = (/&
 & 2.7144e-03_jprb,3.4191e-03_jprb,3.1093e-03_jprb,2.3947e-03_jprb,8.3055e-03_jprb/)  
kbo( :, 1,18, 6) = (/&
 & 7.0743e-04_jprb,9.3753e-04_jprb,8.9000e-04_jprb,7.5959e-04_jprb,4.0718e-03_jprb/)  
kbo( :, 2,18, 6) = (/&
 & 9.9182e-04_jprb,1.3005e-03_jprb,1.2154e-03_jprb,9.9062e-04_jprb,4.6245e-03_jprb/)  
kbo( :, 3,18, 6) = (/&
 & 1.3564e-03_jprb,1.7551e-03_jprb,1.6207e-03_jprb,1.2856e-03_jprb,5.2287e-03_jprb/)  
kbo( :, 4,18, 6) = (/&
 & 1.8159e-03_jprb,2.3174e-03_jprb,2.1151e-03_jprb,1.6469e-03_jprb,5.8797e-03_jprb/)  
kbo( :, 5,18, 6) = (/&
 & 2.3773e-03_jprb,3.0052e-03_jprb,2.7189e-03_jprb,2.0800e-03_jprb,6.5746e-03_jprb/)  
kbo( :, 1,19, 6) = (/&
 & 6.1525e-04_jprb,8.1970e-04_jprb,7.7553e-04_jprb,6.5423e-04_jprb,3.2676e-03_jprb/)  
kbo( :, 2,19, 6) = (/&
 & 8.6391e-04_jprb,1.1368e-03_jprb,1.0592e-03_jprb,8.5683e-04_jprb,3.7402e-03_jprb/)  
kbo( :, 3,19, 6) = (/&
 & 1.1842e-03_jprb,1.5349e-03_jprb,1.4113e-03_jprb,1.1133e-03_jprb,4.2531e-03_jprb/)  
kbo( :, 4,19, 6) = (/&
 & 1.5850e-03_jprb,2.0314e-03_jprb,1.8453e-03_jprb,1.4271e-03_jprb,4.8022e-03_jprb/)  
kbo( :, 5,19, 6) = (/&
 & 2.0738e-03_jprb,2.6347e-03_jprb,2.3756e-03_jprb,1.8073e-03_jprb,5.3894e-03_jprb/)  
kbo( :, 1,20, 6) = (/&
 & 5.3813e-04_jprb,7.1852e-04_jprb,6.7742e-04_jprb,5.6610e-04_jprb,2.6837e-03_jprb/)  
kbo( :, 2,20, 6) = (/&
 & 7.5609e-04_jprb,9.9539e-04_jprb,9.2396e-04_jprb,7.4319e-04_jprb,3.0864e-03_jprb/)  
kbo( :, 3,20, 6) = (/&
 & 1.0360e-03_jprb,1.3460e-03_jprb,1.2317e-03_jprb,9.6600e-04_jprb,3.5220e-03_jprb/)  
kbo( :, 4,20, 6) = (/&
 & 1.3841e-03_jprb,1.7811e-03_jprb,1.6124e-03_jprb,1.2411e-03_jprb,3.9882e-03_jprb/)  
kbo( :, 5,20, 6) = (/&
 & 1.8083e-03_jprb,2.3047e-03_jprb,2.0753e-03_jprb,1.5749e-03_jprb,4.4863e-03_jprb/)  
kbo( :, 1,21, 6) = (/&
 & 4.7047e-04_jprb,6.2774e-04_jprb,5.8945e-04_jprb,4.8888e-04_jprb,2.2094e-03_jprb/)  
kbo( :, 2,21, 6) = (/&
 & 6.6102e-04_jprb,8.6924e-04_jprb,8.0377e-04_jprb,6.4244e-04_jprb,2.5494e-03_jprb/)  
kbo( :, 3,21, 6) = (/&
 & 9.0363e-04_jprb,1.1757e-03_jprb,1.0725e-03_jprb,8.3681e-04_jprb,2.9166e-03_jprb/)  
kbo( :, 4,21, 6) = (/&
 & 1.2048e-03_jprb,1.5526e-03_jprb,1.4031e-03_jprb,1.0775e-03_jprb,3.3103e-03_jprb/)  
kbo( :, 5,21, 6) = (/&
 & 1.5718e-03_jprb,2.0028e-03_jprb,1.8024e-03_jprb,1.3677e-03_jprb,3.7308e-03_jprb/)  
kbo( :, 1,22, 6) = (/&
 & 4.1907e-04_jprb,5.5771e-04_jprb,5.2119e-04_jprb,4.2792e-04_jprb,1.8003e-03_jprb/)  
kbo( :, 2,22, 6) = (/&
 & 5.8671e-04_jprb,7.7133e-04_jprb,7.0998e-04_jprb,5.6325e-04_jprb,2.0828e-03_jprb/)  
kbo( :, 3,22, 6) = (/&
 & 7.9916e-04_jprb,1.0396e-03_jprb,9.4560e-04_jprb,7.3497e-04_jprb,2.3875e-03_jprb/)  
kbo( :, 4,22, 6) = (/&
 & 1.0624e-03_jprb,1.3663e-03_jprb,1.2338e-03_jprb,9.4591e-04_jprb,2.7147e-03_jprb/)  
kbo( :, 5,22, 6) = (/&
 & 1.3828e-03_jprb,1.7569e-03_jprb,1.5791e-03_jprb,1.1986e-03_jprb,3.0625e-03_jprb/)  
kbo( :, 1,23, 6) = (/&
 & 3.7268e-04_jprb,4.9540e-04_jprb,4.6049e-04_jprb,3.7441e-04_jprb,1.4599e-03_jprb/)  
kbo( :, 2,23, 6) = (/&
 & 5.1963e-04_jprb,6.8295e-04_jprb,6.2616e-04_jprb,4.9378e-04_jprb,1.6928e-03_jprb/)  
kbo( :, 3,23, 6) = (/&
 & 7.0552e-04_jprb,9.1627e-04_jprb,8.3118e-04_jprb,6.4434e-04_jprb,1.9439e-03_jprb/)  
kbo( :, 4,23, 6) = (/&
 & 9.3566e-04_jprb,1.1987e-03_jprb,1.0808e-03_jprb,8.2747e-04_jprb,2.2129e-03_jprb/)  
kbo( :, 5,23, 6) = (/&
 & 1.2165e-03_jprb,1.5386e-03_jprb,1.3793e-03_jprb,1.0460e-03_jprb,2.4958e-03_jprb/)  
kbo( :, 1,24, 6) = (/&
 & 3.2966e-04_jprb,4.3876e-04_jprb,4.0641e-04_jprb,3.2767e-04_jprb,1.1682e-03_jprb/)  
kbo( :, 2,24, 6) = (/&
 & 4.5833e-04_jprb,6.0226e-04_jprb,5.5059e-04_jprb,4.3248e-04_jprb,1.3581e-03_jprb/)  
kbo( :, 3,24, 6) = (/&
 & 6.2099e-04_jprb,8.0461e-04_jprb,7.2851e-04_jprb,5.6351e-04_jprb,1.5621e-03_jprb/)  
kbo( :, 4,24, 6) = (/&
 & 8.2193e-04_jprb,1.0497e-03_jprb,9.4428e-04_jprb,7.2199e-04_jprb,1.7793e-03_jprb/)  
kbo( :, 5,24, 6) = (/&
 & 1.0685e-03_jprb,1.3449e-03_jprb,1.2028e-03_jprb,9.1046e-04_jprb,2.0052e-03_jprb/)  
kbo( :, 1,25, 6) = (/&
 & 2.9215e-04_jprb,3.8885e-04_jprb,3.5906e-04_jprb,2.8752e-04_jprb,9.3498e-04_jprb/)  
kbo( :, 2,25, 6) = (/&
 & 4.0498e-04_jprb,5.3121e-04_jprb,4.8436e-04_jprb,3.7925e-04_jprb,1.0888e-03_jprb/)  
kbo( :, 3,25, 6) = (/&
 & 5.4724e-04_jprb,7.0707e-04_jprb,6.3870e-04_jprb,4.9281e-04_jprb,1.2539e-03_jprb/)  
kbo( :, 4,25, 6) = (/&
 & 7.2403e-04_jprb,9.2061e-04_jprb,8.2594e-04_jprb,6.2991e-04_jprb,1.4275e-03_jprb/)  
kbo( :, 5,25, 6) = (/&
 & 9.4207e-04_jprb,1.1779e-03_jprb,1.0503e-03_jprb,7.9277e-04_jprb,1.6058e-03_jprb/)  
kbo( :, 1,26, 6) = (/&
 & 2.6060e-04_jprb,3.4625e-04_jprb,3.1865e-04_jprb,2.5360e-04_jprb,7.5595e-04_jprb/)  
kbo( :, 2,26, 6) = (/&
 & 3.5990e-04_jprb,4.7096e-04_jprb,4.2792e-04_jprb,3.3380e-04_jprb,8.8083e-04_jprb/)  
kbo( :, 3,26, 6) = (/&
 & 4.8540e-04_jprb,6.2457e-04_jprb,5.6257e-04_jprb,4.3260e-04_jprb,1.0137e-03_jprb/)  
kbo( :, 4,26, 6) = (/&
 & 6.4236e-04_jprb,8.1177e-04_jprb,7.2596e-04_jprb,5.5153e-04_jprb,1.1519e-03_jprb/)  
kbo( :, 5,26, 6) = (/&
 & 8.3673e-04_jprb,1.0378e-03_jprb,9.2177e-04_jprb,6.9311e-04_jprb,1.2938e-03_jprb/)  
kbo( :, 1,27, 6) = (/&
 & 2.3167e-04_jprb,3.0750e-04_jprb,2.8206e-04_jprb,2.2335e-04_jprb,6.0157e-04_jprb/)  
kbo( :, 2,27, 6) = (/&
 & 3.1908e-04_jprb,4.1650e-04_jprb,3.7750e-04_jprb,2.9327e-04_jprb,7.0083e-04_jprb/)  
kbo( :, 3,27, 6) = (/&
 & 4.3021e-04_jprb,5.5097e-04_jprb,4.9488e-04_jprb,3.7918e-04_jprb,8.0532e-04_jprb/)  
kbo( :, 4,27, 6) = (/&
 & 5.6999e-04_jprb,7.1551e-04_jprb,6.3770e-04_jprb,4.8255e-04_jprb,9.1424e-04_jprb/)  
kbo( :, 5,27, 6) = (/&
 & 7.4251e-04_jprb,9.1481e-04_jprb,8.0913e-04_jprb,6.0585e-04_jprb,1.0264e-03_jprb/)  
kbo( :, 1,28, 6) = (/&
 & 2.0524e-04_jprb,2.7221e-04_jprb,2.4906e-04_jprb,1.9634e-04_jprb,4.7063e-04_jprb/)  
kbo( :, 2,28, 6) = (/&
 & 2.8255e-04_jprb,3.6755e-04_jprb,3.3244e-04_jprb,2.5733e-04_jprb,5.4784e-04_jprb/)  
kbo( :, 3,28, 6) = (/&
 & 3.8119e-04_jprb,4.8546e-04_jprb,4.3507e-04_jprb,3.3192e-04_jprb,6.2929e-04_jprb/)  
kbo( :, 4,28, 6) = (/&
 & 5.0531e-04_jprb,6.3052e-04_jprb,5.6015e-04_jprb,4.2208e-04_jprb,7.1426e-04_jprb/)  
kbo( :, 5,28, 6) = (/&
 & 6.5768e-04_jprb,8.0589e-04_jprb,7.1092e-04_jprb,5.3007e-04_jprb,8.0182e-04_jprb/)  
kbo( :, 1,29, 6) = (/&
 & 1.8268e-04_jprb,2.4155e-04_jprb,2.2044e-04_jprb,1.7290e-04_jprb,3.6473e-04_jprb/)  
kbo( :, 2,29, 6) = (/&
 & 2.5147e-04_jprb,3.2531e-04_jprb,2.9347e-04_jprb,2.2618e-04_jprb,4.2431e-04_jprb/)  
kbo( :, 3,29, 6) = (/&
 & 3.3930e-04_jprb,4.2940e-04_jprb,3.8351e-04_jprb,2.9136e-04_jprb,4.8729e-04_jprb/)  
kbo( :, 4,29, 6) = (/&
 & 4.4909e-04_jprb,5.5754e-04_jprb,4.9362e-04_jprb,3.7031e-04_jprb,5.5277e-04_jprb/)  
kbo( :, 5,29, 6) = (/&
 & 5.8288e-04_jprb,7.1165e-04_jprb,6.2625e-04_jprb,4.6539e-04_jprb,6.2094e-04_jprb/)  
kbo( :, 1,30, 6) = (/&
 & 1.6275e-04_jprb,2.1427e-04_jprb,1.9492e-04_jprb,1.5221e-04_jprb,2.7882e-04_jprb/)  
kbo( :, 2,30, 6) = (/&
 & 2.2397e-04_jprb,2.8807e-04_jprb,2.5905e-04_jprb,1.9884e-04_jprb,3.2464e-04_jprb/)  
kbo( :, 3,30, 6) = (/&
 & 3.0173e-04_jprb,3.8020e-04_jprb,3.3838e-04_jprb,2.5591e-04_jprb,3.7279e-04_jprb/)  
kbo( :, 4,30, 6) = (/&
 & 3.9835e-04_jprb,4.9290e-04_jprb,4.3523e-04_jprb,3.2539e-04_jprb,4.2318e-04_jprb/)  
kbo( :, 5,30, 6) = (/&
 & 5.1512e-04_jprb,6.2814e-04_jprb,5.5236e-04_jprb,4.0928e-04_jprb,4.7644e-04_jprb/)  
kbo( :, 1,31, 6) = (/&
 & 1.4541e-04_jprb,1.9050e-04_jprb,1.7269e-04_jprb,1.3415e-04_jprb,2.0988e-04_jprb/)  
kbo( :, 2,31, 6) = (/&
 & 1.9968e-04_jprb,2.5579e-04_jprb,2.2917e-04_jprb,1.7504e-04_jprb,2.4454e-04_jprb/)  
kbo( :, 3,31, 6) = (/&
 & 2.6831e-04_jprb,3.3713e-04_jprb,2.9924e-04_jprb,2.2534e-04_jprb,2.8116e-04_jprb/)  
kbo( :, 4,31, 6) = (/&
 & 3.5296e-04_jprb,4.3603e-04_jprb,3.8460e-04_jprb,2.8657e-04_jprb,3.1971e-04_jprb/)  
kbo( :, 5,31, 6) = (/&
 & 4.5385e-04_jprb,5.5422e-04_jprb,4.8747e-04_jprb,3.6051e-04_jprb,3.6033e-04_jprb/)  
kbo( :, 1,32, 6) = (/&
 & 1.3012e-04_jprb,1.6979e-04_jprb,1.5332e-04_jprb,1.1846e-04_jprb,1.5858e-04_jprb/)  
kbo( :, 2,32, 6) = (/&
 & 1.7811e-04_jprb,2.2758e-04_jprb,2.0328e-04_jprb,1.5447e-04_jprb,1.8500e-04_jprb/)  
kbo( :, 3,32, 6) = (/&
 & 2.3846e-04_jprb,2.9920e-04_jprb,2.6508e-04_jprb,1.9890e-04_jprb,2.1289e-04_jprb/)  
kbo( :, 4,32, 6) = (/&
 & 3.1195e-04_jprb,3.8579e-04_jprb,3.4029e-04_jprb,2.5305e-04_jprb,2.4226e-04_jprb/)  
kbo( :, 5,32, 6) = (/&
 & 3.9831e-04_jprb,4.8846e-04_jprb,4.3040e-04_jprb,3.1815e-04_jprb,2.7351e-04_jprb/)  
kbo( :, 1,33, 6) = (/&
 & 1.1634e-04_jprb,1.5147e-04_jprb,1.3636e-04_jprb,1.0475e-04_jprb,1.1978e-04_jprb/)  
kbo( :, 2,33, 6) = (/&
 & 1.5863e-04_jprb,2.0248e-04_jprb,1.8050e-04_jprb,1.3665e-04_jprb,1.3973e-04_jprb/)  
kbo( :, 3,33, 6) = (/&
 & 2.1137e-04_jprb,2.6530e-04_jprb,2.3496e-04_jprb,1.7592e-04_jprb,1.6087e-04_jprb/)  
kbo( :, 4,33, 6) = (/&
 & 2.7467e-04_jprb,3.4079e-04_jprb,3.0109e-04_jprb,2.2372e-04_jprb,1.8344e-04_jprb/)  
kbo( :, 5,33, 6) = (/&
 & 3.4782e-04_jprb,4.2919e-04_jprb,3.7950e-04_jprb,2.8080e-04_jprb,2.0757e-04_jprb/)  
kbo( :, 1,34, 6) = (/&
 & 1.0312e-04_jprb,1.3408e-04_jprb,1.2041e-04_jprb,9.2110e-05_jprb,9.2903e-05_jprb/)  
kbo( :, 2,34, 6) = (/&
 & 1.4008e-04_jprb,1.7871e-04_jprb,1.5914e-04_jprb,1.2016e-04_jprb,1.0831e-04_jprb/)  
kbo( :, 3,34, 6) = (/&
 & 1.8556e-04_jprb,2.3329e-04_jprb,2.0678e-04_jprb,1.5464e-04_jprb,1.2476e-04_jprb/)  
kbo( :, 4,34, 6) = (/&
 & 2.3939e-04_jprb,2.9833e-04_jprb,2.6429e-04_jprb,1.9649e-04_jprb,1.4248e-04_jprb/)  
kbo( :, 5,34, 6) = (/&
 & 3.0117e-04_jprb,3.7373e-04_jprb,3.3162e-04_jprb,2.4605e-04_jprb,1.6152e-04_jprb/)  
kbo( :, 1,35, 6) = (/&
 & 8.8443e-05_jprb,1.1512e-04_jprb,1.0336e-04_jprb,7.8950e-05_jprb,7.0684e-05_jprb/)  
kbo( :, 2,35, 6) = (/&
 & 1.1985e-04_jprb,1.5327e-04_jprb,1.3658e-04_jprb,1.0311e-04_jprb,8.2504e-05_jprb/)  
kbo( :, 3,35, 6) = (/&
 & 1.5813e-04_jprb,1.9962e-04_jprb,1.7734e-04_jprb,1.3276e-04_jprb,9.5244e-05_jprb/)  

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


SUBROUTINE part21

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


kbo( :, 4,35, 6) = (/&
 & 2.0303e-04_jprb,2.5445e-04_jprb,2.2617e-04_jprb,1.6859e-04_jprb,1.0907e-04_jprb/)  
kbo( :, 5,35, 6) = (/&
 & 2.5457e-04_jprb,3.1764e-04_jprb,2.8275e-04_jprb,2.1067e-04_jprb,1.2401e-04_jprb/)  
kbo( :, 1,36, 6) = (/&
 & 7.3105e-05_jprb,9.5553e-05_jprb,8.5894e-05_jprb,6.5665e-05_jprb,5.2586e-05_jprb/)  
kbo( :, 2,36, 6) = (/&
 & 9.9088e-05_jprb,1.2731e-04_jprb,1.1366e-04_jprb,8.5950e-05_jprb,6.1603e-05_jprb/)  
kbo( :, 3,36, 6) = (/&
 & 1.3052e-04_jprb,1.6575e-04_jprb,1.4766e-04_jprb,1.1085e-04_jprb,7.1395e-05_jprb/)  
kbo( :, 4,36, 6) = (/&
 & 1.6737e-04_jprb,2.1100e-04_jprb,1.8817e-04_jprb,1.4082e-04_jprb,8.2060e-05_jprb/)  
kbo( :, 5,36, 6) = (/&
 & 2.0971e-04_jprb,2.6328e-04_jprb,2.3482e-04_jprb,1.7583e-04_jprb,9.3616e-05_jprb/)  
kbo( :, 1,37, 6) = (/&
 & 5.7964e-05_jprb,7.6160e-05_jprb,6.8576e-05_jprb,5.2541e-05_jprb,4.0073e-05_jprb/)  
kbo( :, 2,37, 6) = (/&
 & 7.8834e-05_jprb,1.0183e-04_jprb,9.1063e-05_jprb,6.9045e-05_jprb,4.7111e-05_jprb/)  
kbo( :, 3,37, 6) = (/&
 & 1.0412e-04_jprb,1.3294e-04_jprb,1.1864e-04_jprb,8.9322e-05_jprb,5.4770e-05_jprb/)  
kbo( :, 4,37, 6) = (/&
 & 1.3382e-04_jprb,1.6952e-04_jprb,1.5143e-04_jprb,1.1374e-04_jprb,6.3134e-05_jprb/)  
kbo( :, 5,37, 6) = (/&
 & 1.6808e-04_jprb,2.1196e-04_jprb,1.8928e-04_jprb,1.4220e-04_jprb,7.2225e-05_jprb/)  
kbo( :, 1,38, 6) = (/&
 & 4.5775e-05_jprb,6.0479e-05_jprb,5.4555e-05_jprb,4.1902e-05_jprb,3.0397e-05_jprb/)  
kbo( :, 2,38, 6) = (/&
 & 6.2496e-05_jprb,8.1164e-05_jprb,7.2708e-05_jprb,5.5274e-05_jprb,3.5878e-05_jprb/)  
kbo( :, 3,38, 6) = (/&
 & 8.2782e-05_jprb,1.0626e-04_jprb,9.5002e-05_jprb,7.1740e-05_jprb,4.1841e-05_jprb/)  
kbo( :, 4,38, 6) = (/&
 & 1.0670e-04_jprb,1.3583e-04_jprb,1.2149e-04_jprb,9.1558e-05_jprb,4.8377e-05_jprb/)  
kbo( :, 5,38, 6) = (/&
 & 1.3438e-04_jprb,1.7021e-04_jprb,1.5213e-04_jprb,1.1463e-04_jprb,5.5512e-05_jprb/)  
kbo( :, 1,39, 6) = (/&
 & 3.6095e-05_jprb,4.7960e-05_jprb,4.3340e-05_jprb,3.3379e-05_jprb,2.2882e-05_jprb/)  
kbo( :, 2,39, 6) = (/&
 & 4.9468e-05_jprb,6.4614e-05_jprb,5.7979e-05_jprb,4.4199e-05_jprb,2.7110e-05_jprb/)  
kbo( :, 3,39, 6) = (/&
 & 6.5728e-05_jprb,8.4830e-05_jprb,7.5966e-05_jprb,5.7541e-05_jprb,3.1729e-05_jprb/)  
kbo( :, 4,39, 6) = (/&
 & 8.4989e-05_jprb,1.0871e-04_jprb,9.7338e-05_jprb,7.3595e-05_jprb,3.6816e-05_jprb/)  
kbo( :, 5,39, 6) = (/&
 & 1.0733e-04_jprb,1.3655e-04_jprb,1.2216e-04_jprb,9.2289e-05_jprb,4.2380e-05_jprb/)  
kbo( :, 1,40, 6) = (/&
 & 2.7548e-05_jprb,3.6866e-05_jprb,3.3398e-05_jprb,2.5816e-05_jprb,1.7406e-05_jprb/)  
kbo( :, 2,40, 6) = (/&
 & 3.8017e-05_jprb,4.9978e-05_jprb,4.4939e-05_jprb,3.4363e-05_jprb,2.0717e-05_jprb/)  
kbo( :, 3,40, 6) = (/&
 & 5.0843e-05_jprb,6.5998e-05_jprb,5.9173e-05_jprb,4.4960e-05_jprb,2.4340e-05_jprb/)  
kbo( :, 4,40, 6) = (/&
 & 6.6103e-05_jprb,8.4982e-05_jprb,7.6165e-05_jprb,5.7734e-05_jprb,2.8334e-05_jprb/)  
kbo( :, 5,40, 6) = (/&
 & 8.3889e-05_jprb,1.0718e-04_jprb,9.5971e-05_jprb,7.2651e-05_jprb,3.2716e-05_jprb/)  
kbo( :, 1,41, 6) = (/&
 & 2.0891e-05_jprb,2.8160e-05_jprb,2.5581e-05_jprb,1.9853e-05_jprb,1.3219e-05_jprb/)  
kbo( :, 2,41, 6) = (/&
 & 2.9056e-05_jprb,3.8448e-05_jprb,3.4643e-05_jprb,2.6578e-05_jprb,1.5803e-05_jprb/)  
kbo( :, 3,41, 6) = (/&
 & 3.9119e-05_jprb,5.1086e-05_jprb,4.5870e-05_jprb,3.4949e-05_jprb,1.8643e-05_jprb/)  
kbo( :, 4,41, 6) = (/&
 & 5.1167e-05_jprb,6.6144e-05_jprb,5.9321e-05_jprb,4.5078e-05_jprb,2.1781e-05_jprb/)  
kbo( :, 5,41, 6) = (/&
 & 6.5313e-05_jprb,8.3807e-05_jprb,7.5100e-05_jprb,5.6965e-05_jprb,2.5228e-05_jprb/)  
kbo( :, 1,42, 6) = (/&
 & 1.5797e-05_jprb,2.1452e-05_jprb,1.9541e-05_jprb,1.5234e-05_jprb,9.9864e-06_jprb/)  
kbo( :, 2,42, 6) = (/&
 & 2.2148e-05_jprb,2.9506e-05_jprb,2.6644e-05_jprb,2.0507e-05_jprb,1.1995e-05_jprb/)  
kbo( :, 3,42, 6) = (/&
 & 3.0028e-05_jprb,3.9456e-05_jprb,3.5478e-05_jprb,2.7113e-05_jprb,1.4215e-05_jprb/)  
kbo( :, 4,42, 6) = (/&
 & 3.9526e-05_jprb,5.1380e-05_jprb,4.6122e-05_jprb,3.5139e-05_jprb,1.6670e-05_jprb/)  
kbo( :, 5,42, 6) = (/&
 & 5.0747e-05_jprb,6.5409e-05_jprb,5.8661e-05_jprb,4.4588e-05_jprb,1.9369e-05_jprb/)  
kbo( :, 1,43, 6) = (/&
 & 1.1685e-05_jprb,1.6001e-05_jprb,1.4628e-05_jprb,1.1471e-05_jprb,7.4936e-06_jprb/)  
kbo( :, 2,43, 6) = (/&
 & 1.6548e-05_jprb,2.2213e-05_jprb,2.0113e-05_jprb,1.5537e-05_jprb,9.0536e-06_jprb/)  
kbo( :, 3,43, 6) = (/&
 & 2.2638e-05_jprb,2.9954e-05_jprb,2.6979e-05_jprb,2.0685e-05_jprb,1.0779e-05_jprb/)  
kbo( :, 4,43, 6) = (/&
 & 3.0048e-05_jprb,3.9293e-05_jprb,3.5311e-05_jprb,2.6968e-05_jprb,1.2697e-05_jprb/)  
kbo( :, 5,43, 6) = (/&
 & 3.8860e-05_jprb,5.0338e-05_jprb,4.5183e-05_jprb,3.4410e-05_jprb,1.4806e-05_jprb/)  
kbo( :, 1,44, 6) = (/&
 & 8.5348e-06_jprb,1.1792e-05_jprb,1.0825e-05_jprb,8.5515e-06_jprb,5.5871e-06_jprb/)  
kbo( :, 2,44, 6) = (/&
 & 1.2224e-05_jprb,1.6542e-05_jprb,1.5023e-05_jprb,1.1659e-05_jprb,6.7947e-06_jprb/)  
kbo( :, 3,44, 6) = (/&
 & 1.6899e-05_jprb,2.2521e-05_jprb,2.0321e-05_jprb,1.5633e-05_jprb,8.1320e-06_jprb/)  
kbo( :, 4,44, 6) = (/&
 & 2.2637e-05_jprb,2.9783e-05_jprb,2.6801e-05_jprb,2.0525e-05_jprb,9.6227e-06_jprb/)  
kbo( :, 5,44, 6) = (/&
 & 2.9511e-05_jprb,3.8437e-05_jprb,3.4531e-05_jprb,2.6356e-05_jprb,1.1265e-05_jprb/)  
kbo( :, 1,45, 6) = (/&
 & 6.2053e-06_jprb,8.6498e-06_jprb,7.9828e-06_jprb,6.3587e-06_jprb,4.1355e-06_jprb/)  
kbo( :, 2,45, 6) = (/&
 & 8.9924e-06_jprb,1.2274e-05_jprb,1.1184e-05_jprb,8.7228e-06_jprb,5.0646e-06_jprb/)  
kbo( :, 3,45, 6) = (/&
 & 1.2577e-05_jprb,1.6878e-05_jprb,1.5263e-05_jprb,1.1781e-05_jprb,6.0980e-06_jprb/)  
kbo( :, 4,45, 6) = (/&
 & 1.7004e-05_jprb,2.2510e-05_jprb,2.0287e-05_jprb,1.5579e-05_jprb,7.2495e-06_jprb/)  
kbo( :, 5,45, 6) = (/&
 & 2.2345e-05_jprb,2.9273e-05_jprb,2.6327e-05_jprb,2.0139e-05_jprb,8.5241e-06_jprb/)  
kbo( :, 1,46, 6) = (/&
 & 4.4535e-06_jprb,6.2663e-06_jprb,5.8215e-06_jprb,4.6847e-06_jprb,3.0403e-06_jprb/)  
kbo( :, 2,46, 6) = (/&
 & 6.5386e-06_jprb,9.0087e-06_jprb,8.2383e-06_jprb,6.4650e-06_jprb,3.7495e-06_jprb/)  
kbo( :, 3,46, 6) = (/&
 & 9.2626e-06_jprb,1.2523e-05_jprb,1.1353e-05_jprb,8.7958e-06_jprb,4.5455e-06_jprb/)  
kbo( :, 4,46, 6) = (/&
 & 1.2652e-05_jprb,1.6866e-05_jprb,1.5224e-05_jprb,1.1726e-05_jprb,5.4324e-06_jprb/)  
kbo( :, 5,46, 6) = (/&
 & 1.6782e-05_jprb,2.2115e-05_jprb,1.9910e-05_jprb,1.5271e-05_jprb,6.4154e-06_jprb/)  
kbo( :, 1,47, 6) = (/&
 & 3.1255e-06_jprb,4.4445e-06_jprb,4.1625e-06_jprb,3.3973e-06_jprb,2.2248e-06_jprb/)  
kbo( :, 2,47, 6) = (/&
 & 4.6607e-06_jprb,6.4871e-06_jprb,5.9609e-06_jprb,4.7149e-06_jprb,2.7633e-06_jprb/)  
kbo( :, 3,47, 6) = (/&
 & 6.6996e-06_jprb,9.1349e-06_jprb,8.3072e-06_jprb,6.4651e-06_jprb,3.3751e-06_jprb/)  
kbo( :, 4,47, 6) = (/&
 & 9.2705e-06_jprb,1.2449e-05_jprb,1.1256e-05_jprb,8.6999e-06_jprb,4.0582e-06_jprb/)  
kbo( :, 5,47, 6) = (/&
 & 1.2429e-05_jprb,1.6480e-05_jprb,1.4854e-05_jprb,1.1428e-05_jprb,4.8166e-06_jprb/)  
kbo( :, 1,48, 6) = (/&
 & 2.1776e-06_jprb,3.1287e-06_jprb,2.9593e-06_jprb,2.4588e-06_jprb,1.6162e-06_jprb/)  
kbo( :, 2,48, 6) = (/&
 & 3.3004e-06_jprb,4.6424e-06_jprb,4.2915e-06_jprb,3.4279e-06_jprb,2.0216e-06_jprb/)  
kbo( :, 3,48, 6) = (/&
 & 4.8178e-06_jprb,6.6317e-06_jprb,6.0512e-06_jprb,4.7347e-06_jprb,2.4869e-06_jprb/)  
kbo( :, 4,48, 6) = (/&
 & 6.7632e-06_jprb,9.1507e-06_jprb,8.2914e-06_jprb,6.4284e-06_jprb,3.0099e-06_jprb/)  
kbo( :, 5,48, 6) = (/&
 & 9.1697e-06_jprb,1.2234e-05_jprb,1.1042e-05_jprb,8.5224e-06_jprb,3.5919e-06_jprb/)  
kbo( :, 1,49, 6) = (/&
 & 1.5053e-06_jprb,2.1858e-06_jprb,2.0909e-06_jprb,1.7774e-06_jprb,1.1638e-06_jprb/)  
kbo( :, 2,49, 6) = (/&
 & 2.3208e-06_jprb,3.3001e-06_jprb,3.0741e-06_jprb,2.4849e-06_jprb,1.4655e-06_jprb/)  
kbo( :, 3,49, 6) = (/&
 & 3.4426e-06_jprb,4.7874e-06_jprb,4.3858e-06_jprb,3.4542e-06_jprb,1.8145e-06_jprb/)  
kbo( :, 4,49, 6) = (/&
 & 4.9073e-06_jprb,6.6937e-06_jprb,6.0798e-06_jprb,4.7299e-06_jprb,2.2116e-06_jprb/)  
kbo( :, 5,49, 6) = (/&
 & 6.7349e-06_jprb,9.0453e-06_jprb,8.1769e-06_jprb,6.3309e-06_jprb,2.6545e-06_jprb/)  
kbo( :, 1,50, 6) = (/&
 & 1.0462e-06_jprb,1.5340e-06_jprb,1.4848e-06_jprb,1.2964e-06_jprb,8.5273e-07_jprb/)  
kbo( :, 2,50, 6) = (/&
 & 1.6402e-06_jprb,2.3557e-06_jprb,2.2124e-06_jprb,1.8137e-06_jprb,1.0799e-06_jprb/)  
kbo( :, 3,50, 6) = (/&
 & 2.4709e-06_jprb,3.4712e-06_jprb,3.1941e-06_jprb,2.5342e-06_jprb,1.3448e-06_jprb/)  
kbo( :, 4,50, 6) = (/&
 & 3.5758e-06_jprb,4.9168e-06_jprb,4.4776e-06_jprb,3.4964e-06_jprb,1.6496e-06_jprb/)  
kbo( :, 5,50, 6) = (/&
 & 4.9702e-06_jprb,6.7202e-06_jprb,6.0835e-06_jprb,4.7222e-06_jprb,1.9912e-06_jprb/)  
kbo( :, 1,51, 6) = (/&
 & 7.2663e-07_jprb,1.0750e-06_jprb,1.0542e-06_jprb,9.5059e-07_jprb,6.2987e-07_jprb/)  
kbo( :, 2,51, 6) = (/&
 & 1.1582e-06_jprb,1.6789e-06_jprb,1.5910e-06_jprb,1.3276e-06_jprb,8.0106e-07_jprb/)  
kbo( :, 3,51, 6) = (/&
 & 1.7719e-06_jprb,2.5144e-06_jprb,2.3267e-06_jprb,1.8622e-06_jprb,1.0033e-06_jprb/)  
kbo( :, 4,51, 6) = (/&
 & 2.6046e-06_jprb,3.6115e-06_jprb,3.2983e-06_jprb,2.5872e-06_jprb,1.2381e-06_jprb/)  
kbo( :, 5,51, 6) = (/&
 & 3.6697e-06_jprb,4.9945e-06_jprb,4.5288e-06_jprb,3.5236e-06_jprb,1.5031e-06_jprb/)  
kbo( :, 1,52, 6) = (/&
 & 5.0128e-07_jprb,7.4829e-07_jprb,7.4503e-07_jprb,6.9902e-07_jprb,4.6417e-07_jprb/)  
kbo( :, 2,52, 6) = (/&
 & 8.1290e-07_jprb,1.1889e-06_jprb,1.1383e-06_jprb,9.7075e-07_jprb,5.9124e-07_jprb/)  
kbo( :, 3,52, 6) = (/&
 & 1.2637e-06_jprb,1.8111e-06_jprb,1.6874e-06_jprb,1.3654e-06_jprb,7.4485e-07_jprb/)  
kbo( :, 4,52, 6) = (/&
 & 1.8870e-06_jprb,2.6414e-06_jprb,2.4208e-06_jprb,1.9088e-06_jprb,9.2398e-07_jprb/)  
kbo( :, 5,52, 6) = (/&
 & 2.6982e-06_jprb,3.6981e-06_jprb,3.3605e-06_jprb,2.6209e-06_jprb,1.1284e-06_jprb/)  
kbo( :, 1,53, 6) = (/&
 & 3.4316e-07_jprb,5.1730e-07_jprb,5.2428e-07_jprb,5.1650e-07_jprb,3.4163e-07_jprb/)  
kbo( :, 2,53, 6) = (/&
 & 5.6636e-07_jprb,8.3600e-07_jprb,8.0988e-07_jprb,7.0959e-07_jprb,4.3402e-07_jprb/)  
kbo( :, 3,53, 6) = (/&
 & 8.9539e-07_jprb,1.2957e-06_jprb,1.2170e-06_jprb,9.9881e-07_jprb,5.4917e-07_jprb/)  
kbo( :, 4,53, 6) = (/&
 & 1.3585e-06_jprb,1.9213e-06_jprb,1.7681e-06_jprb,1.4039e-06_jprb,6.8487e-07_jprb/)  
kbo( :, 5,53, 6) = (/&
 & 1.9728e-06_jprb,2.7267e-06_jprb,2.4840e-06_jprb,1.9431e-06_jprb,8.4127e-07_jprb/)  
kbo( :, 1,54, 6) = (/&
 & 2.3729e-07_jprb,3.6141e-07_jprb,3.7346e-07_jprb,3.8814e-07_jprb,2.5965e-07_jprb/)  
kbo( :, 2,54, 6) = (/&
 & 3.9847e-07_jprb,5.9281e-07_jprb,5.8145e-07_jprb,5.2497e-07_jprb,3.2865e-07_jprb/)  
kbo( :, 3,54, 6) = (/&
 & 6.4012e-07_jprb,9.3418e-07_jprb,8.8451e-07_jprb,7.3760e-07_jprb,4.1726e-07_jprb/)  
kbo( :, 4,54, 6) = (/&
 & 9.8548e-07_jprb,1.4072e-06_jprb,1.3009e-06_jprb,1.0414e-06_jprb,5.2304e-07_jprb/)  
kbo( :, 5,54, 6) = (/&
 & 1.4524e-06_jprb,2.0243e-06_jprb,1.8490e-06_jprb,1.4514e-06_jprb,6.4582e-07_jprb/)  
kbo( :, 1,55, 6) = (/&
 & 1.6422e-07_jprb,2.5313e-07_jprb,2.6741e-07_jprb,2.9555e-07_jprb,2.0083e-07_jprb/)  
kbo( :, 2,55, 6) = (/&
 & 2.8085e-07_jprb,4.2089e-07_jprb,4.1847e-07_jprb,3.9112e-07_jprb,2.5331e-07_jprb/)  
kbo( :, 3,55, 6) = (/&
 & 4.5840e-07_jprb,6.7405e-07_jprb,6.4380e-07_jprb,5.4696e-07_jprb,3.2245e-07_jprb/)  
kbo( :, 4,55, 6) = (/&
 & 7.1591e-07_jprb,1.0314e-06_jprb,9.5879e-07_jprb,7.7462e-07_jprb,4.0636e-07_jprb/)  
kbo( :, 5,55, 6) = (/&
 & 1.0707e-06_jprb,1.5050e-06_jprb,1.3785e-06_jprb,1.0868e-06_jprb,5.0407e-07_jprb/)  
kbo( :, 1,56, 6) = (/&
 & 1.1297e-07_jprb,1.7654e-07_jprb,1.9160e-07_jprb,2.2785e-07_jprb,1.5600e-07_jprb/)  
kbo( :, 2,56, 6) = (/&
 & 1.9687e-07_jprb,2.9736e-07_jprb,3.0024e-07_jprb,2.9250e-07_jprb,1.9557e-07_jprb/)  
kbo( :, 3,56, 6) = (/&
 & 3.2655e-07_jprb,4.8379e-07_jprb,4.6673e-07_jprb,4.0545e-07_jprb,2.4926e-07_jprb/)  
kbo( :, 4,56, 6) = (/&
 & 5.1776e-07_jprb,7.5239e-07_jprb,7.0397e-07_jprb,5.7515e-07_jprb,3.1570e-07_jprb/)  
kbo( :, 5,56, 6) = (/&
 & 7.8583e-07_jprb,1.1146e-06_jprb,1.0242e-06_jprb,8.1180e-07_jprb,3.9355e-07_jprb/)  
kbo( :, 1,57, 6) = (/&
 & 7.7200e-08_jprb,1.2264e-07_jprb,1.3766e-07_jprb,1.7856e-07_jprb,1.2187e-07_jprb/)  
kbo( :, 2,57, 6) = (/&
 & 1.3715e-07_jprb,2.0905e-07_jprb,2.1488e-07_jprb,2.1998e-07_jprb,1.5127e-07_jprb/)  
kbo( :, 3,57, 6) = (/&
 & 2.3136e-07_jprb,3.4526e-07_jprb,3.3687e-07_jprb,3.0067e-07_jprb,1.9276e-07_jprb/)  
kbo( :, 4,57, 6) = (/&
 & 3.7265e-07_jprb,5.4598e-07_jprb,5.1453e-07_jprb,4.2632e-07_jprb,2.4529e-07_jprb/)  
kbo( :, 5,57, 6) = (/&
 & 5.7396e-07_jprb,8.2172e-07_jprb,7.5794e-07_jprb,6.0477e-07_jprb,3.0747e-07_jprb/)  
kbo( :, 1,58, 6) = (/&
 & 5.2955e-08_jprb,8.5764e-08_jprb,1.0017e-07_jprb,1.4310e-07_jprb,9.6433e-08_jprb/)  
kbo( :, 2,58, 6) = (/&
 & 9.5831e-08_jprb,1.4757e-07_jprb,1.5479e-07_jprb,1.6745e-07_jprb,1.1819e-07_jprb/)  
kbo( :, 3,58, 6) = (/&
 & 1.6444e-07_jprb,2.4707e-07_jprb,2.4397e-07_jprb,2.2463e-07_jprb,1.5059e-07_jprb/)  
kbo( :, 4,58, 6) = (/&
 & 2.6896e-07_jprb,3.9698e-07_jprb,3.7706e-07_jprb,3.1744e-07_jprb,1.9236e-07_jprb/)  
kbo( :, 5,58, 6) = (/&
 & 4.2027e-07_jprb,6.0686e-07_jprb,5.6217e-07_jprb,4.5216e-07_jprb,2.4243e-07_jprb/)  
kbo( :, 1,59, 6) = (/&
 & 4.0613e-08_jprb,6.6330e-08_jprb,7.8756e-08_jprb,1.1682e-07_jprb,8.0763e-08_jprb/)  
kbo( :, 2,59, 6) = (/&
 & 7.4110e-08_jprb,1.1464e-07_jprb,1.2119e-07_jprb,1.3394e-07_jprb,1.0024e-07_jprb/)  
kbo( :, 3,59, 6) = (/&
 & 1.2825e-07_jprb,1.9327e-07_jprb,1.9161e-07_jprb,1.7847e-07_jprb,1.2887e-07_jprb/)  
kbo( :, 4,59, 6) = (/&
 & 2.1125e-07_jprb,3.1279e-07_jprb,2.9779e-07_jprb,2.5217e-07_jprb,1.6539e-07_jprb/)  
kbo( :, 5,59, 6) = (/&
 & 3.3221e-07_jprb,4.8128e-07_jprb,4.4648e-07_jprb,3.6014e-07_jprb,2.0916e-07_jprb/)  
kbo( :, 1,13, 7) = (/&
 & 4.0082e-03_jprb,4.7471e-03_jprb,4.2106e-03_jprb,3.3097e-03_jprb,2.9797e-02_jprb/)  
kbo( :, 2,13, 7) = (/&
 & 5.4956e-03_jprb,6.4503e-03_jprb,5.6741e-03_jprb,4.3606e-03_jprb,3.3076e-02_jprb/)  
kbo( :, 3,13, 7) = (/&
 & 7.3201e-03_jprb,8.5434e-03_jprb,7.4724e-03_jprb,5.6899e-03_jprb,3.6718e-02_jprb/)  
kbo( :, 4,13, 7) = (/&
 & 9.4768e-03_jprb,1.1006e-02_jprb,9.6490e-03_jprb,7.3607e-03_jprb,4.0562e-02_jprb/)  
kbo( :, 5,13, 7) = (/&
 & 1.2016e-02_jprb,1.3883e-02_jprb,1.2248e-02_jprb,9.4126e-03_jprb,4.4607e-02_jprb/)  
kbo( :, 1,14, 7) = (/&
 & 3.5182e-03_jprb,4.1440e-03_jprb,3.6712e-03_jprb,2.8865e-03_jprb,2.5106e-02_jprb/)  
kbo( :, 2,14, 7) = (/&
 & 4.8368e-03_jprb,5.6585e-03_jprb,4.9763e-03_jprb,3.8241e-03_jprb,2.8178e-02_jprb/)  
kbo( :, 3,14, 7) = (/&
 & 6.4391e-03_jprb,7.4926e-03_jprb,6.5797e-03_jprb,5.0127e-03_jprb,3.1499e-02_jprb/)  
kbo( :, 4,14, 7) = (/&
 & 8.3556e-03_jprb,9.6590e-03_jprb,8.4959e-03_jprb,6.4956e-03_jprb,3.4983e-02_jprb/)  
kbo( :, 5,14, 7) = (/&
 & 1.0636e-02_jprb,1.2197e-02_jprb,1.0778e-02_jprb,8.2927e-03_jprb,3.8677e-02_jprb/)  
kbo( :, 1,15, 7) = (/&
 & 3.0808e-03_jprb,3.6180e-03_jprb,3.2024e-03_jprb,2.5077e-03_jprb,2.0133e-02_jprb/)  
kbo( :, 2,15, 7) = (/&
 & 4.2342e-03_jprb,4.9408e-03_jprb,4.3573e-03_jprb,3.3447e-03_jprb,2.2811e-02_jprb/)  
kbo( :, 3,15, 7) = (/&
 & 5.6484e-03_jprb,6.5425e-03_jprb,5.7598e-03_jprb,4.4050e-03_jprb,2.5648e-02_jprb/)  
kbo( :, 4,15, 7) = (/&
 & 7.3569e-03_jprb,8.4459e-03_jprb,7.4478e-03_jprb,5.6997e-03_jprb,2.8633e-02_jprb/)  
kbo( :, 5,15, 7) = (/&
 & 9.4079e-03_jprb,1.0695e-02_jprb,9.4525e-03_jprb,7.2671e-03_jprb,3.1750e-02_jprb/)  
kbo( :, 1,16, 7) = (/&
 & 2.6937e-03_jprb,3.1581e-03_jprb,2.7980e-03_jprb,2.1775e-03_jprb,1.5394e-02_jprb/)  
kbo( :, 2,16, 7) = (/&
 & 3.7085e-03_jprb,4.3109e-03_jprb,3.8048e-03_jprb,2.9219e-03_jprb,1.7507e-02_jprb/)  
kbo( :, 3,16, 7) = (/&
 & 4.9609e-03_jprb,5.7164e-03_jprb,5.0355e-03_jprb,3.8483e-03_jprb,1.9730e-02_jprb/)  
kbo( :, 4,16, 7) = (/&
 & 6.4895e-03_jprb,7.4002e-03_jprb,6.5219e-03_jprb,4.9806e-03_jprb,2.2084e-02_jprb/)  
kbo( :, 5,16, 7) = (/&
 & 8.3163e-03_jprb,9.4051e-03_jprb,8.2914e-03_jprb,6.3525e-03_jprb,2.4551e-02_jprb/)  
kbo( :, 1,17, 7) = (/&
 & 2.3642e-03_jprb,2.7668e-03_jprb,2.4489e-03_jprb,1.8988e-03_jprb,1.1868e-02_jprb/)  
kbo( :, 2,17, 7) = (/&
 & 3.2598e-03_jprb,3.7811e-03_jprb,3.3290e-03_jprb,2.5510e-03_jprb,1.3559e-02_jprb/)  
kbo( :, 3,17, 7) = (/&
 & 4.3747e-03_jprb,5.0202e-03_jprb,4.4155e-03_jprb,3.3613e-03_jprb,1.5340e-02_jprb/)  

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


SUBROUTINE part22

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


kbo( :, 4,17, 7) = (/&
 & 5.7340e-03_jprb,6.5189e-03_jprb,5.7286e-03_jprb,4.3538e-03_jprb,1.7220e-02_jprb/)  
kbo( :, 5,17, 7) = (/&
 & 7.3600e-03_jprb,8.2990e-03_jprb,7.2992e-03_jprb,5.5548e-03_jprb,1.9205e-02_jprb/)  
kbo( :, 1,18, 7) = (/&
 & 2.0898e-03_jprb,2.4405e-03_jprb,2.1542e-03_jprb,1.6626e-03_jprb,9.4417e-03_jprb/)  
kbo( :, 2,18, 7) = (/&
 & 2.8863e-03_jprb,3.3353e-03_jprb,2.9318e-03_jprb,2.2352e-03_jprb,1.0813e-02_jprb/)  
kbo( :, 3,18, 7) = (/&
 & 3.8771e-03_jprb,4.4358e-03_jprb,3.8935e-03_jprb,2.9472e-03_jprb,1.2260e-02_jprb/)  
kbo( :, 4,18, 7) = (/&
 & 5.0839e-03_jprb,5.7663e-03_jprb,5.0610e-03_jprb,3.8229e-03_jprb,1.3797e-02_jprb/)  
kbo( :, 5,18, 7) = (/&
 & 6.5362e-03_jprb,7.3472e-03_jprb,6.4549e-03_jprb,4.8781e-03_jprb,1.5427e-02_jprb/)  
kbo( :, 1,19, 7) = (/&
 & 1.8517e-03_jprb,2.1548e-03_jprb,1.8965e-03_jprb,1.4580e-03_jprb,7.7773e-03_jprb/)  
kbo( :, 2,19, 7) = (/&
 & 2.5576e-03_jprb,2.9471e-03_jprb,2.5846e-03_jprb,1.9612e-03_jprb,8.9176e-03_jprb/)  
kbo( :, 3,19, 7) = (/&
 & 3.4345e-03_jprb,3.9244e-03_jprb,3.4362e-03_jprb,2.5906e-03_jprb,1.0132e-02_jprb/)  
kbo( :, 4,19, 7) = (/&
 & 4.5064e-03_jprb,5.0994e-03_jprb,4.4700e-03_jprb,3.3642e-03_jprb,1.1431e-02_jprb/)  
kbo( :, 5,19, 7) = (/&
 & 5.8097e-03_jprb,6.5083e-03_jprb,5.7046e-03_jprb,4.2905e-03_jprb,1.2808e-02_jprb/)  
kbo( :, 1,20, 7) = (/&
 & 1.6458e-03_jprb,1.9103e-03_jprb,1.6781e-03_jprb,1.2831e-03_jprb,6.5141e-03_jprb/)  
kbo( :, 2,20, 7) = (/&
 & 2.2698e-03_jprb,2.6130e-03_jprb,2.2877e-03_jprb,1.7278e-03_jprb,7.4849e-03_jprb/)  
kbo( :, 3,20, 7) = (/&
 & 3.0464e-03_jprb,3.4772e-03_jprb,3.0427e-03_jprb,2.2845e-03_jprb,8.5198e-03_jprb/)  
kbo( :, 4,20, 7) = (/&
 & 4.0053e-03_jprb,4.5205e-03_jprb,3.9563e-03_jprb,2.9671e-03_jprb,9.6230e-03_jprb/)  
kbo( :, 5,20, 7) = (/&
 & 5.1704e-03_jprb,5.7875e-03_jprb,5.0542e-03_jprb,3.7806e-03_jprb,1.0800e-02_jprb/)  
kbo( :, 1,21, 7) = (/&
 & 1.4548e-03_jprb,1.6903e-03_jprb,1.4830e-03_jprb,1.1276e-03_jprb,5.4461e-03_jprb/)  
kbo( :, 2,21, 7) = (/&
 & 2.0031e-03_jprb,2.3102e-03_jprb,2.0214e-03_jprb,1.5202e-03_jprb,6.2763e-03_jprb/)  
kbo( :, 3,21, 7) = (/&
 & 2.6919e-03_jprb,3.0723e-03_jprb,2.6854e-03_jprb,2.0114e-03_jprb,7.1636e-03_jprb/)  
kbo( :, 4,21, 7) = (/&
 & 3.5436e-03_jprb,4.0040e-03_jprb,3.4935e-03_jprb,2.6088e-03_jprb,8.1098e-03_jprb/)  
kbo( :, 5,21, 7) = (/&
 & 4.5742e-03_jprb,5.1416e-03_jprb,4.4723e-03_jprb,3.3261e-03_jprb,9.1112e-03_jprb/)  
kbo( :, 1,22, 7) = (/&
 & 1.3025e-03_jprb,1.5176e-03_jprb,1.3319e-03_jprb,1.0078e-03_jprb,4.4970e-03_jprb/)  
kbo( :, 2,22, 7) = (/&
 & 1.7911e-03_jprb,2.0676e-03_jprb,1.8104e-03_jprb,1.3583e-03_jprb,5.1953e-03_jprb/)  
kbo( :, 3,22, 7) = (/&
 & 2.4070e-03_jprb,2.7511e-03_jprb,2.4021e-03_jprb,1.7933e-03_jprb,5.9455e-03_jprb/)  
kbo( :, 4,22, 7) = (/&
 & 3.1635e-03_jprb,3.5916e-03_jprb,3.1285e-03_jprb,2.3228e-03_jprb,6.7435e-03_jprb/)  
kbo( :, 5,22, 7) = (/&
 & 4.0745e-03_jprb,4.6107e-03_jprb,4.0048e-03_jprb,2.9650e-03_jprb,7.5904e-03_jprb/)  
kbo( :, 1,23, 7) = (/&
 & 1.1628e-03_jprb,1.3564e-03_jprb,1.1911e-03_jprb,9.0035e-04_jprb,3.6865e-03_jprb/)  
kbo( :, 2,23, 7) = (/&
 & 1.5981e-03_jprb,1.8458e-03_jprb,1.6157e-03_jprb,1.2111e-03_jprb,4.2718e-03_jprb/)  
kbo( :, 3,23, 7) = (/&
 & 2.1434e-03_jprb,2.4578e-03_jprb,2.1451e-03_jprb,1.5961e-03_jprb,4.9004e-03_jprb/)  
kbo( :, 4,23, 7) = (/&
 & 2.8070e-03_jprb,3.2089e-03_jprb,2.7931e-03_jprb,2.0693e-03_jprb,5.5690e-03_jprb/)  
kbo( :, 5,23, 7) = (/&
 & 3.6060e-03_jprb,4.1114e-03_jprb,3.5718e-03_jprb,2.6408e-03_jprb,6.2767e-03_jprb/)  
kbo( :, 1,24, 7) = (/&
 & 1.0349e-03_jprb,1.2079e-03_jprb,1.0608e-03_jprb,8.0145e-04_jprb,2.9772e-03_jprb/)  
kbo( :, 2,24, 7) = (/&
 & 1.4200e-03_jprb,1.6442e-03_jprb,1.4384e-03_jprb,1.0762e-03_jprb,3.4619e-03_jprb/)  
kbo( :, 3,24, 7) = (/&
 & 1.8974e-03_jprb,2.1881e-03_jprb,1.9089e-03_jprb,1.4192e-03_jprb,3.9815e-03_jprb/)  
kbo( :, 4,24, 7) = (/&
 & 2.4779e-03_jprb,2.8499e-03_jprb,2.4818e-03_jprb,1.8400e-03_jprb,4.5322e-03_jprb/)  
kbo( :, 5,24, 7) = (/&
 & 3.1754e-03_jprb,3.6385e-03_jprb,3.1666e-03_jprb,2.3457e-03_jprb,5.1151e-03_jprb/)  
kbo( :, 1,25, 7) = (/&
 & 9.2232e-04_jprb,1.0772e-03_jprb,9.4524e-04_jprb,7.1253e-04_jprb,2.4032e-03_jprb/)  
kbo( :, 2,25, 7) = (/&
 & 1.2605e-03_jprb,1.4648e-03_jprb,1.2810e-03_jprb,9.5673e-04_jprb,2.8023e-03_jprb/)  
kbo( :, 3,25, 7) = (/&
 & 1.6782e-03_jprb,1.9434e-03_jprb,1.6961e-03_jprb,1.2611e-03_jprb,3.2283e-03_jprb/)  
kbo( :, 4,25, 7) = (/&
 & 2.1858e-03_jprb,2.5220e-03_jprb,2.1978e-03_jprb,1.6329e-03_jprb,3.6803e-03_jprb/)  
kbo( :, 5,25, 7) = (/&
 & 2.7953e-03_jprb,3.2125e-03_jprb,2.7973e-03_jprb,2.0776e-03_jprb,4.1586e-03_jprb/)  
kbo( :, 1,26, 7) = (/&
 & 8.2577e-04_jprb,9.6602e-04_jprb,8.4698e-04_jprb,6.3651e-04_jprb,1.9589e-03_jprb/)  
kbo( :, 2,26, 7) = (/&
 & 1.1231e-03_jprb,1.3082e-03_jprb,1.1442e-03_jprb,8.5380e-04_jprb,2.2874e-03_jprb/)  
kbo( :, 3,26, 7) = (/&
 & 1.4894e-03_jprb,1.7283e-03_jprb,1.5086e-03_jprb,1.1231e-03_jprb,2.6381e-03_jprb/)  
kbo( :, 4,26, 7) = (/&
 & 1.9347e-03_jprb,2.2358e-03_jprb,1.9486e-03_jprb,1.4502e-03_jprb,3.0100e-03_jprb/)  
kbo( :, 5,26, 7) = (/&
 & 2.4718e-03_jprb,2.8431e-03_jprb,2.4753e-03_jprb,1.8399e-03_jprb,3.4018e-03_jprb/)  
kbo( :, 1,27, 7) = (/&
 & 7.3643e-04_jprb,8.6319e-04_jprb,7.5644e-04_jprb,5.6757e-04_jprb,1.5698e-03_jprb/)  
kbo( :, 2,27, 7) = (/&
 & 9.9721e-04_jprb,1.1634e-03_jprb,1.0175e-03_jprb,7.5949e-04_jprb,1.8348e-03_jprb/)  
kbo( :, 3,27, 7) = (/&
 & 1.3189e-03_jprb,1.5314e-03_jprb,1.3364e-03_jprb,9.9619e-04_jprb,2.1183e-03_jprb/)  
kbo( :, 4,27, 7) = (/&
 & 1.7109e-03_jprb,1.9771e-03_jprb,1.7222e-03_jprb,1.2827e-03_jprb,2.4187e-03_jprb/)  
kbo( :, 5,27, 7) = (/&
 & 2.1861e-03_jprb,2.5131e-03_jprb,2.1851e-03_jprb,1.6243e-03_jprb,2.7339e-03_jprb/)  
kbo( :, 1,28, 7) = (/&
 & 6.5434e-04_jprb,7.6837e-04_jprb,6.7291e-04_jprb,5.0480e-04_jprb,1.2349e-03_jprb/)  
kbo( :, 2,28, 7) = (/&
 & 8.8335e-04_jprb,1.0312e-03_jprb,9.0136e-04_jprb,6.7348e-04_jprb,1.4454e-03_jprb/)  
kbo( :, 3,28, 7) = (/&
 & 1.1654e-03_jprb,1.3544e-03_jprb,1.1806e-03_jprb,8.8065e-04_jprb,1.6701e-03_jprb/)  
kbo( :, 4,28, 7) = (/&
 & 1.5130e-03_jprb,1.7468e-03_jprb,1.5197e-03_jprb,1.1317e-03_jprb,1.9084e-03_jprb/)  
kbo( :, 5,28, 7) = (/&
 & 1.9346e-03_jprb,2.2214e-03_jprb,1.9275e-03_jprb,1.4311e-03_jprb,2.1590e-03_jprb/)  
kbo( :, 1,29, 7) = (/&
 & 5.8250e-04_jprb,6.8415e-04_jprb,5.9900e-04_jprb,4.4923e-04_jprb,9.6138e-04_jprb/)  
kbo( :, 2,29, 7) = (/&
 & 7.8379e-04_jprb,9.1559e-04_jprb,7.9935e-04_jprb,5.9724e-04_jprb,1.1264e-03_jprb/)  
kbo( :, 3,29, 7) = (/&
 & 1.0337e-03_jprb,1.2006e-03_jprb,1.0452e-03_jprb,7.7918e-04_jprb,1.3027e-03_jprb/)  
kbo( :, 4,29, 7) = (/&
 & 1.3430e-03_jprb,1.5485e-03_jprb,1.3445e-03_jprb,9.9943e-04_jprb,1.4903e-03_jprb/)  
kbo( :, 5,29, 7) = (/&
 & 1.7207e-03_jprb,1.9712e-03_jprb,1.7058e-03_jprb,1.2628e-03_jprb,1.6874e-03_jprb/)  
kbo( :, 1,30, 7) = (/&
 & 5.1788e-04_jprb,6.0851e-04_jprb,5.3244e-04_jprb,3.9922e-04_jprb,7.3807e-04_jprb/)  
kbo( :, 2,30, 7) = (/&
 & 6.9560e-04_jprb,8.1280e-04_jprb,7.0896e-04_jprb,5.2926e-04_jprb,8.6555e-04_jprb/)  
kbo( :, 3,30, 7) = (/&
 & 9.1854e-04_jprb,1.0653e-03_jprb,9.2608e-04_jprb,6.8944e-04_jprb,1.0029e-03_jprb/)  
kbo( :, 4,30, 7) = (/&
 & 1.1948e-03_jprb,1.3752e-03_jprb,1.1917e-03_jprb,8.8341e-04_jprb,1.1491e-03_jprb/)  
kbo( :, 5,30, 7) = (/&
 & 1.5335e-03_jprb,1.7547e-03_jprb,1.5125e-03_jprb,1.1162e-03_jprb,1.3024e-03_jprb/)  
kbo( :, 1,31, 7) = (/&
 & 4.6092e-04_jprb,5.4211e-04_jprb,4.7408e-04_jprb,3.5509e-04_jprb,5.5682e-04_jprb/)  
kbo( :, 2,31, 7) = (/&
 & 6.1918e-04_jprb,7.2321e-04_jprb,6.3005e-04_jprb,4.6997e-04_jprb,6.5454e-04_jprb/)  
kbo( :, 3,31, 7) = (/&
 & 8.1881e-04_jprb,9.4822e-04_jprb,8.2290e-04_jprb,6.1141e-04_jprb,7.5997e-04_jprb/)  
kbo( :, 4,31, 7) = (/&
 & 1.0668e-03_jprb,1.2267e-03_jprb,1.0593e-03_jprb,7.8292e-04_jprb,8.7195e-04_jprb/)  
kbo( :, 5,31, 7) = (/&
 & 1.3704e-03_jprb,1.5681e-03_jprb,1.3465e-03_jprb,9.8920e-04_jprb,9.8973e-04_jprb/)  
kbo( :, 1,32, 7) = (/&
 & 4.1152e-04_jprb,4.8409e-04_jprb,4.2308e-04_jprb,3.1645e-04_jprb,4.2168e-04_jprb/)  
kbo( :, 2,32, 7) = (/&
 & 5.5334e-04_jprb,6.4575e-04_jprb,5.6167e-04_jprb,4.1833e-04_jprb,4.9677e-04_jprb/)  
kbo( :, 3,32, 7) = (/&
 & 7.3299e-04_jprb,8.4766e-04_jprb,7.3383e-04_jprb,5.4370e-04_jprb,5.7774e-04_jprb/)  
kbo( :, 4,32, 7) = (/&
 & 9.5588e-04_jprb,1.0987e-03_jprb,9.4586e-04_jprb,6.9613e-04_jprb,6.6384e-04_jprb/)  
kbo( :, 5,32, 7) = (/&
 & 1.2288e-03_jprb,1.4065e-03_jprb,1.2040e-03_jprb,8.8013e-04_jprb,7.5486e-04_jprb/)  
kbo( :, 1,33, 7) = (/&
 & 3.6854e-04_jprb,4.3316e-04_jprb,3.7817e-04_jprb,2.8260e-04_jprb,3.1899e-04_jprb/)  
kbo( :, 2,33, 7) = (/&
 & 4.9646e-04_jprb,5.7816e-04_jprb,5.0221e-04_jprb,3.7315e-04_jprb,3.7656e-04_jprb/)  
kbo( :, 3,33, 7) = (/&
 & 6.5808e-04_jprb,7.6063e-04_jprb,6.5667e-04_jprb,4.8480e-04_jprb,4.3876e-04_jprb/)  
kbo( :, 4,33, 7) = (/&
 & 8.5867e-04_jprb,9.8782e-04_jprb,8.4748e-04_jprb,6.2133e-04_jprb,5.0517e-04_jprb/)  
kbo( :, 5,33, 7) = (/&
 & 1.1037e-03_jprb,1.2658e-03_jprb,1.0801e-03_jprb,7.8611e-04_jprb,5.7532e-04_jprb/)  
kbo( :, 1,34, 7) = (/&
 & 3.2867e-04_jprb,3.8572e-04_jprb,3.3622e-04_jprb,2.5071e-04_jprb,2.4855e-04_jprb/)  
kbo( :, 2,34, 7) = (/&
 & 4.4343e-04_jprb,5.1569e-04_jprb,4.4686e-04_jprb,3.3101e-04_jprb,2.9381e-04_jprb/)  
kbo( :, 3,34, 7) = (/&
 & 5.8810e-04_jprb,6.7990e-04_jprb,5.8528e-04_jprb,4.3031e-04_jprb,3.4255e-04_jprb/)  
kbo( :, 4,34, 7) = (/&
 & 7.6737e-04_jprb,8.8428e-04_jprb,7.5640e-04_jprb,5.5217e-04_jprb,3.9478e-04_jprb/)  
kbo( :, 5,34, 7) = (/&
 & 9.8517e-04_jprb,1.1342e-03_jprb,9.6554e-04_jprb,6.9951e-04_jprb,4.5002e-04_jprb/)  
kbo( :, 1,35, 7) = (/&
 & 2.8513e-04_jprb,3.3438e-04_jprb,2.9108e-04_jprb,2.1672e-04_jprb,1.8974e-04_jprb/)  
kbo( :, 2,35, 7) = (/&
 & 3.8542e-04_jprb,4.4857e-04_jprb,3.8802e-04_jprb,2.8661e-04_jprb,2.2492e-04_jprb/)  
kbo( :, 3,35, 7) = (/&
 & 5.1208e-04_jprb,5.9329e-04_jprb,5.0967e-04_jprb,3.7356e-04_jprb,2.6284e-04_jprb/)  
kbo( :, 4,35, 7) = (/&
 & 6.6882e-04_jprb,7.7366e-04_jprb,6.6059e-04_jprb,4.8046e-04_jprb,3.0352e-04_jprb/)  
kbo( :, 5,35, 7) = (/&
 & 8.5775e-04_jprb,9.9358e-04_jprb,8.4548e-04_jprb,6.1010e-04_jprb,3.4691e-04_jprb/)  
kbo( :, 1,36, 7) = (/&
 & 2.3908e-04_jprb,2.8086e-04_jprb,2.4432e-04_jprb,1.8172e-04_jprb,1.4131e-04_jprb/)  
kbo( :, 2,36, 7) = (/&
 & 3.2447e-04_jprb,3.7866e-04_jprb,3.2729e-04_jprb,2.4123e-04_jprb,1.6828e-04_jprb/)  
kbo( :, 3,36, 7) = (/&
 & 4.3244e-04_jprb,5.0306e-04_jprb,4.3179e-04_jprb,3.1573e-04_jprb,1.9752e-04_jprb/)  
kbo( :, 4,36, 7) = (/&
 & 5.6587e-04_jprb,6.5843e-04_jprb,5.6206e-04_jprb,4.0778e-04_jprb,2.2899e-04_jprb/)  
kbo( :, 5,36, 7) = (/&
 & 7.2600e-04_jprb,8.4746e-04_jprb,7.2177e-04_jprb,5.1967e-04_jprb,2.6262e-04_jprb/)  
kbo( :, 1,37, 7) = (/&
 & 1.9223e-04_jprb,2.2635e-04_jprb,1.9687e-04_jprb,1.4630e-04_jprb,1.0794e-04_jprb/)  
kbo( :, 2,37, 7) = (/&
 & 2.6242e-04_jprb,3.0724e-04_jprb,2.6553e-04_jprb,1.9547e-04_jprb,1.2910e-04_jprb/)  
kbo( :, 3,37, 7) = (/&
 & 3.5150e-04_jprb,4.1071e-04_jprb,3.5262e-04_jprb,2.5740e-04_jprb,1.5213e-04_jprb/)  
kbo( :, 4,37, 7) = (/&
 & 4.6185e-04_jprb,5.4051e-04_jprb,4.6167e-04_jprb,3.3450e-04_jprb,1.7700e-04_jprb/)  
kbo( :, 5,37, 7) = (/&
 & 5.9416e-04_jprb,6.9865e-04_jprb,5.9573e-04_jprb,4.2859e-04_jprb,2.0366e-04_jprb/)  
kbo( :, 1,38, 7) = (/&
 & 1.5396e-04_jprb,1.8186e-04_jprb,1.5820e-04_jprb,1.1745e-04_jprb,8.2026e-05_jprb/)  
kbo( :, 2,38, 7) = (/&
 & 2.1139e-04_jprb,2.4853e-04_jprb,2.1486e-04_jprb,1.5802e-04_jprb,9.8555e-05_jprb/)  
kbo( :, 3,38, 7) = (/&
 & 2.8454e-04_jprb,3.3433e-04_jprb,2.8721e-04_jprb,2.0943e-04_jprb,1.1661e-04_jprb/)  
kbo( :, 4,38, 7) = (/&
 & 3.7538e-04_jprb,4.4233e-04_jprb,3.7835e-04_jprb,2.7384e-04_jprb,1.3622e-04_jprb/)  
kbo( :, 5,38, 7) = (/&
 & 4.8432e-04_jprb,5.7425e-04_jprb,4.9054e-04_jprb,3.5276e-04_jprb,1.5730e-04_jprb/)  
kbo( :, 1,39, 7) = (/&
 & 1.2310e-04_jprb,1.4596e-04_jprb,1.2703e-04_jprb,9.4291e-05_jprb,6.1783e-05_jprb/)  
kbo( :, 2,39, 7) = (/&
 & 1.6994e-04_jprb,2.0085e-04_jprb,1.7375e-04_jprb,1.2772e-04_jprb,7.4607e-05_jprb/)  
kbo( :, 3,39, 7) = (/&
 & 2.2988e-04_jprb,2.7190e-04_jprb,2.3385e-04_jprb,1.7039e-04_jprb,8.8689e-05_jprb/)  
kbo( :, 4,39, 7) = (/&
 & 3.0447e-04_jprb,3.6157e-04_jprb,3.0996e-04_jprb,2.2416e-04_jprb,1.0404e-04_jprb/)  
kbo( :, 5,39, 7) = (/&
 & 3.9383e-04_jprb,4.7143e-04_jprb,4.0364e-04_jprb,2.9022e-04_jprb,1.2062e-04_jprb/)  
kbo( :, 1,40, 7) = (/&
 & 9.5155e-05_jprb,1.1332e-04_jprb,9.8734e-05_jprb,7.3344e-05_jprb,4.6985e-05_jprb/)  
kbo( :, 2,40, 7) = (/&
 & 1.3236e-04_jprb,1.5726e-04_jprb,1.3621e-04_jprb,1.0020e-04_jprb,5.7054e-05_jprb/)  
kbo( :, 3,40, 7) = (/&
 & 1.8031e-04_jprb,2.1454e-04_jprb,1.8484e-04_jprb,1.3474e-04_jprb,6.8162e-05_jprb/)  
kbo( :, 4,40, 7) = (/&
 & 2.4017e-04_jprb,2.8725e-04_jprb,2.4684e-04_jprb,1.7861e-04_jprb,8.0321e-05_jprb/)  
kbo( :, 5,40, 7) = (/&
 & 3.1223e-04_jprb,3.7700e-04_jprb,3.2358e-04_jprb,2.3279e-04_jprb,9.3499e-05_jprb/)  
kbo( :, 1,41, 7) = (/&
 & 7.3040e-05_jprb,8.7365e-05_jprb,7.6219e-05_jprb,5.6696e-05_jprb,3.5628e-05_jprb/)  
kbo( :, 2,41, 7) = (/&
 & 1.0242e-04_jprb,1.2231e-04_jprb,1.0608e-04_jprb,7.8149e-05_jprb,4.3528e-05_jprb/)  
kbo( :, 3,41, 7) = (/&
 & 1.4051e-04_jprb,1.6819e-04_jprb,1.4521e-04_jprb,1.0598e-04_jprb,5.2277e-05_jprb/)  
kbo( :, 4,41, 7) = (/&
 & 1.8838e-04_jprb,2.2688e-04_jprb,1.9542e-04_jprb,1.4156e-04_jprb,6.1894e-05_jprb/)  
kbo( :, 5,41, 7) = (/&
 & 2.4622e-04_jprb,2.9976e-04_jprb,2.5798e-04_jprb,1.8586e-04_jprb,7.2357e-05_jprb/)  
kbo( :, 1,42, 7) = (/&
 & 5.5864e-05_jprb,6.7119e-05_jprb,5.8652e-05_jprb,4.3719e-05_jprb,2.6853e-05_jprb/)  
kbo( :, 2,42, 7) = (/&
 & 7.9009e-05_jprb,9.4831e-05_jprb,8.2368e-05_jprb,6.0798e-05_jprb,3.3017e-05_jprb/)  
kbo( :, 3,42, 7) = (/&
 & 1.0919e-04_jprb,1.3143e-04_jprb,1.1371e-04_jprb,8.3133e-05_jprb,3.9881e-05_jprb/)  
kbo( :, 4,42, 7) = (/&
 & 1.4736e-04_jprb,1.7866e-04_jprb,1.5424e-04_jprb,1.1195e-04_jprb,4.7449e-05_jprb/)  
kbo( :, 5,42, 7) = (/&
 & 1.9372e-04_jprb,2.3766e-04_jprb,2.0511e-04_jprb,1.4803e-04_jprb,5.5730e-05_jprb/)  
kbo( :, 1,43, 7) = (/&
 & 4.1761e-05_jprb,5.0398e-05_jprb,4.4130e-05_jprb,3.2985e-05_jprb,2.0073e-05_jprb/)  
kbo( :, 2,43, 7) = (/&
 & 5.9645e-05_jprb,7.1916e-05_jprb,6.2599e-05_jprb,4.6330e-05_jprb,2.4864e-05_jprb/)  
kbo( :, 3,43, 7) = (/&
 & 8.3194e-05_jprb,1.0064e-04_jprb,8.7232e-05_jprb,6.3942e-05_jprb,3.0235e-05_jprb/)  
kbo( :, 4,43, 7) = (/&
 & 1.1320e-04_jprb,1.3803e-04_jprb,1.1940e-04_jprb,8.6870e-05_jprb,3.6178e-05_jprb/)  
kbo( :, 5,43, 7) = (/&
 & 1.4992e-04_jprb,1.8511e-04_jprb,1.6011e-04_jprb,1.1587e-04_jprb,4.2707e-05_jprb/)  
kbo( :, 1,44, 7) = (/&
 & 3.0801e-05_jprb,3.7349e-05_jprb,3.2753e-05_jprb,2.4577e-05_jprb,1.4891e-05_jprb/)  
kbo( :, 2,44, 7) = (/&
 & 4.4487e-05_jprb,5.3871e-05_jprb,4.6990e-05_jprb,3.4888e-05_jprb,1.8592e-05_jprb/)  
kbo( :, 3,44, 7) = (/&
 & 6.2658e-05_jprb,7.6156e-05_jprb,6.6129e-05_jprb,4.8623e-05_jprb,2.2773e-05_jprb/)  
kbo( :, 4,44, 7) = (/&
 & 8.6061e-05_jprb,1.0547e-04_jprb,9.1388e-05_jprb,6.6679e-05_jprb,2.7431e-05_jprb/)  
kbo( :, 5,44, 7) = (/&
 & 1.1501e-04_jprb,1.4274e-04_jprb,1.2369e-04_jprb,8.9747e-05_jprb,3.2565e-05_jprb/)  
kbo( :, 1,45, 7) = (/&
 & 2.2608e-05_jprb,2.7541e-05_jprb,2.4185e-05_jprb,1.8232e-05_jprb,1.0958e-05_jprb/)  
kbo( :, 2,45, 7) = (/&
 & 3.3025e-05_jprb,4.0159e-05_jprb,3.5109e-05_jprb,2.6156e-05_jprb,1.3799e-05_jprb/)  
kbo( :, 3,45, 7) = (/&
 & 4.7011e-05_jprb,5.7379e-05_jprb,4.9919e-05_jprb,3.6820e-05_jprb,1.7031e-05_jprb/)  
kbo( :, 4,45, 7) = (/&
 & 6.5198e-05_jprb,8.0265e-05_jprb,6.9669e-05_jprb,5.0975e-05_jprb,2.0660e-05_jprb/)  
kbo( :, 5,45, 7) = (/&
 & 8.7915e-05_jprb,1.0965e-04_jprb,9.5159e-05_jprb,6.9236e-05_jprb,2.4675e-05_jprb/)  
kbo( :, 1,46, 7) = (/&
 & 1.6373e-05_jprb,2.0043e-05_jprb,1.7624e-05_jprb,1.3360e-05_jprb,7.9926e-06_jprb/)  
kbo( :, 2,46, 7) = (/&
 & 2.4216e-05_jprb,2.9567e-05_jprb,2.5903e-05_jprb,1.9373e-05_jprb,1.0160e-05_jprb/)  
kbo( :, 3,46, 7) = (/&
 & 3.4868e-05_jprb,4.2722e-05_jprb,3.7241e-05_jprb,2.7564e-05_jprb,1.2643e-05_jprb/)  

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


SUBROUTINE part23

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


kbo( :, 4,46, 7) = (/&
 & 4.8882e-05_jprb,6.0410e-05_jprb,5.2522e-05_jprb,3.8539e-05_jprb,1.5455e-05_jprb/)  
kbo( :, 5,46, 7) = (/&
 & 6.6579e-05_jprb,8.3392e-05_jprb,7.2472e-05_jprb,5.2864e-05_jprb,1.8586e-05_jprb/)  
kbo( :, 1,47, 7) = (/&
 & 1.1599e-05_jprb,1.4268e-05_jprb,1.2567e-05_jprb,9.5846e-06_jprb,5.7865e-06_jprb/)  
kbo( :, 2,47, 7) = (/&
 & 1.7394e-05_jprb,2.1321e-05_jprb,1.8719e-05_jprb,1.4063e-05_jprb,7.4320e-06_jprb/)  
kbo( :, 3,47, 7) = (/&
 & 2.5375e-05_jprb,3.1189e-05_jprb,2.7244e-05_jprb,2.0242e-05_jprb,9.3345e-06_jprb/)  
kbo( :, 4,47, 7) = (/&
 & 3.6020e-05_jprb,4.4624e-05_jprb,3.8868e-05_jprb,2.8612e-05_jprb,1.1506e-05_jprb/)  
kbo( :, 5,47, 7) = (/&
 & 4.9650e-05_jprb,6.2358e-05_jprb,5.4247e-05_jprb,3.9674e-05_jprb,1.3945e-05_jprb/)  
kbo( :, 1,48, 7) = (/&
 & 8.1592e-06_jprb,1.0088e-05_jprb,8.9029e-06_jprb,6.8352e-06_jprb,4.1486e-06_jprb/)  
kbo( :, 2,48, 7) = (/&
 & 1.2414e-05_jprb,1.5281e-05_jprb,1.3442e-05_jprb,1.0147e-05_jprb,5.3865e-06_jprb/)  
kbo( :, 3,48, 7) = (/&
 & 1.8355e-05_jprb,2.2636e-05_jprb,1.9815e-05_jprb,1.4784e-05_jprb,6.8320e-06_jprb/)  
kbo( :, 4,48, 7) = (/&
 & 2.6399e-05_jprb,3.2787e-05_jprb,2.8606e-05_jprb,2.1130e-05_jprb,8.4972e-06_jprb/)  
kbo( :, 5,48, 7) = (/&
 & 3.6834e-05_jprb,4.6374e-05_jprb,4.0398e-05_jprb,2.9623e-05_jprb,1.0383e-05_jprb/)  
kbo( :, 1,49, 7) = (/&
 & 5.6950e-06_jprb,7.0854e-06_jprb,6.2658e-06_jprb,4.8460e-06_jprb,2.9411e-06_jprb/)  
kbo( :, 2,49, 7) = (/&
 & 8.8040e-06_jprb,1.0880e-05_jprb,9.5884e-06_jprb,7.2776e-06_jprb,3.8607e-06_jprb/)  
kbo( :, 3,49, 7) = (/&
 & 1.3194e-05_jprb,1.6321e-05_jprb,1.4323e-05_jprb,1.0731e-05_jprb,4.9471e-06_jprb/)  
kbo( :, 4,49, 7) = (/&
 & 1.9231e-05_jprb,2.3945e-05_jprb,2.0927e-05_jprb,1.5515e-05_jprb,6.2112e-06_jprb/)  
kbo( :, 5,49, 7) = (/&
 & 2.7183e-05_jprb,3.4291e-05_jprb,2.9917e-05_jprb,2.1999e-05_jprb,7.6566e-06_jprb/)  
kbo( :, 1,50, 7) = (/&
 & 3.9958e-06_jprb,5.0015e-06_jprb,4.4366e-06_jprb,3.4585e-06_jprb,2.1227e-06_jprb/)  
kbo( :, 2,50, 7) = (/&
 & 6.2784e-06_jprb,7.7901e-06_jprb,6.8759e-06_jprb,5.2490e-06_jprb,2.8123e-06_jprb/)  
kbo( :, 3,50, 7) = (/&
 & 9.5367e-06_jprb,1.1828e-05_jprb,1.0406e-05_jprb,7.8273e-06_jprb,3.6384e-06_jprb/)  
kbo( :, 4,50, 7) = (/&
 & 1.4076e-05_jprb,1.7574e-05_jprb,1.5384e-05_jprb,1.1445e-05_jprb,4.6069e-06_jprb/)  
kbo( :, 5,50, 7) = (/&
 & 2.0158e-05_jprb,2.5470e-05_jprb,2.2251e-05_jprb,1.6406e-05_jprb,5.7245e-06_jprb/)  
kbo( :, 1,51, 7) = (/&
 & 2.7988e-06_jprb,3.5266e-06_jprb,3.1403e-06_jprb,2.4729e-06_jprb,1.5428e-06_jprb/)  
kbo( :, 2,51, 7) = (/&
 & 4.4758e-06_jprb,5.5781e-06_jprb,4.9313e-06_jprb,3.7868e-06_jprb,2.0615e-06_jprb/)  
kbo( :, 3,51, 7) = (/&
 & 6.8951e-06_jprb,8.5722e-06_jprb,7.5560e-06_jprb,5.7084e-06_jprb,2.6915e-06_jprb/)  
kbo( :, 4,51, 7) = (/&
 & 1.0304e-05_jprb,1.2894e-05_jprb,1.1308e-05_jprb,8.4393e-06_jprb,3.4363e-06_jprb/)  
kbo( :, 5,51, 7) = (/&
 & 1.4945e-05_jprb,1.8920e-05_jprb,1.6546e-05_jprb,1.2232e-05_jprb,4.3031e-06_jprb/)  
kbo( :, 1,52, 7) = (/&
 & 1.9435e-06_jprb,2.4685e-06_jprb,2.2098e-06_jprb,1.7634e-06_jprb,1.1143e-06_jprb/)  
kbo( :, 2,52, 7) = (/&
 & 3.1695e-06_jprb,3.9713e-06_jprb,3.5183e-06_jprb,2.7199e-06_jprb,1.5011e-06_jprb/)  
kbo( :, 3,52, 7) = (/&
 & 4.9592e-06_jprb,6.1828e-06_jprb,5.4581e-06_jprb,4.1434e-06_jprb,1.9775e-06_jprb/)  
kbo( :, 4,52, 7) = (/&
 & 7.5082e-06_jprb,9.4119e-06_jprb,8.2722e-06_jprb,6.1949e-06_jprb,2.5467e-06_jprb/)  
kbo( :, 5,52, 7) = (/&
 & 1.1026e-05_jprb,1.3984e-05_jprb,1.2246e-05_jprb,9.0780e-06_jprb,3.2145e-06_jprb/)  
kbo( :, 1,53, 7) = (/&
 & 1.3359e-06_jprb,1.7128e-06_jprb,1.5439e-06_jprb,1.2551e-06_jprb,7.9874e-07_jprb/)  
kbo( :, 2,53, 7) = (/&
 & 2.2274e-06_jprb,2.8086e-06_jprb,2.4951e-06_jprb,1.9446e-06_jprb,1.0843e-06_jprb/)  
kbo( :, 3,53, 7) = (/&
 & 3.5445e-06_jprb,4.4342e-06_jprb,3.9206e-06_jprb,2.9916e-06_jprb,1.4407e-06_jprb/)  
kbo( :, 4,53, 7) = (/&
 & 5.4423e-06_jprb,6.8307e-06_jprb,6.0173e-06_jprb,4.5231e-06_jprb,1.8721e-06_jprb/)  
kbo( :, 5,53, 7) = (/&
 & 8.0931e-06_jprb,1.0281e-05_jprb,9.0168e-06_jprb,6.7031e-06_jprb,2.3821e-06_jprb/)  
kbo( :, 1,54, 7) = (/&
 & 9.2652e-07_jprb,1.1988e-06_jprb,1.0892e-06_jprb,9.0472e-07_jprb,5.9185e-07_jprb/)  
kbo( :, 2,54, 7) = (/&
 & 1.5791e-06_jprb,2.0042e-06_jprb,1.7864e-06_jprb,1.4053e-06_jprb,8.0903e-07_jprb/)  
kbo( :, 3,54, 7) = (/&
 & 2.5564e-06_jprb,3.2106e-06_jprb,2.8433e-06_jprb,2.1812e-06_jprb,1.0829e-06_jprb/)  
kbo( :, 4,54, 7) = (/&
 & 3.9810e-06_jprb,5.0042e-06_jprb,4.4158e-06_jprb,3.3311e-06_jprb,1.4179e-06_jprb/)  
kbo( :, 5,54, 7) = (/&
 & 5.9940e-06_jprb,7.6213e-06_jprb,6.6941e-06_jprb,4.9908e-06_jprb,1.8162e-06_jprb/)  
kbo( :, 1,55, 7) = (/&
 & 6.4271e-07_jprb,8.3986e-07_jprb,7.6969e-07_jprb,6.5622e-07_jprb,4.4680e-07_jprb/)  
kbo( :, 2,55, 7) = (/&
 & 1.1202e-06_jprb,1.4315e-06_jprb,1.2812e-06_jprb,1.0198e-06_jprb,6.1469e-07_jprb/)  
kbo( :, 3,55, 7) = (/&
 & 1.8463e-06_jprb,2.3303e-06_jprb,2.0672e-06_jprb,1.5950e-06_jprb,8.2848e-07_jprb/)  
kbo( :, 4,55, 7) = (/&
 & 2.9187e-06_jprb,3.6752e-06_jprb,3.2484e-06_jprb,2.4593e-06_jprb,1.0923e-06_jprb/)  
kbo( :, 5,55, 7) = (/&
 & 4.4490e-06_jprb,5.6623e-06_jprb,4.9799e-06_jprb,3.7232e-06_jprb,1.4079e-06_jprb/)  
kbo( :, 1,56, 7) = (/&
 & 4.4222e-07_jprb,5.8443e-07_jprb,5.4132e-07_jprb,4.7675e-07_jprb,3.3738e-07_jprb/)  
kbo( :, 2,56, 7) = (/&
 & 7.8907e-07_jprb,1.0157e-06_jprb,9.1377e-07_jprb,7.3810e-07_jprb,4.6671e-07_jprb/)  
kbo( :, 3,56, 7) = (/&
 & 1.3248e-06_jprb,1.6819e-06_jprb,1.4956e-06_jprb,1.1622e-06_jprb,6.3354e-07_jprb/)  
kbo( :, 4,56, 7) = (/&
 & 2.1296e-06_jprb,2.6885e-06_jprb,2.3793e-06_jprb,1.8091e-06_jprb,8.4125e-07_jprb/)  
kbo( :, 5,56, 7) = (/&
 & 3.2905e-06_jprb,4.1906e-06_jprb,3.6905e-06_jprb,2.7667e-06_jprb,1.0917e-06_jprb/)  
kbo( :, 1,57, 7) = (/&
 & 3.0166e-07_jprb,4.0366e-07_jprb,3.7890e-07_jprb,3.4759e-07_jprb,2.5495e-07_jprb/)  
kbo( :, 2,57, 7) = (/&
 & 5.5161e-07_jprb,7.1542e-07_jprb,6.4792e-07_jprb,5.3334e-07_jprb,3.5433e-07_jprb/)  
kbo( :, 3,57, 7) = (/&
 & 9.4470e-07_jprb,1.2069e-06_jprb,1.0761e-06_jprb,8.4394e-07_jprb,4.8446e-07_jprb/)  
kbo( :, 4,57, 7) = (/&
 & 1.5448e-06_jprb,1.9571e-06_jprb,1.7349e-06_jprb,1.3257e-06_jprb,6.4791e-07_jprb/)  
kbo( :, 5,57, 7) = (/&
 & 2.4231e-06_jprb,3.0885e-06_jprb,2.7246e-06_jprb,2.0476e-06_jprb,8.4650e-07_jprb/)  
kbo( :, 1,58, 7) = (/&
 & 2.0615e-07_jprb,2.7966e-07_jprb,2.6659e-07_jprb,2.5672e-07_jprb,1.9490e-07_jprb/)  
kbo( :, 2,58, 7) = (/&
 & 3.8634e-07_jprb,5.0506e-07_jprb,4.6082e-07_jprb,3.8792e-07_jprb,2.7193e-07_jprb/)  
kbo( :, 3,58, 7) = (/&
 & 6.7545e-07_jprb,8.6794e-07_jprb,7.7672e-07_jprb,6.1534e-07_jprb,3.7439e-07_jprb/)  
kbo( :, 4,58, 7) = (/&
 & 1.1229e-06_jprb,1.4289e-06_jprb,1.2690e-06_jprb,9.7539e-07_jprb,5.0417e-07_jprb/)  
kbo( :, 5,58, 7) = (/&
 & 1.7888e-06_jprb,2.2841e-06_jprb,2.0182e-06_jprb,1.5209e-06_jprb,6.6299e-07_jprb/)  
kbo( :, 1,59, 7) = (/&
 & 1.5864e-07_jprb,2.1618e-07_jprb,2.0732e-07_jprb,2.0350e-07_jprb,1.6565e-07_jprb/)  
kbo( :, 2,59, 7) = (/&
 & 3.0072e-07_jprb,3.9451e-07_jprb,3.6086e-07_jprb,3.0632e-07_jprb,2.3297e-07_jprb/)  
kbo( :, 3,59, 7) = (/&
 & 5.3103e-07_jprb,6.8463e-07_jprb,6.1355e-07_jprb,4.8792e-07_jprb,3.2258e-07_jprb/)  
kbo( :, 4,59, 7) = (/&
 & 8.9096e-07_jprb,1.1377e-06_jprb,1.0113e-06_jprb,7.7874e-07_jprb,4.3608e-07_jprb/)  
kbo( :, 5,59, 7) = (/&
 & 1.4311e-06_jprb,1.8344e-06_jprb,1.6214e-06_jprb,1.2223e-06_jprb,5.7456e-07_jprb/)  
kbo( :, 1,13, 8) = (/&
 & 1.1431e-02_jprb,1.2741e-02_jprb,1.1436e-02_jprb,9.1621e-03_jprb,8.0519e-02_jprb/)  
kbo( :, 2,13, 8) = (/&
 & 1.5206e-02_jprb,1.7160e-02_jprb,1.5555e-02_jprb,1.2454e-02_jprb,8.6864e-02_jprb/)  
kbo( :, 3,13, 8) = (/&
 & 1.9976e-02_jprb,2.2722e-02_jprb,2.0654e-02_jprb,1.6502e-02_jprb,9.4446e-02_jprb/)  
kbo( :, 4,13, 8) = (/&
 & 2.5954e-02_jprb,2.9643e-02_jprb,2.6781e-02_jprb,2.1406e-02_jprb,1.0333e-01_jprb/)  
kbo( :, 5,13, 8) = (/&
 & 3.3352e-02_jprb,3.7953e-02_jprb,3.4189e-02_jprb,2.7277e-02_jprb,1.1304e-01_jprb/)  
kbo( :, 1,14, 8) = (/&
 & 1.0179e-02_jprb,1.1389e-02_jprb,1.0176e-02_jprb,8.0522e-03_jprb,6.5504e-02_jprb/)  
kbo( :, 2,14, 8) = (/&
 & 1.3641e-02_jprb,1.5355e-02_jprb,1.3817e-02_jprb,1.0906e-02_jprb,7.2230e-02_jprb/)  
kbo( :, 3,14, 8) = (/&
 & 1.8023e-02_jprb,2.0418e-02_jprb,1.8352e-02_jprb,1.4437e-02_jprb,8.0150e-02_jprb/)  
kbo( :, 4,14, 8) = (/&
 & 2.3532e-02_jprb,2.6705e-02_jprb,2.3876e-02_jprb,1.8758e-02_jprb,8.9038e-02_jprb/)  
kbo( :, 5,14, 8) = (/&
 & 3.0239e-02_jprb,3.4282e-02_jprb,3.0614e-02_jprb,2.4017e-02_jprb,9.8577e-02_jprb/)  
kbo( :, 1,15, 8) = (/&
 & 9.0090e-03_jprb,1.0120e-02_jprb,9.0167e-03_jprb,7.0764e-03_jprb,5.2591e-02_jprb/)  
kbo( :, 2,15, 8) = (/&
 & 1.2186e-02_jprb,1.3734e-02_jprb,1.2258e-02_jprb,9.5696e-03_jprb,5.9402e-02_jprb/)  
kbo( :, 3,15, 8) = (/&
 & 1.6225e-02_jprb,1.8333e-02_jprb,1.6340e-02_jprb,1.2688e-02_jprb,6.7127e-02_jprb/)  
kbo( :, 4,15, 8) = (/&
 & 2.1185e-02_jprb,2.4042e-02_jprb,2.1332e-02_jprb,1.6578e-02_jprb,7.5512e-02_jprb/)  
kbo( :, 5,15, 8) = (/&
 & 2.7141e-02_jprb,3.0928e-02_jprb,2.7480e-02_jprb,2.1333e-02_jprb,8.4521e-02_jprb/)  
kbo( :, 1,16, 8) = (/&
 & 7.9666e-03_jprb,8.9862e-03_jprb,7.9671e-03_jprb,6.2242e-03_jprb,4.1294e-02_jprb/)  
kbo( :, 2,16, 8) = (/&
 & 1.0885e-02_jprb,1.2270e-02_jprb,1.0885e-02_jprb,8.4303e-03_jprb,4.7519e-02_jprb/)  
kbo( :, 3,16, 8) = (/&
 & 1.4511e-02_jprb,1.6442e-02_jprb,1.4544e-02_jprb,1.1234e-02_jprb,5.4415e-02_jprb/)  
kbo( :, 4,16, 8) = (/&
 & 1.8926e-02_jprb,2.1554e-02_jprb,1.9076e-02_jprb,1.4750e-02_jprb,6.1801e-02_jprb/)  
kbo( :, 5,16, 8) = (/&
 & 2.4236e-02_jprb,2.7687e-02_jprb,2.4633e-02_jprb,1.9024e-02_jprb,6.9624e-02_jprb/)  
kbo( :, 1,17, 8) = (/&
 & 7.1080e-03_jprb,8.0147e-03_jprb,7.0758e-03_jprb,5.4873e-03_jprb,3.3297e-02_jprb/)  
kbo( :, 2,17, 8) = (/&
 & 9.7388e-03_jprb,1.0991e-02_jprb,9.6940e-03_jprb,7.4587e-03_jprb,3.8754e-02_jprb/)  
kbo( :, 3,17, 8) = (/&
 & 1.2971e-02_jprb,1.4712e-02_jprb,1.2980e-02_jprb,9.9806e-03_jprb,4.4673e-02_jprb/)  
kbo( :, 4,17, 8) = (/&
 & 1.6920e-02_jprb,1.9221e-02_jprb,1.7037e-02_jprb,1.3131e-02_jprb,5.0878e-02_jprb/)  
kbo( :, 5,17, 8) = (/&
 & 2.1675e-02_jprb,2.4688e-02_jprb,2.1958e-02_jprb,1.6944e-02_jprb,5.7392e-02_jprb/)  
kbo( :, 1,18, 8) = (/&
 & 6.4048e-03_jprb,7.2149e-03_jprb,6.3423e-03_jprb,4.8705e-03_jprb,2.7610e-02_jprb/)  
kbo( :, 2,18, 8) = (/&
 & 8.7579e-03_jprb,9.8929e-03_jprb,8.6960e-03_jprb,6.6399e-03_jprb,3.2241e-02_jprb/)  
kbo( :, 3,18, 8) = (/&
 & 1.1674e-02_jprb,1.3178e-02_jprb,1.1614e-02_jprb,8.8937e-03_jprb,3.7151e-02_jprb/)  
kbo( :, 4,18, 8) = (/&
 & 1.5226e-02_jprb,1.7183e-02_jprb,1.5190e-02_jprb,1.1678e-02_jprb,4.2321e-02_jprb/)  
kbo( :, 5,18, 8) = (/&
 & 1.9521e-02_jprb,2.2065e-02_jprb,1.9536e-02_jprb,1.5022e-02_jprb,4.7759e-02_jprb/)  
kbo( :, 1,19, 8) = (/&
 & 5.7780e-03_jprb,6.5097e-03_jprb,5.7073e-03_jprb,4.3362e-03_jprb,2.3517e-02_jprb/)  
kbo( :, 2,19, 8) = (/&
 & 7.8980e-03_jprb,8.8943e-03_jprb,7.8019e-03_jprb,5.9182e-03_jprb,2.7464e-02_jprb/)  
kbo( :, 3,19, 8) = (/&
 & 1.0547e-02_jprb,1.1813e-02_jprb,1.0378e-02_jprb,7.9082e-03_jprb,3.1653e-02_jprb/)  
kbo( :, 4,19, 8) = (/&
 & 1.3780e-02_jprb,1.5395e-02_jprb,1.3544e-02_jprb,1.0334e-02_jprb,3.6068e-02_jprb/)  
kbo( :, 5,19, 8) = (/&
 & 1.7661e-02_jprb,1.9769e-02_jprb,1.7387e-02_jprb,1.3263e-02_jprb,4.0672e-02_jprb/)  
kbo( :, 1,20, 8) = (/&
 & 5.2358e-03_jprb,5.8943e-03_jprb,5.1609e-03_jprb,3.8930e-03_jprb,2.0265e-02_jprb/)  
kbo( :, 2,20, 8) = (/&
 & 7.1650e-03_jprb,8.0337e-03_jprb,7.0303e-03_jprb,5.3009e-03_jprb,2.3642e-02_jprb/)  
kbo( :, 3,20, 8) = (/&
 & 9.5768e-03_jprb,1.0673e-02_jprb,9.3270e-03_jprb,7.0467e-03_jprb,2.7210e-02_jprb/)  
kbo( :, 4,20, 8) = (/&
 & 1.2520e-02_jprb,1.3910e-02_jprb,1.2148e-02_jprb,9.1772e-03_jprb,3.0955e-02_jprb/)  
kbo( :, 5,20, 8) = (/&
 & 1.6054e-02_jprb,1.7830e-02_jprb,1.5571e-02_jprb,1.1760e-02_jprb,3.4856e-02_jprb/)  
kbo( :, 1,21, 8) = (/&
 & 4.7306e-03_jprb,5.3228e-03_jprb,4.6480e-03_jprb,3.4934e-03_jprb,1.7415e-02_jprb/)  
kbo( :, 2,21, 8) = (/&
 & 6.4837e-03_jprb,7.2505e-03_jprb,6.3214e-03_jprb,4.7410e-03_jprb,2.0248e-02_jprb/)  
kbo( :, 3,21, 8) = (/&
 & 8.6672e-03_jprb,9.6479e-03_jprb,8.3920e-03_jprb,6.2776e-03_jprb,2.3246e-02_jprb/)  
kbo( :, 4,21, 8) = (/&
 & 1.1340e-02_jprb,1.2581e-02_jprb,1.0918e-02_jprb,8.1620e-03_jprb,2.6397e-02_jprb/)  
kbo( :, 5,21, 8) = (/&
 & 1.4560e-02_jprb,1.6102e-02_jprb,1.3967e-02_jprb,1.0440e-02_jprb,2.9697e-02_jprb/)  
kbo( :, 1,22, 8) = (/&
 & 4.3418e-03_jprb,4.8765e-03_jprb,4.2505e-03_jprb,3.1831e-03_jprb,1.4725e-02_jprb/)  
kbo( :, 2,22, 8) = (/&
 & 5.9449e-03_jprb,6.6380e-03_jprb,5.7744e-03_jprb,4.3038e-03_jprb,1.7073e-02_jprb/)  
kbo( :, 3,22, 8) = (/&
 & 7.9389e-03_jprb,8.8321e-03_jprb,7.6615e-03_jprb,5.6883e-03_jprb,1.9560e-02_jprb/)  
kbo( :, 4,22, 8) = (/&
 & 1.0382e-02_jprb,1.1507e-02_jprb,9.9583e-03_jprb,7.3808e-03_jprb,2.2180e-02_jprb/)  
kbo( :, 5,22, 8) = (/&
 & 1.3348e-02_jprb,1.4718e-02_jprb,1.2724e-02_jprb,9.4158e-03_jprb,2.4942e-02_jprb/)  
kbo( :, 1,23, 8) = (/&
 & 3.9755e-03_jprb,4.4601e-03_jprb,3.8791e-03_jprb,2.8940e-03_jprb,1.2317e-02_jprb/)  
kbo( :, 2,23, 8) = (/&
 & 5.4326e-03_jprb,6.0675e-03_jprb,5.2649e-03_jprb,3.9079e-03_jprb,1.4261e-02_jprb/)  
kbo( :, 3,23, 8) = (/&
 & 7.2471e-03_jprb,8.0652e-03_jprb,6.9775e-03_jprb,5.1609e-03_jprb,1.6319e-02_jprb/)  
kbo( :, 4,23, 8) = (/&
 & 9.4853e-03_jprb,1.0499e-02_jprb,9.0669e-03_jprb,6.6817e-03_jprb,1.8494e-02_jprb/)  
kbo( :, 5,23, 8) = (/&
 & 1.2224e-02_jprb,1.3433e-02_jprb,1.1575e-02_jprb,8.5016e-03_jprb,2.0803e-02_jprb/)  
kbo( :, 1,24, 8) = (/&
 & 3.6237e-03_jprb,4.0664e-03_jprb,3.5327e-03_jprb,2.6249e-03_jprb,1.0111e-02_jprb/)  
kbo( :, 2,24, 8) = (/&
 & 4.9405e-03_jprb,5.5284e-03_jprb,4.7867e-03_jprb,3.5422e-03_jprb,1.1712e-02_jprb/)  
kbo( :, 3,24, 8) = (/&
 & 6.5941e-03_jprb,7.3367e-03_jprb,6.3412e-03_jprb,4.6740e-03_jprb,1.3407e-02_jprb/)  
kbo( :, 4,24, 8) = (/&
 & 8.6500e-03_jprb,9.5582e-03_jprb,8.2387e-03_jprb,6.0413e-03_jprb,1.5203e-02_jprb/)  
kbo( :, 5,24, 8) = (/&
 & 1.1160e-02_jprb,1.2258e-02_jprb,1.0518e-02_jprb,7.6745e-03_jprb,1.7120e-02_jprb/)  
kbo( :, 1,25, 8) = (/&
 & 3.2923e-03_jprb,3.7097e-03_jprb,3.2174e-03_jprb,2.3852e-03_jprb,8.2743e-03_jprb/)  
kbo( :, 2,25, 8) = (/&
 & 4.4868e-03_jprb,5.0333e-03_jprb,4.3547e-03_jprb,3.2140e-03_jprb,9.5864e-03_jprb/)  
kbo( :, 3,25, 8) = (/&
 & 6.0022e-03_jprb,6.6817e-03_jprb,5.7652e-03_jprb,4.2348e-03_jprb,1.0982e-02_jprb/)  
kbo( :, 4,25, 8) = (/&
 & 7.8855e-03_jprb,8.7187e-03_jprb,7.4913e-03_jprb,5.4655e-03_jprb,1.2469e-02_jprb/)  
kbo( :, 5,25, 8) = (/&
 & 1.0169e-02_jprb,1.1196e-02_jprb,9.5768e-03_jprb,6.9385e-03_jprb,1.4057e-02_jprb/)  
kbo( :, 1,26, 8) = (/&
 & 2.9966e-03_jprb,3.3936e-03_jprb,2.9435e-03_jprb,2.1773e-03_jprb,6.8226e-03_jprb/)  
kbo( :, 2,26, 8) = (/&
 & 4.0887e-03_jprb,4.6003e-03_jprb,3.9768e-03_jprb,2.9281e-03_jprb,7.9056e-03_jprb/)  
kbo( :, 3,26, 8) = (/&
 & 5.4745e-03_jprb,6.1149e-03_jprb,5.2640e-03_jprb,3.8491e-03_jprb,9.0607e-03_jprb/)  
kbo( :, 4,26, 8) = (/&
 & 7.1886e-03_jprb,7.9856e-03_jprb,6.8456e-03_jprb,4.9643e-03_jprb,1.0300e-02_jprb/)  
kbo( :, 5,26, 8) = (/&
 & 9.2596e-03_jprb,1.0248e-02_jprb,8.7489e-03_jprb,6.3014e-03_jprb,1.1624e-02_jprb/)  
kbo( :, 1,27, 8) = (/&
 & 2.7156e-03_jprb,3.0876e-03_jprb,2.6805e-03_jprb,1.9822e-03_jprb,5.5158e-03_jprb/)  
kbo( :, 2,27, 8) = (/&
 & 3.7104e-03_jprb,4.1900e-03_jprb,3.6215e-03_jprb,2.6593e-03_jprb,6.4001e-03_jprb/)  
kbo( :, 3,27, 8) = (/&
 & 4.9667e-03_jprb,5.5771e-03_jprb,4.8004e-03_jprb,3.4928e-03_jprb,7.3466e-03_jprb/)  
kbo( :, 4,27, 8) = (/&
 & 6.5120e-03_jprb,7.2813e-03_jprb,6.2396e-03_jprb,4.5038e-03_jprb,8.3626e-03_jprb/)  
kbo( :, 5,27, 8) = (/&
 & 8.3748e-03_jprb,9.3312e-03_jprb,7.9649e-03_jprb,5.7101e-03_jprb,9.4540e-03_jprb/)  
kbo( :, 1,28, 8) = (/&
 & 2.4540e-03_jprb,2.8015e-03_jprb,2.4332e-03_jprb,1.7986e-03_jprb,4.3717e-03_jprb/)  
kbo( :, 2,28, 8) = (/&
 & 3.3533e-03_jprb,3.8065e-03_jprb,3.2907e-03_jprb,2.4104e-03_jprb,5.0844e-03_jprb/)  
kbo( :, 3,28, 8) = (/&
 & 4.4816e-03_jprb,5.0648e-03_jprb,4.3611e-03_jprb,3.1641e-03_jprb,5.8491e-03_jprb/)  

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


SUBROUTINE part24

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


kbo( :, 4,28, 8) = (/&
 & 5.8656e-03_jprb,6.6059e-03_jprb,5.6649e-03_jprb,4.0783e-03_jprb,6.6719e-03_jprb/)  
kbo( :, 5,28, 8) = (/&
 & 7.5375e-03_jprb,8.4524e-03_jprb,7.2181e-03_jprb,5.1634e-03_jprb,7.5534e-03_jprb/)  
kbo( :, 1,29, 8) = (/&
 & 2.2199e-03_jprb,2.5468e-03_jprb,2.2116e-03_jprb,1.6320e-03_jprb,3.4313e-03_jprb/)  
kbo( :, 2,29, 8) = (/&
 & 3.0284e-03_jprb,3.4576e-03_jprb,2.9908e-03_jprb,2.1868e-03_jprb,4.0007e-03_jprb/)  
kbo( :, 3,29, 8) = (/&
 & 4.0394e-03_jprb,4.5959e-03_jprb,3.9584e-03_jprb,2.8693e-03_jprb,4.6141e-03_jprb/)  
kbo( :, 4,29, 8) = (/&
 & 5.2804e-03_jprb,5.9851e-03_jprb,5.1333e-03_jprb,3.6901e-03_jprb,5.2723e-03_jprb/)  
kbo( :, 5,29, 8) = (/&
 & 6.7815e-03_jprb,7.6482e-03_jprb,6.5273e-03_jprb,4.6670e-03_jprb,5.9784e-03_jprb/)  
kbo( :, 1,30, 8) = (/&
 & 2.0046e-03_jprb,2.3130e-03_jprb,2.0090e-03_jprb,1.4794e-03_jprb,2.6543e-03_jprb/)  
kbo( :, 2,30, 8) = (/&
 & 2.7295e-03_jprb,3.1369e-03_jprb,2.7138e-03_jprb,1.9812e-03_jprb,3.1043e-03_jprb/)  
kbo( :, 3,30, 8) = (/&
 & 3.6356e-03_jprb,4.1607e-03_jprb,3.5841e-03_jprb,2.5951e-03_jprb,3.5892e-03_jprb/)  
kbo( :, 4,30, 8) = (/&
 & 4.7491e-03_jprb,5.4103e-03_jprb,4.6363e-03_jprb,3.3323e-03_jprb,4.1088e-03_jprb/)  
kbo( :, 5,30, 8) = (/&
 & 6.1030e-03_jprb,6.9063e-03_jprb,5.8950e-03_jprb,4.2074e-03_jprb,4.6673e-03_jprb/)  
kbo( :, 1,31, 8) = (/&
 & 1.8116e-03_jprb,2.1021e-03_jprb,1.8264e-03_jprb,1.3426e-03_jprb,2.0192e-03_jprb/)  
kbo( :, 2,31, 8) = (/&
 & 2.4626e-03_jprb,2.8445e-03_jprb,2.4615e-03_jprb,1.7947e-03_jprb,2.3682e-03_jprb/)  
kbo( :, 3,31, 8) = (/&
 & 3.2770e-03_jprb,3.7680e-03_jprb,3.2435e-03_jprb,2.3454e-03_jprb,2.7454e-03_jprb/)  
kbo( :, 4,31, 8) = (/&
 & 4.2825e-03_jprb,4.8933e-03_jprb,4.1907e-03_jprb,3.0057e-03_jprb,3.1516e-03_jprb/)  
kbo( :, 5,31, 8) = (/&
 & 5.5107e-03_jprb,6.2496e-03_jprb,5.3257e-03_jprb,3.7889e-03_jprb,3.5873e-03_jprb/)  
kbo( :, 1,32, 8) = (/&
 & 1.6409e-03_jprb,1.9128e-03_jprb,1.6615e-03_jprb,1.2200e-03_jprb,1.5399e-03_jprb/)  
kbo( :, 2,32, 8) = (/&
 & 2.2276e-03_jprb,2.5834e-03_jprb,2.2335e-03_jprb,1.6257e-03_jprb,1.8108e-03_jprb/)  
kbo( :, 3,32, 8) = (/&
 & 2.9642e-03_jprb,3.4164e-03_jprb,2.9366e-03_jprb,2.1192e-03_jprb,2.1049e-03_jprb/)  
kbo( :, 4,32, 8) = (/&
 & 3.8783e-03_jprb,4.4382e-03_jprb,3.7929e-03_jprb,2.7120e-03_jprb,2.4216e-03_jprb/)  
kbo( :, 5,32, 8) = (/&
 & 5.0008e-03_jprb,5.6727e-03_jprb,4.8212e-03_jprb,3.4168e-03_jprb,2.7630e-03_jprb/)  
kbo( :, 1,33, 8) = (/&
 & 1.4896e-03_jprb,1.7425e-03_jprb,1.5121e-03_jprb,1.1085e-03_jprb,1.1708e-03_jprb/)  
kbo( :, 2,33, 8) = (/&
 & 2.0219e-03_jprb,2.3499e-03_jprb,2.0274e-03_jprb,1.4717e-03_jprb,1.3798e-03_jprb/)  
kbo( :, 3,33, 8) = (/&
 & 2.6933e-03_jprb,3.1059e-03_jprb,2.6641e-03_jprb,1.9145e-03_jprb,1.6078e-03_jprb/)  
kbo( :, 4,33, 8) = (/&
 & 3.5312e-03_jprb,4.0360e-03_jprb,3.4383e-03_jprb,2.4485e-03_jprb,1.8549e-03_jprb/)  
kbo( :, 5,33, 8) = (/&
 & 4.5576e-03_jprb,5.1702e-03_jprb,4.3769e-03_jprb,3.0873e-03_jprb,2.1221e-03_jprb/)  
kbo( :, 1,34, 8) = (/&
 & 1.3461e-03_jprb,1.5773e-03_jprb,1.3654e-03_jprb,9.9848e-04_jprb,9.1828e-04_jprb/)  
kbo( :, 2,34, 8) = (/&
 & 1.8293e-03_jprb,2.1264e-03_jprb,1.8294e-03_jprb,1.3224e-03_jprb,1.0850e-03_jprb/)  
kbo( :, 3,34, 8) = (/&
 & 2.4421e-03_jprb,2.8129e-03_jprb,2.4038e-03_jprb,1.7186e-03_jprb,1.2670e-03_jprb/)  
kbo( :, 4,34, 8) = (/&
 & 3.2077e-03_jprb,3.6631e-03_jprb,3.1076e-03_jprb,2.1997e-03_jprb,1.4654e-03_jprb/)  
kbo( :, 5,34, 8) = (/&
 & 4.1521e-03_jprb,4.7027e-03_jprb,3.9614e-03_jprb,2.7773e-03_jprb,1.6801e-03_jprb/)  
kbo( :, 1,35, 8) = (/&
 & 1.1832e-03_jprb,1.3882e-03_jprb,1.1991e-03_jprb,8.7402e-04_jprb,7.0393e-04_jprb/)  
kbo( :, 2,35, 8) = (/&
 & 1.6136e-03_jprb,1.8765e-03_jprb,1.6089e-03_jprb,1.1585e-03_jprb,8.3445e-04_jprb/)  
kbo( :, 3,35, 8) = (/&
 & 2.1631e-03_jprb,2.4899e-03_jprb,2.1186e-03_jprb,1.5089e-03_jprb,9.7770e-04_jprb/)  
kbo( :, 4,35, 8) = (/&
 & 2.8535e-03_jprb,3.2542e-03_jprb,2.7485e-03_jprb,1.9364e-03_jprb,1.1343e-03_jprb/)  
kbo( :, 5,35, 8) = (/&
 & 3.7092e-03_jprb,4.1965e-03_jprb,3.5164e-03_jprb,2.4522e-03_jprb,1.3039e-03_jprb/)  
kbo( :, 1,36, 8) = (/&
 & 1.0066e-03_jprb,1.1833e-03_jprb,1.0195e-03_jprb,7.4064e-04_jprb,5.2366e-04_jprb/)  
kbo( :, 2,36, 8) = (/&
 & 1.3815e-03_jprb,1.6071e-03_jprb,1.3739e-03_jprb,9.8573e-04_jprb,6.2344e-04_jprb/)  
kbo( :, 3,36, 8) = (/&
 & 1.8626e-03_jprb,2.1449e-03_jprb,1.8191e-03_jprb,1.2898e-03_jprb,7.3360e-04_jprb/)  
kbo( :, 4,36, 8) = (/&
 & 2.4741e-03_jprb,2.8182e-03_jprb,2.3729e-03_jprb,1.6635e-03_jprb,8.5436e-04_jprb/)  
kbo( :, 5,36, 8) = (/&
 & 3.2336e-03_jprb,3.6568e-03_jprb,3.0504e-03_jprb,2.1181e-03_jprb,9.8625e-04_jprb/)  
kbo( :, 1,37, 8) = (/&
 & 8.2084e-04_jprb,9.6709e-04_jprb,8.3229e-04_jprb,6.0374e-04_jprb,4.0420e-04_jprb/)  
kbo( :, 2,37, 8) = (/&
 & 1.1372e-03_jprb,1.3254e-03_jprb,1.1300e-03_jprb,8.0872e-04_jprb,4.8417e-04_jprb/)  
kbo( :, 3,37, 8) = (/&
 & 1.5468e-03_jprb,1.7826e-03_jprb,1.5083e-03_jprb,1.0643e-03_jprb,5.7283e-04_jprb/)  
kbo( :, 4,37, 8) = (/&
 & 2.0724e-03_jprb,2.3603e-03_jprb,1.9807e-03_jprb,1.3829e-03_jprb,6.7031e-04_jprb/)  
kbo( :, 5,37, 8) = (/&
 & 2.7301e-03_jprb,3.0852e-03_jprb,2.5656e-03_jprb,1.7725e-03_jprb,7.7693e-04_jprb/)  
kbo( :, 1,38, 8) = (/&
 & 6.6765e-04_jprb,7.8856e-04_jprb,6.7796e-04_jprb,4.9087e-04_jprb,3.1034e-04_jprb/)  
kbo( :, 2,38, 8) = (/&
 & 9.3399e-04_jprb,1.0908e-03_jprb,9.2831e-04_jprb,6.6210e-04_jprb,3.7420e-04_jprb/)  
kbo( :, 3,38, 8) = (/&
 & 1.2829e-03_jprb,1.4801e-03_jprb,1.2480e-03_jprb,8.7788e-04_jprb,4.4529e-04_jprb/)  
kbo( :, 4,38, 8) = (/&
 & 1.7334e-03_jprb,1.9765e-03_jprb,1.6521e-03_jprb,1.1484e-03_jprb,5.2389e-04_jprb/)  
kbo( :, 5,38, 8) = (/&
 & 2.3042e-03_jprb,2.6028e-03_jprb,2.1565e-03_jprb,1.4823e-03_jprb,6.1008e-04_jprb/)  
kbo( :, 1,39, 8) = (/&
 & 5.4315e-04_jprb,6.4310e-04_jprb,5.5211e-04_jprb,3.9890e-04_jprb,2.3583e-04_jprb/)  
kbo( :, 2,39, 8) = (/&
 & 7.6743e-04_jprb,8.9797e-04_jprb,7.6314e-04_jprb,5.4269e-04_jprb,2.8632e-04_jprb/)  
kbo( :, 3,39, 8) = (/&
 & 1.0649e-03_jprb,1.2299e-03_jprb,1.0342e-03_jprb,7.2462e-04_jprb,3.4293e-04_jprb/)  
kbo( :, 4,39, 8) = (/&
 & 1.4519e-03_jprb,1.6575e-03_jprb,1.3791e-03_jprb,9.5496e-04_jprb,4.0575e-04_jprb/)  
kbo( :, 5,39, 8) = (/&
 & 1.9462e-03_jprb,2.1987e-03_jprb,1.8149e-03_jprb,1.2411e-03_jprb,4.7487e-04_jprb/)  
kbo( :, 1,40, 8) = (/&
 & 4.2660e-04_jprb,5.0722e-04_jprb,4.3537e-04_jprb,3.1438e-04_jprb,1.8128e-04_jprb/)  
kbo( :, 2,40, 8) = (/&
 & 6.1039e-04_jprb,7.1647e-04_jprb,6.0817e-04_jprb,4.3189e-04_jprb,2.2187e-04_jprb/)  
kbo( :, 3,40, 8) = (/&
 & 8.5703e-04_jprb,9.9240e-04_jprb,8.3374e-04_jprb,5.8276e-04_jprb,2.6760e-04_jprb/)  
kbo( :, 4,40, 8) = (/&
 & 1.1823e-03_jprb,1.3510e-03_jprb,1.1225e-03_jprb,7.7459e-04_jprb,3.1857e-04_jprb/)  
kbo( :, 5,40, 8) = (/&
 & 1.6018e-03_jprb,1.8123e-03_jprb,1.4916e-03_jprb,1.0158e-03_jprb,3.7479e-04_jprb/)  
kbo( :, 1,41, 8) = (/&
 & 3.3271e-04_jprb,3.9736e-04_jprb,3.4108e-04_jprb,2.4624e-04_jprb,1.3885e-04_jprb/)  
kbo( :, 2,41, 8) = (/&
 & 4.8225e-04_jprb,5.6846e-04_jprb,4.8237e-04_jprb,3.4216e-04_jprb,1.7137e-04_jprb/)  
kbo( :, 3,41, 8) = (/&
 & 6.8576e-04_jprb,7.9688e-04_jprb,6.6837e-04_jprb,4.6622e-04_jprb,2.0821e-04_jprb/)  
kbo( :, 4,41, 8) = (/&
 & 9.5732e-04_jprb,1.0976e-03_jprb,9.0996e-04_jprb,6.2571e-04_jprb,2.4955e-04_jprb/)  
kbo( :, 5,41, 8) = (/&
 & 1.3120e-03_jprb,1.4870e-03_jprb,1.2214e-03_jprb,8.2829e-04_jprb,2.9516e-04_jprb/)  
kbo( :, 1,42, 8) = (/&
 & 2.5867e-04_jprb,3.1042e-04_jprb,2.6645e-04_jprb,1.9244e-04_jprb,1.0554e-04_jprb/)  
kbo( :, 2,42, 8) = (/&
 & 3.8005e-04_jprb,4.4981e-04_jprb,3.8160e-04_jprb,2.7033e-04_jprb,1.3138e-04_jprb/)  
kbo( :, 3,42, 8) = (/&
 & 5.4750e-04_jprb,6.3852e-04_jprb,5.3511e-04_jprb,3.7262e-04_jprb,1.6089e-04_jprb/)  
kbo( :, 4,42, 8) = (/&
 & 7.7370e-04_jprb,8.8989e-04_jprb,7.3675e-04_jprb,5.0530e-04_jprb,1.9414e-04_jprb/)  
kbo( :, 5,42, 8) = (/&
 & 1.0732e-03_jprb,1.2192e-03_jprb,9.9944e-04_jprb,6.7542e-04_jprb,2.3100e-04_jprb/)  
kbo( :, 1,43, 8) = (/&
 & 1.9608e-04_jprb,2.3654e-04_jprb,2.0330e-04_jprb,1.4692e-04_jprb,7.9640e-05_jprb/)  
kbo( :, 2,43, 8) = (/&
 & 2.9244e-04_jprb,3.4786e-04_jprb,2.9536e-04_jprb,2.0929e-04_jprb,1.0013e-04_jprb/)  
kbo( :, 3,43, 8) = (/&
 & 4.2746e-04_jprb,5.0109e-04_jprb,4.1968e-04_jprb,2.9227e-04_jprb,1.2370e-04_jprb/)  
kbo( :, 4,43, 8) = (/&
 & 6.1258e-04_jprb,7.0737e-04_jprb,5.8531e-04_jprb,4.0077e-04_jprb,1.5047e-04_jprb/)  
kbo( :, 5,43, 8) = (/&
 & 8.6089e-04_jprb,9.8132e-04_jprb,8.0325e-04_jprb,5.4165e-04_jprb,1.8030e-04_jprb/)  
kbo( :, 1,44, 8) = (/&
 & 1.4641e-04_jprb,1.7759e-04_jprb,1.5289e-04_jprb,1.1076e-04_jprb,5.9627e-05_jprb/)  
kbo( :, 2,44, 8) = (/&
 & 2.2184e-04_jprb,2.6534e-04_jprb,2.2560e-04_jprb,1.6005e-04_jprb,7.5777e-05_jprb/)  
kbo( :, 3,44, 8) = (/&
 & 3.2924e-04_jprb,3.8780e-04_jprb,3.2524e-04_jprb,2.2657e-04_jprb,9.4517e-05_jprb/)  
kbo( :, 4,44, 8) = (/&
 & 4.7893e-04_jprb,5.5571e-04_jprb,4.5993e-04_jprb,3.1465e-04_jprb,1.1599e-04_jprb/)  
kbo( :, 5,44, 8) = (/&
 & 6.8243e-04_jprb,7.8130e-04_jprb,6.3916e-04_jprb,4.3040e-04_jprb,1.4006e-04_jprb/)  
kbo( :, 1,45, 8) = (/&
 & 1.0865e-04_jprb,1.3251e-04_jprb,1.1435e-04_jprb,8.2960e-05_jprb,4.4212e-05_jprb/)  
kbo( :, 2,45, 8) = (/&
 & 1.6729e-04_jprb,2.0128e-04_jprb,1.7134e-04_jprb,1.2183e-04_jprb,5.6830e-05_jprb/)  
kbo( :, 3,45, 8) = (/&
 & 2.5229e-04_jprb,2.9908e-04_jprb,2.5083e-04_jprb,1.7486e-04_jprb,7.1604e-05_jprb/)  
kbo( :, 4,45, 8) = (/&
 & 3.7262e-04_jprb,4.3452e-04_jprb,3.5986e-04_jprb,2.4619e-04_jprb,8.8632e-05_jprb/)  
kbo( :, 5,45, 8) = (/&
 & 5.3882e-04_jprb,6.2004e-04_jprb,5.0717e-04_jprb,3.4090e-04_jprb,1.0793e-04_jprb/)  
kbo( :, 1,46, 8) = (/&
 & 7.9358e-05_jprb,9.7327e-05_jprb,8.4209e-05_jprb,6.1250e-05_jprb,3.2459e-05_jprb/)  
kbo( :, 2,46, 8) = (/&
 & 1.2429e-04_jprb,1.5045e-04_jprb,1.2830e-04_jprb,9.1466e-05_jprb,4.2241e-05_jprb/)  
kbo( :, 3,46, 8) = (/&
 & 1.9053e-04_jprb,2.2736e-04_jprb,1.9100e-04_jprb,1.3325e-04_jprb,5.3783e-05_jprb/)  
kbo( :, 4,46, 8) = (/&
 & 2.8614e-04_jprb,3.3570e-04_jprb,2.7828e-04_jprb,1.9050e-04_jprb,6.7218e-05_jprb/)  
kbo( :, 5,46, 8) = (/&
 & 4.2039e-04_jprb,4.8635e-04_jprb,3.9774e-04_jprb,2.6724e-04_jprb,8.2582e-05_jprb/)  
kbo( :, 1,47, 8) = (/&
 & 5.6453e-05_jprb,6.9628e-05_jprb,6.0410e-05_jprb,4.4150e-05_jprb,2.3634e-05_jprb/)  
kbo( :, 2,47, 8) = (/&
 & 9.0039e-05_jprb,1.0971e-04_jprb,9.3809e-05_jprb,6.7082e-05_jprb,3.1174e-05_jprb/)  
kbo( :, 3,47, 8) = (/&
 & 1.4053e-04_jprb,1.6882e-04_jprb,1.4207e-04_jprb,9.9462e-05_jprb,4.0177e-05_jprb/)  
kbo( :, 4,47, 8) = (/&
 & 2.1477e-04_jprb,2.5374e-04_jprb,2.1068e-04_jprb,1.4451e-04_jprb,5.0742e-05_jprb/)  
kbo( :, 5,47, 8) = (/&
 & 3.2088e-04_jprb,3.7357e-04_jprb,3.0615e-04_jprb,2.0585e-04_jprb,6.2901e-05_jprb/)  
kbo( :, 1,48, 8) = (/&
 & 3.9798e-05_jprb,4.9340e-05_jprb,4.2936e-05_jprb,3.1533e-05_jprb,1.7003e-05_jprb/)  
kbo( :, 2,48, 8) = (/&
 & 6.4659e-05_jprb,7.9275e-05_jprb,6.7974e-05_jprb,4.8844e-05_jprb,2.2754e-05_jprb/)  
kbo( :, 3,48, 8) = (/&
 & 1.0277e-04_jprb,1.2433e-04_jprb,1.0493e-04_jprb,7.3715e-05_jprb,2.9706e-05_jprb/)  
kbo( :, 4,48, 8) = (/&
 & 1.5992e-04_jprb,1.9034e-04_jprb,1.5838e-04_jprb,1.0886e-04_jprb,3.7936e-05_jprb/)  
kbo( :, 5,48, 8) = (/&
 & 2.4325e-04_jprb,2.8513e-04_jprb,2.3408e-04_jprb,1.5755e-04_jprb,4.7492e-05_jprb/)  
kbo( :, 1,49, 8) = (/&
 & 2.7802e-05_jprb,3.4616e-05_jprb,3.0218e-05_jprb,2.2308e-05_jprb,1.2061e-05_jprb/)  
kbo( :, 2,49, 8) = (/&
 & 4.6014e-05_jprb,5.6761e-05_jprb,4.8820e-05_jprb,3.5239e-05_jprb,1.6386e-05_jprb/)  
kbo( :, 3,49, 8) = (/&
 & 7.4491e-05_jprb,9.0741e-05_jprb,7.6795e-05_jprb,5.4143e-05_jprb,2.1687e-05_jprb/)  
kbo( :, 4,49, 8) = (/&
 & 1.1802e-04_jprb,1.4153e-04_jprb,1.1806e-04_jprb,8.1356e-05_jprb,2.8022e-05_jprb/)  
kbo( :, 5,49, 8) = (/&
 & 1.8279e-04_jprb,2.1583e-04_jprb,1.7754e-04_jprb,1.1970e-04_jprb,3.5456e-05_jprb/)  
kbo( :, 1,50, 8) = (/&
 & 1.9540e-05_jprb,2.4400e-05_jprb,2.1361e-05_jprb,1.5837e-05_jprb,8.6997e-06_jprb/)  
kbo( :, 2,50, 8) = (/&
 & 3.2918e-05_jprb,4.0822e-05_jprb,3.5205e-05_jprb,2.5512e-05_jprb,1.1990e-05_jprb/)  
kbo( :, 3,50, 8) = (/&
 & 5.4255e-05_jprb,6.6526e-05_jprb,5.6438e-05_jprb,3.9950e-05_jprb,1.6073e-05_jprb/)  
kbo( :, 4,50, 8) = (/&
 & 8.7526e-05_jprb,1.0571e-04_jprb,8.8383e-05_jprb,6.1066e-05_jprb,2.1006e-05_jprb/)  
kbo( :, 5,50, 8) = (/&
 & 1.3799e-04_jprb,1.6415e-04_jprb,1.3524e-04_jprb,9.1334e-05_jprb,2.6847e-05_jprb/)  
kbo( :, 1,51, 8) = (/&
 & 1.3715e-05_jprb,1.7170e-05_jprb,1.5061e-05_jprb,1.1220e-05_jprb,6.3066e-06_jprb/)  
kbo( :, 2,51, 8) = (/&
 & 2.3525e-05_jprb,2.9290e-05_jprb,2.5329e-05_jprb,1.8432e-05_jprb,8.8176e-06_jprb/)  
kbo( :, 3,51, 8) = (/&
 & 3.9460e-05_jprb,4.8672e-05_jprb,4.1377e-05_jprb,2.9397e-05_jprb,1.1971e-05_jprb/)  
kbo( :, 4,51, 8) = (/&
 & 6.4794e-05_jprb,7.8837e-05_jprb,6.6040e-05_jprb,4.5759e-05_jprb,1.5830e-05_jprb/)  
kbo( :, 5,51, 8) = (/&
 & 1.0402e-04_jprb,1.2470e-04_jprb,1.0290e-04_jprb,6.9640e-05_jprb,2.0433e-05_jprb/)  
kbo( :, 1,52, 8) = (/&
 & 9.5578e-06_jprb,1.1986e-05_jprb,1.0529e-05_jprb,7.8831e-06_jprb,4.5278e-06_jprb/)  
kbo( :, 2,52, 8) = (/&
 & 1.6679e-05_jprb,2.0856e-05_jprb,1.8076e-05_jprb,1.3211e-05_jprb,6.4244e-06_jprb/)  
kbo( :, 3,52, 8) = (/&
 & 2.8477e-05_jprb,3.5320e-05_jprb,3.0103e-05_jprb,2.1468e-05_jprb,8.8391e-06_jprb/)  
kbo( :, 4,52, 8) = (/&
 & 4.7594e-05_jprb,5.8357e-05_jprb,4.8987e-05_jprb,3.4026e-05_jprb,1.1833e-05_jprb/)  
kbo( :, 5,52, 8) = (/&
 & 7.7798e-05_jprb,9.3982e-05_jprb,7.7692e-05_jprb,5.2723e-05_jprb,1.5437e-05_jprb/)  
kbo( :, 1,53, 8) = (/&
 & 6.6072e-06_jprb,8.2930e-06_jprb,7.2961e-06_jprb,5.4893e-06_jprb,3.2145e-06_jprb/)  
kbo( :, 2,53, 8) = (/&
 & 1.1726e-05_jprb,1.4716e-05_jprb,1.2781e-05_jprb,9.3822e-06_jprb,4.6284e-06_jprb/)  
kbo( :, 3,53, 8) = (/&
 & 2.0380e-05_jprb,2.5407e-05_jprb,2.1715e-05_jprb,1.5543e-05_jprb,6.4582e-06_jprb/)  
kbo( :, 4,53, 8) = (/&
 & 3.4658e-05_jprb,4.2781e-05_jprb,3.5988e-05_jprb,2.5111e-05_jprb,8.7586e-06_jprb/)  
kbo( :, 5,53, 8) = (/&
 & 5.7694e-05_jprb,7.0240e-05_jprb,5.8204e-05_jprb,3.9606e-05_jprb,1.1558e-05_jprb/)  
kbo( :, 1,54, 8) = (/&
 & 4.6231e-06_jprb,5.8094e-06_jprb,5.1159e-06_jprb,3.8681e-06_jprb,2.3617e-06_jprb/)  
kbo( :, 2,54, 8) = (/&
 & 8.3487e-06_jprb,1.0507e-05_jprb,9.1409e-06_jprb,6.7324e-06_jprb,3.4457e-06_jprb/)  
kbo( :, 3,54, 8) = (/&
 & 1.4749e-05_jprb,1.8473e-05_jprb,1.5818e-05_jprb,1.1366e-05_jprb,4.8678e-06_jprb/)  
kbo( :, 4,54, 8) = (/&
 & 2.5524e-05_jprb,3.1693e-05_jprb,2.6712e-05_jprb,1.8698e-05_jprb,6.6754e-06_jprb/)  
kbo( :, 5,54, 8) = (/&
 & 4.3244e-05_jprb,5.3058e-05_jprb,4.4050e-05_jprb,3.0042e-05_jprb,8.8957e-06_jprb/)  
kbo( :, 1,55, 8) = (/&
 & 3.2435e-06_jprb,4.0809e-06_jprb,3.5968e-06_jprb,2.7333e-06_jprb,1.7666e-06_jprb/)  
kbo( :, 2,55, 8) = (/&
 & 5.9644e-06_jprb,7.5172e-06_jprb,6.5506e-06_jprb,4.8409e-06_jprb,2.6116e-06_jprb/)  
kbo( :, 3,55, 8) = (/&
 & 1.0704e-05_jprb,1.3462e-05_jprb,1.1547e-05_jprb,8.3238e-06_jprb,3.7328e-06_jprb/)  
kbo( :, 4,55, 8) = (/&
 & 1.8846e-05_jprb,2.3522e-05_jprb,1.9854e-05_jprb,1.3943e-05_jprb,5.1720e-06_jprb/)  
kbo( :, 5,55, 8) = (/&
 & 3.2477e-05_jprb,4.0113e-05_jprb,3.3370e-05_jprb,2.2811e-05_jprb,6.9569e-06_jprb/)  
kbo( :, 1,56, 8) = (/&
 & 2.2574e-06_jprb,2.8460e-06_jprb,2.5125e-06_jprb,1.9227e-06_jprb,1.3179e-06_jprb/)  
kbo( :, 2,56, 8) = (/&
 & 4.2369e-06_jprb,5.3474e-06_jprb,4.6648e-06_jprb,3.4587e-06_jprb,1.9756e-06_jprb/)  
kbo( :, 3,56, 8) = (/&
 & 7.7258e-06_jprb,9.7496e-06_jprb,8.3766e-06_jprb,6.0549e-06_jprb,2.8571e-06_jprb/)  
kbo( :, 4,56, 8) = (/&
 & 1.3829e-05_jprb,1.7347e-05_jprb,1.4668e-05_jprb,1.0332e-05_jprb,4.0014e-06_jprb/)  
kbo( :, 5,56, 8) = (/&
 & 2.4242e-05_jprb,3.0140e-05_jprb,2.5119e-05_jprb,1.7219e-05_jprb,5.4349e-06_jprb/)  
kbo( :, 1,57, 8) = (/&
 & 1.5562e-06_jprb,1.9665e-06_jprb,1.7413e-06_jprb,1.3458e-06_jprb,9.8093e-07_jprb/)  
kbo( :, 2,57, 8) = (/&
 & 2.9891e-06_jprb,3.7795e-06_jprb,3.2995e-06_jprb,2.4572e-06_jprb,1.4913e-06_jprb/)  
kbo( :, 3,57, 8) = (/&
 & 5.5415e-06_jprb,7.0117e-06_jprb,6.0356e-06_jprb,4.3741e-06_jprb,2.1827e-06_jprb/)  

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


SUBROUTINE part25

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


kbo( :, 4,57, 8) = (/&
 & 1.0083e-05_jprb,1.2702e-05_jprb,1.0763e-05_jprb,7.6047e-06_jprb,3.0916e-06_jprb/)  
kbo( :, 5,57, 8) = (/&
 & 1.7987e-05_jprb,2.2497e-05_jprb,1.8783e-05_jprb,1.2912e-05_jprb,4.2413e-06_jprb/)  
kbo( :, 1,58, 8) = (/&
 & 1.0750e-06_jprb,1.3607e-06_jprb,1.2097e-06_jprb,9.4788e-07_jprb,7.3838e-07_jprb/)  
kbo( :, 2,58, 8) = (/&
 & 2.1150e-06_jprb,2.6811e-06_jprb,2.3427e-06_jprb,1.7529e-06_jprb,1.1369e-06_jprb/)  
kbo( :, 3,58, 8) = (/&
 & 3.9927e-06_jprb,5.0636e-06_jprb,4.3652e-06_jprb,3.1731e-06_jprb,1.6853e-06_jprb/)  
kbo( :, 4,58, 8) = (/&
 & 7.3820e-06_jprb,9.3320e-06_jprb,7.9215e-06_jprb,5.6104e-06_jprb,2.4126e-06_jprb/)  
kbo( :, 5,58, 8) = (/&
 & 1.3390e-05_jprb,1.6843e-05_jprb,1.4081e-05_jprb,9.7051e-06_jprb,3.3415e-06_jprb/)  
kbo( :, 1,59, 8) = (/&
 & 8.4145e-07_jprb,1.0679e-06_jprb,9.4979e-07_jprb,7.4709e-07_jprb,6.3499e-07_jprb/)  
kbo( :, 2,59, 8) = (/&
 & 1.6828e-06_jprb,2.1406e-06_jprb,1.8681e-06_jprb,1.3967e-06_jprb,9.8499e-07_jprb/)  
kbo( :, 3,59, 8) = (/&
 & 3.2239e-06_jprb,4.0954e-06_jprb,3.5264e-06_jprb,2.5580e-06_jprb,1.4693e-06_jprb/)  
kbo( :, 4,59, 8) = (/&
 & 6.0392e-06_jprb,7.6569e-06_jprb,6.4911e-06_jprb,4.5821e-06_jprb,2.1121e-06_jprb/)  
kbo( :, 5,59, 8) = (/&
 & 1.1097e-05_jprb,1.4009e-05_jprb,1.1691e-05_jprb,8.0420e-06_jprb,2.9314e-06_jprb/)  
kbo( :, 1,13, 9) = (/&
 & 6.2749e-02_jprb,7.2855e-02_jprb,6.7478e-02_jprb,5.3345e-02_jprb,4.4699e-01_jprb/)  
kbo( :, 2,13, 9) = (/&
 & 8.6319e-02_jprb,1.0135e-01_jprb,9.4230e-02_jprb,7.4640e-02_jprb,4.8102e-01_jprb/)  
kbo( :, 3,13, 9) = (/&
 & 1.1531e-01_jprb,1.3583e-01_jprb,1.2671e-01_jprb,1.0042e-01_jprb,5.1621e-01_jprb/)  
kbo( :, 4,13, 9) = (/&
 & 1.4981e-01_jprb,1.7650e-01_jprb,1.6480e-01_jprb,1.3078e-01_jprb,5.5243e-01_jprb/)  
kbo( :, 5,13, 9) = (/&
 & 1.8970e-01_jprb,2.2347e-01_jprb,2.0865e-01_jprb,1.6587e-01_jprb,5.8937e-01_jprb/)  
kbo( :, 1,14, 9) = (/&
 & 5.7187e-02_jprb,6.7301e-02_jprb,6.2129e-02_jprb,4.9110e-02_jprb,3.7769e-01_jprb/)  
kbo( :, 2,14, 9) = (/&
 & 7.8466e-02_jprb,9.3270e-02_jprb,8.6445e-02_jprb,6.8459e-02_jprb,4.0753e-01_jprb/)  
kbo( :, 3,14, 9) = (/&
 & 1.0467e-01_jprb,1.2476e-01_jprb,1.1574e-01_jprb,9.1819e-02_jprb,4.3868e-01_jprb/)  
kbo( :, 4,14, 9) = (/&
 & 1.3581e-01_jprb,1.6192e-01_jprb,1.5034e-01_jprb,1.1930e-01_jprb,4.7064e-01_jprb/)  
kbo( :, 5,14, 9) = (/&
 & 1.7224e-01_jprb,2.0464e-01_jprb,1.9021e-01_jprb,1.5110e-01_jprb,5.0408e-01_jprb/)  
kbo( :, 1,15, 9) = (/&
 & 5.1721e-02_jprb,6.1566e-02_jprb,5.6680e-02_jprb,4.4751e-02_jprb,2.9568e-01_jprb/)  
kbo( :, 2,15, 9) = (/&
 & 7.0936e-02_jprb,8.5115e-02_jprb,7.8492e-02_jprb,6.2182e-02_jprb,3.2213e-01_jprb/)  
kbo( :, 3,15, 9) = (/&
 & 9.4515e-02_jprb,1.1370e-01_jprb,1.0486e-01_jprb,8.3182e-02_jprb,3.4986e-01_jprb/)  
kbo( :, 4,15, 9) = (/&
 & 1.2289e-01_jprb,1.4728e-01_jprb,1.3607e-01_jprb,1.0790e-01_jprb,3.7853e-01_jprb/)  
kbo( :, 5,15, 9) = (/&
 & 1.5637e-01_jprb,1.8627e-01_jprb,1.7195e-01_jprb,1.3626e-01_jprb,4.0894e-01_jprb/)  
kbo( :, 1,16, 9) = (/&
 & 4.6578e-02_jprb,5.5911e-02_jprb,5.1274e-02_jprb,4.0416e-02_jprb,2.2673e-01_jprb/)  
kbo( :, 2,16, 9) = (/&
 & 6.3866e-02_jprb,7.7158e-02_jprb,7.0810e-02_jprb,5.5944e-02_jprb,2.5071e-01_jprb/)  
kbo( :, 3,16, 9) = (/&
 & 8.5294e-02_jprb,1.0285e-01_jprb,9.4463e-02_jprb,7.4731e-02_jprb,2.7559e-01_jprb/)  
kbo( :, 4,16, 9) = (/&
 & 1.1126e-01_jprb,1.3331e-01_jprb,1.2237e-01_jprb,9.6725e-02_jprb,3.0207e-01_jprb/)  
kbo( :, 5,16, 9) = (/&
 & 1.4207e-01_jprb,1.6889e-01_jprb,1.5467e-01_jprb,1.2182e-01_jprb,3.3015e-01_jprb/)  
kbo( :, 1,17, 9) = (/&
 & 4.1900e-02_jprb,5.0464e-02_jprb,4.6053e-02_jprb,3.6179e-02_jprb,1.8226e-01_jprb/)  
kbo( :, 2,17, 9) = (/&
 & 5.7522e-02_jprb,6.9444e-02_jprb,6.3472e-02_jprb,4.9973e-02_jprb,2.0447e-01_jprb/)  
kbo( :, 3,17, 9) = (/&
 & 7.7026e-02_jprb,9.2538e-02_jprb,8.4551e-02_jprb,6.6605e-02_jprb,2.2810e-01_jprb/)  
kbo( :, 4,17, 9) = (/&
 & 1.0079e-01_jprb,1.2017e-01_jprb,1.0955e-01_jprb,8.5985e-02_jprb,2.5342e-01_jprb/)  
kbo( :, 5,17, 9) = (/&
 & 1.2927e-01_jprb,1.5258e-01_jprb,1.3846e-01_jprb,1.0816e-01_jprb,2.7946e-01_jprb/)  
kbo( :, 1,18, 9) = (/&
 & 3.7891e-02_jprb,4.5454e-02_jprb,4.1197e-02_jprb,3.2260e-02_jprb,1.5403e-01_jprb/)  
kbo( :, 2,18, 9) = (/&
 & 5.2057e-02_jprb,6.2358e-02_jprb,5.6644e-02_jprb,4.4449e-02_jprb,1.7502e-01_jprb/)  
kbo( :, 3,18, 9) = (/&
 & 6.9815e-02_jprb,8.3160e-02_jprb,7.5488e-02_jprb,5.9051e-02_jprb,1.9748e-01_jprb/)  
kbo( :, 4,18, 9) = (/&
 & 9.1668e-02_jprb,1.0819e-01_jprb,9.7824e-02_jprb,7.6130e-02_jprb,2.2105e-01_jprb/)  
kbo( :, 5,18, 9) = (/&
 & 1.1799e-01_jprb,1.3770e-01_jprb,1.2371e-01_jprb,9.5780e-02_jprb,2.4525e-01_jprb/)  
kbo( :, 1,19, 9) = (/&
 & 3.4441e-02_jprb,4.0854e-02_jprb,3.6785e-02_jprb,2.8648e-02_jprb,1.3592e-01_jprb/)  
kbo( :, 2,19, 9) = (/&
 & 4.7310e-02_jprb,5.6014e-02_jprb,5.0505e-02_jprb,3.9333e-02_jprb,1.5599e-01_jprb/)  
kbo( :, 3,19, 9) = (/&
 & 6.3559e-02_jprb,7.4763e-02_jprb,6.7291e-02_jprb,5.2149e-02_jprb,1.7738e-01_jprb/)  
kbo( :, 4,19, 9) = (/&
 & 8.3699e-02_jprb,9.7466e-02_jprb,8.7225e-02_jprb,6.7250e-02_jprb,1.9960e-01_jprb/)  
kbo( :, 5,19, 9) = (/&
 & 1.0809e-01_jprb,1.2436e-01_jprb,1.1051e-01_jprb,8.4704e-02_jprb,2.2240e-01_jprb/)  
kbo( :, 1,20, 9) = (/&
 & 3.1662e-02_jprb,3.7011e-02_jprb,3.3064e-02_jprb,2.5535e-02_jprb,1.2166e-01_jprb/)  
kbo( :, 2,20, 9) = (/&
 & 4.3462e-02_jprb,5.0683e-02_jprb,4.5312e-02_jprb,3.4918e-02_jprb,1.4050e-01_jprb/)  
kbo( :, 3,20, 9) = (/&
 & 5.8468e-02_jprb,6.7693e-02_jprb,6.0291e-02_jprb,4.6251e-02_jprb,1.6041e-01_jprb/)  
kbo( :, 4,20, 9) = (/&
 & 7.7082e-02_jprb,8.8368e-02_jprb,7.8218e-02_jprb,5.9632e-02_jprb,1.8092e-01_jprb/)  
kbo( :, 5,20, 9) = (/&
 & 9.9590e-02_jprb,1.1296e-01_jprb,9.9282e-02_jprb,7.5236e-02_jprb,2.0180e-01_jprb/)  
kbo( :, 1,21, 9) = (/&
 & 2.9197e-02_jprb,3.3644e-02_jprb,2.9800e-02_jprb,2.2751e-02_jprb,1.0840e-01_jprb/)  
kbo( :, 2,21, 9) = (/&
 & 4.0061e-02_jprb,4.6022e-02_jprb,4.0720e-02_jprb,3.1025e-02_jprb,1.2575e-01_jprb/)  
kbo( :, 3,21, 9) = (/&
 & 5.3879e-02_jprb,6.1513e-02_jprb,5.4145e-02_jprb,4.1071e-02_jprb,1.4377e-01_jprb/)  
kbo( :, 4,21, 9) = (/&
 & 7.1035e-02_jprb,8.0368e-02_jprb,7.0344e-02_jprb,5.2993e-02_jprb,1.6228e-01_jprb/)  
kbo( :, 5,21, 9) = (/&
 & 9.1717e-02_jprb,1.0275e-01_jprb,8.9495e-02_jprb,6.6978e-02_jprb,1.8109e-01_jprb/)  
kbo( :, 1,22, 9) = (/&
 & 2.7499e-02_jprb,3.1251e-02_jprb,2.7449e-02_jprb,2.0717e-02_jprb,9.5123e-02_jprb/)  
kbo( :, 2,22, 9) = (/&
 & 3.7657e-02_jprb,4.2715e-02_jprb,3.7381e-02_jprb,2.8145e-02_jprb,1.1043e-01_jprb/)  
kbo( :, 3,22, 9) = (/&
 & 5.0562e-02_jprb,5.6977e-02_jprb,4.9664e-02_jprb,3.7184e-02_jprb,1.2615e-01_jprb/)  
kbo( :, 4,22, 9) = (/&
 & 6.6397e-02_jprb,7.4321e-02_jprb,6.4486e-02_jprb,4.7986e-02_jprb,1.4210e-01_jprb/)  
kbo( :, 5,22, 9) = (/&
 & 8.5266e-02_jprb,9.4958e-02_jprb,8.2045e-02_jprb,6.0712e-02_jprb,1.5827e-01_jprb/)  
kbo( :, 1,23, 9) = (/&
 & 2.5951e-02_jprb,2.9125e-02_jprb,2.5330e-02_jprb,1.8934e-02_jprb,8.2353e-02_jprb/)  
kbo( :, 2,23, 9) = (/&
 & 3.5455e-02_jprb,3.9694e-02_jprb,3.4441e-02_jprb,2.5641e-02_jprb,9.5317e-02_jprb/)  
kbo( :, 3,23, 9) = (/&
 & 4.7331e-02_jprb,5.2838e-02_jprb,4.5688e-02_jprb,3.3836e-02_jprb,1.0857e-01_jprb/)  
kbo( :, 4,23, 9) = (/&
 & 6.1763e-02_jprb,6.8758e-02_jprb,5.9284e-02_jprb,4.3652e-02_jprb,1.2209e-01_jprb/)  
kbo( :, 5,23, 9) = (/&
 & 7.8933e-02_jprb,8.7537e-02_jprb,7.5364e-02_jprb,5.5173e-02_jprb,1.3590e-01_jprb/)  
kbo( :, 1,24, 9) = (/&
 & 2.4473e-02_jprb,2.7169e-02_jprb,2.3444e-02_jprb,1.7363e-02_jprb,6.9430e-02_jprb/)  
kbo( :, 2,24, 9) = (/&
 & 3.3250e-02_jprb,3.6936e-02_jprb,3.1810e-02_jprb,2.3462e-02_jprb,8.0157e-02_jprb/)  
kbo( :, 3,24, 9) = (/&
 & 4.4117e-02_jprb,4.8975e-02_jprb,4.2123e-02_jprb,3.0921e-02_jprb,9.1223e-02_jprb/)  
kbo( :, 4,24, 9) = (/&
 & 5.7285e-02_jprb,6.3439e-02_jprb,5.4524e-02_jprb,3.9854e-02_jprb,1.0266e-01_jprb/)  
kbo( :, 5,24, 9) = (/&
 & 7.2998e-02_jprb,8.0524e-02_jprb,6.9109e-02_jprb,5.0332e-02_jprb,1.1441e-01_jprb/)  
kbo( :, 1,25, 9) = (/&
 & 2.3088e-02_jprb,2.5438e-02_jprb,2.1801e-02_jprb,1.6002e-02_jprb,5.7837e-02_jprb/)  
kbo( :, 2,25, 9) = (/&
 & 3.1174e-02_jprb,3.4396e-02_jprb,2.9493e-02_jprb,2.1569e-02_jprb,6.6784e-02_jprb/)  
kbo( :, 3,25, 9) = (/&
 & 4.1147e-02_jprb,4.5360e-02_jprb,3.8891e-02_jprb,2.8375e-02_jprb,7.6101e-02_jprb/)  
kbo( :, 4,25, 9) = (/&
 & 5.3244e-02_jprb,5.8521e-02_jprb,5.0118e-02_jprb,3.6473e-02_jprb,8.5758e-02_jprb/)  
kbo( :, 5,25, 9) = (/&
 & 6.7659e-02_jprb,7.4121e-02_jprb,6.3317e-02_jprb,4.5953e-02_jprb,9.5693e-02_jprb/)  
kbo( :, 1,26, 9) = (/&
 & 2.1853e-02_jprb,2.3928e-02_jprb,2.0426e-02_jprb,1.4853e-02_jprb,4.8392e-02_jprb/)  
kbo( :, 2,26, 9) = (/&
 & 2.9360e-02_jprb,3.2138e-02_jprb,2.7449e-02_jprb,1.9958e-02_jprb,5.5916e-02_jprb/)  
kbo( :, 3,26, 9) = (/&
 & 3.8590e-02_jprb,4.2170e-02_jprb,3.5993e-02_jprb,2.6138e-02_jprb,6.3792e-02_jprb/)  
kbo( :, 4,26, 9) = (/&
 & 4.9775e-02_jprb,5.4242e-02_jprb,4.6206e-02_jprb,3.3463e-02_jprb,7.1975e-02_jprb/)  
kbo( :, 5,26, 9) = (/&
 & 6.3079e-02_jprb,6.8549e-02_jprb,5.8245e-02_jprb,4.2044e-02_jprb,8.0448e-02_jprb/)  
kbo( :, 1,27, 9) = (/&
 & 2.0589e-02_jprb,2.2432e-02_jprb,1.9091e-02_jprb,1.3798e-02_jprb,3.9711e-02_jprb/)  
kbo( :, 2,27, 9) = (/&
 & 2.7577e-02_jprb,2.9992e-02_jprb,2.5499e-02_jprb,1.8441e-02_jprb,4.5946e-02_jprb/)  
kbo( :, 3,27, 9) = (/&
 & 3.6163e-02_jprb,3.9222e-02_jprb,3.3292e-02_jprb,2.4027e-02_jprb,5.2514e-02_jprb/)  
kbo( :, 4,27, 9) = (/&
 & 4.6525e-02_jprb,5.0331e-02_jprb,4.2630e-02_jprb,3.0669e-02_jprb,5.9354e-02_jprb/)  
kbo( :, 5,27, 9) = (/&
 & 5.8822e-02_jprb,6.3502e-02_jprb,5.3650e-02_jprb,3.8505e-02_jprb,6.6468e-02_jprb/)  
kbo( :, 1,28, 9) = (/&
 & 1.9320e-02_jprb,2.0975e-02_jprb,1.7795e-02_jprb,1.2791e-02_jprb,3.1912e-02_jprb/)  
kbo( :, 2,28, 9) = (/&
 & 2.5855e-02_jprb,2.7959e-02_jprb,2.3678e-02_jprb,1.7000e-02_jprb,3.7011e-02_jprb/)  
kbo( :, 3,28, 9) = (/&
 & 3.3864e-02_jprb,3.6500e-02_jprb,3.0839e-02_jprb,2.2082e-02_jprb,4.2382e-02_jprb/)  
kbo( :, 4,28, 9) = (/&
 & 4.3478e-02_jprb,4.6764e-02_jprb,3.9410e-02_jprb,2.8143e-02_jprb,4.8009e-02_jprb/)  
kbo( :, 5,28, 9) = (/&
 & 5.4874e-02_jprb,5.8907e-02_jprb,4.9537e-02_jprb,3.5320e-02_jprb,5.3947e-02_jprb/)  
kbo( :, 1,29, 9) = (/&
 & 1.8123e-02_jprb,1.9628e-02_jprb,1.6597e-02_jprb,1.1861e-02_jprb,2.5423e-02_jprb/)  
kbo( :, 2,29, 9) = (/&
 & 2.4225e-02_jprb,2.6121e-02_jprb,2.2032e-02_jprb,1.5699e-02_jprb,2.9542e-02_jprb/)  
kbo( :, 3,29, 9) = (/&
 & 3.1700e-02_jprb,3.4031e-02_jprb,2.8639e-02_jprb,2.0345e-02_jprb,3.3911e-02_jprb/)  
kbo( :, 4,29, 9) = (/&
 & 4.0663e-02_jprb,4.3529e-02_jprb,3.6544e-02_jprb,2.5917e-02_jprb,3.8545e-02_jprb/)  
kbo( :, 5,29, 9) = (/&
 & 5.1268e-02_jprb,5.4769e-02_jprb,4.5895e-02_jprb,3.2522e-02_jprb,4.3488e-02_jprb/)  
kbo( :, 1,30, 9) = (/&
 & 1.6958e-02_jprb,1.8364e-02_jprb,1.5479e-02_jprb,1.0998e-02_jprb,1.9951e-02_jprb/)  
kbo( :, 2,30, 9) = (/&
 & 2.2671e-02_jprb,2.4409e-02_jprb,2.0518e-02_jprb,1.4521e-02_jprb,2.3241e-02_jprb/)  
kbo( :, 3,30, 9) = (/&
 & 2.9641e-02_jprb,3.1772e-02_jprb,2.6628e-02_jprb,1.8795e-02_jprb,2.6766e-02_jprb/)  
kbo( :, 4,30, 9) = (/&
 & 3.8012e-02_jprb,4.0581e-02_jprb,3.3943e-02_jprb,2.3935e-02_jprb,3.0561e-02_jprb/)  
kbo( :, 5,30, 9) = (/&
 & 4.7908e-02_jprb,5.1031e-02_jprb,4.2627e-02_jprb,3.0033e-02_jprb,3.4653e-02_jprb/)  
kbo( :, 1,31, 9) = (/&
 & 1.5875e-02_jprb,1.7181e-02_jprb,1.4459e-02_jprb,1.0211e-02_jprb,1.5400e-02_jprb/)  
kbo( :, 2,31, 9) = (/&
 & 2.1201e-02_jprb,2.2826e-02_jprb,1.9139e-02_jprb,1.3463e-02_jprb,1.8009e-02_jprb/)  
kbo( :, 3,31, 9) = (/&
 & 2.7703e-02_jprb,2.9694e-02_jprb,2.4816e-02_jprb,1.7421e-02_jprb,2.0837e-02_jprb/)  
kbo( :, 4,31, 9) = (/&
 & 3.5538e-02_jprb,3.7926e-02_jprb,3.1623e-02_jprb,2.2179e-02_jprb,2.3914e-02_jprb/)  
kbo( :, 5,31, 9) = (/&
 & 4.4824e-02_jprb,4.7692e-02_jprb,3.9738e-02_jprb,2.7844e-02_jprb,2.7277e-02_jprb/)  
kbo( :, 1,32, 9) = (/&
 & 1.4881e-02_jprb,1.6116e-02_jprb,1.3532e-02_jprb,9.5127e-03_jprb,1.1925e-02_jprb/)  
kbo( :, 2,32, 9) = (/&
 & 1.9865e-02_jprb,2.1395e-02_jprb,1.7905e-02_jprb,1.2529e-02_jprb,1.4004e-02_jprb/)  
kbo( :, 3,32, 9) = (/&
 & 2.5959e-02_jprb,2.7823e-02_jprb,2.3208e-02_jprb,1.6206e-02_jprb,1.6285e-02_jprb/)  
kbo( :, 4,32, 9) = (/&
 & 3.3313e-02_jprb,3.5564e-02_jprb,2.9600e-02_jprb,2.0639e-02_jprb,1.8807e-02_jprb/)  
kbo( :, 5,32, 9) = (/&
 & 4.2060e-02_jprb,4.4782e-02_jprb,3.7223e-02_jprb,2.5926e-02_jprb,2.1578e-02_jprb/)  
kbo( :, 1,33, 9) = (/&
 & 1.3967e-02_jprb,1.5144e-02_jprb,1.2690e-02_jprb,8.8844e-03_jprb,9.2074e-03_jprb/)  
kbo( :, 2,33, 9) = (/&
 & 1.8640e-02_jprb,2.0097e-02_jprb,1.6785e-02_jprb,1.1705e-02_jprb,1.0873e-02_jprb/)  
kbo( :, 3,33, 9) = (/&
 & 2.4387e-02_jprb,2.6153e-02_jprb,2.1778e-02_jprb,1.5136e-02_jprb,1.2726e-02_jprb/)  
kbo( :, 4,33, 9) = (/&
 & 3.1327e-02_jprb,3.3471e-02_jprb,2.7814e-02_jprb,1.9292e-02_jprb,1.4787e-02_jprb/)  
kbo( :, 5,33, 9) = (/&
 & 3.9572e-02_jprb,4.2221e-02_jprb,3.5044e-02_jprb,2.4264e-02_jprb,1.7080e-02_jprb/)  
kbo( :, 1,34, 9) = (/&
 & 1.3038e-02_jprb,1.4154e-02_jprb,1.1832e-02_jprb,8.2492e-03_jprb,7.3647e-03_jprb/)  
kbo( :, 2,34, 9) = (/&
 & 1.7420e-02_jprb,1.8798e-02_jprb,1.5659e-02_jprb,1.0876e-02_jprb,8.7412e-03_jprb/)  
kbo( :, 3,34, 9) = (/&
 & 2.2825e-02_jprb,2.4500e-02_jprb,2.0360e-02_jprb,1.4089e-02_jprb,1.0289e-02_jprb/)  
kbo( :, 4,34, 9) = (/&
 & 2.9360e-02_jprb,3.1418e-02_jprb,2.6065e-02_jprb,1.7978e-02_jprb,1.2027e-02_jprb/)  
kbo( :, 5,34, 9) = (/&
 & 3.7137e-02_jprb,3.9713e-02_jprb,3.2919e-02_jprb,2.2661e-02_jprb,1.3976e-02_jprb/)  
kbo( :, 1,35, 9) = (/&
 & 1.1851e-02_jprb,1.2890e-02_jprb,1.0761e-02_jprb,7.4718e-03_jprb,5.7550e-03_jprb/)  
kbo( :, 2,35, 9) = (/&
 & 1.5900e-02_jprb,1.7182e-02_jprb,1.4286e-02_jprb,9.8834e-03_jprb,6.8791e-03_jprb/)  
kbo( :, 3,35, 9) = (/&
 & 2.0897e-02_jprb,2.2486e-02_jprb,1.8648e-02_jprb,1.2848e-02_jprb,8.1522e-03_jprb/)  
kbo( :, 4,35, 9) = (/&
 & 2.6965e-02_jprb,2.8940e-02_jprb,2.3971e-02_jprb,1.6457e-02_jprb,9.5922e-03_jprb/)  
kbo( :, 5,35, 9) = (/&
 & 3.4238e-02_jprb,3.6722e-02_jprb,3.0385e-02_jprb,2.0819e-02_jprb,1.1216e-02_jprb/)  
kbo( :, 1,36, 9) = (/&
 & 1.0455e-02_jprb,1.1397e-02_jprb,9.5033e-03_jprb,6.5755e-03_jprb,4.3571e-03_jprb/)  
kbo( :, 2,36, 9) = (/&
 & 1.4117e-02_jprb,1.5290e-02_jprb,1.2699e-02_jprb,8.7484e-03_jprb,5.2508e-03_jprb/)  
kbo( :, 3,36, 9) = (/&
 & 1.8658e-02_jprb,2.0138e-02_jprb,1.6673e-02_jprb,1.1439e-02_jprb,6.2734e-03_jprb/)  
kbo( :, 4,36, 9) = (/&
 & 2.4204e-02_jprb,2.6071e-02_jprb,2.1551e-02_jprb,1.4738e-02_jprb,7.4336e-03_jprb/)  
kbo( :, 5,36, 9) = (/&
 & 3.0898e-02_jprb,3.3263e-02_jprb,2.7471e-02_jprb,1.8745e-02_jprb,8.7508e-03_jprb/)  
kbo( :, 1,37, 9) = (/&
 & 8.8498e-03_jprb,9.6657e-03_jprb,8.0482e-03_jprb,5.5507e-03_jprb,3.4394e-03_jprb/)  
kbo( :, 2,37, 9) = (/&
 & 1.2053e-02_jprb,1.3088e-02_jprb,1.0850e-02_jprb,7.4463e-03_jprb,4.1756e-03_jprb/)  
kbo( :, 3,37, 9) = (/&
 & 1.6053e-02_jprb,1.7380e-02_jprb,1.4373e-02_jprb,9.8197e-03_jprb,5.0255e-03_jprb/)  
kbo( :, 4,37, 9) = (/&
 & 2.0992e-02_jprb,2.2697e-02_jprb,1.8723e-02_jprb,1.2754e-02_jprb,5.9977e-03_jprb/)  
kbo( :, 5,37, 9) = (/&
 & 2.6999e-02_jprb,2.9182e-02_jprb,2.4048e-02_jprb,1.6341e-02_jprb,7.1081e-03_jprb/)  
kbo( :, 1,38, 9) = (/&
 & 7.4680e-03_jprb,8.1793e-03_jprb,6.8001e-03_jprb,4.6741e-03_jprb,2.7036e-03_jprb/)  
kbo( :, 2,38, 9) = (/&
 & 1.0268e-02_jprb,1.1184e-02_jprb,9.2546e-03_jprb,6.3288e-03_jprb,3.3094e-03_jprb/)  
kbo( :, 3,38, 9) = (/&
 & 1.3799e-02_jprb,1.4987e-02_jprb,1.2370e-02_jprb,8.4204e-03_jprb,4.0136e-03_jprb/)  
kbo( :, 4,38, 9) = (/&
 & 1.8189e-02_jprb,1.9741e-02_jprb,1.6260e-02_jprb,1.1031e-02_jprb,4.8267e-03_jprb/)  
kbo( :, 5,38, 9) = (/&
 & 2.3579e-02_jprb,2.5605e-02_jprb,2.1052e-02_jprb,1.4244e-02_jprb,5.7626e-03_jprb/)  
kbo( :, 1,39, 9) = (/&
 & 6.2942e-03_jprb,6.9249e-03_jprb,5.7460e-03_jprb,3.9360e-03_jprb,2.1044e-03_jprb/)  
kbo( :, 2,39, 9) = (/&
 & 8.7432e-03_jprb,9.5663e-03_jprb,7.9000e-03_jprb,5.3823e-03_jprb,2.5994e-03_jprb/)  
kbo( :, 3,39, 9) = (/&
 & 1.1864e-02_jprb,1.2937e-02_jprb,1.0660e-02_jprb,7.2304e-03_jprb,3.1792e-03_jprb/)  

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


SUBROUTINE part26

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


kbo( :, 4,39, 9) = (/&
 & 1.5781e-02_jprb,1.7197e-02_jprb,1.4145e-02_jprb,9.5554e-03_jprb,3.8556e-03_jprb/)  
kbo( :, 5,39, 9) = (/&
 & 2.0624e-02_jprb,2.2512e-02_jprb,1.8470e-02_jprb,1.2443e-02_jprb,4.6381e-03_jprb/)  
kbo( :, 1,40, 9) = (/&
 & 5.1375e-03_jprb,5.6803e-03_jprb,4.7069e-03_jprb,3.2115e-03_jprb,1.6578e-03_jprb/)  
kbo( :, 2,40, 9) = (/&
 & 7.2291e-03_jprb,7.9459e-03_jprb,6.5495e-03_jprb,4.4441e-03_jprb,2.0666e-03_jprb/)  
kbo( :, 3,40, 9) = (/&
 & 9.9296e-03_jprb,1.0871e-02_jprb,8.9384e-03_jprb,6.0392e-03_jprb,2.5498e-03_jprb/)  
kbo( :, 4,40, 9) = (/&
 & 1.3354e-02_jprb,1.4603e-02_jprb,1.1989e-02_jprb,8.0664e-03_jprb,3.1172e-03_jprb/)  
kbo( :, 5,40, 9) = (/&
 & 1.7630e-02_jprb,1.9320e-02_jprb,1.5819e-02_jprb,1.0610e-02_jprb,3.7783e-03_jprb/)  
kbo( :, 1,41, 9) = (/&
 & 4.1669e-03_jprb,4.6307e-03_jprb,3.8311e-03_jprb,2.6055e-03_jprb,1.3022e-03_jprb/)  
kbo( :, 2,41, 9) = (/&
 & 5.9450e-03_jprb,6.5654e-03_jprb,5.4031e-03_jprb,3.6497e-03_jprb,1.6387e-03_jprb/)  
kbo( :, 3,41, 9) = (/&
 & 8.2702e-03_jprb,9.0939e-03_jprb,7.4627e-03_jprb,5.0204e-03_jprb,2.0406e-03_jprb/)  
kbo( :, 4,41, 9) = (/&
 & 1.1254e-02_jprb,1.2358e-02_jprb,1.0124e-02_jprb,6.7836e-03_jprb,2.5160e-03_jprb/)  
kbo( :, 5,41, 9) = (/&
 & 1.5021e-02_jprb,1.6526e-02_jprb,1.3505e-02_jprb,9.0170e-03_jprb,3.0745e-03_jprb/)  
kbo( :, 1,42, 9) = (/&
 & 3.3673e-03_jprb,3.7618e-03_jprb,3.1084e-03_jprb,2.1093e-03_jprb,1.0159e-03_jprb/)  
kbo( :, 2,42, 9) = (/&
 & 4.8758e-03_jprb,5.4116e-03_jprb,4.4469e-03_jprb,2.9930e-03_jprb,1.2910e-03_jprb/)  
kbo( :, 3,42, 9) = (/&
 & 6.8765e-03_jprb,7.5957e-03_jprb,6.2240e-03_jprb,4.1675e-03_jprb,1.6231e-03_jprb/)  
kbo( :, 4,42, 9) = (/&
 & 9.4703e-03_jprb,1.0449e-02_jprb,8.5426e-03_jprb,5.6988e-03_jprb,2.0195e-03_jprb/)  
kbo( :, 5,42, 9) = (/&
 & 1.2789e-02_jprb,1.4133e-02_jprb,1.1527e-02_jprb,7.6610e-03_jprb,2.4891e-03_jprb/)  
kbo( :, 1,43, 9) = (/&
 & 2.6545e-03_jprb,2.9817e-03_jprb,2.4611e-03_jprb,1.6672e-03_jprb,7.8914e-04_jprb/)  
kbo( :, 2,43, 9) = (/&
 & 3.9072e-03_jprb,4.3601e-03_jprb,3.5785e-03_jprb,2.4026e-03_jprb,1.0130e-03_jprb/)  
kbo( :, 3,43, 9) = (/&
 & 5.5970e-03_jprb,6.2146e-03_jprb,5.0833e-03_jprb,3.3914e-03_jprb,1.2871e-03_jprb/)  
kbo( :, 4,43, 9) = (/&
 & 7.8170e-03_jprb,8.6680e-03_jprb,7.0728e-03_jprb,4.6984e-03_jprb,1.6175e-03_jprb/)  
kbo( :, 5,43, 9) = (/&
 & 1.0695e-02_jprb,1.1876e-02_jprb,9.6670e-03_jprb,6.3964e-03_jprb,2.0136e-03_jprb/)  
kbo( :, 1,44, 9) = (/&
 & 2.0599e-03_jprb,2.3264e-03_jprb,1.9189e-03_jprb,1.2982e-03_jprb,6.1043e-04_jprb/)  
kbo( :, 2,44, 9) = (/&
 & 3.0865e-03_jprb,3.4632e-03_jprb,2.8398e-03_jprb,1.9029e-03_jprb,7.9160e-04_jprb/)  
kbo( :, 3,44, 9) = (/&
 & 4.4945e-03_jprb,5.0200e-03_jprb,4.1009e-03_jprb,2.7282e-03_jprb,1.0166e-03_jprb/)  
kbo( :, 4,44, 9) = (/&
 & 6.3771e-03_jprb,7.1092e-03_jprb,5.7918e-03_jprb,3.8324e-03_jprb,1.2916e-03_jprb/)  
kbo( :, 5,44, 9) = (/&
 & 8.8507e-03_jprb,9.8816e-03_jprb,8.0271e-03_jprb,5.2885e-03_jprb,1.6254e-03_jprb/)  
kbo( :, 1,45, 9) = (/&
 & 1.5883e-03_jprb,1.8029e-03_jprb,1.4862e-03_jprb,1.0041e-03_jprb,4.6915e-04_jprb/)  
kbo( :, 2,45, 9) = (/&
 & 2.4237e-03_jprb,2.7348e-03_jprb,2.2402e-03_jprb,1.4983e-03_jprb,6.1463e-04_jprb/)  
kbo( :, 3,45, 9) = (/&
 & 3.5915e-03_jprb,4.0353e-03_jprb,3.2920e-03_jprb,2.1847e-03_jprb,7.9813e-04_jprb/)  
kbo( :, 4,45, 9) = (/&
 & 5.1787e-03_jprb,5.8074e-03_jprb,4.7242e-03_jprb,3.1158e-03_jprb,1.0255e-03_jprb/)  
kbo( :, 5,45, 9) = (/&
 & 7.2977e-03_jprb,8.1949e-03_jprb,6.6455e-03_jprb,4.3597e-03_jprb,1.3052e-03_jprb/)  
kbo( :, 1,46, 9) = (/&
 & 1.2050e-03_jprb,1.3752e-03_jprb,1.1327e-03_jprb,7.6415e-04_jprb,3.5825e-04_jprb/)  
kbo( :, 2,46, 9) = (/&
 & 1.8745e-03_jprb,2.1271e-03_jprb,1.7406e-03_jprb,1.1623e-03_jprb,4.7455e-04_jprb/)  
kbo( :, 3,46, 9) = (/&
 & 2.8292e-03_jprb,3.1990e-03_jprb,2.6058e-03_jprb,1.7261e-03_jprb,6.2280e-04_jprb/)  
kbo( :, 4,46, 9) = (/&
 & 4.1523e-03_jprb,4.6867e-03_jprb,3.8068e-03_jprb,2.5043e-03_jprb,8.0997e-04_jprb/)  
kbo( :, 5,46, 9) = (/&
 & 5.9484e-03_jprb,6.7211e-03_jprb,5.4412e-03_jprb,3.5566e-03_jprb,1.0425e-03_jprb/)  
kbo( :, 1,47, 9) = (/&
 & 8.9059e-04_jprb,1.0221e-03_jprb,8.4076e-04_jprb,5.6652e-04_jprb,2.7270e-04_jprb/)  
kbo( :, 2,47, 9) = (/&
 & 1.4154e-03_jprb,1.6142e-03_jprb,1.3191e-03_jprb,8.8003e-04_jprb,3.6578e-04_jprb/)  
kbo( :, 3,47, 9) = (/&
 & 2.1790e-03_jprb,2.4785e-03_jprb,2.0162e-03_jprb,1.3331e-03_jprb,4.8487e-04_jprb/)  
kbo( :, 4,47, 9) = (/&
 & 3.2603e-03_jprb,3.7035e-03_jprb,3.0033e-03_jprb,1.9711e-03_jprb,6.3790e-04_jprb/)  
kbo( :, 5,47, 9) = (/&
 & 4.7543e-03_jprb,5.4065e-03_jprb,4.3698e-03_jprb,2.8478e-03_jprb,8.3079e-04_jprb/)  
kbo( :, 1,48, 9) = (/&
 & 6.5137e-04_jprb,7.5160e-04_jprb,6.1768e-04_jprb,4.1559e-04_jprb,2.0605e-04_jprb/)  
kbo( :, 2,48, 9) = (/&
 & 1.0584e-03_jprb,1.2128e-03_jprb,9.8996e-04_jprb,6.6009e-04_jprb,2.8014e-04_jprb/)  
kbo( :, 3,48, 9) = (/&
 & 1.6631e-03_jprb,1.9026e-03_jprb,1.5461e-03_jprb,1.0205e-03_jprb,3.7581e-04_jprb/)  
kbo( :, 4,48, 9) = (/&
 & 2.5384e-03_jprb,2.9025e-03_jprb,2.3504e-03_jprb,1.5394e-03_jprb,4.9967e-04_jprb/)  
kbo( :, 5,48, 9) = (/&
 & 3.7716e-03_jprb,4.3191e-03_jprb,3.4853e-03_jprb,2.2659e-03_jprb,6.5826e-04_jprb/)  
kbo( :, 1,49, 9) = (/&
 & 4.7074e-04_jprb,5.4614e-04_jprb,4.4842e-04_jprb,3.0149e-04_jprb,1.5387e-04_jprb/)  
kbo( :, 2,49, 9) = (/&
 & 7.8312e-04_jprb,9.0147e-04_jprb,7.3522e-04_jprb,4.8971e-04_jprb,2.1293e-04_jprb/)  
kbo( :, 3,49, 9) = (/&
 & 1.2566e-03_jprb,1.4457e-03_jprb,1.1738e-03_jprb,7.7341e-04_jprb,2.8949e-04_jprb/)  
kbo( :, 4,49, 9) = (/&
 & 1.9577e-03_jprb,2.2532e-03_jprb,1.8228e-03_jprb,1.1917e-03_jprb,3.8929e-04_jprb/)  
kbo( :, 5,49, 9) = (/&
 & 2.9665e-03_jprb,3.4229e-03_jprb,2.7586e-03_jprb,1.7902e-03_jprb,5.1846e-04_jprb/)  
kbo( :, 1,50, 9) = (/&
 & 3.4213e-04_jprb,3.9935e-04_jprb,3.2746e-04_jprb,2.1988e-04_jprb,1.1674e-04_jprb/)  
kbo( :, 2,50, 9) = (/&
 & 5.8343e-04_jprb,6.7437e-04_jprb,5.4936e-04_jprb,3.6511e-04_jprb,1.6480e-04_jprb/)  
kbo( :, 3,50, 9) = (/&
 & 9.5650e-04_jprb,1.1046e-03_jprb,8.9539e-04_jprb,5.8873e-04_jprb,2.2733e-04_jprb/)  
kbo( :, 4,50, 9) = (/&
 & 1.5196e-03_jprb,1.7582e-03_jprb,1.4207e-03_jprb,9.2622e-04_jprb,3.0916e-04_jprb/)  
kbo( :, 5,50, 9) = (/&
 & 2.3472e-03_jprb,2.7261e-03_jprb,2.1933e-03_jprb,1.4203e-03_jprb,4.1592e-04_jprb/)  
kbo( :, 1,51, 9) = (/&
 & 2.4775e-04_jprb,2.9121e-04_jprb,2.3870e-04_jprb,1.5996e-04_jprb,8.8877e-05_jprb/)  
kbo( :, 2,51, 9) = (/&
 & 4.3433e-04_jprb,5.0395e-04_jprb,4.0996e-04_jprb,2.7183e-04_jprb,1.2827e-04_jprb/)  
kbo( :, 3,51, 9) = (/&
 & 7.2809e-04_jprb,8.4314e-04_jprb,6.8222e-04_jprb,4.4757e-04_jprb,1.8017e-04_jprb/)  
kbo( :, 4,51, 9) = (/&
 & 1.1797e-03_jprb,1.3708e-03_jprb,1.1057e-03_jprb,7.1871e-04_jprb,2.4785e-04_jprb/)  
kbo( :, 5,51, 9) = (/&
 & 1.8569e-03_jprb,2.1693e-03_jprb,1.7420e-03_jprb,1.1250e-03_jprb,3.3679e-04_jprb/)  
kbo( :, 1,52, 9) = (/&
 & 1.7722e-04_jprb,2.0977e-04_jprb,1.7188e-04_jprb,1.1517e-04_jprb,6.6934e-05_jprb/)  
kbo( :, 2,52, 9) = (/&
 & 3.1988e-04_jprb,3.7329e-04_jprb,3.0314e-04_jprb,2.0061e-04_jprb,9.9021e-05_jprb/)  
kbo( :, 3,52, 9) = (/&
 & 5.4977e-04_jprb,6.3853e-04_jprb,5.1539e-04_jprb,3.3762e-04_jprb,1.4208e-04_jprb/)  
kbo( :, 4,52, 9) = (/&
 & 9.0908e-04_jprb,1.0602e-03_jprb,8.5370e-04_jprb,5.5342e-04_jprb,1.9834e-04_jprb/)  
kbo( :, 5,52, 9) = (/&
 & 1.4584e-03_jprb,1.7130e-03_jprb,1.3740e-03_jprb,8.8469e-04_jprb,2.7257e-04_jprb/)  
kbo( :, 1,53, 9) = (/&
 & 1.2486e-04_jprb,1.4876e-04_jprb,1.2192e-04_jprb,8.1756e-05_jprb,4.9810e-05_jprb/)  
kbo( :, 2,53, 9) = (/&
 & 2.3236e-04_jprb,2.7326e-04_jprb,2.2175e-04_jprb,1.4647e-04_jprb,7.5549e-05_jprb/)  
kbo( :, 3,53, 9) = (/&
 & 4.1092e-04_jprb,4.7878e-04_jprb,3.8566e-04_jprb,2.5219e-04_jprb,1.1108e-04_jprb/)  
kbo( :, 4,53, 9) = (/&
 & 6.9449e-04_jprb,8.1233e-04_jprb,6.5288e-04_jprb,4.2235e-04_jprb,1.5818e-04_jprb/)  
kbo( :, 5,53, 9) = (/&
 & 1.1362e-03_jprb,1.3415e-03_jprb,1.0746e-03_jprb,6.9016e-04_jprb,2.1993e-04_jprb/)  
kbo( :, 1,54, 9) = (/&
 & 8.9225e-05_jprb,1.0698e-04_jprb,8.7651e-05_jprb,5.8813e-05_jprb,3.8030e-05_jprb/)  
kbo( :, 2,54, 9) = (/&
 & 1.7137e-04_jprb,2.0293e-04_jprb,1.6456e-04_jprb,1.0850e-04_jprb,5.9001e-05_jprb/)  
kbo( :, 3,54, 9) = (/&
 & 3.1189e-04_jprb,3.6460e-04_jprb,2.9303e-04_jprb,1.9101e-04_jprb,8.8833e-05_jprb/)  
kbo( :, 4,54, 9) = (/&
 & 5.3932e-04_jprb,6.3180e-04_jprb,5.0597e-04_jprb,3.2631e-04_jprb,1.2913e-04_jprb/)  
kbo( :, 5,54, 9) = (/&
 & 8.9911e-04_jprb,1.0637e-03_jprb,8.5017e-04_jprb,5.4403e-04_jprb,1.8204e-04_jprb/)  
kbo( :, 1,55, 9) = (/&
 & 6.3909e-05_jprb,7.7058e-05_jprb,6.3103e-05_jprb,4.2365e-05_jprb,2.9408e-05_jprb/)  
kbo( :, 2,55, 9) = (/&
 & 1.2694e-04_jprb,1.5118e-04_jprb,1.2247e-04_jprb,8.0640e-05_jprb,4.6546e-05_jprb/)  
kbo( :, 3,55, 9) = (/&
 & 2.3779e-04_jprb,2.7922e-04_jprb,2.2392e-04_jprb,1.4533e-04_jprb,7.1755e-05_jprb/)  
kbo( :, 4,55, 9) = (/&
 & 4.2152e-04_jprb,4.9417e-04_jprb,3.9420e-04_jprb,2.5317e-04_jprb,1.0664e-04_jprb/)  
kbo( :, 5,55, 9) = (/&
 & 7.1633e-04_jprb,8.4754e-04_jprb,6.7522e-04_jprb,4.3025e-04_jprb,1.5287e-04_jprb/)  
kbo( :, 1,56, 9) = (/&
 & 4.5238e-05_jprb,5.4873e-05_jprb,4.4919e-05_jprb,3.0179e-05_jprb,2.2620e-05_jprb/)  
kbo( :, 2,56, 9) = (/&
 & 9.3046e-05_jprb,1.1152e-04_jprb,9.0251e-05_jprb,5.9375e-05_jprb,3.6523e-05_jprb/)  
kbo( :, 3,56, 9) = (/&
 & 1.7973e-04_jprb,2.1224e-04_jprb,1.6993e-04_jprb,1.0998e-04_jprb,5.7678e-05_jprb/)  
kbo( :, 4,56, 9) = (/&
 & 3.2753e-04_jprb,3.8449e-04_jprb,3.0571e-04_jprb,1.9550e-04_jprb,8.7776e-05_jprb/)  
kbo( :, 5,56, 9) = (/&
 & 5.6860e-04_jprb,6.7252e-04_jprb,5.3373e-04_jprb,3.3864e-04_jprb,1.2833e-04_jprb/)  
kbo( :, 1,57, 9) = (/&
 & 3.1565e-05_jprb,3.8561e-05_jprb,3.1572e-05_jprb,2.1236e-05_jprb,1.7319e-05_jprb/)  
kbo( :, 2,57, 9) = (/&
 & 6.7437e-05_jprb,8.1368e-05_jprb,6.5785e-05_jprb,4.3278e-05_jprb,2.8513e-05_jprb/)  
kbo( :, 3,57, 9) = (/&
 & 1.3453e-04_jprb,1.5983e-04_jprb,1.2788e-04_jprb,8.2634e-05_jprb,4.6105e-05_jprb/)  
kbo( :, 4,57, 9) = (/&
 & 2.5265e-04_jprb,2.9731e-04_jprb,2.3573e-04_jprb,1.5020e-04_jprb,7.1946e-05_jprb/)  
kbo( :, 5,57, 9) = (/&
 & 4.4894e-04_jprb,5.3119e-04_jprb,4.1979e-04_jprb,2.6517e-04_jprb,1.0766e-04_jprb/)  
kbo( :, 1,58, 9) = (/&
 & 2.2075e-05_jprb,2.7134e-05_jprb,2.2226e-05_jprb,1.4971e-05_jprb,1.3364e-05_jprb/)  
kbo( :, 2,58, 9) = (/&
 & 4.8978e-05_jprb,5.9454e-05_jprb,4.8051e-05_jprb,3.1593e-05_jprb,2.2406e-05_jprb/)  
kbo( :, 3,58, 9) = (/&
 & 1.0101e-04_jprb,1.2083e-04_jprb,9.6543e-05_jprb,6.2301e-05_jprb,3.7078e-05_jprb/)  
kbo( :, 4,58, 9) = (/&
 & 1.9559e-04_jprb,2.3110e-04_jprb,1.8274e-04_jprb,1.1601e-04_jprb,5.9357e-05_jprb/)  
kbo( :, 5,58, 9) = (/&
 & 3.5639e-04_jprb,4.2210e-04_jprb,3.3215e-04_jprb,2.0879e-04_jprb,9.0999e-05_jprb/)  
kbo( :, 1,59, 9) = (/&
 & 1.8162e-05_jprb,2.2362e-05_jprb,1.8260e-05_jprb,1.2253e-05_jprb,1.1708e-05_jprb/)  
kbo( :, 2,59, 9) = (/&
 & 4.1323e-05_jprb,5.0285e-05_jprb,4.0483e-05_jprb,2.6494e-05_jprb,1.9897e-05_jprb/)  
kbo( :, 3,59, 9) = (/&
 & 8.7123e-05_jprb,1.0455e-04_jprb,8.3213e-05_jprb,5.3390e-05_jprb,3.3400e-05_jprb/)  
kbo( :, 4,59, 9) = (/&
 & 1.7214e-04_jprb,2.0391e-04_jprb,1.6047e-04_jprb,1.0123e-04_jprb,5.4263e-05_jprb/)  
kbo( :, 5,59, 9) = (/&
 & 3.1897e-04_jprb,3.7825e-04_jprb,2.9606e-04_jprb,1.8480e-04_jprb,8.4393e-05_jprb/)  
kbo( :, 1,13,10) = (/&
 & 2.7341e-01_jprb,2.7526e-01_jprb,2.5183e-01_jprb,1.9261e-01_jprb,1.4210e+00_jprb/)  
kbo( :, 2,13,10) = (/&
 & 3.8641e-01_jprb,3.8931e-01_jprb,3.5500e-01_jprb,2.7363e-01_jprb,1.5250e+00_jprb/)  
kbo( :, 3,13,10) = (/&
 & 5.2101e-01_jprb,5.2751e-01_jprb,4.7841e-01_jprb,3.7012e-01_jprb,1.6242e+00_jprb/)  
kbo( :, 4,13,10) = (/&
 & 6.7807e-01_jprb,6.8631e-01_jprb,6.2447e-01_jprb,4.8162e-01_jprb,1.7236e+00_jprb/)  
kbo( :, 5,13,10) = (/&
 & 8.5732e-01_jprb,8.6502e-01_jprb,7.8632e-01_jprb,6.0788e-01_jprb,1.8353e+00_jprb/)  
kbo( :, 1,14,10) = (/&
 & 2.6100e-01_jprb,2.7217e-01_jprb,2.4857e-01_jprb,1.9099e-01_jprb,1.3096e+00_jprb/)  
kbo( :, 2,14,10) = (/&
 & 3.6662e-01_jprb,3.8321e-01_jprb,3.4838e-01_jprb,2.6817e-01_jprb,1.4048e+00_jprb/)  
kbo( :, 3,14,10) = (/&
 & 4.9302e-01_jprb,5.1421e-01_jprb,4.6962e-01_jprb,3.6021e-01_jprb,1.4986e+00_jprb/)  
kbo( :, 4,14,10) = (/&
 & 6.4068e-01_jprb,6.6503e-01_jprb,6.0806e-01_jprb,4.6655e-01_jprb,1.6008e+00_jprb/)  
kbo( :, 5,14,10) = (/&
 & 8.0594e-01_jprb,8.3870e-01_jprb,7.6286e-01_jprb,5.8739e-01_jprb,1.6996e+00_jprb/)  
kbo( :, 1,15,10) = (/&
 & 2.4538e-01_jprb,2.6450e-01_jprb,2.4065e-01_jprb,1.8544e-01_jprb,1.0991e+00_jprb/)  
kbo( :, 2,15,10) = (/&
 & 3.4290e-01_jprb,3.6880e-01_jprb,3.3714e-01_jprb,2.5768e-01_jprb,1.1807e+00_jprb/)  
kbo( :, 3,15,10) = (/&
 & 4.6008e-01_jprb,4.9212e-01_jprb,4.5111e-01_jprb,3.4351e-01_jprb,1.2655e+00_jprb/)  
kbo( :, 4,15,10) = (/&
 & 5.9510e-01_jprb,6.3591e-01_jprb,5.8042e-01_jprb,4.4347e-01_jprb,1.3538e+00_jprb/)  
kbo( :, 5,15,10) = (/&
 & 7.4431e-01_jprb,7.9818e-01_jprb,7.2810e-01_jprb,5.5870e-01_jprb,1.4415e+00_jprb/)  
kbo( :, 1,16,10) = (/&
 & 2.2814e-01_jprb,2.5112e-01_jprb,2.2894e-01_jprb,1.7604e-01_jprb,8.6918e-01_jprb/)  
kbo( :, 2,16,10) = (/&
 & 3.1740e-01_jprb,3.4815e-01_jprb,3.1813e-01_jprb,2.4321e-01_jprb,9.3794e-01_jprb/)  
kbo( :, 3,16,10) = (/&
 & 4.2406e-01_jprb,4.6410e-01_jprb,4.2260e-01_jprb,3.2211e-01_jprb,1.0122e+00_jprb/)  
kbo( :, 4,16,10) = (/&
 & 5.4520e-01_jprb,5.9870e-01_jprb,5.4328e-01_jprb,4.1424e-01_jprb,1.0849e+00_jprb/)  
kbo( :, 5,16,10) = (/&
 & 6.8053e-01_jprb,7.4608e-01_jprb,6.8074e-01_jprb,5.2205e-01_jprb,1.1616e+00_jprb/)  
kbo( :, 1,17,10) = (/&
 & 2.0942e-01_jprb,2.3428e-01_jprb,2.1300e-01_jprb,1.6357e-01_jprb,6.8856e-01_jprb/)  
kbo( :, 2,17,10) = (/&
 & 2.9028e-01_jprb,3.2402e-01_jprb,2.9334e-01_jprb,2.2459e-01_jprb,7.5316e-01_jprb/)  
kbo( :, 3,17,10) = (/&
 & 3.8521e-01_jprb,4.3154e-01_jprb,3.8848e-01_jprb,2.9660e-01_jprb,8.1712e-01_jprb/)  
kbo( :, 4,17,10) = (/&
 & 4.9386e-01_jprb,5.5280e-01_jprb,4.9908e-01_jprb,3.8197e-01_jprb,8.8331e-01_jprb/)  
kbo( :, 5,17,10) = (/&
 & 6.1488e-01_jprb,6.8821e-01_jprb,6.2452e-01_jprb,4.7879e-01_jprb,9.5857e-01_jprb/)  
kbo( :, 1,18,10) = (/&
 & 1.9063e-01_jprb,2.1561e-01_jprb,1.9503e-01_jprb,1.4897e-01_jprb,5.8262e-01_jprb/)  
kbo( :, 2,18,10) = (/&
 & 2.6234e-01_jprb,2.9815e-01_jprb,2.6727e-01_jprb,2.0340e-01_jprb,6.4437e-01_jprb/)  
kbo( :, 3,18,10) = (/&
 & 3.4666e-01_jprb,3.9448e-01_jprb,3.5278e-01_jprb,2.6945e-01_jprb,7.0773e-01_jprb/)  
kbo( :, 4,18,10) = (/&
 & 4.4310e-01_jprb,5.0370e-01_jprb,4.5197e-01_jprb,3.4624e-01_jprb,7.7610e-01_jprb/)  
kbo( :, 5,18,10) = (/&
 & 5.4979e-01_jprb,6.2640e-01_jprb,5.6607e-01_jprb,4.3269e-01_jprb,8.4498e-01_jprb/)  
kbo( :, 1,19,10) = (/&
 & 1.7161e-01_jprb,1.9659e-01_jprb,1.7592e-01_jprb,1.3400e-01_jprb,5.2315e-01_jprb/)  
kbo( :, 2,19,10) = (/&
 & 2.3489e-01_jprb,2.7003e-01_jprb,2.4068e-01_jprb,1.8320e-01_jprb,5.8488e-01_jprb/)  
kbo( :, 3,19,10) = (/&
 & 3.0942e-01_jprb,3.5576e-01_jprb,3.1712e-01_jprb,2.4210e-01_jprb,6.4789e-01_jprb/)  
kbo( :, 4,19,10) = (/&
 & 3.9389e-01_jprb,4.5374e-01_jprb,4.0629e-01_jprb,3.0999e-01_jprb,7.1351e-01_jprb/)  
kbo( :, 5,19,10) = (/&
 & 4.8891e-01_jprb,5.6402e-01_jprb,5.0679e-01_jprb,3.8613e-01_jprb,7.7670e-01_jprb/)  
kbo( :, 1,20,10) = (/&
 & 1.5436e-01_jprb,1.7849e-01_jprb,1.5835e-01_jprb,1.2054e-01_jprb,4.8122e-01_jprb/)  
kbo( :, 2,20,10) = (/&
 & 2.1037e-01_jprb,2.4329e-01_jprb,2.1594e-01_jprb,1.6475e-01_jprb,5.4083e-01_jprb/)  
kbo( :, 3,20,10) = (/&
 & 2.7588e-01_jprb,3.1923e-01_jprb,2.8475e-01_jprb,2.1683e-01_jprb,6.0229e-01_jprb/)  
kbo( :, 4,20,10) = (/&
 & 3.5179e-01_jprb,4.0673e-01_jprb,3.6356e-01_jprb,2.7647e-01_jprb,6.6389e-01_jprb/)  
kbo( :, 5,20,10) = (/&
 & 4.3944e-01_jprb,5.0591e-01_jprb,4.5161e-01_jprb,3.4309e-01_jprb,7.2588e-01_jprb/)  
kbo( :, 1,21,10) = (/&
 & 1.3931e-01_jprb,1.6061e-01_jprb,1.4210e-01_jprb,1.0800e-01_jprb,4.4082e-01_jprb/)  
kbo( :, 2,21,10) = (/&
 & 1.8903e-01_jprb,2.1792e-01_jprb,1.9361e-01_jprb,1.4691e-01_jprb,4.9685e-01_jprb/)  
kbo( :, 3,21,10) = (/&
 & 2.4836e-01_jprb,2.8494e-01_jprb,2.5423e-01_jprb,1.9232e-01_jprb,5.5604e-01_jprb/)  

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


SUBROUTINE part27

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


kbo( :, 4,21,10) = (/&
 & 3.1855e-01_jprb,3.6313e-01_jprb,3.2325e-01_jprb,2.4463e-01_jprb,6.1543e-01_jprb/)  
kbo( :, 5,21,10) = (/&
 & 4.0034e-01_jprb,4.5346e-01_jprb,4.0071e-01_jprb,3.0346e-01_jprb,6.7562e-01_jprb/)  
kbo( :, 1,22,10) = (/&
 & 1.2853e-01_jprb,1.4730e-01_jprb,1.3012e-01_jprb,9.8419e-02_jprb,3.9506e-01_jprb/)  
kbo( :, 2,22,10) = (/&
 & 1.7432e-01_jprb,1.9857e-01_jprb,1.7621e-01_jprb,1.3274e-01_jprb,4.4910e-01_jprb/)  
kbo( :, 3,22,10) = (/&
 & 2.3012e-01_jprb,2.5984e-01_jprb,2.2960e-01_jprb,1.7295e-01_jprb,5.0505e-01_jprb/)  
kbo( :, 4,22,10) = (/&
 & 2.9716e-01_jprb,3.3163e-01_jprb,2.9126e-01_jprb,2.1891e-01_jprb,5.6304e-01_jprb/)  
kbo( :, 5,22,10) = (/&
 & 3.7733e-01_jprb,4.1497e-01_jprb,3.6137e-01_jprb,2.7093e-01_jprb,6.2241e-01_jprb/)  
kbo( :, 1,23,10) = (/&
 & 1.1881e-01_jprb,1.3545e-01_jprb,1.1944e-01_jprb,8.9244e-02_jprb,3.5223e-01_jprb/)  
kbo( :, 2,23,10) = (/&
 & 1.6173e-01_jprb,1.8250e-01_jprb,1.6019e-01_jprb,1.1960e-01_jprb,4.0380e-01_jprb/)  
kbo( :, 3,23,10) = (/&
 & 2.1531e-01_jprb,2.3918e-01_jprb,2.0828e-01_jprb,1.5508e-01_jprb,4.5685e-01_jprb/)  
kbo( :, 4,23,10) = (/&
 & 2.8111e-01_jprb,3.0634e-01_jprb,2.6433e-01_jprb,1.9616e-01_jprb,5.1050e-01_jprb/)  
kbo( :, 5,23,10) = (/&
 & 3.5862e-01_jprb,3.8538e-01_jprb,3.2913e-01_jprb,2.4336e-01_jprb,5.6512e-01_jprb/)  
kbo( :, 1,24,10) = (/&
 & 1.1051e-01_jprb,1.2496e-01_jprb,1.0957e-01_jprb,8.1032e-02_jprb,3.1062e-01_jprb/)  
kbo( :, 2,24,10) = (/&
 & 1.5172e-01_jprb,1.6880e-01_jprb,1.4660e-01_jprb,1.0802e-01_jprb,3.5601e-01_jprb/)  
kbo( :, 3,24,10) = (/&
 & 2.0376e-01_jprb,2.2212e-01_jprb,1.9093e-01_jprb,1.3969e-01_jprb,4.0151e-01_jprb/)  
kbo( :, 4,24,10) = (/&
 & 2.6595e-01_jprb,2.8670e-01_jprb,2.4290e-01_jprb,1.7693e-01_jprb,4.4655e-01_jprb/)  
kbo( :, 5,24,10) = (/&
 & 3.3711e-01_jprb,3.6154e-01_jprb,3.0421e-01_jprb,2.2016e-01_jprb,4.9307e-01_jprb/)  
kbo( :, 1,25,10) = (/&
 & 1.0420e-01_jprb,1.1612e-01_jprb,1.0071e-01_jprb,7.3994e-02_jprb,2.6769e-01_jprb/)  
kbo( :, 2,25,10) = (/&
 & 1.4379e-01_jprb,1.5740e-01_jprb,1.3501e-01_jprb,9.8353e-02_jprb,3.0486e-01_jprb/)  
kbo( :, 3,25,10) = (/&
 & 1.9217e-01_jprb,2.0868e-01_jprb,1.7650e-01_jprb,1.2735e-01_jprb,3.4236e-01_jprb/)  
kbo( :, 4,25,10) = (/&
 & 2.4870e-01_jprb,2.6919e-01_jprb,2.2634e-01_jprb,1.6171e-01_jprb,3.8148e-01_jprb/)  
kbo( :, 5,25,10) = (/&
 & 3.1377e-01_jprb,3.3803e-01_jprb,2.8442e-01_jprb,2.0146e-01_jprb,4.2272e-01_jprb/)  
kbo( :, 1,26,10) = (/&
 & 9.9675e-02_jprb,1.0913e-01_jprb,9.3389e-02_jprb,6.8204e-02_jprb,2.2702e-01_jprb/)  
kbo( :, 2,26,10) = (/&
 & 1.3608e-01_jprb,1.4866e-01_jprb,1.2587e-01_jprb,9.0548e-02_jprb,2.5831e-01_jprb/)  
kbo( :, 3,26,10) = (/&
 & 1.7987e-01_jprb,1.9629e-01_jprb,1.6531e-01_jprb,1.1761e-01_jprb,2.9077e-01_jprb/)  
kbo( :, 4,26,10) = (/&
 & 2.3141e-01_jprb,2.5133e-01_jprb,2.1184e-01_jprb,1.5002e-01_jprb,3.2521e-01_jprb/)  
kbo( :, 5,26,10) = (/&
 & 2.9168e-01_jprb,3.1498e-01_jprb,2.6568e-01_jprb,1.8754e-01_jprb,3.6164e-01_jprb/)  
kbo( :, 1,27,10) = (/&
 & 9.4961e-02_jprb,1.0334e-01_jprb,8.7374e-02_jprb,6.3126e-02_jprb,1.8683e-01_jprb/)  
kbo( :, 2,27,10) = (/&
 & 1.2783e-01_jprb,1.3969e-01_jprb,1.1790e-01_jprb,8.4112e-02_jprb,2.1332e-01_jprb/)  
kbo( :, 3,27,10) = (/&
 & 1.6762e-01_jprb,1.8278e-01_jprb,1.5442e-01_jprb,1.0984e-01_jprb,2.4142e-01_jprb/)  
kbo( :, 4,27,10) = (/&
 & 2.1518e-01_jprb,2.3329e-01_jprb,1.9719e-01_jprb,1.3996e-01_jprb,2.7159e-01_jprb/)  
kbo( :, 5,27,10) = (/&
 & 2.7088e-01_jprb,2.9228e-01_jprb,2.4666e-01_jprb,1.7442e-01_jprb,3.0352e-01_jprb/)  
kbo( :, 1,28,10) = (/&
 & 8.9894e-02_jprb,9.7468e-02_jprb,8.2177e-02_jprb,5.8889e-02_jprb,1.5060e-01_jprb/)  
kbo( :, 2,28,10) = (/&
 & 1.1988e-01_jprb,1.3035e-01_jprb,1.1000e-01_jprb,7.8738e-02_jprb,1.7287e-01_jprb/)  
kbo( :, 3,28,10) = (/&
 & 1.5649e-01_jprb,1.6957e-01_jprb,1.4329e-01_jprb,1.0256e-01_jprb,1.9707e-01_jprb/)  
kbo( :, 4,28,10) = (/&
 & 2.0046e-01_jprb,2.1640e-01_jprb,1.8266e-01_jprb,1.3021e-01_jprb,2.2305e-01_jprb/)  
kbo( :, 5,28,10) = (/&
 & 2.5209e-01_jprb,2.7147e-01_jprb,2.2856e-01_jprb,1.6182e-01_jprb,2.5048e-01_jprb/)  
kbo( :, 1,29,10) = (/&
 & 8.4975e-02_jprb,9.1564e-02_jprb,7.7119e-02_jprb,5.5320e-02_jprb,1.2031e-01_jprb/)  
kbo( :, 2,29,10) = (/&
 & 1.1279e-01_jprb,1.2154e-01_jprb,1.0248e-01_jprb,7.3699e-02_jprb,1.3921e-01_jprb/)  
kbo( :, 3,29,10) = (/&
 & 1.4673e-01_jprb,1.5792e-01_jprb,1.3309e-01_jprb,9.5449e-02_jprb,1.5984e-01_jprb/)  
kbo( :, 4,29,10) = (/&
 & 1.8741e-01_jprb,2.0158e-01_jprb,1.6951e-01_jprb,1.2082e-01_jprb,1.8203e-01_jprb/)  
kbo( :, 5,29,10) = (/&
 & 2.3506e-01_jprb,2.5337e-01_jprb,2.1224e-01_jprb,1.5053e-01_jprb,2.0549e-01_jprb/)  
kbo( :, 1,30,10) = (/&
 & 8.0540e-02_jprb,8.5979e-02_jprb,7.2248e-02_jprb,5.1838e-02_jprb,9.5257e-02_jprb/)  
kbo( :, 2,30,10) = (/&
 & 1.0659e-01_jprb,1.1363e-01_jprb,9.5542e-02_jprb,6.8630e-02_jprb,1.1116e-01_jprb/)  
kbo( :, 3,30,10) = (/&
 & 1.3811e-01_jprb,1.4769e-01_jprb,1.2398e-01_jprb,8.8651e-02_jprb,1.2851e-01_jprb/)  
kbo( :, 4,30,10) = (/&
 & 1.7576e-01_jprb,1.8885e-01_jprb,1.5795e-01_jprb,1.1230e-01_jprb,1.4704e-01_jprb/)  
kbo( :, 5,30,10) = (/&
 & 2.1968e-01_jprb,2.3750e-01_jprb,1.9778e-01_jprb,1.4034e-01_jprb,1.6746e-01_jprb/)  
kbo( :, 1,31,10) = (/&
 & 7.6568e-02_jprb,8.1013e-02_jprb,6.7877e-02_jprb,4.8531e-02_jprb,7.4566e-02_jprb/)  
kbo( :, 2,31,10) = (/&
 & 1.0109e-01_jprb,1.0699e-01_jprb,8.9628e-02_jprb,6.3973e-02_jprb,8.7642e-02_jprb/)  
kbo( :, 3,31,10) = (/&
 & 1.3062e-01_jprb,1.3896e-01_jprb,1.1618e-01_jprb,8.2665e-02_jprb,1.0209e-01_jprb/)  
kbo( :, 4,31,10) = (/&
 & 1.6550e-01_jprb,1.7774e-01_jprb,1.4814e-01_jprb,1.0503e-01_jprb,1.1802e-01_jprb/)  
kbo( :, 5,31,10) = (/&
 & 2.0675e-01_jprb,2.2327e-01_jprb,1.8555e-01_jprb,1.3151e-01_jprb,1.3544e-01_jprb/)  
kbo( :, 1,32,10) = (/&
 & 7.2888e-02_jprb,7.6838e-02_jprb,6.4126e-02_jprb,4.5495e-02_jprb,5.8817e-02_jprb/)  
kbo( :, 2,32,10) = (/&
 & 9.6267e-02_jprb,1.0140e-01_jprb,8.4579e-02_jprb,5.9945e-02_jprb,6.9773e-02_jprb/)  
kbo( :, 3,32,10) = (/&
 & 1.2398e-01_jprb,1.3170e-01_jprb,1.0960e-01_jprb,7.7555e-02_jprb,8.1997e-02_jprb/)  
kbo( :, 4,32,10) = (/&
 & 1.5682e-01_jprb,1.6810e-01_jprb,1.3960e-01_jprb,9.8812e-02_jprb,9.5528e-02_jprb/)  
kbo( :, 5,32,10) = (/&
 & 1.9594e-01_jprb,2.1107e-01_jprb,1.7505e-01_jprb,1.2416e-01_jprb,1.1090e-01_jprb/)  
kbo( :, 1,33,10) = (/&
 & 6.9635e-02_jprb,7.3317e-02_jprb,6.1010e-02_jprb,4.2865e-02_jprb,4.6660e-02_jprb/)  
kbo( :, 2,33,10) = (/&
 & 9.1701e-02_jprb,9.6759e-02_jprb,8.0326e-02_jprb,5.6501e-02_jprb,5.5833e-02_jprb/)  
kbo( :, 3,33,10) = (/&
 & 1.1801e-01_jprb,1.2540e-01_jprb,1.0406e-01_jprb,7.3316e-02_jprb,6.6138e-02_jprb/)  
kbo( :, 4,33,10) = (/&
 & 1.4953e-01_jprb,1.5985e-01_jprb,1.3238e-01_jprb,9.3601e-02_jprb,7.7808e-02_jprb/)  
kbo( :, 5,33,10) = (/&
 & 1.8727e-01_jprb,2.0108e-01_jprb,1.6621e-01_jprb,1.1789e-01_jprb,9.1029e-02_jprb/)  
kbo( :, 1,34,10) = (/&
 & 6.6051e-02_jprb,6.9606e-02_jprb,5.7793e-02_jprb,4.0300e-02_jprb,3.8390e-02_jprb/)  
kbo( :, 2,34,10) = (/&
 & 8.6850e-02_jprb,9.2010e-02_jprb,7.6104e-02_jprb,5.3129e-02_jprb,4.6300e-02_jprb/)  
kbo( :, 3,34,10) = (/&
 & 1.1190e-01_jprb,1.1902e-01_jprb,9.8376e-02_jprb,6.9059e-02_jprb,5.5243e-02_jprb/)  
kbo( :, 4,34,10) = (/&
 & 1.4227e-01_jprb,1.5193e-01_jprb,1.2534e-01_jprb,8.8424e-02_jprb,6.5503e-02_jprb/)  
kbo( :, 5,34,10) = (/&
 & 1.7893e-01_jprb,1.9164e-01_jprb,1.5780e-01_jprb,1.1159e-01_jprb,7.7108e-02_jprb/)  
kbo( :, 1,35,10) = (/&
 & 6.1061e-02_jprb,6.4589e-02_jprb,5.3472e-02_jprb,3.7076e-02_jprb,3.0936e-02_jprb/)  
kbo( :, 2,35,10) = (/&
 & 8.0413e-02_jprb,8.5518e-02_jprb,7.0631e-02_jprb,4.9033e-02_jprb,3.7630e-02_jprb/)  
kbo( :, 3,35,10) = (/&
 & 1.0418e-01_jprb,1.1098e-01_jprb,9.1376e-02_jprb,6.3892e-02_jprb,4.5348e-02_jprb/)  
kbo( :, 4,35,10) = (/&
 & 1.3326e-01_jprb,1.4218e-01_jprb,1.1684e-01_jprb,8.2004e-02_jprb,5.4177e-02_jprb/)  
kbo( :, 5,35,10) = (/&
 & 1.6818e-01_jprb,1.8014e-01_jprb,1.4791e-01_jprb,1.0383e-01_jprb,6.4352e-02_jprb/)  
kbo( :, 1,36,10) = (/&
 & 5.4859e-02_jprb,5.8269e-02_jprb,4.8182e-02_jprb,3.3253e-02_jprb,2.4204e-02_jprb/)  
kbo( :, 2,36,10) = (/&
 & 7.2626e-02_jprb,7.7491e-02_jprb,6.3949e-02_jprb,4.4186e-02_jprb,2.9747e-02_jprb/)  
kbo( :, 3,36,10) = (/&
 & 9.4867e-02_jprb,1.0121e-01_jprb,8.3126e-02_jprb,5.7761e-02_jprb,3.6183e-02_jprb/)  
kbo( :, 4,36,10) = (/&
 & 1.2215e-01_jprb,1.3045e-01_jprb,1.0693e-01_jprb,7.4445e-02_jprb,4.3693e-02_jprb/)  
kbo( :, 5,36,10) = (/&
 & 1.5514e-01_jprb,1.6646e-01_jprb,1.3613e-01_jprb,9.4760e-02_jprb,5.2444e-02_jprb/)  
kbo( :, 1,37,10) = (/&
 & 4.7230e-02_jprb,5.0376e-02_jprb,4.1606e-02_jprb,2.8650e-02_jprb,1.9576e-02_jprb/)  
kbo( :, 2,37,10) = (/&
 & 6.3162e-02_jprb,6.7559e-02_jprb,5.5737e-02_jprb,3.8366e-02_jprb,2.4307e-02_jprb/)  
kbo( :, 3,37,10) = (/&
 & 8.3382e-02_jprb,8.9100e-02_jprb,7.3096e-02_jprb,5.0404e-02_jprb,2.9845e-02_jprb/)  
kbo( :, 4,37,10) = (/&
 & 1.0831e-01_jprb,1.1578e-01_jprb,9.4747e-02_jprb,6.5399e-02_jprb,3.6334e-02_jprb/)  
kbo( :, 5,37,10) = (/&
 & 1.3872e-01_jprb,1.4912e-01_jprb,1.2153e-01_jprb,8.3890e-02_jprb,4.3970e-02_jprb/)  
kbo( :, 1,38,10) = (/&
 & 4.0594e-02_jprb,4.3482e-02_jprb,3.5882e-02_jprb,2.4652e-02_jprb,1.5796e-02_jprb/)  
kbo( :, 2,38,10) = (/&
 & 5.4893e-02_jprb,5.8859e-02_jprb,4.8535e-02_jprb,3.3342e-02_jprb,1.9838e-02_jprb/)  
kbo( :, 3,38,10) = (/&
 & 7.3270e-02_jprb,7.8442e-02_jprb,6.4299e-02_jprb,4.4057e-02_jprb,2.4587e-02_jprb/)  
kbo( :, 4,38,10) = (/&
 & 9.6131e-02_jprb,1.0297e-01_jprb,8.4062e-02_jprb,5.7542e-02_jprb,3.0194e-02_jprb/)  
kbo( :, 5,38,10) = (/&
 & 1.2425e-01_jprb,1.3371e-01_jprb,1.0871e-01_jprb,7.4376e-02_jprb,3.6826e-02_jprb/)  
kbo( :, 1,39,10) = (/&
 & 3.4960e-02_jprb,3.7584e-02_jprb,3.1001e-02_jprb,2.1253e-02_jprb,1.2659e-02_jprb/)  
kbo( :, 2,39,10) = (/&
 & 4.7796e-02_jprb,5.1412e-02_jprb,4.2333e-02_jprb,2.9006e-02_jprb,1.6073e-02_jprb/)  
kbo( :, 3,39,10) = (/&
 & 6.4510e-02_jprb,6.9244e-02_jprb,5.6690e-02_jprb,3.8671e-02_jprb,2.0130e-02_jprb/)  
kbo( :, 4,39,10) = (/&
 & 8.5561e-02_jprb,9.1904e-02_jprb,7.4800e-02_jprb,5.0873e-02_jprb,2.4941e-02_jprb/)  
kbo( :, 5,39,10) = (/&
 & 1.1163e-01_jprb,1.2022e-01_jprb,9.7628e-02_jprb,6.6235e-02_jprb,3.0668e-02_jprb/)  
kbo( :, 1,40,10) = (/&
 & 2.9268e-02_jprb,3.1482e-02_jprb,2.5935e-02_jprb,1.7721e-02_jprb,1.0217e-02_jprb/)  
kbo( :, 2,40,10) = (/&
 & 4.0459e-02_jprb,4.3586e-02_jprb,3.5852e-02_jprb,2.4486e-02_jprb,1.3110e-02_jprb/)  
kbo( :, 3,40,10) = (/&
 & 5.5229e-02_jprb,5.9449e-02_jprb,4.8588e-02_jprb,3.3038e-02_jprb,1.6586e-02_jprb/)  
kbo( :, 4,40,10) = (/&
 & 7.4117e-02_jprb,7.9872e-02_jprb,6.4885e-02_jprb,4.3907e-02_jprb,2.0725e-02_jprb/)  
kbo( :, 5,40,10) = (/&
 & 9.7865e-02_jprb,1.0550e-01_jprb,8.5568e-02_jprb,5.7643e-02_jprb,2.5662e-02_jprb/)  
kbo( :, 1,41,10) = (/&
 & 2.4397e-02_jprb,2.6231e-02_jprb,2.1586e-02_jprb,1.4682e-02_jprb,8.2353e-03_jprb/)  
kbo( :, 2,41,10) = (/&
 & 3.4139e-02_jprb,3.6786e-02_jprb,3.0230e-02_jprb,2.0568e-02_jprb,1.0674e-02_jprb/)  
kbo( :, 3,41,10) = (/&
 & 4.7106e-02_jprb,5.0858e-02_jprb,4.1459e-02_jprb,2.8115e-02_jprb,1.3635e-02_jprb/)  
kbo( :, 4,41,10) = (/&
 & 6.4000e-02_jprb,6.9180e-02_jprb,5.6062e-02_jprb,3.7799e-02_jprb,1.7204e-02_jprb/)  
kbo( :, 5,41,10) = (/&
 & 8.5517e-02_jprb,9.2400e-02_jprb,7.4782e-02_jprb,5.0099e-02_jprb,2.1450e-02_jprb/)  
kbo( :, 1,42,10) = (/&
 & 2.0268e-02_jprb,2.1845e-02_jprb,1.7956e-02_jprb,1.2140e-02_jprb,6.5991e-03_jprb/)  
kbo( :, 2,42,10) = (/&
 & 2.8789e-02_jprb,3.1021e-02_jprb,2.5467e-02_jprb,1.7246e-02_jprb,8.6477e-03_jprb/)  
kbo( :, 3,42,10) = (/&
 & 4.0194e-02_jprb,4.3474e-02_jprb,3.5363e-02_jprb,2.3902e-02_jprb,1.1154e-02_jprb/)  
kbo( :, 4,42,10) = (/&
 & 5.5258e-02_jprb,5.9919e-02_jprb,4.8429e-02_jprb,3.2536e-02_jprb,1.4210e-02_jprb/)  
kbo( :, 5,42,10) = (/&
 & 7.4696e-02_jprb,8.0962e-02_jprb,6.5393e-02_jprb,4.3618e-02_jprb,1.7849e-02_jprb/)  
kbo( :, 1,43,10) = (/&
 & 1.6426e-02_jprb,1.7804e-02_jprb,1.4613e-02_jprb,9.8050e-03_jprb,5.2617e-03_jprb/)  
kbo( :, 2,43,10) = (/&
 & 2.3747e-02_jprb,2.5630e-02_jprb,2.1011e-02_jprb,1.4160e-02_jprb,6.9847e-03_jprb/)  
kbo( :, 3,43,10) = (/&
 & 3.3653e-02_jprb,3.6412e-02_jprb,2.9592e-02_jprb,1.9925e-02_jprb,9.1040e-03_jprb/)  
kbo( :, 4,43,10) = (/&
 & 4.6868e-02_jprb,5.0938e-02_jprb,4.1108e-02_jprb,2.7526e-02_jprb,1.1710e-02_jprb/)  
kbo( :, 5,43,10) = (/&
 & 6.4129e-02_jprb,6.9760e-02_jprb,5.6238e-02_jprb,3.7383e-02_jprb,1.4823e-02_jprb/)  
kbo( :, 1,44,10) = (/&
 & 1.3100e-02_jprb,1.4316e-02_jprb,1.1742e-02_jprb,7.8185e-03_jprb,4.1731e-03_jprb/)  
kbo( :, 2,44,10) = (/&
 & 1.9306e-02_jprb,2.0946e-02_jprb,1.7130e-02_jprb,1.1488e-02_jprb,5.6253e-03_jprb/)  
kbo( :, 3,44,10) = (/&
 & 2.7839e-02_jprb,3.0159e-02_jprb,2.4497e-02_jprb,1.6420e-02_jprb,7.4177e-03_jprb/)  
kbo( :, 4,44,10) = (/&
 & 3.9351e-02_jprb,4.2845e-02_jprb,3.4542e-02_jprb,2.3036e-02_jprb,9.6323e-03_jprb/)  
kbo( :, 5,44,10) = (/&
 & 5.4545e-02_jprb,5.9565e-02_jprb,4.7916e-02_jprb,3.1766e-02_jprb,1.2297e-02_jprb/)  
kbo( :, 1,45,10) = (/&
 & 1.0365e-02_jprb,1.1432e-02_jprb,9.3767e-03_jprb,6.2117e-03_jprb,3.2839e-03_jprb/)  
kbo( :, 2,45,10) = (/&
 & 1.5589e-02_jprb,1.7063e-02_jprb,1.3930e-02_jprb,9.2859e-03_jprb,4.5005e-03_jprb/)  
kbo( :, 3,45,10) = (/&
 & 2.2910e-02_jprb,2.4924e-02_jprb,2.0227e-02_jprb,1.3494e-02_jprb,6.0165e-03_jprb/)  
kbo( :, 4,45,10) = (/&
 & 3.2938e-02_jprb,3.5933e-02_jprb,2.8944e-02_jprb,1.9215e-02_jprb,7.8901e-03_jprb/)  
kbo( :, 5,45,10) = (/&
 & 4.6288e-02_jprb,5.0739e-02_jprb,4.0755e-02_jprb,2.6930e-02_jprb,1.0163e-02_jprb/)  
kbo( :, 1,46,10) = (/&
 & 8.0611e-03_jprb,8.9687e-03_jprb,7.3616e-03_jprb,4.8649e-03_jprb,2.5630e-03_jprb/)  
kbo( :, 2,46,10) = (/&
 & 1.2384e-02_jprb,1.3700e-02_jprb,1.1187e-02_jprb,7.4141e-03_jprb,3.5736e-03_jprb/)  
kbo( :, 3,46,10) = (/&
 & 1.8589e-02_jprb,2.0376e-02_jprb,1.6514e-02_jprb,1.0949e-02_jprb,4.8546e-03_jprb/)  
kbo( :, 4,46,10) = (/&
 & 2.7228e-02_jprb,2.9798e-02_jprb,2.3986e-02_jprb,1.5867e-02_jprb,6.4395e-03_jprb/)  
kbo( :, 5,46,10) = (/&
 & 3.8907e-02_jprb,4.2772e-02_jprb,3.4328e-02_jprb,2.2598e-02_jprb,8.3793e-03_jprb/)  
kbo( :, 1,47,10) = (/&
 & 6.0942e-03_jprb,6.8373e-03_jprb,5.6151e-03_jprb,3.7108e-03_jprb,1.9874e-03_jprb/)  
kbo( :, 2,47,10) = (/&
 & 9.5830e-03_jprb,1.0720e-02_jprb,8.7687e-03_jprb,5.7830e-03_jprb,2.8149e-03_jprb/)  
kbo( :, 3,47,10) = (/&
 & 1.4719e-02_jprb,1.6286e-02_jprb,1.3206e-02_jprb,8.7082e-03_jprb,3.8989e-03_jprb/)  
kbo( :, 4,47,10) = (/&
 & 2.2034e-02_jprb,2.4248e-02_jprb,1.9496e-02_jprb,1.2839e-02_jprb,5.2464e-03_jprb/)  
kbo( :, 5,47,10) = (/&
 & 3.2068e-02_jprb,3.5385e-02_jprb,2.8366e-02_jprb,1.8611e-02_jprb,6.9087e-03_jprb/)  
kbo( :, 1,48,10) = (/&
 & 4.5510e-03_jprb,5.1515e-03_jprb,4.2286e-03_jprb,2.7938e-03_jprb,1.5324e-03_jprb/)  
kbo( :, 2,48,10) = (/&
 & 7.3293e-03_jprb,8.3022e-03_jprb,6.7958e-03_jprb,4.4708e-03_jprb,2.2018e-03_jprb/)  
kbo( :, 3,48,10) = (/&
 & 1.1532e-02_jprb,1.2909e-02_jprb,1.0485e-02_jprb,6.8896e-03_jprb,3.1032e-03_jprb/)  
kbo( :, 4,48,10) = (/&
 & 1.7669e-02_jprb,1.9619e-02_jprb,1.5768e-02_jprb,1.0334e-02_jprb,4.2526e-03_jprb/)  
kbo( :, 5,48,10) = (/&
 & 2.6263e-02_jprb,2.9134e-02_jprb,2.3325e-02_jprb,1.5244e-02_jprb,5.6768e-03_jprb/)  
kbo( :, 1,49,10) = (/&
 & 3.3560e-03_jprb,3.8327e-03_jprb,3.1391e-03_jprb,2.0743e-03_jprb,1.1802e-03_jprb/)  
kbo( :, 2,49,10) = (/&
 & 5.5342e-03_jprb,6.3542e-03_jprb,5.1981e-03_jprb,3.4211e-03_jprb,1.7096e-03_jprb/)  
kbo( :, 3,49,10) = (/&
 & 8.9294e-03_jprb,1.0143e-02_jprb,8.2468e-03_jprb,5.4196e-03_jprb,2.4470e-03_jprb/)  
kbo( :, 4,49,10) = (/&
 & 1.4024e-02_jprb,1.5765e-02_jprb,1.2684e-02_jprb,8.2734e-03_jprb,3.4129e-03_jprb/)  
kbo( :, 5,49,10) = (/&
 & 2.1352e-02_jprb,2.3866e-02_jprb,1.9075e-02_jprb,1.2411e-02_jprb,4.6279e-03_jprb/)  
kbo( :, 1,50,10) = (/&
 & 2.4929e-03_jprb,2.8632e-03_jprb,2.3379e-03_jprb,1.5440e-03_jprb,9.3225e-04_jprb/)  
kbo( :, 2,50,10) = (/&
 & 4.2029e-03_jprb,4.8752e-03_jprb,3.9805e-03_jprb,2.6198e-03_jprb,1.3576e-03_jprb/)  
kbo( :, 3,50,10) = (/&
 & 6.9325e-03_jprb,7.9925e-03_jprb,6.4974e-03_jprb,4.2674e-03_jprb,1.9613e-03_jprb/)  

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


SUBROUTINE part28

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


kbo( :, 4,50,10) = (/&
 & 1.1158e-02_jprb,1.2709e-02_jprb,1.0229e-02_jprb,6.6644e-03_jprb,2.7832e-03_jprb/)  
kbo( :, 5,50,10) = (/&
 & 1.7403e-02_jprb,1.9642e-02_jprb,1.5691e-02_jprb,1.0155e-02_jprb,3.8333e-03_jprb/)  
kbo( :, 1,51,10) = (/&
 & 1.8532e-03_jprb,2.1364e-03_jprb,1.7376e-03_jprb,1.1454e-03_jprb,7.4878e-04_jprb/)  
kbo( :, 2,51,10) = (/&
 & 3.1888e-03_jprb,3.7291e-03_jprb,3.0357e-03_jprb,1.9945e-03_jprb,1.0922e-03_jprb/)  
kbo( :, 3,51,10) = (/&
 & 5.3638e-03_jprb,6.2780e-03_jprb,5.0968e-03_jprb,3.3419e-03_jprb,1.5858e-03_jprb/)  
kbo( :, 4,51,10) = (/&
 & 8.8501e-03_jprb,1.0219e-02_jprb,8.2277e-03_jprb,5.3639e-03_jprb,2.2832e-03_jprb/)  
kbo( :, 5,51,10) = (/&
 & 1.4149e-02_jprb,1.6146e-02_jprb,1.2912e-02_jprb,8.3171e-03_jprb,3.2000e-03_jprb/)  
kbo( :, 1,52,10) = (/&
 & 1.3628e-03_jprb,1.5783e-03_jprb,1.2808e-03_jprb,8.4055e-04_jprb,6.0012e-04_jprb/)  
kbo( :, 2,52,10) = (/&
 & 2.4017e-03_jprb,2.8236e-03_jprb,2.2905e-03_jprb,1.5011e-03_jprb,8.8126e-04_jprb/)  
kbo( :, 3,52,10) = (/&
 & 4.1169e-03_jprb,4.8815e-03_jprb,3.9607e-03_jprb,2.5906e-03_jprb,1.2847e-03_jprb/)  
kbo( :, 4,52,10) = (/&
 & 6.9536e-03_jprb,8.1559e-03_jprb,6.5664e-03_jprb,4.2815e-03_jprb,1.8638e-03_jprb/)  
kbo( :, 5,52,10) = (/&
 & 1.1409e-02_jprb,1.3194e-02_jprb,1.0553e-02_jprb,6.7875e-03_jprb,2.6534e-03_jprb/)  
kbo( :, 1,53,10) = (/&
 & 9.8606e-04_jprb,1.1540e-03_jprb,9.3384e-04_jprb,6.1040e-04_jprb,4.7709e-04_jprb/)  
kbo( :, 2,53,10) = (/&
 & 1.7920e-03_jprb,2.1145e-03_jprb,1.7063e-03_jprb,1.1169e-03_jprb,7.1312e-04_jprb/)  
kbo( :, 3,53,10) = (/&
 & 3.1294e-03_jprb,3.7546e-03_jprb,3.0421e-03_jprb,1.9861e-03_jprb,1.0419e-03_jprb/)  
kbo( :, 4,53,10) = (/&
 & 5.4059e-03_jprb,6.4522e-03_jprb,5.1921e-03_jprb,3.3816e-03_jprb,1.5130e-03_jprb/)  
kbo( :, 5,53,10) = (/&
 & 9.1118e-03_jprb,1.0696e-02_jprb,8.5534e-03_jprb,5.5066e-03_jprb,2.1843e-03_jprb/)  
kbo( :, 1,54,10) = (/&
 & 7.2513e-04_jprb,8.5732e-04_jprb,6.9183e-04_jprb,4.5039e-04_jprb,3.8769e-04_jprb/)  
kbo( :, 2,54,10) = (/&
 & 1.3639e-03_jprb,1.6067e-03_jprb,1.2902e-03_jprb,8.3972e-04_jprb,5.9341e-04_jprb/)  
kbo( :, 3,54,10) = (/&
 & 2.4214e-03_jprb,2.9176e-03_jprb,2.3545e-03_jprb,1.5328e-03_jprb,8.7214e-04_jprb/)  
kbo( :, 4,54,10) = (/&
 & 4.2490e-03_jprb,5.1414e-03_jprb,4.1362e-03_jprb,2.6851e-03_jprb,1.2710e-03_jprb/)  
kbo( :, 5,54,10) = (/&
 & 7.3277e-03_jprb,8.7352e-03_jprb,6.9866e-03_jprb,4.4974e-03_jprb,1.8463e-03_jprb/)  
kbo( :, 1,55,10) = (/&
 & 5.3536e-04_jprb,6.3819e-04_jprb,5.1429e-04_jprb,3.3384e-04_jprb,3.1787e-04_jprb/)  
kbo( :, 2,55,10) = (/&
 & 1.0434e-03_jprb,1.2286e-03_jprb,9.8197e-04_jprb,6.3464e-04_jprb,5.0051e-04_jprb/)  
kbo( :, 3,55,10) = (/&
 & 1.8896e-03_jprb,2.2759e-03_jprb,1.8255e-03_jprb,1.1820e-03_jprb,7.4689e-04_jprb/)  
kbo( :, 4,55,10) = (/&
 & 3.3543e-03_jprb,4.1000e-03_jprb,3.2922e-03_jprb,2.1289e-03_jprb,1.0910e-03_jprb/)  
kbo( :, 5,55,10) = (/&
 & 5.8957e-03_jprb,7.1360e-03_jprb,5.7072e-03_jprb,3.6721e-03_jprb,1.5883e-03_jprb/)  
kbo( :, 1,56,10) = (/&
 & 3.9041e-04_jprb,4.6983e-04_jprb,3.7827e-04_jprb,2.4495e-04_jprb,2.5822e-04_jprb/)  
kbo( :, 2,56,10) = (/&
 & 7.9041e-04_jprb,9.3554e-04_jprb,7.4444e-04_jprb,4.7743e-04_jprb,4.2098e-04_jprb/)  
kbo( :, 3,56,10) = (/&
 & 1.4711e-03_jprb,1.7706e-03_jprb,1.4085e-03_jprb,9.0462e-04_jprb,6.4135e-04_jprb/)  
kbo( :, 4,56,10) = (/&
 & 2.6410e-03_jprb,3.2487e-03_jprb,2.5994e-03_jprb,1.6753e-03_jprb,9.4189e-04_jprb/)  
kbo( :, 5,56,10) = (/&
 & 4.7180e-03_jprb,5.7942e-03_jprb,4.6339e-03_jprb,2.9753e-03_jprb,1.3744e-03_jprb/)  
kbo( :, 1,57,10) = (/&
 & 2.8112e-04_jprb,3.4134e-04_jprb,2.7460e-04_jprb,1.7739e-04_jprb,2.0810e-04_jprb/)  
kbo( :, 2,57,10) = (/&
 & 5.9233e-04_jprb,7.0612e-04_jprb,5.6036e-04_jprb,3.5724e-04_jprb,3.5218e-04_jprb/)  
kbo( :, 3,57,10) = (/&
 & 1.1404e-03_jprb,1.3698e-03_jprb,1.0818e-03_jprb,6.8867e-04_jprb,5.5095e-04_jprb/)  
kbo( :, 4,57,10) = (/&
 & 2.0756e-03_jprb,2.5598e-03_jprb,2.0389e-03_jprb,1.3071e-03_jprb,8.1947e-04_jprb/)  
kbo( :, 5,57,10) = (/&
 & 3.7565e-03_jprb,4.6715e-03_jprb,3.7372e-03_jprb,2.3897e-03_jprb,1.1970e-03_jprb/)  
kbo( :, 1,58,10) = (/&
 & 2.0287e-04_jprb,2.4841e-04_jprb,1.9950e-04_jprb,1.2870e-04_jprb,1.6873e-04_jprb/)  
kbo( :, 2,58,10) = (/&
 & 4.4472e-04_jprb,5.3470e-04_jprb,4.2292e-04_jprb,2.6899e-04_jprb,2.9556e-04_jprb/)  
kbo( :, 3,58,10) = (/&
 & 8.8909e-04_jprb,1.0668e-03_jprb,8.3669e-04_jprb,5.2917e-04_jprb,4.7698e-04_jprb/)  
kbo( :, 4,58,10) = (/&
 & 1.6472e-03_jprb,2.0319e-03_jprb,1.6079e-03_jprb,1.0235e-03_jprb,7.2222e-04_jprb/)  
kbo( :, 5,58,10) = (/&
 & 3.0142e-03_jprb,3.7808e-03_jprb,3.0200e-03_jprb,1.9230e-03_jprb,1.0578e-03_jprb/)  
kbo( :, 1,59,10) = (/&
 & 1.7264e-04_jprb,2.1252e-04_jprb,1.6979e-04_jprb,1.0877e-04_jprb,1.5535e-04_jprb/)  
kbo( :, 2,59,10) = (/&
 & 3.8844e-04_jprb,4.6892e-04_jprb,3.6892e-04_jprb,2.3285e-04_jprb,2.7770e-04_jprb/)  
kbo( :, 3,59,10) = (/&
 & 7.9313e-04_jprb,9.5358e-04_jprb,7.4242e-04_jprb,4.6490e-04_jprb,4.5611e-04_jprb/)  
kbo( :, 4,59,10) = (/&
 & 1.4888e-03_jprb,1.8362e-03_jprb,1.4437e-03_jprb,9.0907e-04_jprb,6.9878e-04_jprb/)  
kbo( :, 5,59,10) = (/&
 & 2.7412e-03_jprb,3.4444e-03_jprb,2.7403e-03_jprb,1.7293e-03_jprb,1.0280e-03_jprb/)  
kbo( :, 1,13,11) = (/&
 & 4.6582e-01_jprb,4.3126e-01_jprb,3.9148e-01_jprb,2.9782e-01_jprb,2.0038e+00_jprb/)  
kbo( :, 2,13,11) = (/&
 & 6.6015e-01_jprb,6.1362e-01_jprb,5.5564e-01_jprb,4.1997e-01_jprb,2.1506e+00_jprb/)  
kbo( :, 3,13,11) = (/&
 & 8.9186e-01_jprb,8.3255e-01_jprb,7.5032e-01_jprb,5.6975e-01_jprb,2.2970e+00_jprb/)  
kbo( :, 4,13,11) = (/&
 & 1.1586e+00_jprb,1.0869e+00_jprb,9.7359e-01_jprb,7.4196e-01_jprb,2.4271e+00_jprb/)  
kbo( :, 5,13,11) = (/&
 & 1.4563e+00_jprb,1.3761e+00_jprb,1.2287e+00_jprb,9.3624e-01_jprb,2.5537e+00_jprb/)  
kbo( :, 1,14,11) = (/&
 & 4.6622e-01_jprb,4.4694e-01_jprb,4.0621e-01_jprb,3.0517e-01_jprb,1.9239e+00_jprb/)  
kbo( :, 2,14,11) = (/&
 & 6.5626e-01_jprb,6.3097e-01_jprb,5.7029e-01_jprb,4.3017e-01_jprb,2.0659e+00_jprb/)  
kbo( :, 3,14,11) = (/&
 & 8.8153e-01_jprb,8.5029e-01_jprb,7.6391e-01_jprb,5.8015e-01_jprb,2.1968e+00_jprb/)  
kbo( :, 4,14,11) = (/&
 & 1.1396e+00_jprb,1.1043e+00_jprb,9.8836e-01_jprb,7.5006e-01_jprb,2.3180e+00_jprb/)  
kbo( :, 5,14,11) = (/&
 & 1.4290e+00_jprb,1.3870e+00_jprb,1.2407e+00_jprb,9.4051e-01_jprb,2.4548e+00_jprb/)  
kbo( :, 1,15,11) = (/&
 & 4.5814e-01_jprb,4.5398e-01_jprb,4.1054e-01_jprb,3.0839e-01_jprb,1.6835e+00_jprb/)  
kbo( :, 2,15,11) = (/&
 & 6.4005e-01_jprb,6.3563e-01_jprb,5.7202e-01_jprb,4.3265e-01_jprb,1.8044e+00_jprb/)  
kbo( :, 3,15,11) = (/&
 & 8.5481e-01_jprb,8.5188e-01_jprb,7.6325e-01_jprb,5.7776e-01_jprb,1.9216e+00_jprb/)  
kbo( :, 4,15,11) = (/&
 & 1.1011e+00_jprb,1.0984e+00_jprb,9.8470e-01_jprb,7.4242e-01_jprb,2.0480e+00_jprb/)  
kbo( :, 5,15,11) = (/&
 & 1.3789e+00_jprb,1.3707e+00_jprb,1.2263e+00_jprb,9.2692e-01_jprb,2.1662e+00_jprb/)  
kbo( :, 1,16,11) = (/&
 & 4.3936e-01_jprb,4.5055e-01_jprb,4.0610e-01_jprb,3.0607e-01_jprb,1.3891e+00_jprb/)  
kbo( :, 2,16,11) = (/&
 & 6.0980e-01_jprb,6.2580e-01_jprb,5.6205e-01_jprb,4.2411e-01_jprb,1.4937e+00_jprb/)  
kbo( :, 3,16,11) = (/&
 & 8.1051e-01_jprb,8.3041e-01_jprb,7.4762e-01_jprb,5.6219e-01_jprb,1.6024e+00_jprb/)  
kbo( :, 4,16,11) = (/&
 & 1.0423e+00_jprb,1.0629e+00_jprb,9.5636e-01_jprb,7.1926e-01_jprb,1.7074e+00_jprb/)  
kbo( :, 5,16,11) = (/&
 & 1.3012e+00_jprb,1.3270e+00_jprb,1.1867e+00_jprb,8.9662e-01_jprb,1.8065e+00_jprb/)  
kbo( :, 1,17,11) = (/&
 & 4.1226e-01_jprb,4.3606e-01_jprb,3.9203e-01_jprb,2.9614e-01_jprb,1.1476e+00_jprb/)  
kbo( :, 2,17,11) = (/&
 & 5.6889e-01_jprb,6.0078e-01_jprb,5.4100e-01_jprb,4.0607e-01_jprb,1.2378e+00_jprb/)  
kbo( :, 3,17,11) = (/&
 & 7.5475e-01_jprb,7.9223e-01_jprb,7.1421e-01_jprb,5.3429e-01_jprb,1.3294e+00_jprb/)  
kbo( :, 4,17,11) = (/&
 & 9.6747e-01_jprb,1.0124e+00_jprb,9.0807e-01_jprb,6.8194e-01_jprb,1.4124e+00_jprb/)  
kbo( :, 5,17,11) = (/&
 & 1.1994e+00_jprb,1.2593e+00_jprb,1.1261e+00_jprb,8.5185e-01_jprb,1.4955e+00_jprb/)  
kbo( :, 1,18,11) = (/&
 & 3.8064e-01_jprb,4.1279e-01_jprb,3.7089e-01_jprb,2.7981e-01_jprb,9.7150e-01_jprb/)  
kbo( :, 2,18,11) = (/&
 & 5.2358e-01_jprb,5.6462e-01_jprb,5.0829e-01_jprb,3.8105e-01_jprb,1.0549e+00_jprb/)  
kbo( :, 3,18,11) = (/&
 & 6.9263e-01_jprb,7.4312e-01_jprb,6.6621e-01_jprb,4.9871e-01_jprb,1.1339e+00_jprb/)  
kbo( :, 4,18,11) = (/&
 & 8.8229e-01_jprb,9.4872e-01_jprb,8.4607e-01_jprb,6.3576e-01_jprb,1.2109e+00_jprb/)  
kbo( :, 5,18,11) = (/&
 & 1.0918e+00_jprb,1.1715e+00_jprb,1.0485e+00_jprb,7.9321e-01_jprb,1.2966e+00_jprb/)  
kbo( :, 1,19,11) = (/&
 & 3.4707e-01_jprb,3.8254e-01_jprb,3.4362e-01_jprb,2.5858e-01_jprb,8.6524e-01_jprb/)  
kbo( :, 2,19,11) = (/&
 & 4.7624e-01_jprb,5.2177e-01_jprb,4.6660e-01_jprb,3.5041e-01_jprb,9.4567e-01_jprb/)  
kbo( :, 3,19,11) = (/&
 & 6.2671e-01_jprb,6.8651e-01_jprb,6.0965e-01_jprb,4.5831e-01_jprb,1.0244e+00_jprb/)  
kbo( :, 4,19,11) = (/&
 & 7.9653e-01_jprb,8.7098e-01_jprb,7.7442e-01_jprb,5.8401e-01_jprb,1.1073e+00_jprb/)  
kbo( :, 5,19,11) = (/&
 & 9.8427e-01_jprb,1.0726e+00_jprb,9.5997e-01_jprb,7.2540e-01_jprb,1.1966e+00_jprb/)  
kbo( :, 1,20,11) = (/&
 & 3.1567e-01_jprb,3.5181e-01_jprb,3.1444e-01_jprb,2.3622e-01_jprb,8.0158e-01_jprb/)  
kbo( :, 2,20,11) = (/&
 & 4.3131e-01_jprb,4.7923e-01_jprb,4.2436e-01_jprb,3.1880e-01_jprb,8.8081e-01_jprb/)  
kbo( :, 3,20,11) = (/&
 & 5.6512e-01_jprb,6.2700e-01_jprb,5.5312e-01_jprb,4.1741e-01_jprb,9.6113e-01_jprb/)  
kbo( :, 4,20,11) = (/&
 & 7.1661e-01_jprb,7.9159e-01_jprb,7.0178e-01_jprb,5.3032e-01_jprb,1.0489e+00_jprb/)  
kbo( :, 5,20,11) = (/&
 & 8.8236e-01_jprb,9.7468e-01_jprb,8.6952e-01_jprb,6.5743e-01_jprb,1.1372e+00_jprb/)  
kbo( :, 1,21,11) = (/&
 & 2.8592e-01_jprb,3.2074e-01_jprb,2.8394e-01_jprb,2.1333e-01_jprb,7.4290e-01_jprb/)  
kbo( :, 2,21,11) = (/&
 & 3.8826e-01_jprb,4.3502e-01_jprb,3.8223e-01_jprb,2.8797e-01_jprb,8.2178e-01_jprb/)  
kbo( :, 3,21,11) = (/&
 & 5.0741e-01_jprb,5.6572e-01_jprb,4.9792e-01_jprb,3.7590e-01_jprb,9.0519e-01_jprb/)  
kbo( :, 4,21,11) = (/&
 & 6.4058e-01_jprb,7.1340e-01_jprb,6.3080e-01_jprb,4.7663e-01_jprb,9.9225e-01_jprb/)  
kbo( :, 5,21,11) = (/&
 & 7.8811e-01_jprb,8.7944e-01_jprb,7.7953e-01_jprb,5.8917e-01_jprb,1.0812e+00_jprb/)  
kbo( :, 1,22,11) = (/&
 & 2.6349e-01_jprb,2.9660e-01_jprb,2.5964e-01_jprb,1.9557e-01_jprb,6.7570e-01_jprb/)  
kbo( :, 2,22,11) = (/&
 & 3.5527e-01_jprb,3.9835e-01_jprb,3.4850e-01_jprb,2.6305e-01_jprb,7.5224e-01_jprb/)  
kbo( :, 3,22,11) = (/&
 & 4.6050e-01_jprb,5.1538e-01_jprb,4.5315e-01_jprb,3.4161e-01_jprb,8.3620e-01_jprb/)  
kbo( :, 4,22,11) = (/&
 & 5.8034e-01_jprb,6.4971e-01_jprb,5.7124e-01_jprb,4.3148e-01_jprb,9.2191e-01_jprb/)  
kbo( :, 5,22,11) = (/&
 & 7.1598e-01_jprb,7.9992e-01_jprb,7.0387e-01_jprb,5.3098e-01_jprb,1.0108e+00_jprb/)  
kbo( :, 1,23,11) = (/&
 & 2.4294e-01_jprb,2.7306e-01_jprb,2.3732e-01_jprb,1.7872e-01_jprb,6.0705e-01_jprb/)  
kbo( :, 2,23,11) = (/&
 & 3.2497e-01_jprb,3.6372e-01_jprb,3.1788e-01_jprb,2.3869e-01_jprb,6.8421e-01_jprb/)  
kbo( :, 3,23,11) = (/&
 & 4.2067e-01_jprb,4.6941e-01_jprb,4.1072e-01_jprb,3.0874e-01_jprb,7.6600e-01_jprb/)  
kbo( :, 4,23,11) = (/&
 & 5.3164e-01_jprb,5.9097e-01_jprb,5.1614e-01_jprb,3.8792e-01_jprb,8.5300e-01_jprb/)  
kbo( :, 5,23,11) = (/&
 & 6.5861e-01_jprb,7.2844e-01_jprb,6.3392e-01_jprb,4.7757e-01_jprb,9.4241e-01_jprb/)  
kbo( :, 1,24,11) = (/&
 & 2.2482e-01_jprb,2.5108e-01_jprb,2.1802e-01_jprb,1.6286e-01_jprb,5.3854e-01_jprb/)  
kbo( :, 2,24,11) = (/&
 & 2.9997e-01_jprb,3.3291e-01_jprb,2.8985e-01_jprb,2.1640e-01_jprb,6.1678e-01_jprb/)  
kbo( :, 3,24,11) = (/&
 & 3.8949e-01_jprb,4.2945e-01_jprb,3.7259e-01_jprb,2.7841e-01_jprb,6.9947e-01_jprb/)  
kbo( :, 4,24,11) = (/&
 & 4.9475e-01_jprb,5.4040e-01_jprb,4.6781e-01_jprb,3.4874e-01_jprb,7.8678e-01_jprb/)  
kbo( :, 5,24,11) = (/&
 & 6.1688e-01_jprb,6.6845e-01_jprb,5.7526e-01_jprb,4.2946e-01_jprb,8.7638e-01_jprb/)  
kbo( :, 1,25,11) = (/&
 & 2.0867e-01_jprb,2.3175e-01_jprb,2.0085e-01_jprb,1.4849e-01_jprb,4.8336e-01_jprb/)  
kbo( :, 2,25,11) = (/&
 & 2.7944e-01_jprb,3.0729e-01_jprb,2.6487e-01_jprb,1.9609e-01_jprb,5.5823e-01_jprb/)  
kbo( :, 3,25,11) = (/&
 & 3.6506e-01_jprb,3.9632e-01_jprb,3.4020e-01_jprb,2.5115e-01_jprb,6.3661e-01_jprb/)  
kbo( :, 4,25,11) = (/&
 & 4.6727e-01_jprb,5.0070e-01_jprb,4.2731e-01_jprb,3.1512e-01_jprb,7.1582e-01_jprb/)  
kbo( :, 5,25,11) = (/&
 & 5.8636e-01_jprb,6.2209e-01_jprb,5.2796e-01_jprb,3.8925e-01_jprb,7.9834e-01_jprb/)  
kbo( :, 1,26,11) = (/&
 & 1.9587e-01_jprb,2.1594e-01_jprb,1.8576e-01_jprb,1.3602e-01_jprb,4.3426e-01_jprb/)  
kbo( :, 2,26,11) = (/&
 & 2.6382e-01_jprb,2.8676e-01_jprb,2.4459e-01_jprb,1.7873e-01_jprb,5.0085e-01_jprb/)  
kbo( :, 3,26,11) = (/&
 & 3.4692e-01_jprb,3.7120e-01_jprb,3.1465e-01_jprb,2.2874e-01_jprb,5.6934e-01_jprb/)  
kbo( :, 4,26,11) = (/&
 & 4.4520e-01_jprb,4.7181e-01_jprb,3.9637e-01_jprb,2.8766e-01_jprb,6.3969e-01_jprb/)  
kbo( :, 5,26,11) = (/&
 & 5.5605e-01_jprb,5.8855e-01_jprb,4.9195e-01_jprb,3.5675e-01_jprb,7.1476e-01_jprb/)  
kbo( :, 1,27,11) = (/&
 & 1.8539e-01_jprb,2.0232e-01_jprb,1.7242e-01_jprb,1.2491e-01_jprb,3.7468e-01_jprb/)  
kbo( :, 2,27,11) = (/&
 & 2.5096e-01_jprb,2.6936e-01_jprb,2.2766e-01_jprb,1.6372e-01_jprb,4.3134e-01_jprb/)  
kbo( :, 3,27,11) = (/&
 & 3.2985e-01_jprb,3.5118e-01_jprb,2.9380e-01_jprb,2.1018e-01_jprb,4.9024e-01_jprb/)  
kbo( :, 4,27,11) = (/&
 & 4.2050e-01_jprb,4.4779e-01_jprb,3.7245e-01_jprb,2.6552e-01_jprb,5.5373e-01_jprb/)  
kbo( :, 5,27,11) = (/&
 & 5.2353e-01_jprb,5.5799e-01_jprb,4.6451e-01_jprb,3.2979e-01_jprb,6.2244e-01_jprb/)  
kbo( :, 1,28,11) = (/&
 & 1.7670e-01_jprb,1.9079e-01_jprb,1.6081e-01_jprb,1.1550e-01_jprb,3.1173e-01_jprb/)  
kbo( :, 2,28,11) = (/&
 & 2.3816e-01_jprb,2.5545e-01_jprb,2.1349e-01_jprb,1.5165e-01_jprb,3.6015e-01_jprb/)  
kbo( :, 3,28,11) = (/&
 & 3.1046e-01_jprb,3.3329e-01_jprb,2.7692e-01_jprb,1.9535e-01_jprb,4.1203e-01_jprb/)  
kbo( :, 4,28,11) = (/&
 & 3.9421e-01_jprb,4.2355e-01_jprb,3.5226e-01_jprb,2.4753e-01_jprb,4.6881e-01_jprb/)  
kbo( :, 5,28,11) = (/&
 & 4.9113e-01_jprb,5.2757e-01_jprb,4.3988e-01_jprb,3.0817e-01_jprb,5.2989e-01_jprb/)  
kbo( :, 1,29,11) = (/&
 & 1.6843e-01_jprb,1.8154e-01_jprb,1.5154e-01_jprb,1.0767e-01_jprb,2.5441e-01_jprb/)  
kbo( :, 2,29,11) = (/&
 & 2.2466e-01_jprb,2.4270e-01_jprb,2.0190e-01_jprb,1.4201e-01_jprb,2.9556e-01_jprb/)  
kbo( :, 3,29,11) = (/&
 & 2.9126e-01_jprb,3.1537e-01_jprb,2.6232e-01_jprb,1.8387e-01_jprb,3.4113e-01_jprb/)  
kbo( :, 4,29,11) = (/&
 & 3.6983e-01_jprb,4.0011e-01_jprb,3.3340e-01_jprb,2.3338e-01_jprb,3.9100e-01_jprb/)  
kbo( :, 5,29,11) = (/&
 & 4.6101e-01_jprb,4.9867e-01_jprb,4.1663e-01_jprb,2.9053e-01_jprb,4.4464e-01_jprb/)  
kbo( :, 1,30,11) = (/&
 & 1.5959e-01_jprb,1.7262e-01_jprb,1.4374e-01_jprb,1.0130e-01_jprb,2.0471e-01_jprb/)  
kbo( :, 2,30,11) = (/&
 & 2.1115e-01_jprb,2.2963e-01_jprb,1.9116e-01_jprb,1.3421e-01_jprb,2.4020e-01_jprb/)  
kbo( :, 3,30,11) = (/&
 & 2.7360e-01_jprb,2.9740e-01_jprb,2.4795e-01_jprb,1.7403e-01_jprb,2.7968e-01_jprb/)  
kbo( :, 4,30,11) = (/&
 & 3.4764e-01_jprb,3.7756e-01_jprb,3.1549e-01_jprb,2.2070e-01_jprb,3.2281e-01_jprb/)  
kbo( :, 5,30,11) = (/&
 & 4.3440e-01_jprb,4.7219e-01_jprb,3.9465e-01_jprb,2.7465e-01_jprb,3.6896e-01_jprb/)  
kbo( :, 1,31,11) = (/&
 & 1.5091e-01_jprb,1.6391e-01_jprb,1.3645e-01_jprb,9.6278e-02_jprb,1.6289e-01_jprb/)  
kbo( :, 2,31,11) = (/&
 & 1.9931e-01_jprb,2.1721e-01_jprb,1.8079e-01_jprb,1.2771e-01_jprb,1.9309e-01_jprb/)  
kbo( :, 3,31,11) = (/&
 & 2.5821e-01_jprb,2.8109e-01_jprb,2.3449e-01_jprb,1.6502e-01_jprb,2.2676e-01_jprb/)  
kbo( :, 4,31,11) = (/&
 & 3.2875e-01_jprb,3.5829e-01_jprb,2.9898e-01_jprb,2.0919e-01_jprb,2.6370e-01_jprb/)  
kbo( :, 5,31,11) = (/&
 & 4.1157e-01_jprb,4.5002e-01_jprb,3.7499e-01_jprb,2.6064e-01_jprb,3.0365e-01_jprb/)  
kbo( :, 1,32,11) = (/&
 & 1.4350e-01_jprb,1.5577e-01_jprb,1.2948e-01_jprb,9.1911e-02_jprb,1.3126e-01_jprb/)  
kbo( :, 2,32,11) = (/&
 & 1.8927e-01_jprb,2.0591e-01_jprb,1.7137e-01_jprb,1.2148e-01_jprb,1.5712e-01_jprb/)  
kbo( :, 3,32,11) = (/&
 & 2.4542e-01_jprb,2.6745e-01_jprb,2.2265e-01_jprb,1.5686e-01_jprb,1.8606e-01_jprb/)  

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


SUBROUTINE part29

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


kbo( :, 4,32,11) = (/&
 & 3.1299e-01_jprb,3.4211e-01_jprb,2.8464e-01_jprb,1.9879e-01_jprb,2.1776e-01_jprb/)  
kbo( :, 5,32,11) = (/&
 & 3.9189e-01_jprb,4.3154e-01_jprb,3.5784e-01_jprb,2.4869e-01_jprb,2.5261e-01_jprb/)  
kbo( :, 1,33,11) = (/&
 & 1.3727e-01_jprb,1.4838e-01_jprb,1.2325e-01_jprb,8.7723e-02_jprb,1.0656e-01_jprb/)  
kbo( :, 2,33,11) = (/&
 & 1.8110e-01_jprb,1.9647e-01_jprb,1.6322e-01_jprb,1.1562e-01_jprb,1.2867e-01_jprb/)  
kbo( :, 3,33,11) = (/&
 & 2.3493e-01_jprb,2.5633e-01_jprb,2.1260e-01_jprb,1.4945e-01_jprb,1.5344e-01_jprb/)  
kbo( :, 4,33,11) = (/&
 & 2.9930e-01_jprb,3.2911e-01_jprb,2.7241e-01_jprb,1.8991e-01_jprb,1.8112e-01_jprb/)  
kbo( :, 5,33,11) = (/&
 & 3.7491e-01_jprb,4.1658e-01_jprb,3.4340e-01_jprb,2.3867e-01_jprb,2.1188e-01_jprb/)  
kbo( :, 1,34,11) = (/&
 & 1.3092e-01_jprb,1.4094e-01_jprb,1.1667e-01_jprb,8.2911e-02_jprb,8.9471e-02_jprb/)  
kbo( :, 2,34,11) = (/&
 & 1.7283e-01_jprb,1.8720e-01_jprb,1.5498e-01_jprb,1.0945e-01_jprb,1.0879e-01_jprb/)  
kbo( :, 3,34,11) = (/&
 & 2.2423e-01_jprb,2.4508e-01_jprb,2.0247e-01_jprb,1.4175e-01_jprb,1.3067e-01_jprb/)  
kbo( :, 4,34,11) = (/&
 & 2.8568e-01_jprb,3.1613e-01_jprb,2.6022e-01_jprb,1.8119e-01_jprb,1.5551e-01_jprb/)  
kbo( :, 5,34,11) = (/&
 & 3.5836e-01_jprb,4.0157e-01_jprb,3.2942e-01_jprb,2.2886e-01_jprb,1.8335e-01_jprb/)  
kbo( :, 1,35,11) = (/&
 & 1.2228e-01_jprb,1.3118e-01_jprb,1.0815e-01_jprb,7.6480e-02_jprb,7.3770e-02_jprb/)  
kbo( :, 2,35,11) = (/&
 & 1.6172e-01_jprb,1.7516e-01_jprb,1.4419e-01_jprb,1.0138e-01_jprb,9.0532e-02_jprb/)  
kbo( :, 3,35,11) = (/&
 & 2.1005e-01_jprb,2.3024e-01_jprb,1.8936e-01_jprb,1.3212e-01_jprb,1.0977e-01_jprb/)  
kbo( :, 4,35,11) = (/&
 & 2.6823e-01_jprb,2.9837e-01_jprb,2.4450e-01_jprb,1.7010e-01_jprb,1.3152e-01_jprb/)  
kbo( :, 5,35,11) = (/&
 & 3.3803e-01_jprb,3.8069e-01_jprb,3.1151e-01_jprb,2.1623e-01_jprb,1.5639e-01_jprb/)  
kbo( :, 1,36,11) = (/&
 & 1.1127e-01_jprb,1.1902e-01_jprb,9.7790e-02_jprb,6.8652e-02_jprb,5.9294e-02_jprb/)  
kbo( :, 2,36,11) = (/&
 & 1.4779e-01_jprb,1.5991e-01_jprb,1.3100e-01_jprb,9.1678e-02_jprb,7.3428e-02_jprb/)  
kbo( :, 3,36,11) = (/&
 & 1.9248e-01_jprb,2.1152e-01_jprb,1.7310e-01_jprb,1.2044e-01_jprb,8.9931e-02_jprb/)  
kbo( :, 4,36,11) = (/&
 & 2.4698e-01_jprb,2.7546e-01_jprb,2.2513e-01_jprb,1.5635e-01_jprb,1.0865e-01_jprb/)  
kbo( :, 5,36,11) = (/&
 & 3.1312e-01_jprb,3.5357e-01_jprb,2.8900e-01_jprb,2.0028e-01_jprb,1.3007e-01_jprb/)  
kbo( :, 1,37,11) = (/&
 & 9.7171e-02_jprb,1.0370e-01_jprb,8.4930e-02_jprb,5.9132e-02_jprb,4.8800e-02_jprb/)  
kbo( :, 2,37,11) = (/&
 & 1.3022e-01_jprb,1.4042e-01_jprb,1.1467e-01_jprb,7.9788e-02_jprb,6.1101e-02_jprb/)  
kbo( :, 3,37,11) = (/&
 & 1.7053e-01_jprb,1.8732e-01_jprb,1.5267e-01_jprb,1.0592e-01_jprb,7.5549e-02_jprb/)  
kbo( :, 4,37,11) = (/&
 & 2.2021e-01_jprb,2.4584e-01_jprb,2.0025e-01_jprb,1.3887e-01_jprb,9.2123e-02_jprb/)  
kbo( :, 5,37,11) = (/&
 & 2.8142e-01_jprb,3.1806e-01_jprb,2.5954e-01_jprb,1.7970e-01_jprb,1.1114e-01_jprb/)  
kbo( :, 1,38,11) = (/&
 & 8.4750e-02_jprb,9.0447e-02_jprb,7.3862e-02_jprb,5.1024e-02_jprb,4.0120e-02_jprb/)  
kbo( :, 2,38,11) = (/&
 & 1.1472e-01_jprb,1.2347e-01_jprb,1.0053e-01_jprb,6.9437e-02_jprb,5.0776e-02_jprb/)  
kbo( :, 3,38,11) = (/&
 & 1.5136e-01_jprb,1.6607e-01_jprb,1.3499e-01_jprb,9.3219e-02_jprb,6.3385e-02_jprb/)  
kbo( :, 4,38,11) = (/&
 & 1.9680e-01_jprb,2.1978e-01_jprb,1.7847e-01_jprb,1.2347e-01_jprb,7.8006e-02_jprb/)  
kbo( :, 5,38,11) = (/&
 & 2.5341e-01_jprb,2.8675e-01_jprb,2.3338e-01_jprb,1.6145e-01_jprb,9.4840e-02_jprb/)  
kbo( :, 1,39,11) = (/&
 & 7.4011e-02_jprb,7.9191e-02_jprb,6.4478e-02_jprb,4.4207e-02_jprb,3.2805e-02_jprb/)  
kbo( :, 2,39,11) = (/&
 & 1.0122e-01_jprb,1.0907e-01_jprb,8.8541e-02_jprb,6.0759e-02_jprb,4.1971e-02_jprb/)  
kbo( :, 3,39,11) = (/&
 & 1.3478e-01_jprb,1.4779e-01_jprb,1.1992e-01_jprb,8.2325e-02_jprb,5.2901e-02_jprb/)  
kbo( :, 4,39,11) = (/&
 & 1.7660e-01_jprb,1.9727e-01_jprb,1.5986e-01_jprb,1.1017e-01_jprb,6.5730e-02_jprb/)  
kbo( :, 5,39,11) = (/&
 & 2.2909e-01_jprb,2.5986e-01_jprb,2.1074e-01_jprb,1.4557e-01_jprb,8.0505e-02_jprb/)  
kbo( :, 1,40,11) = (/&
 & 6.2473e-02_jprb,6.7073e-02_jprb,5.4566e-02_jprb,3.7187e-02_jprb,2.6885e-02_jprb/)  
kbo( :, 2,40,11) = (/&
 & 8.6606e-02_jprb,9.3644e-02_jprb,7.5801e-02_jprb,5.1661e-02_jprb,3.4836e-02_jprb/)  
kbo( :, 3,40,11) = (/&
 & 1.1680e-01_jprb,1.2799e-01_jprb,1.0372e-01_jprb,7.0693e-02_jprb,4.4368e-02_jprb/)  
kbo( :, 4,40,11) = (/&
 & 1.5470e-01_jprb,1.7247e-01_jprb,1.3960e-01_jprb,9.5679e-02_jprb,5.5687e-02_jprb/)  
kbo( :, 5,40,11) = (/&
 & 2.0237e-01_jprb,2.2977e-01_jprb,1.8573e-01_jprb,1.2793e-01_jprb,6.8850e-02_jprb/)  
kbo( :, 1,41,11) = (/&
 & 5.2446e-02_jprb,5.6507e-02_jprb,4.5959e-02_jprb,3.1195e-02_jprb,2.1948e-02_jprb/)  
kbo( :, 2,41,11) = (/&
 & 7.3701e-02_jprb,8.0111e-02_jprb,6.4714e-02_jprb,4.3819e-02_jprb,2.8834e-02_jprb/)  
kbo( :, 3,41,11) = (/&
 & 1.0076e-01_jprb,1.1070e-01_jprb,8.9512e-02_jprb,6.0576e-02_jprb,3.7158e-02_jprb/)  
kbo( :, 4,41,11) = (/&
 & 1.3508e-01_jprb,1.5057e-01_jprb,1.2175e-01_jprb,8.2892e-02_jprb,4.7100e-02_jprb/)  
kbo( :, 5,41,11) = (/&
 & 1.7854e-01_jprb,2.0269e-01_jprb,1.6356e-01_jprb,1.1214e-01_jprb,5.8823e-02_jprb/)  
kbo( :, 1,42,11) = (/&
 & 4.3993e-02_jprb,4.7543e-02_jprb,3.8628e-02_jprb,2.6175e-02_jprb,1.7822e-02_jprb/)  
kbo( :, 2,42,11) = (/&
 & 6.2618e-02_jprb,6.8461e-02_jprb,5.5301e-02_jprb,3.7217e-02_jprb,2.3728e-02_jprb/)  
kbo( :, 3,42,11) = (/&
 & 8.6814e-02_jprb,9.5948e-02_jprb,7.7328e-02_jprb,5.2009e-02_jprb,3.0953e-02_jprb/)  
kbo( :, 4,42,11) = (/&
 & 1.1793e-01_jprb,1.3165e-01_jprb,1.0635e-01_jprb,7.1967e-02_jprb,3.9679e-02_jprb/)  
kbo( :, 5,42,11) = (/&
 & 1.5767e-01_jprb,1.7909e-01_jprb,1.4430e-01_jprb,9.8414e-02_jprb,5.0031e-02_jprb/)  
kbo( :, 1,43,11) = (/&
 & 3.6051e-02_jprb,3.9068e-02_jprb,3.1700e-02_jprb,2.1500e-02_jprb,1.4336e-02_jprb/)  
kbo( :, 2,43,11) = (/&
 & 5.2131e-02_jprb,5.7262e-02_jprb,4.6240e-02_jprb,3.1003e-02_jprb,1.9367e-02_jprb/)  
kbo( :, 3,43,11) = (/&
 & 7.3341e-02_jprb,8.1590e-02_jprb,6.5706e-02_jprb,4.3880e-02_jprb,2.5604e-02_jprb/)  
kbo( :, 4,43,11) = (/&
 & 1.0113e-01_jprb,1.1336e-01_jprb,9.1355e-02_jprb,6.1391e-02_jprb,3.3210e-02_jprb/)  
kbo( :, 5,43,11) = (/&
 & 1.3704e-01_jprb,1.5566e-01_jprb,1.2530e-01_jprb,8.4984e-02_jprb,4.2357e-02_jprb/)  
kbo( :, 1,44,11) = (/&
 & 2.9153e-02_jprb,3.1689e-02_jprb,2.5651e-02_jprb,1.7398e-02_jprb,1.1452e-02_jprb/)  
kbo( :, 2,44,11) = (/&
 & 4.2894e-02_jprb,4.7271e-02_jprb,3.8161e-02_jprb,2.5559e-02_jprb,1.5702e-02_jprb/)  
kbo( :, 3,44,11) = (/&
 & 6.1316e-02_jprb,6.8606e-02_jprb,5.5241e-02_jprb,3.6706e-02_jprb,2.1051e-02_jprb/)  
kbo( :, 4,44,11) = (/&
 & 8.5809e-02_jprb,9.6811e-02_jprb,7.7867e-02_jprb,5.1972e-02_jprb,2.7643e-02_jprb/)  
kbo( :, 5,44,11) = (/&
 & 1.1804e-01_jprb,1.3427e-01_jprb,1.0805e-01_jprb,7.2832e-02_jprb,3.5698e-02_jprb/)  
kbo( :, 1,45,11) = (/&
 & 2.3474e-02_jprb,2.5620e-02_jprb,2.0683e-02_jprb,1.3992e-02_jprb,9.0872e-03_jprb/)  
kbo( :, 2,45,11) = (/&
 & 3.5168e-02_jprb,3.8884e-02_jprb,3.1357e-02_jprb,2.0998e-02_jprb,1.2650e-02_jprb/)  
kbo( :, 3,45,11) = (/&
 & 5.1125e-02_jprb,5.7479e-02_jprb,4.6268e-02_jprb,3.0685e-02_jprb,1.7188e-02_jprb/)  
kbo( :, 4,45,11) = (/&
 & 7.2642e-02_jprb,8.2540e-02_jprb,6.6385e-02_jprb,4.3982e-02_jprb,2.2878e-02_jprb/)  
kbo( :, 5,45,11) = (/&
 & 1.0141e-01_jprb,1.1593e-01_jprb,9.3129e-02_jprb,6.2384e-02_jprb,2.9912e-02_jprb/)  
kbo( :, 1,46,11) = (/&
 & 1.8622e-02_jprb,2.0419e-02_jprb,1.6446e-02_jprb,1.1089e-02_jprb,7.1508e-03_jprb/)  
kbo( :, 2,46,11) = (/&
 & 2.8465e-02_jprb,3.1591e-02_jprb,2.5425e-02_jprb,1.7003e-02_jprb,1.0100e-02_jprb/)  
kbo( :, 3,46,11) = (/&
 & 4.2115e-02_jprb,4.7558e-02_jprb,3.8296e-02_jprb,2.5381e-02_jprb,1.3928e-02_jprb/)  
kbo( :, 4,46,11) = (/&
 & 6.0884e-02_jprb,6.9606e-02_jprb,5.6000e-02_jprb,3.6888e-02_jprb,1.8798e-02_jprb/)  
kbo( :, 5,46,11) = (/&
 & 8.6271e-02_jprb,9.9295e-02_jprb,7.9645e-02_jprb,5.2994e-02_jprb,2.4873e-02_jprb/)  
kbo( :, 1,47,11) = (/&
 & 1.4376e-02_jprb,1.5849e-02_jprb,1.2756e-02_jprb,8.5637e-03_jprb,5.5846e-03_jprb/)  
kbo( :, 2,47,11) = (/&
 & 2.2523e-02_jprb,2.5091e-02_jprb,2.0133e-02_jprb,1.3433e-02_jprb,8.0135e-03_jprb/)  
kbo( :, 3,47,11) = (/&
 & 3.3987e-02_jprb,3.8521e-02_jprb,3.0971e-02_jprb,2.0498e-02_jprb,1.1217e-02_jprb/)  
kbo( :, 4,47,11) = (/&
 & 4.9995e-02_jprb,5.7475e-02_jprb,4.6271e-02_jprb,3.0427e-02_jprb,1.5354e-02_jprb/)  
kbo( :, 5,47,11) = (/&
 & 7.2095e-02_jprb,8.3553e-02_jprb,6.7099e-02_jprb,4.4249e-02_jprb,2.0567e-02_jprb/)  
kbo( :, 1,48,11) = (/&
 & 1.0948e-02_jprb,1.2187e-02_jprb,9.8197e-03_jprb,6.5686e-03_jprb,4.3309e-03_jprb/)  
kbo( :, 2,48,11) = (/&
 & 1.7678e-02_jprb,1.9773e-02_jprb,1.5847e-02_jprb,1.0523e-02_jprb,6.3196e-03_jprb/)  
kbo( :, 3,48,11) = (/&
 & 2.7272e-02_jprb,3.1035e-02_jprb,2.4886e-02_jprb,1.6427e-02_jprb,8.9753e-03_jprb/)  
kbo( :, 4,48,11) = (/&
 & 4.0847e-02_jprb,4.7231e-02_jprb,3.7989e-02_jprb,2.4968e-02_jprb,1.2435e-02_jprb/)  
kbo( :, 5,48,11) = (/&
 & 5.9943e-02_jprb,6.9928e-02_jprb,5.6261e-02_jprb,3.6863e-02_jprb,1.6884e-02_jprb/)  
kbo( :, 1,49,11) = (/&
 & 8.2227e-03_jprb,9.2751e-03_jprb,7.4918e-03_jprb,4.9857e-03_jprb,3.3179e-03_jprb/)  
kbo( :, 2,49,11) = (/&
 & 1.3710e-02_jprb,1.5461e-02_jprb,1.2382e-02_jprb,8.1837e-03_jprb,4.9416e-03_jprb/)  
kbo( :, 3,49,11) = (/&
 & 2.1752e-02_jprb,2.4824e-02_jprb,1.9870e-02_jprb,1.3064e-02_jprb,7.1199e-03_jprb/)  
kbo( :, 4,49,11) = (/&
 & 3.3202e-02_jprb,3.8592e-02_jprb,3.0992e-02_jprb,2.0326e-02_jprb,9.9895e-03_jprb/)  
kbo( :, 5,49,11) = (/&
 & 4.9564e-02_jprb,5.8206e-02_jprb,4.6898e-02_jprb,3.0661e-02_jprb,1.3734e-02_jprb/)  
kbo( :, 1,50,11) = (/&
 & 6.1915e-03_jprb,7.0808e-03_jprb,5.7341e-03_jprb,3.7933e-03_jprb,2.6014e-03_jprb/)  
kbo( :, 2,50,11) = (/&
 & 1.0634e-02_jprb,1.2140e-02_jprb,9.7185e-03_jprb,6.3965e-03_jprb,3.9374e-03_jprb/)  
kbo( :, 3,50,11) = (/&
 & 1.7391e-02_jprb,1.9945e-02_jprb,1.5955e-02_jprb,1.0445e-02_jprb,5.7678e-03_jprb/)  
kbo( :, 4,50,11) = (/&
 & 2.7125e-02_jprb,3.1701e-02_jprb,2.5413e-02_jprb,1.6599e-02_jprb,8.1975e-03_jprb/)  
kbo( :, 5,50,11) = (/&
 & 4.1193e-02_jprb,4.8726e-02_jprb,3.9234e-02_jprb,2.5636e-02_jprb,1.1392e-02_jprb/)  
kbo( :, 1,51,11) = (/&
 & 4.6415e-03_jprb,5.3779e-03_jprb,4.3645e-03_jprb,2.8762e-03_jprb,2.0670e-03_jprb/)  
kbo( :, 2,51,11) = (/&
 & 8.1982e-03_jprb,9.4964e-03_jprb,7.6128e-03_jprb,4.9899e-03_jprb,3.1638e-03_jprb/)  
kbo( :, 3,51,11) = (/&
 & 1.3839e-02_jprb,1.6014e-02_jprb,1.2808e-02_jprb,8.3362e-03_jprb,4.7173e-03_jprb/)  
kbo( :, 4,51,11) = (/&
 & 2.2155e-02_jprb,2.6015e-02_jprb,2.0833e-02_jprb,1.3537e-02_jprb,6.8071e-03_jprb/)  
kbo( :, 5,51,11) = (/&
 & 3.4266e-02_jprb,4.0819e-02_jprb,3.2809e-02_jprb,2.1399e-02_jprb,9.5494e-03_jprb/)  
kbo( :, 1,52,11) = (/&
 & 3.4450e-03_jprb,4.0419e-03_jprb,3.2822e-03_jprb,2.1593e-03_jprb,1.6475e-03_jprb/)  
kbo( :, 2,52,11) = (/&
 & 6.2508e-03_jprb,7.3537e-03_jprb,5.9181e-03_jprb,3.8603e-03_jprb,2.5371e-03_jprb/)  
kbo( :, 3,52,11) = (/&
 & 1.0900e-02_jprb,1.2773e-02_jprb,1.0216e-02_jprb,6.6126e-03_jprb,3.8348e-03_jprb/)  
kbo( :, 4,52,11) = (/&
 & 1.7975e-02_jprb,2.1233e-02_jprb,1.7001e-02_jprb,1.0994e-02_jprb,5.6303e-03_jprb/)  
kbo( :, 5,52,11) = (/&
 & 2.8375e-02_jprb,3.4038e-02_jprb,2.7332e-02_jprb,1.7744e-02_jprb,7.9843e-03_jprb/)  
kbo( :, 1,53,11) = (/&
 & 2.5331e-03_jprb,3.0017e-03_jprb,2.4368e-03_jprb,1.5998e-03_jprb,1.3193e-03_jprb/)  
kbo( :, 2,53,11) = (/&
 & 4.7088e-03_jprb,5.6274e-03_jprb,4.5483e-03_jprb,2.9549e-03_jprb,2.0294e-03_jprb/)  
kbo( :, 3,53,11) = (/&
 & 8.4774e-03_jprb,1.0097e-02_jprb,8.0775e-03_jprb,5.2092e-03_jprb,3.0959e-03_jprb/)  
kbo( :, 4,53,11) = (/&
 & 1.4441e-02_jprb,1.7209e-02_jprb,1.3780e-02_jprb,8.8745e-03_jprb,4.6172e-03_jprb/)  
kbo( :, 5,53,11) = (/&
 & 2.3385e-02_jprb,2.8212e-02_jprb,2.2650e-02_jprb,1.4615e-02_jprb,6.6511e-03_jprb/)  
kbo( :, 1,54,11) = (/&
 & 1.8954e-03_jprb,2.2607e-03_jprb,1.8278e-03_jprb,1.1946e-03_jprb,1.0985e-03_jprb/)  
kbo( :, 2,54,11) = (/&
 & 3.5862e-03_jprb,4.3471e-03_jprb,3.5189e-03_jprb,2.2822e-03_jprb,1.6895e-03_jprb/)  
kbo( :, 3,54,11) = (/&
 & 6.6312e-03_jprb,8.0424e-03_jprb,6.4523e-03_jprb,4.1406e-03_jprb,2.5940e-03_jprb/)  
kbo( :, 4,54,11) = (/&
 & 1.1671e-02_jprb,1.4089e-02_jprb,1.1281e-02_jprb,7.2279e-03_jprb,3.9122e-03_jprb/)  
kbo( :, 5,54,11) = (/&
 & 1.9432e-02_jprb,2.3598e-02_jprb,1.8940e-02_jprb,1.2154e-02_jprb,5.7337e-03_jprb/)  
kbo( :, 1,55,11) = (/&
 & 1.4290e-03_jprb,1.7125e-03_jprb,1.3776e-03_jprb,8.9347e-04_jprb,9.3784e-04_jprb/)  
kbo( :, 2,55,11) = (/&
 & 2.7457e-03_jprb,3.3623e-03_jprb,2.7182e-03_jprb,1.7597e-03_jprb,1.4453e-03_jprb/)  
kbo( :, 3,55,11) = (/&
 & 5.1874e-03_jprb,6.3979e-03_jprb,5.1511e-03_jprb,3.2930e-03_jprb,2.2221e-03_jprb/)  
kbo( :, 4,55,11) = (/&
 & 9.4226e-03_jprb,1.1550e-02_jprb,9.2557e-03_jprb,5.8990e-03_jprb,3.3851e-03_jprb/)  
kbo( :, 5,55,11) = (/&
 & 1.6150e-02_jprb,1.9777e-02_jprb,1.5877e-02_jprb,1.0138e-02_jprb,5.0396e-03_jprb/)  
kbo( :, 1,56,11) = (/&
 & 1.0680e-03_jprb,1.2890e-03_jprb,1.0316e-03_jprb,6.6446e-04_jprb,8.0430e-04_jprb/)  
kbo( :, 2,56,11) = (/&
 & 2.0978e-03_jprb,2.5858e-03_jprb,2.0823e-03_jprb,1.3442e-03_jprb,1.2456e-03_jprb/)  
kbo( :, 3,56,11) = (/&
 & 4.0301e-03_jprb,5.0435e-03_jprb,4.0770e-03_jprb,2.5996e-03_jprb,1.9142e-03_jprb/)  
kbo( :, 4,56,11) = (/&
 & 7.5402e-03_jprb,9.4035e-03_jprb,7.5479e-03_jprb,4.7898e-03_jprb,2.9393e-03_jprb/)  
kbo( :, 5,56,11) = (/&
 & 1.3330e-02_jprb,1.6498e-02_jprb,1.3248e-02_jprb,8.4281e-03_jprb,4.4305e-03_jprb/)  
kbo( :, 1,57,11) = (/&
 & 7.8801e-04_jprb,9.6289e-04_jprb,7.6691e-04_jprb,4.9097e-04_jprb,6.8859e-04_jprb/)  
kbo( :, 2,57,11) = (/&
 & 1.5966e-03_jprb,1.9777e-03_jprb,1.5840e-03_jprb,1.0164e-03_jprb,1.0803e-03_jprb/)  
kbo( :, 3,57,11) = (/&
 & 3.1118e-03_jprb,3.9473e-03_jprb,3.1938e-03_jprb,2.0343e-03_jprb,1.6622e-03_jprb/)  
kbo( :, 4,57,11) = (/&
 & 5.9752e-03_jprb,7.5907e-03_jprb,6.1119e-03_jprb,3.8625e-03_jprb,2.5583e-03_jprb/)  
kbo( :, 5,57,11) = (/&
 & 1.0909e-02_jprb,1.3694e-02_jprb,1.0990e-02_jprb,6.9630e-03_jprb,3.8987e-03_jprb/)  
kbo( :, 1,58,11) = (/&
 & 5.8173e-04_jprb,7.2041e-04_jprb,5.7279e-04_jprb,3.6474e-04_jprb,5.9355e-04_jprb/)  
kbo( :, 2,58,11) = (/&
 & 1.2258e-03_jprb,1.5249e-03_jprb,1.2145e-03_jprb,7.7245e-04_jprb,9.5456e-04_jprb/)  
kbo( :, 3,58,11) = (/&
 & 2.4241e-03_jprb,3.1044e-03_jprb,2.5087e-03_jprb,1.5934e-03_jprb,1.4697e-03_jprb/)  
kbo( :, 4,58,11) = (/&
 & 4.7512e-03_jprb,6.1351e-03_jprb,4.9587e-03_jprb,3.1245e-03_jprb,2.2636e-03_jprb/)  
kbo( :, 5,58,11) = (/&
 & 8.9451e-03_jprb,1.1404e-02_jprb,9.1570e-03_jprb,5.7752e-03_jprb,3.4844e-03_jprb/)  
kbo( :, 1,59,11) = (/&
 & 5.0522e-04_jprb,6.3041e-04_jprb,4.9923e-04_jprb,3.1529e-04_jprb,5.7581e-04_jprb/)  
kbo( :, 2,59,11) = (/&
 & 1.0885e-03_jprb,1.3595e-03_jprb,1.0775e-03_jprb,6.7742e-04_jprb,9.3929e-04_jprb/)  
kbo( :, 3,59,11) = (/&
 & 2.1758e-03_jprb,2.7928e-03_jprb,2.2487e-03_jprb,1.4181e-03_jprb,1.4518e-03_jprb/)  
kbo( :, 4,59,11) = (/&
 & 4.2933e-03_jprb,5.5813e-03_jprb,4.5166e-03_jprb,2.8320e-03_jprb,2.2456e-03_jprb/)  
kbo( :, 5,59,11) = (/&
 & 8.1802e-03_jprb,1.0526e-02_jprb,8.4597e-03_jprb,5.3170e-03_jprb,3.4840e-03_jprb/)  
kbo( :, 1,13,12) = (/&
 & 7.9228e-01_jprb,6.7739e-01_jprb,5.9851e-01_jprb,4.7753e-01_jprb,2.7637e+00_jprb/)  
kbo( :, 2,13,12) = (/&
 & 1.1298e+00_jprb,9.7146e-01_jprb,8.5148e-01_jprb,6.6642e-01_jprb,2.9701e+00_jprb/)  
kbo( :, 3,13,12) = (/&
 & 1.5315e+00_jprb,1.3283e+00_jprb,1.1586e+00_jprb,8.9312e-01_jprb,3.2188e+00_jprb/)  
kbo( :, 4,13,12) = (/&
 & 1.9944e+00_jprb,1.7422e+00_jprb,1.5174e+00_jprb,1.1641e+00_jprb,3.5302e+00_jprb/)  
kbo( :, 5,13,12) = (/&
 & 2.5089e+00_jprb,2.2052e+00_jprb,1.9170e+00_jprb,1.4741e+00_jprb,3.8622e+00_jprb/)  
kbo( :, 1,14,12) = (/&
 & 8.3949e-01_jprb,7.3093e-01_jprb,6.4746e-01_jprb,4.9215e-01_jprb,2.7289e+00_jprb/)  
kbo( :, 2,14,12) = (/&
 & 1.1838e+00_jprb,1.0392e+00_jprb,9.1530e-01_jprb,6.8593e-01_jprb,2.9374e+00_jprb/)  
kbo( :, 3,14,12) = (/&
 & 1.5936e+00_jprb,1.4080e+00_jprb,1.2362e+00_jprb,9.1792e-01_jprb,3.1661e+00_jprb/)  

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


SUBROUTINE part30

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


kbo( :, 4,14,12) = (/&
 & 2.0618e+00_jprb,1.8318e+00_jprb,1.6006e+00_jprb,1.1951e+00_jprb,3.4133e+00_jprb/)  
kbo( :, 5,14,12) = (/&
 & 2.5782e+00_jprb,2.3016e+00_jprb,2.0067e+00_jprb,1.5032e+00_jprb,3.6330e+00_jprb/)  
kbo( :, 1,15,12) = (/&
 & 8.6850e-01_jprb,7.7816e-01_jprb,6.8988e-01_jprb,5.1142e-01_jprb,2.4839e+00_jprb/)  
kbo( :, 2,15,12) = (/&
 & 1.2152e+00_jprb,1.0938e+00_jprb,9.6727e-01_jprb,7.1145e-01_jprb,2.6794e+00_jprb/)  
kbo( :, 3,15,12) = (/&
 & 1.6231e+00_jprb,1.4682e+00_jprb,1.2912e+00_jprb,9.5405e-01_jprb,2.8636e+00_jprb/)  
kbo( :, 4,15,12) = (/&
 & 2.0833e+00_jprb,1.8933e+00_jprb,1.6562e+00_jprb,1.2315e+00_jprb,3.0203e+00_jprb/)  
kbo( :, 5,15,12) = (/&
 & 2.5907e+00_jprb,2.3660e+00_jprb,2.0692e+00_jprb,1.5407e+00_jprb,3.1955e+00_jprb/)  
kbo( :, 1,16,12) = (/&
 & 8.7903e-01_jprb,8.1154e-01_jprb,7.2017e-01_jprb,5.2966e-01_jprb,2.1487e+00_jprb/)  
kbo( :, 2,16,12) = (/&
 & 1.2196e+00_jprb,1.1290e+00_jprb,9.9867e-01_jprb,7.3589e-01_jprb,2.2979e+00_jprb/)  
kbo( :, 3,16,12) = (/&
 & 1.6158e+00_jprb,1.5020e+00_jprb,1.3215e+00_jprb,9.8028e-01_jprb,2.4332e+00_jprb/)  
kbo( :, 4,16,12) = (/&
 & 2.0608e+00_jprb,1.9258e+00_jprb,1.6884e+00_jprb,1.2547e+00_jprb,2.5777e+00_jprb/)  
kbo( :, 5,16,12) = (/&
 & 2.5444e+00_jprb,2.3922e+00_jprb,2.0979e+00_jprb,1.5613e+00_jprb,2.7073e+00_jprb/)  
kbo( :, 1,17,12) = (/&
 & 8.6797e-01_jprb,8.2657e-01_jprb,7.3338e-01_jprb,5.3823e-01_jprb,1.8450e+00_jprb/)  
kbo( :, 2,17,12) = (/&
 & 1.1929e+00_jprb,1.1407e+00_jprb,1.0074e+00_jprb,7.4525e-01_jprb,1.9691e+00_jprb/)  
kbo( :, 3,17,12) = (/&
 & 1.5694e+00_jprb,1.5051e+00_jprb,1.3270e+00_jprb,9.8535e-01_jprb,2.0903e+00_jprb/)  
kbo( :, 4,17,12) = (/&
 & 1.9886e+00_jprb,1.9165e+00_jprb,1.6896e+00_jprb,1.2533e+00_jprb,2.2071e+00_jprb/)  
kbo( :, 5,17,12) = (/&
 & 2.4525e+00_jprb,2.3619e+00_jprb,2.0849e+00_jprb,1.5524e+00_jprb,2.3229e+00_jprb/)  
kbo( :, 1,18,12) = (/&
 & 8.3385e-01_jprb,8.2168e-01_jprb,7.2749e-01_jprb,5.3649e-01_jprb,1.6234e+00_jprb/)  
kbo( :, 2,18,12) = (/&
 & 1.1389e+00_jprb,1.1231e+00_jprb,9.9306e-01_jprb,7.3634e-01_jprb,1.7307e+00_jprb/)  
kbo( :, 3,18,12) = (/&
 & 1.4887e+00_jprb,1.4739e+00_jprb,1.3034e+00_jprb,9.6635e-01_jprb,1.8435e+00_jprb/)  
kbo( :, 4,18,12) = (/&
 & 1.8815e+00_jprb,1.8634e+00_jprb,1.6522e+00_jprb,1.2254e+00_jprb,1.9484e+00_jprb/)  
kbo( :, 5,18,12) = (/&
 & 2.3106e+00_jprb,2.2920e+00_jprb,2.0285e+00_jprb,1.5162e+00_jprb,2.0551e+00_jprb/)  
kbo( :, 1,19,12) = (/&
 & 7.8530e-01_jprb,7.9679e-01_jprb,7.0528e-01_jprb,5.2265e-01_jprb,1.4533e+00_jprb/)  
kbo( :, 2,19,12) = (/&
 & 1.0644e+00_jprb,1.0830e+00_jprb,9.5920e-01_jprb,7.1045e-01_jprb,1.5651e+00_jprb/)  
kbo( :, 3,19,12) = (/&
 & 1.3856e+00_jprb,1.4087e+00_jprb,1.2542e+00_jprb,9.2677e-01_jprb,1.6748e+00_jprb/)  
kbo( :, 4,19,12) = (/&
 & 1.7452e+00_jprb,1.7745e+00_jprb,1.5782e+00_jprb,1.1737e+00_jprb,1.7839e+00_jprb/)  
kbo( :, 5,19,12) = (/&
 & 2.1398e+00_jprb,2.1794e+00_jprb,1.9373e+00_jprb,1.4553e+00_jprb,1.9023e+00_jprb/)  
kbo( :, 1,20,12) = (/&
 & 7.2778e-01_jprb,7.6194e-01_jprb,6.7390e-01_jprb,5.0077e-01_jprb,1.3617e+00_jprb/)  
kbo( :, 2,20,12) = (/&
 & 9.8068e-01_jprb,1.0262e+00_jprb,9.1245e-01_jprb,6.7491e-01_jprb,1.4807e+00_jprb/)  
kbo( :, 3,20,12) = (/&
 & 1.2722e+00_jprb,1.3293e+00_jprb,1.1831e+00_jprb,8.7574e-01_jprb,1.5966e+00_jprb/)  
kbo( :, 4,20,12) = (/&
 & 1.5991e+00_jprb,1.6714e+00_jprb,1.4853e+00_jprb,1.1090e+00_jprb,1.7163e+00_jprb/)  
kbo( :, 5,20,12) = (/&
 & 1.9535e+00_jprb,2.0500e+00_jprb,1.8231e+00_jprb,1.3754e+00_jprb,1.8494e+00_jprb/)  
kbo( :, 1,21,12) = (/&
 & 6.6504e-01_jprb,7.1378e-01_jprb,6.3305e-01_jprb,4.7002e-01_jprb,1.2946e+00_jprb/)  
kbo( :, 2,21,12) = (/&
 & 8.9278e-01_jprb,9.5693e-01_jprb,8.4967e-01_jprb,6.2960e-01_jprb,1.4170e+00_jprb/)  
kbo( :, 3,21,12) = (/&
 & 1.1553e+00_jprb,1.2382e+00_jprb,1.0968e+00_jprb,8.1599e-01_jprb,1.5400e+00_jprb/)  
kbo( :, 4,21,12) = (/&
 & 1.4482e+00_jprb,1.5551e+00_jprb,1.3761e+00_jprb,1.0330e+00_jprb,1.6737e+00_jprb/)  
kbo( :, 5,21,12) = (/&
 & 1.7635e+00_jprb,1.8984e+00_jprb,1.6920e+00_jprb,1.2782e+00_jprb,1.8148e+00_jprb/)  
kbo( :, 1,22,12) = (/&
 & 6.1409e-01_jprb,6.7210e-01_jprb,5.9517e-01_jprb,4.4205e-01_jprb,1.2140e+00_jprb/)  
kbo( :, 2,22,12) = (/&
 & 8.2009e-01_jprb,8.9690e-01_jprb,7.9134e-01_jprb,5.8900e-01_jprb,1.3388e+00_jprb/)  
kbo( :, 3,22,12) = (/&
 & 1.0573e+00_jprb,1.1562e+00_jprb,1.0170e+00_jprb,7.6239e-01_jprb,1.4674e+00_jprb/)  
kbo( :, 4,22,12) = (/&
 & 1.3173e+00_jprb,1.4441e+00_jprb,1.2773e+00_jprb,9.6111e-01_jprb,1.6103e+00_jprb/)  
kbo( :, 5,22,12) = (/&
 & 1.6008e+00_jprb,1.7593e+00_jprb,1.5714e+00_jprb,1.1859e+00_jprb,1.7554e+00_jprb/)  
kbo( :, 1,23,12) = (/&
 & 5.6489e-01_jprb,6.2643e-01_jprb,5.5181e-01_jprb,4.1055e-01_jprb,1.1296e+00_jprb/)  
kbo( :, 2,23,12) = (/&
 & 7.5136e-01_jprb,8.3205e-01_jprb,7.2882e-01_jprb,5.4587e-01_jprb,1.2556e+00_jprb/)  
kbo( :, 3,23,12) = (/&
 & 9.6147e-01_jprb,1.0673e+00_jprb,9.3622e-01_jprb,7.0474e-01_jprb,1.3939e+00_jprb/)  
kbo( :, 4,23,12) = (/&
 & 1.1945e+00_jprb,1.3292e+00_jprb,1.1758e+00_jprb,8.8540e-01_jprb,1.5380e+00_jprb/)  
kbo( :, 5,23,12) = (/&
 & 1.4498e+00_jprb,1.6203e+00_jprb,1.4443e+00_jprb,1.0897e+00_jprb,1.6879e+00_jprb/)  
kbo( :, 1,24,12) = (/&
 & 5.2019e-01_jprb,5.8108e-01_jprb,5.0714e-01_jprb,3.7894e-01_jprb,1.0335e+00_jprb/)  
kbo( :, 2,24,12) = (/&
 & 6.8678e-01_jprb,7.6753e-01_jprb,6.6836e-01_jprb,5.0261e-01_jprb,1.1623e+00_jprb/)  
kbo( :, 3,24,12) = (/&
 & 8.7490e-01_jprb,9.8000e-01_jprb,8.5888e-01_jprb,6.4559e-01_jprb,1.3047e+00_jprb/)  
kbo( :, 4,24,12) = (/&
 & 1.0855e+00_jprb,1.2194e+00_jprb,1.0757e+00_jprb,8.1029e-01_jprb,1.4513e+00_jprb/)  
kbo( :, 5,24,12) = (/&
 & 1.3195e+00_jprb,1.4875e+00_jprb,1.3176e+00_jprb,9.9617e-01_jprb,1.6042e+00_jprb/)  
kbo( :, 1,25,12) = (/&
 & 4.8125e-01_jprb,5.3776e-01_jprb,4.6543e-01_jprb,3.4920e-01_jprb,9.4296e-01_jprb/)  
kbo( :, 2,25,12) = (/&
 & 6.3062e-01_jprb,7.0671e-01_jprb,6.1374e-01_jprb,4.6025e-01_jprb,1.0786e+00_jprb/)  
kbo( :, 3,25,12) = (/&
 & 8.0138e-01_jprb,8.9961e-01_jprb,7.8690e-01_jprb,5.8999e-01_jprb,1.2219e+00_jprb/)  
kbo( :, 4,25,12) = (/&
 & 9.9501e-01_jprb,1.1200e+00_jprb,9.8131e-01_jprb,7.3979e-01_jprb,1.3746e+00_jprb/)  
kbo( :, 5,25,12) = (/&
 & 1.2133e+00_jprb,1.3690e+00_jprb,1.2002e+00_jprb,9.0848e-01_jprb,1.5310e+00_jprb/)  
kbo( :, 1,26,12) = (/&
 & 4.4718e-01_jprb,5.0045e-01_jprb,4.3026e-01_jprb,3.2190e-01_jprb,8.7401e-01_jprb/)  
kbo( :, 2,26,12) = (/&
 & 5.8377e-01_jprb,6.5329e-01_jprb,5.6669e-01_jprb,4.2222e-01_jprb,1.0132e+00_jprb/)  
kbo( :, 3,26,12) = (/&
 & 7.4225e-01_jprb,8.3122e-01_jprb,7.2142e-01_jprb,5.4093e-01_jprb,1.1599e+00_jprb/)  
kbo( :, 4,26,12) = (/&
 & 9.2576e-01_jprb,1.0363e+00_jprb,8.9875e-01_jprb,6.7651e-01_jprb,1.3150e+00_jprb/)  
kbo( :, 5,26,12) = (/&
 & 1.1359e+00_jprb,1.2689e+00_jprb,1.1003e+00_jprb,8.3128e-01_jprb,1.4725e+00_jprb/)  
kbo( :, 1,27,12) = (/&
 & 4.1742e-01_jprb,4.6589e-01_jprb,4.0014e-01_jprb,2.9607e-01_jprb,8.0311e-01_jprb/)  
kbo( :, 2,27,12) = (/&
 & 5.4534e-01_jprb,6.0694e-01_jprb,5.2254e-01_jprb,3.8814e-01_jprb,9.3748e-01_jprb/)  
kbo( :, 3,27,12) = (/&
 & 6.9705e-01_jprb,7.7317e-01_jprb,6.6432e-01_jprb,4.9566e-01_jprb,1.0808e+00_jprb/)  
kbo( :, 4,27,12) = (/&
 & 8.7421e-01_jprb,9.6588e-01_jprb,8.2816e-01_jprb,6.1915e-01_jprb,1.2270e+00_jprb/)  
kbo( :, 5,27,12) = (/&
 & 1.0783e+00_jprb,1.1900e+00_jprb,1.0151e+00_jprb,7.6356e-01_jprb,1.3781e+00_jprb/)  
kbo( :, 1,28,12) = (/&
 & 3.9237e-01_jprb,4.3515e-01_jprb,3.7248e-01_jprb,2.7305e-01_jprb,7.2280e-01_jprb/)  
kbo( :, 2,28,12) = (/&
 & 5.1563e-01_jprb,5.6757e-01_jprb,4.8403e-01_jprb,3.5700e-01_jprb,8.4677e-01_jprb/)  
kbo( :, 3,28,12) = (/&
 & 6.6308e-01_jprb,7.2519e-01_jprb,6.1590e-01_jprb,4.5472e-01_jprb,9.7710e-01_jprb/)  
kbo( :, 4,28,12) = (/&
 & 8.3646e-01_jprb,9.1152e-01_jprb,7.6997e-01_jprb,5.6988e-01_jprb,1.1096e+00_jprb/)  
kbo( :, 5,28,12) = (/&
 & 1.0359e+00_jprb,1.1276e+00_jprb,9.4962e-01_jprb,7.0526e-01_jprb,1.2485e+00_jprb/)  
kbo( :, 1,29,12) = (/&
 & 3.7279e-01_jprb,4.1014e-01_jprb,3.4774e-01_jprb,2.5341e-01_jprb,6.3269e-01_jprb/)  
kbo( :, 2,29,12) = (/&
 & 4.9283e-01_jprb,5.3769e-01_jprb,4.5233e-01_jprb,3.3021e-01_jprb,7.4294e-01_jprb/)  
kbo( :, 3,29,12) = (/&
 & 6.3731e-01_jprb,6.8994e-01_jprb,5.7780e-01_jprb,4.2070e-01_jprb,8.5678e-01_jprb/)  
kbo( :, 4,29,12) = (/&
 & 8.0637e-01_jprb,8.7025e-01_jprb,7.2644e-01_jprb,5.2908e-01_jprb,9.7595e-01_jprb/)  
kbo( :, 5,29,12) = (/&
 & 9.9943e-01_jprb,1.0813e+00_jprb,9.0128e-01_jprb,6.5866e-01_jprb,1.1019e+00_jprb/)  
kbo( :, 1,30,12) = (/&
 & 3.5722e-01_jprb,3.9080e-01_jprb,3.2710e-01_jprb,2.3601e-01_jprb,5.4037e-01_jprb/)  
kbo( :, 2,30,12) = (/&
 & 4.7448e-01_jprb,5.1429e-01_jprb,4.2783e-01_jprb,3.0716e-01_jprb,6.3503e-01_jprb/)  
kbo( :, 3,30,12) = (/&
 & 6.1439e-01_jprb,6.6308e-01_jprb,5.4920e-01_jprb,3.9345e-01_jprb,7.3381e-01_jprb/)  
kbo( :, 4,30,12) = (/&
 & 7.7644e-01_jprb,8.4062e-01_jprb,6.9350e-01_jprb,4.9782e-01_jprb,8.4010e-01_jprb/)  
kbo( :, 5,30,12) = (/&
 & 9.6226e-01_jprb,1.0478e+00_jprb,8.6468e-01_jprb,6.2256e-01_jprb,9.5398e-01_jprb/)  
kbo( :, 1,31,12) = (/&
 & 3.4498e-01_jprb,3.7545e-01_jprb,3.1150e-01_jprb,2.2122e-01_jprb,4.4905e-01_jprb/)  
kbo( :, 2,31,12) = (/&
 & 4.5820e-01_jprb,4.9653e-01_jprb,4.0983e-01_jprb,2.8888e-01_jprb,5.2917e-01_jprb/)  
kbo( :, 3,31,12) = (/&
 & 5.9170e-01_jprb,6.4378e-01_jprb,5.2810e-01_jprb,3.7284e-01_jprb,6.1590e-01_jprb/)  
kbo( :, 4,31,12) = (/&
 & 7.4787e-01_jprb,8.1835e-01_jprb,6.7064e-01_jprb,4.7448e-01_jprb,7.0953e-01_jprb/)  
kbo( :, 5,31,12) = (/&
 & 9.2776e-01_jprb,1.0238e+00_jprb,8.4020e-01_jprb,5.9540e-01_jprb,8.0850e-01_jprb/)  
kbo( :, 1,32,12) = (/&
 & 3.3387e-01_jprb,3.6397e-01_jprb,2.9979e-01_jprb,2.0962e-01_jprb,3.7307e-01_jprb/)  
kbo( :, 2,32,12) = (/&
 & 4.4163e-01_jprb,4.8363e-01_jprb,3.9607e-01_jprb,2.7594e-01_jprb,4.4216e-01_jprb/)  
kbo( :, 3,32,12) = (/&
 & 5.7015e-01_jprb,6.2876e-01_jprb,5.1363e-01_jprb,3.5765e-01_jprb,5.1788e-01_jprb/)  
kbo( :, 4,32,12) = (/&
 & 7.2141e-01_jprb,8.0151e-01_jprb,6.5517e-01_jprb,4.5717e-01_jprb,6.0016e-01_jprb/)  
kbo( :, 5,32,12) = (/&
 & 8.9922e-01_jprb,1.0062e+00_jprb,8.2407e-01_jprb,5.7459e-01_jprb,6.8536e-01_jprb/)  
kbo( :, 1,33,12) = (/&
 & 3.2293e-01_jprb,3.5547e-01_jprb,2.9093e-01_jprb,2.0149e-01_jprb,3.0917e-01_jprb/)  
kbo( :, 2,33,12) = (/&
 & 4.2627e-01_jprb,4.7355e-01_jprb,3.8619e-01_jprb,2.6640e-01_jprb,3.6920e-01_jprb/)  
kbo( :, 3,33,12) = (/&
 & 5.5058e-01_jprb,6.1665e-01_jprb,5.0346e-01_jprb,3.4679e-01_jprb,4.3505e-01_jprb/)  
kbo( :, 4,33,12) = (/&
 & 6.9980e-01_jprb,7.8852e-01_jprb,6.4475e-01_jprb,4.4442e-01_jprb,5.0488e-01_jprb/)  
kbo( :, 5,33,12) = (/&
 & 8.7592e-01_jprb,9.9390e-01_jprb,8.1496e-01_jprb,5.6029e-01_jprb,5.7746e-01_jprb/)  
kbo( :, 1,34,12) = (/&
 & 3.0940e-01_jprb,3.4528e-01_jprb,2.8156e-01_jprb,1.9363e-01_jprb,2.6611e-01_jprb/)  
kbo( :, 2,34,12) = (/&
 & 4.0894e-01_jprb,4.6074e-01_jprb,3.7565e-01_jprb,2.5763e-01_jprb,3.1938e-01_jprb/)  
kbo( :, 3,34,12) = (/&
 & 5.3041e-01_jprb,6.0251e-01_jprb,4.9185e-01_jprb,3.3679e-01_jprb,3.7762e-01_jprb/)  
kbo( :, 4,34,12) = (/&
 & 6.7786e-01_jprb,7.7350e-01_jprb,6.3399e-01_jprb,4.3276e-01_jprb,4.3880e-01_jprb/)  
kbo( :, 5,34,12) = (/&
 & 8.5216e-01_jprb,9.8050e-01_jprb,8.0443e-01_jprb,5.4758e-01_jprb,5.0384e-01_jprb/)  
kbo( :, 1,35,12) = (/&
 & 2.8939e-01_jprb,3.2702e-01_jprb,2.6622e-01_jprb,1.8249e-01_jprb,2.2426e-01_jprb/)  
kbo( :, 2,35,12) = (/&
 & 3.8432e-01_jprb,4.3860e-01_jprb,3.5768e-01_jprb,2.4461e-01_jprb,2.7044e-01_jprb/)  
kbo( :, 3,35,12) = (/&
 & 5.0227e-01_jprb,5.7687e-01_jprb,4.7133e-01_jprb,3.2156e-01_jprb,3.2047e-01_jprb/)  
kbo( :, 4,35,12) = (/&
 & 6.4522e-01_jprb,7.4630e-01_jprb,6.1202e-01_jprb,4.1516e-01_jprb,3.7356e-01_jprb/)  
kbo( :, 5,35,12) = (/&
 & 8.1623e-01_jprb,9.5325e-01_jprb,7.8163e-01_jprb,5.2821e-01_jprb,4.3272e-01_jprb/)  
kbo( :, 1,36,12) = (/&
 & 2.6330e-01_jprb,3.0070e-01_jprb,2.4442e-01_jprb,1.6757e-01_jprb,1.8310e-01_jprb/)  
kbo( :, 2,36,12) = (/&
 & 3.5255e-01_jprb,4.0667e-01_jprb,3.3144e-01_jprb,2.2644e-01_jprb,2.2200e-01_jprb/)  
kbo( :, 3,36,12) = (/&
 & 4.6468e-01_jprb,5.3948e-01_jprb,4.4110e-01_jprb,3.0012e-01_jprb,2.6412e-01_jprb/)  
kbo( :, 4,36,12) = (/&
 & 6.0155e-01_jprb,7.0486e-01_jprb,5.7783e-01_jprb,3.9058e-01_jprb,3.1002e-01_jprb/)  
kbo( :, 5,36,12) = (/&
 & 7.6703e-01_jprb,9.0873e-01_jprb,7.4457e-01_jprb,5.0060e-01_jprb,3.6395e-01_jprb/)  
kbo( :, 1,37,12) = (/&
 & 2.3001e-01_jprb,2.6442e-01_jprb,2.1459e-01_jprb,1.4727e-01_jprb,1.5536e-01_jprb/)  
kbo( :, 2,37,12) = (/&
 & 3.1096e-01_jprb,3.6197e-01_jprb,2.9461e-01_jprb,2.0129e-01_jprb,1.9004e-01_jprb/)  
kbo( :, 3,37,12) = (/&
 & 4.1431e-01_jprb,4.8589e-01_jprb,3.9700e-01_jprb,2.7000e-01_jprb,2.2800e-01_jprb/)  
kbo( :, 4,37,12) = (/&
 & 5.4226e-01_jprb,6.4266e-01_jprb,5.2665e-01_jprb,3.5524e-01_jprb,2.6910e-01_jprb/)  
kbo( :, 5,37,12) = (/&
 & 6.9841e-01_jprb,8.3797e-01_jprb,6.8663e-01_jprb,4.5963e-01_jprb,3.1774e-01_jprb/)  
kbo( :, 1,38,12) = (/&
 & 2.0134e-01_jprb,2.3227e-01_jprb,1.8814e-01_jprb,1.2935e-01_jprb,1.3137e-01_jprb/)  
kbo( :, 2,38,12) = (/&
 & 2.7468e-01_jprb,3.2208e-01_jprb,2.6174e-01_jprb,1.7891e-01_jprb,1.6217e-01_jprb/)  
kbo( :, 3,38,12) = (/&
 & 3.6956e-01_jprb,4.3776e-01_jprb,3.5733e-01_jprb,2.4289e-01_jprb,1.9623e-01_jprb/)  
kbo( :, 4,38,12) = (/&
 & 4.8896e-01_jprb,5.8640e-01_jprb,4.8002e-01_jprb,3.2349e-01_jprb,2.3300e-01_jprb/)  
kbo( :, 5,38,12) = (/&
 & 6.3666e-01_jprb,7.7346e-01_jprb,6.3380e-01_jprb,4.2286e-01_jprb,2.7663e-01_jprb/)  
kbo( :, 1,39,12) = (/&
 & 1.7697e-01_jprb,2.0467e-01_jprb,1.6540e-01_jprb,1.1386e-01_jprb,1.1007e-01_jprb/)  
kbo( :, 2,39,12) = (/&
 & 2.4368e-01_jprb,2.8735e-01_jprb,2.3319e-01_jprb,1.5947e-01_jprb,1.3719e-01_jprb/)  
kbo( :, 3,39,12) = (/&
 & 3.3092e-01_jprb,3.9580e-01_jprb,3.2268e-01_jprb,2.1918e-01_jprb,1.6720e-01_jprb/)  
kbo( :, 4,39,12) = (/&
 & 4.4249e-01_jprb,5.3699e-01_jprb,4.3914e-01_jprb,2.9552e-01_jprb,1.9987e-01_jprb/)  
kbo( :, 5,39,12) = (/&
 & 5.8226e-01_jprb,7.1600e-01_jprb,5.8709e-01_jprb,3.9058e-01_jprb,2.3879e-01_jprb/)  
kbo( :, 1,40,12) = (/&
 & 1.5084e-01_jprb,1.7449e-01_jprb,1.4045e-01_jprb,9.6794e-02_jprb,9.3392e-02_jprb/)  
kbo( :, 2,40,12) = (/&
 & 2.1010e-01_jprb,2.4822e-01_jprb,2.0097e-01_jprb,1.3766e-01_jprb,1.1767e-01_jprb/)  
kbo( :, 3,40,12) = (/&
 & 2.8835e-01_jprb,3.4716e-01_jprb,2.8248e-01_jprb,1.9197e-01_jprb,1.4495e-01_jprb/)  
kbo( :, 4,40,12) = (/&
 & 3.8988e-01_jprb,4.7789e-01_jprb,3.9037e-01_jprb,2.6261e-01_jprb,1.7468e-01_jprb/)  
kbo( :, 5,40,12) = (/&
 & 5.1945e-01_jprb,6.4586e-01_jprb,5.2903e-01_jprb,3.5162e-01_jprb,2.0975e-01_jprb/)  
kbo( :, 1,41,12) = (/&
 & 1.2817e-01_jprb,1.4829e-01_jprb,1.1887e-01_jprb,8.1840e-02_jprb,7.9057e-02_jprb/)  
kbo( :, 2,41,12) = (/&
 & 1.8060e-01_jprb,2.1362e-01_jprb,1.7247e-01_jprb,1.1830e-01_jprb,1.0081e-01_jprb/)  
kbo( :, 3,41,12) = (/&
 & 2.5080e-01_jprb,3.0334e-01_jprb,2.4634e-01_jprb,1.6753e-01_jprb,1.2548e-01_jprb/)  
kbo( :, 4,41,12) = (/&
 & 3.4280e-01_jprb,4.2376e-01_jprb,3.4586e-01_jprb,2.3251e-01_jprb,1.5256e-01_jprb/)  
kbo( :, 5,41,12) = (/&
 & 4.6230e-01_jprb,5.8070e-01_jprb,4.7518e-01_jprb,3.1572e-01_jprb,1.8431e-01_jprb/)  
kbo( :, 1,42,12) = (/&
 & 1.0893e-01_jprb,1.2613e-01_jprb,1.0083e-01_jprb,6.9157e-02_jprb,6.6394e-02_jprb/)  
kbo( :, 2,42,12) = (/&
 & 1.5547e-01_jprb,1.8415e-01_jprb,1.4803e-01_jprb,1.0161e-01_jprb,8.5777e-02_jprb/)  
kbo( :, 3,42,12) = (/&
 & 2.1846e-01_jprb,2.6502e-01_jprb,2.1486e-01_jprb,1.4627e-01_jprb,1.0794e-01_jprb/)  
kbo( :, 4,42,12) = (/&
 & 3.0198e-01_jprb,3.7587e-01_jprb,3.0638e-01_jprb,2.0583e-01_jprb,1.3247e-01_jprb/)  
kbo( :, 5,42,12) = (/&
 & 4.1199e-01_jprb,5.2225e-01_jprb,4.2709e-01_jprb,2.8351e-01_jprb,1.6111e-01_jprb/)  
kbo( :, 1,43,12) = (/&
 & 9.0638e-02_jprb,1.0503e-01_jprb,8.3795e-02_jprb,5.7071e-02_jprb,5.5354e-02_jprb/)  
kbo( :, 2,43,12) = (/&
 & 1.3131e-01_jprb,1.5548e-01_jprb,1.2458e-01_jprb,8.5364e-02_jprb,7.2576e-02_jprb/)  
kbo( :, 3,43,12) = (/&
 & 1.8681e-01_jprb,2.2707e-01_jprb,1.8347e-01_jprb,1.2501e-01_jprb,9.2538e-02_jprb/)  

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


SUBROUTINE part31

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


kbo( :, 4,43,12) = (/&
 & 2.6160e-01_jprb,3.2672e-01_jprb,2.6595e-01_jprb,1.7876e-01_jprb,1.1500e-01_jprb/)  
kbo( :, 5,43,12) = (/&
 & 3.6120e-01_jprb,4.6097e-01_jprb,3.7669e-01_jprb,2.4999e-01_jprb,1.4075e-01_jprb/)  
kbo( :, 1,44,12) = (/&
 & 7.4518e-02_jprb,8.6409e-02_jprb,6.8952e-02_jprb,4.6577e-02_jprb,4.5787e-02_jprb/)  
kbo( :, 2,44,12) = (/&
 & 1.0975e-01_jprb,1.2994e-01_jprb,1.0385e-01_jprb,7.0835e-02_jprb,6.0976e-02_jprb/)  
kbo( :, 3,44,12) = (/&
 & 1.5828e-01_jprb,1.9250e-01_jprb,1.5506e-01_jprb,1.0558e-01_jprb,7.8936e-02_jprb/)  
kbo( :, 4,44,12) = (/&
 & 2.2471e-01_jprb,2.8098e-01_jprb,2.2821e-01_jprb,1.5365e-01_jprb,9.9460e-02_jprb/)  
kbo( :, 5,44,12) = (/&
 & 3.1406e-01_jprb,4.0269e-01_jprb,3.2871e-01_jprb,2.1813e-01_jprb,1.2276e-01_jprb/)  
kbo( :, 1,45,12) = (/&
 & 6.0927e-02_jprb,7.0888e-02_jprb,5.6604e-02_jprb,3.8007e-02_jprb,3.7451e-02_jprb/)  
kbo( :, 2,45,12) = (/&
 & 9.1562e-02_jprb,1.0848e-01_jprb,8.6563e-02_jprb,5.8638e-02_jprb,5.0739e-02_jprb/)  
kbo( :, 3,45,12) = (/&
 & 1.3401e-01_jprb,1.6305e-01_jprb,1.3093e-01_jprb,8.8909e-02_jprb,6.6645e-02_jprb/)  
kbo( :, 4,45,12) = (/&
 & 1.9278e-01_jprb,2.4132e-01_jprb,1.9538e-01_jprb,1.3171e-01_jprb,8.5195e-02_jprb/)  
kbo( :, 5,45,12) = (/&
 & 2.7301e-01_jprb,3.5087e-01_jprb,2.8599e-01_jprb,1.8994e-01_jprb,1.0627e-01_jprb/)  
kbo( :, 1,46,12) = (/&
 & 4.9049e-02_jprb,5.7390e-02_jprb,4.5841e-02_jprb,3.0652e-02_jprb,3.0244e-02_jprb/)  
kbo( :, 2,46,12) = (/&
 & 7.5395e-02_jprb,8.9544e-02_jprb,7.1479e-02_jprb,4.8016e-02_jprb,4.1812e-02_jprb/)  
kbo( :, 3,46,12) = (/&
 & 1.1243e-01_jprb,1.3673e-01_jprb,1.0940e-01_jprb,7.3992e-02_jprb,5.5802e-02_jprb/)  
kbo( :, 4,46,12) = (/&
 & 1.6385e-01_jprb,2.0515e-01_jprb,1.6554e-01_jprb,1.1163e-01_jprb,7.2384e-02_jprb/)  
kbo( :, 5,46,12) = (/&
 & 2.3535e-01_jprb,3.0228e-01_jprb,2.4596e-01_jprb,1.6359e-01_jprb,9.1350e-02_jprb/)  
kbo( :, 1,47,12) = (/&
 & 3.8455e-02_jprb,4.5311e-02_jprb,3.6191e-02_jprb,2.4099e-02_jprb,2.4180e-02_jprb/)  
kbo( :, 2,47,12) = (/&
 & 6.0543e-02_jprb,7.2219e-02_jprb,5.7752e-02_jprb,3.8501e-02_jprb,3.4153e-02_jprb/)  
kbo( :, 3,47,12) = (/&
 & 9.2469e-02_jprb,1.1229e-01_jprb,8.9649e-02_jprb,6.0326e-02_jprb,4.6448e-02_jprb/)  
kbo( :, 4,47,12) = (/&
 & 1.3689e-01_jprb,1.7102e-01_jprb,1.3750e-01_jprb,9.2547e-02_jprb,6.1214e-02_jprb/)  
kbo( :, 5,47,12) = (/&
 & 1.9927e-01_jprb,2.5535e-01_jprb,2.0704e-01_jprb,1.3818e-01_jprb,7.8425e-02_jprb/)  
kbo( :, 1,48,12) = (/&
 & 2.9907e-02_jprb,3.5538e-02_jprb,2.8349e-02_jprb,1.8781e-02_jprb,1.9054e-02_jprb/)  
kbo( :, 2,48,12) = (/&
 & 4.8228e-02_jprb,5.7904e-02_jprb,4.6345e-02_jprb,3.0764e-02_jprb,2.7466e-02_jprb/)  
kbo( :, 3,48,12) = (/&
 & 7.5470e-02_jprb,9.1806e-02_jprb,7.3317e-02_jprb,4.8995e-02_jprb,3.8151e-02_jprb/)  
kbo( :, 4,48,12) = (/&
 & 1.1406e-01_jprb,1.4204e-01_jprb,1.1383e-01_jprb,7.6343e-02_jprb,5.1172e-02_jprb/)  
kbo( :, 5,48,12) = (/&
 & 1.6822e-01_jprb,2.1497e-01_jprb,1.7372e-01_jprb,1.1607e-01_jprb,6.6629e-02_jprb/)  
kbo( :, 1,49,12) = (/&
 & 2.3084e-02_jprb,2.7602e-02_jprb,2.2043e-02_jprb,1.4515e-02_jprb,1.4700e-02_jprb/)  
kbo( :, 2,49,12) = (/&
 & 3.8134e-02_jprb,4.6138e-02_jprb,3.6932e-02_jprb,2.4422e-02_jprb,2.1696e-02_jprb/)  
kbo( :, 3,49,12) = (/&
 & 6.1053e-02_jprb,7.4691e-02_jprb,5.9743e-02_jprb,3.9618e-02_jprb,3.0784e-02_jprb/)  
kbo( :, 4,49,12) = (/&
 & 9.4624e-02_jprb,1.1747e-01_jprb,9.3906e-02_jprb,6.2717e-02_jprb,4.2057e-02_jprb/)  
kbo( :, 5,49,12) = (/&
 & 1.4162e-01_jprb,1.8031e-01_jprb,1.4520e-01_jprb,9.6951e-02_jprb,5.5665e-02_jprb/)  
kbo( :, 1,50,12) = (/&
 & 1.7880e-02_jprb,2.1522e-02_jprb,1.7193e-02_jprb,1.1281e-02_jprb,1.1563e-02_jprb/)  
kbo( :, 2,50,12) = (/&
 & 3.0304e-02_jprb,3.6988e-02_jprb,2.9594e-02_jprb,1.9489e-02_jprb,1.7511e-02_jprb/)  
kbo( :, 3,50,12) = (/&
 & 4.9620e-02_jprb,6.1130e-02_jprb,4.8990e-02_jprb,3.2313e-02_jprb,2.5345e-02_jprb/)  
kbo( :, 4,50,12) = (/&
 & 7.8794e-02_jprb,9.7813e-02_jprb,7.8198e-02_jprb,5.1943e-02_jprb,3.5298e-02_jprb/)  
kbo( :, 5,50,12) = (/&
 & 1.2010e-01_jprb,1.5227e-01_jprb,1.2229e-01_jprb,8.1438e-02_jprb,4.7462e-02_jprb/)  
kbo( :, 1,51,12) = (/&
 & 1.3778e-02_jprb,1.6753e-02_jprb,1.3366e-02_jprb,8.7587e-03_jprb,9.1691e-03_jprb/)  
kbo( :, 2,51,12) = (/&
 & 2.4068e-02_jprb,2.9598e-02_jprb,2.3720e-02_jprb,1.5531e-02_jprb,1.4241e-02_jprb/)  
kbo( :, 3,51,12) = (/&
 & 4.0319e-02_jprb,5.0023e-02_jprb,4.0146e-02_jprb,2.6379e-02_jprb,2.1041e-02_jprb/)  
kbo( :, 4,51,12) = (/&
 & 6.5444e-02_jprb,8.1559e-02_jprb,6.5274e-02_jprb,4.3107e-02_jprb,2.9808e-02_jprb/)  
kbo( :, 5,51,12) = (/&
 & 1.0193e-01_jprb,1.2878e-01_jprb,1.0316e-01_jprb,6.8485e-02_jprb,4.0764e-02_jprb/)  
kbo( :, 1,52,12) = (/&
 & 1.0503e-02_jprb,1.2908e-02_jprb,1.0296e-02_jprb,6.7391e-03_jprb,7.1632e-03_jprb/)  
kbo( :, 2,52,12) = (/&
 & 1.8963e-02_jprb,2.3514e-02_jprb,1.8863e-02_jprb,1.2292e-02_jprb,1.1416e-02_jprb/)  
kbo( :, 3,52,12) = (/&
 & 3.2574e-02_jprb,4.0763e-02_jprb,3.2692e-02_jprb,2.1413e-02_jprb,1.7232e-02_jprb/)  
kbo( :, 4,52,12) = (/&
 & 5.4015e-02_jprb,6.7725e-02_jprb,5.4297e-02_jprb,3.5648e-02_jprb,2.4880e-02_jprb/)  
kbo( :, 5,52,12) = (/&
 & 8.6142e-02_jprb,1.0850e-01_jprb,8.6783e-02_jprb,5.7412e-02_jprb,3.4604e-02_jprb/)  
kbo( :, 1,53,12) = (/&
 & 7.9034e-03_jprb,9.8239e-03_jprb,7.8369e-03_jprb,5.1248e-03_jprb,5.4843e-03_jprb/)  
kbo( :, 2,53,12) = (/&
 & 1.4792e-02_jprb,1.8526e-02_jprb,1.4847e-02_jprb,9.6585e-03_jprb,8.9798e-03_jprb/)  
kbo( :, 3,53,12) = (/&
 & 2.6145e-02_jprb,3.2976e-02_jprb,2.6454e-02_jprb,1.7260e-02_jprb,1.3880e-02_jprb/)  
kbo( :, 4,53,12) = (/&
 & 4.4324e-02_jprb,5.5900e-02_jprb,4.4894e-02_jprb,2.9345e-02_jprb,2.0450e-02_jprb/)  
kbo( :, 5,53,12) = (/&
 & 7.2259e-02_jprb,9.1031e-02_jprb,7.2836e-02_jprb,4.7964e-02_jprb,2.8899e-02_jprb/)  
kbo( :, 1,54,12) = (/&
 & 6.0030e-03_jprb,7.5343e-03_jprb,6.0206e-03_jprb,3.9269e-03_jprb,4.4374e-03_jprb/)  
kbo( :, 2,54,12) = (/&
 & 1.1626e-02_jprb,1.4746e-02_jprb,1.1801e-02_jprb,7.6733e-03_jprb,7.4644e-03_jprb/)  
kbo( :, 3,54,12) = (/&
 & 2.1204e-02_jprb,2.6932e-02_jprb,2.1639e-02_jprb,1.4058e-02_jprb,1.1820e-02_jprb/)  
kbo( :, 4,54,12) = (/&
 & 3.6734e-02_jprb,4.6630e-02_jprb,3.7473e-02_jprb,2.4399e-02_jprb,1.7746e-02_jprb/)  
kbo( :, 5,54,12) = (/&
 & 6.1048e-02_jprb,7.7176e-02_jprb,6.1839e-02_jprb,4.0517e-02_jprb,2.5474e-02_jprb/)  
kbo( :, 1,55,12) = (/&
 & 4.5630e-03_jprb,5.7681e-03_jprb,4.6205e-03_jprb,3.0002e-03_jprb,3.7045e-03_jprb/)  
kbo( :, 2,55,12) = (/&
 & 9.1273e-03_jprb,1.1728e-02_jprb,9.3956e-03_jprb,6.0945e-03_jprb,6.4077e-03_jprb/)  
kbo( :, 3,55,12) = (/&
 & 1.7191e-02_jprb,2.2039e-02_jprb,1.7711e-02_jprb,1.1469e-02_jprb,1.0390e-02_jprb/)  
kbo( :, 4,55,12) = (/&
 & 3.0517e-02_jprb,3.9009e-02_jprb,3.1321e-02_jprb,2.0350e-02_jprb,1.5909e-02_jprb/)  
kbo( :, 5,55,12) = (/&
 & 5.1680e-02_jprb,6.5618e-02_jprb,5.2649e-02_jprb,3.4345e-02_jprb,2.3231e-02_jprb/)  
kbo( :, 1,56,12) = (/&
 & 3.4429e-03_jprb,4.3693e-03_jprb,3.5102e-03_jprb,2.2664e-03_jprb,3.0972e-03_jprb/)  
kbo( :, 2,56,12) = (/&
 & 7.1067e-03_jprb,9.2412e-03_jprb,7.4106e-03_jprb,4.8010e-03_jprb,5.4938e-03_jprb/)  
kbo( :, 3,56,12) = (/&
 & 1.3838e-02_jprb,1.7926e-02_jprb,1.4393e-02_jprb,9.3102e-03_jprb,9.1167e-03_jprb/)  
kbo( :, 4,56,12) = (/&
 & 2.5226e-02_jprb,3.2470e-02_jprb,2.6067e-02_jprb,1.6890e-02_jprb,1.4253e-02_jprb/)  
kbo( :, 5,56,12) = (/&
 & 4.3555e-02_jprb,5.5559e-02_jprb,4.4639e-02_jprb,2.9008e-02_jprb,2.1194e-02_jprb/)  
kbo( :, 1,57,12) = (/&
 & 2.5835e-03_jprb,3.2792e-03_jprb,2.6340e-03_jprb,1.6928e-03_jprb,2.5979e-03_jprb/)  
kbo( :, 2,57,12) = (/&
 & 5.4818e-03_jprb,7.2018e-03_jprb,5.7860e-03_jprb,3.7399e-03_jprb,4.6938e-03_jprb/)  
kbo( :, 3,57,12) = (/&
 & 1.1045e-02_jprb,1.4477e-02_jprb,1.1615e-02_jprb,7.5071e-03_jprb,7.9880e-03_jprb/)  
kbo( :, 4,57,12) = (/&
 & 2.0734e-02_jprb,2.6855e-02_jprb,2.1584e-02_jprb,1.3939e-02_jprb,1.2771e-02_jprb/)  
kbo( :, 5,57,12) = (/&
 & 3.6531e-02_jprb,4.6834e-02_jprb,3.7641e-02_jprb,2.4391e-02_jprb,1.9328e-02_jprb/)  
kbo( :, 1,58,12) = (/&
 & 1.9554e-03_jprb,2.4805e-03_jprb,1.9815e-03_jprb,1.2675e-03_jprb,2.2311e-03_jprb/)  
kbo( :, 2,58,12) = (/&
 & 4.2406e-03_jprb,5.6194e-03_jprb,4.5251e-03_jprb,2.9142e-03_jprb,4.0751e-03_jprb/)  
kbo( :, 3,58,12) = (/&
 & 8.8253e-03_jprb,1.1715e-02_jprb,9.4049e-03_jprb,6.0687e-03_jprb,7.1082e-03_jprb/)  
kbo( :, 4,58,12) = (/&
 & 1.7081e-02_jprb,2.2294e-02_jprb,1.7921e-02_jprb,1.1542e-02_jprb,1.1601e-02_jprb/)  
kbo( :, 5,58,12) = (/&
 & 3.0768e-02_jprb,3.9661e-02_jprb,3.1853e-02_jprb,2.0599e-02_jprb,1.7860e-02_jprb/)  
kbo( :, 1,59,12) = (/&
 & 1.7311e-03_jprb,2.1950e-03_jprb,1.7464e-03_jprb,1.1095e-03_jprb,2.2810e-03_jprb/)  
kbo( :, 2,59,12) = (/&
 & 3.7867e-03_jprb,5.0375e-03_jprb,4.0622e-03_jprb,2.6050e-03_jprb,4.2229e-03_jprb/)  
kbo( :, 3,59,12) = (/&
 & 7.9927e-03_jprb,1.0691e-02_jprb,8.5872e-03_jprb,5.5330e-03_jprb,7.4637e-03_jprb/)  
kbo( :, 4,59,12) = (/&
 & 1.5706e-02_jprb,2.0603e-02_jprb,1.6559e-02_jprb,1.0653e-02_jprb,1.2338e-02_jprb/)  
kbo( :, 5,59,12) = (/&
 & 2.8614e-02_jprb,3.6995e-02_jprb,2.9703e-02_jprb,1.9191e-02_jprb,1.9178e-02_jprb/)  
kbo( :, 1,13,13) = (/&
 & 1.2852e+00_jprb,1.0643e+00_jprb,9.2423e-01_jprb,7.7210e-01_jprb,4.8560e+00_jprb/)  
kbo( :, 2,13,13) = (/&
 & 1.8300e+00_jprb,1.5153e+00_jprb,1.3056e+00_jprb,1.0896e+00_jprb,5.1762e+00_jprb/)  
kbo( :, 3,13,13) = (/&
 & 2.4898e+00_jprb,2.0619e+00_jprb,1.7781e+00_jprb,1.4720e+00_jprb,5.5995e+00_jprb/)  
kbo( :, 4,13,13) = (/&
 & 3.2580e+00_jprb,2.7136e+00_jprb,2.3379e+00_jprb,1.9103e+00_jprb,6.0006e+00_jprb/)  
kbo( :, 5,13,13) = (/&
 & 4.1344e+00_jprb,3.4741e+00_jprb,2.9826e+00_jprb,2.3986e+00_jprb,6.3254e+00_jprb/)  
kbo( :, 1,14,13) = (/&
 & 1.4353e+00_jprb,1.1813e+00_jprb,1.0097e+00_jprb,8.1766e-01_jprb,4.4364e+00_jprb/)  
kbo( :, 2,14,13) = (/&
 & 2.0320e+00_jprb,1.6766e+00_jprb,1.4217e+00_jprb,1.1476e+00_jprb,4.7777e+00_jprb/)  
kbo( :, 3,14,13) = (/&
 & 2.7397e+00_jprb,2.2766e+00_jprb,1.9164e+00_jprb,1.5404e+00_jprb,5.1956e+00_jprb/)  
kbo( :, 4,14,13) = (/&
 & 3.5525e+00_jprb,2.9774e+00_jprb,2.5038e+00_jprb,1.9898e+00_jprb,5.5579e+00_jprb/)  
kbo( :, 5,14,13) = (/&
 & 4.4583e+00_jprb,3.7784e+00_jprb,3.1767e+00_jprb,2.5098e+00_jprb,5.8954e+00_jprb/)  
kbo( :, 1,15,13) = (/&
 & 1.5785e+00_jprb,1.3067e+00_jprb,1.1097e+00_jprb,8.6674e-01_jprb,3.8492e+00_jprb/)  
kbo( :, 2,15,13) = (/&
 & 2.2125e+00_jprb,1.8434e+00_jprb,1.5563e+00_jprb,1.2050e+00_jprb,4.1968e+00_jprb/)  
kbo( :, 3,15,13) = (/&
 & 2.9595e+00_jprb,2.4844e+00_jprb,2.0889e+00_jprb,1.6068e+00_jprb,4.5453e+00_jprb/)  
kbo( :, 4,15,13) = (/&
 & 3.8045e+00_jprb,3.2259e+00_jprb,2.7088e+00_jprb,2.0757e+00_jprb,4.8945e+00_jprb/)  
kbo( :, 5,15,13) = (/&
 & 4.7324e+00_jprb,4.0530e+00_jprb,3.4024e+00_jprb,2.6201e+00_jprb,5.1308e+00_jprb/)  
kbo( :, 1,16,13) = (/&
 & 1.6990e+00_jprb,1.4270e+00_jprb,1.2197e+00_jprb,9.1540e-01_jprb,3.2967e+00_jprb/)  
kbo( :, 2,16,13) = (/&
 & 2.3632e+00_jprb,1.9965e+00_jprb,1.6991e+00_jprb,1.2635e+00_jprb,3.5992e+00_jprb/)  
kbo( :, 3,16,13) = (/&
 & 3.1332e+00_jprb,2.6737e+00_jprb,2.2662e+00_jprb,1.6797e+00_jprb,3.8825e+00_jprb/)  
kbo( :, 4,16,13) = (/&
 & 3.9954e+00_jprb,3.4413e+00_jprb,2.9150e+00_jprb,2.1732e+00_jprb,4.0955e+00_jprb/)  
kbo( :, 5,16,13) = (/&
 & 4.9441e+00_jprb,4.2813e+00_jprb,3.6296e+00_jprb,2.7347e+00_jprb,4.3356e+00_jprb/)  
kbo( :, 1,17,13) = (/&
 & 1.7867e+00_jprb,1.5291e+00_jprb,1.3172e+00_jprb,9.6442e-01_jprb,2.8946e+00_jprb/)  
kbo( :, 2,17,13) = (/&
 & 2.4630e+00_jprb,2.1240e+00_jprb,1.8197e+00_jprb,1.3271e+00_jprb,3.1209e+00_jprb/)  
kbo( :, 3,17,13) = (/&
 & 3.2412e+00_jprb,2.8205e+00_jprb,2.4120e+00_jprb,1.7621e+00_jprb,3.3231e+00_jprb/)  
kbo( :, 4,17,13) = (/&
 & 4.1129e+00_jprb,3.6026e+00_jprb,3.0785e+00_jprb,2.2752e+00_jprb,3.5467e+00_jprb/)  
kbo( :, 5,17,13) = (/&
 & 5.0518e+00_jprb,4.4575e+00_jprb,3.8174e+00_jprb,2.8444e+00_jprb,3.7869e+00_jprb/)  
kbo( :, 1,18,13) = (/&
 & 1.8395e+00_jprb,1.6132e+00_jprb,1.3961e+00_jprb,1.0121e+00_jprb,2.6255e+00_jprb/)  
kbo( :, 2,18,13) = (/&
 & 2.5106e+00_jprb,2.2211e+00_jprb,1.9179e+00_jprb,1.3918e+00_jprb,2.8074e+00_jprb/)  
kbo( :, 3,18,13) = (/&
 & 3.2840e+00_jprb,2.9230e+00_jprb,2.5216e+00_jprb,1.8455e+00_jprb,2.9886e+00_jprb/)  
kbo( :, 4,18,13) = (/&
 & 4.1398e+00_jprb,3.7076e+00_jprb,3.1995e+00_jprb,2.3655e+00_jprb,3.2033e+00_jprb/)  
kbo( :, 5,18,13) = (/&
 & 5.0652e+00_jprb,4.5681e+00_jprb,3.9586e+00_jprb,2.9470e+00_jprb,3.4431e+00_jprb/)  
kbo( :, 1,19,13) = (/&
 & 1.8429e+00_jprb,1.6700e+00_jprb,1.4536e+00_jprb,1.0564e+00_jprb,2.4577e+00_jprb/)  
kbo( :, 2,19,13) = (/&
 & 2.5022e+00_jprb,2.2784e+00_jprb,1.9833e+00_jprb,1.4492e+00_jprb,2.6093e+00_jprb/)  
kbo( :, 3,19,13) = (/&
 & 3.2520e+00_jprb,2.9805e+00_jprb,2.5894e+00_jprb,1.9140e+00_jprb,2.7860e+00_jprb/)  
kbo( :, 4,19,13) = (/&
 & 4.0807e+00_jprb,3.7648e+00_jprb,3.2792e+00_jprb,2.4354e+00_jprb,2.9804e+00_jprb/)  
kbo( :, 5,19,13) = (/&
 & 4.9680e+00_jprb,4.6224e+00_jprb,4.0395e+00_jprb,3.0224e+00_jprb,3.2175e+00_jprb/)  
kbo( :, 1,20,13) = (/&
 & 1.8228e+00_jprb,1.7025e+00_jprb,1.4928e+00_jprb,1.0898e+00_jprb,2.3654e+00_jprb/)  
kbo( :, 2,20,13) = (/&
 & 2.4538e+00_jprb,2.3051e+00_jprb,2.0204e+00_jprb,1.4897e+00_jprb,2.5217e+00_jprb/)  
kbo( :, 3,20,13) = (/&
 & 3.1699e+00_jprb,2.9971e+00_jprb,2.6320e+00_jprb,1.9524e+00_jprb,2.6999e+00_jprb/)  
kbo( :, 4,20,13) = (/&
 & 3.9554e+00_jprb,3.7710e+00_jprb,3.3175e+00_jprb,2.4725e+00_jprb,2.8911e+00_jprb/)  
kbo( :, 5,20,13) = (/&
 & 4.8063e+00_jprb,4.6094e+00_jprb,4.0741e+00_jprb,3.0590e+00_jprb,3.1232e+00_jprb/)  
kbo( :, 1,21,13) = (/&
 & 1.7623e+00_jprb,1.7061e+00_jprb,1.5006e+00_jprb,1.1051e+00_jprb,2.2987e+00_jprb/)  
kbo( :, 2,21,13) = (/&
 & 2.3568e+00_jprb,2.2938e+00_jprb,2.0241e+00_jprb,1.5005e+00_jprb,2.4810e+00_jprb/)  
kbo( :, 3,21,13) = (/&
 & 3.0264e+00_jprb,2.9663e+00_jprb,2.6252e+00_jprb,1.9540e+00_jprb,2.6709e+00_jprb/)  
kbo( :, 4,21,13) = (/&
 & 3.7661e+00_jprb,3.7114e+00_jprb,3.3017e+00_jprb,2.4660e+00_jprb,2.8739e+00_jprb/)  
kbo( :, 5,21,13) = (/&
 & 4.5709e+00_jprb,4.5292e+00_jprb,4.0353e+00_jprb,3.0458e+00_jprb,3.1122e+00_jprb/)  
kbo( :, 1,22,13) = (/&
 & 1.7051e+00_jprb,1.7105e+00_jprb,1.5137e+00_jprb,1.1220e+00_jprb,2.2215e+00_jprb/)  
kbo( :, 2,22,13) = (/&
 & 2.2594e+00_jprb,2.2812e+00_jprb,2.0265e+00_jprb,1.5078e+00_jprb,2.4273e+00_jprb/)  
kbo( :, 3,22,13) = (/&
 & 2.8843e+00_jprb,2.9298e+00_jprb,2.6159e+00_jprb,1.9497e+00_jprb,2.6344e+00_jprb/)  
kbo( :, 4,22,13) = (/&
 & 3.5784e+00_jprb,3.6530e+00_jprb,3.2699e+00_jprb,2.4532e+00_jprb,2.8571e+00_jprb/)  
kbo( :, 5,22,13) = (/&
 & 4.3282e+00_jprb,4.4413e+00_jprb,3.9817e+00_jprb,3.0263e+00_jprb,3.1138e+00_jprb/)  
kbo( :, 1,23,13) = (/&
 & 1.6227e+00_jprb,1.6865e+00_jprb,1.4987e+00_jprb,1.1164e+00_jprb,2.1516e+00_jprb/)  
kbo( :, 2,23,13) = (/&
 & 2.1334e+00_jprb,2.2311e+00_jprb,1.9947e+00_jprb,1.4865e+00_jprb,2.3714e+00_jprb/)  
kbo( :, 3,23,13) = (/&
 & 2.7130e+00_jprb,2.8505e+00_jprb,2.5601e+00_jprb,1.9131e+00_jprb,2.5957e+00_jprb/)  
kbo( :, 4,23,13) = (/&
 & 3.3545e+00_jprb,3.5417e+00_jprb,3.1845e+00_jprb,2.4070e+00_jprb,2.8423e+00_jprb/)  
kbo( :, 5,23,13) = (/&
 & 4.0511e+00_jprb,4.2980e+00_jprb,3.8824e+00_jprb,2.9663e+00_jprb,3.1097e+00_jprb/)  
kbo( :, 1,24,13) = (/&
 & 1.5221e+00_jprb,1.6399e+00_jprb,1.4631e+00_jprb,1.0922e+00_jprb,2.0557e+00_jprb/)  
kbo( :, 2,24,13) = (/&
 & 1.9909e+00_jprb,2.1551e+00_jprb,1.9333e+00_jprb,1.4438e+00_jprb,2.2893e+00_jprb/)  
kbo( :, 3,24,13) = (/&
 & 2.5227e+00_jprb,2.7424e+00_jprb,2.4670e+00_jprb,1.8560e+00_jprb,2.5308e+00_jprb/)  
kbo( :, 4,24,13) = (/&
 & 3.1132e+00_jprb,3.3998e+00_jprb,3.0690e+00_jprb,2.3315e+00_jprb,2.7959e+00_jprb/)  
kbo( :, 5,24,13) = (/&
 & 3.7625e+00_jprb,4.1275e+00_jprb,3.7502e+00_jprb,2.8726e+00_jprb,3.0711e+00_jprb/)  
kbo( :, 1,25,13) = (/&
 & 1.4164e+00_jprb,1.5764e+00_jprb,1.4120e+00_jprb,1.0539e+00_jprb,1.9710e+00_jprb/)  
kbo( :, 2,25,13) = (/&
 & 1.8451e+00_jprb,2.0623e+00_jprb,1.8523e+00_jprb,1.3889e+00_jprb,2.2117e+00_jprb/)  
kbo( :, 3,25,13) = (/&
 & 2.3323e+00_jprb,2.6170e+00_jprb,2.3560e+00_jprb,1.7813e+00_jprb,2.4702e+00_jprb/)  

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


SUBROUTINE part32

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


kbo( :, 4,25,13) = (/&
 & 2.8785e+00_jprb,3.2423e+00_jprb,2.9353e+00_jprb,2.2379e+00_jprb,2.7415e+00_jprb/)  
kbo( :, 5,25,13) = (/&
 & 3.4748e+00_jprb,3.9386e+00_jprb,3.5958e+00_jprb,2.7566e+00_jprb,3.0246e+00_jprb/)  
kbo( :, 1,26,13) = (/&
 & 1.3174e+00_jprb,1.5065e+00_jprb,1.3505e+00_jprb,1.0108e+00_jprb,1.9092e+00_jprb/)  
kbo( :, 2,26,13) = (/&
 & 1.7100e+00_jprb,1.9656e+00_jprb,1.7614e+00_jprb,1.3273e+00_jprb,2.1568e+00_jprb/)  
kbo( :, 3,26,13) = (/&
 & 2.1599e+00_jprb,2.4918e+00_jprb,2.2424e+00_jprb,1.7022e+00_jprb,2.4251e+00_jprb/)  
kbo( :, 4,26,13) = (/&
 & 2.6619e+00_jprb,3.0863e+00_jprb,2.8007e+00_jprb,2.1368e+00_jprb,2.6974e+00_jprb/)  
kbo( :, 5,26,13) = (/&
 & 3.2164e+00_jprb,3.7562e+00_jprb,3.4382e+00_jprb,2.6323e+00_jprb,2.9897e+00_jprb/)  
kbo( :, 1,27,13) = (/&
 & 1.2227e+00_jprb,1.4318e+00_jprb,1.2776e+00_jprb,9.6234e-01_jprb,1.8084e+00_jprb/)  
kbo( :, 2,27,13) = (/&
 & 1.5845e+00_jprb,1.8650e+00_jprb,1.6669e+00_jprb,1.2616e+00_jprb,2.0606e+00_jprb/)  
kbo( :, 3,27,13) = (/&
 & 1.9986e+00_jprb,2.3637e+00_jprb,2.1255e+00_jprb,1.6180e+00_jprb,2.3235e+00_jprb/)  
kbo( :, 4,27,13) = (/&
 & 2.4670e+00_jprb,2.9335e+00_jprb,2.6606e+00_jprb,2.0306e+00_jprb,2.5979e+00_jprb/)  
kbo( :, 5,27,13) = (/&
 & 2.9836e+00_jprb,3.5812e+00_jprb,3.2799e+00_jprb,2.5047e+00_jprb,2.8940e+00_jprb/)  
kbo( :, 1,28,13) = (/&
 & 1.1382e+00_jprb,1.3569e+00_jprb,1.2047e+00_jprb,9.1050e-01_jprb,1.6756e+00_jprb/)  
kbo( :, 2,28,13) = (/&
 & 1.4731e+00_jprb,1.7658e+00_jprb,1.5747e+00_jprb,1.1959e+00_jprb,1.9259e+00_jprb/)  
kbo( :, 3,28,13) = (/&
 & 1.8595e+00_jprb,2.2417e+00_jprb,2.0136e+00_jprb,1.5323e+00_jprb,2.1797e+00_jprb/)  
kbo( :, 4,28,13) = (/&
 & 2.2933e+00_jprb,2.7930e+00_jprb,2.5304e+00_jprb,1.9266e+00_jprb,2.4581e+00_jprb/)  
kbo( :, 5,28,13) = (/&
 & 2.7792e+00_jprb,3.4303e+00_jprb,3.1288e+00_jprb,2.3846e+00_jprb,2.7569e+00_jprb/)  
kbo( :, 1,29,13) = (/&
 & 1.0690e+00_jprb,1.2881e+00_jprb,1.1394e+00_jprb,8.6196e-01_jprb,1.5316e+00_jprb/)  
kbo( :, 2,29,13) = (/&
 & 1.3833e+00_jprb,1.6767e+00_jprb,1.4909e+00_jprb,1.1330e+00_jprb,1.7636e+00_jprb/)  
kbo( :, 3,29,13) = (/&
 & 1.7418e+00_jprb,2.1373e+00_jprb,1.9152e+00_jprb,1.4529e+00_jprb,2.0079e+00_jprb/)  
kbo( :, 4,29,13) = (/&
 & 2.1520e+00_jprb,2.6796e+00_jprb,2.4158e+00_jprb,1.8327e+00_jprb,2.2752e+00_jprb/)  
kbo( :, 5,29,13) = (/&
 & 2.6198e+00_jprb,3.3045e+00_jprb,3.0000e+00_jprb,2.2771e+00_jprb,2.5616e+00_jprb/)  
kbo( :, 1,30,13) = (/&
 & 1.0127e+00_jprb,1.2266e+00_jprb,1.0797e+00_jprb,8.1863e-01_jprb,1.3724e+00_jprb/)  
kbo( :, 2,30,13) = (/&
 & 1.3069e+00_jprb,1.6015e+00_jprb,1.4185e+00_jprb,1.0745e+00_jprb,1.5829e+00_jprb/)  
kbo( :, 3,30,13) = (/&
 & 1.6487e+00_jprb,2.0522e+00_jprb,1.8302e+00_jprb,1.3820e+00_jprb,1.8153e+00_jprb/)  
kbo( :, 4,30,13) = (/&
 & 2.0473e+00_jprb,2.5843e+00_jprb,2.3209e+00_jprb,1.7515e+00_jprb,2.0659e+00_jprb/)  
kbo( :, 5,30,13) = (/&
 & 2.5092e+00_jprb,3.2023e+00_jprb,2.8969e+00_jprb,2.1888e+00_jprb,2.3374e+00_jprb/)  
kbo( :, 1,31,13) = (/&
 & 9.6510e-01_jprb,1.1794e+00_jprb,1.0308e+00_jprb,7.7856e-01_jprb,1.1918e+00_jprb/)  
kbo( :, 2,31,13) = (/&
 & 1.2477e+00_jprb,1.5457e+00_jprb,1.3619e+00_jprb,1.0252e+00_jprb,1.3817e+00_jprb/)  
kbo( :, 3,31,13) = (/&
 & 1.5837e+00_jprb,1.9885e+00_jprb,1.7652e+00_jprb,1.3248e+00_jprb,1.5914e+00_jprb/)  
kbo( :, 4,31,13) = (/&
 & 1.9797e+00_jprb,2.5159e+00_jprb,2.2496e+00_jprb,1.6880e+00_jprb,1.8169e+00_jprb/)  
kbo( :, 5,31,13) = (/&
 & 2.4397e+00_jprb,3.1333e+00_jprb,2.8243e+00_jprb,2.1253e+00_jprb,2.0691e+00_jprb/)  
kbo( :, 1,32,13) = (/&
 & 9.2809e-01_jprb,1.1462e+00_jprb,9.9628e-01_jprb,7.4536e-01_jprb,1.0320e+00_jprb/)  
kbo( :, 2,32,13) = (/&
 & 1.2071e+00_jprb,1.5069e+00_jprb,1.3205e+00_jprb,9.8597e-01_jprb,1.2033e+00_jprb/)  
kbo( :, 3,32,13) = (/&
 & 1.5432e+00_jprb,1.9476e+00_jprb,1.7191e+00_jprb,1.2835e+00_jprb,1.3897e+00_jprb/)  
kbo( :, 4,32,13) = (/&
 & 1.9406e+00_jprb,2.4766e+00_jprb,2.2038e+00_jprb,1.6458e+00_jprb,1.5971e+00_jprb/)  
kbo( :, 5,32,13) = (/&
 & 2.3994e+00_jprb,3.0984e+00_jprb,2.7844e+00_jprb,2.0892e+00_jprb,1.8364e+00_jprb/)  
kbo( :, 1,33,13) = (/&
 & 9.0452e-01_jprb,1.1258e+00_jprb,9.7321e-01_jprb,7.2002e-01_jprb,8.8562e-01_jprb/)  
kbo( :, 2,33,13) = (/&
 & 1.1846e+00_jprb,1.4864e+00_jprb,1.2941e+00_jprb,9.5876e-01_jprb,1.0371e+00_jprb/)  
kbo( :, 3,33,13) = (/&
 & 1.5214e+00_jprb,1.9311e+00_jprb,1.6937e+00_jprb,1.2572e+00_jprb,1.2046e+00_jprb/)  
kbo( :, 4,33,13) = (/&
 & 1.9196e+00_jprb,2.4657e+00_jprb,2.1858e+00_jprb,1.6239e+00_jprb,1.3977e+00_jprb/)  
kbo( :, 5,33,13) = (/&
 & 2.3836e+00_jprb,3.1007e+00_jprb,2.7768e+00_jprb,2.0781e+00_jprb,1.6273e+00_jprb/)  
kbo( :, 1,34,13) = (/&
 & 8.8467e-01_jprb,1.1068e+00_jprb,9.5054e-01_jprb,6.9629e-01_jprb,7.8494e-01_jprb/)  
kbo( :, 2,34,13) = (/&
 & 1.1642e+00_jprb,1.4706e+00_jprb,1.2717e+00_jprb,9.3470e-01_jprb,9.2138e-01_jprb/)  
kbo( :, 3,34,13) = (/&
 & 1.5015e+00_jprb,1.9181e+00_jprb,1.6758e+00_jprb,1.2345e+00_jprb,1.0773e+00_jprb/)  
kbo( :, 4,34,13) = (/&
 & 1.9018e+00_jprb,2.4632e+00_jprb,2.1759e+00_jprb,1.6080e+00_jprb,1.2614e+00_jprb/)  
kbo( :, 5,34,13) = (/&
 & 2.3740e+00_jprb,3.1145e+00_jprb,2.7821e+00_jprb,2.0712e+00_jprb,1.4792e+00_jprb/)  
kbo( :, 1,35,13) = (/&
 & 8.4955e-01_jprb,1.0688e+00_jprb,9.1231e-01_jprb,6.6202e-01_jprb,6.7824e-01_jprb/)  
kbo( :, 2,35,13) = (/&
 & 1.1250e+00_jprb,1.4313e+00_jprb,1.2303e+00_jprb,8.9698e-01_jprb,8.0193e-01_jprb/)  
kbo( :, 3,35,13) = (/&
 & 1.4599e+00_jprb,1.8791e+00_jprb,1.6347e+00_jprb,1.1945e+00_jprb,9.4771e-01_jprb/)  
kbo( :, 4,35,13) = (/&
 & 1.8617e+00_jprb,2.4289e+00_jprb,2.1382e+00_jprb,1.5703e+00_jprb,1.1239e+00_jprb/)  
kbo( :, 5,35,13) = (/&
 & 2.3371e+00_jprb,3.0886e+00_jprb,2.7503e+00_jprb,2.0370e+00_jprb,1.3258e+00_jprb/)  
kbo( :, 1,36,13) = (/&
 & 7.9554e-01_jprb,1.0086e+00_jprb,8.5573e-01_jprb,6.1485e-01_jprb,5.7027e-01_jprb/)  
kbo( :, 2,36,13) = (/&
 & 1.0642e+00_jprb,1.3634e+00_jprb,1.1652e+00_jprb,8.4197e-01_jprb,6.8378e-01_jprb/)  
kbo( :, 3,36,13) = (/&
 & 1.3924e+00_jprb,1.8049e+00_jprb,1.5634e+00_jprb,1.1326e+00_jprb,8.2218e-01_jprb/)  
kbo( :, 4,36,13) = (/&
 & 1.7900e+00_jprb,2.3512e+00_jprb,2.0607e+00_jprb,1.5026e+00_jprb,9.8859e-01_jprb/)  
kbo( :, 5,36,13) = (/&
 & 2.2630e+00_jprb,3.0065e+00_jprb,2.6687e+00_jprb,1.9640e+00_jprb,1.1762e+00_jprb/)  
kbo( :, 1,37,13) = (/&
 & 7.1417e-01_jprb,9.1309e-01_jprb,7.7089e-01_jprb,5.4803e-01_jprb,4.9622e-01_jprb/)  
kbo( :, 2,37,13) = (/&
 & 9.6913e-01_jprb,1.2512e+00_jprb,1.0630e+00_jprb,7.6043e-01_jprb,5.9797e-01_jprb/)  
kbo( :, 3,37,13) = (/&
 & 1.2840e+00_jprb,1.6746e+00_jprb,1.4416e+00_jprb,1.0353e+00_jprb,7.2233e-01_jprb/)  
kbo( :, 4,37,13) = (/&
 & 1.6678e+00_jprb,2.2008e+00_jprb,1.9187e+00_jprb,1.3875e+00_jprb,8.7304e-01_jprb/)  
kbo( :, 5,37,13) = (/&
 & 2.1271e+00_jprb,2.8380e+00_jprb,2.5062e+00_jprb,1.8314e+00_jprb,1.0444e+00_jprb/)  
kbo( :, 1,38,13) = (/&
 & 6.4094e-01_jprb,8.2768e-01_jprb,6.9645e-01_jprb,4.8972e-01_jprb,4.2782e-01_jprb/)  
kbo( :, 2,38,13) = (/&
 & 8.8268e-01_jprb,1.1499e+00_jprb,9.7252e-01_jprb,6.8901e-01_jprb,5.1817e-01_jprb/)  
kbo( :, 3,38,13) = (/&
 & 1.1854e+00_jprb,1.5567e+00_jprb,1.3326e+00_jprb,9.4875e-01_jprb,6.2911e-01_jprb/)  
kbo( :, 4,38,13) = (/&
 & 1.5548e+00_jprb,2.0633e+00_jprb,1.7903e+00_jprb,1.2846e+00_jprb,7.6404e-01_jprb/)  
kbo( :, 5,38,13) = (/&
 & 2.0005e+00_jprb,2.6819e+00_jprb,2.3577e+00_jprb,1.7108e+00_jprb,9.1910e-01_jprb/)  
kbo( :, 1,39,13) = (/&
 & 5.7700e-01_jprb,7.5348e-01_jprb,6.3234e-01_jprb,4.4039e-01_jprb,3.6316e-01_jprb/)  
kbo( :, 2,39,13) = (/&
 & 8.0617e-01_jprb,1.0607e+00_jprb,8.9464e-01_jprb,6.2787e-01_jprb,4.4256e-01_jprb/)  
kbo( :, 3,39,13) = (/&
 & 1.0971e+00_jprb,1.4528e+00_jprb,1.2371e+00_jprb,8.7381e-01_jprb,5.4063e-01_jprb/)  
kbo( :, 4,39,13) = (/&
 & 1.4539e+00_jprb,1.9409e+00_jprb,1.6768e+00_jprb,1.1946e+00_jprb,6.6034e-01_jprb/)  
kbo( :, 5,39,13) = (/&
 & 1.8880e+00_jprb,2.5419e+00_jprb,2.2244e+00_jprb,1.6039e+00_jprb,7.9890e-01_jprb/)  
kbo( :, 1,40,13) = (/&
 & 5.0186e-01_jprb,6.6294e-01_jprb,5.5500e-01_jprb,3.8289e-01_jprb,3.1769e-01_jprb/)  
kbo( :, 2,40,13) = (/&
 & 7.1323e-01_jprb,9.4798e-01_jprb,7.9752e-01_jprb,5.5384e-01_jprb,3.8877e-01_jprb/)  
kbo( :, 3,40,13) = (/&
 & 9.8586e-01_jprb,1.3164e+00_jprb,1.1157e+00_jprb,7.8136e-01_jprb,4.7618e-01_jprb/)  
kbo( :, 4,40,13) = (/&
 & 1.3258e+00_jprb,1.7781e+00_jprb,1.5269e+00_jprb,1.0795e+00_jprb,5.8462e-01_jprb/)  
kbo( :, 5,40,13) = (/&
 & 1.7397e+00_jprb,2.3496e+00_jprb,2.0447e+00_jprb,1.4640e+00_jprb,7.1183e-01_jprb/)  
kbo( :, 1,41,13) = (/&
 & 4.3380e-01_jprb,5.8097e-01_jprb,4.8476e-01_jprb,3.3186e-01_jprb,2.7762e-01_jprb/)  
kbo( :, 2,41,13) = (/&
 & 6.2819e-01_jprb,8.4375e-01_jprb,7.0798e-01_jprb,4.8718e-01_jprb,3.4151e-01_jprb/)  
kbo( :, 3,41,13) = (/&
 & 8.8231e-01_jprb,1.1885e+00_jprb,1.0030e+00_jprb,6.9676e-01_jprb,4.1944e-01_jprb/)  
kbo( :, 4,41,13) = (/&
 & 1.2044e+00_jprb,1.6239e+00_jprb,1.3862e+00_jprb,9.7292e-01_jprb,5.1737e-01_jprb/)  
kbo( :, 5,41,13) = (/&
 & 1.5976e+00_jprb,2.1644e+00_jprb,1.8733e+00_jprb,1.3324e+00_jprb,6.3382e-01_jprb/)  
kbo( :, 1,42,13) = (/&
 & 3.7449e-01_jprb,5.0898e-01_jprb,4.2337e-01_jprb,2.8788e-01_jprb,2.4070e-01_jprb/)  
kbo( :, 2,42,13) = (/&
 & 5.5270e-01_jprb,7.5038e-01_jprb,6.2836e-01_jprb,4.2892e-01_jprb,2.9753e-01_jprb/)  
kbo( :, 3,42,13) = (/&
 & 7.8906e-01_jprb,1.0722e+00_jprb,9.0203e-01_jprb,6.2172e-01_jprb,3.6699e-01_jprb/)  
kbo( :, 4,42,13) = (/&
 & 1.0928e+00_jprb,1.4824e+00_jprb,1.2591e+00_jprb,8.7750e-01_jprb,4.5486e-01_jprb/)  
kbo( :, 5,42,13) = (/&
 & 1.4670e+00_jprb,1.9931e+00_jprb,1.7165e+00_jprb,1.2130e+00_jprb,5.6051e-01_jprb/)  
kbo( :, 1,43,13) = (/&
 & 3.1535e-01_jprb,4.3481e-01_jprb,3.6057e-01_jprb,2.4367e-01_jprb,2.0825e-01_jprb/)  
kbo( :, 2,43,13) = (/&
 & 4.7503e-01_jprb,6.5262e-01_jprb,5.4494e-01_jprb,3.6943e-01_jprb,2.5841e-01_jprb/)  
kbo( :, 3,43,13) = (/&
 & 6.9119e-01_jprb,9.4733e-01_jprb,7.9475e-01_jprb,5.4324e-01_jprb,3.1952e-01_jprb/)  
kbo( :, 4,43,13) = (/&
 & 9.7283e-01_jprb,1.3279e+00_jprb,1.1223e+00_jprb,7.7674e-01_jprb,3.9652e-01_jprb/)  
kbo( :, 5,43,13) = (/&
 & 1.3243e+00_jprb,1.8050e+00_jprb,1.5450e+00_jprb,1.0849e+00_jprb,4.9087e-01_jprb/)  
kbo( :, 1,44,13) = (/&
 & 2.6174e-01_jprb,3.6590e-01_jprb,3.0263e-01_jprb,2.0344e-01_jprb,1.7938e-01_jprb/)  
kbo( :, 2,44,13) = (/&
 & 4.0277e-01_jprb,5.6056e-01_jprb,4.6662e-01_jprb,3.1442e-01_jprb,2.2338e-01_jprb/)  
kbo( :, 3,44,13) = (/&
 & 5.9777e-01_jprb,8.2704e-01_jprb,6.9190e-01_jprb,4.6961e-01_jprb,2.7697e-01_jprb/)  
kbo( :, 4,44,13) = (/&
 & 8.5584e-01_jprb,1.1770e+00_jprb,9.9059e-01_jprb,6.8041e-01_jprb,3.4323e-01_jprb/)  
kbo( :, 5,44,13) = (/&
 & 1.1839e+00_jprb,1.6189e+00_jprb,1.3779e+00_jprb,9.6037e-01_jprb,4.2597e-01_jprb/)  
kbo( :, 1,45,13) = (/&
 & 2.1651e-01_jprb,3.0623e-01_jprb,2.5303e-01_jprb,1.6909e-01_jprb,1.5286e-01_jprb/)  
kbo( :, 2,45,13) = (/&
 & 3.3998e-01_jprb,4.7944e-01_jprb,3.9799e-01_jprb,2.6665e-01_jprb,1.9138e-01_jprb/)  
kbo( :, 3,45,13) = (/&
 & 5.1505e-01_jprb,7.1915e-01_jprb,6.0047e-01_jprb,4.0501e-01_jprb,2.3804e-01_jprb/)  
kbo( :, 4,45,13) = (/&
 & 7.5069e-01_jprb,1.0392e+00_jprb,8.7233e-01_jprb,5.9477e-01_jprb,2.9472e-01_jprb/)  
kbo( :, 5,45,13) = (/&
 & 1.0546e+00_jprb,1.4482e+00_jprb,1.2265e+00_jprb,8.4853e-01_jprb,3.6589e-01_jprb/)  
kbo( :, 1,46,13) = (/&
 & 1.7663e-01_jprb,2.5198e-01_jprb,2.0821e-01_jprb,1.3852e-01_jprb,1.2920e-01_jprb/)  
kbo( :, 2,46,13) = (/&
 & 2.8312e-01_jprb,4.0392e-01_jprb,3.3454e-01_jprb,2.2297e-01_jprb,1.6315e-01_jprb/)  
kbo( :, 3,46,13) = (/&
 & 4.3787e-01_jprb,6.1746e-01_jprb,5.1421e-01_jprb,3.4506e-01_jprb,2.0329e-01_jprb/)  
kbo( :, 4,46,13) = (/&
 & 6.5040e-01_jprb,9.0658e-01_jprb,7.5889e-01_jprb,5.1408e-01_jprb,2.5188e-01_jprb/)  
kbo( :, 5,46,13) = (/&
 & 9.2878e-01_jprb,1.2821e+00_jprb,1.0808e+00_jprb,7.4274e-01_jprb,3.1240e-01_jprb/)  
kbo( :, 1,47,13) = (/&
 & 1.4044e-01_jprb,2.0128e-01_jprb,1.6621e-01_jprb,1.1051e-01_jprb,1.0897e-01_jprb/)  
kbo( :, 2,47,13) = (/&
 & 2.3004e-01_jprb,3.3154e-01_jprb,2.7419e-01_jprb,1.8180e-01_jprb,1.3962e-01_jprb/)  
kbo( :, 3,47,13) = (/&
 & 3.6325e-01_jprb,5.1821e-01_jprb,4.3034e-01_jprb,2.8728e-01_jprb,1.7431e-01_jprb/)  
kbo( :, 4,47,13) = (/&
 & 5.5117e-01_jprb,7.7483e-01_jprb,6.4673e-01_jprb,4.3554e-01_jprb,2.1654e-01_jprb/)  
kbo( :, 5,47,13) = (/&
 & 8.0200e-01_jprb,1.1139e+00_jprb,9.3561e-01_jprb,6.3799e-01_jprb,2.6782e-01_jprb/)  
kbo( :, 1,48,13) = (/&
 & 1.1101e-01_jprb,1.5927e-01_jprb,1.3139e-01_jprb,8.7527e-02_jprb,9.0201e-02_jprb/)  
kbo( :, 2,48,13) = (/&
 & 1.8567e-01_jprb,2.6968e-01_jprb,2.2270e-01_jprb,1.4710e-01_jprb,1.1764e-01_jprb/)  
kbo( :, 3,48,13) = (/&
 & 2.9933e-01_jprb,4.3159e-01_jprb,3.5753e-01_jprb,2.3730e-01_jprb,1.4811e-01_jprb/)  
kbo( :, 4,48,13) = (/&
 & 4.6369e-01_jprb,6.5797e-01_jprb,5.4789e-01_jprb,3.6706e-01_jprb,1.8402e-01_jprb/)  
kbo( :, 5,48,13) = (/&
 & 6.8807e-01_jprb,9.6214e-01_jprb,8.0577e-01_jprb,5.4570e-01_jprb,2.2761e-01_jprb/)  
kbo( :, 1,49,13) = (/&
 & 8.6952e-02_jprb,1.2481e-01_jprb,1.0270e-01_jprb,6.8735e-02_jprb,7.2916e-02_jprb/)  
kbo( :, 2,49,13) = (/&
 & 1.4886e-01_jprb,2.1718e-01_jprb,1.7934e-01_jprb,1.1829e-01_jprb,9.6830e-02_jprb/)  
kbo( :, 3,49,13) = (/&
 & 2.4507e-01_jprb,3.5657e-01_jprb,2.9496e-01_jprb,1.9481e-01_jprb,1.2384e-01_jprb/)  
kbo( :, 4,49,13) = (/&
 & 3.8722e-01_jprb,5.5518e-01_jprb,4.6109e-01_jprb,3.0744e-01_jprb,1.5413e-01_jprb/)  
kbo( :, 5,49,13) = (/&
 & 5.8631e-01_jprb,8.2602e-01_jprb,6.8968e-01_jprb,4.6440e-01_jprb,1.9058e-01_jprb/)  
kbo( :, 1,50,13) = (/&
 & 6.8423e-02_jprb,9.8362e-02_jprb,8.0813e-02_jprb,5.4318e-02_jprb,6.0640e-02_jprb/)  
kbo( :, 2,50,13) = (/&
 & 1.2024e-01_jprb,1.7560e-01_jprb,1.4487e-01_jprb,9.5713e-02_jprb,8.2094e-02_jprb/)  
kbo( :, 3,50,13) = (/&
 & 2.0188e-01_jprb,2.9561e-01_jprb,2.4418e-01_jprb,1.6072e-01_jprb,1.0662e-01_jprb/)  
kbo( :, 4,50,13) = (/&
 & 3.2485e-01_jprb,4.7020e-01_jprb,3.8945e-01_jprb,2.5843e-01_jprb,1.3377e-01_jprb/)  
kbo( :, 5,50,13) = (/&
 & 5.0116e-01_jprb,7.1185e-01_jprb,5.9284e-01_jprb,3.9734e-01_jprb,1.6547e-01_jprb/)  
kbo( :, 1,51,13) = (/&
 & 5.3728e-02_jprb,7.7475e-02_jprb,6.3575e-02_jprb,4.2812e-02_jprb,5.0933e-02_jprb/)  
kbo( :, 2,51,13) = (/&
 & 9.7035e-02_jprb,1.4176e-01_jprb,1.1670e-01_jprb,7.7313e-02_jprb,7.0361e-02_jprb/)  
kbo( :, 3,51,13) = (/&
 & 1.6618e-01_jprb,2.4447e-01_jprb,2.0180e-01_jprb,1.3255e-01_jprb,9.2830e-02_jprb/)  
kbo( :, 4,51,13) = (/&
 & 2.7241e-01_jprb,3.9733e-01_jprb,3.2861e-01_jprb,2.1702e-01_jprb,1.1799e-01_jprb/)  
kbo( :, 5,51,13) = (/&
 & 4.2784e-01_jprb,6.1277e-01_jprb,5.0908e-01_jprb,3.3984e-01_jprb,1.4641e-01_jprb/)  
kbo( :, 1,52,13) = (/&
 & 4.1802e-02_jprb,6.0502e-02_jprb,4.9697e-02_jprb,3.3504e-02_jprb,4.2023e-02_jprb/)  
kbo( :, 2,52,13) = (/&
 & 7.7722e-02_jprb,1.1354e-01_jprb,9.3251e-02_jprb,6.2061e-02_jprb,5.9351e-02_jprb/)  
kbo( :, 3,52,13) = (/&
 & 1.3608e-01_jprb,2.0057e-01_jprb,1.6557e-01_jprb,1.0873e-01_jprb,7.9645e-02_jprb/)  
kbo( :, 4,52,13) = (/&
 & 2.2730e-01_jprb,3.3353e-01_jprb,2.7571e-01_jprb,1.8131e-01_jprb,1.0280e-01_jprb/)  
kbo( :, 5,52,13) = (/&
 & 3.6299e-01_jprb,5.2462e-01_jprb,4.3487e-01_jprb,2.8905e-01_jprb,1.2859e-01_jprb/)  
kbo( :, 1,53,13) = (/&
 & 3.2183e-02_jprb,4.6680e-02_jprb,3.8481e-02_jprb,2.6042e-02_jprb,3.3756e-02_jprb/)  
kbo( :, 2,53,13) = (/&
 & 6.1728e-02_jprb,9.0133e-02_jprb,7.3973e-02_jprb,4.9381e-02_jprb,4.8993e-02_jprb/)  
kbo( :, 3,53,13) = (/&
 & 1.1077e-01_jprb,1.6319e-01_jprb,1.3454e-01_jprb,8.8555e-02_jprb,6.7056e-02_jprb/)  
kbo( :, 4,53,13) = (/&
 & 1.8844e-01_jprb,2.7785e-01_jprb,2.2936e-01_jprb,1.5042e-01_jprb,8.7934e-02_jprb/)  
kbo( :, 5,53,13) = (/&
 & 3.0619e-01_jprb,4.4605e-01_jprb,3.6897e-01_jprb,2.4410e-01_jprb,1.1120e-01_jprb/)  
kbo( :, 1,54,13) = (/&
 & 2.5047e-02_jprb,3.6400e-02_jprb,3.0153e-02_jprb,2.0502e-02_jprb,2.9038e-02_jprb/)  
kbo( :, 2,54,13) = (/&
 & 4.9509e-02_jprb,7.2463e-02_jprb,5.9428e-02_jprb,3.9713e-02_jprb,4.3296e-02_jprb/)  
kbo( :, 3,54,13) = (/&
 & 9.1047e-02_jprb,1.3408e-01_jprb,1.1032e-01_jprb,7.2811e-02_jprb,6.0352e-02_jprb/)  

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


SUBROUTINE part33

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


kbo( :, 4,54,13) = (/&
 & 1.5773e-01_jprb,2.3322e-01_jprb,1.9256e-01_jprb,1.2610e-01_jprb,8.0247e-02_jprb/)  
kbo( :, 5,54,13) = (/&
 & 2.6064e-01_jprb,3.8195e-01_jprb,3.1567e-01_jprb,2.0798e-01_jprb,1.0268e-01_jprb/)  
kbo( :, 1,55,13) = (/&
 & 1.9531e-02_jprb,2.8409e-02_jprb,2.3654e-02_jprb,1.6169e-02_jprb,2.6016e-02_jprb/)  
kbo( :, 2,55,13) = (/&
 & 3.9731e-02_jprb,5.8300e-02_jprb,4.7864e-02_jprb,3.2046e-02_jprb,3.9891e-02_jprb/)  
kbo( :, 3,55,13) = (/&
 & 7.5011e-02_jprb,1.1035e-01_jprb,9.0609e-02_jprb,6.0025e-02_jprb,5.6691e-02_jprb/)  
kbo( :, 4,55,13) = (/&
 & 1.3239e-01_jprb,1.9599e-01_jprb,1.6178e-01_jprb,1.0597e-01_jprb,7.6430e-02_jprb/)  
kbo( :, 5,55,13) = (/&
 & 2.2232e-01_jprb,3.2737e-01_jprb,2.7053e-01_jprb,1.7756e-01_jprb,9.9052e-02_jprb/)  
kbo( :, 1,56,13) = (/&
 & 1.5085e-02_jprb,2.1991e-02_jprb,1.8385e-02_jprb,1.2629e-02_jprb,2.3210e-02_jprb/)  
kbo( :, 2,56,13) = (/&
 & 3.1640e-02_jprb,4.6519e-02_jprb,3.8293e-02_jprb,2.5741e-02_jprb,3.6554e-02_jprb/)  
kbo( :, 3,56,13) = (/&
 & 6.1401e-02_jprb,9.0252e-02_jprb,7.4044e-02_jprb,4.9175e-02_jprb,5.3168e-02_jprb/)  
kbo( :, 4,56,13) = (/&
 & 1.1069e-01_jprb,1.6371e-01_jprb,1.3502e-01_jprb,8.8647e-02_jprb,7.2863e-02_jprb/)  
kbo( :, 5,56,13) = (/&
 & 1.8882e-01_jprb,2.7905e-01_jprb,2.3042e-01_jprb,1.5088e-01_jprb,9.5532e-02_jprb/)  
kbo( :, 1,57,13) = (/&
 & 1.1497e-02_jprb,1.6861e-02_jprb,1.4167e-02_jprb,9.7433e-03_jprb,2.0535e-02_jprb/)  
kbo( :, 2,57,13) = (/&
 & 2.4982e-02_jprb,3.6767e-02_jprb,3.0405e-02_jprb,2.0539e-02_jprb,3.3381e-02_jprb/)  
kbo( :, 3,57,13) = (/&
 & 4.9863e-02_jprb,7.3408e-02_jprb,6.0172e-02_jprb,4.0018e-02_jprb,4.9853e-02_jprb/)  
kbo( :, 4,57,13) = (/&
 & 9.1973e-02_jprb,1.3592e-01_jprb,1.1188e-01_jprb,7.3644e-02_jprb,6.9368e-02_jprb/)  
kbo( :, 5,57,13) = (/&
 & 1.5956e-01_jprb,2.3633e-01_jprb,1.9520e-01_jprb,1.2765e-01_jprb,9.2143e-02_jprb/)  
kbo( :, 1,58,13) = (/&
 & 8.7557e-03_jprb,1.2987e-02_jprb,1.0957e-02_jprb,7.5300e-03_jprb,1.8437e-02_jprb/)  
kbo( :, 2,58,13) = (/&
 & 1.9822e-02_jprb,2.9153e-02_jprb,2.4235e-02_jprb,1.6460e-02_jprb,3.1052e-02_jprb/)  
kbo( :, 3,58,13) = (/&
 & 4.0615e-02_jprb,5.9904e-02_jprb,4.9134e-02_jprb,3.2752e-02_jprb,4.7553e-02_jprb/)  
kbo( :, 4,58,13) = (/&
 & 7.6749e-02_jprb,1.1326e-01_jprb,9.3033e-02_jprb,6.1446e-02_jprb,6.7327e-02_jprb/)  
kbo( :, 5,58,13) = (/&
 & 1.3538e-01_jprb,2.0081e-01_jprb,1.6583e-01_jprb,1.0846e-01_jprb,9.0540e-02_jprb/)  
kbo( :, 1,59,13) = (/&
 & 7.7834e-03_jprb,1.1635e-02_jprb,9.8237e-03_jprb,6.7346e-03_jprb,2.0567e-02_jprb/)  
kbo( :, 2,59,13) = (/&
 & 1.7968e-02_jprb,2.6456e-02_jprb,2.2028e-02_jprb,1.4988e-02_jprb,3.5300e-02_jprb/)  
kbo( :, 3,59,13) = (/&
 & 3.7275e-02_jprb,5.5026e-02_jprb,4.5163e-02_jprb,3.0132e-02_jprb,5.4587e-02_jprb/)  
kbo( :, 4,59,13) = (/&
 & 7.1187e-02_jprb,1.0502e-01_jprb,8.6201e-02_jprb,5.6998e-02_jprb,7.7965e-02_jprb/)  
kbo( :, 5,59,13) = (/&
 & 1.2652e-01_jprb,1.8769e-01_jprb,1.5496e-01_jprb,1.0142e-01_jprb,1.0516e-01_jprb/)  
kbo( :, 1,13,14) = (/&
 & 2.2524e+00_jprb,1.8642e+00_jprb,1.4613e+00_jprb,1.4569e+00_jprb,8.7601e+00_jprb/)  
kbo( :, 2,13,14) = (/&
 & 3.1331e+00_jprb,2.6017e+00_jprb,2.0765e+00_jprb,2.1108e+00_jprb,8.6837e+00_jprb/)  
kbo( :, 3,13,14) = (/&
 & 4.2161e+00_jprb,3.4975e+00_jprb,2.8332e+00_jprb,2.9400e+00_jprb,8.5967e+00_jprb/)  
kbo( :, 4,13,14) = (/&
 & 5.4742e+00_jprb,4.5326e+00_jprb,3.7176e+00_jprb,3.9461e+00_jprb,8.5509e+00_jprb/)  
kbo( :, 5,13,14) = (/&
 & 6.8794e+00_jprb,5.6742e+00_jprb,4.7180e+00_jprb,5.1201e+00_jprb,8.7332e+00_jprb/)  
kbo( :, 1,14,14) = (/&
 & 2.4300e+00_jprb,2.0099e+00_jprb,1.6039e+00_jprb,1.5951e+00_jprb,7.9998e+00_jprb/)  
kbo( :, 2,14,14) = (/&
 & 3.3671e+00_jprb,2.7809e+00_jprb,2.2722e+00_jprb,2.2861e+00_jprb,7.9399e+00_jprb/)  
kbo( :, 3,14,14) = (/&
 & 4.5098e+00_jprb,3.7249e+00_jprb,3.1058e+00_jprb,3.1479e+00_jprb,7.9396e+00_jprb/)  
kbo( :, 4,14,14) = (/&
 & 5.8479e+00_jprb,4.8327e+00_jprb,4.0848e+00_jprb,4.1748e+00_jprb,8.0204e+00_jprb/)  
kbo( :, 5,14,14) = (/&
 & 7.3485e+00_jprb,6.0867e+00_jprb,5.1845e+00_jprb,5.3505e+00_jprb,8.4765e+00_jprb/)  
kbo( :, 1,15,14) = (/&
 & 2.6568e+00_jprb,2.1796e+00_jprb,1.7854e+00_jprb,1.7352e+00_jprb,6.7060e+00_jprb/)  
kbo( :, 2,15,14) = (/&
 & 3.6822e+00_jprb,3.0192e+00_jprb,2.5118e+00_jprb,2.4660e+00_jprb,6.7632e+00_jprb/)  
kbo( :, 3,15,14) = (/&
 & 4.9145e+00_jprb,4.0419e+00_jprb,3.4197e+00_jprb,3.3625e+00_jprb,6.9344e+00_jprb/)  
kbo( :, 4,15,14) = (/&
 & 6.3536e+00_jprb,5.2540e+00_jprb,4.4910e+00_jprb,4.4107e+00_jprb,7.2734e+00_jprb/)  
kbo( :, 5,15,14) = (/&
 & 7.9751e+00_jprb,6.6376e+00_jprb,5.7127e+00_jprb,5.6036e+00_jprb,8.1653e+00_jprb/)  
kbo( :, 1,16,14) = (/&
 & 2.9427e+00_jprb,2.4019e+00_jprb,1.9918e+00_jprb,1.8807e+00_jprb,5.4890e+00_jprb/)  
kbo( :, 2,16,14) = (/&
 & 4.0755e+00_jprb,3.3334e+00_jprb,2.7941e+00_jprb,2.6497e+00_jprb,5.7267e+00_jprb/)  
kbo( :, 3,16,14) = (/&
 & 5.4183e+00_jprb,4.4587e+00_jprb,3.7848e+00_jprb,3.5786e+00_jprb,6.0751e+00_jprb/)  
kbo( :, 4,16,14) = (/&
 & 6.9849e+00_jprb,5.7895e+00_jprb,4.9533e+00_jprb,4.6688e+00_jprb,6.8712e+00_jprb/)  
kbo( :, 5,16,14) = (/&
 & 8.7453e+00_jprb,7.3192e+00_jprb,6.3031e+00_jprb,5.9185e+00_jprb,8.0451e+00_jprb/)  
kbo( :, 1,17,14) = (/&
 & 3.2750e+00_jprb,2.6726e+00_jprb,2.2378e+00_jprb,2.0301e+00_jprb,4.7640e+00_jprb/)  
kbo( :, 2,17,14) = (/&
 & 4.5330e+00_jprb,3.7089e+00_jprb,3.1283e+00_jprb,2.8374e+00_jprb,5.1281e+00_jprb/)  
kbo( :, 3,17,14) = (/&
 & 6.0126e+00_jprb,4.9507e+00_jprb,4.2109e+00_jprb,3.8046e+00_jprb,5.7513e+00_jprb/)  
kbo( :, 4,17,14) = (/&
 & 7.7135e+00_jprb,6.4169e+00_jprb,5.4921e+00_jprb,4.9337e+00_jprb,6.7135e+00_jprb/)  
kbo( :, 5,17,14) = (/&
 & 9.6338e+00_jprb,8.1047e+00_jprb,6.9599e+00_jprb,6.2366e+00_jprb,8.0058e+00_jprb/)  
kbo( :, 1,18,14) = (/&
 & 3.6472e+00_jprb,2.9807e+00_jprb,2.5189e+00_jprb,2.1796e+00_jprb,4.4334e+00_jprb/)  
kbo( :, 2,18,14) = (/&
 & 5.0323e+00_jprb,4.1367e+00_jprb,3.4979e+00_jprb,3.0247e+00_jprb,4.9096e+00_jprb/)  
kbo( :, 3,18,14) = (/&
 & 6.6454e+00_jprb,5.5144e+00_jprb,4.6858e+00_jprb,4.0381e+00_jprb,5.6608e+00_jprb/)  
kbo( :, 4,18,14) = (/&
 & 8.4890e+00_jprb,7.1264e+00_jprb,6.0803e+00_jprb,5.2199e+00_jprb,6.6925e+00_jprb/)  
kbo( :, 5,18,14) = (/&
 & 1.0542e+01_jprb,8.9586e+00_jprb,7.6601e+00_jprb,6.5575e+00_jprb,7.9988e+00_jprb/)  
kbo( :, 1,19,14) = (/&
 & 4.0274e+00_jprb,3.3233e+00_jprb,2.8227e+00_jprb,2.3261e+00_jprb,4.2975e+00_jprb/)  
kbo( :, 2,19,14) = (/&
 & 5.5204e+00_jprb,4.5992e+00_jprb,3.8961e+00_jprb,3.2089e+00_jprb,4.8408e+00_jprb/)  
kbo( :, 3,19,14) = (/&
 & 7.2641e+00_jprb,6.1090e+00_jprb,5.1847e+00_jprb,4.2710e+00_jprb,5.6348e+00_jprb/)  
kbo( :, 4,19,14) = (/&
 & 9.2241e+00_jprb,7.8543e+00_jprb,6.6837e+00_jprb,5.5155e+00_jprb,6.6912e+00_jprb/)  
kbo( :, 5,19,14) = (/&
 & 1.1403e+01_jprb,9.8034e+00_jprb,8.3820e+00_jprb,6.9048e+00_jprb,7.9670e+00_jprb/)  
kbo( :, 1,20,14) = (/&
 & 4.4042e+00_jprb,3.6923e+00_jprb,3.1564e+00_jprb,2.5009e+00_jprb,4.3386e+00_jprb/)  
kbo( :, 2,20,14) = (/&
 & 6.0056e+00_jprb,5.0815e+00_jprb,4.3305e+00_jprb,3.4328e+00_jprb,4.8920e+00_jprb/)  
kbo( :, 3,20,14) = (/&
 & 7.8551e+00_jprb,6.7164e+00_jprb,5.7136e+00_jprb,4.5512e+00_jprb,5.6658e+00_jprb/)  
kbo( :, 4,20,14) = (/&
 & 9.9239e+00_jprb,8.5703e+00_jprb,7.3215e+00_jprb,5.8504e+00_jprb,6.6818e+00_jprb/)  
kbo( :, 5,20,14) = (/&
 & 1.2197e+01_jprb,1.0639e+01_jprb,9.1299e+00_jprb,7.3134e+00_jprb,7.9255e+00_jprb/)  
kbo( :, 1,21,14) = (/&
 & 4.7479e+00_jprb,4.0508e+00_jprb,3.4983e+00_jprb,2.6955e+00_jprb,4.4010e+00_jprb/)  
kbo( :, 2,21,14) = (/&
 & 6.4355e+00_jprb,5.5399e+00_jprb,4.7678e+00_jprb,3.6820e+00_jprb,4.9446e+00_jprb/)  
kbo( :, 3,21,14) = (/&
 & 8.3663e+00_jprb,7.2751e+00_jprb,6.2518e+00_jprb,4.8572e+00_jprb,5.6757e+00_jprb/)  
kbo( :, 4,21,14) = (/&
 & 1.0512e+01_jprb,9.2314e+00_jprb,7.9526e+00_jprb,6.2141e+00_jprb,6.6288e+00_jprb/)  
kbo( :, 5,21,14) = (/&
 & 1.2856e+01_jprb,1.1396e+01_jprb,9.8659e+00_jprb,7.7561e+00_jprb,7.8277e+00_jprb/)  
kbo( :, 1,22,14) = (/&
 & 5.1420e+00_jprb,4.4823e+00_jprb,3.9096e+00_jprb,2.9527e+00_jprb,4.4013e+00_jprb/)  
kbo( :, 2,22,14) = (/&
 & 6.9006e+00_jprb,6.0705e+00_jprb,5.2806e+00_jprb,4.0025e+00_jprb,4.9528e+00_jprb/)  
kbo( :, 3,22,14) = (/&
 & 8.8983e+00_jprb,7.9013e+00_jprb,6.8678e+00_jprb,5.2402e+00_jprb,5.6748e+00_jprb/)  
kbo( :, 4,22,14) = (/&
 & 1.1116e+01_jprb,9.9470e+00_jprb,8.6698e+00_jprb,6.6674e+00_jprb,6.5994e+00_jprb/)  
kbo( :, 5,22,14) = (/&
 & 1.3502e+01_jprb,1.2202e+01_jprb,1.0686e+01_jprb,8.2853e+00_jprb,7.7517e+00_jprb/)  
kbo( :, 1,23,14) = (/&
 & 5.4713e+00_jprb,4.8911e+00_jprb,4.3072e+00_jprb,3.2139e+00_jprb,4.3813e+00_jprb/)  
kbo( :, 2,23,14) = (/&
 & 7.2751e+00_jprb,6.5638e+00_jprb,5.7664e+00_jprb,4.3250e+00_jprb,4.9555e+00_jprb/)  
kbo( :, 3,23,14) = (/&
 & 9.3230e+00_jprb,8.4735e+00_jprb,7.4455e+00_jprb,5.6212e+00_jprb,5.6783e+00_jprb/)  
kbo( :, 4,23,14) = (/&
 & 1.1564e+01_jprb,1.0599e+01_jprb,9.3428e+00_jprb,7.1049e+00_jprb,6.5825e+00_jprb/)  
kbo( :, 5,23,14) = (/&
 & 1.3974e+01_jprb,1.2910e+01_jprb,1.1439e+01_jprb,8.7857e+00_jprb,7.6865e+00_jprb/)  
kbo( :, 1,24,14) = (/&
 & 5.7350e+00_jprb,5.2712e+00_jprb,4.6801e+00_jprb,3.4774e+00_jprb,4.3078e+00_jprb/)  
kbo( :, 2,24,14) = (/&
 & 7.5695e+00_jprb,7.0067e+00_jprb,6.2189e+00_jprb,4.6444e+00_jprb,4.9097e+00_jprb/)  
kbo( :, 3,24,14) = (/&
 & 9.6279e+00_jprb,8.9845e+00_jprb,7.9822e+00_jprb,5.9954e+00_jprb,5.6514e+00_jprb/)  
kbo( :, 4,24,14) = (/&
 & 1.1878e+01_jprb,1.1160e+01_jprb,9.9533e+00_jprb,7.5366e+00_jprb,6.5532e+00_jprb/)  
kbo( :, 5,24,14) = (/&
 & 1.4285e+01_jprb,1.3514e+01_jprb,1.2126e+01_jprb,9.2665e+00_jprb,7.6715e+00_jprb/)  
kbo( :, 1,25,14) = (/&
 & 5.9267e+00_jprb,5.6187e+00_jprb,5.0280e+00_jprb,3.7387e+00_jprb,4.2972e+00_jprb/)  
kbo( :, 2,25,14) = (/&
 & 7.7642e+00_jprb,7.4077e+00_jprb,6.6347e+00_jprb,4.9555e+00_jprb,4.9309e+00_jprb/)  
kbo( :, 3,25,14) = (/&
 & 9.8187e+00_jprb,9.4277e+00_jprb,8.4720e+00_jprb,6.3648e+00_jprb,5.6934e+00_jprb/)  
kbo( :, 4,25,14) = (/&
 & 1.2059e+01_jprb,1.1644e+01_jprb,1.0515e+01_jprb,7.9525e+00_jprb,6.6186e+00_jprb/)  
kbo( :, 5,25,14) = (/&
 & 1.4463e+01_jprb,1.4040e+01_jprb,1.2752e+01_jprb,9.7432e+00_jprb,7.7714e+00_jprb/)  
kbo( :, 1,26,14) = (/&
 & 6.0673e+00_jprb,5.9449e+00_jprb,5.3655e+00_jprb,4.0058e+00_jprb,4.3684e+00_jprb/)  
kbo( :, 2,26,14) = (/&
 & 7.8884e+00_jprb,7.7776e+00_jprb,7.0359e+00_jprb,5.2751e+00_jprb,5.0446e+00_jprb/)  
kbo( :, 3,26,14) = (/&
 & 9.9238e+00_jprb,9.8293e+00_jprb,8.9381e+00_jprb,6.7352e+00_jprb,5.8349e+00_jprb/)  
kbo( :, 4,26,14) = (/&
 & 1.2150e+01_jprb,1.2086e+01_jprb,1.1047e+01_jprb,8.3792e+00_jprb,6.8011e+00_jprb/)  
kbo( :, 5,26,14) = (/&
 & 1.4535e+01_jprb,1.4527e+01_jprb,1.3353e+01_jprb,1.0236e+01_jprb,7.9789e+00_jprb/)  
kbo( :, 1,27,14) = (/&
 & 6.1343e+00_jprb,6.2302e+00_jprb,5.6763e+00_jprb,4.2525e+00_jprb,4.3799e+00_jprb/)  
kbo( :, 2,27,14) = (/&
 & 7.9331e+00_jprb,8.0869e+00_jprb,7.4032e+00_jprb,5.5689e+00_jprb,5.1012e+00_jprb/)  
kbo( :, 3,27,14) = (/&
 & 9.9492e+00_jprb,1.0172e+01_jprb,9.3622e+00_jprb,7.0779e+00_jprb,5.9411e+00_jprb/)  
kbo( :, 4,27,14) = (/&
 & 1.2151e+01_jprb,1.2467e+01_jprb,1.1529e+01_jprb,8.7861e+00_jprb,6.9495e+00_jprb/)  
kbo( :, 5,27,14) = (/&
 & 1.4529e+01_jprb,1.4944e+01_jprb,1.3914e+01_jprb,1.0727e+01_jprb,8.1417e+00_jprb/)  
kbo( :, 1,28,14) = (/&
 & 6.1453e+00_jprb,6.4763e+00_jprb,5.9637e+00_jprb,4.4841e+00_jprb,4.3357e+00_jprb/)  
kbo( :, 2,28,14) = (/&
 & 7.9217e+00_jprb,8.3599e+00_jprb,7.7430e+00_jprb,5.8381e+00_jprb,5.0957e+00_jprb/)  
kbo( :, 3,28,14) = (/&
 & 9.9089e+00_jprb,1.0474e+01_jprb,9.7521e+00_jprb,7.4031e+00_jprb,5.9939e+00_jprb/)  
kbo( :, 4,28,14) = (/&
 & 1.2103e+01_jprb,1.2802e+01_jprb,1.1983e+01_jprb,9.1765e+00_jprb,7.0380e+00_jprb/)  
kbo( :, 5,28,14) = (/&
 & 1.4484e+01_jprb,1.5315e+01_jprb,1.4450e+01_jprb,1.1205e+01_jprb,8.2560e+00_jprb/)  
kbo( :, 1,29,14) = (/&
 & 6.1344e+00_jprb,6.7103e+00_jprb,6.2468e+00_jprb,4.7094e+00_jprb,4.2060e+00_jprb/)  
kbo( :, 2,29,14) = (/&
 & 7.8873e+00_jprb,8.6217e+00_jprb,8.0781e+00_jprb,6.1108e+00_jprb,4.9771e+00_jprb/)  
kbo( :, 3,29,14) = (/&
 & 9.8658e+00_jprb,1.0771e+01_jprb,1.0146e+01_jprb,7.7338e+00_jprb,5.8851e+00_jprb/)  
kbo( :, 4,29,14) = (/&
 & 1.2059e+01_jprb,1.3133e+01_jprb,1.2445e+01_jprb,9.5787e+00_jprb,6.9308e+00_jprb/)  
kbo( :, 5,29,14) = (/&
 & 1.4440e+01_jprb,1.5700e+01_jprb,1.5002e+01_jprb,1.1702e+01_jprb,8.1658e+00_jprb/)  
kbo( :, 1,30,14) = (/&
 & 6.1074e+00_jprb,6.9340e+00_jprb,6.5266e+00_jprb,4.9327e+00_jprb,4.0096e+00_jprb/)  
kbo( :, 2,30,14) = (/&
 & 7.8501e+00_jprb,8.8831e+00_jprb,8.4088e+00_jprb,6.3894e+00_jprb,4.7868e+00_jprb/)  
kbo( :, 3,30,14) = (/&
 & 9.8321e+00_jprb,1.1068e+01_jprb,1.0541e+01_jprb,8.0663e+00_jprb,5.6845e+00_jprb/)  
kbo( :, 4,30,14) = (/&
 & 1.2029e+01_jprb,1.3476e+01_jprb,1.2917e+01_jprb,9.9903e+00_jprb,6.7312e+00_jprb/)  
kbo( :, 5,30,14) = (/&
 & 1.4419e+01_jprb,1.6109e+01_jprb,1.5573e+01_jprb,1.2209e+01_jprb,7.9754e+00_jprb/)  
kbo( :, 1,31,14) = (/&
 & 6.0986e+00_jprb,7.1722e+00_jprb,6.8200e+00_jprb,5.1755e+00_jprb,3.7163e+00_jprb/)  
kbo( :, 2,31,14) = (/&
 & 7.8450e+00_jprb,9.1619e+00_jprb,8.7620e+00_jprb,6.6858e+00_jprb,4.4619e+00_jprb/)  
kbo( :, 3,31,14) = (/&
 & 9.8340e+00_jprb,1.1393e+01_jprb,1.0969e+01_jprb,8.4279e+00_jprb,5.3316e+00_jprb/)  
kbo( :, 4,31,14) = (/&
 & 1.2043e+01_jprb,1.3864e+01_jprb,1.3429e+01_jprb,1.0440e+01_jprb,6.3686e+00_jprb/)  
kbo( :, 5,31,14) = (/&
 & 1.4461e+01_jprb,1.6571e+01_jprb,1.6185e+01_jprb,1.2751e+01_jprb,7.6315e+00_jprb/)  
kbo( :, 1,32,14) = (/&
 & 6.1266e+00_jprb,7.4384e+00_jprb,7.1350e+00_jprb,5.4384e+00_jprb,3.4364e+00_jprb/)  
kbo( :, 2,32,14) = (/&
 & 7.8843e+00_jprb,9.4733e+00_jprb,9.1481e+00_jprb,7.0065e+00_jprb,4.1508e+00_jprb/)  
kbo( :, 3,32,14) = (/&
 & 9.8908e+00_jprb,1.1765e+01_jprb,1.1436e+01_jprb,8.8189e+00_jprb,5.0057e+00_jprb/)  
kbo( :, 4,32,14) = (/&
 & 1.2132e+01_jprb,1.4306e+01_jprb,1.3989e+01_jprb,1.0926e+01_jprb,6.0480e+00_jprb/)  
kbo( :, 5,32,14) = (/&
 & 1.4591e+01_jprb,1.7095e+01_jprb,1.6845e+01_jprb,1.3332e+01_jprb,7.3373e+00_jprb/)  
kbo( :, 1,33,14) = (/&
 & 6.1928e+00_jprb,7.7310e+00_jprb,7.4804e+00_jprb,5.7251e+00_jprb,3.1571e+00_jprb/)  
kbo( :, 2,33,14) = (/&
 & 7.9747e+00_jprb,9.8269e+00_jprb,9.5731e+00_jprb,7.3563e+00_jprb,3.8547e+00_jprb/)  
kbo( :, 3,33,14) = (/&
 & 1.0016e+01_jprb,1.2187e+01_jprb,1.1940e+01_jprb,9.2481e+00_jprb,4.7049e+00_jprb/)  
kbo( :, 4,33,14) = (/&
 & 1.2296e+01_jprb,1.4804e+01_jprb,1.4590e+01_jprb,1.1453e+01_jprb,5.7736e+00_jprb/)  
kbo( :, 5,33,14) = (/&
 & 1.4813e+01_jprb,1.7670e+01_jprb,1.7552e+01_jprb,1.3951e+01_jprb,7.0995e+00_jprb/)  
kbo( :, 1,34,14) = (/&
 & 6.2424e+00_jprb,7.9897e+00_jprb,7.7910e+00_jprb,5.9836e+00_jprb,2.9611e+00_jprb/)  
kbo( :, 2,34,14) = (/&
 & 8.0550e+00_jprb,1.0143e+01_jprb,9.9528e+00_jprb,7.6724e+00_jprb,3.6568e+00_jprb/)  
kbo( :, 3,34,14) = (/&
 & 1.0129e+01_jprb,1.2569e+01_jprb,1.2399e+01_jprb,9.6375e+00_jprb,4.5137e+00_jprb/)  
kbo( :, 4,34,14) = (/&
 & 1.2455e+01_jprb,1.5251e+01_jprb,1.5135e+01_jprb,1.1928e+01_jprb,5.6067e+00_jprb/)  
kbo( :, 5,34,14) = (/&
 & 1.5024e+01_jprb,1.8190e+01_jprb,1.8193e+01_jprb,1.4509e+01_jprb,6.9726e+00_jprb/)  
kbo( :, 1,35,14) = (/&
 & 6.1783e+00_jprb,8.0868e+00_jprb,7.9354e+00_jprb,6.1097e+00_jprb,2.7386e+00_jprb/)  
kbo( :, 2,35,14) = (/&
 & 8.0021e+00_jprb,1.0274e+01_jprb,1.0143e+01_jprb,7.8342e+00_jprb,3.4231e+00_jprb/)  
kbo( :, 3,35,14) = (/&
 & 1.0093e+01_jprb,1.2741e+01_jprb,1.2638e+01_jprb,9.8464e+00_jprb,4.2817e+00_jprb/)  
kbo( :, 4,35,14) = (/&
 & 1.2448e+01_jprb,1.5466e+01_jprb,1.5430e+01_jprb,1.2190e+01_jprb,5.3838e+00_jprb/)  
kbo( :, 5,35,14) = (/&
 & 1.5050e+01_jprb,1.8453e+01_jprb,1.8553e+01_jprb,1.4830e+01_jprb,6.7795e+00_jprb/)  
kbo( :, 1,36,14) = (/&
 & 5.9739e+00_jprb,7.9879e+00_jprb,7.8762e+00_jprb,6.0736e+00_jprb,2.4966e+00_jprb/)  
kbo( :, 2,36,14) = (/&
 & 7.7837e+00_jprb,1.0180e+01_jprb,1.0097e+01_jprb,7.8072e+00_jprb,3.1606e+00_jprb/)  
kbo( :, 3,36,14) = (/&
 & 9.8723e+00_jprb,1.2658e+01_jprb,1.2607e+01_jprb,9.8330e+00_jprb,4.0029e+00_jprb/)  

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


SUBROUTINE part34

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


kbo( :, 4,36,14) = (/&
 & 1.2229e+01_jprb,1.5396e+01_jprb,1.5418e+01_jprb,1.2194e+01_jprb,5.0917e+00_jprb/)  
kbo( :, 5,36,14) = (/&
 & 1.4834e+01_jprb,1.8403e+01_jprb,1.8570e+01_jprb,1.4857e+01_jprb,6.4863e+00_jprb/)  
kbo( :, 1,37,14) = (/&
 & 5.5612e+00_jprb,7.6037e+00_jprb,7.5217e+00_jprb,5.8049e+00_jprb,2.2433e+00_jprb/)  
kbo( :, 2,37,14) = (/&
 & 7.3179e+00_jprb,9.7571e+00_jprb,9.7063e+00_jprb,7.5074e+00_jprb,2.8646e+00_jprb/)  
kbo( :, 3,37,14) = (/&
 & 9.3602e+00_jprb,1.2203e+01_jprb,1.2188e+01_jprb,9.5001e+00_jprb,3.6608e+00_jprb/)  
kbo( :, 4,37,14) = (/&
 & 1.1681e+01_jprb,1.4916e+01_jprb,1.4967e+01_jprb,1.1825e+01_jprb,4.7005e+00_jprb/)  
kbo( :, 5,37,14) = (/&
 & 1.4259e+01_jprb,1.7897e+01_jprb,1.8089e+01_jprb,1.4461e+01_jprb,6.0475e+00_jprb/)  
kbo( :, 1,38,14) = (/&
 & 5.1796e+00_jprb,7.2275e+00_jprb,7.1681e+00_jprb,5.5362e+00_jprb,1.9985e+00_jprb/)  
kbo( :, 2,38,14) = (/&
 & 6.8825e+00_jprb,9.3401e+00_jprb,9.3116e+00_jprb,7.2050e+00_jprb,2.5786e+00_jprb/)  
kbo( :, 3,38,14) = (/&
 & 8.8770e+00_jprb,1.1748e+01_jprb,1.1759e+01_jprb,9.1583e+00_jprb,3.3304e+00_jprb/)  
kbo( :, 4,38,14) = (/&
 & 1.1161e+01_jprb,1.4430e+01_jprb,1.4508e+01_jprb,1.1443e+01_jprb,4.3225e+00_jprb/)  
kbo( :, 5,38,14) = (/&
 & 1.3706e+01_jprb,1.7382e+01_jprb,1.7591e+01_jprb,1.4049e+01_jprb,5.6183e+00_jprb/)  
kbo( :, 1,39,14) = (/&
 & 4.8363e+00_jprb,6.8762e+00_jprb,6.8344e+00_jprb,5.2801e+00_jprb,1.7623e+00_jprb/)  
kbo( :, 2,39,14) = (/&
 & 6.4874e+00_jprb,8.9479e+00_jprb,8.9339e+00_jprb,6.9176e+00_jprb,2.3035e+00_jprb/)  
kbo( :, 3,39,14) = (/&
 & 8.4367e+00_jprb,1.1315e+01_jprb,1.1346e+01_jprb,8.8331e+00_jprb,3.0157e+00_jprb/)  
kbo( :, 4,39,14) = (/&
 & 1.0680e+01_jprb,1.3965e+01_jprb,1.4062e+01_jprb,1.1077e+01_jprb,3.9619e+00_jprb/)  
kbo( :, 5,39,14) = (/&
 & 1.3190e+01_jprb,1.6887e+01_jprb,1.7105e+01_jprb,1.3646e+01_jprb,5.2103e+00_jprb/)  
kbo( :, 1,40,14) = (/&
 & 4.3793e+00_jprb,6.3557e+00_jprb,6.3258e+00_jprb,4.8864e+00_jprb,1.5658e+00_jprb/)  
kbo( :, 2,40,14) = (/&
 & 5.9498e+00_jprb,8.3535e+00_jprb,8.3464e+00_jprb,6.4658e+00_jprb,2.0604e+00_jprb/)  
kbo( :, 3,40,14) = (/&
 & 7.8232e+00_jprb,1.0648e+01_jprb,1.0689e+01_jprb,8.3111e+00_jprb,2.7192e+00_jprb/)  
kbo( :, 4,40,14) = (/&
 & 9.9941e+00_jprb,1.3236e+01_jprb,1.3338e+01_jprb,1.0477e+01_jprb,3.5936e+00_jprb/)  
kbo( :, 5,40,14) = (/&
 & 1.2441e+01_jprb,1.6098e+01_jprb,1.6304e+01_jprb,1.2976e+01_jprb,4.7608e+00_jprb/)  
kbo( :, 1,41,14) = (/&
 & 3.9456e+00_jprb,5.8420e+00_jprb,5.8231e+00_jprb,4.4960e+00_jprb,1.3889e+00_jprb/)  
kbo( :, 2,41,14) = (/&
 & 5.4322e+00_jprb,7.7601e+00_jprb,7.7597e+00_jprb,6.0124e+00_jprb,1.8377e+00_jprb/)  
kbo( :, 3,41,14) = (/&
 & 7.2229e+00_jprb,9.9804e+00_jprb,1.0024e+01_jprb,7.7851e+00_jprb,2.4432e+00_jprb/)  
kbo( :, 4,41,14) = (/&
 & 9.3151e+00_jprb,1.2496e+01_jprb,1.2598e+01_jprb,9.8694e+00_jprb,3.2503e+00_jprb/)  
kbo( :, 5,41,14) = (/&
 & 1.1696e+01_jprb,1.5294e+01_jprb,1.5489e+01_jprb,1.2290e+01_jprb,4.3315e+00_jprb/)  
kbo( :, 1,42,14) = (/&
 & 3.5496e+00_jprb,5.3598e+00_jprb,5.3497e+00_jprb,4.1263e+00_jprb,1.2230e+00_jprb/)  
kbo( :, 2,42,14) = (/&
 & 4.9552e+00_jprb,7.1957e+00_jprb,7.1981e+00_jprb,5.5771e+00_jprb,1.6308e+00_jprb/)  
kbo( :, 3,42,14) = (/&
 & 6.6624e+00_jprb,9.3374e+00_jprb,9.3819e+00_jprb,7.2830e+00_jprb,2.1850e+00_jprb/)  
kbo( :, 4,42,14) = (/&
 & 8.6755e+00_jprb,1.1781e+01_jprb,1.1882e+01_jprb,9.2833e+00_jprb,2.9295e+00_jprb/)  
kbo( :, 5,42,14) = (/&
 & 1.0984e+01_jprb,1.4512e+01_jprb,1.4694e+01_jprb,1.1624e+01_jprb,3.9287e+00_jprb/)  
kbo( :, 1,43,14) = (/&
 & 3.1237e+00_jprb,4.8164e+00_jprb,4.8129e+00_jprb,3.7055e+00_jprb,1.0597e+00_jprb/)  
kbo( :, 2,43,14) = (/&
 & 4.4310e+00_jprb,6.5524e+00_jprb,6.5555e+00_jprb,5.0769e+00_jprb,1.4220e+00_jprb/)  
kbo( :, 3,43,14) = (/&
 & 6.0363e+00_jprb,8.5993e+00_jprb,8.6369e+00_jprb,6.7040e+00_jprb,1.9190e+00_jprb/)  
kbo( :, 4,43,14) = (/&
 & 7.9515e+00_jprb,1.0949e+01_jprb,1.1041e+01_jprb,8.6082e+00_jprb,2.5937e+00_jprb/)  
kbo( :, 5,43,14) = (/&
 & 1.0170e+01_jprb,1.3594e+01_jprb,1.3761e+01_jprb,1.0846e+01_jprb,3.5024e+00_jprb/)  
kbo( :, 1,44,14) = (/&
 & 2.7094e+00_jprb,4.2738e+00_jprb,4.2715e+00_jprb,3.2851e+00_jprb,9.0642e-01_jprb/)  
kbo( :, 2,44,14) = (/&
 & 3.9148e+00_jprb,5.9019e+00_jprb,5.9083e+00_jprb,4.5708e+00_jprb,1.2238e+00_jprb/)  
kbo( :, 3,44,14) = (/&
 & 5.4146e+00_jprb,7.8441e+00_jprb,7.8762e+00_jprb,6.1124e+00_jprb,1.6632e+00_jprb/)  
kbo( :, 4,44,14) = (/&
 & 7.2212e+00_jprb,1.0093e+01_jprb,1.0172e+01_jprb,7.9162e+00_jprb,2.2685e+00_jprb/)  
kbo( :, 5,44,14) = (/&
 & 9.3383e+00_jprb,1.2640e+01_jprb,1.2790e+01_jprb,1.0039e+01_jprb,3.0877e+00_jprb/)  
kbo( :, 1,45,14) = (/&
 & 2.3381e+00_jprb,3.7708e+00_jprb,3.7687e+00_jprb,2.8968e+00_jprb,7.6661e-01_jprb/)  
kbo( :, 2,45,14) = (/&
 & 3.4439e+00_jprb,5.2956e+00_jprb,5.3039e+00_jprb,4.0958e+00_jprb,1.0405e+00_jprb/)  
kbo( :, 3,45,14) = (/&
 & 4.8375e+00_jprb,7.1296e+00_jprb,7.1547e+00_jprb,5.5510e+00_jprb,1.4289e+00_jprb/)  
kbo( :, 4,45,14) = (/&
 & 6.5366e+00_jprb,9.2742e+00_jprb,9.3409e+00_jprb,7.2620e+00_jprb,1.9684e+00_jprb/)  
kbo( :, 5,45,14) = (/&
 & 8.5492e+00_jprb,1.1723e+01_jprb,1.1855e+01_jprb,9.2715e+00_jprb,2.7076e+00_jprb/)  
kbo( :, 1,46,14) = (/&
 & 1.9868e+00_jprb,3.2812e+00_jprb,3.2800e+00_jprb,2.5190e+00_jprb,6.4180e-01_jprb/)  
kbo( :, 2,46,14) = (/&
 & 2.9896e+00_jprb,4.6959e+00_jprb,4.7028e+00_jprb,3.6244e+00_jprb,8.7338e-01_jprb/)  
kbo( :, 3,46,14) = (/&
 & 4.2743e+00_jprb,6.4145e+00_jprb,6.4351e+00_jprb,4.9866e+00_jprb,1.2115e+00_jprb/)  
kbo( :, 4,46,14) = (/&
 & 5.8592e+00_jprb,8.4475e+00_jprb,8.5037e+00_jprb,6.6059e+00_jprb,1.6869e+00_jprb/)  
kbo( :, 5,46,14) = (/&
 & 7.7565e+00_jprb,1.0789e+01_jprb,1.0900e+01_jprb,8.5039e+00_jprb,2.3466e+00_jprb/)  
kbo( :, 1,47,14) = (/&
 & 1.6439e+00_jprb,2.7872e+00_jprb,2.7853e+00_jprb,2.1361e+00_jprb,5.3608e-01_jprb/)  
kbo( :, 2,47,14) = (/&
 & 2.5332e+00_jprb,4.0761e+00_jprb,4.0808e+00_jprb,3.1417e+00_jprb,7.2689e-01_jprb/)  
kbo( :, 3,47,14) = (/&
 & 3.7004e+00_jprb,5.6682e+00_jprb,5.6872e+00_jprb,4.4002e+00_jprb,1.0142e+00_jprb/)  
kbo( :, 4,47,14) = (/&
 & 5.1603e+00_jprb,7.5763e+00_jprb,7.6194e+00_jprb,5.9172e+00_jprb,1.4236e+00_jprb/)  
kbo( :, 5,47,14) = (/&
 & 6.9294e+00_jprb,9.7951e+00_jprb,9.8846e+00_jprb,7.6954e+00_jprb,2.0006e+00_jprb/)  
kbo( :, 1,48,14) = (/&
 & 1.3454e+00_jprb,2.3441e+00_jprb,2.3435e+00_jprb,1.7934e+00_jprb,4.4332e-01_jprb/)  
kbo( :, 2,48,14) = (/&
 & 2.1289e+00_jprb,3.5090e+00_jprb,3.5130e+00_jprb,2.7017e+00_jprb,5.9906e-01_jprb/)  
kbo( :, 3,48,14) = (/&
 & 3.1810e+00_jprb,4.9808e+00_jprb,4.9955e+00_jprb,3.8562e+00_jprb,8.3681e-01_jprb/)  
kbo( :, 4,48,14) = (/&
 & 4.5168e+00_jprb,6.7583e+00_jprb,6.7897e+00_jprb,5.2679e+00_jprb,1.1898e+00_jprb/)  
kbo( :, 5,48,14) = (/&
 & 6.1589e+00_jprb,8.8519e+00_jprb,8.9240e+00_jprb,6.9392e+00_jprb,1.6894e+00_jprb/)  
kbo( :, 1,49,14) = (/&
 & 1.0880e+00_jprb,1.9520e+00_jprb,1.9492e+00_jprb,1.4892e+00_jprb,3.6205e-01_jprb/)  
kbo( :, 2,49,14) = (/&
 & 1.7730e+00_jprb,2.9965e+00_jprb,2.9993e+00_jprb,2.3026e+00_jprb,4.8696e-01_jprb/)  
kbo( :, 3,49,14) = (/&
 & 2.7108e+00_jprb,4.3431e+00_jprb,4.3550e+00_jprb,3.3555e+00_jprb,6.7993e-01_jprb/)  
kbo( :, 4,49,14) = (/&
 & 3.9297e+00_jprb,5.9939e+00_jprb,6.0205e+00_jprb,4.6638e+00_jprb,9.7892e-01_jprb/)  
kbo( :, 5,49,14) = (/&
 & 5.4456e+00_jprb,7.9623e+00_jprb,8.0197e+00_jprb,6.2316e+00_jprb,1.4097e+00_jprb/)  
kbo( :, 1,50,14) = (/&
 & 8.8117e-01_jprb,1.6250e+00_jprb,1.6221e+00_jprb,1.2383e+00_jprb,3.0851e-01_jprb/)  
kbo( :, 2,50,14) = (/&
 & 1.4792e+00_jprb,2.5614e+00_jprb,2.5640e+00_jprb,1.9649e+00_jprb,4.1033e-01_jprb/)  
kbo( :, 3,50,14) = (/&
 & 2.3153e+00_jprb,3.7911e+00_jprb,3.7998e+00_jprb,2.9253e+00_jprb,5.6911e-01_jprb/)  
kbo( :, 4,50,14) = (/&
 & 3.4255e+00_jprb,5.3270e+00_jprb,5.3498e+00_jprb,4.1369e+00_jprb,8.2028e-01_jprb/)  
kbo( :, 5,50,14) = (/&
 & 4.8249e+00_jprb,7.1748e+00_jprb,7.2189e+00_jprb,5.6068e+00_jprb,1.1946e+00_jprb/)  
kbo( :, 1,51,14) = (/&
 & 7.1056e-01_jprb,1.3442e+00_jprb,1.3433e+00_jprb,1.0241e+00_jprb,2.6969e-01_jprb/)  
kbo( :, 2,51,14) = (/&
 & 1.2285e+00_jprb,2.1825e+00_jprb,2.1836e+00_jprb,1.6701e+00_jprb,3.5352e-01_jprb/)  
kbo( :, 3,51,14) = (/&
 & 1.9719e+00_jprb,3.3009e+00_jprb,3.3075e+00_jprb,2.5431e+00_jprb,4.8463e-01_jprb/)  
kbo( :, 4,51,14) = (/&
 & 2.9787e+00_jprb,4.7254e+00_jprb,4.7429e+00_jprb,3.6598e+00_jprb,6.9430e-01_jprb/)  
kbo( :, 5,51,14) = (/&
 & 4.2688e+00_jprb,6.4560e+00_jprb,6.4905e+00_jprb,5.0345e+00_jprb,1.0186e+00_jprb/)  
kbo( :, 1,52,14) = (/&
 & 5.6673e-01_jprb,1.0993e+00_jprb,1.1002e+00_jprb,8.3639e-01_jprb,2.3587e-01_jprb/)  
kbo( :, 2,52,14) = (/&
 & 1.0109e+00_jprb,1.8431e+00_jprb,1.8420e+00_jprb,1.4073e+00_jprb,3.0435e-01_jprb/)  
kbo( :, 3,52,14) = (/&
 & 1.6672e+00_jprb,2.8532e+00_jprb,2.8589e+00_jprb,2.1945e+00_jprb,4.1172e-01_jprb/)  
kbo( :, 4,52,14) = (/&
 & 2.5718e+00_jprb,4.1653e+00_jprb,4.1785e+00_jprb,3.2201e+00_jprb,5.8484e-01_jprb/)  
kbo( :, 5,52,14) = (/&
 & 3.7560e+00_jprb,5.7814e+00_jprb,5.8111e+00_jprb,4.5005e+00_jprb,8.6103e-01_jprb/)  
kbo( :, 1,53,14) = (/&
 & 4.4695e-01_jprb,8.8846e-01_jprb,8.9001e-01_jprb,6.7290e-01_jprb,2.0456e-01_jprb/)  
kbo( :, 2,53,14) = (/&
 & 8.2293e-01_jprb,1.5387e+00_jprb,1.5377e+00_jprb,1.1737e+00_jprb,2.6214e-01_jprb/)  
kbo( :, 3,53,14) = (/&
 & 1.3961e+00_jprb,2.4467e+00_jprb,2.4512e+00_jprb,1.8778e+00_jprb,3.4832e-01_jprb/)  
kbo( :, 4,53,14) = (/&
 & 2.2042e+00_jprb,3.6459e+00_jprb,3.6556e+00_jprb,2.8141e+00_jprb,4.9014e-01_jprb/)  
kbo( :, 5,53,14) = (/&
 & 3.2850e+00_jprb,5.1511e+00_jprb,5.1749e+00_jprb,4.0006e+00_jprb,7.2139e-01_jprb/)  
kbo( :, 1,54,14) = (/&
 & 3.5542e-01_jprb,7.2243e-01_jprb,7.2402e-01_jprb,5.4442e-01_jprb,1.8822e-01_jprb/)  
kbo( :, 2,54,14) = (/&
 & 6.7476e-01_jprb,1.2906e+00_jprb,1.2914e+00_jprb,9.8429e-01_jprb,2.4211e-01_jprb/)  
kbo( :, 3,54,14) = (/&
 & 1.1767e+00_jprb,2.1105e+00_jprb,2.1120e+00_jprb,1.6159e+00_jprb,3.1436e-01_jprb/)  
kbo( :, 4,54,14) = (/&
 & 1.9014e+00_jprb,3.2074e+00_jprb,3.2160e+00_jprb,2.4725e+00_jprb,4.3384e-01_jprb/)  
kbo( :, 5,54,14) = (/&
 & 2.8871e+00_jprb,4.6109e+00_jprb,4.6302e+00_jprb,3.5724e+00_jprb,6.2978e-01_jprb/)  
kbo( :, 1,55,14) = (/&
 & 2.8206e-01_jprb,5.8561e-01_jprb,5.8631e-01_jprb,4.3881e-01_jprb,1.7956e-01_jprb/)  
kbo( :, 2,55,14) = (/&
 & 5.5285e-01_jprb,1.0805e+00_jprb,1.0824e+00_jprb,8.2279e-01_jprb,2.3170e-01_jprb/)  
kbo( :, 3,55,14) = (/&
 & 9.9080e-01_jprb,1.8171e+00_jprb,1.8174e+00_jprb,1.3888e+00_jprb,2.9651e-01_jprb/)  
kbo( :, 4,55,14) = (/&
 & 1.6397e+00_jprb,2.8207e+00_jprb,2.8269e+00_jprb,2.1700e+00_jprb,3.9927e-01_jprb/)  
kbo( :, 5,55,14) = (/&
 & 2.5364e+00_jprb,4.1246e+00_jprb,4.1390e+00_jprb,3.1901e+00_jprb,5.6676e-01_jprb/)  
kbo( :, 1,56,14) = (/&
 & 2.2149e-01_jprb,4.6888e-01_jprb,4.6793e-01_jprb,3.4931e-01_jprb,1.7153e-01_jprb/)  
kbo( :, 2,56,14) = (/&
 & 4.4941e-01_jprb,8.9702e-01_jprb,8.9917e-01_jprb,6.8030e-01_jprb,2.2216e-01_jprb/)  
kbo( :, 3,56,14) = (/&
 & 8.2764e-01_jprb,1.5520e+00_jprb,1.5517e+00_jprb,1.1848e+00_jprb,2.8403e-01_jprb/)  
kbo( :, 4,56,14) = (/&
 & 1.4044e+00_jprb,2.4656e+00_jprb,2.4713e+00_jprb,1.8937e+00_jprb,3.7249e-01_jprb/)  
kbo( :, 5,56,14) = (/&
 & 2.2168e+00_jprb,3.6708e+00_jprb,3.6827e+00_jprb,2.8356e+00_jprb,5.1654e-01_jprb/)  
kbo( :, 1,57,14) = (/&
 & 1.7214e-01_jprb,3.7079e-01_jprb,3.6824e-01_jprb,2.7420e-01_jprb,1.6338e-01_jprb/)  
kbo( :, 2,57,14) = (/&
 & 3.6172e-01_jprb,7.3713e-01_jprb,7.3924e-01_jprb,5.5639e-01_jprb,2.1373e-01_jprb/)  
kbo( :, 3,57,14) = (/&
 & 6.8570e-01_jprb,1.3134e+00_jprb,1.3148e+00_jprb,1.0025e+00_jprb,2.7456e-01_jprb/)  
kbo( :, 4,57,14) = (/&
 & 1.1942e+00_jprb,2.1424e+00_jprb,2.1454e+00_jprb,1.6418e+00_jprb,3.5310e-01_jprb/)  
kbo( :, 5,57,14) = (/&
 & 1.9264e+00_jprb,3.2505e+00_jprb,3.2602e+00_jprb,2.5070e+00_jprb,4.7752e-01_jprb/)  
kbo( :, 1,58,14) = (/&
 & 1.3445e-01_jprb,2.9284e-01_jprb,2.8903e-01_jprb,2.1482e-01_jprb,1.5774e-01_jprb/)  
kbo( :, 2,58,14) = (/&
 & 2.9137e-01_jprb,6.0563e-01_jprb,6.0668e-01_jprb,4.5447e-01_jprb,2.0929e-01_jprb/)  
kbo( :, 3,58,14) = (/&
 & 5.6904e-01_jprb,1.1121e+00_jprb,1.1143e+00_jprb,8.4762e-01_jprb,2.7004e-01_jprb/)  
kbo( :, 4,58,14) = (/&
 & 1.0164e+00_jprb,1.8625e+00_jprb,1.8634e+00_jprb,1.4242e+00_jprb,3.4514e-01_jprb/)  
kbo( :, 5,58,14) = (/&
 & 1.6772e+00_jprb,2.8815e+00_jprb,2.8885e+00_jprb,2.2182e+00_jprb,4.5564e-01_jprb/)  
kbo( :, 1,59,14) = (/&
 & 1.2131e-01_jprb,2.6518e-01_jprb,2.6089e-01_jprb,1.9393e-01_jprb,1.7441e-01_jprb/)  
kbo( :, 2,59,14) = (/&
 & 2.6626e-01_jprb,5.5782e-01_jprb,5.5852e-01_jprb,4.1787e-01_jprb,2.3461e-01_jprb/)  
kbo( :, 3,59,14) = (/&
 & 5.2659e-01_jprb,1.0377e+00_jprb,1.0403e+00_jprb,7.9028e-01_jprb,3.0633e-01_jprb/)  
kbo( :, 4,59,14) = (/&
 & 9.5064e-01_jprb,1.7566e+00_jprb,1.7573e+00_jprb,1.3429e+00_jprb,3.9674e-01_jprb/)  
kbo( :, 5,59,14) = (/&
 & 1.5830e+00_jprb,2.7404e+00_jprb,2.7474e+00_jprb,2.1087e+00_jprb,5.2021e-01_jprb/)  
kbo( :, 1,13,15) = (/&
 & 3.2244e+00_jprb,2.5409e+00_jprb,3.1328e+00_jprb,4.6712e+00_jprb,1.1048e+01_jprb/)  
kbo( :, 2,13,15) = (/&
 & 4.5398e+00_jprb,3.6057e+00_jprb,4.5237e+00_jprb,6.7554e+00_jprb,1.1523e+01_jprb/)  
kbo( :, 3,13,15) = (/&
 & 6.0837e+00_jprb,4.8732e+00_jprb,6.1887e+00_jprb,9.2622e+00_jprb,1.3154e+01_jprb/)  
kbo( :, 4,13,15) = (/&
 & 7.8628e+00_jprb,6.3217e+00_jprb,8.1422e+00_jprb,1.2196e+01_jprb,1.6296e+01_jprb/)  
kbo( :, 5,13,15) = (/&
 & 9.8525e+00_jprb,7.9653e+00_jprb,1.0472e+01_jprb,1.5686e+01_jprb,2.0959e+01_jprb/)  
kbo( :, 1,14,15) = (/&
 & 3.5755e+00_jprb,2.8779e+00_jprb,3.4519e+00_jprb,5.1028e+00_jprb,1.0373e+01_jprb/)  
kbo( :, 2,14,15) = (/&
 & 5.0524e+00_jprb,4.1250e+00_jprb,4.9883e+00_jprb,7.3878e+00_jprb,1.1513e+01_jprb/)  
kbo( :, 3,14,15) = (/&
 & 6.8346e+00_jprb,5.5984e+00_jprb,6.8212e+00_jprb,1.0151e+01_jprb,1.3855e+01_jprb/)  
kbo( :, 4,14,15) = (/&
 & 8.9000e+00_jprb,7.2723e+00_jprb,8.9537e+00_jprb,1.3379e+01_jprb,1.7871e+01_jprb/)  
kbo( :, 5,14,15) = (/&
 & 1.1265e+01_jprb,9.1701e+00_jprb,1.1497e+01_jprb,1.7206e+01_jprb,2.2981e+01_jprb/)  
kbo( :, 1,15,15) = (/&
 & 4.0824e+00_jprb,3.3435e+00_jprb,3.8164e+00_jprb,5.5870e+00_jprb,9.5637e+00_jprb/)  
kbo( :, 2,15,15) = (/&
 & 5.7577e+00_jprb,4.7850e+00_jprb,5.5076e+00_jprb,8.0842e+00_jprb,1.1461e+01_jprb/)  
kbo( :, 3,15,15) = (/&
 & 7.8213e+00_jprb,6.5007e+00_jprb,7.5362e+00_jprb,1.1097e+01_jprb,1.4826e+01_jprb/)  
kbo( :, 4,15,15) = (/&
 & 1.0256e+01_jprb,8.4593e+00_jprb,9.9114e+00_jprb,1.4655e+01_jprb,1.9572e+01_jprb/)  
kbo( :, 5,15,15) = (/&
 & 1.3032e+01_jprb,1.0687e+01_jprb,1.2684e+01_jprb,1.8793e+01_jprb,2.5099e+01_jprb/)  
kbo( :, 1,16,15) = (/&
 & 4.7372e+00_jprb,3.9270e+00_jprb,4.2463e+00_jprb,6.1221e+00_jprb,9.0976e+00_jprb/)  
kbo( :, 2,16,15) = (/&
 & 6.6436e+00_jprb,5.5787e+00_jprb,6.1045e+00_jprb,8.8126e+00_jprb,1.1843e+01_jprb/)  
kbo( :, 3,16,15) = (/&
 & 9.0517e+00_jprb,7.5797e+00_jprb,8.3542e+00_jprb,1.2092e+01_jprb,1.6147e+01_jprb/)  
kbo( :, 4,16,15) = (/&
 & 1.1879e+01_jprb,9.9008e+00_jprb,1.1023e+01_jprb,1.5960e+01_jprb,2.1309e+01_jprb/)  
kbo( :, 5,16,15) = (/&
 & 1.5093e+01_jprb,1.2519e+01_jprb,1.4078e+01_jprb,2.0387e+01_jprb,2.7221e+01_jprb/)  
kbo( :, 1,17,15) = (/&
 & 5.5197e+00_jprb,4.6160e+00_jprb,4.7418e+00_jprb,6.6773e+00_jprb,9.2205e+00_jprb/)  
kbo( :, 2,17,15) = (/&
 & 7.7119e+00_jprb,6.5019e+00_jprb,6.7774e+00_jprb,9.5358e+00_jprb,1.2727e+01_jprb/)  
kbo( :, 3,17,15) = (/&
 & 1.0467e+01_jprb,8.8388e+00_jprb,9.2742e+00_jprb,1.3058e+01_jprb,1.7430e+01_jprb/)  
kbo( :, 4,17,15) = (/&
 & 1.3720e+01_jprb,1.1553e+01_jprb,1.2244e+01_jprb,1.7227e+01_jprb,2.2998e+01_jprb/)  
kbo( :, 5,17,15) = (/&
 & 1.7413e+01_jprb,1.4594e+01_jprb,1.5673e+01_jprb,2.2047e+01_jprb,2.9433e+01_jprb/)  
kbo( :, 1,18,15) = (/&
 & 6.4274e+00_jprb,5.4111e+00_jprb,5.3034e+00_jprb,7.2350e+00_jprb,9.7622e+00_jprb/)  
kbo( :, 2,18,15) = (/&
 & 8.9573e+00_jprb,7.5807e+00_jprb,7.5479e+00_jprb,1.0273e+01_jprb,1.3710e+01_jprb/)  
kbo( :, 3,18,15) = (/&
 & 1.2111e+01_jprb,1.0258e+01_jprb,1.0321e+01_jprb,1.4006e+01_jprb,1.8696e+01_jprb/)  

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


SUBROUTINE part35

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


kbo( :, 4,18,15) = (/&
 & 1.5845e+01_jprb,1.3386e+01_jprb,1.3622e+01_jprb,1.8470e+01_jprb,2.4650e+01_jprb/)  
kbo( :, 5,18,15) = (/&
 & 2.0084e+01_jprb,1.6890e+01_jprb,1.7434e+01_jprb,2.3673e+01_jprb,3.1599e+01_jprb/)  
kbo( :, 1,19,15) = (/&
 & 7.5164e+00_jprb,6.3134e+00_jprb,5.9395e+00_jprb,7.8093e+00_jprb,1.0475e+01_jprb/)  
kbo( :, 2,19,15) = (/&
 & 1.0441e+01_jprb,8.8014e+00_jprb,8.4278e+00_jprb,1.1035e+01_jprb,1.4729e+01_jprb/)  
kbo( :, 3,19,15) = (/&
 & 1.4043e+01_jprb,1.1861e+01_jprb,1.1513e+01_jprb,1.4988e+01_jprb,2.0004e+01_jprb/)  
kbo( :, 4,19,15) = (/&
 & 1.8322e+01_jprb,1.5433e+01_jprb,1.5177e+01_jprb,1.9715e+01_jprb,2.6318e+01_jprb/)  
kbo( :, 5,19,15) = (/&
 & 2.3146e+01_jprb,1.9466e+01_jprb,1.9384e+01_jprb,2.5255e+01_jprb,3.3709e+01_jprb/)  
kbo( :, 1,20,15) = (/&
 & 8.8455e+00_jprb,7.4066e+00_jprb,6.7186e+00_jprb,8.4558e+00_jprb,1.1343e+01_jprb/)  
kbo( :, 2,20,15) = (/&
 & 1.2219e+01_jprb,1.0275e+01_jprb,9.4871e+00_jprb,1.1882e+01_jprb,1.5858e+01_jprb/)  
kbo( :, 3,20,15) = (/&
 & 1.6346e+01_jprb,1.3763e+01_jprb,1.2931e+01_jprb,1.6095e+01_jprb,2.1479e+01_jprb/)  
kbo( :, 4,20,15) = (/&
 & 2.1206e+01_jprb,1.7855e+01_jprb,1.6990e+01_jprb,2.1127e+01_jprb,2.8198e+01_jprb/)  
kbo( :, 5,20,15) = (/&
 & 2.6661e+01_jprb,2.2435e+01_jprb,2.1640e+01_jprb,2.6969e+01_jprb,3.5995e+01_jprb/)  
kbo( :, 1,21,15) = (/&
 & 1.0378e+01_jprb,8.6731e+00_jprb,7.6340e+00_jprb,9.1349e+00_jprb,1.2281e+01_jprb/)  
kbo( :, 2,21,15) = (/&
 & 1.4246e+01_jprb,1.1959e+01_jprb,1.0712e+01_jprb,1.2780e+01_jprb,1.7040e+01_jprb/)  
kbo( :, 3,21,15) = (/&
 & 1.8940e+01_jprb,1.5929e+01_jprb,1.4528e+01_jprb,1.7265e+01_jprb,2.3018e+01_jprb/)  
kbo( :, 4,21,15) = (/&
 & 2.4416e+01_jprb,2.0563e+01_jprb,1.9019e+01_jprb,2.2602e+01_jprb,3.0124e+01_jprb/)  
kbo( :, 5,21,15) = (/&
 & 3.0523e+01_jprb,2.5747e+01_jprb,2.4135e+01_jprb,2.8712e+01_jprb,3.8248e+01_jprb/)  
kbo( :, 1,22,15) = (/&
 & 1.2355e+01_jprb,1.0324e+01_jprb,8.9103e+00_jprb,1.0132e+01_jprb,1.3532e+01_jprb/)  
kbo( :, 2,22,15) = (/&
 & 1.6827e+01_jprb,1.4110e+01_jprb,1.2397e+01_jprb,1.4085e+01_jprb,1.8635e+01_jprb/)  
kbo( :, 3,22,15) = (/&
 & 2.2180e+01_jprb,1.8653e+01_jprb,1.6659e+01_jprb,1.8921e+01_jprb,2.5003e+01_jprb/)  
kbo( :, 4,22,15) = (/&
 & 2.8311e+01_jprb,2.3905e+01_jprb,2.1641e+01_jprb,2.4584e+01_jprb,3.2472e+01_jprb/)  
kbo( :, 5,22,15) = (/&
 & 3.5149e+01_jprb,2.9738e+01_jprb,2.7250e+01_jprb,3.1004e+01_jprb,4.0987e+01_jprb/)  
kbo( :, 1,23,15) = (/&
 & 1.4605e+01_jprb,1.2205e+01_jprb,1.0445e+01_jprb,1.1291e+01_jprb,1.4871e+01_jprb/)  
kbo( :, 2,23,15) = (/&
 & 1.9716e+01_jprb,1.6539e+01_jprb,1.4376e+01_jprb,1.5566e+01_jprb,2.0310e+01_jprb/)  
kbo( :, 3,23,15) = (/&
 & 2.5726e+01_jprb,2.1683e+01_jprb,1.9115e+01_jprb,2.0736e+01_jprb,2.6995e+01_jprb/)  
kbo( :, 4,23,15) = (/&
 & 3.2572e+01_jprb,2.7566e+01_jprb,2.4581e+01_jprb,2.6716e+01_jprb,3.4786e+01_jprb/)  
kbo( :, 5,23,15) = (/&
 & 4.0123e+01_jprb,3.4080e+01_jprb,3.0686e+01_jprb,3.3457e+01_jprb,4.3686e+01_jprb/)  
kbo( :, 1,24,15) = (/&
 & 1.7134e+01_jprb,1.4330e+01_jprb,1.2237e+01_jprb,1.2592e+01_jprb,1.6241e+01_jprb/)  
kbo( :, 2,24,15) = (/&
 & 2.2882e+01_jprb,1.9252e+01_jprb,1.6642e+01_jprb,1.7193e+01_jprb,2.2035e+01_jprb/)  
kbo( :, 3,24,15) = (/&
 & 2.9584e+01_jprb,2.5005e+01_jprb,2.1866e+01_jprb,2.2682e+01_jprb,2.9023e+01_jprb/)  
kbo( :, 4,24,15) = (/&
 & 3.7130e+01_jprb,3.1556e+01_jprb,2.7836e+01_jprb,2.8990e+01_jprb,3.7154e+01_jprb/)  
kbo( :, 5,24,15) = (/&
 & 4.5388e+01_jprb,3.8713e+01_jprb,3.4446e+01_jprb,3.6104e+01_jprb,4.6377e+01_jprb/)  
kbo( :, 1,25,15) = (/&
 & 1.9927e+01_jprb,1.6707e+01_jprb,1.4288e+01_jprb,1.4051e+01_jprb,1.7699e+01_jprb/)  
kbo( :, 2,25,15) = (/&
 & 2.6343e+01_jprb,2.2217e+01_jprb,1.9188e+01_jprb,1.8973e+01_jprb,2.3814e+01_jprb/)  
kbo( :, 3,25,15) = (/&
 & 3.3724e+01_jprb,2.8620e+01_jprb,2.4897e+01_jprb,2.4764e+01_jprb,3.1106e+01_jprb/)  
kbo( :, 4,25,15) = (/&
 & 4.1952e+01_jprb,3.5794e+01_jprb,3.1378e+01_jprb,3.1440e+01_jprb,3.9572e+01_jprb/)  
kbo( :, 5,25,15) = (/&
 & 5.0891e+01_jprb,4.3587e+01_jprb,3.8479e+01_jprb,3.8878e+01_jprb,4.9030e+01_jprb/)  
kbo( :, 1,26,15) = (/&
 & 2.3026e+01_jprb,1.9365e+01_jprb,1.6616e+01_jprb,1.5692e+01_jprb,1.9320e+01_jprb/)  
kbo( :, 2,26,15) = (/&
 & 3.0129e+01_jprb,2.5491e+01_jprb,2.2032e+01_jprb,2.0944e+01_jprb,2.5726e+01_jprb/)  
kbo( :, 3,26,15) = (/&
 & 3.8188e+01_jprb,3.2536e+01_jprb,2.8266e+01_jprb,2.7089e+01_jprb,3.3354e+01_jprb/)  
kbo( :, 4,26,15) = (/&
 & 4.7076e+01_jprb,4.0316e+01_jprb,3.5238e+01_jprb,3.4113e+01_jprb,4.2106e+01_jprb/)  
kbo( :, 5,26,15) = (/&
 & 5.6691e+01_jprb,4.8702e+01_jprb,4.2828e+01_jprb,4.1890e+01_jprb,5.1865e+01_jprb/)  
kbo( :, 1,27,15) = (/&
 & 2.6319e+01_jprb,2.2209e+01_jprb,1.9103e+01_jprb,1.7475e+01_jprb,2.1047e+01_jprb/)  
kbo( :, 2,27,15) = (/&
 & 3.4077e+01_jprb,2.8961e+01_jprb,2.5047e+01_jprb,2.3066e+01_jprb,2.7740e+01_jprb/)  
kbo( :, 3,27,15) = (/&
 & 4.2766e+01_jprb,3.6599e+01_jprb,3.1799e+01_jprb,2.9545e+01_jprb,3.5624e+01_jprb/)  
kbo( :, 4,27,15) = (/&
 & 5.2311e+01_jprb,4.4949e+01_jprb,3.9254e+01_jprb,3.6881e+01_jprb,4.4625e+01_jprb/)  
kbo( :, 5,27,15) = (/&
 & 6.2535e+01_jprb,5.3903e+01_jprb,4.7276e+01_jprb,4.4959e+01_jprb,5.4744e+01_jprb/)  
kbo( :, 1,28,15) = (/&
 & 2.9739e+01_jprb,2.5212e+01_jprb,2.1725e+01_jprb,1.9370e+01_jprb,2.2823e+01_jprb/)  
kbo( :, 2,28,15) = (/&
 & 3.8111e+01_jprb,3.2556e+01_jprb,2.8178e+01_jprb,2.5312e+01_jprb,2.9805e+01_jprb/)  
kbo( :, 3,28,15) = (/&
 & 4.7442e+01_jprb,4.0758e+01_jprb,3.5447e+01_jprb,3.2130e+01_jprb,3.7952e+01_jprb/)  
kbo( :, 4,28,15) = (/&
 & 5.7581e+01_jprb,4.9637e+01_jprb,4.3359e+01_jprb,3.9780e+01_jprb,4.7241e+01_jprb/)  
kbo( :, 5,28,15) = (/&
 & 6.8350e+01_jprb,5.9110e+01_jprb,5.1790e+01_jprb,4.8135e+01_jprb,5.7711e+01_jprb/)  
kbo( :, 1,29,15) = (/&
 & 3.3289e+01_jprb,2.8377e+01_jprb,2.4485e+01_jprb,2.1425e+01_jprb,2.4625e+01_jprb/)  
kbo( :, 2,29,15) = (/&
 & 4.2270e+01_jprb,3.6277e+01_jprb,3.1445e+01_jprb,2.7695e+01_jprb,3.1898e+01_jprb/)  
kbo( :, 3,29,15) = (/&
 & 5.2200e+01_jprb,4.5001e+01_jprb,3.9165e+01_jprb,3.4833e+01_jprb,4.0336e+01_jprb/)  
kbo( :, 4,29,15) = (/&
 & 6.2884e+01_jprb,5.4377e+01_jprb,4.7526e+01_jprb,4.2792e+01_jprb,4.9976e+01_jprb/)  
kbo( :, 5,29,15) = (/&
 & 7.4157e+01_jprb,6.4312e+01_jprb,5.6343e+01_jprb,5.1436e+01_jprb,6.0842e+01_jprb/)  
kbo( :, 1,30,15) = (/&
 & 3.6922e+01_jprb,3.1637e+01_jprb,2.7336e+01_jprb,2.3566e+01_jprb,2.6436e+01_jprb/)  
kbo( :, 2,30,15) = (/&
 & 4.6484e+01_jprb,4.0046e+01_jprb,3.4764e+01_jprb,3.0148e+01_jprb,3.4000e+01_jprb/)  
kbo( :, 3,30,15) = (/&
 & 5.6941e+01_jprb,4.9235e+01_jprb,4.2907e+01_jprb,3.7604e+01_jprb,4.2767e+01_jprb/)  
kbo( :, 4,30,15) = (/&
 & 6.8119e+01_jprb,5.9074e+01_jprb,5.1660e+01_jprb,4.5840e+01_jprb,5.2778e+01_jprb/)  
kbo( :, 5,30,15) = (/&
 & 7.9816e+01_jprb,6.9391e+01_jprb,6.0797e+01_jprb,5.4746e+01_jprb,6.4070e+01_jprb/)  
kbo( :, 1,31,15) = (/&
 & 4.0648e+01_jprb,3.4989e+01_jprb,3.0276e+01_jprb,2.5790e+01_jprb,2.8253e+01_jprb/)  
kbo( :, 2,31,15) = (/&
 & 5.0739e+01_jprb,4.3869e+01_jprb,3.8136e+01_jprb,3.2693e+01_jprb,3.6176e+01_jprb/)  
kbo( :, 3,31,15) = (/&
 & 6.1698e+01_jprb,5.3493e+01_jprb,4.6669e+01_jprb,4.0453e+01_jprb,4.5327e+01_jprb/)  
kbo( :, 4,31,15) = (/&
 & 7.3307e+01_jprb,6.3725e+01_jprb,5.5765e+01_jprb,4.8944e+01_jprb,5.5745e+01_jprb/)  
kbo( :, 5,31,15) = (/&
 & 8.5379e+01_jprb,7.4384e+01_jprb,6.5189e+01_jprb,5.8116e+01_jprb,6.7439e+01_jprb/)  
kbo( :, 1,32,15) = (/&
 & 4.4430e+01_jprb,3.8384e+01_jprb,3.3279e+01_jprb,2.8093e+01_jprb,3.0198e+01_jprb/)  
kbo( :, 2,32,15) = (/&
 & 5.5010e+01_jprb,4.7713e+01_jprb,4.1521e+01_jprb,3.5304e+01_jprb,3.8486e+01_jprb/)  
kbo( :, 3,32,15) = (/&
 & 6.6406e+01_jprb,5.7714e+01_jprb,5.0403e+01_jprb,4.3340e+01_jprb,4.8019e+01_jprb/)  
kbo( :, 4,32,15) = (/&
 & 7.8394e+01_jprb,6.8294e+01_jprb,5.9802e+01_jprb,5.2093e+01_jprb,5.8861e+01_jprb/)  
kbo( :, 5,32,15) = (/&
 & 9.0789e+01_jprb,7.9248e+01_jprb,6.9496e+01_jprb,6.1520e+01_jprb,7.0971e+01_jprb/)  
kbo( :, 1,33,15) = (/&
 & 4.8242e+01_jprb,4.1814e+01_jprb,3.6311e+01_jprb,3.0445e+01_jprb,3.2261e+01_jprb/)  
kbo( :, 2,33,15) = (/&
 & 5.9259e+01_jprb,5.1534e+01_jprb,4.4898e+01_jprb,3.7953e+01_jprb,4.0933e+01_jprb/)  
kbo( :, 3,33,15) = (/&
 & 7.1044e+01_jprb,6.1877e+01_jprb,5.4099e+01_jprb,4.6243e+01_jprb,5.0861e+01_jprb/)  
kbo( :, 4,33,15) = (/&
 & 8.3385e+01_jprb,7.2754e+01_jprb,6.3738e+01_jprb,5.5225e+01_jprb,6.2072e+01_jprb/)  
kbo( :, 5,33,15) = (/&
 & 9.6014e+01_jprb,8.3965e+01_jprb,7.3665e+01_jprb,6.4932e+01_jprb,7.4660e+01_jprb/)  
kbo( :, 1,34,15) = (/&
 & 5.1672e+01_jprb,4.4907e+01_jprb,3.9052e+01_jprb,3.2559e+01_jprb,3.4150e+01_jprb/)  
kbo( :, 2,34,15) = (/&
 & 6.3066e+01_jprb,5.4942e+01_jprb,4.7932e+01_jprb,4.0320e+01_jprb,4.3137e+01_jprb/)  
kbo( :, 3,34,15) = (/&
 & 7.5181e+01_jprb,6.5586e+01_jprb,5.7376e+01_jprb,4.8848e+01_jprb,5.3416e+01_jprb/)  
kbo( :, 4,34,15) = (/&
 & 8.7786e+01_jprb,7.6718e+01_jprb,6.7237e+01_jprb,5.8022e+01_jprb,6.4986e+01_jprb/)  
kbo( :, 5,34,15) = (/&
 & 1.0062e+02_jprb,8.8122e+01_jprb,7.7322e+01_jprb,6.7972e+01_jprb,7.7968e+01_jprb/)  
kbo( :, 1,35,15) = (/&
 & 5.3974e+01_jprb,4.7010e+01_jprb,4.0914e+01_jprb,3.3953e+01_jprb,3.5284e+01_jprb/)  
kbo( :, 2,35,15) = (/&
 & 6.5632e+01_jprb,5.7261e+01_jprb,4.9986e+01_jprb,4.1880e+01_jprb,4.4477e+01_jprb/)  
kbo( :, 3,35,15) = (/&
 & 7.7983e+01_jprb,6.8108e+01_jprb,5.9607e+01_jprb,5.0554e+01_jprb,5.4966e+01_jprb/)  
kbo( :, 4,35,15) = (/&
 & 9.0774e+01_jprb,7.9423e+01_jprb,6.9615e+01_jprb,5.9856e+01_jprb,6.6747e+01_jprb/)  
kbo( :, 5,35,15) = (/&
 & 1.0376e+02_jprb,9.0958e+01_jprb,7.9827e+01_jprb,6.9953e+01_jprb,7.9975e+01_jprb/)  
kbo( :, 1,36,15) = (/&
 & 5.4952e+01_jprb,4.7928e+01_jprb,4.1728e+01_jprb,3.4482e+01_jprb,3.5497e+01_jprb/)  
kbo( :, 2,36,15) = (/&
 & 6.6748e+01_jprb,5.8304e+01_jprb,5.0900e+01_jprb,4.2469e+01_jprb,4.4743e+01_jprb/)  
kbo( :, 3,36,15) = (/&
 & 7.9237e+01_jprb,6.9268e+01_jprb,6.0630e+01_jprb,5.1203e+01_jprb,5.5299e+01_jprb/)  
kbo( :, 4,36,15) = (/&
 & 9.2160e+01_jprb,8.0690e+01_jprb,7.0740e+01_jprb,6.0560e+01_jprb,6.7150e+01_jprb/)  
kbo( :, 5,36,15) = (/&
 & 1.0527e+02_jprb,9.2347e+01_jprb,8.1033e+01_jprb,7.0691e+01_jprb,8.0445e+01_jprb/)  
kbo( :, 1,37,15) = (/&
 & 5.4077e+01_jprb,4.7203e+01_jprb,4.1090e+01_jprb,3.3816e+01_jprb,3.4402e+01_jprb/)  
kbo( :, 2,37,15) = (/&
 & 6.5871e+01_jprb,5.7581e+01_jprb,5.0256e+01_jprb,4.1730e+01_jprb,4.3504e+01_jprb/)  
kbo( :, 3,37,15) = (/&
 & 7.8394e+01_jprb,6.8564e+01_jprb,6.0003e+01_jprb,5.0406e+01_jprb,5.3919e+01_jprb/)  
kbo( :, 4,37,15) = (/&
 & 9.1373e+01_jprb,8.0024e+01_jprb,7.0155e+01_jprb,5.9711e+01_jprb,6.5630e+01_jprb/)  
kbo( :, 5,37,15) = (/&
 & 1.0457e+02_jprb,9.1743e+01_jprb,8.0502e+01_jprb,6.9769e+01_jprb,7.8764e+01_jprb/)  
kbo( :, 1,38,15) = (/&
 & 5.2998e+01_jprb,4.6292e+01_jprb,4.0284e+01_jprb,3.3047e+01_jprb,3.3256e+01_jprb/)  
kbo( :, 2,38,15) = (/&
 & 6.4758e+01_jprb,5.6646e+01_jprb,4.9430e+01_jprb,4.0867e+01_jprb,4.2193e+01_jprb/)  
kbo( :, 3,38,15) = (/&
 & 7.7286e+01_jprb,6.7628e+01_jprb,5.9170e+01_jprb,4.9481e+01_jprb,5.2447e+01_jprb/)  
kbo( :, 4,38,15) = (/&
 & 9.0295e+01_jprb,7.9101e+01_jprb,6.9339e+01_jprb,5.8727e+01_jprb,6.4002e+01_jprb/)  
kbo( :, 5,38,15) = (/&
 & 1.0355e+02_jprb,9.0878e+01_jprb,7.9733e+01_jprb,6.8695e+01_jprb,7.6964e+01_jprb/)  
kbo( :, 1,39,15) = (/&
 & 5.1838e+01_jprb,4.5309e+01_jprb,3.9414e+01_jprb,3.2253e+01_jprb,3.2133e+01_jprb/)  
kbo( :, 2,39,15) = (/&
 & 6.3550e+01_jprb,5.5622e+01_jprb,4.8527e+01_jprb,3.9972e+01_jprb,4.0905e+01_jprb/)  
kbo( :, 3,39,15) = (/&
 & 7.6056e+01_jprb,6.6591e+01_jprb,5.8243e+01_jprb,4.8504e+01_jprb,5.0987e+01_jprb/)  
kbo( :, 4,39,15) = (/&
 & 8.9075e+01_jprb,7.8055e+01_jprb,6.8422e+01_jprb,5.7684e+01_jprb,6.2386e+01_jprb/)  
kbo( :, 5,39,15) = (/&
 & 1.0239e+02_jprb,8.9867e+01_jprb,7.8837e+01_jprb,6.7576e+01_jprb,7.5172e+01_jprb/)  
kbo( :, 1,40,15) = (/&
 & 4.9471e+01_jprb,4.3246e+01_jprb,3.7591e+01_jprb,3.0698e+01_jprb,3.0218e+01_jprb/)  
kbo( :, 2,40,15) = (/&
 & 6.1032e+01_jprb,5.3431e+01_jprb,4.6594e+01_jprb,3.8229e+01_jprb,3.8702e+01_jprb/)  
kbo( :, 3,40,15) = (/&
 & 7.3417e+01_jprb,6.4309e+01_jprb,5.6223e+01_jprb,4.6591e+01_jprb,4.8455e+01_jprb/)  
kbo( :, 4,40,15) = (/&
 & 8.6398e+01_jprb,7.5721e+01_jprb,6.6340e+01_jprb,5.5655e+01_jprb,5.9567e+01_jprb/)  
kbo( :, 5,40,15) = (/&
 & 9.9725e+01_jprb,8.7493e+01_jprb,7.6754e+01_jprb,6.5366e+01_jprb,7.2010e+01_jprb/)  
kbo( :, 1,41,15) = (/&
 & 4.6940e+01_jprb,4.1029e+01_jprb,3.5646e+01_jprb,2.9054e+01_jprb,2.8252e+01_jprb/)  
kbo( :, 2,41,15) = (/&
 & 5.8303e+01_jprb,5.1061e+01_jprb,4.4488e+01_jprb,3.6382e+01_jprb,3.6429e+01_jprb/)  
kbo( :, 3,41,15) = (/&
 & 7.0545e+01_jprb,6.1809e+01_jprb,5.4014e+01_jprb,4.4569e+01_jprb,4.5866e+01_jprb/)  
kbo( :, 4,41,15) = (/&
 & 8.3446e+01_jprb,7.3140e+01_jprb,6.4053e+01_jprb,5.3489e+01_jprb,5.6653e+01_jprb/)  
kbo( :, 5,41,15) = (/&
 & 9.6762e+01_jprb,8.4890e+01_jprb,7.4453e+01_jprb,6.3028e+01_jprb,6.8762e+01_jprb/)  
kbo( :, 1,42,15) = (/&
 & 4.4400e+01_jprb,3.8808e+01_jprb,3.3695e+01_jprb,2.7433e+01_jprb,2.6367e+01_jprb/)  
kbo( :, 2,42,15) = (/&
 & 5.5548e+01_jprb,4.8653e+01_jprb,4.2370e+01_jprb,3.4558e+01_jprb,3.4231e+01_jprb/)  
kbo( :, 3,42,15) = (/&
 & 6.7639e+01_jprb,5.9264e+01_jprb,5.1765e+01_jprb,4.2548e+01_jprb,4.3345e+01_jprb/)  
kbo( :, 4,42,15) = (/&
 & 8.0422e+01_jprb,7.0505e+01_jprb,6.1708e+01_jprb,5.1309e+01_jprb,5.3802e+01_jprb/)  
kbo( :, 5,42,15) = (/&
 & 9.3690e+01_jprb,8.2187e+01_jprb,7.2071e+01_jprb,6.0692e+01_jprb,6.5582e+01_jprb/)  
kbo( :, 1,43,15) = (/&
 & 4.1299e+01_jprb,3.6086e+01_jprb,3.1303e+01_jprb,2.5481e+01_jprb,2.4168e+01_jprb/)  
kbo( :, 2,43,15) = (/&
 & 5.2146e+01_jprb,4.5668e+01_jprb,3.9733e+01_jprb,3.2349e+01_jprb,3.1657e+01_jprb/)  
kbo( :, 3,43,15) = (/&
 & 6.3997e+01_jprb,5.6104e+01_jprb,4.8948e+01_jprb,4.0078e+01_jprb,4.0382e+01_jprb/)  
kbo( :, 4,43,15) = (/&
 & 7.6621e+01_jprb,6.7188e+01_jprb,5.8773e+01_jprb,4.8617e+01_jprb,5.0407e+01_jprb/)  
kbo( :, 5,43,15) = (/&
 & 8.9810e+01_jprb,7.8771e+01_jprb,6.9043e+01_jprb,5.7825e+01_jprb,6.1798e+01_jprb/)  
kbo( :, 1,44,15) = (/&
 & 3.8013e+01_jprb,3.3205e+01_jprb,2.8794e+01_jprb,2.3425e+01_jprb,2.1911e+01_jprb/)  
kbo( :, 2,44,15) = (/&
 & 4.8506e+01_jprb,4.2466e+01_jprb,3.6916e+01_jprb,3.0017e+01_jprb,2.8999e+01_jprb/)  
kbo( :, 3,44,15) = (/&
 & 6.0070e+01_jprb,5.2664e+01_jprb,4.5908e+01_jprb,3.7464e+01_jprb,3.7309e+01_jprb/)  
kbo( :, 4,44,15) = (/&
 & 7.2479e+01_jprb,6.3560e+01_jprb,5.5564e+01_jprb,4.5749e+01_jprb,4.6877e+01_jprb/)  
kbo( :, 5,44,15) = (/&
 & 8.5539e+01_jprb,7.5028e+01_jprb,6.5726e+01_jprb,5.4770e+01_jprb,5.7838e+01_jprb/)  
kbo( :, 1,45,15) = (/&
 & 3.4808e+01_jprb,3.0429e+01_jprb,2.6372e+01_jprb,2.1438e+01_jprb,1.9764e+01_jprb/)  
kbo( :, 2,45,15) = (/&
 & 4.4949e+01_jprb,3.9329e+01_jprb,3.4164e+01_jprb,2.7759e+01_jprb,2.6477e+01_jprb/)  
kbo( :, 3,45,15) = (/&
 & 5.6198e+01_jprb,4.9271e+01_jprb,4.2916e+01_jprb,3.4929e+01_jprb,3.4365e+01_jprb/)  
kbo( :, 4,45,15) = (/&
 & 6.8372e+01_jprb,5.9966e+01_jprb,5.2371e+01_jprb,4.2948e+01_jprb,4.3515e+01_jprb/)  
kbo( :, 5,45,15) = (/&
 & 8.1258e+01_jprb,7.1280e+01_jprb,6.2402e+01_jprb,5.1752e+01_jprb,5.3999e+01_jprb/)  
kbo( :, 1,46,15) = (/&
 & 3.1505e+01_jprb,2.7578e+01_jprb,2.3887e+01_jprb,1.9401e+01_jprb,1.7612e+01_jprb/)  
kbo( :, 2,46,15) = (/&
 & 4.1254e+01_jprb,3.6080e+01_jprb,3.1312e+01_jprb,2.5449e+01_jprb,2.3941e+01_jprb/)  
kbo( :, 3,46,15) = (/&
 & 5.2137e+01_jprb,4.5691e+01_jprb,3.9762e+01_jprb,3.2315e+01_jprb,3.1392e+01_jprb/)  
kbo( :, 4,46,15) = (/&
 & 6.4023e+01_jprb,5.6167e+01_jprb,4.8996e+01_jprb,4.0034e+01_jprb,4.0089e+01_jprb/)  
kbo( :, 5,46,15) = (/&
 & 7.6702e+01_jprb,6.7284e+01_jprb,5.8863e+01_jprb,4.8569e+01_jprb,5.0083e+01_jprb/)  
kbo( :, 1,47,15) = (/&
 & 2.7961e+01_jprb,2.4503e+01_jprb,2.1248e+01_jprb,1.7233e+01_jprb,1.5367e+01_jprb/)  
kbo( :, 2,47,15) = (/&
 & 3.7265e+01_jprb,3.2586e+01_jprb,2.8263e+01_jprb,2.2963e+01_jprb,2.1269e+01_jprb/)  
kbo( :, 3,47,15) = (/&
 & 4.7706e+01_jprb,4.1783e+01_jprb,3.6327e+01_jprb,2.9490e+01_jprb,2.8246e+01_jprb/)  

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


SUBROUTINE part36

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


kbo( :, 4,47,15) = (/&
 & 5.9232e+01_jprb,5.1960e+01_jprb,4.5284e+01_jprb,3.6873e+01_jprb,3.6445e+01_jprb/)  
kbo( :, 5,47,15) = (/&
 & 7.1624e+01_jprb,6.2836e+01_jprb,5.4930e+01_jprb,4.5104e+01_jprb,4.5902e+01_jprb/)  
kbo( :, 1,48,15) = (/&
 & 2.4583e+01_jprb,2.1589e+01_jprb,1.8762e+01_jprb,1.5191e+01_jprb,1.3292e+01_jprb/)  
kbo( :, 2,48,15) = (/&
 & 3.3426e+01_jprb,2.9268e+01_jprb,2.5357e+01_jprb,2.0590e+01_jprb,1.8769e+01_jprb/)  
kbo( :, 3,48,15) = (/&
 & 4.3425e+01_jprb,3.8016e+01_jprb,3.3009e+01_jprb,2.6800e+01_jprb,2.5307e+01_jprb/)  
kbo( :, 4,48,15) = (/&
 & 5.4549e+01_jprb,4.7838e+01_jprb,4.1652e+01_jprb,3.3842e+01_jprb,3.3001e+01_jprb/)  
kbo( :, 5,48,15) = (/&
 & 6.6636e+01_jprb,5.8472e+01_jprb,5.1042e+01_jprb,4.1740e+01_jprb,4.1948e+01_jprb/)  
kbo( :, 1,49,15) = (/&
 & 2.1421e+01_jprb,1.8843e+01_jprb,1.6440e+01_jprb,1.3266e+01_jprb,1.1366e+01_jprb/)  
kbo( :, 2,49,15) = (/&
 & 2.9765e+01_jprb,2.6085e+01_jprb,2.2608e+01_jprb,1.8340e+01_jprb,1.6436e+01_jprb/)  
kbo( :, 3,49,15) = (/&
 & 3.9312e+01_jprb,3.4398e+01_jprb,2.9848e+01_jprb,2.4239e+01_jprb,2.2553e+01_jprb/)  
kbo( :, 4,49,15) = (/&
 & 5.0006e+01_jprb,4.3828e+01_jprb,3.8123e+01_jprb,3.0941e+01_jprb,2.9764e+01_jprb/)  
kbo( :, 5,49,15) = (/&
 & 6.1741e+01_jprb,5.4182e+01_jprb,4.7244e+01_jprb,3.8502e+01_jprb,3.8207e+01_jprb/)  
kbo( :, 1,50,15) = (/&
 & 1.8647e+01_jprb,1.6457e+01_jprb,1.4418e+01_jprb,1.1591e+01_jprb,9.7268e+00_jprb/)  
kbo( :, 2,50,15) = (/&
 & 2.6492e+01_jprb,2.3254e+01_jprb,2.0184e+01_jprb,1.6354e+01_jprb,1.4411e+01_jprb/)  
kbo( :, 3,50,15) = (/&
 & 3.5615e+01_jprb,3.1176e+01_jprb,2.7033e+01_jprb,2.1940e+01_jprb,2.0122e+01_jprb/)  
kbo( :, 4,50,15) = (/&
 & 4.5887e+01_jprb,4.0194e+01_jprb,3.4925e+01_jprb,2.8335e+01_jprb,2.6904e+01_jprb/)  
kbo( :, 5,50,15) = (/&
 & 5.7262e+01_jprb,5.0235e+01_jprb,4.3773e+01_jprb,3.5576e+01_jprb,3.4879e+01_jprb/)  
kbo( :, 1,51,15) = (/&
 & 1.6143e+01_jprb,1.4306e+01_jprb,1.2586e+01_jprb,1.0093e+01_jprb,8.2870e+00_jprb/)  
kbo( :, 2,51,15) = (/&
 & 2.3475e+01_jprb,2.0646e+01_jprb,1.7965e+01_jprb,1.4527e+01_jprb,1.2580e+01_jprb/)  
kbo( :, 3,51,15) = (/&
 & 3.2173e+01_jprb,2.8191e+01_jprb,2.4427e+01_jprb,1.9818e+01_jprb,1.7912e+01_jprb/)  
kbo( :, 4,51,15) = (/&
 & 4.2029e+01_jprb,3.6799e+01_jprb,3.1946e+01_jprb,2.5931e+01_jprb,2.4302e+01_jprb/)  
kbo( :, 5,51,15) = (/&
 & 5.3021e+01_jprb,4.6505e+01_jprb,4.0477e+01_jprb,3.2858e+01_jprb,3.1825e+01_jprb/)  
kbo( :, 1,52,15) = (/&
 & 1.3849e+01_jprb,1.2323e+01_jprb,1.0901e+01_jprb,8.7257e+00_jprb,7.0030e+00_jprb/)  
kbo( :, 2,52,15) = (/&
 & 2.0656e+01_jprb,1.8194e+01_jprb,1.5897e+01_jprb,1.2810e+01_jprb,1.0879e+01_jprb/)  
kbo( :, 3,52,15) = (/&
 & 2.8881e+01_jprb,2.5328e+01_jprb,2.1965e+01_jprb,1.7806e+01_jprb,1.5846e+01_jprb/)  
kbo( :, 4,52,15) = (/&
 & 3.8328e+01_jprb,3.3546e+01_jprb,2.9106e+01_jprb,2.3622e+01_jprb,2.1850e+01_jprb/)  
kbo( :, 5,52,15) = (/&
 & 4.8918e+01_jprb,4.2880e+01_jprb,3.7289e+01_jprb,3.0246e+01_jprb,2.8936e+01_jprb/)  
kbo( :, 1,53,15) = (/&
 & 1.1740e+01_jprb,1.0506e+01_jprb,9.3420e+00_jprb,7.4730e+00_jprb,5.8524e+00_jprb/)  
kbo( :, 2,53,15) = (/&
 & 1.8002e+01_jprb,1.5914e+01_jprb,1.3956e+01_jprb,1.1210e+01_jprb,9.3278e+00_jprb/)  
kbo( :, 3,53,15) = (/&
 & 2.5731e+01_jprb,2.2607e+01_jprb,1.9634e+01_jprb,1.5897e+01_jprb,1.3918e+01_jprb/)  
kbo( :, 4,53,15) = (/&
 & 3.4758e+01_jprb,3.0444e+01_jprb,2.6393e+01_jprb,2.1412e+01_jprb,1.9532e+01_jprb/)  
kbo( :, 5,53,15) = (/&
 & 4.4940e+01_jprb,3.9367e+01_jprb,3.4201e+01_jprb,2.7742e+01_jprb,2.6213e+01_jprb/)  
kbo( :, 1,54,15) = (/&
 & 9.9823e+00_jprb,8.9835e+00_jprb,8.0433e+00_jprb,6.4217e+00_jprb,4.9233e+00_jprb/)  
kbo( :, 2,54,15) = (/&
 & 1.5743e+01_jprb,1.3968e+01_jprb,1.2300e+01_jprb,9.8589e+00_jprb,8.0425e+00_jprb/)  
kbo( :, 3,54,15) = (/&
 & 2.2999e+01_jprb,2.0231e+01_jprb,1.7622e+01_jprb,1.4237e+01_jprb,1.2265e+01_jprb/)  
kbo( :, 4,54,15) = (/&
 & 3.1619e+01_jprb,2.7721e+01_jprb,2.4021e+01_jprb,1.9481e+01_jprb,1.7533e+01_jprb/)  
kbo( :, 5,54,15) = (/&
 & 4.1422e+01_jprb,3.6269e+01_jprb,3.1486e+01_jprb,2.5548e+01_jprb,2.3860e+01_jprb/)  
kbo( :, 1,55,15) = (/&
 & 8.4600e+00_jprb,7.6587e+00_jprb,6.9105e+00_jprb,5.5064e+00_jprb,4.1393e+00_jprb/)  
kbo( :, 2,55,15) = (/&
 & 1.3741e+01_jprb,1.2235e+01_jprb,1.0828e+01_jprb,8.6641e+00_jprb,6.9310e+00_jprb/)  
kbo( :, 3,55,15) = (/&
 & 2.0525e+01_jprb,1.8089e+01_jprb,1.5809e+01_jprb,1.2733e+01_jprb,1.0785e+01_jprb/)  
kbo( :, 4,55,15) = (/&
 & 2.8733e+01_jprb,2.5211e+01_jprb,2.1862e+01_jprb,1.7718e+01_jprb,1.5733e+01_jprb/)  
kbo( :, 5,55,15) = (/&
 & 3.8167e+01_jprb,3.3414e+01_jprb,2.8994e+01_jprb,2.3523e+01_jprb,2.1717e+01_jprb/)  
kbo( :, 1,56,15) = (/&
 & 7.0942e+00_jprb,6.4705e+00_jprb,5.8843e+00_jprb,4.6820e+00_jprb,3.4600e+00_jprb/)  
kbo( :, 2,56,15) = (/&
 & 1.1888e+01_jprb,1.0638e+01_jprb,9.4563e+00_jprb,7.5636e+00_jprb,5.9306e+00_jprb/)  
kbo( :, 3,56,15) = (/&
 & 1.8195e+01_jprb,1.6084e+01_jprb,1.4104e+01_jprb,1.1328e+01_jprb,9.4258e+00_jprb/)  
kbo( :, 4,56,15) = (/&
 & 2.5965e+01_jprb,2.2816e+01_jprb,1.9813e+01_jprb,1.6042e+01_jprb,1.4044e+01_jprb/)  
kbo( :, 5,56,15) = (/&
 & 3.5031e+01_jprb,3.0686e+01_jprb,2.6607e+01_jprb,2.1582e+01_jprb,1.9682e+01_jprb/)  
kbo( :, 1,57,15) = (/&
 & 5.8809e+00_jprb,5.4073e+00_jprb,4.9520e+00_jprb,3.9358e+00_jprb,2.8765e+00_jprb/)  
kbo( :, 2,57,15) = (/&
 & 1.0188e+01_jprb,9.1644e+00_jprb,8.1997e+00_jprb,6.5476e+00_jprb,5.0356e+00_jprb/)  
kbo( :, 3,57,15) = (/&
 & 1.6011e+01_jprb,1.4204e+01_jprb,1.2504e+01_jprb,1.0022e+01_jprb,8.1887e+00_jprb/)  
kbo( :, 4,57,15) = (/&
 & 2.3331e+01_jprb,2.0526e+01_jprb,1.7871e+01_jprb,1.4443e+01_jprb,1.2452e+01_jprb/)  
kbo( :, 5,57,15) = (/&
 & 3.2013e+01_jprb,2.8066e+01_jprb,2.4321e+01_jprb,1.9722e+01_jprb,1.7763e+01_jprb/)  
kbo( :, 1,58,15) = (/&
 & 4.8592e+00_jprb,4.5120e+00_jprb,4.1533e+00_jprb,3.3050e+00_jprb,2.4069e+00_jprb/)  
kbo( :, 2,58,15) = (/&
 & 8.7235e+00_jprb,7.8898e+00_jprb,7.1098e+00_jprb,5.6659e+00_jprb,4.2880e+00_jprb/)  
kbo( :, 3,58,15) = (/&
 & 1.4093e+01_jprb,1.2543e+01_jprb,1.1091e+01_jprb,8.8788e+00_jprb,7.1312e+00_jprb/)  
kbo( :, 4,58,15) = (/&
 & 2.0969e+01_jprb,1.8473e+01_jprb,1.6137e+01_jprb,1.3004e+01_jprb,1.1037e+01_jprb/)  
kbo( :, 5,58,15) = (/&
 & 2.9256e+01_jprb,2.5669e+01_jprb,2.2254e+01_jprb,1.8039e+01_jprb,1.6041e+01_jprb/)  
kbo( :, 1,59,15) = (/&
 & 4.4860e+00_jprb,4.1832e+00_jprb,3.8589e+00_jprb,3.0732e+00_jprb,2.2588e+00_jprb/)  
kbo( :, 2,59,15) = (/&
 & 8.1764e+00_jprb,7.4157e+00_jprb,6.7019e+00_jprb,5.3375e+00_jprb,4.0381e+00_jprb/)  
kbo( :, 3,59,15) = (/&
 & 1.3363e+01_jprb,1.1913e+01_jprb,1.0553e+01_jprb,8.4437e+00_jprb,6.7583e+00_jprb/)  
kbo( :, 4,59,15) = (/&
 & 2.0059e+01_jprb,1.7690e+01_jprb,1.5474e+01_jprb,1.2453e+01_jprb,1.0517e+01_jprb/)  
kbo( :, 5,59,15) = (/&
 & 2.8188e+01_jprb,2.4740e+01_jprb,2.1460e+01_jprb,1.7388e+01_jprb,1.5382e+01_jprb/)  
kbo( :, 1,13,16) = (/&
 & 3.5240e+00_jprb,3.4508e+00_jprb,6.8957e+00_jprb,1.0310e+01_jprb,1.3810e+01_jprb/)  
kbo( :, 2,13,16) = (/&
 & 5.0188e+00_jprb,4.8884e+00_jprb,9.7668e+00_jprb,1.4606e+01_jprb,1.9563e+01_jprb/)  
kbo( :, 3,13,16) = (/&
 & 6.8636e+00_jprb,6.9963e+00_jprb,1.3983e+01_jprb,2.0917e+01_jprb,2.7996e+01_jprb/)  
kbo( :, 4,13,16) = (/&
 & 8.9983e+00_jprb,9.9231e+00_jprb,1.9821e+01_jprb,2.9657e+01_jprb,3.9702e+01_jprb/)  
kbo( :, 5,13,16) = (/&
 & 1.1391e+01_jprb,1.3448e+01_jprb,2.6873e+01_jprb,4.0197e+01_jprb,5.3821e+01_jprb/)  
kbo( :, 1,14,16) = (/&
 & 4.0865e+00_jprb,4.2627e+00_jprb,8.5157e+00_jprb,1.2737e+01_jprb,1.7061e+01_jprb/)  
kbo( :, 2,14,16) = (/&
 & 5.9152e+00_jprb,5.9770e+00_jprb,1.1941e+01_jprb,1.7861e+01_jprb,2.3919e+01_jprb/)  
kbo( :, 3,14,16) = (/&
 & 8.1116e+00_jprb,8.4946e+00_jprb,1.6974e+01_jprb,2.5393e+01_jprb,3.3994e+01_jprb/)  
kbo( :, 4,14,16) = (/&
 & 1.0667e+01_jprb,1.1982e+01_jprb,2.3941e+01_jprb,3.5820e+01_jprb,4.7947e+01_jprb/)  
kbo( :, 5,14,16) = (/&
 & 1.3570e+01_jprb,1.6166e+01_jprb,3.2293e+01_jprb,4.8328e+01_jprb,6.4679e+01_jprb/)  
kbo( :, 1,15,16) = (/&
 & 4.9205e+00_jprb,5.2381e+00_jprb,1.0467e+01_jprb,1.5657e+01_jprb,2.0962e+01_jprb/)  
kbo( :, 2,15,16) = (/&
 & 7.1107e+00_jprb,7.3251e+00_jprb,1.4636e+01_jprb,2.1892e+01_jprb,2.9314e+01_jprb/)  
kbo( :, 3,15,16) = (/&
 & 9.7657e+00_jprb,1.0319e+01_jprb,2.0625e+01_jprb,3.0857e+01_jprb,4.1307e+01_jprb/)  
kbo( :, 4,15,16) = (/&
 & 1.2863e+01_jprb,1.4348e+01_jprb,2.8667e+01_jprb,4.2902e+01_jprb,5.7415e+01_jprb/)  
kbo( :, 5,15,16) = (/&
 & 1.6377e+01_jprb,1.9245e+01_jprb,3.8440e+01_jprb,5.7530e+01_jprb,7.7014e+01_jprb/)  
kbo( :, 1,16,16) = (/&
 & 6.0019e+00_jprb,6.3755e+00_jprb,1.2742e+01_jprb,1.9060e+01_jprb,2.5511e+01_jprb/)  
kbo( :, 2,16,16) = (/&
 & 8.6719e+00_jprb,8.9601e+00_jprb,1.7905e+01_jprb,2.6782e+01_jprb,3.5858e+01_jprb/)  
kbo( :, 3,16,16) = (/&
 & 1.1897e+01_jprb,1.2494e+01_jprb,2.4965e+01_jprb,3.7351e+01_jprb,5.0005e+01_jprb/)  
kbo( :, 4,16,16) = (/&
 & 1.5664e+01_jprb,1.7033e+01_jprb,3.4039e+01_jprb,5.0943e+01_jprb,6.8160e+01_jprb/)  
kbo( :, 5,16,16) = (/&
 & 1.9931e+01_jprb,2.2609e+01_jprb,4.5144e+01_jprb,6.7604e+01_jprb,9.0384e+01_jprb/)  
kbo( :, 1,17,16) = (/&
 & 7.3859e+00_jprb,7.7004e+00_jprb,1.5389e+01_jprb,2.3023e+01_jprb,3.0816e+01_jprb/)  
kbo( :, 2,17,16) = (/&
 & 1.0640e+01_jprb,1.0863e+01_jprb,2.1706e+01_jprb,3.2470e+01_jprb,4.3467e+01_jprb/)  
kbo( :, 3,17,16) = (/&
 & 1.4563e+01_jprb,1.4992e+01_jprb,2.9958e+01_jprb,4.4824e+01_jprb,5.9991e+01_jprb/)  
kbo( :, 4,17,16) = (/&
 & 1.9138e+01_jprb,2.0152e+01_jprb,4.0219e+01_jprb,6.0189e+01_jprb,8.0517e+01_jprb/)  
kbo( :, 5,17,16) = (/&
 & 2.4286e+01_jprb,2.6459e+01_jprb,5.2448e+01_jprb,7.8504e+01_jprb,1.0501e+02_jprb/)  
kbo( :, 1,18,16) = (/&
 & 9.1226e+00_jprb,9.2597e+00_jprb,1.8491e+01_jprb,2.7668e+01_jprb,3.7034e+01_jprb/)  
kbo( :, 2,18,16) = (/&
 & 1.3090e+01_jprb,1.3038e+01_jprb,2.6008e+01_jprb,3.8923e+01_jprb,5.2083e+01_jprb/)  
kbo( :, 3,18,16) = (/&
 & 1.7870e+01_jprb,1.7862e+01_jprb,3.5545e+01_jprb,5.3199e+01_jprb,7.1167e+01_jprb/)  
kbo( :, 4,18,16) = (/&
 & 2.3384e+01_jprb,2.3802e+01_jprb,4.7105e+01_jprb,7.0494e+01_jprb,9.4316e+01_jprb/)  
kbo( :, 5,18,16) = (/&
 & 2.9603e+01_jprb,3.0959e+01_jprb,6.0617e+01_jprb,9.0761e+01_jprb,1.2137e+02_jprb/)  
kbo( :, 1,19,16) = (/&
 & 1.1267e+01_jprb,1.1103e+01_jprb,2.1975e+01_jprb,3.2891e+01_jprb,4.4000e+01_jprb/)  
kbo( :, 2,19,16) = (/&
 & 1.6108e+01_jprb,1.5588e+01_jprb,3.0737e+01_jprb,4.5998e+01_jprb,6.1538e+01_jprb/)  
kbo( :, 3,19,16) = (/&
 & 2.1880e+01_jprb,2.1226e+01_jprb,4.1603e+01_jprb,6.2286e+01_jprb,8.3284e+01_jprb/)  
kbo( :, 4,19,16) = (/&
 & 2.8546e+01_jprb,2.8063e+01_jprb,5.4555e+01_jprb,8.1653e+01_jprb,1.0920e+02_jprb/)  
kbo( :, 5,19,16) = (/&
 & 3.6015e+01_jprb,3.6209e+01_jprb,6.9418e+01_jprb,1.0398e+02_jprb,1.3897e+02_jprb/)  
kbo( :, 1,20,16) = (/&
 & 1.3993e+01_jprb,1.3379e+01_jprb,2.5920e+01_jprb,3.8804e+01_jprb,5.1896e+01_jprb/)  
kbo( :, 2,20,16) = (/&
 & 1.9857e+01_jprb,1.8711e+01_jprb,3.5970e+01_jprb,5.3858e+01_jprb,7.2020e+01_jprb/)  
kbo( :, 3,20,16) = (/&
 & 2.6849e+01_jprb,2.5309e+01_jprb,4.8236e+01_jprb,7.2221e+01_jprb,9.6564e+01_jprb/)  
kbo( :, 4,20,16) = (/&
 & 3.4854e+01_jprb,3.3204e+01_jprb,6.2605e+01_jprb,9.3754e+01_jprb,1.2532e+02_jprb/)  
kbo( :, 5,20,16) = (/&
 & 4.3828e+01_jprb,4.2464e+01_jprb,7.8932e+01_jprb,1.1822e+02_jprb,1.5801e+02_jprb/)  
kbo( :, 1,21,16) = (/&
 & 1.7315e+01_jprb,1.6114e+01_jprb,3.0129e+01_jprb,4.5115e+01_jprb,6.0314e+01_jprb/)  
kbo( :, 2,21,16) = (/&
 & 2.4393e+01_jprb,2.2395e+01_jprb,4.1483e+01_jprb,6.2116e+01_jprb,8.3040e+01_jprb/)  
kbo( :, 3,21,16) = (/&
 & 3.2776e+01_jprb,3.0091e+01_jprb,5.5119e+01_jprb,8.2559e+01_jprb,1.1033e+02_jprb/)  
kbo( :, 4,21,16) = (/&
 & 4.2294e+01_jprb,3.9176e+01_jprb,7.0924e+01_jprb,1.0622e+02_jprb,1.4195e+02_jprb/)  
kbo( :, 5,21,16) = (/&
 & 5.3038e+01_jprb,4.9692e+01_jprb,8.8908e+01_jprb,1.3317e+02_jprb,1.7794e+02_jprb/)  
kbo( :, 1,22,16) = (/&
 & 2.1825e+01_jprb,1.9779e+01_jprb,3.5248e+01_jprb,5.2796e+01_jprb,7.0550e+01_jprb/)  
kbo( :, 2,22,16) = (/&
 & 3.0396e+01_jprb,2.7253e+01_jprb,4.8033e+01_jprb,7.1948e+01_jprb,9.6125e+01_jprb/)  
kbo( :, 3,22,16) = (/&
 & 4.0380e+01_jprb,3.6230e+01_jprb,6.3173e+01_jprb,9.4660e+01_jprb,1.2648e+02_jprb/)  
kbo( :, 4,22,16) = (/&
 & 5.1797e+01_jprb,4.6707e+01_jprb,8.0766e+01_jprb,1.2099e+02_jprb,1.6165e+02_jprb/)  
kbo( :, 5,22,16) = (/&
 & 6.4540e+01_jprb,5.8724e+01_jprb,1.0071e+02_jprb,1.5084e+02_jprb,2.0156e+02_jprb/)  
kbo( :, 1,23,16) = (/&
 & 2.7320e+01_jprb,2.4188e+01_jprb,4.0693e+01_jprb,6.0960e+01_jprb,8.1453e+01_jprb/)  
kbo( :, 2,23,16) = (/&
 & 3.7558e+01_jprb,3.2976e+01_jprb,5.4970e+01_jprb,8.2336e+01_jprb,1.1003e+02_jprb/)  
kbo( :, 3,23,16) = (/&
 & 4.9408e+01_jprb,4.3375e+01_jprb,7.1816e+01_jprb,1.0759e+02_jprb,1.4373e+02_jprb/)  
kbo( :, 4,23,16) = (/&
 & 6.2874e+01_jprb,5.5353e+01_jprb,9.1309e+01_jprb,1.3680e+02_jprb,1.8276e+02_jprb/)  
kbo( :, 5,23,16) = (/&
 & 7.7698e+01_jprb,6.8961e+01_jprb,1.1333e+02_jprb,1.6978e+02_jprb,2.2679e+02_jprb/)  
kbo( :, 1,24,16) = (/&
 & 3.3869e+01_jprb,2.9387e+01_jprb,4.6648e+01_jprb,6.9904e+01_jprb,9.3367e+01_jprb/)  
kbo( :, 2,24,16) = (/&
 & 4.6006e+01_jprb,3.9622e+01_jprb,6.2515e+01_jprb,9.3679e+01_jprb,1.2511e+02_jprb/)  
kbo( :, 3,24,16) = (/&
 & 5.9946e+01_jprb,5.1571e+01_jprb,8.1209e+01_jprb,1.2167e+02_jprb,1.6250e+02_jprb/)  
kbo( :, 4,24,16) = (/&
 & 7.5539e+01_jprb,6.5110e+01_jprb,1.0265e+02_jprb,1.5380e+02_jprb,2.0542e+02_jprb/)  
kbo( :, 5,24,16) = (/&
 & 9.2477e+01_jprb,8.0448e+01_jprb,1.2660e+02_jprb,1.8969e+02_jprb,2.5333e+02_jprb/)  
kbo( :, 1,25,16) = (/&
 & 4.1599e+01_jprb,3.5454e+01_jprb,5.3146e+01_jprb,7.9642e+01_jprb,1.0635e+02_jprb/)  
kbo( :, 2,25,16) = (/&
 & 5.5782e+01_jprb,4.7228e+01_jprb,7.0740e+01_jprb,1.0597e+02_jprb,1.4155e+02_jprb/)  
kbo( :, 3,25,16) = (/&
 & 7.1943e+01_jprb,6.0744e+01_jprb,9.1338e+01_jprb,1.3688e+02_jprb,1.8276e+02_jprb/)  
kbo( :, 4,25,16) = (/&
 & 8.9735e+01_jprb,7.6043e+01_jprb,1.1460e+02_jprb,1.7175e+02_jprb,2.2932e+02_jprb/)  
kbo( :, 5,25,16) = (/&
 & 1.0881e+02_jprb,9.3022e+01_jprb,1.4062e+02_jprb,2.1079e+02_jprb,2.8133e+02_jprb/)  
kbo( :, 1,26,16) = (/&
 & 5.0633e+01_jprb,4.2540e+01_jprb,6.0521e+01_jprb,9.0533e+01_jprb,1.2089e+02_jprb/)  
kbo( :, 2,26,16) = (/&
 & 6.7031e+01_jprb,5.5881e+01_jprb,7.9837e+01_jprb,1.1964e+02_jprb,1.5974e+02_jprb/)  
kbo( :, 3,26,16) = (/&
 & 8.5449e+01_jprb,7.1046e+01_jprb,1.0219e+02_jprb,1.5314e+02_jprb,2.0448e+02_jprb/)  
kbo( :, 4,26,16) = (/&
 & 1.0550e+02_jprb,8.8104e+01_jprb,1.2741e+02_jprb,1.9092e+02_jprb,2.5490e+02_jprb/)  
kbo( :, 5,26,16) = (/&
 & 1.2662e+02_jprb,1.0665e+02_jprb,1.5535e+02_jprb,2.3284e+02_jprb,3.1085e+02_jprb/)  
kbo( :, 1,27,16) = (/&
 & 6.0760e+01_jprb,5.0362e+01_jprb,6.8627e+01_jprb,1.0214e+02_jprb,1.3635e+02_jprb/)  
kbo( :, 2,27,16) = (/&
 & 7.9372e+01_jprb,6.5351e+01_jprb,8.9496e+01_jprb,1.3381e+02_jprb,1.7862e+02_jprb/)  
kbo( :, 3,27,16) = (/&
 & 1.0007e+02_jprb,8.2171e+01_jprb,1.1350e+02_jprb,1.7014e+02_jprb,2.2709e+02_jprb/)  
kbo( :, 4,27,16) = (/&
 & 1.2219e+02_jprb,1.0086e+02_jprb,1.4060e+02_jprb,2.1077e+02_jprb,2.8135e+02_jprb/)  
kbo( :, 5,27,16) = (/&
 & 1.4517e+02_jprb,1.2078e+02_jprb,1.7031e+02_jprb,2.5527e+02_jprb,3.4078e+02_jprb/)  
kbo( :, 1,28,16) = (/&
 & 7.1850e+01_jprb,5.8865e+01_jprb,7.7249e+01_jprb,1.1435e+02_jprb,1.5263e+02_jprb/)  
kbo( :, 2,28,16) = (/&
 & 9.2653e+01_jprb,7.5393e+01_jprb,9.9671e+01_jprb,1.4851e+02_jprb,1.9822e+02_jprb/)  
kbo( :, 3,28,16) = (/&
 & 1.1541e+02_jprb,9.3821e+01_jprb,1.2515e+02_jprb,1.8738e+02_jprb,2.5009e+02_jprb/)  
kbo( :, 4,28,16) = (/&
 & 1.3940e+02_jprb,1.1403e+02_jprb,1.5381e+02_jprb,2.3053e+02_jprb,3.0770e+02_jprb/)  
kbo( :, 5,28,16) = (/&
 & 1.6406e+02_jprb,1.3517e+02_jprb,1.8510e+02_jprb,2.7748e+02_jprb,3.7030e+02_jprb/)  
kbo( :, 1,29,16) = (/&
 & 8.3876e+01_jprb,6.7955e+01_jprb,8.6536e+01_jprb,1.2716e+02_jprb,1.6971e+02_jprb/)  
kbo( :, 2,29,16) = (/&
 & 1.0671e+02_jprb,8.6050e+01_jprb,1.1035e+02_jprb,1.6386e+02_jprb,2.1869e+02_jprb/)  
kbo( :, 3,29,16) = (/&
 & 1.3128e+02_jprb,1.0596e+02_jprb,1.3736e+02_jprb,2.0522e+02_jprb,2.7387e+02_jprb/)  

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


SUBROUTINE part37

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


kbo( :, 4,29,16) = (/&
 & 1.5691e+02_jprb,1.2750e+02_jprb,1.6737e+02_jprb,2.5071e+02_jprb,3.3454e+02_jprb/)  
kbo( :, 5,29,16) = (/&
 & 1.8307e+02_jprb,1.4968e+02_jprb,1.9986e+02_jprb,2.9963e+02_jprb,3.9981e+02_jprb/)  
kbo( :, 1,30,16) = (/&
 & 9.6402e+01_jprb,7.7403e+01_jprb,9.6100e+01_jprb,1.4042e+02_jprb,1.8733e+02_jprb/)  
kbo( :, 2,30,16) = (/&
 & 1.2111e+02_jprb,9.6917e+01_jprb,1.2129e+02_jprb,1.7953e+02_jprb,2.3957e+02_jprb/)  
kbo( :, 3,30,16) = (/&
 & 1.4725e+02_jprb,1.1830e+02_jprb,1.4967e+02_jprb,2.2319e+02_jprb,2.9778e+02_jprb/)  
kbo( :, 4,30,16) = (/&
 & 1.7435e+02_jprb,1.4089e+02_jprb,1.8090e+02_jprb,2.7076e+02_jprb,3.6126e+02_jprb/)  
kbo( :, 5,30,16) = (/&
 & 2.0174e+02_jprb,1.6391e+02_jprb,2.1447e+02_jprb,3.2140e+02_jprb,4.2881e+02_jprb/)  
kbo( :, 1,31,16) = (/&
 & 1.0938e+02_jprb,8.7129e+01_jprb,1.0605e+02_jprb,1.5425e+02_jprb,2.0576e+02_jprb/)  
kbo( :, 2,31,16) = (/&
 & 1.3571e+02_jprb,1.0800e+02_jprb,1.3247e+02_jprb,1.9550e+02_jprb,2.6086e+02_jprb/)  
kbo( :, 3,31,16) = (/&
 & 1.6324e+02_jprb,1.3063e+02_jprb,1.6212e+02_jprb,2.4122e+02_jprb,3.2182e+02_jprb/)  
kbo( :, 4,31,16) = (/&
 & 1.9162e+02_jprb,1.5412e+02_jprb,1.9447e+02_jprb,2.9069e+02_jprb,3.8783e+02_jprb/)  
kbo( :, 5,31,16) = (/&
 & 2.1989e+02_jprb,1.7781e+02_jprb,2.2900e+02_jprb,3.4301e+02_jprb,4.5761e+02_jprb/)  
kbo( :, 1,32,16) = (/&
 & 1.2256e+02_jprb,9.7067e+01_jprb,1.1617e+02_jprb,1.6836e+02_jprb,2.2461e+02_jprb/)  
kbo( :, 2,32,16) = (/&
 & 1.5030e+02_jprb,1.1913e+02_jprb,1.4393e+02_jprb,2.1170e+02_jprb,2.8241e+02_jprb/)  
kbo( :, 3,32,16) = (/&
 & 1.7905e+02_jprb,1.4279e+02_jprb,1.7463e+02_jprb,2.5936e+02_jprb,3.4601e+02_jprb/)  
kbo( :, 4,32,16) = (/&
 & 2.0835e+02_jprb,1.6700e+02_jprb,2.0791e+02_jprb,3.1047e+02_jprb,4.1404e+02_jprb/)  
kbo( :, 5,32,16) = (/&
 & 2.3734e+02_jprb,1.9118e+02_jprb,2.4327e+02_jprb,3.6420e+02_jprb,4.8584e+02_jprb/)  
kbo( :, 1,33,16) = (/&
 & 1.3570e+02_jprb,1.0705e+02_jprb,1.2638e+02_jprb,1.8277e+02_jprb,2.4379e+02_jprb/)  
kbo( :, 2,33,16) = (/&
 & 1.6469e+02_jprb,1.3015e+02_jprb,1.5530e+02_jprb,2.2797e+02_jprb,3.0408e+02_jprb/)  
kbo( :, 3,33,16) = (/&
 & 1.9448e+02_jprb,1.5467e+02_jprb,1.8707e+02_jprb,2.7733e+02_jprb,3.6994e+02_jprb/)  
kbo( :, 4,33,16) = (/&
 & 2.2436e+02_jprb,1.7936e+02_jprb,2.2122e+02_jprb,3.2976e+02_jprb,4.3991e+02_jprb/)  
kbo( :, 5,33,16) = (/&
 & 2.5393e+02_jprb,2.0390e+02_jprb,2.5728e+02_jprb,3.8487e+02_jprb,5.1330e+02_jprb/)  
kbo( :, 1,34,16) = (/&
 & 1.4769e+02_jprb,1.1615e+02_jprb,1.3561e+02_jprb,1.9580e+02_jprb,2.6115e+02_jprb/)  
kbo( :, 2,34,16) = (/&
 & 1.7765e+02_jprb,1.4013e+02_jprb,1.6546e+02_jprb,2.4255e+02_jprb,3.2352e+02_jprb/)  
kbo( :, 3,34,16) = (/&
 & 2.0819e+02_jprb,1.6522e+02_jprb,1.9808e+02_jprb,2.9327e+02_jprb,3.9114e+02_jprb/)  
kbo( :, 4,34,16) = (/&
 & 2.3855e+02_jprb,1.9025e+02_jprb,2.3293e+02_jprb,3.4692e+02_jprb,4.6270e+02_jprb/)  
kbo( :, 5,34,16) = (/&
 & 2.6850e+02_jprb,2.1503e+02_jprb,2.6955e+02_jprb,4.0292e+02_jprb,5.3742e+02_jprb/)  
kbo( :, 1,35,16) = (/&
 & 1.5643e+02_jprb,1.2270e+02_jprb,1.4190e+02_jprb,2.0436e+02_jprb,2.7254e+02_jprb/)  
kbo( :, 2,35,16) = (/&
 & 1.8713e+02_jprb,1.4730e+02_jprb,1.7243e+02_jprb,2.5214e+02_jprb,3.3629e+02_jprb/)  
kbo( :, 3,35,16) = (/&
 & 2.1819e+02_jprb,1.7282e+02_jprb,2.0562e+02_jprb,3.0372e+02_jprb,4.0506e+02_jprb/)  
kbo( :, 4,35,16) = (/&
 & 2.4895e+02_jprb,1.9814e+02_jprb,2.4081e+02_jprb,3.5825e+02_jprb,4.7775e+02_jprb/)  
kbo( :, 5,35,16) = (/&
 & 2.7917e+02_jprb,2.2313e+02_jprb,2.7780e+02_jprb,4.1495e+02_jprb,5.5336e+02_jprb/)  
kbo( :, 1,36,16) = (/&
 & 1.6128e+02_jprb,1.2623e+02_jprb,1.4470e+02_jprb,2.0760e+02_jprb,2.7682e+02_jprb/)  
kbo( :, 2,36,16) = (/&
 & 1.9250e+02_jprb,1.5118e+02_jprb,1.7553e+02_jprb,2.5587e+02_jprb,3.4124e+02_jprb/)  
kbo( :, 3,36,16) = (/&
 & 2.2400e+02_jprb,1.7706e+02_jprb,2.0894e+02_jprb,3.0787e+02_jprb,4.1050e+02_jprb/)  
kbo( :, 4,36,16) = (/&
 & 2.5511e+02_jprb,2.0265e+02_jprb,2.4435e+02_jprb,3.6281e+02_jprb,4.8383e+02_jprb/)  
kbo( :, 5,36,16) = (/&
 & 2.8566e+02_jprb,2.2781e+02_jprb,2.8144e+02_jprb,4.1994e+02_jprb,5.6005e+02_jprb/)  
kbo( :, 1,37,16) = (/&
 & 1.6074e+02_jprb,1.2562e+02_jprb,1.4270e+02_jprb,2.0342e+02_jprb,2.7131e+02_jprb/)  
kbo( :, 2,37,16) = (/&
 & 1.9235e+02_jprb,1.5069e+02_jprb,1.7337e+02_jprb,2.5150e+02_jprb,3.3544e+02_jprb/)  
kbo( :, 3,37,16) = (/&
 & 2.2422e+02_jprb,1.7676e+02_jprb,2.0661e+02_jprb,3.0337e+02_jprb,4.0456e+02_jprb/)  
kbo( :, 4,37,16) = (/&
 & 2.5568e+02_jprb,2.0266e+02_jprb,2.4193e+02_jprb,3.5830e+02_jprb,4.7782e+02_jprb/)  
kbo( :, 5,37,16) = (/&
 & 2.8661e+02_jprb,2.2807e+02_jprb,2.7894e+02_jprb,4.1548e+02_jprb,5.5411e+02_jprb/)  
kbo( :, 1,38,16) = (/&
 & 1.5931e+02_jprb,1.2434e+02_jprb,1.4021e+02_jprb,1.9855e+02_jprb,2.6480e+02_jprb/)  
kbo( :, 2,38,16) = (/&
 & 1.9120e+02_jprb,1.4947e+02_jprb,1.7064e+02_jprb,2.4634e+02_jprb,3.2849e+02_jprb/)  
kbo( :, 3,38,16) = (/&
 & 2.2336e+02_jprb,1.7568e+02_jprb,2.0368e+02_jprb,2.9797e+02_jprb,3.9734e+02_jprb/)  
kbo( :, 4,38,16) = (/&
 & 2.5520e+02_jprb,2.0184e+02_jprb,2.3879e+02_jprb,3.5282e+02_jprb,4.7045e+02_jprb/)  
kbo( :, 5,38,16) = (/&
 & 2.8646e+02_jprb,2.2749e+02_jprb,2.7570e+02_jprb,4.0988e+02_jprb,5.4664e+02_jprb/)  
kbo( :, 1,39,16) = (/&
 & 1.5737e+02_jprb,1.2272e+02_jprb,1.3752e+02_jprb,1.9347e+02_jprb,2.5800e+02_jprb/)  
kbo( :, 2,39,16) = (/&
 & 1.8947e+02_jprb,1.4785e+02_jprb,1.6766e+02_jprb,2.4086e+02_jprb,3.2118e+02_jprb/)  
kbo( :, 3,39,16) = (/&
 & 2.2190e+02_jprb,1.7414e+02_jprb,2.0048e+02_jprb,2.9227e+02_jprb,3.8976e+02_jprb/)  
kbo( :, 4,39,16) = (/&
 & 2.5401e+02_jprb,2.0054e+02_jprb,2.3540e+02_jprb,3.4685e+02_jprb,4.6257e+02_jprb/)  
kbo( :, 5,39,16) = (/&
 & 2.8557e+02_jprb,2.2640e+02_jprb,2.7220e+02_jprb,4.0387e+02_jprb,5.3853e+02_jprb/)  
kbo( :, 1,40,16) = (/&
 & 1.5173e+02_jprb,1.1834e+02_jprb,1.3170e+02_jprb,1.8369e+02_jprb,2.4496e+02_jprb/)  
kbo( :, 2,40,16) = (/&
 & 1.8387e+02_jprb,1.4326e+02_jprb,1.6126e+02_jprb,2.3014e+02_jprb,3.0690e+02_jprb/)  
kbo( :, 3,40,16) = (/&
 & 2.1654e+02_jprb,1.6951e+02_jprb,1.9355e+02_jprb,2.8092e+02_jprb,3.7460e+02_jprb/)  
kbo( :, 4,40,16) = (/&
 & 2.4896e+02_jprb,1.9611e+02_jprb,2.2806e+02_jprb,3.3490e+02_jprb,4.4658e+02_jprb/)  
kbo( :, 5,40,16) = (/&
 & 2.8081e+02_jprb,2.2225e+02_jprb,2.6459e+02_jprb,3.9162e+02_jprb,5.2225e+02_jprb/)  
kbo( :, 1,41,16) = (/&
 & 1.4531e+02_jprb,1.1344e+02_jprb,1.2539e+02_jprb,1.7342e+02_jprb,2.3126e+02_jprb/)  
kbo( :, 2,41,16) = (/&
 & 1.7739e+02_jprb,1.3804e+02_jprb,1.5439e+02_jprb,2.1880e+02_jprb,2.9176e+02_jprb/)  
kbo( :, 3,41,16) = (/&
 & 2.1022e+02_jprb,1.6418e+02_jprb,1.8612e+02_jprb,2.6873e+02_jprb,3.5832e+02_jprb/)  
kbo( :, 4,41,16) = (/&
 & 2.4292e+02_jprb,1.9086e+02_jprb,2.2015e+02_jprb,3.2196e+02_jprb,4.2934e+02_jprb/)  
kbo( :, 5,41,16) = (/&
 & 2.7507e+02_jprb,2.1730e+02_jprb,2.5630e+02_jprb,3.7839e+02_jprb,5.0449e+02_jprb/)  
kbo( :, 1,42,16) = (/&
 & 1.3859e+02_jprb,1.0832e+02_jprb,1.1902e+02_jprb,1.6325e+02_jprb,2.1769e+02_jprb/)  
kbo( :, 2,42,16) = (/&
 & 1.7052e+02_jprb,1.3266e+02_jprb,1.4745e+02_jprb,2.0749e+02_jprb,2.7665e+02_jprb/)  
kbo( :, 3,42,16) = (/&
 & 2.0342e+02_jprb,1.5859e+02_jprb,1.7863e+02_jprb,2.5644e+02_jprb,3.4199e+02_jprb/)  
kbo( :, 4,42,16) = (/&
 & 2.3635e+02_jprb,1.8528e+02_jprb,2.1215e+02_jprb,3.0913e+02_jprb,4.1213e+02_jprb/)  
kbo( :, 5,42,16) = (/&
 & 2.6880e+02_jprb,2.1197e+02_jprb,2.4778e+02_jprb,3.6481e+02_jprb,4.8644e+02_jprb/)  
kbo( :, 1,43,16) = (/&
 & 1.3001e+02_jprb,1.0178e+02_jprb,1.1123e+02_jprb,1.5100e+02_jprb,2.0132e+02_jprb/)  
kbo( :, 2,43,16) = (/&
 & 1.6156e+02_jprb,1.2573e+02_jprb,1.3894e+02_jprb,1.9371e+02_jprb,2.5828e+02_jprb/)  
kbo( :, 3,43,16) = (/&
 & 1.9443e+02_jprb,1.5128e+02_jprb,1.6930e+02_jprb,2.4134e+02_jprb,3.2182e+02_jprb/)  
kbo( :, 4,43,16) = (/&
 & 2.2750e+02_jprb,1.7792e+02_jprb,2.0213e+02_jprb,2.9308e+02_jprb,3.9078e+02_jprb/)  
kbo( :, 5,43,16) = (/&
 & 2.6025e+02_jprb,2.0480e+02_jprb,2.3724e+02_jprb,3.4798e+02_jprb,4.6403e+02_jprb/)  
kbo( :, 1,44,16) = (/&
 & 1.2064e+02_jprb,9.4696e+01_jprb,1.0291e+02_jprb,1.3822e+02_jprb,1.8432e+02_jprb/)  
kbo( :, 2,44,16) = (/&
 & 1.5164e+02_jprb,1.1817e+02_jprb,1.2980e+02_jprb,1.7913e+02_jprb,2.3893e+02_jprb/)  
kbo( :, 3,44,16) = (/&
 & 1.8428e+02_jprb,1.4322e+02_jprb,1.5930e+02_jprb,2.2526e+02_jprb,3.0036e+02_jprb/)  
kbo( :, 4,44,16) = (/&
 & 2.1753e+02_jprb,1.6972e+02_jprb,1.9139e+02_jprb,2.7583e+02_jprb,3.6782e+02_jprb/)  
kbo( :, 5,44,16) = (/&
 & 2.5049e+02_jprb,1.9666e+02_jprb,2.2579e+02_jprb,3.2975e+02_jprb,4.3968e+02_jprb/)  
kbo( :, 1,45,16) = (/&
 & 1.1151e+02_jprb,8.7613e+01_jprb,9.4790e+01_jprb,1.2608e+02_jprb,1.6812e+02_jprb/)  
kbo( :, 2,45,16) = (/&
 & 1.4164e+02_jprb,1.1057e+02_jprb,1.2077e+02_jprb,1.6507e+02_jprb,2.2006e+02_jprb/)  
kbo( :, 3,45,16) = (/&
 & 1.7396e+02_jprb,1.3520e+02_jprb,1.4945e+02_jprb,2.0958e+02_jprb,2.7946e+02_jprb/)  
kbo( :, 4,45,16) = (/&
 & 2.0722e+02_jprb,1.6134e+02_jprb,1.8077e+02_jprb,2.5885e+02_jprb,3.4509e+02_jprb/)  
kbo( :, 5,45,16) = (/&
 & 2.4041e+02_jprb,1.8823e+02_jprb,2.1441e+02_jprb,3.1179e+02_jprb,4.1569e+02_jprb/)  
kbo( :, 1,46,16) = (/&
 & 1.0202e+02_jprb,8.0263e+01_jprb,8.6456e+01_jprb,1.1385e+02_jprb,1.5183e+02_jprb/)  
kbo( :, 2,46,16) = (/&
 & 1.3102e+02_jprb,1.0251e+02_jprb,1.1143e+02_jprb,1.5058e+02_jprb,2.0077e+02_jprb/)  
kbo( :, 3,46,16) = (/&
 & 1.6284e+02_jprb,1.2664e+02_jprb,1.3922e+02_jprb,1.9326e+02_jprb,2.5769e+02_jprb/)  
kbo( :, 4,46,16) = (/&
 & 1.9593e+02_jprb,1.5228e+02_jprb,1.6961e+02_jprb,2.4101e+02_jprb,3.2127e+02_jprb/)  
kbo( :, 5,46,16) = (/&
 & 2.2932e+02_jprb,1.7911e+02_jprb,2.0249e+02_jprb,2.9283e+02_jprb,3.9038e+02_jprb/)  
kbo( :, 1,47,16) = (/&
 & 9.1833e+01_jprb,7.2521e+01_jprb,7.7492e+01_jprb,1.0107e+02_jprb,1.3478e+02_jprb/)  
kbo( :, 2,47,16) = (/&
 & 1.1935e+02_jprb,9.3639e+01_jprb,1.0124e+02_jprb,1.3522e+02_jprb,1.8034e+02_jprb/)  
kbo( :, 3,47,16) = (/&
 & 1.5031e+02_jprb,1.1714e+02_jprb,1.2800e+02_jprb,1.7568e+02_jprb,2.3430e+02_jprb/)  
kbo( :, 4,47,16) = (/&
 & 1.8310e+02_jprb,1.4216e+02_jprb,1.5736e+02_jprb,2.2148e+02_jprb,2.9535e+02_jprb/)  
kbo( :, 5,47,16) = (/&
 & 2.1655e+02_jprb,1.6875e+02_jprb,1.8931e+02_jprb,2.7187e+02_jprb,3.6261e+02_jprb/)  
kbo( :, 1,48,16) = (/&
 & 8.2434e+01_jprb,6.5271e+01_jprb,6.9082e+01_jprb,8.9310e+01_jprb,1.1908e+02_jprb/)  
kbo( :, 2,48,16) = (/&
 & 1.0815e+02_jprb,8.4940e+01_jprb,9.1497e+01_jprb,1.2085e+02_jprb,1.6117e+02_jprb/)  
kbo( :, 3,48,16) = (/&
 & 1.3796e+02_jprb,1.0775e+02_jprb,1.1715e+02_jprb,1.5893e+02_jprb,2.1191e+02_jprb/)  
kbo( :, 4,48,16) = (/&
 & 1.7024e+02_jprb,1.3227e+02_jprb,1.4550e+02_jprb,2.0275e+02_jprb,2.7033e+02_jprb/)  
kbo( :, 5,48,16) = (/&
 & 2.0361e+02_jprb,1.5829e+02_jprb,1.7646e+02_jprb,2.5142e+02_jprb,3.3526e+02_jprb/)  
kbo( :, 1,49,16) = (/&
 & 7.3591e+01_jprb,5.8555e+01_jprb,6.1217e+01_jprb,7.8585e+01_jprb,1.0478e+02_jprb/)  
kbo( :, 2,49,16) = (/&
 & 9.7468e+01_jprb,7.6787e+01_jprb,8.2199e+01_jprb,1.0753e+02_jprb,1.4337e+02_jprb/)  
kbo( :, 3,49,16) = (/&
 & 1.2589e+02_jprb,9.8595e+01_jprb,1.0664e+02_jprb,1.4299e+02_jprb,1.9063e+02_jprb/)  
kbo( :, 4,49,16) = (/&
 & 1.5743e+02_jprb,1.2250e+02_jprb,1.3397e+02_jprb,1.8464e+02_jprb,2.4618e+02_jprb/)  
kbo( :, 5,49,16) = (/&
 & 1.9052e+02_jprb,1.4794e+02_jprb,1.6391e+02_jprb,2.3149e+02_jprb,3.0868e+02_jprb/)  
kbo( :, 1,50,16) = (/&
 & 6.5961e+01_jprb,5.2638e+01_jprb,5.4393e+01_jprb,6.9399e+01_jprb,9.2534e+01_jprb/)  
kbo( :, 2,50,16) = (/&
 & 8.8116e+01_jprb,6.9616e+01_jprb,7.3948e+01_jprb,9.5883e+01_jprb,1.2784e+02_jprb/)  
kbo( :, 3,50,16) = (/&
 & 1.1495e+02_jprb,9.0222e+01_jprb,9.7185e+01_jprb,1.2898e+02_jprb,1.7197e+02_jprb/)  
kbo( :, 4,50,16) = (/&
 & 1.4556e+02_jprb,1.1350e+02_jprb,1.2350e+02_jprb,1.6846e+02_jprb,2.2453e+02_jprb/)  
kbo( :, 5,50,16) = (/&
 & 1.7823e+02_jprb,1.3839e+02_jprb,1.5245e+02_jprb,2.1343e+02_jprb,2.8458e+02_jprb/)  
kbo( :, 1,51,16) = (/&
 & 5.9119e+01_jprb,4.7354e+01_jprb,4.8344e+01_jprb,6.1204e+01_jprb,8.1604e+01_jprb/)  
kbo( :, 2,51,16) = (/&
 & 7.9680e+01_jprb,6.3168e+01_jprb,6.6452e+01_jprb,8.5530e+01_jprb,1.1410e+02_jprb/)  
kbo( :, 3,51,16) = (/&
 & 1.0482e+02_jprb,8.2356e+01_jprb,8.8430e+01_jprb,1.1623e+02_jprb,1.5497e+02_jprb/)  
kbo( :, 4,51,16) = (/&
 & 1.3427e+02_jprb,1.0494e+02_jprb,1.1368e+02_jprb,1.5339e+02_jprb,2.0454e+02_jprb/)  
kbo( :, 5,51,16) = (/&
 & 1.6639e+02_jprb,1.2932e+02_jprb,1.4173e+02_jprb,1.9652e+02_jprb,2.6202e+02_jprb/)  
kbo( :, 1,52,16) = (/&
 & 5.2745e+01_jprb,4.2467e+01_jprb,4.2754e+01_jprb,5.3680e+01_jprb,7.1576e+01_jprb/)  
kbo( :, 2,52,16) = (/&
 & 7.1747e+01_jprb,5.7129e+01_jprb,5.9424e+01_jprb,7.6073e+01_jprb,1.0142e+02_jprb/)  
kbo( :, 3,52,16) = (/&
 & 9.5200e+01_jprb,7.5047e+01_jprb,8.0071e+01_jprb,1.0434e+02_jprb,1.3911e+02_jprb/)  
kbo( :, 4,52,16) = (/&
 & 1.2328e+02_jprb,9.6608e+01_jprb,1.0420e+02_jprb,1.3918e+02_jprb,1.8556e+02_jprb/)  
kbo( :, 5,52,16) = (/&
 & 1.5465e+02_jprb,1.2039e+02_jprb,1.3128e+02_jprb,1.8026e+02_jprb,2.4037e+02_jprb/)  
kbo( :, 1,53,16) = (/&
 & 4.6931e+01_jprb,3.7942e+01_jprb,3.7717e+01_jprb,4.6873e+01_jprb,6.2479e+01_jprb/)  
kbo( :, 2,53,16) = (/&
 & 6.4426e+01_jprb,5.1434e+01_jprb,5.2934e+01_jprb,6.7323e+01_jprb,8.9766e+01_jprb/)  
kbo( :, 3,53,16) = (/&
 & 8.6242e+01_jprb,6.8154e+01_jprb,7.2147e+01_jprb,9.3266e+01_jprb,1.2436e+02_jprb/)  
kbo( :, 4,53,16) = (/&
 & 1.1270e+02_jprb,8.8425e+01_jprb,9.5072e+01_jprb,1.2575e+02_jprb,1.6767e+02_jprb/)  
kbo( :, 5,53,16) = (/&
 & 1.4306e+02_jprb,1.1161e+02_jprb,1.2116e+02_jprb,1.6465e+02_jprb,2.1957e+02_jprb/)  
kbo( :, 1,54,16) = (/&
 & 4.2077e+01_jprb,3.4169e+01_jprb,3.3488e+01_jprb,4.1262e+01_jprb,5.4902e+01_jprb/)  
kbo( :, 2,54,16) = (/&
 & 5.8190e+01_jprb,4.6634e+01_jprb,4.7441e+01_jprb,5.9915e+01_jprb,7.9878e+01_jprb/)  
kbo( :, 3,54,16) = (/&
 & 7.8514e+01_jprb,6.2282e+01_jprb,6.5328e+01_jprb,8.3924e+01_jprb,1.1190e+02_jprb/)  
kbo( :, 4,54,16) = (/&
 & 1.0342e+02_jprb,8.1276e+01_jprb,8.7086e+01_jprb,1.1420e+02_jprb,1.5227e+02_jprb/)  
kbo( :, 5,54,16) = (/&
 & 1.3269e+02_jprb,1.0372e+02_jprb,1.1219e+02_jprb,1.5097e+02_jprb,2.0130e+02_jprb/)  
kbo( :, 1,55,16) = (/&
 & 3.7797e+01_jprb,3.0836e+01_jprb,2.9805e+01_jprb,3.6383e+01_jprb,4.8271e+01_jprb/)  
kbo( :, 2,55,16) = (/&
 & 5.2583e+01_jprb,4.2337e+01_jprb,4.2558e+01_jprb,5.3364e+01_jprb,7.1129e+01_jprb/)  
kbo( :, 3,55,16) = (/&
 & 7.1538e+01_jprb,5.6971e+01_jprb,5.9162e+01_jprb,7.5653e+01_jprb,1.0088e+02_jprb/)  
kbo( :, 4,55,16) = (/&
 & 9.4943e+01_jprb,7.4845e+01_jprb,7.9765e+01_jprb,1.0380e+02_jprb,1.3840e+02_jprb/)  
kbo( :, 5,55,16) = (/&
 & 1.2300e+02_jprb,9.6367e+01_jprb,1.0384e+02_jprb,1.3854e+02_jprb,1.8472e+02_jprb/)  
kbo( :, 1,56,16) = (/&
 & 3.3873e+01_jprb,2.7740e+01_jprb,2.6480e+01_jprb,3.1942e+01_jprb,4.2208e+01_jprb/)  
kbo( :, 2,56,16) = (/&
 & 4.7453e+01_jprb,3.8343e+01_jprb,3.8125e+01_jprb,4.7379e+01_jprb,6.3148e+01_jprb/)  
kbo( :, 3,56,16) = (/&
 & 6.5091e+01_jprb,5.1940e+01_jprb,5.3452e+01_jprb,6.7966e+01_jprb,9.0627e+01_jprb/)  
kbo( :, 4,56,16) = (/&
 & 8.7046e+01_jprb,6.8764e+01_jprb,7.2784e+01_jprb,9.4072e+01_jprb,1.2543e+02_jprb/)  
kbo( :, 5,56,16) = (/&
 & 1.1365e+02_jprb,8.9173e+01_jprb,9.5823e+01_jprb,1.2676e+02_jprb,1.6901e+02_jprb/)  
kbo( :, 1,57,16) = (/&
 & 3.0269e+01_jprb,2.4887e+01_jprb,2.3522e+01_jprb,2.7966e+01_jprb,3.6672e+01_jprb/)  
kbo( :, 2,57,16) = (/&
 & 4.2742e+01_jprb,3.4680e+01_jprb,3.4029e+01_jprb,4.1940e+01_jprb,5.5826e+01_jprb/)  
kbo( :, 3,57,16) = (/&
 & 5.9049e+01_jprb,4.7291e+01_jprb,4.8146e+01_jprb,6.0813e+01_jprb,8.1079e+01_jprb/)  
kbo( :, 4,57,16) = (/&
 & 7.9588e+01_jprb,6.3092e+01_jprb,6.6213e+01_jprb,8.5068e+01_jprb,1.1341e+02_jprb/)  
kbo( :, 5,57,16) = (/&
 & 1.0467e+02_jprb,8.2241e+01_jprb,8.8127e+01_jprb,1.1561e+02_jprb,1.5417e+02_jprb/)  
kbo( :, 1,58,16) = (/&
 & 2.7181e+01_jprb,2.2407e+01_jprb,2.1043e+01_jprb,2.4570e+01_jprb,3.1903e+01_jprb/)  
kbo( :, 2,58,16) = (/&
 & 3.8607e+01_jprb,3.1473e+01_jprb,3.0470e+01_jprb,3.7255e+01_jprb,4.9462e+01_jprb/)  
kbo( :, 3,58,16) = (/&
 & 5.3661e+01_jprb,4.3166e+01_jprb,4.3454e+01_jprb,5.4507e+01_jprb,7.2688e+01_jprb/)  

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


SUBROUTINE part38

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


kbo( :, 4,58,16) = (/&
 & 7.2881e+01_jprb,5.7996e+01_jprb,6.0310e+01_jprb,7.7125e+01_jprb,1.0284e+02_jprb/)  
kbo( :, 5,58,16) = (/&
 & 9.6586e+01_jprb,7.6089e+01_jprb,8.1135e+01_jprb,1.0566e+02_jprb,1.4091e+02_jprb/)  
kbo( :, 1,59,16) = (/&
 & 2.6031e+01_jprb,2.1482e+01_jprb,2.0126e+01_jprb,2.3303e+01_jprb,3.0129e+01_jprb/)  
kbo( :, 2,59,16) = (/&
 & 3.7063e+01_jprb,3.0259e+01_jprb,2.9150e+01_jprb,3.5486e+01_jprb,4.7064e+01_jprb/)  
kbo( :, 3,59,16) = (/&
 & 5.1630e+01_jprb,4.1596e+01_jprb,4.1690e+01_jprb,5.2144e+01_jprb,6.9539e+01_jprb/)  
kbo( :, 4,59,16) = (/&
 & 7.0350e+01_jprb,5.6032e+01_jprb,5.8043e+01_jprb,7.4115e+01_jprb,9.8842e+01_jprb/)  
kbo( :, 5,59,16) = (/&
 & 9.3474e+01_jprb,7.3716e+01_jprb,7.8416e+01_jprb,1.0186e+02_jprb,1.3581e+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) = (/&
 & 5.10286e-01_jprb, 4.30424e-01_jprb, 3.63061e-01_jprb, 3.06241e-01_jprb, 2.58313e-01_jprb,&
 & 2.17886e-01_jprb, 1.83786e-01_jprb, 1.55023e-01_jprb, 1.30761e-01_jprb, 1.10297e-01_jprb/)  
selfrefo( :, 2) = (/&
 & 4.96777e-01_jprb, 4.30758e-01_jprb, 3.73512e-01_jprb, 3.23874e-01_jprb, 2.80833e-01_jprb,&
 & 2.43512e-01_jprb, 2.11150e-01_jprb, 1.83089e-01_jprb, 1.58758e-01_jprb, 1.37659e-01_jprb/)  
selfrefo( :, 3) = (/&
 & 4.65595e-01_jprb, 4.04778e-01_jprb, 3.51905e-01_jprb, 3.05939e-01_jprb, 2.65976e-01_jprb,&
 & 2.31234e-01_jprb, 2.01030e-01_jprb, 1.74771e-01_jprb, 1.51942e-01_jprb, 1.32095e-01_jprb/)  
selfrefo( :, 4) = (/&
 & 4.34629e-01_jprb, 3.86709e-01_jprb, 3.44073e-01_jprb, 3.06137e-01_jprb, 2.72384e-01_jprb,&
 & 2.42353e-01_jprb, 2.15633e-01_jprb, 1.91858e-01_jprb, 1.70705e-01_jprb, 1.51884e-01_jprb/)  
selfrefo( :, 5) = (/&
 & 4.17625e-01_jprb, 3.75442e-01_jprb, 3.37519e-01_jprb, 3.03427e-01_jprb, 2.72778e-01_jprb,&
 & 2.45225e-01_jprb, 2.20456e-01_jprb, 1.98188e-01_jprb, 1.78169e-01_jprb, 1.60173e-01_jprb/)  
selfrefo( :, 6) = (/&
 & 3.97412e-01_jprb, 3.61249e-01_jprb, 3.28376e-01_jprb, 2.98494e-01_jprb, 2.71332e-01_jprb,&
 & 2.46641e-01_jprb, 2.24198e-01_jprb, 2.03796e-01_jprb, 1.85251e-01_jprb, 1.68394e-01_jprb/)  
selfrefo( :, 7) = (/&
 & 3.89795e-01_jprb, 3.56178e-01_jprb, 3.25460e-01_jprb, 2.97391e-01_jprb, 2.71743e-01_jprb,&
 & 2.48307e-01_jprb, 2.26892e-01_jprb, 2.07324e-01_jprb, 1.89444e-01_jprb, 1.73105e-01_jprb/)  
selfrefo( :, 8) = (/&
 & 3.79095e-01_jprb, 3.46828e-01_jprb, 3.17308e-01_jprb, 2.90301e-01_jprb, 2.65592e-01_jprb,&
 & 2.42986e-01_jprb, 2.22305e-01_jprb, 2.03384e-01_jprb, 1.86073e-01_jprb, 1.70235e-01_jprb/)  
selfrefo( :, 9) = (/&
 & 3.87086e-01_jprb, 3.53988e-01_jprb, 3.23720e-01_jprb, 2.96040e-01_jprb, 2.70727e-01_jprb,&
 & 2.47578e-01_jprb, 2.26409e-01_jprb, 2.07050e-01_jprb, 1.89346e-01_jprb, 1.73156e-01_jprb/)  
selfrefo( :,10) = (/&
 & 4.07529e-01_jprb, 3.71284e-01_jprb, 3.38263e-01_jprb, 3.08179e-01_jprb, 2.80770e-01_jprb,&
 & 2.55799e-01_jprb, 2.33049e-01_jprb, 2.12322e-01_jprb, 1.93438e-01_jprb, 1.76234e-01_jprb/)  
selfrefo( :,11) = (/&
 & 4.09315e-01_jprb, 3.74420e-01_jprb, 3.42500e-01_jprb, 3.13302e-01_jprb, 2.86592e-01_jprb,&
 & 2.62160e-01_jprb, 2.39811e-01_jprb, 2.19367e-01_jprb, 2.00665e-01_jprb, 1.83558e-01_jprb/)  
selfrefo( :,12) = (/&
 & 3.73996e-01_jprb, 3.51462e-01_jprb, 3.30286e-01_jprb, 3.10385e-01_jprb, 2.91684e-01_jprb,&
 & 2.74109e-01_jprb, 2.57593e-01_jprb, 2.42072e-01_jprb, 2.27487e-01_jprb, 2.13780e-01_jprb/)  
selfrefo( :,13) = (/&
 & 4.87965e-01_jprb, 4.44525e-01_jprb, 4.04952e-01_jprb, 3.68902e-01_jprb, 3.36061e-01_jprb,&
 & 3.06144e-01_jprb, 2.78891e-01_jprb, 2.54063e-01_jprb, 2.31446e-01_jprb, 2.10842e-01_jprb/)  
selfrefo( :,14) = (/&
 & 5.67999e-01_jprb, 5.03336e-01_jprb, 4.46034e-01_jprb, 3.95256e-01_jprb, 3.50259e-01_jprb,&
 & 3.10384e-01_jprb, 2.75048e-01_jprb, 2.43736e-01_jprb, 2.15988e-01_jprb, 1.91399e-01_jprb/)  
selfrefo( :,15) = (/&
 & 5.92492e-01_jprb, 5.27072e-01_jprb, 4.68874e-01_jprb, 4.17103e-01_jprb, 3.71048e-01_jprb,&
 & 3.30079e-01_jprb, 2.93633e-01_jprb, 2.61211e-01_jprb, 2.32369e-01_jprb, 2.06712e-01_jprb/)  
selfrefo( :,16) = (/&
 & 5.04176e-01_jprb, 4.64845e-01_jprb, 4.28582e-01_jprb, 3.95148e-01_jprb, 3.64322e-01_jprb,&
 & 3.35901e-01_jprb, 3.09697e-01_jprb, 2.85538e-01_jprb, 2.63263e-01_jprb, 2.42725e-01_jprb/)  

fracrefao( :, 1) = (/&
 !     From P = 1053.6 mb.
 & 0.15116400_jprb,0.14875700_jprb,0.14232300_jprb,0.13234501_jprb,&
 & 0.11881600_jprb,0.10224100_jprb,0.08345580_jprb,0.06267490_jprb,&
 & 0.04250650_jprb,0.00462650_jprb,0.00382259_jprb,0.00302600_jprb,&
 & 0.00222004_jprb,0.00141397_jprb,0.00053379_jprb,0.00007421_jprb/)  
fracrefao( :, 2) = (/&
 & 0.15266000_jprb,0.14888400_jprb,0.14195900_jprb,0.13179500_jprb,&
 & 0.11842700_jprb,0.10209000_jprb,0.08336130_jprb,0.06264370_jprb,&
 & 0.04247660_jprb,0.00461946_jprb,0.00381536_jprb,0.00302601_jprb,&
 & 0.00222004_jprb,0.00141397_jprb,0.00053302_jprb,0.00007498_jprb/)  
fracrefao( :, 3) = (/&
 & 0.15282799_jprb,0.14903000_jprb,0.14192399_jprb,0.13174300_jprb,&
 & 0.11835300_jprb,0.10202700_jprb,0.08329830_jprb,0.06264830_jprb,&
 & 0.04246910_jprb,0.00460242_jprb,0.00381904_jprb,0.00301573_jprb,&
 & 0.00222004_jprb,0.00141397_jprb,0.00053379_jprb,0.00007421_jprb/)  
fracrefao( :, 4) = (/&
 & 0.15298399_jprb,0.14902800_jprb,0.14193401_jprb,0.13173500_jprb,&
 & 0.11833300_jprb,0.10195800_jprb,0.08324730_jprb,0.06264770_jprb,&
 & 0.04246490_jprb,0.00460489_jprb,0.00381123_jprb,0.00301893_jprb,&
 & 0.00221093_jprb,0.00141397_jprb,0.00053379_jprb,0.00007421_jprb/)  
fracrefao( :, 5) = (/&
 & 0.15307599_jprb,0.14907201_jprb,0.14198899_jprb,0.13169800_jprb,&
 & 0.11827300_jprb,0.10192300_jprb,0.08321600_jprb,0.06263490_jprb,&
 & 0.04245600_jprb,0.00460846_jprb,0.00380836_jprb,0.00301663_jprb,&
 & 0.00221402_jprb,0.00141167_jprb,0.00052807_jprb,0.00007376_jprb/)  
fracrefao( :, 6) = (/&
 & 0.15311401_jprb,0.14915401_jprb,0.14207301_jprb,0.13167299_jprb,&
 & 0.11819300_jprb,0.10188900_jprb,0.08318760_jprb,0.06261960_jprb,&
 & 0.04243890_jprb,0.00461584_jprb,0.00380929_jprb,0.00300815_jprb,&
 & 0.00221736_jprb,0.00140588_jprb,0.00052776_jprb,0.00007376_jprb/)  
fracrefao( :, 7) = (/&
 & 0.15316001_jprb,0.14925499_jprb,0.14213000_jprb,0.13170999_jprb,&
 & 0.11807700_jprb,0.10181400_jprb,0.08317400_jprb,0.06260300_jprb,&
 & 0.04242720_jprb,0.00461520_jprb,0.00381381_jprb,0.00301285_jprb,&
 & 0.00220275_jprb,0.00140371_jprb,0.00052776_jprb,0.00007376_jprb/)  
fracrefao( :, 8) = (/&
 & 0.15321200_jprb,0.14940999_jprb,0.14222500_jprb,0.13164200_jprb,&
 & 0.11798200_jprb,0.10174500_jprb,0.08317500_jprb,0.06253640_jprb,&
 & 0.04243130_jprb,0.00461724_jprb,0.00381534_jprb,0.00300320_jprb,&
 & 0.00220091_jprb,0.00140364_jprb,0.00052852_jprb,0.00007300_jprb/)  
fracrefao( :, 9) = (/&
 & 0.15312800_jprb,0.14973100_jprb,0.14234400_jprb,0.13168900_jprb,&
 & 0.11795200_jprb,0.10156100_jprb,0.08302990_jprb,0.06252240_jprb,&
 & 0.04240980_jprb,0.00461035_jprb,0.00381381_jprb,0.00300176_jprb,&
 & 0.00220160_jprb,0.00140284_jprb,0.00052774_jprb,0.00007376_jprb/)  
fracrefao( :,10) = (/&
 & 0.15292500_jprb,0.14978001_jprb,0.14242400_jprb,0.13172600_jprb,&
 & 0.11798800_jprb,0.10156400_jprb,0.08303050_jprb,0.06251670_jprb,&
 & 0.04240970_jprb,0.00461302_jprb,0.00381452_jprb,0.00300250_jprb,&
 & 0.00220126_jprb,0.00140324_jprb,0.00052850_jprb,0.00007300_jprb/)  

fracrefbo( :, 1) = (/&
 !     From P = 64.1 mb.
 & 0.16340201_jprb,0.15607700_jprb,0.14601400_jprb,0.13182700_jprb,&
 & 0.11524700_jprb,0.09666570_jprb,0.07825360_jprb,0.05849780_jprb,&
 & 0.03949650_jprb,0.00427980_jprb,0.00353719_jprb,0.00279303_jprb,&
 & 0.00204788_jprb,0.00130139_jprb,0.00049055_jprb,0.00006904_jprb/)  
fracrefbo( :, 2) = (/&
 & 0.15762900_jprb,0.15494700_jprb,0.14659800_jprb,0.13267800_jprb,&
 & 0.11562700_jprb,0.09838360_jprb,0.07930420_jprb,0.05962700_jprb,&
 & 0.04036360_jprb,0.00438053_jprb,0.00361463_jprb,0.00285723_jprb,&
 & 0.00208345_jprb,0.00132135_jprb,0.00050528_jprb,0.00008003_jprb/)  
fracrefbo( :, 3) = (/&
 & 0.15641500_jprb,0.15394500_jprb,0.14633600_jprb,0.13180400_jprb,&
 & 0.11617100_jprb,0.09924170_jprb,0.08000510_jprb,0.06021420_jprb,&
 & 0.04082730_jprb,0.00441694_jprb,0.00365364_jprb,0.00287723_jprb,&
 & 0.00210914_jprb,0.00135784_jprb,0.00054651_jprb,0.00008003_jprb/)  
fracrefbo( :, 4) = (/&
 & 0.15482700_jprb,0.15286300_jprb,0.14392500_jprb,0.13244100_jprb,&
 & 0.11712000_jprb,0.09994920_jprb,0.08119200_jprb,0.06104360_jprb,&
 & 0.04135600_jprb,0.00446685_jprb,0.00368377_jprb,0.00290767_jprb,&
 & 0.00215445_jprb,0.00142865_jprb,0.00056142_jprb,0.00008003_jprb/)  
fracrefbo( :, 5) = (/&
 & 0.15975100_jprb,0.15653500_jprb,0.14214399_jprb,0.12892200_jprb,&
 & 0.11508400_jprb,0.09906020_jprb,0.08087940_jprb,0.06078190_jprb,&
 & 0.04140530_jprb,0.00452724_jprb,0.00374558_jprb,0.00295328_jprb,&
 & 0.00218509_jprb,0.00138644_jprb,0.00056018_jprb,0.00008003_jprb/)  

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

END SUBROUTINE rrtm_kgb3