rrtm_kgb1.F90

Go to the documentation of this file.

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

!     Originally by Eli J. Mlawer, Atmospheric & Environmental Research.
!     BAND 1:  10-250 cm-1 (low - H2O; high - H2O)
!     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 yoerrto1 , ONLY : kao     ,kbo     ,selfrefo   ,fracrefao ,&
 & fracrefbo  ,forrefo  

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

IMPLICIT NONE
REAL(KIND=JPRB) :: ZHOOK_HANDLE

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

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

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

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

CONTAINS


SUBROUTINE part1

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


fracrefao( :) = (/&
 & 0.08452097_jprb,0.17952873_jprb,0.16214369_jprb,0.13602182_jprb,&
 & 0.12760490_jprb,0.10302561_jprb,0.08392423_jprb,0.06337652_jprb,&
 & 0.04206551_jprb,0.00487497_jprb,0.00410743_jprb,0.00344421_jprb,&
 & 0.00285731_jprb,0.00157327_jprb,0.00080648_jprb,0.00012406_jprb/)  

fracrefbo( :) = (/&
 & 0.15492001_jprb,0.17384727_jprb,0.15165100_jprb,0.12675308_jprb,&
 & 0.10986247_jprb,0.09006091_jprb,0.07584465_jprb,0.05990077_jprb,&
 & 0.04113461_jprb,0.00438638_jprb,0.00374754_jprb,0.00313924_jprb,&
 & 0.00234381_jprb,0.00167167_jprb,0.00062744_jprb,0.00010889_jprb/)  

forrefo( :) = (/&
 & -4.50470e-02_jprb,-1.18908e-01_jprb,-7.21730e-02_jprb,-2.83862e-02_jprb,&
 & -3.01961e-02_jprb,-1.56877e-02_jprb,-1.53684e-02_jprb,-1.29135e-02_jprb,&
 & -1.27963e-02_jprb,-1.81742e-03_jprb, 4.40008e-05_jprb, 1.05260e-02_jprb,&
 & 2.17290e-02_jprb, 1.65571e-02_jprb, 7.60751e-02_jprb, 1.47405e-01_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) = (/&
 & 2.9728e-01_jprb,2.7117e-01_jprb,2.4824e-01_jprb,2.2823e-01_jprb,2.1073e-01_jprb/)  
kao( :, 2, 1) = (/&
 & 2.5383e-01_jprb,2.3094e-01_jprb,2.1122e-01_jprb,1.9387e-01_jprb,1.7870e-01_jprb/)  
kao( :, 3, 1) = (/&
 & 2.2079e-01_jprb,2.0034e-01_jprb,1.8264e-01_jprb,1.6726e-01_jprb,1.5378e-01_jprb/)  
kao( :, 4, 1) = (/&
 & 1.9385e-01_jprb,1.7531e-01_jprb,1.5932e-01_jprb,1.4544e-01_jprb,1.3338e-01_jprb/)  
kao( :, 5, 1) = (/&
 & 1.7059e-01_jprb,1.5374e-01_jprb,1.3930e-01_jprb,1.2682e-01_jprb,1.1600e-01_jprb/)  
kao( :, 6, 1) = (/&
 & 1.5085e-01_jprb,1.3549e-01_jprb,1.2235e-01_jprb,1.1112e-01_jprb,1.0142e-01_jprb/)  
kao( :, 7, 1) = (/&
 & 1.3366e-01_jprb,1.1960e-01_jprb,1.0771e-01_jprb,9.7560e-02_jprb,8.8804e-02_jprb/)  
kao( :, 8, 1) = (/&
 & 1.1833e-01_jprb,1.0551e-01_jprb,9.4748e-02_jprb,8.5642e-02_jprb,7.7808e-02_jprb/)  
kao( :, 9, 1) = (/&
 & 1.0407e-01_jprb,9.2585e-02_jprb,8.3046e-02_jprb,7.5077e-02_jprb,6.8338e-02_jprb/)  
kao( :,10, 1) = (/&
 & 9.6249e-02_jprb,8.6268e-02_jprb,7.7918e-02_jprb,7.0909e-02_jprb,6.5026e-02_jprb/)  
kao( :,11, 1) = (/&
 & 8.5798e-02_jprb,7.7607e-02_jprb,7.0781e-02_jprb,6.5084e-02_jprb,6.0324e-02_jprb/)  
kao( :,12, 1) = (/&
 & 7.5259e-02_jprb,6.8525e-02_jprb,6.2945e-02_jprb,5.8330e-02_jprb,5.4507e-02_jprb/)  
kao( :,13, 1) = (/&
 & 6.6022e-02_jprb,6.0316e-02_jprb,5.5584e-02_jprb,5.1665e-02_jprb,4.8461e-02_jprb/)  
kao( :, 1, 2) = (/&
 & 1.0868e+00_jprb,1.0180e+00_jprb,9.5619e-01_jprb,9.0008e-01_jprb,8.4968e-01_jprb/)  
kao( :, 2, 2) = (/&
 & 9.1280e-01_jprb,8.5427e-01_jprb,8.0215e-01_jprb,7.5470e-01_jprb,7.1212e-01_jprb/)  
kao( :, 3, 2) = (/&
 & 7.7699e-01_jprb,7.2607e-01_jprb,6.8084e-01_jprb,6.3997e-01_jprb,6.0293e-01_jprb/)  
kao( :, 4, 2) = (/&
 & 6.6708e-01_jprb,6.2264e-01_jprb,5.8280e-01_jprb,5.4723e-01_jprb,5.1498e-01_jprb/)  
kao( :, 5, 2) = (/&
 & 5.7399e-01_jprb,5.3509e-01_jprb,5.0018e-01_jprb,4.6892e-01_jprb,4.4080e-01_jprb/)  
kao( :, 6, 2) = (/&
 & 4.9530e-01_jprb,4.6110e-01_jprb,4.3040e-01_jprb,4.0285e-01_jprb,3.7815e-01_jprb/)  
kao( :, 7, 2) = (/&
 & 4.2745e-01_jprb,3.9732e-01_jprb,3.7040e-01_jprb,3.4614e-01_jprb,3.2442e-01_jprb/)  
kao( :, 8, 2) = (/&
 & 3.6869e-01_jprb,3.4268e-01_jprb,3.1900e-01_jprb,2.9776e-01_jprb,2.7880e-01_jprb/)  
kao( :, 9, 2) = (/&
 & 3.1986e-01_jprb,2.9734e-01_jprb,2.7688e-01_jprb,2.5843e-01_jprb,2.4196e-01_jprb/)  
kao( :,10, 2) = (/&
 & 2.8291e-01_jprb,2.6327e-01_jprb,2.4583e-01_jprb,2.3014e-01_jprb,2.1607e-01_jprb/)  
kao( :,11, 2) = (/&
 & 2.4260e-01_jprb,2.2644e-01_jprb,2.1226e-01_jprb,1.9956e-01_jprb,1.8806e-01_jprb/)  
kao( :,12, 2) = (/&
 & 2.0558e-01_jprb,1.9256e-01_jprb,1.8115e-01_jprb,1.7097e-01_jprb,1.6176e-01_jprb/)  
kao( :,13, 2) = (/&
 & 1.7296e-01_jprb,1.6235e-01_jprb,1.5298e-01_jprb,1.4476e-01_jprb,1.3735e-01_jprb/)  
kao( :, 1, 3) = (/&
 & 1.9978e+00_jprb,1.9059e+00_jprb,1.8189e+00_jprb,1.7366e+00_jprb,1.6586e+00_jprb/)  
kao( :, 2, 3) = (/&
 & 1.6606e+00_jprb,1.5839e+00_jprb,1.5107e+00_jprb,1.4431e+00_jprb,1.3779e+00_jprb/)  
kao( :, 3, 3) = (/&
 & 1.3892e+00_jprb,1.3254e+00_jprb,1.2641e+00_jprb,1.2074e+00_jprb,1.1536e+00_jprb/)  
kao( :, 4, 3) = (/&
 & 1.1729e+00_jprb,1.1192e+00_jprb,1.0684e+00_jprb,1.0206e+00_jprb,9.7581e-01_jprb/)  
kao( :, 5, 3) = (/&
 & 9.9394e-01_jprb,9.4858e-01_jprb,9.0600e-01_jprb,8.6583e-01_jprb,8.2779e-01_jprb/)  
kao( :, 6, 3) = (/&
 & 8.4450e-01_jprb,8.0530e-01_jprb,7.6915e-01_jprb,7.3568e-01_jprb,7.0371e-01_jprb/)  
kao( :, 7, 3) = (/&
 & 7.1829e-01_jprb,6.8411e-01_jprb,6.5331e-01_jprb,6.2452e-01_jprb,5.9760e-01_jprb/)  
kao( :, 8, 3) = (/&
 & 6.1224e-01_jprb,5.8194e-01_jprb,5.5498e-01_jprb,5.3049e-01_jprb,5.0749e-01_jprb/)  
kao( :, 9, 3) = (/&
 & 5.2649e-01_jprb,4.9920e-01_jprb,4.7516e-01_jprb,4.5390e-01_jprb,4.3400e-01_jprb/)  
kao( :,10, 3) = (/&
 & 4.6036e-01_jprb,4.3661e-01_jprb,4.1510e-01_jprb,3.9653e-01_jprb,3.7973e-01_jprb/)  
kao( :,11, 3) = (/&
 & 3.9552e-01_jprb,3.7556e-01_jprb,3.5783e-01_jprb,3.4242e-01_jprb,3.2854e-01_jprb/)  
kao( :,12, 3) = (/&
 & 3.3619e-01_jprb,3.1976e-01_jprb,3.0528e-01_jprb,2.9270e-01_jprb,2.8130e-01_jprb/)  
kao( :,13, 3) = (/&
 & 2.8224e-01_jprb,2.6905e-01_jprb,2.5767e-01_jprb,2.4740e-01_jprb,2.3812e-01_jprb/)  
kao( :, 1, 4) = (/&
 & 3.1134e+00_jprb,2.9768e+00_jprb,2.8528e+00_jprb,2.7371e+00_jprb,2.6298e+00_jprb/)  
kao( :, 2, 4) = (/&
 & 2.5980e+00_jprb,2.4825e+00_jprb,2.3758e+00_jprb,2.2768e+00_jprb,2.1885e+00_jprb/)  
kao( :, 3, 4) = (/&
 & 2.1823e+00_jprb,2.0815e+00_jprb,1.9888e+00_jprb,1.9036e+00_jprb,1.8278e+00_jprb/)  
kao( :, 4, 4) = (/&
 & 1.8482e+00_jprb,1.7602e+00_jprb,1.6798e+00_jprb,1.6064e+00_jprb,1.5402e+00_jprb/)  
kao( :, 5, 4) = (/&
 & 1.5691e+00_jprb,1.4937e+00_jprb,1.4240e+00_jprb,1.3603e+00_jprb,1.3038e+00_jprb/)  
kao( :, 6, 4) = (/&
 & 1.3353e+00_jprb,1.2714e+00_jprb,1.2114e+00_jprb,1.1566e+00_jprb,1.1076e+00_jprb/)  
kao( :, 7, 4) = (/&
 & 1.1365e+00_jprb,1.0823e+00_jprb,1.0312e+00_jprb,9.8386e-01_jprb,9.4149e-01_jprb/)  
kao( :, 8, 4) = (/&
 & 9.6785e-01_jprb,9.2216e-01_jprb,8.7848e-01_jprb,8.3819e-01_jprb,8.0171e-01_jprb/)  
kao( :, 9, 4) = (/&
 & 8.2906e-01_jprb,7.9098e-01_jprb,7.5375e-01_jprb,7.1927e-01_jprb,6.8769e-01_jprb/)  
kao( :,10, 4) = (/&
 & 7.2091e-01_jprb,6.8867e-01_jprb,6.5764e-01_jprb,6.2852e-01_jprb,6.0157e-01_jprb/)  
kao( :,11, 4) = (/&
 & 6.1639e-01_jprb,5.8956e-01_jprb,5.6471e-01_jprb,5.4117e-01_jprb,5.1965e-01_jprb/)  
kao( :,12, 4) = (/&
 & 5.2694e-01_jprb,5.0446e-01_jprb,4.8409e-01_jprb,4.6534e-01_jprb,4.4808e-01_jprb/)  
kao( :,13, 4) = (/&
 & 4.4495e-01_jprb,4.2623e-01_jprb,4.0962e-01_jprb,3.9458e-01_jprb,3.8091e-01_jprb/)  
kao( :, 1, 5) = (/&
 & 5.1530e+00_jprb,4.9766e+00_jprb,4.8081e+00_jprb,4.6516e+00_jprb,4.5093e+00_jprb/)  
kao( :, 2, 5) = (/&
 & 4.3491e+00_jprb,4.2045e+00_jprb,4.0708e+00_jprb,3.9418e+00_jprb,3.8163e+00_jprb/)  
kao( :, 3, 5) = (/&
 & 3.6708e+00_jprb,3.5507e+00_jprb,3.4414e+00_jprb,3.3312e+00_jprb,3.2173e+00_jprb/)  
kao( :, 4, 5) = (/&
 & 3.1175e+00_jprb,3.0159e+00_jprb,2.9223e+00_jprb,2.8267e+00_jprb,2.7279e+00_jprb/)  
kao( :, 5, 5) = (/&
 & 2.6518e+00_jprb,2.5625e+00_jprb,2.4801e+00_jprb,2.3975e+00_jprb,2.3146e+00_jprb/)  
kao( :, 6, 5) = (/&
 & 2.2564e+00_jprb,2.1773e+00_jprb,2.1039e+00_jprb,2.0333e+00_jprb,1.9631e+00_jprb/)  
kao( :, 7, 5) = (/&
 & 1.9182e+00_jprb,1.8476e+00_jprb,1.7832e+00_jprb,1.7230e+00_jprb,1.6643e+00_jprb/)  
kao( :, 8, 5) = (/&
 & 1.6337e+00_jprb,1.5705e+00_jprb,1.5139e+00_jprb,1.4617e+00_jprb,1.4128e+00_jprb/)  
kao( :, 9, 5) = (/&
 & 1.4083e+00_jprb,1.3508e+00_jprb,1.3006e+00_jprb,1.2545e+00_jprb,1.2118e+00_jprb/)  
kao( :,10, 5) = (/&
 & 1.2328e+00_jprb,1.1811e+00_jprb,1.1365e+00_jprb,1.0948e+00_jprb,1.0570e+00_jprb/)  
kao( :,11, 5) = (/&
 & 1.0545e+00_jprb,1.0121e+00_jprb,9.7473e-01_jprb,9.3945e-01_jprb,9.0734e-01_jprb/)  
kao( :,12, 5) = (/&
 & 9.0496e-01_jprb,8.7115e-01_jprb,8.4024e-01_jprb,8.1130e-01_jprb,7.8449e-01_jprb/)  
kao( :,13, 5) = (/&
 & 7.7164e-01_jprb,7.4436e-01_jprb,7.1910e-01_jprb,6.9522e-01_jprb,6.7297e-01_jprb/)  
kao( :, 1, 6) = (/&
 & 9.6973e+00_jprb,9.3787e+00_jprb,9.0588e+00_jprb,8.7497e+00_jprb,8.4590e+00_jprb/)  
kao( :, 2, 6) = (/&
 & 8.3422e+00_jprb,8.0414e+00_jprb,7.7516e+00_jprb,7.4834e+00_jprb,7.2408e+00_jprb/)  
kao( :, 3, 6) = (/&
 & 7.1314e+00_jprb,6.8664e+00_jprb,6.6149e+00_jprb,6.3897e+00_jprb,6.1962e+00_jprb/)  
kao( :, 4, 6) = (/&
 & 6.1234e+00_jprb,5.8927e+00_jprb,5.6767e+00_jprb,5.4877e+00_jprb,5.3211e+00_jprb/)  
kao( :, 5, 6) = (/&
 & 5.2539e+00_jprb,5.0548e+00_jprb,4.8732e+00_jprb,4.7110e+00_jprb,4.5668e+00_jprb/)  
kao( :, 6, 6) = (/&
 & 4.5026e+00_jprb,4.3343e+00_jprb,4.1792e+00_jprb,4.0419e+00_jprb,3.9124e+00_jprb/)  
kao( :, 7, 6) = (/&
 & 3.8524e+00_jprb,3.7093e+00_jprb,3.5777e+00_jprb,3.4570e+00_jprb,3.3411e+00_jprb/)  
kao( :, 8, 6) = (/&
 & 3.2864e+00_jprb,3.1665e+00_jprb,3.0553e+00_jprb,2.9496e+00_jprb,2.8463e+00_jprb/)  
kao( :, 9, 6) = (/&
 & 2.8265e+00_jprb,2.7253e+00_jprb,2.6293e+00_jprb,2.5362e+00_jprb,2.4454e+00_jprb/)  
kao( :,10, 6) = (/&
 & 2.4703e+00_jprb,2.3851e+00_jprb,2.3012e+00_jprb,2.2197e+00_jprb,2.1390e+00_jprb/)  
kao( :,11, 6) = (/&
 & 2.1039e+00_jprb,2.0324e+00_jprb,1.9625e+00_jprb,1.8926e+00_jprb,1.8236e+00_jprb/)  
kao( :,12, 6) = (/&
 & 1.7889e+00_jprb,1.7295e+00_jprb,1.6689e+00_jprb,1.6099e+00_jprb,1.5530e+00_jprb/)  
kao( :,13, 6) = (/&
 & 1.5191e+00_jprb,1.4695e+00_jprb,1.4192e+00_jprb,1.3697e+00_jprb,1.3233e+00_jprb/)  
kao( :, 1, 7) = (/&
 & 1.9309e+01_jprb,1.8684e+01_jprb,1.8099e+01_jprb,1.7538e+01_jprb,1.7003e+01_jprb/)  
kao( :, 2, 7) = (/&
 & 1.7226e+01_jprb,1.6672e+01_jprb,1.6118e+01_jprb,1.5594e+01_jprb,1.5067e+01_jprb/)  
kao( :, 3, 7) = (/&
 & 1.5276e+01_jprb,1.4769e+01_jprb,1.4264e+01_jprb,1.3763e+01_jprb,1.3263e+01_jprb/)  
kao( :, 4, 7) = (/&
 & 1.3460e+01_jprb,1.3002e+01_jprb,1.2544e+01_jprb,1.2084e+01_jprb,1.1633e+01_jprb/)  
kao( :, 5, 7) = (/&
 & 1.1768e+01_jprb,1.1365e+01_jprb,1.0948e+01_jprb,1.0535e+01_jprb,1.0140e+01_jprb/)  
kao( :, 6, 7) = (/&
 & 1.0233e+01_jprb,9.8691e+00_jprb,9.5008e+00_jprb,9.1399e+00_jprb,8.8037e+00_jprb/)  
kao( :, 7, 7) = (/&
 & 8.8418e+00_jprb,8.5251e+00_jprb,8.2044e+00_jprb,7.8974e+00_jprb,7.6097e+00_jprb/)  
kao( :, 8, 7) = (/&
 & 7.5932e+00_jprb,7.3228e+00_jprb,7.0494e+00_jprb,6.7890e+00_jprb,6.5466e+00_jprb/)  
kao( :, 9, 7) = (/&
 & 6.5438e+00_jprb,6.3102e+00_jprb,6.0785e+00_jprb,5.8572e+00_jprb,5.6536e+00_jprb/)  
kao( :,10, 7) = (/&
 & 5.7701e+00_jprb,5.5632e+00_jprb,5.3602e+00_jprb,5.1657e+00_jprb,4.9886e+00_jprb/)  
kao( :,11, 7) = (/&
 & 4.9229e+00_jprb,4.7468e+00_jprb,4.5754e+00_jprb,4.4156e+00_jprb,4.2640e+00_jprb/)  
kao( :,12, 7) = (/&
 & 4.1712e+00_jprb,4.0245e+00_jprb,3.8835e+00_jprb,3.7490e+00_jprb,3.6186e+00_jprb/)  
kao( :,13, 7) = (/&
 & 3.5142e+00_jprb,3.3938e+00_jprb,3.2767e+00_jprb,3.1632e+00_jprb,3.0535e+00_jprb/)  
kao( :, 1, 8) = (/&
 & 4.3792e+01_jprb,4.2562e+01_jprb,4.1326e+01_jprb,4.0173e+01_jprb,3.9029e+01_jprb/)  
kao( :, 2, 8) = (/&
 & 4.1083e+01_jprb,3.9961e+01_jprb,3.8875e+01_jprb,3.7761e+01_jprb,3.6732e+01_jprb/)  
kao( :, 3, 8) = (/&
 & 3.8232e+01_jprb,3.7158e+01_jprb,3.6113e+01_jprb,3.5094e+01_jprb,3.4130e+01_jprb/)  
kao( :, 4, 8) = (/&
 & 3.5298e+01_jprb,3.4286e+01_jprb,3.3318e+01_jprb,3.2377e+01_jprb,3.1455e+01_jprb/)  
kao( :, 5, 8) = (/&
 & 3.2307e+01_jprb,3.1366e+01_jprb,3.0496e+01_jprb,2.9612e+01_jprb,2.8733e+01_jprb/)  
kao( :, 6, 8) = (/&
 & 2.9245e+01_jprb,2.8430e+01_jprb,2.7640e+01_jprb,2.6836e+01_jprb,2.6022e+01_jprb/)  
kao( :, 7, 8) = (/&
 & 2.6088e+01_jprb,2.5397e+01_jprb,2.4695e+01_jprb,2.3991e+01_jprb,2.3257e+01_jprb/)  
kao( :, 8, 8) = (/&
 & 2.2981e+01_jprb,2.2412e+01_jprb,2.1823e+01_jprb,2.1203e+01_jprb,2.0533e+01_jprb/)  
kao( :, 9, 8) = (/&
 & 2.0055e+01_jprb,1.9585e+01_jprb,1.9088e+01_jprb,1.8539e+01_jprb,1.7936e+01_jprb/)  
kao( :,10, 8) = (/&
 & 1.7813e+01_jprb,1.7392e+01_jprb,1.6941e+01_jprb,1.6433e+01_jprb,1.5881e+01_jprb/)  
kao( :,11, 8) = (/&
 & 1.5517e+01_jprb,1.5141e+01_jprb,1.4721e+01_jprb,1.4250e+01_jprb,1.3762e+01_jprb/)  
kao( :,12, 8) = (/&
 & 1.3307e+01_jprb,1.2968e+01_jprb,1.2587e+01_jprb,1.2173e+01_jprb,1.1765e+01_jprb/)  
kao( :,13, 8) = (/&
 & 1.1246e+01_jprb,1.0950e+01_jprb,1.0619e+01_jprb,1.0276e+01_jprb,9.9339e+00_jprb/)  
kao( :, 1, 9) = (/&
 & 1.1805e+02_jprb,1.1497e+02_jprb,1.1183e+02_jprb,1.0901e+02_jprb,1.0608e+02_jprb/)  
kao( :, 2, 9) = (/&
 & 1.2044e+02_jprb,1.1710e+02_jprb,1.1402e+02_jprb,1.1089e+02_jprb,1.0784e+02_jprb/)  
kao( :, 3, 9) = (/&
 & 1.2224e+02_jprb,1.1882e+02_jprb,1.1548e+02_jprb,1.1225e+02_jprb,1.0912e+02_jprb/)  
kao( :, 4, 9) = (/&
 & 1.2253e+02_jprb,1.1914e+02_jprb,1.1570e+02_jprb,1.1248e+02_jprb,1.0936e+02_jprb/)  
kao( :, 5, 9) = (/&
 & 1.2110e+02_jprb,1.1772e+02_jprb,1.1430e+02_jprb,1.1120e+02_jprb,1.0822e+02_jprb/)  
kao( :, 6, 9) = (/&
 & 1.1824e+02_jprb,1.1487e+02_jprb,1.1155e+02_jprb,1.0851e+02_jprb,1.0564e+02_jprb/)  
kao( :, 7, 9) = (/&
 & 1.1353e+02_jprb,1.1029e+02_jprb,1.0721e+02_jprb,1.0431e+02_jprb,1.0150e+02_jprb/)  
kao( :, 8, 9) = (/&
 & 1.0728e+02_jprb,1.0430e+02_jprb,1.0145e+02_jprb,9.8717e+01_jprb,9.6110e+01_jprb/)  
kao( :, 9, 9) = (/&
 & 9.9961e+01_jprb,9.7260e+01_jprb,9.4661e+01_jprb,9.2129e+01_jprb,8.9711e+01_jprb/)  
kao( :,10, 9) = (/&
 & 9.2244e+01_jprb,8.9827e+01_jprb,8.7426e+01_jprb,8.5062e+01_jprb,8.2760e+01_jprb/)  
kao( :,11, 9) = (/&
 & 8.3999e+01_jprb,8.1726e+01_jprb,7.9419e+01_jprb,7.7163e+01_jprb,7.4981e+01_jprb/)  
kao( :,12, 9) = (/&
 & 7.5642e+01_jprb,7.3608e+01_jprb,7.1481e+01_jprb,6.9416e+01_jprb,6.7422e+01_jprb/)  
kao( :,13, 9) = (/&
 & 6.6934e+01_jprb,6.5046e+01_jprb,6.3162e+01_jprb,6.1319e+01_jprb,5.9545e+01_jprb/)  
kao( :, 1,10) = (/&
 & 2.5219e+02_jprb,2.4571e+02_jprb,2.3918e+02_jprb,2.3279e+02_jprb,2.2858e+02_jprb/)  
kao( :, 2,10) = (/&
 & 2.6944e+02_jprb,2.6208e+02_jprb,2.5593e+02_jprb,2.5059e+02_jprb,2.4739e+02_jprb/)  
kao( :, 3,10) = (/&
 & 2.8444e+02_jprb,2.7711e+02_jprb,2.7148e+02_jprb,2.6629e+02_jprb,2.6255e+02_jprb/)  
kao( :, 4,10) = (/&
 & 3.0272e+02_jprb,2.9452e+02_jprb,2.8714e+02_jprb,2.7941e+02_jprb,2.7276e+02_jprb/)  
kao( :, 5,10) = (/&
 & 3.1679e+02_jprb,3.0877e+02_jprb,3.0015e+02_jprb,2.9068e+02_jprb,2.8102e+02_jprb/)  
kao( :, 6,10) = (/&
 & 3.2322e+02_jprb,3.1468e+02_jprb,3.0521e+02_jprb,2.9571e+02_jprb,2.8597e+02_jprb/)  
kao( :, 7,10) = (/&
 & 3.2856e+02_jprb,3.1908e+02_jprb,3.0869e+02_jprb,2.9873e+02_jprb,2.8901e+02_jprb/)  
kao( :, 8,10) = (/&
 & 3.2929e+02_jprb,3.1918e+02_jprb,3.0900e+02_jprb,2.9900e+02_jprb,2.8972e+02_jprb/)  
kao( :, 9,10) = (/&
 & 3.2403e+02_jprb,3.1482e+02_jprb,3.0502e+02_jprb,2.9579e+02_jprb,2.8721e+02_jprb/)  
kao( :,10,10) = (/&
 & 3.1039e+02_jprb,3.0245e+02_jprb,2.9340e+02_jprb,2.8545e+02_jprb,2.7823e+02_jprb/)  
kao( :,11,10) = (/&
 & 2.8971e+02_jprb,2.8193e+02_jprb,2.7523e+02_jprb,2.6877e+02_jprb,2.6210e+02_jprb/)  
kao( :,12,10) = (/&
 & 2.7119e+02_jprb,2.6399e+02_jprb,2.5760e+02_jprb,2.5064e+02_jprb,2.4326e+02_jprb/)  

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


SUBROUTINE part2

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


kao( :,13,10) = (/&
 & 2.5228e+02_jprb,2.4612e+02_jprb,2.3937e+02_jprb,2.3200e+02_jprb,2.2456e+02_jprb/)  
kao( :, 1,11) = (/&
 & 3.2436e+02_jprb,3.1705e+02_jprb,3.0936e+02_jprb,3.0225e+02_jprb,2.9528e+02_jprb/)  
kao( :, 2,11) = (/&
 & 3.6387e+02_jprb,3.5499e+02_jprb,3.4471e+02_jprb,3.3477e+02_jprb,3.2544e+02_jprb/)  
kao( :, 3,11) = (/&
 & 3.9089e+02_jprb,3.8297e+02_jprb,3.7268e+02_jprb,3.6169e+02_jprb,3.5104e+02_jprb/)  
kao( :, 4,11) = (/&
 & 4.0614e+02_jprb,3.9591e+02_jprb,3.8584e+02_jprb,3.7702e+02_jprb,3.6787e+02_jprb/)  
kao( :, 5,11) = (/&
 & 4.2111e+02_jprb,4.0953e+02_jprb,3.9791e+02_jprb,3.8868e+02_jprb,3.8088e+02_jprb/)  
kao( :, 6,11) = (/&
 & 4.4478e+02_jprb,4.3170e+02_jprb,4.1878e+02_jprb,4.0704e+02_jprb,3.9607e+02_jprb/)  
kao( :, 7,11) = (/&
 & 4.6528e+02_jprb,4.5296e+02_jprb,4.4095e+02_jprb,4.2830e+02_jprb,4.1414e+02_jprb/)  
kao( :, 8,11) = (/&
 & 4.8103e+02_jprb,4.6875e+02_jprb,4.5586e+02_jprb,4.4138e+02_jprb,4.2642e+02_jprb/)  
kao( :, 9,11) = (/&
 & 4.9211e+02_jprb,4.7875e+02_jprb,4.6419e+02_jprb,4.4833e+02_jprb,4.3292e+02_jprb/)  
kao( :,10,11) = (/&
 & 4.9428e+02_jprb,4.7899e+02_jprb,4.6351e+02_jprb,4.4779e+02_jprb,4.3245e+02_jprb/)  
kao( :,11,11) = (/&
 & 4.7778e+02_jprb,4.6338e+02_jprb,4.4778e+02_jprb,4.3344e+02_jprb,4.2003e+02_jprb/)  
kao( :,12,11) = (/&
 & 4.5095e+02_jprb,4.3803e+02_jprb,4.2442e+02_jprb,4.1242e+02_jprb,4.0150e+02_jprb/)  
kao( :,13,11) = (/&
 & 4.2162e+02_jprb,4.0890e+02_jprb,3.9818e+02_jprb,3.8811e+02_jprb,3.7807e+02_jprb/)  
kao( :, 1,12) = (/&
 & 4.0765e+02_jprb,4.0438e+02_jprb,4.0112e+02_jprb,3.9703e+02_jprb,3.9278e+02_jprb/)  
kao( :, 2,12) = (/&
 & 4.5408e+02_jprb,4.4591e+02_jprb,4.3895e+02_jprb,4.3184e+02_jprb,4.2260e+02_jprb/)  
kao( :, 3,12) = (/&
 & 5.0754e+02_jprb,4.9609e+02_jprb,4.8458e+02_jprb,4.7355e+02_jprb,4.6248e+02_jprb/)  
kao( :, 4,12) = (/&
 & 5.5729e+02_jprb,5.4777e+02_jprb,5.3611e+02_jprb,5.2186e+02_jprb,5.0830e+02_jprb/)  
kao( :, 5,12) = (/&
 & 5.9884e+02_jprb,5.9059e+02_jprb,5.8025e+02_jprb,5.6682e+02_jprb,5.5220e+02_jprb/)  
kao( :, 6,12) = (/&
 & 6.3069e+02_jprb,6.2342e+02_jprb,6.1247e+02_jprb,5.9971e+02_jprb,5.8566e+02_jprb/)  
kao( :, 7,12) = (/&
 & 6.6576e+02_jprb,6.5415e+02_jprb,6.3907e+02_jprb,6.2535e+02_jprb,6.1174e+02_jprb/)  
kao( :, 8,12) = (/&
 & 7.0612e+02_jprb,6.9050e+02_jprb,6.7253e+02_jprb,6.5500e+02_jprb,6.3767e+02_jprb/)  
kao( :, 9,12) = (/&
 & 7.4151e+02_jprb,7.2711e+02_jprb,7.0818e+02_jprb,6.8887e+02_jprb,6.6982e+02_jprb/)  
kao( :,10,12) = (/&
 & 7.6876e+02_jprb,7.5445e+02_jprb,7.3627e+02_jprb,7.1768e+02_jprb,6.9714e+02_jprb/)  
kao( :,11,12) = (/&
 & 7.8345e+02_jprb,7.6652e+02_jprb,7.4553e+02_jprb,7.2384e+02_jprb,7.0114e+02_jprb/)  
kao( :,12,12) = (/&
 & 7.8623e+02_jprb,7.6501e+02_jprb,7.4277e+02_jprb,7.1917e+02_jprb,6.9536e+02_jprb/)  
kao( :,13,12) = (/&
 & 7.6967e+02_jprb,7.4813e+02_jprb,7.2429e+02_jprb,7.0066e+02_jprb,6.7901e+02_jprb/)  
kao( :, 1,13) = (/&
 & 5.1329e+02_jprb,5.0716e+02_jprb,5.0382e+02_jprb,4.9878e+02_jprb,4.9356e+02_jprb/)  
kao( :, 2,13) = (/&
 & 5.7148e+02_jprb,5.6846e+02_jprb,5.6431e+02_jprb,5.6063e+02_jprb,5.5653e+02_jprb/)  
kao( :, 3,13) = (/&
 & 6.5145e+02_jprb,6.4483e+02_jprb,6.3790e+02_jprb,6.3094e+02_jprb,6.2717e+02_jprb/)  
kao( :, 4,13) = (/&
 & 7.5002e+02_jprb,7.3461e+02_jprb,7.2296e+02_jprb,7.1138e+02_jprb,7.0213e+02_jprb/)  
kao( :, 5,13) = (/&
 & 8.5963e+02_jprb,8.3647e+02_jprb,8.1752e+02_jprb,7.9952e+02_jprb,7.8427e+02_jprb/)  
kao( :, 6,13) = (/&
 & 9.6412e+02_jprb,9.4095e+02_jprb,9.1679e+02_jprb,8.9731e+02_jprb,8.7656e+02_jprb/)  
kao( :, 7,13) = (/&
 & 1.0550e+03_jprb,1.0327e+03_jprb,1.0118e+03_jprb,9.9247e+02_jprb,9.6895e+02_jprb/)  
kao( :, 8,13) = (/&
 & 1.1351e+03_jprb,1.1102e+03_jprb,1.0930e+03_jprb,1.0757e+03_jprb,1.0518e+03_jprb/)  
kao( :, 9,13) = (/&
 & 1.2061e+03_jprb,1.1763e+03_jprb,1.1581e+03_jprb,1.1387e+03_jprb,1.1187e+03_jprb/)  
kao( :,10,13) = (/&
 & 1.2746e+03_jprb,1.2431e+03_jprb,1.2211e+03_jprb,1.1969e+03_jprb,1.1743e+03_jprb/)  
kao( :,11,13) = (/&
 & 1.3270e+03_jprb,1.3002e+03_jprb,1.2748e+03_jprb,1.2457e+03_jprb,1.2158e+03_jprb/)  
kao( :,12,13) = (/&
 & 1.3778e+03_jprb,1.3525e+03_jprb,1.3230e+03_jprb,1.2880e+03_jprb,1.2527e+03_jprb/)  
kao( :,13,13) = (/&
 & 1.4203e+03_jprb,1.3956e+03_jprb,1.3627e+03_jprb,1.3265e+03_jprb,1.2880e+03_jprb/)  
kao( :, 1,14) = (/&
 & 7.0659e+02_jprb,6.8649e+02_jprb,6.7585e+02_jprb,6.6280e+02_jprb,6.4777e+02_jprb/)  
kao( :, 2,14) = (/&
 & 8.1314e+02_jprb,7.9545e+02_jprb,7.8563e+02_jprb,7.7042e+02_jprb,7.6159e+02_jprb/)  
kao( :, 3,14) = (/&
 & 9.2212e+02_jprb,9.1802e+02_jprb,9.0672e+02_jprb,8.9703e+02_jprb,8.8878e+02_jprb/)  
kao( :, 4,14) = (/&
 & 1.0533e+03_jprb,1.0471e+03_jprb,1.0407e+03_jprb,1.0252e+03_jprb,1.0216e+03_jprb/)  
kao( :, 5,14) = (/&
 & 1.1902e+03_jprb,1.1874e+03_jprb,1.1827e+03_jprb,1.1705e+03_jprb,1.1629e+03_jprb/)  
kao( :, 6,14) = (/&
 & 1.3538e+03_jprb,1.3468e+03_jprb,1.3305e+03_jprb,1.3230e+03_jprb,1.3152e+03_jprb/)  
kao( :, 7,14) = (/&
 & 1.5575e+03_jprb,1.5374e+03_jprb,1.5135e+03_jprb,1.4950e+03_jprb,1.4827e+03_jprb/)  
kao( :, 8,14) = (/&
 & 1.7978e+03_jprb,1.7650e+03_jprb,1.7335e+03_jprb,1.7038e+03_jprb,1.6772e+03_jprb/)  
kao( :, 9,14) = (/&
 & 2.0608e+03_jprb,2.0242e+03_jprb,1.9804e+03_jprb,1.9383e+03_jprb,1.9020e+03_jprb/)  
kao( :,10,14) = (/&
 & 2.3189e+03_jprb,2.2831e+03_jprb,2.2391e+03_jprb,2.1847e+03_jprb,2.1380e+03_jprb/)  
kao( :,11,14) = (/&
 & 2.5479e+03_jprb,2.4992e+03_jprb,2.4561e+03_jprb,2.4037e+03_jprb,2.3531e+03_jprb/)  
kao( :,12,14) = (/&
 & 2.7503e+03_jprb,2.6955e+03_jprb,2.6487e+03_jprb,2.6000e+03_jprb,2.5509e+03_jprb/)  
kao( :,13,14) = (/&
 & 2.9348e+03_jprb,2.8771e+03_jprb,2.8224e+03_jprb,2.7731e+03_jprb,2.7137e+03_jprb/)  
kao( :, 1,15) = (/&
 & 1.0087e+03_jprb,9.8320e+02_jprb,9.7093e+02_jprb,9.5615e+02_jprb,9.3254e+02_jprb/)  
kao( :, 2,15) = (/&
 & 1.2013e+03_jprb,1.1684e+03_jprb,1.1519e+03_jprb,1.1213e+03_jprb,1.1065e+03_jprb/)  
kao( :, 3,15) = (/&
 & 1.4276e+03_jprb,1.4001e+03_jprb,1.3700e+03_jprb,1.3257e+03_jprb,1.3068e+03_jprb/)  
kao( :, 4,15) = (/&
 & 1.6836e+03_jprb,1.6523e+03_jprb,1.6210e+03_jprb,1.5698e+03_jprb,1.5625e+03_jprb/)  
kao( :, 5,15) = (/&
 & 1.9769e+03_jprb,1.9333e+03_jprb,1.9035e+03_jprb,1.8613e+03_jprb,1.8254e+03_jprb/)  
kao( :, 6,15) = (/&
 & 2.3172e+03_jprb,2.2683e+03_jprb,2.2153e+03_jprb,2.1871e+03_jprb,2.1654e+03_jprb/)  
kao( :, 7,15) = (/&
 & 2.6839e+03_jprb,2.6608e+03_jprb,2.5827e+03_jprb,2.5461e+03_jprb,2.5090e+03_jprb/)  
kao( :, 8,15) = (/&
 & 3.0767e+03_jprb,3.0634e+03_jprb,3.0007e+03_jprb,2.9429e+03_jprb,2.9079e+03_jprb/)  
kao( :, 9,15) = (/&
 & 3.4941e+03_jprb,3.4634e+03_jprb,3.4221e+03_jprb,3.3814e+03_jprb,3.3456e+03_jprb/)  
kao( :,10,15) = (/&
 & 3.9537e+03_jprb,3.9378e+03_jprb,3.9008e+03_jprb,3.8414e+03_jprb,3.8169e+03_jprb/)  
kao( :,11,15) = (/&
 & 4.5046e+03_jprb,4.4637e+03_jprb,4.4210e+03_jprb,4.3583e+03_jprb,4.3332e+03_jprb/)  
kao( :,12,15) = (/&
 & 5.1528e+03_jprb,5.0823e+03_jprb,5.0105e+03_jprb,4.9465e+03_jprb,4.9071e+03_jprb/)  
kao( :,13,15) = (/&
 & 5.8749e+03_jprb,5.7913e+03_jprb,5.6995e+03_jprb,5.6331e+03_jprb,5.5557e+03_jprb/)  
kao( :, 1,16) = (/&
 & 1.2189e+03_jprb,1.2224e+03_jprb,1.2164e+03_jprb,1.2064e+03_jprb,1.1935e+03_jprb/)  
kao( :, 2,16) = (/&
 & 1.4789e+03_jprb,1.4888e+03_jprb,1.4867e+03_jprb,1.4809e+03_jprb,1.4687e+03_jprb/)  
kao( :, 3,16) = (/&
 & 1.8114e+03_jprb,1.8246e+03_jprb,1.8350e+03_jprb,1.8138e+03_jprb,1.8019e+03_jprb/)  
kao( :, 4,16) = (/&
 & 2.1704e+03_jprb,2.2074e+03_jprb,2.2239e+03_jprb,2.2048e+03_jprb,2.2173e+03_jprb/)  
kao( :, 5,16) = (/&
 & 2.5886e+03_jprb,2.6353e+03_jprb,2.6810e+03_jprb,2.6789e+03_jprb,2.6704e+03_jprb/)  
kao( :, 6,16) = (/&
 & 3.0777e+03_jprb,3.1359e+03_jprb,3.1850e+03_jprb,3.2159e+03_jprb,3.2625e+03_jprb/)  
kao( :, 7,16) = (/&
 & 3.6815e+03_jprb,3.7549e+03_jprb,3.7825e+03_jprb,3.8441e+03_jprb,3.9118e+03_jprb/)  
kao( :, 8,16) = (/&
 & 4.4826e+03_jprb,4.4982e+03_jprb,4.5205e+03_jprb,4.5598e+03_jprb,4.6673e+03_jprb/)  
kao( :, 9,16) = (/&
 & 5.4808e+03_jprb,5.4311e+03_jprb,5.4325e+03_jprb,5.4480e+03_jprb,5.4909e+03_jprb/)  
kao( :,10,16) = (/&
 & 6.6128e+03_jprb,6.5719e+03_jprb,6.5761e+03_jprb,6.5449e+03_jprb,6.5647e+03_jprb/)  
kao( :,11,16) = (/&
 & 7.9375e+03_jprb,7.9476e+03_jprb,7.9279e+03_jprb,7.8912e+03_jprb,7.8532e+03_jprb/)  
kao( :,12,16) = (/&
 & 9.5403e+03_jprb,9.5531e+03_jprb,9.5122e+03_jprb,9.4385e+03_jprb,9.3648e+03_jprb/)  
kao( :,13,16) = (/&
 & 1.1398e+04_jprb,1.1400e+04_jprb,1.1334e+04_jprb,1.1241e+04_jprb,1.1075e+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) = (/&
 & 6.6025e-02_jprb,6.0321e-02_jprb,5.5586e-02_jprb,5.1665e-02_jprb,4.8458e-02_jprb/)  
kbo( :,14, 1) = (/&
 & 6.0235e-02_jprb,5.5378e-02_jprb,5.1361e-02_jprb,4.8017e-02_jprb,4.5225e-02_jprb/)  
kbo( :,15, 1) = (/&
 & 5.4400e-02_jprb,5.0262e-02_jprb,4.6762e-02_jprb,4.3816e-02_jprb,4.1346e-02_jprb/)  
kbo( :,16, 1) = (/&
 & 4.7050e-02_jprb,4.3532e-02_jprb,4.0554e-02_jprb,3.8051e-02_jprb,3.5973e-02_jprb/)  
kbo( :,17, 1) = (/&
 & 4.0158e-02_jprb,3.7199e-02_jprb,3.4718e-02_jprb,3.2658e-02_jprb,3.0958e-02_jprb/)  
kbo( :,18, 1) = (/&
 & 3.3944e-02_jprb,3.1506e-02_jprb,2.9487e-02_jprb,2.7811e-02_jprb,2.6421e-02_jprb/)  
kbo( :,19, 1) = (/&
 & 2.8784e-02_jprb,2.6805e-02_jprb,2.5163e-02_jprb,2.3816e-02_jprb,2.2648e-02_jprb/)  
kbo( :,20, 1) = (/&
 & 2.4061e-02_jprb,2.2468e-02_jprb,2.1155e-02_jprb,2.0067e-02_jprb,1.9096e-02_jprb/)  
kbo( :,21, 1) = (/&
 & 2.0001e-02_jprb,1.8722e-02_jprb,1.7675e-02_jprb,1.6787e-02_jprb,1.5981e-02_jprb/)  
kbo( :,22, 1) = (/&
 & 1.6465e-02_jprb,1.5454e-02_jprb,1.4621e-02_jprb,1.3904e-02_jprb,1.3240e-02_jprb/)  
kbo( :,23, 1) = (/&
 & 1.3531e-02_jprb,1.2731e-02_jprb,1.2060e-02_jprb,1.1483e-02_jprb,1.0937e-02_jprb/)  
kbo( :,24, 1) = (/&
 & 1.1122e-02_jprb,1.0488e-02_jprb,9.9449e-03_jprb,9.4777e-03_jprb,9.0360e-03_jprb/)  
kbo( :,25, 1) = (/&
 & 9.1073e-03_jprb,8.6036e-03_jprb,8.1702e-03_jprb,7.7857e-03_jprb,7.4321e-03_jprb/)  
kbo( :,26, 1) = (/&
 & 7.4301e-03_jprb,7.0285e-03_jprb,6.6816e-03_jprb,6.3677e-03_jprb,6.0862e-03_jprb/)  
kbo( :,27, 1) = (/&
 & 6.0232e-03_jprb,5.7026e-03_jprb,5.4272e-03_jprb,5.1710e-03_jprb,4.9473e-03_jprb/)  
kbo( :,28, 1) = (/&
 & 4.8603e-03_jprb,4.6055e-03_jprb,4.3859e-03_jprb,4.1792e-03_jprb,4.0017e-03_jprb/)  
kbo( :,29, 1) = (/&
 & 3.8797e-03_jprb,3.6792e-03_jprb,3.5020e-03_jprb,3.3388e-03_jprb,3.1981e-03_jprb/)  
kbo( :,30, 1) = (/&
 & 3.0812e-03_jprb,2.9236e-03_jprb,2.7805e-03_jprb,2.6518e-03_jprb,2.5406e-03_jprb/)  
kbo( :,31, 1) = (/&
 & 2.4193e-03_jprb,2.2960e-03_jprb,2.1816e-03_jprb,2.0808e-03_jprb,1.9933e-03_jprb/)  
kbo( :,32, 1) = (/&
 & 1.8919e-03_jprb,1.7956e-03_jprb,1.7054e-03_jprb,1.6268e-03_jprb,1.5587e-03_jprb/)  
kbo( :,33, 1) = (/&
 & 1.4723e-03_jprb,1.3971e-03_jprb,1.3273e-03_jprb,1.2662e-03_jprb,1.2122e-03_jprb/)  
kbo( :,34, 1) = (/&
 & 1.1545e-03_jprb,1.0954e-03_jprb,1.0408e-03_jprb,9.9313e-04_jprb,9.5040e-04_jprb/)  
kbo( :,35, 1) = (/&
 & 9.0984e-04_jprb,8.6285e-04_jprb,8.1968e-04_jprb,7.8221e-04_jprb,7.4823e-04_jprb/)  
kbo( :,36, 1) = (/&
 & 7.2230e-04_jprb,6.8430e-04_jprb,6.4998e-04_jprb,6.2002e-04_jprb,5.9274e-04_jprb/)  
kbo( :,37, 1) = (/&
 & 5.8190e-04_jprb,5.5079e-04_jprb,5.2276e-04_jprb,4.9827e-04_jprb,4.7605e-04_jprb/)  
kbo( :,38, 1) = (/&
 & 4.6798e-04_jprb,4.4253e-04_jprb,4.1941e-04_jprb,3.9951e-04_jprb,3.8152e-04_jprb/)  
kbo( :,39, 1) = (/&
 & 3.7512e-04_jprb,3.5422e-04_jprb,3.3519e-04_jprb,3.1894e-04_jprb,3.0452e-04_jprb/)  
kbo( :,40, 1) = (/&
 & 3.0666e-04_jprb,2.8941e-04_jprb,2.7336e-04_jprb,2.6010e-04_jprb,2.4845e-04_jprb/)  
kbo( :,41, 1) = (/&
 & 2.5152e-04_jprb,2.3686e-04_jprb,2.2364e-04_jprb,2.1291e-04_jprb,2.0310e-04_jprb/)  
kbo( :,42, 1) = (/&
 & 2.0566e-04_jprb,1.9385e-04_jprb,1.8299e-04_jprb,1.7309e-04_jprb,1.6576e-04_jprb/)  
kbo( :,43, 1) = (/&
 & 1.6932e-04_jprb,1.5934e-04_jprb,1.5033e-04_jprb,1.4188e-04_jprb,1.3564e-04_jprb/)  
kbo( :,44, 1) = (/&
 & 1.3958e-04_jprb,1.3104e-04_jprb,1.2350e-04_jprb,1.1633e-04_jprb,1.1027e-04_jprb/)  
kbo( :,45, 1) = (/&
 & 1.1479e-04_jprb,1.0750e-04_jprb,1.0104e-04_jprb,9.5141e-05_jprb,8.9953e-05_jprb/)  
kbo( :,46, 1) = (/&
 & 9.4553e-05_jprb,8.8276e-05_jprb,8.2742e-05_jprb,7.7888e-05_jprb,7.3435e-05_jprb/)  
kbo( :,47, 1) = (/&
 & 7.8399e-05_jprb,7.2932e-05_jprb,6.8177e-05_jprb,6.4080e-05_jprb,6.0318e-05_jprb/)  
kbo( :,48, 1) = (/&
 & 6.4849e-05_jprb,5.9884e-05_jprb,5.6012e-05_jprb,5.2488e-05_jprb,4.9388e-05_jprb/)  
kbo( :,49, 1) = (/&
 & 5.3502e-05_jprb,4.9159e-05_jprb,4.5822e-05_jprb,4.2806e-05_jprb,4.0245e-05_jprb/)  
kbo( :,50, 1) = (/&
 & 4.4506e-05_jprb,4.0716e-05_jprb,3.7652e-05_jprb,3.5217e-05_jprb,3.3017e-05_jprb/)  
kbo( :,51, 1) = (/&
 & 3.7201e-05_jprb,3.3887e-05_jprb,3.1219e-05_jprb,2.9106e-05_jprb,2.7216e-05_jprb/)  
kbo( :,52, 1) = (/&
 & 3.0990e-05_jprb,2.8176e-05_jprb,2.5850e-05_jprb,2.4002e-05_jprb,2.2382e-05_jprb/)  
kbo( :,53, 1) = (/&
 & 2.5835e-05_jprb,2.3389e-05_jprb,2.1361e-05_jprb,1.9746e-05_jprb,1.8343e-05_jprb/)  
kbo( :,54, 1) = (/&
 & 2.1861e-05_jprb,1.9731e-05_jprb,1.7961e-05_jprb,1.6554e-05_jprb,1.5340e-05_jprb/)  
kbo( :,55, 1) = (/&
 & 1.8660e-05_jprb,1.6806e-05_jprb,1.5260e-05_jprb,1.3974e-05_jprb,1.2979e-05_jprb/)  
kbo( :,56, 1) = (/&
 & 1.5934e-05_jprb,1.4319e-05_jprb,1.2975e-05_jprb,1.1855e-05_jprb,1.0987e-05_jprb/)  
kbo( :,57, 1) = (/&
 & 1.3617e-05_jprb,1.2204e-05_jprb,1.1040e-05_jprb,1.0065e-05_jprb,9.2784e-06_jprb/)  
kbo( :,58, 1) = (/&
 & 1.1657e-05_jprb,1.0421e-05_jprb,9.4154e-06_jprb,8.5710e-06_jprb,7.8889e-06_jprb/)  
kbo( :,59, 1) = (/&
 & 1.0037e-05_jprb,8.9852e-06_jprb,8.1354e-06_jprb,7.4217e-06_jprb,6.8483e-06_jprb/)  
kbo( :,13, 2) = (/&
 & 1.7296e-01_jprb,1.6235e-01_jprb,1.5299e-01_jprb,1.4476e-01_jprb,1.3736e-01_jprb/)  
kbo( :,14, 2) = (/&
 & 1.4802e-01_jprb,1.3939e-01_jprb,1.3201e-01_jprb,1.2559e-01_jprb,1.1999e-01_jprb/)  
kbo( :,15, 2) = (/&
 & 1.2666e-01_jprb,1.2001e-01_jprb,1.1439e-01_jprb,1.0960e-01_jprb,1.0553e-01_jprb/)  
kbo( :,16, 2) = (/&
 & 1.0662e-01_jprb,1.0147e-01_jprb,9.7166e-02_jprb,9.3517e-02_jprb,9.0354e-02_jprb/)  
kbo( :,17, 2) = (/&
 & 8.9370e-02_jprb,8.5365e-02_jprb,8.2044e-02_jprb,7.9207e-02_jprb,7.6642e-02_jprb/)  
kbo( :,18, 2) = (/&
 & 7.4539e-02_jprb,7.1393e-02_jprb,6.8781e-02_jprb,6.6515e-02_jprb,6.4461e-02_jprb/)  
kbo( :,19, 2) = (/&
 & 6.2471e-02_jprb,5.9987e-02_jprb,5.7923e-02_jprb,5.6100e-02_jprb,5.4514e-02_jprb/)  
kbo( :,20, 2) = (/&
 & 5.1909e-02_jprb,4.9946e-02_jprb,4.8296e-02_jprb,4.6857e-02_jprb,4.5636e-02_jprb/)  
kbo( :,21, 2) = (/&
 & 4.2988e-02_jprb,4.1439e-02_jprb,4.0114e-02_jprb,3.8994e-02_jprb,3.8038e-02_jprb/)  
kbo( :,22, 2) = (/&
 & 3.5398e-02_jprb,3.4178e-02_jprb,3.3135e-02_jprb,3.2273e-02_jprb,3.1510e-02_jprb/)  
kbo( :,23, 2) = (/&
 & 2.9122e-02_jprb,2.8160e-02_jprb,2.7348e-02_jprb,2.6671e-02_jprb,2.6057e-02_jprb/)  
kbo( :,24, 2) = (/&
 & 2.4007e-02_jprb,2.3245e-02_jprb,2.2611e-02_jprb,2.2076e-02_jprb,2.1589e-02_jprb/)  

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


SUBROUTINE part3

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


kbo( :,25, 2) = (/&
 & 1.9740e-02_jprb,1.9139e-02_jprb,1.8649e-02_jprb,1.8220e-02_jprb,1.7833e-02_jprb/)  
kbo( :,26, 2) = (/&
 & 1.6183e-02_jprb,1.5716e-02_jprb,1.5331e-02_jprb,1.4993e-02_jprb,1.4681e-02_jprb/)  
kbo( :,27, 2) = (/&
 & 1.3189e-02_jprb,1.2828e-02_jprb,1.2525e-02_jprb,1.2251e-02_jprb,1.1998e-02_jprb/)  
kbo( :,28, 2) = (/&
 & 1.0709e-02_jprb,1.0427e-02_jprb,1.0183e-02_jprb,9.9604e-03_jprb,9.7547e-03_jprb/)  
kbo( :,29, 2) = (/&
 & 8.6054e-03_jprb,8.3799e-03_jprb,8.1829e-03_jprb,8.0027e-03_jprb,7.8337e-03_jprb/)  
kbo( :,30, 2) = (/&
 & 6.8847e-03_jprb,6.7028e-03_jprb,6.5429e-03_jprb,6.3953e-03_jprb,6.2560e-03_jprb/)  
kbo( :,31, 2) = (/&
 & 5.4573e-03_jprb,5.3105e-03_jprb,5.1791e-03_jprb,5.0569e-03_jprb,4.9413e-03_jprb/)  
kbo( :,32, 2) = (/&
 & 4.3219e-03_jprb,4.2029e-03_jprb,4.0937e-03_jprb,3.9929e-03_jprb,3.8969e-03_jprb/)  
kbo( :,33, 2) = (/&
 & 3.4170e-03_jprb,3.3182e-03_jprb,3.2286e-03_jprb,3.1450e-03_jprb,3.0655e-03_jprb/)  
kbo( :,34, 2) = (/&
 & 2.7189e-03_jprb,2.6370e-03_jprb,2.5635e-03_jprb,2.4948e-03_jprb,2.4287e-03_jprb/)  
kbo( :,35, 2) = (/&
 & 2.1701e-03_jprb,2.1021e-03_jprb,2.0414e-03_jprb,1.9845e-03_jprb,1.9298e-03_jprb/)  
kbo( :,36, 2) = (/&
 & 1.7404e-03_jprb,1.6842e-03_jprb,1.6334e-03_jprb,1.5862e-03_jprb,1.5407e-03_jprb/)  
kbo( :,37, 2) = (/&
 & 1.4096e-03_jprb,1.3631e-03_jprb,1.3204e-03_jprb,1.2809e-03_jprb,1.2432e-03_jprb/)  
kbo( :,38, 2) = (/&
 & 1.1406e-03_jprb,1.1018e-03_jprb,1.0661e-03_jprb,1.0329e-03_jprb,1.0017e-03_jprb/)  
kbo( :,39, 2) = (/&
 & 9.2061e-04_jprb,8.8850e-04_jprb,8.5860e-04_jprb,8.3080e-04_jprb,8.0479e-04_jprb/)  
kbo( :,40, 2) = (/&
 & 7.5311e-04_jprb,7.2636e-04_jprb,7.0127e-04_jprb,6.7848e-04_jprb,6.5692e-04_jprb/)  
kbo( :,41, 2) = (/&
 & 6.1744e-04_jprb,5.9466e-04_jprb,5.7382e-04_jprb,5.5531e-04_jprb,5.3731e-04_jprb/)  
kbo( :,42, 2) = (/&
 & 5.0580e-04_jprb,4.8681e-04_jprb,4.6945e-04_jprb,4.5312e-04_jprb,4.3911e-04_jprb/)  
kbo( :,43, 2) = (/&
 & 4.1621e-04_jprb,3.9990e-04_jprb,3.8526e-04_jprb,3.7146e-04_jprb,3.5984e-04_jprb/)  
kbo( :,44, 2) = (/&
 & 3.4312e-04_jprb,3.2894e-04_jprb,3.1642e-04_jprb,3.0474e-04_jprb,2.9403e-04_jprb/)  
kbo( :,45, 2) = (/&
 & 2.8281e-04_jprb,2.7042e-04_jprb,2.5951e-04_jprb,2.4968e-04_jprb,2.4057e-04_jprb/)  
kbo( :,46, 2) = (/&
 & 2.3357e-04_jprb,2.2272e-04_jprb,2.1318e-04_jprb,2.0478e-04_jprb,1.9704e-04_jprb/)  
kbo( :,47, 2) = (/&
 & 1.9389e-04_jprb,1.8431e-04_jprb,1.7596e-04_jprb,1.6864e-04_jprb,1.6210e-04_jprb/)  
kbo( :,48, 2) = (/&
 & 1.6095e-04_jprb,1.5228e-04_jprb,1.4517e-04_jprb,1.3875e-04_jprb,1.3313e-04_jprb/)  
kbo( :,49, 2) = (/&
 & 1.3353e-04_jprb,1.2596e-04_jprb,1.1967e-04_jprb,1.1403e-04_jprb,1.0914e-04_jprb/)  
kbo( :,50, 2) = (/&
 & 1.1117e-04_jprb,1.0462e-04_jprb,9.8990e-05_jprb,9.4240e-05_jprb,8.9977e-05_jprb/)  
kbo( :,51, 2) = (/&
 & 9.2729e-05_jprb,8.7105e-05_jprb,8.2233e-05_jprb,7.8109e-05_jprb,7.4418e-05_jprb/)  
kbo( :,52, 2) = (/&
 & 7.7287e-05_jprb,7.2506e-05_jprb,6.8306e-05_jprb,6.4721e-05_jprb,6.1530e-05_jprb/)  
kbo( :,53, 2) = (/&
 & 6.4464e-05_jprb,6.0324e-05_jprb,5.6713e-05_jprb,5.3606e-05_jprb,5.0841e-05_jprb/)  
kbo( :,54, 2) = (/&
 & 5.4091e-05_jprb,5.0519e-05_jprb,4.7424e-05_jprb,4.4759e-05_jprb,4.2387e-05_jprb/)  
kbo( :,55, 2) = (/&
 & 4.5573e-05_jprb,4.2477e-05_jprb,3.9832e-05_jprb,3.7495e-05_jprb,3.5529e-05_jprb/)  
kbo( :,56, 2) = (/&
 & 3.8441e-05_jprb,3.5737e-05_jprb,3.3472e-05_jprb,3.1478e-05_jprb,2.9797e-05_jprb/)  
kbo( :,57, 2) = (/&
 & 3.2461e-05_jprb,3.0095e-05_jprb,2.8145e-05_jprb,2.6441e-05_jprb,2.4970e-05_jprb/)  
kbo( :,58, 2) = (/&
 & 2.7443e-05_jprb,2.5378e-05_jprb,2.3692e-05_jprb,2.2241e-05_jprb,2.0988e-05_jprb/)  
kbo( :,59, 2) = (/&
 & 2.3149e-05_jprb,2.1418e-05_jprb,2.0012e-05_jprb,1.8802e-05_jprb,1.7768e-05_jprb/)  
kbo( :,13, 3) = (/&
 & 2.8224e-01_jprb,2.6908e-01_jprb,2.5766e-01_jprb,2.4741e-01_jprb,2.3813e-01_jprb/)  
kbo( :,14, 3) = (/&
 & 2.4257e-01_jprb,2.3240e-01_jprb,2.2331e-01_jprb,2.1490e-01_jprb,2.0721e-01_jprb/)  
kbo( :,15, 3) = (/&
 & 2.0889e-01_jprb,2.0084e-01_jprb,1.9363e-01_jprb,1.8713e-01_jprb,1.8096e-01_jprb/)  
kbo( :,16, 3) = (/&
 & 1.7673e-01_jprb,1.7035e-01_jprb,1.6477e-01_jprb,1.5966e-01_jprb,1.5481e-01_jprb/)  
kbo( :,17, 3) = (/&
 & 1.4881e-01_jprb,1.4382e-01_jprb,1.3951e-01_jprb,1.3543e-01_jprb,1.3171e-01_jprb/)  
kbo( :,18, 3) = (/&
 & 1.2458e-01_jprb,1.2075e-01_jprb,1.1737e-01_jprb,1.1420e-01_jprb,1.1137e-01_jprb/)  
kbo( :,19, 3) = (/&
 & 1.0492e-01_jprb,1.0202e-01_jprb,9.9387e-02_jprb,9.7022e-02_jprb,9.4878e-02_jprb/)  
kbo( :,20, 3) = (/&
 & 8.7628e-02_jprb,8.5398e-02_jprb,8.3368e-02_jprb,8.1588e-02_jprb,7.9957e-02_jprb/)  
kbo( :,21, 3) = (/&
 & 7.2933e-02_jprb,7.1178e-02_jprb,6.9640e-02_jprb,6.8291e-02_jprb,6.7043e-02_jprb/)  
kbo( :,22, 3) = (/&
 & 6.0366e-02_jprb,5.8999e-02_jprb,5.7832e-02_jprb,5.6813e-02_jprb,5.5848e-02_jprb/)  
kbo( :,23, 3) = (/&
 & 4.9914e-02_jprb,4.8873e-02_jprb,4.8003e-02_jprb,4.7216e-02_jprb,4.6455e-02_jprb/)  
kbo( :,24, 3) = (/&
 & 4.1391e-02_jprb,4.0620e-02_jprb,3.9959e-02_jprb,3.9347e-02_jprb,3.8754e-02_jprb/)  
kbo( :,25, 3) = (/&
 & 3.4252e-02_jprb,3.3678e-02_jprb,3.3169e-02_jprb,3.2674e-02_jprb,3.2208e-02_jprb/)  
kbo( :,26, 3) = (/&
 & 2.8274e-02_jprb,2.7835e-02_jprb,2.7424e-02_jprb,2.7032e-02_jprb,2.6670e-02_jprb/)  
kbo( :,27, 3) = (/&
 & 2.3167e-02_jprb,2.2814e-02_jprb,2.2487e-02_jprb,2.2168e-02_jprb,2.1877e-02_jprb/)  
kbo( :,28, 3) = (/&
 & 1.8878e-02_jprb,1.8591e-02_jprb,1.8322e-02_jprb,1.8060e-02_jprb,1.7820e-02_jprb/)  
kbo( :,29, 3) = (/&
 & 1.5174e-02_jprb,1.4934e-02_jprb,1.4701e-02_jprb,1.4483e-02_jprb,1.4279e-02_jprb/)  
kbo( :,30, 3) = (/&
 & 1.2128e-02_jprb,1.1922e-02_jprb,1.1721e-02_jprb,1.1534e-02_jprb,1.1359e-02_jprb/)  
kbo( :,31, 3) = (/&
 & 9.5821e-03_jprb,9.4015e-03_jprb,9.2253e-03_jprb,9.0655e-03_jprb,8.9152e-03_jprb/)  
kbo( :,32, 3) = (/&
 & 7.5634e-03_jprb,7.4049e-03_jprb,7.2553e-03_jprb,7.1189e-03_jprb,6.9900e-03_jprb/)  
kbo( :,33, 3) = (/&
 & 5.9579e-03_jprb,5.8225e-03_jprb,5.6947e-03_jprb,5.5780e-03_jprb,5.4685e-03_jprb/)  
kbo( :,34, 3) = (/&
 & 4.7299e-03_jprb,4.6155e-03_jprb,4.5082e-03_jprb,4.4109e-03_jprb,4.3191e-03_jprb/)  
kbo( :,35, 3) = (/&
 & 3.7680e-03_jprb,3.6721e-03_jprb,3.5816e-03_jprb,3.4997e-03_jprb,3.4229e-03_jprb/)  
kbo( :,36, 3) = (/&
 & 3.0177e-03_jprb,2.9373e-03_jprb,2.8611e-03_jprb,2.7917e-03_jprb,2.7276e-03_jprb/)  
kbo( :,37, 3) = (/&
 & 2.4418e-03_jprb,2.3740e-03_jprb,2.3098e-03_jprb,2.2509e-03_jprb,2.1971e-03_jprb/)  
kbo( :,38, 3) = (/&
 & 1.9747e-03_jprb,1.9173e-03_jprb,1.8635e-03_jprb,1.8136e-03_jprb,1.7682e-03_jprb/)  
kbo( :,39, 3) = (/&
 & 1.5944e-03_jprb,1.5460e-03_jprb,1.5009e-03_jprb,1.4588e-03_jprb,1.4203e-03_jprb/)  
kbo( :,40, 3) = (/&
 & 1.3041e-03_jprb,1.2634e-03_jprb,1.2255e-03_jprb,1.1907e-03_jprb,1.1583e-03_jprb/)  
kbo( :,41, 3) = (/&
 & 1.0685e-03_jprb,1.0341e-03_jprb,1.0025e-03_jprb,9.7393e-04_jprb,9.4659e-04_jprb/)  
kbo( :,42, 3) = (/&
 & 8.7449e-04_jprb,8.4639e-04_jprb,8.1987e-04_jprb,7.9484e-04_jprb,7.7315e-04_jprb/)  
kbo( :,43, 3) = (/&
 & 7.1788e-04_jprb,6.9483e-04_jprb,6.7250e-04_jprb,6.5138e-04_jprb,6.3319e-04_jprb/)  
kbo( :,44, 3) = (/&
 & 5.8977e-04_jprb,5.7088e-04_jprb,5.5200e-04_jprb,5.3418e-04_jprb,5.1765e-04_jprb/)  
kbo( :,45, 3) = (/&
 & 4.8411e-04_jprb,4.6836e-04_jprb,4.5260e-04_jprb,4.3755e-04_jprb,4.2370e-04_jprb/)  
kbo( :,46, 3) = (/&
 & 3.9795e-04_jprb,3.8453e-04_jprb,3.7150e-04_jprb,3.5880e-04_jprb,3.4714e-04_jprb/)  
kbo( :,47, 3) = (/&
 & 3.2839e-04_jprb,3.1685e-04_jprb,3.0597e-04_jprb,2.9536e-04_jprb,2.8543e-04_jprb/)  
kbo( :,48, 3) = (/&
 & 2.7072e-04_jprb,2.6046e-04_jprb,2.5163e-04_jprb,2.4282e-04_jprb,2.3441e-04_jprb/)  
kbo( :,49, 3) = (/&
 & 2.2287e-04_jprb,2.1412e-04_jprb,2.0662e-04_jprb,1.9921e-04_jprb,1.9220e-04_jprb/)  
kbo( :,50, 3) = (/&
 & 1.8426e-04_jprb,1.7673e-04_jprb,1.7009e-04_jprb,1.6411e-04_jprb,1.5828e-04_jprb/)  
kbo( :,51, 3) = (/&
 & 1.5273e-04_jprb,1.4618e-04_jprb,1.4053e-04_jprb,1.3551e-04_jprb,1.3063e-04_jprb/)  
kbo( :,52, 3) = (/&
 & 1.2644e-04_jprb,1.2087e-04_jprb,1.1601e-04_jprb,1.1179e-04_jprb,1.0769e-04_jprb/)  
kbo( :,53, 3) = (/&
 & 1.0472e-04_jprb,9.9917e-05_jprb,9.5685e-05_jprb,9.2134e-05_jprb,8.8673e-05_jprb/)  
kbo( :,54, 3) = (/&
 & 8.7277e-05_jprb,8.3176e-05_jprb,7.9528e-05_jprb,7.6521e-05_jprb,7.3630e-05_jprb/)  
kbo( :,55, 3) = (/&
 & 7.3027e-05_jprb,6.9537e-05_jprb,6.6419e-05_jprb,6.3736e-05_jprb,6.1447e-05_jprb/)  
kbo( :,56, 3) = (/&
 & 6.1140e-05_jprb,5.8170e-05_jprb,5.5506e-05_jprb,5.3220e-05_jprb,5.1302e-05_jprb/)  
kbo( :,57, 3) = (/&
 & 5.1226e-05_jprb,4.8684e-05_jprb,4.6422e-05_jprb,4.4463e-05_jprb,4.2775e-05_jprb/)  
kbo( :,58, 3) = (/&
 & 4.2970e-05_jprb,4.0795e-05_jprb,3.8883e-05_jprb,3.7209e-05_jprb,3.5788e-05_jprb/)  
kbo( :,59, 3) = (/&
 & 3.6137e-05_jprb,3.4363e-05_jprb,3.2789e-05_jprb,3.1431e-05_jprb,3.0267e-05_jprb/)  
kbo( :,13, 4) = (/&
 & 4.4498e-01_jprb,4.2624e-01_jprb,4.0964e-01_jprb,3.9457e-01_jprb,3.8094e-01_jprb/)  
kbo( :,14, 4) = (/&
 & 3.8421e-01_jprb,3.6885e-01_jprb,3.5551e-01_jprb,3.4386e-01_jprb,3.3352e-01_jprb/)  
kbo( :,15, 4) = (/&
 & 3.3432e-01_jprb,3.2219e-01_jprb,3.1159e-01_jprb,3.0226e-01_jprb,2.9429e-01_jprb/)  
kbo( :,16, 4) = (/&
 & 2.8560e-01_jprb,2.7613e-01_jprb,2.6777e-01_jprb,2.6061e-01_jprb,2.5464e-01_jprb/)  
kbo( :,17, 4) = (/&
 & 2.4342e-01_jprb,2.3605e-01_jprb,2.2955e-01_jprb,2.2421e-01_jprb,2.1979e-01_jprb/)  
kbo( :,18, 4) = (/&
 & 2.0619e-01_jprb,2.0048e-01_jprb,1.9555e-01_jprb,1.9161e-01_jprb,1.8825e-01_jprb/)  
kbo( :,19, 4) = (/&
 & 1.7598e-01_jprb,1.7158e-01_jprb,1.6796e-01_jprb,1.6505e-01_jprb,1.6259e-01_jprb/)  
kbo( :,20, 4) = (/&
 & 1.4854e-01_jprb,1.4525e-01_jprb,1.4255e-01_jprb,1.4041e-01_jprb,1.3862e-01_jprb/)  
kbo( :,21, 4) = (/&
 & 1.2481e-01_jprb,1.2236e-01_jprb,1.2038e-01_jprb,1.1880e-01_jprb,1.1756e-01_jprb/)  
kbo( :,22, 4) = (/&
 & 1.0419e-01_jprb,1.0238e-01_jprb,1.0094e-01_jprb,9.9828e-02_jprb,9.8963e-02_jprb/)  
kbo( :,23, 4) = (/&
 & 8.6892e-02_jprb,8.5552e-02_jprb,8.4508e-02_jprb,8.3742e-02_jprb,8.3137e-02_jprb/)  
kbo( :,24, 4) = (/&
 & 7.2705e-02_jprb,7.1741e-02_jprb,7.1008e-02_jprb,7.0499e-02_jprb,7.0039e-02_jprb/)  
kbo( :,25, 4) = (/&
 & 6.0676e-02_jprb,5.9993e-02_jprb,5.9492e-02_jprb,5.9114e-02_jprb,5.8730e-02_jprb/)  
kbo( :,26, 4) = (/&
 & 5.0468e-02_jprb,4.9976e-02_jprb,4.9610e-02_jprb,4.9307e-02_jprb,4.8978e-02_jprb/)  
kbo( :,27, 4) = (/&
 & 4.1559e-02_jprb,4.1193e-02_jprb,4.0911e-02_jprb,4.0637e-02_jprb,4.0354e-02_jprb/)  
kbo( :,28, 4) = (/&
 & 3.3971e-02_jprb,3.3679e-02_jprb,3.3442e-02_jprb,3.3204e-02_jprb,3.2964e-02_jprb/)  
kbo( :,29, 4) = (/&
 & 2.7264e-02_jprb,2.7013e-02_jprb,2.6808e-02_jprb,2.6604e-02_jprb,2.6386e-02_jprb/)  
kbo( :,30, 4) = (/&
 & 2.1713e-02_jprb,2.1498e-02_jprb,2.1318e-02_jprb,2.1130e-02_jprb,2.0938e-02_jprb/)  
kbo( :,31, 4) = (/&
 & 1.7042e-02_jprb,1.6858e-02_jprb,1.6691e-02_jprb,1.6519e-02_jprb,1.6352e-02_jprb/)  
kbo( :,32, 4) = (/&
 & 1.3370e-02_jprb,1.3212e-02_jprb,1.3061e-02_jprb,1.2908e-02_jprb,1.2763e-02_jprb/)  
kbo( :,33, 4) = (/&
 & 1.0471e-02_jprb,1.0335e-02_jprb,1.0205e-02_jprb,1.0071e-02_jprb,9.9443e-03_jprb/)  
kbo( :,34, 4) = (/&
 & 8.2822e-03_jprb,8.1673e-03_jprb,8.0568e-03_jprb,7.9430e-03_jprb,7.8343e-03_jprb/)  
kbo( :,35, 4) = (/&
 & 6.5706e-03_jprb,6.4732e-03_jprb,6.3800e-03_jprb,6.2836e-03_jprb,6.1906e-03_jprb/)  
kbo( :,36, 4) = (/&
 & 5.2374e-03_jprb,5.1544e-03_jprb,5.0765e-03_jprb,4.9959e-03_jprb,4.9170e-03_jprb/)  
kbo( :,37, 4) = (/&
 & 4.2152e-03_jprb,4.1453e-03_jprb,4.0802e-03_jprb,4.0137e-03_jprb,3.9470e-03_jprb/)  
kbo( :,38, 4) = (/&
 & 3.3887e-03_jprb,3.3299e-03_jprb,3.2750e-03_jprb,3.2202e-03_jprb,3.1640e-03_jprb/)  
kbo( :,39, 4) = (/&
 & 2.7192e-03_jprb,2.6687e-03_jprb,2.6217e-03_jprb,2.5767e-03_jprb,2.5302e-03_jprb/)  
kbo( :,40, 4) = (/&
 & 2.2135e-03_jprb,2.1698e-03_jprb,2.1301e-03_jprb,2.0941e-03_jprb,2.0563e-03_jprb/)  
kbo( :,41, 4) = (/&
 & 1.8054e-03_jprb,1.7673e-03_jprb,1.7338e-03_jprb,1.7053e-03_jprb,1.6746e-03_jprb/)  
kbo( :,42, 4) = (/&
 & 1.4708e-03_jprb,1.4392e-03_jprb,1.4108e-03_jprb,1.3843e-03_jprb,1.3624e-03_jprb/)  
kbo( :,43, 4) = (/&
 & 1.2027e-03_jprb,1.1753e-03_jprb,1.1507e-03_jprb,1.1283e-03_jprb,1.1105e-03_jprb/)  
kbo( :,44, 4) = (/&
 & 9.8462e-04_jprb,9.6042e-04_jprb,9.3913e-04_jprb,9.1991e-04_jprb,9.0230e-04_jprb/)  
kbo( :,45, 4) = (/&
 & 8.0542e-04_jprb,7.8415e-04_jprb,7.6564e-04_jprb,7.4892e-04_jprb,7.3408e-04_jprb/)  
kbo( :,46, 4) = (/&
 & 6.5968e-04_jprb,6.4114e-04_jprb,6.2484e-04_jprb,6.1027e-04_jprb,5.9757e-04_jprb/)  
kbo( :,47, 4) = (/&
 & 5.4254e-04_jprb,5.2637e-04_jprb,5.1198e-04_jprb,4.9924e-04_jprb,4.8823e-04_jprb/)  
kbo( :,48, 4) = (/&
 & 4.4583e-04_jprb,4.3098e-04_jprb,4.1917e-04_jprb,4.0789e-04_jprb,3.9833e-04_jprb/)  
kbo( :,49, 4) = (/&
 & 3.6597e-04_jprb,3.5313e-04_jprb,3.4272e-04_jprb,3.3276e-04_jprb,3.2437e-04_jprb/)  
kbo( :,50, 4) = (/&
 & 3.0183e-04_jprb,2.9081e-04_jprb,2.8109e-04_jprb,2.7313e-04_jprb,2.6573e-04_jprb/)  
kbo( :,51, 4) = (/&
 & 2.4952e-04_jprb,2.4012e-04_jprb,2.3178e-04_jprb,2.2484e-04_jprb,2.1839e-04_jprb/)  
kbo( :,52, 4) = (/&
 & 2.0590e-04_jprb,1.9816e-04_jprb,1.9102e-04_jprb,1.8499e-04_jprb,1.7939e-04_jprb/)  
kbo( :,53, 4) = (/&
 & 1.6997e-04_jprb,1.6338e-04_jprb,1.5728e-04_jprb,1.5208e-04_jprb,1.4721e-04_jprb/)  
kbo( :,54, 4) = (/&
 & 1.4137e-04_jprb,1.3582e-04_jprb,1.3065e-04_jprb,1.2623e-04_jprb,1.2203e-04_jprb/)  
kbo( :,55, 4) = (/&
 & 1.1811e-04_jprb,1.1349e-04_jprb,1.0913e-04_jprb,1.0509e-04_jprb,1.0178e-04_jprb/)  
kbo( :,56, 4) = (/&
 & 9.8748e-05_jprb,9.4876e-05_jprb,9.1206e-05_jprb,8.7799e-05_jprb,8.4972e-05_jprb/)  
kbo( :,57, 4) = (/&
 & 8.2626e-05_jprb,7.9374e-05_jprb,7.6285e-05_jprb,7.3421e-05_jprb,7.0844e-05_jprb/)  
kbo( :,58, 4) = (/&
 & 6.9274e-05_jprb,6.6523e-05_jprb,6.3940e-05_jprb,6.1535e-05_jprb,5.9367e-05_jprb/)  
kbo( :,59, 4) = (/&
 & 5.8640e-05_jprb,5.6344e-05_jprb,5.4214e-05_jprb,5.2234e-05_jprb,5.0475e-05_jprb/)  
kbo( :,13, 5) = (/&
 & 7.7160e-01_jprb,7.4444e-01_jprb,7.1907e-01_jprb,6.9531e-01_jprb,6.7298e-01_jprb/)  
kbo( :,14, 5) = (/&
 & 6.7466e-01_jprb,6.5300e-01_jprb,6.3239e-01_jprb,6.1248e-01_jprb,5.9379e-01_jprb/)  
kbo( :,15, 5) = (/&
 & 5.9635e-01_jprb,5.7861e-01_jprb,5.6121e-01_jprb,5.4480e-01_jprb,5.2962e-01_jprb/)  
kbo( :,16, 5) = (/&
 & 5.1541e-01_jprb,5.0066e-01_jprb,4.8672e-01_jprb,4.7349e-01_jprb,4.6138e-01_jprb/)  
kbo( :,17, 5) = (/&
 & 4.4269e-01_jprb,4.3080e-01_jprb,4.1977e-01_jprb,4.0931e-01_jprb,3.9988e-01_jprb/)  
kbo( :,18, 5) = (/&
 & 3.7780e-01_jprb,3.6850e-01_jprb,3.5976e-01_jprb,3.5172e-01_jprb,3.4458e-01_jprb/)  
kbo( :,19, 5) = (/&
 & 3.2514e-01_jprb,3.1806e-01_jprb,3.1138e-01_jprb,3.0554e-01_jprb,3.0027e-01_jprb/)  
kbo( :,20, 5) = (/&
 & 2.7650e-01_jprb,2.7122e-01_jprb,2.6628e-01_jprb,2.6193e-01_jprb,2.5804e-01_jprb/)  
kbo( :,21, 5) = (/&
 & 2.3395e-01_jprb,2.2994e-01_jprb,2.2632e-01_jprb,2.2310e-01_jprb,2.2015e-01_jprb/)  
kbo( :,22, 5) = (/&
 & 1.9653e-01_jprb,1.9358e-01_jprb,1.9093e-01_jprb,1.8856e-01_jprb,1.8639e-01_jprb/)  
kbo( :,23, 5) = (/&
 & 1.6491e-01_jprb,1.6277e-01_jprb,1.6085e-01_jprb,1.5911e-01_jprb,1.5759e-01_jprb/)  
kbo( :,24, 5) = (/&
 & 1.3897e-01_jprb,1.3743e-01_jprb,1.3602e-01_jprb,1.3482e-01_jprb,1.3382e-01_jprb/)  
kbo( :,25, 5) = (/&
 & 1.1669e-01_jprb,1.1561e-01_jprb,1.1461e-01_jprb,1.1379e-01_jprb,1.1309e-01_jprb/)  
kbo( :,26, 5) = (/&
 & 9.7609e-02_jprb,9.6847e-02_jprb,9.6135e-02_jprb,9.5565e-02_jprb,9.5002e-02_jprb/)  
kbo( :,27, 5) = (/&
 & 8.0793e-02_jprb,8.0221e-02_jprb,7.9703e-02_jprb,7.9212e-02_jprb,7.8694e-02_jprb/)  
kbo( :,28, 5) = (/&
 & 6.6330e-02_jprb,6.5862e-02_jprb,6.5425e-02_jprb,6.4984e-02_jprb,6.4496e-02_jprb/)  

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


SUBROUTINE part4

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


kbo( :,29, 5) = (/&
 & 5.3342e-02_jprb,5.2927e-02_jprb,5.2528e-02_jprb,5.2127e-02_jprb,5.1683e-02_jprb/)  
kbo( :,30, 5) = (/&
 & 4.2517e-02_jprb,4.2134e-02_jprb,4.1768e-02_jprb,4.1401e-02_jprb,4.1018e-02_jprb/)  
kbo( :,31, 5) = (/&
 & 3.3321e-02_jprb,3.2971e-02_jprb,3.2637e-02_jprb,3.2307e-02_jprb,3.1983e-02_jprb/)  
kbo( :,32, 5) = (/&
 & 2.6085e-02_jprb,2.5777e-02_jprb,2.5482e-02_jprb,2.5197e-02_jprb,2.4920e-02_jprb/)  
kbo( :,33, 5) = (/&
 & 2.0380e-02_jprb,2.0114e-02_jprb,1.9855e-02_jprb,1.9613e-02_jprb,1.9379e-02_jprb/)  
kbo( :,34, 5) = (/&
 & 1.6094e-02_jprb,1.5866e-02_jprb,1.5645e-02_jprb,1.5443e-02_jprb,1.5250e-02_jprb/)  
kbo( :,35, 5) = (/&
 & 1.2747e-02_jprb,1.2551e-02_jprb,1.2366e-02_jprb,1.2199e-02_jprb,1.2040e-02_jprb/)  
kbo( :,36, 5) = (/&
 & 1.0146e-02_jprb,9.9805e-03_jprb,9.8261e-03_jprb,9.6852e-03_jprb,9.5528e-03_jprb/)  
kbo( :,37, 5) = (/&
 & 8.1592e-03_jprb,8.0204e-03_jprb,7.8907e-03_jprb,7.7704e-03_jprb,7.6600e-03_jprb/)  
kbo( :,38, 5) = (/&
 & 6.5529e-03_jprb,6.4351e-03_jprb,6.3266e-03_jprb,6.2249e-03_jprb,6.1328e-03_jprb/)  
kbo( :,39, 5) = (/&
 & 5.2501e-03_jprb,5.1505e-03_jprb,5.0574e-03_jprb,4.9738e-03_jprb,4.8970e-03_jprb/)  
kbo( :,40, 5) = (/&
 & 4.2699e-03_jprb,4.1868e-03_jprb,4.1077e-03_jprb,4.0405e-03_jprb,3.9772e-03_jprb/)  
kbo( :,41, 5) = (/&
 & 3.4793e-03_jprb,3.4089e-03_jprb,3.3430e-03_jprb,3.2899e-03_jprb,3.2370e-03_jprb/)  
kbo( :,42, 5) = (/&
 & 2.8300e-03_jprb,2.7744e-03_jprb,2.7198e-03_jprb,2.6679e-03_jprb,2.6320e-03_jprb/)  
kbo( :,43, 5) = (/&
 & 2.3102e-03_jprb,2.2637e-03_jprb,2.2184e-03_jprb,2.1738e-03_jprb,2.1446e-03_jprb/)  
kbo( :,44, 5) = (/&
 & 1.8868e-03_jprb,1.8478e-03_jprb,1.8100e-03_jprb,1.7720e-03_jprb,1.7388e-03_jprb/)  
kbo( :,45, 5) = (/&
 & 1.5390e-03_jprb,1.5063e-03_jprb,1.4743e-03_jprb,1.4422e-03_jprb,1.4137e-03_jprb/)  
kbo( :,46, 5) = (/&
 & 1.2560e-03_jprb,1.2289e-03_jprb,1.2018e-03_jprb,1.1747e-03_jprb,1.1502e-03_jprb/)  
kbo( :,47, 5) = (/&
 & 1.0286e-03_jprb,1.0064e-03_jprb,9.8327e-04_jprb,9.6042e-04_jprb,9.3954e-04_jprb/)  
kbo( :,48, 5) = (/&
 & 8.4091e-04_jprb,8.1988e-04_jprb,8.0308e-04_jprb,7.8384e-04_jprb,7.6613e-04_jprb/)  
kbo( :,49, 5) = (/&
 & 6.8566e-04_jprb,6.6838e-04_jprb,6.5450e-04_jprb,6.3815e-04_jprb,6.2312e-04_jprb/)  
kbo( :,50, 5) = (/&
 & 5.6202e-04_jprb,5.4792e-04_jprb,5.3430e-04_jprb,5.2267e-04_jprb,5.0999e-04_jprb/)  
kbo( :,51, 5) = (/&
 & 4.6200e-04_jprb,4.5031e-04_jprb,4.3906e-04_jprb,4.2940e-04_jprb,4.1869e-04_jprb/)  
kbo( :,52, 5) = (/&
 & 3.7843e-04_jprb,3.6947e-04_jprb,3.6036e-04_jprb,3.5233e-04_jprb,3.4327e-04_jprb/)  
kbo( :,53, 5) = (/&
 & 3.1055e-04_jprb,3.0267e-04_jprb,2.9523e-04_jprb,2.8852e-04_jprb,2.8094e-04_jprb/)  
kbo( :,54, 5) = (/&
 & 2.5746e-04_jprb,2.5066e-04_jprb,2.4444e-04_jprb,2.3894e-04_jprb,2.3267e-04_jprb/)  
kbo( :,55, 5) = (/&
 & 2.1472e-04_jprb,2.0894e-04_jprb,2.0371e-04_jprb,1.9841e-04_jprb,1.9408e-04_jprb/)  
kbo( :,56, 5) = (/&
 & 1.7913e-04_jprb,1.7430e-04_jprb,1.6988e-04_jprb,1.6554e-04_jprb,1.6197e-04_jprb/)  
kbo( :,57, 5) = (/&
 & 1.4951e-04_jprb,1.4553e-04_jprb,1.4177e-04_jprb,1.3820e-04_jprb,1.3474e-04_jprb/)  
kbo( :,58, 5) = (/&
 & 1.2504e-04_jprb,1.2181e-04_jprb,1.1864e-04_jprb,1.1569e-04_jprb,1.1287e-04_jprb/)  
kbo( :,59, 5) = (/&
 & 1.0614e-04_jprb,1.0364e-04_jprb,1.0111e-04_jprb,9.8749e-05_jprb,9.6452e-05_jprb/)  
kbo( :,13, 6) = (/&
 & 1.5191e+00_jprb,1.4695e+00_jprb,1.4192e+00_jprb,1.3697e+00_jprb,1.3235e+00_jprb/)  
kbo( :,14, 6) = (/&
 & 1.3318e+00_jprb,1.2897e+00_jprb,1.2478e+00_jprb,1.2076e+00_jprb,1.1701e+00_jprb/)  
kbo( :,15, 6) = (/&
 & 1.1798e+00_jprb,1.1443e+00_jprb,1.1093e+00_jprb,1.0759e+00_jprb,1.0445e+00_jprb/)  
kbo( :,16, 6) = (/&
 & 1.0281e+00_jprb,9.9819e-01_jprb,9.6877e-01_jprb,9.4092e-01_jprb,9.1439e-01_jprb/)  
kbo( :,17, 6) = (/&
 & 8.8986e-01_jprb,8.6523e-01_jprb,8.4111e-01_jprb,8.1786e-01_jprb,7.9588e-01_jprb/)  
kbo( :,18, 6) = (/&
 & 7.6316e-01_jprb,7.4298e-01_jprb,7.2337e-01_jprb,7.0449e-01_jprb,6.8700e-01_jprb/)  
kbo( :,19, 6) = (/&
 & 6.5943e-01_jprb,6.4308e-01_jprb,6.2731e-01_jprb,6.1232e-01_jprb,5.9858e-01_jprb/)  
kbo( :,20, 6) = (/&
 & 5.6316e-01_jprb,5.4994e-01_jprb,5.3764e-01_jprb,5.2623e-01_jprb,5.1573e-01_jprb/)  
kbo( :,21, 6) = (/&
 & 4.7806e-01_jprb,4.6791e-01_jprb,4.5861e-01_jprb,4.4996e-01_jprb,4.4207e-01_jprb/)  
kbo( :,22, 6) = (/&
 & 4.0277e-01_jprb,3.9520e-01_jprb,3.8813e-01_jprb,3.8164e-01_jprb,3.7585e-01_jprb/)  
kbo( :,23, 6) = (/&
 & 3.3902e-01_jprb,3.3325e-01_jprb,3.2795e-01_jprb,3.2312e-01_jprb,3.1896e-01_jprb/)  
kbo( :,24, 6) = (/&
 & 2.8650e-01_jprb,2.8213e-01_jprb,2.7823e-01_jprb,2.7486e-01_jprb,2.7205e-01_jprb/)  
kbo( :,25, 6) = (/&
 & 2.4143e-01_jprb,2.3816e-01_jprb,2.3547e-01_jprb,2.3317e-01_jprb,2.3145e-01_jprb/)  
kbo( :,26, 6) = (/&
 & 2.0266e-01_jprb,2.0036e-01_jprb,1.9851e-01_jprb,1.9709e-01_jprb,1.9604e-01_jprb/)  
kbo( :,27, 6) = (/&
 & 1.6827e-01_jprb,1.6669e-01_jprb,1.6549e-01_jprb,1.6454e-01_jprb,1.6379e-01_jprb/)  
kbo( :,28, 6) = (/&
 & 1.3863e-01_jprb,1.3755e-01_jprb,1.3670e-01_jprb,1.3598e-01_jprb,1.3532e-01_jprb/)  
kbo( :,29, 6) = (/&
 & 1.1195e-01_jprb,1.1112e-01_jprb,1.1039e-01_jprb,1.0972e-01_jprb,1.0905e-01_jprb/)  
kbo( :,30, 6) = (/&
 & 8.9622e-02_jprb,8.8892e-02_jprb,8.8204e-02_jprb,8.7546e-02_jprb,8.6864e-02_jprb/)  
kbo( :,31, 6) = (/&
 & 7.0503e-02_jprb,6.9820e-02_jprb,6.9151e-02_jprb,6.8505e-02_jprb,6.7845e-02_jprb/)  
kbo( :,32, 6) = (/&
 & 5.5386e-02_jprb,5.4746e-02_jprb,5.4116e-02_jprb,5.3514e-02_jprb,5.2914e-02_jprb/)  
kbo( :,33, 6) = (/&
 & 4.3379e-02_jprb,4.2797e-02_jprb,4.2232e-02_jprb,4.1691e-02_jprb,4.1166e-02_jprb/)  
kbo( :,34, 6) = (/&
 & 3.4320e-02_jprb,3.3808e-02_jprb,3.3321e-02_jprb,3.2856e-02_jprb,3.2407e-02_jprb/)  
kbo( :,35, 6) = (/&
 & 2.7216e-02_jprb,2.6777e-02_jprb,2.6359e-02_jprb,2.5963e-02_jprb,2.5584e-02_jprb/)  
kbo( :,36, 6) = (/&
 & 2.1684e-02_jprb,2.1311e-02_jprb,2.0954e-02_jprb,2.0621e-02_jprb,2.0303e-02_jprb/)  
kbo( :,37, 6) = (/&
 & 1.7460e-02_jprb,1.7144e-02_jprb,1.6842e-02_jprb,1.6560e-02_jprb,1.6295e-02_jprb/)  
kbo( :,38, 6) = (/&
 & 1.4038e-02_jprb,1.3770e-02_jprb,1.3517e-02_jprb,1.3278e-02_jprb,1.3058e-02_jprb/)  
kbo( :,39, 6) = (/&
 & 1.1256e-02_jprb,1.1031e-02_jprb,1.0816e-02_jprb,1.0618e-02_jprb,1.0434e-02_jprb/)  
kbo( :,40, 6) = (/&
 & 9.1649e-03_jprb,8.9760e-03_jprb,8.7972e-03_jprb,8.6398e-03_jprb,8.4878e-03_jprb/)  
kbo( :,41, 6) = (/&
 & 7.4755e-03_jprb,7.3166e-03_jprb,7.1692e-03_jprb,7.0488e-03_jprb,6.9207e-03_jprb/)  
kbo( :,42, 6) = (/&
 & 6.0804e-03_jprb,5.9624e-03_jprb,5.8409e-03_jprb,5.7188e-03_jprb,5.6367e-03_jprb/)  
kbo( :,43, 6) = (/&
 & 4.9643e-03_jprb,4.8712e-03_jprb,4.7704e-03_jprb,4.6675e-03_jprb,4.6008e-03_jprb/)  
kbo( :,44, 6) = (/&
 & 4.0546e-03_jprb,3.9806e-03_jprb,3.8967e-03_jprb,3.8101e-03_jprb,3.7308e-03_jprb/)  
kbo( :,45, 6) = (/&
 & 3.3063e-03_jprb,3.2467e-03_jprb,3.1772e-03_jprb,3.1048e-03_jprb,3.0380e-03_jprb/)  
kbo( :,46, 6) = (/&
 & 2.6976e-03_jprb,2.6493e-03_jprb,2.5918e-03_jprb,2.5315e-03_jprb,2.4753e-03_jprb/)  
kbo( :,47, 6) = (/&
 & 2.2084e-03_jprb,2.1692e-03_jprb,2.1216e-03_jprb,2.0717e-03_jprb,2.0247e-03_jprb/)  
kbo( :,48, 6) = (/&
 & 1.8045e-03_jprb,1.7627e-03_jprb,1.7331e-03_jprb,1.6919e-03_jprb,1.6528e-03_jprb/)  
kbo( :,49, 6) = (/&
 & 1.4712e-03_jprb,1.4359e-03_jprb,1.4119e-03_jprb,1.3778e-03_jprb,1.3455e-03_jprb/)  
kbo( :,50, 6) = (/&
 & 1.2061e-03_jprb,1.1766e-03_jprb,1.1505e-03_jprb,1.1288e-03_jprb,1.1022e-03_jprb/)  
kbo( :,51, 6) = (/&
 & 9.9096e-04_jprb,9.6691e-04_jprb,9.4524e-04_jprb,9.2753e-04_jprb,9.0555e-04_jprb/)  
kbo( :,52, 6) = (/&
 & 8.0904e-04_jprb,7.9365e-04_jprb,7.7550e-04_jprb,7.6091e-04_jprb,7.4280e-04_jprb/)  
kbo( :,53, 6) = (/&
 & 6.6208e-04_jprb,6.5010e-04_jprb,6.3515e-04_jprb,6.2298e-04_jprb,6.0802e-04_jprb/)  
kbo( :,54, 6) = (/&
 & 5.4731e-04_jprb,5.3810e-04_jprb,5.2612e-04_jprb,5.1599e-04_jprb,5.0369e-04_jprb/)  
kbo( :,55, 6) = (/&
 & 4.5523e-04_jprb,4.4817e-04_jprb,4.3877e-04_jprb,4.2800e-04_jprb,4.2030e-04_jprb/)  
kbo( :,56, 6) = (/&
 & 3.7865e-04_jprb,3.7332e-04_jprb,3.6607e-04_jprb,3.5724e-04_jprb,3.5095e-04_jprb/)  
kbo( :,57, 6) = (/&
 & 3.1496e-04_jprb,3.1113e-04_jprb,3.0556e-04_jprb,2.9842e-04_jprb,2.9145e-04_jprb/)  
kbo( :,58, 6) = (/&
 & 2.6256e-04_jprb,2.5998e-04_jprb,2.5570e-04_jprb,2.5003e-04_jprb,2.4428e-04_jprb/)  
kbo( :,59, 6) = (/&
 & 2.2328e-04_jprb,2.2151e-04_jprb,2.1824e-04_jprb,2.1368e-04_jprb,2.0910e-04_jprb/)  
kbo( :,13, 7) = (/&
 & 3.5144e+00_jprb,3.3937e+00_jprb,3.2768e+00_jprb,3.1634e+00_jprb,3.0537e+00_jprb/)  
kbo( :,14, 7) = (/&
 & 3.0165e+00_jprb,2.9173e+00_jprb,2.8200e+00_jprb,2.7244e+00_jprb,2.6317e+00_jprb/)  
kbo( :,15, 7) = (/&
 & 2.6711e+00_jprb,2.5902e+00_jprb,2.5088e+00_jprb,2.4285e+00_jprb,2.3516e+00_jprb/)  
kbo( :,16, 7) = (/&
 & 2.3379e+00_jprb,2.2701e+00_jprb,2.2031e+00_jprb,2.1365e+00_jprb,2.0740e+00_jprb/)  
kbo( :,17, 7) = (/&
 & 2.0449e+00_jprb,1.9876e+00_jprb,1.9309e+00_jprb,1.8761e+00_jprb,1.8247e+00_jprb/)  
kbo( :,18, 7) = (/&
 & 1.7762e+00_jprb,1.7285e+00_jprb,1.6813e+00_jprb,1.6362e+00_jprb,1.5941e+00_jprb/)  
kbo( :,19, 7) = (/&
 & 1.5531e+00_jprb,1.5133e+00_jprb,1.4745e+00_jprb,1.4378e+00_jprb,1.4037e+00_jprb/)  
kbo( :,20, 7) = (/&
 & 1.3391e+00_jprb,1.3069e+00_jprb,1.2760e+00_jprb,1.2466e+00_jprb,1.2198e+00_jprb/)  
kbo( :,21, 7) = (/&
 & 1.1467e+00_jprb,1.1212e+00_jprb,1.0970e+00_jprb,1.0743e+00_jprb,1.0539e+00_jprb/)  
kbo( :,22, 7) = (/&
 & 9.7329e-01_jprb,9.5340e-01_jprb,9.3512e-01_jprb,9.1844e-01_jprb,9.0375e-01_jprb/)  
kbo( :,23, 7) = (/&
 & 8.2392e-01_jprb,8.0923e-01_jprb,7.9603e-01_jprb,7.8447e-01_jprb,7.7374e-01_jprb/)  
kbo( :,24, 7) = (/&
 & 7.0013e-01_jprb,6.8981e-01_jprb,6.8073e-01_jprb,6.7262e-01_jprb,6.6488e-01_jprb/)  
kbo( :,25, 7) = (/&
 & 5.9333e-01_jprb,5.8623e-01_jprb,5.8008e-01_jprb,5.7417e-01_jprb,5.6882e-01_jprb/)  
kbo( :,26, 7) = (/&
 & 5.0099e-01_jprb,4.9624e-01_jprb,4.9180e-01_jprb,4.8790e-01_jprb,4.8459e-01_jprb/)  
kbo( :,27, 7) = (/&
 & 4.1867e-01_jprb,4.1536e-01_jprb,4.1237e-01_jprb,4.0992e-01_jprb,4.0810e-01_jprb/)  
kbo( :,28, 7) = (/&
 & 3.4703e-01_jprb,3.4468e-01_jprb,3.4282e-01_jprb,3.4143e-01_jprb,3.4043e-01_jprb/)  
kbo( :,29, 7) = (/&
 & 2.8153e-01_jprb,2.7991e-01_jprb,2.7869e-01_jprb,2.7784e-01_jprb,2.7705e-01_jprb/)  
kbo( :,30, 7) = (/&
 & 2.2635e-01_jprb,2.2520e-01_jprb,2.2433e-01_jprb,2.2358e-01_jprb,2.2275e-01_jprb/)  
kbo( :,31, 7) = (/&
 & 1.7873e-01_jprb,1.7779e-01_jprb,1.7701e-01_jprb,1.7620e-01_jprb,1.7525e-01_jprb/)  
kbo( :,32, 7) = (/&
 & 1.4094e-01_jprb,1.4013e-01_jprb,1.3934e-01_jprb,1.3848e-01_jprb,1.3746e-01_jprb/)  
kbo( :,33, 7) = (/&
 & 1.1081e-01_jprb,1.1005e-01_jprb,1.0925e-01_jprb,1.0837e-01_jprb,1.0737e-01_jprb/)  
kbo( :,34, 7) = (/&
 & 8.8073e-02_jprb,8.7360e-02_jprb,8.6598e-02_jprb,8.5752e-02_jprb,8.4831e-02_jprb/)  
kbo( :,35, 7) = (/&
 & 7.0093e-02_jprb,6.9431e-02_jprb,6.8725e-02_jprb,6.7961e-02_jprb,6.7163e-02_jprb/)  
kbo( :,36, 7) = (/&
 & 5.5974e-02_jprb,5.5383e-02_jprb,5.4751e-02_jprb,5.4084e-02_jprb,5.3401e-02_jprb/)  
kbo( :,37, 7) = (/&
 & 4.5129e-02_jprb,4.4617e-02_jprb,4.4069e-02_jprb,4.3496e-02_jprb,4.2919e-02_jprb/)  
kbo( :,38, 7) = (/&
 & 3.6297e-02_jprb,3.5849e-02_jprb,3.5383e-02_jprb,3.4895e-02_jprb,3.4409e-02_jprb/)  
kbo( :,39, 7) = (/&
 & 2.9094e-02_jprb,2.8702e-02_jprb,2.8301e-02_jprb,2.7894e-02_jprb,2.7483e-02_jprb/)  
kbo( :,40, 7) = (/&
 & 2.3698e-02_jprb,2.3361e-02_jprb,2.3022e-02_jprb,2.2702e-02_jprb,2.2363e-02_jprb/)  
kbo( :,41, 7) = (/&
 & 1.9342e-02_jprb,1.9046e-02_jprb,1.8762e-02_jprb,1.8535e-02_jprb,1.8252e-02_jprb/)  
kbo( :,42, 7) = (/&
 & 1.5735e-02_jprb,1.5529e-02_jprb,1.5289e-02_jprb,1.5039e-02_jprb,1.4884e-02_jprb/)  
kbo( :,43, 7) = (/&
 & 1.2856e-02_jprb,1.2693e-02_jprb,1.2490e-02_jprb,1.2276e-02_jprb,1.2162e-02_jprb/)  
kbo( :,44, 7) = (/&
 & 1.0504e-02_jprb,1.0374e-02_jprb,1.0203e-02_jprb,1.0021e-02_jprb,9.8561e-03_jprb/)  
kbo( :,45, 7) = (/&
 & 8.5662e-03_jprb,8.4611e-03_jprb,8.3174e-03_jprb,8.1619e-03_jprb,8.0238e-03_jprb/)  
kbo( :,46, 7) = (/&
 & 6.9878e-03_jprb,6.9029e-03_jprb,6.7830e-03_jprb,6.6504e-03_jprb,6.5338e-03_jprb/)  
kbo( :,47, 7) = (/&
 & 5.7199e-03_jprb,5.6500e-03_jprb,5.5517e-03_jprb,5.4400e-03_jprb,5.3409e-03_jprb/)  
kbo( :,48, 7) = (/&
 & 4.6721e-03_jprb,4.5783e-03_jprb,4.5326e-03_jprb,4.4394e-03_jprb,4.3553e-03_jprb/)  
kbo( :,49, 7) = (/&
 & 3.8045e-03_jprb,3.7261e-03_jprb,3.6884e-03_jprb,3.6111e-03_jprb,3.5400e-03_jprb/)  
kbo( :,50, 7) = (/&
 & 3.1168e-03_jprb,3.0525e-03_jprb,2.9971e-03_jprb,2.9577e-03_jprb,2.8982e-03_jprb/)  
kbo( :,51, 7) = (/&
 & 2.5606e-03_jprb,2.5082e-03_jprb,2.4624e-03_jprb,2.4305e-03_jprb,2.3812e-03_jprb/)  
kbo( :,52, 7) = (/&
 & 2.0858e-03_jprb,2.0571e-03_jprb,2.0195e-03_jprb,1.9935e-03_jprb,1.9528e-03_jprb/)  
kbo( :,53, 7) = (/&
 & 1.7067e-03_jprb,1.6831e-03_jprb,1.6522e-03_jprb,1.6308e-03_jprb,1.5976e-03_jprb/)  
kbo( :,54, 7) = (/&
 & 1.4124e-03_jprb,1.3940e-03_jprb,1.3693e-03_jprb,1.3524e-03_jprb,1.3253e-03_jprb/)  
kbo( :,55, 7) = (/&
 & 1.1765e-03_jprb,1.1628e-03_jprb,1.1437e-03_jprb,1.1214e-03_jprb,1.1087e-03_jprb/)  
kbo( :,56, 7) = (/&
 & 9.8017e-04_jprb,9.7016e-04_jprb,9.5539e-04_jprb,9.3773e-04_jprb,9.2785e-04_jprb/)  
kbo( :,57, 7) = (/&
 & 8.1688e-04_jprb,8.0965e-04_jprb,7.9840e-04_jprb,7.8450e-04_jprb,7.6983e-04_jprb/)  
kbo( :,58, 7) = (/&
 & 6.8243e-04_jprb,6.7751e-04_jprb,6.6917e-04_jprb,6.5832e-04_jprb,6.4667e-04_jprb/)  
kbo( :,59, 7) = (/&
 & 5.8205e-04_jprb,5.7925e-04_jprb,5.7356e-04_jprb,5.6509e-04_jprb,5.5607e-04_jprb/)  
kbo( :,13, 8) = (/&
 & 1.1247e+01_jprb,1.0949e+01_jprb,1.0618e+01_jprb,1.0275e+01_jprb,9.9354e+00_jprb/)  
kbo( :,14, 8) = (/&
 & 9.4998e+00_jprb,9.2422e+00_jprb,8.9633e+00_jprb,8.6775e+00_jprb,8.4009e+00_jprb/)  
kbo( :,15, 8) = (/&
 & 8.1034e+00_jprb,7.8837e+00_jprb,7.6521e+00_jprb,7.4181e+00_jprb,7.1838e+00_jprb/)  
kbo( :,16, 8) = (/&
 & 6.9956e+00_jprb,6.8151e+00_jprb,6.6234e+00_jprb,6.4261e+00_jprb,6.2274e+00_jprb/)  
kbo( :,17, 8) = (/&
 & 6.1438e+00_jprb,5.9920e+00_jprb,5.8323e+00_jprb,5.6650e+00_jprb,5.4972e+00_jprb/)  
kbo( :,18, 8) = (/&
 & 5.4091e+00_jprb,5.2794e+00_jprb,5.1420e+00_jprb,4.9996e+00_jprb,4.8583e+00_jprb/)  
kbo( :,19, 8) = (/&
 & 4.8000e+00_jprb,4.6894e+00_jprb,4.5724e+00_jprb,4.4526e+00_jprb,4.3345e+00_jprb/)  
kbo( :,20, 8) = (/&
 & 4.2099e+00_jprb,4.1143e+00_jprb,4.0152e+00_jprb,3.9152e+00_jprb,3.8177e+00_jprb/)  
kbo( :,21, 8) = (/&
 & 3.6600e+00_jprb,3.5795e+00_jprb,3.4965e+00_jprb,3.4138e+00_jprb,3.3344e+00_jprb/)  
kbo( :,22, 8) = (/&
 & 3.1475e+00_jprb,3.0803e+00_jprb,3.0119e+00_jprb,2.9452e+00_jprb,2.8804e+00_jprb/)  
kbo( :,23, 8) = (/&
 & 2.6953e+00_jprb,2.6395e+00_jprb,2.5848e+00_jprb,2.5305e+00_jprb,2.4794e+00_jprb/)  
kbo( :,24, 8) = (/&
 & 2.3108e+00_jprb,2.2665e+00_jprb,2.2227e+00_jprb,2.1812e+00_jprb,2.1425e+00_jprb/)  
kbo( :,25, 8) = (/&
 & 1.9716e+00_jprb,1.9373e+00_jprb,1.9040e+00_jprb,1.8732e+00_jprb,1.8452e+00_jprb/)  
kbo( :,26, 8) = (/&
 & 1.6730e+00_jprb,1.6473e+00_jprb,1.6232e+00_jprb,1.6019e+00_jprb,1.5822e+00_jprb/)  
kbo( :,27, 8) = (/&
 & 1.4039e+00_jprb,1.3856e+00_jprb,1.3691e+00_jprb,1.3536e+00_jprb,1.3394e+00_jprb/)  
kbo( :,28, 8) = (/&
 & 1.1694e+00_jprb,1.1563e+00_jprb,1.1443e+00_jprb,1.1331e+00_jprb,1.1233e+00_jprb/)  
kbo( :,29, 8) = (/&
 & 9.5436e-01_jprb,9.4464e-01_jprb,9.3564e-01_jprb,9.2762e-01_jprb,9.2078e-01_jprb/)  
kbo( :,30, 8) = (/&
 & 7.7171e-01_jprb,7.6417e-01_jprb,7.5736e-01_jprb,7.5152e-01_jprb,7.4699e-01_jprb/)  
kbo( :,31, 8) = (/&
 & 6.1295e-01_jprb,6.0696e-01_jprb,6.0170e-01_jprb,5.9736e-01_jprb,5.9407e-01_jprb/)  
kbo( :,32, 8) = (/&
 & 4.8600e-01_jprb,4.8128e-01_jprb,4.7723e-01_jprb,4.7397e-01_jprb,4.7138e-01_jprb/)  

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


SUBROUTINE part5

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


kbo( :,33, 8) = (/&
 & 3.8415e-01_jprb,3.8042e-01_jprb,3.7730e-01_jprb,3.7473e-01_jprb,3.7262e-01_jprb/)  
kbo( :,34, 8) = (/&
 & 3.0697e-01_jprb,3.0410e-01_jprb,3.0171e-01_jprb,2.9969e-01_jprb,2.9792e-01_jprb/)  
kbo( :,35, 8) = (/&
 & 2.4580e-01_jprb,2.4358e-01_jprb,2.4169e-01_jprb,2.4002e-01_jprb,2.3839e-01_jprb/)  
kbo( :,36, 8) = (/&
 & 1.9762e-01_jprb,1.9584e-01_jprb,1.9432e-01_jprb,1.9290e-01_jprb,1.9143e-01_jprb/)  
kbo( :,37, 8) = (/&
 & 1.6039e-01_jprb,1.5897e-01_jprb,1.5773e-01_jprb,1.5653e-01_jprb,1.5525e-01_jprb/)  
kbo( :,38, 8) = (/&
 & 1.2981e-01_jprb,1.2864e-01_jprb,1.2763e-01_jprb,1.2661e-01_jprb,1.2550e-01_jprb/)  
kbo( :,39, 8) = (/&
 & 1.0464e-01_jprb,1.0367e-01_jprb,1.0279e-01_jprb,1.0196e-01_jprb,1.0102e-01_jprb/)  
kbo( :,40, 8) = (/&
 & 8.5656e-02_jprb,8.4878e-02_jprb,8.4168e-02_jprb,8.3551e-02_jprb,8.2787e-02_jprb/)  
kbo( :,41, 8) = (/&
 & 7.0184e-02_jprb,6.9534e-02_jprb,6.8986e-02_jprb,6.8614e-02_jprb,6.7985e-02_jprb/)  
kbo( :,42, 8) = (/&
 & 5.7310e-02_jprb,5.6919e-02_jprb,5.6491e-02_jprb,5.5977e-02_jprb,5.5749e-02_jprb/)  
kbo( :,43, 8) = (/&
 & 4.6943e-02_jprb,4.6680e-02_jprb,4.6336e-02_jprb,4.5896e-02_jprb,4.5779e-02_jprb/)  
kbo( :,44, 8) = (/&
 & 3.8447e-02_jprb,3.8265e-02_jprb,3.7983e-02_jprb,3.7610e-02_jprb,3.7254e-02_jprb/)  
kbo( :,45, 8) = (/&
 & 3.1416e-02_jprb,3.1280e-02_jprb,3.1046e-02_jprb,3.0737e-02_jprb,3.0447e-02_jprb/)  
kbo( :,46, 8) = (/&
 & 2.5663e-02_jprb,2.5562e-02_jprb,2.5366e-02_jprb,2.5110e-02_jprb,2.4876e-02_jprb/)  
kbo( :,47, 8) = (/&
 & 2.1026e-02_jprb,2.0945e-02_jprb,2.0784e-02_jprb,2.0576e-02_jprb,2.0390e-02_jprb/)  
kbo( :,48, 8) = (/&
 & 1.7175e-02_jprb,1.6957e-02_jprb,1.6972e-02_jprb,1.6802e-02_jprb,1.6659e-02_jprb/)  
kbo( :,49, 8) = (/&
 & 1.3974e-02_jprb,1.3790e-02_jprb,1.3801e-02_jprb,1.3660e-02_jprb,1.3550e-02_jprb/)  
kbo( :,50, 8) = (/&
 & 1.1444e-02_jprb,1.1294e-02_jprb,1.1196e-02_jprb,1.1188e-02_jprb,1.1103e-02_jprb/)  
kbo( :,51, 8) = (/&
 & 9.4010e-03_jprb,9.2766e-03_jprb,9.1976e-03_jprb,9.1935e-03_jprb,9.1284e-03_jprb/)  
kbo( :,52, 8) = (/&
 & 7.6374e-03_jprb,7.6018e-03_jprb,7.5370e-03_jprb,7.5350e-03_jprb,7.4842e-03_jprb/)  
kbo( :,53, 8) = (/&
 & 6.2404e-03_jprb,6.2108e-03_jprb,6.1568e-03_jprb,6.1543e-03_jprb,6.1140e-03_jprb/)  
kbo( :,54, 8) = (/&
 & 5.1676e-03_jprb,5.1471e-03_jprb,5.1049e-03_jprb,5.1078e-03_jprb,5.0779e-03_jprb/)  
kbo( :,55, 8) = (/&
 & 4.3128e-03_jprb,4.3025e-03_jprb,4.2708e-03_jprb,4.2369e-03_jprb,4.2598e-03_jprb/)  
kbo( :,56, 8) = (/&
 & 3.5995e-03_jprb,3.5977e-03_jprb,3.5746e-03_jprb,3.5491e-03_jprb,3.5749e-03_jprb/)  
kbo( :,57, 8) = (/&
 & 3.0055e-03_jprb,3.0101e-03_jprb,2.9938e-03_jprb,2.9746e-03_jprb,2.9652e-03_jprb/)  
kbo( :,58, 8) = (/&
 & 2.5176e-03_jprb,2.5272e-03_jprb,2.5169e-03_jprb,2.5032e-03_jprb,2.4979e-03_jprb/)  
kbo( :,59, 8) = (/&
 & 2.1638e-03_jprb,2.1807e-03_jprb,2.1789e-03_jprb,2.1728e-03_jprb,2.1711e-03_jprb/)  
kbo( :,13, 9) = (/&
 & 6.6930e+01_jprb,6.5036e+01_jprb,6.3159e+01_jprb,6.1318e+01_jprb,5.9549e+01_jprb/)  
kbo( :,14, 9) = (/&
 & 5.8293e+01_jprb,5.6634e+01_jprb,5.4990e+01_jprb,5.3428e+01_jprb,5.1912e+01_jprb/)  
kbo( :,15, 9) = (/&
 & 5.0205e+01_jprb,4.8785e+01_jprb,4.7427e+01_jprb,4.6113e+01_jprb,4.4777e+01_jprb/)  
kbo( :,16, 9) = (/&
 & 4.2911e+01_jprb,4.1757e+01_jprb,4.0616e+01_jprb,3.9459e+01_jprb,3.8271e+01_jprb/)  
kbo( :,17, 9) = (/&
 & 3.6557e+01_jprb,3.5595e+01_jprb,3.4588e+01_jprb,3.3574e+01_jprb,3.2559e+01_jprb/)  
kbo( :,18, 9) = (/&
 & 3.1149e+01_jprb,3.0309e+01_jprb,2.9446e+01_jprb,2.8581e+01_jprb,2.7714e+01_jprb/)  
kbo( :,19, 9) = (/&
 & 2.6798e+01_jprb,2.6081e+01_jprb,2.5351e+01_jprb,2.4620e+01_jprb,2.3892e+01_jprb/)  
kbo( :,20, 9) = (/&
 & 2.3235e+01_jprb,2.2624e+01_jprb,2.2007e+01_jprb,2.1386e+01_jprb,2.0773e+01_jprb/)  
kbo( :,21, 9) = (/&
 & 2.0332e+01_jprb,1.9813e+01_jprb,1.9282e+01_jprb,1.8758e+01_jprb,1.8233e+01_jprb/)  
kbo( :,22, 9) = (/&
 & 1.7867e+01_jprb,1.7423e+01_jprb,1.6975e+01_jprb,1.6525e+01_jprb,1.6078e+01_jprb/)  
kbo( :,23, 9) = (/&
 & 1.5726e+01_jprb,1.5346e+01_jprb,1.4961e+01_jprb,1.4574e+01_jprb,1.4194e+01_jprb/)  
kbo( :,24, 9) = (/&
 & 1.3878e+01_jprb,1.3552e+01_jprb,1.3218e+01_jprb,1.2890e+01_jprb,1.2567e+01_jprb/)  
kbo( :,25, 9) = (/&
 & 1.2174e+01_jprb,1.1894e+01_jprb,1.1612e+01_jprb,1.1333e+01_jprb,1.1065e+01_jprb/)  
kbo( :,26, 9) = (/&
 & 1.0586e+01_jprb,1.0349e+01_jprb,1.0113e+01_jprb,9.8834e+00_jprb,9.6689e+00_jprb/)  
kbo( :,27, 9) = (/&
 & 9.0691e+00_jprb,8.8721e+00_jprb,8.6784e+00_jprb,8.4956e+00_jprb,8.3263e+00_jprb/)  
kbo( :,28, 9) = (/&
 & 7.6767e+00_jprb,7.5165e+00_jprb,7.3638e+00_jprb,7.2221e+00_jprb,7.0906e+00_jprb/)  
kbo( :,29, 9) = (/&
 & 6.3535e+00_jprb,6.2280e+00_jprb,6.1107e+00_jprb,6.0030e+00_jprb,5.9021e+00_jprb/)  
kbo( :,30, 9) = (/&
 & 5.2055e+00_jprb,5.1092e+00_jprb,5.0195e+00_jprb,4.9376e+00_jprb,4.8626e+00_jprb/)  
kbo( :,31, 9) = (/&
 & 4.1917e+00_jprb,4.1182e+00_jprb,4.0499e+00_jprb,3.9891e+00_jprb,3.9344e+00_jprb/)  
kbo( :,32, 9) = (/&
 & 3.3675e+00_jprb,3.3117e+00_jprb,3.2607e+00_jprb,3.2163e+00_jprb,3.1756e+00_jprb/)  
kbo( :,33, 9) = (/&
 & 2.6963e+00_jprb,2.6546e+00_jprb,2.6175e+00_jprb,2.5837e+00_jprb,2.5542e+00_jprb/)  
kbo( :,34, 9) = (/&
 & 2.1803e+00_jprb,2.1495e+00_jprb,2.1217e+00_jprb,2.0970e+00_jprb,2.0762e+00_jprb/)  
kbo( :,35, 9) = (/&
 & 1.7668e+00_jprb,1.7436e+00_jprb,1.7230e+00_jprb,1.7051e+00_jprb,1.6899e+00_jprb/)  
kbo( :,36, 9) = (/&
 & 1.4368e+00_jprb,1.4193e+00_jprb,1.4041e+00_jprb,1.3910e+00_jprb,1.3800e+00_jprb/)  
kbo( :,37, 9) = (/&
 & 1.1784e+00_jprb,1.1654e+00_jprb,1.1542e+00_jprb,1.1446e+00_jprb,1.1369e+00_jprb/)  
kbo( :,38, 9) = (/&
 & 9.6334e-01_jprb,9.5349e-01_jprb,9.4564e-01_jprb,9.3870e-01_jprb,9.3338e-01_jprb/)  
kbo( :,39, 9) = (/&
 & 7.8429e-01_jprb,7.7685e-01_jprb,7.7074e-01_jprb,7.6618e-01_jprb,7.6263e-01_jprb/)  
kbo( :,40, 9) = (/&
 & 6.4772e-01_jprb,6.4229e-01_jprb,6.3796e-01_jprb,6.3535e-01_jprb,6.3341e-01_jprb/)  
kbo( :,41, 9) = (/&
 & 5.3551e-01_jprb,5.3135e-01_jprb,5.2845e-01_jprb,5.2779e-01_jprb,5.2692e-01_jprb/)  
kbo( :,42, 9) = (/&
 & 4.4125e-01_jprb,4.3914e-01_jprb,4.3725e-01_jprb,4.3576e-01_jprb,4.3762e-01_jprb/)  
kbo( :,43, 9) = (/&
 & 3.6461e-01_jprb,3.6349e-01_jprb,3.6221e-01_jprb,3.6126e-01_jprb,3.6369e-01_jprb/)  
kbo( :,44, 9) = (/&
 & 3.0116e-01_jprb,3.0069e-01_jprb,2.9982e-01_jprb,2.9918e-01_jprb,2.9973e-01_jprb/)  
kbo( :,45, 9) = (/&
 & 2.4811e-01_jprb,2.4796e-01_jprb,2.4739e-01_jprb,2.4699e-01_jprb,2.4766e-01_jprb/)  
kbo( :,46, 9) = (/&
 & 2.0425e-01_jprb,2.0434e-01_jprb,2.0395e-01_jprb,2.0369e-01_jprb,2.0438e-01_jprb/)  
kbo( :,47, 9) = (/&
 & 1.6854e-01_jprb,1.6878e-01_jprb,1.6855e-01_jprb,1.6839e-01_jprb,1.6908e-01_jprb/)  
kbo( :,48, 9) = (/&
 & 1.3856e-01_jprb,1.3781e-01_jprb,1.3873e-01_jprb,1.3865e-01_jprb,1.3926e-01_jprb/)  
kbo( :,49, 9) = (/&
 & 1.1334e-01_jprb,1.1274e-01_jprb,1.1357e-01_jprb,1.1351e-01_jprb,1.1403e-01_jprb/)  
kbo( :,50, 9) = (/&
 & 9.3340e-02_jprb,9.2916e-02_jprb,9.2960e-02_jprb,9.3712e-02_jprb,9.4205e-02_jprb/)  
kbo( :,51, 9) = (/&
 & 7.7078e-02_jprb,7.6810e-02_jprb,7.6922e-02_jprb,7.7641e-02_jprb,7.8122e-02_jprb/)  
kbo( :,52, 9) = (/&
 & 6.2961e-02_jprb,6.3281e-02_jprb,6.3427e-02_jprb,6.4092e-02_jprb,6.4534e-02_jprb/)  
kbo( :,53, 9) = (/&
 & 5.1588e-02_jprb,5.1905e-02_jprb,5.2063e-02_jprb,5.2646e-02_jprb,5.3031e-02_jprb/)  
kbo( :,54, 9) = (/&
 & 4.2943e-02_jprb,4.3300e-02_jprb,4.3511e-02_jprb,4.4097e-02_jprb,4.4499e-02_jprb/)  
kbo( :,55, 9) = (/&
 & 3.6096e-02_jprb,3.6506e-02_jprb,3.6778e-02_jprb,3.7049e-02_jprb,3.7847e-02_jprb/)  
kbo( :,56, 9) = (/&
 & 3.0345e-02_jprb,3.0787e-02_jprb,3.1097e-02_jprb,3.1405e-02_jprb,3.2218e-02_jprb/)  
kbo( :,57, 9) = (/&
 & 2.5512e-02_jprb,2.5968e-02_jprb,2.6302e-02_jprb,2.6632e-02_jprb,2.7138e-02_jprb/)  
kbo( :,58, 9) = (/&
 & 2.1539e-02_jprb,2.1998e-02_jprb,2.2352e-02_jprb,2.2699e-02_jprb,2.3217e-02_jprb/)  
kbo( :,59, 9) = (/&
 & 1.8855e-02_jprb,1.9380e-02_jprb,1.9801e-02_jprb,2.0231e-02_jprb,2.0859e-02_jprb/)  
kbo( :,13,10) = (/&
 & 2.5222e+02_jprb,2.4612e+02_jprb,2.3929e+02_jprb,2.3199e+02_jprb,2.2461e+02_jprb/)  
kbo( :,14,10) = (/&
 & 2.3124e+02_jprb,2.2528e+02_jprb,2.1850e+02_jprb,2.1149e+02_jprb,2.0433e+02_jprb/)  
kbo( :,15,10) = (/&
 & 2.0842e+02_jprb,2.0210e+02_jprb,1.9531e+02_jprb,1.8854e+02_jprb,1.8251e+02_jprb/)  
kbo( :,16,10) = (/&
 & 1.8399e+02_jprb,1.7799e+02_jprb,1.7194e+02_jprb,1.6680e+02_jprb,1.6231e+02_jprb/)  
kbo( :,17,10) = (/&
 & 1.6010e+02_jprb,1.5487e+02_jprb,1.5049e+02_jprb,1.4638e+02_jprb,1.4212e+02_jprb/)  
kbo( :,18,10) = (/&
 & 1.3804e+02_jprb,1.3430e+02_jprb,1.3065e+02_jprb,1.2671e+02_jprb,1.2276e+02_jprb/)  
kbo( :,19,10) = (/&
 & 1.1867e+02_jprb,1.1546e+02_jprb,1.1199e+02_jprb,1.0849e+02_jprb,1.0500e+02_jprb/)  
kbo( :,20,10) = (/&
 & 1.0103e+02_jprb,9.8101e+01_jprb,9.5080e+01_jprb,9.2102e+01_jprb,8.9111e+01_jprb/)  
kbo( :,21,10) = (/&
 & 8.5674e+01_jprb,8.3188e+01_jprb,8.0672e+01_jprb,7.8136e+01_jprb,7.5728e+01_jprb/)  
kbo( :,22,10) = (/&
 & 7.2715e+01_jprb,7.0591e+01_jprb,6.8415e+01_jprb,6.6340e+01_jprb,6.4345e+01_jprb/)  
kbo( :,23,10) = (/&
 & 6.3022e+01_jprb,6.1199e+01_jprb,5.9439e+01_jprb,5.7725e+01_jprb,5.6010e+01_jprb/)  
kbo( :,24,10) = (/&
 & 5.5774e+01_jprb,5.4272e+01_jprb,5.2819e+01_jprb,5.1321e+01_jprb,4.9883e+01_jprb/)  
kbo( :,25,10) = (/&
 & 4.9593e+01_jprb,4.8355e+01_jprb,4.7055e+01_jprb,4.5778e+01_jprb,4.4535e+01_jprb/)  
kbo( :,26,10) = (/&
 & 4.4197e+01_jprb,4.3085e+01_jprb,4.1954e+01_jprb,4.0860e+01_jprb,3.9753e+01_jprb/)  
kbo( :,27,10) = (/&
 & 3.8885e+01_jprb,3.7934e+01_jprb,3.6990e+01_jprb,3.6031e+01_jprb,3.5121e+01_jprb/)  
kbo( :,28,10) = (/&
 & 3.3738e+01_jprb,3.2939e+01_jprb,3.2117e+01_jprb,3.1331e+01_jprb,3.0617e+01_jprb/)  
kbo( :,29,10) = (/&
 & 2.8541e+01_jprb,2.7853e+01_jprb,2.7182e+01_jprb,2.6569e+01_jprb,2.6005e+01_jprb/)  
kbo( :,30,10) = (/&
 & 2.3779e+01_jprb,2.3214e+01_jprb,2.2688e+01_jprb,2.2215e+01_jprb,2.1758e+01_jprb/)  
kbo( :,31,10) = (/&
 & 1.9404e+01_jprb,1.8965e+01_jprb,1.8559e+01_jprb,1.8185e+01_jprb,1.7827e+01_jprb/)  
kbo( :,32,10) = (/&
 & 1.5788e+01_jprb,1.5447e+01_jprb,1.5130e+01_jprb,1.4835e+01_jprb,1.4579e+01_jprb/)  
kbo( :,33,10) = (/&
 & 1.2793e+01_jprb,1.2531e+01_jprb,1.2285e+01_jprb,1.2073e+01_jprb,1.1879e+01_jprb/)  
kbo( :,34,10) = (/&
 & 1.0446e+01_jprb,1.0243e+01_jprb,1.0069e+01_jprb,9.9145e+00_jprb,9.7688e+00_jprb/)  
kbo( :,35,10) = (/&
 & 8.5407e+00_jprb,8.3976e+00_jprb,8.2688e+00_jprb,8.1501e+00_jprb,8.0525e+00_jprb/)  
kbo( :,36,10) = (/&
 & 7.0161e+00_jprb,6.9119e+00_jprb,6.8145e+00_jprb,6.7306e+00_jprb,6.6644e+00_jprb/)  
kbo( :,37,10) = (/&
 & 5.8170e+00_jprb,5.7380e+00_jprb,5.6680e+00_jprb,5.6107e+00_jprb,5.5656e+00_jprb/)  
kbo( :,38,10) = (/&
 & 4.8093e+00_jprb,4.7487e+00_jprb,4.7024e+00_jprb,4.6645e+00_jprb,4.6357e+00_jprb/)  
kbo( :,39,10) = (/&
 & 3.9585e+00_jprb,3.9132e+00_jprb,3.8808e+00_jprb,3.8606e+00_jprb,3.8428e+00_jprb/)  
kbo( :,40,10) = (/&
 & 3.2997e+00_jprb,3.2689e+00_jprb,3.2488e+00_jprb,3.2415e+00_jprb,3.2340e+00_jprb/)  
kbo( :,41,10) = (/&
 & 2.7489e+00_jprb,2.7291e+00_jprb,2.7189e+00_jprb,2.7232e+00_jprb,2.7224e+00_jprb/)  
kbo( :,42,10) = (/&
 & 2.2781e+00_jprb,2.2743e+00_jprb,2.2709e+00_jprb,2.2713e+00_jprb,2.2863e+00_jprb/)  
kbo( :,43,10) = (/&
 & 1.8935e+00_jprb,1.8963e+00_jprb,1.8973e+00_jprb,1.9006e+00_jprb,1.9189e+00_jprb/)  
kbo( :,44,10) = (/&
 & 1.5720e+00_jprb,1.5786e+00_jprb,1.5822e+00_jprb,1.5873e+00_jprb,1.5962e+00_jprb/)  
kbo( :,45,10) = (/&
 & 1.3015e+00_jprb,1.3098e+00_jprb,1.3146e+00_jprb,1.3205e+00_jprb,1.3299e+00_jprb/)  
kbo( :,46,10) = (/&
 & 1.0763e+00_jprb,1.0855e+00_jprb,1.0907e+00_jprb,1.0967e+00_jprb,1.1061e+00_jprb/)  
kbo( :,47,10) = (/&
 & 8.9190e-01_jprb,9.0098e-01_jprb,9.0614e-01_jprb,9.1228e-01_jprb,9.2153e-01_jprb/)  
kbo( :,48,10) = (/&
 & 7.3634e-01_jprb,7.3759e-01_jprb,7.4968e-01_jprb,7.5555e-01_jprb,7.6432e-01_jprb/)  
kbo( :,49,10) = (/&
 & 6.0496e-01_jprb,6.0623e-01_jprb,6.1696e-01_jprb,6.2219e-01_jprb,6.3000e-01_jprb/)  
kbo( :,50,10) = (/&
 & 5.0029e-01_jprb,5.0191e-01_jprb,5.0745e-01_jprb,5.1663e-01_jprb,5.2391e-01_jprb/)  
kbo( :,51,10) = (/&
 & 4.1493e-01_jprb,4.1674e-01_jprb,4.2213e-01_jprb,4.3055e-01_jprb,4.3747e-01_jprb/)  
kbo( :,52,10) = (/&
 & 3.3972e-01_jprb,3.4486e-01_jprb,3.4995e-01_jprb,3.5750e-01_jprb,3.6394e-01_jprb/)  
kbo( :,53,10) = (/&
 & 2.7969e-01_jprb,2.8412e-01_jprb,2.8871e-01_jprb,2.9534e-01_jprb,3.0120e-01_jprb/)  
kbo( :,54,10) = (/&
 & 2.3381e-01_jprb,2.3806e-01_jprb,2.4256e-01_jprb,2.4899e-01_jprb,2.5461e-01_jprb/)  
kbo( :,55,10) = (/&
 & 1.9747e-01_jprb,2.0173e-01_jprb,2.0629e-01_jprb,2.1052e-01_jprb,2.1835e-01_jprb/)  
kbo( :,56,10) = (/&
 & 1.6704e-01_jprb,1.7122e-01_jprb,1.7573e-01_jprb,1.8004e-01_jprb,1.8767e-01_jprb/)  
kbo( :,57,10) = (/&
 & 1.4152e-01_jprb,1.4559e-01_jprb,1.5002e-01_jprb,1.5430e-01_jprb,1.5960e-01_jprb/)  
kbo( :,58,10) = (/&
 & 1.2052e-01_jprb,1.2461e-01_jprb,1.2894e-01_jprb,1.3321e-01_jprb,1.3854e-01_jprb/)  
kbo( :,59,10) = (/&
 & 1.0716e-01_jprb,1.1189e-01_jprb,1.1675e-01_jprb,1.2166e-01_jprb,1.2804e-01_jprb/)  
kbo( :,13,11) = (/&
 & 4.2154e+02_jprb,4.0884e+02_jprb,3.9820e+02_jprb,3.8820e+02_jprb,3.7793e+02_jprb/)  
kbo( :,14,11) = (/&
 & 3.9257e+02_jprb,3.8172e+02_jprb,3.7181e+02_jprb,3.6139e+02_jprb,3.5047e+02_jprb/)  
kbo( :,15,11) = (/&
 & 3.6309e+02_jprb,3.5353e+02_jprb,3.4340e+02_jprb,3.3282e+02_jprb,3.2240e+02_jprb/)  
kbo( :,16,11) = (/&
 & 3.3141e+02_jprb,3.2240e+02_jprb,3.1248e+02_jprb,3.0233e+02_jprb,2.9245e+02_jprb/)  
kbo( :,17,11) = (/&
 & 2.9757e+02_jprb,2.8848e+02_jprb,2.7872e+02_jprb,2.6968e+02_jprb,2.6158e+02_jprb/)  
kbo( :,18,11) = (/&
 & 2.6199e+02_jprb,2.5343e+02_jprb,2.4537e+02_jprb,2.3848e+02_jprb,2.3223e+02_jprb/)  
kbo( :,19,11) = (/&
 & 2.2769e+02_jprb,2.2078e+02_jprb,2.1490e+02_jprb,2.0918e+02_jprb,2.0314e+02_jprb/)  
kbo( :,20,11) = (/&
 & 1.9687e+02_jprb,1.9172e+02_jprb,1.8662e+02_jprb,1.8113e+02_jprb,1.7551e+02_jprb/)  
kbo( :,21,11) = (/&
 & 1.6926e+02_jprb,1.6478e+02_jprb,1.5994e+02_jprb,1.5502e+02_jprb,1.5010e+02_jprb/)  
kbo( :,22,11) = (/&
 & 1.4392e+02_jprb,1.3980e+02_jprb,1.3565e+02_jprb,1.3147e+02_jprb,1.2734e+02_jprb/)  
kbo( :,23,11) = (/&
 & 1.2176e+02_jprb,1.1828e+02_jprb,1.1480e+02_jprb,1.1132e+02_jprb,1.0802e+02_jprb/)  
kbo( :,24,11) = (/&
 & 1.0420e+02_jprb,1.0127e+02_jprb,9.8266e+01_jprb,9.5452e+01_jprb,9.2657e+01_jprb/)  
kbo( :,25,11) = (/&
 & 9.1405e+01_jprb,8.8856e+01_jprb,8.6441e+01_jprb,8.4023e+01_jprb,8.1601e+01_jprb/)  
kbo( :,26,11) = (/&
 & 8.1068e+01_jprb,7.8976e+01_jprb,7.6905e+01_jprb,7.4806e+01_jprb,7.2749e+01_jprb/)  
kbo( :,27,11) = (/&
 & 7.1641e+01_jprb,6.9868e+01_jprb,6.8049e+01_jprb,6.6237e+01_jprb,6.4456e+01_jprb/)  
kbo( :,28,11) = (/&
 & 6.3023e+01_jprb,6.1456e+01_jprb,5.9871e+01_jprb,5.8321e+01_jprb,5.6798e+01_jprb/)  
kbo( :,29,11) = (/&
 & 5.4205e+01_jprb,5.2861e+01_jprb,5.1529e+01_jprb,5.0220e+01_jprb,4.8999e+01_jprb/)  
kbo( :,30,11) = (/&
 & 4.5934e+01_jprb,4.4818e+01_jprb,4.3703e+01_jprb,4.2668e+01_jprb,4.1730e+01_jprb/)  
kbo( :,31,11) = (/&
 & 3.8066e+01_jprb,3.7138e+01_jprb,3.6268e+01_jprb,3.5481e+01_jprb,3.4768e+01_jprb/)  
kbo( :,32,11) = (/&
 & 3.1328e+01_jprb,3.0606e+01_jprb,2.9939e+01_jprb,2.9343e+01_jprb,2.8780e+01_jprb/)  
kbo( :,33,11) = (/&
 & 2.5648e+01_jprb,2.5098e+01_jprb,2.4592e+01_jprb,2.4122e+01_jprb,2.3697e+01_jprb/)  
kbo( :,34,11) = (/&
 & 2.1176e+01_jprb,2.0755e+01_jprb,2.0363e+01_jprb,2.0008e+01_jprb,1.9706e+01_jprb/)  
kbo( :,35,11) = (/&
 & 1.7503e+01_jprb,1.7179e+01_jprb,1.6884e+01_jprb,1.6631e+01_jprb,1.6410e+01_jprb/)  
kbo( :,36,11) = (/&
 & 1.4490e+01_jprb,1.4242e+01_jprb,1.4035e+01_jprb,1.3856e+01_jprb,1.3691e+01_jprb/)  

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


SUBROUTINE part6

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


kbo( :,37,11) = (/&
 & 1.2080e+01_jprb,1.1899e+01_jprb,1.1752e+01_jprb,1.1622e+01_jprb,1.1507e+01_jprb/)  
kbo( :,38,11) = (/&
 & 1.0040e+01_jprb,9.9127e+00_jprb,9.8092e+00_jprb,9.7168e+00_jprb,9.6388e+00_jprb/)  
kbo( :,39,11) = (/&
 & 8.3186e+00_jprb,8.2268e+00_jprb,8.1489e+00_jprb,8.0924e+00_jprb,8.0458e+00_jprb/)  
kbo( :,40,11) = (/&
 & 6.9855e+00_jprb,6.9204e+00_jprb,6.8705e+00_jprb,6.8363e+00_jprb,6.8129e+00_jprb/)  
kbo( :,41,11) = (/&
 & 5.8673e+00_jprb,5.8227e+00_jprb,5.7933e+00_jprb,5.7844e+00_jprb,5.7806e+00_jprb/)  
kbo( :,42,11) = (/&
 & 4.9033e+00_jprb,4.8902e+00_jprb,4.8772e+00_jprb,4.8711e+00_jprb,4.8995e+00_jprb/)  
kbo( :,43,11) = (/&
 & 4.1043e+00_jprb,4.1084e+00_jprb,4.1066e+00_jprb,4.1113e+00_jprb,4.1531e+00_jprb/)  
kbo( :,44,11) = (/&
 & 3.4292e+00_jprb,3.4435e+00_jprb,3.4506e+00_jprb,3.4628e+00_jprb,3.4927e+00_jprb/)  
kbo( :,45,11) = (/&
 & 2.8550e+00_jprb,2.8746e+00_jprb,2.8867e+00_jprb,2.9043e+00_jprb,2.9376e+00_jprb/)  
kbo( :,46,11) = (/&
 & 2.3728e+00_jprb,2.3953e+00_jprb,2.4108e+00_jprb,2.4301e+00_jprb,2.4648e+00_jprb/)  
kbo( :,47,11) = (/&
 & 1.9739e+00_jprb,1.9977e+00_jprb,2.0154e+00_jprb,2.0359e+00_jprb,2.0698e+00_jprb/)  
kbo( :,48,11) = (/&
 & 1.6359e+00_jprb,1.6436e+00_jprb,1.6769e+00_jprb,1.6970e+00_jprb,1.7291e+00_jprb/)  
kbo( :,49,11) = (/&
 & 1.3494e+00_jprb,1.3567e+00_jprb,1.3870e+00_jprb,1.4058e+00_jprb,1.4355e+00_jprb/)  
kbo( :,50,11) = (/&
 & 1.1201e+00_jprb,1.1274e+00_jprb,1.1447e+00_jprb,1.1735e+00_jprb,1.2015e+00_jprb/)  
kbo( :,51,11) = (/&
 & 9.3236e-01_jprb,9.3956e-01_jprb,9.5616e-01_jprb,9.8266e-01_jprb,1.0088e+00_jprb/)  
kbo( :,52,11) = (/&
 & 7.6514e-01_jprb,7.8058e-01_jprb,7.9612e-01_jprb,8.2019e-01_jprb,8.4401e-01_jprb/)  
kbo( :,53,11) = (/&
 & 6.3163e-01_jprb,6.4570e-01_jprb,6.5991e-01_jprb,6.8147e-01_jprb,7.0283e-01_jprb/)  
kbo( :,54,11) = (/&
 & 5.2916e-01_jprb,5.4264e-01_jprb,5.5622e-01_jprb,5.7680e-01_jprb,5.9711e-01_jprb/)  
kbo( :,55,11) = (/&
 & 4.4763e-01_jprb,4.6092e-01_jprb,4.7420e-01_jprb,4.8811e-01_jprb,5.1412e-01_jprb/)  
kbo( :,56,11) = (/&
 & 3.7915e-01_jprb,3.9216e-01_jprb,4.0486e-01_jprb,4.1856e-01_jprb,4.4359e-01_jprb/)  
kbo( :,57,11) = (/&
 & 3.2167e-01_jprb,3.3432e-01_jprb,3.4630e-01_jprb,3.5981e-01_jprb,3.7784e-01_jprb/)  
kbo( :,58,11) = (/&
 & 2.7464e-01_jprb,2.8702e-01_jprb,2.9867e-01_jprb,3.1204e-01_jprb,3.2934e-01_jprb/)  
kbo( :,59,11) = (/&
 & 2.4621e-01_jprb,2.6016e-01_jprb,2.7340e-01_jprb,2.8845e-01_jprb,3.0710e-01_jprb/)  
kbo( :,13,12) = (/&
 & 7.6977e+02_jprb,7.4793e+02_jprb,7.2446e+02_jprb,7.0066e+02_jprb,6.7917e+02_jprb/)  
kbo( :,14,12) = (/&
 & 7.3387e+02_jprb,7.1230e+02_jprb,6.9130e+02_jprb,6.7176e+02_jprb,6.5300e+02_jprb/)  
kbo( :,15,12) = (/&
 & 6.8782e+02_jprb,6.6903e+02_jprb,6.5059e+02_jprb,6.3401e+02_jprb,6.1759e+02_jprb/)  
kbo( :,16,12) = (/&
 & 6.4095e+02_jprb,6.2380e+02_jprb,6.0836e+02_jprb,5.9188e+02_jprb,5.7529e+02_jprb/)  
kbo( :,17,12) = (/&
 & 5.9449e+02_jprb,5.7921e+02_jprb,5.6352e+02_jprb,5.4698e+02_jprb,5.3012e+02_jprb/)  
kbo( :,18,12) = (/&
 & 5.4607e+02_jprb,5.3143e+02_jprb,5.1532e+02_jprb,4.9867e+02_jprb,4.8280e+02_jprb/)  
kbo( :,19,12) = (/&
 & 4.9392e+02_jprb,4.7903e+02_jprb,4.6380e+02_jprb,4.4890e+02_jprb,4.3556e+02_jprb/)  
kbo( :,20,12) = (/&
 & 4.3831e+02_jprb,4.2422e+02_jprb,4.1067e+02_jprb,3.9873e+02_jprb,3.8790e+02_jprb/)  
kbo( :,21,12) = (/&
 & 3.8303e+02_jprb,3.7136e+02_jprb,3.6097e+02_jprb,3.5152e+02_jprb,3.4179e+02_jprb/)  
kbo( :,22,12) = (/&
 & 3.3154e+02_jprb,3.2264e+02_jprb,3.1420e+02_jprb,3.0537e+02_jprb,2.9621e+02_jprb/)  
kbo( :,23,12) = (/&
 & 2.8552e+02_jprb,2.7799e+02_jprb,2.7005e+02_jprb,2.6190e+02_jprb,2.5375e+02_jprb/)  
kbo( :,24,12) = (/&
 & 2.4392e+02_jprb,2.3705e+02_jprb,2.3003e+02_jprb,2.2307e+02_jprb,2.1616e+02_jprb/)  
kbo( :,25,12) = (/&
 & 2.0671e+02_jprb,2.0086e+02_jprb,1.9497e+02_jprb,1.8915e+02_jprb,1.8353e+02_jprb/)  
kbo( :,26,12) = (/&
 & 1.7664e+02_jprb,1.7174e+02_jprb,1.6687e+02_jprb,1.6216e+02_jprb,1.5754e+02_jprb/)  
kbo( :,27,12) = (/&
 & 1.5319e+02_jprb,1.4908e+02_jprb,1.4506e+02_jprb,1.4106e+02_jprb,1.3709e+02_jprb/)  
kbo( :,28,12) = (/&
 & 1.3430e+02_jprb,1.3082e+02_jprb,1.2741e+02_jprb,1.2394e+02_jprb,1.2050e+02_jprb/)  
kbo( :,29,12) = (/&
 & 1.1630e+02_jprb,1.1343e+02_jprb,1.1046e+02_jprb,1.0751e+02_jprb,1.0464e+02_jprb/)  
kbo( :,30,12) = (/&
 & 1.0003e+02_jprb,9.7504e+01_jprb,9.4984e+01_jprb,9.2511e+01_jprb,9.0094e+01_jprb/)  
kbo( :,31,12) = (/&
 & 8.4543e+01_jprb,8.2421e+01_jprb,8.0309e+01_jprb,7.8252e+01_jprb,7.6362e+01_jprb/)  
kbo( :,32,12) = (/&
 & 7.1066e+01_jprb,6.9287e+01_jprb,6.7542e+01_jprb,6.5943e+01_jprb,6.4517e+01_jprb/)  
kbo( :,33,12) = (/&
 & 5.9266e+01_jprb,5.7811e+01_jprb,5.6464e+01_jprb,5.5276e+01_jprb,5.4194e+01_jprb/)  
kbo( :,34,12) = (/&
 & 4.9681e+01_jprb,4.8546e+01_jprb,4.7554e+01_jprb,4.6656e+01_jprb,4.5832e+01_jprb/)  
kbo( :,35,12) = (/&
 & 4.1619e+01_jprb,4.0779e+01_jprb,4.0048e+01_jprb,3.9371e+01_jprb,3.8753e+01_jprb/)  
kbo( :,36,12) = (/&
 & 3.4973e+01_jprb,3.4356e+01_jprb,3.3793e+01_jprb,3.3278e+01_jprb,3.2853e+01_jprb/)  
kbo( :,37,12) = (/&
 & 2.9625e+01_jprb,2.9160e+01_jprb,2.8725e+01_jprb,2.8363e+01_jprb,2.8073e+01_jprb/)  
kbo( :,38,12) = (/&
 & 2.4970e+01_jprb,2.4629e+01_jprb,2.4322e+01_jprb,2.4082e+01_jprb,2.3896e+01_jprb/)  
kbo( :,39,12) = (/&
 & 2.0934e+01_jprb,2.0693e+01_jprb,2.0489e+01_jprb,2.0344e+01_jprb,2.0233e+01_jprb/)  
kbo( :,40,12) = (/&
 & 1.7744e+01_jprb,1.7586e+01_jprb,1.7465e+01_jprb,1.7392e+01_jprb,1.7346e+01_jprb/)  
kbo( :,41,12) = (/&
 & 1.5025e+01_jprb,1.4924e+01_jprb,1.4869e+01_jprb,1.4860e+01_jprb,1.4867e+01_jprb/)  
kbo( :,42,12) = (/&
 & 1.2685e+01_jprb,1.2638e+01_jprb,1.2631e+01_jprb,1.2651e+01_jprb,1.2715e+01_jprb/)  
kbo( :,43,12) = (/&
 & 1.0719e+01_jprb,1.0717e+01_jprb,1.0742e+01_jprb,1.0783e+01_jprb,1.0880e+01_jprb/)  
kbo( :,44,12) = (/&
 & 9.0501e+00_jprb,9.0820e+00_jprb,9.1279e+00_jprb,9.1850e+00_jprb,9.2721e+00_jprb/)  
kbo( :,45,12) = (/&
 & 7.6162e+00_jprb,7.6722e+00_jprb,7.7324e+00_jprb,7.8018e+00_jprb,7.9000e+00_jprb/)  
kbo( :,46,12) = (/&
 & 6.3962e+00_jprb,6.4687e+00_jprb,6.5373e+00_jprb,6.6160e+00_jprb,6.7192e+00_jprb/)  
kbo( :,47,12) = (/&
 & 5.3742e+00_jprb,5.4559e+00_jprb,5.5296e+00_jprb,5.6153e+00_jprb,5.7197e+00_jprb/)  
kbo( :,48,12) = (/&
 & 4.4947e+00_jprb,4.5364e+00_jprb,4.6536e+00_jprb,4.7417e+00_jprb,4.8452e+00_jprb/)  
kbo( :,49,12) = (/&
 & 3.7377e+00_jprb,3.7797e+00_jprb,3.8917e+00_jprb,3.9774e+00_jprb,4.0760e+00_jprb/)  
kbo( :,50,12) = (/&
 & 3.1257e+00_jprb,3.1688e+00_jprb,3.2414e+00_jprb,3.3587e+00_jprb,3.4531e+00_jprb/)  
kbo( :,51,12) = (/&
 & 2.6197e+00_jprb,2.6616e+00_jprb,2.7310e+00_jprb,2.8422e+00_jprb,2.9329e+00_jprb/)  
kbo( :,52,12) = (/&
 & 2.1600e+00_jprb,2.2271e+00_jprb,2.2920e+00_jprb,2.3952e+00_jprb,2.4794e+00_jprb/)  
kbo( :,53,12) = (/&
 & 1.7940e+00_jprb,1.8552e+00_jprb,1.9143e+00_jprb,2.0071e+00_jprb,2.0842e+00_jprb/)  
kbo( :,54,12) = (/&
 & 1.5125e+00_jprb,1.5709e+00_jprb,1.6271e+00_jprb,1.7149e+00_jprb,1.7900e+00_jprb/)  
kbo( :,55,12) = (/&
 & 1.2864e+00_jprb,1.3434e+00_jprb,1.3983e+00_jprb,1.4607e+00_jprb,1.5586e+00_jprb/)  
kbo( :,56,12) = (/&
 & 1.0940e+00_jprb,1.1493e+00_jprb,1.2023e+00_jprb,1.2621e+00_jprb,1.3583e+00_jprb/)  
kbo( :,57,12) = (/&
 & 9.3078e-01_jprb,9.8417e-01_jprb,1.0349e+00_jprb,1.0915e+00_jprb,1.1646e+00_jprb/)  
kbo( :,58,12) = (/&
 & 7.9608e-01_jprb,8.4769e-01_jprb,8.9646e-01_jprb,9.5071e-01_jprb,1.0223e+00_jprb/)  
kbo( :,59,12) = (/&
 & 7.1554e-01_jprb,7.6833e-01_jprb,8.2032e-01_jprb,8.7901e-01_jprb,9.5749e-01_jprb/)  
kbo( :,13,13) = (/&
 & 1.4216e+03_jprb,1.3963e+03_jprb,1.3631e+03_jprb,1.3261e+03_jprb,1.2872e+03_jprb/)  
kbo( :,14,13) = (/&
 & 1.4474e+03_jprb,1.4163e+03_jprb,1.3787e+03_jprb,1.3394e+03_jprb,1.2981e+03_jprb/)  
kbo( :,15,13) = (/&
 & 1.4512e+03_jprb,1.4149e+03_jprb,1.3749e+03_jprb,1.3327e+03_jprb,1.2901e+03_jprb/)  
kbo( :,16,13) = (/&
 & 1.4256e+03_jprb,1.3858e+03_jprb,1.3435e+03_jprb,1.3004e+03_jprb,1.2608e+03_jprb/)  
kbo( :,17,13) = (/&
 & 1.3679e+03_jprb,1.3285e+03_jprb,1.2893e+03_jprb,1.2520e+03_jprb,1.2169e+03_jprb/)  
kbo( :,18,13) = (/&
 & 1.2910e+03_jprb,1.2552e+03_jprb,1.2211e+03_jprb,1.1883e+03_jprb,1.1564e+03_jprb/)  
kbo( :,19,13) = (/&
 & 1.2049e+03_jprb,1.1727e+03_jprb,1.1421e+03_jprb,1.1114e+03_jprb,1.0816e+03_jprb/)  
kbo( :,20,13) = (/&
 & 1.1167e+03_jprb,1.0881e+03_jprb,1.0594e+03_jprb,1.0292e+03_jprb,9.9813e+02_jprb/)  
kbo( :,21,13) = (/&
 & 1.0270e+03_jprb,9.9863e+02_jprb,9.6867e+02_jprb,9.3868e+02_jprb,9.1038e+02_jprb/)  
kbo( :,22,13) = (/&
 & 9.2976e+02_jprb,9.0181e+02_jprb,8.7366e+02_jprb,8.4725e+02_jprb,8.2285e+02_jprb/)  
kbo( :,23,13) = (/&
 & 8.2725e+02_jprb,8.0202e+02_jprb,7.7822e+02_jprb,7.5610e+02_jprb,7.3490e+02_jprb/)  
kbo( :,24,13) = (/&
 & 7.2581e+02_jprb,7.0458e+02_jprb,6.8480e+02_jprb,6.6655e+02_jprb,6.4907e+02_jprb/)  
kbo( :,25,13) = (/&
 & 6.3072e+02_jprb,6.1389e+02_jprb,5.9813e+02_jprb,5.8216e+02_jprb,5.6605e+02_jprb/)  
kbo( :,26,13) = (/&
 & 5.4441e+02_jprb,5.3034e+02_jprb,5.1604e+02_jprb,5.0169e+02_jprb,4.8714e+02_jprb/)  
kbo( :,27,13) = (/&
 & 4.6653e+02_jprb,4.5389e+02_jprb,4.4148e+02_jprb,4.2897e+02_jprb,4.1698e+02_jprb/)  
kbo( :,28,13) = (/&
 & 3.9708e+02_jprb,3.8655e+02_jprb,3.7613e+02_jprb,3.6588e+02_jprb,3.5605e+02_jprb/)  
kbo( :,29,13) = (/&
 & 3.3742e+02_jprb,3.2877e+02_jprb,3.2031e+02_jprb,3.1201e+02_jprb,3.0377e+02_jprb/)  
kbo( :,30,13) = (/&
 & 2.8701e+02_jprb,2.8009e+02_jprb,2.7310e+02_jprb,2.6617e+02_jprb,2.5918e+02_jprb/)  
kbo( :,31,13) = (/&
 & 2.4344e+02_jprb,2.3761e+02_jprb,2.3174e+02_jprb,2.2586e+02_jprb,2.1997e+02_jprb/)  
kbo( :,32,13) = (/&
 & 2.0631e+02_jprb,2.0140e+02_jprb,1.9647e+02_jprb,1.9146e+02_jprb,1.8661e+02_jprb/)  
kbo( :,33,13) = (/&
 & 1.7451e+02_jprb,1.7040e+02_jprb,1.6625e+02_jprb,1.6215e+02_jprb,1.5828e+02_jprb/)  
kbo( :,34,13) = (/&
 & 1.4849e+02_jprb,1.4504e+02_jprb,1.4164e+02_jprb,1.3837e+02_jprb,1.3534e+02_jprb/)  
kbo( :,35,13) = (/&
 & 1.2667e+02_jprb,1.2383e+02_jprb,1.2110e+02_jprb,1.1850e+02_jprb,1.1620e+02_jprb/)  
kbo( :,36,13) = (/&
 & 1.0839e+02_jprb,1.0609e+02_jprb,1.0390e+02_jprb,1.0191e+02_jprb,1.0024e+02_jprb/)  
kbo( :,37,13) = (/&
 & 9.3433e+01_jprb,9.1633e+01_jprb,8.9904e+01_jprb,8.8384e+01_jprb,8.7182e+01_jprb/)  
kbo( :,38,13) = (/&
 & 8.0277e+01_jprb,7.8883e+01_jprb,7.7590e+01_jprb,7.6493e+01_jprb,7.5656e+01_jprb/)  
kbo( :,39,13) = (/&
 & 6.8616e+01_jprb,6.7545e+01_jprb,6.6602e+01_jprb,6.5907e+01_jprb,6.5350e+01_jprb/)  
kbo( :,40,13) = (/&
 & 5.9404e+01_jprb,5.8632e+01_jprb,5.7971e+01_jprb,5.7558e+01_jprb,5.7248e+01_jprb/)  
kbo( :,41,13) = (/&
 & 5.1376e+01_jprb,5.0859e+01_jprb,5.0445e+01_jprb,5.0221e+01_jprb,5.0128e+01_jprb/)  
kbo( :,42,13) = (/&
 & 4.4234e+01_jprb,4.3936e+01_jprb,4.3743e+01_jprb,4.3725e+01_jprb,4.3767e+01_jprb/)  
kbo( :,43,13) = (/&
 & 3.8053e+01_jprb,3.7937e+01_jprb,3.7898e+01_jprb,3.8023e+01_jprb,3.8201e+01_jprb/)  
kbo( :,44,13) = (/&
 & 3.2676e+01_jprb,3.2705e+01_jprb,3.2770e+01_jprb,3.2989e+01_jprb,3.3265e+01_jprb/)  
kbo( :,45,13) = (/&
 & 2.7944e+01_jprb,2.8089e+01_jprb,2.8247e+01_jprb,2.8518e+01_jprb,2.8846e+01_jprb/)  
kbo( :,46,13) = (/&
 & 2.3845e+01_jprb,2.4085e+01_jprb,2.4309e+01_jprb,2.4615e+01_jprb,2.4979e+01_jprb/)  
kbo( :,47,13) = (/&
 & 2.0369e+01_jprb,2.0675e+01_jprb,2.0941e+01_jprb,2.1268e+01_jprb,2.1673e+01_jprb/)  
kbo( :,48,13) = (/&
 & 1.7326e+01_jprb,1.7556e+01_jprb,1.7948e+01_jprb,1.8285e+01_jprb,1.8703e+01_jprb/)  
kbo( :,49,13) = (/&
 & 1.4637e+01_jprb,1.4880e+01_jprb,1.5276e+01_jprb,1.5608e+01_jprb,1.6019e+01_jprb/)  
kbo( :,50,13) = (/&
 & 1.2439e+01_jprb,1.2696e+01_jprb,1.3009e+01_jprb,1.3432e+01_jprb,1.3843e+01_jprb/)  
kbo( :,51,13) = (/&
 & 1.0584e+01_jprb,1.0852e+01_jprb,1.1176e+01_jprb,1.1603e+01_jprb,1.2011e+01_jprb/)  
kbo( :,52,13) = (/&
 & 8.8615e+00_jprb,9.2312e+00_jprb,9.5521e+00_jprb,9.9700e+00_jprb,1.0369e+01_jprb/)  
kbo( :,53,13) = (/&
 & 7.4436e+00_jprb,7.8034e+00_jprb,8.1100e+00_jprb,8.5076e+00_jprb,8.8838e+00_jprb/)  
kbo( :,54,13) = (/&
 & 6.3609e+00_jprb,6.7200e+00_jprb,7.0326e+00_jprb,7.4311e+00_jprb,7.8042e+00_jprb/)  
kbo( :,55,13) = (/&
 & 5.4942e+00_jprb,5.8571e+00_jprb,6.1799e+00_jprb,6.4978e+00_jprb,6.9694e+00_jprb/)  
kbo( :,56,13) = (/&
 & 4.7434e+00_jprb,5.1101e+00_jprb,5.4346e+00_jprb,5.7533e+00_jprb,6.2335e+00_jprb/)  
kbo( :,57,13) = (/&
 & 4.0946e+00_jprb,4.4592e+00_jprb,4.7823e+00_jprb,5.1021e+00_jprb,5.4957e+00_jprb/)  
kbo( :,58,13) = (/&
 & 3.5510e+00_jprb,3.9146e+00_jprb,4.2394e+00_jprb,4.5624e+00_jprb,4.9570e+00_jprb/)  
kbo( :,59,13) = (/&
 & 3.2469e+00_jprb,3.6400e+00_jprb,4.0004e+00_jprb,4.3660e+00_jprb,4.8112e+00_jprb/)  
kbo( :,13,14) = (/&
 & 2.9334e+03_jprb,2.8777e+03_jprb,2.8251e+03_jprb,2.7722e+03_jprb,2.7139e+03_jprb/)  
kbo( :,14,14) = (/&
 & 3.0980e+03_jprb,3.0395e+03_jprb,2.9754e+03_jprb,2.9139e+03_jprb,2.8590e+03_jprb/)  
kbo( :,15,14) = (/&
 & 3.2422e+03_jprb,3.1687e+03_jprb,3.1071e+03_jprb,3.0415e+03_jprb,2.9792e+03_jprb/)  
kbo( :,16,14) = (/&
 & 3.3594e+03_jprb,3.2894e+03_jprb,3.2245e+03_jprb,3.1534e+03_jprb,3.0780e+03_jprb/)  
kbo( :,17,14) = (/&
 & 3.4662e+03_jprb,3.3974e+03_jprb,3.3177e+03_jprb,3.2347e+03_jprb,3.1458e+03_jprb/)  
kbo( :,18,14) = (/&
 & 3.5551e+03_jprb,3.4706e+03_jprb,3.3818e+03_jprb,3.2833e+03_jprb,3.1871e+03_jprb/)  
kbo( :,19,14) = (/&
 & 3.5953e+03_jprb,3.5053e+03_jprb,3.4059e+03_jprb,3.3056e+03_jprb,3.2071e+03_jprb/)  
kbo( :,20,14) = (/&
 & 3.5722e+03_jprb,3.4751e+03_jprb,3.3772e+03_jprb,3.2793e+03_jprb,3.1813e+03_jprb/)  
kbo( :,21,14) = (/&
 & 3.4918e+03_jprb,3.3970e+03_jprb,3.3000e+03_jprb,3.2054e+03_jprb,3.1102e+03_jprb/)  
kbo( :,22,14) = (/&
 & 3.3556e+03_jprb,3.2639e+03_jprb,3.1694e+03_jprb,3.0789e+03_jprb,2.9903e+03_jprb/)  
kbo( :,23,14) = (/&
 & 3.1787e+03_jprb,3.0917e+03_jprb,3.0049e+03_jprb,2.9210e+03_jprb,2.8398e+03_jprb/)  
kbo( :,24,14) = (/&
 & 2.9739e+03_jprb,2.8938e+03_jprb,2.8153e+03_jprb,2.7372e+03_jprb,2.6621e+03_jprb/)  
kbo( :,25,14) = (/&
 & 2.7453e+03_jprb,2.6720e+03_jprb,2.6011e+03_jprb,2.5300e+03_jprb,2.4637e+03_jprb/)  
kbo( :,26,14) = (/&
 & 2.5096e+03_jprb,2.4426e+03_jprb,2.3775e+03_jprb,2.3148e+03_jprb,2.2551e+03_jprb/)  
kbo( :,27,14) = (/&
 & 2.2699e+03_jprb,2.2101e+03_jprb,2.1525e+03_jprb,2.0966e+03_jprb,2.0458e+03_jprb/)  
kbo( :,28,14) = (/&
 & 2.0339e+03_jprb,1.9809e+03_jprb,1.9302e+03_jprb,1.8831e+03_jprb,1.8402e+03_jprb/)  
kbo( :,29,14) = (/&
 & 1.8034e+03_jprb,1.7583e+03_jprb,1.7163e+03_jprb,1.6782e+03_jprb,1.6421e+03_jprb/)  
kbo( :,30,14) = (/&
 & 1.5820e+03_jprb,1.5447e+03_jprb,1.5128e+03_jprb,1.4831e+03_jprb,1.4550e+03_jprb/)  
kbo( :,31,14) = (/&
 & 1.3768e+03_jprb,1.3502e+03_jprb,1.3259e+03_jprb,1.3028e+03_jprb,1.2805e+03_jprb/)  
kbo( :,32,14) = (/&
 & 1.1943e+03_jprb,1.1745e+03_jprb,1.1559e+03_jprb,1.1380e+03_jprb,1.1211e+03_jprb/)  
kbo( :,33,14) = (/&
 & 1.0318e+03_jprb,1.0174e+03_jprb,1.0030e+03_jprb,9.8941e+02_jprb,9.7764e+02_jprb/)  
kbo( :,34,14) = (/&
 & 8.9071e+02_jprb,8.7939e+02_jprb,8.6886e+02_jprb,8.6024e+02_jprb,8.5244e+02_jprb/)  
kbo( :,35,14) = (/&
 & 7.6798e+02_jprb,7.6029e+02_jprb,7.5422e+02_jprb,7.4951e+02_jprb,7.4470e+02_jprb/)  
kbo( :,36,14) = (/&
 & 6.6325e+02_jprb,6.5893e+02_jprb,6.5635e+02_jprb,6.5426e+02_jprb,6.5190e+02_jprb/)  
kbo( :,37,14) = (/&
 & 5.7400e+02_jprb,5.7252e+02_jprb,5.7250e+02_jprb,5.7225e+02_jprb,5.7202e+02_jprb/)  
kbo( :,38,14) = (/&
 & 4.9686e+02_jprb,4.9759e+02_jprb,4.9968e+02_jprb,5.0087e+02_jprb,5.0220e+02_jprb/)  
kbo( :,39,14) = (/&
 & 4.3040e+02_jprb,4.3277e+02_jprb,4.3573e+02_jprb,4.3837e+02_jprb,4.4124e+02_jprb/)  
kbo( :,40,14) = (/&
 & 3.7403e+02_jprb,3.7755e+02_jprb,3.8110e+02_jprb,3.8474e+02_jprb,3.8876e+02_jprb/)  

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


SUBROUTINE part7

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


kbo( :,41,14) = (/&
 & 3.2578e+02_jprb,3.3002e+02_jprb,3.3411e+02_jprb,3.3839e+02_jprb,3.4323e+02_jprb/)  
kbo( :,42,14) = (/&
 & 2.8407e+02_jprb,2.8896e+02_jprb,2.9341e+02_jprb,2.9793e+02_jprb,3.0372e+02_jprb/)  
kbo( :,43,14) = (/&
 & 2.4780e+02_jprb,2.5311e+02_jprb,2.5804e+02_jprb,2.6300e+02_jprb,2.6916e+02_jprb/)  
kbo( :,44,14) = (/&
 & 2.1608e+02_jprb,2.2160e+02_jprb,2.2690e+02_jprb,2.3233e+02_jprb,2.3866e+02_jprb/)  
kbo( :,45,14) = (/&
 & 1.8824e+02_jprb,1.9381e+02_jprb,1.9935e+02_jprb,2.0504e+02_jprb,2.1167e+02_jprb/)  
kbo( :,46,14) = (/&
 & 1.6388e+02_jprb,1.6938e+02_jprb,1.7501e+02_jprb,1.8081e+02_jprb,1.8759e+02_jprb/)  
kbo( :,47,14) = (/&
 & 1.4266e+02_jprb,1.4798e+02_jprb,1.5358e+02_jprb,1.5946e+02_jprb,1.6626e+02_jprb/)  
kbo( :,48,14) = (/&
 & 1.2380e+02_jprb,1.2887e+02_jprb,1.3460e+02_jprb,1.4036e+02_jprb,1.4712e+02_jprb/)  
kbo( :,49,14) = (/&
 & 1.0697e+02_jprb,1.1187e+02_jprb,1.1753e+02_jprb,1.2324e+02_jprb,1.2991e+02_jprb/)  
kbo( :,50,14) = (/&
 & 9.2940e+01_jprb,9.7678e+01_jprb,1.0307e+02_jprb,1.0888e+02_jprb,1.1536e+02_jprb/)  
kbo( :,51,14) = (/&
 & 8.1029e+01_jprb,8.5527e+01_jprb,9.0730e+01_jprb,9.6501e+01_jprb,1.0280e+02_jprb/)  
kbo( :,52,14) = (/&
 & 7.0406e+01_jprb,7.4706e+01_jprb,7.9713e+01_jprb,8.5353e+01_jprb,9.1529e+01_jprb/)  
kbo( :,53,14) = (/&
 & 6.0914e+01_jprb,6.5029e+01_jprb,6.9770e+01_jprb,7.5302e+01_jprb,8.1302e+01_jprb/)  
kbo( :,54,14) = (/&
 & 5.3685e+01_jprb,5.7712e+01_jprb,6.2246e+01_jprb,6.7555e+01_jprb,7.3372e+01_jprb/)  
kbo( :,55,14) = (/&
 & 4.8002e+01_jprb,5.1999e+01_jprb,5.6435e+01_jprb,6.1422e+01_jprb,6.7178e+01_jprb/)  
kbo( :,56,14) = (/&
 & 4.3069e+01_jprb,4.7058e+01_jprb,5.1421e+01_jprb,5.6338e+01_jprb,6.1901e+01_jprb/)  
kbo( :,57,14) = (/&
 & 3.8718e+01_jprb,4.2795e+01_jprb,4.7064e+01_jprb,5.1974e+01_jprb,5.7337e+01_jprb/)  
kbo( :,58,14) = (/&
 & 3.5127e+01_jprb,3.9394e+01_jprb,4.3676e+01_jprb,4.8594e+01_jprb,5.4054e+01_jprb/)  
kbo( :,59,14) = (/&
 & 3.4411e+01_jprb,3.9387e+01_jprb,4.4312e+01_jprb,4.9761e+01_jprb,5.5833e+01_jprb/)  
kbo( :,13,15) = (/&
 & 5.8626e+03_jprb,5.7531e+03_jprb,5.6999e+03_jprb,5.6080e+03_jprb,5.5646e+03_jprb/)  
kbo( :,14,15) = (/&
 & 6.6299e+03_jprb,6.5552e+03_jprb,6.4532e+03_jprb,6.3570e+03_jprb,6.2707e+03_jprb/)  
kbo( :,15,15) = (/&
 & 7.5140e+03_jprb,7.3938e+03_jprb,7.2851e+03_jprb,7.1606e+03_jprb,7.0596e+03_jprb/)  
kbo( :,16,15) = (/&
 & 8.4004e+03_jprb,8.2640e+03_jprb,8.1296e+03_jprb,7.9995e+03_jprb,7.8682e+03_jprb/)  
kbo( :,17,15) = (/&
 & 9.2783e+03_jprb,9.1233e+03_jprb,8.9809e+03_jprb,8.8341e+03_jprb,8.6706e+03_jprb/)  
kbo( :,18,15) = (/&
 & 1.0203e+04_jprb,9.9981e+03_jprb,9.8375e+03_jprb,9.6605e+03_jprb,9.4887e+03_jprb/)  
kbo( :,19,15) = (/&
 & 1.1106e+04_jprb,1.0894e+04_jprb,1.0688e+04_jprb,1.0490e+04_jprb,1.0272e+04_jprb/)  
kbo( :,20,15) = (/&
 & 1.2022e+04_jprb,1.1788e+04_jprb,1.1526e+04_jprb,1.1301e+04_jprb,1.1063e+04_jprb/)  
kbo( :,21,15) = (/&
 & 1.2860e+04_jprb,1.2601e+04_jprb,1.2351e+04_jprb,1.2080e+04_jprb,1.1797e+04_jprb/)  
kbo( :,22,15) = (/&
 & 1.3622e+04_jprb,1.3359e+04_jprb,1.3050e+04_jprb,1.2774e+04_jprb,1.2461e+04_jprb/)  
kbo( :,23,15) = (/&
 & 1.4282e+04_jprb,1.3995e+04_jprb,1.3676e+04_jprb,1.3349e+04_jprb,1.3009e+04_jprb/)  
kbo( :,24,15) = (/&
 & 1.4830e+04_jprb,1.4486e+04_jprb,1.4138e+04_jprb,1.3782e+04_jprb,1.3441e+04_jprb/)  
kbo( :,25,15) = (/&
 & 1.5198e+04_jprb,1.4832e+04_jprb,1.4459e+04_jprb,1.4100e+04_jprb,1.3752e+04_jprb/)  
kbo( :,26,15) = (/&
 & 1.5360e+04_jprb,1.4999e+04_jprb,1.4642e+04_jprb,1.4292e+04_jprb,1.3943e+04_jprb/)  
kbo( :,27,15) = (/&
 & 1.5406e+04_jprb,1.5053e+04_jprb,1.4691e+04_jprb,1.4344e+04_jprb,1.3993e+04_jprb/)  
kbo( :,28,15) = (/&
 & 1.5350e+04_jprb,1.4989e+04_jprb,1.4625e+04_jprb,1.4280e+04_jprb,1.3936e+04_jprb/)  
kbo( :,29,15) = (/&
 & 1.5162e+04_jprb,1.4811e+04_jprb,1.4452e+04_jprb,1.4117e+04_jprb,1.3798e+04_jprb/)  
kbo( :,30,15) = (/&
 & 1.4888e+04_jprb,1.4556e+04_jprb,1.4228e+04_jprb,1.3905e+04_jprb,1.3609e+04_jprb/)  
kbo( :,31,15) = (/&
 & 1.4511e+04_jprb,1.4207e+04_jprb,1.3919e+04_jprb,1.3634e+04_jprb,1.3368e+04_jprb/)  
kbo( :,32,15) = (/&
 & 1.4068e+04_jprb,1.3811e+04_jprb,1.3560e+04_jprb,1.3325e+04_jprb,1.3103e+04_jprb/)  
kbo( :,33,15) = (/&
 & 1.3601e+04_jprb,1.3399e+04_jprb,1.3196e+04_jprb,1.3006e+04_jprb,1.2830e+04_jprb/)  
kbo( :,34,15) = (/&
 & 1.3119e+04_jprb,1.2976e+04_jprb,1.2834e+04_jprb,1.2699e+04_jprb,1.2559e+04_jprb/)  
kbo( :,35,15) = (/&
 & 1.2646e+04_jprb,1.2564e+04_jprb,1.2475e+04_jprb,1.2392e+04_jprb,1.2320e+04_jprb/)  
kbo( :,36,15) = (/&
 & 1.2190e+04_jprb,1.2170e+04_jprb,1.2138e+04_jprb,1.2103e+04_jprb,1.2079e+04_jprb/)  
kbo( :,37,15) = (/&
 & 1.1737e+04_jprb,1.1781e+04_jprb,1.1808e+04_jprb,1.1824e+04_jprb,1.1847e+04_jprb/)  
kbo( :,38,15) = (/&
 & 1.1288e+04_jprb,1.1385e+04_jprb,1.1474e+04_jprb,1.1550e+04_jprb,1.1619e+04_jprb/)  
kbo( :,39,15) = (/&
 & 1.0856e+04_jprb,1.1010e+04_jprb,1.1156e+04_jprb,1.1287e+04_jprb,1.1401e+04_jprb/)  
kbo( :,40,15) = (/&
 & 1.0434e+04_jprb,1.0638e+04_jprb,1.0839e+04_jprb,1.1017e+04_jprb,1.1176e+04_jprb/)  
kbo( :,41,15) = (/&
 & 1.0025e+04_jprb,1.0281e+04_jprb,1.0529e+04_jprb,1.0755e+04_jprb,1.0956e+04_jprb/)  
kbo( :,42,15) = (/&
 & 9.6179e+03_jprb,9.9405e+03_jprb,1.0234e+04_jprb,1.0504e+04_jprb,1.0740e+04_jprb/)  
kbo( :,43,15) = (/&
 & 9.2261e+03_jprb,9.6002e+03_jprb,9.9385e+03_jprb,1.0249e+04_jprb,1.0522e+04_jprb/)  
kbo( :,44,15) = (/&
 & 8.8369e+03_jprb,9.2610e+03_jprb,9.6434e+03_jprb,9.9917e+03_jprb,1.0304e+04_jprb/)  
kbo( :,45,15) = (/&
 & 8.4565e+03_jprb,8.9270e+03_jprb,9.3572e+03_jprb,9.7378e+03_jprb,1.0089e+04_jprb/)  
kbo( :,46,15) = (/&
 & 8.0787e+03_jprb,8.5914e+03_jprb,9.0699e+03_jprb,9.4822e+03_jprb,9.8664e+03_jprb/)  
kbo( :,47,15) = (/&
 & 7.6853e+03_jprb,8.2420e+03_jprb,8.7669e+03_jprb,9.2155e+03_jprb,9.6327e+03_jprb/)  
kbo( :,48,15) = (/&
 & 7.2976e+03_jprb,7.9018e+03_jprb,8.4572e+03_jprb,8.9503e+03_jprb,9.3974e+03_jprb/)  
kbo( :,49,15) = (/&
 & 6.9137e+03_jprb,7.5530e+03_jprb,8.1461e+03_jprb,8.6824e+03_jprb,9.1633e+03_jprb/)  
kbo( :,50,15) = (/&
 & 6.5439e+03_jprb,7.2215e+03_jprb,7.8385e+03_jprb,8.4232e+03_jprb,8.9404e+03_jprb/)  
kbo( :,51,15) = (/&
 & 6.1848e+03_jprb,6.8963e+03_jprb,7.5471e+03_jprb,8.1684e+03_jprb,8.7207e+03_jprb/)  
kbo( :,52,15) = (/&
 & 5.8189e+03_jprb,6.5740e+03_jprb,7.2547e+03_jprb,7.9146e+03_jprb,8.4977e+03_jprb/)  
kbo( :,53,15) = (/&
 & 5.4670e+03_jprb,6.2525e+03_jprb,6.9648e+03_jprb,7.6568e+03_jprb,8.2688e+03_jprb/)  
kbo( :,54,15) = (/&
 & 5.1436e+03_jprb,5.9527e+03_jprb,6.6949e+03_jprb,7.4192e+03_jprb,8.0568e+03_jprb/)  
kbo( :,55,15) = (/&
 & 4.8355e+03_jprb,5.6683e+03_jprb,6.4321e+03_jprb,7.1732e+03_jprb,7.8507e+03_jprb/)  
kbo( :,56,15) = (/&
 & 4.5326e+03_jprb,5.3883e+03_jprb,6.1757e+03_jprb,6.9385e+03_jprb,7.6455e+03_jprb/)  
kbo( :,57,15) = (/&
 & 4.2335e+03_jprb,5.1109e+03_jprb,5.9237e+03_jprb,6.7072e+03_jprb,7.4206e+03_jprb/)  
kbo( :,58,15) = (/&
 & 3.9599e+03_jprb,4.8524e+03_jprb,5.6868e+03_jprb,6.4919e+03_jprb,7.2242e+03_jprb/)  
kbo( :,59,15) = (/&
 & 3.8525e+03_jprb,4.7532e+03_jprb,5.5997e+03_jprb,6.4149e+03_jprb,7.1557e+03_jprb/)  
kbo( :,13,16) = (/&
 & 1.1371e+04_jprb,1.1323e+04_jprb,1.1315e+04_jprb,1.1164e+04_jprb,1.1081e+04_jprb/)  
kbo( :,14,16) = (/&
 & 1.3431e+04_jprb,1.3485e+04_jprb,1.3332e+04_jprb,1.3142e+04_jprb,1.2900e+04_jprb/)  
kbo( :,15,16) = (/&
 & 1.5843e+04_jprb,1.5741e+04_jprb,1.5575e+04_jprb,1.5331e+04_jprb,1.5089e+04_jprb/)  
kbo( :,16,16) = (/&
 & 1.8399e+04_jprb,1.8340e+04_jprb,1.8137e+04_jprb,1.7913e+04_jprb,1.7697e+04_jprb/)  
kbo( :,17,16) = (/&
 & 2.1310e+04_jprb,2.1226e+04_jprb,2.1046e+04_jprb,2.0865e+04_jprb,2.0549e+04_jprb/)  
kbo( :,18,16) = (/&
 & 2.4633e+04_jprb,2.4423e+04_jprb,2.4337e+04_jprb,2.4031e+04_jprb,2.3685e+04_jprb/)  
kbo( :,19,16) = (/&
 & 2.8116e+04_jprb,2.8107e+04_jprb,2.7914e+04_jprb,2.7644e+04_jprb,2.7235e+04_jprb/)  
kbo( :,20,16) = (/&
 & 3.2352e+04_jprb,3.2111e+04_jprb,3.1818e+04_jprb,3.1625e+04_jprb,3.1234e+04_jprb/)  
kbo( :,21,16) = (/&
 & 3.7036e+04_jprb,3.6651e+04_jprb,3.6428e+04_jprb,3.6095e+04_jprb,3.5692e+04_jprb/)  
kbo( :,22,16) = (/&
 & 4.2524e+04_jprb,4.2050e+04_jprb,4.1496e+04_jprb,4.1174e+04_jprb,4.0706e+04_jprb/)  
kbo( :,23,16) = (/&
 & 4.8715e+04_jprb,4.8086e+04_jprb,4.7446e+04_jprb,4.6855e+04_jprb,4.6215e+04_jprb/)  
kbo( :,24,16) = (/&
 & 5.5639e+04_jprb,5.4833e+04_jprb,5.3941e+04_jprb,5.3072e+04_jprb,5.2154e+04_jprb/)  
kbo( :,25,16) = (/&
 & 6.3125e+04_jprb,6.2076e+04_jprb,6.0936e+04_jprb,5.9802e+04_jprb,5.8643e+04_jprb/)  
kbo( :,26,16) = (/&
 & 7.0969e+04_jprb,6.9666e+04_jprb,6.8250e+04_jprb,6.6863e+04_jprb,6.5447e+04_jprb/)  
kbo( :,27,16) = (/&
 & 7.9041e+04_jprb,7.7424e+04_jprb,7.5739e+04_jprb,7.4111e+04_jprb,7.2428e+04_jprb/)  
kbo( :,28,16) = (/&
 & 8.7171e+04_jprb,8.5329e+04_jprb,8.3283e+04_jprb,8.1385e+04_jprb,7.9412e+04_jprb/)  
kbo( :,29,16) = (/&
 & 9.5287e+04_jprb,9.3095e+04_jprb,9.0725e+04_jprb,8.8465e+04_jprb,8.6095e+04_jprb/)  
kbo( :,30,16) = (/&
 & 1.0333e+05_jprb,1.0061e+05_jprb,9.7918e+04_jprb,9.5190e+04_jprb,9.2462e+04_jprb/)  
kbo( :,31,16) = (/&
 & 1.1108e+05_jprb,1.0788e+05_jprb,1.0471e+05_jprb,1.0154e+05_jprb,9.8354e+04_jprb/)  
kbo( :,32,16) = (/&
 & 1.1839e+05_jprb,1.1468e+05_jprb,1.1110e+05_jprb,1.0744e+05_jprb,1.0381e+05_jprb/)  
kbo( :,33,16) = (/&
 & 1.2510e+05_jprb,1.2097e+05_jprb,1.1682e+05_jprb,1.1275e+05_jprb,1.0867e+05_jprb/)  
kbo( :,34,16) = (/&
 & 1.3142e+05_jprb,1.2677e+05_jprb,1.2209e+05_jprb,1.1755e+05_jprb,1.1311e+05_jprb/)  
kbo( :,35,16) = (/&
 & 1.3764e+05_jprb,1.3245e+05_jprb,1.2727e+05_jprb,1.2228e+05_jprb,1.1753e+05_jprb/)  
kbo( :,36,16) = (/&
 & 1.4383e+05_jprb,1.3810e+05_jprb,1.3243e+05_jprb,1.2701e+05_jprb,1.2185e+05_jprb/)  
kbo( :,37,16) = (/&
 & 1.5046e+05_jprb,1.4418e+05_jprb,1.3799e+05_jprb,1.3212e+05_jprb,1.2655e+05_jprb/)  
kbo( :,38,16) = (/&
 & 1.5675e+05_jprb,1.4982e+05_jprb,1.4330e+05_jprb,1.3693e+05_jprb,1.3095e+05_jprb/)  
kbo( :,39,16) = (/&
 & 1.6258e+05_jprb,1.5518e+05_jprb,1.4815e+05_jprb,1.4138e+05_jprb,1.3502e+05_jprb/)  
kbo( :,40,16) = (/&
 & 1.6871e+05_jprb,1.6088e+05_jprb,1.5341e+05_jprb,1.4623e+05_jprb,1.3948e+05_jprb/)  
kbo( :,41,16) = (/&
 & 1.7458e+05_jprb,1.6635e+05_jprb,1.5848e+05_jprb,1.5090e+05_jprb,1.4379e+05_jprb/)  
kbo( :,42,16) = (/&
 & 1.7998e+05_jprb,1.7152e+05_jprb,1.6328e+05_jprb,1.5532e+05_jprb,1.4790e+05_jprb/)  
kbo( :,43,16) = (/&
 & 1.8575e+05_jprb,1.7689e+05_jprb,1.6831e+05_jprb,1.5999e+05_jprb,1.5225e+05_jprb/)  
kbo( :,44,16) = (/&
 & 1.9152e+05_jprb,1.8231e+05_jprb,1.7334e+05_jprb,1.6472e+05_jprb,1.5657e+05_jprb/)  
kbo( :,45,16) = (/&
 & 1.9710e+05_jprb,1.8756e+05_jprb,1.7825e+05_jprb,1.6934e+05_jprb,1.6086e+05_jprb/)  
kbo( :,46,16) = (/&
 & 2.0271e+05_jprb,1.9287e+05_jprb,1.8321e+05_jprb,1.7404e+05_jprb,1.6527e+05_jprb/)  
kbo( :,47,16) = (/&
 & 2.0857e+05_jprb,1.9849e+05_jprb,1.8848e+05_jprb,1.7903e+05_jprb,1.6997e+05_jprb/)  
kbo( :,48,16) = (/&
 & 2.1432e+05_jprb,2.0416e+05_jprb,1.9373e+05_jprb,1.8395e+05_jprb,1.7463e+05_jprb/)  
kbo( :,49,16) = (/&
 & 2.1996e+05_jprb,2.0961e+05_jprb,1.9896e+05_jprb,1.8885e+05_jprb,1.7927e+05_jprb/)  
kbo( :,50,16) = (/&
 & 2.2527e+05_jprb,2.1474e+05_jprb,2.0397e+05_jprb,1.9350e+05_jprb,1.8363e+05_jprb/)  
kbo( :,51,16) = (/&
 & 2.3036e+05_jprb,2.1969e+05_jprb,2.0872e+05_jprb,1.9800e+05_jprb,1.8789e+05_jprb/)  
kbo( :,52,16) = (/&
 & 2.3557e+05_jprb,2.2457e+05_jprb,2.1344e+05_jprb,2.0248e+05_jprb,1.9215e+05_jprb/)  
kbo( :,53,16) = (/&
 & 2.4051e+05_jprb,2.2942e+05_jprb,2.1813e+05_jprb,2.0698e+05_jprb,1.9645e+05_jprb/)  
kbo( :,54,16) = (/&
 & 2.4502e+05_jprb,2.3386e+05_jprb,2.2247e+05_jprb,2.1113e+05_jprb,2.0043e+05_jprb/)  
kbo( :,55,16) = (/&
 & 2.4930e+05_jprb,2.3811e+05_jprb,2.2662e+05_jprb,2.1524e+05_jprb,2.0429e+05_jprb/)  
kbo( :,56,16) = (/&
 & 2.5354e+05_jprb,2.4234e+05_jprb,2.3079e+05_jprb,2.1928e+05_jprb,2.0814e+05_jprb/)  
kbo( :,57,16) = (/&
 & 2.5774e+05_jprb,2.4654e+05_jprb,2.3491e+05_jprb,2.2331e+05_jprb,2.1201e+05_jprb/)  
kbo( :,58,16) = (/&
 & 2.6172e+05_jprb,2.5053e+05_jprb,2.3885e+05_jprb,2.2717e+05_jprb,2.1576e+05_jprb/)  
kbo( :,59,16) = (/&
 & 2.6363e+05_jprb,2.5242e+05_jprb,2.4067e+05_jprb,2.2890e+05_jprb,2.1741e+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) = (/&
 & 1.84925e+00_jprb,1.65087e+00_jprb,1.47377e+00_jprb,1.31567e+00_jprb,1.17453e+00_jprb,&
 & 1.04853e+00_jprb,9.36042e-01_jprb,8.35626e-01_jprb,7.45982e-01_jprb,6.65955e-01_jprb/)  
selfrefo( :, 2) = (/&
 & 5.91460e+00_jprb,5.37056e+00_jprb,4.87657e+00_jprb,4.42802e+00_jprb,4.02073e+00_jprb,&
 & 3.65090e+00_jprb,3.31508e+00_jprb,3.01016e+00_jprb,2.73328e+00_jprb,2.48187e+00_jprb/)  
selfrefo( :, 3) = (/&
 & 6.37319e+00_jprb,5.76807e+00_jprb,5.22041e+00_jprb,4.72475e+00_jprb,4.27614e+00_jprb,&
 & 3.87014e+00_jprb,3.50268e+00_jprb,3.17011e+00_jprb,2.86911e+00_jprb,2.59670e+00_jprb/)  
selfrefo( :, 4) = (/&
 & 6.24391e+00_jprb,5.67335e+00_jprb,5.15493e+00_jprb,4.68388e+00_jprb,4.25588e+00_jprb,&
 & 3.86699e+00_jprb,3.51363e+00_jprb,3.19256e+00_jprb,2.90083e+00_jprb,2.63576e+00_jprb/)  
selfrefo( :, 5) = (/&
 & 6.28855e+00_jprb,5.70697e+00_jprb,5.17918e+00_jprb,4.70019e+00_jprb,4.26551e+00_jprb,&
 & 3.87103e+00_jprb,3.51303e+00_jprb,3.18813e+00_jprb,2.89329e+00_jprb,2.62571e+00_jprb/)  
selfrefo( :, 6) = (/&
 & 6.15500e+00_jprb,5.58229e+00_jprb,5.06287e+00_jprb,4.59178e+00_jprb,4.16453e+00_jprb,&
 & 3.77703e+00_jprb,3.42558e+00_jprb,3.10684e+00_jprb,2.81776e+00_jprb,2.55557e+00_jprb/)  
selfrefo( :, 7) = (/&
 & 6.25544e+00_jprb,5.67036e+00_jprb,5.14000e+00_jprb,4.65925e+00_jprb,4.22346e+00_jprb,&
 & 3.82844e+00_jprb,3.47036e+00_jprb,3.14577e+00_jprb,2.85154e+00_jprb,2.58483e+00_jprb/)  
selfrefo( :, 8) = (/&
 & 6.08431e+00_jprb,5.55653e+00_jprb,5.07454e+00_jprb,4.63436e+00_jprb,4.23236e+00_jprb,&
 & 3.86523e+00_jprb,3.52994e+00_jprb,3.22374e+00_jprb,2.94410e+00_jprb,2.68872e+00_jprb/)  
selfrefo( :, 9) = (/&
 & 6.22772e+00_jprb,5.71381e+00_jprb,5.24231e+00_jprb,4.80972e+00_jprb,4.41282e+00_jprb,&
 & 4.04868e+00_jprb,3.71458e+00_jprb,3.40806e+00_jprb,3.12683e+00_jprb,2.86880e+00_jprb/)  
selfrefo( :,10) = (/&
 & 6.63397e+00_jprb,6.10398e+00_jprb,5.61633e+00_jprb,5.16764e+00_jprb,4.75480e+00_jprb,&
 & 4.37494e+00_jprb,4.02543e+00_jprb,3.70384e+00_jprb,3.40794e+00_jprb,3.13568e+00_jprb/)  
selfrefo( :,11) = (/&
 & 7.05802e+00_jprb,6.40896e+00_jprb,5.81959e+00_jprb,5.28442e+00_jprb,4.79846e+00_jprb,&
 & 4.35719e+00_jprb,3.95651e+00_jprb,3.59266e+00_jprb,3.26228e+00_jprb,2.96228e+00_jprb/)  
selfrefo( :,12) = (/&
 & 7.26302e+00_jprb,6.57623e+00_jprb,5.95438e+00_jprb,5.39134e+00_jprb,4.88153e+00_jprb,&
 & 4.41994e+00_jprb,4.00199e+00_jprb,3.62356e+00_jprb,3.28092e+00_jprb,2.97067e+00_jprb/)  
selfrefo( :,13) = (/&
 & 6.76462e+00_jprb,6.23813e+00_jprb,5.75262e+00_jprb,5.30490e+00_jprb,4.89202e+00_jprb,&
 & 4.51128e+00_jprb,4.16017e+00_jprb,3.83638e+00_jprb,3.53780e+00_jprb,3.26245e+00_jprb/)  
selfrefo( :,14) = (/&
 & 7.35977e+00_jprb,6.71848e+00_jprb,6.13306e+00_jprb,5.59866e+00_jprb,5.11082e+00_jprb,&
 & 4.66549e+00_jprb,4.25896e+00_jprb,3.88786e+00_jprb,3.54909e+00_jprb,3.23984e+00_jprb/)  
selfrefo( :,15) = (/&
 & 7.51978e+00_jprb,6.83155e+00_jprb,6.20632e+00_jprb,5.63830e+00_jprb,5.12227e+00_jprb,&
 & 4.65347e+00_jprb,4.22758e+00_jprb,3.84066e+00_jprb,3.48915e+00_jprb,3.16982e+00_jprb/)  
selfrefo( :,16) = (/&
 & 6.95561e+00_jprb,6.36239e+00_jprb,5.81977e+00_jprb,5.32342e+00_jprb,4.86941e+00_jprb,&
 & 4.45411e+00_jprb,4.07424e+00_jprb,3.72676e+00_jprb,3.40892e+00_jprb,3.11819e+00_jprb/)  

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


!     -----------------------------------------------------------------
END SUBROUTINE rrtm_kgb1