rrtm_kgb11.F90

Go to the documentation of this file.

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

!     Originally by Eli J. Mlawer, Atmospheric & Environmental Research.
!     BAND 11:  1480-1800 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 yoerrto11, ONLY : kao     ,kbo     ,selfrefo    ,fracrefao ,fracrefbo

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

IMPLICIT NONE
REAL(KIND=JPRB) :: ZHOOK_HANDLE

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

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

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

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

CONTAINS


SUBROUTINE part1

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


fracrefao( :) = (/&
 !     From P = 473 mb.
 & 0.14152819_jprb,0.13811260_jprb,0.14312185_jprb,0.13705885_jprb,&
 & 0.11944738_jprb,0.10570189_jprb,0.08866373_jprb,0.06565409_jprb,&
 & 0.04428961_jprb,0.00481540_jprb,0.00387058_jprb,0.00329187_jprb,&
 & 0.00238294_jprb,0.00150971_jprb,0.00049287_jprb,0.00005980_jprb/)  

fracrefbo( :) = (/&
 !     From P = 1.17 mb.
 & 0.10874039_jprb,0.15164889_jprb,0.15149839_jprb,0.14515044_jprb,&
 & 0.12486220_jprb,0.10725017_jprb,0.08715712_jprb,0.06463144_jprb,&
 & 0.04332319_jprb,0.00441193_jprb,0.00393819_jprb,0.00305960_jprb,&
 & 0.00224221_jprb,0.00145100_jprb,0.00055586_jprb,0.00007934_jprb/)  

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

!     The array KA 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) = (/&
 & 8.3522e-02_jprb,8.1897e-02_jprb,8.0229e-02_jprb,7.8579e-02_jprb,7.6970e-02_jprb/)  
kao( :, 2, 1) = (/&
 & 6.8945e-02_jprb,6.7573e-02_jprb,6.6206e-02_jprb,6.4835e-02_jprb,6.3486e-02_jprb/)  
kao( :, 3, 1) = (/&
 & 5.7102e-02_jprb,5.5943e-02_jprb,5.4810e-02_jprb,5.3668e-02_jprb,5.2541e-02_jprb/)  
kao( :, 4, 1) = (/&
 & 4.7668e-02_jprb,4.6657e-02_jprb,4.5724e-02_jprb,4.4753e-02_jprb,4.3808e-02_jprb/)  
kao( :, 5, 1) = (/&
 & 4.0002e-02_jprb,3.9124e-02_jprb,3.8315e-02_jprb,3.7502e-02_jprb,3.6705e-02_jprb/)  
kao( :, 6, 1) = (/&
 & 3.3776e-02_jprb,3.3000e-02_jprb,3.2282e-02_jprb,3.1596e-02_jprb,3.0909e-02_jprb/)  
kao( :, 7, 1) = (/&
 & 2.8835e-02_jprb,2.8128e-02_jprb,2.7478e-02_jprb,2.6862e-02_jprb,2.6273e-02_jprb/)  
kao( :, 8, 1) = (/&
 & 2.5465e-02_jprb,2.4809e-02_jprb,2.4170e-02_jprb,2.3568e-02_jprb,2.3010e-02_jprb/)  
kao( :, 9, 1) = (/&
 & 2.7031e-02_jprb,2.6297e-02_jprb,2.5569e-02_jprb,2.4878e-02_jprb,2.4216e-02_jprb/)  
kao( :,10, 1) = (/&
 & 2.6955e-02_jprb,2.7533e-02_jprb,2.7941e-02_jprb,2.8269e-02_jprb,2.8556e-02_jprb/)  
kao( :,11, 1) = (/&
 & 2.3333e-02_jprb,2.4026e-02_jprb,2.4613e-02_jprb,2.5142e-02_jprb,2.5601e-02_jprb/)  
kao( :,12, 1) = (/&
 & 1.9793e-02_jprb,2.0434e-02_jprb,2.0982e-02_jprb,2.1484e-02_jprb,2.1945e-02_jprb/)  
kao( :,13, 1) = (/&
 & 1.6447e-02_jprb,1.6981e-02_jprb,1.7444e-02_jprb,1.7868e-02_jprb,1.8252e-02_jprb/)  
kao( :, 1, 2) = (/&
 & 1.8412e-01_jprb,1.7858e-01_jprb,1.7358e-01_jprb,1.6916e-01_jprb,1.6516e-01_jprb/)  
kao( :, 2, 2) = (/&
 & 1.5257e-01_jprb,1.4806e-01_jprb,1.4389e-01_jprb,1.4020e-01_jprb,1.3683e-01_jprb/)  
kao( :, 3, 2) = (/&
 & 1.2692e-01_jprb,1.2322e-01_jprb,1.1970e-01_jprb,1.1654e-01_jprb,1.1362e-01_jprb/)  
kao( :, 4, 2) = (/&
 & 1.0642e-01_jprb,1.0336e-01_jprb,1.0039e-01_jprb,9.7683e-02_jprb,9.5128e-02_jprb/)  
kao( :, 5, 2) = (/&
 & 8.9523e-02_jprb,8.6972e-02_jprb,8.4476e-02_jprb,8.2142e-02_jprb,7.9952e-02_jprb/)  
kao( :, 6, 2) = (/&
 & 7.5430e-02_jprb,7.3336e-02_jprb,7.1244e-02_jprb,6.9235e-02_jprb,6.7354e-02_jprb/)  
kao( :, 7, 2) = (/&
 & 6.3775e-02_jprb,6.2031e-02_jprb,6.0281e-02_jprb,5.8573e-02_jprb,5.6925e-02_jprb/)  
kao( :, 8, 2) = (/&
 & 5.4827e-02_jprb,5.3223e-02_jprb,5.1676e-02_jprb,5.0200e-02_jprb,4.8747e-02_jprb/)  
kao( :, 9, 2) = (/&
 & 5.4030e-02_jprb,5.1628e-02_jprb,4.9558e-02_jprb,4.7732e-02_jprb,4.6090e-02_jprb/)  
kao( :,10, 2) = (/&
 & 8.3445e-02_jprb,7.9695e-02_jprb,7.5528e-02_jprb,7.1349e-02_jprb,6.7427e-02_jprb/)  
kao( :,11, 2) = (/&
 & 8.4499e-02_jprb,8.2002e-02_jprb,7.9684e-02_jprb,7.7445e-02_jprb,7.4716e-02_jprb/)  
kao( :,12, 2) = (/&
 & 7.7856e-02_jprb,7.5679e-02_jprb,7.3803e-02_jprb,7.2014e-02_jprb,7.0273e-02_jprb/)  
kao( :,13, 2) = (/&
 & 6.5859e-02_jprb,6.3974e-02_jprb,6.2346e-02_jprb,6.0810e-02_jprb,5.9317e-02_jprb/)  
kao( :, 1, 3) = (/&
 & 2.9197e-01_jprb,2.8442e-01_jprb,2.7750e-01_jprb,2.7131e-01_jprb,2.6568e-01_jprb/)  
kao( :, 2, 3) = (/&
 & 2.4244e-01_jprb,2.3605e-01_jprb,2.3044e-01_jprb,2.2538e-01_jprb,2.2082e-01_jprb/)  
kao( :, 3, 3) = (/&
 & 2.0181e-01_jprb,1.9632e-01_jprb,1.9163e-01_jprb,1.8739e-01_jprb,1.8374e-01_jprb/)  
kao( :, 4, 3) = (/&
 & 1.6959e-01_jprb,1.6475e-01_jprb,1.6065e-01_jprb,1.5699e-01_jprb,1.5395e-01_jprb/)  
kao( :, 5, 3) = (/&
 & 1.4314e-01_jprb,1.3886e-01_jprb,1.3520e-01_jprb,1.3204e-01_jprb,1.2940e-01_jprb/)  
kao( :, 6, 3) = (/&
 & 1.2136e-01_jprb,1.1746e-01_jprb,1.1417e-01_jprb,1.1138e-01_jprb,1.0905e-01_jprb/)  
kao( :, 7, 3) = (/&
 & 1.0338e-01_jprb,9.9815e-02_jprb,9.6778e-02_jprb,9.4240e-02_jprb,9.2133e-02_jprb/)  
kao( :, 8, 3) = (/&
 & 8.9213e-02_jprb,8.5864e-02_jprb,8.2965e-02_jprb,8.0544e-02_jprb,7.8544e-02_jprb/)  
kao( :, 9, 3) = (/&
 & 8.5385e-02_jprb,8.1609e-02_jprb,7.8239e-02_jprb,7.5298e-02_jprb,7.2804e-02_jprb/)  
kao( :,10, 3) = (/&
 & 1.2007e-01_jprb,1.1056e-01_jprb,1.0332e-01_jprb,9.7549e-02_jprb,9.2699e-02_jprb/)  
kao( :,11, 3) = (/&
 & 1.4027e-01_jprb,1.2871e-01_jprb,1.1832e-01_jprb,1.0920e-01_jprb,1.0190e-01_jprb/)  
kao( :,12, 3) = (/&
 & 1.3635e-01_jprb,1.2627e-01_jprb,1.1647e-01_jprb,1.0761e-01_jprb,9.9760e-02_jprb/)  
kao( :,13, 3) = (/&
 & 1.1578e-01_jprb,1.0716e-01_jprb,9.8794e-02_jprb,9.1233e-02_jprb,8.4550e-02_jprb/)  
kao( :, 1, 4) = (/&
 & 4.8086e-01_jprb,4.7132e-01_jprb,4.6205e-01_jprb,4.5354e-01_jprb,4.4595e-01_jprb/)  
kao( :, 2, 4) = (/&
 & 4.0074e-01_jprb,3.9253e-01_jprb,3.8477e-01_jprb,3.7758e-01_jprb,3.7132e-01_jprb/)  
kao( :, 3, 4) = (/&
 & 3.3455e-01_jprb,3.2760e-01_jprb,3.2088e-01_jprb,3.1483e-01_jprb,3.0965e-01_jprb/)  
kao( :, 4, 4) = (/&
 & 2.8170e-01_jprb,2.7587e-01_jprb,2.7011e-01_jprb,2.6499e-01_jprb,2.6048e-01_jprb/)  
kao( :, 5, 4) = (/&
 & 2.3795e-01_jprb,2.3301e-01_jprb,2.2814e-01_jprb,2.2368e-01_jprb,2.1976e-01_jprb/)  
kao( :, 6, 4) = (/&
 & 2.0113e-01_jprb,1.9701e-01_jprb,1.9292e-01_jprb,1.8907e-01_jprb,1.8557e-01_jprb/)  
kao( :, 7, 4) = (/&
 & 1.7006e-01_jprb,1.6661e-01_jprb,1.6317e-01_jprb,1.5986e-01_jprb,1.5679e-01_jprb/)  
kao( :, 8, 4) = (/&
 & 1.4477e-01_jprb,1.4172e-01_jprb,1.3877e-01_jprb,1.3586e-01_jprb,1.3312e-01_jprb/)  
kao( :, 9, 4) = (/&
 & 1.3199e-01_jprb,1.2821e-01_jprb,1.2474e-01_jprb,1.2152e-01_jprb,1.1855e-01_jprb/)  
kao( :,10, 4) = (/&
 & 1.6601e-01_jprb,1.5603e-01_jprb,1.4717e-01_jprb,1.3948e-01_jprb,1.3292e-01_jprb/)  
kao( :,11, 4) = (/&
 & 1.7889e-01_jprb,1.6649e-01_jprb,1.5552e-01_jprb,1.4618e-01_jprb,1.3804e-01_jprb/)  
kao( :,12, 4) = (/&
 & 1.7280e-01_jprb,1.5923e-01_jprb,1.4821e-01_jprb,1.3870e-01_jprb,1.3058e-01_jprb/)  
kao( :,13, 4) = (/&
 & 1.4697e-01_jprb,1.3536e-01_jprb,1.2589e-01_jprb,1.1779e-01_jprb,1.1082e-01_jprb/)  
kao( :, 1, 5) = (/&
 & 8.2847e-01_jprb,8.1706e-01_jprb,8.0603e-01_jprb,7.9489e-01_jprb,7.8340e-01_jprb/)  
kao( :, 2, 5) = (/&
 & 6.9594e-01_jprb,6.8698e-01_jprb,6.7809e-01_jprb,6.6891e-01_jprb,6.5974e-01_jprb/)  
kao( :, 3, 5) = (/&
 & 5.8279e-01_jprb,5.7548e-01_jprb,5.6796e-01_jprb,5.6025e-01_jprb,5.5235e-01_jprb/)  
kao( :, 4, 5) = (/&
 & 4.9038e-01_jprb,4.8412e-01_jprb,4.7772e-01_jprb,4.7110e-01_jprb,4.6460e-01_jprb/)  
kao( :, 5, 5) = (/&
 & 4.1378e-01_jprb,4.0847e-01_jprb,4.0311e-01_jprb,3.9759e-01_jprb,3.9230e-01_jprb/)  
kao( :, 6, 5) = (/&
 & 3.4972e-01_jprb,3.4519e-01_jprb,3.4085e-01_jprb,3.3630e-01_jprb,3.3209e-01_jprb/)  
kao( :, 7, 5) = (/&
 & 2.9568e-01_jprb,2.9179e-01_jprb,2.8827e-01_jprb,2.8454e-01_jprb,2.8107e-01_jprb/)  
kao( :, 8, 5) = (/&
 & 2.5092e-01_jprb,2.4746e-01_jprb,2.4424e-01_jprb,2.4103e-01_jprb,2.3811e-01_jprb/)  
kao( :, 9, 5) = (/&
 & 2.2123e-01_jprb,2.1714e-01_jprb,2.1336e-01_jprb,2.0980e-01_jprb,2.0674e-01_jprb/)  
kao( :,10, 5) = (/&
 & 2.3952e-01_jprb,2.2844e-01_jprb,2.1930e-01_jprb,2.1169e-01_jprb,2.0553e-01_jprb/)  
kao( :,11, 5) = (/&
 & 2.4873e-01_jprb,2.3190e-01_jprb,2.1857e-01_jprb,2.0774e-01_jprb,1.9916e-01_jprb/)  
kao( :,12, 5) = (/&
 & 2.3605e-01_jprb,2.1832e-01_jprb,2.0375e-01_jprb,1.9219e-01_jprb,1.8288e-01_jprb/)  
kao( :,13, 5) = (/&
 & 2.0036e-01_jprb,1.8536e-01_jprb,1.7319e-01_jprb,1.6345e-01_jprb,1.5566e-01_jprb/)  
kao( :, 1, 6) = (/&
 & 1.6289e+00_jprb,1.6053e+00_jprb,1.5817e+00_jprb,1.5589e+00_jprb,1.5373e+00_jprb/)  
kao( :, 2, 6) = (/&
 & 1.3936e+00_jprb,1.3733e+00_jprb,1.3535e+00_jprb,1.3341e+00_jprb,1.3148e+00_jprb/)  
kao( :, 3, 6) = (/&
 & 1.1841e+00_jprb,1.1673e+00_jprb,1.1508e+00_jprb,1.1346e+00_jprb,1.1181e+00_jprb/)  
kao( :, 4, 6) = (/&
 & 1.0080e+00_jprb,9.9445e-01_jprb,9.8106e-01_jprb,9.6749e-01_jprb,9.5407e-01_jprb/)  
kao( :, 5, 6) = (/&
 & 8.5742e-01_jprb,8.4664e-01_jprb,8.3551e-01_jprb,8.2440e-01_jprb,8.1340e-01_jprb/)  
kao( :, 6, 6) = (/&
 & 7.2750e-01_jprb,7.1904e-01_jprb,7.0964e-01_jprb,7.0043e-01_jprb,6.9094e-01_jprb/)  
kao( :, 7, 6) = (/&
 & 6.1594e-01_jprb,6.0900e-01_jprb,6.0116e-01_jprb,5.9327e-01_jprb,5.8510e-01_jprb/)  
kao( :, 8, 6) = (/&
 & 5.2157e-01_jprb,5.1588e-01_jprb,5.0935e-01_jprb,5.0256e-01_jprb,4.9566e-01_jprb/)  
kao( :, 9, 6) = (/&
 & 4.4895e-01_jprb,4.4354e-01_jprb,4.3759e-01_jprb,4.3150e-01_jprb,4.2532e-01_jprb/)  
kao( :,10, 6) = (/&
 & 4.2442e-01_jprb,4.1504e-01_jprb,4.0636e-01_jprb,3.9814e-01_jprb,3.9006e-01_jprb/)  
kao( :,11, 6) = (/&
 & 3.9535e-01_jprb,3.8239e-01_jprb,3.7132e-01_jprb,3.6140e-01_jprb,3.5225e-01_jprb/)  
kao( :,12, 6) = (/&
 & 3.5520e-01_jprb,3.4132e-01_jprb,3.2979e-01_jprb,3.1961e-01_jprb,3.1084e-01_jprb/)  
kao( :,13, 6) = (/&
 & 3.0031e-01_jprb,2.8876e-01_jprb,2.7891e-01_jprb,2.7050e-01_jprb,2.6328e-01_jprb/)  
kao( :, 1, 7) = (/&
 & 3.4694e+00_jprb,3.4297e+00_jprb,3.3904e+00_jprb,3.3487e+00_jprb,3.3017e+00_jprb/)  
kao( :, 2, 7) = (/&
 & 3.0726e+00_jprb,3.0336e+00_jprb,2.9923e+00_jprb,2.9489e+00_jprb,2.9055e+00_jprb/)  
kao( :, 3, 7) = (/&
 & 2.6840e+00_jprb,2.6467e+00_jprb,2.6074e+00_jprb,2.5687e+00_jprb,2.5313e+00_jprb/)  
kao( :, 4, 7) = (/&
 & 2.3349e+00_jprb,2.3013e+00_jprb,2.2673e+00_jprb,2.2337e+00_jprb,2.2014e+00_jprb/)  
kao( :, 5, 7) = (/&
 & 2.0215e+00_jprb,1.9929e+00_jprb,1.9642e+00_jprb,1.9357e+00_jprb,1.9075e+00_jprb/)  
kao( :, 6, 7) = (/&
 & 1.7423e+00_jprb,1.7184e+00_jprb,1.6935e+00_jprb,1.6697e+00_jprb,1.6459e+00_jprb/)  
kao( :, 7, 7) = (/&
 & 1.4935e+00_jprb,1.4730e+00_jprb,1.4523e+00_jprb,1.4325e+00_jprb,1.4131e+00_jprb/)  
kao( :, 8, 7) = (/&
 & 1.2741e+00_jprb,1.2566e+00_jprb,1.2398e+00_jprb,1.2241e+00_jprb,1.2075e+00_jprb/)  
kao( :, 9, 7) = (/&
 & 1.0910e+00_jprb,1.0756e+00_jprb,1.0611e+00_jprb,1.0471e+00_jprb,1.0328e+00_jprb/)  
kao( :,10, 7) = (/&
 & 9.6869e-01_jprb,9.5109e-01_jprb,9.3551e-01_jprb,9.2022e-01_jprb,9.0558e-01_jprb/)  
kao( :,11, 7) = (/&
 & 8.5022e-01_jprb,8.3262e-01_jprb,8.1646e-01_jprb,8.0094e-01_jprb,7.8632e-01_jprb/)  
kao( :,12, 7) = (/&
 & 7.3620e-01_jprb,7.1934e-01_jprb,7.0369e-01_jprb,6.8927e-01_jprb,6.7565e-01_jprb/)  
kao( :,13, 7) = (/&
 & 6.2075e-01_jprb,6.0642e-01_jprb,5.9315e-01_jprb,5.8082e-01_jprb,5.6896e-01_jprb/)  
kao( :, 1, 8) = (/&
 & 7.9943e+00_jprb,7.8622e+00_jprb,7.7337e+00_jprb,7.6053e+00_jprb,7.4825e+00_jprb/)  
kao( :, 2, 8) = (/&
 & 7.5299e+00_jprb,7.3990e+00_jprb,7.2772e+00_jprb,7.1539e+00_jprb,7.0340e+00_jprb/)  
kao( :, 3, 8) = (/&
 & 6.9582e+00_jprb,6.8392e+00_jprb,6.7240e+00_jprb,6.6095e+00_jprb,6.4993e+00_jprb/)  
kao( :, 4, 8) = (/&
 & 6.3616e+00_jprb,6.2560e+00_jprb,6.1487e+00_jprb,6.0437e+00_jprb,5.9411e+00_jprb/)  
kao( :, 5, 8) = (/&
 & 5.7571e+00_jprb,5.6594e+00_jprb,5.5598e+00_jprb,5.4641e+00_jprb,5.3662e+00_jprb/)  
kao( :, 6, 8) = (/&
 & 5.1527e+00_jprb,5.0625e+00_jprb,4.9739e+00_jprb,4.8820e+00_jprb,4.7886e+00_jprb/)  
kao( :, 7, 8) = (/&
 & 4.5602e+00_jprb,4.4806e+00_jprb,4.3973e+00_jprb,4.3111e+00_jprb,4.2273e+00_jprb/)  
kao( :, 8, 8) = (/&
 & 3.9984e+00_jprb,3.9261e+00_jprb,3.8484e+00_jprb,3.7714e+00_jprb,3.6990e+00_jprb/)  
kao( :, 9, 8) = (/&
 & 3.4828e+00_jprb,3.4160e+00_jprb,3.3474e+00_jprb,3.2815e+00_jprb,3.2194e+00_jprb/)  
kao( :,10, 8) = (/&
 & 3.0434e+00_jprb,2.9801e+00_jprb,2.9179e+00_jprb,2.8592e+00_jprb,2.8030e+00_jprb/)  
kao( :,11, 8) = (/&
 & 2.6134e+00_jprb,2.5563e+00_jprb,2.5021e+00_jprb,2.4506e+00_jprb,2.4022e+00_jprb/)  
kao( :,12, 8) = (/&
 & 2.2242e+00_jprb,2.1754e+00_jprb,2.1288e+00_jprb,2.0857e+00_jprb,2.0457e+00_jprb/)  
kao( :,13, 8) = (/&
 & 1.8749e+00_jprb,1.8340e+00_jprb,1.7958e+00_jprb,1.7607e+00_jprb,1.7271e+00_jprb/)  
kao( :, 1, 9) = (/&
 & 1.8807e+01_jprb,1.8545e+01_jprb,1.8312e+01_jprb,1.8089e+01_jprb,1.7885e+01_jprb/)  
kao( :, 2, 9) = (/&
 & 1.9472e+01_jprb,1.9225e+01_jprb,1.8970e+01_jprb,1.8737e+01_jprb,1.8518e+01_jprb/)  
kao( :, 3, 9) = (/&
 & 1.9976e+01_jprb,1.9718e+01_jprb,1.9452e+01_jprb,1.9190e+01_jprb,1.8937e+01_jprb/)  
kao( :, 4, 9) = (/&
 & 2.0179e+01_jprb,1.9901e+01_jprb,1.9617e+01_jprb,1.9339e+01_jprb,1.9071e+01_jprb/)  
kao( :, 5, 9) = (/&
 & 2.0073e+01_jprb,1.9777e+01_jprb,1.9491e+01_jprb,1.9213e+01_jprb,1.8936e+01_jprb/)  
kao( :, 6, 9) = (/&
 & 1.9652e+01_jprb,1.9360e+01_jprb,1.9080e+01_jprb,1.8806e+01_jprb,1.8526e+01_jprb/)  
kao( :, 7, 9) = (/&
 & 1.8940e+01_jprb,1.8655e+01_jprb,1.8384e+01_jprb,1.8113e+01_jprb,1.7820e+01_jprb/)  
kao( :, 8, 9) = (/&
 & 1.7954e+01_jprb,1.7679e+01_jprb,1.7419e+01_jprb,1.7144e+01_jprb,1.6856e+01_jprb/)  
kao( :, 9, 9) = (/&
 & 1.6744e+01_jprb,1.6495e+01_jprb,1.6235e+01_jprb,1.5966e+01_jprb,1.5690e+01_jprb/)  
kao( :,10, 9) = (/&
 & 1.5389e+01_jprb,1.5156e+01_jprb,1.4910e+01_jprb,1.4661e+01_jprb,1.4409e+01_jprb/)  
kao( :,11, 9) = (/&
 & 1.3852e+01_jprb,1.3629e+01_jprb,1.3408e+01_jprb,1.3185e+01_jprb,1.2963e+01_jprb/)  
kao( :,12, 9) = (/&
 & 1.2299e+01_jprb,1.2107e+01_jprb,1.1912e+01_jprb,1.1717e+01_jprb,1.1509e+01_jprb/)  
kao( :,13, 9) = (/&
 & 1.0790e+01_jprb,1.0623e+01_jprb,1.0457e+01_jprb,1.0277e+01_jprb,1.0096e+01_jprb/)  
kao( :, 1,10) = (/&
 & 3.4330e+01_jprb,3.3765e+01_jprb,3.3237e+01_jprb,3.2695e+01_jprb,3.2149e+01_jprb/)  
kao( :, 2,10) = (/&
 & 3.6844e+01_jprb,3.6202e+01_jprb,3.5649e+01_jprb,3.5225e+01_jprb,3.4890e+01_jprb/)  
kao( :, 3,10) = (/&
 & 3.9801e+01_jprb,3.9093e+01_jprb,3.8604e+01_jprb,3.8270e+01_jprb,3.7931e+01_jprb/)  
kao( :, 4,10) = (/&
 & 4.2629e+01_jprb,4.2009e+01_jprb,4.1641e+01_jprb,4.1207e+01_jprb,4.0730e+01_jprb/)  
kao( :, 5,10) = (/&
 & 4.5222e+01_jprb,4.4631e+01_jprb,4.4212e+01_jprb,4.3567e+01_jprb,4.2975e+01_jprb/)  
kao( :, 6,10) = (/&
 & 4.7625e+01_jprb,4.7023e+01_jprb,4.6428e+01_jprb,4.5641e+01_jprb,4.5059e+01_jprb/)  
kao( :, 7,10) = (/&
 & 4.9512e+01_jprb,4.8922e+01_jprb,4.8261e+01_jprb,4.7488e+01_jprb,4.7086e+01_jprb/)  
kao( :, 8,10) = (/&
 & 5.0685e+01_jprb,5.0115e+01_jprb,4.9437e+01_jprb,4.8806e+01_jprb,4.8343e+01_jprb/)  
kao( :, 9,10) = (/&
 & 5.1127e+01_jprb,5.0594e+01_jprb,4.9931e+01_jprb,4.9312e+01_jprb,4.8711e+01_jprb/)  
kao( :,10,10) = (/&
 & 5.0693e+01_jprb,5.0048e+01_jprb,4.9328e+01_jprb,4.8631e+01_jprb,4.7896e+01_jprb/)  
kao( :,11,10) = (/&
 & 4.8604e+01_jprb,4.7864e+01_jprb,4.7094e+01_jprb,4.6287e+01_jprb,4.5518e+01_jprb/)  
kao( :,12,10) = (/&
 & 4.5443e+01_jprb,4.4681e+01_jprb,4.3926e+01_jprb,4.3210e+01_jprb,4.2649e+01_jprb/)  
kao( :,13,10) = (/&
 & 4.1744e+01_jprb,4.1045e+01_jprb,4.0400e+01_jprb,3.9894e+01_jprb,3.9431e+01_jprb/)  
kao( :, 1,11) = (/&
 & 4.2365e+01_jprb,4.2019e+01_jprb,4.1430e+01_jprb,4.0878e+01_jprb,4.0399e+01_jprb/)  

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


SUBROUTINE part2

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


kao( :, 2,11) = (/&
 & 4.7142e+01_jprb,4.6442e+01_jprb,4.5764e+01_jprb,4.5114e+01_jprb,4.4407e+01_jprb/)  
kao( :, 3,11) = (/&
 & 5.1205e+01_jprb,5.0483e+01_jprb,4.9649e+01_jprb,4.8898e+01_jprb,4.8108e+01_jprb/)  
kao( :, 4,11) = (/&
 & 5.5163e+01_jprb,5.4376e+01_jprb,5.3481e+01_jprb,5.2648e+01_jprb,5.2016e+01_jprb/)  
kao( :, 5,11) = (/&
 & 5.9396e+01_jprb,5.8482e+01_jprb,5.7563e+01_jprb,5.6780e+01_jprb,5.6221e+01_jprb/)  
kao( :, 6,11) = (/&
 & 6.3331e+01_jprb,6.2412e+01_jprb,6.1450e+01_jprb,6.0859e+01_jprb,6.0233e+01_jprb/)  
kao( :, 7,11) = (/&
 & 6.6545e+01_jprb,6.5768e+01_jprb,6.5025e+01_jprb,6.4467e+01_jprb,6.3676e+01_jprb/)  
kao( :, 8,11) = (/&
 & 6.9498e+01_jprb,6.8933e+01_jprb,6.8310e+01_jprb,6.7609e+01_jprb,6.6704e+01_jprb/)  
kao( :, 9,11) = (/&
 & 7.1921e+01_jprb,7.1404e+01_jprb,7.0826e+01_jprb,7.0092e+01_jprb,6.9245e+01_jprb/)  
kao( :,10,11) = (/&
 & 7.3427e+01_jprb,7.3002e+01_jprb,7.2375e+01_jprb,7.1636e+01_jprb,7.0858e+01_jprb/)  
kao( :,11,11) = (/&
 & 7.3760e+01_jprb,7.3287e+01_jprb,7.2603e+01_jprb,7.1801e+01_jprb,7.0946e+01_jprb/)  
kao( :,12,11) = (/&
 & 7.2915e+01_jprb,7.2168e+01_jprb,7.1245e+01_jprb,7.0254e+01_jprb,6.9156e+01_jprb/)  
kao( :,13,11) = (/&
 & 7.0157e+01_jprb,6.9120e+01_jprb,6.8062e+01_jprb,6.6888e+01_jprb,6.5831e+01_jprb/)  
kao( :, 1,12) = (/&
 & 5.0027e+01_jprb,4.9611e+01_jprb,4.9300e+01_jprb,4.8951e+01_jprb,4.8362e+01_jprb/)  
kao( :, 2,12) = (/&
 & 5.7937e+01_jprb,5.7505e+01_jprb,5.7159e+01_jprb,5.6651e+01_jprb,5.5993e+01_jprb/)  
kao( :, 3,12) = (/&
 & 6.6111e+01_jprb,6.5700e+01_jprb,6.5251e+01_jprb,6.4576e+01_jprb,6.3894e+01_jprb/)  
kao( :, 4,12) = (/&
 & 7.3585e+01_jprb,7.2903e+01_jprb,7.2232e+01_jprb,7.1435e+01_jprb,7.0602e+01_jprb/)  
kao( :, 5,12) = (/&
 & 7.9953e+01_jprb,7.9031e+01_jprb,7.8235e+01_jprb,7.7242e+01_jprb,7.6289e+01_jprb/)  
kao( :, 6,12) = (/&
 & 8.6205e+01_jprb,8.5051e+01_jprb,8.4155e+01_jprb,8.3091e+01_jprb,8.2068e+01_jprb/)  
kao( :, 7,12) = (/&
 & 9.2997e+01_jprb,9.1567e+01_jprb,9.0372e+01_jprb,8.9220e+01_jprb,8.8255e+01_jprb/)  
kao( :, 8,12) = (/&
 & 9.9753e+01_jprb,9.8062e+01_jprb,9.6706e+01_jprb,9.5557e+01_jprb,9.4592e+01_jprb/)  
kao( :, 9,12) = (/&
 & 1.0585e+02_jprb,1.0395e+02_jprb,1.0257e+02_jprb,1.0128e+02_jprb,1.0041e+02_jprb/)  
kao( :,10,12) = (/&
 & 1.1079e+02_jprb,1.0894e+02_jprb,1.0770e+02_jprb,1.0659e+02_jprb,1.0559e+02_jprb/)  
kao( :,11,12) = (/&
 & 1.1382e+02_jprb,1.1273e+02_jprb,1.1179e+02_jprb,1.1077e+02_jprb,1.0960e+02_jprb/)  
kao( :,12,12) = (/&
 & 1.1615e+02_jprb,1.1562e+02_jprb,1.1476e+02_jprb,1.1362e+02_jprb,1.1239e+02_jprb/)  
kao( :,13,12) = (/&
 & 1.1766e+02_jprb,1.1707e+02_jprb,1.1606e+02_jprb,1.1493e+02_jprb,1.1363e+02_jprb/)  
kao( :, 1,13) = (/&
 & 5.9338e+01_jprb,5.8766e+01_jprb,5.8140e+01_jprb,5.7609e+01_jprb,5.7193e+01_jprb/)  
kao( :, 2,13) = (/&
 & 6.9799e+01_jprb,6.9254e+01_jprb,6.8563e+01_jprb,6.7850e+01_jprb,6.7241e+01_jprb/)  
kao( :, 3,13) = (/&
 & 8.2129e+01_jprb,8.1337e+01_jprb,8.0301e+01_jprb,7.9572e+01_jprb,7.8927e+01_jprb/)  
kao( :, 4,13) = (/&
 & 9.5236e+01_jprb,9.4396e+01_jprb,9.3373e+01_jprb,9.2365e+01_jprb,9.1463e+01_jprb/)  
kao( :, 5,13) = (/&
 & 1.0931e+02_jprb,1.0828e+02_jprb,1.0716e+02_jprb,1.0592e+02_jprb,1.0469e+02_jprb/)  
kao( :, 6,13) = (/&
 & 1.2326e+02_jprb,1.2219e+02_jprb,1.2081e+02_jprb,1.1929e+02_jprb,1.1786e+02_jprb/)  
kao( :, 7,13) = (/&
 & 1.3701e+02_jprb,1.3559e+02_jprb,1.3388e+02_jprb,1.3200e+02_jprb,1.3026e+02_jprb/)  
kao( :, 8,13) = (/&
 & 1.5000e+02_jprb,1.4809e+02_jprb,1.4591e+02_jprb,1.4371e+02_jprb,1.4177e+02_jprb/)  
kao( :, 9,13) = (/&
 & 1.6256e+02_jprb,1.6031e+02_jprb,1.5793e+02_jprb,1.5565e+02_jprb,1.5331e+02_jprb/)  
kao( :,10,13) = (/&
 & 1.7522e+02_jprb,1.7277e+02_jprb,1.7005e+02_jprb,1.6730e+02_jprb,1.6477e+02_jprb/)  
kao( :,11,13) = (/&
 & 1.8704e+02_jprb,1.8360e+02_jprb,1.8020e+02_jprb,1.7766e+02_jprb,1.7538e+02_jprb/)  
kao( :,12,13) = (/&
 & 1.9721e+02_jprb,1.9323e+02_jprb,1.9024e+02_jprb,1.8798e+02_jprb,1.8579e+02_jprb/)  
kao( :,13,13) = (/&
 & 2.0522e+02_jprb,2.0182e+02_jprb,1.9928e+02_jprb,1.9689e+02_jprb,1.9487e+02_jprb/)  
kao( :, 1,14) = (/&
 & 6.7502e+01_jprb,6.6524e+01_jprb,6.6072e+01_jprb,6.5802e+01_jprb,6.5743e+01_jprb/)  
kao( :, 2,14) = (/&
 & 8.2170e+01_jprb,8.1149e+01_jprb,8.0359e+01_jprb,7.9744e+01_jprb,7.9317e+01_jprb/)  
kao( :, 3,14) = (/&
 & 1.0017e+02_jprb,9.8960e+01_jprb,9.7919e+01_jprb,9.6962e+01_jprb,9.5952e+01_jprb/)  
kao( :, 4,14) = (/&
 & 1.2011e+02_jprb,1.1875e+02_jprb,1.1746e+02_jprb,1.1624e+02_jprb,1.1505e+02_jprb/)  
kao( :, 5,14) = (/&
 & 1.4236e+02_jprb,1.4034e+02_jprb,1.3884e+02_jprb,1.3761e+02_jprb,1.3626e+02_jprb/)  
kao( :, 6,14) = (/&
 & 1.6712e+02_jprb,1.6463e+02_jprb,1.6306e+02_jprb,1.6156e+02_jprb,1.5998e+02_jprb/)  
kao( :, 7,14) = (/&
 & 1.9406e+02_jprb,1.9176e+02_jprb,1.8985e+02_jprb,1.8810e+02_jprb,1.8617e+02_jprb/)  
kao( :, 8,14) = (/&
 & 2.2382e+02_jprb,2.2149e+02_jprb,2.1954e+02_jprb,2.1758e+02_jprb,2.1540e+02_jprb/)  
kao( :, 9,14) = (/&
 & 2.5634e+02_jprb,2.5414e+02_jprb,2.5166e+02_jprb,2.4940e+02_jprb,2.4661e+02_jprb/)  
kao( :,10,14) = (/&
 & 2.8999e+02_jprb,2.8771e+02_jprb,2.8448e+02_jprb,2.8216e+02_jprb,2.7875e+02_jprb/)  
kao( :,11,14) = (/&
 & 3.2226e+02_jprb,3.1916e+02_jprb,3.1653e+02_jprb,3.1272e+02_jprb,3.0896e+02_jprb/)  
kao( :,12,14) = (/&
 & 3.5464e+02_jprb,3.5123e+02_jprb,3.4726e+02_jprb,3.4270e+02_jprb,3.3845e+02_jprb/)  
kao( :,13,14) = (/&
 & 3.8725e+02_jprb,3.8309e+02_jprb,3.7834e+02_jprb,3.7304e+02_jprb,3.6820e+02_jprb/)  
kao( :, 1,15) = (/&
 & 7.8084e+01_jprb,7.7914e+01_jprb,7.8402e+01_jprb,7.8217e+01_jprb,7.8646e+01_jprb/)  
kao( :, 2,15) = (/&
 & 9.4779e+01_jprb,9.4641e+01_jprb,9.4900e+01_jprb,9.5560e+01_jprb,9.6118e+01_jprb/)  
kao( :, 3,15) = (/&
 & 1.1669e+02_jprb,1.1613e+02_jprb,1.1582e+02_jprb,1.1604e+02_jprb,1.1741e+02_jprb/)  
kao( :, 4,15) = (/&
 & 1.4166e+02_jprb,1.4067e+02_jprb,1.3938e+02_jprb,1.3929e+02_jprb,1.4030e+02_jprb/)  
kao( :, 5,15) = (/&
 & 1.7200e+02_jprb,1.6974e+02_jprb,1.6765e+02_jprb,1.6701e+02_jprb,1.6674e+02_jprb/)  
kao( :, 6,15) = (/&
 & 2.0913e+02_jprb,2.0570e+02_jprb,2.0221e+02_jprb,2.0039e+02_jprb,1.9903e+02_jprb/)  
kao( :, 7,15) = (/&
 & 2.5392e+02_jprb,2.4919e+02_jprb,2.4443e+02_jprb,2.4058e+02_jprb,2.3803e+02_jprb/)  
kao( :, 8,15) = (/&
 & 3.0711e+02_jprb,3.0120e+02_jprb,2.9497e+02_jprb,2.8940e+02_jprb,2.8562e+02_jprb/)  
kao( :, 9,15) = (/&
 & 3.7033e+02_jprb,3.6170e+02_jprb,3.5403e+02_jprb,3.4775e+02_jprb,3.4171e+02_jprb/)  
kao( :,10,15) = (/&
 & 4.4192e+02_jprb,4.3106e+02_jprb,4.2140e+02_jprb,4.1427e+02_jprb,4.0680e+02_jprb/)  
kao( :,11,15) = (/&
 & 5.1756e+02_jprb,5.0440e+02_jprb,4.9429e+02_jprb,4.8599e+02_jprb,4.7734e+02_jprb/)  
kao( :,12,15) = (/&
 & 6.0261e+02_jprb,5.8732e+02_jprb,5.7721e+02_jprb,5.6784e+02_jprb,5.5802e+02_jprb/)  
kao( :,13,15) = (/&
 & 6.9467e+02_jprb,6.8189e+02_jprb,6.7026e+02_jprb,6.5869e+02_jprb,6.4922e+02_jprb/)  
kao( :, 1,16) = (/&
 & 8.4011e+01_jprb,8.3820e+01_jprb,8.3802e+01_jprb,8.4342e+01_jprb,8.4737e+01_jprb/)  
kao( :, 2,16) = (/&
 & 1.0457e+02_jprb,1.0437e+02_jprb,1.0452e+02_jprb,1.0492e+02_jprb,1.0505e+02_jprb/)  
kao( :, 3,16) = (/&
 & 1.3081e+02_jprb,1.3074e+02_jprb,1.3067e+02_jprb,1.3085e+02_jprb,1.3130e+02_jprb/)  
kao( :, 4,16) = (/&
 & 1.6036e+02_jprb,1.6101e+02_jprb,1.6092e+02_jprb,1.6141e+02_jprb,1.6148e+02_jprb/)  
kao( :, 5,16) = (/&
 & 1.9521e+02_jprb,1.9614e+02_jprb,1.9659e+02_jprb,1.9718e+02_jprb,1.9784e+02_jprb/)  
kao( :, 6,16) = (/&
 & 2.3599e+02_jprb,2.3769e+02_jprb,2.3905e+02_jprb,2.3984e+02_jprb,2.4105e+02_jprb/)  
kao( :, 7,16) = (/&
 & 2.8624e+02_jprb,2.8792e+02_jprb,2.8925e+02_jprb,2.9040e+02_jprb,2.9197e+02_jprb/)  
kao( :, 8,16) = (/&
 & 3.4928e+02_jprb,3.4848e+02_jprb,3.4810e+02_jprb,3.5059e+02_jprb,3.5311e+02_jprb/)  
kao( :, 9,16) = (/&
 & 4.2722e+02_jprb,4.2296e+02_jprb,4.2078e+02_jprb,4.2340e+02_jprb,4.2506e+02_jprb/)  
kao( :,10,16) = (/&
 & 5.2290e+02_jprb,5.1431e+02_jprb,5.1021e+02_jprb,5.0875e+02_jprb,5.0973e+02_jprb/)  
kao( :,11,16) = (/&
 & 6.3361e+02_jprb,6.2265e+02_jprb,6.1495e+02_jprb,6.1325e+02_jprb,6.1231e+02_jprb/)  
kao( :,12,16) = (/&
 & 7.6899e+02_jprb,7.5167e+02_jprb,7.4101e+02_jprb,7.3718e+02_jprb,7.3364e+02_jprb/)  
kao( :,13,16) = (/&
 & 9.2904e+02_jprb,9.0879e+02_jprb,8.9032e+02_jprb,8.8110e+02_jprb,8.7634e+02_jprb/)  

!     The array KB 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.6448e-02_jprb,1.6981e-02_jprb,1.7447e-02_jprb,1.7868e-02_jprb,1.8252e-02_jprb/)  
kbo( :,14, 1) = (/&
 & 1.3791e-02_jprb,1.4222e-02_jprb,1.4610e-02_jprb,1.4952e-02_jprb,1.5267e-02_jprb/)  
kbo( :,15, 1) = (/&
 & 1.1520e-02_jprb,1.1865e-02_jprb,1.2171e-02_jprb,1.2437e-02_jprb,1.2693e-02_jprb/)  
kbo( :,16, 1) = (/&
 & 9.5363e-03_jprb,9.8097e-03_jprb,1.0040e-02_jprb,1.0251e-02_jprb,1.0450e-02_jprb/)  
kbo( :,17, 1) = (/&
 & 7.8780e-03_jprb,8.0826e-03_jprb,8.2596e-03_jprb,8.4216e-03_jprb,8.5653e-03_jprb/)  
kbo( :,18, 1) = (/&
 & 6.4817e-03_jprb,6.6351e-03_jprb,6.7691e-03_jprb,6.8780e-03_jprb,6.9825e-03_jprb/)  
kbo( :,19, 1) = (/&
 & 5.3453e-03_jprb,5.4640e-03_jprb,5.5554e-03_jprb,5.6332e-03_jprb,5.7111e-03_jprb/)  
kbo( :,20, 1) = (/&
 & 4.4040e-03_jprb,4.4936e-03_jprb,4.5584e-03_jprb,4.6182e-03_jprb,4.6772e-03_jprb/)  
kbo( :,21, 1) = (/&
 & 3.6258e-03_jprb,3.6901e-03_jprb,3.7391e-03_jprb,3.7854e-03_jprb,3.8304e-03_jprb/)  
kbo( :,22, 1) = (/&
 & 2.9839e-03_jprb,3.0283e-03_jprb,3.0657e-03_jprb,3.1009e-03_jprb,3.1358e-03_jprb/)  
kbo( :,23, 1) = (/&
 & 2.4521e-03_jprb,2.4841e-03_jprb,2.5126e-03_jprb,2.5397e-03_jprb,2.5675e-03_jprb/)  
kbo( :,24, 1) = (/&
 & 2.0171e-03_jprb,2.0411e-03_jprb,2.0630e-03_jprb,2.0844e-03_jprb,2.1071e-03_jprb/)  
kbo( :,25, 1) = (/&
 & 1.6582e-03_jprb,1.6765e-03_jprb,1.6934e-03_jprb,1.7108e-03_jprb,1.7288e-03_jprb/)  
kbo( :,26, 1) = (/&
 & 1.3630e-03_jprb,1.3770e-03_jprb,1.3905e-03_jprb,1.4049e-03_jprb,1.4189e-03_jprb/)  
kbo( :,27, 1) = (/&
 & 1.1189e-03_jprb,1.1298e-03_jprb,1.1410e-03_jprb,1.1528e-03_jprb,1.1640e-03_jprb/)  
kbo( :,28, 1) = (/&
 & 9.1766e-04_jprb,9.2656e-04_jprb,9.3588e-04_jprb,9.4542e-04_jprb,9.5464e-04_jprb/)  
kbo( :,29, 1) = (/&
 & 7.5009e-04_jprb,7.5750e-04_jprb,7.6532e-04_jprb,7.7307e-04_jprb,7.8058e-04_jprb/)  
kbo( :,30, 1) = (/&
 & 6.1229e-04_jprb,6.1848e-04_jprb,6.2499e-04_jprb,6.3126e-04_jprb,6.3737e-04_jprb/)  
kbo( :,31, 1) = (/&
 & 4.9822e-04_jprb,5.0337e-04_jprb,5.0876e-04_jprb,5.1376e-04_jprb,5.1867e-04_jprb/)  
kbo( :,32, 1) = (/&
 & 4.0576e-04_jprb,4.1007e-04_jprb,4.1447e-04_jprb,4.1853e-04_jprb,4.2247e-04_jprb/)  
kbo( :,33, 1) = (/&
 & 3.3066e-04_jprb,3.3431e-04_jprb,3.3786e-04_jprb,3.4118e-04_jprb,3.4427e-04_jprb/)  
kbo( :,34, 1) = (/&
 & 2.7031e-04_jprb,2.7336e-04_jprb,2.7627e-04_jprb,2.7896e-04_jprb,2.8137e-04_jprb/)  
kbo( :,35, 1) = (/&
 & 2.2093e-04_jprb,2.2344e-04_jprb,2.2584e-04_jprb,2.2800e-04_jprb,2.2992e-04_jprb/)  
kbo( :,36, 1) = (/&
 & 1.8050e-04_jprb,1.8257e-04_jprb,1.8457e-04_jprb,1.8634e-04_jprb,1.8790e-04_jprb/)  
kbo( :,37, 1) = (/&
 & 1.4754e-04_jprb,1.4928e-04_jprb,1.5098e-04_jprb,1.5247e-04_jprb,1.5379e-04_jprb/)  
kbo( :,38, 1) = (/&
 & 1.2055e-04_jprb,1.2202e-04_jprb,1.2346e-04_jprb,1.2473e-04_jprb,1.2584e-04_jprb/)  
kbo( :,39, 1) = (/&
 & 9.8439e-05_jprb,9.9693e-05_jprb,1.0089e-04_jprb,1.0198e-04_jprb,1.0292e-04_jprb/)  
kbo( :,40, 1) = (/&
 & 8.0526e-05_jprb,8.1618e-05_jprb,8.2621e-05_jprb,8.3584e-05_jprb,8.4404e-05_jprb/)  
kbo( :,41, 1) = (/&
 & 6.5872e-05_jprb,6.6811e-05_jprb,6.7670e-05_jprb,6.8504e-05_jprb,6.9227e-05_jprb/)  
kbo( :,42, 1) = (/&
 & 5.3861e-05_jprb,5.4663e-05_jprb,5.5407e-05_jprb,5.6110e-05_jprb,5.6761e-05_jprb/)  
kbo( :,43, 1) = (/&
 & 4.4048e-05_jprb,4.4743e-05_jprb,4.5396e-05_jprb,4.6004e-05_jprb,4.6586e-05_jprb/)  
kbo( :,44, 1) = (/&
 & 3.6000e-05_jprb,3.6620e-05_jprb,3.7187e-05_jprb,3.7726e-05_jprb,3.8228e-05_jprb/)  
kbo( :,45, 1) = (/&
 & 2.9370e-05_jprb,2.9944e-05_jprb,3.0441e-05_jprb,3.0913e-05_jprb,3.1356e-05_jprb/)  
kbo( :,46, 1) = (/&
 & 2.3891e-05_jprb,2.4458e-05_jprb,2.4903e-05_jprb,2.5314e-05_jprb,2.5708e-05_jprb/)  
kbo( :,47, 1) = (/&
 & 1.9404e-05_jprb,1.9925e-05_jprb,2.0357e-05_jprb,2.0722e-05_jprb,2.1066e-05_jprb/)  
kbo( :,48, 1) = (/&
 & 1.5725e-05_jprb,1.6197e-05_jprb,1.6603e-05_jprb,1.6945e-05_jprb,1.7248e-05_jprb/)  
kbo( :,49, 1) = (/&
 & 1.2722e-05_jprb,1.3139e-05_jprb,1.3505e-05_jprb,1.3828e-05_jprb,1.4106e-05_jprb/)  
kbo( :,50, 1) = (/&
 & 1.0301e-05_jprb,1.0665e-05_jprb,1.0996e-05_jprb,1.1280e-05_jprb,1.1543e-05_jprb/)  
kbo( :,51, 1) = (/&
 & 8.3385e-06_jprb,8.6603e-06_jprb,8.9500e-06_jprb,9.2043e-06_jprb,9.4349e-06_jprb/)  
kbo( :,52, 1) = (/&
 & 6.7457e-06_jprb,7.0201e-06_jprb,7.2750e-06_jprb,7.5028e-06_jprb,7.7047e-06_jprb/)  
kbo( :,53, 1) = (/&
 & 5.4538e-06_jprb,5.6816e-06_jprb,5.9061e-06_jprb,6.1054e-06_jprb,6.2862e-06_jprb/)  
kbo( :,54, 1) = (/&
 & 4.4285e-06_jprb,4.6181e-06_jprb,4.8085e-06_jprb,4.9862e-06_jprb,5.1448e-06_jprb/)  
kbo( :,55, 1) = (/&
 & 3.6038e-06_jprb,3.7624e-06_jprb,3.9229e-06_jprb,4.0804e-06_jprb,4.2193e-06_jprb/)  
kbo( :,56, 1) = (/&
 & 2.9326e-06_jprb,3.0656e-06_jprb,3.2010e-06_jprb,3.3368e-06_jprb,3.4604e-06_jprb/)  
kbo( :,57, 1) = (/&
 & 2.3859e-06_jprb,2.4983e-06_jprb,2.6127e-06_jprb,2.7280e-06_jprb,2.8384e-06_jprb/)  
kbo( :,58, 1) = (/&
 & 1.9434e-06_jprb,2.0390e-06_jprb,2.1360e-06_jprb,2.2340e-06_jprb,2.3298e-06_jprb/)  
kbo( :,59, 1) = (/&
 & 1.6040e-06_jprb,1.6859e-06_jprb,1.7694e-06_jprb,1.8537e-06_jprb,1.9359e-06_jprb/)  
kbo( :,13, 2) = (/&
 & 6.5857e-02_jprb,6.3975e-02_jprb,6.2348e-02_jprb,6.0811e-02_jprb,5.9318e-02_jprb/)  
kbo( :,14, 2) = (/&
 & 5.5335e-02_jprb,5.3693e-02_jprb,5.2240e-02_jprb,5.0877e-02_jprb,4.9563e-02_jprb/)  
kbo( :,15, 2) = (/&
 & 4.5552e-02_jprb,4.4145e-02_jprb,4.2866e-02_jprb,4.1679e-02_jprb,4.0479e-02_jprb/)  
kbo( :,16, 2) = (/&
 & 3.6852e-02_jprb,3.5658e-02_jprb,3.4584e-02_jprb,3.3581e-02_jprb,3.2436e-02_jprb/)  
kbo( :,17, 2) = (/&
 & 2.9622e-02_jprb,2.8635e-02_jprb,2.7748e-02_jprb,2.6847e-02_jprb,2.5789e-02_jprb/)  
kbo( :,18, 2) = (/&
 & 2.3577e-02_jprb,2.2776e-02_jprb,2.2036e-02_jprb,2.1181e-02_jprb,2.0244e-02_jprb/)  
kbo( :,19, 2) = (/&
 & 1.8914e-02_jprb,1.8260e-02_jprb,1.7601e-02_jprb,1.6830e-02_jprb,1.6029e-02_jprb/)  
kbo( :,20, 2) = (/&
 & 1.5260e-02_jprb,1.4727e-02_jprb,1.4133e-02_jprb,1.3470e-02_jprb,1.2804e-02_jprb/)  
kbo( :,21, 2) = (/&
 & 1.2334e-02_jprb,1.1886e-02_jprb,1.1364e-02_jprb,1.0806e-02_jprb,1.0260e-02_jprb/)  
kbo( :,22, 2) = (/&
 & 9.9375e-03_jprb,9.5457e-03_jprb,9.0943e-03_jprb,8.6315e-03_jprb,8.1875e-03_jprb/)  
kbo( :,23, 2) = (/&
 & 8.0034e-03_jprb,7.6569e-03_jprb,7.2757e-03_jprb,6.8952e-03_jprb,6.5351e-03_jprb/)  
kbo( :,24, 2) = (/&
 & 6.4644e-03_jprb,6.1649e-03_jprb,5.8474e-03_jprb,5.5363e-03_jprb,5.2447e-03_jprb/)  
kbo( :,25, 2) = (/&
 & 5.2170e-03_jprb,4.9615e-03_jprb,4.6990e-03_jprb,4.4463e-03_jprb,4.2118e-03_jprb/)  
kbo( :,26, 2) = (/&
 & 4.2078e-03_jprb,3.9936e-03_jprb,3.7782e-03_jprb,3.5736e-03_jprb,3.3867e-03_jprb/)  

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


SUBROUTINE part3

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


kbo( :,27, 2) = (/&
 & 3.3923e-03_jprb,3.2149e-03_jprb,3.0399e-03_jprb,2.8755e-03_jprb,2.7265e-03_jprb/)  
kbo( :,28, 2) = (/&
 & 2.7345e-03_jprb,2.5888e-03_jprb,2.4474e-03_jprb,2.3159e-03_jprb,2.1973e-03_jprb/)  
kbo( :,29, 2) = (/&
 & 2.1927e-03_jprb,2.0742e-03_jprb,1.9609e-03_jprb,1.8566e-03_jprb,1.7629e-03_jprb/)  
kbo( :,30, 2) = (/&
 & 1.7534e-03_jprb,1.6577e-03_jprb,1.5672e-03_jprb,1.4849e-03_jprb,1.4111e-03_jprb/)  
kbo( :,31, 2) = (/&
 & 1.3923e-03_jprb,1.3158e-03_jprb,1.2442e-03_jprb,1.1799e-03_jprb,1.1222e-03_jprb/)  
kbo( :,32, 2) = (/&
 & 1.1073e-03_jprb,1.0463e-03_jprb,9.9006e-04_jprb,9.3956e-04_jprb,8.9454e-04_jprb/)  
kbo( :,33, 2) = (/&
 & 8.8168e-04_jprb,8.3321e-04_jprb,7.8903e-04_jprb,7.4943e-04_jprb,7.1437e-04_jprb/)  
kbo( :,34, 2) = (/&
 & 7.0843e-04_jprb,6.6985e-04_jprb,6.3483e-04_jprb,6.0356e-04_jprb,5.7597e-04_jprb/)  
kbo( :,35, 2) = (/&
 & 5.7335e-04_jprb,5.4243e-04_jprb,5.1437e-04_jprb,4.8935e-04_jprb,4.6731e-04_jprb/)  
kbo( :,36, 2) = (/&
 & 4.6786e-04_jprb,4.4279e-04_jprb,4.2001e-04_jprb,3.9969e-04_jprb,3.8175e-04_jprb/)  
kbo( :,37, 2) = (/&
 & 3.8722e-04_jprb,3.6652e-04_jprb,3.4765e-04_jprb,3.3074e-04_jprb,3.1577e-04_jprb/)  
kbo( :,38, 2) = (/&
 & 3.2064e-04_jprb,3.0358e-04_jprb,2.8795e-04_jprb,2.7387e-04_jprb,2.6137e-04_jprb/)  
kbo( :,39, 2) = (/&
 & 2.6542e-04_jprb,2.5139e-04_jprb,2.3846e-04_jprb,2.2675e-04_jprb,2.1632e-04_jprb/)  
kbo( :,40, 2) = (/&
 & 2.2243e-04_jprb,2.1077e-04_jprb,1.9994e-04_jprb,1.9003e-04_jprb,1.8117e-04_jprb/)  
kbo( :,41, 2) = (/&
 & 1.8662e-04_jprb,1.7701e-04_jprb,1.6793e-04_jprb,1.5956e-04_jprb,1.5202e-04_jprb/)  
kbo( :,42, 2) = (/&
 & 1.5648e-04_jprb,1.4863e-04_jprb,1.4106e-04_jprb,1.3402e-04_jprb,1.2761e-04_jprb/)  
kbo( :,43, 2) = (/&
 & 1.3212e-04_jprb,1.2582e-04_jprb,1.1952e-04_jprb,1.1357e-04_jprb,1.0810e-04_jprb/)  
kbo( :,44, 2) = (/&
 & 1.1174e-04_jprb,1.0680e-04_jprb,1.0165e-04_jprb,9.6663e-05_jprb,9.2016e-05_jprb/)  
kbo( :,45, 2) = (/&
 & 9.4238e-05_jprb,9.0536e-05_jprb,8.6432e-05_jprb,8.2292e-05_jprb,7.8367e-05_jprb/)  
kbo( :,46, 2) = (/&
 & 7.9325e-05_jprb,7.6718e-05_jprb,7.3544e-05_jprb,7.0182e-05_jprb,6.6892e-05_jprb/)  
kbo( :,47, 2) = (/&
 & 6.6879e-05_jprb,6.4961e-05_jprb,6.2686e-05_jprb,6.0033e-05_jprb,5.7320e-05_jprb/)  
kbo( :,48, 2) = (/&
 & 5.6419e-05_jprb,5.4793e-05_jprb,5.3249e-05_jprb,5.1268e-05_jprb,4.9104e-05_jprb/)  
kbo( :,49, 2) = (/&
 & 4.7582e-05_jprb,4.6223e-05_jprb,4.5008e-05_jprb,4.3677e-05_jprb,4.2007e-05_jprb/)  
kbo( :,50, 2) = (/&
 & 4.0134e-05_jprb,3.9021e-05_jprb,3.7999e-05_jprb,3.7054e-05_jprb,3.5858e-05_jprb/)  
kbo( :,51, 2) = (/&
 & 3.3881e-05_jprb,3.2950e-05_jprb,3.2114e-05_jprb,3.1337e-05_jprb,3.0540e-05_jprb/)  
kbo( :,52, 2) = (/&
 & 2.8622e-05_jprb,2.7826e-05_jprb,2.7144e-05_jprb,2.6512e-05_jprb,2.5904e-05_jprb/)  
kbo( :,53, 2) = (/&
 & 2.4202e-05_jprb,2.3517e-05_jprb,2.2936e-05_jprb,2.2437e-05_jprb,2.1946e-05_jprb/)  
kbo( :,54, 2) = (/&
 & 2.0552e-05_jprb,1.9947e-05_jprb,1.9446e-05_jprb,1.9029e-05_jprb,1.8643e-05_jprb/)  
kbo( :,55, 2) = (/&
 & 1.7521e-05_jprb,1.6983e-05_jprb,1.6547e-05_jprb,1.6182e-05_jprb,1.5869e-05_jprb/)  
kbo( :,56, 2) = (/&
 & 1.4964e-05_jprb,1.4501e-05_jprb,1.4113e-05_jprb,1.3797e-05_jprb,1.3531e-05_jprb/)  
kbo( :,57, 2) = (/&
 & 1.2786e-05_jprb,1.2428e-05_jprb,1.2073e-05_jprb,1.1795e-05_jprb,1.1567e-05_jprb/)  
kbo( :,58, 2) = (/&
 & 1.0926e-05_jprb,1.0676e-05_jprb,1.0370e-05_jprb,1.0111e-05_jprb,9.9144e-06_jprb/)  
kbo( :,59, 2) = (/&
 & 9.3343e-06_jprb,9.1398e-06_jprb,8.8844e-06_jprb,8.6525e-06_jprb,8.4760e-06_jprb/)  
kbo( :,13, 3) = (/&
 & 1.1578e-01_jprb,1.0716e-01_jprb,9.8800e-02_jprb,9.1233e-02_jprb,8.4552e-02_jprb/)  
kbo( :,14, 3) = (/&
 & 9.6358e-02_jprb,8.8872e-02_jprb,8.1796e-02_jprb,7.5462e-02_jprb,6.9923e-02_jprb/)  
kbo( :,15, 3) = (/&
 & 7.7679e-02_jprb,7.1362e-02_jprb,6.5590e-02_jprb,6.0478e-02_jprb,5.6079e-02_jprb/)  
kbo( :,16, 3) = (/&
 & 6.1300e-02_jprb,5.6180e-02_jprb,5.1590e-02_jprb,4.7554e-02_jprb,4.4239e-02_jprb/)  
kbo( :,17, 3) = (/&
 & 4.8045e-02_jprb,4.3962e-02_jprb,4.0343e-02_jprb,3.7246e-02_jprb,3.4805e-02_jprb/)  
kbo( :,18, 3) = (/&
 & 3.7178e-02_jprb,3.3974e-02_jprb,3.1173e-02_jprb,2.8927e-02_jprb,2.7155e-02_jprb/)  
kbo( :,19, 3) = (/&
 & 2.9119e-02_jprb,2.6589e-02_jprb,2.4456e-02_jprb,2.2801e-02_jprb,2.1476e-02_jprb/)  
kbo( :,20, 3) = (/&
 & 2.3060e-02_jprb,2.1055e-02_jprb,1.9446e-02_jprb,1.8194e-02_jprb,1.7172e-02_jprb/)  
kbo( :,21, 3) = (/&
 & 1.8331e-02_jprb,1.6763e-02_jprb,1.5542e-02_jprb,1.4585e-02_jprb,1.3783e-02_jprb/)  
kbo( :,22, 3) = (/&
 & 1.4479e-02_jprb,1.3291e-02_jprb,1.2379e-02_jprb,1.1652e-02_jprb,1.1027e-02_jprb/)  
kbo( :,23, 3) = (/&
 & 1.1453e-02_jprb,1.0564e-02_jprb,9.8785e-03_jprb,9.3186e-03_jprb,8.8332e-03_jprb/)  
kbo( :,24, 3) = (/&
 & 9.1256e-03_jprb,8.4545e-03_jprb,7.9319e-03_jprb,7.4939e-03_jprb,7.1141e-03_jprb/)  
kbo( :,25, 3) = (/&
 & 7.2833e-03_jprb,6.7767e-03_jprb,6.3758e-03_jprb,6.0322e-03_jprb,5.7344e-03_jprb/)  
kbo( :,26, 3) = (/&
 & 5.8255e-03_jprb,5.4418e-03_jprb,5.1312e-03_jprb,4.8611e-03_jprb,4.6284e-03_jprb/)  
kbo( :,27, 3) = (/&
 & 4.6693e-03_jprb,4.3763e-03_jprb,4.1328e-03_jprb,3.9209e-03_jprb,3.7392e-03_jprb/)  
kbo( :,28, 3) = (/&
 & 3.7489e-03_jprb,3.5232e-03_jprb,3.3314e-03_jprb,3.1652e-03_jprb,3.0230e-03_jprb/)  
kbo( :,29, 3) = (/&
 & 2.9982e-03_jprb,2.8244e-03_jprb,2.6743e-03_jprb,2.5451e-03_jprb,2.4345e-03_jprb/)  
kbo( :,30, 3) = (/&
 & 2.3941e-03_jprb,2.2596e-03_jprb,2.1432e-03_jprb,2.0432e-03_jprb,1.9574e-03_jprb/)  
kbo( :,31, 3) = (/&
 & 1.9015e-03_jprb,1.7982e-03_jprb,1.7086e-03_jprb,1.6320e-03_jprb,1.5660e-03_jprb/)  
kbo( :,32, 3) = (/&
 & 1.5140e-03_jprb,1.4341e-03_jprb,1.3651e-03_jprb,1.3063e-03_jprb,1.2555e-03_jprb/)  
kbo( :,33, 3) = (/&
 & 1.2075e-03_jprb,1.1458e-03_jprb,1.0928e-03_jprb,1.0474e-03_jprb,1.0084e-03_jprb/)  
kbo( :,34, 3) = (/&
 & 9.7167e-04_jprb,9.2329e-04_jprb,8.8190e-04_jprb,8.4640e-04_jprb,8.1606e-04_jprb/)  
kbo( :,35, 3) = (/&
 & 7.8747e-04_jprb,7.4887e-04_jprb,7.1595e-04_jprb,6.8779e-04_jprb,6.6369e-04_jprb/)  
kbo( :,36, 3) = (/&
 & 6.4309e-04_jprb,6.1175e-04_jprb,5.8503e-04_jprb,5.6224e-04_jprb,5.4265e-04_jprb/)  
kbo( :,37, 3) = (/&
 & 5.3206e-04_jprb,5.0587e-04_jprb,4.8341e-04_jprb,4.6439e-04_jprb,4.4794e-04_jprb/)  
kbo( :,38, 3) = (/&
 & 4.4053e-04_jprb,4.1858e-04_jprb,3.9969e-04_jprb,3.8376e-04_jprb,3.6993e-04_jprb/)  
kbo( :,39, 3) = (/&
 & 3.6472e-04_jprb,3.4631e-04_jprb,3.3044e-04_jprb,3.1709e-04_jprb,3.0547e-04_jprb/)  
kbo( :,40, 3) = (/&
 & 3.0560e-04_jprb,2.8982e-04_jprb,2.7615e-04_jprb,2.6461e-04_jprb,2.5462e-04_jprb/)  
kbo( :,41, 3) = (/&
 & 2.5670e-04_jprb,2.4305e-04_jprb,2.3127e-04_jprb,2.2125e-04_jprb,2.1263e-04_jprb/)  
kbo( :,42, 3) = (/&
 & 2.1586e-04_jprb,2.0401e-04_jprb,1.9383e-04_jprb,1.8512e-04_jprb,1.7766e-04_jprb/)  
kbo( :,43, 3) = (/&
 & 1.8349e-04_jprb,1.7278e-04_jprb,1.6384e-04_jprb,1.5615e-04_jprb,1.4957e-04_jprb/)  
kbo( :,44, 3) = (/&
 & 1.5716e-04_jprb,1.4719e-04_jprb,1.3923e-04_jprb,1.3237e-04_jprb,1.2650e-04_jprb/)  
kbo( :,45, 3) = (/&
 & 1.3523e-04_jprb,1.2581e-04_jprb,1.1854e-04_jprb,1.1244e-04_jprb,1.0719e-04_jprb/)  
kbo( :,46, 3) = (/&
 & 1.1723e-04_jprb,1.0821e-04_jprb,1.0137e-04_jprb,9.5892e-05_jprb,9.1160e-05_jprb/)  
kbo( :,47, 3) = (/&
 & 1.0246e-04_jprb,9.4070e-05_jprb,8.7415e-05_jprb,8.2283e-05_jprb,7.8012e-05_jprb/)  
kbo( :,48, 3) = (/&
 & 8.9698e-05_jprb,8.2247e-05_jprb,7.5847e-05_jprb,7.0891e-05_jprb,6.6960e-05_jprb/)  
kbo( :,49, 3) = (/&
 & 7.8632e-05_jprb,7.2058e-05_jprb,6.6260e-05_jprb,6.1415e-05_jprb,5.7680e-05_jprb/)  
kbo( :,50, 3) = (/&
 & 6.8816e-05_jprb,6.3112e-05_jprb,5.7964e-05_jprb,5.3476e-05_jprb,4.9851e-05_jprb/)  
kbo( :,51, 3) = (/&
 & 6.0093e-05_jprb,5.5311e-05_jprb,5.0781e-05_jprb,4.6782e-05_jprb,4.3320e-05_jprb/)  
kbo( :,52, 3) = (/&
 & 5.2290e-05_jprb,4.8493e-05_jprb,4.4587e-05_jprb,4.1036e-05_jprb,3.7908e-05_jprb/)  
kbo( :,53, 3) = (/&
 & 4.5363e-05_jprb,4.2435e-05_jprb,3.9221e-05_jprb,3.6100e-05_jprb,3.3314e-05_jprb/)  
kbo( :,54, 3) = (/&
 & 3.9232e-05_jprb,3.6987e-05_jprb,3.4457e-05_jprb,3.1794e-05_jprb,2.9324e-05_jprb/)  
kbo( :,55, 3) = (/&
 & 3.3909e-05_jprb,3.2196e-05_jprb,3.0223e-05_jprb,2.8046e-05_jprb,2.5889e-05_jprb/)  
kbo( :,56, 3) = (/&
 & 2.9375e-05_jprb,2.7990e-05_jprb,2.6480e-05_jprb,2.4756e-05_jprb,2.2937e-05_jprb/)  
kbo( :,57, 3) = (/&
 & 2.5600e-05_jprb,2.4324e-05_jprb,2.3181e-05_jprb,2.1853e-05_jprb,2.0369e-05_jprb/)  
kbo( :,58, 3) = (/&
 & 2.2451e-05_jprb,2.1215e-05_jprb,2.0255e-05_jprb,1.9251e-05_jprb,1.8079e-05_jprb/)  
kbo( :,59, 3) = (/&
 & 1.9440e-05_jprb,1.8313e-05_jprb,1.7459e-05_jprb,1.6654e-05_jprb,1.5711e-05_jprb/)  
kbo( :,13, 4) = (/&
 & 1.4696e-01_jprb,1.3536e-01_jprb,1.2591e-01_jprb,1.1779e-01_jprb,1.1082e-01_jprb/)  
kbo( :,14, 4) = (/&
 & 1.2236e-01_jprb,1.1293e-01_jprb,1.0507e-01_jprb,9.8308e-02_jprb,9.2452e-02_jprb/)  
kbo( :,15, 4) = (/&
 & 9.8855e-02_jprb,9.1490e-02_jprb,8.5185e-02_jprb,7.9782e-02_jprb,7.5090e-02_jprb/)  
kbo( :,16, 4) = (/&
 & 7.8479e-02_jprb,7.2784e-02_jprb,6.7904e-02_jprb,6.3672e-02_jprb,6.0007e-02_jprb/)  
kbo( :,17, 4) = (/&
 & 6.2026e-02_jprb,5.7636e-02_jprb,5.3869e-02_jprb,5.0578e-02_jprb,4.7744e-02_jprb/)  
kbo( :,18, 4) = (/&
 & 4.8533e-02_jprb,4.5221e-02_jprb,4.2336e-02_jprb,3.9824e-02_jprb,3.7663e-02_jprb/)  
kbo( :,19, 4) = (/&
 & 3.8437e-02_jprb,3.5877e-02_jprb,3.3631e-02_jprb,3.1685e-02_jprb,3.0017e-02_jprb/)  
kbo( :,20, 4) = (/&
 & 3.0742e-02_jprb,2.8726e-02_jprb,2.6959e-02_jprb,2.5432e-02_jprb,2.4138e-02_jprb/)  
kbo( :,21, 4) = (/&
 & 2.4672e-02_jprb,2.3073e-02_jprb,2.1679e-02_jprb,2.0477e-02_jprb,1.9477e-02_jprb/)  
kbo( :,22, 4) = (/&
 & 1.9706e-02_jprb,1.8455e-02_jprb,1.7366e-02_jprb,1.6436e-02_jprb,1.5677e-02_jprb/)  
kbo( :,23, 4) = (/&
 & 1.5753e-02_jprb,1.4774e-02_jprb,1.3923e-02_jprb,1.3212e-02_jprb,1.2632e-02_jprb/)  
kbo( :,24, 4) = (/&
 & 1.2655e-02_jprb,1.1885e-02_jprb,1.1219e-02_jprb,1.0672e-02_jprb,1.0225e-02_jprb/)  
kbo( :,25, 4) = (/&
 & 1.0171e-02_jprb,9.5654e-03_jprb,9.0480e-03_jprb,8.6282e-03_jprb,8.2836e-03_jprb/)  
kbo( :,26, 4) = (/&
 & 8.1813e-03_jprb,7.7056e-03_jprb,7.3062e-03_jprb,6.9847e-03_jprb,6.7168e-03_jprb/)  
kbo( :,27, 4) = (/&
 & 6.5848e-03_jprb,6.2128e-03_jprb,5.9057e-03_jprb,5.6577e-03_jprb,5.4495e-03_jprb/)  
kbo( :,28, 4) = (/&
 & 5.3033e-03_jprb,5.0131e-03_jprb,4.7776e-03_jprb,4.5851e-03_jprb,4.4243e-03_jprb/)  
kbo( :,29, 4) = (/&
 & 4.2539e-03_jprb,4.0307e-03_jprb,3.8512e-03_jprb,3.7034e-03_jprb,3.5804e-03_jprb/)  
kbo( :,30, 4) = (/&
 & 3.4070e-03_jprb,3.2374e-03_jprb,3.1007e-03_jprb,2.9878e-03_jprb,2.8943e-03_jprb/)  
kbo( :,31, 4) = (/&
 & 2.7164e-03_jprb,2.5892e-03_jprb,2.4867e-03_jprb,2.4014e-03_jprb,2.3318e-03_jprb/)  
kbo( :,32, 4) = (/&
 & 2.1714e-03_jprb,2.0763e-03_jprb,1.9989e-03_jprb,1.9347e-03_jprb,1.8824e-03_jprb/)  
kbo( :,33, 4) = (/&
 & 1.7396e-03_jprb,1.6683e-03_jprb,1.6097e-03_jprb,1.5614e-03_jprb,1.5217e-03_jprb/)  
kbo( :,34, 4) = (/&
 & 1.4048e-03_jprb,1.3500e-03_jprb,1.3048e-03_jprb,1.2676e-03_jprb,1.2371e-03_jprb/)  
kbo( :,35, 4) = (/&
 & 1.1411e-03_jprb,1.0980e-03_jprb,1.0625e-03_jprb,1.0331e-03_jprb,1.0094e-03_jprb/)  
kbo( :,36, 4) = (/&
 & 9.3251e-04_jprb,8.9778e-04_jprb,8.6918e-04_jprb,8.4547e-04_jprb,8.2657e-04_jprb/)  
kbo( :,37, 4) = (/&
 & 7.7030e-04_jprb,7.4111e-04_jprb,7.1717e-04_jprb,6.9726e-04_jprb,6.8147e-04_jprb/)  
kbo( :,38, 4) = (/&
 & 6.3669e-04_jprb,6.1205e-04_jprb,5.9195e-04_jprb,5.7523e-04_jprb,5.6199e-04_jprb/)  
kbo( :,39, 4) = (/&
 & 5.2623e-04_jprb,5.0538e-04_jprb,4.8849e-04_jprb,4.7446e-04_jprb,4.6332e-04_jprb/)  
kbo( :,40, 4) = (/&
 & 4.3959e-04_jprb,4.2119e-04_jprb,4.0652e-04_jprb,3.9437e-04_jprb,3.8468e-04_jprb/)  
kbo( :,41, 4) = (/&
 & 3.6806e-04_jprb,3.5172e-04_jprb,3.3885e-04_jprb,3.2829e-04_jprb,3.1983e-04_jprb/)  
kbo( :,42, 4) = (/&
 & 3.0846e-04_jprb,2.9396e-04_jprb,2.8262e-04_jprb,2.7343e-04_jprb,2.6601e-04_jprb/)  
kbo( :,43, 4) = (/&
 & 2.6070e-04_jprb,2.4764e-04_jprb,2.3730e-04_jprb,2.2909e-04_jprb,2.2243e-04_jprb/)  
kbo( :,44, 4) = (/&
 & 2.2145e-04_jprb,2.0973e-04_jprb,2.0015e-04_jprb,1.9268e-04_jprb,1.8663e-04_jprb/)  
kbo( :,45, 4) = (/&
 & 1.8844e-04_jprb,1.7798e-04_jprb,1.6924e-04_jprb,1.6233e-04_jprb,1.5683e-04_jprb/)  
kbo( :,46, 4) = (/&
 & 1.6102e-04_jprb,1.5165e-04_jprb,1.4374e-04_jprb,1.3727e-04_jprb,1.3220e-04_jprb/)  
kbo( :,47, 4) = (/&
 & 1.3849e-04_jprb,1.3004e-04_jprb,1.2284e-04_jprb,1.1682e-04_jprb,1.1200e-04_jprb/)  
kbo( :,48, 4) = (/&
 & 1.1939e-04_jprb,1.1184e-04_jprb,1.0528e-04_jprb,9.9774e-05_jprb,9.5200e-05_jprb/)  
kbo( :,49, 4) = (/&
 & 1.0325e-04_jprb,9.6448e-05_jprb,9.0509e-05_jprb,8.5480e-05_jprb,8.1243e-05_jprb/)  
kbo( :,50, 4) = (/&
 & 8.9502e-05_jprb,8.3289e-05_jprb,7.8000e-05_jprb,7.3411e-05_jprb,6.9545e-05_jprb/)  
kbo( :,51, 4) = (/&
 & 7.7885e-05_jprb,7.2170e-05_jprb,6.7387e-05_jprb,6.3245e-05_jprb,5.9716e-05_jprb/)  
kbo( :,52, 4) = (/&
 & 6.8289e-05_jprb,6.2790e-05_jprb,5.8412e-05_jprb,5.4691e-05_jprb,5.1470e-05_jprb/)  
kbo( :,53, 4) = (/&
 & 6.0379e-05_jprb,5.4962e-05_jprb,5.0864e-05_jprb,4.7466e-05_jprb,4.4555e-05_jprb/)  
kbo( :,54, 4) = (/&
 & 5.3778e-05_jprb,4.8463e-05_jprb,4.4464e-05_jprb,4.1340e-05_jprb,3.8702e-05_jprb/)  
kbo( :,55, 4) = (/&
 & 4.8218e-05_jprb,4.3063e-05_jprb,3.9148e-05_jprb,3.6179e-05_jprb,3.3764e-05_jprb/)  
kbo( :,56, 4) = (/&
 & 4.3470e-05_jprb,3.8635e-05_jprb,3.4783e-05_jprb,3.1873e-05_jprb,2.9614e-05_jprb/)  
kbo( :,57, 4) = (/&
 & 3.9310e-05_jprb,3.4974e-05_jprb,3.1231e-05_jprb,2.8344e-05_jprb,2.6153e-05_jprb/)  
kbo( :,58, 4) = (/&
 & 3.5464e-05_jprb,3.1728e-05_jprb,2.8260e-05_jprb,2.5410e-05_jprb,2.3248e-05_jprb/)  
kbo( :,59, 4) = (/&
 & 3.1043e-05_jprb,2.7897e-05_jprb,2.4869e-05_jprb,2.2274e-05_jprb,2.0279e-05_jprb/)  
kbo( :,13, 5) = (/&
 & 2.0037e-01_jprb,1.8536e-01_jprb,1.7319e-01_jprb,1.6345e-01_jprb,1.5565e-01_jprb/)  
kbo( :,14, 5) = (/&
 & 1.6811e-01_jprb,1.5583e-01_jprb,1.4603e-01_jprb,1.3819e-01_jprb,1.3191e-01_jprb/)  
kbo( :,15, 5) = (/&
 & 1.3720e-01_jprb,1.2762e-01_jprb,1.2008e-01_jprb,1.1403e-01_jprb,1.0921e-01_jprb/)  
kbo( :,16, 5) = (/&
 & 1.0988e-01_jprb,1.0274e-01_jprb,9.7095e-02_jprb,9.2609e-02_jprb,8.9031e-02_jprb/)  
kbo( :,17, 5) = (/&
 & 8.7687e-02_jprb,8.2411e-02_jprb,7.8231e-02_jprb,7.4955e-02_jprb,7.2265e-02_jprb/)  
kbo( :,18, 5) = (/&
 & 6.9546e-02_jprb,6.5690e-02_jprb,6.2692e-02_jprb,6.0308e-02_jprb,5.8300e-02_jprb/)  
kbo( :,19, 5) = (/&
 & 5.5764e-02_jprb,5.2922e-02_jprb,5.0726e-02_jprb,4.8917e-02_jprb,4.7401e-02_jprb/)  
kbo( :,20, 5) = (/&
 & 4.5060e-02_jprb,4.2954e-02_jprb,4.1283e-02_jprb,3.9887e-02_jprb,3.8724e-02_jprb/)  
kbo( :,21, 5) = (/&
 & 3.6528e-02_jprb,3.4947e-02_jprb,3.3647e-02_jprb,3.2572e-02_jprb,3.1670e-02_jprb/)  
kbo( :,22, 5) = (/&
 & 2.9537e-02_jprb,2.8342e-02_jprb,2.7350e-02_jprb,2.6530e-02_jprb,2.5834e-02_jprb/)  
kbo( :,23, 5) = (/&
 & 2.3912e-02_jprb,2.2997e-02_jprb,2.2244e-02_jprb,2.1612e-02_jprb,2.1080e-02_jprb/)  
kbo( :,24, 5) = (/&
 & 1.9429e-02_jprb,1.8726e-02_jprb,1.8145e-02_jprb,1.7658e-02_jprb,1.7246e-02_jprb/)  
kbo( :,25, 5) = (/&
 & 1.5792e-02_jprb,1.5254e-02_jprb,1.4806e-02_jprb,1.4430e-02_jprb,1.4113e-02_jprb/)  
kbo( :,26, 5) = (/&
 & 1.2845e-02_jprb,1.2431e-02_jprb,1.2086e-02_jprb,1.1796e-02_jprb,1.1555e-02_jprb/)  
kbo( :,27, 5) = (/&
 & 1.0446e-02_jprb,1.0127e-02_jprb,9.8617e-03_jprb,9.6396e-03_jprb,9.4551e-03_jprb/)  
kbo( :,28, 5) = (/&
 & 8.4938e-03_jprb,8.2489e-03_jprb,8.0449e-03_jprb,7.8756e-03_jprb,7.7339e-03_jprb/)  
kbo( :,29, 5) = (/&
 & 6.8810e-03_jprb,6.6955e-03_jprb,6.5403e-03_jprb,6.4124e-03_jprb,6.3046e-03_jprb/)  
kbo( :,30, 5) = (/&
 & 5.5679e-03_jprb,5.4274e-03_jprb,5.3105e-03_jprb,5.2139e-03_jprb,5.1338e-03_jprb/)  

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


SUBROUTINE part4

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


kbo( :,31, 5) = (/&
 & 4.4884e-03_jprb,4.3834e-03_jprb,4.2967e-03_jprb,4.2249e-03_jprb,4.1673e-03_jprb/)  
kbo( :,32, 5) = (/&
 & 3.6233e-03_jprb,3.5452e-03_jprb,3.4808e-03_jprb,3.4277e-03_jprb,3.3868e-03_jprb/)  
kbo( :,33, 5) = (/&
 & 2.9282e-03_jprb,2.8695e-03_jprb,2.8214e-03_jprb,2.7830e-03_jprb,2.7552e-03_jprb/)  
kbo( :,34, 5) = (/&
 & 2.3787e-03_jprb,2.3339e-03_jprb,2.2982e-03_jprb,2.2711e-03_jprb,2.2512e-03_jprb/)  
kbo( :,35, 5) = (/&
 & 1.9384e-03_jprb,1.9039e-03_jprb,1.8770e-03_jprb,1.8573e-03_jprb,1.8425e-03_jprb/)  
kbo( :,36, 5) = (/&
 & 1.5850e-03_jprb,1.5579e-03_jprb,1.5371e-03_jprb,1.5221e-03_jprb,1.5109e-03_jprb/)  
kbo( :,37, 5) = (/&
 & 1.3051e-03_jprb,1.2827e-03_jprb,1.2657e-03_jprb,1.2537e-03_jprb,1.2449e-03_jprb/)  
kbo( :,38, 5) = (/&
 & 1.0746e-03_jprb,1.0560e-03_jprb,1.0422e-03_jprb,1.0325e-03_jprb,1.0256e-03_jprb/)  
kbo( :,39, 5) = (/&
 & 8.8434e-04_jprb,8.6898e-04_jprb,8.5778e-04_jprb,8.4994e-04_jprb,8.4447e-04_jprb/)  
kbo( :,40, 5) = (/&
 & 7.3292e-04_jprb,7.1976e-04_jprb,7.1015e-04_jprb,7.0344e-04_jprb,6.9883e-04_jprb/)  
kbo( :,41, 5) = (/&
 & 6.0814e-04_jprb,5.9676e-04_jprb,5.8842e-04_jprb,5.8265e-04_jprb,5.7869e-04_jprb/)  
kbo( :,42, 5) = (/&
 & 5.0473e-04_jprb,4.9486e-04_jprb,4.8758e-04_jprb,4.8259e-04_jprb,4.7917e-04_jprb/)  
kbo( :,43, 5) = (/&
 & 4.2073e-04_jprb,4.1190e-04_jprb,4.0535e-04_jprb,4.0084e-04_jprb,3.9773e-04_jprb/)  
kbo( :,44, 5) = (/&
 & 3.5172e-04_jprb,3.4367e-04_jprb,3.3767e-04_jprb,3.3350e-04_jprb,3.3063e-04_jprb/)  
kbo( :,45, 5) = (/&
 & 2.9444e-04_jprb,2.8703e-04_jprb,2.8150e-04_jprb,2.7764e-04_jprb,2.7498e-04_jprb/)  
kbo( :,46, 5) = (/&
 & 2.4727e-04_jprb,2.4031e-04_jprb,2.3512e-04_jprb,2.3150e-04_jprb,2.2899e-04_jprb/)  
kbo( :,47, 5) = (/&
 & 2.0882e-04_jprb,2.0207e-04_jprb,1.9709e-04_jprb,1.9359e-04_jprb,1.9119e-04_jprb/)  
kbo( :,48, 5) = (/&
 & 1.7704e-04_jprb,1.7038e-04_jprb,1.6557e-04_jprb,1.6214e-04_jprb,1.5982e-04_jprb/)  
kbo( :,49, 5) = (/&
 & 1.5080e-04_jprb,1.4420e-04_jprb,1.3945e-04_jprb,1.3608e-04_jprb,1.3379e-04_jprb/)  
kbo( :,50, 5) = (/&
 & 1.2911e-04_jprb,1.2261e-04_jprb,1.1789e-04_jprb,1.1456e-04_jprb,1.1230e-04_jprb/)  
kbo( :,51, 5) = (/&
 & 1.1123e-04_jprb,1.0476e-04_jprb,1.0009e-04_jprb,9.6777e-05_jprb,9.4528e-05_jprb/)  
kbo( :,52, 5) = (/&
 & 9.6410e-05_jprb,9.0064e-05_jprb,8.5407e-05_jprb,8.2070e-05_jprb,7.9798e-05_jprb/)  
kbo( :,53, 5) = (/&
 & 8.4067e-05_jprb,7.7964e-05_jprb,7.3302e-05_jprb,6.9956e-05_jprb,6.7619e-05_jprb/)  
kbo( :,54, 5) = (/&
 & 7.3546e-05_jprb,6.7856e-05_jprb,6.3334e-05_jprb,5.9970e-05_jprb,5.7596e-05_jprb/)  
kbo( :,55, 5) = (/&
 & 6.4676e-05_jprb,5.9391e-05_jprb,5.5074e-05_jprb,5.1740e-05_jprb,4.9340e-05_jprb/)  
kbo( :,56, 5) = (/&
 & 5.7222e-05_jprb,5.2288e-05_jprb,4.8229e-05_jprb,4.4985e-05_jprb,4.2543e-05_jprb/)  
kbo( :,57, 5) = (/&
 & 5.0943e-05_jprb,4.6360e-05_jprb,4.2538e-05_jprb,3.9423e-05_jprb,3.6983e-05_jprb/)  
kbo( :,58, 5) = (/&
 & 4.5636e-05_jprb,4.1296e-05_jprb,3.7718e-05_jprb,3.4778e-05_jprb,3.2393e-05_jprb/)  
kbo( :,59, 5) = (/&
 & 3.9918e-05_jprb,3.5967e-05_jprb,3.2789e-05_jprb,3.0147e-05_jprb,2.7981e-05_jprb/)  
kbo( :,13, 6) = (/&
 & 3.0031e-01_jprb,2.8877e-01_jprb,2.7889e-01_jprb,2.7050e-01_jprb,2.6327e-01_jprb/)  
kbo( :,14, 6) = (/&
 & 2.5567e-01_jprb,2.4634e-01_jprb,2.3843e-01_jprb,2.3160e-01_jprb,2.2574e-01_jprb/)  
kbo( :,15, 6) = (/&
 & 2.1660e-01_jprb,2.0921e-01_jprb,2.0286e-01_jprb,1.9734e-01_jprb,1.9258e-01_jprb/)  
kbo( :,16, 6) = (/&
 & 1.7950e-01_jprb,1.7370e-01_jprb,1.6867e-01_jprb,1.6432e-01_jprb,1.6061e-01_jprb/)  
kbo( :,17, 6) = (/&
 & 1.4767e-01_jprb,1.4318e-01_jprb,1.3929e-01_jprb,1.3594e-01_jprb,1.3314e-01_jprb/)  
kbo( :,18, 6) = (/&
 & 1.2067e-01_jprb,1.1726e-01_jprb,1.1432e-01_jprb,1.1181e-01_jprb,1.0970e-01_jprb/)  
kbo( :,19, 6) = (/&
 & 9.9158e-02_jprb,9.6553e-02_jprb,9.4280e-02_jprb,9.2392e-02_jprb,9.0731e-02_jprb/)  
kbo( :,20, 6) = (/&
 & 8.1605e-02_jprb,7.9577e-02_jprb,7.7850e-02_jprb,7.6412e-02_jprb,7.5067e-02_jprb/)  
kbo( :,21, 6) = (/&
 & 6.7154e-02_jprb,6.5582e-02_jprb,6.4294e-02_jprb,6.3166e-02_jprb,6.2094e-02_jprb/)  
kbo( :,22, 6) = (/&
 & 5.5082e-02_jprb,5.3919e-02_jprb,5.2957e-02_jprb,5.2061e-02_jprb,5.1235e-02_jprb/)  
kbo( :,23, 6) = (/&
 & 4.5194e-02_jprb,4.4345e-02_jprb,4.3595e-02_jprb,4.2898e-02_jprb,4.2263e-02_jprb/)  
kbo( :,24, 6) = (/&
 & 3.7185e-02_jprb,3.6539e-02_jprb,3.5952e-02_jprb,3.5414e-02_jprb,3.4913e-02_jprb/)  
kbo( :,25, 6) = (/&
 & 3.0590e-02_jprb,3.0087e-02_jprb,2.9634e-02_jprb,2.9216e-02_jprb,2.8826e-02_jprb/)  
kbo( :,26, 6) = (/&
 & 2.5152e-02_jprb,2.4764e-02_jprb,2.4418e-02_jprb,2.4095e-02_jprb,2.3796e-02_jprb/)  
kbo( :,27, 6) = (/&
 & 2.0643e-02_jprb,2.0349e-02_jprb,2.0083e-02_jprb,1.9833e-02_jprb,1.9610e-02_jprb/)  
kbo( :,28, 6) = (/&
 & 1.6922e-02_jprb,1.6700e-02_jprb,1.6497e-02_jprb,1.6309e-02_jprb,1.6143e-02_jprb/)  
kbo( :,29, 6) = (/&
 & 1.3806e-02_jprb,1.3641e-02_jprb,1.3490e-02_jprb,1.3350e-02_jprb,1.3233e-02_jprb/)  
kbo( :,30, 6) = (/&
 & 1.1246e-02_jprb,1.1125e-02_jprb,1.1013e-02_jprb,1.0912e-02_jprb,1.0833e-02_jprb/)  
kbo( :,31, 6) = (/&
 & 9.1223e-03_jprb,9.0371e-03_jprb,8.9562e-03_jprb,8.8890e-03_jprb,8.8381e-03_jprb/)  
kbo( :,32, 6) = (/&
 & 7.4088e-03_jprb,7.3486e-03_jprb,7.2922e-03_jprb,7.2503e-03_jprb,7.2208e-03_jprb/)  
kbo( :,33, 6) = (/&
 & 6.0213e-03_jprb,5.9797e-03_jprb,5.9439e-03_jprb,5.9193e-03_jprb,5.9059e-03_jprb/)  
kbo( :,34, 6) = (/&
 & 4.9171e-03_jprb,4.8889e-03_jprb,4.8670e-03_jprb,4.8546e-03_jprb,4.8528e-03_jprb/)  
kbo( :,35, 6) = (/&
 & 4.0228e-03_jprb,4.0047e-03_jprb,3.9922e-03_jprb,3.9878e-03_jprb,3.9938e-03_jprb/)  
kbo( :,36, 6) = (/&
 & 3.2970e-03_jprb,3.2861e-03_jprb,3.2797e-03_jprb,3.2811e-03_jprb,3.2916e-03_jprb/)  
kbo( :,37, 6) = (/&
 & 2.7162e-03_jprb,2.7102e-03_jprb,2.7075e-03_jprb,2.7117e-03_jprb,2.7239e-03_jprb/)  
kbo( :,38, 6) = (/&
 & 2.2373e-03_jprb,2.2347e-03_jprb,2.2349e-03_jprb,2.2411e-03_jprb,2.2537e-03_jprb/)  
kbo( :,39, 6) = (/&
 & 1.8417e-03_jprb,1.8418e-03_jprb,1.8441e-03_jprb,1.8517e-03_jprb,1.8647e-03_jprb/)  
kbo( :,40, 6) = (/&
 & 1.5238e-03_jprb,1.5254e-03_jprb,1.5285e-03_jprb,1.5359e-03_jprb,1.5481e-03_jprb/)  
kbo( :,41, 6) = (/&
 & 1.2613e-03_jprb,1.2638e-03_jprb,1.2673e-03_jprb,1.2744e-03_jprb,1.2856e-03_jprb/)  
kbo( :,42, 6) = (/&
 & 1.0436e-03_jprb,1.0466e-03_jprb,1.0504e-03_jprb,1.0571e-03_jprb,1.0674e-03_jprb/)  
kbo( :,43, 6) = (/&
 & 8.6452e-04_jprb,8.6761e-04_jprb,8.7142e-04_jprb,8.7743e-04_jprb,8.8666e-04_jprb/)  
kbo( :,44, 6) = (/&
 & 7.1654e-04_jprb,7.1945e-04_jprb,7.2309e-04_jprb,7.2846e-04_jprb,7.3657e-04_jprb/)  
kbo( :,45, 6) = (/&
 & 5.9379e-04_jprb,5.9641e-04_jprb,5.9986e-04_jprb,6.0460e-04_jprb,6.1175e-04_jprb/)  
kbo( :,46, 6) = (/&
 & 4.9225e-04_jprb,4.9449e-04_jprb,4.9768e-04_jprb,5.0182e-04_jprb,5.0799e-04_jprb/)  
kbo( :,47, 6) = (/&
 & 4.0862e-04_jprb,4.1037e-04_jprb,4.1308e-04_jprb,4.1665e-04_jprb,4.2178e-04_jprb/)  
kbo( :,48, 6) = (/&
 & 3.3951e-04_jprb,3.4066e-04_jprb,3.4289e-04_jprb,3.4596e-04_jprb,3.5019e-04_jprb/)  
kbo( :,49, 6) = (/&
 & 2.8241e-04_jprb,2.8294e-04_jprb,2.8471e-04_jprb,2.8728e-04_jprb,2.9076e-04_jprb/)  
kbo( :,50, 6) = (/&
 & 2.3555e-04_jprb,2.3552e-04_jprb,2.3680e-04_jprb,2.3892e-04_jprb,2.4178e-04_jprb/)  
kbo( :,51, 6) = (/&
 & 1.9697e-04_jprb,1.9644e-04_jprb,1.9724e-04_jprb,1.9893e-04_jprb,2.0124e-04_jprb/)  
kbo( :,52, 6) = (/&
 & 1.6513e-04_jprb,1.6415e-04_jprb,1.6450e-04_jprb,1.6575e-04_jprb,1.6760e-04_jprb/)  
kbo( :,53, 6) = (/&
 & 1.3891e-04_jprb,1.3752e-04_jprb,1.3740e-04_jprb,1.3821e-04_jprb,1.3969e-04_jprb/)  
kbo( :,54, 6) = (/&
 & 1.1751e-04_jprb,1.1571e-04_jprb,1.1518e-04_jprb,1.1561e-04_jprb,1.1672e-04_jprb/)  
kbo( :,55, 6) = (/&
 & 9.9984e-05_jprb,9.7805e-05_jprb,9.6898e-05_jprb,9.6976e-05_jprb,9.7759e-05_jprb/)  
kbo( :,56, 6) = (/&
 & 8.5702e-05_jprb,8.3105e-05_jprb,8.1841e-05_jprb,8.1573e-05_jprb,8.2039e-05_jprb/)  
kbo( :,57, 6) = (/&
 & 7.4232e-05_jprb,7.1097e-05_jprb,6.9487e-05_jprb,6.8880e-05_jprb,6.9030e-05_jprb/)  
kbo( :,58, 6) = (/&
 & 6.4989e-05_jprb,6.1340e-05_jprb,5.9365e-05_jprb,5.8430e-05_jprb,5.8292e-05_jprb/)  
kbo( :,59, 6) = (/&
 & 5.6238e-05_jprb,5.2637e-05_jprb,5.0574e-05_jprb,4.9552e-05_jprb,4.9287e-05_jprb/)  
kbo( :,13, 7) = (/&
 & 6.2076e-01_jprb,6.0643e-01_jprb,5.9318e-01_jprb,5.8083e-01_jprb,5.6896e-01_jprb/)  
kbo( :,14, 7) = (/&
 & 5.2361e-01_jprb,5.1159e-01_jprb,5.0059e-01_jprb,4.9028e-01_jprb,4.8050e-01_jprb/)  
kbo( :,15, 7) = (/&
 & 4.4985e-01_jprb,4.3986e-01_jprb,4.3102e-01_jprb,4.2237e-01_jprb,4.1436e-01_jprb/)  
kbo( :,16, 7) = (/&
 & 3.8706e-01_jprb,3.7895e-01_jprb,3.7119e-01_jprb,3.6386e-01_jprb,3.5724e-01_jprb/)  
kbo( :,17, 7) = (/&
 & 3.2955e-01_jprb,3.2266e-01_jprb,3.1591e-01_jprb,3.0973e-01_jprb,3.0418e-01_jprb/)  
kbo( :,18, 7) = (/&
 & 2.7679e-01_jprb,2.7082e-01_jprb,2.6513e-01_jprb,2.5995e-01_jprb,2.5545e-01_jprb/)  
kbo( :,19, 7) = (/&
 & 2.3226e-01_jprb,2.2714e-01_jprb,2.2242e-01_jprb,2.1825e-01_jprb,2.1464e-01_jprb/)  
kbo( :,20, 7) = (/&
 & 1.9394e-01_jprb,1.8975e-01_jprb,1.8600e-01_jprb,1.8267e-01_jprb,1.7989e-01_jprb/)  
kbo( :,21, 7) = (/&
 & 1.6150e-01_jprb,1.5816e-01_jprb,1.5519e-01_jprb,1.5258e-01_jprb,1.5046e-01_jprb/)  
kbo( :,22, 7) = (/&
 & 1.3388e-01_jprb,1.3131e-01_jprb,1.2899e-01_jprb,1.2704e-01_jprb,1.2536e-01_jprb/)  
kbo( :,23, 7) = (/&
 & 1.1091e-01_jprb,1.0891e-01_jprb,1.0717e-01_jprb,1.0571e-01_jprb,1.0434e-01_jprb/)  
kbo( :,24, 7) = (/&
 & 9.2054e-02_jprb,9.0515e-02_jprb,8.9212e-02_jprb,8.8060e-02_jprb,8.6983e-02_jprb/)  
kbo( :,25, 7) = (/&
 & 7.6343e-02_jprb,7.5207e-02_jprb,7.4226e-02_jprb,7.3309e-02_jprb,7.2502e-02_jprb/)  
kbo( :,26, 7) = (/&
 & 6.3290e-02_jprb,6.2474e-02_jprb,6.1708e-02_jprb,6.1011e-02_jprb,6.0412e-02_jprb/)  
kbo( :,27, 7) = (/&
 & 5.2357e-02_jprb,5.1753e-02_jprb,5.1172e-02_jprb,5.0665e-02_jprb,5.0225e-02_jprb/)  
kbo( :,28, 7) = (/&
 & 4.3244e-02_jprb,4.2787e-02_jprb,4.2361e-02_jprb,4.2002e-02_jprb,4.1698e-02_jprb/)  
kbo( :,29, 7) = (/&
 & 3.5503e-02_jprb,3.5181e-02_jprb,3.4891e-02_jprb,3.4654e-02_jprb,3.4461e-02_jprb/)  
kbo( :,30, 7) = (/&
 & 2.9099e-02_jprb,2.8880e-02_jprb,2.8695e-02_jprb,2.8556e-02_jprb,2.8451e-02_jprb/)  
kbo( :,31, 7) = (/&
 & 2.3756e-02_jprb,2.3624e-02_jprb,2.3525e-02_jprb,2.3461e-02_jprb,2.3423e-02_jprb/)  
kbo( :,32, 7) = (/&
 & 1.9426e-02_jprb,1.9356e-02_jprb,1.9321e-02_jprb,1.9314e-02_jprb,1.9320e-02_jprb/)  
kbo( :,33, 7) = (/&
 & 1.5905e-02_jprb,1.5887e-02_jprb,1.5897e-02_jprb,1.5926e-02_jprb,1.5970e-02_jprb/)  
kbo( :,34, 7) = (/&
 & 1.3090e-02_jprb,1.3109e-02_jprb,1.3146e-02_jprb,1.3197e-02_jprb,1.3269e-02_jprb/)  
kbo( :,35, 7) = (/&
 & 1.0797e-02_jprb,1.0836e-02_jprb,1.0888e-02_jprb,1.0958e-02_jprb,1.1045e-02_jprb/)  
kbo( :,36, 7) = (/&
 & 8.9196e-03_jprb,8.9674e-03_jprb,9.0310e-03_jprb,9.1096e-03_jprb,9.2030e-03_jprb/)  
kbo( :,37, 7) = (/&
 & 7.4032e-03_jprb,7.4569e-03_jprb,7.5263e-03_jprb,7.6089e-03_jprb,7.7061e-03_jprb/)  
kbo( :,38, 7) = (/&
 & 6.1455e-03_jprb,6.2033e-03_jprb,6.2752e-03_jprb,6.3592e-03_jprb,6.4581e-03_jprb/)  
kbo( :,39, 7) = (/&
 & 5.1018e-03_jprb,5.1610e-03_jprb,5.2331e-03_jprb,5.3164e-03_jprb,5.4128e-03_jprb/)  
kbo( :,40, 7) = (/&
 & 4.2521e-03_jprb,4.3105e-03_jprb,4.3809e-03_jprb,4.4621e-03_jprb,4.5540e-03_jprb/)  
kbo( :,41, 7) = (/&
 & 3.5452e-03_jprb,3.6013e-03_jprb,3.6690e-03_jprb,3.7462e-03_jprb,3.8330e-03_jprb/)  
kbo( :,42, 7) = (/&
 & 2.9546e-03_jprb,3.0079e-03_jprb,3.0718e-03_jprb,3.1441e-03_jprb,3.2249e-03_jprb/)  
kbo( :,43, 7) = (/&
 & 2.4623e-03_jprb,2.5120e-03_jprb,2.5713e-03_jprb,2.6380e-03_jprb,2.7122e-03_jprb/)  
kbo( :,44, 7) = (/&
 & 2.0503e-03_jprb,2.0962e-03_jprb,2.1506e-03_jprb,2.2118e-03_jprb,2.2791e-03_jprb/)  
kbo( :,45, 7) = (/&
 & 1.7056e-03_jprb,1.7475e-03_jprb,1.7968e-03_jprb,1.8522e-03_jprb,1.9127e-03_jprb/)  
kbo( :,46, 7) = (/&
 & 1.4169e-03_jprb,1.4548e-03_jprb,1.4988e-03_jprb,1.5483e-03_jprb,1.6024e-03_jprb/)  
kbo( :,47, 7) = (/&
 & 1.1753e-03_jprb,1.2090e-03_jprb,1.2477e-03_jprb,1.2915e-03_jprb,1.3391e-03_jprb/)  
kbo( :,48, 7) = (/&
 & 9.7359e-04_jprb,1.0036e-03_jprb,1.0372e-03_jprb,1.0757e-03_jprb,1.1176e-03_jprb/)  
kbo( :,49, 7) = (/&
 & 8.0541e-04_jprb,8.3180e-04_jprb,8.6089e-04_jprb,8.9457e-04_jprb,9.3110e-04_jprb/)  
kbo( :,50, 7) = (/&
 & 6.6674e-04_jprb,6.8981e-04_jprb,7.1508e-04_jprb,7.4417e-04_jprb,7.7606e-04_jprb/)  
kbo( :,51, 7) = (/&
 & 5.5204e-04_jprb,5.7200e-04_jprb,5.9387e-04_jprb,6.1888e-04_jprb,6.4663e-04_jprb/)  
kbo( :,52, 7) = (/&
 & 4.5687e-04_jprb,4.7390e-04_jprb,4.9275e-04_jprb,5.1420e-04_jprb,5.3821e-04_jprb/)  
kbo( :,53, 7) = (/&
 & 3.7797e-04_jprb,3.9233e-04_jprb,4.0850e-04_jprb,4.2681e-04_jprb,4.4742e-04_jprb/)  
kbo( :,54, 7) = (/&
 & 3.1354e-04_jprb,3.2560e-04_jprb,3.3944e-04_jprb,3.5505e-04_jprb,3.7284e-04_jprb/)  
kbo( :,55, 7) = (/&
 & 2.6060e-04_jprb,2.7065e-04_jprb,2.8242e-04_jprb,2.9574e-04_jprb,3.1104e-04_jprb/)  
kbo( :,56, 7) = (/&
 & 2.1677e-04_jprb,2.2507e-04_jprb,2.3503e-04_jprb,2.4632e-04_jprb,2.5934e-04_jprb/)  
kbo( :,57, 7) = (/&
 & 1.8057e-04_jprb,1.8733e-04_jprb,1.9567e-04_jprb,2.0522e-04_jprb,2.1627e-04_jprb/)  
kbo( :,58, 7) = (/&
 & 1.5084e-04_jprb,1.5628e-04_jprb,1.6318e-04_jprb,1.7119e-04_jprb,1.8056e-04_jprb/)  
kbo( :,59, 7) = (/&
 & 1.2696e-04_jprb,1.3148e-04_jprb,1.3737e-04_jprb,1.4430e-04_jprb,1.5250e-04_jprb/)  
kbo( :,13, 8) = (/&
 & 1.8749e+00_jprb,1.8339e+00_jprb,1.7958e+00_jprb,1.7607e+00_jprb,1.7271e+00_jprb/)  
kbo( :,14, 8) = (/&
 & 1.5743e+00_jprb,1.5413e+00_jprb,1.5105e+00_jprb,1.4812e+00_jprb,1.4530e+00_jprb/)  
kbo( :,15, 8) = (/&
 & 1.3213e+00_jprb,1.2948e+00_jprb,1.2694e+00_jprb,1.2449e+00_jprb,1.2211e+00_jprb/)  
kbo( :,16, 8) = (/&
 & 1.1162e+00_jprb,1.0945e+00_jprb,1.0731e+00_jprb,1.0524e+00_jprb,1.0321e+00_jprb/)  
kbo( :,17, 8) = (/&
 & 9.5687e-01_jprb,9.3833e-01_jprb,9.2020e-01_jprb,9.0235e-01_jprb,8.8485e-01_jprb/)  
kbo( :,18, 8) = (/&
 & 8.2749e-01_jprb,8.1191e-01_jprb,7.9641e-01_jprb,7.8105e-01_jprb,7.6632e-01_jprb/)  
kbo( :,19, 8) = (/&
 & 7.1804e-01_jprb,7.0461e-01_jprb,6.9106e-01_jprb,6.7763e-01_jprb,6.6520e-01_jprb/)  
kbo( :,20, 8) = (/&
 & 6.1468e-01_jprb,6.0286e-01_jprb,5.9089e-01_jprb,5.7959e-01_jprb,5.6959e-01_jprb/)  
kbo( :,21, 8) = (/&
 & 5.2096e-01_jprb,5.1044e-01_jprb,5.0026e-01_jprb,4.9101e-01_jprb,4.8331e-01_jprb/)  
kbo( :,22, 8) = (/&
 & 4.3720e-01_jprb,4.2829e-01_jprb,4.2010e-01_jprb,4.1308e-01_jprb,4.0742e-01_jprb/)  
kbo( :,23, 8) = (/&
 & 3.6550e-01_jprb,3.5834e-01_jprb,3.5202e-01_jprb,3.4689e-01_jprb,3.4279e-01_jprb/)  
kbo( :,24, 8) = (/&
 & 3.0558e-01_jprb,2.9995e-01_jprb,2.9531e-01_jprb,2.9161e-01_jprb,2.8882e-01_jprb/)  
kbo( :,25, 8) = (/&
 & 2.5505e-01_jprb,2.5086e-01_jprb,2.4760e-01_jprb,2.4506e-01_jprb,2.4335e-01_jprb/)  
kbo( :,26, 8) = (/&
 & 2.1270e-01_jprb,2.0980e-01_jprb,2.0754e-01_jprb,2.0600e-01_jprb,2.0500e-01_jprb/)  
kbo( :,27, 8) = (/&
 & 1.7708e-01_jprb,1.7513e-01_jprb,1.7373e-01_jprb,1.7293e-01_jprb,1.7242e-01_jprb/)  
kbo( :,28, 8) = (/&
 & 1.4736e-01_jprb,1.4615e-01_jprb,1.4547e-01_jprb,1.4511e-01_jprb,1.4503e-01_jprb/)  
kbo( :,29, 8) = (/&
 & 1.2217e-01_jprb,1.2161e-01_jprb,1.2142e-01_jprb,1.2147e-01_jprb,1.2176e-01_jprb/)  
kbo( :,30, 8) = (/&
 & 1.0135e-01_jprb,1.0129e-01_jprb,1.0143e-01_jprb,1.0181e-01_jprb,1.0237e-01_jprb/)  
kbo( :,31, 8) = (/&
 & 8.4026e-02_jprb,8.4283e-02_jprb,8.4701e-02_jprb,8.5319e-02_jprb,8.6090e-02_jprb/)  
kbo( :,32, 8) = (/&
 & 6.9968e-02_jprb,7.0421e-02_jprb,7.1041e-02_jprb,7.1799e-02_jprb,7.2670e-02_jprb/)  
kbo( :,33, 8) = (/&
 & 5.8463e-02_jprb,5.9059e-02_jprb,5.9804e-02_jprb,6.0644e-02_jprb,6.1569e-02_jprb/)  
kbo( :,34, 8) = (/&
 & 4.9124e-02_jprb,4.9817e-02_jprb,5.0609e-02_jprb,5.1484e-02_jprb,5.2418e-02_jprb/)  

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


SUBROUTINE part5

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


kbo( :,35, 8) = (/&
 & 4.1343e-02_jprb,4.2075e-02_jprb,4.2881e-02_jprb,4.3757e-02_jprb,4.4680e-02_jprb/)  
kbo( :,36, 8) = (/&
 & 3.4807e-02_jprb,3.5542e-02_jprb,3.6329e-02_jprb,3.7186e-02_jprb,3.8085e-02_jprb/)  
kbo( :,37, 8) = (/&
 & 2.9387e-02_jprb,3.0107e-02_jprb,3.0877e-02_jprb,3.1701e-02_jprb,3.2565e-02_jprb/)  
kbo( :,38, 8) = (/&
 & 2.4810e-02_jprb,2.5504e-02_jprb,2.6245e-02_jprb,2.7036e-02_jprb,2.7858e-02_jprb/)  
kbo( :,39, 8) = (/&
 & 2.0945e-02_jprb,2.1603e-02_jprb,2.2309e-02_jprb,2.3055e-02_jprb,2.3834e-02_jprb/)  
kbo( :,40, 8) = (/&
 & 1.7727e-02_jprb,1.8351e-02_jprb,1.9022e-02_jprb,1.9730e-02_jprb,2.0475e-02_jprb/)  
kbo( :,41, 8) = (/&
 & 1.5006e-02_jprb,1.5596e-02_jprb,1.6231e-02_jprb,1.6901e-02_jprb,1.7608e-02_jprb/)  
kbo( :,42, 8) = (/&
 & 1.2699e-02_jprb,1.3252e-02_jprb,1.3848e-02_jprb,1.4479e-02_jprb,1.5149e-02_jprb/)  
kbo( :,43, 8) = (/&
 & 1.0731e-02_jprb,1.1247e-02_jprb,1.1804e-02_jprb,1.2397e-02_jprb,1.3032e-02_jprb/)  
kbo( :,44, 8) = (/&
 & 9.0535e-03_jprb,9.5318e-03_jprb,1.0051e-02_jprb,1.0609e-02_jprb,1.1207e-02_jprb/)  
kbo( :,45, 8) = (/&
 & 7.6285e-03_jprb,8.0697e-03_jprb,8.5520e-03_jprb,9.0723e-03_jprb,9.6338e-03_jprb/)  
kbo( :,46, 8) = (/&
 & 6.4125e-03_jprb,6.8146e-03_jprb,7.2602e-03_jprb,7.7440e-03_jprb,8.2655e-03_jprb/)  
kbo( :,47, 8) = (/&
 & 5.3712e-03_jprb,5.7353e-03_jprb,6.1421e-03_jprb,6.5868e-03_jprb,7.0707e-03_jprb/)  
kbo( :,48, 8) = (/&
 & 4.4885e-03_jprb,4.8157e-03_jprb,5.1854e-03_jprb,5.5906e-03_jprb,6.0354e-03_jprb/)  
kbo( :,49, 8) = (/&
 & 3.7410e-03_jprb,4.0329e-03_jprb,4.3660e-03_jprb,4.7329e-03_jprb,5.1395e-03_jprb/)  
kbo( :,50, 8) = (/&
 & 3.1195e-03_jprb,3.3801e-03_jprb,3.6785e-03_jprb,4.0128e-03_jprb,4.3847e-03_jprb/)  
kbo( :,51, 8) = (/&
 & 2.5986e-03_jprb,2.8303e-03_jprb,3.0979e-03_jprb,3.4004e-03_jprb,3.7414e-03_jprb/)  
kbo( :,52, 8) = (/&
 & 2.1586e-03_jprb,2.3637e-03_jprb,2.6022e-03_jprb,2.8753e-03_jprb,3.1853e-03_jprb/)  
kbo( :,53, 8) = (/&
 & 1.7874e-03_jprb,1.9676e-03_jprb,2.1789e-03_jprb,2.4235e-03_jprb,2.7038e-03_jprb/)  
kbo( :,54, 8) = (/&
 & 1.4850e-03_jprb,1.6436e-03_jprb,1.8314e-03_jprb,2.0513e-03_jprb,2.3056e-03_jprb/)  
kbo( :,55, 8) = (/&
 & 1.2350e-03_jprb,1.3746e-03_jprb,1.5414e-03_jprb,1.7391e-03_jprb,1.9699e-03_jprb/)  
kbo( :,56, 8) = (/&
 & 1.0255e-03_jprb,1.1469e-03_jprb,1.2945e-03_jprb,1.4714e-03_jprb,1.6800e-03_jprb/)  
kbo( :,57, 8) = (/&
 & 8.4971e-04_jprb,9.5464e-04_jprb,1.0846e-03_jprb,1.2416e-03_jprb,1.4294e-03_jprb/)  
kbo( :,58, 8) = (/&
 & 7.0441e-04_jprb,7.9508e-04_jprb,9.0916e-04_jprb,1.0487e-03_jprb,1.2170e-03_jprb/)  
kbo( :,59, 8) = (/&
 & 5.9755e-04_jprb,6.7949e-04_jprb,7.8382e-04_jprb,9.1237e-04_jprb,1.0695e-03_jprb/)  
kbo( :,13, 9) = (/&
 & 1.0788e+01_jprb,1.0623e+01_jprb,1.0458e+01_jprb,1.0276e+01_jprb,1.0096e+01_jprb/)  
kbo( :,14, 9) = (/&
 & 9.3612e+00_jprb,9.2219e+00_jprb,9.0719e+00_jprb,8.9125e+00_jprb,8.7475e+00_jprb/)  
kbo( :,15, 9) = (/&
 & 8.0594e+00_jprb,7.9366e+00_jprb,7.7985e+00_jprb,7.6538e+00_jprb,7.5121e+00_jprb/)  
kbo( :,16, 9) = (/&
 & 6.8883e+00_jprb,6.7721e+00_jprb,6.6502e+00_jprb,6.5309e+00_jprb,6.4164e+00_jprb/)  
kbo( :,17, 9) = (/&
 & 5.8447e+00_jprb,5.7441e+00_jprb,5.6460e+00_jprb,5.5501e+00_jprb,5.4594e+00_jprb/)  
kbo( :,18, 9) = (/&
 & 4.9433e+00_jprb,4.8620e+00_jprb,4.7817e+00_jprb,4.7042e+00_jprb,4.6310e+00_jprb/)  
kbo( :,19, 9) = (/&
 & 4.1982e+00_jprb,4.1312e+00_jprb,4.0653e+00_jprb,4.0039e+00_jprb,3.9459e+00_jprb/)  
kbo( :,20, 9) = (/&
 & 3.5838e+00_jprb,3.5285e+00_jprb,3.4759e+00_jprb,3.4263e+00_jprb,3.3770e+00_jprb/)  
kbo( :,21, 9) = (/&
 & 3.0778e+00_jprb,3.0331e+00_jprb,2.9909e+00_jprb,2.9486e+00_jprb,2.9057e+00_jprb/)  
kbo( :,22, 9) = (/&
 & 2.6565e+00_jprb,2.6204e+00_jprb,2.5833e+00_jprb,2.5458e+00_jprb,2.5109e+00_jprb/)  
kbo( :,23, 9) = (/&
 & 2.3092e+00_jprb,2.2775e+00_jprb,2.2448e+00_jprb,2.2133e+00_jprb,2.1844e+00_jprb/)  
kbo( :,24, 9) = (/&
 & 2.0249e+00_jprb,1.9974e+00_jprb,1.9695e+00_jprb,1.9433e+00_jprb,1.9191e+00_jprb/)  
kbo( :,25, 9) = (/&
 & 1.7740e+00_jprb,1.7527e+00_jprb,1.7317e+00_jprb,1.7118e+00_jprb,1.6945e+00_jprb/)  
kbo( :,26, 9) = (/&
 & 1.5476e+00_jprb,1.5328e+00_jprb,1.5186e+00_jprb,1.5057e+00_jprb,1.4963e+00_jprb/)  
kbo( :,27, 9) = (/&
 & 1.3401e+00_jprb,1.3314e+00_jprb,1.3233e+00_jprb,1.3171e+00_jprb,1.3143e+00_jprb/)  
kbo( :,28, 9) = (/&
 & 1.1557e+00_jprb,1.1517e+00_jprb,1.1490e+00_jprb,1.1490e+00_jprb,1.1516e+00_jprb/)  
kbo( :,29, 9) = (/&
 & 9.8748e-01_jprb,9.8745e-01_jprb,9.8953e-01_jprb,9.9392e-01_jprb,1.0010e+00_jprb/)  
kbo( :,30, 9) = (/&
 & 8.4260e-01_jprb,8.4608e-01_jprb,8.5152e-01_jprb,8.5914e-01_jprb,8.6963e-01_jprb/)  
kbo( :,31, 9) = (/&
 & 7.1579e-01_jprb,7.2173e-01_jprb,7.2917e-01_jprb,7.3933e-01_jprb,7.5097e-01_jprb/)  
kbo( :,32, 9) = (/&
 & 6.1011e-01_jprb,6.1766e-01_jprb,6.2713e-01_jprb,6.3845e-01_jprb,6.5062e-01_jprb/)  
kbo( :,33, 9) = (/&
 & 5.2120e-01_jprb,5.3013e-01_jprb,5.4091e-01_jprb,5.5249e-01_jprb,5.6506e-01_jprb/)  
kbo( :,34, 9) = (/&
 & 4.4937e-01_jprb,4.5962e-01_jprb,4.7092e-01_jprb,4.8296e-01_jprb,4.9617e-01_jprb/)  
kbo( :,35, 9) = (/&
 & 3.8853e-01_jprb,3.9924e-01_jprb,4.1075e-01_jprb,4.2296e-01_jprb,4.3648e-01_jprb/)  
kbo( :,36, 9) = (/&
 & 3.3659e-01_jprb,3.4736e-01_jprb,3.5887e-01_jprb,3.7122e-01_jprb,3.8466e-01_jprb/)  
kbo( :,37, 9) = (/&
 & 2.9273e-01_jprb,3.0346e-01_jprb,3.1486e-01_jprb,3.2720e-01_jprb,3.4049e-01_jprb/)  
kbo( :,38, 9) = (/&
 & 2.5454e-01_jprb,2.6503e-01_jprb,2.7620e-01_jprb,2.8834e-01_jprb,3.0122e-01_jprb/)  
kbo( :,39, 9) = (/&
 & 2.2111e-01_jprb,2.3117e-01_jprb,2.4193e-01_jprb,2.5368e-01_jprb,2.6599e-01_jprb/)  
kbo( :,40, 9) = (/&
 & 1.9377e-01_jprb,2.0358e-01_jprb,2.1415e-01_jprb,2.2567e-01_jprb,2.3776e-01_jprb/)  
kbo( :,41, 9) = (/&
 & 1.7005e-01_jprb,1.7960e-01_jprb,1.8995e-01_jprb,2.0120e-01_jprb,2.1299e-01_jprb/)  
kbo( :,42, 9) = (/&
 & 1.4922e-01_jprb,1.5844e-01_jprb,1.6847e-01_jprb,1.7937e-01_jprb,1.9081e-01_jprb/)  
kbo( :,43, 9) = (/&
 & 1.3075e-01_jprb,1.3959e-01_jprb,1.4924e-01_jprb,1.5974e-01_jprb,1.7085e-01_jprb/)  
kbo( :,44, 9) = (/&
 & 1.1438e-01_jprb,1.2283e-01_jprb,1.3202e-01_jprb,1.4209e-01_jprb,1.5286e-01_jprb/)  
kbo( :,45, 9) = (/&
 & 9.9902e-02_jprb,1.0790e-01_jprb,1.1661e-01_jprb,1.2618e-01_jprb,1.3651e-01_jprb/)  
kbo( :,46, 9) = (/&
 & 8.7103e-02_jprb,9.4627e-02_jprb,1.0284e-01_jprb,1.1186e-01_jprb,1.2171e-01_jprb/)  
kbo( :,47, 9) = (/&
 & 7.5878e-02_jprb,8.2893e-02_jprb,9.0643e-02_jprb,9.9147e-02_jprb,1.0851e-01_jprb/)  
kbo( :,48, 9) = (/&
 & 6.5893e-02_jprb,7.2362e-02_jprb,7.9630e-02_jprb,8.7572e-02_jprb,9.6345e-02_jprb/)  
kbo( :,49, 9) = (/&
 & 5.6945e-02_jprb,6.2864e-02_jprb,6.9577e-02_jprb,7.6900e-02_jprb,8.5016e-02_jprb/)  
kbo( :,50, 9) = (/&
 & 4.9637e-02_jprb,5.5145e-02_jprb,6.1441e-02_jprb,6.8345e-02_jprb,7.5988e-02_jprb/)  
kbo( :,51, 9) = (/&
 & 4.3422e-02_jprb,4.8608e-02_jprb,5.4551e-02_jprb,6.1122e-02_jprb,6.8380e-02_jprb/)  
kbo( :,52, 9) = (/&
 & 3.7823e-02_jprb,4.2708e-02_jprb,4.8270e-02_jprb,5.4493e-02_jprb,6.1367e-02_jprb/)  
kbo( :,53, 9) = (/&
 & 3.2716e-02_jprb,3.7294e-02_jprb,4.2470e-02_jprb,4.8310e-02_jprb,5.4754e-02_jprb/)  
kbo( :,54, 9) = (/&
 & 2.8879e-02_jprb,3.3341e-02_jprb,3.8351e-02_jprb,4.4083e-02_jprb,5.0425e-02_jprb/)  
kbo( :,55, 9) = (/&
 & 2.5791e-02_jprb,3.0208e-02_jprb,3.5200e-02_jprb,4.0945e-02_jprb,4.7385e-02_jprb/)  
kbo( :,56, 9) = (/&
 & 2.2986e-02_jprb,2.7363e-02_jprb,3.2337e-02_jprb,3.8064e-02_jprb,4.4613e-02_jprb/)  
kbo( :,57, 9) = (/&
 & 2.0449e-02_jprb,2.4769e-02_jprb,2.9701e-02_jprb,3.5425e-02_jprb,4.2056e-02_jprb/)  
kbo( :,58, 9) = (/&
 & 1.8265e-02_jprb,2.2536e-02_jprb,2.7482e-02_jprb,3.3264e-02_jprb,4.0010e-02_jprb/)  
kbo( :,59, 9) = (/&
 & 1.7419e-02_jprb,2.1942e-02_jprb,2.7259e-02_jprb,3.3550e-02_jprb,4.0933e-02_jprb/)  
kbo( :,13,10) = (/&
 & 4.1739e+01_jprb,4.1046e+01_jprb,4.0406e+01_jprb,3.9903e+01_jprb,3.9432e+01_jprb/)  
kbo( :,14,10) = (/&
 & 3.7780e+01_jprb,3.7208e+01_jprb,3.6738e+01_jprb,3.6356e+01_jprb,3.5932e+01_jprb/)  
kbo( :,15,10) = (/&
 & 3.3722e+01_jprb,3.3320e+01_jprb,3.3014e+01_jprb,3.2683e+01_jprb,3.2296e+01_jprb/)  
kbo( :,16,10) = (/&
 & 2.9809e+01_jprb,2.9590e+01_jprb,2.9319e+01_jprb,2.8947e+01_jprb,2.8490e+01_jprb/)  
kbo( :,17,10) = (/&
 & 2.6216e+01_jprb,2.5994e+01_jprb,2.5636e+01_jprb,2.5227e+01_jprb,2.4815e+01_jprb/)  
kbo( :,18,10) = (/&
 & 2.2808e+01_jprb,2.2491e+01_jprb,2.2154e+01_jprb,2.1818e+01_jprb,2.1508e+01_jprb/)  
kbo( :,19,10) = (/&
 & 1.9565e+01_jprb,1.9296e+01_jprb,1.9038e+01_jprb,1.8774e+01_jprb,1.8537e+01_jprb/)  
kbo( :,20,10) = (/&
 & 1.6665e+01_jprb,1.6469e+01_jprb,1.6266e+01_jprb,1.6063e+01_jprb,1.5906e+01_jprb/)  
kbo( :,21,10) = (/&
 & 1.4150e+01_jprb,1.3996e+01_jprb,1.3834e+01_jprb,1.3710e+01_jprb,1.3628e+01_jprb/)  
kbo( :,22,10) = (/&
 & 1.1976e+01_jprb,1.1855e+01_jprb,1.1765e+01_jprb,1.1705e+01_jprb,1.1637e+01_jprb/)  
kbo( :,23,10) = (/&
 & 1.0127e+01_jprb,1.0053e+01_jprb,1.0018e+01_jprb,9.9752e+00_jprb,9.9226e+00_jprb/)  
kbo( :,24,10) = (/&
 & 8.6146e+00_jprb,8.5826e+00_jprb,8.5522e+00_jprb,8.5043e+00_jprb,8.4734e+00_jprb/)  
kbo( :,25,10) = (/&
 & 7.4968e+00_jprb,7.4470e+00_jprb,7.3837e+00_jprb,7.3316e+00_jprb,7.2993e+00_jprb/)  
kbo( :,26,10) = (/&
 & 6.6803e+00_jprb,6.6009e+00_jprb,6.5219e+00_jprb,6.4615e+00_jprb,6.4001e+00_jprb/)  
kbo( :,27,10) = (/&
 & 5.9868e+00_jprb,5.9080e+00_jprb,5.8394e+00_jprb,5.7646e+00_jprb,5.6979e+00_jprb/)  
kbo( :,28,10) = (/&
 & 5.3464e+00_jprb,5.2910e+00_jprb,5.2326e+00_jprb,5.1670e+00_jprb,5.1173e+00_jprb/)  
kbo( :,29,10) = (/&
 & 4.6977e+00_jprb,4.6608e+00_jprb,4.6112e+00_jprb,4.5661e+00_jprb,4.5356e+00_jprb/)  
kbo( :,30,10) = (/&
 & 4.1012e+00_jprb,4.0712e+00_jprb,4.0379e+00_jprb,4.0156e+00_jprb,3.9964e+00_jprb/)  
kbo( :,31,10) = (/&
 & 3.5181e+00_jprb,3.4969e+00_jprb,3.4850e+00_jprb,3.4732e+00_jprb,3.4789e+00_jprb/)  
kbo( :,32,10) = (/&
 & 3.0189e+00_jprb,3.0109e+00_jprb,3.0086e+00_jprb,3.0140e+00_jprb,3.0440e+00_jprb/)  
kbo( :,33,10) = (/&
 & 2.5886e+00_jprb,2.5926e+00_jprb,2.5982e+00_jprb,2.6243e+00_jprb,2.6716e+00_jprb/)  
kbo( :,34,10) = (/&
 & 2.2587e+00_jprb,2.2647e+00_jprb,2.2836e+00_jprb,2.3246e+00_jprb,2.3804e+00_jprb/)  
kbo( :,35,10) = (/&
 & 1.9773e+00_jprb,1.9897e+00_jprb,2.0203e+00_jprb,2.0679e+00_jprb,2.1301e+00_jprb/)  
kbo( :,36,10) = (/&
 & 1.7395e+00_jprb,1.7595e+00_jprb,1.7974e+00_jprb,1.8469e+00_jprb,1.9158e+00_jprb/)  
kbo( :,37,10) = (/&
 & 1.5472e+00_jprb,1.5730e+00_jprb,1.6139e+00_jprb,1.6628e+00_jprb,1.7327e+00_jprb/)  
kbo( :,38,10) = (/&
 & 1.3714e+00_jprb,1.4025e+00_jprb,1.4462e+00_jprb,1.4974e+00_jprb,1.5691e+00_jprb/)  
kbo( :,39,10) = (/&
 & 1.2087e+00_jprb,1.2443e+00_jprb,1.2905e+00_jprb,1.3459e+00_jprb,1.4223e+00_jprb/)  
kbo( :,40,10) = (/&
 & 1.0876e+00_jprb,1.1253e+00_jprb,1.1721e+00_jprb,1.2268e+00_jprb,1.3018e+00_jprb/)  
kbo( :,41,10) = (/&
 & 9.8026e-01_jprb,1.0194e+00_jprb,1.0667e+00_jprb,1.1210e+00_jprb,1.1950e+00_jprb/)  
kbo( :,42,10) = (/&
 & 8.8231e-01_jprb,9.2156e-01_jprb,9.6932e-01_jprb,1.0233e+00_jprb,1.0965e+00_jprb/)  
kbo( :,43,10) = (/&
 & 7.9349e-01_jprb,8.3234e-01_jprb,8.7952e-01_jprb,9.3292e-01_jprb,1.0030e+00_jprb/)  
kbo( :,44,10) = (/&
 & 7.1136e-01_jprb,7.4926e-01_jprb,7.9572e-01_jprb,8.4791e-01_jprb,9.1488e-01_jprb/)  
kbo( :,45,10) = (/&
 & 6.3430e-01_jprb,6.7145e-01_jprb,7.1626e-01_jprb,7.6714e-01_jprb,8.3123e-01_jprb/)  
kbo( :,46,10) = (/&
 & 5.6439e-01_jprb,6.0014e-01_jprb,6.4281e-01_jprb,6.9208e-01_jprb,7.5262e-01_jprb/)  
kbo( :,47,10) = (/&
 & 5.0247e-01_jprb,5.3776e-01_jprb,5.7789e-01_jprb,6.2500e-01_jprb,6.8134e-01_jprb/)  
kbo( :,48,10) = (/&
 & 4.4383e-01_jprb,4.7811e-01_jprb,5.1539e-01_jprb,5.6031e-01_jprb,6.1366e-01_jprb/)  
kbo( :,49,10) = (/&
 & 3.8764e-01_jprb,4.2029e-01_jprb,4.5444e-01_jprb,4.9673e-01_jprb,5.4849e-01_jprb/)  
kbo( :,50,10) = (/&
 & 3.4416e-01_jprb,3.7626e-01_jprb,4.0876e-01_jprb,4.4843e-01_jprb,4.9768e-01_jprb/)  
kbo( :,51,10) = (/&
 & 3.0832e-01_jprb,3.4001e-01_jprb,3.7156e-01_jprb,4.0857e-01_jprb,4.5514e-01_jprb/)  
kbo( :,52,10) = (/&
 & 2.7467e-01_jprb,3.0526e-01_jprb,3.3577e-01_jprb,3.7029e-01_jprb,4.1417e-01_jprb/)  
kbo( :,53,10) = (/&
 & 2.4290e-01_jprb,2.7158e-01_jprb,3.0075e-01_jprb,3.3282e-01_jprb,3.7486e-01_jprb/)  
kbo( :,54,10) = (/&
 & 2.2403e-01_jprb,2.5308e-01_jprb,2.8293e-01_jprb,3.1404e-01_jprb,3.5280e-01_jprb/)  
kbo( :,55,10) = (/&
 & 2.1196e-01_jprb,2.4297e-01_jprb,2.7480e-01_jprb,3.0677e-01_jprb,3.4328e-01_jprb/)  
kbo( :,56,10) = (/&
 & 2.0061e-01_jprb,2.3363e-01_jprb,2.6759e-01_jprb,3.0162e-01_jprb,3.3751e-01_jprb/)  
kbo( :,57,10) = (/&
 & 1.8972e-01_jprb,2.2491e-01_jprb,2.6131e-01_jprb,2.9791e-01_jprb,3.3473e-01_jprb/)  
kbo( :,58,10) = (/&
 & 1.8070e-01_jprb,2.1925e-01_jprb,2.5864e-01_jprb,2.9863e-01_jprb,3.3832e-01_jprb/)  
kbo( :,59,10) = (/&
 & 1.9009e-01_jprb,2.3640e-01_jprb,2.8437e-01_jprb,3.3376e-01_jprb,3.8278e-01_jprb/)  
kbo( :,13,11) = (/&
 & 7.0149e+01_jprb,6.9123e+01_jprb,6.8075e+01_jprb,6.6895e+01_jprb,6.5820e+01_jprb/)  
kbo( :,14,11) = (/&
 & 6.5578e+01_jprb,6.4536e+01_jprb,6.3472e+01_jprb,6.2454e+01_jprb,6.1689e+01_jprb/)  
kbo( :,15,11) = (/&
 & 6.0260e+01_jprb,5.9271e+01_jprb,5.8388e+01_jprb,5.7747e+01_jprb,5.7148e+01_jprb/)  
kbo( :,16,11) = (/&
 & 5.4585e+01_jprb,5.3841e+01_jprb,5.3248e+01_jprb,5.2830e+01_jprb,5.2312e+01_jprb/)  
kbo( :,17,11) = (/&
 & 4.8861e+01_jprb,4.8416e+01_jprb,4.8107e+01_jprb,4.7718e+01_jprb,4.7237e+01_jprb/)  
kbo( :,18,11) = (/&
 & 4.3383e+01_jprb,4.3211e+01_jprb,4.2923e+01_jprb,4.2513e+01_jprb,4.2012e+01_jprb/)  
kbo( :,19,11) = (/&
 & 3.8334e+01_jprb,3.8170e+01_jprb,3.7821e+01_jprb,3.7371e+01_jprb,3.6895e+01_jprb/)  
kbo( :,20,11) = (/&
 & 3.3555e+01_jprb,3.3295e+01_jprb,3.2935e+01_jprb,3.2565e+01_jprb,3.2201e+01_jprb/)  
kbo( :,21,11) = (/&
 & 2.9039e+01_jprb,2.8767e+01_jprb,2.8509e+01_jprb,2.8236e+01_jprb,2.8026e+01_jprb/)  
kbo( :,22,11) = (/&
 & 2.4902e+01_jprb,2.4733e+01_jprb,2.4566e+01_jprb,2.4421e+01_jprb,2.4354e+01_jprb/)  
kbo( :,23,11) = (/&
 & 2.1296e+01_jprb,2.1205e+01_jprb,2.1131e+01_jprb,2.1097e+01_jprb,2.1132e+01_jprb/)  
kbo( :,24,11) = (/&
 & 1.8198e+01_jprb,1.8158e+01_jprb,1.8158e+01_jprb,1.8237e+01_jprb,1.8336e+01_jprb/)  
kbo( :,25,11) = (/&
 & 1.5544e+01_jprb,1.5571e+01_jprb,1.5662e+01_jprb,1.5796e+01_jprb,1.5933e+01_jprb/)  
kbo( :,26,11) = (/&
 & 1.3326e+01_jprb,1.3410e+01_jprb,1.3550e+01_jprb,1.3704e+01_jprb,1.3869e+01_jprb/)  
kbo( :,27,11) = (/&
 & 1.1535e+01_jprb,1.1648e+01_jprb,1.1786e+01_jprb,1.1944e+01_jprb,1.2119e+01_jprb/)  
kbo( :,28,11) = (/&
 & 1.0126e+01_jprb,1.0223e+01_jprb,1.0334e+01_jprb,1.0469e+01_jprb,1.0651e+01_jprb/)  
kbo( :,29,11) = (/&
 & 8.9101e+00_jprb,8.9853e+00_jprb,9.0819e+00_jprb,9.2309e+00_jprb,9.4172e+00_jprb/)  
kbo( :,30,11) = (/&
 & 7.8287e+00_jprb,7.9021e+00_jprb,8.0148e+00_jprb,8.1712e+00_jprb,8.3714e+00_jprb/)  
kbo( :,31,11) = (/&
 & 6.8306e+00_jprb,6.9335e+00_jprb,7.0726e+00_jprb,7.2494e+00_jprb,7.4774e+00_jprb/)  
kbo( :,32,11) = (/&
 & 5.9792e+00_jprb,6.1135e+00_jprb,6.2718e+00_jprb,6.4804e+00_jprb,6.7529e+00_jprb/)  
kbo( :,33,11) = (/&
 & 5.2618e+00_jprb,5.4133e+00_jprb,5.6076e+00_jprb,5.8571e+00_jprb,6.1763e+00_jprb/)  
kbo( :,34,11) = (/&
 & 4.6698e+00_jprb,4.8453e+00_jprb,5.0695e+00_jprb,5.3575e+00_jprb,5.7160e+00_jprb/)  
kbo( :,35,11) = (/&
 & 4.1584e+00_jprb,4.3575e+00_jprb,4.6070e+00_jprb,4.9274e+00_jprb,5.3225e+00_jprb/)  
kbo( :,36,11) = (/&
 & 3.7186e+00_jprb,3.9296e+00_jprb,4.1978e+00_jprb,4.5407e+00_jprb,4.9651e+00_jprb/)  
kbo( :,37,11) = (/&
 & 3.3279e+00_jprb,3.5372e+00_jprb,3.8098e+00_jprb,4.1628e+00_jprb,4.5979e+00_jprb/)  
kbo( :,38,11) = (/&
 & 2.9878e+00_jprb,3.1966e+00_jprb,3.4726e+00_jprb,3.8328e+00_jprb,4.2770e+00_jprb/)  

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


SUBROUTINE part6

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


kbo( :,39,11) = (/&
 & 2.6914e+00_jprb,2.9029e+00_jprb,3.1837e+00_jprb,3.5477e+00_jprb,4.0016e+00_jprb/)  
kbo( :,40,11) = (/&
 & 2.4319e+00_jprb,2.6362e+00_jprb,2.9062e+00_jprb,3.2638e+00_jprb,3.7133e+00_jprb/)  
kbo( :,41,11) = (/&
 & 2.2031e+00_jprb,2.4012e+00_jprb,2.6621e+00_jprb,3.0107e+00_jprb,3.4498e+00_jprb/)  
kbo( :,42,11) = (/&
 & 2.0013e+00_jprb,2.1930e+00_jprb,2.4477e+00_jprb,2.7865e+00_jprb,3.2158e+00_jprb/)  
kbo( :,43,11) = (/&
 & 1.8155e+00_jprb,1.9974e+00_jprb,2.2421e+00_jprb,2.5673e+00_jprb,2.9810e+00_jprb/)  
kbo( :,44,11) = (/&
 & 1.6439e+00_jprb,1.8173e+00_jprb,2.0498e+00_jprb,2.3631e+00_jprb,2.7568e+00_jprb/)  
kbo( :,45,11) = (/&
 & 1.4842e+00_jprb,1.6535e+00_jprb,1.8762e+00_jprb,2.1775e+00_jprb,2.5541e+00_jprb/)  
kbo( :,46,11) = (/&
 & 1.3346e+00_jprb,1.5007e+00_jprb,1.7141e+00_jprb,2.0007e+00_jprb,2.3614e+00_jprb/)  
kbo( :,47,11) = (/&
 & 1.1958e+00_jprb,1.3538e+00_jprb,1.5588e+00_jprb,1.8260e+00_jprb,2.1685e+00_jprb/)  
kbo( :,48,11) = (/&
 & 1.0640e+00_jprb,1.2166e+00_jprb,1.4134e+00_jprb,1.6668e+00_jprb,1.9895e+00_jprb/)  
kbo( :,49,11) = (/&
 & 9.3797e-01_jprb,1.0854e+00_jprb,1.2775e+00_jprb,1.5201e+00_jprb,1.8241e+00_jprb/)  
kbo( :,50,11) = (/&
 & 8.3668e-01_jprb,9.7538e-01_jprb,1.1607e+00_jprb,1.3932e+00_jprb,1.6808e+00_jprb/)  
kbo( :,51,11) = (/&
 & 7.5008e-01_jprb,8.7912e-01_jprb,1.0560e+00_jprb,1.2775e+00_jprb,1.5512e+00_jprb/)  
kbo( :,52,11) = (/&
 & 6.6890e-01_jprb,7.8952e-01_jprb,9.5710e-01_jprb,1.1702e+00_jprb,1.4314e+00_jprb/)  
kbo( :,53,11) = (/&
 & 5.9133e-01_jprb,7.0597e-01_jprb,8.6435e-01_jprb,1.0696e+00_jprb,1.3200e+00_jprb/)  
kbo( :,54,11) = (/&
 & 5.4247e-01_jprb,6.4706e-01_jprb,7.9188e-01_jprb,9.8503e-01_jprb,1.2232e+00_jprb/)  
kbo( :,55,11) = (/&
 & 5.1549e-01_jprb,6.0734e-01_jprb,7.3731e-01_jprb,9.1442e-01_jprb,1.1379e+00_jprb/)  
kbo( :,56,11) = (/&
 & 4.9471e-01_jprb,5.7941e-01_jprb,6.9440e-01_jprb,8.5446e-01_jprb,1.0607e+00_jprb/)  
kbo( :,57,11) = (/&
 & 4.7679e-01_jprb,5.6152e-01_jprb,6.6311e-01_jprb,8.0517e-01_jprb,9.9285e-01_jprb/)  
kbo( :,58,11) = (/&
 & 4.6722e-01_jprb,5.5574e-01_jprb,6.5140e-01_jprb,7.7485e-01_jprb,9.4214e-01_jprb/)  
kbo( :,59,11) = (/&
 & 5.1746e-01_jprb,6.2446e-01_jprb,7.3396e-01_jprb,8.4651e-01_jprb,9.8677e-01_jprb/)  
kbo( :,13,12) = (/&
 & 1.1763e+02_jprb,1.1704e+02_jprb,1.1603e+02_jprb,1.1496e+02_jprb,1.1364e+02_jprb/)  
kbo( :,14,12) = (/&
 & 1.1720e+02_jprb,1.1632e+02_jprb,1.1514e+02_jprb,1.1375e+02_jprb,1.1226e+02_jprb/)  
kbo( :,15,12) = (/&
 & 1.1432e+02_jprb,1.1304e+02_jprb,1.1152e+02_jprb,1.1000e+02_jprb,1.0842e+02_jprb/)  
kbo( :,16,12) = (/&
 & 1.0854e+02_jprb,1.0712e+02_jprb,1.0555e+02_jprb,1.0402e+02_jprb,1.0281e+02_jprb/)  
kbo( :,17,12) = (/&
 & 1.0094e+02_jprb,9.9554e+01_jprb,9.8139e+01_jprb,9.7144e+01_jprb,9.6378e+01_jprb/)  
kbo( :,18,12) = (/&
 & 9.2454e+01_jprb,9.1307e+01_jprb,9.0476e+01_jprb,8.9927e+01_jprb,8.9509e+01_jprb/)  
kbo( :,19,12) = (/&
 & 8.3732e+01_jprb,8.3060e+01_jprb,8.2781e+01_jprb,8.2603e+01_jprb,8.2376e+01_jprb/)  
kbo( :,20,12) = (/&
 & 7.5210e+01_jprb,7.5083e+01_jprb,7.5219e+01_jprb,7.5148e+01_jprb,7.5022e+01_jprb/)  
kbo( :,21,12) = (/&
 & 6.7221e+01_jprb,6.7502e+01_jprb,6.7667e+01_jprb,6.7706e+01_jprb,6.7670e+01_jprb/)  
kbo( :,22,12) = (/&
 & 5.9857e+01_jprb,6.0211e+01_jprb,6.0464e+01_jprb,6.0528e+01_jprb,6.0584e+01_jprb/)  
kbo( :,23,12) = (/&
 & 5.3034e+01_jprb,5.3411e+01_jprb,5.3657e+01_jprb,5.3849e+01_jprb,5.4089e+01_jprb/)  
kbo( :,24,12) = (/&
 & 4.6747e+01_jprb,4.7114e+01_jprb,4.7455e+01_jprb,4.7832e+01_jprb,4.8289e+01_jprb/)  
kbo( :,25,12) = (/&
 & 4.1034e+01_jprb,4.1487e+01_jprb,4.1992e+01_jprb,4.2559e+01_jprb,4.3281e+01_jprb/)  
kbo( :,26,12) = (/&
 & 3.5986e+01_jprb,3.6596e+01_jprb,3.7280e+01_jprb,3.8073e+01_jprb,3.9028e+01_jprb/)  
kbo( :,27,12) = (/&
 & 3.1660e+01_jprb,3.2405e+01_jprb,3.3245e+01_jprb,3.4269e+01_jprb,3.5471e+01_jprb/)  
kbo( :,28,12) = (/&
 & 2.7947e+01_jprb,2.8848e+01_jprb,2.9895e+01_jprb,3.1146e+01_jprb,3.2530e+01_jprb/)  
kbo( :,29,12) = (/&
 & 2.4835e+01_jprb,2.5907e+01_jprb,2.7165e+01_jprb,2.8573e+01_jprb,3.0101e+01_jprb/)  
kbo( :,30,12) = (/&
 & 2.2283e+01_jprb,2.3505e+01_jprb,2.4915e+01_jprb,2.6460e+01_jprb,2.8145e+01_jprb/)  
kbo( :,31,12) = (/&
 & 2.0220e+01_jprb,2.1547e+01_jprb,2.3078e+01_jprb,2.4775e+01_jprb,2.6630e+01_jprb/)  
kbo( :,32,12) = (/&
 & 1.8546e+01_jprb,1.9996e+01_jprb,2.1643e+01_jprb,2.3497e+01_jprb,2.5478e+01_jprb/)  
kbo( :,33,12) = (/&
 & 1.7230e+01_jprb,1.8797e+01_jprb,2.0565e+01_jprb,2.2562e+01_jprb,2.4685e+01_jprb/)  
kbo( :,34,12) = (/&
 & 1.6179e+01_jprb,1.7864e+01_jprb,1.9755e+01_jprb,2.1868e+01_jprb,2.4108e+01_jprb/)  
kbo( :,35,12) = (/&
 & 1.5234e+01_jprb,1.7011e+01_jprb,1.9013e+01_jprb,2.1222e+01_jprb,2.3546e+01_jprb/)  
kbo( :,36,12) = (/&
 & 1.4312e+01_jprb,1.6162e+01_jprb,1.8243e+01_jprb,2.0518e+01_jprb,2.2905e+01_jprb/)  
kbo( :,37,12) = (/&
 & 1.3297e+01_jprb,1.5184e+01_jprb,1.7295e+01_jprb,1.9599e+01_jprb,2.2032e+01_jprb/)  
kbo( :,38,12) = (/&
 & 1.2404e+01_jprb,1.4319e+01_jprb,1.6454e+01_jprb,1.8773e+01_jprb,2.1247e+01_jprb/)  
kbo( :,39,12) = (/&
 & 1.1631e+01_jprb,1.3561e+01_jprb,1.5713e+01_jprb,1.8045e+01_jprb,2.0533e+01_jprb/)  
kbo( :,40,12) = (/&
 & 1.0776e+01_jprb,1.2683e+01_jprb,1.4823e+01_jprb,1.7145e+01_jprb,1.9624e+01_jprb/)  
kbo( :,41,12) = (/&
 & 9.9846e+00_jprb,1.1854e+01_jprb,1.3973e+01_jprb,1.6278e+01_jprb,1.8741e+01_jprb/)  
kbo( :,42,12) = (/&
 & 9.2669e+00_jprb,1.1094e+01_jprb,1.3178e+01_jprb,1.5464e+01_jprb,1.7906e+01_jprb/)  
kbo( :,43,12) = (/&
 & 8.5220e+00_jprb,1.0286e+01_jprb,1.2314e+01_jprb,1.4565e+01_jprb,1.6968e+01_jprb/)  
kbo( :,44,12) = (/&
 & 7.8007e+00_jprb,9.4905e+00_jprb,1.1450e+01_jprb,1.3650e+01_jprb,1.6009e+01_jprb/)  
kbo( :,45,12) = (/&
 & 7.1409e+00_jprb,8.7509e+00_jprb,1.0635e+01_jprb,1.2772e+01_jprb,1.5090e+01_jprb/)  
kbo( :,46,12) = (/&
 & 6.4944e+00_jprb,8.0237e+00_jprb,9.8250e+00_jprb,1.1888e+01_jprb,1.4153e+01_jprb/)  
kbo( :,47,12) = (/&
 & 5.8398e+00_jprb,7.2873e+00_jprb,8.9871e+00_jprb,1.0958e+01_jprb,1.3150e+01_jprb/)  
kbo( :,48,12) = (/&
 & 5.2382e+00_jprb,6.6014e+00_jprb,8.2063e+00_jprb,1.0074e+01_jprb,1.2187e+01_jprb/)  
kbo( :,49,12) = (/&
 & 4.6806e+00_jprb,5.9636e+00_jprb,7.4774e+00_jprb,9.2397e+00_jprb,1.1262e+01_jprb/)  
kbo( :,50,12) = (/&
 & 4.1950e+00_jprb,5.4065e+00_jprb,6.8409e+00_jprb,8.5038e+00_jprb,1.0433e+01_jprb/)  
kbo( :,51,12) = (/&
 & 3.7601e+00_jprb,4.9006e+00_jprb,6.2541e+00_jprb,7.8347e+00_jprb,9.6656e+00_jprb/)  
kbo( :,52,12) = (/&
 & 3.3634e+00_jprb,4.4254e+00_jprb,5.7055e+00_jprb,7.2078e+00_jprb,8.9393e+00_jprb/)  
kbo( :,53,12) = (/&
 & 2.9998e+00_jprb,3.9820e+00_jprb,5.1884e+00_jprb,6.6101e+00_jprb,8.2541e+00_jprb/)  
kbo( :,54,12) = (/&
 & 2.6868e+00_jprb,3.6047e+00_jprb,4.7437e+00_jprb,6.0916e+00_jprb,7.6592e+00_jprb/)  
kbo( :,55,12) = (/&
 & 2.4117e+00_jprb,3.2705e+00_jprb,4.3398e+00_jprb,5.6205e+00_jprb,7.1187e+00_jprb/)  
kbo( :,56,12) = (/&
 & 2.1660e+00_jprb,2.9605e+00_jprb,3.9604e+00_jprb,5.1726e+00_jprb,6.6011e+00_jprb/)  
kbo( :,57,12) = (/&
 & 1.9495e+00_jprb,2.6745e+00_jprb,3.6080e+00_jprb,4.7499e+00_jprb,6.1107e+00_jprb/)  
kbo( :,58,12) = (/&
 & 1.7779e+00_jprb,2.4322e+00_jprb,3.2974e+00_jprb,4.3714e+00_jprb,5.6684e+00_jprb/)  
kbo( :,59,12) = (/&
 & 1.8044e+00_jprb,2.3958e+00_jprb,3.1943e+00_jprb,4.2235e+00_jprb,5.4952e+00_jprb/)  
kbo( :,13,13) = (/&
 & 2.0512e+02_jprb,2.0180e+02_jprb,1.9927e+02_jprb,1.9697e+02_jprb,1.9484e+02_jprb/)  
kbo( :,14,13) = (/&
 & 2.1130e+02_jprb,2.0859e+02_jprb,2.0670e+02_jprb,2.0479e+02_jprb,2.0269e+02_jprb/)  
kbo( :,15,13) = (/&
 & 2.1567e+02_jprb,2.1436e+02_jprb,2.1270e+02_jprb,2.1071e+02_jprb,2.0862e+02_jprb/)  
kbo( :,16,13) = (/&
 & 2.1924e+02_jprb,2.1808e+02_jprb,2.1632e+02_jprb,2.1429e+02_jprb,2.1205e+02_jprb/)  
kbo( :,17,13) = (/&
 & 2.1990e+02_jprb,2.1849e+02_jprb,2.1654e+02_jprb,2.1444e+02_jprb,2.1217e+02_jprb/)  
kbo( :,18,13) = (/&
 & 2.1655e+02_jprb,2.1510e+02_jprb,2.1314e+02_jprb,2.1102e+02_jprb,2.0899e+02_jprb/)  
kbo( :,19,13) = (/&
 & 2.0961e+02_jprb,2.0798e+02_jprb,2.0612e+02_jprb,2.0453e+02_jprb,2.0306e+02_jprb/)  
kbo( :,20,13) = (/&
 & 1.9928e+02_jprb,1.9792e+02_jprb,1.9688e+02_jprb,1.9606e+02_jprb,1.9544e+02_jprb/)  
kbo( :,21,13) = (/&
 & 1.8688e+02_jprb,1.8632e+02_jprb,1.8628e+02_jprb,1.8637e+02_jprb,1.8670e+02_jprb/)  
kbo( :,22,13) = (/&
 & 1.7350e+02_jprb,1.7419e+02_jprb,1.7515e+02_jprb,1.7641e+02_jprb,1.7783e+02_jprb/)  
kbo( :,23,13) = (/&
 & 1.6055e+02_jprb,1.6233e+02_jprb,1.6459e+02_jprb,1.6688e+02_jprb,1.6939e+02_jprb/)  
kbo( :,24,13) = (/&
 & 1.4859e+02_jprb,1.5153e+02_jprb,1.5476e+02_jprb,1.5830e+02_jprb,1.6165e+02_jprb/)  
kbo( :,25,13) = (/&
 & 1.3793e+02_jprb,1.4190e+02_jprb,1.4615e+02_jprb,1.5046e+02_jprb,1.5447e+02_jprb/)  
kbo( :,26,13) = (/&
 & 1.2881e+02_jprb,1.3370e+02_jprb,1.3871e+02_jprb,1.4366e+02_jprb,1.4837e+02_jprb/)  
kbo( :,27,13) = (/&
 & 1.2091e+02_jprb,1.2669e+02_jprb,1.3236e+02_jprb,1.3790e+02_jprb,1.4323e+02_jprb/)  
kbo( :,28,13) = (/&
 & 1.1443e+02_jprb,1.2084e+02_jprb,1.2716e+02_jprb,1.3332e+02_jprb,1.3925e+02_jprb/)  
kbo( :,29,13) = (/&
 & 1.0924e+02_jprb,1.1623e+02_jprb,1.2318e+02_jprb,1.2992e+02_jprb,1.3643e+02_jprb/)  
kbo( :,30,13) = (/&
 & 1.0522e+02_jprb,1.1286e+02_jprb,1.2038e+02_jprb,1.2758e+02_jprb,1.3457e+02_jprb/)  
kbo( :,31,13) = (/&
 & 1.0235e+02_jprb,1.1060e+02_jprb,1.1856e+02_jprb,1.2616e+02_jprb,1.3349e+02_jprb/)  
kbo( :,32,13) = (/&
 & 1.0060e+02_jprb,1.0929e+02_jprb,1.1766e+02_jprb,1.2555e+02_jprb,1.3305e+02_jprb/)  
kbo( :,33,13) = (/&
 & 9.9754e+01_jprb,1.0883e+02_jprb,1.1748e+02_jprb,1.2555e+02_jprb,1.3314e+02_jprb/)  
kbo( :,34,13) = (/&
 & 9.9339e+01_jprb,1.0865e+02_jprb,1.1753e+02_jprb,1.2571e+02_jprb,1.3339e+02_jprb/)  
kbo( :,35,13) = (/&
 & 9.8596e+01_jprb,1.0810e+02_jprb,1.1714e+02_jprb,1.2546e+02_jprb,1.3323e+02_jprb/)  
kbo( :,36,13) = (/&
 & 9.7185e+01_jprb,1.0690e+02_jprb,1.1612e+02_jprb,1.2461e+02_jprb,1.3247e+02_jprb/)  
kbo( :,37,13) = (/&
 & 9.4552e+01_jprb,1.0450e+02_jprb,1.1396e+02_jprb,1.2268e+02_jprb,1.3072e+02_jprb/)  
kbo( :,38,13) = (/&
 & 9.2021e+01_jprb,1.0218e+02_jprb,1.1183e+02_jprb,1.2080e+02_jprb,1.2896e+02_jprb/)  
kbo( :,39,13) = (/&
 & 8.9655e+01_jprb,1.0001e+02_jprb,1.0984e+02_jprb,1.1901e+02_jprb,1.2733e+02_jprb/)  
kbo( :,40,13) = (/&
 & 8.6395e+01_jprb,9.6898e+01_jprb,1.0693e+02_jprb,1.1637e+02_jprb,1.2493e+02_jprb/)  
kbo( :,41,13) = (/&
 & 8.3008e+01_jprb,9.3700e+01_jprb,1.0393e+02_jprb,1.1362e+02_jprb,1.2243e+02_jprb/)  
kbo( :,42,13) = (/&
 & 7.9672e+01_jprb,9.0529e+01_jprb,1.0096e+02_jprb,1.1088e+02_jprb,1.1992e+02_jprb/)  
kbo( :,43,13) = (/&
 & 7.5762e+01_jprb,8.6769e+01_jprb,9.7419e+01_jprb,1.0755e+02_jprb,1.1689e+02_jprb/)  
kbo( :,44,13) = (/&
 & 7.1629e+01_jprb,8.2730e+01_jprb,9.3566e+01_jprb,1.0394e+02_jprb,1.1358e+02_jprb/)  
kbo( :,45,13) = (/&
 & 6.7556e+01_jprb,7.8701e+01_jprb,8.9702e+01_jprb,1.0031e+02_jprb,1.1019e+02_jprb/)  
kbo( :,46,13) = (/&
 & 6.3293e+01_jprb,7.4433e+01_jprb,8.5570e+01_jprb,9.6371e+01_jprb,1.0651e+02_jprb/)  
kbo( :,47,13) = (/&
 & 5.8590e+01_jprb,6.9723e+01_jprb,8.0924e+01_jprb,9.1933e+01_jprb,1.0234e+02_jprb/)  
kbo( :,48,13) = (/&
 & 5.3939e+01_jprb,6.5035e+01_jprb,7.6260e+01_jprb,8.7442e+01_jprb,9.8085e+01_jprb/)  
kbo( :,49,13) = (/&
 & 4.9372e+01_jprb,6.0382e+01_jprb,7.1607e+01_jprb,8.2898e+01_jprb,9.3743e+01_jprb/)  
kbo( :,50,13) = (/&
 & 4.5182e+01_jprb,5.6046e+01_jprb,6.7282e+01_jprb,7.8580e+01_jprb,8.9608e+01_jprb/)  
kbo( :,51,13) = (/&
 & 4.1225e+01_jprb,5.1903e+01_jprb,6.3083e+01_jprb,7.4337e+01_jprb,8.5550e+01_jprb/)  
kbo( :,52,13) = (/&
 & 3.7400e+01_jprb,4.7849e+01_jprb,5.8911e+01_jprb,7.0135e+01_jprb,8.1453e+01_jprb/)  
kbo( :,53,13) = (/&
 & 3.3724e+01_jprb,4.3867e+01_jprb,5.4766e+01_jprb,6.5951e+01_jprb,7.7304e+01_jprb/)  
kbo( :,54,13) = (/&
 & 3.0521e+01_jprb,4.0307e+01_jprb,5.1017e+01_jprb,6.2127e+01_jprb,7.3480e+01_jprb/)  
kbo( :,55,13) = (/&
 & 2.7567e+01_jprb,3.6992e+01_jprb,4.7489e+01_jprb,5.8488e+01_jprb,6.9808e+01_jprb/)  
kbo( :,56,13) = (/&
 & 2.4765e+01_jprb,3.3801e+01_jprb,4.4027e+01_jprb,5.4887e+01_jprb,6.6150e+01_jprb/)  
kbo( :,57,13) = (/&
 & 2.2126e+01_jprb,3.0733e+01_jprb,4.0624e+01_jprb,5.1332e+01_jprb,6.2512e+01_jprb/)  
kbo( :,58,13) = (/&
 & 1.9779e+01_jprb,2.7951e+01_jprb,3.7480e+01_jprb,4.7995e+01_jprb,5.9073e+01_jprb/)  
kbo( :,59,13) = (/&
 & 1.8871e+01_jprb,2.6859e+01_jprb,3.6240e+01_jprb,4.6659e+01_jprb,5.7692e+01_jprb/)  
kbo( :,13,14) = (/&
 & 3.8707e+02_jprb,3.8322e+02_jprb,3.7871e+02_jprb,3.7328e+02_jprb,3.6786e+02_jprb/)  
kbo( :,14,14) = (/&
 & 4.1884e+02_jprb,4.1330e+02_jprb,4.0744e+02_jprb,4.0116e+02_jprb,3.9496e+02_jprb/)  
kbo( :,15,14) = (/&
 & 4.4801e+02_jprb,4.4018e+02_jprb,4.3297e+02_jprb,4.2678e+02_jprb,4.2069e+02_jprb/)  
kbo( :,16,14) = (/&
 & 4.7264e+02_jprb,4.6443e+02_jprb,4.5766e+02_jprb,4.5139e+02_jprb,4.4521e+02_jprb/)  
kbo( :,17,14) = (/&
 & 4.9540e+02_jprb,4.8838e+02_jprb,4.8129e+02_jprb,4.7490e+02_jprb,4.6866e+02_jprb/)  
kbo( :,18,14) = (/&
 & 5.1671e+02_jprb,5.0996e+02_jprb,5.0313e+02_jprb,4.9709e+02_jprb,4.9175e+02_jprb/)  
kbo( :,19,14) = (/&
 & 5.3506e+02_jprb,5.2890e+02_jprb,5.2336e+02_jprb,5.1765e+02_jprb,5.1228e+02_jprb/)  
kbo( :,20,14) = (/&
 & 5.5004e+02_jprb,5.4514e+02_jprb,5.3989e+02_jprb,5.3465e+02_jprb,5.2969e+02_jprb/)  
kbo( :,21,14) = (/&
 & 5.6147e+02_jprb,5.5729e+02_jprb,5.5301e+02_jprb,5.4855e+02_jprb,5.4414e+02_jprb/)  
kbo( :,22,14) = (/&
 & 5.6866e+02_jprb,5.6616e+02_jprb,5.6274e+02_jprb,5.5924e+02_jprb,5.5570e+02_jprb/)  
kbo( :,23,14) = (/&
 & 5.7274e+02_jprb,5.7195e+02_jprb,5.7007e+02_jprb,5.6757e+02_jprb,5.6416e+02_jprb/)  
kbo( :,24,14) = (/&
 & 5.7471e+02_jprb,5.7582e+02_jprb,5.7502e+02_jprb,5.7329e+02_jprb,5.7041e+02_jprb/)  
kbo( :,25,14) = (/&
 & 5.7535e+02_jprb,5.7804e+02_jprb,5.7836e+02_jprb,5.7753e+02_jprb,5.7582e+02_jprb/)  
kbo( :,26,14) = (/&
 & 5.7542e+02_jprb,5.7938e+02_jprb,5.8066e+02_jprb,5.8114e+02_jprb,5.8000e+02_jprb/)  
kbo( :,27,14) = (/&
 & 5.7537e+02_jprb,5.8032e+02_jprb,5.8293e+02_jprb,5.8414e+02_jprb,5.8351e+02_jprb/)  
kbo( :,28,14) = (/&
 & 5.7542e+02_jprb,5.8169e+02_jprb,5.8508e+02_jprb,5.8663e+02_jprb,5.8623e+02_jprb/)  
kbo( :,29,14) = (/&
 & 5.7592e+02_jprb,5.8334e+02_jprb,5.8700e+02_jprb,5.8877e+02_jprb,5.8850e+02_jprb/)  
kbo( :,30,14) = (/&
 & 5.7705e+02_jprb,5.8477e+02_jprb,5.8859e+02_jprb,5.9059e+02_jprb,5.9045e+02_jprb/)  
kbo( :,31,14) = (/&
 & 5.7869e+02_jprb,5.8639e+02_jprb,5.9018e+02_jprb,5.9225e+02_jprb,5.9219e+02_jprb/)  
kbo( :,32,14) = (/&
 & 5.8067e+02_jprb,5.8815e+02_jprb,5.9179e+02_jprb,5.9363e+02_jprb,5.9369e+02_jprb/)  
kbo( :,33,14) = (/&
 & 5.8279e+02_jprb,5.8990e+02_jprb,5.9323e+02_jprb,5.9481e+02_jprb,5.9486e+02_jprb/)  
kbo( :,34,14) = (/&
 & 5.8464e+02_jprb,5.9150e+02_jprb,5.9440e+02_jprb,5.9589e+02_jprb,5.9578e+02_jprb/)  
kbo( :,35,14) = (/&
 & 5.8569e+02_jprb,5.9251e+02_jprb,5.9535e+02_jprb,5.9677e+02_jprb,5.9665e+02_jprb/)  
kbo( :,36,14) = (/&
 & 5.8587e+02_jprb,5.9292e+02_jprb,5.9596e+02_jprb,5.9747e+02_jprb,5.9747e+02_jprb/)  
kbo( :,37,14) = (/&
 & 5.8477e+02_jprb,5.9243e+02_jprb,5.9596e+02_jprb,5.9792e+02_jprb,5.9828e+02_jprb/)  
kbo( :,38,14) = (/&
 & 5.8340e+02_jprb,5.9173e+02_jprb,5.9590e+02_jprb,5.9820e+02_jprb,5.9879e+02_jprb/)  
kbo( :,39,14) = (/&
 & 5.8197e+02_jprb,5.9091e+02_jprb,5.9561e+02_jprb,5.9833e+02_jprb,5.9927e+02_jprb/)  
kbo( :,40,14) = (/&
 & 5.7939e+02_jprb,5.8916e+02_jprb,5.9475e+02_jprb,5.9816e+02_jprb,5.9962e+02_jprb/)  
kbo( :,41,14) = (/&
 & 5.7608e+02_jprb,5.8699e+02_jprb,5.9359e+02_jprb,5.9774e+02_jprb,5.9982e+02_jprb/)  
kbo( :,42,14) = (/&
 & 5.7232e+02_jprb,5.8456e+02_jprb,5.9223e+02_jprb,5.9718e+02_jprb,5.9987e+02_jprb/)  

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


SUBROUTINE part7

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


kbo( :,43,14) = (/&
 & 5.6728e+02_jprb,5.8121e+02_jprb,5.9028e+02_jprb,5.9616e+02_jprb,5.9954e+02_jprb/)  
kbo( :,44,14) = (/&
 & 5.6123e+02_jprb,5.7709e+02_jprb,5.8763e+02_jprb,5.9468e+02_jprb,5.9887e+02_jprb/)  
kbo( :,45,14) = (/&
 & 5.5447e+02_jprb,5.7231e+02_jprb,5.8444e+02_jprb,5.9277e+02_jprb,5.9784e+02_jprb/)  
kbo( :,46,14) = (/&
 & 5.4640e+02_jprb,5.6618e+02_jprb,5.8043e+02_jprb,5.9039e+02_jprb,5.9653e+02_jprb/)  
kbo( :,47,14) = (/&
 & 5.3656e+02_jprb,5.5868e+02_jprb,5.7521e+02_jprb,5.8706e+02_jprb,5.9448e+02_jprb/)  
kbo( :,48,14) = (/&
 & 5.2560e+02_jprb,5.5033e+02_jprb,5.6904e+02_jprb,5.8292e+02_jprb,5.9200e+02_jprb/)  
kbo( :,49,14) = (/&
 & 5.1361e+02_jprb,5.4088e+02_jprb,5.6193e+02_jprb,5.7800e+02_jprb,5.8895e+02_jprb/)  
kbo( :,50,14) = (/&
 & 5.0091e+02_jprb,5.3110e+02_jprb,5.5541e+02_jprb,5.7270e+02_jprb,5.8551e+02_jprb/)  
kbo( :,51,14) = (/&
 & 4.8751e+02_jprb,5.2063e+02_jprb,5.4741e+02_jprb,5.6726e+02_jprb,5.8153e+02_jprb/)  
kbo( :,52,14) = (/&
 & 4.7297e+02_jprb,5.0923e+02_jprb,5.3861e+02_jprb,5.6059e+02_jprb,5.7676e+02_jprb/)  
kbo( :,53,14) = (/&
 & 4.5743e+02_jprb,4.9674e+02_jprb,5.2890e+02_jprb,5.5315e+02_jprb,5.7135e+02_jprb/)  
kbo( :,54,14) = (/&
 & 4.4140e+02_jprb,4.8429e+02_jprb,5.1910e+02_jprb,5.4570e+02_jprb,5.6577e+02_jprb/)  
kbo( :,55,14) = (/&
 & 4.2564e+02_jprb,4.7143e+02_jprb,5.0881e+02_jprb,5.3786e+02_jprb,5.5980e+02_jprb/)  
kbo( :,56,14) = (/&
 & 4.0890e+02_jprb,4.5764e+02_jprb,4.9778e+02_jprb,5.2941e+02_jprb,5.5381e+02_jprb/)  
kbo( :,57,14) = (/&
 & 3.9121e+02_jprb,4.4300e+02_jprb,4.8601e+02_jprb,5.2017e+02_jprb,5.4671e+02_jprb/)  
kbo( :,58,14) = (/&
 & 3.7355e+02_jprb,4.2830e+02_jprb,4.7408e+02_jprb,5.1067e+02_jprb,5.3936e+02_jprb/)  
kbo( :,59,14) = (/&
 & 3.6625e+02_jprb,4.2210e+02_jprb,4.6902e+02_jprb,5.0665e+02_jprb,5.3625e+02_jprb/)  
kbo( :,13,15) = (/&
 & 6.9472e+02_jprb,6.8190e+02_jprb,6.7012e+02_jprb,6.5938e+02_jprb,6.4861e+02_jprb/)  
kbo( :,14,15) = (/&
 & 7.9617e+02_jprb,7.8432e+02_jprb,7.7183e+02_jprb,7.5985e+02_jprb,7.4779e+02_jprb/)  
kbo( :,15,15) = (/&
 & 9.0905e+02_jprb,8.9621e+02_jprb,8.8202e+02_jprb,8.6871e+02_jprb,8.5523e+02_jprb/)  
kbo( :,16,15) = (/&
 & 1.0296e+03_jprb,1.0152e+03_jprb,9.9738e+02_jprb,9.8243e+02_jprb,9.6638e+02_jprb/)  
kbo( :,17,15) = (/&
 & 1.1531e+03_jprb,1.1349e+03_jprb,1.1154e+03_jprb,1.0980e+03_jprb,1.0783e+03_jprb/)  
kbo( :,18,15) = (/&
 & 1.2776e+03_jprb,1.2567e+03_jprb,1.2351e+03_jprb,1.2117e+03_jprb,1.1888e+03_jprb/)  
kbo( :,19,15) = (/&
 & 1.4027e+03_jprb,1.3760e+03_jprb,1.3510e+03_jprb,1.3233e+03_jprb,1.2971e+03_jprb/)  
kbo( :,20,15) = (/&
 & 1.5265e+03_jprb,1.4940e+03_jprb,1.4647e+03_jprb,1.4325e+03_jprb,1.4019e+03_jprb/)  
kbo( :,21,15) = (/&
 & 1.6464e+03_jprb,1.6088e+03_jprb,1.5749e+03_jprb,1.5375e+03_jprb,1.5006e+03_jprb/)  
kbo( :,22,15) = (/&
 & 1.7545e+03_jprb,1.7140e+03_jprb,1.6756e+03_jprb,1.6321e+03_jprb,1.5896e+03_jprb/)  
kbo( :,23,15) = (/&
 & 1.8570e+03_jprb,1.8142e+03_jprb,1.7654e+03_jprb,1.7168e+03_jprb,1.6706e+03_jprb/)  
kbo( :,24,15) = (/&
 & 1.9478e+03_jprb,1.8990e+03_jprb,1.8442e+03_jprb,1.7915e+03_jprb,1.7417e+03_jprb/)  
kbo( :,25,15) = (/&
 & 2.0258e+03_jprb,1.9727e+03_jprb,1.9128e+03_jprb,1.8556e+03_jprb,1.8012e+03_jprb/)  
kbo( :,26,15) = (/&
 & 2.0908e+03_jprb,2.0335e+03_jprb,1.9696e+03_jprb,1.9080e+03_jprb,1.8501e+03_jprb/)  
kbo( :,27,15) = (/&
 & 2.1446e+03_jprb,2.0838e+03_jprb,2.0154e+03_jprb,1.9506e+03_jprb,1.8894e+03_jprb/)  
kbo( :,28,15) = (/&
 & 2.1876e+03_jprb,2.1227e+03_jprb,2.0508e+03_jprb,1.9839e+03_jprb,1.9200e+03_jprb/)  
kbo( :,29,15) = (/&
 & 2.2206e+03_jprb,2.1519e+03_jprb,2.0777e+03_jprb,2.0084e+03_jprb,1.9419e+03_jprb/)  
kbo( :,30,15) = (/&
 & 2.2449e+03_jprb,2.1734e+03_jprb,2.0968e+03_jprb,2.0255e+03_jprb,1.9570e+03_jprb/)  
kbo( :,31,15) = (/&
 & 2.2605e+03_jprb,2.1872e+03_jprb,2.1090e+03_jprb,2.0359e+03_jprb,1.9658e+03_jprb/)  
kbo( :,32,15) = (/&
 & 2.2689e+03_jprb,2.1943e+03_jprb,2.1149e+03_jprb,2.0406e+03_jprb,1.9691e+03_jprb/)  
kbo( :,33,15) = (/&
 & 2.2716e+03_jprb,2.1958e+03_jprb,2.1158e+03_jprb,2.0406e+03_jprb,1.9683e+03_jprb/)  
kbo( :,34,15) = (/&
 & 2.2726e+03_jprb,2.1959e+03_jprb,2.1153e+03_jprb,2.0395e+03_jprb,1.9664e+03_jprb/)  
kbo( :,35,15) = (/&
 & 2.2780e+03_jprb,2.2004e+03_jprb,2.1189e+03_jprb,2.0426e+03_jprb,1.9688e+03_jprb/)  
kbo( :,36,15) = (/&
 & 2.2896e+03_jprb,2.2110e+03_jprb,2.1289e+03_jprb,2.0514e+03_jprb,1.9767e+03_jprb/)  
kbo( :,37,15) = (/&
 & 2.3120e+03_jprb,2.2323e+03_jprb,2.1486e+03_jprb,2.0699e+03_jprb,1.9941e+03_jprb/)  
kbo( :,38,15) = (/&
 & 2.3338e+03_jprb,2.2528e+03_jprb,2.1676e+03_jprb,2.0877e+03_jprb,2.0113e+03_jprb/)  
kbo( :,39,15) = (/&
 & 2.3539e+03_jprb,2.2719e+03_jprb,2.1856e+03_jprb,2.1045e+03_jprb,2.0272e+03_jprb/)  
kbo( :,40,15) = (/&
 & 2.3870e+03_jprb,2.2992e+03_jprb,2.2111e+03_jprb,2.1286e+03_jprb,2.0498e+03_jprb/)  
kbo( :,41,15) = (/&
 & 2.4163e+03_jprb,2.3270e+03_jprb,2.2370e+03_jprb,2.1533e+03_jprb,2.0730e+03_jprb/)  
kbo( :,42,15) = (/&
 & 2.4453e+03_jprb,2.3543e+03_jprb,2.2627e+03_jprb,2.1777e+03_jprb,2.0960e+03_jprb/)  
kbo( :,43,15) = (/&
 & 2.4791e+03_jprb,2.3868e+03_jprb,2.2928e+03_jprb,2.2066e+03_jprb,2.1231e+03_jprb/)  
kbo( :,44,15) = (/&
 & 2.5148e+03_jprb,2.4212e+03_jprb,2.3254e+03_jprb,2.2375e+03_jprb,2.1527e+03_jprb/)  
kbo( :,45,15) = (/&
 & 2.5507e+03_jprb,2.4560e+03_jprb,2.3582e+03_jprb,2.2685e+03_jprb,2.1823e+03_jprb/)  
kbo( :,46,15) = (/&
 & 2.5882e+03_jprb,2.4891e+03_jprb,2.3936e+03_jprb,2.3018e+03_jprb,2.2138e+03_jprb/)  
kbo( :,47,15) = (/&
 & 2.6293e+03_jprb,2.5303e+03_jprb,2.4336e+03_jprb,2.3391e+03_jprb,2.2494e+03_jprb/)  
kbo( :,48,15) = (/&
 & 2.6705e+03_jprb,2.5712e+03_jprb,2.4742e+03_jprb,2.3769e+03_jprb,2.2856e+03_jprb/)  
kbo( :,49,15) = (/&
 & 2.7114e+03_jprb,2.6125e+03_jprb,2.5152e+03_jprb,2.4156e+03_jprb,2.3224e+03_jprb/)  
kbo( :,50,15) = (/&
 & 2.7491e+03_jprb,2.6508e+03_jprb,2.5540e+03_jprb,2.4523e+03_jprb,2.3573e+03_jprb/)  
kbo( :,51,15) = (/&
 & 2.7853e+03_jprb,2.6877e+03_jprb,2.5908e+03_jprb,2.4896e+03_jprb,2.3917e+03_jprb/)  
kbo( :,52,15) = (/&
 & 2.8208e+03_jprb,2.7242e+03_jprb,2.6274e+03_jprb,2.5261e+03_jprb,2.4271e+03_jprb/)  
kbo( :,53,15) = (/&
 & 2.8545e+03_jprb,2.7603e+03_jprb,2.6642e+03_jprb,2.5626e+03_jprb,2.4630e+03_jprb/)  
kbo( :,54,15) = (/&
 & 2.8809e+03_jprb,2.7931e+03_jprb,2.6980e+03_jprb,2.5960e+03_jprb,2.4960e+03_jprb/)  
kbo( :,55,15) = (/&
 & 2.9090e+03_jprb,2.8236e+03_jprb,2.7303e+03_jprb,2.6276e+03_jprb,2.5279e+03_jprb/)  
kbo( :,56,15) = (/&
 & 2.9353e+03_jprb,2.8536e+03_jprb,2.7620e+03_jprb,2.6592e+03_jprb,2.5632e+03_jprb/)  
kbo( :,57,15) = (/&
 & 2.9603e+03_jprb,2.8821e+03_jprb,2.7934e+03_jprb,2.6910e+03_jprb,2.5953e+03_jprb/)  
kbo( :,58,15) = (/&
 & 2.9819e+03_jprb,2.9080e+03_jprb,2.8223e+03_jprb,2.7212e+03_jprb,2.6255e+03_jprb/)  
kbo( :,59,15) = (/&
 & 2.9898e+03_jprb,2.9181e+03_jprb,2.8340e+03_jprb,2.7333e+03_jprb,2.6376e+03_jprb/)  
kbo( :,13,16) = (/&
 & 9.2927e+02_jprb,9.0834e+02_jprb,8.8939e+02_jprb,8.8213e+02_jprb,8.7527e+02_jprb/)  
kbo( :,14,16) = (/&
 & 1.1173e+03_jprb,1.0898e+03_jprb,1.0649e+03_jprb,1.0517e+03_jprb,1.0398e+03_jprb/)  
kbo( :,15,16) = (/&
 & 1.3390e+03_jprb,1.3003e+03_jprb,1.2694e+03_jprb,1.2485e+03_jprb,1.2287e+03_jprb/)  
kbo( :,16,16) = (/&
 & 1.5922e+03_jprb,1.5426e+03_jprb,1.5018e+03_jprb,1.4720e+03_jprb,1.4416e+03_jprb/)  
kbo( :,17,16) = (/&
 & 1.8814e+03_jprb,1.8176e+03_jprb,1.7654e+03_jprb,1.7224e+03_jprb,1.6795e+03_jprb/)  
kbo( :,18,16) = (/&
 & 2.2031e+03_jprb,2.1229e+03_jprb,2.0590e+03_jprb,1.9971e+03_jprb,1.9384e+03_jprb/)  
kbo( :,19,16) = (/&
 & 2.5548e+03_jprb,2.4553e+03_jprb,2.3724e+03_jprb,2.2895e+03_jprb,2.2135e+03_jprb/)  
kbo( :,20,16) = (/&
 & 2.9295e+03_jprb,2.8050e+03_jprb,2.6977e+03_jprb,2.5929e+03_jprb,2.4952e+03_jprb/)  
kbo( :,21,16) = (/&
 & 3.3178e+03_jprb,3.1609e+03_jprb,3.0264e+03_jprb,2.8971e+03_jprb,2.7751e+03_jprb/)  
kbo( :,22,16) = (/&
 & 3.6887e+03_jprb,3.5013e+03_jprb,3.3414e+03_jprb,3.1845e+03_jprb,3.0382e+03_jprb/)  
kbo( :,23,16) = (/&
 & 4.0451e+03_jprb,3.8382e+03_jprb,3.6372e+03_jprb,3.4533e+03_jprb,3.2810e+03_jprb/)  
kbo( :,24,16) = (/&
 & 4.3758e+03_jprb,4.1366e+03_jprb,3.9051e+03_jprb,3.6946e+03_jprb,3.4976e+03_jprb/)  
kbo( :,25,16) = (/&
 & 4.6718e+03_jprb,4.3974e+03_jprb,4.1374e+03_jprb,3.9025e+03_jprb,3.6844e+03_jprb/)  
kbo( :,26,16) = (/&
 & 4.9191e+03_jprb,4.6159e+03_jprb,4.3305e+03_jprb,4.0724e+03_jprb,3.8356e+03_jprb/)  
kbo( :,27,16) = (/&
 & 5.1211e+03_jprb,4.7932e+03_jprb,4.4865e+03_jprb,4.2071e+03_jprb,3.9560e+03_jprb/)  
kbo( :,28,16) = (/&
 & 5.2790e+03_jprb,4.9305e+03_jprb,4.6056e+03_jprb,4.3100e+03_jprb,4.0465e+03_jprb/)  
kbo( :,29,16) = (/&
 & 5.3926e+03_jprb,5.0282e+03_jprb,4.6893e+03_jprb,4.3812e+03_jprb,4.1090e+03_jprb/)  
kbo( :,30,16) = (/&
 & 5.4669e+03_jprb,5.0909e+03_jprb,4.7431e+03_jprb,4.4273e+03_jprb,4.1484e+03_jprb/)  
kbo( :,31,16) = (/&
 & 5.5059e+03_jprb,5.1237e+03_jprb,4.7693e+03_jprb,4.4498e+03_jprb,4.1668e+03_jprb/)  
kbo( :,32,16) = (/&
 & 5.5159e+03_jprb,5.1307e+03_jprb,4.7740e+03_jprb,4.4530e+03_jprb,4.1682e+03_jprb/)  
kbo( :,33,16) = (/&
 & 5.5016e+03_jprb,5.1180e+03_jprb,4.7604e+03_jprb,4.4403e+03_jprb,4.1565e+03_jprb/)  
kbo( :,34,16) = (/&
 & 5.4845e+03_jprb,5.1021e+03_jprb,4.7448e+03_jprb,4.4256e+03_jprb,4.1432e+03_jprb/)  
kbo( :,35,16) = (/&
 & 5.4942e+03_jprb,5.1092e+03_jprb,4.7499e+03_jprb,4.4299e+03_jprb,4.1471e+03_jprb/)  
kbo( :,36,16) = (/&
 & 5.5382e+03_jprb,5.1472e+03_jprb,4.7829e+03_jprb,4.4591e+03_jprb,4.1726e+03_jprb/)  
kbo( :,37,16) = (/&
 & 5.6404e+03_jprb,5.2373e+03_jprb,4.8618e+03_jprb,4.5288e+03_jprb,4.2337e+03_jprb/)  
kbo( :,38,16) = (/&
 & 5.7408e+03_jprb,5.3251e+03_jprb,4.9400e+03_jprb,4.5977e+03_jprb,4.2959e+03_jprb/)  
kbo( :,39,16) = (/&
 & 5.8371e+03_jprb,5.4104e+03_jprb,5.0144e+03_jprb,4.6631e+03_jprb,4.3540e+03_jprb/)  
kbo( :,40,16) = (/&
 & 5.9951e+03_jprb,5.5360e+03_jprb,5.1266e+03_jprb,4.7607e+03_jprb,4.4409e+03_jprb/)  
kbo( :,41,16) = (/&
 & 6.1460e+03_jprb,5.6683e+03_jprb,5.2438e+03_jprb,4.8629e+03_jprb,4.5331e+03_jprb/)  
kbo( :,42,16) = (/&
 & 6.2988e+03_jprb,5.8023e+03_jprb,5.3625e+03_jprb,4.9665e+03_jprb,4.6258e+03_jprb/)  
kbo( :,43,16) = (/&
 & 6.4883e+03_jprb,5.9649e+03_jprb,5.5067e+03_jprb,5.0922e+03_jprb,4.7383e+03_jprb/)  
kbo( :,44,16) = (/&
 & 6.6999e+03_jprb,6.1469e+03_jprb,5.6668e+03_jprb,5.2323e+03_jprb,4.8626e+03_jprb/)  
kbo( :,45,16) = (/&
 & 6.9195e+03_jprb,6.3372e+03_jprb,5.8320e+03_jprb,5.3771e+03_jprb,4.9912e+03_jprb/)  
kbo( :,46,16) = (/&
 & 7.1659e+03_jprb,6.5469e+03_jprb,6.0143e+03_jprb,5.5360e+03_jprb,5.1328e+03_jprb/)  
kbo( :,47,16) = (/&
 & 7.4570e+03_jprb,6.7935e+03_jprb,6.2257e+03_jprb,5.7237e+03_jprb,5.2972e+03_jprb/)  
kbo( :,48,16) = (/&
 & 7.7630e+03_jprb,7.0556e+03_jprb,6.4469e+03_jprb,5.9204e+03_jprb,5.4684e+03_jprb/)  
kbo( :,49,16) = (/&
 & 8.0892e+03_jprb,7.3332e+03_jprb,6.6834e+03_jprb,6.1280e+03_jprb,5.6471e+03_jprb/)  
kbo( :,50,16) = (/&
 & 8.4185e+03_jprb,7.6100e+03_jprb,6.9229e+03_jprb,6.3324e+03_jprb,5.8236e+03_jprb/)  
kbo( :,51,16) = (/&
 & 8.7578e+03_jprb,7.8949e+03_jprb,7.1667e+03_jprb,6.5320e+03_jprb,6.0026e+03_jprb/)  
kbo( :,52,16) = (/&
 & 9.1141e+03_jprb,8.1976e+03_jprb,7.4241e+03_jprb,6.7492e+03_jprb,6.1897e+03_jprb/)  
kbo( :,53,16) = (/&
 & 9.4976e+03_jprb,8.5191e+03_jprb,7.6952e+03_jprb,6.9807e+03_jprb,6.3873e+03_jprb/)  
kbo( :,54,16) = (/&
 & 9.8568e+03_jprb,8.8303e+03_jprb,7.9588e+03_jprb,7.2035e+03_jprb,6.5794e+03_jprb/)  
kbo( :,55,16) = (/&
 & 1.0230e+04_jprb,9.1463e+03_jprb,8.2248e+03_jprb,7.4320e+03_jprb,6.7726e+03_jprb/)  
kbo( :,56,16) = (/&
 & 1.0624e+04_jprb,9.4808e+03_jprb,8.5054e+03_jprb,7.6701e+03_jprb,6.9720e+03_jprb/)  
kbo( :,57,16) = (/&
 & 1.1039e+04_jprb,9.8338e+03_jprb,8.8017e+03_jprb,7.9194e+03_jprb,7.1847e+03_jprb/)  
kbo( :,58,16) = (/&
 & 1.1458e+04_jprb,1.0189e+04_jprb,9.0957e+03_jprb,8.1671e+03_jprb,7.3970e+03_jprb/)  
kbo( :,59,16) = (/&
 & 1.1633e+04_jprb,1.0336e+04_jprb,9.2185e+03_jprb,8.2700e+03_jprb,7.4844e+03_jprb/)  

!     The array SELFREFO contains the coefficient of the water vapor
!     self-continuum (including the energy term).  The first index
!     refers to temperature in 7.2 degree increments.  For instance,
!     JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8,
!     etc.  The second index runs over the g-channel (1 to 16).

selfrefo( :, 1) = (/&
 & 5.95900e-01_jprb, 5.48533e-01_jprb, 5.04931e-01_jprb, 4.64796e-01_jprb, 4.27850e-01_jprb,&
 & 3.93841e-01_jprb, 3.62536e-01_jprb, 3.33719e-01_jprb, 3.07192e-01_jprb, 2.82774e-01_jprb/)  
selfrefo( :, 2) = (/&
 & 7.47113e-01_jprb, 6.83084e-01_jprb, 6.24541e-01_jprb, 5.71016e-01_jprb, 5.22079e-01_jprb,&
 & 4.77335e-01_jprb, 4.36426e-01_jprb, 3.99023e-01_jprb, 3.64826e-01_jprb, 3.33559e-01_jprb/)  
selfrefo( :, 3) = (/&
 & 7.85964e-01_jprb, 7.20327e-01_jprb, 6.60171e-01_jprb, 6.05039e-01_jprb, 5.54511e-01_jprb,&
 & 5.08203e-01_jprb, 4.65762e-01_jprb, 4.26866e-01_jprb, 3.91218e-01_jprb, 3.58546e-01_jprb/)  
selfrefo( :, 4) = (/&
 & 8.12851e-01_jprb, 7.45432e-01_jprb, 6.83605e-01_jprb, 6.26905e-01_jprb, 5.74908e-01_jprb,&
 & 5.27225e-01_jprb, 4.83496e-01_jprb, 4.43394e-01_jprb, 4.06618e-01_jprb, 3.72892e-01_jprb/)  
selfrefo( :, 5) = (/&
 & 8.13391e-01_jprb, 7.46128e-01_jprb, 6.84427e-01_jprb, 6.27828e-01_jprb, 5.75909e-01_jprb,&
 & 5.28284e-01_jprb, 4.84598e-01_jprb, 4.44524e-01_jprb, 4.07764e-01_jprb, 3.74044e-01_jprb/)  
selfrefo( :, 6) = (/&
 & 8.11843e-01_jprb, 7.44722e-01_jprb, 6.83151e-01_jprb, 6.26670e-01_jprb, 5.74858e-01_jprb,&
 & 5.27331e-01_jprb, 4.83733e-01_jprb, 4.43739e-01_jprb, 4.07052e-01_jprb, 3.73398e-01_jprb/)  
selfrefo( :, 7) = (/&
 & 8.13885e-01_jprb, 7.48643e-01_jprb, 6.88631e-01_jprb, 6.33429e-01_jprb, 5.82652e-01_jprb,&
 & 5.35946e-01_jprb, 4.92984e-01_jprb, 4.53465e-01_jprb, 4.17115e-01_jprb, 3.83678e-01_jprb/)  
selfrefo( :, 8) = (/&
 & 8.24139e-01_jprb, 7.57334e-01_jprb, 6.95944e-01_jprb, 6.39531e-01_jprb, 5.87690e-01_jprb,&
 & 5.40052e-01_jprb, 4.96275e-01_jprb, 4.56047e-01_jprb, 4.19079e-01_jprb, 3.85109e-01_jprb/)  
selfrefo( :, 9) = (/&
 & 8.30928e-01_jprb, 7.64239e-01_jprb, 7.02903e-01_jprb, 6.46490e-01_jprb, 5.94604e-01_jprb,&
 & 5.46882e-01_jprb, 5.02990e-01_jprb, 4.62622e-01_jprb, 4.25493e-01_jprb, 3.91344e-01_jprb/)  
selfrefo( :,10) = (/&
 & 8.66448e-01_jprb, 7.91238e-01_jprb, 7.22557e-01_jprb, 6.59838e-01_jprb, 6.02563e-01_jprb,&
 & 5.50259e-01_jprb, 5.02495e-01_jprb, 4.58878e-01_jprb, 4.19046e-01_jprb, 3.82672e-01_jprb/)  
selfrefo( :,11) = (/&
 & 8.51827e-01_jprb, 7.79605e-01_jprb, 7.13506e-01_jprb, 6.53012e-01_jprb, 5.97647e-01_jprb,&
 & 5.46975e-01_jprb, 5.00600e-01_jprb, 4.58157e-01_jprb, 4.19312e-01_jprb, 3.83761e-01_jprb/)  
selfrefo( :,12) = (/&
 & 8.39267e-01_jprb, 7.72292e-01_jprb, 7.10661e-01_jprb, 6.53949e-01_jprb, 6.01762e-01_jprb,&
 & 5.53740e-01_jprb, 5.09550e-01_jprb, 4.68887e-01_jprb, 4.31469e-01_jprb, 3.97036e-01_jprb/)  
selfrefo( :,13) = (/&
 & 8.36265e-01_jprb, 7.69768e-01_jprb, 7.08558e-01_jprb, 6.52215e-01_jprb, 6.00353e-01_jprb,&
 & 5.52615e-01_jprb, 5.08672e-01_jprb, 4.68224e-01_jprb, 4.30992e-01_jprb, 3.96721e-01_jprb/)  
selfrefo( :,14) = (/&
 & 8.73722e-01_jprb, 8.03395e-01_jprb, 7.38728e-01_jprb, 6.79267e-01_jprb, 6.24592e-01_jprb,&
 & 5.74318e-01_jprb, 5.28090e-01_jprb, 4.85583e-01_jprb, 4.46498e-01_jprb, 4.10559e-01_jprb/)  
selfrefo( :,15) = (/&
 & 9.08371e-01_jprb, 8.34388e-01_jprb, 7.66431e-01_jprb, 7.04009e-01_jprb, 6.46670e-01_jprb,&
 & 5.94002e-01_jprb, 5.45623e-01_jprb, 5.01184e-01_jprb, 4.60365e-01_jprb, 4.22870e-01_jprb/)  
selfrefo( :,16) = (/&
 & 9.88709e-01_jprb, 8.99303e-01_jprb, 8.17981e-01_jprb, 7.44014e-01_jprb, 6.76735e-01_jprb,&
 & 6.15540e-01_jprb, 5.59878e-01_jprb, 5.09250e-01_jprb, 4.63200e-01_jprb, 4.21315e-01_jprb/)  

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


END SUBROUTINE rrtm_kgb11