rrtm_kgb2.F90

Go to the documentation of this file.

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

!     Originally by Eli J. Mlawer, Atmospheric & Environmental Research.
!     BAND 2:  250-500 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 yoerrto2 , ONLY : kao     ,kbo     ,selfrefo   ,fracrefao  ,&
 & fracrefbo  ,forrefo  
USE yoerrta2 , ONLY : refparam

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

IMPLICIT NONE
REAL(KIND=JPRB) :: ZHOOK_HANDLE

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

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

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

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

CONTAINS


SUBROUTINE part1

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


fracrefbo( :) = (/&
 !     From P = 0.432 mb.
 & 0.17444289_jprb,0.16467269_jprb,0.15021490_jprb,0.12460902_jprb,&
 & 0.10400643_jprb,0.09481928_jprb,0.07590704_jprb,0.05752856_jprb,&
 & 0.03931715_jprb,0.00428572_jprb,0.00349352_jprb,0.00278938_jprb,&
 & 0.00203448_jprb,0.00130037_jprb,0.00051560_jprb,0.00006255_jprb/)  

forrefo( :) = (/&
 & -2.34550e-03_jprb,-8.42698e-03_jprb,-2.01816e-02_jprb,-5.66701e-02_jprb,&
 & -8.93189e-02_jprb,-6.37487e-02_jprb,-4.56455e-02_jprb,-4.41417e-02_jprb,&
 & -4.48605e-02_jprb,-4.74696e-02_jprb,-5.16648e-02_jprb,-5.63099e-02_jprb,&
 & -4.74781e-02_jprb,-3.84704e-02_jprb,-2.49905e-02_jprb, 2.02114e-03_jprb/)  

!     The following are parameters related to the reference water vapor
!     mixing ratios by REFPARAM(I) = REFH2O(I) / (.002+REFH2O(I)).
!     These parameters are used for the Planck function interpolation.
refparam( :) = (/&
 & 0.903661_jprb   , 0.859386_jprb   , 0.746542_jprb   , 0.580496_jprb   , 0.412889_jprb   ,&
 & 0.275283_jprb   , 0.162745_jprb   , 7.63929e-02_jprb, 1.82553e-02_jprb, 3.72432e-03_jprb, &
 & 2.14946e-03_jprb, 1.66320e-03_jprb, 1.59940e-03_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) = (/&
 & 1.4400e-02_jprb,1.5554e-02_jprb,1.6739e-02_jprb,1.7961e-02_jprb,1.9379e-02_jprb/)  
kao( :, 2, 1) = (/&
 & 1.1452e-02_jprb,1.2288e-02_jprb,1.3232e-02_jprb,1.4190e-02_jprb,1.5277e-02_jprb/)  
kao( :, 3, 1) = (/&
 & 8.9989e-03_jprb,9.5960e-03_jprb,1.0327e-02_jprb,1.1068e-02_jprb,1.1889e-02_jprb/)  
kao( :, 4, 1) = (/&
 & 7.1078e-03_jprb,7.5424e-03_jprb,8.0710e-03_jprb,8.6639e-03_jprb,9.2920e-03_jprb/)  
kao( :, 5, 1) = (/&
 & 5.6632e-03_jprb,5.9616e-03_jprb,6.3421e-03_jprb,6.8076e-03_jprb,7.2949e-03_jprb/)  
kao( :, 6, 1) = (/&
 & 4.5348e-03_jprb,4.7267e-03_jprb,5.0015e-03_jprb,5.3391e-03_jprb,5.7317e-03_jprb/)  
kao( :, 7, 1) = (/&
 & 3.6484e-03_jprb,3.7737e-03_jprb,3.9583e-03_jprb,4.2050e-03_jprb,4.5069e-03_jprb/)  
kao( :, 8, 1) = (/&
 & 2.9485e-03_jprb,3.0305e-03_jprb,3.1509e-03_jprb,3.3270e-03_jprb,3.5470e-03_jprb/)  
kao( :, 9, 1) = (/&
 & 2.4028e-03_jprb,2.4476e-03_jprb,2.5272e-03_jprb,2.6456e-03_jprb,2.8089e-03_jprb/)  
kao( :,10, 1) = (/&
 & 1.9899e-03_jprb,2.0047e-03_jprb,2.0583e-03_jprb,2.1403e-03_jprb,2.2643e-03_jprb/)  
kao( :,11, 1) = (/&
 & 1.6478e-03_jprb,1.6593e-03_jprb,1.7036e-03_jprb,1.7737e-03_jprb,1.8823e-03_jprb/)  
kao( :,12, 1) = (/&
 & 1.3599e-03_jprb,1.3694e-03_jprb,1.4067e-03_jprb,1.4672e-03_jprb,1.5617e-03_jprb/)  
kao( :,13, 1) = (/&
 & 1.1157e-03_jprb,1.1241e-03_jprb,1.1555e-03_jprb,1.2073e-03_jprb,1.2864e-03_jprb/)  
kao( :, 1, 2) = (/&
 & 3.8905e-02_jprb,4.2429e-02_jprb,4.6513e-02_jprb,5.0588e-02_jprb,5.5021e-02_jprb/)  
kao( :, 2, 2) = (/&
 & 3.0803e-02_jprb,3.3461e-02_jprb,3.6546e-02_jprb,3.9922e-02_jprb,4.3440e-02_jprb/)  
kao( :, 3, 2) = (/&
 & 2.4144e-02_jprb,2.6019e-02_jprb,2.8287e-02_jprb,3.0953e-02_jprb,3.3739e-02_jprb/)  
kao( :, 4, 2) = (/&
 & 1.9082e-02_jprb,2.0371e-02_jprb,2.2034e-02_jprb,2.4014e-02_jprb,2.6250e-02_jprb/)  
kao( :, 5, 2) = (/&
 & 1.5203e-02_jprb,1.6092e-02_jprb,1.7271e-02_jprb,1.8721e-02_jprb,2.0471e-02_jprb/)  
kao( :, 6, 2) = (/&
 & 1.2164e-02_jprb,1.2769e-02_jprb,1.3578e-02_jprb,1.4643e-02_jprb,1.5928e-02_jprb/)  
kao( :, 7, 2) = (/&
 & 9.7815e-03_jprb,1.0186e-02_jprb,1.0740e-02_jprb,1.1487e-02_jprb,1.2435e-02_jprb/)  
kao( :, 8, 2) = (/&
 & 7.9245e-03_jprb,8.1687e-03_jprb,8.5497e-03_jprb,9.0644e-03_jprb,9.7618e-03_jprb/)  
kao( :, 9, 2) = (/&
 & 6.4727e-03_jprb,6.5836e-03_jprb,6.8391e-03_jprb,7.1947e-03_jprb,7.6826e-03_jprb/)  
kao( :,10, 2) = (/&
 & 5.3240e-03_jprb,5.3575e-03_jprb,5.5193e-03_jprb,5.7706e-03_jprb,6.1166e-03_jprb/)  
kao( :,11, 2) = (/&
 & 4.3783e-03_jprb,4.4065e-03_jprb,4.5391e-03_jprb,4.7453e-03_jprb,5.0313e-03_jprb/)  
kao( :,12, 2) = (/&
 & 3.5968e-03_jprb,3.6203e-03_jprb,3.7298e-03_jprb,3.8998e-03_jprb,4.1378e-03_jprb/)  
kao( :,13, 2) = (/&
 & 2.9507e-03_jprb,2.9704e-03_jprb,3.0611e-03_jprb,3.2015e-03_jprb,3.4012e-03_jprb/)  
kao( :, 1, 3) = (/&
 & 1.0636e-01_jprb,1.1680e-01_jprb,1.2824e-01_jprb,1.4017e-01_jprb,1.5266e-01_jprb/)  
kao( :, 2, 3) = (/&
 & 8.4443e-02_jprb,9.2480e-02_jprb,1.0148e-01_jprb,1.1092e-01_jprb,1.2100e-01_jprb/)  
kao( :, 3, 3) = (/&
 & 6.5959e-02_jprb,7.1869e-02_jprb,7.8770e-02_jprb,8.6250e-02_jprb,9.4058e-02_jprb/)  
kao( :, 4, 3) = (/&
 & 5.1681e-02_jprb,5.6029e-02_jprb,6.1207e-02_jprb,6.7088e-02_jprb,7.3195e-02_jprb/)  
kao( :, 5, 3) = (/&
 & 4.0734e-02_jprb,4.3938e-02_jprb,4.7777e-02_jprb,5.2288e-02_jprb,5.7243e-02_jprb/)  
kao( :, 6, 3) = (/&
 & 3.2248e-02_jprb,3.4534e-02_jprb,3.7344e-02_jprb,4.0738e-02_jprb,4.4673e-02_jprb/)  
kao( :, 7, 3) = (/&
 & 2.5731e-02_jprb,2.7244e-02_jprb,2.9333e-02_jprb,3.1849e-02_jprb,3.4861e-02_jprb/)  
kao( :, 8, 3) = (/&
 & 2.0693e-02_jprb,2.1657e-02_jprb,2.3154e-02_jprb,2.5012e-02_jprb,2.7268e-02_jprb/)  
kao( :, 9, 3) = (/&
 & 1.6730e-02_jprb,1.7346e-02_jprb,1.8327e-02_jprb,1.9716e-02_jprb,2.1381e-02_jprb/)  
kao( :,10, 3) = (/&
 & 1.3588e-02_jprb,1.4015e-02_jprb,1.4658e-02_jprb,1.5680e-02_jprb,1.6936e-02_jprb/)  
kao( :,11, 3) = (/&
 & 1.1180e-02_jprb,1.1528e-02_jprb,1.2063e-02_jprb,1.2917e-02_jprb,1.3959e-02_jprb/)  
kao( :,12, 3) = (/&
 & 9.1920e-03_jprb,9.4766e-03_jprb,9.9244e-03_jprb,1.0636e-02_jprb,1.1502e-02_jprb/)  
kao( :,13, 3) = (/&
 & 7.5517e-03_jprb,7.7861e-03_jprb,8.1602e-03_jprb,8.7504e-03_jprb,9.4682e-03_jprb/)  
kao( :, 1, 4) = (/&
 & 2.6559e-01_jprb,2.7778e-01_jprb,2.8983e-01_jprb,3.0112e-01_jprb,3.1151e-01_jprb/)  
kao( :, 2, 4) = (/&
 & 2.1415e-01_jprb,2.2376e-01_jprb,2.3372e-01_jprb,2.4291e-01_jprb,2.5148e-01_jprb/)  
kao( :, 3, 4) = (/&
 & 1.7113e-01_jprb,1.7864e-01_jprb,1.8679e-01_jprb,1.9418e-01_jprb,2.0158e-01_jprb/)  
kao( :, 4, 4) = (/&
 & 1.3689e-01_jprb,1.4305e-01_jprb,1.4933e-01_jprb,1.5577e-01_jprb,1.6212e-01_jprb/)  
kao( :, 5, 4) = (/&
 & 1.0951e-01_jprb,1.1484e-01_jprb,1.1993e-01_jprb,1.2527e-01_jprb,1.3048e-01_jprb/)  
kao( :, 6, 4) = (/&
 & 8.7678e-02_jprb,9.2013e-02_jprb,9.6292e-02_jprb,1.0052e-01_jprb,1.0492e-01_jprb/)  
kao( :, 7, 4) = (/&
 & 7.0271e-02_jprb,7.3646e-02_jprb,7.7252e-02_jprb,8.0679e-02_jprb,8.4295e-02_jprb/)  
kao( :, 8, 4) = (/&
 & 5.6292e-02_jprb,5.9027e-02_jprb,6.1915e-02_jprb,6.4784e-02_jprb,6.7662e-02_jprb/)  
kao( :, 9, 4) = (/&
 & 4.5045e-02_jprb,4.7308e-02_jprb,4.9593e-02_jprb,5.1992e-02_jprb,5.4350e-02_jprb/)  
kao( :,10, 4) = (/&
 & 3.6083e-02_jprb,3.8037e-02_jprb,3.9928e-02_jprb,4.1868e-02_jprb,4.3827e-02_jprb/)  
kao( :,11, 4) = (/&
 & 2.9684e-02_jprb,3.1305e-02_jprb,3.2869e-02_jprb,3.4458e-02_jprb,3.6069e-02_jprb/)  
kao( :,12, 4) = (/&
 & 2.4428e-02_jprb,2.5760e-02_jprb,2.7039e-02_jprb,2.8345e-02_jprb,2.9671e-02_jprb/)  
kao( :,13, 4) = (/&
 & 2.0094e-02_jprb,2.1179e-02_jprb,2.2224e-02_jprb,2.3304e-02_jprb,2.4394e-02_jprb/)  
kao( :, 1, 5) = (/&
 & 4.7290e-01_jprb,4.8928e-01_jprb,5.0887e-01_jprb,5.3328e-01_jprb,5.6216e-01_jprb/)  
kao( :, 2, 5) = (/&
 & 3.8475e-01_jprb,3.9762e-01_jprb,4.1280e-01_jprb,4.3219e-01_jprb,4.5473e-01_jprb/)  
kao( :, 3, 5) = (/&
 & 3.0979e-01_jprb,3.1996e-01_jprb,3.3105e-01_jprb,3.4530e-01_jprb,3.6216e-01_jprb/)  
kao( :, 4, 5) = (/&
 & 2.5002e-01_jprb,2.5800e-01_jprb,2.6674e-01_jprb,2.7709e-01_jprb,2.8946e-01_jprb/)  
kao( :, 5, 5) = (/&
 & 2.0218e-01_jprb,2.0847e-01_jprb,2.1546e-01_jprb,2.2311e-01_jprb,2.3239e-01_jprb/)  
kao( :, 6, 5) = (/&
 & 1.6286e-01_jprb,1.6840e-01_jprb,1.7397e-01_jprb,1.7996e-01_jprb,1.8683e-01_jprb/)  
kao( :, 7, 5) = (/&
 & 1.3055e-01_jprb,1.3602e-01_jprb,1.4050e-01_jprb,1.4524e-01_jprb,1.5047e-01_jprb/)  
kao( :, 8, 5) = (/&
 & 1.0442e-01_jprb,1.0954e-01_jprb,1.1353e-01_jprb,1.1737e-01_jprb,1.2143e-01_jprb/)  
kao( :, 9, 5) = (/&
 & 8.3388e-02_jprb,8.7841e-02_jprb,9.1682e-02_jprb,9.4816e-02_jprb,9.8050e-02_jprb/)  
kao( :,10, 5) = (/&
 & 6.7010e-02_jprb,7.0598e-02_jprb,7.4015e-02_jprb,7.6769e-02_jprb,7.9372e-02_jprb/)  
kao( :,11, 5) = (/&
 & 5.5118e-02_jprb,5.8051e-02_jprb,6.0869e-02_jprb,6.3114e-02_jprb,6.5294e-02_jprb/)  
kao( :,12, 5) = (/&
 & 4.5300e-02_jprb,4.7721e-02_jprb,5.0049e-02_jprb,5.1890e-02_jprb,5.3682e-02_jprb/)  
kao( :,13, 5) = (/&
 & 3.7225e-02_jprb,3.9236e-02_jprb,4.1133e-02_jprb,4.2631e-02_jprb,4.4126e-02_jprb/)  
kao( :, 1, 6) = (/&
 & 8.4224e-01_jprb,9.2264e-01_jprb,1.0073e+00_jprb,1.0930e+00_jprb,1.1793e+00_jprb/)  
kao( :, 2, 6) = (/&
 & 6.7595e-01_jprb,7.4232e-01_jprb,8.1248e-01_jprb,8.8302e-01_jprb,9.5616e-01_jprb/)  
kao( :, 3, 6) = (/&
 & 5.2904e-01_jprb,5.8048e-01_jprb,6.3751e-01_jprb,6.9642e-01_jprb,7.5721e-01_jprb/)  
kao( :, 4, 6) = (/&
 & 4.1315e-01_jprb,4.5407e-01_jprb,4.9971e-01_jprb,5.4886e-01_jprb,5.9964e-01_jprb/)  
kao( :, 5, 6) = (/&
 & 3.2467e-01_jprb,3.5531e-01_jprb,3.9159e-01_jprb,4.3161e-01_jprb,4.7423e-01_jprb/)  
kao( :, 6, 6) = (/&
 & 2.5574e-01_jprb,2.7784e-01_jprb,3.0579e-01_jprb,3.3817e-01_jprb,3.7278e-01_jprb/)  
kao( :, 7, 6) = (/&
 & 2.0313e-01_jprb,2.1792e-01_jprb,2.3876e-01_jprb,2.6386e-01_jprb,2.9205e-01_jprb/)  
kao( :, 8, 6) = (/&
 & 1.6285e-01_jprb,1.7201e-01_jprb,1.8675e-01_jprb,2.0598e-01_jprb,2.2843e-01_jprb/)  
kao( :, 9, 6) = (/&
 & 1.3178e-01_jprb,1.3687e-01_jprb,1.4670e-01_jprb,1.6087e-01_jprb,1.7827e-01_jprb/)  
kao( :,10, 6) = (/&
 & 1.0760e-01_jprb,1.1022e-01_jprb,1.1661e-01_jprb,1.2690e-01_jprb,1.4033e-01_jprb/)  
kao( :,11, 6) = (/&
 & 8.8471e-02_jprb,9.0742e-02_jprb,9.6088e-02_jprb,1.0477e-01_jprb,1.1601e-01_jprb/)  
kao( :,12, 6) = (/&
 & 7.2724e-02_jprb,7.4645e-02_jprb,7.9165e-02_jprb,8.6464e-02_jprb,9.5844e-02_jprb/)  
kao( :,13, 6) = (/&
 & 5.9719e-02_jprb,6.1350e-02_jprb,6.5177e-02_jprb,7.1301e-02_jprb,7.9088e-02_jprb/)  
kao( :, 1, 7) = (/&
 & 1.8416e+00_jprb,2.0377e+00_jprb,2.2351e+00_jprb,2.4351e+00_jprb,2.6357e+00_jprb/)  
kao( :, 2, 7) = (/&
 & 1.5057e+00_jprb,1.6691e+00_jprb,1.8342e+00_jprb,2.0031e+00_jprb,2.1705e+00_jprb/)  
kao( :, 3, 7) = (/&
 & 1.1980e+00_jprb,1.3329e+00_jprb,1.4704e+00_jprb,1.6099e+00_jprb,1.7488e+00_jprb/)  
kao( :, 4, 7) = (/&
 & 9.4408e-01_jprb,1.0566e+00_jprb,1.1708e+00_jprb,1.2874e+00_jprb,1.4014e+00_jprb/)  
kao( :, 5, 7) = (/&
 & 7.4052e-01_jprb,8.3332e-01_jprb,9.3007e-01_jprb,1.0263e+00_jprb,1.1221e+00_jprb/)  
kao( :, 6, 7) = (/&
 & 5.7502e-01_jprb,6.5145e-01_jprb,7.3102e-01_jprb,8.1228e-01_jprb,8.9283e-01_jprb/)  
kao( :, 7, 7) = (/&
 & 4.4413e-01_jprb,5.0565e-01_jprb,5.7113e-01_jprb,6.3832e-01_jprb,7.0636e-01_jprb/)  
kao( :, 8, 7) = (/&
 & 3.4215e-01_jprb,3.9125e-01_jprb,4.4414e-01_jprb,4.9963e-01_jprb,5.5600e-01_jprb/)  
kao( :, 9, 7) = (/&
 & 2.6278e-01_jprb,3.0155e-01_jprb,3.4409e-01_jprb,3.8940e-01_jprb,4.3634e-01_jprb/)  
kao( :,10, 7) = (/&
 & 2.0399e-01_jprb,2.3450e-01_jprb,2.6863e-01_jprb,3.0559e-01_jprb,3.4410e-01_jprb/)  
kao( :,11, 7) = (/&
 & 1.6899e-01_jprb,1.9452e-01_jprb,2.2306e-01_jprb,2.5367e-01_jprb,2.8600e-01_jprb/)  
kao( :,12, 7) = (/&
 & 1.4000e-01_jprb,1.6132e-01_jprb,1.8504e-01_jprb,2.1049e-01_jprb,2.3736e-01_jprb/)  
kao( :,13, 7) = (/&
 & 1.1587e-01_jprb,1.3364e-01_jprb,1.5332e-01_jprb,1.7448e-01_jprb,1.9695e-01_jprb/)  
kao( :, 1, 8) = (/&
 & 4.7751e+00_jprb,5.2791e+00_jprb,5.7933e+00_jprb,6.3083e+00_jprb,6.8326e+00_jprb/)  
kao( :, 2, 8) = (/&
 & 4.0048e+00_jprb,4.4443e+00_jprb,4.8940e+00_jprb,5.3580e+00_jprb,5.8267e+00_jprb/)  
kao( :, 3, 8) = (/&
 & 3.2400e+00_jprb,3.6253e+00_jprb,4.0207e+00_jprb,4.4230e+00_jprb,4.8210e+00_jprb/)  
kao( :, 4, 8) = (/&
 & 2.5883e+00_jprb,2.9210e+00_jprb,3.2656e+00_jprb,3.6154e+00_jprb,3.9641e+00_jprb/)  
kao( :, 5, 8) = (/&
 & 2.0550e+00_jprb,2.3390e+00_jprb,2.6351e+00_jprb,2.9336e+00_jprb,3.2370e+00_jprb/)  
kao( :, 6, 8) = (/&
 & 1.6130e+00_jprb,1.8538e+00_jprb,2.1027e+00_jprb,2.3582e+00_jprb,2.6184e+00_jprb/)  
kao( :, 7, 8) = (/&
 & 1.2548e+00_jprb,1.4567e+00_jprb,1.6664e+00_jprb,1.8820e+00_jprb,2.1036e+00_jprb/)  
kao( :, 8, 8) = (/&
 & 9.6687e-01_jprb,1.1348e+00_jprb,1.3110e+00_jprb,1.4930e+00_jprb,1.6805e+00_jprb/)  
kao( :, 9, 8) = (/&
 & 7.3847e-01_jprb,8.7593e-01_jprb,1.0221e+00_jprb,1.1741e+00_jprb,1.3319e+00_jprb/)  
kao( :,10, 8) = (/&
 & 5.6776e-01_jprb,6.8017e-01_jprb,8.0059e-01_jprb,9.2750e-01_jprb,1.0593e+00_jprb/)  
kao( :,11, 8) = (/&
 & 4.7511e-01_jprb,5.6972e-01_jprb,6.7118e-01_jprb,7.7840e-01_jprb,8.8949e-01_jprb/)  
kao( :,12, 8) = (/&
 & 3.9658e-01_jprb,4.7593e-01_jprb,5.6128e-01_jprb,6.5124e-01_jprb,7.4417e-01_jprb/)  
kao( :,13, 8) = (/&
 & 3.3005e-01_jprb,3.9650e-01_jprb,4.6807e-01_jprb,5.4357e-01_jprb,6.2155e-01_jprb/)  
kao( :, 1, 9) = (/&
 & 1.7831e+01_jprb,1.9823e+01_jprb,2.1884e+01_jprb,2.3937e+01_jprb,2.5904e+01_jprb/)  
kao( :, 2, 9) = (/&
 & 1.5983e+01_jprb,1.7908e+01_jprb,1.9844e+01_jprb,2.1750e+01_jprb,2.3639e+01_jprb/)  
kao( :, 3, 9) = (/&
 & 1.3838e+01_jprb,1.5652e+01_jprb,1.7428e+01_jprb,1.9195e+01_jprb,2.0946e+01_jprb/)  
kao( :, 4, 9) = (/&
 & 1.1707e+01_jprb,1.3372e+01_jprb,1.5018e+01_jprb,1.6675e+01_jprb,1.8330e+01_jprb/)  
kao( :, 5, 9) = (/&
 & 9.7619e+00_jprb,1.1244e+01_jprb,1.2752e+01_jprb,1.4279e+01_jprb,1.5837e+01_jprb/)  
kao( :, 6, 9) = (/&
 & 7.9817e+00_jprb,9.2988e+00_jprb,1.0650e+01_jprb,1.2029e+01_jprb,1.3449e+01_jprb/)  
kao( :, 7, 9) = (/&
 & 6.4478e+00_jprb,7.5864e+00_jprb,8.7717e+00_jprb,1.0008e+01_jprb,1.1289e+01_jprb/)  
kao( :, 8, 9) = (/&
 & 5.1550e+00_jprb,6.1381e+00_jprb,7.1667e+00_jprb,8.2567e+00_jprb,9.3759e+00_jprb/)  
kao( :, 9, 9) = (/&
 & 4.0462e+00_jprb,4.8924e+00_jprb,5.7944e+00_jprb,6.7466e+00_jprb,7.7100e+00_jprb/)  
kao( :,10, 9) = (/&
 & 3.1920e+00_jprb,3.9133e+00_jprb,4.6912e+00_jprb,5.5091e+00_jprb,6.3432e+00_jprb/)  
kao( :,11, 9) = (/&
 & 2.7717e+00_jprb,3.4039e+00_jprb,4.0800e+00_jprb,4.7818e+00_jprb,5.5081e+00_jprb/)  
kao( :,12, 9) = (/&
 & 2.3978e+00_jprb,2.9436e+00_jprb,3.5235e+00_jprb,4.1293e+00_jprb,4.7600e+00_jprb/)  
kao( :,13, 9) = (/&
 & 2.0575e+00_jprb,2.5263e+00_jprb,3.0244e+00_jprb,3.5477e+00_jprb,4.0896e+00_jprb/)  
kao( :, 1,10) = (/&
 & 4.9748e+01_jprb,5.5112e+01_jprb,5.9938e+01_jprb,6.5023e+01_jprb,7.0458e+01_jprb/)  
kao( :, 2,10) = (/&
 & 4.6588e+01_jprb,5.1661e+01_jprb,5.6901e+01_jprb,6.2463e+01_jprb,6.8487e+01_jprb/)  
kao( :, 3,10) = (/&
 & 4.1628e+01_jprb,4.6699e+01_jprb,5.2314e+01_jprb,5.8353e+01_jprb,6.4458e+01_jprb/)  
kao( :, 4,10) = (/&
 & 3.7456e+01_jprb,4.2469e+01_jprb,4.7867e+01_jprb,5.3384e+01_jprb,5.9111e+01_jprb/)  
kao( :, 5,10) = (/&
 & 3.3436e+01_jprb,3.8793e+01_jprb,4.3992e+01_jprb,4.9077e+01_jprb,5.4046e+01_jprb/)  
kao( :, 6,10) = (/&
 & 2.8948e+01_jprb,3.4066e+01_jprb,3.9093e+01_jprb,4.3943e+01_jprb,4.8577e+01_jprb/)  
kao( :, 7,10) = (/&
 & 2.4411e+01_jprb,2.9169e+01_jprb,3.3772e+01_jprb,3.8328e+01_jprb,4.2674e+01_jprb/)  
kao( :, 8,10) = (/&
 & 2.0213e+01_jprb,2.4379e+01_jprb,2.8547e+01_jprb,3.2632e+01_jprb,3.6717e+01_jprb/)  
kao( :, 9,10) = (/&
 & 1.6770e+01_jprb,2.0275e+01_jprb,2.3726e+01_jprb,2.7289e+01_jprb,3.1149e+01_jprb/)  
kao( :,10,10) = (/&
 & 1.3740e+01_jprb,1.6814e+01_jprb,1.9874e+01_jprb,2.3039e+01_jprb,2.6529e+01_jprb/)  

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


SUBROUTINE part2

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


kao( :,11,10) = (/&
 & 1.2161e+01_jprb,1.4820e+01_jprb,1.7667e+01_jprb,2.0767e+01_jprb,2.3948e+01_jprb/)  
kao( :,12,10) = (/&
 & 1.0666e+01_jprb,1.3093e+01_jprb,1.5727e+01_jprb,1.8473e+01_jprb,2.1195e+01_jprb/)  
kao( :,13,10) = (/&
 & 9.3915e+00_jprb,1.1557e+01_jprb,1.3847e+01_jprb,1.6172e+01_jprb,1.8558e+01_jprb/)  
kao( :, 1,11) = (/&
 & 7.2842e+01_jprb,8.2127e+01_jprb,9.1751e+01_jprb,1.0081e+02_jprb,1.0868e+02_jprb/)  
kao( :, 2,11) = (/&
 & 7.0912e+01_jprb,8.0211e+01_jprb,8.9133e+01_jprb,9.7767e+01_jprb,1.0537e+02_jprb/)  
kao( :, 3,11) = (/&
 & 6.7169e+01_jprb,7.5895e+01_jprb,8.3957e+01_jprb,9.1467e+01_jprb,9.8740e+01_jprb/)  
kao( :, 4,11) = (/&
 & 6.1046e+01_jprb,6.9086e+01_jprb,7.7071e+01_jprb,8.4625e+01_jprb,9.2325e+01_jprb/)  
kao( :, 5,11) = (/&
 & 5.4291e+01_jprb,6.1624e+01_jprb,6.9146e+01_jprb,7.6916e+01_jprb,8.5050e+01_jprb/)  
kao( :, 6,11) = (/&
 & 4.7940e+01_jprb,5.4754e+01_jprb,6.1943e+01_jprb,6.9739e+01_jprb,7.7765e+01_jprb/)  
kao( :, 7,11) = (/&
 & 4.1424e+01_jprb,4.8323e+01_jprb,5.5884e+01_jprb,6.3434e+01_jprb,7.1064e+01_jprb/)  
kao( :, 8,11) = (/&
 & 3.4808e+01_jprb,4.1718e+01_jprb,4.9240e+01_jprb,5.6728e+01_jprb,6.4032e+01_jprb/)  
kao( :, 9,11) = (/&
 & 2.8724e+01_jprb,3.5333e+01_jprb,4.2395e+01_jprb,4.9372e+01_jprb,5.6186e+01_jprb/)  
kao( :,10,11) = (/&
 & 2.4060e+01_jprb,2.9886e+01_jprb,3.6171e+01_jprb,4.2511e+01_jprb,4.8855e+01_jprb/)  
kao( :,11,11) = (/&
 & 2.2466e+01_jprb,2.7842e+01_jprb,3.3276e+01_jprb,3.8707e+01_jprb,4.4411e+01_jprb/)  
kao( :,12,11) = (/&
 & 2.0635e+01_jprb,2.5402e+01_jprb,3.0130e+01_jprb,3.5065e+01_jprb,4.0456e+01_jprb/)  
kao( :,13,11) = (/&
 & 1.8375e+01_jprb,2.2528e+01_jprb,2.6944e+01_jprb,3.1721e+01_jprb,3.6642e+01_jprb/)  
kao( :, 1,12) = (/&
 & 1.2814e+02_jprb,1.3938e+02_jprb,1.4994e+02_jprb,1.6150e+02_jprb,1.7273e+02_jprb/)  
kao( :, 2,12) = (/&
 & 1.2028e+02_jprb,1.3171e+02_jprb,1.4381e+02_jprb,1.5628e+02_jprb,1.6936e+02_jprb/)  
kao( :, 3,12) = (/&
 & 1.0908e+02_jprb,1.2221e+02_jprb,1.3662e+02_jprb,1.5108e+02_jprb,1.6591e+02_jprb/)  
kao( :, 4,12) = (/&
 & 9.9689e+01_jprb,1.1393e+02_jprb,1.2899e+02_jprb,1.4446e+02_jprb,1.5932e+02_jprb/)  
kao( :, 5,12) = (/&
 & 9.1574e+01_jprb,1.0647e+02_jprb,1.2179e+02_jprb,1.3681e+02_jprb,1.5090e+02_jprb/)  
kao( :, 6,12) = (/&
 & 8.3159e+01_jprb,9.8372e+01_jprb,1.1370e+02_jprb,1.2787e+02_jprb,1.4184e+02_jprb/)  
kao( :, 7,12) = (/&
 & 7.5130e+01_jprb,8.9279e+01_jprb,1.0335e+02_jprb,1.1696e+02_jprb,1.3088e+02_jprb/)  
kao( :, 8,12) = (/&
 & 6.6942e+01_jprb,7.9719e+01_jprb,9.2547e+01_jprb,1.0530e+02_jprb,1.1887e+02_jprb/)  
kao( :, 9,12) = (/&
 & 5.7722e+01_jprb,6.9837e+01_jprb,8.2082e+01_jprb,9.4593e+01_jprb,1.0770e+02_jprb/)  
kao( :,10,12) = (/&
 & 4.9040e+01_jprb,6.0620e+01_jprb,7.2577e+01_jprb,8.5187e+01_jprb,9.7844e+01_jprb/)  
kao( :,11,12) = (/&
 & 4.5433e+01_jprb,5.6352e+01_jprb,6.8223e+01_jprb,8.0499e+01_jprb,9.2512e+01_jprb/)  
kao( :,12,12) = (/&
 & 4.1971e+01_jprb,5.2467e+01_jprb,6.3533e+01_jprb,7.4543e+01_jprb,8.5084e+01_jprb/)  
kao( :,13,12) = (/&
 & 3.9013e+01_jprb,4.8568e+01_jprb,5.8272e+01_jprb,6.7741e+01_jprb,7.7194e+01_jprb/)  
kao( :, 1,13) = (/&
 & 2.2210e+02_jprb,2.4767e+02_jprb,2.7177e+02_jprb,2.9506e+02_jprb,3.1428e+02_jprb/)  
kao( :, 2,13) = (/&
 & 2.2387e+02_jprb,2.5269e+02_jprb,2.7872e+02_jprb,2.9937e+02_jprb,3.1679e+02_jprb/)  
kao( :, 3,13) = (/&
 & 2.1746e+02_jprb,2.4620e+02_jprb,2.7168e+02_jprb,2.9352e+02_jprb,3.1488e+02_jprb/)  
kao( :, 4,13) = (/&
 & 2.0527e+02_jprb,2.3513e+02_jprb,2.5998e+02_jprb,2.8303e+02_jprb,3.0506e+02_jprb/)  
kao( :, 5,13) = (/&
 & 1.8964e+02_jprb,2.1890e+02_jprb,2.4311e+02_jprb,2.6810e+02_jprb,2.9248e+02_jprb/)  
kao( :, 6,13) = (/&
 & 1.7090e+02_jprb,1.9758e+02_jprb,2.2284e+02_jprb,2.4839e+02_jprb,2.7463e+02_jprb/)  
kao( :, 7,13) = (/&
 & 1.5109e+02_jprb,1.7710e+02_jprb,2.0295e+02_jprb,2.2932e+02_jprb,2.5634e+02_jprb/)  
kao( :, 8,13) = (/&
 & 1.3270e+02_jprb,1.5826e+02_jprb,1.8450e+02_jprb,2.1121e+02_jprb,2.3873e+02_jprb/)  
kao( :, 9,13) = (/&
 & 1.1570e+02_jprb,1.4021e+02_jprb,1.6653e+02_jprb,1.9389e+02_jprb,2.2105e+02_jprb/)  
kao( :,10,13) = (/&
 & 1.0259e+02_jprb,1.2584e+02_jprb,1.5091e+02_jprb,1.7718e+02_jprb,2.0281e+02_jprb/)  
kao( :,11,13) = (/&
 & 1.0076e+02_jprb,1.2370e+02_jprb,1.4756e+02_jprb,1.7147e+02_jprb,1.9575e+02_jprb/)  
kao( :,12,13) = (/&
 & 9.7325e+01_jprb,1.1939e+02_jprb,1.4174e+02_jprb,1.6449e+02_jprb,1.8836e+02_jprb/)  
kao( :,13,13) = (/&
 & 9.2070e+01_jprb,1.1299e+02_jprb,1.3489e+02_jprb,1.5734e+02_jprb,1.8036e+02_jprb/)  
kao( :, 1,14) = (/&
 & 4.2241e+02_jprb,4.5820e+02_jprb,4.8815e+02_jprb,5.1730e+02_jprb,5.4765e+02_jprb/)  
kao( :, 2,14) = (/&
 & 4.2461e+02_jprb,4.6681e+02_jprb,4.9982e+02_jprb,5.3726e+02_jprb,5.6640e+02_jprb/)  
kao( :, 3,14) = (/&
 & 4.1742e+02_jprb,4.5924e+02_jprb,4.9930e+02_jprb,5.3630e+02_jprb,5.8090e+02_jprb/)  
kao( :, 4,14) = (/&
 & 3.9739e+02_jprb,4.4336e+02_jprb,4.8832e+02_jprb,5.2886e+02_jprb,5.8035e+02_jprb/)  
kao( :, 5,14) = (/&
 & 3.7398e+02_jprb,4.2048e+02_jprb,4.7438e+02_jprb,5.2486e+02_jprb,5.7134e+02_jprb/)  
kao( :, 6,14) = (/&
 & 3.4725e+02_jprb,3.9940e+02_jprb,4.5648e+02_jprb,5.1230e+02_jprb,5.6617e+02_jprb/)  
kao( :, 7,14) = (/&
 & 3.2072e+02_jprb,3.7728e+02_jprb,4.3646e+02_jprb,4.9362e+02_jprb,5.5200e+02_jprb/)  
kao( :, 8,14) = (/&
 & 2.9404e+02_jprb,3.5487e+02_jprb,4.1802e+02_jprb,4.7825e+02_jprb,5.4076e+02_jprb/)  
kao( :, 9,14) = (/&
 & 2.7034e+02_jprb,3.3232e+02_jprb,3.9722e+02_jprb,4.5997e+02_jprb,5.2290e+02_jprb/)  
kao( :,10,14) = (/&
 & 2.5045e+02_jprb,3.1309e+02_jprb,3.7582e+02_jprb,4.4096e+02_jprb,5.0588e+02_jprb/)  
kao( :,11,14) = (/&
 & 2.5624e+02_jprb,3.1911e+02_jprb,3.8269e+02_jprb,4.5034e+02_jprb,5.1713e+02_jprb/)  
kao( :,12,14) = (/&
 & 2.6046e+02_jprb,3.2208e+02_jprb,3.8851e+02_jprb,4.5644e+02_jprb,5.2468e+02_jprb/)  
kao( :,13,14) = (/&
 & 2.6376e+02_jprb,3.2552e+02_jprb,3.9097e+02_jprb,4.5804e+02_jprb,5.2614e+02_jprb/)  
kao( :, 1,15) = (/&
 & 8.5706e+02_jprb,9.2142e+02_jprb,9.6878e+02_jprb,1.0281e+03_jprb,1.0795e+03_jprb/)  
kao( :, 2,15) = (/&
 & 9.5189e+02_jprb,1.0335e+03_jprb,1.0913e+03_jprb,1.1632e+03_jprb,1.2011e+03_jprb/)  
kao( :, 3,15) = (/&
 & 1.0232e+03_jprb,1.0861e+03_jprb,1.1646e+03_jprb,1.2285e+03_jprb,1.3057e+03_jprb/)  
kao( :, 4,15) = (/&
 & 1.0392e+03_jprb,1.1356e+03_jprb,1.2544e+03_jprb,1.3115e+03_jprb,1.4338e+03_jprb/)  
kao( :, 5,15) = (/&
 & 1.0616e+03_jprb,1.1713e+03_jprb,1.3147e+03_jprb,1.4146e+03_jprb,1.4989e+03_jprb/)  
kao( :, 6,15) = (/&
 & 1.0788e+03_jprb,1.1886e+03_jprb,1.3302e+03_jprb,1.4680e+03_jprb,1.5638e+03_jprb/)  
kao( :, 7,15) = (/&
 & 1.0593e+03_jprb,1.1909e+03_jprb,1.3423e+03_jprb,1.4840e+03_jprb,1.6000e+03_jprb/)  
kao( :, 8,15) = (/&
 & 9.9873e+02_jprb,1.1655e+03_jprb,1.3439e+03_jprb,1.4887e+03_jprb,1.6318e+03_jprb/)  
kao( :, 9,15) = (/&
 & 9.4071e+02_jprb,1.1173e+03_jprb,1.3103e+03_jprb,1.4801e+03_jprb,1.6507e+03_jprb/)  
kao( :,10,15) = (/&
 & 8.8647e+02_jprb,1.0727e+03_jprb,1.2703e+03_jprb,1.4721e+03_jprb,1.6711e+03_jprb/)  
kao( :,11,15) = (/&
 & 9.2131e+02_jprb,1.1303e+03_jprb,1.3379e+03_jprb,1.5675e+03_jprb,1.7706e+03_jprb/)  
kao( :,12,15) = (/&
 & 9.6245e+02_jprb,1.1976e+03_jprb,1.4205e+03_jprb,1.6577e+03_jprb,1.8724e+03_jprb/)  
kao( :,13,15) = (/&
 & 1.0149e+03_jprb,1.2514e+03_jprb,1.4928e+03_jprb,1.7376e+03_jprb,1.9688e+03_jprb/)  
kao( :, 1,16) = (/&
 & 1.1893e+03_jprb,1.2688e+03_jprb,1.3351e+03_jprb,1.3959e+03_jprb,1.4433e+03_jprb/)  
kao( :, 2,16) = (/&
 & 1.4043e+03_jprb,1.5015e+03_jprb,1.5933e+03_jprb,1.6702e+03_jprb,1.7343e+03_jprb/)  
kao( :, 3,16) = (/&
 & 1.6203e+03_jprb,1.7272e+03_jprb,1.8338e+03_jprb,1.9414e+03_jprb,2.0288e+03_jprb/)  
kao( :, 4,16) = (/&
 & 1.7997e+03_jprb,1.9426e+03_jprb,2.1186e+03_jprb,2.2171e+03_jprb,2.3429e+03_jprb/)  
kao( :, 5,16) = (/&
 & 1.9840e+03_jprb,2.1906e+03_jprb,2.3875e+03_jprb,2.5360e+03_jprb,2.6578e+03_jprb/)  
kao( :, 6,16) = (/&
 & 2.1706e+03_jprb,2.4031e+03_jprb,2.6185e+03_jprb,2.8410e+03_jprb,2.9858e+03_jprb/)  
kao( :, 7,16) = (/&
 & 2.3367e+03_jprb,2.6044e+03_jprb,2.8764e+03_jprb,3.1365e+03_jprb,3.3254e+03_jprb/)  
kao( :, 8,16) = (/&
 & 2.4353e+03_jprb,2.7922e+03_jprb,3.1601e+03_jprb,3.4455e+03_jprb,3.6918e+03_jprb/)  
kao( :, 9,16) = (/&
 & 2.5375e+03_jprb,2.9571e+03_jprb,3.4043e+03_jprb,3.7567e+03_jprb,4.0876e+03_jprb/)  
kao( :,10,16) = (/&
 & 2.6751e+03_jprb,3.1240e+03_jprb,3.6015e+03_jprb,4.0631e+03_jprb,4.4658e+03_jprb/)  
kao( :,11,16) = (/&
 & 3.0220e+03_jprb,3.5297e+03_jprb,4.0306e+03_jprb,4.6185e+03_jprb,5.0516e+03_jprb/)  
kao( :,12,16) = (/&
 & 3.3138e+03_jprb,4.0094e+03_jprb,4.5368e+03_jprb,5.2030e+03_jprb,5.7257e+03_jprb/)  
kao( :,13,16) = (/&
 & 3.6770e+03_jprb,4.3534e+03_jprb,5.0748e+03_jprb,5.8067e+03_jprb,6.4888e+03_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) = (/&
 & 1.1165e-03_jprb,1.1247e-03_jprb,1.1560e-03_jprb,1.2076e-03_jprb,1.2869e-03_jprb/)  
kbo( :,14, 1) = (/&
 & 9.1499e-04_jprb,9.2417e-04_jprb,9.5214e-04_jprb,9.9793e-04_jprb,1.0647e-03_jprb/)  
kbo( :,15, 1) = (/&
 & 7.4895e-04_jprb,7.5885e-04_jprb,7.8398e-04_jprb,8.2364e-04_jprb,8.7934e-04_jprb/)  
kbo( :,16, 1) = (/&
 & 6.1285e-04_jprb,6.2301e-04_jprb,6.4528e-04_jprb,6.7919e-04_jprb,7.2561e-04_jprb/)  
kbo( :,17, 1) = (/&
 & 5.0161e-04_jprb,5.1162e-04_jprb,5.3088e-04_jprb,5.5956e-04_jprb,5.9827e-04_jprb/)  
kbo( :,18, 1) = (/&
 & 4.1059e-04_jprb,4.2007e-04_jprb,4.3635e-04_jprb,4.6069e-04_jprb,4.9285e-04_jprb/)  
kbo( :,19, 1) = (/&
 & 3.3641e-04_jprb,3.4500e-04_jprb,3.5879e-04_jprb,3.7929e-04_jprb,4.0616e-04_jprb/)  
kbo( :,20, 1) = (/&
 & 2.7603e-04_jprb,2.8363e-04_jprb,2.9537e-04_jprb,3.1276e-04_jprb,3.3531e-04_jprb/)  
kbo( :,21, 1) = (/&
 & 2.2659e-04_jprb,2.3317e-04_jprb,2.4324e-04_jprb,2.5796e-04_jprb,2.7695e-04_jprb/)  
kbo( :,22, 1) = (/&
 & 1.8631e-04_jprb,1.9217e-04_jprb,2.0103e-04_jprb,2.1374e-04_jprb,2.2994e-04_jprb/)  
kbo( :,23, 1) = (/&
 & 1.5327e-04_jprb,1.5846e-04_jprb,1.6631e-04_jprb,1.7723e-04_jprb,1.9096e-04_jprb/)  
kbo( :,24, 1) = (/&
 & 1.2620e-04_jprb,1.3080e-04_jprb,1.3778e-04_jprb,1.4714e-04_jprb,1.5867e-04_jprb/)  
kbo( :,25, 1) = (/&
 & 1.0400e-04_jprb,1.0810e-04_jprb,1.1426e-04_jprb,1.2231e-04_jprb,1.3192e-04_jprb/)  
kbo( :,26, 1) = (/&
 & 8.5812e-05_jprb,8.9507e-05_jprb,9.4927e-05_jprb,1.0190e-04_jprb,1.0982e-04_jprb/)  
kbo( :,27, 1) = (/&
 & 7.0859e-05_jprb,7.4205e-05_jprb,7.8939e-05_jprb,8.4957e-05_jprb,9.1449e-05_jprb/)  
kbo( :,28, 1) = (/&
 & 5.8569e-05_jprb,6.1594e-05_jprb,6.5700e-05_jprb,7.0820e-05_jprb,7.6191e-05_jprb/)  
kbo( :,29, 1) = (/&
 & 4.8465e-05_jprb,5.1177e-05_jprb,5.4745e-05_jprb,5.9040e-05_jprb,6.3532e-05_jprb/)  
kbo( :,30, 1) = (/&
 & 4.0147e-05_jprb,4.2553e-05_jprb,4.5653e-05_jprb,4.9207e-05_jprb,5.2981e-05_jprb/)  
kbo( :,31, 1) = (/&
 & 3.3300e-05_jprb,3.5414e-05_jprb,3.8102e-05_jprb,4.1014e-05_jprb,4.4195e-05_jprb/)  
kbo( :,32, 1) = (/&
 & 2.7662e-05_jprb,2.9504e-05_jprb,3.1798e-05_jprb,3.4208e-05_jprb,3.6892e-05_jprb/)  
kbo( :,33, 1) = (/&
 & 2.3000e-05_jprb,2.4605e-05_jprb,2.6531e-05_jprb,2.8549e-05_jprb,3.0814e-05_jprb/)  
kbo( :,34, 1) = (/&
 & 1.9101e-05_jprb,2.0488e-05_jprb,2.2081e-05_jprb,2.3773e-05_jprb,2.5683e-05_jprb/)  
kbo( :,35, 1) = (/&
 & 1.5772e-05_jprb,1.6945e-05_jprb,1.8248e-05_jprb,1.9654e-05_jprb,2.1248e-05_jprb/)  
kbo( :,36, 1) = (/&
 & 1.2932e-05_jprb,1.3897e-05_jprb,1.4964e-05_jprb,1.6118e-05_jprb,1.7427e-05_jprb/)  
kbo( :,37, 1) = (/&
 & 1.0500e-05_jprb,1.1266e-05_jprb,1.2140e-05_jprb,1.3070e-05_jprb,1.4122e-05_jprb/)  
kbo( :,38, 1) = (/&
 & 8.5232e-06_jprb,9.1293e-06_jprb,9.8424e-06_jprb,1.0593e-05_jprb,1.1438e-05_jprb/)  
kbo( :,39, 1) = (/&
 & 6.9199e-06_jprb,7.4001e-06_jprb,7.9793e-06_jprb,8.5851e-06_jprb,9.2651e-06_jprb/)  
kbo( :,40, 1) = (/&
 & 5.5869e-06_jprb,5.9579e-06_jprb,6.4208e-06_jprb,6.9067e-06_jprb,7.4490e-06_jprb/)  
kbo( :,41, 1) = (/&
 & 4.5102e-06_jprb,4.7959e-06_jprb,5.1598e-06_jprb,5.5535e-06_jprb,5.9845e-06_jprb/)  
kbo( :,42, 1) = (/&
 & 3.6455e-06_jprb,3.8634e-06_jprb,4.1445e-06_jprb,4.4666e-06_jprb,4.8093e-06_jprb/)  
kbo( :,43, 1) = (/&
 & 2.9434e-06_jprb,3.1045e-06_jprb,3.3181e-06_jprb,3.5779e-06_jprb,3.8500e-06_jprb/)  
kbo( :,44, 1) = (/&
 & 2.3784e-06_jprb,2.4940e-06_jprb,2.6554e-06_jprb,2.8596e-06_jprb,3.0773e-06_jprb/)  
kbo( :,45, 1) = (/&
 & 1.9254e-06_jprb,2.0073e-06_jprb,2.1280e-06_jprb,2.2840e-06_jprb,2.4615e-06_jprb/)  
kbo( :,46, 1) = (/&
 & 1.5599e-06_jprb,1.6176e-06_jprb,1.7055e-06_jprb,1.8226e-06_jprb,1.9656e-06_jprb/)  
kbo( :,47, 1) = (/&
 & 1.2647e-06_jprb,1.3045e-06_jprb,1.3657e-06_jprb,1.4527e-06_jprb,1.5636e-06_jprb/)  
kbo( :,48, 1) = (/&
 & 1.0280e-06_jprb,1.0546e-06_jprb,1.0967e-06_jprb,1.1602e-06_jprb,1.2430e-06_jprb/)  
kbo( :,49, 1) = (/&
 & 8.3899e-07_jprb,8.5435e-07_jprb,8.8348e-07_jprb,9.2841e-07_jprb,9.8990e-07_jprb/)  
kbo( :,50, 1) = (/&
 & 6.8758e-07_jprb,6.9417e-07_jprb,7.1424e-07_jprb,7.4551e-07_jprb,7.9125e-07_jprb/)  
kbo( :,51, 1) = (/&
 & 5.6525e-07_jprb,5.6564e-07_jprb,5.7879e-07_jprb,6.0067e-07_jprb,6.3406e-07_jprb/)  
kbo( :,52, 1) = (/&
 & 4.6614e-07_jprb,4.6262e-07_jprb,4.6991e-07_jprb,4.8521e-07_jprb,5.0895e-07_jprb/)  
kbo( :,53, 1) = (/&
 & 3.8583e-07_jprb,3.7971e-07_jprb,3.8237e-07_jprb,3.9285e-07_jprb,4.0940e-07_jprb/)  
kbo( :,54, 1) = (/&
 & 3.1998e-07_jprb,3.1249e-07_jprb,3.1214e-07_jprb,3.1896e-07_jprb,3.3069e-07_jprb/)  
kbo( :,55, 1) = (/&
 & 2.6585e-07_jprb,2.5784e-07_jprb,2.5568e-07_jprb,2.5953e-07_jprb,2.6785e-07_jprb/)  
kbo( :,56, 1) = (/&
 & 2.2137e-07_jprb,2.1341e-07_jprb,2.1005e-07_jprb,2.1159e-07_jprb,2.1739e-07_jprb/)  
kbo( :,57, 1) = (/&
 & 1.8477e-07_jprb,1.7712e-07_jprb,1.7304e-07_jprb,1.7292e-07_jprb,1.7676e-07_jprb/)  
kbo( :,58, 1) = (/&
 & 1.5448e-07_jprb,1.4728e-07_jprb,1.4291e-07_jprb,1.4181e-07_jprb,1.4406e-07_jprb/)  
kbo( :,59, 1) = (/&
 & 1.2795e-07_jprb,1.2169e-07_jprb,1.1777e-07_jprb,1.1651e-07_jprb,1.1802e-07_jprb/)  
kbo( :,13, 2) = (/&
 & 2.9516e-03_jprb,2.9713e-03_jprb,3.0616e-03_jprb,3.2019e-03_jprb,3.4017e-03_jprb/)  
kbo( :,14, 2) = (/&
 & 2.4197e-03_jprb,2.4414e-03_jprb,2.5207e-03_jprb,2.6407e-03_jprb,2.8167e-03_jprb/)  
kbo( :,15, 2) = (/&
 & 1.9831e-03_jprb,2.0063e-03_jprb,2.0755e-03_jprb,2.1800e-03_jprb,2.3342e-03_jprb/)  
kbo( :,16, 2) = (/&
 & 1.6252e-03_jprb,1.6492e-03_jprb,1.7097e-03_jprb,1.8014e-03_jprb,1.9341e-03_jprb/)  
kbo( :,17, 2) = (/&
 & 1.3321e-03_jprb,1.3556e-03_jprb,1.4086e-03_jprb,1.4882e-03_jprb,1.6017e-03_jprb/)  
kbo( :,18, 2) = (/&
 & 1.0920e-03_jprb,1.1148e-03_jprb,1.1610e-03_jprb,1.2292e-03_jprb,1.3248e-03_jprb/)  
kbo( :,19, 2) = (/&
 & 8.9534e-04_jprb,9.1690e-04_jprb,9.5709e-04_jprb,1.0148e-03_jprb,1.0951e-03_jprb/)  
kbo( :,20, 2) = (/&
 & 7.3445e-04_jprb,7.5503e-04_jprb,7.8958e-04_jprb,8.3863e-04_jprb,9.0600e-04_jprb/)  
kbo( :,21, 2) = (/&
 & 6.0290e-04_jprb,6.2180e-04_jprb,6.5148e-04_jprb,6.9308e-04_jprb,7.4966e-04_jprb/)  
kbo( :,22, 2) = (/&
 & 4.9595e-04_jprb,5.1353e-04_jprb,5.3937e-04_jprb,5.7561e-04_jprb,6.2348e-04_jprb/)  
kbo( :,23, 2) = (/&
 & 4.0855e-04_jprb,4.2434e-04_jprb,4.4677e-04_jprb,4.7846e-04_jprb,5.1897e-04_jprb/)  

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


SUBROUTINE part3

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


kbo( :,24, 2) = (/&
 & 3.3704e-04_jprb,3.5087e-04_jprb,3.7041e-04_jprb,3.9825e-04_jprb,4.3254e-04_jprb/)  
kbo( :,25, 2) = (/&
 & 2.7823e-04_jprb,2.9034e-04_jprb,3.0756e-04_jprb,3.3176e-04_jprb,3.6108e-04_jprb/)  
kbo( :,26, 2) = (/&
 & 2.2988e-04_jprb,2.4065e-04_jprb,2.5599e-04_jprb,2.7689e-04_jprb,3.0218e-04_jprb/)  
kbo( :,27, 2) = (/&
 & 1.9008e-04_jprb,1.9966e-04_jprb,2.1335e-04_jprb,2.3118e-04_jprb,2.5287e-04_jprb/)  
kbo( :,28, 2) = (/&
 & 1.5729e-04_jprb,1.6582e-04_jprb,1.7804e-04_jprb,1.9321e-04_jprb,2.1158e-04_jprb/)  
kbo( :,29, 2) = (/&
 & 1.3030e-04_jprb,1.3794e-04_jprb,1.4870e-04_jprb,1.6172e-04_jprb,1.7712e-04_jprb/)  
kbo( :,30, 2) = (/&
 & 1.0807e-04_jprb,1.1491e-04_jprb,1.2423e-04_jprb,1.3552e-04_jprb,1.4830e-04_jprb/)  
kbo( :,31, 2) = (/&
 & 8.9737e-05_jprb,9.5873e-05_jprb,1.0385e-04_jprb,1.1357e-04_jprb,1.2422e-04_jprb/)  
kbo( :,32, 2) = (/&
 & 7.4607e-05_jprb,8.0114e-05_jprb,8.6925e-05_jprb,9.5160e-05_jprb,1.0409e-04_jprb/)  
kbo( :,33, 2) = (/&
 & 6.2115e-05_jprb,6.6976e-05_jprb,7.2842e-05_jprb,7.9749e-05_jprb,8.7261e-05_jprb/)  
kbo( :,34, 2) = (/&
 & 5.1667e-05_jprb,5.5854e-05_jprb,6.0911e-05_jprb,6.6641e-05_jprb,7.2945e-05_jprb/)  
kbo( :,35, 2) = (/&
 & 4.2714e-05_jprb,4.6224e-05_jprb,5.0476e-05_jprb,5.5207e-05_jprb,6.0446e-05_jprb/)  
kbo( :,36, 2) = (/&
 & 3.5033e-05_jprb,3.7916e-05_jprb,4.1413e-05_jprb,4.5290e-05_jprb,4.9590e-05_jprb/)  
kbo( :,37, 2) = (/&
 & 2.8417e-05_jprb,3.0724e-05_jprb,3.3511e-05_jprb,3.6656e-05_jprb,4.0123e-05_jprb/)  
kbo( :,38, 2) = (/&
 & 2.3044e-05_jprb,2.4879e-05_jprb,2.7091e-05_jprb,2.9646e-05_jprb,3.2440e-05_jprb/)  
kbo( :,39, 2) = (/&
 & 1.8696e-05_jprb,2.0150e-05_jprb,2.1905e-05_jprb,2.3977e-05_jprb,2.6231e-05_jprb/)  
kbo( :,40, 2) = (/&
 & 1.5079e-05_jprb,1.6190e-05_jprb,1.7561e-05_jprb,1.9219e-05_jprb,2.1019e-05_jprb/)  
kbo( :,41, 2) = (/&
 & 1.2166e-05_jprb,1.2998e-05_jprb,1.4076e-05_jprb,1.5387e-05_jprb,1.6826e-05_jprb/)  
kbo( :,42, 2) = (/&
 & 9.8245e-06_jprb,1.0447e-05_jprb,1.1292e-05_jprb,1.2314e-05_jprb,1.3470e-05_jprb/)  
kbo( :,43, 2) = (/&
 & 7.9207e-06_jprb,8.3766e-06_jprb,9.0212e-06_jprb,9.8015e-06_jprb,1.0730e-05_jprb/)  
kbo( :,44, 2) = (/&
 & 6.3891e-06_jprb,6.7204e-06_jprb,7.1950e-06_jprb,7.7968e-06_jprb,8.5295e-06_jprb/)  
kbo( :,45, 2) = (/&
 & 5.1614e-06_jprb,5.4018e-06_jprb,5.7463e-06_jprb,6.2126e-06_jprb,6.7779e-06_jprb/)  
kbo( :,46, 2) = (/&
 & 4.1735e-06_jprb,4.3451e-06_jprb,4.5931e-06_jprb,4.9450e-06_jprb,5.3724e-06_jprb/)  
kbo( :,47, 2) = (/&
 & 3.3750e-06_jprb,3.4959e-06_jprb,3.6722e-06_jprb,3.9247e-06_jprb,4.2513e-06_jprb/)  
kbo( :,48, 2) = (/&
 & 2.7418e-06_jprb,2.8192e-06_jprb,2.9434e-06_jprb,3.1225e-06_jprb,3.3711e-06_jprb/)  
kbo( :,49, 2) = (/&
 & 2.2371e-06_jprb,2.2775e-06_jprb,2.3656e-06_jprb,2.4925e-06_jprb,2.6750e-06_jprb/)  
kbo( :,50, 2) = (/&
 & 1.8317e-06_jprb,1.8465e-06_jprb,1.9073e-06_jprb,1.9984e-06_jprb,2.1290e-06_jprb/)  
kbo( :,51, 2) = (/&
 & 1.5036e-06_jprb,1.5039e-06_jprb,1.5416e-06_jprb,1.6065e-06_jprb,1.7002e-06_jprb/)  
kbo( :,52, 2) = (/&
 & 1.2365e-06_jprb,1.2289e-06_jprb,1.2476e-06_jprb,1.2944e-06_jprb,1.3617e-06_jprb/)  
kbo( :,53, 2) = (/&
 & 1.0180e-06_jprb,1.0070e-06_jprb,1.0130e-06_jprb,1.0447e-06_jprb,1.0931e-06_jprb/)  
kbo( :,54, 2) = (/&
 & 8.3881e-07_jprb,8.2694e-07_jprb,8.2607e-07_jprb,8.4574e-07_jprb,8.8059e-07_jprb/)  
kbo( :,55, 2) = (/&
 & 6.9195e-07_jprb,6.7987e-07_jprb,6.7548e-07_jprb,6.8562e-07_jprb,7.1114e-07_jprb/)  
kbo( :,56, 2) = (/&
 & 5.7173e-07_jprb,5.5948e-07_jprb,5.5356e-07_jprb,5.5733e-07_jprb,5.7508e-07_jprb/)  
kbo( :,57, 2) = (/&
 & 4.7316e-07_jprb,4.6096e-07_jprb,4.5452e-07_jprb,4.5448e-07_jprb,4.6581e-07_jprb/)  
kbo( :,58, 2) = (/&
 & 3.9189e-07_jprb,3.8013e-07_jprb,3.7366e-07_jprb,3.7160e-07_jprb,3.7785e-07_jprb/)  
kbo( :,59, 2) = (/&
 & 3.2262e-07_jprb,3.1241e-07_jprb,3.0663e-07_jprb,3.0438e-07_jprb,3.0850e-07_jprb/)  
kbo( :,13, 3) = (/&
 & 7.5527e-03_jprb,7.7875e-03_jprb,8.1613e-03_jprb,8.7500e-03_jprb,9.4693e-03_jprb/)  
kbo( :,14, 3) = (/&
 & 6.2162e-03_jprb,6.4179e-03_jprb,6.7443e-03_jprb,7.2436e-03_jprb,7.8488e-03_jprb/)  
kbo( :,15, 3) = (/&
 & 5.1154e-03_jprb,5.2899e-03_jprb,5.5758e-03_jprb,5.9977e-03_jprb,6.5097e-03_jprb/)  
kbo( :,16, 3) = (/&
 & 4.2091e-03_jprb,4.3598e-03_jprb,4.6108e-03_jprb,4.9662e-03_jprb,5.4041e-03_jprb/)  
kbo( :,17, 3) = (/&
 & 3.4624e-03_jprb,3.5931e-03_jprb,3.8125e-03_jprb,4.1118e-03_jprb,4.4867e-03_jprb/)  
kbo( :,18, 3) = (/&
 & 2.8478e-03_jprb,2.9611e-03_jprb,3.1513e-03_jprb,3.4056e-03_jprb,3.7227e-03_jprb/)  
kbo( :,19, 3) = (/&
 & 2.3424e-03_jprb,2.4403e-03_jprb,2.6050e-03_jprb,2.8205e-03_jprb,3.0875e-03_jprb/)  
kbo( :,20, 3) = (/&
 & 1.9279e-03_jprb,2.0136e-03_jprb,2.1568e-03_jprb,2.3394e-03_jprb,2.5633e-03_jprb/)  
kbo( :,21, 3) = (/&
 & 1.5868e-03_jprb,1.6625e-03_jprb,1.7866e-03_jprb,1.9403e-03_jprb,2.1279e-03_jprb/)  
kbo( :,22, 3) = (/&
 & 1.3095e-03_jprb,1.3798e-03_jprb,1.4873e-03_jprb,1.6185e-03_jprb,1.7762e-03_jprb/)  
kbo( :,23, 3) = (/&
 & 1.0820e-03_jprb,1.1470e-03_jprb,1.2388e-03_jprb,1.3506e-03_jprb,1.4828e-03_jprb/)  
kbo( :,24, 3) = (/&
 & 8.9533e-04_jprb,9.5480e-04_jprb,1.0325e-03_jprb,1.1273e-03_jprb,1.2391e-03_jprb/)  
kbo( :,25, 3) = (/&
 & 7.4229e-04_jprb,7.9534e-04_jprb,8.6151e-04_jprb,9.4186e-04_jprb,1.0361e-03_jprb/)  
kbo( :,26, 3) = (/&
 & 6.1705e-04_jprb,6.6349e-04_jprb,7.2018e-04_jprb,7.8870e-04_jprb,8.6741e-04_jprb/)  
kbo( :,27, 3) = (/&
 & 5.1373e-04_jprb,5.5377e-04_jprb,6.0259e-04_jprb,6.6085e-04_jprb,7.2640e-04_jprb/)  
kbo( :,28, 3) = (/&
 & 4.2826e-04_jprb,4.6245e-04_jprb,5.0434e-04_jprb,5.5405e-04_jprb,6.0850e-04_jprb/)  
kbo( :,29, 3) = (/&
 & 3.5730e-04_jprb,3.8667e-04_jprb,4.2255e-04_jprb,4.6475e-04_jprb,5.1008e-04_jprb/)  
kbo( :,30, 3) = (/&
 & 2.9823e-04_jprb,3.2356e-04_jprb,3.5427e-04_jprb,3.8963e-04_jprb,4.2762e-04_jprb/)  
kbo( :,31, 3) = (/&
 & 2.4915e-04_jprb,2.7111e-04_jprb,2.9730e-04_jprb,3.2676e-04_jprb,3.5853e-04_jprb/)  
kbo( :,32, 3) = (/&
 & 2.0835e-04_jprb,2.2726e-04_jprb,2.4969e-04_jprb,2.7415e-04_jprb,3.0052e-04_jprb/)  
kbo( :,33, 3) = (/&
 & 1.7440e-04_jprb,1.9063e-04_jprb,2.0966e-04_jprb,2.3004e-04_jprb,2.5180e-04_jprb/)  
kbo( :,34, 3) = (/&
 & 1.4566e-04_jprb,1.5949e-04_jprb,1.7537e-04_jprb,1.9242e-04_jprb,2.1028e-04_jprb/)  
kbo( :,35, 3) = (/&
 & 1.2069e-04_jprb,1.3227e-04_jprb,1.4538e-04_jprb,1.5949e-04_jprb,1.7412e-04_jprb/)  
kbo( :,36, 3) = (/&
 & 9.9043e-05_jprb,1.0856e-04_jprb,1.1931e-04_jprb,1.3088e-04_jprb,1.4285e-04_jprb/)  
kbo( :,37, 3) = (/&
 & 8.0192e-05_jprb,8.7828e-05_jprb,9.6552e-05_jprb,1.0592e-04_jprb,1.1571e-04_jprb/)  
kbo( :,38, 3) = (/&
 & 6.4895e-05_jprb,7.1006e-05_jprb,7.8078e-05_jprb,8.5641e-05_jprb,9.3649e-05_jprb/)  
kbo( :,39, 3) = (/&
 & 5.2529e-05_jprb,5.7417e-05_jprb,6.3137e-05_jprb,6.9248e-05_jprb,7.5786e-05_jprb/)  
kbo( :,40, 3) = (/&
 & 4.2172e-05_jprb,4.6011e-05_jprb,5.0550e-05_jprb,5.5469e-05_jprb,6.0782e-05_jprb/)  
kbo( :,41, 3) = (/&
 & 3.3845e-05_jprb,3.6843e-05_jprb,4.0405e-05_jprb,4.4378e-05_jprb,4.8669e-05_jprb/)  
kbo( :,42, 3) = (/&
 & 2.7178e-05_jprb,2.9499e-05_jprb,3.2305e-05_jprb,3.5507e-05_jprb,3.8948e-05_jprb/)  
kbo( :,43, 3) = (/&
 & 2.1748e-05_jprb,2.3526e-05_jprb,2.5707e-05_jprb,2.8262e-05_jprb,3.0999e-05_jprb/)  
kbo( :,44, 3) = (/&
 & 1.7386e-05_jprb,1.8745e-05_jprb,2.0430e-05_jprb,2.2420e-05_jprb,2.4615e-05_jprb/)  
kbo( :,45, 3) = (/&
 & 1.3919e-05_jprb,1.4955e-05_jprb,1.6239e-05_jprb,1.7786e-05_jprb,1.9548e-05_jprb/)  
kbo( :,46, 3) = (/&
 & 1.1164e-05_jprb,1.1925e-05_jprb,1.2898e-05_jprb,1.4092e-05_jprb,1.5493e-05_jprb/)  
kbo( :,47, 3) = (/&
 & 8.9724e-06_jprb,9.4906e-06_jprb,1.0225e-05_jprb,1.1136e-05_jprb,1.2214e-05_jprb/)  
kbo( :,48, 3) = (/&
 & 7.2294e-06_jprb,7.5737e-06_jprb,8.1199e-06_jprb,8.8033e-06_jprb,9.6335e-06_jprb/)  
kbo( :,49, 3) = (/&
 & 5.8381e-06_jprb,6.0726e-06_jprb,6.4582e-06_jprb,6.9718e-06_jprb,7.6076e-06_jprb/)  
kbo( :,50, 3) = (/&
 & 4.7296e-06_jprb,4.8930e-06_jprb,5.1532e-06_jprb,5.5428e-06_jprb,6.0261e-06_jprb/)  
kbo( :,51, 3) = (/&
 & 3.8399e-06_jprb,3.9514e-06_jprb,4.1284e-06_jprb,4.4168e-06_jprb,4.7822e-06_jprb/)  
kbo( :,52, 3) = (/&
 & 3.1245e-06_jprb,3.1973e-06_jprb,3.3211e-06_jprb,3.5239e-06_jprb,3.8012e-06_jprb/)  
kbo( :,53, 3) = (/&
 & 2.5471e-06_jprb,2.5925e-06_jprb,2.6785e-06_jprb,2.8158e-06_jprb,3.0258e-06_jprb/)  
kbo( :,54, 3) = (/&
 & 2.0814e-06_jprb,2.1073e-06_jprb,2.1664e-06_jprb,2.2617e-06_jprb,2.4173e-06_jprb/)  
kbo( :,55, 3) = (/&
 & 1.7028e-06_jprb,1.7165e-06_jprb,1.7558e-06_jprb,1.8239e-06_jprb,1.9350e-06_jprb/)  
kbo( :,56, 3) = (/&
 & 1.3936e-06_jprb,1.4001e-06_jprb,1.4255e-06_jprb,1.4737e-06_jprb,1.5508e-06_jprb/)  
kbo( :,57, 3) = (/&
 & 1.1409e-06_jprb,1.1442e-06_jprb,1.1589e-06_jprb,1.1924e-06_jprb,1.2461e-06_jprb/)  
kbo( :,58, 3) = (/&
 & 9.3532e-07_jprb,9.3617e-07_jprb,9.4415e-07_jprb,9.6677e-07_jprb,1.0053e-06_jprb/)  
kbo( :,59, 3) = (/&
 & 7.6716e-07_jprb,7.6655e-07_jprb,7.7193e-07_jprb,7.8900e-07_jprb,8.1899e-07_jprb/)  
kbo( :,13, 4) = (/&
 & 2.0095e-02_jprb,2.1182e-02_jprb,2.2225e-02_jprb,2.3304e-02_jprb,2.4394e-02_jprb/)  
kbo( :,14, 4) = (/&
 & 1.6601e-02_jprb,1.7480e-02_jprb,1.8338e-02_jprb,1.9231e-02_jprb,2.0128e-02_jprb/)  
kbo( :,15, 4) = (/&
 & 1.3711e-02_jprb,1.4425e-02_jprb,1.5134e-02_jprb,1.5868e-02_jprb,1.6611e-02_jprb/)  
kbo( :,16, 4) = (/&
 & 1.1319e-02_jprb,1.1903e-02_jprb,1.2490e-02_jprb,1.3094e-02_jprb,1.3700e-02_jprb/)  
kbo( :,17, 4) = (/&
 & 9.3377e-03_jprb,9.8166e-03_jprb,1.0301e-02_jprb,1.0797e-02_jprb,1.1296e-02_jprb/)  
kbo( :,18, 4) = (/&
 & 7.6994e-03_jprb,8.0931e-03_jprb,8.4951e-03_jprb,8.8986e-03_jprb,9.3140e-03_jprb/)  
kbo( :,19, 4) = (/&
 & 6.3454e-03_jprb,6.6690e-03_jprb,7.0019e-03_jprb,7.3313e-03_jprb,7.6829e-03_jprb/)  
kbo( :,20, 4) = (/&
 & 5.2328e-03_jprb,5.5001e-03_jprb,5.7724e-03_jprb,6.0469e-03_jprb,6.3413e-03_jprb/)  
kbo( :,21, 4) = (/&
 & 4.3150e-03_jprb,4.5344e-03_jprb,4.7593e-03_jprb,4.9881e-03_jprb,5.2336e-03_jprb/)  
kbo( :,22, 4) = (/&
 & 3.5703e-03_jprb,3.7499e-03_jprb,3.9366e-03_jprb,4.1268e-03_jprb,4.3318e-03_jprb/)  
kbo( :,23, 4) = (/&
 & 2.9547e-03_jprb,3.1024e-03_jprb,3.2576e-03_jprb,3.4140e-03_jprb,3.5849e-03_jprb/)  
kbo( :,24, 4) = (/&
 & 2.4452e-03_jprb,2.5697e-03_jprb,2.6961e-03_jprb,2.8259e-03_jprb,2.9642e-03_jprb/)  
kbo( :,25, 4) = (/&
 & 2.0245e-03_jprb,2.1288e-03_jprb,2.2320e-03_jprb,2.3397e-03_jprb,2.4511e-03_jprb/)  
kbo( :,26, 4) = (/&
 & 1.6785e-03_jprb,1.7643e-03_jprb,1.8488e-03_jprb,1.9387e-03_jprb,2.0283e-03_jprb/)  
kbo( :,27, 4) = (/&
 & 1.3920e-03_jprb,1.4619e-03_jprb,1.5313e-03_jprb,1.6067e-03_jprb,1.6789e-03_jprb/)  
kbo( :,28, 4) = (/&
 & 1.1548e-03_jprb,1.2112e-03_jprb,1.2686e-03_jprb,1.3305e-03_jprb,1.3899e-03_jprb/)  
kbo( :,29, 4) = (/&
 & 9.5779e-04_jprb,1.0036e-03_jprb,1.0515e-03_jprb,1.1016e-03_jprb,1.1501e-03_jprb/)  
kbo( :,30, 4) = (/&
 & 7.9398e-04_jprb,8.3159e-04_jprb,8.7176e-04_jprb,9.1222e-04_jprb,9.5119e-04_jprb/)  
kbo( :,31, 4) = (/&
 & 6.5813e-04_jprb,6.8913e-04_jprb,7.2305e-04_jprb,7.5559e-04_jprb,7.8680e-04_jprb/)  
kbo( :,32, 4) = (/&
 & 5.4557e-04_jprb,5.7133e-04_jprb,5.9920e-04_jprb,6.2591e-04_jprb,6.5094e-04_jprb/)  
kbo( :,33, 4) = (/&
 & 4.5225e-04_jprb,4.7384e-04_jprb,4.9635e-04_jprb,5.1810e-04_jprb,5.3850e-04_jprb/)  
kbo( :,34, 4) = (/&
 & 3.7429e-04_jprb,3.9240e-04_jprb,4.1057e-04_jprb,4.2811e-04_jprb,4.4483e-04_jprb/)  
kbo( :,35, 4) = (/&
 & 3.0841e-04_jprb,3.2350e-04_jprb,3.3821e-04_jprb,3.5240e-04_jprb,3.6608e-04_jprb/)  
kbo( :,36, 4) = (/&
 & 2.5285e-04_jprb,2.6525e-04_jprb,2.7729e-04_jprb,2.8885e-04_jprb,3.0006e-04_jprb/)  
kbo( :,37, 4) = (/&
 & 2.0586e-04_jprb,2.1585e-04_jprb,2.2582e-04_jprb,2.3540e-04_jprb,2.4457e-04_jprb/)  
kbo( :,38, 4) = (/&
 & 1.6753e-04_jprb,1.7559e-04_jprb,1.8384e-04_jprb,1.9177e-04_jprb,1.9927e-04_jprb/)  
kbo( :,39, 4) = (/&
 & 1.3635e-04_jprb,1.4286e-04_jprb,1.4968e-04_jprb,1.5622e-04_jprb,1.6235e-04_jprb/)  
kbo( :,40, 4) = (/&
 & 1.1045e-04_jprb,1.1567e-04_jprb,1.2132e-04_jprb,1.2672e-04_jprb,1.3176e-04_jprb/)  
kbo( :,41, 4) = (/&
 & 8.9410e-05_jprb,9.3610e-05_jprb,9.8241e-05_jprb,1.0266e-04_jprb,1.0686e-04_jprb/)  
kbo( :,42, 4) = (/&
 & 7.2378e-05_jprb,7.5781e-05_jprb,7.9465e-05_jprb,8.3145e-05_jprb,8.6672e-05_jprb/)  
kbo( :,43, 4) = (/&
 & 5.8424e-05_jprb,6.1188e-05_jprb,6.4107e-05_jprb,6.7188e-05_jprb,7.0140e-05_jprb/)  
kbo( :,44, 4) = (/&
 & 4.7058e-05_jprb,4.9346e-05_jprb,5.1671e-05_jprb,5.4230e-05_jprb,5.6657e-05_jprb/)  
kbo( :,45, 4) = (/&
 & 3.7899e-05_jprb,3.9798e-05_jprb,4.1669e-05_jprb,4.3706e-05_jprb,4.5724e-05_jprb/)  
kbo( :,46, 4) = (/&
 & 3.0497e-05_jprb,3.2055e-05_jprb,3.3572e-05_jprb,3.5176e-05_jprb,3.6873e-05_jprb/)  
kbo( :,47, 4) = (/&
 & 2.4479e-05_jprb,2.5732e-05_jprb,2.6995e-05_jprb,2.8267e-05_jprb,2.9671e-05_jprb/)  
kbo( :,48, 4) = (/&
 & 1.9635e-05_jprb,2.0659e-05_jprb,2.1706e-05_jprb,2.2729e-05_jprb,2.3830e-05_jprb/)  
kbo( :,49, 4) = (/&
 & 1.5750e-05_jprb,1.6588e-05_jprb,1.7438e-05_jprb,1.8276e-05_jprb,1.9144e-05_jprb/)  
kbo( :,50, 4) = (/&
 & 1.2638e-05_jprb,1.3327e-05_jprb,1.4014e-05_jprb,1.4713e-05_jprb,1.5408e-05_jprb/)  
kbo( :,51, 4) = (/&
 & 1.0134e-05_jprb,1.0710e-05_jprb,1.1273e-05_jprb,1.1849e-05_jprb,1.2410e-05_jprb/)  
kbo( :,52, 4) = (/&
 & 8.1350e-06_jprb,8.6070e-06_jprb,9.0666e-06_jprb,9.5314e-06_jprb,9.9961e-06_jprb/)  
kbo( :,53, 4) = (/&
 & 6.5268e-06_jprb,6.9077e-06_jprb,7.2874e-06_jprb,7.6647e-06_jprb,8.0514e-06_jprb/)  
kbo( :,54, 4) = (/&
 & 5.2400e-06_jprb,5.5504e-06_jprb,5.8662e-06_jprb,6.1754e-06_jprb,6.4922e-06_jprb/)  
kbo( :,55, 4) = (/&
 & 4.2244e-06_jprb,4.4665e-06_jprb,4.7250e-06_jprb,4.9775e-06_jprb,5.2331e-06_jprb/)  
kbo( :,56, 4) = (/&
 & 3.4163e-06_jprb,3.5930e-06_jprb,3.8023e-06_jprb,4.0104e-06_jprb,4.2175e-06_jprb/)  
kbo( :,57, 4) = (/&
 & 2.7693e-06_jprb,2.8867e-06_jprb,3.0575e-06_jprb,3.2307e-06_jprb,3.4003e-06_jprb/)  
kbo( :,58, 4) = (/&
 & 2.2500e-06_jprb,2.3279e-06_jprb,2.4627e-06_jprb,2.6048e-06_jprb,2.7433e-06_jprb/)  
kbo( :,59, 4) = (/&
 & 1.8386e-06_jprb,1.8966e-06_jprb,2.0040e-06_jprb,2.1199e-06_jprb,2.2332e-06_jprb/)  
kbo( :,13, 5) = (/&
 & 3.7227e-02_jprb,3.9236e-02_jprb,4.1136e-02_jprb,4.2635e-02_jprb,4.4125e-02_jprb/)  
kbo( :,14, 5) = (/&
 & 3.0731e-02_jprb,3.2386e-02_jprb,3.3908e-02_jprb,3.5126e-02_jprb,3.6383e-02_jprb/)  
kbo( :,15, 5) = (/&
 & 2.5378e-02_jprb,2.6727e-02_jprb,2.7941e-02_jprb,2.8947e-02_jprb,3.0002e-02_jprb/)  
kbo( :,16, 5) = (/&
 & 2.0959e-02_jprb,2.2046e-02_jprb,2.3014e-02_jprb,2.3851e-02_jprb,2.4734e-02_jprb/)  
kbo( :,17, 5) = (/&
 & 1.7294e-02_jprb,1.8176e-02_jprb,1.8952e-02_jprb,1.9643e-02_jprb,2.0380e-02_jprb/)  
kbo( :,18, 5) = (/&
 & 1.4261e-02_jprb,1.4983e-02_jprb,1.5597e-02_jprb,1.6174e-02_jprb,1.6784e-02_jprb/)  
kbo( :,19, 5) = (/&
 & 1.1754e-02_jprb,1.2342e-02_jprb,1.2837e-02_jprb,1.3312e-02_jprb,1.3820e-02_jprb/)  
kbo( :,20, 5) = (/&
 & 9.6940e-03_jprb,1.0172e-02_jprb,1.0569e-02_jprb,1.0962e-02_jprb,1.1389e-02_jprb/)  
kbo( :,21, 5) = (/&
 & 7.9935e-03_jprb,8.3804e-03_jprb,8.7019e-03_jprb,9.0256e-03_jprb,9.3917e-03_jprb/)  
kbo( :,22, 5) = (/&
 & 6.6098e-03_jprb,6.9213e-03_jprb,7.1802e-03_jprb,7.4552e-03_jprb,7.7626e-03_jprb/)  
kbo( :,23, 5) = (/&
 & 5.4675e-03_jprb,5.7122e-03_jprb,5.9276e-03_jprb,6.1590e-03_jprb,6.4177e-03_jprb/)  
kbo( :,24, 5) = (/&
 & 4.5248e-03_jprb,4.7145e-03_jprb,4.8956e-03_jprb,5.0905e-03_jprb,5.3103e-03_jprb/)  
kbo( :,25, 5) = (/&
 & 3.7436e-03_jprb,3.8938e-03_jprb,4.0451e-03_jprb,4.2083e-03_jprb,4.3977e-03_jprb/)  
kbo( :,26, 5) = (/&
 & 3.0980e-03_jprb,3.2193e-03_jprb,3.3446e-03_jprb,3.4820e-03_jprb,3.6461e-03_jprb/)  
kbo( :,27, 5) = (/&
 & 2.5629e-03_jprb,2.6621e-03_jprb,2.7660e-03_jprb,2.8810e-03_jprb,3.0242e-03_jprb/)  

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


SUBROUTINE part4

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


kbo( :,28, 5) = (/&
 & 2.1185e-03_jprb,2.2012e-03_jprb,2.2881e-03_jprb,2.3854e-03_jprb,2.5100e-03_jprb/)  
kbo( :,29, 5) = (/&
 & 1.7520e-03_jprb,1.8201e-03_jprb,1.8933e-03_jprb,1.9774e-03_jprb,2.0861e-03_jprb/)  
kbo( :,30, 5) = (/&
 & 1.4490e-03_jprb,1.5053e-03_jprb,1.5668e-03_jprb,1.6405e-03_jprb,1.7353e-03_jprb/)  
kbo( :,31, 5) = (/&
 & 1.1987e-03_jprb,1.2454e-03_jprb,1.2970e-03_jprb,1.3620e-03_jprb,1.4446e-03_jprb/)  
kbo( :,32, 5) = (/&
 & 9.9162e-04_jprb,1.0307e-03_jprb,1.0749e-03_jprb,1.1317e-03_jprb,1.2036e-03_jprb/)  
kbo( :,33, 5) = (/&
 & 8.2024e-04_jprb,8.5336e-04_jprb,8.9176e-04_jprb,9.4137e-04_jprb,1.0034e-03_jprb/)  
kbo( :,34, 5) = (/&
 & 6.7773e-04_jprb,7.0554e-04_jprb,7.3898e-04_jprb,7.8201e-04_jprb,8.3490e-04_jprb/)  
kbo( :,35, 5) = (/&
 & 5.5797e-04_jprb,5.8103e-04_jprb,6.0950e-04_jprb,6.4595e-04_jprb,6.9024e-04_jprb/)  
kbo( :,36, 5) = (/&
 & 4.5741e-04_jprb,4.7636e-04_jprb,4.9987e-04_jprb,5.2994e-04_jprb,5.6634e-04_jprb/)  
kbo( :,37, 5) = (/&
 & 3.7275e-04_jprb,3.8812e-04_jprb,4.0671e-04_jprb,4.3063e-04_jprb,4.5983e-04_jprb/)  
kbo( :,38, 5) = (/&
 & 3.0368e-04_jprb,3.1612e-04_jprb,3.3079e-04_jprb,3.4977e-04_jprb,3.7316e-04_jprb/)  
kbo( :,39, 5) = (/&
 & 2.4743e-04_jprb,2.5746e-04_jprb,2.6909e-04_jprb,2.8414e-04_jprb,3.0287e-04_jprb/)  
kbo( :,40, 5) = (/&
 & 2.0083e-04_jprb,2.0881e-04_jprb,2.1786e-04_jprb,2.2950e-04_jprb,2.4422e-04_jprb/)  
kbo( :,41, 5) = (/&
 & 1.6290e-04_jprb,1.6930e-04_jprb,1.7640e-04_jprb,1.8539e-04_jprb,1.9681e-04_jprb/)  
kbo( :,42, 5) = (/&
 & 1.3212e-04_jprb,1.3729e-04_jprb,1.4297e-04_jprb,1.4983e-04_jprb,1.5865e-04_jprb/)  
kbo( :,43, 5) = (/&
 & 1.0692e-04_jprb,1.1111e-04_jprb,1.1561e-04_jprb,1.2081e-04_jprb,1.2752e-04_jprb/)  
kbo( :,44, 5) = (/&
 & 8.6484e-05_jprb,8.9851e-05_jprb,9.3401e-05_jprb,9.7384e-05_jprb,1.0246e-04_jprb/)  
kbo( :,45, 5) = (/&
 & 6.9902e-05_jprb,7.2641e-05_jprb,7.5491e-05_jprb,7.8632e-05_jprb,8.2438e-05_jprb/)  
kbo( :,46, 5) = (/&
 & 5.6357e-05_jprb,5.8678e-05_jprb,6.0987e-05_jprb,6.3456e-05_jprb,6.6309e-05_jprb/)  
kbo( :,47, 5) = (/&
 & 4.5246e-05_jprb,4.7351e-05_jprb,4.9188e-05_jprb,5.1132e-05_jprb,5.3302e-05_jprb/)  
kbo( :,48, 5) = (/&
 & 3.6331e-05_jprb,3.8149e-05_jprb,3.9667e-05_jprb,4.1226e-05_jprb,4.2932e-05_jprb/)  
kbo( :,49, 5) = (/&
 & 2.9150e-05_jprb,3.0662e-05_jprb,3.1997e-05_jprb,3.3254e-05_jprb,3.4583e-05_jprb/)  
kbo( :,50, 5) = (/&
 & 2.3393e-05_jprb,2.4645e-05_jprb,2.5835e-05_jprb,2.6842e-05_jprb,2.7903e-05_jprb/)  
kbo( :,51, 5) = (/&
 & 1.8850e-05_jprb,1.9822e-05_jprb,2.0830e-05_jprb,2.1675e-05_jprb,2.2533e-05_jprb/)  
kbo( :,52, 5) = (/&
 & 1.5259e-05_jprb,1.5932e-05_jprb,1.6760e-05_jprb,1.7514e-05_jprb,1.8199e-05_jprb/)  
kbo( :,53, 5) = (/&
 & 1.2418e-05_jprb,1.2796e-05_jprb,1.3482e-05_jprb,1.4141e-05_jprb,1.4696e-05_jprb/)  
kbo( :,54, 5) = (/&
 & 1.0153e-05_jprb,1.0334e-05_jprb,1.0859e-05_jprb,1.1414e-05_jprb,1.1882e-05_jprb/)  
kbo( :,55, 5) = (/&
 & 8.3134e-06_jprb,8.3805e-06_jprb,8.7476e-06_jprb,9.2016e-06_jprb,9.6168e-06_jprb/)  
kbo( :,56, 5) = (/&
 & 6.8128e-06_jprb,6.8250e-06_jprb,7.0422e-06_jprb,7.4184e-06_jprb,7.7786e-06_jprb/)  
kbo( :,57, 5) = (/&
 & 5.5871e-06_jprb,5.5794e-06_jprb,5.6879e-06_jprb,5.9805e-06_jprb,6.2836e-06_jprb/)  
kbo( :,58, 5) = (/&
 & 4.5833e-06_jprb,4.5677e-06_jprb,4.6123e-06_jprb,4.8228e-06_jprb,5.0715e-06_jprb/)  
kbo( :,59, 5) = (/&
 & 3.7554e-06_jprb,3.7413e-06_jprb,3.7664e-06_jprb,3.9250e-06_jprb,4.1286e-06_jprb/)  
kbo( :,13, 6) = (/&
 & 5.9721e-02_jprb,6.1354e-02_jprb,6.5184e-02_jprb,7.1296e-02_jprb,7.9076e-02_jprb/)  
kbo( :,14, 6) = (/&
 & 4.9090e-02_jprb,5.0657e-02_jprb,5.4055e-02_jprb,5.9268e-02_jprb,6.5784e-02_jprb/)  
kbo( :,15, 6) = (/&
 & 4.0373e-02_jprb,4.1857e-02_jprb,4.4839e-02_jprb,4.9265e-02_jprb,5.4749e-02_jprb/)  
kbo( :,16, 6) = (/&
 & 3.3205e-02_jprb,3.4589e-02_jprb,3.7200e-02_jprb,4.0963e-02_jprb,4.5588e-02_jprb/)  
kbo( :,17, 6) = (/&
 & 2.7321e-02_jprb,2.8572e-02_jprb,3.0844e-02_jprb,3.4044e-02_jprb,3.7943e-02_jprb/)  
kbo( :,18, 6) = (/&
 & 2.2479e-02_jprb,2.3595e-02_jprb,2.5570e-02_jprb,2.8293e-02_jprb,3.1545e-02_jprb/)  
kbo( :,19, 6) = (/&
 & 1.8500e-02_jprb,1.9491e-02_jprb,2.1196e-02_jprb,2.3496e-02_jprb,2.6203e-02_jprb/)  
kbo( :,20, 6) = (/&
 & 1.5238e-02_jprb,1.6125e-02_jprb,1.7598e-02_jprb,1.9543e-02_jprb,2.1792e-02_jprb/)  
kbo( :,21, 6) = (/&
 & 1.2557e-02_jprb,1.3343e-02_jprb,1.4614e-02_jprb,1.6252e-02_jprb,1.8124e-02_jprb/)  
kbo( :,22, 6) = (/&
 & 1.0384e-02_jprb,1.1107e-02_jprb,1.2217e-02_jprb,1.3612e-02_jprb,1.5187e-02_jprb/)  
kbo( :,23, 6) = (/&
 & 8.6014e-03_jprb,9.2602e-03_jprb,1.0223e-02_jprb,1.1410e-02_jprb,1.2737e-02_jprb/)  
kbo( :,24, 6) = (/&
 & 7.1344e-03_jprb,7.7349e-03_jprb,8.5670e-03_jprb,9.5773e-03_jprb,1.0688e-02_jprb/)  
kbo( :,25, 6) = (/&
 & 5.9318e-03_jprb,6.4720e-03_jprb,7.1956e-03_jprb,8.0463e-03_jprb,8.9744e-03_jprb/)  
kbo( :,26, 6) = (/&
 & 4.9484e-03_jprb,5.4321e-03_jprb,6.0595e-03_jprb,6.7732e-03_jprb,7.5465e-03_jprb/)  
kbo( :,27, 6) = (/&
 & 4.1359e-03_jprb,4.5660e-03_jprb,5.1046e-03_jprb,5.7011e-03_jprb,6.3447e-03_jprb/)  
kbo( :,28, 6) = (/&
 & 3.4651e-03_jprb,3.8427e-03_jprb,4.2986e-03_jprb,4.7976e-03_jprb,5.3324e-03_jprb/)  
kbo( :,29, 6) = (/&
 & 2.9102e-03_jprb,3.2386e-03_jprb,3.6218e-03_jprb,4.0393e-03_jprb,4.4830e-03_jprb/)  
kbo( :,30, 6) = (/&
 & 2.4470e-03_jprb,2.7307e-03_jprb,3.0520e-03_jprb,3.4007e-03_jprb,3.7682e-03_jprb/)  
kbo( :,31, 6) = (/&
 & 2.0606e-03_jprb,2.3037e-03_jprb,2.5728e-03_jprb,2.8636e-03_jprb,3.1684e-03_jprb/)  
kbo( :,32, 6) = (/&
 & 1.7372e-03_jprb,1.9434e-03_jprb,2.1690e-03_jprb,2.4112e-03_jprb,2.6643e-03_jprb/)  
kbo( :,33, 6) = (/&
 & 1.4660e-03_jprb,1.6395e-03_jprb,1.8287e-03_jprb,2.0301e-03_jprb,2.2400e-03_jprb/)  
kbo( :,34, 6) = (/&
 & 1.2328e-03_jprb,1.3780e-03_jprb,1.5359e-03_jprb,1.7027e-03_jprb,1.8761e-03_jprb/)  
kbo( :,35, 6) = (/&
 & 1.0255e-03_jprb,1.1459e-03_jprb,1.2766e-03_jprb,1.4142e-03_jprb,1.5568e-03_jprb/)  
kbo( :,36, 6) = (/&
 & 8.4246e-04_jprb,9.4144e-04_jprb,1.0489e-03_jprb,1.1618e-03_jprb,1.2788e-03_jprb/)  
kbo( :,37, 6) = (/&
 & 6.8032e-04_jprb,7.6059e-04_jprb,8.4800e-04_jprb,9.4011e-04_jprb,1.0358e-03_jprb/)  
kbo( :,38, 6) = (/&
 & 5.4877e-04_jprb,6.1380e-04_jprb,6.8481e-04_jprb,7.5996e-04_jprb,8.3820e-04_jprb/)  
kbo( :,39, 6) = (/&
 & 4.4270e-04_jprb,4.9539e-04_jprb,5.5302e-04_jprb,6.1429e-04_jprb,6.7818e-04_jprb/)  
kbo( :,40, 6) = (/&
 & 3.5308e-04_jprb,3.9528e-04_jprb,4.4159e-04_jprb,4.9127e-04_jprb,5.4322e-04_jprb/)  
kbo( :,41, 6) = (/&
 & 2.8136e-04_jprb,3.1489e-04_jprb,3.5201e-04_jprb,3.9219e-04_jprb,4.3434e-04_jprb/)  
kbo( :,42, 6) = (/&
 & 2.2435e-04_jprb,2.5074e-04_jprb,2.8049e-04_jprb,3.1292e-04_jprb,3.4710e-04_jprb/)  
kbo( :,43, 6) = (/&
 & 1.7802e-04_jprb,1.9831e-04_jprb,2.2204e-04_jprb,2.4800e-04_jprb,2.7568e-04_jprb/)  
kbo( :,44, 6) = (/&
 & 1.4111e-04_jprb,1.5650e-04_jprb,1.7526e-04_jprb,1.9592e-04_jprb,2.1824e-04_jprb/)  
kbo( :,45, 6) = (/&
 & 1.1219e-04_jprb,1.2365e-04_jprb,1.3828e-04_jprb,1.5471e-04_jprb,1.7263e-04_jprb/)  
kbo( :,46, 6) = (/&
 & 8.9353e-05_jprb,9.7626e-05_jprb,1.0876e-04_jprb,1.2182e-04_jprb,1.3611e-04_jprb/)  
kbo( :,47, 6) = (/&
 & 7.1331e-05_jprb,7.6923e-05_jprb,8.5223e-05_jprb,9.5443e-05_jprb,1.0675e-04_jprb/)  
kbo( :,48, 6) = (/&
 & 5.7219e-05_jprb,6.0885e-05_jprb,6.6897e-05_jprb,7.4726e-05_jprb,8.3664e-05_jprb/)  
kbo( :,49, 6) = (/&
 & 4.6157e-05_jprb,4.8450e-05_jprb,5.2634e-05_jprb,5.8499e-05_jprb,6.5552e-05_jprb/)  
kbo( :,50, 6) = (/&
 & 3.7497e-05_jprb,3.8822e-05_jprb,4.1643e-05_jprb,4.5997e-05_jprb,5.1490e-05_jprb/)  
kbo( :,51, 6) = (/&
 & 3.0548e-05_jprb,3.1258e-05_jprb,3.3116e-05_jprb,3.6272e-05_jprb,4.0468e-05_jprb/)  
kbo( :,52, 6) = (/&
 & 2.4904e-05_jprb,2.5290e-05_jprb,2.6467e-05_jprb,2.8662e-05_jprb,3.1824e-05_jprb/)  
kbo( :,53, 6) = (/&
 & 2.0318e-05_jprb,2.0573e-05_jprb,2.1239e-05_jprb,2.2721e-05_jprb,2.5059e-05_jprb/)  
kbo( :,54, 6) = (/&
 & 1.6597e-05_jprb,1.6771e-05_jprb,1.7139e-05_jprb,1.8127e-05_jprb,1.9830e-05_jprb/)  
kbo( :,55, 6) = (/&
 & 1.3561e-05_jprb,1.3681e-05_jprb,1.3892e-05_jprb,1.4536e-05_jprb,1.5739e-05_jprb/)  
kbo( :,56, 6) = (/&
 & 1.1086e-05_jprb,1.1167e-05_jprb,1.1310e-05_jprb,1.1693e-05_jprb,1.2526e-05_jprb/)  
kbo( :,57, 6) = (/&
 & 9.0628e-06_jprb,9.1225e-06_jprb,9.2203e-06_jprb,9.4367e-06_jprb,9.9993e-06_jprb/)  
kbo( :,58, 6) = (/&
 & 7.4303e-06_jprb,7.4548e-06_jprb,7.5223e-06_jprb,7.6481e-06_jprb,8.0215e-06_jprb/)  
kbo( :,59, 6) = (/&
 & 6.0935e-06_jprb,6.1009e-06_jprb,6.1525e-06_jprb,6.2448e-06_jprb,6.5226e-06_jprb/)  
kbo( :,13, 7) = (/&
 & 1.1588e-01_jprb,1.3365e-01_jprb,1.5332e-01_jprb,1.7451e-01_jprb,1.9690e-01_jprb/)  
kbo( :,14, 7) = (/&
 & 9.7055e-02_jprb,1.1196e-01_jprb,1.2839e-01_jprb,1.4612e-01_jprb,1.6488e-01_jprb/)  
kbo( :,15, 7) = (/&
 & 8.1294e-02_jprb,9.3772e-02_jprb,1.0756e-01_jprb,1.2240e-01_jprb,1.3809e-01_jprb/)  
kbo( :,16, 7) = (/&
 & 6.8061e-02_jprb,7.8545e-02_jprb,9.0101e-02_jprb,1.0250e-01_jprb,1.1550e-01_jprb/)  
kbo( :,17, 7) = (/&
 & 5.6952e-02_jprb,6.5739e-02_jprb,7.5393e-02_jprb,8.5665e-02_jprb,9.6436e-02_jprb/)  
kbo( :,18, 7) = (/&
 & 4.7617e-02_jprb,5.4966e-02_jprb,6.2979e-02_jprb,7.1480e-02_jprb,8.0409e-02_jprb/)  
kbo( :,19, 7) = (/&
 & 3.9773e-02_jprb,4.5894e-02_jprb,5.2544e-02_jprb,5.9585e-02_jprb,6.7003e-02_jprb/)  
kbo( :,20, 7) = (/&
 & 3.3266e-02_jprb,3.8381e-02_jprb,4.3891e-02_jprb,4.9742e-02_jprb,5.5899e-02_jprb/)  
kbo( :,21, 7) = (/&
 & 2.7821e-02_jprb,3.2077e-02_jprb,3.6647e-02_jprb,4.1505e-02_jprb,4.6608e-02_jprb/)  
kbo( :,22, 7) = (/&
 & 2.3478e-02_jprb,2.7039e-02_jprb,3.0839e-02_jprb,3.4879e-02_jprb,3.9103e-02_jprb/)  
kbo( :,23, 7) = (/&
 & 1.9822e-02_jprb,2.2790e-02_jprb,2.5960e-02_jprb,2.9305e-02_jprb,3.2804e-02_jprb/)  
kbo( :,24, 7) = (/&
 & 1.6745e-02_jprb,1.9225e-02_jprb,2.1856e-02_jprb,2.4636e-02_jprb,2.7545e-02_jprb/)  
kbo( :,25, 7) = (/&
 & 1.4161e-02_jprb,1.6225e-02_jprb,1.8415e-02_jprb,2.0732e-02_jprb,2.3157e-02_jprb/)  
kbo( :,26, 7) = (/&
 & 1.2003e-02_jprb,1.3719e-02_jprb,1.5547e-02_jprb,1.7489e-02_jprb,1.9498e-02_jprb/)  
kbo( :,27, 7) = (/&
 & 1.0171e-02_jprb,1.1602e-02_jprb,1.3133e-02_jprb,1.4753e-02_jprb,1.6413e-02_jprb/)  
kbo( :,28, 7) = (/&
 & 8.6151e-03_jprb,9.8138e-03_jprb,1.1097e-02_jprb,1.2440e-02_jprb,1.3808e-02_jprb/)  
kbo( :,29, 7) = (/&
 & 7.3031e-03_jprb,8.3100e-03_jprb,9.3806e-03_jprb,1.0489e-02_jprb,1.1614e-02_jprb/)  
kbo( :,30, 7) = (/&
 & 6.1924e-03_jprb,7.0350e-03_jprb,7.9243e-03_jprb,8.8379e-03_jprb,9.7615e-03_jprb/)  
kbo( :,31, 7) = (/&
 & 5.2533e-03_jprb,5.9562e-03_jprb,6.6929e-03_jprb,7.4442e-03_jprb,8.2040e-03_jprb/)  
kbo( :,32, 7) = (/&
 & 4.4571e-03_jprb,5.0422e-03_jprb,5.6504e-03_jprb,6.2688e-03_jprb,6.8946e-03_jprb/)  
kbo( :,33, 7) = (/&
 & 3.7800e-03_jprb,4.2660e-03_jprb,4.7678e-03_jprb,5.2772e-03_jprb,5.7931e-03_jprb/)  
kbo( :,34, 7) = (/&
 & 3.1899e-03_jprb,3.5923e-03_jprb,4.0058e-03_jprb,4.4259e-03_jprb,4.8520e-03_jprb/)  
kbo( :,35, 7) = (/&
 & 2.6588e-03_jprb,2.9911e-03_jprb,3.3311e-03_jprb,3.6773e-03_jprb,4.0289e-03_jprb/)  
kbo( :,36, 7) = (/&
 & 2.1867e-03_jprb,2.4598e-03_jprb,2.7392e-03_jprb,3.0239e-03_jprb,3.3135e-03_jprb/)  
kbo( :,37, 7) = (/&
 & 1.7654e-03_jprb,1.9884e-03_jprb,2.2175e-03_jprb,2.4512e-03_jprb,2.6886e-03_jprb/)  
kbo( :,38, 7) = (/&
 & 1.4235e-03_jprb,1.6055e-03_jprb,1.7932e-03_jprb,1.9849e-03_jprb,2.1796e-03_jprb/)  
kbo( :,39, 7) = (/&
 & 1.1477e-03_jprb,1.2961e-03_jprb,1.4499e-03_jprb,1.6071e-03_jprb,1.7668e-03_jprb/)  
kbo( :,40, 7) = (/&
 & 9.1302e-04_jprb,1.0335e-03_jprb,1.1591e-03_jprb,1.2877e-03_jprb,1.4185e-03_jprb/)  
kbo( :,41, 7) = (/&
 & 7.2467e-04_jprb,8.2221e-04_jprb,9.2464e-04_jprb,1.0298e-03_jprb,1.1370e-03_jprb/)  
kbo( :,42, 7) = (/&
 & 5.7474e-04_jprb,6.5369e-04_jprb,7.3701e-04_jprb,8.2293e-04_jprb,9.1070e-04_jprb/)  
kbo( :,43, 7) = (/&
 & 4.5204e-04_jprb,5.1571e-04_jprb,5.8312e-04_jprb,6.5322e-04_jprb,7.2492e-04_jprb/)  
kbo( :,44, 7) = (/&
 & 3.5397e-04_jprb,4.0509e-04_jprb,4.5944e-04_jprb,5.1651e-04_jprb,5.7502e-04_jprb/)  
kbo( :,45, 7) = (/&
 & 2.7677e-04_jprb,3.1783e-04_jprb,3.6162e-04_jprb,4.0793e-04_jprb,4.5562e-04_jprb/)  
kbo( :,46, 7) = (/&
 & 2.1540e-04_jprb,2.4835e-04_jprb,2.8358e-04_jprb,3.2093e-04_jprb,3.5979e-04_jprb/)  
kbo( :,47, 7) = (/&
 & 1.6633e-04_jprb,1.9266e-04_jprb,2.2081e-04_jprb,2.5080e-04_jprb,2.8236e-04_jprb/)  
kbo( :,48, 7) = (/&
 & 1.2830e-04_jprb,1.4914e-04_jprb,1.7167e-04_jprb,1.9573e-04_jprb,2.2121e-04_jprb/)  
kbo( :,49, 7) = (/&
 & 9.8900e-05_jprb,1.1524e-04_jprb,1.3325e-04_jprb,1.5252e-04_jprb,1.7300e-04_jprb/)  
kbo( :,50, 7) = (/&
 & 7.6523e-05_jprb,8.9264e-05_jprb,1.0363e-04_jprb,1.1906e-04_jprb,1.3550e-04_jprb/)  
kbo( :,51, 7) = (/&
 & 5.9350e-05_jprb,6.9204e-05_jprb,8.0571e-05_jprb,9.2952e-05_jprb,1.0617e-04_jprb/)  
kbo( :,52, 7) = (/&
 & 4.6110e-05_jprb,5.3638e-05_jprb,6.2565e-05_jprb,7.2480e-05_jprb,8.3081e-05_jprb/)  
kbo( :,53, 7) = (/&
 & 3.5907e-05_jprb,4.1572e-05_jprb,4.8523e-05_jprb,5.6421e-05_jprb,6.4919e-05_jprb/)  
kbo( :,54, 7) = (/&
 & 2.8169e-05_jprb,3.2394e-05_jprb,3.7786e-05_jprb,4.4047e-05_jprb,5.0874e-05_jprb/)  
kbo( :,55, 7) = (/&
 & 2.2244e-05_jprb,2.5332e-05_jprb,2.9480e-05_jprb,3.4420e-05_jprb,3.9903e-05_jprb/)  
kbo( :,56, 7) = (/&
 & 1.7661e-05_jprb,1.9848e-05_jprb,2.3004e-05_jprb,2.6875e-05_jprb,3.1261e-05_jprb/)  
kbo( :,57, 7) = (/&
 & 1.4116e-05_jprb,1.5590e-05_jprb,1.7962e-05_jprb,2.0972e-05_jprb,2.4457e-05_jprb/)  
kbo( :,58, 7) = (/&
 & 1.1342e-05_jprb,1.2323e-05_jprb,1.4076e-05_jprb,1.6403e-05_jprb,1.9161e-05_jprb/)  
kbo( :,59, 7) = (/&
 & 9.2282e-06_jprb,9.9669e-06_jprb,1.1338e-05_jprb,1.3199e-05_jprb,1.5427e-05_jprb/)  
kbo( :,13, 8) = (/&
 & 3.3007e-01_jprb,3.9651e-01_jprb,4.6809e-01_jprb,5.4357e-01_jprb,6.2157e-01_jprb/)  
kbo( :,14, 8) = (/&
 & 2.7899e-01_jprb,3.3507e-01_jprb,3.9534e-01_jprb,4.5851e-01_jprb,5.2383e-01_jprb/)  
kbo( :,15, 8) = (/&
 & 2.3603e-01_jprb,2.8320e-01_jprb,3.3377e-01_jprb,3.8669e-01_jprb,4.4137e-01_jprb/)  
kbo( :,16, 8) = (/&
 & 1.9959e-01_jprb,2.3926e-01_jprb,2.8155e-01_jprb,3.2567e-01_jprb,3.7161e-01_jprb/)  
kbo( :,17, 8) = (/&
 & 1.6854e-01_jprb,2.0171e-01_jprb,2.3696e-01_jprb,2.7391e-01_jprb,3.1236e-01_jprb/)  
kbo( :,18, 8) = (/&
 & 1.4209e-01_jprb,1.6977e-01_jprb,1.9918e-01_jprb,2.3009e-01_jprb,2.6229e-01_jprb/)  
kbo( :,19, 8) = (/&
 & 1.1954e-01_jprb,1.4262e-01_jprb,1.6719e-01_jprb,1.9301e-01_jprb,2.1984e-01_jprb/)  
kbo( :,20, 8) = (/&
 & 1.0077e-01_jprb,1.2005e-01_jprb,1.4054e-01_jprb,1.6208e-01_jprb,1.8429e-01_jprb/)  
kbo( :,21, 8) = (/&
 & 8.4914e-02_jprb,1.0100e-01_jprb,1.1806e-01_jprb,1.3588e-01_jprb,1.5437e-01_jprb/)  
kbo( :,22, 8) = (/&
 & 7.2355e-02_jprb,8.5791e-02_jprb,9.9982e-02_jprb,1.1481e-01_jprb,1.3020e-01_jprb/)  
kbo( :,23, 8) = (/&
 & 6.1637e-02_jprb,7.2833e-02_jprb,8.4658e-02_jprb,9.6984e-02_jprb,1.0981e-01_jprb/)  
kbo( :,24, 8) = (/&
 & 5.2514e-02_jprb,6.1860e-02_jprb,7.1701e-02_jprb,8.1967e-02_jprb,9.2596e-02_jprb/)  
kbo( :,25, 8) = (/&
 & 4.4769e-02_jprb,5.2568e-02_jprb,6.0763e-02_jprb,6.9296e-02_jprb,7.8120e-02_jprb/)  
kbo( :,26, 8) = (/&
 & 3.8253e-02_jprb,4.4756e-02_jprb,5.1578e-02_jprb,5.8670e-02_jprb,6.6013e-02_jprb/)  
kbo( :,27, 8) = (/&
 & 3.2667e-02_jprb,3.8088e-02_jprb,4.3757e-02_jprb,4.9656e-02_jprb,5.5793e-02_jprb/)  
kbo( :,28, 8) = (/&
 & 2.7877e-02_jprb,3.2393e-02_jprb,3.7109e-02_jprb,4.2030e-02_jprb,4.7179e-02_jprb/)  
kbo( :,29, 8) = (/&
 & 2.3797e-02_jprb,2.7555e-02_jprb,3.1491e-02_jprb,3.5617e-02_jprb,3.9923e-02_jprb/)  
kbo( :,30, 8) = (/&
 & 2.0298e-02_jprb,2.3432e-02_jprb,2.6727e-02_jprb,3.0189e-02_jprb,3.3773e-02_jprb/)  
kbo( :,31, 8) = (/&
 & 1.7314e-02_jprb,1.9936e-02_jprb,2.2701e-02_jprb,2.5587e-02_jprb,2.8571e-02_jprb/)  

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


SUBROUTINE part5

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


kbo( :,32, 8) = (/&
 & 1.4770e-02_jprb,1.6972e-02_jprb,1.9281e-02_jprb,2.1688e-02_jprb,2.4162e-02_jprb/)  
kbo( :,33, 8) = (/&
 & 1.2600e-02_jprb,1.4446e-02_jprb,1.6373e-02_jprb,1.8374e-02_jprb,2.0424e-02_jprb/)  
kbo( :,34, 8) = (/&
 & 1.0696e-02_jprb,1.2236e-02_jprb,1.3839e-02_jprb,1.5497e-02_jprb,1.7194e-02_jprb/)  
kbo( :,35, 8) = (/&
 & 8.9555e-03_jprb,1.0232e-02_jprb,1.1559e-02_jprb,1.2931e-02_jprb,1.4335e-02_jprb/)  
kbo( :,36, 8) = (/&
 & 7.3846e-03_jprb,8.4373e-03_jprb,9.5325e-03_jprb,1.0662e-02_jprb,1.1822e-02_jprb/)  
kbo( :,37, 8) = (/&
 & 5.9606e-03_jprb,6.8233e-03_jprb,7.7209e-03_jprb,8.6487e-03_jprb,9.6041e-03_jprb/)  
kbo( :,38, 8) = (/&
 & 4.8037e-03_jprb,5.5105e-03_jprb,6.2459e-03_jprb,7.0079e-03_jprb,7.7943e-03_jprb/)  
kbo( :,39, 8) = (/&
 & 3.8706e-03_jprb,4.4491e-03_jprb,5.0519e-03_jprb,5.6779e-03_jprb,6.3251e-03_jprb/)  
kbo( :,40, 8) = (/&
 & 3.0705e-03_jprb,3.5417e-03_jprb,4.0336e-03_jprb,4.5461e-03_jprb,5.0773e-03_jprb/)  
kbo( :,41, 8) = (/&
 & 2.4285e-03_jprb,2.8118e-03_jprb,3.2129e-03_jprb,3.6318e-03_jprb,4.0673e-03_jprb/)  
kbo( :,42, 8) = (/&
 & 1.9184e-03_jprb,2.2300e-03_jprb,2.5570e-03_jprb,2.8991e-03_jprb,3.2561e-03_jprb/)  
kbo( :,43, 8) = (/&
 & 1.4999e-03_jprb,1.7522e-03_jprb,2.0180e-03_jprb,2.2966e-03_jprb,2.5881e-03_jprb/)  
kbo( :,44, 8) = (/&
 & 1.1655e-03_jprb,1.3694e-03_jprb,1.5849e-03_jprb,1.8113e-03_jprb,2.0488e-03_jprb/)  
kbo( :,45, 8) = (/&
 & 9.0376e-04_jprb,1.0682e-03_jprb,1.2427e-03_jprb,1.4266e-03_jprb,1.6199e-03_jprb/)  
kbo( :,46, 8) = (/&
 & 6.9650e-04_jprb,8.2858e-04_jprb,9.6950e-04_jprb,1.1186e-03_jprb,1.2755e-03_jprb/)  
kbo( :,47, 8) = (/&
 & 5.3108e-04_jprb,6.3643e-04_jprb,7.4984e-04_jprb,8.7018e-04_jprb,9.9721e-04_jprb/)  
kbo( :,48, 8) = (/&
 & 4.0361e-04_jprb,4.8742e-04_jprb,5.7833e-04_jprb,6.7534e-04_jprb,7.7807e-04_jprb/)  
kbo( :,49, 8) = (/&
 & 3.0566e-04_jprb,3.7215e-04_jprb,4.4475e-04_jprb,5.2279e-04_jprb,6.0579e-04_jprb/)  
kbo( :,50, 8) = (/&
 & 2.3193e-04_jprb,2.8459e-04_jprb,3.4251e-04_jprb,4.0526e-04_jprb,4.7230e-04_jprb/)  
kbo( :,51, 8) = (/&
 & 1.7590e-04_jprb,2.1748e-04_jprb,2.6361e-04_jprb,3.1395e-04_jprb,3.6804e-04_jprb/)  
kbo( :,52, 8) = (/&
 & 1.3304e-04_jprb,1.6573e-04_jprb,2.0240e-04_jprb,2.4265e-04_jprb,2.8621e-04_jprb/)  
kbo( :,53, 8) = (/&
 & 1.0033e-04_jprb,1.2590e-04_jprb,1.5496e-04_jprb,1.8704e-04_jprb,2.2201e-04_jprb/)  
kbo( :,54, 8) = (/&
 & 7.6043e-05_jprb,9.6033e-05_jprb,1.1903e-04_jprb,1.4464e-04_jprb,1.7271e-04_jprb/)  
kbo( :,55, 8) = (/&
 & 5.7725e-05_jprb,7.3309e-05_jprb,9.1482e-05_jprb,1.1190e-04_jprb,1.3439e-04_jprb/)  
kbo( :,56, 8) = (/&
 & 4.3773e-05_jprb,5.5845e-05_jprb,7.0155e-05_jprb,8.6401e-05_jprb,1.0439e-04_jprb/)  
kbo( :,57, 8) = (/&
 & 3.3178e-05_jprb,4.2466e-05_jprb,5.3677e-05_jprb,6.6562e-05_jprb,8.0932e-05_jprb/)  
kbo( :,58, 8) = (/&
 & 2.5276e-05_jprb,3.2365e-05_jprb,4.1133e-05_jprb,5.1343e-05_jprb,6.2815e-05_jprb/)  
kbo( :,59, 8) = (/&
 & 2.0138e-05_jprb,2.5779e-05_jprb,3.2836e-05_jprb,4.1105e-05_jprb,5.0433e-05_jprb/)  
kbo( :,13, 9) = (/&
 & 2.0575e+00_jprb,2.5259e+00_jprb,3.0234e+00_jprb,3.5471e+00_jprb,4.0892e+00_jprb/)  
kbo( :,14, 9) = (/&
 & 1.7896e+00_jprb,2.1936e+00_jprb,2.6243e+00_jprb,3.0754e+00_jprb,3.5357e+00_jprb/)  
kbo( :,15, 9) = (/&
 & 1.5532e+00_jprb,1.9005e+00_jprb,2.2698e+00_jprb,2.6534e+00_jprb,3.0460e+00_jprb/)  
kbo( :,16, 9) = (/&
 & 1.3431e+00_jprb,1.6399e+00_jprb,1.9542e+00_jprb,2.2801e+00_jprb,2.6154e+00_jprb/)  
kbo( :,17, 9) = (/&
 & 1.1564e+00_jprb,1.4091e+00_jprb,1.6750e+00_jprb,1.9517e+00_jprb,2.2353e+00_jprb/)  
kbo( :,18, 9) = (/&
 & 9.9261e-01_jprb,1.2059e+00_jprb,1.4303e+00_jprb,1.6635e+00_jprb,1.9029e+00_jprb/)  
kbo( :,19, 9) = (/&
 & 8.4829e-01_jprb,1.0283e+00_jprb,1.2171e+00_jprb,1.4131e+00_jprb,1.6142e+00_jprb/)  
kbo( :,20, 9) = (/&
 & 7.2551e-01_jprb,8.7689e-01_jprb,1.0360e+00_jprb,1.2012e+00_jprb,1.3703e+00_jprb/)  
kbo( :,21, 9) = (/&
 & 6.1932e-01_jprb,7.4645e-01_jprb,8.8019e-01_jprb,1.0189e+00_jprb,1.1616e+00_jprb/)  
kbo( :,22, 9) = (/&
 & 5.3436e-01_jprb,6.4171e-01_jprb,7.5441e-01_jprb,8.7104e-01_jprb,9.9107e-01_jprb/)  
kbo( :,23, 9) = (/&
 & 4.6064e-01_jprb,5.5112e-01_jprb,6.4570e-01_jprb,7.4365e-01_jprb,8.4436e-01_jprb/)  
kbo( :,24, 9) = (/&
 & 3.9696e-01_jprb,4.7292e-01_jprb,5.5220e-01_jprb,6.3452e-01_jprb,7.1905e-01_jprb/)  
kbo( :,25, 9) = (/&
 & 3.4206e-01_jprb,4.0576e-01_jprb,4.7240e-01_jprb,5.4144e-01_jprb,6.1253e-01_jprb/)  
kbo( :,26, 9) = (/&
 & 2.9509e-01_jprb,3.4866e-01_jprb,4.0462e-01_jprb,4.6255e-01_jprb,5.2212e-01_jprb/)  
kbo( :,27, 9) = (/&
 & 2.5432e-01_jprb,2.9938e-01_jprb,3.4636e-01_jprb,3.9487e-01_jprb,4.4473e-01_jprb/)  
kbo( :,28, 9) = (/&
 & 2.1897e-01_jprb,2.5686e-01_jprb,2.9621e-01_jprb,3.3690e-01_jprb,3.7871e-01_jprb/)  
kbo( :,29, 9) = (/&
 & 1.8863e-01_jprb,2.2035e-01_jprb,2.5338e-01_jprb,2.8746e-01_jprb,3.2276e-01_jprb/)  
kbo( :,30, 9) = (/&
 & 1.6227e-01_jprb,1.8891e-01_jprb,2.1659e-01_jprb,2.4532e-01_jprb,2.7508e-01_jprb/)  
kbo( :,31, 9) = (/&
 & 1.3961e-01_jprb,1.6197e-01_jprb,1.8522e-01_jprb,2.0946e-01_jprb,2.3451e-01_jprb/)  
kbo( :,32, 9) = (/&
 & 1.2009e-01_jprb,1.3886e-01_jprb,1.5848e-01_jprb,1.7888e-01_jprb,2.0001e-01_jprb/)  
kbo( :,33, 9) = (/&
 & 1.0324e-01_jprb,1.1904e-01_jprb,1.3559e-01_jprb,1.5281e-01_jprb,1.7071e-01_jprb/)  
kbo( :,34, 9) = (/&
 & 8.8245e-02_jprb,1.0156e-01_jprb,1.1550e-01_jprb,1.3006e-01_jprb,1.4528e-01_jprb/)  
kbo( :,35, 9) = (/&
 & 7.4373e-02_jprb,8.5551e-02_jprb,9.7297e-02_jprb,1.0957e-01_jprb,1.2251e-01_jprb/)  
kbo( :,36, 9) = (/&
 & 6.1704e-02_jprb,7.1049e-02_jprb,8.0900e-02_jprb,9.1251e-02_jprb,1.0221e-01_jprb/)  
kbo( :,37, 9) = (/&
 & 5.0060e-02_jprb,5.7820e-02_jprb,6.6024e-02_jprb,7.4701e-02_jprb,8.3923e-02_jprb/)  
kbo( :,38, 9) = (/&
 & 4.0550e-02_jprb,4.6991e-02_jprb,5.3826e-02_jprb,6.1105e-02_jprb,6.8864e-02_jprb/)  
kbo( :,39, 9) = (/&
 & 3.2845e-02_jprb,3.8185e-02_jprb,4.3883e-02_jprb,4.9990e-02_jprb,5.6512e-02_jprb/)  
kbo( :,40, 9) = (/&
 & 2.6159e-02_jprb,3.0559e-02_jprb,3.5279e-02_jprb,4.0364e-02_jprb,4.5803e-02_jprb/)  
kbo( :,41, 9) = (/&
 & 2.0762e-02_jprb,2.4380e-02_jprb,2.8285e-02_jprb,3.2514e-02_jprb,3.7041e-02_jprb/)  
kbo( :,42, 9) = (/&
 & 1.6454e-02_jprb,1.9426e-02_jprb,2.2652e-02_jprb,2.6163e-02_jprb,2.9929e-02_jprb/)  
kbo( :,43, 9) = (/&
 & 1.2889e-02_jprb,1.5316e-02_jprb,1.7969e-02_jprb,2.0865e-02_jprb,2.3986e-02_jprb/)  
kbo( :,44, 9) = (/&
 & 1.0025e-02_jprb,1.2000e-02_jprb,1.4172e-02_jprb,1.6553e-02_jprb,1.9131e-02_jprb/)  
kbo( :,45, 9) = (/&
 & 7.7746e-03_jprb,9.3784e-03_jprb,1.1153e-02_jprb,1.3107e-02_jprb,1.5232e-02_jprb/)  
kbo( :,46, 9) = (/&
 & 5.9839e-03_jprb,7.2803e-03_jprb,8.7236e-03_jprb,1.0320e-02_jprb,1.2066e-02_jprb/)  
kbo( :,47, 9) = (/&
 & 4.5469e-03_jprb,5.5872e-03_jprb,6.7527e-03_jprb,8.0490e-03_jprb,9.4737e-03_jprb/)  
kbo( :,48, 9) = (/&
 & 3.4387e-03_jprb,4.2707e-03_jprb,5.2081e-03_jprb,6.2578e-03_jprb,7.4170e-03_jprb/)  
kbo( :,49, 9) = (/&
 & 2.5872e-03_jprb,3.2502e-03_jprb,4.0014e-03_jprb,4.8487e-03_jprb,5.7896e-03_jprb/)  
kbo( :,50, 9) = (/&
 & 1.9484e-03_jprb,2.4763e-03_jprb,3.0782e-03_jprb,3.7619e-03_jprb,4.5255e-03_jprb/)  
kbo( :,51, 9) = (/&
 & 1.4641e-03_jprb,1.8833e-03_jprb,2.3642e-03_jprb,2.9156e-03_jprb,3.5343e-03_jprb/)  
kbo( :,52, 9) = (/&
 & 1.0947e-03_jprb,1.4260e-03_jprb,1.8092e-03_jprb,2.2525e-03_jprb,2.7523e-03_jprb/)  
kbo( :,53, 9) = (/&
 & 8.1385e-04_jprb,1.0744e-03_jprb,1.3788e-03_jprb,1.7335e-03_jprb,2.1363e-03_jprb/)  
kbo( :,54, 9) = (/&
 & 6.0727e-04_jprb,8.1227e-04_jprb,1.0543e-03_jprb,1.3383e-03_jprb,1.6634e-03_jprb/)  
kbo( :,55, 9) = (/&
 & 4.5272e-04_jprb,6.1374e-04_jprb,8.0589e-04_jprb,1.0331e-03_jprb,1.2952e-03_jprb/)  
kbo( :,56, 9) = (/&
 & 3.3583e-04_jprb,4.6181e-04_jprb,6.1377e-04_jprb,7.9508e-04_jprb,1.0057e-03_jprb/)  
kbo( :,57, 9) = (/&
 & 2.4776e-04_jprb,3.4590e-04_jprb,4.6559e-04_jprb,6.0978e-04_jprb,7.7861e-04_jprb/)  
kbo( :,58, 9) = (/&
 & 1.8283e-04_jprb,2.5924e-04_jprb,3.5338e-04_jprb,4.6808e-04_jprb,6.0340e-04_jprb/)  
kbo( :,59, 9) = (/&
 & 1.4394e-04_jprb,2.0565e-04_jprb,2.8231e-04_jprb,3.7641e-04_jprb,4.8766e-04_jprb/)  
kbo( :,13,10) = (/&
 & 9.3904e+00_jprb,1.1558e+01_jprb,1.3845e+01_jprb,1.6163e+01_jprb,1.8555e+01_jprb/)  
kbo( :,14,10) = (/&
 & 8.3973e+00_jprb,1.0270e+01_jprb,1.2209e+01_jprb,1.4231e+01_jprb,1.6403e+01_jprb/)  
kbo( :,15,10) = (/&
 & 7.4227e+00_jprb,9.0328e+00_jprb,1.0725e+01_jprb,1.2539e+01_jprb,1.4424e+01_jprb/)  
kbo( :,16,10) = (/&
 & 6.5205e+00_jprb,7.9257e+00_jprb,9.4310e+00_jprb,1.1012e+01_jprb,1.2602e+01_jprb/)  
kbo( :,17,10) = (/&
 & 5.6968e+00_jprb,6.9236e+00_jprb,8.2313e+00_jprb,9.5792e+00_jprb,1.0956e+01_jprb/)  
kbo( :,18,10) = (/&
 & 4.9471e+00_jprb,6.0161e+00_jprb,7.1339e+00_jprb,8.2948e+00_jprb,9.4857e+00_jprb/)  
kbo( :,19,10) = (/&
 & 4.2895e+00_jprb,5.2029e+00_jprb,6.1642e+00_jprb,7.1527e+00_jprb,8.1730e+00_jprb/)  
kbo( :,20,10) = (/&
 & 3.7147e+00_jprb,4.4929e+00_jprb,5.3068e+00_jprb,6.1474e+00_jprb,7.0078e+00_jprb/)  
kbo( :,21,10) = (/&
 & 3.2024e+00_jprb,3.8631e+00_jprb,4.5499e+00_jprb,5.2596e+00_jprb,5.9867e+00_jprb/)  
kbo( :,22,10) = (/&
 & 2.7881e+00_jprb,3.3462e+00_jprb,3.9291e+00_jprb,4.5332e+00_jprb,5.1516e+00_jprb/)  
kbo( :,23,10) = (/&
 & 2.4221e+00_jprb,2.8934e+00_jprb,3.3888e+00_jprb,3.9007e+00_jprb,4.4296e+00_jprb/)  
kbo( :,24,10) = (/&
 & 2.1012e+00_jprb,2.5042e+00_jprb,2.9257e+00_jprb,3.3605e+00_jprb,3.8099e+00_jprb/)  
kbo( :,25,10) = (/&
 & 1.8234e+00_jprb,2.1683e+00_jprb,2.5234e+00_jprb,2.8940e+00_jprb,3.2740e+00_jprb/)  
kbo( :,26,10) = (/&
 & 1.5880e+00_jprb,1.8773e+00_jprb,2.1781e+00_jprb,2.4921e+00_jprb,2.8182e+00_jprb/)  
kbo( :,27,10) = (/&
 & 1.3795e+00_jprb,1.6233e+00_jprb,1.8790e+00_jprb,2.1463e+00_jprb,2.4246e+00_jprb/)  
kbo( :,28,10) = (/&
 & 1.1952e+00_jprb,1.4020e+00_jprb,1.6204e+00_jprb,1.8473e+00_jprb,2.0818e+00_jprb/)  
kbo( :,29,10) = (/&
 & 1.0353e+00_jprb,1.2126e+00_jprb,1.3974e+00_jprb,1.5895e+00_jprb,1.7854e+00_jprb/)  
kbo( :,30,10) = (/&
 & 8.9710e-01_jprb,1.0479e+00_jprb,1.2046e+00_jprb,1.3665e+00_jprb,1.5321e+00_jprb/)  
kbo( :,31,10) = (/&
 & 7.7817e-01_jprb,9.0519e-01_jprb,1.0386e+00_jprb,1.1754e+00_jprb,1.3182e+00_jprb/)  
kbo( :,32,10) = (/&
 & 6.7399e-01_jprb,7.8251e-01_jprb,8.9515e-01_jprb,1.0127e+00_jprb,1.1369e+00_jprb/)  
kbo( :,33,10) = (/&
 & 5.8405e-01_jprb,6.7622e-01_jprb,7.7236e-01_jprb,8.7403e-01_jprb,9.7956e-01_jprb/)  
kbo( :,34,10) = (/&
 & 5.0357e-01_jprb,5.8182e-01_jprb,6.6452e-01_jprb,7.5151e-01_jprb,8.4035e-01_jprb/)  
kbo( :,35,10) = (/&
 & 4.2779e-01_jprb,4.9440e-01_jprb,5.6491e-01_jprb,6.3892e-01_jprb,7.1333e-01_jprb/)  
kbo( :,36,10) = (/&
 & 3.5777e-01_jprb,4.1421e-01_jprb,4.7387e-01_jprb,5.3617e-01_jprb,5.9900e-01_jprb/)  
kbo( :,37,10) = (/&
 & 2.9234e-01_jprb,3.3963e-01_jprb,3.8973e-01_jprb,4.4194e-01_jprb,4.9508e-01_jprb/)  
kbo( :,38,10) = (/&
 & 2.3845e-01_jprb,2.7804e-01_jprb,3.2014e-01_jprb,3.6393e-01_jprb,4.0887e-01_jprb/)  
kbo( :,39,10) = (/&
 & 1.9449e-01_jprb,2.2762e-01_jprb,2.6303e-01_jprb,2.9987e-01_jprb,3.3808e-01_jprb/)  
kbo( :,40,10) = (/&
 & 1.5581e-01_jprb,1.8338e-01_jprb,2.1298e-01_jprb,2.4388e-01_jprb,2.7640e-01_jprb/)  
kbo( :,41,10) = (/&
 & 1.2437e-01_jprb,1.4728e-01_jprb,1.7198e-01_jprb,1.9790e-01_jprb,2.2561e-01_jprb/)  
kbo( :,42,10) = (/&
 & 9.9114e-02_jprb,1.1814e-01_jprb,1.3871e-01_jprb,1.6049e-01_jprb,1.8409e-01_jprb/)  
kbo( :,43,10) = (/&
 & 7.8014e-02_jprb,9.3699e-02_jprb,1.1072e-01_jprb,1.2897e-01_jprb,1.4893e-01_jprb/)  
kbo( :,44,10) = (/&
 & 6.0930e-02_jprb,7.3813e-02_jprb,8.7829e-02_jprb,1.0306e-01_jprb,1.1990e-01_jprb/)  
kbo( :,45,10) = (/&
 & 4.7439e-02_jprb,5.7963e-02_jprb,6.9524e-02_jprb,8.2179e-02_jprb,9.6377e-02_jprb/)  
kbo( :,46,10) = (/&
 & 3.6628e-02_jprb,4.5189e-02_jprb,5.4663e-02_jprb,6.5139e-02_jprb,7.7031e-02_jprb/)  
kbo( :,47,10) = (/&
 & 2.7890e-02_jprb,3.4787e-02_jprb,4.2493e-02_jprb,5.1096e-02_jprb,6.0965e-02_jprb/)  
kbo( :,48,10) = (/&
 & 2.1119e-02_jprb,2.6645e-02_jprb,3.2896e-02_jprb,3.9921e-02_jprb,4.8089e-02_jprb/)  
kbo( :,49,10) = (/&
 & 1.5900e-02_jprb,2.0307e-02_jprb,2.5351e-02_jprb,3.1064e-02_jprb,3.7792e-02_jprb/)  
kbo( :,50,10) = (/&
 & 1.1982e-02_jprb,1.5486e-02_jprb,1.9553e-02_jprb,2.4196e-02_jprb,2.9727e-02_jprb/)  
kbo( :,51,10) = (/&
 & 9.0056e-03_jprb,1.1788e-02_jprb,1.5051e-02_jprb,1.8815e-02_jprb,2.3348e-02_jprb/)  
kbo( :,52,10) = (/&
 & 6.7287e-03_jprb,8.9323e-03_jprb,1.1543e-02_jprb,1.4581e-02_jprb,1.8277e-02_jprb/)  
kbo( :,53,10) = (/&
 & 4.9917e-03_jprb,6.7318e-03_jprb,8.8095e-03_jprb,1.1255e-02_jprb,1.4250e-02_jprb/)  
kbo( :,54,10) = (/&
 & 3.7166e-03_jprb,5.0897e-03_jprb,6.7438e-03_jprb,8.7155e-03_jprb,1.1147e-02_jprb/)  
kbo( :,55,10) = (/&
 & 2.7631e-03_jprb,3.8456e-03_jprb,5.1593e-03_jprb,6.7476e-03_jprb,8.7195e-03_jprb/)  
kbo( :,56,10) = (/&
 & 2.0411e-03_jprb,2.8905e-03_jprb,3.9308e-03_jprb,5.2031e-03_jprb,6.7949e-03_jprb/)  
kbo( :,57,10) = (/&
 & 1.4978e-03_jprb,2.1598e-03_jprb,2.9807e-03_jprb,3.9948e-03_jprb,5.2752e-03_jprb/)  
kbo( :,58,10) = (/&
 & 1.0985e-03_jprb,1.6142e-03_jprb,2.2613e-03_jprb,3.0687e-03_jprb,4.0986e-03_jprb/)  
kbo( :,59,10) = (/&
 & 8.6500e-04_jprb,1.2833e-03_jprb,1.8127e-03_jprb,2.4817e-03_jprb,3.3443e-03_jprb/)  
kbo( :,13,11) = (/&
 & 1.8372e+01_jprb,2.2531e+01_jprb,2.6942e+01_jprb,3.1721e+01_jprb,3.6666e+01_jprb/)  
kbo( :,14,11) = (/&
 & 1.6476e+01_jprb,2.0266e+01_jprb,2.4375e+01_jprb,2.8673e+01_jprb,3.2960e+01_jprb/)  
kbo( :,15,11) = (/&
 & 1.4838e+01_jprb,1.8258e+01_jprb,2.1874e+01_jprb,2.5540e+01_jprb,2.9299e+01_jprb/)  
kbo( :,16,11) = (/&
 & 1.3322e+01_jprb,1.6282e+01_jprb,1.9361e+01_jprb,2.2553e+01_jprb,2.5938e+01_jprb/)  
kbo( :,17,11) = (/&
 & 1.1797e+01_jprb,1.4340e+01_jprb,1.7022e+01_jprb,1.9865e+01_jprb,2.2805e+01_jprb/)  
kbo( :,18,11) = (/&
 & 1.0354e+01_jprb,1.2576e+01_jprb,1.4945e+01_jprb,1.7409e+01_jprb,1.9880e+01_jprb/)  
kbo( :,19,11) = (/&
 & 9.0365e+00_jprb,1.0980e+01_jprb,1.3039e+01_jprb,1.5152e+01_jprb,1.7258e+01_jprb/)  
kbo( :,20,11) = (/&
 & 7.8834e+00_jprb,9.5695e+00_jprb,1.1327e+01_jprb,1.3132e+01_jprb,1.4932e+01_jprb/)  
kbo( :,21,11) = (/&
 & 6.8550e+00_jprb,8.2970e+00_jprb,9.8119e+00_jprb,1.1335e+01_jprb,1.2856e+01_jprb/)  
kbo( :,22,11) = (/&
 & 6.0199e+00_jprb,7.2562e+00_jprb,8.5326e+00_jprb,9.8104e+00_jprb,1.1086e+01_jprb/)  
kbo( :,23,11) = (/&
 & 5.2655e+00_jprb,6.3155e+00_jprb,7.3813e+00_jprb,8.4546e+00_jprb,9.5205e+00_jprb/)  
kbo( :,24,11) = (/&
 & 4.5968e+00_jprb,5.4765e+00_jprb,6.3717e+00_jprb,7.2772e+00_jprb,8.1752e+00_jprb/)  
kbo( :,25,11) = (/&
 & 4.0046e+00_jprb,4.7437e+00_jprb,5.5012e+00_jprb,6.2582e+00_jprb,7.0243e+00_jprb/)  
kbo( :,26,11) = (/&
 & 3.4899e+00_jprb,4.1156e+00_jprb,4.7544e+00_jprb,5.3978e+00_jprb,6.0478e+00_jprb/)  
kbo( :,27,11) = (/&
 & 3.0370e+00_jprb,3.5704e+00_jprb,4.1083e+00_jprb,4.6559e+00_jprb,5.2026e+00_jprb/)  
kbo( :,28,11) = (/&
 & 2.6441e+00_jprb,3.0908e+00_jprb,3.5452e+00_jprb,4.0092e+00_jprb,4.4774e+00_jprb/)  
kbo( :,29,11) = (/&
 & 2.2991e+00_jprb,2.6744e+00_jprb,3.0609e+00_jprb,3.4545e+00_jprb,3.8571e+00_jprb/)  
kbo( :,30,11) = (/&
 & 1.9952e+00_jprb,2.3130e+00_jprb,2.6436e+00_jprb,2.9785e+00_jprb,3.3224e+00_jprb/)  
kbo( :,31,11) = (/&
 & 1.7303e+00_jprb,2.0035e+00_jprb,2.2828e+00_jprb,2.5698e+00_jprb,2.8597e+00_jprb/)  
kbo( :,32,11) = (/&
 & 1.5021e+00_jprb,1.7349e+00_jprb,1.9723e+00_jprb,2.2162e+00_jprb,2.4607e+00_jprb/)  
kbo( :,33,11) = (/&
 & 1.3048e+00_jprb,1.5022e+00_jprb,1.7054e+00_jprb,1.9112e+00_jprb,2.1255e+00_jprb/)  
kbo( :,34,11) = (/&
 & 1.1267e+00_jprb,1.2952e+00_jprb,1.4682e+00_jprb,1.6457e+00_jprb,1.8352e+00_jprb/)  
kbo( :,35,11) = (/&
 & 9.5958e-01_jprb,1.1033e+00_jprb,1.2514e+00_jprb,1.4063e+00_jprb,1.5730e+00_jprb/)  

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


SUBROUTINE part6

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


kbo( :,36,11) = (/&
 & 8.0543e-01_jprb,9.2728e-01_jprb,1.0546e+00_jprb,1.1895e+00_jprb,1.3346e+00_jprb/)  
kbo( :,37,11) = (/&
 & 6.6117e-01_jprb,7.6429e-01_jprb,8.7311e-01_jprb,9.8956e-01_jprb,1.1138e+00_jprb/)  
kbo( :,38,11) = (/&
 & 5.4219e-01_jprb,6.2915e-01_jprb,7.2220e-01_jprb,8.2189e-01_jprb,9.2832e-01_jprb/)  
kbo( :,39,11) = (/&
 & 4.4474e-01_jprb,5.1851e-01_jprb,5.9758e-01_jprb,6.8269e-01_jprb,7.7379e-01_jprb/)  
kbo( :,40,11) = (/&
 & 3.5874e-01_jprb,4.2077e-01_jprb,4.8738e-01_jprb,5.5930e-01_jprb,6.3666e-01_jprb/)  
kbo( :,41,11) = (/&
 & 2.8809e-01_jprb,3.4018e-01_jprb,3.9623e-01_jprb,4.5702e-01_jprb,5.2265e-01_jprb/)  
kbo( :,42,11) = (/&
 & 2.3093e-01_jprb,2.7453e-01_jprb,3.2175e-01_jprb,3.7304e-01_jprb,4.2866e-01_jprb/)  
kbo( :,43,11) = (/&
 & 1.8286e-01_jprb,2.1908e-01_jprb,2.5860e-01_jprb,3.0169e-01_jprb,3.4866e-01_jprb/)  
kbo( :,44,11) = (/&
 & 1.4371e-01_jprb,1.7364e-01_jprb,2.0655e-01_jprb,2.4258e-01_jprb,2.8218e-01_jprb/)  
kbo( :,45,11) = (/&
 & 1.1254e-01_jprb,1.3724e-01_jprb,1.6458e-01_jprb,1.9466e-01_jprb,2.2800e-01_jprb/)  
kbo( :,46,11) = (/&
 & 8.7419e-02_jprb,1.0769e-01_jprb,1.3029e-01_jprb,1.5534e-01_jprb,1.8325e-01_jprb/)  
kbo( :,47,11) = (/&
 & 6.6946e-02_jprb,8.3455e-02_jprb,1.0198e-01_jprb,1.2266e-01_jprb,1.4588e-01_jprb/)  
kbo( :,48,11) = (/&
 & 5.0941e-02_jprb,6.4338e-02_jprb,7.9485e-02_jprb,9.6523e-02_jprb,1.1573e-01_jprb/)  
kbo( :,49,11) = (/&
 & 3.8506e-02_jprb,4.9326e-02_jprb,6.1662e-02_jprb,7.5682e-02_jprb,9.1536e-02_jprb/)  
kbo( :,50,11) = (/&
 & 2.9103e-02_jprb,3.7840e-02_jprb,4.7868e-02_jprb,5.9376e-02_jprb,7.2482e-02_jprb/)  
kbo( :,51,11) = (/&
 & 2.1916e-02_jprb,2.8951e-02_jprb,3.7067e-02_jprb,4.6499e-02_jprb,5.7317e-02_jprb/)  
kbo( :,52,11) = (/&
 & 1.6392e-02_jprb,2.2020e-02_jprb,2.8575e-02_jprb,3.6268e-02_jprb,4.5169e-02_jprb/)  
kbo( :,53,11) = (/&
 & 1.2172e-02_jprb,1.6642e-02_jprb,2.1908e-02_jprb,2.8155e-02_jprb,3.5457e-02_jprb/)  
kbo( :,54,11) = (/&
 & 9.0658e-03_jprb,1.2613e-02_jprb,1.6847e-02_jprb,2.1915e-02_jprb,2.7906e-02_jprb/)  
kbo( :,55,11) = (/&
 & 6.7444e-03_jprb,9.5483e-03_jprb,1.2947e-02_jprb,1.7041e-02_jprb,2.1954e-02_jprb/)  
kbo( :,56,11) = (/&
 & 4.9837e-03_jprb,7.1893e-03_jprb,9.9031e-03_jprb,1.3201e-02_jprb,1.7215e-02_jprb/)  
kbo( :,57,11) = (/&
 & 3.6555e-03_jprb,5.3797e-03_jprb,7.5345e-03_jprb,1.0185e-02_jprb,1.3448e-02_jprb/)  
kbo( :,58,11) = (/&
 & 2.6798e-03_jprb,4.0234e-03_jprb,5.7322e-03_jprb,7.8591e-03_jprb,1.0509e-02_jprb/)  
kbo( :,59,11) = (/&
 & 2.1174e-03_jprb,3.2126e-03_jprb,4.6178e-03_jprb,6.3890e-03_jprb,8.6307e-03_jprb/)  
kbo( :,13,12) = (/&
 & 3.9037e+01_jprb,4.8595e+01_jprb,5.8290e+01_jprb,6.7743e+01_jprb,7.7175e+01_jprb/)  
kbo( :,14,12) = (/&
 & 3.6731e+01_jprb,4.5143e+01_jprb,5.3367e+01_jprb,6.1735e+01_jprb,7.0266e+01_jprb/)  
kbo( :,15,12) = (/&
 & 3.3782e+01_jprb,4.1053e+01_jprb,4.8465e+01_jprb,5.6101e+01_jprb,6.4046e+01_jprb/)  
kbo( :,16,12) = (/&
 & 3.0361e+01_jprb,3.6837e+01_jprb,4.3692e+01_jprb,5.0749e+01_jprb,5.7770e+01_jprb/)  
kbo( :,17,12) = (/&
 & 2.7181e+01_jprb,3.3037e+01_jprb,3.9122e+01_jprb,4.5236e+01_jprb,5.1302e+01_jprb/)  
kbo( :,18,12) = (/&
 & 2.4289e+01_jprb,2.9373e+01_jprb,3.4573e+01_jprb,3.9820e+01_jprb,4.5254e+01_jprb/)  
kbo( :,19,12) = (/&
 & 2.1489e+01_jprb,2.5832e+01_jprb,3.0286e+01_jprb,3.4895e+01_jprb,3.9728e+01_jprb/)  
kbo( :,20,12) = (/&
 & 1.8889e+01_jprb,2.2626e+01_jprb,2.6516e+01_jprb,3.0573e+01_jprb,3.4729e+01_jprb/)  
kbo( :,21,12) = (/&
 & 1.6499e+01_jprb,1.9772e+01_jprb,2.3169e+01_jprb,2.6668e+01_jprb,3.0247e+01_jprb/)  
kbo( :,22,12) = (/&
 & 1.4564e+01_jprb,1.7397e+01_jprb,2.0332e+01_jprb,2.3375e+01_jprb,2.6482e+01_jprb/)  
kbo( :,23,12) = (/&
 & 1.2811e+01_jprb,1.5254e+01_jprb,1.7803e+01_jprb,2.0436e+01_jprb,2.3110e+01_jprb/)  
kbo( :,24,12) = (/&
 & 1.1250e+01_jprb,1.3354e+01_jprb,1.5549e+01_jprb,1.7797e+01_jprb,2.0094e+01_jprb/)  
kbo( :,25,12) = (/&
 & 9.8597e+00_jprb,1.1670e+01_jprb,1.3537e+01_jprb,1.5466e+01_jprb,1.7423e+01_jprb/)  
kbo( :,26,12) = (/&
 & 8.6447e+00_jprb,1.0181e+01_jprb,1.1779e+01_jprb,1.3417e+01_jprb,1.5081e+01_jprb/)  
kbo( :,27,12) = (/&
 & 7.5594e+00_jprb,8.8642e+00_jprb,1.0226e+01_jprb,1.1630e+01_jprb,1.3058e+01_jprb/)  
kbo( :,28,12) = (/&
 & 6.5925e+00_jprb,7.7161e+00_jprb,8.8897e+00_jprb,1.0087e+01_jprb,1.1327e+01_jprb/)  
kbo( :,29,12) = (/&
 & 5.7565e+00_jprb,6.7240e+00_jprb,7.7268e+00_jprb,8.7632e+00_jprb,9.8409e+00_jprb/)  
kbo( :,30,12) = (/&
 & 5.0290e+00_jprb,5.8636e+00_jprb,6.7247e+00_jprb,7.6290e+00_jprb,8.5599e+00_jprb/)  
kbo( :,31,12) = (/&
 & 4.4035e+00_jprb,5.1182e+00_jprb,5.8680e+00_jprb,6.6555e+00_jprb,7.4665e+00_jprb/)  
kbo( :,32,12) = (/&
 & 3.8578e+00_jprb,4.4752e+00_jprb,5.1308e+00_jprb,5.8151e+00_jprb,6.5278e+00_jprb/)  
kbo( :,33,12) = (/&
 & 3.3794e+00_jprb,3.9167e+00_jprb,4.4904e+00_jprb,5.0880e+00_jprb,5.7148e+00_jprb/)  
kbo( :,34,12) = (/&
 & 2.9486e+00_jprb,3.4193e+00_jprb,3.9167e+00_jprb,4.4410e+00_jprb,4.9898e+00_jprb/)  
kbo( :,35,12) = (/&
 & 2.5384e+00_jprb,2.9485e+00_jprb,3.3806e+00_jprb,3.8382e+00_jprb,4.3138e+00_jprb/)  
kbo( :,36,12) = (/&
 & 2.1524e+00_jprb,2.5062e+00_jprb,2.8802e+00_jprb,3.2776e+00_jprb,3.6933e+00_jprb/)  
kbo( :,37,12) = (/&
 & 1.7833e+00_jprb,2.0847e+00_jprb,2.4072e+00_jprb,2.7505e+00_jprb,3.1124e+00_jprb/)  
kbo( :,38,12) = (/&
 & 1.4749e+00_jprb,1.7326e+00_jprb,2.0108e+00_jprb,2.3067e+00_jprb,2.6244e+00_jprb/)  
kbo( :,39,12) = (/&
 & 1.2194e+00_jprb,1.4403e+00_jprb,1.6807e+00_jprb,1.9373e+00_jprb,2.2164e+00_jprb/)  
kbo( :,40,12) = (/&
 & 9.9010e-01_jprb,1.1776e+00_jprb,1.3838e+00_jprb,1.6055e+00_jprb,1.8489e+00_jprb/)  
kbo( :,41,12) = (/&
 & 8.0150e-01_jprb,9.6002e-01_jprb,1.1360e+00_jprb,1.3281e+00_jprb,1.5396e+00_jprb/)  
kbo( :,42,12) = (/&
 & 6.4778e-01_jprb,7.8194e-01_jprb,9.3223e-01_jprb,1.0980e+00_jprb,1.2824e+00_jprb/)  
kbo( :,43,12) = (/&
 & 5.1676e-01_jprb,6.2955e-01_jprb,7.5710e-01_jprb,8.9908e-01_jprb,1.0583e+00_jprb/)  
kbo( :,44,12) = (/&
 & 4.0901e-01_jprb,5.0320e-01_jprb,6.1071e-01_jprb,7.3181e-01_jprb,8.6848e-01_jprb/)  
kbo( :,45,12) = (/&
 & 3.2265e-01_jprb,4.0131e-01_jprb,4.9147e-01_jprb,5.9412e-01_jprb,7.1124e-01_jprb/)  
kbo( :,46,12) = (/&
 & 2.5210e-01_jprb,3.1747e-01_jprb,3.9284e-01_jprb,4.7937e-01_jprb,5.7886e-01_jprb/)  
kbo( :,47,12) = (/&
 & 1.9387e-01_jprb,2.4750e-01_jprb,3.1014e-01_jprb,3.8262e-01_jprb,4.6634e-01_jprb/)  
kbo( :,48,12) = (/&
 & 1.4828e-01_jprb,1.9192e-01_jprb,2.4351e-01_jprb,3.0403e-01_jprb,3.7442e-01_jprb/)  
kbo( :,49,12) = (/&
 & 1.1268e-01_jprb,1.4796e-01_jprb,1.9021e-01_jprb,2.4026e-01_jprb,2.9934e-01_jprb/)  
kbo( :,50,12) = (/&
 & 8.5692e-02_jprb,1.1419e-01_jprb,1.4876e-01_jprb,1.9007e-01_jprb,2.3948e-01_jprb/)  
kbo( :,51,12) = (/&
 & 6.4968e-02_jprb,8.7898e-02_jprb,1.1604e-01_jprb,1.5016e-01_jprb,1.9137e-01_jprb/)  
kbo( :,52,12) = (/&
 & 4.8913e-02_jprb,6.7280e-02_jprb,9.0117e-02_jprb,1.1814e-01_jprb,1.5238e-01_jprb/)  
kbo( :,53,12) = (/&
 & 3.6537e-02_jprb,5.1125e-02_jprb,6.9609e-02_jprb,9.2472e-02_jprb,1.2076e-01_jprb/)  
kbo( :,54,12) = (/&
 & 2.7389e-02_jprb,3.8999e-02_jprb,5.3932e-02_jprb,7.2676e-02_jprb,9.6049e-02_jprb/)  
kbo( :,55,12) = (/&
 & 2.0487e-02_jprb,2.9701e-02_jprb,4.1725e-02_jprb,5.7075e-02_jprb,7.6390e-02_jprb/)  
kbo( :,56,12) = (/&
 & 1.5211e-02_jprb,2.2473e-02_jprb,3.2096e-02_jprb,4.4552e-02_jprb,6.0534e-02_jprb/)  
kbo( :,57,12) = (/&
 & 1.1206e-02_jprb,1.6892e-02_jprb,2.4543e-02_jprb,3.4596e-02_jprb,4.7689e-02_jprb/)  
kbo( :,58,12) = (/&
 & 8.2520e-03_jprb,1.2686e-02_jprb,1.8758e-02_jprb,2.6873e-02_jprb,3.7588e-02_jprb/)  
kbo( :,59,12) = (/&
 & 6.5700e-03_jprb,1.0221e-02_jprb,1.5297e-02_jprb,2.2161e-02_jprb,3.1343e-02_jprb/)  
kbo( :,13,13) = (/&
 & 9.2129e+01_jprb,1.1302e+02_jprb,1.3488e+02_jprb,1.5732e+02_jprb,1.8023e+02_jprb/)  
kbo( :,14,13) = (/&
 & 8.7183e+01_jprb,1.0718e+02_jprb,1.2873e+02_jprb,1.5116e+02_jprb,1.7346e+02_jprb/)  
kbo( :,15,13) = (/&
 & 8.2328e+01_jprb,1.0157e+02_jprb,1.2222e+02_jprb,1.4315e+02_jprb,1.6347e+02_jprb/)  
kbo( :,16,13) = (/&
 & 7.8040e+01_jprb,9.6014e+01_jprb,1.1471e+02_jprb,1.3306e+02_jprb,1.5181e+02_jprb/)  
kbo( :,17,13) = (/&
 & 7.3174e+01_jprb,8.9440e+01_jprb,1.0586e+02_jprb,1.2255e+02_jprb,1.3976e+02_jprb/)  
kbo( :,18,13) = (/&
 & 6.7948e+01_jprb,8.2226e+01_jprb,9.6794e+01_jprb,1.1202e+02_jprb,1.2767e+02_jprb/)  
kbo( :,19,13) = (/&
 & 6.1809e+01_jprb,7.4613e+01_jprb,8.7919e+01_jprb,1.0172e+02_jprb,1.1585e+02_jprb/)  
kbo( :,20,13) = (/&
 & 5.5733e+01_jprb,6.7276e+01_jprb,7.9378e+01_jprb,9.1765e+01_jprb,1.0432e+02_jprb/)  
kbo( :,21,13) = (/&
 & 5.0119e+01_jprb,6.0399e+01_jprb,7.1023e+01_jprb,8.1955e+01_jprb,9.3098e+01_jprb/)  
kbo( :,22,13) = (/&
 & 4.5387e+01_jprb,5.4362e+01_jprb,6.3623e+01_jprb,7.3263e+01_jprb,8.3176e+01_jprb/)  
kbo( :,23,13) = (/&
 & 4.0785e+01_jprb,4.8586e+01_jprb,5.6740e+01_jprb,6.5256e+01_jprb,7.4004e+01_jprb/)  
kbo( :,24,13) = (/&
 & 3.6418e+01_jprb,4.3297e+01_jprb,5.0491e+01_jprb,5.7972e+01_jprb,6.5666e+01_jprb/)  
kbo( :,25,13) = (/&
 & 3.2482e+01_jprb,3.8561e+01_jprb,4.4879e+01_jprb,5.1407e+01_jprb,5.8182e+01_jprb/)  
kbo( :,26,13) = (/&
 & 2.9006e+01_jprb,3.4335e+01_jprb,3.9885e+01_jprb,4.5662e+01_jprb,5.1599e+01_jprb/)  
kbo( :,27,13) = (/&
 & 2.5837e+01_jprb,3.0498e+01_jprb,3.5383e+01_jprb,4.0444e+01_jprb,4.5658e+01_jprb/)  
kbo( :,28,13) = (/&
 & 2.2962e+01_jprb,2.7037e+01_jprb,3.1320e+01_jprb,3.5758e+01_jprb,4.0290e+01_jprb/)  
kbo( :,29,13) = (/&
 & 2.0397e+01_jprb,2.3995e+01_jprb,2.7731e+01_jprb,3.1631e+01_jprb,3.5578e+01_jprb/)  
kbo( :,30,13) = (/&
 & 1.8112e+01_jprb,2.1250e+01_jprb,2.4540e+01_jprb,2.7936e+01_jprb,3.1421e+01_jprb/)  
kbo( :,31,13) = (/&
 & 1.6067e+01_jprb,1.8811e+01_jprb,2.1703e+01_jprb,2.4693e+01_jprb,2.7776e+01_jprb/)  
kbo( :,32,13) = (/&
 & 1.4258e+01_jprb,1.6681e+01_jprb,1.9216e+01_jprb,2.1851e+01_jprb,2.4609e+01_jprb/)  
kbo( :,33,13) = (/&
 & 1.2678e+01_jprb,1.4812e+01_jprb,1.7059e+01_jprb,1.9407e+01_jprb,2.1877e+01_jprb/)  
kbo( :,34,13) = (/&
 & 1.1234e+01_jprb,1.3124e+01_jprb,1.5116e+01_jprb,1.7220e+01_jprb,1.9477e+01_jprb/)  
kbo( :,35,13) = (/&
 & 9.8183e+00_jprb,1.1494e+01_jprb,1.3264e+01_jprb,1.5165e+01_jprb,1.7217e+01_jprb/)  
kbo( :,36,13) = (/&
 & 8.4512e+00_jprb,9.9248e+00_jprb,1.1505e+01_jprb,1.3215e+01_jprb,1.5066e+01_jprb/)  
kbo( :,37,13) = (/&
 & 7.1046e+00_jprb,8.3927e+00_jprb,9.7872e+00_jprb,1.1310e+01_jprb,1.2976e+01_jprb/)  
kbo( :,38,13) = (/&
 & 5.9713e+00_jprb,7.0990e+00_jprb,8.3334e+00_jprb,9.6940e+00_jprb,1.1182e+01_jprb/)  
kbo( :,39,13) = (/&
 & 5.0257e+00_jprb,6.0152e+00_jprb,7.1078e+00_jprb,8.3261e+00_jprb,9.6615e+00_jprb/)  
kbo( :,40,13) = (/&
 & 4.1523e+00_jprb,5.0116e+00_jprb,5.9715e+00_jprb,7.0484e+00_jprb,8.2344e+00_jprb/)  
kbo( :,41,13) = (/&
 & 3.4206e+00_jprb,4.1640e+00_jprb,5.0022e+00_jprb,5.9574e+00_jprb,7.0137e+00_jprb/)  
kbo( :,42,13) = (/&
 & 2.8151e+00_jprb,3.4582e+00_jprb,4.1916e+00_jprb,5.0330e+00_jprb,5.9745e+00_jprb/)  
kbo( :,43,13) = (/&
 & 2.2836e+00_jprb,2.8346e+00_jprb,3.4702e+00_jprb,4.2076e+00_jprb,5.0392e+00_jprb/)  
kbo( :,44,13) = (/&
 & 1.8358e+00_jprb,2.3065e+00_jprb,2.8540e+00_jprb,3.4947e+00_jprb,4.2292e+00_jprb/)  
kbo( :,45,13) = (/&
 & 1.4699e+00_jprb,1.8708e+00_jprb,2.3414e+00_jprb,2.8971e+00_jprb,3.5454e+00_jprb/)  
kbo( :,46,13) = (/&
 & 1.1650e+00_jprb,1.5043e+00_jprb,1.9061e+00_jprb,2.3856e+00_jprb,2.9537e+00_jprb/)  
kbo( :,47,13) = (/&
 & 9.0755e-01_jprb,1.1912e+00_jprb,1.5311e+00_jprb,1.9396e+00_jprb,2.4325e+00_jprb/)  
kbo( :,48,13) = (/&
 & 7.0184e-01_jprb,9.3709e-01_jprb,1.2239e+00_jprb,1.5710e+00_jprb,1.9958e+00_jprb/)  
kbo( :,49,13) = (/&
 & 5.3970e-01_jprb,7.3243e-01_jprb,9.7194e-01_jprb,1.2677e+00_jprb,1.6307e+00_jprb/)  
kbo( :,50,13) = (/&
 & 4.1584e-01_jprb,5.7380e-01_jprb,7.7303e-01_jprb,1.0235e+00_jprb,1.3360e+00_jprb/)  
kbo( :,51,13) = (/&
 & 3.1970e-01_jprb,4.4857e-01_jprb,6.1406e-01_jprb,8.2493e-01_jprb,1.0932e+00_jprb/)  
kbo( :,52,13) = (/&
 & 2.4403e-01_jprb,3.4872e-01_jprb,4.8565e-01_jprb,6.6228e-01_jprb,8.9043e-01_jprb/)  
kbo( :,53,13) = (/&
 & 1.8461e-01_jprb,2.6942e-01_jprb,3.8200e-01_jprb,5.2938e-01_jprb,7.2205e-01_jprb/)  
kbo( :,54,13) = (/&
 & 1.4016e-01_jprb,2.0879e-01_jprb,3.0199e-01_jprb,4.2537e-01_jprb,5.8863e-01_jprb/)  
kbo( :,55,13) = (/&
 & 1.0627e-01_jprb,1.6160e-01_jprb,2.3840e-01_jprb,3.4179e-01_jprb,4.8036e-01_jprb/)  
kbo( :,56,13) = (/&
 & 7.9975e-02_jprb,1.2430e-01_jprb,1.8699e-01_jprb,2.7356e-01_jprb,3.9081e-01_jprb/)  
kbo( :,57,13) = (/&
 & 5.9672e-02_jprb,9.4998e-02_jprb,1.4581e-01_jprb,2.1774e-01_jprb,3.1655e-01_jprb/)  
kbo( :,58,13) = (/&
 & 4.4475e-02_jprb,7.2566e-02_jprb,1.1372e-01_jprb,1.7325e-01_jprb,2.5698e-01_jprb/)  
kbo( :,59,13) = (/&
 & 3.6215e-02_jprb,6.0132e-02_jprb,9.5691e-02_jprb,1.4806e-01_jprb,2.2323e-01_jprb/)  
kbo( :,13,14) = (/&
 & 2.6336e+02_jprb,3.2548e+02_jprb,3.9074e+02_jprb,4.5756e+02_jprb,5.2579e+02_jprb/)  
kbo( :,14,14) = (/&
 & 2.7039e+02_jprb,3.3171e+02_jprb,3.9551e+02_jprb,4.6127e+02_jprb,5.2944e+02_jprb/)  
kbo( :,15,14) = (/&
 & 2.7394e+02_jprb,3.3456e+02_jprb,3.9772e+02_jprb,4.6386e+02_jprb,5.3259e+02_jprb/)  
kbo( :,16,14) = (/&
 & 2.7489e+02_jprb,3.3472e+02_jprb,3.9868e+02_jprb,4.6474e+02_jprb,5.3170e+02_jprb/)  
kbo( :,17,14) = (/&
 & 2.7361e+02_jprb,3.3269e+02_jprb,3.9532e+02_jprb,4.5778e+02_jprb,5.2000e+02_jprb/)  
kbo( :,18,14) = (/&
 & 2.6867e+02_jprb,3.2519e+02_jprb,3.8389e+02_jprb,4.4282e+02_jprb,5.0150e+02_jprb/)  
kbo( :,19,14) = (/&
 & 2.5965e+02_jprb,3.1265e+02_jprb,3.6765e+02_jprb,4.2321e+02_jprb,4.7874e+02_jprb/)  
kbo( :,20,14) = (/&
 & 2.4734e+02_jprb,2.9762e+02_jprb,3.4946e+02_jprb,4.0232e+02_jprb,4.5540e+02_jprb/)  
kbo( :,21,14) = (/&
 & 2.3283e+02_jprb,2.7966e+02_jprb,3.2877e+02_jprb,3.7834e+02_jprb,4.2789e+02_jprb/)  
kbo( :,22,14) = (/&
 & 2.2036e+02_jprb,2.6406e+02_jprb,3.0915e+02_jprb,3.5433e+02_jprb,3.9946e+02_jprb/)  
kbo( :,23,14) = (/&
 & 2.0698e+02_jprb,2.4687e+02_jprb,2.8731e+02_jprb,3.2870e+02_jprb,3.7050e+02_jprb/)  
kbo( :,24,14) = (/&
 & 1.9330e+02_jprb,2.2881e+02_jprb,2.6520e+02_jprb,3.0278e+02_jprb,3.4148e+02_jprb/)  
kbo( :,25,14) = (/&
 & 1.7915e+02_jprb,2.1082e+02_jprb,2.4386e+02_jprb,2.7843e+02_jprb,3.1413e+02_jprb/)  
kbo( :,26,14) = (/&
 & 1.6500e+02_jprb,1.9389e+02_jprb,2.2412e+02_jprb,2.5557e+02_jprb,2.8754e+02_jprb/)  
kbo( :,27,14) = (/&
 & 1.5126e+02_jprb,1.7765e+02_jprb,2.0524e+02_jprb,2.3351e+02_jprb,2.6284e+02_jprb/)  
kbo( :,28,14) = (/&
 & 1.3836e+02_jprb,1.6228e+02_jprb,1.8728e+02_jprb,2.1350e+02_jprb,2.4088e+02_jprb/)  
kbo( :,29,14) = (/&
 & 1.2669e+02_jprb,1.4825e+02_jprb,1.7120e+02_jprb,1.9571e+02_jprb,2.2144e+02_jprb/)  
kbo( :,30,14) = (/&
 & 1.1586e+02_jprb,1.3560e+02_jprb,1.5706e+02_jprb,1.7985e+02_jprb,2.0425e+02_jprb/)  
kbo( :,31,14) = (/&
 & 1.0606e+02_jprb,1.2445e+02_jprb,1.4457e+02_jprb,1.6605e+02_jprb,1.8909e+02_jprb/)  
kbo( :,32,14) = (/&
 & 9.7506e+01_jprb,1.1472e+02_jprb,1.3364e+02_jprb,1.5393e+02_jprb,1.7576e+02_jprb/)  
kbo( :,33,14) = (/&
 & 9.0128e+01_jprb,1.0634e+02_jprb,1.2404e+02_jprb,1.4330e+02_jprb,1.6431e+02_jprb/)  
kbo( :,34,14) = (/&
 & 8.3269e+01_jprb,9.8432e+01_jprb,1.1521e+02_jprb,1.3353e+02_jprb,1.5390e+02_jprb/)  
kbo( :,35,14) = (/&
 & 7.5995e+01_jprb,9.0208e+01_jprb,1.0603e+02_jprb,1.2357e+02_jprb,1.4330e+02_jprb/)  
kbo( :,36,14) = (/&
 & 6.8313e+01_jprb,8.1602e+01_jprb,9.6446e+01_jprb,1.1317e+02_jprb,1.3204e+02_jprb/)  
kbo( :,37,14) = (/&
 & 5.9886e+01_jprb,7.2145e+01_jprb,8.5923e+01_jprb,1.0161e+02_jprb,1.1943e+02_jprb/)  
kbo( :,38,14) = (/&
 & 5.2518e+01_jprb,6.3836e+01_jprb,7.6674e+01_jprb,9.1446e+01_jprb,1.0826e+02_jprb/)  
kbo( :,39,14) = (/&
 & 4.6141e+01_jprb,5.6624e+01_jprb,6.8640e+01_jprb,8.2585e+01_jprb,9.8545e+01_jprb/)  

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


SUBROUTINE part7

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


kbo( :,40,14) = (/&
 & 3.9743e+01_jprb,4.9296e+01_jprb,6.0431e+01_jprb,7.3425e+01_jprb,8.8431e+01_jprb/)  
kbo( :,41,14) = (/&
 & 3.4132e+01_jprb,4.2840e+01_jprb,5.3118e+01_jprb,6.5214e+01_jprb,7.9338e+01_jprb/)  
kbo( :,42,14) = (/&
 & 2.9302e+01_jprb,3.7264e+01_jprb,4.6737e+01_jprb,5.8014e+01_jprb,7.1287e+01_jprb/)  
kbo( :,43,14) = (/&
 & 2.4764e+01_jprb,3.1960e+01_jprb,4.0612e+01_jprb,5.1039e+01_jprb,6.3433e+01_jprb/)  
kbo( :,44,14) = (/&
 & 2.0724e+01_jprb,2.7192e+01_jprb,3.5067e+01_jprb,4.4640e+01_jprb,5.6164e+01_jprb/)  
kbo( :,45,14) = (/&
 & 1.7302e+01_jprb,2.3086e+01_jprb,3.0232e+01_jprb,3.8995e+01_jprb,4.9699e+01_jprb/)  
kbo( :,46,14) = (/&
 & 1.4294e+01_jprb,1.9412e+01_jprb,2.5856e+01_jprb,3.3850e+01_jprb,4.3695e+01_jprb/)  
kbo( :,47,14) = (/&
 & 1.1576e+01_jprb,1.6045e+01_jprb,2.1765e+01_jprb,2.8969e+01_jprb,3.7957e+01_jprb/)  
kbo( :,48,14) = (/&
 & 9.3047e+00_jprb,1.3187e+01_jprb,1.8238e+01_jprb,2.4704e+01_jprb,3.2846e+01_jprb/)  
kbo( :,49,14) = (/&
 & 7.4233e+00_jprb,1.0766e+01_jprb,1.5205e+01_jprb,2.0973e+01_jprb,2.8303e+01_jprb/)  
kbo( :,50,14) = (/&
 & 5.9319e+00_jprb,8.8036e+00_jprb,1.2699e+01_jprb,1.7857e+01_jprb,2.4492e+01_jprb/)  
kbo( :,51,14) = (/&
 & 4.7353e+00_jprb,7.1869e+00_jprb,1.0601e+01_jprb,1.5199e+01_jprb,2.1205e+01_jprb/)  
kbo( :,52,14) = (/&
 & 3.7469e+00_jprb,5.8275e+00_jprb,8.7938e+00_jprb,1.2866e+01_jprb,1.8302e+01_jprb/)  
kbo( :,53,14) = (/&
 & 2.9368e+00_jprb,4.6957e+00_jprb,7.2478e+00_jprb,1.0838e+01_jprb,1.5721e+01_jprb/)  
kbo( :,54,14) = (/&
 & 2.3156e+00_jprb,3.8057e+00_jprb,6.0167e+00_jprb,9.1925e+00_jprb,1.3590e+01_jprb/)  
kbo( :,55,14) = (/&
 & 1.8252e+00_jprb,3.0811e+00_jprb,5.0017e+00_jprb,7.8029e+00_jprb,1.1764e+01_jprb/)  
kbo( :,56,14) = (/&
 & 1.4272e+00_jprb,2.4767e+00_jprb,4.1376e+00_jprb,6.5946e+00_jprb,1.0136e+01_jprb/)  
kbo( :,57,14) = (/&
 & 1.1086e+00_jprb,1.9781e+00_jprb,3.3958e+00_jprb,5.5471e+00_jprb,8.7031e+00_jprb/)  
kbo( :,58,14) = (/&
 & 8.6140e-01_jprb,1.5824e+00_jprb,2.7911e+00_jprb,4.6768e+00_jprb,7.4888e+00_jprb/)  
kbo( :,59,14) = (/&
 & 7.4828e-01_jprb,1.4056e+00_jprb,2.5265e+00_jprb,4.3052e+00_jprb,6.9802e+00_jprb/)  
kbo( :,13,15) = (/&
 & 1.0111e+03_jprb,1.2570e+03_jprb,1.4901e+03_jprb,1.7375e+03_jprb,1.9647e+03_jprb/)  
kbo( :,14,15) = (/&
 & 1.0798e+03_jprb,1.3354e+03_jprb,1.5807e+03_jprb,1.8253e+03_jprb,2.0644e+03_jprb/)  
kbo( :,15,15) = (/&
 & 1.1550e+03_jprb,1.4096e+03_jprb,1.6671e+03_jprb,1.9146e+03_jprb,2.1680e+03_jprb/)  
kbo( :,16,15) = (/&
 & 1.2133e+03_jprb,1.4796e+03_jprb,1.7458e+03_jprb,1.9980e+03_jprb,2.2730e+03_jprb/)  
kbo( :,17,15) = (/&
 & 1.2650e+03_jprb,1.5359e+03_jprb,1.8049e+03_jprb,2.0803e+03_jprb,2.3678e+03_jprb/)  
kbo( :,18,15) = (/&
 & 1.3114e+03_jprb,1.5935e+03_jprb,1.8807e+03_jprb,2.1759e+03_jprb,2.4722e+03_jprb/)  
kbo( :,19,15) = (/&
 & 1.3601e+03_jprb,1.6562e+03_jprb,1.9621e+03_jprb,2.2640e+03_jprb,2.5731e+03_jprb/)  
kbo( :,20,15) = (/&
 & 1.4219e+03_jprb,1.7257e+03_jprb,2.0357e+03_jprb,2.3424e+03_jprb,2.6494e+03_jprb/)  
kbo( :,21,15) = (/&
 & 1.4797e+03_jprb,1.7824e+03_jprb,2.0872e+03_jprb,2.4001e+03_jprb,2.7105e+03_jprb/)  
kbo( :,22,15) = (/&
 & 1.5335e+03_jprb,1.8378e+03_jprb,2.1448e+03_jprb,2.4560e+03_jprb,2.7714e+03_jprb/)  
kbo( :,23,15) = (/&
 & 1.5773e+03_jprb,1.8793e+03_jprb,2.1836e+03_jprb,2.4946e+03_jprb,2.8114e+03_jprb/)  
kbo( :,24,15) = (/&
 & 1.6080e+03_jprb,1.9047e+03_jprb,2.2086e+03_jprb,2.5288e+03_jprb,2.8346e+03_jprb/)  
kbo( :,25,15) = (/&
 & 1.6263e+03_jprb,1.9189e+03_jprb,2.2269e+03_jprb,2.5372e+03_jprb,2.8437e+03_jprb/)  
kbo( :,26,15) = (/&
 & 1.6402e+03_jprb,1.9311e+03_jprb,2.2342e+03_jprb,2.5429e+03_jprb,2.8526e+03_jprb/)  
kbo( :,27,15) = (/&
 & 1.6484e+03_jprb,1.9393e+03_jprb,2.2378e+03_jprb,2.5479e+03_jprb,2.8584e+03_jprb/)  
kbo( :,28,15) = (/&
 & 1.6552e+03_jprb,1.9438e+03_jprb,2.2426e+03_jprb,2.5488e+03_jprb,2.8513e+03_jprb/)  
kbo( :,29,15) = (/&
 & 1.6623e+03_jprb,1.9469e+03_jprb,2.2435e+03_jprb,2.5469e+03_jprb,2.8487e+03_jprb/)  
kbo( :,30,15) = (/&
 & 1.6645e+03_jprb,1.9461e+03_jprb,2.2408e+03_jprb,2.5383e+03_jprb,2.8471e+03_jprb/)  
kbo( :,31,15) = (/&
 & 1.6666e+03_jprb,1.9464e+03_jprb,2.2424e+03_jprb,2.5437e+03_jprb,2.8541e+03_jprb/)  
kbo( :,32,15) = (/&
 & 1.6715e+03_jprb,1.9532e+03_jprb,2.2512e+03_jprb,2.5534e+03_jprb,2.8676e+03_jprb/)  
kbo( :,33,15) = (/&
 & 1.6819e+03_jprb,1.9666e+03_jprb,2.2688e+03_jprb,2.5748e+03_jprb,2.8918e+03_jprb/)  
kbo( :,34,15) = (/&
 & 1.6895e+03_jprb,1.9778e+03_jprb,2.2816e+03_jprb,2.5925e+03_jprb,2.9158e+03_jprb/)  
kbo( :,35,15) = (/&
 & 1.6762e+03_jprb,1.9659e+03_jprb,2.2723e+03_jprb,2.5875e+03_jprb,2.9156e+03_jprb/)  
kbo( :,36,15) = (/&
 & 1.6393e+03_jprb,1.9297e+03_jprb,2.2372e+03_jprb,2.5554e+03_jprb,2.8869e+03_jprb/)  
kbo( :,37,15) = (/&
 & 1.5657e+03_jprb,1.8547e+03_jprb,2.1621e+03_jprb,2.4812e+03_jprb,2.8134e+03_jprb/)  
kbo( :,38,15) = (/&
 & 1.4959e+03_jprb,1.7834e+03_jprb,2.0905e+03_jprb,2.4085e+03_jprb,2.7423e+03_jprb/)  
kbo( :,39,15) = (/&
 & 1.4312e+03_jprb,1.7180e+03_jprb,2.0231e+03_jprb,2.3408e+03_jprb,2.6756e+03_jprb/)  
kbo( :,40,15) = (/&
 & 1.3437e+03_jprb,1.6273e+03_jprb,1.9282e+03_jprb,2.2440e+03_jprb,2.5841e+03_jprb/)  
kbo( :,41,15) = (/&
 & 1.2581e+03_jprb,1.5370e+03_jprb,1.8334e+03_jprb,2.1461e+03_jprb,2.4843e+03_jprb/)  
kbo( :,42,15) = (/&
 & 1.1774e+03_jprb,1.4499e+03_jprb,1.7425e+03_jprb,2.0516e+03_jprb,2.3873e+03_jprb/)  
kbo( :,43,15) = (/&
 & 1.0861e+03_jprb,1.3512e+03_jprb,1.6377e+03_jprb,1.9415e+03_jprb,2.2734e+03_jprb/)  
kbo( :,44,15) = (/&
 & 9.9323e+02_jprb,1.2501e+03_jprb,1.5289e+03_jprb,1.8275e+03_jprb,2.1544e+03_jprb/)  
kbo( :,45,15) = (/&
 & 9.0550e+02_jprb,1.1536e+03_jprb,1.4239e+03_jprb,1.7214e+03_jprb,2.0382e+03_jprb/)  
kbo( :,46,15) = (/&
 & 8.1702e+02_jprb,1.0558e+03_jprb,1.3173e+03_jprb,1.6071e+03_jprb,1.9180e+03_jprb/)  
kbo( :,47,15) = (/&
 & 7.2488e+02_jprb,9.5181e+02_jprb,1.2036e+03_jprb,1.4836e+03_jprb,1.7874e+03_jprb/)  
kbo( :,48,15) = (/&
 & 6.3986e+02_jprb,8.5318e+02_jprb,1.0938e+03_jprb,1.3648e+03_jprb,1.6602e+03_jprb/)  
kbo( :,49,15) = (/&
 & 5.5978e+02_jprb,7.6064e+02_jprb,9.8918e+02_jprb,1.2514e+03_jprb,1.5371e+03_jprb/)  
kbo( :,50,15) = (/&
 & 4.9043e+02_jprb,6.7832e+02_jprb,8.9646e+02_jprb,1.1489e+03_jprb,1.4252e+03_jprb/)  
kbo( :,51,15) = (/&
 & 4.2854e+02_jprb,6.0344e+02_jprb,8.1294e+02_jprb,1.0522e+03_jprb,1.3193e+03_jprb/)  
kbo( :,52,15) = (/&
 & 3.7247e+02_jprb,5.3364e+02_jprb,7.3121e+02_jprb,9.5966e+02_jprb,1.2181e+03_jprb/)  
kbo( :,53,15) = (/&
 & 3.2147e+02_jprb,4.6899e+02_jprb,6.5393e+02_jprb,8.7133e+02_jprb,1.1199e+03_jprb/)  
kbo( :,54,15) = (/&
 & 2.7925e+02_jprb,4.1444e+02_jprb,5.8692e+02_jprb,7.9382e+02_jprb,1.0327e+03_jprb/)  
kbo( :,55,15) = (/&
 & 2.4236e+02_jprb,3.6648e+02_jprb,5.2661e+02_jprb,7.2283e+02_jprb,9.5269e+02_jprb/)  
kbo( :,56,15) = (/&
 & 2.0878e+02_jprb,3.2240e+02_jprb,4.7042e+02_jprb,6.5558e+02_jprb,8.7457e+02_jprb/)  
kbo( :,57,15) = (/&
 & 1.7832e+02_jprb,2.8217e+02_jprb,4.1844e+02_jprb,5.9173e+02_jprb,8.0081e+02_jprb/)  
kbo( :,58,15) = (/&
 & 1.5222e+02_jprb,2.4706e+02_jprb,3.7269e+02_jprb,5.3459e+02_jprb,7.3370e+02_jprb/)  
kbo( :,59,15) = (/&
 & 1.4227e+02_jprb,2.3374e+02_jprb,3.5521e+02_jprb,5.1259e+02_jprb,7.0748e+02_jprb/)  
kbo( :,13,16) = (/&
 & 3.6681e+03_jprb,4.4146e+03_jprb,5.0601e+03_jprb,5.8217e+03_jprb,6.4602e+03_jprb/)  
kbo( :,14,16) = (/&
 & 4.1383e+03_jprb,5.0055e+03_jprb,5.7969e+03_jprb,6.5815e+03_jprb,7.3466e+03_jprb/)  
kbo( :,15,16) = (/&
 & 4.7877e+03_jprb,5.7010e+03_jprb,6.6308e+03_jprb,7.5076e+03_jprb,8.4346e+03_jprb/)  
kbo( :,16,16) = (/&
 & 5.4281e+03_jprb,6.5150e+03_jprb,7.5529e+03_jprb,8.5202e+03_jprb,9.5967e+03_jprb/)  
kbo( :,17,16) = (/&
 & 6.1845e+03_jprb,7.4144e+03_jprb,8.5274e+03_jprb,9.6391e+03_jprb,1.0752e+04_jprb/)  
kbo( :,18,16) = (/&
 & 7.0091e+03_jprb,8.3702e+03_jprb,9.5741e+03_jprb,1.0846e+04_jprb,1.1981e+04_jprb/)  
kbo( :,19,16) = (/&
 & 7.8177e+03_jprb,9.3538e+03_jprb,1.0755e+04_jprb,1.2016e+04_jprb,1.3317e+04_jprb/)  
kbo( :,20,16) = (/&
 & 8.7063e+03_jprb,1.0319e+04_jprb,1.1914e+04_jprb,1.3366e+04_jprb,1.4769e+04_jprb/)  
kbo( :,21,16) = (/&
 & 9.6583e+03_jprb,1.1430e+04_jprb,1.3099e+04_jprb,1.4798e+04_jprb,1.6351e+04_jprb/)  
kbo( :,22,16) = (/&
 & 1.0855e+04_jprb,1.2791e+04_jprb,1.4609e+04_jprb,1.6400e+04_jprb,1.8171e+04_jprb/)  
kbo( :,23,16) = (/&
 & 1.2201e+04_jprb,1.4278e+04_jprb,1.6275e+04_jprb,1.8206e+04_jprb,2.0113e+04_jprb/)  
kbo( :,24,16) = (/&
 & 1.3628e+04_jprb,1.5860e+04_jprb,1.8039e+04_jprb,2.0176e+04_jprb,2.2137e+04_jprb/)  
kbo( :,25,16) = (/&
 & 1.5188e+04_jprb,1.7579e+04_jprb,1.9918e+04_jprb,2.2170e+04_jprb,2.4222e+04_jprb/)  
kbo( :,26,16) = (/&
 & 1.6826e+04_jprb,1.9365e+04_jprb,2.1844e+04_jprb,2.4184e+04_jprb,2.6322e+04_jprb/)  
kbo( :,27,16) = (/&
 & 1.8524e+04_jprb,2.1162e+04_jprb,2.3751e+04_jprb,2.6170e+04_jprb,2.8371e+04_jprb/)  
kbo( :,28,16) = (/&
 & 2.0216e+04_jprb,2.2951e+04_jprb,2.5589e+04_jprb,2.8116e+04_jprb,3.0326e+04_jprb/)  
kbo( :,29,16) = (/&
 & 2.1910e+04_jprb,2.4742e+04_jprb,2.7452e+04_jprb,3.0040e+04_jprb,3.2278e+04_jprb/)  
kbo( :,30,16) = (/&
 & 2.3613e+04_jprb,2.6515e+04_jprb,2.9278e+04_jprb,3.1815e+04_jprb,3.4145e+04_jprb/)  
kbo( :,31,16) = (/&
 & 2.5314e+04_jprb,2.8268e+04_jprb,3.1043e+04_jprb,3.3568e+04_jprb,3.5897e+04_jprb/)  
kbo( :,32,16) = (/&
 & 2.6975e+04_jprb,2.9937e+04_jprb,3.2719e+04_jprb,3.5244e+04_jprb,3.7549e+04_jprb/)  
kbo( :,33,16) = (/&
 & 2.8572e+04_jprb,3.1529e+04_jprb,3.4290e+04_jprb,3.6787e+04_jprb,3.9063e+04_jprb/)  
kbo( :,34,16) = (/&
 & 2.9977e+04_jprb,3.2921e+04_jprb,3.5678e+04_jprb,3.8134e+04_jprb,4.0357e+04_jprb/)  
kbo( :,35,16) = (/&
 & 3.0980e+04_jprb,3.3963e+04_jprb,3.6707e+04_jprb,3.9142e+04_jprb,4.1334e+04_jprb/)  
kbo( :,36,16) = (/&
 & 3.1578e+04_jprb,3.4586e+04_jprb,3.7314e+04_jprb,3.9783e+04_jprb,4.1980e+04_jprb/)  
kbo( :,37,16) = (/&
 & 3.1622e+04_jprb,3.4683e+04_jprb,3.7456e+04_jprb,3.9972e+04_jprb,4.2211e+04_jprb/)  
kbo( :,38,16) = (/&
 & 3.1560e+04_jprb,3.4667e+04_jprb,3.7489e+04_jprb,4.0060e+04_jprb,4.2344e+04_jprb/)  
kbo( :,39,16) = (/&
 & 3.1432e+04_jprb,3.4581e+04_jprb,3.7452e+04_jprb,4.0068e+04_jprb,4.2389e+04_jprb/)  
kbo( :,40,16) = (/&
 & 3.0900e+04_jprb,3.4111e+04_jprb,3.7067e+04_jprb,3.9756e+04_jprb,4.2232e+04_jprb/)  
kbo( :,41,16) = (/&
 & 3.0258e+04_jprb,3.3539e+04_jprb,3.6571e+04_jprb,3.9344e+04_jprb,4.1895e+04_jprb/)  
kbo( :,42,16) = (/&
 & 2.9543e+04_jprb,3.2906e+04_jprb,3.6015e+04_jprb,3.8861e+04_jprb,4.1489e+04_jprb/)  
kbo( :,43,16) = (/&
 & 2.8595e+04_jprb,3.2035e+04_jprb,3.5232e+04_jprb,3.8174e+04_jprb,4.0894e+04_jprb/)  
kbo( :,44,16) = (/&
 & 2.7503e+04_jprb,3.1021e+04_jprb,3.4315e+04_jprb,3.7350e+04_jprb,4.0170e+04_jprb/)  
kbo( :,45,16) = (/&
 & 2.6360e+04_jprb,2.9953e+04_jprb,3.3340e+04_jprb,3.6512e+04_jprb,3.9389e+04_jprb/)  
kbo( :,46,16) = (/&
 & 2.5097e+04_jprb,2.8760e+04_jprb,3.2236e+04_jprb,3.5509e+04_jprb,3.8490e+04_jprb/)  
kbo( :,47,16) = (/&
 & 2.3642e+04_jprb,2.7372e+04_jprb,3.0938e+04_jprb,3.4319e+04_jprb,3.7409e+04_jprb/)  
kbo( :,48,16) = (/&
 & 2.2183e+04_jprb,2.5937e+04_jprb,2.9591e+04_jprb,3.3067e+04_jprb,3.6272e+04_jprb/)  
kbo( :,49,16) = (/&
 & 2.0670e+04_jprb,2.4507e+04_jprb,2.8195e+04_jprb,3.1753e+04_jprb,3.5074e+04_jprb/)  
kbo( :,50,16) = (/&
 & 1.9238e+04_jprb,2.3103e+04_jprb,2.6846e+04_jprb,3.0481e+04_jprb,3.3904e+04_jprb/)  
kbo( :,51,16) = (/&
 & 1.7844e+04_jprb,2.1722e+04_jprb,2.5514e+04_jprb,2.9217e+04_jprb,3.2732e+04_jprb/)  
kbo( :,52,16) = (/&
 & 1.6449e+04_jprb,2.0331e+04_jprb,2.4157e+04_jprb,2.7921e+04_jprb,3.1511e+04_jprb/)  
kbo( :,53,16) = (/&
 & 1.5063e+04_jprb,1.8925e+04_jprb,2.2776e+04_jprb,2.6593e+04_jprb,3.0255e+04_jprb/)  
kbo( :,54,16) = (/&
 & 1.3809e+04_jprb,1.7636e+04_jprb,2.1500e+04_jprb,2.5353e+04_jprb,2.9077e+04_jprb/)  
kbo( :,55,16) = (/&
 & 1.2629e+04_jprb,1.6403e+04_jprb,2.0265e+04_jprb,2.4149e+04_jprb,2.7924e+04_jprb/)  
kbo( :,56,16) = (/&
 & 1.1481e+04_jprb,1.5182e+04_jprb,1.9032e+04_jprb,2.2931e+04_jprb,2.6738e+04_jprb/)  
kbo( :,57,16) = (/&
 & 1.0369e+04_jprb,1.3975e+04_jprb,1.7793e+04_jprb,2.1704e+04_jprb,2.5546e+04_jprb/)  
kbo( :,58,16) = (/&
 & 9.3525e+03_jprb,1.2853e+04_jprb,1.6624e+04_jprb,2.0533e+04_jprb,2.4399e+04_jprb/)  
kbo( :,59,16) = (/&
 & 8.9578e+03_jprb,1.2412e+04_jprb,1.6161e+04_jprb,2.0067e+04_jprb,2.3943e+04_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) = (/&
 & 7.54232e-01_jprb, 6.87231e-01_jprb, 6.26181e-01_jprb, 5.70555e-01_jprb, 5.19870e-01_jprb,&
 & 4.73688e-01_jprb, 4.31608e-01_jprb, 3.93266e-01_jprb, 3.58331e-01_jprb, 3.26499e-01_jprb/)  
selfrefo( :, 2) = (/&
 & 1.01377e+00_jprb, 9.30266e-01_jprb, 8.53637e-01_jprb, 7.83320e-01_jprb, 7.18796e-01_jprb,&
 & 6.59587e-01_jprb, 6.05254e-01_jprb, 5.55398e-01_jprb, 5.09648e-01_jprb, 4.67667e-01_jprb/)  
selfrefo( :, 3) = (/&
 & 1.31954e+00_jprb, 1.22523e+00_jprb, 1.13766e+00_jprb, 1.05635e+00_jprb, 9.80853e-01_jprb,&
 & 9.10749e-01_jprb, 8.45656e-01_jprb, 7.85215e-01_jprb, 7.29095e-01_jprb, 6.76985e-01_jprb/)  
selfrefo( :, 4) = (/&
 & 2.18726e+00_jprb, 2.05960e+00_jprb, 1.93940e+00_jprb, 1.82621e+00_jprb, 1.71962e+00_jprb,&
 & 1.61926e+00_jprb, 1.52476e+00_jprb, 1.43577e+00_jprb, 1.35197e+00_jprb, 1.27306e+00_jprb/)  
selfrefo( :, 5) = (/&
 & 3.17440e+00_jprb, 2.92794e+00_jprb, 2.70061e+00_jprb, 2.49094e+00_jprb, 2.29754e+00_jprb,&
 & 2.11916e+00_jprb, 1.95463e+00_jprb, 1.80287e+00_jprb, 1.66290e+00_jprb, 1.53379e+00_jprb/)  
selfrefo( :, 6) = (/&
 & 2.69705e+00_jprb, 2.48684e+00_jprb, 2.29302e+00_jprb, 2.11431e+00_jprb, 1.94952e+00_jprb,&
 & 1.79758e+00_jprb, 1.65748e+00_jprb, 1.52830e+00_jprb, 1.40919e+00_jprb, 1.29936e+00_jprb/)  
selfrefo( :, 7) = (/&
 & 2.91893e+00_jprb, 2.68371e+00_jprb, 2.46745e+00_jprb, 2.26862e+00_jprb, 2.08581e+00_jprb,&
 & 1.91773e+00_jprb, 1.76319e+00_jprb, 1.62111e+00_jprb, 1.49048e+00_jprb, 1.37037e+00_jprb/)  
selfrefo( :, 8) = (/&
 & 2.91847e+00_jprb, 2.69138e+00_jprb, 2.48195e+00_jprb, 2.28883e+00_jprb, 2.11073e+00_jprb,&
 & 1.94648e+00_jprb, 1.79502e+00_jprb, 1.65535e+00_jprb, 1.52654e+00_jprb, 1.40776e+00_jprb/)  
selfrefo( :, 9) = (/&
 & 2.73994e+00_jprb, 2.54834e+00_jprb, 2.37014e+00_jprb, 2.20440e+00_jprb, 2.05026e+00_jprb,&
 & 1.90689e+00_jprb, 1.77354e+00_jprb, 1.64952e+00_jprb, 1.53418e+00_jprb, 1.42690e+00_jprb/)  
selfrefo( :,10) = (/&
 & 2.81902e+00_jprb, 2.66010e+00_jprb, 2.51014e+00_jprb, 2.36863e+00_jprb, 2.23510e+00_jprb,&
 & 2.10909e+00_jprb, 1.99020e+00_jprb, 1.87800e+00_jprb, 1.77213e+00_jprb, 1.67222e+00_jprb/)  
selfrefo( :,11) = (/&
 & 3.19430e+00_jprb, 2.97671e+00_jprb, 2.77395e+00_jprb, 2.58500e+00_jprb, 2.40891e+00_jprb,&
 & 2.24483e+00_jprb, 2.09192e+00_jprb, 1.94942e+00_jprb, 1.81663e+00_jprb, 1.69289e+00_jprb/)  
selfrefo( :,12) = (/&
 & 3.24778e+00_jprb, 3.04535e+00_jprb, 2.85553e+00_jprb, 2.67755e+00_jprb, 2.51066e+00_jprb,&
 & 2.35417e+00_jprb, 2.20744e+00_jprb, 2.06985e+00_jprb, 1.94084e+00_jprb, 1.81987e+00_jprb/)  
selfrefo( :,13) = (/&
 & 3.67142e+00_jprb, 3.39875e+00_jprb, 3.14634e+00_jprb, 2.91267e+00_jprb, 2.69636e+00_jprb,&
 & 2.49611e+00_jprb, 2.31073e+00_jprb, 2.13913e+00_jprb, 1.98026e+00_jprb, 1.83319e+00_jprb/)  
selfrefo( :,14) = (/&
 & 3.73679e+00_jprb, 3.49113e+00_jprb, 3.26162e+00_jprb, 3.04719e+00_jprb, 2.84686e+00_jprb,&
 & 2.65970e+00_jprb, 2.48485e+00_jprb, 2.32149e+00_jprb, 2.16887e+00_jprb, 2.02628e+00_jprb/)  
selfrefo( :,15) = (/&
 & 4.25684e+00_jprb, 3.95885e+00_jprb, 3.68171e+00_jprb, 3.42397e+00_jprb, 3.18428e+00_jprb,&
 & 2.96137e+00_jprb, 2.75406e+00_jprb, 2.56126e+00_jprb, 2.38196e+00_jprb, 2.21521e+00_jprb/)  
selfrefo( :,16) = (/&
 & 4.97048e+00_jprb, 4.59255e+00_jprb, 4.24336e+00_jprb, 3.92072e+00_jprb, 3.62261e+00_jprb,&
 & 3.34717e+00_jprb, 3.09267e+00_jprb, 2.85752e+00_jprb, 2.64025e+00_jprb, 2.43950e+00_jprb/)  

!     The ith set of reference fractions are from the ith reference
!     pressure level.
fracrefao( :, 1) = (/&
 & 0.18068060_jprb,0.16803175_jprb,0.15140158_jprb,0.12221480_jprb,&
 & 0.10240850_jprb,0.09330297_jprb,0.07518960_jprb,0.05611294_jprb,&
 & 0.03781487_jprb,0.00387192_jprb,0.00321285_jprb,0.00244440_jprb,&
 & 0.00179546_jprb,0.00107704_jprb,0.00038798_jprb,0.00005060_jprb/)  

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


SUBROUTINE part8

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


fracrefao( :, 2) = (/&
 & 0.17927621_jprb,0.16731168_jprb,0.15129538_jprb,0.12328085_jprb,&
 & 0.10243484_jprb,0.09354796_jprb,0.07538418_jprb,0.05633071_jprb,&
 & 0.03810832_jprb,0.00398347_jprb,0.00320262_jprb,0.00250029_jprb,&
 & 0.00178666_jprb,0.00111127_jprb,0.00039438_jprb,0.00005169_jprb/)  
fracrefao( :, 3) = (/&
 & 0.17762886_jprb,0.16638555_jprb,0.15115446_jprb,0.12470623_jprb,&
 & 0.10253213_jprb,0.09383459_jprb,0.07560240_jprb,0.05646568_jprb,&
 & 0.03844077_jprb,0.00409142_jprb,0.00322521_jprb,0.00254918_jprb,&
 & 0.00179296_jprb,0.00113652_jprb,0.00040169_jprb,0.00005259_jprb/)  
fracrefao( :, 4) = (/&
 & 0.17566043_jprb,0.16539773_jprb,0.15092199_jprb,0.12571971_jprb,&
 & 0.10340609_jprb,0.09426189_jprb,0.07559051_jprb,0.05678188_jprb,&
 & 0.03881499_jprb,0.00414102_jprb,0.00328551_jprb,0.00258795_jprb,&
 & 0.00181648_jprb,0.00115145_jprb,0.00040969_jprb,0.00005357_jprb/)  
fracrefao( :, 5) = (/&
 & 0.17335825_jprb,0.16442548_jprb,0.15070701_jprb,0.12667464_jprb,&
 & 0.10452303_jprb,0.09450833_jprb,0.07599410_jprb,0.05706393_jprb,&
 & 0.03910370_jprb,0.00417880_jprb,0.00335256_jprb,0.00261708_jprb,&
 & 0.00185491_jprb,0.00116627_jprb,0.00041759_jprb,0.00005464_jprb/)  
fracrefao( :, 6) = (/&
 & 0.17082544_jprb,0.16321516_jprb,0.15044247_jprb,0.12797612_jprb,&
 & 0.10574646_jprb,0.09470057_jprb,0.07647423_jprb,0.05738756_jprb,&
 & 0.03935621_jprb,0.00423789_jprb,0.00342651_jprb,0.00264549_jprb,&
 & 0.00190188_jprb,0.00118281_jprb,0.00042592_jprb,0.00005583_jprb/)  
fracrefao( :, 7) = (/&
 & 0.16809277_jprb,0.16193336_jprb,0.15013184_jprb,0.12937409_jprb,&
 & 0.10720784_jprb,0.09485368_jprb,0.07692636_jprb,0.05771774_jprb,&
 & 0.03966988_jprb,0.00427754_jprb,0.00349696_jprb,0.00268946_jprb,&
 & 0.00193536_jprb,0.00120222_jprb,0.00043462_jprb,0.00005712_jprb/)  
fracrefao( :, 8) = (/&
 & 0.16517997_jprb,0.16059248_jprb,0.14984852_jprb,0.13079269_jprb,&
 & 0.10865030_jprb,0.09492947_jprb,0.07759736_jprb,0.05812201_jprb,&
 & 0.03997169_jprb,0.00432356_jprb,0.00355308_jprb,0.00274031_jprb,&
 & 0.00197243_jprb,0.00122401_jprb,0.00044359_jprb,0.00005849_jprb/)  
fracrefao( :, 9) = (/&
 & 0.16209179_jprb,0.15912023_jprb,0.14938223_jprb,0.13198245_jprb,&
 & 0.11077233_jprb,0.09487948_jprb,0.07831636_jprb,0.05863440_jprb,&
 & 0.04028239_jprb,0.00436804_jprb,0.00360407_jprb,0.00279885_jprb,&
 & 0.00200364_jprb,0.00124861_jprb,0.00045521_jprb,0.00005996_jprb/)  
fracrefao( :,10) = (/&
 & 0.15962425_jprb,0.15789343_jprb,0.14898103_jprb,0.13275230_jprb,&
 & 0.11253940_jprb,0.09503502_jprb,0.07884382_jprb,0.05908009_jprb,&
 & 0.04053524_jprb,0.00439971_jprb,0.00364269_jprb,0.00284965_jprb,&
 & 0.00202758_jprb,0.00127076_jprb,0.00046408_jprb,0.00006114_jprb/)  
fracrefao( :,11) = (/&
 & 0.15926200_jprb,0.15770932_jprb,0.14891729_jprb,0.13283882_jprb,&
 & 0.11276010_jprb,0.09507311_jprb,0.07892222_jprb,0.05919230_jprb,&
 & 0.04054824_jprb,0.00440833_jprb,0.00365575_jprb,0.00286459_jprb,&
 & 0.00203786_jprb,0.00128405_jprb,0.00046504_jprb,0.00006146_jprb/)  
fracrefao( :,12) = (/&
 & 0.15926351_jprb,0.15770483_jprb,0.14891177_jprb,0.13279966_jprb,&
 & 0.11268171_jprb,0.09515216_jprb,0.07890341_jprb,0.05924807_jprb,&
 & 0.04052851_jprb,0.00440870_jprb,0.00365425_jprb,0.00286878_jprb,&
 & 0.00205747_jprb,0.00128916_jprb,0.00046589_jprb,0.00006221_jprb/)  
fracrefao( :,13) = (/&
 & 0.15937765_jprb,0.15775780_jprb,0.14892603_jprb,0.13273248_jprb,&
 & 0.11252731_jprb,0.09521657_jprb,0.07885858_jprb,0.05927679_jprb,&
 & 0.04050184_jprb,0.00440285_jprb,0.00365748_jprb,0.00286791_jprb,&
 & 0.00207507_jprb,0.00129193_jprb,0.00046679_jprb,0.00006308_jprb/)  

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


END SUBROUTINE rrtm_kgb2