rrtm_kgb14.F90

Go to the documentation of this file.

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

!     Originally by Eli J. Mlawer, Atmospheric & Environmental Research.
!     BAND 14:  2250-2380 cm-1 (low - CO2; high - 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 yoerrto14, ONLY : kao     ,kbo     ,selfrefo   ,fracrefao  ,fracrefbo

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

IMPLICIT NONE
REAL(KIND=JPRB) :: ZHOOK_HANDLE

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

CALL part1
CALL part2
CALL part3
CALL part4
CALL part5
CALL part6
CALL part7

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

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

CONTAINS


SUBROUTINE part1

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


fracrefao( :) = (/&
 !     From P = 1053.6 mb.
 & 0.18446200_jprb,0.16795200_jprb,0.14949700_jprb,0.12036000_jprb,&
 & 0.10440100_jprb,0.09024280_jprb,0.07435880_jprb,0.05629380_jprb,&
 & 0.03825420_jprb,0.00417276_jprb,0.00345278_jprb,0.00272949_jprb,&
 & 0.00200378_jprb,0.00127404_jprb,0.00050721_jprb,0.00004141_jprb/)  

fracrefbo( :) = (/&
 !     From P = 0.64 mb.
 & 0.19128500_jprb,0.16495700_jprb,0.14146100_jprb,0.11904500_jprb,&
 & 0.10350200_jprb,0.09151190_jprb,0.07604270_jprb,0.05806020_jprb,&
 & 0.03979950_jprb,0.00423959_jprb,0.00357439_jprb,0.00287559_jprb,&
 & 0.00198860_jprb,0.00116529_jprb,0.00043616_jprb,0.00005987_jprb/)  

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

!     The array KAO contains absorption coefs at the 16 chosen g-values 
!     for a range of pressure levels > ~100mb and temperatures.  The first
!     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 corresponding TREF for this  pressure level, 
!     JT = 2 refers to the temperatureTREF-15, JT = 1 is for TREF-30, 
!     JT = 4 is for TREF+15, and JT = 5 is for TREF+30.  The second 
!     index, JP, runs from 1 to 13 and refers to the corresponding 
!     pressure level in PREF (e.g. JP = 1 is for a pressure of 1053.63 mb).  
!     The third index, IG, goes from 1 to 16, and tells us which 
!     g-interval the absorption coefficients are for.

kao( :, 1, 1) = (/&
 & 3.5949e-01_jprb,3.8238e-01_jprb,4.1007e-01_jprb,4.4339e-01_jprb,4.8230e-01_jprb/)  
kao( :, 2, 1) = (/&
 & 3.0485e-01_jprb,3.2295e-01_jprb,3.4552e-01_jprb,3.7333e-01_jprb,4.0603e-01_jprb/)  
kao( :, 3, 1) = (/&
 & 2.5422e-01_jprb,2.6754e-01_jprb,2.8483e-01_jprb,3.0668e-01_jprb,3.3252e-01_jprb/)  
kao( :, 4, 1) = (/&
 & 2.1093e-01_jprb,2.2073e-01_jprb,2.3378e-01_jprb,2.5076e-01_jprb,2.7135e-01_jprb/)  
kao( :, 5, 1) = (/&
 & 1.7483e-01_jprb,1.8205e-01_jprb,1.9194e-01_jprb,2.0512e-01_jprb,2.2145e-01_jprb/)  
kao( :, 6, 1) = (/&
 & 1.4472e-01_jprb,1.4992e-01_jprb,1.5732e-01_jprb,1.6735e-01_jprb,1.8017e-01_jprb/)  
kao( :, 7, 1) = (/&
 & 1.1982e-01_jprb,1.2359e-01_jprb,1.2898e-01_jprb,1.3657e-01_jprb,1.4653e-01_jprb/)  
kao( :, 8, 1) = (/&
 & 9.9228e-02_jprb,1.0198e-01_jprb,1.0592e-01_jprb,1.1158e-01_jprb,1.1926e-01_jprb/)  
kao( :, 9, 1) = (/&
 & 8.2262e-02_jprb,8.4210e-02_jprb,8.7109e-02_jprb,9.1293e-02_jprb,9.7123e-02_jprb/)  
kao( :,10, 1) = (/&
 & 6.8209e-02_jprb,6.9606e-02_jprb,7.1781e-02_jprb,7.4983e-02_jprb,7.9504e-02_jprb/)  
kao( :,11, 1) = (/&
 & 5.6845e-02_jprb,5.8087e-02_jprb,6.0031e-02_jprb,6.2957e-02_jprb,6.7037e-02_jprb/)  
kao( :,12, 1) = (/&
 & 4.7244e-02_jprb,4.8375e-02_jprb,5.0140e-02_jprb,5.2785e-02_jprb,5.6455e-02_jprb/)  
kao( :,13, 1) = (/&
 & 3.9170e-02_jprb,4.0208e-02_jprb,4.1811e-02_jprb,4.4178e-02_jprb,4.7427e-02_jprb/)  
kao( :, 1, 2) = (/&
 & 1.2872e+00_jprb,1.3933e+00_jprb,1.5229e+00_jprb,1.6818e+00_jprb,1.8746e+00_jprb/)  
kao( :, 2, 2) = (/&
 & 1.1067e+00_jprb,1.2035e+00_jprb,1.3215e+00_jprb,1.4648e+00_jprb,1.6373e+00_jprb/)  
kao( :, 3, 2) = (/&
 & 9.2875e-01_jprb,1.0145e+00_jprb,1.1171e+00_jprb,1.2402e+00_jprb,1.3874e+00_jprb/)  
kao( :, 4, 2) = (/&
 & 7.7024e-01_jprb,8.4470e-01_jprb,9.3397e-01_jprb,1.0398e+00_jprb,1.1644e+00_jprb/)  
kao( :, 5, 2) = (/&
 & 6.3547e-01_jprb,6.9999e-01_jprb,7.7719e-01_jprb,8.6762e-01_jprb,9.7354e-01_jprb/)  
kao( :, 6, 2) = (/&
 & 5.2029e-01_jprb,5.7514e-01_jprb,6.4113e-01_jprb,7.1778e-01_jprb,8.0690e-01_jprb/)  
kao( :, 7, 2) = (/&
 & 4.2402e-01_jprb,4.7059e-01_jprb,5.2574e-01_jprb,5.9013e-01_jprb,6.6415e-01_jprb/)  
kao( :, 8, 2) = (/&
 & 3.4478e-01_jprb,3.8240e-01_jprb,4.2694e-01_jprb,4.7936e-01_jprb,5.3995e-01_jprb/)  
kao( :, 9, 2) = (/&
 & 2.7872e-01_jprb,3.0857e-01_jprb,3.4389e-01_jprb,3.8559e-01_jprb,4.3444e-01_jprb/)  
kao( :,10, 2) = (/&
 & 2.2596e-01_jprb,2.5018e-01_jprb,2.7837e-01_jprb,3.1178e-01_jprb,3.5123e-01_jprb/)  
kao( :,11, 2) = (/&
 & 1.9149e-01_jprb,2.1236e-01_jprb,2.3673e-01_jprb,2.6562e-01_jprb,2.9993e-01_jprb/)  
kao( :,12, 2) = (/&
 & 1.6195e-01_jprb,1.7991e-01_jprb,2.0098e-01_jprb,2.2594e-01_jprb,2.5567e-01_jprb/)  
kao( :,13, 2) = (/&
 & 1.3643e-01_jprb,1.5192e-01_jprb,1.7016e-01_jprb,1.9179e-01_jprb,2.1776e-01_jprb/)  
kao( :, 1, 3) = (/&
 & 5.3360e+00_jprb,5.9602e+00_jprb,6.6311e+00_jprb,7.3500e+00_jprb,8.1211e+00_jprb/)  
kao( :, 2, 3) = (/&
 & 4.6843e+00_jprb,5.2481e+00_jprb,5.8517e+00_jprb,6.5055e+00_jprb,7.2045e+00_jprb/)  
kao( :, 3, 3) = (/&
 & 3.9306e+00_jprb,4.4236e+00_jprb,4.9546e+00_jprb,5.5277e+00_jprb,6.1375e+00_jprb/)  
kao( :, 4, 3) = (/&
 & 3.2173e+00_jprb,3.6357e+00_jprb,4.0925e+00_jprb,4.5878e+00_jprb,5.1170e+00_jprb/)  
kao( :, 5, 3) = (/&
 & 2.5942e+00_jprb,2.9460e+00_jprb,3.3334e+00_jprb,3.7556e+00_jprb,4.2107e+00_jprb/)  
kao( :, 6, 3) = (/&
 & 2.0555e+00_jprb,2.3477e+00_jprb,2.6712e+00_jprb,3.0269e+00_jprb,3.4138e+00_jprb/)  
kao( :, 7, 3) = (/&
 & 1.6118e+00_jprb,1.8526e+00_jprb,2.1224e+00_jprb,2.4196e+00_jprb,2.7460e+00_jprb/)  
kao( :, 8, 3) = (/&
 & 1.2564e+00_jprb,1.4546e+00_jprb,1.6794e+00_jprb,1.9292e+00_jprb,2.2031e+00_jprb/)  
kao( :, 9, 3) = (/&
 & 9.7439e-01_jprb,1.1371e+00_jprb,1.3228e+00_jprb,1.5317e+00_jprb,1.7615e+00_jprb/)  
kao( :,10, 3) = (/&
 & 7.6284e-01_jprb,8.9693e-01_jprb,1.0511e+00_jprb,1.2260e+00_jprb,1.4196e+00_jprb/)  
kao( :,11, 3) = (/&
 & 6.4505e-01_jprb,7.6321e-01_jprb,8.9939e-01_jprb,1.0531e+00_jprb,1.2207e+00_jprb/)  
kao( :,12, 3) = (/&
 & 5.4741e-01_jprb,6.5142e-01_jprb,7.6976e-01_jprb,9.0081e-01_jprb,1.0418e+00_jprb/)  
kao( :,13, 3) = (/&
 & 4.6530e-01_jprb,5.5436e-01_jprb,6.5441e-01_jprb,7.6383e-01_jprb,8.8219e-01_jprb/)  
kao( :, 1, 4) = (/&
 & 1.6152e+01_jprb,1.7527e+01_jprb,1.8781e+01_jprb,1.9894e+01_jprb,2.0832e+01_jprb/)  
kao( :, 2, 4) = (/&
 & 1.4046e+01_jprb,1.5178e+01_jprb,1.6195e+01_jprb,1.7086e+01_jprb,1.7867e+01_jprb/)  
kao( :, 3, 4) = (/&
 & 1.2099e+01_jprb,1.3048e+01_jprb,1.3899e+01_jprb,1.4662e+01_jprb,1.5345e+01_jprb/)  
kao( :, 4, 4) = (/&
 & 1.0250e+01_jprb,1.1071e+01_jprb,1.1812e+01_jprb,1.2480e+01_jprb,1.3082e+01_jprb/)  
kao( :, 5, 4) = (/&
 & 8.5710e+00_jprb,9.2814e+00_jprb,9.9329e+00_jprb,1.0519e+01_jprb,1.1047e+01_jprb/)  
kao( :, 6, 4) = (/&
 & 7.0718e+00_jprb,7.6889e+00_jprb,8.2584e+00_jprb,8.7766e+00_jprb,9.2483e+00_jprb/)  
kao( :, 7, 4) = (/&
 & 5.7749e+00_jprb,6.3070e+00_jprb,6.8047e+00_jprb,7.2640e+00_jprb,7.6824e+00_jprb/)  
kao( :, 8, 4) = (/&
 & 4.6724e+00_jprb,5.1283e+00_jprb,5.5581e+00_jprb,5.9613e+00_jprb,6.3358e+00_jprb/)  
kao( :, 9, 4) = (/&
 & 3.7440e+00_jprb,4.1328e+00_jprb,4.5018e+00_jprb,4.8548e+00_jprb,5.1877e+00_jprb/)  
kao( :,10, 4) = (/&
 & 2.9973e+00_jprb,3.3277e+00_jprb,3.6442e+00_jprb,3.9507e+00_jprb,4.2451e+00_jprb/)  
kao( :,11, 4) = (/&
 & 2.5128e+00_jprb,2.7893e+00_jprb,3.0562e+00_jprb,3.3207e+00_jprb,3.5778e+00_jprb/)  
kao( :,12, 4) = (/&
 & 2.1002e+00_jprb,2.3318e+00_jprb,2.5620e+00_jprb,2.7945e+00_jprb,3.0199e+00_jprb/)  
kao( :,13, 4) = (/&
 & 1.7517e+00_jprb,1.9494e+00_jprb,2.1523e+00_jprb,2.3581e+00_jprb,2.5501e+00_jprb/)  
kao( :, 1, 5) = (/&
 & 3.4751e+01_jprb,3.5230e+01_jprb,3.5638e+01_jprb,3.5981e+01_jprb,3.6301e+01_jprb/)  
kao( :, 2, 5) = (/&
 & 2.9729e+01_jprb,3.0178e+01_jprb,3.0562e+01_jprb,3.0895e+01_jprb,3.1160e+01_jprb/)  
kao( :, 3, 5) = (/&
 & 2.5226e+01_jprb,2.5646e+01_jprb,2.6010e+01_jprb,2.6290e+01_jprb,2.6514e+01_jprb/)  
kao( :, 4, 5) = (/&
 & 2.1570e+01_jprb,2.1943e+01_jprb,2.2252e+01_jprb,2.2465e+01_jprb,2.2652e+01_jprb/)  
kao( :, 5, 5) = (/&
 & 1.8526e+01_jprb,1.8854e+01_jprb,1.9098e+01_jprb,1.9261e+01_jprb,1.9423e+01_jprb/)  
kao( :, 6, 5) = (/&
 & 1.5776e+01_jprb,1.6061e+01_jprb,1.6258e+01_jprb,1.6386e+01_jprb,1.6522e+01_jprb/)  
kao( :, 7, 5) = (/&
 & 1.3340e+01_jprb,1.3594e+01_jprb,1.3756e+01_jprb,1.3864e+01_jprb,1.3982e+01_jprb/)  
kao( :, 8, 5) = (/&
 & 1.1233e+01_jprb,1.1458e+01_jprb,1.1599e+01_jprb,1.1693e+01_jprb,1.1791e+01_jprb/)  
kao( :, 9, 5) = (/&
 & 9.4215e+00_jprb,9.6164e+00_jprb,9.7423e+00_jprb,9.8254e+00_jprb,9.9049e+00_jprb/)  
kao( :,10, 5) = (/&
 & 7.8744e+00_jprb,8.0390e+00_jprb,8.1492e+00_jprb,8.2195e+00_jprb,8.2844e+00_jprb/)  
kao( :,11, 5) = (/&
 & 6.6269e+00_jprb,6.7416e+00_jprb,6.8204e+00_jprb,6.8736e+00_jprb,6.9401e+00_jprb/)  
kao( :,12, 5) = (/&
 & 5.5397e+00_jprb,5.6256e+00_jprb,5.6856e+00_jprb,5.7347e+00_jprb,5.8086e+00_jprb/)  
kao( :,13, 5) = (/&
 & 4.6101e+00_jprb,4.6786e+00_jprb,4.7276e+00_jprb,4.7772e+00_jprb,4.8596e+00_jprb/)  
kao( :, 1, 6) = (/&
 & 5.5130e+01_jprb,5.5331e+01_jprb,5.5751e+01_jprb,5.6249e+01_jprb,5.6765e+01_jprb/)  
kao( :, 2, 6) = (/&
 & 4.8314e+01_jprb,4.8735e+01_jprb,4.9176e+01_jprb,4.9631e+01_jprb,5.0143e+01_jprb/)  
kao( :, 3, 6) = (/&
 & 4.2059e+01_jprb,4.2411e+01_jprb,4.2762e+01_jprb,4.3188e+01_jprb,4.3691e+01_jprb/)  
kao( :, 4, 6) = (/&
 & 3.6248e+01_jprb,3.6478e+01_jprb,3.6774e+01_jprb,3.7187e+01_jprb,3.7662e+01_jprb/)  
kao( :, 5, 6) = (/&
 & 3.1107e+01_jprb,3.1277e+01_jprb,3.1534e+01_jprb,3.1919e+01_jprb,3.2341e+01_jprb/)  
kao( :, 6, 6) = (/&
 & 2.6880e+01_jprb,2.7008e+01_jprb,2.7229e+01_jprb,2.7549e+01_jprb,2.7880e+01_jprb/)  
kao( :, 7, 6) = (/&
 & 2.3158e+01_jprb,2.3247e+01_jprb,2.3429e+01_jprb,2.3676e+01_jprb,2.3946e+01_jprb/)  
kao( :, 8, 6) = (/&
 & 1.9829e+01_jprb,1.9879e+01_jprb,2.0010e+01_jprb,2.0196e+01_jprb,2.0418e+01_jprb/)  
kao( :, 9, 6) = (/&
 & 1.6898e+01_jprb,1.6922e+01_jprb,1.7013e+01_jprb,1.7148e+01_jprb,1.7325e+01_jprb/)  
kao( :,10, 6) = (/&
 & 1.4366e+01_jprb,1.4373e+01_jprb,1.4439e+01_jprb,1.4534e+01_jprb,1.4675e+01_jprb/)  
kao( :,11, 6) = (/&
 & 1.2164e+01_jprb,1.2183e+01_jprb,1.2231e+01_jprb,1.2319e+01_jprb,1.2450e+01_jprb/)  
kao( :,12, 6) = (/&
 & 1.0258e+01_jprb,1.0264e+01_jprb,1.0303e+01_jprb,1.0384e+01_jprb,1.0512e+01_jprb/)  
kao( :,13, 6) = (/&
 & 8.6118e+00_jprb,8.6082e+00_jprb,8.6451e+00_jprb,8.7236e+00_jprb,8.8552e+00_jprb/)  
kao( :, 1, 7) = (/&
 & 9.6613e+01_jprb,9.5560e+01_jprb,9.4868e+01_jprb,9.4707e+01_jprb,9.5047e+01_jprb/)  
kao( :, 2, 7) = (/&
 & 8.5378e+01_jprb,8.4844e+01_jprb,8.4980e+01_jprb,8.5705e+01_jprb,8.6820e+01_jprb/)  
kao( :, 3, 7) = (/&
 & 7.4914e+01_jprb,7.5068e+01_jprb,7.5864e+01_jprb,7.7176e+01_jprb,7.8814e+01_jprb/)  
kao( :, 4, 7) = (/&
 & 6.5406e+01_jprb,6.6072e+01_jprb,6.7363e+01_jprb,6.9077e+01_jprb,7.0805e+01_jprb/)  
kao( :, 5, 7) = (/&
 & 5.6834e+01_jprb,5.7880e+01_jprb,5.9486e+01_jprb,6.1110e+01_jprb,6.2642e+01_jprb/)  
kao( :, 6, 7) = (/&
 & 4.9134e+01_jprb,5.0398e+01_jprb,5.1914e+01_jprb,5.3305e+01_jprb,5.4686e+01_jprb/)  
kao( :, 7, 7) = (/&
 & 4.2637e+01_jprb,4.3892e+01_jprb,4.5117e+01_jprb,4.6325e+01_jprb,4.7499e+01_jprb/)  
kao( :, 8, 7) = (/&
 & 3.7229e+01_jprb,3.8287e+01_jprb,3.9278e+01_jprb,4.0285e+01_jprb,4.1280e+01_jprb/)  
kao( :, 9, 7) = (/&
 & 3.2369e+01_jprb,3.3232e+01_jprb,3.4050e+01_jprb,3.4909e+01_jprb,3.5773e+01_jprb/)  
kao( :,10, 7) = (/&
 & 2.7964e+01_jprb,2.8642e+01_jprb,2.9313e+01_jprb,3.0048e+01_jprb,3.0775e+01_jprb/)  
kao( :,11, 7) = (/&
 & 2.4270e+01_jprb,2.4795e+01_jprb,2.5375e+01_jprb,2.5988e+01_jprb,2.6571e+01_jprb/)  
kao( :,12, 7) = (/&
 & 2.0936e+01_jprb,2.1384e+01_jprb,2.1881e+01_jprb,2.2373e+01_jprb,2.2843e+01_jprb/)  
kao( :,13, 7) = (/&
 & 1.7997e+01_jprb,1.8384e+01_jprb,1.8786e+01_jprb,1.9175e+01_jprb,1.9563e+01_jprb/)  
kao( :, 1, 8) = (/&
 & 2.1875e+02_jprb,2.1582e+02_jprb,2.1296e+02_jprb,2.1003e+02_jprb,2.0715e+02_jprb/)  
kao( :, 2, 8) = (/&
 & 2.0320e+02_jprb,2.0039e+02_jprb,1.9765e+02_jprb,1.9490e+02_jprb,1.9237e+02_jprb/)  
kao( :, 3, 8) = (/&
 & 1.8600e+02_jprb,1.8334e+02_jprb,1.8077e+02_jprb,1.7842e+02_jprb,1.7627e+02_jprb/)  
kao( :, 4, 8) = (/&
 & 1.6777e+02_jprb,1.6536e+02_jprb,1.6312e+02_jprb,1.6113e+02_jprb,1.5989e+02_jprb/)  
kao( :, 5, 8) = (/&
 & 1.4943e+02_jprb,1.4725e+02_jprb,1.4535e+02_jprb,1.4437e+02_jprb,1.4430e+02_jprb/)  
kao( :, 6, 8) = (/&
 & 1.3133e+02_jprb,1.2945e+02_jprb,1.2835e+02_jprb,1.2837e+02_jprb,1.2929e+02_jprb/)  
kao( :, 7, 8) = (/&
 & 1.1418e+02_jprb,1.1273e+02_jprb,1.1250e+02_jprb,1.1334e+02_jprb,1.1514e+02_jprb/)  
kao( :, 8, 8) = (/&
 & 9.8405e+01_jprb,9.7565e+01_jprb,9.8029e+01_jprb,9.9545e+01_jprb,1.0201e+02_jprb/)  
kao( :, 9, 8) = (/&
 & 8.4682e+01_jprb,8.4331e+01_jprb,8.5271e+01_jprb,8.7263e+01_jprb,9.0114e+01_jprb/)  
kao( :,10, 8) = (/&
 & 7.3042e+01_jprb,7.3160e+01_jprb,7.4507e+01_jprb,7.6830e+01_jprb,7.9492e+01_jprb/)  
kao( :,11, 8) = (/&
 & 6.3320e+01_jprb,6.4346e+01_jprb,6.6364e+01_jprb,6.8605e+01_jprb,7.0750e+01_jprb/)  
kao( :,12, 8) = (/&
 & 5.5520e+01_jprb,5.7127e+01_jprb,5.9034e+01_jprb,6.0843e+01_jprb,6.2628e+01_jprb/)  
kao( :,13, 8) = (/&
 & 4.8720e+01_jprb,5.0320e+01_jprb,5.1854e+01_jprb,5.3381e+01_jprb,5.4848e+01_jprb/)  
kao( :, 1, 9) = (/&
 & 5.5976e+02_jprb,5.5606e+02_jprb,5.5170e+02_jprb,5.4679e+02_jprb,5.4142e+02_jprb/)  
kao( :, 2, 9) = (/&
 & 5.7991e+02_jprb,5.7550e+02_jprb,5.7048e+02_jprb,5.6499e+02_jprb,5.5881e+02_jprb/)  
kao( :, 3, 9) = (/&
 & 5.9128e+02_jprb,5.8623e+02_jprb,5.8077e+02_jprb,5.7450e+02_jprb,5.6801e+02_jprb/)  
kao( :, 4, 9) = (/&
 & 5.9173e+02_jprb,5.8627e+02_jprb,5.8008e+02_jprb,5.7365e+02_jprb,5.6657e+02_jprb/)  
kao( :, 5, 9) = (/&
 & 5.8078e+02_jprb,5.7460e+02_jprb,5.6816e+02_jprb,5.6109e+02_jprb,5.5382e+02_jprb/)  
kao( :, 6, 9) = (/&
 & 5.6004e+02_jprb,5.5342e+02_jprb,5.4648e+02_jprb,5.3935e+02_jprb,5.3177e+02_jprb/)  
kao( :, 7, 9) = (/&
 & 5.3020e+02_jprb,5.2344e+02_jprb,5.1623e+02_jprb,5.0891e+02_jprb,5.0146e+02_jprb/)  
kao( :, 8, 9) = (/&
 & 4.9306e+02_jprb,4.8589e+02_jprb,4.7879e+02_jprb,4.7156e+02_jprb,4.6424e+02_jprb/)  
kao( :, 9, 9) = (/&
 & 4.5109e+02_jprb,4.4398e+02_jprb,4.3682e+02_jprb,4.2990e+02_jprb,4.2317e+02_jprb/)  
kao( :,10, 9) = (/&
 & 4.0554e+02_jprb,3.9861e+02_jprb,3.9191e+02_jprb,3.8539e+02_jprb,3.7999e+02_jprb/)  
kao( :,11, 9) = (/&
 & 3.5678e+02_jprb,3.5028e+02_jprb,3.4422e+02_jprb,3.3949e+02_jprb,3.3677e+02_jprb/)  
kao( :,12, 9) = (/&
 & 3.0997e+02_jprb,3.0426e+02_jprb,2.9997e+02_jprb,2.9770e+02_jprb,2.9720e+02_jprb/)  
kao( :,13, 9) = (/&
 & 2.6709e+02_jprb,2.6293e+02_jprb,2.6082e+02_jprb,2.6061e+02_jprb,2.6217e+02_jprb/)  
kao( :, 1,10) = (/&
 & 9.5728e+02_jprb,9.5690e+02_jprb,9.5401e+02_jprb,9.5007e+02_jprb,9.4420e+02_jprb/)  
kao( :, 2,10) = (/&
 & 1.0745e+03_jprb,1.0719e+03_jprb,1.0680e+03_jprb,1.0623e+03_jprb,1.0552e+03_jprb/)  
kao( :, 3,10) = (/&
 & 1.1871e+03_jprb,1.1845e+03_jprb,1.1802e+03_jprb,1.1737e+03_jprb,1.1657e+03_jprb/)  
kao( :, 4,10) = (/&
 & 1.2933e+03_jprb,1.2895e+03_jprb,1.2845e+03_jprb,1.2769e+03_jprb,1.2684e+03_jprb/)  
kao( :, 5,10) = (/&
 & 1.3871e+03_jprb,1.3843e+03_jprb,1.3770e+03_jprb,1.3701e+03_jprb,1.3589e+03_jprb/)  
kao( :, 6,10) = (/&
 & 1.4584e+03_jprb,1.4525e+03_jprb,1.4462e+03_jprb,1.4355e+03_jprb,1.4255e+03_jprb/)  
kao( :, 7,10) = (/&
 & 1.5042e+03_jprb,1.4961e+03_jprb,1.4859e+03_jprb,1.4751e+03_jprb,1.4602e+03_jprb/)  
kao( :, 8,10) = (/&
 & 1.5189e+03_jprb,1.5105e+03_jprb,1.4981e+03_jprb,1.4842e+03_jprb,1.4701e+03_jprb/)  
kao( :, 9,10) = (/&
 & 1.5016e+03_jprb,1.4885e+03_jprb,1.4763e+03_jprb,1.4608e+03_jprb,1.4435e+03_jprb/)  
kao( :,10,10) = (/&
 & 1.4531e+03_jprb,1.4390e+03_jprb,1.4217e+03_jprb,1.4053e+03_jprb,1.3883e+03_jprb/)  
kao( :,11,10) = (/&
 & 1.3673e+03_jprb,1.3498e+03_jprb,1.3324e+03_jprb,1.3154e+03_jprb,1.2964e+03_jprb/)  
kao( :,12,10) = (/&
 & 1.2564e+03_jprb,1.2384e+03_jprb,1.2210e+03_jprb,1.2031e+03_jprb,1.1837e+03_jprb/)  
kao( :,13,10) = (/&
 & 1.1371e+03_jprb,1.1192e+03_jprb,1.1015e+03_jprb,1.0830e+03_jprb,1.0644e+03_jprb/)  
kao( :, 1,11) = (/&
 & 1.0794e+03_jprb,1.0788e+03_jprb,1.0790e+03_jprb,1.0769e+03_jprb,1.0715e+03_jprb/)  

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


SUBROUTINE part2

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


kao( :, 2,11) = (/&
 & 1.2369e+03_jprb,1.2394e+03_jprb,1.2387e+03_jprb,1.2348e+03_jprb,1.2284e+03_jprb/)  
kao( :, 3,11) = (/&
 & 1.4037e+03_jprb,1.4057e+03_jprb,1.4048e+03_jprb,1.4010e+03_jprb,1.3938e+03_jprb/)  
kao( :, 4,11) = (/&
 & 1.5772e+03_jprb,1.5782e+03_jprb,1.5766e+03_jprb,1.5700e+03_jprb,1.5626e+03_jprb/)  
kao( :, 5,11) = (/&
 & 1.7441e+03_jprb,1.7459e+03_jprb,1.7422e+03_jprb,1.7359e+03_jprb,1.7270e+03_jprb/)  
kao( :, 6,11) = (/&
 & 1.9017e+03_jprb,1.9021e+03_jprb,1.8960e+03_jprb,1.8905e+03_jprb,1.8786e+03_jprb/)  
kao( :, 7,11) = (/&
 & 2.0395e+03_jprb,2.0360e+03_jprb,2.0330e+03_jprb,2.0229e+03_jprb,2.0133e+03_jprb/)  
kao( :, 8,11) = (/&
 & 2.1454e+03_jprb,2.1404e+03_jprb,2.1335e+03_jprb,2.1240e+03_jprb,2.1091e+03_jprb/)  
kao( :, 9,11) = (/&
 & 2.2123e+03_jprb,2.2075e+03_jprb,2.1945e+03_jprb,2.1814e+03_jprb,2.1649e+03_jprb/)  
kao( :,10,11) = (/&
 & 2.2367e+03_jprb,2.2244e+03_jprb,2.2129e+03_jprb,2.1949e+03_jprb,2.1755e+03_jprb/)  
kao( :,11,11) = (/&
 & 2.2036e+03_jprb,2.1899e+03_jprb,2.1713e+03_jprb,2.1494e+03_jprb,2.1278e+03_jprb/)  
kao( :,12,11) = (/&
 & 2.1239e+03_jprb,2.1041e+03_jprb,2.0806e+03_jprb,2.0570e+03_jprb,2.0321e+03_jprb/)  
kao( :,13,11) = (/&
 & 1.9981e+03_jprb,1.9741e+03_jprb,1.9501e+03_jprb,1.9259e+03_jprb,1.8992e+03_jprb/)  
kao( :, 1,12) = (/&
 & 1.1941e+03_jprb,1.1961e+03_jprb,1.1962e+03_jprb,1.1934e+03_jprb,1.1915e+03_jprb/)  
kao( :, 2,12) = (/&
 & 1.3953e+03_jprb,1.3978e+03_jprb,1.3989e+03_jprb,1.3989e+03_jprb,1.3975e+03_jprb/)  
kao( :, 3,12) = (/&
 & 1.6228e+03_jprb,1.6258e+03_jprb,1.6260e+03_jprb,1.6268e+03_jprb,1.6242e+03_jprb/)  
kao( :, 4,12) = (/&
 & 1.8694e+03_jprb,1.8740e+03_jprb,1.8767e+03_jprb,1.8774e+03_jprb,1.8733e+03_jprb/)  
kao( :, 5,12) = (/&
 & 2.1317e+03_jprb,2.1362e+03_jprb,2.1424e+03_jprb,2.1420e+03_jprb,2.1392e+03_jprb/)  
kao( :, 6,12) = (/&
 & 2.4044e+03_jprb,2.4133e+03_jprb,2.4176e+03_jprb,2.4160e+03_jprb,2.4115e+03_jprb/)  
kao( :, 7,12) = (/&
 & 2.6762e+03_jprb,2.6888e+03_jprb,2.6899e+03_jprb,2.6906e+03_jprb,2.6811e+03_jprb/)  
kao( :, 8,12) = (/&
 & 2.9393e+03_jprb,2.9492e+03_jprb,2.9517e+03_jprb,2.9490e+03_jprb,2.9400e+03_jprb/)  
kao( :, 9,12) = (/&
 & 3.1791e+03_jprb,3.1838e+03_jprb,3.1886e+03_jprb,3.1814e+03_jprb,3.1717e+03_jprb/)  
kao( :,10,12) = (/&
 & 3.3778e+03_jprb,3.3826e+03_jprb,3.3785e+03_jprb,3.3711e+03_jprb,3.3555e+03_jprb/)  
kao( :,11,12) = (/&
 & 3.5199e+03_jprb,3.5143e+03_jprb,3.5061e+03_jprb,3.4899e+03_jprb,3.4698e+03_jprb/)  
kao( :,12,12) = (/&
 & 3.5918e+03_jprb,3.5807e+03_jprb,3.5632e+03_jprb,3.5417e+03_jprb,3.5132e+03_jprb/)  
kao( :,13,12) = (/&
 & 3.5817e+03_jprb,3.5602e+03_jprb,3.5362e+03_jprb,3.5063e+03_jprb,3.4751e+03_jprb/)  
kao( :, 1,13) = (/&
 & 1.2927e+03_jprb,1.2959e+03_jprb,1.2982e+03_jprb,1.2977e+03_jprb,1.2950e+03_jprb/)  
kao( :, 2,13) = (/&
 & 1.5393e+03_jprb,1.5429e+03_jprb,1.5452e+03_jprb,1.5442e+03_jprb,1.5416e+03_jprb/)  
kao( :, 3,13) = (/&
 & 1.8235e+03_jprb,1.8299e+03_jprb,1.8332e+03_jprb,1.8330e+03_jprb,1.8307e+03_jprb/)  
kao( :, 4,13) = (/&
 & 2.1460e+03_jprb,2.1562e+03_jprb,2.1625e+03_jprb,2.1633e+03_jprb,2.1623e+03_jprb/)  
kao( :, 5,13) = (/&
 & 2.5138e+03_jprb,2.5270e+03_jprb,2.5346e+03_jprb,2.5383e+03_jprb,2.5372e+03_jprb/)  
kao( :, 6,13) = (/&
 & 2.9233e+03_jprb,2.9381e+03_jprb,2.9500e+03_jprb,2.9556e+03_jprb,2.9572e+03_jprb/)  
kao( :, 7,13) = (/&
 & 3.3704e+03_jprb,3.3895e+03_jprb,3.4050e+03_jprb,3.4111e+03_jprb,3.4146e+03_jprb/)  
kao( :, 8,13) = (/&
 & 3.8494e+03_jprb,3.8729e+03_jprb,3.8913e+03_jprb,3.9008e+03_jprb,3.9062e+03_jprb/)  
kao( :, 9,13) = (/&
 & 4.3484e+03_jprb,4.3768e+03_jprb,4.3938e+03_jprb,4.4075e+03_jprb,4.4120e+03_jprb/)  
kao( :,10,13) = (/&
 & 4.8563e+03_jprb,4.8884e+03_jprb,4.9080e+03_jprb,4.9204e+03_jprb,4.9230e+03_jprb/)  
kao( :,11,13) = (/&
 & 5.3698e+03_jprb,5.3968e+03_jprb,5.4124e+03_jprb,5.4206e+03_jprb,5.4132e+03_jprb/)  
kao( :,12,13) = (/&
 & 5.8401e+03_jprb,5.8572e+03_jprb,5.8683e+03_jprb,5.8634e+03_jprb,5.8549e+03_jprb/)  
kao( :,13,13) = (/&
 & 6.2394e+03_jprb,6.2548e+03_jprb,6.2534e+03_jprb,6.2438e+03_jprb,6.2213e+03_jprb/)  
kao( :, 1,14) = (/&
 & 1.3753e+03_jprb,1.3791e+03_jprb,1.3806e+03_jprb,1.3820e+03_jprb,1.3825e+03_jprb/)  
kao( :, 2,14) = (/&
 & 1.6535e+03_jprb,1.6590e+03_jprb,1.6607e+03_jprb,1.6628e+03_jprb,1.6629e+03_jprb/)  
kao( :, 3,14) = (/&
 & 1.9826e+03_jprb,1.9922e+03_jprb,1.9976e+03_jprb,2.0007e+03_jprb,2.0006e+03_jprb/)  
kao( :, 4,14) = (/&
 & 2.3745e+03_jprb,2.3859e+03_jprb,2.3951e+03_jprb,2.4030e+03_jprb,2.4041e+03_jprb/)  
kao( :, 5,14) = (/&
 & 2.8392e+03_jprb,2.8553e+03_jprb,2.8669e+03_jprb,2.8760e+03_jprb,2.8790e+03_jprb/)  
kao( :, 6,14) = (/&
 & 3.3773e+03_jprb,3.4016e+03_jprb,3.4204e+03_jprb,3.4341e+03_jprb,3.4397e+03_jprb/)  
kao( :, 7,14) = (/&
 & 4.0025e+03_jprb,4.0325e+03_jprb,4.0568e+03_jprb,4.0775e+03_jprb,4.0887e+03_jprb/)  
kao( :, 8,14) = (/&
 & 4.7223e+03_jprb,4.7649e+03_jprb,4.7948e+03_jprb,4.8179e+03_jprb,4.8302e+03_jprb/)  
kao( :, 9,14) = (/&
 & 5.5328e+03_jprb,5.5878e+03_jprb,5.6319e+03_jprb,5.6661e+03_jprb,5.6818e+03_jprb/)  
kao( :,10,14) = (/&
 & 6.4532e+03_jprb,6.5137e+03_jprb,6.5680e+03_jprb,6.6072e+03_jprb,6.6322e+03_jprb/)  
kao( :,11,14) = (/&
 & 7.5145e+03_jprb,7.5791e+03_jprb,7.6282e+03_jprb,7.6633e+03_jprb,7.6872e+03_jprb/)  
kao( :,12,14) = (/&
 & 8.6607e+03_jprb,8.7343e+03_jprb,8.7852e+03_jprb,8.8163e+03_jprb,8.8288e+03_jprb/)  
kao( :,13,14) = (/&
 & 9.8833e+03_jprb,9.9529e+03_jprb,1.0003e+04_jprb,1.0028e+04_jprb,1.0035e+04_jprb/)  
kao( :, 1,15) = (/&
 & 1.4542e+03_jprb,1.4589e+03_jprb,1.4604e+03_jprb,1.4579e+03_jprb,1.4548e+03_jprb/)  
kao( :, 2,15) = (/&
 & 1.7565e+03_jprb,1.7644e+03_jprb,1.7674e+03_jprb,1.7671e+03_jprb,1.7644e+03_jprb/)  
kao( :, 3,15) = (/&
 & 2.1193e+03_jprb,2.1295e+03_jprb,2.1356e+03_jprb,2.1395e+03_jprb,2.1395e+03_jprb/)  
kao( :, 4,15) = (/&
 & 2.5571e+03_jprb,2.5704e+03_jprb,2.5775e+03_jprb,2.5844e+03_jprb,2.5879e+03_jprb/)  
kao( :, 5,15) = (/&
 & 3.0796e+03_jprb,3.0997e+03_jprb,3.1125e+03_jprb,3.1195e+03_jprb,3.1261e+03_jprb/)  
kao( :, 6,15) = (/&
 & 3.7030e+03_jprb,3.7342e+03_jprb,3.7541e+03_jprb,3.7653e+03_jprb,3.7758e+03_jprb/)  
kao( :, 7,15) = (/&
 & 4.4506e+03_jprb,4.4902e+03_jprb,4.5215e+03_jprb,4.5394e+03_jprb,4.5554e+03_jprb/)  
kao( :, 8,15) = (/&
 & 5.3453e+03_jprb,5.3952e+03_jprb,5.4338e+03_jprb,5.4624e+03_jprb,5.4876e+03_jprb/)  
kao( :, 9,15) = (/&
 & 6.4078e+03_jprb,6.4736e+03_jprb,6.5253e+03_jprb,6.5575e+03_jprb,6.5911e+03_jprb/)  
kao( :,10,15) = (/&
 & 7.6598e+03_jprb,7.7526e+03_jprb,7.8219e+03_jprb,7.8681e+03_jprb,7.9031e+03_jprb/)  
kao( :,11,15) = (/&
 & 9.1855e+03_jprb,9.2916e+03_jprb,9.3732e+03_jprb,9.4318e+03_jprb,9.4669e+03_jprb/)  
kao( :,12,15) = (/&
 & 1.0994e+04_jprb,1.1100e+04_jprb,1.1186e+04_jprb,1.1251e+04_jprb,1.1289e+04_jprb/)  
kao( :,13,15) = (/&
 & 1.3104e+04_jprb,1.3212e+04_jprb,1.3290e+04_jprb,1.3346e+04_jprb,1.3376e+04_jprb/)  
kao( :, 1,16) = (/&
 & 1.4780e+03_jprb,1.4827e+03_jprb,1.4826e+03_jprb,1.4874e+03_jprb,1.4915e+03_jprb/)  
kao( :, 2,16) = (/&
 & 1.7951e+03_jprb,1.8015e+03_jprb,1.8036e+03_jprb,1.8055e+03_jprb,1.8112e+03_jprb/)  
kao( :, 3,16) = (/&
 & 2.1816e+03_jprb,2.1886e+03_jprb,2.1943e+03_jprb,2.1956e+03_jprb,2.1996e+03_jprb/)  
kao( :, 4,16) = (/&
 & 2.6509e+03_jprb,2.6606e+03_jprb,2.6687e+03_jprb,2.6722e+03_jprb,2.6753e+03_jprb/)  
kao( :, 5,16) = (/&
 & 3.2176e+03_jprb,3.2329e+03_jprb,3.2455e+03_jprb,3.2518e+03_jprb,3.2561e+03_jprb/)  
kao( :, 6,16) = (/&
 & 3.8984e+03_jprb,3.9245e+03_jprb,3.9448e+03_jprb,3.9570e+03_jprb,3.9591e+03_jprb/)  
kao( :, 7,16) = (/&
 & 4.7171e+03_jprb,4.7549e+03_jprb,4.7886e+03_jprb,4.8095e+03_jprb,4.8182e+03_jprb/)  
kao( :, 8,16) = (/&
 & 5.7104e+03_jprb,5.7554e+03_jprb,5.8029e+03_jprb,5.8388e+03_jprb,5.8553e+03_jprb/)  
kao( :, 9,16) = (/&
 & 6.9103e+03_jprb,6.9722e+03_jprb,7.0177e+03_jprb,7.0728e+03_jprb,7.1035e+03_jprb/)  
kao( :,10,16) = (/&
 & 8.3550e+03_jprb,8.4416e+03_jprb,8.4942e+03_jprb,8.5534e+03_jprb,8.5999e+03_jprb/)  
kao( :,11,16) = (/&
 & 1.0144e+04_jprb,1.0238e+04_jprb,1.0302e+04_jprb,1.0361e+04_jprb,1.0397e+04_jprb/)  
kao( :,12,16) = (/&
 & 1.2283e+04_jprb,1.2387e+04_jprb,1.2470e+04_jprb,1.2524e+04_jprb,1.2537e+04_jprb/)  
kao( :,13,16) = (/&
 & 1.4822e+04_jprb,1.4946e+04_jprb,1.5038e+04_jprb,1.5076e+04_jprb,1.5064e+04_jprb/)  

!     The array KBO contains absorption coefs at the 16 chosen g-values 
!     for a range of pressure levels < ~100mb and temperatures. The first 
!     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 second index, JP, runs from 13 to 59 and refers to the JPth
!     reference pressure level (see taumol.f for the value of these
!     pressure levels in mb).  The third index, IG, goes from 1 to 16,
!     and tells us which g-interval the absorption coefficients are for.

kbo( :,13, 1) = (/&
 & 3.9171e-02_jprb,4.0209e-02_jprb,4.1806e-02_jprb,4.4182e-02_jprb,4.7428e-02_jprb/)  
kbo( :,14, 1) = (/&
 & 3.2490e-02_jprb,3.3463e-02_jprb,3.4945e-02_jprb,3.7104e-02_jprb,4.0032e-02_jprb/)  
kbo( :,15, 1) = (/&
 & 2.6917e-02_jprb,2.7822e-02_jprb,2.9187e-02_jprb,3.1142e-02_jprb,3.3701e-02_jprb/)  
kbo( :,16, 1) = (/&
 & 2.2291e-02_jprb,2.3129e-02_jprb,2.4369e-02_jprb,2.6101e-02_jprb,2.8325e-02_jprb/)  
kbo( :,17, 1) = (/&
 & 1.8463e-02_jprb,1.9231e-02_jprb,2.0335e-02_jprb,2.1845e-02_jprb,2.3775e-02_jprb/)  
kbo( :,18, 1) = (/&
 & 1.5304e-02_jprb,1.5992e-02_jprb,1.6967e-02_jprb,1.8267e-02_jprb,1.9954e-02_jprb/)  
kbo( :,19, 1) = (/&
 & 1.2689e-02_jprb,1.3293e-02_jprb,1.4142e-02_jprb,1.5272e-02_jprb,1.6744e-02_jprb/)  
kbo( :,20, 1) = (/&
 & 1.0525e-02_jprb,1.1058e-02_jprb,1.1796e-02_jprb,1.2786e-02_jprb,1.4077e-02_jprb/)  
kbo( :,21, 1) = (/&
 & 8.7289e-03_jprb,9.1958e-03_jprb,9.8417e-03_jprb,1.0709e-02_jprb,1.1847e-02_jprb/)  
kbo( :,22, 1) = (/&
 & 7.2588e-03_jprb,7.6747e-03_jprb,8.2530e-03_jprb,9.0292e-03_jprb,1.0054e-02_jprb/)  
kbo( :,23, 1) = (/&
 & 6.0387e-03_jprb,6.4108e-03_jprb,6.9298e-03_jprb,7.6312e-03_jprb,8.5511e-03_jprb/)  
kbo( :,24, 1) = (/&
 & 5.0265e-03_jprb,5.3630e-03_jprb,5.8339e-03_jprb,6.4676e-03_jprb,7.2886e-03_jprb/)  
kbo( :,25, 1) = (/&
 & 4.1912e-03_jprb,4.4982e-03_jprb,4.9297e-03_jprb,5.4991e-03_jprb,6.2336e-03_jprb/)  
kbo( :,26, 1) = (/&
 & 3.5050e-03_jprb,3.7893e-03_jprb,4.1842e-03_jprb,4.6973e-03_jprb,5.3580e-03_jprb/)  
kbo( :,27, 1) = (/&
 & 2.9383e-03_jprb,3.2032e-03_jprb,3.5605e-03_jprb,4.0246e-03_jprb,4.6201e-03_jprb/)  
kbo( :,28, 1) = (/&
 & 2.4712e-03_jprb,2.7165e-03_jprb,3.0381e-03_jprb,3.4592e-03_jprb,3.9959e-03_jprb/)  
kbo( :,29, 1) = (/&
 & 2.0871e-03_jprb,2.3113e-03_jprb,2.6040e-03_jprb,2.9852e-03_jprb,3.4732e-03_jprb/)  
kbo( :,30, 1) = (/&
 & 1.7686e-03_jprb,1.9719e-03_jprb,2.2397e-03_jprb,2.5854e-03_jprb,3.0292e-03_jprb/)  
kbo( :,31, 1) = (/&
 & 1.5043e-03_jprb,1.6903e-03_jprb,1.9338e-03_jprb,2.2497e-03_jprb,2.6538e-03_jprb/)  
kbo( :,32, 1) = (/&
 & 1.2840e-03_jprb,1.4547e-03_jprb,1.6770e-03_jprb,1.9662e-03_jprb,2.3339e-03_jprb/)  
kbo( :,33, 1) = (/&
 & 1.1003e-03_jprb,1.2566e-03_jprb,1.4609e-03_jprb,1.7254e-03_jprb,2.0596e-03_jprb/)  
kbo( :,34, 1) = (/&
 & 9.4252e-04_jprb,1.0841e-03_jprb,1.2703e-03_jprb,1.5103e-03_jprb,1.8108e-03_jprb/)  
kbo( :,35, 1) = (/&
 & 7.9883e-04_jprb,9.2438e-04_jprb,1.0899e-03_jprb,1.3019e-03_jprb,1.5661e-03_jprb/)  
kbo( :,36, 1) = (/&
 & 6.6758e-04_jprb,7.7591e-04_jprb,9.1882e-04_jprb,1.1013e-03_jprb,1.3278e-03_jprb/)  
kbo( :,37, 1) = (/&
 & 5.4656e-04_jprb,6.3617e-04_jprb,7.5472e-04_jprb,9.0662e-04_jprb,1.0949e-03_jprb/)  
kbo( :,38, 1) = (/&
 & 4.4691e-04_jprb,5.2075e-04_jprb,6.1878e-04_jprb,7.4481e-04_jprb,9.0091e-04_jprb/)  
kbo( :,39, 1) = (/&
 & 3.6542e-04_jprb,4.2618e-04_jprb,5.0722e-04_jprb,6.1164e-04_jprb,7.4104e-04_jprb/)  
kbo( :,40, 1) = (/&
 & 2.9441e-04_jprb,3.4292e-04_jprb,4.0801e-04_jprb,4.9232e-04_jprb,5.9726e-04_jprb/)  
kbo( :,41, 1) = (/&
 & 2.3677e-04_jprb,2.7525e-04_jprb,3.2723e-04_jprb,3.9501e-04_jprb,4.7963e-04_jprb/)  
kbo( :,42, 1) = (/&
 & 1.9036e-04_jprb,2.2088e-04_jprb,2.6226e-04_jprb,3.1664e-04_jprb,3.8484e-04_jprb/)  
kbo( :,43, 1) = (/&
 & 1.5188e-04_jprb,1.7566e-04_jprb,2.0797e-04_jprb,2.5103e-04_jprb,3.0521e-04_jprb/)  
kbo( :,44, 1) = (/&
 & 1.2085e-04_jprb,1.3918e-04_jprb,1.6418e-04_jprb,1.9786e-04_jprb,2.4065e-04_jprb/)  
kbo( :,45, 1) = (/&
 & 9.6221e-05_jprb,1.1032e-04_jprb,1.2961e-04_jprb,1.5587e-04_jprb,1.8956e-04_jprb/)  
kbo( :,46, 1) = (/&
 & 7.6451e-05_jprb,8.7222e-05_jprb,1.0196e-04_jprb,1.2223e-04_jprb,1.4859e-04_jprb/)  
kbo( :,47, 1) = (/&
 & 6.0518e-05_jprb,6.8617e-05_jprb,7.9736e-05_jprb,9.5061e-05_jprb,1.1539e-04_jprb/)  
kbo( :,48, 1) = (/&
 & 4.7995e-05_jprb,5.4058e-05_jprb,6.2416e-05_jprb,7.3982e-05_jprb,8.9568e-05_jprb/)  
kbo( :,49, 1) = (/&
 & 3.8135e-05_jprb,4.2643e-05_jprb,4.8908e-05_jprb,5.7603e-05_jprb,6.9496e-05_jprb/)  
kbo( :,50, 1) = (/&
 & 3.0417e-05_jprb,3.3789e-05_jprb,3.8523e-05_jprb,4.5097e-05_jprb,5.4183e-05_jprb/)  
kbo( :,51, 1) = (/&
 & 2.4294e-05_jprb,2.6856e-05_jprb,3.0433e-05_jprb,3.5411e-05_jprb,4.2342e-05_jprb/)  
kbo( :,52, 1) = (/&
 & 1.9384e-05_jprb,2.1372e-05_jprb,2.4069e-05_jprb,2.7837e-05_jprb,3.3107e-05_jprb/)  
kbo( :,53, 1) = (/&
 & 1.5445e-05_jprb,1.7027e-05_jprb,1.9053e-05_jprb,2.1903e-05_jprb,2.5892e-05_jprb/)  
kbo( :,54, 1) = (/&
 & 1.2327e-05_jprb,1.3603e-05_jprb,1.5162e-05_jprb,1.7332e-05_jprb,2.0379e-05_jprb/)  
kbo( :,55, 1) = (/&
 & 9.8408e-06_jprb,1.0879e-05_jprb,1.2096e-05_jprb,1.3752e-05_jprb,1.6089e-05_jprb/)  
kbo( :,56, 1) = (/&
 & 7.8284e-06_jprb,8.6964e-06_jprb,9.6567e-06_jprb,1.0920e-05_jprb,1.2709e-05_jprb/)  
kbo( :,57, 1) = (/&
 & 6.2093e-06_jprb,6.9436e-06_jprb,7.7088e-06_jprb,8.6775e-06_jprb,1.0049e-05_jprb/)  
kbo( :,58, 1) = (/&
 & 4.9212e-06_jprb,5.5457e-06_jprb,6.1634e-06_jprb,6.9165e-06_jprb,7.9717e-06_jprb/)  
kbo( :,59, 1) = (/&
 & 3.9876e-06_jprb,4.5117e-06_jprb,5.0251e-06_jprb,5.6457e-06_jprb,6.5064e-06_jprb/)  
kbo( :,13, 2) = (/&
 & 1.3642e-01_jprb,1.5192e-01_jprb,1.7017e-01_jprb,1.9179e-01_jprb,2.1776e-01_jprb/)  
kbo( :,14, 2) = (/&
 & 1.1549e-01_jprb,1.2903e-01_jprb,1.4505e-01_jprb,1.6416e-01_jprb,1.8735e-01_jprb/)  
kbo( :,15, 2) = (/&
 & 9.7601e-02_jprb,1.0941e-01_jprb,1.2344e-01_jprb,1.4044e-01_jprb,1.6109e-01_jprb/)  
kbo( :,16, 2) = (/&
 & 8.2400e-02_jprb,9.2656e-02_jprb,1.0500e-01_jprb,1.2010e-01_jprb,1.3841e-01_jprb/)  
kbo( :,17, 2) = (/&
 & 6.9444e-02_jprb,7.8382e-02_jprb,8.9340e-02_jprb,1.0266e-01_jprb,1.1885e-01_jprb/)  
kbo( :,18, 2) = (/&
 & 5.8427e-02_jprb,6.6311e-02_jprb,7.5999e-02_jprb,8.7777e-02_jprb,1.0199e-01_jprb/)  
kbo( :,19, 2) = (/&
 & 4.9105e-02_jprb,5.6056e-02_jprb,6.4599e-02_jprb,7.4928e-02_jprb,8.7316e-02_jprb/)  
kbo( :,20, 2) = (/&
 & 4.1362e-02_jprb,4.7500e-02_jprb,5.4972e-02_jprb,6.3982e-02_jprb,7.4793e-02_jprb/)  
kbo( :,21, 2) = (/&
 & 3.4892e-02_jprb,4.0253e-02_jprb,4.6723e-02_jprb,5.4540e-02_jprb,6.3927e-02_jprb/)  
kbo( :,22, 2) = (/&
 & 2.9712e-02_jprb,3.4419e-02_jprb,4.0080e-02_jprb,4.6923e-02_jprb,5.5143e-02_jprb/)  
kbo( :,23, 2) = (/&
 & 2.5337e-02_jprb,2.9440e-02_jprb,3.4407e-02_jprb,4.0399e-02_jprb,4.7598e-02_jprb/)  
kbo( :,24, 2) = (/&
 & 2.1646e-02_jprb,2.5231e-02_jprb,2.9587e-02_jprb,3.4849e-02_jprb,4.1184e-02_jprb/)  
kbo( :,25, 2) = (/&
 & 1.8533e-02_jprb,2.1686e-02_jprb,2.5506e-02_jprb,3.0158e-02_jprb,3.5787e-02_jprb/)  
kbo( :,26, 2) = (/&
 & 1.5940e-02_jprb,1.8720e-02_jprb,2.2097e-02_jprb,2.6247e-02_jprb,3.1293e-02_jprb/)  

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


SUBROUTINE part3

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


kbo( :,27, 2) = (/&
 & 1.3738e-02_jprb,1.6188e-02_jprb,1.9206e-02_jprb,2.2922e-02_jprb,2.7465e-02_jprb/)  
kbo( :,28, 2) = (/&
 & 1.1858e-02_jprb,1.4036e-02_jprb,1.6746e-02_jprb,2.0086e-02_jprb,2.4173e-02_jprb/)  
kbo( :,29, 2) = (/&
 & 1.0271e-02_jprb,1.2222e-02_jprb,1.4667e-02_jprb,1.7690e-02_jprb,2.1356e-02_jprb/)  
kbo( :,30, 2) = (/&
 & 8.9226e-03_jprb,1.0686e-02_jprb,1.2896e-02_jprb,1.5632e-02_jprb,1.8914e-02_jprb/)  
kbo( :,31, 2) = (/&
 & 7.7843e-03_jprb,9.3890e-03_jprb,1.1399e-02_jprb,1.3861e-02_jprb,1.6797e-02_jprb/)  
kbo( :,32, 2) = (/&
 & 6.8247e-03_jprb,8.2905e-03_jprb,1.0116e-02_jprb,1.2328e-02_jprb,1.4951e-02_jprb/)  
kbo( :,33, 2) = (/&
 & 6.0149e-03_jprb,7.3520e-03_jprb,8.9996e-03_jprb,1.0989e-02_jprb,1.3332e-02_jprb/)  
kbo( :,34, 2) = (/&
 & 5.2871e-03_jprb,6.4941e-03_jprb,7.9727e-03_jprb,9.7480e-03_jprb,1.1841e-02_jprb/)  
kbo( :,35, 2) = (/&
 & 4.5697e-03_jprb,5.6343e-03_jprb,6.9361e-03_jprb,8.4981e-03_jprb,1.0344e-02_jprb/)  
kbo( :,36, 2) = (/&
 & 3.8668e-03_jprb,4.7847e-03_jprb,5.9090e-03_jprb,7.2600e-03_jprb,8.8580e-03_jprb/)  
kbo( :,37, 2) = (/&
 & 3.1704e-03_jprb,3.9381e-03_jprb,4.8844e-03_jprb,6.0241e-03_jprb,7.3747e-03_jprb/)  
kbo( :,38, 2) = (/&
 & 2.5936e-03_jprb,3.2350e-03_jprb,4.0298e-03_jprb,4.9900e-03_jprb,6.1292e-03_jprb/)  
kbo( :,39, 2) = (/&
 & 2.1215e-03_jprb,2.6573e-03_jprb,3.3247e-03_jprb,4.1335e-03_jprb,5.0950e-03_jprb/)  
kbo( :,40, 2) = (/&
 & 1.6950e-03_jprb,2.1322e-03_jprb,2.6802e-03_jprb,3.3483e-03_jprb,4.1474e-03_jprb/)  
kbo( :,41, 2) = (/&
 & 1.3487e-03_jprb,1.7036e-03_jprb,2.1515e-03_jprb,2.7015e-03_jprb,3.3638e-03_jprb/)  
kbo( :,42, 2) = (/&
 & 1.0717e-03_jprb,1.3591e-03_jprb,1.7246e-03_jprb,2.1766e-03_jprb,2.7248e-03_jprb/)  
kbo( :,43, 2) = (/&
 & 8.3901e-04_jprb,1.0683e-03_jprb,1.3622e-03_jprb,1.7292e-03_jprb,2.1771e-03_jprb/)  
kbo( :,44, 2) = (/&
 & 6.5192e-04_jprb,8.3311e-04_jprb,1.0673e-03_jprb,1.3624e-03_jprb,1.7262e-03_jprb/)  
kbo( :,45, 2) = (/&
 & 5.0592e-04_jprb,6.4840e-04_jprb,8.3427e-04_jprb,1.0708e-03_jprb,1.3653e-03_jprb/)  
kbo( :,46, 2) = (/&
 & 3.9015e-04_jprb,5.0066e-04_jprb,6.4700e-04_jprb,8.3496e-04_jprb,1.0720e-03_jprb/)  
kbo( :,47, 2) = (/&
 & 2.9734e-04_jprb,3.8142e-04_jprb,4.9495e-04_jprb,6.4229e-04_jprb,8.3000e-04_jprb/)  
kbo( :,48, 2) = (/&
 & 2.2635e-04_jprb,2.9002e-04_jprb,3.7759e-04_jprb,4.9244e-04_jprb,6.4043e-04_jprb/)  
kbo( :,49, 2) = (/&
 & 1.7220e-04_jprb,2.2034e-04_jprb,2.8722e-04_jprb,3.7634e-04_jprb,4.9229e-04_jprb/)  
kbo( :,50, 2) = (/&
 & 1.3177e-04_jprb,1.6818e-04_jprb,2.1937e-04_jprb,2.8871e-04_jprb,3.7961e-04_jprb/)  
kbo( :,51, 2) = (/&
 & 1.0109e-04_jprb,1.2859e-04_jprb,1.6766e-04_jprb,2.2156e-04_jprb,2.9268e-04_jprb/)  
kbo( :,52, 2) = (/&
 & 7.7612e-05_jprb,9.8243e-05_jprb,1.2795e-04_jprb,1.6959e-04_jprb,2.2502e-04_jprb/)  
kbo( :,53, 2) = (/&
 & 5.9611e-05_jprb,7.4979e-05_jprb,9.7483e-05_jprb,1.2940e-04_jprb,1.7242e-04_jprb/)  
kbo( :,54, 2) = (/&
 & 4.6116e-05_jprb,5.7675e-05_jprb,7.4813e-05_jprb,9.9354e-05_jprb,1.3295e-04_jprb/)  
kbo( :,55, 2) = (/&
 & 3.5802e-05_jprb,4.4529e-05_jprb,5.7546e-05_jprb,7.6441e-05_jprb,1.0268e-04_jprb/)  
kbo( :,56, 2) = (/&
 & 2.7830e-05_jprb,3.4393e-05_jprb,4.4221e-05_jprb,5.8724e-05_jprb,7.9138e-05_jprb/)  
kbo( :,57, 2) = (/&
 & 2.1657e-05_jprb,2.6571e-05_jprb,3.3962e-05_jprb,4.5038e-05_jprb,6.0834e-05_jprb/)  
kbo( :,58, 2) = (/&
 & 1.6922e-05_jprb,2.0621e-05_jprb,2.6207e-05_jprb,3.4660e-05_jprb,4.6890e-05_jprb/)  
kbo( :,59, 2) = (/&
 & 1.3669e-05_jprb,1.6659e-05_jprb,2.1203e-05_jprb,2.8141e-05_jprb,3.8169e-05_jprb/)  
kbo( :,13, 3) = (/&
 & 4.6528e-01_jprb,5.5437e-01_jprb,6.5439e-01_jprb,7.6387e-01_jprb,8.8225e-01_jprb/)  
kbo( :,14, 3) = (/&
 & 4.0092e-01_jprb,4.7676e-01_jprb,5.6104e-01_jprb,6.5300e-01_jprb,7.5323e-01_jprb/)  
kbo( :,15, 3) = (/&
 & 3.4496e-01_jprb,4.0936e-01_jprb,4.8004e-01_jprb,5.5783e-01_jprb,6.4259e-01_jprb/)  
kbo( :,16, 3) = (/&
 & 2.9656e-01_jprb,3.5091e-01_jprb,4.1039e-01_jprb,4.7609e-01_jprb,5.4769e-01_jprb/)  
kbo( :,17, 3) = (/&
 & 2.5400e-01_jprb,2.9985e-01_jprb,3.5009e-01_jprb,4.0555e-01_jprb,4.6622e-01_jprb/)  
kbo( :,18, 3) = (/&
 & 2.1658e-01_jprb,2.5524e-01_jprb,2.9779e-01_jprb,3.4497e-01_jprb,3.9663e-01_jprb/)  
kbo( :,19, 3) = (/&
 & 1.8401e-01_jprb,2.1660e-01_jprb,2.5265e-01_jprb,2.9293e-01_jprb,3.3703e-01_jprb/)  
kbo( :,20, 3) = (/&
 & 1.5650e-01_jprb,1.8401e-01_jprb,2.1476e-01_jprb,2.4926e-01_jprb,2.8701e-01_jprb/)  
kbo( :,21, 3) = (/&
 & 1.3298e-01_jprb,1.5631e-01_jprb,1.8271e-01_jprb,2.1234e-01_jprb,2.4465e-01_jprb/)  
kbo( :,22, 3) = (/&
 & 1.1417e-01_jprb,1.3429e-01_jprb,1.5724e-01_jprb,1.8276e-01_jprb,2.1037e-01_jprb/)  
kbo( :,23, 3) = (/&
 & 9.8014e-02_jprb,1.1558e-01_jprb,1.3557e-01_jprb,1.5742e-01_jprb,1.8091e-01_jprb/)  
kbo( :,24, 3) = (/&
 & 8.4303e-02_jprb,9.9682e-02_jprb,1.1696e-01_jprb,1.3564e-01_jprb,1.5560e-01_jprb/)  
kbo( :,25, 3) = (/&
 & 7.2747e-02_jprb,8.6163e-02_jprb,1.0094e-01_jprb,1.1688e-01_jprb,1.3386e-01_jprb/)  
kbo( :,26, 3) = (/&
 & 6.3075e-02_jprb,7.4679e-02_jprb,8.7296e-02_jprb,1.0089e-01_jprb,1.1530e-01_jprb/)  
kbo( :,27, 3) = (/&
 & 5.4748e-02_jprb,6.4713e-02_jprb,7.5472e-02_jprb,8.7090e-02_jprb,9.9299e-02_jprb/)  
kbo( :,28, 3) = (/&
 & 4.7545e-02_jprb,5.6049e-02_jprb,6.5267e-02_jprb,7.5162e-02_jprb,8.5597e-02_jprb/)  
kbo( :,29, 3) = (/&
 & 4.1339e-02_jprb,4.8610e-02_jprb,5.6528e-02_jprb,6.4950e-02_jprb,7.3930e-02_jprb/)  
kbo( :,30, 3) = (/&
 & 3.5954e-02_jprb,4.2191e-02_jprb,4.8989e-02_jprb,5.6214e-02_jprb,6.3907e-02_jprb/)  
kbo( :,31, 3) = (/&
 & 3.1296e-02_jprb,3.6680e-02_jprb,4.2495e-02_jprb,4.8776e-02_jprb,5.5328e-02_jprb/)  
kbo( :,32, 3) = (/&
 & 2.7277e-02_jprb,3.1929e-02_jprb,3.6963e-02_jprb,4.2388e-02_jprb,4.7945e-02_jprb/)  
kbo( :,33, 3) = (/&
 & 2.3800e-02_jprb,2.7822e-02_jprb,3.2216e-02_jprb,3.6870e-02_jprb,4.1544e-02_jprb/)  
kbo( :,34, 3) = (/&
 & 2.0672e-02_jprb,2.4161e-02_jprb,2.7975e-02_jprb,3.1921e-02_jprb,3.5834e-02_jprb/)  
kbo( :,35, 3) = (/&
 & 1.7697e-02_jprb,2.0710e-02_jprb,2.3987e-02_jprb,2.7306e-02_jprb,3.0580e-02_jprb/)  
kbo( :,36, 3) = (/&
 & 1.4902e-02_jprb,1.7480e-02_jprb,2.0264e-02_jprb,2.3055e-02_jprb,2.5809e-02_jprb/)  
kbo( :,37, 3) = (/&
 & 1.2253e-02_jprb,1.4429e-02_jprb,1.6775e-02_jprb,1.9126e-02_jprb,2.1452e-02_jprb/)  
kbo( :,38, 3) = (/&
 & 1.0063e-02_jprb,1.1900e-02_jprb,1.3875e-02_jprb,1.5855e-02_jprb,1.7824e-02_jprb/)  
kbo( :,39, 3) = (/&
 & 8.2683e-03_jprb,9.8196e-03_jprb,1.1482e-02_jprb,1.3151e-02_jprb,1.4822e-02_jprb/)  
kbo( :,40, 3) = (/&
 & 6.6706e-03_jprb,7.9659e-03_jprb,9.3641e-03_jprb,1.0772e-02_jprb,1.2185e-02_jprb/)  
kbo( :,41, 3) = (/&
 & 5.3639e-03_jprb,6.4425e-03_jprb,7.6176e-03_jprb,8.8040e-03_jprb,9.9984e-03_jprb/)  
kbo( :,42, 3) = (/&
 & 4.3069e-03_jprb,5.2039e-03_jprb,6.1906e-03_jprb,7.1908e-03_jprb,8.2008e-03_jprb/)  
kbo( :,43, 3) = (/&
 & 3.4140e-03_jprb,4.1540e-03_jprb,4.9779e-03_jprb,5.8242e-03_jprb,6.6751e-03_jprb/)  
kbo( :,44, 3) = (/&
 & 2.6853e-03_jprb,3.2927e-03_jprb,3.9767e-03_jprb,4.6909e-03_jprb,5.4086e-03_jprb/)  
kbo( :,45, 3) = (/&
 & 2.1067e-03_jprb,2.6025e-03_jprb,3.1683e-03_jprb,3.7707e-03_jprb,4.3756e-03_jprb/)  
kbo( :,46, 3) = (/&
 & 1.6407e-03_jprb,2.0417e-03_jprb,2.5060e-03_jprb,3.0128e-03_jprb,3.5248e-03_jprb/)  
kbo( :,47, 3) = (/&
 & 1.2608e-03_jprb,1.5817e-03_jprb,1.9591e-03_jprb,2.3817e-03_jprb,2.8141e-03_jprb/)  
kbo( :,48, 3) = (/&
 & 9.6508e-04_jprb,1.2203e-03_jprb,1.5253e-03_jprb,1.8746e-03_jprb,2.2397e-03_jprb/)  
kbo( :,49, 3) = (/&
 & 7.3585e-04_jprb,9.3796e-04_jprb,1.1824e-03_jprb,1.4683e-03_jprb,1.7760e-03_jprb/)  
kbo( :,50, 3) = (/&
 & 5.6241e-04_jprb,7.2242e-04_jprb,9.1862e-04_jprb,1.1510e-03_jprb,1.4096e-03_jprb/)  
kbo( :,51, 3) = (/&
 & 4.2964e-04_jprb,5.5593e-04_jprb,7.1290e-04_jprb,9.0146e-04_jprb,1.1171e-03_jprb/)  
kbo( :,52, 3) = (/&
 & 3.2726e-04_jprb,4.2631e-04_jprb,5.5102e-04_jprb,7.0359e-04_jprb,8.8175e-04_jprb/)  
kbo( :,53, 3) = (/&
 & 2.4838e-04_jprb,3.2560e-04_jprb,4.2431e-04_jprb,5.4692e-04_jprb,6.9286e-04_jprb/)  
kbo( :,54, 3) = (/&
 & 1.8942e-04_jprb,2.4999e-04_jprb,3.2832e-04_jprb,4.2678e-04_jprb,5.4592e-04_jprb/)  
kbo( :,55, 3) = (/&
 & 1.4456e-04_jprb,1.9209e-04_jprb,2.5406e-04_jprb,3.3310e-04_jprb,4.3005e-04_jprb/)  
kbo( :,56, 3) = (/&
 & 1.1005e-04_jprb,1.4722e-04_jprb,1.9603e-04_jprb,2.5905e-04_jprb,3.3773e-04_jprb/)  
kbo( :,57, 3) = (/&
 & 8.3591e-05_jprb,1.1253e-04_jprb,1.5073e-04_jprb,2.0071e-04_jprb,2.6434e-04_jprb/)  
kbo( :,58, 3) = (/&
 & 6.3746e-05_jprb,8.6176e-05_jprb,1.1609e-04_jprb,1.5578e-04_jprb,2.0708e-04_jprb/)  
kbo( :,59, 3) = (/&
 & 5.1259e-05_jprb,6.9567e-05_jprb,9.4236e-05_jprb,1.2739e-04_jprb,1.7028e-04_jprb/)  
kbo( :,13, 4) = (/&
 & 1.7515e+00_jprb,1.9495e+00_jprb,2.1521e+00_jprb,2.3581e+00_jprb,2.5501e+00_jprb/)  
kbo( :,14, 4) = (/&
 & 1.4765e+00_jprb,1.6496e+00_jprb,1.8290e+00_jprb,2.0062e+00_jprb,2.1622e+00_jprb/)  
kbo( :,15, 4) = (/&
 & 1.2492e+00_jprb,1.4011e+00_jprb,1.5567e+00_jprb,1.6989e+00_jprb,1.8218e+00_jprb/)  
kbo( :,16, 4) = (/&
 & 1.0604e+00_jprb,1.1904e+00_jprb,1.3179e+00_jprb,1.4307e+00_jprb,1.5294e+00_jprb/)  
kbo( :,17, 4) = (/&
 & 8.9936e-01_jprb,1.0071e+00_jprb,1.1099e+00_jprb,1.2005e+00_jprb,1.2809e+00_jprb/)  
kbo( :,18, 4) = (/&
 & 7.6142e-01_jprb,8.4995e-01_jprb,9.3267e-01_jprb,1.0060e+00_jprb,1.0720e+00_jprb/)  
kbo( :,19, 4) = (/&
 & 6.4349e-01_jprb,7.1626e-01_jprb,7.8316e-01_jprb,8.4250e-01_jprb,8.9631e-01_jprb/)  
kbo( :,20, 4) = (/&
 & 5.4427e-01_jprb,6.0390e-01_jprb,6.5771e-01_jprb,7.0547e-01_jprb,7.4978e-01_jprb/)  
kbo( :,21, 4) = (/&
 & 4.5925e-01_jprb,5.0777e-01_jprb,5.5117e-01_jprb,5.9049e-01_jprb,6.2731e-01_jprb/)  
kbo( :,22, 4) = (/&
 & 3.8923e-01_jprb,4.2824e-01_jprb,4.6341e-01_jprb,4.9590e-01_jprb,5.2688e-01_jprb/)  
kbo( :,23, 4) = (/&
 & 3.2937e-01_jprb,3.6081e-01_jprb,3.8954e-01_jprb,4.1663e-01_jprb,4.4301e-01_jprb/)  
kbo( :,24, 4) = (/&
 & 2.7854e-01_jprb,3.0409e-01_jprb,3.2784e-01_jprb,3.5064e-01_jprb,3.7278e-01_jprb/)  
kbo( :,25, 4) = (/&
 & 2.3559e-01_jprb,2.5658e-01_jprb,2.7647e-01_jprb,2.9561e-01_jprb,3.1381e-01_jprb/)  
kbo( :,26, 4) = (/&
 & 1.9962e-01_jprb,2.1703e-01_jprb,2.3374e-01_jprb,2.4963e-01_jprb,2.6441e-01_jprb/)  
kbo( :,27, 4) = (/&
 & 1.6921e-01_jprb,1.8380e-01_jprb,1.9768e-01_jprb,2.1076e-01_jprb,2.2287e-01_jprb/)  
kbo( :,28, 4) = (/&
 & 1.4345e-01_jprb,1.5565e-01_jprb,1.6716e-01_jprb,1.7793e-01_jprb,1.8788e-01_jprb/)  
kbo( :,29, 4) = (/&
 & 1.2177e-01_jprb,1.3186e-01_jprb,1.4136e-01_jprb,1.5019e-01_jprb,1.5853e-01_jprb/)  
kbo( :,30, 4) = (/&
 & 1.0336e-01_jprb,1.1168e-01_jprb,1.1949e-01_jprb,1.2673e-01_jprb,1.3395e-01_jprb/)  
kbo( :,31, 4) = (/&
 & 8.7734e-02_jprb,9.4596e-02_jprb,1.0101e-01_jprb,1.0703e-01_jprb,1.1341e-01_jprb/)  
kbo( :,32, 4) = (/&
 & 7.4481e-02_jprb,8.0126e-02_jprb,8.5362e-02_jprb,9.0546e-02_jprb,9.6274e-02_jprb/)  
kbo( :,33, 4) = (/&
 & 6.3213e-02_jprb,6.7862e-02_jprb,7.2206e-02_jprb,7.6786e-02_jprb,8.2026e-02_jprb/)  
kbo( :,34, 4) = (/&
 & 5.3531e-02_jprb,5.7349e-02_jprb,6.1073e-02_jprb,6.5202e-02_jprb,6.9973e-02_jprb/)  
kbo( :,35, 4) = (/&
 & 4.5020e-02_jprb,4.8200e-02_jprb,5.1452e-02_jprb,5.5159e-02_jprb,5.9429e-02_jprb/)  
kbo( :,36, 4) = (/&
 & 3.7576e-02_jprb,4.0274e-02_jprb,4.3123e-02_jprb,4.6399e-02_jprb,5.0146e-02_jprb/)  
kbo( :,37, 4) = (/&
 & 3.1036e-02_jprb,3.3333e-02_jprb,3.5789e-02_jprb,3.8617e-02_jprb,4.1842e-02_jprb/)  
kbo( :,38, 4) = (/&
 & 2.5615e-02_jprb,2.7577e-02_jprb,2.9689e-02_jprb,3.2124e-02_jprb,3.4898e-02_jprb/)  
kbo( :,39, 4) = (/&
 & 2.1142e-02_jprb,2.2815e-02_jprb,2.4636e-02_jprb,2.6727e-02_jprb,2.9117e-02_jprb/)  
kbo( :,40, 4) = (/&
 & 1.7305e-02_jprb,1.8730e-02_jprb,2.0274e-02_jprb,2.2044e-02_jprb,2.4076e-02_jprb/)  
kbo( :,41, 4) = (/&
 & 1.4141e-02_jprb,1.5353e-02_jprb,1.6658e-02_jprb,1.8154e-02_jprb,1.9875e-02_jprb/)  
kbo( :,42, 4) = (/&
 & 1.1548e-02_jprb,1.2579e-02_jprb,1.3681e-02_jprb,1.4943e-02_jprb,1.6400e-02_jprb/)  
kbo( :,43, 4) = (/&
 & 9.3739e-03_jprb,1.0251e-02_jprb,1.1178e-02_jprb,1.2234e-02_jprb,1.3456e-02_jprb/)  
kbo( :,44, 4) = (/&
 & 7.5827e-03_jprb,8.3302e-03_jprb,9.1085e-03_jprb,9.9874e-03_jprb,1.1008e-02_jprb/)  
kbo( :,45, 4) = (/&
 & 6.1263e-03_jprb,6.7635e-03_jprb,7.4181e-03_jprb,8.1480e-03_jprb,8.9981e-03_jprb/)  
kbo( :,46, 4) = (/&
 & 4.9321e-03_jprb,5.4733e-03_jprb,6.0244e-03_jprb,6.6282e-03_jprb,7.3328e-03_jprb/)  
kbo( :,47, 4) = (/&
 & 3.9434e-03_jprb,4.4020e-03_jprb,4.8671e-03_jprb,5.3648e-03_jprb,5.9417e-03_jprb/)  
kbo( :,48, 4) = (/&
 & 3.1433e-03_jprb,3.5325e-03_jprb,3.9255e-03_jprb,4.3369e-03_jprb,4.8087e-03_jprb/)  
kbo( :,49, 4) = (/&
 & 2.4978e-03_jprb,2.8291e-03_jprb,3.1605e-03_jprb,3.5019e-03_jprb,3.8874e-03_jprb/)  
kbo( :,50, 4) = (/&
 & 1.9842e-03_jprb,2.2663e-03_jprb,2.5454e-03_jprb,2.8316e-03_jprb,3.1474e-03_jprb/)  
kbo( :,51, 4) = (/&
 & 1.5720e-03_jprb,1.8131e-03_jprb,2.0480e-03_jprb,2.2890e-03_jprb,2.5485e-03_jprb/)  
kbo( :,52, 4) = (/&
 & 1.2397e-03_jprb,1.4466e-03_jprb,1.6443e-03_jprb,1.8471e-03_jprb,2.0617e-03_jprb/)  
kbo( :,53, 4) = (/&
 & 9.7269e-04_jprb,1.1506e-03_jprb,1.3170e-03_jprb,1.4882e-03_jprb,1.6660e-03_jprb/)  
kbo( :,54, 4) = (/&
 & 7.6427e-04_jprb,9.1578e-04_jprb,1.0573e-03_jprb,1.2008e-03_jprb,1.3494e-03_jprb/)  
kbo( :,55, 4) = (/&
 & 5.9962e-04_jprb,7.2798e-04_jprb,8.4833e-04_jprb,9.6858e-04_jprb,1.0933e-03_jprb/)  
kbo( :,56, 4) = (/&
 & 4.6816e-04_jprb,5.7642e-04_jprb,6.7912e-04_jprb,7.7992e-04_jprb,8.8480e-04_jprb/)  
kbo( :,57, 4) = (/&
 & 3.6414e-04_jprb,4.5440e-04_jprb,5.4227e-04_jprb,6.2686e-04_jprb,7.1489e-04_jprb/)  
kbo( :,58, 4) = (/&
 & 2.8365e-04_jprb,3.5805e-04_jprb,4.3286e-04_jprb,5.0398e-04_jprb,5.7785e-04_jprb/)  
kbo( :,59, 4) = (/&
 & 2.3044e-04_jprb,2.9262e-04_jprb,3.5550e-04_jprb,4.1574e-04_jprb,4.7795e-04_jprb/)  
kbo( :,13, 5) = (/&
 & 4.6093e+00_jprb,4.6787e+00_jprb,4.7279e+00_jprb,4.7779e+00_jprb,4.8597e+00_jprb/)  
kbo( :,14, 5) = (/&
 & 3.8282e+00_jprb,3.8821e+00_jprb,3.9279e+00_jprb,3.9847e+00_jprb,4.0757e+00_jprb/)  
kbo( :,15, 5) = (/&
 & 3.1725e+00_jprb,3.2179e+00_jprb,3.2654e+00_jprb,3.3336e+00_jprb,3.4242e+00_jprb/)  
kbo( :,16, 5) = (/&
 & 2.6254e+00_jprb,2.6717e+00_jprb,2.7257e+00_jprb,2.7935e+00_jprb,2.8681e+00_jprb/)  
kbo( :,17, 5) = (/&
 & 2.1766e+00_jprb,2.2257e+00_jprb,2.2759e+00_jprb,2.3323e+00_jprb,2.3943e+00_jprb/)  
kbo( :,18, 5) = (/&
 & 1.8104e+00_jprb,1.8529e+00_jprb,1.8948e+00_jprb,1.9412e+00_jprb,1.9943e+00_jprb/)  
kbo( :,19, 5) = (/&
 & 1.5048e+00_jprb,1.5390e+00_jprb,1.5736e+00_jprb,1.6140e+00_jprb,1.6604e+00_jprb/)  
kbo( :,20, 5) = (/&
 & 1.2496e+00_jprb,1.2771e+00_jprb,1.3070e+00_jprb,1.3421e+00_jprb,1.3834e+00_jprb/)  
kbo( :,21, 5) = (/&
 & 1.0376e+00_jprb,1.0603e+00_jprb,1.0863e+00_jprb,1.1161e+00_jprb,1.1527e+00_jprb/)  
kbo( :,22, 5) = (/&
 & 8.6290e-01_jprb,8.8239e-01_jprb,9.0428e-01_jprb,9.3058e-01_jprb,9.6346e-01_jprb/)  
kbo( :,23, 5) = (/&
 & 7.1714e-01_jprb,7.3382e-01_jprb,7.5282e-01_jprb,7.7698e-01_jprb,8.0640e-01_jprb/)  
kbo( :,24, 5) = (/&
 & 5.9554e-01_jprb,6.0982e-01_jprb,6.2698e-01_jprb,6.4926e-01_jprb,6.7588e-01_jprb/)  
kbo( :,25, 5) = (/&
 & 4.9438e-01_jprb,5.0695e-01_jprb,5.2299e-01_jprb,5.4349e-01_jprb,5.6801e-01_jprb/)  
kbo( :,26, 5) = (/&
 & 4.1054e-01_jprb,4.2226e-01_jprb,4.3732e-01_jprb,4.5640e-01_jprb,4.7888e-01_jprb/)  
kbo( :,27, 5) = (/&
 & 3.4145e-01_jprb,3.5257e-01_jprb,3.6692e-01_jprb,3.8422e-01_jprb,4.0431e-01_jprb/)  
kbo( :,28, 5) = (/&
 & 2.8483e-01_jprb,2.9535e-01_jprb,3.0859e-01_jprb,3.2404e-01_jprb,3.4192e-01_jprb/)  
kbo( :,29, 5) = (/&
 & 2.3827e-01_jprb,2.4827e-01_jprb,2.6013e-01_jprb,2.7398e-01_jprb,2.9004e-01_jprb/)  
kbo( :,30, 5) = (/&
 & 1.9983e-01_jprb,2.0911e-01_jprb,2.1978e-01_jprb,2.3227e-01_jprb,2.4681e-01_jprb/)  

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


SUBROUTINE part4

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


kbo( :,31, 5) = (/&
 & 1.6804e-01_jprb,1.7642e-01_jprb,1.8613e-01_jprb,1.9752e-01_jprb,2.1089e-01_jprb/)  
kbo( :,32, 5) = (/&
 & 1.4159e-01_jprb,1.4918e-01_jprb,1.5803e-01_jprb,1.6847e-01_jprb,1.8108e-01_jprb/)  
kbo( :,33, 5) = (/&
 & 1.1954e-01_jprb,1.2642e-01_jprb,1.3455e-01_jprb,1.4426e-01_jprb,1.5610e-01_jprb/)  
kbo( :,34, 5) = (/&
 & 1.0095e-01_jprb,1.0717e-01_jprb,1.1462e-01_jprb,1.2375e-01_jprb,1.3481e-01_jprb/)  
kbo( :,35, 5) = (/&
 & 8.4924e-02_jprb,9.0501e-02_jprb,9.7279e-02_jprb,1.0569e-01_jprb,1.1588e-01_jprb/)  
kbo( :,36, 5) = (/&
 & 7.1064e-02_jprb,7.5984e-02_jprb,8.2057e-02_jprb,8.9603e-02_jprb,9.8847e-02_jprb/)  
kbo( :,37, 5) = (/&
 & 5.8932e-02_jprb,6.3161e-02_jprb,6.8439e-02_jprb,7.5043e-02_jprb,8.3182e-02_jprb/)  
kbo( :,38, 5) = (/&
 & 4.8865e-02_jprb,5.2499e-02_jprb,5.7079e-02_jprb,6.2859e-02_jprb,7.0017e-02_jprb/)  
kbo( :,39, 5) = (/&
 & 4.0531e-02_jprb,4.3655e-02_jprb,4.7640e-02_jprb,5.2727e-02_jprb,5.9016e-02_jprb/)  
kbo( :,40, 5) = (/&
 & 3.3380e-02_jprb,3.6019e-02_jprb,3.9402e-02_jprb,4.3769e-02_jprb,4.9191e-02_jprb/)  
kbo( :,41, 5) = (/&
 & 2.7463e-02_jprb,2.9675e-02_jprb,3.2537e-02_jprb,3.6268e-02_jprb,4.0932e-02_jprb/)  
kbo( :,42, 5) = (/&
 & 2.2583e-02_jprb,2.4432e-02_jprb,2.6850e-02_jprb,3.0032e-02_jprb,3.4041e-02_jprb/)  
kbo( :,43, 5) = (/&
 & 1.8485e-02_jprb,2.0010e-02_jprb,2.2013e-02_jprb,2.4687e-02_jprb,2.8084e-02_jprb/)  
kbo( :,44, 5) = (/&
 & 1.5098e-02_jprb,1.6344e-02_jprb,1.7988e-02_jprb,2.0205e-02_jprb,2.3066e-02_jprb/)  
kbo( :,45, 5) = (/&
 & 1.2325e-02_jprb,1.3345e-02_jprb,1.4686e-02_jprb,1.6519e-02_jprb,1.8916e-02_jprb/)  
kbo( :,46, 5) = (/&
 & 1.0042e-02_jprb,1.0870e-02_jprb,1.1952e-02_jprb,1.3450e-02_jprb,1.5443e-02_jprb/)  
kbo( :,47, 5) = (/&
 & 8.1480e-03_jprb,8.8179e-03_jprb,9.6778e-03_jprb,1.0879e-02_jprb,1.2508e-02_jprb/)  
kbo( :,48, 5) = (/&
 & 6.6080e-03_jprb,7.1502e-03_jprb,7.8346e-03_jprb,8.7926e-03_jprb,1.0114e-02_jprb/)  
kbo( :,49, 5) = (/&
 & 5.3563e-03_jprb,5.7957e-03_jprb,6.3414e-03_jprb,7.1019e-03_jprb,8.1661e-03_jprb/)  
kbo( :,50, 5) = (/&
 & 4.3491e-03_jprb,4.7045e-03_jprb,5.1464e-03_jprb,5.7505e-03_jprb,6.6095e-03_jprb/)  
kbo( :,51, 5) = (/&
 & 3.5331e-03_jprb,3.8208e-03_jprb,4.1803e-03_jprb,4.6605e-03_jprb,5.3531e-03_jprb/)  
kbo( :,52, 5) = (/&
 & 2.8692e-03_jprb,3.1024e-03_jprb,3.3948e-03_jprb,3.7764e-03_jprb,4.3307e-03_jprb/)  
kbo( :,53, 5) = (/&
 & 2.3284e-03_jprb,2.5177e-03_jprb,2.7545e-03_jprb,3.0575e-03_jprb,3.4986e-03_jprb/)  
kbo( :,54, 5) = (/&
 & 1.8918e-03_jprb,2.0476e-03_jprb,2.2400e-03_jprb,2.4835e-03_jprb,2.8364e-03_jprb/)  
kbo( :,55, 5) = (/&
 & 1.5376e-03_jprb,1.6662e-03_jprb,1.8225e-03_jprb,2.0195e-03_jprb,2.3020e-03_jprb/)  
kbo( :,56, 5) = (/&
 & 1.2490e-03_jprb,1.3549e-03_jprb,1.4817e-03_jprb,1.6414e-03_jprb,1.8660e-03_jprb/)  
kbo( :,57, 5) = (/&
 & 1.0129e-03_jprb,1.1011e-03_jprb,1.2038e-03_jprb,1.3331e-03_jprb,1.5112e-03_jprb/)  
kbo( :,58, 5) = (/&
 & 8.2101e-04_jprb,8.9501e-04_jprb,9.7881e-04_jprb,1.0839e-03_jprb,1.2260e-03_jprb/)  
kbo( :,59, 5) = (/&
 & 6.7572e-04_jprb,7.3861e-04_jprb,8.0949e-04_jprb,8.9902e-04_jprb,1.0203e-03_jprb/)  
kbo( :,13, 6) = (/&
 & 8.6113e+00_jprb,8.6083e+00_jprb,8.6450e+00_jprb,8.7235e+00_jprb,8.8556e+00_jprb/)  
kbo( :,14, 6) = (/&
 & 7.2014e+00_jprb,7.2025e+00_jprb,7.2397e+00_jprb,7.3254e+00_jprb,7.4723e+00_jprb/)  
kbo( :,15, 6) = (/&
 & 6.0044e+00_jprb,6.0112e+00_jprb,6.0572e+00_jprb,6.1588e+00_jprb,6.3194e+00_jprb/)  
kbo( :,16, 6) = (/&
 & 4.9871e+00_jprb,5.0011e+00_jprb,5.0609e+00_jprb,5.1819e+00_jprb,5.3526e+00_jprb/)  
kbo( :,17, 6) = (/&
 & 4.1295e+00_jprb,4.1562e+00_jprb,4.2380e+00_jprb,4.3711e+00_jprb,4.5320e+00_jprb/)  
kbo( :,18, 6) = (/&
 & 3.4160e+00_jprb,3.4619e+00_jprb,3.5592e+00_jprb,3.6837e+00_jprb,3.8207e+00_jprb/)  
kbo( :,19, 6) = (/&
 & 2.8320e+00_jprb,2.8936e+00_jprb,2.9843e+00_jprb,3.0907e+00_jprb,3.2080e+00_jprb/)  
kbo( :,20, 6) = (/&
 & 2.3566e+00_jprb,2.4173e+00_jprb,2.4971e+00_jprb,2.5878e+00_jprb,2.6909e+00_jprb/)  
kbo( :,21, 6) = (/&
 & 1.9610e+00_jprb,2.0160e+00_jprb,2.0844e+00_jprb,2.1648e+00_jprb,2.2552e+00_jprb/)  
kbo( :,22, 6) = (/&
 & 1.6333e+00_jprb,1.6835e+00_jprb,1.7446e+00_jprb,1.8165e+00_jprb,1.8978e+00_jprb/)  
kbo( :,23, 6) = (/&
 & 1.3622e+00_jprb,1.4076e+00_jprb,1.4625e+00_jprb,1.5261e+00_jprb,1.5991e+00_jprb/)  
kbo( :,24, 6) = (/&
 & 1.1385e+00_jprb,1.1796e+00_jprb,1.2278e+00_jprb,1.2843e+00_jprb,1.3507e+00_jprb/)  
kbo( :,25, 6) = (/&
 & 9.5319e-01_jprb,9.8944e-01_jprb,1.0319e+00_jprb,1.0833e+00_jprb,1.1441e+00_jprb/)  
kbo( :,26, 6) = (/&
 & 7.9849e-01_jprb,8.3054e-01_jprb,8.6957e-01_jprb,9.1733e-01_jprb,9.7330e-01_jprb/)  
kbo( :,27, 6) = (/&
 & 6.6899e-01_jprb,6.9794e-01_jprb,7.3432e-01_jprb,7.7906e-01_jprb,8.3118e-01_jprb/)  
kbo( :,28, 6) = (/&
 & 5.6075e-01_jprb,5.8798e-01_jprb,6.2243e-01_jprb,6.6420e-01_jprb,7.1248e-01_jprb/)  
kbo( :,29, 6) = (/&
 & 4.7122e-01_jprb,4.9735e-01_jprb,5.3000e-01_jprb,5.6898e-01_jprb,6.1331e-01_jprb/)  
kbo( :,30, 6) = (/&
 & 3.9766e-01_jprb,4.2278e-01_jprb,4.5340e-01_jprb,4.8935e-01_jprb,5.2965e-01_jprb/)  
kbo( :,31, 6) = (/&
 & 3.3747e-01_jprb,3.6139e-01_jprb,3.8970e-01_jprb,4.2246e-01_jprb,4.5888e-01_jprb/)  
kbo( :,32, 6) = (/&
 & 2.8804e-01_jprb,3.1035e-01_jprb,3.3634e-01_jprb,3.6608e-01_jprb,3.9890e-01_jprb/)  
kbo( :,33, 6) = (/&
 & 2.4714e-01_jprb,2.6763e-01_jprb,2.9142e-01_jprb,3.1834e-01_jprb,3.4859e-01_jprb/)  
kbo( :,34, 6) = (/&
 & 2.1224e-01_jprb,2.3103e-01_jprb,2.5268e-01_jprb,2.7715e-01_jprb,3.0529e-01_jprb/)  
kbo( :,35, 6) = (/&
 & 1.8132e-01_jprb,1.9841e-01_jprb,2.1788e-01_jprb,2.4021e-01_jprb,2.6615e-01_jprb/)  
kbo( :,36, 6) = (/&
 & 1.5372e-01_jprb,1.6906e-01_jprb,1.8646e-01_jprb,2.0663e-01_jprb,2.3032e-01_jprb/)  
kbo( :,37, 6) = (/&
 & 1.2864e-01_jprb,1.4207e-01_jprb,1.5741e-01_jprb,1.7532e-01_jprb,1.9647e-01_jprb/)  
kbo( :,38, 6) = (/&
 & 1.0758e-01_jprb,1.1934e-01_jprb,1.3284e-01_jprb,1.4872e-01_jprb,1.6769e-01_jprb/)  
kbo( :,39, 6) = (/&
 & 9.0014e-02_jprb,1.0028e-01_jprb,1.1215e-01_jprb,1.2626e-01_jprb,1.4329e-01_jprb/)  
kbo( :,40, 6) = (/&
 & 7.4527e-02_jprb,8.3327e-02_jprb,9.3593e-02_jprb,1.0586e-01_jprb,1.2084e-01_jprb/)  
kbo( :,41, 6) = (/&
 & 6.1610e-02_jprb,6.9119e-02_jprb,7.7943e-02_jprb,8.8568e-02_jprb,1.0169e-01_jprb/)  
kbo( :,42, 6) = (/&
 & 5.0916e-02_jprb,5.7313e-02_jprb,6.4881e-02_jprb,7.4072e-02_jprb,8.5537e-02_jprb/)  
kbo( :,43, 6) = (/&
 & 4.1772e-02_jprb,4.7174e-02_jprb,5.3598e-02_jprb,6.1449e-02_jprb,7.1316e-02_jprb/)  
kbo( :,44, 6) = (/&
 & 3.4127e-02_jprb,3.8669e-02_jprb,4.4102e-02_jprb,5.0754e-02_jprb,5.9162e-02_jprb/)  
kbo( :,45, 6) = (/&
 & 2.7847e-02_jprb,3.1650e-02_jprb,3.6246e-02_jprb,4.1879e-02_jprb,4.9025e-02_jprb/)  
kbo( :,46, 6) = (/&
 & 2.2640e-02_jprb,2.5789e-02_jprb,2.9652e-02_jprb,3.4397e-02_jprb,4.0430e-02_jprb/)  
kbo( :,47, 6) = (/&
 & 1.8270e-02_jprb,2.0851e-02_jprb,2.4060e-02_jprb,2.8007e-02_jprb,3.3038e-02_jprb/)  
kbo( :,48, 6) = (/&
 & 1.4718e-02_jprb,1.6825e-02_jprb,1.9472e-02_jprb,2.2745e-02_jprb,2.6928e-02_jprb/)  
kbo( :,49, 6) = (/&
 & 1.1830e-02_jprb,1.3552e-02_jprb,1.5716e-02_jprb,1.8420e-02_jprb,2.1884e-02_jprb/)  
kbo( :,50, 6) = (/&
 & 9.5237e-03_jprb,1.0928e-02_jprb,1.2702e-02_jprb,1.4943e-02_jprb,1.7817e-02_jprb/)  
kbo( :,51, 6) = (/&
 & 7.6692e-03_jprb,8.8098e-03_jprb,1.0261e-02_jprb,1.2117e-02_jprb,1.4501e-02_jprb/)  
kbo( :,52, 6) = (/&
 & 6.1727e-03_jprb,7.0883e-03_jprb,8.2706e-03_jprb,9.8014e-03_jprb,1.1773e-02_jprb/)  
kbo( :,53, 6) = (/&
 & 4.9680e-03_jprb,5.6916e-03_jprb,6.6514e-03_jprb,7.9092e-03_jprb,9.5340e-03_jprb/)  
kbo( :,54, 6) = (/&
 & 4.0130e-03_jprb,4.5840e-03_jprb,5.3714e-03_jprb,6.4027e-03_jprb,7.7491e-03_jprb/)  
kbo( :,55, 6) = (/&
 & 3.2475e-03_jprb,3.6955e-03_jprb,4.3373e-03_jprb,5.1858e-03_jprb,6.3030e-03_jprb/)  
kbo( :,56, 6) = (/&
 & 2.6304e-03_jprb,2.9771e-03_jprb,3.4979e-03_jprb,4.1928e-03_jprb,5.1174e-03_jprb/)  
kbo( :,57, 6) = (/&
 & 2.1330e-03_jprb,2.3975e-03_jprb,2.8161e-03_jprb,3.3836e-03_jprb,4.1464e-03_jprb/)  
kbo( :,58, 6) = (/&
 & 1.7350e-03_jprb,1.9351e-03_jprb,2.2702e-03_jprb,2.7338e-03_jprb,3.3646e-03_jprb/)  
kbo( :,59, 6) = (/&
 & 1.4314e-03_jprb,1.6016e-03_jprb,1.8884e-03_jprb,2.2911e-03_jprb,2.8369e-03_jprb/)  
kbo( :,13, 7) = (/&
 & 1.7998e+01_jprb,1.8384e+01_jprb,1.8787e+01_jprb,1.9175e+01_jprb,1.9563e+01_jprb/)  
kbo( :,14, 7) = (/&
 & 1.5399e+01_jprb,1.5722e+01_jprb,1.6043e+01_jprb,1.6364e+01_jprb,1.6692e+01_jprb/)  
kbo( :,15, 7) = (/&
 & 1.3091e+01_jprb,1.3337e+01_jprb,1.3597e+01_jprb,1.3865e+01_jprb,1.4179e+01_jprb/)  
kbo( :,16, 7) = (/&
 & 1.1057e+01_jprb,1.1261e+01_jprb,1.1479e+01_jprb,1.1723e+01_jprb,1.2049e+01_jprb/)  
kbo( :,17, 7) = (/&
 & 9.3100e+00_jprb,9.4784e+00_jprb,9.6707e+00_jprb,9.9204e+00_jprb,1.0268e+01_jprb/)  
kbo( :,18, 7) = (/&
 & 7.8212e+00_jprb,7.9725e+00_jprb,8.1612e+00_jprb,8.4289e+00_jprb,8.7794e+00_jprb/)  
kbo( :,19, 7) = (/&
 & 6.5480e+00_jprb,6.6917e+00_jprb,6.8980e+00_jprb,7.1803e+00_jprb,7.5042e+00_jprb/)  
kbo( :,20, 7) = (/&
 & 5.4693e+00_jprb,5.6250e+00_jprb,5.8473e+00_jprb,6.1172e+00_jprb,6.4007e+00_jprb/)  
kbo( :,21, 7) = (/&
 & 4.5737e+00_jprb,4.7442e+00_jprb,4.9649e+00_jprb,5.1990e+00_jprb,5.4386e+00_jprb/)  
kbo( :,22, 7) = (/&
 & 3.8455e+00_jprb,4.0231e+00_jprb,4.2157e+00_jprb,4.4147e+00_jprb,4.6179e+00_jprb/)  
kbo( :,23, 7) = (/&
 & 3.2447e+00_jprb,3.4045e+00_jprb,3.5713e+00_jprb,3.7411e+00_jprb,3.9201e+00_jprb/)  
kbo( :,24, 7) = (/&
 & 2.7398e+00_jprb,2.8775e+00_jprb,3.0223e+00_jprb,3.1715e+00_jprb,3.3312e+00_jprb/)  
kbo( :,25, 7) = (/&
 & 2.3131e+00_jprb,2.4334e+00_jprb,2.5607e+00_jprb,2.6934e+00_jprb,2.8395e+00_jprb/)  
kbo( :,26, 7) = (/&
 & 1.9571e+00_jprb,2.0628e+00_jprb,2.1758e+00_jprb,2.2949e+00_jprb,2.4331e+00_jprb/)  
kbo( :,27, 7) = (/&
 & 1.6594e+00_jprb,1.7534e+00_jprb,1.8527e+00_jprb,1.9641e+00_jprb,2.0963e+00_jprb/)  
kbo( :,28, 7) = (/&
 & 1.4114e+00_jprb,1.4941e+00_jprb,1.5830e+00_jprb,1.6881e+00_jprb,1.8157e+00_jprb/)  
kbo( :,29, 7) = (/&
 & 1.2034e+00_jprb,1.2757e+00_jprb,1.3579e+00_jprb,1.4591e+00_jprb,1.5811e+00_jprb/)  
kbo( :,30, 7) = (/&
 & 1.0272e+00_jprb,1.0924e+00_jprb,1.1710e+00_jprb,1.2689e+00_jprb,1.3849e+00_jprb/)  
kbo( :,31, 7) = (/&
 & 8.7820e-01_jprb,9.4005e-01_jprb,1.0171e+00_jprb,1.1110e+00_jprb,1.2204e+00_jprb/)  
kbo( :,32, 7) = (/&
 & 7.5354e-01_jprb,8.1419e-01_jprb,8.8955e-01_jprb,9.7931e-01_jprb,1.0823e+00_jprb/)  
kbo( :,33, 7) = (/&
 & 6.5024e-01_jprb,7.1018e-01_jprb,7.8337e-01_jprb,8.6897e-01_jprb,9.6647e-01_jprb/)  
kbo( :,34, 7) = (/&
 & 5.6343e-01_jprb,6.2181e-01_jprb,6.9198e-01_jprb,7.7311e-01_jprb,8.6525e-01_jprb/)  
kbo( :,35, 7) = (/&
 & 4.8705e-01_jprb,5.4236e-01_jprb,6.0822e-01_jprb,6.8426e-01_jprb,7.7067e-01_jprb/)  
kbo( :,36, 7) = (/&
 & 4.1841e-01_jprb,4.6955e-01_jprb,5.3016e-01_jprb,6.0039e-01_jprb,6.8061e-01_jprb/)  
kbo( :,37, 7) = (/&
 & 3.5459e-01_jprb,4.0042e-01_jprb,4.5487e-01_jprb,5.1825e-01_jprb,5.9150e-01_jprb/)  
kbo( :,38, 7) = (/&
 & 3.0070e-01_jprb,3.4160e-01_jprb,3.9046e-01_jprb,4.4765e-01_jprb,5.1436e-01_jprb/)  
kbo( :,39, 7) = (/&
 & 2.5532e-01_jprb,2.9176e-01_jprb,3.3565e-01_jprb,3.8725e-01_jprb,4.4814e-01_jprb/)  
kbo( :,40, 7) = (/&
 & 2.1409e-01_jprb,2.4592e-01_jprb,2.8460e-01_jprb,3.3041e-01_jprb,3.8495e-01_jprb/)  
kbo( :,41, 7) = (/&
 & 1.7907e-01_jprb,2.0691e-01_jprb,2.4085e-01_jprb,2.8135e-01_jprb,3.3001e-01_jprb/)  
kbo( :,42, 7) = (/&
 & 1.4955e-01_jprb,1.7397e-01_jprb,2.0378e-01_jprb,2.3951e-01_jprb,2.8290e-01_jprb/)  
kbo( :,43, 7) = (/&
 & 1.2365e-01_jprb,1.4471e-01_jprb,1.7077e-01_jprb,2.0210e-01_jprb,2.4022e-01_jprb/)  
kbo( :,44, 7) = (/&
 & 1.0162e-01_jprb,1.1963e-01_jprb,1.4218e-01_jprb,1.6960e-01_jprb,2.0293e-01_jprb/)  
kbo( :,45, 7) = (/&
 & 8.3355e-02_jprb,9.8637e-02_jprb,1.1807e-01_jprb,1.4201e-01_jprb,1.7123e-01_jprb/)  
kbo( :,46, 7) = (/&
 & 6.8005e-02_jprb,8.0800e-02_jprb,9.7358e-02_jprb,1.1807e-01_jprb,1.4373e-01_jprb/)  
kbo( :,47, 7) = (/&
 & 5.5003e-02_jprb,6.5496e-02_jprb,7.9363e-02_jprb,9.6996e-02_jprb,1.1911e-01_jprb/)  
kbo( :,48, 7) = (/&
 & 4.4405e-02_jprb,5.2953e-02_jprb,6.4487e-02_jprb,7.9375e-02_jprb,9.8343e-02_jprb/)  
kbo( :,49, 7) = (/&
 & 3.5783e-02_jprb,4.2715e-02_jprb,5.2233e-02_jprb,6.4713e-02_jprb,8.0863e-02_jprb/)  
kbo( :,50, 7) = (/&
 & 2.8912e-02_jprb,3.4525e-02_jprb,4.2407e-02_jprb,5.2882e-02_jprb,6.6632e-02_jprb/)  
kbo( :,51, 7) = (/&
 & 2.3366e-02_jprb,2.7895e-02_jprb,3.4405e-02_jprb,4.3195e-02_jprb,5.4868e-02_jprb/)  
kbo( :,52, 7) = (/&
 & 1.8859e-02_jprb,2.2482e-02_jprb,2.7819e-02_jprb,3.5177e-02_jprb,4.5036e-02_jprb/)  
kbo( :,53, 7) = (/&
 & 1.5196e-02_jprb,1.8070e-02_jprb,2.2410e-02_jprb,2.8538e-02_jprb,3.6840e-02_jprb/)  
kbo( :,54, 7) = (/&
 & 1.2283e-02_jprb,1.4588e-02_jprb,1.8123e-02_jprb,2.3240e-02_jprb,3.0277e-02_jprb/)  
kbo( :,55, 7) = (/&
 & 9.9346e-03_jprb,1.1792e-02_jprb,1.4660e-02_jprb,1.8922e-02_jprb,2.4879e-02_jprb/)  
kbo( :,56, 7) = (/&
 & 8.0224e-03_jprb,9.5173e-03_jprb,1.1833e-02_jprb,1.5354e-02_jprb,2.0376e-02_jprb/)  
kbo( :,57, 7) = (/&
 & 6.4674e-03_jprb,7.6719e-03_jprb,9.5269e-03_jprb,1.2415e-02_jprb,1.6626e-02_jprb/)  
kbo( :,58, 7) = (/&
 & 5.2243e-03_jprb,6.1935e-03_jprb,7.6844e-03_jprb,1.0054e-02_jprb,1.3583e-02_jprb/)  
kbo( :,59, 7) = (/&
 & 4.3349e-03_jprb,5.1717e-03_jprb,6.4734e-03_jprb,8.5759e-03_jprb,1.1721e-02_jprb/)  
kbo( :,13, 8) = (/&
 & 4.8718e+01_jprb,5.0320e+01_jprb,5.1858e+01_jprb,5.3380e+01_jprb,5.4850e+01_jprb/)  
kbo( :,14, 8) = (/&
 & 4.2766e+01_jprb,4.4021e+01_jprb,4.5285e+01_jprb,4.6520e+01_jprb,4.7719e+01_jprb/)  
kbo( :,15, 8) = (/&
 & 3.7265e+01_jprb,3.8285e+01_jprb,3.9305e+01_jprb,4.0312e+01_jprb,4.1280e+01_jprb/)  
kbo( :,16, 8) = (/&
 & 3.2320e+01_jprb,3.3145e+01_jprb,3.3978e+01_jprb,3.4801e+01_jprb,3.5603e+01_jprb/)  
kbo( :,17, 8) = (/&
 & 2.7905e+01_jprb,2.8588e+01_jprb,2.9274e+01_jprb,2.9948e+01_jprb,3.0618e+01_jprb/)  
kbo( :,18, 8) = (/&
 & 2.3907e+01_jprb,2.4472e+01_jprb,2.5035e+01_jprb,2.5608e+01_jprb,2.6240e+01_jprb/)  
kbo( :,19, 8) = (/&
 & 2.0357e+01_jprb,2.0811e+01_jprb,2.1283e+01_jprb,2.1801e+01_jprb,2.2463e+01_jprb/)  
kbo( :,20, 8) = (/&
 & 1.7248e+01_jprb,1.7625e+01_jprb,1.8041e+01_jprb,1.8568e+01_jprb,1.9286e+01_jprb/)  
kbo( :,21, 8) = (/&
 & 1.4568e+01_jprb,1.4891e+01_jprb,1.5295e+01_jprb,1.5868e+01_jprb,1.6645e+01_jprb/)  
kbo( :,22, 8) = (/&
 & 1.2302e+01_jprb,1.2610e+01_jprb,1.3060e+01_jprb,1.3693e+01_jprb,1.4488e+01_jprb/)  
kbo( :,23, 8) = (/&
 & 1.0398e+01_jprb,1.0740e+01_jprb,1.1241e+01_jprb,1.1898e+01_jprb,1.2647e+01_jprb/)  
kbo( :,24, 8) = (/&
 & 8.8094e+00_jprb,9.1977e+00_jprb,9.7363e+00_jprb,1.0379e+01_jprb,1.1057e+01_jprb/)  
kbo( :,25, 8) = (/&
 & 7.5025e+00_jprb,7.9291e+00_jprb,8.4687e+00_jprb,9.0617e+00_jprb,9.6792e+00_jprb/)  
kbo( :,26, 8) = (/&
 & 6.4368e+00_jprb,6.8798e+00_jprb,7.3859e+00_jprb,7.9241e+00_jprb,8.4787e+00_jprb/)  
kbo( :,27, 8) = (/&
 & 5.5620e+00_jprb,5.9868e+00_jprb,6.4448e+00_jprb,6.9294e+00_jprb,7.4281e+00_jprb/)  
kbo( :,28, 8) = (/&
 & 4.8240e+00_jprb,5.2122e+00_jprb,5.6283e+00_jprb,6.0659e+00_jprb,6.5242e+00_jprb/)  
kbo( :,29, 8) = (/&
 & 4.1944e+00_jprb,4.5487e+00_jprb,4.9272e+00_jprb,5.3264e+00_jprb,5.7585e+00_jprb/)  
kbo( :,30, 8) = (/&
 & 3.6568e+00_jprb,3.9803e+00_jprb,4.3255e+00_jprb,4.6987e+00_jprb,5.1122e+00_jprb/)  
kbo( :,31, 8) = (/&
 & 3.2011e+00_jprb,3.4961e+00_jprb,3.8161e+00_jprb,4.1707e+00_jprb,4.5746e+00_jprb/)  
kbo( :,32, 8) = (/&
 & 2.8138e+00_jprb,3.0858e+00_jprb,3.3881e+00_jprb,3.7312e+00_jprb,4.1306e+00_jprb/)  
kbo( :,33, 8) = (/&
 & 2.4854e+00_jprb,2.7408e+00_jprb,3.0308e+00_jprb,3.3678e+00_jprb,3.7681e+00_jprb/)  
kbo( :,34, 8) = (/&
 & 2.2003e+00_jprb,2.4428e+00_jprb,2.7239e+00_jprb,3.0581e+00_jprb,3.4595e+00_jprb/)  

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


SUBROUTINE part5

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


kbo( :,35, 8) = (/&
 & 1.9399e+00_jprb,2.1700e+00_jprb,2.4416e+00_jprb,2.7703e+00_jprb,3.1684e+00_jprb/)  
kbo( :,36, 8) = (/&
 & 1.6987e+00_jprb,1.9152e+00_jprb,2.1743e+00_jprb,2.4922e+00_jprb,2.8785e+00_jprb/)  
kbo( :,37, 8) = (/&
 & 1.4664e+00_jprb,1.6646e+00_jprb,1.9059e+00_jprb,2.2053e+00_jprb,2.5708e+00_jprb/)  
kbo( :,38, 8) = (/&
 & 1.2664e+00_jprb,1.4483e+00_jprb,1.6728e+00_jprb,1.9542e+00_jprb,2.2994e+00_jprb/)  
kbo( :,39, 8) = (/&
 & 1.0955e+00_jprb,1.2626e+00_jprb,1.4719e+00_jprb,1.7366e+00_jprb,2.0631e+00_jprb/)  
kbo( :,40, 8) = (/&
 & 9.3556e-01_jprb,1.0859e+00_jprb,1.2762e+00_jprb,1.5192e+00_jprb,1.8216e+00_jprb/)  
kbo( :,41, 8) = (/&
 & 7.9800e-01_jprb,9.3250e-01_jprb,1.1046e+00_jprb,1.3263e+00_jprb,1.6051e+00_jprb/)  
kbo( :,42, 8) = (/&
 & 6.8026e-01_jprb,8.0111e-01_jprb,9.5621e-01_jprb,1.1581e+00_jprb,1.4148e+00_jprb/)  
kbo( :,43, 8) = (/&
 & 5.7416e-01_jprb,6.8147e-01_jprb,8.1937e-01_jprb,1.0003e+00_jprb,1.2325e+00_jprb/)  
kbo( :,44, 8) = (/&
 & 4.8192e-01_jprb,5.7630e-01_jprb,6.9849e-01_jprb,8.5859e-01_jprb,1.0670e+00_jprb/)  
kbo( :,45, 8) = (/&
 & 4.0390e-01_jprb,4.8662e-01_jprb,5.9437e-01_jprb,7.3642e-01_jprb,9.2241e-01_jprb/)  
kbo( :,46, 8) = (/&
 & 3.3692e-01_jprb,4.0832e-01_jprb,5.0245e-01_jprb,6.2763e-01_jprb,7.9306e-01_jprb/)  
kbo( :,47, 8) = (/&
 & 2.7795e-01_jprb,3.3890e-01_jprb,4.1977e-01_jprb,5.2809e-01_jprb,6.7337e-01_jprb/)  
kbo( :,48, 8) = (/&
 & 2.2885e-01_jprb,2.8056e-01_jprb,3.4963e-01_jprb,4.4288e-01_jprb,5.6978e-01_jprb/)  
kbo( :,49, 8) = (/&
 & 1.8806e-01_jprb,2.3188e-01_jprb,2.9038e-01_jprb,3.7027e-01_jprb,4.8015e-01_jprb/)  
kbo( :,50, 8) = (/&
 & 1.5486e-01_jprb,1.9227e-01_jprb,2.4202e-01_jprb,3.1061e-01_jprb,4.0591e-01_jprb/)  
kbo( :,51, 8) = (/&
 & 1.2721e-01_jprb,1.5949e-01_jprb,2.0189e-01_jprb,2.6069e-01_jprb,3.4317e-01_jprb/)  
kbo( :,52, 8) = (/&
 & 1.0403e-01_jprb,1.3183e-01_jprb,1.6821e-01_jprb,2.1833e-01_jprb,2.8940e-01_jprb/)  
kbo( :,53, 8) = (/&
 & 8.4647e-02_jprb,1.0841e-01_jprb,1.3976e-01_jprb,1.8251e-01_jprb,2.4335e-01_jprb/)  
kbo( :,54, 8) = (/&
 & 6.9094e-02_jprb,8.9415e-02_jprb,1.1671e-01_jprb,1.5366e-01_jprb,2.0608e-01_jprb/)  
kbo( :,55, 8) = (/&
 & 5.6395e-02_jprb,7.3686e-02_jprb,9.7324e-02_jprb,1.2958e-01_jprb,1.7505e-01_jprb/)  
kbo( :,56, 8) = (/&
 & 4.5872e-02_jprb,6.0506e-02_jprb,8.0843e-02_jprb,1.0885e-01_jprb,1.4852e-01_jprb/)  
kbo( :,57, 8) = (/&
 & 3.7163e-02_jprb,4.9485e-02_jprb,6.6836e-02_jprb,9.1072e-02_jprb,1.2569e-01_jprb/)  
kbo( :,58, 8) = (/&
 & 3.0142e-02_jprb,4.0510e-02_jprb,5.5284e-02_jprb,7.6236e-02_jprb,1.0654e-01_jprb/)  
kbo( :,59, 8) = (/&
 & 2.5655e-02_jprb,3.4976e-02_jprb,4.8360e-02_jprb,6.7750e-02_jprb,9.5910e-02_jprb/)  
kbo( :,13, 9) = (/&
 & 2.6710e+02_jprb,2.6292e+02_jprb,2.6081e+02_jprb,2.6060e+02_jprb,2.6216e+02_jprb/)  
kbo( :,14, 9) = (/&
 & 2.2905e+02_jprb,2.2705e+02_jprb,2.2701e+02_jprb,2.2883e+02_jprb,2.3237e+02_jprb/)  
kbo( :,15, 9) = (/&
 & 1.9681e+02_jprb,1.9674e+02_jprb,1.9855e+02_jprb,2.0218e+02_jprb,2.0745e+02_jprb/)  
kbo( :,16, 9) = (/&
 & 1.6990e+02_jprb,1.7146e+02_jprb,1.7490e+02_jprb,1.8008e+02_jprb,1.8673e+02_jprb/)  
kbo( :,17, 9) = (/&
 & 1.4763e+02_jprb,1.5059e+02_jprb,1.5539e+02_jprb,1.6156e+02_jprb,1.6765e+02_jprb/)  
kbo( :,18, 9) = (/&
 & 1.2952e+02_jprb,1.3368e+02_jprb,1.3907e+02_jprb,1.4438e+02_jprb,1.4950e+02_jprb/)  
kbo( :,19, 9) = (/&
 & 1.1453e+02_jprb,1.1924e+02_jprb,1.2392e+02_jprb,1.2844e+02_jprb,1.3271e+02_jprb/)  
kbo( :,20, 9) = (/&
 & 1.0152e+02_jprb,1.0566e+02_jprb,1.0970e+02_jprb,1.1358e+02_jprb,1.1731e+02_jprb/)  
kbo( :,21, 9) = (/&
 & 8.9460e+01_jprb,9.3028e+01_jprb,9.6510e+01_jprb,9.9904e+01_jprb,1.0318e+02_jprb/)  
kbo( :,22, 9) = (/&
 & 7.8631e+01_jprb,8.1700e+01_jprb,8.4725e+01_jprb,8.7702e+01_jprb,9.0717e+01_jprb/)  
kbo( :,23, 9) = (/&
 & 6.8898e+01_jprb,7.1547e+01_jprb,7.4194e+01_jprb,7.6892e+01_jprb,7.9806e+01_jprb/)  
kbo( :,24, 9) = (/&
 & 6.0312e+01_jprb,6.2630e+01_jprb,6.4994e+01_jprb,6.7556e+01_jprb,7.0443e+01_jprb/)  
kbo( :,25, 9) = (/&
 & 5.2851e+01_jprb,5.4897e+01_jprb,5.7127e+01_jprb,5.9634e+01_jprb,6.2506e+01_jprb/)  
kbo( :,26, 9) = (/&
 & 4.6436e+01_jprb,4.8336e+01_jprb,5.0486e+01_jprb,5.2975e+01_jprb,5.5885e+01_jprb/)  
kbo( :,27, 9) = (/&
 & 4.0910e+01_jprb,4.2771e+01_jprb,4.4909e+01_jprb,4.7425e+01_jprb,5.0391e+01_jprb/)  
kbo( :,28, 9) = (/&
 & 3.6155e+01_jprb,3.8062e+01_jprb,4.0266e+01_jprb,4.2832e+01_jprb,4.5858e+01_jprb/)  
kbo( :,29, 9) = (/&
 & 3.2126e+01_jprb,3.4094e+01_jprb,3.6392e+01_jprb,3.9062e+01_jprb,4.2162e+01_jprb/)  
kbo( :,30, 9) = (/&
 & 2.8724e+01_jprb,3.0764e+01_jprb,3.3154e+01_jprb,3.5941e+01_jprb,3.9179e+01_jprb/)  
kbo( :,31, 9) = (/&
 & 2.5882e+01_jprb,2.7995e+01_jprb,3.0486e+01_jprb,3.3401e+01_jprb,3.6792e+01_jprb/)  
kbo( :,32, 9) = (/&
 & 2.3528e+01_jprb,2.5718e+01_jprb,2.8311e+01_jprb,3.1365e+01_jprb,3.4906e+01_jprb/)  
kbo( :,33, 9) = (/&
 & 2.1587e+01_jprb,2.3866e+01_jprb,2.6575e+01_jprb,2.9769e+01_jprb,3.3431e+01_jprb/)  
kbo( :,34, 9) = (/&
 & 1.9935e+01_jprb,2.2294e+01_jprb,2.5115e+01_jprb,2.8414e+01_jprb,3.2169e+01_jprb/)  
kbo( :,35, 9) = (/&
 & 1.8379e+01_jprb,2.0784e+01_jprb,2.3667e+01_jprb,2.7018e+01_jprb,3.0818e+01_jprb/)  
kbo( :,36, 9) = (/&
 & 1.6837e+01_jprb,1.9243e+01_jprb,2.2128e+01_jprb,2.5484e+01_jprb,2.9290e+01_jprb/)  
kbo( :,37, 9) = (/&
 & 1.5193e+01_jprb,1.7529e+01_jprb,2.0337e+01_jprb,2.3631e+01_jprb,2.7386e+01_jprb/)  
kbo( :,38, 9) = (/&
 & 1.3737e+01_jprb,1.6000e+01_jprb,1.8725e+01_jprb,2.1951e+01_jprb,2.5656e+01_jprb/)  
kbo( :,39, 9) = (/&
 & 1.2460e+01_jprb,1.4648e+01_jprb,1.7295e+01_jprb,2.0455e+01_jprb,2.4116e+01_jprb/)  
kbo( :,40, 9) = (/&
 & 1.1143e+01_jprb,1.3211e+01_jprb,1.5737e+01_jprb,1.8782e+01_jprb,2.2346e+01_jprb/)  
kbo( :,41, 9) = (/&
 & 9.9585e+00_jprb,1.1899e+01_jprb,1.4300e+01_jprb,1.7222e+01_jprb,2.0680e+01_jprb/)  
kbo( :,42, 9) = (/&
 & 8.9074e+00_jprb,1.0724e+01_jprb,1.3003e+01_jprb,1.5806e+01_jprb,1.9155e+01_jprb/)  
kbo( :,43, 9) = (/&
 & 7.8838e+00_jprb,9.5638e+00_jprb,1.1699e+01_jprb,1.4356e+01_jprb,1.7558e+01_jprb/)  
kbo( :,44, 9) = (/&
 & 6.9325e+00_jprb,8.4860e+00_jprb,1.0467e+01_jprb,1.2961e+01_jprb,1.6001e+01_jprb/)  
kbo( :,45, 9) = (/&
 & 6.0822e+00_jprb,7.5231e+00_jprb,9.3599e+00_jprb,1.1689e+01_jprb,1.4566e+01_jprb/)  
kbo( :,46, 9) = (/&
 & 5.2984e+00_jprb,6.6221e+00_jprb,8.3226e+00_jprb,1.0480e+01_jprb,1.3187e+01_jprb/)  
kbo( :,47, 9) = (/&
 & 4.5534e+00_jprb,5.7527e+00_jprb,7.3122e+00_jprb,9.2888e+00_jprb,1.1789e+01_jprb/)  
kbo( :,48, 9) = (/&
 & 3.8949e+00_jprb,4.9778e+00_jprb,6.4003e+00_jprb,8.2164e+00_jprb,1.0513e+01_jprb/)  
kbo( :,49, 9) = (/&
 & 3.3152e+00_jprb,4.2900e+00_jprb,5.5808e+00_jprb,7.2516e+00_jprb,9.3536e+00_jprb/)  
kbo( :,50, 9) = (/&
 & 2.8251e+00_jprb,3.7029e+00_jprb,4.8790e+00_jprb,6.4176e+00_jprb,8.3604e+00_jprb/)  
kbo( :,51, 9) = (/&
 & 2.4036e+00_jprb,3.1914e+00_jprb,4.2626e+00_jprb,5.6760e+00_jprb,7.4806e+00_jprb/)  
kbo( :,52, 9) = (/&
 & 2.0358e+00_jprb,2.7394e+00_jprb,3.7092e+00_jprb,5.0052e+00_jprb,6.6771e+00_jprb/)  
kbo( :,53, 9) = (/&
 & 1.7150e+00_jprb,2.3392e+00_jprb,3.2126e+00_jprb,4.3953e+00_jprb,5.9352e+00_jprb/)  
kbo( :,54, 9) = (/&
 & 1.4515e+00_jprb,2.0067e+00_jprb,2.8012e+00_jprb,3.8817e+00_jprb,5.3047e+00_jprb/)  
kbo( :,55, 9) = (/&
 & 1.2285e+00_jprb,1.7230e+00_jprb,2.4420e+00_jprb,3.4310e+00_jprb,4.7490e+00_jprb/)  
kbo( :,56, 9) = (/&
 & 1.0358e+00_jprb,1.4720e+00_jprb,2.1203e+00_jprb,3.0228e+00_jprb,4.2384e+00_jprb/)  
kbo( :,57, 9) = (/&
 & 8.6995e-01_jprb,1.2523e+00_jprb,1.8327e+00_jprb,2.6527e+00_jprb,3.7712e+00_jprb/)  
kbo( :,58, 9) = (/&
 & 7.3361e-01_jprb,1.0673e+00_jprb,1.5876e+00_jprb,2.3341e+00_jprb,3.3624e+00_jprb/)  
kbo( :,59, 9) = (/&
 & 6.5934e-01_jprb,9.7595e-01_jprb,1.4746e+00_jprb,2.2013e+00_jprb,3.1927e+00_jprb/)  
kbo( :,13,10) = (/&
 & 1.1370e+03_jprb,1.1193e+03_jprb,1.1015e+03_jprb,1.0831e+03_jprb,1.0644e+03_jprb/)  
kbo( :,14,10) = (/&
 & 1.0077e+03_jprb,9.9068e+02_jprb,9.7382e+02_jprb,9.5646e+02_jprb,9.3960e+02_jprb/)  
kbo( :,15,10) = (/&
 & 8.7737e+02_jprb,8.6162e+02_jprb,8.4607e+02_jprb,8.3075e+02_jprb,8.1589e+02_jprb/)  
kbo( :,16,10) = (/&
 & 7.5426e+02_jprb,7.4028e+02_jprb,7.2665e+02_jprb,7.1344e+02_jprb,7.0172e+02_jprb/)  
kbo( :,17,10) = (/&
 & 6.4244e+02_jprb,6.3047e+02_jprb,6.1893e+02_jprb,6.1102e+02_jprb,6.1824e+02_jprb/)  
kbo( :,18,10) = (/&
 & 5.4326e+02_jprb,5.3346e+02_jprb,5.2903e+02_jprb,5.4116e+02_jprb,5.6772e+02_jprb/)  
kbo( :,19,10) = (/&
 & 4.6041e+02_jprb,4.5657e+02_jprb,4.6965e+02_jprb,4.9609e+02_jprb,5.2443e+02_jprb/)  
kbo( :,20,10) = (/&
 & 3.9849e+02_jprb,4.0983e+02_jprb,4.3310e+02_jprb,4.5724e+02_jprb,4.8136e+02_jprb/)  
kbo( :,21,10) = (/&
 & 3.5855e+02_jprb,3.7953e+02_jprb,4.0064e+02_jprb,4.2132e+02_jprb,4.4170e+02_jprb/)  
kbo( :,22,10) = (/&
 & 3.2988e+02_jprb,3.4998e+02_jprb,3.6966e+02_jprb,3.8861e+02_jprb,4.0637e+02_jprb/)  
kbo( :,23,10) = (/&
 & 3.0132e+02_jprb,3.2005e+02_jprb,3.3835e+02_jprb,3.5588e+02_jprb,3.7212e+02_jprb/)  
kbo( :,24,10) = (/&
 & 2.7350e+02_jprb,2.9090e+02_jprb,3.0784e+02_jprb,3.2378e+02_jprb,3.3905e+02_jprb/)  
kbo( :,25,10) = (/&
 & 2.4700e+02_jprb,2.6316e+02_jprb,2.7865e+02_jprb,2.9355e+02_jprb,3.0831e+02_jprb/)  
kbo( :,26,10) = (/&
 & 2.2261e+02_jprb,2.3737e+02_jprb,2.5178e+02_jprb,2.6623e+02_jprb,2.8060e+02_jprb/)  
kbo( :,27,10) = (/&
 & 2.0072e+02_jprb,2.1392e+02_jprb,2.2763e+02_jprb,2.4159e+02_jprb,2.5577e+02_jprb/)  
kbo( :,28,10) = (/&
 & 1.8170e+02_jprb,1.9355e+02_jprb,2.0624e+02_jprb,2.1988e+02_jprb,2.3391e+02_jprb/)  
kbo( :,29,10) = (/&
 & 1.6551e+02_jprb,1.7639e+02_jprb,1.8818e+02_jprb,2.0102e+02_jprb,2.1504e+02_jprb/)  
kbo( :,30,10) = (/&
 & 1.5197e+02_jprb,1.6180e+02_jprb,1.7277e+02_jprb,1.8505e+02_jprb,1.9878e+02_jprb/)  
kbo( :,31,10) = (/&
 & 1.4040e+02_jprb,1.4951e+02_jprb,1.5989e+02_jprb,1.7189e+02_jprb,1.8557e+02_jprb/)  
kbo( :,32,10) = (/&
 & 1.3052e+02_jprb,1.3922e+02_jprb,1.4931e+02_jprb,1.6122e+02_jprb,1.7537e+02_jprb/)  
kbo( :,33,10) = (/&
 & 1.2219e+02_jprb,1.3073e+02_jprb,1.4066e+02_jprb,1.5295e+02_jprb,1.6793e+02_jprb/)  
kbo( :,34,10) = (/&
 & 1.1485e+02_jprb,1.2346e+02_jprb,1.3352e+02_jprb,1.4643e+02_jprb,1.6252e+02_jprb/)  
kbo( :,35,10) = (/&
 & 1.0786e+02_jprb,1.1670e+02_jprb,1.2704e+02_jprb,1.4054e+02_jprb,1.5777e+02_jprb/)  
kbo( :,36,10) = (/&
 & 1.0096e+02_jprb,1.1026e+02_jprb,1.2083e+02_jprb,1.3466e+02_jprb,1.5266e+02_jprb/)  
kbo( :,37,10) = (/&
 & 9.3649e+01_jprb,1.0335e+02_jprb,1.1406e+02_jprb,1.2775e+02_jprb,1.4574e+02_jprb/)  
kbo( :,38,10) = (/&
 & 8.6966e+01_jprb,9.7115e+01_jprb,1.0831e+02_jprb,1.2180e+02_jprb,1.3969e+02_jprb/)  
kbo( :,39,10) = (/&
 & 8.1095e+01_jprb,9.1619e+01_jprb,1.0337e+02_jprb,1.1677e+02_jprb,1.3445e+02_jprb/)  
kbo( :,40,10) = (/&
 & 7.4825e+01_jprb,8.5620e+01_jprb,9.7708e+01_jprb,1.1093e+02_jprb,1.2782e+02_jprb/)  
kbo( :,41,10) = (/&
 & 6.8987e+01_jprb,7.9975e+01_jprb,9.2327e+01_jprb,1.0557e+02_jprb,1.2158e+02_jprb/)  
kbo( :,42,10) = (/&
 & 6.3582e+01_jprb,7.4799e+01_jprb,8.7292e+01_jprb,1.0067e+02_jprb,1.1590e+02_jprb/)  
kbo( :,43,10) = (/&
 & 5.8100e+01_jprb,6.9336e+01_jprb,8.1830e+01_jprb,9.5341e+01_jprb,1.0982e+02_jprb/)  
kbo( :,44,10) = (/&
 & 5.2932e+01_jprb,6.3876e+01_jprb,7.6294e+01_jprb,8.9737e+01_jprb,1.0391e+02_jprb/)  
kbo( :,45,10) = (/&
 & 4.8226e+01_jprb,5.8773e+01_jprb,7.1006e+01_jprb,8.4358e+01_jprb,9.8366e+01_jprb/)  
kbo( :,46,10) = (/&
 & 4.3799e+01_jprb,5.3806e+01_jprb,6.5676e+01_jprb,7.8828e+01_jprb,9.2780e+01_jprb/)  
kbo( :,47,10) = (/&
 & 3.9350e+01_jprb,4.8773e+01_jprb,6.0056e+01_jprb,7.2887e+01_jprb,8.6626e+01_jprb/)  
kbo( :,48,10) = (/&
 & 3.5360e+01_jprb,4.4132e+01_jprb,5.4788e+01_jprb,6.7135e+01_jprb,8.0643e+01_jprb/)  
kbo( :,49,10) = (/&
 & 3.1759e+01_jprb,3.9919e+01_jprb,4.9896e+01_jprb,6.1616e+01_jprb,7.4794e+01_jprb/)  
kbo( :,50,10) = (/&
 & 2.8696e+01_jprb,3.6220e+01_jprb,4.5579e+01_jprb,5.6700e+01_jprb,6.9436e+01_jprb/)  
kbo( :,51,10) = (/&
 & 2.5923e+01_jprb,3.2951e+01_jprb,4.1668e+01_jprb,5.2205e+01_jprb,6.4403e+01_jprb/)  
kbo( :,52,10) = (/&
 & 2.3246e+01_jprb,2.9949e+01_jprb,3.8044e+01_jprb,4.7965e+01_jprb,5.9561e+01_jprb/)  
kbo( :,53,10) = (/&
 & 2.0677e+01_jprb,2.7212e+01_jprb,3.4689e+01_jprb,4.3992e+01_jprb,5.4982e+01_jprb/)  
kbo( :,54,10) = (/&
 & 1.8394e+01_jprb,2.4800e+01_jprb,3.1896e+01_jprb,4.0551e+01_jprb,5.0999e+01_jprb/)  
kbo( :,55,10) = (/&
 & 1.6290e+01_jprb,2.2530e+01_jprb,2.9365e+01_jprb,3.7468e+01_jprb,4.7358e+01_jprb/)  
kbo( :,56,10) = (/&
 & 1.4293e+01_jprb,2.0343e+01_jprb,2.7025e+01_jprb,3.4587e+01_jprb,4.3934e+01_jprb/)  
kbo( :,57,10) = (/&
 & 1.2429e+01_jprb,1.8222e+01_jprb,2.4765e+01_jprb,3.1908e+01_jprb,4.0683e+01_jprb/)  
kbo( :,58,10) = (/&
 & 1.0794e+01_jprb,1.6277e+01_jprb,2.2653e+01_jprb,2.9533e+01_jprb,3.7782e+01_jprb/)  
kbo( :,59,10) = (/&
 & 1.0104e+01_jprb,1.5485e+01_jprb,2.1801e+01_jprb,2.8646e+01_jprb,3.6640e+01_jprb/)  
kbo( :,13,11) = (/&
 & 1.9982e+03_jprb,1.9741e+03_jprb,1.9501e+03_jprb,1.9258e+03_jprb,1.8991e+03_jprb/)  
kbo( :,14,11) = (/&
 & 1.8366e+03_jprb,1.8117e+03_jprb,1.7872e+03_jprb,1.7620e+03_jprb,1.7357e+03_jprb/)  
kbo( :,15,11) = (/&
 & 1.6593e+03_jprb,1.6345e+03_jprb,1.6105e+03_jprb,1.5852e+03_jprb,1.5607e+03_jprb/)  
kbo( :,16,11) = (/&
 & 1.4714e+03_jprb,1.4482e+03_jprb,1.4256e+03_jprb,1.4029e+03_jprb,1.3814e+03_jprb/)  
kbo( :,17,11) = (/&
 & 1.2821e+03_jprb,1.2610e+03_jprb,1.2407e+03_jprb,1.2217e+03_jprb,1.2035e+03_jprb/)  
kbo( :,18,11) = (/&
 & 1.1031e+03_jprb,1.0851e+03_jprb,1.0681e+03_jprb,1.0526e+03_jprb,1.0392e+03_jprb/)  
kbo( :,19,11) = (/&
 & 9.4073e+02_jprb,9.2594e+02_jprb,9.1239e+02_jprb,9.0492e+02_jprb,9.1389e+02_jprb/)  
kbo( :,20,11) = (/&
 & 7.9752e+02_jprb,7.8605e+02_jprb,7.8200e+02_jprb,7.9771e+02_jprb,8.3070e+02_jprb/)  
kbo( :,21,11) = (/&
 & 6.7621e+02_jprb,6.7302e+02_jprb,6.9037e+02_jprb,7.2680e+02_jprb,7.7342e+02_jprb/)  
kbo( :,22,11) = (/&
 & 5.8317e+02_jprb,5.9901e+02_jprb,6.3384e+02_jprb,6.7592e+02_jprb,7.2003e+02_jprb/)  
kbo( :,23,11) = (/&
 & 5.2345e+02_jprb,5.5460e+02_jprb,5.9107e+02_jprb,6.2902e+02_jprb,6.6965e+02_jprb/)  
kbo( :,24,11) = (/&
 & 4.8603e+02_jprb,5.1872e+02_jprb,5.5143e+02_jprb,5.8645e+02_jprb,6.2372e+02_jprb/)  
kbo( :,25,11) = (/&
 & 4.5248e+02_jprb,4.8397e+02_jprb,5.1550e+02_jprb,5.4767e+02_jprb,5.8239e+02_jprb/)  
kbo( :,26,11) = (/&
 & 4.2042e+02_jprb,4.5092e+02_jprb,4.8247e+02_jprb,5.1356e+02_jprb,5.4667e+02_jprb/)  
kbo( :,27,11) = (/&
 & 3.8993e+02_jprb,4.2017e+02_jprb,4.5102e+02_jprb,4.8294e+02_jprb,5.1599e+02_jprb/)  
kbo( :,28,11) = (/&
 & 3.6206e+02_jprb,3.9191e+02_jprb,4.2290e+02_jprb,4.5578e+02_jprb,4.8932e+02_jprb/)  
kbo( :,29,11) = (/&
 & 3.3701e+02_jprb,3.6670e+02_jprb,3.9835e+02_jprb,4.3253e+02_jprb,4.6763e+02_jprb/)  
kbo( :,30,11) = (/&
 & 3.1435e+02_jprb,3.4509e+02_jprb,3.7799e+02_jprb,4.1371e+02_jprb,4.5072e+02_jprb/)  
kbo( :,31,11) = (/&
 & 2.9536e+02_jprb,3.2738e+02_jprb,3.6185e+02_jprb,3.9930e+02_jprb,4.3870e+02_jprb/)  
kbo( :,32,11) = (/&
 & 2.8017e+02_jprb,3.1347e+02_jprb,3.5000e+02_jprb,3.8948e+02_jprb,4.3126e+02_jprb/)  
kbo( :,33,11) = (/&
 & 2.6842e+02_jprb,3.0340e+02_jprb,3.4238e+02_jprb,3.8415e+02_jprb,4.2838e+02_jprb/)  
kbo( :,34,11) = (/&
 & 2.5904e+02_jprb,2.9599e+02_jprb,3.3729e+02_jprb,3.8143e+02_jprb,4.2772e+02_jprb/)  
kbo( :,35,11) = (/&
 & 2.4977e+02_jprb,2.8824e+02_jprb,3.3150e+02_jprb,3.7746e+02_jprb,4.2524e+02_jprb/)  
kbo( :,36,11) = (/&
 & 2.3959e+02_jprb,2.7880e+02_jprb,3.2342e+02_jprb,3.7070e+02_jprb,4.1949e+02_jprb/)  
kbo( :,37,11) = (/&
 & 2.2622e+02_jprb,2.6520e+02_jprb,3.1011e+02_jprb,3.5817e+02_jprb,4.0759e+02_jprb/)  
kbo( :,38,11) = (/&
 & 2.1446e+02_jprb,2.5305e+02_jprb,2.9777e+02_jprb,3.4633e+02_jprb,3.9620e+02_jprb/)  

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


SUBROUTINE part6

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


kbo( :,39,11) = (/&
 & 2.0431e+02_jprb,2.4241e+02_jprb,2.8661e+02_jprb,3.3540e+02_jprb,3.8561e+02_jprb/)  
kbo( :,40,11) = (/&
 & 1.9199e+02_jprb,2.2883e+02_jprb,2.7179e+02_jprb,3.2005e+02_jprb,3.7046e+02_jprb/)  
kbo( :,41,11) = (/&
 & 1.8042e+02_jprb,2.1588e+02_jprb,2.5742e+02_jprb,3.0459e+02_jprb,3.5513e+02_jprb/)  
kbo( :,42,11) = (/&
 & 1.6997e+02_jprb,2.0388e+02_jprb,2.4396e+02_jprb,2.8977e+02_jprb,3.4012e+02_jprb/)  
kbo( :,43,11) = (/&
 & 1.5886e+02_jprb,1.9075e+02_jprb,2.2902e+02_jprb,2.7322e+02_jprb,3.2256e+02_jprb/)  
kbo( :,44,11) = (/&
 & 1.4807e+02_jprb,1.7777e+02_jprb,2.1401e+02_jprb,2.5624e+02_jprb,3.0398e+02_jprb/)  
kbo( :,45,11) = (/&
 & 1.3833e+02_jprb,1.6586e+02_jprb,1.9992e+02_jprb,2.4015e+02_jprb,2.8607e+02_jprb/)  
kbo( :,46,11) = (/&
 & 1.2866e+02_jprb,1.5433e+02_jprb,1.8602e+02_jprb,2.2411e+02_jprb,2.6807e+02_jprb/)  
kbo( :,47,11) = (/&
 & 1.1806e+02_jprb,1.4268e+02_jprb,1.7176e+02_jprb,2.0732e+02_jprb,2.4896e+02_jprb/)  
kbo( :,48,11) = (/&
 & 1.0762e+02_jprb,1.3206e+02_jprb,1.5870e+02_jprb,1.9169e+02_jprb,2.3091e+02_jprb/)  
kbo( :,49,11) = (/&
 & 9.7413e+01_jprb,1.2171e+02_jprb,1.4684e+02_jprb,1.7718e+02_jprb,2.1396e+02_jprb/)  
kbo( :,50,11) = (/&
 & 8.8070e+01_jprb,1.1204e+02_jprb,1.3673e+02_jprb,1.6460e+02_jprb,1.9898e+02_jprb/)  
kbo( :,51,11) = (/&
 & 7.9391e+01_jprb,1.0276e+02_jprb,1.2732e+02_jprb,1.5339e+02_jprb,1.8537e+02_jprb/)  
kbo( :,52,11) = (/&
 & 7.1290e+01_jprb,9.3724e+01_jprb,1.1803e+02_jprb,1.4312e+02_jprb,1.7272e+02_jprb/)  
kbo( :,53,11) = (/&
 & 6.3690e+01_jprb,8.4888e+01_jprb,1.0877e+02_jprb,1.3364e+02_jprb,1.6093e+02_jprb/)  
kbo( :,54,11) = (/&
 & 5.7252e+01_jprb,7.7190e+01_jprb,1.0050e+02_jprb,1.2512e+02_jprb,1.5096e+02_jprb/)  
kbo( :,55,11) = (/&
 & 5.1553e+01_jprb,7.0213e+01_jprb,9.2633e+01_jprb,1.1699e+02_jprb,1.4211e+02_jprb/)  
kbo( :,56,11) = (/&
 & 4.6347e+01_jprb,6.3641e+01_jprb,8.4965e+01_jprb,1.0895e+02_jprb,1.3389e+02_jprb/)  
kbo( :,57,11) = (/&
 & 4.1558e+01_jprb,5.7539e+01_jprb,7.7656e+01_jprb,1.0100e+02_jprb,1.2577e+02_jprb/)  
kbo( :,58,11) = (/&
 & 3.7465e+01_jprb,5.2155e+01_jprb,7.1065e+01_jprb,9.3602e+01_jprb,1.1811e+02_jprb/)  
kbo( :,59,11) = (/&
 & 3.5865e+01_jprb,5.0074e+01_jprb,6.8488e+01_jprb,9.0703e+01_jprb,1.1503e+02_jprb/)  
kbo( :,13,12) = (/&
 & 3.5818e+03_jprb,3.5602e+03_jprb,3.5361e+03_jprb,3.5062e+03_jprb,3.4753e+03_jprb/)  
kbo( :,14,12) = (/&
 & 3.4873e+03_jprb,3.4617e+03_jprb,3.4320e+03_jprb,3.3978e+03_jprb,3.3640e+03_jprb/)  
kbo( :,15,12) = (/&
 & 3.3174e+03_jprb,3.2873e+03_jprb,3.2522e+03_jprb,3.2184e+03_jprb,3.1823e+03_jprb/)  
kbo( :,16,12) = (/&
 & 3.0916e+03_jprb,3.0581e+03_jprb,3.0238e+03_jprb,2.9909e+03_jprb,2.9539e+03_jprb/)  
kbo( :,17,12) = (/&
 & 2.8257e+03_jprb,2.7923e+03_jprb,2.7615e+03_jprb,2.7297e+03_jprb,2.6960e+03_jprb/)  
kbo( :,18,12) = (/&
 & 2.5404e+03_jprb,2.5105e+03_jprb,2.4823e+03_jprb,2.4526e+03_jprb,2.4250e+03_jprb/)  
kbo( :,19,12) = (/&
 & 2.2483e+03_jprb,2.2241e+03_jprb,2.1993e+03_jprb,2.1755e+03_jprb,2.1543e+03_jprb/)  
kbo( :,20,12) = (/&
 & 1.9604e+03_jprb,1.9400e+03_jprb,1.9209e+03_jprb,1.9048e+03_jprb,1.8895e+03_jprb/)  
kbo( :,21,12) = (/&
 & 1.6892e+03_jprb,1.6737e+03_jprb,1.6614e+03_jprb,1.6516e+03_jprb,1.6529e+03_jprb/)  
kbo( :,22,12) = (/&
 & 1.4436e+03_jprb,1.4342e+03_jprb,1.4286e+03_jprb,1.4399e+03_jprb,1.4734e+03_jprb/)  
kbo( :,23,12) = (/&
 & 1.2278e+03_jprb,1.2256e+03_jprb,1.2434e+03_jprb,1.2846e+03_jprb,1.3446e+03_jprb/)  
kbo( :,24,12) = (/&
 & 1.0469e+03_jprb,1.0648e+03_jprb,1.1103e+03_jprb,1.1758e+03_jprb,1.2604e+03_jprb/)  
kbo( :,25,12) = (/&
 & 9.1261e+02_jprb,9.5264e+02_jprb,1.0193e+03_jprb,1.1064e+03_jprb,1.2100e+03_jprb/)  
kbo( :,26,12) = (/&
 & 8.2117e+02_jprb,8.8093e+02_jprb,9.6383e+02_jprb,1.0654e+03_jprb,1.1751e+03_jprb/)  
kbo( :,27,12) = (/&
 & 7.6353e+02_jprb,8.3890e+02_jprb,9.3016e+02_jprb,1.0327e+03_jprb,1.1460e+03_jprb/)  
kbo( :,28,12) = (/&
 & 7.3032e+02_jprb,8.1065e+02_jprb,9.0335e+02_jprb,1.0079e+03_jprb,1.1263e+03_jprb/)  
kbo( :,29,12) = (/&
 & 7.0685e+02_jprb,7.8909e+02_jprb,8.8424e+02_jprb,9.9311e+02_jprb,1.1170e+03_jprb/)  
kbo( :,30,12) = (/&
 & 6.8897e+02_jprb,7.7363e+02_jprb,8.7322e+02_jprb,9.8778e+02_jprb,1.1175e+03_jprb/)  
kbo( :,31,12) = (/&
 & 6.7689e+02_jprb,7.6589e+02_jprb,8.7126e+02_jprb,9.9171e+02_jprb,1.1269e+03_jprb/)  
kbo( :,32,12) = (/&
 & 6.7137e+02_jprb,7.6614e+02_jprb,8.7757e+02_jprb,1.0041e+03_jprb,1.1438e+03_jprb/)  
kbo( :,33,12) = (/&
 & 6.7295e+02_jprb,7.7394e+02_jprb,8.9109e+02_jprb,1.0224e+03_jprb,1.1662e+03_jprb/)  
kbo( :,34,12) = (/&
 & 6.7760e+02_jprb,7.8360e+02_jprb,9.0569e+02_jprb,1.0406e+03_jprb,1.1879e+03_jprb/)  
kbo( :,35,12) = (/&
 & 6.7716e+02_jprb,7.8671e+02_jprb,9.1119e+02_jprb,1.0486e+03_jprb,1.1979e+03_jprb/)  
kbo( :,36,12) = (/&
 & 6.6904e+02_jprb,7.7952e+02_jprb,9.0494e+02_jprb,1.0434e+03_jprb,1.1930e+03_jprb/)  
kbo( :,37,12) = (/&
 & 6.4763e+02_jprb,7.5648e+02_jprb,8.8059e+02_jprb,1.0176e+03_jprb,1.1662e+03_jprb/)  
kbo( :,38,12) = (/&
 & 6.2716e+02_jprb,7.3431e+02_jprb,8.5661e+02_jprb,9.9212e+02_jprb,1.1395e+03_jprb/)  
kbo( :,39,12) = (/&
 & 6.0818e+02_jprb,7.1366e+02_jprb,8.3407e+02_jprb,9.6793e+02_jprb,1.1141e+03_jprb/)  
kbo( :,40,12) = (/&
 & 5.8003e+02_jprb,6.8275e+02_jprb,7.9982e+02_jprb,9.3064e+02_jprb,1.0742e+03_jprb/)  
kbo( :,41,12) = (/&
 & 5.5133e+02_jprb,6.5206e+02_jprb,7.6547e+02_jprb,8.9303e+02_jprb,1.0336e+03_jprb/)  
kbo( :,42,12) = (/&
 & 5.2305e+02_jprb,6.2298e+02_jprb,7.3258e+02_jprb,8.5660e+02_jprb,9.9409e+02_jprb/)  
kbo( :,43,12) = (/&
 & 4.8966e+02_jprb,5.8921e+02_jprb,6.9465e+02_jprb,8.1454e+02_jprb,9.4783e+02_jprb/)  
kbo( :,44,12) = (/&
 & 4.5450e+02_jprb,5.5350e+02_jprb,6.5588e+02_jprb,7.7082e+02_jprb,8.9980e+02_jprb/)  
kbo( :,45,12) = (/&
 & 4.2021e+02_jprb,5.1820e+02_jprb,6.1912e+02_jprb,7.2914e+02_jprb,8.5336e+02_jprb/)  
kbo( :,46,12) = (/&
 & 3.8545e+02_jprb,4.8121e+02_jprb,5.8143e+02_jprb,6.8674e+02_jprb,8.0608e+02_jprb/)  
kbo( :,47,12) = (/&
 & 3.4881e+02_jprb,4.4053e+02_jprb,5.3980e+02_jprb,6.4195e+02_jprb,7.5551e+02_jprb/)  
kbo( :,48,12) = (/&
 & 3.1491e+02_jprb,4.0104e+02_jprb,4.9870e+02_jprb,5.9963e+02_jprb,7.0738e+02_jprb/)  
kbo( :,49,12) = (/&
 & 2.8368e+02_jprb,3.6400e+02_jprb,4.5807e+02_jprb,5.5813e+02_jprb,6.6173e+02_jprb/)  
kbo( :,50,12) = (/&
 & 2.5677e+02_jprb,3.3132e+02_jprb,4.2070e+02_jprb,5.1964e+02_jprb,6.2120e+02_jprb/)  
kbo( :,51,12) = (/&
 & 2.3306e+02_jprb,3.0179e+02_jprb,3.8584e+02_jprb,4.8266e+02_jprb,5.8343e+02_jprb/)  
kbo( :,52,12) = (/&
 & 2.1156e+02_jprb,2.7447e+02_jprb,3.5296e+02_jprb,4.4605e+02_jprb,5.4606e+02_jprb/)  
kbo( :,53,12) = (/&
 & 1.9230e+02_jprb,2.4924e+02_jprb,3.2214e+02_jprb,4.1028e+02_jprb,5.0889e+02_jprb/)  
kbo( :,54,12) = (/&
 & 1.7631e+02_jprb,2.2814e+02_jprb,2.9584e+02_jprb,3.7892e+02_jprb,4.7521e+02_jprb/)  
kbo( :,55,12) = (/&
 & 1.6135e+02_jprb,2.0966e+02_jprb,2.7215e+02_jprb,3.5038e+02_jprb,4.4318e+02_jprb/)  
kbo( :,56,12) = (/&
 & 1.4671e+02_jprb,1.9290e+02_jprb,2.5021e+02_jprb,3.2348e+02_jprb,4.1193e+02_jprb/)  
kbo( :,57,12) = (/&
 & 1.3244e+02_jprb,1.7761e+02_jprb,2.2999e+02_jprb,2.9808e+02_jprb,3.8198e+02_jprb/)  
kbo( :,58,12) = (/&
 & 1.1934e+02_jprb,1.6351e+02_jprb,2.1236e+02_jprb,2.7551e+02_jprb,3.5480e+02_jprb/)  
kbo( :,59,12) = (/&
 & 1.1416e+02_jprb,1.5788e+02_jprb,2.0569e+02_jprb,2.6705e+02_jprb,3.4428e+02_jprb/)  
kbo( :,13,13) = (/&
 & 6.2395e+03_jprb,6.2548e+03_jprb,6.2528e+03_jprb,6.2437e+03_jprb,6.2212e+03_jprb/)  
kbo( :,14,13) = (/&
 & 6.5506e+03_jprb,6.5502e+03_jprb,6.5372e+03_jprb,6.5181e+03_jprb,6.4862e+03_jprb/)  
kbo( :,15,13) = (/&
 & 6.7305e+03_jprb,6.7173e+03_jprb,6.7025e+03_jprb,6.6735e+03_jprb,6.6396e+03_jprb/)  
kbo( :,16,13) = (/&
 & 6.7735e+03_jprb,6.7593e+03_jprb,6.7329e+03_jprb,6.7018e+03_jprb,6.6632e+03_jprb/)  
kbo( :,17,13) = (/&
 & 6.6866e+03_jprb,6.6652e+03_jprb,6.6418e+03_jprb,6.6109e+03_jprb,6.5815e+03_jprb/)  
kbo( :,18,13) = (/&
 & 6.4678e+03_jprb,6.4550e+03_jprb,6.4343e+03_jprb,6.4161e+03_jprb,6.3909e+03_jprb/)  
kbo( :,19,13) = (/&
 & 6.1502e+03_jprb,6.1407e+03_jprb,6.1364e+03_jprb,6.1306e+03_jprb,6.1254e+03_jprb/)  
kbo( :,20,13) = (/&
 & 5.7689e+03_jprb,5.7735e+03_jprb,5.7841e+03_jprb,5.7948e+03_jprb,5.8088e+03_jprb/)  
kbo( :,21,13) = (/&
 & 5.3403e+03_jprb,5.3684e+03_jprb,5.3985e+03_jprb,5.4338e+03_jprb,5.4704e+03_jprb/)  
kbo( :,22,13) = (/&
 & 4.8996e+03_jprb,4.9455e+03_jprb,5.0039e+03_jprb,5.0665e+03_jprb,5.1301e+03_jprb/)  
kbo( :,23,13) = (/&
 & 4.4632e+03_jprb,4.5382e+03_jprb,4.6203e+03_jprb,4.7095e+03_jprb,4.8061e+03_jprb/)  
kbo( :,24,13) = (/&
 & 4.0592e+03_jprb,4.1561e+03_jprb,4.2652e+03_jprb,4.3841e+03_jprb,4.5045e+03_jprb/)  
kbo( :,25,13) = (/&
 & 3.6916e+03_jprb,3.8157e+03_jprb,3.9506e+03_jprb,4.0939e+03_jprb,4.2439e+03_jprb/)  
kbo( :,26,13) = (/&
 & 3.3695e+03_jprb,3.5229e+03_jprb,3.6811e+03_jprb,3.8560e+03_jprb,4.0438e+03_jprb/)  
kbo( :,27,13) = (/&
 & 3.0970e+03_jprb,3.2745e+03_jprb,3.4707e+03_jprb,3.6834e+03_jprb,3.9050e+03_jprb/)  
kbo( :,28,13) = (/&
 & 2.8706e+03_jprb,3.0888e+03_jprb,3.3231e+03_jprb,3.5664e+03_jprb,3.8148e+03_jprb/)  
kbo( :,29,13) = (/&
 & 2.7113e+03_jprb,2.9644e+03_jprb,3.2288e+03_jprb,3.4982e+03_jprb,3.7656e+03_jprb/)  
kbo( :,30,13) = (/&
 & 2.6074e+03_jprb,2.8885e+03_jprb,3.1778e+03_jprb,3.4648e+03_jprb,3.7470e+03_jprb/)  
kbo( :,31,13) = (/&
 & 2.5496e+03_jprb,2.8533e+03_jprb,3.1606e+03_jprb,3.4611e+03_jprb,3.7527e+03_jprb/)  
kbo( :,32,13) = (/&
 & 2.5294e+03_jprb,2.8506e+03_jprb,3.1699e+03_jprb,3.4785e+03_jprb,3.7755e+03_jprb/)  
kbo( :,33,13) = (/&
 & 2.5376e+03_jprb,2.8705e+03_jprb,3.1985e+03_jprb,3.5117e+03_jprb,3.8116e+03_jprb/)  
kbo( :,34,13) = (/&
 & 2.5544e+03_jprb,2.8966e+03_jprb,3.2284e+03_jprb,3.5457e+03_jprb,3.8464e+03_jprb/)  
kbo( :,35,13) = (/&
 & 2.5535e+03_jprb,2.9023e+03_jprb,3.2375e+03_jprb,3.5577e+03_jprb,3.8601e+03_jprb/)  
kbo( :,36,13) = (/&
 & 2.5246e+03_jprb,2.8777e+03_jprb,3.2177e+03_jprb,3.5406e+03_jprb,3.8472e+03_jprb/)  
kbo( :,37,13) = (/&
 & 2.4476e+03_jprb,2.8057e+03_jprb,3.1519e+03_jprb,3.4804e+03_jprb,3.7923e+03_jprb/)  
kbo( :,38,13) = (/&
 & 2.3725e+03_jprb,2.7347e+03_jprb,3.0855e+03_jprb,3.4198e+03_jprb,3.7363e+03_jprb/)  
kbo( :,39,13) = (/&
 & 2.3022e+03_jprb,2.6668e+03_jprb,3.0226e+03_jprb,3.3616e+03_jprb,3.6822e+03_jprb/)  
kbo( :,40,13) = (/&
 & 2.1978e+03_jprb,2.5643e+03_jprb,2.9251e+03_jprb,3.2708e+03_jprb,3.5971e+03_jprb/)  
kbo( :,41,13) = (/&
 & 2.0936e+03_jprb,2.4587e+03_jprb,2.8232e+03_jprb,3.1755e+03_jprb,3.5072e+03_jprb/)  
kbo( :,42,13) = (/&
 & 1.9924e+03_jprb,2.3537e+03_jprb,2.7212e+03_jprb,3.0790e+03_jprb,3.4170e+03_jprb/)  
kbo( :,43,13) = (/&
 & 1.8759e+03_jprb,2.2299e+03_jprb,2.5995e+03_jprb,2.9624e+03_jprb,3.3082e+03_jprb/)  
kbo( :,44,13) = (/&
 & 1.7551e+03_jprb,2.1002e+03_jprb,2.4686e+03_jprb,2.8357e+03_jprb,3.1891e+03_jprb/)  
kbo( :,45,13) = (/&
 & 1.6392e+03_jprb,1.9745e+03_jprb,2.3377e+03_jprb,2.7076e+03_jprb,3.0676e+03_jprb/)  
kbo( :,46,13) = (/&
 & 1.5222e+03_jprb,1.8455e+03_jprb,2.1996e+03_jprb,2.5709e+03_jprb,2.9366e+03_jprb/)  
kbo( :,47,13) = (/&
 & 1.3973e+03_jprb,1.7071e+03_jprb,2.0502e+03_jprb,2.4181e+03_jprb,2.7876e+03_jprb/)  
kbo( :,48,13) = (/&
 & 1.2797e+03_jprb,1.5744e+03_jprb,1.9051e+03_jprb,2.2652e+03_jprb,2.6369e+03_jprb/)  
kbo( :,49,13) = (/&
 & 1.1690e+03_jprb,1.4484e+03_jprb,1.7654e+03_jprb,2.1147e+03_jprb,2.4860e+03_jprb/)  
kbo( :,50,13) = (/&
 & 1.0720e+03_jprb,1.3359e+03_jprb,1.6397e+03_jprb,1.9779e+03_jprb,2.3429e+03_jprb/)  
kbo( :,51,13) = (/&
 & 9.8386e+02_jprb,1.2327e+03_jprb,1.5222e+03_jprb,1.8488e+03_jprb,2.2054e+03_jprb/)  
kbo( :,52,13) = (/&
 & 9.0207e+02_jprb,1.1351e+03_jprb,1.4100e+03_jprb,1.7243e+03_jprb,2.0711e+03_jprb/)  
kbo( :,53,13) = (/&
 & 8.2675e+02_jprb,1.0437e+03_jprb,1.3030e+03_jprb,1.6043e+03_jprb,1.9396e+03_jprb/)  
kbo( :,54,13) = (/&
 & 7.6352e+02_jprb,9.6482e+02_jprb,1.2111e+03_jprb,1.4982e+03_jprb,1.8229e+03_jprb/)  
kbo( :,55,13) = (/&
 & 7.0952e+02_jprb,8.9409e+02_jprb,1.1266e+03_jprb,1.4008e+03_jprb,1.7142e+03_jprb/)  
kbo( :,56,13) = (/&
 & 6.6233e+02_jprb,8.2850e+02_jprb,1.0468e+03_jprb,1.3073e+03_jprb,1.6094e+03_jprb/)  
kbo( :,57,13) = (/&
 & 6.2132e+02_jprb,7.6796e+02_jprb,9.7144e+02_jprb,1.2186e+03_jprb,1.5081e+03_jprb/)  
kbo( :,58,13) = (/&
 & 5.8653e+02_jprb,7.1647e+02_jprb,9.0432e+02_jprb,1.1383e+03_jprb,1.4157e+03_jprb/)  
kbo( :,59,13) = (/&
 & 5.7212e+02_jprb,6.9724e+02_jprb,8.7847e+02_jprb,1.1078e+03_jprb,1.3794e+03_jprb/)  
kbo( :,13,14) = (/&
 & 9.8835e+03_jprb,9.9539e+03_jprb,1.0003e+04_jprb,1.0028e+04_jprb,1.0036e+04_jprb/)  
kbo( :,14,14) = (/&
 & 1.1157e+04_jprb,1.1221e+04_jprb,1.1261e+04_jprb,1.1278e+04_jprb,1.1272e+04_jprb/)  
kbo( :,15,14) = (/&
 & 1.2451e+04_jprb,1.2500e+04_jprb,1.2523e+04_jprb,1.2525e+04_jprb,1.2496e+04_jprb/)  
kbo( :,16,14) = (/&
 & 1.3702e+04_jprb,1.3735e+04_jprb,1.3749e+04_jprb,1.3724e+04_jprb,1.3688e+04_jprb/)  
kbo( :,17,14) = (/&
 & 1.4864e+04_jprb,1.4899e+04_jprb,1.4888e+04_jprb,1.4860e+04_jprb,1.4794e+04_jprb/)  
kbo( :,18,14) = (/&
 & 1.5913e+04_jprb,1.5926e+04_jprb,1.5919e+04_jprb,1.5876e+04_jprb,1.5804e+04_jprb/)  
kbo( :,19,14) = (/&
 & 1.6806e+04_jprb,1.6819e+04_jprb,1.6811e+04_jprb,1.6767e+04_jprb,1.6686e+04_jprb/)  
kbo( :,20,14) = (/&
 & 1.7528e+04_jprb,1.7560e+04_jprb,1.7554e+04_jprb,1.7516e+04_jprb,1.7446e+04_jprb/)  
kbo( :,21,14) = (/&
 & 1.8101e+04_jprb,1.8142e+04_jprb,1.8157e+04_jprb,1.8133e+04_jprb,1.8069e+04_jprb/)  
kbo( :,22,14) = (/&
 & 1.8522e+04_jprb,1.8600e+04_jprb,1.8643e+04_jprb,1.8633e+04_jprb,1.8576e+04_jprb/)  
kbo( :,23,14) = (/&
 & 1.8830e+04_jprb,1.8951e+04_jprb,1.9026e+04_jprb,1.9036e+04_jprb,1.8990e+04_jprb/)  
kbo( :,24,14) = (/&
 & 1.9044e+04_jprb,1.9220e+04_jprb,1.9318e+04_jprb,1.9356e+04_jprb,1.9336e+04_jprb/)  
kbo( :,25,14) = (/&
 & 1.9206e+04_jprb,1.9423e+04_jprb,1.9557e+04_jprb,1.9620e+04_jprb,1.9613e+04_jprb/)  
kbo( :,26,14) = (/&
 & 1.9345e+04_jprb,1.9590e+04_jprb,1.9754e+04_jprb,1.9836e+04_jprb,1.9837e+04_jprb/)  
kbo( :,27,14) = (/&
 & 1.9462e+04_jprb,1.9735e+04_jprb,1.9916e+04_jprb,2.0012e+04_jprb,2.0020e+04_jprb/)  
kbo( :,28,14) = (/&
 & 1.9573e+04_jprb,1.9864e+04_jprb,2.0059e+04_jprb,2.0163e+04_jprb,2.0168e+04_jprb/)  
kbo( :,29,14) = (/&
 & 1.9682e+04_jprb,1.9985e+04_jprb,2.0186e+04_jprb,2.0286e+04_jprb,2.0288e+04_jprb/)  
kbo( :,30,14) = (/&
 & 1.9789e+04_jprb,2.0101e+04_jprb,2.0295e+04_jprb,2.0389e+04_jprb,2.0383e+04_jprb/)  
kbo( :,31,14) = (/&
 & 1.9904e+04_jprb,2.0212e+04_jprb,2.0395e+04_jprb,2.0474e+04_jprb,2.0459e+04_jprb/)  
kbo( :,32,14) = (/&
 & 2.0019e+04_jprb,2.0312e+04_jprb,2.0477e+04_jprb,2.0546e+04_jprb,2.0515e+04_jprb/)  
kbo( :,33,14) = (/&
 & 2.0130e+04_jprb,2.0401e+04_jprb,2.0548e+04_jprb,2.0603e+04_jprb,2.0557e+04_jprb/)  
kbo( :,34,14) = (/&
 & 2.0224e+04_jprb,2.0479e+04_jprb,2.0609e+04_jprb,2.0649e+04_jprb,2.0588e+04_jprb/)  
kbo( :,35,14) = (/&
 & 2.0280e+04_jprb,2.0527e+04_jprb,2.0652e+04_jprb,2.0686e+04_jprb,2.0619e+04_jprb/)  
kbo( :,36,14) = (/&
 & 2.0300e+04_jprb,2.0553e+04_jprb,2.0683e+04_jprb,2.0717e+04_jprb,2.0652e+04_jprb/)  
kbo( :,37,14) = (/&
 & 2.0267e+04_jprb,2.0544e+04_jprb,2.0692e+04_jprb,2.0745e+04_jprb,2.0696e+04_jprb/)  
kbo( :,38,14) = (/&
 & 2.0221e+04_jprb,2.0526e+04_jprb,2.0695e+04_jprb,2.0765e+04_jprb,2.0733e+04_jprb/)  
kbo( :,39,14) = (/&
 & 2.0172e+04_jprb,2.0502e+04_jprb,2.0692e+04_jprb,2.0780e+04_jprb,2.0762e+04_jprb/)  
kbo( :,40,14) = (/&
 & 2.0072e+04_jprb,2.0440e+04_jprb,2.0669e+04_jprb,2.0782e+04_jprb,2.0789e+04_jprb/)  
kbo( :,41,14) = (/&
 & 1.9953e+04_jprb,2.0365e+04_jprb,2.0629e+04_jprb,2.0773e+04_jprb,2.0810e+04_jprb/)  
kbo( :,42,14) = (/&
 & 1.9824e+04_jprb,2.0275e+04_jprb,2.0580e+04_jprb,2.0757e+04_jprb,2.0819e+04_jprb/)  

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


SUBROUTINE part7

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


kbo( :,43,14) = (/&
 & 1.9649e+04_jprb,2.0152e+04_jprb,2.0505e+04_jprb,2.0716e+04_jprb,2.0819e+04_jprb/)  
kbo( :,44,14) = (/&
 & 1.9430e+04_jprb,2.0000e+04_jprb,2.0405e+04_jprb,2.0665e+04_jprb,2.0802e+04_jprb/)  
kbo( :,45,14) = (/&
 & 1.9196e+04_jprb,1.9828e+04_jprb,2.0288e+04_jprb,2.0595e+04_jprb,2.0775e+04_jprb/)  
kbo( :,46,14) = (/&
 & 1.8908e+04_jprb,1.9621e+04_jprb,2.0141e+04_jprb,2.0502e+04_jprb,2.0723e+04_jprb/)  
kbo( :,47,14) = (/&
 & 1.8564e+04_jprb,1.9359e+04_jprb,1.9951e+04_jprb,2.0375e+04_jprb,2.0651e+04_jprb/)  
kbo( :,48,14) = (/&
 & 1.8186e+04_jprb,1.9064e+04_jprb,1.9734e+04_jprb,2.0222e+04_jprb,2.0560e+04_jprb/)  
kbo( :,49,14) = (/&
 & 1.7775e+04_jprb,1.8727e+04_jprb,1.9486e+04_jprb,2.0046e+04_jprb,2.0443e+04_jprb/)  
kbo( :,50,14) = (/&
 & 1.7362e+04_jprb,1.8391e+04_jprb,1.9223e+04_jprb,1.9856e+04_jprb,2.0310e+04_jprb/)  
kbo( :,51,14) = (/&
 & 1.6921e+04_jprb,1.8033e+04_jprb,1.8942e+04_jprb,1.9648e+04_jprb,2.0164e+04_jprb/)  
kbo( :,52,14) = (/&
 & 1.6453e+04_jprb,1.7649e+04_jprb,1.8637e+04_jprb,1.9415e+04_jprb,1.9994e+04_jprb/)  
kbo( :,53,14) = (/&
 & 1.5948e+04_jprb,1.7240e+04_jprb,1.8303e+04_jprb,1.9152e+04_jprb,1.9803e+04_jprb/)  
kbo( :,54,14) = (/&
 & 1.5455e+04_jprb,1.6834e+04_jprb,1.7961e+04_jprb,1.8891e+04_jprb,1.9606e+04_jprb/)  
kbo( :,55,14) = (/&
 & 1.4957e+04_jprb,1.6418e+04_jprb,1.7624e+04_jprb,1.8615e+04_jprb,1.9397e+04_jprb/)  
kbo( :,56,14) = (/&
 & 1.4440e+04_jprb,1.5974e+04_jprb,1.7263e+04_jprb,1.8321e+04_jprb,1.9169e+04_jprb/)  
kbo( :,57,14) = (/&
 & 1.3900e+04_jprb,1.5506e+04_jprb,1.6878e+04_jprb,1.8004e+04_jprb,1.8917e+04_jprb/)  
kbo( :,58,14) = (/&
 & 1.3361e+04_jprb,1.5039e+04_jprb,1.6487e+04_jprb,1.7689e+04_jprb,1.8664e+04_jprb/)  
kbo( :,59,14) = (/&
 & 1.3141e+04_jprb,1.4845e+04_jprb,1.6324e+04_jprb,1.7549e+04_jprb,1.8556e+04_jprb/)  
kbo( :,13,15) = (/&
 & 1.3105e+04_jprb,1.3211e+04_jprb,1.3290e+04_jprb,1.3347e+04_jprb,1.3377e+04_jprb/)  
kbo( :,14,15) = (/&
 & 1.5542e+04_jprb,1.5648e+04_jprb,1.5712e+04_jprb,1.5742e+04_jprb,1.5741e+04_jprb/)  
kbo( :,15,15) = (/&
 & 1.8293e+04_jprb,1.8393e+04_jprb,1.8434e+04_jprb,1.8432e+04_jprb,1.8387e+04_jprb/)  
kbo( :,16,15) = (/&
 & 2.1367e+04_jprb,2.1424e+04_jprb,2.1423e+04_jprb,2.1375e+04_jprb,2.1256e+04_jprb/)  
kbo( :,17,15) = (/&
 & 2.4738e+04_jprb,2.4717e+04_jprb,2.4651e+04_jprb,2.4501e+04_jprb,2.4302e+04_jprb/)  
kbo( :,18,15) = (/&
 & 2.8333e+04_jprb,2.8229e+04_jprb,2.8040e+04_jprb,2.7775e+04_jprb,2.7461e+04_jprb/)  
kbo( :,19,15) = (/&
 & 3.2088e+04_jprb,3.1857e+04_jprb,3.1527e+04_jprb,3.1118e+04_jprb,3.0643e+04_jprb/)  
kbo( :,20,15) = (/&
 & 3.5897e+04_jprb,3.5492e+04_jprb,3.5012e+04_jprb,3.4430e+04_jprb,3.3771e+04_jprb/)  
kbo( :,21,15) = (/&
 & 3.9650e+04_jprb,3.9061e+04_jprb,3.8385e+04_jprb,3.7607e+04_jprb,3.6774e+04_jprb/)  
kbo( :,22,15) = (/&
 & 4.3231e+04_jprb,4.2424e+04_jprb,4.1504e+04_jprb,4.0530e+04_jprb,3.9497e+04_jprb/)  
kbo( :,23,15) = (/&
 & 4.6557e+04_jprb,4.5500e+04_jprb,4.4350e+04_jprb,4.3167e+04_jprb,4.1929e+04_jprb/)  
kbo( :,24,15) = (/&
 & 4.9552e+04_jprb,4.8236e+04_jprb,4.6880e+04_jprb,4.5475e+04_jprb,4.4033e+04_jprb/)  
kbo( :,25,15) = (/&
 & 5.2158e+04_jprb,5.0602e+04_jprb,4.9033e+04_jprb,4.7428e+04_jprb,4.5797e+04_jprb/)  
kbo( :,26,15) = (/&
 & 5.4326e+04_jprb,5.2566e+04_jprb,5.0793e+04_jprb,4.9004e+04_jprb,4.7209e+04_jprb/)  
kbo( :,27,15) = (/&
 & 5.6113e+04_jprb,5.4155e+04_jprb,5.2200e+04_jprb,5.0246e+04_jprb,4.8319e+04_jprb/)  
kbo( :,28,15) = (/&
 & 5.7518e+04_jprb,5.5394e+04_jprb,5.3278e+04_jprb,5.1199e+04_jprb,4.9157e+04_jprb/)  
kbo( :,29,15) = (/&
 & 5.8580e+04_jprb,5.6300e+04_jprb,5.4057e+04_jprb,5.1871e+04_jprb,4.9732e+04_jprb/)  
kbo( :,30,15) = (/&
 & 5.9321e+04_jprb,5.6927e+04_jprb,5.4587e+04_jprb,5.2312e+04_jprb,5.0097e+04_jprb/)  
kbo( :,31,15) = (/&
 & 5.9791e+04_jprb,5.7302e+04_jprb,5.4893e+04_jprb,5.2547e+04_jprb,5.0272e+04_jprb/)  
kbo( :,32,15) = (/&
 & 6.0024e+04_jprb,5.7470e+04_jprb,5.5008e+04_jprb,5.2603e+04_jprb,5.0291e+04_jprb/)  
kbo( :,33,15) = (/&
 & 6.0073e+04_jprb,5.7468e+04_jprb,5.4966e+04_jprb,5.2524e+04_jprb,5.0181e+04_jprb/)  
kbo( :,34,15) = (/&
 & 6.0061e+04_jprb,5.7423e+04_jprb,5.4889e+04_jprb,5.2419e+04_jprb,5.0055e+04_jprb/)  
kbo( :,35,15) = (/&
 & 6.0191e+04_jprb,5.7520e+04_jprb,5.4955e+04_jprb,5.2459e+04_jprb,5.0075e+04_jprb/)  
kbo( :,36,15) = (/&
 & 6.0539e+04_jprb,5.7824e+04_jprb,5.5225e+04_jprb,5.2698e+04_jprb,5.0287e+04_jprb/)  
kbo( :,37,15) = (/&
 & 6.1234e+04_jprb,5.8473e+04_jprb,5.5831e+04_jprb,5.3268e+04_jprb,5.0811e+04_jprb/)  
kbo( :,38,15) = (/&
 & 6.1911e+04_jprb,5.9110e+04_jprb,5.6429e+04_jprb,5.3825e+04_jprb,5.1333e+04_jprb/)  
kbo( :,39,15) = (/&
 & 6.2546e+04_jprb,5.9701e+04_jprb,5.6980e+04_jprb,5.4347e+04_jprb,5.1826e+04_jprb/)  
kbo( :,40,15) = (/&
 & 6.3440e+04_jprb,6.0560e+04_jprb,5.7786e+04_jprb,5.5116e+04_jprb,5.2552e+04_jprb/)  
kbo( :,41,15) = (/&
 & 6.4362e+04_jprb,6.1427e+04_jprb,5.8612e+04_jprb,5.5905e+04_jprb,5.3303e+04_jprb/)  
kbo( :,42,15) = (/&
 & 6.5271e+04_jprb,6.2297e+04_jprb,5.9433e+04_jprb,5.6685e+04_jprb,5.4054e+04_jprb/)  
kbo( :,43,15) = (/&
 & 6.6345e+04_jprb,6.3316e+04_jprb,6.0412e+04_jprb,5.7629e+04_jprb,5.4943e+04_jprb/)  
kbo( :,44,15) = (/&
 & 6.7502e+04_jprb,6.4418e+04_jprb,6.1461e+04_jprb,5.8625e+04_jprb,5.5900e+04_jprb/)  
kbo( :,45,15) = (/&
 & 6.8664e+04_jprb,6.5524e+04_jprb,6.2518e+04_jprb,5.9632e+04_jprb,5.6859e+04_jprb/)  
kbo( :,46,15) = (/&
 & 6.9916e+04_jprb,6.6699e+04_jprb,6.3637e+04_jprb,6.0705e+04_jprb,5.7897e+04_jprb/)  
kbo( :,47,15) = (/&
 & 7.1307e+04_jprb,6.8027e+04_jprb,6.4908e+04_jprb,6.1920e+04_jprb,5.9052e+04_jprb/)  
kbo( :,48,15) = (/&
 & 7.2692e+04_jprb,6.9380e+04_jprb,6.6186e+04_jprb,6.3144e+04_jprb,6.0224e+04_jprb/)  
kbo( :,49,15) = (/&
 & 7.4089e+04_jprb,7.0754e+04_jprb,6.7488e+04_jprb,6.4384e+04_jprb,6.1415e+04_jprb/)  
kbo( :,50,15) = (/&
 & 7.5388e+04_jprb,7.2035e+04_jprb,6.8731e+04_jprb,6.5568e+04_jprb,6.2543e+04_jprb/)  
kbo( :,51,15) = (/&
 & 7.6677e+04_jprb,7.3293e+04_jprb,6.9952e+04_jprb,6.6726e+04_jprb,6.3655e+04_jprb/)  
kbo( :,52,15) = (/&
 & 7.7977e+04_jprb,7.4539e+04_jprb,7.1186e+04_jprb,6.7906e+04_jprb,6.4783e+04_jprb/)  
kbo( :,53,15) = (/&
 & 7.9289e+04_jprb,7.5794e+04_jprb,7.2422e+04_jprb,6.9107e+04_jprb,6.5922e+04_jprb/)  
kbo( :,54,15) = (/&
 & 8.0507e+04_jprb,7.6976e+04_jprb,7.3575e+04_jprb,7.0226e+04_jprb,6.6980e+04_jprb/)  
kbo( :,55,15) = (/&
 & 8.1668e+04_jprb,7.8115e+04_jprb,7.4665e+04_jprb,7.1303e+04_jprb,6.8017e+04_jprb/)  
kbo( :,56,15) = (/&
 & 8.2825e+04_jprb,7.9256e+04_jprb,7.5760e+04_jprb,7.2375e+04_jprb,6.9059e+04_jprb/)  
kbo( :,57,15) = (/&
 & 8.3969e+04_jprb,8.0408e+04_jprb,7.6872e+04_jprb,7.3475e+04_jprb,7.0130e+04_jprb/)  
kbo( :,58,15) = (/&
 & 8.5046e+04_jprb,8.1501e+04_jprb,7.7943e+04_jprb,7.4498e+04_jprb,7.1139e+04_jprb/)  
kbo( :,59,15) = (/&
 & 8.5481e+04_jprb,8.1948e+04_jprb,7.8376e+04_jprb,7.4922e+04_jprb,7.1551e+04_jprb/)  
kbo( :,13,16) = (/&
 & 1.4822e+04_jprb,1.4947e+04_jprb,1.5039e+04_jprb,1.5078e+04_jprb,1.5067e+04_jprb/)  
kbo( :,14,16) = (/&
 & 1.7844e+04_jprb,1.7976e+04_jprb,1.8048e+04_jprb,1.8049e+04_jprb,1.8009e+04_jprb/)  
kbo( :,15,16) = (/&
 & 2.1400e+04_jprb,2.1492e+04_jprb,2.1520e+04_jprb,2.1466e+04_jprb,2.1373e+04_jprb/)  
kbo( :,16,16) = (/&
 & 2.5508e+04_jprb,2.5515e+04_jprb,2.5445e+04_jprb,2.5314e+04_jprb,2.5126e+04_jprb/)  
kbo( :,17,16) = (/&
 & 3.0159e+04_jprb,3.0040e+04_jprb,2.9821e+04_jprb,2.9561e+04_jprb,2.9224e+04_jprb/)  
kbo( :,18,16) = (/&
 & 3.5323e+04_jprb,3.5002e+04_jprb,3.4578e+04_jprb,3.4138e+04_jprb,3.3586e+04_jprb/)  
kbo( :,19,16) = (/&
 & 4.0906e+04_jprb,4.0304e+04_jprb,3.9627e+04_jprb,3.8916e+04_jprb,3.8103e+04_jprb/)  
kbo( :,20,16) = (/&
 & 4.6757e+04_jprb,4.5796e+04_jprb,4.4798e+04_jprb,4.3759e+04_jprb,4.2633e+04_jprb/)  
kbo( :,21,16) = (/&
 & 5.2696e+04_jprb,5.1326e+04_jprb,4.9934e+04_jprb,4.8491e+04_jprb,4.7018e+04_jprb/)  
kbo( :,22,16) = (/&
 & 5.8463e+04_jprb,5.6597e+04_jprb,5.4757e+04_jprb,5.2889e+04_jprb,5.1042e+04_jprb/)  
kbo( :,23,16) = (/&
 & 6.3885e+04_jprb,6.1516e+04_jprb,5.9197e+04_jprb,5.6911e+04_jprb,5.4673e+04_jprb/)  
kbo( :,24,16) = (/&
 & 6.8792e+04_jprb,6.5930e+04_jprb,6.3138e+04_jprb,6.0429e+04_jprb,5.7833e+04_jprb/)  
kbo( :,25,16) = (/&
 & 7.3081e+04_jprb,6.9742e+04_jprb,6.6502e+04_jprb,6.3413e+04_jprb,6.0489e+04_jprb/)  
kbo( :,26,16) = (/&
 & 7.6659e+04_jprb,7.2881e+04_jprb,6.9229e+04_jprb,6.5813e+04_jprb,6.2609e+04_jprb/)  
kbo( :,27,16) = (/&
 & 7.9551e+04_jprb,7.5372e+04_jprb,7.1411e+04_jprb,6.7691e+04_jprb,6.4257e+04_jprb/)  
kbo( :,28,16) = (/&
 & 8.1786e+04_jprb,7.7281e+04_jprb,7.3039e+04_jprb,6.9087e+04_jprb,6.5469e+04_jprb/)  
kbo( :,29,16) = (/&
 & 8.3384e+04_jprb,7.8614e+04_jprb,7.4165e+04_jprb,7.0047e+04_jprb,6.6277e+04_jprb/)  
kbo( :,30,16) = (/&
 & 8.4452e+04_jprb,7.9468e+04_jprb,7.4871e+04_jprb,7.0641e+04_jprb,6.6750e+04_jprb/)  
kbo( :,31,16) = (/&
 & 8.5039e+04_jprb,7.9905e+04_jprb,7.5199e+04_jprb,7.0901e+04_jprb,6.6924e+04_jprb/)  
kbo( :,32,16) = (/&
 & 8.5212e+04_jprb,7.9990e+04_jprb,7.5213e+04_jprb,7.0881e+04_jprb,6.6857e+04_jprb/)  
kbo( :,33,16) = (/&
 & 8.5050e+04_jprb,7.9794e+04_jprb,7.5003e+04_jprb,7.0644e+04_jprb,6.6588e+04_jprb/)  
kbo( :,34,16) = (/&
 & 8.4825e+04_jprb,7.9556e+04_jprb,7.4769e+04_jprb,7.0382e+04_jprb,6.6308e+04_jprb/)  
kbo( :,35,16) = (/&
 & 8.4932e+04_jprb,7.9627e+04_jprb,7.4818e+04_jprb,7.0396e+04_jprb,6.6295e+04_jprb/)  
kbo( :,36,16) = (/&
 & 8.5505e+04_jprb,8.0119e+04_jprb,7.5241e+04_jprb,7.0767e+04_jprb,6.6616e+04_jprb/)  
kbo( :,37,16) = (/&
 & 8.6832e+04_jprb,8.1301e+04_jprb,7.6293e+04_jprb,7.1722e+04_jprb,6.7493e+04_jprb/)  
kbo( :,38,16) = (/&
 & 8.8141e+04_jprb,8.2471e+04_jprb,7.7320e+04_jprb,7.2657e+04_jprb,6.8355e+04_jprb/)  
kbo( :,39,16) = (/&
 & 8.9385e+04_jprb,8.3583e+04_jprb,7.8311e+04_jprb,7.3555e+04_jprb,6.9176e+04_jprb/)  
kbo( :,40,16) = (/&
 & 9.1225e+04_jprb,8.5227e+04_jprb,7.9808e+04_jprb,7.4896e+04_jprb,7.0406e+04_jprb/)  
kbo( :,41,16) = (/&
 & 9.3145e+04_jprb,8.6959e+04_jprb,8.1376e+04_jprb,7.6283e+04_jprb,7.1693e+04_jprb/)  
kbo( :,42,16) = (/&
 & 9.5061e+04_jprb,8.8707e+04_jprb,8.2949e+04_jprb,7.7691e+04_jprb,7.2983e+04_jprb/)  
kbo( :,43,16) = (/&
 & 9.7401e+04_jprb,9.0828e+04_jprb,8.4849e+04_jprb,7.9428e+04_jprb,7.4539e+04_jprb/)  
kbo( :,44,16) = (/&
 & 9.9953e+04_jprb,9.3134e+04_jprb,8.6932e+04_jprb,8.1331e+04_jprb,7.6228e+04_jprb/)  
kbo( :,45,16) = (/&
 & 1.0257e+05_jprb,9.5499e+04_jprb,8.9091e+04_jprb,8.3270e+04_jprb,7.7968e+04_jprb/)  
kbo( :,46,16) = (/&
 & 1.0547e+05_jprb,9.8084e+04_jprb,9.1440e+04_jprb,8.5379e+04_jprb,7.9900e+04_jprb/)  
kbo( :,47,16) = (/&
 & 1.0883e+05_jprb,1.0107e+05_jprb,9.4133e+04_jprb,8.7821e+04_jprb,8.2113e+04_jprb/)  
kbo( :,48,16) = (/&
 & 1.1238e+05_jprb,1.0415e+05_jprb,9.6911e+04_jprb,9.0357e+04_jprb,8.4400e+04_jprb/)  
kbo( :,49,16) = (/&
 & 1.1611e+05_jprb,1.0741e+05_jprb,9.9813e+04_jprb,9.2980e+04_jprb,8.6767e+04_jprb/)  
kbo( :,50,16) = (/&
 & 1.1983e+05_jprb,1.1062e+05_jprb,1.0263e+05_jprb,9.5525e+04_jprb,8.9084e+04_jprb/)  
kbo( :,51,16) = (/&
 & 1.2356e+05_jprb,1.1388e+05_jprb,1.0545e+05_jprb,9.8084e+04_jprb,9.1415e+04_jprb/)  
kbo( :,52,16) = (/&
 & 1.2745e+05_jprb,1.1733e+05_jprb,1.0841e+05_jprb,1.0073e+05_jprb,9.3803e+04_jprb/)  
kbo( :,53,16) = (/&
 & 1.3156e+05_jprb,1.2095e+05_jprb,1.1156e+05_jprb,1.0347e+05_jprb,9.6284e+04_jprb/)  
kbo( :,54,16) = (/&
 & 1.3554e+05_jprb,1.2438e+05_jprb,1.1460e+05_jprb,1.0608e+05_jprb,9.8639e+04_jprb/)  
kbo( :,55,16) = (/&
 & 1.3951e+05_jprb,1.2782e+05_jprb,1.1764e+05_jprb,1.0869e+05_jprb,1.0096e+05_jprb/)  
kbo( :,56,16) = (/&
 & 1.4367e+05_jprb,1.3142e+05_jprb,1.2080e+05_jprb,1.1144e+05_jprb,1.0335e+05_jprb/)  
kbo( :,57,16) = (/&
 & 1.4808e+05_jprb,1.3519e+05_jprb,1.2406e+05_jprb,1.1429e+05_jprb,1.0582e+05_jprb/)  
kbo( :,58,16) = (/&
 & 1.5260e+05_jprb,1.3891e+05_jprb,1.2727e+05_jprb,1.1713e+05_jprb,1.0827e+05_jprb/)  
kbo( :,59,16) = (/&
 & 1.5447e+05_jprb,1.4046e+05_jprb,1.2861e+05_jprb,1.1836e+05_jprb,1.0930e+05_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) = (/&
 & 4.67280e-03_jprb, 3.95219e-03_jprb, 3.34270e-03_jprb, 2.82721e-03_jprb, 2.39121e-03_jprb,&
 & 2.02245e-03_jprb, 1.71056e-03_jprb, 1.44677e-03_jprb, 1.22365e-03_jprb, 1.03495e-03_jprb/)  
selfrefo( :, 2) = (/&
 & 4.42573e-03_jprb, 3.73328e-03_jprb, 3.14917e-03_jprb, 2.65644e-03_jprb, 2.24081e-03_jprb,&
 & 1.89021e-03_jprb, 1.59447e-03_jprb, 1.34500e-03_jprb, 1.13456e-03_jprb, 9.57044e-04_jprb/)  
selfrefo( :, 3) = (/&
 & 3.96061e-03_jprb, 3.33783e-03_jprb, 2.81297e-03_jprb, 2.37065e-03_jprb, 1.99788e-03_jprb,&
 & 1.68372e-03_jprb, 1.41897e-03_jprb, 1.19584e-03_jprb, 1.00780e-03_jprb, 8.49333e-04_jprb/)  
selfrefo( :, 4) = (/&
 & 3.71838e-03_jprb, 3.10031e-03_jprb, 2.58497e-03_jprb, 2.15529e-03_jprb, 1.79704e-03_jprb,&
 & 1.49833e-03_jprb, 1.24928e-03_jprb, 1.04162e-03_jprb, 8.68480e-04_jprb, 7.24120e-04_jprb/)  
selfrefo( :, 5) = (/&
 & 3.55795e-03_jprb, 2.95385e-03_jprb, 2.45232e-03_jprb, 2.03594e-03_jprb, 1.69026e-03_jprb,&
 & 1.40327e-03_jprb, 1.16501e-03_jprb, 9.67201e-04_jprb, 8.02981e-04_jprb, 6.66643e-04_jprb/)  
selfrefo( :, 6) = (/&
 & 3.47573e-03_jprb, 2.88608e-03_jprb, 2.39646e-03_jprb, 1.98991e-03_jprb, 1.65232e-03_jprb,&
 & 1.37201e-03_jprb, 1.13925e-03_jprb, 9.45979e-04_jprb, 7.85496e-04_jprb, 6.52238e-04_jprb/)  
selfrefo( :, 7) = (/&
 & 3.44473e-03_jprb, 2.86220e-03_jprb, 2.37818e-03_jprb, 1.97601e-03_jprb, 1.64185e-03_jprb,&
 & 1.36420e-03_jprb, 1.13350e-03_jprb, 9.41819e-04_jprb, 7.82550e-04_jprb, 6.50214e-04_jprb/)  
selfrefo( :, 8) = (/&
 & 3.40166e-03_jprb, 2.82961e-03_jprb, 2.35376e-03_jprb, 1.95793e-03_jprb, 1.62867e-03_jprb,&
 & 1.35478e-03_jprb, 1.12694e-03_jprb, 9.37427e-04_jprb, 7.79781e-04_jprb, 6.48646e-04_jprb/)  
selfrefo( :, 9) = (/&
 & 3.39363e-03_jprb, 2.82276e-03_jprb, 2.34792e-03_jprb, 1.95296e-03_jprb, 1.62443e-03_jprb,&
 & 1.35117e-03_jprb, 1.12388e-03_jprb, 9.34822e-04_jprb, 7.77568e-04_jprb, 6.46766e-04_jprb/)  
selfrefo( :,10) = (/&
 & 3.37151e-03_jprb, 2.80633e-03_jprb, 2.33590e-03_jprb, 1.94432e-03_jprb, 1.61839e-03_jprb,&
 & 1.34709e-03_jprb, 1.12128e-03_jprb, 9.33313e-04_jprb, 7.76859e-04_jprb, 6.46632e-04_jprb/)  
selfrefo( :,11) = (/&
 & 3.37954e-03_jprb, 2.81192e-03_jprb, 2.33963e-03_jprb, 1.94666e-03_jprb, 1.61970e-03_jprb,&
 & 1.34765e-03_jprb, 1.12130e-03_jprb, 9.32968e-04_jprb, 7.76266e-04_jprb, 6.45885e-04_jprb/)  
selfrefo( :,12) = (/&
 & 3.39637e-03_jprb, 2.82275e-03_jprb, 2.34600e-03_jprb, 1.94978e-03_jprb, 1.62048e-03_jprb,&
 & 1.34679e-03_jprb, 1.11933e-03_jprb, 9.30281e-04_jprb, 7.73163e-04_jprb, 6.42581e-04_jprb/)  
selfrefo( :,13) = (/&
 & 3.35979e-03_jprb, 2.79857e-03_jprb, 2.33109e-03_jprb, 1.94170e-03_jprb, 1.61736e-03_jprb,&
 & 1.34719e-03_jprb, 1.12216e-03_jprb, 9.34712e-04_jprb, 7.78576e-04_jprb, 6.48522e-04_jprb/)  
selfrefo( :,14) = (/&
 & 3.40473e-03_jprb, 2.82009e-03_jprb, 2.33585e-03_jprb, 1.93475e-03_jprb, 1.60253e-03_jprb,&
 & 1.32736e-03_jprb, 1.09943e-03_jprb, 9.10645e-04_jprb, 7.54276e-04_jprb, 6.24757e-04_jprb/)  
selfrefo( :,15) = (/&
 & 3.27200e-03_jprb, 2.70869e-03_jprb, 2.24237e-03_jprb, 1.85633e-03_jprb, 1.53675e-03_jprb,&
 & 1.27218e-03_jprb, 1.05317e-03_jprb, 8.71854e-04_jprb, 7.21757e-04_jprb, 5.97501e-04_jprb/)  
selfrefo( :,16) = (/&
 & 3.22979e-03_jprb, 2.67796e-03_jprb, 2.22041e-03_jprb, 1.84104e-03_jprb, 1.52648e-03_jprb,&
 & 1.26567e-03_jprb, 1.04942e-03_jprb, 8.70124e-04_jprb, 7.21457e-04_jprb, 5.98191e-04_jprb/)  

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


END SUBROUTINE rrtm_kgb14