rrtm_kgb10.F90

Go to the documentation of this file.

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

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

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

IMPLICIT NONE
REAL(KIND=JPRB) :: ZHOOK_HANDLE

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

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

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

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

CONTAINS


SUBROUTINE part1

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


fracrefao( :) = (/&
 !     From P = 473 mb.
 & 0.16271301_jprb,0.15141940_jprb,0.14065412_jprb,0.12899506_jprb,&
 & 0.11607002_jprb,0.10142808_jprb,0.08116794_jprb,0.06104711_jprb,&
 & 0.04146209_jprb,0.00447386_jprb,0.00372902_jprb,0.00287258_jprb,&
 & 0.00206028_jprb,0.00134634_jprb,0.00049232_jprb,0.00006927_jprb/)  

fracrefbo( :) = (/&
 !     From P = 1.17 mb.
 & 0.16571465_jprb,0.15262246_jprb,0.14036226_jprb,0.12620729_jprb,&
 & 0.11477834_jprb,0.09967982_jprb,0.08155201_jprb,0.06159503_jprb,&
 & 0.04196607_jprb,0.00453940_jprb,0.00376881_jprb,0.00300437_jprb,&
 & 0.00223034_jprb,0.00139432_jprb,0.00051516_jprb,0.00007095_jprb/)  

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

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

kao( :, 1, 1) = (/&
 & 4.3436e-02_jprb,4.4287e-02_jprb,4.5209e-02_jprb,4.6235e-02_jprb,4.7373e-02_jprb/)  
kao( :, 2, 1) = (/&
 & 3.3904e-02_jprb,3.4737e-02_jprb,3.5589e-02_jprb,3.6523e-02_jprb,3.7507e-02_jprb/)  
kao( :, 3, 1) = (/&
 & 2.6121e-02_jprb,2.6913e-02_jprb,2.7706e-02_jprb,2.8545e-02_jprb,2.9408e-02_jprb/)  
kao( :, 4, 1) = (/&
 & 2.0504e-02_jprb,2.1226e-02_jprb,2.1920e-02_jprb,2.2632e-02_jprb,2.3375e-02_jprb/)  
kao( :, 5, 1) = (/&
 & 1.6329e-02_jprb,1.6959e-02_jprb,1.7565e-02_jprb,1.8162e-02_jprb,1.8767e-02_jprb/)  
kao( :, 6, 1) = (/&
 & 1.3082e-02_jprb,1.3618e-02_jprb,1.4143e-02_jprb,1.4651e-02_jprb,1.5156e-02_jprb/)  
kao( :, 7, 1) = (/&
 & 1.0505e-02_jprb,1.0980e-02_jprb,1.1432e-02_jprb,1.1872e-02_jprb,1.2303e-02_jprb/)  
kao( :, 8, 1) = (/&
 & 8.4782e-03_jprb,8.9309e-03_jprb,9.3409e-03_jprb,9.7321e-03_jprb,1.0116e-02_jprb/)  
kao( :, 9, 1) = (/&
 & 7.0083e-03_jprb,7.5470e-03_jprb,8.0513e-03_jprb,8.5154e-03_jprb,8.9405e-03_jprb/)  
kao( :,10, 1) = (/&
 & 6.2679e-03_jprb,6.8607e-03_jprb,7.4696e-03_jprb,8.0836e-03_jprb,8.7113e-03_jprb/)  
kao( :,11, 1) = (/&
 & 5.5738e-03_jprb,6.1775e-03_jprb,6.7768e-03_jprb,7.3796e-03_jprb,7.9869e-03_jprb/)  
kao( :,12, 1) = (/&
 & 4.8170e-03_jprb,5.3653e-03_jprb,5.9132e-03_jprb,6.4615e-03_jprb,6.9965e-03_jprb/)  
kao( :,13, 1) = (/&
 & 4.0124e-03_jprb,4.4686e-03_jprb,4.9254e-03_jprb,5.3837e-03_jprb,5.8220e-03_jprb/)  
kao( :, 1, 2) = (/&
 & 7.6052e-02_jprb,7.8155e-02_jprb,8.0398e-02_jprb,8.2890e-02_jprb,8.5349e-02_jprb/)  
kao( :, 2, 2) = (/&
 & 5.9857e-02_jprb,6.1820e-02_jprb,6.3993e-02_jprb,6.6271e-02_jprb,6.8386e-02_jprb/)  
kao( :, 3, 2) = (/&
 & 4.6547e-02_jprb,4.8389e-02_jprb,5.0377e-02_jprb,5.2388e-02_jprb,5.4300e-02_jprb/)  
kao( :, 4, 2) = (/&
 & 3.6687e-02_jprb,3.8357e-02_jprb,4.0103e-02_jprb,4.1837e-02_jprb,4.3530e-02_jprb/)  
kao( :, 5, 2) = (/&
 & 2.9237e-02_jprb,3.0733e-02_jprb,3.2226e-02_jprb,3.3703e-02_jprb,3.5156e-02_jprb/)  
kao( :, 6, 2) = (/&
 & 2.3348e-02_jprb,2.4684e-02_jprb,2.5978e-02_jprb,2.7223e-02_jprb,2.8447e-02_jprb/)  
kao( :, 7, 2) = (/&
 & 1.8712e-02_jprb,1.9885e-02_jprb,2.1023e-02_jprb,2.2089e-02_jprb,2.3117e-02_jprb/)  
kao( :, 8, 2) = (/&
 & 1.5248e-02_jprb,1.6226e-02_jprb,1.7260e-02_jprb,1.8206e-02_jprb,1.9081e-02_jprb/)  
kao( :, 9, 2) = (/&
 & 1.3662e-02_jprb,1.4539e-02_jprb,1.5452e-02_jprb,1.6398e-02_jprb,1.7332e-02_jprb/)  
kao( :,10, 2) = (/&
 & 1.5758e-02_jprb,1.7065e-02_jprb,1.8351e-02_jprb,1.9608e-02_jprb,2.0713e-02_jprb/)  
kao( :,11, 2) = (/&
 & 1.5809e-02_jprb,1.7330e-02_jprb,1.8795e-02_jprb,2.0165e-02_jprb,2.1363e-02_jprb/)  
kao( :,12, 2) = (/&
 & 1.4427e-02_jprb,1.5923e-02_jprb,1.7365e-02_jprb,1.8668e-02_jprb,1.9829e-02_jprb/)  
kao( :,13, 2) = (/&
 & 1.2159e-02_jprb,1.3438e-02_jprb,1.4645e-02_jprb,1.5727e-02_jprb,1.6711e-02_jprb/)  
kao( :, 1, 3) = (/&
 & 1.1941e-01_jprb,1.2154e-01_jprb,1.2325e-01_jprb,1.2478e-01_jprb,1.2668e-01_jprb/)  
kao( :, 2, 3) = (/&
 & 9.4949e-02_jprb,9.7174e-02_jprb,9.8951e-02_jprb,1.0048e-01_jprb,1.0239e-01_jprb/)  
kao( :, 3, 3) = (/&
 & 7.4601e-02_jprb,7.6873e-02_jprb,7.8765e-02_jprb,8.0479e-02_jprb,8.2213e-02_jprb/)  
kao( :, 4, 3) = (/&
 & 5.9324e-02_jprb,6.1532e-02_jprb,6.3434e-02_jprb,6.5160e-02_jprb,6.6762e-02_jprb/)  
kao( :, 5, 3) = (/&
 & 4.7627e-02_jprb,4.9624e-02_jprb,5.1388e-02_jprb,5.3000e-02_jprb,5.4460e-02_jprb/)  
kao( :, 6, 3) = (/&
 & 3.8325e-02_jprb,4.0081e-02_jprb,4.1660e-02_jprb,4.3161e-02_jprb,4.4493e-02_jprb/)  
kao( :, 7, 3) = (/&
 & 3.1008e-02_jprb,3.2491e-02_jprb,3.3918e-02_jprb,3.5275e-02_jprb,3.6482e-02_jprb/)  
kao( :, 8, 3) = (/&
 & 2.5375e-02_jprb,2.6683e-02_jprb,2.7918e-02_jprb,2.9119e-02_jprb,3.0227e-02_jprb/)  
kao( :, 9, 3) = (/&
 & 2.2773e-02_jprb,2.4067e-02_jprb,2.5227e-02_jprb,2.6300e-02_jprb,2.7274e-02_jprb/)  
kao( :,10, 3) = (/&
 & 2.5056e-02_jprb,2.7108e-02_jprb,2.9103e-02_jprb,3.1105e-02_jprb,3.2910e-02_jprb/)  
kao( :,11, 3) = (/&
 & 2.5964e-02_jprb,2.7973e-02_jprb,2.9944e-02_jprb,3.1965e-02_jprb,3.4025e-02_jprb/)  
kao( :,12, 3) = (/&
 & 2.4537e-02_jprb,2.6383e-02_jprb,2.8189e-02_jprb,3.0029e-02_jprb,3.1820e-02_jprb/)  
kao( :,13, 3) = (/&
 & 2.0785e-02_jprb,2.2351e-02_jprb,2.3915e-02_jprb,2.5481e-02_jprb,2.6957e-02_jprb/)  
kao( :, 1, 4) = (/&
 & 1.7062e-01_jprb,1.7437e-01_jprb,1.7838e-01_jprb,1.8288e-01_jprb,1.8787e-01_jprb/)  
kao( :, 2, 4) = (/&
 & 1.3654e-01_jprb,1.4010e-01_jprb,1.4403e-01_jprb,1.4850e-01_jprb,1.5295e-01_jprb/)  
kao( :, 3, 4) = (/&
 & 1.0835e-01_jprb,1.1169e-01_jprb,1.1522e-01_jprb,1.1900e-01_jprb,1.2314e-01_jprb/)  
kao( :, 4, 4) = (/&
 & 8.6891e-02_jprb,8.9909e-02_jprb,9.2966e-02_jprb,9.6155e-02_jprb,9.9768e-02_jprb/)  
kao( :, 5, 4) = (/&
 & 7.0296e-02_jprb,7.2932e-02_jprb,7.5596e-02_jprb,7.8371e-02_jprb,8.1518e-02_jprb/)  
kao( :, 6, 4) = (/&
 & 5.7106e-02_jprb,5.9401e-02_jprb,6.1747e-02_jprb,6.4154e-02_jprb,6.6823e-02_jprb/)  
kao( :, 7, 4) = (/&
 & 4.6442e-02_jprb,4.8507e-02_jprb,5.0535e-02_jprb,5.2614e-02_jprb,5.4880e-02_jprb/)  
kao( :, 8, 4) = (/&
 & 3.8129e-02_jprb,3.9923e-02_jprb,4.1657e-02_jprb,4.3454e-02_jprb,4.5387e-02_jprb/)  
kao( :, 9, 4) = (/&
 & 3.3848e-02_jprb,3.5287e-02_jprb,3.6775e-02_jprb,3.8335e-02_jprb,4.0012e-02_jprb/)  
kao( :,10, 4) = (/&
 & 4.0975e-02_jprb,4.3174e-02_jprb,4.4060e-02_jprb,4.4660e-02_jprb,4.5678e-02_jprb/)  
kao( :,11, 4) = (/&
 & 4.1946e-02_jprb,4.4641e-02_jprb,4.6896e-02_jprb,4.7962e-02_jprb,4.8832e-02_jprb/)  
kao( :,12, 4) = (/&
 & 3.9213e-02_jprb,4.1960e-02_jprb,4.4202e-02_jprb,4.5849e-02_jprb,4.6828e-02_jprb/)  
kao( :,13, 4) = (/&
 & 3.3349e-02_jprb,3.5638e-02_jprb,3.7527e-02_jprb,3.8919e-02_jprb,3.9723e-02_jprb/)  
kao( :, 1, 5) = (/&
 & 2.9031e-01_jprb,3.0033e-01_jprb,3.0967e-01_jprb,3.1844e-01_jprb,3.2668e-01_jprb/)  
kao( :, 2, 5) = (/&
 & 2.3357e-01_jprb,2.4199e-01_jprb,2.5006e-01_jprb,2.5762e-01_jprb,2.6525e-01_jprb/)  
kao( :, 3, 5) = (/&
 & 1.8503e-01_jprb,1.9252e-01_jprb,1.9961e-01_jprb,2.0653e-01_jprb,2.1345e-01_jprb/)  
kao( :, 4, 5) = (/&
 & 1.4814e-01_jprb,1.5482e-01_jprb,1.6122e-01_jprb,1.6737e-01_jprb,1.7343e-01_jprb/)  
kao( :, 5, 5) = (/&
 & 1.1942e-01_jprb,1.2535e-01_jprb,1.3092e-01_jprb,1.3637e-01_jprb,1.4171e-01_jprb/)  
kao( :, 6, 5) = (/&
 & 9.6108e-02_jprb,1.0135e-01_jprb,1.0623e-01_jprb,1.1100e-01_jprb,1.1566e-01_jprb/)  
kao( :, 7, 5) = (/&
 & 7.7384e-02_jprb,8.2024e-02_jprb,8.6286e-02_jprb,9.0422e-02_jprb,9.4500e-02_jprb/)  
kao( :, 8, 5) = (/&
 & 6.2754e-02_jprb,6.6850e-02_jprb,7.0634e-02_jprb,7.4249e-02_jprb,7.7804e-02_jprb/)  
kao( :, 9, 5) = (/&
 & 5.3581e-02_jprb,5.7247e-02_jprb,6.0673e-02_jprb,6.3910e-02_jprb,6.7155e-02_jprb/)  
kao( :,10, 5) = (/&
 & 5.9240e-02_jprb,6.0661e-02_jprb,6.3351e-02_jprb,6.6308e-02_jprb,6.9274e-02_jprb/)  
kao( :,11, 5) = (/&
 & 6.3231e-02_jprb,6.3689e-02_jprb,6.4470e-02_jprb,6.6608e-02_jprb,6.9366e-02_jprb/)  
kao( :,12, 5) = (/&
 & 6.0132e-02_jprb,6.0508e-02_jprb,6.1046e-02_jprb,6.2310e-02_jprb,6.4789e-02_jprb/)  
kao( :,13, 5) = (/&
 & 5.1121e-02_jprb,5.1506e-02_jprb,5.2003e-02_jprb,5.3196e-02_jprb,5.5479e-02_jprb/)  
kao( :, 1, 6) = (/&
 & 6.0412e-01_jprb,6.3664e-01_jprb,6.6664e-01_jprb,6.9440e-01_jprb,7.1921e-01_jprb/)  
kao( :, 2, 6) = (/&
 & 4.9197e-01_jprb,5.2036e-01_jprb,5.4668e-01_jprb,5.6991e-01_jprb,5.8959e-01_jprb/)  
kao( :, 3, 6) = (/&
 & 3.9398e-01_jprb,4.1866e-01_jprb,4.4086e-01_jprb,4.6020e-01_jprb,4.7687e-01_jprb/)  
kao( :, 4, 6) = (/&
 & 3.1559e-01_jprb,3.3697e-01_jprb,3.5576e-01_jprb,3.7272e-01_jprb,3.8759e-01_jprb/)  
kao( :, 5, 6) = (/&
 & 2.5260e-01_jprb,2.7101e-01_jprb,2.8744e-01_jprb,3.0238e-01_jprb,3.1591e-01_jprb/)  
kao( :, 6, 6) = (/&
 & 2.0091e-01_jprb,2.1697e-01_jprb,2.3138e-01_jprb,2.4461e-01_jprb,2.5682e-01_jprb/)  
kao( :, 7, 6) = (/&
 & 1.5940e-01_jprb,1.7343e-01_jprb,1.8618e-01_jprb,1.9790e-01_jprb,2.0866e-01_jprb/)  
kao( :, 8, 6) = (/&
 & 1.2672e-01_jprb,1.3889e-01_jprb,1.5007e-01_jprb,1.6032e-01_jprb,1.6978e-01_jprb/)  
kao( :, 9, 6) = (/&
 & 1.0353e-01_jprb,1.1398e-01_jprb,1.2372e-01_jprb,1.3277e-01_jprb,1.4111e-01_jprb/)  
kao( :,10, 6) = (/&
 & 9.9695e-02_jprb,1.0872e-01_jprb,1.1790e-01_jprb,1.2674e-01_jprb,1.3501e-01_jprb/)  
kao( :,11, 6) = (/&
 & 9.7426e-02_jprb,1.0472e-01_jprb,1.1248e-01_jprb,1.2011e-01_jprb,1.2749e-01_jprb/)  
kao( :,12, 6) = (/&
 & 9.0482e-02_jprb,9.5993e-02_jprb,1.0239e-01_jprb,1.0916e-01_jprb,1.1593e-01_jprb/)  
kao( :,13, 6) = (/&
 & 7.7446e-02_jprb,8.2236e-02_jprb,8.7832e-02_jprb,9.3763e-02_jprb,9.9783e-02_jprb/)  
kao( :, 1, 7) = (/&
 & 1.4493e+00_jprb,1.5125e+00_jprb,1.5653e+00_jprb,1.6113e+00_jprb,1.6505e+00_jprb/)  
kao( :, 2, 7) = (/&
 & 1.2048e+00_jprb,1.2601e+00_jprb,1.3081e+00_jprb,1.3501e+00_jprb,1.3864e+00_jprb/)  
kao( :, 3, 7) = (/&
 & 9.7872e-01_jprb,1.0273e+00_jprb,1.0705e+00_jprb,1.1100e+00_jprb,1.1448e+00_jprb/)  
kao( :, 4, 7) = (/&
 & 7.9188e-01_jprb,8.3582e-01_jprb,8.7697e-01_jprb,9.1358e-01_jprb,9.4568e-01_jprb/)  
kao( :, 5, 7) = (/&
 & 6.4056e-01_jprb,6.8141e-01_jprb,7.1898e-01_jprb,7.5224e-01_jprb,7.8089e-01_jprb/)  
kao( :, 6, 7) = (/&
 & 5.1630e-01_jprb,5.5324e-01_jprb,5.8683e-01_jprb,6.1659e-01_jprb,6.4131e-01_jprb/)  
kao( :, 7, 7) = (/&
 & 4.1372e-01_jprb,4.4648e-01_jprb,4.7630e-01_jprb,5.0239e-01_jprb,5.2429e-01_jprb/)  
kao( :, 8, 7) = (/&
 & 3.2974e-01_jprb,3.5852e-01_jprb,3.8490e-01_jprb,4.0778e-01_jprb,4.2741e-01_jprb/)  
kao( :, 9, 7) = (/&
 & 2.6388e-01_jprb,2.8902e-01_jprb,3.1205e-01_jprb,3.3216e-01_jprb,3.4989e-01_jprb/)  
kao( :,10, 7) = (/&
 & 2.2852e-01_jprb,2.5006e-01_jprb,2.6982e-01_jprb,2.8757e-01_jprb,3.0387e-01_jprb/)  
kao( :,11, 7) = (/&
 & 2.0865e-01_jprb,2.2711e-01_jprb,2.4426e-01_jprb,2.6021e-01_jprb,2.7515e-01_jprb/)  
kao( :,12, 7) = (/&
 & 1.8470e-01_jprb,2.0063e-01_jprb,2.1568e-01_jprb,2.2975e-01_jprb,2.4284e-01_jprb/)  
kao( :,13, 7) = (/&
 & 1.5719e-01_jprb,1.7078e-01_jprb,1.8355e-01_jprb,1.9562e-01_jprb,2.0694e-01_jprb/)  
kao( :, 1, 8) = (/&
 & 3.6048e+00_jprb,3.7864e+00_jprb,3.9572e+00_jprb,4.1208e+00_jprb,4.2621e+00_jprb/)  
kao( :, 2, 8) = (/&
 & 3.2220e+00_jprb,3.3940e+00_jprb,3.5604e+00_jprb,3.7122e+00_jprb,3.8478e+00_jprb/)  
kao( :, 3, 8) = (/&
 & 2.7870e+00_jprb,2.9546e+00_jprb,3.1086e+00_jprb,3.2475e+00_jprb,3.3673e+00_jprb/)  
kao( :, 4, 8) = (/&
 & 2.3680e+00_jprb,2.5226e+00_jprb,2.6640e+00_jprb,2.7896e+00_jprb,2.9005e+00_jprb/)  
kao( :, 5, 8) = (/&
 & 1.9804e+00_jprb,2.1208e+00_jprb,2.2489e+00_jprb,2.3642e+00_jprb,2.4671e+00_jprb/)  
kao( :, 6, 8) = (/&
 & 1.6272e+00_jprb,1.7543e+00_jprb,1.8719e+00_jprb,1.9790e+00_jprb,2.0761e+00_jprb/)  
kao( :, 7, 8) = (/&
 & 1.3207e+00_jprb,1.4367e+00_jprb,1.5433e+00_jprb,1.6406e+00_jprb,1.7283e+00_jprb/)  
kao( :, 8, 8) = (/&
 & 1.0622e+00_jprb,1.1672e+00_jprb,1.2628e+00_jprb,1.3495e+00_jprb,1.4288e+00_jprb/)  
kao( :, 9, 8) = (/&
 & 8.5006e-01_jprb,9.4334e-01_jprb,1.0274e+00_jprb,1.1050e+00_jprb,1.1774e+00_jprb/)  
kao( :,10, 8) = (/&
 & 6.9534e-01_jprb,7.7588e-01_jprb,8.4968e-01_jprb,9.1816e-01_jprb,9.8186e-01_jprb/)  
kao( :,11, 8) = (/&
 & 6.0417e-01_jprb,6.7126e-01_jprb,7.3436e-01_jprb,7.9325e-01_jprb,8.4784e-01_jprb/)  
kao( :,12, 8) = (/&
 & 5.2502e-01_jprb,5.8268e-01_jprb,6.3773e-01_jprb,6.8892e-01_jprb,7.3666e-01_jprb/)  
kao( :,13, 8) = (/&
 & 4.4795e-01_jprb,4.9759e-01_jprb,5.4478e-01_jprb,5.8860e-01_jprb,6.2907e-01_jprb/)  
kao( :, 1, 9) = (/&
 & 1.0325e+01_jprb,1.0910e+01_jprb,1.1448e+01_jprb,1.1915e+01_jprb,1.2359e+01_jprb/)  
kao( :, 2, 9) = (/&
 & 1.0216e+01_jprb,1.0824e+01_jprb,1.1398e+01_jprb,1.1919e+01_jprb,1.2397e+01_jprb/)  
kao( :, 3, 9) = (/&
 & 9.7874e+00_jprb,1.0437e+01_jprb,1.1041e+01_jprb,1.1612e+01_jprb,1.2113e+01_jprb/)  
kao( :, 4, 9) = (/&
 & 9.1882e+00_jprb,9.8563e+00_jprb,1.0485e+01_jprb,1.1057e+01_jprb,1.1572e+01_jprb/)  
kao( :, 5, 9) = (/&
 & 8.4385e+00_jprb,9.1197e+00_jprb,9.7493e+00_jprb,1.0327e+01_jprb,1.0868e+01_jprb/)  
kao( :, 6, 9) = (/&
 & 7.5691e+00_jprb,8.2477e+00_jprb,8.8854e+00_jprb,9.4650e+00_jprb,9.9983e+00_jprb/)  
kao( :, 7, 9) = (/&
 & 6.6646e+00_jprb,7.3353e+00_jprb,7.9606e+00_jprb,8.5227e+00_jprb,9.0234e+00_jprb/)  
kao( :, 8, 9) = (/&
 & 5.7671e+00_jprb,6.4061e+00_jprb,6.9962e+00_jprb,7.5311e+00_jprb,8.0050e+00_jprb/)  
kao( :, 9, 9) = (/&
 & 4.9062e+00_jprb,5.4976e+00_jprb,6.0386e+00_jprb,6.5346e+00_jprb,6.9797e+00_jprb/)  
kao( :,10, 9) = (/&
 & 4.1414e+00_jprb,4.6741e+00_jprb,5.1658e+00_jprb,5.6197e+00_jprb,6.0353e+00_jprb/)  
kao( :,11, 9) = (/&
 & 3.6507e+00_jprb,4.1155e+00_jprb,4.5422e+00_jprb,4.9433e+00_jprb,5.3072e+00_jprb/)  
kao( :,12, 9) = (/&
 & 3.1807e+00_jprb,3.5811e+00_jprb,3.9600e+00_jprb,4.3005e+00_jprb,4.6110e+00_jprb/)  
kao( :,13, 9) = (/&
 & 2.7426e+00_jprb,3.0911e+00_jprb,3.4116e+00_jprb,3.6974e+00_jprb,3.9613e+00_jprb/)  
kao( :, 1,10) = (/&
 & 1.9502e+01_jprb,2.0541e+01_jprb,2.1654e+01_jprb,2.2558e+01_jprb,2.3382e+01_jprb/)  
kao( :, 2,10) = (/&
 & 2.0339e+01_jprb,2.1542e+01_jprb,2.2723e+01_jprb,2.3677e+01_jprb,2.4384e+01_jprb/)  
kao( :, 3,10) = (/&
 & 2.0653e+01_jprb,2.1896e+01_jprb,2.3069e+01_jprb,2.4110e+01_jprb,2.5101e+01_jprb/)  
kao( :, 4,10) = (/&
 & 2.0148e+01_jprb,2.1653e+01_jprb,2.3150e+01_jprb,2.4435e+01_jprb,2.5600e+01_jprb/)  
kao( :, 5,10) = (/&
 & 1.9857e+01_jprb,2.1600e+01_jprb,2.3190e+01_jprb,2.4486e+01_jprb,2.5655e+01_jprb/)  
kao( :, 6,10) = (/&
 & 1.9401e+01_jprb,2.1152e+01_jprb,2.2655e+01_jprb,2.3968e+01_jprb,2.5347e+01_jprb/)  
kao( :, 7,10) = (/&
 & 1.8259e+01_jprb,1.9961e+01_jprb,2.1523e+01_jprb,2.3098e+01_jprb,2.4731e+01_jprb/)  
kao( :, 8,10) = (/&
 & 1.6748e+01_jprb,1.8504e+01_jprb,2.0269e+01_jprb,2.2106e+01_jprb,2.3862e+01_jprb/)  
kao( :, 9,10) = (/&
 & 1.5105e+01_jprb,1.7003e+01_jprb,1.8953e+01_jprb,2.0882e+01_jprb,2.2601e+01_jprb/)  
kao( :,10,10) = (/&
 & 1.3610e+01_jprb,1.5598e+01_jprb,1.7574e+01_jprb,1.9412e+01_jprb,2.0955e+01_jprb/)  
kao( :,11,10) = (/&
 & 1.3112e+01_jprb,1.5038e+01_jprb,1.6757e+01_jprb,1.8284e+01_jprb,1.9636e+01_jprb/)  
kao( :,12,10) = (/&
 & 1.2298e+01_jprb,1.3933e+01_jprb,1.5418e+01_jprb,1.6787e+01_jprb,1.8202e+01_jprb/)  
kao( :,13,10) = (/&
 & 1.1121e+01_jprb,1.2535e+01_jprb,1.3895e+01_jprb,1.5262e+01_jprb,1.6521e+01_jprb/)  
kao( :, 1,11) = (/&
 & 2.3585e+01_jprb,2.4605e+01_jprb,2.5501e+01_jprb,2.6482e+01_jprb,2.7552e+01_jprb/)  

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


SUBROUTINE part2

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


kao( :, 2,11) = (/&
 & 2.5370e+01_jprb,2.6451e+01_jprb,2.7573e+01_jprb,2.8778e+01_jprb,2.9736e+01_jprb/)  
kao( :, 3,11) = (/&
 & 2.6353e+01_jprb,2.7678e+01_jprb,2.9066e+01_jprb,3.0456e+01_jprb,3.1588e+01_jprb/)  
kao( :, 4,11) = (/&
 & 2.6933e+01_jprb,2.8519e+01_jprb,3.0105e+01_jprb,3.1590e+01_jprb,3.2868e+01_jprb/)  
kao( :, 5,11) = (/&
 & 2.6708e+01_jprb,2.8629e+01_jprb,3.0424e+01_jprb,3.2298e+01_jprb,3.3849e+01_jprb/)  
kao( :, 6,11) = (/&
 & 2.5912e+01_jprb,2.8223e+01_jprb,3.0549e+01_jprb,3.2673e+01_jprb,3.4542e+01_jprb/)  
kao( :, 7,11) = (/&
 & 2.5158e+01_jprb,2.7915e+01_jprb,3.0571e+01_jprb,3.2861e+01_jprb,3.4743e+01_jprb/)  
kao( :, 8,11) = (/&
 & 2.4390e+01_jprb,2.7375e+01_jprb,3.0000e+01_jprb,3.2144e+01_jprb,3.4135e+01_jprb/)  
kao( :, 9,11) = (/&
 & 2.3045e+01_jprb,2.5927e+01_jprb,2.8454e+01_jprb,3.0669e+01_jprb,3.2987e+01_jprb/)  
kao( :,10,11) = (/&
 & 2.1314e+01_jprb,2.4114e+01_jprb,2.6618e+01_jprb,2.9130e+01_jprb,3.1810e+01_jprb/)  
kao( :,11,11) = (/&
 & 2.0509e+01_jprb,2.3271e+01_jprb,2.6048e+01_jprb,2.8884e+01_jprb,3.1559e+01_jprb/)  
kao( :,12,11) = (/&
 & 1.9750e+01_jprb,2.2592e+01_jprb,2.5456e+01_jprb,2.8124e+01_jprb,3.0408e+01_jprb/)  
kao( :,13,11) = (/&
 & 1.8985e+01_jprb,2.1757e+01_jprb,2.4278e+01_jprb,2.6507e+01_jprb,2.8545e+01_jprb/)  
kao( :, 1,12) = (/&
 & 2.7620e+01_jprb,2.9109e+01_jprb,3.0583e+01_jprb,3.1779e+01_jprb,3.2904e+01_jprb/)  
kao( :, 2,12) = (/&
 & 3.0792e+01_jprb,3.2479e+01_jprb,3.3920e+01_jprb,3.5408e+01_jprb,3.6645e+01_jprb/)  
kao( :, 3,12) = (/&
 & 3.3732e+01_jprb,3.5632e+01_jprb,3.7155e+01_jprb,3.8664e+01_jprb,4.0176e+01_jprb/)  
kao( :, 4,12) = (/&
 & 3.6062e+01_jprb,3.8172e+01_jprb,3.9899e+01_jprb,4.1650e+01_jprb,4.3354e+01_jprb/)  
kao( :, 5,12) = (/&
 & 3.7489e+01_jprb,3.9900e+01_jprb,4.2014e+01_jprb,4.4198e+01_jprb,4.6166e+01_jprb/)  
kao( :, 6,12) = (/&
 & 3.8225e+01_jprb,4.1024e+01_jprb,4.3423e+01_jprb,4.5937e+01_jprb,4.7978e+01_jprb/)  
kao( :, 7,12) = (/&
 & 3.8206e+01_jprb,4.1095e+01_jprb,4.3824e+01_jprb,4.6668e+01_jprb,4.9398e+01_jprb/)  
kao( :, 8,12) = (/&
 & 3.6912e+01_jprb,4.0130e+01_jprb,4.3546e+01_jprb,4.7024e+01_jprb,5.0224e+01_jprb/)  
kao( :, 9,12) = (/&
 & 3.5011e+01_jprb,3.8952e+01_jprb,4.3085e+01_jprb,4.6961e+01_jprb,5.0773e+01_jprb/)  
kao( :,10,12) = (/&
 & 3.3435e+01_jprb,3.8068e+01_jprb,4.2569e+01_jprb,4.6931e+01_jprb,5.0777e+01_jprb/)  
kao( :,11,12) = (/&
 & 3.4126e+01_jprb,3.9013e+01_jprb,4.3484e+01_jprb,4.7491e+01_jprb,5.1057e+01_jprb/)  
kao( :,12,12) = (/&
 & 3.4318e+01_jprb,3.8949e+01_jprb,4.3070e+01_jprb,4.6988e+01_jprb,5.0849e+01_jprb/)  
kao( :,13,12) = (/&
 & 3.3457e+01_jprb,3.7874e+01_jprb,4.2090e+01_jprb,4.6382e+01_jprb,5.0526e+01_jprb/)  
kao( :, 1,13) = (/&
 & 3.2081e+01_jprb,3.3951e+01_jprb,3.5976e+01_jprb,3.7442e+01_jprb,3.9187e+01_jprb/)  
kao( :, 2,13) = (/&
 & 3.6410e+01_jprb,3.8639e+01_jprb,4.0837e+01_jprb,4.2715e+01_jprb,4.4604e+01_jprb/)  
kao( :, 3,13) = (/&
 & 4.1117e+01_jprb,4.3836e+01_jprb,4.6286e+01_jprb,4.8485e+01_jprb,5.0635e+01_jprb/)  
kao( :, 4,13) = (/&
 & 4.5894e+01_jprb,4.8808e+01_jprb,5.1561e+01_jprb,5.4122e+01_jprb,5.6665e+01_jprb/)  
kao( :, 5,13) = (/&
 & 5.0469e+01_jprb,5.3828e+01_jprb,5.7025e+01_jprb,5.9732e+01_jprb,6.2393e+01_jprb/)  
kao( :, 6,13) = (/&
 & 5.4490e+01_jprb,5.8263e+01_jprb,6.1693e+01_jprb,6.4893e+01_jprb,6.8000e+01_jprb/)  
kao( :, 7,13) = (/&
 & 5.7509e+01_jprb,6.1997e+01_jprb,6.5932e+01_jprb,6.9593e+01_jprb,7.3010e+01_jprb/)  
kao( :, 8,13) = (/&
 & 5.9554e+01_jprb,6.4679e+01_jprb,6.9084e+01_jprb,7.3440e+01_jprb,7.7536e+01_jprb/)  
kao( :, 9,13) = (/&
 & 6.0329e+01_jprb,6.5898e+01_jprb,7.0895e+01_jprb,7.5993e+01_jprb,8.0372e+01_jprb/)  
kao( :,10,13) = (/&
 & 6.0280e+01_jprb,6.6133e+01_jprb,7.1850e+01_jprb,7.7277e+01_jprb,8.2310e+01_jprb/)  
kao( :,11,13) = (/&
 & 6.1417e+01_jprb,6.8046e+01_jprb,7.4182e+01_jprb,8.0392e+01_jprb,8.6582e+01_jprb/)  
kao( :,12,13) = (/&
 & 6.2068e+01_jprb,6.9536e+01_jprb,7.6455e+01_jprb,8.3609e+01_jprb,9.0395e+01_jprb/)  
kao( :,13,13) = (/&
 & 6.2814e+01_jprb,7.0863e+01_jprb,7.8689e+01_jprb,8.6158e+01_jprb,9.3125e+01_jprb/)  
kao( :, 1,14) = (/&
 & 4.1518e+01_jprb,4.3146e+01_jprb,4.5346e+01_jprb,4.6853e+01_jprb,4.8598e+01_jprb/)  
kao( :, 2,14) = (/&
 & 4.6781e+01_jprb,4.8970e+01_jprb,5.1880e+01_jprb,5.4105e+01_jprb,5.6522e+01_jprb/)  
kao( :, 3,14) = (/&
 & 5.1825e+01_jprb,5.5318e+01_jprb,5.8975e+01_jprb,6.1521e+01_jprb,6.4785e+01_jprb/)  
kao( :, 4,14) = (/&
 & 5.7018e+01_jprb,6.1165e+01_jprb,6.5581e+01_jprb,6.9138e+01_jprb,7.3301e+01_jprb/)  
kao( :, 5,14) = (/&
 & 6.2559e+01_jprb,6.7532e+01_jprb,7.2921e+01_jprb,7.7434e+01_jprb,8.2255e+01_jprb/)  
kao( :, 6,14) = (/&
 & 6.8405e+01_jprb,7.4630e+01_jprb,8.0801e+01_jprb,8.6601e+01_jprb,9.2153e+01_jprb/)  
kao( :, 7,14) = (/&
 & 7.4932e+01_jprb,8.2383e+01_jprb,8.9625e+01_jprb,9.6790e+01_jprb,1.0268e+02_jprb/)  
kao( :, 8,14) = (/&
 & 8.2763e+01_jprb,9.1560e+01_jprb,9.9722e+01_jprb,1.0772e+02_jprb,1.1418e+02_jprb/)  
kao( :, 9,14) = (/&
 & 9.0637e+01_jprb,1.0061e+02_jprb,1.1013e+02_jprb,1.1911e+02_jprb,1.2622e+02_jprb/)  
kao( :,10,14) = (/&
 & 9.8104e+01_jprb,1.0968e+02_jprb,1.2088e+02_jprb,1.3085e+02_jprb,1.3916e+02_jprb/)  
kao( :,11,14) = (/&
 & 1.1038e+02_jprb,1.2405e+02_jprb,1.3571e+02_jprb,1.4612e+02_jprb,1.5567e+02_jprb/)  
kao( :,12,14) = (/&
 & 1.2285e+02_jprb,1.3772e+02_jprb,1.4999e+02_jprb,1.6146e+02_jprb,1.7128e+02_jprb/)  
kao( :,13,14) = (/&
 & 1.3421e+02_jprb,1.4967e+02_jprb,1.6247e+02_jprb,1.7507e+02_jprb,1.8543e+02_jprb/)  
kao( :, 1,15) = (/&
 & 5.1285e+01_jprb,5.3369e+01_jprb,5.5201e+01_jprb,5.6834e+01_jprb,5.8171e+01_jprb/)  
kao( :, 2,15) = (/&
 & 6.1486e+01_jprb,6.4224e+01_jprb,6.6483e+01_jprb,6.8385e+01_jprb,7.0263e+01_jprb/)  
kao( :, 3,15) = (/&
 & 7.2996e+01_jprb,7.6763e+01_jprb,7.9527e+01_jprb,8.1282e+01_jprb,8.3483e+01_jprb/)  
kao( :, 4,15) = (/&
 & 8.5243e+01_jprb,8.9543e+01_jprb,9.2811e+01_jprb,9.4927e+01_jprb,9.7733e+01_jprb/)  
kao( :, 5,15) = (/&
 & 9.7960e+01_jprb,1.0251e+02_jprb,1.0689e+02_jprb,1.0988e+02_jprb,1.1399e+02_jprb/)  
kao( :, 6,15) = (/&
 & 1.1053e+02_jprb,1.1600e+02_jprb,1.1928e+02_jprb,1.2539e+02_jprb,1.3116e+02_jprb/)  
kao( :, 7,15) = (/&
 & 1.1978e+02_jprb,1.2735e+02_jprb,1.3342e+02_jprb,1.4289e+02_jprb,1.4830e+02_jprb/)  
kao( :, 8,15) = (/&
 & 1.3066e+02_jprb,1.3994e+02_jprb,1.4782e+02_jprb,1.6007e+02_jprb,1.6737e+02_jprb/)  
kao( :, 9,15) = (/&
 & 1.4352e+02_jprb,1.5439e+02_jprb,1.6271e+02_jprb,1.7712e+02_jprb,1.8796e+02_jprb/)  
kao( :,10,15) = (/&
 & 1.5667e+02_jprb,1.6982e+02_jprb,1.8206e+02_jprb,1.9739e+02_jprb,2.1049e+02_jprb/)  
kao( :,11,15) = (/&
 & 1.7812e+02_jprb,1.9349e+02_jprb,2.0867e+02_jprb,2.2613e+02_jprb,2.4362e+02_jprb/)  
kao( :,12,15) = (/&
 & 2.0254e+02_jprb,2.2124e+02_jprb,2.3990e+02_jprb,2.6100e+02_jprb,2.8038e+02_jprb/)  
kao( :,13,15) = (/&
 & 2.3108e+02_jprb,2.5315e+02_jprb,2.7665e+02_jprb,3.0075e+02_jprb,3.2274e+02_jprb/)  
kao( :, 1,16) = (/&
 & 5.2777e+01_jprb,5.4993e+01_jprb,5.6841e+01_jprb,5.8609e+01_jprb,6.0050e+01_jprb/)  
kao( :, 2,16) = (/&
 & 6.3981e+01_jprb,6.6669e+01_jprb,6.9358e+01_jprb,7.1554e+01_jprb,7.3336e+01_jprb/)  
kao( :, 3,16) = (/&
 & 7.7059e+01_jprb,8.0904e+01_jprb,8.4188e+01_jprb,8.7082e+01_jprb,8.9526e+01_jprb/)  
kao( :, 4,16) = (/&
 & 9.1463e+01_jprb,9.6542e+01_jprb,1.0088e+02_jprb,1.0476e+02_jprb,1.0800e+02_jprb/)  
kao( :, 5,16) = (/&
 & 1.0757e+02_jprb,1.1414e+02_jprb,1.1997e+02_jprb,1.2530e+02_jprb,1.2942e+02_jprb/)  
kao( :, 6,16) = (/&
 & 1.2556e+02_jprb,1.3416e+02_jprb,1.4146e+02_jprb,1.4899e+02_jprb,1.5433e+02_jprb/)  
kao( :, 7,16) = (/&
 & 1.4547e+02_jprb,1.5695e+02_jprb,1.6648e+02_jprb,1.7621e+02_jprb,1.8397e+02_jprb/)  
kao( :, 8,16) = (/&
 & 1.6809e+02_jprb,1.8302e+02_jprb,1.9611e+02_jprb,2.0827e+02_jprb,2.1845e+02_jprb/)  
kao( :, 9,16) = (/&
 & 1.9340e+02_jprb,2.1273e+02_jprb,2.2936e+02_jprb,2.4529e+02_jprb,2.5864e+02_jprb/)  
kao( :,10,16) = (/&
 & 2.2291e+02_jprb,2.4754e+02_jprb,2.6870e+02_jprb,2.8931e+02_jprb,3.0639e+02_jprb/)  
kao( :,11,16) = (/&
 & 2.7009e+02_jprb,2.9993e+02_jprb,3.2506e+02_jprb,3.4949e+02_jprb,3.6996e+02_jprb/)  
kao( :,12,16) = (/&
 & 3.2630e+02_jprb,3.6087e+02_jprb,3.9287e+02_jprb,4.2005e+02_jprb,4.4424e+02_jprb/)  
kao( :,13,16) = (/&
 & 3.9266e+02_jprb,4.3453e+02_jprb,4.7167e+02_jprb,5.0330e+02_jprb,5.3095e+02_jprb/)  

!     The array KBO contains absorption coefs at the 16 chosen g-values 
!     for a range of pressure levels < ~100mb and temperatures. The first 
!     index in the array, JT, which runs from 1 to 5, corresponds to 
!     different temperatures.  More specifically, JT = 3 means that the 
!     data are for the reference temperature TREF for this pressure 
!     level, JT = 2 refers to the temperature TREF-15, JT = 1 is for
!     TREF-30, JT = 4 is for TREF+15, and JT = 5 is for TREF+30.  
!     The second index, JP, runs from 13 to 59 and refers to the JPth
!     reference pressure level (see taumol.f for the value of these
!     pressure levels in mb).  The third index, IG, goes from 1 to 16,
!     and tells us which g-interval the absorption coefficients are for.

kbo( :,13, 1) = (/&
 & 4.0127e-03_jprb,4.4687e-03_jprb,4.9253e-03_jprb,5.3836e-03_jprb,5.8217e-03_jprb/)  
kbo( :,14, 1) = (/&
 & 3.3542e-03_jprb,3.7289e-03_jprb,4.1053e-03_jprb,4.4790e-03_jprb,4.8344e-03_jprb/)  
kbo( :,15, 1) = (/&
 & 2.7756e-03_jprb,3.0771e-03_jprb,3.3799e-03_jprb,3.6798e-03_jprb,3.9637e-03_jprb/)  
kbo( :,16, 1) = (/&
 & 2.2794e-03_jprb,2.5195e-03_jprb,2.7599e-03_jprb,2.9987e-03_jprb,3.2238e-03_jprb/)  
kbo( :,17, 1) = (/&
 & 1.8616e-03_jprb,2.0514e-03_jprb,2.2420e-03_jprb,2.4313e-03_jprb,2.6094e-03_jprb/)  
kbo( :,18, 1) = (/&
 & 1.5125e-03_jprb,1.6613e-03_jprb,1.8116e-03_jprb,1.9607e-03_jprb,2.1007e-03_jprb/)  
kbo( :,19, 1) = (/&
 & 1.2313e-03_jprb,1.3491e-03_jprb,1.4681e-03_jprb,1.5860e-03_jprb,1.6968e-03_jprb/)  
kbo( :,20, 1) = (/&
 & 1.0110e-03_jprb,1.1056e-03_jprb,1.2012e-03_jprb,1.2955e-03_jprb,1.3844e-03_jprb/)  
kbo( :,21, 1) = (/&
 & 8.3158e-04_jprb,9.0796e-04_jprb,9.8512e-04_jprb,1.0609e-03_jprb,1.1323e-03_jprb/)  
kbo( :,22, 1) = (/&
 & 6.8798e-04_jprb,7.4987e-04_jprb,8.1214e-04_jprb,8.7287e-04_jprb,9.3028e-04_jprb/)  
kbo( :,23, 1) = (/&
 & 5.6933e-04_jprb,6.1950e-04_jprb,6.6971e-04_jprb,7.1844e-04_jprb,7.6466e-04_jprb/)  
kbo( :,24, 1) = (/&
 & 4.7205e-04_jprb,5.1270e-04_jprb,5.5326e-04_jprb,5.9246e-04_jprb,6.2965e-04_jprb/)  
kbo( :,25, 1) = (/&
 & 3.9177e-04_jprb,4.2473e-04_jprb,4.5751e-04_jprb,4.8901e-04_jprb,5.1899e-04_jprb/)  
kbo( :,26, 1) = (/&
 & 3.2582e-04_jprb,3.5264e-04_jprb,3.7910e-04_jprb,4.0446e-04_jprb,4.2868e-04_jprb/)  
kbo( :,27, 1) = (/&
 & 2.7103e-04_jprb,2.9280e-04_jprb,3.1418e-04_jprb,3.3460e-04_jprb,3.5420e-04_jprb/)  
kbo( :,28, 1) = (/&
 & 2.2547e-04_jprb,2.4309e-04_jprb,2.6039e-04_jprb,2.7684e-04_jprb,2.9269e-04_jprb/)  
kbo( :,29, 1) = (/&
 & 1.8743e-04_jprb,2.0170e-04_jprb,2.1564e-04_jprb,2.2888e-04_jprb,2.4168e-04_jprb/)  
kbo( :,30, 1) = (/&
 & 1.5564e-04_jprb,1.6721e-04_jprb,1.7844e-04_jprb,1.8907e-04_jprb,1.9939e-04_jprb/)  
kbo( :,31, 1) = (/&
 & 1.2905e-04_jprb,1.3840e-04_jprb,1.4740e-04_jprb,1.5595e-04_jprb,1.6423e-04_jprb/)  
kbo( :,32, 1) = (/&
 & 1.0702e-04_jprb,1.1456e-04_jprb,1.2177e-04_jprb,1.2865e-04_jprb,1.3529e-04_jprb/)  
kbo( :,33, 1) = (/&
 & 8.8739e-05_jprb,9.4805e-05_jprb,1.0060e-04_jprb,1.0612e-04_jprb,1.1146e-04_jprb/)  
kbo( :,34, 1) = (/&
 & 7.3484e-05_jprb,7.8377e-05_jprb,8.3031e-05_jprb,8.7477e-05_jprb,9.1774e-05_jprb/)  
kbo( :,35, 1) = (/&
 & 6.0456e-05_jprb,6.4420e-05_jprb,6.8176e-05_jprb,7.1769e-05_jprb,7.5241e-05_jprb/)  
kbo( :,36, 1) = (/&
 & 4.9390e-05_jprb,5.2616e-05_jprb,5.5665e-05_jprb,5.8580e-05_jprb,6.1393e-05_jprb/)  
kbo( :,37, 1) = (/&
 & 4.0090e-05_jprb,4.2739e-05_jprb,4.5249e-05_jprb,4.7640e-05_jprb,4.9946e-05_jprb/)  
kbo( :,38, 1) = (/&
 & 3.2525e-05_jprb,3.4701e-05_jprb,3.6769e-05_jprb,3.8731e-05_jprb,4.0622e-05_jprb/)  
kbo( :,39, 1) = (/&
 & 2.6387e-05_jprb,2.8171e-05_jprb,2.9873e-05_jprb,3.1484e-05_jprb,3.3034e-05_jprb/)  
kbo( :,40, 1) = (/&
 & 2.1316e-05_jprb,2.2785e-05_jprb,2.4198e-05_jprb,2.5534e-05_jprb,2.6814e-05_jprb/)  
kbo( :,41, 1) = (/&
 & 1.7206e-05_jprb,1.8415e-05_jprb,1.9590e-05_jprb,2.0699e-05_jprb,2.1759e-05_jprb/)  
kbo( :,42, 1) = (/&
 & 1.3884e-05_jprb,1.4880e-05_jprb,1.5854e-05_jprb,1.6776e-05_jprb,1.7653e-05_jprb/)  
kbo( :,43, 1) = (/&
 & 1.1169e-05_jprb,1.1994e-05_jprb,1.2804e-05_jprb,1.3575e-05_jprb,1.4303e-05_jprb/)  
kbo( :,44, 1) = (/&
 & 8.9694e-06_jprb,9.6558e-06_jprb,1.0326e-05_jprb,1.0973e-05_jprb,1.1582e-05_jprb/)  
kbo( :,45, 1) = (/&
 & 7.1970e-06_jprb,7.7692e-06_jprb,8.3256e-06_jprb,8.8667e-06_jprb,9.3774e-06_jprb/)  
kbo( :,46, 1) = (/&
 & 5.7603e-06_jprb,6.2374e-06_jprb,6.7026e-06_jprb,7.1541e-06_jprb,7.5833e-06_jprb/)  
kbo( :,47, 1) = (/&
 & 4.5904e-06_jprb,4.9886e-06_jprb,5.3792e-06_jprb,5.7558e-06_jprb,6.1172e-06_jprb/)  
kbo( :,48, 1) = (/&
 & 3.6534e-06_jprb,3.9855e-06_jprb,4.3124e-06_jprb,4.6286e-06_jprb,4.9326e-06_jprb/)  
kbo( :,49, 1) = (/&
 & 2.9034e-06_jprb,3.1805e-06_jprb,3.4538e-06_jprb,3.7207e-06_jprb,3.9759e-06_jprb/)  
kbo( :,50, 1) = (/&
 & 2.3065e-06_jprb,2.5402e-06_jprb,2.7688e-06_jprb,2.9931e-06_jprb,3.2082e-06_jprb/)  
kbo( :,51, 1) = (/&
 & 1.8310e-06_jprb,2.0285e-06_jprb,2.2198e-06_jprb,2.4080e-06_jprb,2.5898e-06_jprb/)  
kbo( :,52, 1) = (/&
 & 1.4543e-06_jprb,1.6160e-06_jprb,1.7779e-06_jprb,1.9362e-06_jprb,2.0898e-06_jprb/)  
kbo( :,53, 1) = (/&
 & 1.1560e-06_jprb,1.2848e-06_jprb,1.4229e-06_jprb,1.5555e-06_jprb,1.6854e-06_jprb/)  
kbo( :,54, 1) = (/&
 & 9.2302e-07_jprb,1.0251e-06_jprb,1.1393e-06_jprb,1.2519e-06_jprb,1.3618e-06_jprb/)  
kbo( :,55, 1) = (/&
 & 7.3926e-07_jprb,8.1986e-07_jprb,9.1193e-07_jprb,1.0087e-06_jprb,1.1013e-06_jprb/)  
kbo( :,56, 1) = (/&
 & 5.9333e-07_jprb,6.5666e-07_jprb,7.3046e-07_jprb,8.1142e-07_jprb,8.9049e-07_jprb/)  
kbo( :,57, 1) = (/&
 & 4.7736e-07_jprb,5.2694e-07_jprb,5.8578e-07_jprb,6.5161e-07_jprb,7.2007e-07_jprb/)  
kbo( :,58, 1) = (/&
 & 3.8567e-07_jprb,4.2438e-07_jprb,4.7128e-07_jprb,5.2459e-07_jprb,5.8203e-07_jprb/)  
kbo( :,59, 1) = (/&
 & 3.1642e-07_jprb,3.4778e-07_jprb,3.8612e-07_jprb,4.2992e-07_jprb,4.7734e-07_jprb/)  
kbo( :,13, 2) = (/&
 & 1.2160e-02_jprb,1.3438e-02_jprb,1.4645e-02_jprb,1.5727e-02_jprb,1.6711e-02_jprb/)  
kbo( :,14, 2) = (/&
 & 1.0225e-02_jprb,1.1288e-02_jprb,1.2265e-02_jprb,1.3154e-02_jprb,1.3956e-02_jprb/)  
kbo( :,15, 2) = (/&
 & 8.4456e-03_jprb,9.2918e-03_jprb,1.0065e-02_jprb,1.0768e-02_jprb,1.1393e-02_jprb/)  
kbo( :,16, 2) = (/&
 & 6.8924e-03_jprb,7.5463e-03_jprb,8.1481e-03_jprb,8.6924e-03_jprb,9.1710e-03_jprb/)  
kbo( :,17, 2) = (/&
 & 5.5778e-03_jprb,6.0832e-03_jprb,6.5471e-03_jprb,6.9629e-03_jprb,7.3305e-03_jprb/)  
kbo( :,18, 2) = (/&
 & 4.4688e-03_jprb,4.8540e-03_jprb,5.2070e-03_jprb,5.5215e-03_jprb,5.8036e-03_jprb/)  
kbo( :,19, 2) = (/&
 & 3.5967e-03_jprb,3.8949e-03_jprb,4.1669e-03_jprb,4.4096e-03_jprb,4.6280e-03_jprb/)  
kbo( :,20, 2) = (/&
 & 2.9298e-03_jprb,3.1646e-03_jprb,3.3779e-03_jprb,3.5694e-03_jprb,3.7401e-03_jprb/)  
kbo( :,21, 2) = (/&
 & 2.3932e-03_jprb,2.5790e-03_jprb,2.7477e-03_jprb,2.8993e-03_jprb,3.0338e-03_jprb/)  
kbo( :,22, 2) = (/&
 & 1.9643e-03_jprb,2.1105e-03_jprb,2.2434e-03_jprb,2.3626e-03_jprb,2.4679e-03_jprb/)  
kbo( :,23, 2) = (/&
 & 1.6125e-03_jprb,1.7277e-03_jprb,1.8326e-03_jprb,1.9262e-03_jprb,2.0085e-03_jprb/)  
kbo( :,24, 2) = (/&
 & 1.3282e-03_jprb,1.4199e-03_jprb,1.5028e-03_jprb,1.5765e-03_jprb,1.6410e-03_jprb/)  
kbo( :,25, 2) = (/&
 & 1.0951e-03_jprb,1.1683e-03_jprb,1.2337e-03_jprb,1.2916e-03_jprb,1.3424e-03_jprb/)  
kbo( :,26, 2) = (/&
 & 9.0567e-04_jprb,9.6375e-04_jprb,1.0153e-03_jprb,1.0609e-03_jprb,1.1006e-03_jprb/)  

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


SUBROUTINE part3

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


kbo( :,27, 2) = (/&
 & 7.4971e-04_jprb,7.9563e-04_jprb,8.3627e-04_jprb,8.7231e-04_jprb,9.0333e-04_jprb/)  
kbo( :,28, 2) = (/&
 & 6.2083e-04_jprb,6.5706e-04_jprb,6.8919e-04_jprb,7.1762e-04_jprb,7.4183e-04_jprb/)  
kbo( :,29, 2) = (/&
 & 5.1283e-04_jprb,5.4134e-04_jprb,5.6668e-04_jprb,5.8892e-04_jprb,6.0775e-04_jprb/)  
kbo( :,30, 2) = (/&
 & 4.2274e-04_jprb,4.4513e-04_jprb,4.6510e-04_jprb,4.8244e-04_jprb,4.9704e-04_jprb/)  
kbo( :,31, 2) = (/&
 & 3.4700e-04_jprb,3.6458e-04_jprb,3.8019e-04_jprb,3.9360e-04_jprb,4.0492e-04_jprb/)  
kbo( :,32, 2) = (/&
 & 2.8510e-04_jprb,2.9895e-04_jprb,3.1110e-04_jprb,3.2149e-04_jprb,3.3026e-04_jprb/)  
kbo( :,33, 2) = (/&
 & 2.3440e-04_jprb,2.4528e-04_jprb,2.5470e-04_jprb,2.6280e-04_jprb,2.6955e-04_jprb/)  
kbo( :,34, 2) = (/&
 & 1.9316e-04_jprb,2.0175e-04_jprb,2.0916e-04_jprb,2.1548e-04_jprb,2.2075e-04_jprb/)  
kbo( :,35, 2) = (/&
 & 1.5858e-04_jprb,1.6542e-04_jprb,1.7135e-04_jprb,1.7637e-04_jprb,1.8056e-04_jprb/)  
kbo( :,36, 2) = (/&
 & 1.2966e-04_jprb,1.3522e-04_jprb,1.4003e-04_jprb,1.4410e-04_jprb,1.4751e-04_jprb/)  
kbo( :,37, 2) = (/&
 & 1.0583e-04_jprb,1.1047e-04_jprb,1.1450e-04_jprb,1.1791e-04_jprb,1.2077e-04_jprb/)  
kbo( :,38, 2) = (/&
 & 8.6354e-05_jprb,9.0236e-05_jprb,9.3617e-05_jprb,9.6482e-05_jprb,9.8878e-05_jprb/)  
kbo( :,39, 2) = (/&
 & 7.0455e-05_jprb,7.3698e-05_jprb,7.6539e-05_jprb,7.8943e-05_jprb,8.0950e-05_jprb/)  
kbo( :,40, 2) = (/&
 & 5.7475e-05_jprb,6.0235e-05_jprb,6.2673e-05_jprb,6.4741e-05_jprb,6.6460e-05_jprb/)  
kbo( :,41, 2) = (/&
 & 4.6872e-05_jprb,4.9225e-05_jprb,5.1315e-05_jprb,5.3102e-05_jprb,5.4585e-05_jprb/)  
kbo( :,42, 2) = (/&
 & 3.8212e-05_jprb,4.0216e-05_jprb,4.1999e-05_jprb,4.3546e-05_jprb,4.4830e-05_jprb/)  
kbo( :,43, 2) = (/&
 & 3.1158e-05_jprb,3.2889e-05_jprb,3.4429e-05_jprb,3.5779e-05_jprb,3.6907e-05_jprb/)  
kbo( :,44, 2) = (/&
 & 2.5395e-05_jprb,2.6902e-05_jprb,2.8242e-05_jprb,2.9418e-05_jprb,3.0418e-05_jprb/)  
kbo( :,45, 2) = (/&
 & 2.0690e-05_jprb,2.1996e-05_jprb,2.3163e-05_jprb,2.4189e-05_jprb,2.5065e-05_jprb/)  
kbo( :,46, 2) = (/&
 & 1.6831e-05_jprb,1.7958e-05_jprb,1.8979e-05_jprb,1.9882e-05_jprb,2.0651e-05_jprb/)  
kbo( :,47, 2) = (/&
 & 1.3652e-05_jprb,1.4627e-05_jprb,1.5521e-05_jprb,1.6321e-05_jprb,1.7007e-05_jprb/)  
kbo( :,48, 2) = (/&
 & 1.1060e-05_jprb,1.1904e-05_jprb,1.2686e-05_jprb,1.3393e-05_jprb,1.4006e-05_jprb/)  
kbo( :,49, 2) = (/&
 & 8.9492e-06_jprb,9.6804e-06_jprb,1.0363e-05_jprb,1.0983e-05_jprb,1.1533e-05_jprb/)  
kbo( :,50, 2) = (/&
 & 7.2405e-06_jprb,7.8785e-06_jprb,8.4705e-06_jprb,9.0129e-06_jprb,9.5008e-06_jprb/)  
kbo( :,51, 2) = (/&
 & 5.8460e-06_jprb,6.4101e-06_jprb,6.9248e-06_jprb,7.3984e-06_jprb,7.8284e-06_jprb/)  
kbo( :,52, 2) = (/&
 & 4.6997e-06_jprb,5.2070e-06_jprb,5.6596e-06_jprb,6.0736e-06_jprb,6.4507e-06_jprb/)  
kbo( :,53, 2) = (/&
 & 3.7614e-06_jprb,4.2159e-06_jprb,4.6210e-06_jprb,4.9854e-06_jprb,5.3156e-06_jprb/)  
kbo( :,54, 2) = (/&
 & 3.0075e-06_jprb,3.4121e-06_jprb,3.7745e-06_jprb,4.1002e-06_jprb,4.3906e-06_jprb/)  
kbo( :,55, 2) = (/&
 & 2.4043e-06_jprb,2.7566e-06_jprb,3.0802e-06_jprb,3.3721e-06_jprb,3.6314e-06_jprb/)  
kbo( :,56, 2) = (/&
 & 1.9210e-06_jprb,2.2197e-06_jprb,2.5091e-06_jprb,2.7692e-06_jprb,3.0032e-06_jprb/)  
kbo( :,57, 2) = (/&
 & 1.5317e-06_jprb,1.7871e-06_jprb,2.0379e-06_jprb,2.2717e-06_jprb,2.4826e-06_jprb/)  
kbo( :,58, 2) = (/&
 & 1.2206e-06_jprb,1.4418e-06_jprb,1.6546e-06_jprb,1.8628e-06_jprb,2.0522e-06_jprb/)  
kbo( :,59, 2) = (/&
 & 9.9907e-07_jprb,1.1883e-06_jprb,1.3690e-06_jprb,1.5455e-06_jprb,1.7114e-06_jprb/)  
kbo( :,13, 3) = (/&
 & 2.0786e-02_jprb,2.2351e-02_jprb,2.3914e-02_jprb,2.5482e-02_jprb,2.6955e-02_jprb/)  
kbo( :,14, 3) = (/&
 & 1.7451e-02_jprb,1.8772e-02_jprb,2.0114e-02_jprb,2.1398e-02_jprb,2.2623e-02_jprb/)  
kbo( :,15, 3) = (/&
 & 1.4302e-02_jprb,1.5409e-02_jprb,1.6505e-02_jprb,1.7555e-02_jprb,1.8558e-02_jprb/)  
kbo( :,16, 3) = (/&
 & 1.1560e-02_jprb,1.2473e-02_jprb,1.3359e-02_jprb,1.4211e-02_jprb,1.4998e-02_jprb/)  
kbo( :,17, 3) = (/&
 & 9.2944e-03_jprb,1.0027e-02_jprb,1.0736e-02_jprb,1.1417e-02_jprb,1.2019e-02_jprb/)  
kbo( :,18, 3) = (/&
 & 7.4021e-03_jprb,7.9861e-03_jprb,8.5472e-03_jprb,9.0743e-03_jprb,9.5344e-03_jprb/)  
kbo( :,19, 3) = (/&
 & 5.9440e-03_jprb,6.4084e-03_jprb,6.8519e-03_jprb,7.2597e-03_jprb,7.6128e-03_jprb/)  
kbo( :,20, 3) = (/&
 & 4.8413e-03_jprb,5.2128e-03_jprb,5.5678e-03_jprb,5.8851e-03_jprb,6.1565e-03_jprb/)  
kbo( :,21, 3) = (/&
 & 3.9554e-03_jprb,4.2547e-03_jprb,4.5379e-03_jprb,4.7882e-03_jprb,4.9942e-03_jprb/)  
kbo( :,22, 3) = (/&
 & 3.2474e-03_jprb,3.4884e-03_jprb,3.7113e-03_jprb,3.9077e-03_jprb,4.0588e-03_jprb/)  
kbo( :,23, 3) = (/&
 & 2.6676e-03_jprb,2.8612e-03_jprb,3.0356e-03_jprb,3.1862e-03_jprb,3.2997e-03_jprb/)  
kbo( :,24, 3) = (/&
 & 2.2001e-03_jprb,2.3544e-03_jprb,2.4920e-03_jprb,2.6064e-03_jprb,2.6941e-03_jprb/)  
kbo( :,25, 3) = (/&
 & 1.8169e-03_jprb,1.9393e-03_jprb,2.0482e-03_jprb,2.1336e-03_jprb,2.2024e-03_jprb/)  
kbo( :,26, 3) = (/&
 & 1.5047e-03_jprb,1.6016e-03_jprb,1.6869e-03_jprb,1.7502e-03_jprb,1.8053e-03_jprb/)  
kbo( :,27, 3) = (/&
 & 1.2468e-03_jprb,1.3235e-03_jprb,1.3890e-03_jprb,1.4372e-03_jprb,1.4821e-03_jprb/)  
kbo( :,28, 3) = (/&
 & 1.0331e-03_jprb,1.0942e-03_jprb,1.1434e-03_jprb,1.1812e-03_jprb,1.2183e-03_jprb/)  
kbo( :,29, 3) = (/&
 & 8.5445e-04_jprb,9.0249e-04_jprb,9.3879e-04_jprb,9.6890e-04_jprb,9.9940e-04_jprb/)  
kbo( :,30, 3) = (/&
 & 7.0538e-04_jprb,7.4243e-04_jprb,7.6932e-04_jprb,7.9375e-04_jprb,8.1874e-04_jprb/)  
kbo( :,31, 3) = (/&
 & 5.8013e-04_jprb,6.0755e-04_jprb,6.2805e-04_jprb,6.4789e-04_jprb,6.6815e-04_jprb/)  
kbo( :,32, 3) = (/&
 & 4.7748e-04_jprb,4.9738e-04_jprb,5.1357e-04_jprb,5.2976e-04_jprb,5.4616e-04_jprb/)  
kbo( :,33, 3) = (/&
 & 3.9283e-04_jprb,4.0745e-04_jprb,4.2047e-04_jprb,4.3362e-04_jprb,4.4699e-04_jprb/)  
kbo( :,34, 3) = (/&
 & 3.2354e-04_jprb,3.3493e-04_jprb,3.4555e-04_jprb,3.5630e-04_jprb,3.6722e-04_jprb/)  
kbo( :,35, 3) = (/&
 & 2.6563e-04_jprb,2.7479e-04_jprb,2.8346e-04_jprb,2.9224e-04_jprb,3.0115e-04_jprb/)  
kbo( :,36, 3) = (/&
 & 2.1746e-04_jprb,2.2496e-04_jprb,2.3205e-04_jprb,2.3922e-04_jprb,2.4648e-04_jprb/)  
kbo( :,37, 3) = (/&
 & 1.7790e-04_jprb,1.8421e-04_jprb,1.9005e-04_jprb,1.9594e-04_jprb,2.0188e-04_jprb/)  
kbo( :,38, 3) = (/&
 & 1.4546e-04_jprb,1.5084e-04_jprb,1.5564e-04_jprb,1.6048e-04_jprb,1.6535e-04_jprb/)  
kbo( :,39, 3) = (/&
 & 1.1888e-04_jprb,1.2350e-04_jprb,1.2746e-04_jprb,1.3144e-04_jprb,1.3545e-04_jprb/)  
kbo( :,40, 3) = (/&
 & 9.7055e-05_jprb,1.0127e-04_jprb,1.0459e-04_jprb,1.0789e-04_jprb,1.1120e-04_jprb/)  
kbo( :,41, 3) = (/&
 & 7.9154e-05_jprb,8.3014e-05_jprb,8.5866e-05_jprb,8.8590e-05_jprb,9.1337e-05_jprb/)  
kbo( :,42, 3) = (/&
 & 6.4516e-05_jprb,6.7988e-05_jprb,7.0503e-05_jprb,7.2755e-05_jprb,7.5027e-05_jprb/)  
kbo( :,43, 3) = (/&
 & 5.2586e-05_jprb,5.5638e-05_jprb,5.8012e-05_jprb,5.9918e-05_jprb,6.1807e-05_jprb/)  
kbo( :,44, 3) = (/&
 & 4.2846e-05_jprb,4.5469e-05_jprb,4.7752e-05_jprb,4.9435e-05_jprb,5.1007e-05_jprb/)  
kbo( :,45, 3) = (/&
 & 3.4876e-05_jprb,3.7158e-05_jprb,3.9219e-05_jprb,4.0798e-05_jprb,4.2133e-05_jprb/)  
kbo( :,46, 3) = (/&
 & 2.8345e-05_jprb,3.0331e-05_jprb,3.2109e-05_jprb,3.3641e-05_jprb,3.4818e-05_jprb/)  
kbo( :,47, 3) = (/&
 & 2.2997e-05_jprb,2.4688e-05_jprb,2.6250e-05_jprb,2.7649e-05_jprb,2.8769e-05_jprb/)  
kbo( :,48, 3) = (/&
 & 1.8671e-05_jprb,2.0088e-05_jprb,2.1457e-05_jprb,2.2672e-05_jprb,2.3753e-05_jprb/)  
kbo( :,49, 3) = (/&
 & 1.5172e-05_jprb,1.6362e-05_jprb,1.7526e-05_jprb,1.8600e-05_jprb,1.9566e-05_jprb/)  
kbo( :,50, 3) = (/&
 & 1.2371e-05_jprb,1.3362e-05_jprb,1.4334e-05_jprb,1.5278e-05_jprb,1.6112e-05_jprb/)  
kbo( :,51, 3) = (/&
 & 1.0118e-05_jprb,1.0936e-05_jprb,1.1749e-05_jprb,1.2556e-05_jprb,1.3289e-05_jprb/)  
kbo( :,52, 3) = (/&
 & 8.2966e-06_jprb,8.9718e-06_jprb,9.6516e-06_jprb,1.0325e-05_jprb,1.0972e-05_jprb/)  
kbo( :,53, 3) = (/&
 & 6.8197e-06_jprb,7.3847e-06_jprb,7.9459e-06_jprb,8.5100e-06_jprb,9.0658e-06_jprb/)  
kbo( :,54, 3) = (/&
 & 5.6318e-06_jprb,6.1106e-06_jprb,6.5789e-06_jprb,7.0470e-06_jprb,7.5143e-06_jprb/)  
kbo( :,55, 3) = (/&
 & 4.6648e-06_jprb,5.0803e-06_jprb,5.4755e-06_jprb,5.8623e-06_jprb,6.2545e-06_jprb/)  
kbo( :,56, 3) = (/&
 & 3.8708e-06_jprb,4.2378e-06_jprb,4.5762e-06_jprb,4.9013e-06_jprb,5.2284e-06_jprb/)  
kbo( :,57, 3) = (/&
 & 3.2206e-06_jprb,3.5441e-06_jprb,3.8440e-06_jprb,4.1208e-06_jprb,4.3930e-06_jprb/)  
kbo( :,58, 3) = (/&
 & 2.6894e-06_jprb,2.9742e-06_jprb,3.2435e-06_jprb,3.4859e-06_jprb,3.7158e-06_jprb/)  
kbo( :,59, 3) = (/&
 & 2.2697e-06_jprb,2.5173e-06_jprb,2.7510e-06_jprb,2.9640e-06_jprb,3.1586e-06_jprb/)  
kbo( :,13, 4) = (/&
 & 3.3348e-02_jprb,3.5638e-02_jprb,3.7527e-02_jprb,3.8919e-02_jprb,3.9722e-02_jprb/)  
kbo( :,14, 4) = (/&
 & 2.8133e-02_jprb,2.9965e-02_jprb,3.1537e-02_jprb,3.2552e-02_jprb,3.3172e-02_jprb/)  
kbo( :,15, 4) = (/&
 & 2.3195e-02_jprb,2.4631e-02_jprb,2.5882e-02_jprb,2.6505e-02_jprb,2.6995e-02_jprb/)  
kbo( :,16, 4) = (/&
 & 1.8840e-02_jprb,1.9967e-02_jprb,2.0839e-02_jprb,2.1232e-02_jprb,2.1643e-02_jprb/)  
kbo( :,17, 4) = (/&
 & 1.5191e-02_jprb,1.6076e-02_jprb,1.6629e-02_jprb,1.6911e-02_jprb,1.7254e-02_jprb/)  
kbo( :,18, 4) = (/&
 & 1.2129e-02_jprb,1.2801e-02_jprb,1.3112e-02_jprb,1.3338e-02_jprb,1.3606e-02_jprb/)  
kbo( :,19, 4) = (/&
 & 9.7476e-03_jprb,1.0232e-02_jprb,1.0428e-02_jprb,1.0608e-02_jprb,1.0828e-02_jprb/)  
kbo( :,20, 4) = (/&
 & 7.9368e-03_jprb,8.2717e-03_jprb,8.4067e-03_jprb,8.5556e-03_jprb,8.7467e-03_jprb/)  
kbo( :,21, 4) = (/&
 & 6.4875e-03_jprb,6.7006e-03_jprb,6.8050e-03_jprb,6.9274e-03_jprb,7.0981e-03_jprb/)  
kbo( :,22, 4) = (/&
 & 5.3123e-03_jprb,5.4283e-03_jprb,5.5157e-03_jprb,5.6201e-03_jprb,5.7769e-03_jprb/)  
kbo( :,23, 4) = (/&
 & 4.3285e-03_jprb,4.4003e-03_jprb,4.4749e-03_jprb,4.5691e-03_jprb,4.7070e-03_jprb/)  
kbo( :,24, 4) = (/&
 & 3.5319e-03_jprb,3.5856e-03_jprb,3.6485e-03_jprb,3.7338e-03_jprb,3.8516e-03_jprb/)  
kbo( :,25, 4) = (/&
 & 2.8812e-03_jprb,2.9257e-03_jprb,2.9788e-03_jprb,3.0577e-03_jprb,3.1571e-03_jprb/)  
kbo( :,26, 4) = (/&
 & 2.3549e-03_jprb,2.3931e-03_jprb,2.4398e-03_jprb,2.5120e-03_jprb,2.5956e-03_jprb/)  
kbo( :,27, 4) = (/&
 & 1.9281e-03_jprb,1.9612e-03_jprb,2.0042e-03_jprb,2.0672e-03_jprb,2.1371e-03_jprb/)  
kbo( :,28, 4) = (/&
 & 1.5812e-03_jprb,1.6092e-03_jprb,1.6493e-03_jprb,1.7029e-03_jprb,1.7614e-03_jprb/)  
kbo( :,29, 4) = (/&
 & 1.2934e-03_jprb,1.3182e-03_jprb,1.3554e-03_jprb,1.4008e-03_jprb,1.4497e-03_jprb/)  
kbo( :,30, 4) = (/&
 & 1.0569e-03_jprb,1.0795e-03_jprb,1.1129e-03_jprb,1.1513e-03_jprb,1.1924e-03_jprb/)  
kbo( :,31, 4) = (/&
 & 8.6072e-04_jprb,8.8192e-04_jprb,9.1116e-04_jprb,9.4362e-04_jprb,9.7860e-04_jprb/)  
kbo( :,32, 4) = (/&
 & 7.0258e-04_jprb,7.2255e-04_jprb,7.4782e-04_jprb,7.7514e-04_jprb,8.0493e-04_jprb/)  
kbo( :,33, 4) = (/&
 & 5.7482e-04_jprb,5.9318e-04_jprb,6.1484e-04_jprb,6.3779e-04_jprb,6.6313e-04_jprb/)  
kbo( :,34, 4) = (/&
 & 4.7271e-04_jprb,4.8878e-04_jprb,5.0702e-04_jprb,5.2638e-04_jprb,5.4786e-04_jprb/)  
kbo( :,35, 4) = (/&
 & 3.8824e-04_jprb,4.0194e-04_jprb,4.1715e-04_jprb,4.3337e-04_jprb,4.5133e-04_jprb/)  
kbo( :,36, 4) = (/&
 & 3.1820e-04_jprb,3.2965e-04_jprb,3.4225e-04_jprb,3.5569e-04_jprb,3.7045e-04_jprb/)  
kbo( :,37, 4) = (/&
 & 2.6087e-04_jprb,2.7015e-04_jprb,2.8055e-04_jprb,2.9152e-04_jprb,3.0353e-04_jprb/)  
kbo( :,38, 4) = (/&
 & 2.1395e-04_jprb,2.2142e-04_jprb,2.2996e-04_jprb,2.3892e-04_jprb,2.4870e-04_jprb/)  
kbo( :,39, 4) = (/&
 & 1.7555e-04_jprb,1.8151e-04_jprb,1.8852e-04_jprb,1.9581e-04_jprb,2.0378e-04_jprb/)  
kbo( :,40, 4) = (/&
 & 1.4448e-04_jprb,1.4897e-04_jprb,1.5464e-04_jprb,1.6057e-04_jprb,1.6703e-04_jprb/)  
kbo( :,41, 4) = (/&
 & 1.1907e-04_jprb,1.2237e-04_jprb,1.2690e-04_jprb,1.3173e-04_jprb,1.3696e-04_jprb/)  
kbo( :,42, 4) = (/&
 & 9.8189e-05_jprb,1.0062e-04_jprb,1.0417e-04_jprb,1.0812e-04_jprb,1.1234e-04_jprb/)  
kbo( :,43, 4) = (/&
 & 8.1285e-05_jprb,8.3104e-05_jprb,8.5710e-05_jprb,8.8901e-05_jprb,9.2309e-05_jprb/)  
kbo( :,44, 4) = (/&
 & 6.7490e-05_jprb,6.8895e-05_jprb,7.0708e-05_jprb,7.3224e-05_jprb,7.5980e-05_jprb/)  
kbo( :,45, 4) = (/&
 & 5.6130e-05_jprb,5.7190e-05_jprb,5.8518e-05_jprb,6.0401e-05_jprb,6.2619e-05_jprb/)  
kbo( :,46, 4) = (/&
 & 4.6746e-05_jprb,4.7563e-05_jprb,4.8588e-05_jprb,4.9905e-05_jprb,5.1654e-05_jprb/)  
kbo( :,47, 4) = (/&
 & 3.8886e-05_jprb,3.9651e-05_jprb,4.0414e-05_jprb,4.1369e-05_jprb,4.2661e-05_jprb/)  
kbo( :,48, 4) = (/&
 & 3.2050e-05_jprb,3.3124e-05_jprb,3.3698e-05_jprb,3.4432e-05_jprb,3.5333e-05_jprb/)  
kbo( :,49, 4) = (/&
 & 2.6226e-05_jprb,2.7647e-05_jprb,2.8176e-05_jprb,2.8720e-05_jprb,2.9390e-05_jprb/)  
kbo( :,50, 4) = (/&
 & 2.1474e-05_jprb,2.2897e-05_jprb,2.3616e-05_jprb,2.4028e-05_jprb,2.4549e-05_jprb/)  
kbo( :,51, 4) = (/&
 & 1.7587e-05_jprb,1.8848e-05_jprb,1.9798e-05_jprb,2.0162e-05_jprb,2.0554e-05_jprb/)  
kbo( :,52, 4) = (/&
 & 1.4397e-05_jprb,1.5513e-05_jprb,1.6498e-05_jprb,1.6964e-05_jprb,1.7266e-05_jprb/)  
kbo( :,53, 4) = (/&
 & 1.1772e-05_jprb,1.2776e-05_jprb,1.3653e-05_jprb,1.4290e-05_jprb,1.4555e-05_jprb/)  
kbo( :,54, 4) = (/&
 & 9.6285e-06_jprb,1.0547e-05_jprb,1.1325e-05_jprb,1.1997e-05_jprb,1.2314e-05_jprb/)  
kbo( :,55, 4) = (/&
 & 7.8686e-06_jprb,8.7205e-06_jprb,9.4148e-06_jprb,1.0021e-05_jprb,1.0444e-05_jprb/)  
kbo( :,56, 4) = (/&
 & 6.4474e-06_jprb,7.2044e-06_jprb,7.8377e-06_jprb,8.3851e-06_jprb,8.8446e-06_jprb/)  
kbo( :,57, 4) = (/&
 & 5.3026e-06_jprb,5.9425e-06_jprb,6.5385e-06_jprb,7.0305e-06_jprb,7.4552e-06_jprb/)  
kbo( :,58, 4) = (/&
 & 4.3875e-06_jprb,4.9223e-06_jprb,5.4609e-06_jprb,5.9117e-06_jprb,6.2971e-06_jprb/)  
kbo( :,59, 4) = (/&
 & 3.6889e-06_jprb,4.1378e-06_jprb,4.5957e-06_jprb,4.9992e-06_jprb,5.3354e-06_jprb/)  
kbo( :,13, 5) = (/&
 & 5.1121e-02_jprb,5.1507e-02_jprb,5.2004e-02_jprb,5.3195e-02_jprb,5.5478e-02_jprb/)  
kbo( :,14, 5) = (/&
 & 4.2903e-02_jprb,4.3219e-02_jprb,4.3663e-02_jprb,4.5005e-02_jprb,4.7060e-02_jprb/)  
kbo( :,15, 5) = (/&
 & 3.5068e-02_jprb,3.5353e-02_jprb,3.5864e-02_jprb,3.7306e-02_jprb,3.9103e-02_jprb/)  
kbo( :,16, 5) = (/&
 & 2.8258e-02_jprb,2.8536e-02_jprb,2.9205e-02_jprb,3.0568e-02_jprb,3.2105e-02_jprb/)  
kbo( :,17, 5) = (/&
 & 2.2642e-02_jprb,2.2932e-02_jprb,2.3698e-02_jprb,2.4891e-02_jprb,2.6185e-02_jprb/)  
kbo( :,18, 5) = (/&
 & 1.7964e-02_jprb,1.8281e-02_jprb,1.9084e-02_jprb,2.0096e-02_jprb,2.1180e-02_jprb/)  
kbo( :,19, 5) = (/&
 & 1.4384e-02_jprb,1.4732e-02_jprb,1.5474e-02_jprb,1.6321e-02_jprb,1.7214e-02_jprb/)  
kbo( :,20, 5) = (/&
 & 1.1675e-02_jprb,1.2051e-02_jprb,1.2712e-02_jprb,1.3419e-02_jprb,1.4150e-02_jprb/)  
kbo( :,21, 5) = (/&
 & 9.5108e-03_jprb,9.9043e-03_jprb,1.0466e-02_jprb,1.1048e-02_jprb,1.1656e-02_jprb/)  
kbo( :,22, 5) = (/&
 & 7.7720e-03_jprb,8.1751e-03_jprb,8.6406e-03_jprb,9.1253e-03_jprb,9.6344e-03_jprb/)  
kbo( :,23, 5) = (/&
 & 6.3846e-03_jprb,6.7498e-03_jprb,7.1331e-03_jprb,7.5377e-03_jprb,7.9653e-03_jprb/)  
kbo( :,24, 5) = (/&
 & 5.2771e-03_jprb,5.5862e-03_jprb,5.9043e-03_jprb,6.2445e-03_jprb,6.6015e-03_jprb/)  
kbo( :,25, 5) = (/&
 & 4.3695e-03_jprb,4.6259e-03_jprb,4.8938e-03_jprb,5.1786e-03_jprb,5.4764e-03_jprb/)  
kbo( :,26, 5) = (/&
 & 3.6280e-03_jprb,3.8403e-03_jprb,4.0669e-03_jprb,4.3054e-03_jprb,4.5535e-03_jprb/)  
kbo( :,27, 5) = (/&
 & 3.0145e-03_jprb,3.1918e-03_jprb,3.3815e-03_jprb,3.5819e-03_jprb,3.7878e-03_jprb/)  
kbo( :,28, 5) = (/&
 & 2.5051e-03_jprb,2.6547e-03_jprb,2.8145e-03_jprb,2.9821e-03_jprb,3.1545e-03_jprb/)  
kbo( :,29, 5) = (/&
 & 2.0801e-03_jprb,2.2062e-03_jprb,2.3413e-03_jprb,2.4808e-03_jprb,2.6265e-03_jprb/)  
kbo( :,30, 5) = (/&
 & 1.7263e-03_jprb,1.8332e-03_jprb,1.9470e-03_jprb,2.0638e-03_jprb,2.1862e-03_jprb/)  

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


SUBROUTINE part4

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


kbo( :,31, 5) = (/&
 & 1.4306e-03_jprb,1.5217e-03_jprb,1.6165e-03_jprb,1.7146e-03_jprb,1.8178e-03_jprb/)  
kbo( :,32, 5) = (/&
 & 1.1879e-03_jprb,1.2650e-03_jprb,1.3439e-03_jprb,1.4268e-03_jprb,1.5142e-03_jprb/)  
kbo( :,33, 5) = (/&
 & 9.8791e-04_jprb,1.0524e-03_jprb,1.1186e-03_jprb,1.1891e-03_jprb,1.2634e-03_jprb/)  
kbo( :,34, 5) = (/&
 & 8.2253e-04_jprb,8.7618e-04_jprb,9.3221e-04_jprb,9.9230e-04_jprb,1.0553e-03_jprb/)  
kbo( :,35, 5) = (/&
 & 6.8111e-04_jprb,7.2574e-04_jprb,7.7324e-04_jprb,8.2413e-04_jprb,8.7761e-04_jprb/)  
kbo( :,36, 5) = (/&
 & 5.6044e-04_jprb,5.9769e-04_jprb,6.3770e-04_jprb,6.8068e-04_jprb,7.2574e-04_jprb/)  
kbo( :,37, 5) = (/&
 & 4.5897e-04_jprb,4.9003e-04_jprb,5.2346e-04_jprb,5.5953e-04_jprb,5.9740e-04_jprb/)  
kbo( :,38, 5) = (/&
 & 3.7569e-04_jprb,4.0153e-04_jprb,4.2953e-04_jprb,4.5975e-04_jprb,4.9160e-04_jprb/)  
kbo( :,39, 5) = (/&
 & 3.0744e-04_jprb,3.2897e-04_jprb,3.5240e-04_jprb,3.7773e-04_jprb,4.0452e-04_jprb/)  
kbo( :,40, 5) = (/&
 & 2.5088e-04_jprb,2.6871e-04_jprb,2.8819e-04_jprb,3.0931e-04_jprb,3.3175e-04_jprb/)  
kbo( :,41, 5) = (/&
 & 2.0462e-04_jprb,2.1937e-04_jprb,2.3556e-04_jprb,2.5314e-04_jprb,2.7185e-04_jprb/)  
kbo( :,42, 5) = (/&
 & 1.6686e-04_jprb,1.7907e-04_jprb,1.9249e-04_jprb,2.0708e-04_jprb,2.2271e-04_jprb/)  
kbo( :,43, 5) = (/&
 & 1.3590e-04_jprb,1.4594e-04_jprb,1.5698e-04_jprb,1.6901e-04_jprb,1.8205e-04_jprb/)  
kbo( :,44, 5) = (/&
 & 1.1067e-04_jprb,1.1887e-04_jprb,1.2791e-04_jprb,1.3780e-04_jprb,1.4862e-04_jprb/)  
kbo( :,45, 5) = (/&
 & 9.0208e-05_jprb,9.6857e-05_jprb,1.0424e-04_jprb,1.1235e-04_jprb,1.2129e-04_jprb/)  
kbo( :,46, 5) = (/&
 & 7.3529e-05_jprb,7.8854e-05_jprb,8.4864e-05_jprb,9.1484e-05_jprb,9.8816e-05_jprb/)  
kbo( :,47, 5) = (/&
 & 6.0013e-05_jprb,6.4106e-05_jprb,6.8939e-05_jprb,7.4314e-05_jprb,8.0262e-05_jprb/)  
kbo( :,48, 5) = (/&
 & 4.9475e-05_jprb,5.2215e-05_jprb,5.6060e-05_jprb,6.0396e-05_jprb,6.5219e-05_jprb/)  
kbo( :,49, 5) = (/&
 & 4.1161e-05_jprb,4.2705e-05_jprb,4.5656e-05_jprb,4.9133e-05_jprb,5.3026e-05_jprb/)  
kbo( :,50, 5) = (/&
 & 3.4418e-05_jprb,3.5307e-05_jprb,3.7317e-05_jprb,4.0090e-05_jprb,4.3229e-05_jprb/)  
kbo( :,51, 5) = (/&
 & 2.8922e-05_jprb,2.9472e-05_jprb,3.0638e-05_jprb,3.2797e-05_jprb,3.5318e-05_jprb/)  
kbo( :,52, 5) = (/&
 & 2.4424e-05_jprb,2.4734e-05_jprb,2.5383e-05_jprb,2.6898e-05_jprb,2.8901e-05_jprb/)  
kbo( :,53, 5) = (/&
 & 2.0598e-05_jprb,2.0869e-05_jprb,2.1258e-05_jprb,2.2148e-05_jprb,2.3706e-05_jprb/)  
kbo( :,54, 5) = (/&
 & 1.7186e-05_jprb,1.7712e-05_jprb,1.7923e-05_jprb,1.8433e-05_jprb,1.9552e-05_jprb/)  
kbo( :,55, 5) = (/&
 & 1.4224e-05_jprb,1.5080e-05_jprb,1.5208e-05_jprb,1.5518e-05_jprb,1.6207e-05_jprb/)  
kbo( :,56, 5) = (/&
 & 1.1740e-05_jprb,1.2734e-05_jprb,1.2993e-05_jprb,1.3155e-05_jprb,1.3546e-05_jprb/)  
kbo( :,57, 5) = (/&
 & 9.7276e-06_jprb,1.0657e-05_jprb,1.1168e-05_jprb,1.1239e-05_jprb,1.1467e-05_jprb/)  
kbo( :,58, 5) = (/&
 & 8.1077e-06_jprb,8.9005e-06_jprb,9.5538e-06_jprb,9.6723e-06_jprb,9.7928e-06_jprb/)  
kbo( :,59, 5) = (/&
 & 6.8383e-06_jprb,7.5009e-06_jprb,8.1193e-06_jprb,8.2851e-06_jprb,8.3569e-06_jprb/)  
kbo( :,13, 6) = (/&
 & 7.7444e-02_jprb,8.2236e-02_jprb,8.7838e-02_jprb,9.3753e-02_jprb,9.9786e-02_jprb/)  
kbo( :,14, 6) = (/&
 & 6.5845e-02_jprb,7.0239e-02_jprb,7.5214e-02_jprb,8.0372e-02_jprb,8.5713e-02_jprb/)  
kbo( :,15, 6) = (/&
 & 5.5227e-02_jprb,5.9200e-02_jprb,6.3504e-02_jprb,6.7983e-02_jprb,7.2630e-02_jprb/)  
kbo( :,16, 6) = (/&
 & 4.5844e-02_jprb,4.9349e-02_jprb,5.3056e-02_jprb,5.6921e-02_jprb,6.0814e-02_jprb/)  
kbo( :,17, 6) = (/&
 & 3.7783e-02_jprb,4.0819e-02_jprb,4.4007e-02_jprb,4.7268e-02_jprb,5.0508e-02_jprb/)  
kbo( :,18, 6) = (/&
 & 3.0896e-02_jprb,3.3488e-02_jprb,3.6191e-02_jprb,3.8886e-02_jprb,4.1550e-02_jprb/)  
kbo( :,19, 6) = (/&
 & 2.5364e-02_jprb,2.7572e-02_jprb,2.9829e-02_jprb,3.2058e-02_jprb,3.4260e-02_jprb/)  
kbo( :,20, 6) = (/&
 & 2.1100e-02_jprb,2.2979e-02_jprb,2.4877e-02_jprb,2.6754e-02_jprb,2.8602e-02_jprb/)  
kbo( :,21, 6) = (/&
 & 1.7607e-02_jprb,1.9203e-02_jprb,2.0798e-02_jprb,2.2390e-02_jprb,2.3916e-02_jprb/)  
kbo( :,22, 6) = (/&
 & 1.4783e-02_jprb,1.6131e-02_jprb,1.7478e-02_jprb,1.8806e-02_jprb,2.0049e-02_jprb/)  
kbo( :,23, 6) = (/&
 & 1.2411e-02_jprb,1.3542e-02_jprb,1.4674e-02_jprb,1.5762e-02_jprb,1.6774e-02_jprb/)  
kbo( :,24, 6) = (/&
 & 1.0438e-02_jprb,1.1384e-02_jprb,1.2322e-02_jprb,1.3209e-02_jprb,1.4046e-02_jprb/)  
kbo( :,25, 6) = (/&
 & 8.7842e-03_jprb,9.5736e-03_jprb,1.0349e-02_jprb,1.1074e-02_jprb,1.1769e-02_jprb/)  
kbo( :,26, 6) = (/&
 & 7.4110e-03_jprb,8.0713e-03_jprb,8.7058e-03_jprb,9.3054e-03_jprb,9.8871e-03_jprb/)  
kbo( :,27, 6) = (/&
 & 6.2558e-03_jprb,6.8061e-03_jprb,7.3256e-03_jprb,7.8243e-03_jprb,8.3130e-03_jprb/)  
kbo( :,28, 6) = (/&
 & 5.2801e-03_jprb,5.7341e-03_jprb,6.1638e-03_jprb,6.5800e-03_jprb,6.9900e-03_jprb/)  
kbo( :,29, 6) = (/&
 & 4.4527e-03_jprb,4.8252e-03_jprb,5.1813e-03_jprb,5.5298e-03_jprb,5.8731e-03_jprb/)  
kbo( :,30, 6) = (/&
 & 3.7503e-03_jprb,4.0566e-03_jprb,4.3519e-03_jprb,4.6440e-03_jprb,4.9327e-03_jprb/)  
kbo( :,31, 6) = (/&
 & 3.1521e-03_jprb,3.4037e-03_jprb,3.6510e-03_jprb,3.8964e-03_jprb,4.1394e-03_jprb/)  
kbo( :,32, 6) = (/&
 & 2.6499e-03_jprb,2.8587e-03_jprb,3.0669e-03_jprb,3.2733e-03_jprb,3.4804e-03_jprb/)  
kbo( :,33, 6) = (/&
 & 2.2285e-03_jprb,2.4036e-03_jprb,2.5790e-03_jprb,2.7532e-03_jprb,2.9305e-03_jprb/)  
kbo( :,34, 6) = (/&
 & 1.8728e-03_jprb,2.0206e-03_jprb,2.1684e-03_jprb,2.3169e-03_jprb,2.4685e-03_jprb/)  
kbo( :,35, 6) = (/&
 & 1.5635e-03_jprb,1.6884e-03_jprb,1.8131e-03_jprb,1.9393e-03_jprb,2.0686e-03_jprb/)  
kbo( :,36, 6) = (/&
 & 1.2949e-03_jprb,1.4000e-03_jprb,1.5055e-03_jprb,1.6126e-03_jprb,1.7231e-03_jprb/)  
kbo( :,37, 6) = (/&
 & 1.0650e-03_jprb,1.1540e-03_jprb,1.2435e-03_jprb,1.3349e-03_jprb,1.4294e-03_jprb/)  
kbo( :,38, 6) = (/&
 & 8.7519e-04_jprb,9.5059e-04_jprb,1.0265e-03_jprb,1.1043e-03_jprb,1.1854e-03_jprb/)  
kbo( :,39, 6) = (/&
 & 7.1904e-04_jprb,7.8281e-04_jprb,8.4716e-04_jprb,9.1345e-04_jprb,9.8297e-04_jprb/)  
kbo( :,40, 6) = (/&
 & 5.8756e-04_jprb,6.4152e-04_jprb,6.9608e-04_jprb,7.5269e-04_jprb,8.1218e-04_jprb/)  
kbo( :,41, 6) = (/&
 & 4.7943e-04_jprb,5.2501e-04_jprb,5.7132e-04_jprb,6.1957e-04_jprb,6.7045e-04_jprb/)  
kbo( :,42, 6) = (/&
 & 3.9089e-04_jprb,4.2934e-04_jprb,4.6858e-04_jprb,5.0963e-04_jprb,5.5304e-04_jprb/)  
kbo( :,43, 6) = (/&
 & 3.1717e-04_jprb,3.4955e-04_jprb,3.8275e-04_jprb,4.1759e-04_jprb,4.5458e-04_jprb/)  
kbo( :,44, 6) = (/&
 & 2.5660e-04_jprb,2.8381e-04_jprb,3.1180e-04_jprb,3.4130e-04_jprb,3.7266e-04_jprb/)  
kbo( :,45, 6) = (/&
 & 2.0734e-04_jprb,2.3011e-04_jprb,2.5370e-04_jprb,2.7860e-04_jprb,3.0513e-04_jprb/)  
kbo( :,46, 6) = (/&
 & 1.6698e-04_jprb,1.8599e-04_jprb,2.0575e-04_jprb,2.2669e-04_jprb,2.4909e-04_jprb/)  
kbo( :,47, 6) = (/&
 & 1.3369e-04_jprb,1.4948e-04_jprb,1.6598e-04_jprb,1.8350e-04_jprb,2.0231e-04_jprb/)  
kbo( :,48, 6) = (/&
 & 1.0692e-04_jprb,1.1997e-04_jprb,1.3372e-04_jprb,1.4834e-04_jprb,1.6409e-04_jprb/)  
kbo( :,49, 6) = (/&
 & 8.5441e-05_jprb,9.6159e-05_jprb,1.0757e-04_jprb,1.1975e-04_jprb,1.3290e-04_jprb/)  
kbo( :,50, 6) = (/&
 & 6.8463e-05_jprb,7.7220e-05_jprb,8.6669e-05_jprb,9.6779e-05_jprb,1.0774e-04_jprb/)  
kbo( :,51, 6) = (/&
 & 5.4963e-05_jprb,6.2053e-05_jprb,6.9849e-05_jprb,7.8222e-05_jprb,8.7346e-05_jprb/)  
kbo( :,52, 6) = (/&
 & 4.4218e-05_jprb,4.9878e-05_jprb,5.6264e-05_jprb,6.3175e-05_jprb,7.0755e-05_jprb/)  
kbo( :,53, 6) = (/&
 & 3.5855e-05_jprb,4.0139e-05_jprb,4.5314e-05_jprb,5.0998e-05_jprb,5.7267e-05_jprb/)  
kbo( :,54, 6) = (/&
 & 2.9695e-05_jprb,3.2492e-05_jprb,3.6654e-05_jprb,4.1299e-05_jprb,4.6492e-05_jprb/)  
kbo( :,55, 6) = (/&
 & 2.5066e-05_jprb,2.6500e-05_jprb,2.9735e-05_jprb,3.3517e-05_jprb,3.7804e-05_jprb/)  
kbo( :,56, 6) = (/&
 & 2.1455e-05_jprb,2.1969e-05_jprb,2.4192e-05_jprb,2.7229e-05_jprb,3.0752e-05_jprb/)  
kbo( :,57, 6) = (/&
 & 1.8563e-05_jprb,1.8584e-05_jprb,1.9785e-05_jprb,2.2171e-05_jprb,2.5035e-05_jprb/)  
kbo( :,58, 6) = (/&
 & 1.6189e-05_jprb,1.5969e-05_jprb,1.6446e-05_jprb,1.8150e-05_jprb,2.0451e-05_jprb/)  
kbo( :,59, 6) = (/&
 & 1.3883e-05_jprb,1.3701e-05_jprb,1.3912e-05_jprb,1.5148e-05_jprb,1.7050e-05_jprb/)  
kbo( :,13, 7) = (/&
 & 1.5712e-01_jprb,1.7077e-01_jprb,1.8355e-01_jprb,1.9563e-01_jprb,2.0695e-01_jprb/)  
kbo( :,14, 7) = (/&
 & 1.3457e-01_jprb,1.4585e-01_jprb,1.5670e-01_jprb,1.6701e-01_jprb,1.7684e-01_jprb/)  
kbo( :,15, 7) = (/&
 & 1.1408e-01_jprb,1.2355e-01_jprb,1.3267e-01_jprb,1.4142e-01_jprb,1.5007e-01_jprb/)  
kbo( :,16, 7) = (/&
 & 9.6177e-02_jprb,1.0414e-01_jprb,1.1181e-01_jprb,1.1927e-01_jprb,1.2686e-01_jprb/)  
kbo( :,17, 7) = (/&
 & 8.0695e-02_jprb,8.7374e-02_jprb,9.3807e-02_jprb,1.0015e-01_jprb,1.0671e-01_jprb/)  
kbo( :,18, 7) = (/&
 & 6.7227e-02_jprb,7.2774e-02_jprb,7.8173e-02_jprb,8.3614e-02_jprb,8.9191e-02_jprb/)  
kbo( :,19, 7) = (/&
 & 5.5951e-02_jprb,6.0594e-02_jprb,6.5183e-02_jprb,6.9851e-02_jprb,7.4565e-02_jprb/)  
kbo( :,20, 7) = (/&
 & 4.7003e-02_jprb,5.0964e-02_jprb,5.4960e-02_jprb,5.9008e-02_jprb,6.3089e-02_jprb/)  
kbo( :,21, 7) = (/&
 & 3.9571e-02_jprb,4.2979e-02_jprb,4.6449e-02_jprb,4.9946e-02_jprb,5.3508e-02_jprb/)  
kbo( :,22, 7) = (/&
 & 3.3519e-02_jprb,3.6474e-02_jprb,3.9467e-02_jprb,4.2489e-02_jprb,4.5580e-02_jprb/)  
kbo( :,23, 7) = (/&
 & 2.8427e-02_jprb,3.0972e-02_jprb,3.3547e-02_jprb,3.6170e-02_jprb,3.8855e-02_jprb/)  
kbo( :,24, 7) = (/&
 & 2.4149e-02_jprb,2.6342e-02_jprb,2.8570e-02_jprb,3.0859e-02_jprb,3.3200e-02_jprb/)  
kbo( :,25, 7) = (/&
 & 2.0558e-02_jprb,2.2456e-02_jprb,2.4392e-02_jprb,2.6381e-02_jprb,2.8422e-02_jprb/)  
kbo( :,26, 7) = (/&
 & 1.7573e-02_jprb,1.9221e-02_jprb,2.0907e-02_jprb,2.2636e-02_jprb,2.4397e-02_jprb/)  
kbo( :,27, 7) = (/&
 & 1.5044e-02_jprb,1.6466e-02_jprb,1.7926e-02_jprb,1.9419e-02_jprb,2.0934e-02_jprb/)  
kbo( :,28, 7) = (/&
 & 1.2886e-02_jprb,1.4109e-02_jprb,1.5370e-02_jprb,1.6664e-02_jprb,1.7968e-02_jprb/)  
kbo( :,29, 7) = (/&
 & 1.1030e-02_jprb,1.2088e-02_jprb,1.3180e-02_jprb,1.4300e-02_jprb,1.5425e-02_jprb/)  
kbo( :,30, 7) = (/&
 & 9.4386e-03_jprb,1.0357e-02_jprb,1.1303e-02_jprb,1.2268e-02_jprb,1.3245e-02_jprb/)  
kbo( :,31, 7) = (/&
 & 8.0733e-03_jprb,8.8677e-03_jprb,9.6883e-03_jprb,1.0518e-02_jprb,1.1366e-02_jprb/)  
kbo( :,32, 7) = (/&
 & 6.9177e-03_jprb,7.6069e-03_jprb,8.3126e-03_jprb,9.0312e-03_jprb,9.7643e-03_jprb/)  
kbo( :,33, 7) = (/&
 & 5.9333e-03_jprb,6.5312e-03_jprb,7.1390e-03_jprb,7.7622e-03_jprb,8.3990e-03_jprb/)  
kbo( :,34, 7) = (/&
 & 5.0834e-03_jprb,5.6003e-03_jprb,6.1274e-03_jprb,6.6689e-03_jprb,7.2266e-03_jprb/)  
kbo( :,35, 7) = (/&
 & 4.3170e-03_jprb,4.7611e-03_jprb,5.2173e-03_jprb,5.6888e-03_jprb,6.1769e-03_jprb/)  
kbo( :,36, 7) = (/&
 & 3.6248e-03_jprb,4.0060e-03_jprb,4.3997e-03_jprb,4.8092e-03_jprb,5.2371e-03_jprb/)  
kbo( :,37, 7) = (/&
 & 3.0276e-03_jprb,3.3587e-03_jprb,3.7027e-03_jprb,4.0632e-03_jprb,4.4411e-03_jprb/)  
kbo( :,38, 7) = (/&
 & 2.5258e-03_jprb,2.8131e-03_jprb,3.1144e-03_jprb,3.4319e-03_jprb,3.7659e-03_jprb/)  
kbo( :,39, 7) = (/&
 & 2.1056e-03_jprb,2.3549e-03_jprb,2.6188e-03_jprb,2.8979e-03_jprb,3.1925e-03_jprb/)  
kbo( :,40, 7) = (/&
 & 1.7476e-03_jprb,1.9653e-03_jprb,2.1979e-03_jprb,2.4447e-03_jprb,2.7070e-03_jprb/)  
kbo( :,41, 7) = (/&
 & 1.4476e-03_jprb,1.6380e-03_jprb,1.8422e-03_jprb,2.0603e-03_jprb,2.2939e-03_jprb/)  
kbo( :,42, 7) = (/&
 & 1.1969e-03_jprb,1.3628e-03_jprb,1.5418e-03_jprb,1.7341e-03_jprb,1.9416e-03_jprb/)  
kbo( :,43, 7) = (/&
 & 9.8263e-04_jprb,1.1265e-03_jprb,1.2827e-03_jprb,1.4514e-03_jprb,1.6351e-03_jprb/)  
kbo( :,44, 7) = (/&
 & 8.0249e-04_jprb,9.2668e-04_jprb,1.0625e-03_jprb,1.2096e-03_jprb,1.3707e-03_jprb/)  
kbo( :,45, 7) = (/&
 & 6.5298e-04_jprb,7.5994e-04_jprb,8.7728e-04_jprb,1.0055e-03_jprb,1.1461e-03_jprb/)  
kbo( :,46, 7) = (/&
 & 5.2766e-04_jprb,6.1908e-04_jprb,7.1997e-04_jprb,8.3119e-04_jprb,9.5370e-04_jprb/)  
kbo( :,47, 7) = (/&
 & 4.2190e-04_jprb,4.9924e-04_jprb,5.8514e-04_jprb,6.8083e-04_jprb,7.8680e-04_jprb/)  
kbo( :,48, 7) = (/&
 & 3.3585e-04_jprb,4.0081e-04_jprb,4.7372e-04_jprb,5.5558e-04_jprb,6.4689e-04_jprb/)  
kbo( :,49, 7) = (/&
 & 2.6612e-04_jprb,3.2038e-04_jprb,3.8190e-04_jprb,4.5171e-04_jprb,5.3004e-04_jprb/)  
kbo( :,50, 7) = (/&
 & 2.1101e-04_jprb,2.5616e-04_jprb,3.0801e-04_jprb,3.6730e-04_jprb,4.3443e-04_jprb/)  
kbo( :,51, 7) = (/&
 & 1.6702e-04_jprb,2.0440e-04_jprb,2.4803e-04_jprb,2.9825e-04_jprb,3.5552e-04_jprb/)  
kbo( :,52, 7) = (/&
 & 1.3173e-04_jprb,1.6253e-04_jprb,1.9899e-04_jprb,2.4139e-04_jprb,2.9010e-04_jprb/)  
kbo( :,53, 7) = (/&
 & 1.0353e-04_jprb,1.2873e-04_jprb,1.5900e-04_jprb,1.9462e-04_jprb,2.3588e-04_jprb/)  
kbo( :,54, 7) = (/&
 & 8.1672e-05_jprb,1.0229e-04_jprb,1.2738e-04_jprb,1.5734e-04_jprb,1.9225e-04_jprb/)  
kbo( :,55, 7) = (/&
 & 6.4500e-05_jprb,8.1316e-05_jprb,1.0205e-04_jprb,1.2719e-04_jprb,1.5669e-04_jprb/)  
kbo( :,56, 7) = (/&
 & 5.0893e-05_jprb,6.4506e-05_jprb,8.1571e-05_jprb,1.0252e-04_jprb,1.2738e-04_jprb/)  
kbo( :,57, 7) = (/&
 & 4.0182e-05_jprb,5.1082e-05_jprb,6.5020e-05_jprb,8.2415e-05_jprb,1.0329e-04_jprb/)  
kbo( :,58, 7) = (/&
 & 3.1954e-05_jprb,4.0565e-05_jprb,5.1914e-05_jprb,6.6302e-05_jprb,8.3823e-05_jprb/)  
kbo( :,59, 7) = (/&
 & 2.6572e-05_jprb,3.3591e-05_jprb,4.3211e-05_jprb,5.5528e-05_jprb,7.0676e-05_jprb/)  
kbo( :,13, 8) = (/&
 & 4.4787e-01_jprb,4.9751e-01_jprb,5.4470e-01_jprb,5.8862e-01_jprb,6.2908e-01_jprb/)  
kbo( :,14, 8) = (/&
 & 3.8445e-01_jprb,4.2715e-01_jprb,4.6742e-01_jprb,5.0464e-01_jprb,5.3938e-01_jprb/)  
kbo( :,15, 8) = (/&
 & 3.2779e-01_jprb,3.6397e-01_jprb,3.9785e-01_jprb,4.2935e-01_jprb,4.5890e-01_jprb/)  
kbo( :,16, 8) = (/&
 & 2.7790e-01_jprb,3.0790e-01_jprb,3.3600e-01_jprb,3.6256e-01_jprb,3.8746e-01_jprb/)  
kbo( :,17, 8) = (/&
 & 2.3458e-01_jprb,2.5937e-01_jprb,2.8268e-01_jprb,3.0493e-01_jprb,3.2595e-01_jprb/)  
kbo( :,18, 8) = (/&
 & 1.9764e-01_jprb,2.1801e-01_jprb,2.3742e-01_jprb,2.5590e-01_jprb,2.7378e-01_jprb/)  
kbo( :,19, 8) = (/&
 & 1.6729e-01_jprb,1.8411e-01_jprb,2.0019e-01_jprb,2.1556e-01_jprb,2.3089e-01_jprb/)  
kbo( :,20, 8) = (/&
 & 1.4346e-01_jprb,1.5764e-01_jprb,1.7106e-01_jprb,1.8428e-01_jprb,1.9747e-01_jprb/)  
kbo( :,21, 8) = (/&
 & 1.2344e-01_jprb,1.3538e-01_jprb,1.4684e-01_jprb,1.5826e-01_jprb,1.6972e-01_jprb/)  
kbo( :,22, 8) = (/&
 & 1.0677e-01_jprb,1.1691e-01_jprb,1.2686e-01_jprb,1.3681e-01_jprb,1.4681e-01_jprb/)  
kbo( :,23, 8) = (/&
 & 9.2153e-02_jprb,1.0099e-01_jprb,1.0971e-01_jprb,1.1847e-01_jprb,1.2717e-01_jprb/)  
kbo( :,24, 8) = (/&
 & 7.9606e-02_jprb,8.7367e-02_jprb,9.5083e-02_jprb,1.0275e-01_jprb,1.1037e-01_jprb/)  
kbo( :,25, 8) = (/&
 & 6.8847e-02_jprb,7.5684e-02_jprb,8.2485e-02_jprb,8.9220e-02_jprb,9.5941e-02_jprb/)  
kbo( :,26, 8) = (/&
 & 5.9776e-02_jprb,6.5803e-02_jprb,7.1776e-02_jprb,7.7759e-02_jprb,8.3752e-02_jprb/)  
kbo( :,27, 8) = (/&
 & 5.1998e-02_jprb,5.7305e-02_jprb,6.2592e-02_jprb,6.7931e-02_jprb,7.3284e-02_jprb/)  
kbo( :,28, 8) = (/&
 & 4.5335e-02_jprb,5.0017e-02_jprb,5.4715e-02_jprb,5.9468e-02_jprb,6.4255e-02_jprb/)  
kbo( :,29, 8) = (/&
 & 3.9576e-02_jprb,4.3721e-02_jprb,4.7903e-02_jprb,5.2114e-02_jprb,5.6419e-02_jprb/)  
kbo( :,30, 8) = (/&
 & 3.4575e-02_jprb,3.8250e-02_jprb,4.1958e-02_jprb,4.5723e-02_jprb,4.9573e-02_jprb/)  
kbo( :,31, 8) = (/&
 & 3.0216e-02_jprb,3.3461e-02_jprb,3.6737e-02_jprb,4.0102e-02_jprb,4.3522e-02_jprb/)  
kbo( :,32, 8) = (/&
 & 2.6463e-02_jprb,2.9325e-02_jprb,3.2235e-02_jprb,3.5225e-02_jprb,3.8255e-02_jprb/)  
kbo( :,33, 8) = (/&
 & 2.3214e-02_jprb,2.5730e-02_jprb,2.8315e-02_jprb,3.0956e-02_jprb,3.3645e-02_jprb/)  
kbo( :,34, 8) = (/&
 & 2.0354e-02_jprb,2.2577e-02_jprb,2.4858e-02_jprb,2.7195e-02_jprb,2.9569e-02_jprb/)  

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


SUBROUTINE part5

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


kbo( :,35, 8) = (/&
 & 1.7652e-02_jprb,1.9611e-02_jprb,2.1620e-02_jprb,2.3679e-02_jprb,2.5793e-02_jprb/)  
kbo( :,36, 8) = (/&
 & 1.5121e-02_jprb,1.6837e-02_jprb,1.8603e-02_jprb,2.0413e-02_jprb,2.2284e-02_jprb/)  
kbo( :,37, 8) = (/&
 & 1.2910e-02_jprb,1.4438e-02_jprb,1.6023e-02_jprb,1.7651e-02_jprb,1.9335e-02_jprb/)  
kbo( :,38, 8) = (/&
 & 1.1016e-02_jprb,1.2377e-02_jprb,1.3800e-02_jprb,1.5264e-02_jprb,1.6785e-02_jprb/)  
kbo( :,39, 8) = (/&
 & 9.3971e-03_jprb,1.0610e-02_jprb,1.1882e-02_jprb,1.3195e-02_jprb,1.4575e-02_jprb/)  
kbo( :,40, 8) = (/&
 & 8.0032e-03_jprb,9.0996e-03_jprb,1.0249e-02_jprb,1.1449e-02_jprb,1.2715e-02_jprb/)  
kbo( :,41, 8) = (/&
 & 6.8143e-03_jprb,7.8019e-03_jprb,8.8465e-03_jprb,9.9478e-03_jprb,1.1108e-02_jprb/)  
kbo( :,42, 8) = (/&
 & 5.7987e-03_jprb,6.6880e-03_jprb,7.6360e-03_jprb,8.6473e-03_jprb,9.7138e-03_jprb/)  
kbo( :,43, 8) = (/&
 & 4.9102e-03_jprb,5.7128e-03_jprb,6.5767e-03_jprb,7.5054e-03_jprb,8.4907e-03_jprb/)  
kbo( :,44, 8) = (/&
 & 4.1435e-03_jprb,4.8687e-03_jprb,5.6557e-03_jprb,6.5117e-03_jprb,7.4261e-03_jprb/)  
kbo( :,45, 8) = (/&
 & 3.4889e-03_jprb,4.1453e-03_jprb,4.8619e-03_jprb,5.6491e-03_jprb,6.4985e-03_jprb/)  
kbo( :,46, 8) = (/&
 & 2.9183e-03_jprb,3.5111e-03_jprb,4.1627e-03_jprb,4.8843e-03_jprb,5.6717e-03_jprb/)  
kbo( :,47, 8) = (/&
 & 2.4091e-03_jprb,2.9412e-03_jprb,3.5329e-03_jprb,4.1906e-03_jprb,4.9179e-03_jprb/)  
kbo( :,48, 8) = (/&
 & 1.9761e-03_jprb,2.4516e-03_jprb,2.9867e-03_jprb,3.5873e-03_jprb,4.2592e-03_jprb/)  
kbo( :,49, 8) = (/&
 & 1.6100e-03_jprb,2.0311e-03_jprb,2.5133e-03_jprb,3.0616e-03_jprb,3.6821e-03_jprb/)  
kbo( :,50, 8) = (/&
 & 1.3098e-03_jprb,1.6814e-03_jprb,2.1143e-03_jprb,2.6145e-03_jprb,3.1877e-03_jprb/)  
kbo( :,51, 8) = (/&
 & 1.0616e-03_jprb,1.3873e-03_jprb,1.7732e-03_jprb,2.2275e-03_jprb,2.7552e-03_jprb/)  
kbo( :,52, 8) = (/&
 & 8.5431e-04_jprb,1.1375e-03_jprb,1.4802e-03_jprb,1.8899e-03_jprb,2.3744e-03_jprb/)  
kbo( :,53, 8) = (/&
 & 6.8250e-04_jprb,9.2625e-04_jprb,1.2281e-03_jprb,1.5967e-03_jprb,2.0393e-03_jprb/)  
kbo( :,54, 8) = (/&
 & 5.4646e-04_jprb,7.5582e-04_jprb,1.0218e-03_jprb,1.3535e-03_jprb,1.7581e-03_jprb/)  
kbo( :,55, 8) = (/&
 & 4.3631e-04_jprb,6.1609e-04_jprb,8.4963e-04_jprb,1.1470e-03_jprb,1.5165e-03_jprb/)  
kbo( :,56, 8) = (/&
 & 3.4597e-04_jprb,4.9939e-04_jprb,7.0303e-04_jprb,9.6849e-04_jprb,1.3045e-03_jprb/)  
kbo( :,57, 8) = (/&
 & 2.7231e-04_jprb,4.0225e-04_jprb,5.7843e-04_jprb,8.1401e-04_jprb,1.1188e-03_jprb/)  
kbo( :,58, 8) = (/&
 & 2.1404e-04_jprb,3.2388e-04_jprb,4.7635e-04_jprb,6.8490e-04_jprb,9.6152e-04_jprb/)  
kbo( :,59, 8) = (/&
 & 1.8077e-04_jprb,2.7867e-04_jprb,4.1775e-04_jprb,6.1150e-04_jprb,8.7266e-04_jprb/)  
kbo( :,13, 9) = (/&
 & 2.7435e+00_jprb,3.0906e+00_jprb,3.4108e+00_jprb,3.6982e+00_jprb,3.9627e+00_jprb/)  
kbo( :,14, 9) = (/&
 & 2.3802e+00_jprb,2.6705e+00_jprb,2.9382e+00_jprb,3.1823e+00_jprb,3.4042e+00_jprb/)  
kbo( :,15, 9) = (/&
 & 2.0515e+00_jprb,2.2949e+00_jprb,2.5214e+00_jprb,2.7256e+00_jprb,2.9082e+00_jprb/)  
kbo( :,16, 9) = (/&
 & 1.7616e+00_jprb,1.9678e+00_jprb,2.1547e+00_jprb,2.3237e+00_jprb,2.4783e+00_jprb/)  
kbo( :,17, 9) = (/&
 & 1.5089e+00_jprb,1.6786e+00_jprb,1.8334e+00_jprb,1.9756e+00_jprb,2.1052e+00_jprb/)  
kbo( :,18, 9) = (/&
 & 1.2832e+00_jprb,1.4238e+00_jprb,1.5536e+00_jprb,1.6726e+00_jprb,1.7800e+00_jprb/)  
kbo( :,19, 9) = (/&
 & 1.0879e+00_jprb,1.2054e+00_jprb,1.3138e+00_jprb,1.4118e+00_jprb,1.5002e+00_jprb/)  
kbo( :,20, 9) = (/&
 & 9.2520e-01_jprb,1.0230e+00_jprb,1.1126e+00_jprb,1.1933e+00_jprb,1.2674e+00_jprb/)  
kbo( :,21, 9) = (/&
 & 7.8791e-01_jprb,8.6885e-01_jprb,9.4260e-01_jprb,1.0104e+00_jprb,1.0727e+00_jprb/)  
kbo( :,22, 9) = (/&
 & 6.7633e-01_jprb,7.4273e-01_jprb,8.0382e-01_jprb,8.6005e-01_jprb,9.1295e-01_jprb/)  
kbo( :,23, 9) = (/&
 & 5.8122e-01_jprb,6.3601e-01_jprb,6.8664e-01_jprb,7.3416e-01_jprb,7.7931e-01_jprb/)  
kbo( :,24, 9) = (/&
 & 5.0026e-01_jprb,5.4576e-01_jprb,5.8810e-01_jprb,6.2834e-01_jprb,6.6798e-01_jprb/)  
kbo( :,25, 9) = (/&
 & 4.3213e-01_jprb,4.6996e-01_jprb,5.0587e-01_jprb,5.4068e-01_jprb,5.7579e-01_jprb/)  
kbo( :,26, 9) = (/&
 & 3.7530e-01_jprb,4.0715e-01_jprb,4.3791e-01_jprb,4.6854e-01_jprb,5.0040e-01_jprb/)  
kbo( :,27, 9) = (/&
 & 3.2720e-01_jprb,3.5436e-01_jprb,3.8108e-01_jprb,4.0857e-01_jprb,4.3759e-01_jprb/)  
kbo( :,28, 9) = (/&
 & 2.8625e-01_jprb,3.0981e-01_jprb,3.3353e-01_jprb,3.5864e-01_jprb,3.8484e-01_jprb/)  
kbo( :,29, 9) = (/&
 & 2.5143e-01_jprb,2.7201e-01_jprb,2.9352e-01_jprb,3.1618e-01_jprb,3.4020e-01_jprb/)  
kbo( :,30, 9) = (/&
 & 2.2172e-01_jprb,2.4013e-01_jprb,2.5952e-01_jprb,2.8016e-01_jprb,3.0172e-01_jprb/)  
kbo( :,31, 9) = (/&
 & 1.9610e-01_jprb,2.1281e-01_jprb,2.3037e-01_jprb,2.4895e-01_jprb,2.6850e-01_jprb/)  
kbo( :,32, 9) = (/&
 & 1.7415e-01_jprb,1.8930e-01_jprb,2.0532e-01_jprb,2.2216e-01_jprb,2.3994e-01_jprb/)  
kbo( :,33, 9) = (/&
 & 1.5516e-01_jprb,1.6907e-01_jprb,1.8355e-01_jprb,1.9888e-01_jprb,2.1515e-01_jprb/)  
kbo( :,34, 9) = (/&
 & 1.3857e-01_jprb,1.5131e-01_jprb,1.6462e-01_jprb,1.7854e-01_jprb,1.9347e-01_jprb/)  
kbo( :,35, 9) = (/&
 & 1.2324e-01_jprb,1.3480e-01_jprb,1.4696e-01_jprb,1.5978e-01_jprb,1.7337e-01_jprb/)  
kbo( :,36, 9) = (/&
 & 1.0878e-01_jprb,1.1937e-01_jprb,1.3043e-01_jprb,1.4217e-01_jprb,1.5452e-01_jprb/)  
kbo( :,37, 9) = (/&
 & 9.5776e-02_jprb,1.0563e-01_jprb,1.1583e-01_jprb,1.2665e-01_jprb,1.3805e-01_jprb/)  
kbo( :,38, 9) = (/&
 & 8.4466e-02_jprb,9.3612e-02_jprb,1.0315e-01_jprb,1.1317e-01_jprb,1.2370e-01_jprb/)  
kbo( :,39, 9) = (/&
 & 7.4614e-02_jprb,8.3124e-02_jprb,9.2043e-02_jprb,1.0145e-01_jprb,1.1118e-01_jprb/)  
kbo( :,40, 9) = (/&
 & 6.5857e-02_jprb,7.3870e-02_jprb,8.2261e-02_jprb,9.1193e-02_jprb,1.0040e-01_jprb/)  
kbo( :,41, 9) = (/&
 & 5.8183e-02_jprb,6.5774e-02_jprb,7.3720e-02_jprb,8.2197e-02_jprb,9.1007e-02_jprb/)  
kbo( :,42, 9) = (/&
 & 5.1461e-02_jprb,5.8649e-02_jprb,6.6221e-02_jprb,7.4278e-02_jprb,8.2751e-02_jprb/)  
kbo( :,43, 9) = (/&
 & 4.5392e-02_jprb,5.2200e-02_jprb,5.9437e-02_jprb,6.7121e-02_jprb,7.5296e-02_jprb/)  
kbo( :,44, 9) = (/&
 & 4.0017e-02_jprb,4.6452e-02_jprb,5.3355e-02_jprb,6.0754e-02_jprb,6.8643e-02_jprb/)  
kbo( :,45, 9) = (/&
 & 3.5304e-02_jprb,4.1396e-02_jprb,4.7987e-02_jprb,5.5092e-02_jprb,6.2720e-02_jprb/)  
kbo( :,46, 9) = (/&
 & 3.1075e-02_jprb,3.6822e-02_jprb,4.3097e-02_jprb,4.9898e-02_jprb,5.7283e-02_jprb/)  
kbo( :,47, 9) = (/&
 & 2.7177e-02_jprb,3.2558e-02_jprb,3.8513e-02_jprb,4.5021e-02_jprb,5.2127e-02_jprb/)  
kbo( :,48, 9) = (/&
 & 2.3744e-02_jprb,2.8781e-02_jprb,3.4434e-02_jprb,4.0680e-02_jprb,4.7484e-02_jprb/)  
kbo( :,49, 9) = (/&
 & 2.0728e-02_jprb,2.5421e-02_jprb,3.0794e-02_jprb,3.6770e-02_jprb,4.3357e-02_jprb/)  
kbo( :,50, 9) = (/&
 & 1.8168e-02_jprb,2.2568e-02_jprb,2.7658e-02_jprb,3.3413e-02_jprb,3.9781e-02_jprb/)  
kbo( :,51, 9) = (/&
 & 1.5961e-02_jprb,2.0091e-02_jprb,2.4921e-02_jprb,3.0460e-02_jprb,3.6640e-02_jprb/)  
kbo( :,52, 9) = (/&
 & 1.4012e-02_jprb,1.7898e-02_jprb,2.2474e-02_jprb,2.7799e-02_jprb,3.3804e-02_jprb/)  
kbo( :,53, 9) = (/&
 & 1.2274e-02_jprb,1.5954e-02_jprb,2.0286e-02_jprb,2.5396e-02_jprb,3.1223e-02_jprb/)  
kbo( :,54, 9) = (/&
 & 1.0807e-02_jprb,1.4326e-02_jprb,1.8466e-02_jprb,2.3375e-02_jprb,2.9075e-02_jprb/)  
kbo( :,55, 9) = (/&
 & 9.5319e-03_jprb,1.2915e-02_jprb,1.6895e-02_jprb,2.1632e-02_jprb,2.7210e-02_jprb/)  
kbo( :,56, 9) = (/&
 & 8.3912e-03_jprb,1.1632e-02_jprb,1.5477e-02_jprb,2.0079e-02_jprb,2.5547e-02_jprb/)  
kbo( :,57, 9) = (/&
 & 7.3723e-03_jprb,1.0474e-02_jprb,1.4207e-02_jprb,1.8687e-02_jprb,2.4063e-02_jprb/)  
kbo( :,58, 9) = (/&
 & 6.4991e-03_jprb,9.4761e-03_jprb,1.3112e-02_jprb,1.7511e-02_jprb,2.2815e-02_jprb/)  
kbo( :,59, 9) = (/&
 & 6.1473e-03_jprb,9.1090e-03_jprb,1.2767e-02_jprb,1.7218e-02_jprb,2.2606e-02_jprb/)  
kbo( :,13,10) = (/&
 & 1.1116e+01_jprb,1.2524e+01_jprb,1.3896e+01_jprb,1.5268e+01_jprb,1.6536e+01_jprb/)  
kbo( :,14,10) = (/&
 & 9.9682e+00_jprb,1.1262e+01_jprb,1.2560e+01_jprb,1.3723e+01_jprb,1.4792e+01_jprb/)  
kbo( :,15,10) = (/&
 & 8.8893e+00_jprb,1.0059e+01_jprb,1.1121e+01_jprb,1.2116e+01_jprb,1.3075e+01_jprb/)  
kbo( :,16,10) = (/&
 & 7.8467e+00_jprb,8.8032e+00_jprb,9.7316e+00_jprb,1.0625e+01_jprb,1.1425e+01_jprb/)  
kbo( :,17,10) = (/&
 & 6.8078e+00_jprb,7.6463e+00_jprb,8.4707e+00_jprb,9.1981e+00_jprb,9.8604e+00_jprb/)  
kbo( :,18,10) = (/&
 & 5.9071e+00_jprb,6.6462e+00_jprb,7.3087e+00_jprb,7.9162e+00_jprb,8.4956e+00_jprb/)  
kbo( :,19,10) = (/&
 & 5.1307e+00_jprb,5.7208e+00_jprb,6.2833e+00_jprb,6.8158e+00_jprb,7.3233e+00_jprb/)  
kbo( :,20,10) = (/&
 & 4.4064e+00_jprb,4.9086e+00_jprb,5.4011e+00_jprb,5.8668e+00_jprb,6.2919e+00_jprb/)  
kbo( :,21,10) = (/&
 & 3.7746e+00_jprb,4.2108e+00_jprb,4.6377e+00_jprb,5.0222e+00_jprb,5.3698e+00_jprb/)  
kbo( :,22,10) = (/&
 & 3.2585e+00_jprb,3.6369e+00_jprb,3.9831e+00_jprb,4.2976e+00_jprb,4.5905e+00_jprb/)  
kbo( :,23,10) = (/&
 & 2.8213e+00_jprb,3.1329e+00_jprb,3.4129e+00_jprb,3.6764e+00_jprb,3.9234e+00_jprb/)  
kbo( :,24,10) = (/&
 & 2.4431e+00_jprb,2.6958e+00_jprb,2.9321e+00_jprb,3.1552e+00_jprb,3.3597e+00_jprb/)  
kbo( :,25,10) = (/&
 & 2.1126e+00_jprb,2.3241e+00_jprb,2.5221e+00_jprb,2.7073e+00_jprb,2.8751e+00_jprb/)  
kbo( :,26,10) = (/&
 & 1.8249e+00_jprb,2.0037e+00_jprb,2.1706e+00_jprb,2.3266e+00_jprb,2.4674e+00_jprb/)  
kbo( :,27,10) = (/&
 & 1.5746e+00_jprb,1.7247e+00_jprb,1.8648e+00_jprb,1.9941e+00_jprb,2.1217e+00_jprb/)  
kbo( :,28,10) = (/&
 & 1.3617e+00_jprb,1.4866e+00_jprb,1.6031e+00_jprb,1.7154e+00_jprb,1.8338e+00_jprb/)  
kbo( :,29,10) = (/&
 & 1.1807e+00_jprb,1.2866e+00_jprb,1.3847e+00_jprb,1.4869e+00_jprb,1.6014e+00_jprb/)  
kbo( :,30,10) = (/&
 & 1.0269e+00_jprb,1.1156e+00_jprb,1.2031e+00_jprb,1.3007e+00_jprb,1.4104e+00_jprb/)  
kbo( :,31,10) = (/&
 & 8.9671e-01_jprb,9.7234e-01_jprb,1.0534e+00_jprb,1.1474e+00_jprb,1.2536e+00_jprb/)  
kbo( :,32,10) = (/&
 & 7.8677e-01_jprb,8.5519e-01_jprb,9.3281e-01_jprb,1.0217e+00_jprb,1.1241e+00_jprb/)  
kbo( :,33,10) = (/&
 & 6.9580e-01_jprb,7.5947e-01_jprb,8.3338e-01_jprb,9.2124e-01_jprb,1.0172e+00_jprb/)  
kbo( :,34,10) = (/&
 & 6.2020e-01_jprb,6.7933e-01_jprb,7.4919e-01_jprb,8.3240e-01_jprb,9.2556e-01_jprb/)  
kbo( :,35,10) = (/&
 & 5.5258e-01_jprb,6.0746e-01_jprb,6.7338e-01_jprb,7.4935e-01_jprb,8.3904e-01_jprb/)  
kbo( :,36,10) = (/&
 & 4.9155e-01_jprb,5.4163e-01_jprb,6.0187e-01_jprb,6.7186e-01_jprb,7.5578e-01_jprb/)  
kbo( :,37,10) = (/&
 & 4.3530e-01_jprb,4.8026e-01_jprb,5.3386e-01_jprb,5.9737e-01_jprb,6.7325e-01_jprb/)  
kbo( :,38,10) = (/&
 & 3.8752e-01_jprb,4.2820e-01_jprb,4.7540e-01_jprb,5.3327e-01_jprb,6.0315e-01_jprb/)  
kbo( :,39,10) = (/&
 & 3.4711e-01_jprb,3.8416e-01_jprb,4.2683e-01_jprb,4.7819e-01_jprb,5.4308e-01_jprb/)  
kbo( :,40,10) = (/&
 & 3.1156e-01_jprb,3.4469e-01_jprb,3.8303e-01_jprb,4.2846e-01_jprb,4.8625e-01_jprb/)  
kbo( :,41,10) = (/&
 & 2.8072e-01_jprb,3.1142e-01_jprb,3.4605e-01_jprb,3.8706e-01_jprb,4.3793e-01_jprb/)  
kbo( :,42,10) = (/&
 & 2.5421e-01_jprb,2.8301e-01_jprb,3.1501e-01_jprb,3.5201e-01_jprb,3.9774e-01_jprb/)  
kbo( :,43,10) = (/&
 & 2.3024e-01_jprb,2.5750e-01_jprb,2.8768e-01_jprb,3.2168e-01_jprb,3.6246e-01_jprb/)  
kbo( :,44,10) = (/&
 & 2.0882e-01_jprb,2.3454e-01_jprb,2.6350e-01_jprb,2.9554e-01_jprb,3.3285e-01_jprb/)  
kbo( :,45,10) = (/&
 & 1.8997e-01_jprb,2.1445e-01_jprb,2.4251e-01_jprb,2.7313e-01_jprb,3.0812e-01_jprb/)  
kbo( :,46,10) = (/&
 & 1.7240e-01_jprb,1.9626e-01_jprb,2.2342e-01_jprb,2.5309e-01_jprb,2.8552e-01_jprb/)  
kbo( :,47,10) = (/&
 & 1.5588e-01_jprb,1.7894e-01_jprb,2.0504e-01_jprb,2.3411e-01_jprb,2.6565e-01_jprb/)  
kbo( :,48,10) = (/&
 & 1.4123e-01_jprb,1.6344e-01_jprb,1.8846e-01_jprb,2.1670e-01_jprb,2.4797e-01_jprb/)  
kbo( :,49,10) = (/&
 & 1.2790e-01_jprb,1.4966e-01_jprb,1.7367e-01_jprb,2.0107e-01_jprb,2.3131e-01_jprb/)  
kbo( :,50,10) = (/&
 & 1.1631e-01_jprb,1.3796e-01_jprb,1.6097e-01_jprb,1.8742e-01_jprb,2.1727e-01_jprb/)  
kbo( :,51,10) = (/&
 & 1.0575e-01_jprb,1.2733e-01_jprb,1.4991e-01_jprb,1.7544e-01_jprb,2.0476e-01_jprb/)  
kbo( :,52,10) = (/&
 & 9.6036e-02_jprb,1.1774e-01_jprb,1.4002e-01_jprb,1.6481e-01_jprb,1.9345e-01_jprb/)  
kbo( :,53,10) = (/&
 & 8.7304e-02_jprb,1.0881e-01_jprb,1.3107e-01_jprb,1.5527e-01_jprb,1.8336e-01_jprb/)  
kbo( :,54,10) = (/&
 & 7.9875e-02_jprb,1.0109e-01_jprb,1.2361e-01_jprb,1.4762e-01_jprb,1.7497e-01_jprb/)  
kbo( :,55,10) = (/&
 & 7.3300e-02_jprb,9.4374e-02_jprb,1.1713e-01_jprb,1.4114e-01_jprb,1.6800e-01_jprb/)  
kbo( :,56,10) = (/&
 & 6.7351e-02_jprb,8.8262e-02_jprb,1.1132e-01_jprb,1.3535e-01_jprb,1.6204e-01_jprb/)  
kbo( :,57,10) = (/&
 & 6.1746e-02_jprb,8.2507e-02_jprb,1.0564e-01_jprb,1.3036e-01_jprb,1.5696e-01_jprb/)  
kbo( :,58,10) = (/&
 & 5.6716e-02_jprb,7.7524e-02_jprb,1.0086e-01_jprb,1.2629e-01_jprb,1.5285e-01_jprb/)  
kbo( :,59,10) = (/&
 & 5.5147e-02_jprb,7.6460e-02_jprb,1.0042e-01_jprb,1.2667e-01_jprb,1.5391e-01_jprb/)  
kbo( :,13,11) = (/&
 & 1.8957e+01_jprb,2.1748e+01_jprb,2.4276e+01_jprb,2.6474e+01_jprb,2.8529e+01_jprb/)  
kbo( :,14,11) = (/&
 & 1.8017e+01_jprb,2.0380e+01_jprb,2.2545e+01_jprb,2.4583e+01_jprb,2.6571e+01_jprb/)  
kbo( :,15,11) = (/&
 & 1.6510e+01_jprb,1.8590e+01_jprb,2.0569e+01_jprb,2.2529e+01_jprb,2.4350e+01_jprb/)  
kbo( :,16,11) = (/&
 & 1.4872e+01_jprb,1.6760e+01_jprb,1.8614e+01_jprb,2.0335e+01_jprb,2.1912e+01_jprb/)  
kbo( :,17,11) = (/&
 & 1.3279e+01_jprb,1.4995e+01_jprb,1.6568e+01_jprb,1.8053e+01_jprb,1.9485e+01_jprb/)  
kbo( :,18,11) = (/&
 & 1.1753e+01_jprb,1.3179e+01_jprb,1.4580e+01_jprb,1.5907e+01_jprb,1.7114e+01_jprb/)  
kbo( :,19,11) = (/&
 & 1.0231e+01_jprb,1.1513e+01_jprb,1.2740e+01_jprb,1.3859e+01_jprb,1.4884e+01_jprb/)  
kbo( :,20,11) = (/&
 & 8.9451e+00_jprb,1.0050e+01_jprb,1.1073e+01_jprb,1.1999e+01_jprb,1.2912e+01_jprb/)  
kbo( :,21,11) = (/&
 & 7.7987e+00_jprb,8.7082e+00_jprb,9.5625e+00_jprb,1.0395e+01_jprb,1.1226e+01_jprb/)  
kbo( :,22,11) = (/&
 & 6.8043e+00_jprb,7.5642e+00_jprb,8.3187e+00_jprb,9.0767e+00_jprb,9.8017e+00_jprb/)  
kbo( :,23,11) = (/&
 & 5.8859e+00_jprb,6.5615e+00_jprb,7.2498e+00_jprb,7.9149e+00_jprb,8.5372e+00_jprb/)  
kbo( :,24,11) = (/&
 & 5.1134e+00_jprb,5.7222e+00_jprb,6.3175e+00_jprb,6.8808e+00_jprb,7.4024e+00_jprb/)  
kbo( :,25,11) = (/&
 & 4.4669e+00_jprb,4.9952e+00_jprb,5.4997e+00_jprb,5.9652e+00_jprb,6.4204e+00_jprb/)  
kbo( :,26,11) = (/&
 & 3.9220e+00_jprb,4.3661e+00_jprb,4.7791e+00_jprb,5.1780e+00_jprb,5.5750e+00_jprb/)  
kbo( :,27,11) = (/&
 & 3.4424e+00_jprb,3.8118e+00_jprb,4.1663e+00_jprb,4.5195e+00_jprb,4.8555e+00_jprb/)  
kbo( :,28,11) = (/&
 & 3.0179e+00_jprb,3.3339e+00_jprb,3.6464e+00_jprb,3.9515e+00_jprb,4.2432e+00_jprb/)  
kbo( :,29,11) = (/&
 & 2.6509e+00_jprb,2.9253e+00_jprb,3.1964e+00_jprb,3.4617e+00_jprb,3.7117e+00_jprb/)  
kbo( :,30,11) = (/&
 & 2.3307e+00_jprb,2.5742e+00_jprb,2.8104e+00_jprb,3.0372e+00_jprb,3.2705e+00_jprb/)  
kbo( :,31,11) = (/&
 & 2.0517e+00_jprb,2.2676e+00_jprb,2.4784e+00_jprb,2.6845e+00_jprb,2.9117e+00_jprb/)  
kbo( :,32,11) = (/&
 & 1.8127e+00_jprb,2.0021e+00_jprb,2.1892e+00_jprb,2.3933e+00_jprb,2.6228e+00_jprb/)  
kbo( :,33,11) = (/&
 & 1.6070e+00_jprb,1.7736e+00_jprb,1.9506e+00_jprb,2.1502e+00_jprb,2.3904e+00_jprb/)  
kbo( :,34,11) = (/&
 & 1.4245e+00_jprb,1.5783e+00_jprb,1.7496e+00_jprb,1.9501e+00_jprb,2.1946e+00_jprb/)  
kbo( :,35,11) = (/&
 & 1.2566e+00_jprb,1.4023e+00_jprb,1.5672e+00_jprb,1.7720e+00_jprb,2.0104e+00_jprb/)  
kbo( :,36,11) = (/&
 & 1.1042e+00_jprb,1.2386e+00_jprb,1.4007e+00_jprb,1.6008e+00_jprb,1.8331e+00_jprb/)  
kbo( :,37,11) = (/&
 & 9.6207e-01_jprb,1.0840e+00_jprb,1.2374e+00_jprb,1.4256e+00_jprb,1.6496e+00_jprb/)  
kbo( :,38,11) = (/&
 & 8.4455e-01_jprb,9.5449e-01_jprb,1.0990e+00_jprb,1.2750e+00_jprb,1.4911e+00_jprb/)  

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


SUBROUTINE part6

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


kbo( :,39,11) = (/&
 & 7.4626e-01_jprb,8.4779e-01_jprb,9.8068e-01_jprb,1.1482e+00_jprb,1.3562e+00_jprb/)  
kbo( :,40,11) = (/&
 & 6.5687e-01_jprb,7.4696e-01_jprb,8.6819e-01_jprb,1.0227e+00_jprb,1.2185e+00_jprb/)  
kbo( :,41,11) = (/&
 & 5.8461e-01_jprb,6.6225e-01_jprb,7.7143e-01_jprb,9.1274e-01_jprb,1.0964e+00_jprb/)  
kbo( :,42,11) = (/&
 & 5.2648e-01_jprb,5.9347e-01_jprb,6.8980e-01_jprb,8.2031e-01_jprb,9.9027e-01_jprb/)  
kbo( :,43,11) = (/&
 & 4.7640e-01_jprb,5.3372e-01_jprb,6.1655e-01_jprb,7.3335e-01_jprb,8.8864e-01_jprb/)  
kbo( :,44,11) = (/&
 & 4.3331e-01_jprb,4.8509e-01_jprb,5.5515e-01_jprb,6.5677e-01_jprb,7.9761e-01_jprb/)  
kbo( :,45,11) = (/&
 & 3.9738e-01_jprb,4.4505e-01_jprb,5.0582e-01_jprb,5.9392e-01_jprb,7.1934e-01_jprb/)  
kbo( :,46,11) = (/&
 & 3.6702e-01_jprb,4.1005e-01_jprb,4.6451e-01_jprb,5.4011e-01_jprb,6.5038e-01_jprb/)  
kbo( :,47,11) = (/&
 & 3.3839e-01_jprb,3.7909e-01_jprb,4.2775e-01_jprb,4.9390e-01_jprb,5.8796e-01_jprb/)  
kbo( :,48,11) = (/&
 & 3.1214e-01_jprb,3.5328e-01_jprb,3.9721e-01_jprb,4.5625e-01_jprb,5.3740e-01_jprb/)  
kbo( :,49,11) = (/&
 & 2.8824e-01_jprb,3.3045e-01_jprb,3.7202e-01_jprb,4.2475e-01_jprb,4.9686e-01_jprb/)  
kbo( :,50,11) = (/&
 & 2.6700e-01_jprb,3.0926e-01_jprb,3.5179e-01_jprb,3.9959e-01_jprb,4.6448e-01_jprb/)  
kbo( :,51,11) = (/&
 & 2.4729e-01_jprb,2.9050e-01_jprb,3.3394e-01_jprb,3.7954e-01_jprb,4.3852e-01_jprb/)  
kbo( :,52,11) = (/&
 & 2.2915e-01_jprb,2.7331e-01_jprb,3.1717e-01_jprb,3.6223e-01_jprb,4.1654e-01_jprb/)  
kbo( :,53,11) = (/&
 & 2.1197e-01_jprb,2.5644e-01_jprb,3.0181e-01_jprb,3.4764e-01_jprb,3.9788e-01_jprb/)  
kbo( :,54,11) = (/&
 & 1.9678e-01_jprb,2.4209e-01_jprb,2.8845e-01_jprb,3.3563e-01_jprb,3.8416e-01_jprb/)  
kbo( :,55,11) = (/&
 & 1.8279e-01_jprb,2.2890e-01_jprb,2.7659e-01_jprb,3.2457e-01_jprb,3.7331e-01_jprb/)  
kbo( :,56,11) = (/&
 & 1.6948e-01_jprb,2.1660e-01_jprb,2.6478e-01_jprb,3.1391e-01_jprb,3.6327e-01_jprb/)  
kbo( :,57,11) = (/&
 & 1.5665e-01_jprb,2.0505e-01_jprb,2.5378e-01_jprb,3.0423e-01_jprb,3.5431e-01_jprb/)  
kbo( :,58,11) = (/&
 & 1.4542e-01_jprb,1.9412e-01_jprb,2.4425e-01_jprb,2.9539e-01_jprb,3.4713e-01_jprb/)  
kbo( :,59,11) = (/&
 & 1.4258e-01_jprb,1.9210e-01_jprb,2.4323e-01_jprb,2.9526e-01_jprb,3.4821e-01_jprb/)  
kbo( :,13,12) = (/&
 & 3.3441e+01_jprb,3.7821e+01_jprb,4.2136e+01_jprb,4.6394e+01_jprb,5.0550e+01_jprb/)  
kbo( :,14,12) = (/&
 & 3.2651e+01_jprb,3.7152e+01_jprb,4.1595e+01_jprb,4.5890e+01_jprb,4.9879e+01_jprb/)  
kbo( :,15,12) = (/&
 & 3.1800e+01_jprb,3.6293e+01_jprb,4.0605e+01_jprb,4.4452e+01_jprb,4.7952e+01_jprb/)  
kbo( :,16,12) = (/&
 & 3.0652e+01_jprb,3.4834e+01_jprb,3.8488e+01_jprb,4.1902e+01_jprb,4.5172e+01_jprb/)  
kbo( :,17,12) = (/&
 & 2.8740e+01_jprb,3.2239e+01_jprb,3.5631e+01_jprb,3.8859e+01_jprb,4.1888e+01_jprb/)  
kbo( :,18,12) = (/&
 & 2.6152e+01_jprb,2.9383e+01_jprb,3.2433e+01_jprb,3.5444e+01_jprb,3.8304e+01_jprb/)  
kbo( :,19,12) = (/&
 & 2.3535e+01_jprb,2.6428e+01_jprb,2.9253e+01_jprb,3.1986e+01_jprb,3.4626e+01_jprb/)  
kbo( :,20,12) = (/&
 & 2.1009e+01_jprb,2.3665e+01_jprb,2.6170e+01_jprb,2.8648e+01_jprb,3.1009e+01_jprb/)  
kbo( :,21,12) = (/&
 & 1.8666e+01_jprb,2.0970e+01_jprb,2.3240e+01_jprb,2.5449e+01_jprb,2.7590e+01_jprb/)  
kbo( :,22,12) = (/&
 & 1.6562e+01_jprb,1.8637e+01_jprb,2.0680e+01_jprb,2.2664e+01_jprb,2.4579e+01_jprb/)  
kbo( :,23,12) = (/&
 & 1.4724e+01_jprb,1.6583e+01_jprb,1.8398e+01_jprb,2.0130e+01_jprb,2.1853e+01_jprb/)  
kbo( :,24,12) = (/&
 & 1.3115e+01_jprb,1.4740e+01_jprb,1.6306e+01_jprb,1.7839e+01_jprb,1.9442e+01_jprb/)  
kbo( :,25,12) = (/&
 & 1.1682e+01_jprb,1.3060e+01_jprb,1.4446e+01_jprb,1.5890e+01_jprb,1.7412e+01_jprb/)  
kbo( :,26,12) = (/&
 & 1.0376e+01_jprb,1.1606e+01_jprb,1.2912e+01_jprb,1.4282e+01_jprb,1.5708e+01_jprb/)  
kbo( :,27,12) = (/&
 & 9.2264e+00_jprb,1.0375e+01_jprb,1.1611e+01_jprb,1.2892e+01_jprb,1.4269e+01_jprb/)  
kbo( :,28,12) = (/&
 & 8.2384e+00_jprb,9.3278e+00_jprb,1.0501e+01_jprb,1.1713e+01_jprb,1.3001e+01_jprb/)  
kbo( :,29,12) = (/&
 & 7.4191e+00_jprb,8.4528e+00_jprb,9.5480e+00_jprb,1.0688e+01_jprb,1.1930e+01_jprb/)  
kbo( :,30,12) = (/&
 & 6.7411e+00_jprb,7.6959e+00_jprb,8.7238e+00_jprb,9.8332e+00_jprb,1.1024e+01_jprb/)  
kbo( :,31,12) = (/&
 & 6.1743e+00_jprb,7.0565e+00_jprb,8.0433e+00_jprb,9.1146e+00_jprb,1.0281e+01_jprb/)  
kbo( :,32,12) = (/&
 & 5.6829e+00_jprb,6.5368e+00_jprb,7.4832e+00_jprb,8.5285e+00_jprb,9.6975e+00_jprb/)  
kbo( :,33,12) = (/&
 & 5.2696e+00_jprb,6.1016e+00_jprb,7.0284e+00_jprb,8.0819e+00_jprb,9.2712e+00_jprb/)  
kbo( :,34,12) = (/&
 & 4.9064e+00_jprb,5.7181e+00_jprb,6.6470e+00_jprb,7.7097e+00_jprb,8.9376e+00_jprb/)  
kbo( :,35,12) = (/&
 & 4.5385e+00_jprb,5.3339e+00_jprb,6.2645e+00_jprb,7.3393e+00_jprb,8.6167e+00_jprb/)  
kbo( :,36,12) = (/&
 & 4.1592e+00_jprb,4.9372e+00_jprb,5.8640e+00_jprb,6.9463e+00_jprb,8.2444e+00_jprb/)  
kbo( :,37,12) = (/&
 & 3.7366e+00_jprb,4.4851e+00_jprb,5.3891e+00_jprb,6.4562e+00_jprb,7.7447e+00_jprb/)  
kbo( :,38,12) = (/&
 & 3.3663e+00_jprb,4.0921e+00_jprb,4.9726e+00_jprb,6.0256e+00_jprb,7.2966e+00_jprb/)  
kbo( :,39,12) = (/&
 & 3.0524e+00_jprb,3.7541e+00_jprb,4.6132e+00_jprb,5.6531e+00_jprb,6.9025e+00_jprb/)  
kbo( :,40,12) = (/&
 & 2.7210e+00_jprb,3.3890e+00_jprb,4.2060e+00_jprb,5.2106e+00_jprb,6.4181e+00_jprb/)  
kbo( :,41,12) = (/&
 & 2.4254e+00_jprb,3.0563e+00_jprb,3.8366e+00_jprb,4.7969e+00_jprb,5.9597e+00_jprb/)  
kbo( :,42,12) = (/&
 & 2.1679e+00_jprb,2.7607e+00_jprb,3.5045e+00_jprb,4.4213e+00_jprb,5.5422e+00_jprb/)  
kbo( :,43,12) = (/&
 & 1.9142e+00_jprb,2.4659e+00_jprb,3.1656e+00_jprb,4.0260e+00_jprb,5.0928e+00_jprb/)  
kbo( :,44,12) = (/&
 & 1.6815e+00_jprb,2.1897e+00_jprb,2.8396e+00_jprb,3.6424e+00_jprb,4.6457e+00_jprb/)  
kbo( :,45,12) = (/&
 & 1.4779e+00_jprb,1.9464e+00_jprb,2.5447e+00_jprb,3.2950e+00_jprb,4.2351e+00_jprb/)  
kbo( :,46,12) = (/&
 & 1.2911e+00_jprb,1.7201e+00_jprb,2.2670e+00_jprb,2.9688e+00_jprb,3.8370e+00_jprb/)  
kbo( :,47,12) = (/&
 & 1.1167e+00_jprb,1.4998e+00_jprb,1.9968e+00_jprb,2.6327e+00_jprb,3.4335e+00_jprb/)  
kbo( :,48,12) = (/&
 & 9.7000e-01_jprb,1.3056e+00_jprb,1.7582e+00_jprb,2.3318e+00_jprb,3.0672e+00_jprb/)  
kbo( :,49,12) = (/&
 & 8.4948e-01_jprb,1.1387e+00_jprb,1.5440e+00_jprb,2.0638e+00_jprb,2.7325e+00_jprb/)  
kbo( :,50,12) = (/&
 & 7.5798e-01_jprb,1.0046e+00_jprb,1.3648e+00_jprb,1.8406e+00_jprb,2.4475e+00_jprb/)  
kbo( :,51,12) = (/&
 & 6.8725e-01_jprb,8.9444e-01_jprb,1.2113e+00_jprb,1.6439e+00_jprb,2.1974e+00_jprb/)  
kbo( :,52,12) = (/&
 & 6.3115e-01_jprb,8.0296e-01_jprb,1.0776e+00_jprb,1.4683e+00_jprb,1.9726e+00_jprb/)  
kbo( :,53,12) = (/&
 & 5.8219e-01_jprb,7.2999e-01_jprb,9.6258e-01_jprb,1.3098e+00_jprb,1.7704e+00_jprb/)  
kbo( :,54,12) = (/&
 & 5.4205e-01_jprb,6.7503e-01_jprb,8.7235e-01_jprb,1.1796e+00_jprb,1.6017e+00_jprb/)  
kbo( :,55,12) = (/&
 & 5.0666e-01_jprb,6.3248e-01_jprb,8.0079e-01_jprb,1.0716e+00_jprb,1.4553e+00_jprb/)  
kbo( :,56,12) = (/&
 & 4.7570e-01_jprb,5.9469e-01_jprb,7.4368e-01_jprb,9.7802e-01_jprb,1.3247e+00_jprb/)  
kbo( :,57,12) = (/&
 & 4.4744e-01_jprb,5.6112e-01_jprb,6.9690e-01_jprb,8.9836e-01_jprb,1.2094e+00_jprb/)  
kbo( :,58,12) = (/&
 & 4.2060e-01_jprb,5.3249e-01_jprb,6.6124e-01_jprb,8.3779e-01_jprb,1.1150e+00_jprb/)  
kbo( :,59,12) = (/&
 & 4.1336e-01_jprb,5.2583e-01_jprb,6.5442e-01_jprb,8.2324e-01_jprb,1.0875e+00_jprb/)  
kbo( :,13,13) = (/&
 & 6.2911e+01_jprb,7.0866e+01_jprb,7.8801e+01_jprb,8.6317e+01_jprb,9.3133e+01_jprb/)  
kbo( :,14,13) = (/&
 & 6.4149e+01_jprb,7.2816e+01_jprb,8.0994e+01_jprb,8.8794e+01_jprb,9.5784e+01_jprb/)  
kbo( :,15,13) = (/&
 & 6.5438e+01_jprb,7.4262e+01_jprb,8.2489e+01_jprb,9.0124e+01_jprb,9.7424e+01_jprb/)  
kbo( :,16,13) = (/&
 & 6.5590e+01_jprb,7.4146e+01_jprb,8.2531e+01_jprb,9.0209e+01_jprb,9.7706e+01_jprb/)  
kbo( :,17,13) = (/&
 & 6.4830e+01_jprb,7.3370e+01_jprb,8.1573e+01_jprb,8.9511e+01_jprb,9.7077e+01_jprb/)  
kbo( :,18,13) = (/&
 & 6.3631e+01_jprb,7.1937e+01_jprb,8.0198e+01_jprb,8.8105e+01_jprb,9.5322e+01_jprb/)  
kbo( :,19,13) = (/&
 & 6.1647e+01_jprb,6.9823e+01_jprb,7.7707e+01_jprb,8.5203e+01_jprb,9.2333e+01_jprb/)  
kbo( :,20,13) = (/&
 & 5.9220e+01_jprb,6.6886e+01_jprb,7.4459e+01_jprb,8.1516e+01_jprb,8.8383e+01_jprb/)  
kbo( :,21,13) = (/&
 & 5.5943e+01_jprb,6.3222e+01_jprb,7.0272e+01_jprb,7.7027e+01_jprb,8.3664e+01_jprb/)  
kbo( :,22,13) = (/&
 & 5.2530e+01_jprb,5.9289e+01_jprb,6.5955e+01_jprb,7.2675e+01_jprb,7.9278e+01_jprb/)  
kbo( :,23,13) = (/&
 & 4.8798e+01_jprb,5.5211e+01_jprb,6.1705e+01_jprb,6.8359e+01_jprb,7.5139e+01_jprb/)  
kbo( :,24,13) = (/&
 & 4.5161e+01_jprb,5.1397e+01_jprb,5.7807e+01_jprb,6.4502e+01_jprb,7.1268e+01_jprb/)  
kbo( :,25,13) = (/&
 & 4.1926e+01_jprb,4.8095e+01_jprb,5.4440e+01_jprb,6.1093e+01_jprb,6.7734e+01_jprb/)  
kbo( :,26,13) = (/&
 & 3.9234e+01_jprb,4.5282e+01_jprb,5.1559e+01_jprb,5.8099e+01_jprb,6.4750e+01_jprb/)  
kbo( :,27,13) = (/&
 & 3.7014e+01_jprb,4.2942e+01_jprb,4.9090e+01_jprb,5.5651e+01_jprb,6.2419e+01_jprb/)  
kbo( :,28,13) = (/&
 & 3.5158e+01_jprb,4.0969e+01_jprb,4.7074e+01_jprb,5.3764e+01_jprb,6.0756e+01_jprb/)  
kbo( :,29,13) = (/&
 & 3.3618e+01_jprb,3.9411e+01_jprb,4.5654e+01_jprb,5.2544e+01_jprb,5.9755e+01_jprb/)  
kbo( :,30,13) = (/&
 & 3.2426e+01_jprb,3.8339e+01_jprb,4.4787e+01_jprb,5.1833e+01_jprb,5.9294e+01_jprb/)  
kbo( :,31,13) = (/&
 & 3.1684e+01_jprb,3.7780e+01_jprb,4.4404e+01_jprb,5.1653e+01_jprb,5.9352e+01_jprb/)  
kbo( :,32,13) = (/&
 & 3.1354e+01_jprb,3.7669e+01_jprb,4.4512e+01_jprb,5.1974e+01_jprb,5.9794e+01_jprb/)  
kbo( :,33,13) = (/&
 & 3.1431e+01_jprb,3.7960e+01_jprb,4.5034e+01_jprb,5.2659e+01_jprb,6.0610e+01_jprb/)  
kbo( :,34,13) = (/&
 & 3.1647e+01_jprb,3.8355e+01_jprb,4.5600e+01_jprb,5.3397e+01_jprb,6.1465e+01_jprb/)  
kbo( :,35,13) = (/&
 & 3.1516e+01_jprb,3.8346e+01_jprb,4.5688e+01_jprb,5.3575e+01_jprb,6.1719e+01_jprb/)  
kbo( :,36,13) = (/&
 & 3.0864e+01_jprb,3.7754e+01_jprb,4.5120e+01_jprb,5.3052e+01_jprb,6.1227e+01_jprb/)  
kbo( :,37,13) = (/&
 & 2.9388e+01_jprb,3.6192e+01_jprb,4.3536e+01_jprb,5.1439e+01_jprb,5.9606e+01_jprb/)  
kbo( :,38,13) = (/&
 & 2.7977e+01_jprb,3.4812e+01_jprb,4.2002e+01_jprb,4.9861e+01_jprb,5.8021e+01_jprb/)  
kbo( :,39,13) = (/&
 & 2.6681e+01_jprb,3.3428e+01_jprb,4.0601e+01_jprb,4.8374e+01_jprb,5.6514e+01_jprb/)  
kbo( :,40,13) = (/&
 & 2.4843e+01_jprb,3.1428e+01_jprb,3.8462e+01_jprb,4.6157e+01_jprb,5.4241e+01_jprb/)  
kbo( :,41,13) = (/&
 & 2.3029e+01_jprb,2.9429e+01_jprb,3.6318e+01_jprb,4.3916e+01_jprb,5.1916e+01_jprb/)  
kbo( :,42,13) = (/&
 & 2.1319e+01_jprb,2.7525e+01_jprb,3.4247e+01_jprb,4.1738e+01_jprb,4.9652e+01_jprb/)  
kbo( :,43,13) = (/&
 & 1.9398e+01_jprb,2.5350e+01_jprb,3.1861e+01_jprb,3.9204e+01_jprb,4.6981e+01_jprb/)  
kbo( :,44,13) = (/&
 & 1.7469e+01_jprb,2.3129e+01_jprb,2.9410e+01_jprb,3.6561e+01_jprb,4.4193e+01_jprb/)  
kbo( :,45,13) = (/&
 & 1.5674e+01_jprb,2.1025e+01_jprb,2.7064e+01_jprb,3.4000e+01_jprb,4.1469e+01_jprb/)  
kbo( :,46,13) = (/&
 & 1.3910e+01_jprb,1.8921e+01_jprb,2.4680e+01_jprb,3.1376e+01_jprb,3.8606e+01_jprb/)  
kbo( :,47,13) = (/&
 & 1.2107e+01_jprb,1.6739e+01_jprb,2.2157e+01_jprb,2.8551e+01_jprb,3.5550e+01_jprb/)  
kbo( :,48,13) = (/&
 & 1.0467e+01_jprb,1.4727e+01_jprb,1.9785e+01_jprb,2.5861e+01_jprb,3.2591e+01_jprb/)  
kbo( :,49,13) = (/&
 & 8.9964e+00_jprb,1.2871e+01_jprb,1.7569e+01_jprb,2.3303e+01_jprb,2.9748e+01_jprb/)  
kbo( :,50,13) = (/&
 & 7.7376e+00_jprb,1.1272e+01_jprb,1.5632e+01_jprb,2.1029e+01_jprb,2.7193e+01_jprb/)  
kbo( :,51,13) = (/&
 & 6.6259e+00_jprb,9.8500e+00_jprb,1.3883e+01_jprb,1.8950e+01_jprb,2.4815e+01_jprb/)  
kbo( :,52,13) = (/&
 & 5.6271e+00_jprb,8.5555e+00_jprb,1.2269e+01_jprb,1.6994e+01_jprb,2.2544e+01_jprb/)  
kbo( :,53,13) = (/&
 & 4.7464e+00_jprb,7.3819e+00_jprb,1.0780e+01_jprb,1.5159e+01_jprb,2.0385e+01_jprb/)  
kbo( :,54,13) = (/&
 & 4.0353e+00_jprb,6.3931e+00_jprb,9.5243e+00_jprb,1.3591e+01_jprb,1.8508e+01_jprb/)  
kbo( :,55,13) = (/&
 & 3.4415e+00_jprb,5.5338e+00_jprb,8.4199e+00_jprb,1.2188e+01_jprb,1.6812e+01_jprb/)  
kbo( :,56,13) = (/&
 & 2.9273e+00_jprb,4.7696e+00_jprb,7.4019e+00_jprb,1.0887e+01_jprb,1.5214e+01_jprb/)  
kbo( :,57,13) = (/&
 & 2.4891e+00_jprb,4.0887e+00_jprb,6.4628e+00_jprb,9.6770e+00_jprb,1.3714e+01_jprb/)  
kbo( :,58,13) = (/&
 & 2.1365e+00_jprb,3.5240e+00_jprb,5.6504e+00_jprb,8.6145e+00_jprb,1.2383e+01_jprb/)  
kbo( :,59,13) = (/&
 & 2.0108e+00_jprb,3.3183e+00_jprb,5.3478e+00_jprb,8.2077e+00_jprb,1.1868e+01_jprb/)  
kbo( :,13,14) = (/&
 & 1.3475e+02_jprb,1.4982e+02_jprb,1.6261e+02_jprb,1.7487e+02_jprb,1.8519e+02_jprb/)  
kbo( :,14,14) = (/&
 & 1.4605e+02_jprb,1.6065e+02_jprb,1.7393e+02_jprb,1.8700e+02_jprb,1.9852e+02_jprb/)  
kbo( :,15,14) = (/&
 & 1.5360e+02_jprb,1.6964e+02_jprb,1.8495e+02_jprb,1.9863e+02_jprb,2.1254e+02_jprb/)  
kbo( :,16,14) = (/&
 & 1.6093e+02_jprb,1.7838e+02_jprb,1.9523e+02_jprb,2.1044e+02_jprb,2.2565e+02_jprb/)  
kbo( :,17,14) = (/&
 & 1.6793e+02_jprb,1.8625e+02_jprb,2.0393e+02_jprb,2.2116e+02_jprb,2.3675e+02_jprb/)  
kbo( :,18,14) = (/&
 & 1.7285e+02_jprb,1.9238e+02_jprb,2.1120e+02_jprb,2.2923e+02_jprb,2.4575e+02_jprb/)  
kbo( :,19,14) = (/&
 & 1.7622e+02_jprb,1.9702e+02_jprb,2.1717e+02_jprb,2.3603e+02_jprb,2.5402e+02_jprb/)  
kbo( :,20,14) = (/&
 & 1.7911e+02_jprb,2.0088e+02_jprb,2.2224e+02_jprb,2.4259e+02_jprb,2.6154e+02_jprb/)  
kbo( :,21,14) = (/&
 & 1.8174e+02_jprb,2.0471e+02_jprb,2.2728e+02_jprb,2.4849e+02_jprb,2.6851e+02_jprb/)  
kbo( :,22,14) = (/&
 & 1.8638e+02_jprb,2.1059e+02_jprb,2.3335e+02_jprb,2.5504e+02_jprb,2.7546e+02_jprb/)  
kbo( :,23,14) = (/&
 & 1.9098e+02_jprb,2.1549e+02_jprb,2.3861e+02_jprb,2.6061e+02_jprb,2.8131e+02_jprb/)  
kbo( :,24,14) = (/&
 & 1.9501e+02_jprb,2.1999e+02_jprb,2.4340e+02_jprb,2.6590e+02_jprb,2.8693e+02_jprb/)  
kbo( :,25,14) = (/&
 & 1.9819e+02_jprb,2.2397e+02_jprb,2.4813e+02_jprb,2.7104e+02_jprb,2.9266e+02_jprb/)  
kbo( :,26,14) = (/&
 & 2.0202e+02_jprb,2.2842e+02_jprb,2.5295e+02_jprb,2.7657e+02_jprb,2.9876e+02_jprb/)  
kbo( :,27,14) = (/&
 & 2.0582e+02_jprb,2.3283e+02_jprb,2.5800e+02_jprb,2.8203e+02_jprb,3.0452e+02_jprb/)  
kbo( :,28,14) = (/&
 & 2.1022e+02_jprb,2.3779e+02_jprb,2.6328e+02_jprb,2.8767e+02_jprb,3.1024e+02_jprb/)  
kbo( :,29,14) = (/&
 & 2.1520e+02_jprb,2.4340e+02_jprb,2.6893e+02_jprb,2.9346e+02_jprb,3.1620e+02_jprb/)  
kbo( :,30,14) = (/&
 & 2.2063e+02_jprb,2.4918e+02_jprb,2.7482e+02_jprb,2.9948e+02_jprb,3.2215e+02_jprb/)  
kbo( :,31,14) = (/&
 & 2.2657e+02_jprb,2.5536e+02_jprb,2.8102e+02_jprb,3.0571e+02_jprb,3.2824e+02_jprb/)  
kbo( :,32,14) = (/&
 & 2.3308e+02_jprb,2.6187e+02_jprb,2.8740e+02_jprb,3.1199e+02_jprb,3.3425e+02_jprb/)  
kbo( :,33,14) = (/&
 & 2.3986e+02_jprb,2.6855e+02_jprb,2.9383e+02_jprb,3.1826e+02_jprb,3.4018e+02_jprb/)  
kbo( :,34,14) = (/&
 & 2.4577e+02_jprb,2.7438e+02_jprb,2.9944e+02_jprb,3.2357e+02_jprb,3.4520e+02_jprb/)  
kbo( :,35,14) = (/&
 & 2.4905e+02_jprb,2.7766e+02_jprb,3.0272e+02_jprb,3.2667e+02_jprb,3.4817e+02_jprb/)  
kbo( :,36,14) = (/&
 & 2.4929e+02_jprb,2.7807e+02_jprb,3.0324e+02_jprb,3.2723e+02_jprb,3.4886e+02_jprb/)  
kbo( :,37,14) = (/&
 & 2.4523e+02_jprb,2.7437e+02_jprb,2.9994e+02_jprb,3.2429e+02_jprb,3.4633e+02_jprb/)  
kbo( :,38,14) = (/&
 & 2.4091e+02_jprb,2.6959e+02_jprb,2.9637e+02_jprb,3.2107e+02_jprb,3.4355e+02_jprb/)  
kbo( :,39,14) = (/&
 & 2.3660e+02_jprb,2.6566e+02_jprb,2.9263e+02_jprb,3.1774e+02_jprb,3.4063e+02_jprb/)  
kbo( :,40,14) = (/&
 & 2.2919e+02_jprb,2.5872e+02_jprb,2.8615e+02_jprb,3.1182e+02_jprb,3.3536e+02_jprb/)  
kbo( :,41,14) = (/&
 & 2.2133e+02_jprb,2.5130e+02_jprb,2.7920e+02_jprb,3.0540e+02_jprb,3.2953e+02_jprb/)  
kbo( :,42,14) = (/&
 & 2.1340e+02_jprb,2.4374e+02_jprb,2.7207e+02_jprb,2.9884e+02_jprb,3.2354e+02_jprb/)  

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


SUBROUTINE part7

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


kbo( :,43,14) = (/&
 & 2.0367e+02_jprb,2.3438e+02_jprb,2.6323e+02_jprb,2.9066e+02_jprb,3.1594e+02_jprb/)  
kbo( :,44,14) = (/&
 & 1.9308e+02_jprb,2.2419e+02_jprb,2.5349e+02_jprb,2.8159e+02_jprb,3.0748e+02_jprb/)  
kbo( :,45,14) = (/&
 & 1.8246e+02_jprb,2.1385e+02_jprb,2.4356e+02_jprb,2.7233e+02_jprb,2.9882e+02_jprb/)  
kbo( :,46,14) = (/&
 & 1.7114e+02_jprb,2.0272e+02_jprb,2.3288e+02_jprb,2.6301e+02_jprb,2.8969e+02_jprb/)  
kbo( :,47,14) = (/&
 & 1.5855e+02_jprb,1.9020e+02_jprb,2.2076e+02_jprb,2.5136e+02_jprb,2.7873e+02_jprb/)  
kbo( :,48,14) = (/&
 & 1.4607e+02_jprb,1.7757e+02_jprb,2.0844e+02_jprb,2.3948e+02_jprb,2.6744e+02_jprb/)  
kbo( :,49,14) = (/&
 & 1.3419e+02_jprb,1.6492e+02_jprb,1.9597e+02_jprb,2.2733e+02_jprb,2.5595e+02_jprb/)  
kbo( :,50,14) = (/&
 & 1.2262e+02_jprb,1.5312e+02_jprb,1.8424e+02_jprb,2.1573e+02_jprb,2.4494e+02_jprb/)  
kbo( :,51,14) = (/&
 & 1.1164e+02_jprb,1.4176e+02_jprb,1.7283e+02_jprb,2.0437e+02_jprb,2.3409e+02_jprb/)  
kbo( :,52,14) = (/&
 & 1.0096e+02_jprb,1.3046e+02_jprb,1.6140e+02_jprb,1.9297e+02_jprb,2.2308e+02_jprb/)  
kbo( :,53,14) = (/&
 & 9.0551e+01_jprb,1.1931e+02_jprb,1.4994e+02_jprb,1.8152e+02_jprb,2.1190e+02_jprb/)  
kbo( :,54,14) = (/&
 & 8.1410e+01_jprb,1.0953e+02_jprb,1.3953e+02_jprb,1.7100e+02_jprb,2.0156e+02_jprb/)  
kbo( :,55,14) = (/&
 & 7.2959e+01_jprb,1.0018e+02_jprb,1.2955e+02_jprb,1.6095e+02_jprb,1.9160e+02_jprb/)  
kbo( :,56,14) = (/&
 & 6.4819e+01_jprb,9.1140e+01_jprb,1.1985e+02_jprb,1.5098e+02_jprb,1.8160e+02_jprb/)  
kbo( :,57,14) = (/&
 & 5.7095e+01_jprb,8.2366e+01_jprb,1.1034e+02_jprb,1.4102e+02_jprb,1.7160e+02_jprb/)  
kbo( :,58,14) = (/&
 & 5.0134e+01_jprb,7.4344e+01_jprb,1.0153e+02_jprb,1.3164e+02_jprb,1.6214e+02_jprb/)  
kbo( :,59,14) = (/&
 & 4.7470e+01_jprb,7.1199e+01_jprb,9.8036e+01_jprb,1.2792e+02_jprb,1.5834e+02_jprb/)  
kbo( :,13,15) = (/&
 & 2.3558e+02_jprb,2.5344e+02_jprb,2.7628e+02_jprb,3.0031e+02_jprb,3.2250e+02_jprb/)  
kbo( :,14,15) = (/&
 & 2.7096e+02_jprb,2.9360e+02_jprb,3.2037e+02_jprb,3.4774e+02_jprb,3.7218e+02_jprb/)  
kbo( :,15,15) = (/&
 & 3.0994e+02_jprb,3.4303e+02_jprb,3.7440e+02_jprb,3.9962e+02_jprb,4.2667e+02_jprb/)  
kbo( :,16,15) = (/&
 & 3.5542e+02_jprb,3.9314e+02_jprb,4.2812e+02_jprb,4.5543e+02_jprb,4.8444e+02_jprb/)  
kbo( :,17,15) = (/&
 & 4.0444e+02_jprb,4.4528e+02_jprb,4.7841e+02_jprb,5.1608e+02_jprb,5.4481e+02_jprb/)  
kbo( :,18,15) = (/&
 & 4.5639e+02_jprb,5.0053e+02_jprb,5.3577e+02_jprb,5.7622e+02_jprb,6.0843e+02_jprb/)  
kbo( :,19,15) = (/&
 & 5.0901e+02_jprb,5.5503e+02_jprb,5.9764e+02_jprb,6.3637e+02_jprb,6.7067e+02_jprb/)  
kbo( :,20,15) = (/&
 & 5.6225e+02_jprb,6.1156e+02_jprb,6.5621e+02_jprb,6.9717e+02_jprb,7.3299e+02_jprb/)  
kbo( :,21,15) = (/&
 & 6.1341e+02_jprb,6.6505e+02_jprb,7.1266e+02_jprb,7.5506e+02_jprb,7.9166e+02_jprb/)  
kbo( :,22,15) = (/&
 & 6.6477e+02_jprb,7.2026e+02_jprb,7.6733e+02_jprb,8.1180e+02_jprb,8.4941e+02_jprb/)  
kbo( :,23,15) = (/&
 & 7.1351e+02_jprb,7.7168e+02_jprb,8.2016e+02_jprb,8.6518e+02_jprb,9.0001e+02_jprb/)  
kbo( :,24,15) = (/&
 & 7.6064e+02_jprb,8.2095e+02_jprb,8.7032e+02_jprb,9.1500e+02_jprb,9.4974e+02_jprb/)  
kbo( :,25,15) = (/&
 & 8.0382e+02_jprb,8.6818e+02_jprb,9.1637e+02_jprb,9.6097e+02_jprb,9.9482e+02_jprb/)  
kbo( :,26,15) = (/&
 & 8.4787e+02_jprb,9.1216e+02_jprb,9.5982e+02_jprb,1.0033e+03_jprb,1.0355e+03_jprb/)  
kbo( :,27,15) = (/&
 & 8.8962e+02_jprb,9.5330e+02_jprb,9.9941e+02_jprb,1.0412e+03_jprb,1.0715e+03_jprb/)  
kbo( :,28,15) = (/&
 & 9.2764e+02_jprb,9.9055e+02_jprb,1.0352e+03_jprb,1.0749e+03_jprb,1.1028e+03_jprb/)  
kbo( :,29,15) = (/&
 & 9.6348e+02_jprb,1.0242e+03_jprb,1.0673e+03_jprb,1.1051e+03_jprb,1.1303e+03_jprb/)  
kbo( :,30,15) = (/&
 & 9.9639e+02_jprb,1.0551e+03_jprb,1.0958e+03_jprb,1.1311e+03_jprb,1.1539e+03_jprb/)  
kbo( :,31,15) = (/&
 & 1.0263e+03_jprb,1.0827e+03_jprb,1.1208e+03_jprb,1.1537e+03_jprb,1.1744e+03_jprb/)  
kbo( :,32,15) = (/&
 & 1.0534e+03_jprb,1.1075e+03_jprb,1.1431e+03_jprb,1.1732e+03_jprb,1.1921e+03_jprb/)  
kbo( :,33,15) = (/&
 & 1.0779e+03_jprb,1.1295e+03_jprb,1.1625e+03_jprb,1.1902e+03_jprb,1.2073e+03_jprb/)  
kbo( :,34,15) = (/&
 & 1.0982e+03_jprb,1.1477e+03_jprb,1.1785e+03_jprb,1.2044e+03_jprb,1.2197e+03_jprb/)  
kbo( :,35,15) = (/&
 & 1.1118e+03_jprb,1.1603e+03_jprb,1.1896e+03_jprb,1.2145e+03_jprb,1.2287e+03_jprb/)  
kbo( :,36,15) = (/&
 & 1.1191e+03_jprb,1.1674e+03_jprb,1.1964e+03_jprb,1.2211e+03_jprb,1.2348e+03_jprb/)  
kbo( :,37,15) = (/&
 & 1.1180e+03_jprb,1.1678e+03_jprb,1.1978e+03_jprb,1.2234e+03_jprb,1.2378e+03_jprb/)  
kbo( :,38,15) = (/&
 & 1.1152e+03_jprb,1.1644e+03_jprb,1.1974e+03_jprb,1.2244e+03_jprb,1.2396e+03_jprb/)  
kbo( :,39,15) = (/&
 & 1.1116e+03_jprb,1.1623e+03_jprb,1.1960e+03_jprb,1.2249e+03_jprb,1.2407e+03_jprb/)  
kbo( :,40,15) = (/&
 & 1.1018e+03_jprb,1.1551e+03_jprb,1.1910e+03_jprb,1.2221e+03_jprb,1.2391e+03_jprb/)  
kbo( :,41,15) = (/&
 & 1.0898e+03_jprb,1.1461e+03_jprb,1.1848e+03_jprb,1.2178e+03_jprb,1.2366e+03_jprb/)  
kbo( :,42,15) = (/&
 & 1.0762e+03_jprb,1.1359e+03_jprb,1.1775e+03_jprb,1.2126e+03_jprb,1.2333e+03_jprb/)  
kbo( :,43,15) = (/&
 & 1.0578e+03_jprb,1.1216e+03_jprb,1.1668e+03_jprb,1.2048e+03_jprb,1.2281e+03_jprb/)  
kbo( :,44,15) = (/&
 & 1.0362e+03_jprb,1.1044e+03_jprb,1.1534e+03_jprb,1.1947e+03_jprb,1.2212e+03_jprb/)  
kbo( :,45,15) = (/&
 & 1.0130e+03_jprb,1.0854e+03_jprb,1.1384e+03_jprb,1.1833e+03_jprb,1.2130e+03_jprb/)  
kbo( :,46,15) = (/&
 & 9.8649e+02_jprb,1.0633e+03_jprb,1.1204e+03_jprb,1.1664e+03_jprb,1.2047e+03_jprb/)  
kbo( :,47,15) = (/&
 & 9.5447e+02_jprb,1.0363e+03_jprb,1.0984e+03_jprb,1.1495e+03_jprb,1.1920e+03_jprb/)  
kbo( :,48,15) = (/&
 & 9.1939e+02_jprb,1.0072e+03_jprb,1.0744e+03_jprb,1.1303e+03_jprb,1.1778e+03_jprb/)  
kbo( :,49,15) = (/&
 & 8.8250e+02_jprb,9.7585e+02_jprb,1.0483e+03_jprb,1.1094e+03_jprb,1.1613e+03_jprb/)  
kbo( :,50,15) = (/&
 & 8.4647e+02_jprb,9.4477e+02_jprb,1.0219e+03_jprb,1.0877e+03_jprb,1.1441e+03_jprb/)  
kbo( :,51,15) = (/&
 & 8.1004e+02_jprb,9.1259e+02_jprb,9.9388e+02_jprb,1.0648e+03_jprb,1.1259e+03_jprb/)  
kbo( :,52,15) = (/&
 & 7.7148e+02_jprb,8.7865e+02_jprb,9.6436e+02_jprb,1.0402e+03_jprb,1.1061e+03_jprb/)  
kbo( :,53,15) = (/&
 & 7.3147e+02_jprb,8.4306e+02_jprb,9.3344e+02_jprb,1.0140e+03_jprb,1.0845e+03_jprb/)  
kbo( :,54,15) = (/&
 & 6.9315e+02_jprb,8.0891e+02_jprb,9.0347e+02_jprb,9.8850e+02_jprb,1.0632e+03_jprb/)  
kbo( :,55,15) = (/&
 & 6.5555e+02_jprb,7.7476e+02_jprb,8.7174e+02_jprb,9.6242e+02_jprb,1.0413e+03_jprb/)  
kbo( :,56,15) = (/&
 & 6.1722e+02_jprb,7.3961e+02_jprb,8.4012e+02_jprb,9.3483e+02_jprb,1.0182e+03_jprb/)  
kbo( :,57,15) = (/&
 & 5.7836e+02_jprb,7.0324e+02_jprb,8.0736e+02_jprb,9.0611e+02_jprb,9.9376e+02_jprb/)  
kbo( :,58,15) = (/&
 & 5.4103e+02_jprb,6.6804e+02_jprb,7.7522e+02_jprb,8.7787e+02_jprb,9.6912e+02_jprb/)  
kbo( :,59,15) = (/&
 & 5.2599e+02_jprb,6.5379e+02_jprb,7.6206e+02_jprb,8.6623e+02_jprb,9.5904e+02_jprb/)  
kbo( :,13,16) = (/&
 & 3.9649e+02_jprb,4.3420e+02_jprb,4.7059e+02_jprb,5.0417e+02_jprb,5.3141e+02_jprb/)  
kbo( :,14,16) = (/&
 & 4.8075e+02_jprb,5.2232e+02_jprb,5.6418e+02_jprb,6.0325e+02_jprb,6.3379e+02_jprb/)  
kbo( :,15,16) = (/&
 & 5.7530e+02_jprb,6.3245e+02_jprb,6.8080e+02_jprb,7.1352e+02_jprb,7.4957e+02_jprb/)  
kbo( :,16,16) = (/&
 & 6.8549e+02_jprb,7.5045e+02_jprb,8.0419e+02_jprb,8.3617e+02_jprb,8.7485e+02_jprb/)  
kbo( :,17,16) = (/&
 & 8.0730e+02_jprb,8.7949e+02_jprb,9.2029e+02_jprb,9.8275e+02_jprb,1.0083e+03_jprb/)  
kbo( :,18,16) = (/&
 & 9.3777e+02_jprb,1.0165e+03_jprb,1.0537e+03_jprb,1.1246e+03_jprb,1.1558e+03_jprb/)  
kbo( :,19,16) = (/&
 & 1.0735e+03_jprb,1.1454e+03_jprb,1.2091e+03_jprb,1.2558e+03_jprb,1.3004e+03_jprb/)  
kbo( :,20,16) = (/&
 & 1.2127e+03_jprb,1.2868e+03_jprb,1.3551e+03_jprb,1.3975e+03_jprb,1.4452e+03_jprb/)  
kbo( :,21,16) = (/&
 & 1.3592e+03_jprb,1.4356e+03_jprb,1.5001e+03_jprb,1.5456e+03_jprb,1.5923e+03_jprb/)  
kbo( :,22,16) = (/&
 & 1.5169e+03_jprb,1.5965e+03_jprb,1.6436e+03_jprb,1.6935e+03_jprb,1.7383e+03_jprb/)  
kbo( :,23,16) = (/&
 & 1.6753e+03_jprb,1.7518e+03_jprb,1.7912e+03_jprb,1.8444e+03_jprb,1.8635e+03_jprb/)  
kbo( :,24,16) = (/&
 & 1.8317e+03_jprb,1.8968e+03_jprb,1.9298e+03_jprb,1.9801e+03_jprb,1.9925e+03_jprb/)  
kbo( :,25,16) = (/&
 & 1.9704e+03_jprb,2.0341e+03_jprb,2.0605e+03_jprb,2.1039e+03_jprb,2.1070e+03_jprb/)  
kbo( :,26,16) = (/&
 & 2.1057e+03_jprb,2.1630e+03_jprb,2.1799e+03_jprb,2.2140e+03_jprb,2.2098e+03_jprb/)  
kbo( :,27,16) = (/&
 & 2.2281e+03_jprb,2.2763e+03_jprb,2.2836e+03_jprb,2.3113e+03_jprb,2.2992e+03_jprb/)  
kbo( :,28,16) = (/&
 & 2.3345e+03_jprb,2.3737e+03_jprb,2.3719e+03_jprb,2.3935e+03_jprb,2.3762e+03_jprb/)  
kbo( :,29,16) = (/&
 & 2.4261e+03_jprb,2.4570e+03_jprb,2.4461e+03_jprb,2.4611e+03_jprb,2.4401e+03_jprb/)  
kbo( :,30,16) = (/&
 & 2.5032e+03_jprb,2.5264e+03_jprb,2.5077e+03_jprb,2.5178e+03_jprb,2.4915e+03_jprb/)  
kbo( :,31,16) = (/&
 & 2.5677e+03_jprb,2.5833e+03_jprb,2.5596e+03_jprb,2.5650e+03_jprb,2.5320e+03_jprb/)  
kbo( :,32,16) = (/&
 & 2.6198e+03_jprb,2.6282e+03_jprb,2.6001e+03_jprb,2.6017e+03_jprb,2.5636e+03_jprb/)  
kbo( :,33,16) = (/&
 & 2.6610e+03_jprb,2.6631e+03_jprb,2.6317e+03_jprb,2.6296e+03_jprb,2.5876e+03_jprb/)  
kbo( :,34,16) = (/&
 & 2.6943e+03_jprb,2.6908e+03_jprb,2.6559e+03_jprb,2.6515e+03_jprb,2.6062e+03_jprb/)  
kbo( :,35,16) = (/&
 & 2.7216e+03_jprb,2.7136e+03_jprb,2.6772e+03_jprb,2.6701e+03_jprb,2.6232e+03_jprb/)  
kbo( :,36,16) = (/&
 & 2.7447e+03_jprb,2.7345e+03_jprb,2.6971e+03_jprb,2.6885e+03_jprb,2.6393e+03_jprb/)  
kbo( :,37,16) = (/&
 & 2.7663e+03_jprb,2.7556e+03_jprb,2.7187e+03_jprb,2.7089e+03_jprb,2.6589e+03_jprb/)  
kbo( :,38,16) = (/&
 & 2.7858e+03_jprb,2.7874e+03_jprb,2.7366e+03_jprb,2.7269e+03_jprb,2.6752e+03_jprb/)  
kbo( :,39,16) = (/&
 & 2.8024e+03_jprb,2.8038e+03_jprb,2.7625e+03_jprb,2.7421e+03_jprb,2.6902e+03_jprb/)  
kbo( :,40,16) = (/&
 & 2.8177e+03_jprb,2.8195e+03_jprb,2.7788e+03_jprb,2.7591e+03_jprb,2.7091e+03_jprb/)  
kbo( :,41,16) = (/&
 & 2.8303e+03_jprb,2.8352e+03_jprb,2.7935e+03_jprb,2.7758e+03_jprb,2.7270e+03_jprb/)  
kbo( :,42,16) = (/&
 & 2.8434e+03_jprb,2.8482e+03_jprb,2.8071e+03_jprb,2.7922e+03_jprb,2.7438e+03_jprb/)  
kbo( :,43,16) = (/&
 & 2.8548e+03_jprb,2.8612e+03_jprb,2.8211e+03_jprb,2.8082e+03_jprb,2.7619e+03_jprb/)  
kbo( :,44,16) = (/&
 & 2.8632e+03_jprb,2.8731e+03_jprb,2.8359e+03_jprb,2.8241e+03_jprb,2.7786e+03_jprb/)  
kbo( :,45,16) = (/&
 & 2.8674e+03_jprb,2.8836e+03_jprb,2.8494e+03_jprb,2.8388e+03_jprb,2.7940e+03_jprb/)  
kbo( :,46,16) = (/&
 & 2.8677e+03_jprb,2.8925e+03_jprb,2.8629e+03_jprb,2.8226e+03_jprb,2.8119e+03_jprb/)  
kbo( :,47,16) = (/&
 & 2.8633e+03_jprb,2.9002e+03_jprb,2.8748e+03_jprb,2.8361e+03_jprb,2.8260e+03_jprb/)  
kbo( :,48,16) = (/&
 & 2.8578e+03_jprb,2.9030e+03_jprb,2.8832e+03_jprb,2.8487e+03_jprb,2.8389e+03_jprb/)  
kbo( :,49,16) = (/&
 & 2.8403e+03_jprb,2.9008e+03_jprb,2.8874e+03_jprb,2.8585e+03_jprb,2.8534e+03_jprb/)  
kbo( :,50,16) = (/&
 & 2.8204e+03_jprb,2.8937e+03_jprb,2.8907e+03_jprb,2.8681e+03_jprb,2.8665e+03_jprb/)  
kbo( :,51,16) = (/&
 & 2.7945e+03_jprb,2.8834e+03_jprb,2.8924e+03_jprb,2.8761e+03_jprb,2.8762e+03_jprb/)  
kbo( :,52,16) = (/&
 & 2.7647e+03_jprb,2.8693e+03_jprb,2.8895e+03_jprb,2.8805e+03_jprb,2.8863e+03_jprb/)  
kbo( :,53,16) = (/&
 & 2.7286e+03_jprb,2.8496e+03_jprb,2.8822e+03_jprb,2.8814e+03_jprb,2.8931e+03_jprb/)  
kbo( :,54,16) = (/&
 & 2.6904e+03_jprb,2.8223e+03_jprb,2.8712e+03_jprb,2.8790e+03_jprb,2.8991e+03_jprb/)  
kbo( :,55,16) = (/&
 & 2.6470e+03_jprb,2.7955e+03_jprb,2.8486e+03_jprb,2.8755e+03_jprb,2.9024e+03_jprb/)  
kbo( :,56,16) = (/&
 & 2.5966e+03_jprb,2.7630e+03_jprb,2.8315e+03_jprb,2.8687e+03_jprb,2.9035e+03_jprb/)  
kbo( :,57,16) = (/&
 & 2.5400e+03_jprb,2.7247e+03_jprb,2.8099e+03_jprb,2.8582e+03_jprb,2.9024e+03_jprb/)  
kbo( :,58,16) = (/&
 & 2.4795e+03_jprb,2.6821e+03_jprb,2.7847e+03_jprb,2.8441e+03_jprb,2.8994e+03_jprb/)  
kbo( :,59,16) = (/&
 & 2.4534e+03_jprb,2.6638e+03_jprb,2.7735e+03_jprb,2.8383e+03_jprb,2.8978e+03_jprb/)  

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


END SUBROUTINE rrtm_kgb10