rrtm_kgb5.F90

Go to the documentation of this file.

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

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

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

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

USE yoerrto5 , ONLY : kao     ,kbo     ,selfrefo   ,fracrefao  ,&
 & fracrefbo, ccl4o  
USE yoerrta5 , ONLY : strrat1   ,strrat2

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

IMPLICIT NONE
REAL(KIND=JPRB) :: ZHOOK_HANDLE

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

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

CONTAINS


SUBROUTINE part1

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


ccl4o( :) = (/&
 & 26.1407_jprb,  53.9776_jprb,  63.8085_jprb,  36.1701_jprb,&
 & 15.4099_jprb, 10.23116_jprb,  4.82948_jprb,  5.03836_jprb,&
 & 1.75558_jprb,  0.0_jprb     ,  0.0_jprb     ,  0.0_jprb     ,&
 & 0.0_jprb     ,  0.0_jprb     ,  0.0_jprb     ,  0.0_jprb      /)  

strrat1 = 90.4894_jprb
strrat2 = 0.900502_jprb

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

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

kao( :, 1, 1, 1) = (/&
 & 1.2281e-06_jprb,7.3444e-06_jprb,1.3802e-05_jprb,2.1363e-05_jprb,3.4026e-05_jprb,5.1149e-05_jprb,&
 & 7.6454e-05_jprb,1.1492e-04_jprb,5.1051e-05_jprb/)  
kao( :, 2, 1, 1) = (/&
 & 1.6369e-06_jprb,8.9617e-06_jprb,1.6072e-05_jprb,2.4135e-05_jprb,3.4106e-05_jprb,4.9214e-05_jprb,&
 & 7.9048e-05_jprb,1.3905e-04_jprb,5.4063e-05_jprb/)  
kao( :, 3, 1, 1) = (/&
 & 2.1611e-06_jprb,1.1094e-05_jprb,1.8726e-05_jprb,2.7825e-05_jprb,3.8281e-05_jprb,5.1592e-05_jprb,&
 & 7.6813e-05_jprb,1.3616e-04_jprb,6.0994e-05_jprb/)  
kao( :, 4, 1, 1) = (/&
 & 2.8032e-06_jprb,1.3911e-05_jprb,2.1873e-05_jprb,3.1872e-05_jprb,4.3669e-05_jprb,5.8650e-05_jprb,&
 & 8.1107e-05_jprb,1.3247e-04_jprb,6.8413e-05_jprb/)  
kao( :, 5, 1, 1) = (/&
 & 3.5749e-06_jprb,1.7399e-05_jprb,2.6270e-05_jprb,3.5363e-05_jprb,4.8470e-05_jprb,6.5479e-05_jprb,&
 & 9.0735e-05_jprb,1.4099e-04_jprb,5.7731e-05_jprb/)  
kao( :, 1, 2, 1) = (/&
 & 9.2208e-07_jprb,5.6661e-06_jprb,1.0853e-05_jprb,1.7695e-05_jprb,2.8111e-05_jprb,4.1811e-05_jprb,&
 & 5.7766e-05_jprb,8.8171e-05_jprb,3.6499e-05_jprb/)  
kao( :, 2, 2, 1) = (/&
 & 1.2339e-06_jprb,6.8718e-06_jprb,1.2450e-05_jprb,1.9038e-05_jprb,2.7428e-05_jprb,4.2214e-05_jprb,&
 & 6.5891e-05_jprb,1.0808e-04_jprb,3.9328e-05_jprb/)  
kao( :, 3, 2, 1) = (/&
 & 1.6382e-06_jprb,8.4733e-06_jprb,1.4470e-05_jprb,2.1567e-05_jprb,3.0172e-05_jprb,4.1842e-05_jprb,&
 & 6.2761e-05_jprb,1.1359e-04_jprb,4.4926e-05_jprb/)  
kao( :, 4, 2, 1) = (/&
 & 2.1437e-06_jprb,1.0582e-05_jprb,1.7090e-05_jprb,2.4961e-05_jprb,3.4319e-05_jprb,4.6334e-05_jprb,&
 & 6.4942e-05_jprb,1.0880e-04_jprb,4.8706e-05_jprb/)  
kao( :, 5, 2, 1) = (/&
 & 2.7550e-06_jprb,1.3307e-05_jprb,2.0303e-05_jprb,2.7768e-05_jprb,3.8649e-05_jprb,5.3069e-05_jprb,&
 & 7.1656e-05_jprb,1.1174e-04_jprb,4.2264e-05_jprb/)  
kao( :, 1, 3, 1) = (/&
 & 6.5681e-07_jprb,4.2928e-06_jprb,8.6206e-06_jprb,1.4813e-05_jprb,2.2795e-05_jprb,3.0956e-05_jprb,&
 & 4.2159e-05_jprb,6.7143e-05_jprb,2.4558e-05_jprb/)  
kao( :, 2, 3, 1) = (/&
 & 8.8032e-07_jprb,5.0858e-06_jprb,9.4979e-06_jprb,1.4908e-05_jprb,2.3302e-05_jprb,3.4761e-05_jprb,&
 & 5.2810e-05_jprb,7.8083e-05_jprb,2.7352e-05_jprb/)  
kao( :, 3, 3, 1) = (/&
 & 1.1757e-06_jprb,6.2479e-06_jprb,1.1007e-05_jprb,1.6613e-05_jprb,2.3543e-05_jprb,3.3879e-05_jprb,&
 & 5.3064e-05_jprb,9.3905e-05_jprb,3.1433e-05_jprb/)  
kao( :, 4, 3, 1) = (/&
 & 1.5541e-06_jprb,7.7549e-06_jprb,1.2987e-05_jprb,1.9178e-05_jprb,2.6197e-05_jprb,3.5750e-05_jprb,&
 & 5.1915e-05_jprb,9.2229e-05_jprb,2.9423e-05_jprb/)  
kao( :, 5, 3, 1) = (/&
 & 2.0193e-06_jprb,9.7639e-06_jprb,1.5167e-05_jprb,2.2031e-05_jprb,3.0010e-05_jprb,4.0258e-05_jprb,&
 & 5.5267e-05_jprb,9.0112e-05_jprb,2.9943e-05_jprb/)  
kao( :, 1, 4, 1) = (/&
 & 4.6419e-07_jprb,3.2238e-06_jprb,7.0968e-06_jprb,1.2172e-05_jprb,1.6732e-05_jprb,2.2369e-05_jprb,&
 & 3.1463e-05_jprb,5.3229e-05_jprb,1.7381e-05_jprb/)  
kao( :, 2, 4, 1) = (/&
 & 6.2245e-07_jprb,3.7726e-06_jprb,7.2766e-06_jprb,1.2504e-05_jprb,1.9255e-05_jprb,2.8079e-05_jprb,&
 & 3.7485e-05_jprb,5.7403e-05_jprb,1.9667e-05_jprb/)  
kao( :, 3, 4, 1) = (/&
 & 8.3351e-07_jprb,4.5653e-06_jprb,8.3036e-06_jprb,1.2777e-05_jprb,1.8816e-05_jprb,2.9030e-05_jprb,&
 & 4.4417e-05_jprb,7.0863e-05_jprb,2.1895e-05_jprb/)  
kao( :, 4, 4, 1) = (/&
 & 1.1087e-06_jprb,5.6384e-06_jprb,9.6405e-06_jprb,1.4565e-05_jprb,2.0321e-05_jprb,2.8264e-05_jprb,&
 & 4.3444e-05_jprb,7.7444e-05_jprb,2.1414e-05_jprb/)  
kao( :, 5, 4, 1) = (/&
 & 1.4581e-06_jprb,7.0726e-06_jprb,1.1402e-05_jprb,1.6579e-05_jprb,2.3011e-05_jprb,3.1009e-05_jprb,&
 & 4.3245e-05_jprb,7.3708e-05_jprb,2.2863e-05_jprb/)  
kao( :, 1, 5, 1) = (/&
 & 3.3427e-07_jprb,2.5337e-06_jprb,5.7680e-06_jprb,8.9425e-06_jprb,1.2242e-05_jprb,1.6995e-05_jprb,&
 & 2.4164e-05_jprb,4.4230e-05_jprb,1.3422e-05_jprb/)  
kao( :, 2, 5, 1) = (/&
 & 4.4601e-07_jprb,2.8401e-06_jprb,5.8531e-06_jprb,1.0220e-05_jprb,1.5419e-05_jprb,2.0153e-05_jprb,&
 & 2.7336e-05_jprb,4.3727e-05_jprb,1.5115e-05_jprb/)  
kao( :, 3, 5, 1) = (/&
 & 5.9812e-07_jprb,3.3532e-06_jprb,6.3191e-06_jprb,1.0031e-05_jprb,1.5953e-05_jprb,2.3950e-05_jprb,&
 & 3.4195e-05_jprb,5.0601e-05_jprb,1.6591e-05_jprb/)  
kao( :, 4, 5, 1) = (/&
 & 7.9837e-07_jprb,4.1280e-06_jprb,7.3147e-06_jprb,1.1079e-05_jprb,1.5854e-05_jprb,2.3810e-05_jprb,&
 & 3.6514e-05_jprb,6.2591e-05_jprb,1.7658e-05_jprb/)  
kao( :, 5, 5, 1) = (/&
 & 1.0575e-06_jprb,5.1440e-06_jprb,8.5910e-06_jprb,1.2709e-05_jprb,1.7592e-05_jprb,2.4262e-05_jprb,&
 & 3.5276e-05_jprb,6.2368e-05_jprb,1.9388e-05_jprb/)  
kao( :, 1, 6, 1) = (/&
 & 2.4467e-07_jprb,2.0115e-06_jprb,4.4506e-06_jprb,6.5328e-06_jprb,9.2134e-06_jprb,1.2867e-05_jprb,&
 & 1.9266e-05_jprb,3.4226e-05_jprb,1.1020e-05_jprb/)  
kao( :, 2, 6, 1) = (/&
 & 3.2244e-07_jprb,2.1802e-06_jprb,4.7859e-06_jprb,8.3031e-06_jprb,1.1024e-05_jprb,1.4816e-05_jprb,&
 & 2.0767e-05_jprb,3.3867e-05_jprb,1.2361e-05_jprb/)  
kao( :, 3, 6, 1) = (/&
 & 4.3252e-07_jprb,2.5034e-06_jprb,4.8788e-06_jprb,8.5188e-06_jprb,1.3353e-05_jprb,1.8353e-05_jprb,&
 & 2.4440e-05_jprb,3.7220e-05_jprb,1.3756e-05_jprb/)  
kao( :, 4, 6, 1) = (/&
 & 5.7866e-07_jprb,3.0227e-06_jprb,5.4901e-06_jprb,8.5441e-06_jprb,1.3294e-05_jprb,1.9970e-05_jprb,&
 & 3.0079e-05_jprb,4.5487e-05_jprb,1.5370e-05_jprb/)  
kao( :, 5, 6, 1) = (/&
 & 7.6960e-07_jprb,3.7504e-06_jprb,6.3767e-06_jprb,9.6311e-06_jprb,1.3563e-05_jprb,1.9464e-05_jprb,&
 & 3.0023e-05_jprb,5.3031e-05_jprb,1.7349e-05_jprb/)  
kao( :, 1, 7, 1) = (/&
 & 1.8363e-07_jprb,1.6339e-06_jprb,3.2365e-06_jprb,4.8736e-06_jprb,7.0565e-06_jprb,1.0168e-05_jprb,&
 & 1.5448e-05_jprb,2.6119e-05_jprb,9.9973e-06_jprb/)  
kao( :, 2, 7, 1) = (/&
 & 2.3828e-07_jprb,1.7045e-06_jprb,3.9446e-06_jprb,5.9885e-06_jprb,8.1187e-06_jprb,1.1164e-05_jprb,&
 & 1.5910e-05_jprb,2.7804e-05_jprb,1.1252e-05_jprb/)  
kao( :, 3, 7, 1) = (/&
 & 3.1712e-07_jprb,1.8915e-06_jprb,4.0133e-06_jprb,6.9371e-06_jprb,1.0184e-05_jprb,1.3247e-05_jprb,&
 & 1.8144e-05_jprb,2.8687e-05_jprb,1.2767e-05_jprb/)  
kao( :, 4, 7, 1) = (/&
 & 4.2549e-07_jprb,2.2415e-06_jprb,4.2001e-06_jprb,7.0066e-06_jprb,1.0950e-05_jprb,1.6323e-05_jprb,&
 & 2.2218e-05_jprb,3.2987e-05_jprb,1.4591e-05_jprb/)  
kao( :, 5, 7, 1) = (/&
 & 5.6782e-07_jprb,2.7608e-06_jprb,4.8541e-06_jprb,7.3705e-06_jprb,1.0748e-05_jprb,1.6390e-05_jprb,&
 & 2.5035e-05_jprb,4.1583e-05_jprb,1.6759e-05_jprb/)  
kao( :, 1, 8, 1) = (/&
 & 1.4297e-07_jprb,1.2986e-06_jprb,2.4296e-06_jprb,3.7740e-06_jprb,5.5717e-06_jprb,8.1007e-06_jprb,&
 & 1.2269e-05_jprb,2.0668e-05_jprb,1.1224e-05_jprb/)  
kao( :, 2, 8, 1) = (/&
 & 1.8237e-07_jprb,1.3796e-06_jprb,2.9841e-06_jprb,4.4232e-06_jprb,6.1625e-06_jprb,8.6070e-06_jprb,&
 & 1.2749e-05_jprb,2.2374e-05_jprb,1.3050e-05_jprb/)  
kao( :, 3, 8, 1) = (/&
 & 2.3995e-07_jprb,1.4828e-06_jprb,3.2302e-06_jprb,5.5721e-06_jprb,7.4009e-06_jprb,9.9584e-06_jprb,&
 & 1.3793e-05_jprb,2.2720e-05_jprb,1.5037e-05_jprb/)  
kao( :, 4, 8, 1) = (/&
 & 3.2109e-07_jprb,1.7086e-06_jprb,3.3052e-06_jprb,5.7552e-06_jprb,9.1163e-06_jprb,1.2137e-05_jprb,&
 & 1.6200e-05_jprb,2.4932e-05_jprb,1.7316e-05_jprb/)  
kao( :, 5, 8, 1) = (/&
 & 4.2933e-07_jprb,2.0665e-06_jprb,3.6851e-06_jprb,5.7093e-06_jprb,9.1231e-06_jprb,1.3616e-05_jprb,&
 & 2.0240e-05_jprb,2.9795e-05_jprb,1.9811e-05_jprb/)  
kao( :, 1, 9, 1) = (/&
 & 1.1391e-07_jprb,9.6607e-07_jprb,1.8596e-06_jprb,2.9960e-06_jprb,4.4278e-06_jprb,6.4496e-06_jprb,&
 & 9.3668e-06_jprb,1.6296e-05_jprb,2.3175e-05_jprb/)  
kao( :, 2, 9, 1) = (/&
 & 1.4318e-07_jprb,1.1432e-06_jprb,2.1917e-06_jprb,3.3465e-06_jprb,4.7894e-06_jprb,6.8583e-06_jprb,&
 & 1.0124e-05_jprb,1.7732e-05_jprb,2.8424e-05_jprb/)  
kao( :, 3, 9, 1) = (/&
 & 1.8594e-07_jprb,1.1885e-06_jprb,2.6962e-06_jprb,4.0343e-06_jprb,5.5351e-06_jprb,7.5514e-06_jprb,&
 & 1.0675e-05_jprb,1.8150e-05_jprb,3.4053e-05_jprb/)  
kao( :, 4, 9, 1) = (/&
 & 2.4670e-07_jprb,1.3380e-06_jprb,2.7503e-06_jprb,4.7549e-06_jprb,6.8876e-06_jprb,8.9087e-06_jprb,&
 & 1.2295e-05_jprb,1.9210e-05_jprb,3.9839e-05_jprb/)  
kao( :, 5, 9, 1) = (/&
 & 3.3010e-07_jprb,1.5784e-06_jprb,2.8513e-06_jprb,4.8049e-06_jprb,7.4827e-06_jprb,1.1096e-05_jprb,&
 & 1.4749e-05_jprb,2.1955e-05_jprb,4.5594e-05_jprb/)  
kao( :, 1,10, 1) = (/&
 & 9.5530e-08_jprb,7.6103e-07_jprb,1.4822e-06_jprb,2.4013e-06_jprb,3.5241e-06_jprb,5.0863e-06_jprb,&
 & 7.7041e-06_jprb,1.2423e-05_jprb,8.9067e-05_jprb/)  
kao( :, 2,10, 1) = (/&
 & 1.1882e-07_jprb,9.2450e-07_jprb,1.6979e-06_jprb,2.6207e-06_jprb,3.8503e-06_jprb,5.4657e-06_jprb,&
 & 7.9684e-06_jprb,1.3651e-05_jprb,1.1125e-04_jprb/)  
kao( :, 3,10, 1) = (/&
 & 1.5289e-07_jprb,9.7942e-07_jprb,2.0846e-06_jprb,3.0524e-06_jprb,4.2640e-06_jprb,5.9216e-06_jprb,&
 & 8.6666e-06_jprb,1.4411e-05_jprb,1.3376e-04_jprb/)  
kao( :, 4,10, 1) = (/&
 & 2.0094e-07_jprb,1.0816e-06_jprb,2.2331e-06_jprb,3.8855e-06_jprb,5.1239e-06_jprb,6.8144e-06_jprb,&
 & 9.5102e-06_jprb,1.5396e-05_jprb,1.5621e-04_jprb/)  
kao( :, 5,10, 1) = (/&
 & 2.6711e-07_jprb,1.2572e-06_jprb,2.3283e-06_jprb,3.9502e-06_jprb,6.1703e-06_jprb,8.4471e-06_jprb,&
 & 1.1047e-05_jprb,1.7057e-05_jprb,1.7815e-04_jprb/)  
kao( :, 1,11, 1) = (/&
 & 8.8479e-08_jprb,6.5723e-07_jprb,1.2585e-06_jprb,2.0039e-06_jprb,2.9121e-06_jprb,4.1955e-06_jprb,&
 & 6.2637e-06_jprb,1.0419e-05_jprb,1.7219e-04_jprb/)  
kao( :, 2,11, 1) = (/&
 & 1.1103e-07_jprb,7.9724e-07_jprb,1.4388e-06_jprb,2.1938e-06_jprb,3.2099e-06_jprb,4.5380e-06_jprb,&
 & 6.5334e-06_jprb,1.1529e-05_jprb,2.1393e-04_jprb/)  
kao( :, 3,11, 1) = (/&
 & 1.4325e-07_jprb,8.5009e-07_jprb,1.7790e-06_jprb,2.5762e-06_jprb,3.5853e-06_jprb,4.9027e-06_jprb,&
 & 7.2087e-06_jprb,1.1783e-05_jprb,2.5548e-04_jprb/)  
kao( :, 4,11, 1) = (/&
 & 1.8796e-07_jprb,9.4910e-07_jprb,1.8794e-06_jprb,3.2448e-06_jprb,4.3096e-06_jprb,5.7004e-06_jprb,&
 & 7.8146e-06_jprb,1.2759e-05_jprb,2.9570e-04_jprb/)  
kao( :, 5,11, 1) = (/&
 & 2.4830e-07_jprb,1.0997e-06_jprb,1.9987e-06_jprb,3.2788e-06_jprb,5.0983e-06_jprb,7.0948e-06_jprb,&
 & 9.2185e-06_jprb,1.4157e-05_jprb,3.3417e-04_jprb/)  
kao( :, 1,12, 1) = (/&
 & 7.8411e-08_jprb,5.6432e-07_jprb,1.0564e-06_jprb,1.6792e-06_jprb,2.4262e-06_jprb,3.3875e-06_jprb,&
 & 5.1824e-06_jprb,8.5930e-06_jprb,2.1970e-04_jprb/)  
kao( :, 2,12, 1) = (/&
 & 9.8958e-08_jprb,6.8328e-07_jprb,1.2215e-06_jprb,1.8350e-06_jprb,2.6716e-06_jprb,3.7787e-06_jprb,&
 & 5.3849e-06_jprb,9.1860e-06_jprb,2.7209e-04_jprb/)  
kao( :, 3,12, 1) = (/&
 & 1.2797e-07_jprb,7.2421e-07_jprb,1.5209e-06_jprb,2.1711e-06_jprb,3.0040e-06_jprb,4.0829e-06_jprb,&
 & 6.0229e-06_jprb,9.7068e-06_jprb,3.2380e-04_jprb/)  
kao( :, 4,12, 1) = (/&
 & 1.6772e-07_jprb,8.1500e-07_jprb,1.5843e-06_jprb,2.7212e-06_jprb,3.6141e-06_jprb,4.7595e-06_jprb,&
 & 6.4840e-06_jprb,1.0629e-05_jprb,3.7332e-04_jprb/)  
kao( :, 5,12, 1) = (/&
 & 2.2081e-07_jprb,9.4887e-07_jprb,1.7061e-06_jprb,2.7338e-06_jprb,4.2409e-06_jprb,5.9628e-06_jprb,&
 & 7.7123e-06_jprb,1.1668e-05_jprb,4.2006e-04_jprb/)  
kao( :, 1,13, 1) = (/&
 & 6.9984e-08_jprb,4.8746e-07_jprb,8.9934e-07_jprb,1.4101e-06_jprb,2.0188e-06_jprb,2.7991e-06_jprb,&
 & 4.1521e-06_jprb,7.2727e-06_jprb,2.2865e-04_jprb/)  
kao( :, 2,13, 1) = (/&
 & 8.8821e-08_jprb,5.8672e-07_jprb,1.0421e-06_jprb,1.5517e-06_jprb,2.2340e-06_jprb,3.1346e-06_jprb,&
 & 4.4727e-06_jprb,7.4604e-06_jprb,2.8267e-04_jprb/)  
kao( :, 3,13, 1) = (/&
 & 1.1504e-07_jprb,6.2137e-07_jprb,1.3015e-06_jprb,1.8350e-06_jprb,2.5305e-06_jprb,3.4076e-06_jprb,&
 & 4.9426e-06_jprb,8.0265e-06_jprb,3.3576e-04_jprb/)  
kao( :, 4,13, 1) = (/&
 & 1.5036e-07_jprb,7.0084e-07_jprb,1.3483e-06_jprb,2.2875e-06_jprb,3.0337e-06_jprb,3.9839e-06_jprb,&
 & 5.4210e-06_jprb,8.7755e-06_jprb,3.8637e-04_jprb/)  
kao( :, 5,13, 1) = (/&
 & 1.9712e-07_jprb,8.1525e-07_jprb,1.4451e-06_jprb,2.3051e-06_jprb,3.5032e-06_jprb,5.0029e-06_jprb,&
 & 6.4407e-06_jprb,9.6564e-06_jprb,4.3385e-04_jprb/)  
kao( :, 1, 1, 2) = (/&
 & 3.7010e-06_jprb,1.8091e-05_jprb,2.8711e-05_jprb,4.8863e-05_jprb,7.2307e-05_jprb,1.1413e-04_jprb,&
 & 1.8771e-04_jprb,3.6122e-04_jprb,1.1281e-04_jprb/)  
kao( :, 2, 1, 2) = (/&
 & 5.3266e-06_jprb,2.4423e-05_jprb,3.4269e-05_jprb,4.7704e-05_jprb,7.6078e-05_jprb,1.1442e-04_jprb,&
 & 1.6436e-04_jprb,3.2838e-04_jprb,8.7847e-05_jprb/)  
kao( :, 3, 1, 2) = (/&
 & 7.5177e-06_jprb,3.2854e-05_jprb,4.4289e-05_jprb,5.4913e-05_jprb,7.2779e-05_jprb,1.0814e-04_jprb,&
 & 1.7906e-04_jprb,2.8467e-04_jprb,8.6883e-05_jprb/)  
kao( :, 4, 1, 2) = (/&
 & 1.0391e-05_jprb,4.3522e-05_jprb,5.8544e-05_jprb,6.9693e-05_jprb,8.1288e-05_jprb,1.0220e-04_jprb,&
 & 1.5047e-04_jprb,3.0285e-04_jprb,9.1049e-05_jprb/)  
kao( :, 5, 1, 2) = (/&
 & 1.4024e-05_jprb,5.6758e-05_jprb,7.6016e-05_jprb,9.1662e-05_jprb,1.0372e-04_jprb,1.1700e-04_jprb,&
 & 1.4991e-04_jprb,2.3704e-04_jprb,1.3000e-04_jprb/)  
kao( :, 1, 2, 2) = (/&
 & 2.7903e-06_jprb,1.3902e-05_jprb,2.3771e-05_jprb,3.9190e-05_jprb,6.1137e-05_jprb,9.7231e-05_jprb,&
 & 1.5250e-04_jprb,2.8746e-04_jprb,7.5943e-05_jprb/)  
kao( :, 2, 2, 2) = (/&
 & 4.0561e-06_jprb,1.8720e-05_jprb,2.7225e-05_jprb,3.9741e-05_jprb,6.4537e-05_jprb,9.0899e-05_jprb,&
 & 1.4609e-04_jprb,2.7008e-04_jprb,6.2612e-05_jprb/)  
kao( :, 3, 2, 2) = (/&
 & 5.7887e-06_jprb,2.5353e-05_jprb,3.4446e-05_jprb,4.3750e-05_jprb,5.8352e-05_jprb,9.7668e-05_jprb,&
 & 1.4210e-04_jprb,2.4211e-04_jprb,6.1269e-05_jprb/)  
kao( :, 4, 2, 2) = (/&
 & 8.0784e-06_jprb,3.3950e-05_jprb,4.5325e-05_jprb,5.3921e-05_jprb,6.4280e-05_jprb,8.5665e-05_jprb,&
 & 1.3688e-04_jprb,2.4556e-04_jprb,6.9568e-05_jprb/)  
kao( :, 5, 2, 2) = (/&
 & 1.1019e-05_jprb,4.4672e-05_jprb,5.9575e-05_jprb,7.1166e-05_jprb,7.9595e-05_jprb,9.1088e-05_jprb,&
 & 1.2520e-04_jprb,2.1802e-04_jprb,9.5557e-05_jprb/)  
kao( :, 1, 3, 2) = (/&
 & 1.9479e-06_jprb,1.0095e-05_jprb,1.9141e-05_jprb,3.0705e-05_jprb,5.2363e-05_jprb,7.9991e-05_jprb,&
 & 1.2823e-04_jprb,2.3806e-04_jprb,4.6992e-05_jprb/)  
kao( :, 2, 3, 2) = (/&
 & 2.8509e-06_jprb,1.3413e-05_jprb,2.1137e-05_jprb,3.4101e-05_jprb,4.9706e-05_jprb,7.8708e-05_jprb,&
 & 1.2808e-04_jprb,2.2769e-04_jprb,4.2012e-05_jprb/)  
kao( :, 3, 3, 2) = (/&
 & 4.1189e-06_jprb,1.8265e-05_jprb,2.5419e-05_jprb,3.4683e-05_jprb,5.2513e-05_jprb,8.0240e-05_jprb,&
 & 1.1481e-04_jprb,2.1816e-04_jprb,4.3174e-05_jprb/)  
kao( :, 4, 3, 2) = (/&
 & 5.8233e-06_jprb,2.4801e-05_jprb,3.3200e-05_jprb,4.0180e-05_jprb,5.1786e-05_jprb,7.2468e-05_jprb,&
 & 1.2549e-04_jprb,1.9856e-04_jprb,5.6282e-05_jprb/)  
kao( :, 5, 3, 2) = (/&
 & 8.0612e-06_jprb,3.3094e-05_jprb,4.4191e-05_jprb,5.1801e-05_jprb,5.9300e-05_jprb,7.2075e-05_jprb,&
 & 1.0386e-04_jprb,2.0859e-04_jprb,6.8039e-05_jprb/)  
kao( :, 1, 4, 2) = (/&
 & 1.3432e-06_jprb,7.4538e-06_jprb,1.4964e-05_jprb,2.5625e-05_jprb,4.3243e-05_jprb,6.6019e-05_jprb,&
 & 1.0530e-04_jprb,1.9952e-04_jprb,3.1575e-05_jprb/)  
kao( :, 2, 4, 2) = (/&
 & 1.9591e-06_jprb,9.5155e-06_jprb,1.6737e-05_jprb,2.6791e-05_jprb,4.2345e-05_jprb,6.7439e-05_jprb,&
 & 1.0271e-04_jprb,1.8871e-04_jprb,3.0704e-05_jprb/)  
kao( :, 3, 4, 2) = (/&
 & 2.8537e-06_jprb,1.2845e-05_jprb,1.8934e-05_jprb,2.8752e-05_jprb,4.4199e-05_jprb,6.2430e-05_jprb,&
 & 1.0202e-04_jprb,1.8062e-04_jprb,3.4088e-05_jprb/)  
kao( :, 4, 4, 2) = (/&
 & 4.0888e-06_jprb,1.7612e-05_jprb,2.3922e-05_jprb,3.0749e-05_jprb,4.2010e-05_jprb,6.5728e-05_jprb,&
 & 9.6566e-05_jprb,1.7460e-04_jprb,4.3387e-05_jprb/)  
kao( :, 5, 4, 2) = (/&
 & 5.7388e-06_jprb,2.3829e-05_jprb,3.1758e-05_jprb,3.7789e-05_jprb,4.5312e-05_jprb,5.9095e-05_jprb,&
 & 1.0064e-04_jprb,1.6850e-04_jprb,5.1079e-05_jprb/)  
kao( :, 1, 5, 2) = (/&
 & 9.4882e-07_jprb,5.7155e-06_jprb,1.1980e-05_jprb,2.2295e-05_jprb,3.5116e-05_jprb,5.3339e-05_jprb,&
 & 8.8729e-05_jprb,1.5937e-04_jprb,2.5456e-05_jprb/)  
kao( :, 2, 5, 2) = (/&
 & 1.3669e-06_jprb,6.8739e-06_jprb,1.3459e-05_jprb,2.1396e-05_jprb,3.6297e-05_jprb,5.4282e-05_jprb,&
 & 8.6042e-05_jprb,1.6025e-04_jprb,2.6654e-05_jprb/)  

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


SUBROUTINE part2

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


kao( :, 3, 5, 2) = (/&
 & 1.9884e-06_jprb,9.0859e-06_jprb,1.4605e-05_jprb,2.3671e-05_jprb,3.4093e-05_jprb,5.5324e-05_jprb,&
 & 8.6463e-05_jprb,1.5363e-04_jprb,3.0684e-05_jprb/)  
kao( :, 4, 5, 2) = (/&
 & 2.8701e-06_jprb,1.2430e-05_jprb,1.7294e-05_jprb,2.4580e-05_jprb,3.7203e-05_jprb,5.3154e-05_jprb,&
 & 8.1963e-05_jprb,1.5281e-04_jprb,3.6321e-05_jprb/)  
kao( :, 5, 5, 2) = (/&
 & 4.0709e-06_jprb,1.7029e-05_jprb,2.2743e-05_jprb,2.7902e-05_jprb,3.6353e-05_jprb,5.3115e-05_jprb,&
 & 8.4864e-05_jprb,1.3732e-04_jprb,4.2547e-05_jprb/)  
kao( :, 1, 6, 2) = (/&
 & 6.8988e-07_jprb,4.4652e-06_jprb,9.7580e-06_jprb,1.7678e-05_jprb,2.8332e-05_jprb,4.4145e-05_jprb,&
 & 7.0109e-05_jprb,1.2493e-04_jprb,2.3716e-05_jprb/)  
kao( :, 2, 6, 2) = (/&
 & 9.7314e-07_jprb,5.0974e-06_jprb,1.0412e-05_jprb,1.7485e-05_jprb,2.9376e-05_jprb,4.4804e-05_jprb,&
 & 7.0122e-05_jprb,1.3276e-04_jprb,2.6375e-05_jprb/)  
kao( :, 3, 6, 2) = (/&
 & 1.3972e-06_jprb,6.4724e-06_jprb,1.1564e-05_jprb,1.8858e-05_jprb,2.8568e-05_jprb,4.7043e-05_jprb,&
 & 7.0202e-05_jprb,1.2748e-04_jprb,3.0169e-05_jprb/)  
kao( :, 4, 6, 2) = (/&
 & 2.0156e-06_jprb,8.7063e-06_jprb,1.3025e-05_jprb,2.0355e-05_jprb,3.0069e-05_jprb,4.4240e-05_jprb,&
 & 7.1336e-05_jprb,1.2324e-04_jprb,3.4994e-05_jprb/)  
kao( :, 5, 6, 2) = (/&
 & 2.8756e-06_jprb,1.1976e-05_jprb,1.6242e-05_jprb,2.1147e-05_jprb,3.0629e-05_jprb,4.5526e-05_jprb,&
 & 6.5474e-05_jprb,1.2130e-04_jprb,4.0495e-05_jprb/)  
kao( :, 1, 7, 2) = (/&
 & 5.2255e-07_jprb,3.4411e-06_jprb,7.7789e-06_jprb,1.4395e-05_jprb,2.2965e-05_jprb,3.5662e-05_jprb,&
 & 5.5652e-05_jprb,9.9078e-05_jprb,2.5677e-05_jprb/)  
kao( :, 2, 7, 2) = (/&
 & 7.2172e-07_jprb,4.0179e-06_jprb,8.3376e-06_jprb,1.4853e-05_jprb,2.4331e-05_jprb,3.6364e-05_jprb,&
 & 5.7791e-05_jprb,1.0563e-04_jprb,2.9556e-05_jprb/)  
kao( :, 3, 7, 2) = (/&
 & 1.0201e-06_jprb,4.7217e-06_jprb,9.3095e-06_jprb,1.5083e-05_jprb,2.5365e-05_jprb,3.7347e-05_jprb,&
 & 5.8190e-05_jprb,1.0603e-04_jprb,3.3998e-05_jprb/)  
kao( :, 4, 7, 2) = (/&
 & 1.4537e-06_jprb,6.1748e-06_jprb,1.0020e-05_jprb,1.6138e-05_jprb,2.3962e-05_jprb,3.7967e-05_jprb,&
 & 5.8451e-05_jprb,1.0372e-04_jprb,3.9119e-05_jprb/)  
kao( :, 5, 7, 2) = (/&
 & 2.0693e-06_jprb,8.4363e-06_jprb,1.1705e-05_jprb,1.7001e-05_jprb,2.5826e-05_jprb,3.5527e-05_jprb,&
 & 5.8296e-05_jprb,1.0385e-04_jprb,4.4936e-05_jprb/)  
kao( :, 1, 8, 2) = (/&
 & 4.1700e-07_jprb,2.7639e-06_jprb,6.4938e-06_jprb,1.1630e-05_jprb,1.8371e-05_jprb,2.7706e-05_jprb,&
 & 4.4850e-05_jprb,8.0696e-05_jprb,3.5956e-05_jprb/)  
kao( :, 2, 8, 2) = (/&
 & 5.6411e-07_jprb,3.1556e-06_jprb,6.9457e-06_jprb,1.2120e-05_jprb,1.9397e-05_jprb,2.9581e-05_jprb,&
 & 4.6513e-05_jprb,8.4727e-05_jprb,4.2511e-05_jprb/)  
kao( :, 3, 8, 2) = (/&
 & 7.8647e-07_jprb,3.6535e-06_jprb,7.3255e-06_jprb,1.2353e-05_jprb,2.0079e-05_jprb,3.0844e-05_jprb,&
 & 4.7401e-05_jprb,8.6525e-05_jprb,4.9724e-05_jprb/)  
kao( :, 4, 8, 2) = (/&
 & 1.1061e-06_jprb,4.5424e-06_jprb,7.9917e-06_jprb,1.3185e-05_jprb,1.9791e-05_jprb,3.2038e-05_jprb,&
 & 4.8054e-05_jprb,8.5457e-05_jprb,5.7233e-05_jprb/)  
kao( :, 5, 8, 2) = (/&
 & 1.5569e-06_jprb,6.0599e-06_jprb,9.0209e-06_jprb,1.3990e-05_jprb,2.0815e-05_jprb,3.0475e-05_jprb,&
 & 4.9899e-05_jprb,8.4659e-05_jprb,6.5356e-05_jprb/)  
kao( :, 1, 9, 2) = (/&
 & 3.4646e-07_jprb,2.3339e-06_jprb,5.2376e-06_jprb,9.2182e-06_jprb,1.4337e-05_jprb,2.2490e-05_jprb,&
 & 3.6396e-05_jprb,6.1412e-05_jprb,1.0490e-04_jprb/)  
kao( :, 2, 9, 2) = (/&
 & 4.5919e-07_jprb,2.4585e-06_jprb,5.5676e-06_jprb,9.8533e-06_jprb,1.5559e-05_jprb,2.3683e-05_jprb,&
 & 3.6999e-05_jprb,7.0677e-05_jprb,1.2405e-04_jprb/)  
kao( :, 3, 9, 2) = (/&
 & 6.2898e-07_jprb,2.9262e-06_jprb,5.8022e-06_jprb,1.0344e-05_jprb,1.6840e-05_jprb,2.4691e-05_jprb,&
 & 3.8818e-05_jprb,7.0031e-05_jprb,1.4290e-04_jprb/)  
kao( :, 4, 9, 2) = (/&
 & 8.7625e-07_jprb,3.4474e-06_jprb,6.4904e-06_jprb,1.0589e-05_jprb,1.7378e-05_jprb,2.5849e-05_jprb,&
 & 3.9400e-05_jprb,7.0716e-05_jprb,1.6112e-04_jprb/)  
kao( :, 5, 9, 2) = (/&
 & 1.2209e-06_jprb,4.4922e-06_jprb,7.0958e-06_jprb,1.1298e-05_jprb,1.6936e-05_jprb,2.6020e-05_jprb,&
 & 4.0325e-05_jprb,7.2083e-05_jprb,1.7893e-04_jprb/)  
kao( :, 1,10, 2) = (/&
 & 3.1214e-07_jprb,1.9536e-06_jprb,4.2576e-06_jprb,7.3396e-06_jprb,1.1621e-05_jprb,1.8021e-05_jprb,&
 & 2.8013e-05_jprb,4.7749e-05_jprb,4.9962e-04_jprb/)  
kao( :, 2,10, 2) = (/&
 & 4.0887e-07_jprb,2.0598e-06_jprb,4.7149e-06_jprb,8.0606e-06_jprb,1.2573e-05_jprb,1.8809e-05_jprb,&
 & 3.0275e-05_jprb,5.6188e-05_jprb,5.8548e-04_jprb/)  
kao( :, 3,10, 2) = (/&
 & 5.5155e-07_jprb,2.4175e-06_jprb,4.9545e-06_jprb,8.5941e-06_jprb,1.3457e-05_jprb,2.0204e-05_jprb,&
 & 3.1138e-05_jprb,5.6286e-05_jprb,6.6291e-04_jprb/)  
kao( :, 4,10, 2) = (/&
 & 7.5650e-07_jprb,2.8298e-06_jprb,5.3256e-06_jprb,8.7402e-06_jprb,1.3978e-05_jprb,2.1601e-05_jprb,&
 & 3.2082e-05_jprb,5.7693e-05_jprb,7.2972e-04_jprb/)  
kao( :, 5,10, 2) = (/&
 & 1.0427e-06_jprb,3.5400e-06_jprb,5.8501e-06_jprb,9.4137e-06_jprb,1.4055e-05_jprb,2.2092e-05_jprb,&
 & 3.3371e-05_jprb,5.7680e-05_jprb,7.8611e-04_jprb/)  
kao( :, 1,11, 2) = (/&
 & 3.2074e-07_jprb,1.7276e-06_jprb,3.6239e-06_jprb,6.1854e-06_jprb,9.6607e-06_jprb,1.4993e-05_jprb,&
 & 2.3443e-05_jprb,4.1061e-05_jprb,1.0142e-03_jprb/)  
kao( :, 2,11, 2) = (/&
 & 4.2113e-07_jprb,1.8116e-06_jprb,4.1199e-06_jprb,6.7716e-06_jprb,1.0543e-05_jprb,1.5526e-05_jprb,&
 & 2.4849e-05_jprb,4.5454e-05_jprb,1.1742e-03_jprb/)  
kao( :, 3,11, 2) = (/&
 & 5.6514e-07_jprb,2.1552e-06_jprb,4.2148e-06_jprb,7.3585e-06_jprb,1.1239e-05_jprb,1.6846e-05_jprb,&
 & 2.5655e-05_jprb,4.5531e-05_jprb,1.3139e-03_jprb/)  
kao( :, 4,11, 2) = (/&
 & 7.6814e-07_jprb,2.5322e-06_jprb,4.6852e-06_jprb,7.3538e-06_jprb,1.1830e-05_jprb,1.8155e-05_jprb,&
 & 2.6824e-05_jprb,4.7139e-05_jprb,1.4305e-03_jprb/)  
kao( :, 5,11, 2) = (/&
 & 1.0464e-06_jprb,3.2313e-06_jprb,5.0889e-06_jprb,8.1260e-06_jprb,1.1741e-05_jprb,1.8567e-05_jprb,&
 & 2.7673e-05_jprb,4.7684e-05_jprb,1.5261e-03_jprb/)  
kao( :, 1,12, 2) = (/&
 & 3.0483e-07_jprb,1.4986e-06_jprb,3.1036e-06_jprb,5.2551e-06_jprb,7.9883e-06_jprb,1.2411e-05_jprb,&
 & 1.9208e-05_jprb,3.3894e-05_jprb,1.3243e-03_jprb/)  
kao( :, 2,12, 2) = (/&
 & 4.0026e-07_jprb,1.5746e-06_jprb,3.5034e-06_jprb,5.7409e-06_jprb,8.9248e-06_jprb,1.2928e-05_jprb,&
 & 2.0014e-05_jprb,3.7406e-05_jprb,1.5202e-03_jprb/)  
kao( :, 3,12, 2) = (/&
 & 5.3553e-07_jprb,1.8879e-06_jprb,3.5598e-06_jprb,6.2204e-06_jprb,9.4506e-06_jprb,1.4131e-05_jprb,&
 & 2.1193e-05_jprb,3.7290e-05_jprb,1.6892e-03_jprb/)  
kao( :, 4,12, 2) = (/&
 & 7.2441e-07_jprb,2.2261e-06_jprb,4.0611e-06_jprb,6.2008e-06_jprb,9.9865e-06_jprb,1.4941e-05_jprb,&
 & 2.2423e-05_jprb,3.8766e-05_jprb,1.8301e-03_jprb/)  
kao( :, 5,12, 2) = (/&
 & 9.8233e-07_jprb,2.8782e-06_jprb,4.3585e-06_jprb,6.9707e-06_jprb,9.7990e-06_jprb,1.5463e-05_jprb,&
 & 2.2949e-05_jprb,3.9658e-05_jprb,1.9441e-03_jprb/)  
kao( :, 1,13, 2) = (/&
 & 2.9003e-07_jprb,1.3003e-06_jprb,2.6851e-06_jprb,4.4901e-06_jprb,6.6847e-06_jprb,1.0336e-05_jprb,&
 & 1.6084e-05_jprb,2.8206e-05_jprb,1.3971e-03_jprb/)  
kao( :, 2,13, 2) = (/&
 & 3.7990e-07_jprb,1.3887e-06_jprb,2.9888e-06_jprb,4.8895e-06_jprb,7.4887e-06_jprb,1.0848e-05_jprb,&
 & 1.6497e-05_jprb,3.0927e-05_jprb,1.5951e-03_jprb/)  
kao( :, 3,13, 2) = (/&
 & 5.0572e-07_jprb,1.6533e-06_jprb,3.0166e-06_jprb,5.2825e-06_jprb,8.0084e-06_jprb,1.1877e-05_jprb,&
 & 1.7766e-05_jprb,3.0474e-05_jprb,1.7653e-03_jprb/)  
kao( :, 4,13, 2) = (/&
 & 6.7947e-07_jprb,1.9700e-06_jprb,3.4410e-06_jprb,5.2325e-06_jprb,8.4395e-06_jprb,1.2460e-05_jprb,&
 & 1.8625e-05_jprb,3.2158e-05_jprb,1.9067e-03_jprb/)  
kao( :, 5,13, 2) = (/&
 & 9.1576e-07_jprb,2.5777e-06_jprb,3.7459e-06_jprb,5.9026e-06_jprb,8.2962e-06_jprb,1.2772e-05_jprb,&
 & 1.8972e-05_jprb,3.2948e-05_jprb,2.0202e-03_jprb/)  
kao( :, 1, 1, 3) = (/&
 & 1.2955e-05_jprb,5.0522e-05_jprb,7.1945e-05_jprb,8.6154e-05_jprb,1.0208e-04_jprb,1.2598e-04_jprb,&
 & 1.9123e-04_jprb,3.6418e-04_jprb,1.3186e-04_jprb/)  
kao( :, 2, 1, 3) = (/&
 & 1.9287e-05_jprb,7.0010e-05_jprb,9.9593e-05_jprb,1.2286e-04_jprb,1.3525e-04_jprb,1.5548e-04_jprb,&
 & 2.0918e-04_jprb,3.4739e-04_jprb,1.7322e-04_jprb/)  
kao( :, 3, 1, 3) = (/&
 & 2.7759e-05_jprb,9.4510e-05_jprb,1.3259e-04_jprb,1.6366e-04_jprb,1.8879e-04_jprb,2.0943e-04_jprb,&
 & 2.3157e-04_jprb,3.4811e-04_jprb,1.6150e-04_jprb/)  
kao( :, 4, 1, 3) = (/&
 & 3.8738e-05_jprb,1.2422e-04_jprb,1.7221e-04_jprb,2.0992e-04_jprb,2.4272e-04_jprb,2.7453e-04_jprb,&
 & 3.1488e-04_jprb,3.8180e-04_jprb,1.6247e-04_jprb/)  
kao( :, 5, 1, 3) = (/&
 & 5.2551e-05_jprb,1.5948e-04_jprb,2.1800e-04_jprb,2.6091e-04_jprb,2.8985e-04_jprb,3.1670e-04_jprb,&
 & 3.5730e-04_jprb,5.0275e-04_jprb,1.6769e-04_jprb/)  
kao( :, 1, 2, 3) = (/&
 & 1.0215e-05_jprb,3.8380e-05_jprb,5.3048e-05_jprb,6.6381e-05_jprb,7.9446e-05_jprb,1.0242e-04_jprb,&
 & 1.6771e-04_jprb,3.2794e-04_jprb,9.6316e-05_jprb/)  
kao( :, 2, 2, 3) = (/&
 & 1.5451e-05_jprb,5.4104e-05_jprb,7.5600e-05_jprb,9.3324e-05_jprb,1.0289e-04_jprb,1.2339e-04_jprb,&
 & 1.5508e-04_jprb,2.9561e-04_jprb,1.1950e-04_jprb/)  
kao( :, 3, 2, 3) = (/&
 & 2.2597e-05_jprb,7.3963e-05_jprb,1.0253e-04_jprb,1.2549e-04_jprb,1.4695e-04_jprb,1.5501e-04_jprb,&
 & 1.8766e-04_jprb,2.7580e-04_jprb,1.1963e-04_jprb/)  
kao( :, 4, 2, 3) = (/&
 & 3.1981e-05_jprb,9.8266e-05_jprb,1.3455e-04_jprb,1.6363e-04_jprb,1.9057e-04_jprb,2.1405e-04_jprb,&
 & 2.4009e-04_jprb,3.0871e-04_jprb,1.1944e-04_jprb/)  
kao( :, 5, 2, 3) = (/&
 & 4.3949e-05_jprb,1.2724e-04_jprb,1.7210e-04_jprb,2.0576e-04_jprb,2.2967e-04_jprb,2.5641e-04_jprb,&
 & 2.9387e-04_jprb,3.8545e-04_jprb,1.2834e-04_jprb/)  
kao( :, 1, 3, 3) = (/&
 & 7.2365e-06_jprb,2.6998e-05_jprb,3.6477e-05_jprb,4.7217e-05_jprb,5.6642e-05_jprb,8.7936e-05_jprb,&
 & 1.4529e-04_jprb,2.7769e-04_jprb,6.9628e-05_jprb/)  
kao( :, 2, 3, 3) = (/&
 & 1.1199e-05_jprb,3.9041e-05_jprb,5.3564e-05_jprb,6.4272e-05_jprb,7.6774e-05_jprb,9.0855e-05_jprb,&
 & 1.2382e-04_jprb,2.6260e-04_jprb,7.7539e-05_jprb/)  
kao( :, 3, 3, 3) = (/&
 & 1.6746e-05_jprb,5.4459e-05_jprb,7.4537e-05_jprb,8.9917e-05_jprb,1.0355e-04_jprb,1.1572e-04_jprb,&
 & 1.4649e-04_jprb,2.2179e-04_jprb,7.9988e-05_jprb/)  
kao( :, 4, 3, 3) = (/&
 & 2.4191e-05_jprb,7.3480e-05_jprb,9.9615e-05_jprb,1.2140e-04_jprb,1.3959e-04_jprb,1.5714e-04_jprb,&
 & 1.6549e-04_jprb,2.4024e-04_jprb,8.5666e-05_jprb/)  
kao( :, 5, 3, 3) = (/&
 & 3.3870e-05_jprb,9.6615e-05_jprb,1.2939e-04_jprb,1.5483e-04_jprb,1.7605e-04_jprb,2.0033e-04_jprb,&
 & 2.2747e-04_jprb,2.7100e-04_jprb,9.7295e-05_jprb/)  
kao( :, 1, 4, 3) = (/&
 & 4.9164e-06_jprb,1.8370e-05_jprb,2.4721e-05_jprb,3.3121e-05_jprb,4.7620e-05_jprb,7.5266e-05_jprb,&
 & 1.2052e-04_jprb,2.1534e-04_jprb,5.2534e-05_jprb/)  
kao( :, 2, 4, 3) = (/&
 & 7.7659e-06_jprb,2.7326e-05_jprb,3.6365e-05_jprb,4.5331e-05_jprb,5.4377e-05_jprb,7.0048e-05_jprb,&
 & 1.1606e-04_jprb,2.2356e-04_jprb,5.6606e-05_jprb/)  
kao( :, 3, 4, 3) = (/&
 & 1.1872e-05_jprb,3.9091e-05_jprb,5.2753e-05_jprb,6.2810e-05_jprb,7.2334e-05_jprb,8.5510e-05_jprb,&
 & 1.0655e-04_jprb,2.0132e-04_jprb,6.1013e-05_jprb/)  
kao( :, 4, 4, 3) = (/&
 & 1.7537e-05_jprb,5.3794e-05_jprb,7.2225e-05_jprb,8.6566e-05_jprb,1.0009e-04_jprb,1.0905e-04_jprb,&
 & 1.2927e-04_jprb,1.7979e-04_jprb,6.7247e-05_jprb/)  
kao( :, 5, 4, 3) = (/&
 & 2.5077e-05_jprb,7.1949e-05_jprb,9.5586e-05_jprb,1.1422e-04_jprb,1.3046e-04_jprb,1.4874e-04_jprb,&
 & 1.6151e-04_jprb,2.1004e-04_jprb,7.8070e-05_jprb/)  
kao( :, 1, 5, 3) = (/&
 & 3.3274e-06_jprb,1.2413e-05_jprb,1.6893e-05_jprb,2.5297e-05_jprb,3.9702e-05_jprb,6.2471e-05_jprb,&
 & 9.4799e-05_jprb,1.7379e-04_jprb,4.3352e-05_jprb/)  
kao( :, 2, 5, 3) = (/&
 & 5.3144e-06_jprb,1.8924e-05_jprb,2.4595e-05_jprb,3.1378e-05_jprb,3.9382e-05_jprb,6.2226e-05_jprb,&
 & 9.6051e-05_jprb,1.8141e-04_jprb,4.9071e-05_jprb/)  
kao( :, 3, 5, 3) = (/&
 & 8.2729e-06_jprb,2.7735e-05_jprb,3.6853e-05_jprb,4.3473e-05_jprb,5.3077e-05_jprb,6.0111e-05_jprb,&
 & 8.8205e-05_jprb,1.7170e-04_jprb,5.3581e-05_jprb/)  
kao( :, 4, 5, 3) = (/&
 & 1.2483e-05_jprb,3.8936e-05_jprb,5.1944e-05_jprb,6.0771e-05_jprb,7.0416e-05_jprb,8.1406e-05_jprb,&
 & 9.7912e-05_jprb,1.4624e-04_jprb,6.0502e-05_jprb/)  
kao( :, 5, 5, 3) = (/&
 & 1.8234e-05_jprb,5.2997e-05_jprb,7.0214e-05_jprb,8.3889e-05_jprb,9.4583e-05_jprb,1.0646e-04_jprb,&
 & 1.1645e-04_jprb,1.6664e-04_jprb,6.9524e-05_jprb/)  
kao( :, 1, 6, 3) = (/&
 & 2.2627e-06_jprb,8.2256e-06_jprb,1.2662e-05_jprb,2.0881e-05_jprb,3.2287e-05_jprb,4.9842e-05_jprb,&
 & 7.8514e-05_jprb,1.5143e-04_jprb,4.2185e-05_jprb/)  
kao( :, 2, 6, 3) = (/&
 & 3.5902e-06_jprb,1.2715e-05_jprb,1.6777e-05_jprb,2.2883e-05_jprb,3.3890e-05_jprb,5.0807e-05_jprb,&
 & 8.0753e-05_jprb,1.4463e-04_jprb,4.8590e-05_jprb/)  
kao( :, 3, 6, 3) = (/&
 & 5.6436e-06_jprb,1.9109e-05_jprb,2.4998e-05_jprb,3.0305e-05_jprb,3.7831e-05_jprb,4.7255e-05_jprb,&
 & 7.8945e-05_jprb,1.4406e-04_jprb,5.5296e-05_jprb/)  
kao( :, 4, 6, 3) = (/&
 & 8.6680e-06_jprb,2.7468e-05_jprb,3.6416e-05_jprb,4.2070e-05_jprb,4.9055e-05_jprb,5.8245e-05_jprb,&
 & 7.2889e-05_jprb,1.3759e-04_jprb,6.2699e-05_jprb/)  
kao( :, 5, 6, 3) = (/&
 & 1.2910e-05_jprb,3.8070e-05_jprb,5.0552e-05_jprb,5.9531e-05_jprb,6.5990e-05_jprb,7.5485e-05_jprb,&
 & 9.0151e-05_jprb,1.2519e-04_jprb,7.1158e-05_jprb/)  
kao( :, 1, 7, 3) = (/&
 & 1.6260e-06_jprb,5.6512e-06_jprb,1.0534e-05_jprb,1.6548e-05_jprb,2.5722e-05_jprb,3.9212e-05_jprb,&
 & 6.5255e-05_jprb,1.1642e-04_jprb,4.8396e-05_jprb/)  
kao( :, 2, 7, 3) = (/&
 & 2.4977e-06_jprb,8.5111e-06_jprb,1.1552e-05_jprb,1.8620e-05_jprb,2.6964e-05_jprb,4.1086e-05_jprb,&
 & 6.5326e-05_jprb,1.2038e-04_jprb,5.6755e-05_jprb/)  
kao( :, 3, 7, 3) = (/&
 & 3.8937e-06_jprb,1.3083e-05_jprb,1.6837e-05_jprb,2.1037e-05_jprb,2.8103e-05_jprb,4.1971e-05_jprb,&
 & 6.4916e-05_jprb,1.2035e-04_jprb,6.5643e-05_jprb/)  
kao( :, 4, 7, 3) = (/&
 & 6.0131e-06_jprb,1.9182e-05_jprb,2.5262e-05_jprb,2.9578e-05_jprb,3.5380e-05_jprb,4.1824e-05_jprb,&
 & 6.4389e-05_jprb,1.1625e-04_jprb,7.5112e-05_jprb/)  
kao( :, 5, 7, 3) = (/&
 & 9.0775e-06_jprb,2.7049e-05_jprb,3.5910e-05_jprb,4.1673e-05_jprb,4.7430e-05_jprb,5.6675e-05_jprb,&
 & 6.4662e-05_jprb,1.0376e-04_jprb,8.5479e-05_jprb/)  
kao( :, 1, 8, 3) = (/&
 & 1.2762e-06_jprb,4.2855e-06_jprb,8.2820e-06_jprb,1.3051e-05_jprb,1.9907e-05_jprb,3.3971e-05_jprb,&
 & 5.0446e-05_jprb,8.6971e-05_jprb,7.7745e-05_jprb/)  
kao( :, 2, 8, 3) = (/&
 & 1.8844e-06_jprb,5.9050e-06_jprb,8.9489e-06_jprb,1.4806e-05_jprb,2.1839e-05_jprb,3.2608e-05_jprb,&
 & 5.2540e-05_jprb,9.7610e-05_jprb,8.9498e-05_jprb/)  
kao( :, 3, 8, 3) = (/&
 & 2.8385e-06_jprb,8.9737e-06_jprb,1.1895e-05_jprb,1.5870e-05_jprb,2.4156e-05_jprb,3.3906e-05_jprb,&
 & 5.3605e-05_jprb,9.6849e-05_jprb,1.0287e-04_jprb/)  
kao( :, 4, 8, 3) = (/&
 & 4.3106e-06_jprb,1.3404e-05_jprb,1.7498e-05_jprb,2.1009e-05_jprb,2.6036e-05_jprb,3.4758e-05_jprb,&
 & 5.4115e-05_jprb,9.7671e-05_jprb,1.1774e-04_jprb/)  
kao( :, 5, 8, 3) = (/&
 & 6.4933e-06_jprb,1.9198e-05_jprb,2.5108e-05_jprb,2.9532e-05_jprb,3.3547e-05_jprb,4.0870e-05_jprb,&
 & 5.0672e-05_jprb,9.4048e-05_jprb,1.3326e-04_jprb/)  
kao( :, 1, 9, 3) = (/&
 & 1.0706e-06_jprb,3.3489e-06_jprb,6.5283e-06_jprb,1.0192e-05_jprb,1.7278e-05_jprb,2.6238e-05_jprb,&
 & 3.9041e-05_jprb,7.0346e-05_jprb,2.7103e-04_jprb/)  
kao( :, 2, 9, 3) = (/&
 & 1.5238e-06_jprb,4.4647e-06_jprb,7.4896e-06_jprb,1.1805e-05_jprb,1.7404e-05_jprb,2.6241e-05_jprb,&
 & 4.5076e-05_jprb,7.3357e-05_jprb,3.0478e-04_jprb/)  
kao( :, 3, 9, 3) = (/&
 & 2.2245e-06_jprb,6.3482e-06_jprb,8.7814e-06_jprb,1.3182e-05_jprb,1.8649e-05_jprb,2.8139e-05_jprb,&
 & 4.2432e-05_jprb,8.1918e-05_jprb,3.3943e-04_jprb/)  
kao( :, 4, 9, 3) = (/&
 & 3.2853e-06_jprb,9.5377e-06_jprb,1.2081e-05_jprb,1.5048e-05_jprb,2.0438e-05_jprb,2.9250e-05_jprb,&
 & 4.4492e-05_jprb,8.0054e-05_jprb,3.7569e-04_jprb/)  
kao( :, 5, 9, 3) = (/&
 & 4.8340e-06_jprb,1.3704e-05_jprb,1.7727e-05_jprb,2.0846e-05_jprb,2.4389e-05_jprb,3.0169e-05_jprb,&
 & 4.5558e-05_jprb,7.6780e-05_jprb,4.1363e-04_jprb/)  
kao( :, 1,10, 3) = (/&
 & 1.0087e-06_jprb,2.8522e-06_jprb,5.3847e-06_jprb,8.7589e-06_jprb,1.3656e-05_jprb,2.0793e-05_jprb,&
 & 3.0265e-05_jprb,5.6466e-05_jprb,1.4467e-03_jprb/)  
kao( :, 2,10, 3) = (/&
 & 1.3893e-06_jprb,3.6572e-06_jprb,6.0381e-06_jprb,9.5656e-06_jprb,1.3744e-05_jprb,2.2378e-05_jprb,&
 & 3.6073e-05_jprb,5.8999e-05_jprb,1.6134e-03_jprb/)  
kao( :, 3,10, 3) = (/&
 & 1.9601e-06_jprb,4.9746e-06_jprb,7.1675e-06_jprb,1.0782e-05_jprb,1.5548e-05_jprb,2.2425e-05_jprb,&
 & 3.4813e-05_jprb,6.8188e-05_jprb,1.7742e-03_jprb/)  
kao( :, 4,10, 3) = (/&
 & 2.8046e-06_jprb,7.3061e-06_jprb,9.2760e-06_jprb,1.2016e-05_jprb,1.7674e-05_jprb,2.3526e-05_jprb,&
 & 3.6626e-05_jprb,6.3451e-05_jprb,1.9257e-03_jprb/)  
kao( :, 5,10, 3) = (/&
 & 4.0204e-06_jprb,1.0448e-05_jprb,1.3168e-05_jprb,1.5711e-05_jprb,1.8780e-05_jprb,2.5290e-05_jprb,&
 & 3.7179e-05_jprb,6.5468e-05_jprb,2.0654e-03_jprb/)  
kao( :, 1,11, 3) = (/&
 & 1.1167e-06_jprb,2.7196e-06_jprb,4.8414e-06_jprb,7.5750e-06_jprb,1.1619e-05_jprb,1.6844e-05_jprb,&
 & 2.5920e-05_jprb,4.2497e-05_jprb,3.0648e-03_jprb/)  
kao( :, 2,11, 3) = (/&
 & 1.5177e-06_jprb,3.5342e-06_jprb,5.4336e-06_jprb,8.4346e-06_jprb,1.1729e-05_jprb,1.8362e-05_jprb,&
 & 2.9194e-05_jprb,5.0129e-05_jprb,3.3976e-03_jprb/)  
kao( :, 3,11, 3) = (/&
 & 2.0984e-06_jprb,4.8006e-06_jprb,6.5451e-06_jprb,9.5029e-06_jprb,1.3465e-05_jprb,1.9020e-05_jprb,&
 & 2.8692e-05_jprb,5.7928e-05_jprb,3.7050e-03_jprb/)  
kao( :, 4,11, 3) = (/&
 & 2.9335e-06_jprb,6.8708e-06_jprb,8.4101e-06_jprb,1.0863e-05_jprb,1.4762e-05_jprb,2.0091e-05_jprb,&
 & 3.0371e-05_jprb,5.2028e-05_jprb,3.9809e-03_jprb/)  

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


SUBROUTINE part3

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


kao( :, 5,11, 3) = (/&
 & 4.1000e-06_jprb,9.6543e-06_jprb,1.1857e-05_jprb,1.3714e-05_jprb,1.6526e-05_jprb,2.1427e-05_jprb,&
 & 3.1464e-05_jprb,5.4245e-05_jprb,4.2143e-03_jprb/)  
kao( :, 1,12, 3) = (/&
 & 1.1265e-06_jprb,2.5186e-06_jprb,4.3674e-06_jprb,6.5192e-06_jprb,9.8193e-06_jprb,1.4195e-05_jprb,&
 & 2.1669e-05_jprb,3.5591e-05_jprb,4.1354e-03_jprb/)  
kao( :, 2,12, 3) = (/&
 & 1.5273e-06_jprb,3.2471e-06_jprb,4.8453e-06_jprb,7.4929e-06_jprb,9.9333e-06_jprb,1.5224e-05_jprb,&
 & 2.4490e-05_jprb,4.2520e-05_jprb,4.5631e-03_jprb/)  
kao( :, 3,12, 3) = (/&
 & 2.0931e-06_jprb,4.4632e-06_jprb,5.8990e-06_jprb,8.1723e-06_jprb,1.1637e-05_jprb,1.5989e-05_jprb,&
 & 2.3803e-05_jprb,4.4958e-05_jprb,4.9406e-03_jprb/)  
kao( :, 4,12, 3) = (/&
 & 2.8927e-06_jprb,6.3250e-06_jprb,7.6186e-06_jprb,9.4669e-06_jprb,1.2563e-05_jprb,1.7445e-05_jprb,&
 & 2.5222e-05_jprb,4.2668e-05_jprb,5.2603e-03_jprb/)  
kao( :, 5,12, 3) = (/&
 & 3.9848e-06_jprb,8.7921e-06_jprb,1.0605e-05_jprb,1.2004e-05_jprb,1.4341e-05_jprb,1.8049e-05_jprb,&
 & 2.6521e-05_jprb,4.4754e-05_jprb,5.5165e-03_jprb/)  
kao( :, 1,13, 3) = (/&
 & 1.1328e-06_jprb,2.3238e-06_jprb,3.9430e-06_jprb,5.6932e-06_jprb,8.4038e-06_jprb,1.1800e-05_jprb,&
 & 1.7829e-05_jprb,3.0820e-05_jprb,4.4819e-03_jprb/)  
kao( :, 2,13, 3) = (/&
 & 1.5311e-06_jprb,3.0098e-06_jprb,4.3521e-06_jprb,6.6679e-06_jprb,8.7081e-06_jprb,1.2897e-05_jprb,&
 & 1.9883e-05_jprb,3.4493e-05_jprb,4.9164e-03_jprb/)  
kao( :, 3,13, 3) = (/&
 & 2.0853e-06_jprb,4.1223e-06_jprb,5.4114e-06_jprb,7.2554e-06_jprb,1.0229e-05_jprb,1.3641e-05_jprb,&
 & 1.9729e-05_jprb,3.6438e-05_jprb,5.2852e-03_jprb/)  
kao( :, 4,13, 3) = (/&
 & 2.8506e-06_jprb,5.8568e-06_jprb,6.9938e-06_jprb,8.4840e-06_jprb,1.0942e-05_jprb,1.5066e-05_jprb,&
 & 2.1270e-05_jprb,3.5313e-05_jprb,5.5871e-03_jprb/)  
kao( :, 5,13, 3) = (/&
 & 3.8711e-06_jprb,8.0712e-06_jprb,9.6159e-06_jprb,1.0719e-05_jprb,1.2561e-05_jprb,1.5293e-05_jprb,&
 & 2.2681e-05_jprb,3.7058e-05_jprb,5.8266e-03_jprb/)  
kao( :, 1, 1, 4) = (/&
 & 7.4893e-05_jprb,1.7660e-04_jprb,2.0743e-04_jprb,2.2345e-04_jprb,2.5541e-04_jprb,3.0113e-04_jprb,&
 & 4.0065e-04_jprb,5.1140e-04_jprb,1.9420e-04_jprb/)  
kao( :, 2, 1, 4) = (/&
 & 1.0396e-04_jprb,2.3012e-04_jprb,2.6622e-04_jprb,2.8243e-04_jprb,2.9424e-04_jprb,3.3000e-04_jprb,&
 & 4.1387e-04_jprb,6.5618e-04_jprb,1.7248e-04_jprb/)  
kao( :, 3, 1, 4) = (/&
 & 1.3874e-04_jprb,2.9171e-04_jprb,3.3413e-04_jprb,3.5198e-04_jprb,3.5734e-04_jprb,3.6401e-04_jprb,&
 & 4.2489e-04_jprb,6.4403e-04_jprb,1.9641e-04_jprb/)  
kao( :, 4, 1, 4) = (/&
 & 1.7941e-04_jprb,3.6434e-04_jprb,4.1317e-04_jprb,4.3271e-04_jprb,4.3728e-04_jprb,4.3279e-04_jprb,&
 & 4.4184e-04_jprb,6.1293e-04_jprb,2.4660e-04_jprb/)  
kao( :, 5, 1, 4) = (/&
 & 2.2524e-04_jprb,4.4700e-04_jprb,5.0389e-04_jprb,5.2899e-04_jprb,5.4228e-04_jprb,5.4473e-04_jprb,&
 & 5.3368e-04_jprb,5.6423e-04_jprb,3.1492e-04_jprb/)  
kao( :, 1, 2, 4) = (/&
 & 5.8910e-05_jprb,1.3730e-04_jprb,1.6111e-04_jprb,1.7338e-04_jprb,1.9974e-04_jprb,2.3614e-04_jprb,&
 & 3.1448e-04_jprb,3.8866e-04_jprb,1.4405e-04_jprb/)  
kao( :, 2, 2, 4) = (/&
 & 8.3036e-05_jprb,1.8135e-04_jprb,2.0964e-04_jprb,2.2070e-04_jprb,2.3158e-04_jprb,2.7057e-04_jprb,&
 & 3.3372e-04_jprb,5.4726e-04_jprb,1.2817e-04_jprb/)  
kao( :, 3, 2, 4) = (/&
 & 1.1213e-04_jprb,2.3284e-04_jprb,2.6662e-04_jprb,2.8050e-04_jprb,2.8374e-04_jprb,2.9072e-04_jprb,&
 & 3.5956e-04_jprb,5.3062e-04_jprb,1.4567e-04_jprb/)  
kao( :, 4, 2, 4) = (/&
 & 1.4639e-04_jprb,2.9331e-04_jprb,3.3229e-04_jprb,3.4773e-04_jprb,3.4771e-04_jprb,3.4598e-04_jprb,&
 & 3.5609e-04_jprb,5.3796e-04_jprb,1.8917e-04_jprb/)  
kao( :, 5, 2, 4) = (/&
 & 1.8573e-04_jprb,3.6333e-04_jprb,4.0899e-04_jprb,4.2805e-04_jprb,4.3596e-04_jprb,4.3023e-04_jprb,&
 & 4.2036e-04_jprb,4.7310e-04_jprb,2.4106e-04_jprb/)  
kao( :, 1, 3, 4) = (/&
 & 4.2697e-05_jprb,9.9737e-05_jprb,1.1762e-04_jprb,1.3175e-04_jprb,1.5206e-04_jprb,1.7738e-04_jprb,&
 & 2.2461e-04_jprb,3.0012e-04_jprb,9.0760e-05_jprb/)  
kao( :, 2, 3, 4) = (/&
 & 6.1628e-05_jprb,1.3453e-04_jprb,1.5553e-04_jprb,1.6395e-04_jprb,1.7863e-04_jprb,2.1026e-04_jprb,&
 & 2.6559e-04_jprb,4.0665e-04_jprb,9.5213e-05_jprb/)  
kao( :, 3, 3, 4) = (/&
 & 8.5155e-05_jprb,1.7580e-04_jprb,2.0156e-04_jprb,2.1203e-04_jprb,2.1267e-04_jprb,2.2935e-04_jprb,&
 & 2.8279e-04_jprb,4.3028e-04_jprb,1.1265e-04_jprb/)  
kao( :, 4, 3, 4) = (/&
 & 1.1317e-04_jprb,2.2386e-04_jprb,2.5438e-04_jprb,2.6544e-04_jprb,2.6602e-04_jprb,2.6653e-04_jprb,&
 & 2.9745e-04_jprb,4.2745e-04_jprb,1.4173e-04_jprb/)  
kao( :, 5, 3, 4) = (/&
 & 1.4597e-04_jprb,2.8045e-04_jprb,3.1649e-04_jprb,3.3077e-04_jprb,3.3240e-04_jprb,3.2175e-04_jprb,&
 & 3.2192e-04_jprb,4.1153e-04_jprb,1.7765e-04_jprb/)  
kao( :, 1, 4, 4) = (/&
 & 2.9896e-05_jprb,7.0709e-05_jprb,8.4360e-05_jprb,9.7466e-05_jprb,1.0874e-04_jprb,1.3074e-04_jprb,&
 & 1.6227e-04_jprb,2.5464e-04_jprb,6.8134e-05_jprb/)  
kao( :, 2, 4, 4) = (/&
 & 4.4341e-05_jprb,9.6962e-05_jprb,1.1247e-04_jprb,1.1929e-04_jprb,1.3785e-04_jprb,1.5834e-04_jprb,&
 & 2.0071e-04_jprb,2.9189e-04_jprb,7.8206e-05_jprb/)  
kao( :, 3, 4, 4) = (/&
 & 6.2914e-05_jprb,1.2902e-04_jprb,1.4817e-04_jprb,1.5527e-04_jprb,1.5849e-04_jprb,1.8569e-04_jprb,&
 & 2.2497e-04_jprb,3.4124e-04_jprb,9.0845e-05_jprb/)  
kao( :, 4, 4, 4) = (/&
 & 8.5677e-05_jprb,1.6689e-04_jprb,1.9068e-04_jprb,1.9916e-04_jprb,1.9978e-04_jprb,2.0155e-04_jprb,&
 & 2.4936e-04_jprb,3.5340e-04_jprb,1.0988e-04_jprb/)  
kao( :, 5, 4, 4) = (/&
 & 1.1242e-04_jprb,2.1149e-04_jprb,2.3915e-04_jprb,2.5028e-04_jprb,2.4989e-04_jprb,2.4272e-04_jprb,&
 & 2.4831e-04_jprb,3.6709e-04_jprb,1.3381e-04_jprb/)  
kao( :, 1, 5, 4) = (/&
 & 2.0688e-05_jprb,4.9203e-05_jprb,5.9785e-05_jprb,6.6990e-05_jprb,7.8124e-05_jprb,9.2624e-05_jprb,&
 & 1.2472e-04_jprb,2.0745e-04_jprb,6.1812e-05_jprb/)  
kao( :, 2, 5, 4) = (/&
 & 3.1637e-05_jprb,6.9271e-05_jprb,8.0604e-05_jprb,9.0077e-05_jprb,1.0181e-04_jprb,1.1707e-04_jprb,&
 & 1.4853e-04_jprb,2.1722e-04_jprb,7.1005e-05_jprb/)  
kao( :, 3, 5, 4) = (/&
 & 4.6076e-05_jprb,9.3625e-05_jprb,1.0769e-04_jprb,1.1334e-04_jprb,1.2174e-04_jprb,1.4414e-04_jprb,&
 & 1.7668e-04_jprb,2.5800e-04_jprb,8.3094e-05_jprb/)  
kao( :, 4, 5, 4) = (/&
 & 6.4341e-05_jprb,1.2346e-04_jprb,1.4103e-04_jprb,1.4850e-04_jprb,1.4693e-04_jprb,1.5815e-04_jprb,&
 & 1.9286e-04_jprb,2.8817e-04_jprb,9.6701e-05_jprb/)  
kao( :, 5, 5, 4) = (/&
 & 8.6238e-05_jprb,1.5868e-04_jprb,1.7942e-04_jprb,1.8707e-04_jprb,1.8806e-04_jprb,1.8319e-04_jprb,&
 & 2.0554e-04_jprb,2.8611e-04_jprb,1.1287e-04_jprb/)  
kao( :, 1, 6, 4) = (/&
 & 1.4006e-05_jprb,3.3343e-05_jprb,4.0079e-05_jprb,4.5588e-05_jprb,5.4107e-05_jprb,6.6418e-05_jprb,&
 & 1.0066e-04_jprb,1.4196e-04_jprb,6.6243e-05_jprb/)  
kao( :, 2, 6, 4) = (/&
 & 2.2071e-05_jprb,4.8614e-05_jprb,5.7228e-05_jprb,6.5093e-05_jprb,7.1721e-05_jprb,8.5635e-05_jprb,&
 & 1.0856e-04_jprb,1.8021e-04_jprb,7.5554e-05_jprb/)  
kao( :, 3, 6, 4) = (/&
 & 3.3040e-05_jprb,6.6682e-05_jprb,7.6698e-05_jprb,8.2380e-05_jprb,9.3552e-05_jprb,1.0700e-04_jprb,&
 & 1.3596e-04_jprb,1.9405e-04_jprb,8.6063e-05_jprb/)  
kao( :, 4, 6, 4) = (/&
 & 4.7386e-05_jprb,8.9793e-05_jprb,1.0237e-04_jprb,1.0759e-04_jprb,1.0965e-04_jprb,1.2726e-04_jprb,&
 & 1.5398e-04_jprb,2.2704e-04_jprb,9.8696e-05_jprb/)  
kao( :, 5, 6, 4) = (/&
 & 6.5121e-05_jprb,1.1757e-04_jprb,1.3268e-04_jprb,1.3869e-04_jprb,1.4006e-04_jprb,1.3836e-04_jprb,&
 & 1.7051e-04_jprb,2.3669e-04_jprb,1.1305e-04_jprb/)  
kao( :, 1, 7, 4) = (/&
 & 9.5061e-06_jprb,2.2311e-05_jprb,2.6088e-05_jprb,3.0162e-05_jprb,3.7877e-05_jprb,5.4505e-05_jprb,&
 & 7.5227e-05_jprb,1.1255e-04_jprb,8.3483e-05_jprb/)  
kao( :, 2, 7, 4) = (/&
 & 1.5323e-05_jprb,3.3598e-05_jprb,4.0386e-05_jprb,4.3881e-05_jprb,5.0583e-05_jprb,6.2493e-05_jprb,&
 & 8.2842e-05_jprb,1.4322e-04_jprb,9.4311e-05_jprb/)  
kao( :, 3, 7, 4) = (/&
 & 2.3596e-05_jprb,4.7494e-05_jprb,5.4556e-05_jprb,6.1372e-05_jprb,6.7015e-05_jprb,7.9350e-05_jprb,&
 & 9.7496e-05_jprb,1.4436e-04_jprb,1.0703e-04_jprb/)  
kao( :, 4, 7, 4) = (/&
 & 3.4570e-05_jprb,6.4860e-05_jprb,7.3694e-05_jprb,7.7754e-05_jprb,8.4695e-05_jprb,9.7029e-05_jprb,&
 & 1.1678e-04_jprb,1.6858e-04_jprb,1.2127e-04_jprb/)  
kao( :, 5, 7, 4) = (/&
 & 4.8551e-05_jprb,8.6609e-05_jprb,9.7619e-05_jprb,1.0164e-04_jprb,1.0226e-04_jprb,1.0885e-04_jprb,&
 & 1.3405e-04_jprb,1.9133e-04_jprb,1.3656e-04_jprb/)  
kao( :, 1, 8, 4) = (/&
 & 6.7311e-06_jprb,1.4755e-05_jprb,1.6935e-05_jprb,2.1463e-05_jprb,3.1231e-05_jprb,4.0742e-05_jprb,&
 & 5.6656e-05_jprb,8.5927e-05_jprb,1.5049e-04_jprb/)  
kao( :, 2, 8, 4) = (/&
 & 1.0838e-05_jprb,2.3183e-05_jprb,2.7453e-05_jprb,3.0553e-05_jprb,3.5694e-05_jprb,4.6374e-05_jprb,&
 & 6.9419e-05_jprb,1.0643e-04_jprb,1.6866e-04_jprb/)  
kao( :, 3, 8, 4) = (/&
 & 1.6914e-05_jprb,3.3766e-05_jprb,3.8989e-05_jprb,4.4447e-05_jprb,4.8070e-05_jprb,5.7198e-05_jprb,&
 & 7.1116e-05_jprb,1.2478e-04_jprb,1.8779e-04_jprb/)  
kao( :, 4, 8, 4) = (/&
 & 2.5195e-05_jprb,4.6972e-05_jprb,5.3026e-05_jprb,5.6927e-05_jprb,6.4565e-05_jprb,7.1923e-05_jprb,&
 & 9.0751e-05_jprb,1.2249e-04_jprb,2.0805e-04_jprb/)  
kao( :, 5, 8, 4) = (/&
 & 3.5942e-05_jprb,6.3786e-05_jprb,7.1729e-05_jprb,7.3949e-05_jprb,7.6446e-05_jprb,8.8163e-05_jprb,&
 & 1.0367e-04_jprb,1.5461e-04_jprb,2.3067e-04_jprb/)  
kao( :, 1, 9, 4) = (/&
 & 5.1599e-06_jprb,1.0081e-05_jprb,1.1772e-05_jprb,1.6698e-05_jprb,2.2821e-05_jprb,2.9936e-05_jprb,&
 & 4.2105e-05_jprb,6.2990e-05_jprb,5.8733e-04_jprb/)  
kao( :, 2, 9, 4) = (/&
 & 8.0231e-06_jprb,1.6031e-05_jprb,1.8581e-05_jprb,2.0889e-05_jprb,2.6202e-05_jprb,3.8502e-05_jprb,&
 & 5.1188e-05_jprb,8.2231e-05_jprb,6.4455e-04_jprb/)  
kao( :, 3, 9, 4) = (/&
 & 1.2365e-05_jprb,2.3962e-05_jprb,2.7785e-05_jprb,3.0574e-05_jprb,3.4959e-05_jprb,4.1433e-05_jprb,&
 & 5.7939e-05_jprb,9.7311e-05_jprb,7.0196e-04_jprb/)  
kao( :, 4, 9, 4) = (/&
 & 1.8494e-05_jprb,3.4148e-05_jprb,3.8522e-05_jprb,4.2610e-05_jprb,4.6125e-05_jprb,5.4566e-05_jprb,&
 & 6.5066e-05_jprb,9.3543e-05_jprb,7.5838e-04_jprb/)  
kao( :, 5, 9, 4) = (/&
 & 2.6560e-05_jprb,4.6839e-05_jprb,5.2429e-05_jprb,5.4183e-05_jprb,5.9609e-05_jprb,6.7149e-05_jprb,&
 & 7.9436e-05_jprb,1.1417e-04_jprb,8.1247e-04_jprb/)  
kao( :, 1,10, 4) = (/&
 & 4.5845e-06_jprb,7.8051e-06_jprb,9.3693e-06_jprb,1.2991e-05_jprb,1.7572e-05_jprb,2.3437e-05_jprb,&
 & 3.3813e-05_jprb,4.9188e-05_jprb,3.3674e-03_jprb/)  
kao( :, 2,10, 4) = (/&
 & 6.8084e-06_jprb,1.2034e-05_jprb,1.3688e-05_jprb,1.5733e-05_jprb,2.1211e-05_jprb,2.9098e-05_jprb,&
 & 3.8545e-05_jprb,6.3500e-05_jprb,3.6391e-03_jprb/)  
kao( :, 3,10, 4) = (/&
 & 1.0062e-05_jprb,1.7982e-05_jprb,2.0409e-05_jprb,2.2663e-05_jprb,2.5613e-05_jprb,3.1784e-05_jprb,&
 & 4.7385e-05_jprb,7.3006e-05_jprb,3.8993e-03_jprb/)  
kao( :, 4,10, 4) = (/&
 & 1.4658e-05_jprb,2.5727e-05_jprb,2.8782e-05_jprb,3.2310e-05_jprb,3.4485e-05_jprb,4.0752e-05_jprb,&
 & 4.8720e-05_jprb,8.2499e-05_jprb,4.1490e-03_jprb/)  
kao( :, 5,10, 4) = (/&
 & 2.0786e-05_jprb,3.5657e-05_jprb,3.9659e-05_jprb,4.1123e-05_jprb,4.6983e-05_jprb,5.0556e-05_jprb,&
 & 6.3521e-05_jprb,8.4499e-05_jprb,4.3775e-03_jprb/)  
kao( :, 1,11, 4) = (/&
 & 5.0356e-06_jprb,7.7353e-06_jprb,8.8833e-06_jprb,1.1452e-05_jprb,1.5243e-05_jprb,2.1044e-05_jprb,&
 & 2.8338e-05_jprb,4.9949e-05_jprb,7.2577e-03_jprb/)  
kao( :, 2,11, 4) = (/&
 & 7.2423e-06_jprb,1.1514e-05_jprb,1.2798e-05_jprb,1.4086e-05_jprb,1.8007e-05_jprb,2.4558e-05_jprb,&
 & 3.3851e-05_jprb,5.2802e-05_jprb,7.8158e-03_jprb/)  
kao( :, 3,11, 4) = (/&
 & 1.0309e-05_jprb,1.6653e-05_jprb,1.8407e-05_jprb,2.0089e-05_jprb,2.2296e-05_jprb,2.7018e-05_jprb,&
 & 3.8586e-05_jprb,6.0068e-05_jprb,8.3354e-03_jprb/)  
kao( :, 4,11, 4) = (/&
 & 1.4421e-05_jprb,2.3379e-05_jprb,2.5740e-05_jprb,2.7750e-05_jprb,3.0309e-05_jprb,3.4851e-05_jprb,&
 & 4.1245e-05_jprb,6.8211e-05_jprb,8.8296e-03_jprb/)  
kao( :, 5,11, 4) = (/&
 & 1.9663e-05_jprb,3.1842e-05_jprb,3.4991e-05_jprb,3.6140e-05_jprb,3.9688e-05_jprb,4.2983e-05_jprb,&
 & 5.3776e-05_jprb,6.9907e-05_jprb,9.2688e-03_jprb/)  
kao( :, 1,12, 4) = (/&
 & 5.1165e-06_jprb,7.4029e-06_jprb,8.1941e-06_jprb,1.0138e-05_jprb,1.3490e-05_jprb,1.7256e-05_jprb,&
 & 2.4419e-05_jprb,4.0146e-05_jprb,9.9448e-03_jprb/)  
kao( :, 2,12, 4) = (/&
 & 7.2283e-06_jprb,1.0802e-05_jprb,1.1887e-05_jprb,1.2642e-05_jprb,1.5734e-05_jprb,2.0542e-05_jprb,&
 & 2.7886e-05_jprb,4.3910e-05_jprb,1.0705e-02_jprb/)  
kao( :, 3,12, 4) = (/&
 & 1.0065e-05_jprb,1.5284e-05_jprb,1.6642e-05_jprb,1.8157e-05_jprb,1.9448e-05_jprb,2.3207e-05_jprb,&
 & 3.2168e-05_jprb,5.3905e-05_jprb,1.1409e-02_jprb/)  
kao( :, 4,12, 4) = (/&
 & 1.3731e-05_jprb,2.1142e-05_jprb,2.2780e-05_jprb,2.4378e-05_jprb,2.6665e-05_jprb,2.9738e-05_jprb,&
 & 3.5163e-05_jprb,5.5828e-05_jprb,1.2051e-02_jprb/)  
kao( :, 5,12, 4) = (/&
 & 1.8328e-05_jprb,2.8382e-05_jprb,3.0850e-05_jprb,3.1430e-05_jprb,3.3929e-05_jprb,3.7016e-05_jprb,&
 & 4.5266e-05_jprb,5.8847e-05_jprb,1.2603e-02_jprb/)  
kao( :, 1,13, 4) = (/&
 & 5.1628e-06_jprb,7.0476e-06_jprb,7.6783e-06_jprb,9.1901e-06_jprb,1.1659e-05_jprb,1.4990e-05_jprb,&
 & 2.0746e-05_jprb,3.1591e-05_jprb,1.0979e-02_jprb/)  
kao( :, 2,13, 4) = (/&
 & 7.1656e-06_jprb,1.0090e-05_jprb,1.0951e-05_jprb,1.1562e-05_jprb,1.3750e-05_jprb,1.7398e-05_jprb,&
 & 2.3701e-05_jprb,3.7488e-05_jprb,1.1813e-02_jprb/)  
kao( :, 3,13, 4) = (/&
 & 9.7810e-06_jprb,1.4159e-05_jprb,1.5003e-05_jprb,1.6207e-05_jprb,1.7175e-05_jprb,1.9965e-05_jprb,&
 & 2.7079e-05_jprb,4.3382e-05_jprb,1.2578e-02_jprb/)  
kao( :, 4,13, 4) = (/&
 & 1.3104e-05_jprb,1.9253e-05_jprb,2.0395e-05_jprb,2.1436e-05_jprb,2.3261e-05_jprb,2.5640e-05_jprb,&
 & 2.9895e-05_jprb,4.6045e-05_jprb,1.3231e-02_jprb/)  
kao( :, 5,13, 4) = (/&
 & 1.7208e-05_jprb,2.5546e-05_jprb,2.7424e-05_jprb,2.7535e-05_jprb,2.9380e-05_jprb,3.2546e-05_jprb,&
 & 3.8040e-05_jprb,4.9840e-05_jprb,1.3742e-02_jprb/)  
kao( :, 1, 1, 5) = (/&
 & 3.1090e-04_jprb,4.1312e-04_jprb,4.5176e-04_jprb,4.6856e-04_jprb,4.5586e-04_jprb,4.3213e-04_jprb,&
 & 4.5397e-04_jprb,7.8015e-04_jprb,2.0103e-04_jprb/)  
kao( :, 2, 1, 5) = (/&
 & 3.8398e-04_jprb,5.2122e-04_jprb,5.7336e-04_jprb,6.0217e-04_jprb,6.0591e-04_jprb,5.7511e-04_jprb,&
 & 5.3422e-04_jprb,6.1896e-04_jprb,2.8351e-04_jprb/)  
kao( :, 3, 1, 5) = (/&
 & 4.6534e-04_jprb,6.4382e-04_jprb,7.1301e-04_jprb,7.5438e-04_jprb,7.7134e-04_jprb,7.6006e-04_jprb,&
 & 7.0811e-04_jprb,7.4234e-04_jprb,3.7763e-04_jprb/)  
kao( :, 4, 1, 5) = (/&
 & 5.5987e-04_jprb,7.8442e-04_jprb,8.7478e-04_jprb,9.3078e-04_jprb,9.6145e-04_jprb,9.6632e-04_jprb,&
 & 9.4057e-04_jprb,8.7094e-04_jprb,4.7321e-04_jprb/)  
kao( :, 5, 1, 5) = (/&
 & 6.6579e-04_jprb,9.4348e-04_jprb,1.0594e-03_jprb,1.1323e-03_jprb,1.1769e-03_jprb,1.1973e-03_jprb,&
 & 1.1941e-03_jprb,1.1720e-03_jprb,5.8670e-04_jprb/)  
kao( :, 1, 2, 5) = (/&
 & 2.4736e-04_jprb,3.2724e-04_jprb,3.5306e-04_jprb,3.6178e-04_jprb,3.4912e-04_jprb,3.3979e-04_jprb,&
 & 3.6882e-04_jprb,6.4661e-04_jprb,1.4637e-04_jprb/)  
kao( :, 2, 2, 5) = (/&
 & 3.1002e-04_jprb,4.1717e-04_jprb,4.5359e-04_jprb,4.7283e-04_jprb,4.7168e-04_jprb,4.4103e-04_jprb,&
 & 4.4124e-04_jprb,5.1519e-04_jprb,2.1389e-04_jprb/)  
kao( :, 3, 2, 5) = (/&
 & 3.8079e-04_jprb,5.2107e-04_jprb,5.7062e-04_jprb,5.9973e-04_jprb,6.0662e-04_jprb,5.9325e-04_jprb,&
 & 5.3745e-04_jprb,5.8652e-04_jprb,2.8633e-04_jprb/)  
kao( :, 4, 2, 5) = (/&
 & 4.6210e-04_jprb,6.4094e-04_jprb,7.0763e-04_jprb,7.4776e-04_jprb,7.6652e-04_jprb,7.5984e-04_jprb,&
 & 7.3202e-04_jprb,6.4140e-04_jprb,3.5290e-04_jprb/)  
kao( :, 5, 2, 5) = (/&
 & 5.5546e-04_jprb,7.7925e-04_jprb,8.6616e-04_jprb,9.1863e-04_jprb,9.4674e-04_jprb,9.5490e-04_jprb,&
 & 9.4094e-04_jprb,9.1867e-04_jprb,4.4201e-04_jprb/)  
kao( :, 1, 3, 5) = (/&
 & 1.8639e-04_jprb,2.4387e-04_jprb,2.5915e-04_jprb,2.5906e-04_jprb,2.4918e-04_jprb,2.5967e-04_jprb,&
 & 3.1653e-04_jprb,4.7580e-04_jprb,1.1679e-04_jprb/)  
kao( :, 2, 3, 5) = (/&
 & 2.3798e-04_jprb,3.1564e-04_jprb,3.3906e-04_jprb,3.5000e-04_jprb,3.4157e-04_jprb,3.1943e-04_jprb,&
 & 3.2743e-04_jprb,4.5496e-04_jprb,1.5856e-04_jprb/)  
kao( :, 3, 3, 5) = (/&
 & 2.9733e-04_jprb,4.0070e-04_jprb,4.3349e-04_jprb,4.5188e-04_jprb,4.5270e-04_jprb,4.3123e-04_jprb,&
 & 3.9880e-04_jprb,4.4081e-04_jprb,2.0446e-04_jprb/)  
kao( :, 4, 3, 5) = (/&
 & 3.6501e-04_jprb,4.9946e-04_jprb,5.4499e-04_jprb,5.7170e-04_jprb,5.7932e-04_jprb,5.6633e-04_jprb,&
 & 5.2704e-04_jprb,5.1414e-04_jprb,2.5539e-04_jprb/)  
kao( :, 5, 3, 5) = (/&
 & 4.4410e-04_jprb,6.1578e-04_jprb,6.7619e-04_jprb,7.1133e-04_jprb,7.2738e-04_jprb,7.2351e-04_jprb,&
 & 7.0138e-04_jprb,6.6673e-04_jprb,3.2169e-04_jprb/)  
kao( :, 1, 4, 5) = (/&
 & 1.3808e-04_jprb,1.7775e-04_jprb,1.8565e-04_jprb,1.8174e-04_jprb,1.8202e-04_jprb,1.9738e-04_jprb,&
 & 2.6854e-04_jprb,3.3980e-04_jprb,9.6622e-05_jprb/)  
kao( :, 2, 4, 5) = (/&
 & 1.7835e-04_jprb,2.3331e-04_jprb,2.4753e-04_jprb,2.5139e-04_jprb,2.3877e-04_jprb,2.3221e-04_jprb,&
 & 2.5394e-04_jprb,4.0618e-04_jprb,1.2075e-04_jprb/)  
kao( :, 3, 4, 5) = (/&
 & 2.2702e-04_jprb,3.0170e-04_jprb,3.2275e-04_jprb,3.3261e-04_jprb,3.2998e-04_jprb,3.0635e-04_jprb,&
 & 3.0422e-04_jprb,3.7513e-04_jprb,1.4994e-04_jprb/)  
kao( :, 4, 4, 5) = (/&
 & 2.8327e-04_jprb,3.8288e-04_jprb,4.1191e-04_jprb,4.2826e-04_jprb,4.2837e-04_jprb,4.1511e-04_jprb,&
 & 3.7299e-04_jprb,4.1488e-04_jprb,1.8740e-04_jprb/)  
kao( :, 5, 4, 5) = (/&
 & 3.4778e-04_jprb,4.7798e-04_jprb,5.1863e-04_jprb,5.4065e-04_jprb,5.4665e-04_jprb,5.3624e-04_jprb,&
 & 5.0550e-04_jprb,4.5874e-04_jprb,2.3509e-04_jprb/)  

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


SUBROUTINE part4

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


kao( :, 1, 5, 5) = (/&
 & 1.0090e-04_jprb,1.2840e-04_jprb,1.3222e-04_jprb,1.3092e-04_jprb,1.3649e-04_jprb,1.6019e-04_jprb,&
 & 2.1671e-04_jprb,2.5303e-04_jprb,9.1217e-05_jprb/)  
kao( :, 2, 5, 5) = (/&
 & 1.3290e-04_jprb,1.7161e-04_jprb,1.7952e-04_jprb,1.7693e-04_jprb,1.6957e-04_jprb,1.7378e-04_jprb,&
 & 2.2031e-04_jprb,3.2593e-04_jprb,1.0460e-04_jprb/)  
kao( :, 3, 5, 5) = (/&
 & 1.7169e-04_jprb,2.2556e-04_jprb,2.3842e-04_jprb,2.4266e-04_jprb,2.3387e-04_jprb,2.1722e-04_jprb,&
 & 2.2376e-04_jprb,3.3249e-04_jprb,1.2312e-04_jprb/)  
kao( :, 4, 5, 5) = (/&
 & 2.1761e-04_jprb,2.9095e-04_jprb,3.1013e-04_jprb,3.1776e-04_jprb,3.1556e-04_jprb,2.9734e-04_jprb,&
 & 2.7621e-04_jprb,3.0674e-04_jprb,1.4846e-04_jprb/)  
kao( :, 5, 5, 5) = (/&
 & 2.6974e-04_jprb,3.6873e-04_jprb,3.9640e-04_jprb,4.0873e-04_jprb,4.0796e-04_jprb,3.9425e-04_jprb,&
 & 3.6157e-04_jprb,3.6174e-04_jprb,1.8146e-04_jprb/)  
kao( :, 1, 6, 5) = (/&
 & 7.2092e-05_jprb,9.1048e-05_jprb,9.3429e-05_jprb,9.5226e-05_jprb,1.0150e-04_jprb,1.3173e-04_jprb,&
 & 1.4984e-04_jprb,1.9196e-04_jprb,9.8397e-05_jprb/)  
kao( :, 2, 6, 5) = (/&
 & 9.7448e-05_jprb,1.2423e-04_jprb,1.2792e-04_jprb,1.2413e-04_jprb,1.2424e-04_jprb,1.3383e-04_jprb,&
 & 1.7960e-04_jprb,2.4434e-04_jprb,1.1133e-04_jprb/)  
kao( :, 3, 6, 5) = (/&
 & 1.2736e-04_jprb,1.6584e-04_jprb,1.7360e-04_jprb,1.7200e-04_jprb,1.6167e-04_jprb,1.5892e-04_jprb,&
 & 1.7153e-04_jprb,2.8218e-04_jprb,1.2781e-04_jprb/)  
kao( :, 4, 6, 5) = (/&
 & 1.6376e-04_jprb,2.1742e-04_jprb,2.3003e-04_jprb,2.3266e-04_jprb,2.2686e-04_jprb,2.0723e-04_jprb,&
 & 2.0538e-04_jprb,2.5489e-04_jprb,1.4690e-04_jprb/)  
kao( :, 5, 6, 5) = (/&
 & 2.0555e-04_jprb,2.7960e-04_jprb,2.9861e-04_jprb,3.0501e-04_jprb,3.0003e-04_jprb,2.8746e-04_jprb,&
 & 2.5983e-04_jprb,2.8313e-04_jprb,1.7007e-04_jprb/)  
kao( :, 1, 7, 5) = (/&
 & 5.0915e-05_jprb,6.4096e-05_jprb,6.5839e-05_jprb,7.0435e-05_jprb,8.2474e-05_jprb,1.0016e-04_jprb,&
 & 1.1360e-04_jprb,1.4590e-04_jprb,1.4032e-04_jprb/)  
kao( :, 2, 7, 5) = (/&
 & 7.0625e-05_jprb,8.9097e-05_jprb,9.0314e-05_jprb,8.9429e-05_jprb,9.3251e-05_jprb,1.0724e-04_jprb,&
 & 1.4912e-04_jprb,1.8863e-04_jprb,1.5518e-04_jprb/)  
kao( :, 3, 7, 5) = (/&
 & 9.4098e-05_jprb,1.2125e-04_jprb,1.2537e-04_jprb,1.2091e-04_jprb,1.1603e-04_jprb,1.1857e-04_jprb,&
 & 1.4624e-04_jprb,2.2506e-04_jprb,1.7262e-04_jprb/)  
kao( :, 4, 7, 5) = (/&
 & 1.2191e-04_jprb,1.6102e-04_jprb,1.6901e-04_jprb,1.6848e-04_jprb,1.5829e-04_jprb,1.4830e-04_jprb,&
 & 1.5156e-04_jprb,2.2031e-04_jprb,1.9339e-04_jprb/)  
kao( :, 5, 7, 5) = (/&
 & 1.5529e-04_jprb,2.0973e-04_jprb,2.2297e-04_jprb,2.2562e-04_jprb,2.1894e-04_jprb,2.0410e-04_jprb,&
 & 1.8782e-04_jprb,2.1024e-04_jprb,2.1671e-04_jprb/)  
kao( :, 1, 8, 5) = (/&
 & 3.6049e-05_jprb,4.5291e-05_jprb,4.7754e-05_jprb,5.1919e-05_jprb,6.1186e-05_jprb,6.9190e-05_jprb,&
 & 8.4378e-05_jprb,1.1648e-04_jprb,2.7572e-04_jprb/)  
kao( :, 2, 8, 5) = (/&
 & 5.1045e-05_jprb,6.3896e-05_jprb,6.4272e-05_jprb,6.5150e-05_jprb,6.9954e-05_jprb,8.8868e-05_jprb,&
 & 1.0162e-04_jprb,1.4598e-04_jprb,3.0000e-04_jprb/)  
kao( :, 3, 8, 5) = (/&
 & 6.9216e-05_jprb,8.8252e-05_jprb,9.0050e-05_jprb,8.5873e-05_jprb,8.5359e-05_jprb,9.1693e-05_jprb,&
 & 1.2432e-04_jprb,1.5741e-04_jprb,3.2619e-04_jprb/)  
kao( :, 4, 8, 5) = (/&
 & 9.0719e-05_jprb,1.1854e-04_jprb,1.2391e-04_jprb,1.2089e-04_jprb,1.1160e-04_jprb,1.0845e-04_jprb,&
 & 1.1912e-04_jprb,1.9063e-04_jprb,3.5459e-04_jprb/)  
kao( :, 5, 8, 5) = (/&
 & 1.1702e-04_jprb,1.5606e-04_jprb,1.6531e-04_jprb,1.6622e-04_jprb,1.5932e-04_jprb,1.4248e-04_jprb,&
 & 1.4183e-04_jprb,1.7131e-04_jprb,3.8497e-04_jprb/)  
kao( :, 1, 9, 5) = (/&
 & 2.5866e-05_jprb,3.2320e-05_jprb,3.4576e-05_jprb,3.8709e-05_jprb,4.6229e-05_jprb,5.2438e-05_jprb,&
 & 6.5503e-05_jprb,9.3730e-05_jprb,1.1703e-03_jprb/)  
kao( :, 2, 9, 5) = (/&
 & 3.7130e-05_jprb,4.6042e-05_jprb,4.6409e-05_jprb,4.8783e-05_jprb,5.6170e-05_jprb,6.7762e-05_jprb,&
 & 7.7225e-05_jprb,1.1273e-04_jprb,1.2364e-03_jprb/)  
kao( :, 3, 9, 5) = (/&
 & 5.1057e-05_jprb,6.4238e-05_jprb,6.4747e-05_jprb,6.3009e-05_jprb,6.3858e-05_jprb,7.4779e-05_jprb,&
 & 9.9385e-05_jprb,1.2137e-04_jprb,1.3035e-03_jprb/)  
kao( :, 4, 9, 5) = (/&
 & 6.7872e-05_jprb,8.7074e-05_jprb,9.0171e-05_jprb,8.6365e-05_jprb,8.1775e-05_jprb,8.1150e-05_jprb,&
 & 1.0091e-04_jprb,1.5846e-04_jprb,1.3706e-03_jprb/)  
kao( :, 5, 9, 5) = (/&
 & 8.8212e-05_jprb,1.1565e-04_jprb,1.2170e-04_jprb,1.2148e-04_jprb,1.1255e-04_jprb,1.0392e-04_jprb,&
 & 1.0391e-04_jprb,1.5035e-04_jprb,1.4393e-03_jprb/)  
kao( :, 1,10, 5) = (/&
 & 2.0052e-05_jprb,2.4599e-05_jprb,2.6224e-05_jprb,2.9775e-05_jprb,3.4377e-05_jprb,3.9753e-05_jprb,&
 & 5.1870e-05_jprb,7.0614e-05_jprb,6.9310e-03_jprb/)  
kao( :, 2,10, 5) = (/&
 & 2.8642e-05_jprb,3.5006e-05_jprb,3.5601e-05_jprb,3.7670e-05_jprb,4.4192e-05_jprb,5.0297e-05_jprb,&
 & 6.0753e-05_jprb,8.8409e-05_jprb,7.2473e-03_jprb/)  
kao( :, 3,10, 5) = (/&
 & 3.9509e-05_jprb,4.8803e-05_jprb,4.8668e-05_jprb,4.7951e-05_jprb,5.0708e-05_jprb,6.1469e-05_jprb,&
 & 7.4297e-05_jprb,9.6176e-05_jprb,7.5424e-03_jprb/)  
kao( :, 4,10, 5) = (/&
 & 5.2822e-05_jprb,6.6323e-05_jprb,6.7918e-05_jprb,6.3993e-05_jprb,6.2062e-05_jprb,6.4519e-05_jprb,&
 & 8.5147e-05_jprb,1.1230e-04_jprb,7.8121e-03_jprb/)  
kao( :, 5,10, 5) = (/&
 & 6.8969e-05_jprb,8.8314e-05_jprb,9.1957e-05_jprb,9.0701e-05_jprb,8.2062e-05_jprb,7.8779e-05_jprb,&
 & 8.1888e-05_jprb,1.3051e-04_jprb,8.0714e-03_jprb/)  
kao( :, 1,11, 5) = (/&
 & 1.9311e-05_jprb,2.2943e-05_jprb,2.3712e-05_jprb,2.6076e-05_jprb,2.9763e-05_jprb,3.4761e-05_jprb,&
 & 4.2561e-05_jprb,5.7624e-05_jprb,1.5187e-02_jprb/)  
kao( :, 2,11, 5) = (/&
 & 2.6757e-05_jprb,3.2178e-05_jprb,3.2098e-05_jprb,3.3425e-05_jprb,3.7561e-05_jprb,4.3432e-05_jprb,&
 & 5.1256e-05_jprb,7.3332e-05_jprb,1.5840e-02_jprb/)  
kao( :, 3,11, 5) = (/&
 & 3.6196e-05_jprb,4.4102e-05_jprb,4.3948e-05_jprb,4.2431e-05_jprb,4.4099e-05_jprb,5.1811e-05_jprb,&
 & 6.2145e-05_jprb,8.0656e-05_jprb,1.6449e-02_jprb/)  
kao( :, 4,11, 5) = (/&
 & 4.7882e-05_jprb,5.9111e-05_jprb,6.0086e-05_jprb,5.7204e-05_jprb,5.4371e-05_jprb,5.5076e-05_jprb,&
 & 7.0526e-05_jprb,9.2945e-05_jprb,1.6989e-02_jprb/)  
kao( :, 5,11, 5) = (/&
 & 6.2068e-05_jprb,7.8174e-05_jprb,8.0859e-05_jprb,7.9258e-05_jprb,7.2738e-05_jprb,6.8607e-05_jprb,&
 & 6.8925e-05_jprb,1.0616e-04_jprb,1.7481e-02_jprb/)  
kao( :, 1,12, 5) = (/&
 & 1.8157e-05_jprb,2.1121e-05_jprb,2.1509e-05_jprb,2.2736e-05_jprb,2.6145e-05_jprb,3.0200e-05_jprb,&
 & 3.7064e-05_jprb,5.0458e-05_jprb,2.1164e-02_jprb/)  
kao( :, 2,12, 5) = (/&
 & 2.4750e-05_jprb,2.9265e-05_jprb,2.8640e-05_jprb,2.9365e-05_jprb,3.1815e-05_jprb,3.7644e-05_jprb,&
 & 4.4258e-05_jprb,6.0893e-05_jprb,2.2083e-02_jprb/)  
kao( :, 3,12, 5) = (/&
 & 3.3051e-05_jprb,3.9669e-05_jprb,3.9323e-05_jprb,3.7322e-05_jprb,3.8330e-05_jprb,4.3268e-05_jprb,&
 & 5.2953e-05_jprb,6.6459e-05_jprb,2.2904e-02_jprb/)  
kao( :, 4,12, 5) = (/&
 & 4.3268e-05_jprb,5.2755e-05_jprb,5.3305e-05_jprb,5.0755e-05_jprb,4.7183e-05_jprb,4.7321e-05_jprb,&
 & 5.8905e-05_jprb,7.8211e-05_jprb,2.3625e-02_jprb/)  
kao( :, 5,12, 5) = (/&
 & 5.5712e-05_jprb,6.9313e-05_jprb,7.1134e-05_jprb,6.9400e-05_jprb,6.4153e-05_jprb,5.9244e-05_jprb,&
 & 5.8683e-05_jprb,8.6772e-05_jprb,2.4304e-02_jprb/)  
kao( :, 1,13, 5) = (/&
 & 1.7179e-05_jprb,1.9773e-05_jprb,1.9599e-05_jprb,2.0374e-05_jprb,2.3480e-05_jprb,2.5935e-05_jprb,&
 & 3.2097e-05_jprb,4.3807e-05_jprb,2.3722e-02_jprb/)  
kao( :, 2,13, 5) = (/&
 & 2.3195e-05_jprb,2.7018e-05_jprb,2.6155e-05_jprb,2.6118e-05_jprb,2.7654e-05_jprb,3.2413e-05_jprb,&
 & 3.6439e-05_jprb,5.1480e-05_jprb,2.4748e-02_jprb/)  
kao( :, 3,13, 5) = (/&
 & 3.0612e-05_jprb,3.6208e-05_jprb,3.5603e-05_jprb,3.3306e-05_jprb,3.3238e-05_jprb,3.6754e-05_jprb,&
 & 4.5231e-05_jprb,5.7370e-05_jprb,2.5646e-02_jprb/)  
kao( :, 4,13, 5) = (/&
 & 3.9626e-05_jprb,4.7737e-05_jprb,4.7941e-05_jprb,4.5252e-05_jprb,4.1653e-05_jprb,4.0753e-05_jprb,&
 & 4.9320e-05_jprb,6.5660e-05_jprb,2.6492e-02_jprb/)  
kao( :, 5,13, 5) = (/&
 & 5.0622e-05_jprb,6.2138e-05_jprb,6.3203e-05_jprb,6.1426e-05_jprb,5.6252e-05_jprb,5.1272e-05_jprb,&
 & 5.0385e-05_jprb,7.0865e-05_jprb,2.7279e-02_jprb/)  
kao( :, 1, 1, 6) = (/&
 & 7.6668e-04_jprb,9.5698e-04_jprb,1.0451e-03_jprb,1.0706e-03_jprb,1.0458e-03_jprb,9.8544e-04_jprb,&
 & 8.4925e-04_jprb,7.0084e-04_jprb,3.6790e-04_jprb/)  
kao( :, 2, 1, 6) = (/&
 & 9.3715e-04_jprb,1.2033e-03_jprb,1.3264e-03_jprb,1.3678e-03_jprb,1.3579e-03_jprb,1.2955e-03_jprb,&
 & 1.2019e-03_jprb,1.0530e-03_jprb,4.9374e-04_jprb/)  
kao( :, 3, 1, 6) = (/&
 & 1.1259e-03_jprb,1.4892e-03_jprb,1.6507e-03_jprb,1.7086e-03_jprb,1.7099e-03_jprb,1.6660e-03_jprb,&
 & 1.5468e-03_jprb,1.3572e-03_jprb,6.9469e-04_jprb/)  
kao( :, 4, 1, 6) = (/&
 & 1.3346e-03_jprb,1.8150e-03_jprb,2.0125e-03_jprb,2.0930e-03_jprb,2.1054e-03_jprb,2.0604e-03_jprb,&
 & 1.9461e-03_jprb,1.7694e-03_jprb,9.3629e-04_jprb/)  
kao( :, 5, 1, 6) = (/&
 & 1.5631e-03_jprb,2.1751e-03_jprb,2.4107e-03_jprb,2.5177e-03_jprb,2.5412e-03_jprb,2.4997e-03_jprb,&
 & 2.4003e-03_jprb,2.2329e-03_jprb,1.1943e-03_jprb/)  
kao( :, 1, 2, 6) = (/&
 & 6.1736e-04_jprb,7.7957e-04_jprb,8.4495e-04_jprb,8.5822e-04_jprb,8.3168e-04_jprb,7.6710e-04_jprb,&
 & 6.8197e-04_jprb,6.1117e-04_jprb,2.7552e-04_jprb/)  
kao( :, 2, 2, 6) = (/&
 & 7.6431e-04_jprb,9.9047e-04_jprb,1.0825e-03_jprb,1.1059e-03_jprb,1.0905e-03_jprb,1.0282e-03_jprb,&
 & 9.1763e-04_jprb,8.3788e-04_jprb,3.8116e-04_jprb/)  
kao( :, 3, 2, 6) = (/&
 & 9.2906e-04_jprb,1.2346e-03_jprb,1.3561e-03_jprb,1.3925e-03_jprb,1.3898e-03_jprb,1.3440e-03_jprb,&
 & 1.2411e-03_jprb,1.1007e-03_jprb,5.2777e-04_jprb/)  
kao( :, 4, 2, 6) = (/&
 & 1.1126e-03_jprb,1.5138e-03_jprb,1.6623e-03_jprb,1.7166e-03_jprb,1.7237e-03_jprb,1.6799e-03_jprb,&
 & 1.5813e-03_jprb,1.4262e-03_jprb,7.0852e-04_jprb/)  
kao( :, 5, 2, 6) = (/&
 & 1.3161e-03_jprb,1.8216e-03_jprb,2.0023e-03_jprb,2.0780e-03_jprb,2.0918e-03_jprb,2.0576e-03_jprb,&
 & 1.9689e-03_jprb,1.8083e-03_jprb,9.0055e-04_jprb/)  
kao( :, 1, 3, 6) = (/&
 & 4.6874e-04_jprb,5.9508e-04_jprb,6.3781e-04_jprb,6.4117e-04_jprb,6.1436e-04_jprb,5.4822e-04_jprb,&
 & 5.0421e-04_jprb,5.3533e-04_jprb,2.0334e-04_jprb/)  
kao( :, 2, 3, 6) = (/&
 & 5.9055e-04_jprb,7.6700e-04_jprb,8.2890e-04_jprb,8.3946e-04_jprb,8.1795e-04_jprb,7.6034e-04_jprb,&
 & 6.7368e-04_jprb,6.0816e-04_jprb,2.8145e-04_jprb/)  
kao( :, 3, 3, 6) = (/&
 & 7.2955e-04_jprb,9.6821e-04_jprb,1.0493e-03_jprb,1.0696e-03_jprb,1.0616e-03_jprb,1.0150e-03_jprb,&
 & 9.2112e-04_jprb,8.3960e-04_jprb,3.8605e-04_jprb/)  
kao( :, 4, 3, 6) = (/&
 & 8.8621e-04_jprb,1.1995e-03_jprb,1.3001e-03_jprb,1.3322e-03_jprb,1.3333e-03_jprb,1.2938e-03_jprb,&
 & 1.2044e-03_jprb,1.0885e-03_jprb,5.0764e-04_jprb/)  
kao( :, 5, 3, 6) = (/&
 & 1.0620e-03_jprb,1.4561e-03_jprb,1.5813e-03_jprb,1.6291e-03_jprb,1.6339e-03_jprb,1.6065e-03_jprb,&
 & 1.5265e-03_jprb,1.3705e-03_jprb,6.4701e-04_jprb/)  
kao( :, 1, 4, 6) = (/&
 & 3.4631e-04_jprb,4.3892e-04_jprb,4.6539e-04_jprb,4.6252e-04_jprb,4.3395e-04_jprb,3.8559e-04_jprb,&
 & 3.5487e-04_jprb,4.4831e-04_jprb,1.5114e-04_jprb/)  
kao( :, 2, 4, 6) = (/&
 & 4.4425e-04_jprb,5.7553e-04_jprb,6.1538e-04_jprb,6.1883e-04_jprb,5.9314e-04_jprb,5.4165e-04_jprb,&
 & 4.8640e-04_jprb,4.4227e-04_jprb,2.0515e-04_jprb/)  
kao( :, 3, 4, 6) = (/&
 & 5.5883e-04_jprb,7.3740e-04_jprb,7.9031e-04_jprb,7.9974e-04_jprb,7.8639e-04_jprb,7.3691e-04_jprb,&
 & 6.4680e-04_jprb,6.1866e-04_jprb,2.7731e-04_jprb/)  
kao( :, 4, 4, 6) = (/&
 & 6.8974e-04_jprb,9.2537e-04_jprb,9.9228e-04_jprb,1.0098e-03_jprb,1.0044e-03_jprb,9.6650e-04_jprb,&
 & 8.8358e-04_jprb,7.6484e-04_jprb,3.6266e-04_jprb/)  
kao( :, 5, 4, 6) = (/&
 & 8.3990e-04_jprb,1.1361e-03_jprb,1.2201e-03_jprb,1.2496e-03_jprb,1.2472e-03_jprb,1.2194e-03_jprb,&
 & 1.1540e-03_jprb,1.0325e-03_jprb,4.6430e-04_jprb/)  
kao( :, 1, 5, 6) = (/&
 & 2.5250e-04_jprb,3.1808e-04_jprb,3.3386e-04_jprb,3.2714e-04_jprb,3.0037e-04_jprb,2.7399e-04_jprb,&
 & 2.6791e-04_jprb,3.5704e-04_jprb,1.2908e-04_jprb/)  
kao( :, 2, 5, 6) = (/&
 & 3.3043e-04_jprb,4.2488e-04_jprb,4.5012e-04_jprb,4.4889e-04_jprb,4.2554e-04_jprb,3.8200e-04_jprb,&
 & 3.3745e-04_jprb,3.7310e-04_jprb,1.6348e-04_jprb/)  
kao( :, 3, 5, 6) = (/&
 & 4.2316e-04_jprb,5.5338e-04_jprb,5.8740e-04_jprb,5.9160e-04_jprb,5.7542e-04_jprb,5.3101e-04_jprb,&
 & 4.6257e-04_jprb,4.4755e-04_jprb,2.1057e-04_jprb/)  
kao( :, 4, 5, 6) = (/&
 & 5.3209e-04_jprb,7.0370e-04_jprb,7.4784e-04_jprb,7.5773e-04_jprb,7.4773e-04_jprb,7.1163e-04_jprb,&
 & 6.4170e-04_jprb,5.6009e-04_jprb,2.6995e-04_jprb/)  
kao( :, 5, 5, 6) = (/&
 & 6.5954e-04_jprb,8.7577e-04_jprb,9.3136e-04_jprb,9.4956e-04_jprb,9.4321e-04_jprb,9.1424e-04_jprb,&
 & 8.5021e-04_jprb,7.6505e-04_jprb,3.4403e-04_jprb/)  
kao( :, 1, 6, 6) = (/&
 & 1.8041e-04_jprb,2.2490e-04_jprb,2.3336e-04_jprb,2.2464e-04_jprb,2.0963e-04_jprb,1.9425e-04_jprb,&
 & 2.2107e-04_jprb,2.7984e-04_jprb,1.4894e-04_jprb/)  
kao( :, 2, 6, 6) = (/&
 & 2.4129e-04_jprb,3.0664e-04_jprb,3.2201e-04_jprb,3.1753e-04_jprb,2.9432e-04_jprb,2.6424e-04_jprb,&
 & 2.4608e-04_jprb,3.2717e-04_jprb,1.7150e-04_jprb/)  
kao( :, 3, 6, 6) = (/&
 & 3.1506e-04_jprb,4.0665e-04_jprb,4.2823e-04_jprb,4.2924e-04_jprb,4.1092e-04_jprb,3.7075e-04_jprb,&
 & 3.2608e-04_jprb,3.0715e-04_jprb,1.9997e-04_jprb/)  
kao( :, 4, 6, 6) = (/&
 & 4.0467e-04_jprb,5.2530e-04_jprb,5.5383e-04_jprb,5.5842e-04_jprb,5.4724e-04_jprb,5.1243e-04_jprb,&
 & 4.4254e-04_jprb,3.9888e-04_jprb,2.3767e-04_jprb/)  
kao( :, 5, 6, 6) = (/&
 & 5.1106e-04_jprb,6.6417e-04_jprb,6.9974e-04_jprb,7.0967e-04_jprb,7.0212e-04_jprb,6.7161e-04_jprb,&
 & 6.0464e-04_jprb,5.2589e-04_jprb,2.8598e-04_jprb/)  
kao( :, 1, 7, 6) = (/&
 & 1.2786e-04_jprb,1.5741e-04_jprb,1.6149e-04_jprb,1.5385e-04_jprb,1.4113e-04_jprb,1.3717e-04_jprb,&
 & 1.7921e-04_jprb,2.1884e-04_jprb,2.2335e-04_jprb/)  
kao( :, 2, 7, 6) = (/&
 & 1.7476e-04_jprb,2.1914e-04_jprb,2.2777e-04_jprb,2.2084e-04_jprb,2.0229e-04_jprb,1.8812e-04_jprb,&
 & 1.8018e-04_jprb,2.7538e-04_jprb,2.4653e-04_jprb/)  
kao( :, 3, 7, 6) = (/&
 & 2.3335e-04_jprb,2.9589e-04_jprb,3.0942e-04_jprb,3.0765e-04_jprb,2.8977e-04_jprb,2.5625e-04_jprb,&
 & 2.3275e-04_jprb,2.5170e-04_jprb,2.7339e-04_jprb/)  
kao( :, 4, 7, 6) = (/&
 & 3.0583e-04_jprb,3.8902e-04_jprb,4.0709e-04_jprb,4.0819e-04_jprb,3.9588e-04_jprb,3.6356e-04_jprb,&
 & 3.1361e-04_jprb,2.9658e-04_jprb,3.0348e-04_jprb/)  
kao( :, 5, 7, 6) = (/&
 & 3.9359e-04_jprb,5.0084e-04_jprb,5.2271e-04_jprb,5.2613e-04_jprb,5.1742e-04_jprb,4.8862e-04_jprb,&
 & 4.3693e-04_jprb,3.8092e-04_jprb,3.3962e-04_jprb/)  
kao( :, 1, 8, 6) = (/&
 & 9.0775e-05_jprb,1.1005e-04_jprb,1.1099e-04_jprb,1.0509e-04_jprb,9.9650e-05_jprb,1.1055e-04_jprb,&
 & 1.4832e-04_jprb,1.7530e-04_jprb,4.7525e-04_jprb/)  
kao( :, 2, 8, 6) = (/&
 & 1.2669e-04_jprb,1.5629e-04_jprb,1.6068e-04_jprb,1.5361e-04_jprb,1.4250e-04_jprb,1.3452e-04_jprb,&
 & 1.4933e-04_jprb,2.0310e-04_jprb,5.0480e-04_jprb/)  
kao( :, 3, 8, 6) = (/&
 & 1.7285e-04_jprb,2.1483e-04_jprb,2.2274e-04_jprb,2.1837e-04_jprb,2.0107e-04_jprb,1.8034e-04_jprb,&
 & 1.6967e-04_jprb,2.2418e-04_jprb,5.3971e-04_jprb/)  
kao( :, 4, 8, 6) = (/&
 & 2.3078e-04_jprb,2.8784e-04_jprb,2.9834e-04_jprb,2.9682e-04_jprb,2.8348e-04_jprb,2.5378e-04_jprb,&
 & 2.1967e-04_jprb,2.1775e-04_jprb,5.7949e-04_jprb/)  
kao( :, 5, 8, 6) = (/&
 & 3.0207e-04_jprb,3.7730e-04_jprb,3.9003e-04_jprb,3.8941e-04_jprb,3.7851e-04_jprb,3.5314e-04_jprb,&
 & 3.0320e-04_jprb,2.7345e-04_jprb,6.2347e-04_jprb/)  
kao( :, 1, 9, 6) = (/&
 & 6.4923e-05_jprb,7.7301e-05_jprb,7.6873e-05_jprb,7.2507e-05_jprb,7.2968e-05_jprb,8.8916e-05_jprb,&
 & 1.0626e-04_jprb,1.3047e-04_jprb,2.1479e-03_jprb/)  
kao( :, 2, 9, 6) = (/&
 & 9.2060e-05_jprb,1.1144e-04_jprb,1.1301e-04_jprb,1.0673e-04_jprb,9.8741e-05_jprb,9.7585e-05_jprb,&
 & 1.2203e-04_jprb,1.5315e-04_jprb,2.2213e-03_jprb/)  
kao( :, 3, 9, 6) = (/&
 & 1.2784e-04_jprb,1.5591e-04_jprb,1.5957e-04_jprb,1.5395e-04_jprb,1.4101e-04_jprb,1.2937e-04_jprb,&
 & 1.2902e-04_jprb,1.8269e-04_jprb,2.3004e-03_jprb/)  
kao( :, 4, 9, 6) = (/&
 & 1.7362e-04_jprb,2.1265e-04_jprb,2.1819e-04_jprb,2.1460e-04_jprb,2.0088e-04_jprb,1.7687e-04_jprb,&
 & 1.6114e-04_jprb,1.7045e-04_jprb,2.3836e-03_jprb/)  
kao( :, 5, 9, 6) = (/&
 & 2.3060e-04_jprb,2.8346e-04_jprb,2.9069e-04_jprb,2.8691e-04_jprb,2.7538e-04_jprb,2.5192e-04_jprb,&
 & 2.1567e-04_jprb,2.0242e-04_jprb,2.4645e-03_jprb/)  
kao( :, 1,10, 6) = (/&
 & 4.9625e-05_jprb,5.7572e-05_jprb,5.6443e-05_jprb,5.4999e-05_jprb,5.9435e-05_jprb,7.0786e-05_jprb,&
 & 7.6295e-05_jprb,1.0573e-04_jprb,1.3224e-02_jprb/)  
kao( :, 2,10, 6) = (/&
 & 7.0134e-05_jprb,8.3014e-05_jprb,8.2620e-05_jprb,7.7969e-05_jprb,7.3377e-05_jprb,8.0016e-05_jprb,&
 & 9.8395e-05_jprb,1.2266e-04_jprb,1.3476e-02_jprb/)  
kao( :, 3,10, 6) = (/&
 & 9.7838e-05_jprb,1.1716e-04_jprb,1.1840e-04_jprb,1.1257e-04_jprb,1.0247e-04_jprb,9.5389e-05_jprb,&
 & 1.0384e-04_jprb,1.4488e-04_jprb,1.3733e-02_jprb/)  
kao( :, 4,10, 6) = (/&
 & 1.3411e-04_jprb,1.6175e-04_jprb,1.6407e-04_jprb,1.5918e-04_jprb,1.4592e-04_jprb,1.2914e-04_jprb,&
 & 1.2234e-04_jprb,1.5601e-04_jprb,1.4015e-02_jprb/)  
kao( :, 5,10, 6) = (/&
 & 1.7947e-04_jprb,2.1813e-04_jprb,2.2167e-04_jprb,2.1661e-04_jprb,2.0497e-04_jprb,1.8308e-04_jprb,&
 & 1.5705e-04_jprb,1.5556e-04_jprb,1.4285e-02_jprb/)  
kao( :, 1,11, 6) = (/&
 & 4.6838e-05_jprb,5.3188e-05_jprb,5.1940e-05_jprb,4.9560e-05_jprb,5.2867e-05_jprb,6.0471e-05_jprb,&
 & 6.7131e-05_jprb,8.9235e-05_jprb,2.9682e-02_jprb/)  
kao( :, 2,11, 6) = (/&
 & 6.4771e-05_jprb,7.4879e-05_jprb,7.3789e-05_jprb,6.9085e-05_jprb,6.5402e-05_jprb,6.9078e-05_jprb,&
 & 8.2402e-05_jprb,9.7823e-05_jprb,3.0214e-02_jprb/)  

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


SUBROUTINE part5

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


kao( :, 3,11, 6) = (/&
 & 8.8977e-05_jprb,1.0443e-04_jprb,1.0449e-04_jprb,9.8837e-05_jprb,8.9325e-05_jprb,8.2564e-05_jprb,&
 & 9.0256e-05_jprb,1.2264e-04_jprb,3.0751e-02_jprb/)  
kao( :, 4,11, 6) = (/&
 & 1.2031e-04_jprb,1.4341e-04_jprb,1.4439e-04_jprb,1.3909e-04_jprb,1.2684e-04_jprb,1.1148e-04_jprb,&
 & 1.0343e-04_jprb,1.2710e-04_jprb,3.1294e-02_jprb/)  
kao( :, 5,11, 6) = (/&
 & 1.5966e-04_jprb,1.9217e-04_jprb,1.9445e-04_jprb,1.8922e-04_jprb,1.7785e-04_jprb,1.5826e-04_jprb,&
 & 1.3426e-04_jprb,1.3572e-04_jprb,3.1828e-02_jprb/)  
kao( :, 1,12, 6) = (/&
 & 4.4013e-05_jprb,4.9051e-05_jprb,4.7310e-05_jprb,4.5083e-05_jprb,4.5655e-05_jprb,5.3046e-05_jprb,&
 & 5.5846e-05_jprb,7.3868e-05_jprb,4.2262e-02_jprb/)  
kao( :, 2,12, 6) = (/&
 & 5.9811e-05_jprb,6.7905e-05_jprb,6.6450e-05_jprb,6.1482e-05_jprb,5.7471e-05_jprb,5.8427e-05_jprb,&
 & 7.0235e-05_jprb,8.1755e-05_jprb,4.3100e-02_jprb/)  
kao( :, 3,12, 6) = (/&
 & 8.0771e-05_jprb,9.3483e-05_jprb,9.2712e-05_jprb,8.7290e-05_jprb,7.8335e-05_jprb,7.2055e-05_jprb,&
 & 7.5619e-05_jprb,1.0330e-04_jprb,4.3963e-02_jprb/)  
kao( :, 4,12, 6) = (/&
 & 1.0778e-04_jprb,1.2684e-04_jprb,1.2706e-04_jprb,1.2188e-04_jprb,1.1092e-04_jprb,9.6993e-05_jprb,&
 & 8.8534e-05_jprb,1.0545e-04_jprb,4.4781e-02_jprb/)  
kao( :, 5,12, 6) = (/&
 & 1.4170e-04_jprb,1.6874e-04_jprb,1.7020e-04_jprb,1.6546e-04_jprb,1.5470e-04_jprb,1.3786e-04_jprb,&
 & 1.1554e-04_jprb,1.1534e-04_jprb,4.5542e-02_jprb/)  
kao( :, 1,13, 6) = (/&
 & 4.2090e-05_jprb,4.6101e-05_jprb,4.3965e-05_jprb,4.1016e-05_jprb,4.0300e-05_jprb,4.5499e-05_jprb,&
 & 4.8852e-05_jprb,6.1759e-05_jprb,4.8346e-02_jprb/)  
kao( :, 2,13, 6) = (/&
 & 5.6243e-05_jprb,6.2753e-05_jprb,6.0819e-05_jprb,5.5713e-05_jprb,5.1322e-05_jprb,5.0494e-05_jprb,&
 & 6.0604e-05_jprb,6.8003e-05_jprb,4.9462e-02_jprb/)  
kao( :, 3,13, 6) = (/&
 & 7.4458e-05_jprb,8.4643e-05_jprb,8.3343e-05_jprb,7.8251e-05_jprb,6.9869e-05_jprb,6.3030e-05_jprb,&
 & 6.3206e-05_jprb,8.7133e-05_jprb,5.0553e-02_jprb/)  
kao( :, 4,13, 6) = (/&
 & 9.7702e-05_jprb,1.1298e-04_jprb,1.1246e-04_jprb,1.0753e-04_jprb,9.7507e-05_jprb,8.4857e-05_jprb,&
 & 7.6788e-05_jprb,8.6167e-05_jprb,5.1568e-02_jprb/)  
kao( :, 5,13, 6) = (/&
 & 1.2694e-04_jprb,1.4871e-04_jprb,1.4954e-04_jprb,1.4480e-04_jprb,1.3473e-04_jprb,1.1941e-04_jprb,&
 & 9.9413e-05_jprb,9.9688e-05_jprb,5.2519e-02_jprb/)  
kao( :, 1, 1, 7) = (/&
 & 2.0564e-03_jprb,2.2357e-03_jprb,2.2921e-03_jprb,2.2746e-03_jprb,2.1808e-03_jprb,2.0118e-03_jprb,&
 & 1.7401e-03_jprb,1.3032e-03_jprb,9.5552e-04_jprb/)  
kao( :, 2, 1, 7) = (/&
 & 2.5245e-03_jprb,2.7780e-03_jprb,2.8722e-03_jprb,2.8575e-03_jprb,2.7633e-03_jprb,2.6046e-03_jprb,&
 & 2.3222e-03_jprb,1.8131e-03_jprb,1.3540e-03_jprb/)  
kao( :, 3, 1, 7) = (/&
 & 3.0325e-03_jprb,3.3773e-03_jprb,3.5284e-03_jprb,3.5242e-03_jprb,3.4302e-03_jprb,3.2547e-03_jprb,&
 & 2.9982e-03_jprb,2.6610e-03_jprb,1.7942e-03_jprb/)  
kao( :, 4, 1, 7) = (/&
 & 3.5774e-03_jprb,4.0328e-03_jprb,4.2570e-03_jprb,4.2786e-03_jprb,4.1734e-03_jprb,3.9880e-03_jprb,&
 & 3.7418e-03_jprb,3.6443e-03_jprb,2.2977e-03_jprb/)  
kao( :, 5, 1, 7) = (/&
 & 4.1551e-03_jprb,4.7493e-03_jprb,5.0612e-03_jprb,5.1084e-03_jprb,4.9896e-03_jprb,4.7828e-03_jprb,&
 & 4.5388e-03_jprb,4.6729e-03_jprb,2.8901e-03_jprb/)  
kao( :, 1, 2, 7) = (/&
 & 1.7021e-03_jprb,1.8729e-03_jprb,1.9247e-03_jprb,1.9078e-03_jprb,1.8213e-03_jprb,1.6737e-03_jprb,&
 & 1.4152e-03_jprb,1.0410e-03_jprb,7.2465e-04_jprb/)  
kao( :, 2, 2, 7) = (/&
 & 2.1085e-03_jprb,2.3473e-03_jprb,2.4306e-03_jprb,2.4189e-03_jprb,2.3372e-03_jprb,2.1946e-03_jprb,&
 & 1.9650e-03_jprb,1.4507e-03_jprb,1.0070e-03_jprb/)  
kao( :, 3, 2, 7) = (/&
 & 2.5539e-03_jprb,2.8790e-03_jprb,3.0056e-03_jprb,3.0096e-03_jprb,2.9218e-03_jprb,2.7596e-03_jprb,&
 & 2.5256e-03_jprb,2.1562e-03_jprb,1.3358e-03_jprb/)  
kao( :, 4, 2, 7) = (/&
 & 3.0381e-03_jprb,3.4689e-03_jprb,3.6518e-03_jprb,3.6778e-03_jprb,3.5757e-03_jprb,3.4032e-03_jprb,&
 & 3.1678e-03_jprb,2.9648e-03_jprb,1.7229e-03_jprb/)  
kao( :, 5, 2, 7) = (/&
 & 3.5521e-03_jprb,4.1214e-03_jprb,4.3704e-03_jprb,4.4118e-03_jprb,4.3015e-03_jprb,4.1082e-03_jprb,&
 & 3.8609e-03_jprb,3.8044e-03_jprb,2.1852e-03_jprb/)  
kao( :, 1, 3, 7) = (/&
 & 1.3207e-03_jprb,1.4650e-03_jprb,1.5081e-03_jprb,1.4879e-03_jprb,1.4138e-03_jprb,1.2859e-03_jprb,&
 & 1.0511e-03_jprb,7.8811e-04_jprb,5.1479e-04_jprb/)  
kao( :, 2, 3, 7) = (/&
 & 1.6600e-03_jprb,1.8649e-03_jprb,1.9312e-03_jprb,1.9179e-03_jprb,1.8422e-03_jprb,1.7178e-03_jprb,&
 & 1.5069e-03_jprb,1.1268e-03_jprb,7.0924e-04_jprb/)  
kao( :, 3, 3, 7) = (/&
 & 2.0389e-03_jprb,2.3205e-03_jprb,2.4185e-03_jprb,2.4171e-03_jprb,2.3339e-03_jprb,2.1929e-03_jprb,&
 & 1.9846e-03_jprb,1.6361e-03_jprb,9.4601e-04_jprb/)  
kao( :, 4, 3, 7) = (/&
 & 2.4547e-03_jprb,2.8320e-03_jprb,2.9726e-03_jprb,2.9883e-03_jprb,2.8925e-03_jprb,2.7393e-03_jprb,&
 & 2.5305e-03_jprb,2.2455e-03_jprb,1.2306e-03_jprb/)  
kao( :, 5, 3, 7) = (/&
 & 2.8997e-03_jprb,3.4059e-03_jprb,3.5906e-03_jprb,3.6183e-03_jprb,3.5177e-03_jprb,3.3454e-03_jprb,&
 & 3.1285e-03_jprb,2.9519e-03_jprb,1.5729e-03_jprb/)  
kao( :, 1, 4, 7) = (/&
 & 9.9106e-04_jprb,1.1077e-03_jprb,1.1376e-03_jprb,1.1157e-03_jprb,1.0521e-03_jprb,9.4148e-04_jprb,&
 & 7.8510e-04_jprb,5.6824e-04_jprb,3.5975e-04_jprb/)  
kao( :, 2, 4, 7) = (/&
 & 1.2690e-03_jprb,1.4351e-03_jprb,1.4835e-03_jprb,1.4646e-03_jprb,1.3997e-03_jprb,1.2889e-03_jprb,&
 & 1.0960e-03_jprb,8.9289e-04_jprb,4.9353e-04_jprb/)  
kao( :, 3, 4, 7) = (/&
 & 1.5842e-03_jprb,1.8142e-03_jprb,1.8866e-03_jprb,1.8780e-03_jprb,1.8013e-03_jprb,1.6820e-03_jprb,&
 & 1.5023e-03_jprb,1.1830e-03_jprb,6.6203e-04_jprb/)  
kao( :, 4, 4, 7) = (/&
 & 1.9340e-03_jprb,2.2471e-03_jprb,2.3499e-03_jprb,2.3511e-03_jprb,2.2648e-03_jprb,2.1322e-03_jprb,&
 & 1.9509e-03_jprb,1.6764e-03_jprb,8.7194e-04_jprb/)  
kao( :, 5, 4, 7) = (/&
 & 2.3113e-03_jprb,2.7351e-03_jprb,2.8762e-03_jprb,2.8805e-03_jprb,2.7879e-03_jprb,2.6395e-03_jprb,&
 & 2.4567e-03_jprb,2.2403e-03_jprb,1.1262e-03_jprb/)  
kao( :, 1, 5, 7) = (/&
 & 7.3127e-04_jprb,8.2296e-04_jprb,8.4087e-04_jprb,8.1934e-04_jprb,7.6237e-04_jprb,6.6355e-04_jprb,&
 & 5.7712e-04_jprb,4.2586e-04_jprb,2.6106e-04_jprb/)  
kao( :, 2, 5, 7) = (/&
 & 9.5564e-04_jprb,1.0866e-03_jprb,1.1175e-03_jprb,1.0975e-03_jprb,1.0423e-03_jprb,9.4115e-04_jprb,&
 & 7.8089e-04_jprb,7.0271e-04_jprb,3.5186e-04_jprb/)  
kao( :, 3, 5, 7) = (/&
 & 1.2139e-03_jprb,1.3968e-03_jprb,1.4447e-03_jprb,1.4289e-03_jprb,1.3656e-03_jprb,1.2642e-03_jprb,&
 & 1.1044e-03_jprb,8.5519e-04_jprb,4.7090e-04_jprb/)  
kao( :, 4, 5, 7) = (/&
 & 1.5030e-03_jprb,1.7556e-03_jprb,1.8265e-03_jprb,1.8139e-03_jprb,1.7423e-03_jprb,1.6256e-03_jprb,&
 & 1.4668e-03_jprb,1.2302e-03_jprb,6.2262e-04_jprb/)  
kao( :, 5, 5, 7) = (/&
 & 1.8204e-03_jprb,2.1651e-03_jprb,2.2625e-03_jprb,2.2502e-03_jprb,2.1716e-03_jprb,2.0469e-03_jprb,&
 & 1.8925e-03_jprb,1.6626e-03_jprb,8.1240e-04_jprb/)  
kao( :, 1, 6, 7) = (/&
 & 5.2529e-04_jprb,5.9432e-04_jprb,6.0352e-04_jprb,5.8305e-04_jprb,5.3304e-04_jprb,4.5328e-04_jprb,&
 & 4.1878e-04_jprb,3.5780e-04_jprb,2.4217e-04_jprb/)  
kao( :, 2, 6, 7) = (/&
 & 7.0212e-04_jprb,8.0206e-04_jprb,8.1885e-04_jprb,8.0064e-04_jprb,7.5267e-04_jprb,6.6720e-04_jprb,&
 & 5.4925e-04_jprb,4.7137e-04_jprb,2.9304e-04_jprb/)  
kao( :, 3, 6, 7) = (/&
 & 9.0974e-04_jprb,1.0505e-03_jprb,1.0784e-03_jprb,1.0608e-03_jprb,1.0082e-03_jprb,9.2191e-04_jprb,&
 & 7.8184e-04_jprb,6.5554e-04_jprb,3.6650e-04_jprb/)  
kao( :, 4, 6, 7) = (/&
 & 1.1453e-03_jprb,1.3423e-03_jprb,1.3852e-03_jprb,1.3677e-03_jprb,1.3077e-03_jprb,1.2097e-03_jprb,&
 & 1.0767e-03_jprb,8.5645e-04_jprb,4.6653e-04_jprb/)  
kao( :, 5, 6, 7) = (/&
 & 1.4081e-03_jprb,1.6785e-03_jprb,1.7408e-03_jprb,1.7212e-03_jprb,1.6525e-03_jprb,1.5502e-03_jprb,&
 & 1.4183e-03_jprb,1.2157e-03_jprb,5.9973e-04_jprb/)  
kao( :, 1, 7, 7) = (/&
 & 3.7120e-04_jprb,4.2080e-04_jprb,4.2477e-04_jprb,4.0604e-04_jprb,3.6355e-04_jprb,3.1468e-04_jprb,&
 & 2.7452e-04_jprb,3.0003e-04_jprb,3.4329e-04_jprb/)  
kao( :, 2, 7, 7) = (/&
 & 5.0811e-04_jprb,5.8113e-04_jprb,5.8975e-04_jprb,5.7433e-04_jprb,5.3282e-04_jprb,4.5716e-04_jprb,&
 & 3.8591e-04_jprb,3.1558e-04_jprb,3.8021e-04_jprb/)  
kao( :, 3, 7, 7) = (/&
 & 6.7189e-04_jprb,7.7708e-04_jprb,7.9243e-04_jprb,7.7528e-04_jprb,7.3224e-04_jprb,6.5998e-04_jprb,&
 & 5.4384e-04_jprb,5.0808e-04_jprb,4.2510e-04_jprb/)  
kao( :, 4, 7, 7) = (/&
 & 8.6172e-04_jprb,1.0111e-03_jprb,1.0357e-03_jprb,1.0171e-03_jprb,9.6771e-04_jprb,8.8863e-04_jprb,&
 & 7.7053e-04_jprb,5.9901e-04_jprb,4.8327e-04_jprb/)  
kao( :, 5, 7, 7) = (/&
 & 1.0762e-03_jprb,1.2838e-03_jprb,1.3208e-03_jprb,1.3007e-03_jprb,1.2428e-03_jprb,1.1566e-03_jprb,&
 & 1.0378e-03_jprb,8.6101e-04_jprb,5.6256e-04_jprb/)  
kao( :, 1, 8, 7) = (/&
 & 2.6005e-04_jprb,2.9445e-04_jprb,2.9544e-04_jprb,2.7954e-04_jprb,2.4583e-04_jprb,2.1647e-04_jprb,&
 & 1.8002e-04_jprb,2.3598e-04_jprb,7.9092e-04_jprb/)  
kao( :, 2, 8, 7) = (/&
 & 3.6459e-04_jprb,4.1637e-04_jprb,4.2010e-04_jprb,4.0556e-04_jprb,3.7047e-04_jprb,3.0940e-04_jprb,&
 & 2.7524e-04_jprb,2.5435e-04_jprb,8.3476e-04_jprb/)  
kao( :, 3, 8, 7) = (/&
 & 4.9221e-04_jprb,5.6877e-04_jprb,5.7633e-04_jprb,5.6089e-04_jprb,5.2598e-04_jprb,4.6466e-04_jprb,&
 & 3.7776e-04_jprb,3.4121e-04_jprb,8.7965e-04_jprb/)  
kao( :, 4, 8, 7) = (/&
 & 6.4351e-04_jprb,7.5336e-04_jprb,7.6684e-04_jprb,7.4955e-04_jprb,7.0992e-04_jprb,6.4867e-04_jprb,&
 & 5.4671e-04_jprb,4.4943e-04_jprb,9.3048e-04_jprb/)  
kao( :, 5, 8, 7) = (/&
 & 8.1696e-04_jprb,9.7167e-04_jprb,9.9275e-04_jprb,9.7485e-04_jprb,9.2841e-04_jprb,8.5440e-04_jprb,&
 & 7.5642e-04_jprb,5.9342e-04_jprb,9.8996e-04_jprb/)  
kao( :, 1, 9, 7) = (/&
 & 1.8087e-04_jprb,2.0393e-04_jprb,2.0319e-04_jprb,1.8996e-04_jprb,1.6599e-04_jprb,1.4845e-04_jprb,&
 & 1.4517e-04_jprb,1.8943e-04_jprb,3.7840e-03_jprb/)  
kao( :, 2, 9, 7) = (/&
 & 2.5947e-04_jprb,2.9518e-04_jprb,2.9598e-04_jprb,2.8323e-04_jprb,2.5237e-04_jprb,2.1334e-04_jprb,&
 & 1.9297e-04_jprb,2.0265e-04_jprb,3.8746e-03_jprb/)  
kao( :, 3, 9, 7) = (/&
 & 3.5788e-04_jprb,4.1170e-04_jprb,4.1507e-04_jprb,4.0085e-04_jprb,3.7117e-04_jprb,3.1718e-04_jprb,&
 & 2.6164e-04_jprb,2.2715e-04_jprb,3.9645e-03_jprb/)  
kao( :, 4, 9, 7) = (/&
 & 4.7699e-04_jprb,5.5569e-04_jprb,5.6204e-04_jprb,5.4699e-04_jprb,5.1526e-04_jprb,4.6408e-04_jprb,&
 & 3.7784e-04_jprb,3.4199e-04_jprb,4.0560e-03_jprb/)  
kao( :, 5, 9, 7) = (/&
 & 6.1621e-04_jprb,7.2836e-04_jprb,7.3953e-04_jprb,7.2389e-04_jprb,6.8675e-04_jprb,6.2690e-04_jprb,&
 & 5.4244e-04_jprb,4.1506e-04_jprb,4.1481e-03_jprb/)  
kao( :, 1,10, 7) = (/&
 & 1.3094e-04_jprb,1.4617e-04_jprb,1.4409e-04_jprb,1.3166e-04_jprb,1.1671e-04_jprb,1.0840e-04_jprb,&
 & 1.1994e-04_jprb,1.5334e-04_jprb,2.4678e-02_jprb/)  
kao( :, 2,10, 7) = (/&
 & 1.9036e-04_jprb,2.1493e-04_jprb,2.1399e-04_jprb,2.0239e-04_jprb,1.7779e-04_jprb,1.5202e-04_jprb,&
 & 1.3461e-04_jprb,1.6391e-04_jprb,2.4818e-02_jprb/)  
kao( :, 3,10, 7) = (/&
 & 2.6670e-04_jprb,3.0451e-04_jprb,3.0518e-04_jprb,2.9252e-04_jprb,2.6713e-04_jprb,2.2545e-04_jprb,&
 & 1.9430e-04_jprb,1.7654e-04_jprb,2.4944e-02_jprb/)  
kao( :, 4,10, 7) = (/&
 & 3.6077e-04_jprb,4.1729e-04_jprb,4.1982e-04_jprb,4.0619e-04_jprb,3.7979e-04_jprb,3.3605e-04_jprb,&
 & 2.6665e-04_jprb,2.5064e-04_jprb,2.5043e-02_jprb/)  
kao( :, 5,10, 7) = (/&
 & 4.7368e-04_jprb,5.5457e-04_jprb,5.6006e-04_jprb,5.4560e-04_jprb,5.1520e-04_jprb,4.6682e-04_jprb,&
 & 3.9587e-04_jprb,3.0490e-04_jprb,2.5182e-02_jprb/)  
kao( :, 1,11, 7) = (/&
 & 1.1672e-04_jprb,1.2865e-04_jprb,1.2575e-04_jprb,1.1552e-04_jprb,1.0159e-04_jprb,9.2164e-05_jprb,&
 & 9.9270e-05_jprb,1.2653e-04_jprb,5.7559e-02_jprb/)  
kao( :, 2,11, 7) = (/&
 & 1.6732e-04_jprb,1.8741e-04_jprb,1.8550e-04_jprb,1.7442e-04_jprb,1.5354e-04_jprb,1.3133e-04_jprb,&
 & 1.1767e-04_jprb,1.4329e-04_jprb,5.7684e-02_jprb/)  
kao( :, 3,11, 7) = (/&
 & 2.3276e-04_jprb,2.6444e-04_jprb,2.6342e-04_jprb,2.5118e-04_jprb,2.2884e-04_jprb,1.9264e-04_jprb,&
 & 1.6524e-04_jprb,1.4558e-04_jprb,5.7855e-02_jprb/)  
kao( :, 4,11, 7) = (/&
 & 3.1443e-04_jprb,3.6154e-04_jprb,3.6203e-04_jprb,3.4857e-04_jprb,3.2499e-04_jprb,2.8713e-04_jprb,&
 & 2.2934e-04_jprb,2.1182e-04_jprb,5.7981e-02_jprb/)  
kao( :, 5,11, 7) = (/&
 & 4.1392e-04_jprb,4.8111e-04_jprb,4.8318e-04_jprb,4.6852e-04_jprb,4.4073e-04_jprb,3.9804e-04_jprb,&
 & 3.3719e-04_jprb,2.5664e-04_jprb,5.8015e-02_jprb/)  
kao( :, 1,12, 7) = (/&
 & 1.0495e-04_jprb,1.1425e-04_jprb,1.1065e-04_jprb,1.0139e-04_jprb,8.8702e-05_jprb,8.0270e-05_jprb,&
 & 8.3227e-05_jprb,1.1035e-04_jprb,8.4777e-02_jprb/)  
kao( :, 2,12, 7) = (/&
 & 1.4811e-04_jprb,1.6444e-04_jprb,1.6133e-04_jprb,1.5088e-04_jprb,1.3304e-04_jprb,1.1329e-04_jprb,&
 & 1.0211e-04_jprb,1.1814e-04_jprb,8.5052e-02_jprb/)  
kao( :, 3,12, 7) = (/&
 & 2.0461e-04_jprb,2.3053e-04_jprb,2.2799e-04_jprb,2.1647e-04_jprb,1.9655e-04_jprb,1.6510e-04_jprb,&
 & 1.3813e-04_jprb,1.2052e-04_jprb,8.5320e-02_jprb/)  
kao( :, 4,12, 7) = (/&
 & 2.7614e-04_jprb,3.1483e-04_jprb,3.1311e-04_jprb,3.0005e-04_jprb,2.7866e-04_jprb,2.4569e-04_jprb,&
 & 1.9595e-04_jprb,1.7650e-04_jprb,8.5551e-02_jprb/)  
kao( :, 5,12, 7) = (/&
 & 3.6369e-04_jprb,4.1945e-04_jprb,4.1876e-04_jprb,4.0374e-04_jprb,3.7792e-04_jprb,3.3990e-04_jprb,&
 & 2.8821e-04_jprb,2.1660e-04_jprb,8.5586e-02_jprb/)  
kao( :, 1,13, 7) = (/&
 & 9.6451e-05_jprb,1.0341e-04_jprb,9.9264e-05_jprb,9.0436e-05_jprb,7.8283e-05_jprb,7.1353e-05_jprb,&
 & 7.0038e-05_jprb,8.7127e-05_jprb,1.0017e-01_jprb/)  
kao( :, 2,13, 7) = (/&
 & 1.3353e-04_jprb,1.4634e-04_jprb,1.4212e-04_jprb,1.3211e-04_jprb,1.1628e-04_jprb,9.7846e-05_jprb,&
 & 8.8593e-05_jprb,9.9520e-05_jprb,1.0066e-01_jprb/)  
kao( :, 3,13, 7) = (/&
 & 1.8247e-04_jprb,2.0319e-04_jprb,1.9922e-04_jprb,1.8770e-04_jprb,1.6984e-04_jprb,1.4285e-04_jprb,&
 & 1.1822e-04_jprb,1.0096e-04_jprb,1.0114e-01_jprb/)  
kao( :, 4,13, 7) = (/&
 & 2.4463e-04_jprb,2.7635e-04_jprb,2.7262e-04_jprb,2.5991e-04_jprb,2.4023e-04_jprb,2.1109e-04_jprb,&
 & 1.6739e-04_jprb,1.4711e-04_jprb,1.0151e-01_jprb/)  
kao( :, 5,13, 7) = (/&
 & 3.2023e-04_jprb,3.6781e-04_jprb,3.6463e-04_jprb,3.4949e-04_jprb,3.2644e-04_jprb,2.9244e-04_jprb,&
 & 2.4737e-04_jprb,1.8188e-04_jprb,1.0162e-01_jprb/)  
kao( :, 1, 1, 8) = (/&
 & 4.4239e-03_jprb,4.5519e-03_jprb,4.5724e-03_jprb,4.4178e-03_jprb,4.2198e-03_jprb,4.0058e-03_jprb,&
 & 3.6615e-03_jprb,3.0019e-03_jprb,2.7752e-03_jprb/)  
kao( :, 2, 1, 8) = (/&
 & 5.3797e-03_jprb,5.6034e-03_jprb,5.6810e-03_jprb,5.5458e-03_jprb,5.3768e-03_jprb,5.2131e-03_jprb,&
 & 5.0349e-03_jprb,4.6587e-03_jprb,3.8056e-03_jprb/)  
kao( :, 3, 1, 8) = (/&
 & 6.4347e-03_jprb,6.7859e-03_jprb,6.9273e-03_jprb,6.8482e-03_jprb,6.7118e-03_jprb,6.6177e-03_jprb,&
 & 6.6013e-03_jprb,6.5225e-03_jprb,5.0401e-03_jprb/)  
kao( :, 4, 1, 8) = (/&
 & 7.5645e-03_jprb,8.0892e-03_jprb,8.3352e-03_jprb,8.3083e-03_jprb,8.2560e-03_jprb,8.2611e-03_jprb,&
 & 8.3847e-03_jprb,8.5252e-03_jprb,6.4996e-03_jprb/)  
kao( :, 5, 1, 8) = (/&
 & 8.7680e-03_jprb,9.5130e-03_jprb,9.8898e-03_jprb,9.9473e-03_jprb,1.0011e-02_jprb,1.0143e-02_jprb,&
 & 1.0425e-02_jprb,1.0769e-02_jprb,8.2076e-03_jprb/)  
kao( :, 1, 2, 8) = (/&
 & 3.8956e-03_jprb,4.0502e-03_jprb,4.0603e-03_jprb,3.9353e-03_jprb,3.7465e-03_jprb,3.4739e-03_jprb,&
 & 3.0905e-03_jprb,2.3943e-03_jprb,2.1184e-03_jprb/)  
kao( :, 2, 2, 8) = (/&
 & 4.7918e-03_jprb,5.0484e-03_jprb,5.0971e-03_jprb,4.9960e-03_jprb,4.7901e-03_jprb,4.5311e-03_jprb,&
 & 4.2459e-03_jprb,3.8455e-03_jprb,2.9268e-03_jprb/)  
kao( :, 3, 2, 8) = (/&
 & 5.7854e-03_jprb,6.1757e-03_jprb,6.2838e-03_jprb,6.2127e-03_jprb,6.0071e-03_jprb,5.7828e-03_jprb,&
 & 5.6083e-03_jprb,5.4427e-03_jprb,3.9021e-03_jprb/)  
kao( :, 4, 2, 8) = (/&
 & 6.8580e-03_jprb,7.4217e-03_jprb,7.6327e-03_jprb,7.5901e-03_jprb,7.4062e-03_jprb,7.2358e-03_jprb,&
 & 7.1625e-03_jprb,7.2397e-03_jprb,5.0676e-03_jprb/)  
kao( :, 5, 2, 8) = (/&
 & 8.0102e-03_jprb,8.7860e-03_jprb,9.1257e-03_jprb,9.1299e-03_jprb,8.9977e-03_jprb,8.9056e-03_jprb,&
 & 8.9466e-03_jprb,9.2132e-03_jprb,6.4234e-03_jprb/)  
kao( :, 1, 3, 8) = (/&
 & 3.2185e-03_jprb,3.3667e-03_jprb,3.3683e-03_jprb,3.2709e-03_jprb,3.1158e-03_jprb,2.8506e-03_jprb,&
 & 2.4272e-03_jprb,1.7393e-03_jprb,1.4905e-03_jprb/)  
kao( :, 2, 3, 8) = (/&
 & 4.0272e-03_jprb,4.2617e-03_jprb,4.2966e-03_jprb,4.2148e-03_jprb,4.0495e-03_jprb,3.7679e-03_jprb,&
 & 3.4096e-03_jprb,2.8817e-03_jprb,2.0706e-03_jprb/)  
kao( :, 3, 3, 8) = (/&
 & 4.9255e-03_jprb,5.2838e-03_jprb,5.3750e-03_jprb,5.3109e-03_jprb,5.1338e-03_jprb,4.8398e-03_jprb,&
 & 4.5501e-03_jprb,4.1909e-03_jprb,2.7937e-03_jprb/)  
kao( :, 4, 3, 8) = (/&
 & 5.9079e-03_jprb,6.4325e-03_jprb,6.6107e-03_jprb,6.5630e-03_jprb,6.3820e-03_jprb,6.0909e-03_jprb,&
 & 5.8611e-03_jprb,5.7562e-03_jprb,3.6692e-03_jprb/)  
kao( :, 5, 3, 8) = (/&
 & 6.9696e-03_jprb,7.6975e-03_jprb,7.9877e-03_jprb,7.9811e-03_jprb,7.8040e-03_jprb,7.5290e-03_jprb,&
 & 7.3615e-03_jprb,7.4650e-03_jprb,4.7053e-03_jprb/)  
kao( :, 1, 4, 8) = (/&
 & 2.5545e-03_jprb,2.6859e-03_jprb,2.6880e-03_jprb,2.6203e-03_jprb,2.4823e-03_jprb,2.2588e-03_jprb,&
 & 1.8322e-03_jprb,1.2713e-03_jprb,1.0214e-03_jprb/)  
kao( :, 2, 4, 8) = (/&
 & 3.2572e-03_jprb,3.4677e-03_jprb,3.4957e-03_jprb,3.4378e-03_jprb,3.2931e-03_jprb,3.0601e-03_jprb,&
 & 2.6717e-03_jprb,2.0170e-03_jprb,1.4352e-03_jprb/)  
kao( :, 3, 4, 8) = (/&
 & 4.0447e-03_jprb,4.3684e-03_jprb,4.4456e-03_jprb,4.3951e-03_jprb,4.2405e-03_jprb,3.9923e-03_jprb,&
 & 3.6333e-03_jprb,3.0944e-03_jprb,1.9579e-03_jprb/)  
kao( :, 4, 4, 8) = (/&
 & 4.9198e-03_jprb,5.3921e-03_jprb,5.5389e-03_jprb,5.5062e-03_jprb,5.3434e-03_jprb,5.0807e-03_jprb,&
 & 4.7402e-03_jprb,4.4587e-03_jprb,2.6028e-03_jprb/)  

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


SUBROUTINE part6

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


kao( :, 5, 4, 8) = (/&
 & 5.8819e-03_jprb,6.5317e-03_jprb,6.7822e-03_jprb,6.7765e-03_jprb,6.6162e-03_jprb,6.3253e-03_jprb,&
 & 5.9954e-03_jprb,5.8840e-03_jprb,3.3755e-03_jprb/)  
kao( :, 1, 5, 8) = (/&
 & 1.9756e-03_jprb,2.0856e-03_jprb,2.0921e-03_jprb,2.0392e-03_jprb,1.9309e-03_jprb,1.7377e-03_jprb,&
 & 1.3394e-03_jprb,9.1353e-04_jprb,7.0438e-04_jprb/)  
kao( :, 2, 5, 8) = (/&
 & 2.5687e-03_jprb,2.7468e-03_jprb,2.7774e-03_jprb,2.7346e-03_jprb,2.6141e-03_jprb,2.4178e-03_jprb,&
 & 2.0843e-03_jprb,1.3471e-03_jprb,9.9854e-04_jprb/)  
kao( :, 3, 5, 8) = (/&
 & 3.2454e-03_jprb,3.5226e-03_jprb,3.5942e-03_jprb,3.5589e-03_jprb,3.4246e-03_jprb,3.2139e-03_jprb,&
 & 2.8968e-03_jprb,2.2808e-03_jprb,1.3756e-03_jprb/)  
kao( :, 4, 5, 8) = (/&
 & 4.0078e-03_jprb,4.4135e-03_jprb,4.5464e-03_jprb,4.5227e-03_jprb,4.3801e-03_jprb,4.1565e-03_jprb,&
 & 3.8227e-03_jprb,3.4129e-03_jprb,1.8460e-03_jprb/)  
kao( :, 5, 5, 8) = (/&
 & 4.8571e-03_jprb,5.4208e-03_jprb,5.6379e-03_jprb,5.6316e-03_jprb,5.4908e-03_jprb,5.2408e-03_jprb,&
 & 4.8842e-03_jprb,4.5932e-03_jprb,2.4240e-03_jprb/)  
kao( :, 1, 6, 8) = (/&
 & 1.4751e-03_jprb,1.5649e-03_jprb,1.5698e-03_jprb,1.5250e-03_jprb,1.4367e-03_jprb,1.2692e-03_jprb,&
 & 9.2432e-04_jprb,6.8601e-04_jprb,5.0937e-04_jprb/)  
kao( :, 2, 6, 8) = (/&
 & 1.9613e-03_jprb,2.1071e-03_jprb,2.1348e-03_jprb,2.0943e-03_jprb,1.9976e-03_jprb,1.8330e-03_jprb,&
 & 1.5334e-03_jprb,9.4512e-04_jprb,7.0634e-04_jprb/)  
kao( :, 3, 6, 8) = (/&
 & 2.5283e-03_jprb,2.7572e-03_jprb,2.8184e-03_jprb,2.7830e-03_jprb,2.6756e-03_jprb,2.5003e-03_jprb,&
 & 2.2237e-03_jprb,1.6320e-03_jprb,9.7275e-04_jprb/)  
kao( :, 4, 6, 8) = (/&
 & 3.1771e-03_jprb,3.5120e-03_jprb,3.6225e-03_jprb,3.5959e-03_jprb,3.4819e-03_jprb,3.2887e-03_jprb,&
 & 3.0155e-03_jprb,2.5468e-03_jprb,1.3152e-03_jprb/)  
kao( :, 5, 6, 8) = (/&
 & 3.9082e-03_jprb,4.3796e-03_jprb,4.5491e-03_jprb,4.5475e-03_jprb,4.4280e-03_jprb,4.2073e-03_jprb,&
 & 3.9106e-03_jprb,3.5240e-03_jprb,1.7410e-03_jprb/)  
kao( :, 1, 7, 8) = (/&
 & 1.0756e-03_jprb,1.1457e-03_jprb,1.1474e-03_jprb,1.1092e-03_jprb,1.0328e-03_jprb,8.8328e-04_jprb,&
 & 6.4847e-04_jprb,4.9589e-04_jprb,5.7093e-04_jprb/)  
kao( :, 2, 7, 8) = (/&
 & 1.4649e-03_jprb,1.5820e-03_jprb,1.5990e-03_jprb,1.5629e-03_jprb,1.4809e-03_jprb,1.3423e-03_jprb,&
 & 1.0733e-03_jprb,6.5945e-04_jprb,6.7059e-04_jprb/)  
kao( :, 3, 7, 8) = (/&
 & 1.9283e-03_jprb,2.1130e-03_jprb,2.1564e-03_jprb,2.1214e-03_jprb,2.0320e-03_jprb,1.8875e-03_jprb,&
 & 1.6475e-03_jprb,1.0998e-03_jprb,8.2028e-04_jprb/)  
kao( :, 4, 7, 8) = (/&
 & 2.4693e-03_jprb,2.7409e-03_jprb,2.8220e-03_jprb,2.7928e-03_jprb,2.6936e-03_jprb,2.5390e-03_jprb,&
 & 2.3115e-03_jprb,1.8751e-03_jprb,1.0332e-03_jprb/)  
kao( :, 5, 7, 8) = (/&
 & 3.0886e-03_jprb,3.4749e-03_jprb,3.5989e-03_jprb,3.5853e-03_jprb,3.4794e-03_jprb,3.3014e-03_jprb,&
 & 3.0555e-03_jprb,2.6855e-03_jprb,1.3202e-03_jprb/)  
kao( :, 1, 8, 8) = (/&
 & 7.7013e-04_jprb,8.2269e-04_jprb,8.2096e-04_jprb,7.8766e-04_jprb,7.2051e-04_jprb,5.9734e-04_jprb,&
 & 4.5221e-04_jprb,3.6815e-04_jprb,1.2465e-03_jprb/)  
kao( :, 2, 8, 8) = (/&
 & 1.0761e-03_jprb,1.1666e-03_jprb,1.1753e-03_jprb,1.1418e-03_jprb,1.0747e-03_jprb,9.5486e-04_jprb,&
 & 7.2722e-04_jprb,4.9024e-04_jprb,1.3265e-03_jprb/)  
kao( :, 3, 8, 8) = (/&
 & 1.4486e-03_jprb,1.5933e-03_jprb,1.6206e-03_jprb,1.5872e-03_jprb,1.5112e-03_jprb,1.3931e-03_jprb,&
 & 1.1791e-03_jprb,7.7032e-04_jprb,1.4183e-03_jprb/)  
kao( :, 4, 8, 8) = (/&
 & 1.8914e-03_jprb,2.1096e-03_jprb,2.1595e-03_jprb,2.1285e-03_jprb,2.0449e-03_jprb,1.9150e-03_jprb,&
 & 1.7248e-03_jprb,1.3234e-03_jprb,1.5297e-03_jprb/)  
kao( :, 5, 8, 8) = (/&
 & 2.4078e-03_jprb,2.7196e-03_jprb,2.8008e-03_jprb,2.7757e-03_jprb,2.6827e-03_jprb,2.5404e-03_jprb,&
 & 2.3451e-03_jprb,2.0264e-03_jprb,1.6770e-03_jprb/)  
kao( :, 1, 9, 8) = (/&
 & 5.4062e-04_jprb,5.7894e-04_jprb,5.7406e-04_jprb,5.4447e-04_jprb,4.8698e-04_jprb,3.9028e-04_jprb,&
 & 3.0735e-04_jprb,2.8186e-04_jprb,6.3377e-03_jprb/)  
kao( :, 2, 9, 8) = (/&
 & 7.7655e-04_jprb,8.4391e-04_jprb,8.4599e-04_jprb,8.1629e-04_jprb,7.6016e-04_jprb,6.5450e-04_jprb,&
 & 4.7980e-04_jprb,3.6416e-04_jprb,6.4305e-03_jprb/)  
kao( :, 3, 9, 8) = (/&
 & 1.0705e-03_jprb,1.1799e-03_jprb,1.1936e-03_jprb,1.1638e-03_jprb,1.1017e-03_jprb,1.0023e-03_jprb,&
 & 8.1517e-04_jprb,5.4679e-04_jprb,6.5495e-03_jprb/)  
kao( :, 4, 9, 8) = (/&
 & 1.4270e-03_jprb,1.5951e-03_jprb,1.6232e-03_jprb,1.5910e-03_jprb,1.5219e-03_jprb,1.4168e-03_jprb,&
 & 1.2519e-03_jprb,8.7875e-04_jprb,6.6729e-03_jprb/)  
kao( :, 5, 9, 8) = (/&
 & 1.8505e-03_jprb,2.0950e-03_jprb,2.1415e-03_jprb,2.1108e-03_jprb,2.0308e-03_jprb,1.9153e-03_jprb,&
 & 1.7561e-03_jprb,1.4678e-03_jprb,6.8190e-03_jprb/)  
kao( :, 1,10, 8) = (/&
 & 3.8585e-04_jprb,4.1375e-04_jprb,4.0806e-04_jprb,3.8295e-04_jprb,3.3374e-04_jprb,2.6302e-04_jprb,&
 & 2.1519e-04_jprb,2.1943e-04_jprb,4.4307e-02_jprb/)  
kao( :, 2,10, 8) = (/&
 & 5.6783e-04_jprb,6.1776e-04_jprb,6.1659e-04_jprb,5.9118e-04_jprb,5.4276e-04_jprb,4.5386e-04_jprb,&
 & 3.3714e-04_jprb,2.8172e-04_jprb,4.4039e-02_jprb/)  
kao( :, 3,10, 8) = (/&
 & 7.9994e-04_jprb,8.8269e-04_jprb,8.8820e-04_jprb,8.6201e-04_jprb,8.1182e-04_jprb,7.2562e-04_jprb,&
 & 5.6386e-04_jprb,3.8153e-04_jprb,4.3887e-02_jprb/)  
kao( :, 4,10, 8) = (/&
 & 1.0873e-03_jprb,1.2167e-03_jprb,1.2305e-03_jprb,1.2016e-03_jprb,1.1439e-03_jprb,1.0569e-03_jprb,&
 & 9.1489e-04_jprb,6.0012e-04_jprb,4.3695e-02_jprb/)  
kao( :, 5,10, 8) = (/&
 & 1.4329e-03_jprb,1.6260e-03_jprb,1.6511e-03_jprb,1.6186e-03_jprb,1.5509e-03_jprb,1.4549e-03_jprb,&
 & 1.3198e-03_jprb,1.0619e-03_jprb,4.3454e-02_jprb/)  
kao( :, 1,11, 8) = (/&
 & 3.3331e-04_jprb,3.5859e-04_jprb,3.5347e-04_jprb,3.3213e-04_jprb,2.8916e-04_jprb,2.2877e-04_jprb,&
 & 1.7900e-04_jprb,1.9967e-04_jprb,1.0878e-01_jprb/)  
kao( :, 2,11, 8) = (/&
 & 4.9047e-04_jprb,5.3552e-04_jprb,5.3381e-04_jprb,5.1299e-04_jprb,4.7115e-04_jprb,3.9388e-04_jprb,&
 & 2.9080e-04_jprb,2.3623e-04_jprb,1.0793e-01_jprb/)  
kao( :, 3,11, 8) = (/&
 & 6.9278e-04_jprb,7.6757e-04_jprb,7.7025e-04_jprb,7.4755e-04_jprb,7.0442e-04_jprb,6.3244e-04_jprb,&
 & 4.9501e-04_jprb,3.3029e-04_jprb,1.0687e-01_jprb/)  
kao( :, 4,11, 8) = (/&
 & 9.4454e-04_jprb,1.0621e-03_jprb,1.0699e-03_jprb,1.0431e-03_jprb,9.9167e-04_jprb,9.1658e-04_jprb,&
 & 7.9795e-04_jprb,5.4407e-04_jprb,1.0586e-01_jprb/)  
kao( :, 5,11, 8) = (/&
 & 1.2469e-03_jprb,1.4253e-03_jprb,1.4411e-03_jprb,1.4083e-03_jprb,1.3458e-03_jprb,1.2607e-03_jprb,&
 & 1.1470e-03_jprb,9.3092e-04_jprb,1.0499e-01_jprb/)  
kao( :, 1,12, 8) = (/&
 & 2.8868e-04_jprb,3.1016e-04_jprb,3.0546e-04_jprb,2.8704e-04_jprb,2.5147e-04_jprb,1.9676e-04_jprb,&
 & 1.5529e-04_jprb,1.6943e-04_jprb,1.6800e-01_jprb/)  
kao( :, 2,12, 8) = (/&
 & 4.2419e-04_jprb,4.6341e-04_jprb,4.6115e-04_jprb,4.4308e-04_jprb,4.0808e-04_jprb,3.4351e-04_jprb,&
 & 2.4857e-04_jprb,1.9580e-04_jprb,1.6656e-01_jprb/)  
kao( :, 3,12, 8) = (/&
 & 6.0023e-04_jprb,6.6617e-04_jprb,6.6650e-04_jprb,6.4587e-04_jprb,6.0783e-04_jprb,5.4736e-04_jprb,&
 & 4.3585e-04_jprb,2.8774e-04_jprb,1.6485e-01_jprb/)  
kao( :, 4,12, 8) = (/&
 & 8.1906e-04_jprb,9.2524e-04_jprb,9.2921e-04_jprb,9.0286e-04_jprb,8.5627e-04_jprb,7.9080e-04_jprb,&
 & 6.9052e-04_jprb,4.8039e-04_jprb,1.6324e-01_jprb/)  
kao( :, 5,12, 8) = (/&
 & 1.0839e-03_jprb,1.2432e-03_jprb,1.2546e-03_jprb,1.2224e-03_jprb,1.1638e-03_jprb,1.0874e-03_jprb,&
 & 9.8876e-04_jprb,8.1388e-04_jprb,1.6195e-01_jprb/)  
kao( :, 1,13, 8) = (/&
 & 2.5312e-04_jprb,2.6982e-04_jprb,2.6458e-04_jprb,2.4857e-04_jprb,2.1806e-04_jprb,1.7081e-04_jprb,&
 & 1.3117e-04_jprb,1.3895e-04_jprb,2.0739e-01_jprb/)  
kao( :, 2,13, 8) = (/&
 & 3.6904e-04_jprb,4.0143e-04_jprb,3.9817e-04_jprb,3.8186e-04_jprb,3.5137e-04_jprb,2.9757e-04_jprb,&
 & 2.1658e-04_jprb,1.6379e-04_jprb,2.0586e-01_jprb/)  
kao( :, 3,13, 8) = (/&
 & 5.2080e-04_jprb,5.7811e-04_jprb,5.7661e-04_jprb,5.5693e-04_jprb,5.2224e-04_jprb,4.6985e-04_jprb,&
 & 3.7580e-04_jprb,2.4807e-04_jprb,2.0409e-01_jprb/)  
kao( :, 4,13, 8) = (/&
 & 7.1123e-04_jprb,8.0344e-04_jprb,8.0567e-04_jprb,7.8029e-04_jprb,7.3718e-04_jprb,6.7848e-04_jprb,&
 & 5.9304e-04_jprb,4.2232e-04_jprb,2.0245e-01_jprb/)  
kao( :, 5,13, 8) = (/&
 & 9.4485e-04_jprb,1.0811e-03_jprb,1.0875e-03_jprb,1.0578e-03_jprb,1.0044e-03_jprb,9.3443e-04_jprb,&
 & 8.4723e-04_jprb,7.0315e-04_jprb,2.0129e-01_jprb/)  
kao( :, 1, 1, 9) = (/&
 & 1.0292e-02_jprb,1.0074e-02_jprb,1.0433e-02_jprb,1.0920e-02_jprb,1.1239e-02_jprb,1.1304e-02_jprb,&
 & 1.1018e-02_jprb,9.9412e-03_jprb,1.0267e-02_jprb/)  
kao( :, 2, 1, 9) = (/&
 & 1.2495e-02_jprb,1.2453e-02_jprb,1.3049e-02_jprb,1.3792e-02_jprb,1.4278e-02_jprb,1.4496e-02_jprb,&
 & 1.4236e-02_jprb,1.3361e-02_jprb,1.3925e-02_jprb/)  
kao( :, 3, 1, 9) = (/&
 & 1.4859e-02_jprb,1.5091e-02_jprb,1.6017e-02_jprb,1.7045e-02_jprb,1.7806e-02_jprb,1.8195e-02_jprb,&
 & 1.7952e-02_jprb,1.7365e-02_jprb,1.8464e-02_jprb/)  
kao( :, 4, 1, 9) = (/&
 & 1.7363e-02_jprb,1.7942e-02_jprb,1.9281e-02_jprb,2.0718e-02_jprb,2.1801e-02_jprb,2.2424e-02_jprb,&
 & 2.2300e-02_jprb,2.2092e-02_jprb,2.3948e-02_jprb/)  
kao( :, 5, 1, 9) = (/&
 & 1.9984e-02_jprb,2.1018e-02_jprb,2.2868e-02_jprb,2.4808e-02_jprb,2.6324e-02_jprb,2.7242e-02_jprb,&
 & 2.7276e-02_jprb,2.7701e-02_jprb,3.0488e-02_jprb/)  
kao( :, 1, 2, 9) = (/&
 & 9.5128e-03_jprb,9.2867e-03_jprb,9.5490e-03_jprb,9.8633e-03_jprb,1.0027e-02_jprb,1.0058e-02_jprb,&
 & 9.7636e-03_jprb,8.7994e-03_jprb,8.5570e-03_jprb/)  
kao( :, 2, 2, 9) = (/&
 & 1.1668e-02_jprb,1.1584e-02_jprb,1.2077e-02_jprb,1.2559e-02_jprb,1.2920e-02_jprb,1.3060e-02_jprb,&
 & 1.2825e-02_jprb,1.1983e-02_jprb,1.1751e-02_jprb/)  
kao( :, 3, 2, 9) = (/&
 & 1.4011e-02_jprb,1.4151e-02_jprb,1.4940e-02_jprb,1.5660e-02_jprb,1.6284e-02_jprb,1.6579e-02_jprb,&
 & 1.6367e-02_jprb,1.5804e-02_jprb,1.5742e-02_jprb/)  
kao( :, 4, 2, 9) = (/&
 & 1.6508e-02_jprb,1.6961e-02_jprb,1.8102e-02_jprb,1.9197e-02_jprb,2.0137e-02_jprb,2.0668e-02_jprb,&
 & 2.0505e-02_jprb,2.0318e-02_jprb,2.0610e-02_jprb/)  
kao( :, 5, 2, 9) = (/&
 & 1.9122e-02_jprb,2.0006e-02_jprb,2.1590e-02_jprb,2.3174e-02_jprb,2.4520e-02_jprb,2.5288e-02_jprb,&
 & 2.5261e-02_jprb,2.5631e-02_jprb,2.6467e-02_jprb/)  
kao( :, 1, 3, 9) = (/&
 & 8.4316e-03_jprb,8.1842e-03_jprb,8.3414e-03_jprb,8.4601e-03_jprb,8.4527e-03_jprb,8.3467e-03_jprb,&
 & 8.0420e-03_jprb,7.1142e-03_jprb,6.5461e-03_jprb/)  
kao( :, 2, 3, 9) = (/&
 & 1.0508e-02_jprb,1.0365e-02_jprb,1.0700e-02_jprb,1.0941e-02_jprb,1.1049e-02_jprb,1.1031e-02_jprb,&
 & 1.0751e-02_jprb,9.9386e-03_jprb,9.1449e-03_jprb/)  
kao( :, 3, 3, 9) = (/&
 & 1.2785e-02_jprb,1.2829e-02_jprb,1.3389e-02_jprb,1.3825e-02_jprb,1.4105e-02_jprb,1.4232e-02_jprb,&
 & 1.3991e-02_jprb,1.3420e-02_jprb,1.2428e-02_jprb/)  
kao( :, 4, 3, 9) = (/&
 & 1.5245e-02_jprb,1.5545e-02_jprb,1.6390e-02_jprb,1.7132e-02_jprb,1.7666e-02_jprb,1.7977e-02_jprb,&
 & 1.7716e-02_jprb,1.7486e-02_jprb,1.6472e-02_jprb/)  
kao( :, 5, 3, 9) = (/&
 & 1.7859e-02_jprb,1.8505e-02_jprb,1.9736e-02_jprb,2.0852e-02_jprb,2.1757e-02_jprb,2.2224e-02_jprb,&
 & 2.2056e-02_jprb,2.2280e-02_jprb,2.1403e-02_jprb/)  
kao( :, 1, 4, 9) = (/&
 & 7.3484e-03_jprb,7.0902e-03_jprb,7.1380e-03_jprb,7.1024e-03_jprb,6.9776e-03_jprb,6.7400e-03_jprb,&
 & 6.3521e-03_jprb,5.4673e-03_jprb,4.8295e-03_jprb/)  
kao( :, 2, 4, 9) = (/&
 & 9.3310e-03_jprb,9.1397e-03_jprb,9.3159e-03_jprb,9.3538e-03_jprb,9.2681e-03_jprb,9.0554e-03_jprb,&
 & 8.7344e-03_jprb,7.9076e-03_jprb,6.8828e-03_jprb/)  
kao( :, 3, 4, 9) = (/&
 & 1.1534e-02_jprb,1.1475e-02_jprb,1.1819e-02_jprb,1.1988e-02_jprb,1.2000e-02_jprb,1.1864e-02_jprb,&
 & 1.1575e-02_jprb,1.0994e-02_jprb,9.4901e-03_jprb/)  
kao( :, 4, 4, 9) = (/&
 & 1.3943e-02_jprb,1.4087e-02_jprb,1.4649e-02_jprb,1.5032e-02_jprb,1.5214e-02_jprb,1.5176e-02_jprb,&
 & 1.4865e-02_jprb,1.4524e-02_jprb,1.2777e-02_jprb/)  
kao( :, 5, 4, 9) = (/&
 & 1.6517e-02_jprb,1.6976e-02_jprb,1.7827e-02_jprb,1.8519e-02_jprb,1.8920e-02_jprb,1.9000e-02_jprb,&
 & 1.8720e-02_jprb,1.8746e-02_jprb,1.6804e-02_jprb/)  
kao( :, 1, 5, 9) = (/&
 & 6.3624e-03_jprb,6.1133e-03_jprb,6.0634e-03_jprb,5.9330e-03_jprb,5.7181e-03_jprb,5.4022e-03_jprb,&
 & 4.9483e-03_jprb,4.1022e-03_jprb,3.4892e-03_jprb/)  
kao( :, 2, 5, 9) = (/&
 & 8.2407e-03_jprb,8.0303e-03_jprb,8.0632e-03_jprb,7.9504e-03_jprb,7.7253e-03_jprb,7.3962e-03_jprb,&
 & 6.9698e-03_jprb,6.1767e-03_jprb,5.0748e-03_jprb/)  
kao( :, 3, 5, 9) = (/&
 & 1.0363e-02_jprb,1.0246e-02_jprb,1.0387e-02_jprb,1.0335e-02_jprb,1.0149e-02_jprb,9.8386e-03_jprb,&
 & 9.4225e-03_jprb,8.8118e-03_jprb,7.1402e-03_jprb/)  
kao( :, 4, 5, 9) = (/&
 & 1.2695e-02_jprb,1.2755e-02_jprb,1.3046e-02_jprb,1.3138e-02_jprb,1.3029e-02_jprb,1.2750e-02_jprb,&
 & 1.2327e-02_jprb,1.1882e-02_jprb,9.7414e-03_jprb/)  
kao( :, 5, 5, 9) = (/&
 & 1.5221e-02_jprb,1.5544e-02_jprb,1.6067e-02_jprb,1.6367e-02_jprb,1.6363e-02_jprb,1.6145e-02_jprb,&
 & 1.5702e-02_jprb,1.5530e-02_jprb,1.2966e-02_jprb/)  
kao( :, 1, 6, 9) = (/&
 & 5.3819e-03_jprb,5.1682e-03_jprb,5.0489e-03_jprb,4.8682e-03_jprb,4.6033e-03_jprb,4.2570e-03_jprb,&
 & 3.7892e-03_jprb,2.8608e-03_jprb,2.4512e-03_jprb/)  
kao( :, 2, 6, 9) = (/&
 & 7.1280e-03_jprb,6.9367e-03_jprb,6.8489e-03_jprb,6.6487e-03_jprb,6.3384e-03_jprb,5.9570e-03_jprb,&
 & 5.4784e-03_jprb,4.6646e-03_jprb,3.6355e-03_jprb/)  
kao( :, 3, 6, 9) = (/&
 & 9.1302e-03_jprb,9.0145e-03_jprb,8.9822e-03_jprb,8.7868e-03_jprb,8.4616e-03_jprb,8.0561e-03_jprb,&
 & 7.5662e-03_jprb,6.8605e-03_jprb,5.2018e-03_jprb/)  
kao( :, 4, 6, 9) = (/&
 & 1.1358e-02_jprb,1.1388e-02_jprb,1.1456e-02_jprb,1.1318e-02_jprb,1.1012e-02_jprb,1.0595e-02_jprb,&
 & 1.0058e-02_jprb,9.4902e-03_jprb,7.2223e-03_jprb/)  
kao( :, 5, 6, 9) = (/&
 & 1.3798e-02_jprb,1.4041e-02_jprb,1.4287e-02_jprb,1.4257e-02_jprb,1.3997e-02_jprb,1.3586e-02_jprb,&
 & 1.2991e-02_jprb,1.2596e-02_jprb,9.7278e-03_jprb/)  
kao( :, 1, 7, 9) = (/&
 & 4.4201e-03_jprb,4.2655e-03_jprb,4.1450e-03_jprb,3.9476e-03_jprb,3.6722e-03_jprb,3.3249e-03_jprb,&
 & 2.8458e-03_jprb,1.9671e-03_jprb,1.7803e-03_jprb/)  
kao( :, 2, 7, 9) = (/&
 & 5.9991e-03_jprb,5.8588e-03_jprb,5.7556e-03_jprb,5.5028e-03_jprb,5.1661e-03_jprb,4.7702e-03_jprb,&
 & 4.2756e-03_jprb,3.4608e-03_jprb,2.6084e-03_jprb/)  
kao( :, 3, 7, 9) = (/&
 & 7.8395e-03_jprb,7.7643e-03_jprb,7.6944e-03_jprb,7.4017e-03_jprb,7.0170e-03_jprb,6.5646e-03_jprb,&
 & 6.0423e-03_jprb,5.2630e-03_jprb,3.7628e-03_jprb/)  
kao( :, 4, 7, 9) = (/&
 & 9.9189e-03_jprb,9.9815e-03_jprb,9.9658e-03_jprb,9.6723e-03_jprb,9.2685e-03_jprb,8.7611e-03_jprb,&
 & 8.1722e-03_jprb,7.4723e-03_jprb,5.2872e-03_jprb/)  
kao( :, 5, 7, 9) = (/&
 & 1.2224e-02_jprb,1.2487e-02_jprb,1.2587e-02_jprb,1.2338e-02_jprb,1.1918e-02_jprb,1.1379e-02_jprb,&
 & 1.0715e-02_jprb,1.0101e-02_jprb,7.2253e-03_jprb/)  
kao( :, 1, 8, 9) = (/&
 & 3.5350e-03_jprb,3.4325e-03_jprb,3.3275e-03_jprb,3.1605e-03_jprb,2.8988e-03_jprb,2.5686e-03_jprb,&
 & 2.1091e-03_jprb,1.2955e-03_jprb,2.2677e-03_jprb/)  
kao( :, 2, 8, 9) = (/&
 & 4.9245e-03_jprb,4.8341e-03_jprb,4.7376e-03_jprb,4.5164e-03_jprb,4.1844e-03_jprb,3.7894e-03_jprb,&
 & 3.3070e-03_jprb,2.4762e-03_jprb,2.6602e-03_jprb/)  
kao( :, 3, 8, 9) = (/&
 & 6.5727e-03_jprb,6.5413e-03_jprb,6.4715e-03_jprb,6.1921e-03_jprb,5.7948e-03_jprb,5.3290e-03_jprb,&
 & 4.7963e-03_jprb,4.0123e-03_jprb,3.3053e-03_jprb/)  
kao( :, 4, 8, 9) = (/&
 & 8.4673e-03_jprb,8.5585e-03_jprb,8.5340e-03_jprb,8.2251e-03_jprb,7.7660e-03_jprb,7.2331e-03_jprb,&
 & 6.6181e-03_jprb,5.8537e-03_jprb,4.2835e-03_jprb/)  
kao( :, 5, 8, 9) = (/&
 & 1.0594e-02_jprb,1.0877e-02_jprb,1.0934e-02_jprb,1.0630e-02_jprb,1.0118e-02_jprb,9.5083e-03_jprb,&
 & 8.7956e-03_jprb,8.0306e-03_jprb,5.6393e-03_jprb/)  
kao( :, 1, 9, 9) = (/&
 & 2.7403e-03_jprb,2.6787e-03_jprb,2.5973e-03_jprb,2.4570e-03_jprb,2.2443e-03_jprb,1.9562e-03_jprb,&
 & 1.5185e-03_jprb,8.3616e-04_jprb,1.0274e-02_jprb/)  
kao( :, 2, 9, 9) = (/&
 & 3.9274e-03_jprb,3.8796e-03_jprb,3.7992e-03_jprb,3.6140e-03_jprb,3.3367e-03_jprb,2.9763e-03_jprb,&
 & 2.5173e-03_jprb,1.7223e-03_jprb,1.0390e-02_jprb/)  
kao( :, 3, 9, 9) = (/&
 & 5.3634e-03_jprb,5.3721e-03_jprb,5.3082e-03_jprb,5.0709e-03_jprb,4.7250e-03_jprb,4.2829e-03_jprb,&
 & 3.7573e-03_jprb,2.9940e-03_jprb,1.0638e-02_jprb/)  
kao( :, 4, 9, 9) = (/&
 & 7.0458e-03_jprb,7.1640e-03_jprb,7.1301e-03_jprb,6.8617e-03_jprb,6.4511e-03_jprb,5.9118e-03_jprb,&
 & 5.2974e-03_jprb,4.5531e-03_jprb,1.1091e-02_jprb/)  
kao( :, 5, 9, 9) = (/&
 & 8.9617e-03_jprb,9.2589e-03_jprb,9.2849e-03_jprb,9.0088e-03_jprb,8.5345e-03_jprb,7.8845e-03_jprb,&
 & 7.1544e-03_jprb,6.3553e-03_jprb,1.1709e-02_jprb/)  
kao( :, 1,10, 9) = (/&
 & 2.1319e-03_jprb,2.1004e-03_jprb,2.0372e-03_jprb,1.9210e-03_jprb,1.7497e-03_jprb,1.5111e-03_jprb,&
 & 1.1301e-03_jprb,5.5756e-04_jprb,7.5283e-02_jprb/)  
kao( :, 2,10, 9) = (/&
 & 3.1363e-03_jprb,3.1212e-03_jprb,3.0574e-03_jprb,2.9015e-03_jprb,2.6722e-03_jprb,2.3756e-03_jprb,&
 & 1.9576e-03_jprb,1.2195e-03_jprb,7.4064e-02_jprb/)  
kao( :, 3,10, 9) = (/&
 & 4.3731e-03_jprb,4.4117e-03_jprb,4.3602e-03_jprb,4.1608e-03_jprb,3.8669e-03_jprb,3.4927e-03_jprb,&
 & 3.0050e-03_jprb,2.2902e-03_jprb,7.3035e-02_jprb/)  
kao( :, 4,10, 9) = (/&
 & 5.8455e-03_jprb,5.9881e-03_jprb,5.9565e-03_jprb,5.7270e-03_jprb,5.3754e-03_jprb,4.9035e-03_jprb,&
 & 4.3124e-03_jprb,3.6091e-03_jprb,7.2537e-02_jprb/)  
kao( :, 5,10, 9) = (/&
 & 7.5468e-03_jprb,7.8566e-03_jprb,7.8695e-03_jprb,7.6289e-03_jprb,7.2133e-03_jprb,6.6234e-03_jprb,&
 & 5.9025e-03_jprb,5.1322e-03_jprb,7.2257e-02_jprb/)  

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


SUBROUTINE part7

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


kao( :, 1,11, 9) = (/&
 & 1.9745e-03_jprb,1.9703e-03_jprb,1.9199e-03_jprb,1.8121e-03_jprb,1.6559e-03_jprb,1.4431e-03_jprb,&
 & 1.1163e-03_jprb,5.3500e-04_jprb,1.9757e-01_jprb/)  
kao( :, 2,11, 9) = (/&
 & 2.8999e-03_jprb,2.9279e-03_jprb,2.8819e-03_jprb,2.7350e-03_jprb,2.5277e-03_jprb,2.2543e-03_jprb,&
 & 1.8746e-03_jprb,1.2124e-03_jprb,1.9384e-01_jprb/)  
kao( :, 3,11, 9) = (/&
 & 4.0444e-03_jprb,4.1420e-03_jprb,4.1037e-03_jprb,3.9240e-03_jprb,3.6578e-03_jprb,3.3096e-03_jprb,&
 & 2.8567e-03_jprb,2.1998e-03_jprb,1.9071e-01_jprb/)  
kao( :, 4,11, 9) = (/&
 & 5.4085e-03_jprb,5.6287e-03_jprb,5.6077e-03_jprb,5.4059e-03_jprb,5.0834e-03_jprb,4.6413e-03_jprb,&
 & 4.0709e-03_jprb,3.3776e-03_jprb,1.8809e-01_jprb/)  
kao( :, 5,11, 9) = (/&
 & 6.9941e-03_jprb,7.3880e-03_jprb,7.4108e-03_jprb,7.2046e-03_jprb,6.8126e-03_jprb,6.2573e-03_jprb,&
 & 5.5477e-03_jprb,4.7861e-03_jprb,1.8600e-01_jprb/)  
kao( :, 1,12, 9) = (/&
 & 1.7996e-03_jprb,1.8206e-03_jprb,1.7805e-03_jprb,1.6829e-03_jprb,1.5433e-03_jprb,1.3501e-03_jprb,&
 & 1.0572e-03_jprb,5.4808e-04_jprb,3.2846e-01_jprb/)  
kao( :, 2,12, 9) = (/&
 & 2.6426e-03_jprb,2.7068e-03_jprb,2.6687e-03_jprb,2.5393e-03_jprb,2.3520e-03_jprb,2.1038e-03_jprb,&
 & 1.7678e-03_jprb,1.1889e-03_jprb,3.2273e-01_jprb/)  
kao( :, 3,12, 9) = (/&
 & 3.6853e-03_jprb,3.8343e-03_jprb,3.8028e-03_jprb,3.6418e-03_jprb,3.4031e-03_jprb,3.0855e-03_jprb,&
 & 2.6713e-03_jprb,2.0755e-03_jprb,3.1779e-01_jprb/)  
kao( :, 4,12, 9) = (/&
 & 4.9356e-03_jprb,5.2142e-03_jprb,5.1981e-03_jprb,5.0221e-03_jprb,4.7252e-03_jprb,4.3142e-03_jprb,&
 & 3.7960e-03_jprb,3.1444e-03_jprb,3.1325e-01_jprb/)  
kao( :, 5,12, 9) = (/&
 & 6.3947e-03_jprb,6.8520e-03_jprb,6.8760e-03_jprb,6.6872e-03_jprb,6.3222e-03_jprb,5.8083e-03_jprb,&
 & 5.1616e-03_jprb,4.4214e-03_jprb,3.0903e-01_jprb/)  
kao( :, 1,13, 9) = (/&
 & 1.6151e-03_jprb,1.6567e-03_jprb,1.6234e-03_jprb,1.5373e-03_jprb,1.4124e-03_jprb,1.2394e-03_jprb,&
 & 9.8564e-04_jprb,5.5616e-04_jprb,4.3871e-01_jprb/)  
kao( :, 2,13, 9) = (/&
 & 2.3710e-03_jprb,2.4678e-03_jprb,2.4327e-03_jprb,2.3183e-03_jprb,2.1495e-03_jprb,1.9302e-03_jprb,&
 & 1.6336e-03_jprb,1.1398e-03_jprb,4.3206e-01_jprb/)  
kao( :, 3,13, 9) = (/&
 & 3.3121e-03_jprb,3.4978e-03_jprb,3.4669e-03_jprb,3.3267e-03_jprb,3.1113e-03_jprb,2.8243e-03_jprb,&
 & 2.4585e-03_jprb,1.9402e-03_jprb,4.2585e-01_jprb/)  
kao( :, 4,13, 9) = (/&
 & 4.4457e-03_jprb,4.7587e-03_jprb,4.7468e-03_jprb,4.5875e-03_jprb,4.3110e-03_jprb,3.9394e-03_jprb,&
 & 3.4774e-03_jprb,2.8993e-03_jprb,4.1993e-01_jprb/)  
kao( :, 5,13, 9) = (/&
 & 5.7689e-03_jprb,6.2589e-03_jprb,6.2951e-03_jprb,6.1057e-03_jprb,5.7619e-03_jprb,5.2957e-03_jprb,&
 & 4.7230e-03_jprb,4.0528e-03_jprb,4.1400e-01_jprb/)  
kao( :, 1, 1,10) = (/&
 & 2.8341e-02_jprb,2.4949e-02_jprb,2.4794e-02_jprb,2.3987e-02_jprb,2.3812e-02_jprb,2.2586e-02_jprb,&
 & 2.0187e-02_jprb,1.9376e-02_jprb,2.5381e-02_jprb/)  
kao( :, 2, 1,10) = (/&
 & 3.3991e-02_jprb,3.0192e-02_jprb,3.0574e-02_jprb,3.0065e-02_jprb,2.9840e-02_jprb,2.8013e-02_jprb,&
 & 2.5566e-02_jprb,2.6044e-02_jprb,3.3447e-02_jprb/)  
kao( :, 3, 1,10) = (/&
 & 3.9910e-02_jprb,3.6271e-02_jprb,3.6774e-02_jprb,3.6789e-02_jprb,3.6160e-02_jprb,3.4328e-02_jprb,&
 & 3.2309e-02_jprb,3.3900e-02_jprb,4.2891e-02_jprb/)  
kao( :, 4, 1,10) = (/&
 & 4.5950e-02_jprb,4.3254e-02_jprb,4.3515e-02_jprb,4.3816e-02_jprb,4.3274e-02_jprb,4.0958e-02_jprb,&
 & 3.9828e-02_jprb,4.3039e-02_jprb,5.4536e-02_jprb/)  
kao( :, 5, 1,10) = (/&
 & 5.2074e-02_jprb,5.0170e-02_jprb,5.0735e-02_jprb,5.1340e-02_jprb,5.0699e-02_jprb,4.7916e-02_jprb,&
 & 4.9158e-02_jprb,5.3574e-02_jprb,6.8520e-02_jprb/)  
kao( :, 1, 2,10) = (/&
 & 2.6184e-02_jprb,2.3296e-02_jprb,2.3226e-02_jprb,2.2714e-02_jprb,2.2514e-02_jprb,2.1363e-02_jprb,&
 & 1.9364e-02_jprb,1.8250e-02_jprb,2.2856e-02_jprb/)  
kao( :, 2, 2,10) = (/&
 & 3.1743e-02_jprb,2.8597e-02_jprb,2.8854e-02_jprb,2.8835e-02_jprb,2.8199e-02_jprb,2.7046e-02_jprb,&
 & 2.4544e-02_jprb,2.4456e-02_jprb,3.0699e-02_jprb/)  
kao( :, 3, 2,10) = (/&
 & 3.7600e-02_jprb,3.4758e-02_jprb,3.5112e-02_jprb,3.5357e-02_jprb,3.4504e-02_jprb,3.3441e-02_jprb,&
 & 3.1117e-02_jprb,3.2055e-02_jprb,4.0509e-02_jprb/)  
kao( :, 4, 2,10) = (/&
 & 4.3772e-02_jprb,4.1496e-02_jprb,4.2012e-02_jprb,4.2309e-02_jprb,4.1696e-02_jprb,3.9959e-02_jprb,&
 & 3.8762e-02_jprb,4.0415e-02_jprb,5.2629e-02_jprb/)  
kao( :, 5, 2,10) = (/&
 & 5.0069e-02_jprb,4.8330e-02_jprb,4.9427e-02_jprb,4.9767e-02_jprb,4.9310e-02_jprb,4.7260e-02_jprb,&
 & 4.8222e-02_jprb,5.0586e-02_jprb,6.6929e-02_jprb/)  
kao( :, 1, 3,10) = (/&
 & 2.2843e-02_jprb,2.0821e-02_jprb,2.0350e-02_jprb,2.0283e-02_jprb,1.9897e-02_jprb,1.9120e-02_jprb,&
 & 1.7384e-02_jprb,1.6170e-02_jprb,1.8446e-02_jprb/)  
kao( :, 2, 3,10) = (/&
 & 2.8199e-02_jprb,2.6062e-02_jprb,2.5776e-02_jprb,2.5997e-02_jprb,2.5440e-02_jprb,2.4723e-02_jprb,&
 & 2.2441e-02_jprb,2.1717e-02_jprb,2.5483e-02_jprb/)  
kao( :, 3, 3,10) = (/&
 & 3.3953e-02_jprb,3.1919e-02_jprb,3.1941e-02_jprb,3.2157e-02_jprb,3.1747e-02_jprb,3.0922e-02_jprb,&
 & 2.8559e-02_jprb,2.8709e-02_jprb,3.4439e-02_jprb/)  
kao( :, 4, 3,10) = (/&
 & 4.0002e-02_jprb,3.8423e-02_jprb,3.8902e-02_jprb,3.8911e-02_jprb,3.8820e-02_jprb,3.7594e-02_jprb,&
 & 3.6351e-02_jprb,3.6718e-02_jprb,4.5775e-02_jprb/)  
kao( :, 5, 3,10) = (/&
 & 4.6219e-02_jprb,4.5155e-02_jprb,4.6197e-02_jprb,4.6387e-02_jprb,4.6153e-02_jprb,4.5334e-02_jprb,&
 & 4.5834e-02_jprb,4.6534e-02_jprb,5.9401e-02_jprb/)  
kao( :, 1, 4,10) = (/&
 & 1.9312e-02_jprb,1.7992e-02_jprb,1.7480e-02_jprb,1.7446e-02_jprb,1.7111e-02_jprb,1.6477e-02_jprb,&
 & 1.5243e-02_jprb,1.3399e-02_jprb,1.4121e-02_jprb/)  
kao( :, 2, 4,10) = (/&
 & 2.4344e-02_jprb,2.2955e-02_jprb,2.2617e-02_jprb,2.2783e-02_jprb,2.2496e-02_jprb,2.1867e-02_jprb,&
 & 1.9808e-02_jprb,1.8936e-02_jprb,1.9938e-02_jprb/)  
kao( :, 3, 4,10) = (/&
 & 2.9801e-02_jprb,2.8523e-02_jprb,2.8566e-02_jprb,2.8709e-02_jprb,2.8682e-02_jprb,2.7725e-02_jprb,&
 & 2.5334e-02_jprb,2.5284e-02_jprb,2.7743e-02_jprb/)  
kao( :, 4, 4,10) = (/&
 & 3.5620e-02_jprb,3.4742e-02_jprb,3.5299e-02_jprb,3.5308e-02_jprb,3.5457e-02_jprb,3.4419e-02_jprb,&
 & 3.2604e-02_jprb,3.3013e-02_jprb,3.7587e-02_jprb/)  
kao( :, 5, 4,10) = (/&
 & 4.1887e-02_jprb,4.1321e-02_jprb,4.2274e-02_jprb,4.2660e-02_jprb,4.2937e-02_jprb,4.2081e-02_jprb,&
 & 4.1593e-02_jprb,4.2622e-02_jprb,4.9653e-02_jprb/)  
kao( :, 1, 5,10) = (/&
 & 1.5962e-02_jprb,1.5091e-02_jprb,1.4926e-02_jprb,1.4725e-02_jprb,1.4471e-02_jprb,1.4016e-02_jprb,&
 & 1.2941e-02_jprb,1.0781e-02_jprb,1.0820e-02_jprb/)  
kao( :, 2, 5,10) = (/&
 & 2.0561e-02_jprb,1.9656e-02_jprb,1.9606e-02_jprb,1.9723e-02_jprb,1.9597e-02_jprb,1.8959e-02_jprb,&
 & 1.7070e-02_jprb,1.5994e-02_jprb,1.5507e-02_jprb/)  
kao( :, 3, 5,10) = (/&
 & 2.5675e-02_jprb,2.4818e-02_jprb,2.5196e-02_jprb,2.5517e-02_jprb,2.5439e-02_jprb,2.4412e-02_jprb,&
 & 2.1991e-02_jprb,2.1552e-02_jprb,2.1888e-02_jprb/)  
kao( :, 4, 5,10) = (/&
 & 3.1284e-02_jprb,3.0688e-02_jprb,3.1452e-02_jprb,3.1913e-02_jprb,3.1938e-02_jprb,3.0781e-02_jprb,&
 & 2.8330e-02_jprb,2.8796e-02_jprb,3.0247e-02_jprb/)  
kao( :, 5, 5,10) = (/&
 & 3.7244e-02_jprb,3.7039e-02_jprb,3.8113e-02_jprb,3.9041e-02_jprb,3.9409e-02_jprb,3.8138e-02_jprb,&
 & 3.6567e-02_jprb,3.7730e-02_jprb,4.0679e-02_jprb/)  
kao( :, 1, 6,10) = (/&
 & 1.2975e-02_jprb,1.2256e-02_jprb,1.2340e-02_jprb,1.2080e-02_jprb,1.1895e-02_jprb,1.1506e-02_jprb,&
 & 1.0365e-02_jprb,8.5383e-03_jprb,8.0172e-03_jprb/)  
kao( :, 2, 6,10) = (/&
 & 1.7187e-02_jprb,1.6321e-02_jprb,1.6561e-02_jprb,1.6669e-02_jprb,1.6611e-02_jprb,1.5858e-02_jprb,&
 & 1.4206e-02_jprb,1.2638e-02_jprb,1.1866e-02_jprb/)  
kao( :, 3, 6,10) = (/&
 & 2.1950e-02_jprb,2.1039e-02_jprb,2.1721e-02_jprb,2.2100e-02_jprb,2.1989e-02_jprb,2.0834e-02_jprb,&
 & 1.8607e-02_jprb,1.7648e-02_jprb,1.7187e-02_jprb/)  
kao( :, 4, 6,10) = (/&
 & 2.7221e-02_jprb,2.6492e-02_jprb,2.7582e-02_jprb,2.8232e-02_jprb,2.8034e-02_jprb,2.6720e-02_jprb,&
 & 2.4048e-02_jprb,2.4099e-02_jprb,2.3975e-02_jprb/)  
kao( :, 5, 6,10) = (/&
 & 3.2966e-02_jprb,3.2596e-02_jprb,3.4013e-02_jprb,3.5128e-02_jprb,3.5174e-02_jprb,3.3585e-02_jprb,&
 & 3.0966e-02_jprb,3.2147e-02_jprb,3.2714e-02_jprb/)  
kao( :, 1, 7,10) = (/&
 & 1.1003e-02_jprb,1.0172e-02_jprb,9.9689e-03_jprb,9.7030e-03_jprb,9.5816e-03_jprb,9.1864e-03_jprb,&
 & 8.3157e-03_jprb,6.5477e-03_jprb,5.8584e-03_jprb/)  
kao( :, 2, 7,10) = (/&
 & 1.4954e-02_jprb,1.3915e-02_jprb,1.3705e-02_jprb,1.3805e-02_jprb,1.3711e-02_jprb,1.2918e-02_jprb,&
 & 1.1613e-02_jprb,9.7524e-03_jprb,8.8921e-03_jprb/)  
kao( :, 3, 7,10) = (/&
 & 1.9525e-02_jprb,1.8286e-02_jprb,1.8359e-02_jprb,1.8803e-02_jprb,1.8505e-02_jprb,1.7397e-02_jprb,&
 & 1.5545e-02_jprb,1.4074e-02_jprb,1.3147e-02_jprb/)  
kao( :, 4, 7,10) = (/&
 & 2.4765e-02_jprb,2.3347e-02_jprb,2.3852e-02_jprb,2.4521e-02_jprb,2.4046e-02_jprb,2.2746e-02_jprb,&
 & 2.0338e-02_jprb,1.9593e-02_jprb,1.8718e-02_jprb/)  
kao( :, 5, 7,10) = (/&
 & 3.0444e-02_jprb,2.9114e-02_jprb,2.9981e-02_jprb,3.1001e-02_jprb,3.0659e-02_jprb,2.9115e-02_jprb,&
 & 2.6153e-02_jprb,2.6663e-02_jprb,2.5778e-02_jprb/)  
kao( :, 1, 8,10) = (/&
 & 9.5903e-03_jprb,8.7677e-03_jprb,8.2751e-03_jprb,7.7628e-03_jprb,7.6194e-03_jprb,7.2194e-03_jprb,&
 & 6.4757e-03_jprb,5.1626e-03_jprb,4.5446e-03_jprb/)  
kao( :, 2, 8,10) = (/&
 & 1.3386e-02_jprb,1.2290e-02_jprb,1.1661e-02_jprb,1.1306e-02_jprb,1.1055e-02_jprb,1.0454e-02_jprb,&
 & 9.3918e-03_jprb,7.5740e-03_jprb,6.6212e-03_jprb/)  
kao( :, 3, 8,10) = (/&
 & 1.7895e-02_jprb,1.6495e-02_jprb,1.5871e-02_jprb,1.5730e-02_jprb,1.5237e-02_jprb,1.4347e-02_jprb,&
 & 1.2880e-02_jprb,1.1121e-02_jprb,9.9657e-03_jprb/)  
kao( :, 4, 8,10) = (/&
 & 2.3088e-02_jprb,2.1460e-02_jprb,2.0931e-02_jprb,2.0828e-02_jprb,2.0243e-02_jprb,1.9039e-02_jprb,&
 & 1.7178e-02_jprb,1.5707e-02_jprb,1.4369e-02_jprb/)  
kao( :, 5, 8,10) = (/&
 & 2.8768e-02_jprb,2.7065e-02_jprb,2.6736e-02_jprb,2.6678e-02_jprb,2.6248e-02_jprb,2.4878e-02_jprb,&
 & 2.2359e-02_jprb,2.1798e-02_jprb,1.9974e-02_jprb/)  
kao( :, 1, 9,10) = (/&
 & 8.1489e-03_jprb,7.4648e-03_jprb,6.9804e-03_jprb,6.4191e-03_jprb,5.9636e-03_jprb,5.4909e-03_jprb,&
 & 4.8784e-03_jprb,3.8347e-03_jprb,1.5314e-02_jprb/)  
kao( :, 2, 9,10) = (/&
 & 1.1712e-02_jprb,1.0789e-02_jprb,1.0109e-02_jprb,9.4829e-03_jprb,8.8584e-03_jprb,8.2278e-03_jprb,&
 & 7.3764e-03_jprb,5.7877e-03_jprb,1.6244e-02_jprb/)  
kao( :, 3, 9,10) = (/&
 & 1.6046e-02_jprb,1.4820e-02_jprb,1.4055e-02_jprb,1.3332e-02_jprb,1.2456e-02_jprb,1.1636e-02_jprb,&
 & 1.0489e-02_jprb,8.6873e-03_jprb,1.7494e-02_jprb/)  
kao( :, 4, 9,10) = (/&
 & 2.1066e-02_jprb,1.9610e-02_jprb,1.8931e-02_jprb,1.7888e-02_jprb,1.6756e-02_jprb,1.5784e-02_jprb,&
 & 1.4417e-02_jprb,1.2557e-02_jprb,1.9326e-02_jprb/)  
kao( :, 5, 9,10) = (/&
 & 2.6667e-02_jprb,2.5074e-02_jprb,2.4522e-02_jprb,2.3189e-02_jprb,2.2008e-02_jprb,2.0995e-02_jprb,&
 & 1.9281e-02_jprb,1.7791e-02_jprb,2.1654e-02_jprb/)  
kao( :, 1,10,10) = (/&
 & 6.9366e-03_jprb,6.3789e-03_jprb,5.9595e-03_jprb,5.4852e-03_jprb,4.9360e-03_jprb,4.3201e-03_jprb,&
 & 3.7060e-03_jprb,2.8411e-03_jprb,1.0865e-01_jprb/)  
kao( :, 2,10,10) = (/&
 & 1.0236e-02_jprb,9.4750e-03_jprb,8.8501e-03_jprb,8.3036e-03_jprb,7.4880e-03_jprb,6.6146e-03_jprb,&
 & 5.8580e-03_jprb,4.5793e-03_jprb,1.0627e-01_jprb/)  
kao( :, 3,10,10) = (/&
 & 1.4332e-02_jprb,1.3324e-02_jprb,1.2604e-02_jprb,1.1845e-02_jprb,1.0730e-02_jprb,9.5741e-03_jprb,&
 & 8.5876e-03_jprb,7.0236e-03_jprb,1.0490e-01_jprb/)  
kao( :, 4,10,10) = (/&
 & 1.9120e-02_jprb,1.7914e-02_jprb,1.7311e-02_jprb,1.6108e-02_jprb,1.4592e-02_jprb,1.3253e-02_jprb,&
 & 1.2097e-02_jprb,1.0165e-02_jprb,1.0426e-01_jprb/)  
kao( :, 5,10,10) = (/&
 & 2.4561e-02_jprb,2.3221e-02_jprb,2.2646e-02_jprb,2.1122e-02_jprb,1.9334e-02_jprb,1.7961e-02_jprb,&
 & 1.6559e-02_jprb,1.4610e-02_jprb,1.0510e-01_jprb/)  
kao( :, 1,11,10) = (/&
 & 7.0237e-03_jprb,6.5225e-03_jprb,6.1043e-03_jprb,5.6444e-03_jprb,5.0633e-03_jprb,4.3399e-03_jprb,&
 & 3.5607e-03_jprb,2.6850e-03_jprb,2.8892e-01_jprb/)  
kao( :, 2,11,10) = (/&
 & 1.0384e-02_jprb,9.6831e-03_jprb,9.0835e-03_jprb,8.5192e-03_jprb,7.6404e-03_jprb,6.6528e-03_jprb,&
 & 5.6514e-03_jprb,4.5273e-03_jprb,2.8169e-01_jprb/)  
kao( :, 3,11,10) = (/&
 & 1.4456e-02_jprb,1.3566e-02_jprb,1.2997e-02_jprb,1.2107e-02_jprb,1.0901e-02_jprb,9.5425e-03_jprb,&
 & 8.2374e-03_jprb,6.8400e-03_jprb,2.7734e-01_jprb/)  
kao( :, 4,11,10) = (/&
 & 1.9195e-02_jprb,1.8156e-02_jprb,1.7656e-02_jprb,1.6419e-02_jprb,1.4881e-02_jprb,1.3205e-02_jprb,&
 & 1.1741e-02_jprb,9.9915e-03_jprb,2.7331e-01_jprb/)  
kao( :, 5,11,10) = (/&
 & 2.4521e-02_jprb,2.3536e-02_jprb,2.2979e-02_jprb,2.1464e-02_jprb,1.9799e-02_jprb,1.7771e-02_jprb,&
 & 1.6045e-02_jprb,1.4047e-02_jprb,2.7061e-01_jprb/)  
kao( :, 1,12,10) = (/&
 & 6.9801e-03_jprb,6.5414e-03_jprb,6.1464e-03_jprb,5.6988e-03_jprb,5.0902e-03_jprb,4.4198e-03_jprb,&
 & 3.6370e-03_jprb,2.5506e-03_jprb,4.9609e-01_jprb/)  
kao( :, 2,12,10) = (/&
 & 1.0252e-02_jprb,9.6631e-03_jprb,9.2104e-03_jprb,8.5451e-03_jprb,7.6724e-03_jprb,6.7086e-03_jprb,&
 & 5.5412e-03_jprb,4.4277e-03_jprb,4.8672e-01_jprb/)  
kao( :, 3,12,10) = (/&
 & 1.4194e-02_jprb,1.3473e-02_jprb,1.3019e-02_jprb,1.2130e-02_jprb,1.0940e-02_jprb,9.6059e-03_jprb,&
 & 8.1091e-03_jprb,6.7337e-03_jprb,4.7779e-01_jprb/)  
kao( :, 4,12,10) = (/&
 & 1.8764e-02_jprb,1.7996e-02_jprb,1.7549e-02_jprb,1.6391e-02_jprb,1.4970e-02_jprb,1.3362e-02_jprb,&
 & 1.1424e-02_jprb,9.7371e-03_jprb,4.7094e-01_jprb/)  
kao( :, 5,12,10) = (/&
 & 2.3822e-02_jprb,2.3255e-02_jprb,2.2798e-02_jprb,2.1487e-02_jprb,1.9935e-02_jprb,1.7893e-02_jprb,&
 & 1.5477e-02_jprb,1.3501e-02_jprb,4.6404e-01_jprb/)  
kao( :, 1,13,10) = (/&
 & 6.7570e-03_jprb,6.3985e-03_jprb,6.0648e-03_jprb,5.6090e-03_jprb,5.0372e-03_jprb,4.3896e-03_jprb,&
 & 3.5984e-03_jprb,2.5612e-03_jprb,7.0129e-01_jprb/)  
kao( :, 2,13,10) = (/&
 & 9.8516e-03_jprb,9.3610e-03_jprb,9.0380e-03_jprb,8.3857e-03_jprb,7.5801e-03_jprb,6.6037e-03_jprb,&
 & 5.4660e-03_jprb,4.1572e-03_jprb,6.8624e-01_jprb/)  
kao( :, 3,13,10) = (/&
 & 1.3565e-02_jprb,1.3023e-02_jprb,1.2697e-02_jprb,1.1845e-02_jprb,1.0771e-02_jprb,9.5129e-03_jprb,&
 & 8.0355e-03_jprb,6.4068e-03_jprb,6.7348e-01_jprb/)  
kao( :, 4,13,10) = (/&
 & 1.7823e-02_jprb,1.7451e-02_jprb,1.7031e-02_jprb,1.6025e-02_jprb,1.4810e-02_jprb,1.3226e-02_jprb,&
 & 1.1248e-02_jprb,9.2627e-03_jprb,6.6252e-01_jprb/)  
kao( :, 5,13,10) = (/&
 & 2.2635e-02_jprb,2.2570e-02_jprb,2.2029e-02_jprb,2.1116e-02_jprb,1.9648e-02_jprb,1.7648e-02_jprb,&
 & 1.5125e-02_jprb,1.2814e-02_jprb,6.5224e-01_jprb/)  
kao( :, 1, 1,11) = (/&
 & 4.0423e-02_jprb,3.5511e-02_jprb,3.2385e-02_jprb,3.1302e-02_jprb,2.9329e-02_jprb,2.7493e-02_jprb,&
 & 2.5237e-02_jprb,2.6262e-02_jprb,3.3335e-02_jprb/)  
kao( :, 2, 1,11) = (/&
 & 4.8068e-02_jprb,4.2224e-02_jprb,3.9790e-02_jprb,3.8473e-02_jprb,3.6916e-02_jprb,3.3889e-02_jprb,&
 & 3.2387e-02_jprb,3.4784e-02_jprb,4.3954e-02_jprb/)  
kao( :, 3, 1,11) = (/&
 & 5.5962e-02_jprb,4.9147e-02_jprb,4.7932e-02_jprb,4.6498e-02_jprb,4.4808e-02_jprb,4.0788e-02_jprb,&
 & 4.1145e-02_jprb,4.4752e-02_jprb,5.6848e-02_jprb/)  
kao( :, 4, 1,11) = (/&
 & 6.3927e-02_jprb,5.6554e-02_jprb,5.6496e-02_jprb,5.5146e-02_jprb,5.2972e-02_jprb,4.9275e-02_jprb,&
 & 5.2218e-02_jprb,5.7028e-02_jprb,7.1593e-02_jprb/)  
kao( :, 5, 1,11) = (/&
 & 7.1900e-02_jprb,6.5533e-02_jprb,6.5482e-02_jprb,6.4060e-02_jprb,6.1054e-02_jprb,5.9498e-02_jprb,&
 & 6.4850e-02_jprb,7.0769e-02_jprb,8.8897e-02_jprb/)  
kao( :, 1, 2,11) = (/&
 & 3.8292e-02_jprb,3.3588e-02_jprb,3.1358e-02_jprb,2.9906e-02_jprb,2.8447e-02_jprb,2.6569e-02_jprb,&
 & 2.3944e-02_jprb,2.4132e-02_jprb,3.1513e-02_jprb/)  
kao( :, 2, 2,11) = (/&
 & 4.5994e-02_jprb,4.0345e-02_jprb,3.8650e-02_jprb,3.7178e-02_jprb,3.6077e-02_jprb,3.2811e-02_jprb,&
 & 3.1189e-02_jprb,3.2232e-02_jprb,4.1849e-02_jprb/)  
kao( :, 3, 2,11) = (/&
 & 5.3984e-02_jprb,4.7456e-02_jprb,4.6641e-02_jprb,4.5568e-02_jprb,4.3973e-02_jprb,3.9559e-02_jprb,&
 & 3.9776e-02_jprb,4.1895e-02_jprb,5.4339e-02_jprb/)  
kao( :, 4, 2,11) = (/&
 & 6.2153e-02_jprb,5.5541e-02_jprb,5.5147e-02_jprb,5.4419e-02_jprb,5.2145e-02_jprb,4.8212e-02_jprb,&
 & 5.0049e-02_jprb,5.4211e-02_jprb,6.8573e-02_jprb/)  
kao( :, 5, 2,11) = (/&
 & 7.0498e-02_jprb,6.4912e-02_jprb,6.4005e-02_jprb,6.3675e-02_jprb,6.0340e-02_jprb,5.8471e-02_jprb,&
 & 6.1765e-02_jprb,6.8106e-02_jprb,8.5795e-02_jprb/)  
kao( :, 1, 3,11) = (/&
 & 3.4351e-02_jprb,3.0114e-02_jprb,2.8690e-02_jprb,2.7033e-02_jprb,2.5922e-02_jprb,2.4043e-02_jprb,&
 & 2.1412e-02_jprb,2.0519e-02_jprb,2.7411e-02_jprb/)  
kao( :, 2, 3,11) = (/&
 & 4.1940e-02_jprb,3.6767e-02_jprb,3.5782e-02_jprb,3.4187e-02_jprb,3.3188e-02_jprb,3.0297e-02_jprb,&
 & 2.8550e-02_jprb,2.8551e-02_jprb,3.7044e-02_jprb/)  
kao( :, 3, 3,11) = (/&
 & 5.0028e-02_jprb,4.4118e-02_jprb,4.3712e-02_jprb,4.2513e-02_jprb,4.0818e-02_jprb,3.7223e-02_jprb,&
 & 3.6892e-02_jprb,3.7585e-02_jprb,4.9025e-02_jprb/)  
kao( :, 4, 3,11) = (/&
 & 5.8382e-02_jprb,5.2350e-02_jprb,5.2192e-02_jprb,5.1365e-02_jprb,4.8840e-02_jprb,4.5605e-02_jprb,&
 & 4.6688e-02_jprb,4.8795e-02_jprb,6.3308e-02_jprb/)  
kao( :, 5, 3,11) = (/&
 & 6.6855e-02_jprb,6.1851e-02_jprb,6.1319e-02_jprb,6.0440e-02_jprb,5.7553e-02_jprb,5.5141e-02_jprb,&
 & 5.7507e-02_jprb,6.1726e-02_jprb,8.0747e-02_jprb/)  
kao( :, 1, 4,11) = (/&
 & 2.9914e-02_jprb,2.6434e-02_jprb,2.5229e-02_jprb,2.3960e-02_jprb,2.2872e-02_jprb,2.1167e-02_jprb,&
 & 1.8618e-02_jprb,1.7654e-02_jprb,2.2206e-02_jprb/)  
kao( :, 2, 4,11) = (/&
 & 3.7311e-02_jprb,3.2955e-02_jprb,3.1987e-02_jprb,3.0816e-02_jprb,2.9746e-02_jprb,2.7451e-02_jprb,&
 & 2.5496e-02_jprb,2.4816e-02_jprb,3.0769e-02_jprb/)  

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


SUBROUTINE part8

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


kao( :, 3, 4,11) = (/&
 & 4.5214e-02_jprb,4.0225e-02_jprb,3.9665e-02_jprb,3.8830e-02_jprb,3.7073e-02_jprb,3.4317e-02_jprb,&
 & 3.3498e-02_jprb,3.3259e-02_jprb,4.1672e-02_jprb/)  
kao( :, 4, 4,11) = (/&
 & 5.3522e-02_jprb,4.8440e-02_jprb,4.8077e-02_jprb,4.7499e-02_jprb,4.5060e-02_jprb,4.2198e-02_jprb,&
 & 4.2877e-02_jprb,4.3659e-02_jprb,5.5415e-02_jprb/)  
kao( :, 5, 4,11) = (/&
 & 6.2112e-02_jprb,5.7637e-02_jprb,5.7355e-02_jprb,5.6365e-02_jprb,5.3831e-02_jprb,5.1483e-02_jprb,&
 & 5.3578e-02_jprb,5.5548e-02_jprb,7.2397e-02_jprb/)  
kao( :, 1, 5,11) = (/&
 & 2.5525e-02_jprb,2.2961e-02_jprb,2.1743e-02_jprb,2.1045e-02_jprb,1.9762e-02_jprb,1.8313e-02_jprb,&
 & 1.6006e-02_jprb,1.4928e-02_jprb,1.7243e-02_jprb/)  
kao( :, 2, 5,11) = (/&
 & 3.2562e-02_jprb,2.9297e-02_jprb,2.8118e-02_jprb,2.7378e-02_jprb,2.6219e-02_jprb,2.4429e-02_jprb,&
 & 2.2374e-02_jprb,2.1608e-02_jprb,2.4409e-02_jprb/)  
kao( :, 3, 5,11) = (/&
 & 4.0237e-02_jprb,3.6530e-02_jprb,3.5529e-02_jprb,3.4947e-02_jprb,3.3507e-02_jprb,3.1205e-02_jprb,&
 & 2.9865e-02_jprb,2.9668e-02_jprb,3.3965e-02_jprb/)  
kao( :, 4, 5,11) = (/&
 & 4.8489e-02_jprb,4.4640e-02_jprb,4.3882e-02_jprb,4.3184e-02_jprb,4.1466e-02_jprb,3.8716e-02_jprb,&
 & 3.8839e-02_jprb,3.9053e-02_jprb,4.6193e-02_jprb/)  
kao( :, 5, 5,11) = (/&
 & 5.7075e-02_jprb,5.3520e-02_jprb,5.3151e-02_jprb,5.1813e-02_jprb,5.0143e-02_jprb,4.7699e-02_jprb,&
 & 4.9575e-02_jprb,5.0287e-02_jprb,6.1844e-02_jprb/)  
kao( :, 1, 6,11) = (/&
 & 2.1185e-02_jprb,1.9366e-02_jprb,1.8345e-02_jprb,1.7861e-02_jprb,1.6696e-02_jprb,1.5286e-02_jprb,&
 & 1.3538e-02_jprb,1.2110e-02_jprb,1.3050e-02_jprb/)  
kao( :, 2, 6,11) = (/&
 & 2.7736e-02_jprb,2.5421e-02_jprb,2.4344e-02_jprb,2.3686e-02_jprb,2.2632e-02_jprb,2.1167e-02_jprb,&
 & 1.8994e-02_jprb,1.8327e-02_jprb,1.8722e-02_jprb/)  
kao( :, 3, 6,11) = (/&
 & 3.5098e-02_jprb,3.2433e-02_jprb,3.1346e-02_jprb,3.0890e-02_jprb,2.9717e-02_jprb,2.7709e-02_jprb,&
 & 2.5626e-02_jprb,2.5639e-02_jprb,2.6411e-02_jprb/)  
kao( :, 4, 6,11) = (/&
 & 4.3033e-02_jprb,4.0261e-02_jprb,3.9466e-02_jprb,3.8845e-02_jprb,3.7545e-02_jprb,3.4640e-02_jprb,&
 & 3.3862e-02_jprb,3.4287e-02_jprb,3.6956e-02_jprb/)  
kao( :, 5, 6,11) = (/&
 & 5.1415e-02_jprb,4.8889e-02_jprb,4.8524e-02_jprb,4.7406e-02_jprb,4.5977e-02_jprb,4.3021e-02_jprb,&
 & 4.4126e-02_jprb,4.4906e-02_jprb,5.0432e-02_jprb/)  
kao( :, 1, 7,11) = (/&
 & 1.7209e-02_jprb,1.5911e-02_jprb,1.5312e-02_jprb,1.4785e-02_jprb,1.3788e-02_jprb,1.2644e-02_jprb,&
 & 1.1178e-02_jprb,9.4262e-03_jprb,9.6250e-03_jprb/)  
kao( :, 2, 7,11) = (/&
 & 2.3204e-02_jprb,2.1530e-02_jprb,2.0850e-02_jprb,2.0150e-02_jprb,1.9195e-02_jprb,1.8013e-02_jprb,&
 & 1.5715e-02_jprb,1.4967e-02_jprb,1.4283e-02_jprb/)  
kao( :, 3, 7,11) = (/&
 & 3.0021e-02_jprb,2.8103e-02_jprb,2.7384e-02_jprb,2.6841e-02_jprb,2.5917e-02_jprb,2.4071e-02_jprb,&
 & 2.1339e-02_jprb,2.1364e-02_jprb,2.0562e-02_jprb/)  
kao( :, 4, 7,11) = (/&
 & 3.7516e-02_jprb,3.5493e-02_jprb,3.5022e-02_jprb,3.4550e-02_jprb,3.3425e-02_jprb,3.0562e-02_jprb,&
 & 2.8485e-02_jprb,2.9108e-02_jprb,2.9186e-02_jprb/)  
kao( :, 5, 7,11) = (/&
 & 4.5622e-02_jprb,4.3704e-02_jprb,4.3641e-02_jprb,4.3057e-02_jprb,4.1664e-02_jprb,3.8186e-02_jprb,&
 & 3.7831e-02_jprb,3.8897e-02_jprb,4.0505e-02_jprb/)  
kao( :, 1, 8,11) = (/&
 & 1.3818e-02_jprb,1.2820e-02_jprb,1.2555e-02_jprb,1.2034e-02_jprb,1.1176e-02_jprb,1.0359e-02_jprb,&
 & 9.1227e-03_jprb,7.1909e-03_jprb,7.1385e-03_jprb/)  
kao( :, 2, 8,11) = (/&
 & 1.9199e-02_jprb,1.7868e-02_jprb,1.7585e-02_jprb,1.6871e-02_jprb,1.6078e-02_jprb,1.5016e-02_jprb,&
 & 1.2893e-02_jprb,1.1875e-02_jprb,1.0811e-02_jprb/)  
kao( :, 3, 8,11) = (/&
 & 2.5464e-02_jprb,2.3910e-02_jprb,2.3566e-02_jprb,2.3034e-02_jprb,2.2314e-02_jprb,2.0472e-02_jprb,&
 & 1.7635e-02_jprb,1.7256e-02_jprb,1.5992e-02_jprb/)  
kao( :, 4, 8,11) = (/&
 & 3.2551e-02_jprb,3.0722e-02_jprb,3.0704e-02_jprb,3.0409e-02_jprb,2.9339e-02_jprb,2.6650e-02_jprb,&
 & 2.3599e-02_jprb,2.4044e-02_jprb,2.3236e-02_jprb/)  
kao( :, 5, 8,11) = (/&
 & 4.0250e-02_jprb,3.8454e-02_jprb,3.8842e-02_jprb,3.8675e-02_jprb,3.7147e-02_jprb,3.3647e-02_jprb,&
 & 3.1602e-02_jprb,3.2839e-02_jprb,3.2581e-02_jprb/)  
kao( :, 1, 9,11) = (/&
 & 1.1316e-02_jprb,1.0378e-02_jprb,1.0058e-02_jprb,9.5388e-03_jprb,8.9583e-03_jprb,8.3215e-03_jprb,&
 & 7.2172e-03_jprb,5.3794e-03_jprb,1.8355e-02_jprb/)  
kao( :, 2, 9,11) = (/&
 & 1.6231e-02_jprb,1.4928e-02_jprb,1.4498e-02_jprb,1.3829e-02_jprb,1.3241e-02_jprb,1.2313e-02_jprb,&
 & 1.0614e-02_jprb,9.2668e-03_jprb,1.9770e-02_jprb/)  
kao( :, 3, 9,11) = (/&
 & 2.2130e-02_jprb,2.0494e-02_jprb,1.9903e-02_jprb,1.9411e-02_jprb,1.8773e-02_jprb,1.7143e-02_jprb,&
 & 1.4703e-02_jprb,1.3790e-02_jprb,2.1581e-02_jprb/)  
kao( :, 4, 9,11) = (/&
 & 2.8872e-02_jprb,2.6893e-02_jprb,2.6410e-02_jprb,2.6293e-02_jprb,2.5184e-02_jprb,2.2875e-02_jprb,&
 & 1.9599e-02_jprb,1.9453e-02_jprb,2.4207e-02_jprb/)  
kao( :, 5, 9,11) = (/&
 & 3.6434e-02_jprb,3.4163e-02_jprb,3.4039e-02_jprb,3.4059e-02_jprb,3.2485e-02_jprb,2.9558e-02_jprb,&
 & 2.6124e-02_jprb,2.6908e-02_jprb,2.8766e-02_jprb/)  
kao( :, 1,10,11) = (/&
 & 9.7526e-03_jprb,8.8471e-03_jprb,8.4095e-03_jprb,7.7992e-03_jprb,7.2733e-03_jprb,6.6861e-03_jprb,&
 & 5.7804e-03_jprb,4.0724e-03_jprb,1.2763e-01_jprb/)  
kao( :, 2,10,11) = (/&
 & 1.4441e-02_jprb,1.3149e-02_jprb,1.2436e-02_jprb,1.1554e-02_jprb,1.1049e-02_jprb,1.0173e-02_jprb,&
 & 8.7698e-03_jprb,7.1450e-03_jprb,1.2600e-01_jprb/)  
kao( :, 3,10,11) = (/&
 & 2.0155e-02_jprb,1.8437e-02_jprb,1.7426e-02_jprb,1.6603e-02_jprb,1.5853e-02_jprb,1.4561e-02_jprb,&
 & 1.2511e-02_jprb,1.1073e-02_jprb,1.2528e-01_jprb/)  
kao( :, 4,10,11) = (/&
 & 2.6846e-02_jprb,2.4609e-02_jprb,2.3486e-02_jprb,2.2854e-02_jprb,2.1623e-02_jprb,1.9796e-02_jprb,&
 & 1.6929e-02_jprb,1.5991e-02_jprb,1.2447e-01_jprb/)  
kao( :, 5,10,11) = (/&
 & 3.4410e-02_jprb,3.1744e-02_jprb,3.0750e-02_jprb,2.9972e-02_jprb,2.8397e-02_jprb,2.5966e-02_jprb,&
 & 2.2616e-02_jprb,2.2449e-02_jprb,1.2610e-01_jprb/)  
kao( :, 1,11,11) = (/&
 & 1.0324e-02_jprb,9.3720e-03_jprb,8.7252e-03_jprb,7.9450e-03_jprb,7.2482e-03_jprb,6.5147e-03_jprb,&
 & 5.6100e-03_jprb,4.1662e-03_jprb,3.4329e-01_jprb/)  
kao( :, 2,11,11) = (/&
 & 1.5204e-02_jprb,1.3885e-02_jprb,1.2891e-02_jprb,1.1869e-02_jprb,1.0956e-02_jprb,9.8826e-03_jprb,&
 & 8.5703e-03_jprb,6.8061e-03_jprb,3.3565e-01_jprb/)  
kao( :, 3,11,11) = (/&
 & 2.1115e-02_jprb,1.9367e-02_jprb,1.8058e-02_jprb,1.6962e-02_jprb,1.5612e-02_jprb,1.4165e-02_jprb,&
 & 1.2308e-02_jprb,1.0528e-02_jprb,3.2746e-01_jprb/)  
kao( :, 4,11,11) = (/&
 & 2.8056e-02_jprb,2.5869e-02_jprb,2.4495e-02_jprb,2.3019e-02_jprb,2.1190e-02_jprb,1.9340e-02_jprb,&
 & 1.6909e-02_jprb,1.5353e-02_jprb,3.2105e-01_jprb/)  
kao( :, 5,11,11) = (/&
 & 3.5830e-02_jprb,3.3269e-02_jprb,3.2053e-02_jprb,3.0019e-02_jprb,2.7764e-02_jprb,2.5746e-02_jprb,&
 & 2.2821e-02_jprb,2.2018e-02_jprb,3.1597e-01_jprb/)  
kao( :, 1,12,11) = (/&
 & 1.0672e-02_jprb,9.7549e-03_jprb,9.0561e-03_jprb,8.2466e-03_jprb,7.3613e-03_jprb,6.3875e-03_jprb,&
 & 5.3947e-03_jprb,4.0883e-03_jprb,5.8394e-01_jprb/)  
kao( :, 2,12,11) = (/&
 & 1.5642e-02_jprb,1.4385e-02_jprb,1.3307e-02_jprb,1.2366e-02_jprb,1.1058e-02_jprb,9.6585e-03_jprb,&
 & 8.3795e-03_jprb,6.6353e-03_jprb,5.6769e-01_jprb/)  
kao( :, 3,12,11) = (/&
 & 2.1675e-02_jprb,2.0001e-02_jprb,1.8764e-02_jprb,1.7488e-02_jprb,1.5704e-02_jprb,1.3828e-02_jprb,&
 & 1.2045e-02_jprb,1.0080e-02_jprb,5.5255e-01_jprb/)  
kao( :, 4,12,11) = (/&
 & 2.8647e-02_jprb,2.6665e-02_jprb,2.5514e-02_jprb,2.3603e-02_jprb,2.1257e-02_jprb,1.8966e-02_jprb,&
 & 1.6778e-02_jprb,1.4837e-02_jprb,5.4088e-01_jprb/)  
kao( :, 5,12,11) = (/&
 & 3.6513e-02_jprb,3.4282e-02_jprb,3.3140e-02_jprb,3.0751e-02_jprb,2.7941e-02_jprb,2.5430e-02_jprb,&
 & 2.2803e-02_jprb,2.1312e-02_jprb,5.3155e-01_jprb/)  
kao( :, 1,13,11) = (/&
 & 1.0760e-02_jprb,9.9165e-03_jprb,9.2107e-03_jprb,8.4431e-03_jprb,7.5043e-03_jprb,6.4219e-03_jprb,&
 & 5.3322e-03_jprb,3.9942e-03_jprb,8.0574e-01_jprb/)  
kao( :, 2,13,11) = (/&
 & 1.5718e-02_jprb,1.4579e-02_jprb,1.3580e-02_jprb,1.2603e-02_jprb,1.1240e-02_jprb,9.7118e-03_jprb,&
 & 8.1489e-03_jprb,6.5540e-03_jprb,7.8546e-01_jprb/)  
kao( :, 3,13,11) = (/&
 & 2.1709e-02_jprb,2.0244e-02_jprb,1.9196e-02_jprb,1.7788e-02_jprb,1.5932e-02_jprb,1.3847e-02_jprb,&
 & 1.1724e-02_jprb,9.8122e-03_jprb,7.6747e-01_jprb/)  
kao( :, 4,13,11) = (/&
 & 2.8590e-02_jprb,2.6855e-02_jprb,2.5888e-02_jprb,2.3974e-02_jprb,2.1610e-02_jprb,1.9031e-02_jprb,&
 & 1.6481e-02_jprb,1.4419e-02_jprb,7.5290e-01_jprb/)  
kao( :, 5,13,11) = (/&
 & 3.6243e-02_jprb,3.4524e-02_jprb,3.3518e-02_jprb,3.1146e-02_jprb,2.8589e-02_jprb,2.5416e-02_jprb,&
 & 2.2358e-02_jprb,2.0400e-02_jprb,7.4359e-01_jprb/)  
kao( :, 1, 1,12) = (/&
 & 5.6231e-02_jprb,4.9245e-02_jprb,4.2437e-02_jprb,3.9377e-02_jprb,3.6183e-02_jprb,3.2140e-02_jprb,&
 & 3.2423e-02_jprb,3.1523e-02_jprb,4.6750e-02_jprb/)  
kao( :, 2, 1,12) = (/&
 & 6.6148e-02_jprb,5.7978e-02_jprb,5.1041e-02_jprb,4.8104e-02_jprb,4.3912e-02_jprb,4.1677e-02_jprb,&
 & 4.3817e-02_jprb,4.4437e-02_jprb,6.2584e-02_jprb/)  
kao( :, 3, 1,12) = (/&
 & 7.6244e-02_jprb,6.6854e-02_jprb,6.1488e-02_jprb,5.7173e-02_jprb,5.2540e-02_jprb,5.2875e-02_jprb,&
 & 5.7103e-02_jprb,5.8708e-02_jprb,8.0763e-02_jprb/)  
kao( :, 4, 1,12) = (/&
 & 8.6310e-02_jprb,7.5728e-02_jprb,7.2130e-02_jprb,6.6817e-02_jprb,6.2530e-02_jprb,6.5257e-02_jprb,&
 & 7.2354e-02_jprb,7.4823e-02_jprb,1.0291e-01_jprb/)  
kao( :, 5, 1,12) = (/&
 & 9.6172e-02_jprb,8.4532e-02_jprb,8.2586e-02_jprb,7.6624e-02_jprb,7.4096e-02_jprb,7.9889e-02_jprb,&
 & 9.0215e-02_jprb,9.5892e-02_jprb,1.2765e-01_jprb/)  
kao( :, 1, 2,12) = (/&
 & 5.4471e-02_jprb,4.7727e-02_jprb,4.1337e-02_jprb,3.9056e-02_jprb,3.5201e-02_jprb,3.1688e-02_jprb,&
 & 3.1483e-02_jprb,3.1390e-02_jprb,4.4121e-02_jprb/)  
kao( :, 2, 2,12) = (/&
 & 6.4761e-02_jprb,5.6767e-02_jprb,5.0472e-02_jprb,4.7843e-02_jprb,4.3316e-02_jprb,4.1425e-02_jprb,&
 & 4.2288e-02_jprb,4.3887e-02_jprb,5.9020e-02_jprb/)  
kao( :, 3, 2,12) = (/&
 & 7.5278e-02_jprb,6.6006e-02_jprb,6.0892e-02_jprb,5.7036e-02_jprb,5.2510e-02_jprb,5.2589e-02_jprb,&
 & 5.4973e-02_jprb,5.8082e-02_jprb,7.6747e-02_jprb/)  
kao( :, 4, 2,12) = (/&
 & 8.5814e-02_jprb,7.5272e-02_jprb,7.1653e-02_jprb,6.6752e-02_jprb,6.2771e-02_jprb,6.5169e-02_jprb,&
 & 7.0350e-02_jprb,7.4345e-02_jprb,9.8748e-02_jprb/)  
kao( :, 5, 2,12) = (/&
 & 9.6214e-02_jprb,8.4711e-02_jprb,8.2534e-02_jprb,7.6688e-02_jprb,7.5320e-02_jprb,7.9513e-02_jprb,&
 & 8.8443e-02_jprb,9.3326e-02_jprb,1.2393e-01_jprb/)  
kao( :, 1, 3,12) = (/&
 & 5.0240e-02_jprb,4.4018e-02_jprb,3.8537e-02_jprb,3.6190e-02_jprb,3.2727e-02_jprb,2.9265e-02_jprb,&
 & 2.8718e-02_jprb,2.8539e-02_jprb,3.8545e-02_jprb/)  
kao( :, 2, 3,12) = (/&
 & 6.0700e-02_jprb,5.3194e-02_jprb,4.7696e-02_jprb,4.4849e-02_jprb,4.0923e-02_jprb,3.8400e-02_jprb,&
 & 3.8699e-02_jprb,3.9635e-02_jprb,5.2691e-02_jprb/)  
kao( :, 3, 3,12) = (/&
 & 7.1446e-02_jprb,6.2599e-02_jprb,5.7763e-02_jprb,5.4243e-02_jprb,5.0207e-02_jprb,4.9187e-02_jprb,&
 & 5.0052e-02_jprb,5.3471e-02_jprb,6.9258e-02_jprb/)  
kao( :, 4, 3,12) = (/&
 & 8.2289e-02_jprb,7.2095e-02_jprb,6.8416e-02_jprb,6.4344e-02_jprb,6.0447e-02_jprb,6.1241e-02_jprb,&
 & 6.3891e-02_jprb,6.9264e-02_jprb,8.9560e-02_jprb/)  
kao( :, 5, 3,12) = (/&
 & 9.3052e-02_jprb,8.1807e-02_jprb,7.9129e-02_jprb,7.4686e-02_jprb,7.2461e-02_jprb,7.5879e-02_jprb,&
 & 8.1262e-02_jprb,8.8197e-02_jprb,1.1309e-01_jprb/)  
kao( :, 1, 4,12) = (/&
 & 4.5028e-02_jprb,3.9435e-02_jprb,3.5334e-02_jprb,3.2580e-02_jprb,2.9727e-02_jprb,2.6383e-02_jprb,&
 & 2.5279e-02_jprb,2.4249e-02_jprb,3.2836e-02_jprb/)  
kao( :, 2, 4,12) = (/&
 & 5.5340e-02_jprb,4.8463e-02_jprb,4.4234e-02_jprb,4.0965e-02_jprb,3.7511e-02_jprb,3.4709e-02_jprb,&
 & 3.4617e-02_jprb,3.4578e-02_jprb,4.5997e-02_jprb/)  
kao( :, 3, 4,12) = (/&
 & 6.6183e-02_jprb,5.7963e-02_jprb,5.3924e-02_jprb,5.0425e-02_jprb,4.6576e-02_jprb,4.4933e-02_jprb,&
 & 4.5427e-02_jprb,4.7054e-02_jprb,6.1726e-02_jprb/)  
kao( :, 4, 4,12) = (/&
 & 7.7283e-02_jprb,6.7685e-02_jprb,6.4408e-02_jprb,6.0620e-02_jprb,5.6689e-02_jprb,5.6675e-02_jprb,&
 & 5.7994e-02_jprb,6.1679e-02_jprb,8.0866e-02_jprb/)  
kao( :, 5, 4,12) = (/&
 & 8.8418e-02_jprb,7.8061e-02_jprb,7.5140e-02_jprb,7.1155e-02_jprb,6.8119e-02_jprb,7.0861e-02_jprb,&
 & 7.3683e-02_jprb,7.9503e-02_jprb,1.0285e-01_jprb/)  
kao( :, 1, 5,12) = (/&
 & 3.9662e-02_jprb,3.4731e-02_jprb,3.1644e-02_jprb,2.8938e-02_jprb,2.6745e-02_jprb,2.3268e-02_jprb,&
 & 2.1825e-02_jprb,2.0476e-02_jprb,2.7392e-02_jprb/)  
kao( :, 2, 5,12) = (/&
 & 4.9795e-02_jprb,4.3597e-02_jprb,4.0424e-02_jprb,3.7076e-02_jprb,3.4194e-02_jprb,3.1021e-02_jprb,&
 & 3.0623e-02_jprb,2.9562e-02_jprb,3.9492e-02_jprb/)  
kao( :, 3, 5,12) = (/&
 & 6.0584e-02_jprb,5.3042e-02_jprb,4.9894e-02_jprb,4.6289e-02_jprb,4.2817e-02_jprb,4.0884e-02_jprb,&
 & 4.1181e-02_jprb,4.1314e-02_jprb,5.4083e-02_jprb/)  
kao( :, 4, 5,12) = (/&
 & 7.1810e-02_jprb,6.2970e-02_jprb,6.0288e-02_jprb,5.6611e-02_jprb,5.2417e-02_jprb,5.2364e-02_jprb,&
 & 5.3447e-02_jprb,5.4733e-02_jprb,7.1895e-02_jprb/)  
kao( :, 5, 5,12) = (/&
 & 8.3191e-02_jprb,7.3693e-02_jprb,7.1136e-02_jprb,6.7175e-02_jprb,6.3303e-02_jprb,6.5794e-02_jprb,&
 & 6.8047e-02_jprb,7.1167e-02_jprb,9.3099e-02_jprb/)  
kao( :, 1, 6,12) = (/&
 & 3.4073e-02_jprb,2.9970e-02_jprb,2.7448e-02_jprb,2.5187e-02_jprb,2.3238e-02_jprb,2.0151e-02_jprb,&
 & 1.8356e-02_jprb,1.7087e-02_jprb,2.1825e-02_jprb/)  
kao( :, 2, 6,12) = (/&
 & 4.3805e-02_jprb,3.8540e-02_jprb,3.5809e-02_jprb,3.2989e-02_jprb,3.0183e-02_jprb,2.7066e-02_jprb,&
 & 2.6460e-02_jprb,2.5241e-02_jprb,3.2266e-02_jprb/)  
kao( :, 3, 6,12) = (/&
 & 5.4408e-02_jprb,4.7827e-02_jprb,4.4959e-02_jprb,4.1832e-02_jprb,3.8412e-02_jprb,3.6156e-02_jprb,&
 & 3.6616e-02_jprb,3.5630e-02_jprb,4.5299e-02_jprb/)  
kao( :, 4, 6,12) = (/&
 & 6.5566e-02_jprb,5.7738e-02_jprb,5.4996e-02_jprb,5.1938e-02_jprb,4.7753e-02_jprb,4.7435e-02_jprb,&
 & 4.8559e-02_jprb,4.8244e-02_jprb,6.1467e-02_jprb/)  
kao( :, 5, 6,12) = (/&
 & 7.7055e-02_jprb,6.8635e-02_jprb,6.5830e-02_jprb,6.2404e-02_jprb,5.8371e-02_jprb,6.0640e-02_jprb,&
 & 6.2553e-02_jprb,6.3410e-02_jprb,8.1734e-02_jprb/)  
kao( :, 1, 7,12) = (/&
 & 2.8703e-02_jprb,2.5583e-02_jprb,2.3276e-02_jprb,2.1697e-02_jprb,1.9747e-02_jprb,1.7089e-02_jprb,&
 & 1.5072e-02_jprb,1.3835e-02_jprb,1.6883e-02_jprb/)  
kao( :, 2, 7,12) = (/&
 & 3.7935e-02_jprb,3.3728e-02_jprb,3.1173e-02_jprb,2.9047e-02_jprb,2.6304e-02_jprb,2.3254e-02_jprb,&
 & 2.2495e-02_jprb,2.1233e-02_jprb,2.5258e-02_jprb/)  
kao( :, 3, 7,12) = (/&
 & 4.8109e-02_jprb,4.2733e-02_jprb,3.9875e-02_jprb,3.7411e-02_jprb,3.4221e-02_jprb,3.1727e-02_jprb,&
 & 3.2013e-02_jprb,3.0954e-02_jprb,3.6228e-02_jprb/)  
kao( :, 4, 7,12) = (/&
 & 5.9015e-02_jprb,5.2712e-02_jprb,4.9724e-02_jprb,4.7098e-02_jprb,4.3201e-02_jprb,4.2396e-02_jprb,&
 & 4.3420e-02_jprb,4.2821e-02_jprb,5.0322e-02_jprb/)  
kao( :, 5, 7,12) = (/&
 & 7.0562e-02_jprb,6.3765e-02_jprb,6.0647e-02_jprb,5.7324e-02_jprb,5.3581e-02_jprb,5.4932e-02_jprb,&
 & 5.6750e-02_jprb,5.6861e-02_jprb,6.8648e-02_jprb/)  
kao( :, 1, 8,12) = (/&
 & 2.3797e-02_jprb,2.1507e-02_jprb,1.9481e-02_jprb,1.8328e-02_jprb,1.6567e-02_jprb,1.4195e-02_jprb,&
 & 1.2226e-02_jprb,1.1084e-02_jprb,1.2769e-02_jprb/)  
kao( :, 2, 8,12) = (/&
 & 3.2290e-02_jprb,2.9132e-02_jprb,2.6787e-02_jprb,2.5154e-02_jprb,2.2698e-02_jprb,1.9789e-02_jprb,&
 & 1.8738e-02_jprb,1.7668e-02_jprb,1.9523e-02_jprb/)  
kao( :, 3, 8,12) = (/&
 & 4.1971e-02_jprb,3.7809e-02_jprb,3.5153e-02_jprb,3.3039e-02_jprb,3.0227e-02_jprb,2.7550e-02_jprb,&
 & 2.7403e-02_jprb,2.6633e-02_jprb,2.8356e-02_jprb/)  
kao( :, 4, 8,12) = (/&
 & 5.2643e-02_jprb,4.7711e-02_jprb,4.4776e-02_jprb,4.2382e-02_jprb,3.8941e-02_jprb,3.7160e-02_jprb,&
 & 3.7962e-02_jprb,3.7660e-02_jprb,4.0067e-02_jprb/)  
kao( :, 5, 8,12) = (/&
 & 6.4120e-02_jprb,5.8657e-02_jprb,5.5707e-02_jprb,5.2735e-02_jprb,4.8989e-02_jprb,4.8789e-02_jprb,&
 & 5.0472e-02_jprb,5.0598e-02_jprb,5.5953e-02_jprb/)  
kao( :, 1, 9,12) = (/&
 & 1.9250e-02_jprb,1.7588e-02_jprb,1.6042e-02_jprb,1.5146e-02_jprb,1.3631e-02_jprb,1.1686e-02_jprb,&
 & 9.9858e-03_jprb,8.6677e-03_jprb,2.1707e-02_jprb/)  
kao( :, 2, 9,12) = (/&
 & 2.7012e-02_jprb,2.4595e-02_jprb,2.2809e-02_jprb,2.1369e-02_jprb,1.9226e-02_jprb,1.6776e-02_jprb,&
 & 1.5292e-02_jprb,1.4425e-02_jprb,2.4366e-02_jprb/)  
kao( :, 3, 9,12) = (/&
 & 3.6057e-02_jprb,3.2810e-02_jprb,3.0756e-02_jprb,2.8820e-02_jprb,2.6287e-02_jprb,2.3677e-02_jprb,&
 & 2.2692e-02_jprb,2.2334e-02_jprb,2.7809e-02_jprb/)  
kao( :, 4, 9,12) = (/&
 & 4.6276e-02_jprb,4.2323e-02_jprb,4.0041e-02_jprb,3.7778e-02_jprb,3.4895e-02_jprb,3.2122e-02_jprb,&
 & 3.2057e-02_jprb,3.2163e-02_jprb,3.3773e-02_jprb/)  
kao( :, 5, 9,12) = (/&
 & 5.7287e-02_jprb,5.2928e-02_jprb,5.0545e-02_jprb,4.8124e-02_jprb,4.4442e-02_jprb,4.2249e-02_jprb,&
 & 4.3334e-02_jprb,4.4067e-02_jprb,4.5714e-02_jprb/)  
kao( :, 1,10,12) = (/&
 & 1.5724e-02_jprb,1.4480e-02_jprb,1.3399e-02_jprb,1.2607e-02_jprb,1.1371e-02_jprb,9.8756e-03_jprb,&
 & 8.2202e-03_jprb,7.0920e-03_jprb,1.5327e-01_jprb/)  
kao( :, 2,10,12) = (/&
 & 2.2742e-02_jprb,2.0839e-02_jprb,1.9648e-02_jprb,1.8330e-02_jprb,1.6472e-02_jprb,1.4615e-02_jprb,&
 & 1.2794e-02_jprb,1.2185e-02_jprb,1.5107e-01_jprb/)  
kao( :, 3,10,12) = (/&
 & 3.1111e-02_jprb,2.8526e-02_jprb,2.7137e-02_jprb,2.5313e-02_jprb,2.3236e-02_jprb,2.0664e-02_jprb,&
 & 1.8952e-02_jprb,1.8782e-02_jprb,1.5057e-01_jprb/)  
kao( :, 4,10,12) = (/&
 & 4.0637e-02_jprb,3.7549e-02_jprb,3.5922e-02_jprb,3.3978e-02_jprb,3.1652e-02_jprb,2.8132e-02_jprb,&
 & 2.7006e-02_jprb,2.7319e-02_jprb,1.5207e-01_jprb/)  

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


SUBROUTINE part9

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


kao( :, 5,10,12) = (/&
 & 5.1227e-02_jprb,4.7699e-02_jprb,4.6069e-02_jprb,4.4170e-02_jprb,4.0891e-02_jprb,3.7225e-02_jprb,&
 & 3.7060e-02_jprb,3.8071e-02_jprb,1.5409e-01_jprb/)  
kao( :, 1,11,12) = (/&
 & 1.5555e-02_jprb,1.4241e-02_jprb,1.3404e-02_jprb,1.2541e-02_jprb,1.1360e-02_jprb,1.0012e-02_jprb,&
 & 8.3342e-03_jprb,7.3523e-03_jprb,4.1658e-01_jprb/)  
kao( :, 2,11,12) = (/&
 & 2.2569e-02_jprb,2.0619e-02_jprb,1.9629e-02_jprb,1.8217e-02_jprb,1.6713e-02_jprb,1.4923e-02_jprb,&
 & 1.2799e-02_jprb,1.2337e-02_jprb,4.0531e-01_jprb/)  
kao( :, 3,11,12) = (/&
 & 3.1003e-02_jprb,2.8414e-02_jprb,2.7101e-02_jprb,2.5438e-02_jprb,2.3803e-02_jprb,2.0993e-02_jprb,&
 & 1.8716e-02_jprb,1.8686e-02_jprb,3.9474e-01_jprb/)  
kao( :, 4,11,12) = (/&
 & 4.0722e-02_jprb,3.7543e-02_jprb,3.5908e-02_jprb,3.4570e-02_jprb,3.2168e-02_jprb,2.8356e-02_jprb,&
 & 2.6227e-02_jprb,2.6848e-02_jprb,3.8831e-01_jprb/)  
kao( :, 5,11,12) = (/&
 & 5.1560e-02_jprb,4.7783e-02_jprb,4.6376e-02_jprb,4.5061e-02_jprb,4.1670e-02_jprb,3.7328e-02_jprb,&
 & 3.5965e-02_jprb,3.7251e-02_jprb,3.8125e-01_jprb/)  
kao( :, 1,12,12) = (/&
 & 1.5830e-02_jprb,1.4387e-02_jprb,1.3516e-02_jprb,1.2418e-02_jprb,1.1346e-02_jprb,1.0079e-02_jprb,&
 & 8.3729e-03_jprb,7.3472e-03_jprb,7.1942e-01_jprb/)  
kao( :, 2,12,12) = (/&
 & 2.3055e-02_jprb,2.0962e-02_jprb,1.9738e-02_jprb,1.8144e-02_jprb,1.6929e-02_jprb,1.5067e-02_jprb,&
 & 1.2702e-02_jprb,1.1955e-02_jprb,6.9772e-01_jprb/)  
kao( :, 3,12,12) = (/&
 & 3.1847e-02_jprb,2.9081e-02_jprb,2.7322e-02_jprb,2.5612e-02_jprb,2.3940e-02_jprb,2.1303e-02_jprb,&
 & 1.8481e-02_jprb,1.8181e-02_jprb,6.7687e-01_jprb/)  
kao( :, 4,12,12) = (/&
 & 4.1961e-02_jprb,3.8413e-02_jprb,3.6388e-02_jprb,3.4886e-02_jprb,3.2236e-02_jprb,2.8808e-02_jprb,&
 & 2.5797e-02_jprb,2.6077e-02_jprb,6.5603e-01_jprb/)  
kao( :, 5,12,12) = (/&
 & 5.3319e-02_jprb,4.9117e-02_jprb,4.7169e-02_jprb,4.5236e-02_jprb,4.1943e-02_jprb,3.7873e-02_jprb,&
 & 3.5355e-02_jprb,3.6412e-02_jprb,6.4190e-01_jprb/)  
kao( :, 1,13,12) = (/&
 & 1.6495e-02_jprb,1.4909e-02_jprb,1.3825e-02_jprb,1.2544e-02_jprb,1.1340e-02_jprb,9.9975e-03_jprb,&
 & 8.3433e-03_jprb,7.0546e-03_jprb,9.9911e-01_jprb/)  
kao( :, 2,13,12) = (/&
 & 2.4109e-02_jprb,2.1885e-02_jprb,2.0210e-02_jprb,1.8488e-02_jprb,1.6936e-02_jprb,1.4953e-02_jprb,&
 & 1.2660e-02_jprb,1.1467e-02_jprb,9.6984e-01_jprb/)  
kao( :, 3,13,12) = (/&
 & 3.3220e-02_jprb,3.0296e-02_jprb,2.8083e-02_jprb,2.6185e-02_jprb,2.3860e-02_jprb,2.1223e-02_jprb,&
 & 1.8346e-02_jprb,1.7437e-02_jprb,9.3888e-01_jprb/)  
kao( :, 4,13,12) = (/&
 & 4.3831e-02_jprb,4.0158e-02_jprb,3.7697e-02_jprb,3.5285e-02_jprb,3.2116e-02_jprb,2.8881e-02_jprb,&
 & 2.5602e-02_jprb,2.5164e-02_jprb,9.0808e-01_jprb/)  
kao( :, 5,13,12) = (/&
 & 5.5677e-02_jprb,5.1368e-02_jprb,4.8923e-02_jprb,4.5702e-02_jprb,4.1832e-02_jprb,3.8470e-02_jprb,&
 & 3.5318e-02_jprb,3.5646e-02_jprb,8.8465e-01_jprb/)  
kao( :, 1, 1,13) = (/&
 & 7.2506e-02_jprb,6.3446e-02_jprb,5.4408e-02_jprb,4.7483e-02_jprb,4.2382e-02_jprb,4.1239e-02_jprb,&
 & 4.3386e-02_jprb,4.4074e-02_jprb,6.4271e-02_jprb/)  
kao( :, 2, 1,13) = (/&
 & 8.4465e-02_jprb,7.3953e-02_jprb,6.3427e-02_jprb,5.6900e-02_jprb,5.2376e-02_jprb,5.3648e-02_jprb,&
 & 5.8354e-02_jprb,5.9101e-02_jprb,8.6583e-02_jprb/)  
kao( :, 3, 1,13) = (/&
 & 9.6444e-02_jprb,8.4439e-02_jprb,7.3063e-02_jprb,6.7601e-02_jprb,6.5429e-02_jprb,6.9474e-02_jprb,&
 & 7.7817e-02_jprb,8.1204e-02_jprb,1.1413e-01_jprb/)  
kao( :, 4, 1,13) = (/&
 & 1.0833e-01_jprb,9.4864e-02_jprb,8.5278e-02_jprb,7.9673e-02_jprb,8.1089e-02_jprb,9.1367e-02_jprb,&
 & 1.0434e-01_jprb,1.1177e-01_jprb,1.4904e-01_jprb/)  
kao( :, 5, 1,13) = (/&
 & 1.1980e-01_jprb,1.0493e-01_jprb,9.6406e-02_jprb,9.4783e-02_jprb,1.0132e-01_jprb,1.1971e-01_jprb,&
 & 1.3809e-01_jprb,1.4964e-01_jprb,1.9375e-01_jprb/)  
kao( :, 1, 2,13) = (/&
 & 7.1478e-02_jprb,6.2570e-02_jprb,5.3664e-02_jprb,4.6754e-02_jprb,4.2681e-02_jprb,4.1156e-02_jprb,&
 & 4.2008e-02_jprb,4.2483e-02_jprb,6.2959e-02_jprb/)  
kao( :, 2, 2,13) = (/&
 & 8.4247e-02_jprb,7.3747e-02_jprb,6.3249e-02_jprb,5.6233e-02_jprb,5.3534e-02_jprb,5.3727e-02_jprb,&
 & 5.7468e-02_jprb,5.8178e-02_jprb,8.6328e-02_jprb/)  
kao( :, 3, 2,13) = (/&
 & 9.6812e-02_jprb,8.4747e-02_jprb,7.4116e-02_jprb,6.7508e-02_jprb,6.6781e-02_jprb,6.9983e-02_jprb,&
 & 7.6767e-02_jprb,7.7852e-02_jprb,1.1485e-01_jprb/)  
kao( :, 4, 2,13) = (/&
 & 1.0887e-01_jprb,9.5297e-02_jprb,8.6108e-02_jprb,8.0754e-02_jprb,8.2919e-02_jprb,8.8967e-02_jprb,&
 & 1.0013e-01_jprb,1.0496e-01_jprb,1.4738e-01_jprb/)  
kao( :, 5, 2,13) = (/&
 & 1.2040e-01_jprb,1.0544e-01_jprb,9.8262e-02_jprb,9.7024e-02_jprb,1.0128e-01_jprb,1.1389e-01_jprb,&
 & 1.3047e-01_jprb,1.4126e-01_jprb,1.8810e-01_jprb/)  
kao( :, 1, 3,13) = (/&
 & 6.7428e-02_jprb,5.9012e-02_jprb,5.0600e-02_jprb,4.4820e-02_jprb,4.0284e-02_jprb,3.8905e-02_jprb,&
 & 3.8433e-02_jprb,3.8221e-02_jprb,5.7695e-02_jprb/)  
kao( :, 2, 3,13) = (/&
 & 8.0097e-02_jprb,7.0092e-02_jprb,6.0231e-02_jprb,5.4560e-02_jprb,5.1238e-02_jprb,5.1427e-02_jprb,&
 & 5.2635e-02_jprb,5.3599e-02_jprb,7.9873e-02_jprb/)  
kao( :, 3, 3,13) = (/&
 & 9.2835e-02_jprb,8.1288e-02_jprb,7.1303e-02_jprb,6.5788e-02_jprb,6.5168e-02_jprb,6.7196e-02_jprb,&
 & 7.1689e-02_jprb,7.2641e-02_jprb,1.0771e-01_jprb/)  
kao( :, 4, 3,13) = (/&
 & 1.0559e-01_jprb,9.2480e-02_jprb,8.3299e-02_jprb,7.8616e-02_jprb,8.1678e-02_jprb,8.5882e-02_jprb,&
 & 9.4318e-02_jprb,9.6259e-02_jprb,1.4043e-01_jprb/)  
kao( :, 5, 3,13) = (/&
 & 1.1824e-01_jprb,1.0358e-01_jprb,9.6455e-02_jprb,9.5066e-02_jprb,9.9972e-02_jprb,1.0747e-01_jprb,&
 & 1.2012e-01_jprb,1.2676e-01_jprb,1.7816e-01_jprb/)  
kao( :, 1, 4,13) = (/&
 & 6.1574e-02_jprb,5.3893e-02_jprb,4.6221e-02_jprb,4.1581e-02_jprb,3.7011e-02_jprb,3.6135e-02_jprb,&
 & 3.5573e-02_jprb,3.4371e-02_jprb,5.0320e-02_jprb/)  
kao( :, 2, 4,13) = (/&
 & 7.4469e-02_jprb,6.5196e-02_jprb,5.6073e-02_jprb,5.1353e-02_jprb,4.7821e-02_jprb,4.7971e-02_jprb,&
 & 4.8104e-02_jprb,4.8151e-02_jprb,7.0598e-02_jprb/)  
kao( :, 3, 4,13) = (/&
 & 8.7893e-02_jprb,7.6969e-02_jprb,6.7380e-02_jprb,6.2778e-02_jprb,6.1745e-02_jprb,6.3327e-02_jprb,&
 & 6.5251e-02_jprb,6.6605e-02_jprb,9.6688e-02_jprb/)  
kao( :, 4, 4,13) = (/&
 & 1.0128e-01_jprb,8.8666e-02_jprb,7.9558e-02_jprb,7.6113e-02_jprb,7.8711e-02_jprb,8.2067e-02_jprb,&
 & 8.7118e-02_jprb,8.9685e-02_jprb,1.2734e-01_jprb/)  
kao( :, 5, 4,13) = (/&
 & 1.1397e-01_jprb,9.9791e-02_jprb,9.3095e-02_jprb,9.2358e-02_jprb,9.7817e-02_jprb,1.0283e-01_jprb,&
 & 1.1271e-01_jprb,1.1615e-01_jprb,1.6394e-01_jprb/)  
kao( :, 1, 5,13) = (/&
 & 5.5644e-02_jprb,4.8706e-02_jprb,4.2042e-02_jprb,3.7730e-02_jprb,3.3816e-02_jprb,3.3296e-02_jprb,&
 & 3.2567e-02_jprb,3.1307e-02_jprb,4.2852e-02_jprb/)  
kao( :, 2, 5,13) = (/&
 & 6.8700e-02_jprb,6.0145e-02_jprb,5.2078e-02_jprb,4.7465e-02_jprb,4.4257e-02_jprb,4.4542e-02_jprb,&
 & 4.3904e-02_jprb,4.3555e-02_jprb,6.1397e-02_jprb/)  
kao( :, 3, 5,13) = (/&
 & 8.2079e-02_jprb,7.1842e-02_jprb,6.3336e-02_jprb,5.8826e-02_jprb,5.7771e-02_jprb,5.9150e-02_jprb,&
 & 5.9615e-02_jprb,6.0276e-02_jprb,8.5213e-02_jprb/)  
kao( :, 4, 5,13) = (/&
 & 9.5395e-02_jprb,8.3509e-02_jprb,7.5491e-02_jprb,7.2428e-02_jprb,7.4615e-02_jprb,7.7323e-02_jprb,&
 & 7.9697e-02_jprb,8.2375e-02_jprb,1.1408e-01_jprb/)  
kao( :, 5, 5,13) = (/&
 & 1.0879e-01_jprb,9.5224e-02_jprb,8.9008e-02_jprb,8.9139e-02_jprb,9.4277e-02_jprb,9.8162e-02_jprb,&
 & 1.0347e-01_jprb,1.0938e-01_jprb,1.4850e-01_jprb/)  
kao( :, 1, 6,13) = (/&
 & 4.9166e-02_jprb,4.3032e-02_jprb,3.7697e-02_jprb,3.3418e-02_jprb,3.0271e-02_jprb,2.9707e-02_jprb,&
 & 2.8739e-02_jprb,2.7107e-02_jprb,3.5180e-02_jprb/)  
kao( :, 2, 6,13) = (/&
 & 6.1802e-02_jprb,5.4091e-02_jprb,4.7585e-02_jprb,4.2912e-02_jprb,4.0335e-02_jprb,4.0310e-02_jprb,&
 & 3.9360e-02_jprb,3.8194e-02_jprb,5.1590e-02_jprb/)  
kao( :, 3, 6,13) = (/&
 & 7.4933e-02_jprb,6.5583e-02_jprb,5.8743e-02_jprb,5.3925e-02_jprb,5.3041e-02_jprb,5.4106e-02_jprb,&
 & 5.3825e-02_jprb,5.3725e-02_jprb,7.3865e-02_jprb/)  
kao( :, 4, 6,13) = (/&
 & 8.8794e-02_jprb,7.7714e-02_jprb,7.0892e-02_jprb,6.7266e-02_jprb,6.9411e-02_jprb,7.1602e-02_jprb,&
 & 7.2167e-02_jprb,7.4198e-02_jprb,1.0072e-01_jprb/)  
kao( :, 5, 6,13) = (/&
 & 1.0284e-01_jprb,9.0019e-02_jprb,8.4346e-02_jprb,8.3697e-02_jprb,8.8853e-02_jprb,9.1618e-02_jprb,&
 & 9.4095e-02_jprb,9.9493e-02_jprb,1.3200e-01_jprb/)  
kao( :, 1, 7,13) = (/&
 & 4.2481e-02_jprb,3.7182e-02_jprb,3.2941e-02_jprb,2.9053e-02_jprb,2.6729e-02_jprb,2.5857e-02_jprb,&
 & 2.4817e-02_jprb,2.3036e-02_jprb,2.8513e-02_jprb/)  
kao( :, 2, 7,13) = (/&
 & 5.4646e-02_jprb,4.7829e-02_jprb,4.2493e-02_jprb,3.8260e-02_jprb,3.6179e-02_jprb,3.5843e-02_jprb,&
 & 3.4675e-02_jprb,3.3090e-02_jprb,4.3061e-02_jprb/)  
kao( :, 3, 7,13) = (/&
 & 6.7949e-02_jprb,5.9473e-02_jprb,5.3629e-02_jprb,4.8997e-02_jprb,4.7960e-02_jprb,4.8517e-02_jprb,&
 & 4.7980e-02_jprb,4.6686e-02_jprb,6.3225e-02_jprb/)  
kao( :, 4, 7,13) = (/&
 & 8.2011e-02_jprb,7.1775e-02_jprb,6.5638e-02_jprb,6.1779e-02_jprb,6.3457e-02_jprb,6.4989e-02_jprb,&
 & 6.5420e-02_jprb,6.5338e-02_jprb,8.8114e-02_jprb/)  
kao( :, 5, 7,13) = (/&
 & 9.6121e-02_jprb,8.4118e-02_jprb,7.9080e-02_jprb,7.7840e-02_jprb,8.2099e-02_jprb,8.4733e-02_jprb,&
 & 8.6013e-02_jprb,8.9165e-02_jprb,1.1782e-01_jprb/)  
kao( :, 1, 8,13) = (/&
 & 3.6137e-02_jprb,3.1658e-02_jprb,2.8232e-02_jprb,2.4974e-02_jprb,2.3118e-02_jprb,2.2088e-02_jprb,&
 & 2.1064e-02_jprb,1.9376e-02_jprb,2.2745e-02_jprb/)  
kao( :, 2, 8,13) = (/&
 & 4.8016e-02_jprb,4.2076e-02_jprb,3.7504e-02_jprb,3.3789e-02_jprb,3.1931e-02_jprb,3.1218e-02_jprb,&
 & 3.0077e-02_jprb,2.8144e-02_jprb,3.5232e-02_jprb/)  
kao( :, 3, 8,13) = (/&
 & 6.1205e-02_jprb,5.3668e-02_jprb,4.8373e-02_jprb,4.4145e-02_jprb,4.2766e-02_jprb,4.3001e-02_jprb,&
 & 4.2234e-02_jprb,4.0332e-02_jprb,5.3276e-02_jprb/)  
kao( :, 4, 8,13) = (/&
 & 7.5025e-02_jprb,6.5801e-02_jprb,6.0176e-02_jprb,5.6410e-02_jprb,5.7125e-02_jprb,5.8703e-02_jprb,&
 & 5.8721e-02_jprb,5.7394e-02_jprb,7.6141e-02_jprb/)  
kao( :, 5, 8,13) = (/&
 & 8.9588e-02_jprb,7.8614e-02_jprb,7.3265e-02_jprb,7.1609e-02_jprb,7.4944e-02_jprb,7.7845e-02_jprb,&
 & 7.8817e-02_jprb,7.9234e-02_jprb,1.0406e-01_jprb/)  
kao( :, 1, 9,13) = (/&
 & 3.0354e-02_jprb,2.6812e-02_jprb,2.3806e-02_jprb,2.1190e-02_jprb,1.9445e-02_jprb,1.8240e-02_jprb,&
 & 1.7300e-02_jprb,1.5970e-02_jprb,2.7469e-02_jprb/)  
kao( :, 2, 9,13) = (/&
 & 4.1683e-02_jprb,3.6828e-02_jprb,3.2679e-02_jprb,2.9622e-02_jprb,2.7586e-02_jprb,2.6377e-02_jprb,&
 & 2.5396e-02_jprb,2.3781e-02_jprb,3.1985e-02_jprb/)  
kao( :, 3, 9,13) = (/&
 & 5.4431e-02_jprb,4.8107e-02_jprb,4.3192e-02_jprb,3.9529e-02_jprb,3.7624e-02_jprb,3.7195e-02_jprb,&
 & 3.6607e-02_jprb,3.4524e-02_jprb,4.4340e-02_jprb/)  
kao( :, 4, 9,13) = (/&
 & 6.8321e-02_jprb,6.0391e-02_jprb,5.4610e-02_jprb,5.1211e-02_jprb,5.0615e-02_jprb,5.1938e-02_jprb,&
 & 5.2206e-02_jprb,5.0002e-02_jprb,6.4376e-02_jprb/)  
kao( :, 5, 9,13) = (/&
 & 8.3382e-02_jprb,7.3864e-02_jprb,6.7608e-02_jprb,6.5416e-02_jprb,6.7796e-02_jprb,7.0544e-02_jprb,&
 & 7.1581e-02_jprb,7.0367e-02_jprb,8.9820e-02_jprb/)  
kao( :, 1,10,13) = (/&
 & 2.5866e-02_jprb,2.3096e-02_jprb,2.0359e-02_jprb,1.8244e-02_jprb,1.6555e-02_jprb,1.5241e-02_jprb,&
 & 1.4537e-02_jprb,1.3197e-02_jprb,1.8207e-01_jprb/)  
kao( :, 2,10,13) = (/&
 & 3.6597e-02_jprb,3.2659e-02_jprb,2.8899e-02_jprb,2.6262e-02_jprb,2.4046e-02_jprb,2.2449e-02_jprb,&
 & 2.1774e-02_jprb,2.0251e-02_jprb,1.8269e-01_jprb/)  
kao( :, 3,10,13) = (/&
 & 4.8990e-02_jprb,4.3688e-02_jprb,3.9094e-02_jprb,3.5827e-02_jprb,3.3277e-02_jprb,3.2592e-02_jprb,&
 & 3.2234e-02_jprb,3.0480e-02_jprb,1.8337e-01_jprb/)  
kao( :, 4,10,13) = (/&
 & 6.3031e-02_jprb,5.6150e-02_jprb,5.0614e-02_jprb,4.7098e-02_jprb,4.5295e-02_jprb,4.6573e-02_jprb,&
 & 4.6974e-02_jprb,4.5107e-02_jprb,1.8526e-01_jprb/)  
kao( :, 5,10,13) = (/&
 & 7.8337e-02_jprb,7.0036e-02_jprb,6.3907e-02_jprb,6.0875e-02_jprb,6.1588e-02_jprb,6.4404e-02_jprb,&
 & 6.5574e-02_jprb,6.4038e-02_jprb,1.9009e-01_jprb/)  
kao( :, 1,11,13) = (/&
 & 2.6170e-02_jprb,2.3547e-02_jprb,2.0835e-02_jprb,1.8825e-02_jprb,1.6889e-02_jprb,1.5401e-02_jprb,&
 & 1.4727e-02_jprb,1.3614e-02_jprb,5.0818e-01_jprb/)  
kao( :, 2,11,13) = (/&
 & 3.7087e-02_jprb,3.3315e-02_jprb,2.9858e-02_jprb,2.7151e-02_jprb,2.4450e-02_jprb,2.2833e-02_jprb,&
 & 2.2404e-02_jprb,2.1001e-02_jprb,5.0103e-01_jprb/)  
kao( :, 3,11,13) = (/&
 & 4.9963e-02_jprb,4.4837e-02_jprb,4.0625e-02_jprb,3.7044e-02_jprb,3.4135e-02_jprb,3.3574e-02_jprb,&
 & 3.3602e-02_jprb,3.2090e-02_jprb,4.9194e-01_jprb/)  
kao( :, 4,11,13) = (/&
 & 6.4516e-02_jprb,5.7977e-02_jprb,5.3206e-02_jprb,4.8937e-02_jprb,4.7272e-02_jprb,4.8448e-02_jprb,&
 & 4.9192e-02_jprb,4.7870e-02_jprb,4.8323e-01_jprb/)  
kao( :, 5,11,13) = (/&
 & 8.0357e-02_jprb,7.2810e-02_jprb,6.7423e-02_jprb,6.3846e-02_jprb,6.4063e-02_jprb,6.6805e-02_jprb,&
 & 6.8458e-02_jprb,6.7693e-02_jprb,4.8224e-01_jprb/)  
kao( :, 1,12,13) = (/&
 & 2.6382e-02_jprb,2.3869e-02_jprb,2.1423e-02_jprb,1.9530e-02_jprb,1.7276e-02_jprb,1.5597e-02_jprb,&
 & 1.4852e-02_jprb,1.3926e-02_jprb,8.8613e-01_jprb/)  
kao( :, 2,12,13) = (/&
 & 3.7554e-02_jprb,3.3911e-02_jprb,3.0989e-02_jprb,2.8114e-02_jprb,2.5051e-02_jprb,2.3359e-02_jprb,&
 & 2.2994e-02_jprb,2.2005e-02_jprb,8.7122e-01_jprb/)  
kao( :, 3,12,13) = (/&
 & 5.0689e-02_jprb,4.5835e-02_jprb,4.2372e-02_jprb,3.8639e-02_jprb,3.5524e-02_jprb,3.4470e-02_jprb,&
 & 3.4752e-02_jprb,3.3789e-02_jprb,8.5297e-01_jprb/)  
kao( :, 4,12,13) = (/&
 & 6.5611e-02_jprb,5.9692e-02_jprb,5.5677e-02_jprb,5.1555e-02_jprb,4.9587e-02_jprb,4.9441e-02_jprb,&
 & 5.0436e-02_jprb,4.9926e-02_jprb,8.3445e-01_jprb/)  
kao( :, 5,12,13) = (/&
 & 8.2012e-02_jprb,7.5239e-02_jprb,7.1004e-02_jprb,6.7701e-02_jprb,6.6707e-02_jprb,6.7915e-02_jprb,&
 & 6.9915e-02_jprb,7.0294e-02_jprb,8.1920e-01_jprb/)  
kao( :, 1,13,13) = (/&
 & 2.6411e-02_jprb,2.4001e-02_jprb,2.2003e-02_jprb,2.0098e-02_jprb,1.7783e-02_jprb,1.5910e-02_jprb,&
 & 1.4921e-02_jprb,1.4266e-02_jprb,1.2499e+00_jprb/)  
kao( :, 2,13,13) = (/&
 & 3.7728e-02_jprb,3.4235e-02_jprb,3.1890e-02_jprb,2.9069e-02_jprb,2.6051e-02_jprb,2.4137e-02_jprb,&
 & 2.3431e-02_jprb,2.2763e-02_jprb,1.2233e+00_jprb/)  
kao( :, 3,13,13) = (/&
 & 5.1168e-02_jprb,4.6582e-02_jprb,4.3725e-02_jprb,4.0296e-02_jprb,3.7356e-02_jprb,3.5542e-02_jprb,&
 & 3.5231e-02_jprb,3.4850e-02_jprb,1.1970e+00_jprb/)  
kao( :, 4,13,13) = (/&
 & 6.6532e-02_jprb,6.1023e-02_jprb,5.7678e-02_jprb,5.4658e-02_jprb,5.1906e-02_jprb,5.0202e-02_jprb,&
 & 5.0477e-02_jprb,5.0911e-02_jprb,1.1702e+00_jprb/)  
kao( :, 5,13,13) = (/&
 & 8.3713e-02_jprb,7.7246e-02_jprb,7.4186e-02_jprb,7.1956e-02_jprb,6.9311e-02_jprb,6.8138e-02_jprb,&
 & 6.9472e-02_jprb,7.1080e-02_jprb,1.1427e+00_jprb/)  
kao( :, 1, 1,14) = (/&
 & 8.4406e-02_jprb,7.3923e-02_jprb,6.3390e-02_jprb,5.3666e-02_jprb,5.2956e-02_jprb,5.5472e-02_jprb,&
 & 6.0634e-02_jprb,5.8813e-02_jprb,9.2877e-02_jprb/)  
kao( :, 2, 1,14) = (/&
 & 9.8373e-02_jprb,8.6109e-02_jprb,7.3836e-02_jprb,6.7549e-02_jprb,6.9431e-02_jprb,7.7739e-02_jprb,&
 & 8.6438e-02_jprb,8.5388e-02_jprb,1.3005e-01_jprb/)  
kao( :, 3, 1,14) = (/&
 & 1.1220e-01_jprb,9.8227e-02_jprb,8.4237e-02_jprb,8.6127e-02_jprb,9.3558e-02_jprb,1.1007e-01_jprb,&
 & 1.2298e-01_jprb,1.2120e-01_jprb,1.8519e-01_jprb/)  
kao( :, 4, 1,14) = (/&
 & 1.2589e-01_jprb,1.1021e-01_jprb,9.7341e-02_jprb,1.0805e-01_jprb,1.2702e-01_jprb,1.5181e-01_jprb,&
 & 1.6898e-01_jprb,1.6664e-01_jprb,2.5570e-01_jprb/)  
kao( :, 5, 1,14) = (/&
 & 1.3898e-01_jprb,1.2167e-01_jprb,1.1790e-01_jprb,1.3538e-01_jprb,1.6936e-01_jprb,2.0147e-01_jprb,&
 & 2.2468e-01_jprb,2.1901e-01_jprb,3.4200e-01_jprb/)  
kao( :, 1, 2,14) = (/&
 & 8.6965e-02_jprb,7.6122e-02_jprb,6.5271e-02_jprb,5.5929e-02_jprb,5.5266e-02_jprb,5.6412e-02_jprb,&
 & 6.1162e-02_jprb,5.9084e-02_jprb,9.4145e-02_jprb/)  
kao( :, 2, 2,14) = (/&
 & 1.0214e-01_jprb,8.9404e-02_jprb,7.6670e-02_jprb,7.1026e-02_jprb,7.1152e-02_jprb,7.6438e-02_jprb,&
 & 8.4319e-02_jprb,8.3198e-02_jprb,1.2897e-01_jprb/)  
kao( :, 3, 2,14) = (/&
 & 1.1758e-01_jprb,1.0294e-01_jprb,8.8300e-02_jprb,9.0301e-02_jprb,9.3552e-02_jprb,1.0592e-01_jprb,&
 & 1.1887e-01_jprb,1.2017e-01_jprb,1.7974e-01_jprb/)  
kao( :, 4, 2,14) = (/&
 & 1.3321e-01_jprb,1.1665e-01_jprb,1.0423e-01_jprb,1.1370e-01_jprb,1.2505e-01_jprb,1.4860e-01_jprb,&
 & 1.6715e-01_jprb,1.6784e-01_jprb,2.5046e-01_jprb/)  
kao( :, 5, 2,14) = (/&
 & 1.4865e-01_jprb,1.3020e-01_jprb,1.2666e-01_jprb,1.3953e-01_jprb,1.6682e-01_jprb,2.0058e-01_jprb,&
 & 2.2553e-01_jprb,2.2565e-01_jprb,3.3899e-01_jprb/)  
kao( :, 1, 3,14) = (/&
 & 8.6079e-02_jprb,7.5340e-02_jprb,6.4607e-02_jprb,5.5456e-02_jprb,5.5272e-02_jprb,5.5233e-02_jprb,&
 & 5.8267e-02_jprb,5.6783e-02_jprb,8.9464e-02_jprb/)  
kao( :, 2, 3,14) = (/&
 & 1.0304e-01_jprb,9.0205e-02_jprb,7.7348e-02_jprb,7.0519e-02_jprb,7.0862e-02_jprb,7.2390e-02_jprb,&
 & 7.8791e-02_jprb,7.7229e-02_jprb,1.2132e-01_jprb/)  
kao( :, 3, 3,14) = (/&
 & 1.2050e-01_jprb,1.0550e-01_jprb,9.0628e-02_jprb,8.9686e-02_jprb,9.0578e-02_jprb,9.7251e-02_jprb,&
 & 1.0832e-01_jprb,1.0857e-01_jprb,1.6570e-01_jprb/)  
kao( :, 4, 3,14) = (/&
 & 1.3798e-01_jprb,1.2081e-01_jprb,1.0757e-01_jprb,1.1366e-01_jprb,1.1771e-01_jprb,1.3404e-01_jprb,&
 & 1.5114e-01_jprb,1.5446e-01_jprb,2.2779e-01_jprb/)  
kao( :, 5, 3,14) = (/&
 & 1.5527e-01_jprb,1.3594e-01_jprb,1.3049e-01_jprb,1.4065e-01_jprb,1.5498e-01_jprb,1.8347e-01_jprb,&
 & 2.0928e-01_jprb,2.1357e-01_jprb,3.1056e-01_jprb/)  

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


SUBROUTINE part10

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


kao( :, 1, 4,14) = (/&
 & 8.3658e-02_jprb,7.3219e-02_jprb,6.2782e-02_jprb,5.4421e-02_jprb,5.4252e-02_jprb,5.2373e-02_jprb,&
 & 5.2872e-02_jprb,5.3249e-02_jprb,8.1760e-02_jprb/)  
kao( :, 2, 4,14) = (/&
 & 1.0179e-01_jprb,8.9084e-02_jprb,7.6372e-02_jprb,6.9322e-02_jprb,6.9646e-02_jprb,6.9291e-02_jprb,&
 & 7.2799e-02_jprb,7.2370e-02_jprb,1.1302e-01_jprb/)  
kao( :, 3, 4,14) = (/&
 & 1.2055e-01_jprb,1.0553e-01_jprb,9.0925e-02_jprb,8.8158e-02_jprb,8.8997e-02_jprb,9.0835e-02_jprb,&
 & 9.8776e-02_jprb,9.8752e-02_jprb,1.5269e-01_jprb/)  
kao( :, 4, 4,14) = (/&
 & 1.3976e-01_jprb,1.2239e-01_jprb,1.0872e-01_jprb,1.1120e-01_jprb,1.1304e-01_jprb,1.2136e-01_jprb,&
 & 1.3545e-01_jprb,1.3720e-01_jprb,2.0650e-01_jprb/)  
kao( :, 5, 4,14) = (/&
 & 1.5964e-01_jprb,1.3984e-01_jprb,1.3154e-01_jprb,1.3870e-01_jprb,1.4428e-01_jprb,1.6405e-01_jprb,&
 & 1.8578e-01_jprb,1.9371e-01_jprb,2.7910e-01_jprb/)  
kao( :, 1, 5,14) = (/&
 & 7.9613e-02_jprb,6.9667e-02_jprb,5.9735e-02_jprb,5.2890e-02_jprb,5.1672e-02_jprb,4.9631e-02_jprb,&
 & 4.7983e-02_jprb,4.7891e-02_jprb,7.3721e-02_jprb/)  
kao( :, 2, 5,14) = (/&
 & 9.8444e-02_jprb,8.6165e-02_jprb,7.3879e-02_jprb,6.8004e-02_jprb,6.7906e-02_jprb,6.5760e-02_jprb,&
 & 6.6820e-02_jprb,6.7095e-02_jprb,1.0263e-01_jprb/)  
kao( :, 3, 5,14) = (/&
 & 1.1874e-01_jprb,1.0393e-01_jprb,8.9653e-02_jprb,8.6769e-02_jprb,8.7048e-02_jprb,8.6781e-02_jprb,&
 & 9.1705e-02_jprb,9.1503e-02_jprb,1.4159e-01_jprb/)  
kao( :, 4, 5,14) = (/&
 & 1.4009e-01_jprb,1.2266e-01_jprb,1.0834e-01_jprb,1.0954e-01_jprb,1.1083e-01_jprb,1.1372e-01_jprb,&
 & 1.2361e-01_jprb,1.2496e-01_jprb,1.9192e-01_jprb/)  
kao( :, 5, 5,14) = (/&
 & 1.6191e-01_jprb,1.4179e-01_jprb,1.3132e-01_jprb,1.3664e-01_jprb,1.3962e-01_jprb,1.5009e-01_jprb,&
 & 1.6802e-01_jprb,1.7246e-01_jprb,2.5602e-01_jprb/)  
kao( :, 1, 6,14) = (/&
 & 7.3321e-02_jprb,6.4173e-02_jprb,5.5115e-02_jprb,5.0047e-02_jprb,4.8003e-02_jprb,4.5729e-02_jprb,&
 & 4.3413e-02_jprb,4.2157e-02_jprb,6.5110e-02_jprb/)  
kao( :, 2, 6,14) = (/&
 & 9.2952e-02_jprb,8.1355e-02_jprb,6.9976e-02_jprb,6.5257e-02_jprb,6.4561e-02_jprb,6.2014e-02_jprb,&
 & 6.0594e-02_jprb,6.0655e-02_jprb,9.1731e-02_jprb/)  
kao( :, 3, 6,14) = (/&
 & 1.1439e-01_jprb,1.0014e-01_jprb,8.6575e-02_jprb,8.3912e-02_jprb,8.3786e-02_jprb,8.2279e-02_jprb,&
 & 8.3550e-02_jprb,8.4201e-02_jprb,1.2740e-01_jprb/)  
kao( :, 4, 6,14) = (/&
 & 1.3703e-01_jprb,1.1997e-01_jprb,1.0601e-01_jprb,1.0652e-01_jprb,1.0715e-01_jprb,1.0792e-01_jprb,&
 & 1.1407e-01_jprb,1.1447e-01_jprb,1.7570e-01_jprb/)  
kao( :, 5, 6,14) = (/&
 & 1.6047e-01_jprb,1.4048e-01_jprb,1.2948e-01_jprb,1.3382e-01_jprb,1.3571e-01_jprb,1.4072e-01_jprb,&
 & 1.5346e-01_jprb,1.5557e-01_jprb,2.3674e-01_jprb/)  
kao( :, 1, 7,14) = (/&
 & 6.6096e-02_jprb,5.7840e-02_jprb,5.0291e-02_jprb,4.6255e-02_jprb,4.3749e-02_jprb,4.1346e-02_jprb,&
 & 3.9237e-02_jprb,3.7187e-02_jprb,5.6581e-02_jprb/)  
kao( :, 2, 7,14) = (/&
 & 8.5997e-02_jprb,7.5272e-02_jprb,6.5564e-02_jprb,6.1464e-02_jprb,6.0084e-02_jprb,5.7566e-02_jprb,&
 & 5.5305e-02_jprb,5.4415e-02_jprb,8.1052e-02_jprb/)  
kao( :, 3, 7,14) = (/&
 & 1.0792e-01_jprb,9.4463e-02_jprb,8.2746e-02_jprb,8.0231e-02_jprb,7.9656e-02_jprb,7.7519e-02_jprb,&
 & 7.6243e-02_jprb,7.6636e-02_jprb,1.1376e-01_jprb/)  
kao( :, 4, 7,14) = (/&
 & 1.3147e-01_jprb,1.1508e-01_jprb,1.0289e-01_jprb,1.0281e-01_jprb,1.0321e-01_jprb,1.0267e-01_jprb,&
 & 1.0428e-01_jprb,1.0618e-01_jprb,1.5831e-01_jprb/)  
kao( :, 5, 7,14) = (/&
 & 1.5658e-01_jprb,1.3709e-01_jprb,1.2648e-01_jprb,1.2964e-01_jprb,1.3186e-01_jprb,1.3458e-01_jprb,&
 & 1.4246e-01_jprb,1.4352e-01_jprb,2.1656e-01_jprb/)  
kao( :, 1, 8,14) = (/&
 & 5.8400e-02_jprb,5.1103e-02_jprb,4.5168e-02_jprb,4.1948e-02_jprb,3.9253e-02_jprb,3.7020e-02_jprb,&
 & 3.5370e-02_jprb,3.2290e-02_jprb,4.8663e-02_jprb/)  
kao( :, 2, 8,14) = (/&
 & 7.8005e-02_jprb,6.8268e-02_jprb,6.0453e-02_jprb,5.7096e-02_jprb,5.4905e-02_jprb,5.3117e-02_jprb,&
 & 5.0732e-02_jprb,4.8891e-02_jprb,7.1101e-02_jprb/)  
kao( :, 3, 8,14) = (/&
 & 9.9991e-02_jprb,8.7516e-02_jprb,7.8019e-02_jprb,7.5868e-02_jprb,7.4621e-02_jprb,7.2463e-02_jprb,&
 & 7.0304e-02_jprb,6.9569e-02_jprb,1.0104e-01_jprb/)  
kao( :, 4, 8,14) = (/&
 & 1.2410e-01_jprb,1.0864e-01_jprb,9.8489e-02_jprb,9.8564e-02_jprb,9.8094e-02_jprb,9.6833e-02_jprb,&
 & 9.6022e-02_jprb,9.6830e-02_jprb,1.4193e-01_jprb/)  
kao( :, 5, 8,14) = (/&
 & 1.4968e-01_jprb,1.3103e-01_jprb,1.2227e-01_jprb,1.2491e-01_jprb,1.2710e-01_jprb,1.2811e-01_jprb,&
 & 1.3093e-01_jprb,1.3351e-01_jprb,1.9610e-01_jprb/)  
kao( :, 1, 9,14) = (/&
 & 5.0397e-02_jprb,4.4093e-02_jprb,3.9683e-02_jprb,3.6946e-02_jprb,3.4574e-02_jprb,3.2784e-02_jprb,&
 & 3.1190e-02_jprb,2.7785e-02_jprb,4.2938e-02_jprb/)  
kao( :, 2, 9,14) = (/&
 & 6.9192e-02_jprb,6.0558e-02_jprb,5.4594e-02_jprb,5.1616e-02_jprb,4.9513e-02_jprb,4.8432e-02_jprb,&
 & 4.6308e-02_jprb,4.3232e-02_jprb,6.1150e-02_jprb/)  
kao( :, 3, 9,14) = (/&
 & 9.0684e-02_jprb,7.9364e-02_jprb,7.1928e-02_jprb,7.0062e-02_jprb,6.8840e-02_jprb,6.7293e-02_jprb,&
 & 6.5005e-02_jprb,6.2608e-02_jprb,8.8443e-02_jprb/)  
kao( :, 4, 9,14) = (/&
 & 1.1460e-01_jprb,1.0028e-01_jprb,9.2569e-02_jprb,9.2695e-02_jprb,9.1960e-02_jprb,9.0808e-02_jprb,&
 & 8.8903e-02_jprb,8.7875e-02_jprb,1.2618e-01_jprb/)  
kao( :, 5, 9,14) = (/&
 & 1.4029e-01_jprb,1.2278e-01_jprb,1.1658e-01_jprb,1.1927e-01_jprb,1.2033e-01_jprb,1.2086e-01_jprb,&
 & 1.2101e-01_jprb,1.2214e-01_jprb,1.7683e-01_jprb/)  
kao( :, 1,10,14) = (/&
 & 4.3717e-02_jprb,3.8278e-02_jprb,3.5080e-02_jprb,3.2701e-02_jprb,3.0716e-02_jprb,2.9342e-02_jprb,&
 & 2.7684e-02_jprb,2.4470e-02_jprb,2.2009e-01_jprb/)  
kao( :, 2,10,14) = (/&
 & 6.1476e-02_jprb,5.3866e-02_jprb,4.9319e-02_jprb,4.6960e-02_jprb,4.5259e-02_jprb,4.4478e-02_jprb,&
 & 4.2577e-02_jprb,3.9251e-02_jprb,2.1963e-01_jprb/)  
kao( :, 3,10,14) = (/&
 & 8.2385e-02_jprb,7.2234e-02_jprb,6.6445e-02_jprb,6.4962e-02_jprb,6.4371e-02_jprb,6.3180e-02_jprb,&
 & 6.0931e-02_jprb,5.7438e-02_jprb,2.2242e-01_jprb/)  
kao( :, 4,10,14) = (/&
 & 1.0599e-01_jprb,9.3000e-02_jprb,8.7065e-02_jprb,8.7339e-02_jprb,8.7286e-02_jprb,8.6396e-02_jprb,&
 & 8.4334e-02_jprb,8.1297e-02_jprb,2.2730e-01_jprb/)  
kao( :, 5,10,14) = (/&
 & 1.3194e-01_jprb,1.1580e-01_jprb,1.1124e-01_jprb,1.1411e-01_jprb,1.1533e-01_jprb,1.1612e-01_jprb,&
 & 1.1515e-01_jprb,1.1414e-01_jprb,2.3906e-01_jprb/)  
kao( :, 1,11,14) = (/&
 & 4.4414e-02_jprb,3.9124e-02_jprb,3.6276e-02_jprb,3.4192e-02_jprb,3.2709e-02_jprb,3.1757e-02_jprb,&
 & 3.0272e-02_jprb,2.7274e-02_jprb,6.0923e-01_jprb/)  
kao( :, 2,11,14) = (/&
 & 6.2792e-02_jprb,5.5349e-02_jprb,5.1175e-02_jprb,4.9442e-02_jprb,4.8780e-02_jprb,4.8068e-02_jprb,&
 & 4.6106e-02_jprb,4.2789e-02_jprb,6.0862e-01_jprb/)  
kao( :, 3,11,14) = (/&
 & 8.4498e-02_jprb,7.4522e-02_jprb,6.9553e-02_jprb,6.8963e-02_jprb,6.9106e-02_jprb,6.8253e-02_jprb,&
 & 6.6044e-02_jprb,6.2338e-02_jprb,6.0545e-01_jprb/)  
kao( :, 4,11,14) = (/&
 & 1.0929e-01_jprb,9.6406e-02_jprb,9.1543e-02_jprb,9.3189e-02_jprb,9.3647e-02_jprb,9.3574e-02_jprb,&
 & 9.1735e-02_jprb,8.8253e-02_jprb,5.9922e-01_jprb/)  
kao( :, 5,11,14) = (/&
 & 1.3686e-01_jprb,1.2067e-01_jprb,1.1766e-01_jprb,1.2167e-01_jprb,1.2456e-01_jprb,1.2652e-01_jprb,&
 & 1.2561e-01_jprb,1.2397e-01_jprb,5.9856e-01_jprb/)  
kao( :, 1,12,14) = (/&
 & 4.5286e-02_jprb,4.0194e-02_jprb,3.7498e-02_jprb,3.5426e-02_jprb,3.4720e-02_jprb,3.4064e-02_jprb,&
 & 3.2556e-02_jprb,2.9605e-02_jprb,1.0899e+00_jprb/)  
kao( :, 2,12,14) = (/&
 & 6.4484e-02_jprb,5.7256e-02_jprb,5.3321e-02_jprb,5.1760e-02_jprb,5.1954e-02_jprb,5.1386e-02_jprb,&
 & 4.9166e-02_jprb,4.5588e-02_jprb,1.0909e+00_jprb/)  
kao( :, 3,12,14) = (/&
 & 8.7239e-02_jprb,7.7409e-02_jprb,7.3021e-02_jprb,7.2641e-02_jprb,7.3363e-02_jprb,7.2923e-02_jprb,&
 & 7.0510e-02_jprb,6.6538e-02_jprb,1.0837e+00_jprb/)  
kao( :, 4,12,14) = (/&
 & 1.1325e-01_jprb,1.0044e-01_jprb,9.6532e-02_jprb,9.7960e-02_jprb,9.9715e-02_jprb,1.0061e-01_jprb,&
 & 9.8953e-02_jprb,9.5070e-02_jprb,1.0714e+00_jprb/)  
kao( :, 5,12,14) = (/&
 & 1.4215e-01_jprb,1.2620e-01_jprb,1.2476e-01_jprb,1.2858e-01_jprb,1.3345e-01_jprb,1.3645e-01_jprb,&
 & 1.3637e-01_jprb,1.3374e-01_jprb,1.0563e+00_jprb/)  
kao( :, 1,13,14) = (/&
 & 4.6570e-02_jprb,4.1678e-02_jprb,3.8725e-02_jprb,3.6717e-02_jprb,3.6394e-02_jprb,3.5946e-02_jprb,&
 & 3.4376e-02_jprb,3.1454e-02_jprb,1.5895e+00_jprb/)  
kao( :, 2,13,14) = (/&
 & 6.6498e-02_jprb,5.9462e-02_jprb,5.5660e-02_jprb,5.4101e-02_jprb,5.4467e-02_jprb,5.3788e-02_jprb,&
 & 5.1648e-02_jprb,4.8046e-02_jprb,1.5849e+00_jprb/)  
kao( :, 3,13,14) = (/&
 & 9.0364e-02_jprb,8.0700e-02_jprb,7.6577e-02_jprb,7.6135e-02_jprb,7.6849e-02_jprb,7.6753e-02_jprb,&
 & 7.4630e-02_jprb,7.0420e-02_jprb,1.5698e+00_jprb/)  
kao( :, 4,13,14) = (/&
 & 1.1790e-01_jprb,1.0519e-01_jprb,1.0195e-01_jprb,1.0248e-01_jprb,1.0532e-01_jprb,1.0714e-01_jprb,&
 & 1.0603e-01_jprb,1.0171e-01_jprb,1.5492e+00_jprb/)  
kao( :, 5,13,14) = (/&
 & 1.4874e-01_jprb,1.3321e-01_jprb,1.3189e-01_jprb,1.3520e-01_jprb,1.4175e-01_jprb,1.4629e-01_jprb,&
 & 1.4735e-01_jprb,1.4395e-01_jprb,1.5228e+00_jprb/)  
kao( :, 1, 1,15) = (/&
 & 1.1131e-01_jprb,9.7434e-02_jprb,8.3539e-02_jprb,6.9673e-02_jprb,6.4542e-02_jprb,7.4907e-02_jprb,&
 & 8.0610e-02_jprb,7.4592e-02_jprb,1.2983e-01_jprb/)  
kao( :, 2, 1,15) = (/&
 & 1.2948e-01_jprb,1.1334e-01_jprb,9.7201e-02_jprb,8.1647e-02_jprb,9.0214e-02_jprb,1.0535e-01_jprb,&
 & 1.1308e-01_jprb,1.0399e-01_jprb,1.8473e-01_jprb/)  
kao( :, 3, 1,15) = (/&
 & 1.4765e-01_jprb,1.2925e-01_jprb,1.1103e-01_jprb,1.0059e-01_jprb,1.2467e-01_jprb,1.4566e-01_jprb,&
 & 1.5615e-01_jprb,1.4358e-01_jprb,2.5548e-01_jprb/)  
kao( :, 4, 1,15) = (/&
 & 1.6551e-01_jprb,1.4490e-01_jprb,1.2421e-01_jprb,1.3376e-01_jprb,1.6988e-01_jprb,1.9836e-01_jprb,&
 & 2.1296e-01_jprb,1.9754e-01_jprb,3.4830e-01_jprb/)  
kao( :, 5, 1,15) = (/&
 & 1.8295e-01_jprb,1.6015e-01_jprb,1.4430e-01_jprb,1.8250e-01_jprb,2.3252e-01_jprb,2.7304e-01_jprb,&
 & 2.9658e-01_jprb,2.7983e-01_jprb,4.7759e-01_jprb/)  
kao( :, 1, 2,15) = (/&
 & 1.2229e-01_jprb,1.0698e-01_jprb,9.1752e-02_jprb,7.6480e-02_jprb,6.8179e-02_jprb,7.6324e-02_jprb,&
 & 8.2595e-02_jprb,7.6957e-02_jprb,1.3490e-01_jprb/)  
kao( :, 2, 2,15) = (/&
 & 1.4324e-01_jprb,1.2538e-01_jprb,1.0747e-01_jprb,9.0191e-02_jprb,9.3013e-02_jprb,1.0900e-01_jprb,&
 & 1.1749e-01_jprb,1.0918e-01_jprb,1.9459e-01_jprb/)  
kao( :, 3, 2,15) = (/&
 & 1.6466e-01_jprb,1.4413e-01_jprb,1.2359e-01_jprb,1.1001e-01_jprb,1.3054e-01_jprb,1.5305e-01_jprb,&
 & 1.6497e-01_jprb,1.5263e-01_jprb,2.7373e-01_jprb/)  
kao( :, 4, 2,15) = (/&
 & 1.8622e-01_jprb,1.6296e-01_jprb,1.3975e-01_jprb,1.4019e-01_jprb,1.7799e-01_jprb,2.0816e-01_jprb,&
 & 2.2421e-01_jprb,2.0784e-01_jprb,3.7366e-01_jprb/)  
kao( :, 5, 2,15) = (/&
 & 2.0755e-01_jprb,1.8167e-01_jprb,1.5934e-01_jprb,1.9033e-01_jprb,2.4247e-01_jprb,2.8472e-01_jprb,&
 & 3.0675e-01_jprb,2.8798e-01_jprb,5.0930e-01_jprb/)  
kao( :, 1, 3,15) = (/&
 & 1.2835e-01_jprb,1.1233e-01_jprb,9.6332e-02_jprb,8.0294e-02_jprb,6.8892e-02_jprb,7.2388e-02_jprb,&
 & 7.7841e-02_jprb,7.2996e-02_jprb,1.3009e-01_jprb/)  
kao( :, 2, 3,15) = (/&
 & 1.5296e-01_jprb,1.3385e-01_jprb,1.1480e-01_jprb,9.5678e-02_jprb,9.1260e-02_jprb,1.0384e-01_jprb,&
 & 1.1265e-01_jprb,1.0600e-01_jprb,1.8774e-01_jprb/)  
kao( :, 3, 3,15) = (/&
 & 1.7841e-01_jprb,1.5614e-01_jprb,1.3387e-01_jprb,1.1551e-01_jprb,1.2609e-01_jprb,1.4839e-01_jprb,&
 & 1.6074e-01_jprb,1.4978e-01_jprb,2.6916e-01_jprb/)  
kao( :, 4, 3,15) = (/&
 & 2.0421e-01_jprb,1.7872e-01_jprb,1.5328e-01_jprb,1.4514e-01_jprb,1.7532e-01_jprb,2.0570e-01_jprb,&
 & 2.2217e-01_jprb,2.0725e-01_jprb,3.7502e-01_jprb/)  
kao( :, 5, 3,15) = (/&
 & 2.2993e-01_jprb,2.0124e-01_jprb,1.7291e-01_jprb,1.8782e-01_jprb,2.3935e-01_jprb,2.8099e-01_jprb,&
 & 3.0349e-01_jprb,2.8229e-01_jprb,5.1274e-01_jprb/)  
kao( :, 1, 4,15) = (/&
 & 1.3220e-01_jprb,1.1572e-01_jprb,9.9179e-02_jprb,8.2676e-02_jprb,6.8587e-02_jprb,6.9929e-02_jprb,&
 & 7.4555e-02_jprb,6.8313e-02_jprb,1.2618e-01_jprb/)  
kao( :, 2, 4,15) = (/&
 & 1.6060e-01_jprb,1.4053e-01_jprb,1.2046e-01_jprb,1.0042e-01_jprb,9.1232e-02_jprb,9.6578e-02_jprb,&
 & 1.0443e-01_jprb,9.9068e-02_jprb,1.7466e-01_jprb/)  
kao( :, 3, 4,15) = (/&
 & 1.9027e-01_jprb,1.6651e-01_jprb,1.4275e-01_jprb,1.1998e-01_jprb,1.2056e-01_jprb,1.3873e-01_jprb,&
 & 1.5129e-01_jprb,1.4272e-01_jprb,2.5148e-01_jprb/)  
kao( :, 4, 4,15) = (/&
 & 2.2066e-01_jprb,1.9311e-01_jprb,1.6558e-01_jprb,1.4877e-01_jprb,1.6676e-01_jprb,1.9681e-01_jprb,&
 & 2.1452e-01_jprb,2.0223e-01_jprb,3.5884e-01_jprb/)  
kao( :, 5, 4,15) = (/&
 & 2.5122e-01_jprb,2.1983e-01_jprb,1.8845e-01_jprb,1.8829e-01_jprb,2.3159e-01_jprb,2.7258e-01_jprb,&
 & 2.9545e-01_jprb,2.7646e-01_jprb,4.9974e-01_jprb/)  
kao( :, 1, 5,15) = (/&
 & 1.3465e-01_jprb,1.1783e-01_jprb,1.0104e-01_jprb,8.4191e-02_jprb,7.0181e-02_jprb,6.7764e-02_jprb,&
 & 7.2349e-02_jprb,6.6738e-02_jprb,1.2182e-01_jprb/)  
kao( :, 2, 5,15) = (/&
 & 1.6678e-01_jprb,1.4597e-01_jprb,1.2512e-01_jprb,1.0428e-01_jprb,9.0356e-02_jprb,9.3548e-02_jprb,&
 & 1.0047e-01_jprb,9.3395e-02_jprb,1.6838e-01_jprb/)  
kao( :, 3, 5,15) = (/&
 & 2.0080e-01_jprb,1.7573e-01_jprb,1.5067e-01_jprb,1.2564e-01_jprb,1.1939e-01_jprb,1.2897e-01_jprb,&
 & 1.4021e-01_jprb,1.3389e-01_jprb,2.3367e-01_jprb/)  
kao( :, 4, 5,15) = (/&
 & 2.3601e-01_jprb,2.0651e-01_jprb,1.7705e-01_jprb,1.5299e-01_jprb,1.5971e-01_jprb,1.8409e-01_jprb,&
 & 2.0223e-01_jprb,1.9297e-01_jprb,3.3364e-01_jprb/)  
kao( :, 5, 5,15) = (/&
 & 2.7164e-01_jprb,2.3767e-01_jprb,2.0377e-01_jprb,1.9351e-01_jprb,2.2099e-01_jprb,2.6145e-01_jprb,&
 & 2.8569e-01_jprb,2.7068e-01_jprb,4.7598e-01_jprb/)  
kao( :, 1, 6,15) = (/&
 & 1.3406e-01_jprb,1.1731e-01_jprb,1.0056e-01_jprb,8.3806e-02_jprb,7.0762e-02_jprb,6.6238e-02_jprb,&
 & 6.8971e-02_jprb,6.4722e-02_jprb,1.1369e-01_jprb/)  
kao( :, 2, 6,15) = (/&
 & 1.6963e-01_jprb,1.4845e-01_jprb,1.2729e-01_jprb,1.0606e-01_jprb,9.0231e-02_jprb,9.0723e-02_jprb,&
 & 9.7199e-02_jprb,9.0437e-02_jprb,1.6138e-01_jprb/)  
kao( :, 3, 6,15) = (/&
 & 2.0786e-01_jprb,1.8191e-01_jprb,1.5592e-01_jprb,1.2995e-01_jprb,1.1861e-01_jprb,1.2279e-01_jprb,&
 & 1.3287e-01_jprb,1.2524e-01_jprb,2.2069e-01_jprb/)  
kao( :, 4, 6,15) = (/&
 & 2.4779e-01_jprb,2.1681e-01_jprb,1.8585e-01_jprb,1.5823e-01_jprb,1.5558e-01_jprb,1.7012e-01_jprb,&
 & 1.8594e-01_jprb,1.7956e-01_jprb,3.0607e-01_jprb/)  
kao( :, 5, 6,15) = (/&
 & 2.8850e-01_jprb,2.5250e-01_jprb,2.1644e-01_jprb,1.9593e-01_jprb,2.0861e-01_jprb,2.4203e-01_jprb,&
 & 2.6660e-01_jprb,2.5670e-01_jprb,4.3563e-01_jprb/)  
kao( :, 1, 7,15) = (/&
 & 1.3101e-01_jprb,1.1464e-01_jprb,9.8272e-02_jprb,8.1907e-02_jprb,7.0350e-02_jprb,6.5243e-02_jprb,&
 & 6.4994e-02_jprb,6.2397e-02_jprb,1.0427e-01_jprb/)  
kao( :, 2, 7,15) = (/&
 & 1.6960e-01_jprb,1.4841e-01_jprb,1.2720e-01_jprb,1.0602e-01_jprb,9.1007e-02_jprb,8.8046e-02_jprb,&
 & 9.1985e-02_jprb,8.6734e-02_jprb,1.5008e-01_jprb/)  
kao( :, 3, 7,15) = (/&
 & 2.1159e-01_jprb,1.8512e-01_jprb,1.5869e-01_jprb,1.3227e-01_jprb,1.1799e-01_jprb,1.2016e-01_jprb,&
 & 1.2848e-01_jprb,1.2123e-01_jprb,2.0928e-01_jprb/)  
kao( :, 4, 7,15) = (/&
 & 2.5591e-01_jprb,2.2393e-01_jprb,1.9196e-01_jprb,1.6246e-01_jprb,1.5474e-01_jprb,1.6150e-01_jprb,&
 & 1.7579e-01_jprb,1.6710e-01_jprb,2.8812e-01_jprb/)  
kao( :, 5, 7,15) = (/&
 & 3.0213e-01_jprb,2.6429e-01_jprb,2.2656e-01_jprb,2.0075e-01_jprb,2.0206e-01_jprb,2.2299e-01_jprb,&
 & 2.4482e-01_jprb,2.3852e-01_jprb,4.0014e-01_jprb/)  
kao( :, 1, 8,15) = (/&
 & 1.2571e-01_jprb,1.1002e-01_jprb,9.4301e-02_jprb,7.8660e-02_jprb,6.9028e-02_jprb,6.3512e-02_jprb,&
 & 6.0386e-02_jprb,5.9283e-02_jprb,9.4594e-02_jprb/)  
kao( :, 2, 8,15) = (/&
 & 1.6658e-01_jprb,1.4578e-01_jprb,1.2499e-01_jprb,1.0438e-01_jprb,9.1618e-02_jprb,8.5835e-02_jprb,&
 & 8.6312e-02_jprb,8.2954e-02_jprb,1.3781e-01_jprb/)  
kao( :, 3, 8,15) = (/&
 & 2.1185e-01_jprb,1.8540e-01_jprb,1.5894e-01_jprb,1.3292e-01_jprb,1.1859e-01_jprb,1.1793e-01_jprb,&
 & 1.2293e-01_jprb,1.1767e-01_jprb,1.9732e-01_jprb/)  
kao( :, 4, 8,15) = (/&
 & 2.6124e-01_jprb,2.2860e-01_jprb,1.9595e-01_jprb,1.6484e-01_jprb,1.5535e-01_jprb,1.5770e-01_jprb,&
 & 1.6881e-01_jprb,1.6159e-01_jprb,2.7186e-01_jprb/)  
kao( :, 5, 8,15) = (/&
 & 3.1377e-01_jprb,2.7455e-01_jprb,2.3536e-01_jprb,2.0526e-01_jprb,2.0139e-01_jprb,2.1210e-01_jprb,&
 & 2.3209e-01_jprb,2.2418e-01_jprb,3.7448e-01_jprb/)  
kao( :, 1, 9,15) = (/&
 & 1.1779e-01_jprb,1.0307e-01_jprb,8.8332e-02_jprb,7.4504e-02_jprb,6.6446e-02_jprb,6.0468e-02_jprb,&
 & 5.6136e-02_jprb,5.4947e-02_jprb,8.6169e-02_jprb/)  
kao( :, 2, 9,15) = (/&
 & 1.6035e-01_jprb,1.4031e-01_jprb,1.2024e-01_jprb,1.0163e-01_jprb,9.0617e-02_jprb,8.2714e-02_jprb,&
 & 7.9922e-02_jprb,7.8110e-02_jprb,1.2654e-01_jprb/)  
kao( :, 3, 9,15) = (/&
 & 2.0927e-01_jprb,1.8312e-01_jprb,1.5698e-01_jprb,1.3222e-01_jprb,1.1873e-01_jprb,1.1424e-01_jprb,&
 & 1.1454e-01_jprb,1.1174e-01_jprb,1.8302e-01_jprb/)  
kao( :, 4, 9,15) = (/&
 & 2.6349e-01_jprb,2.3054e-01_jprb,1.9763e-01_jprb,1.6626e-01_jprb,1.5598e-01_jprb,1.5598e-01_jprb,&
 & 1.6166e-01_jprb,1.5736e-01_jprb,2.5852e-01_jprb/)  
kao( :, 5, 9,15) = (/&
 & 3.2165e-01_jprb,2.8148e-01_jprb,2.4130e-01_jprb,2.0798e-01_jprb,2.0349e-01_jprb,2.0671e-01_jprb,&
 & 2.2142e-01_jprb,2.1528e-01_jprb,3.5292e-01_jprb/)  
kao( :, 1,10,15) = (/&
 & 1.1095e-01_jprb,9.7087e-02_jprb,8.3232e-02_jprb,7.1375e-02_jprb,6.4431e-02_jprb,5.8222e-02_jprb,&
 & 5.3438e-02_jprb,5.1856e-02_jprb,2.8234e-01_jprb/)  
kao( :, 2,10,15) = (/&
 & 1.5568e-01_jprb,1.3623e-01_jprb,1.1675e-01_jprb,9.9778e-02_jprb,9.0053e-02_jprb,8.1186e-02_jprb,&
 & 7.6199e-02_jprb,7.4185e-02_jprb,2.7084e-01_jprb/)  

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


SUBROUTINE part11

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


kao( :, 3,10,15) = (/&
 & 2.0787e-01_jprb,1.8189e-01_jprb,1.5590e-01_jprb,1.3290e-01_jprb,1.2001e-01_jprb,1.1270e-01_jprb,&
 & 1.0975e-01_jprb,1.0759e-01_jprb,2.7158e-01_jprb/)  
kao( :, 4,10,15) = (/&
 & 2.6636e-01_jprb,2.3306e-01_jprb,1.9979e-01_jprb,1.7021e-01_jprb,1.5900e-01_jprb,1.5510e-01_jprb,&
 & 1.5611e-01_jprb,1.5403e-01_jprb,2.9598e-01_jprb/)  
kao( :, 5,10,15) = (/&
 & 3.2972e-01_jprb,2.8850e-01_jprb,2.4729e-01_jprb,2.1458e-01_jprb,2.0828e-01_jprb,2.0718e-01_jprb,&
 & 2.1605e-01_jprb,2.1269e-01_jprb,3.5425e-01_jprb/)  
kao( :, 1,11,15) = (/&
 & 1.2309e-01_jprb,1.0770e-01_jprb,9.2318e-02_jprb,8.0169e-02_jprb,7.2987e-02_jprb,6.5556e-02_jprb,&
 & 5.9599e-02_jprb,5.7207e-02_jprb,7.8086e-01_jprb/)  
kao( :, 2,11,15) = (/&
 & 1.7300e-01_jprb,1.5138e-01_jprb,1.2976e-01_jprb,1.1252e-01_jprb,1.0172e-01_jprb,9.2390e-02_jprb,&
 & 8.6481e-02_jprb,8.3441e-02_jprb,7.5756e-01_jprb/)  
kao( :, 3,11,15) = (/&
 & 2.3096e-01_jprb,2.0210e-01_jprb,1.7324e-01_jprb,1.5024e-01_jprb,1.3705e-01_jprb,1.2915e-01_jprb,&
 & 1.2474e-01_jprb,1.2191e-01_jprb,7.4457e-01_jprb/)  
kao( :, 4,11,15) = (/&
 & 2.9558e-01_jprb,2.5867e-01_jprb,2.2168e-01_jprb,1.9321e-01_jprb,1.8253e-01_jprb,1.7759e-01_jprb,&
 & 1.7734e-01_jprb,1.7484e-01_jprb,7.3821e-01_jprb/)  
kao( :, 5,11,15) = (/&
 & 3.6617e-01_jprb,3.2039e-01_jprb,2.7464e-01_jprb,2.4544e-01_jprb,2.3942e-01_jprb,2.3664e-01_jprb,&
 & 2.4480e-01_jprb,2.4186e-01_jprb,7.3136e-01_jprb/)  
kao( :, 1,12,15) = (/&
 & 1.3535e-01_jprb,1.1843e-01_jprb,1.0165e-01_jprb,8.9837e-02_jprb,8.1690e-02_jprb,7.3571e-02_jprb,&
 & 6.6791e-02_jprb,6.3661e-02_jprb,1.3757e+00_jprb/)  
kao( :, 2,12,15) = (/&
 & 1.8999e-01_jprb,1.6623e-01_jprb,1.4287e-01_jprb,1.2620e-01_jprb,1.1425e-01_jprb,1.0484e-01_jprb,&
 & 9.8183e-02_jprb,9.4523e-02_jprb,1.3459e+00_jprb/)  
kao( :, 3,12,15) = (/&
 & 2.5368e-01_jprb,2.2195e-01_jprb,1.9057e-01_jprb,1.6840e-01_jprb,1.5584e-01_jprb,1.4733e-01_jprb,&
 & 1.4186e-01_jprb,1.3807e-01_jprb,1.3315e+00_jprb/)  
kao( :, 4,12,15) = (/&
 & 3.2577e-01_jprb,2.8506e-01_jprb,2.4459e-01_jprb,2.1851e-01_jprb,2.0824e-01_jprb,2.0259e-01_jprb,&
 & 2.0145e-01_jprb,1.9850e-01_jprb,1.3194e+00_jprb/)  
kao( :, 5,12,15) = (/&
 & 4.0459e-01_jprb,3.5405e-01_jprb,3.0385e-01_jprb,2.7860e-01_jprb,2.7319e-01_jprb,2.7033e-01_jprb,&
 & 2.7684e-01_jprb,2.7490e-01_jprb,1.2999e+00_jprb/)  
kao( :, 1,13,15) = (/&
 & 1.4666e-01_jprb,1.2832e-01_jprb,1.1128e-01_jprb,9.9675e-02_jprb,9.0808e-02_jprb,8.2287e-02_jprb,&
 & 7.4732e-02_jprb,7.0894e-02_jprb,1.9726e+00_jprb/)  
kao( :, 2,13,15) = (/&
 & 2.0655e-01_jprb,1.8072e-01_jprb,1.5634e-01_jprb,1.3981e-01_jprb,1.2800e-01_jprb,1.1883e-01_jprb,&
 & 1.1080e-01_jprb,1.0633e-01_jprb,1.9427e+00_jprb/)  
kao( :, 3,13,15) = (/&
 & 2.7678e-01_jprb,2.4218e-01_jprb,2.0938e-01_jprb,1.8714e-01_jprb,1.7583e-01_jprb,1.6736e-01_jprb,&
 & 1.6095e-01_jprb,1.5626e-01_jprb,1.9257e+00_jprb/)  
kao( :, 4,13,15) = (/&
 & 3.5575e-01_jprb,3.1133e-01_jprb,2.6913e-01_jprb,2.4484e-01_jprb,2.3543e-01_jprb,2.2998e-01_jprb,&
 & 2.2795e-01_jprb,2.2454e-01_jprb,1.9087e+00_jprb/)  
kao( :, 5,13,15) = (/&
 & 4.4176e-01_jprb,3.8657e-01_jprb,3.3600e-01_jprb,3.1312e-01_jprb,3.0900e-01_jprb,3.0654e-01_jprb,&
 & 3.1167e-01_jprb,3.1059e-01_jprb,1.8847e+00_jprb/)  
kao( :, 1, 1,16) = (/&
 & 1.2027e-01_jprb,1.0526e-01_jprb,9.0268e-02_jprb,7.5271e-02_jprb,6.8242e-02_jprb,7.9946e-02_jprb,&
 & 8.4979e-02_jprb,7.6217e-02_jprb,1.4103e-01_jprb/)  
kao( :, 2, 1,16) = (/&
 & 1.4080e-01_jprb,1.2324e-01_jprb,1.0567e-01_jprb,8.8126e-02_jprb,9.6089e-02_jprb,1.1140e-01_jprb,&
 & 1.1849e-01_jprb,1.0627e-01_jprb,1.9684e-01_jprb/)  
kao( :, 3, 1,16) = (/&
 & 1.6158e-01_jprb,1.4144e-01_jprb,1.1993e-01_jprb,1.0577e-01_jprb,1.3446e-01_jprb,1.5713e-01_jprb,&
 & 1.6954e-01_jprb,1.5459e-01_jprb,2.8205e-01_jprb/)  
kao( :, 4, 1,16) = (/&
 & 1.8229e-01_jprb,1.5953e-01_jprb,1.3683e-01_jprb,1.5400e-01_jprb,1.9491e-01_jprb,2.2859e-01_jprb,&
 & 2.4701e-01_jprb,2.2397e-01_jprb,4.1109e-01_jprb/)  
kao( :, 5, 1,16) = (/&
 & 2.0257e-01_jprb,1.7732e-01_jprb,1.5205e-01_jprb,2.1653e-01_jprb,2.7743e-01_jprb,3.2485e-01_jprb,&
 & 3.4587e-01_jprb,3.1685e-01_jprb,5.7776e-01_jprb/)  
kao( :, 1, 2,16) = (/&
 & 1.3618e-01_jprb,1.1918e-01_jprb,1.0218e-01_jprb,8.5185e-02_jprb,7.2061e-02_jprb,8.3641e-02_jprb,&
 & 8.9007e-02_jprb,8.0776e-02_jprb,1.5158e-01_jprb/)  
kao( :, 2, 2,16) = (/&
 & 1.6091e-01_jprb,1.4083e-01_jprb,1.2073e-01_jprb,1.0065e-01_jprb,1.0215e-01_jprb,1.1864e-01_jprb,&
 & 1.2628e-01_jprb,1.1335e-01_jprb,2.1521e-01_jprb/)  
kao( :, 3, 2,16) = (/&
 & 1.8613e-01_jprb,1.6291e-01_jprb,1.3967e-01_jprb,1.1644e-01_jprb,1.3974e-01_jprb,1.6244e-01_jprb,&
 & 1.7346e-01_jprb,1.5531e-01_jprb,2.9678e-01_jprb/)  
kao( :, 4, 2,16) = (/&
 & 2.1139e-01_jprb,1.8501e-01_jprb,1.5862e-01_jprb,1.6081e-01_jprb,2.0532e-01_jprb,2.4099e-01_jprb,&
 & 2.5759e-01_jprb,2.3243e-01_jprb,4.4014e-01_jprb/)  
kao( :, 5, 2,16) = (/&
 & 2.3633e-01_jprb,2.0681e-01_jprb,1.7734e-01_jprb,2.3037e-01_jprb,2.9357e-01_jprb,3.4250e-01_jprb,&
 & 3.6944e-01_jprb,3.3497e-01_jprb,6.2683e-01_jprb/)  
kao( :, 1, 3,16) = (/&
 & 1.4816e-01_jprb,1.2967e-01_jprb,1.1115e-01_jprb,9.2659e-02_jprb,7.4159e-02_jprb,8.0583e-02_jprb,&
 & 8.5826e-02_jprb,7.7925e-02_jprb,1.4987e-01_jprb/)  
kao( :, 2, 3,16) = (/&
 & 1.7766e-01_jprb,1.5547e-01_jprb,1.3328e-01_jprb,1.1109e-01_jprb,1.0104e-01_jprb,1.1748e-01_jprb,&
 & 1.2514e-01_jprb,1.1367e-01_jprb,2.1867e-01_jprb/)  
kao( :, 3, 3,16) = (/&
 & 2.0806e-01_jprb,1.8208e-01_jprb,1.5612e-01_jprb,1.3012e-01_jprb,1.4100e-01_jprb,1.6398e-01_jprb,&
 & 1.7474e-01_jprb,1.5873e-01_jprb,3.0539e-01_jprb/)  
kao( :, 4, 3,16) = (/&
 & 2.3885e-01_jprb,2.0905e-01_jprb,1.7920e-01_jprb,1.5462e-01_jprb,1.9704e-01_jprb,2.3104e-01_jprb,&
 & 2.4836e-01_jprb,2.2742e-01_jprb,4.3187e-01_jprb/)  
kao( :, 5, 3,16) = (/&
 & 2.6947e-01_jprb,2.3583e-01_jprb,2.0218e-01_jprb,2.2565e-01_jprb,2.8814e-01_jprb,3.3769e-01_jprb,&
 & 3.6257e-01_jprb,3.3019e-01_jprb,6.3080e-01_jprb/)  
kao( :, 1, 4,16) = (/&
 & 1.5818e-01_jprb,1.3843e-01_jprb,1.1868e-01_jprb,9.8906e-02_jprb,7.9147e-02_jprb,7.4782e-02_jprb,&
 & 7.9730e-02_jprb,7.2448e-02_jprb,1.4101e-01_jprb/)  
kao( :, 2, 4,16) = (/&
 & 1.9302e-01_jprb,1.6890e-01_jprb,1.4479e-01_jprb,1.2067e-01_jprb,9.6946e-02_jprb,1.1266e-01_jprb,&
 & 1.2012e-01_jprb,1.0916e-01_jprb,2.1249e-01_jprb/)  
kao( :, 3, 4,16) = (/&
 & 2.2940e-01_jprb,2.0076e-01_jprb,1.7206e-01_jprb,1.4345e-01_jprb,1.3883e-01_jprb,1.6162e-01_jprb,&
 & 1.7237e-01_jprb,1.5669e-01_jprb,3.0501e-01_jprb/)  
kao( :, 4, 4,16) = (/&
 & 2.6665e-01_jprb,2.3335e-01_jprb,2.0002e-01_jprb,1.6674e-01_jprb,1.9115e-01_jprb,2.2258e-01_jprb,&
 & 2.3743e-01_jprb,2.1581e-01_jprb,4.2004e-01_jprb/)  
kao( :, 5, 4,16) = (/&
 & 3.0410e-01_jprb,2.6615e-01_jprb,2.2811e-01_jprb,2.1285e-01_jprb,2.7372e-01_jprb,3.2083e-01_jprb,&
 & 3.4541e-01_jprb,3.1599e-01_jprb,6.0405e-01_jprb/)  
kao( :, 1, 5,16) = (/&
 & 1.6744e-01_jprb,1.4653e-01_jprb,1.2561e-01_jprb,1.0468e-01_jprb,8.3763e-02_jprb,7.6430e-02_jprb,&
 & 8.0078e-02_jprb,7.1821e-02_jprb,1.3817e-01_jprb/)  
kao( :, 2, 5,16) = (/&
 & 2.0817e-01_jprb,1.8217e-01_jprb,1.5617e-01_jprb,1.3014e-01_jprb,1.0413e-01_jprb,1.0666e-01_jprb,&
 & 1.1380e-01_jprb,1.0350e-01_jprb,2.0245e-01_jprb/)  
kao( :, 3, 5,16) = (/&
 & 2.5135e-01_jprb,2.1998e-01_jprb,1.8857e-01_jprb,1.5714e-01_jprb,1.3525e-01_jprb,1.5761e-01_jprb,&
 & 1.6824e-01_jprb,1.5302e-01_jprb,2.9921e-01_jprb/)  
kao( :, 4, 5,16) = (/&
 & 2.9614e-01_jprb,2.5913e-01_jprb,2.2214e-01_jprb,1.8514e-01_jprb,1.9095e-01_jprb,2.2256e-01_jprb,&
 & 2.3757e-01_jprb,2.1609e-01_jprb,4.2253e-01_jprb/)  
kao( :, 5, 5,16) = (/&
 & 3.4165e-01_jprb,2.9890e-01_jprb,2.5626e-01_jprb,2.1358e-01_jprb,2.6276e-01_jprb,3.0710e-01_jprb,&
 & 3.2753e-01_jprb,2.9875e-01_jprb,5.8403e-01_jprb/)  
kao( :, 1, 6,16) = (/&
 & 1.7406e-01_jprb,1.5231e-01_jprb,1.3056e-01_jprb,1.0879e-01_jprb,8.7033e-02_jprb,7.9557e-02_jprb,&
 & 8.3495e-02_jprb,7.4970e-02_jprb,1.4461e-01_jprb/)  
kao( :, 2, 6,16) = (/&
 & 2.2115e-01_jprb,1.9353e-01_jprb,1.6587e-01_jprb,1.3825e-01_jprb,1.1058e-01_jprb,1.0079e-01_jprb,&
 & 1.0571e-01_jprb,9.5354e-02_jprb,1.8669e-01_jprb/)  
kao( :, 3, 6,16) = (/&
 & 2.7185e-01_jprb,2.3789e-01_jprb,2.0389e-01_jprb,1.6994e-01_jprb,1.3598e-01_jprb,1.4993e-01_jprb,&
 & 1.6017e-01_jprb,1.4582e-01_jprb,2.8546e-01_jprb/)  
kao( :, 4, 6,16) = (/&
 & 3.2519e-01_jprb,2.8454e-01_jprb,2.4391e-01_jprb,2.0327e-01_jprb,1.8667e-01_jprb,2.1780e-01_jprb,&
 & 2.3273e-01_jprb,2.1193e-01_jprb,4.1454e-01_jprb/)  
kao( :, 5, 6,16) = (/&
 & 3.7997e-01_jprb,3.3252e-01_jprb,2.8502e-01_jprb,2.3749e-01_jprb,2.5973e-01_jprb,3.0308e-01_jprb,&
 & 3.2386e-01_jprb,2.9502e-01_jprb,5.7680e-01_jprb/)  
kao( :, 1, 7,16) = (/&
 & 1.7875e-01_jprb,1.5642e-01_jprb,1.3408e-01_jprb,1.1175e-01_jprb,8.9415e-02_jprb,8.1831e-02_jprb,&
 & 8.6005e-02_jprb,7.7323e-02_jprb,1.4922e-01_jprb/)  
kao( :, 2, 7,16) = (/&
 & 2.3257e-01_jprb,2.0349e-01_jprb,1.7445e-01_jprb,1.4538e-01_jprb,1.1631e-01_jprb,1.0616e-01_jprb,&
 & 1.1147e-01_jprb,1.0017e-01_jprb,1.9290e-01_jprb/)  
kao( :, 3, 7,16) = (/&
 & 2.9155e-01_jprb,2.5511e-01_jprb,2.1872e-01_jprb,1.8226e-01_jprb,1.4581e-01_jprb,1.4057e-01_jprb,&
 & 1.5032e-01_jprb,1.3703e-01_jprb,2.6795e-01_jprb/)  
kao( :, 4, 7,16) = (/&
 & 3.5453e-01_jprb,3.1018e-01_jprb,2.6586e-01_jprb,2.2158e-01_jprb,1.8072e-01_jprb,2.1059e-01_jprb,&
 & 2.2528e-01_jprb,2.0539e-01_jprb,4.0134e-01_jprb/)  
kao( :, 5, 7,16) = (/&
 & 4.2001e-01_jprb,3.6750e-01_jprb,3.1500e-01_jprb,2.6252e-01_jprb,2.5742e-01_jprb,3.0072e-01_jprb,&
 & 3.2172e-01_jprb,2.9345e-01_jprb,5.7279e-01_jprb/)  
kao( :, 1, 8,16) = (/&
 & 1.8184e-01_jprb,1.5912e-01_jprb,1.3638e-01_jprb,1.1367e-01_jprb,9.0918e-02_jprb,8.3330e-02_jprb,&
 & 8.7708e-02_jprb,7.9039e-02_jprb,1.5236e-01_jprb/)  
kao( :, 2, 8,16) = (/&
 & 2.4266e-01_jprb,2.1231e-01_jprb,1.8198e-01_jprb,1.5168e-01_jprb,1.2132e-01_jprb,1.1090e-01_jprb,&
 & 1.1664e-01_jprb,1.0501e-01_jprb,2.0199e-01_jprb/)  
kao( :, 3, 8,16) = (/&
 & 3.1060e-01_jprb,2.7177e-01_jprb,2.3297e-01_jprb,1.9411e-01_jprb,1.5532e-01_jprb,1.4153e-01_jprb,&
 & 1.4874e-01_jprb,1.3387e-01_jprb,2.5753e-01_jprb/)  
kao( :, 4, 8,16) = (/&
 & 3.8422e-01_jprb,3.3618e-01_jprb,2.8820e-01_jprb,2.4017e-01_jprb,1.9212e-01_jprb,2.0191e-01_jprb,&
 & 2.1622e-01_jprb,1.9751e-01_jprb,3.8483e-01_jprb/)  
kao( :, 5, 8,16) = (/&
 & 4.6183e-01_jprb,4.0412e-01_jprb,3.4637e-01_jprb,2.8861e-01_jprb,2.5332e-01_jprb,2.9628e-01_jprb,&
 & 3.1743e-01_jprb,2.9007e-01_jprb,5.6429e-01_jprb/)  
kao( :, 1, 9,16) = (/&
 & 1.8242e-01_jprb,1.5964e-01_jprb,1.3685e-01_jprb,1.1403e-01_jprb,9.1238e-02_jprb,8.3650e-02_jprb,&
 & 8.8221e-02_jprb,7.9647e-02_jprb,1.5343e-01_jprb/)  
kao( :, 2, 9,16) = (/&
 & 2.5031e-01_jprb,2.1903e-01_jprb,1.8774e-01_jprb,1.5645e-01_jprb,1.2518e-01_jprb,1.1450e-01_jprb,&
 & 1.2069e-01_jprb,1.0894e-01_jprb,2.0909e-01_jprb/)  
kao( :, 3, 9,16) = (/&
 & 3.2780e-01_jprb,2.8681e-01_jprb,2.4582e-01_jprb,2.0484e-01_jprb,1.6390e-01_jprb,1.4947e-01_jprb,&
 & 1.5744e-01_jprb,1.4207e-01_jprb,2.7178e-01_jprb/)  
kao( :, 4, 9,16) = (/&
 & 4.1288e-01_jprb,3.6136e-01_jprb,3.0972e-01_jprb,2.5810e-01_jprb,2.0648e-01_jprb,1.9240e-01_jprb,&
 & 2.0499e-01_jprb,1.8750e-01_jprb,3.6520e-01_jprb/)  
kao( :, 5, 9,16) = (/&
 & 5.0401e-01_jprb,4.4105e-01_jprb,3.7793e-01_jprb,3.1504e-01_jprb,2.5430e-01_jprb,2.8859e-01_jprb,&
 & 3.0964e-01_jprb,2.8367e-01_jprb,5.5002e-01_jprb/)  
kao( :, 1,10,16) = (/&
 & 1.8581e-01_jprb,1.6259e-01_jprb,1.3934e-01_jprb,1.1613e-01_jprb,9.2903e-02_jprb,8.5148e-02_jprb,&
 & 9.0034e-02_jprb,8.1540e-02_jprb,3.4590e-01_jprb/)  
kao( :, 2,10,16) = (/&
 & 2.6163e-01_jprb,2.2890e-01_jprb,1.9618e-01_jprb,1.6349e-01_jprb,1.3077e-01_jprb,1.1965e-01_jprb,&
 & 1.2644e-01_jprb,1.1450e-01_jprb,3.2865e-01_jprb/)  
kao( :, 3,10,16) = (/&
 & 3.4958e-01_jprb,3.0586e-01_jprb,2.6220e-01_jprb,2.1849e-01_jprb,1.7478e-01_jprb,1.5951e-01_jprb,&
 & 1.6845e-01_jprb,1.5252e-01_jprb,3.1204e-01_jprb/)  
kao( :, 4,10,16) = (/&
 & 4.4787e-01_jprb,3.9191e-01_jprb,3.3594e-01_jprb,2.7989e-01_jprb,2.2397e-01_jprb,2.0376e-01_jprb,&
 & 2.1506e-01_jprb,1.9478e-01_jprb,3.7906e-01_jprb/)  
kao( :, 5,10,16) = (/&
 & 5.5414e-01_jprb,4.8494e-01_jprb,4.1561e-01_jprb,3.4636e-01_jprb,2.7711e-01_jprb,2.8690e-01_jprb,&
 & 3.0857e-01_jprb,2.8362e-01_jprb,5.5736e-01_jprb/)  
kao( :, 1,11,16) = (/&
 & 2.2387e-01_jprb,1.9590e-01_jprb,1.6793e-01_jprb,1.3995e-01_jprb,1.1196e-01_jprb,1.0248e-01_jprb,&
 & 1.0866e-01_jprb,9.8759e-02_jprb,9.7232e-01_jprb/)  
kao( :, 2,11,16) = (/&
 & 3.1487e-01_jprb,2.7553e-01_jprb,2.3616e-01_jprb,1.9682e-01_jprb,1.5747e-01_jprb,1.4389e-01_jprb,&
 & 1.5251e-01_jprb,1.3868e-01_jprb,9.2352e-01_jprb/)  
kao( :, 3,11,16) = (/&
 & 4.2034e-01_jprb,3.6781e-01_jprb,3.1526e-01_jprb,2.6274e-01_jprb,2.1020e-01_jprb,1.9156e-01_jprb,&
 & 2.0295e-01_jprb,1.8465e-01_jprb,8.7619e-01_jprb/)  
kao( :, 4,11,16) = (/&
 & 5.3783e-01_jprb,4.7062e-01_jprb,4.0338e-01_jprb,3.3619e-01_jprb,2.6900e-01_jprb,2.4463e-01_jprb,&
 & 2.5910e-01_jprb,2.3556e-01_jprb,8.3528e-01_jprb/)  
kao( :, 5,11,16) = (/&
 & 6.6465e-01_jprb,5.8160e-01_jprb,4.9850e-01_jprb,4.1545e-01_jprb,3.3262e-01_jprb,3.4381e-01_jprb,&
 & 3.7087e-01_jprb,3.4266e-01_jprb,8.3608e-01_jprb/)  
kao( :, 1,12,16) = (/&
 & 2.6898e-01_jprb,2.3539e-01_jprb,2.0175e-01_jprb,1.6812e-01_jprb,1.3451e-01_jprb,1.2295e-01_jprb,&
 & 1.3082e-01_jprb,1.1955e-01_jprb,1.7254e+00_jprb/)  
kao( :, 2,12,16) = (/&
 & 3.7759e-01_jprb,3.3035e-01_jprb,2.8322e-01_jprb,2.3602e-01_jprb,1.8879e-01_jprb,1.7231e-01_jprb,&
 & 1.8335e-01_jprb,1.6769e-01_jprb,1.6364e+00_jprb/)  
kao( :, 3,12,16) = (/&
 & 5.0302e-01_jprb,4.4026e-01_jprb,3.7736e-01_jprb,3.1440e-01_jprb,2.5155e-01_jprb,2.2898e-01_jprb,&
 & 2.4369e-01_jprb,2.2307e-01_jprb,1.5678e+00_jprb/)  
kao( :, 4,12,16) = (/&
 & 6.4249e-01_jprb,5.6214e-01_jprb,4.8190e-01_jprb,4.0154e-01_jprb,3.2127e-01_jprb,2.9402e-01_jprb,&
 & 3.1247e-01_jprb,2.8485e-01_jprb,1.5255e+00_jprb/)  
kao( :, 5,12,16) = (/&
 & 7.9248e-01_jprb,6.9340e-01_jprb,5.9438e-01_jprb,4.9520e-01_jprb,3.9963e-01_jprb,4.1148e-01_jprb,&
 & 4.4433e-01_jprb,4.1322e-01_jprb,1.5412e+00_jprb/)  
kao( :, 1,13,16) = (/&
 & 3.2111e-01_jprb,2.8086e-01_jprb,2.4080e-01_jprb,2.0063e-01_jprb,1.6053e-01_jprb,1.4645e-01_jprb,&
 & 1.5663e-01_jprb,1.4415e-01_jprb,2.4681e+00_jprb/)  
kao( :, 2,13,16) = (/&
 & 4.4952e-01_jprb,3.9337e-01_jprb,3.3709e-01_jprb,2.8095e-01_jprb,2.2474e-01_jprb,2.0495e-01_jprb,&
 & 2.1909e-01_jprb,2.0198e-01_jprb,2.3822e+00_jprb/)  
kao( :, 3,13,16) = (/&
 & 5.9739e-01_jprb,5.2281e-01_jprb,4.4809e-01_jprb,3.7333e-01_jprb,2.9881e-01_jprb,2.7217e-01_jprb,&
 & 2.9063e-01_jprb,2.6832e-01_jprb,2.3232e+00_jprb/)  
kao( :, 4,13,16) = (/&
 & 7.6112e-01_jprb,6.6586e-01_jprb,5.7079e-01_jprb,4.7570e-01_jprb,3.8102e-01_jprb,3.5288e-01_jprb,&
 & 3.7640e-01_jprb,3.4431e-01_jprb,2.2950e+00_jprb/)  
kao( :, 5,13,16) = (/&
 & 9.3631e-01_jprb,8.1920e-01_jprb,7.0224e-01_jprb,5.8508e-01_jprb,4.7927e-01_jprb,4.9193e-01_jprb,&
 & 5.3062e-01_jprb,4.9592e-01_jprb,2.3135e+00_jprb/)  

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

kbo( :, 1,13, 1) = (/&
 & 3.4470e-06_jprb,2.6372e-04_jprb,5.1063e-04_jprb,7.5257e-04_jprb,1.0534e-03_jprb/)  
kbo( :, 2,13, 1) = (/&
 & 4.0516e-06_jprb,3.2949e-04_jprb,6.3499e-04_jprb,9.3141e-04_jprb,1.3018e-03_jprb/)  
kbo( :, 3,13, 1) = (/&
 & 5.1108e-06_jprb,3.9538e-04_jprb,7.5778e-04_jprb,1.1060e-03_jprb,1.5459e-03_jprb/)  
kbo( :, 4,13, 1) = (/&
 & 6.7999e-06_jprb,4.6001e-04_jprb,8.7452e-04_jprb,1.2718e-03_jprb,1.7787e-03_jprb/)  
kbo( :, 5,13, 1) = (/&
 & 9.3241e-06_jprb,5.2270e-04_jprb,9.8350e-04_jprb,1.4243e-03_jprb,1.9970e-03_jprb/)  
kbo( :, 1,14, 1) = (/&
 & 2.8624e-06_jprb,2.2203e-04_jprb,4.2960e-04_jprb,6.3242e-04_jprb,8.7262e-04_jprb/)  
kbo( :, 2,14, 1) = (/&
 & 3.3872e-06_jprb,2.7597e-04_jprb,5.3199e-04_jprb,7.7931e-04_jprb,1.0726e-03_jprb/)  
kbo( :, 3,14, 1) = (/&
 & 4.3001e-06_jprb,3.2993e-04_jprb,6.3195e-04_jprb,9.2225e-04_jprb,1.2666e-03_jprb/)  
kbo( :, 4,14, 1) = (/&
 & 5.7406e-06_jprb,3.8294e-04_jprb,7.2707e-04_jprb,1.0576e-03_jprb,1.4495e-03_jprb/)  
kbo( :, 5,14, 1) = (/&
 & 7.8860e-06_jprb,4.3459e-04_jprb,8.1591e-04_jprb,1.1810e-03_jprb,1.6187e-03_jprb/)  
kbo( :, 1,15, 1) = (/&
 & 2.3825e-06_jprb,1.8697e-04_jprb,3.6183e-04_jprb,5.3195e-04_jprb,7.2587e-04_jprb/)  

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


SUBROUTINE part12

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


kbo( :, 2,15, 1) = (/&
 & 2.8419e-06_jprb,2.3121e-04_jprb,4.4556e-04_jprb,6.5240e-04_jprb,8.8767e-04_jprb/)  
kbo( :, 3,15, 1) = (/&
 & 3.6307e-06_jprb,2.7550e-04_jprb,5.2710e-04_jprb,7.6940e-04_jprb,1.0435e-03_jprb/)  
kbo( :, 4,15, 1) = (/&
 & 4.8654e-06_jprb,3.1911e-04_jprb,6.0466e-04_jprb,8.7922e-04_jprb,1.1890e-03_jprb/)  
kbo( :, 5,15, 1) = (/&
 & 6.6952e-06_jprb,3.6172e-04_jprb,6.7720e-04_jprb,9.7928e-04_jprb,1.3218e-03_jprb/)  
kbo( :, 1,16, 1) = (/&
 & 1.9858e-06_jprb,1.5742e-04_jprb,3.0462e-04_jprb,4.4743e-04_jprb,6.0679e-04_jprb/)  
kbo( :, 2,16, 1) = (/&
 & 2.3893e-06_jprb,1.9376e-04_jprb,3.7303e-04_jprb,5.4624e-04_jprb,7.3818e-04_jprb/)  
kbo( :, 3,16, 1) = (/&
 & 3.0717e-06_jprb,2.3016e-04_jprb,4.3960e-04_jprb,6.4157e-04_jprb,8.6419e-04_jprb/)  
kbo( :, 4,16, 1) = (/&
 & 4.1308e-06_jprb,2.6599e-04_jprb,5.0281e-04_jprb,7.3058e-04_jprb,9.8120e-04_jprb/)  
kbo( :, 5,16, 1) = (/&
 & 5.6927e-06_jprb,3.0109e-04_jprb,5.6202e-04_jprb,8.1155e-04_jprb,1.0872e-03_jprb/)  
kbo( :, 1,17, 1) = (/&
 & 1.6559e-06_jprb,1.3226e-04_jprb,2.5580e-04_jprb,3.7568e-04_jprb,5.0686e-04_jprb/)  
kbo( :, 2,17, 1) = (/&
 & 2.0083e-06_jprb,1.6212e-04_jprb,3.1178e-04_jprb,4.5651e-04_jprb,6.1368e-04_jprb/)  
kbo( :, 3,17, 1) = (/&
 & 2.5968e-06_jprb,1.9205e-04_jprb,3.6613e-04_jprb,5.3405e-04_jprb,7.1563e-04_jprb/)  
kbo( :, 4,17, 1) = (/&
 & 3.5047e-06_jprb,2.2153e-04_jprb,4.1782e-04_jprb,6.0641e-04_jprb,8.1002e-04_jprb/)  
kbo( :, 5,17, 1) = (/&
 & 4.8351e-06_jprb,2.5056e-04_jprb,4.6632e-04_jprb,6.7217e-04_jprb,8.9508e-04_jprb/)  
kbo( :, 1,18, 1) = (/&
 & 1.3818e-06_jprb,1.1100e-04_jprb,2.1454e-04_jprb,3.1506e-04_jprb,4.2338e-04_jprb/)  
kbo( :, 2,18, 1) = (/&
 & 1.6887e-06_jprb,1.3556e-04_jprb,2.6035e-04_jprb,3.8099e-04_jprb,5.1025e-04_jprb/)  
kbo( :, 3,18, 1) = (/&
 & 2.1957e-06_jprb,1.6016e-04_jprb,3.0479e-04_jprb,4.4417e-04_jprb,5.9284e-04_jprb/)  
kbo( :, 4,18, 1) = (/&
 & 2.9733e-06_jprb,1.8444e-04_jprb,3.4704e-04_jprb,5.0300e-04_jprb,6.6896e-04_jprb/)  
kbo( :, 5,18, 1) = (/&
 & 4.1061e-06_jprb,2.0846e-04_jprb,3.8680e-04_jprb,5.5649e-04_jprb,7.3738e-04_jprb/)  
kbo( :, 1,19, 1) = (/&
 & 1.1530e-06_jprb,9.3038e-05_jprb,1.7970e-04_jprb,2.6380e-04_jprb,3.5309e-04_jprb/)  
kbo( :, 2,19, 1) = (/&
 & 1.4193e-06_jprb,1.1326e-04_jprb,2.1722e-04_jprb,3.1768e-04_jprb,4.2371e-04_jprb/)  
kbo( :, 3,19, 1) = (/&
 & 1.8551e-06_jprb,1.3348e-04_jprb,2.5355e-04_jprb,3.6914e-04_jprb,4.9054e-04_jprb/)  
kbo( :, 4,19, 1) = (/&
 & 2.5194e-06_jprb,1.5356e-04_jprb,2.8811e-04_jprb,4.1698e-04_jprb,5.5182e-04_jprb/)  
kbo( :, 5,19, 1) = (/&
 & 3.4823e-06_jprb,1.7336e-04_jprb,3.2068e-04_jprb,4.6050e-04_jprb,6.0663e-04_jprb/)  
kbo( :, 1,20, 1) = (/&
 & 9.6514e-07_jprb,7.8220e-05_jprb,1.5093e-04_jprb,2.2146e-04_jprb,2.9562e-04_jprb/)  
kbo( :, 2,20, 1) = (/&
 & 1.1977e-06_jprb,9.4837e-05_jprb,1.8160e-04_jprb,2.6538e-04_jprb,3.5295e-04_jprb/)  
kbo( :, 3,20, 1) = (/&
 & 1.5743e-06_jprb,1.1151e-04_jprb,2.1133e-04_jprb,3.0732e-04_jprb,4.0705e-04_jprb/)  
kbo( :, 4,20, 1) = (/&
 & 2.1452e-06_jprb,1.2810e-04_jprb,2.3959e-04_jprb,3.4625e-04_jprb,4.5647e-04_jprb/)  
kbo( :, 5,20, 1) = (/&
 & 2.9673e-06_jprb,1.4434e-04_jprb,2.6631e-04_jprb,3.8162e-04_jprb,5.0047e-04_jprb/)  
kbo( :, 1,21, 1) = (/&
 & 8.0884e-07_jprb,6.5739e-05_jprb,1.2670e-04_jprb,1.8581e-04_jprb,2.4748e-04_jprb/)  
kbo( :, 2,21, 1) = (/&
 & 1.0118e-06_jprb,7.9430e-05_jprb,1.5182e-04_jprb,2.2166e-04_jprb,2.9412e-04_jprb/)  
kbo( :, 3,21, 1) = (/&
 & 1.3370e-06_jprb,9.3177e-05_jprb,1.7611e-04_jprb,2.5580e-04_jprb,3.3790e-04_jprb/)  
kbo( :, 4,21, 1) = (/&
 & 1.8276e-06_jprb,1.0684e-04_jprb,1.9928e-04_jprb,2.8745e-04_jprb,3.7772e-04_jprb/)  
kbo( :, 5,21, 1) = (/&
 & 2.5289e-06_jprb,1.2011e-04_jprb,2.2122e-04_jprb,3.1628e-04_jprb,4.1308e-04_jprb/)  
kbo( :, 1,22, 1) = (/&
 & 6.8770e-07_jprb,5.5977e-05_jprb,1.0768e-04_jprb,1.5779e-04_jprb,2.0975e-04_jprb/)  
kbo( :, 2,22, 1) = (/&
 & 8.7051e-07_jprb,6.7267e-05_jprb,1.2822e-04_jprb,1.8696e-04_jprb,2.4752e-04_jprb/)  
kbo( :, 3,22, 1) = (/&
 & 1.1593e-06_jprb,7.8612e-05_jprb,1.4804e-04_jprb,2.1465e-04_jprb,2.8275e-04_jprb/)  
kbo( :, 4,22, 1) = (/&
 & 1.5914e-06_jprb,8.9752e-05_jprb,1.6700e-04_jprb,2.4024e-04_jprb,3.1462e-04_jprb/)  
kbo( :, 5,22, 1) = (/&
 & 2.2022e-06_jprb,1.0055e-04_jprb,1.8482e-04_jprb,2.6358e-04_jprb,3.4283e-04_jprb/)  
kbo( :, 1,23, 1) = (/&
 & 5.8681e-07_jprb,4.7674e-05_jprb,9.1507e-05_jprb,1.3393e-04_jprb,1.7770e-04_jprb/)  
kbo( :, 2,23, 1) = (/&
 & 7.5149e-07_jprb,5.7003e-05_jprb,1.0829e-04_jprb,1.5767e-04_jprb,2.0825e-04_jprb/)  
kbo( :, 3,23, 1) = (/&
 & 1.0080e-06_jprb,6.6289e-05_jprb,1.2450e-04_jprb,1.8010e-04_jprb,2.3658e-04_jprb/)  
kbo( :, 4,23, 1) = (/&
 & 1.3887e-06_jprb,7.5365e-05_jprb,1.3995e-04_jprb,2.0079e-04_jprb,2.6204e-04_jprb/)  
kbo( :, 5,23, 1) = (/&
 & 1.9208e-06_jprb,8.4126e-05_jprb,1.5435e-04_jprb,2.1972e-04_jprb,2.8449e-04_jprb/)  
kbo( :, 1,24, 1) = (/&
 & 5.0292e-07_jprb,4.0632e-05_jprb,7.7788e-05_jprb,1.1370e-04_jprb,1.5053e-04_jprb/)  
kbo( :, 2,24, 1) = (/&
 & 6.5118e-07_jprb,4.8318e-05_jprb,9.1504e-05_jprb,1.3299e-04_jprb,1.7517e-04_jprb/)  
kbo( :, 3,24, 1) = (/&
 & 8.7976e-07_jprb,5.5886e-05_jprb,1.0475e-04_jprb,1.5115e-04_jprb,1.9787e-04_jprb/)  
kbo( :, 4,24, 1) = (/&
 & 1.2151e-06_jprb,6.3269e-05_jprb,1.1727e-04_jprb,1.6792e-04_jprb,2.1820e-04_jprb/)  
kbo( :, 5,24, 1) = (/&
 & 1.6790e-06_jprb,7.0361e-05_jprb,1.2886e-04_jprb,1.8317e-04_jprb,2.3599e-04_jprb/)  
kbo( :, 1,25, 1) = (/&
 & 4.3320e-07_jprb,3.4672e-05_jprb,6.6172e-05_jprb,9.6557e-05_jprb,1.2755e-04_jprb/)  
kbo( :, 2,25, 1) = (/&
 & 5.6706e-07_jprb,4.0954e-05_jprb,7.7399e-05_jprb,1.1224e-04_jprb,1.4744e-04_jprb/)  
kbo( :, 3,25, 1) = (/&
 & 7.7121e-07_jprb,4.7130e-05_jprb,8.8173e-05_jprb,1.2695e-04_jprb,1.6559e-04_jprb/)  
kbo( :, 4,25, 1) = (/&
 & 1.0669e-06_jprb,5.3117e-05_jprb,9.8264e-05_jprb,1.4052e-04_jprb,1.8177e-04_jprb/)  
kbo( :, 5,25, 1) = (/&
 & 1.4722e-06_jprb,5.8854e-05_jprb,1.0754e-04_jprb,1.5271e-04_jprb,1.9584e-04_jprb/)  
kbo( :, 1,26, 1) = (/&
 & 3.7607e-07_jprb,2.9637e-05_jprb,5.6418e-05_jprb,8.2160e-05_jprb,1.0828e-04_jprb/)  
kbo( :, 2,26, 1) = (/&
 & 4.9757e-07_jprb,3.4761e-05_jprb,6.5581e-05_jprb,9.4869e-05_jprb,1.2424e-04_jprb/)  
kbo( :, 3,26, 1) = (/&
 & 6.8088e-07_jprb,3.9782e-05_jprb,7.4280e-05_jprb,1.0678e-04_jprb,1.3874e-04_jprb/)  
kbo( :, 4,26, 1) = (/&
 & 9.4259e-07_jprb,4.4634e-05_jprb,8.2385e-05_jprb,1.1768e-04_jprb,1.5157e-04_jprb/)  
kbo( :, 5,26, 1) = (/&
 & 1.2981e-06_jprb,4.9274e-05_jprb,8.9787e-05_jprb,1.2735e-04_jprb,1.6265e-04_jprb/)  
kbo( :, 1,27, 1) = (/&
 & 3.2783e-07_jprb,2.5292e-05_jprb,4.8063e-05_jprb,6.9840e-05_jprb,9.1852e-05_jprb/)  
kbo( :, 2,27, 1) = (/&
 & 4.3792e-07_jprb,2.9476e-05_jprb,5.5497e-05_jprb,8.0152e-05_jprb,1.0466e-04_jprb/)  
kbo( :, 3,27, 1) = (/&
 & 6.0227e-07_jprb,3.3553e-05_jprb,6.2514e-05_jprb,8.9762e-05_jprb,1.1621e-04_jprb/)  
kbo( :, 4,27, 1) = (/&
 & 8.3354e-07_jprb,3.7479e-05_jprb,6.9000e-05_jprb,9.8462e-05_jprb,1.2640e-04_jprb/)  
kbo( :, 5,27, 1) = (/&
 & 1.1448e-06_jprb,4.1239e-05_jprb,7.4917e-05_jprb,1.0612e-04_jprb,1.3514e-04_jprb/)  
kbo( :, 1,28, 1) = (/&
 & 2.8669e-07_jprb,2.1556e-05_jprb,4.0892e-05_jprb,5.9304e-05_jprb,7.7833e-05_jprb/)  
kbo( :, 2,28, 1) = (/&
 & 3.8635e-07_jprb,2.4960e-05_jprb,4.6902e-05_jprb,6.7670e-05_jprb,8.8103e-05_jprb/)  
kbo( :, 3,28, 1) = (/&
 & 5.3330e-07_jprb,2.8270e-05_jprb,5.2542e-05_jprb,7.5364e-05_jprb,9.7308e-05_jprb/)  
kbo( :, 4,28, 1) = (/&
 & 7.3734e-07_jprb,3.1446e-05_jprb,5.7727e-05_jprb,8.2286e-05_jprb,1.0537e-04_jprb/)  
kbo( :, 5,28, 1) = (/&
 & 1.0096e-06_jprb,3.4495e-05_jprb,6.2455e-05_jprb,8.8340e-05_jprb,1.1227e-04_jprb/)  
kbo( :, 1,29, 1) = (/&
 & 2.5201e-07_jprb,1.8361e-05_jprb,3.4763e-05_jprb,5.0351e-05_jprb,6.5987e-05_jprb/)  
kbo( :, 2,29, 1) = (/&
 & 3.4236e-07_jprb,2.1129e-05_jprb,3.9617e-05_jprb,5.7095e-05_jprb,7.4216e-05_jprb/)  
kbo( :, 3,29, 1) = (/&
 & 4.7361e-07_jprb,2.3813e-05_jprb,4.4138e-05_jprb,6.3255e-05_jprb,8.1563e-05_jprb/)  
kbo( :, 4,29, 1) = (/&
 & 6.5380e-07_jprb,2.6387e-05_jprb,4.8286e-05_jprb,6.8730e-05_jprb,8.7959e-05_jprb/)  
kbo( :, 5,29, 1) = (/&
 & 8.9193e-07_jprb,2.8857e-05_jprb,5.2062e-05_jprb,7.3497e-05_jprb,9.3411e-05_jprb/)  
kbo( :, 1,30, 1) = (/&
 & 2.2221e-07_jprb,1.5617e-05_jprb,2.9506e-05_jprb,4.2701e-05_jprb,5.5901e-05_jprb/)  
kbo( :, 2,30, 1) = (/&
 & 3.0397e-07_jprb,1.7865e-05_jprb,3.3414e-05_jprb,4.8107e-05_jprb,6.2491e-05_jprb/)  
kbo( :, 3,30, 1) = (/&
 & 4.2084e-07_jprb,2.0038e-05_jprb,3.7035e-05_jprb,5.3015e-05_jprb,6.8354e-05_jprb/)  
kbo( :, 4,30, 1) = (/&
 & 5.7974e-07_jprb,2.2125e-05_jprb,4.0351e-05_jprb,5.7341e-05_jprb,7.3435e-05_jprb/)  
kbo( :, 5,30, 1) = (/&
 & 7.8765e-07_jprb,2.4127e-05_jprb,4.3366e-05_jprb,6.1092e-05_jprb,7.7733e-05_jprb/)  
kbo( :, 1,31, 1) = (/&
 & 1.9681e-07_jprb,1.3270e-05_jprb,2.5018e-05_jprb,3.6169e-05_jprb,4.7371e-05_jprb/)  
kbo( :, 2,31, 1) = (/&
 & 2.7071e-07_jprb,1.5097e-05_jprb,2.8159e-05_jprb,4.0500e-05_jprb,5.2659e-05_jprb/)  
kbo( :, 3,31, 1) = (/&
 & 3.7475e-07_jprb,1.6858e-05_jprb,3.1057e-05_jprb,4.4392e-05_jprb,5.7349e-05_jprb/)  
kbo( :, 4,31, 1) = (/&
 & 5.1477e-07_jprb,1.8547e-05_jprb,3.3705e-05_jprb,4.7805e-05_jprb,6.1389e-05_jprb/)  
kbo( :, 5,31, 1) = (/&
 & 6.9625e-07_jprb,2.0170e-05_jprb,3.6118e-05_jprb,5.0758e-05_jprb,6.4797e-05_jprb/)  
kbo( :, 1,32, 1) = (/&
 & 1.7485e-07_jprb,1.1265e-05_jprb,2.1186e-05_jprb,3.0600e-05_jprb,4.0119e-05_jprb/)  
kbo( :, 2,32, 1) = (/&
 & 2.4148e-07_jprb,1.2747e-05_jprb,2.3704e-05_jprb,3.4052e-05_jprb,4.4364e-05_jprb/)  
kbo( :, 3,32, 1) = (/&
 & 3.3391e-07_jprb,1.4173e-05_jprb,2.6023e-05_jprb,3.7134e-05_jprb,4.8107e-05_jprb/)  
kbo( :, 4,32, 1) = (/&
 & 4.5712e-07_jprb,1.5544e-05_jprb,2.8139e-05_jprb,3.9822e-05_jprb,5.1320e-05_jprb/)  
kbo( :, 5,32, 1) = (/&
 & 6.1526e-07_jprb,1.6857e-05_jprb,3.0064e-05_jprb,4.2147e-05_jprb,5.4009e-05_jprb/)  
kbo( :, 1,33, 1) = (/&
 & 1.5570e-07_jprb,9.5475e-06_jprb,1.7911e-05_jprb,2.5842e-05_jprb,3.3957e-05_jprb/)  
kbo( :, 2,33, 1) = (/&
 & 2.1549e-07_jprb,1.0751e-05_jprb,1.9931e-05_jprb,2.8592e-05_jprb,3.7370e-05_jprb/)  
kbo( :, 3,33, 1) = (/&
 & 2.9746e-07_jprb,1.1906e-05_jprb,2.1783e-05_jprb,3.1027e-05_jprb,4.0353e-05_jprb/)  
kbo( :, 4,33, 1) = (/&
 & 4.0565e-07_jprb,1.3019e-05_jprb,2.3473e-05_jprb,3.3146e-05_jprb,4.2910e-05_jprb/)  
kbo( :, 5,33, 1) = (/&
 & 5.4308e-07_jprb,1.4082e-05_jprb,2.5010e-05_jprb,3.4973e-05_jprb,4.5040e-05_jprb/)  
kbo( :, 1,34, 1) = (/&
 & 1.3721e-07_jprb,8.0465e-06_jprb,1.5060e-05_jprb,2.1707e-05_jprb,2.8588e-05_jprb/)  
kbo( :, 2,34, 1) = (/&
 & 1.9002e-07_jprb,9.0232e-06_jprb,1.6681e-05_jprb,2.3900e-05_jprb,3.1327e-05_jprb/)  
kbo( :, 3,34, 1) = (/&
 & 2.6180e-07_jprb,9.9630e-06_jprb,1.8168e-05_jprb,2.5833e-05_jprb,3.3720e-05_jprb/)  
kbo( :, 4,34, 1) = (/&
 & 3.5566e-07_jprb,1.0865e-05_jprb,1.9523e-05_jprb,2.7511e-05_jprb,3.5767e-05_jprb/)  
kbo( :, 5,34, 1) = (/&
 & 4.7391e-07_jprb,1.1726e-05_jprb,2.0751e-05_jprb,2.8954e-05_jprb,3.7468e-05_jprb/)  
kbo( :, 1,35, 1) = (/&
 & 1.1723e-07_jprb,6.6964e-06_jprb,1.2516e-05_jprb,1.8031e-05_jprb,2.3821e-05_jprb/)  
kbo( :, 2,35, 1) = (/&
 & 1.6235e-07_jprb,7.4927e-06_jprb,1.3829e-05_jprb,1.9800e-05_jprb,2.6051e-05_jprb/)  
kbo( :, 3,35, 1) = (/&
 & 2.2335e-07_jprb,8.2568e-06_jprb,1.5029e-05_jprb,2.1350e-05_jprb,2.8000e-05_jprb/)  
kbo( :, 4,35, 1) = (/&
 & 3.0275e-07_jprb,8.9930e-06_jprb,1.6127e-05_jprb,2.2699e-05_jprb,2.9671e-05_jprb/)  
kbo( :, 5,35, 1) = (/&
 & 4.0236e-07_jprb,9.6965e-06_jprb,1.7121e-05_jprb,2.3858e-05_jprb,3.1064e-05_jprb/)  
kbo( :, 1,36, 1) = (/&
 & 9.6662e-08_jprb,5.4982e-06_jprb,1.0275e-05_jprb,1.4804e-05_jprb,1.9630e-05_jprb/)  
kbo( :, 2,36, 1) = (/&
 & 1.3386e-07_jprb,6.1501e-06_jprb,1.1348e-05_jprb,1.6247e-05_jprb,2.1474e-05_jprb/)  
kbo( :, 3,36, 1) = (/&
 & 1.8410e-07_jprb,6.7756e-06_jprb,1.2329e-05_jprb,1.7513e-05_jprb,2.3090e-05_jprb/)  
kbo( :, 4,36, 1) = (/&
 & 2.4947e-07_jprb,7.3775e-06_jprb,1.3225e-05_jprb,1.8612e-05_jprb,2.4479e-05_jprb/)  
kbo( :, 5,36, 1) = (/&
 & 3.3138e-07_jprb,7.9539e-06_jprb,1.4038e-05_jprb,1.9559e-05_jprb,2.5645e-05_jprb/)  
kbo( :, 1,37, 1) = (/&
 & 7.5833e-08_jprb,4.4319e-06_jprb,8.2961e-06_jprb,1.1965e-05_jprb,1.5922e-05_jprb/)  
kbo( :, 2,37, 1) = (/&
 & 1.0502e-07_jprb,4.9674e-06_jprb,9.1830e-06_jprb,1.3164e-05_jprb,1.7469e-05_jprb/)  
kbo( :, 3,37, 1) = (/&
 & 1.4465e-07_jprb,5.4834e-06_jprb,9.9967e-06_jprb,1.4218e-05_jprb,1.8834e-05_jprb/)  
kbo( :, 4,37, 1) = (/&
 & 1.9645e-07_jprb,5.9788e-06_jprb,1.0738e-05_jprb,1.5133e-05_jprb,2.0012e-05_jprb/)  
kbo( :, 5,37, 1) = (/&
 & 2.6166e-07_jprb,6.4529e-06_jprb,1.1414e-05_jprb,1.5924e-05_jprb,2.1010e-05_jprb/)  
kbo( :, 1,38, 1) = (/&
 & 5.9339e-08_jprb,3.5670e-06_jprb,6.6893e-06_jprb,9.6566e-06_jprb,1.2902e-05_jprb/)  
kbo( :, 2,38, 1) = (/&
 & 8.2155e-08_jprb,4.0080e-06_jprb,7.4233e-06_jprb,1.0653e-05_jprb,1.4205e-05_jprb/)  
kbo( :, 3,38, 1) = (/&
 & 1.1331e-07_jprb,4.4325e-06_jprb,8.0980e-06_jprb,1.1532e-05_jprb,1.5359e-05_jprb/)  
kbo( :, 4,38, 1) = (/&
 & 1.5427e-07_jprb,4.8410e-06_jprb,8.7132e-06_jprb,1.2297e-05_jprb,1.6364e-05_jprb/)  
kbo( :, 5,38, 1) = (/&
 & 2.0603e-07_jprb,5.2310e-06_jprb,9.2738e-06_jprb,1.2957e-05_jprb,1.7220e-05_jprb/)  
kbo( :, 1,39, 1) = (/&
 & 4.6457e-08_jprb,2.8706e-06_jprb,5.3922e-06_jprb,7.7916e-06_jprb,1.0463e-05_jprb/)  
kbo( :, 2,39, 1) = (/&
 & 6.4280e-08_jprb,3.2335e-06_jprb,5.9995e-06_jprb,8.6193e-06_jprb,1.1561e-05_jprb/)  
kbo( :, 3,39, 1) = (/&
 & 8.8753e-08_jprb,3.5826e-06_jprb,6.5580e-06_jprb,9.3509e-06_jprb,1.2539e-05_jprb/)  
kbo( :, 4,39, 1) = (/&
 & 1.2109e-07_jprb,3.9186e-06_jprb,7.0688e-06_jprb,9.9899e-06_jprb,1.3398e-05_jprb/)  
kbo( :, 5,39, 1) = (/&
 & 1.6221e-07_jprb,4.2407e-06_jprb,7.5350e-06_jprb,1.0543e-05_jprb,1.4137e-05_jprb/)  
kbo( :, 1,40, 1) = (/&
 & 3.5213e-08_jprb,2.2779e-06_jprb,4.2906e-06_jprb,6.2087e-06_jprb,8.3621e-06_jprb/)  
kbo( :, 2,40, 1) = (/&
 & 4.8621e-08_jprb,2.5769e-06_jprb,4.7967e-06_jprb,6.9026e-06_jprb,9.2884e-06_jprb/)  
kbo( :, 3,40, 1) = (/&
 & 6.7228e-08_jprb,2.8656e-06_jprb,5.2643e-06_jprb,7.5217e-06_jprb,1.0122e-05_jprb/)  
kbo( :, 4,40, 1) = (/&
 & 9.2051e-08_jprb,3.1437e-06_jprb,5.6919e-06_jprb,8.0632e-06_jprb,1.0858e-05_jprb/)  
kbo( :, 5,40, 1) = (/&
 & 1.2392e-07_jprb,3.4099e-06_jprb,6.0819e-06_jprb,8.5318e-06_jprb,1.1495e-05_jprb/)  
kbo( :, 1,41, 1) = (/&
 & 2.6618e-08_jprb,1.8019e-06_jprb,3.4036e-06_jprb,4.9321e-06_jprb,6.6614e-06_jprb/)  
kbo( :, 2,41, 1) = (/&
 & 3.6608e-08_jprb,2.0487e-06_jprb,3.8262e-06_jprb,5.5154e-06_jprb,7.4437e-06_jprb/)  
kbo( :, 3,41, 1) = (/&
 & 5.0672e-08_jprb,2.2872e-06_jprb,4.2170e-06_jprb,6.0380e-06_jprb,8.1516e-06_jprb/)  
kbo( :, 4,41, 1) = (/&
 & 6.9610e-08_jprb,2.5171e-06_jprb,4.5756e-06_jprb,6.4977e-06_jprb,8.7822e-06_jprb/)  
kbo( :, 5,41, 1) = (/&
 & 9.4152e-08_jprb,2.7376e-06_jprb,4.9025e-06_jprb,6.8959e-06_jprb,9.3313e-06_jprb/)  
kbo( :, 1,42, 1) = (/&
 & 2.0157e-08_jprb,1.4234e-06_jprb,2.6959e-06_jprb,3.9114e-06_jprb,5.2999e-06_jprb/)  
kbo( :, 2,42, 1) = (/&
 & 2.7569e-08_jprb,1.6266e-06_jprb,3.0478e-06_jprb,4.4003e-06_jprb,5.9585e-06_jprb/)  
kbo( :, 3,42, 1) = (/&
 & 3.8168e-08_jprb,1.8237e-06_jprb,3.3743e-06_jprb,4.8412e-06_jprb,6.5607e-06_jprb/)  
kbo( :, 4,42, 1) = (/&
 & 5.2578e-08_jprb,2.0137e-06_jprb,3.6751e-06_jprb,5.2309e-06_jprb,7.1001e-06_jprb/)  
kbo( :, 5,42, 1) = (/&
 & 7.1438e-08_jprb,2.1965e-06_jprb,3.9491e-06_jprb,5.5693e-06_jprb,7.5736e-06_jprb/)  
kbo( :, 1,43, 1) = (/&
 & 1.5048e-08_jprb,1.1128e-06_jprb,2.1143e-06_jprb,3.0719e-06_jprb,4.1759e-06_jprb/)  
kbo( :, 2,43, 1) = (/&
 & 2.0401e-08_jprb,1.2805e-06_jprb,2.4084e-06_jprb,3.4833e-06_jprb,4.7326e-06_jprb/)  
kbo( :, 3,43, 1) = (/&
 & 2.8205e-08_jprb,1.4438e-06_jprb,2.6828e-06_jprb,3.8579e-06_jprb,5.2466e-06_jprb/)  
kbo( :, 4,43, 1) = (/&
 & 3.8951e-08_jprb,1.6012e-06_jprb,2.9353e-06_jprb,4.1897e-06_jprb,5.7090e-06_jprb/)  
kbo( :, 5,43, 1) = (/&
 & 5.3191e-08_jprb,1.7525e-06_jprb,3.1662e-06_jprb,4.4792e-06_jprb,6.1200e-06_jprb/)  
kbo( :, 1,44, 1) = (/&
 & 1.1198e-08_jprb,8.6431e-07_jprb,1.6473e-06_jprb,2.3969e-06_jprb,3.2705e-06_jprb/)  

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


SUBROUTINE part13

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


kbo( :, 2,44, 1) = (/&
 & 1.5007e-08_jprb,1.0027e-06_jprb,1.8931e-06_jprb,2.7433e-06_jprb,3.7404e-06_jprb/)  
kbo( :, 3,44, 1) = (/&
 & 2.0665e-08_jprb,1.1376e-06_jprb,2.1233e-06_jprb,3.0602e-06_jprb,4.1782e-06_jprb/)  
kbo( :, 4,44, 1) = (/&
 & 2.8586e-08_jprb,1.2680e-06_jprb,2.3363e-06_jprb,3.3439e-06_jprb,4.5764e-06_jprb/)  
kbo( :, 5,44, 1) = (/&
 & 3.9218e-08_jprb,1.3937e-06_jprb,2.5309e-06_jprb,3.5921e-06_jprb,4.9322e-06_jprb/)  
kbo( :, 1,45, 1) = (/&
 & 8.3759e-09_jprb,6.6910e-07_jprb,1.2788e-06_jprb,1.8633e-06_jprb,2.5541e-06_jprb/)  
kbo( :, 2,45, 1) = (/&
 & 1.1074e-08_jprb,7.8311e-07_jprb,1.4838e-06_jprb,2.1538e-06_jprb,2.9501e-06_jprb/)  
kbo( :, 3,45, 1) = (/&
 & 1.5144e-08_jprb,8.9455e-07_jprb,1.6769e-06_jprb,2.4217e-06_jprb,3.3225e-06_jprb/)  
kbo( :, 4,45, 1) = (/&
 & 2.0959e-08_jprb,1.0028e-06_jprb,1.8560e-06_jprb,2.6635e-06_jprb,3.6644e-06_jprb/)  
kbo( :, 5,45, 1) = (/&
 & 2.8861e-08_jprb,1.1068e-06_jprb,2.0205e-06_jprb,2.8768e-06_jprb,3.9736e-06_jprb/)  
kbo( :, 1,46, 1) = (/&
 & 6.2739e-09_jprb,5.1407e-07_jprb,9.8522e-07_jprb,1.4377e-06_jprb,1.9806e-06_jprb/)  
kbo( :, 2,46, 1) = (/&
 & 8.1529e-09_jprb,6.0797e-07_jprb,1.1561e-06_jprb,1.6807e-06_jprb,2.3136e-06_jprb/)  
kbo( :, 3,46, 1) = (/&
 & 1.1038e-08_jprb,7.0008e-07_jprb,1.3179e-06_jprb,1.9073e-06_jprb,2.6301e-06_jprb/)  
kbo( :, 4,46, 1) = (/&
 & 1.5249e-08_jprb,7.8964e-07_jprb,1.4688e-06_jprb,2.1133e-06_jprb,2.9239e-06_jprb/)  
kbo( :, 5,46, 1) = (/&
 & 2.1058e-08_jprb,8.7606e-07_jprb,1.6079e-06_jprb,2.2965e-06_jprb,3.1920e-06_jprb/)  
kbo( :, 1,47, 1) = (/&
 & 4.6949e-09_jprb,3.8992e-07_jprb,7.4927e-07_jprb,1.0952e-06_jprb,1.5159e-06_jprb/)  
kbo( :, 2,47, 1) = (/&
 & 5.9645e-09_jprb,4.6716e-07_jprb,8.9151e-07_jprb,1.2982e-06_jprb,1.7952e-06_jprb/)  
kbo( :, 3,47, 1) = (/&
 & 7.9612e-09_jprb,5.4321e-07_jprb,1.0272e-06_jprb,1.4897e-06_jprb,2.0633e-06_jprb/)  
kbo( :, 4,47, 1) = (/&
 & 1.0938e-08_jprb,6.1746e-07_jprb,1.1545e-06_jprb,1.6654e-06_jprb,2.3153e-06_jprb/)  
kbo( :, 5,47, 1) = (/&
 & 1.5132e-08_jprb,6.8917e-07_jprb,1.2721e-06_jprb,1.8228e-06_jprb,2.5468e-06_jprb/)  
kbo( :, 1,48, 1) = (/&
 & 3.5531e-09_jprb,2.9393e-07_jprb,5.6622e-07_jprb,8.2884e-07_jprb,1.1544e-06_jprb/)  
kbo( :, 2,48, 1) = (/&
 & 4.3982e-09_jprb,3.5721e-07_jprb,6.8388e-07_jprb,9.9751e-07_jprb,1.3878e-06_jprb/)  
kbo( :, 3,48, 1) = (/&
 & 5.7699e-09_jprb,4.1995e-07_jprb,7.9742e-07_jprb,1.1586e-06_jprb,1.6142e-06_jprb/)  
kbo( :, 4,48, 1) = (/&
 & 7.8542e-09_jprb,4.8132e-07_jprb,9.0450e-07_jprb,1.3078e-06_jprb,1.8297e-06_jprb/)  
kbo( :, 5,48, 1) = (/&
 & 1.0862e-08_jprb,5.4098e-07_jprb,1.0041e-06_jprb,1.4432e-06_jprb,2.0302e-06_jprb/)  
kbo( :, 1,49, 1) = (/&
 & 2.7223e-09_jprb,2.2011e-07_jprb,4.2480e-07_jprb,6.2273e-07_jprb,8.7522e-07_jprb/)  
kbo( :, 2,49, 1) = (/&
 & 3.2751e-09_jprb,2.7175e-07_jprb,5.2169e-07_jprb,7.6216e-07_jprb,1.0695e-06_jprb/)  
kbo( :, 3,49, 1) = (/&
 & 4.2074e-09_jprb,3.2338e-07_jprb,6.1638e-07_jprb,8.9710e-07_jprb,1.2605e-06_jprb/)  
kbo( :, 4,49, 1) = (/&
 & 5.6548e-09_jprb,3.7408e-07_jprb,7.0619e-07_jprb,1.0234e-06_jprb,1.4445e-06_jprb/)  
kbo( :, 5,49, 1) = (/&
 & 7.7931e-09_jprb,4.2353e-07_jprb,7.9036e-07_jprb,1.1391e-06_jprb,1.6183e-06_jprb/)  
kbo( :, 1,50, 1) = (/&
 & 2.1171e-09_jprb,1.6461e-07_jprb,3.1815e-07_jprb,4.6707e-07_jprb,6.6131e-07_jprb/)  
kbo( :, 2,50, 1) = (/&
 & 2.4767e-09_jprb,2.0654e-07_jprb,3.9751e-07_jprb,5.8161e-07_jprb,8.2129e-07_jprb/)  
kbo( :, 3,50, 1) = (/&
 & 3.1098e-09_jprb,2.4898e-07_jprb,4.7607e-07_jprb,6.9397e-07_jprb,9.8108e-07_jprb/)  
kbo( :, 4,50, 1) = (/&
 & 4.1196e-09_jprb,2.9082e-07_jprb,5.5125e-07_jprb,8.0034e-07_jprb,1.1364e-06_jprb/)  
kbo( :, 5,50, 1) = (/&
 & 5.6373e-09_jprb,3.3169e-07_jprb,6.2193e-07_jprb,8.9844e-07_jprb,1.2847e-06_jprb/)  
kbo( :, 1,51, 1) = (/&
 & 1.6645e-09_jprb,1.2257e-07_jprb,2.3718e-07_jprb,3.4865e-07_jprb,4.9717e-07_jprb/)  
kbo( :, 2,51, 1) = (/&
 & 1.8963e-09_jprb,1.5653e-07_jprb,3.0185e-07_jprb,4.4222e-07_jprb,6.2797e-07_jprb/)  
kbo( :, 3,51, 1) = (/&
 & 2.3235e-09_jprb,1.9123e-07_jprb,3.6667e-07_jprb,5.3530e-07_jprb,7.6057e-07_jprb/)  
kbo( :, 4,51, 1) = (/&
 & 3.0254e-09_jprb,2.2572e-07_jprb,4.2945e-07_jprb,6.2453e-07_jprb,8.9069e-07_jprb/)  
kbo( :, 5,51, 1) = (/&
 & 4.0995e-09_jprb,2.5950e-07_jprb,4.8873e-07_jprb,7.0742e-07_jprb,1.0163e-06_jprb/)  
kbo( :, 1,52, 1) = (/&
 & 1.3206e-09_jprb,9.0571e-08_jprb,1.7550e-07_jprb,2.5829e-07_jprb,3.7195e-07_jprb/)  
kbo( :, 2,52, 1) = (/&
 & 1.4670e-09_jprb,1.1797e-07_jprb,2.2784e-07_jprb,3.3424e-07_jprb,4.7844e-07_jprb/)  
kbo( :, 3,52, 1) = (/&
 & 1.7505e-09_jprb,1.4623e-07_jprb,2.8107e-07_jprb,4.1094e-07_jprb,5.8801e-07_jprb/)  
kbo( :, 4,52, 1) = (/&
 & 2.2339e-09_jprb,1.7460e-07_jprb,3.3329e-07_jprb,4.8542e-07_jprb,6.9695e-07_jprb/)  
kbo( :, 5,52, 1) = (/&
 & 2.9899e-09_jprb,2.0250e-07_jprb,3.8293e-07_jprb,5.5538e-07_jprb,8.0322e-07_jprb/)  
kbo( :, 1,53, 1) = (/&
 & 1.0570e-09_jprb,6.6355e-08_jprb,1.2871e-07_jprb,1.8963e-07_jprb,2.7719e-07_jprb/)  
kbo( :, 2,53, 1) = (/&
 & 1.1456e-09_jprb,8.8306e-08_jprb,1.7079e-07_jprb,2.5086e-07_jprb,3.6333e-07_jprb/)  
kbo( :, 3,53, 1) = (/&
 & 1.3304e-09_jprb,1.1127e-07_jprb,2.1434e-07_jprb,3.1381e-07_jprb,4.5369e-07_jprb/)  
kbo( :, 4,53, 1) = (/&
 & 1.6595e-09_jprb,1.3454e-07_jprb,2.5758e-07_jprb,3.7572e-07_jprb,5.4496e-07_jprb/)  
kbo( :, 5,53, 1) = (/&
 & 2.1883e-09_jprb,1.5755e-07_jprb,2.9906e-07_jprb,4.3451e-07_jprb,6.3482e-07_jprb/)  
kbo( :, 1,54, 1) = (/&
 & 8.5518e-10_jprb,4.8675e-08_jprb,9.4477e-08_jprb,1.3931e-07_jprb,2.0489e-07_jprb/)  
kbo( :, 2,54, 1) = (/&
 & 9.0530e-10_jprb,6.6186e-08_jprb,1.2814e-07_jprb,1.8845e-07_jprb,2.7365e-07_jprb/)  
kbo( :, 3,54, 1) = (/&
 & 1.0265e-09_jprb,8.4782e-08_jprb,1.6360e-07_jprb,2.3982e-07_jprb,3.4689e-07_jprb/)  
kbo( :, 4,54, 1) = (/&
 & 1.2515e-09_jprb,1.0381e-07_jprb,1.9922e-07_jprb,2.9100e-07_jprb,4.2180e-07_jprb/)  
kbo( :, 5,54, 1) = (/&
 & 1.6232e-09_jprb,1.2276e-07_jprb,2.3378e-07_jprb,3.4015e-07_jprb,4.9603e-07_jprb/)  
kbo( :, 1,55, 1) = (/&
 & 6.9700e-10_jprb,3.5570e-08_jprb,6.9080e-08_jprb,1.0195e-07_jprb,1.4991e-07_jprb/)  
kbo( :, 2,55, 1) = (/&
 & 7.2150e-10_jprb,4.9476e-08_jprb,9.5896e-08_jprb,1.4119e-07_jprb,2.0429e-07_jprb/)  
kbo( :, 3,55, 1) = (/&
 & 8.0028e-10_jprb,6.4502e-08_jprb,1.2464e-07_jprb,1.8291e-07_jprb,2.6311e-07_jprb/)  
kbo( :, 4,55, 1) = (/&
 & 9.5310e-10_jprb,8.0013e-08_jprb,1.5388e-07_jprb,2.2506e-07_jprb,3.2381e-07_jprb/)  
kbo( :, 5,55, 1) = (/&
 & 1.2140e-09_jprb,9.5569e-08_jprb,1.8254e-07_jprb,2.6597e-07_jprb,3.8428e-07_jprb/)  
kbo( :, 1,56, 1) = (/&
 & 5.7187e-10_jprb,2.5788e-08_jprb,5.0091e-08_jprb,7.3976e-08_jprb,1.0884e-07_jprb/)  
kbo( :, 2,56, 1) = (/&
 & 5.7915e-10_jprb,3.6758e-08_jprb,7.1316e-08_jprb,1.0509e-07_jprb,1.5165e-07_jprb/)  
kbo( :, 3,56, 1) = (/&
 & 6.2849e-10_jprb,4.8831e-08_jprb,9.4465e-08_jprb,1.3879e-07_jprb,1.9866e-07_jprb/)  
kbo( :, 4,56, 1) = (/&
 & 7.3094e-10_jprb,6.1436e-08_jprb,1.1839e-07_jprb,1.7336e-07_jprb,2.4772e-07_jprb/)  
kbo( :, 5,56, 1) = (/&
 & 9.1271e-10_jprb,7.4209e-08_jprb,1.4210e-07_jprb,2.0734e-07_jprb,2.9707e-07_jprb/)  
kbo( :, 1,57, 1) = (/&
 & 4.7220e-10_jprb,1.8526e-08_jprb,3.5969e-08_jprb,5.3151e-08_jprb,7.8305e-08_jprb/)  
kbo( :, 2,57, 1) = (/&
 & 4.6852e-10_jprb,2.7111e-08_jprb,5.2630e-08_jprb,7.7619e-08_jprb,1.1181e-07_jprb/)  
kbo( :, 3,57, 1) = (/&
 & 4.9708e-10_jprb,3.6762e-08_jprb,7.1191e-08_jprb,1.0471e-07_jprb,1.4926e-07_jprb/)  
kbo( :, 4,57, 1) = (/&
 & 5.6499e-10_jprb,4.6985e-08_jprb,9.0692e-08_jprb,1.3297e-07_jprb,1.8882e-07_jprb/)  
kbo( :, 5,57, 1) = (/&
 & 6.9035e-10_jprb,5.7429e-08_jprb,1.1024e-07_jprb,1.6105e-07_jprb,2.2899e-07_jprb/)  
kbo( :, 1,58, 1) = (/&
 & 3.9157e-10_jprb,1.3270e-08_jprb,2.5747e-08_jprb,3.8061e-08_jprb,5.5988e-08_jprb/)  
kbo( :, 2,58, 1) = (/&
 & 3.8162e-10_jprb,1.9958e-08_jprb,3.8768e-08_jprb,5.7217e-08_jprb,8.2152e-08_jprb/)  
kbo( :, 3,58, 1) = (/&
 & 3.9640e-10_jprb,2.7646e-08_jprb,5.3592e-08_jprb,7.8902e-08_jprb,1.1187e-07_jprb/)  
kbo( :, 4,58, 1) = (/&
 & 4.4118e-10_jprb,3.5913e-08_jprb,6.9407e-08_jprb,1.0187e-07_jprb,1.4365e-07_jprb/)  
kbo( :, 5,58, 1) = (/&
 & 5.2734e-10_jprb,4.4431e-08_jprb,8.5459e-08_jprb,1.2500e-07_jprb,1.7617e-07_jprb/)  
kbo( :, 1,59, 1) = (/&
 & 3.2257e-10_jprb,1.0274e-08_jprb,1.9927e-08_jprb,2.9461e-08_jprb,4.2293e-08_jprb/)  
kbo( :, 2,59, 1) = (/&
 & 3.1226e-10_jprb,1.5633e-08_jprb,3.0371e-08_jprb,4.4840e-08_jprb,6.3166e-08_jprb/)  
kbo( :, 3,59, 1) = (/&
 & 3.2148e-10_jprb,2.1846e-08_jprb,4.2369e-08_jprb,6.2405e-08_jprb,8.6964e-08_jprb/)  
kbo( :, 4,59, 1) = (/&
 & 3.5488e-10_jprb,2.8579e-08_jprb,5.5262e-08_jprb,8.1150e-08_jprb,1.1238e-07_jprb/)  
kbo( :, 5,59, 1) = (/&
 & 4.2035e-10_jprb,3.5535e-08_jprb,6.8411e-08_jprb,1.0012e-07_jprb,1.3828e-07_jprb/)  
kbo( :, 1,13, 2) = (/&
 & 8.0175e-06_jprb,1.6125e-03_jprb,3.1478e-03_jprb,4.6753e-03_jprb,6.4316e-03_jprb/)  
kbo( :, 2,13, 2) = (/&
 & 1.0426e-05_jprb,1.8783e-03_jprb,3.6140e-03_jprb,5.3229e-03_jprb,7.3431e-03_jprb/)  
kbo( :, 3,13, 2) = (/&
 & 1.4927e-05_jprb,2.1311e-03_jprb,4.0477e-03_jprb,5.8993e-03_jprb,8.1260e-03_jprb/)  
kbo( :, 4,13, 2) = (/&
 & 2.2809e-05_jprb,2.3738e-03_jprb,4.4493e-03_jprb,6.4056e-03_jprb,8.7767e-03_jprb/)  
kbo( :, 5,13, 2) = (/&
 & 3.5487e-05_jprb,2.6072e-03_jprb,4.8181e-03_jprb,6.8488e-03_jprb,9.2993e-03_jprb/)  
kbo( :, 1,14, 2) = (/&
 & 6.7524e-06_jprb,1.3623e-03_jprb,2.6470e-03_jprb,3.9213e-03_jprb,5.3373e-03_jprb/)  
kbo( :, 2,14, 2) = (/&
 & 8.8908e-06_jprb,1.5796e-03_jprb,3.0298e-03_jprb,4.4457e-03_jprb,6.0495e-03_jprb/)  
kbo( :, 3,14, 2) = (/&
 & 1.2884e-05_jprb,1.7866e-03_jprb,3.3866e-03_jprb,4.9144e-03_jprb,6.6539e-03_jprb/)  
kbo( :, 4,14, 2) = (/&
 & 1.9813e-05_jprb,1.9855e-03_jprb,3.7147e-03_jprb,5.3297e-03_jprb,7.1488e-03_jprb/)  
kbo( :, 5,14, 2) = (/&
 & 3.0910e-05_jprb,2.1779e-03_jprb,4.0162e-03_jprb,5.6950e-03_jprb,7.5412e-03_jprb/)  
kbo( :, 1,15, 2) = (/&
 & 5.7112e-06_jprb,1.1474e-03_jprb,2.2216e-03_jprb,3.2811e-03_jprb,4.4313e-03_jprb/)  
kbo( :, 2,15, 2) = (/&
 & 7.6208e-06_jprb,1.3247e-03_jprb,2.5364e-03_jprb,3.7071e-03_jprb,4.9919e-03_jprb/)  
kbo( :, 3,15, 2) = (/&
 & 1.1171e-05_jprb,1.4944e-03_jprb,2.8273e-03_jprb,4.0906e-03_jprb,5.4623e-03_jprb/)  
kbo( :, 4,15, 2) = (/&
 & 1.7286e-05_jprb,1.6573e-03_jprb,3.0948e-03_jprb,4.4313e-03_jprb,5.8428e-03_jprb/)  
kbo( :, 5,15, 2) = (/&
 & 2.7064e-05_jprb,1.8170e-03_jprb,3.3404e-03_jprb,4.7290e-03_jprb,6.1397e-03_jprb/)  
kbo( :, 1,16, 2) = (/&
 & 4.8419e-06_jprb,9.6341e-04_jprb,1.8620e-03_jprb,2.7407e-03_jprb,3.6858e-03_jprb/)  
kbo( :, 2,16, 2) = (/&
 & 6.5431e-06_jprb,1.1085e-03_jprb,2.1191e-03_jprb,3.0886e-03_jprb,4.1319e-03_jprb/)  
kbo( :, 3,16, 2) = (/&
 & 9.6991e-06_jprb,1.2471e-03_jprb,2.3556e-03_jprb,3.4027e-03_jprb,4.5021e-03_jprb/)  
kbo( :, 4,16, 2) = (/&
 & 1.5112e-05_jprb,1.3813e-03_jprb,2.5735e-03_jprb,3.6791e-03_jprb,4.7992e-03_jprb/)  
kbo( :, 5,16, 2) = (/&
 & 2.3687e-05_jprb,1.5146e-03_jprb,2.7739e-03_jprb,3.9205e-03_jprb,5.0294e-03_jprb/)  
kbo( :, 1,17, 2) = (/&
 & 4.1046e-06_jprb,8.0658e-04_jprb,1.5568e-03_jprb,2.2850e-03_jprb,3.0607e-03_jprb/)  
kbo( :, 2,17, 2) = (/&
 & 5.6128e-06_jprb,9.2491e-04_jprb,1.7657e-03_jprb,2.5701e-03_jprb,3.4165e-03_jprb/)  
kbo( :, 3,17, 2) = (/&
 & 8.4118e-06_jprb,1.0386e-03_jprb,1.9589e-03_jprb,2.8258e-03_jprb,3.7101e-03_jprb/)  
kbo( :, 4,17, 2) = (/&
 & 1.3163e-05_jprb,1.1499e-03_jprb,2.1360e-03_jprb,3.0493e-03_jprb,3.9433e-03_jprb/)  
kbo( :, 5,17, 2) = (/&
 & 2.0607e-05_jprb,1.2605e-03_jprb,2.3001e-03_jprb,3.2445e-03_jprb,4.1227e-03_jprb/)  
kbo( :, 1,18, 2) = (/&
 & 3.4787e-06_jprb,6.7375e-04_jprb,1.2987e-03_jprb,1.9033e-03_jprb,2.5394e-03_jprb/)  
kbo( :, 2,18, 2) = (/&
 & 4.8193e-06_jprb,7.7048e-04_jprb,1.4690e-03_jprb,2.1362e-03_jprb,2.8237e-03_jprb/)  
kbo( :, 3,18, 2) = (/&
 & 7.2913e-06_jprb,8.6393e-04_jprb,1.6256e-03_jprb,2.3423e-03_jprb,3.0558e-03_jprb/)  
kbo( :, 4,18, 2) = (/&
 & 1.1432e-05_jprb,9.5623e-04_jprb,1.7704e-03_jprb,2.5237e-03_jprb,3.2404e-03_jprb/)  
kbo( :, 5,18, 2) = (/&
 & 1.7868e-05_jprb,1.0481e-03_jprb,1.9053e-03_jprb,2.6812e-03_jprb,3.3808e-03_jprb/)  
kbo( :, 1,19, 2) = (/&
 & 2.9467e-06_jprb,5.6177e-04_jprb,1.0818e-03_jprb,1.5840e-03_jprb,2.1035e-03_jprb/)  
kbo( :, 2,19, 2) = (/&
 & 4.1364e-06_jprb,6.4090e-04_jprb,1.2199e-03_jprb,1.7723e-03_jprb,2.3300e-03_jprb/)  
kbo( :, 3,19, 2) = (/&
 & 6.2999e-06_jprb,7.1829e-04_jprb,1.3476e-03_jprb,1.9398e-03_jprb,2.5147e-03_jprb/)  
kbo( :, 4,19, 2) = (/&
 & 9.8879e-06_jprb,7.9456e-04_jprb,1.4667e-03_jprb,2.0867e-03_jprb,2.6608e-03_jprb/)  
kbo( :, 5,19, 2) = (/&
 & 1.5425e-05_jprb,8.7102e-04_jprb,1.5773e-03_jprb,2.2143e-03_jprb,2.7707e-03_jprb/)  
kbo( :, 1,20, 2) = (/&
 & 2.5100e-06_jprb,4.6893e-04_jprb,9.0169e-04_jprb,1.3192e-03_jprb,1.7452e-03_jprb/)  
kbo( :, 2,20, 2) = (/&
 & 3.5701e-06_jprb,5.3398e-04_jprb,1.0139e-03_jprb,1.4717e-03_jprb,1.9261e-03_jprb/)  
kbo( :, 3,20, 2) = (/&
 & 5.4715e-06_jprb,5.9772e-04_jprb,1.1181e-03_jprb,1.6068e-03_jprb,2.0724e-03_jprb/)  
kbo( :, 4,20, 2) = (/&
 & 8.5950e-06_jprb,6.6090e-04_jprb,1.2157e-03_jprb,1.7253e-03_jprb,2.1875e-03_jprb/)  
kbo( :, 5,20, 2) = (/&
 & 1.3366e-05_jprb,7.2450e-04_jprb,1.3064e-03_jprb,1.8293e-03_jprb,2.2741e-03_jprb/)  
kbo( :, 1,21, 2) = (/&
 & 2.1419e-06_jprb,3.9129e-04_jprb,7.5108e-04_jprb,1.0978e-03_jprb,1.4477e-03_jprb/)  
kbo( :, 2,21, 2) = (/&
 & 3.0823e-06_jprb,4.4480e-04_jprb,8.4226e-04_jprb,1.2211e-03_jprb,1.5919e-03_jprb/)  
kbo( :, 3,21, 2) = (/&
 & 4.7515e-06_jprb,4.9734e-04_jprb,9.2759e-04_jprb,1.3300e-03_jprb,1.7080e-03_jprb/)  
kbo( :, 4,21, 2) = (/&
 & 7.4611e-06_jprb,5.4971e-04_jprb,1.0075e-03_jprb,1.4263e-03_jprb,1.7988e-03_jprb/)  
kbo( :, 5,21, 2) = (/&
 & 1.1567e-05_jprb,6.0267e-04_jprb,1.0819e-03_jprb,1.5108e-03_jprb,1.8668e-03_jprb/)  
kbo( :, 1,22, 2) = (/&
 & 1.8692e-06_jprb,3.2930e-04_jprb,6.3020e-04_jprb,9.1986e-04_jprb,1.2087e-03_jprb/)  
kbo( :, 2,22, 2) = (/&
 & 2.7364e-06_jprb,3.7324e-04_jprb,7.0426e-04_jprb,1.0187e-03_jprb,1.3222e-03_jprb/)  
kbo( :, 3,22, 2) = (/&
 & 4.2483e-06_jprb,4.1663e-04_jprb,7.7378e-04_jprb,1.1062e-03_jprb,1.4133e-03_jprb/)  
kbo( :, 4,22, 2) = (/&
 & 6.6614e-06_jprb,4.6001e-04_jprb,8.3899e-04_jprb,1.1837e-03_jprb,1.4836e-03_jprb/)  
kbo( :, 5,22, 2) = (/&
 & 1.0283e-05_jprb,5.0444e-04_jprb,8.9986e-04_jprb,1.2517e-03_jprb,1.5358e-03_jprb/)  
kbo( :, 1,23, 2) = (/&
 & 1.6399e-06_jprb,2.7719e-04_jprb,5.2862e-04_jprb,7.7027e-04_jprb,1.0088e-03_jprb/)  
kbo( :, 2,23, 2) = (/&
 & 2.4391e-06_jprb,3.1328e-04_jprb,5.8895e-04_jprb,8.4951e-04_jprb,1.0980e-03_jprb/)  
kbo( :, 3,23, 2) = (/&
 & 3.8063e-06_jprb,3.4908e-04_jprb,6.4555e-04_jprb,9.1997e-04_jprb,1.1688e-03_jprb/)  
kbo( :, 4,23, 2) = (/&
 & 5.9548e-06_jprb,3.8523e-04_jprb,6.9879e-04_jprb,9.8233e-04_jprb,1.2233e-03_jprb/)  
kbo( :, 5,23, 2) = (/&
 & 9.1467e-06_jprb,4.2262e-04_jprb,7.4870e-04_jprb,1.0371e-03_jprb,1.2635e-03_jprb/)  
kbo( :, 1,24, 2) = (/&
 & 1.4486e-06_jprb,2.3343e-04_jprb,4.4362e-04_jprb,6.4490e-04_jprb,8.4150e-04_jprb/)  
kbo( :, 2,24, 2) = (/&
 & 2.1847e-06_jprb,2.6312e-04_jprb,4.9268e-04_jprb,7.0858e-04_jprb,9.1131e-04_jprb/)  
kbo( :, 3,24, 2) = (/&
 & 3.4199e-06_jprb,2.9273e-04_jprb,5.3880e-04_jprb,7.6525e-04_jprb,9.6646e-04_jprb/)  
kbo( :, 4,24, 2) = (/&
 & 5.3366e-06_jprb,3.2305e-04_jprb,5.8221e-04_jprb,8.1539e-04_jprb,1.0083e-03_jprb/)  
kbo( :, 5,24, 2) = (/&
 & 8.1557e-06_jprb,3.5422e-04_jprb,6.2350e-04_jprb,8.5963e-04_jprb,1.0390e-03_jprb/)  
kbo( :, 1,25, 2) = (/&
 & 1.2896e-06_jprb,1.9674e-04_jprb,3.7250e-04_jprb,5.4009e-04_jprb,7.0204e-04_jprb/)  
kbo( :, 2,25, 2) = (/&
 & 1.9685e-06_jprb,2.2117e-04_jprb,4.1236e-04_jprb,5.9119e-04_jprb,7.5627e-04_jprb/)  
kbo( :, 3,25, 2) = (/&
 & 3.0862e-06_jprb,2.4587e-04_jprb,4.4997e-04_jprb,6.3678e-04_jprb,7.9915e-04_jprb/)  
kbo( :, 4,25, 2) = (/&
 & 4.8005e-06_jprb,2.7122e-04_jprb,4.8550e-04_jprb,6.7707e-04_jprb,8.3122e-04_jprb/)  
kbo( :, 5,25, 2) = (/&
 & 7.2939e-06_jprb,2.9701e-04_jprb,5.1977e-04_jprb,7.1279e-04_jprb,8.5451e-04_jprb/)  
kbo( :, 1,26, 2) = (/&
 & 1.1608e-06_jprb,1.6612e-04_jprb,3.1323e-04_jprb,4.5281e-04_jprb,5.8594e-04_jprb/)  

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


SUBROUTINE part14

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


kbo( :, 2,26, 2) = (/&
 & 1.7905e-06_jprb,1.8633e-04_jprb,3.4562e-04_jprb,4.9378e-04_jprb,6.2806e-04_jprb/)  
kbo( :, 3,26, 2) = (/&
 & 2.8083e-06_jprb,2.0700e-04_jprb,3.7628e-04_jprb,5.3030e-04_jprb,6.6095e-04_jprb/)  
kbo( :, 4,26, 2) = (/&
 & 4.3494e-06_jprb,2.2796e-04_jprb,4.0557e-04_jprb,5.6268e-04_jprb,6.8538e-04_jprb/)  
kbo( :, 5,26, 2) = (/&
 & 6.5643e-06_jprb,2.4920e-04_jprb,4.3382e-04_jprb,5.9177e-04_jprb,7.0285e-04_jprb/)  
kbo( :, 1,27, 2) = (/&
 & 1.0500e-06_jprb,1.4026e-04_jprb,2.6331e-04_jprb,3.7943e-04_jprb,4.8869e-04_jprb/)  
kbo( :, 2,27, 2) = (/&
 & 1.6326e-06_jprb,1.5709e-04_jprb,2.8964e-04_jprb,4.1228e-04_jprb,5.2142e-04_jprb/)  
kbo( :, 3,27, 2) = (/&
 & 2.5571e-06_jprb,1.7422e-04_jprb,3.1477e-04_jprb,4.4154e-04_jprb,5.4660e-04_jprb/)  
kbo( :, 4,27, 2) = (/&
 & 3.9402e-06_jprb,1.9156e-04_jprb,3.3894e-04_jprb,4.6764e-04_jprb,5.6523e-04_jprb/)  
kbo( :, 5,27, 2) = (/&
 & 5.9052e-06_jprb,2.0883e-04_jprb,3.6207e-04_jprb,4.9151e-04_jprb,5.7833e-04_jprb/)  
kbo( :, 1,28, 2) = (/&
 & 9.5343e-07_jprb,1.1844e-04_jprb,2.2122e-04_jprb,3.1775e-04_jprb,4.0735e-04_jprb/)  
kbo( :, 2,28, 2) = (/&
 & 1.4904e-06_jprb,1.3245e-04_jprb,2.4271e-04_jprb,3.4408e-04_jprb,4.3267e-04_jprb/)  
kbo( :, 3,28, 2) = (/&
 & 2.3285e-06_jprb,1.4658e-04_jprb,2.6343e-04_jprb,3.6757e-04_jprb,4.5198e-04_jprb/)  
kbo( :, 4,28, 2) = (/&
 & 3.5672e-06_jprb,1.6074e-04_jprb,2.8315e-04_jprb,3.8877e-04_jprb,4.6611e-04_jprb/)  
kbo( :, 5,28, 2) = (/&
 & 5.3086e-06_jprb,1.7472e-04_jprb,3.0190e-04_jprb,4.0830e-04_jprb,4.7586e-04_jprb/)  
kbo( :, 1,29, 2) = (/&
 & 8.7130e-07_jprb,1.0013e-04_jprb,1.8593e-04_jprb,2.6607e-04_jprb,3.3959e-04_jprb/)  
kbo( :, 2,29, 2) = (/&
 & 1.3662e-06_jprb,1.1169e-04_jprb,2.0357e-04_jprb,2.8717e-04_jprb,3.5915e-04_jprb/)  
kbo( :, 3,29, 2) = (/&
 & 2.1272e-06_jprb,1.2329e-04_jprb,2.2053e-04_jprb,3.0613e-04_jprb,3.7392e-04_jprb/)  
kbo( :, 4,29, 2) = (/&
 & 3.2367e-06_jprb,1.3475e-04_jprb,2.3655e-04_jprb,3.2340e-04_jprb,3.8475e-04_jprb/)  
kbo( :, 5,29, 2) = (/&
 & 4.7798e-06_jprb,1.4613e-04_jprb,2.5163e-04_jprb,3.3924e-04_jprb,3.9199e-04_jprb/)  
kbo( :, 1,30, 2) = (/&
 & 7.9857e-07_jprb,8.4615e-05_jprb,1.5625e-04_jprb,2.2266e-04_jprb,2.8295e-04_jprb/)  
kbo( :, 2,30, 2) = (/&
 & 1.2528e-06_jprb,9.4125e-05_jprb,1.7078e-04_jprb,2.3961e-04_jprb,2.9806e-04_jprb/)  
kbo( :, 3,30, 2) = (/&
 & 1.9419e-06_jprb,1.0355e-04_jprb,1.8452e-04_jprb,2.5499e-04_jprb,3.0943e-04_jprb/)  
kbo( :, 4,30, 2) = (/&
 & 2.9342e-06_jprb,1.1289e-04_jprb,1.9751e-04_jprb,2.6906e-04_jprb,3.1766e-04_jprb/)  
kbo( :, 5,30, 2) = (/&
 & 4.2987e-06_jprb,1.2210e-04_jprb,2.0947e-04_jprb,2.8172e-04_jprb,3.2307e-04_jprb/)  
kbo( :, 1,31, 2) = (/&
 & 7.3491e-07_jprb,7.1470e-05_jprb,1.3139e-04_jprb,1.8630e-04_jprb,2.3588e-04_jprb/)  
kbo( :, 2,31, 2) = (/&
 & 1.1514e-06_jprb,7.9261e-05_jprb,1.4322e-04_jprb,1.9997e-04_jprb,2.4758e-04_jprb/)  
kbo( :, 3,31, 2) = (/&
 & 1.7751e-06_jprb,8.6934e-05_jprb,1.5438e-04_jprb,2.1250e-04_jprb,2.5633e-04_jprb/)  
kbo( :, 4,31, 2) = (/&
 & 2.6619e-06_jprb,9.4503e-05_jprb,1.6470e-04_jprb,2.2379e-04_jprb,2.6262e-04_jprb/)  
kbo( :, 5,31, 2) = (/&
 & 3.8682e-06_jprb,1.0203e-04_jprb,1.7422e-04_jprb,2.3379e-04_jprb,2.6667e-04_jprb/)  
kbo( :, 1,32, 2) = (/&
 & 6.7761e-07_jprb,6.0344e-05_jprb,1.1046e-04_jprb,1.5585e-04_jprb,1.9661e-04_jprb/)  
kbo( :, 2,32, 2) = (/&
 & 1.0588e-06_jprb,6.6689e-05_jprb,1.2006e-04_jprb,1.6697e-04_jprb,2.0563e-04_jprb/)  
kbo( :, 3,32, 2) = (/&
 & 1.6222e-06_jprb,7.2918e-05_jprb,1.2900e-04_jprb,1.7702e-04_jprb,2.1238e-04_jprb/)  
kbo( :, 4,32, 2) = (/&
 & 2.4128e-06_jprb,7.9073e-05_jprb,1.3719e-04_jprb,1.8602e-04_jprb,2.1720e-04_jprb/)  
kbo( :, 5,32, 2) = (/&
 & 3.4779e-06_jprb,8.5263e-05_jprb,1.4481e-04_jprb,1.9388e-04_jprb,2.2025e-04_jprb/)  
kbo( :, 1,33, 2) = (/&
 & 6.2527e-07_jprb,5.0902e-05_jprb,9.2812e-05_jprb,1.3037e-04_jprb,1.6382e-04_jprb/)  
kbo( :, 2,33, 2) = (/&
 & 9.7334e-07_jprb,5.6048e-05_jprb,1.0055e-04_jprb,1.3935e-04_jprb,1.7082e-04_jprb/)  
kbo( :, 3,33, 2) = (/&
 & 1.4801e-06_jprb,6.1101e-05_jprb,1.0766e-04_jprb,1.4740e-04_jprb,1.7611e-04_jprb/)  
kbo( :, 4,33, 2) = (/&
 & 2.1838e-06_jprb,6.6144e-05_jprb,1.1420e-04_jprb,1.5452e-04_jprb,1.7978e-04_jprb/)  
kbo( :, 5,33, 2) = (/&
 & 3.1224e-06_jprb,7.1225e-05_jprb,1.2030e-04_jprb,1.6062e-04_jprb,1.8204e-04_jprb/)  
kbo( :, 1,34, 2) = (/&
 & 5.6731e-07_jprb,4.2730e-05_jprb,7.7685e-05_jprb,1.0877e-04_jprb,1.3615e-04_jprb/)  
kbo( :, 2,34, 2) = (/&
 & 8.7950e-07_jprb,4.6905e-05_jprb,8.3883e-05_jprb,1.1598e-04_jprb,1.4163e-04_jprb/)  
kbo( :, 3,34, 2) = (/&
 & 1.3287e-06_jprb,5.1034e-05_jprb,8.9565e-05_jprb,1.2242e-04_jprb,1.4574e-04_jprb/)  
kbo( :, 4,34, 2) = (/&
 & 1.9464e-06_jprb,5.5143e-05_jprb,9.4797e-05_jprb,1.2801e-04_jprb,1.4856e-04_jprb/)  
kbo( :, 5,34, 2) = (/&
 & 2.7640e-06_jprb,5.9346e-05_jprb,9.9732e-05_jprb,1.3280e-04_jprb,1.5030e-04_jprb/)  
kbo( :, 1,35, 2) = (/&
 & 4.9270e-07_jprb,3.5501e-05_jprb,6.4454e-05_jprb,9.0102e-05_jprb,1.1262e-04_jprb/)  
kbo( :, 2,35, 2) = (/&
 & 7.6173e-07_jprb,3.8902e-05_jprb,6.9450e-05_jprb,9.5970e-05_jprb,1.1707e-04_jprb/)  
kbo( :, 3,35, 2) = (/&
 & 1.1464e-06_jprb,4.2272e-05_jprb,7.4027e-05_jprb,1.0112e-04_jprb,1.2036e-04_jprb/)  
kbo( :, 4,35, 2) = (/&
 & 1.6726e-06_jprb,4.5640e-05_jprb,7.8266e-05_jprb,1.0556e-04_jprb,1.2264e-04_jprb/)  
kbo( :, 5,35, 2) = (/&
 & 2.3658e-06_jprb,4.9091e-05_jprb,8.2279e-05_jprb,1.0938e-04_jprb,1.2407e-04_jprb/)  
kbo( :, 1,36, 2) = (/&
 & 4.0753e-07_jprb,2.9178e-05_jprb,5.2991e-05_jprb,7.4090e-05_jprb,9.2739e-05_jprb/)  
kbo( :, 2,36, 2) = (/&
 & 6.2965e-07_jprb,3.1953e-05_jprb,5.7057e-05_jprb,7.8888e-05_jprb,9.6418e-05_jprb/)  
kbo( :, 3,36, 2) = (/&
 & 9.4705e-07_jprb,3.4706e-05_jprb,6.0784e-05_jprb,8.3065e-05_jprb,9.9161e-05_jprb/)  
kbo( :, 4,36, 2) = (/&
 & 1.3808e-06_jprb,3.7469e-05_jprb,6.4241e-05_jprb,8.6658e-05_jprb,1.0108e-04_jprb/)  
kbo( :, 5,36, 2) = (/&
 & 1.9520e-06_jprb,4.0294e-05_jprb,6.7509e-05_jprb,8.9744e-05_jprb,1.0229e-04_jprb/)  
kbo( :, 1,37, 2) = (/&
 & 3.1476e-07_jprb,2.3629e-05_jprb,4.3024e-05_jprb,6.0274e-05_jprb,7.5761e-05_jprb/)  
kbo( :, 2,37, 2) = (/&
 & 4.8773e-07_jprb,2.5900e-05_jprb,4.6378e-05_jprb,6.4261e-05_jprb,7.8929e-05_jprb/)  
kbo( :, 3,37, 2) = (/&
 & 7.3652e-07_jprb,2.8152e-05_jprb,4.9455e-05_jprb,6.7730e-05_jprb,8.1326e-05_jprb/)  
kbo( :, 4,37, 2) = (/&
 & 1.0783e-06_jprb,3.0411e-05_jprb,5.2306e-05_jprb,7.0712e-05_jprb,8.3006e-05_jprb/)  
kbo( :, 5,37, 2) = (/&
 & 1.5305e-06_jprb,3.2717e-05_jprb,5.4998e-05_jprb,7.3285e-05_jprb,8.4133e-05_jprb/)  
kbo( :, 1,38, 2) = (/&
 & 2.4210e-07_jprb,1.9112e-05_jprb,3.4895e-05_jprb,4.8985e-05_jprb,6.1887e-05_jprb/)  
kbo( :, 2,38, 2) = (/&
 & 3.7627e-07_jprb,2.0975e-05_jprb,3.7671e-05_jprb,5.2313e-05_jprb,6.4617e-05_jprb/)  
kbo( :, 3,38, 2) = (/&
 & 5.7052e-07_jprb,2.2818e-05_jprb,4.0210e-05_jprb,5.5193e-05_jprb,6.6701e-05_jprb/)  
kbo( :, 4,38, 2) = (/&
 & 8.3911e-07_jprb,2.4669e-05_jprb,4.2570e-05_jprb,5.7682e-05_jprb,6.8211e-05_jprb/)  
kbo( :, 5,38, 2) = (/&
 & 1.1958e-06_jprb,2.6548e-05_jprb,4.4784e-05_jprb,5.9818e-05_jprb,6.9237e-05_jprb/)  
kbo( :, 1,39, 2) = (/&
 & 1.8625e-07_jprb,1.5459e-05_jprb,2.8298e-05_jprb,3.9805e-05_jprb,5.0586e-05_jprb/)  
kbo( :, 2,39, 2) = (/&
 & 2.9016e-07_jprb,1.6986e-05_jprb,3.0594e-05_jprb,4.2577e-05_jprb,5.2943e-05_jprb/)  
kbo( :, 3,39, 2) = (/&
 & 4.4173e-07_jprb,1.8495e-05_jprb,3.2693e-05_jprb,4.4970e-05_jprb,5.4767e-05_jprb/)  
kbo( :, 4,39, 2) = (/&
 & 6.5253e-07_jprb,2.0005e-05_jprb,3.4636e-05_jprb,4.7036e-05_jprb,5.6106e-05_jprb/)  
kbo( :, 5,39, 2) = (/&
 & 9.3398e-07_jprb,2.1545e-05_jprb,3.6467e-05_jprb,4.8821e-05_jprb,5.7052e-05_jprb/)  
kbo( :, 1,40, 2) = (/&
 & 1.3668e-07_jprb,1.2370e-05_jprb,2.2736e-05_jprb,3.2075e-05_jprb,4.1000e-05_jprb/)  
kbo( :, 2,40, 2) = (/&
 & 2.1371e-07_jprb,1.3625e-05_jprb,2.4652e-05_jprb,3.4419e-05_jprb,4.3071e-05_jprb/)  
kbo( :, 3,40, 2) = (/&
 & 3.2755e-07_jprb,1.4863e-05_jprb,2.6404e-05_jprb,3.6442e-05_jprb,4.4686e-05_jprb/)  
kbo( :, 4,40, 2) = (/&
 & 4.8754e-07_jprb,1.6102e-05_jprb,2.8025e-05_jprb,3.8191e-05_jprb,4.5890e-05_jprb/)  
kbo( :, 5,40, 2) = (/&
 & 7.0305e-07_jprb,1.7351e-05_jprb,2.9541e-05_jprb,3.9702e-05_jprb,4.6757e-05_jprb/)  
kbo( :, 1,41, 2) = (/&
 & 9.9669e-08_jprb,9.8770e-06_jprb,1.8228e-05_jprb,2.5797e-05_jprb,3.3169e-05_jprb/)  
kbo( :, 2,41, 2) = (/&
 & 1.5628e-07_jprb,1.0911e-05_jprb,1.9833e-05_jprb,2.7783e-05_jprb,3.4989e-05_jprb/)  
kbo( :, 3,41, 2) = (/&
 & 2.4106e-07_jprb,1.1926e-05_jprb,2.1297e-05_jprb,2.9495e-05_jprb,3.6412e-05_jprb/)  
kbo( :, 4,41, 2) = (/&
 & 3.6163e-07_jprb,1.2938e-05_jprb,2.2645e-05_jprb,3.0975e-05_jprb,3.7495e-05_jprb/)  
kbo( :, 5,41, 2) = (/&
 & 5.2576e-07_jprb,1.3959e-05_jprb,2.3909e-05_jprb,3.2258e-05_jprb,3.8288e-05_jprb/)  
kbo( :, 1,42, 2) = (/&
 & 7.2678e-08_jprb,7.8801e-06_jprb,1.4600e-05_jprb,2.0724e-05_jprb,2.6808e-05_jprb/)  
kbo( :, 2,42, 2) = (/&
 & 1.1413e-07_jprb,8.7322e-06_jprb,1.5944e-05_jprb,2.2404e-05_jprb,2.8406e-05_jprb/)  
kbo( :, 3,42, 2) = (/&
 & 1.7705e-07_jprb,9.5648e-06_jprb,1.7165e-05_jprb,2.3855e-05_jprb,2.9660e-05_jprb/)  
kbo( :, 4,42, 2) = (/&
 & 2.6763e-07_jprb,1.0394e-05_jprb,1.8292e-05_jprb,2.5108e-05_jprb,3.0631e-05_jprb/)  
kbo( :, 5,42, 2) = (/&
 & 3.9231e-07_jprb,1.1225e-05_jprb,1.9340e-05_jprb,2.6194e-05_jprb,3.1357e-05_jprb/)  
kbo( :, 1,43, 2) = (/&
 & 5.1710e-08_jprb,6.2405e-06_jprb,1.1615e-05_jprb,1.6545e-05_jprb,2.1547e-05_jprb/)  
kbo( :, 2,43, 2) = (/&
 & 8.1128e-08_jprb,6.9428e-06_jprb,1.2742e-05_jprb,1.7971e-05_jprb,2.2964e-05_jprb/)  
kbo( :, 3,43, 2) = (/&
 & 1.2657e-07_jprb,7.6287e-06_jprb,1.3773e-05_jprb,1.9217e-05_jprb,2.4086e-05_jprb/)  
kbo( :, 4,43, 2) = (/&
 & 1.9308e-07_jprb,8.3079e-06_jprb,1.4717e-05_jprb,2.0287e-05_jprb,2.4962e-05_jprb/)  
kbo( :, 5,43, 2) = (/&
 & 2.8583e-07_jprb,8.9896e-06_jprb,1.5595e-05_jprb,2.1216e-05_jprb,2.5632e-05_jprb/)  
kbo( :, 1,44, 2) = (/&
 & 3.6495e-08_jprb,4.9199e-06_jprb,9.1989e-06_jprb,1.3152e-05_jprb,1.7255e-05_jprb/)  
kbo( :, 2,44, 2) = (/&
 & 5.6951e-08_jprb,5.5005e-06_jprb,1.0149e-05_jprb,1.4368e-05_jprb,1.8514e-05_jprb/)  
kbo( :, 3,44, 2) = (/&
 & 8.9239e-08_jprb,6.0652e-06_jprb,1.1016e-05_jprb,1.5437e-05_jprb,1.9519e-05_jprb/)  
kbo( :, 4,44, 2) = (/&
 & 1.3737e-07_jprb,6.6226e-06_jprb,1.1811e-05_jprb,1.6355e-05_jprb,2.0314e-05_jprb/)  
kbo( :, 5,44, 2) = (/&
 & 2.0554e-07_jprb,7.1784e-06_jprb,1.2547e-05_jprb,1.7152e-05_jprb,2.0929e-05_jprb/)  
kbo( :, 1,45, 2) = (/&
 & 2.5907e-08_jprb,3.8721e-06_jprb,7.2719e-06_jprb,1.0434e-05_jprb,1.3790e-05_jprb/)  
kbo( :, 2,45, 2) = (/&
 & 3.9986e-08_jprb,4.3511e-06_jprb,8.0697e-06_jprb,1.1466e-05_jprb,1.4905e-05_jprb/)  
kbo( :, 3,45, 2) = (/&
 & 6.2804e-08_jprb,4.8176e-06_jprb,8.8015e-06_jprb,1.2382e-05_jprb,1.5806e-05_jprb/)  
kbo( :, 4,45, 2) = (/&
 & 9.7423e-08_jprb,5.2749e-06_jprb,9.4698e-06_jprb,1.3171e-05_jprb,1.6523e-05_jprb/)  
kbo( :, 5,45, 2) = (/&
 & 1.4724e-07_jprb,5.7306e-06_jprb,1.0089e-05_jprb,1.3855e-05_jprb,1.7089e-05_jprb/)  
kbo( :, 1,46, 2) = (/&
 & 1.8373e-08_jprb,3.0320e-06_jprb,5.7197e-06_jprb,8.2358e-06_jprb,1.0971e-05_jprb/)  
kbo( :, 2,46, 2) = (/&
 & 2.7848e-08_jprb,3.4277e-06_jprb,6.3901e-06_jprb,9.1142e-06_jprb,1.1956e-05_jprb/)  
kbo( :, 3,46, 2) = (/&
 & 4.3687e-08_jprb,3.8134e-06_jprb,7.0085e-06_jprb,9.9001e-06_jprb,1.2766e-05_jprb/)  
kbo( :, 4,46, 2) = (/&
 & 6.8194e-08_jprb,4.1901e-06_jprb,7.5729e-06_jprb,1.0581e-05_jprb,1.3413e-05_jprb/)  
kbo( :, 5,46, 2) = (/&
 & 1.0416e-07_jprb,4.5633e-06_jprb,8.0938e-06_jprb,1.1169e-05_jprb,1.3933e-05_jprb/)  
kbo( :, 1,47, 2) = (/&
 & 1.2986e-08_jprb,2.3533e-06_jprb,4.4615e-06_jprb,6.4491e-06_jprb,8.6543e-06_jprb/)  
kbo( :, 2,47, 2) = (/&
 & 1.9128e-08_jprb,2.6815e-06_jprb,5.0257e-06_jprb,7.1971e-06_jprb,9.5261e-06_jprb/)  
kbo( :, 3,47, 2) = (/&
 & 2.9772e-08_jprb,3.0001e-06_jprb,5.5492e-06_jprb,7.8735e-06_jprb,1.0255e-05_jprb/)  
kbo( :, 4,47, 2) = (/&
 & 4.6702e-08_jprb,3.3116e-06_jprb,6.0282e-06_jprb,8.4652e-06_jprb,1.0843e-05_jprb/)  
kbo( :, 5,47, 2) = (/&
 & 7.2070e-08_jprb,3.6175e-06_jprb,6.4678e-06_jprb,8.9726e-06_jprb,1.1318e-05_jprb/)  
kbo( :, 1,48, 2) = (/&
 & 9.3416e-09_jprb,1.8200e-06_jprb,3.4670e-06_jprb,5.0294e-06_jprb,6.7990e-06_jprb/)  
kbo( :, 2,48, 2) = (/&
 & 1.3255e-08_jprb,2.0919e-06_jprb,3.9405e-06_jprb,5.6643e-06_jprb,7.5695e-06_jprb/)  
kbo( :, 3,48, 2) = (/&
 & 2.0305e-08_jprb,2.3557e-06_jprb,4.3829e-06_jprb,6.2449e-06_jprb,8.2237e-06_jprb/)  
kbo( :, 4,48, 2) = (/&
 & 3.1895e-08_jprb,2.6129e-06_jprb,4.7893e-06_jprb,6.7563e-06_jprb,8.7563e-06_jprb/)  
kbo( :, 5,48, 2) = (/&
 & 4.9634e-08_jprb,2.8647e-06_jprb,5.1614e-06_jprb,7.1978e-06_jprb,9.1908e-06_jprb/)  
kbo( :, 1,49, 2) = (/&
 & 6.8359e-09_jprb,1.4019e-06_jprb,2.6826e-06_jprb,3.9057e-06_jprb,5.3233e-06_jprb/)  
kbo( :, 2,49, 2) = (/&
 & 9.2996e-09_jprb,1.6269e-06_jprb,3.0793e-06_jprb,4.4431e-06_jprb,6.0005e-06_jprb/)  
kbo( :, 3,49, 2) = (/&
 & 1.3902e-08_jprb,1.8452e-06_jprb,3.4523e-06_jprb,4.9386e-06_jprb,6.5835e-06_jprb/)  
kbo( :, 4,49, 2) = (/&
 & 2.1742e-08_jprb,2.0580e-06_jprb,3.7970e-06_jprb,5.3806e-06_jprb,7.0678e-06_jprb/)  
kbo( :, 5,49, 2) = (/&
 & 3.4035e-08_jprb,2.2660e-06_jprb,4.1122e-06_jprb,5.7639e-06_jprb,7.4641e-06_jprb/)  
kbo( :, 1,50, 2) = (/&
 & 5.1178e-09_jprb,1.0792e-06_jprb,2.0739e-06_jprb,3.0301e-06_jprb,4.1532e-06_jprb/)  
kbo( :, 2,50, 2) = (/&
 & 6.6862e-09_jprb,1.2653e-06_jprb,2.4055e-06_jprb,3.4823e-06_jprb,4.7385e-06_jprb/)  
kbo( :, 3,50, 2) = (/&
 & 9.6897e-09_jprb,1.4463e-06_jprb,2.7192e-06_jprb,3.9039e-06_jprb,5.2519e-06_jprb/)  
kbo( :, 4,50, 2) = (/&
 & 1.4989e-08_jprb,1.6221e-06_jprb,3.0101e-06_jprb,4.2829e-06_jprb,5.6841e-06_jprb/)  
kbo( :, 5,50, 2) = (/&
 & 2.3540e-08_jprb,1.7939e-06_jprb,3.2769e-06_jprb,4.6145e-06_jprb,6.0402e-06_jprb/)  
kbo( :, 1,51, 2) = (/&
 & 3.8928e-09_jprb,8.2870e-07_jprb,1.5995e-06_jprb,2.3444e-06_jprb,3.2274e-06_jprb/)  
kbo( :, 2,51, 2) = (/&
 & 4.8976e-09_jprb,9.8251e-07_jprb,1.8756e-06_jprb,2.7234e-06_jprb,3.7274e-06_jprb/)  
kbo( :, 3,51, 2) = (/&
 & 6.8457e-09_jprb,1.1323e-06_jprb,2.1385e-06_jprb,3.0800e-06_jprb,4.1752e-06_jprb/)  
kbo( :, 4,51, 2) = (/&
 & 1.0404e-08_jprb,1.2777e-06_jprb,2.3837e-06_jprb,3.4044e-06_jprb,4.5574e-06_jprb/)  
kbo( :, 5,51, 2) = (/&
 & 1.6329e-08_jprb,1.4195e-06_jprb,2.6091e-06_jprb,3.6893e-06_jprb,4.8743e-06_jprb/)  
kbo( :, 1,52, 2) = (/&
 & 3.0020e-09_jprb,6.3363e-07_jprb,1.2279e-06_jprb,1.8052e-06_jprb,2.4975e-06_jprb/)  
kbo( :, 2,52, 2) = (/&
 & 3.6400e-09_jprb,7.6019e-07_jprb,1.4569e-06_jprb,2.1220e-06_jprb,2.9231e-06_jprb/)  
kbo( :, 3,52, 2) = (/&
 & 4.8925e-09_jprb,8.8432e-07_jprb,1.6773e-06_jprb,2.4234e-06_jprb,3.3127e-06_jprb/)  
kbo( :, 4,52, 2) = (/&
 & 7.2540e-09_jprb,1.0045e-06_jprb,1.8834e-06_jprb,2.6996e-06_jprb,3.6485e-06_jprb/)  
kbo( :, 5,52, 2) = (/&
 & 1.1316e-08_jprb,1.1218e-06_jprb,2.0739e-06_jprb,2.9444e-06_jprb,3.9318e-06_jprb/)  
kbo( :, 1,53, 2) = (/&
 & 2.3480e-09_jprb,4.8194e-07_jprb,9.3751e-07_jprb,1.3817e-06_jprb,1.9236e-06_jprb/)  
kbo( :, 2,53, 2) = (/&
 & 2.7431e-09_jprb,5.8562e-07_jprb,1.1268e-06_jprb,1.6465e-06_jprb,2.2857e-06_jprb/)  
kbo( :, 3,53, 2) = (/&
 & 3.5464e-09_jprb,6.8845e-07_jprb,1.3110e-06_jprb,1.8999e-06_jprb,2.6221e-06_jprb/)  
kbo( :, 4,53, 2) = (/&
 & 5.0907e-09_jprb,7.8797e-07_jprb,1.4844e-06_jprb,2.1348e-06_jprb,2.9184e-06_jprb/)  
kbo( :, 5,53, 2) = (/&
 & 7.8410e-09_jprb,8.8479e-07_jprb,1.6450e-06_jprb,2.3447e-06_jprb,3.1713e-06_jprb/)  
kbo( :, 1,54, 2) = (/&
 & 1.8594e-09_jprb,3.6706e-07_jprb,7.1625e-07_jprb,1.0575e-06_jprb,1.4721e-06_jprb/)  
kbo( :, 2,54, 2) = (/&
 & 2.1055e-09_jprb,4.5181e-07_jprb,8.7256e-07_jprb,1.2786e-06_jprb,1.7762e-06_jprb/)  
kbo( :, 3,54, 2) = (/&
 & 2.6291e-09_jprb,5.3666e-07_jprb,1.0257e-06_jprb,1.4904e-06_jprb,2.0598e-06_jprb/)  
kbo( :, 4,54, 2) = (/&
 & 3.6482e-09_jprb,6.1906e-07_jprb,1.1709e-06_jprb,1.6887e-06_jprb,2.3147e-06_jprb/)  
kbo( :, 5,54, 2) = (/&
 & 5.5210e-09_jprb,6.9901e-07_jprb,1.3059e-06_jprb,1.8680e-06_jprb,2.5342e-06_jprb/)  
kbo( :, 1,55, 2) = (/&
 & 1.4849e-09_jprb,2.7894e-07_jprb,5.4560e-07_jprb,8.0660e-07_jprb,1.1188e-06_jprb/)  

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


SUBROUTINE part15

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


kbo( :, 2,55, 2) = (/&
 & 1.6383e-09_jprb,3.4819e-07_jprb,6.7462e-07_jprb,9.9127e-07_jprb,1.3721e-06_jprb/)  
kbo( :, 3,55, 2) = (/&
 & 1.9800e-09_jprb,4.1799e-07_jprb,8.0161e-07_jprb,1.1677e-06_jprb,1.6084e-06_jprb/)  
kbo( :, 4,55, 2) = (/&
 & 2.6536e-09_jprb,4.8615e-07_jprb,9.2306e-07_jprb,1.3349e-06_jprb,1.8249e-06_jprb/)  
kbo( :, 5,55, 2) = (/&
 & 3.9260e-09_jprb,5.5226e-07_jprb,1.0363e-06_jprb,1.4870e-06_jprb,2.0117e-06_jprb/)  
kbo( :, 1,56, 2) = (/&
 & 1.1936e-09_jprb,2.1075e-07_jprb,4.1302e-07_jprb,6.1132e-07_jprb,8.4513e-07_jprb/)  
kbo( :, 2,56, 2) = (/&
 & 1.2886e-09_jprb,2.6729e-07_jprb,5.1942e-07_jprb,7.6519e-07_jprb,1.0555e-06_jprb/)  
kbo( :, 3,56, 2) = (/&
 & 1.5077e-09_jprb,3.2455e-07_jprb,6.2452e-07_jprb,9.1202e-07_jprb,1.2523e-06_jprb/)  
kbo( :, 4,56, 2) = (/&
 & 1.9525e-09_jprb,3.8098e-07_jprb,7.2592e-07_jprb,1.0524e-06_jprb,1.4345e-06_jprb/)  
kbo( :, 5,56, 2) = (/&
 & 2.8077e-09_jprb,4.3561e-07_jprb,8.2084e-07_jprb,1.1815e-06_jprb,1.5940e-06_jprb/)  
kbo( :, 1,57, 2) = (/&
 & 9.6583e-10_jprb,1.5815e-07_jprb,3.1044e-07_jprb,4.6005e-07_jprb,6.3408e-07_jprb/)  
kbo( :, 2,57, 2) = (/&
 & 1.0215e-09_jprb,2.0426e-07_jprb,3.9810e-07_jprb,5.8767e-07_jprb,8.0766e-07_jprb/)  
kbo( :, 3,57, 2) = (/&
 & 1.1597e-09_jprb,2.5112e-07_jprb,4.8491e-07_jprb,7.0984e-07_jprb,9.7174e-07_jprb/)  
kbo( :, 4,57, 2) = (/&
 & 1.4523e-09_jprb,2.9779e-07_jprb,5.6934e-07_jprb,8.2739e-07_jprb,1.1242e-06_jprb/)  
kbo( :, 5,57, 2) = (/&
 & 2.0219e-09_jprb,3.4296e-07_jprb,6.4886e-07_jprb,9.3651e-07_jprb,1.2602e-06_jprb/)  
kbo( :, 1,58, 2) = (/&
 & 7.8662e-10_jprb,1.1835e-07_jprb,2.3255e-07_jprb,3.4498e-07_jprb,4.7381e-07_jprb/)  
kbo( :, 2,58, 2) = (/&
 & 8.1625e-10_jprb,1.5593e-07_jprb,3.0466e-07_jprb,4.5040e-07_jprb,6.1632e-07_jprb/)  
kbo( :, 3,58, 2) = (/&
 & 9.0341e-10_jprb,1.9427e-07_jprb,3.7628e-07_jprb,5.5215e-07_jprb,7.5284e-07_jprb/)  
kbo( :, 4,58, 2) = (/&
 & 1.0971e-09_jprb,2.3273e-07_jprb,4.4632e-07_jprb,6.5008e-07_jprb,8.7941e-07_jprb/)  
kbo( :, 5,58, 2) = (/&
 & 1.4779e-09_jprb,2.7004e-07_jprb,5.1274e-07_jprb,7.4188e-07_jprb,9.9429e-07_jprb/)  
kbo( :, 1,59, 2) = (/&
 & 6.4355e-10_jprb,9.3344e-08_jprb,1.8349e-07_jprb,2.7230e-07_jprb,3.7011e-07_jprb/)  
kbo( :, 2,59, 2) = (/&
 & 6.6262e-10_jprb,1.2407e-07_jprb,2.4261e-07_jprb,3.5886e-07_jprb,4.8556e-07_jprb/)  
kbo( :, 3,59, 2) = (/&
 & 7.2712e-10_jprb,1.5550e-07_jprb,3.0153e-07_jprb,4.4284e-07_jprb,5.9628e-07_jprb/)  
kbo( :, 4,59, 2) = (/&
 & 8.7156e-10_jprb,1.8704e-07_jprb,3.5919e-07_jprb,5.2368e-07_jprb,6.9842e-07_jprb/)  
kbo( :, 5,59, 2) = (/&
 & 1.1587e-09_jprb,2.1775e-07_jprb,4.1408e-07_jprb,5.9979e-07_jprb,7.9133e-07_jprb/)  
kbo( :, 1,13, 3) = (/&
 & 2.0353e-05_jprb,5.6795e-03_jprb,1.0879e-02_jprb,1.5836e-02_jprb,2.0631e-02_jprb/)  
kbo( :, 2,13, 3) = (/&
 & 3.3777e-05_jprb,6.5066e-03_jprb,1.2221e-02_jprb,1.7564e-02_jprb,2.2630e-02_jprb/)  
kbo( :, 3,13, 3) = (/&
 & 5.9522e-05_jprb,7.3512e-03_jprb,1.3499e-02_jprb,1.9109e-02_jprb,2.4328e-02_jprb/)  
kbo( :, 4,13, 3) = (/&
 & 1.0349e-04_jprb,8.2028e-03_jprb,1.4689e-02_jprb,2.0461e-02_jprb,2.5718e-02_jprb/)  
kbo( :, 5,13, 3) = (/&
 & 1.7303e-04_jprb,9.0516e-03_jprb,1.5806e-02_jprb,2.1651e-02_jprb,2.6820e-02_jprb/)  
kbo( :, 1,14, 3) = (/&
 & 1.7783e-05_jprb,4.9056e-03_jprb,9.3358e-03_jprb,1.3535e-02_jprb,1.7457e-02_jprb/)  
kbo( :, 2,14, 3) = (/&
 & 3.0011e-05_jprb,5.5977e-03_jprb,1.0428e-02_jprb,1.4906e-02_jprb,1.8958e-02_jprb/)  
kbo( :, 3,14, 3) = (/&
 & 5.3112e-05_jprb,6.2970e-03_jprb,1.1454e-02_jprb,1.6118e-02_jprb,2.0210e-02_jprb/)  
kbo( :, 4,14, 3) = (/&
 & 9.2284e-05_jprb,6.9980e-03_jprb,1.2425e-02_jprb,1.7194e-02_jprb,2.1221e-02_jprb/)  
kbo( :, 5,14, 3) = (/&
 & 1.5395e-04_jprb,7.6990e-03_jprb,1.3352e-02_jprb,1.8155e-02_jprb,2.2006e-02_jprb/)  
kbo( :, 1,15, 3) = (/&
 & 1.5619e-05_jprb,4.1987e-03_jprb,7.9342e-03_jprb,1.1456e-02_jprb,1.4646e-02_jprb/)  
kbo( :, 2,15, 3) = (/&
 & 2.6774e-05_jprb,4.7704e-03_jprb,8.8150e-03_jprb,1.2537e-02_jprb,1.5771e-02_jprb/)  
kbo( :, 3,15, 3) = (/&
 & 4.7563e-05_jprb,5.3462e-03_jprb,9.6501e-03_jprb,1.3503e-02_jprb,1.6713e-02_jprb/)  
kbo( :, 4,15, 3) = (/&
 & 8.2516e-05_jprb,5.9238e-03_jprb,1.0452e-02_jprb,1.4374e-02_jprb,1.7466e-02_jprb/)  
kbo( :, 5,15, 3) = (/&
 & 1.3728e-04_jprb,6.5026e-03_jprb,1.1222e-02_jprb,1.5161e-02_jprb,1.8044e-02_jprb/)  
kbo( :, 1,16, 3) = (/&
 & 1.3779e-05_jprb,3.5660e-03_jprb,6.6881e-03_jprb,9.6171e-03_jprb,1.2220e-02_jprb/)  
kbo( :, 2,16, 3) = (/&
 & 2.3944e-05_jprb,4.0358e-03_jprb,7.4057e-03_jprb,1.0483e-02_jprb,1.3089e-02_jprb/)  
kbo( :, 3,16, 3) = (/&
 & 4.2620e-05_jprb,4.5089e-03_jprb,8.0943e-03_jprb,1.1266e-02_jprb,1.3818e-02_jprb/)  
kbo( :, 4,16, 3) = (/&
 & 7.3893e-05_jprb,4.9861e-03_jprb,8.7577e-03_jprb,1.1978e-02_jprb,1.4391e-02_jprb/)  
kbo( :, 5,16, 3) = (/&
 & 1.2258e-04_jprb,5.4637e-03_jprb,9.3940e-03_jprb,1.2628e-02_jprb,1.4828e-02_jprb/)  
kbo( :, 1,17, 3) = (/&
 & 1.2160e-05_jprb,3.0074e-03_jprb,5.6060e-03_jprb,8.0296e-03_jprb,1.0147e-02_jprb/)  
kbo( :, 2,17, 3) = (/&
 & 2.1375e-05_jprb,3.3935e-03_jprb,6.1972e-03_jprb,8.7313e-03_jprb,1.0830e-02_jprb/)  
kbo( :, 3,17, 3) = (/&
 & 3.8127e-05_jprb,3.7835e-03_jprb,6.7643e-03_jprb,9.3718e-03_jprb,1.1398e-02_jprb/)  
kbo( :, 4,17, 3) = (/&
 & 6.6011e-05_jprb,4.1770e-03_jprb,7.3104e-03_jprb,9.9575e-03_jprb,1.1840e-02_jprb/)  
kbo( :, 5,17, 3) = (/&
 & 1.0918e-04_jprb,4.5738e-03_jprb,7.8339e-03_jprb,1.0495e-02_jprb,1.2173e-02_jprb/)  
kbo( :, 1,18, 3) = (/&
 & 1.0748e-05_jprb,2.5245e-03_jprb,4.6847e-03_jprb,6.6825e-03_jprb,8.4030e-03_jprb/)  
kbo( :, 2,18, 3) = (/&
 & 1.9076e-05_jprb,2.8417e-03_jprb,5.1713e-03_jprb,7.2560e-03_jprb,8.9449e-03_jprb/)  
kbo( :, 3,18, 3) = (/&
 & 3.4073e-05_jprb,3.1636e-03_jprb,5.6356e-03_jprb,7.7811e-03_jprb,9.3891e-03_jprb/)  
kbo( :, 4,18, 3) = (/&
 & 5.8868e-05_jprb,3.4883e-03_jprb,6.0850e-03_jprb,8.2633e-03_jprb,9.7334e-03_jprb/)  
kbo( :, 5,18, 3) = (/&
 & 9.7060e-05_jprb,3.8208e-03_jprb,6.5140e-03_jprb,8.7058e-03_jprb,9.9894e-03_jprb/)  
kbo( :, 1,19, 3) = (/&
 & 9.4932e-06_jprb,2.1111e-03_jprb,3.9060e-03_jprb,5.5505e-03_jprb,6.9419e-03_jprb/)  
kbo( :, 2,19, 3) = (/&
 & 1.6990e-05_jprb,2.3724e-03_jprb,4.3041e-03_jprb,6.0210e-03_jprb,7.3719e-03_jprb/)  
kbo( :, 3,19, 3) = (/&
 & 3.0379e-05_jprb,2.6375e-03_jprb,4.6850e-03_jprb,6.4526e-03_jprb,7.7206e-03_jprb/)  
kbo( :, 4,19, 3) = (/&
 & 5.2318e-05_jprb,2.9073e-03_jprb,5.0535e-03_jprb,6.8468e-03_jprb,7.9880e-03_jprb/)  
kbo( :, 5,19, 3) = (/&
 & 8.5851e-05_jprb,3.1863e-03_jprb,5.4069e-03_jprb,7.2090e-03_jprb,8.1842e-03_jprb/)  
kbo( :, 1,20, 3) = (/&
 & 8.4621e-06_jprb,1.7648e-03_jprb,3.2563e-03_jprb,4.6122e-03_jprb,5.7360e-03_jprb/)  
kbo( :, 2,20, 3) = (/&
 & 1.5250e-05_jprb,1.9802e-03_jprb,3.5810e-03_jprb,4.9972e-03_jprb,6.0779e-03_jprb/)  
kbo( :, 3,20, 3) = (/&
 & 2.7245e-05_jprb,2.1990e-03_jprb,3.8932e-03_jprb,5.3488e-03_jprb,6.3511e-03_jprb/)  
kbo( :, 4,20, 3) = (/&
 & 4.6707e-05_jprb,2.4242e-03_jprb,4.1953e-03_jprb,5.6710e-03_jprb,6.5600e-03_jprb/)  
kbo( :, 5,20, 3) = (/&
 & 7.6165e-05_jprb,2.6575e-03_jprb,4.4893e-03_jprb,5.9661e-03_jprb,6.7108e-03_jprb/)  
kbo( :, 1,21, 3) = (/&
 & 7.5453e-06_jprb,1.4733e-03_jprb,2.7104e-03_jprb,3.8302e-03_jprb,4.7372e-03_jprb/)  
kbo( :, 2,21, 3) = (/&
 & 1.3660e-05_jprb,1.6505e-03_jprb,2.9759e-03_jprb,4.1434e-03_jprb,5.0081e-03_jprb/)  
kbo( :, 3,21, 3) = (/&
 & 2.4360e-05_jprb,1.8325e-03_jprb,3.2316e-03_jprb,4.4300e-03_jprb,5.2232e-03_jprb/)  
kbo( :, 4,21, 3) = (/&
 & 4.1539e-05_jprb,2.0202e-03_jprb,3.4804e-03_jprb,4.6921e-03_jprb,5.3862e-03_jprb/)  
kbo( :, 5,21, 3) = (/&
 & 6.7226e-05_jprb,2.2135e-03_jprb,3.7240e-03_jprb,4.9321e-03_jprb,5.5010e-03_jprb/)  
kbo( :, 1,22, 3) = (/&
 & 6.9875e-06_jprb,1.2377e-03_jprb,2.2680e-03_jprb,3.1957e-03_jprb,3.9253e-03_jprb/)  
kbo( :, 2,22, 3) = (/&
 & 1.2689e-05_jprb,1.3846e-03_jprb,2.4844e-03_jprb,3.4484e-03_jprb,4.1374e-03_jprb/)  
kbo( :, 3,22, 3) = (/&
 & 2.2485e-05_jprb,1.5363e-03_jprb,2.6941e-03_jprb,3.6801e-03_jprb,4.3039e-03_jprb/)  
kbo( :, 4,22, 3) = (/&
 & 3.7954e-05_jprb,1.6925e-03_jprb,2.8992e-03_jprb,3.8918e-03_jprb,4.4280e-03_jprb/)  
kbo( :, 5,22, 3) = (/&
 & 6.0729e-05_jprb,1.8529e-03_jprb,3.1002e-03_jprb,4.0883e-03_jprb,4.5144e-03_jprb/)  
kbo( :, 1,23, 3) = (/&
 & 6.4953e-06_jprb,1.0396e-03_jprb,1.8968e-03_jprb,2.6642e-03_jprb,3.2502e-03_jprb/)  
kbo( :, 2,23, 3) = (/&
 & 1.1793e-05_jprb,1.1619e-03_jprb,2.0732e-03_jprb,2.8684e-03_jprb,3.4159e-03_jprb/)  
kbo( :, 3,23, 3) = (/&
 & 2.0715e-05_jprb,1.2879e-03_jprb,2.2459e-03_jprb,3.0558e-03_jprb,3.5445e-03_jprb/)  
kbo( :, 4,23, 3) = (/&
 & 3.4551e-05_jprb,1.4176e-03_jprb,2.4147e-03_jprb,3.2275e-03_jprb,3.6395e-03_jprb/)  
kbo( :, 5,23, 3) = (/&
 & 5.4641e-05_jprb,1.5512e-03_jprb,2.5804e-03_jprb,3.3885e-03_jprb,3.7034e-03_jprb/)  
kbo( :, 1,24, 3) = (/&
 & 6.0670e-06_jprb,8.7365e-04_jprb,1.5859e-03_jprb,2.2204e-03_jprb,2.6897e-03_jprb/)  
kbo( :, 2,24, 3) = (/&
 & 1.0981e-05_jprb,9.7532e-04_jprb,1.7303e-03_jprb,2.3852e-03_jprb,2.8188e-03_jprb/)  
kbo( :, 3,24, 3) = (/&
 & 1.9078e-05_jprb,1.0799e-03_jprb,1.8727e-03_jprb,2.5367e-03_jprb,2.9175e-03_jprb/)  
kbo( :, 4,24, 3) = (/&
 & 3.1407e-05_jprb,1.1876e-03_jprb,2.0114e-03_jprb,2.6770e-03_jprb,2.9899e-03_jprb/)  
kbo( :, 5,24, 3) = (/&
 & 4.9067e-05_jprb,1.2997e-03_jprb,2.1481e-03_jprb,2.8086e-03_jprb,3.0371e-03_jprb/)  
kbo( :, 1,25, 3) = (/&
 & 5.6989e-06_jprb,7.3485e-04_jprb,1.3264e-03_jprb,1.8506e-03_jprb,2.2259e-03_jprb/)  
kbo( :, 2,25, 3) = (/&
 & 1.0240e-05_jprb,8.1910e-04_jprb,1.4452e-03_jprb,1.9836e-03_jprb,2.3255e-03_jprb/)  
kbo( :, 3,25, 3) = (/&
 & 1.7580e-05_jprb,9.0587e-04_jprb,1.5621e-03_jprb,2.1066e-03_jprb,2.4014e-03_jprb/)  
kbo( :, 4,25, 3) = (/&
 & 2.8572e-05_jprb,9.9581e-04_jprb,1.6762e-03_jprb,2.2210e-03_jprb,2.4559e-03_jprb/)  
kbo( :, 5,25, 3) = (/&
 & 4.4075e-05_jprb,1.0904e-03_jprb,1.7895e-03_jprb,2.3285e-03_jprb,2.4904e-03_jprb/)  
kbo( :, 1,26, 3) = (/&
 & 5.4044e-06_jprb,6.1917e-04_jprb,1.1109e-03_jprb,1.5435e-03_jprb,1.8428e-03_jprb/)  
kbo( :, 2,26, 3) = (/&
 & 9.6129e-06_jprb,6.8903e-04_jprb,1.2086e-03_jprb,1.6510e-03_jprb,1.9194e-03_jprb/)  
kbo( :, 3,26, 3) = (/&
 & 1.6279e-05_jprb,7.6112e-04_jprb,1.3044e-03_jprb,1.7509e-03_jprb,1.9770e-03_jprb/)  
kbo( :, 4,26, 3) = (/&
 & 2.6098e-05_jprb,8.3688e-04_jprb,1.3985e-03_jprb,1.8442e-03_jprb,2.0178e-03_jprb/)  
kbo( :, 5,26, 3) = (/&
 & 3.9757e-05_jprb,9.1748e-04_jprb,1.4931e-03_jprb,1.9319e-03_jprb,2.0426e-03_jprb/)  
kbo( :, 1,27, 3) = (/&
 & 5.1208e-06_jprb,5.2155e-04_jprb,9.3033e-04_jprb,1.2869e-03_jprb,1.5252e-03_jprb/)  
kbo( :, 2,27, 3) = (/&
 & 9.0050e-06_jprb,5.7947e-04_jprb,1.0106e-03_jprb,1.3741e-03_jprb,1.5841e-03_jprb/)  
kbo( :, 3,27, 3) = (/&
 & 1.5028e-05_jprb,6.3999e-04_jprb,1.0891e-03_jprb,1.4551e-03_jprb,1.6279e-03_jprb/)  
kbo( :, 4,27, 3) = (/&
 & 2.3771e-05_jprb,7.0422e-04_jprb,1.1674e-03_jprb,1.5313e-03_jprb,1.6583e-03_jprb/)  
kbo( :, 5,27, 3) = (/&
 & 3.5789e-05_jprb,7.7220e-04_jprb,1.2465e-03_jprb,1.6033e-03_jprb,1.6759e-03_jprb/)  
kbo( :, 1,28, 3) = (/&
 & 4.8426e-06_jprb,4.3932e-04_jprb,7.7909e-04_jprb,1.0728e-03_jprb,1.2619e-03_jprb/)  
kbo( :, 2,28, 3) = (/&
 & 8.4123e-06_jprb,4.8757e-04_jprb,8.4493e-04_jprb,1.1435e-03_jprb,1.3071e-03_jprb/)  
kbo( :, 3,28, 3) = (/&
 & 1.3833e-05_jprb,5.3874e-04_jprb,9.0955e-04_jprb,1.2094e-03_jprb,1.3406e-03_jprb/)  
kbo( :, 4,28, 3) = (/&
 & 2.1607e-05_jprb,5.9328e-04_jprb,9.7513e-04_jprb,1.2716e-03_jprb,1.3629e-03_jprb/)  
kbo( :, 5,28, 3) = (/&
 & 3.2146e-05_jprb,6.4978e-04_jprb,1.0416e-03_jprb,1.3310e-03_jprb,1.3752e-03_jprb/)  
kbo( :, 1,29, 3) = (/&
 & 4.5849e-06_jprb,3.7023e-04_jprb,6.5264e-04_jprb,8.9457e-04_jprb,1.0445e-03_jprb/)  
kbo( :, 2,29, 3) = (/&
 & 7.8572e-06_jprb,4.1089e-04_jprb,7.0665e-04_jprb,9.5187e-04_jprb,1.0793e-03_jprb/)  
kbo( :, 3,29, 3) = (/&
 & 1.2741e-05_jprb,4.5436e-04_jprb,7.6034e-04_jprb,1.0055e-03_jprb,1.1048e-03_jprb/)  
kbo( :, 4,29, 3) = (/&
 & 1.9649e-05_jprb,4.9998e-04_jprb,8.1550e-04_jprb,1.0566e-03_jprb,1.1213e-03_jprb/)  
kbo( :, 5,29, 3) = (/&
 & 2.8896e-05_jprb,5.4682e-04_jprb,8.7093e-04_jprb,1.1060e-03_jprb,1.1298e-03_jprb/)  
kbo( :, 1,30, 3) = (/&
 & 4.3297e-06_jprb,3.1217e-04_jprb,5.4663e-04_jprb,7.4580e-04_jprb,8.6464e-04_jprb/)  
kbo( :, 2,30, 3) = (/&
 & 7.3120e-06_jprb,3.4668e-04_jprb,5.9106e-04_jprb,7.9232e-04_jprb,8.9143e-04_jprb/)  
kbo( :, 3,30, 3) = (/&
 & 1.1705e-05_jprb,3.8338e-04_jprb,6.3627e-04_jprb,8.3604e-04_jprb,9.1074e-04_jprb/)  
kbo( :, 4,30, 3) = (/&
 & 1.7828e-05_jprb,4.2125e-04_jprb,6.8249e-04_jprb,8.7824e-04_jprb,9.2283e-04_jprb/)  
kbo( :, 5,30, 3) = (/&
 & 2.5924e-05_jprb,4.5966e-04_jprb,7.2827e-04_jprb,9.1964e-04_jprb,9.2875e-04_jprb/)  
kbo( :, 1,31, 3) = (/&
 & 4.0874e-06_jprb,2.6368e-04_jprb,4.5791e-04_jprb,6.2183e-04_jprb,7.1613e-04_jprb/)  
kbo( :, 2,31, 3) = (/&
 & 6.8015e-06_jprb,2.9293e-04_jprb,4.9490e-04_jprb,6.5949e-04_jprb,7.3687e-04_jprb/)  
kbo( :, 3,31, 3) = (/&
 & 1.0746e-05_jprb,3.2348e-04_jprb,5.3298e-04_jprb,6.9547e-04_jprb,7.5159e-04_jprb/)  
kbo( :, 4,31, 3) = (/&
 & 1.6163e-05_jprb,3.5480e-04_jprb,5.7136e-04_jprb,7.3073e-04_jprb,7.6056e-04_jprb/)  
kbo( :, 5,31, 3) = (/&
 & 2.3251e-05_jprb,3.8597e-04_jprb,6.0897e-04_jprb,7.6515e-04_jprb,7.6467e-04_jprb/)  
kbo( :, 1,32, 3) = (/&
 & 3.8514e-06_jprb,2.2297e-04_jprb,3.8374e-04_jprb,5.1829e-04_jprb,5.9305e-04_jprb/)  
kbo( :, 2,32, 3) = (/&
 & 6.3168e-06_jprb,2.4754e-04_jprb,4.1485e-04_jprb,5.4904e-04_jprb,6.0924e-04_jprb/)  
kbo( :, 3,32, 3) = (/&
 & 9.8501e-06_jprb,2.7292e-04_jprb,4.4681e-04_jprb,5.7897e-04_jprb,6.2044e-04_jprb/)  
kbo( :, 4,32, 3) = (/&
 & 1.4638e-05_jprb,2.9846e-04_jprb,4.7840e-04_jprb,6.0852e-04_jprb,6.2707e-04_jprb/)  
kbo( :, 5,32, 3) = (/&
 & 2.0831e-05_jprb,3.2361e-04_jprb,5.0883e-04_jprb,6.3658e-04_jprb,6.2999e-04_jprb/)  
kbo( :, 1,33, 3) = (/&
 & 3.6163e-06_jprb,1.8866e-04_jprb,3.2190e-04_jprb,4.3205e-04_jprb,4.9144e-04_jprb/)  
kbo( :, 2,33, 3) = (/&
 & 5.8503e-06_jprb,2.0912e-04_jprb,3.4811e-04_jprb,4.5736e-04_jprb,5.0397e-04_jprb/)  
kbo( :, 3,33, 3) = (/&
 & 9.0067e-06_jprb,2.2999e-04_jprb,3.7456e-04_jprb,4.8239e-04_jprb,5.1238e-04_jprb/)  
kbo( :, 4,33, 3) = (/&
 & 1.3226e-05_jprb,2.5067e-04_jprb,4.0039e-04_jprb,5.0676e-04_jprb,5.1732e-04_jprb/)  
kbo( :, 5,33, 3) = (/&
 & 1.8631e-05_jprb,2.7107e-04_jprb,4.2476e-04_jprb,5.2963e-04_jprb,5.1944e-04_jprb/)  
kbo( :, 1,34, 3) = (/&
 & 3.3238e-06_jprb,1.5902e-04_jprb,2.6946e-04_jprb,3.5933e-04_jprb,4.0648e-04_jprb/)  
kbo( :, 2,34, 3) = (/&
 & 5.3166e-06_jprb,1.7590e-04_jprb,2.9135e-04_jprb,3.8047e-04_jprb,4.1623e-04_jprb/)  
kbo( :, 3,34, 3) = (/&
 & 8.0935e-06_jprb,1.9289e-04_jprb,3.1309e-04_jprb,4.0135e-04_jprb,4.2273e-04_jprb/)  
kbo( :, 4,34, 3) = (/&
 & 1.1767e-05_jprb,2.0963e-04_jprb,3.3398e-04_jprb,4.2136e-04_jprb,4.2646e-04_jprb/)  
kbo( :, 5,34, 3) = (/&
 & 1.6441e-05_jprb,2.2628e-04_jprb,3.5340e-04_jprb,4.3976e-04_jprb,4.2791e-04_jprb/)  
kbo( :, 1,35, 3) = (/&
 & 2.9067e-06_jprb,1.3259e-04_jprb,2.2393e-04_jprb,2.9733e-04_jprb,3.3540e-04_jprb/)  
kbo( :, 2,35, 3) = (/&
 & 4.6187e-06_jprb,1.4644e-04_jprb,2.4206e-04_jprb,3.1503e-04_jprb,3.4321e-04_jprb/)  
kbo( :, 3,35, 3) = (/&
 & 6.9869e-06_jprb,1.6027e-04_jprb,2.5990e-04_jprb,3.3236e-04_jprb,3.4842e-04_jprb/)  
kbo( :, 4,35, 3) = (/&
 & 1.0104e-05_jprb,1.7387e-04_jprb,2.7672e-04_jprb,3.4881e-04_jprb,3.5145e-04_jprb/)  
kbo( :, 5,35, 3) = (/&
 & 1.4052e-05_jprb,1.8746e-04_jprb,2.9226e-04_jprb,3.6359e-04_jprb,3.5262e-04_jprb/)  
kbo( :, 1,36, 3) = (/&
 & 2.4089e-06_jprb,1.0927e-04_jprb,1.8451e-04_jprb,2.4455e-04_jprb,2.7594e-04_jprb/)  
kbo( :, 2,36, 3) = (/&
 & 3.8233e-06_jprb,1.2060e-04_jprb,1.9949e-04_jprb,2.5938e-04_jprb,2.8242e-04_jprb/)  
kbo( :, 3,36, 3) = (/&
 & 5.7778e-06_jprb,1.3185e-04_jprb,2.1404e-04_jprb,2.7372e-04_jprb,2.8680e-04_jprb/)  
kbo( :, 4,36, 3) = (/&
 & 8.3484e-06_jprb,1.4295e-04_jprb,2.2765e-04_jprb,2.8727e-04_jprb,2.8945e-04_jprb/)  
kbo( :, 5,36, 3) = (/&
 & 1.1603e-05_jprb,1.5407e-04_jprb,2.4022e-04_jprb,2.9918e-04_jprb,2.9054e-04_jprb/)  
kbo( :, 1,37, 3) = (/&
 & 1.8525e-06_jprb,8.8636e-05_jprb,1.5015e-04_jprb,1.9932e-04_jprb,2.2585e-04_jprb/)  

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


SUBROUTINE part16

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


kbo( :, 2,37, 3) = (/&
 & 2.9593e-06_jprb,9.7894e-05_jprb,1.6249e-04_jprb,2.1170e-04_jprb,2.3148e-04_jprb/)  
kbo( :, 3,37, 3) = (/&
 & 4.5018e-06_jprb,1.0706e-04_jprb,1.7444e-04_jprb,2.2370e-04_jprb,2.3543e-04_jprb/)  
kbo( :, 4,37, 3) = (/&
 & 6.5383e-06_jprb,1.1615e-04_jprb,1.8559e-04_jprb,2.3492e-04_jprb,2.3791e-04_jprb/)  
kbo( :, 5,37, 3) = (/&
 & 9.1296e-06_jprb,1.2523e-04_jprb,1.9593e-04_jprb,2.4478e-04_jprb,2.3911e-04_jprb/)  
kbo( :, 1,38, 3) = (/&
 & 1.4171e-06_jprb,7.1807e-05_jprb,1.2206e-04_jprb,1.6233e-04_jprb,1.8481e-04_jprb/)  
kbo( :, 2,38, 3) = (/&
 & 2.2804e-06_jprb,7.9379e-05_jprb,1.3224e-04_jprb,1.7271e-04_jprb,1.8979e-04_jprb/)  
kbo( :, 3,38, 3) = (/&
 & 3.4913e-06_jprb,8.6867e-05_jprb,1.4204e-04_jprb,1.8270e-04_jprb,1.9335e-04_jprb/)  
kbo( :, 4,38, 3) = (/&
 & 5.1024e-06_jprb,9.4294e-05_jprb,1.5119e-04_jprb,1.9201e-04_jprb,1.9566e-04_jprb/)  
kbo( :, 5,38, 3) = (/&
 & 7.1603e-06_jprb,1.0172e-04_jprb,1.5970e-04_jprb,2.0015e-04_jprb,1.9689e-04_jprb/)  
kbo( :, 1,39, 3) = (/&
 & 1.0836e-06_jprb,5.8166e-05_jprb,9.9215e-05_jprb,1.3222e-04_jprb,1.5133e-04_jprb/)  
kbo( :, 2,39, 3) = (/&
 & 1.7555e-06_jprb,6.4345e-05_jprb,1.0758e-04_jprb,1.4088e-04_jprb,1.5570e-04_jprb/)  
kbo( :, 3,39, 3) = (/&
 & 2.7062e-06_jprb,7.0477e-05_jprb,1.1564e-04_jprb,1.4921e-04_jprb,1.5890e-04_jprb/)  
kbo( :, 4,39, 3) = (/&
 & 3.9795e-06_jprb,7.6546e-05_jprb,1.2316e-04_jprb,1.5693e-04_jprb,1.6103e-04_jprb/)  
kbo( :, 5,39, 3) = (/&
 & 5.6128e-06_jprb,8.2626e-05_jprb,1.3018e-04_jprb,1.6363e-04_jprb,1.6230e-04_jprb/)  
kbo( :, 1,40, 3) = (/&
 & 7.8445e-07_jprb,4.6585e-05_jprb,7.9902e-05_jprb,1.0692e-04_jprb,1.2321e-04_jprb/)  
kbo( :, 2,40, 3) = (/&
 & 1.2866e-06_jprb,5.1634e-05_jprb,8.6802e-05_jprb,1.1417e-04_jprb,1.2708e-04_jprb/)  
kbo( :, 3,40, 3) = (/&
 & 2.0073e-06_jprb,5.6656e-05_jprb,9.3478e-05_jprb,1.2114e-04_jprb,1.2998e-04_jprb/)  
kbo( :, 4,40, 3) = (/&
 & 2.9837e-06_jprb,6.1628e-05_jprb,9.9689e-05_jprb,1.2758e-04_jprb,1.3201e-04_jprb/)  
kbo( :, 5,40, 3) = (/&
 & 4.2474e-06_jprb,6.6601e-05_jprb,1.0552e-04_jprb,1.3318e-04_jprb,1.3326e-04_jprb/)  
kbo( :, 1,41, 3) = (/&
 & 5.6200e-07_jprb,3.7239e-05_jprb,6.4245e-05_jprb,8.6338e-05_jprb,1.0021e-04_jprb/)  
kbo( :, 2,41, 3) = (/&
 & 9.3423e-07_jprb,4.1365e-05_jprb,6.9922e-05_jprb,9.2387e-05_jprb,1.0362e-04_jprb/)  
kbo( :, 3,41, 3) = (/&
 & 1.4759e-06_jprb,4.5473e-05_jprb,7.5442e-05_jprb,9.8211e-05_jprb,1.0623e-04_jprb/)  
kbo( :, 4,41, 3) = (/&
 & 2.2204e-06_jprb,4.9548e-05_jprb,8.0603e-05_jprb,1.0362e-04_jprb,1.0811e-04_jprb/)  
kbo( :, 5,41, 3) = (/&
 & 3.1941e-06_jprb,5.3616e-05_jprb,8.5442e-05_jprb,1.0831e-04_jprb,1.0933e-04_jprb/)  
kbo( :, 1,42, 3) = (/&
 & 4.0111e-07_jprb,2.9743e-05_jprb,5.1608e-05_jprb,6.9660e-05_jprb,8.1453e-05_jprb/)  
kbo( :, 2,42, 3) = (/&
 & 6.7588e-07_jprb,3.3120e-05_jprb,5.6295e-05_jprb,7.4726e-05_jprb,8.4452e-05_jprb/)  
kbo( :, 3,42, 3) = (/&
 & 1.0815e-06_jprb,3.6481e-05_jprb,6.0861e-05_jprb,7.9587e-05_jprb,8.6802e-05_jprb/)  
kbo( :, 4,42, 3) = (/&
 & 1.6472e-06_jprb,3.9818e-05_jprb,6.5135e-05_jprb,8.4095e-05_jprb,8.8535e-05_jprb/)  
kbo( :, 5,42, 3) = (/&
 & 2.3953e-06_jprb,4.3150e-05_jprb,6.9163e-05_jprb,8.8053e-05_jprb,8.9707e-05_jprb/)  
kbo( :, 1,43, 3) = (/&
 & 2.7634e-07_jprb,2.3586e-05_jprb,4.1208e-05_jprb,5.5916e-05_jprb,6.5980e-05_jprb/)  
kbo( :, 2,43, 3) = (/&
 & 4.7339e-07_jprb,2.6349e-05_jprb,4.5082e-05_jprb,6.0171e-05_jprb,6.8655e-05_jprb/)  
kbo( :, 3,43, 3) = (/&
 & 7.6946e-07_jprb,2.9095e-05_jprb,4.8858e-05_jprb,6.4228e-05_jprb,7.0769e-05_jprb/)  
kbo( :, 4,43, 3) = (/&
 & 1.1899e-06_jprb,3.1831e-05_jprb,5.2419e-05_jprb,6.8020e-05_jprb,7.2392e-05_jprb/)  
kbo( :, 5,43, 3) = (/&
 & 1.7542e-06_jprb,3.4560e-05_jprb,5.5769e-05_jprb,7.1373e-05_jprb,7.3520e-05_jprb/)  
kbo( :, 1,44, 3) = (/&
 & 1.8677e-07_jprb,1.8630e-05_jprb,3.2790e-05_jprb,4.4748e-05_jprb,5.3325e-05_jprb/)  
kbo( :, 2,44, 3) = (/&
 & 3.2545e-07_jprb,2.0878e-05_jprb,3.5981e-05_jprb,4.8304e-05_jprb,5.5702e-05_jprb/)  
kbo( :, 3,44, 3) = (/&
 & 5.3812e-07_jprb,2.3132e-05_jprb,3.9119e-05_jprb,5.1707e-05_jprb,5.7625e-05_jprb/)  
kbo( :, 4,44, 3) = (/&
 & 8.4624e-07_jprb,2.5378e-05_jprb,4.2094e-05_jprb,5.4904e-05_jprb,5.9117e-05_jprb/)  
kbo( :, 5,44, 3) = (/&
 & 1.2670e-06_jprb,2.7605e-05_jprb,4.4873e-05_jprb,5.7740e-05_jprb,6.0210e-05_jprb/)  
kbo( :, 1,45, 3) = (/&
 & 1.2570e-07_jprb,1.4697e-05_jprb,2.6055e-05_jprb,3.5757e-05_jprb,4.3043e-05_jprb/)  
kbo( :, 2,45, 3) = (/&
 & 2.2228e-07_jprb,1.6531e-05_jprb,2.8696e-05_jprb,3.8740e-05_jprb,4.5168e-05_jprb/)  
kbo( :, 3,45, 3) = (/&
 & 3.7425e-07_jprb,1.8375e-05_jprb,3.1286e-05_jprb,4.1584e-05_jprb,4.6892e-05_jprb/)  
kbo( :, 4,45, 3) = (/&
 & 5.9851e-07_jprb,2.0210e-05_jprb,3.3765e-05_jprb,4.4275e-05_jprb,4.8273e-05_jprb/)  
kbo( :, 5,45, 3) = (/&
 & 9.1064e-07_jprb,2.2043e-05_jprb,3.6086e-05_jprb,4.6686e-05_jprb,4.9306e-05_jprb/)  
kbo( :, 1,46, 3) = (/&
 & 8.3151e-08_jprb,1.1545e-05_jprb,2.0622e-05_jprb,2.8475e-05_jprb,3.4643e-05_jprb/)  
kbo( :, 2,46, 3) = (/&
 & 1.4909e-07_jprb,1.3038e-05_jprb,2.2804e-05_jprb,3.0968e-05_jprb,3.6538e-05_jprb/)  
kbo( :, 3,46, 3) = (/&
 & 2.5589e-07_jprb,1.4552e-05_jprb,2.4958e-05_jprb,3.3368e-05_jprb,3.8096e-05_jprb/)  
kbo( :, 4,46, 3) = (/&
 & 4.1668e-07_jprb,1.6050e-05_jprb,2.7017e-05_jprb,3.5626e-05_jprb,3.9358e-05_jprb/)  
kbo( :, 5,46, 3) = (/&
 & 6.4518e-07_jprb,1.7554e-05_jprb,2.8957e-05_jprb,3.7672e-05_jprb,4.0331e-05_jprb/)  
kbo( :, 1,47, 3) = (/&
 & 5.3540e-08_jprb,9.0044e-06_jprb,1.6219e-05_jprb,2.2547e-05_jprb,2.7739e-05_jprb/)  
kbo( :, 2,47, 3) = (/&
 & 9.7029e-08_jprb,1.0218e-05_jprb,1.8025e-05_jprb,2.4635e-05_jprb,2.9430e-05_jprb/)  
kbo( :, 3,47, 3) = (/&
 & 1.6982e-07_jprb,1.1454e-05_jprb,1.9806e-05_jprb,2.6651e-05_jprb,3.0836e-05_jprb/)  
kbo( :, 4,47, 3) = (/&
 & 2.8228e-07_jprb,1.2681e-05_jprb,2.1522e-05_jprb,2.8552e-05_jprb,3.1984e-05_jprb/)  
kbo( :, 5,47, 3) = (/&
 & 4.4593e-07_jprb,1.3911e-05_jprb,2.3146e-05_jprb,3.0298e-05_jprb,3.2902e-05_jprb/)  
kbo( :, 1,48, 3) = (/&
 & 3.4557e-08_jprb,7.0084e-06_jprb,1.2731e-05_jprb,1.7817e-05_jprb,2.2170e-05_jprb/)  
kbo( :, 2,48, 3) = (/&
 & 6.2743e-08_jprb,7.9919e-06_jprb,1.4216e-05_jprb,1.9554e-05_jprb,2.3663e-05_jprb/)  
kbo( :, 3,48, 3) = (/&
 & 1.1169e-07_jprb,8.9994e-06_jprb,1.5688e-05_jprb,2.1246e-05_jprb,2.4930e-05_jprb/)  
kbo( :, 4,48, 3) = (/&
 & 1.8970e-07_jprb,1.0009e-05_jprb,1.7121e-05_jprb,2.2855e-05_jprb,2.5977e-05_jprb/)  
kbo( :, 5,48, 3) = (/&
 & 3.0578e-07_jprb,1.1013e-05_jprb,1.8479e-05_jprb,2.4337e-05_jprb,2.6830e-05_jprb/)  
kbo( :, 1,49, 3) = (/&
 & 2.2502e-08_jprb,5.4403e-06_jprb,9.9701e-06_jprb,1.4043e-05_jprb,1.7685e-05_jprb/)  
kbo( :, 2,49, 3) = (/&
 & 4.0407e-08_jprb,6.2386e-06_jprb,1.1187e-05_jprb,1.5489e-05_jprb,1.8999e-05_jprb/)  
kbo( :, 3,49, 3) = (/&
 & 7.2903e-08_jprb,7.0592e-06_jprb,1.2408e-05_jprb,1.6909e-05_jprb,2.0138e-05_jprb/)  
kbo( :, 4,49, 3) = (/&
 & 1.2643e-07_jprb,7.8874e-06_jprb,1.3602e-05_jprb,1.8265e-05_jprb,2.1093e-05_jprb/)  
kbo( :, 5,49, 3) = (/&
 & 2.0803e-07_jprb,8.7090e-06_jprb,1.4734e-05_jprb,1.9523e-05_jprb,2.1885e-05_jprb/)  
kbo( :, 1,50, 3) = (/&
 & 1.5095e-08_jprb,4.2287e-06_jprb,7.8121e-06_jprb,1.1070e-05_jprb,1.4078e-05_jprb/)  
kbo( :, 2,50, 3) = (/&
 & 2.6427e-08_jprb,4.8766e-06_jprb,8.8105e-06_jprb,1.2276e-05_jprb,1.5222e-05_jprb/)  
kbo( :, 3,50, 3) = (/&
 & 4.7991e-08_jprb,5.5443e-06_jprb,9.8192e-06_jprb,1.3460e-05_jprb,1.6227e-05_jprb/)  
kbo( :, 4,50, 3) = (/&
 & 8.4675e-08_jprb,6.2215e-06_jprb,1.0811e-05_jprb,1.4600e-05_jprb,1.7078e-05_jprb/)  
kbo( :, 5,50, 3) = (/&
 & 1.4213e-07_jprb,6.8957e-06_jprb,1.1757e-05_jprb,1.5668e-05_jprb,1.7797e-05_jprb/)  
kbo( :, 1,51, 3) = (/&
 & 1.0409e-08_jprb,3.2863e-06_jprb,6.1164e-06_jprb,8.7177e-06_jprb,1.1179e-05_jprb/)  
kbo( :, 2,51, 3) = (/&
 & 1.7475e-08_jprb,3.8101e-06_jprb,6.9343e-06_jprb,9.7209e-06_jprb,1.2172e-05_jprb/)  
kbo( :, 3,51, 3) = (/&
 & 3.1652e-08_jprb,4.3546e-06_jprb,7.7683e-06_jprb,1.0708e-05_jprb,1.3048e-05_jprb/)  
kbo( :, 4,51, 3) = (/&
 & 5.6664e-08_jprb,4.9075e-06_jprb,8.5891e-06_jprb,1.1663e-05_jprb,1.3802e-05_jprb/)  
kbo( :, 5,51, 3) = (/&
 & 9.6978e-08_jprb,5.4606e-06_jprb,9.3785e-06_jprb,1.2566e-05_jprb,1.4438e-05_jprb/)  
kbo( :, 1,52, 3) = (/&
 & 7.3730e-09_jprb,2.5481e-06_jprb,4.7781e-06_jprb,6.8480e-06_jprb,8.8551e-06_jprb/)  
kbo( :, 2,52, 3) = (/&
 & 1.1665e-08_jprb,2.9707e-06_jprb,5.4480e-06_jprb,7.6826e-06_jprb,9.7180e-06_jprb/)  
kbo( :, 3,52, 3) = (/&
 & 2.0839e-08_jprb,3.4136e-06_jprb,6.1334e-06_jprb,8.5017e-06_jprb,1.0476e-05_jprb/)  
kbo( :, 4,52, 3) = (/&
 & 3.7702e-08_jprb,3.8651e-06_jprb,6.8133e-06_jprb,9.3029e-06_jprb,1.1144e-05_jprb/)  
kbo( :, 5,52, 3) = (/&
 & 6.5719e-08_jprb,4.3178e-06_jprb,7.4715e-06_jprb,1.0064e-05_jprb,1.1709e-05_jprb/)  
kbo( :, 1,53, 3) = (/&
 & 5.3750e-09_jprb,1.9710e-06_jprb,3.7222e-06_jprb,5.3652e-06_jprb,6.9985e-06_jprb/)  
kbo( :, 2,53, 3) = (/&
 & 7.9112e-09_jprb,2.3105e-06_jprb,4.2696e-06_jprb,6.0569e-06_jprb,7.7450e-06_jprb/)  
kbo( :, 3,53, 3) = (/&
 & 1.3727e-08_jprb,2.6711e-06_jprb,4.8332e-06_jprb,6.7376e-06_jprb,8.4040e-06_jprb/)  
kbo( :, 4,53, 3) = (/&
 & 2.4945e-08_jprb,3.0391e-06_jprb,5.3954e-06_jprb,7.4078e-06_jprb,8.9922e-06_jprb/)  
kbo( :, 5,53, 3) = (/&
 & 4.4184e-08_jprb,3.4095e-06_jprb,5.9433e-06_jprb,8.0475e-06_jprb,9.4957e-06_jprb/)  
kbo( :, 1,54, 3) = (/&
 & 4.0653e-09_jprb,1.5287e-06_jprb,2.9053e-06_jprb,4.2078e-06_jprb,5.5137e-06_jprb/)  
kbo( :, 2,54, 3) = (/&
 & 5.5613e-09_jprb,1.8017e-06_jprb,3.3529e-06_jprb,4.7820e-06_jprb,6.1506e-06_jprb/)  
kbo( :, 3,54, 3) = (/&
 & 9.2526e-09_jprb,2.0941e-06_jprb,3.8143e-06_jprb,5.3462e-06_jprb,6.7127e-06_jprb/)  
kbo( :, 4,54, 3) = (/&
 & 1.6740e-08_jprb,2.3952e-06_jprb,4.2796e-06_jprb,5.9051e-06_jprb,7.2164e-06_jprb/)  
kbo( :, 5,54, 3) = (/&
 & 3.0031e-08_jprb,2.6979e-06_jprb,4.7338e-06_jprb,6.4403e-06_jprb,7.6524e-06_jprb/)  
kbo( :, 1,55, 3) = (/&
 & 3.1540e-09_jprb,1.1858e-06_jprb,2.2670e-06_jprb,3.2967e-06_jprb,4.3283e-06_jprb/)  
kbo( :, 2,55, 3) = (/&
 & 4.0196e-09_jprb,1.4051e-06_jprb,2.6332e-06_jprb,3.7741e-06_jprb,4.8678e-06_jprb/)  
kbo( :, 3,55, 3) = (/&
 & 6.3379e-09_jprb,1.6423e-06_jprb,3.0104e-06_jprb,4.2413e-06_jprb,5.3455e-06_jprb/)  
kbo( :, 4,55, 3) = (/&
 & 1.1312e-08_jprb,1.8877e-06_jprb,3.3935e-06_jprb,4.7052e-06_jprb,5.7689e-06_jprb/)  
kbo( :, 5,55, 3) = (/&
 & 2.0477e-08_jprb,2.1358e-06_jprb,3.7709e-06_jprb,5.1537e-06_jprb,6.1417e-06_jprb/)  
kbo( :, 1,56, 3) = (/&
 & 2.4885e-09_jprb,9.1751e-07_jprb,1.7642e-06_jprb,2.5751e-06_jprb,3.3880e-06_jprb/)  
kbo( :, 2,56, 3) = (/&
 & 2.9720e-09_jprb,1.0942e-06_jprb,2.0641e-06_jprb,2.9723e-06_jprb,3.8440e-06_jprb/)  
kbo( :, 3,56, 3) = (/&
 & 4.3988e-09_jprb,1.2857e-06_jprb,2.3716e-06_jprb,3.3596e-06_jprb,4.2506e-06_jprb/)  
kbo( :, 4,56, 3) = (/&
 & 7.6547e-09_jprb,1.4859e-06_jprb,2.6877e-06_jprb,3.7438e-06_jprb,4.6065e-06_jprb/)  
kbo( :, 5,56, 3) = (/&
 & 1.3911e-08_jprb,1.6888e-06_jprb,2.9997e-06_jprb,4.1185e-06_jprb,4.9232e-06_jprb/)  
kbo( :, 1,57, 3) = (/&
 & 1.9886e-09_jprb,7.0763e-07_jprb,1.3683e-06_jprb,2.0041e-06_jprb,2.6428e-06_jprb/)  
kbo( :, 2,57, 3) = (/&
 & 2.2504e-09_jprb,8.5035e-07_jprb,1.6145e-06_jprb,2.3353e-06_jprb,3.0283e-06_jprb/)  
kbo( :, 3,57, 3) = (/&
 & 3.1057e-09_jprb,1.0047e-06_jprb,1.8650e-06_jprb,2.6564e-06_jprb,3.3731e-06_jprb/)  
kbo( :, 4,57, 3) = (/&
 & 5.1987e-09_jprb,1.1674e-06_jprb,2.1248e-06_jprb,2.9740e-06_jprb,3.6745e-06_jprb/)  
kbo( :, 5,57, 3) = (/&
 & 9.4155e-09_jprb,1.3335e-06_jprb,2.3825e-06_jprb,3.2869e-06_jprb,3.9424e-06_jprb/)  
kbo( :, 1,58, 3) = (/&
 & 1.6068e-09_jprb,5.4596e-07_jprb,1.0610e-06_jprb,1.5587e-06_jprb,2.0582e-06_jprb/)  
kbo( :, 2,58, 3) = (/&
 & 1.7459e-09_jprb,6.6156e-07_jprb,1.2631e-06_jprb,1.8343e-06_jprb,2.3824e-06_jprb/)  
kbo( :, 3,58, 3) = (/&
 & 2.2524e-09_jprb,7.8545e-07_jprb,1.4674e-06_jprb,2.1005e-06_jprb,2.6733e-06_jprb/)  
kbo( :, 4,58, 3) = (/&
 & 3.5899e-09_jprb,9.1799e-07_jprb,1.6806e-06_jprb,2.3630e-06_jprb,2.9296e-06_jprb/)  
kbo( :, 5,58, 3) = (/&
 & 6.4281e-09_jprb,1.0538e-06_jprb,1.8933e-06_jprb,2.6237e-06_jprb,3.1542e-06_jprb/)  
kbo( :, 1,59, 3) = (/&
 & 1.3115e-09_jprb,4.3655e-07_jprb,8.4995e-07_jprb,1.2498e-06_jprb,1.6427e-06_jprb/)  
kbo( :, 2,59, 3) = (/&
 & 1.4063e-09_jprb,5.3104e-07_jprb,1.0161e-06_jprb,1.4776e-06_jprb,1.9087e-06_jprb/)  
kbo( :, 3,59, 3) = (/&
 & 1.7670e-09_jprb,6.3221e-07_jprb,1.1839e-06_jprb,1.6975e-06_jprb,2.1469e-06_jprb/)  
kbo( :, 4,59, 3) = (/&
 & 2.7538e-09_jprb,7.4064e-07_jprb,1.3591e-06_jprb,1.9143e-06_jprb,2.3563e-06_jprb/)  
kbo( :, 5,59, 3) = (/&
 & 4.8966e-09_jprb,8.5194e-07_jprb,1.5343e-06_jprb,2.1300e-06_jprb,2.5372e-06_jprb/)  
kbo( :, 1,13, 4) = (/&
 & 1.4832e-04_jprb,1.5698e-02_jprb,2.8434e-02_jprb,4.0000e-02_jprb,5.0535e-02_jprb/)  
kbo( :, 2,13, 4) = (/&
 & 2.7354e-04_jprb,1.7679e-02_jprb,3.1476e-02_jprb,4.3634e-02_jprb,5.4373e-02_jprb/)  
kbo( :, 3,13, 4) = (/&
 & 4.7514e-04_jprb,1.9768e-02_jprb,3.4498e-02_jprb,4.7113e-02_jprb,5.7896e-02_jprb/)  
kbo( :, 4,13, 4) = (/&
 & 7.6575e-04_jprb,2.1934e-02_jprb,3.7431e-02_jprb,5.0364e-02_jprb,6.0901e-02_jprb/)  
kbo( :, 5,13, 4) = (/&
 & 1.1458e-03_jprb,2.4148e-02_jprb,4.0264e-02_jprb,5.3231e-02_jprb,6.3251e-02_jprb/)  
kbo( :, 1,14, 4) = (/&
 & 1.3350e-04_jprb,1.3782e-02_jprb,2.4857e-02_jprb,3.4870e-02_jprb,4.3573e-02_jprb/)  
kbo( :, 2,14, 4) = (/&
 & 2.4593e-04_jprb,1.5547e-02_jprb,2.7509e-02_jprb,3.8001e-02_jprb,4.6776e-02_jprb/)  
kbo( :, 3,14, 4) = (/&
 & 4.2506e-04_jprb,1.7409e-02_jprb,3.0122e-02_jprb,4.0944e-02_jprb,4.9474e-02_jprb/)  
kbo( :, 4,14, 4) = (/&
 & 6.7927e-04_jprb,1.9326e-02_jprb,3.2594e-02_jprb,4.3519e-02_jprb,5.1527e-02_jprb/)  
kbo( :, 5,14, 4) = (/&
 & 1.0076e-03_jprb,2.1255e-02_jprb,3.4899e-02_jprb,4.5670e-02_jprb,5.2951e-02_jprb/)  
kbo( :, 1,15, 4) = (/&
 & 1.2065e-04_jprb,1.2024e-02_jprb,2.1582e-02_jprb,3.0176e-02_jprb,3.7371e-02_jprb/)  
kbo( :, 2,15, 4) = (/&
 & 2.2207e-04_jprb,1.3580e-02_jprb,2.3845e-02_jprb,3.2795e-02_jprb,3.9887e-02_jprb/)  
kbo( :, 3,15, 4) = (/&
 & 3.8077e-04_jprb,1.5191e-02_jprb,2.6000e-02_jprb,3.5116e-02_jprb,4.1764e-02_jprb/)  
kbo( :, 4,15, 4) = (/&
 & 6.0257e-04_jprb,1.6816e-02_jprb,2.7979e-02_jprb,3.7046e-02_jprb,4.3070e-02_jprb/)  
kbo( :, 5,15, 4) = (/&
 & 8.8599e-04_jprb,1.8418e-02_jprb,2.9799e-02_jprb,3.8653e-02_jprb,4.3914e-02_jprb/)  
kbo( :, 1,16, 4) = (/&
 & 1.0931e-04_jprb,1.0419e-02_jprb,1.8587e-02_jprb,2.5887e-02_jprb,3.1833e-02_jprb/)  
kbo( :, 2,16, 4) = (/&
 & 2.0062e-04_jprb,1.1752e-02_jprb,2.0443e-02_jprb,2.7962e-02_jprb,3.3659e-02_jprb/)  
kbo( :, 3,16, 4) = (/&
 & 3.4061e-04_jprb,1.3095e-02_jprb,2.2148e-02_jprb,2.9721e-02_jprb,3.4939e-02_jprb/)  
kbo( :, 4,16, 4) = (/&
 & 5.3341e-04_jprb,1.4426e-02_jprb,2.3724e-02_jprb,3.1189e-02_jprb,3.5807e-02_jprb/)  
kbo( :, 5,16, 4) = (/&
 & 7.7707e-04_jprb,1.5740e-02_jprb,2.5194e-02_jprb,3.2443e-02_jprb,3.6342e-02_jprb/)  
kbo( :, 1,17, 4) = (/&
 & 9.8787e-05_jprb,8.9488e-03_jprb,1.5843e-02_jprb,2.1968e-02_jprb,2.6812e-02_jprb/)  
kbo( :, 2,17, 4) = (/&
 & 1.8034e-04_jprb,1.0053e-02_jprb,1.7312e-02_jprb,2.3563e-02_jprb,2.8105e-02_jprb/)  
kbo( :, 3,17, 4) = (/&
 & 3.0330e-04_jprb,1.1150e-02_jprb,1.8677e-02_jprb,2.4918e-02_jprb,2.9010e-02_jprb/)  
kbo( :, 4,17, 4) = (/&
 & 4.6915e-04_jprb,1.2239e-02_jprb,1.9960e-02_jprb,2.6083e-02_jprb,2.9616e-02_jprb/)  
kbo( :, 5,17, 4) = (/&
 & 6.7860e-04_jprb,1.3325e-02_jprb,2.1171e-02_jprb,2.7089e-02_jprb,2.9962e-02_jprb/)  
kbo( :, 1,18, 4) = (/&
 & 8.9115e-05_jprb,7.6114e-03_jprb,1.3364e-02_jprb,1.8461e-02_jprb,2.2371e-02_jprb/)  
kbo( :, 2,18, 4) = (/&
 & 1.6151e-04_jprb,8.5146e-03_jprb,1.4542e-02_jprb,1.9706e-02_jprb,2.3318e-02_jprb/)  
kbo( :, 3,18, 4) = (/&
 & 2.6853e-04_jprb,9.4157e-03_jprb,1.5660e-02_jprb,2.0781e-02_jprb,2.3982e-02_jprb/)  
kbo( :, 4,18, 4) = (/&
 & 4.1020e-04_jprb,1.0310e-02_jprb,1.6712e-02_jprb,2.1721e-02_jprb,2.4416e-02_jprb/)  
kbo( :, 5,18, 4) = (/&
 & 5.9029e-04_jprb,1.1212e-02_jprb,1.7715e-02_jprb,2.2537e-02_jprb,2.4643e-02_jprb/)  
kbo( :, 1,19, 4) = (/&
 & 8.0095e-05_jprb,6.4231e-03_jprb,1.1196e-02_jprb,1.5414e-02_jprb,1.8549e-02_jprb/)  

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


SUBROUTINE part17

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


kbo( :, 2,19, 4) = (/&
 & 1.4382e-04_jprb,7.1662e-03_jprb,1.2159e-02_jprb,1.6403e-02_jprb,1.9259e-02_jprb/)  
kbo( :, 3,19, 4) = (/&
 & 2.3623e-04_jprb,7.9047e-03_jprb,1.3080e-02_jprb,1.7271e-02_jprb,1.9754e-02_jprb/)  
kbo( :, 4,19, 4) = (/&
 & 3.5687e-04_jprb,8.6444e-03_jprb,1.3944e-02_jprb,1.8036e-02_jprb,2.0065e-02_jprb/)  
kbo( :, 5,19, 4) = (/&
 & 5.1169e-04_jprb,9.3924e-03_jprb,1.4772e-02_jprb,1.8710e-02_jprb,2.0213e-02_jprb/)  
kbo( :, 1,20, 4) = (/&
 & 7.2492e-05_jprb,5.4035e-03_jprb,9.3587e-03_jprb,1.2831e-02_jprb,1.5342e-02_jprb/)  
kbo( :, 2,20, 4) = (/&
 & 1.2843e-04_jprb,6.0138e-03_jprb,1.0150e-02_jprb,1.3627e-02_jprb,1.5882e-02_jprb/)  
kbo( :, 3,20, 4) = (/&
 & 2.0800e-04_jprb,6.6212e-03_jprb,1.0905e-02_jprb,1.4334e-02_jprb,1.6254e-02_jprb/)  
kbo( :, 4,20, 4) = (/&
 & 3.1139e-04_jprb,7.2334e-03_jprb,1.1615e-02_jprb,1.4959e-02_jprb,1.6478e-02_jprb/)  
kbo( :, 5,20, 4) = (/&
 & 4.4561e-04_jprb,7.8568e-03_jprb,1.2299e-02_jprb,1.5516e-02_jprb,1.6574e-02_jprb/)  
kbo( :, 1,21, 4) = (/&
 & 6.5335e-05_jprb,4.5290e-03_jprb,7.8063e-03_jprb,1.0655e-02_jprb,1.2662e-02_jprb/)  
kbo( :, 2,21, 4) = (/&
 & 1.1419e-04_jprb,5.0316e-03_jprb,8.4549e-03_jprb,1.1302e-02_jprb,1.3077e-02_jprb/)  
kbo( :, 3,21, 4) = (/&
 & 1.8257e-04_jprb,5.5323e-03_jprb,9.0718e-03_jprb,1.1880e-02_jprb,1.3357e-02_jprb/)  
kbo( :, 4,21, 4) = (/&
 & 2.7150e-04_jprb,6.0382e-03_jprb,9.6571e-03_jprb,1.2392e-02_jprb,1.3520e-02_jprb/)  
kbo( :, 5,21, 4) = (/&
 & 3.8801e-04_jprb,6.5620e-03_jprb,1.0220e-02_jprb,1.2849e-02_jprb,1.3582e-02_jprb/)  
kbo( :, 1,22, 4) = (/&
 & 6.0922e-05_jprb,3.8139e-03_jprb,6.5357e-03_jprb,8.8714e-03_jprb,1.0461e-02_jprb/)  
kbo( :, 2,22, 4) = (/&
 & 1.0454e-04_jprb,4.2277e-03_jprb,7.0637e-03_jprb,9.3969e-03_jprb,1.0774e-02_jprb/)  
kbo( :, 3,22, 4) = (/&
 & 1.6444e-04_jprb,4.6414e-03_jprb,7.5689e-03_jprb,9.8658e-03_jprb,1.0980e-02_jprb/)  
kbo( :, 4,22, 4) = (/&
 & 2.4255e-04_jprb,5.0640e-03_jprb,8.0491e-03_jprb,1.0279e-02_jprb,1.1093e-02_jprb/)  
kbo( :, 5,22, 4) = (/&
 & 3.4545e-04_jprb,5.5019e-03_jprb,8.5122e-03_jprb,1.0654e-02_jprb,1.1125e-02_jprb/)  
kbo( :, 1,23, 4) = (/&
 & 5.6689e-05_jprb,3.2067e-03_jprb,5.4634e-03_jprb,7.3826e-03_jprb,8.6316e-03_jprb/)  
kbo( :, 2,23, 4) = (/&
 & 9.5550e-05_jprb,3.5483e-03_jprb,5.8959e-03_jprb,7.8077e-03_jprb,8.8675e-03_jprb/)  
kbo( :, 3,23, 4) = (/&
 & 1.4822e-04_jprb,3.8901e-03_jprb,6.3080e-03_jprb,8.1829e-03_jprb,9.0160e-03_jprb/)  
kbo( :, 4,23, 4) = (/&
 & 2.1693e-04_jprb,4.2438e-03_jprb,6.7020e-03_jprb,8.5212e-03_jprb,9.0932e-03_jprb/)  
kbo( :, 5,23, 4) = (/&
 & 3.0734e-04_jprb,4.6091e-03_jprb,7.0873e-03_jprb,8.8256e-03_jprb,9.1050e-03_jprb/)  
kbo( :, 1,24, 4) = (/&
 & 5.2736e-05_jprb,2.6949e-03_jprb,4.5641e-03_jprb,6.1416e-03_jprb,7.1164e-03_jprb/)  
kbo( :, 2,24, 4) = (/&
 & 8.7372e-05_jprb,2.9764e-03_jprb,4.9186e-03_jprb,6.4817e-03_jprb,7.2904e-03_jprb/)  
kbo( :, 3,24, 4) = (/&
 & 1.3390e-04_jprb,3.2620e-03_jprb,5.2557e-03_jprb,6.7856e-03_jprb,7.3982e-03_jprb/)  
kbo( :, 4,24, 4) = (/&
 & 1.9446e-04_jprb,3.5561e-03_jprb,5.5797e-03_jprb,7.0599e-03_jprb,7.4464e-03_jprb/)  
kbo( :, 5,24, 4) = (/&
 & 2.7345e-04_jprb,3.8596e-03_jprb,5.8982e-03_jprb,7.3057e-03_jprb,7.4438e-03_jprb/)  
kbo( :, 1,25, 4) = (/&
 & 4.9165e-05_jprb,2.2652e-03_jprb,3.8124e-03_jprb,5.1055e-03_jprb,5.8623e-03_jprb/)  
kbo( :, 2,25, 4) = (/&
 & 8.0068e-05_jprb,2.4983e-03_jprb,4.1027e-03_jprb,5.3800e-03_jprb,5.9915e-03_jprb/)  
kbo( :, 3,25, 4) = (/&
 & 1.2114e-04_jprb,2.7360e-03_jprb,4.3785e-03_jprb,5.6255e-03_jprb,6.0673e-03_jprb/)  
kbo( :, 4,25, 4) = (/&
 & 1.7452e-04_jprb,2.9807e-03_jprb,4.6460e-03_jprb,5.8473e-03_jprb,6.0957e-03_jprb/)  
kbo( :, 5,25, 4) = (/&
 & 2.4297e-04_jprb,3.2336e-03_jprb,4.9074e-03_jprb,6.0470e-03_jprb,6.0845e-03_jprb/)  
kbo( :, 1,26, 4) = (/&
 & 4.6134e-05_jprb,1.9065e-03_jprb,3.1876e-03_jprb,4.2457e-03_jprb,4.8285e-03_jprb/)  
kbo( :, 2,26, 4) = (/&
 & 7.3723e-05_jprb,2.0998e-03_jprb,3.4240e-03_jprb,4.4668e-03_jprb,4.9227e-03_jprb/)  
kbo( :, 3,26, 4) = (/&
 & 1.0992e-04_jprb,2.2971e-03_jprb,3.6508e-03_jprb,4.6650e-03_jprb,4.9747e-03_jprb/)  
kbo( :, 4,26, 4) = (/&
 & 1.5687e-04_jprb,2.5009e-03_jprb,3.8701e-03_jprb,4.8439e-03_jprb,4.9884e-03_jprb/)  
kbo( :, 5,26, 4) = (/&
 & 2.1597e-04_jprb,2.7132e-03_jprb,4.0857e-03_jprb,5.0072e-03_jprb,4.9727e-03_jprb/)  
kbo( :, 1,27, 4) = (/&
 & 4.3156e-05_jprb,1.6045e-03_jprb,2.6642e-03_jprb,3.5293e-03_jprb,3.9753e-03_jprb/)  
kbo( :, 2,27, 4) = (/&
 & 6.7610e-05_jprb,1.7645e-03_jprb,2.8577e-03_jprb,3.7073e-03_jprb,4.0435e-03_jprb/)  
kbo( :, 3,27, 4) = (/&
 & 9.9302e-05_jprb,1.9283e-03_jprb,3.0434e-03_jprb,3.8675e-03_jprb,4.0783e-03_jprb/)  
kbo( :, 4,27, 4) = (/&
 & 1.4035e-04_jprb,2.0987e-03_jprb,3.2238e-03_jprb,4.0126e-03_jprb,4.0827e-03_jprb/)  
kbo( :, 5,27, 4) = (/&
 & 1.9112e-04_jprb,2.2790e-03_jprb,3.4026e-03_jprb,4.1445e-03_jprb,4.0645e-03_jprb/)  
kbo( :, 1,28, 4) = (/&
 & 4.0151e-05_jprb,1.3496e-03_jprb,2.2256e-03_jprb,2.9318e-03_jprb,3.2709e-03_jprb/)  
kbo( :, 2,28, 4) = (/&
 & 6.1693e-05_jprb,1.4821e-03_jprb,2.3842e-03_jprb,3.0756e-03_jprb,3.3203e-03_jprb/)  
kbo( :, 3,28, 4) = (/&
 & 8.9314e-05_jprb,1.6183e-03_jprb,2.5363e-03_jprb,3.2052e-03_jprb,3.3423e-03_jprb/)  
kbo( :, 4,28, 4) = (/&
 & 1.2503e-04_jprb,1.7621e-03_jprb,2.6850e-03_jprb,3.3229e-03_jprb,3.3419e-03_jprb/)  
kbo( :, 5,28, 4) = (/&
 & 1.6847e-04_jprb,1.9159e-03_jprb,2.8346e-03_jprb,3.4298e-03_jprb,3.3234e-03_jprb/)  
kbo( :, 1,29, 4) = (/&
 & 3.7204e-05_jprb,1.1357e-03_jprb,1.8605e-03_jprb,2.4364e-03_jprb,2.6925e-03_jprb/)  
kbo( :, 2,29, 4) = (/&
 & 5.6126e-05_jprb,1.2453e-03_jprb,1.9896e-03_jprb,2.5519e-03_jprb,2.7276e-03_jprb/)  
kbo( :, 3,29, 4) = (/&
 & 8.0329e-05_jprb,1.3596e-03_jprb,2.1150e-03_jprb,2.6576e-03_jprb,2.7417e-03_jprb/)  
kbo( :, 4,29, 4) = (/&
 & 1.1119e-04_jprb,1.4821e-03_jprb,2.2379e-03_jprb,2.7526e-03_jprb,2.7376e-03_jprb/)  
kbo( :, 5,29, 4) = (/&
 & 1.4835e-04_jprb,1.6135e-03_jprb,2.3653e-03_jprb,2.8402e-03_jprb,2.7209e-03_jprb/)  
kbo( :, 1,30, 4) = (/&
 & 3.4278e-05_jprb,9.5541e-04_jprb,1.5548e-03_jprb,2.0242e-03_jprb,2.2164e-03_jprb/)  
kbo( :, 2,30, 4) = (/&
 & 5.0802e-05_jprb,1.0465e-03_jprb,1.6607e-03_jprb,2.1179e-03_jprb,2.2411e-03_jprb/)  
kbo( :, 3,30, 4) = (/&
 & 7.2016e-05_jprb,1.1433e-03_jprb,1.7631e-03_jprb,2.2027e-03_jprb,2.2491e-03_jprb/)  
kbo( :, 4,30, 4) = (/&
 & 9.8522e-05_jprb,1.2484e-03_jprb,1.8671e-03_jprb,2.2807e-03_jprb,2.2444e-03_jprb/)  
kbo( :, 5,30, 4) = (/&
 & 1.3037e-04_jprb,1.3590e-03_jprb,1.9752e-03_jprb,2.3528e-03_jprb,2.2289e-03_jprb/)  
kbo( :, 1,31, 4) = (/&
 & 3.1460e-05_jprb,8.0377e-04_jprb,1.2994e-03_jprb,1.6818e-03_jprb,1.8252e-03_jprb/)  
kbo( :, 2,31, 4) = (/&
 & 4.5877e-05_jprb,8.8014e-04_jprb,1.3859e-03_jprb,1.7575e-03_jprb,1.8427e-03_jprb/)  
kbo( :, 3,31, 4) = (/&
 & 6.4417e-05_jprb,9.6356e-04_jprb,1.4714e-03_jprb,1.8269e-03_jprb,1.8476e-03_jprb/)  
kbo( :, 4,31, 4) = (/&
 & 8.7181e-05_jprb,1.0525e-03_jprb,1.5596e-03_jprb,1.8902e-03_jprb,1.8422e-03_jprb/)  
kbo( :, 5,31, 4) = (/&
 & 1.1453e-04_jprb,1.1450e-03_jprb,1.6516e-03_jprb,1.9513e-03_jprb,1.8286e-03_jprb/)  
kbo( :, 1,32, 4) = (/&
 & 2.8746e-05_jprb,6.7650e-04_jprb,1.0860e-03_jprb,1.3976e-03_jprb,1.5036e-03_jprb/)  
kbo( :, 2,32, 4) = (/&
 & 4.1322e-05_jprb,7.4162e-04_jprb,1.1570e-03_jprb,1.4588e-03_jprb,1.5157e-03_jprb/)  
kbo( :, 3,32, 4) = (/&
 & 5.7453e-05_jprb,8.1295e-04_jprb,1.2291e-03_jprb,1.5152e-03_jprb,1.5184e-03_jprb/)  
kbo( :, 4,32, 4) = (/&
 & 7.7060e-05_jprb,8.8760e-04_jprb,1.3041e-03_jprb,1.5676e-03_jprb,1.5130e-03_jprb/)  
kbo( :, 5,32, 4) = (/&
 & 1.0055e-04_jprb,9.6447e-04_jprb,1.3816e-03_jprb,1.6201e-03_jprb,1.5011e-03_jprb/)  
kbo( :, 1,33, 4) = (/&
 & 2.6149e-05_jprb,5.6986e-04_jprb,9.0744e-04_jprb,1.1611e-03_jprb,1.2388e-03_jprb/)  
kbo( :, 2,33, 4) = (/&
 & 3.7187e-05_jprb,6.2590e-04_jprb,9.6645e-04_jprb,1.2109e-03_jprb,1.2475e-03_jprb/)  
kbo( :, 3,33, 4) = (/&
 & 5.1122e-05_jprb,6.8620e-04_jprb,1.0278e-03_jprb,1.2567e-03_jprb,1.2488e-03_jprb/)  
kbo( :, 4,33, 4) = (/&
 & 6.7992e-05_jprb,7.4863e-04_jprb,1.0916e-03_jprb,1.3015e-03_jprb,1.2439e-03_jprb/)  
kbo( :, 5,33, 4) = (/&
 & 8.8264e-05_jprb,8.1165e-04_jprb,1.1560e-03_jprb,1.3467e-03_jprb,1.2339e-03_jprb/)  
kbo( :, 1,34, 4) = (/&
 & 2.3383e-05_jprb,4.7914e-04_jprb,7.5656e-04_jprb,9.6327e-04_jprb,1.0201e-03_jprb/)  
kbo( :, 2,34, 4) = (/&
 & 3.2952e-05_jprb,5.2698e-04_jprb,8.0647e-04_jprb,1.0038e-03_jprb,1.0263e-03_jprb/)  
kbo( :, 3,34, 4) = (/&
 & 4.4898e-05_jprb,5.7759e-04_jprb,8.5874e-04_jprb,1.0423e-03_jprb,1.0268e-03_jprb/)  
kbo( :, 4,34, 4) = (/&
 & 5.9304e-05_jprb,6.2906e-04_jprb,9.1184e-04_jprb,1.0803e-03_jprb,1.0223e-03_jprb/)  
kbo( :, 5,34, 4) = (/&
 & 7.6697e-05_jprb,6.8025e-04_jprb,9.6511e-04_jprb,1.1186e-03_jprb,1.0139e-03_jprb/)  
kbo( :, 1,35, 4) = (/&
 & 2.0135e-05_jprb,3.9961e-04_jprb,6.2708e-04_jprb,7.9562e-04_jprb,8.3915e-04_jprb/)  
kbo( :, 2,35, 4) = (/&
 & 2.8240e-05_jprb,4.3984e-04_jprb,6.6953e-04_jprb,8.2921e-04_jprb,8.4431e-04_jprb/)  
kbo( :, 3,35, 4) = (/&
 & 3.8284e-05_jprb,4.8179e-04_jprb,7.1336e-04_jprb,8.6176e-04_jprb,8.4473e-04_jprb/)  
kbo( :, 4,35, 4) = (/&
 & 5.0380e-05_jprb,5.2399e-04_jprb,7.5755e-04_jprb,8.9436e-04_jprb,8.4105e-04_jprb/)  
kbo( :, 5,35, 4) = (/&
 & 6.4985e-05_jprb,5.6538e-04_jprb,8.0096e-04_jprb,9.2613e-04_jprb,8.3390e-04_jprb/)  
kbo( :, 1,36, 4) = (/&
 & 1.6672e-05_jprb,3.3001e-04_jprb,5.1652e-04_jprb,6.5429e-04_jprb,6.8995e-04_jprb/)  
kbo( :, 2,36, 4) = (/&
 & 2.3356e-05_jprb,3.6341e-04_jprb,5.5227e-04_jprb,6.8236e-04_jprb,6.9447e-04_jprb/)  
kbo( :, 3,36, 4) = (/&
 & 3.1620e-05_jprb,3.9798e-04_jprb,5.8880e-04_jprb,7.1017e-04_jprb,6.9516e-04_jprb/)  
kbo( :, 4,36, 4) = (/&
 & 4.1586e-05_jprb,4.3228e-04_jprb,6.2537e-04_jprb,7.3771e-04_jprb,6.9235e-04_jprb/)  
kbo( :, 5,36, 4) = (/&
 & 5.3612e-05_jprb,4.6581e-04_jprb,6.6082e-04_jprb,7.6427e-04_jprb,6.8669e-04_jprb/)  
kbo( :, 1,37, 4) = (/&
 & 1.3087e-05_jprb,2.6849e-04_jprb,4.2115e-04_jprb,5.3442e-04_jprb,5.6613e-04_jprb/)  
kbo( :, 2,37, 4) = (/&
 & 1.8389e-05_jprb,2.9596e-04_jprb,4.5110e-04_jprb,5.5819e-04_jprb,5.7060e-04_jprb/)  
kbo( :, 3,37, 4) = (/&
 & 2.4989e-05_jprb,3.2427e-04_jprb,4.8144e-04_jprb,5.8191e-04_jprb,5.7172e-04_jprb/)  
kbo( :, 4,37, 4) = (/&
 & 3.2975e-05_jprb,3.5221e-04_jprb,5.1177e-04_jprb,6.0525e-04_jprb,5.6998e-04_jprb/)  
kbo( :, 5,37, 4) = (/&
 & 4.2603e-05_jprb,3.7949e-04_jprb,5.4072e-04_jprb,6.2738e-04_jprb,5.6571e-04_jprb/)  
kbo( :, 1,38, 4) = (/&
 & 1.0230e-05_jprb,2.1818e-04_jprb,3.4316e-04_jprb,4.3622e-04_jprb,4.6452e-04_jprb/)  
kbo( :, 2,38, 4) = (/&
 & 1.4428e-05_jprb,2.4074e-04_jprb,3.6819e-04_jprb,4.5640e-04_jprb,4.6888e-04_jprb/)  
kbo( :, 3,38, 4) = (/&
 & 1.9697e-05_jprb,2.6389e-04_jprb,3.9346e-04_jprb,4.7668e-04_jprb,4.7037e-04_jprb/)  
kbo( :, 4,38, 4) = (/&
 & 2.6076e-05_jprb,2.8667e-04_jprb,4.1847e-04_jprb,4.9632e-04_jprb,4.6943e-04_jprb/)  
kbo( :, 5,38, 4) = (/&
 & 3.3772e-05_jprb,3.0890e-04_jprb,4.4212e-04_jprb,5.1488e-04_jprb,4.6632e-04_jprb/)  
kbo( :, 1,39, 4) = (/&
 & 7.9957e-06_jprb,1.7734e-04_jprb,2.7964e-04_jprb,3.5608e-04_jprb,3.8137e-04_jprb/)  
kbo( :, 2,39, 4) = (/&
 & 1.1315e-05_jprb,1.9578e-04_jprb,3.0056e-04_jprb,3.7320e-04_jprb,3.8548e-04_jprb/)  
kbo( :, 3,39, 4) = (/&
 & 1.5521e-05_jprb,2.1469e-04_jprb,3.2152e-04_jprb,3.9044e-04_jprb,3.8726e-04_jprb/)  
kbo( :, 4,39, 4) = (/&
 & 2.0623e-05_jprb,2.3327e-04_jprb,3.4211e-04_jprb,4.0694e-04_jprb,3.8696e-04_jprb/)  
kbo( :, 5,39, 4) = (/&
 & 2.6775e-05_jprb,2.5145e-04_jprb,3.6146e-04_jprb,4.2258e-04_jprb,3.8472e-04_jprb/)  
kbo( :, 1,40, 4) = (/&
 & 6.0059e-06_jprb,1.4255e-04_jprb,2.2608e-04_jprb,2.8913e-04_jprb,3.1195e-04_jprb/)  
kbo( :, 2,40, 4) = (/&
 & 8.5603e-06_jprb,1.5759e-04_jprb,2.4350e-04_jprb,3.0367e-04_jprb,3.1602e-04_jprb/)  
kbo( :, 3,40, 4) = (/&
 & 1.1848e-05_jprb,1.7303e-04_jprb,2.6092e-04_jprb,3.1829e-04_jprb,3.1800e-04_jprb/)  
kbo( :, 4,40, 4) = (/&
 & 1.5848e-05_jprb,1.8824e-04_jprb,2.7792e-04_jprb,3.3233e-04_jprb,3.1813e-04_jprb/)  
kbo( :, 5,40, 4) = (/&
 & 2.0655e-05_jprb,2.0317e-04_jprb,2.9386e-04_jprb,3.4558e-04_jprb,3.1680e-04_jprb/)  
kbo( :, 1,41, 4) = (/&
 & 4.4737e-06_jprb,1.1440e-04_jprb,1.8254e-04_jprb,2.3457e-04_jprb,2.5497e-04_jprb/)  
kbo( :, 2,41, 4) = (/&
 & 6.4501e-06_jprb,1.2664e-04_jprb,1.9704e-04_jprb,2.4685e-04_jprb,2.5884e-04_jprb/)  
kbo( :, 3,41, 4) = (/&
 & 8.9908e-06_jprb,1.3923e-04_jprb,2.1149e-04_jprb,2.5926e-04_jprb,2.6097e-04_jprb/)  
kbo( :, 4,41, 4) = (/&
 & 1.2113e-05_jprb,1.5171e-04_jprb,2.2552e-04_jprb,2.7117e-04_jprb,2.6150e-04_jprb/)  
kbo( :, 5,41, 4) = (/&
 & 1.5882e-05_jprb,1.6391e-04_jprb,2.3860e-04_jprb,2.8232e-04_jprb,2.6072e-04_jprb/)  
kbo( :, 1,42, 4) = (/&
 & 3.3198e-06_jprb,9.1718e-05_jprb,1.4723e-04_jprb,1.9011e-04_jprb,2.0829e-04_jprb/)  
kbo( :, 2,42, 4) = (/&
 & 4.8502e-06_jprb,1.0170e-04_jprb,1.5931e-04_jprb,2.0051e-04_jprb,2.1195e-04_jprb/)  
kbo( :, 3,42, 4) = (/&
 & 6.8039e-06_jprb,1.1200e-04_jprb,1.7132e-04_jprb,2.1108e-04_jprb,2.1414e-04_jprb/)  
kbo( :, 4,42, 4) = (/&
 & 9.2426e-06_jprb,1.2222e-04_jprb,1.8289e-04_jprb,2.2117e-04_jprb,2.1495e-04_jprb/)  
kbo( :, 5,42, 4) = (/&
 & 1.2195e-05_jprb,1.3221e-04_jprb,1.9367e-04_jprb,2.3056e-04_jprb,2.1462e-04_jprb/)  
kbo( :, 1,43, 4) = (/&
 & 2.3953e-06_jprb,7.3035e-05_jprb,1.1812e-04_jprb,1.5350e-04_jprb,1.6984e-04_jprb/)  
kbo( :, 2,43, 4) = (/&
 & 3.5612e-06_jprb,8.1187e-05_jprb,1.2819e-04_jprb,1.6232e-04_jprb,1.7330e-04_jprb/)  
kbo( :, 3,43, 4) = (/&
 & 5.0399e-06_jprb,8.9542e-05_jprb,1.3813e-04_jprb,1.7126e-04_jprb,1.7552e-04_jprb/)  
kbo( :, 4,43, 4) = (/&
 & 6.9214e-06_jprb,9.7944e-05_jprb,1.4772e-04_jprb,1.7984e-04_jprb,1.7653e-04_jprb/)  
kbo( :, 5,43, 4) = (/&
 & 9.2081e-06_jprb,1.0615e-04_jprb,1.5668e-04_jprb,1.8781e-04_jprb,1.7659e-04_jprb/)  
kbo( :, 1,44, 4) = (/&
 & 1.6976e-06_jprb,5.7928e-05_jprb,9.4481e-05_jprb,1.2365e-04_jprb,1.3829e-04_jprb/)  
kbo( :, 2,44, 4) = (/&
 & 2.5776e-06_jprb,6.4569e-05_jprb,1.0281e-04_jprb,1.3107e-04_jprb,1.4154e-04_jprb/)  
kbo( :, 3,44, 4) = (/&
 & 3.6914e-06_jprb,7.1395e-05_jprb,1.1108e-04_jprb,1.3867e-04_jprb,1.4376e-04_jprb/)  
kbo( :, 4,44, 4) = (/&
 & 5.1284e-06_jprb,7.8255e-05_jprb,1.1905e-04_jprb,1.4597e-04_jprb,1.4496e-04_jprb/)  
kbo( :, 5,44, 4) = (/&
 & 6.8839e-06_jprb,8.5009e-05_jprb,1.2651e-04_jprb,1.5274e-04_jprb,1.4528e-04_jprb/)  
kbo( :, 1,45, 4) = (/&
 & 1.1934e-06_jprb,4.5877e-05_jprb,7.5459e-05_jprb,9.9465e-05_jprb,1.1252e-04_jprb/)  
kbo( :, 2,45, 4) = (/&
 & 1.8535e-06_jprb,5.1319e-05_jprb,8.2366e-05_jprb,1.0575e-04_jprb,1.1552e-04_jprb/)  
kbo( :, 3,45, 4) = (/&
 & 2.7008e-06_jprb,5.6880e-05_jprb,8.9246e-05_jprb,1.1216e-04_jprb,1.1771e-04_jprb/)  
kbo( :, 4,45, 4) = (/&
 & 3.7837e-06_jprb,6.2494e-05_jprb,9.5875e-05_jprb,1.1839e-04_jprb,1.1899e-04_jprb/)  
kbo( :, 5,45, 4) = (/&
 & 5.1348e-06_jprb,6.8027e-05_jprb,1.0210e-04_jprb,1.2412e-04_jprb,1.1954e-04_jprb/)  
kbo( :, 1,46, 4) = (/&
 & 8.2182e-07_jprb,3.6187e-05_jprb,6.0090e-05_jprb,7.9818e-05_jprb,9.1376e-05_jprb/)  
kbo( :, 2,46, 4) = (/&
 & 1.3116e-06_jprb,4.0642e-05_jprb,6.5780e-05_jprb,8.5120e-05_jprb,9.4184e-05_jprb/)  
kbo( :, 3,46, 4) = (/&
 & 1.9501e-06_jprb,4.5184e-05_jprb,7.1520e-05_jprb,9.0515e-05_jprb,9.6278e-05_jprb/)  
kbo( :, 4,46, 4) = (/&
 & 2.7596e-06_jprb,4.9774e-05_jprb,7.7042e-05_jprb,9.5816e-05_jprb,9.7611e-05_jprb/)  
kbo( :, 5,46, 4) = (/&
 & 3.7920e-06_jprb,5.4316e-05_jprb,8.2245e-05_jprb,1.0070e-04_jprb,9.8321e-05_jprb/)  
kbo( :, 1,47, 4) = (/&
 & 5.4572e-07_jprb,2.8352e-05_jprb,4.7590e-05_jprb,6.3770e-05_jprb,7.3936e-05_jprb/)  
kbo( :, 2,47, 4) = (/&
 & 9.0249e-07_jprb,3.1986e-05_jprb,5.2255e-05_jprb,6.8238e-05_jprb,7.6557e-05_jprb/)  
kbo( :, 3,47, 4) = (/&
 & 1.3764e-06_jprb,3.5691e-05_jprb,5.7035e-05_jprb,7.2769e-05_jprb,7.8547e-05_jprb/)  
kbo( :, 4,47, 4) = (/&
 & 1.9784e-06_jprb,3.9441e-05_jprb,6.1643e-05_jprb,7.7278e-05_jprb,7.9920e-05_jprb/)  
kbo( :, 5,47, 4) = (/&
 & 2.7518e-06_jprb,4.3171e-05_jprb,6.6014e-05_jprb,8.1443e-05_jprb,8.0725e-05_jprb/)  
kbo( :, 1,48, 4) = (/&
 & 3.5613e-07_jprb,2.2167e-05_jprb,3.7637e-05_jprb,5.0854e-05_jprb,5.9741e-05_jprb/)  

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


SUBROUTINE part18

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


kbo( :, 2,48, 4) = (/&
 & 6.1385e-07_jprb,2.5120e-05_jprb,4.1451e-05_jprb,5.4622e-05_jprb,6.2174e-05_jprb/)  
kbo( :, 3,48, 4) = (/&
 & 9.6245e-07_jprb,2.8151e-05_jprb,4.5401e-05_jprb,5.8409e-05_jprb,6.4024e-05_jprb/)  
kbo( :, 4,48, 4) = (/&
 & 1.4130e-06_jprb,3.1220e-05_jprb,4.9258e-05_jprb,6.2234e-05_jprb,6.5397e-05_jprb/)  
kbo( :, 5,48, 4) = (/&
 & 1.9862e-06_jprb,3.4268e-05_jprb,5.2922e-05_jprb,6.5784e-05_jprb,6.6274e-05_jprb/)  
kbo( :, 1,49, 4) = (/&
 & 2.2854e-07_jprb,1.7300e-05_jprb,2.9705e-05_jprb,4.0466e-05_jprb,4.8198e-05_jprb/)  
kbo( :, 2,49, 4) = (/&
 & 4.1152e-07_jprb,1.9683e-05_jprb,3.2825e-05_jprb,4.3649e-05_jprb,5.0447e-05_jprb/)  
kbo( :, 3,49, 4) = (/&
 & 6.6605e-07_jprb,2.2175e-05_jprb,3.6088e-05_jprb,4.6825e-05_jprb,5.2181e-05_jprb/)  
kbo( :, 4,49, 4) = (/&
 & 1.0015e-06_jprb,2.4680e-05_jprb,3.9305e-05_jprb,5.0044e-05_jprb,5.3514e-05_jprb/)  
kbo( :, 5,49, 4) = (/&
 & 1.4253e-06_jprb,2.7183e-05_jprb,4.2380e-05_jprb,5.3073e-05_jprb,5.4435e-05_jprb/)  
kbo( :, 1,50, 4) = (/&
 & 1.4675e-07_jprb,1.3524e-05_jprb,2.3463e-05_jprb,3.2195e-05_jprb,3.8796e-05_jprb/)  
kbo( :, 2,50, 4) = (/&
 & 2.7518e-07_jprb,1.5442e-05_jprb,2.6020e-05_jprb,3.4887e-05_jprb,4.0832e-05_jprb/)  
kbo( :, 3,50, 4) = (/&
 & 4.6153e-07_jprb,1.7480e-05_jprb,2.8694e-05_jprb,3.7541e-05_jprb,4.2427e-05_jprb/)  
kbo( :, 4,50, 4) = (/&
 & 7.1099e-07_jprb,1.9535e-05_jprb,3.1383e-05_jprb,4.0252e-05_jprb,4.3676e-05_jprb/)  
kbo( :, 5,50, 4) = (/&
 & 1.0304e-06_jprb,2.1596e-05_jprb,3.3959e-05_jprb,4.2830e-05_jprb,4.4585e-05_jprb/)  
kbo( :, 1,51, 4) = (/&
 & 9.3830e-08_jprb,1.0573e-05_jprb,1.8529e-05_jprb,2.5594e-05_jprb,3.1167e-05_jprb/)  
kbo( :, 2,51, 4) = (/&
 & 1.8257e-07_jprb,1.2113e-05_jprb,2.0626e-05_jprb,2.7865e-05_jprb,3.2983e-05_jprb/)  
kbo( :, 3,51, 4) = (/&
 & 3.1815e-07_jprb,1.3777e-05_jprb,2.2807e-05_jprb,3.0085e-05_jprb,3.4435e-05_jprb/)  
kbo( :, 4,51, 4) = (/&
 & 5.0296e-07_jprb,1.5465e-05_jprb,2.5047e-05_jprb,3.2352e-05_jprb,3.5572e-05_jprb/)  
kbo( :, 5,51, 4) = (/&
 & 7.4372e-07_jprb,1.7150e-05_jprb,2.7196e-05_jprb,3.4538e-05_jprb,3.6442e-05_jprb/)  
kbo( :, 1,52, 4) = (/&
 & 5.9402e-08_jprb,8.2536e-06_jprb,1.4613e-05_jprb,2.0313e-05_jprb,2.4997e-05_jprb/)  
kbo( :, 2,52, 4) = (/&
 & 1.1950e-07_jprb,9.4874e-06_jprb,1.6325e-05_jprb,2.2218e-05_jprb,2.6608e-05_jprb/)  
kbo( :, 3,52, 4) = (/&
 & 2.1668e-07_jprb,1.0839e-05_jprb,1.8107e-05_jprb,2.4086e-05_jprb,2.7927e-05_jprb/)  
kbo( :, 4,52, 4) = (/&
 & 3.5284e-07_jprb,1.2223e-05_jprb,1.9960e-05_jprb,2.5966e-05_jprb,2.8965e-05_jprb/)  
kbo( :, 5,52, 4) = (/&
 & 5.3348e-07_jprb,1.3609e-05_jprb,2.1758e-05_jprb,2.7822e-05_jprb,2.9780e-05_jprb/)  
kbo( :, 1,53, 4) = (/&
 & 3.7345e-08_jprb,6.4324e-06_jprb,1.1502e-05_jprb,1.6089e-05_jprb,2.0014e-05_jprb/)  
kbo( :, 2,53, 4) = (/&
 & 7.7125e-08_jprb,7.4212e-06_jprb,1.2900e-05_jprb,1.7682e-05_jprb,2.1442e-05_jprb/)  
kbo( :, 3,53, 4) = (/&
 & 1.4542e-07_jprb,8.5076e-06_jprb,1.4352e-05_jprb,1.9246e-05_jprb,2.2631e-05_jprb/)  
kbo( :, 4,53, 4) = (/&
 & 2.4523e-07_jprb,9.6460e-06_jprb,1.5883e-05_jprb,2.0812e-05_jprb,2.3585e-05_jprb/)  
kbo( :, 5,53, 4) = (/&
 & 3.7962e-07_jprb,1.0784e-05_jprb,1.7382e-05_jprb,2.2378e-05_jprb,2.4349e-05_jprb/)  
kbo( :, 1,54, 4) = (/&
 & 2.4018e-08_jprb,5.0298e-06_jprb,9.0727e-06_jprb,1.2757e-05_jprb,1.5972e-05_jprb/)  
kbo( :, 2,54, 4) = (/&
 & 5.0282e-08_jprb,5.8191e-06_jprb,1.0210e-05_jprb,1.4083e-05_jprb,1.7202e-05_jprb/)  
kbo( :, 3,54, 4) = (/&
 & 9.8093e-08_jprb,6.6934e-06_jprb,1.1398e-05_jprb,1.5393e-05_jprb,1.8246e-05_jprb/)  
kbo( :, 4,54, 4) = (/&
 & 1.7136e-07_jprb,7.6261e-06_jprb,1.2653e-05_jprb,1.6695e-05_jprb,1.9090e-05_jprb/)  
kbo( :, 5,54, 4) = (/&
 & 2.7159e-07_jprb,8.5620e-06_jprb,1.3903e-05_jprb,1.8013e-05_jprb,1.9768e-05_jprb/)  
kbo( :, 1,55, 4) = (/&
 & 1.5705e-08_jprb,3.9361e-06_jprb,7.1560e-06_jprb,1.0111e-05_jprb,1.2713e-05_jprb/)  
kbo( :, 2,55, 4) = (/&
 & 3.2852e-08_jprb,4.5671e-06_jprb,8.0833e-06_jprb,1.1215e-05_jprb,1.3756e-05_jprb/)  
kbo( :, 3,55, 4) = (/&
 & 6.5995e-08_jprb,5.2691e-06_jprb,9.0558e-06_jprb,1.2309e-05_jprb,1.4658e-05_jprb/)  
kbo( :, 4,55, 4) = (/&
 & 1.1933e-07_jprb,6.0307e-06_jprb,1.0082e-05_jprb,1.3396e-05_jprb,1.5392e-05_jprb/)  
kbo( :, 5,55, 4) = (/&
 & 1.9407e-07_jprb,6.7994e-06_jprb,1.1122e-05_jprb,1.4497e-05_jprb,1.5981e-05_jprb/)  
kbo( :, 1,56, 4) = (/&
 & 1.0423e-08_jprb,3.0764e-06_jprb,5.6365e-06_jprb,8.0036e-06_jprb,1.0107e-05_jprb/)  
kbo( :, 2,56, 4) = (/&
 & 2.1352e-08_jprb,3.5821e-06_jprb,6.3947e-06_jprb,8.9204e-06_jprb,1.0989e-05_jprb/)  
kbo( :, 3,56, 4) = (/&
 & 4.3941e-08_jprb,4.1425e-06_jprb,7.1860e-06_jprb,9.8275e-06_jprb,1.1759e-05_jprb/)  
kbo( :, 4,56, 4) = (/&
 & 8.2219e-08_jprb,4.7612e-06_jprb,8.0218e-06_jprb,1.0735e-05_jprb,1.2399e-05_jprb/)  
kbo( :, 5,56, 4) = (/&
 & 1.3782e-07_jprb,5.3933e-06_jprb,8.8859e-06_jprb,1.1651e-05_jprb,1.2911e-05_jprb/)  
kbo( :, 1,57, 4) = (/&
 & 7.0716e-09_jprb,2.4016e-06_jprb,4.4336e-06_jprb,6.3273e-06_jprb,8.0236e-06_jprb/)  
kbo( :, 2,57, 4) = (/&
 & 1.3864e-08_jprb,2.8058e-06_jprb,5.0502e-06_jprb,7.0825e-06_jprb,8.7616e-06_jprb/)  
kbo( :, 3,57, 4) = (/&
 & 2.8989e-08_jprb,3.2523e-06_jprb,5.6949e-06_jprb,7.8345e-06_jprb,9.4204e-06_jprb/)  
kbo( :, 4,57, 4) = (/&
 & 5.6049e-08_jprb,3.7535e-06_jprb,6.3764e-06_jprb,8.5926e-06_jprb,9.9758e-06_jprb/)  
kbo( :, 5,57, 4) = (/&
 & 9.7119e-08_jprb,4.2717e-06_jprb,7.0902e-06_jprb,9.3510e-06_jprb,1.0422e-05_jprb/)  
kbo( :, 1,58, 4) = (/&
 & 4.9738e-09_jprb,1.8772e-06_jprb,3.4889e-06_jprb,5.0033e-06_jprb,6.3670e-06_jprb/)  
kbo( :, 2,58, 4) = (/&
 & 9.1491e-09_jprb,2.2003e-06_jprb,3.9908e-06_jprb,5.6234e-06_jprb,6.9822e-06_jprb/)  
kbo( :, 3,58, 4) = (/&
 & 1.9204e-08_jprb,2.5577e-06_jprb,4.5175e-06_jprb,6.2482e-06_jprb,7.5411e-06_jprb/)  
kbo( :, 4,58, 4) = (/&
 & 3.8223e-08_jprb,2.9606e-06_jprb,5.0708e-06_jprb,6.8776e-06_jprb,8.0170e-06_jprb/)  
kbo( :, 5,58, 4) = (/&
 & 6.8398e-08_jprb,3.3850e-06_jprb,5.6590e-06_jprb,7.5062e-06_jprb,8.4029e-06_jprb/)  
kbo( :, 1,59, 4) = (/&
 & 3.8735e-09_jprb,1.5107e-06_jprb,2.8146e-06_jprb,4.0428e-06_jprb,5.1269e-06_jprb/)  
kbo( :, 2,59, 4) = (/&
 & 6.9185e-09_jprb,1.7736e-06_jprb,3.2266e-06_jprb,4.5533e-06_jprb,5.6260e-06_jprb/)  
kbo( :, 3,59, 4) = (/&
 & 1.4484e-08_jprb,2.0648e-06_jprb,3.6588e-06_jprb,5.0704e-06_jprb,6.0775e-06_jprb/)  
kbo( :, 4,59, 4) = (/&
 & 2.9105e-08_jprb,2.3952e-06_jprb,4.1152e-06_jprb,5.5930e-06_jprb,6.4648e-06_jprb/)  
kbo( :, 5,59, 4) = (/&
 & 5.2712e-08_jprb,2.7434e-06_jprb,4.6004e-06_jprb,6.1168e-06_jprb,6.7765e-06_jprb/)  
kbo( :, 1,13, 5) = (/&
 & 9.5206e-04_jprb,3.5867e-02_jprb,6.3329e-02_jprb,8.8273e-02_jprb,1.0919e-01_jprb/)  
kbo( :, 2,13, 5) = (/&
 & 1.4606e-03_jprb,3.9499e-02_jprb,6.8038e-02_jprb,9.3530e-02_jprb,1.1392e-01_jprb/)  
kbo( :, 3,13, 5) = (/&
 & 2.1122e-03_jprb,4.3255e-02_jprb,7.2755e-02_jprb,9.8485e-02_jprb,1.1804e-01_jprb/)  
kbo( :, 4,13, 5) = (/&
 & 2.9342e-03_jprb,4.7055e-02_jprb,7.7481e-02_jprb,1.0325e-01_jprb,1.2194e-01_jprb/)  
kbo( :, 5,13, 5) = (/&
 & 3.9691e-03_jprb,5.0998e-02_jprb,8.2111e-02_jprb,1.0793e-01_jprb,1.2556e-01_jprb/)  
kbo( :, 1,14, 5) = (/&
 & 8.3529e-04_jprb,3.1756e-02_jprb,5.5904e-02_jprb,7.7763e-02_jprb,9.5354e-02_jprb/)  
kbo( :, 2,14, 5) = (/&
 & 1.2709e-03_jprb,3.5009e-02_jprb,6.0040e-02_jprb,8.2374e-02_jprb,9.9262e-02_jprb/)  
kbo( :, 3,14, 5) = (/&
 & 1.8315e-03_jprb,3.8336e-02_jprb,6.4269e-02_jprb,8.6806e-02_jprb,1.0290e-01_jprb/)  
kbo( :, 4,14, 5) = (/&
 & 2.5450e-03_jprb,4.1786e-02_jprb,6.8525e-02_jprb,9.1155e-02_jprb,1.0629e-01_jprb/)  
kbo( :, 5,14, 5) = (/&
 & 3.4515e-03_jprb,4.5381e-02_jprb,7.2773e-02_jprb,9.5396e-02_jprb,1.0928e-01_jprb/)  
kbo( :, 1,15, 5) = (/&
 & 7.3165e-04_jprb,2.7921e-02_jprb,4.8914e-02_jprb,6.7922e-02_jprb,8.2662e-02_jprb/)  
kbo( :, 2,15, 5) = (/&
 & 1.1052e-03_jprb,3.0784e-02_jprb,5.2602e-02_jprb,7.1990e-02_jprb,8.6043e-02_jprb/)  
kbo( :, 3,15, 5) = (/&
 & 1.5893e-03_jprb,3.3752e-02_jprb,5.6376e-02_jprb,7.5928e-02_jprb,8.9235e-02_jprb/)  
kbo( :, 4,15, 5) = (/&
 & 2.2106e-03_jprb,3.6890e-02_jprb,6.0189e-02_jprb,7.9806e-02_jprb,9.1982e-02_jprb/)  
kbo( :, 5,15, 5) = (/&
 & 3.0053e-03_jprb,4.0122e-02_jprb,6.4009e-02_jprb,8.3450e-02_jprb,9.3979e-02_jprb/)  
kbo( :, 1,16, 5) = (/&
 & 6.3939e-04_jprb,2.4371e-02_jprb,4.2503e-02_jprb,5.8900e-02_jprb,7.1290e-02_jprb/)  
kbo( :, 2,16, 5) = (/&
 & 9.6055e-04_jprb,2.6877e-02_jprb,4.5773e-02_jprb,6.2455e-02_jprb,7.4252e-02_jprb/)  
kbo( :, 3,16, 5) = (/&
 & 1.3794e-03_jprb,2.9539e-02_jprb,4.9114e-02_jprb,6.5898e-02_jprb,7.6813e-02_jprb/)  
kbo( :, 4,16, 5) = (/&
 & 1.9216e-03_jprb,3.2321e-02_jprb,5.2426e-02_jprb,6.9093e-02_jprb,7.8632e-02_jprb/)  
kbo( :, 5,16, 5) = (/&
 & 2.6144e-03_jprb,3.5146e-02_jprb,5.5567e-02_jprb,7.1811e-02_jprb,7.9616e-02_jprb/)  
kbo( :, 1,17, 5) = (/&
 & 5.5621e-04_jprb,2.1119e-02_jprb,3.6702e-02_jprb,5.0729e-02_jprb,6.1106e-02_jprb/)  
kbo( :, 2,17, 5) = (/&
 & 8.3232e-04_jprb,2.3324e-02_jprb,3.9564e-02_jprb,5.3768e-02_jprb,6.3482e-02_jprb/)  
kbo( :, 3,17, 5) = (/&
 & 1.1952e-03_jprb,2.5644e-02_jprb,4.2368e-02_jprb,5.6531e-02_jprb,6.5194e-02_jprb/)  
kbo( :, 4,17, 5) = (/&
 & 1.6664e-03_jprb,2.8012e-02_jprb,4.5051e-02_jprb,5.8907e-02_jprb,6.6158e-02_jprb/)  
kbo( :, 5,17, 5) = (/&
 & 2.2697e-03_jprb,3.0355e-02_jprb,4.7479e-02_jprb,6.0879e-02_jprb,6.6574e-02_jprb/)  
kbo( :, 1,18, 5) = (/&
 & 4.8259e-04_jprb,1.8188e-02_jprb,3.1503e-02_jprb,4.3373e-02_jprb,5.1944e-02_jprb/)  
kbo( :, 2,18, 5) = (/&
 & 7.2053e-04_jprb,2.0086e-02_jprb,3.3870e-02_jprb,4.5795e-02_jprb,5.3602e-02_jprb/)  
kbo( :, 3,18, 5) = (/&
 & 1.0344e-03_jprb,2.2024e-02_jprb,3.6106e-02_jprb,4.7862e-02_jprb,5.4601e-02_jprb/)  
kbo( :, 4,18, 5) = (/&
 & 1.4426e-03_jprb,2.3955e-02_jprb,3.8187e-02_jprb,4.9634e-02_jprb,5.5105e-02_jprb/)  
kbo( :, 5,18, 5) = (/&
 & 1.9652e-03_jprb,2.5872e-02_jprb,4.0129e-02_jprb,5.1165e-02_jprb,5.5250e-02_jprb/)  
kbo( :, 1,19, 5) = (/&
 & 4.1792e-04_jprb,1.5551e-02_jprb,2.6815e-02_jprb,3.6748e-02_jprb,4.3685e-02_jprb/)  
kbo( :, 2,19, 5) = (/&
 & 6.2288e-04_jprb,1.7122e-02_jprb,2.8681e-02_jprb,3.8570e-02_jprb,4.4726e-02_jprb/)  
kbo( :, 3,19, 5) = (/&
 & 8.9314e-04_jprb,1.8695e-02_jprb,3.0435e-02_jprb,4.0145e-02_jprb,4.5326e-02_jprb/)  
kbo( :, 4,19, 5) = (/&
 & 1.2454e-03_jprb,2.0272e-02_jprb,3.2103e-02_jprb,4.1538e-02_jprb,4.5592e-02_jprb/)  
kbo( :, 5,19, 5) = (/&
 & 1.6963e-03_jprb,2.1865e-02_jprb,3.3692e-02_jprb,4.2753e-02_jprb,4.5589e-02_jprb/)  
kbo( :, 1,20, 5) = (/&
 & 3.6420e-04_jprb,1.3204e-02_jprb,2.2627e-02_jprb,3.0869e-02_jprb,3.6406e-02_jprb/)  
kbo( :, 2,20, 5) = (/&
 & 5.4128e-04_jprb,1.4478e-02_jprb,2.4102e-02_jprb,3.2269e-02_jprb,3.7086e-02_jprb/)  
kbo( :, 3,20, 5) = (/&
 & 7.7497e-04_jprb,1.5768e-02_jprb,2.5513e-02_jprb,3.3512e-02_jprb,3.7454e-02_jprb/)  
kbo( :, 4,20, 5) = (/&
 & 1.0788e-03_jprb,1.7071e-02_jprb,2.6877e-02_jprb,3.4628e-02_jprb,3.7589e-02_jprb/)  
kbo( :, 5,20, 5) = (/&
 & 1.4684e-03_jprb,1.8409e-02_jprb,2.8186e-02_jprb,3.5595e-02_jprb,3.7513e-02_jprb/)  
kbo( :, 1,21, 5) = (/&
 & 3.1749e-04_jprb,1.1126e-02_jprb,1.8957e-02_jprb,2.5768e-02_jprb,3.0157e-02_jprb/)  
kbo( :, 2,21, 5) = (/&
 & 4.7023e-04_jprb,1.2173e-02_jprb,2.0148e-02_jprb,2.6878e-02_jprb,3.0618e-02_jprb/)  
kbo( :, 3,21, 5) = (/&
 & 6.7172e-04_jprb,1.3233e-02_jprb,2.1304e-02_jprb,2.7875e-02_jprb,3.0852e-02_jprb/)  
kbo( :, 4,21, 5) = (/&
 & 9.3331e-04_jprb,1.4327e-02_jprb,2.2423e-02_jprb,2.8768e-02_jprb,3.0908e-02_jprb/)  
kbo( :, 5,21, 5) = (/&
 & 1.2694e-03_jprb,1.5438e-02_jprb,2.3509e-02_jprb,2.9558e-02_jprb,3.0797e-02_jprb/)  
kbo( :, 1,22, 5) = (/&
 & 2.8408e-04_jprb,9.3883e-03_jprb,1.5880e-02_jprb,2.1492e-02_jprb,2.4916e-02_jprb/)  
kbo( :, 2,22, 5) = (/&
 & 4.1797e-04_jprb,1.0249e-02_jprb,1.6855e-02_jprb,2.2374e-02_jprb,2.5222e-02_jprb/)  
kbo( :, 3,22, 5) = (/&
 & 5.9453e-04_jprb,1.1132e-02_jprb,1.7800e-02_jprb,2.3170e-02_jprb,2.5366e-02_jprb/)  
kbo( :, 4,22, 5) = (/&
 & 8.2301e-04_jprb,1.2047e-02_jprb,1.8719e-02_jprb,2.3894e-02_jprb,2.5365e-02_jprb/)  
kbo( :, 5,22, 5) = (/&
 & 1.1184e-03_jprb,1.2973e-02_jprb,1.9629e-02_jprb,2.4534e-02_jprb,2.5237e-02_jprb/)  
kbo( :, 1,23, 5) = (/&
 & 2.5418e-04_jprb,7.8977e-03_jprb,1.3269e-02_jprb,1.7874e-02_jprb,2.0529e-02_jprb/)  
kbo( :, 2,23, 5) = (/&
 & 3.7141e-04_jprb,8.6092e-03_jprb,1.4071e-02_jprb,1.8581e-02_jprb,2.0735e-02_jprb/)  
kbo( :, 3,23, 5) = (/&
 & 5.2592e-04_jprb,9.3501e-03_jprb,1.4842e-02_jprb,1.9229e-02_jprb,2.0817e-02_jprb/)  
kbo( :, 4,23, 5) = (/&
 & 7.2596e-04_jprb,1.0112e-02_jprb,1.5610e-02_jprb,1.9813e-02_jprb,2.0787e-02_jprb/)  
kbo( :, 5,23, 5) = (/&
 & 9.8686e-04_jprb,1.0888e-02_jprb,1.6368e-02_jprb,2.0340e-02_jprb,2.0658e-02_jprb/)  
kbo( :, 1,24, 5) = (/&
 & 2.2750e-04_jprb,6.6317e-03_jprb,1.1075e-02_jprb,1.4842e-02_jprb,1.6884e-02_jprb/)  
kbo( :, 2,24, 5) = (/&
 & 3.3026e-04_jprb,7.2252e-03_jprb,1.1728e-02_jprb,1.5415e-02_jprb,1.7024e-02_jprb/)  
kbo( :, 3,24, 5) = (/&
 & 4.6578e-04_jprb,7.8440e-03_jprb,1.2367e-02_jprb,1.5941e-02_jprb,1.7063e-02_jprb/)  
kbo( :, 4,24, 5) = (/&
 & 6.4270e-04_jprb,8.4805e-03_jprb,1.3008e-02_jprb,1.6415e-02_jprb,1.7016e-02_jprb/)  
kbo( :, 5,24, 5) = (/&
 & 8.7339e-04_jprb,9.1332e-03_jprb,1.3636e-02_jprb,1.6855e-02_jprb,1.6890e-02_jprb/)  
kbo( :, 1,25, 5) = (/&
 & 2.0394e-04_jprb,5.5639e-03_jprb,9.2339e-03_jprb,1.2315e-02_jprb,1.3870e-02_jprb/)  
kbo( :, 2,25, 5) = (/&
 & 2.9439e-04_jprb,6.0615e-03_jprb,9.7694e-03_jprb,1.2780e-02_jprb,1.3961e-02_jprb/)  
kbo( :, 3,25, 5) = (/&
 & 4.1407e-04_jprb,6.5784e-03_jprb,1.0303e-02_jprb,1.3206e-02_jprb,1.3975e-02_jprb/)  
kbo( :, 4,25, 5) = (/&
 & 5.7180e-04_jprb,7.1121e-03_jprb,1.0835e-02_jprb,1.3598e-02_jprb,1.3919e-02_jprb/)  
kbo( :, 5,25, 5) = (/&
 & 7.7557e-04_jprb,7.6591e-03_jprb,1.1360e-02_jprb,1.3963e-02_jprb,1.3799e-02_jprb/)  
kbo( :, 1,26, 5) = (/&
 & 1.8382e-04_jprb,4.6737e-03_jprb,7.6992e-03_jprb,1.0216e-02_jprb,1.1388e-02_jprb/)  
kbo( :, 2,26, 5) = (/&
 & 2.6412e-04_jprb,5.0893e-03_jprb,8.1430e-03_jprb,1.0593e-02_jprb,1.1444e-02_jprb/)  
kbo( :, 3,26, 5) = (/&
 & 3.7112e-04_jprb,5.5248e-03_jprb,8.5884e-03_jprb,1.0942e-02_jprb,1.1439e-02_jprb/)  
kbo( :, 4,26, 5) = (/&
 & 5.1206e-04_jprb,5.9696e-03_jprb,9.0299e-03_jprb,1.1267e-02_jprb,1.1378e-02_jprb/)  
kbo( :, 5,26, 5) = (/&
 & 6.9168e-04_jprb,6.4260e-03_jprb,9.4675e-03_jprb,1.1565e-02_jprb,1.1265e-02_jprb/)  
kbo( :, 1,27, 5) = (/&
 & 1.6571e-04_jprb,3.9248e-03_jprb,6.4172e-03_jprb,8.4701e-03_jprb,9.3451e-03_jprb/)  
kbo( :, 2,27, 5) = (/&
 & 2.3754e-04_jprb,4.2747e-03_jprb,6.7865e-03_jprb,8.7783e-03_jprb,9.3771e-03_jprb/)  
kbo( :, 3,27, 5) = (/&
 & 3.3337e-04_jprb,4.6378e-03_jprb,7.1567e-03_jprb,9.0646e-03_jprb,9.3601e-03_jprb/)  
kbo( :, 4,27, 5) = (/&
 & 4.5858e-04_jprb,5.0089e-03_jprb,7.5246e-03_jprb,9.3326e-03_jprb,9.2999e-03_jprb/)  
kbo( :, 5,27, 5) = (/&
 & 6.1684e-04_jprb,5.3899e-03_jprb,7.8886e-03_jprb,9.5804e-03_jprb,9.1956e-03_jprb/)  
kbo( :, 1,28, 5) = (/&
 & 1.4962e-04_jprb,3.2968e-03_jprb,5.3486e-03_jprb,7.0211e-03_jprb,7.6657e-03_jprb/)  
kbo( :, 2,28, 5) = (/&
 & 2.1414e-04_jprb,3.5906e-03_jprb,5.6546e-03_jprb,7.2727e-03_jprb,7.6801e-03_jprb/)  
kbo( :, 3,28, 5) = (/&
 & 2.9958e-04_jprb,3.8927e-03_jprb,5.9643e-03_jprb,7.5099e-03_jprb,7.6582e-03_jprb/)  
kbo( :, 4,28, 5) = (/&
 & 4.1038e-04_jprb,4.2012e-03_jprb,6.2693e-03_jprb,7.7298e-03_jprb,7.5988e-03_jprb/)  
kbo( :, 5,28, 5) = (/&
 & 5.4914e-04_jprb,4.5240e-03_jprb,6.5722e-03_jprb,7.9359e-03_jprb,7.5057e-03_jprb/)  
kbo( :, 1,29, 5) = (/&
 & 1.3561e-04_jprb,2.7716e-03_jprb,4.4584e-03_jprb,5.8201e-03_jprb,6.2872e-03_jprb/)  
kbo( :, 2,29, 5) = (/&
 & 1.9362e-04_jprb,3.0169e-03_jprb,4.7155e-03_jprb,6.0283e-03_jprb,6.2926e-03_jprb/)  
kbo( :, 3,29, 5) = (/&
 & 2.6977e-04_jprb,3.2683e-03_jprb,4.9713e-03_jprb,6.2221e-03_jprb,6.2669e-03_jprb/)  
kbo( :, 4,29, 5) = (/&
 & 3.6734e-04_jprb,3.5269e-03_jprb,5.2257e-03_jprb,6.4042e-03_jprb,6.2118e-03_jprb/)  
kbo( :, 5,29, 5) = (/&
 & 4.8841e-04_jprb,3.8031e-03_jprb,5.4769e-03_jprb,6.5743e-03_jprb,6.1306e-03_jprb/)  
kbo( :, 1,30, 5) = (/&
 & 1.2311e-04_jprb,2.3299e-03_jprb,3.7176e-03_jprb,4.8241e-03_jprb,5.1561e-03_jprb/)  

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


SUBROUTINE part19

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


kbo( :, 2,30, 5) = (/&
 & 1.7495e-04_jprb,2.5344e-03_jprb,3.9319e-03_jprb,4.9954e-03_jprb,5.1555e-03_jprb/)  
kbo( :, 3,30, 5) = (/&
 & 2.4248e-04_jprb,2.7440e-03_jprb,4.1448e-03_jprb,5.1563e-03_jprb,5.1297e-03_jprb/)  
kbo( :, 4,30, 5) = (/&
 & 3.2798e-04_jprb,2.9629e-03_jprb,4.3553e-03_jprb,5.3054e-03_jprb,5.0790e-03_jprb/)  
kbo( :, 5,30, 5) = (/&
 & 4.3295e-04_jprb,3.2017e-03_jprb,4.5670e-03_jprb,5.4466e-03_jprb,5.0095e-03_jprb/)  
kbo( :, 1,31, 5) = (/&
 & 1.1192e-04_jprb,1.9595e-03_jprb,3.1024e-03_jprb,4.0004e-03_jprb,4.2313e-03_jprb/)  
kbo( :, 2,31, 5) = (/&
 & 1.5800e-04_jprb,2.1296e-03_jprb,3.2801e-03_jprb,4.1421e-03_jprb,4.2268e-03_jprb/)  
kbo( :, 3,31, 5) = (/&
 & 2.1757e-04_jprb,2.3054e-03_jprb,3.4565e-03_jprb,4.2735e-03_jprb,4.2017e-03_jprb/)  
kbo( :, 4,31, 5) = (/&
 & 2.9222e-04_jprb,2.4942e-03_jprb,3.6328e-03_jprb,4.3970e-03_jprb,4.1575e-03_jprb/)  
kbo( :, 5,31, 5) = (/&
 & 3.8261e-04_jprb,2.7007e-03_jprb,3.8145e-03_jprb,4.5146e-03_jprb,4.0989e-03_jprb/)  
kbo( :, 1,32, 5) = (/&
 & 1.0163e-04_jprb,1.6481e-03_jprb,2.5899e-03_jprb,3.3182e-03_jprb,3.4733e-03_jprb/)  
kbo( :, 2,32, 5) = (/&
 & 1.4246e-04_jprb,1.7902e-03_jprb,2.7371e-03_jprb,3.4345e-03_jprb,3.4660e-03_jprb/)  
kbo( :, 3,32, 5) = (/&
 & 1.9480e-04_jprb,1.9398e-03_jprb,2.8839e-03_jprb,3.5427e-03_jprb,3.4424e-03_jprb/)  
kbo( :, 4,32, 5) = (/&
 & 2.5957e-04_jprb,2.1035e-03_jprb,3.0336e-03_jprb,3.6462e-03_jprb,3.4050e-03_jprb/)  
kbo( :, 5,32, 5) = (/&
 & 3.3711e-04_jprb,2.2803e-03_jprb,3.1908e-03_jprb,3.7450e-03_jprb,3.3564e-03_jprb/)  
kbo( :, 1,33, 5) = (/&
 & 9.2126e-05_jprb,1.3862e-03_jprb,2.1619e-03_jprb,2.7533e-03_jprb,2.8512e-03_jprb/)  
kbo( :, 2,33, 5) = (/&
 & 1.2819e-04_jprb,1.5059e-03_jprb,2.2846e-03_jprb,2.8490e-03_jprb,2.8435e-03_jprb/)  
kbo( :, 3,33, 5) = (/&
 & 1.7396e-04_jprb,1.6352e-03_jprb,2.4079e-03_jprb,2.9394e-03_jprb,2.8229e-03_jprb/)  
kbo( :, 4,33, 5) = (/&
 & 2.2988e-04_jprb,1.7763e-03_jprb,2.5366e-03_jprb,3.0253e-03_jprb,2.7916e-03_jprb/)  
kbo( :, 5,33, 5) = (/&
 & 2.9642e-04_jprb,1.9270e-03_jprb,2.6736e-03_jprb,3.1112e-03_jprb,2.7515e-03_jprb/)  
kbo( :, 1,34, 5) = (/&
 & 8.2273e-05_jprb,1.1628e-03_jprb,1.8018e-03_jprb,2.2821e-03_jprb,2.3408e-03_jprb/)  
kbo( :, 2,34, 5) = (/&
 & 1.1377e-04_jprb,1.2650e-03_jprb,1.9038e-03_jprb,2.3616e-03_jprb,2.3330e-03_jprb/)  
kbo( :, 3,34, 5) = (/&
 & 1.5328e-04_jprb,1.3767e-03_jprb,2.0090e-03_jprb,2.4362e-03_jprb,2.3154e-03_jprb/)  
kbo( :, 4,34, 5) = (/&
 & 2.0116e-04_jprb,1.4967e-03_jprb,2.1205e-03_jprb,2.5102e-03_jprb,2.2896e-03_jprb/)  
kbo( :, 5,34, 5) = (/&
 & 2.5794e-04_jprb,1.6239e-03_jprb,2.2376e-03_jprb,2.5850e-03_jprb,2.2567e-03_jprb/)  
kbo( :, 1,35, 5) = (/&
 & 7.0985e-05_jprb,9.6792e-04_jprb,1.4935e-03_jprb,1.8860e-03_jprb,1.9224e-03_jprb/)  
kbo( :, 2,35, 5) = (/&
 & 9.7802e-05_jprb,1.0553e-03_jprb,1.5791e-03_jprb,1.9515e-03_jprb,1.9160e-03_jprb/)  
kbo( :, 3,35, 5) = (/&
 & 1.3114e-04_jprb,1.1504e-03_jprb,1.6692e-03_jprb,2.0149e-03_jprb,1.9021e-03_jprb/)  
kbo( :, 4,35, 5) = (/&
 & 1.7143e-04_jprb,1.2515e-03_jprb,1.7654e-03_jprb,2.0786e-03_jprb,1.8814e-03_jprb/)  
kbo( :, 5,35, 5) = (/&
 & 2.1910e-04_jprb,1.3576e-03_jprb,1.8646e-03_jprb,2.1453e-03_jprb,1.8551e-03_jprb/)  
kbo( :, 1,36, 5) = (/&
 & 5.9035e-05_jprb,7.9892e-04_jprb,1.2308e-03_jprb,1.5523e-03_jprb,1.5795e-03_jprb/)  
kbo( :, 2,36, 5) = (/&
 & 8.1217e-05_jprb,8.7305e-04_jprb,1.3026e-03_jprb,1.6078e-03_jprb,1.5749e-03_jprb/)  
kbo( :, 3,36, 5) = (/&
 & 1.0874e-04_jprb,9.5286e-04_jprb,1.3800e-03_jprb,1.6617e-03_jprb,1.5644e-03_jprb/)  
kbo( :, 4,36, 5) = (/&
 & 1.4198e-04_jprb,1.0374e-03_jprb,1.4616e-03_jprb,1.7169e-03_jprb,1.5482e-03_jprb/)  
kbo( :, 5,36, 5) = (/&
 & 1.8132e-04_jprb,1.1249e-03_jprb,1.5450e-03_jprb,1.7750e-03_jprb,1.5279e-03_jprb/)  
kbo( :, 1,37, 5) = (/&
 & 4.6641e-05_jprb,6.5099e-04_jprb,1.0056e-03_jprb,1.2714e-03_jprb,1.2972e-03_jprb/)  
kbo( :, 2,37, 5) = (/&
 & 6.4348e-05_jprb,7.1292e-04_jprb,1.0660e-03_jprb,1.3181e-03_jprb,1.2951e-03_jprb/)  
kbo( :, 3,37, 5) = (/&
 & 8.6362e-05_jprb,7.7917e-04_jprb,1.1314e-03_jprb,1.3641e-03_jprb,1.2877e-03_jprb/)  
kbo( :, 4,37, 5) = (/&
 & 1.1309e-04_jprb,8.4913e-04_jprb,1.1999e-03_jprb,1.4118e-03_jprb,1.2757e-03_jprb/)  
kbo( :, 5,37, 5) = (/&
 & 1.4475e-04_jprb,9.2097e-04_jprb,1.2698e-03_jprb,1.4619e-03_jprb,1.2601e-03_jprb/)  
kbo( :, 1,38, 5) = (/&
 & 3.6723e-05_jprb,5.3005e-04_jprb,8.2089e-04_jprb,1.0406e-03_jprb,1.0656e-03_jprb/)  
kbo( :, 2,38, 5) = (/&
 & 5.0809e-05_jprb,5.8160e-04_jprb,8.7173e-04_jprb,1.0802e-03_jprb,1.0654e-03_jprb/)  
kbo( :, 3,38, 5) = (/&
 & 6.8411e-05_jprb,6.3671e-04_jprb,9.2702e-04_jprb,1.1191e-03_jprb,1.0602e-03_jprb/)  
kbo( :, 4,38, 5) = (/&
 & 8.9837e-05_jprb,6.9447e-04_jprb,9.8469e-04_jprb,1.1603e-03_jprb,1.0517e-03_jprb/)  
kbo( :, 5,38, 5) = (/&
 & 1.1531e-04_jprb,7.5325e-04_jprb,1.0431e-03_jprb,1.2032e-03_jprb,1.0398e-03_jprb/)  
kbo( :, 1,39, 5) = (/&
 & 2.8898e-05_jprb,4.3158e-04_jprb,6.7024e-04_jprb,8.5167e-04_jprb,8.7586e-04_jprb/)  
kbo( :, 2,39, 5) = (/&
 & 4.0107e-05_jprb,4.7450e-04_jprb,7.1291e-04_jprb,8.8507e-04_jprb,8.7670e-04_jprb/)  
kbo( :, 3,39, 5) = (/&
 & 5.4168e-05_jprb,5.2021e-04_jprb,7.5961e-04_jprb,9.1815e-04_jprb,8.7354e-04_jprb/)  
kbo( :, 4,39, 5) = (/&
 & 7.1354e-05_jprb,5.6789e-04_jprb,8.0816e-04_jprb,9.5425e-04_jprb,8.6787e-04_jprb/)  
kbo( :, 5,39, 5) = (/&
 & 9.1825e-05_jprb,6.1595e-04_jprb,8.5693e-04_jprb,9.9080e-04_jprb,8.5879e-04_jprb/)  
kbo( :, 1,40, 5) = (/&
 & 2.1926e-05_jprb,3.4792e-04_jprb,5.4363e-04_jprb,6.9406e-04_jprb,7.1842e-04_jprb/)  
kbo( :, 2,40, 5) = (/&
 & 3.0613e-05_jprb,3.8334e-04_jprb,5.7923e-04_jprb,7.2214e-04_jprb,7.2011e-04_jprb/)  
kbo( :, 3,40, 5) = (/&
 & 4.1595e-05_jprb,4.2107e-04_jprb,6.1835e-04_jprb,7.5061e-04_jprb,7.1871e-04_jprb/)  
kbo( :, 4,40, 5) = (/&
 & 5.5108e-05_jprb,4.6016e-04_jprb,6.5893e-04_jprb,7.8109e-04_jprb,7.1463e-04_jprb/)  
kbo( :, 5,40, 5) = (/&
 & 7.1275e-05_jprb,4.9940e-04_jprb,6.9980e-04_jprb,8.1264e-04_jprb,7.0800e-04_jprb/)  
kbo( :, 1,41, 5) = (/&
 & 1.6527e-05_jprb,2.7994e-04_jprb,4.4041e-04_jprb,5.6504e-04_jprb,5.8892e-04_jprb/)  
kbo( :, 2,41, 5) = (/&
 & 2.3240e-05_jprb,3.0917e-04_jprb,4.7005e-04_jprb,5.8887e-04_jprb,5.9140e-04_jprb/)  
kbo( :, 3,41, 5) = (/&
 & 3.1779e-05_jprb,3.4025e-04_jprb,5.0274e-04_jprb,6.1295e-04_jprb,5.9095e-04_jprb/)  
kbo( :, 4,41, 5) = (/&
 & 4.2345e-05_jprb,3.7229e-04_jprb,5.3669e-04_jprb,6.3912e-04_jprb,5.8845e-04_jprb/)  
kbo( :, 5,41, 5) = (/&
 & 5.5088e-05_jprb,4.0429e-04_jprb,5.7085e-04_jprb,6.6587e-04_jprb,5.8356e-04_jprb/)  
kbo( :, 1,42, 5) = (/&
 & 1.2429e-05_jprb,2.2514e-04_jprb,3.5666e-04_jprb,4.5978e-04_jprb,4.8268e-04_jprb/)  
kbo( :, 2,42, 5) = (/&
 & 1.7617e-05_jprb,2.4922e-04_jprb,3.8130e-04_jprb,4.8000e-04_jprb,4.8554e-04_jprb/)  
kbo( :, 3,42, 5) = (/&
 & 2.4234e-05_jprb,2.7477e-04_jprb,4.0862e-04_jprb,5.0042e-04_jprb,4.8593e-04_jprb/)  
kbo( :, 4,42, 5) = (/&
 & 3.2488e-05_jprb,3.0100e-04_jprb,4.3706e-04_jprb,5.2275e-04_jprb,4.8456e-04_jprb/)  
kbo( :, 5,42, 5) = (/&
 & 4.2516e-05_jprb,3.2713e-04_jprb,4.6549e-04_jprb,5.4559e-04_jprb,4.8115e-04_jprb/)  
kbo( :, 1,43, 5) = (/&
 & 9.1288e-06_jprb,1.7990e-04_jprb,2.8763e-04_jprb,3.7307e-04_jprb,3.9529e-04_jprb/)  
kbo( :, 2,43, 5) = (/&
 & 1.3070e-05_jprb,1.9955e-04_jprb,3.0790e-04_jprb,3.8997e-04_jprb,3.9826e-04_jprb/)  
kbo( :, 3,43, 5) = (/&
 & 1.8123e-05_jprb,2.2051e-04_jprb,3.3057e-04_jprb,4.0731e-04_jprb,3.9935e-04_jprb/)  
kbo( :, 4,43, 5) = (/&
 & 2.4489e-05_jprb,2.4201e-04_jprb,3.5433e-04_jprb,4.2614e-04_jprb,3.9876e-04_jprb/)  
kbo( :, 5,43, 5) = (/&
 & 3.2280e-05_jprb,2.6336e-04_jprb,3.7813e-04_jprb,4.4577e-04_jprb,3.9669e-04_jprb/)  
kbo( :, 1,44, 5) = (/&
 & 6.6151e-06_jprb,1.4326e-04_jprb,2.3138e-04_jprb,3.0204e-04_jprb,3.2336e-04_jprb/)  
kbo( :, 2,44, 5) = (/&
 & 9.5822e-06_jprb,1.5927e-04_jprb,2.4809e-04_jprb,3.1644e-04_jprb,3.2651e-04_jprb/)  
kbo( :, 3,44, 5) = (/&
 & 1.3410e-05_jprb,1.7639e-04_jprb,2.6682e-04_jprb,3.3096e-04_jprb,3.2809e-04_jprb/)  
kbo( :, 4,44, 5) = (/&
 & 1.8276e-05_jprb,1.9397e-04_jprb,2.8664e-04_jprb,3.4697e-04_jprb,3.2823e-04_jprb/)  
kbo( :, 5,44, 5) = (/&
 & 2.4286e-05_jprb,2.1151e-04_jprb,3.0643e-04_jprb,3.6349e-04_jprb,3.2698e-04_jprb/)  
kbo( :, 1,45, 5) = (/&
 & 4.7734e-06_jprb,1.1403e-04_jprb,1.8604e-04_jprb,2.4442e-04_jprb,2.6449e-04_jprb/)  
kbo( :, 2,45, 5) = (/&
 & 6.9996e-06_jprb,1.2693e-04_jprb,1.9973e-04_jprb,2.5644e-04_jprb,2.6762e-04_jprb/)  
kbo( :, 3,45, 5) = (/&
 & 9.8982e-06_jprb,1.4091e-04_jprb,2.1513e-04_jprb,2.6865e-04_jprb,2.6944e-04_jprb/)  
kbo( :, 4,45, 5) = (/&
 & 1.3603e-05_jprb,1.5533e-04_jprb,2.3165e-04_jprb,2.8211e-04_jprb,2.7010e-04_jprb/)  
kbo( :, 5,45, 5) = (/&
 & 1.8224e-05_jprb,1.6976e-04_jprb,2.4816e-04_jprb,2.9621e-04_jprb,2.6963e-04_jprb/)  
kbo( :, 1,46, 5) = (/&
 & 3.3983e-06_jprb,9.0473e-05_jprb,1.4921e-04_jprb,1.9732e-04_jprb,2.1604e-04_jprb/)  
kbo( :, 2,46, 5) = (/&
 & 5.0514e-06_jprb,1.0084e-04_jprb,1.6045e-04_jprb,2.0752e-04_jprb,2.1916e-04_jprb/)  
kbo( :, 3,46, 5) = (/&
 & 7.2271e-06_jprb,1.1223e-04_jprb,1.7305e-04_jprb,2.1775e-04_jprb,2.2117e-04_jprb/)  
kbo( :, 4,46, 5) = (/&
 & 1.0026e-05_jprb,1.2405e-04_jprb,1.8678e-04_jprb,2.2906e-04_jprb,2.2224e-04_jprb/)  
kbo( :, 5,46, 5) = (/&
 & 1.3554e-05_jprb,1.3592e-04_jprb,2.0050e-04_jprb,2.4099e-04_jprb,2.2226e-04_jprb/)  
kbo( :, 1,47, 5) = (/&
 & 2.3650e-06_jprb,7.1417e-05_jprb,1.1919e-04_jprb,1.5882e-04_jprb,1.7611e-04_jprb/)  
kbo( :, 2,47, 5) = (/&
 & 3.5679e-06_jprb,7.9650e-05_jprb,1.2838e-04_jprb,1.6748e-04_jprb,1.7919e-04_jprb/)  
kbo( :, 3,47, 5) = (/&
 & 5.1778e-06_jprb,8.8892e-05_jprb,1.3863e-04_jprb,1.7599e-04_jprb,1.8128e-04_jprb/)  
kbo( :, 4,47, 5) = (/&
 & 7.2636e-06_jprb,9.8532e-05_jprb,1.4995e-04_jprb,1.8532e-04_jprb,1.8257e-04_jprb/)  
kbo( :, 5,47, 5) = (/&
 & 9.9200e-06_jprb,1.0829e-04_jprb,1.6134e-04_jprb,1.9543e-04_jprb,1.8296e-04_jprb/)  
kbo( :, 1,48, 5) = (/&
 & 1.6346e-06_jprb,5.6335e-05_jprb,9.5109e-05_jprb,1.2769e-04_jprb,1.4342e-04_jprb/)  
kbo( :, 2,48, 5) = (/&
 & 2.5038e-06_jprb,6.2854e-05_jprb,1.0261e-04_jprb,1.3493e-04_jprb,1.4636e-04_jprb/)  
kbo( :, 3,48, 5) = (/&
 & 3.6896e-06_jprb,7.0296e-05_jprb,1.1094e-04_jprb,1.4209e-04_jprb,1.4851e-04_jprb/)  
kbo( :, 4,48, 5) = (/&
 & 5.2406e-06_jprb,7.8146e-05_jprb,1.2020e-04_jprb,1.4978e-04_jprb,1.4992e-04_jprb/)  
kbo( :, 5,48, 5) = (/&
 & 7.2291e-06_jprb,8.6170e-05_jprb,1.2966e-04_jprb,1.5832e-04_jprb,1.5064e-04_jprb/)  
kbo( :, 1,49, 5) = (/&
 & 1.1213e-06_jprb,4.4399e-05_jprb,7.5829e-05_jprb,1.0254e-04_jprb,1.1671e-04_jprb/)  
kbo( :, 2,49, 5) = (/&
 & 1.7465e-06_jprb,4.9565e-05_jprb,8.1954e-05_jprb,1.0863e-04_jprb,1.1954e-04_jprb/)  
kbo( :, 3,49, 5) = (/&
 & 2.6146e-06_jprb,5.5485e-05_jprb,8.8647e-05_jprb,1.1460e-04_jprb,1.2164e-04_jprb/)  
kbo( :, 4,49, 5) = (/&
 & 3.7631e-06_jprb,6.1900e-05_jprb,9.6246e-05_jprb,1.2097e-04_jprb,1.2315e-04_jprb/)  
kbo( :, 5,49, 5) = (/&
 & 5.2478e-06_jprb,6.8486e-05_jprb,1.0411e-04_jprb,1.2810e-04_jprb,1.2412e-04_jprb/)  
kbo( :, 1,50, 5) = (/&
 & 7.7219e-07_jprb,3.5060e-05_jprb,6.0501e-05_jprb,8.2333e-05_jprb,9.4799e-05_jprb/)  
kbo( :, 2,50, 5) = (/&
 & 1.2243e-06_jprb,3.9171e-05_jprb,6.5508e-05_jprb,8.7444e-05_jprb,9.7433e-05_jprb/)  
kbo( :, 3,50, 5) = (/&
 & 1.8601e-06_jprb,4.3898e-05_jprb,7.0971e-05_jprb,9.2481e-05_jprb,9.9443e-05_jprb/)  
kbo( :, 4,50, 5) = (/&
 & 2.7138e-06_jprb,4.9113e-05_jprb,7.7142e-05_jprb,9.7774e-05_jprb,1.0093e-04_jprb/)  
kbo( :, 5,50, 5) = (/&
 & 3.8270e-06_jprb,5.4504e-05_jprb,8.3666e-05_jprb,1.0372e-04_jprb,1.0197e-04_jprb/)  
kbo( :, 1,51, 5) = (/&
 & 5.3024e-07_jprb,2.7696e-05_jprb,4.8261e-05_jprb,6.6083e-05_jprb,7.6892e-05_jprb/)  
kbo( :, 2,51, 5) = (/&
 & 8.5735e-07_jprb,3.0983e-05_jprb,5.2368e-05_jprb,7.0412e-05_jprb,7.9289e-05_jprb/)  
kbo( :, 3,51, 5) = (/&
 & 1.3218e-06_jprb,3.4738e-05_jprb,5.6824e-05_jprb,7.4609e-05_jprb,8.1180e-05_jprb/)  
kbo( :, 4,51, 5) = (/&
 & 1.9559e-06_jprb,3.8961e-05_jprb,6.1833e-05_jprb,7.8998e-05_jprb,8.2596e-05_jprb/)  
kbo( :, 5,51, 5) = (/&
 & 2.7897e-06_jprb,4.3372e-05_jprb,6.7221e-05_jprb,8.3927e-05_jprb,8.3636e-05_jprb/)  
kbo( :, 1,52, 5) = (/&
 & 3.6108e-07_jprb,2.1866e-05_jprb,3.8454e-05_jprb,5.2969e-05_jprb,6.2335e-05_jprb/)  
kbo( :, 2,52, 5) = (/&
 & 5.9667e-07_jprb,2.4493e-05_jprb,4.1837e-05_jprb,5.6625e-05_jprb,6.4483e-05_jprb/)  
kbo( :, 3,52, 5) = (/&
 & 9.3484e-07_jprb,2.7465e-05_jprb,4.5448e-05_jprb,6.0126e-05_jprb,6.6246e-05_jprb/)  
kbo( :, 4,52, 5) = (/&
 & 1.4036e-06_jprb,3.0877e-05_jprb,4.9517e-05_jprb,6.3789e-05_jprb,6.7578e-05_jprb/)  
kbo( :, 5,52, 5) = (/&
 & 2.0268e-06_jprb,3.4479e-05_jprb,5.3935e-05_jprb,6.7855e-05_jprb,6.8602e-05_jprb/)  
kbo( :, 1,53, 5) = (/&
 & 2.4332e-07_jprb,1.7244e-05_jprb,3.0597e-05_jprb,4.2405e-05_jprb,5.0498e-05_jprb/)  
kbo( :, 2,53, 5) = (/&
 & 4.1214e-07_jprb,1.9345e-05_jprb,3.3390e-05_jprb,4.5480e-05_jprb,5.2422e-05_jprb/)  
kbo( :, 3,53, 5) = (/&
 & 6.5730e-07_jprb,2.1709e-05_jprb,3.6329e-05_jprb,4.8415e-05_jprb,5.4043e-05_jprb/)  
kbo( :, 4,53, 5) = (/&
 & 1.0016e-06_jprb,2.4434e-05_jprb,3.9600e-05_jprb,5.1439e-05_jprb,5.5301e-05_jprb/)  
kbo( :, 5,53, 5) = (/&
 & 1.4656e-06_jprb,2.7368e-05_jprb,4.3227e-05_jprb,5.4790e-05_jprb,5.6292e-05_jprb/)  
kbo( :, 1,54, 5) = (/&
 & 1.6511e-07_jprb,1.3630e-05_jprb,2.4378e-05_jprb,3.3979e-05_jprb,4.0794e-05_jprb/)  
kbo( :, 2,54, 5) = (/&
 & 2.8688e-07_jprb,1.5326e-05_jprb,2.6694e-05_jprb,3.6556e-05_jprb,4.2472e-05_jprb/)  
kbo( :, 3,54, 5) = (/&
 & 4.6588e-07_jprb,1.7208e-05_jprb,2.9089e-05_jprb,3.9026e-05_jprb,4.3891e-05_jprb/)  
kbo( :, 4,54, 5) = (/&
 & 7.2012e-07_jprb,1.9389e-05_jprb,3.1742e-05_jprb,4.1533e-05_jprb,4.5023e-05_jprb/)  
kbo( :, 5,54, 5) = (/&
 & 1.0672e-06_jprb,2.1776e-05_jprb,3.4708e-05_jprb,4.4305e-05_jprb,4.5917e-05_jprb/)  
kbo( :, 1,55, 5) = (/&
 & 1.1192e-07_jprb,1.0784e-05_jprb,1.9433e-05_jprb,2.7227e-05_jprb,3.2881e-05_jprb/)  
kbo( :, 2,55, 5) = (/&
 & 1.9966e-07_jprb,1.2152e-05_jprb,2.1341e-05_jprb,2.9385e-05_jprb,3.4331e-05_jprb/)  
kbo( :, 3,55, 5) = (/&
 & 3.3052e-07_jprb,1.3654e-05_jprb,2.3300e-05_jprb,3.1458e-05_jprb,3.5546e-05_jprb/)  
kbo( :, 4,55, 5) = (/&
 & 5.1840e-07_jprb,1.5395e-05_jprb,2.5450e-05_jprb,3.3531e-05_jprb,3.6538e-05_jprb/)  
kbo( :, 5,55, 5) = (/&
 & 7.7808e-07_jprb,1.7333e-05_jprb,2.7868e-05_jprb,3.5813e-05_jprb,3.7304e-05_jprb/)  
kbo( :, 1,56, 5) = (/&
 & 7.5122e-08_jprb,8.5244e-06_jprb,1.5477e-05_jprb,2.1786e-05_jprb,2.6473e-05_jprb/)  
kbo( :, 2,56, 5) = (/&
 & 1.3800e-07_jprb,9.6271e-06_jprb,1.7041e-05_jprb,2.3587e-05_jprb,2.7734e-05_jprb/)  
kbo( :, 3,56, 5) = (/&
 & 2.3328e-07_jprb,1.0832e-05_jprb,1.8654e-05_jprb,2.5333e-05_jprb,2.8773e-05_jprb/)  
kbo( :, 4,56, 5) = (/&
 & 3.7175e-07_jprb,1.2217e-05_jprb,2.0395e-05_jprb,2.7050e-05_jprb,2.9637e-05_jprb/)  
kbo( :, 5,56, 5) = (/&
 & 5.6529e-07_jprb,1.3785e-05_jprb,2.2358e-05_jprb,2.8934e-05_jprb,3.0300e-05_jprb/)  
kbo( :, 1,57, 5) = (/&
 & 4.9911e-08_jprb,6.7334e-06_jprb,1.2315e-05_jprb,1.7411e-05_jprb,2.1292e-05_jprb/)  
kbo( :, 2,57, 5) = (/&
 & 9.4564e-08_jprb,7.6208e-06_jprb,1.3595e-05_jprb,1.8912e-05_jprb,2.2387e-05_jprb/)  
kbo( :, 3,57, 5) = (/&
 & 1.6361e-07_jprb,8.5900e-06_jprb,1.4922e-05_jprb,2.0379e-05_jprb,2.3279e-05_jprb/)  
kbo( :, 4,57, 5) = (/&
 & 2.6533e-07_jprb,9.6896e-06_jprb,1.6333e-05_jprb,2.1806e-05_jprb,2.4024e-05_jprb/)  
kbo( :, 5,57, 5) = (/&
 & 4.0896e-07_jprb,1.0955e-05_jprb,1.7923e-05_jprb,2.3357e-05_jprb,2.4605e-05_jprb/)  
kbo( :, 1,58, 5) = (/&
 & 3.3413e-08_jprb,5.3223e-06_jprb,9.7997e-06_jprb,1.3911e-05_jprb,1.7115e-05_jprb/)  
kbo( :, 2,58, 5) = (/&
 & 6.4876e-08_jprb,6.0389e-06_jprb,1.0850e-05_jprb,1.5164e-05_jprb,1.8057e-05_jprb/)  
kbo( :, 3,58, 5) = (/&
 & 1.1501e-07_jprb,6.8202e-06_jprb,1.1942e-05_jprb,1.6396e-05_jprb,1.8824e-05_jprb/)  
kbo( :, 4,58, 5) = (/&
 & 1.8988e-07_jprb,7.6962e-06_jprb,1.3093e-05_jprb,1.7589e-05_jprb,1.9461e-05_jprb/)  
kbo( :, 5,58, 5) = (/&
 & 2.9670e-07_jprb,8.7155e-06_jprb,1.4378e-05_jprb,1.8862e-05_jprb,1.9967e-05_jprb/)  
kbo( :, 1,59, 5) = (/&
 & 2.5326e-08_jprb,4.3059e-06_jprb,7.9479e-06_jprb,1.1296e-05_jprb,1.3872e-05_jprb/)  

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


SUBROUTINE part20

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


kbo( :, 2,59, 5) = (/&
 & 4.9570e-08_jprb,4.8933e-06_jprb,8.8138e-06_jprb,1.2338e-05_jprb,1.4642e-05_jprb/)  
kbo( :, 3,59, 5) = (/&
 & 8.8759e-08_jprb,5.5323e-06_jprb,9.7147e-06_jprb,1.3360e-05_jprb,1.5267e-05_jprb/)  
kbo( :, 4,59, 5) = (/&
 & 1.4767e-07_jprb,6.2484e-06_jprb,1.0666e-05_jprb,1.4358e-05_jprb,1.5775e-05_jprb/)  
kbo( :, 5,59, 5) = (/&
 & 2.3207e-07_jprb,7.0847e-06_jprb,1.1728e-05_jprb,1.5422e-05_jprb,1.6178e-05_jprb/)  
kbo( :, 1,13, 6) = (/&
 & 2.6469e-03_jprb,7.2603e-02_jprb,1.2898e-01_jprb,1.8080e-01_jprb,2.2253e-01_jprb/)  
kbo( :, 2,13, 6) = (/&
 & 4.0410e-03_jprb,7.8062e-02_jprb,1.3546e-01_jprb,1.8736e-01_jprb,2.2767e-01_jprb/)  
kbo( :, 3,13, 6) = (/&
 & 5.9076e-03_jprb,8.4142e-02_jprb,1.4233e-01_jprb,1.9380e-01_jprb,2.3269e-01_jprb/)  
kbo( :, 4,13, 6) = (/&
 & 8.3159e-03_jprb,9.0550e-02_jprb,1.4952e-01_jprb,2.0027e-01_jprb,2.3737e-01_jprb/)  
kbo( :, 5,13, 6) = (/&
 & 1.1338e-02_jprb,9.6973e-02_jprb,1.5692e-01_jprb,2.0664e-01_jprb,2.4174e-01_jprb/)  
kbo( :, 1,14, 6) = (/&
 & 2.3459e-03_jprb,6.5146e-02_jprb,1.1561e-01_jprb,1.6205e-01_jprb,1.9813e-01_jprb/)  
kbo( :, 2,14, 6) = (/&
 & 3.5742e-03_jprb,7.0309e-02_jprb,1.2183e-01_jprb,1.6837e-01_jprb,2.0310e-01_jprb/)  
kbo( :, 3,14, 6) = (/&
 & 5.2156e-03_jprb,7.5953e-02_jprb,1.2830e-01_jprb,1.7462e-01_jprb,2.0779e-01_jprb/)  
kbo( :, 4,14, 6) = (/&
 & 7.3297e-03_jprb,8.1768e-02_jprb,1.3506e-01_jprb,1.8090e-01_jprb,2.1206e-01_jprb/)  
kbo( :, 5,14, 6) = (/&
 & 9.9793e-03_jprb,8.7785e-02_jprb,1.4192e-01_jprb,1.8688e-01_jprb,2.1597e-01_jprb/)  
kbo( :, 1,15, 6) = (/&
 & 2.0815e-03_jprb,5.8070e-02_jprb,1.0290e-01_jprb,1.4403e-01_jprb,1.7518e-01_jprb/)  
kbo( :, 2,15, 6) = (/&
 & 3.1616e-03_jprb,6.2877e-02_jprb,1.0871e-01_jprb,1.5003e-01_jprb,1.7983e-01_jprb/)  
kbo( :, 3,15, 6) = (/&
 & 4.5990e-03_jprb,6.8034e-02_jprb,1.1474e-01_jprb,1.5600e-01_jprb,1.8413e-01_jprb/)  
kbo( :, 4,15, 6) = (/&
 & 6.4457e-03_jprb,7.3357e-02_jprb,1.2094e-01_jprb,1.6184e-01_jprb,1.8811e-01_jprb/)  
kbo( :, 5,15, 6) = (/&
 & 8.7688e-03_jprb,7.8954e-02_jprb,1.2718e-01_jprb,1.6743e-01_jprb,1.9184e-01_jprb/)  
kbo( :, 1,16, 6) = (/&
 & 1.8434e-03_jprb,5.1431e-02_jprb,9.0904e-02_jprb,1.2695e-01_jprb,1.5373e-01_jprb/)  
kbo( :, 2,16, 6) = (/&
 & 2.7883e-03_jprb,5.5853e-02_jprb,9.6202e-02_jprb,1.3255e-01_jprb,1.5805e-01_jprb/)  
kbo( :, 3,16, 6) = (/&
 & 4.0405e-03_jprb,6.0484e-02_jprb,1.0174e-01_jprb,1.3809e-01_jprb,1.6209e-01_jprb/)  
kbo( :, 4,16, 6) = (/&
 & 5.6545e-03_jprb,6.5388e-02_jprb,1.0742e-01_jprb,1.4346e-01_jprb,1.6594e-01_jprb/)  
kbo( :, 5,16, 6) = (/&
 & 7.6948e-03_jprb,7.0557e-02_jprb,1.1317e-01_jprb,1.4876e-01_jprb,1.6944e-01_jprb/)  
kbo( :, 1,17, 6) = (/&
 & 1.6228e-03_jprb,4.5214e-02_jprb,7.9628e-02_jprb,1.1095e-01_jprb,1.3382e-01_jprb/)  
kbo( :, 2,17, 6) = (/&
 & 2.4444e-03_jprb,4.9201e-02_jprb,8.4449e-02_jprb,1.1610e-01_jprb,1.3782e-01_jprb/)  
kbo( :, 3,17, 6) = (/&
 & 3.5341e-03_jprb,5.3403e-02_jprb,8.9520e-02_jprb,1.2115e-01_jprb,1.4166e-01_jprb/)  
kbo( :, 4,17, 6) = (/&
 & 4.9442e-03_jprb,5.7899e-02_jprb,9.4657e-02_jprb,1.2610e-01_jprb,1.4516e-01_jprb/)  
kbo( :, 5,17, 6) = (/&
 & 6.7314e-03_jprb,6.2605e-02_jprb,9.9934e-02_jprb,1.3078e-01_jprb,1.4759e-01_jprb/)  
kbo( :, 1,18, 6) = (/&
 & 1.4215e-03_jprb,3.9490e-02_jprb,6.9231e-02_jprb,9.6243e-02_jprb,1.1568e-01_jprb/)  
kbo( :, 2,18, 6) = (/&
 & 2.1346e-03_jprb,4.3045e-02_jprb,7.3605e-02_jprb,1.0089e-01_jprb,1.1941e-01_jprb/)  
kbo( :, 3,18, 6) = (/&
 & 3.0824e-03_jprb,4.6855e-02_jprb,7.8190e-02_jprb,1.0547e-01_jprb,1.2277e-01_jprb/)  
kbo( :, 4,18, 6) = (/&
 & 4.3155e-03_jprb,5.0887e-02_jprb,8.2789e-02_jprb,1.0966e-01_jprb,1.2516e-01_jprb/)  
kbo( :, 5,18, 6) = (/&
 & 5.8773e-03_jprb,5.5100e-02_jprb,8.7246e-02_jprb,1.1319e-01_jprb,1.2607e-01_jprb/)  
kbo( :, 1,19, 6) = (/&
 & 1.2396e-03_jprb,3.4273e-02_jprb,5.9817e-02_jprb,8.2935e-02_jprb,9.9419e-02_jprb/)  
kbo( :, 2,19, 6) = (/&
 & 1.8580e-03_jprb,3.7439e-02_jprb,6.3787e-02_jprb,8.7073e-02_jprb,1.0261e-01_jprb/)  
kbo( :, 3,19, 6) = (/&
 & 2.6842e-03_jprb,4.0827e-02_jprb,6.7738e-02_jprb,9.0822e-02_jprb,1.0491e-01_jprb/)  
kbo( :, 4,19, 6) = (/&
 & 3.7596e-03_jprb,4.4308e-02_jprb,7.1517e-02_jprb,9.3932e-02_jprb,1.0593e-01_jprb/)  
kbo( :, 5,19, 6) = (/&
 & 5.1106e-03_jprb,4.7901e-02_jprb,7.4978e-02_jprb,9.6351e-02_jprb,1.0588e-01_jprb/)  
kbo( :, 1,20, 6) = (/&
 & 1.0863e-03_jprb,2.9636e-02_jprb,5.1506e-02_jprb,7.1094e-02_jprb,8.4913e-02_jprb/)  
kbo( :, 2,20, 6) = (/&
 & 1.6251e-03_jprb,3.2413e-02_jprb,5.4873e-02_jprb,7.4436e-02_jprb,8.7129e-02_jprb/)  
kbo( :, 3,20, 6) = (/&
 & 2.3482e-03_jprb,3.5255e-02_jprb,5.8051e-02_jprb,7.7198e-02_jprb,8.8290e-02_jprb/)  
kbo( :, 4,20, 6) = (/&
 & 3.2830e-03_jprb,3.8154e-02_jprb,6.0963e-02_jprb,7.9391e-02_jprb,8.8534e-02_jprb/)  
kbo( :, 5,20, 6) = (/&
 & 4.4496e-03_jprb,4.1105e-02_jprb,6.3670e-02_jprb,8.1212e-02_jprb,8.8096e-02_jprb/)  
kbo( :, 1,21, 6) = (/&
 & 9.5155e-04_jprb,2.5477e-02_jprb,4.4023e-02_jprb,6.0405e-02_jprb,7.1745e-02_jprb/)  
kbo( :, 2,21, 6) = (/&
 & 1.4227e-03_jprb,2.7779e-02_jprb,4.6702e-02_jprb,6.2887e-02_jprb,7.3006e-02_jprb/)  
kbo( :, 3,21, 6) = (/&
 & 2.0513e-03_jprb,3.0099e-02_jprb,4.9167e-02_jprb,6.4894e-02_jprb,7.3521e-02_jprb/)  
kbo( :, 4,21, 6) = (/&
 & 2.8588e-03_jprb,3.2465e-02_jprb,5.1448e-02_jprb,6.6586e-02_jprb,7.3416e-02_jprb/)  
kbo( :, 5,21, 6) = (/&
 & 3.8612e-03_jprb,3.4927e-02_jprb,5.3670e-02_jprb,6.8026e-02_jprb,7.2850e-02_jprb/)  
kbo( :, 1,22, 6) = (/&
 & 8.5713e-04_jprb,2.1832e-02_jprb,3.7420e-02_jprb,5.0944e-02_jprb,6.0002e-02_jprb/)  
kbo( :, 2,22, 6) = (/&
 & 1.2758e-03_jprb,2.3688e-02_jprb,3.9495e-02_jprb,5.2772e-02_jprb,6.0672e-02_jprb/)  
kbo( :, 3,22, 6) = (/&
 & 1.8291e-03_jprb,2.5590e-02_jprb,4.1428e-02_jprb,5.4322e-02_jprb,6.0829e-02_jprb/)  
kbo( :, 4,22, 6) = (/&
 & 2.5337e-03_jprb,2.7556e-02_jprb,4.3286e-02_jprb,5.5664e-02_jprb,6.0555e-02_jprb/)  
kbo( :, 5,22, 6) = (/&
 & 3.4060e-03_jprb,2.9653e-02_jprb,4.5131e-02_jprb,5.6799e-02_jprb,5.9942e-02_jprb/)  
kbo( :, 1,23, 6) = (/&
 & 7.7308e-04_jprb,1.8541e-02_jprb,3.1541e-02_jprb,4.2653e-02_jprb,4.9784e-02_jprb/)  
kbo( :, 2,23, 6) = (/&
 & 1.1436e-03_jprb,2.0060e-02_jprb,3.3177e-02_jprb,4.4071e-02_jprb,5.0135e-02_jprb/)  
kbo( :, 3,23, 6) = (/&
 & 1.6287e-03_jprb,2.1636e-02_jprb,3.4743e-02_jprb,4.5309e-02_jprb,5.0108e-02_jprb/)  
kbo( :, 4,23, 6) = (/&
 & 2.2433e-03_jprb,2.3301e-02_jprb,3.6276e-02_jprb,4.6369e-02_jprb,4.9769e-02_jprb/)  
kbo( :, 5,23, 6) = (/&
 & 3.0015e-03_jprb,2.5093e-02_jprb,3.7820e-02_jprb,4.7284e-02_jprb,4.9161e-02_jprb/)  
kbo( :, 1,24, 6) = (/&
 & 6.9820e-04_jprb,1.5662e-02_jprb,2.6451e-02_jprb,3.5569e-02_jprb,4.1103e-02_jprb/)  
kbo( :, 2,24, 6) = (/&
 & 1.0252e-03_jprb,1.6916e-02_jprb,2.7766e-02_jprb,3.6705e-02_jprb,4.1269e-02_jprb/)  
kbo( :, 3,24, 6) = (/&
 & 1.4503e-03_jprb,1.8243e-02_jprb,2.9050e-02_jprb,3.7680e-02_jprb,4.1148e-02_jprb/)  
kbo( :, 4,24, 6) = (/&
 & 1.9860e-03_jprb,1.9665e-02_jprb,3.0328e-02_jprb,3.8530e-02_jprb,4.0787e-02_jprb/)  
kbo( :, 5,24, 6) = (/&
 & 2.6469e-03_jprb,2.1188e-02_jprb,3.1637e-02_jprb,3.9277e-02_jprb,4.0220e-02_jprb/)  
kbo( :, 1,25, 6) = (/&
 & 6.3170e-04_jprb,1.3191e-02_jprb,2.2113e-02_jprb,2.9594e-02_jprb,3.3832e-02_jprb/)  
kbo( :, 2,25, 6) = (/&
 & 9.2001e-04_jprb,1.4240e-02_jprb,2.3188e-02_jprb,3.0496e-02_jprb,3.3883e-02_jprb/)  
kbo( :, 3,25, 6) = (/&
 & 1.2928e-03_jprb,1.5370e-02_jprb,2.4249e-02_jprb,3.1273e-02_jprb,3.3716e-02_jprb/)  
kbo( :, 4,25, 6) = (/&
 & 1.7603e-03_jprb,1.6573e-02_jprb,2.5329e-02_jprb,3.1960e-02_jprb,3.3363e-02_jprb/)  
kbo( :, 5,25, 6) = (/&
 & 2.3402e-03_jprb,1.7869e-02_jprb,2.6443e-02_jprb,3.2590e-02_jprb,3.2859e-02_jprb/)  
kbo( :, 1,26, 6) = (/&
 & 5.7419e-04_jprb,1.1097e-02_jprb,1.8461e-02_jprb,2.4587e-02_jprb,2.7791e-02_jprb/)  
kbo( :, 2,26, 6) = (/&
 & 8.2924e-04_jprb,1.1987e-02_jprb,1.9343e-02_jprb,2.5297e-02_jprb,2.7770e-02_jprb/)  
kbo( :, 3,26, 6) = (/&
 & 1.1565e-03_jprb,1.2945e-02_jprb,2.0233e-02_jprb,2.5928e-02_jprb,2.7584e-02_jprb/)  
kbo( :, 4,26, 6) = (/&
 & 1.5683e-03_jprb,1.3972e-02_jprb,2.1156e-02_jprb,2.6492e-02_jprb,2.7256e-02_jprb/)  
kbo( :, 5,26, 6) = (/&
 & 2.0814e-03_jprb,1.5076e-02_jprb,2.2099e-02_jprb,2.7036e-02_jprb,2.6815e-02_jprb/)  
kbo( :, 1,27, 6) = (/&
 & 5.2085e-04_jprb,9.3262e-03_jprb,1.5390e-02_jprb,2.0394e-02_jprb,2.2795e-02_jprb/)  
kbo( :, 2,27, 6) = (/&
 & 7.4611e-04_jprb,1.0083e-02_jprb,1.6124e-02_jprb,2.0964e-02_jprb,2.2740e-02_jprb/)  
kbo( :, 3,27, 6) = (/&
 & 1.0345e-03_jprb,1.0897e-02_jprb,1.6882e-02_jprb,2.1477e-02_jprb,2.2550e-02_jprb/)  
kbo( :, 4,27, 6) = (/&
 & 1.3997e-03_jprb,1.1774e-02_jprb,1.7663e-02_jprb,2.1954e-02_jprb,2.2255e-02_jprb/)  
kbo( :, 5,27, 6) = (/&
 & 1.8540e-03_jprb,1.2711e-02_jprb,1.8466e-02_jprb,2.2421e-02_jprb,2.1874e-02_jprb/)  
kbo( :, 1,28, 6) = (/&
 & 4.7154e-04_jprb,7.8350e-03_jprb,1.2820e-02_jprb,1.6898e-02_jprb,1.8683e-02_jprb/)  
kbo( :, 2,28, 6) = (/&
 & 6.7041e-04_jprb,8.4791e-03_jprb,1.3441e-02_jprb,1.7362e-02_jprb,1.8606e-02_jprb/)  
kbo( :, 3,28, 6) = (/&
 & 9.2613e-04_jprb,9.1729e-03_jprb,1.4084e-02_jprb,1.7787e-02_jprb,1.8427e-02_jprb/)  
kbo( :, 4,28, 6) = (/&
 & 1.2511e-03_jprb,9.9188e-03_jprb,1.4746e-02_jprb,1.8199e-02_jprb,1.8168e-02_jprb/)  
kbo( :, 5,28, 6) = (/&
 & 1.6528e-03_jprb,1.0715e-02_jprb,1.5432e-02_jprb,1.8597e-02_jprb,1.7841e-02_jprb/)  
kbo( :, 1,29, 6) = (/&
 & 4.2728e-04_jprb,6.5872e-03_jprb,1.0682e-02_jprb,1.3997e-02_jprb,1.5306e-02_jprb/)  
kbo( :, 2,29, 6) = (/&
 & 6.0398e-04_jprb,7.1366e-03_jprb,1.1209e-02_jprb,1.4377e-02_jprb,1.5221e-02_jprb/)  
kbo( :, 3,29, 6) = (/&
 & 8.3275e-04_jprb,7.7277e-03_jprb,1.1754e-02_jprb,1.4740e-02_jprb,1.5060e-02_jprb/)  
kbo( :, 4,29, 6) = (/&
 & 1.1219e-03_jprb,8.3625e-03_jprb,1.2318e-02_jprb,1.5088e-02_jprb,1.4833e-02_jprb/)  
kbo( :, 5,29, 6) = (/&
 & 1.4752e-03_jprb,9.0420e-03_jprb,1.2902e-02_jprb,1.5434e-02_jprb,1.4555e-02_jprb/)  
kbo( :, 1,30, 6) = (/&
 & 3.8695e-04_jprb,5.5390e-03_jprb,8.9023e-03_jprb,1.1592e-02_jprb,1.2537e-02_jprb/)  
kbo( :, 2,30, 6) = (/&
 & 5.4519e-04_jprb,6.0089e-03_jprb,9.3487e-03_jprb,1.1911e-02_jprb,1.2451e-02_jprb/)  
kbo( :, 3,30, 6) = (/&
 & 7.4997e-04_jprb,6.5118e-03_jprb,9.8133e-03_jprb,1.2219e-02_jprb,1.2307e-02_jprb/)  
kbo( :, 4,30, 6) = (/&
 & 1.0057e-03_jprb,7.0541e-03_jprb,1.0293e-02_jprb,1.2517e-02_jprb,1.2111e-02_jprb/)  
kbo( :, 5,30, 6) = (/&
 & 1.3159e-03_jprb,7.6360e-03_jprb,1.0791e-02_jprb,1.2813e-02_jprb,1.1876e-02_jprb/)  
kbo( :, 1,31, 6) = (/&
 & 3.5135e-04_jprb,4.6635e-03_jprb,7.4241e-03_jprb,9.6038e-03_jprb,1.0269e-02_jprb/)  
kbo( :, 2,31, 6) = (/&
 & 4.9394e-04_jprb,5.0642e-03_jprb,7.8045e-03_jprb,9.8736e-03_jprb,1.0187e-02_jprb/)  
kbo( :, 3,31, 6) = (/&
 & 6.7641e-04_jprb,5.4940e-03_jprb,8.1988e-03_jprb,1.0135e-02_jprb,1.0061e-02_jprb/)  
kbo( :, 4,31, 6) = (/&
 & 9.0234e-04_jprb,5.9565e-03_jprb,8.6081e-03_jprb,1.0392e-02_jprb,9.8960e-03_jprb/)  
kbo( :, 5,31, 6) = (/&
 & 1.1742e-03_jprb,6.4605e-03_jprb,9.0359e-03_jprb,1.0646e-02_jprb,9.7006e-03_jprb/)  
kbo( :, 1,32, 6) = (/&
 & 3.2001e-04_jprb,3.9308e-03_jprb,6.1947e-03_jprb,7.9626e-03_jprb,8.4097e-03_jprb/)  
kbo( :, 2,32, 6) = (/&
 & 4.4829e-04_jprb,4.2720e-03_jprb,6.5203e-03_jprb,8.1905e-03_jprb,8.3364e-03_jprb/)  
kbo( :, 3,32, 6) = (/&
 & 6.1024e-04_jprb,4.6387e-03_jprb,6.8547e-03_jprb,8.4122e-03_jprb,8.2274e-03_jprb/)  
kbo( :, 4,32, 6) = (/&
 & 8.0906e-04_jprb,5.0375e-03_jprb,7.2071e-03_jprb,8.6330e-03_jprb,8.0902e-03_jprb/)  
kbo( :, 5,32, 6) = (/&
 & 1.0464e-03_jprb,5.4823e-03_jprb,7.5792e-03_jprb,8.8523e-03_jprb,7.9289e-03_jprb/)  
kbo( :, 1,33, 6) = (/&
 & 2.9187e-04_jprb,3.3162e-03_jprb,5.1759e-03_jprb,6.6059e-03_jprb,6.8900e-03_jprb/)  
kbo( :, 2,33, 6) = (/&
 & 4.0643e-04_jprb,3.6075e-03_jprb,5.4523e-03_jprb,6.7980e-03_jprb,6.8251e-03_jprb/)  
kbo( :, 3,33, 6) = (/&
 & 5.4996e-04_jprb,3.9216e-03_jprb,5.7391e-03_jprb,6.9881e-03_jprb,6.7331e-03_jprb/)  
kbo( :, 4,33, 6) = (/&
 & 7.2438e-04_jprb,4.2703e-03_jprb,6.0424e-03_jprb,7.1762e-03_jprb,6.6187e-03_jprb/)  
kbo( :, 5,33, 6) = (/&
 & 9.3060e-04_jprb,4.6643e-03_jprb,6.3702e-03_jprb,7.3681e-03_jprb,6.4878e-03_jprb/)  
kbo( :, 1,34, 6) = (/&
 & 2.6296e-04_jprb,2.7910e-03_jprb,4.3184e-03_jprb,5.4761e-03_jprb,5.6450e-03_jprb/)  
kbo( :, 2,34, 6) = (/&
 & 3.6417e-04_jprb,3.0392e-03_jprb,4.5551e-03_jprb,5.6403e-03_jprb,5.5898e-03_jprb/)  
kbo( :, 3,34, 6) = (/&
 & 4.8977e-04_jprb,3.3104e-03_jprb,4.8001e-03_jprb,5.8026e-03_jprb,5.5129e-03_jprb/)  
kbo( :, 4,34, 6) = (/&
 & 6.4109e-04_jprb,3.6176e-03_jprb,5.0649e-03_jprb,5.9649e-03_jprb,5.4188e-03_jprb/)  
kbo( :, 5,34, 6) = (/&
 & 8.1804e-04_jprb,3.9621e-03_jprb,5.3546e-03_jprb,6.1354e-03_jprb,5.3128e-03_jprb/)  
kbo( :, 1,35, 6) = (/&
 & 2.2910e-04_jprb,2.3313e-03_jprb,3.5886e-03_jprb,4.5289e-03_jprb,4.6300e-03_jprb/)  
kbo( :, 2,35, 6) = (/&
 & 3.1618e-04_jprb,2.5413e-03_jprb,3.7885e-03_jprb,4.6696e-03_jprb,4.5851e-03_jprb/)  
kbo( :, 3,35, 6) = (/&
 & 4.2365e-04_jprb,2.7760e-03_jprb,3.9992e-03_jprb,4.8085e-03_jprb,4.5223e-03_jprb/)  
kbo( :, 4,35, 6) = (/&
 & 5.5209e-04_jprb,3.0435e-03_jprb,4.2290e-03_jprb,4.9499e-03_jprb,4.4473e-03_jprb/)  
kbo( :, 5,35, 6) = (/&
 & 7.0126e-04_jprb,3.3413e-03_jprb,4.4858e-03_jprb,5.1019e-03_jprb,4.3622e-03_jprb/)  
kbo( :, 1,36, 6) = (/&
 & 1.9220e-04_jprb,1.9293e-03_jprb,2.9645e-03_jprb,3.7347e-03_jprb,3.8021e-03_jprb/)  
kbo( :, 2,36, 6) = (/&
 & 2.6515e-04_jprb,2.1069e-03_jprb,3.1345e-03_jprb,3.8546e-03_jprb,3.7663e-03_jprb/)  
kbo( :, 3,36, 6) = (/&
 & 3.5491e-04_jprb,2.3084e-03_jprb,3.3147e-03_jprb,3.9746e-03_jprb,3.7181e-03_jprb/)  
kbo( :, 4,36, 6) = (/&
 & 4.6148e-04_jprb,2.5376e-03_jprb,3.5142e-03_jprb,4.0989e-03_jprb,3.6590e-03_jprb/)  
kbo( :, 5,36, 6) = (/&
 & 5.8535e-04_jprb,2.7911e-03_jprb,3.7375e-03_jprb,4.2333e-03_jprb,3.5914e-03_jprb/)  
kbo( :, 1,37, 6) = (/&
 & 1.5305e-04_jprb,1.5760e-03_jprb,2.4302e-03_jprb,3.0653e-03_jprb,3.1247e-03_jprb/)  
kbo( :, 2,37, 6) = (/&
 & 2.1204e-04_jprb,1.7239e-03_jprb,2.5719e-03_jprb,3.1677e-03_jprb,3.0989e-03_jprb/)  
kbo( :, 3,37, 6) = (/&
 & 2.8465e-04_jprb,1.8937e-03_jprb,2.7243e-03_jprb,3.2712e-03_jprb,3.0625e-03_jprb/)  
kbo( :, 4,37, 6) = (/&
 & 3.7093e-04_jprb,2.0863e-03_jprb,2.8955e-03_jprb,3.3791e-03_jprb,3.0167e-03_jprb/)  
kbo( :, 5,37, 6) = (/&
 & 4.7146e-04_jprb,2.2992e-03_jprb,3.0865e-03_jprb,3.4968e-03_jprb,2.9640e-03_jprb/)  
kbo( :, 1,38, 6) = (/&
 & 1.2136e-04_jprb,1.2859e-03_jprb,1.9906e-03_jprb,2.5150e-03_jprb,2.5688e-03_jprb/)  
kbo( :, 2,38, 6) = (/&
 & 1.6887e-04_jprb,1.4096e-03_jprb,2.1097e-03_jprb,2.6028e-03_jprb,2.5509e-03_jprb/)  
kbo( :, 3,38, 6) = (/&
 & 2.2753e-04_jprb,1.5523e-03_jprb,2.2385e-03_jprb,2.6923e-03_jprb,2.5240e-03_jprb/)  
kbo( :, 4,38, 6) = (/&
 & 2.9721e-04_jprb,1.7139e-03_jprb,2.3837e-03_jprb,2.7852e-03_jprb,2.4889e-03_jprb/)  
kbo( :, 5,38, 6) = (/&
 & 3.7858e-04_jprb,1.8923e-03_jprb,2.5471e-03_jprb,2.8888e-03_jprb,2.4479e-03_jprb/)  
kbo( :, 1,39, 6) = (/&
 & 9.6167e-05_jprb,1.0495e-03_jprb,1.6303e-03_jprb,2.0636e-03_jprb,2.1132e-03_jprb/)  
kbo( :, 2,39, 6) = (/&
 & 1.3440e-04_jprb,1.1528e-03_jprb,1.7304e-03_jprb,2.1389e-03_jprb,2.1009e-03_jprb/)  
kbo( :, 3,39, 6) = (/&
 & 1.8170e-04_jprb,1.2730e-03_jprb,1.8388e-03_jprb,2.2153e-03_jprb,2.0813e-03_jprb/)  
kbo( :, 4,39, 6) = (/&
 & 2.3793e-04_jprb,1.4086e-03_jprb,1.9640e-03_jprb,2.2962e-03_jprb,2.0549e-03_jprb/)  
kbo( :, 5,39, 6) = (/&
 & 3.0389e-04_jprb,1.5581e-03_jprb,2.1030e-03_jprb,2.3870e-03_jprb,2.0237e-03_jprb/)  
kbo( :, 1,40, 6) = (/&
 & 7.3361e-05_jprb,8.4824e-04_jprb,1.3271e-03_jprb,1.6866e-03_jprb,1.7362e-03_jprb/)  
kbo( :, 2,40, 6) = (/&
 & 1.0336e-04_jprb,9.3344e-04_jprb,1.4100e-03_jprb,1.7510e-03_jprb,1.7287e-03_jprb/)  
kbo( :, 3,40, 6) = (/&
 & 1.4073e-04_jprb,1.0330e-03_jprb,1.5012e-03_jprb,1.8164e-03_jprb,1.7149e-03_jprb/)  
kbo( :, 4,40, 6) = (/&
 & 1.8535e-04_jprb,1.1457e-03_jprb,1.6065e-03_jprb,1.8858e-03_jprb,1.6953e-03_jprb/)  
kbo( :, 5,40, 6) = (/&
 & 2.3794e-04_jprb,1.2701e-03_jprb,1.7242e-03_jprb,1.9642e-03_jprb,1.6715e-03_jprb/)  
kbo( :, 1,41, 6) = (/&
 & 5.5536e-05_jprb,6.8458e-04_jprb,1.0790e-03_jprb,1.3774e-03_jprb,1.4257e-03_jprb/)  

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


SUBROUTINE part21

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


kbo( :, 2,41, 6) = (/&
 & 7.8965e-05_jprb,7.5448e-04_jprb,1.1479e-03_jprb,1.4323e-03_jprb,1.4220e-03_jprb/)  
kbo( :, 3,41, 6) = (/&
 & 1.0837e-04_jprb,8.3692e-04_jprb,1.2239e-03_jprb,1.4879e-03_jprb,1.4126e-03_jprb/)  
kbo( :, 4,41, 6) = (/&
 & 1.4371e-04_jprb,9.3022e-04_jprb,1.3127e-03_jprb,1.5474e-03_jprb,1.3983e-03_jprb/)  
kbo( :, 5,41, 6) = (/&
 & 1.8543e-04_jprb,1.0335e-03_jprb,1.4117e-03_jprb,1.6149e-03_jprb,1.3804e-03_jprb/)  
kbo( :, 1,42, 6) = (/&
 & 4.1927e-05_jprb,5.5223e-04_jprb,8.7661e-04_jprb,1.1242e-03_jprb,1.1705e-03_jprb/)  
kbo( :, 2,42, 6) = (/&
 & 6.0156e-05_jprb,6.0961e-04_jprb,9.3423e-04_jprb,1.1710e-03_jprb,1.1695e-03_jprb/)  
kbo( :, 3,42, 6) = (/&
 & 8.3258e-05_jprb,6.7778e-04_jprb,9.9759e-04_jprb,1.2187e-03_jprb,1.1637e-03_jprb/)  
kbo( :, 4,42, 6) = (/&
 & 1.1119e-04_jprb,7.5501e-04_jprb,1.0720e-03_jprb,1.2691e-03_jprb,1.1534e-03_jprb/)  
kbo( :, 5,42, 6) = (/&
 & 1.4431e-04_jprb,8.4052e-04_jprb,1.1554e-03_jprb,1.3271e-03_jprb,1.1399e-03_jprb/)  
kbo( :, 1,43, 6) = (/&
 & 3.0871e-05_jprb,4.4295e-04_jprb,7.0961e-04_jprb,9.1501e-04_jprb,9.6059e-04_jprb/)  
kbo( :, 2,43, 6) = (/&
 & 4.4814e-05_jprb,4.8939e-04_jprb,7.5700e-04_jprb,9.5494e-04_jprb,9.6152e-04_jprb/)  
kbo( :, 3,43, 6) = (/&
 & 6.2693e-05_jprb,5.4521e-04_jprb,8.0961e-04_jprb,9.9510e-04_jprb,9.5849e-04_jprb/)  
kbo( :, 4,43, 6) = (/&
 & 8.4515e-05_jprb,6.0874e-04_jprb,8.7133e-04_jprb,1.0381e-03_jprb,9.5168e-04_jprb/)  
kbo( :, 5,43, 6) = (/&
 & 1.1049e-04_jprb,6.7929e-04_jprb,9.4142e-04_jprb,1.0873e-03_jprb,9.4176e-04_jprb/)  
kbo( :, 1,44, 6) = (/&
 & 2.2405e-05_jprb,3.5419e-04_jprb,5.7300e-04_jprb,7.4330e-04_jprb,7.8767e-04_jprb/)  
kbo( :, 2,44, 6) = (/&
 & 3.2966e-05_jprb,3.9175e-04_jprb,6.1232e-04_jprb,7.7738e-04_jprb,7.9040e-04_jprb/)  
kbo( :, 3,44, 6) = (/&
 & 4.6673e-05_jprb,4.3706e-04_jprb,6.5546e-04_jprb,8.1138e-04_jprb,7.8937e-04_jprb/)  
kbo( :, 4,44, 6) = (/&
 & 6.3585e-05_jprb,4.8914e-04_jprb,7.0656e-04_jprb,8.4741e-04_jprb,7.8495e-04_jprb/)  
kbo( :, 5,44, 6) = (/&
 & 8.3871e-05_jprb,5.4682e-04_jprb,7.6475e-04_jprb,8.8894e-04_jprb,7.7792e-04_jprb/)  
kbo( :, 1,45, 6) = (/&
 & 1.6187e-05_jprb,2.8311e-04_jprb,4.6245e-04_jprb,6.0348e-04_jprb,6.4574e-04_jprb/)  
kbo( :, 2,45, 6) = (/&
 & 2.4128e-05_jprb,3.1327e-04_jprb,4.9462e-04_jprb,6.3227e-04_jprb,6.4929e-04_jprb/)  
kbo( :, 3,45, 6) = (/&
 & 3.4598e-05_jprb,3.4993e-04_jprb,5.3013e-04_jprb,6.6097e-04_jprb,6.4978e-04_jprb/)  
kbo( :, 4,45, 6) = (/&
 & 4.7680e-05_jprb,3.9262e-04_jprb,5.7224e-04_jprb,6.9137e-04_jprb,6.4736e-04_jprb/)  
kbo( :, 5,45, 6) = (/&
 & 6.3477e-05_jprb,4.3989e-04_jprb,6.2080e-04_jprb,7.2641e-04_jprb,6.4265e-04_jprb/)  
kbo( :, 1,46, 6) = (/&
 & 1.1520e-05_jprb,2.2564e-04_jprb,3.7222e-04_jprb,4.8884e-04_jprb,5.2865e-04_jprb/)  
kbo( :, 2,46, 6) = (/&
 & 1.7434e-05_jprb,2.4986e-04_jprb,3.9882e-04_jprb,5.1333e-04_jprb,5.3299e-04_jprb/)  
kbo( :, 3,46, 6) = (/&
 & 2.5336e-05_jprb,2.7928e-04_jprb,4.2790e-04_jprb,5.3774e-04_jprb,5.3473e-04_jprb/)  
kbo( :, 4,46, 6) = (/&
 & 3.5391e-05_jprb,3.1408e-04_jprb,4.6247e-04_jprb,5.6316e-04_jprb,5.3383e-04_jprb/)  
kbo( :, 5,46, 6) = (/&
 & 4.7626e-05_jprb,3.5268e-04_jprb,5.0275e-04_jprb,5.9251e-04_jprb,5.3089e-04_jprb/)  
kbo( :, 1,47, 6) = (/&
 & 7.9924e-06_jprb,1.7901e-04_jprb,2.9855e-04_jprb,3.9477e-04_jprb,4.3220e-04_jprb/)  
kbo( :, 2,47, 6) = (/&
 & 1.2309e-05_jprb,1.9833e-04_jprb,3.2055e-04_jprb,4.1563e-04_jprb,4.3695e-04_jprb/)  
kbo( :, 3,47, 6) = (/&
 & 1.8181e-05_jprb,2.2162e-04_jprb,3.4407e-04_jprb,4.3618e-04_jprb,4.3945e-04_jprb/)  
kbo( :, 4,47, 6) = (/&
 & 2.5793e-05_jprb,2.4965e-04_jprb,3.7202e-04_jprb,4.5733e-04_jprb,4.3966e-04_jprb/)  
kbo( :, 5,47, 6) = (/&
 & 3.5147e-05_jprb,2.8107e-04_jprb,4.0519e-04_jprb,4.8165e-04_jprb,4.3810e-04_jprb/)  
kbo( :, 1,48, 6) = (/&
 & 5.4989e-06_jprb,1.4192e-04_jprb,2.3922e-04_jprb,3.1843e-04_jprb,3.5311e-04_jprb/)  
kbo( :, 2,48, 6) = (/&
 & 8.6315e-06_jprb,1.5730e-04_jprb,2.5726e-04_jprb,3.3610e-04_jprb,3.5792e-04_jprb/)  
kbo( :, 3,48, 6) = (/&
 & 1.2966e-05_jprb,1.7572e-04_jprb,2.7645e-04_jprb,3.5343e-04_jprb,3.6095e-04_jprb/)  
kbo( :, 4,48, 6) = (/&
 & 1.8681e-05_jprb,1.9817e-04_jprb,2.9900e-04_jprb,3.7105e-04_jprb,3.6197e-04_jprb/)  
kbo( :, 5,48, 6) = (/&
 & 2.5826e-05_jprb,2.2362e-04_jprb,3.2610e-04_jprb,3.9105e-04_jprb,3.6145e-04_jprb/)  
kbo( :, 1,49, 6) = (/&
 & 3.7496e-06_jprb,1.1244e-04_jprb,1.9146e-04_jprb,2.5656e-04_jprb,2.8829e-04_jprb/)  
kbo( :, 2,49, 6) = (/&
 & 6.0096e-06_jprb,1.2470e-04_jprb,2.0632e-04_jprb,2.7145e-04_jprb,2.9308e-04_jprb/)  
kbo( :, 3,49, 6) = (/&
 & 9.1827e-06_jprb,1.3921e-04_jprb,2.2197e-04_jprb,2.8604e-04_jprb,2.9630e-04_jprb/)  
kbo( :, 4,49, 6) = (/&
 & 1.3445e-05_jprb,1.5710e-04_jprb,2.4010e-04_jprb,3.0080e-04_jprb,2.9804e-04_jprb/)  
kbo( :, 5,49, 6) = (/&
 & 1.8873e-05_jprb,1.7770e-04_jprb,2.6214e-04_jprb,3.1726e-04_jprb,2.9838e-04_jprb/)  
kbo( :, 1,50, 6) = (/&
 & 2.5671e-06_jprb,8.9202e-05_jprb,1.5332e-04_jprb,2.0675e-04_jprb,2.3501e-04_jprb/)  
kbo( :, 2,50, 6) = (/&
 & 4.1982e-06_jprb,9.9030e-05_jprb,1.6552e-04_jprb,2.1923e-04_jprb,2.3945e-04_jprb/)  
kbo( :, 3,50, 6) = (/&
 & 6.5267e-06_jprb,1.1055e-04_jprb,1.7841e-04_jprb,2.3163e-04_jprb,2.4283e-04_jprb/)  
kbo( :, 4,50, 6) = (/&
 & 9.7111e-06_jprb,1.2482e-04_jprb,1.9315e-04_jprb,2.4401e-04_jprb,2.4486e-04_jprb/)  
kbo( :, 5,50, 6) = (/&
 & 1.3834e-05_jprb,1.4148e-04_jprb,2.1114e-04_jprb,2.5764e-04_jprb,2.4575e-04_jprb/)  
kbo( :, 1,51, 6) = (/&
 & 1.7531e-06_jprb,7.0824e-05_jprb,1.2282e-04_jprb,1.6665e-04_jprb,1.9149e-04_jprb/)  
kbo( :, 2,51, 6) = (/&
 & 2.9260e-06_jprb,7.8726e-05_jprb,1.3289e-04_jprb,1.7703e-04_jprb,1.9549e-04_jprb/)  
kbo( :, 3,51, 6) = (/&
 & 4.6328e-06_jprb,8.7882e-05_jprb,1.4342e-04_jprb,1.8752e-04_jprb,1.9871e-04_jprb/)  
kbo( :, 4,51, 6) = (/&
 & 7.0046e-06_jprb,9.9229e-05_jprb,1.5538e-04_jprb,1.9791e-04_jprb,2.0087e-04_jprb/)  
kbo( :, 5,51, 6) = (/&
 & 1.0130e-05_jprb,1.1266e-04_jprb,1.6996e-04_jprb,2.0914e-04_jprb,2.0202e-04_jprb/)  
kbo( :, 1,52, 6) = (/&
 & 1.1881e-06_jprb,5.6174e-05_jprb,9.8252e-05_jprb,1.3417e-04_jprb,1.5588e-04_jprb/)  
kbo( :, 2,52, 6) = (/&
 & 2.0257e-06_jprb,6.2550e-05_jprb,1.0656e-04_jprb,1.4280e-04_jprb,1.5952e-04_jprb/)  
kbo( :, 3,52, 6) = (/&
 & 3.2686e-06_jprb,6.9845e-05_jprb,1.1522e-04_jprb,1.5163e-04_jprb,1.6251e-04_jprb/)  
kbo( :, 4,52, 6) = (/&
 & 5.0263e-06_jprb,7.8807e-05_jprb,1.2491e-04_jprb,1.6037e-04_jprb,1.6475e-04_jprb/)  
kbo( :, 5,52, 6) = (/&
 & 7.3808e-06_jprb,8.9616e-05_jprb,1.3676e-04_jprb,1.6966e-04_jprb,1.6606e-04_jprb/)  
kbo( :, 1,53, 6) = (/&
 & 7.9832e-07_jprb,4.4542e-05_jprb,7.8584e-05_jprb,1.0800e-04_jprb,1.2691e-04_jprb/)  
kbo( :, 2,53, 6) = (/&
 & 1.3907e-06_jprb,4.9657e-05_jprb,8.5371e-05_jprb,1.1509e-04_jprb,1.3015e-04_jprb/)  
kbo( :, 3,53, 6) = (/&
 & 2.2894e-06_jprb,5.5484e-05_jprb,9.2507e-05_jprb,1.2251e-04_jprb,1.3293e-04_jprb/)  
kbo( :, 4,53, 6) = (/&
 & 3.5816e-06_jprb,6.2524e-05_jprb,1.0033e-04_jprb,1.2981e-04_jprb,1.3510e-04_jprb/)  
kbo( :, 5,53, 6) = (/&
 & 5.3461e-06_jprb,7.1179e-05_jprb,1.0986e-04_jprb,1.3751e-04_jprb,1.3653e-04_jprb/)  
kbo( :, 1,54, 6) = (/&
 & 5.4266e-07_jprb,3.5380e-05_jprb,6.2932e-05_jprb,8.7009e-05_jprb,1.0307e-04_jprb/)  
kbo( :, 2,54, 6) = (/&
 & 9.6274e-07_jprb,3.9519e-05_jprb,6.8507e-05_jprb,9.2859e-05_jprb,1.0590e-04_jprb/)  
kbo( :, 3,54, 6) = (/&
 & 1.6160e-06_jprb,4.4199e-05_jprb,7.4364e-05_jprb,9.9034e-05_jprb,1.0834e-04_jprb/)  
kbo( :, 4,54, 6) = (/&
 & 2.5711e-06_jprb,4.9786e-05_jprb,8.0771e-05_jprb,1.0520e-04_jprb,1.1032e-04_jprb/)  
kbo( :, 5,54, 6) = (/&
 & 3.8980e-06_jprb,5.6706e-05_jprb,8.8453e-05_jprb,1.1157e-04_jprb,1.1168e-04_jprb/)  
kbo( :, 1,55, 6) = (/&
 & 3.6993e-07_jprb,2.8151e-05_jprb,5.0447e-05_jprb,7.0154e-05_jprb,8.3628e-05_jprb/)  
kbo( :, 2,55, 6) = (/&
 & 6.6712e-07_jprb,3.1488e-05_jprb,5.5000e-05_jprb,7.4925e-05_jprb,8.6021e-05_jprb/)  
kbo( :, 3,55, 6) = (/&
 & 1.1415e-06_jprb,3.5243e-05_jprb,5.9803e-05_jprb,8.0054e-05_jprb,8.8077e-05_jprb/)  
kbo( :, 4,55, 6) = (/&
 & 1.8471e-06_jprb,3.9685e-05_jprb,6.5040e-05_jprb,8.5219e-05_jprb,8.9795e-05_jprb/)  
kbo( :, 5,55, 6) = (/&
 & 2.8436e-06_jprb,4.5216e-05_jprb,7.1236e-05_jprb,9.0537e-05_jprb,9.1036e-05_jprb/)  
kbo( :, 1,56, 6) = (/&
 & 2.5120e-07_jprb,2.2384e-05_jprb,4.0408e-05_jprb,5.6527e-05_jprb,6.7818e-05_jprb/)  
kbo( :, 2,56, 6) = (/&
 & 4.5929e-07_jprb,2.5052e-05_jprb,4.4089e-05_jprb,6.0389e-05_jprb,6.9831e-05_jprb/)  
kbo( :, 3,56, 6) = (/&
 & 8.0167e-07_jprb,2.8088e-05_jprb,4.8066e-05_jprb,6.4674e-05_jprb,7.1604e-05_jprb/)  
kbo( :, 4,56, 6) = (/&
 & 1.3201e-06_jprb,3.1626e-05_jprb,5.2345e-05_jprb,6.8997e-05_jprb,7.3067e-05_jprb/)  
kbo( :, 5,56, 6) = (/&
 & 2.0659e-06_jprb,3.6024e-05_jprb,5.7338e-05_jprb,7.3417e-05_jprb,7.4207e-05_jprb/)  
kbo( :, 1,57, 6) = (/&
 & 1.7004e-07_jprb,1.7782e-05_jprb,3.2345e-05_jprb,4.5525e-05_jprb,5.4975e-05_jprb/)  
kbo( :, 2,57, 6) = (/&
 & 3.1410e-07_jprb,1.9933e-05_jprb,3.5335e-05_jprb,4.8660e-05_jprb,5.6678e-05_jprb/)  
kbo( :, 3,57, 6) = (/&
 & 5.5924e-07_jprb,2.2368e-05_jprb,3.8595e-05_jprb,5.2193e-05_jprb,5.8180e-05_jprb/)  
kbo( :, 4,57, 6) = (/&
 & 9.3826e-07_jprb,2.5192e-05_jprb,4.2090e-05_jprb,5.5809e-05_jprb,5.9446e-05_jprb/)  
kbo( :, 5,57, 6) = (/&
 & 1.4926e-06_jprb,2.8677e-05_jprb,4.6125e-05_jprb,5.9484e-05_jprb,6.0455e-05_jprb/)  
kbo( :, 1,58, 6) = (/&
 & 1.1577e-07_jprb,1.4158e-05_jprb,2.5932e-05_jprb,3.6700e-05_jprb,4.4570e-05_jprb/)  
kbo( :, 2,58, 6) = (/&
 & 2.1587e-07_jprb,1.5875e-05_jprb,2.8345e-05_jprb,3.9233e-05_jprb,4.6003e-05_jprb/)  
kbo( :, 3,58, 6) = (/&
 & 3.9135e-07_jprb,1.7835e-05_jprb,3.1005e-05_jprb,4.2122e-05_jprb,4.7262e-05_jprb/)  
kbo( :, 4,58, 6) = (/&
 & 6.6857e-07_jprb,2.0101e-05_jprb,3.3873e-05_jprb,4.5147e-05_jprb,4.8336e-05_jprb/)  
kbo( :, 5,58, 6) = (/&
 & 1.0806e-06_jprb,2.2861e-05_jprb,3.7148e-05_jprb,4.8221e-05_jprb,4.9215e-05_jprb/)  
kbo( :, 1,59, 6) = (/&
 & 8.8304e-08_jprb,1.1506e-05_jprb,2.1115e-05_jprb,2.9926e-05_jprb,3.6293e-05_jprb/)  
kbo( :, 2,59, 6) = (/&
 & 1.6550e-07_jprb,1.2912e-05_jprb,2.3105e-05_jprb,3.2031e-05_jprb,3.7443e-05_jprb/)  
kbo( :, 3,59, 6) = (/&
 & 3.0240e-07_jprb,1.4529e-05_jprb,2.5310e-05_jprb,3.4431e-05_jprb,3.8446e-05_jprb/)  
kbo( :, 4,59, 6) = (/&
 & 5.2081e-07_jprb,1.6394e-05_jprb,2.7692e-05_jprb,3.6949e-05_jprb,3.9290e-05_jprb/)  
kbo( :, 5,59, 6) = (/&
 & 8.4770e-07_jprb,1.8680e-05_jprb,3.0444e-05_jprb,3.9546e-05_jprb,3.9972e-05_jprb/)  
kbo( :, 1,13, 7) = (/&
 & 7.6417e-03_jprb,1.4685e-01_jprb,2.6416e-01_jprb,3.6864e-01_jprb,4.6109e-01_jprb/)  
kbo( :, 2,13, 7) = (/&
 & 1.1521e-02_jprb,1.5454e-01_jprb,2.7251e-01_jprb,3.7688e-01_jprb,4.6334e-01_jprb/)  
kbo( :, 3,13, 7) = (/&
 & 1.6613e-02_jprb,1.6273e-01_jprb,2.8042e-01_jprb,3.8453e-01_jprb,4.6553e-01_jprb/)  
kbo( :, 4,13, 7) = (/&
 & 2.3028e-02_jprb,1.7232e-01_jprb,2.8850e-01_jprb,3.9133e-01_jprb,4.6726e-01_jprb/)  
kbo( :, 5,13, 7) = (/&
 & 3.0788e-02_jprb,1.8356e-01_jprb,2.9741e-01_jprb,3.9745e-01_jprb,4.6774e-01_jprb/)  
kbo( :, 1,14, 7) = (/&
 & 6.7826e-03_jprb,1.3584e-01_jprb,2.4414e-01_jprb,3.4060e-01_jprb,4.2274e-01_jprb/)  
kbo( :, 2,14, 7) = (/&
 & 1.0248e-02_jprb,1.4315e-01_jprb,2.5224e-01_jprb,3.4887e-01_jprb,4.2540e-01_jprb/)  
kbo( :, 3,14, 7) = (/&
 & 1.4775e-02_jprb,1.5124e-01_jprb,2.6040e-01_jprb,3.5649e-01_jprb,4.2762e-01_jprb/)  
kbo( :, 4,14, 7) = (/&
 & 2.0429e-02_jprb,1.6084e-01_jprb,2.6907e-01_jprb,3.6333e-01_jprb,4.2937e-01_jprb/)  
kbo( :, 5,14, 7) = (/&
 & 2.7297e-02_jprb,1.7167e-01_jprb,2.7817e-01_jprb,3.7020e-01_jprb,4.3049e-01_jprb/)  
kbo( :, 1,15, 7) = (/&
 & 6.0553e-03_jprb,1.2441e-01_jprb,2.2318e-01_jprb,3.1131e-01_jprb,3.8387e-01_jprb/)  
kbo( :, 2,15, 7) = (/&
 & 9.1374e-03_jprb,1.3148e-01_jprb,2.3116e-01_jprb,3.1936e-01_jprb,3.8692e-01_jprb/)  
kbo( :, 3,15, 7) = (/&
 & 1.3123e-02_jprb,1.3959e-01_jprb,2.3951e-01_jprb,3.2683e-01_jprb,3.8938e-01_jprb/)  
kbo( :, 4,15, 7) = (/&
 & 1.8101e-02_jprb,1.4896e-01_jprb,2.4836e-01_jprb,3.3404e-01_jprb,3.9141e-01_jprb/)  
kbo( :, 5,15, 7) = (/&
 & 2.4175e-02_jprb,1.5911e-01_jprb,2.5777e-01_jprb,3.4141e-01_jprb,3.9315e-01_jprb/)  
kbo( :, 1,16, 7) = (/&
 & 5.4131e-03_jprb,1.1283e-01_jprb,2.0186e-01_jprb,2.8155e-01_jprb,3.4527e-01_jprb/)  
kbo( :, 2,16, 7) = (/&
 & 8.1288e-03_jprb,1.1972e-01_jprb,2.0981e-01_jprb,2.8928e-01_jprb,3.4862e-01_jprb/)  
kbo( :, 3,16, 7) = (/&
 & 1.1627e-02_jprb,1.2773e-01_jprb,2.1812e-01_jprb,2.9668e-01_jprb,3.5162e-01_jprb/)  
kbo( :, 4,16, 7) = (/&
 & 1.6009e-02_jprb,1.3671e-01_jprb,2.2693e-01_jprb,3.0423e-01_jprb,3.5439e-01_jprb/)  
kbo( :, 5,16, 7) = (/&
 & 2.1373e-02_jprb,1.4625e-01_jprb,2.3648e-01_jprb,3.1202e-01_jprb,3.5679e-01_jprb/)  
kbo( :, 1,17, 7) = (/&
 & 4.8149e-03_jprb,1.0146e-01_jprb,1.8080e-01_jprb,2.5190e-01_jprb,3.0738e-01_jprb/)  
kbo( :, 2,17, 7) = (/&
 & 7.1924e-03_jprb,1.0816e-01_jprb,1.8856e-01_jprb,2.5937e-01_jprb,3.1115e-01_jprb/)  
kbo( :, 3,17, 7) = (/&
 & 1.0254e-02_jprb,1.1589e-01_jprb,1.9675e-01_jprb,2.6692e-01_jprb,3.1465e-01_jprb/)  
kbo( :, 4,17, 7) = (/&
 & 1.4092e-02_jprb,1.2436e-01_jprb,2.0561e-01_jprb,2.7457e-01_jprb,3.1792e-01_jprb/)  
kbo( :, 5,17, 7) = (/&
 & 1.8801e-02_jprb,1.3345e-01_jprb,2.1493e-01_jprb,2.8234e-01_jprb,3.2110e-01_jprb/)  
kbo( :, 1,18, 7) = (/&
 & 4.2633e-03_jprb,9.0462e-02_jprb,1.6049e-01_jprb,2.2327e-01_jprb,2.7128e-01_jprb/)  
kbo( :, 2,18, 7) = (/&
 & 6.3371e-03_jprb,9.6983e-02_jprb,1.6798e-01_jprb,2.3054e-01_jprb,2.7526e-01_jprb/)  
kbo( :, 3,18, 7) = (/&
 & 9.0048e-03_jprb,1.0434e-01_jprb,1.7596e-01_jprb,2.3795e-01_jprb,2.7919e-01_jprb/)  
kbo( :, 4,18, 7) = (/&
 & 1.2349e-02_jprb,1.1235e-01_jprb,1.8455e-01_jprb,2.4558e-01_jprb,2.8307e-01_jprb/)  
kbo( :, 5,18, 7) = (/&
 & 1.6477e-02_jprb,1.2095e-01_jprb,1.9366e-01_jprb,2.5349e-01_jprb,2.8698e-01_jprb/)  
kbo( :, 1,19, 7) = (/&
 & 3.7554e-03_jprb,8.0086e-02_jprb,1.4130e-01_jprb,1.9618e-01_jprb,2.3729e-01_jprb/)  
kbo( :, 2,19, 7) = (/&
 & 5.5565e-03_jprb,8.6345e-02_jprb,1.4840e-01_jprb,2.0316e-01_jprb,2.4150e-01_jprb/)  
kbo( :, 3,19, 7) = (/&
 & 7.8702e-03_jprb,9.3236e-02_jprb,1.5616e-01_jprb,2.1043e-01_jprb,2.4581e-01_jprb/)  
kbo( :, 4,19, 7) = (/&
 & 1.0787e-02_jprb,1.0080e-01_jprb,1.6449e-01_jprb,2.1798e-01_jprb,2.5008e-01_jprb/)  
kbo( :, 5,19, 7) = (/&
 & 1.4413e-02_jprb,1.0887e-01_jprb,1.7330e-01_jprb,2.2565e-01_jprb,2.5355e-01_jprb/)  
kbo( :, 1,20, 7) = (/&
 & 3.3111e-03_jprb,7.0557e-02_jprb,1.2355e-01_jprb,1.7117e-01_jprb,2.0615e-01_jprb/)  
kbo( :, 2,20, 7) = (/&
 & 4.8768e-03_jprb,7.6467e-02_jprb,1.3039e-01_jprb,1.7787e-01_jprb,2.1057e-01_jprb/)  
kbo( :, 3,20, 7) = (/&
 & 6.8937e-03_jprb,8.2939e-02_jprb,1.3783e-01_jprb,1.8491e-01_jprb,2.1500e-01_jprb/)  
kbo( :, 4,20, 7) = (/&
 & 9.4568e-03_jprb,8.9997e-02_jprb,1.4573e-01_jprb,1.9190e-01_jprb,2.1847e-01_jprb/)  
kbo( :, 5,20, 7) = (/&
 & 1.2649e-02_jprb,9.7398e-02_jprb,1.5380e-01_jprb,1.9837e-01_jprb,2.2024e-01_jprb/)  
kbo( :, 1,21, 7) = (/&
 & 2.9095e-03_jprb,6.1851e-02_jprb,1.0745e-01_jprb,1.4844e-01_jprb,1.7810e-01_jprb/)  
kbo( :, 2,21, 7) = (/&
 & 4.2692e-03_jprb,6.7344e-02_jprb,1.1397e-01_jprb,1.5479e-01_jprb,1.8248e-01_jprb/)  
kbo( :, 3,21, 7) = (/&
 & 6.0338e-03_jprb,7.3350e-02_jprb,1.2086e-01_jprb,1.6105e-01_jprb,1.8592e-01_jprb/)  
kbo( :, 4,21, 7) = (/&
 & 8.2818e-03_jprb,7.9701e-02_jprb,1.2784e-01_jprb,1.6671e-01_jprb,1.8765e-01_jprb/)  
kbo( :, 5,21, 7) = (/&
 & 1.1081e-02_jprb,8.6263e-02_jprb,1.3464e-01_jprb,1.7152e-01_jprb,1.8756e-01_jprb/)  
kbo( :, 1,22, 7) = (/&
 & 2.6181e-03_jprb,5.4287e-02_jprb,9.3450e-02_jprb,1.2844e-01_jprb,1.5335e-01_jprb/)  
kbo( :, 2,22, 7) = (/&
 & 3.8243e-03_jprb,5.9349e-02_jprb,9.9393e-02_jprb,1.3393e-01_jprb,1.5664e-01_jprb/)  
kbo( :, 3,22, 7) = (/&
 & 5.3935e-03_jprb,6.4666e-02_jprb,1.0530e-01_jprb,1.3879e-01_jprb,1.5834e-01_jprb/)  
kbo( :, 4,22, 7) = (/&
 & 7.3925e-03_jprb,7.0137e-02_jprb,1.1102e-01_jprb,1.4284e-01_jprb,1.5840e-01_jprb/)  
kbo( :, 5,22, 7) = (/&
 & 9.8581e-03_jprb,7.5739e-02_jprb,1.1637e-01_jprb,1.4626e-01_jprb,1.5728e-01_jprb/)  
kbo( :, 1,23, 7) = (/&
 & 2.3567e-03_jprb,4.7466e-02_jprb,8.0891e-02_jprb,1.1029e-01_jprb,1.3073e-01_jprb/)  

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


SUBROUTINE part22

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


kbo( :, 2,23, 7) = (/&
 & 3.4308e-03_jprb,5.1876e-02_jprb,8.5843e-02_jprb,1.1448e-01_jprb,1.3247e-01_jprb/)  
kbo( :, 3,23, 7) = (/&
 & 4.8257e-03_jprb,5.6351e-02_jprb,9.0620e-02_jprb,1.1795e-01_jprb,1.3277e-01_jprb/)  
kbo( :, 4,23, 7) = (/&
 & 6.5958e-03_jprb,6.0900e-02_jprb,9.5105e-02_jprb,1.2092e-01_jprb,1.3207e-01_jprb/)  
kbo( :, 5,23, 7) = (/&
 & 8.7592e-03_jprb,6.5586e-02_jprb,9.9383e-02_jprb,1.2354e-01_jprb,1.3064e-01_jprb/)  
kbo( :, 1,24, 7) = (/&
 & 2.1271e-03_jprb,4.1190e-02_jprb,6.9395e-02_jprb,9.3707e-02_jprb,1.1002e-01_jprb/)  
kbo( :, 2,24, 7) = (/&
 & 3.0856e-03_jprb,4.4852e-02_jprb,7.3354e-02_jprb,9.6714e-02_jprb,1.1057e-01_jprb/)  
kbo( :, 3,24, 7) = (/&
 & 4.3257e-03_jprb,4.8524e-02_jprb,7.7130e-02_jprb,9.9321e-02_jprb,1.1024e-01_jprb/)  
kbo( :, 4,24, 7) = (/&
 & 5.8826e-03_jprb,5.2297e-02_jprb,8.0734e-02_jprb,1.0166e-01_jprb,1.0927e-01_jprb/)  
kbo( :, 5,24, 7) = (/&
 & 7.7717e-03_jprb,5.6295e-02_jprb,8.4275e-02_jprb,1.0378e-01_jprb,1.0782e-01_jprb/)  
kbo( :, 1,25, 7) = (/&
 & 1.9281e-03_jprb,3.5411e-02_jprb,5.8998e-02_jprb,7.8852e-02_jprb,9.1568e-02_jprb/)  
kbo( :, 2,25, 7) = (/&
 & 2.7824e-03_jprb,3.8393e-02_jprb,6.2155e-02_jprb,8.1138e-02_jprb,9.1561e-02_jprb/)  
kbo( :, 3,25, 7) = (/&
 & 3.8806e-03_jprb,4.1433e-02_jprb,6.5194e-02_jprb,8.3215e-02_jprb,9.0981e-02_jprb/)  
kbo( :, 4,25, 7) = (/&
 & 5.2453e-03_jprb,4.4637e-02_jprb,6.8168e-02_jprb,8.5119e-02_jprb,8.9958e-02_jprb/)  
kbo( :, 5,25, 7) = (/&
 & 6.8977e-03_jprb,4.8120e-02_jprb,7.1175e-02_jprb,8.6855e-02_jprb,8.8595e-02_jprb/)  
kbo( :, 1,26, 7) = (/&
 & 1.7587e-03_jprb,3.0214e-02_jprb,4.9851e-02_jprb,6.5996e-02_jprb,7.5710e-02_jprb/)  
kbo( :, 2,26, 7) = (/&
 & 2.5210e-03_jprb,3.2677e-02_jprb,5.2397e-02_jprb,6.7829e-02_jprb,7.5438e-02_jprb/)  
kbo( :, 3,26, 7) = (/&
 & 3.4928e-03_jprb,3.5239e-02_jprb,5.4896e-02_jprb,6.9528e-02_jprb,7.4777e-02_jprb/)  
kbo( :, 4,26, 7) = (/&
 & 4.6908e-03_jprb,3.8029e-02_jprb,5.7397e-02_jprb,7.1083e-02_jprb,7.3800e-02_jprb/)  
kbo( :, 5,26, 7) = (/&
 & 6.1395e-03_jprb,4.1060e-02_jprb,5.9986e-02_jprb,7.2531e-02_jprb,7.2558e-02_jprb/)  
kbo( :, 1,27, 7) = (/&
 & 1.6029e-03_jprb,2.5642e-02_jprb,4.1927e-02_jprb,5.5065e-02_jprb,6.2332e-02_jprb/)  
kbo( :, 2,27, 7) = (/&
 & 2.2812e-03_jprb,2.7700e-02_jprb,4.4008e-02_jprb,5.6573e-02_jprb,6.1961e-02_jprb/)  
kbo( :, 3,27, 7) = (/&
 & 3.1372e-03_jprb,2.9918e-02_jprb,4.6094e-02_jprb,5.7948e-02_jprb,6.1302e-02_jprb/)  
kbo( :, 4,27, 7) = (/&
 & 4.1899e-03_jprb,3.2354e-02_jprb,4.8227e-02_jprb,5.9239e-02_jprb,6.0407e-02_jprb/)  
kbo( :, 5,27, 7) = (/&
 & 5.4669e-03_jprb,3.4991e-02_jprb,5.0494e-02_jprb,6.0487e-02_jprb,5.9313e-02_jprb/)  
kbo( :, 1,28, 7) = (/&
 & 1.4587e-03_jprb,2.1692e-02_jprb,3.5152e-02_jprb,4.5868e-02_jprb,5.1191e-02_jprb/)  
kbo( :, 2,28, 7) = (/&
 & 2.0600e-03_jprb,2.3452e-02_jprb,3.6880e-02_jprb,4.7085e-02_jprb,5.0788e-02_jprb/)  
kbo( :, 3,28, 7) = (/&
 & 2.8147e-03_jprb,2.5390e-02_jprb,3.8642e-02_jprb,4.8221e-02_jprb,5.0174e-02_jprb/)  
kbo( :, 4,28, 7) = (/&
 & 3.7416e-03_jprb,2.7500e-02_jprb,4.0500e-02_jprb,4.9318e-02_jprb,4.9374e-02_jprb/)  
kbo( :, 5,28, 7) = (/&
 & 4.8758e-03_jprb,2.9796e-02_jprb,4.2469e-02_jprb,5.0418e-02_jprb,4.8430e-02_jprb/)  
kbo( :, 1,29, 7) = (/&
 & 1.3284e-03_jprb,1.8334e-02_jprb,2.9430e-02_jprb,3.8154e-02_jprb,4.1977e-02_jprb/)  
kbo( :, 2,29, 7) = (/&
 & 1.8615e-03_jprb,1.9864e-02_jprb,3.0877e-02_jprb,3.9147e-02_jprb,4.1585e-02_jprb/)  
kbo( :, 3,29, 7) = (/&
 & 2.5273e-03_jprb,2.1548e-02_jprb,3.2404e-02_jprb,4.0101e-02_jprb,4.1024e-02_jprb/)  
kbo( :, 4,29, 7) = (/&
 & 3.3502e-03_jprb,2.3383e-02_jprb,3.4027e-02_jprb,4.1054e-02_jprb,4.0329e-02_jprb/)  
kbo( :, 5,29, 7) = (/&
 & 4.3678e-03_jprb,2.5374e-02_jprb,3.5730e-02_jprb,4.2021e-02_jprb,3.9526e-02_jprb/)  
kbo( :, 1,30, 7) = (/&
 & 1.2077e-03_jprb,1.5498e-02_jprb,2.4613e-02_jprb,3.1700e-02_jprb,3.4385e-02_jprb/)  
kbo( :, 2,30, 7) = (/&
 & 1.6794e-03_jprb,1.6830e-02_jprb,2.5859e-02_jprb,3.2527e-02_jprb,3.4019e-02_jprb/)  
kbo( :, 3,30, 7) = (/&
 & 2.2700e-03_jprb,1.8290e-02_jprb,2.7194e-02_jprb,3.3342e-02_jprb,3.3526e-02_jprb/)  
kbo( :, 4,30, 7) = (/&
 & 3.0076e-03_jprb,1.9884e-02_jprb,2.8602e-02_jprb,3.4179e-02_jprb,3.2934e-02_jprb/)  
kbo( :, 5,30, 7) = (/&
 & 3.9239e-03_jprb,2.1618e-02_jprb,3.0083e-02_jprb,3.5038e-02_jprb,3.2267e-02_jprb/)  
kbo( :, 1,31, 7) = (/&
 & 1.0979e-03_jprb,1.3116e-02_jprb,2.0595e-02_jprb,2.6327e-02_jprb,2.8152e-02_jprb/)  
kbo( :, 2,31, 7) = (/&
 & 1.5169e-03_jprb,1.4272e-02_jprb,2.1683e-02_jprb,2.7024e-02_jprb,2.7826e-02_jprb/)  
kbo( :, 3,31, 7) = (/&
 & 2.0453e-03_jprb,1.5538e-02_jprb,2.2843e-02_jprb,2.7738e-02_jprb,2.7405e-02_jprb/)  
kbo( :, 4,31, 7) = (/&
 & 2.7116e-03_jprb,1.6927e-02_jprb,2.4066e-02_jprb,2.8483e-02_jprb,2.6914e-02_jprb/)  
kbo( :, 5,31, 7) = (/&
 & 3.5394e-03_jprb,1.8442e-02_jprb,2.5352e-02_jprb,2.9238e-02_jprb,2.6357e-02_jprb/)  
kbo( :, 1,32, 7) = (/&
 & 9.9745e-04_jprb,1.1111e-02_jprb,1.7254e-02_jprb,2.1864e-02_jprb,2.3045e-02_jprb/)  
kbo( :, 2,32, 7) = (/&
 & 1.3720e-03_jprb,1.2113e-02_jprb,1.8202e-02_jprb,2.2466e-02_jprb,2.2758e-02_jprb/)  
kbo( :, 3,32, 7) = (/&
 & 1.8496e-03_jprb,1.3215e-02_jprb,1.9210e-02_jprb,2.3105e-02_jprb,2.2405e-02_jprb/)  
kbo( :, 4,32, 7) = (/&
 & 2.4534e-03_jprb,1.4429e-02_jprb,2.0269e-02_jprb,2.3758e-02_jprb,2.1994e-02_jprb/)  
kbo( :, 5,32, 7) = (/&
 & 3.1994e-03_jprb,1.5763e-02_jprb,2.1391e-02_jprb,2.4424e-02_jprb,2.1537e-02_jprb/)  
kbo( :, 1,33, 7) = (/&
 & 9.0609e-04_jprb,9.4233e-03_jprb,1.4475e-02_jprb,1.8167e-02_jprb,1.8863e-02_jprb/)  
kbo( :, 2,33, 7) = (/&
 & 1.2447e-03_jprb,1.0296e-02_jprb,1.5300e-02_jprb,1.8704e-02_jprb,1.8620e-02_jprb/)  
kbo( :, 3,33, 7) = (/&
 & 1.6790e-03_jprb,1.1258e-02_jprb,1.6171e-02_jprb,1.9267e-02_jprb,1.8323e-02_jprb/)  
kbo( :, 4,33, 7) = (/&
 & 2.2252e-03_jprb,1.2324e-02_jprb,1.7095e-02_jprb,1.9844e-02_jprb,1.7985e-02_jprb/)  
kbo( :, 5,33, 7) = (/&
 & 2.8950e-03_jprb,1.3521e-02_jprb,1.8082e-02_jprb,2.0433e-02_jprb,1.7614e-02_jprb/)  
kbo( :, 1,34, 7) = (/&
 & 8.1514e-04_jprb,7.9756e-03_jprb,1.2137e-02_jprb,1.5099e-02_jprb,1.5443e-02_jprb/)  
kbo( :, 2,34, 7) = (/&
 & 1.1204e-03_jprb,8.7356e-03_jprb,1.2847e-02_jprb,1.5577e-02_jprb,1.5237e-02_jprb/)  
kbo( :, 3,34, 7) = (/&
 & 1.5119e-03_jprb,9.5758e-03_jprb,1.3604e-02_jprb,1.6072e-02_jprb,1.4994e-02_jprb/)  
kbo( :, 4,34, 7) = (/&
 & 2.0012e-03_jprb,1.0522e-02_jprb,1.4410e-02_jprb,1.6579e-02_jprb,1.4722e-02_jprb/)  
kbo( :, 5,34, 7) = (/&
 & 2.5995e-03_jprb,1.1602e-02_jprb,1.5283e-02_jprb,1.7098e-02_jprb,1.4425e-02_jprb/)  
kbo( :, 1,35, 7) = (/&
 & 7.1227e-04_jprb,6.7018e-03_jprb,1.0127e-02_jprb,1.2528e-02_jprb,1.2660e-02_jprb/)  
kbo( :, 2,35, 7) = (/&
 & 9.8163e-04_jprb,7.3560e-03_jprb,1.0739e-02_jprb,1.2948e-02_jprb,1.2494e-02_jprb/)  
kbo( :, 3,35, 7) = (/&
 & 1.3263e-03_jprb,8.0909e-03_jprb,1.1393e-02_jprb,1.3382e-02_jprb,1.2302e-02_jprb/)  
kbo( :, 4,35, 7) = (/&
 & 1.7561e-03_jprb,8.9242e-03_jprb,1.2096e-02_jprb,1.3825e-02_jprb,1.2085e-02_jprb/)  
kbo( :, 5,35, 7) = (/&
 & 2.2810e-03_jprb,9.8947e-03_jprb,1.2873e-02_jprb,1.4284e-02_jprb,1.1851e-02_jprb/)  
kbo( :, 1,36, 7) = (/&
 & 6.0202e-04_jprb,5.5779e-03_jprb,8.4015e-03_jprb,1.0366e-02_jprb,1.0396e-02_jprb/)  
kbo( :, 2,36, 7) = (/&
 & 8.3319e-04_jprb,6.1400e-03_jprb,8.9260e-03_jprb,1.0732e-02_jprb,1.0268e-02_jprb/)  
kbo( :, 3,36, 7) = (/&
 & 1.1287e-03_jprb,6.7734e-03_jprb,9.4880e-03_jprb,1.1109e-02_jprb,1.0116e-02_jprb/)  
kbo( :, 4,36, 7) = (/&
 & 1.4983e-03_jprb,7.5040e-03_jprb,1.0100e-02_jprb,1.1497e-02_jprb,9.9466e-03_jprb/)  
kbo( :, 5,36, 7) = (/&
 & 1.9490e-03_jprb,8.3637e-03_jprb,1.0791e-02_jprb,1.1906e-02_jprb,9.7636e-03_jprb/)  
kbo( :, 1,37, 7) = (/&
 & 4.8416e-04_jprb,4.5804e-03_jprb,6.9086e-03_jprb,8.5355e-03_jprb,8.5508e-03_jprb/)  
kbo( :, 2,37, 7) = (/&
 & 6.7495e-04_jprb,5.0520e-03_jprb,7.3527e-03_jprb,8.8519e-03_jprb,8.4527e-03_jprb/)  
kbo( :, 3,37, 7) = (/&
 & 9.1952e-04_jprb,5.5894e-03_jprb,7.8325e-03_jprb,9.1782e-03_jprb,8.3356e-03_jprb/)  
kbo( :, 4,37, 7) = (/&
 & 1.2272e-03_jprb,6.2161e-03_jprb,8.3611e-03_jprb,9.5172e-03_jprb,8.2045e-03_jprb/)  
kbo( :, 5,37, 7) = (/&
 & 1.6032e-03_jprb,6.9603e-03_jprb,8.9629e-03_jprb,9.8764e-03_jprb,8.0631e-03_jprb/)  
kbo( :, 1,38, 7) = (/&
 & 3.8815e-04_jprb,3.7581e-03_jprb,5.6778e-03_jprb,7.0261e-03_jprb,7.0356e-03_jprb/)  
kbo( :, 2,38, 7) = (/&
 & 5.4489e-04_jprb,4.1553e-03_jprb,6.0551e-03_jprb,7.3001e-03_jprb,6.9620e-03_jprb/)  
kbo( :, 3,38, 7) = (/&
 & 7.4720e-04_jprb,4.6096e-03_jprb,6.4646e-03_jprb,7.5820e-03_jprb,6.8735e-03_jprb/)  
kbo( :, 4,38, 7) = (/&
 & 1.0025e-03_jprb,5.1457e-03_jprb,6.9210e-03_jprb,7.8773e-03_jprb,6.7744e-03_jprb/)  
kbo( :, 5,38, 7) = (/&
 & 1.3158e-03_jprb,5.7907e-03_jprb,7.4467e-03_jprb,8.1937e-03_jprb,6.6650e-03_jprb/)  
kbo( :, 1,39, 7) = (/&
 & 3.1112e-04_jprb,3.0839e-03_jprb,4.6680e-03_jprb,5.7846e-03_jprb,5.7911e-03_jprb/)  
kbo( :, 2,39, 7) = (/&
 & 4.3990e-04_jprb,3.4180e-03_jprb,4.9880e-03_jprb,6.0205e-03_jprb,5.7382e-03_jprb/)  
kbo( :, 3,39, 7) = (/&
 & 6.0701e-04_jprb,3.8014e-03_jprb,5.3384e-03_jprb,6.2649e-03_jprb,5.6729e-03_jprb/)  
kbo( :, 4,39, 7) = (/&
 & 8.1924e-04_jprb,4.2647e-03_jprb,5.7318e-03_jprb,6.5208e-03_jprb,5.5990e-03_jprb/)  
kbo( :, 5,39, 7) = (/&
 & 1.0794e-03_jprb,4.8235e-03_jprb,6.1904e-03_jprb,6.7997e-03_jprb,5.5155e-03_jprb/)  
kbo( :, 1,40, 7) = (/&
 & 2.3999e-04_jprb,2.5045e-03_jprb,3.8112e-03_jprb,4.7419e-03_jprb,4.7659e-03_jprb/)  
kbo( :, 2,40, 7) = (/&
 & 3.4272e-04_jprb,2.7807e-03_jprb,4.0807e-03_jprb,4.9438e-03_jprb,4.7281e-03_jprb/)  
kbo( :, 3,40, 7) = (/&
 & 4.7709e-04_jprb,3.1013e-03_jprb,4.3772e-03_jprb,5.1542e-03_jprb,4.6798e-03_jprb/)  
kbo( :, 4,40, 7) = (/&
 & 6.4876e-04_jprb,3.4905e-03_jprb,4.7113e-03_jprb,5.3759e-03_jprb,4.6247e-03_jprb/)  
kbo( :, 5,40, 7) = (/&
 & 8.6088e-04_jprb,3.9661e-03_jprb,5.1051e-03_jprb,5.6199e-03_jprb,4.5616e-03_jprb/)  
kbo( :, 1,41, 7) = (/&
 & 1.8373e-04_jprb,2.0302e-03_jprb,3.1081e-03_jprb,3.8838e-03_jprb,3.9218e-03_jprb/)  
kbo( :, 2,41, 7) = (/&
 & 2.6521e-04_jprb,2.2593e-03_jprb,3.3353e-03_jprb,4.0566e-03_jprb,3.8950e-03_jprb/)  
kbo( :, 3,41, 7) = (/&
 & 3.7260e-04_jprb,2.5252e-03_jprb,3.5847e-03_jprb,4.2368e-03_jprb,3.8605e-03_jprb/)  
kbo( :, 4,41, 7) = (/&
 & 5.1095e-04_jprb,2.8525e-03_jprb,3.8680e-03_jprb,4.4284e-03_jprb,3.8199e-03_jprb/)  
kbo( :, 5,41, 7) = (/&
 & 6.8302e-04_jprb,3.2540e-03_jprb,4.2038e-03_jprb,4.6408e-03_jprb,3.7718e-03_jprb/)  
kbo( :, 1,42, 7) = (/&
 & 1.4021e-04_jprb,1.6447e-03_jprb,2.5340e-03_jprb,3.1794e-03_jprb,3.2271e-03_jprb/)  
kbo( :, 2,42, 7) = (/&
 & 2.0457e-04_jprb,1.8341e-03_jprb,2.7244e-03_jprb,3.3270e-03_jprb,3.2092e-03_jprb/)  
kbo( :, 3,42, 7) = (/&
 & 2.9014e-04_jprb,2.0556e-03_jprb,2.9350e-03_jprb,3.4824e-03_jprb,3.1854e-03_jprb/)  
kbo( :, 4,42, 7) = (/&
 & 4.0126e-04_jprb,2.3289e-03_jprb,3.1740e-03_jprb,3.6472e-03_jprb,3.1554e-03_jprb/)  
kbo( :, 5,42, 7) = (/&
 & 5.4072e-04_jprb,2.6686e-03_jprb,3.4603e-03_jprb,3.8315e-03_jprb,3.1192e-03_jprb/)  
kbo( :, 1,43, 7) = (/&
 & 1.0418e-04_jprb,1.3241e-03_jprb,2.0566e-03_jprb,2.5949e-03_jprb,2.6555e-03_jprb/)  
kbo( :, 2,43, 7) = (/&
 & 1.5394e-04_jprb,1.4792e-03_jprb,2.2158e-03_jprb,2.7206e-03_jprb,2.6446e-03_jprb/)  
kbo( :, 3,43, 7) = (/&
 & 2.2089e-04_jprb,1.6609e-03_jprb,2.3912e-03_jprb,2.8530e-03_jprb,2.6280e-03_jprb/)  
kbo( :, 4,43, 7) = (/&
 & 3.0843e-04_jprb,1.8861e-03_jprb,2.5915e-03_jprb,2.9949e-03_jprb,2.6073e-03_jprb/)  
kbo( :, 5,43, 7) = (/&
 & 4.1975e-04_jprb,2.1696e-03_jprb,2.8326e-03_jprb,3.1535e-03_jprb,2.5807e-03_jprb/)  
kbo( :, 1,44, 7) = (/&
 & 7.6179e-05_jprb,1.0623e-03_jprb,1.6648e-03_jprb,2.1141e-03_jprb,2.1847e-03_jprb/)  
kbo( :, 2,44, 7) = (/&
 & 1.1420e-04_jprb,1.1887e-03_jprb,1.7975e-03_jprb,2.2205e-03_jprb,2.1791e-03_jprb/)  
kbo( :, 3,44, 7) = (/&
 & 1.6589e-04_jprb,1.3367e-03_jprb,1.9435e-03_jprb,2.3337e-03_jprb,2.1689e-03_jprb/)  
kbo( :, 4,44, 7) = (/&
 & 2.3431e-04_jprb,1.5216e-03_jprb,2.1097e-03_jprb,2.4546e-03_jprb,2.1546e-03_jprb/)  
kbo( :, 5,44, 7) = (/&
 & 3.2209e-04_jprb,1.7553e-03_jprb,2.3110e-03_jprb,2.5901e-03_jprb,2.1354e-03_jprb/)  
kbo( :, 1,45, 7) = (/&
 & 5.5380e-05_jprb,8.5190e-04_jprb,1.3470e-03_jprb,1.7214e-03_jprb,1.7974e-03_jprb/)  
kbo( :, 2,45, 7) = (/&
 & 8.4230e-05_jprb,9.5419e-04_jprb,1.4571e-03_jprb,1.8110e-03_jprb,1.7954e-03_jprb/)  
kbo( :, 3,45, 7) = (/&
 & 1.2398e-04_jprb,1.0747e-03_jprb,1.5782e-03_jprb,1.9072e-03_jprb,1.7895e-03_jprb/)  
kbo( :, 4,45, 7) = (/&
 & 1.7714e-04_jprb,1.2254e-03_jprb,1.7161e-03_jprb,2.0103e-03_jprb,1.7807e-03_jprb/)  
kbo( :, 5,45, 7) = (/&
 & 2.4615e-04_jprb,1.4185e-03_jprb,1.8836e-03_jprb,2.1255e-03_jprb,1.7676e-03_jprb/)  
kbo( :, 1,46, 7) = (/&
 & 3.9608e-05_jprb,6.8065e-04_jprb,1.0869e-03_jprb,1.3989e-03_jprb,1.4780e-03_jprb/)  
kbo( :, 2,46, 7) = (/&
 & 6.1254e-05_jprb,7.6359e-04_jprb,1.1780e-03_jprb,1.4742e-03_jprb,1.4788e-03_jprb/)  
kbo( :, 3,46, 7) = (/&
 & 9.1434e-05_jprb,8.6131e-04_jprb,1.2786e-03_jprb,1.5561e-03_jprb,1.4768e-03_jprb/)  
kbo( :, 4,46, 7) = (/&
 & 1.3231e-04_jprb,9.8314e-04_jprb,1.3925e-03_jprb,1.6437e-03_jprb,1.4719e-03_jprb/)  
kbo( :, 5,46, 7) = (/&
 & 1.8599e-04_jprb,1.1411e-03_jprb,1.5309e-03_jprb,1.7412e-03_jprb,1.4636e-03_jprb/)  
kbo( :, 1,47, 7) = (/&
 & 2.7565e-05_jprb,5.4081e-04_jprb,8.7346e-04_jprb,1.1337e-03_jprb,1.2145e-03_jprb/)  
kbo( :, 2,47, 7) = (/&
 & 4.3444e-05_jprb,6.0782e-04_jprb,9.4864e-04_jprb,1.1966e-03_jprb,1.2173e-03_jprb/)  
kbo( :, 3,47, 7) = (/&
 & 6.5911e-05_jprb,6.8599e-04_jprb,1.0313e-03_jprb,1.2655e-03_jprb,1.2177e-03_jprb/)  
kbo( :, 4,47, 7) = (/&
 & 9.6767e-05_jprb,7.8305e-04_jprb,1.1246e-03_jprb,1.3397e-03_jprb,1.2159e-03_jprb/)  
kbo( :, 5,47, 7) = (/&
 & 1.3786e-04_jprb,9.1017e-04_jprb,1.2371e-03_jprb,1.4212e-03_jprb,1.2107e-03_jprb/)  
kbo( :, 1,48, 7) = (/&
 & 1.9010e-05_jprb,4.2934e-04_jprb,7.0139e-04_jprb,9.1842e-04_jprb,9.9781e-04_jprb/)  
kbo( :, 2,48, 7) = (/&
 & 3.0547e-05_jprb,4.8321e-04_jprb,7.6298e-04_jprb,9.7015e-04_jprb,1.0019e-03_jprb/)  
kbo( :, 3,48, 7) = (/&
 & 4.7172e-05_jprb,5.4566e-04_jprb,8.3089e-04_jprb,1.0280e-03_jprb,1.0041e-03_jprb/)  
kbo( :, 4,48, 7) = (/&
 & 7.0312e-05_jprb,6.2270e-04_jprb,9.0704e-04_jprb,1.0904e-03_jprb,1.0043e-03_jprb/)  
kbo( :, 5,48, 7) = (/&
 & 1.0158e-04_jprb,7.2457e-04_jprb,9.9839e-04_jprb,1.1584e-03_jprb,1.0014e-03_jprb/)  
kbo( :, 1,49, 7) = (/&
 & 1.2989e-05_jprb,3.4041e-04_jprb,5.6254e-04_jprb,7.4336e-04_jprb,8.1967e-04_jprb/)  
kbo( :, 2,49, 7) = (/&
 & 2.1288e-05_jprb,3.8375e-04_jprb,6.1286e-04_jprb,7.8566e-04_jprb,8.2462e-04_jprb/)  
kbo( :, 3,49, 7) = (/&
 & 3.3501e-05_jprb,4.3371e-04_jprb,6.6869e-04_jprb,8.3391e-04_jprb,8.2791e-04_jprb/)  
kbo( :, 4,49, 7) = (/&
 & 5.0757e-05_jprb,4.9477e-04_jprb,7.3099e-04_jprb,8.8650e-04_jprb,8.2973e-04_jprb/)  
kbo( :, 5,49, 7) = (/&
 & 7.4391e-05_jprb,5.7603e-04_jprb,8.0512e-04_jprb,9.4378e-04_jprb,8.2902e-04_jprb/)  
kbo( :, 1,50, 7) = (/&
 & 8.9107e-06_jprb,2.7028e-04_jprb,4.5165e-04_jprb,6.0203e-04_jprb,6.7224e-04_jprb/)  
kbo( :, 2,50, 7) = (/&
 & 1.4889e-05_jprb,3.0526e-04_jprb,4.9281e-04_jprb,6.3656e-04_jprb,6.7754e-04_jprb/)  
kbo( :, 3,50, 7) = (/&
 & 2.3877e-05_jprb,3.4554e-04_jprb,5.3891e-04_jprb,6.7691e-04_jprb,6.8139e-04_jprb/)  
kbo( :, 4,50, 7) = (/&
 & 3.6771e-05_jprb,3.9444e-04_jprb,5.9020e-04_jprb,7.2140e-04_jprb,6.8414e-04_jprb/)  
kbo( :, 5,50, 7) = (/&
 & 5.4655e-05_jprb,4.5942e-04_jprb,6.5054e-04_jprb,7.6968e-04_jprb,6.8480e-04_jprb/)  
kbo( :, 1,51, 7) = (/&
 & 6.0961e-06_jprb,2.1476e-04_jprb,3.6280e-04_jprb,4.8765e-04_jprb,5.5078e-04_jprb/)  
kbo( :, 2,51, 7) = (/&
 & 1.0381e-05_jprb,2.4307e-04_jprb,3.9642e-04_jprb,5.1588e-04_jprb,5.5623e-04_jprb/)  
kbo( :, 3,51, 7) = (/&
 & 1.6982e-05_jprb,2.7555e-04_jprb,4.3451e-04_jprb,5.4955e-04_jprb,5.6027e-04_jprb/)  
kbo( :, 4,51, 7) = (/&
 & 2.6587e-05_jprb,3.1466e-04_jprb,4.7661e-04_jprb,5.8697e-04_jprb,5.6337e-04_jprb/)  
kbo( :, 5,51, 7) = (/&
 & 4.0101e-05_jprb,3.6650e-04_jprb,5.2570e-04_jprb,6.2745e-04_jprb,5.6478e-04_jprb/)  
kbo( :, 1,52, 7) = (/&
 & 4.1353e-06_jprb,1.7061e-04_jprb,2.9145e-04_jprb,3.9501e-04_jprb,4.5130e-04_jprb/)  

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


SUBROUTINE part23

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


kbo( :, 2,52, 7) = (/&
 & 7.1818e-06_jprb,1.9335e-04_jprb,3.1863e-04_jprb,4.1793e-04_jprb,4.5663e-04_jprb/)  
kbo( :, 3,52, 7) = (/&
 & 1.1989e-05_jprb,2.1956e-04_jprb,3.4994e-04_jprb,4.4575e-04_jprb,4.6074e-04_jprb/)  
kbo( :, 4,52, 7) = (/&
 & 1.9102e-05_jprb,2.5087e-04_jprb,3.8455e-04_jprb,4.7710e-04_jprb,4.6395e-04_jprb/)  
kbo( :, 5,52, 7) = (/&
 & 2.9266e-05_jprb,2.9208e-04_jprb,4.2456e-04_jprb,5.1110e-04_jprb,4.6590e-04_jprb/)  
kbo( :, 1,53, 7) = (/&
 & 2.7771e-06_jprb,1.3543e-04_jprb,2.3402e-04_jprb,3.1978e-04_jprb,3.6971e-04_jprb/)  
kbo( :, 2,53, 7) = (/&
 & 4.9256e-06_jprb,1.5363e-04_jprb,2.5583e-04_jprb,3.3830e-04_jprb,3.7486e-04_jprb/)  
kbo( :, 3,53, 7) = (/&
 & 8.3927e-06_jprb,1.7477e-04_jprb,2.8146e-04_jprb,3.6113e-04_jprb,3.7892e-04_jprb/)  
kbo( :, 4,53, 7) = (/&
 & 1.3629e-05_jprb,1.9978e-04_jprb,3.0996e-04_jprb,3.8736e-04_jprb,3.8222e-04_jprb/)  
kbo( :, 5,53, 7) = (/&
 & 2.1224e-05_jprb,2.3248e-04_jprb,3.4254e-04_jprb,4.1583e-04_jprb,3.8453e-04_jprb/)  
kbo( :, 1,54, 7) = (/&
 & 1.8811e-06_jprb,1.0783e-04_jprb,1.8829e-04_jprb,2.5915e-04_jprb,3.0210e-04_jprb/)  
kbo( :, 2,54, 7) = (/&
 & 3.4084e-06_jprb,1.2242e-04_jprb,2.0578e-04_jprb,2.7417e-04_jprb,3.0673e-04_jprb/)  
kbo( :, 3,54, 7) = (/&
 & 5.9212e-06_jprb,1.3950e-04_jprb,2.2680e-04_jprb,2.9292e-04_jprb,3.1041e-04_jprb/)  
kbo( :, 4,54, 7) = (/&
 & 9.7966e-06_jprb,1.5966e-04_jprb,2.5030e-04_jprb,3.1483e-04_jprb,3.1342e-04_jprb/)  
kbo( :, 5,54, 7) = (/&
 & 1.5501e-05_jprb,1.8577e-04_jprb,2.7693e-04_jprb,3.3870e-04_jprb,3.1563e-04_jprb/)  
kbo( :, 1,55, 7) = (/&
 & 1.2736e-06_jprb,8.5960e-05_jprb,1.5164e-04_jprb,2.1009e-04_jprb,2.4656e-04_jprb/)  
kbo( :, 2,55, 7) = (/&
 & 2.3598e-06_jprb,9.7655e-05_jprb,1.6564e-04_jprb,2.2229e-04_jprb,2.5059e-04_jprb/)  
kbo( :, 3,55, 7) = (/&
 & 4.1776e-06_jprb,1.1145e-04_jprb,1.8284e-04_jprb,2.3762e-04_jprb,2.5377e-04_jprb/)  
kbo( :, 4,55, 7) = (/&
 & 7.0441e-06_jprb,1.2773e-04_jprb,2.0219e-04_jprb,2.5588e-04_jprb,2.5634e-04_jprb/)  
kbo( :, 5,55, 7) = (/&
 & 1.1323e-05_jprb,1.4864e-04_jprb,2.2410e-04_jprb,2.7593e-04_jprb,2.5827e-04_jprb/)  
kbo( :, 1,56, 7) = (/&
 & 8.5479e-07_jprb,6.8495e-05_jprb,1.2209e-04_jprb,1.7021e-04_jprb,2.0114e-04_jprb/)  
kbo( :, 2,56, 7) = (/&
 & 1.6225e-06_jprb,7.7817e-05_jprb,1.3325e-04_jprb,1.8015e-04_jprb,2.0463e-04_jprb/)  
kbo( :, 3,56, 7) = (/&
 & 2.9270e-06_jprb,8.8970e-05_jprb,1.4725e-04_jprb,1.9262e-04_jprb,2.0743e-04_jprb/)  
kbo( :, 4,56, 7) = (/&
 & 5.0340e-06_jprb,1.0210e-04_jprb,1.6318e-04_jprb,2.0779e-04_jprb,2.0965e-04_jprb/)  
kbo( :, 5,56, 7) = (/&
 & 8.2279e-06_jprb,1.1881e-04_jprb,1.8117e-04_jprb,2.2455e-04_jprb,2.1130e-04_jprb/)  
kbo( :, 1,57, 7) = (/&
 & 5.6832e-07_jprb,5.4568e-05_jprb,9.8248e-05_jprb,1.3779e-04_jprb,1.6394e-04_jprb/)  
kbo( :, 2,57, 7) = (/&
 & 1.1069e-06_jprb,6.1982e-05_jprb,1.0712e-04_jprb,1.4596e-04_jprb,1.6709e-04_jprb/)  
kbo( :, 3,57, 7) = (/&
 & 2.0353e-06_jprb,7.0945e-05_jprb,1.1847e-04_jprb,1.5604e-04_jprb,1.6951e-04_jprb/)  
kbo( :, 4,57, 7) = (/&
 & 3.5732e-06_jprb,8.1530e-05_jprb,1.3155e-04_jprb,1.6855e-04_jprb,1.7142e-04_jprb/)  
kbo( :, 5,57, 7) = (/&
 & 5.9454e-06_jprb,9.4896e-05_jprb,1.4631e-04_jprb,1.8257e-04_jprb,1.7286e-04_jprb/)  
kbo( :, 1,58, 7) = (/&
 & 3.7890e-07_jprb,4.3568e-05_jprb,7.9163e-05_jprb,1.1161e-04_jprb,1.3361e-04_jprb/)  
kbo( :, 2,58, 7) = (/&
 & 7.5700e-07_jprb,4.9431e-05_jprb,8.6199e-05_jprb,1.1831e-04_jprb,1.3638e-04_jprb/)  
kbo( :, 3,58, 7) = (/&
 & 1.4190e-06_jprb,5.6651e-05_jprb,9.5379e-05_jprb,1.2647e-04_jprb,1.3843e-04_jprb/)  
kbo( :, 4,58, 7) = (/&
 & 2.5422e-06_jprb,6.5215e-05_jprb,1.0612e-04_jprb,1.3677e-04_jprb,1.4007e-04_jprb/)  
kbo( :, 5,58, 7) = (/&
 & 4.3056e-06_jprb,7.5939e-05_jprb,1.1825e-04_jprb,1.4847e-04_jprb,1.4132e-04_jprb/)  
kbo( :, 1,59, 7) = (/&
 & 2.8711e-07_jprb,3.5512e-05_jprb,6.4676e-05_jprb,9.1313e-05_jprb,1.0905e-04_jprb/)  
kbo( :, 2,59, 7) = (/&
 & 5.8051e-07_jprb,4.0372e-05_jprb,7.0558e-05_jprb,9.6940e-05_jprb,1.1137e-04_jprb/)  
kbo( :, 3,59, 7) = (/&
 & 1.1009e-06_jprb,4.6368e-05_jprb,7.8242e-05_jprb,1.0385e-04_jprb,1.1298e-04_jprb/)  
kbo( :, 4,59, 7) = (/&
 & 1.9927e-06_jprb,5.3528e-05_jprb,8.7247e-05_jprb,1.1259e-04_jprb,1.1418e-04_jprb/)  
kbo( :, 5,59, 7) = (/&
 & 3.4060e-06_jprb,6.2579e-05_jprb,9.7497e-05_jprb,1.2251e-04_jprb,1.1509e-04_jprb/)  
kbo( :, 1,13, 8) = (/&
 & 2.3970e-02_jprb,3.0710e-01_jprb,5.4364e-01_jprb,7.5219e-01_jprb,9.5462e-01_jprb/)  
kbo( :, 2,13, 8) = (/&
 & 3.5910e-02_jprb,3.2191e-01_jprb,5.5986e-01_jprb,7.6221e-01_jprb,9.4753e-01_jprb/)  
kbo( :, 3,13, 8) = (/&
 & 5.1314e-02_jprb,3.3704e-01_jprb,5.7518e-01_jprb,7.7250e-01_jprb,9.3944e-01_jprb/)  
kbo( :, 4,13, 8) = (/&
 & 7.0544e-02_jprb,3.5215e-01_jprb,5.8965e-01_jprb,7.8209e-01_jprb,9.3187e-01_jprb/)  
kbo( :, 5,13, 8) = (/&
 & 9.4072e-02_jprb,3.6813e-01_jprb,6.0322e-01_jprb,7.9095e-01_jprb,9.2652e-01_jprb/)  
kbo( :, 1,14, 8) = (/&
 & 2.1394e-02_jprb,2.9767e-01_jprb,5.2636e-01_jprb,7.2588e-01_jprb,9.1476e-01_jprb/)  
kbo( :, 2,14, 8) = (/&
 & 3.2006e-02_jprb,3.1221e-01_jprb,5.4240e-01_jprb,7.3771e-01_jprb,9.0915e-01_jprb/)  
kbo( :, 3,14, 8) = (/&
 & 4.5714e-02_jprb,3.2744e-01_jprb,5.5760e-01_jprb,7.4911e-01_jprb,9.0264e-01_jprb/)  
kbo( :, 4,14, 8) = (/&
 & 6.3005e-02_jprb,3.4291e-01_jprb,5.7202e-01_jprb,7.5985e-01_jprb,8.9702e-01_jprb/)  
kbo( :, 5,14, 8) = (/&
 & 8.4224e-02_jprb,3.5938e-01_jprb,5.8648e-01_jprb,7.6955e-01_jprb,8.9207e-01_jprb/)  
kbo( :, 1,15, 8) = (/&
 & 1.9200e-02_jprb,2.8555e-01_jprb,5.0447e-01_jprb,6.9471e-01_jprb,8.6829e-01_jprb/)  
kbo( :, 2,15, 8) = (/&
 & 2.8674e-02_jprb,2.9984e-01_jprb,5.2000e-01_jprb,7.0783e-01_jprb,8.6420e-01_jprb/)  
kbo( :, 3,15, 8) = (/&
 & 4.1036e-02_jprb,3.1465e-01_jprb,5.3501e-01_jprb,7.2026e-01_jprb,8.6024e-01_jprb/)  
kbo( :, 4,15, 8) = (/&
 & 5.6691e-02_jprb,3.3028e-01_jprb,5.4991e-01_jprb,7.3143e-01_jprb,8.5592e-01_jprb/)  
kbo( :, 5,15, 8) = (/&
 & 7.5884e-02_jprb,3.4766e-01_jprb,5.6508e-01_jprb,7.4152e-01_jprb,8.5184e-01_jprb/)  
kbo( :, 1,16, 8) = (/&
 & 1.7280e-02_jprb,2.7106e-01_jprb,4.7797e-01_jprb,6.5828e-01_jprb,8.1566e-01_jprb/)  
kbo( :, 2,16, 8) = (/&
 & 2.5826e-02_jprb,2.8505e-01_jprb,4.9327e-01_jprb,6.7219e-01_jprb,8.1411e-01_jprb/)  
kbo( :, 3,16, 8) = (/&
 & 3.7038e-02_jprb,2.9951e-01_jprb,5.0847e-01_jprb,6.8487e-01_jprb,8.1174e-01_jprb/)  
kbo( :, 4,16, 8) = (/&
 & 5.1196e-02_jprb,3.1526e-01_jprb,5.2352e-01_jprb,6.9628e-01_jprb,8.0904e-01_jprb/)  
kbo( :, 5,16, 8) = (/&
 & 6.8473e-02_jprb,3.3321e-01_jprb,5.3879e-01_jprb,7.0679e-01_jprb,8.0649e-01_jprb/)  
kbo( :, 1,17, 8) = (/&
 & 1.5538e-02_jprb,2.5421e-01_jprb,4.4772e-01_jprb,6.1710e-01_jprb,7.5839e-01_jprb/)  
kbo( :, 2,17, 8) = (/&
 & 2.3272e-02_jprb,2.6785e-01_jprb,4.6279e-01_jprb,6.3082e-01_jprb,7.5816e-01_jprb/)  
kbo( :, 3,17, 8) = (/&
 & 3.3383e-02_jprb,2.8231e-01_jprb,4.7772e-01_jprb,6.4345e-01_jprb,7.5757e-01_jprb/)  
kbo( :, 4,17, 8) = (/&
 & 4.6070e-02_jprb,2.9815e-01_jprb,4.9276e-01_jprb,6.5511e-01_jprb,7.5658e-01_jprb/)  
kbo( :, 5,17, 8) = (/&
 & 6.1414e-02_jprb,3.1621e-01_jprb,5.0851e-01_jprb,6.6619e-01_jprb,7.5588e-01_jprb/)  
kbo( :, 1,18, 8) = (/&
 & 1.3967e-02_jprb,2.3577e-01_jprb,4.1440e-01_jprb,5.7110e-01_jprb,6.9644e-01_jprb/)  
kbo( :, 2,18, 8) = (/&
 & 2.0919e-02_jprb,2.4897e-01_jprb,4.2906e-01_jprb,5.8444e-01_jprb,6.9784e-01_jprb/)  
kbo( :, 3,18, 8) = (/&
 & 2.9927e-02_jprb,2.6320e-01_jprb,4.4386e-01_jprb,5.9706e-01_jprb,6.9881e-01_jprb/)  
kbo( :, 4,18, 8) = (/&
 & 4.1175e-02_jprb,2.7935e-01_jprb,4.5908e-01_jprb,6.0918e-01_jprb,6.9970e-01_jprb/)  
kbo( :, 5,18, 8) = (/&
 & 5.4768e-02_jprb,2.9730e-01_jprb,4.7517e-01_jprb,6.2117e-01_jprb,7.0068e-01_jprb/)  
kbo( :, 1,19, 8) = (/&
 & 1.2535e-02_jprb,2.1612e-01_jprb,3.7880e-01_jprb,5.2193e-01_jprb,6.3226e-01_jprb/)  
kbo( :, 2,19, 8) = (/&
 & 1.8709e-02_jprb,2.2885e-01_jprb,3.9316e-01_jprb,5.3486e-01_jprb,6.3494e-01_jprb/)  
kbo( :, 3,19, 8) = (/&
 & 2.6683e-02_jprb,2.4307e-01_jprb,4.0782e-01_jprb,5.4746e-01_jprb,6.3735e-01_jprb/)  
kbo( :, 4,19, 8) = (/&
 & 3.6602e-02_jprb,2.5923e-01_jprb,4.2323e-01_jprb,5.6013e-01_jprb,6.4003e-01_jprb/)  
kbo( :, 5,19, 8) = (/&
 & 4.8595e-02_jprb,2.7710e-01_jprb,4.3996e-01_jprb,5.7286e-01_jprb,6.4337e-01_jprb/)  
kbo( :, 1,20, 8) = (/&
 & 1.1287e-02_jprb,1.9616e-01_jprb,3.4278e-01_jprb,4.7146e-01_jprb,5.6767e-01_jprb/)  
kbo( :, 2,20, 8) = (/&
 & 1.6764e-02_jprb,2.0859e-01_jprb,3.5655e-01_jprb,4.8417e-01_jprb,5.7171e-01_jprb/)  
kbo( :, 3,20, 8) = (/&
 & 2.3811e-02_jprb,2.2281e-01_jprb,3.7110e-01_jprb,4.9713e-01_jprb,5.7584e-01_jprb/)  
kbo( :, 4,20, 8) = (/&
 & 3.2552e-02_jprb,2.3876e-01_jprb,3.8677e-01_jprb,5.1039e-01_jprb,5.8077e-01_jprb/)  
kbo( :, 5,20, 8) = (/&
 & 4.3159e-02_jprb,2.5646e-01_jprb,4.0398e-01_jprb,5.2418e-01_jprb,5.8653e-01_jprb/)  
kbo( :, 1,21, 8) = (/&
 & 1.0123e-02_jprb,1.7642e-01_jprb,3.0702e-01_jprb,4.2164e-01_jprb,5.0497e-01_jprb/)  
kbo( :, 2,21, 8) = (/&
 & 1.4960e-02_jprb,1.8865e-01_jprb,3.2047e-01_jprb,4.3442e-01_jprb,5.1019e-01_jprb/)  
kbo( :, 3,21, 8) = (/&
 & 2.1152e-02_jprb,2.0268e-01_jprb,3.3499e-01_jprb,4.4767e-01_jprb,5.1630e-01_jprb/)  
kbo( :, 4,21, 8) = (/&
 & 2.8843e-02_jprb,2.1843e-01_jprb,3.5106e-01_jprb,4.6165e-01_jprb,5.2357e-01_jprb/)  
kbo( :, 5,21, 8) = (/&
 & 3.8204e-02_jprb,2.3577e-01_jprb,3.6853e-01_jprb,4.7644e-01_jprb,5.3124e-01_jprb/)  
kbo( :, 1,22, 8) = (/&
 & 9.2874e-03_jprb,1.5831e-01_jprb,2.7358e-01_jprb,3.7468e-01_jprb,4.4590e-01_jprb/)  
kbo( :, 2,22, 8) = (/&
 & 1.3605e-02_jprb,1.7047e-01_jprb,2.8679e-01_jprb,3.8765e-01_jprb,4.5286e-01_jprb/)  
kbo( :, 3,22, 8) = (/&
 & 1.9114e-02_jprb,1.8434e-01_jprb,3.0159e-01_jprb,4.0144e-01_jprb,4.6097e-01_jprb/)  
kbo( :, 4,22, 8) = (/&
 & 2.5961e-02_jprb,1.9982e-01_jprb,3.1798e-01_jprb,4.1606e-01_jprb,4.6951e-01_jprb/)  
kbo( :, 5,22, 8) = (/&
 & 3.4349e-02_jprb,2.1668e-01_jprb,3.3570e-01_jprb,4.3114e-01_jprb,4.7729e-01_jprb/)  
kbo( :, 1,23, 8) = (/&
 & 8.4921e-03_jprb,1.4152e-01_jprb,2.4231e-01_jprb,3.3110e-01_jprb,3.9186e-01_jprb/)  
kbo( :, 2,23, 8) = (/&
 & 1.2342e-02_jprb,1.5348e-01_jprb,2.5569e-01_jprb,3.4426e-01_jprb,4.0022e-01_jprb/)  
kbo( :, 3,23, 8) = (/&
 & 1.7244e-02_jprb,1.6712e-01_jprb,2.7061e-01_jprb,3.5816e-01_jprb,4.0905e-01_jprb/)  
kbo( :, 4,23, 8) = (/&
 & 2.3366e-02_jprb,1.8219e-01_jprb,2.8684e-01_jprb,3.7242e-01_jprb,4.1729e-01_jprb/)  
kbo( :, 5,23, 8) = (/&
 & 3.0906e-02_jprb,1.9826e-01_jprb,3.0394e-01_jprb,3.8658e-01_jprb,4.2349e-01_jprb/)  
kbo( :, 1,24, 8) = (/&
 & 7.7535e-03_jprb,1.2629e-01_jprb,2.1405e-01_jprb,2.9135e-01_jprb,3.4301e-01_jprb/)  
kbo( :, 2,24, 8) = (/&
 & 1.1183e-02_jprb,1.3800e-01_jprb,2.2733e-01_jprb,3.0427e-01_jprb,3.5176e-01_jprb/)  
kbo( :, 3,24, 8) = (/&
 & 1.5576e-02_jprb,1.5118e-01_jprb,2.4185e-01_jprb,3.1749e-01_jprb,3.6002e-01_jprb/)  
kbo( :, 4,24, 8) = (/&
 & 2.1087e-02_jprb,1.6543e-01_jprb,2.5728e-01_jprb,3.3050e-01_jprb,3.6605e-01_jprb/)  
kbo( :, 5,24, 8) = (/&
 & 2.7862e-02_jprb,1.8042e-01_jprb,2.7311e-01_jprb,3.4269e-01_jprb,3.6924e-01_jprb/)  
kbo( :, 1,25, 8) = (/&
 & 7.0742e-03_jprb,1.1262e-01_jprb,1.8871e-01_jprb,2.5540e-01_jprb,2.9903e-01_jprb/)  
kbo( :, 2,25, 8) = (/&
 & 1.0155e-02_jprb,1.2387e-01_jprb,2.0149e-01_jprb,2.6744e-01_jprb,3.0694e-01_jprb/)  
kbo( :, 3,25, 8) = (/&
 & 1.4119e-02_jprb,1.3621e-01_jprb,2.1507e-01_jprb,2.7908e-01_jprb,3.1279e-01_jprb/)  
kbo( :, 4,25, 8) = (/&
 & 1.9079e-02_jprb,1.4928e-01_jprb,2.2897e-01_jprb,2.8986e-01_jprb,3.1583e-01_jprb/)  
kbo( :, 5,25, 8) = (/&
 & 2.5164e-02_jprb,1.6305e-01_jprb,2.4282e-01_jprb,2.9961e-01_jprb,3.1616e-01_jprb/)  
kbo( :, 1,26, 8) = (/&
 & 6.4819e-03_jprb,1.0046e-01_jprb,1.6616e-01_jprb,2.2296e-01_jprb,2.5906e-01_jprb/)  
kbo( :, 2,26, 8) = (/&
 & 9.2746e-03_jprb,1.1094e-01_jprb,1.7789e-01_jprb,2.3321e-01_jprb,2.6463e-01_jprb/)  
kbo( :, 3,26, 8) = (/&
 & 1.2860e-02_jprb,1.2211e-01_jprb,1.8982e-01_jprb,2.4261e-01_jprb,2.6762e-01_jprb/)  
kbo( :, 4,26, 8) = (/&
 & 1.7340e-02_jprb,1.3390e-01_jprb,2.0176e-01_jprb,2.5109e-01_jprb,2.6820e-01_jprb/)  
kbo( :, 5,26, 8) = (/&
 & 2.2797e-02_jprb,1.4641e-01_jprb,2.1346e-01_jprb,2.5871e-01_jprb,2.6701e-01_jprb/)  
kbo( :, 1,27, 8) = (/&
 & 5.9496e-03_jprb,8.9354e-02_jprb,1.4559e-01_jprb,1.9301e-01_jprb,2.2196e-01_jprb/)  
kbo( :, 2,27, 8) = (/&
 & 8.4823e-03_jprb,9.8713e-02_jprb,1.5575e-01_jprb,2.0121e-01_jprb,2.2502e-01_jprb/)  
kbo( :, 3,27, 8) = (/&
 & 1.1723e-02_jprb,1.0860e-01_jprb,1.6592e-01_jprb,2.0857e-01_jprb,2.2594e-01_jprb/)  
kbo( :, 4,27, 8) = (/&
 & 1.5760e-02_jprb,1.1910e-01_jprb,1.7588e-01_jprb,2.1528e-01_jprb,2.2532e-01_jprb/)  
kbo( :, 5,27, 8) = (/&
 & 2.0640e-02_jprb,1.3042e-01_jprb,1.8584e-01_jprb,2.2158e-01_jprb,2.2357e-01_jprb/)  
kbo( :, 1,28, 8) = (/&
 & 5.4648e-03_jprb,7.8954e-02_jprb,1.2664e-01_jprb,1.6556e-01_jprb,1.8790e-01_jprb/)  
kbo( :, 2,28, 8) = (/&
 & 7.7612e-03_jprb,8.7134e-02_jprb,1.3525e-01_jprb,1.7197e-01_jprb,1.8917e-01_jprb/)  
kbo( :, 3,28, 8) = (/&
 & 1.0688e-02_jprb,9.5816e-02_jprb,1.4371e-01_jprb,1.7791e-01_jprb,1.8910e-01_jprb/)  
kbo( :, 4,28, 8) = (/&
 & 1.4301e-02_jprb,1.0515e-01_jprb,1.5218e-01_jprb,1.8352e-01_jprb,1.8804e-01_jprb/)  
kbo( :, 5,28, 8) = (/&
 & 1.8668e-02_jprb,1.1540e-01_jprb,1.6098e-01_jprb,1.8889e-01_jprb,1.8616e-01_jprb/)  
kbo( :, 1,29, 8) = (/&
 & 5.0360e-03_jprb,6.9325e-02_jprb,1.0943e-01_jprb,1.4091e-01_jprb,1.5759e-01_jprb/)  
kbo( :, 2,29, 8) = (/&
 & 7.1202e-03_jprb,7.6426e-02_jprb,1.1663e-01_jprb,1.4615e-01_jprb,1.5798e-01_jprb/)  
kbo( :, 3,29, 8) = (/&
 & 9.7533e-03_jprb,8.4055e-02_jprb,1.2381e-01_jprb,1.5115e-01_jprb,1.5749e-01_jprb/)  
kbo( :, 4,29, 8) = (/&
 & 1.2997e-02_jprb,9.2463e-02_jprb,1.3122e-01_jprb,1.5595e-01_jprb,1.5628e-01_jprb/)  
kbo( :, 5,29, 8) = (/&
 & 1.6906e-02_jprb,1.0185e-01_jprb,1.3918e-01_jprb,1.6061e-01_jprb,1.5451e-01_jprb/)  
kbo( :, 1,30, 8) = (/&
 & 4.6402e-03_jprb,6.0489e-02_jprb,9.4043e-02_jprb,1.1942e-01_jprb,1.3140e-01_jprb/)  
kbo( :, 2,30, 8) = (/&
 & 6.5263e-03_jprb,6.6689e-02_jprb,1.0012e-01_jprb,1.2384e-01_jprb,1.3139e-01_jprb/)  
kbo( :, 3,30, 8) = (/&
 & 8.8957e-03_jprb,7.3511e-02_jprb,1.0635e-01_jprb,1.2814e-01_jprb,1.3072e-01_jprb/)  
kbo( :, 4,30, 8) = (/&
 & 1.1806e-02_jprb,8.1191e-02_jprb,1.1302e-01_jprb,1.3230e-01_jprb,1.2954e-01_jprb/)  
kbo( :, 5,30, 8) = (/&
 & 1.5321e-02_jprb,8.9861e-02_jprb,1.2036e-01_jprb,1.3654e-01_jprb,1.2795e-01_jprb/)  
kbo( :, 1,31, 8) = (/&
 & 4.2816e-03_jprb,5.2594e-02_jprb,8.0556e-02_jprb,1.0100e-01_jprb,1.0923e-01_jprb/)  
kbo( :, 2,31, 8) = (/&
 & 5.9928e-03_jprb,5.8093e-02_jprb,8.5788e-02_jprb,1.0484e-01_jprb,1.0901e-01_jprb/)  
kbo( :, 3,31, 8) = (/&
 & 8.1254e-03_jprb,6.4313e-02_jprb,9.1351e-02_jprb,1.0855e-01_jprb,1.0832e-01_jprb/)  
kbo( :, 4,31, 8) = (/&
 & 1.0750e-02_jprb,7.1406e-02_jprb,9.7440e-02_jprb,1.1230e-01_jprb,1.0725e-01_jprb/)  
kbo( :, 5,31, 8) = (/&
 & 1.3934e-02_jprb,7.9435e-02_jprb,1.0429e-01_jprb,1.1627e-01_jprb,1.0582e-01_jprb/)  
kbo( :, 1,32, 8) = (/&
 & 3.9575e-03_jprb,4.5682e-02_jprb,6.8898e-02_jprb,8.5411e-02_jprb,9.0602e-02_jprb/)  
kbo( :, 2,32, 8) = (/&
 & 5.5021e-03_jprb,5.0658e-02_jprb,7.3522e-02_jprb,8.8727e-02_jprb,9.0292e-02_jprb/)  
kbo( :, 3,32, 8) = (/&
 & 7.4345e-03_jprb,5.6386e-02_jprb,7.8565e-02_jprb,9.2013e-02_jprb,8.9633e-02_jprb/)  
kbo( :, 4,32, 8) = (/&
 & 9.8223e-03_jprb,6.2960e-02_jprb,8.4228e-02_jprb,9.5465e-02_jprb,8.8660e-02_jprb/)  
kbo( :, 5,32, 8) = (/&
 & 1.2730e-02_jprb,7.0429e-02_jprb,9.0625e-02_jprb,9.9233e-02_jprb,8.7449e-02_jprb/)  
kbo( :, 1,33, 8) = (/&
 & 3.6591e-03_jprb,3.9715e-02_jprb,5.8948e-02_jprb,7.2241e-02_jprb,7.5055e-02_jprb/)  
kbo( :, 2,33, 8) = (/&
 & 5.0639e-03_jprb,4.4286e-02_jprb,6.3097e-02_jprb,7.5129e-02_jprb,7.4722e-02_jprb/)  
kbo( :, 3,33, 8) = (/&
 & 6.8217e-03_jprb,4.9606e-02_jprb,6.7743e-02_jprb,7.8113e-02_jprb,7.4121e-02_jprb/)  
kbo( :, 4,33, 8) = (/&
 & 9.0010e-03_jprb,5.5729e-02_jprb,7.3038e-02_jprb,8.1349e-02_jprb,7.3284e-02_jprb/)  
kbo( :, 5,33, 8) = (/&
 & 1.1693e-02_jprb,6.2702e-02_jprb,7.9022e-02_jprb,8.4992e-02_jprb,7.2286e-02_jprb/)  
kbo( :, 1,34, 8) = (/&
 & 3.3424e-03_jprb,3.4485e-02_jprb,5.0364e-02_jprb,6.1041e-02_jprb,6.2108e-02_jprb/)  

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


SUBROUTINE part24

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


kbo( :, 2,34, 8) = (/&
 & 4.6136e-03_jprb,3.8708e-02_jprb,5.4132e-02_jprb,6.3612e-02_jprb,6.1791e-02_jprb/)  
kbo( :, 3,34, 8) = (/&
 & 6.2081e-03_jprb,4.3641e-02_jprb,5.8453e-02_jprb,6.6369e-02_jprb,6.1269e-02_jprb/)  
kbo( :, 4,34, 8) = (/&
 & 8.2079e-03_jprb,4.9328e-02_jprb,6.3400e-02_jprb,6.9443e-02_jprb,6.0579e-02_jprb/)  
kbo( :, 5,34, 8) = (/&
 & 1.0690e-02_jprb,5.5879e-02_jprb,6.9026e-02_jprb,7.2976e-02_jprb,5.9770e-02_jprb/)  
kbo( :, 1,35, 8) = (/&
 & 2.9610e-03_jprb,2.9708e-02_jprb,4.2806e-02_jprb,5.1414e-02_jprb,5.1399e-02_jprb/)  
kbo( :, 2,35, 8) = (/&
 & 4.0852e-03_jprb,3.3563e-02_jprb,4.6239e-02_jprb,5.3734e-02_jprb,5.1129e-02_jprb/)  
kbo( :, 3,35, 8) = (/&
 & 5.5146e-03_jprb,3.8090e-02_jprb,5.0226e-02_jprb,5.6294e-02_jprb,5.0708e-02_jprb/)  
kbo( :, 4,35, 8) = (/&
 & 7.3191e-03_jprb,4.3348e-02_jprb,5.4809e-02_jprb,5.9220e-02_jprb,5.0169e-02_jprb/)  
kbo( :, 5,35, 8) = (/&
 & 9.5862e-03_jprb,4.9447e-02_jprb,6.0051e-02_jprb,6.2576e-02_jprb,4.9549e-02_jprb/)  
kbo( :, 1,36, 8) = (/&
 & 2.5291e-03_jprb,2.5317e-02_jprb,3.6139e-02_jprb,4.3139e-02_jprb,4.2550e-02_jprb/)  
kbo( :, 2,36, 8) = (/&
 & 3.5081e-03_jprb,2.8787e-02_jprb,3.9246e-02_jprb,4.5245e-02_jprb,4.2349e-02_jprb/)  
kbo( :, 3,36, 8) = (/&
 & 4.7623e-03_jprb,3.2880e-02_jprb,4.2875e-02_jprb,4.7610e-02_jprb,4.2034e-02_jprb/)  
kbo( :, 4,36, 8) = (/&
 & 6.3600e-03_jprb,3.7684e-02_jprb,4.7082e-02_jprb,5.0344e-02_jprb,4.1631e-02_jprb/)  
kbo( :, 5,36, 8) = (/&
 & 8.3828e-03_jprb,4.3328e-02_jprb,5.1915e-02_jprb,5.3486e-02_jprb,4.1174e-02_jprb/)  
kbo( :, 1,37, 8) = (/&
 & 2.0572e-03_jprb,2.1190e-02_jprb,3.0172e-02_jprb,3.5966e-02_jprb,3.5231e-02_jprb/)  
kbo( :, 2,37, 8) = (/&
 & 2.8742e-03_jprb,2.4234e-02_jprb,3.2921e-02_jprb,3.7847e-02_jprb,3.5097e-02_jprb/)  
kbo( :, 3,37, 8) = (/&
 & 3.9377e-03_jprb,2.7856e-02_jprb,3.6156e-02_jprb,3.9991e-02_jprb,3.4880e-02_jprb/)  
kbo( :, 4,37, 8) = (/&
 & 5.3075e-03_jprb,3.2157e-02_jprb,3.9929e-02_jprb,4.2485e-02_jprb,3.4595e-02_jprb/)  
kbo( :, 5,37, 8) = (/&
 & 7.0531e-03_jprb,3.7266e-02_jprb,4.4310e-02_jprb,4.5361e-02_jprb,3.4266e-02_jprb/)  
kbo( :, 1,38, 8) = (/&
 & 1.6668e-03_jprb,1.7718e-02_jprb,2.5179e-02_jprb,2.9976e-02_jprb,2.9178e-02_jprb/)  
kbo( :, 2,38, 8) = (/&
 & 2.3512e-03_jprb,2.0388e-02_jprb,2.7616e-02_jprb,3.1654e-02_jprb,2.9106e-02_jprb/)  
kbo( :, 3,38, 8) = (/&
 & 3.2489e-03_jprb,2.3599e-02_jprb,3.0491e-02_jprb,3.3589e-02_jprb,2.8965e-02_jprb/)  
kbo( :, 4,38, 8) = (/&
 & 4.4197e-03_jprb,2.7448e-02_jprb,3.3876e-02_jprb,3.5861e-02_jprb,2.8777e-02_jprb/)  
kbo( :, 5,38, 8) = (/&
 & 5.9291e-03_jprb,3.2085e-02_jprb,3.7857e-02_jprb,3.8499e-02_jprb,2.8558e-02_jprb/)  
kbo( :, 1,39, 8) = (/&
 & 1.3505e-03_jprb,1.4824e-02_jprb,2.1025e-02_jprb,2.4988e-02_jprb,2.4183e-02_jprb/)  
kbo( :, 2,39, 8) = (/&
 & 1.9237e-03_jprb,1.7169e-02_jprb,2.3181e-02_jprb,2.6485e-02_jprb,2.4157e-02_jprb/)  
kbo( :, 3,39, 8) = (/&
 & 2.6812e-03_jprb,2.0015e-02_jprb,2.5740e-02_jprb,2.8232e-02_jprb,2.4081e-02_jprb/)  
kbo( :, 4,39, 8) = (/&
 & 3.6890e-03_jprb,2.3470e-02_jprb,2.8781e-02_jprb,3.0301e-02_jprb,2.3974e-02_jprb/)  
kbo( :, 5,39, 8) = (/&
 & 4.9956e-03_jprb,2.7688e-02_jprb,3.2410e-02_jprb,3.2726e-02_jprb,2.3849e-02_jprb/)  
kbo( :, 1,40, 8) = (/&
 & 1.0535e-03_jprb,1.2217e-02_jprb,1.7388e-02_jprb,2.0709e-02_jprb,2.0019e-02_jprb/)  
kbo( :, 2,40, 8) = (/&
 & 1.5173e-03_jprb,1.4233e-02_jprb,1.9255e-02_jprb,2.2025e-02_jprb,2.0029e-02_jprb/)  
kbo( :, 3,40, 8) = (/&
 & 2.1424e-03_jprb,1.6709e-02_jprb,2.1499e-02_jprb,2.3574e-02_jprb,2.0001e-02_jprb/)  
kbo( :, 4,40, 8) = (/&
 & 2.9806e-03_jprb,1.9754e-02_jprb,2.4186e-02_jprb,2.5425e-02_jprb,1.9953e-02_jprb/)  
kbo( :, 5,40, 8) = (/&
 & 4.0841e-03_jprb,2.3521e-02_jprb,2.7438e-02_jprb,2.7615e-02_jprb,1.9891e-02_jprb/)  
kbo( :, 1,41, 8) = (/&
 & 8.1549e-04_jprb,1.0039e-02_jprb,1.4352e-02_jprb,1.7141e-02_jprb,1.6569e-02_jprb/)  
kbo( :, 2,41, 8) = (/&
 & 1.1896e-03_jprb,1.1765e-02_jprb,1.5963e-02_jprb,1.8295e-02_jprb,1.6609e-02_jprb/)  
kbo( :, 3,41, 8) = (/&
 & 1.7007e-03_jprb,1.3910e-02_jprb,1.7922e-02_jprb,1.9664e-02_jprb,1.6616e-02_jprb/)  
kbo( :, 4,41, 8) = (/&
 & 2.3967e-03_jprb,1.6587e-02_jprb,2.0295e-02_jprb,2.1313e-02_jprb,1.6608e-02_jprb/)  
kbo( :, 5,41, 8) = (/&
 & 3.3209e-03_jprb,1.9941e-02_jprb,2.3193e-02_jprb,2.3279e-02_jprb,1.6596e-02_jprb/)  
kbo( :, 1,42, 8) = (/&
 & 6.2885e-04_jprb,8.2389e-03_jprb,1.1838e-02_jprb,1.4182e-02_jprb,1.3717e-02_jprb/)  
kbo( :, 2,42, 8) = (/&
 & 9.3075e-04_jprb,9.7147e-03_jprb,1.3226e-02_jprb,1.5189e-02_jprb,1.3775e-02_jprb/)  
kbo( :, 3,42, 8) = (/&
 & 1.3476e-03_jprb,1.1572e-02_jprb,1.4934e-02_jprb,1.6397e-02_jprb,1.3812e-02_jprb/)  
kbo( :, 4,42, 8) = (/&
 & 1.9221e-03_jprb,1.3921e-02_jprb,1.7022e-02_jprb,1.7862e-02_jprb,1.3835e-02_jprb/)  
kbo( :, 5,42, 8) = (/&
 & 2.6974e-03_jprb,1.6905e-02_jprb,1.9608e-02_jprb,1.9625e-02_jprb,1.3858e-02_jprb/)  
kbo( :, 1,43, 8) = (/&
 & 4.7225e-04_jprb,6.6911e-03_jprb,9.6971e-03_jprb,1.1682e-02_jprb,1.1351e-02_jprb/)  
kbo( :, 2,43, 8) = (/&
 & 7.0933e-04_jprb,7.9348e-03_jprb,1.0877e-02_jprb,1.2551e-02_jprb,1.1424e-02_jprb/)  
kbo( :, 3,43, 8) = (/&
 & 1.0435e-03_jprb,9.5155e-03_jprb,1.2344e-02_jprb,1.3602e-02_jprb,1.1480e-02_jprb/)  
kbo( :, 4,43, 8) = (/&
 & 1.5082e-03_jprb,1.1547e-02_jprb,1.4158e-02_jprb,1.4886e-02_jprb,1.1523e-02_jprb/)  
kbo( :, 5,43, 8) = (/&
 & 2.1454e-03_jprb,1.4163e-02_jprb,1.6434e-02_jprb,1.6450e-02_jprb,1.1573e-02_jprb/)  
kbo( :, 1,44, 8) = (/&
 & 3.4902e-04_jprb,5.4014e-03_jprb,7.9122e-03_jprb,9.5973e-03_jprb,9.3906e-03_jprb/)  
kbo( :, 2,44, 8) = (/&
 & 5.3336e-04_jprb,6.4385e-03_jprb,8.9048e-03_jprb,1.0341e-02_jprb,9.4727e-03_jprb/)  
kbo( :, 3,44, 8) = (/&
 & 7.9641e-04_jprb,7.7741e-03_jprb,1.0155e-02_jprb,1.1247e-02_jprb,9.5408e-03_jprb/)  
kbo( :, 4,44, 8) = (/&
 & 1.1697e-03_jprb,9.5107e-03_jprb,1.1718e-02_jprb,1.2366e-02_jprb,9.5994e-03_jprb/)  
kbo( :, 5,44, 8) = (/&
 & 1.6866e-03_jprb,1.1782e-02_jprb,1.3700e-02_jprb,1.3737e-02_jprb,9.6629e-03_jprb/)  
kbo( :, 1,45, 8) = (/&
 & 2.5641e-04_jprb,4.3524e-03_jprb,6.4489e-03_jprb,7.8776e-03_jprb,7.7700e-03_jprb/)  
kbo( :, 2,45, 8) = (/&
 & 3.9819e-04_jprb,5.2131e-03_jprb,7.2796e-03_jprb,8.5115e-03_jprb,7.8565e-03_jprb/)  
kbo( :, 3,45, 8) = (/&
 & 6.0452e-04_jprb,6.3356e-03_jprb,8.3400e-03_jprb,9.2883e-03_jprb,7.9298e-03_jprb/)  
kbo( :, 4,45, 8) = (/&
 & 9.0225e-04_jprb,7.8148e-03_jprb,9.6818e-03_jprb,1.0257e-02_jprb,7.9978e-03_jprb/)  
kbo( :, 5,45, 8) = (/&
 & 1.3212e-03_jprb,9.7779e-03_jprb,1.1402e-02_jprb,1.1457e-02_jprb,8.0738e-03_jprb/)  
kbo( :, 1,46, 8) = (/&
 & 1.8524e-04_jprb,3.4864e-03_jprb,5.2341e-03_jprb,6.4466e-03_jprb,6.4230e-03_jprb/)  
kbo( :, 2,46, 8) = (/&
 & 2.9313e-04_jprb,4.1931e-03_jprb,5.9228e-03_jprb,6.9831e-03_jprb,6.5117e-03_jprb/)  
kbo( :, 3,46, 8) = (/&
 & 4.5241e-04_jprb,5.1271e-03_jprb,6.8142e-03_jprb,7.6439e-03_jprb,6.5889e-03_jprb/)  
kbo( :, 4,46, 8) = (/&
 & 6.8674e-04_jprb,6.3729e-03_jprb,7.9564e-03_jprb,8.4768e-03_jprb,6.6644e-03_jprb/)  
kbo( :, 5,46, 8) = (/&
 & 1.0220e-03_jprb,8.0538e-03_jprb,9.4380e-03_jprb,9.5193e-03_jprb,6.7476e-03_jprb/)  
kbo( :, 1,47, 8) = (/&
 & 1.3000e-04_jprb,2.7663e-03_jprb,4.2208e-03_jprb,5.2521e-03_jprb,5.3026e-03_jprb/)  
kbo( :, 2,47, 8) = (/&
 & 2.1025e-04_jprb,3.3363e-03_jprb,4.7828e-03_jprb,5.7020e-03_jprb,5.3902e-03_jprb/)  
kbo( :, 3,47, 8) = (/&
 & 3.3047e-04_jprb,4.0995e-03_jprb,5.5201e-03_jprb,6.2559e-03_jprb,5.4679e-03_jprb/)  
kbo( :, 4,47, 8) = (/&
 & 5.1029e-04_jprb,5.1296e-03_jprb,6.4755e-03_jprb,6.9601e-03_jprb,5.5444e-03_jprb/)  
kbo( :, 5,47, 8) = (/&
 & 7.7317e-04_jprb,6.5403e-03_jprb,7.7293e-03_jprb,7.8503e-03_jprb,5.6289e-03_jprb/)  
kbo( :, 1,48, 8) = (/&
 & 9.0250e-05_jprb,2.1914e-03_jprb,3.3994e-03_jprb,4.2738e-03_jprb,4.3771e-03_jprb/)  
kbo( :, 2,48, 8) = (/&
 & 1.4933e-04_jprb,2.6470e-03_jprb,3.8547e-03_jprb,4.6490e-03_jprb,4.4611e-03_jprb/)  
kbo( :, 3,48, 8) = (/&
 & 2.3950e-04_jprb,3.2661e-03_jprb,4.4586e-03_jprb,5.1091e-03_jprb,4.5366e-03_jprb/)  
kbo( :, 4,48, 8) = (/&
 & 3.7635e-04_jprb,4.1116e-03_jprb,5.2534e-03_jprb,5.7004e-03_jprb,4.6124e-03_jprb/)  
kbo( :, 5,48, 8) = (/&
 & 5.8082e-04_jprb,5.2884e-03_jprb,6.3086e-03_jprb,6.4573e-03_jprb,4.6977e-03_jprb/)  
kbo( :, 1,49, 8) = (/&
 & 6.1993e-05_jprb,1.7331e-03_jprb,2.7330e-03_jprb,3.4719e-03_jprb,3.6111e-03_jprb/)  
kbo( :, 2,49, 8) = (/&
 & 1.0511e-04_jprb,2.0938e-03_jprb,3.1004e-03_jprb,3.7836e-03_jprb,3.6915e-03_jprb/)  
kbo( :, 3,49, 8) = (/&
 & 1.7216e-04_jprb,2.5932e-03_jprb,3.5917e-03_jprb,4.1650e-03_jprb,3.7653e-03_jprb/)  
kbo( :, 4,49, 8) = (/&
 & 2.7551e-04_jprb,3.2829e-03_jprb,4.2486e-03_jprb,4.6580e-03_jprb,3.8405e-03_jprb/)  
kbo( :, 5,49, 8) = (/&
 & 4.3301e-04_jprb,4.2570e-03_jprb,5.1317e-03_jprb,5.2985e-03_jprb,3.9263e-03_jprb/)  
kbo( :, 1,50, 8) = (/&
 & 4.2678e-05_jprb,1.3745e-03_jprb,2.2002e-03_jprb,2.8212e-03_jprb,2.9737e-03_jprb/)  
kbo( :, 2,50, 8) = (/&
 & 7.4146e-05_jprb,1.6605e-03_jprb,2.4974e-03_jprb,3.0815e-03_jprb,3.0479e-03_jprb/)  
kbo( :, 3,50, 8) = (/&
 & 1.2406e-04_jprb,2.0639e-03_jprb,2.8982e-03_jprb,3.3988e-03_jprb,3.1188e-03_jprb/)  
kbo( :, 4,50, 8) = (/&
 & 2.0253e-04_jprb,2.6282e-03_jprb,3.4425e-03_jprb,3.8116e-03_jprb,3.1913e-03_jprb/)  
kbo( :, 5,50, 8) = (/&
 & 3.2424e-04_jprb,3.4369e-03_jprb,4.1830e-03_jprb,4.3547e-03_jprb,3.2730e-03_jprb/)  
kbo( :, 1,51, 8) = (/&
 & 2.9237e-05_jprb,1.0909e-03_jprb,1.7714e-03_jprb,2.2917e-03_jprb,2.4464e-03_jprb/)  
kbo( :, 2,51, 8) = (/&
 & 5.2166e-05_jprb,1.3176e-03_jprb,2.0125e-03_jprb,2.5102e-03_jprb,2.5148e-03_jprb/)  
kbo( :, 3,51, 8) = (/&
 & 8.9091e-05_jprb,1.6426e-03_jprb,2.3388e-03_jprb,2.7738e-03_jprb,2.5806e-03_jprb/)  
kbo( :, 4,51, 8) = (/&
 & 1.4840e-04_jprb,2.1028e-03_jprb,2.7878e-03_jprb,3.1176e-03_jprb,2.6477e-03_jprb/)  
kbo( :, 5,51, 8) = (/&
 & 2.4207e-04_jprb,2.7714e-03_jprb,3.4063e-03_jprb,3.5762e-03_jprb,2.7227e-03_jprb/)  
kbo( :, 1,52, 8) = (/&
 & 1.9807e-05_jprb,8.6538e-04_jprb,1.4249e-03_jprb,1.8595e-03_jprb,2.0124e-03_jprb/)  
kbo( :, 2,52, 8) = (/&
 & 3.6322e-05_jprb,1.0438e-03_jprb,1.6200e-03_jprb,2.0422e-03_jprb,2.0750e-03_jprb/)  
kbo( :, 3,52, 8) = (/&
 & 6.3515e-05_jprb,1.3037e-03_jprb,1.8836e-03_jprb,2.2603e-03_jprb,2.1352e-03_jprb/)  
kbo( :, 4,52, 8) = (/&
 & 1.0788e-04_jprb,1.6767e-03_jprb,2.2517e-03_jprb,2.5448e-03_jprb,2.1970e-03_jprb/)  
kbo( :, 5,52, 8) = (/&
 & 1.7958e-04_jprb,2.2260e-03_jprb,2.7651e-03_jprb,2.9295e-03_jprb,2.2657e-03_jprb/)  
kbo( :, 1,53, 8) = (/&
 & 1.3242e-05_jprb,6.8573e-04_jprb,1.1446e-03_jprb,1.5067e-03_jprb,1.6550e-03_jprb/)  
kbo( :, 2,53, 8) = (/&
 & 2.5022e-05_jprb,8.2535e-04_jprb,1.3018e-03_jprb,1.6587e-03_jprb,1.7117e-03_jprb/)  
kbo( :, 3,53, 8) = (/&
 & 4.4849e-05_jprb,1.0313e-03_jprb,1.5135e-03_jprb,1.8385e-03_jprb,1.7670e-03_jprb/)  
kbo( :, 4,53, 8) = (/&
 & 7.7724e-05_jprb,1.3321e-03_jprb,1.8130e-03_jprb,2.0729e-03_jprb,1.8239e-03_jprb/)  
kbo( :, 5,53, 8) = (/&
 & 1.3199e-04_jprb,1.7794e-03_jprb,2.2365e-03_jprb,2.3931e-03_jprb,1.8874e-03_jprb/)  
kbo( :, 1,54, 8) = (/&
 & 8.9248e-06_jprb,5.4556e-04_jprb,9.2163e-04_jprb,1.2225e-03_jprb,1.3566e-03_jprb/)  
kbo( :, 2,54, 8) = (/&
 & 1.7372e-05_jprb,6.5581e-04_jprb,1.0492e-03_jprb,1.3494e-03_jprb,1.4063e-03_jprb/)  
kbo( :, 3,54, 8) = (/&
 & 3.1907e-05_jprb,8.1979e-04_jprb,1.2202e-03_jprb,1.4983e-03_jprb,1.4551e-03_jprb/)  
kbo( :, 4,54, 8) = (/&
 & 5.6506e-05_jprb,1.0634e-03_jprb,1.4647e-03_jprb,1.6922e-03_jprb,1.5046e-03_jprb/)  
kbo( :, 5,54, 8) = (/&
 & 9.7836e-05_jprb,1.4301e-03_jprb,1.8159e-03_jprb,1.9597e-03_jprb,1.5596e-03_jprb/)  
kbo( :, 1,55, 8) = (/&
 & 6.0009e-06_jprb,4.3459e-04_jprb,7.4215e-04_jprb,9.9172e-04_jprb,1.1093e-03_jprb/)  
kbo( :, 2,55, 8) = (/&
 & 1.2050e-05_jprb,5.2184e-04_jprb,8.4618e-04_jprb,1.0977e-03_jprb,1.1520e-03_jprb/)  
kbo( :, 3,55, 8) = (/&
 & 2.2697e-05_jprb,6.5227e-04_jprb,9.8427e-04_jprb,1.2212e-03_jprb,1.1941e-03_jprb/)  
kbo( :, 4,55, 8) = (/&
 & 4.1051e-05_jprb,8.4944e-04_jprb,1.1837e-03_jprb,1.3815e-03_jprb,1.2361e-03_jprb/)  
kbo( :, 5,55, 8) = (/&
 & 7.2472e-05_jprb,1.1494e-03_jprb,1.4743e-03_jprb,1.6046e-03_jprb,1.2823e-03_jprb/)  
kbo( :, 1,56, 8) = (/&
 & 3.9898e-06_jprb,3.4589e-04_jprb,5.9689e-04_jprb,8.0352e-04_jprb,9.0649e-04_jprb/)  
kbo( :, 2,56, 8) = (/&
 & 8.2750e-06_jprb,4.1470e-04_jprb,6.8153e-04_jprb,8.9166e-04_jprb,9.4301e-04_jprb/)  
kbo( :, 3,56, 8) = (/&
 & 1.6003e-05_jprb,5.1786e-04_jprb,7.9279e-04_jprb,9.9410e-04_jprb,9.7913e-04_jprb/)  
kbo( :, 4,56, 8) = (/&
 & 2.9587e-05_jprb,6.7655e-04_jprb,9.5450e-04_jprb,1.1258e-03_jprb,1.0149e-03_jprb/)  
kbo( :, 5,56, 8) = (/&
 & 5.3280e-05_jprb,9.2055e-04_jprb,1.1938e-03_jprb,1.3111e-03_jprb,1.0536e-03_jprb/)  
kbo( :, 1,57, 8) = (/&
 & 2.6173e-06_jprb,2.7500e-04_jprb,4.7940e-04_jprb,6.5022e-04_jprb,7.4014e-04_jprb/)  
kbo( :, 2,57, 8) = (/&
 & 5.6185e-06_jprb,3.2928e-04_jprb,5.4834e-04_jprb,7.2338e-04_jprb,7.7148e-04_jprb/)  
kbo( :, 3,57, 8) = (/&
 & 1.1178e-05_jprb,4.1034e-04_jprb,6.3758e-04_jprb,8.0791e-04_jprb,8.0223e-04_jprb/)  
kbo( :, 4,57, 8) = (/&
 & 2.1131e-05_jprb,5.3714e-04_jprb,7.6779e-04_jprb,9.1604e-04_jprb,8.3279e-04_jprb/)  
kbo( :, 5,57, 8) = (/&
 & 3.8855e-05_jprb,7.3446e-04_jprb,9.6373e-04_jprb,1.0689e-03_jprb,8.6527e-04_jprb/)  
kbo( :, 1,58, 8) = (/&
 & 1.7187e-06_jprb,2.1897e-04_jprb,3.8537e-04_jprb,5.2636e-04_jprb,6.0391e-04_jprb/)  
kbo( :, 2,58, 8) = (/&
 & 3.8204e-06_jprb,2.6201e-04_jprb,4.4157e-04_jprb,5.8689e-04_jprb,6.3061e-04_jprb/)  
kbo( :, 3,58, 8) = (/&
 & 7.8175e-06_jprb,3.2596e-04_jprb,5.1345e-04_jprb,6.5702e-04_jprb,6.5669e-04_jprb/)  
kbo( :, 4,58, 8) = (/&
 & 1.5128e-05_jprb,4.2731e-04_jprb,6.1848e-04_jprb,7.4589e-04_jprb,6.8257e-04_jprb/)  
kbo( :, 5,58, 8) = (/&
 & 2.8383e-05_jprb,5.8709e-04_jprb,7.7891e-04_jprb,8.7185e-04_jprb,7.0967e-04_jprb/)  
kbo( :, 1,59, 8) = (/&
 & 1.3071e-06_jprb,1.7971e-04_jprb,3.1713e-04_jprb,4.3408e-04_jprb,4.9479e-04_jprb/)  
kbo( :, 2,59, 8) = (/&
 & 2.9593e-06_jprb,2.1590e-04_jprb,3.6455e-04_jprb,4.8545e-04_jprb,5.1653e-04_jprb/)  
kbo( :, 3,59, 8) = (/&
 & 6.1606e-06_jprb,2.7044e-04_jprb,4.2589e-04_jprb,5.4538e-04_jprb,5.3752e-04_jprb/)  
kbo( :, 4,59, 8) = (/&
 & 1.2116e-05_jprb,3.5815e-04_jprb,5.1701e-04_jprb,6.2252e-04_jprb,5.5854e-04_jprb/)  
kbo( :, 5,59, 8) = (/&
 & 2.3132e-05_jprb,4.9905e-04_jprb,6.5830e-04_jprb,7.3365e-04_jprb,5.8023e-04_jprb/)  
kbo( :, 1,13, 9) = (/&
 & 1.6103e-01_jprb,6.6158e-01_jprb,1.1273e+00_jprb,1.5637e+00_jprb,2.0193e+00_jprb/)  
kbo( :, 2,13, 9) = (/&
 & 2.3702e-01_jprb,7.0502e-01_jprb,1.1597e+00_jprb,1.5650e+00_jprb,1.9887e+00_jprb/)  
kbo( :, 3,13, 9) = (/&
 & 3.3165e-01_jprb,7.5350e-01_jprb,1.1971e+00_jprb,1.5759e+00_jprb,1.9602e+00_jprb/)  
kbo( :, 4,13, 9) = (/&
 & 4.4557e-01_jprb,8.0998e-01_jprb,1.2356e+00_jprb,1.5909e+00_jprb,1.9329e+00_jprb/)  
kbo( :, 5,13, 9) = (/&
 & 5.7859e-01_jprb,8.7605e-01_jprb,1.2746e+00_jprb,1.6061e+00_jprb,1.9056e+00_jprb/)  
kbo( :, 1,14, 9) = (/&
 & 1.4761e-01_jprb,6.9347e-01_jprb,1.1794e+00_jprb,1.6262e+00_jprb,2.0952e+00_jprb/)  
kbo( :, 2,14, 9) = (/&
 & 2.1664e-01_jprb,7.3539e-01_jprb,1.2185e+00_jprb,1.6328e+00_jprb,2.0656e+00_jprb/)  
kbo( :, 3,14, 9) = (/&
 & 3.0271e-01_jprb,7.8091e-01_jprb,1.2580e+00_jprb,1.6489e+00_jprb,2.0363e+00_jprb/)  
kbo( :, 4,14, 9) = (/&
 & 4.0599e-01_jprb,8.3259e-01_jprb,1.2961e+00_jprb,1.6672e+00_jprb,2.0067e+00_jprb/)  
kbo( :, 5,14, 9) = (/&
 & 5.2635e-01_jprb,8.9136e-01_jprb,1.3335e+00_jprb,1.6865e+00_jprb,1.9784e+00_jprb/)  
kbo( :, 1,15, 9) = (/&
 & 1.3457e-01_jprb,7.2100e-01_jprb,1.2219e+00_jprb,1.6745e+00_jprb,2.1504e+00_jprb/)  
kbo( :, 2,15, 9) = (/&
 & 1.9694e-01_jprb,7.6310e-01_jprb,1.2659e+00_jprb,1.6872e+00_jprb,2.1231e+00_jprb/)  
kbo( :, 3,15, 9) = (/&
 & 2.7439e-01_jprb,8.0691e-01_jprb,1.3081e+00_jprb,1.7082e+00_jprb,2.0944e+00_jprb/)  
kbo( :, 4,15, 9) = (/&
 & 3.6719e-01_jprb,8.5456e-01_jprb,1.3474e+00_jprb,1.7304e+00_jprb,2.0661e+00_jprb/)  
kbo( :, 5,15, 9) = (/&
 & 4.7561e-01_jprb,9.0769e-01_jprb,1.3846e+00_jprb,1.7533e+00_jprb,2.0378e+00_jprb/)  
kbo( :, 1,16, 9) = (/&
 & 1.2205e-01_jprb,7.4077e-01_jprb,1.2541e+00_jprb,1.7073e+00_jprb,2.1827e+00_jprb/)  

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


SUBROUTINE part25

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


kbo( :, 2,16, 9) = (/&
 & 1.7791e-01_jprb,7.8396e-01_jprb,1.3002e+00_jprb,1.7270e+00_jprb,2.1581e+00_jprb/)  
kbo( :, 3,16, 9) = (/&
 & 2.4715e-01_jprb,8.2834e-01_jprb,1.3436e+00_jprb,1.7521e+00_jprb,2.1327e+00_jprb/)  
kbo( :, 4,16, 9) = (/&
 & 3.3034e-01_jprb,8.7418e-01_jprb,1.3847e+00_jprb,1.7782e+00_jprb,2.1067e+00_jprb/)  
kbo( :, 5,16, 9) = (/&
 & 4.2786e-01_jprb,9.2279e-01_jprb,1.4244e+00_jprb,1.8037e+00_jprb,2.0808e+00_jprb/)  
kbo( :, 1,17, 9) = (/&
 & 1.0982e-01_jprb,7.5143e-01_jprb,1.2725e+00_jprb,1.7242e+00_jprb,2.1909e+00_jprb/)  
kbo( :, 2,17, 9) = (/&
 & 1.5953e-01_jprb,7.9549e-01_jprb,1.3193e+00_jprb,1.7501e+00_jprb,2.1703e+00_jprb/)  
kbo( :, 3,17, 9) = (/&
 & 2.2127e-01_jprb,8.4054e-01_jprb,1.3636e+00_jprb,1.7793e+00_jprb,2.1486e+00_jprb/)  
kbo( :, 4,17, 9) = (/&
 & 2.9584e-01_jprb,8.8682e-01_jprb,1.4059e+00_jprb,1.8091e+00_jprb,2.1266e+00_jprb/)  
kbo( :, 5,17, 9) = (/&
 & 3.8385e-01_jprb,9.3422e-01_jprb,1.4466e+00_jprb,1.8364e+00_jprb,2.1039e+00_jprb/)  
kbo( :, 1,18, 9) = (/&
 & 9.8329e-02_jprb,7.5240e-01_jprb,1.2756e+00_jprb,1.7244e+00_jprb,2.1757e+00_jprb/)  
kbo( :, 2,18, 9) = (/&
 & 1.4251e-01_jprb,7.9706e-01_jprb,1.3228e+00_jprb,1.7556e+00_jprb,2.1597e+00_jprb/)  
kbo( :, 3,18, 9) = (/&
 & 1.9773e-01_jprb,8.4264e-01_jprb,1.3673e+00_jprb,1.7888e+00_jprb,2.1427e+00_jprb/)  
kbo( :, 4,18, 9) = (/&
 & 2.6482e-01_jprb,8.8901e-01_jprb,1.4101e+00_jprb,1.8204e+00_jprb,2.1245e+00_jprb/)  
kbo( :, 5,18, 9) = (/&
 & 3.4448e-01_jprb,9.3666e-01_jprb,1.4514e+00_jprb,1.8483e+00_jprb,2.1059e+00_jprb/)  
kbo( :, 1,19, 9) = (/&
 & 8.7815e-02_jprb,7.4384e-01_jprb,1.2637e+00_jprb,1.7067e+00_jprb,2.1362e+00_jprb/)  
kbo( :, 2,19, 9) = (/&
 & 1.2725e-01_jprb,7.8828e-01_jprb,1.3102e+00_jprb,1.7428e+00_jprb,2.1257e+00_jprb/)  
kbo( :, 3,19, 9) = (/&
 & 1.7679e-01_jprb,8.3379e-01_jprb,1.3547e+00_jprb,1.7786e+00_jprb,2.1135e+00_jprb/)  
kbo( :, 4,19, 9) = (/&
 & 2.3728e-01_jprb,8.8010e-01_jprb,1.3977e+00_jprb,1.8108e+00_jprb,2.0991e+00_jprb/)  
kbo( :, 5,19, 9) = (/&
 & 3.0895e-01_jprb,9.2824e-01_jprb,1.4393e+00_jprb,1.8391e+00_jprb,2.0837e+00_jprb/)  
kbo( :, 1,20, 9) = (/&
 & 7.9041e-02_jprb,7.2700e-01_jprb,1.2374e+00_jprb,1.6719e+00_jprb,2.0747e+00_jprb/)  
kbo( :, 2,20, 9) = (/&
 & 1.1454e-01_jprb,7.7070e-01_jprb,1.2831e+00_jprb,1.7109e+00_jprb,2.0685e+00_jprb/)  
kbo( :, 3,20, 9) = (/&
 & 1.5930e-01_jprb,8.1568e-01_jprb,1.3273e+00_jprb,1.7472e+00_jprb,2.0604e+00_jprb/)  
kbo( :, 4,20, 9) = (/&
 & 2.1376e-01_jprb,8.6194e-01_jprb,1.3702e+00_jprb,1.7799e+00_jprb,2.0509e+00_jprb/)  
kbo( :, 5,20, 9) = (/&
 & 2.7842e-01_jprb,9.1045e-01_jprb,1.4124e+00_jprb,1.8091e+00_jprb,2.0408e+00_jprb/)  
kbo( :, 1,21, 9) = (/&
 & 7.1445e-02_jprb,7.0244e-01_jprb,1.1970e+00_jprb,1.6199e+00_jprb,1.9923e+00_jprb/)  
kbo( :, 2,21, 9) = (/&
 & 1.0353e-01_jprb,7.4522e-01_jprb,1.2418e+00_jprb,1.6596e+00_jprb,1.9909e+00_jprb/)  
kbo( :, 3,21, 9) = (/&
 & 1.4384e-01_jprb,7.8934e-01_jprb,1.2854e+00_jprb,1.6962e+00_jprb,1.9875e+00_jprb/)  
kbo( :, 4,21, 9) = (/&
 & 1.9307e-01_jprb,8.3547e-01_jprb,1.3286e+00_jprb,1.7297e+00_jprb,1.9830e+00_jprb/)  
kbo( :, 5,21, 9) = (/&
 & 2.5151e-01_jprb,8.8443e-01_jprb,1.3716e+00_jprb,1.7608e+00_jprb,1.9785e+00_jprb/)  
kbo( :, 1,22, 9) = (/&
 & 6.6536e-02_jprb,6.7362e-01_jprb,1.1476e+00_jprb,1.5553e+00_jprb,1.8930e+00_jprb/)  
kbo( :, 2,22, 9) = (/&
 & 9.5961e-02_jprb,7.1546e-01_jprb,1.1915e+00_jprb,1.5946e+00_jprb,1.8960e+00_jprb/)  
kbo( :, 3,22, 9) = (/&
 & 1.3293e-01_jprb,7.5906e-01_jprb,1.2350e+00_jprb,1.6314e+00_jprb,1.8977e+00_jprb/)  
kbo( :, 4,22, 9) = (/&
 & 1.7791e-01_jprb,8.0536e-01_jprb,1.2788e+00_jprb,1.6663e+00_jprb,1.8991e+00_jprb/)  
kbo( :, 5,22, 9) = (/&
 & 2.3124e-01_jprb,8.5502e-01_jprb,1.3230e+00_jprb,1.6998e+00_jprb,1.9008e+00_jprb/)  
kbo( :, 1,23, 9) = (/&
 & 6.2130e-02_jprb,6.3989e-01_jprb,1.0889e+00_jprb,1.4764e+00_jprb,1.7800e+00_jprb/)  
kbo( :, 2,23, 9) = (/&
 & 8.9203e-02_jprb,6.8080e-01_jprb,1.1324e+00_jprb,1.5163e+00_jprb,1.7885e+00_jprb/)  
kbo( :, 3,23, 9) = (/&
 & 1.2310e-01_jprb,7.2420e-01_jprb,1.1763e+00_jprb,1.5547e+00_jprb,1.7963e+00_jprb/)  
kbo( :, 4,23, 9) = (/&
 & 1.6423e-01_jprb,7.7098e-01_jprb,1.2210e+00_jprb,1.5918e+00_jprb,1.8040e+00_jprb/)  
kbo( :, 5,23, 9) = (/&
 & 2.1277e-01_jprb,8.2154e-01_jprb,1.2673e+00_jprb,1.6285e+00_jprb,1.8132e+00_jprb/)  
kbo( :, 1,24, 9) = (/&
 & 5.8273e-02_jprb,6.0306e-01_jprb,1.0238e+00_jprb,1.3884e+00_jprb,1.6590e+00_jprb/)  
kbo( :, 2,24, 9) = (/&
 & 8.3232e-02_jprb,6.4338e-01_jprb,1.0676e+00_jprb,1.4297e+00_jprb,1.6731e+00_jprb/)  
kbo( :, 3,24, 9) = (/&
 & 1.1427e-01_jprb,6.8692e-01_jprb,1.1126e+00_jprb,1.4703e+00_jprb,1.6874e+00_jprb/)  
kbo( :, 4,24, 9) = (/&
 & 1.5163e-01_jprb,7.3448e-01_jprb,1.1591e+00_jprb,1.5108e+00_jprb,1.7035e+00_jprb/)  
kbo( :, 5,24, 9) = (/&
 & 1.9552e-01_jprb,7.8610e-01_jprb,1.2077e+00_jprb,1.5519e+00_jprb,1.7219e+00_jprb/)  
kbo( :, 1,25, 9) = (/&
 & 5.4812e-02_jprb,5.6477e-01_jprb,9.5569e-01_jprb,1.2954e+00_jprb,1.5347e+00_jprb/)  
kbo( :, 2,25, 9) = (/&
 & 7.7748e-02_jprb,6.0521e-01_jprb,1.0005e+00_jprb,1.3386e+00_jprb,1.5551e+00_jprb/)  
kbo( :, 3,25, 9) = (/&
 & 1.0600e-01_jprb,6.4947e-01_jprb,1.0471e+00_jprb,1.3828e+00_jprb,1.5779e+00_jprb/)  
kbo( :, 4,25, 9) = (/&
 & 1.3990e-01_jprb,6.9799e-01_jprb,1.0963e+00_jprb,1.4282e+00_jprb,1.6034e+00_jprb/)  
kbo( :, 5,25, 9) = (/&
 & 1.7983e-01_jprb,7.5057e-01_jprb,1.1486e+00_jprb,1.4751e+00_jprb,1.6307e+00_jprb/)  
kbo( :, 1,26, 9) = (/&
 & 5.1716e-02_jprb,5.2713e-01_jprb,8.8788e-01_jprb,1.2018e+00_jprb,1.4126e+00_jprb/)  
kbo( :, 2,26, 9) = (/&
 & 7.2684e-02_jprb,5.6826e-01_jprb,9.3427e-01_jprb,1.2488e+00_jprb,1.4411e+00_jprb/)  
kbo( :, 3,26, 9) = (/&
 & 9.8449e-02_jprb,6.1372e-01_jprb,9.8375e-01_jprb,1.2977e+00_jprb,1.4727e+00_jprb/)  
kbo( :, 4,26, 9) = (/&
 & 1.2939e-01_jprb,6.6352e-01_jprb,1.0365e+00_jprb,1.3486e+00_jprb,1.5064e+00_jprb/)  
kbo( :, 5,26, 9) = (/&
 & 1.6591e-01_jprb,7.1727e-01_jprb,1.0930e+00_jprb,1.4010e+00_jprb,1.5406e+00_jprb/)  
kbo( :, 1,27, 9) = (/&
 & 4.8584e-02_jprb,4.9097e-01_jprb,8.2256e-01_jprb,1.1121e+00_jprb,1.2977e+00_jprb/)  
kbo( :, 2,27, 9) = (/&
 & 6.7759e-02_jprb,5.3335e-01_jprb,8.7159e-01_jprb,1.1633e+00_jprb,1.3342e+00_jprb/)  
kbo( :, 3,27, 9) = (/&
 & 9.1281e-02_jprb,5.8032e-01_jprb,9.2435e-01_jprb,1.2172e+00_jprb,1.3733e+00_jprb/)  
kbo( :, 4,27, 9) = (/&
 & 1.1958e-01_jprb,6.3161e-01_jprb,9.8117e-01_jprb,1.2730e+00_jprb,1.4135e+00_jprb/)  
kbo( :, 5,27, 9) = (/&
 & 1.5306e-01_jprb,6.8640e-01_jprb,1.0413e+00_jprb,1.3298e+00_jprb,1.4532e+00_jprb/)  
kbo( :, 1,28, 9) = (/&
 & 4.5513e-02_jprb,4.5771e-01_jprb,7.6221e-01_jprb,1.0285e+00_jprb,1.1920e+00_jprb/)  
kbo( :, 2,28, 9) = (/&
 & 6.3043e-02_jprb,5.0158e-01_jprb,8.1400e-01_jprb,1.0840e+00_jprb,1.2355e+00_jprb/)  
kbo( :, 3,28, 9) = (/&
 & 8.4577e-02_jprb,5.5008e-01_jprb,8.7020e-01_jprb,1.1421e+00_jprb,1.2807e+00_jprb/)  
kbo( :, 4,28, 9) = (/&
 & 1.1056e-01_jprb,6.0266e-01_jprb,9.3037e-01_jprb,1.2019e+00_jprb,1.3261e+00_jprb/)  
kbo( :, 5,28, 9) = (/&
 & 1.4146e-01_jprb,6.5861e-01_jprb,9.9361e-01_jprb,1.2630e+00_jprb,1.3707e+00_jprb/)  
kbo( :, 1,29, 9) = (/&
 & 4.2634e-02_jprb,4.2840e-01_jprb,7.0804e-01_jprb,9.5295e-01_jprb,1.0976e+00_jprb/)  
kbo( :, 2,29, 9) = (/&
 & 5.8749e-02_jprb,4.7373e-01_jprb,7.6274e-01_jprb,1.0122e+00_jprb,1.1466e+00_jprb/)  
kbo( :, 3,29, 9) = (/&
 & 7.8594e-02_jprb,5.2372e-01_jprb,8.2196e-01_jprb,1.0740e+00_jprb,1.1968e+00_jprb/)  
kbo( :, 4,29, 9) = (/&
 & 1.0258e-01_jprb,5.7741e-01_jprb,8.8498e-01_jprb,1.1377e+00_jprb,1.2469e+00_jprb/)  
kbo( :, 5,29, 9) = (/&
 & 1.3125e-01_jprb,6.3414e-01_jprb,9.5133e-01_jprb,1.2027e+00_jprb,1.2962e+00_jprb/)  
kbo( :, 1,30, 9) = (/&
 & 3.9899e-02_jprb,4.0291e-01_jprb,6.6036e-01_jprb,8.8584e-01_jprb,1.0137e+00_jprb/)  
kbo( :, 2,30, 9) = (/&
 & 5.4774e-02_jprb,4.4971e-01_jprb,7.1779e-01_jprb,9.4836e-01_jprb,1.0674e+00_jprb/)  
kbo( :, 3,30, 9) = (/&
 & 7.3108e-02_jprb,5.0075e-01_jprb,7.7974e-01_jprb,1.0137e+00_jprb,1.1221e+00_jprb/)  
kbo( :, 4,30, 9) = (/&
 & 9.5439e-02_jprb,5.5545e-01_jprb,8.4558e-01_jprb,1.0809e+00_jprb,1.1769e+00_jprb/)  
kbo( :, 5,30, 9) = (/&
 & 1.2214e-01_jprb,6.1274e-01_jprb,9.1443e-01_jprb,1.1496e+00_jprb,1.2307e+00_jprb/)  
kbo( :, 1,31, 9) = (/&
 & 3.7399e-02_jprb,3.8153e-01_jprb,6.1964e-01_jprb,8.2749e-01_jprb,9.4112e-01_jprb/)  
kbo( :, 2,31, 9) = (/&
 & 5.1170e-02_jprb,4.2947e-01_jprb,6.7967e-01_jprb,8.9330e-01_jprb,9.9936e-01_jprb/)  
kbo( :, 3,31, 9) = (/&
 & 6.8267e-02_jprb,4.8157e-01_jprb,7.4418e-01_jprb,9.6186e-01_jprb,1.0590e+00_jprb/)  
kbo( :, 4,31, 9) = (/&
 & 8.9119e-02_jprb,5.3688e-01_jprb,8.1247e-01_jprb,1.0326e+00_jprb,1.1185e+00_jprb/)  
kbo( :, 5,31, 9) = (/&
 & 1.1420e-01_jprb,5.9468e-01_jprb,8.8352e-01_jprb,1.1045e+00_jprb,1.1767e+00_jprb/)  
kbo( :, 1,32, 9) = (/&
 & 3.5118e-02_jprb,3.6406e-01_jprb,5.8571e-01_jprb,7.7819e-01_jprb,8.7995e-01_jprb/)  
kbo( :, 2,32, 9) = (/&
 & 4.7970e-02_jprb,4.1299e-01_jprb,6.4823e-01_jprb,8.4697e-01_jprb,9.4296e-01_jprb/)  
kbo( :, 3,32, 9) = (/&
 & 6.4004e-02_jprb,4.6590e-01_jprb,7.1516e-01_jprb,9.1892e-01_jprb,1.0071e+00_jprb/)  
kbo( :, 4,32, 9) = (/&
 & 8.3615e-02_jprb,5.2189e-01_jprb,7.8583e-01_jprb,9.9290e-01_jprb,1.0709e+00_jprb/)  
kbo( :, 5,32, 9) = (/&
 & 1.0720e-01_jprb,5.8002e-01_jprb,8.5872e-01_jprb,1.0680e+00_jprb,1.1336e+00_jprb/)  
kbo( :, 1,33, 9) = (/&
 & 3.3077e-02_jprb,3.5017e-01_jprb,5.5838e-01_jprb,7.3762e-01_jprb,8.3032e-01_jprb/)  
kbo( :, 2,33, 9) = (/&
 & 4.5163e-02_jprb,4.0001e-01_jprb,6.2312e-01_jprb,8.0956e-01_jprb,8.9776e-01_jprb/)  
kbo( :, 3,33, 9) = (/&
 & 6.0263e-02_jprb,4.5365e-01_jprb,6.9243e-01_jprb,8.8459e-01_jprb,9.6617e-01_jprb/)  
kbo( :, 4,33, 9) = (/&
 & 7.8793e-02_jprb,5.1005e-01_jprb,7.6498e-01_jprb,9.6177e-01_jprb,1.0343e+00_jprb/)  
kbo( :, 5,33, 9) = (/&
 & 1.0108e-01_jprb,5.6875e-01_jprb,8.3998e-01_jprb,1.0396e+00_jprb,1.1011e+00_jprb/)  
kbo( :, 1,34, 9) = (/&
 & 3.0915e-02_jprb,3.3781e-01_jprb,5.3486e-01_jprb,7.0304e-01_jprb,7.8832e-01_jprb/)  
kbo( :, 2,34, 9) = (/&
 & 4.2252e-02_jprb,3.8839e-01_jprb,6.0166e-01_jprb,7.7789e-01_jprb,8.5967e-01_jprb/)  
kbo( :, 3,34, 9) = (/&
 & 5.6470e-02_jprb,4.4255e-01_jprb,6.7299e-01_jprb,8.5584e-01_jprb,9.3187e-01_jprb/)  
kbo( :, 4,34, 9) = (/&
 & 7.3896e-02_jprb,4.9923e-01_jprb,7.4727e-01_jprb,9.3566e-01_jprb,1.0039e+00_jprb/)  
kbo( :, 5,34, 9) = (/&
 & 9.5018e-02_jprb,5.5848e-01_jprb,8.2408e-01_jprb,1.0160e+00_jprb,1.0743e+00_jprb/)  
kbo( :, 1,35, 9) = (/&
 & 2.8132e-02_jprb,3.2365e-01_jprb,5.1055e-01_jprb,6.6895e-01_jprb,7.4864e-01_jprb/)  
kbo( :, 2,35, 9) = (/&
 & 3.8581e-02_jprb,3.7456e-01_jprb,5.7889e-01_jprb,7.4628e-01_jprb,8.2332e-01_jprb/)  
kbo( :, 3,35, 9) = (/&
 & 5.1721e-02_jprb,4.2888e-01_jprb,6.5160e-01_jprb,8.2665e-01_jprb,8.9938e-01_jprb/)  
kbo( :, 4,35, 9) = (/&
 & 6.7950e-02_jprb,4.8574e-01_jprb,7.2738e-01_jprb,9.0865e-01_jprb,9.7493e-01_jprb/)  
kbo( :, 5,35, 9) = (/&
 & 8.7661e-02_jprb,5.4539e-01_jprb,8.0566e-01_jprb,9.9133e-01_jprb,1.0487e+00_jprb/)  
kbo( :, 1,36, 9) = (/&
 & 2.4794e-02_jprb,3.0684e-01_jprb,4.8374e-01_jprb,6.3315e-01_jprb,7.0816e-01_jprb/)  
kbo( :, 2,36, 9) = (/&
 & 3.4216e-02_jprb,3.5764e-01_jprb,5.5293e-01_jprb,7.1235e-01_jprb,7.8609e-01_jprb/)  
kbo( :, 3,36, 9) = (/&
 & 4.6142e-02_jprb,4.1180e-01_jprb,6.2660e-01_jprb,7.9449e-01_jprb,8.6552e-01_jprb/)  
kbo( :, 4,36, 9) = (/&
 & 6.0983e-02_jprb,4.6863e-01_jprb,7.0343e-01_jprb,8.7846e-01_jprb,9.4446e-01_jprb/)  
kbo( :, 5,36, 9) = (/&
 & 7.9101e-02_jprb,5.2833e-01_jprb,7.8277e-01_jprb,9.6328e-01_jprb,1.0212e+00_jprb/)  
kbo( :, 1,37, 9) = (/&
 & 2.0815e-02_jprb,2.8513e-01_jprb,4.5081e-01_jprb,5.9101e-01_jprb,6.6164e-01_jprb/)  
kbo( :, 2,37, 9) = (/&
 & 2.9022e-02_jprb,3.3521e-01_jprb,5.2012e-01_jprb,6.7125e-01_jprb,7.4211e-01_jprb/)  
kbo( :, 3,37, 9) = (/&
 & 3.9516e-02_jprb,3.8880e-01_jprb,5.9400e-01_jprb,7.5469e-01_jprb,8.2434e-01_jprb/)  
kbo( :, 4,37, 9) = (/&
 & 5.2685e-02_jprb,4.4520e-01_jprb,6.7131e-01_jprb,8.4030e-01_jprb,9.0639e-01_jprb/)  
kbo( :, 5,37, 9) = (/&
 & 6.8908e-02_jprb,5.0450e-01_jprb,7.5128e-01_jprb,9.2687e-01_jprb,9.8613e-01_jprb/)  
kbo( :, 1,38, 9) = (/&
 & 1.7440e-02_jprb,2.6532e-01_jprb,4.2090e-01_jprb,5.5282e-01_jprb,6.1999e-01_jprb/)  
kbo( :, 2,38, 9) = (/&
 & 2.4585e-02_jprb,3.1463e-01_jprb,4.9010e-01_jprb,6.3385e-01_jprb,7.0267e-01_jprb/)  
kbo( :, 3,38, 9) = (/&
 & 3.3827e-02_jprb,3.6763e-01_jprb,5.6406e-01_jprb,7.1841e-01_jprb,7.8751e-01_jprb/)  
kbo( :, 4,38, 9) = (/&
 & 4.5497e-02_jprb,4.2358e-01_jprb,6.4172e-01_jprb,8.0528e-01_jprb,8.7233e-01_jprb/)  
kbo( :, 5,38, 9) = (/&
 & 6.0061e-02_jprb,4.8245e-01_jprb,7.2216e-01_jprb,8.9334e-01_jprb,9.5488e-01_jprb/)  
kbo( :, 1,39, 9) = (/&
 & 1.4635e-02_jprb,2.4758e-01_jprb,3.9422e-01_jprb,5.1882e-01_jprb,5.8346e-01_jprb/)  
kbo( :, 2,39, 9) = (/&
 & 2.0862e-02_jprb,2.9613e-01_jprb,4.6317e-01_jprb,6.0043e-01_jprb,6.6823e-01_jprb/)  
kbo( :, 3,39, 9) = (/&
 & 2.9010e-02_jprb,3.4853e-01_jprb,5.3715e-01_jprb,6.8585e-01_jprb,7.5543e-01_jprb/)  
kbo( :, 4,39, 9) = (/&
 & 3.9392e-02_jprb,4.0402e-01_jprb,6.1498e-01_jprb,7.7375e-01_jprb,8.4272e-01_jprb/)  
kbo( :, 5,39, 9) = (/&
 & 5.2487e-02_jprb,4.6246e-01_jprb,6.9574e-01_jprb,8.6309e-01_jprb,9.2808e-01_jprb/)  
kbo( :, 1,40, 9) = (/&
 & 1.1817e-02_jprb,2.2703e-01_jprb,3.6362e-01_jprb,4.8024e-01_jprb,5.4110e-01_jprb/)  
kbo( :, 2,40, 9) = (/&
 & 1.7093e-02_jprb,2.7438e-01_jprb,4.3164e-01_jprb,5.6172e-01_jprb,6.2692e-01_jprb/)  
kbo( :, 3,40, 9) = (/&
 & 2.4086e-02_jprb,3.2578e-01_jprb,5.0508e-01_jprb,6.4747e-01_jprb,7.1559e-01_jprb/)  
kbo( :, 4,40, 9) = (/&
 & 3.3120e-02_jprb,3.8047e-01_jprb,5.8258e-01_jprb,7.3604e-01_jprb,8.0488e-01_jprb/)  
kbo( :, 5,40, 9) = (/&
 & 4.4642e-02_jprb,4.3816e-01_jprb,6.6329e-01_jprb,8.2630e-01_jprb,8.9263e-01_jprb/)  
kbo( :, 1,41, 9) = (/&
 & 9.4732e-03_jprb,2.0772e-01_jprb,3.3472e-01_jprb,4.4372e-01_jprb,5.0098e-01_jprb/)  
kbo( :, 2,41, 9) = (/&
 & 1.3924e-02_jprb,2.5378e-01_jprb,4.0168e-01_jprb,5.2481e-01_jprb,5.8738e-01_jprb/)  
kbo( :, 3,41, 9) = (/&
 & 1.9893e-02_jprb,3.0412e-01_jprb,4.7431e-01_jprb,6.1058e-01_jprb,6.7711e-01_jprb/)  
kbo( :, 4,41, 9) = (/&
 & 2.7726e-02_jprb,3.5790e-01_jprb,5.5133e-01_jprb,6.9954e-01_jprb,7.6804e-01_jprb/)  
kbo( :, 5,41, 9) = (/&
 & 3.7835e-02_jprb,4.1479e-01_jprb,6.3183e-01_jprb,7.9045e-01_jprb,8.5793e-01_jprb/)  
kbo( :, 1,42, 9) = (/&
 & 7.5682e-03_jprb,1.9007e-01_jprb,3.0814e-01_jprb,4.0997e-01_jprb,4.6395e-01_jprb/)  
kbo( :, 2,42, 9) = (/&
 & 1.1315e-02_jprb,2.3478e-01_jprb,3.7386e-01_jprb,4.9039e-01_jprb,5.5062e-01_jprb/)  
kbo( :, 3,42, 9) = (/&
 & 1.6414e-02_jprb,2.8401e-01_jprb,4.4556e-01_jprb,5.7596e-01_jprb,6.4116e-01_jprb/)  
kbo( :, 4,42, 9) = (/&
 & 2.3189e-02_jprb,3.3687e-01_jprb,5.2199e-01_jprb,6.6509e-01_jprb,7.3350e-01_jprb/)  
kbo( :, 5,42, 9) = (/&
 & 3.2053e-02_jprb,3.9299e-01_jprb,6.0205e-01_jprb,7.5646e-01_jprb,8.2526e-01_jprb/)  
kbo( :, 1,43, 9) = (/&
 & 5.8792e-03_jprb,1.7158e-01_jprb,2.8021e-01_jprb,3.7439e-01_jprb,4.2476e-01_jprb/)  
kbo( :, 2,43, 9) = (/&
 & 8.9664e-03_jprb,2.1465e-01_jprb,3.4423e-01_jprb,4.5359e-01_jprb,5.1109e-01_jprb/)  
kbo( :, 3,43, 9) = (/&
 & 1.3239e-02_jprb,2.6247e-01_jprb,4.1451e-01_jprb,5.3841e-01_jprb,6.0195e-01_jprb/)  
kbo( :, 4,43, 9) = (/&
 & 1.8999e-02_jprb,3.1420e-01_jprb,4.8991e-01_jprb,6.2734e-01_jprb,6.9535e-01_jprb/)  
kbo( :, 5,43, 9) = (/&
 & 2.6643e-02_jprb,3.6926e-01_jprb,5.6925e-01_jprb,7.1886e-01_jprb,7.8877e-01_jprb/)  
kbo( :, 1,44, 9) = (/&
 & 4.4882e-03_jprb,1.5364e-01_jprb,2.5283e-01_jprb,3.3925e-01_jprb,3.8604e-01_jprb/)  
kbo( :, 2,44, 9) = (/&
 & 6.9936e-03_jprb,1.9487e-01_jprb,3.1482e-01_jprb,4.1683e-01_jprb,4.7142e-01_jprb/)  
kbo( :, 3,44, 9) = (/&
 & 1.0532e-02_jprb,2.4110e-01_jprb,3.8337e-01_jprb,5.0055e-01_jprb,5.6226e-01_jprb/)  
kbo( :, 4,44, 9) = (/&
 & 1.5385e-02_jprb,2.9150e-01_jprb,4.5750e-01_jprb,5.8891e-01_jprb,6.5637e-01_jprb/)  
kbo( :, 5,44, 9) = (/&
 & 2.1907e-02_jprb,3.4545e-01_jprb,5.3592e-01_jprb,6.8023e-01_jprb,7.5115e-01_jprb/)  
kbo( :, 1,45, 9) = (/&
 & 3.4023e-03_jprb,1.3718e-01_jprb,2.2742e-01_jprb,3.0640e-01_jprb,3.4986e-01_jprb/)  

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


SUBROUTINE part26

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


kbo( :, 2,45, 9) = (/&
 & 5.4211e-03_jprb,1.7648e-01_jprb,2.8724e-01_jprb,3.8210e-01_jprb,4.3396e-01_jprb/)  
kbo( :, 3,45, 9) = (/&
 & 8.3344e-03_jprb,2.2102e-01_jprb,3.5390e-01_jprb,4.6443e-01_jprb,5.2448e-01_jprb/)  
kbo( :, 4,45, 9) = (/&
 & 1.2410e-02_jprb,2.7007e-01_jprb,4.2657e-01_jprb,5.5186e-01_jprb,6.1889e-01_jprb/)  
kbo( :, 5,45, 9) = (/&
 & 1.7962e-02_jprb,3.2284e-01_jprb,5.0389e-01_jprb,6.4288e-01_jprb,7.1489e-01_jprb/)  
kbo( :, 1,46, 9) = (/&
 & 2.5298e-03_jprb,1.2128e-01_jprb,2.0265e-01_jprb,2.7417e-01_jprb,3.1426e-01_jprb/)  
kbo( :, 2,46, 9) = (/&
 & 4.1311e-03_jprb,1.5849e-01_jprb,2.6002e-01_jprb,3.4751e-01_jprb,3.9644e-01_jprb/)  
kbo( :, 3,46, 9) = (/&
 & 6.4978e-03_jprb,2.0122e-01_jprb,3.2453e-01_jprb,4.2805e-01_jprb,4.8611e-01_jprb/)  
kbo( :, 4,46, 9) = (/&
 & 9.8756e-03_jprb,2.4871e-01_jprb,3.9537e-01_jprb,5.1423e-01_jprb,5.8048e-01_jprb/)  
kbo( :, 5,46, 9) = (/&
 & 1.4561e-02_jprb,3.0016e-01_jprb,4.7134e-01_jprb,6.0463e-01_jprb,6.7732e-01_jprb/)  
kbo( :, 1,47, 9) = (/&
 & 1.8212e-03_jprb,1.0532e-01_jprb,1.7755e-01_jprb,2.4129e-01_jprb,2.7755e-01_jprb/)  
kbo( :, 2,47, 9) = (/&
 & 3.0568e-03_jprb,1.4024e-01_jprb,2.3198e-01_jprb,3.1155e-01_jprb,3.5689e-01_jprb/)  
kbo( :, 3,47, 9) = (/&
 & 4.9310e-03_jprb,1.8078e-01_jprb,2.9385e-01_jprb,3.8973e-01_jprb,4.4482e-01_jprb/)  
kbo( :, 4,47, 9) = (/&
 & 7.6712e-03_jprb,2.2639e-01_jprb,3.6245e-01_jprb,4.7424e-01_jprb,5.3854e-01_jprb/)  
kbo( :, 5,47, 9) = (/&
 & 1.1548e-02_jprb,2.7630e-01_jprb,4.3672e-01_jprb,5.6347e-01_jprb,6.3559e-01_jprb/)  
kbo( :, 1,48, 9) = (/&
 & 1.2952e-03_jprb,9.0848e-02_jprb,1.5447e-01_jprb,2.1078e-01_jprb,2.4345e-01_jprb/)  
kbo( :, 2,48, 9) = (/&
 & 2.2372e-03_jprb,1.2337e-01_jprb,2.0574e-01_jprb,2.7761e-01_jprb,3.1960e-01_jprb/)  
kbo( :, 3,48, 9) = (/&
 & 3.7056e-03_jprb,1.6164e-01_jprb,2.6488e-01_jprb,3.5315e-01_jprb,4.0534e-01_jprb/)  
kbo( :, 4,48, 9) = (/&
 & 5.9066e-03_jprb,2.0530e-01_jprb,3.3102e-01_jprb,4.3559e-01_jprb,4.9804e-01_jprb/)  
kbo( :, 5,48, 9) = (/&
 & 9.0925e-03_jprb,2.5355e-01_jprb,4.0335e-01_jprb,5.2339e-01_jprb,5.9498e-01_jprb/)  
kbo( :, 1,49, 9) = (/&
 & 9.0858e-04_jprb,7.7773e-02_jprb,1.3333e-01_jprb,1.8263e-01_jprb,2.1203e-01_jprb/)  
kbo( :, 2,49, 9) = (/&
 & 1.6178e-03_jprb,1.0781e-01_jprb,1.8129e-01_jprb,2.4570e-01_jprb,2.8465e-01_jprb/)  
kbo( :, 3,49, 9) = (/&
 & 2.7562e-03_jprb,1.4379e-01_jprb,2.3752e-01_jprb,3.1823e-01_jprb,3.6781e-01_jprb/)  
kbo( :, 4,49, 9) = (/&
 & 4.5071e-03_jprb,1.8535e-01_jprb,3.0106e-01_jprb,3.9831e-01_jprb,4.5913e-01_jprb/)  
kbo( :, 5,49, 9) = (/&
 & 7.1028e-03_jprb,2.3184e-01_jprb,3.7117e-01_jprb,4.8442e-01_jprb,5.5577e-01_jprb/)  
kbo( :, 1,50, 9) = (/&
 & 6.3845e-04_jprb,6.6632e-02_jprb,1.1508e-01_jprb,1.5813e-01_jprb,1.8420e-01_jprb/)  
kbo( :, 2,50, 9) = (/&
 & 1.1723e-03_jprb,9.4330e-02_jprb,1.5988e-01_jprb,2.1752e-01_jprb,2.5295e-01_jprb/)  
kbo( :, 3,50, 9) = (/&
 & 2.0555e-03_jprb,1.2813e-01_jprb,2.1319e-01_jprb,2.8686e-01_jprb,3.3317e-01_jprb/)  
kbo( :, 4,50, 9) = (/&
 & 3.4507e-03_jprb,1.6762e-01_jprb,2.7419e-01_jprb,3.6453e-01_jprb,4.2252e-01_jprb/)  
kbo( :, 5,50, 9) = (/&
 & 5.5676e-03_jprb,2.1233e-01_jprb,3.4204e-01_jprb,4.4881e-01_jprb,5.1834e-01_jprb/)  
kbo( :, 1,51, 9) = (/&
 & 4.4606e-04_jprb,5.6891e-02_jprb,9.8867e-02_jprb,1.3627e-01_jprb,1.5911e-01_jprb/)  
kbo( :, 2,51, 9) = (/&
 & 8.4540e-04_jprb,8.2329e-02_jprb,1.4056e-01_jprb,1.9187e-01_jprb,2.2375e-01_jprb/)  
kbo( :, 3,51, 9) = (/&
 & 1.5266e-03_jprb,1.1393e-01_jprb,1.9092e-01_jprb,2.5792e-01_jprb,3.0065e-01_jprb/)  
kbo( :, 4,51, 9) = (/&
 & 2.6330e-03_jprb,1.5136e-01_jprb,2.4932e-01_jprb,3.3298e-01_jprb,3.8756e-01_jprb/)  
kbo( :, 5,51, 9) = (/&
 & 4.3537e-03_jprb,1.9426e-01_jprb,3.1486e-01_jprb,4.1517e-01_jprb,4.8205e-01_jprb/)  
kbo( :, 1,52, 9) = (/&
 & 3.0758e-04_jprb,4.8172e-02_jprb,8.4225e-02_jprb,1.1640e-01_jprb,1.3632e-01_jprb/)  
kbo( :, 2,52, 9) = (/&
 & 6.0273e-04_jprb,7.1379e-02_jprb,1.2274e-01_jprb,1.6806e-01_jprb,1.9667e-01_jprb/)  
kbo( :, 3,52, 9) = (/&
 & 1.1225e-03_jprb,1.0074e-01_jprb,1.7004e-01_jprb,2.3059e-01_jprb,2.6996e-01_jprb/)  
kbo( :, 4,52, 9) = (/&
 & 1.9908e-03_jprb,1.3610e-01_jprb,2.2571e-01_jprb,3.0271e-01_jprb,3.5416e-01_jprb/)  
kbo( :, 5,52, 9) = (/&
 & 3.3781e-03_jprb,1.7706e-01_jprb,2.8879e-01_jprb,3.8263e-01_jprb,4.4697e-01_jprb/)  
kbo( :, 1,53, 9) = (/&
 & 2.0907e-04_jprb,4.0394e-02_jprb,7.1019e-02_jprb,9.8396e-02_jprb,1.1571e-01_jprb/)  
kbo( :, 2,53, 9) = (/&
 & 4.2389e-04_jprb,6.1427e-02_jprb,1.0630e-01_jprb,1.4598e-01_jprb,1.7164e-01_jprb/)  
kbo( :, 3,53, 9) = (/&
 & 8.1536e-04_jprb,8.8519e-02_jprb,1.5049e-01_jprb,2.0480e-01_jprb,2.4110e-01_jprb/)  
kbo( :, 4,53, 9) = (/&
 & 1.4900e-03_jprb,1.2174e-01_jprb,2.0325e-01_jprb,2.7370e-01_jprb,3.2235e-01_jprb/)  
kbo( :, 5,53, 9) = (/&
 & 2.5972e-03_jprb,1.6068e-01_jprb,2.6380e-01_jprb,3.5112e-01_jprb,4.1323e-01_jprb/)  
kbo( :, 1,54, 9) = (/&
 & 1.4322e-04_jprb,3.4010e-02_jprb,6.0069e-02_jprb,8.3407e-02_jprb,9.8018e-02_jprb/)  
kbo( :, 2,54, 9) = (/&
 & 3.0073e-04_jprb,5.3101e-02_jprb,9.2377e-02_jprb,1.2719e-01_jprb,1.4939e-01_jprb/)  
kbo( :, 3,54, 9) = (/&
 & 5.9718e-04_jprb,7.8129e-02_jprb,1.3368e-01_jprb,1.8244e-01_jprb,2.1463e-01_jprb/)  
kbo( :, 4,54, 9) = (/&
 & 1.1241e-03_jprb,1.0934e-01_jprb,1.8368e-01_jprb,2.4822e-01_jprb,2.9238e-01_jprb/)  
kbo( :, 5,54, 9) = (/&
 & 2.0131e-03_jprb,1.4639e-01_jprb,2.4179e-01_jprb,3.2314e-01_jprb,3.8050e-01_jprb/)  
kbo( :, 1,55, 9) = (/&
 & 9.7902e-05_jprb,2.8554e-02_jprb,5.0642e-02_jprb,7.0457e-02_jprb,8.2500e-02_jprb/)  
kbo( :, 2,55, 9) = (/&
 & 2.1303e-04_jprb,4.5829e-02_jprb,8.0130e-02_jprb,1.1056e-01_jprb,1.2929e-01_jprb/)  
kbo( :, 3,55, 9) = (/&
 & 4.3705e-04_jprb,6.8906e-02_jprb,1.1861e-01_jprb,1.6229e-01_jprb,1.9004e-01_jprb/)  
kbo( :, 4,55, 9) = (/&
 & 8.4778e-04_jprb,9.8145e-02_jprb,1.6589e-01_jprb,2.2492e-01_jprb,2.6385e-01_jprb/)  
kbo( :, 5,55, 9) = (/&
 & 1.5604e-03_jprb,1.3338e-01_jprb,2.2157e-01_jprb,2.9717e-01_jprb,3.4860e-01_jprb/)  
kbo( :, 1,56, 9) = (/&
 & 6.5982e-05_jprb,2.3749e-02_jprb,4.2283e-02_jprb,5.8930e-02_jprb,6.8770e-02_jprb/)  
kbo( :, 2,56, 9) = (/&
 & 1.4918e-04_jprb,3.9269e-02_jprb,6.8966e-02_jprb,9.5347e-02_jprb,1.1107e-01_jprb/)  
kbo( :, 3,56, 9) = (/&
 & 3.1651e-04_jprb,6.0448e-02_jprb,1.0460e-01_jprb,1.4348e-01_jprb,1.6725e-01_jprb/)  
kbo( :, 4,56, 9) = (/&
 & 6.3389e-04_jprb,8.7699e-02_jprb,1.4915e-01_jprb,2.0282e-01_jprb,2.3679e-01_jprb/)  
kbo( :, 5,56, 9) = (/&
 & 1.2004e-03_jprb,1.2107e-01_jprb,2.0225e-01_jprb,2.7220e-01_jprb,3.1806e-01_jprb/)  
kbo( :, 1,57, 9) = (/&
 & 4.3767e-05_jprb,1.9535e-02_jprb,3.4912e-02_jprb,4.8732e-02_jprb,5.6673e-02_jprb/)  
kbo( :, 2,57, 9) = (/&
 & 1.0316e-04_jprb,3.3365e-02_jprb,5.8830e-02_jprb,8.1501e-02_jprb,9.4580e-02_jprb/)  
kbo( :, 3,57, 9) = (/&
 & 2.2677e-04_jprb,5.2688e-02_jprb,9.1608e-02_jprb,1.2597e-01_jprb,1.4616e-01_jprb/)  
kbo( :, 4,57, 9) = (/&
 & 4.6916e-04_jprb,7.7962e-02_jprb,1.3338e-01_jprb,1.8187e-01_jprb,2.1133e-01_jprb/)  
kbo( :, 5,57, 9) = (/&
 & 9.1588e-04_jprb,1.0942e-01_jprb,1.8382e-01_jprb,2.4826e-01_jprb,2.8886e-01_jprb/)  
kbo( :, 1,58, 9) = (/&
 & 2.9014e-05_jprb,1.6044e-02_jprb,2.8753e-02_jprb,4.0190e-02_jprb,4.6551e-02_jprb/)  
kbo( :, 2,58, 9) = (/&
 & 7.1292e-05_jprb,2.8332e-02_jprb,5.0135e-02_jprb,6.9583e-02_jprb,8.0381e-02_jprb/)  
kbo( :, 3,58, 9) = (/&
 & 1.6267e-04_jprb,4.5930e-02_jprb,8.0232e-02_jprb,1.1053e-01_jprb,1.2757e-01_jprb/)  
kbo( :, 4,58, 9) = (/&
 & 3.4791e-04_jprb,6.9359e-02_jprb,1.1932e-01_jprb,1.6310e-01_jprb,1.8840e-01_jprb/)  
kbo( :, 5,58, 9) = (/&
 & 7.0018e-04_jprb,9.8967e-02_jprb,1.6720e-01_jprb,2.2650e-01_jprb,2.6195e-01_jprb/)  
kbo( :, 1,59, 9) = (/&
 & 2.2635e-05_jprb,1.4643e-02_jprb,2.6255e-02_jprb,3.6697e-02_jprb,4.2048e-02_jprb/)  
kbo( :, 2,59, 9) = (/&
 & 5.7212e-05_jprb,2.6338e-02_jprb,4.6664e-02_jprb,6.4796e-02_jprb,7.3964e-02_jprb/)  
kbo( :, 3,59, 9) = (/&
 & 1.3405e-04_jprb,4.3265e-02_jprb,7.5702e-02_jprb,1.0436e-01_jprb,1.1887e-01_jprb/)  
kbo( :, 4,59, 9) = (/&
 & 2.9326e-04_jprb,6.5970e-02_jprb,1.1372e-01_jprb,1.5558e-01_jprb,1.7711e-01_jprb/)  
kbo( :, 5,59, 9) = (/&
 & 6.0242e-04_jprb,9.4820e-02_jprb,1.6057e-01_jprb,2.1777e-01_jprb,2.4787e-01_jprb/)  
kbo( :, 1,13,10) = (/&
 & 6.7750e-01_jprb,1.1612e+00_jprb,1.7683e+00_jprb,2.4833e+00_jprb,3.2280e+00_jprb/)  
kbo( :, 2,13,10) = (/&
 & 9.8868e-01_jprb,1.3195e+00_jprb,1.8430e+00_jprb,2.4544e+00_jprb,3.1587e+00_jprb/)  
kbo( :, 3,13,10) = (/&
 & 1.3619e+00_jprb,1.5274e+00_jprb,1.9406e+00_jprb,2.4411e+00_jprb,3.1000e+00_jprb/)  
kbo( :, 4,13,10) = (/&
 & 1.7899e+00_jprb,1.7565e+00_jprb,2.0793e+00_jprb,2.4696e+00_jprb,3.0494e+00_jprb/)  
kbo( :, 5,13,10) = (/&
 & 2.2734e+00_jprb,2.0120e+00_jprb,2.2415e+00_jprb,2.5072e+00_jprb,3.0022e+00_jprb/)  
kbo( :, 1,14,10) = (/&
 & 6.6134e-01_jprb,1.2265e+00_jprb,1.9371e+00_jprb,2.7275e+00_jprb,3.5435e+00_jprb/)  
kbo( :, 2,14,10) = (/&
 & 9.5434e-01_jprb,1.3839e+00_jprb,2.0016e+00_jprb,2.7009e+00_jprb,3.4774e+00_jprb/)  
kbo( :, 3,14,10) = (/&
 & 1.3032e+00_jprb,1.5702e+00_jprb,2.0959e+00_jprb,2.6930e+00_jprb,3.4197e+00_jprb/)  
kbo( :, 4,14,10) = (/&
 & 1.7103e+00_jprb,1.7846e+00_jprb,2.2135e+00_jprb,2.7227e+00_jprb,3.3624e+00_jprb/)  
kbo( :, 5,14,10) = (/&
 & 2.1701e+00_jprb,2.0313e+00_jprb,2.3489e+00_jprb,2.7404e+00_jprb,3.3020e+00_jprb/)  
kbo( :, 1,15,10) = (/&
 & 6.3051e-01_jprb,1.3065e+00_jprb,2.1302e+00_jprb,2.9787e+00_jprb,3.8647e+00_jprb/)  
kbo( :, 2,15,10) = (/&
 & 9.0166e-01_jprb,1.4415e+00_jprb,2.2062e+00_jprb,2.9568e+00_jprb,3.8040e+00_jprb/)  
kbo( :, 3,15,10) = (/&
 & 1.2283e+00_jprb,1.6099e+00_jprb,2.2945e+00_jprb,2.9614e+00_jprb,3.7464e+00_jprb/)  
kbo( :, 4,15,10) = (/&
 & 1.6076e+00_jprb,1.8076e+00_jprb,2.3898e+00_jprb,2.9892e+00_jprb,3.6813e+00_jprb/)  
kbo( :, 5,15,10) = (/&
 & 2.0350e+00_jprb,2.0302e+00_jprb,2.4952e+00_jprb,3.0078e+00_jprb,3.6149e+00_jprb/)  
kbo( :, 1,16,10) = (/&
 & 5.8908e-01_jprb,1.4179e+00_jprb,2.3250e+00_jprb,3.2386e+00_jprb,4.2028e+00_jprb/)  
kbo( :, 2,16,10) = (/&
 & 8.3922e-01_jprb,1.5233e+00_jprb,2.4132e+00_jprb,3.2198e+00_jprb,4.1391e+00_jprb/)  
kbo( :, 3,16,10) = (/&
 & 1.1390e+00_jprb,1.6562e+00_jprb,2.5083e+00_jprb,3.2400e+00_jprb,4.0764e+00_jprb/)  
kbo( :, 4,16,10) = (/&
 & 1.4867e+00_jprb,1.8239e+00_jprb,2.5939e+00_jprb,3.2704e+00_jprb,4.0090e+00_jprb/)  
kbo( :, 5,16,10) = (/&
 & 1.8763e+00_jprb,2.0203e+00_jprb,2.6728e+00_jprb,3.3036e+00_jprb,3.9360e+00_jprb/)  
kbo( :, 1,17,10) = (/&
 & 5.4248e-01_jprb,1.5341e+00_jprb,2.5200e+00_jprb,3.4785e+00_jprb,4.5198e+00_jprb/)  
kbo( :, 2,17,10) = (/&
 & 7.6928e-01_jprb,1.6341e+00_jprb,2.6202e+00_jprb,3.4798e+00_jprb,4.4583e+00_jprb/)  
kbo( :, 3,17,10) = (/&
 & 1.0404e+00_jprb,1.7374e+00_jprb,2.7194e+00_jprb,3.5099e+00_jprb,4.3924e+00_jprb/)  
kbo( :, 4,17,10) = (/&
 & 1.3522e+00_jprb,1.8611e+00_jprb,2.8021e+00_jprb,3.5422e+00_jprb,4.3166e+00_jprb/)  
kbo( :, 5,17,10) = (/&
 & 1.7001e+00_jprb,2.0150e+00_jprb,2.8795e+00_jprb,3.5848e+00_jprb,4.2409e+00_jprb/)  
kbo( :, 1,18,10) = (/&
 & 4.9348e-01_jprb,1.6382e+00_jprb,2.7119e+00_jprb,3.6984e+00_jprb,4.7971e+00_jprb/)  
kbo( :, 2,18,10) = (/&
 & 6.9669e-01_jprb,1.7374e+00_jprb,2.8139e+00_jprb,3.7221e+00_jprb,4.7361e+00_jprb/)  
kbo( :, 3,18,10) = (/&
 & 9.3760e-01_jprb,1.8373e+00_jprb,2.9117e+00_jprb,3.7521e+00_jprb,4.6633e+00_jprb/)  
kbo( :, 4,18,10) = (/&
 & 1.2130e+00_jprb,1.9403e+00_jprb,3.0001e+00_jprb,3.7974e+00_jprb,4.5895e+00_jprb/)  
kbo( :, 5,18,10) = (/&
 & 1.5215e+00_jprb,2.0549e+00_jprb,3.0821e+00_jprb,3.8475e+00_jprb,4.5159e+00_jprb/)  
kbo( :, 1,19,10) = (/&
 & 4.4294e-01_jprb,1.7294e+00_jprb,2.8772e+00_jprb,3.8900e+00_jprb,5.0246e+00_jprb/)  
kbo( :, 2,19,10) = (/&
 & 6.2191e-01_jprb,1.8298e+00_jprb,2.9845e+00_jprb,3.9195e+00_jprb,4.9572e+00_jprb/)  
kbo( :, 3,19,10) = (/&
 & 8.3280e-01_jprb,1.9296e+00_jprb,3.0814e+00_jprb,3.9651e+00_jprb,4.8890e+00_jprb/)  
kbo( :, 4,19,10) = (/&
 & 1.0758e+00_jprb,2.0307e+00_jprb,3.1709e+00_jprb,4.0288e+00_jprb,4.8272e+00_jprb/)  
kbo( :, 5,19,10) = (/&
 & 1.3553e+00_jprb,2.1313e+00_jprb,3.2530e+00_jprb,4.0885e+00_jprb,4.7625e+00_jprb/)  
kbo( :, 1,20,10) = (/&
 & 3.9571e-01_jprb,1.8051e+00_jprb,3.0095e+00_jprb,4.0443e+00_jprb,5.1864e+00_jprb/)  
kbo( :, 2,20,10) = (/&
 & 5.5188e-01_jprb,1.9076e+00_jprb,3.1223e+00_jprb,4.0868e+00_jprb,5.1320e+00_jprb/)  
kbo( :, 3,20,10) = (/&
 & 7.3749e-01_jprb,2.0075e+00_jprb,3.2244e+00_jprb,4.1593e+00_jprb,5.0769e+00_jprb/)  
kbo( :, 4,20,10) = (/&
 & 9.5721e-01_jprb,2.1096e+00_jprb,3.3164e+00_jprb,4.2324e+00_jprb,5.0165e+00_jprb/)  
kbo( :, 5,20,10) = (/&
 & 1.2100e+00_jprb,2.2109e+00_jprb,3.3994e+00_jprb,4.2966e+00_jprb,4.9507e+00_jprb/)  
kbo( :, 1,21,10) = (/&
 & 3.5072e-01_jprb,1.8556e+00_jprb,3.1080e+00_jprb,4.1542e+00_jprb,5.2872e+00_jprb/)  
kbo( :, 2,21,10) = (/&
 & 4.8766e-01_jprb,1.9607e+00_jprb,3.2231e+00_jprb,4.2283e+00_jprb,5.2442e+00_jprb/)  
kbo( :, 3,21,10) = (/&
 & 6.5440e-01_jprb,2.0647e+00_jprb,3.3316e+00_jprb,4.3160e+00_jprb,5.1977e+00_jprb/)  
kbo( :, 4,21,10) = (/&
 & 8.5123e-01_jprb,2.1675e+00_jprb,3.4268e+00_jprb,4.3944e+00_jprb,5.1446e+00_jprb/)  
kbo( :, 5,21,10) = (/&
 & 1.0760e+00_jprb,2.2689e+00_jprb,3.5139e+00_jprb,4.4592e+00_jprb,5.0861e+00_jprb/)  
kbo( :, 1,22,10) = (/&
 & 3.1704e-01_jprb,1.8909e+00_jprb,3.1718e+00_jprb,4.2211e+00_jprb,5.3188e+00_jprb/)  
kbo( :, 2,22,10) = (/&
 & 4.4113e-01_jprb,1.9967e+00_jprb,3.2921e+00_jprb,4.3258e+00_jprb,5.2898e+00_jprb/)  
kbo( :, 3,22,10) = (/&
 & 5.9182e-01_jprb,2.1052e+00_jprb,3.4006e+00_jprb,4.4235e+00_jprb,5.2566e+00_jprb/)  
kbo( :, 4,22,10) = (/&
 & 7.6857e-01_jprb,2.2097e+00_jprb,3.4994e+00_jprb,4.5051e+00_jprb,5.2176e+00_jprb/)  
kbo( :, 5,22,10) = (/&
 & 9.7285e-01_jprb,2.3126e+00_jprb,3.5927e+00_jprb,4.5701e+00_jprb,5.1722e+00_jprb/)  
kbo( :, 1,23,10) = (/&
 & 2.8927e-01_jprb,1.9014e+00_jprb,3.1969e+00_jprb,4.2666e+00_jprb,5.3040e+00_jprb/)  
kbo( :, 2,23,10) = (/&
 & 4.0191e-01_jprb,2.0125e+00_jprb,3.3191e+00_jprb,4.3795e+00_jprb,5.2890e+00_jprb/)  
kbo( :, 3,23,10) = (/&
 & 5.3783e-01_jprb,2.1222e+00_jprb,3.4289e+00_jprb,4.4796e+00_jprb,5.2663e+00_jprb/)  
kbo( :, 4,23,10) = (/&
 & 6.9875e-01_jprb,2.2290e+00_jprb,3.5339e+00_jprb,4.5665e+00_jprb,5.2397e+00_jprb/)  
kbo( :, 5,23,10) = (/&
 & 8.8602e-01_jprb,2.3359e+00_jprb,3.6321e+00_jprb,4.6372e+00_jprb,5.2101e+00_jprb/)  
kbo( :, 1,24,10) = (/&
 & 2.6648e-01_jprb,1.8914e+00_jprb,3.1927e+00_jprb,4.2785e+00_jprb,5.2470e+00_jprb/)  
kbo( :, 2,24,10) = (/&
 & 3.6872e-01_jprb,2.0063e+00_jprb,3.3129e+00_jprb,4.3925e+00_jprb,5.2443e+00_jprb/)  
kbo( :, 3,24,10) = (/&
 & 4.9335e-01_jprb,2.1181e+00_jprb,3.4275e+00_jprb,4.4944e+00_jprb,5.2358e+00_jprb/)  
kbo( :, 4,24,10) = (/&
 & 6.4237e-01_jprb,2.2281e+00_jprb,3.5391e+00_jprb,4.5872e+00_jprb,5.2224e+00_jprb/)  
kbo( :, 5,24,10) = (/&
 & 8.1853e-01_jprb,2.3388e+00_jprb,3.6424e+00_jprb,4.6721e+00_jprb,5.2057e+00_jprb/)  
kbo( :, 1,25,10) = (/&
 & 2.4735e-01_jprb,1.8676e+00_jprb,3.1644e+00_jprb,4.2512e+00_jprb,5.1457e+00_jprb/)  
kbo( :, 2,25,10) = (/&
 & 3.4172e-01_jprb,1.9814e+00_jprb,3.2839e+00_jprb,4.3716e+00_jprb,5.1625e+00_jprb/)  
kbo( :, 3,25,10) = (/&
 & 4.5795e-01_jprb,2.0952e+00_jprb,3.4036e+00_jprb,4.4805e+00_jprb,5.1730e+00_jprb/)  
kbo( :, 4,25,10) = (/&
 & 5.9795e-01_jprb,2.2113e+00_jprb,3.5208e+00_jprb,4.5808e+00_jprb,5.1736e+00_jprb/)  
kbo( :, 5,25,10) = (/&
 & 7.5984e-01_jprb,2.3264e+00_jprb,3.6336e+00_jprb,4.6738e+00_jprb,5.1743e+00_jprb/)  
kbo( :, 1,26,10) = (/&
 & 2.3360e-01_jprb,1.8352e+00_jprb,3.1131e+00_jprb,4.1942e+00_jprb,5.0148e+00_jprb/)  
kbo( :, 2,26,10) = (/&
 & 3.2286e-01_jprb,1.9478e+00_jprb,3.2410e+00_jprb,4.3228e+00_jprb,5.0531e+00_jprb/)  
kbo( :, 3,26,10) = (/&
 & 4.3204e-01_jprb,2.0643e+00_jprb,3.3666e+00_jprb,4.4432e+00_jprb,5.0819e+00_jprb/)  
kbo( :, 4,26,10) = (/&
 & 5.6016e-01_jprb,2.1838e+00_jprb,3.4889e+00_jprb,4.5535e+00_jprb,5.1063e+00_jprb/)  
kbo( :, 5,26,10) = (/&
 & 7.0753e-01_jprb,2.3058e+00_jprb,3.6092e+00_jprb,4.6573e+00_jprb,5.1261e+00_jprb/)  
kbo( :, 1,27,10) = (/&
 & 2.2294e-01_jprb,1.7950e+00_jprb,3.0495e+00_jprb,4.1133e+00_jprb,4.8609e+00_jprb/)  

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


SUBROUTINE part27

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


kbo( :, 2,27,10) = (/&
 & 3.0707e-01_jprb,1.9093e+00_jprb,3.1862e+00_jprb,4.2562e+00_jprb,4.9227e+00_jprb/)  
kbo( :, 3,27,10) = (/&
 & 4.0769e-01_jprb,2.0286e+00_jprb,3.3192e+00_jprb,4.3886e+00_jprb,4.9781e+00_jprb/)  
kbo( :, 4,27,10) = (/&
 & 5.2517e-01_jprb,2.1513e+00_jprb,3.4485e+00_jprb,4.5128e+00_jprb,5.0272e+00_jprb/)  
kbo( :, 5,27,10) = (/&
 & 6.6106e-01_jprb,2.2811e+00_jprb,3.5767e+00_jprb,4.6309e+00_jprb,5.0714e+00_jprb/)  
kbo( :, 1,28,10) = (/&
 & 2.1278e-01_jprb,1.7516e+00_jprb,2.9793e+00_jprb,4.0203e+00_jprb,4.7023e+00_jprb/)  
kbo( :, 2,28,10) = (/&
 & 2.9077e-01_jprb,1.8695e+00_jprb,3.1275e+00_jprb,4.1790e+00_jprb,4.7891e+00_jprb/)  
kbo( :, 3,28,10) = (/&
 & 3.8371e-01_jprb,1.9907e+00_jprb,3.2690e+00_jprb,4.3298e+00_jprb,4.8703e+00_jprb/)  
kbo( :, 4,28,10) = (/&
 & 4.9305e-01_jprb,2.1190e+00_jprb,3.4062e+00_jprb,4.4719e+00_jprb,4.9485e+00_jprb/)  
kbo( :, 5,28,10) = (/&
 & 6.1872e-01_jprb,2.2538e+00_jprb,3.5418e+00_jprb,4.5998e+00_jprb,5.0210e+00_jprb/)  
kbo( :, 1,29,10) = (/&
 & 2.0270e-01_jprb,1.7094e+00_jprb,2.9099e+00_jprb,3.9283e+00_jprb,4.5455e+00_jprb/)  
kbo( :, 2,29,10) = (/&
 & 2.7494e-01_jprb,1.8321e+00_jprb,3.0685e+00_jprb,4.1039e+00_jprb,4.6641e+00_jprb/)  
kbo( :, 3,29,10) = (/&
 & 3.6154e-01_jprb,1.9564e+00_jprb,3.2214e+00_jprb,4.2736e+00_jprb,4.7773e+00_jprb/)  
kbo( :, 4,29,10) = (/&
 & 4.6300e-01_jprb,2.0903e+00_jprb,3.3694e+00_jprb,4.4317e+00_jprb,4.8838e+00_jprb/)  
kbo( :, 5,29,10) = (/&
 & 5.8057e-01_jprb,2.2289e+00_jprb,3.5079e+00_jprb,4.5763e+00_jprb,4.9830e+00_jprb/)  
kbo( :, 1,30,10) = (/&
 & 1.9279e-01_jprb,1.6706e+00_jprb,2.8469e+00_jprb,3.8440e+00_jprb,4.4080e+00_jprb/)  
kbo( :, 2,30,10) = (/&
 & 2.6009e-01_jprb,1.7962e+00_jprb,3.0153e+00_jprb,4.0402e+00_jprb,4.5583e+00_jprb/)  
kbo( :, 3,30,10) = (/&
 & 3.4074e-01_jprb,1.9283e+00_jprb,3.1794e+00_jprb,4.2253e+00_jprb,4.7038e+00_jprb/)  
kbo( :, 4,30,10) = (/&
 & 4.3604e-01_jprb,2.0655e+00_jprb,3.3337e+00_jprb,4.4011e+00_jprb,4.8377e+00_jprb/)  
kbo( :, 5,30,10) = (/&
 & 5.4764e-01_jprb,2.2092e+00_jprb,3.4808e+00_jprb,4.5595e+00_jprb,4.9628e+00_jprb/)  
kbo( :, 1,31,10) = (/&
 & 1.8369e-01_jprb,1.6365e+00_jprb,2.7938e+00_jprb,3.7778e+00_jprb,4.2984e+00_jprb/)  
kbo( :, 2,31,10) = (/&
 & 2.4679e-01_jprb,1.7684e+00_jprb,2.9729e+00_jprb,3.9905e+00_jprb,4.4818e+00_jprb/)  
kbo( :, 3,31,10) = (/&
 & 3.2266e-01_jprb,1.9061e+00_jprb,3.1442e+00_jprb,4.1950e+00_jprb,4.6519e+00_jprb/)  
kbo( :, 4,31,10) = (/&
 & 4.1304e-01_jprb,2.0477e+00_jprb,3.3074e+00_jprb,4.3826e+00_jprb,4.8118e+00_jprb/)  
kbo( :, 5,31,10) = (/&
 & 5.2000e-01_jprb,2.1969e+00_jprb,3.4636e+00_jprb,4.5527e+00_jprb,4.9659e+00_jprb/)  
kbo( :, 1,32,10) = (/&
 & 1.7551e-01_jprb,1.6097e+00_jprb,2.7544e+00_jprb,3.7286e+00_jprb,4.2211e+00_jprb/)  
kbo( :, 2,32,10) = (/&
 & 2.3510e-01_jprb,1.7486e+00_jprb,2.9407e+00_jprb,3.9624e+00_jprb,4.4263e+00_jprb/)  
kbo( :, 3,32,10) = (/&
 & 3.0724e-01_jprb,1.8916e+00_jprb,3.1218e+00_jprb,4.1778e+00_jprb,4.6235e+00_jprb/)  
kbo( :, 4,32,10) = (/&
 & 3.9398e-01_jprb,2.0379e+00_jprb,3.2915e+00_jprb,4.3768e+00_jprb,4.8156e+00_jprb/)  
kbo( :, 5,32,10) = (/&
 & 4.9781e-01_jprb,2.1923e+00_jprb,3.4588e+00_jprb,4.5574e+00_jprb,4.9861e+00_jprb/)  
kbo( :, 1,33,10) = (/&
 & 1.6799e-01_jprb,1.5914e+00_jprb,2.7274e+00_jprb,3.7024e+00_jprb,4.1697e+00_jprb/)  
kbo( :, 2,33,10) = (/&
 & 2.2491e-01_jprb,1.7368e+00_jprb,2.9243e+00_jprb,3.9492e+00_jprb,4.4031e+00_jprb/)  
kbo( :, 3,33,10) = (/&
 & 2.9437e-01_jprb,1.8837e+00_jprb,3.1109e+00_jprb,4.1768e+00_jprb,4.6308e+00_jprb/)  
kbo( :, 4,33,10) = (/&
 & 3.7842e-01_jprb,2.0362e+00_jprb,3.2892e+00_jprb,4.3833e+00_jprb,4.8420e+00_jprb/)  
kbo( :, 5,33,10) = (/&
 & 4.8057e-01_jprb,2.1931e+00_jprb,3.4634e+00_jprb,4.5721e+00_jprb,5.0256e+00_jprb/)  
kbo( :, 1,34,10) = (/&
 & 1.5948e-01_jprb,1.5775e+00_jprb,2.7077e+00_jprb,3.6846e+00_jprb,4.1408e+00_jprb/)  
kbo( :, 2,34,10) = (/&
 & 2.1390e-01_jprb,1.7270e+00_jprb,2.9131e+00_jprb,3.9429e+00_jprb,4.4016e+00_jprb/)  
kbo( :, 3,34,10) = (/&
 & 2.8085e-01_jprb,1.8791e+00_jprb,3.1047e+00_jprb,4.1792e+00_jprb,4.6526e+00_jprb/)  
kbo( :, 4,34,10) = (/&
 & 3.6334e-01_jprb,2.0371e+00_jprb,3.2904e+00_jprb,4.3938e+00_jprb,4.8733e+00_jprb/)  
kbo( :, 5,34,10) = (/&
 & 4.6344e-01_jprb,2.1941e+00_jprb,3.4718e+00_jprb,4.5911e+00_jprb,5.0724e+00_jprb/)  
kbo( :, 1,35,10) = (/&
 & 1.4741e-01_jprb,1.5567e+00_jprb,2.6803e+00_jprb,3.6561e+00_jprb,4.1139e+00_jprb/)  
kbo( :, 2,35,10) = (/&
 & 1.9866e-01_jprb,1.7096e+00_jprb,2.8922e+00_jprb,3.9256e+00_jprb,4.4015e+00_jprb/)  
kbo( :, 3,35,10) = (/&
 & 2.6293e-01_jprb,1.8664e+00_jprb,3.0898e+00_jprb,4.1709e+00_jprb,4.6633e+00_jprb/)  
kbo( :, 4,35,10) = (/&
 & 3.4264e-01_jprb,2.0276e+00_jprb,3.2824e+00_jprb,4.3940e+00_jprb,4.8993e+00_jprb/)  
kbo( :, 5,35,10) = (/&
 & 4.3976e-01_jprb,2.1842e+00_jprb,3.4695e+00_jprb,4.5966e+00_jprb,5.1130e+00_jprb/)  
kbo( :, 1,36,10) = (/&
 & 1.3214e-01_jprb,1.5254e+00_jprb,2.6382e+00_jprb,3.6093e+00_jprb,4.0744e+00_jprb/)  
kbo( :, 2,36,10) = (/&
 & 1.7956e-01_jprb,1.6813e+00_jprb,2.8567e+00_jprb,3.8896e+00_jprb,4.3806e+00_jprb/)  
kbo( :, 3,36,10) = (/&
 & 2.4004e-01_jprb,1.8415e+00_jprb,3.0610e+00_jprb,4.1453e+00_jprb,4.6577e+00_jprb/)  
kbo( :, 4,36,10) = (/&
 & 3.1565e-01_jprb,2.0040e+00_jprb,3.2597e+00_jprb,4.3756e+00_jprb,4.9082e+00_jprb/)  
kbo( :, 5,36,10) = (/&
 & 4.0871e-01_jprb,2.1610e+00_jprb,3.4521e+00_jprb,4.5836e+00_jprb,5.1373e+00_jprb/)  
kbo( :, 1,37,10) = (/&
 & 1.1316e-01_jprb,1.4752e+00_jprb,2.5688e+00_jprb,3.5261e+00_jprb,3.9938e+00_jprb/)  
kbo( :, 2,37,10) = (/&
 & 1.5558e-01_jprb,1.6337e+00_jprb,2.7946e+00_jprb,3.8188e+00_jprb,4.3194e+00_jprb/)  
kbo( :, 3,37,10) = (/&
 & 2.1051e-01_jprb,1.7957e+00_jprb,3.0066e+00_jprb,4.0860e+00_jprb,4.6128e+00_jprb/)  
kbo( :, 4,37,10) = (/&
 & 2.8028e-01_jprb,1.9593e+00_jprb,3.2111e+00_jprb,4.3259e+00_jprb,4.8781e+00_jprb/)  
kbo( :, 5,37,10) = (/&
 & 3.6684e-01_jprb,2.1183e+00_jprb,3.4096e+00_jprb,4.5437e+00_jprb,5.1231e+00_jprb/)  
kbo( :, 1,38,10) = (/&
 & 9.6748e-02_jprb,1.4275e+00_jprb,2.5025e+00_jprb,3.4448e+00_jprb,3.9178e+00_jprb/)  
kbo( :, 2,38,10) = (/&
 & 1.3470e-01_jprb,1.5886e+00_jprb,2.7351e+00_jprb,3.7489e+00_jprb,4.2599e+00_jprb/)  
kbo( :, 3,38,10) = (/&
 & 1.8442e-01_jprb,1.7514e+00_jprb,2.9540e+00_jprb,4.0269e+00_jprb,4.5684e+00_jprb/)  
kbo( :, 4,38,10) = (/&
 & 2.4862e-01_jprb,1.9169e+00_jprb,3.1637e+00_jprb,4.2769e+00_jprb,4.8492e+00_jprb/)  
kbo( :, 5,38,10) = (/&
 & 3.2905e-01_jprb,2.0776e+00_jprb,3.3672e+00_jprb,4.5027e+00_jprb,5.1082e+00_jprb/)  
kbo( :, 1,39,10) = (/&
 & 8.2846e-02_jprb,1.3834e+00_jprb,2.4412e+00_jprb,3.3680e+00_jprb,3.8485e+00_jprb/)  
kbo( :, 2,39,10) = (/&
 & 1.1685e-01_jprb,1.5463e+00_jprb,2.6796e+00_jprb,3.6824e+00_jprb,4.2039e+00_jprb/)  
kbo( :, 3,39,10) = (/&
 & 1.6194e-01_jprb,1.7108e+00_jprb,2.9043e+00_jprb,3.9699e+00_jprb,4.5285e+00_jprb/)  
kbo( :, 4,39,10) = (/&
 & 2.2088e-01_jprb,1.8779e+00_jprb,3.1188e+00_jprb,4.2292e+00_jprb,4.8250e+00_jprb/)  
kbo( :, 5,39,10) = (/&
 & 2.9576e-01_jprb,2.0398e+00_jprb,3.3275e+00_jprb,4.4625e+00_jprb,5.0971e+00_jprb/)  
kbo( :, 1,40,10) = (/&
 & 6.8460e-02_jprb,1.3257e+00_jprb,2.3577e+00_jprb,3.2603e+00_jprb,3.7339e+00_jprb/)  
kbo( :, 2,40,10) = (/&
 & 9.7988e-02_jprb,1.4903e+00_jprb,2.6023e+00_jprb,3.5872e+00_jprb,4.1045e+00_jprb/)  
kbo( :, 3,40,10) = (/&
 & 1.3775e-01_jprb,1.6559e+00_jprb,2.8336e+00_jprb,3.8858e+00_jprb,4.4458e+00_jprb/)  
kbo( :, 4,40,10) = (/&
 & 1.9045e-01_jprb,1.8245e+00_jprb,3.0542e+00_jprb,4.1559e+00_jprb,4.7581e+00_jprb/)  
kbo( :, 5,40,10) = (/&
 & 2.5849e-01_jprb,1.9886e+00_jprb,3.2674e+00_jprb,4.3994e+00_jprb,5.0432e+00_jprb/)  
kbo( :, 1,41,10) = (/&
 & 5.6234e-02_jprb,1.2690e+00_jprb,2.2720e+00_jprb,3.1495e+00_jprb,3.6139e+00_jprb/)  
kbo( :, 2,41,10) = (/&
 & 8.1724e-02_jprb,1.4342e+00_jprb,2.5230e+00_jprb,3.4875e+00_jprb,3.9992e+00_jprb/)  
kbo( :, 3,41,10) = (/&
 & 1.1661e-01_jprb,1.6007e+00_jprb,2.7616e+00_jprb,3.7972e+00_jprb,4.3567e+00_jprb/)  
kbo( :, 4,41,10) = (/&
 & 1.6350e-01_jprb,1.7709e+00_jprb,2.9870e+00_jprb,4.0779e+00_jprb,4.6840e+00_jprb/)  
kbo( :, 5,41,10) = (/&
 & 2.2482e-01_jprb,1.9373e+00_jprb,3.2036e+00_jprb,4.3314e+00_jprb,4.9822e+00_jprb/)  
kbo( :, 1,42,10) = (/&
 & 4.6099e-02_jprb,1.2146e+00_jprb,2.1872e+00_jprb,3.0381e+00_jprb,3.4945e+00_jprb/)  
kbo( :, 2,42,10) = (/&
 & 6.8068e-02_jprb,1.3798e+00_jprb,2.4452e+00_jprb,3.3871e+00_jprb,3.8938e+00_jprb/)  
kbo( :, 3,42,10) = (/&
 & 9.8587e-02_jprb,1.5478e+00_jprb,2.6891e+00_jprb,3.7072e+00_jprb,4.2665e+00_jprb/)  
kbo( :, 4,42,10) = (/&
 & 1.4020e-01_jprb,1.7187e+00_jprb,2.9198e+00_jprb,3.9988e+00_jprb,4.6092e+00_jprb/)  
kbo( :, 5,42,10) = (/&
 & 1.9544e-01_jprb,1.8864e+00_jprb,3.1414e+00_jprb,4.2616e+00_jprb,4.9213e+00_jprb/)  
kbo( :, 1,43,10) = (/&
 & 3.6837e-02_jprb,1.1530e+00_jprb,2.0885e+00_jprb,2.9067e+00_jprb,3.3518e+00_jprb/)  
kbo( :, 2,43,10) = (/&
 & 5.5339e-02_jprb,1.3181e+00_jprb,2.3532e+00_jprb,3.2663e+00_jprb,3.7650e+00_jprb/)  
kbo( :, 3,43,10) = (/&
 & 8.1513e-02_jprb,1.4866e+00_jprb,2.6028e+00_jprb,3.5988e+00_jprb,4.1527e+00_jprb/)  
kbo( :, 4,43,10) = (/&
 & 1.1773e-01_jprb,1.6570e+00_jprb,2.8399e+00_jprb,3.9012e+00_jprb,4.5115e+00_jprb/)  
kbo( :, 5,43,10) = (/&
 & 1.6664e-01_jprb,1.8278e+00_jprb,3.0668e+00_jprb,4.1754e+00_jprb,4.8396e+00_jprb/)  
kbo( :, 1,44,10) = (/&
 & 2.8988e-02_jprb,1.0887e+00_jprb,1.9830e+00_jprb,2.7653e+00_jprb,3.1966e+00_jprb/)  
kbo( :, 2,44,10) = (/&
 & 4.4338e-02_jprb,1.2532e+00_jprb,2.2540e+00_jprb,3.1344e+00_jprb,3.6243e+00_jprb/)  
kbo( :, 3,44,10) = (/&
 & 6.6501e-02_jprb,1.4222e+00_jprb,2.5105e+00_jprb,3.4789e+00_jprb,4.0260e+00_jprb/)  
kbo( :, 4,44,10) = (/&
 & 9.7639e-02_jprb,1.5932e+00_jprb,2.7543e+00_jprb,3.7931e+00_jprb,4.4021e+00_jprb/)  
kbo( :, 5,44,10) = (/&
 & 1.4052e-01_jprb,1.7655e+00_jprb,2.9842e+00_jprb,4.0798e+00_jprb,4.7466e+00_jprb/)  
kbo( :, 1,45,10) = (/&
 & 2.2674e-02_jprb,1.0257e+00_jprb,1.8783e+00_jprb,2.6228e+00_jprb,3.0412e+00_jprb/)  
kbo( :, 2,45,10) = (/&
 & 3.5361e-02_jprb,1.1906e+00_jprb,2.1544e+00_jprb,3.0007e+00_jprb,3.4821e+00_jprb/)  
kbo( :, 3,45,10) = (/&
 & 5.3984e-02_jprb,1.3593e+00_jprb,2.4179e+00_jprb,3.3558e+00_jprb,3.8978e+00_jprb/)  
kbo( :, 4,45,10) = (/&
 & 8.0687e-02_jprb,1.5302e+00_jprb,2.6662e+00_jprb,3.6830e+00_jprb,4.2916e+00_jprb/)  
kbo( :, 5,45,10) = (/&
 & 1.1807e-01_jprb,1.7032e+00_jprb,2.9026e+00_jprb,3.9804e+00_jprb,4.6530e+00_jprb/)  
kbo( :, 1,46,10) = (/&
 & 1.7410e-02_jprb,9.6094e-01_jprb,1.7674e+00_jprb,2.4706e+00_jprb,2.8739e+00_jprb/)  
kbo( :, 2,46,10) = (/&
 & 2.7786e-02_jprb,1.1256e+00_jprb,2.0477e+00_jprb,2.8564e+00_jprb,3.3272e+00_jprb/)  
kbo( :, 3,46,10) = (/&
 & 4.3233e-02_jprb,1.2931e+00_jprb,2.3174e+00_jprb,3.2226e+00_jprb,3.7574e+00_jprb/)  
kbo( :, 4,46,10) = (/&
 & 6.5795e-02_jprb,1.4641e+00_jprb,2.5723e+00_jprb,3.5627e+00_jprb,4.1675e+00_jprb/)  
kbo( :, 5,46,10) = (/&
 & 9.8017e-02_jprb,1.6372e+00_jprb,2.8147e+00_jprb,3.8708e+00_jprb,4.5474e+00_jprb/)  
kbo( :, 1,47,10) = (/&
 & 1.2932e-02_jprb,8.9077e-01_jprb,1.6439e+00_jprb,2.2995e+00_jprb,2.6825e+00_jprb/)  
kbo( :, 2,47,10) = (/&
 & 2.1223e-02_jprb,1.0540e+00_jprb,1.9287e+00_jprb,2.6946e+00_jprb,3.1473e+00_jprb/)  
kbo( :, 3,47,10) = (/&
 & 3.3771e-02_jprb,1.2207e+00_jprb,2.2047e+00_jprb,3.0711e+00_jprb,3.5926e+00_jprb/)  
kbo( :, 4,47,10) = (/&
 & 5.2401e-02_jprb,1.3916e+00_jprb,2.4667e+00_jprb,3.4226e+00_jprb,4.0177e+00_jprb/)  
kbo( :, 5,47,10) = (/&
 & 7.9614e-02_jprb,1.5646e+00_jprb,2.7148e+00_jprb,3.7454e+00_jprb,4.4170e+00_jprb/)  
kbo( :, 1,48,10) = (/&
 & 9.4853e-03_jprb,8.2116e-01_jprb,1.5192e+00_jprb,2.1278e+00_jprb,2.4903e+00_jprb/)  
kbo( :, 2,48,10) = (/&
 & 1.6017e-02_jprb,9.8364e-01_jprb,1.8094e+00_jprb,2.5302e+00_jprb,2.9654e+00_jprb/)  
kbo( :, 3,48,10) = (/&
 & 2.6151e-02_jprb,1.1500e+00_jprb,2.0897e+00_jprb,2.9152e+00_jprb,3.4258e+00_jprb/)  
kbo( :, 4,48,10) = (/&
 & 4.1450e-02_jprb,1.3196e+00_jprb,2.3589e+00_jprb,3.2790e+00_jprb,3.8661e+00_jprb/)  
kbo( :, 5,48,10) = (/&
 & 6.4206e-02_jprb,1.4922e+00_jprb,2.6125e+00_jprb,3.6159e+00_jprb,4.2851e+00_jprb/)  
kbo( :, 1,49,10) = (/&
 & 6.8584e-03_jprb,7.5265e-01_jprb,1.3951e+00_jprb,1.9557e+00_jprb,2.2987e+00_jprb/)  
kbo( :, 2,49,10) = (/&
 & 1.1934e-02_jprb,9.1467e-01_jprb,1.6885e+00_jprb,2.3631e+00_jprb,2.7820e+00_jprb/)  
kbo( :, 3,49,10) = (/&
 & 2.0019e-02_jprb,1.0797e+00_jprb,1.9731e+00_jprb,2.7567e+00_jprb,3.2569e+00_jprb/)  
kbo( :, 4,49,10) = (/&
 & 3.2532e-02_jprb,1.2481e+00_jprb,2.2484e+00_jprb,3.1312e+00_jprb,3.7144e+00_jprb/)  
kbo( :, 5,49,10) = (/&
 & 5.1423e-02_jprb,1.4202e+00_jprb,2.5087e+00_jprb,3.4802e+00_jprb,4.1524e+00_jprb/)  
kbo( :, 1,50,10) = (/&
 & 4.9588e-03_jprb,6.8907e-01_jprb,1.2794e+00_jprb,1.7942e+00_jprb,2.1153e+00_jprb/)  
kbo( :, 2,50,10) = (/&
 & 8.8947e-03_jprb,8.5045e-01_jprb,1.5739e+00_jprb,2.2042e+00_jprb,2.6031e+00_jprb/)  
kbo( :, 3,50,10) = (/&
 & 1.5348e-02_jprb,1.0143e+00_jprb,1.8632e+00_jprb,2.6056e+00_jprb,3.0870e+00_jprb/)  
kbo( :, 4,50,10) = (/&
 & 2.5608e-02_jprb,1.1821e+00_jprb,2.1430e+00_jprb,2.9888e+00_jprb,3.5596e+00_jprb/)  
kbo( :, 5,50,10) = (/&
 & 4.1387e-02_jprb,1.3536e+00_jprb,2.4101e+00_jprb,3.3481e+00_jprb,4.0115e+00_jprb/)  
kbo( :, 1,51,10) = (/&
 & 3.5571e-03_jprb,6.2785e-01_jprb,1.1678e+00_jprb,1.6386e+00_jprb,1.9369e+00_jprb/)  
kbo( :, 2,51,10) = (/&
 & 6.5893e-03_jprb,7.8876e-01_jprb,1.4624e+00_jprb,2.0498e+00_jprb,2.4257e+00_jprb/)  
kbo( :, 3,51,10) = (/&
 & 1.1707e-02_jprb,9.5177e-01_jprb,1.7551e+00_jprb,2.4566e+00_jprb,2.9162e+00_jprb/)  
kbo( :, 4,51,10) = (/&
 & 2.0074e-02_jprb,1.1187e+00_jprb,2.0387e+00_jprb,2.8466e+00_jprb,3.3998e+00_jprb/)  
kbo( :, 5,51,10) = (/&
 & 3.3273e-02_jprb,1.2890e+00_jprb,2.3117e+00_jprb,3.2168e+00_jprb,3.8651e+00_jprb/)  
kbo( :, 1,52,10) = (/&
 & 2.5127e-03_jprb,5.6820e-01_jprb,1.0583e+00_jprb,1.4864e+00_jprb,1.7624e+00_jprb/)  
kbo( :, 2,52,10) = (/&
 & 4.8248e-03_jprb,7.2792e-01_jprb,1.3512e+00_jprb,1.8952e+00_jprb,2.2490e+00_jprb/)  
kbo( :, 3,52,10) = (/&
 & 8.8346e-03_jprb,8.9029e-01_jprb,1.6463e+00_jprb,2.3052e+00_jprb,2.7452e+00_jprb/)  
kbo( :, 4,52,10) = (/&
 & 1.5583e-02_jprb,1.0558e+00_jprb,1.9336e+00_jprb,2.7033e+00_jprb,3.2391e+00_jprb/)  
kbo( :, 5,52,10) = (/&
 & 2.6529e-02_jprb,1.2246e+00_jprb,2.2115e+00_jprb,3.0824e+00_jprb,3.7180e+00_jprb/)  
kbo( :, 1,53,10) = (/&
 & 1.7459e-03_jprb,5.1010e-01_jprb,9.5136e-01_jprb,1.3367e+00_jprb,1.5916e+00_jprb/)  
kbo( :, 2,53,10) = (/&
 & 3.4808e-03_jprb,6.6729e-01_jprb,1.2403e+00_jprb,1.7405e+00_jprb,2.0746e+00_jprb/)  
kbo( :, 3,53,10) = (/&
 & 6.5872e-03_jprb,8.2899e-01_jprb,1.5363e+00_jprb,2.1529e+00_jprb,2.5747e+00_jprb/)  
kbo( :, 4,53,10) = (/&
 & 1.1962e-02_jprb,9.9325e-01_jprb,1.8279e+00_jprb,2.5576e+00_jprb,3.0783e+00_jprb/)  
kbo( :, 5,53,10) = (/&
 & 2.0951e-02_jprb,1.1616e+00_jprb,2.1096e+00_jprb,2.9440e+00_jprb,3.5715e+00_jprb/)  
kbo( :, 1,54,10) = (/&
 & 1.2204e-03_jprb,4.5823e-01_jprb,8.5579e-01_jprb,1.2025e+00_jprb,1.4326e+00_jprb/)  
kbo( :, 2,54,10) = (/&
 & 2.5281e-03_jprb,6.1212e-01_jprb,1.1396e+00_jprb,1.5999e+00_jprb,1.9069e+00_jprb/)  
kbo( :, 3,54,10) = (/&
 & 4.9409e-03_jprb,7.7338e-01_jprb,1.4350e+00_jprb,2.0125e+00_jprb,2.4041e+00_jprb/)  
kbo( :, 4,54,10) = (/&
 & 9.2436e-03_jprb,9.3695e-01_jprb,1.7295e+00_jprb,2.4215e+00_jprb,2.9094e+00_jprb/)  
kbo( :, 5,54,10) = (/&
 & 1.6670e-02_jprb,1.1040e+00_jprb,2.0145e+00_jprb,2.8142e+00_jprb,3.4095e+00_jprb/)  
kbo( :, 1,55,10) = (/&
 & 8.4904e-04_jprb,4.1031e-01_jprb,7.6714e-01_jprb,1.0777e+00_jprb,1.2810e+00_jprb/)  
kbo( :, 2,55,10) = (/&
 & 1.8289e-03_jprb,5.6051e-01_jprb,1.0445e+00_jprb,1.4675e+00_jprb,1.7437e+00_jprb/)  
kbo( :, 3,55,10) = (/&
 & 3.6957e-03_jprb,7.2049e-01_jprb,1.3381e+00_jprb,1.8775e+00_jprb,2.2346e+00_jprb/)  
kbo( :, 4,55,10) = (/&
 & 7.1338e-03_jprb,8.8320e-01_jprb,1.6342e+00_jprb,2.2888e+00_jprb,2.7356e+00_jprb/)  
kbo( :, 5,55,10) = (/&
 & 1.3248e-02_jprb,1.0490e+00_jprb,1.9226e+00_jprb,2.6886e+00_jprb,3.2366e+00_jprb/)  
kbo( :, 1,56,10) = (/&
 & 5.8188e-04_jprb,3.6451e-01_jprb,6.8188e-01_jprb,9.5775e-01_jprb,1.1364e+00_jprb/)  

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


SUBROUTINE part28

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


kbo( :, 2,56,10) = (/&
 & 1.3061e-03_jprb,5.1010e-01_jprb,9.5157e-01_jprb,1.3373e+00_jprb,1.5849e+00_jprb/)  
kbo( :, 3,56,10) = (/&
 & 2.7348e-03_jprb,6.6775e-01_jprb,1.2416e+00_jprb,1.7426e+00_jprb,2.0675e+00_jprb/)  
kbo( :, 4,56,10) = (/&
 & 5.4506e-03_jprb,8.2982e-01_jprb,1.5384e+00_jprb,2.1560e+00_jprb,2.5656e+00_jprb/)  
kbo( :, 5,56,10) = (/&
 & 1.0438e-02_jprb,9.9464e-01_jprb,1.8304e+00_jprb,2.5617e+00_jprb,3.0643e+00_jprb/)  
kbo( :, 1,57,10) = (/&
 & 3.9249e-04_jprb,3.2068e-01_jprb,6.0044e-01_jprb,8.4280e-01_jprb,9.9873e-01_jprb/)  
kbo( :, 2,57,10) = (/&
 & 9.2030e-04_jprb,4.6083e-01_jprb,8.6077e-01_jprb,1.2098e+00_jprb,1.4302e+00_jprb/)  
kbo( :, 3,57,10) = (/&
 & 2.0002e-03_jprb,6.1542e-01_jprb,1.1460e+00_jprb,1.6091e+00_jprb,1.9029e+00_jprb/)  
kbo( :, 4,57,10) = (/&
 & 4.1235e-03_jprb,7.7708e-01_jprb,1.4422e+00_jprb,2.0227e+00_jprb,2.3967e+00_jprb/)  
kbo( :, 5,57,10) = (/&
 & 8.1478e-03_jprb,9.4098e-01_jprb,1.7369e+00_jprb,2.4323e+00_jprb,2.8933e+00_jprb/)  
kbo( :, 1,58,10) = (/&
 & 2.6430e-04_jprb,2.8122e-01_jprb,5.2695e-01_jprb,7.3930e-01_jprb,8.7420e-01_jprb/)  
kbo( :, 2,58,10) = (/&
 & 6.4821e-04_jprb,4.1579e-01_jprb,7.7745e-01_jprb,1.0922e+00_jprb,1.2875e+00_jprb/)  
kbo( :, 3,58,10) = (/&
 & 1.4624e-03_jprb,5.6685e-01_jprb,1.0564e+00_jprb,1.4844e+00_jprb,1.7489e+00_jprb/)  
kbo( :, 4,58,10) = (/&
 & 3.1206e-03_jprb,7.2740e-01_jprb,1.3510e+00_jprb,1.8958e+00_jprb,2.2357e+00_jprb/)  
kbo( :, 5,58,10) = (/&
 & 6.3628e-03_jprb,8.9041e-01_jprb,1.6474e+00_jprb,2.3075e+00_jprb,2.7302e+00_jprb/)  
kbo( :, 1,59,10) = (/&
 & 2.0990e-04_jprb,2.6575e-01_jprb,4.9806e-01_jprb,6.9856e-01_jprb,8.1922e-01_jprb/)  
kbo( :, 2,59,10) = (/&
 & 5.2942e-04_jprb,3.9787e-01_jprb,7.4416e-01_jprb,1.0453e+00_jprb,1.2213e+00_jprb/)  
kbo( :, 3,59,10) = (/&
 & 1.2254e-03_jprb,5.4737e-01_jprb,1.0206e+00_jprb,1.4342e+00_jprb,1.6735e+00_jprb/)  
kbo( :, 4,59,10) = (/&
 & 2.6840e-03_jprb,7.0712e-01_jprb,1.3141e+00_jprb,1.8442e+00_jprb,2.1507e+00_jprb/)  
kbo( :, 5,59,10) = (/&
 & 5.6182e-03_jprb,8.7007e-01_jprb,1.6111e+00_jprb,2.2569e+00_jprb,2.6371e+00_jprb/)  
kbo( :, 1,13,11) = (/&
 & 1.0801e+00_jprb,1.4348e+00_jprb,2.0789e+00_jprb,2.8766e+00_jprb,3.7088e+00_jprb/)  
kbo( :, 2,13,11) = (/&
 & 1.5786e+00_jprb,1.6909e+00_jprb,2.2344e+00_jprb,2.8378e+00_jprb,3.6154e+00_jprb/)  
kbo( :, 3,13,11) = (/&
 & 2.1806e+00_jprb,1.9878e+00_jprb,2.3945e+00_jprb,2.8212e+00_jprb,3.5326e+00_jprb/)  
kbo( :, 4,13,11) = (/&
 & 2.8720e+00_jprb,2.3800e+00_jprb,2.5914e+00_jprb,2.8385e+00_jprb,3.4655e+00_jprb/)  
kbo( :, 5,13,11) = (/&
 & 3.6411e+00_jprb,2.8911e+00_jprb,2.8480e+00_jprb,2.9116e+00_jprb,3.4228e+00_jprb/)  
kbo( :, 1,14,11) = (/&
 & 1.1044e+00_jprb,1.5475e+00_jprb,2.2497e+00_jprb,3.1463e+00_jprb,4.0884e+00_jprb/)  
kbo( :, 2,14,11) = (/&
 & 1.5971e+00_jprb,1.7939e+00_jprb,2.3794e+00_jprb,3.1054e+00_jprb,3.9980e+00_jprb/)  
kbo( :, 3,14,11) = (/&
 & 2.1821e+00_jprb,2.0987e+00_jprb,2.5507e+00_jprb,3.0870e+00_jprb,3.9208e+00_jprb/)  
kbo( :, 4,14,11) = (/&
 & 2.8502e+00_jprb,2.4509e+00_jprb,2.7671e+00_jprb,3.1108e+00_jprb,3.8503e+00_jprb/)  
kbo( :, 5,14,11) = (/&
 & 3.5884e+00_jprb,2.8921e+00_jprb,3.0089e+00_jprb,3.1705e+00_jprb,3.7851e+00_jprb/)  
kbo( :, 1,15,11) = (/&
 & 1.1021e+00_jprb,1.6587e+00_jprb,2.4815e+00_jprb,3.5024e+00_jprb,4.5632e+00_jprb/)  
kbo( :, 2,15,11) = (/&
 & 1.5743e+00_jprb,1.8988e+00_jprb,2.5745e+00_jprb,3.4612e+00_jprb,4.4691e+00_jprb/)  
kbo( :, 3,15,11) = (/&
 & 2.1315e+00_jprb,2.1848e+00_jprb,2.7319e+00_jprb,3.4370e+00_jprb,4.3819e+00_jprb/)  
kbo( :, 4,15,11) = (/&
 & 2.7650e+00_jprb,2.5138e+00_jprb,2.9331e+00_jprb,3.4633e+00_jprb,4.3032e+00_jprb/)  
kbo( :, 5,15,11) = (/&
 & 3.4727e+00_jprb,2.9032e+00_jprb,3.1579e+00_jprb,3.5044e+00_jprb,4.2227e+00_jprb/)  
kbo( :, 1,16,11) = (/&
 & 1.0714e+00_jprb,1.7588e+00_jprb,2.7564e+00_jprb,3.8747e+00_jprb,5.0508e+00_jprb/)  
kbo( :, 2,16,11) = (/&
 & 1.5150e+00_jprb,1.9873e+00_jprb,2.8550e+00_jprb,3.8426e+00_jprb,4.9605e+00_jprb/)  
kbo( :, 3,16,11) = (/&
 & 2.0368e+00_jprb,2.2470e+00_jprb,2.9773e+00_jprb,3.8351e+00_jprb,4.8716e+00_jprb/)  
kbo( :, 4,16,11) = (/&
 & 2.6368e+00_jprb,2.5533e+00_jprb,3.1361e+00_jprb,3.8536e+00_jprb,4.7863e+00_jprb/)  
kbo( :, 5,16,11) = (/&
 & 3.3066e+00_jprb,2.9151e+00_jprb,3.3174e+00_jprb,3.8762e+00_jprb,4.6948e+00_jprb/)  
kbo( :, 1,17,11) = (/&
 & 1.0151e+00_jprb,1.8852e+00_jprb,3.0518e+00_jprb,4.2628e+00_jprb,5.5542e+00_jprb/)  
kbo( :, 2,17,11) = (/&
 & 1.4250e+00_jprb,2.0700e+00_jprb,3.1614e+00_jprb,4.2288e+00_jprb,5.4601e+00_jprb/)  
kbo( :, 3,17,11) = (/&
 & 1.9121e+00_jprb,2.3001e+00_jprb,3.2776e+00_jprb,4.2348e+00_jprb,5.3679e+00_jprb/)  
kbo( :, 4,17,11) = (/&
 & 2.4694e+00_jprb,2.5770e+00_jprb,3.4037e+00_jprb,4.2558e+00_jprb,5.2730e+00_jprb/)  
kbo( :, 5,17,11) = (/&
 & 3.0899e+00_jprb,2.9049e+00_jprb,3.5383e+00_jprb,4.2898e+00_jprb,5.1747e+00_jprb/)  
kbo( :, 1,18,11) = (/&
 & 9.4290e-01_jprb,2.0484e+00_jprb,3.3469e+00_jprb,4.6479e+00_jprb,6.0575e+00_jprb/)  
kbo( :, 2,18,11) = (/&
 & 1.3205e+00_jprb,2.1931e+00_jprb,3.4728e+00_jprb,4.6183e+00_jprb,5.9563e+00_jprb/)  
kbo( :, 3,18,11) = (/&
 & 1.7655e+00_jprb,2.3717e+00_jprb,3.5959e+00_jprb,4.6412e+00_jprb,5.8591e+00_jprb/)  
kbo( :, 4,18,11) = (/&
 & 2.2742e+00_jprb,2.6014e+00_jprb,3.7076e+00_jprb,4.6704e+00_jprb,5.7576e+00_jprb/)  
kbo( :, 5,18,11) = (/&
 & 2.8368e+00_jprb,2.8834e+00_jprb,3.8149e+00_jprb,4.7239e+00_jprb,5.6493e+00_jprb/)  
kbo( :, 1,19,11) = (/&
 & 8.6437e-01_jprb,2.2167e+00_jprb,3.6423e+00_jprb,5.0107e+00_jprb,6.5258e+00_jprb/)  
kbo( :, 2,19,11) = (/&
 & 1.2052e+00_jprb,2.3536e+00_jprb,3.7778e+00_jprb,5.0137e+00_jprb,6.4336e+00_jprb/)  
kbo( :, 3,19,11) = (/&
 & 1.6063e+00_jprb,2.4963e+00_jprb,3.9078e+00_jprb,5.0409e+00_jprb,6.3317e+00_jprb/)  
kbo( :, 4,19,11) = (/&
 & 2.0613e+00_jprb,2.6673e+00_jprb,4.0216e+00_jprb,5.0848e+00_jprb,6.2172e+00_jprb/)  
kbo( :, 5,19,11) = (/&
 & 2.5635e+00_jprb,2.8852e+00_jprb,4.1233e+00_jprb,5.1457e+00_jprb,6.0969e+00_jprb/)  
kbo( :, 1,20,11) = (/&
 & 7.8779e-01_jprb,2.3765e+00_jprb,3.9264e+00_jprb,5.3499e+00_jprb,6.9480e+00_jprb/)  
kbo( :, 2,20,11) = (/&
 & 1.0926e+00_jprb,2.5148e+00_jprb,4.0670e+00_jprb,5.3834e+00_jprb,6.8553e+00_jprb/)  
kbo( :, 3,20,11) = (/&
 & 1.4487e+00_jprb,2.6525e+00_jprb,4.1962e+00_jprb,5.4179e+00_jprb,6.7496e+00_jprb/)  
kbo( :, 4,20,11) = (/&
 & 1.8513e+00_jprb,2.7916e+00_jprb,4.3148e+00_jprb,5.4862e+00_jprb,6.6370e+00_jprb/)  
kbo( :, 5,20,11) = (/&
 & 2.2991e+00_jprb,2.9510e+00_jprb,4.4216e+00_jprb,5.5498e+00_jprb,6.5228e+00_jprb/)  
kbo( :, 1,21,11) = (/&
 & 7.0932e-01_jprb,2.5175e+00_jprb,4.1824e+00_jprb,5.6525e+00_jprb,7.2957e+00_jprb/)  
kbo( :, 2,21,11) = (/&
 & 9.7801e-01_jprb,2.6602e+00_jprb,4.3300e+00_jprb,5.6984e+00_jprb,7.2060e+00_jprb/)  
kbo( :, 3,21,11) = (/&
 & 1.2908e+00_jprb,2.7977e+00_jprb,4.4565e+00_jprb,5.7675e+00_jprb,7.1115e+00_jprb/)  
kbo( :, 4,21,11) = (/&
 & 1.6486e+00_jprb,2.9337e+00_jprb,4.5784e+00_jprb,5.8514e+00_jprb,7.0112e+00_jprb/)  
kbo( :, 5,21,11) = (/&
 & 2.0548e+00_jprb,3.0662e+00_jprb,4.6884e+00_jprb,5.9211e+00_jprb,6.9051e+00_jprb/)  
kbo( :, 1,22,11) = (/&
 & 6.4634e-01_jprb,2.6427e+00_jprb,4.4108e+00_jprb,5.9111e+00_jprb,7.5603e+00_jprb/)  
kbo( :, 2,22,11) = (/&
 & 8.8382e-01_jprb,2.7886e+00_jprb,4.5605e+00_jprb,5.9821e+00_jprb,7.4874e+00_jprb/)  
kbo( :, 3,22,11) = (/&
 & 1.1630e+00_jprb,2.9292e+00_jprb,4.6954e+00_jprb,6.0879e+00_jprb,7.4042e+00_jprb/)  
kbo( :, 4,22,11) = (/&
 & 1.4885e+00_jprb,3.0664e+00_jprb,4.8184e+00_jprb,6.1855e+00_jprb,7.3136e+00_jprb/)  
kbo( :, 5,22,11) = (/&
 & 1.8588e+00_jprb,3.1975e+00_jprb,4.9293e+00_jprb,6.2618e+00_jprb,7.2153e+00_jprb/)  
kbo( :, 1,23,11) = (/&
 & 5.8489e-01_jprb,2.7446e+00_jprb,4.5940e+00_jprb,6.1135e+00_jprb,7.7491e+00_jprb/)  
kbo( :, 2,23,11) = (/&
 & 7.9682e-01_jprb,2.8912e+00_jprb,4.7488e+00_jprb,6.2356e+00_jprb,7.6928e+00_jprb/)  
kbo( :, 3,23,11) = (/&
 & 1.0504e+00_jprb,3.0346e+00_jprb,4.8968e+00_jprb,6.3608e+00_jprb,7.6287e+00_jprb/)  
kbo( :, 4,23,11) = (/&
 & 1.3447e+00_jprb,3.1725e+00_jprb,5.0242e+00_jprb,6.4689e+00_jprb,7.5521e+00_jprb/)  
kbo( :, 5,23,11) = (/&
 & 1.6807e+00_jprb,3.3048e+00_jprb,5.1382e+00_jprb,6.5524e+00_jprb,7.4632e+00_jprb/)  
kbo( :, 1,24,11) = (/&
 & 5.2989e-01_jprb,2.8195e+00_jprb,4.7301e+00_jprb,6.2761e+00_jprb,7.8550e+00_jprb/)  
kbo( :, 2,24,11) = (/&
 & 7.2198e-01_jprb,2.9702e+00_jprb,4.8974e+00_jprb,6.4380e+00_jprb,7.8243e+00_jprb/)  
kbo( :, 3,24,11) = (/&
 & 9.5134e-01_jprb,3.1164e+00_jprb,5.0504e+00_jprb,6.5817e+00_jprb,7.7816e+00_jprb/)  
kbo( :, 4,24,11) = (/&
 & 1.2196e+00_jprb,3.2537e+00_jprb,5.1885e+00_jprb,6.6940e+00_jprb,7.7249e+00_jprb/)  
kbo( :, 5,24,11) = (/&
 & 1.5265e+00_jprb,3.3851e+00_jprb,5.3089e+00_jprb,6.7822e+00_jprb,7.6563e+00_jprb/)  
kbo( :, 1,25,11) = (/&
 & 4.8476e-01_jprb,2.8697e+00_jprb,4.8218e+00_jprb,6.4097e+00_jprb,7.9026e+00_jprb/)  
kbo( :, 2,25,11) = (/&
 & 6.5969e-01_jprb,3.0274e+00_jprb,5.0029e+00_jprb,6.5890e+00_jprb,7.8973e+00_jprb/)  
kbo( :, 3,25,11) = (/&
 & 8.6906e-01_jprb,3.1754e+00_jprb,5.1656e+00_jprb,6.7410e+00_jprb,7.8772e+00_jprb/)  
kbo( :, 4,25,11) = (/&
 & 1.1152e+00_jprb,3.3120e+00_jprb,5.3111e+00_jprb,6.8679e+00_jprb,7.8462e+00_jprb/)  
kbo( :, 5,25,11) = (/&
 & 1.4024e+00_jprb,3.4449e+00_jprb,5.4363e+00_jprb,6.9674e+00_jprb,7.7978e+00_jprb/)  
kbo( :, 1,26,11) = (/&
 & 4.4920e-01_jprb,2.9004e+00_jprb,4.8834e+00_jprb,6.5041e+00_jprb,7.9089e+00_jprb/)  
kbo( :, 2,26,11) = (/&
 & 6.0999e-01_jprb,3.0628e+00_jprb,5.0713e+00_jprb,6.6966e+00_jprb,7.9304e+00_jprb/)  
kbo( :, 3,26,11) = (/&
 & 8.0376e-01_jprb,3.2124e+00_jprb,5.2452e+00_jprb,6.8629e+00_jprb,7.9361e+00_jprb/)  
kbo( :, 4,26,11) = (/&
 & 1.0358e+00_jprb,3.3523e+00_jprb,5.4003e+00_jprb,7.0027e+00_jprb,7.9285e+00_jprb/)  
kbo( :, 5,26,11) = (/&
 & 1.3073e+00_jprb,3.4838e+00_jprb,5.5299e+00_jprb,7.1136e+00_jprb,7.9075e+00_jprb/)  
kbo( :, 1,27,11) = (/&
 & 4.1952e-01_jprb,2.9133e+00_jprb,4.9160e+00_jprb,6.5693e+00_jprb,7.8901e+00_jprb/)  
kbo( :, 2,27,11) = (/&
 & 5.6911e-01_jprb,3.0774e+00_jprb,5.1132e+00_jprb,6.7755e+00_jprb,7.9378e+00_jprb/)  
kbo( :, 3,27,11) = (/&
 & 7.5273e-01_jprb,3.2297e+00_jprb,5.2948e+00_jprb,6.9532e+00_jprb,7.9707e+00_jprb/)  
kbo( :, 4,27,11) = (/&
 & 9.7351e-01_jprb,3.3745e+00_jprb,5.4563e+00_jprb,7.1054e+00_jprb,7.9865e+00_jprb/)  
kbo( :, 5,27,11) = (/&
 & 1.2293e+00_jprb,3.5064e+00_jprb,5.5938e+00_jprb,7.2297e+00_jprb,7.9857e+00_jprb/)  
kbo( :, 1,28,11) = (/&
 & 3.9524e-01_jprb,2.9112e+00_jprb,4.9316e+00_jprb,6.6151e+00_jprb,7.8478e+00_jprb/)  
kbo( :, 2,28,11) = (/&
 & 5.3765e-01_jprb,3.0764e+00_jprb,5.1350e+00_jprb,6.8313e+00_jprb,7.9309e+00_jprb/)  
kbo( :, 3,28,11) = (/&
 & 7.1264e-01_jprb,3.2343e+00_jprb,5.3248e+00_jprb,7.0207e+00_jprb,7.9898e+00_jprb/)  
kbo( :, 4,28,11) = (/&
 & 9.1903e-01_jprb,3.3816e+00_jprb,5.4915e+00_jprb,7.1844e+00_jprb,8.0261e+00_jprb/)  
kbo( :, 5,28,11) = (/&
 & 1.1585e+00_jprb,3.5178e+00_jprb,5.6384e+00_jprb,7.3251e+00_jprb,8.0453e+00_jprb/)  
kbo( :, 1,29,11) = (/&
 & 3.7850e-01_jprb,2.9006e+00_jprb,4.9391e+00_jprb,6.6424e+00_jprb,7.8025e+00_jprb/)  
kbo( :, 2,29,11) = (/&
 & 5.1450e-01_jprb,3.0673e+00_jprb,5.1512e+00_jprb,6.8720e+00_jprb,7.9130e+00_jprb/)  
kbo( :, 3,29,11) = (/&
 & 6.7825e-01_jprb,3.2303e+00_jprb,5.3447e+00_jprb,7.0744e+00_jprb,7.9988e+00_jprb/)  
kbo( :, 4,29,11) = (/&
 & 8.7094e-01_jprb,3.3797e+00_jprb,5.5169e+00_jprb,7.2525e+00_jprb,8.0603e+00_jprb/)  
kbo( :, 5,29,11) = (/&
 & 1.0951e+00_jprb,3.5266e+00_jprb,5.6745e+00_jprb,7.3989e+00_jprb,8.0964e+00_jprb/)  
kbo( :, 1,30,11) = (/&
 & 3.6524e-01_jprb,2.8876e+00_jprb,4.9408e+00_jprb,6.6613e+00_jprb,7.7569e+00_jprb/)  
kbo( :, 2,30,11) = (/&
 & 4.9379e-01_jprb,3.0581e+00_jprb,5.1612e+00_jprb,6.9058e+00_jprb,7.8990e+00_jprb/)  
kbo( :, 3,30,11) = (/&
 & 6.4720e-01_jprb,3.2216e+00_jprb,5.3594e+00_jprb,7.1246e+00_jprb,8.0078e+00_jprb/)  
kbo( :, 4,30,11) = (/&
 & 8.2776e-01_jprb,3.3773e+00_jprb,5.5423e+00_jprb,7.3074e+00_jprb,8.0873e+00_jprb/)  
kbo( :, 5,30,11) = (/&
 & 1.0381e+00_jprb,3.5327e+00_jprb,5.7037e+00_jprb,7.4625e+00_jprb,8.1388e+00_jprb/)  
kbo( :, 1,31,11) = (/&
 & 3.5308e-01_jprb,2.8782e+00_jprb,4.9477e+00_jprb,6.6803e+00_jprb,7.7265e+00_jprb/)  
kbo( :, 2,31,11) = (/&
 & 4.7488e-01_jprb,3.0504e+00_jprb,5.1727e+00_jprb,6.9441e+00_jprb,7.8903e+00_jprb/)  
kbo( :, 3,31,11) = (/&
 & 6.2002e-01_jprb,3.2131e+00_jprb,5.3800e+00_jprb,7.1680e+00_jprb,8.0238e+00_jprb/)  
kbo( :, 4,31,11) = (/&
 & 7.9132e-01_jprb,3.3767e+00_jprb,5.5675e+00_jprb,7.3599e+00_jprb,8.1232e+00_jprb/)  
kbo( :, 5,31,11) = (/&
 & 9.9103e-01_jprb,3.5400e+00_jprb,5.7311e+00_jprb,7.5249e+00_jprb,8.1871e+00_jprb/)  
kbo( :, 1,32,11) = (/&
 & 3.4150e-01_jprb,2.8720e+00_jprb,4.9582e+00_jprb,6.7133e+00_jprb,7.7054e+00_jprb/)  
kbo( :, 2,32,11) = (/&
 & 4.5747e-01_jprb,3.0437e+00_jprb,5.1930e+00_jprb,6.9826e+00_jprb,7.9024e+00_jprb/)  
kbo( :, 3,32,11) = (/&
 & 5.9670e-01_jprb,3.2099e+00_jprb,5.4027e+00_jprb,7.2169e+00_jprb,8.0545e+00_jprb/)  
kbo( :, 4,32,11) = (/&
 & 7.6078e-01_jprb,3.3797e+00_jprb,5.5915e+00_jprb,7.4162e+00_jprb,8.1621e+00_jprb/)  
kbo( :, 5,32,11) = (/&
 & 9.5335e-01_jprb,3.5468e+00_jprb,5.7567e+00_jprb,7.5820e+00_jprb,8.2482e+00_jprb/)  
kbo( :, 1,33,11) = (/&
 & 3.3112e-01_jprb,2.8707e+00_jprb,4.9789e+00_jprb,6.7544e+00_jprb,7.7163e+00_jprb/)  
kbo( :, 2,33,11) = (/&
 & 4.4241e-01_jprb,3.0429e+00_jprb,5.2166e+00_jprb,7.0302e+00_jprb,7.9310e+00_jprb/)  
kbo( :, 3,33,11) = (/&
 & 5.7622e-01_jprb,3.2140e+00_jprb,5.4288e+00_jprb,7.2705e+00_jprb,8.0890e+00_jprb/)  
kbo( :, 4,33,11) = (/&
 & 7.3587e-01_jprb,3.3885e+00_jprb,5.6201e+00_jprb,7.4720e+00_jprb,8.2154e+00_jprb/)  
kbo( :, 5,33,11) = (/&
 & 9.2410e-01_jprb,3.5572e+00_jprb,5.7855e+00_jprb,7.6373e+00_jprb,8.3240e+00_jprb/)  
kbo( :, 1,34,11) = (/&
 & 3.1870e-01_jprb,2.8673e+00_jprb,5.0003e+00_jprb,6.7932e+00_jprb,7.7350e+00_jprb/)  
kbo( :, 2,34,11) = (/&
 & 4.2545e-01_jprb,3.0410e+00_jprb,5.2383e+00_jprb,7.0757e+00_jprb,7.9562e+00_jprb/)  
kbo( :, 3,34,11) = (/&
 & 5.5478e-01_jprb,3.2165e+00_jprb,5.4526e+00_jprb,7.3185e+00_jprb,8.1289e+00_jprb/)  
kbo( :, 4,34,11) = (/&
 & 7.0990e-01_jprb,3.3947e+00_jprb,5.6453e+00_jprb,7.5211e+00_jprb,8.2807e+00_jprb/)  
kbo( :, 5,34,11) = (/&
 & 8.9548e-01_jprb,3.5658e+00_jprb,5.8091e+00_jprb,7.6845e+00_jprb,8.3957e+00_jprb/)  
kbo( :, 1,35,11) = (/&
 & 2.9899e-01_jprb,2.8528e+00_jprb,5.0022e+00_jprb,6.8098e+00_jprb,7.7352e+00_jprb/)  
kbo( :, 2,35,11) = (/&
 & 4.0035e-01_jprb,3.0296e+00_jprb,5.2435e+00_jprb,7.1001e+00_jprb,7.9730e+00_jprb/)  
kbo( :, 3,35,11) = (/&
 & 5.2425e-01_jprb,3.2088e+00_jprb,5.4619e+00_jprb,7.3466e+00_jprb,8.1718e+00_jprb/)  
kbo( :, 4,35,11) = (/&
 & 6.7403e-01_jprb,3.3885e+00_jprb,5.6558e+00_jprb,7.5526e+00_jprb,8.3426e+00_jprb/)  
kbo( :, 5,35,11) = (/&
 & 8.5588e-01_jprb,3.5636e+00_jprb,5.8215e+00_jprb,7.7184e+00_jprb,8.4695e+00_jprb/)  
kbo( :, 1,36,11) = (/&
 & 2.7267e-01_jprb,2.8247e+00_jprb,4.9811e+00_jprb,6.7967e+00_jprb,7.7171e+00_jprb/)  
kbo( :, 2,36,11) = (/&
 & 3.6730e-01_jprb,3.0036e+00_jprb,5.2282e+00_jprb,7.0962e+00_jprb,7.9794e+00_jprb/)  
kbo( :, 3,36,11) = (/&
 & 4.8410e-01_jprb,3.1863e+00_jprb,5.4514e+00_jprb,7.3517e+00_jprb,8.2066e+00_jprb/)  
kbo( :, 4,36,11) = (/&
 & 6.2745e-01_jprb,3.3693e+00_jprb,5.6486e+00_jprb,7.5634e+00_jprb,8.3923e+00_jprb/)  
kbo( :, 5,36,11) = (/&
 & 8.0265e-01_jprb,3.5462e+00_jprb,5.8174e+00_jprb,7.7338e+00_jprb,8.5363e+00_jprb/)  
kbo( :, 1,37,11) = (/&
 & 2.3789e-01_jprb,2.7731e+00_jprb,4.9241e+00_jprb,6.7346e+00_jprb,7.6594e+00_jprb/)  
kbo( :, 2,37,11) = (/&
 & 3.2371e-01_jprb,2.9546e+00_jprb,5.1797e+00_jprb,7.0518e+00_jprb,7.9502e+00_jprb/)  
kbo( :, 3,37,11) = (/&
 & 4.3093e-01_jprb,3.1396e+00_jprb,5.4103e+00_jprb,7.3206e+00_jprb,8.2067e+00_jprb/)  
kbo( :, 4,37,11) = (/&
 & 5.6432e-01_jprb,3.3261e+00_jprb,5.6154e+00_jprb,7.5430e+00_jprb,8.4107e+00_jprb/)  
kbo( :, 5,37,11) = (/&
 & 7.2921e-01_jprb,3.5055e+00_jprb,5.7906e+00_jprb,7.7231e+00_jprb,8.5767e+00_jprb/)  
kbo( :, 1,38,11) = (/&
 & 2.0735e-01_jprb,2.7246e+00_jprb,4.8643e+00_jprb,6.6686e+00_jprb,7.6002e+00_jprb/)  

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


SUBROUTINE part29

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


kbo( :, 2,38,11) = (/&
 & 2.8530e-01_jprb,2.9075e+00_jprb,5.1303e+00_jprb,7.0023e+00_jprb,7.9233e+00_jprb/)  
kbo( :, 3,38,11) = (/&
 & 3.8349e-01_jprb,3.0952e+00_jprb,5.3688e+00_jprb,7.2838e+00_jprb,8.2079e+00_jprb/)  
kbo( :, 4,38,11) = (/&
 & 5.0781e-01_jprb,3.2834e+00_jprb,5.5805e+00_jprb,7.5172e+00_jprb,8.4321e+00_jprb/)  
kbo( :, 5,38,11) = (/&
 & 6.6307e-01_jprb,3.4663e+00_jprb,5.7630e+00_jprb,7.7072e+00_jprb,8.6191e+00_jprb/)  
kbo( :, 1,39,11) = (/&
 & 1.8082e-01_jprb,2.6797e+00_jprb,4.8064e+00_jprb,6.6001e+00_jprb,7.5476e+00_jprb/)  
kbo( :, 2,39,11) = (/&
 & 2.5186e-01_jprb,2.8651e+00_jprb,5.0819e+00_jprb,6.9495e+00_jprb,7.9070e+00_jprb/)  
kbo( :, 3,39,11) = (/&
 & 3.4240e-01_jprb,3.0532e+00_jprb,5.3282e+00_jprb,7.2446e+00_jprb,8.2139e+00_jprb/)  
kbo( :, 4,39,11) = (/&
 & 4.5842e-01_jprb,3.2439e+00_jprb,5.5467e+00_jprb,7.4896e+00_jprb,8.4602e+00_jprb/)  
kbo( :, 5,39,11) = (/&
 & 6.0509e-01_jprb,3.4298e+00_jprb,5.7341e+00_jprb,7.6881e+00_jprb,8.6682e+00_jprb/)  
kbo( :, 1,40,11) = (/&
 & 1.5207e-01_jprb,2.6179e+00_jprb,4.7176e+00_jprb,6.4886e+00_jprb,7.4449e+00_jprb/)  
kbo( :, 2,40,11) = (/&
 & 2.1512e-01_jprb,2.8059e+00_jprb,5.0086e+00_jprb,6.8609e+00_jprb,7.8328e+00_jprb/)  
kbo( :, 3,40,11) = (/&
 & 2.9689e-01_jprb,2.9943e+00_jprb,5.2638e+00_jprb,7.1743e+00_jprb,8.1664e+00_jprb/)  
kbo( :, 4,40,11) = (/&
 & 4.0254e-01_jprb,3.1876e+00_jprb,5.4913e+00_jprb,7.4357e+00_jprb,8.4349e+00_jprb/)  
kbo( :, 5,40,11) = (/&
 & 5.3785e-01_jprb,3.3763e+00_jprb,5.6880e+00_jprb,7.6474e+00_jprb,8.6627e+00_jprb/)  
kbo( :, 1,41,11) = (/&
 & 1.2695e-01_jprb,2.5542e+00_jprb,4.6228e+00_jprb,6.3672e+00_jprb,7.3294e+00_jprb/)  
kbo( :, 2,41,11) = (/&
 & 1.8252e-01_jprb,2.7470e+00_jprb,4.9288e+00_jprb,6.7628e+00_jprb,7.7447e+00_jprb/)  
kbo( :, 3,41,11) = (/&
 & 2.5614e-01_jprb,2.9363e+00_jprb,5.1938e+00_jprb,7.0965e+00_jprb,8.1064e+00_jprb/)  
kbo( :, 4,41,11) = (/&
 & 3.5214e-01_jprb,3.1287e+00_jprb,5.4316e+00_jprb,7.3741e+00_jprb,8.3985e+00_jprb/)  
kbo( :, 5,41,11) = (/&
 & 4.7642e-01_jprb,3.3197e+00_jprb,5.6390e+00_jprb,7.5995e+00_jprb,8.6452e+00_jprb/)  
kbo( :, 1,42,11) = (/&
 & 1.0572e-01_jprb,2.4914e+00_jprb,4.5264e+00_jprb,6.2425e+00_jprb,7.2103e+00_jprb/)  
kbo( :, 2,42,11) = (/&
 & 1.5450e-01_jprb,2.6890e+00_jprb,4.8460e+00_jprb,6.6593e+00_jprb,7.6506e+00_jprb/)  
kbo( :, 3,42,11) = (/&
 & 2.2046e-01_jprb,2.8775e+00_jprb,5.1228e+00_jprb,7.0129e+00_jprb,8.0405e+00_jprb/)  
kbo( :, 4,42,11) = (/&
 & 3.0794e-01_jprb,3.0704e+00_jprb,5.3705e+00_jprb,7.3070e+00_jprb,8.3576e+00_jprb/)  
kbo( :, 5,42,11) = (/&
 & 4.2243e-01_jprb,3.2655e+00_jprb,5.5859e+00_jprb,7.5484e+00_jprb,8.6234e+00_jprb/)  
kbo( :, 1,43,11) = (/&
 & 8.5799e-02_jprb,2.4158e+00_jprb,4.4064e+00_jprb,6.0854e+00_jprb,7.0535e+00_jprb/)  
kbo( :, 2,43,11) = (/&
 & 1.2776e-01_jprb,2.6198e+00_jprb,4.7439e+00_jprb,6.5289e+00_jprb,7.5260e+00_jprb/)  
kbo( :, 3,43,11) = (/&
 & 1.8555e-01_jprb,2.8110e+00_jprb,5.0358e+00_jprb,6.9052e+00_jprb,7.9459e+00_jprb/)  
kbo( :, 4,43,11) = (/&
 & 2.6399e-01_jprb,3.0044e+00_jprb,5.2930e+00_jprb,7.2200e+00_jprb,8.2902e+00_jprb/)  
kbo( :, 5,43,11) = (/&
 & 3.6761e-01_jprb,3.2003e+00_jprb,5.5191e+00_jprb,7.4799e+00_jprb,8.5786e+00_jprb/)  
kbo( :, 1,44,11) = (/&
 & 6.8535e-02_jprb,2.3354e+00_jprb,4.2721e+00_jprb,5.9087e+00_jprb,6.8762e+00_jprb/)  
kbo( :, 2,44,11) = (/&
 & 1.0421e-01_jprb,2.5468e+00_jprb,4.6283e+00_jprb,6.3792e+00_jprb,7.3815e+00_jprb/)  
kbo( :, 3,44,11) = (/&
 & 1.5420e-01_jprb,2.7418e+00_jprb,4.9358e+00_jprb,6.7810e+00_jprb,7.8336e+00_jprb/)  
kbo( :, 4,44,11) = (/&
 & 2.2347e-01_jprb,2.9335e+00_jprb,5.2044e+00_jprb,7.1195e+00_jprb,8.2083e+00_jprb/)  
kbo( :, 5,44,11) = (/&
 & 3.1682e-01_jprb,3.1294e+00_jprb,5.4461e+00_jprb,7.3981e+00_jprb,8.5217e+00_jprb/)  
kbo( :, 1,45,11) = (/&
 & 5.4457e-02_jprb,2.2535e+00_jprb,4.1320e+00_jprb,5.7238e+00_jprb,6.6894e+00_jprb/)  
kbo( :, 2,45,11) = (/&
 & 8.4549e-02_jprb,2.4711e+00_jprb,4.5065e+00_jprb,6.2198e+00_jprb,7.2293e+00_jprb/)  
kbo( :, 3,45,11) = (/&
 & 1.2761e-01_jprb,2.6717e+00_jprb,4.8324e+00_jprb,6.6492e+00_jprb,7.7146e+00_jprb/)  
kbo( :, 4,45,11) = (/&
 & 1.8837e-01_jprb,2.8633e+00_jprb,5.1155e+00_jprb,7.0100e+00_jprb,8.1205e+00_jprb/)  
kbo( :, 5,45,11) = (/&
 & 2.7227e-01_jprb,3.0592e+00_jprb,5.3653e+00_jprb,7.3089e+00_jprb,8.4600e+00_jprb/)  
kbo( :, 1,46,11) = (/&
 & 4.2589e-02_jprb,2.1649e+00_jprb,3.9784e+00_jprb,5.5163e+00_jprb,6.4796e+00_jprb/)  
kbo( :, 2,46,11) = (/&
 & 6.7560e-02_jprb,2.3893e+00_jprb,4.3722e+00_jprb,6.0430e+00_jprb,7.0551e+00_jprb/)  
kbo( :, 3,46,11) = (/&
 & 1.0417e-01_jprb,2.5968e+00_jprb,4.7173e+00_jprb,6.4988e+00_jprb,7.5749e+00_jprb/)  
kbo( :, 4,46,11) = (/&
 & 1.5686e-01_jprb,2.7912e+00_jprb,5.0150e+00_jprb,6.8844e+00_jprb,8.0167e+00_jprb/)  
kbo( :, 5,46,11) = (/&
 & 2.3102e-01_jprb,2.9860e+00_jprb,5.2763e+00_jprb,7.2084e+00_jprb,8.3844e+00_jprb/)  
kbo( :, 1,47,11) = (/&
 & 3.2329e-02_jprb,2.0635e+00_jprb,3.7990e+00_jprb,5.2746e+00_jprb,6.2270e+00_jprb/)  
kbo( :, 2,47,11) = (/&
 & 5.2621e-02_jprb,2.2974e+00_jprb,4.2140e+00_jprb,5.8338e+00_jprb,6.8413e+00_jprb/)  
kbo( :, 3,47,11) = (/&
 & 8.2966e-02_jprb,2.5124e+00_jprb,4.5790e+00_jprb,6.3183e+00_jprb,7.3957e+00_jprb/)  
kbo( :, 4,47,11) = (/&
 & 1.2765e-01_jprb,2.7111e+00_jprb,4.8962e+00_jprb,6.7355e+00_jprb,7.8773e+00_jprb/)  
kbo( :, 5,47,11) = (/&
 & 1.9183e-01_jprb,2.9039e+00_jprb,5.1733e+00_jprb,7.0849e+00_jprb,8.2769e+00_jprb/)  
kbo( :, 1,48,11) = (/&
 & 2.4260e-02_jprb,1.9590e+00_jprb,3.6114e+00_jprb,5.0219e+00_jprb,5.9614e+00_jprb/)  
kbo( :, 2,48,11) = (/&
 & 4.0661e-02_jprb,2.2016e+00_jprb,4.0471e+00_jprb,5.6109e+00_jprb,6.6162e+00_jprb/)  
kbo( :, 3,48,11) = (/&
 & 6.5567e-02_jprb,2.4242e+00_jprb,4.4350e+00_jprb,6.1272e+00_jprb,7.2066e+00_jprb/)  
kbo( :, 4,48,11) = (/&
 & 1.0316e-01_jprb,2.6297e+00_jprb,4.7726e+00_jprb,6.5740e+00_jprb,7.7277e+00_jprb/)  
kbo( :, 5,48,11) = (/&
 & 1.5827e-01_jprb,2.8235e+00_jprb,5.0650e+00_jprb,6.9498e+00_jprb,8.1636e+00_jprb/)  
kbo( :, 1,49,11) = (/&
 & 1.7994e-02_jprb,1.8499e+00_jprb,3.4182e+00_jprb,4.7557e+00_jprb,5.6860e+00_jprb/)  
kbo( :, 2,49,11) = (/&
 & 3.1088e-02_jprb,2.1039e+00_jprb,3.8735e+00_jprb,5.3754e+00_jprb,6.3833e+00_jprb/)  
kbo( :, 3,49,11) = (/&
 & 5.1455e-02_jprb,2.3348e+00_jprb,4.2824e+00_jprb,5.9252e+00_jprb,7.0121e+00_jprb/)  
kbo( :, 4,49,11) = (/&
 & 8.2689e-02_jprb,2.5471e+00_jprb,4.6395e+00_jprb,6.4001e+00_jprb,7.5720e+00_jprb/)  
kbo( :, 5,49,11) = (/&
 & 1.2977e-01_jprb,2.7449e+00_jprb,4.9494e+00_jprb,6.8054e+00_jprb,8.0481e+00_jprb/)  
kbo( :, 1,50,11) = (/&
 & 1.3371e-02_jprb,1.7459e+00_jprb,3.2314e+00_jprb,4.4954e+00_jprb,5.4078e+00_jprb/)  
kbo( :, 2,50,11) = (/&
 & 2.3833e-02_jprb,2.0084e+00_jprb,3.7026e+00_jprb,5.1456e+00_jprb,6.1414e+00_jprb/)  
kbo( :, 3,50,11) = (/&
 & 4.0559e-02_jprb,2.2474e+00_jprb,4.1296e+00_jprb,5.7236e+00_jprb,6.8056e+00_jprb/)  
kbo( :, 4,50,11) = (/&
 & 6.6648e-02_jprb,2.4671e+00_jprb,4.5076e+00_jprb,6.2258e+00_jprb,7.4018e+00_jprb/)  
kbo( :, 5,50,11) = (/&
 & 1.0683e-01_jprb,2.6694e+00_jprb,4.8363e+00_jprb,6.6602e+00_jprb,7.9136e+00_jprb/)  
kbo( :, 1,51,11) = (/&
 & 9.8653e-03_jprb,1.6429e+00_jprb,3.0451e+00_jprb,4.2358e+00_jprb,5.1231e+00_jprb/)  
kbo( :, 2,51,11) = (/&
 & 1.8201e-02_jprb,1.9124e+00_jprb,3.5299e+00_jprb,4.9113e+00_jprb,5.8903e+00_jprb/)  
kbo( :, 3,51,11) = (/&
 & 3.1898e-02_jprb,2.1605e+00_jprb,3.9764e+00_jprb,5.5162e+00_jprb,6.5869e+00_jprb/)  
kbo( :, 4,51,11) = (/&
 & 5.3712e-02_jprb,2.3869e+00_jprb,4.3743e+00_jprb,6.0489e+00_jprb,7.2173e+00_jprb/)  
kbo( :, 5,51,11) = (/&
 & 8.7772e-02_jprb,2.5955e+00_jprb,4.7209e+00_jprb,6.5087e+00_jprb,7.7625e+00_jprb/)  
kbo( :, 1,52,11) = (/&
 & 7.1653e-03_jprb,1.5381e+00_jprb,2.8544e+00_jprb,3.9674e+00_jprb,4.8308e+00_jprb/)  
kbo( :, 2,52,11) = (/&
 & 1.3765e-02_jprb,1.8137e+00_jprb,3.3544e+00_jprb,4.6675e+00_jprb,5.6327e+00_jprb/)  
kbo( :, 3,52,11) = (/&
 & 2.4855e-02_jprb,2.0712e+00_jprb,3.8173e+00_jprb,5.3003e+00_jprb,6.3625e+00_jprb/)  
kbo( :, 4,52,11) = (/&
 & 4.3007e-02_jprb,2.3053e+00_jprb,4.2329e+00_jprb,5.8617e+00_jprb,7.0261e+00_jprb/)  
kbo( :, 5,52,11) = (/&
 & 7.1746e-02_jprb,2.5209e+00_jprb,4.5976e+00_jprb,6.3464e+00_jprb,7.6074e+00_jprb/)  
kbo( :, 1,53,11) = (/&
 & 5.1115e-03_jprb,1.4319e+00_jprb,2.6598e+00_jprb,3.6923e+00_jprb,4.5327e+00_jprb/)  
kbo( :, 2,53,11) = (/&
 & 1.0264e-02_jprb,1.7132e+00_jprb,3.1732e+00_jprb,4.4138e+00_jprb,5.3644e+00_jprb/)  
kbo( :, 3,53,11) = (/&
 & 1.9168e-02_jprb,1.9787e+00_jprb,3.6497e+00_jprb,5.0750e+00_jprb,6.1311e+00_jprb/)  
kbo( :, 4,53,11) = (/&
 & 3.4142e-02_jprb,2.2206e+00_jprb,4.0841e+00_jprb,5.6629e+00_jprb,6.8305e+00_jprb/)  
kbo( :, 5,53,11) = (/&
 & 5.8320e-02_jprb,2.4429e+00_jprb,4.4694e+00_jprb,6.1755e+00_jprb,7.4521e+00_jprb/)  
kbo( :, 1,54,11) = (/&
 & 3.6599e-03_jprb,1.3331e+00_jprb,2.4769e+00_jprb,3.4372e+00_jprb,4.2368e+00_jprb/)  
kbo( :, 2,54,11) = (/&
 & 7.6954e-03_jprb,1.6189e+00_jprb,3.0020e+00_jprb,4.1755e+00_jprb,5.0910e+00_jprb/)  
kbo( :, 3,54,11) = (/&
 & 1.4927e-02_jprb,1.8903e+00_jprb,3.4914e+00_jprb,4.8585e+00_jprb,5.8811e+00_jprb/)  
kbo( :, 4,54,11) = (/&
 & 2.7354e-02_jprb,2.1411e+00_jprb,3.9432e+00_jprb,5.4718e+00_jprb,6.6071e+00_jprb/)  
kbo( :, 5,54,11) = (/&
 & 4.7880e-02_jprb,2.3694e+00_jprb,4.3455e+00_jprb,6.0119e+00_jprb,7.2530e+00_jprb/)  
kbo( :, 1,55,11) = (/&
 & 2.6041e-03_jprb,1.2377e+00_jprb,2.2999e+00_jprb,3.1900e+00_jprb,3.9377e+00_jprb/)  
kbo( :, 2,55,11) = (/&
 & 5.7429e-03_jprb,1.5271e+00_jprb,2.8349e+00_jprb,3.9397e+00_jprb,4.8084e+00_jprb/)  
kbo( :, 3,55,11) = (/&
 & 1.1607e-02_jprb,1.8036e+00_jprb,3.3372e+00_jprb,4.6433e+00_jprb,5.6183e+00_jprb/)  
kbo( :, 4,55,11) = (/&
 & 2.1919e-02_jprb,2.0624e+00_jprb,3.8024e+00_jprb,5.2808e+00_jprb,6.3606e+00_jprb/)  
kbo( :, 5,55,11) = (/&
 & 3.9357e-02_jprb,2.2976e+00_jprb,4.2205e+00_jprb,5.8462e+00_jprb,7.0320e+00_jprb/)  
kbo( :, 1,56,11) = (/&
 & 1.8212e-03_jprb,1.1423e+00_jprb,2.1234e+00_jprb,2.9415e+00_jprb,3.6402e+00_jprb/)  
kbo( :, 2,56,11) = (/&
 & 4.2220e-03_jprb,1.4344e+00_jprb,2.6648e+00_jprb,3.6993e+00_jprb,4.5216e+00_jprb/)  
kbo( :, 3,56,11) = (/&
 & 8.9199e-03_jprb,1.7161e+00_jprb,3.1791e+00_jprb,4.4224e+00_jprb,5.3514e+00_jprb/)  
kbo( :, 4,56,11) = (/&
 & 1.7443e-02_jprb,1.9818e+00_jprb,3.6561e+00_jprb,5.0841e+00_jprb,6.1109e+00_jprb/)  
kbo( :, 5,56,11) = (/&
 & 3.2146e-02_jprb,2.2236e+00_jprb,4.0904e+00_jprb,5.6718e+00_jprb,6.8038e+00_jprb/)  
kbo( :, 1,57,11) = (/&
 & 1.2487e-03_jprb,1.0475e+00_jprb,1.9452e+00_jprb,2.6920e+00_jprb,3.3454e+00_jprb/)  
kbo( :, 2,57,11) = (/&
 & 3.0556e-03_jprb,1.3407e+00_jprb,2.4912e+00_jprb,3.4567e+00_jprb,4.2318e+00_jprb/)  
kbo( :, 3,57,11) = (/&
 & 6.7633e-03_jprb,1.6266e+00_jprb,3.0165e+00_jprb,4.1956e+00_jprb,5.0790e+00_jprb/)  
kbo( :, 4,57,11) = (/&
 & 1.3762e-02_jprb,1.8981e+00_jprb,3.5056e+00_jprb,4.8781e+00_jprb,5.8578e+00_jprb/)  
kbo( :, 5,57,11) = (/&
 & 2.6062e-02_jprb,2.1481e+00_jprb,3.9566e+00_jprb,5.4903e+00_jprb,6.5663e+00_jprb/)  
kbo( :, 1,58,11) = (/&
 & 8.5190e-04_jprb,9.5769e-01_jprb,1.7770e+00_jprb,2.4580e+00_jprb,3.0673e+00_jprb/)  
kbo( :, 2,58,11) = (/&
 & 2.2048e-03_jprb,1.2510e+00_jprb,2.3247e+00_jprb,3.2249e+00_jprb,3.9528e+00_jprb/)  
kbo( :, 3,58,11) = (/&
 & 5.1227e-03_jprb,1.5404e+00_jprb,2.8593e+00_jprb,3.9742e+00_jprb,4.8120e+00_jprb/)  
kbo( :, 4,58,11) = (/&
 & 1.0857e-02_jprb,1.8165e+00_jprb,3.3607e+00_jprb,4.6761e+00_jprb,5.6102e+00_jprb/)  
kbo( :, 5,58,11) = (/&
 & 2.1207e-02_jprb,2.0743e+00_jprb,3.8247e+00_jprb,5.3111e+00_jprb,6.3315e+00_jprb/)  
kbo( :, 1,59,11) = (/&
 & 6.9156e-04_jprb,9.2148e-01_jprb,1.7091e+00_jprb,2.3639e+00_jprb,2.9470e+00_jprb/)  
kbo( :, 2,59,11) = (/&
 & 1.8554e-03_jprb,1.2146e+00_jprb,2.2573e+00_jprb,3.1301e+00_jprb,3.8229e+00_jprb/)  
kbo( :, 3,59,11) = (/&
 & 4.4546e-03_jprb,1.5052e+00_jprb,2.7951e+00_jprb,3.8834e+00_jprb,4.6728e+00_jprb/)  
kbo( :, 4,59,11) = (/&
 & 9.7022e-03_jprb,1.7833e+00_jprb,3.3009e+00_jprb,4.5928e+00_jprb,5.4696e+00_jprb/)  
kbo( :, 5,59,11) = (/&
 & 1.9310e-02_jprb,2.0440e+00_jprb,3.7699e+00_jprb,5.2372e+00_jprb,6.1828e+00_jprb/)  
kbo( :, 1,13,12) = (/&
 & 1.6565e+00_jprb,1.7848e+00_jprb,2.5700e+00_jprb,3.5717e+00_jprb,4.5988e+00_jprb/)  
kbo( :, 2,13,12) = (/&
 & 2.4215e+00_jprb,2.1271e+00_jprb,2.6999e+00_jprb,3.5485e+00_jprb,4.4641e+00_jprb/)  
kbo( :, 3,13,12) = (/&
 & 3.3369e+00_jprb,2.6815e+00_jprb,2.9576e+00_jprb,3.5009e+00_jprb,4.3216e+00_jprb/)  
kbo( :, 4,13,12) = (/&
 & 4.4039e+00_jprb,3.4401e+00_jprb,3.2679e+00_jprb,3.4869e+00_jprb,4.1798e+00_jprb/)  
kbo( :, 5,13,12) = (/&
 & 5.5941e+00_jprb,4.3251e+00_jprb,3.6079e+00_jprb,3.5523e+00_jprb,4.0718e+00_jprb/)  
kbo( :, 1,14,12) = (/&
 & 1.7762e+00_jprb,1.9421e+00_jprb,2.7864e+00_jprb,3.8795e+00_jprb,4.9959e+00_jprb/)  
kbo( :, 2,14,12) = (/&
 & 2.5729e+00_jprb,2.3289e+00_jprb,2.9407e+00_jprb,3.8344e+00_jprb,4.8460e+00_jprb/)  
kbo( :, 3,14,12) = (/&
 & 3.5256e+00_jprb,2.8532e+00_jprb,3.1735e+00_jprb,3.7815e+00_jprb,4.6937e+00_jprb/)  
kbo( :, 4,14,12) = (/&
 & 4.6225e+00_jprb,3.6062e+00_jprb,3.4878e+00_jprb,3.7727e+00_jprb,4.5592e+00_jprb/)  
kbo( :, 5,14,12) = (/&
 & 5.8383e+00_jprb,4.5040e+00_jprb,3.8887e+00_jprb,3.8650e+00_jprb,4.4445e+00_jprb/)  
kbo( :, 1,15,12) = (/&
 & 1.8721e+00_jprb,2.1191e+00_jprb,3.0241e+00_jprb,4.2075e+00_jprb,5.4430e+00_jprb/)  
kbo( :, 2,15,12) = (/&
 & 2.6862e+00_jprb,2.5250e+00_jprb,3.1995e+00_jprb,4.1499e+00_jprb,5.2993e+00_jprb/)  
kbo( :, 3,15,12) = (/&
 & 3.6549e+00_jprb,3.0295e+00_jprb,3.4400e+00_jprb,4.1044e+00_jprb,5.1665e+00_jprb/)  
kbo( :, 4,15,12) = (/&
 & 4.7570e+00_jprb,3.7259e+00_jprb,3.7691e+00_jprb,4.1180e+00_jprb,5.0472e+00_jprb/)  
kbo( :, 5,15,12) = (/&
 & 5.9648e+00_jprb,4.5949e+00_jprb,4.1611e+00_jprb,4.2079e+00_jprb,4.9426e+00_jprb/)  
kbo( :, 1,16,12) = (/&
 & 1.9290e+00_jprb,2.3038e+00_jprb,3.3146e+00_jprb,4.6435e+00_jprb,6.0407e+00_jprb/)  
kbo( :, 2,16,12) = (/&
 & 2.7431e+00_jprb,2.7084e+00_jprb,3.4673e+00_jprb,4.5698e+00_jprb,5.8966e+00_jprb/)  
kbo( :, 3,16,12) = (/&
 & 3.6970e+00_jprb,3.2040e+00_jprb,3.7345e+00_jprb,4.5214e+00_jprb,5.7687e+00_jprb/)  
kbo( :, 4,16,12) = (/&
 & 4.7715e+00_jprb,3.8272e+00_jprb,4.0666e+00_jprb,4.5545e+00_jprb,5.6476e+00_jprb/)  
kbo( :, 5,16,12) = (/&
 & 5.9496e+00_jprb,4.6127e+00_jprb,4.4402e+00_jprb,4.6207e+00_jprb,5.5338e+00_jprb/)  
kbo( :, 1,17,12) = (/&
 & 1.9373e+00_jprb,2.4828e+00_jprb,3.6697e+00_jprb,5.1796e+00_jprb,6.7612e+00_jprb/)  
kbo( :, 2,17,12) = (/&
 & 2.7255e+00_jprb,2.8755e+00_jprb,3.8159e+00_jprb,5.1042e+00_jprb,6.6167e+00_jprb/)  
kbo( :, 3,17,12) = (/&
 & 3.6395e+00_jprb,3.3552e+00_jprb,4.0591e+00_jprb,5.0640e+00_jprb,6.4791e+00_jprb/)  
kbo( :, 4,17,12) = (/&
 & 4.6714e+00_jprb,3.9092e+00_jprb,4.3629e+00_jprb,5.0919e+00_jprb,6.3471e+00_jprb/)  
kbo( :, 5,17,12) = (/&
 & 5.8138e+00_jprb,4.6040e+00_jprb,4.7123e+00_jprb,5.1320e+00_jprb,6.2136e+00_jprb/)  
kbo( :, 1,18,12) = (/&
 & 1.8923e+00_jprb,2.6601e+00_jprb,4.0950e+00_jprb,5.7689e+00_jprb,7.5292e+00_jprb/)  
kbo( :, 2,18,12) = (/&
 & 2.6358e+00_jprb,3.0291e+00_jprb,4.2495e+00_jprb,5.7045e+00_jprb,7.3896e+00_jprb/)  
kbo( :, 3,18,12) = (/&
 & 3.5005e+00_jprb,3.4699e+00_jprb,4.4508e+00_jprb,5.6824e+00_jprb,7.2449e+00_jprb/)  
kbo( :, 4,18,12) = (/&
 & 4.4831e+00_jprb,3.9859e+00_jprb,4.6968e+00_jprb,5.6976e+00_jprb,7.0972e+00_jprb/)  
kbo( :, 5,18,12) = (/&
 & 5.5803e+00_jprb,4.6005e+00_jprb,4.9912e+00_jprb,5.7191e+00_jprb,6.9473e+00_jprb/)  
kbo( :, 1,19,12) = (/&
 & 1.8026e+00_jprb,2.8675e+00_jprb,4.5643e+00_jprb,6.3966e+00_jprb,8.3446e+00_jprb/)  
kbo( :, 2,19,12) = (/&
 & 2.4955e+00_jprb,3.1750e+00_jprb,4.7346e+00_jprb,6.3280e+00_jprb,8.1858e+00_jprb/)  
kbo( :, 3,19,12) = (/&
 & 3.3065e+00_jprb,3.5656e+00_jprb,4.9096e+00_jprb,6.3278e+00_jprb,8.0274e+00_jprb/)  
kbo( :, 4,19,12) = (/&
 & 4.2336e+00_jprb,4.0373e+00_jprb,5.1018e+00_jprb,6.3400e+00_jprb,7.8734e+00_jprb/)  
kbo( :, 5,19,12) = (/&
 & 5.2638e+00_jprb,4.5965e+00_jprb,5.3281e+00_jprb,6.3749e+00_jprb,7.7186e+00_jprb/)  
kbo( :, 1,20,12) = (/&
 & 1.6924e+00_jprb,3.1159e+00_jprb,5.0615e+00_jprb,7.0193e+00_jprb,9.1509e+00_jprb/)  

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


SUBROUTINE part30

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


kbo( :, 2,20,12) = (/&
 & 2.3342e+00_jprb,3.3609e+00_jprb,5.2475e+00_jprb,6.9651e+00_jprb,8.9802e+00_jprb/)  
kbo( :, 3,20,12) = (/&
 & 3.0883e+00_jprb,3.6808e+00_jprb,5.4216e+00_jprb,6.9801e+00_jprb,8.8129e+00_jprb/)  
kbo( :, 4,20,12) = (/&
 & 3.9463e+00_jprb,4.0848e+00_jprb,5.5777e+00_jprb,7.0012e+00_jprb,8.6463e+00_jprb/)  
kbo( :, 5,20,12) = (/&
 & 4.8961e+00_jprb,4.5736e+00_jprb,5.7512e+00_jprb,7.0663e+00_jprb,8.4743e+00_jprb/)  
kbo( :, 1,21,12) = (/&
 & 1.5690e+00_jprb,3.3918e+00_jprb,5.5679e+00_jprb,7.6325e+00_jprb,9.9359e+00_jprb/)  
kbo( :, 2,21,12) = (/&
 & 2.1586e+00_jprb,3.5959e+00_jprb,5.7632e+00_jprb,7.6131e+00_jprb,9.7631e+00_jprb/)  
kbo( :, 3,21,12) = (/&
 & 2.8476e+00_jprb,3.8439e+00_jprb,5.9415e+00_jprb,7.6317e+00_jprb,9.5829e+00_jprb/)  
kbo( :, 4,21,12) = (/&
 & 3.6276e+00_jprb,4.1634e+00_jprb,6.0894e+00_jprb,7.6838e+00_jprb,9.4023e+00_jprb/)  
kbo( :, 5,21,12) = (/&
 & 4.4917e+00_jprb,4.5642e+00_jprb,6.2271e+00_jprb,7.7630e+00_jprb,9.2137e+00_jprb/)  
kbo( :, 1,22,12) = (/&
 & 1.4699e+00_jprb,3.6838e+00_jprb,6.0744e+00_jprb,8.2202e+00_jprb,1.0664e+01_jprb/)  
kbo( :, 2,22,12) = (/&
 & 2.0081e+00_jprb,3.8770e+00_jprb,6.2779e+00_jprb,8.2401e+00_jprb,1.0485e+01_jprb/)  
kbo( :, 3,22,12) = (/&
 & 2.6322e+00_jprb,4.0768e+00_jprb,6.4526e+00_jprb,8.2804e+00_jprb,1.0306e+01_jprb/)  
kbo( :, 4,22,12) = (/&
 & 3.3385e+00_jprb,4.3174e+00_jprb,6.6003e+00_jprb,8.3666e+00_jprb,1.0115e+01_jprb/)  
kbo( :, 5,22,12) = (/&
 & 4.1224e+00_jprb,4.6294e+00_jprb,6.7220e+00_jprb,8.4420e+00_jprb,9.9167e+00_jprb/)  
kbo( :, 1,23,12) = (/&
 & 1.3635e+00_jprb,3.9535e+00_jprb,6.5578e+00_jprb,8.7891e+00_jprb,1.1317e+01_jprb/)  
kbo( :, 2,23,12) = (/&
 & 1.8479e+00_jprb,4.1472e+00_jprb,6.7653e+00_jprb,8.8306e+00_jprb,1.1151e+01_jprb/)  
kbo( :, 3,23,12) = (/&
 & 2.4090e+00_jprb,4.3291e+00_jprb,6.9299e+00_jprb,8.9124e+00_jprb,1.0971e+01_jprb/)  
kbo( :, 4,23,12) = (/&
 & 3.0476e+00_jprb,4.5186e+00_jprb,7.0757e+00_jprb,9.0158e+00_jprb,1.0781e+01_jprb/)  
kbo( :, 5,23,12) = (/&
 & 3.7677e+00_jprb,4.7466e+00_jprb,7.1916e+00_jprb,9.0858e+00_jprb,1.0580e+01_jprb/)  
kbo( :, 1,24,12) = (/&
 & 1.2524e+00_jprb,4.1964e+00_jprb,7.0027e+00_jprb,9.3088e+00_jprb,1.1891e+01_jprb/)  
kbo( :, 2,24,12) = (/&
 & 1.6860e+00_jprb,4.3866e+00_jprb,7.2061e+00_jprb,9.3894e+00_jprb,1.1740e+01_jprb/)  
kbo( :, 3,24,12) = (/&
 & 2.1916e+00_jprb,4.5632e+00_jprb,7.3707e+00_jprb,9.5161e+00_jprb,1.1574e+01_jprb/)  
kbo( :, 4,24,12) = (/&
 & 2.7755e+00_jprb,4.7310e+00_jprb,7.5040e+00_jprb,9.6239e+00_jprb,1.1390e+01_jprb/)  
kbo( :, 5,24,12) = (/&
 & 3.4421e+00_jprb,4.9112e+00_jprb,7.6141e+00_jprb,9.6873e+00_jprb,1.1189e+01_jprb/)  
kbo( :, 1,25,12) = (/&
 & 1.1444e+00_jprb,4.4093e+00_jprb,7.3963e+00_jprb,9.7702e+00_jprb,1.2380e+01_jprb/)  
kbo( :, 2,25,12) = (/&
 & 1.5338e+00_jprb,4.5946e+00_jprb,7.5950e+00_jprb,9.9140e+00_jprb,1.2253e+01_jprb/)  
kbo( :, 3,25,12) = (/&
 & 1.9951e+00_jprb,4.7679e+00_jprb,7.7559e+00_jprb,1.0074e+01_jprb,1.2101e+01_jprb/)  
kbo( :, 4,25,12) = (/&
 & 2.5340e+00_jprb,4.9285e+00_jprb,7.8837e+00_jprb,1.0178e+01_jprb,1.1928e+01_jprb/)  
kbo( :, 5,25,12) = (/&
 & 3.1490e+00_jprb,5.0856e+00_jprb,7.9862e+00_jprb,1.0230e+01_jprb,1.1731e+01_jprb/)  
kbo( :, 1,26,12) = (/&
 & 1.0478e+00_jprb,4.5874e+00_jprb,7.7327e+00_jprb,1.0197e+01_jprb,1.2777e+01_jprb/)  
kbo( :, 2,26,12) = (/&
 & 1.4034e+00_jprb,4.7724e+00_jprb,7.9352e+00_jprb,1.0399e+01_jprb,1.2676e+01_jprb/)  
kbo( :, 3,26,12) = (/&
 & 1.8290e+00_jprb,4.9445e+00_jprb,8.0940e+00_jprb,1.0560e+01_jprb,1.2548e+01_jprb/)  
kbo( :, 4,26,12) = (/&
 & 2.3262e+00_jprb,5.0995e+00_jprb,8.2175e+00_jprb,1.0662e+01_jprb,1.2385e+01_jprb/)  
kbo( :, 5,26,12) = (/&
 & 2.8994e+00_jprb,5.2504e+00_jprb,8.3168e+00_jprb,1.0708e+01_jprb,1.2185e+01_jprb/)  
kbo( :, 1,27,12) = (/&
 & 9.6295e-01_jprb,4.7357e+00_jprb,8.0186e+00_jprb,1.0582e+01_jprb,1.3091e+01_jprb/)  
kbo( :, 2,27,12) = (/&
 & 1.2910e+00_jprb,4.9215e+00_jprb,8.2248e+00_jprb,1.0814e+01_jprb,1.3028e+01_jprb/)  
kbo( :, 3,27,12) = (/&
 & 1.6838e+00_jprb,5.0898e+00_jprb,8.3871e+00_jprb,1.0984e+01_jprb,1.2918e+01_jprb/)  
kbo( :, 4,27,12) = (/&
 & 2.1466e+00_jprb,5.2404e+00_jprb,8.5110e+00_jprb,1.1084e+01_jprb,1.2766e+01_jprb/)  
kbo( :, 5,27,12) = (/&
 & 2.6872e+00_jprb,5.3861e+00_jprb,8.6027e+00_jprb,1.1128e+01_jprb,1.2572e+01_jprb/)  
kbo( :, 1,28,12) = (/&
 & 8.9212e-01_jprb,4.8606e+00_jprb,8.2568e+00_jprb,1.0928e+01_jprb,1.3355e+01_jprb/)  
kbo( :, 2,28,12) = (/&
 & 1.1960e+00_jprb,5.0446e+00_jprb,8.4744e+00_jprb,1.1178e+01_jprb,1.3316e+01_jprb/)  
kbo( :, 3,28,12) = (/&
 & 1.5631e+00_jprb,5.2061e+00_jprb,8.6403e+00_jprb,1.1353e+01_jprb,1.3227e+01_jprb/)  
kbo( :, 4,28,12) = (/&
 & 2.0020e+00_jprb,5.3547e+00_jprb,8.7642e+00_jprb,1.1451e+01_jprb,1.3084e+01_jprb/)  
kbo( :, 5,28,12) = (/&
 & 2.5209e+00_jprb,5.4919e+00_jprb,8.8461e+00_jprb,1.1491e+01_jprb,1.2898e+01_jprb/)  
kbo( :, 1,29,12) = (/&
 & 8.3439e-01_jprb,4.9630e+00_jprb,8.4638e+00_jprb,1.1240e+01_jprb,1.3569e+01_jprb/)  
kbo( :, 2,29,12) = (/&
 & 1.1207e+00_jprb,5.1454e+00_jprb,8.6875e+00_jprb,1.1503e+01_jprb,1.3552e+01_jprb/)  
kbo( :, 3,29,12) = (/&
 & 1.4717e+00_jprb,5.3013e+00_jprb,8.8580e+00_jprb,1.1673e+01_jprb,1.3478e+01_jprb/)  
kbo( :, 4,29,12) = (/&
 & 1.8931e+00_jprb,5.4461e+00_jprb,8.9793e+00_jprb,1.1770e+01_jprb,1.3347e+01_jprb/)  
kbo( :, 5,29,12) = (/&
 & 2.3917e+00_jprb,5.5710e+00_jprb,9.0514e+00_jprb,1.1806e+01_jprb,1.3171e+01_jprb/)  
kbo( :, 1,30,12) = (/&
 & 7.8953e-01_jprb,5.0479e+00_jprb,8.6488e+00_jprb,1.1520e+01_jprb,1.3753e+01_jprb/)  
kbo( :, 2,30,12) = (/&
 & 1.0632e+00_jprb,5.2264e+00_jprb,8.8753e+00_jprb,1.1783e+01_jprb,1.3755e+01_jprb/)  
kbo( :, 3,30,12) = (/&
 & 1.4002e+00_jprb,5.3769e+00_jprb,9.0463e+00_jprb,1.1951e+01_jprb,1.3696e+01_jprb/)  
kbo( :, 4,30,12) = (/&
 & 1.8078e+00_jprb,5.5153e+00_jprb,9.1561e+00_jprb,1.2049e+01_jprb,1.3577e+01_jprb/)  
kbo( :, 5,30,12) = (/&
 & 2.2911e+00_jprb,5.6294e+00_jprb,9.2248e+00_jprb,1.2077e+01_jprb,1.3407e+01_jprb/)  
kbo( :, 1,31,12) = (/&
 & 7.5763e-01_jprb,5.1182e+00_jprb,8.8135e+00_jprb,1.1775e+01_jprb,1.3909e+01_jprb/)  
kbo( :, 2,31,12) = (/&
 & 1.0216e+00_jprb,5.2915e+00_jprb,9.0421e+00_jprb,1.2027e+01_jprb,1.3937e+01_jprb/)  
kbo( :, 3,31,12) = (/&
 & 1.3478e+00_jprb,5.4413e+00_jprb,9.2028e+00_jprb,1.2197e+01_jprb,1.3886e+01_jprb/)  
kbo( :, 4,31,12) = (/&
 & 1.7441e+00_jprb,5.5694e+00_jprb,9.3055e+00_jprb,1.2288e+01_jprb,1.3772e+01_jprb/)  
kbo( :, 5,31,12) = (/&
 & 2.2144e+00_jprb,5.6760e+00_jprb,9.3680e+00_jprb,1.2303e+01_jprb,1.3606e+01_jprb/)  
kbo( :, 1,32,12) = (/&
 & 7.3463e-01_jprb,5.1776e+00_jprb,8.9653e+00_jprb,1.1995e+01_jprb,1.4066e+01_jprb/)  
kbo( :, 2,32,12) = (/&
 & 9.9287e-01_jprb,5.3488e+00_jprb,9.1823e+00_jprb,1.2248e+01_jprb,1.4093e+01_jprb/)  
kbo( :, 3,32,12) = (/&
 & 1.3124e+00_jprb,5.4937e+00_jprb,9.3364e+00_jprb,1.2412e+01_jprb,1.4048e+01_jprb/)  
kbo( :, 4,32,12) = (/&
 & 1.6979e+00_jprb,5.6116e+00_jprb,9.4348e+00_jprb,1.2490e+01_jprb,1.3938e+01_jprb/)  
kbo( :, 5,32,12) = (/&
 & 2.1569e+00_jprb,5.7180e+00_jprb,9.4915e+00_jprb,1.2493e+01_jprb,1.3768e+01_jprb/)  
kbo( :, 1,33,12) = (/&
 & 7.1977e-01_jprb,5.2298e+00_jprb,9.0982e+00_jprb,1.2196e+01_jprb,1.4201e+01_jprb/)  
kbo( :, 2,33,12) = (/&
 & 9.7359e-01_jprb,5.3967e+00_jprb,9.3054e+00_jprb,1.2444e+01_jprb,1.4231e+01_jprb/)  
kbo( :, 3,33,12) = (/&
 & 1.2863e+00_jprb,5.5361e+00_jprb,9.4542e+00_jprb,1.2592e+01_jprb,1.4192e+01_jprb/)  
kbo( :, 4,33,12) = (/&
 & 1.6635e+00_jprb,5.6471e+00_jprb,9.5434e+00_jprb,1.2656e+01_jprb,1.4080e+01_jprb/)  
kbo( :, 5,33,12) = (/&
 & 2.1169e+00_jprb,5.7606e+00_jprb,9.5939e+00_jprb,1.2650e+01_jprb,1.3912e+01_jprb/)  
kbo( :, 1,34,12) = (/&
 & 7.0357e-01_jprb,5.2718e+00_jprb,9.2058e+00_jprb,1.2367e+01_jprb,1.4318e+01_jprb/)  
kbo( :, 2,34,12) = (/&
 & 9.5100e-01_jprb,5.4364e+00_jprb,9.4086e+00_jprb,1.2603e+01_jprb,1.4360e+01_jprb/)  
kbo( :, 3,34,12) = (/&
 & 1.2571e+00_jprb,5.5683e+00_jprb,9.5524e+00_jprb,1.2741e+01_jprb,1.4321e+01_jprb/)  
kbo( :, 4,34,12) = (/&
 & 1.6282e+00_jprb,5.6772e+00_jprb,9.6331e+00_jprb,1.2794e+01_jprb,1.4205e+01_jprb/)  
kbo( :, 5,34,12) = (/&
 & 2.0759e+00_jprb,5.7973e+00_jprb,9.6806e+00_jprb,1.2780e+01_jprb,1.4057e+01_jprb/)  
kbo( :, 1,35,12) = (/&
 & 6.7127e-01_jprb,5.2954e+00_jprb,9.2834e+00_jprb,1.2496e+01_jprb,1.4429e+01_jprb/)  
kbo( :, 2,35,12) = (/&
 & 9.0855e-01_jprb,5.4587e+00_jprb,9.4864e+00_jprb,1.2723e+01_jprb,1.4480e+01_jprb/)  
kbo( :, 3,35,12) = (/&
 & 1.2033e+00_jprb,5.5864e+00_jprb,9.6267e+00_jprb,1.2858e+01_jprb,1.4440e+01_jprb/)  
kbo( :, 4,35,12) = (/&
 & 1.5648e+00_jprb,5.6975e+00_jprb,9.7046e+00_jprb,1.2909e+01_jprb,1.4336e+01_jprb/)  
kbo( :, 5,35,12) = (/&
 & 2.0039e+00_jprb,5.8207e+00_jprb,9.7512e+00_jprb,1.2890e+01_jprb,1.4208e+01_jprb/)  
kbo( :, 1,36,12) = (/&
 & 6.2192e-01_jprb,5.2979e+00_jprb,9.3271e+00_jprb,1.2576e+01_jprb,1.4520e+01_jprb/)  
kbo( :, 2,36,12) = (/&
 & 8.4546e-01_jprb,5.4637e+00_jprb,9.5367e+00_jprb,1.2809e+01_jprb,1.4583e+01_jprb/)  
kbo( :, 3,36,12) = (/&
 & 1.1251e+00_jprb,5.5908e+00_jprb,9.6790e+00_jprb,1.2948e+01_jprb,1.4550e+01_jprb/)  
kbo( :, 4,36,12) = (/&
 & 1.4725e+00_jprb,5.7038e+00_jprb,9.7597e+00_jprb,1.3004e+01_jprb,1.4471e+01_jprb/)  
kbo( :, 5,36,12) = (/&
 & 1.8981e+00_jprb,5.8306e+00_jprb,9.8077e+00_jprb,1.2987e+01_jprb,1.4353e+01_jprb/)  
kbo( :, 1,37,12) = (/&
 & 5.5089e-01_jprb,5.2730e+00_jprb,9.3242e+00_jprb,1.2595e+01_jprb,1.4578e+01_jprb/)  
kbo( :, 2,37,12) = (/&
 & 7.5546e-01_jprb,5.4446e+00_jprb,9.5503e+00_jprb,1.2851e+01_jprb,1.4663e+01_jprb/)  
kbo( :, 3,37,12) = (/&
 & 1.0138e+00_jprb,5.5779e+00_jprb,9.7054e+00_jprb,1.3008e+01_jprb,1.4649e+01_jprb/)  
kbo( :, 4,37,12) = (/&
 & 1.3388e+00_jprb,5.6937e+00_jprb,9.7968e+00_jprb,1.3080e+01_jprb,1.4599e+01_jprb/)  
kbo( :, 5,37,12) = (/&
 & 1.7405e+00_jprb,5.8196e+00_jprb,9.8483e+00_jprb,1.3074e+01_jprb,1.4497e+01_jprb/)  
kbo( :, 1,38,12) = (/&
 & 4.8774e-01_jprb,5.2446e+00_jprb,9.3121e+00_jprb,1.2598e+01_jprb,1.4624e+01_jprb/)  
kbo( :, 2,38,12) = (/&
 & 6.7596e-01_jprb,5.4236e+00_jprb,9.5535e+00_jprb,1.2878e+01_jprb,1.4727e+01_jprb/)  
kbo( :, 3,38,12) = (/&
 & 9.1580e-01_jprb,5.5635e+00_jprb,9.7210e+00_jprb,1.3053e+01_jprb,1.4738e+01_jprb/)  
kbo( :, 4,38,12) = (/&
 & 1.2196e+00_jprb,5.6813e+00_jprb,9.8236e+00_jprb,1.3139e+01_jprb,1.4721e+01_jprb/)  
kbo( :, 5,38,12) = (/&
 & 1.5995e+00_jprb,5.8073e+00_jprb,9.8794e+00_jprb,1.3147e+01_jprb,1.4637e+01_jprb/)  
kbo( :, 1,39,12) = (/&
 & 4.3319e-01_jprb,5.2171e+00_jprb,9.2923e+00_jprb,1.2591e+01_jprb,1.4655e+01_jprb/)  
kbo( :, 2,39,12) = (/&
 & 6.0674e-01_jprb,5.4013e+00_jprb,9.5491e+00_jprb,1.2892e+01_jprb,1.4779e+01_jprb/)  
kbo( :, 3,39,12) = (/&
 & 8.3076e-01_jprb,5.5491e+00_jprb,9.7285e+00_jprb,1.3083e+01_jprb,1.4825e+01_jprb/)  
kbo( :, 4,39,12) = (/&
 & 1.1162e+00_jprb,5.6693e+00_jprb,9.8420e+00_jprb,1.3183e+01_jprb,1.4848e+01_jprb/)  
kbo( :, 5,39,12) = (/&
 & 1.4760e+00_jprb,5.7939e+00_jprb,9.9065e+00_jprb,1.3208e+01_jprb,1.4788e+01_jprb/)  
kbo( :, 1,40,12) = (/&
 & 3.7146e-01_jprb,5.1676e+00_jprb,9.2350e+00_jprb,1.2533e+01_jprb,1.4645e+01_jprb/)  
kbo( :, 2,40,12) = (/&
 & 5.2844e-01_jprb,5.3608e+00_jprb,9.5128e+00_jprb,1.2866e+01_jprb,1.4804e+01_jprb/)  
kbo( :, 3,40,12) = (/&
 & 7.3313e-01_jprb,5.5191e+00_jprb,9.7148e+00_jprb,1.3086e+01_jprb,1.4881e+01_jprb/)  
kbo( :, 4,40,12) = (/&
 & 9.9528e-01_jprb,5.6415e+00_jprb,9.8443e+00_jprb,1.3210e+01_jprb,1.4931e+01_jprb/)  
kbo( :, 5,40,12) = (/&
 & 1.3291e+00_jprb,5.7657e+00_jprb,9.9220e+00_jprb,1.3255e+01_jprb,1.4902e+01_jprb/)  
kbo( :, 1,41,12) = (/&
 & 3.1691e-01_jprb,5.1123e+00_jprb,9.1654e+00_jprb,1.2453e+01_jprb,1.4615e+01_jprb/)  
kbo( :, 2,41,12) = (/&
 & 4.5854e-01_jprb,5.3141e+00_jprb,9.4645e+00_jprb,1.2820e+01_jprb,1.4813e+01_jprb/)  
kbo( :, 3,41,12) = (/&
 & 6.4497e-01_jprb,5.4832e+00_jprb,9.6893e+00_jprb,1.3072e+01_jprb,1.4921e+01_jprb/)  
kbo( :, 4,41,12) = (/&
 & 8.8600e-01_jprb,5.6149e+00_jprb,9.8376e+00_jprb,1.3222e+01_jprb,1.5000e+01_jprb/)  
kbo( :, 5,41,12) = (/&
 & 1.1949e+00_jprb,5.7388e+00_jprb,9.9263e+00_jprb,1.3289e+01_jprb,1.5001e+01_jprb/)  
kbo( :, 1,42,12) = (/&
 & 2.6990e-01_jprb,5.0545e+00_jprb,9.0851e+00_jprb,1.2357e+01_jprb,1.4568e+01_jprb/)  
kbo( :, 2,42,12) = (/&
 & 3.9791e-01_jprb,5.2666e+00_jprb,9.4059e+00_jprb,1.2762e+01_jprb,1.4811e+01_jprb/)  
kbo( :, 3,42,12) = (/&
 & 5.6786e-01_jprb,5.4473e+00_jprb,9.6535e+00_jprb,1.3042e+01_jprb,1.4951e+01_jprb/)  
kbo( :, 4,42,12) = (/&
 & 7.8985e-01_jprb,5.5889e+00_jprb,9.8202e+00_jprb,1.3220e+01_jprb,1.5062e+01_jprb/)  
kbo( :, 5,42,12) = (/&
 & 1.0759e+00_jprb,5.7103e+00_jprb,9.9256e+00_jprb,1.3308e+01_jprb,1.5095e+01_jprb/)  
kbo( :, 1,43,12) = (/&
 & 2.2408e-01_jprb,4.9801e+00_jprb,8.9750e+00_jprb,1.2220e+01_jprb,1.4488e+01_jprb/)  
kbo( :, 2,43,12) = (/&
 & 3.3742e-01_jprb,5.2050e+00_jprb,9.3221e+00_jprb,1.2666e+01_jprb,1.4779e+01_jprb/)  
kbo( :, 3,43,12) = (/&
 & 4.9010e-01_jprb,5.3960e+00_jprb,9.5945e+00_jprb,1.2984e+01_jprb,1.4959e+01_jprb/)  
kbo( :, 4,43,12) = (/&
 & 6.9169e-01_jprb,5.5493e+00_jprb,9.7889e+00_jprb,1.3197e+01_jprb,1.5104e+01_jprb/)  
kbo( :, 5,43,12) = (/&
 & 9.5305e-01_jprb,5.6745e+00_jprb,9.9131e+00_jprb,1.3310e+01_jprb,1.5176e+01_jprb/)  
kbo( :, 1,44,12) = (/&
 & 1.8323e-01_jprb,4.8933e+00_jprb,8.8410e+00_jprb,1.2051e+01_jprb,1.4377e+01_jprb/)  
kbo( :, 2,44,12) = (/&
 & 2.8217e-01_jprb,5.1330e+00_jprb,9.2212e+00_jprb,1.2543e+01_jprb,1.4725e+01_jprb/)  
kbo( :, 3,44,12) = (/&
 & 4.1838e-01_jprb,5.3347e+00_jprb,9.5219e+00_jprb,1.2906e+01_jprb,1.4949e+01_jprb/)  
kbo( :, 4,44,12) = (/&
 & 5.9984e-01_jprb,5.5043e+00_jprb,9.7457e+00_jprb,1.3153e+01_jprb,1.5131e+01_jprb/)  
kbo( :, 5,44,12) = (/&
 & 8.3730e-01_jprb,5.6361e+00_jprb,9.8881e+00_jprb,1.3302e+01_jprb,1.5248e+01_jprb/)  
kbo( :, 1,45,12) = (/&
 & 1.4904e-01_jprb,4.8014e+00_jprb,8.6942e+00_jprb,1.1857e+01_jprb,1.4243e+01_jprb/)  
kbo( :, 2,45,12) = (/&
 & 2.3486e-01_jprb,5.0590e+00_jprb,9.1087e+00_jprb,1.2404e+01_jprb,1.4652e+01_jprb/)  
kbo( :, 3,45,12) = (/&
 & 3.5578e-01_jprb,5.2728e+00_jprb,9.4361e+00_jprb,1.2811e+01_jprb,1.4928e+01_jprb/)  
kbo( :, 4,45,12) = (/&
 & 5.1907e-01_jprb,5.4551e+00_jprb,9.6849e+00_jprb,1.3095e+01_jprb,1.5155e+01_jprb/)  
kbo( :, 5,45,12) = (/&
 & 7.3447e-01_jprb,5.5970e+00_jprb,9.8551e+00_jprb,1.3278e+01_jprb,1.5316e+01_jprb/)  
kbo( :, 1,46,12) = (/&
 & 1.1910e-01_jprb,4.6973e+00_jprb,8.5264e+00_jprb,1.1635e+01_jprb,1.4074e+01_jprb/)  
kbo( :, 2,46,12) = (/&
 & 1.9264e-01_jprb,4.9713e+00_jprb,8.9752e+00_jprb,1.2231e+01_jprb,1.4552e+01_jprb/)  
kbo( :, 3,46,12) = (/&
 & 2.9840e-01_jprb,5.1994e+00_jprb,9.3302e+00_jprb,1.2687e+01_jprb,1.4886e+01_jprb/)  
kbo( :, 4,46,12) = (/&
 & 4.4420e-01_jprb,5.3934e+00_jprb,9.6109e+00_jprb,1.3017e+01_jprb,1.5158e+01_jprb/)  
kbo( :, 5,46,12) = (/&
 & 6.3821e-01_jprb,5.5501e+00_jprb,9.8128e+00_jprb,1.3236e+01_jprb,1.5371e+01_jprb/)  
kbo( :, 1,47,12) = (/&
 & 9.2205e-02_jprb,4.5728e+00_jprb,8.3222e+00_jprb,1.1357e+01_jprb,1.3848e+01_jprb/)  
kbo( :, 2,47,12) = (/&
 & 1.5376e-01_jprb,4.8658e+00_jprb,8.8065e+00_jprb,1.2014e+01_jprb,1.4405e+01_jprb/)  
kbo( :, 3,47,12) = (/&
 & 2.4420e-01_jprb,5.1135e+00_jprb,9.2023e+00_jprb,1.2528e+01_jprb,1.4805e+01_jprb/)  
kbo( :, 4,47,12) = (/&
 & 3.7202e-01_jprb,5.3206e+00_jprb,9.5150e+00_jprb,1.2907e+01_jprb,1.5121e+01_jprb/)  
kbo( :, 5,47,12) = (/&
 & 5.4440e-01_jprb,5.4945e+00_jprb,9.7455e+00_jprb,1.3168e+01_jprb,1.5387e+01_jprb/)  
kbo( :, 1,48,12) = (/&
 & 7.0454e-02_jprb,4.4412e+00_jprb,8.1011e+00_jprb,1.1048e+01_jprb,1.3590e+01_jprb/)  
kbo( :, 2,48,12) = (/&
 & 1.2149e-01_jprb,4.7546e+00_jprb,8.6257e+00_jprb,1.1771e+01_jprb,1.4231e+01_jprb/)  
kbo( :, 3,48,12) = (/&
 & 1.9826e-01_jprb,5.0205e+00_jprb,9.0577e+00_jprb,1.2345e+01_jprb,1.4705e+01_jprb/)  
kbo( :, 4,48,12) = (/&
 & 3.0915e-01_jprb,5.2415e+00_jprb,9.3998e+00_jprb,1.2778e+01_jprb,1.5077e+01_jprb/)  
kbo( :, 5,48,12) = (/&
 & 4.6199e-01_jprb,5.4308e+00_jprb,9.6652e+00_jprb,1.3083e+01_jprb,1.5397e+01_jprb/)  
kbo( :, 1,49,12) = (/&
 & 5.3088e-02_jprb,4.3008e+00_jprb,7.8587e+00_jprb,1.0710e+01_jprb,1.3300e+01_jprb/)  

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


SUBROUTINE part31

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


kbo( :, 2,49,12) = (/&
 & 9.4886e-02_jprb,4.6325e+00_jprb,8.4260e+00_jprb,1.1503e+01_jprb,1.4035e+01_jprb/)  
kbo( :, 3,49,12) = (/&
 & 1.5966e-01_jprb,4.9173e+00_jprb,8.8952e+00_jprb,1.2135e+01_jprb,1.4593e+01_jprb/)  
kbo( :, 4,49,12) = (/&
 & 2.5505e-01_jprb,5.1573e+00_jprb,9.2755e+00_jprb,1.2624e+01_jprb,1.5028e+01_jprb/)  
kbo( :, 5,49,12) = (/&
 & 3.8941e-01_jprb,5.3580e+00_jprb,9.5745e+00_jprb,1.2980e+01_jprb,1.5409e+01_jprb/)  
kbo( :, 1,50,12) = (/&
 & 4.0067e-02_jprb,4.1596e+00_jprb,7.6089e+00_jprb,1.0372e+01_jprb,1.2988e+01_jprb/)  
kbo( :, 2,50,12) = (/&
 & 7.4256e-02_jprb,4.5125e+00_jprb,8.2260e+00_jprb,1.1225e+01_jprb,1.3810e+01_jprb/)  
kbo( :, 3,50,12) = (/&
 & 1.2901e-01_jprb,4.8174e+00_jprb,8.7310e+00_jprb,1.1915e+01_jprb,1.4444e+01_jprb/)  
kbo( :, 4,50,12) = (/&
 & 2.1116e-01_jprb,5.0740e+00_jprb,9.1458e+00_jprb,1.2461e+01_jprb,1.4934e+01_jprb/)  
kbo( :, 5,50,12) = (/&
 & 3.2945e-01_jprb,5.2879e+00_jprb,9.4738e+00_jprb,1.2866e+01_jprb,1.5371e+01_jprb/)  
kbo( :, 1,51,12) = (/&
 & 3.0082e-02_jprb,4.0166e+00_jprb,7.3470e+00_jprb,1.0024e+01_jprb,1.2649e+01_jprb/)  
kbo( :, 2,51,12) = (/&
 & 5.7864e-02_jprb,4.3904e+00_jprb,8.0166e+00_jprb,1.0930e+01_jprb,1.3555e+01_jprb/)  
kbo( :, 3,51,12) = (/&
 & 1.0385e-01_jprb,4.7103e+00_jprb,8.5593e+00_jprb,1.1684e+01_jprb,1.4265e+01_jprb/)  
kbo( :, 4,51,12) = (/&
 & 1.7451e-01_jprb,4.9838e+00_jprb,9.0063e+00_jprb,1.2280e+01_jprb,1.4812e+01_jprb/)  
kbo( :, 5,51,12) = (/&
 & 2.7822e-01_jprb,5.2130e+00_jprb,9.3629e+00_jprb,1.2735e+01_jprb,1.5297e+01_jprb/)  
kbo( :, 1,52,12) = (/&
 & 2.2321e-02_jprb,3.8633e+00_jprb,7.0669e+00_jprb,9.6645e+00_jprb,1.2286e+01_jprb/)  
kbo( :, 2,52,12) = (/&
 & 4.4568e-02_jprb,4.2586e+00_jprb,7.7887e+00_jprb,1.0615e+01_jprb,1.3275e+01_jprb/)  
kbo( :, 3,52,12) = (/&
 & 8.2764e-02_jprb,4.5976e+00_jprb,8.3722e+00_jprb,1.1430e+01_jprb,1.4067e+01_jprb/)  
kbo( :, 4,52,12) = (/&
 & 1.4332e-01_jprb,4.8897e+00_jprb,8.8533e+00_jprb,1.2081e+01_jprb,1.4681e+01_jprb/)  
kbo( :, 5,52,12) = (/&
 & 2.3359e-01_jprb,5.1350e+00_jprb,9.2453e+00_jprb,1.2589e+01_jprb,1.5214e+01_jprb/)  
kbo( :, 1,53,12) = (/&
 & 1.6320e-02_jprb,3.7017e+00_jprb,6.7670e+00_jprb,9.2859e+00_jprb,1.1890e+01_jprb/)  
kbo( :, 2,53,12) = (/&
 & 3.3883e-02_jprb,4.1210e+00_jprb,7.5408e+00_jprb,1.0281e+01_jprb,1.2972e+01_jprb/)  
kbo( :, 3,53,12) = (/&
 & 6.5211e-02_jprb,4.4803e+00_jprb,8.1737e+00_jprb,1.1152e+01_jprb,1.3849e+01_jprb/)  
kbo( :, 4,53,12) = (/&
 & 1.1656e-01_jprb,4.7901e+00_jprb,8.6895e+00_jprb,1.1861e+01_jprb,1.4540e+01_jprb/)  
kbo( :, 5,53,12) = (/&
 & 1.9454e-01_jprb,5.0513e+00_jprb,9.1138e+00_jprb,1.2423e+01_jprb,1.5132e+01_jprb/)  
kbo( :, 1,54,12) = (/&
 & 1.2044e-02_jprb,3.5460e+00_jprb,6.4769e+00_jprb,8.9175e+00_jprb,1.1478e+01_jprb/)  
kbo( :, 2,54,12) = (/&
 & 2.6009e-02_jprb,3.9878e+00_jprb,7.2955e+00_jprb,9.9571e+00_jprb,1.2628e+01_jprb/)  
kbo( :, 3,54,12) = (/&
 & 5.1821e-02_jprb,4.3666e+00_jprb,7.9779e+00_jprb,1.0876e+01_jprb,1.3583e+01_jprb/)  
kbo( :, 4,54,12) = (/&
 & 9.5474e-02_jprb,4.6901e+00_jprb,8.5279e+00_jprb,1.1644e+01_jprb,1.4331e+01_jprb/)  
kbo( :, 5,54,12) = (/&
 & 1.6346e-01_jprb,4.9679e+00_jprb,8.9829e+00_jprb,1.2251e+01_jprb,1.4953e+01_jprb/)  
kbo( :, 1,55,12) = (/&
 & 8.8474e-03_jprb,3.3874e+00_jprb,6.1849e+00_jprb,8.5463e+00_jprb,1.1054e+01_jprb/)  
kbo( :, 2,55,12) = (/&
 & 1.9964e-02_jprb,3.8514e+00_jprb,7.0467e+00_jprb,9.6387e+00_jprb,1.2268e+01_jprb/)  
kbo( :, 3,55,12) = (/&
 & 4.1152e-02_jprb,4.2498e+00_jprb,7.7746e+00_jprb,1.0596e+01_jprb,1.3279e+01_jprb/)  
kbo( :, 4,55,12) = (/&
 & 7.8159e-02_jprb,4.5905e+00_jprb,8.3623e+00_jprb,1.1417e+01_jprb,1.4084e+01_jprb/)  
kbo( :, 5,55,12) = (/&
 & 1.3750e-01_jprb,4.8845e+00_jprb,8.8463e+00_jprb,1.2073e+01_jprb,1.4722e+01_jprb/)  
kbo( :, 1,56,12) = (/&
 & 6.4082e-03_jprb,3.2244e+00_jprb,5.8774e+00_jprb,8.1652e+00_jprb,1.0610e+01_jprb/)  
kbo( :, 2,56,12) = (/&
 & 1.5162e-02_jprb,3.7100e+00_jprb,6.7838e+00_jprb,9.3060e+00_jprb,1.1893e+01_jprb/)  
kbo( :, 3,56,12) = (/&
 & 3.2388e-02_jprb,4.1289e+00_jprb,7.5561e+00_jprb,1.0301e+01_jprb,1.2952e+01_jprb/)  
kbo( :, 4,56,12) = (/&
 & 6.3471e-02_jprb,4.4879e+00_jprb,8.1882e+00_jprb,1.1172e+01_jprb,1.3823e+01_jprb/)  
kbo( :, 5,56,12) = (/&
 & 1.1487e-01_jprb,4.7971e+00_jprb,8.7028e+00_jprb,1.1880e+01_jprb,1.4496e+01_jprb/)  
kbo( :, 1,57,12) = (/&
 & 4.5631e-03_jprb,3.0511e+00_jprb,5.5587e+00_jprb,7.7750e+00_jprb,1.0138e+01_jprb/)  
kbo( :, 2,57,12) = (/&
 & 1.1368e-02_jprb,3.5622e+00_jprb,6.5073e+00_jprb,8.9555e+00_jprb,1.1499e+01_jprb/)  
kbo( :, 3,57,12) = (/&
 & 2.5250e-02_jprb,4.0025e+00_jprb,7.3232e+00_jprb,9.9930e+00_jprb,1.2617e+01_jprb/)  
kbo( :, 4,57,12) = (/&
 & 5.1105e-02_jprb,4.3794e+00_jprb,8.0015e+00_jprb,1.0910e+01_jprb,1.3544e+01_jprb/)  
kbo( :, 5,57,12) = (/&
 & 9.5178e-02_jprb,4.7023e+00_jprb,8.5498e+00_jprb,1.1673e+01_jprb,1.4270e+01_jprb/)  
kbo( :, 1,58,12) = (/&
 & 3.2442e-03_jprb,2.8817e+00_jprb,5.2469e+00_jprb,7.3938e+00_jprb,9.6647e+00_jprb/)  
kbo( :, 2,58,12) = (/&
 & 8.5196e-03_jprb,3.4130e+00_jprb,6.2333e+00_jprb,8.6058e+00_jprb,1.1102e+01_jprb/)  
kbo( :, 3,58,12) = (/&
 & 1.9737e-02_jprb,3.8740e+00_jprb,7.0888e+00_jprb,9.6922e+00_jprb,1.2287e+01_jprb/)  
kbo( :, 4,58,12) = (/&
 & 4.1256e-02_jprb,4.2697e+00_jprb,7.8107e+00_jprb,1.0646e+01_jprb,1.3253e+01_jprb/)  
kbo( :, 5,58,12) = (/&
 & 7.9005e-02_jprb,4.6081e+00_jprb,8.3923e+00_jprb,1.1459e+01_jprb,1.4032e+01_jprb/)  
kbo( :, 1,59,12) = (/&
 & 2.7554e-03_jprb,2.8115e+00_jprb,5.1204e+00_jprb,7.2380e+00_jprb,9.4574e+00_jprb/)  
kbo( :, 2,59,12) = (/&
 & 7.4695e-03_jprb,3.3520e+00_jprb,6.1191e+00_jprb,8.4629e+00_jprb,1.0919e+01_jprb/)  
kbo( :, 3,59,12) = (/&
 & 1.7700e-02_jprb,3.8208e+00_jprb,6.9919e+00_jprb,9.5688e+00_jprb,1.2133e+01_jprb/)  
kbo( :, 4,59,12) = (/&
 & 3.7590e-02_jprb,4.2246e+00_jprb,7.7306e+00_jprb,1.0537e+01_jprb,1.3092e+01_jprb/)  
kbo( :, 5,59,12) = (/&
 & 7.2976e-02_jprb,4.5698e+00_jprb,8.3286e+00_jprb,1.1370e+01_jprb,1.3863e+01_jprb/)  
kbo( :, 1,13,13) = (/&
 & 2.6529e+00_jprb,2.2831e+00_jprb,3.2422e+00_jprb,4.4425e+00_jprb,5.7532e+00_jprb/)  
kbo( :, 2,13,13) = (/&
 & 3.7901e+00_jprb,3.0012e+00_jprb,3.3868e+00_jprb,4.4780e+00_jprb,5.6304e+00_jprb/)  
kbo( :, 3,13,13) = (/&
 & 5.1407e+00_jprb,3.9898e+00_jprb,3.7034e+00_jprb,4.5284e+00_jprb,5.5094e+00_jprb/)  
kbo( :, 4,13,13) = (/&
 & 6.6849e+00_jprb,5.1505e+00_jprb,4.1152e+00_jprb,4.5525e+00_jprb,5.3863e+00_jprb/)  
kbo( :, 5,13,13) = (/&
 & 8.4107e+00_jprb,6.4413e+00_jprb,4.6939e+00_jprb,4.5962e+00_jprb,5.2598e+00_jprb/)  
kbo( :, 1,14,13) = (/&
 & 2.7859e+00_jprb,2.4754e+00_jprb,3.5707e+00_jprb,4.9274e+00_jprb,6.3617e+00_jprb/)  
kbo( :, 2,14,13) = (/&
 & 3.9819e+00_jprb,3.1616e+00_jprb,3.7430e+00_jprb,4.9467e+00_jprb,6.2248e+00_jprb/)  
kbo( :, 3,14,13) = (/&
 & 5.4169e+00_jprb,4.1984e+00_jprb,4.1076e+00_jprb,4.9547e+00_jprb,6.0805e+00_jprb/)  
kbo( :, 4,14,13) = (/&
 & 7.0660e+00_jprb,5.4307e+00_jprb,4.5231e+00_jprb,4.9634e+00_jprb,5.9266e+00_jprb/)  
kbo( :, 5,14,13) = (/&
 & 8.9144e+00_jprb,6.8140e+00_jprb,5.0663e+00_jprb,5.0044e+00_jprb,5.7690e+00_jprb/)  
kbo( :, 1,15,13) = (/&
 & 2.9857e+00_jprb,2.7217e+00_jprb,3.9316e+00_jprb,5.4603e+00_jprb,7.0398e+00_jprb/)  
kbo( :, 2,15,13) = (/&
 & 4.2764e+00_jprb,3.4089e+00_jprb,4.1424e+00_jprb,5.4476e+00_jprb,6.8612e+00_jprb/)  
kbo( :, 3,15,13) = (/&
 & 5.8211e+00_jprb,4.5002e+00_jprb,4.5148e+00_jprb,5.4204e+00_jprb,6.6790e+00_jprb/)  
kbo( :, 4,15,13) = (/&
 & 7.6022e+00_jprb,5.8275e+00_jprb,4.9790e+00_jprb,5.4051e+00_jprb,6.4972e+00_jprb/)  
kbo( :, 5,15,13) = (/&
 & 9.6077e+00_jprb,7.3247e+00_jprb,5.5648e+00_jprb,5.4790e+00_jprb,6.3175e+00_jprb/)  
kbo( :, 1,16,13) = (/&
 & 3.2520e+00_jprb,3.0398e+00_jprb,4.3234e+00_jprb,6.0080e+00_jprb,7.7322e+00_jprb/)  
kbo( :, 2,16,13) = (/&
 & 4.6456e+00_jprb,3.7621e+00_jprb,4.5833e+00_jprb,5.9695e+00_jprb,7.5298e+00_jprb/)  
kbo( :, 3,16,13) = (/&
 & 6.3086e+00_jprb,4.8685e+00_jprb,4.9506e+00_jprb,5.9143e+00_jprb,7.3233e+00_jprb/)  
kbo( :, 4,16,13) = (/&
 & 8.2262e+00_jprb,6.2820e+00_jprb,5.4881e+00_jprb,5.8959e+00_jprb,7.1229e+00_jprb/)  
kbo( :, 5,16,13) = (/&
 & 1.0371e+01_jprb,7.8838e+00_jprb,6.1617e+00_jprb,6.0261e+00_jprb,6.9371e+00_jprb/)  
kbo( :, 1,17,13) = (/&
 & 3.5103e+00_jprb,3.4027e+00_jprb,4.7571e+00_jprb,6.5946e+00_jprb,8.5011e+00_jprb/)  
kbo( :, 2,17,13) = (/&
 & 4.9855e+00_jprb,4.1396e+00_jprb,5.0300e+00_jprb,6.5219e+00_jprb,8.2752e+00_jprb/)  
kbo( :, 3,17,13) = (/&
 & 6.7391e+00_jprb,5.2214e+00_jprb,5.4410e+00_jprb,6.4503e+00_jprb,8.0549e+00_jprb/)  
kbo( :, 4,17,13) = (/&
 & 8.7527e+00_jprb,6.6750e+00_jprb,6.0440e+00_jprb,6.4589e+00_jprb,7.8521e+00_jprb/)  
kbo( :, 5,17,13) = (/&
 & 1.0977e+01_jprb,8.3330e+00_jprb,6.7610e+00_jprb,6.6072e+00_jprb,7.6623e+00_jprb/)  
kbo( :, 1,18,13) = (/&
 & 3.7201e+00_jprb,3.7715e+00_jprb,5.2410e+00_jprb,7.2877e+00_jprb,9.4447e+00_jprb/)  
kbo( :, 2,18,13) = (/&
 & 5.2473e+00_jprb,4.5163e+00_jprb,5.5131e+00_jprb,7.1747e+00_jprb,9.1964e+00_jprb/)  
kbo( :, 3,18,13) = (/&
 & 7.0567e+00_jprb,5.5681e+00_jprb,5.9890e+00_jprb,7.0880e+00_jprb,8.9663e+00_jprb/)  
kbo( :, 4,18,13) = (/&
 & 9.1072e+00_jprb,6.9581e+00_jprb,6.6273e+00_jprb,7.1370e+00_jprb,8.7546e+00_jprb/)  
kbo( :, 5,18,13) = (/&
 & 1.1367e+01_jprb,8.6174e+00_jprb,7.3488e+00_jprb,7.2704e+00_jprb,8.5556e+00_jprb/)  
kbo( :, 1,19,13) = (/&
 & 3.8561e+00_jprb,4.1299e+00_jprb,5.8089e+00_jprb,8.1195e+00_jprb,1.0564e+01_jprb/)  
kbo( :, 2,19,13) = (/&
 & 5.4052e+00_jprb,4.8948e+00_jprb,6.0739e+00_jprb,7.9918e+00_jprb,1.0309e+01_jprb/)  
kbo( :, 3,19,13) = (/&
 & 7.2158e+00_jprb,5.8804e+00_jprb,6.5899e+00_jprb,7.9071e+00_jprb,1.0068e+01_jprb/)  
kbo( :, 4,19,13) = (/&
 & 9.2611e+00_jprb,7.1822e+00_jprb,7.2047e+00_jprb,7.9510e+00_jprb,9.8352e+00_jprb/)  
kbo( :, 5,19,13) = (/&
 & 1.1520e+01_jprb,8.7584e+00_jprb,7.9092e+00_jprb,8.0447e+00_jprb,9.6021e+00_jprb/)  
kbo( :, 1,20,13) = (/&
 & 3.9352e+00_jprb,4.4974e+00_jprb,6.4850e+00_jprb,9.0968e+00_jprb,1.1862e+01_jprb/)  
kbo( :, 2,20,13) = (/&
 & 5.4656e+00_jprb,5.2567e+00_jprb,6.7702e+00_jprb,8.9553e+00_jprb,1.1592e+01_jprb/)  
kbo( :, 3,20,13) = (/&
 & 7.2432e+00_jprb,6.1806e+00_jprb,7.2339e+00_jprb,8.8912e+00_jprb,1.1329e+01_jprb/)  
kbo( :, 4,20,13) = (/&
 & 9.2559e+00_jprb,7.3730e+00_jprb,7.8059e+00_jprb,8.9109e+00_jprb,1.1059e+01_jprb/)  
kbo( :, 5,20,13) = (/&
 & 1.1478e+01_jprb,8.8414e+00_jprb,8.4557e+00_jprb,8.9640e+00_jprb,1.0785e+01_jprb/)  
kbo( :, 1,21,13) = (/&
 & 3.9152e+00_jprb,4.8660e+00_jprb,7.2675e+00_jprb,1.0177e+01_jprb,1.3275e+01_jprb/)  
kbo( :, 2,21,13) = (/&
 & 5.3925e+00_jprb,5.5769e+00_jprb,7.5673e+00_jprb,1.0032e+01_jprb,1.2988e+01_jprb/)  
kbo( :, 3,21,13) = (/&
 & 7.1172e+00_jprb,6.4580e+00_jprb,7.9491e+00_jprb,9.9865e+00_jprb,1.2690e+01_jprb/)  
kbo( :, 4,21,13) = (/&
 & 9.0683e+00_jprb,7.5180e+00_jprb,8.4370e+00_jprb,9.9647e+00_jprb,1.2379e+01_jprb/)  
kbo( :, 5,21,13) = (/&
 & 1.1238e+01_jprb,8.8639e+00_jprb,9.0125e+00_jprb,9.9895e+00_jprb,1.2064e+01_jprb/)  
kbo( :, 1,22,13) = (/&
 & 3.8909e+00_jprb,5.2900e+00_jprb,8.1566e+00_jprb,1.1308e+01_jprb,1.4732e+01_jprb/)  
kbo( :, 2,22,13) = (/&
 & 5.3181e+00_jprb,5.9209e+00_jprb,8.4402e+00_jprb,1.1175e+01_jprb,1.4410e+01_jprb/)  
kbo( :, 3,22,13) = (/&
 & 6.9795e+00_jprb,6.7348e+00_jprb,8.7599e+00_jprb,1.1122e+01_jprb,1.4067e+01_jprb/)  
kbo( :, 4,22,13) = (/&
 & 8.8688e+00_jprb,7.7237e+00_jprb,9.1513e+00_jprb,1.1075e+01_jprb,1.3709e+01_jprb/)  
kbo( :, 5,22,13) = (/&
 & 1.0970e+01_jprb,8.9302e+00_jprb,9.6408e+00_jprb,1.1105e+01_jprb,1.3343e+01_jprb/)  
kbo( :, 1,23,13) = (/&
 & 3.7997e+00_jprb,5.7292e+00_jprb,9.0913e+00_jprb,1.2436e+01_jprb,1.6180e+01_jprb/)  
kbo( :, 2,23,13) = (/&
 & 5.1595e+00_jprb,6.2753e+00_jprb,9.3535e+00_jprb,1.2331e+01_jprb,1.5809e+01_jprb/)  
kbo( :, 3,23,13) = (/&
 & 6.7493e+00_jprb,6.9925e+00_jprb,9.6137e+00_jprb,1.2263e+01_jprb,1.5425e+01_jprb/)  
kbo( :, 4,23,13) = (/&
 & 8.5542e+00_jprb,7.9012e+00_jprb,9.9104e+00_jprb,1.2220e+01_jprb,1.5025e+01_jprb/)  
kbo( :, 5,23,13) = (/&
 & 1.0561e+01_jprb,8.9781e+00_jprb,1.0309e+01_jprb,1.2253e+01_jprb,1.4614e+01_jprb/)  
kbo( :, 1,24,13) = (/&
 & 3.6631e+00_jprb,6.1905e+00_jprb,1.0011e+01_jprb,1.3544e+01_jprb,1.7573e+01_jprb/)  
kbo( :, 2,24,13) = (/&
 & 4.9530e+00_jprb,6.6528e+00_jprb,1.0267e+01_jprb,1.3455e+01_jprb,1.7161e+01_jprb/)  
kbo( :, 3,24,13) = (/&
 & 6.4554e+00_jprb,7.2715e+00_jprb,1.0481e+01_jprb,1.3377e+01_jprb,1.6726e+01_jprb/)  
kbo( :, 4,24,13) = (/&
 & 8.1608e+00_jprb,8.0605e+00_jprb,1.0709e+01_jprb,1.3365e+01_jprb,1.6282e+01_jprb/)  
kbo( :, 5,24,13) = (/&
 & 1.0048e+01_jprb,9.0171e+00_jprb,1.1006e+01_jprb,1.3382e+01_jprb,1.5827e+01_jprb/)  
kbo( :, 1,25,13) = (/&
 & 3.5057e+00_jprb,6.6591e+00_jprb,1.0912e+01_jprb,1.4625e+01_jprb,1.8883e+01_jprb/)  
kbo( :, 2,25,13) = (/&
 & 4.7154e+00_jprb,7.0448e+00_jprb,1.1156e+01_jprb,1.4541e+01_jprb,1.8427e+01_jprb/)  
kbo( :, 3,25,13) = (/&
 & 6.1224e+00_jprb,7.5602e+00_jprb,1.1335e+01_jprb,1.4472e+01_jprb,1.7954e+01_jprb/)  
kbo( :, 4,25,13) = (/&
 & 7.7153e+00_jprb,8.2240e+00_jprb,1.1508e+01_jprb,1.4486e+01_jprb,1.7464e+01_jprb/)  
kbo( :, 5,25,13) = (/&
 & 9.4941e+00_jprb,9.0534e+00_jprb,1.1717e+01_jprb,1.4473e+01_jprb,1.6960e+01_jprb/)  
kbo( :, 1,26,13) = (/&
 & 3.3374e+00_jprb,7.1235e+00_jprb,1.1789e+01_jprb,1.5669e+01_jprb,2.0088e+01_jprb/)  
kbo( :, 2,26,13) = (/&
 & 4.4661e+00_jprb,7.4439e+00_jprb,1.2007e+01_jprb,1.5575e+01_jprb,1.9597e+01_jprb/)  
kbo( :, 3,26,13) = (/&
 & 5.7769e+00_jprb,7.8591e+00_jprb,1.2149e+01_jprb,1.5545e+01_jprb,1.9088e+01_jprb/)  
kbo( :, 4,26,13) = (/&
 & 7.2756e+00_jprb,8.4078e+00_jprb,1.2269e+01_jprb,1.5555e+01_jprb,1.8555e+01_jprb/)  
kbo( :, 5,26,13) = (/&
 & 8.9639e+00_jprb,9.1104e+00_jprb,1.2401e+01_jprb,1.5501e+01_jprb,1.8008e+01_jprb/)  
kbo( :, 1,27,13) = (/&
 & 3.1533e+00_jprb,7.5608e+00_jprb,1.2611e+01_jprb,1.6642e+01_jprb,2.1191e+01_jprb/)  
kbo( :, 2,27,13) = (/&
 & 4.1993e+00_jprb,7.8220e+00_jprb,1.2795e+01_jprb,1.6570e+01_jprb,2.0672e+01_jprb/)  
kbo( :, 3,27,13) = (/&
 & 5.4265e+00_jprb,8.1469e+00_jprb,1.2900e+01_jprb,1.6567e+01_jprb,2.0125e+01_jprb/)  
kbo( :, 4,27,13) = (/&
 & 6.8378e+00_jprb,8.5911e+00_jprb,1.2961e+01_jprb,1.6544e+01_jprb,1.9552e+01_jprb/)  
kbo( :, 5,27,13) = (/&
 & 8.4460e+00_jprb,9.1761e+00_jprb,1.3028e+01_jprb,1.6437e+01_jprb,1.8965e+01_jprb/)  
kbo( :, 1,28,13) = (/&
 & 2.9616e+00_jprb,7.9550e+00_jprb,1.3362e+01_jprb,1.7538e+01_jprb,2.2180e+01_jprb/)  
kbo( :, 2,28,13) = (/&
 & 3.9383e+00_jprb,8.1625e+00_jprb,1.3501e+01_jprb,1.7502e+01_jprb,2.1637e+01_jprb/)  
kbo( :, 3,28,13) = (/&
 & 5.0899e+00_jprb,8.4137e+00_jprb,1.3570e+01_jprb,1.7504e+01_jprb,2.1054e+01_jprb/)  
kbo( :, 4,28,13) = (/&
 & 6.4309e+00_jprb,8.7658e+00_jprb,1.3582e+01_jprb,1.7435e+01_jprb,2.0443e+01_jprb/)  
kbo( :, 5,28,13) = (/&
 & 7.9687e+00_jprb,9.2612e+00_jprb,1.3583e+01_jprb,1.7274e+01_jprb,1.9806e+01_jprb/)  
kbo( :, 1,29,13) = (/&
 & 2.7798e+00_jprb,8.2996e+00_jprb,1.4029e+01_jprb,1.8369e+01_jprb,2.3056e+01_jprb/)  
kbo( :, 2,29,13) = (/&
 & 3.6961e+00_jprb,8.4616e+00_jprb,1.4123e+01_jprb,1.8351e+01_jprb,2.2490e+01_jprb/)  
kbo( :, 3,29,13) = (/&
 & 4.7900e+00_jprb,8.6571e+00_jprb,1.4153e+01_jprb,1.8339e+01_jprb,2.1869e+01_jprb/)  
kbo( :, 4,29,13) = (/&
 & 6.0802e+00_jprb,8.9313e+00_jprb,1.4117e+01_jprb,1.8214e+01_jprb,2.1214e+01_jprb/)  
kbo( :, 5,29,13) = (/&
 & 7.5801e+00_jprb,9.3590e+00_jprb,1.4065e+01_jprb,1.8003e+01_jprb,2.0531e+01_jprb/)  
kbo( :, 1,30,13) = (/&
 & 2.6097e+00_jprb,8.5908e+00_jprb,1.4603e+01_jprb,1.9121e+01_jprb,2.3810e+01_jprb/)  
kbo( :, 2,30,13) = (/&
 & 3.4798e+00_jprb,8.7177e+00_jprb,1.4662e+01_jprb,1.9123e+01_jprb,2.3210e+01_jprb/)  
kbo( :, 3,30,13) = (/&
 & 4.5355e+00_jprb,8.8683e+00_jprb,1.4648e+01_jprb,1.9056e+01_jprb,2.2548e+01_jprb/)  
kbo( :, 4,30,13) = (/&
 & 5.7939e+00_jprb,9.0839e+00_jprb,1.4573e+01_jprb,1.8881e+01_jprb,2.1848e+01_jprb/)  
kbo( :, 5,30,13) = (/&
 & 7.2765e+00_jprb,9.4615e+00_jprb,1.4472e+01_jprb,1.8622e+01_jprb,2.1123e+01_jprb/)  
kbo( :, 1,31,13) = (/&
 & 2.4675e+00_jprb,8.8387e+00_jprb,1.5097e+01_jprb,1.9786e+01_jprb,2.4442e+01_jprb/)  

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


SUBROUTINE part32

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


kbo( :, 2,31,13) = (/&
 & 3.3065e+00_jprb,8.9332e+00_jprb,1.5120e+01_jprb,1.9782e+01_jprb,2.3801e+01_jprb/)  
kbo( :, 3,31,13) = (/&
 & 4.3370e+00_jprb,9.0438e+00_jprb,1.5067e+01_jprb,1.9662e+01_jprb,2.3103e+01_jprb/)  
kbo( :, 4,31,13) = (/&
 & 5.5801e+00_jprb,9.2263e+00_jprb,1.4955e+01_jprb,1.9437e+01_jprb,2.2362e+01_jprb/)  
kbo( :, 5,31,13) = (/&
 & 7.0509e+00_jprb,9.5653e+00_jprb,1.4810e+01_jprb,1.9130e+01_jprb,2.1597e+01_jprb/)  
kbo( :, 1,32,13) = (/&
 & 2.3570e+00_jprb,9.0474e+00_jprb,1.5512e+01_jprb,2.0376e+01_jprb,2.4941e+01_jprb/)  
kbo( :, 2,32,13) = (/&
 & 3.1778e+00_jprb,9.1115e+00_jprb,1.5508e+01_jprb,2.0335e+01_jprb,2.4268e+01_jprb/)  
kbo( :, 3,32,13) = (/&
 & 4.1934e+00_jprb,9.1907e+00_jprb,1.5415e+01_jprb,2.0161e+01_jprb,2.3538e+01_jprb/)  
kbo( :, 4,32,13) = (/&
 & 5.4301e+00_jprb,9.3557e+00_jprb,1.5262e+01_jprb,1.9889e+01_jprb,2.2767e+01_jprb/)  
kbo( :, 5,32,13) = (/&
 & 6.9074e+00_jprb,9.6740e+00_jprb,1.5082e+01_jprb,1.9542e+01_jprb,2.1974e+01_jprb/)  
kbo( :, 1,33,13) = (/&
 & 2.2789e+00_jprb,9.2179e+00_jprb,1.5861e+01_jprb,2.0884e+01_jprb,2.5338e+01_jprb/)  
kbo( :, 2,33,13) = (/&
 & 3.0898e+00_jprb,9.2539e+00_jprb,1.5825e+01_jprb,2.0788e+01_jprb,2.4635e+01_jprb/)  
kbo( :, 3,33,13) = (/&
 & 4.1032e+00_jprb,9.3163e+00_jprb,1.5692e+01_jprb,2.0569e+01_jprb,2.3873e+01_jprb/)  
kbo( :, 4,33,13) = (/&
 & 5.3488e+00_jprb,9.4706e+00_jprb,1.5505e+01_jprb,2.0254e+01_jprb,2.3076e+01_jprb/)  
kbo( :, 5,33,13) = (/&
 & 6.8488e+00_jprb,9.7721e+00_jprb,1.5299e+01_jprb,1.9864e+01_jprb,2.2268e+01_jprb/)  
kbo( :, 1,34,13) = (/&
 & 2.2036e+00_jprb,9.3532e+00_jprb,1.6153e+01_jprb,2.1306e+01_jprb,2.5672e+01_jprb/)  
kbo( :, 2,34,13) = (/&
 & 3.0096e+00_jprb,9.3699e+00_jprb,1.6083e+01_jprb,2.1168e+01_jprb,2.4937e+01_jprb/)  
kbo( :, 3,34,13) = (/&
 & 4.0278e+00_jprb,9.4208e+00_jprb,1.5917e+01_jprb,2.0905e+01_jprb,2.4148e+01_jprb/)  
kbo( :, 4,34,13) = (/&
 & 5.2881e+00_jprb,9.5680e+00_jprb,1.5706e+01_jprb,2.0553e+01_jprb,2.3339e+01_jprb/)  
kbo( :, 5,34,13) = (/&
 & 6.8127e+00_jprb,9.8518e+00_jprb,1.5477e+01_jprb,2.0124e+01_jprb,2.2490e+01_jprb/)  
kbo( :, 1,35,13) = (/&
 & 2.0911e+00_jprb,9.4628e+00_jprb,1.6401e+01_jprb,2.1656e+01_jprb,2.5992e+01_jprb/)  
kbo( :, 2,35,13) = (/&
 & 2.8838e+00_jprb,9.4629e+00_jprb,1.6303e+01_jprb,2.1492e+01_jprb,2.5233e+01_jprb/)  
kbo( :, 3,35,13) = (/&
 & 3.8959e+00_jprb,9.5011e+00_jprb,1.6117e+01_jprb,2.1198e+01_jprb,2.4439e+01_jprb/)  
kbo( :, 4,35,13) = (/&
 & 5.1566e+00_jprb,9.6352e+00_jprb,1.5885e+01_jprb,2.0818e+01_jprb,2.3603e+01_jprb/)  
kbo( :, 5,35,13) = (/&
 & 6.6907e+00_jprb,9.8962e+00_jprb,1.5633e+01_jprb,2.0364e+01_jprb,2.2731e+01_jprb/)  
kbo( :, 1,36,13) = (/&
 & 1.9336e+00_jprb,9.5525e+00_jprb,1.6611e+01_jprb,2.1959e+01_jprb,2.6325e+01_jprb/)  
kbo( :, 2,36,13) = (/&
 & 2.7002e+00_jprb,9.5428e+00_jprb,1.6501e+01_jprb,2.1782e+01_jprb,2.5563e+01_jprb/)  
kbo( :, 3,36,13) = (/&
 & 3.6889e+00_jprb,9.5627e+00_jprb,1.6302e+01_jprb,2.1472e+01_jprb,2.4764e+01_jprb/)  
kbo( :, 4,36,13) = (/&
 & 4.9268e+00_jprb,9.6763e+00_jprb,1.6053e+01_jprb,2.1074e+01_jprb,2.3903e+01_jprb/)  
kbo( :, 5,36,13) = (/&
 & 6.4449e+00_jprb,9.9025e+00_jprb,1.5784e+01_jprb,2.0602e+01_jprb,2.3039e+01_jprb/)  
kbo( :, 1,37,13) = (/&
 & 1.7104e+00_jprb,9.6249e+00_jprb,1.6795e+01_jprb,2.2228e+01_jprb,2.6709e+01_jprb/)  
kbo( :, 2,37,13) = (/&
 & 2.4252e+00_jprb,9.6135e+00_jprb,1.6690e+01_jprb,2.2061e+01_jprb,2.5960e+01_jprb/)  
kbo( :, 3,37,13) = (/&
 & 3.3606e+00_jprb,9.6107e+00_jprb,1.6491e+01_jprb,2.1757e+01_jprb,2.5160e+01_jprb/)  
kbo( :, 4,37,13) = (/&
 & 4.5420e+00_jprb,9.6944e+00_jprb,1.6238e+01_jprb,2.1356e+01_jprb,2.4291e+01_jprb/)  
kbo( :, 5,37,13) = (/&
 & 6.0039e+00_jprb,9.8734e+00_jprb,1.5956e+01_jprb,2.0878e+01_jprb,2.3432e+01_jprb/)  
kbo( :, 1,38,13) = (/&
 & 1.5178e+00_jprb,9.6872e+00_jprb,1.6953e+01_jprb,2.2459e+01_jprb,2.7050e+01_jprb/)  
kbo( :, 2,38,13) = (/&
 & 2.1837e+00_jprb,9.6773e+00_jprb,1.6856e+01_jprb,2.2300e+01_jprb,2.6324e+01_jprb/)  
kbo( :, 3,38,13) = (/&
 & 3.0661e+00_jprb,9.6576e+00_jprb,1.6660e+01_jprb,2.2007e+01_jprb,2.5527e+01_jprb/)  
kbo( :, 4,38,13) = (/&
 & 4.1937e+00_jprb,9.7120e+00_jprb,1.6406e+01_jprb,2.1607e+01_jprb,2.4654e+01_jprb/)  
kbo( :, 5,38,13) = (/&
 & 5.6039e+00_jprb,9.8559e+00_jprb,1.6114e+01_jprb,2.1125e+01_jprb,2.3814e+01_jprb/)  
kbo( :, 1,39,13) = (/&
 & 1.3554e+00_jprb,9.7390e+00_jprb,1.7088e+01_jprb,2.2653e+01_jprb,2.7361e+01_jprb/)  
kbo( :, 2,39,13) = (/&
 & 1.9775e+00_jprb,9.7313e+00_jprb,1.6998e+01_jprb,2.2506e+01_jprb,2.6660e+01_jprb/)  
kbo( :, 3,39,13) = (/&
 & 2.8107e+00_jprb,9.7018e+00_jprb,1.6808e+01_jprb,2.2224e+01_jprb,2.5863e+01_jprb/)  
kbo( :, 4,39,13) = (/&
 & 3.8900e+00_jprb,9.7305e+00_jprb,1.6552e+01_jprb,2.1827e+01_jprb,2.4995e+01_jprb/)  
kbo( :, 5,39,13) = (/&
 & 5.2496e+00_jprb,9.8477e+00_jprb,1.6251e+01_jprb,2.1343e+01_jprb,2.4180e+01_jprb/)  
kbo( :, 1,40,13) = (/&
 & 1.1681e+00_jprb,9.7791e+00_jprb,1.7201e+01_jprb,2.2818e+01_jprb,2.7695e+01_jprb/)  
kbo( :, 2,40,13) = (/&
 & 1.7299e+00_jprb,9.7827e+00_jprb,1.7132e+01_jprb,2.2703e+01_jprb,2.7023e+01_jprb/)  
kbo( :, 3,40,13) = (/&
 & 2.4946e+00_jprb,9.7467e+00_jprb,1.6955e+01_jprb,2.2448e+01_jprb,2.6240e+01_jprb/)  
kbo( :, 4,40,13) = (/&
 & 3.5017e+00_jprb,9.7482e+00_jprb,1.6709e+01_jprb,2.2060e+01_jprb,2.5376e+01_jprb/)  
kbo( :, 5,40,13) = (/&
 & 4.7836e+00_jprb,9.8329e+00_jprb,1.6405e+01_jprb,2.1591e+01_jprb,2.4561e+01_jprb/)  
kbo( :, 1,41,13) = (/&
 & 1.0033e+00_jprb,9.8102e+00_jprb,1.7286e+01_jprb,2.2943e+01_jprb,2.8002e+01_jprb/)  
kbo( :, 2,41,13) = (/&
 & 1.5079e+00_jprb,9.8257e+00_jprb,1.7243e+01_jprb,2.2872e+01_jprb,2.7362e+01_jprb/)  
kbo( :, 3,41,13) = (/&
 & 2.2063e+00_jprb,9.7913e+00_jprb,1.7089e+01_jprb,2.2643e+01_jprb,2.6601e+01_jprb/)  
kbo( :, 4,41,13) = (/&
 & 3.1401e+00_jprb,9.7698e+00_jprb,1.6851e+01_jprb,2.2278e+01_jprb,2.5742e+01_jprb/)  
kbo( :, 5,41,13) = (/&
 & 4.3440e+00_jprb,9.8243e+00_jprb,1.6560e+01_jprb,2.1826e+01_jprb,2.4926e+01_jprb/)  
kbo( :, 1,42,13) = (/&
 & 8.6335e-01_jprb,9.8273e+00_jprb,1.7356e+01_jprb,2.3044e+01_jprb,2.8283e+01_jprb/)  
kbo( :, 2,42,13) = (/&
 & 1.3157e+00_jprb,9.8564e+00_jprb,1.7335e+01_jprb,2.3007e+01_jprb,2.7677e+01_jprb/)  
kbo( :, 3,42,13) = (/&
 & 1.9522e+00_jprb,9.8313e+00_jprb,1.7204e+01_jprb,2.2814e+01_jprb,2.6940e+01_jprb/)  
kbo( :, 4,42,13) = (/&
 & 2.8149e+00_jprb,9.7926e+00_jprb,1.6984e+01_jprb,2.2480e+01_jprb,2.6086e+01_jprb/)  
kbo( :, 5,42,13) = (/&
 & 3.9427e+00_jprb,9.8251e+00_jprb,1.6704e+01_jprb,2.2040e+01_jprb,2.5280e+01_jprb/)  
kbo( :, 1,43,13) = (/&
 & 7.2508e-01_jprb,9.8337e+00_jprb,1.7398e+01_jprb,2.3109e+01_jprb,2.8558e+01_jprb/)  
kbo( :, 2,43,13) = (/&
 & 1.1220e+00_jprb,9.8829e+00_jprb,1.7414e+01_jprb,2.3123e+01_jprb,2.7999e+01_jprb/)  
kbo( :, 3,43,13) = (/&
 & 1.6895e+00_jprb,9.8684e+00_jprb,1.7314e+01_jprb,2.2973e+01_jprb,2.7299e+01_jprb/)  
kbo( :, 4,43,13) = (/&
 & 2.4716e+00_jprb,9.8264e+00_jprb,1.7115e+01_jprb,2.2681e+01_jprb,2.6464e+01_jprb/)  
kbo( :, 5,43,13) = (/&
 & 3.5092e+00_jprb,9.8254e+00_jprb,1.6846e+01_jprb,2.2258e+01_jprb,2.5655e+01_jprb/)  
kbo( :, 1,44,13) = (/&
 & 6.0013e-01_jprb,9.8242e+00_jprb,1.7407e+01_jprb,2.3147e+01_jprb,2.8810e+01_jprb/)  
kbo( :, 2,44,13) = (/&
 & 9.4539e-01_jprb,9.8972e+00_jprb,1.7468e+01_jprb,2.3207e+01_jprb,2.8309e+01_jprb/)  
kbo( :, 3,44,13) = (/&
 & 1.4447e+00_jprb,9.9041e+00_jprb,1.7409e+01_jprb,2.3114e+01_jprb,2.7658e+01_jprb/)  
kbo( :, 4,44,13) = (/&
 & 2.1455e+00_jprb,9.8623e+00_jprb,1.7235e+01_jprb,2.2860e+01_jprb,2.6847e+01_jprb/)  
kbo( :, 5,44,13) = (/&
 & 3.0884e+00_jprb,9.8324e+00_jprb,1.6982e+01_jprb,2.2470e+01_jprb,2.6041e+01_jprb/)  
kbo( :, 1,45,13) = (/&
 & 4.9465e-01_jprb,9.7992e+00_jprb,1.7389e+01_jprb,2.3167e+01_jprb,2.9031e+01_jprb/)  
kbo( :, 2,45,13) = (/&
 & 7.9499e-01_jprb,9.8981e+00_jprb,1.7509e+01_jprb,2.3257e+01_jprb,2.8598e+01_jprb/)  
kbo( :, 3,45,13) = (/&
 & 1.2327e+00_jprb,9.9225e+00_jprb,1.7478e+01_jprb,2.3219e+01_jprb,2.7995e+01_jprb/)  
kbo( :, 4,45,13) = (/&
 & 1.8567e+00_jprb,9.8915e+00_jprb,1.7341e+01_jprb,2.3018e+01_jprb,2.7214e+01_jprb/)  
kbo( :, 5,45,13) = (/&
 & 2.7102e+00_jprb,9.8493e+00_jprb,1.7115e+01_jprb,2.2672e+01_jprb,2.6426e+01_jprb/)  
kbo( :, 1,46,13) = (/&
 & 4.0155e-01_jprb,9.7565e+00_jprb,1.7327e+01_jprb,2.3150e+01_jprb,2.9223e+01_jprb/)  
kbo( :, 2,46,13) = (/&
 & 6.5885e-01_jprb,9.8895e+00_jprb,1.7519e+01_jprb,2.3282e+01_jprb,2.8865e+01_jprb/)  
kbo( :, 3,46,13) = (/&
 & 1.0393e+00_jprb,9.9389e+00_jprb,1.7538e+01_jprb,2.3304e+01_jprb,2.8321e+01_jprb/)  
kbo( :, 4,46,13) = (/&
 & 1.5881e+00_jprb,9.9248e+00_jprb,1.7436e+01_jprb,2.3155e+01_jprb,2.7586e+01_jprb/)  
kbo( :, 5,46,13) = (/&
 & 2.3518e+00_jprb,9.8787e+00_jprb,1.7232e+01_jprb,2.2856e+01_jprb,2.6820e+01_jprb/)  
kbo( :, 1,47,13) = (/&
 & 3.1717e-01_jprb,9.6922e+00_jprb,1.7208e+01_jprb,2.3094e+01_jprb,2.9376e+01_jprb/)  
kbo( :, 2,47,13) = (/&
 & 5.3176e-01_jprb,9.8626e+00_jprb,1.7496e+01_jprb,2.3281e+01_jprb,2.9106e+01_jprb/)  
kbo( :, 3,47,13) = (/&
 & 8.5644e-01_jprb,9.9410e+00_jprb,1.7572e+01_jprb,2.3352e+01_jprb,2.8639e+01_jprb/)  
kbo( :, 4,47,13) = (/&
 & 1.3291e+00_jprb,9.9482e+00_jprb,1.7517e+01_jprb,2.3272e+01_jprb,2.7966e+01_jprb/)  
kbo( :, 5,47,13) = (/&
 & 1.9994e+00_jprb,9.9068e+00_jprb,1.7348e+01_jprb,2.3029e+01_jprb,2.7224e+01_jprb/)  
kbo( :, 1,48,13) = (/&
 & 2.4862e-01_jprb,9.6017e+00_jprb,1.7047e+01_jprb,2.3003e+01_jprb,2.9483e+01_jprb/)  
kbo( :, 2,48,13) = (/&
 & 4.2613e-01_jprb,9.8140e+00_jprb,1.7433e+01_jprb,2.3259e+01_jprb,2.9313e+01_jprb/)  
kbo( :, 3,48,13) = (/&
 & 7.0129e-01_jprb,9.9267e+00_jprb,1.7586e+01_jprb,2.3367e+01_jprb,2.8930e+01_jprb/)  
kbo( :, 4,48,13) = (/&
 & 1.1072e+00_jprb,9.9609e+00_jprb,1.7574e+01_jprb,2.3356e+01_jprb,2.8330e+01_jprb/)  
kbo( :, 5,48,13) = (/&
 & 1.6909e+00_jprb,9.9361e+00_jprb,1.7449e+01_jprb,2.3177e+01_jprb,2.7634e+01_jprb/)  
kbo( :, 1,49,13) = (/&
 & 1.9264e-01_jprb,9.4936e+00_jprb,1.6831e+01_jprb,2.2884e+01_jprb,2.9536e+01_jprb/)  
kbo( :, 2,49,13) = (/&
 & 3.3927e-01_jprb,9.7516e+00_jprb,1.7325e+01_jprb,2.3198e+01_jprb,2.9479e+01_jprb/)  
kbo( :, 3,49,13) = (/&
 & 5.6996e-01_jprb,9.9055e+00_jprb,1.7565e+01_jprb,2.3359e+01_jprb,2.9191e+01_jprb/)  
kbo( :, 4,49,13) = (/&
 & 9.1758e-01_jprb,9.9664e+00_jprb,1.7609e+01_jprb,2.3411e+01_jprb,2.8684e+01_jprb/)  
kbo( :, 5,49,13) = (/&
 & 1.4225e+00_jprb,9.9636e+00_jprb,1.7532e+01_jprb,2.3297e+01_jprb,2.8060e+01_jprb/)  
kbo( :, 1,50,13) = (/&
 & 1.4991e-01_jprb,9.3720e+00_jprb,1.6585e+01_jprb,2.2746e+01_jprb,2.9526e+01_jprb/)  
kbo( :, 2,50,13) = (/&
 & 2.7206e-01_jprb,9.6777e+00_jprb,1.7184e+01_jprb,2.3116e+01_jprb,2.9581e+01_jprb/)  
kbo( :, 3,50,13) = (/&
 & 4.6587e-01_jprb,9.8653e+00_jprb,1.7520e+01_jprb,2.3339e+01_jprb,2.9394e+01_jprb/)  
kbo( :, 4,50,13) = (/&
 & 7.6520e-01_jprb,9.9556e+00_jprb,1.7628e+01_jprb,2.3427e+01_jprb,2.8975e+01_jprb/)  
kbo( :, 5,50,13) = (/&
 & 1.2040e+00_jprb,9.9732e+00_jprb,1.7585e+01_jprb,2.3377e+01_jprb,2.8410e+01_jprb/)  
kbo( :, 1,51,13) = (/&
 & 1.1613e-01_jprb,9.2274e+00_jprb,1.6313e+01_jprb,2.2591e+01_jprb,2.9458e+01_jprb/)  
kbo( :, 2,51,13) = (/&
 & 2.1747e-01_jprb,9.5837e+00_jprb,1.7015e+01_jprb,2.3015e+01_jprb,2.9634e+01_jprb/)  
kbo( :, 3,51,13) = (/&
 & 3.8080e-01_jprb,9.8127e+00_jprb,1.7438e+01_jprb,2.3293e+01_jprb,2.9540e+01_jprb/)  
kbo( :, 4,51,13) = (/&
 & 6.3740e-01_jprb,9.9403e+00_jprb,1.7621e+01_jprb,2.3422e+01_jprb,2.9215e+01_jprb/)  
kbo( :, 5,51,13) = (/&
 & 1.0193e+00_jprb,9.9828e+00_jprb,1.7629e+01_jprb,2.3438e+01_jprb,2.8716e+01_jprb/)  
kbo( :, 1,52,13) = (/&
 & 8.8830e-02_jprb,9.0603e+00_jprb,1.6002e+01_jprb,2.2409e+01_jprb,2.9330e+01_jprb/)  
kbo( :, 2,52,13) = (/&
 & 1.7228e-01_jprb,9.4776e+00_jprb,1.6796e+01_jprb,2.2887e+01_jprb,2.9643e+01_jprb/)  
kbo( :, 3,52,13) = (/&
 & 3.0974e-01_jprb,9.7502e+00_jprb,1.7322e+01_jprb,2.3223e+01_jprb,2.9659e+01_jprb/)  
kbo( :, 4,52,13) = (/&
 & 5.2763e-01_jprb,9.9116e+00_jprb,1.7589e+01_jprb,2.3402e+01_jprb,2.9438e+01_jprb/)  
kbo( :, 5,52,13) = (/&
 & 8.5949e-01_jprb,9.9800e+00_jprb,1.7648e+01_jprb,2.3465e+01_jprb,2.9019e+01_jprb/)  
kbo( :, 1,53,13) = (/&
 & 6.6880e-02_jprb,8.8647e+00_jprb,1.5677e+01_jprb,2.2193e+01_jprb,2.9155e+01_jprb/)  
kbo( :, 2,53,13) = (/&
 & 1.3508e-01_jprb,9.3494e+00_jprb,1.6545e+01_jprb,2.2742e+01_jprb,2.9618e+01_jprb/)  
kbo( :, 3,53,13) = (/&
 & 2.5013e-01_jprb,9.6673e+00_jprb,1.7171e+01_jprb,2.3128e+01_jprb,2.9750e+01_jprb/)  
kbo( :, 4,53,13) = (/&
 & 4.3419e-01_jprb,9.8656e+00_jprb,1.7531e+01_jprb,2.3368e+01_jprb,2.9650e+01_jprb/)  
kbo( :, 5,53,13) = (/&
 & 7.2052e-01_jprb,9.9643e+00_jprb,1.7656e+01_jprb,2.3466e+01_jprb,2.9335e+01_jprb/)  
kbo( :, 1,54,13) = (/&
 & 5.0839e-02_jprb,8.6560e+00_jprb,1.5373e+01_jprb,2.1974e+01_jprb,2.8918e+01_jprb/)  
kbo( :, 2,54,13) = (/&
 & 1.0673e-01_jprb,9.2095e+00_jprb,1.6282e+01_jprb,2.2589e+01_jprb,2.9523e+01_jprb/)  
kbo( :, 3,54,13) = (/&
 & 2.0374e-01_jprb,9.5773e+00_jprb,1.7000e+01_jprb,2.3024e+01_jprb,2.9743e+01_jprb/)  
kbo( :, 4,54,13) = (/&
 & 3.6116e-01_jprb,9.8132e+00_jprb,1.7444e+01_jprb,2.3313e+01_jprb,2.9733e+01_jprb/)  
kbo( :, 5,54,13) = (/&
 & 6.0938e-01_jprb,9.9478e+00_jprb,1.7641e+01_jprb,2.3452e+01_jprb,2.9479e+01_jprb/)  
kbo( :, 1,55,13) = (/&
 & 3.8590e-02_jprb,8.4380e+00_jprb,1.5071e+01_jprb,2.1738e+01_jprb,2.8629e+01_jprb/)  
kbo( :, 2,55,13) = (/&
 & 8.4187e-02_jprb,9.0594e+00_jprb,1.6002e+01_jprb,2.2420e+01_jprb,2.9369e+01_jprb/)  
kbo( :, 3,55,13) = (/&
 & 1.6606e-01_jprb,9.4812e+00_jprb,1.6803e+01_jprb,2.2906e+01_jprb,2.9692e+01_jprb/)  
kbo( :, 4,55,13) = (/&
 & 3.0143e-01_jprb,9.7562e+00_jprb,1.7333e+01_jprb,2.3245e+01_jprb,2.9737e+01_jprb/)  
kbo( :, 5,55,13) = (/&
 & 5.1631e-01_jprb,9.9193e+00_jprb,1.7608e+01_jprb,2.3429e+01_jprb,2.9535e+01_jprb/)  
kbo( :, 1,56,13) = (/&
 & 2.8925e-02_jprb,8.1981e+00_jprb,1.4756e+01_jprb,2.1468e+01_jprb,2.8292e+01_jprb/)  
kbo( :, 2,56,13) = (/&
 & 6.5661e-02_jprb,8.8869e+00_jprb,1.5713e+01_jprb,2.2226e+01_jprb,2.9164e+01_jprb/)  
kbo( :, 3,56,13) = (/&
 & 1.3426e-01_jprb,9.3664e+00_jprb,1.6578e+01_jprb,2.2772e+01_jprb,2.9626e+01_jprb/)  
kbo( :, 4,56,13) = (/&
 & 2.5023e-01_jprb,9.6820e+00_jprb,1.7199e+01_jprb,2.3159e+01_jprb,2.9723e+01_jprb/)  
kbo( :, 5,56,13) = (/&
 & 4.3568e-01_jprb,9.8776e+00_jprb,1.7553e+01_jprb,2.3395e+01_jprb,2.9592e+01_jprb/)  
kbo( :, 1,57,13) = (/&
 & 2.1373e-02_jprb,7.9379e+00_jprb,1.4433e+01_jprb,2.1148e+01_jprb,2.7903e+01_jprb/)  
kbo( :, 2,57,13) = (/&
 & 5.0645e-02_jprb,8.6879e+00_jprb,1.5420e+01_jprb,2.2015e+01_jprb,2.8928e+01_jprb/)  
kbo( :, 3,57,13) = (/&
 & 1.0745e-01_jprb,9.2330e+00_jprb,1.6328e+01_jprb,2.2623e+01_jprb,2.9512e+01_jprb/)  
kbo( :, 4,57,13) = (/&
 & 2.0610e-01_jprb,9.5955e+00_jprb,1.7038e+01_jprb,2.3057e+01_jprb,2.9704e+01_jprb/)  
kbo( :, 5,57,13) = (/&
 & 3.6599e-01_jprb,9.8279e+00_jprb,1.7470e+01_jprb,2.3341e+01_jprb,2.9632e+01_jprb/)  
kbo( :, 1,58,13) = (/&
 & 1.5800e-02_jprb,7.6756e+00_jprb,1.4130e+01_jprb,2.0811e+01_jprb,2.7488e+01_jprb/)  
kbo( :, 2,58,13) = (/&
 & 3.9154e-02_jprb,8.4827e+00_jprb,1.5134e+01_jprb,2.1791e+01_jprb,2.8663e+01_jprb/)  
kbo( :, 3,58,13) = (/&
 & 8.6058e-02_jprb,9.0936e+00_jprb,1.6064e+01_jprb,2.2465e+01_jprb,2.9358e+01_jprb/)  
kbo( :, 4,58,13) = (/&
 & 1.7024e-01_jprb,9.5047e+00_jprb,1.6851e+01_jprb,2.2942e+01_jprb,2.9664e+01_jprb/)  
kbo( :, 5,58,13) = (/&
 & 3.0899e-01_jprb,9.7734e+00_jprb,1.7367e+01_jprb,2.3275e+01_jprb,2.9640e+01_jprb/)  
kbo( :, 1,59,13) = (/&
 & 1.3838e-02_jprb,7.5677e+00_jprb,1.4007e+01_jprb,2.0664e+01_jprb,2.7307e+01_jprb/)  
kbo( :, 2,59,13) = (/&
 & 3.5056e-02_jprb,8.3966e+00_jprb,1.5017e+01_jprb,2.1696e+01_jprb,2.8542e+01_jprb/)  
kbo( :, 3,59,13) = (/&
 & 7.8363e-02_jprb,9.0327e+00_jprb,1.5954e+01_jprb,2.2395e+01_jprb,2.9259e+01_jprb/)  
kbo( :, 4,59,13) = (/&
 & 1.5720e-01_jprb,9.4649e+00_jprb,1.6772e+01_jprb,2.2896e+01_jprb,2.9587e+01_jprb/)  
kbo( :, 5,59,13) = (/&
 & 2.8816e-01_jprb,9.7494e+00_jprb,1.7321e+01_jprb,2.3246e+01_jprb,2.9569e+01_jprb/)  
kbo( :, 1,13,14) = (/&
 & 4.6782e+00_jprb,3.6509e+00_jprb,4.2069e+00_jprb,5.5965e+00_jprb,7.3161e+00_jprb/)  

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


SUBROUTINE part33

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


kbo( :, 2,13,14) = (/&
 & 6.6812e+00_jprb,5.1302e+00_jprb,4.5042e+00_jprb,5.7107e+00_jprb,7.2956e+00_jprb/)  
kbo( :, 3,13,14) = (/&
 & 9.0802e+00_jprb,6.9191e+00_jprb,5.0854e+00_jprb,5.8389e+00_jprb,7.2254e+00_jprb/)  
kbo( :, 4,13,14) = (/&
 & 1.1847e+01_jprb,8.9860e+00_jprb,6.1879e+00_jprb,5.9827e+00_jprb,7.1308e+00_jprb/)  
kbo( :, 5,13,14) = (/&
 & 1.4944e+01_jprb,1.1307e+01_jprb,7.6807e+00_jprb,6.1087e+00_jprb,7.0090e+00_jprb/)  
kbo( :, 1,14,14) = (/&
 & 4.9923e+00_jprb,3.8888e+00_jprb,4.7381e+00_jprb,6.4037e+00_jprb,8.3224e+00_jprb/)  
kbo( :, 2,14,14) = (/&
 & 7.1439e+00_jprb,5.4635e+00_jprb,4.9958e+00_jprb,6.5120e+00_jprb,8.2505e+00_jprb/)  
kbo( :, 3,14,14) = (/&
 & 9.7357e+00_jprb,7.4026e+00_jprb,5.5402e+00_jprb,6.6306e+00_jprb,8.1450e+00_jprb/)  
kbo( :, 4,14,14) = (/&
 & 1.2709e+01_jprb,9.6301e+00_jprb,6.6722e+00_jprb,6.7341e+00_jprb,8.0104e+00_jprb/)  
kbo( :, 5,14,14) = (/&
 & 1.6035e+01_jprb,1.2120e+01_jprb,8.2226e+00_jprb,6.8436e+00_jprb,7.8600e+00_jprb/)  
kbo( :, 1,15,14) = (/&
 & 5.4062e+00_jprb,4.2107e+00_jprb,5.3329e+00_jprb,7.2809e+00_jprb,9.4098e+00_jprb/)  
kbo( :, 2,15,14) = (/&
 & 7.7383e+00_jprb,5.9068e+00_jprb,5.5826e+00_jprb,7.3825e+00_jprb,9.2906e+00_jprb/)  
kbo( :, 3,15,14) = (/&
 & 1.0510e+01_jprb,7.9793e+00_jprb,6.1638e+00_jprb,7.4874e+00_jprb,9.1316e+00_jprb/)  
kbo( :, 4,15,14) = (/&
 & 1.3725e+01_jprb,1.0385e+01_jprb,7.2775e+00_jprb,7.5682e+00_jprb,8.9529e+00_jprb/)  
kbo( :, 5,15,14) = (/&
 & 1.7334e+01_jprb,1.3091e+01_jprb,8.9110e+00_jprb,7.6564e+00_jprb,8.7607e+00_jprb/)  
kbo( :, 1,16,14) = (/&
 & 5.9070e+00_jprb,4.6227e+00_jprb,6.0140e+00_jprb,8.2333e+00_jprb,1.0600e+01_jprb/)  
kbo( :, 2,16,14) = (/&
 & 8.4297e+00_jprb,6.4209e+00_jprb,6.2881e+00_jprb,8.3090e+00_jprb,1.0416e+01_jprb/)  
kbo( :, 3,16,14) = (/&
 & 1.1476e+01_jprb,8.7000e+00_jprb,6.9539e+00_jprb,8.3944e+00_jprb,1.0210e+01_jprb/)  
kbo( :, 4,16,14) = (/&
 & 1.4985e+01_jprb,1.1333e+01_jprb,8.0898e+00_jprb,8.4541e+00_jprb,9.9887e+00_jprb/)  
kbo( :, 5,16,14) = (/&
 & 1.8893e+01_jprb,1.4263e+01_jprb,9.7433e+00_jprb,8.5272e+00_jprb,9.7516e+00_jprb/)  
kbo( :, 1,17,14) = (/&
 & 6.5286e+00_jprb,5.1327e+00_jprb,6.7700e+00_jprb,9.2670e+00_jprb,1.1882e+01_jprb/)  
kbo( :, 2,17,14) = (/&
 & 9.3114e+00_jprb,7.0853e+00_jprb,7.1236e+00_jprb,9.3227e+00_jprb,1.1650e+01_jprb/)  
kbo( :, 3,17,14) = (/&
 & 1.2634e+01_jprb,9.5700e+00_jprb,7.8705e+00_jprb,9.3681e+00_jprb,1.1400e+01_jprb/)  
kbo( :, 4,17,14) = (/&
 & 1.6437e+01_jprb,1.2419e+01_jprb,9.0210e+00_jprb,9.4013e+00_jprb,1.1124e+01_jprb/)  
kbo( :, 5,17,14) = (/&
 & 2.0695e+01_jprb,1.5610e+01_jprb,1.0717e+01_jprb,9.5036e+00_jprb,1.0836e+01_jprb/)  
kbo( :, 1,18,14) = (/&
 & 7.2317e+00_jprb,5.7331e+00_jprb,7.5895e+00_jprb,1.0388e+01_jprb,1.3283e+01_jprb/)  
kbo( :, 2,18,14) = (/&
 & 1.0272e+01_jprb,7.8128e+00_jprb,8.0485e+00_jprb,1.0408e+01_jprb,1.2989e+01_jprb/)  
kbo( :, 3,18,14) = (/&
 & 1.3865e+01_jprb,1.0490e+01_jprb,8.8399e+00_jprb,1.0411e+01_jprb,1.2668e+01_jprb/)  
kbo( :, 4,18,14) = (/&
 & 1.8001e+01_jprb,1.3591e+01_jprb,1.0044e+01_jprb,1.0415e+01_jprb,1.2336e+01_jprb/)  
kbo( :, 5,18,14) = (/&
 & 2.2607e+01_jprb,1.7043e+01_jprb,1.1818e+01_jprb,1.0584e+01_jprb,1.2000e+01_jprb/)  
kbo( :, 1,19,14) = (/&
 & 7.9818e+00_jprb,6.4241e+00_jprb,8.4744e+00_jprb,1.1590e+01_jprb,1.4808e+01_jprb/)  
kbo( :, 2,19,14) = (/&
 & 1.1265e+01_jprb,8.5751e+00_jprb,9.0608e+00_jprb,1.1546e+01_jprb,1.4436e+01_jprb/)  
kbo( :, 3,19,14) = (/&
 & 1.5159e+01_jprb,1.1457e+01_jprb,9.8998e+00_jprb,1.1494e+01_jprb,1.4048e+01_jprb/)  
kbo( :, 4,19,14) = (/&
 & 1.9623e+01_jprb,1.4803e+01_jprb,1.1193e+01_jprb,1.1515e+01_jprb,1.3659e+01_jprb/)  
kbo( :, 5,19,14) = (/&
 & 2.4552e+01_jprb,1.8498e+01_jprb,1.3028e+01_jprb,1.1768e+01_jprb,1.3289e+01_jprb/)  
kbo( :, 1,20,14) = (/&
 & 8.8016e+00_jprb,7.2179e+00_jprb,9.4445e+00_jprb,1.2859e+01_jprb,1.6432e+01_jprb/)  
kbo( :, 2,20,14) = (/&
 & 1.2354e+01_jprb,9.4599e+00_jprb,1.0108e+01_jprb,1.2760e+01_jprb,1.5989e+01_jprb/)  
kbo( :, 3,20,14) = (/&
 & 1.6553e+01_jprb,1.2501e+01_jprb,1.1094e+01_jprb,1.2659e+01_jprb,1.5545e+01_jprb/)  
kbo( :, 4,20,14) = (/&
 & 2.1320e+01_jprb,1.6075e+01_jprb,1.2479e+01_jprb,1.2712e+01_jprb,1.5125e+01_jprb/)  
kbo( :, 5,20,14) = (/&
 & 2.6584e+01_jprb,2.0023e+01_jprb,1.4364e+01_jprb,1.3028e+01_jprb,1.4722e+01_jprb/)  
kbo( :, 1,21,14) = (/&
 & 9.6531e+00_jprb,8.0964e+00_jprb,1.0501e+01_jprb,1.4235e+01_jprb,1.8234e+01_jprb/)  
kbo( :, 2,21,14) = (/&
 & 1.3477e+01_jprb,1.0427e+01_jprb,1.1223e+01_jprb,1.4069e+01_jprb,1.7720e+01_jprb/)  
kbo( :, 3,21,14) = (/&
 & 1.7944e+01_jprb,1.3555e+01_jprb,1.2376e+01_jprb,1.3942e+01_jprb,1.7224e+01_jprb/)  
kbo( :, 4,21,14) = (/&
 & 2.3006e+01_jprb,1.7340e+01_jprb,1.3886e+01_jprb,1.4053e+01_jprb,1.6755e+01_jprb/)  
kbo( :, 5,21,14) = (/&
 & 2.8574e+01_jprb,2.1516e+01_jprb,1.5811e+01_jprb,1.4416e+01_jprb,1.6302e+01_jprb/)  
kbo( :, 1,22,14) = (/&
 & 1.0760e+01_jprb,9.1888e+00_jprb,1.1695e+01_jprb,1.5745e+01_jprb,2.0205e+01_jprb/)  
kbo( :, 2,22,14) = (/&
 & 1.4853e+01_jprb,1.1640e+01_jprb,1.2517e+01_jprb,1.5515e+01_jprb,1.9617e+01_jprb/)  
kbo( :, 3,22,14) = (/&
 & 1.9615e+01_jprb,1.4884e+01_jprb,1.3822e+01_jprb,1.5397e+01_jprb,1.9064e+01_jprb/)  
kbo( :, 4,22,14) = (/&
 & 2.4968e+01_jprb,1.8810e+01_jprb,1.5484e+01_jprb,1.5561e+01_jprb,1.8540e+01_jprb/)  
kbo( :, 5,22,14) = (/&
 & 3.0827e+01_jprb,2.3206e+01_jprb,1.7456e+01_jprb,1.5921e+01_jprb,1.8033e+01_jprb/)  
kbo( :, 1,23,14) = (/&
 & 1.1802e+01_jprb,1.0322e+01_jprb,1.2998e+01_jprb,1.7421e+01_jprb,2.2401e+01_jprb/)  
kbo( :, 2,23,14) = (/&
 & 1.6133e+01_jprb,1.2850e+01_jprb,1.3921e+01_jprb,1.7123e+01_jprb,2.1737e+01_jprb/)  
kbo( :, 3,23,14) = (/&
 & 2.1125e+01_jprb,1.6165e+01_jprb,1.5339e+01_jprb,1.7031e+01_jprb,2.1100e+01_jprb/)  
kbo( :, 4,23,14) = (/&
 & 2.6726e+01_jprb,2.0157e+01_jprb,1.7101e+01_jprb,1.7209e+01_jprb,2.0484e+01_jprb/)  
kbo( :, 5,23,14) = (/&
 & 3.2827e+01_jprb,2.4712e+01_jprb,1.9081e+01_jprb,1.7519e+01_jprb,1.9884e+01_jprb/)  
kbo( :, 1,24,14) = (/&
 & 1.2745e+01_jprb,1.1442e+01_jprb,1.4445e+01_jprb,1.9244e+01_jprb,2.4809e+01_jprb/)  
kbo( :, 2,24,14) = (/&
 & 1.7253e+01_jprb,1.4016e+01_jprb,1.5441e+01_jprb,1.8901e+01_jprb,2.4045e+01_jprb/)  
kbo( :, 3,24,14) = (/&
 & 2.2449e+01_jprb,1.7365e+01_jprb,1.6912e+01_jprb,1.8816e+01_jprb,2.3295e+01_jprb/)  
kbo( :, 4,24,14) = (/&
 & 2.8233e+01_jprb,2.1395e+01_jprb,1.8672e+01_jprb,1.8934e+01_jprb,2.2558e+01_jprb/)  
kbo( :, 5,24,14) = (/&
 & 3.4560e+01_jprb,2.6021e+01_jprb,2.0658e+01_jprb,1.9202e+01_jprb,2.1836e+01_jprb/)  
kbo( :, 1,25,14) = (/&
 & 1.3566e+01_jprb,1.2543e+01_jprb,1.5996e+01_jprb,2.1177e+01_jprb,2.7336e+01_jprb/)  
kbo( :, 2,25,14) = (/&
 & 1.8227e+01_jprb,1.5135e+01_jprb,1.7035e+01_jprb,2.0783e+01_jprb,2.6441e+01_jprb/)  
kbo( :, 3,25,14) = (/&
 & 2.3565e+01_jprb,1.8483e+01_jprb,1.8488e+01_jprb,2.0675e+01_jprb,2.5549e+01_jprb/)  
kbo( :, 4,25,14) = (/&
 & 2.9531e+01_jprb,2.2535e+01_jprb,2.0204e+01_jprb,2.0688e+01_jprb,2.4667e+01_jprb/)  
kbo( :, 5,25,14) = (/&
 & 3.6063e+01_jprb,2.7206e+01_jprb,2.2162e+01_jprb,2.0908e+01_jprb,2.3805e+01_jprb/)  
kbo( :, 1,26,14) = (/&
 & 1.4327e+01_jprb,1.3631e+01_jprb,1.7595e+01_jprb,2.3118e+01_jprb,2.9859e+01_jprb/)  
kbo( :, 2,26,14) = (/&
 & 1.9108e+01_jprb,1.6210e+01_jprb,1.8663e+01_jprb,2.2706e+01_jprb,2.8803e+01_jprb/)  
kbo( :, 3,26,14) = (/&
 & 2.4589e+01_jprb,1.9567e+01_jprb,2.0048e+01_jprb,2.2494e+01_jprb,2.7746e+01_jprb/)  
kbo( :, 4,26,14) = (/&
 & 3.0710e+01_jprb,2.3631e+01_jprb,2.1693e+01_jprb,2.2407e+01_jprb,2.6705e+01_jprb/)  
kbo( :, 5,26,14) = (/&
 & 3.7411e+01_jprb,2.8326e+01_jprb,2.3613e+01_jprb,2.2582e+01_jprb,2.5687e+01_jprb/)  
kbo( :, 1,27,14) = (/&
 & 1.4974e+01_jprb,1.4661e+01_jprb,1.9208e+01_jprb,2.5017e+01_jprb,3.2282e+01_jprb/)  
kbo( :, 2,27,14) = (/&
 & 1.9864e+01_jprb,1.7209e+01_jprb,2.0231e+01_jprb,2.4566e+01_jprb,3.1037e+01_jprb/)  
kbo( :, 3,27,14) = (/&
 & 2.5463e+01_jprb,2.0563e+01_jprb,2.1528e+01_jprb,2.4213e+01_jprb,2.9805e+01_jprb/)  
kbo( :, 4,27,14) = (/&
 & 3.1732e+01_jprb,2.4635e+01_jprb,2.3113e+01_jprb,2.4054e+01_jprb,2.8597e+01_jprb/)  
kbo( :, 5,27,14) = (/&
 & 3.8595e+01_jprb,2.9368e+01_jprb,2.4984e+01_jprb,2.4188e+01_jprb,2.7415e+01_jprb/)  
kbo( :, 1,28,14) = (/&
 & 1.5529e+01_jprb,1.5623e+01_jprb,2.0763e+01_jprb,2.6821e+01_jprb,3.4499e+01_jprb/)  
kbo( :, 2,28,14) = (/&
 & 2.0516e+01_jprb,1.8143e+01_jprb,2.1720e+01_jprb,2.6283e+01_jprb,3.3057e+01_jprb/)  
kbo( :, 3,28,14) = (/&
 & 2.6237e+01_jprb,2.1495e+01_jprb,2.2921e+01_jprb,2.5811e+01_jprb,3.1645e+01_jprb/)  
kbo( :, 4,28,14) = (/&
 & 3.2647e+01_jprb,2.5586e+01_jprb,2.4438e+01_jprb,2.5592e+01_jprb,3.0274e+01_jprb/)  
kbo( :, 5,28,14) = (/&
 & 3.9662e+01_jprb,3.0339e+01_jprb,2.6263e+01_jprb,2.5678e+01_jprb,2.8942e+01_jprb/)  
kbo( :, 1,29,14) = (/&
 & 1.6065e+01_jprb,1.6544e+01_jprb,2.2216e+01_jprb,2.8472e+01_jprb,3.6458e+01_jprb/)  
kbo( :, 2,29,14) = (/&
 & 2.1153e+01_jprb,1.9041e+01_jprb,2.3104e+01_jprb,2.7817e+01_jprb,3.4827e+01_jprb/)  
kbo( :, 3,29,14) = (/&
 & 2.7000e+01_jprb,2.2394e+01_jprb,2.4221e+01_jprb,2.7267e+01_jprb,3.3240e+01_jprb/)  
kbo( :, 4,29,14) = (/&
 & 3.3548e+01_jprb,2.6519e+01_jprb,2.5679e+01_jprb,2.7001e+01_jprb,3.1702e+01_jprb/)  
kbo( :, 5,29,14) = (/&
 & 4.0738e+01_jprb,3.1323e+01_jprb,2.7457e+01_jprb,2.7031e+01_jprb,3.0226e+01_jprb/)  
kbo( :, 1,30,14) = (/&
 & 1.6583e+01_jprb,1.7406e+01_jprb,2.3544e+01_jprb,2.9947e+01_jprb,3.8146e+01_jprb/)  
kbo( :, 2,30,14) = (/&
 & 2.1792e+01_jprb,1.9899e+01_jprb,2.4353e+01_jprb,2.9156e+01_jprb,3.6330e+01_jprb/)  
kbo( :, 3,30,14) = (/&
 & 2.7775e+01_jprb,2.3269e+01_jprb,2.5405e+01_jprb,2.8560e+01_jprb,3.4577e+01_jprb/)  
kbo( :, 4,30,14) = (/&
 & 3.4468e+01_jprb,2.7442e+01_jprb,2.6816e+01_jprb,2.8255e+01_jprb,3.2901e+01_jprb/)  
kbo( :, 5,30,14) = (/&
 & 4.1847e+01_jprb,3.2326e+01_jprb,2.8565e+01_jprb,2.8235e+01_jprb,3.1294e+01_jprb/)  
kbo( :, 1,31,14) = (/&
 & 1.7141e+01_jprb,1.8216e+01_jprb,2.4732e+01_jprb,3.1198e+01_jprb,3.9531e+01_jprb/)  
kbo( :, 2,31,14) = (/&
 & 2.2491e+01_jprb,2.0743e+01_jprb,2.5474e+01_jprb,3.0318e+01_jprb,3.7553e+01_jprb/)  
kbo( :, 3,31,14) = (/&
 & 2.8624e+01_jprb,2.4158e+01_jprb,2.6485e+01_jprb,2.9690e+01_jprb,3.5656e+01_jprb/)  
kbo( :, 4,31,14) = (/&
 & 3.5512e+01_jprb,2.8414e+01_jprb,2.7854e+01_jprb,2.9357e+01_jprb,3.3855e+01_jprb/)  
kbo( :, 5,31,14) = (/&
 & 4.3115e+01_jprb,3.3401e+01_jprb,2.9611e+01_jprb,2.9290e+01_jprb,3.2132e+01_jprb/)  
kbo( :, 1,32,14) = (/&
 & 1.7775e+01_jprb,1.8991e+01_jprb,2.5780e+01_jprb,3.2231e+01_jprb,4.0629e+01_jprb/)  
kbo( :, 2,32,14) = (/&
 & 2.3279e+01_jprb,2.1576e+01_jprb,2.6467e+01_jprb,3.1293e+01_jprb,3.8513e+01_jprb/)  
kbo( :, 3,32,14) = (/&
 & 2.9596e+01_jprb,2.5078e+01_jprb,2.7453e+01_jprb,3.0651e+01_jprb,3.6492e+01_jprb/)  
kbo( :, 4,32,14) = (/&
 & 3.6705e+01_jprb,2.9433e+01_jprb,2.8819e+01_jprb,3.0298e+01_jprb,3.4575e+01_jprb/)  
kbo( :, 5,32,14) = (/&
 & 4.4536e+01_jprb,3.4534e+01_jprb,3.0584e+01_jprb,3.0174e+01_jprb,3.2756e+01_jprb/)  
kbo( :, 1,33,14) = (/&
 & 1.8489e+01_jprb,1.9733e+01_jprb,2.6684e+01_jprb,3.3047e+01_jprb,4.1445e+01_jprb/)  
kbo( :, 2,33,14) = (/&
 & 2.4189e+01_jprb,2.2424e+01_jprb,2.7346e+01_jprb,3.2099e+01_jprb,3.9209e+01_jprb/)  
kbo( :, 3,33,14) = (/&
 & 3.0723e+01_jprb,2.6034e+01_jprb,2.8320e+01_jprb,3.1451e+01_jprb,3.7092e+01_jprb/)  
kbo( :, 4,33,14) = (/&
 & 3.8063e+01_jprb,3.0513e+01_jprb,2.9704e+01_jprb,3.1070e+01_jprb,3.5085e+01_jprb/)  
kbo( :, 5,33,14) = (/&
 & 4.6119e+01_jprb,3.5751e+01_jprb,3.1499e+01_jprb,3.0917e+01_jprb,3.3191e+01_jprb/)  
kbo( :, 1,34,14) = (/&
 & 1.9120e+01_jprb,2.0380e+01_jprb,2.7451e+01_jprb,3.3738e+01_jprb,4.2092e+01_jprb/)  
kbo( :, 2,34,14) = (/&
 & 2.5003e+01_jprb,2.3162e+01_jprb,2.8086e+01_jprb,3.2774e+01_jprb,3.9759e+01_jprb/)  
kbo( :, 3,34,14) = (/&
 & 3.1744e+01_jprb,2.6883e+01_jprb,2.9061e+01_jprb,3.2120e+01_jprb,3.7559e+01_jprb/)  
kbo( :, 4,34,14) = (/&
 & 3.9301e+01_jprb,3.1483e+01_jprb,3.0464e+01_jprb,3.1710e+01_jprb,3.5480e+01_jprb/)  
kbo( :, 5,34,14) = (/&
 & 4.7562e+01_jprb,3.6856e+01_jprb,3.2292e+01_jprb,3.1536e+01_jprb,3.3568e+01_jprb/)  
kbo( :, 1,35,14) = (/&
 & 1.9330e+01_jprb,2.0794e+01_jprb,2.8053e+01_jprb,3.4390e+01_jprb,4.2763e+01_jprb/)  
kbo( :, 2,35,14) = (/&
 & 2.5319e+01_jprb,2.3595e+01_jprb,2.8656e+01_jprb,3.3397e+01_jprb,4.0342e+01_jprb/)  
kbo( :, 3,35,14) = (/&
 & 3.2191e+01_jprb,2.7358e+01_jprb,2.9608e+01_jprb,3.2717e+01_jprb,3.8062e+01_jprb/)  
kbo( :, 4,35,14) = (/&
 & 3.9886e+01_jprb,3.2011e+01_jprb,3.1003e+01_jprb,3.2263e+01_jprb,3.5938e+01_jprb/)  
kbo( :, 5,35,14) = (/&
 & 4.8294e+01_jprb,3.7467e+01_jprb,3.2840e+01_jprb,3.2051e+01_jprb,3.4008e+01_jprb/)  
kbo( :, 1,36,14) = (/&
 & 1.9010e+01_jprb,2.0941e+01_jprb,2.8519e+01_jprb,3.5044e+01_jprb,4.3548e+01_jprb/)  
kbo( :, 2,36,14) = (/&
 & 2.5019e+01_jprb,2.3674e+01_jprb,2.9070e+01_jprb,3.3996e+01_jprb,4.1038e+01_jprb/)  
kbo( :, 3,36,14) = (/&
 & 3.1927e+01_jprb,2.7395e+01_jprb,2.9968e+01_jprb,3.3265e+01_jprb,3.8679e+01_jprb/)  
kbo( :, 4,36,14) = (/&
 & 3.9672e+01_jprb,3.2015e+01_jprb,3.1322e+01_jprb,3.2758e+01_jprb,3.6525e+01_jprb/)  
kbo( :, 5,36,14) = (/&
 & 4.8151e+01_jprb,3.7481e+01_jprb,3.3115e+01_jprb,3.2494e+01_jprb,3.4530e+01_jprb/)  
kbo( :, 1,37,14) = (/&
 & 1.7926e+01_jprb,2.0769e+01_jprb,2.8871e+01_jprb,3.5793e+01_jprb,4.4612e+01_jprb/)  
kbo( :, 2,37,14) = (/&
 & 2.3809e+01_jprb,2.3285e+01_jprb,2.9325e+01_jprb,3.4640e+01_jprb,4.1997e+01_jprb/)  
kbo( :, 3,37,14) = (/&
 & 3.0620e+01_jprb,2.6825e+01_jprb,3.0118e+01_jprb,3.3823e+01_jprb,3.9558e+01_jprb/)  
kbo( :, 4,37,14) = (/&
 & 3.8296e+01_jprb,3.1288e+01_jprb,3.1366e+01_jprb,3.3235e+01_jprb,3.7337e+01_jprb/)  
kbo( :, 5,37,14) = (/&
 & 4.6724e+01_jprb,3.6634e+01_jprb,3.3044e+01_jprb,3.2894e+01_jprb,3.5259e+01_jprb/)  
kbo( :, 1,38,14) = (/&
 & 1.6878e+01_jprb,2.0610e+01_jprb,2.9172e+01_jprb,3.6472e+01_jprb,4.5609e+01_jprb/)  
kbo( :, 2,38,14) = (/&
 & 2.2623e+01_jprb,2.2907e+01_jprb,2.9536e+01_jprb,3.5227e+01_jprb,4.2904e+01_jprb/)  
kbo( :, 3,38,14) = (/&
 & 2.9321e+01_jprb,2.6260e+01_jprb,3.0234e+01_jprb,3.4327e+01_jprb,4.0395e+01_jprb/)  
kbo( :, 4,38,14) = (/&
 & 3.6903e+01_jprb,3.0559e+01_jprb,3.1375e+01_jprb,3.3664e+01_jprb,3.8108e+01_jprb/)  
kbo( :, 5,38,14) = (/&
 & 4.5262e+01_jprb,3.5766e+01_jprb,3.2950e+01_jprb,3.3255e+01_jprb,3.5951e+01_jprb/)  
kbo( :, 1,39,14) = (/&
 & 1.5902e+01_jprb,2.0474e+01_jprb,2.9440e+01_jprb,3.7085e+01_jprb,4.6521e+01_jprb/)  
kbo( :, 2,39,14) = (/&
 & 2.1511e+01_jprb,2.2570e+01_jprb,2.9719e+01_jprb,3.5757e+01_jprb,4.3739e+01_jprb/)  
kbo( :, 3,39,14) = (/&
 & 2.8094e+01_jprb,2.5734e+01_jprb,3.0328e+01_jprb,3.4778e+01_jprb,4.1182e+01_jprb/)  
kbo( :, 4,39,14) = (/&
 & 3.5578e+01_jprb,2.9877e+01_jprb,3.1374e+01_jprb,3.4050e+01_jprb,3.8820e+01_jprb/)  
kbo( :, 5,39,14) = (/&
 & 4.3862e+01_jprb,3.4943e+01_jprb,3.2862e+01_jprb,3.3572e+01_jprb,3.6607e+01_jprb/)  
kbo( :, 1,40,14) = (/&
 & 1.4487e+01_jprb,2.0210e+01_jprb,2.9678e+01_jprb,3.7814e+01_jprb,4.7667e+01_jprb/)  
kbo( :, 2,40,14) = (/&
 & 1.9857e+01_jprb,2.2013e+01_jprb,2.9846e+01_jprb,3.6374e+01_jprb,4.4798e+01_jprb/)  
kbo( :, 3,40,14) = (/&
 & 2.6217e+01_jprb,2.4887e+01_jprb,3.0342e+01_jprb,3.5275e+01_jprb,4.2152e+01_jprb/)  
kbo( :, 4,40,14) = (/&
 & 3.3508e+01_jprb,2.8778e+01_jprb,3.1239e+01_jprb,3.4477e+01_jprb,3.9718e+01_jprb/)  
kbo( :, 5,40,14) = (/&
 & 4.1627e+01_jprb,3.3601e+01_jprb,3.2609e+01_jprb,3.3904e+01_jprb,3.7435e+01_jprb/)  
kbo( :, 1,41,14) = (/&
 & 1.3110e+01_jprb,1.9958e+01_jprb,2.9912e+01_jprb,3.8549e+01_jprb,4.8809e+01_jprb/)  
kbo( :, 2,41,14) = (/&
 & 1.8221e+01_jprb,2.1507e+01_jprb,2.9962e+01_jprb,3.6988e+01_jprb,4.5856e+01_jprb/)  
kbo( :, 3,41,14) = (/&
 & 2.4334e+01_jprb,2.4070e+01_jprb,3.0356e+01_jprb,3.5769e+01_jprb,4.3126e+01_jprb/)  
kbo( :, 4,41,14) = (/&
 & 3.1415e+01_jprb,2.7692e+01_jprb,3.1100e+01_jprb,3.4894e+01_jprb,4.0627e+01_jprb/)  
kbo( :, 5,41,14) = (/&
 & 3.9350e+01_jprb,3.2265e+01_jprb,3.2344e+01_jprb,3.4220e+01_jprb,3.8269e+01_jprb/)  
kbo( :, 1,42,14) = (/&
 & 1.1835e+01_jprb,1.9752e+01_jprb,3.0145e+01_jprb,3.9251e+01_jprb,4.9910e+01_jprb/)  

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


SUBROUTINE part34

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


kbo( :, 2,42,14) = (/&
 & 1.6674e+01_jprb,2.1083e+01_jprb,3.0080e+01_jprb,3.7587e+01_jprb,4.6885e+01_jprb/)  
kbo( :, 3,42,14) = (/&
 & 2.2540e+01_jprb,2.3336e+01_jprb,3.0367e+01_jprb,3.6256e+01_jprb,4.4084e+01_jprb/)  
kbo( :, 4,42,14) = (/&
 & 2.9380e+01_jprb,2.6668e+01_jprb,3.0980e+01_jprb,3.5287e+01_jprb,4.1523e+01_jprb/)  
kbo( :, 5,42,14) = (/&
 & 3.7130e+01_jprb,3.0990e+01_jprb,3.2078e+01_jprb,3.4533e+01_jprb,3.9096e+01_jprb/)  
kbo( :, 1,43,14) = (/&
 & 1.0424e+01_jprb,1.9517e+01_jprb,3.0390e+01_jprb,4.0028e+01_jprb,5.1165e+01_jprb/)  
kbo( :, 2,43,14) = (/&
 & 1.4940e+01_jprb,2.0651e+01_jprb,3.0207e+01_jprb,3.8268e+01_jprb,4.8059e+01_jprb/)  
kbo( :, 3,43,14) = (/&
 & 2.0485e+01_jprb,2.2541e+01_jprb,3.0363e+01_jprb,3.6818e+01_jprb,4.5176e+01_jprb/)  
kbo( :, 4,43,14) = (/&
 & 2.7034e+01_jprb,2.5521e+01_jprb,3.0853e+01_jprb,3.5715e+01_jprb,4.2549e+01_jprb/)  
kbo( :, 5,43,14) = (/&
 & 3.4521e+01_jprb,2.9529e+01_jprb,3.1770e+01_jprb,3.4894e+01_jprb,4.0051e+01_jprb/)  
kbo( :, 1,44,14) = (/&
 & 9.0454e+00_jprb,1.9303e+01_jprb,3.0654e+01_jprb,4.0829e+01_jprb,5.2486e+01_jprb/)  
kbo( :, 2,44,14) = (/&
 & 1.3210e+01_jprb,2.0258e+01_jprb,3.0364e+01_jprb,3.9018e+01_jprb,4.9303e+01_jprb/)  
kbo( :, 3,44,14) = (/&
 & 1.8410e+01_jprb,2.1811e+01_jprb,3.0377e+01_jprb,3.7427e+01_jprb,4.6338e+01_jprb/)  
kbo( :, 4,44,14) = (/&
 & 2.4625e+01_jprb,2.4403e+01_jprb,3.0751e+01_jprb,3.6187e+01_jprb,4.3644e+01_jprb/)  
kbo( :, 5,44,14) = (/&
 & 3.1810e+01_jprb,2.8069e+01_jprb,3.1486e+01_jprb,3.5287e+01_jprb,4.1079e+01_jprb/)  
kbo( :, 1,45,14) = (/&
 & 7.7991e+00_jprb,1.9124e+01_jprb,3.0912e+01_jprb,4.1626e+01_jprb,5.3793e+01_jprb/)  
kbo( :, 2,45,14) = (/&
 & 1.1620e+01_jprb,1.9930e+01_jprb,3.0535e+01_jprb,3.9772e+01_jprb,5.0542e+01_jprb/)  
kbo( :, 3,45,14) = (/&
 & 1.6462e+01_jprb,2.1220e+01_jprb,3.0424e+01_jprb,3.8053e+01_jprb,4.7507e+01_jprb/)  
kbo( :, 4,45,14) = (/&
 & 2.2340e+01_jprb,2.3424e+01_jprb,3.0669e+01_jprb,3.6679e+01_jprb,4.4753e+01_jprb/)  
kbo( :, 5,45,14) = (/&
 & 2.9206e+01_jprb,2.6717e+01_jprb,3.1243e+01_jprb,3.5671e+01_jprb,4.2118e+01_jprb/)  
kbo( :, 1,46,14) = (/&
 & 6.6114e+00_jprb,1.8975e+01_jprb,3.1192e+01_jprb,4.2505e+01_jprb,5.5177e+01_jprb/)  
kbo( :, 2,46,14) = (/&
 & 1.0078e+01_jprb,1.9636e+01_jprb,3.0742e+01_jprb,4.0557e+01_jprb,5.1854e+01_jprb/)  
kbo( :, 3,46,14) = (/&
 & 1.4541e+01_jprb,2.0717e+01_jprb,3.0510e+01_jprb,3.8745e+01_jprb,4.8748e+01_jprb/)  
kbo( :, 4,46,14) = (/&
 & 2.0050e+01_jprb,2.2518e+01_jprb,3.0610e+01_jprb,3.7236e+01_jprb,4.5932e+01_jprb/)  
kbo( :, 5,46,14) = (/&
 & 2.6570e+01_jprb,2.5413e+01_jprb,3.1056e+01_jprb,3.6085e+01_jprb,4.3222e+01_jprb/)  
kbo( :, 1,47,14) = (/&
 & 5.4426e+00_jprb,1.8843e+01_jprb,3.1468e+01_jprb,4.3504e+01_jprb,5.6708e+01_jprb/)  
kbo( :, 2,47,14) = (/&
 & 8.5243e+00_jprb,1.9360e+01_jprb,3.0989e+01_jprb,4.1408e+01_jprb,5.3314e+01_jprb/)  
kbo( :, 3,47,14) = (/&
 & 1.2575e+01_jprb,2.0245e+01_jprb,3.0638e+01_jprb,3.9555e+01_jprb,5.0119e+01_jprb/)  
kbo( :, 4,47,14) = (/&
 & 1.7661e+01_jprb,2.1683e+01_jprb,3.0580e+01_jprb,3.7894e+01_jprb,4.7238e+01_jprb/)  
kbo( :, 5,47,14) = (/&
 & 2.3779e+01_jprb,2.4127e+01_jprb,3.0897e+01_jprb,3.6585e+01_jprb,4.4450e+01_jprb/)  
kbo( :, 1,48,14) = (/&
 & 4.4277e+00_jprb,1.8761e+01_jprb,3.1768e+01_jprb,4.4555e+01_jprb,5.8239e+01_jprb/)  
kbo( :, 2,48,14) = (/&
 & 7.1412e+00_jprb,1.9151e+01_jprb,3.1244e+01_jprb,4.2299e+01_jprb,5.4783e+01_jprb/)  
kbo( :, 3,48,14) = (/&
 & 1.0789e+01_jprb,1.9869e+01_jprb,3.0807e+01_jprb,4.0379e+01_jprb,5.1522e+01_jprb/)  
kbo( :, 4,48,14) = (/&
 & 1.5451e+01_jprb,2.1038e+01_jprb,3.0616e+01_jprb,3.8583e+01_jprb,4.8572e+01_jprb/)  
kbo( :, 5,48,14) = (/&
 & 2.1160e+01_jprb,2.3022e+01_jprb,3.0768e+01_jprb,3.7126e+01_jprb,4.5703e+01_jprb/)  
kbo( :, 1,49,14) = (/&
 & 3.5582e+00_jprb,1.8724e+01_jprb,3.2110e+01_jprb,4.5630e+01_jprb,5.9777e+01_jprb/)  
kbo( :, 2,49,14) = (/&
 & 5.9176e+00_jprb,1.8981e+01_jprb,3.1512e+01_jprb,4.3246e+01_jprb,5.6279e+01_jprb/)  
kbo( :, 3,49,14) = (/&
 & 9.1765e+00_jprb,1.9555e+01_jprb,3.1023e+01_jprb,4.1205e+01_jprb,5.2968e+01_jprb/)  
kbo( :, 4,49,14) = (/&
 & 1.3419e+01_jprb,2.0517e+01_jprb,3.0706e+01_jprb,3.9341e+01_jprb,4.9951e+01_jprb/)  
kbo( :, 5,49,14) = (/&
 & 1.8709e+01_jprb,2.2099e+01_jprb,3.0706e+01_jprb,3.7732e+01_jprb,4.7001e+01_jprb/)  
kbo( :, 1,50,14) = (/&
 & 2.8621e+00_jprb,1.8722e+01_jprb,3.2476e+01_jprb,4.6653e+01_jprb,6.1210e+01_jprb/)  
kbo( :, 2,50,14) = (/&
 & 4.9088e+00_jprb,1.8875e+01_jprb,3.1754e+01_jprb,4.4175e+01_jprb,5.7683e+01_jprb/)  
kbo( :, 3,50,14) = (/&
 & 7.8135e+00_jprb,1.9320e+01_jprb,3.1237e+01_jprb,4.1987e+01_jprb,5.4314e+01_jprb/)  
kbo( :, 4,50,14) = (/&
 & 1.1676e+01_jprb,2.0117e+01_jprb,3.0830e+01_jprb,4.0088e+01_jprb,5.1232e+01_jprb/)  
kbo( :, 5,50,14) = (/&
 & 1.6567e+01_jprb,2.1410e+01_jprb,3.0696e+01_jprb,3.8343e+01_jprb,4.8212e+01_jprb/)  
kbo( :, 1,51,14) = (/&
 & 2.2871e+00_jprb,1.8709e+01_jprb,3.2860e+01_jprb,4.7625e+01_jprb,6.2589e+01_jprb/)  
kbo( :, 2,51,14) = (/&
 & 4.0542e+00_jprb,1.8811e+01_jprb,3.2015e+01_jprb,4.5121e+01_jprb,5.9058e+01_jprb/)  
kbo( :, 3,51,14) = (/&
 & 6.6290e+00_jprb,1.9146e+01_jprb,3.1467e+01_jprb,4.2798e+01_jprb,5.5634e+01_jprb/)  
kbo( :, 4,51,14) = (/&
 & 1.0131e+01_jprb,1.9796e+01_jprb,3.0988e+01_jprb,4.0823e+01_jprb,5.2469e+01_jprb/)  
kbo( :, 5,51,14) = (/&
 & 1.4636e+01_jprb,2.0878e+01_jprb,3.0739e+01_jprb,3.8979e+01_jprb,4.9405e+01_jprb/)  
kbo( :, 1,52,14) = (/&
 & 1.8042e+00_jprb,1.8682e+01_jprb,3.3246e+01_jprb,4.8560e+01_jprb,6.3938e+01_jprb/)  
kbo( :, 2,52,14) = (/&
 & 3.3141e+00_jprb,1.8789e+01_jprb,3.2326e+01_jprb,4.6081e+01_jprb,6.0432e+01_jprb/)  
kbo( :, 3,52,14) = (/&
 & 5.5749e+00_jprb,1.9001e+01_jprb,3.1682e+01_jprb,4.3646e+01_jprb,5.6974e+01_jprb/)  
kbo( :, 4,52,14) = (/&
 & 8.7257e+00_jprb,1.9525e+01_jprb,3.1181e+01_jprb,4.1550e+01_jprb,5.3732e+01_jprb/)  
kbo( :, 5,52,14) = (/&
 & 1.2856e+01_jprb,2.0429e+01_jprb,3.0821e+01_jprb,3.9666e+01_jprb,5.0627e+01_jprb/)  
kbo( :, 1,53,14) = (/&
 & 1.4016e+00_jprb,1.8621e+01_jprb,3.3678e+01_jprb,4.9490e+01_jprb,6.5279e+01_jprb/)  
kbo( :, 2,53,14) = (/&
 & 2.6762e+00_jprb,1.8776e+01_jprb,3.2671e+01_jprb,4.7047e+01_jprb,6.1804e+01_jprb/)  
kbo( :, 3,53,14) = (/&
 & 4.6412e+00_jprb,1.8903e+01_jprb,3.1912e+01_jprb,4.4545e+01_jprb,5.8349e+01_jprb/)  
kbo( :, 4,53,14) = (/&
 & 7.4512e+00_jprb,1.9311e+01_jprb,3.1378e+01_jprb,4.2307e+01_jprb,5.5036e+01_jprb/)  
kbo( :, 5,53,14) = (/&
 & 1.1217e+01_jprb,2.0061e+01_jprb,3.0940e+01_jprb,4.0380e+01_jprb,5.1884e+01_jprb/)  
kbo( :, 1,54,14) = (/&
 & 1.0961e+00_jprb,1.8547e+01_jprb,3.4112e+01_jprb,5.0332e+01_jprb,6.6490e+01_jprb/)  
kbo( :, 2,54,14) = (/&
 & 2.1755e+00_jprb,1.8757e+01_jprb,3.3015e+01_jprb,4.7918e+01_jprb,6.3018e+01_jprb/)  
kbo( :, 3,54,14) = (/&
 & 3.8890e+00_jprb,1.8845e+01_jprb,3.2149e+01_jprb,4.5398e+01_jprb,5.9550e+01_jprb/)  
kbo( :, 4,54,14) = (/&
 & 6.4008e+00_jprb,1.9153e+01_jprb,3.1582e+01_jprb,4.3046e+01_jprb,5.6158e+01_jprb/)  
kbo( :, 5,54,14) = (/&
 & 9.8389e+00_jprb,1.9773e+01_jprb,3.1086e+01_jprb,4.1043e+01_jprb,5.2991e+01_jprb/)  
kbo( :, 1,55,14) = (/&
 & 8.5398e-01_jprb,1.8492e+01_jprb,3.4545e+01_jprb,5.1111e+01_jprb,6.7620e+01_jprb/)  
kbo( :, 2,55,14) = (/&
 & 1.7643e+00_jprb,1.8724e+01_jprb,3.3346e+01_jprb,4.8723e+01_jprb,6.4160e+01_jprb/)  
kbo( :, 3,55,14) = (/&
 & 3.2551e+00_jprb,1.8827e+01_jprb,3.2415e+01_jprb,4.6233e+01_jprb,6.0665e+01_jprb/)  
kbo( :, 4,55,14) = (/&
 & 5.4933e+00_jprb,1.9028e+01_jprb,3.1761e+01_jprb,4.3784e+01_jprb,5.7216e+01_jprb/)  
kbo( :, 5,55,14) = (/&
 & 8.6198e+00_jprb,1.9538e+01_jprb,3.1251e+01_jprb,4.1673e+01_jprb,5.3976e+01_jprb/)  
kbo( :, 1,56,14) = (/&
 & 6.5583e-01_jprb,1.8466e+01_jprb,3.5009e+01_jprb,5.1852e+01_jprb,6.8713e+01_jprb/)  
kbo( :, 2,56,14) = (/&
 & 1.4149e+00_jprb,1.8664e+01_jprb,3.3714e+01_jprb,4.9524e+01_jprb,6.5316e+01_jprb/)  
kbo( :, 3,56,14) = (/&
 & 2.7001e+00_jprb,1.8813e+01_jprb,3.2708e+01_jprb,4.7069e+01_jprb,6.1791e+01_jprb/)  
kbo( :, 4,56,14) = (/&
 & 4.6799e+00_jprb,1.8938e+01_jprb,3.1954e+01_jprb,4.4562e+01_jprb,5.8292e+01_jprb/)  
kbo( :, 5,56,14) = (/&
 & 7.5092e+00_jprb,1.9349e+01_jprb,3.1417e+01_jprb,4.2326e+01_jprb,5.4949e+01_jprb/)  
kbo( :, 1,57,14) = (/&
 & 4.9569e-01_jprb,1.8461e+01_jprb,3.5476e+01_jprb,5.2586e+01_jprb,6.9771e+01_jprb/)  
kbo( :, 2,57,14) = (/&
 & 1.1207e+00_jprb,1.8588e+01_jprb,3.4120e+01_jprb,5.0320e+01_jprb,6.6462e+01_jprb/)  
kbo( :, 3,57,14) = (/&
 & 2.2185e+00_jprb,1.8789e+01_jprb,3.3026e+01_jprb,4.7890e+01_jprb,6.2944e+01_jprb/)  
kbo( :, 4,57,14) = (/&
 & 3.9561e+00_jprb,1.8878e+01_jprb,3.2169e+01_jprb,4.5368e+01_jprb,5.9404e+01_jprb/)  
kbo( :, 5,57,14) = (/&
 & 6.5001e+00_jprb,1.9194e+01_jprb,3.1605e+01_jprb,4.3020e+01_jprb,5.5955e+01_jprb/)  
kbo( :, 1,58,14) = (/&
 & 3.7410e-01_jprb,1.8476e+01_jprb,3.5878e+01_jprb,5.3233e+01_jprb,7.0727e+01_jprb/)  
kbo( :, 2,58,14) = (/&
 & 8.8722e-01_jprb,1.8527e+01_jprb,3.4515e+01_jprb,5.1048e+01_jprb,6.7516e+01_jprb/)  
kbo( :, 3,58,14) = (/&
 & 1.8232e+00_jprb,1.8757e+01_jprb,3.3332e+01_jprb,4.8650e+01_jprb,6.4043e+01_jprb/)  
kbo( :, 4,58,14) = (/&
 & 3.3485e+00_jprb,1.8853e+01_jprb,3.2410e+01_jprb,4.6145e+01_jprb,6.0474e+01_jprb/)  
kbo( :, 5,58,14) = (/&
 & 5.6308e+00_jprb,1.9066e+01_jprb,3.1770e+01_jprb,4.3707e+01_jprb,5.6952e+01_jprb/)  
kbo( :, 1,59,14) = (/&
 & 3.3226e-01_jprb,1.8499e+01_jprb,3.6042e+01_jprb,5.3487e+01_jprb,7.1108e+01_jprb/)  
kbo( :, 2,59,14) = (/&
 & 8.0465e-01_jprb,1.8512e+01_jprb,3.4692e+01_jprb,5.1340e+01_jprb,6.7946e+01_jprb/)  
kbo( :, 3,59,14) = (/&
 & 1.6796e+00_jprb,1.8742e+01_jprb,3.3465e+01_jprb,4.8954e+01_jprb,6.4485e+01_jprb/)  
kbo( :, 4,59,14) = (/&
 & 3.1244e+00_jprb,1.8851e+01_jprb,3.2518e+01_jprb,4.6468e+01_jprb,6.0924e+01_jprb/)  
kbo( :, 5,59,14) = (/&
 & 5.3047e+00_jprb,1.9029e+01_jprb,3.1839e+01_jprb,4.3997e+01_jprb,5.7335e+01_jprb/)  
kbo( :, 1,13,15) = (/&
 & 1.4736e+01_jprb,1.1137e+01_jprb,7.6940e+00_jprb,7.1072e+00_jprb,9.0794e+00_jprb/)  
kbo( :, 2,13,15) = (/&
 & 2.0753e+01_jprb,1.5659e+01_jprb,1.0572e+01_jprb,7.4219e+00_jprb,8.9416e+00_jprb/)  
kbo( :, 3,13,15) = (/&
 & 2.7810e+01_jprb,2.0956e+01_jprb,1.4105e+01_jprb,8.2365e+00_jprb,8.8640e+00_jprb/)  
kbo( :, 4,13,15) = (/&
 & 3.5751e+01_jprb,2.6911e+01_jprb,1.8075e+01_jprb,9.6167e+00_jprb,8.7852e+00_jprb/)  
kbo( :, 5,13,15) = (/&
 & 4.4392e+01_jprb,3.3391e+01_jprb,2.2391e+01_jprb,1.1515e+01_jprb,8.6750e+00_jprb/)  
kbo( :, 1,14,15) = (/&
 & 1.6396e+01_jprb,1.2398e+01_jprb,8.6531e+00_jprb,8.0901e+00_jprb,1.0338e+01_jprb/)  
kbo( :, 2,14,15) = (/&
 & 2.3021e+01_jprb,1.7368e+01_jprb,1.1723e+01_jprb,8.4557e+00_jprb,1.0225e+01_jprb/)  
kbo( :, 3,14,15) = (/&
 & 3.0725e+01_jprb,2.3145e+01_jprb,1.5568e+01_jprb,9.3794e+00_jprb,1.0164e+01_jprb/)  
kbo( :, 4,14,15) = (/&
 & 3.9405e+01_jprb,2.9646e+01_jprb,1.9890e+01_jprb,1.0857e+01_jprb,1.0076e+01_jprb/)  
kbo( :, 5,14,15) = (/&
 & 4.8887e+01_jprb,3.6753e+01_jprb,2.4621e+01_jprb,1.2810e+01_jprb,9.9619e+00_jprb/)  
kbo( :, 1,15,15) = (/&
 & 1.8108e+01_jprb,1.3685e+01_jprb,9.7296e+00_jprb,9.2864e+00_jprb,1.1891e+01_jprb/)  
kbo( :, 2,15,15) = (/&
 & 2.5292e+01_jprb,1.9065e+01_jprb,1.2925e+01_jprb,9.7320e+00_jprb,1.1822e+01_jprb/)  
kbo( :, 3,15,15) = (/&
 & 3.3657e+01_jprb,2.5333e+01_jprb,1.7012e+01_jprb,1.0681e+01_jprb,1.1765e+01_jprb/)  
kbo( :, 4,15,15) = (/&
 & 4.3009e+01_jprb,3.2342e+01_jprb,2.1677e+01_jprb,1.2195e+01_jprb,1.1648e+01_jprb/)  
kbo( :, 5,15,15) = (/&
 & 5.3119e+01_jprb,3.9920e+01_jprb,2.6722e+01_jprb,1.4174e+01_jprb,1.1512e+01_jprb/)  
kbo( :, 1,16,15) = (/&
 & 1.9766e+01_jprb,1.4918e+01_jprb,1.0847e+01_jprb,1.0763e+01_jprb,1.3814e+01_jprb/)  
kbo( :, 2,16,15) = (/&
 & 2.7468e+01_jprb,2.0688e+01_jprb,1.4114e+01_jprb,1.1259e+01_jprb,1.3757e+01_jprb/)  
kbo( :, 3,16,15) = (/&
 & 3.6341e+01_jprb,2.7338e+01_jprb,1.8370e+01_jprb,1.2200e+01_jprb,1.3647e+01_jprb/)  
kbo( :, 4,16,15) = (/&
 & 4.6268e+01_jprb,3.4775e+01_jprb,2.3285e+01_jprb,1.3712e+01_jprb,1.3493e+01_jprb/)  
kbo( :, 5,16,15) = (/&
 & 5.7098e+01_jprb,4.2893e+01_jprb,2.8688e+01_jprb,1.5674e+01_jprb,1.3336e+01_jprb/)  
kbo( :, 1,17,15) = (/&
 & 2.1283e+01_jprb,1.6042e+01_jprb,1.2037e+01_jprb,1.2521e+01_jprb,1.6103e+01_jprb/)  
kbo( :, 2,17,15) = (/&
 & 2.9464e+01_jprb,2.2172e+01_jprb,1.5299e+01_jprb,1.3029e+01_jprb,1.5994e+01_jprb/)  
kbo( :, 3,17,15) = (/&
 & 3.8948e+01_jprb,2.9275e+01_jprb,1.9669e+01_jprb,1.3963e+01_jprb,1.5820e+01_jprb/)  
kbo( :, 4,17,15) = (/&
 & 4.9621e+01_jprb,3.7275e+01_jprb,2.4936e+01_jprb,1.5438e+01_jprb,1.5638e+01_jprb/)  
kbo( :, 5,17,15) = (/&
 & 6.1258e+01_jprb,4.5999e+01_jprb,3.0742e+01_jprb,1.7360e+01_jprb,1.5449e+01_jprb/)  
kbo( :, 1,18,15) = (/&
 & 2.2877e+01_jprb,1.7231e+01_jprb,1.3375e+01_jprb,1.4554e+01_jprb,1.8639e+01_jprb/)  
kbo( :, 2,18,15) = (/&
 & 3.1639e+01_jprb,2.3798e+01_jprb,1.6609e+01_jprb,1.5067e+01_jprb,1.8464e+01_jprb/)  
kbo( :, 3,18,15) = (/&
 & 4.1858e+01_jprb,3.1457e+01_jprb,2.1141e+01_jprb,1.5981e+01_jprb,1.8293e+01_jprb/)  
kbo( :, 4,18,15) = (/&
 & 5.3342e+01_jprb,4.0067e+01_jprb,2.6795e+01_jprb,1.7399e+01_jprb,1.8084e+01_jprb/)  
kbo( :, 5,18,15) = (/&
 & 6.5884e+01_jprb,4.9471e+01_jprb,3.3060e+01_jprb,1.9258e+01_jprb,1.7848e+01_jprb/)  
kbo( :, 1,19,15) = (/&
 & 2.4623e+01_jprb,1.8531e+01_jprb,1.4907e+01_jprb,1.6838e+01_jprb,2.1462e+01_jprb/)  
kbo( :, 2,19,15) = (/&
 & 3.4070e+01_jprb,2.5614e+01_jprb,1.8084e+01_jprb,1.7369e+01_jprb,2.1261e+01_jprb/)  
kbo( :, 3,19,15) = (/&
 & 4.5079e+01_jprb,3.3868e+01_jprb,2.2784e+01_jprb,1.8262e+01_jprb,2.1046e+01_jprb/)  
kbo( :, 4,19,15) = (/&
 & 5.7371e+01_jprb,4.3086e+01_jprb,2.8804e+01_jprb,1.9597e+01_jprb,2.0788e+01_jprb/)  
kbo( :, 5,19,15) = (/&
 & 7.0794e+01_jprb,5.3152e+01_jprb,3.5511e+01_jprb,2.1320e+01_jprb,2.0472e+01_jprb/)  
kbo( :, 1,20,15) = (/&
 & 2.6740e+01_jprb,2.0113e+01_jprb,1.6687e+01_jprb,1.9463e+01_jprb,2.4692e+01_jprb/)  
kbo( :, 2,20,15) = (/&
 & 3.6896e+01_jprb,2.7729e+01_jprb,1.9869e+01_jprb,1.9965e+01_jprb,2.4417e+01_jprb/)  
kbo( :, 3,20,15) = (/&
 & 4.8627e+01_jprb,3.6527e+01_jprb,2.4686e+01_jprb,2.0749e+01_jprb,2.4109e+01_jprb/)  
kbo( :, 4,20,15) = (/&
 & 6.1800e+01_jprb,4.6406e+01_jprb,3.1013e+01_jprb,2.1980e+01_jprb,2.3749e+01_jprb/)  
kbo( :, 5,20,15) = (/&
 & 7.6193e+01_jprb,5.7200e+01_jprb,3.8207e+01_jprb,2.3582e+01_jprb,2.3335e+01_jprb/)  
kbo( :, 1,21,15) = (/&
 & 2.8977e+01_jprb,2.1786e+01_jprb,1.8588e+01_jprb,2.2423e+01_jprb,2.8316e+01_jprb/)  
kbo( :, 2,21,15) = (/&
 & 3.9801e+01_jprb,2.9904e+01_jprb,2.1842e+01_jprb,2.2829e+01_jprb,2.7905e+01_jprb/)  
kbo( :, 3,21,15) = (/&
 & 5.2367e+01_jprb,3.9328e+01_jprb,2.6804e+01_jprb,2.3451e+01_jprb,2.7467e+01_jprb/)  
kbo( :, 4,21,15) = (/&
 & 6.6469e+01_jprb,4.9905e+01_jprb,3.3345e+01_jprb,2.4522e+01_jprb,2.6969e+01_jprb/)  
kbo( :, 5,21,15) = (/&
 & 8.1848e+01_jprb,6.1440e+01_jprb,4.1033e+01_jprb,2.6023e+01_jprb,2.6435e+01_jprb/)  
kbo( :, 1,22,15) = (/&
 & 3.1988e+01_jprb,2.4041e+01_jprb,2.0812e+01_jprb,2.5651e+01_jprb,3.2255e+01_jprb/)  
kbo( :, 2,22,15) = (/&
 & 4.3721e+01_jprb,3.2841e+01_jprb,2.4334e+01_jprb,2.5950e+01_jprb,3.1687e+01_jprb/)  
kbo( :, 3,22,15) = (/&
 & 5.7294e+01_jprb,4.3022e+01_jprb,2.9561e+01_jprb,2.6432e+01_jprb,3.1040e+01_jprb/)  
kbo( :, 4,22,15) = (/&
 & 7.2474e+01_jprb,5.4409e+01_jprb,3.6410e+01_jprb,2.7333e+01_jprb,3.0338e+01_jprb/)  
kbo( :, 5,22,15) = (/&
 & 8.8942e+01_jprb,6.6761e+01_jprb,4.4583e+01_jprb,2.8834e+01_jprb,2.9615e+01_jprb/)  
kbo( :, 1,23,15) = (/&
 & 3.5516e+01_jprb,2.6690e+01_jprb,2.3334e+01_jprb,2.9036e+01_jprb,3.6353e+01_jprb/)  
kbo( :, 2,23,15) = (/&
 & 4.8281e+01_jprb,3.6264e+01_jprb,2.7127e+01_jprb,2.9241e+01_jprb,3.5539e+01_jprb/)  
kbo( :, 3,23,15) = (/&
 & 6.2902e+01_jprb,4.7230e+01_jprb,3.2633e+01_jprb,2.9564e+01_jprb,3.4668e+01_jprb/)  
kbo( :, 4,23,15) = (/&
 & 7.9108e+01_jprb,5.9385e+01_jprb,3.9793e+01_jprb,3.0280e+01_jprb,3.3772e+01_jprb/)  
kbo( :, 5,23,15) = (/&
 & 9.6701e+01_jprb,7.2580e+01_jprb,4.8461e+01_jprb,3.1825e+01_jprb,3.2859e+01_jprb/)  
kbo( :, 1,24,15) = (/&
 & 3.9680e+01_jprb,2.9829e+01_jprb,2.6160e+01_jprb,3.2548e+01_jprb,4.0469e+01_jprb/)  

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


SUBROUTINE part35

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


kbo( :, 2,24,15) = (/&
 & 5.3468e+01_jprb,4.0169e+01_jprb,3.0146e+01_jprb,3.2629e+01_jprb,3.9411e+01_jprb/)  
kbo( :, 3,24,15) = (/&
 & 6.9159e+01_jprb,5.1932e+01_jprb,3.5957e+01_jprb,3.2753e+01_jprb,3.8325e+01_jprb/)  
kbo( :, 4,24,15) = (/&
 & 8.6552e+01_jprb,6.4969e+01_jprb,4.3591e+01_jprb,3.3410e+01_jprb,3.7213e+01_jprb/)  
kbo( :, 5,24,15) = (/&
 & 1.0532e+02_jprb,7.9041e+01_jprb,5.2783e+01_jprb,3.4989e+01_jprb,3.6087e+01_jprb/)  
kbo( :, 1,25,15) = (/&
 & 4.4432e+01_jprb,3.3401e+01_jprb,2.9194e+01_jprb,3.6051e+01_jprb,4.4622e+01_jprb/)  
kbo( :, 2,25,15) = (/&
 & 5.9330e+01_jprb,4.4578e+01_jprb,3.3433e+01_jprb,3.6017e+01_jprb,4.3268e+01_jprb/)  
kbo( :, 3,25,15) = (/&
 & 7.6262e+01_jprb,5.7273e+01_jprb,3.9678e+01_jprb,3.5986e+01_jprb,4.1914e+01_jprb/)  
kbo( :, 4,25,15) = (/&
 & 9.4907e+01_jprb,7.1254e+01_jprb,4.7861e+01_jprb,3.6668e+01_jprb,4.0563e+01_jprb/)  
kbo( :, 5,25,15) = (/&
 & 1.1490e+02_jprb,8.6240e+01_jprb,5.7602e+01_jprb,3.8320e+01_jprb,3.9224e+01_jprb/)  
kbo( :, 1,26,15) = (/&
 & 4.9945e+01_jprb,3.7542e+01_jprb,3.2485e+01_jprb,3.9526e+01_jprb,4.8685e+01_jprb/)  
kbo( :, 2,26,15) = (/&
 & 6.6132e+01_jprb,4.9685e+01_jprb,3.7067e+01_jprb,3.9294e+01_jprb,4.7029e+01_jprb/)  
kbo( :, 3,26,15) = (/&
 & 8.4358e+01_jprb,6.3353e+01_jprb,4.3878e+01_jprb,3.9293e+01_jprb,4.5384e+01_jprb/)  
kbo( :, 4,26,15) = (/&
 & 1.0419e+02_jprb,7.8224e+01_jprb,5.2598e+01_jprb,4.0034e+01_jprb,4.3769e+01_jprb/)  
kbo( :, 5,26,15) = (/&
 & 1.2529e+02_jprb,9.4044e+01_jprb,6.2813e+01_jprb,4.1703e+01_jprb,4.2207e+01_jprb/)  
kbo( :, 1,27,15) = (/&
 & 5.6070e+01_jprb,4.2141e+01_jprb,3.5908e+01_jprb,4.2930e+01_jprb,5.2613e+01_jprb/)  
kbo( :, 2,27,15) = (/&
 & 7.3488e+01_jprb,5.5206e+01_jprb,4.0960e+01_jprb,4.2467e+01_jprb,5.0627e+01_jprb/)  
kbo( :, 3,27,15) = (/&
 & 9.2902e+01_jprb,6.9766e+01_jprb,4.8295e+01_jprb,4.2561e+01_jprb,4.8685e+01_jprb/)  
kbo( :, 4,27,15) = (/&
 & 1.1389e+02_jprb,8.5509e+01_jprb,5.7519e+01_jprb,4.3345e+01_jprb,4.6803e+01_jprb/)  
kbo( :, 5,27,15) = (/&
 & 1.3609e+02_jprb,1.0215e+02_jprb,6.8230e+01_jprb,4.5005e+01_jprb,4.4998e+01_jprb/)  
kbo( :, 1,28,15) = (/&
 & 6.2602e+01_jprb,4.7047e+01_jprb,3.9407e+01_jprb,4.6160e+01_jprb,5.6361e+01_jprb/)  
kbo( :, 2,28,15) = (/&
 & 8.1239e+01_jprb,6.1026e+01_jprb,4.4978e+01_jprb,4.5556e+01_jprb,5.4022e+01_jprb/)  
kbo( :, 3,28,15) = (/&
 & 1.0182e+02_jprb,7.6460e+01_jprb,5.2849e+01_jprb,4.5684e+01_jprb,5.1781e+01_jprb/)  
kbo( :, 4,28,15) = (/&
 & 1.2390e+02_jprb,9.3015e+01_jprb,6.2567e+01_jprb,4.6514e+01_jprb,4.9625e+01_jprb/)  
kbo( :, 5,28,15) = (/&
 & 1.4712e+02_jprb,1.1043e+02_jprb,7.3749e+01_jprb,4.8179e+01_jprb,4.7555e+01_jprb/)  
kbo( :, 1,29,15) = (/&
 & 6.9623e+01_jprb,5.2320e+01_jprb,4.3015e+01_jprb,4.9123e+01_jprb,5.9729e+01_jprb/)  
kbo( :, 2,29,15) = (/&
 & 8.9447e+01_jprb,6.7187e+01_jprb,4.9134e+01_jprb,4.8482e+01_jprb,5.7058e+01_jprb/)  
kbo( :, 3,29,15) = (/&
 & 1.1112e+02_jprb,8.3443e+01_jprb,5.7534e+01_jprb,4.8630e+01_jprb,5.4527e+01_jprb/)  
kbo( :, 4,29,15) = (/&
 & 1.3428e+02_jprb,1.0081e+02_jprb,6.7748e+01_jprb,4.9484e+01_jprb,5.2105e+01_jprb/)  
kbo( :, 5,29,15) = (/&
 & 1.5845e+02_jprb,1.1893e+02_jprb,7.9425e+01_jprb,5.1210e+01_jprb,4.9788e+01_jprb/)  
kbo( :, 1,30,15) = (/&
 & 7.6956e+01_jprb,5.7823e+01_jprb,4.6660e+01_jprb,5.1758e+01_jprb,6.2685e+01_jprb/)  
kbo( :, 2,30,15) = (/&
 & 9.7902e+01_jprb,7.3533e+01_jprb,5.3332e+01_jprb,5.1164e+01_jprb,5.9706e+01_jprb/)  
kbo( :, 3,30,15) = (/&
 & 1.2067e+02_jprb,9.0610e+01_jprb,6.2274e+01_jprb,5.1339e+01_jprb,5.6887e+01_jprb/)  
kbo( :, 4,30,15) = (/&
 & 1.4481e+02_jprb,1.0871e+02_jprb,7.2976e+01_jprb,5.2237e+01_jprb,5.4217e+01_jprb/)  
kbo( :, 5,30,15) = (/&
 & 1.6975e+02_jprb,1.2741e+02_jprb,8.5081e+01_jprb,5.4027e+01_jprb,5.1685e+01_jprb/)  
kbo( :, 1,31,15) = (/&
 & 8.4668e+01_jprb,6.3613e+01_jprb,5.0308e+01_jprb,5.4125e+01_jprb,6.5163e+01_jprb/)  
kbo( :, 2,31,15) = (/&
 & 1.0670e+02_jprb,8.0139e+01_jprb,5.7571e+01_jprb,5.3567e+01_jprb,6.1881e+01_jprb/)  
kbo( :, 3,31,15) = (/&
 & 1.3043e+02_jprb,9.7932e+01_jprb,6.7030e+01_jprb,5.3784e+01_jprb,5.8816e+01_jprb/)  
kbo( :, 4,31,15) = (/&
 & 1.5531e+02_jprb,1.1659e+02_jprb,7.8195e+01_jprb,5.4732e+01_jprb,5.5925e+01_jprb/)  
kbo( :, 5,31,15) = (/&
 & 1.8083e+02_jprb,1.3573e+02_jprb,9.0627e+01_jprb,5.6617e+01_jprb,5.3201e+01_jprb/)  
kbo( :, 1,32,15) = (/&
 & 9.2652e+01_jprb,6.9602e+01_jprb,5.3950e+01_jprb,5.6194e+01_jprb,6.7147e+01_jprb/)  
kbo( :, 2,32,15) = (/&
 & 1.1562e+02_jprb,8.6827e+01_jprb,6.1761e+01_jprb,5.5696e+01_jprb,6.3605e+01_jprb/)  
kbo( :, 3,32,15) = (/&
 & 1.4016e+02_jprb,1.0523e+02_jprb,7.1723e+01_jprb,5.5956e+01_jprb,6.0313e+01_jprb/)  
kbo( :, 4,32,15) = (/&
 & 1.6571e+02_jprb,1.2439e+02_jprb,8.3322e+01_jprb,5.6967e+01_jprb,5.7235e+01_jprb/)  
kbo( :, 5,32,15) = (/&
 & 1.9180e+02_jprb,1.4395e+02_jprb,9.6112e+01_jprb,5.9039e+01_jprb,5.4359e+01_jprb/)  
kbo( :, 1,33,15) = (/&
 & 1.0072e+02_jprb,7.5656e+01_jprb,5.7525e+01_jprb,5.7981e+01_jprb,6.8650e+01_jprb/)  
kbo( :, 2,33,15) = (/&
 & 1.2455e+02_jprb,9.3526e+01_jprb,6.5887e+01_jprb,5.7530e+01_jprb,6.4898e+01_jprb/)  
kbo( :, 3,33,15) = (/&
 & 1.4981e+02_jprb,1.1247e+02_jprb,7.6362e+01_jprb,5.7872e+01_jprb,6.1421e+01_jprb/)  
kbo( :, 4,33,15) = (/&
 & 1.7592e+02_jprb,1.3205e+02_jprb,8.8345e+01_jprb,5.9018e+01_jprb,5.8197e+01_jprb/)  
kbo( :, 5,33,15) = (/&
 & 2.0244e+02_jprb,1.5193e+02_jprb,1.0144e+02_jprb,6.1255e+01_jprb,5.5191e+01_jprb/)  
kbo( :, 1,34,15) = (/&
 & 1.0805e+02_jprb,8.1154e+01_jprb,6.0752e+01_jprb,5.9538e+01_jprb,6.9858e+01_jprb/)  
kbo( :, 2,34,15) = (/&
 & 1.3258e+02_jprb,9.9553e+01_jprb,6.9613e+01_jprb,5.9127e+01_jprb,6.5932e+01_jprb/)  
kbo( :, 3,34,15) = (/&
 & 1.5841e+02_jprb,1.1893e+02_jprb,8.0500e+01_jprb,5.9515e+01_jprb,6.2316e+01_jprb/)  
kbo( :, 4,34,15) = (/&
 & 1.8496e+02_jprb,1.3883e+02_jprb,9.2804e+01_jprb,6.0816e+01_jprb,5.8960e+01_jprb/)  
kbo( :, 5,34,15) = (/&
 & 2.1175e+02_jprb,1.5892e+02_jprb,1.0610e+02_jprb,6.3176e+01_jprb,5.5844e+01_jprb/)  
kbo( :, 1,35,15) = (/&
 & 1.1294e+02_jprb,8.4826e+01_jprb,6.3098e+01_jprb,6.0919e+01_jprb,7.1099e+01_jprb/)  
kbo( :, 2,35,15) = (/&
 & 1.3798e+02_jprb,1.0360e+02_jprb,7.2230e+01_jprb,6.0487e+01_jprb,6.7012e+01_jprb/)  
kbo( :, 3,35,15) = (/&
 & 1.6418e+02_jprb,1.2325e+02_jprb,8.3338e+01_jprb,6.0862e+01_jprb,6.3251e+01_jprb/)  
kbo( :, 4,35,15) = (/&
 & 1.9102e+02_jprb,1.4338e+02_jprb,9.5820e+01_jprb,6.2223e+01_jprb,5.9778e+01_jprb/)  
kbo( :, 5,35,15) = (/&
 & 2.1806e+02_jprb,1.6365e+02_jprb,1.0925e+02_jprb,6.4647e+01_jprb,5.6557e+01_jprb/)  
kbo( :, 1,36,15) = (/&
 & 1.1497e+02_jprb,8.6347e+01_jprb,6.4397e+01_jprb,6.2153e+01_jprb,7.2517e+01_jprb/)  
kbo( :, 2,36,15) = (/&
 & 1.4029e+02_jprb,1.0534e+02_jprb,7.3555e+01_jprb,6.1644e+01_jprb,6.8256e+01_jprb/)  
kbo( :, 3,36,15) = (/&
 & 1.6674e+02_jprb,1.2517e+02_jprb,8.4714e+01_jprb,6.1952e+01_jprb,6.4357e+01_jprb/)  
kbo( :, 4,36,15) = (/&
 & 1.9381e+02_jprb,1.4548e+02_jprb,9.7239e+01_jprb,6.3251e+01_jprb,6.0757e+01_jprb/)  
kbo( :, 5,36,15) = (/&
 & 2.2104e+02_jprb,1.6589e+02_jprb,1.1075e+02_jprb,6.5650e+01_jprb,5.7519e+01_jprb/)  
kbo( :, 1,37,15) = (/&
 & 1.1301e+02_jprb,8.4880e+01_jprb,6.4331e+01_jprb,6.3346e+01_jprb,7.4417e+01_jprb/)  
kbo( :, 2,37,15) = (/&
 & 1.3839e+02_jprb,1.0391e+02_jprb,7.3187e+01_jprb,6.2656e+01_jprb,6.9936e+01_jprb/)  
kbo( :, 3,37,15) = (/&
 & 1.6490e+02_jprb,1.2380e+02_jprb,8.4124e+01_jprb,6.2789e+01_jprb,6.5851e+01_jprb/)  
kbo( :, 4,37,15) = (/&
 & 1.9210e+02_jprb,1.4420e+02_jprb,9.6503e+01_jprb,6.3870e+01_jprb,6.2117e+01_jprb/)  
kbo( :, 5,37,15) = (/&
 & 2.1953e+02_jprb,1.6476e+02_jprb,1.1000e+02_jprb,6.6083e+01_jprb,5.8820e+01_jprb/)  
kbo( :, 1,38,15) = (/&
 & 1.1060e+02_jprb,8.3078e+01_jprb,6.4103e+01_jprb,6.4426e+01_jprb,7.6201e+01_jprb/)  
kbo( :, 2,38,15) = (/&
 & 1.3599e+02_jprb,1.0211e+02_jprb,7.2632e+01_jprb,6.3555e+01_jprb,7.1515e+01_jprb/)  
kbo( :, 3,38,15) = (/&
 & 1.6253e+02_jprb,1.2202e+02_jprb,8.3307e+01_jprb,6.3503e+01_jprb,6.7259e+01_jprb/)  
kbo( :, 4,38,15) = (/&
 & 1.8982e+02_jprb,1.4248e+02_jprb,9.5509e+01_jprb,6.4372e+01_jprb,6.3412e+01_jprb/)  
kbo( :, 5,38,15) = (/&
 & 2.1740e+02_jprb,1.6316e+02_jprb,1.0894e+02_jprb,6.6382e+01_jprb,6.0081e+01_jprb/)  
kbo( :, 1,39,15) = (/&
 & 1.0803e+02_jprb,8.1144e+01_jprb,6.3771e+01_jprb,6.5414e+01_jprb,7.7868e+01_jprb/)  
kbo( :, 2,39,15) = (/&
 & 1.3337e+02_jprb,1.0015e+02_jprb,7.1982e+01_jprb,6.4350e+01_jprb,7.2975e+01_jprb/)  
kbo( :, 3,39,15) = (/&
 & 1.5993e+02_jprb,1.2007e+02_jprb,8.2398e+01_jprb,6.4114e+01_jprb,6.8560e+01_jprb/)  
kbo( :, 4,39,15) = (/&
 & 1.8726e+02_jprb,1.4057e+02_jprb,9.4413e+01_jprb,6.4795e+01_jprb,6.4662e+01_jprb/)  
kbo( :, 5,39,15) = (/&
 & 2.1494e+02_jprb,1.6132e+02_jprb,1.0771e+02_jprb,6.6595e+01_jprb,6.1311e+01_jprb/)  
kbo( :, 1,40,15) = (/&
 & 1.0282e+02_jprb,7.7288e+01_jprb,6.2719e+01_jprb,6.6497e+01_jprb,7.9980e+01_jprb/)  
kbo( :, 2,40,15) = (/&
 & 1.2788e+02_jprb,9.6038e+01_jprb,7.0327e+01_jprb,6.5135e+01_jprb,7.4834e+01_jprb/)  
kbo( :, 3,40,15) = (/&
 & 1.5434e+02_jprb,1.1588e+02_jprb,8.0252e+01_jprb,6.4644e+01_jprb,7.0224e+01_jprb/)  
kbo( :, 4,40,15) = (/&
 & 1.8163e+02_jprb,1.3634e+02_jprb,9.1957e+01_jprb,6.5051e+01_jprb,6.6166e+01_jprb/)  
kbo( :, 5,40,15) = (/&
 & 2.0939e+02_jprb,1.5716e+02_jprb,1.0497e+02_jprb,6.6532e+01_jprb,6.2695e+01_jprb/)  
kbo( :, 1,41,15) = (/&
 & 9.7246e+01_jprb,7.3264e+01_jprb,6.1654e+01_jprb,6.7606e+01_jprb,8.2110e+01_jprb/)  
kbo( :, 2,41,15) = (/&
 & 1.2196e+02_jprb,9.1598e+01_jprb,6.8639e+01_jprb,6.5918e+01_jprb,7.6715e+01_jprb/)  
kbo( :, 3,41,15) = (/&
 & 1.4825e+02_jprb,1.1131e+02_jprb,7.7976e+01_jprb,6.5166e+01_jprb,7.1898e+01_jprb/)  
kbo( :, 4,41,15) = (/&
 & 1.7546e+02_jprb,1.3172e+02_jprb,8.9341e+01_jprb,6.5294e+01_jprb,6.7663e+01_jprb/)  
kbo( :, 5,41,15) = (/&
 & 2.0319e+02_jprb,1.5251e+02_jprb,1.0200e+02_jprb,6.6466e+01_jprb,6.4089e+01_jprb/)  
kbo( :, 1,42,15) = (/&
 & 9.1646e+01_jprb,6.9319e+01_jprb,6.0662e+01_jprb,6.8736e+01_jprb,8.4225e+01_jprb/)  
kbo( :, 2,42,15) = (/&
 & 1.1599e+02_jprb,8.7117e+01_jprb,6.7035e+01_jprb,6.6694e+01_jprb,7.8581e+01_jprb/)  
kbo( :, 3,42,15) = (/&
 & 1.4201e+02_jprb,1.0663e+02_jprb,7.5772e+01_jprb,6.5694e+01_jprb,7.3551e+01_jprb/)  
kbo( :, 4,42,15) = (/&
 & 1.6913e+02_jprb,1.2698e+02_jprb,8.6698e+01_jprb,6.5537e+01_jprb,6.9143e+01_jprb/)  
kbo( :, 5,42,15) = (/&
 & 1.9682e+02_jprb,1.4774e+02_jprb,9.9046e+01_jprb,6.6404e+01_jprb,6.5463e+01_jprb/)  
kbo( :, 1,43,15) = (/&
 & 8.4789e+01_jprb,6.4636e+01_jprb,5.9566e+01_jprb,7.0099e+01_jprb,8.6671e+01_jprb/)  
kbo( :, 2,43,15) = (/&
 & 1.0857e+02_jprb,8.1571e+01_jprb,6.5097e+01_jprb,6.7581e+01_jprb,8.0749e+01_jprb/)  
kbo( :, 3,43,15) = (/&
 & 1.3420e+02_jprb,1.0078e+02_jprb,7.3112e+01_jprb,6.6245e+01_jprb,7.5464e+01_jprb/)  
kbo( :, 4,43,15) = (/&
 & 1.6112e+02_jprb,1.2096e+02_jprb,8.3408e+01_jprb,6.5806e+01_jprb,7.0849e+01_jprb/)  
kbo( :, 5,43,15) = (/&
 & 1.8873e+02_jprb,1.4167e+02_jprb,9.5382e+01_jprb,6.6299e+01_jprb,6.7006e+01_jprb/)  
kbo( :, 1,44,15) = (/&
 & 7.7526e+01_jprb,5.9880e+01_jprb,5.8674e+01_jprb,7.1657e+01_jprb,8.9332e+01_jprb/)  
kbo( :, 2,44,15) = (/&
 & 1.0062e+02_jprb,7.5764e+01_jprb,6.3217e+01_jprb,6.8595e+01_jprb,8.3089e+01_jprb/)  
kbo( :, 3,44,15) = (/&
 & 1.2573e+02_jprb,9.4425e+01_jprb,7.0405e+01_jprb,6.6884e+01_jprb,7.7528e+01_jprb/)  
kbo( :, 4,44,15) = (/&
 & 1.5235e+02_jprb,1.1439e+02_jprb,7.9935e+01_jprb,6.6125e+01_jprb,7.2672e+01_jprb/)  
kbo( :, 5,44,15) = (/&
 & 1.7985e+02_jprb,1.3501e+02_jprb,9.1481e+01_jprb,6.6264e+01_jprb,6.8668e+01_jprb/)  
kbo( :, 1,45,15) = (/&
 & 7.0491e+01_jprb,5.5510e+01_jprb,5.8020e+01_jprb,7.3319e+01_jprb,9.2047e+01_jprb/)  
kbo( :, 2,45,15) = (/&
 & 9.2796e+01_jprb,7.0229e+01_jprb,6.1583e+01_jprb,6.9737e+01_jprb,8.5464e+01_jprb/)  
kbo( :, 3,45,15) = (/&
 & 1.1733e+02_jprb,8.8127e+01_jprb,6.7937e+01_jprb,6.7594e+01_jprb,7.9635e+01_jprb/)  
kbo( :, 4,45,15) = (/&
 & 1.4359e+02_jprb,1.0781e+02_jprb,7.6707e+01_jprb,6.6524e+01_jprb,7.4535e+01_jprb/)  
kbo( :, 5,45,15) = (/&
 & 1.7088e+02_jprb,1.2829e+02_jprb,8.7650e+01_jprb,6.6303e+01_jprb,7.0370e+01_jprb/)  
kbo( :, 1,46,15) = (/&
 & 6.3285e+01_jprb,5.1283e+01_jprb,5.7489e+01_jprb,7.5126e+01_jprb,9.5002e+01_jprb/)  
kbo( :, 2,46,15) = (/&
 & 8.4647e+01_jprb,6.4675e+01_jprb,6.0155e+01_jprb,7.1107e+01_jprb,8.8042e+01_jprb/)  
kbo( :, 3,46,15) = (/&
 & 1.0850e+02_jprb,8.1543e+01_jprb,6.5540e+01_jprb,6.8434e+01_jprb,8.1933e+01_jprb/)  
kbo( :, 4,46,15) = (/&
 & 1.3425e+02_jprb,1.0081e+02_jprb,7.3459e+01_jprb,6.6985e+01_jprb,7.6545e+01_jprb/)  
kbo( :, 5,46,15) = (/&
 & 1.6128e+02_jprb,1.2109e+02_jprb,8.3670e+01_jprb,6.6464e+01_jprb,7.2233e+01_jprb/)  
kbo( :, 1,47,15) = (/&
 & 5.5631e+01_jprb,4.7112e+01_jprb,5.7366e+01_jprb,7.7250e+01_jprb,9.8390e+01_jprb/)  
kbo( :, 2,47,15) = (/&
 & 7.5847e+01_jprb,5.8961e+01_jprb,5.9001e+01_jprb,7.2829e+01_jprb,9.1005e+01_jprb/)  
kbo( :, 3,47,15) = (/&
 & 9.8817e+01_jprb,7.4522e+01_jprb,6.3205e+01_jprb,6.9511e+01_jprb,8.4535e+01_jprb/)  
kbo( :, 4,47,15) = (/&
 & 1.2390e+02_jprb,9.3053e+01_jprb,7.0147e+01_jprb,6.7616e+01_jprb,7.8824e+01_jprb/)  
kbo( :, 5,47,15) = (/&
 & 1.5053e+02_jprb,1.1302e+02_jprb,7.9443e+01_jprb,6.6722e+01_jprb,7.4271e+01_jprb/)  
kbo( :, 1,48,15) = (/&
 & 4.8436e+01_jprb,4.3553e+01_jprb,5.7561e+01_jprb,7.9397e+01_jprb,1.0193e+02_jprb/)  
kbo( :, 2,48,15) = (/&
 & 6.7454e+01_jprb,5.3825e+01_jprb,5.8172e+01_jprb,7.4675e+01_jprb,9.4102e+01_jprb/)  
kbo( :, 3,48,15) = (/&
 & 8.9409e+01_jprb,6.7955e+01_jprb,6.1273e+01_jprb,7.0816e+01_jprb,8.7238e+01_jprb/)  
kbo( :, 4,48,15) = (/&
 & 1.1374e+02_jprb,8.5433e+01_jprb,6.7178e+01_jprb,6.8391e+01_jprb,8.1214e+01_jprb/)  
kbo( :, 5,48,15) = (/&
 & 1.3983e+02_jprb,1.0500e+02_jprb,7.5561e+01_jprb,6.7098e+01_jprb,7.6443e+01_jprb/)  
kbo( :, 1,49,15) = (/&
 & 4.1740e+01_jprb,4.0612e+01_jprb,5.8201e+01_jprb,8.1772e+01_jprb,1.0563e+02_jprb/)  
kbo( :, 2,49,15) = (/&
 & 5.9508e+01_jprb,4.9323e+01_jprb,5.7719e+01_jprb,7.6675e+01_jprb,9.7333e+01_jprb/)  
kbo( :, 3,49,15) = (/&
 & 8.0351e+01_jprb,6.1919e+01_jprb,5.9828e+01_jprb,7.2362e+01_jprb,9.0062e+01_jprb/)  
kbo( :, 4,49,15) = (/&
 & 1.0383e+02_jprb,7.8144e+01_jprb,6.4592e+01_jprb,6.9309e+01_jprb,8.3761e+01_jprb/)  
kbo( :, 5,49,15) = (/&
 & 1.2931e+02_jprb,9.7110e+01_jprb,7.1998e+01_jprb,6.7617e+01_jprb,7.8823e+01_jprb/)  
kbo( :, 1,50,15) = (/&
 & 3.5934e+01_jprb,3.8439e+01_jprb,5.9112e+01_jprb,8.4116e+01_jprb,1.0931e+02_jprb/)  
kbo( :, 2,50,15) = (/&
 & 5.2489e+01_jprb,4.5633e+01_jprb,5.7703e+01_jprb,7.8607e+01_jprb,1.0052e+02_jprb/)  
kbo( :, 3,50,15) = (/&
 & 7.2228e+01_jprb,5.6786e+01_jprb,5.8886e+01_jprb,7.4022e+01_jprb,9.2854e+01_jprb/)  
kbo( :, 4,50,15) = (/&
 & 9.4805e+01_jprb,7.1728e+01_jprb,6.2540e+01_jprb,7.0379e+01_jprb,8.6215e+01_jprb/)  
kbo( :, 5,50,15) = (/&
 & 1.1961e+02_jprb,8.9835e+01_jprb,6.9015e+01_jprb,6.8227e+01_jprb,8.1035e+01_jprb/)  
kbo( :, 1,51,15) = (/&
 & 3.0771e+01_jprb,3.7000e+01_jprb,6.0264e+01_jprb,8.6506e+01_jprb,1.1308e+02_jprb/)  
kbo( :, 2,51,15) = (/&
 & 4.6091e+01_jprb,4.2604e+01_jprb,5.8016e+01_jprb,8.0604e+01_jprb,1.0374e+02_jprb/)  
kbo( :, 3,51,15) = (/&
 & 6.4712e+01_jprb,5.2306e+01_jprb,5.8175e+01_jprb,7.5702e+01_jprb,9.5668e+01_jprb/)  
kbo( :, 4,51,15) = (/&
 & 8.6318e+01_jprb,6.5907e+01_jprb,6.0924e+01_jprb,7.1626e+01_jprb,8.8689e+01_jprb/)  
kbo( :, 5,51,15) = (/&
 & 1.1042e+02_jprb,8.2968e+01_jprb,6.6417e+01_jprb,6.8953e+01_jprb,8.3187e+01_jprb/)  
kbo( :, 1,52,15) = (/&
 & 2.6073e+01_jprb,3.6045e+01_jprb,6.1822e+01_jprb,8.9117e+01_jprb,1.1704e+02_jprb/)  
kbo( :, 2,52,15) = (/&
 & 4.0129e+01_jprb,4.0074e+01_jprb,5.8683e+01_jprb,8.2788e+01_jprb,1.0713e+02_jprb/)  
kbo( :, 3,52,15) = (/&
 & 5.7599e+01_jprb,4.8365e+01_jprb,5.7911e+01_jprb,7.7538e+01_jprb,9.8609e+01_jprb/)  
kbo( :, 4,52,15) = (/&
 & 7.8172e+01_jprb,6.0565e+01_jprb,5.9728e+01_jprb,7.3072e+01_jprb,9.1293e+01_jprb/)  
kbo( :, 5,52,15) = (/&
 & 1.0144e+02_jprb,7.6446e+01_jprb,6.4164e+01_jprb,6.9820e+01_jprb,8.5483e+01_jprb/)  
kbo( :, 1,53,15) = (/&
 & 2.1825e+01_jprb,3.5431e+01_jprb,6.3525e+01_jprb,9.1916e+01_jprb,1.2120e+02_jprb/)  

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


SUBROUTINE part36

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


kbo( :, 2,53,15) = (/&
 & 3.4602e+01_jprb,3.8125e+01_jprb,5.9600e+01_jprb,8.5050e+01_jprb,1.1069e+02_jprb/)  
kbo( :, 3,53,15) = (/&
 & 5.0871e+01_jprb,4.4917e+01_jprb,5.7933e+01_jprb,7.9373e+01_jprb,1.0169e+02_jprb/)  
kbo( :, 4,53,15) = (/&
 & 7.0355e+01_jprb,5.5689e+01_jprb,5.8850e+01_jprb,7.4670e+01_jprb,9.4071e+01_jprb/)  
kbo( :, 5,53,15) = (/&
 & 9.2711e+01_jprb,7.0293e+01_jprb,6.2235e+01_jprb,7.0877e+01_jprb,8.7997e+01_jprb/)  
kbo( :, 1,54,15) = (/&
 & 1.8337e+01_jprb,3.5294e+01_jprb,6.5103e+01_jprb,9.4568e+01_jprb,1.2522e+02_jprb/)  
kbo( :, 2,54,15) = (/&
 & 2.9950e+01_jprb,3.6915e+01_jprb,6.0716e+01_jprb,8.7228e+01_jprb,1.1414e+02_jprb/)  
kbo( :, 3,54,15) = (/&
 & 4.5070e+01_jprb,4.2223e+01_jprb,5.8276e+01_jprb,8.1216e+01_jprb,1.0463e+02_jprb/)  
kbo( :, 4,54,15) = (/&
 & 6.3520e+01_jprb,5.1682e+01_jprb,5.8241e+01_jprb,7.6218e+01_jprb,9.6556e+01_jprb/)  
kbo( :, 5,54,15) = (/&
 & 8.4973e+01_jprb,6.5035e+01_jprb,6.0814e+01_jprb,7.2031e+01_jprb,8.9905e+01_jprb/)  
kbo( :, 1,55,15) = (/&
 & 1.5337e+01_jprb,3.5484e+01_jprb,6.6783e+01_jprb,9.7340e+01_jprb,1.2928e+02_jprb/)  
kbo( :, 2,55,15) = (/&
 & 2.5852e+01_jprb,3.6097e+01_jprb,6.2097e+01_jprb,8.9537e+01_jprb,1.1762e+02_jprb/)  
kbo( :, 3,55,15) = (/&
 & 3.9852e+01_jprb,4.0035e+01_jprb,5.8876e+01_jprb,8.3127e+01_jprb,1.0760e+02_jprb/)  
kbo( :, 4,55,15) = (/&
 & 5.7277e+01_jprb,4.8243e+01_jprb,5.8037e+01_jprb,7.7828e+01_jprb,9.9021e+01_jprb/)  
kbo( :, 5,55,15) = (/&
 & 7.7821e+01_jprb,6.0372e+01_jprb,5.9798e+01_jprb,7.3320e+01_jprb,9.1766e+01_jprb/)  
kbo( :, 1,56,15) = (/&
 & 1.2678e+01_jprb,3.5873e+01_jprb,6.8551e+01_jprb,1.0034e+02_jprb,1.3352e+02_jprb/)  
kbo( :, 2,56,15) = (/&
 & 2.2123e+01_jprb,3.5552e+01_jprb,6.3571e+01_jprb,9.1965e+01_jprb,1.2124e+02_jprb/)  
kbo( :, 3,56,15) = (/&
 & 3.5001e+01_jprb,3.8317e+01_jprb,5.9669e+01_jprb,8.5094e+01_jprb,1.1071e+02_jprb/)  
kbo( :, 4,56,15) = (/&
 & 5.1365e+01_jprb,4.5210e+01_jprb,5.8041e+01_jprb,7.9413e+01_jprb,1.0170e+02_jprb/)  
kbo( :, 5,56,15) = (/&
 & 7.0946e+01_jprb,5.6077e+01_jprb,5.9007e+01_jprb,7.4694e+01_jprb,9.3909e+01_jprb/)  
kbo( :, 1,57,15) = (/&
 & 1.0339e+01_jprb,3.6549e+01_jprb,7.0411e+01_jprb,1.0357e+02_jprb,1.3800e+02_jprb/)  
kbo( :, 2,57,15) = (/&
 & 1.8742e+01_jprb,3.5363e+01_jprb,6.5053e+01_jprb,9.4457e+01_jprb,1.2502e+02_jprb/)  
kbo( :, 3,57,15) = (/&
 & 3.0504e+01_jprb,3.7104e+01_jprb,6.0681e+01_jprb,8.7139e+01_jprb,1.1395e+02_jprb/)  
kbo( :, 4,57,15) = (/&
 & 4.5773e+01_jprb,4.2584e+01_jprb,5.8331e+01_jprb,8.1143e+01_jprb,1.0448e+02_jprb/)  
kbo( :, 5,57,15) = (/&
 & 6.4363e+01_jprb,5.2190e+01_jprb,5.8389e+01_jprb,7.6157e+01_jprb,9.6302e+01_jprb/)  
kbo( :, 1,58,15) = (/&
 & 8.4072e+00_jprb,3.7388e+01_jprb,7.2338e+01_jprb,1.0684e+02_jprb,1.4246e+02_jprb/)  
kbo( :, 2,58,15) = (/&
 & 1.5855e+01_jprb,3.5502e+01_jprb,6.6608e+01_jprb,9.7023e+01_jprb,1.2881e+02_jprb/)  
kbo( :, 3,58,15) = (/&
 & 2.6572e+01_jprb,3.6289e+01_jprb,6.1949e+01_jprb,8.9266e+01_jprb,1.1719e+02_jprb/)  
kbo( :, 4,58,15) = (/&
 & 4.0779e+01_jprb,4.0444e+01_jprb,5.8844e+01_jprb,8.2917e+01_jprb,1.0723e+02_jprb/)  
kbo( :, 5,58,15) = (/&
 & 5.8404e+01_jprb,4.8880e+01_jprb,5.8134e+01_jprb,7.7647e+01_jprb,9.8698e+01_jprb/)  
kbo( :, 1,59,15) = (/&
 & 7.7095e+00_jprb,3.7763e+01_jprb,7.3160e+01_jprb,1.0825e+02_jprb,1.4434e+02_jprb/)  
kbo( :, 2,59,15) = (/&
 & 1.4785e+01_jprb,3.5623e+01_jprb,6.7273e+01_jprb,9.8137e+01_jprb,1.3040e+02_jprb/)  
kbo( :, 3,59,15) = (/&
 & 2.5092e+01_jprb,3.6030e+01_jprb,6.2505e+01_jprb,9.0193e+01_jprb,1.1856e+02_jprb/)  
kbo( :, 4,59,15) = (/&
 & 3.8875e+01_jprb,3.9709e+01_jprb,5.9122e+01_jprb,8.3653e+01_jprb,1.0840e+02_jprb/)  
kbo( :, 5,59,15) = (/&
 & 5.6102e+01_jprb,4.7649e+01_jprb,5.8109e+01_jprb,7.8262e+01_jprb,9.9705e+01_jprb/)  
kbo( :, 1,13,16) = (/&
 & 3.2263e+01_jprb,2.4210e+01_jprb,1.6158e+01_jprb,8.6472e+00_jprb,1.1361e+01_jprb/)  
kbo( :, 2,13,16) = (/&
 & 4.5174e+01_jprb,3.3894e+01_jprb,2.2614e+01_jprb,1.1334e+01_jprb,1.0965e+01_jprb/)  
kbo( :, 3,13,16) = (/&
 & 6.0029e+01_jprb,4.5035e+01_jprb,3.0042e+01_jprb,1.5048e+01_jprb,1.0696e+01_jprb/)  
kbo( :, 4,13,16) = (/&
 & 7.6465e+01_jprb,5.7362e+01_jprb,3.8260e+01_jprb,1.9157e+01_jprb,1.0564e+01_jprb/)  
kbo( :, 5,13,16) = (/&
 & 9.4073e+01_jprb,7.0568e+01_jprb,4.7064e+01_jprb,2.3559e+01_jprb,1.0648e+01_jprb/)  
kbo( :, 1,14,16) = (/&
 & 3.9418e+01_jprb,2.9575e+01_jprb,1.9732e+01_jprb,1.0271e+01_jprb,1.2990e+01_jprb/)  
kbo( :, 2,14,16) = (/&
 & 5.4735e+01_jprb,4.1063e+01_jprb,2.7391e+01_jprb,1.3719e+01_jprb,1.2722e+01_jprb/)  
kbo( :, 3,14,16) = (/&
 & 7.2196e+01_jprb,5.4159e+01_jprb,3.6122e+01_jprb,1.8084e+01_jprb,1.2482e+01_jprb/)  
kbo( :, 4,14,16) = (/&
 & 9.1581e+01_jprb,6.8699e+01_jprb,4.5817e+01_jprb,2.2935e+01_jprb,1.2482e+01_jprb/)  
kbo( :, 5,14,16) = (/&
 & 1.1260e+02_jprb,8.4466e+01_jprb,5.6330e+01_jprb,2.8194e+01_jprb,1.2541e+01_jprb/)  
kbo( :, 1,15,16) = (/&
 & 4.7744e+01_jprb,3.5818e+01_jprb,2.3892e+01_jprb,1.2552e+01_jprb,1.5030e+01_jprb/)  
kbo( :, 2,15,16) = (/&
 & 6.5839e+01_jprb,4.9390e+01_jprb,3.2941e+01_jprb,1.6492e+01_jprb,1.4777e+01_jprb/)  
kbo( :, 3,15,16) = (/&
 & 8.6769e+01_jprb,6.5089e+01_jprb,4.3408e+01_jprb,2.1728e+01_jprb,1.4586e+01_jprb/)  
kbo( :, 4,15,16) = (/&
 & 1.1002e+02_jprb,8.2528e+01_jprb,5.5036e+01_jprb,2.7544e+01_jprb,1.4666e+01_jprb/)  
kbo( :, 5,15,16) = (/&
 & 1.3516e+02_jprb,1.0139e+02_jprb,6.7610e+01_jprb,3.3833e+01_jprb,1.4702e+01_jprb/)  
kbo( :, 1,16,16) = (/&
 & 5.7645e+01_jprb,4.3243e+01_jprb,2.8842e+01_jprb,1.5267e+01_jprb,1.7359e+01_jprb/)  
kbo( :, 2,16,16) = (/&
 & 7.9413e+01_jprb,5.9570e+01_jprb,3.9727e+01_jprb,1.9884e+01_jprb,1.7054e+01_jprb/)  
kbo( :, 3,16,16) = (/&
 & 1.0440e+02_jprb,7.8314e+01_jprb,5.2225e+01_jprb,2.6135e+01_jprb,1.7041e+01_jprb/)  
kbo( :, 4,16,16) = (/&
 & 1.3208e+02_jprb,9.9071e+01_jprb,6.6063e+01_jprb,3.3056e+01_jprb,1.7119e+01_jprb/)  
kbo( :, 5,16,16) = (/&
 & 1.6175e+02_jprb,1.2132e+02_jprb,8.0899e+01_jprb,4.0476e+01_jprb,1.7152e+01_jprb/)  
kbo( :, 1,17,16) = (/&
 & 6.9575e+01_jprb,5.2190e+01_jprb,3.4804e+01_jprb,1.8369e+01_jprb,1.9921e+01_jprb/)  
kbo( :, 2,17,16) = (/&
 & 9.5428e+01_jprb,7.1580e+01_jprb,4.7733e+01_jprb,2.3885e+01_jprb,1.9756e+01_jprb/)  
kbo( :, 3,17,16) = (/&
 & 1.2491e+02_jprb,9.3694e+01_jprb,6.2476e+01_jprb,3.1259e+01_jprb,1.9810e+01_jprb/)  
kbo( :, 4,17,16) = (/&
 & 1.5735e+02_jprb,1.1802e+02_jprb,7.8696e+01_jprb,3.9370e+01_jprb,1.9895e+01_jprb/)  
kbo( :, 5,17,16) = (/&
 & 1.9186e+02_jprb,1.4391e+02_jprb,9.5955e+01_jprb,4.8001e+01_jprb,1.9910e+01_jprb/)  
kbo( :, 1,18,16) = (/&
 & 8.3432e+01_jprb,6.2581e+01_jprb,4.1731e+01_jprb,2.1854e+01_jprb,2.3228e+01_jprb/)  
kbo( :, 2,18,16) = (/&
 & 1.1378e+02_jprb,8.5346e+01_jprb,5.6908e+01_jprb,2.8471e+01_jprb,2.3168e+01_jprb/)  
kbo( :, 3,18,16) = (/&
 & 1.4807e+02_jprb,1.1106e+02_jprb,7.4051e+01_jprb,3.7043e+01_jprb,2.3063e+01_jprb/)  
kbo( :, 4,18,16) = (/&
 & 1.8546e+02_jprb,1.3910e+02_jprb,9.2747e+01_jprb,4.6393e+01_jprb,2.3051e+01_jprb/)  
kbo( :, 5,18,16) = (/&
 & 2.2501e+02_jprb,1.6877e+02_jprb,1.1253e+02_jprb,5.6286e+01_jprb,2.2993e+01_jprb/)  
kbo( :, 1,19,16) = (/&
 & 9.9057e+01_jprb,7.4299e+01_jprb,4.9542e+01_jprb,2.5942e+01_jprb,2.7272e+01_jprb/)  
kbo( :, 2,19,16) = (/&
 & 1.3405e+02_jprb,1.0055e+02_jprb,6.7042e+01_jprb,3.3543e+01_jprb,2.7144e+01_jprb/)  
kbo( :, 3,19,16) = (/&
 & 1.7334e+02_jprb,1.3002e+02_jprb,8.6689e+01_jprb,4.3364e+01_jprb,2.6916e+01_jprb/)  
kbo( :, 4,19,16) = (/&
 & 2.1641e+02_jprb,1.6232e+02_jprb,1.0823e+02_jprb,5.4140e+01_jprb,2.6725e+01_jprb/)  
kbo( :, 5,19,16) = (/&
 & 2.6236e+02_jprb,1.9678e+02_jprb,1.3121e+02_jprb,6.5630e+01_jprb,2.6538e+01_jprb/)  
kbo( :, 1,20,16) = (/&
 & 1.1670e+02_jprb,8.7534e+01_jprb,5.8366e+01_jprb,3.0680e+01_jprb,3.1959e+01_jprb/)  
kbo( :, 2,20,16) = (/&
 & 1.5709e+02_jprb,1.1783e+02_jprb,7.8566e+01_jprb,3.9305e+01_jprb,3.1724e+01_jprb/)  
kbo( :, 3,20,16) = (/&
 & 2.0269e+02_jprb,1.5203e+02_jprb,1.0137e+02_jprb,5.0708e+01_jprb,3.1376e+01_jprb/)  
kbo( :, 4,20,16) = (/&
 & 2.5230e+02_jprb,1.8924e+02_jprb,1.2618e+02_jprb,6.3114e+01_jprb,3.0984e+01_jprb/)  
kbo( :, 5,20,16) = (/&
 & 3.0479e+02_jprb,2.2861e+02_jprb,1.5242e+02_jprb,7.6237e+01_jprb,3.0606e+01_jprb/)  
kbo( :, 1,21,16) = (/&
 & 1.3677e+02_jprb,1.0259e+02_jprb,6.8408e+01_jprb,3.5947e+01_jprb,3.7295e+01_jprb/)  
kbo( :, 2,21,16) = (/&
 & 1.8327e+02_jprb,1.3746e+02_jprb,9.1655e+01_jprb,4.5850e+01_jprb,3.6923e+01_jprb/)  
kbo( :, 3,21,16) = (/&
 & 2.3530e+02_jprb,1.7648e+02_jprb,1.1767e+02_jprb,5.8860e+01_jprb,3.6405e+01_jprb/)  
kbo( :, 4,21,16) = (/&
 & 2.9155e+02_jprb,2.1867e+02_jprb,1.4580e+02_jprb,7.2922e+01_jprb,3.5874e+01_jprb/)  
kbo( :, 5,21,16) = (/&
 & 3.5033e+02_jprb,2.6276e+02_jprb,1.7519e+02_jprb,8.7619e+01_jprb,3.5270e+01_jprb/)  
kbo( :, 1,22,16) = (/&
 & 1.6233e+02_jprb,1.2176e+02_jprb,8.1187e+01_jprb,4.2657e+01_jprb,4.3248e+01_jprb/)  
kbo( :, 2,22,16) = (/&
 & 2.1544e+02_jprb,1.6159e+02_jprb,1.0774e+02_jprb,5.3945e+01_jprb,4.2701e+01_jprb/)  
kbo( :, 3,22,16) = (/&
 & 2.7410e+02_jprb,2.0559e+02_jprb,1.3707e+02_jprb,6.8557e+01_jprb,4.2119e+01_jprb/)  
kbo( :, 4,22,16) = (/&
 & 3.3685e+02_jprb,2.5265e+02_jprb,1.6845e+02_jprb,8.4248e+01_jprb,4.1509e+01_jprb/)  
kbo( :, 5,22,16) = (/&
 & 4.0263e+02_jprb,3.0199e+02_jprb,2.0134e+02_jprb,1.0070e+02_jprb,4.0811e+01_jprb/)  
kbo( :, 1,23,16) = (/&
 & 1.9053e+02_jprb,1.4291e+02_jprb,9.5285e+01_jprb,5.0617e+01_jprb,5.0337e+01_jprb/)  
kbo( :, 2,23,16) = (/&
 & 2.5017e+02_jprb,1.8764e+02_jprb,1.2511e+02_jprb,6.2998e+01_jprb,4.9660e+01_jprb/)  
kbo( :, 3,23,16) = (/&
 & 3.1595e+02_jprb,2.3698e+02_jprb,1.5800e+02_jprb,7.9029e+01_jprb,4.8927e+01_jprb/)  
kbo( :, 4,23,16) = (/&
 & 3.8628e+02_jprb,2.8972e+02_jprb,1.9317e+02_jprb,9.6612e+01_jprb,4.8034e+01_jprb/)  
kbo( :, 5,23,16) = (/&
 & 4.5926e+02_jprb,3.4446e+02_jprb,2.2966e+02_jprb,1.1486e+02_jprb,4.7018e+01_jprb/)  
kbo( :, 1,24,16) = (/&
 & 2.2153e+02_jprb,1.6616e+02_jprb,1.1079e+02_jprb,5.9590e+01_jprb,5.8418e+01_jprb/)  
kbo( :, 2,24,16) = (/&
 & 2.8858e+02_jprb,2.1645e+02_jprb,1.4432e+02_jprb,7.2964e+01_jprb,5.7353e+01_jprb/)  
kbo( :, 3,24,16) = (/&
 & 3.6176e+02_jprb,2.7134e+02_jprb,1.8091e+02_jprb,9.0484e+01_jprb,5.6191e+01_jprb/)  
kbo( :, 4,24,16) = (/&
 & 4.3913e+02_jprb,3.2936e+02_jprb,2.1959e+02_jprb,1.0983e+02_jprb,5.4899e+01_jprb/)  
kbo( :, 5,24,16) = (/&
 & 5.1871e+02_jprb,3.8905e+02_jprb,2.5939e+02_jprb,1.2972e+02_jprb,5.3493e+01_jprb/)  
kbo( :, 1,25,16) = (/&
 & 2.5592e+02_jprb,1.9195e+02_jprb,1.2799e+02_jprb,6.9505e+01_jprb,6.6958e+01_jprb/)  
kbo( :, 2,25,16) = (/&
 & 3.3021e+02_jprb,2.4767e+02_jprb,1.6513e+02_jprb,8.3805e+01_jprb,6.5388e+01_jprb/)  
kbo( :, 3,25,16) = (/&
 & 4.1034e+02_jprb,3.0777e+02_jprb,2.0520e+02_jprb,1.0263e+02_jprb,6.3684e+01_jprb/)  
kbo( :, 4,25,16) = (/&
 & 4.9407e+02_jprb,3.7057e+02_jprb,2.4706e+02_jprb,1.2356e+02_jprb,6.1889e+01_jprb/)  
kbo( :, 5,25,16) = (/&
 & 5.7945e+02_jprb,4.3460e+02_jprb,2.8975e+02_jprb,1.4490e+02_jprb,6.0007e+01_jprb/)  
kbo( :, 1,26,16) = (/&
 & 2.9375e+02_jprb,2.2033e+02_jprb,1.4690e+02_jprb,8.0244e+01_jprb,7.5657e+01_jprb/)  
kbo( :, 2,26,16) = (/&
 & 3.7482e+02_jprb,2.8113e+02_jprb,1.8744e+02_jprb,9.5627e+01_jprb,7.3427e+01_jprb/)  
kbo( :, 3,26,16) = (/&
 & 4.6126e+02_jprb,3.4596e+02_jprb,2.3065e+02_jprb,1.1546e+02_jprb,7.1104e+01_jprb/)  
kbo( :, 4,26,16) = (/&
 & 5.5138e+02_jprb,4.1354e+02_jprb,2.7571e+02_jprb,1.3788e+02_jprb,6.8732e+01_jprb/)  
kbo( :, 5,26,16) = (/&
 & 6.4282e+02_jprb,4.8213e+02_jprb,3.2143e+02_jprb,1.6074e+02_jprb,6.6296e+01_jprb/)  
kbo( :, 1,27,16) = (/&
 & 3.3321e+02_jprb,2.4992e+02_jprb,1.6663e+02_jprb,9.1366e+01_jprb,8.4138e+01_jprb/)  
kbo( :, 2,27,16) = (/&
 & 4.2092e+02_jprb,3.1570e+02_jprb,2.1048e+02_jprb,1.0786e+02_jprb,8.1216e+01_jprb/)  
kbo( :, 3,27,16) = (/&
 & 5.1399e+02_jprb,3.8550e+02_jprb,2.5701e+02_jprb,1.2862e+02_jprb,7.8186e+01_jprb/)  
kbo( :, 4,27,16) = (/&
 & 6.0988e+02_jprb,4.5742e+02_jprb,3.0496e+02_jprb,1.5250e+02_jprb,7.5179e+01_jprb/)  
kbo( :, 5,27,16) = (/&
 & 7.0613e+02_jprb,5.2960e+02_jprb,3.5308e+02_jprb,1.7656e+02_jprb,7.2191e+01_jprb/)  
kbo( :, 1,28,16) = (/&
 & 3.7433e+02_jprb,2.8075e+02_jprb,1.8718e+02_jprb,1.0259e+02_jprb,9.2146e+01_jprb/)  
kbo( :, 2,28,16) = (/&
 & 4.6847e+02_jprb,3.5136e+02_jprb,2.3425e+02_jprb,1.2023e+02_jprb,8.8477e+01_jprb/)  
kbo( :, 3,28,16) = (/&
 & 5.6719e+02_jprb,4.2540e+02_jprb,2.8361e+02_jprb,1.4204e+02_jprb,8.4711e+01_jprb/)  
kbo( :, 4,28,16) = (/&
 & 6.6805e+02_jprb,5.0105e+02_jprb,3.3404e+02_jprb,1.6704e+02_jprb,8.1058e+01_jprb/)  
kbo( :, 5,28,16) = (/&
 & 7.6861e+02_jprb,5.7647e+02_jprb,3.8432e+02_jprb,1.9217e+02_jprb,7.7535e+01_jprb/)  
kbo( :, 1,29,16) = (/&
 & 4.1725e+02_jprb,3.1294e+02_jprb,2.0864e+02_jprb,1.1391e+02_jprb,9.9444e+01_jprb/)  
kbo( :, 2,29,16) = (/&
 & 5.1701e+02_jprb,3.8777e+02_jprb,2.5852e+02_jprb,1.3257e+02_jprb,9.4950e+01_jprb/)  
kbo( :, 3,29,16) = (/&
 & 6.2080e+02_jprb,4.6561e+02_jprb,3.1041e+02_jprb,1.5542e+02_jprb,9.0532e+01_jprb/)  
kbo( :, 4,29,16) = (/&
 & 7.2558e+02_jprb,5.4419e+02_jprb,3.6280e+02_jprb,1.8141e+02_jprb,8.6254e+01_jprb/)  
kbo( :, 5,29,16) = (/&
 & 8.2901e+02_jprb,6.2176e+02_jprb,4.1451e+02_jprb,2.0727e+02_jprb,8.2152e+01_jprb/)  
kbo( :, 1,30,16) = (/&
 & 4.6074e+02_jprb,3.4556e+02_jprb,2.3038e+02_jprb,1.2510e+02_jprb,1.0583e+02_jprb/)  
kbo( :, 2,30,16) = (/&
 & 5.6540e+02_jprb,4.2406e+02_jprb,2.8271e+02_jprb,1.4464e+02_jprb,1.0057e+02_jprb/)  
kbo( :, 3,30,16) = (/&
 & 6.7286e+02_jprb,5.0465e+02_jprb,3.3644e+02_jprb,1.6852e+02_jprb,9.5505e+01_jprb/)  
kbo( :, 4,30,16) = (/&
 & 7.8088e+02_jprb,5.8566e+02_jprb,3.9045e+02_jprb,1.9523e+02_jprb,9.0661e+01_jprb/)  
kbo( :, 5,30,16) = (/&
 & 8.8686e+02_jprb,6.6515e+02_jprb,4.4344e+02_jprb,2.2173e+02_jprb,8.6036e+01_jprb/)  
kbo( :, 1,31,16) = (/&
 & 5.0472e+02_jprb,3.7854e+02_jprb,2.5237e+02_jprb,1.3614e+02_jprb,1.1117e+02_jprb/)  
kbo( :, 2,31,16) = (/&
 & 6.1339e+02_jprb,4.6004e+02_jprb,3.0670e+02_jprb,1.5661e+02_jprb,1.0529e+02_jprb/)  
kbo( :, 3,31,16) = (/&
 & 7.2433e+02_jprb,5.4325e+02_jprb,3.6217e+02_jprb,1.8144e+02_jprb,9.9591e+01_jprb/)  
kbo( :, 4,31,16) = (/&
 & 8.3504e+02_jprb,6.2629e+02_jprb,4.1753e+02_jprb,2.0877e+02_jprb,9.4229e+01_jprb/)  
kbo( :, 5,31,16) = (/&
 & 9.4280e+02_jprb,7.0711e+02_jprb,4.7141e+02_jprb,2.3571e+02_jprb,8.9176e+01_jprb/)  
kbo( :, 1,32,16) = (/&
 & 5.4855e+02_jprb,4.1142e+02_jprb,2.7428e+02_jprb,1.4676e+02_jprb,1.1548e+02_jprb/)  
kbo( :, 2,32,16) = (/&
 & 6.6091e+02_jprb,4.9568e+02_jprb,3.3046e+02_jprb,1.6826e+02_jprb,1.0901e+02_jprb/)  
kbo( :, 3,32,16) = (/&
 & 7.7477e+02_jprb,5.8108e+02_jprb,3.8739e+02_jprb,1.9388e+02_jprb,1.0281e+02_jprb/)  
kbo( :, 4,32,16) = (/&
 & 8.8730e+02_jprb,6.6548e+02_jprb,4.4366e+02_jprb,2.2183e+02_jprb,9.7004e+01_jprb/)  
kbo( :, 5,32,16) = (/&
 & 9.9594e+02_jprb,7.4695e+02_jprb,4.9797e+02_jprb,2.4899e+02_jprb,9.1601e+01_jprb/)  
kbo( :, 1,33,16) = (/&
 & 5.9242e+02_jprb,4.4432e+02_jprb,2.9622e+02_jprb,1.5694e+02_jprb,1.1883e+02_jprb/)  
kbo( :, 2,33,16) = (/&
 & 7.0777e+02_jprb,5.3083e+02_jprb,3.5389e+02_jprb,1.7956e+02_jprb,1.1183e+02_jprb/)  
kbo( :, 3,33,16) = (/&
 & 8.2358e+02_jprb,6.1768e+02_jprb,4.1179e+02_jprb,2.0591e+02_jprb,1.0524e+02_jprb/)  
kbo( :, 4,33,16) = (/&
 & 9.3713e+02_jprb,7.0285e+02_jprb,4.6857e+02_jprb,2.3429e+02_jprb,9.9066e+01_jprb/)  
kbo( :, 5,33,16) = (/&
 & 1.0459e+03_jprb,7.8446e+02_jprb,5.2297e+02_jprb,2.6149e+02_jprb,9.3354e+01_jprb/)  
kbo( :, 1,34,16) = (/&
 & 6.3153e+02_jprb,4.7365e+02_jprb,3.1577e+02_jprb,1.6595e+02_jprb,1.2152e+02_jprb/)  
kbo( :, 2,34,16) = (/&
 & 7.4904e+02_jprb,5.6178e+02_jprb,3.7452e+02_jprb,1.8952e+02_jprb,1.1409e+02_jprb/)  
kbo( :, 3,34,16) = (/&
 & 8.6625e+02_jprb,6.4969e+02_jprb,4.3313e+02_jprb,2.1657e+02_jprb,1.0714e+02_jprb/)  
kbo( :, 4,34,16) = (/&
 & 9.8045e+02_jprb,7.3534e+02_jprb,4.9023e+02_jprb,2.4512e+02_jprb,1.0070e+02_jprb/)  
kbo( :, 5,34,16) = (/&
 & 1.0897e+03_jprb,8.1726e+02_jprb,5.4484e+02_jprb,2.7243e+02_jprb,9.4730e+01_jprb/)  
kbo( :, 1,35,16) = (/&
 & 6.5821e+02_jprb,4.9366e+02_jprb,3.2911e+02_jprb,1.7240e+02_jprb,1.2419e+02_jprb/)  

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


SUBROUTINE part37

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


kbo( :, 2,35,16) = (/&
 & 7.7728e+02_jprb,5.8296e+02_jprb,3.8864e+02_jprb,1.9649e+02_jprb,1.1638e+02_jprb/)  
kbo( :, 3,35,16) = (/&
 & 8.9594e+02_jprb,6.7196e+02_jprb,4.4797e+02_jprb,2.2399e+02_jprb,1.0909e+02_jprb/)  
kbo( :, 4,35,16) = (/&
 & 1.0109e+03_jprb,7.5821e+02_jprb,5.0548e+02_jprb,2.5274e+02_jprb,1.0239e+02_jprb/)  
kbo( :, 5,35,16) = (/&
 & 1.1199e+03_jprb,8.3992e+02_jprb,5.5995e+02_jprb,2.7998e+02_jprb,9.6183e+01_jprb/)  
kbo( :, 1,36,16) = (/&
 & 6.7059e+02_jprb,5.0294e+02_jprb,3.3530e+02_jprb,1.7604e+02_jprb,1.2715e+02_jprb/)  
kbo( :, 2,36,16) = (/&
 & 7.9094e+02_jprb,5.9320e+02_jprb,3.9547e+02_jprb,2.0012e+02_jprb,1.1897e+02_jprb/)  
kbo( :, 3,36,16) = (/&
 & 9.1055e+02_jprb,6.8291e+02_jprb,4.5528e+02_jprb,2.2764e+02_jprb,1.1135e+02_jprb/)  
kbo( :, 4,36,16) = (/&
 & 1.0266e+03_jprb,7.6996e+02_jprb,5.1331e+02_jprb,2.5666e+02_jprb,1.0436e+02_jprb/)  
kbo( :, 5,36,16) = (/&
 & 1.1363e+03_jprb,8.5221e+02_jprb,5.6814e+02_jprb,2.8407e+02_jprb,9.7934e+01_jprb/)  
kbo( :, 1,37,16) = (/&
 & 6.6319e+02_jprb,4.9740e+02_jprb,3.3160e+02_jprb,1.7601e+02_jprb,1.3096e+02_jprb/)  
kbo( :, 2,37,16) = (/&
 & 7.8424e+02_jprb,5.8818e+02_jprb,3.9212e+02_jprb,1.9937e+02_jprb,1.2236e+02_jprb/)  
kbo( :, 3,37,16) = (/&
 & 9.0524e+02_jprb,6.7893e+02_jprb,4.5262e+02_jprb,2.2635e+02_jprb,1.1439e+02_jprb/)  
kbo( :, 4,37,16) = (/&
 & 1.0226e+03_jprb,7.6693e+02_jprb,5.1129e+02_jprb,2.5565e+02_jprb,1.0707e+02_jprb/)  
kbo( :, 5,37,16) = (/&
 & 1.1340e+03_jprb,8.5053e+02_jprb,5.6702e+02_jprb,2.8351e+02_jprb,1.0033e+02_jprb/)  
kbo( :, 1,38,16) = (/&
 & 6.5328e+02_jprb,4.8996e+02_jprb,3.2664e+02_jprb,1.7551e+02_jprb,1.3460e+02_jprb/)  
kbo( :, 2,38,16) = (/&
 & 7.7497e+02_jprb,5.8123e+02_jprb,3.8749e+02_jprb,1.9811e+02_jprb,1.2556e+02_jprb/)  
kbo( :, 3,38,16) = (/&
 & 8.9678e+02_jprb,6.7259e+02_jprb,4.4839e+02_jprb,2.2452e+02_jprb,1.1726e+02_jprb/)  
kbo( :, 4,38,16) = (/&
 & 1.0156e+03_jprb,7.6168e+02_jprb,5.0779e+02_jprb,2.5390e+02_jprb,1.0960e+02_jprb/)  
kbo( :, 5,38,16) = (/&
 & 1.1289e+03_jprb,8.4669e+02_jprb,5.6446e+02_jprb,2.8223e+02_jprb,1.0262e+02_jprb/)  
kbo( :, 1,39,16) = (/&
 & 6.4257e+02_jprb,4.8193e+02_jprb,3.2129e+02_jprb,1.7479e+02_jprb,1.3792e+02_jprb/)  
kbo( :, 2,39,16) = (/&
 & 7.6414e+02_jprb,5.7310e+02_jprb,3.8207e+02_jprb,1.9654e+02_jprb,1.2851e+02_jprb/)  
kbo( :, 3,39,16) = (/&
 & 8.8664e+02_jprb,6.6498e+02_jprb,4.4332e+02_jprb,2.2243e+02_jprb,1.1989e+02_jprb/)  
kbo( :, 4,39,16) = (/&
 & 1.0066e+03_jprb,7.5495e+02_jprb,5.0330e+02_jprb,2.5165e+02_jprb,1.1192e+02_jprb/)  
kbo( :, 5,39,16) = (/&
 & 1.1211e+03_jprb,8.4084e+02_jprb,5.6056e+02_jprb,2.8028e+02_jprb,1.0470e+02_jprb/)  
kbo( :, 1,40,16) = (/&
 & 6.1808e+02_jprb,4.6356e+02_jprb,3.0904e+02_jprb,1.7192e+02_jprb,1.4210e+02_jprb/)  
kbo( :, 2,40,16) = (/&
 & 7.3974e+02_jprb,5.5481e+02_jprb,3.6987e+02_jprb,1.9237e+02_jprb,1.3221e+02_jprb/)  
kbo( :, 3,40,16) = (/&
 & 8.6274e+02_jprb,6.4706e+02_jprb,4.3137e+02_jprb,2.1745e+02_jprb,1.2321e+02_jprb/)  
kbo( :, 4,40,16) = (/&
 & 9.8377e+02_jprb,7.3783e+02_jprb,4.9189e+02_jprb,2.4594e+02_jprb,1.1493e+02_jprb/)  
kbo( :, 5,40,16) = (/&
 & 1.1003e+03_jprb,8.2526e+02_jprb,5.5018e+02_jprb,2.7509e+02_jprb,1.0740e+02_jprb/)  
kbo( :, 1,41,16) = (/&
 & 5.9120e+02_jprb,4.4340e+02_jprb,2.9560e+02_jprb,1.6877e+02_jprb,1.4632e+02_jprb/)  
kbo( :, 2,41,16) = (/&
 & 7.1268e+02_jprb,5.3451e+02_jprb,3.5634e+02_jprb,1.8787e+02_jprb,1.3592e+02_jprb/)  
kbo( :, 3,41,16) = (/&
 & 8.3597e+02_jprb,6.2698e+02_jprb,4.1798e+02_jprb,2.1205e+02_jprb,1.2655e+02_jprb/)  
kbo( :, 4,41,16) = (/&
 & 9.5842e+02_jprb,7.1882e+02_jprb,4.7921e+02_jprb,2.3967e+02_jprb,1.1795e+02_jprb/)  
kbo( :, 5,41,16) = (/&
 & 1.0766e+03_jprb,8.0748e+02_jprb,5.3832e+02_jprb,2.6916e+02_jprb,1.1013e+02_jprb/)  
kbo( :, 1,42,16) = (/&
 & 5.6381e+02_jprb,4.2287e+02_jprb,2.8192e+02_jprb,1.6586e+02_jprb,1.5054e+02_jprb/)  
kbo( :, 2,42,16) = (/&
 & 6.8496e+02_jprb,5.1372e+02_jprb,3.4248e+02_jprb,1.8375e+02_jprb,1.3960e+02_jprb/)  
kbo( :, 3,42,16) = (/&
 & 8.0821e+02_jprb,6.0616e+02_jprb,4.0411e+02_jprb,2.0657e+02_jprb,1.2981e+02_jprb/)  
kbo( :, 4,42,16) = (/&
 & 9.3135e+02_jprb,6.9851e+02_jprb,4.6567e+02_jprb,2.3323e+02_jprb,1.2093e+02_jprb/)  
kbo( :, 5,42,16) = (/&
 & 1.0512e+03_jprb,7.8842e+02_jprb,5.2562e+02_jprb,2.6281e+02_jprb,1.1278e+02_jprb/)  
kbo( :, 1,43,16) = (/&
 & 5.2955e+02_jprb,3.9717e+02_jprb,2.6480e+02_jprb,1.6239e+02_jprb,1.5543e+02_jprb/)  
kbo( :, 2,43,16) = (/&
 & 6.4929e+02_jprb,4.8697e+02_jprb,3.2465e+02_jprb,1.7863e+02_jprb,1.4384e+02_jprb/)  
kbo( :, 3,43,16) = (/&
 & 7.7272e+02_jprb,5.7954e+02_jprb,3.8636e+02_jprb,1.9990e+02_jprb,1.3363e+02_jprb/)  
kbo( :, 4,43,16) = (/&
 & 8.9638e+02_jprb,6.7229e+02_jprb,4.4819e+02_jprb,2.2542e+02_jprb,1.2436e+02_jprb/)  
kbo( :, 5,43,16) = (/&
 & 1.0176e+03_jprb,7.6322e+02_jprb,5.0881e+02_jprb,2.5441e+02_jprb,1.1585e+02_jprb/)  
kbo( :, 1,44,16) = (/&
 & 4.9226e+02_jprb,3.6921e+02_jprb,2.4618e+02_jprb,1.5919e+02_jprb,1.6071e+02_jprb/)  
kbo( :, 2,44,16) = (/&
 & 6.1049e+02_jprb,4.5787e+02_jprb,3.0525e+02_jprb,1.7333e+02_jprb,1.4841e+02_jprb/)  
kbo( :, 3,44,16) = (/&
 & 7.3319e+02_jprb,5.4989e+02_jprb,3.6660e+02_jprb,1.9274e+02_jprb,1.3765e+02_jprb/)  
kbo( :, 4,44,16) = (/&
 & 8.5738e+02_jprb,6.4303e+02_jprb,4.2869e+02_jprb,2.1719e+02_jprb,1.2801e+02_jprb/)  
kbo( :, 5,44,16) = (/&
 & 9.7980e+02_jprb,7.3485e+02_jprb,4.8990e+02_jprb,2.4500e+02_jprb,1.1918e+02_jprb/)  
kbo( :, 1,45,16) = (/&
 & 4.5538e+02_jprb,3.4155e+02_jprb,2.2854e+02_jprb,1.5641e+02_jprb,1.6609e+02_jprb/)  
kbo( :, 2,45,16) = (/&
 & 5.7191e+02_jprb,4.2894e+02_jprb,2.8597e+02_jprb,1.6860e+02_jprb,1.5314e+02_jprb/)  
kbo( :, 3,45,16) = (/&
 & 6.9342e+02_jprb,5.2007e+02_jprb,3.4671e+02_jprb,1.8629e+02_jprb,1.4178e+02_jprb/)  
kbo( :, 4,45,16) = (/&
 & 8.1734e+02_jprb,6.1301e+02_jprb,4.0867e+02_jprb,2.0907e+02_jprb,1.3172e+02_jprb/)  
kbo( :, 5,45,16) = (/&
 & 9.4113e+02_jprb,7.0584e+02_jprb,4.7056e+02_jprb,2.3576e+02_jprb,1.2254e+02_jprb/)  
kbo( :, 1,46,16) = (/&
 & 4.1669e+02_jprb,3.1253e+02_jprb,2.1183e+02_jprb,1.5432e+02_jprb,1.7199e+02_jprb/)  
kbo( :, 2,46,16) = (/&
 & 5.3032e+02_jprb,3.9775e+02_jprb,2.6519e+02_jprb,1.6403e+02_jprb,1.5825e+02_jprb/)  
kbo( :, 3,46,16) = (/&
 & 6.5084e+02_jprb,4.8813e+02_jprb,3.2542e+02_jprb,1.7998e+02_jprb,1.4624e+02_jprb/)  
kbo( :, 4,46,16) = (/&
 & 7.7453e+02_jprb,5.8090e+02_jprb,3.8727e+02_jprb,2.0089e+02_jprb,1.3568e+02_jprb/)  
kbo( :, 5,46,16) = (/&
 & 8.9886e+02_jprb,6.7414e+02_jprb,4.4943e+02_jprb,2.2628e+02_jprb,1.2618e+02_jprb/)  
kbo( :, 1,47,16) = (/&
 & 3.7428e+02_jprb,2.8073e+02_jprb,1.9464e+02_jprb,1.5283e+02_jprb,1.7876e+02_jprb/)  
kbo( :, 2,47,16) = (/&
 & 4.8479e+02_jprb,3.6362e+02_jprb,2.4253e+02_jprb,1.5990e+02_jprb,1.6413e+02_jprb/)  
kbo( :, 3,47,16) = (/&
 & 6.0294e+02_jprb,4.5221e+02_jprb,3.0147e+02_jprb,1.7328e+02_jprb,1.5134e+02_jprb/)  
kbo( :, 4,47,16) = (/&
 & 7.2591e+02_jprb,5.4443e+02_jprb,3.6295e+02_jprb,1.9215e+02_jprb,1.4020e+02_jprb/)  
kbo( :, 5,47,16) = (/&
 & 8.5037e+02_jprb,6.3778e+02_jprb,4.2518e+02_jprb,2.1607e+02_jprb,1.3023e+02_jprb/)  
kbo( :, 1,48,16) = (/&
 & 3.3349e+02_jprb,2.5014e+02_jprb,1.7970e+02_jprb,1.5302e+02_jprb,1.8591e+02_jprb/)  
kbo( :, 2,48,16) = (/&
 & 4.4002e+02_jprb,3.3004e+02_jprb,2.2195e+02_jprb,1.5666e+02_jprb,1.7030e+02_jprb/)  
kbo( :, 3,48,16) = (/&
 & 5.5563e+02_jprb,4.1673e+02_jprb,2.7783e+02_jprb,1.6752e+02_jprb,1.5672e+02_jprb/)  
kbo( :, 4,48,16) = (/&
 & 6.7724e+02_jprb,5.0793e+02_jprb,3.3862e+02_jprb,1.8443e+02_jprb,1.4489e+02_jprb/)  
kbo( :, 5,48,16) = (/&
 & 8.0113e+02_jprb,6.0085e+02_jprb,4.0056e+02_jprb,2.0627e+02_jprb,1.3444e+02_jprb/)  
kbo( :, 1,49,16) = (/&
 & 2.9450e+02_jprb,2.2091e+02_jprb,1.6633e+02_jprb,1.5392e+02_jprb,1.9354e+02_jprb/)  
kbo( :, 2,49,16) = (/&
 & 3.9655e+02_jprb,2.9743e+02_jprb,2.0370e+02_jprb,1.5444e+02_jprb,1.7673e+02_jprb/)  
kbo( :, 3,49,16) = (/&
 & 5.0897e+02_jprb,3.8174e+02_jprb,2.5452e+02_jprb,1.6274e+02_jprb,1.6236e+02_jprb/)  
kbo( :, 4,49,16) = (/&
 & 6.2857e+02_jprb,4.7143e+02_jprb,3.1428e+02_jprb,1.7731e+02_jprb,1.4974e+02_jprb/)  
kbo( :, 5,49,16) = (/&
 & 7.5222e+02_jprb,5.6417e+02_jprb,3.7611e+02_jprb,1.9706e+02_jprb,1.3876e+02_jprb/)  
kbo( :, 1,50,16) = (/&
 & 2.5985e+02_jprb,1.9491e+02_jprb,1.5586e+02_jprb,1.5616e+02_jprb,2.0113e+02_jprb/)  
kbo( :, 2,50,16) = (/&
 & 3.5704e+02_jprb,2.6780e+02_jprb,1.8851e+02_jprb,1.5379e+02_jprb,1.8310e+02_jprb/)  
kbo( :, 3,50,16) = (/&
 & 4.6618e+02_jprb,3.4965e+02_jprb,2.3374e+02_jprb,1.5907e+02_jprb,1.6786e+02_jprb/)  
kbo( :, 4,50,16) = (/&
 & 5.8341e+02_jprb,4.3757e+02_jprb,2.9172e+02_jprb,1.7138e+02_jprb,1.5459e+02_jprb/)  
kbo( :, 5,50,16) = (/&
 & 7.0619e+02_jprb,5.2964e+02_jprb,3.5310e+02_jprb,1.8927e+02_jprb,1.4300e+02_jprb/)  
kbo( :, 1,51,16) = (/&
 & 2.2810e+02_jprb,1.7111e+02_jprb,1.4781e+02_jprb,1.5986e+02_jprb,2.0899e+02_jprb/)  
kbo( :, 2,51,16) = (/&
 & 3.2034e+02_jprb,2.4028e+02_jprb,1.7546e+02_jprb,1.5410e+02_jprb,1.8970e+02_jprb/)  
kbo( :, 3,51,16) = (/&
 & 4.2561e+02_jprb,3.1923e+02_jprb,2.1599e+02_jprb,1.5649e+02_jprb,1.7346e+02_jprb/)  
kbo( :, 4,51,16) = (/&
 & 5.4039e+02_jprb,4.0531e+02_jprb,2.7023e+02_jprb,1.6638e+02_jprb,1.5946e+02_jprb/)  
kbo( :, 5,51,16) = (/&
 & 6.6162e+02_jprb,4.9621e+02_jprb,3.3081e+02_jprb,1.8245e+02_jprb,1.4725e+02_jprb/)  
kbo( :, 1,52,16) = (/&
 & 1.9828e+02_jprb,1.4993e+02_jprb,1.4119e+02_jprb,1.6436e+02_jprb,2.1740e+02_jprb/)  
kbo( :, 2,52,16) = (/&
 & 2.8540e+02_jprb,2.1407e+02_jprb,1.6382e+02_jprb,1.5520e+02_jprb,1.9665e+02_jprb/)  
kbo( :, 3,52,16) = (/&
 & 3.8626e+02_jprb,2.8971e+02_jprb,1.9981e+02_jprb,1.5468e+02_jprb,1.7935e+02_jprb/)  
kbo( :, 4,52,16) = (/&
 & 4.9804e+02_jprb,3.7355e+02_jprb,2.4908e+02_jprb,1.6225e+02_jprb,1.6458e+02_jprb/)  
kbo( :, 5,52,16) = (/&
 & 6.1718e+02_jprb,4.6289e+02_jprb,3.0859e+02_jprb,1.7607e+02_jprb,1.5168e+02_jprb/)  
kbo( :, 1,53,16) = (/&
 & 1.7053e+02_jprb,1.3271e+02_jprb,1.3636e+02_jprb,1.6986e+02_jprb,2.2630e+02_jprb/)  
kbo( :, 2,53,16) = (/&
 & 2.5204e+02_jprb,1.8906e+02_jprb,1.5417e+02_jprb,1.5767e+02_jprb,2.0404e+02_jprb/)  
kbo( :, 3,53,16) = (/&
 & 3.4819e+02_jprb,2.6116e+02_jprb,1.8555e+02_jprb,1.5442e+02_jprb,1.8552e+02_jprb/)  
kbo( :, 4,53,16) = (/&
 & 4.5652e+02_jprb,3.4241e+02_jprb,2.2942e+02_jprb,1.5882e+02_jprb,1.6992e+02_jprb/)  
kbo( :, 5,53,16) = (/&
 & 5.7327e+02_jprb,4.2996e+02_jprb,2.8665e+02_jprb,1.7045e+02_jprb,1.5636e+02_jprb/)  
kbo( :, 1,54,16) = (/&
 & 1.4705e+02_jprb,1.1956e+02_jprb,1.3416e+02_jprb,1.7624e+02_jprb,2.3498e+02_jprb/)  
kbo( :, 2,54,16) = (/&
 & 2.2318e+02_jprb,1.6747e+02_jprb,1.4694e+02_jprb,1.6122e+02_jprb,2.1126e+02_jprb/)  
kbo( :, 3,54,16) = (/&
 & 3.1471e+02_jprb,2.3606e+02_jprb,1.7373e+02_jprb,1.5475e+02_jprb,1.9160e+02_jprb/)  
kbo( :, 4,54,16) = (/&
 & 4.1929e+02_jprb,3.1449e+02_jprb,2.1344e+02_jprb,1.5657e+02_jprb,1.7506e+02_jprb/)  
kbo( :, 5,54,16) = (/&
 & 5.3373e+02_jprb,4.0031e+02_jprb,2.6690e+02_jprb,1.6597e+02_jprb,1.6083e+02_jprb/)  
kbo( :, 1,55,16) = (/&
 & 1.2631e+02_jprb,1.0869e+02_jprb,1.3316e+02_jprb,1.8286e+02_jprb,2.4381e+02_jprb/)  
kbo( :, 2,55,16) = (/&
 & 1.9709e+02_jprb,1.4921e+02_jprb,1.4131e+02_jprb,1.6522e+02_jprb,2.1865e+02_jprb/)  
kbo( :, 3,55,16) = (/&
 & 2.8395e+02_jprb,2.1299e+02_jprb,1.6360e+02_jprb,1.5579e+02_jprb,1.9769e+02_jprb/)  
kbo( :, 4,55,16) = (/&
 & 3.8466e+02_jprb,2.8852e+02_jprb,1.9931e+02_jprb,1.5501e+02_jprb,1.8019e+02_jprb/)  
kbo( :, 5,55,16) = (/&
 & 4.9642e+02_jprb,3.7233e+02_jprb,2.4828e+02_jprb,1.6238e+02_jprb,1.6531e+02_jprb/)  
kbo( :, 1,56,16) = (/&
 & 1.0745e+02_jprb,1.0001e+02_jprb,1.3351e+02_jprb,1.8985e+02_jprb,2.5313e+02_jprb/)  
kbo( :, 2,56,16) = (/&
 & 1.7263e+02_jprb,1.3401e+02_jprb,1.3702e+02_jprb,1.6999e+02_jprb,2.2638e+02_jprb/)  
kbo( :, 3,56,16) = (/&
 & 2.5461e+02_jprb,1.9098e+02_jprb,1.5506e+02_jprb,1.5788e+02_jprb,2.0410e+02_jprb/)  
kbo( :, 4,56,16) = (/&
 & 3.5127e+02_jprb,2.6347e+02_jprb,1.8679e+02_jprb,1.5477e+02_jprb,1.8556e+02_jprb/)  
kbo( :, 5,56,16) = (/&
 & 4.5985e+02_jprb,3.4491e+02_jprb,2.3096e+02_jprb,1.5935e+02_jprb,1.6993e+02_jprb/)  
kbo( :, 1,57,16) = (/&
 & 9.0369e+01_jprb,9.3013e+01_jprb,1.3545e+02_jprb,1.9732e+02_jprb,2.6309e+02_jprb/)  
kbo( :, 2,57,16) = (/&
 & 1.4993e+02_jprb,1.2125e+02_jprb,1.3471e+02_jprb,1.7593e+02_jprb,2.3457e+02_jprb/)  
kbo( :, 3,57,16) = (/&
 & 2.2676e+02_jprb,1.7012e+02_jprb,1.4804e+02_jprb,1.6118e+02_jprb,2.1092e+02_jprb/)  
kbo( :, 4,57,16) = (/&
 & 3.1896e+02_jprb,2.3925e+02_jprb,1.7532e+02_jprb,1.5501e+02_jprb,1.9130e+02_jprb/)  
kbo( :, 5,57,16) = (/&
 & 4.2411e+02_jprb,3.1810e+02_jprb,2.1552e+02_jprb,1.5708e+02_jprb,1.7479e+02_jprb/)  
kbo( :, 1,58,16) = (/&
 & 7.5798e+01_jprb,8.7968e+01_jprb,1.3839e+02_jprb,2.0486e+02_jprb,2.7315e+02_jprb/)  
kbo( :, 2,58,16) = (/&
 & 1.3002e+02_jprb,1.1067e+02_jprb,1.3357e+02_jprb,1.8211e+02_jprb,2.4282e+02_jprb/)  
kbo( :, 3,58,16) = (/&
 & 2.0177e+02_jprb,1.5234e+02_jprb,1.4243e+02_jprb,1.6481e+02_jprb,2.1780e+02_jprb/)  
kbo( :, 4,58,16) = (/&
 & 2.8967e+02_jprb,2.1728e+02_jprb,1.6554e+02_jprb,1.5580e+02_jprb,1.9696e+02_jprb/)  
kbo( :, 5,58,16) = (/&
 & 3.9118e+02_jprb,2.9340e+02_jprb,2.0194e+02_jprb,1.5548e+02_jprb,1.7957e+02_jprb/)  
kbo( :, 1,59,16) = (/&
 & 7.0427e+01_jprb,8.6420e+01_jprb,1.3992e+02_jprb,2.0810e+02_jprb,2.7747e+02_jprb/)  
kbo( :, 2,59,16) = (/&
 & 1.2257e+02_jprb,1.0699e+02_jprb,1.3342e+02_jprb,1.8471e+02_jprb,2.4629e+02_jprb/)  
kbo( :, 3,59,16) = (/&
 & 1.9225e+02_jprb,1.4609e+02_jprb,1.4061e+02_jprb,1.6649e+02_jprb,2.2067e+02_jprb/)  
kbo( :, 4,59,16) = (/&
 & 2.7820e+02_jprb,2.0868e+02_jprb,1.6196e+02_jprb,1.5644e+02_jprb,1.9936e+02_jprb/)  
kbo( :, 5,59,16) = (/&
 & 3.7829e+02_jprb,2.8373e+02_jprb,1.9693e+02_jprb,1.5516e+02_jprb,1.8158e+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) = (/&
 & 1.27664e-01_jprb, 1.09296e-01_jprb, 9.35703e-02_jprb, 8.01075e-02_jprb, 6.85818e-02_jprb,&
 & 5.87143e-02_jprb, 5.02666e-02_jprb, 4.30343e-02_jprb, 3.68426e-02_jprb, 3.15417e-02_jprb/)  
selfrefo( :, 2) = (/&
 & 1.39620e-01_jprb, 1.20381e-01_jprb, 1.03793e-01_jprb, 8.94908e-02_jprb, 7.71595e-02_jprb,&
 & 6.65273e-02_jprb, 5.73601e-02_jprb, 4.94562e-02_jprb, 4.26414e-02_jprb, 3.67656e-02_jprb/)  
selfrefo( :, 3) = (/&
 & 1.42628e-01_jprb, 1.23043e-01_jprb, 1.06148e-01_jprb, 9.15726e-02_jprb, 7.89986e-02_jprb,&
 & 6.81511e-02_jprb, 5.87931e-02_jprb, 5.07201e-02_jprb, 4.37556e-02_jprb, 3.77474e-02_jprb/)  
selfrefo( :, 4) = (/&
 & 1.53569e-01_jprb, 1.33143e-01_jprb, 1.15435e-01_jprb, 1.00082e-01_jprb, 8.67706e-02_jprb,&
 & 7.52299e-02_jprb, 6.52241e-02_jprb, 5.65491e-02_jprb, 4.90279e-02_jprb, 4.25070e-02_jprb/)  
selfrefo( :, 5) = (/&
 & 1.70491e-01_jprb, 1.46448e-01_jprb, 1.25796e-01_jprb, 1.08056e-01_jprb, 9.28182e-02_jprb,&
 & 7.97290e-02_jprb, 6.84856e-02_jprb, 5.88278e-02_jprb, 5.05319e-02_jprb, 4.34059e-02_jprb/)  
selfrefo( :, 6) = (/&
 & 1.76394e-01_jprb, 1.51432e-01_jprb, 1.30003e-01_jprb, 1.11606e-01_jprb, 9.58127e-02_jprb,&
 & 8.22542e-02_jprb, 7.06144e-02_jprb, 6.06217e-02_jprb, 5.20431e-02_jprb, 4.46784e-02_jprb/)  
selfrefo( :, 7) = (/&
 & 1.85706e-01_jprb, 1.59172e-01_jprb, 1.36429e-01_jprb, 1.16936e-01_jprb, 1.00228e-01_jprb,&
 & 8.59068e-02_jprb, 7.36322e-02_jprb, 6.31114e-02_jprb, 5.40939e-02_jprb, 4.63648e-02_jprb/)  
selfrefo( :, 8) = (/&
 & 1.88647e-01_jprb, 1.61657e-01_jprb, 1.38529e-01_jprb, 1.18710e-01_jprb, 1.01726e-01_jprb,&
 & 8.71722e-02_jprb, 7.47005e-02_jprb, 6.40132e-02_jprb, 5.48549e-02_jprb, 4.70068e-02_jprb/)  
selfrefo( :, 9) = (/&
 & 1.90074e-01_jprb, 1.62793e-01_jprb, 1.39427e-01_jprb, 1.19415e-01_jprb, 1.02275e-01_jprb,&
 & 8.75959e-02_jprb, 7.50233e-02_jprb, 6.42552e-02_jprb, 5.50327e-02_jprb, 4.71338e-02_jprb/)  
selfrefo( :,10) = (/&
 & 1.94769e-01_jprb, 1.66338e-01_jprb, 1.42057e-01_jprb, 1.21320e-01_jprb, 1.03611e-01_jprb,&
 & 8.84863e-02_jprb, 7.55696e-02_jprb, 6.45384e-02_jprb, 5.51175e-02_jprb, 4.70718e-02_jprb/)  
selfrefo( :,11) = (/&
 & 1.90624e-01_jprb, 1.64229e-01_jprb, 1.41488e-01_jprb, 1.21896e-01_jprb, 1.05017e-01_jprb,&
 & 9.04757e-02_jprb, 7.79475e-02_jprb, 6.71542e-02_jprb, 5.78554e-02_jprb, 4.98442e-02_jprb/)  
selfrefo( :,12) = (/&
 & 1.90502e-01_jprb, 1.64025e-01_jprb, 1.41228e-01_jprb, 1.21599e-01_jprb, 1.04699e-01_jprb,&
 & 9.01472e-02_jprb, 7.76181e-02_jprb, 6.68303e-02_jprb, 5.75419e-02_jprb, 4.95444e-02_jprb/)  

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


SUBROUTINE part38

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


selfrefo( :,13) = (/&
 & 1.86786e-01_jprb, 1.61636e-01_jprb, 1.39872e-01_jprb, 1.21039e-01_jprb, 1.04741e-01_jprb,&
 & 9.06380e-02_jprb, 7.84338e-02_jprb, 6.78729e-02_jprb, 5.87340e-02_jprb, 5.08256e-02_jprb/)  
selfrefo( :,14) = (/&
 & 1.99149e-01_jprb, 1.71475e-01_jprb, 1.47646e-01_jprb, 1.27129e-01_jprb, 1.09462e-01_jprb,&
 & 9.42512e-02_jprb, 8.11538e-02_jprb, 6.98764e-02_jprb, 6.01662e-02_jprb, 5.18053e-02_jprb/)  
selfrefo( :,15) = (/&
 & 2.02676e-01_jprb, 1.73701e-01_jprb, 1.48869e-01_jprb, 1.27587e-01_jprb, 1.09347e-01_jprb,&
 & 9.37144e-02_jprb, 8.03170e-02_jprb, 6.88348e-02_jprb, 5.89941e-02_jprb, 5.05603e-02_jprb/)  
selfrefo( :,16) = (/&
 & 1.99865e-01_jprb, 1.72699e-01_jprb, 1.49225e-01_jprb, 1.28942e-01_jprb, 1.11416e-01_jprb,&
 & 9.62721e-02_jprb, 8.31866e-02_jprb, 7.18797e-02_jprb, 6.21097e-02_jprb, 5.36676e-02_jprb/)        

fracrefao( :, 1) = (/&
 !     From P = 387.6 mb.
 & 0.13966499_jprb,0.14138900_jprb,0.13763399_jprb,0.13076700_jprb,&
 & 0.12299100_jprb,0.10747700_jprb,0.08942000_jprb,0.06769200_jprb,&
 & 0.04587610_jprb,0.00501173_jprb,0.00415809_jprb,0.00328398_jprb,&
 & 0.00240015_jprb,0.00156222_jprb,0.00059104_jprb,0.00008323_jprb/)  
fracrefao( :, 2) = (/&
 & 0.13958199_jprb,0.14332899_jprb,0.13785399_jprb,0.13205400_jprb,&
 & 0.12199700_jprb,0.10679600_jprb,0.08861080_jprb,0.06712320_jprb,&
 & 0.04556030_jprb,0.00500863_jprb,0.00416315_jprb,0.00328629_jprb,&
 & 0.00240023_jprb,0.00156220_jprb,0.00059104_jprb,0.00008323_jprb/)  
fracrefao( :, 3) = (/&
 & 0.13907100_jprb,0.14250501_jprb,0.13889600_jprb,0.13297300_jprb,&
 & 0.12218700_jprb,0.10683800_jprb,0.08839260_jprb,0.06677310_jprb,&
 & 0.04538570_jprb,0.00495402_jprb,0.00409863_jprb,0.00328219_jprb,&
 & 0.00240805_jprb,0.00156266_jprb,0.00059104_jprb,0.00008323_jprb/)  
fracrefao( :, 4) = (/&
 & 0.13867700_jprb,0.14190100_jprb,0.13932300_jprb,0.13327099_jprb,&
 & 0.12280800_jprb,0.10692500_jprb,0.08844510_jprb,0.06658510_jprb,&
 & 0.04519340_jprb,0.00492276_jprb,0.00408832_jprb,0.00323856_jprb,&
 & 0.00239289_jprb,0.00155698_jprb,0.00059104_jprb,0.00008323_jprb/)  
fracrefao( :, 5) = (/&
 & 0.13845000_jprb,0.14158800_jprb,0.13929300_jprb,0.13295600_jprb,&
 & 0.12348300_jprb,0.10736700_jprb,0.08859480_jprb,0.06650610_jprb,&
 & 0.04498230_jprb,0.00491335_jprb,0.00406968_jprb,0.00322901_jprb,&
 & 0.00234666_jprb,0.00155235_jprb,0.00058813_jprb,0.00008323_jprb/)  
fracrefao( :, 6) = (/&
 & 0.13837101_jprb,0.14113200_jprb,0.13930500_jprb,0.13283101_jprb,&
 & 0.12349200_jprb,0.10796400_jprb,0.08890490_jprb,0.06646480_jprb,&
 & 0.04485990_jprb,0.00489554_jprb,0.00405264_jprb,0.00320313_jprb,&
 & 0.00234742_jprb,0.00151159_jprb,0.00058438_jprb,0.00008253_jprb/)  
fracrefao( :, 7) = (/&
 & 0.13834500_jprb,0.14093500_jprb,0.13896500_jprb,0.13262001_jprb,&
 & 0.12326900_jprb,0.10828900_jprb,0.08950050_jprb,0.06674610_jprb,&
 & 0.04476560_jprb,0.00489624_jprb,0.00400962_jprb,0.00317423_jprb,&
 & 0.00233479_jprb,0.00148249_jprb,0.00058590_jprb,0.00008253_jprb/)  
fracrefao( :, 8) = (/&
 & 0.13831300_jprb,0.14069000_jprb,0.13871400_jprb,0.13247600_jprb,&
 & 0.12251400_jprb,0.10831300_jprb,0.08977090_jprb,0.06776920_jprb,&
 & 0.04498390_jprb,0.00484111_jprb,0.00398948_jprb,0.00316069_jprb,&
 & 0.00229741_jprb,0.00150104_jprb,0.00058608_jprb,0.00008253_jprb/)  
fracrefao( :, 9) = (/&
 & 0.14027201_jprb,0.14420401_jprb,0.14215700_jprb,0.13446601_jprb,&
 & 0.12303700_jprb,0.10596100_jprb,0.08650370_jprb,0.06409570_jprb,&
 & 0.04312310_jprb,0.00471110_jprb,0.00393954_jprb,0.00310850_jprb,&
 & 0.00229588_jprb,0.00146366_jprb,0.00058194_jprb,0.00008253_jprb/)  

fracrefbo( :, 1) = (/&
 !     From P = 1.17 mb.
 & 0.14339100_jprb,0.14358699_jprb,0.13935301_jprb,0.13306700_jprb,&
 & 0.12135700_jprb,0.10590600_jprb,0.08688240_jprb,0.06553220_jprb,&
 & 0.04446740_jprb,0.00483580_jprb,0.00399413_jprb,0.00316225_jprb,&
 & 0.00233007_jprb,0.00149135_jprb,0.00056246_jprb,0.00008059_jprb/)  
fracrefbo( :, 2) = (/&
 & 0.14330500_jprb,0.14430299_jprb,0.14053699_jprb,0.13355300_jprb,&
 & 0.12151200_jprb,0.10529100_jprb,0.08627630_jprb,0.06505230_jprb,&
 & 0.04385850_jprb,0.00476555_jprb,0.00395010_jprb,0.00313878_jprb,&
 & 0.00232273_jprb,0.00149354_jprb,0.00056246_jprb,0.00008059_jprb/)  
fracrefbo( :, 3) = (/&
 & 0.14328399_jprb,0.14442700_jprb,0.14078601_jprb,0.13390100_jprb,&
 & 0.12132600_jprb,0.10510600_jprb,0.08613660_jprb,0.06494630_jprb,&
 & 0.04381310_jprb,0.00475378_jprb,0.00394166_jprb,0.00313076_jprb,&
 & 0.00231235_jprb,0.00149159_jprb,0.00056301_jprb,0.00008059_jprb/)  
fracrefbo( :, 4) = (/&
 & 0.14326900_jprb,0.14453100_jprb,0.14114200_jprb,0.13397101_jprb,&
 & 0.12127200_jprb,0.10493400_jprb,0.08601380_jprb,0.06483360_jprb,&
 & 0.04378900_jprb,0.00474655_jprb,0.00393549_jprb,0.00312583_jprb,&
 & 0.00230686_jprb,0.00148433_jprb,0.00056502_jprb,0.00008059_jprb/)  
fracrefbo( :, 5) = (/&
 & 0.14328900_jprb,0.14532700_jprb,0.14179000_jprb,0.13384600_jprb,&
 & 0.12093700_jprb,0.10461500_jprb,0.08573010_jprb,0.06461340_jprb,&
 & 0.04366570_jprb,0.00473087_jprb,0.00392539_jprb,0.00311238_jprb,&
 & 0.00229865_jprb,0.00147572_jprb,0.00056517_jprb,0.00007939_jprb/)  

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


END SUBROUTINE rrtm_kgb5