rrtm_kgb9.F90

Go to the documentation of this file.

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

!     Originally by Eli J. Mlawer, Atmospheric & Environmental Research.
!     BAND 9:  1180-1390 cm-1 (low - H2O,CH4; high - CH4)
!     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 yoerrto9 , ONLY : kao     ,kbo     ,selfrefo   ,fracrefao  ,&
 & fracrefbo, absn2oo  
USE yoerrta9 , ONLY : n2oref  ,h2oref  ,ch4ref     ,etaref     ,strrat

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

IMPLICIT NONE
REAL(KIND=JPRB) :: ZHOOK_HANDLE

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

CALL part1
CALL part2
CALL part3
CALL part4
CALL part5
CALL part6
CALL part7
CALL part8
CALL part9
CALL part10
CALL part11
CALL part12
CALL part13
CALL part14
CALL part15
CALL part16
CALL part17

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

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

CONTAINS


SUBROUTINE part1

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


fracrefbo( :) = (/&
 !     From P = 0.071 mb.
 & 0.20148601_jprb,0.15252700_jprb,0.13376500_jprb,0.12184600_jprb,&
 & 0.10767800_jprb,0.09307410_jprb,0.07674570_jprb,0.05876940_jprb,&
 & 0.04001480_jprb,0.00424612_jprb,0.00346896_jprb,0.00269954_jprb,&
 & 0.00196864_jprb,0.00122562_jprb,0.00043628_jprb,0.00004892_jprb/)  

n2oref( :) = (/&
 & 3.20000e-07_jprb,3.20000e-07_jprb,3.20000e-07_jprb,3.20000e-07_jprb,3.20000e-07_jprb,&
 & 3.19652e-07_jprb,3.15324e-07_jprb,3.03830e-07_jprb,2.94221e-07_jprb,2.84953e-07_jprb,&
 & 2.76714e-07_jprb,2.64709e-07_jprb,2.42847e-07_jprb/)  

h2oref( :) = (/&
 & 1.8759999e-02_jprb, 1.2223309e-02_jprb, 5.8908667e-03_jprb, 2.7675382e-03_jprb,  &
 & 1.4065107e-03_jprb, 7.5969833e-04_jprb, 3.8875898e-04_jprb, 1.6542293e-04_jprb,  &
 & 3.7189537e-05_jprb, 7.4764857e-06_jprb, 4.3081886e-06_jprb, 3.3319423e-06_jprb,  &
 & 3.2039343e-06_jprb/)  

ch4ref( :) = (/&
 & 1.7000001e-06_jprb, 1.7000001e-06_jprb, 1.6998713e-06_jprb, 1.6904165e-06_jprb,  &
 & 1.6671424e-06_jprb, 1.6350652e-06_jprb, 1.6097551e-06_jprb, 1.5590465e-06_jprb,  &
 & 1.5119849e-06_jprb, 1.4741138e-06_jprb, 1.4384609e-06_jprb, 1.4002215e-06_jprb,  &
 & 1.3573376e-06_jprb/)  

etaref( :) = (/&
 & 0.0_jprb,0.125_jprb,0.25_jprb,0.375_jprb,0.5_jprb,0.625_jprb,0.75_jprb,0.875_jprb,0.96_jprb,0.99_jprb,1.0_jprb/)  

absn2oo( :) = (/&
 !     From P = 952.
 & 3.26267e-01_jprb,2.42869e-00_jprb,1.15455e+01_jprb,7.39478e-00_jprb,&
 & 5.16550e-00_jprb,2.54474e-00_jprb,3.53082e-00_jprb,3.82278e-00_jprb,&
 & 1.81297e-00_jprb,6.65313e-01_jprb,1.23652e-01_jprb,1.83895e-03_jprb,&
 & 1.70592e-03_jprb,2.68434e-09_jprb,0.0_jprb,0.0_jprb,&
 !     From P = 620.
 & 2.08632e-01_jprb,1.11865e+00_jprb,4.95975e+00_jprb,8.10907e+00_jprb,&
 & 1.10408e+01_jprb,5.45460e+00_jprb,4.18611e+00_jprb,3.53422e+00_jprb,&
 & 2.54164e+00_jprb,3.65093e-01_jprb,5.84480e-01_jprb,2.26918e-01_jprb,&
 & 1.36230e-03_jprb,5.54400e-10_jprb,6.83703e-10_jprb,0.0_jprb,&
 !     From P=313.
 & 6.20022e-02_jprb,2.69521e-01_jprb,9.81928e-01_jprb,1.65004e-00_jprb,&
 & 3.08089e-00_jprb,5.38696e-00_jprb,1.14600e+01_jprb,2.41211e+01_jprb,&
 & 1.69655e+01_jprb,1.37556e-00_jprb,5.43254e-01_jprb,3.52079e-01_jprb,&
 & 4.31888e-01_jprb,4.82523e-06_jprb,5.74747e-11_jprb,0.0_jprb/)  

strrat = 21.6282_jprb

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

!     The array KAO contains absorption coefs at the 16 chosen g-values 
!     for a range of pressure levels> ~100mb, temperatures, and binary
!     species parameters (see taumol.f for definition).  The first 
!     index in the array, JS, runs from 1 to 11, and corresponds to 
!     different values of the binary species parameter.  For instance, 
!     JS=1 refers to dry air, JS = 2 corresponds to the paramter value 1/8, 
!     JS = 3 corresponds to the parameter value 2/8, etc.  The second 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 TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5
!     is for TREF+30.  The third index, JP, runs from 1 to 13 and refers
!     to the JPth reference pressure level (see taumol.f for these levels
!     in mb).  The fourth index, IG, goes from 1 to 16, and indicates
!     which g-interval the absorption coefficients are for.

kao( :, 1, 1, 1) = (/&
 & 1.8511e-03_jprb,2.1684e-03_jprb,1.9806e-03_jprb,1.7402e-03_jprb,1.4775e-03_jprb,1.1966e-03_jprb,&
 & 8.9433e-04_jprb,5.6221e-04_jprb,3.0428e-04_jprb,1.8439e-04_jprb,1.3102e-04_jprb/)  
kao( :, 2, 1, 1) = (/&
 & 2.0894e-03_jprb,2.4523e-03_jprb,2.2500e-03_jprb,1.9818e-03_jprb,1.6875e-03_jprb,1.3729e-03_jprb,&
 & 1.0298e-03_jprb,6.5344e-04_jprb,3.5857e-04_jprb,2.2082e-04_jprb,1.5794e-04_jprb/)  
kao( :, 3, 1, 1) = (/&
 & 2.3330e-03_jprb,2.7449e-03_jprb,2.5294e-03_jprb,2.2345e-03_jprb,1.9095e-03_jprb,1.5602e-03_jprb,&
 & 1.1757e-03_jprb,7.5512e-04_jprb,4.2015e-04_jprb,2.6222e-04_jprb,1.8993e-04_jprb/)  
kao( :, 4, 1, 1) = (/&
 & 2.5835e-03_jprb,3.0490e-03_jprb,2.8221e-03_jprb,2.5018e-03_jprb,2.1465e-03_jprb,1.7595e-03_jprb,&
 & 1.3344e-03_jprb,8.6724e-04_jprb,4.8897e-04_jprb,3.0971e-04_jprb,2.2746e-04_jprb/)  
kao( :, 5, 1, 1) = (/&
 & 2.8404e-03_jprb,3.3655e-03_jprb,3.1292e-03_jprb,2.7851e-03_jprb,2.3984e-03_jprb,1.9730e-03_jprb,&
 & 1.5065e-03_jprb,9.9023e-04_jprb,5.6589e-04_jprb,3.6410e-04_jprb,2.7116e-04_jprb/)  
kao( :, 1, 2, 1) = (/&
 & 1.5469e-03_jprb,1.8260e-03_jprb,1.6779e-03_jprb,1.4743e-03_jprb,1.2523e-03_jprb,1.0146e-03_jprb,&
 & 7.5802e-04_jprb,4.7362e-04_jprb,2.5248e-04_jprb,1.4960e-04_jprb,1.0313e-04_jprb/)  
kao( :, 2, 2, 1) = (/&
 & 1.7573e-03_jprb,2.0750e-03_jprb,1.9149e-03_jprb,1.6867e-03_jprb,1.4365e-03_jprb,1.1680e-03_jprb,&
 & 8.7632e-04_jprb,5.5250e-04_jprb,2.9879e-04_jprb,1.7951e-04_jprb,1.2466e-04_jprb/)  
kao( :, 3, 2, 1) = (/&
 & 1.9736e-03_jprb,2.3350e-03_jprb,2.1627e-03_jprb,1.9104e-03_jprb,1.6322e-03_jprb,1.3324e-03_jprb,&
 & 1.0035e-03_jprb,6.4000e-04_jprb,3.5119e-04_jprb,2.1343e-04_jprb,1.4991e-04_jprb/)  
kao( :, 4, 2, 1) = (/&
 & 2.1961e-03_jprb,2.6057e-03_jprb,2.4227e-03_jprb,2.1470e-03_jprb,1.8412e-03_jprb,1.5084e-03_jprb,&
 & 1.1417e-03_jprb,7.3666e-04_jprb,4.0980e-04_jprb,2.5228e-04_jprb,1.7955e-04_jprb/)  
kao( :, 5, 2, 1) = (/&
 & 2.4226e-03_jprb,2.8887e-03_jprb,2.6975e-03_jprb,2.3995e-03_jprb,2.0641e-03_jprb,1.6967e-03_jprb,&
 & 1.2922e-03_jprb,8.4309e-04_jprb,4.7525e-04_jprb,2.9676e-04_jprb,2.1402e-04_jprb/)  
kao( :, 1, 3, 1) = (/&
 & 1.2487e-03_jprb,1.4859e-03_jprb,1.3703e-03_jprb,1.2034e-03_jprb,1.0233e-03_jprb,8.2934e-04_jprb,&
 & 6.1870e-04_jprb,3.8491e-04_jprb,2.0061e-04_jprb,1.1644e-04_jprb,8.3034e-05_jprb/)  
kao( :, 2, 3, 1) = (/&
 & 1.4306e-03_jprb,1.7008e-03_jprb,1.5762e-03_jprb,1.3877e-03_jprb,1.1829e-03_jprb,9.6138e-04_jprb,&
 & 7.2009e-04_jprb,4.5115e-04_jprb,2.3871e-04_jprb,1.4060e-04_jprb,1.0024e-04_jprb/)  
kao( :, 3, 3, 1) = (/&
 & 1.6189e-03_jprb,1.9278e-03_jprb,1.7928e-03_jprb,1.5827e-03_jprb,1.3525e-03_jprb,1.1028e-03_jprb,&
 & 8.2939e-04_jprb,5.2453e-04_jprb,2.8190e-04_jprb,1.6789e-04_jprb,1.2022e-04_jprb/)  
kao( :, 4, 3, 1) = (/&
 & 1.8135e-03_jprb,2.1671e-03_jprb,2.0211e-03_jprb,1.7891e-03_jprb,1.5341e-03_jprb,1.2544e-03_jprb,&
 & 9.4745e-04_jprb,6.0589e-04_jprb,3.3035e-04_jprb,1.9886e-04_jprb,1.4335e-04_jprb/)  
kao( :, 5, 3, 1) = (/&
 & 2.0119e-03_jprb,2.4174e-03_jprb,2.2628e-03_jprb,2.0104e-03_jprb,1.7281e-03_jprb,1.4171e-03_jprb,&
 & 1.0763e-03_jprb,6.9556e-04_jprb,3.8485e-04_jprb,2.3413e-04_jprb,1.7025e-04_jprb/)  
kao( :, 1, 4, 1) = (/&
 & 9.9332e-04_jprb,1.1937e-03_jprb,1.1041e-03_jprb,9.6868e-04_jprb,8.2360e-04_jprb,6.6725e-04_jprb,&
 & 4.9729e-04_jprb,3.0812e-04_jprb,1.5709e-04_jprb,8.9177e-05_jprb,7.0382e-05_jprb/)  
kao( :, 2, 4, 1) = (/&
 & 1.1489e-03_jprb,1.3782e-03_jprb,1.2812e-03_jprb,1.1272e-03_jprb,9.6052e-04_jprb,7.8016e-04_jprb,&
 & 5.8305e-04_jprb,3.6333e-04_jprb,1.8801e-04_jprb,1.0835e-04_jprb,8.4949e-05_jprb/)  
kao( :, 3, 4, 1) = (/&
 & 1.3111e-03_jprb,1.5738e-03_jprb,1.4685e-03_jprb,1.2957e-03_jprb,1.1067e-03_jprb,9.0126e-04_jprb,&
 & 6.7612e-04_jprb,4.2453e-04_jprb,2.2322e-04_jprb,1.3010e-04_jprb,1.0182e-04_jprb/)  
kao( :, 4, 4, 1) = (/&
 & 1.4784e-03_jprb,1.7816e-03_jprb,1.6672e-03_jprb,1.4760e-03_jprb,1.2640e-03_jprb,1.0311e-03_jprb,&
 & 7.7663e-04_jprb,4.9254e-04_jprb,2.6274e-04_jprb,1.5479e-04_jprb,1.2151e-04_jprb/)  
kao( :, 5, 4, 1) = (/&
 & 1.6498e-03_jprb,2.0005e-03_jprb,1.8776e-03_jprb,1.6682e-03_jprb,1.4321e-03_jprb,1.1713e-03_jprb,&
 & 8.8632e-04_jprb,5.6750e-04_jprb,3.0711e-04_jprb,1.8305e-04_jprb,1.4406e-04_jprb/)  
kao( :, 1, 5, 1) = (/&
 & 7.8562e-04_jprb,9.5485e-04_jprb,8.8731e-04_jprb,7.7760e-04_jprb,6.6042e-04_jprb,5.3465e-04_jprb,&
 & 3.9818e-04_jprb,2.4507e-04_jprb,1.2280e-04_jprb,6.8024e-05_jprb,6.2892e-05_jprb/)  
kao( :, 2, 5, 1) = (/&
 & 9.1788e-04_jprb,1.1130e-03_jprb,1.0387e-03_jprb,9.1348e-04_jprb,7.7739e-04_jprb,6.3079e-04_jprb,&
 & 4.7083e-04_jprb,2.9144e-04_jprb,1.4786e-04_jprb,8.3150e-05_jprb,7.5836e-05_jprb/)  
kao( :, 3, 5, 1) = (/&
 & 1.0564e-03_jprb,1.2815e-03_jprb,1.1993e-03_jprb,1.0584e-03_jprb,9.0286e-04_jprb,7.3472e-04_jprb,&
 & 5.4988e-04_jprb,3.4257e-04_jprb,1.7646e-04_jprb,1.0042e-04_jprb,9.0784e-05_jprb/)  
kao( :, 4, 5, 1) = (/&
 & 1.2000e-03_jprb,1.4607e-03_jprb,1.3706e-03_jprb,1.2143e-03_jprb,1.0385e-03_jprb,8.4626e-04_jprb,&
 & 6.3535e-04_jprb,3.9924e-04_jprb,2.0859e-04_jprb,1.2014e-04_jprb,1.0789e-04_jprb/)  
kao( :, 5, 5, 1) = (/&
 & 1.3470e-03_jprb,1.6493e-03_jprb,1.5534e-03_jprb,1.3815e-03_jprb,1.1841e-03_jprb,9.6670e-04_jprb,&
 & 7.2902e-04_jprb,4.6176e-04_jprb,2.4472e-04_jprb,1.4262e-04_jprb,1.2760e-04_jprb/)  
kao( :, 1, 6, 1) = (/&
 & 6.1309e-04_jprb,7.5529e-04_jprb,7.0573e-04_jprb,6.1814e-04_jprb,5.2423e-04_jprb,4.2388e-04_jprb,&
 & 3.1493e-04_jprb,1.9253e-04_jprb,9.5104e-05_jprb,5.1400e-05_jprb,5.8511e-05_jprb/)  
kao( :, 2, 6, 1) = (/&
 & 7.2529e-04_jprb,8.9038e-04_jprb,8.3470e-04_jprb,7.3394e-04_jprb,6.2382e-04_jprb,5.0540e-04_jprb,&
 & 3.7640e-04_jprb,2.3131e-04_jprb,1.1537e-04_jprb,6.3305e-05_jprb,7.0591e-05_jprb/)  
kao( :, 3, 6, 1) = (/&
 & 8.4334e-04_jprb,1.0336e-03_jprb,9.7184e-04_jprb,8.5812e-04_jprb,7.3092e-04_jprb,5.9381e-04_jprb,&
 & 4.4329e-04_jprb,2.7409e-04_jprb,1.3848e-04_jprb,7.6884e-05_jprb,8.4368e-05_jprb/)  
kao( :, 4, 6, 1) = (/&
 & 9.6591e-04_jprb,1.1861e-03_jprb,1.1181e-03_jprb,9.9183e-04_jprb,8.4677e-04_jprb,6.8969e-04_jprb,&
 & 5.1579e-04_jprb,3.2112e-04_jprb,1.6446e-04_jprb,9.2420e-05_jprb,9.9996e-05_jprb/)  
kao( :, 5, 6, 1) = (/&
 & 1.0919e-03_jprb,1.3468e-03_jprb,1.2743e-03_jprb,1.1355e-03_jprb,9.7181e-04_jprb,7.9286e-04_jprb,&
 & 5.9519e-04_jprb,3.7314e-04_jprb,1.9367e-04_jprb,1.1025e-04_jprb,1.1781e-04_jprb/)  
kao( :, 1, 7, 1) = (/&
 & 4.7156e-04_jprb,5.8937e-04_jprb,5.5332e-04_jprb,4.8469e-04_jprb,4.1048e-04_jprb,3.3155e-04_jprb,&
 & 2.4554e-04_jprb,1.4938e-04_jprb,7.2895e-05_jprb,3.8595e-05_jprb,5.7264e-05_jprb/)  
kao( :, 2, 7, 1) = (/&
 & 5.6495e-04_jprb,7.0294e-04_jprb,6.6167e-04_jprb,5.8245e-04_jprb,4.9439e-04_jprb,4.0002e-04_jprb,&
 & 2.9682e-04_jprb,1.8140e-04_jprb,8.9227e-05_jprb,4.7916e-05_jprb,6.9677e-05_jprb/)  
kao( :, 3, 7, 1) = (/&
 & 6.6439e-04_jprb,8.2373e-04_jprb,7.7721e-04_jprb,6.8744e-04_jprb,5.8490e-04_jprb,4.7448e-04_jprb,&
 & 3.5318e-04_jprb,2.1689e-04_jprb,1.0783e-04_jprb,5.8667e-05_jprb,8.3618e-05_jprb/)  
kao( :, 4, 7, 1) = (/&
 & 7.6901e-04_jprb,9.5239e-04_jprb,9.0133e-04_jprb,8.0079e-04_jprb,6.8276e-04_jprb,5.5536e-04_jprb,&
 & 4.1449e-04_jprb,2.5602e-04_jprb,1.2881e-04_jprb,7.0934e-05_jprb,9.9245e-05_jprb/)  
kao( :, 5, 7, 1) = (/&
 & 8.7687e-04_jprb,1.0882e-03_jprb,1.0337e-03_jprb,9.2277e-04_jprb,7.8860e-04_jprb,6.4298e-04_jprb,&
 & 4.8152e-04_jprb,2.9917e-04_jprb,1.5235e-04_jprb,8.4990e-05_jprb,1.1668e-04_jprb/)  
kao( :, 1, 8, 1) = (/&
 & 3.6149e-04_jprb,4.5739e-04_jprb,4.3172e-04_jprb,3.7856e-04_jprb,3.2005e-04_jprb,2.5782e-04_jprb,&
 & 1.9045e-04_jprb,1.1541e-04_jprb,5.5760e-05_jprb,2.8968e-05_jprb,6.3348e-05_jprb/)  
kao( :, 2, 8, 1) = (/&
 & 4.3856e-04_jprb,5.5284e-04_jprb,5.2317e-04_jprb,4.6128e-04_jprb,3.9080e-04_jprb,3.1525e-04_jprb,&
 & 2.3332e-04_jprb,1.4196e-04_jprb,6.8893e-05_jprb,3.6257e-05_jprb,7.8227e-05_jprb/)  
kao( :, 3, 8, 1) = (/&
 & 5.2180e-04_jprb,6.5495e-04_jprb,6.2122e-04_jprb,5.5050e-04_jprb,4.6739e-04_jprb,3.7783e-04_jprb,&
 & 2.8052e-04_jprb,1.7141e-04_jprb,8.3884e-05_jprb,4.4746e-05_jprb,9.4849e-05_jprb/)  
kao( :, 4, 8, 1) = (/&
 & 6.1041e-04_jprb,7.6428e-04_jprb,7.2626e-04_jprb,6.4667e-04_jprb,5.5039e-04_jprb,4.4616e-04_jprb,&
 & 3.3220e-04_jprb,2.0388e-04_jprb,1.0087e-04_jprb,5.4479e-05_jprb,1.1299e-04_jprb/)  
kao( :, 5, 8, 1) = (/&
 & 7.0263e-04_jprb,8.7961e-04_jprb,8.3866e-04_jprb,7.5024e-04_jprb,6.4012e-04_jprb,5.2015e-04_jprb,&
 & 3.8858e-04_jprb,2.3987e-04_jprb,1.1991e-04_jprb,6.5600e-05_jprb,1.3300e-04_jprb/)  
kao( :, 1, 9, 1) = (/&
 & 2.7588e-04_jprb,3.5363e-04_jprb,3.3564e-04_jprb,2.9442e-04_jprb,2.4845e-04_jprb,1.9944e-04_jprb,&
 & 1.4687e-04_jprb,8.8846e-05_jprb,4.2564e-05_jprb,2.1694e-05_jprb,1.1635e-04_jprb/)  
kao( :, 2, 9, 1) = (/&
 & 3.3926e-04_jprb,4.3331e-04_jprb,4.1256e-04_jprb,3.6456e-04_jprb,3.0818e-04_jprb,2.4781e-04_jprb,&
 & 1.8292e-04_jprb,1.1098e-04_jprb,5.3248e-05_jprb,2.7395e-05_jprb,1.4478e-04_jprb/)  
kao( :, 3, 9, 1) = (/&
 & 4.0867e-04_jprb,5.1901e-04_jprb,4.9554e-04_jprb,4.4073e-04_jprb,3.7338e-04_jprb,3.0096e-04_jprb,&
 & 2.2284e-04_jprb,1.3558e-04_jprb,6.5394e-05_jprb,3.4106e-05_jprb,1.7665e-04_jprb/)  
kao( :, 4, 9, 1) = (/&
 & 4.8311e-04_jprb,6.1155e-04_jprb,5.8496e-04_jprb,5.2319e-04_jprb,4.4421e-04_jprb,3.5901e-04_jprb,&
 & 2.6668e-04_jprb,1.6266e-04_jprb,7.9185e-05_jprb,4.1808e-05_jprb,2.1187e-04_jprb/)  
kao( :, 5, 9, 1) = (/&
 & 5.6145e-04_jprb,7.0981e-04_jprb,6.8093e-04_jprb,6.1164e-04_jprb,5.2090e-04_jprb,4.2218e-04_jprb,&
 & 3.1451e-04_jprb,1.9257e-04_jprb,9.4690e-05_jprb,5.0644e-05_jprb,2.5097e-04_jprb/)  
kao( :, 1,10, 1) = (/&
 & 2.1325e-04_jprb,2.7761e-04_jprb,2.6556e-04_jprb,2.3335e-04_jprb,1.9651e-04_jprb,1.5718e-04_jprb,&
 & 1.1525e-04_jprb,6.9475e-05_jprb,3.3064e-05_jprb,1.6594e-05_jprb,2.6093e-04_jprb/)  
kao( :, 2,10, 1) = (/&
 & 2.6523e-04_jprb,3.4415e-04_jprb,3.3059e-04_jprb,2.9327e-04_jprb,2.4721e-04_jprb,1.9814e-04_jprb,&
 & 1.4562e-04_jprb,8.8015e-05_jprb,4.1956e-05_jprb,2.1115e-05_jprb,3.2387e-04_jprb/)  
kao( :, 3,10, 1) = (/&
 & 3.2298e-04_jprb,4.1660e-04_jprb,4.0088e-04_jprb,3.5836e-04_jprb,3.0264e-04_jprb,2.4324e-04_jprb,&
 & 1.7951e-04_jprb,1.0893e-04_jprb,5.2077e-05_jprb,2.6475e-05_jprb,3.9665e-04_jprb/)  
kao( :, 4,10, 1) = (/&
 & 3.8555e-04_jprb,4.9515e-04_jprb,4.7688e-04_jprb,4.2876e-04_jprb,3.6342e-04_jprb,2.9294e-04_jprb,&
 & 2.1704e-04_jprb,1.3203e-04_jprb,6.3508e-05_jprb,3.2669e-05_jprb,4.7888e-04_jprb/)  
kao( :, 5,10, 1) = (/&
 & 4.5214e-04_jprb,5.7861e-04_jprb,5.5869e-04_jprb,5.0469e-04_jprb,4.2960e-04_jprb,3.4738e-04_jprb,&
 & 2.5818e-04_jprb,1.5755e-04_jprb,7.6353e-05_jprb,3.9767e-05_jprb,5.6953e-04_jprb/)  
kao( :, 1,11, 1) = (/&
 & 1.8263e-04_jprb,2.4132e-04_jprb,2.3375e-04_jprb,2.0689e-04_jprb,1.7392e-04_jprb,1.3885e-04_jprb,&
 & 1.0153e-04_jprb,6.1012e-05_jprb,2.8844e-05_jprb,1.4318e-05_jprb,3.1500e-04_jprb/)  
kao( :, 2,11, 1) = (/&
 & 2.2729e-04_jprb,2.9882e-04_jprb,2.9035e-04_jprb,2.5993e-04_jprb,2.1873e-04_jprb,1.7499e-04_jprb,&
 & 1.2837e-04_jprb,7.7411e-05_jprb,3.6724e-05_jprb,1.8248e-05_jprb,3.9075e-04_jprb/)  
kao( :, 3,11, 1) = (/&
 & 2.7702e-04_jprb,3.6186e-04_jprb,3.5142e-04_jprb,3.1724e-04_jprb,2.6804e-04_jprb,2.1505e-04_jprb,&
 & 1.5840e-04_jprb,9.5897e-05_jprb,4.5698e-05_jprb,2.2869e-05_jprb,4.7807e-04_jprb/)  
kao( :, 4,11, 1) = (/&
 & 3.3090e-04_jprb,4.2990e-04_jprb,4.1786e-04_jprb,3.7887e-04_jprb,3.2210e-04_jprb,2.5914e-04_jprb,&
 & 1.9166e-04_jprb,1.1648e-04_jprb,5.5756e-05_jprb,2.8227e-05_jprb,5.7397e-04_jprb/)  
kao( :, 5,11, 1) = (/&
 & 3.8797e-04_jprb,5.0222e-04_jprb,4.8941e-04_jprb,4.4563e-04_jprb,3.8069e-04_jprb,3.0738e-04_jprb,&
 & 2.2816e-04_jprb,1.3917e-04_jprb,6.7021e-05_jprb,3.4339e-05_jprb,6.7669e-04_jprb/)  
kao( :, 1,12, 1) = (/&
 & 1.5441e-04_jprb,2.0564e-04_jprb,2.0096e-04_jprb,1.7923e-04_jprb,1.5061e-04_jprb,1.2020e-04_jprb,&
 & 8.7841e-05_jprb,5.2718e-05_jprb,2.4841e-05_jprb,1.2247e-05_jprb,3.0779e-04_jprb/)  
kao( :, 2,12, 1) = (/&
 & 1.9212e-04_jprb,2.5449e-04_jprb,2.4895e-04_jprb,2.2471e-04_jprb,1.8931e-04_jprb,1.5143e-04_jprb,&
 & 1.1103e-04_jprb,6.6933e-05_jprb,3.1660e-05_jprb,1.5617e-05_jprb,3.8209e-04_jprb/)  
kao( :, 3,12, 1) = (/&
 & 2.3412e-04_jprb,3.0815e-04_jprb,3.0111e-04_jprb,2.7354e-04_jprb,2.3196e-04_jprb,1.8605e-04_jprb,&
 & 1.3699e-04_jprb,8.2969e-05_jprb,3.9466e-05_jprb,1.9595e-05_jprb,4.6727e-04_jprb/)  
kao( :, 4,12, 1) = (/&
 & 2.7956e-04_jprb,3.6583e-04_jprb,3.5793e-04_jprb,3.2668e-04_jprb,2.7866e-04_jprb,2.2413e-04_jprb,&
 & 1.6571e-04_jprb,1.0083e-04_jprb,4.8187e-05_jprb,2.4182e-05_jprb,5.5911e-04_jprb/)  
kao( :, 5,12, 1) = (/&
 & 3.2770e-04_jprb,4.2716e-04_jprb,4.1907e-04_jprb,3.8390e-04_jprb,3.2941e-04_jprb,2.6578e-04_jprb,&
 & 1.9722e-04_jprb,1.2047e-04_jprb,5.7910e-05_jprb,2.9402e-05_jprb,6.5729e-04_jprb/)  
kao( :, 1,13, 1) = (/&
 & 1.2926e-04_jprb,1.7285e-04_jprb,1.6977e-04_jprb,1.5243e-04_jprb,1.2815e-04_jprb,1.0230e-04_jprb,&
 & 7.4794e-05_jprb,4.4876e-05_jprb,2.1143e-05_jprb,1.0395e-05_jprb,2.5481e-04_jprb/)  
kao( :, 2,13, 1) = (/&
 & 1.6076e-04_jprb,2.1391e-04_jprb,2.1001e-04_jprb,1.9062e-04_jprb,1.6104e-04_jprb,1.2883e-04_jprb,&
 & 9.4499e-05_jprb,5.6968e-05_jprb,2.6983e-05_jprb,1.3259e-05_jprb,3.1628e-04_jprb/)  
kao( :, 3,13, 1) = (/&
 & 1.9591e-04_jprb,2.5905e-04_jprb,2.5408e-04_jprb,2.3203e-04_jprb,1.9732e-04_jprb,1.5826e-04_jprb,&
 & 1.1655e-04_jprb,7.0656e-05_jprb,3.3658e-05_jprb,1.6638e-05_jprb,3.8652e-04_jprb/)  
kao( :, 4,13, 1) = (/&
 & 2.3390e-04_jprb,3.0751e-04_jprb,3.0205e-04_jprb,2.7698e-04_jprb,2.3712e-04_jprb,1.9078e-04_jprb,&
 & 1.4104e-04_jprb,8.5929e-05_jprb,4.1109e-05_jprb,2.0532e-05_jprb,4.6199e-04_jprb/)  
kao( :, 5,13, 1) = (/&
 & 2.7408e-04_jprb,3.5916e-04_jprb,3.5371e-04_jprb,3.2549e-04_jprb,2.8046e-04_jprb,2.2630e-04_jprb,&
 & 1.6790e-04_jprb,1.0268e-04_jprb,4.9402e-05_jprb,2.4960e-05_jprb,5.4289e-04_jprb/)  
kao( :, 1, 1, 2) = (/&
 & 6.0407e-03_jprb,7.8065e-03_jprb,8.1846e-03_jprb,7.8906e-03_jprb,7.1910e-03_jprb,6.1108e-03_jprb,&
 & 4.6908e-03_jprb,3.0070e-03_jprb,1.6029e-03_jprb,8.9663e-04_jprb,5.4161e-04_jprb/)  
kao( :, 2, 1, 2) = (/&
 & 6.8195e-03_jprb,8.6717e-03_jprb,9.0298e-03_jprb,8.7022e-03_jprb,7.9330e-03_jprb,6.7597e-03_jprb,&
 & 5.2275e-03_jprb,3.3989e-03_jprb,1.8520e-03_jprb,1.0477e-03_jprb,6.3833e-04_jprb/)  
kao( :, 3, 1, 2) = (/&
 & 7.5788e-03_jprb,9.5388e-03_jprb,9.9036e-03_jprb,9.5604e-03_jprb,8.7254e-03_jprb,7.4504e-03_jprb,&
 & 5.8064e-03_jprb,3.8251e-03_jprb,2.1238e-03_jprb,1.2161e-03_jprb,7.5231e-04_jprb/)  
kao( :, 4, 1, 2) = (/&
 & 8.3303e-03_jprb,1.0419e-02_jprb,1.0813e-02_jprb,1.0461e-02_jprb,9.5556e-03_jprb,8.1956e-03_jprb,&
 & 6.4324e-03_jprb,4.2921e-03_jprb,2.4115e-03_jprb,1.4052e-03_jprb,8.8294e-04_jprb/)  
kao( :, 5, 1, 2) = (/&
 & 9.0559e-03_jprb,1.1320e-02_jprb,1.1753e-02_jprb,1.1384e-02_jprb,1.0421e-02_jprb,8.9932e-03_jprb,&
 & 7.1094e-03_jprb,4.8020e-03_jprb,2.7233e-03_jprb,1.6150e-03_jprb,1.0321e-03_jprb/)  
kao( :, 1, 2, 2) = (/&
 & 5.2124e-03_jprb,6.6819e-03_jprb,6.9789e-03_jprb,6.7465e-03_jprb,6.1674e-03_jprb,5.2549e-03_jprb,&
 & 4.0193e-03_jprb,2.5539e-03_jprb,1.3468e-03_jprb,7.4621e-04_jprb,4.4731e-04_jprb/)  
kao( :, 2, 2, 2) = (/&
 & 5.8769e-03_jprb,7.4300e-03_jprb,7.7105e-03_jprb,7.4546e-03_jprb,6.8169e-03_jprb,5.8241e-03_jprb,&
 & 4.4832e-03_jprb,2.8884e-03_jprb,1.5578e-03_jprb,8.7448e-04_jprb,5.2849e-04_jprb/)  
kao( :, 3, 2, 2) = (/&
 & 6.5337e-03_jprb,8.1860e-03_jprb,8.4759e-03_jprb,8.2057e-03_jprb,7.5067e-03_jprb,6.4273e-03_jprb,&
 & 4.9857e-03_jprb,3.2553e-03_jprb,1.7880e-03_jprb,1.0185e-03_jprb,6.2321e-04_jprb/)  
kao( :, 4, 2, 2) = (/&
 & 7.1816e-03_jprb,8.9552e-03_jprb,9.2749e-03_jprb,8.9993e-03_jprb,8.2303e-03_jprb,7.0662e-03_jprb,&
 & 5.5323e-03_jprb,3.6583e-03_jprb,2.0367e-03_jprb,1.1804e-03_jprb,7.3231e-04_jprb/)  
kao( :, 5, 2, 2) = (/&
 & 7.8051e-03_jprb,9.7506e-03_jprb,1.0101e-02_jprb,9.8071e-03_jprb,8.9873e-03_jprb,7.7508e-03_jprb,&
 & 6.1243e-03_jprb,4.1022e-03_jprb,2.3063e-03_jprb,1.3585e-03_jprb,8.5647e-04_jprb/)  

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


SUBROUTINE part2

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


kao( :, 1, 3, 2) = (/&
 & 4.3523e-03_jprb,5.5520e-03_jprb,5.7775e-03_jprb,5.5913e-03_jprb,5.1223e-03_jprb,4.3826e-03_jprb,&
 & 3.3610e-03_jprb,2.1161e-03_jprb,1.0951e-03_jprb,5.9556e-04_jprb,3.7857e-04_jprb/)  
kao( :, 2, 3, 2) = (/&
 & 4.9209e-03_jprb,6.2002e-03_jprb,6.4082e-03_jprb,6.1965e-03_jprb,5.6752e-03_jprb,4.8744e-03_jprb,&
 & 3.7636e-03_jprb,2.3985e-03_jprb,1.2700e-03_jprb,7.0291e-04_jprb,4.5096e-04_jprb/)  
kao( :, 3, 3, 2) = (/&
 & 5.4868e-03_jprb,6.8502e-03_jprb,7.0667e-03_jprb,6.8427e-03_jprb,6.2712e-03_jprb,5.3957e-03_jprb,&
 & 4.1940e-03_jprb,2.7077e-03_jprb,1.4615e-03_jprb,8.2150e-04_jprb,5.3286e-04_jprb/)  
kao( :, 4, 3, 2) = (/&
 & 6.0417e-03_jprb,7.5160e-03_jprb,7.7553e-03_jprb,7.5242e-03_jprb,6.9056e-03_jprb,5.9509e-03_jprb,&
 & 4.6578e-03_jprb,3.0477e-03_jprb,1.6703e-03_jprb,9.5611e-04_jprb,6.2579e-04_jprb/)  
kao( :, 5, 3, 2) = (/&
 & 6.5818e-03_jprb,8.2045e-03_jprb,8.4687e-03_jprb,8.2290e-03_jprb,7.5712e-03_jprb,6.5448e-03_jprb,&
 & 5.1618e-03_jprb,3.4239e-03_jprb,1.8984e-03_jprb,1.1049e-03_jprb,7.3100e-04_jprb/)  
kao( :, 1, 4, 2) = (/&
 & 3.6037e-03_jprb,4.5619e-03_jprb,4.7284e-03_jprb,4.5758e-03_jprb,4.1942e-03_jprb,3.5992e-03_jprb,&
 & 2.7695e-03_jprb,1.7380e-03_jprb,8.8220e-04_jprb,4.6885e-04_jprb,3.3625e-04_jprb/)  
kao( :, 2, 4, 2) = (/&
 & 4.0887e-03_jprb,5.1148e-03_jprb,5.2710e-03_jprb,5.0898e-03_jprb,4.6632e-03_jprb,4.0157e-03_jprb,&
 & 3.1155e-03_jprb,1.9801e-03_jprb,1.0256e-03_jprb,5.5681e-04_jprb,4.0363e-04_jprb/)  
kao( :, 3, 4, 2) = (/&
 & 4.5729e-03_jprb,5.6722e-03_jprb,5.8309e-03_jprb,5.6384e-03_jprb,5.1725e-03_jprb,4.4617e-03_jprb,&
 & 3.4837e-03_jprb,2.2420e-03_jprb,1.1837e-03_jprb,6.5451e-04_jprb,4.7814e-04_jprb/)  
kao( :, 4, 4, 2) = (/&
 & 5.0500e-03_jprb,6.2435e-03_jprb,6.4200e-03_jprb,6.2178e-03_jprb,5.7168e-03_jprb,4.9415e-03_jprb,&
 & 3.8793e-03_jprb,2.5280e-03_jprb,1.3568e-03_jprb,7.6386e-04_jprb,5.6139e-04_jprb/)  
kao( :, 5, 4, 2) = (/&
 & 5.5166e-03_jprb,6.8327e-03_jprb,7.0292e-03_jprb,6.8237e-03_jprb,6.2950e-03_jprb,5.4568e-03_jprb,&
 & 4.3128e-03_jprb,2.8421e-03_jprb,1.5485e-03_jprb,8.8605e-04_jprb,6.5402e-04_jprb/)  
kao( :, 1, 5, 2) = (/&
 & 2.9853e-03_jprb,3.7407e-03_jprb,3.8556e-03_jprb,3.7312e-03_jprb,3.4190e-03_jprb,2.9428e-03_jprb,&
 & 2.2723e-03_jprb,1.4198e-03_jprb,7.1091e-04_jprb,3.6855e-04_jprb,3.1611e-04_jprb/)  
kao( :, 2, 5, 2) = (/&
 & 3.4022e-03_jprb,4.2141e-03_jprb,4.3188e-03_jprb,4.1657e-03_jprb,3.8152e-03_jprb,3.2922e-03_jprb,&
 & 2.5629e-03_jprb,1.6244e-03_jprb,8.2914e-04_jprb,4.3956e-04_jprb,3.7920e-04_jprb/)  
kao( :, 3, 5, 2) = (/&
 & 3.8163e-03_jprb,4.6908e-03_jprb,4.7976e-03_jprb,4.6281e-03_jprb,4.2450e-03_jprb,3.6719e-03_jprb,&
 & 2.8734e-03_jprb,1.8464e-03_jprb,9.6023e-04_jprb,5.1918e-04_jprb,4.5044e-04_jprb/)  
kao( :, 4, 5, 2) = (/&
 & 4.2238e-03_jprb,5.1812e-03_jprb,5.2987e-03_jprb,5.1187e-03_jprb,4.7071e-03_jprb,4.0810e-03_jprb,&
 & 3.2111e-03_jprb,2.0883e-03_jprb,1.1042e-03_jprb,6.0901e-04_jprb,5.3057e-04_jprb/)  
kao( :, 5, 5, 2) = (/&
 & 4.6242e-03_jprb,5.6849e-03_jprb,5.8163e-03_jprb,5.6316e-03_jprb,5.2005e-03_jprb,4.5233e-03_jprb,&
 & 3.5780e-03_jprb,2.3536e-03_jprb,1.2639e-03_jprb,7.0822e-04_jprb,6.1748e-04_jprb/)  
kao( :, 1, 6, 2) = (/&
 & 2.4498e-03_jprb,3.0475e-03_jprb,3.1220e-03_jprb,3.0196e-03_jprb,2.7652e-03_jprb,2.3889e-03_jprb,&
 & 1.8491e-03_jprb,1.1489e-03_jprb,5.6714e-04_jprb,2.8783e-04_jprb,3.1080e-04_jprb/)  
kao( :, 2, 6, 2) = (/&
 & 2.8080e-03_jprb,3.4520e-03_jprb,3.5157e-03_jprb,3.3870e-03_jprb,3.0980e-03_jprb,2.6793e-03_jprb,&
 & 2.0903e-03_jprb,1.3197e-03_jprb,6.6501e-04_jprb,3.4472e-04_jprb,3.7051e-04_jprb/)  
kao( :, 3, 6, 2) = (/&
 & 3.1640e-03_jprb,3.8601e-03_jprb,3.9229e-03_jprb,3.7774e-03_jprb,3.4589e-03_jprb,2.9977e-03_jprb,&
 & 2.3510e-03_jprb,1.5040e-03_jprb,7.7398e-04_jprb,4.0896e-04_jprb,4.3796e-04_jprb/)  
kao( :, 4, 6, 2) = (/&
 & 3.5132e-03_jprb,4.2794e-03_jprb,4.3478e-03_jprb,4.1882e-03_jprb,3.8474e-03_jprb,3.3403e-03_jprb,&
 & 2.6340e-03_jprb,1.7060e-03_jprb,8.9431e-04_jprb,4.8188e-04_jprb,5.1446e-04_jprb/)  
kao( :, 5, 6, 2) = (/&
 & 3.8604e-03_jprb,4.7099e-03_jprb,4.7886e-03_jprb,4.6205e-03_jprb,4.2616e-03_jprb,3.7139e-03_jprb,&
 & 2.9438e-03_jprb,1.9283e-03_jprb,1.0272e-03_jprb,5.6324e-04_jprb,5.9978e-04_jprb/)  
kao( :, 1, 7, 2) = (/&
 & 1.9828e-03_jprb,2.4555e-03_jprb,2.5089e-03_jprb,2.4265e-03_jprb,2.2222e-03_jprb,1.9219e-03_jprb,&
 & 1.4917e-03_jprb,9.2169e-04_jprb,4.4935e-04_jprb,2.2355e-04_jprb,3.2905e-04_jprb/)  
kao( :, 2, 7, 2) = (/&
 & 2.2898e-03_jprb,2.8015e-03_jprb,2.8404e-03_jprb,2.7343e-03_jprb,2.4995e-03_jprb,2.1638e-03_jprb,&
 & 1.6905e-03_jprb,1.0629e-03_jprb,5.2977e-04_jprb,2.6953e-04_jprb,3.8642e-04_jprb/)  
kao( :, 3, 7, 2) = (/&
 & 2.5950e-03_jprb,3.1495e-03_jprb,3.1847e-03_jprb,3.0608e-03_jprb,2.7988e-03_jprb,2.4271e-03_jprb,&
 & 1.9063e-03_jprb,1.2157e-03_jprb,6.1889e-04_jprb,3.2121e-04_jprb,4.5238e-04_jprb/)  
kao( :, 4, 7, 2) = (/&
 & 2.8946e-03_jprb,3.5066e-03_jprb,3.5426e-03_jprb,3.4040e-03_jprb,3.1227e-03_jprb,2.7135e-03_jprb,&
 & 2.1417e-03_jprb,1.3825e-03_jprb,7.1739e-04_jprb,3.7957e-04_jprb,5.2784e-04_jprb/)  
kao( :, 5, 7, 2) = (/&
 & 3.1931e-03_jprb,3.8740e-03_jprb,3.9151e-03_jprb,3.7654e-03_jprb,3.4684e-03_jprb,3.0255e-03_jprb,&
 & 2.3992e-03_jprb,1.5660e-03_jprb,8.2652e-04_jprb,4.4537e-04_jprb,6.1466e-04_jprb/)  
kao( :, 1, 8, 2) = (/&
 & 1.5989e-03_jprb,1.9702e-03_jprb,2.0115e-03_jprb,1.9470e-03_jprb,1.7844e-03_jprb,1.5432e-03_jprb,&
 & 1.1995e-03_jprb,7.3709e-04_jprb,3.5460e-04_jprb,1.7239e-04_jprb,4.0077e-04_jprb/)  
kao( :, 2, 8, 2) = (/&
 & 1.8612e-03_jprb,2.2667e-03_jprb,2.2904e-03_jprb,2.2044e-03_jprb,2.0147e-03_jprb,1.7439e-03_jprb,&
 & 1.3635e-03_jprb,8.5344e-04_jprb,4.2074e-04_jprb,2.0967e-04_jprb,4.6582e-04_jprb/)  
kao( :, 3, 8, 2) = (/&
 & 2.1244e-03_jprb,2.5624e-03_jprb,2.5789e-03_jprb,2.4755e-03_jprb,2.2630e-03_jprb,1.9622e-03_jprb,&
 & 1.5425e-03_jprb,9.7987e-04_jprb,4.9319e-04_jprb,2.5142e-04_jprb,5.4055e-04_jprb/)  
kao( :, 4, 8, 2) = (/&
 & 2.3819e-03_jprb,2.8649e-03_jprb,2.8813e-03_jprb,2.7618e-03_jprb,2.5306e-03_jprb,2.2005e-03_jprb,&
 & 1.7382e-03_jprb,1.1179e-03_jprb,5.7326e-04_jprb,2.9833e-04_jprb,6.2468e-04_jprb/)  
kao( :, 5, 8, 2) = (/&
 & 2.6384e-03_jprb,3.1771e-03_jprb,3.1953e-03_jprb,3.0634e-03_jprb,2.8174e-03_jprb,2.4583e-03_jprb,&
 & 1.9520e-03_jprb,1.2696e-03_jprb,6.6233e-04_jprb,3.5121e-04_jprb,7.1932e-04_jprb/)  
kao( :, 1, 9, 2) = (/&
 & 1.2874e-03_jprb,1.5807e-03_jprb,1.6105e-03_jprb,1.5596e-03_jprb,1.4331e-03_jprb,1.2409e-03_jprb,&
 & 9.6467e-04_jprb,5.8855e-04_jprb,2.7878e-04_jprb,1.3223e-04_jprb,7.1624e-04_jprb/)  
kao( :, 2, 9, 2) = (/&
 & 1.5123e-03_jprb,1.8336e-03_jprb,1.8477e-03_jprb,1.7758e-03_jprb,1.6249e-03_jprb,1.4066e-03_jprb,&
 & 1.0996e-03_jprb,6.8448e-04_jprb,3.3322e-04_jprb,1.6247e-04_jprb,8.2651e-04_jprb/)  
kao( :, 3, 9, 2) = (/&
 & 1.7405e-03_jprb,2.0860e-03_jprb,2.0902e-03_jprb,2.0023e-03_jprb,1.8310e-03_jprb,1.5864e-03_jprb,&
 & 1.2475e-03_jprb,7.8935e-04_jprb,3.9239e-04_jprb,1.9609e-04_jprb,9.5177e-04_jprb/)  
kao( :, 4, 9, 2) = (/&
 & 1.9645e-03_jprb,2.3442e-03_jprb,2.3456e-03_jprb,2.2427e-03_jprb,2.0525e-03_jprb,1.7831e-03_jprb,&
 & 1.4096e-03_jprb,9.0343e-04_jprb,4.5751e-04_jprb,2.3374e-04_jprb,1.0933e-03_jprb/)  
kao( :, 5, 9, 2) = (/&
 & 2.1858e-03_jprb,2.6097e-03_jprb,2.6113e-03_jprb,2.4953e-03_jprb,2.2897e-03_jprb,1.9950e-03_jprb,&
 & 1.5860e-03_jprb,1.0288e-03_jprb,5.2969e-04_jprb,2.7603e-04_jprb,1.2508e-03_jprb/)  
kao( :, 1,10, 2) = (/&
 & 1.0529e-03_jprb,1.2869e-03_jprb,1.3057e-03_jprb,1.2641e-03_jprb,1.1629e-03_jprb,1.0080e-03_jprb,&
 & 7.8495e-04_jprb,4.7620e-04_jprb,2.2170e-04_jprb,1.0270e-04_jprb,1.3580e-03_jprb/)  
kao( :, 2,10, 2) = (/&
 & 1.2490e-03_jprb,1.5074e-03_jprb,1.5131e-03_jprb,1.4495e-03_jprb,1.3257e-03_jprb,1.1471e-03_jprb,&
 & 8.9825e-04_jprb,5.5593e-04_jprb,2.6681e-04_jprb,1.2750e-04_jprb,1.5971e-03_jprb/)  
kao( :, 3,10, 2) = (/&
 & 1.4492e-03_jprb,1.7260e-03_jprb,1.7215e-03_jprb,1.6426e-03_jprb,1.5005e-03_jprb,1.2985e-03_jprb,&
 & 1.0216e-03_jprb,6.4239e-04_jprb,3.1568e-04_jprb,1.5479e-04_jprb,1.8667e-03_jprb/)  
kao( :, 4,10, 2) = (/&
 & 1.6458e-03_jprb,1.9481e-03_jprb,1.9385e-03_jprb,1.8468e-03_jprb,1.6872e-03_jprb,1.4625e-03_jprb,&
 & 1.1568e-03_jprb,7.3723e-04_jprb,3.6917e-04_jprb,1.8512e-04_jprb,2.1592e-03_jprb/)  
kao( :, 5,10, 2) = (/&
 & 1.8388e-03_jprb,2.1768e-03_jprb,2.1658e-03_jprb,2.0613e-03_jprb,1.8866e-03_jprb,1.6398e-03_jprb,&
 & 1.3041e-03_jprb,8.4131e-04_jprb,4.2827e-04_jprb,2.1913e-04_jprb,2.4697e-03_jprb/)  
kao( :, 1,11, 2) = (/&
 & 9.3652e-04_jprb,1.1385e-03_jprb,1.1471e-03_jprb,1.1044e-03_jprb,1.0133e-03_jprb,8.7645e-04_jprb,&
 & 6.8412e-04_jprb,4.1724e-04_jprb,1.9356e-04_jprb,8.8827e-05_jprb,1.5807e-03_jprb/)  
kao( :, 2,11, 2) = (/&
 & 1.1100e-03_jprb,1.3322e-03_jprb,1.3282e-03_jprb,1.2667e-03_jprb,1.1577e-03_jprb,1.0002e-03_jprb,&
 & 7.8407e-04_jprb,4.8629e-04_jprb,2.3224e-04_jprb,1.1007e-04_jprb,1.8547e-03_jprb/)  
kao( :, 3,11, 2) = (/&
 & 1.2856e-03_jprb,1.5232e-03_jprb,1.5121e-03_jprb,1.4368e-03_jprb,1.3117e-03_jprb,1.1334e-03_jprb,&
 & 8.9329e-04_jprb,5.6169e-04_jprb,2.7435e-04_jprb,1.3331e-04_jprb,2.1559e-03_jprb/)  
kao( :, 4,11, 2) = (/&
 & 1.4549e-03_jprb,1.7175e-03_jprb,1.7035e-03_jprb,1.6171e-03_jprb,1.4759e-03_jprb,1.2781e-03_jprb,&
 & 1.0119e-03_jprb,6.4442e-04_jprb,3.2046e-04_jprb,1.5895e-04_jprb,2.4834e-03_jprb/)  
kao( :, 5,11, 2) = (/&
 & 1.6224e-03_jprb,1.9187e-03_jprb,1.9023e-03_jprb,1.8058e-03_jprb,1.6504e-03_jprb,1.4334e-03_jprb,&
 & 1.1403e-03_jprb,7.3509e-04_jprb,3.7157e-04_jprb,1.8783e-04_jprb,2.8350e-03_jprb/)  
kao( :, 1,12, 2) = (/&
 & 8.1827e-04_jprb,9.9361e-04_jprb,9.9598e-04_jprb,9.5548e-04_jprb,8.7645e-04_jprb,7.5891e-04_jprb,&
 & 5.9398e-04_jprb,3.6310e-04_jprb,1.6830e-04_jprb,7.6627e-05_jprb,1.5346e-03_jprb/)  
kao( :, 2,12, 2) = (/&
 & 9.6798e-04_jprb,1.1604e-03_jprb,1.1525e-03_jprb,1.0960e-03_jprb,1.0027e-03_jprb,8.6748e-04_jprb,&
 & 6.8181e-04_jprb,4.2341e-04_jprb,2.0151e-04_jprb,9.4708e-05_jprb,1.7971e-03_jprb/)  
kao( :, 3,12, 2) = (/&
 & 1.1161e-03_jprb,1.3239e-03_jprb,1.3118e-03_jprb,1.2444e-03_jprb,1.1369e-03_jprb,9.8346e-04_jprb,&
 & 7.7783e-04_jprb,4.8954e-04_jprb,2.3774e-04_jprb,1.1437e-04_jprb,2.0823e-03_jprb/)  
kao( :, 4,12, 2) = (/&
 & 1.2595e-03_jprb,1.4901e-03_jprb,1.4761e-03_jprb,1.3996e-03_jprb,1.2792e-03_jprb,1.1092e-03_jprb,&
 & 8.8159e-04_jprb,5.6210e-04_jprb,2.7747e-04_jprb,1.3609e-04_jprb,2.3913e-03_jprb/)  
kao( :, 5,12, 2) = (/&
 & 1.4015e-03_jprb,1.6631e-03_jprb,1.6469e-03_jprb,1.5633e-03_jprb,1.4309e-03_jprb,1.2447e-03_jprb,&
 & 9.9327e-04_jprb,6.4127e-04_jprb,3.2131e-04_jprb,1.6049e-04_jprb,2.7230e-03_jprb/)  
kao( :, 1,13, 2) = (/&
 & 7.0404e-04_jprb,8.5653e-04_jprb,8.5583e-04_jprb,8.1887e-04_jprb,7.5123e-04_jprb,6.5123e-04_jprb,&
 & 5.1170e-04_jprb,3.1408e-04_jprb,1.4547e-04_jprb,6.5608e-05_jprb,1.2897e-03_jprb/)  
kao( :, 2,13, 2) = (/&
 & 8.3008e-04_jprb,9.9639e-04_jprb,9.8845e-04_jprb,9.3911e-04_jprb,8.5990e-04_jprb,7.4464e-04_jprb,&
 & 5.8802e-04_jprb,3.6685e-04_jprb,1.7398e-04_jprb,8.0807e-05_jprb,1.5096e-03_jprb/)  
kao( :, 3,13, 2) = (/&
 & 9.5290e-04_jprb,1.1338e-03_jprb,1.1232e-03_jprb,1.0653e-03_jprb,9.7462e-04_jprb,8.4434e-04_jprb,&
 & 6.7107e-04_jprb,4.2462e-04_jprb,2.0511e-04_jprb,9.7336e-05_jprb,1.7467e-03_jprb/)  
kao( :, 4,13, 2) = (/&
 & 1.0727e-03_jprb,1.2739e-03_jprb,1.2624e-03_jprb,1.1971e-03_jprb,1.0958e-03_jprb,9.5214e-04_jprb,&
 & 7.5999e-04_jprb,4.8760e-04_jprb,2.3902e-04_jprb,1.1564e-04_jprb,2.0029e-03_jprb/)  
kao( :, 5,13, 2) = (/&
 & 1.1912e-03_jprb,1.4186e-03_jprb,1.4067e-03_jprb,1.3365e-03_jprb,1.2243e-03_jprb,1.0674e-03_jprb,&
 & 8.5545e-04_jprb,5.5580e-04_jprb,2.7627e-04_jprb,1.3629e-04_jprb,2.2773e-03_jprb/)  
kao( :, 1, 1, 3) = (/&
 & 1.5976e-02_jprb,1.8568e-02_jprb,1.8677e-02_jprb,1.8308e-02_jprb,1.7430e-02_jprb,1.5980e-02_jprb,&
 & 1.3794e-02_jprb,1.0032e-02_jprb,5.6593e-03_jprb,3.1315e-03_jprb,1.4725e-03_jprb/)  
kao( :, 2, 1, 3) = (/&
 & 1.7009e-02_jprb,1.9983e-02_jprb,2.0158e-02_jprb,1.9765e-02_jprb,1.8846e-02_jprb,1.7308e-02_jprb,&
 & 1.4965e-02_jprb,1.0920e-02_jprb,6.2447e-03_jprb,3.5291e-03_jprb,1.7476e-03_jprb/)  
kao( :, 3, 1, 3) = (/&
 & 1.8075e-02_jprb,2.1456e-02_jprb,2.1662e-02_jprb,2.1259e-02_jprb,2.0298e-02_jprb,1.8677e-02_jprb,&
 & 1.6168e-02_jprb,1.1845e-02_jprb,6.8970e-03_jprb,3.9734e-03_jprb,2.0647e-03_jprb/)  
kao( :, 4, 1, 3) = (/&
 & 1.9173e-02_jprb,2.2980e-02_jprb,2.3194e-02_jprb,2.2786e-02_jprb,2.1822e-02_jprb,2.0115e-02_jprb,&
 & 1.7401e-02_jprb,1.2827e-02_jprb,7.6128e-03_jprb,4.4580e-03_jprb,2.4335e-03_jprb/)  
kao( :, 5, 1, 3) = (/&
 & 2.0338e-02_jprb,2.4533e-02_jprb,2.4778e-02_jprb,2.4397e-02_jprb,2.3401e-02_jprb,2.1590e-02_jprb,&
 & 1.8677e-02_jprb,1.3858e-02_jprb,8.3792e-03_jprb,4.9858e-03_jprb,2.8649e-03_jprb/)  
kao( :, 1, 2, 3) = (/&
 & 1.3803e-02_jprb,1.6030e-02_jprb,1.6037e-02_jprb,1.5594e-02_jprb,1.4756e-02_jprb,1.3459e-02_jprb,&
 & 1.1617e-02_jprb,8.5122e-03_jprb,4.8022e-03_jprb,2.6569e-03_jprb,1.3182e-03_jprb/)  
kao( :, 2, 2, 3) = (/&
 & 1.4747e-02_jprb,1.7312e-02_jprb,1.7346e-02_jprb,1.6863e-02_jprb,1.5968e-02_jprb,1.4592e-02_jprb,&
 & 1.2613e-02_jprb,9.2706e-03_jprb,5.3102e-03_jprb,3.0023e-03_jprb,1.5460e-03_jprb/)  
kao( :, 3, 2, 3) = (/&
 & 1.5720e-02_jprb,1.8638e-02_jprb,1.8676e-02_jprb,1.8166e-02_jprb,1.7228e-02_jprb,1.5775e-02_jprb,&
 & 1.3646e-02_jprb,1.0060e-02_jprb,5.8750e-03_jprb,3.3882e-03_jprb,1.8045e-03_jprb/)  
kao( :, 4, 2, 3) = (/&
 & 1.6750e-02_jprb,1.9993e-02_jprb,2.0028e-02_jprb,1.9499e-02_jprb,1.8542e-02_jprb,1.7020e-02_jprb,&
 & 1.4712e-02_jprb,1.0896e-02_jprb,6.4908e-03_jprb,3.8125e-03_jprb,2.0990e-03_jprb/)  
kao( :, 5, 2, 3) = (/&
 & 1.7833e-02_jprb,2.1360e-02_jprb,2.1424e-02_jprb,2.0911e-02_jprb,1.9906e-02_jprb,1.8307e-02_jprb,&
 & 1.5816e-02_jprb,1.1769e-02_jprb,7.1573e-03_jprb,4.2773e-03_jprb,2.4433e-03_jprb/)  
kao( :, 1, 3, 3) = (/&
 & 1.1661e-02_jprb,1.3546e-02_jprb,1.3524e-02_jprb,1.3093e-02_jprb,1.2307e-02_jprb,1.1159e-02_jprb,&
 & 9.5780e-03_jprb,7.0484e-03_jprb,3.9675e-03_jprb,2.1846e-03_jprb,1.2406e-03_jprb/)  
kao( :, 2, 3, 3) = (/&
 & 1.2503e-02_jprb,1.4707e-02_jprb,1.4691e-02_jprb,1.4206e-02_jprb,1.3360e-02_jprb,1.2110e-02_jprb,&
 & 1.0409e-02_jprb,7.6788e-03_jprb,4.3933e-03_jprb,2.4719e-03_jprb,1.4298e-03_jprb/)  
kao( :, 3, 3, 3) = (/&
 & 1.3391e-02_jprb,1.5887e-02_jprb,1.5874e-02_jprb,1.5334e-02_jprb,1.4440e-02_jprb,1.3111e-02_jprb,&
 & 1.1280e-02_jprb,8.3388e-03_jprb,4.8688e-03_jprb,2.7958e-03_jprb,1.6523e-03_jprb/)  
kao( :, 4, 3, 3) = (/&
 & 1.4336e-02_jprb,1.7085e-02_jprb,1.7069e-02_jprb,1.6495e-02_jprb,1.5553e-02_jprb,1.4166e-02_jprb,&
 & 1.2195e-02_jprb,9.0457e-03_jprb,5.3867e-03_jprb,3.1533e-03_jprb,1.9090e-03_jprb/)  
kao( :, 5, 3, 3) = (/&
 & 1.5320e-02_jprb,1.8321e-02_jprb,1.8292e-02_jprb,1.7706e-02_jprb,1.6704e-02_jprb,1.5265e-02_jprb,&
 & 1.3148e-02_jprb,9.7836e-03_jprb,5.9483e-03_jprb,3.5492e-03_jprb,2.2059e-03_jprb/)  
kao( :, 1, 4, 3) = (/&
 & 9.7449e-03_jprb,1.1294e-02_jprb,1.1258e-02_jprb,1.0884e-02_jprb,1.0199e-02_jprb,9.2227e-03_jprb,&
 & 7.8658e-03_jprb,5.7767e-03_jprb,3.2406e-03_jprb,1.7708e-03_jprb,1.2728e-03_jprb/)  
kao( :, 2, 4, 3) = (/&
 & 1.0487e-02_jprb,1.2330e-02_jprb,1.2286e-02_jprb,1.1862e-02_jprb,1.1122e-02_jprb,1.0046e-02_jprb,&
 & 8.5629e-03_jprb,6.2952e-03_jprb,3.5929e-03_jprb,2.0093e-03_jprb,1.4326e-03_jprb/)  
kao( :, 3, 4, 3) = (/&
 & 1.1282e-02_jprb,1.3369e-02_jprb,1.3332e-02_jprb,1.2857e-02_jprb,1.2064e-02_jprb,1.0901e-02_jprb,&
 & 9.2930e-03_jprb,6.8463e-03_jprb,3.9872e-03_jprb,2.2770e-03_jprb,1.6227e-03_jprb/)  
kao( :, 4, 4, 3) = (/&
 & 1.2130e-02_jprb,1.4435e-02_jprb,1.4396e-02_jprb,1.3883e-02_jprb,1.3026e-02_jprb,1.1786e-02_jprb,&
 & 1.0067e-02_jprb,7.4371e-03_jprb,4.4153e-03_jprb,2.5725e-03_jprb,1.8437e-03_jprb/)  
kao( :, 5, 4, 3) = (/&
 & 1.3022e-02_jprb,1.5544e-02_jprb,1.5501e-02_jprb,1.4941e-02_jprb,1.4007e-02_jprb,1.2708e-02_jprb,&
 & 1.0876e-02_jprb,8.0666e-03_jprb,4.8767e-03_jprb,2.9035e-03_jprb,2.1000e-03_jprb/)  
kao( :, 1, 5, 3) = (/&
 & 8.1183e-03_jprb,9.3706e-03_jprb,9.3339e-03_jprb,9.0036e-03_jprb,8.4209e-03_jprb,7.5832e-03_jprb,&
 & 6.4445e-03_jprb,4.7331e-03_jprb,2.6371e-03_jprb,1.4269e-03_jprb,1.3512e-03_jprb/)  
kao( :, 2, 5, 3) = (/&
 & 8.7619e-03_jprb,1.0271e-02_jprb,1.0226e-02_jprb,9.8533e-03_jprb,9.2177e-03_jprb,8.3034e-03_jprb,&
 & 7.0466e-03_jprb,5.1625e-03_jprb,2.9261e-03_jprb,1.6222e-03_jprb,1.4975e-03_jprb/)  
kao( :, 3, 5, 3) = (/&
 & 9.4590e-03_jprb,1.1191e-02_jprb,1.1132e-02_jprb,1.0717e-02_jprb,1.0035e-02_jprb,9.0438e-03_jprb,&
 & 7.6825e-03_jprb,5.6186e-03_jprb,3.2487e-03_jprb,1.8419e-03_jprb,1.6628e-03_jprb/)  
kao( :, 4, 5, 3) = (/&
 & 1.0214e-02_jprb,1.2129e-02_jprb,1.2065e-02_jprb,1.1613e-02_jprb,1.0874e-02_jprb,9.8104e-03_jprb,&
 & 8.3376e-03_jprb,6.1127e-03_jprb,3.6040e-03_jprb,2.0844e-03_jprb,1.8526e-03_jprb/)  
kao( :, 5, 5, 3) = (/&
 & 1.1012e-02_jprb,1.3112e-02_jprb,1.3045e-02_jprb,1.2543e-02_jprb,1.1733e-02_jprb,1.0605e-02_jprb,&
 & 9.0222e-03_jprb,6.6408e-03_jprb,3.9796e-03_jprb,2.3572e-03_jprb,2.0770e-03_jprb/)  
kao( :, 1, 6, 3) = (/&
 & 6.7387e-03_jprb,7.7194e-03_jprb,7.6902e-03_jprb,7.3986e-03_jprb,6.9016e-03_jprb,6.1800e-03_jprb,&
 & 5.2304e-03_jprb,3.8605e-03_jprb,2.1393e-03_jprb,1.1384e-03_jprb,1.3809e-03_jprb/)  
kao( :, 2, 6, 3) = (/&
 & 7.2904e-03_jprb,8.4901e-03_jprb,8.4559e-03_jprb,8.1341e-03_jprb,7.5897e-03_jprb,6.8043e-03_jprb,&
 & 5.7497e-03_jprb,4.2219e-03_jprb,2.3703e-03_jprb,1.2951e-03_jprb,1.5336e-03_jprb/)  
kao( :, 3, 6, 3) = (/&
 & 7.8883e-03_jprb,9.2955e-03_jprb,9.2345e-03_jprb,8.8797e-03_jprb,8.2936e-03_jprb,7.4421e-03_jprb,&
 & 6.2952e-03_jprb,4.6028e-03_jprb,2.6285e-03_jprb,1.4716e-03_jprb,1.6931e-03_jprb/)  
kao( :, 4, 6, 3) = (/&
 & 8.5494e-03_jprb,1.0121e-02_jprb,1.0046e-02_jprb,9.6522e-03_jprb,9.0176e-03_jprb,8.1042e-03_jprb,&
 & 6.8613e-03_jprb,5.0179e-03_jprb,2.9165e-03_jprb,1.6693e-03_jprb,1.8690e-03_jprb/)  
kao( :, 5, 6, 3) = (/&
 & 9.2455e-03_jprb,1.0989e-02_jprb,1.0902e-02_jprb,1.0465e-02_jprb,9.7689e-03_jprb,8.7913e-03_jprb,&
 & 7.4494e-03_jprb,5.4572e-03_jprb,3.2276e-03_jprb,1.8909e-03_jprb,2.0643e-03_jprb/)  
kao( :, 1, 7, 3) = (/&
 & 5.5708e-03_jprb,6.3303e-03_jprb,6.2934e-03_jprb,6.0276e-03_jprb,5.6127e-03_jprb,5.0058e-03_jprb,&
 & 4.2172e-03_jprb,3.1142e-03_jprb,1.7288e-03_jprb,9.0214e-04_jprb,1.3580e-03_jprb/)  
kao( :, 2, 7, 3) = (/&
 & 6.0396e-03_jprb,6.9771e-03_jprb,6.9412e-03_jprb,6.6559e-03_jprb,6.1993e-03_jprb,5.5301e-03_jprb,&
 & 4.6524e-03_jprb,3.4207e-03_jprb,1.9119e-03_jprb,1.0257e-03_jprb,1.5329e-03_jprb/)  
kao( :, 3, 7, 3) = (/&
 & 6.5450e-03_jprb,7.6646e-03_jprb,7.6059e-03_jprb,7.3014e-03_jprb,6.8031e-03_jprb,6.0741e-03_jprb,&
 & 5.1130e-03_jprb,3.7412e-03_jprb,2.1172e-03_jprb,1.1666e-03_jprb,1.7255e-03_jprb/)  
kao( :, 4, 7, 3) = (/&
 & 7.1105e-03_jprb,8.3764e-03_jprb,8.3038e-03_jprb,7.9705e-03_jprb,7.4282e-03_jprb,6.6393e-03_jprb,&
 & 5.5928e-03_jprb,4.0886e-03_jprb,2.3470e-03_jprb,1.3258e-03_jprb,1.9241e-03_jprb/)  
kao( :, 5, 7, 3) = (/&
 & 7.7089e-03_jprb,9.1270e-03_jprb,9.0467e-03_jprb,8.6734e-03_jprb,8.0760e-03_jprb,7.2286e-03_jprb,&
 & 6.0941e-03_jprb,4.4574e-03_jprb,2.6042e-03_jprb,1.5049e-03_jprb,2.1289e-03_jprb/)  
kao( :, 1, 8, 3) = (/&
 & 4.5931e-03_jprb,5.1838e-03_jprb,5.1398e-03_jprb,4.8986e-03_jprb,4.5439e-03_jprb,4.0450e-03_jprb,&
 & 3.3970e-03_jprb,2.5021e-03_jprb,1.3915e-03_jprb,7.1461e-04_jprb,1.4342e-03_jprb/)  
kao( :, 2, 8, 3) = (/&
 & 4.9923e-03_jprb,5.7205e-03_jprb,5.6835e-03_jprb,5.4255e-03_jprb,5.0420e-03_jprb,4.4815e-03_jprb,&
 & 3.7569e-03_jprb,2.7595e-03_jprb,1.5378e-03_jprb,8.1223e-04_jprb,1.6265e-03_jprb/)  
kao( :, 3, 8, 3) = (/&
 & 5.4187e-03_jprb,6.3059e-03_jprb,6.2512e-03_jprb,5.9779e-03_jprb,5.5552e-03_jprb,4.9397e-03_jprb,&
 & 4.1407e-03_jprb,3.0283e-03_jprb,1.7020e-03_jprb,9.2374e-04_jprb,1.8395e-03_jprb/)  
kao( :, 4, 8, 3) = (/&
 & 5.8951e-03_jprb,6.9159e-03_jprb,6.8456e-03_jprb,6.5555e-03_jprb,6.0927e-03_jprb,5.4203e-03_jprb,&
 & 4.5434e-03_jprb,3.3140e-03_jprb,1.8874e-03_jprb,1.0500e-03_jprb,2.0723e-03_jprb/)  
kao( :, 5, 8, 3) = (/&
 & 6.4067e-03_jprb,7.5583e-03_jprb,7.4822e-03_jprb,7.1624e-03_jprb,6.6529e-03_jprb,5.9218e-03_jprb,&
 & 4.9680e-03_jprb,3.6203e-03_jprb,2.0980e-03_jprb,1.1933e-03_jprb,2.3247e-03_jprb/)  
kao( :, 1, 9, 3) = (/&
 & 3.7723e-03_jprb,4.2334e-03_jprb,4.1819e-03_jprb,3.9649e-03_jprb,3.6588e-03_jprb,3.2575e-03_jprb,&
 & 2.7305e-03_jprb,2.0072e-03_jprb,1.1193e-03_jprb,5.6741e-04_jprb,1.9860e-03_jprb/)  
kao( :, 2, 9, 3) = (/&
 & 4.1112e-03_jprb,4.6764e-03_jprb,4.6357e-03_jprb,4.4068e-03_jprb,4.0793e-03_jprb,3.6198e-03_jprb,&
 & 3.0290e-03_jprb,2.2191e-03_jprb,1.2358e-03_jprb,6.4340e-04_jprb,2.2587e-03_jprb/)  

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


SUBROUTINE part3

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


kao( :, 3, 9, 3) = (/&
 & 4.4681e-03_jprb,5.1657e-03_jprb,5.1169e-03_jprb,4.8742e-03_jprb,4.5148e-03_jprb,4.0038e-03_jprb,&
 & 3.3466e-03_jprb,2.4441e-03_jprb,1.3675e-03_jprb,7.3070e-04_jprb,2.5668e-03_jprb/)  
kao( :, 4, 9, 3) = (/&
 & 4.8668e-03_jprb,5.6866e-03_jprb,5.6264e-03_jprb,5.3677e-03_jprb,4.9748e-03_jprb,4.4113e-03_jprb,&
 & 3.6848e-03_jprb,2.6780e-03_jprb,1.5165e-03_jprb,8.3094e-04_jprb,2.9044e-03_jprb/)  
kao( :, 5, 9, 3) = (/&
 & 5.3024e-03_jprb,6.2338e-03_jprb,6.1683e-03_jprb,5.8906e-03_jprb,5.4560e-03_jprb,4.8416e-03_jprb,&
 & 4.0418e-03_jprb,2.9316e-03_jprb,1.6868e-03_jprb,9.4494e-04_jprb,3.2758e-03_jprb/)  
kao( :, 1,10, 3) = (/&
 & 3.1048e-03_jprb,3.4713e-03_jprb,3.4149e-03_jprb,3.2215e-03_jprb,2.9606e-03_jprb,2.6323e-03_jprb,&
 & 2.2040e-03_jprb,1.6183e-03_jprb,9.0511e-04_jprb,4.5442e-04_jprb,3.4066e-03_jprb/)  
kao( :, 2,10, 3) = (/&
 & 3.3920e-03_jprb,3.8387e-03_jprb,3.7924e-03_jprb,3.5898e-03_jprb,3.3084e-03_jprb,2.9358e-03_jprb,&
 & 2.4507e-03_jprb,1.7915e-03_jprb,9.9919e-04_jprb,5.1342e-04_jprb,3.8889e-03_jprb/)  
kao( :, 3,10, 3) = (/&
 & 3.6957e-03_jprb,4.2459e-03_jprb,4.1994e-03_jprb,3.9831e-03_jprb,3.6769e-03_jprb,3.2571e-03_jprb,&
 & 2.7157e-03_jprb,1.9778e-03_jprb,1.1048e-03_jprb,5.8256e-04_jprb,4.4355e-03_jprb/)  
kao( :, 4,10, 3) = (/&
 & 4.0318e-03_jprb,4.6867e-03_jprb,4.6340e-03_jprb,4.4000e-03_jprb,4.0676e-03_jprb,3.6005e-03_jprb,&
 & 2.9971e-03_jprb,2.1730e-03_jprb,1.2259e-03_jprb,6.6297e-04_jprb,5.0564e-03_jprb/)  
kao( :, 5,10, 3) = (/&
 & 4.4033e-03_jprb,5.1538e-03_jprb,5.0961e-03_jprb,4.8470e-03_jprb,4.4796e-03_jprb,3.9660e-03_jprb,&
 & 3.2977e-03_jprb,2.3839e-03_jprb,1.3631e-03_jprb,7.5476e-04_jprb,5.7516e-03_jprb/)  
kao( :, 1,11, 3) = (/&
 & 2.6765e-03_jprb,2.9827e-03_jprb,2.9227e-03_jprb,2.7508e-03_jprb,2.5220e-03_jprb,2.2363e-03_jprb,&
 & 1.8676e-03_jprb,1.3675e-03_jprb,7.6612e-04_jprb,3.8447e-04_jprb,4.0480e-03_jprb/)  
kao( :, 2,11, 3) = (/&
 & 2.9286e-03_jprb,3.3040e-03_jprb,3.2538e-03_jprb,3.0703e-03_jprb,2.8192e-03_jprb,2.4962e-03_jprb,&
 & 2.0772e-03_jprb,1.5146e-03_jprb,8.4625e-04_jprb,4.3409e-04_jprb,4.6666e-03_jprb/)  
kao( :, 3,11, 3) = (/&
 & 3.2003e-03_jprb,3.6648e-03_jprb,3.6125e-03_jprb,3.4113e-03_jprb,3.1362e-03_jprb,2.7724e-03_jprb,&
 & 2.3029e-03_jprb,1.6722e-03_jprb,9.3679e-04_jprb,4.9229e-04_jprb,5.3654e-03_jprb/)  
kao( :, 4,11, 3) = (/&
 & 3.5051e-03_jprb,4.0531e-03_jprb,3.9947e-03_jprb,3.7750e-03_jprb,3.4761e-03_jprb,3.0693e-03_jprb,&
 & 2.5452e-03_jprb,1.8406e-03_jprb,1.0404e-03_jprb,5.6079e-04_jprb,6.1512e-03_jprb/)  
kao( :, 5,11, 3) = (/&
 & 3.8321e-03_jprb,4.4649e-03_jprb,4.4022e-03_jprb,4.1654e-03_jprb,3.8377e-03_jprb,3.3874e-03_jprb,&
 & 2.8053e-03_jprb,2.0226e-03_jprb,1.1574e-03_jprb,6.3974e-04_jprb,7.0160e-03_jprb/)  
kao( :, 1,12, 3) = (/&
 & 2.3036e-03_jprb,2.5583e-03_jprb,2.4978e-03_jprb,2.3445e-03_jprb,2.1430e-03_jprb,1.8944e-03_jprb,&
 & 1.5761e-03_jprb,1.1517e-03_jprb,6.4556e-04_jprb,3.2349e-04_jprb,4.0392e-03_jprb/)  
kao( :, 2,12, 3) = (/&
 & 2.5244e-03_jprb,2.8452e-03_jprb,2.7899e-03_jprb,2.6237e-03_jprb,2.3996e-03_jprb,2.1171e-03_jprb,&
 & 1.7537e-03_jprb,1.2751e-03_jprb,7.1384e-04_jprb,3.6513e-04_jprb,4.6690e-03_jprb/)  
kao( :, 3,12, 3) = (/&
 & 2.7664e-03_jprb,3.1661e-03_jprb,3.1080e-03_jprb,2.9230e-03_jprb,2.6751e-03_jprb,2.3552e-03_jprb,&
 & 1.9462e-03_jprb,1.4075e-03_jprb,7.9075e-04_jprb,4.1435e-04_jprb,5.3798e-03_jprb/)  
kao( :, 4,12, 3) = (/&
 & 3.0371e-03_jprb,3.5090e-03_jprb,3.4460e-03_jprb,3.2437e-03_jprb,2.9706e-03_jprb,2.6114e-03_jprb,&
 & 2.1543e-03_jprb,1.5507e-03_jprb,8.7926e-04_jprb,4.7250e-04_jprb,6.1711e-03_jprb/)  
kao( :, 5,12, 3) = (/&
 & 3.3239e-03_jprb,3.8709e-03_jprb,3.8063e-03_jprb,3.5842e-03_jprb,3.2855e-03_jprb,2.8872e-03_jprb,&
 & 2.3774e-03_jprb,1.7073e-03_jprb,9.7951e-04_jprb,5.3974e-04_jprb,7.0329e-03_jprb/)  
kao( :, 1,13, 3) = (/&
 & 1.9693e-03_jprb,2.1819e-03_jprb,2.1260e-03_jprb,1.9917e-03_jprb,1.8142e-03_jprb,1.5977e-03_jprb,&
 & 1.3230e-03_jprb,9.6163e-04_jprb,5.3722e-04_jprb,2.6914e-04_jprb,3.4457e-03_jprb/)  
kao( :, 2,13, 3) = (/&
 & 2.1605e-03_jprb,2.4363e-03_jprb,2.3825e-03_jprb,2.2341e-03_jprb,2.0358e-03_jprb,1.7890e-03_jprb,&
 & 1.4743e-03_jprb,1.0637e-03_jprb,5.9461e-04_jprb,3.0420e-04_jprb,3.9859e-03_jprb/)  
kao( :, 3,13, 3) = (/&
 & 2.3729e-03_jprb,2.7175e-03_jprb,2.6607e-03_jprb,2.4950e-03_jprb,2.2744e-03_jprb,1.9956e-03_jprb,&
 & 1.6383e-03_jprb,1.1739e-03_jprb,6.5958e-04_jprb,3.4564e-04_jprb,4.5954e-03_jprb/)  
kao( :, 4,13, 3) = (/&
 & 2.6042e-03_jprb,3.0147e-03_jprb,2.9558e-03_jprb,2.7741e-03_jprb,2.5310e-03_jprb,2.2169e-03_jprb,&
 & 1.8165e-03_jprb,1.2954e-03_jprb,7.3516e-04_jprb,3.9462e-04_jprb,5.2719e-03_jprb/)  
kao( :, 5,13, 3) = (/&
 & 2.8484e-03_jprb,3.3273e-03_jprb,3.2687e-03_jprb,3.0678e-03_jprb,2.8024e-03_jprb,2.4543e-03_jprb,&
 & 2.0064e-03_jprb,1.4291e-03_jprb,8.2095e-04_jprb,4.5105e-04_jprb,5.9980e-03_jprb/)  
kao( :, 1, 1, 4) = (/&
 & 3.2206e-02_jprb,3.7616e-02_jprb,3.7442e-02_jprb,3.5602e-02_jprb,3.2848e-02_jprb,2.9212e-02_jprb,&
 & 2.4411e-02_jprb,1.8093e-02_jprb,1.1087e-02_jprb,6.4396e-03_jprb,4.1579e-03_jprb/)  
kao( :, 2, 1, 4) = (/&
 & 3.3985e-02_jprb,4.0141e-02_jprb,4.0066e-02_jprb,3.8220e-02_jprb,3.5310e-02_jprb,3.1363e-02_jprb,&
 & 2.6274e-02_jprb,1.9563e-02_jprb,1.2137e-02_jprb,7.2344e-03_jprb,4.9421e-03_jprb/)  
kao( :, 3, 1, 4) = (/&
 & 3.5840e-02_jprb,4.2657e-02_jprb,4.2657e-02_jprb,4.0828e-02_jprb,3.7715e-02_jprb,3.3592e-02_jprb,&
 & 2.8238e-02_jprb,2.1146e-02_jprb,1.3263e-02_jprb,8.1243e-03_jprb,5.8370e-03_jprb/)  
kao( :, 4, 1, 4) = (/&
 & 3.7710e-02_jprb,4.5086e-02_jprb,4.5284e-02_jprb,4.3358e-02_jprb,4.0123e-02_jprb,3.5805e-02_jprb,&
 & 3.0308e-02_jprb,2.2810e-02_jprb,1.4502e-02_jprb,9.1329e-03_jprb,6.8906e-03_jprb/)  
kao( :, 5, 1, 4) = (/&
 & 3.9546e-02_jprb,4.7465e-02_jprb,4.7884e-02_jprb,4.5873e-02_jprb,4.2558e-02_jprb,3.8078e-02_jprb,&
 & 3.2453e-02_jprb,2.4580e-02_jprb,1.5839e-02_jprb,1.0280e-02_jprb,8.0935e-03_jprb/)  
kao( :, 1, 2, 4) = (/&
 & 2.8104e-02_jprb,3.2464e-02_jprb,3.2358e-02_jprb,3.0703e-02_jprb,2.8262e-02_jprb,2.5049e-02_jprb,&
 & 2.0887e-02_jprb,1.5371e-02_jprb,9.5321e-03_jprb,5.5766e-03_jprb,3.4128e-03_jprb/)  
kao( :, 2, 2, 4) = (/&
 & 2.9709e-02_jprb,3.4733e-02_jprb,3.4706e-02_jprb,3.3029e-02_jprb,3.0407e-02_jprb,2.6975e-02_jprb,&
 & 2.2525e-02_jprb,1.6668e-02_jprb,1.0444e-02_jprb,6.2493e-03_jprb,4.0210e-03_jprb/)  
kao( :, 3, 2, 4) = (/&
 & 3.1368e-02_jprb,3.6997e-02_jprb,3.7038e-02_jprb,3.5309e-02_jprb,3.2541e-02_jprb,2.8948e-02_jprb,&
 & 2.4248e-02_jprb,1.8078e-02_jprb,1.1429e-02_jprb,7.0025e-03_jprb,4.7234e-03_jprb/)  
kao( :, 4, 2, 4) = (/&
 & 3.3025e-02_jprb,3.9194e-02_jprb,3.9406e-02_jprb,3.7566e-02_jprb,3.4724e-02_jprb,3.0907e-02_jprb,&
 & 2.6047e-02_jprb,1.9552e-02_jprb,1.2511e-02_jprb,7.8460e-03_jprb,5.5531e-03_jprb/)  
kao( :, 5, 2, 4) = (/&
 & 3.4658e-02_jprb,4.1417e-02_jprb,4.1750e-02_jprb,3.9870e-02_jprb,3.6925e-02_jprb,3.2920e-02_jprb,&
 & 2.7922e-02_jprb,2.1122e-02_jprb,1.3687e-02_jprb,8.7925e-03_jprb,6.5017e-03_jprb/)  
kao( :, 1, 3, 4) = (/&
 & 2.4251e-02_jprb,2.7585e-02_jprb,2.7414e-02_jprb,2.5896e-02_jprb,2.3769e-02_jprb,2.1015e-02_jprb,&
 & 1.7490e-02_jprb,1.2799e-02_jprb,7.9859e-03_jprb,4.6822e-03_jprb,3.0167e-03_jprb/)  
kao( :, 2, 3, 4) = (/&
 & 2.5692e-02_jprb,2.9548e-02_jprb,2.9492e-02_jprb,2.7935e-02_jprb,2.5630e-02_jprb,2.2680e-02_jprb,&
 & 1.8918e-02_jprb,1.3904e-02_jprb,8.7584e-03_jprb,5.2529e-03_jprb,3.4804e-03_jprb/)  
kao( :, 3, 3, 4) = (/&
 & 2.7159e-02_jprb,3.1559e-02_jprb,3.1551e-02_jprb,2.9932e-02_jprb,2.7503e-02_jprb,2.4395e-02_jprb,&
 & 2.0399e-02_jprb,1.5119e-02_jprb,9.5888e-03_jprb,5.8905e-03_jprb,4.0103e-03_jprb/)  
kao( :, 4, 3, 4) = (/&
 & 2.8607e-02_jprb,3.3560e-02_jprb,3.3603e-02_jprb,3.1948e-02_jprb,2.9447e-02_jprb,2.6126e-02_jprb,&
 & 2.1928e-02_jprb,1.6399e-02_jprb,1.0499e-02_jprb,6.6008e-03_jprb,4.6200e-03_jprb/)  
kao( :, 5, 3, 4) = (/&
 & 3.0051e-02_jprb,3.5562e-02_jprb,3.5683e-02_jprb,3.4039e-02_jprb,3.1430e-02_jprb,2.7908e-02_jprb,&
 & 2.3518e-02_jprb,1.7750e-02_jprb,1.1493e-02_jprb,7.3863e-03_jprb,5.3130e-03_jprb/)  
kao( :, 1, 4, 4) = (/&
 & 2.0821e-02_jprb,2.3399e-02_jprb,2.3111e-02_jprb,2.1751e-02_jprb,1.9864e-02_jprb,1.7485e-02_jprb,&
 & 1.4530e-02_jprb,1.0587e-02_jprb,6.6174e-03_jprb,3.8560e-03_jprb,2.7540e-03_jprb/)  
kao( :, 2, 4, 4) = (/&
 & 2.2145e-02_jprb,2.5108e-02_jprb,2.4937e-02_jprb,2.3519e-02_jprb,2.1458e-02_jprb,1.8898e-02_jprb,&
 & 1.5727e-02_jprb,1.1528e-02_jprb,7.2647e-03_jprb,4.3306e-03_jprb,3.1427e-03_jprb/)  
kao( :, 3, 4, 4) = (/&
 & 2.3458e-02_jprb,2.6892e-02_jprb,2.6767e-02_jprb,2.5244e-02_jprb,2.3063e-02_jprb,2.0374e-02_jprb,&
 & 1.6989e-02_jprb,1.2556e-02_jprb,7.9663e-03_jprb,4.8678e-03_jprb,3.5922e-03_jprb/)  
kao( :, 4, 4, 4) = (/&
 & 2.4742e-02_jprb,2.8684e-02_jprb,2.8567e-02_jprb,2.7002e-02_jprb,2.4744e-02_jprb,2.1891e-02_jprb,&
 & 1.8302e-02_jprb,1.3637e-02_jprb,8.7323e-03_jprb,5.4756e-03_jprb,4.1087e-03_jprb/)  
kao( :, 5, 4, 4) = (/&
 & 2.6031e-02_jprb,3.0478e-02_jprb,3.0373e-02_jprb,2.8831e-02_jprb,2.6502e-02_jprb,2.3472e-02_jprb,&
 & 1.9656e-02_jprb,1.4775e-02_jprb,9.5721e-03_jprb,6.1469e-03_jprb,4.6820e-03_jprb/)  
kao( :, 1, 5, 4) = (/&
 & 1.7749e-02_jprb,1.9809e-02_jprb,1.9474e-02_jprb,1.8308e-02_jprb,1.6656e-02_jprb,1.4612e-02_jprb,&
 & 1.2090e-02_jprb,8.7523e-03_jprb,5.4506e-03_jprb,3.1594e-03_jprb,2.6009e-03_jprb/)  
kao( :, 2, 5, 4) = (/&
 & 1.8962e-02_jprb,2.1368e-02_jprb,2.1111e-02_jprb,1.9856e-02_jprb,1.8026e-02_jprb,1.5797e-02_jprb,&
 & 1.3087e-02_jprb,9.5480e-03_jprb,5.9920e-03_jprb,3.5465e-03_jprb,2.9383e-03_jprb/)  
kao( :, 3, 5, 4) = (/&
 & 2.0156e-02_jprb,2.2955e-02_jprb,2.2766e-02_jprb,2.1370e-02_jprb,1.9402e-02_jprb,1.7036e-02_jprb,&
 & 1.4132e-02_jprb,1.0409e-02_jprb,6.5849e-03_jprb,3.9909e-03_jprb,3.3267e-03_jprb/)  
kao( :, 4, 5, 4) = (/&
 & 2.1323e-02_jprb,2.4554e-02_jprb,2.4380e-02_jprb,2.2909e-02_jprb,2.0850e-02_jprb,1.8325e-02_jprb,&
 & 1.5252e-02_jprb,1.1317e-02_jprb,7.2332e-03_jprb,4.4966e-03_jprb,3.7667e-03_jprb/)  
kao( :, 5, 5, 4) = (/&
 & 2.2499e-02_jprb,2.6158e-02_jprb,2.5975e-02_jprb,2.4497e-02_jprb,2.2360e-02_jprb,1.9686e-02_jprb,&
 & 1.6421e-02_jprb,1.2278e-02_jprb,7.9387e-03_jprb,5.0610e-03_jprb,4.2588e-03_jprb/)  
kao( :, 1, 6, 4) = (/&
 & 1.5007e-02_jprb,1.6598e-02_jprb,1.6252e-02_jprb,1.5296e-02_jprb,1.3918e-02_jprb,1.2197e-02_jprb,&
 & 1.0070e-02_jprb,7.1973e-03_jprb,4.4418e-03_jprb,2.5632e-03_jprb,2.6270e-03_jprb/)  
kao( :, 2, 6, 4) = (/&
 & 1.6096e-02_jprb,1.8008e-02_jprb,1.7715e-02_jprb,1.6668e-02_jprb,1.5117e-02_jprb,1.3217e-02_jprb,&
 & 1.0902e-02_jprb,7.8574e-03_jprb,4.8940e-03_jprb,2.8829e-03_jprb,2.9097e-03_jprb/)  
kao( :, 3, 6, 4) = (/&
 & 1.7175e-02_jprb,1.9434e-02_jprb,1.9209e-02_jprb,1.8020e-02_jprb,1.6319e-02_jprb,1.4272e-02_jprb,&
 & 1.1772e-02_jprb,8.5712e-03_jprb,5.3927e-03_jprb,3.2482e-03_jprb,3.2462e-03_jprb/)  
kao( :, 4, 6, 4) = (/&
 & 1.8239e-02_jprb,2.0847e-02_jprb,2.0666e-02_jprb,1.9382e-02_jprb,1.7575e-02_jprb,1.5371e-02_jprb,&
 & 1.2710e-02_jprb,9.3314e-03_jprb,5.9328e-03_jprb,3.6614e-03_jprb,3.6324e-03_jprb/)  
kao( :, 5, 6, 4) = (/&
 & 1.9314e-02_jprb,2.2274e-02_jprb,2.2099e-02_jprb,2.0773e-02_jprb,1.8871e-02_jprb,1.6523e-02_jprb,&
 & 1.3707e-02_jprb,1.0147e-02_jprb,6.5230e-03_jprb,4.1212e-03_jprb,4.0664e-03_jprb/)  
kao( :, 1, 7, 4) = (/&
 & 1.2562e-02_jprb,1.3749e-02_jprb,1.3412e-02_jprb,1.2652e-02_jprb,1.1501e-02_jprb,1.0078e-02_jprb,&
 & 8.3008e-03_jprb,5.8951e-03_jprb,3.5839e-03_jprb,2.0640e-03_jprb,2.8990e-03_jprb/)  
kao( :, 2, 7, 4) = (/&
 & 1.3513e-02_jprb,1.4992e-02_jprb,1.4706e-02_jprb,1.3842e-02_jprb,1.2549e-02_jprb,1.0956e-02_jprb,&
 & 9.0265e-03_jprb,6.4348e-03_jprb,3.9618e-03_jprb,2.3233e-03_jprb,3.1544e-03_jprb/)  
kao( :, 3, 7, 4) = (/&
 & 1.4463e-02_jprb,1.6248e-02_jprb,1.6003e-02_jprb,1.5021e-02_jprb,1.3588e-02_jprb,1.1865e-02_jprb,&
 & 9.7704e-03_jprb,7.0232e-03_jprb,4.3758e-03_jprb,2.6208e-03_jprb,3.4308e-03_jprb/)  
kao( :, 4, 7, 4) = (/&
 & 1.5412e-02_jprb,1.7497e-02_jprb,1.7276e-02_jprb,1.6194e-02_jprb,1.4663e-02_jprb,1.2815e-02_jprb,&
 & 1.0574e-02_jprb,7.6491e-03_jprb,4.8284e-03_jprb,2.9535e-03_jprb,3.7526e-03_jprb/)  
kao( :, 5, 7, 4) = (/&
 & 1.6381e-02_jprb,1.8748e-02_jprb,1.8546e-02_jprb,1.7402e-02_jprb,1.5774e-02_jprb,1.3800e-02_jprb,&
 & 1.1415e-02_jprb,8.3305e-03_jprb,5.3183e-03_jprb,3.3227e-03_jprb,4.1190e-03_jprb/)  
kao( :, 1, 8, 4) = (/&
 & 1.0489e-02_jprb,1.1350e-02_jprb,1.1041e-02_jprb,1.0421e-02_jprb,9.4682e-03_jprb,8.2685e-03_jprb,&
 & 6.7870e-03_jprb,4.8019e-03_jprb,2.8904e-03_jprb,1.6552e-03_jprb,3.2034e-03_jprb/)  
kao( :, 2, 8, 4) = (/&
 & 1.1308e-02_jprb,1.2427e-02_jprb,1.2159e-02_jprb,1.1459e-02_jprb,1.0373e-02_jprb,9.0374e-03_jprb,&
 & 7.4076e-03_jprb,5.2450e-03_jprb,3.1947e-03_jprb,1.8626e-03_jprb,3.5949e-03_jprb/)  
kao( :, 3, 8, 4) = (/&
 & 1.2133e-02_jprb,1.3516e-02_jprb,1.3273e-02_jprb,1.2475e-02_jprb,1.1268e-02_jprb,9.8130e-03_jprb,&
 & 8.0528e-03_jprb,5.7311e-03_jprb,3.5370e-03_jprb,2.1011e-03_jprb,3.9889e-03_jprb/)  
kao( :, 4, 8, 4) = (/&
 & 1.2965e-02_jprb,1.4611e-02_jprb,1.4368e-02_jprb,1.3473e-02_jprb,1.2174e-02_jprb,1.0625e-02_jprb,&
 & 8.7372e-03_jprb,6.2577e-03_jprb,3.9075e-03_jprb,2.3709e-03_jprb,4.3703e-03_jprb/)  
kao( :, 5, 8, 4) = (/&
 & 1.3816e-02_jprb,1.5699e-02_jprb,1.5470e-02_jprb,1.4502e-02_jprb,1.3123e-02_jprb,1.1467e-02_jprb,&
 & 9.4537e-03_jprb,6.8298e-03_jprb,4.3093e-03_jprb,2.6663e-03_jprb,4.7512e-03_jprb/)  
kao( :, 1, 9, 4) = (/&
 & 8.7568e-03_jprb,9.3693e-03_jprb,9.0975e-03_jprb,8.5800e-03_jprb,7.7896e-03_jprb,6.7645e-03_jprb,&
 & 5.5285e-03_jprb,3.9033e-03_jprb,2.3310e-03_jprb,1.3217e-03_jprb,4.5731e-03_jprb/)  
kao( :, 2, 9, 4) = (/&
 & 9.4553e-03_jprb,1.0293e-02_jprb,1.0054e-02_jprb,9.4845e-03_jprb,8.5715e-03_jprb,7.4310e-03_jprb,&
 & 6.0526e-03_jprb,4.2651e-03_jprb,2.5747e-03_jprb,1.4878e-03_jprb,5.2597e-03_jprb/)  
kao( :, 3, 9, 4) = (/&
 & 1.0173e-02_jprb,1.1238e-02_jprb,1.1012e-02_jprb,1.0364e-02_jprb,9.3410e-03_jprb,8.0964e-03_jprb,&
 & 6.6049e-03_jprb,4.6620e-03_jprb,2.8506e-03_jprb,1.6770e-03_jprb,5.9814e-03_jprb/)  
kao( :, 4, 9, 4) = (/&
 & 1.0901e-02_jprb,1.2188e-02_jprb,1.1952e-02_jprb,1.1222e-02_jprb,1.0108e-02_jprb,8.7846e-03_jprb,&
 & 7.1864e-03_jprb,5.1051e-03_jprb,3.1528e-03_jprb,1.8913e-03_jprb,6.7372e-03_jprb/)  
kao( :, 5, 9, 4) = (/&
 & 1.1643e-02_jprb,1.3136e-02_jprb,1.2896e-02_jprb,1.2091e-02_jprb,1.0918e-02_jprb,9.5045e-03_jprb,&
 & 7.7923e-03_jprb,5.5824e-03_jprb,3.4794e-03_jprb,2.1303e-03_jprb,7.5084e-03_jprb/)  
kao( :, 1,10, 4) = (/&
 & 7.3210e-03_jprb,7.7682e-03_jprb,7.5348e-03_jprb,7.0910e-03_jprb,6.4276e-03_jprb,5.5555e-03_jprb,&
 & 4.5190e-03_jprb,3.1874e-03_jprb,1.8869e-03_jprb,1.0615e-03_jprb,8.5089e-03_jprb/)  
kao( :, 2,10, 4) = (/&
 & 7.9160e-03_jprb,8.5578e-03_jprb,8.3513e-03_jprb,7.8702e-03_jprb,7.1056e-03_jprb,6.1307e-03_jprb,&
 & 4.9642e-03_jprb,3.4828e-03_jprb,2.0800e-03_jprb,1.1948e-03_jprb,9.8844e-03_jprb/)  
kao( :, 3,10, 4) = (/&
 & 8.5286e-03_jprb,9.3757e-03_jprb,9.1726e-03_jprb,8.6301e-03_jprb,7.7707e-03_jprb,6.7003e-03_jprb,&
 & 5.4292e-03_jprb,3.8086e-03_jprb,2.3039e-03_jprb,1.3482e-03_jprb,1.1359e-02_jprb/)  
kao( :, 4,10, 4) = (/&
 & 9.1631e-03_jprb,1.0191e-02_jprb,9.9769e-03_jprb,9.3788e-03_jprb,8.4243e-03_jprb,7.2793e-03_jprb,&
 & 5.9222e-03_jprb,4.1756e-03_jprb,2.5509e-03_jprb,1.5190e-03_jprb,1.2931e-02_jprb/)  
kao( :, 5,10, 4) = (/&
 & 9.8113e-03_jprb,1.1015e-02_jprb,1.0788e-02_jprb,1.0124e-02_jprb,9.1153e-03_jprb,7.8926e-03_jprb,&
 & 6.4363e-03_jprb,4.5749e-03_jprb,2.8219e-03_jprb,1.7121e-03_jprb,1.4601e-02_jprb/)  
kao( :, 1,11, 4) = (/&
 & 6.3238e-03_jprb,6.7320e-03_jprb,6.5341e-03_jprb,6.1432e-03_jprb,5.5500e-03_jprb,4.7770e-03_jprb,&
 & 3.8625e-03_jprb,2.7098e-03_jprb,1.5930e-03_jprb,8.9971e-04_jprb,1.0691e-02_jprb/)  
kao( :, 2,11, 4) = (/&
 & 6.8377e-03_jprb,7.4132e-03_jprb,7.2351e-03_jprb,6.8044e-03_jprb,6.1328e-03_jprb,5.2698e-03_jprb,&
 & 4.2482e-03_jprb,2.9626e-03_jprb,1.7579e-03_jprb,1.0147e-03_jprb,1.2446e-02_jprb/)  
kao( :, 3,11, 4) = (/&
 & 7.3680e-03_jprb,8.1117e-03_jprb,7.9281e-03_jprb,7.4556e-03_jprb,6.7022e-03_jprb,5.7552e-03_jprb,&
 & 4.6507e-03_jprb,3.2459e-03_jprb,1.9476e-03_jprb,1.1453e-03_jprb,1.4323e-02_jprb/)  
kao( :, 4,11, 4) = (/&
 & 7.9250e-03_jprb,8.8100e-03_jprb,8.6199e-03_jprb,8.1042e-03_jprb,7.2716e-03_jprb,6.2615e-03_jprb,&
 & 5.0763e-03_jprb,3.5597e-03_jprb,2.1591e-03_jprb,1.2891e-03_jprb,1.6318e-02_jprb/)  
kao( :, 5,11, 4) = (/&
 & 8.4995e-03_jprb,9.5310e-03_jprb,9.3303e-03_jprb,8.7684e-03_jprb,7.8755e-03_jprb,6.7950e-03_jprb,&
 & 5.5255e-03_jprb,3.9023e-03_jprb,2.3918e-03_jprb,1.4517e-03_jprb,1.8430e-02_jprb/)  
kao( :, 1,12, 4) = (/&
 & 5.4239e-03_jprb,5.7942e-03_jprb,5.6254e-03_jprb,5.2775e-03_jprb,4.7538e-03_jprb,4.0783e-03_jprb,&
 & 3.2815e-03_jprb,2.2911e-03_jprb,1.3390e-03_jprb,7.5901e-04_jprb,1.1069e-02_jprb/)  
kao( :, 2,12, 4) = (/&
 & 5.8650e-03_jprb,6.3756e-03_jprb,6.2146e-03_jprb,5.8301e-03_jprb,5.2465e-03_jprb,4.4949e-03_jprb,&
 & 3.6123e-03_jprb,2.5101e-03_jprb,1.4788e-03_jprb,8.5773e-04_jprb,1.2922e-02_jprb/)  
kao( :, 3,12, 4) = (/&
 & 6.3326e-03_jprb,6.9605e-03_jprb,6.7926e-03_jprb,6.3822e-03_jprb,5.7295e-03_jprb,4.9116e-03_jprb,&
 & 3.9590e-03_jprb,2.7527e-03_jprb,1.6402e-03_jprb,9.6785e-04_jprb,1.4890e-02_jprb/)  
kao( :, 4,12, 4) = (/&
 & 6.8197e-03_jprb,7.5612e-03_jprb,7.3901e-03_jprb,6.9407e-03_jprb,6.2248e-03_jprb,5.3513e-03_jprb,&
 & 4.3255e-03_jprb,3.0215e-03_jprb,1.8202e-03_jprb,1.0893e-03_jprb,1.6968e-02_jprb/)  
kao( :, 5,12, 4) = (/&
 & 7.3239e-03_jprb,8.1869e-03_jprb,8.0102e-03_jprb,7.5305e-03_jprb,6.7534e-03_jprb,5.8184e-03_jprb,&
 & 4.7200e-03_jprb,3.3172e-03_jprb,2.0173e-03_jprb,1.2265e-03_jprb,1.9174e-02_jprb/)  
kao( :, 1,13, 4) = (/&
 & 4.6050e-03_jprb,4.9342e-03_jprb,4.7817e-03_jprb,4.4662e-03_jprb,4.0147e-03_jprb,3.4350e-03_jprb,&
 & 2.7500e-03_jprb,1.9135e-03_jprb,1.1150e-03_jprb,6.3435e-04_jprb,9.6482e-03_jprb/)  
kao( :, 2,13, 4) = (/&
 & 4.9867e-03_jprb,5.4199e-03_jprb,5.2643e-03_jprb,4.9240e-03_jprb,4.4219e-03_jprb,3.7782e-03_jprb,&
 & 3.0269e-03_jprb,2.1006e-03_jprb,1.2335e-03_jprb,7.1745e-04_jprb,1.1271e-02_jprb/)  
kao( :, 3,13, 4) = (/&
 & 5.3971e-03_jprb,5.9114e-03_jprb,5.7510e-03_jprb,5.3855e-03_jprb,4.8287e-03_jprb,4.1310e-03_jprb,&
 & 3.3205e-03_jprb,2.3075e-03_jprb,1.3695e-03_jprb,8.0946e-04_jprb,1.2985e-02_jprb/)  
kao( :, 4,13, 4) = (/&
 & 5.8203e-03_jprb,6.4262e-03_jprb,6.2609e-03_jprb,5.8661e-03_jprb,5.2552e-03_jprb,4.5068e-03_jprb,&
 & 3.6338e-03_jprb,2.5380e-03_jprb,1.5209e-03_jprb,9.1160e-04_jprb,1.4785e-02_jprb/)  
kao( :, 5,13, 4) = (/&
 & 6.2608e-03_jprb,6.9642e-03_jprb,6.7991e-03_jprb,6.3791e-03_jprb,5.7139e-03_jprb,4.9101e-03_jprb,&
 & 3.9752e-03_jprb,2.7918e-03_jprb,1.6870e-03_jprb,1.0277e-03_jprb,1.6692e-02_jprb/)  
kao( :, 1, 1, 5) = (/&
 & 6.9423e-02_jprb,7.4960e-02_jprb,7.2881e-02_jprb,6.7852e-02_jprb,6.0804e-02_jprb,5.2531e-02_jprb,&
 & 4.2824e-02_jprb,3.0610e-02_jprb,1.9045e-02_jprb,1.1972e-02_jprb,9.0656e-03_jprb/)  
kao( :, 2, 1, 5) = (/&
 & 7.1301e-02_jprb,7.7925e-02_jprb,7.6064e-02_jprb,7.1198e-02_jprb,6.4170e-02_jprb,5.6008e-02_jprb,&
 & 4.6002e-02_jprb,3.3219e-02_jprb,2.0898e-02_jprb,1.3541e-02_jprb,1.0844e-02_jprb/)  
kao( :, 3, 1, 5) = (/&
 & 7.2960e-02_jprb,8.0744e-02_jprb,7.9397e-02_jprb,7.4686e-02_jprb,6.7915e-02_jprb,5.9615e-02_jprb,&
 & 4.9205e-02_jprb,3.5928e-02_jprb,2.2906e-02_jprb,1.5284e-02_jprb,1.2853e-02_jprb/)  
kao( :, 4, 1, 5) = (/&
 & 7.4482e-02_jprb,8.3568e-02_jprb,8.2751e-02_jprb,7.8370e-02_jprb,7.1840e-02_jprb,6.3241e-02_jprb,&
 & 5.2611e-02_jprb,3.8800e-02_jprb,2.5071e-02_jprb,1.7190e-02_jprb,1.5078e-02_jprb/)  
kao( :, 5, 1, 5) = (/&
 & 7.5977e-02_jprb,8.6416e-02_jprb,8.6132e-02_jprb,8.2229e-02_jprb,7.5721e-02_jprb,6.7015e-02_jprb,&
 & 5.6188e-02_jprb,4.1791e-02_jprb,2.7379e-02_jprb,1.9319e-02_jprb,1.7544e-02_jprb/)  
kao( :, 1, 2, 5) = (/&
 & 6.1428e-02_jprb,6.6243e-02_jprb,6.4016e-02_jprb,5.9686e-02_jprb,5.3408e-02_jprb,4.5905e-02_jprb,&
 & 3.7325e-02_jprb,2.6638e-02_jprb,1.6539e-02_jprb,1.0261e-02_jprb,7.2943e-03_jprb/)  
kao( :, 2, 2, 5) = (/&
 & 6.3157e-02_jprb,6.8963e-02_jprb,6.7035e-02_jprb,6.2877e-02_jprb,5.6628e-02_jprb,4.9107e-02_jprb,&
 & 4.0147e-02_jprb,2.8970e-02_jprb,1.8198e-02_jprb,1.1562e-02_jprb,8.6747e-03_jprb/)  
kao( :, 3, 2, 5) = (/&
 & 6.4729e-02_jprb,7.1653e-02_jprb,7.0183e-02_jprb,6.6237e-02_jprb,6.0087e-02_jprb,5.2347e-02_jprb,&
 & 4.3083e-02_jprb,3.1429e-02_jprb,1.9978e-02_jprb,1.2998e-02_jprb,1.0260e-02_jprb/)  
kao( :, 4, 2, 5) = (/&
 & 6.6252e-02_jprb,7.4355e-02_jprb,7.3321e-02_jprb,6.9741e-02_jprb,6.3553e-02_jprb,5.5697e-02_jprb,&
 & 4.6228e-02_jprb,3.4024e-02_jprb,2.1871e-02_jprb,1.4556e-02_jprb,1.2034e-02_jprb/)  

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


SUBROUTINE part4

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


kao( :, 5, 2, 5) = (/&
 & 6.7782e-02_jprb,7.7009e-02_jprb,7.6503e-02_jprb,7.3173e-02_jprb,6.7016e-02_jprb,5.9180e-02_jprb,&
 & 4.9505e-02_jprb,3.6707e-02_jprb,2.3887e-02_jprb,1.6290e-02_jprb,1.4004e-02_jprb/)  
kao( :, 1, 3, 5) = (/&
 & 5.3533e-02_jprb,5.7434e-02_jprb,5.5277e-02_jprb,5.1527e-02_jprb,4.6035e-02_jprb,3.9352e-02_jprb,&
 & 3.1746e-02_jprb,2.2523e-02_jprb,1.3908e-02_jprb,8.6490e-03_jprb,5.9287e-03_jprb/)  
kao( :, 2, 3, 5) = (/&
 & 5.5137e-02_jprb,5.9969e-02_jprb,5.8097e-02_jprb,5.4502e-02_jprb,4.8980e-02_jprb,4.2173e-02_jprb,&
 & 3.4244e-02_jprb,2.4566e-02_jprb,1.5350e-02_jprb,9.6962e-03_jprb,6.9493e-03_jprb/)  
kao( :, 3, 3, 5) = (/&
 & 5.6675e-02_jprb,6.2431e-02_jprb,6.0975e-02_jprb,5.7589e-02_jprb,5.2056e-02_jprb,4.5047e-02_jprb,&
 & 3.6855e-02_jprb,2.6729e-02_jprb,1.6909e-02_jprb,1.0855e-02_jprb,8.1206e-03_jprb/)  
kao( :, 4, 3, 5) = (/&
 & 5.8200e-02_jprb,6.4923e-02_jprb,6.3882e-02_jprb,6.0753e-02_jprb,5.5077e-02_jprb,4.8037e-02_jprb,&
 & 3.9643e-02_jprb,2.9018e-02_jprb,1.8575e-02_jprb,1.2121e-02_jprb,9.4750e-03_jprb/)  
kao( :, 5, 3, 5) = (/&
 & 5.9733e-02_jprb,6.7416e-02_jprb,6.6842e-02_jprb,6.3776e-02_jprb,5.8159e-02_jprb,5.1164e-02_jprb,&
 & 4.2585e-02_jprb,3.1380e-02_jprb,2.0348e-02_jprb,1.3514e-02_jprb,1.0998e-02_jprb/)  
kao( :, 1, 4, 5) = (/&
 & 4.6353e-02_jprb,4.9264e-02_jprb,4.7316e-02_jprb,4.4016e-02_jprb,3.9303e-02_jprb,3.3446e-02_jprb,&
 & 2.6720e-02_jprb,1.8817e-02_jprb,1.1541e-02_jprb,7.2722e-03_jprb,5.4712e-03_jprb/)  
kao( :, 2, 4, 5) = (/&
 & 4.7832e-02_jprb,5.1575e-02_jprb,4.9905e-02_jprb,4.6721e-02_jprb,4.1940e-02_jprb,3.5924e-02_jprb,&
 & 2.8909e-02_jprb,2.0563e-02_jprb,1.2756e-02_jprb,8.1360e-03_jprb,6.2894e-03_jprb/)  
kao( :, 3, 4, 5) = (/&
 & 4.9292e-02_jprb,5.3845e-02_jprb,5.2477e-02_jprb,4.9511e-02_jprb,4.4682e-02_jprb,3.8438e-02_jprb,&
 & 3.1206e-02_jprb,2.2430e-02_jprb,1.4083e-02_jprb,9.0822e-03_jprb,7.2079e-03_jprb/)  
kao( :, 4, 4, 5) = (/&
 & 5.0753e-02_jprb,5.6167e-02_jprb,5.5096e-02_jprb,5.2291e-02_jprb,4.7354e-02_jprb,4.1051e-02_jprb,&
 & 3.3627e-02_jprb,2.4418e-02_jprb,1.5508e-02_jprb,1.0111e-02_jprb,8.2258e-03_jprb/)  
kao( :, 5, 4, 5) = (/&
 & 5.2237e-02_jprb,5.8453e-02_jprb,5.7807e-02_jprb,5.4969e-02_jprb,5.0043e-02_jprb,4.3750e-02_jprb,&
 & 3.6221e-02_jprb,2.6492e-02_jprb,1.7044e-02_jprb,1.1243e-02_jprb,9.3585e-03_jprb/)  
kao( :, 1, 5, 5) = (/&
 & 4.0215e-02_jprb,4.2178e-02_jprb,4.0345e-02_jprb,3.7366e-02_jprb,3.3354e-02_jprb,2.8283e-02_jprb,&
 & 2.2446e-02_jprb,1.5692e-02_jprb,9.5378e-03_jprb,6.0574e-03_jprb,5.0927e-03_jprb/)  
kao( :, 2, 5, 5) = (/&
 & 4.1564e-02_jprb,4.4223e-02_jprb,4.2656e-02_jprb,3.9744e-02_jprb,3.5712e-02_jprb,3.0486e-02_jprb,&
 & 2.4325e-02_jprb,1.7173e-02_jprb,1.0563e-02_jprb,6.7992e-03_jprb,5.7848e-03_jprb/)  
kao( :, 3, 5, 5) = (/&
 & 4.2880e-02_jprb,4.6295e-02_jprb,4.4929e-02_jprb,4.2198e-02_jprb,3.8104e-02_jprb,3.2711e-02_jprb,&
 & 2.6325e-02_jprb,1.8758e-02_jprb,1.1674e-02_jprb,7.6073e-03_jprb,6.5722e-03_jprb/)  
kao( :, 4, 5, 5) = (/&
 & 4.4250e-02_jprb,4.8374e-02_jprb,4.7253e-02_jprb,4.4669e-02_jprb,4.0477e-02_jprb,3.4961e-02_jprb,&
 & 2.8432e-02_jprb,2.0449e-02_jprb,1.2880e-02_jprb,8.4762e-03_jprb,7.4570e-03_jprb/)  
kao( :, 5, 5, 5) = (/&
 & 4.5632e-02_jprb,5.0457e-02_jprb,4.9661e-02_jprb,4.7073e-02_jprb,4.2857e-02_jprb,3.7281e-02_jprb,&
 & 3.0645e-02_jprb,2.2241e-02_jprb,1.4179e-02_jprb,9.4224e-03_jprb,8.4289e-03_jprb/)  
kao( :, 1, 6, 5) = (/&
 & 3.4853e-02_jprb,3.6094e-02_jprb,3.4340e-02_jprb,3.1567e-02_jprb,2.8074e-02_jprb,2.3747e-02_jprb,&
 & 1.8747e-02_jprb,1.3033e-02_jprb,7.8344e-03_jprb,4.9564e-03_jprb,4.7664e-03_jprb/)  
kao( :, 2, 6, 5) = (/&
 & 3.6095e-02_jprb,3.7902e-02_jprb,3.6360e-02_jprb,3.3627e-02_jprb,3.0131e-02_jprb,2.5638e-02_jprb,&
 & 2.0371e-02_jprb,1.4275e-02_jprb,8.6972e-03_jprb,5.5735e-03_jprb,5.3896e-03_jprb/)  
kao( :, 3, 6, 5) = (/&
 & 3.7297e-02_jprb,3.9745e-02_jprb,3.8353e-02_jprb,3.5764e-02_jprb,3.2219e-02_jprb,2.7550e-02_jprb,&
 & 2.2085e-02_jprb,1.5615e-02_jprb,9.6284e-03_jprb,6.2556e-03_jprb,6.0790e-03_jprb/)  
kao( :, 4, 6, 5) = (/&
 & 3.8557e-02_jprb,4.1597e-02_jprb,4.0389e-02_jprb,3.7908e-02_jprb,3.4281e-02_jprb,2.9507e-02_jprb,&
 & 2.3870e-02_jprb,1.7046e-02_jprb,1.0643e-02_jprb,7.0034e-03_jprb,6.8484e-03_jprb/)  
kao( :, 5, 6, 5) = (/&
 & 3.9824e-02_jprb,4.3464e-02_jprb,4.2478e-02_jprb,4.0047e-02_jprb,3.6382e-02_jprb,3.1522e-02_jprb,&
 & 2.5736e-02_jprb,1.8573e-02_jprb,1.1739e-02_jprb,7.8250e-03_jprb,7.7029e-03_jprb/)  
kao( :, 1, 7, 5) = (/&
 & 2.9815e-02_jprb,3.0608e-02_jprb,2.8988e-02_jprb,2.6483e-02_jprb,2.3444e-02_jprb,1.9806e-02_jprb,&
 & 1.5587e-02_jprb,1.0729e-02_jprb,6.3834e-03_jprb,3.9988e-03_jprb,4.7710e-03_jprb/)  
kao( :, 2, 7, 5) = (/&
 & 3.0946e-02_jprb,3.2211e-02_jprb,3.0727e-02_jprb,2.8262e-02_jprb,2.5215e-02_jprb,2.1406e-02_jprb,&
 & 1.6940e-02_jprb,1.1789e-02_jprb,7.0925e-03_jprb,4.5059e-03_jprb,5.3365e-03_jprb/)  
kao( :, 3, 7, 5) = (/&
 & 3.2060e-02_jprb,3.3823e-02_jprb,3.2464e-02_jprb,3.0099e-02_jprb,2.7004e-02_jprb,2.3026e-02_jprb,&
 & 1.8369e-02_jprb,1.2921e-02_jprb,7.8758e-03_jprb,5.0685e-03_jprb,5.9857e-03_jprb/)  
kao( :, 4, 7, 5) = (/&
 & 3.3198e-02_jprb,3.5483e-02_jprb,3.4283e-02_jprb,3.1964e-02_jprb,2.8781e-02_jprb,2.4689e-02_jprb,&
 & 1.9856e-02_jprb,1.4137e-02_jprb,8.7260e-03_jprb,5.6932e-03_jprb,6.6962e-03_jprb/)  
kao( :, 5, 7, 5) = (/&
 & 3.4342e-02_jprb,3.7144e-02_jprb,3.6117e-02_jprb,3.3825e-02_jprb,3.0620e-02_jprb,2.6411e-02_jprb,&
 & 2.1416e-02_jprb,1.5421e-02_jprb,9.6443e-03_jprb,6.3905e-03_jprb,7.4882e-03_jprb/)  
kao( :, 1, 8, 5) = (/&
 & 2.5283e-02_jprb,2.5751e-02_jprb,2.4270e-02_jprb,2.2079e-02_jprb,1.9496e-02_jprb,1.6496e-02_jprb,&
 & 1.2947e-02_jprb,8.8078e-03_jprb,5.1661e-03_jprb,3.1956e-03_jprb,5.6775e-03_jprb/)  
kao( :, 2, 8, 5) = (/&
 & 2.6302e-02_jprb,2.7180e-02_jprb,2.5781e-02_jprb,2.3615e-02_jprb,2.1015e-02_jprb,1.7843e-02_jprb,&
 & 1.4097e-02_jprb,9.7060e-03_jprb,5.7494e-03_jprb,3.6083e-03_jprb,6.1622e-03_jprb/)  
kao( :, 3, 8, 5) = (/&
 & 2.7320e-02_jprb,2.8593e-02_jprb,2.7305e-02_jprb,2.5195e-02_jprb,2.2546e-02_jprb,1.9223e-02_jprb,&
 & 1.5282e-02_jprb,1.0665e-02_jprb,6.3913e-03_jprb,4.0728e-03_jprb,6.7057e-03_jprb/)  
kao( :, 4, 8, 5) = (/&
 & 2.8333e-02_jprb,3.0041e-02_jprb,2.8915e-02_jprb,2.6829e-02_jprb,2.4088e-02_jprb,2.0635e-02_jprb,&
 & 1.6522e-02_jprb,1.1685e-02_jprb,7.1066e-03_jprb,4.5896e-03_jprb,7.3455e-03_jprb/)  
kao( :, 5, 8, 5) = (/&
 & 2.9349e-02_jprb,3.1526e-02_jprb,3.0540e-02_jprb,2.8464e-02_jprb,2.5707e-02_jprb,2.2109e-02_jprb,&
 & 1.7816e-02_jprb,1.2753e-02_jprb,7.8746e-03_jprb,5.1734e-03_jprb,8.0746e-03_jprb/)  
kao( :, 1, 9, 5) = (/&
 & 2.1393e-02_jprb,2.1598e-02_jprb,2.0242e-02_jprb,1.8370e-02_jprb,1.6186e-02_jprb,1.3706e-02_jprb,&
 & 1.0722e-02_jprb,7.2195e-03_jprb,4.1746e-03_jprb,2.5439e-03_jprb,1.0113e-02_jprb/)  
kao( :, 2, 9, 5) = (/&
 & 2.2301e-02_jprb,2.2863e-02_jprb,2.1562e-02_jprb,1.9670e-02_jprb,1.7466e-02_jprb,1.4848e-02_jprb,&
 & 1.1705e-02_jprb,7.9781e-03_jprb,4.6436e-03_jprb,2.8718e-03_jprb,1.1342e-02_jprb/)  
kao( :, 3, 9, 5) = (/&
 & 2.3221e-02_jprb,2.4089e-02_jprb,2.2883e-02_jprb,2.1022e-02_jprb,1.8774e-02_jprb,1.6030e-02_jprb,&
 & 1.2717e-02_jprb,8.7854e-03_jprb,5.1730e-03_jprb,3.2515e-03_jprb,1.2507e-02_jprb/)  
kao( :, 4, 9, 5) = (/&
 & 2.4120e-02_jprb,2.5343e-02_jprb,2.4280e-02_jprb,2.2425e-02_jprb,2.0119e-02_jprb,1.7244e-02_jprb,&
 & 1.3767e-02_jprb,9.6361e-03_jprb,5.7611e-03_jprb,3.6765e-03_jprb,1.3554e-02_jprb/)  
kao( :, 5, 9, 5) = (/&
 & 2.5016e-02_jprb,2.6638e-02_jprb,2.5702e-02_jprb,2.3865e-02_jprb,2.1516e-02_jprb,1.8508e-02_jprb,&
 & 1.4864e-02_jprb,1.0529e-02_jprb,6.4045e-03_jprb,4.1546e-03_jprb,1.4572e-02_jprb/)  
kao( :, 1,10, 5) = (/&
 & 1.8113e-02_jprb,1.8138e-02_jprb,1.6915e-02_jprb,1.5326e-02_jprb,1.3493e-02_jprb,1.1404e-02_jprb,&
 & 8.8894e-03_jprb,5.9161e-03_jprb,3.3974e-03_jprb,2.0400e-03_jprb,2.3155e-02_jprb/)  
kao( :, 2,10, 5) = (/&
 & 1.8911e-02_jprb,1.9233e-02_jprb,1.8049e-02_jprb,1.6433e-02_jprb,1.4556e-02_jprb,1.2371e-02_jprb,&
 & 9.7152e-03_jprb,6.5645e-03_jprb,3.7859e-03_jprb,2.2984e-03_jprb,2.6502e-02_jprb/)  
kao( :, 3,10, 5) = (/&
 & 1.9728e-02_jprb,2.0295e-02_jprb,1.9188e-02_jprb,1.7578e-02_jprb,1.5660e-02_jprb,1.3378e-02_jprb,&
 & 1.0586e-02_jprb,7.2492e-03_jprb,4.2176e-03_jprb,2.6036e-03_jprb,2.9732e-02_jprb/)  
kao( :, 4,10, 5) = (/&
 & 2.0511e-02_jprb,2.1373e-02_jprb,2.0386e-02_jprb,1.8762e-02_jprb,1.6821e-02_jprb,1.4424e-02_jprb,&
 & 1.1488e-02_jprb,7.9631e-03_jprb,4.7001e-03_jprb,2.9535e-03_jprb,3.2827e-02_jprb/)  
kao( :, 5,10, 5) = (/&
 & 2.1304e-02_jprb,2.2491e-02_jprb,2.1602e-02_jprb,2.0004e-02_jprb,1.8011e-02_jprb,1.5518e-02_jprb,&
 & 1.2440e-02_jprb,8.7186e-03_jprb,5.2306e-03_jprb,3.3445e-03_jprb,3.5819e-02_jprb/)  
kao( :, 1,11, 5) = (/&
 & 1.5695e-02_jprb,1.5702e-02_jprb,1.4638e-02_jprb,1.3267e-02_jprb,1.1679e-02_jprb,9.8503e-03_jprb,&
 & 7.6677e-03_jprb,5.0761e-03_jprb,2.9053e-03_jprb,1.7228e-03_jprb,2.9993e-02_jprb/)  
kao( :, 2,11, 5) = (/&
 & 1.6401e-02_jprb,1.6637e-02_jprb,1.5599e-02_jprb,1.4214e-02_jprb,1.2583e-02_jprb,1.0686e-02_jprb,&
 & 8.3766e-03_jprb,5.6416e-03_jprb,3.2428e-03_jprb,1.9419e-03_jprb,3.4197e-02_jprb/)  
kao( :, 3,11, 5) = (/&
 & 1.7106e-02_jprb,1.7559e-02_jprb,1.6602e-02_jprb,1.5204e-02_jprb,1.3537e-02_jprb,1.1563e-02_jprb,&
 & 9.1295e-03_jprb,6.2308e-03_jprb,3.6142e-03_jprb,2.2018e-03_jprb,3.8237e-02_jprb/)  
kao( :, 4,11, 5) = (/&
 & 1.7783e-02_jprb,1.8504e-02_jprb,1.7628e-02_jprb,1.6229e-02_jprb,1.4542e-02_jprb,1.2483e-02_jprb,&
 & 9.9207e-03_jprb,6.8466e-03_jprb,4.0263e-03_jprb,2.5043e-03_jprb,4.2149e-02_jprb/)  
kao( :, 5,11, 5) = (/&
 & 1.8493e-02_jprb,1.9485e-02_jprb,1.8676e-02_jprb,1.7295e-02_jprb,1.5575e-02_jprb,1.3438e-02_jprb,&
 & 1.0754e-02_jprb,7.5058e-03_jprb,4.4801e-03_jprb,2.8413e-03_jprb,4.5923e-02_jprb/)  
kao( :, 1,12, 5) = (/&
 & 1.3506e-02_jprb,1.3529e-02_jprb,1.2628e-02_jprb,1.1452e-02_jprb,1.0063e-02_jprb,8.4685e-03_jprb,&
 & 6.5828e-03_jprb,4.3370e-03_jprb,2.4676e-03_jprb,1.4501e-03_jprb,3.1379e-02_jprb/)  
kao( :, 2,12, 5) = (/&
 & 1.4125e-02_jprb,1.4325e-02_jprb,1.3451e-02_jprb,1.2271e-02_jprb,1.0846e-02_jprb,9.1944e-03_jprb,&
 & 7.1930e-03_jprb,4.8218e-03_jprb,2.7588e-03_jprb,1.6351e-03_jprb,3.5598e-02_jprb/)  
kao( :, 3,12, 5) = (/&
 & 1.4721e-02_jprb,1.5127e-02_jprb,1.4318e-02_jprb,1.3125e-02_jprb,1.1678e-02_jprb,9.9571e-03_jprb,&
 & 7.8415e-03_jprb,5.3248e-03_jprb,3.0763e-03_jprb,1.8570e-03_jprb,3.9752e-02_jprb/)  
kao( :, 4,12, 5) = (/&
 & 1.5317e-02_jprb,1.5950e-02_jprb,1.5202e-02_jprb,1.4009e-02_jprb,1.2540e-02_jprb,1.0752e-02_jprb,&
 & 8.5246e-03_jprb,5.8565e-03_jprb,3.4251e-03_jprb,2.1158e-03_jprb,4.3744e-02_jprb/)  
kao( :, 5,12, 5) = (/&
 & 1.5969e-02_jprb,1.6812e-02_jprb,1.6124e-02_jprb,1.4932e-02_jprb,1.3442e-02_jprb,1.1579e-02_jprb,&
 & 9.2378e-03_jprb,6.4203e-03_jprb,3.8147e-03_jprb,2.4036e-03_jprb,4.7604e-02_jprb/)  
kao( :, 1,13, 5) = (/&
 & 1.1399e-02_jprb,1.1449e-02_jprb,1.0710e-02_jprb,9.7174e-03_jprb,8.5323e-03_jprb,7.1730e-03_jprb,&
 & 5.5827e-03_jprb,3.6682e-03_jprb,2.0730e-03_jprb,1.2124e-03_jprb,2.7163e-02_jprb/)  
kao( :, 2,13, 5) = (/&
 & 1.1916e-02_jprb,1.2118e-02_jprb,1.1410e-02_jprb,1.0424e-02_jprb,9.2099e-03_jprb,7.8054e-03_jprb,&
 & 6.1073e-03_jprb,4.0757e-03_jprb,2.3191e-03_jprb,1.3693e-03_jprb,3.0692e-02_jprb/)  
kao( :, 3,13, 5) = (/&
 & 1.2413e-02_jprb,1.2810e-02_jprb,1.2156e-02_jprb,1.1166e-02_jprb,9.9300e-03_jprb,8.4666e-03_jprb,&
 & 6.6637e-03_jprb,4.5036e-03_jprb,2.5869e-03_jprb,1.5580e-03_jprb,3.4158e-02_jprb/)  
kao( :, 4,13, 5) = (/&
 & 1.2945e-02_jprb,1.3524e-02_jprb,1.2930e-02_jprb,1.1934e-02_jprb,1.0680e-02_jprb,9.1538e-03_jprb,&
 & 7.2492e-03_jprb,4.9532e-03_jprb,2.8844e-03_jprb,1.7769e-03_jprb,3.7486e-02_jprb/)  
kao( :, 5,13, 5) = (/&
 & 1.3534e-02_jprb,1.4296e-02_jprb,1.3748e-02_jprb,1.2750e-02_jprb,1.1472e-02_jprb,9.8678e-03_jprb,&
 & 7.8555e-03_jprb,5.4258e-03_jprb,3.2161e-03_jprb,2.0203e-03_jprb,4.0660e-02_jprb/)  
kao( :, 1, 1, 6) = (/&
 & 1.3812e-01_jprb,1.3826e-01_jprb,1.3412e-01_jprb,1.2512e-01_jprb,1.1224e-01_jprb,9.5217e-02_jprb,&
 & 7.4976e-02_jprb,5.1336e-02_jprb,3.0614e-02_jprb,2.1696e-02_jprb,2.0374e-02_jprb/)  
kao( :, 2, 1, 6) = (/&
 & 1.3941e-01_jprb,1.4212e-01_jprb,1.3899e-01_jprb,1.3015e-01_jprb,1.1723e-01_jprb,9.9705e-02_jprb,&
 & 7.9423e-02_jprb,5.5251e-02_jprb,3.3932e-02_jprb,2.4851e-02_jprb,2.3928e-02_jprb/)  
kao( :, 3, 1, 6) = (/&
 & 1.4069e-01_jprb,1.4606e-01_jprb,1.4349e-01_jprb,1.3492e-01_jprb,1.2182e-01_jprb,1.0431e-01_jprb,&
 & 8.4373e-02_jprb,5.9330e-02_jprb,3.7520e-02_jprb,2.8503e-02_jprb,2.7981e-02_jprb/)  
kao( :, 4, 1, 6) = (/&
 & 1.4204e-01_jprb,1.4980e-01_jprb,1.4773e-01_jprb,1.3955e-01_jprb,1.2635e-01_jprb,1.0953e-01_jprb,&
 & 8.9320e-02_jprb,6.3663e-02_jprb,4.1464e-02_jprb,3.2709e-02_jprb,3.2519e-02_jprb/)  
kao( :, 5, 1, 6) = (/&
 & 1.4335e-01_jprb,1.5332e-01_jprb,1.5190e-01_jprb,1.4393e-01_jprb,1.3131e-01_jprb,1.1498e-01_jprb,&
 & 9.4231e-02_jprb,6.8373e-02_jprb,4.5718e-02_jprb,3.7379e-02_jprb,3.7561e-02_jprb/)  
kao( :, 1, 2, 6) = (/&
 & 1.2540e-01_jprb,1.2569e-01_jprb,1.2163e-01_jprb,1.1284e-01_jprb,1.0119e-01_jprb,8.6267e-02_jprb,&
 & 6.7814e-02_jprb,4.6281e-02_jprb,2.7026e-02_jprb,1.8209e-02_jprb,1.6155e-02_jprb/)  
kao( :, 2, 2, 6) = (/&
 & 1.2690e-01_jprb,1.2947e-01_jprb,1.2609e-01_jprb,1.1758e-01_jprb,1.0596e-01_jprb,9.0648e-02_jprb,&
 & 7.2085e-02_jprb,4.9891e-02_jprb,2.9876e-02_jprb,2.0766e-02_jprb,1.9045e-02_jprb/)  
kao( :, 3, 2, 6) = (/&
 & 1.2845e-01_jprb,1.3318e-01_jprb,1.3033e-01_jprb,1.2211e-01_jprb,1.1052e-01_jprb,9.5256e-02_jprb,&
 & 7.6664e-02_jprb,5.3627e-02_jprb,3.2984e-02_jprb,2.3750e-02_jprb,2.2338e-02_jprb/)  
kao( :, 4, 2, 6) = (/&
 & 1.2994e-01_jprb,1.3679e-01_jprb,1.3454e-01_jprb,1.2649e-01_jprb,1.1513e-01_jprb,1.0018e-01_jprb,&
 & 8.1132e-02_jprb,5.7623e-02_jprb,3.6417e-02_jprb,2.7177e-02_jprb,2.6047e-02_jprb/)  
kao( :, 5, 2, 6) = (/&
 & 1.3135e-01_jprb,1.4032e-01_jprb,1.3874e-01_jprb,1.3096e-01_jprb,1.2020e-01_jprb,1.0521e-01_jprb,&
 & 8.5803e-02_jprb,6.1991e-02_jprb,4.0111e-02_jprb,3.0993e-02_jprb,3.0183e-02_jprb/)  
kao( :, 1, 3, 6) = (/&
 & 1.1249e-01_jprb,1.1241e-01_jprb,1.0797e-01_jprb,9.9582e-02_jprb,8.8991e-02_jprb,7.6122e-02_jprb,&
 & 5.9776e-02_jprb,4.0423e-02_jprb,2.3381e-02_jprb,1.4989e-02_jprb,1.2392e-02_jprb/)  
kao( :, 2, 3, 6) = (/&
 & 1.1410e-01_jprb,1.1606e-01_jprb,1.1205e-01_jprb,1.0392e-01_jprb,9.3538e-02_jprb,8.0374e-02_jprb,&
 & 6.3755e-02_jprb,4.3750e-02_jprb,2.5848e-02_jprb,1.7065e-02_jprb,1.4647e-02_jprb/)  
kao( :, 3, 3, 6) = (/&
 & 1.1569e-01_jprb,1.1965e-01_jprb,1.1613e-01_jprb,1.0831e-01_jprb,9.7905e-02_jprb,8.4765e-02_jprb,&
 & 6.7839e-02_jprb,4.7191e-02_jprb,2.8514e-02_jprb,1.9425e-02_jprb,1.7233e-02_jprb/)  
kao( :, 4, 3, 6) = (/&
 & 1.1726e-01_jprb,1.2309e-01_jprb,1.2032e-01_jprb,1.1259e-01_jprb,1.0247e-01_jprb,8.9387e-02_jprb,&
 & 7.1928e-02_jprb,5.0787e-02_jprb,3.1455e-02_jprb,2.2128e-02_jprb,2.0137e-02_jprb/)  
kao( :, 5, 3, 6) = (/&
 & 1.1874e-01_jprb,1.2658e-01_jprb,1.2440e-01_jprb,1.1705e-01_jprb,1.0739e-01_jprb,9.3857e-02_jprb,&
 & 7.6244e-02_jprb,5.4771e-02_jprb,3.4624e-02_jprb,2.5158e-02_jprb,2.3398e-02_jprb/)  
kao( :, 1, 4, 6) = (/&
 & 1.0010e-01_jprb,9.9685e-02_jprb,9.4787e-02_jprb,8.6882e-02_jprb,7.7198e-02_jprb,6.5934e-02_jprb,&
 & 5.1807e-02_jprb,3.4736e-02_jprb,1.9980e-02_jprb,1.2335e-02_jprb,1.0141e-02_jprb/)  
kao( :, 2, 4, 6) = (/&
 & 1.0170e-01_jprb,1.0312e-01_jprb,9.8622e-02_jprb,9.0905e-02_jprb,8.1426e-02_jprb,6.9900e-02_jprb,&
 & 5.5494e-02_jprb,3.7661e-02_jprb,2.2134e-02_jprb,1.4013e-02_jprb,1.1758e-02_jprb/)  
kao( :, 3, 4, 6) = (/&
 & 1.0335e-01_jprb,1.0651e-01_jprb,1.0245e-01_jprb,9.5068e-02_jprb,8.5570e-02_jprb,7.4056e-02_jprb,&
 & 5.9162e-02_jprb,4.0698e-02_jprb,2.4492e-02_jprb,1.5920e-02_jprb,1.3637e-02_jprb/)  
kao( :, 4, 4, 6) = (/&
 & 1.0499e-01_jprb,1.0979e-01_jprb,1.0642e-01_jprb,9.9223e-02_jprb,8.9977e-02_jprb,7.8273e-02_jprb,&
 & 6.2815e-02_jprb,4.3991e-02_jprb,2.7037e-02_jprb,1.8072e-02_jprb,1.5828e-02_jprb/)  
kao( :, 5, 4, 6) = (/&
 & 1.0648e-01_jprb,1.1320e-01_jprb,1.1032e-01_jprb,1.0355e-01_jprb,9.4621e-02_jprb,8.2442e-02_jprb,&
 & 6.6678e-02_jprb,4.7586e-02_jprb,2.9766e-02_jprb,2.0476e-02_jprb,1.8322e-02_jprb/)  
kao( :, 1, 5, 6) = (/&
 & 8.8646e-02_jprb,8.7933e-02_jprb,8.2832e-02_jprb,7.5476e-02_jprb,6.6640e-02_jprb,5.6566e-02_jprb,&
 & 4.4409e-02_jprb,2.9574e-02_jprb,1.6904e-02_jprb,1.0272e-02_jprb,9.1351e-03_jprb/)  
kao( :, 2, 5, 6) = (/&
 & 9.0277e-02_jprb,9.1081e-02_jprb,8.6318e-02_jprb,7.9229e-02_jprb,7.0495e-02_jprb,6.0192e-02_jprb,&
 & 4.7724e-02_jprb,3.2103e-02_jprb,1.8750e-02_jprb,1.1641e-02_jprb,1.0542e-02_jprb/)  
kao( :, 3, 5, 6) = (/&
 & 9.1984e-02_jprb,9.4263e-02_jprb,8.9928e-02_jprb,8.3093e-02_jprb,7.4368e-02_jprb,6.3999e-02_jprb,&
 & 5.1030e-02_jprb,3.4755e-02_jprb,2.0780e-02_jprb,1.3171e-02_jprb,1.2136e-02_jprb/)  
kao( :, 4, 5, 6) = (/&
 & 9.3576e-02_jprb,9.7447e-02_jprb,9.3654e-02_jprb,8.7006e-02_jprb,7.8424e-02_jprb,6.7877e-02_jprb,&
 & 5.4374e-02_jprb,3.7638e-02_jprb,2.3002e-02_jprb,1.4893e-02_jprb,1.3923e-02_jprb/)  
kao( :, 5, 5, 6) = (/&
 & 9.5080e-02_jprb,1.0065e-01_jprb,9.7383e-02_jprb,9.1136e-02_jprb,8.2601e-02_jprb,7.1701e-02_jprb,&
 & 5.7863e-02_jprb,4.0796e-02_jprb,2.5412e-02_jprb,1.6809e-02_jprb,1.5908e-02_jprb/)  
kao( :, 1, 6, 6) = (/&
 & 7.7960e-02_jprb,7.6934e-02_jprb,7.1843e-02_jprb,6.5156e-02_jprb,5.7207e-02_jprb,4.8156e-02_jprb,&
 & 3.7659e-02_jprb,2.4879e-02_jprb,1.4127e-02_jprb,8.5541e-03_jprb,8.3666e-03_jprb/)  
kao( :, 2, 6, 6) = (/&
 & 7.9609e-02_jprb,7.9866e-02_jprb,7.5063e-02_jprb,6.8592e-02_jprb,6.0623e-02_jprb,5.1416e-02_jprb,&
 & 4.0604e-02_jprb,2.7099e-02_jprb,1.5685e-02_jprb,9.6918e-03_jprb,9.5572e-03_jprb/)  
kao( :, 3, 6, 6) = (/&
 & 8.1302e-02_jprb,8.2836e-02_jprb,7.8445e-02_jprb,7.2127e-02_jprb,6.4136e-02_jprb,5.4857e-02_jprb,&
 & 4.3565e-02_jprb,2.9366e-02_jprb,1.7400e-02_jprb,1.0963e-02_jprb,1.0922e-02_jprb/)  
kao( :, 4, 6, 6) = (/&
 & 8.2802e-02_jprb,8.5864e-02_jprb,8.1904e-02_jprb,7.5770e-02_jprb,6.7852e-02_jprb,5.8330e-02_jprb,&
 & 4.6522e-02_jprb,3.1837e-02_jprb,1.9277e-02_jprb,1.2364e-02_jprb,1.2452e-02_jprb/)  
kao( :, 5, 6, 6) = (/&
 & 8.4221e-02_jprb,8.8823e-02_jprb,8.5384e-02_jprb,7.9630e-02_jprb,7.1590e-02_jprb,6.1823e-02_jprb,&
 & 4.9653e-02_jprb,3.4554e-02_jprb,2.1337e-02_jprb,1.3901e-02_jprb,1.4136e-02_jprb/)  
kao( :, 1, 7, 6) = (/&
 & 6.7828e-02_jprb,6.6421e-02_jprb,6.1520e-02_jprb,5.5497e-02_jprb,4.8477e-02_jprb,4.0523e-02_jprb,&
 & 3.1519e-02_jprb,2.0723e-02_jprb,1.1684e-02_jprb,7.0442e-03_jprb,8.2153e-03_jprb/)  
kao( :, 2, 7, 6) = (/&
 & 6.9386e-02_jprb,6.9084e-02_jprb,6.4466e-02_jprb,5.8621e-02_jprb,5.1513e-02_jprb,4.3404e-02_jprb,&
 & 3.4117e-02_jprb,2.2620e-02_jprb,1.3002e-02_jprb,8.0096e-03_jprb,9.3023e-03_jprb/)  
kao( :, 3, 7, 6) = (/&
 & 7.0902e-02_jprb,7.1781e-02_jprb,6.7571e-02_jprb,6.1798e-02_jprb,5.4668e-02_jprb,4.6485e-02_jprb,&
 & 3.6722e-02_jprb,2.4596e-02_jprb,1.4441e-02_jprb,9.0791e-03_jprb,1.0528e-02_jprb/)  
kao( :, 4, 7, 6) = (/&
 & 7.2282e-02_jprb,7.4474e-02_jprb,7.0674e-02_jprb,6.5102e-02_jprb,5.8020e-02_jprb,4.9583e-02_jprb,&
 & 3.9334e-02_jprb,2.6694e-02_jprb,1.6007e-02_jprb,1.0271e-02_jprb,1.1922e-02_jprb/)  
kao( :, 5, 7, 6) = (/&
 & 7.3586e-02_jprb,7.7141e-02_jprb,7.3787e-02_jprb,6.8567e-02_jprb,6.1369e-02_jprb,5.2671e-02_jprb,&
 & 4.2103e-02_jprb,2.8979e-02_jprb,1.7736e-02_jprb,1.1572e-02_jprb,1.3447e-02_jprb/)  
kao( :, 1, 8, 6) = (/&
 & 5.8712e-02_jprb,5.7043e-02_jprb,5.2438e-02_jprb,4.7021e-02_jprb,4.0853e-02_jprb,3.3895e-02_jprb,&
 & 2.6198e-02_jprb,1.7219e-02_jprb,9.5944e-03_jprb,5.7565e-03_jprb,9.7903e-03_jprb/)  
kao( :, 2, 8, 6) = (/&
 & 6.0111e-02_jprb,5.9403e-02_jprb,5.5109e-02_jprb,4.9792e-02_jprb,4.3500e-02_jprb,3.6406e-02_jprb,&
 & 2.8441e-02_jprb,1.8832e-02_jprb,1.0715e-02_jprb,6.5565e-03_jprb,1.0886e-02_jprb/)  
kao( :, 3, 8, 6) = (/&
 & 6.1464e-02_jprb,6.1765e-02_jprb,5.7839e-02_jprb,5.2591e-02_jprb,4.6276e-02_jprb,3.9078e-02_jprb,&
 & 3.0733e-02_jprb,2.0508e-02_jprb,1.1934e-02_jprb,7.4566e-03_jprb,1.2121e-02_jprb/)  
kao( :, 4, 8, 6) = (/&
 & 6.2712e-02_jprb,6.4146e-02_jprb,6.0527e-02_jprb,5.5457e-02_jprb,4.9226e-02_jprb,4.1797e-02_jprb,&
 & 3.3031e-02_jprb,2.2300e-02_jprb,1.3252e-02_jprb,8.4625e-03_jprb,1.3482e-02_jprb/)  
kao( :, 5, 8, 6) = (/&
 & 6.3914e-02_jprb,6.6490e-02_jprb,6.3234e-02_jprb,5.8457e-02_jprb,5.2124e-02_jprb,4.4504e-02_jprb,&
 & 3.5484e-02_jprb,2.4239e-02_jprb,1.4708e-02_jprb,9.5766e-03_jprb,1.4975e-02_jprb/)  

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


SUBROUTINE part5

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


kao( :, 1, 9, 6) = (/&
 & 5.0689e-02_jprb,4.8919e-02_jprb,4.4694e-02_jprb,3.9834e-02_jprb,3.4426e-02_jprb,2.8389e-02_jprb,&
 & 2.1819e-02_jprb,1.4302e-02_jprb,7.8127e-03_jprb,4.6620e-03_jprb,2.0696e-02_jprb/)  
kao( :, 2, 9, 6) = (/&
 & 5.1946e-02_jprb,5.0973e-02_jprb,4.7056e-02_jprb,4.2253e-02_jprb,3.6737e-02_jprb,3.0544e-02_jprb,&
 & 2.3724e-02_jprb,1.5668e-02_jprb,8.7780e-03_jprb,5.3214e-03_jprb,2.1910e-02_jprb/)  
kao( :, 3, 9, 6) = (/&
 & 5.3143e-02_jprb,5.3077e-02_jprb,4.9431e-02_jprb,4.4665e-02_jprb,3.9122e-02_jprb,3.2816e-02_jprb,&
 & 2.5692e-02_jprb,1.7096e-02_jprb,9.8039e-03_jprb,6.0656e-03_jprb,2.3234e-02_jprb/)  
kao( :, 4, 9, 6) = (/&
 & 5.4267e-02_jprb,5.5157e-02_jprb,5.1739e-02_jprb,4.7167e-02_jprb,4.1644e-02_jprb,3.5136e-02_jprb,&
 & 2.7685e-02_jprb,1.8626e-02_jprb,1.0916e-02_jprb,6.9060e-03_jprb,2.4826e-02_jprb/)  
kao( :, 5, 9, 6) = (/&
 & 5.5411e-02_jprb,5.7220e-02_jprb,5.4074e-02_jprb,4.9699e-02_jprb,4.4127e-02_jprb,3.7477e-02_jprb,&
 & 2.9785e-02_jprb,2.0273e-02_jprb,1.2148e-02_jprb,7.8411e-03_jprb,2.6607e-02_jprb/)  
kao( :, 1,10, 6) = (/&
 & 4.3441e-02_jprb,4.1752e-02_jprb,3.7992e-02_jprb,3.3732e-02_jprb,2.9033e-02_jprb,2.3892e-02_jprb,&
 & 1.8315e-02_jprb,1.1925e-02_jprb,6.3650e-03_jprb,3.7730e-03_jprb,5.8980e-02_jprb/)  
kao( :, 2,10, 6) = (/&
 & 4.4578e-02_jprb,4.3534e-02_jprb,4.0036e-02_jprb,3.5800e-02_jprb,3.1038e-02_jprb,2.5745e-02_jprb,&
 & 1.9928e-02_jprb,1.3095e-02_jprb,7.1901e-03_jprb,4.3268e-03_jprb,6.2127e-02_jprb/)  
kao( :, 3,10, 6) = (/&
 & 4.5637e-02_jprb,4.5360e-02_jprb,4.2074e-02_jprb,3.7890e-02_jprb,3.3109e-02_jprb,2.7662e-02_jprb,&
 & 2.1605e-02_jprb,1.4318e-02_jprb,8.0717e-03_jprb,4.9441e-03_jprb,6.4930e-02_jprb/)  
kao( :, 4,10, 6) = (/&
 & 4.6665e-02_jprb,4.7201e-02_jprb,4.4073e-02_jprb,4.0041e-02_jprb,3.5227e-02_jprb,2.9634e-02_jprb,&
 & 2.3310e-02_jprb,1.5630e-02_jprb,9.0074e-03_jprb,5.6431e-03_jprb,6.7490e-02_jprb/)  
kao( :, 5,10, 6) = (/&
 & 4.7723e-02_jprb,4.9037e-02_jprb,4.6142e-02_jprb,4.2228e-02_jprb,3.7348e-02_jprb,3.1608e-02_jprb,&
 & 2.5075e-02_jprb,1.7036e-02_jprb,1.0045e-02_jprb,6.4268e-03_jprb,6.9977e-02_jprb/)  
kao( :, 1,11, 6) = (/&
 & 3.7516e-02_jprb,3.6158e-02_jprb,3.2933e-02_jprb,2.9252e-02_jprb,2.5204e-02_jprb,2.0803e-02_jprb,&
 & 1.5990e-02_jprb,1.0375e-02_jprb,5.4827e-03_jprb,3.2361e-03_jprb,8.1016e-02_jprb/)  
kao( :, 2,11, 6) = (/&
 & 3.8506e-02_jprb,3.7721e-02_jprb,3.4706e-02_jprb,3.1031e-02_jprb,2.6946e-02_jprb,2.2411e-02_jprb,&
 & 1.7386e-02_jprb,1.1409e-02_jprb,6.2003e-03_jprb,3.7210e-03_jprb,8.4685e-02_jprb/)  
kao( :, 3,11, 6) = (/&
 & 3.9439e-02_jprb,3.9310e-02_jprb,3.6436e-02_jprb,3.2830e-02_jprb,2.8736e-02_jprb,2.4071e-02_jprb,&
 & 1.8831e-02_jprb,1.2487e-02_jprb,6.9722e-03_jprb,4.2623e-03_jprb,8.7980e-02_jprb/)  
kao( :, 4,11, 6) = (/&
 & 4.0392e-02_jprb,4.0944e-02_jprb,3.8217e-02_jprb,3.4707e-02_jprb,3.0543e-02_jprb,2.5731e-02_jprb,&
 & 2.0303e-02_jprb,1.3646e-02_jprb,7.7970e-03_jprb,4.8703e-03_jprb,9.0981e-02_jprb/)  
kao( :, 5,11, 6) = (/&
 & 4.1332e-02_jprb,4.2552e-02_jprb,4.0059e-02_jprb,3.6603e-02_jprb,3.2383e-02_jprb,2.7450e-02_jprb,&
 & 2.1833e-02_jprb,1.4887e-02_jprb,8.7084e-03_jprb,5.5527e-03_jprb,9.3973e-02_jprb/)  
kao( :, 1,12, 6) = (/&
 & 3.2190e-02_jprb,3.1071e-02_jprb,2.8321e-02_jprb,2.5152e-02_jprb,2.1728e-02_jprb,1.7981e-02_jprb,&
 & 1.3822e-02_jprb,8.9602e-03_jprb,4.7106e-03_jprb,2.7564e-03_jprb,8.5402e-02_jprb/)  
kao( :, 2,12, 6) = (/&
 & 3.3033e-02_jprb,3.2405e-02_jprb,2.9806e-02_jprb,2.6661e-02_jprb,2.3211e-02_jprb,1.9361e-02_jprb,&
 & 1.5025e-02_jprb,9.8641e-03_jprb,5.3297e-03_jprb,3.1770e-03_jprb,8.8737e-02_jprb/)  
kao( :, 3,12, 6) = (/&
 & 3.3864e-02_jprb,3.3793e-02_jprb,3.1297e-02_jprb,2.8211e-02_jprb,2.4733e-02_jprb,2.0771e-02_jprb,&
 & 1.6265e-02_jprb,1.0821e-02_jprb,6.0022e-03_jprb,3.6467e-03_jprb,9.1670e-02_jprb/)  
kao( :, 4,12, 6) = (/&
 & 3.4696e-02_jprb,3.5203e-02_jprb,3.2853e-02_jprb,2.9817e-02_jprb,2.6296e-02_jprb,2.2203e-02_jprb,&
 & 1.7545e-02_jprb,1.1834e-02_jprb,6.7302e-03_jprb,4.1679e-03_jprb,9.4574e-02_jprb/)  
kao( :, 5,12, 6) = (/&
 & 3.5522e-02_jprb,3.6626e-02_jprb,3.4423e-02_jprb,3.1438e-02_jprb,2.7875e-02_jprb,2.3697e-02_jprb,&
 & 1.8905e-02_jprb,1.2927e-02_jprb,7.5191e-03_jprb,4.7590e-03_jprb,9.7614e-02_jprb/)  
kao( :, 1,13, 6) = (/&
 & 2.7210e-02_jprb,2.6304e-02_jprb,2.3996e-02_jprb,2.1359e-02_jprb,1.8491e-02_jprb,1.5314e-02_jprb,&
 & 1.1755e-02_jprb,7.6170e-03_jprb,4.0095e-03_jprb,2.3275e-03_jprb,7.1211e-02_jprb/)  
kao( :, 2,13, 6) = (/&
 & 2.7941e-02_jprb,2.7441e-02_jprb,2.5246e-02_jprb,2.2622e-02_jprb,1.9729e-02_jprb,1.6472e-02_jprb,&
 & 1.2765e-02_jprb,8.4034e-03_jprb,4.5447e-03_jprb,2.6861e-03_jprb,7.3769e-02_jprb/)  
kao( :, 3,13, 6) = (/&
 & 2.8664e-02_jprb,2.8630e-02_jprb,2.6520e-02_jprb,2.3935e-02_jprb,2.1025e-02_jprb,1.7662e-02_jprb,&
 & 1.3821e-02_jprb,9.2359e-03_jprb,5.1273e-03_jprb,3.0871e-03_jprb,7.6136e-02_jprb/)  
kao( :, 4,13, 6) = (/&
 & 2.9387e-02_jprb,2.9844e-02_jprb,2.7832e-02_jprb,2.5287e-02_jprb,2.2341e-02_jprb,1.8888e-02_jprb,&
 & 1.4940e-02_jprb,1.0117e-02_jprb,5.7529e-03_jprb,3.5334e-03_jprb,7.8673e-02_jprb/)  
kao( :, 5,13, 6) = (/&
 & 3.0121e-02_jprb,3.1064e-02_jprb,2.9140e-02_jprb,2.6651e-02_jprb,2.3680e-02_jprb,2.0177e-02_jprb,&
 & 1.6134e-02_jprb,1.1077e-02_jprb,6.4283e-03_jprb,4.0402e-03_jprb,8.1505e-02_jprb/)  
kao( :, 1, 1, 7) = (/&
 & 2.6926e-01_jprb,2.5612e-01_jprb,2.3950e-01_jprb,2.1903e-01_jprb,1.9378e-01_jprb,1.6501e-01_jprb,&
 & 1.2973e-01_jprb,8.7439e-02_jprb,5.3950e-02_jprb,4.2811e-02_jprb,4.3233e-02_jprb/)  
kao( :, 2, 1, 7) = (/&
 & 2.6861e-01_jprb,2.5930e-01_jprb,2.4513e-01_jprb,2.2568e-01_jprb,2.0133e-01_jprb,1.7294e-01_jprb,&
 & 1.3711e-01_jprb,9.4464e-02_jprb,6.0595e-02_jprb,5.0710e-02_jprb,5.1677e-02_jprb/)  
kao( :, 3, 1, 7) = (/&
 & 2.6820e-01_jprb,2.6238e-01_jprb,2.5102e-01_jprb,2.3240e-01_jprb,2.0913e-01_jprb,1.8091e-01_jprb,&
 & 1.4446e-01_jprb,1.0226e-01_jprb,6.8084e-02_jprb,5.9495e-02_jprb,6.1037e-02_jprb/)  
kao( :, 4, 1, 7) = (/&
 & 2.6771e-01_jprb,2.6572e-01_jprb,2.5658e-01_jprb,2.3935e-01_jprb,2.1685e-01_jprb,1.8839e-01_jprb,&
 & 1.5222e-01_jprb,1.1069e-01_jprb,7.6279e-02_jprb,6.9108e-02_jprb,7.1213e-02_jprb/)  
kao( :, 5, 1, 7) = (/&
 & 2.6714e-01_jprb,2.6936e-01_jprb,2.6194e-01_jprb,2.4642e-01_jprb,2.2450e-01_jprb,1.9571e-01_jprb,&
 & 1.6083e-01_jprb,1.1918e-01_jprb,8.5421e-02_jprb,7.9682e-02_jprb,8.2280e-02_jprb/)  
kao( :, 1, 2, 7) = (/&
 & 2.5685e-01_jprb,2.4492e-01_jprb,2.2865e-01_jprb,2.0884e-01_jprb,1.8444e-01_jprb,1.5601e-01_jprb,&
 & 1.2319e-01_jprb,8.1747e-02_jprb,4.8230e-02_jprb,3.5409e-02_jprb,3.4615e-02_jprb/)  
kao( :, 2, 2, 7) = (/&
 & 2.5657e-01_jprb,2.4834e-01_jprb,2.3445e-01_jprb,2.1551e-01_jprb,1.9182e-01_jprb,1.6377e-01_jprb,&
 & 1.3042e-01_jprb,8.8197e-02_jprb,5.3891e-02_jprb,4.1822e-02_jprb,4.1515e-02_jprb/)  
kao( :, 3, 2, 7) = (/&
 & 2.5627e-01_jprb,2.5163e-01_jprb,2.4011e-01_jprb,2.2230e-01_jprb,1.9937e-01_jprb,1.7150e-01_jprb,&
 & 1.3758e-01_jprb,9.5254e-02_jprb,6.0018e-02_jprb,4.9025e-02_jprb,4.9189e-02_jprb/)  
kao( :, 4, 2, 7) = (/&
 & 2.5591e-01_jprb,2.5517e-01_jprb,2.4558e-01_jprb,2.2928e-01_jprb,2.0702e-01_jprb,1.7899e-01_jprb,&
 & 1.4524e-01_jprb,1.0258e-01_jprb,6.6782e-02_jprb,5.7123e-02_jprb,5.7631e-02_jprb/)  
kao( :, 5, 2, 7) = (/&
 & 2.5562e-01_jprb,2.5902e-01_jprb,2.5095e-01_jprb,2.3638e-01_jprb,2.1422e-01_jprb,1.8662e-01_jprb,&
 & 1.5329e-01_jprb,1.0996e-01_jprb,7.4405e-02_jprb,6.6142e-02_jprb,6.6949e-02_jprb/)  
kao( :, 1, 3, 7) = (/&
 & 2.4108e-01_jprb,2.2965e-01_jprb,2.1361e-01_jprb,1.9446e-01_jprb,1.7133e-01_jprb,1.4401e-01_jprb,&
 & 1.1345e-01_jprb,7.5185e-02_jprb,4.2160e-02_jprb,2.8583e-02_jprb,2.6584e-02_jprb/)  
kao( :, 2, 3, 7) = (/&
 & 2.4113e-01_jprb,2.3314e-01_jprb,2.1942e-01_jprb,2.0119e-01_jprb,1.7846e-01_jprb,1.5146e-01_jprb,&
 & 1.2063e-01_jprb,8.1173e-02_jprb,4.7044e-02_jprb,3.3533e-02_jprb,3.2019e-02_jprb/)  
kao( :, 3, 3, 7) = (/&
 & 2.4094e-01_jprb,2.3663e-01_jprb,2.2501e-01_jprb,2.0773e-01_jprb,1.8580e-01_jprb,1.5907e-01_jprb,&
 & 1.2798e-01_jprb,8.7501e-02_jprb,5.2313e-02_jprb,3.9244e-02_jprb,3.8141e-02_jprb/)  
kao( :, 4, 3, 7) = (/&
 & 2.4074e-01_jprb,2.4043e-01_jprb,2.3041e-01_jprb,2.1449e-01_jprb,1.9317e-01_jprb,1.6647e-01_jprb,&
 & 1.3556e-01_jprb,9.3949e-02_jprb,5.7980e-02_jprb,4.5777e-02_jprb,4.5020e-02_jprb/)  
kao( :, 5, 3, 7) = (/&
 & 2.4071e-01_jprb,2.4430e-01_jprb,2.3591e-01_jprb,2.2137e-01_jprb,2.0017e-01_jprb,1.7425e-01_jprb,&
 & 1.4332e-01_jprb,1.0047e-01_jprb,6.4245e-02_jprb,5.3237e-02_jprb,5.2730e-02_jprb/)  
kao( :, 1, 4, 7) = (/&
 & 2.2311e-01_jprb,2.1202e-01_jprb,1.9660e-01_jprb,1.7804e-01_jprb,1.5619e-01_jprb,1.3066e-01_jprb,&
 & 1.0239e-01_jprb,6.7996e-02_jprb,3.6908e-02_jprb,2.3235e-02_jprb,2.0397e-02_jprb/)  
kao( :, 2, 4, 7) = (/&
 & 2.2321e-01_jprb,2.1552e-01_jprb,2.0209e-01_jprb,1.8449e-01_jprb,1.6284e-01_jprb,1.3774e-01_jprb,&
 & 1.0930e-01_jprb,7.3775e-02_jprb,4.1078e-02_jprb,2.7004e-02_jprb,2.4614e-02_jprb/)  
kao( :, 3, 4, 7) = (/&
 & 2.2314e-01_jprb,2.1901e-01_jprb,2.0753e-01_jprb,1.9073e-01_jprb,1.6981e-01_jprb,1.4494e-01_jprb,&
 & 1.1634e-01_jprb,7.9807e-02_jprb,4.5483e-02_jprb,3.1405e-02_jprb,2.9481e-02_jprb/)  
kao( :, 4, 4, 7) = (/&
 & 2.2327e-01_jprb,2.2287e-01_jprb,2.1284e-01_jprb,1.9716e-01_jprb,1.7693e-01_jprb,1.5226e-01_jprb,&
 & 1.2381e-01_jprb,8.5751e-02_jprb,5.0279e-02_jprb,3.6528e-02_jprb,3.5030e-02_jprb/)  
kao( :, 5, 4, 7) = (/&
 & 2.2365e-01_jprb,2.2673e-01_jprb,2.1820e-01_jprb,2.0372e-01_jprb,1.8385e-01_jprb,1.5984e-01_jprb,&
 & 1.3133e-01_jprb,9.1593e-02_jprb,5.5615e-02_jprb,4.2459e-02_jprb,4.1306e-02_jprb/)  
kao( :, 1, 5, 7) = (/&
 & 2.0367e-01_jprb,1.9330e-01_jprb,1.7867e-01_jprb,1.6084e-01_jprb,1.4027e-01_jprb,1.1693e-01_jprb,&
 & 9.0945e-02_jprb,6.0466e-02_jprb,3.2455e-02_jprb,1.9165e-02_jprb,1.7920e-02_jprb/)  
kao( :, 2, 5, 7) = (/&
 & 2.0387e-01_jprb,1.9668e-01_jprb,1.8380e-01_jprb,1.6682e-01_jprb,1.4653e-01_jprb,1.2346e-01_jprb,&
 & 9.7443e-02_jprb,6.5962e-02_jprb,3.6138e-02_jprb,2.2169e-02_jprb,2.0934e-02_jprb/)  
kao( :, 3, 5, 7) = (/&
 & 2.0408e-01_jprb,2.0015e-01_jprb,1.8885e-01_jprb,1.7264e-01_jprb,1.5303e-01_jprb,1.3023e-01_jprb,&
 & 1.0413e-01_jprb,7.1676e-02_jprb,3.9916e-02_jprb,2.5581e-02_jprb,2.4393e-02_jprb/)  
kao( :, 4, 5, 7) = (/&
 & 2.0467e-01_jprb,2.0395e-01_jprb,1.9389e-01_jprb,1.7862e-01_jprb,1.5966e-01_jprb,1.3725e-01_jprb,&
 & 1.1106e-01_jprb,7.7287e-02_jprb,4.3976e-02_jprb,2.9567e-02_jprb,2.8440e-02_jprb/)  
kao( :, 5, 5, 7) = (/&
 & 2.0538e-01_jprb,2.0784e-01_jprb,1.9895e-01_jprb,1.8474e-01_jprb,1.6635e-01_jprb,1.4459e-01_jprb,&
 & 1.1807e-01_jprb,8.2795e-02_jprb,4.8485e-02_jprb,3.4195e-02_jprb,3.3174e-02_jprb/)  
kao( :, 1, 6, 7) = (/&
 & 1.8377e-01_jprb,1.7398e-01_jprb,1.6006e-01_jprb,1.4318e-01_jprb,1.2397e-01_jprb,1.0298e-01_jprb,&
 & 7.9521e-02_jprb,5.2397e-02_jprb,2.8050e-02_jprb,1.5934e-02_jprb,1.6791e-02_jprb/)  
kao( :, 2, 6, 7) = (/&
 & 1.8406e-01_jprb,1.7717e-01_jprb,1.6474e-01_jprb,1.4853e-01_jprb,1.2984e-01_jprb,1.0898e-01_jprb,&
 & 8.5328e-02_jprb,5.7490e-02_jprb,3.1447e-02_jprb,1.8349e-02_jprb,1.9516e-02_jprb/)  
kao( :, 3, 6, 7) = (/&
 & 1.8458e-01_jprb,1.8054e-01_jprb,1.6936e-01_jprb,1.5392e-01_jprb,1.3584e-01_jprb,1.1517e-01_jprb,&
 & 9.1409e-02_jprb,6.2836e-02_jprb,3.4889e-02_jprb,2.1106e-02_jprb,2.2611e-02_jprb/)  
kao( :, 4, 6, 7) = (/&
 & 1.8542e-01_jprb,1.8421e-01_jprb,1.7403e-01_jprb,1.5942e-01_jprb,1.4196e-01_jprb,1.2162e-01_jprb,&
 & 9.7928e-02_jprb,6.8139e-02_jprb,3.8483e-02_jprb,2.4244e-02_jprb,2.6124e-02_jprb/)  
kao( :, 5, 6, 7) = (/&
 & 1.8648e-01_jprb,1.8801e-01_jprb,1.7890e-01_jprb,1.6506e-01_jprb,1.4823e-01_jprb,1.2840e-01_jprb,&
 & 1.0438e-01_jprb,7.3304e-02_jprb,4.2378e-02_jprb,2.7839e-02_jprb,3.0053e-02_jprb/)  
kao( :, 1, 7, 7) = (/&
 & 1.6272e-01_jprb,1.5372e-01_jprb,1.4080e-01_jprb,1.2519e-01_jprb,1.0771e-01_jprb,8.8984e-02_jprb,&
 & 6.8276e-02_jprb,4.4541e-02_jprb,2.3807e-02_jprb,1.3453e-02_jprb,1.6655e-02_jprb/)  
kao( :, 2, 7, 7) = (/&
 & 1.6325e-01_jprb,1.5679e-01_jprb,1.4498e-01_jprb,1.2986e-01_jprb,1.1297e-01_jprb,9.4402e-02_jprb,&
 & 7.3383e-02_jprb,4.9046e-02_jprb,2.6845e-02_jprb,1.5405e-02_jprb,1.9132e-02_jprb/)  
kao( :, 3, 7, 7) = (/&
 & 1.6400e-01_jprb,1.6007e-01_jprb,1.4916e-01_jprb,1.3473e-01_jprb,1.1836e-01_jprb,9.9949e-02_jprb,&
 & 7.8806e-02_jprb,5.3833e-02_jprb,2.9954e-02_jprb,1.7645e-02_jprb,2.1895e-02_jprb/)  
kao( :, 4, 7, 7) = (/&
 & 1.6505e-01_jprb,1.6353e-01_jprb,1.5347e-01_jprb,1.3982e-01_jprb,1.2392e-01_jprb,1.0565e-01_jprb,&
 & 8.4634e-02_jprb,5.8597e-02_jprb,3.3207e-02_jprb,2.0171e-02_jprb,2.4986e-02_jprb/)  
kao( :, 5, 7, 7) = (/&
 & 1.6641e-01_jprb,1.6726e-01_jprb,1.5808e-01_jprb,1.4506e-01_jprb,1.2973e-01_jprb,1.1182e-01_jprb,&
 & 9.0461e-02_jprb,6.3334e-02_jprb,3.6689e-02_jprb,2.3031e-02_jprb,2.8476e-02_jprb/)  
kao( :, 1, 8, 7) = (/&
 & 1.4230e-01_jprb,1.3413e-01_jprb,1.2233e-01_jprb,1.0813e-01_jprb,9.2496e-02_jprb,7.5904e-02_jprb,&
 & 5.7906e-02_jprb,3.7394e-02_jprb,2.0019e-02_jprb,1.1310e-02_jprb,1.9019e-02_jprb/)  
kao( :, 2, 8, 7) = (/&
 & 1.4305e-01_jprb,1.3708e-01_jprb,1.2596e-01_jprb,1.1218e-01_jprb,9.7109e-02_jprb,8.0704e-02_jprb,&
 & 6.2330e-02_jprb,4.1218e-02_jprb,2.2623e-02_jprb,1.3029e-02_jprb,2.1546e-02_jprb/)  
kao( :, 3, 8, 7) = (/&
 & 1.4394e-01_jprb,1.4013e-01_jprb,1.2970e-01_jprb,1.1658e-01_jprb,1.0194e-01_jprb,8.5591e-02_jprb,&
 & 6.7043e-02_jprb,4.5347e-02_jprb,2.5359e-02_jprb,1.4903e-02_jprb,2.4327e-02_jprb/)  
kao( :, 4, 8, 7) = (/&
 & 1.4525e-01_jprb,1.4339e-01_jprb,1.3373e-01_jprb,1.2126e-01_jprb,1.0690e-01_jprb,9.0683e-02_jprb,&
 & 7.2129e-02_jprb,4.9569e-02_jprb,2.8222e-02_jprb,1.6964e-02_jprb,2.7427e-02_jprb/)  
kao( :, 5, 8, 7) = (/&
 & 1.4678e-01_jprb,1.4702e-01_jprb,1.3814e-01_jprb,1.2616e-01_jprb,1.1217e-01_jprb,9.6136e-02_jprb,&
 & 7.7253e-02_jprb,5.3800e-02_jprb,3.1285e-02_jprb,1.9274e-02_jprb,3.0890e-02_jprb/)  
kao( :, 1, 9, 7) = (/&
 & 1.2368e-01_jprb,1.1615e-01_jprb,1.0547e-01_jprb,9.2730e-02_jprb,7.8890e-02_jprb,6.4288e-02_jprb,&
 & 4.8706e-02_jprb,3.1194e-02_jprb,1.6735e-02_jprb,9.3621e-03_jprb,3.9474e-02_jprb/)  
kao( :, 2, 9, 7) = (/&
 & 1.2453e-01_jprb,1.1886e-01_jprb,1.0862e-01_jprb,9.6299e-02_jprb,8.2892e-02_jprb,6.8444e-02_jprb,&
 & 5.2534e-02_jprb,3.4360e-02_jprb,1.8949e-02_jprb,1.0875e-02_jprb,4.3185e-02_jprb/)  
kao( :, 3, 9, 7) = (/&
 & 1.2562e-01_jprb,1.2177e-01_jprb,1.1199e-01_jprb,1.0025e-01_jprb,8.7157e-02_jprb,7.2734e-02_jprb,&
 & 5.6567e-02_jprb,3.7837e-02_jprb,2.1307e-02_jprb,1.2524e-02_jprb,4.7262e-02_jprb/)  
kao( :, 4, 9, 7) = (/&
 & 1.2711e-01_jprb,1.2497e-01_jprb,1.1585e-01_jprb,1.0453e-01_jprb,9.1592e-02_jprb,7.7237e-02_jprb,&
 & 6.0927e-02_jprb,4.1474e-02_jprb,2.3783e-02_jprb,1.4321e-02_jprb,5.1601e-02_jprb/)  
kao( :, 5, 9, 7) = (/&
 & 1.2877e-01_jprb,1.2842e-01_jprb,1.2005e-01_jprb,1.0911e-01_jprb,9.6384e-02_jprb,8.2052e-02_jprb,&
 & 6.5390e-02_jprb,4.5200e-02_jprb,2.6423e-02_jprb,1.6264e-02_jprb,5.6231e-02_jprb/)  
kao( :, 1,10, 7) = (/&
 & 1.0692e-01_jprb,1.0005e-01_jprb,9.0502e-02_jprb,7.9216e-02_jprb,6.7057e-02_jprb,5.4323e-02_jprb,&
 & 4.0890e-02_jprb,2.6119e-02_jprb,1.4019e-02_jprb,7.7525e-03_jprb,1.2082e-01_jprb/)  
kao( :, 2,10, 7) = (/&
 & 1.0785e-01_jprb,1.0257e-01_jprb,9.3251e-02_jprb,8.2316e-02_jprb,7.0515e-02_jprb,5.7848e-02_jprb,&
 & 4.4197e-02_jprb,2.8769e-02_jprb,1.5892e-02_jprb,9.0528e-03_jprb,1.2557e-01_jprb/)  
kao( :, 3,10, 7) = (/&
 & 1.0912e-01_jprb,1.0534e-01_jprb,9.6345e-02_jprb,8.5888e-02_jprb,7.4218e-02_jprb,6.1590e-02_jprb,&
 & 4.7639e-02_jprb,3.1645e-02_jprb,1.7926e-02_jprb,1.0497e-02_jprb,1.3124e-01_jprb/)  
kao( :, 4,10, 7) = (/&
 & 1.1068e-01_jprb,1.0836e-01_jprb,9.9964e-02_jprb,8.9810e-02_jprb,7.8244e-02_jprb,6.5593e-02_jprb,&
 & 5.1337e-02_jprb,3.4711e-02_jprb,2.0071e-02_jprb,1.2083e-02_jprb,1.3784e-01_jprb/)  
kao( :, 5,10, 7) = (/&
 & 1.1237e-01_jprb,1.1161e-01_jprb,1.0388e-01_jprb,9.3947e-02_jprb,8.2580e-02_jprb,6.9883e-02_jprb,&
 & 5.5203e-02_jprb,3.7928e-02_jprb,2.2348e-02_jprb,1.3792e-02_jprb,1.4518e-01_jprb/)  
kao( :, 1,11, 7) = (/&
 & 9.2754e-02_jprb,8.7072e-02_jprb,7.8639e-02_jprb,6.8755e-02_jprb,5.8275e-02_jprb,4.7245e-02_jprb,&
 & 3.5602e-02_jprb,2.2866e-02_jprb,1.2334e-02_jprb,6.8505e-03_jprb,1.6609e-01_jprb/)  
kao( :, 2,11, 7) = (/&
 & 9.3939e-02_jprb,8.9571e-02_jprb,8.1238e-02_jprb,7.1711e-02_jprb,6.1381e-02_jprb,5.0306e-02_jprb,&
 & 3.8442e-02_jprb,2.5156e-02_jprb,1.3991e-02_jprb,8.0122e-03_jprb,1.7138e-01_jprb/)  
kao( :, 3,11, 7) = (/&
 & 9.5412e-02_jprb,9.2282e-02_jprb,8.4324e-02_jprb,7.5102e-02_jprb,6.4785e-02_jprb,5.3640e-02_jprb,&
 & 4.1470e-02_jprb,2.7635e-02_jprb,1.5787e-02_jprb,9.3174e-03_jprb,1.7778e-01_jprb/)  
kao( :, 4,11, 7) = (/&
 & 9.6996e-02_jprb,9.5142e-02_jprb,8.7745e-02_jprb,7.8708e-02_jprb,6.8483e-02_jprb,5.7282e-02_jprb,&
 & 4.4714e-02_jprb,3.0277e-02_jprb,1.7707e-02_jprb,1.0749e-02_jprb,1.8499e-01_jprb/)  
kao( :, 5,11, 7) = (/&
 & 9.8658e-02_jprb,9.8284e-02_jprb,9.1388e-02_jprb,8.2534e-02_jprb,7.2404e-02_jprb,6.1041e-02_jprb,&
 & 4.8110e-02_jprb,3.3083e-02_jprb,1.9725e-02_jprb,1.2309e-02_jprb,1.9294e-01_jprb/)  
kao( :, 1,12, 7) = (/&
 & 8.0002e-02_jprb,7.5395e-02_jprb,6.7953e-02_jprb,5.9467e-02_jprb,5.0458e-02_jprb,4.0919e-02_jprb,&
 & 3.0920e-02_jprb,1.9925e-02_jprb,1.0727e-02_jprb,5.9901e-03_jprb,1.7505e-01_jprb/)  
kao( :, 2,12, 7) = (/&
 & 8.1332e-02_jprb,7.7813e-02_jprb,7.0567e-02_jprb,6.2307e-02_jprb,5.3303e-02_jprb,4.3618e-02_jprb,&
 & 3.3391e-02_jprb,2.1911e-02_jprb,1.2184e-02_jprb,7.0189e-03_jprb,1.8048e-01_jprb/)  
kao( :, 3,12, 7) = (/&
 & 8.2791e-02_jprb,8.0324e-02_jprb,7.3485e-02_jprb,6.5420e-02_jprb,5.6352e-02_jprb,4.6610e-02_jprb,&
 & 3.6047e-02_jprb,2.4056e-02_jprb,1.3765e-02_jprb,8.1809e-03_jprb,1.8704e-01_jprb/)  
kao( :, 4,12, 7) = (/&
 & 8.4300e-02_jprb,8.3063e-02_jprb,7.6637e-02_jprb,6.8671e-02_jprb,5.9646e-02_jprb,4.9774e-02_jprb,&
 & 3.8886e-02_jprb,2.6351e-02_jprb,1.5463e-02_jprb,9.4646e-03_jprb,1.9416e-01_jprb/)  
kao( :, 5,12, 7) = (/&
 & 8.5799e-02_jprb,8.5928e-02_jprb,7.9923e-02_jprb,7.2138e-02_jprb,6.3097e-02_jprb,5.3071e-02_jprb,&
 & 4.1851e-02_jprb,2.8800e-02_jprb,1.7260e-02_jprb,1.0869e-02_jprb,2.0180e-01_jprb/)  
kao( :, 1,13, 7) = (/&
 & 6.7746e-02_jprb,6.4117e-02_jprb,5.7794e-02_jprb,5.0687e-02_jprb,4.3091e-02_jprb,3.5063e-02_jprb,&
 & 2.6600e-02_jprb,1.7143e-02_jprb,9.2085e-03_jprb,5.1738e-03_jprb,1.4684e-01_jprb/)  
kao( :, 2,13, 7) = (/&
 & 6.9040e-02_jprb,6.6326e-02_jprb,6.0272e-02_jprb,5.3267e-02_jprb,4.5640e-02_jprb,3.7446e-02_jprb,&
 & 2.8771e-02_jprb,1.8875e-02_jprb,1.0472e-02_jprb,6.0786e-03_jprb,1.5190e-01_jprb/)  
kao( :, 3,13, 7) = (/&
 & 7.0402e-02_jprb,6.8674e-02_jprb,6.2930e-02_jprb,5.6044e-02_jprb,4.8322e-02_jprb,4.0046e-02_jprb,&
 & 3.1093e-02_jprb,2.0746e-02_jprb,1.1854e-02_jprb,7.0992e-03_jprb,1.5783e-01_jprb/)  
kao( :, 4,13, 7) = (/&
 & 7.1727e-02_jprb,7.1116e-02_jprb,6.5698e-02_jprb,5.8955e-02_jprb,5.1188e-02_jprb,4.2780e-02_jprb,&
 & 3.3535e-02_jprb,2.2751e-02_jprb,1.3343e-02_jprb,8.2333e-03_jprb,1.6414e-01_jprb/)  
kao( :, 5,13, 7) = (/&
 & 7.3153e-02_jprb,7.3694e-02_jprb,6.8621e-02_jprb,6.1933e-02_jprb,5.4168e-02_jprb,4.5648e-02_jprb,&
 & 3.6089e-02_jprb,2.4874e-02_jprb,1.4932e-02_jprb,9.4816e-03_jprb,1.7071e-01_jprb/)  
kao( :, 1, 1, 8) = (/&
 & 4.9299e-01_jprb,4.5097e-01_jprb,4.1423e-01_jprb,3.7425e-01_jprb,3.3288e-01_jprb,2.8439e-01_jprb,&
 & 2.3129e-01_jprb,1.6724e-01_jprb,1.2209e-01_jprb,1.1839e-01_jprb,1.2231e-01_jprb/)  
kao( :, 2, 1, 8) = (/&
 & 4.9158e-01_jprb,4.5413e-01_jprb,4.2130e-01_jprb,3.8574e-01_jprb,3.4556e-01_jprb,2.9862e-01_jprb,&
 & 2.4672e-01_jprb,1.8285e-01_jprb,1.4316e-01_jprb,1.4173e-01_jprb,1.4653e-01_jprb/)  
kao( :, 3, 1, 8) = (/&
 & 4.8921e-01_jprb,4.5835e-01_jprb,4.2895e-01_jprb,3.9755e-01_jprb,3.5824e-01_jprb,3.1313e-01_jprb,&
 & 2.6208e-01_jprb,1.9974e-01_jprb,1.6634e-01_jprb,1.6696e-01_jprb,1.7273e-01_jprb/)  
kao( :, 4, 1, 8) = (/&
 & 4.8664e-01_jprb,4.6279e-01_jprb,4.3774e-01_jprb,4.0881e-01_jprb,3.7103e-01_jprb,3.2868e-01_jprb,&
 & 2.7711e-01_jprb,2.1740e-01_jprb,1.9172e-01_jprb,1.9403e-01_jprb,2.0091e-01_jprb/)  
kao( :, 5, 1, 8) = (/&
 & 4.8428e-01_jprb,4.6664e-01_jprb,4.4704e-01_jprb,4.1926e-01_jprb,3.8405e-01_jprb,3.4407e-01_jprb,&
 & 2.9186e-01_jprb,2.3664e-01_jprb,2.1906e-01_jprb,2.2276e-01_jprb,2.3078e-01_jprb/)  
kao( :, 1, 2, 8) = (/&
 & 5.0098e-01_jprb,4.5838e-01_jprb,4.1902e-01_jprb,3.7538e-01_jprb,3.3034e-01_jprb,2.7973e-01_jprb,&
 & 2.2195e-01_jprb,1.5668e-01_jprb,1.0587e-01_jprb,9.8490e-02_jprb,1.0033e-01_jprb/)  
kao( :, 2, 2, 8) = (/&
 & 4.9983e-01_jprb,4.6235e-01_jprb,4.2661e-01_jprb,3.8655e-01_jprb,3.4282e-01_jprb,2.9301e-01_jprb,&
 & 2.3610e-01_jprb,1.7056e-01_jprb,1.2318e-01_jprb,1.1876e-01_jprb,1.2114e-01_jprb/)  

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


SUBROUTINE part6

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


kao( :, 3, 2, 8) = (/&
 & 4.9812e-01_jprb,4.6732e-01_jprb,4.3492e-01_jprb,3.9791e-01_jprb,3.5518e-01_jprb,3.0663e-01_jprb,&
 & 2.5073e-01_jprb,1.8486e-01_jprb,1.4281e-01_jprb,1.4075e-01_jprb,1.4376e-01_jprb/)  
kao( :, 4, 2, 8) = (/&
 & 4.9623e-01_jprb,4.7200e-01_jprb,4.4361e-01_jprb,4.0869e-01_jprb,3.6716e-01_jprb,3.2094e-01_jprb,&
 & 2.6503e-01_jprb,2.0038e-01_jprb,1.6450e-01_jprb,1.6447e-01_jprb,1.6812e-01_jprb/)  
kao( :, 5, 2, 8) = (/&
 & 4.9443e-01_jprb,4.7565e-01_jprb,4.5245e-01_jprb,4.1884e-01_jprb,3.7991e-01_jprb,3.3502e-01_jprb,&
 & 2.7893e-01_jprb,2.1726e-01_jprb,1.8823e-01_jprb,1.8992e-01_jprb,1.9426e-01_jprb/)  
kao( :, 1, 3, 8) = (/&
 & 5.0316e-01_jprb,4.6054e-01_jprb,4.1948e-01_jprb,3.7358e-01_jprb,3.2537e-01_jprb,2.7199e-01_jprb,&
 & 2.1201e-01_jprb,1.4405e-01_jprb,9.1061e-02_jprb,7.8216e-02_jprb,7.8431e-02_jprb/)  
kao( :, 2, 3, 8) = (/&
 & 5.0250e-01_jprb,4.6508e-01_jprb,4.2753e-01_jprb,3.8448e-01_jprb,3.3743e-01_jprb,2.8477e-01_jprb,&
 & 2.2471e-01_jprb,1.5690e-01_jprb,1.0463e-01_jprb,9.5297e-02_jprb,9.5775e-02_jprb/)  
kao( :, 3, 3, 8) = (/&
 & 5.0156e-01_jprb,4.7034e-01_jprb,4.3587e-01_jprb,3.9592e-01_jprb,3.4938e-01_jprb,2.9738e-01_jprb,&
 & 2.3781e-01_jprb,1.6990e-01_jprb,1.2021e-01_jprb,1.1406e-01_jprb,1.1481e-01_jprb/)  
kao( :, 4, 3, 8) = (/&
 & 5.0040e-01_jprb,4.7526e-01_jprb,4.4463e-01_jprb,4.0641e-01_jprb,3.6112e-01_jprb,3.1063e-01_jprb,&
 & 2.5089e-01_jprb,1.8361e-01_jprb,1.3795e-01_jprb,1.3453e-01_jprb,1.3558e-01_jprb/)  
kao( :, 5, 3, 8) = (/&
 & 4.9904e-01_jprb,4.7934e-01_jprb,4.5345e-01_jprb,4.1619e-01_jprb,3.7327e-01_jprb,3.2376e-01_jprb,&
 & 2.6376e-01_jprb,1.9847e-01_jprb,1.5778e-01_jprb,1.5659e-01_jprb,1.5798e-01_jprb/)  
kao( :, 1, 4, 8) = (/&
 & 4.9806e-01_jprb,4.5577e-01_jprb,4.1390e-01_jprb,3.6716e-01_jprb,3.1756e-01_jprb,2.6347e-01_jprb,&
 & 2.0234e-01_jprb,1.3271e-01_jprb,7.8950e-02_jprb,6.0980e-02_jprb,6.0379e-02_jprb/)  
kao( :, 2, 4, 8) = (/&
 & 4.9826e-01_jprb,4.6101e-01_jprb,4.2242e-01_jprb,3.7800e-01_jprb,3.3007e-01_jprb,2.7585e-01_jprb,&
 & 2.1397e-01_jprb,1.4413e-01_jprb,8.9794e-02_jprb,7.4947e-02_jprb,7.4639e-02_jprb/)  
kao( :, 3, 4, 8) = (/&
 & 4.9811e-01_jprb,4.6681e-01_jprb,4.3096e-01_jprb,3.8962e-01_jprb,3.4219e-01_jprb,2.8784e-01_jprb,&
 & 2.2620e-01_jprb,1.5584e-01_jprb,1.0227e-01_jprb,9.0609e-02_jprb,9.0488e-02_jprb/)  
kao( :, 4, 4, 8) = (/&
 & 4.9746e-01_jprb,4.7213e-01_jprb,4.3992e-01_jprb,4.0060e-01_jprb,3.5359e-01_jprb,3.0001e-01_jprb,&
 & 2.3826e-01_jprb,1.6835e-01_jprb,1.1655e-01_jprb,1.0791e-01_jprb,1.0795e-01_jprb/)  
kao( :, 5, 4, 8) = (/&
 & 4.9635e-01_jprb,4.7672e-01_jprb,4.4914e-01_jprb,4.1061e-01_jprb,3.6511e-01_jprb,3.1218e-01_jprb,&
 & 2.5028e-01_jprb,1.8187e-01_jprb,1.3226e-01_jprb,1.2654e-01_jprb,1.2673e-01_jprb/)  
kao( :, 1, 5, 8) = (/&
 & 4.8638e-01_jprb,4.4445e-01_jprb,4.0240e-01_jprb,3.5595e-01_jprb,3.0624e-01_jprb,2.5236e-01_jprb,&
 & 1.9246e-01_jprb,1.2312e-01_jprb,6.9001e-02_jprb,4.7715e-02_jprb,4.6683e-02_jprb/)  
kao( :, 2, 5, 8) = (/&
 & 4.8710e-01_jprb,4.5014e-01_jprb,4.1145e-01_jprb,3.6700e-01_jprb,3.1862e-01_jprb,2.6463e-01_jprb,&
 & 2.0376e-01_jprb,1.3331e-01_jprb,7.8352e-02_jprb,5.8722e-02_jprb,5.8068e-02_jprb/)  
kao( :, 3, 5, 8) = (/&
 & 4.8733e-01_jprb,4.5646e-01_jprb,4.2038e-01_jprb,3.7871e-01_jprb,3.3086e-01_jprb,2.7657e-01_jprb,&
 & 2.1509e-01_jprb,1.4382e-01_jprb,8.8703e-02_jprb,7.1451e-02_jprb,7.1075e-02_jprb/)  
kao( :, 4, 5, 8) = (/&
 & 4.8688e-01_jprb,4.6221e-01_jprb,4.2956e-01_jprb,3.8977e-01_jprb,3.4249e-01_jprb,2.8843e-01_jprb,&
 & 2.2638e-01_jprb,1.5517e-01_jprb,1.0010e-01_jprb,8.5586e-02_jprb,8.5398e-02_jprb/)  
kao( :, 5, 5, 8) = (/&
 & 4.8605e-01_jprb,4.6725e-01_jprb,4.3887e-01_jprb,4.0002e-01_jprb,3.5369e-01_jprb,3.0008e-01_jprb,&
 & 2.3780e-01_jprb,1.6738e-01_jprb,1.1249e-01_jprb,1.0093e-01_jprb,1.0091e-01_jprb/)  
kao( :, 1, 6, 8) = (/&
 & 4.6671e-01_jprb,4.2600e-01_jprb,3.8466e-01_jprb,3.3926e-01_jprb,2.9061e-01_jprb,2.3768e-01_jprb,&
 & 1.7963e-01_jprb,1.1420e-01_jprb,6.0552e-02_jprb,3.7850e-02_jprb,4.1921e-02_jprb/)  
kao( :, 2, 6, 8) = (/&
 & 4.6803e-01_jprb,4.3203e-01_jprb,3.9392e-01_jprb,3.5053e-01_jprb,3.0269e-01_jprb,2.4962e-01_jprb,&
 & 1.9077e-01_jprb,1.2351e-01_jprb,6.8512e-02_jprb,4.6284e-02_jprb,5.0049e-02_jprb/)  
kao( :, 3, 6, 8) = (/&
 & 4.6842e-01_jprb,4.3840e-01_jprb,4.0304e-01_jprb,3.6198e-01_jprb,3.1472e-01_jprb,2.6142e-01_jprb,&
 & 2.0201e-01_jprb,1.3304e-01_jprb,7.7462e-02_jprb,5.6089e-02_jprb,5.9440e-02_jprb/)  
kao( :, 4, 6, 8) = (/&
 & 4.6834e-01_jprb,4.4438e-01_jprb,4.1233e-01_jprb,3.7291e-01_jprb,3.2609e-01_jprb,2.7299e-01_jprb,&
 & 2.1298e-01_jprb,1.4322e-01_jprb,8.7054e-02_jprb,6.7233e-02_jprb,7.0024e-02_jprb/)  
kao( :, 5, 6, 8) = (/&
 & 4.6792e-01_jprb,4.4990e-01_jprb,4.2136e-01_jprb,3.8305e-01_jprb,3.3708e-01_jprb,2.8431e-01_jprb,&
 & 2.2411e-01_jprb,1.5430e-01_jprb,9.7088e-02_jprb,7.9618e-02_jprb,8.1792e-02_jprb/)  
kao( :, 1, 7, 8) = (/&
 & 4.3699e-01_jprb,3.9837e-01_jprb,3.5896e-01_jprb,3.1590e-01_jprb,2.6958e-01_jprb,2.1919e-01_jprb,&
 & 1.6418e-01_jprb,1.0344e-01_jprb,5.3382e-02_jprb,3.0831e-02_jprb,4.2953e-02_jprb/)  
kao( :, 2, 7, 8) = (/&
 & 4.3843e-01_jprb,4.0448e-01_jprb,3.6812e-01_jprb,3.2701e-01_jprb,2.8124e-01_jprb,2.3050e-01_jprb,&
 & 1.7482e-01_jprb,1.1234e-01_jprb,6.0200e-02_jprb,3.7229e-02_jprb,5.0680e-02_jprb/)  
kao( :, 3, 7, 8) = (/&
 & 4.3919e-01_jprb,4.1086e-01_jprb,3.7731e-01_jprb,3.3799e-01_jprb,2.9265e-01_jprb,2.4169e-01_jprb,&
 & 1.8565e-01_jprb,1.2131e-01_jprb,6.7916e-02_jprb,4.4736e-02_jprb,5.9303e-02_jprb/)  
kao( :, 4, 7, 8) = (/&
 & 4.3964e-01_jprb,4.1709e-01_jprb,3.8642e-01_jprb,3.4844e-01_jprb,3.0343e-01_jprb,2.5289e-01_jprb,&
 & 1.9633e-01_jprb,1.3094e-01_jprb,7.6222e-02_jprb,5.3326e-02_jprb,6.8509e-02_jprb/)  
kao( :, 5, 7, 8) = (/&
 & 4.3947e-01_jprb,4.2288e-01_jprb,3.9537e-01_jprb,3.5832e-01_jprb,3.1399e-01_jprb,2.6369e-01_jprb,&
 & 2.0720e-01_jprb,1.4134e-01_jprb,8.4840e-02_jprb,6.3000e-02_jprb,7.8182e-02_jprb/)  
kao( :, 1, 8, 8) = (/&
 & 4.0095e-01_jprb,3.6508e-01_jprb,3.2839e-01_jprb,2.8828e-01_jprb,2.4526e-01_jprb,1.9846e-01_jprb,&
 & 1.4746e-01_jprb,9.1777e-02_jprb,4.6862e-02_jprb,2.5767e-02_jprb,4.9298e-02_jprb/)  
kao( :, 2, 8, 8) = (/&
 & 4.0247e-01_jprb,3.7108e-01_jprb,3.3718e-01_jprb,2.9895e-01_jprb,2.5608e-01_jprb,2.0883e-01_jprb,&
 & 1.5736e-01_jprb,1.0019e-01_jprb,5.2944e-02_jprb,3.0729e-02_jprb,5.6721e-02_jprb/)  
kao( :, 3, 8, 8) = (/&
 & 4.0379e-01_jprb,3.7769e-01_jprb,3.4624e-01_jprb,3.0913e-01_jprb,2.6652e-01_jprb,2.1917e-01_jprb,&
 & 1.6744e-01_jprb,1.0879e-01_jprb,5.9618e-02_jprb,3.6479e-02_jprb,6.5019e-02_jprb/)  
kao( :, 4, 8, 8) = (/&
 & 4.0440e-01_jprb,3.8393e-01_jprb,3.5518e-01_jprb,3.1911e-01_jprb,2.7671e-01_jprb,2.2954e-01_jprb,&
 & 1.7755e-01_jprb,1.1776e-01_jprb,6.6811e-02_jprb,4.3078e-02_jprb,7.4113e-02_jprb/)  
kao( :, 5, 8, 8) = (/&
 & 4.0446e-01_jprb,3.8965e-01_jprb,3.6366e-01_jprb,3.2844e-01_jprb,2.8667e-01_jprb,2.3995e-01_jprb,&
 & 1.8784e-01_jprb,1.2743e-01_jprb,7.4347e-02_jprb,5.0583e-02_jprb,8.3692e-02_jprb/)  
kao( :, 1, 9, 8) = (/&
 & 3.6220e-01_jprb,3.2943e-01_jprb,2.9565e-01_jprb,2.5888e-01_jprb,2.1956e-01_jprb,1.7688e-01_jprb,&
 & 1.3053e-01_jprb,8.0073e-02_jprb,4.0469e-02_jprb,2.1839e-02_jprb,9.4199e-02_jprb/)  
kao( :, 2, 9, 8) = (/&
 & 3.6411e-01_jprb,3.3547e-01_jprb,3.0414e-01_jprb,2.6872e-01_jprb,2.2935e-01_jprb,1.8612e-01_jprb,&
 & 1.3939e-01_jprb,8.7821e-02_jprb,4.5931e-02_jprb,2.5820e-02_jprb,1.0332e-01_jprb/)  
kao( :, 3, 9, 8) = (/&
 & 3.6566e-01_jprb,3.4191e-01_jprb,3.1284e-01_jprb,2.7831e-01_jprb,2.3893e-01_jprb,1.9553e-01_jprb,&
 & 1.4849e-01_jprb,9.5850e-02_jprb,5.1870e-02_jprb,3.0419e-02_jprb,1.1365e-01_jprb/)  
kao( :, 4, 9, 8) = (/&
 & 3.6634e-01_jprb,3.4783e-01_jprb,3.2112e-01_jprb,2.8747e-01_jprb,2.4838e-01_jprb,2.0518e-01_jprb,&
 & 1.5786e-01_jprb,1.0419e-01_jprb,5.8269e-02_jprb,3.5620e-02_jprb,1.2479e-01_jprb/)  
kao( :, 5, 9, 8) = (/&
 & 3.6687e-01_jprb,3.5352e-01_jprb,3.2900e-01_jprb,2.9611e-01_jprb,2.5769e-01_jprb,2.1498e-01_jprb,&
 & 1.6749e-01_jprb,1.1307e-01_jprb,6.4929e-02_jprb,4.1475e-02_jprb,1.3690e-01_jprb/)  
kao( :, 1,10, 8) = (/&
 & 3.2199e-01_jprb,2.9278e-01_jprb,2.6222e-01_jprb,2.2905e-01_jprb,1.9373e-01_jprb,1.5558e-01_jprb,&
 & 1.1424e-01_jprb,6.9413e-02_jprb,3.4798e-02_jprb,1.8896e-02_jprb,2.8335e-01_jprb/)  
kao( :, 2,10, 8) = (/&
 & 3.2419e-01_jprb,2.9882e-01_jprb,2.7031e-01_jprb,2.3822e-01_jprb,2.0265e-01_jprb,1.6381e-01_jprb,&
 & 1.2203e-01_jprb,7.6200e-02_jprb,3.9653e-02_jprb,2.2203e-02_jprb,3.0010e-01_jprb/)  
kao( :, 3,10, 8) = (/&
 & 3.2557e-01_jprb,3.0468e-01_jprb,2.7841e-01_jprb,2.4694e-01_jprb,2.1134e-01_jprb,1.7240e-01_jprb,&
 & 1.3024e-01_jprb,8.3423e-02_jprb,4.4862e-02_jprb,2.6006e-02_jprb,3.2041e-01_jprb/)  
kao( :, 4,10, 8) = (/&
 & 3.2676e-01_jprb,3.1040e-01_jprb,2.8596e-01_jprb,2.5507e-01_jprb,2.1988e-01_jprb,1.8121e-01_jprb,&
 & 1.3879e-01_jprb,9.0984e-02_jprb,5.0519e-02_jprb,3.0296e-02_jprb,3.4283e-01_jprb/)  
kao( :, 5,10, 8) = (/&
 & 3.2756e-01_jprb,3.1604e-01_jprb,2.9325e-01_jprb,2.6321e-01_jprb,2.2857e-01_jprb,1.9016e-01_jprb,&
 & 1.4762e-01_jprb,9.9000e-02_jprb,5.6488e-02_jprb,3.5105e-02_jprb,3.6677e-01_jprb/)  
kao( :, 1,11, 8) = (/&
 & 2.8411e-01_jprb,2.5988e-01_jprb,2.3321e-01_jprb,2.0412e-01_jprb,1.7249e-01_jprb,1.3838e-01_jprb,&
 & 1.0172e-01_jprb,6.2178e-02_jprb,3.1646e-02_jprb,1.7506e-02_jprb,3.9917e-01_jprb/)  
kao( :, 2,11, 8) = (/&
 & 2.8582e-01_jprb,2.6534e-01_jprb,2.4057e-01_jprb,2.1213e-01_jprb,1.8034e-01_jprb,1.4593e-01_jprb,&
 & 1.0888e-01_jprb,6.8210e-02_jprb,3.6011e-02_jprb,2.0567e-02_jprb,4.2270e-01_jprb/)  
kao( :, 3,11, 8) = (/&
 & 2.8739e-01_jprb,2.7084e-01_jprb,2.4780e-01_jprb,2.1959e-01_jprb,1.8803e-01_jprb,1.5372e-01_jprb,&
 & 1.1636e-01_jprb,7.4695e-02_jprb,4.0724e-02_jprb,2.3986e-02_jprb,4.4934e-01_jprb/)  
kao( :, 4,11, 8) = (/&
 & 2.8878e-01_jprb,2.7644e-01_jprb,2.5472e-01_jprb,2.2709e-01_jprb,1.9597e-01_jprb,1.6177e-01_jprb,&
 & 1.2408e-01_jprb,8.1642e-02_jprb,4.5765e-02_jprb,2.7772e-02_jprb,4.7717e-01_jprb/)  
kao( :, 5,11, 8) = (/&
 & 2.8955e-01_jprb,2.8144e-01_jprb,2.6102e-01_jprb,2.3454e-01_jprb,2.0411e-01_jprb,1.7002e-01_jprb,&
 & 1.3228e-01_jprb,8.8823e-02_jprb,5.1141e-02_jprb,3.2010e-02_jprb,5.0557e-01_jprb/)  
kao( :, 1,12, 8) = (/&
 & 2.4710e-01_jprb,2.2747e-01_jprb,2.0446e-01_jprb,1.7910e-01_jprb,1.5126e-01_jprb,1.2141e-01_jprb,&
 & 8.9466e-02_jprb,5.4973e-02_jprb,2.8499e-02_jprb,1.5999e-02_jprb,4.2800e-01_jprb/)  
kao( :, 2,12, 8) = (/&
 & 2.4901e-01_jprb,2.3258e-01_jprb,2.1111e-01_jprb,1.8597e-01_jprb,1.5805e-01_jprb,1.2818e-01_jprb,&
 & 9.5808e-02_jprb,6.0321e-02_jprb,3.2343e-02_jprb,1.8809e-02_jprb,4.5340e-01_jprb/)  
kao( :, 3,12, 8) = (/&
 & 2.5080e-01_jprb,2.3792e-01_jprb,2.1766e-01_jprb,1.9271e-01_jprb,1.6525e-01_jprb,1.3521e-01_jprb,&
 & 1.0253e-01_jprb,6.6046e-02_jprb,3.6536e-02_jprb,2.1931e-02_jprb,4.7921e-01_jprb/)  
kao( :, 4,12, 8) = (/&
 & 2.5204e-01_jprb,2.4277e-01_jprb,2.2355e-01_jprb,1.9948e-01_jprb,1.7252e-01_jprb,1.4258e-01_jprb,&
 & 1.0952e-01_jprb,7.2180e-02_jprb,4.1025e-02_jprb,2.5368e-02_jprb,5.0641e-01_jprb/)  
kao( :, 5,12, 8) = (/&
 & 2.5346e-01_jprb,2.4761e-01_jprb,2.2936e-01_jprb,2.0632e-01_jprb,1.7985e-01_jprb,1.5006e-01_jprb,&
 & 1.1690e-01_jprb,7.8517e-02_jprb,4.5825e-02_jprb,2.9158e-02_jprb,5.3542e-01_jprb/)  
kao( :, 1,13, 8) = (/&
 & 2.1104e-01_jprb,1.9539e-01_jprb,1.7591e-01_jprb,1.5396e-01_jprb,1.2999e-01_jprb,1.0448e-01_jprb,&
 & 7.7298e-02_jprb,4.7962e-02_jprb,2.5275e-02_jprb,1.4360e-02_jprb,3.6245e-01_jprb/)  
kao( :, 2,13, 8) = (/&
 & 2.1306e-01_jprb,2.0027e-01_jprb,1.8186e-01_jprb,1.6010e-01_jprb,1.3622e-01_jprb,1.1063e-01_jprb,&
 & 8.2888e-02_jprb,5.2545e-02_jprb,2.8685e-02_jprb,1.6930e-02_jprb,3.8275e-01_jprb/)  
kao( :, 3,13, 8) = (/&
 & 2.1469e-01_jprb,2.0496e-01_jprb,1.8742e-01_jprb,1.6612e-01_jprb,1.4267e-01_jprb,1.1693e-01_jprb,&
 & 8.8832e-02_jprb,5.7525e-02_jprb,3.2378e-02_jprb,1.9762e-02_jprb,4.0424e-01_jprb/)  
kao( :, 4,13, 8) = (/&
 & 2.1644e-01_jprb,2.0961e-01_jprb,1.9285e-01_jprb,1.7222e-01_jprb,1.4919e-01_jprb,1.2339e-01_jprb,&
 & 9.4996e-02_jprb,6.2832e-02_jprb,3.6346e-02_jprb,2.2885e-02_jprb,4.2761e-01_jprb/)  
kao( :, 5,13, 8) = (/&
 & 2.1812e-01_jprb,2.1428e-01_jprb,1.9853e-01_jprb,1.7877e-01_jprb,1.5586e-01_jprb,1.3014e-01_jprb,&
 & 1.0138e-01_jprb,6.8371e-02_jprb,4.0590e-02_jprb,2.6305e-02_jprb,4.5224e-01_jprb/)  
kao( :, 1, 1, 9) = (/&
 & 9.5159e-01_jprb,8.6193e-01_jprb,7.8445e-01_jprb,7.0786e-01_jprb,6.2475e-01_jprb,5.4735e-01_jprb,&
 & 4.7357e-01_jprb,4.3191e-01_jprb,4.5105e-01_jprb,4.6500e-01_jprb,4.7768e-01_jprb/)  
kao( :, 2, 1, 9) = (/&
 & 9.4610e-01_jprb,8.6636e-01_jprb,7.9453e-01_jprb,7.2334e-01_jprb,6.4819e-01_jprb,5.8098e-01_jprb,&
 & 5.1867e-01_jprb,5.0225e-01_jprb,5.3434e-01_jprb,5.5100e-01_jprb,5.6593e-01_jprb/)  
kao( :, 3, 1, 9) = (/&
 & 9.4063e-01_jprb,8.6755e-01_jprb,8.0500e-01_jprb,7.3756e-01_jprb,6.7496e-01_jprb,6.1686e-01_jprb,&
 & 5.7144e-01_jprb,5.7997e-01_jprb,6.2451e-01_jprb,6.4411e-01_jprb,6.6119e-01_jprb/)  
kao( :, 4, 1, 9) = (/&
 & 9.3410e-01_jprb,8.6712e-01_jprb,8.1423e-01_jprb,7.5391e-01_jprb,7.0437e-01_jprb,6.5593e-01_jprb,&
 & 6.3263e-01_jprb,6.6511e-01_jprb,7.2065e-01_jprb,7.4338e-01_jprb,7.6295e-01_jprb/)  
kao( :, 5, 1, 9) = (/&
 & 9.2639e-01_jprb,8.6753e-01_jprb,8.2122e-01_jprb,7.7366e-01_jprb,7.3498e-01_jprb,7.0006e-01_jprb,&
 & 7.0131e-01_jprb,7.5726e-01_jprb,8.2266e-01_jprb,8.4882e-01_jprb,8.7078e-01_jprb/)  
kao( :, 1, 2, 9) = (/&
 & 9.9571e-01_jprb,8.9920e-01_jprb,8.1614e-01_jprb,7.3263e-01_jprb,6.4026e-01_jprb,5.4806e-01_jprb,&
 & 4.6027e-01_jprb,3.9041e-01_jprb,3.9261e-01_jprb,4.0467e-01_jprb,4.1298e-01_jprb/)  
kao( :, 2, 2, 9) = (/&
 & 9.8996e-01_jprb,9.0283e-01_jprb,8.2671e-01_jprb,7.4790e-01_jprb,6.6191e-01_jprb,5.7890e-01_jprb,&
 & 4.9929e-01_jprb,4.5184e-01_jprb,4.6916e-01_jprb,4.8383e-01_jprb,4.9391e-01_jprb/)  
kao( :, 3, 2, 9) = (/&
 & 9.8376e-01_jprb,9.0392e-01_jprb,8.3729e-01_jprb,7.6239e-01_jprb,6.8599e-01_jprb,6.1186e-01_jprb,&
 & 5.4354e-01_jprb,5.2118e-01_jprb,5.5194e-01_jprb,5.6942e-01_jprb,5.8138e-01_jprb/)  
kao( :, 4, 2, 9) = (/&
 & 9.7691e-01_jprb,9.0424e-01_jprb,8.4680e-01_jprb,7.7835e-01_jprb,7.1309e-01_jprb,6.4690e-01_jprb,&
 & 5.9506e-01_jprb,5.9772e-01_jprb,6.4088e-01_jprb,6.6141e-01_jprb,6.7534e-01_jprb/)  
kao( :, 5, 2, 9) = (/&
 & 9.6899e-01_jprb,9.0591e-01_jprb,8.5458e-01_jprb,7.9701e-01_jprb,7.4146e-01_jprb,6.8466e-01_jprb,&
 & 6.5376e-01_jprb,6.8054e-01_jprb,7.3475e-01_jprb,7.5849e-01_jprb,7.7486e-01_jprb/)  
kao( :, 1, 3, 9) = (/&
 & 1.0405e+00_jprb,9.3488e-01_jprb,8.4463e-01_jprb,7.5330e-01_jprb,6.5244e-01_jprb,5.4916e-01_jprb,&
 & 4.4520e-01_jprb,3.4870e-01_jprb,3.2584e-01_jprb,3.3543e-01_jprb,3.3962e-01_jprb/)  
kao( :, 2, 3, 9) = (/&
 & 1.0349e+00_jprb,9.3892e-01_jprb,8.5534e-01_jprb,7.6913e-01_jprb,6.7395e-01_jprb,5.7625e-01_jprb,&
 & 4.7914e-01_jprb,3.9837e-01_jprb,3.9325e-01_jprb,4.0529e-01_jprb,4.1035e-01_jprb/)  
kao( :, 3, 3, 9) = (/&
 & 1.0286e+00_jprb,9.4087e-01_jprb,8.6735e-01_jprb,7.8384e-01_jprb,6.9647e-01_jprb,6.0649e-01_jprb,&
 & 5.1617e-01_jprb,4.5626e-01_jprb,4.6701e-01_jprb,4.8157e-01_jprb,4.8769e-01_jprb/)  
kao( :, 4, 3, 9) = (/&
 & 1.0216e+00_jprb,9.4194e-01_jprb,8.7769e-01_jprb,8.0047e-01_jprb,7.2103e-01_jprb,6.3769e-01_jprb,&
 & 5.5844e-01_jprb,5.2182e-01_jprb,5.4652e-01_jprb,5.6383e-01_jprb,5.7106e-01_jprb/)  
kao( :, 5, 3, 9) = (/&
 & 1.0137e+00_jprb,9.4403e-01_jprb,8.8589e-01_jprb,8.1893e-01_jprb,7.4713e-01_jprb,6.7001e-01_jprb,&
 & 6.0589e-01_jprb,5.9289e-01_jprb,6.3020e-01_jprb,6.5037e-01_jprb,6.5878e-01_jprb/)  
kao( :, 1, 4, 9) = (/&
 & 1.0880e+00_jprb,9.7313e-01_jprb,8.7384e-01_jprb,7.7222e-01_jprb,6.6520e-01_jprb,5.5149e-01_jprb,&
 & 4.3468e-01_jprb,3.1551e-01_jprb,2.6473e-01_jprb,2.7010e-01_jprb,2.7211e-01_jprb/)  
kao( :, 2, 4, 9) = (/&
 & 1.0823e+00_jprb,9.7690e-01_jprb,8.8415e-01_jprb,7.9011e-01_jprb,6.8589e-01_jprb,5.7725e-01_jprb,&
 & 4.6480e-01_jprb,3.5528e-01_jprb,3.2290e-01_jprb,3.3154e-01_jprb,3.3402e-01_jprb/)  
kao( :, 3, 4, 9) = (/&
 & 1.0759e+00_jprb,9.7896e-01_jprb,8.9677e-01_jprb,8.0590e-01_jprb,7.0747e-01_jprb,6.0512e-01_jprb,&
 & 4.9649e-01_jprb,4.0248e-01_jprb,3.8741e-01_jprb,3.9884e-01_jprb,4.0190e-01_jprb/)  
kao( :, 4, 4, 9) = (/&
 & 1.0687e+00_jprb,9.8058e-01_jprb,9.0886e-01_jprb,8.2235e-01_jprb,7.3113e-01_jprb,6.3357e-01_jprb,&
 & 5.3180e-01_jprb,4.5630e-01_jprb,4.5720e-01_jprb,4.7127e-01_jprb,4.7487e-01_jprb/)  
kao( :, 5, 4, 9) = (/&
 & 1.0611e+00_jprb,9.8340e-01_jprb,9.1796e-01_jprb,8.4063e-01_jprb,7.5604e-01_jprb,6.6259e-01_jprb,&
 & 5.7101e-01_jprb,5.1566e-01_jprb,5.3169e-01_jprb,5.4837e-01_jprb,5.5265e-01_jprb/)  
kao( :, 1, 5, 9) = (/&
 & 1.1353e+00_jprb,1.0122e+00_jprb,9.0436e-01_jprb,7.9314e-01_jprb,6.7788e-01_jprb,5.5661e-01_jprb,&
 & 4.2870e-01_jprb,2.9193e-01_jprb,2.1579e-01_jprb,2.1412e-01_jprb,2.1527e-01_jprb/)  
kao( :, 2, 5, 9) = (/&
 & 1.1302e+00_jprb,1.0164e+00_jprb,9.1463e-01_jprb,8.1125e-01_jprb,6.9965e-01_jprb,5.8117e-01_jprb,&
 & 4.5601e-01_jprb,3.2431e-01_jprb,2.6337e-01_jprb,2.6679e-01_jprb,2.6824e-01_jprb/)  
kao( :, 3, 5, 9) = (/&
 & 1.1241e+00_jprb,1.0191e+00_jprb,9.2734e-01_jprb,8.2845e-01_jprb,7.2101e-01_jprb,6.0737e-01_jprb,&
 & 4.8451e-01_jprb,3.6228e-01_jprb,3.1806e-01_jprb,3.2529e-01_jprb,3.2713e-01_jprb/)  
kao( :, 4, 5, 9) = (/&
 & 1.1173e+00_jprb,1.0209e+00_jprb,9.4019e-01_jprb,8.4617e-01_jprb,7.4384e-01_jprb,6.3435e-01_jprb,&
 & 5.1515e-01_jprb,4.0564e-01_jprb,3.7849e-01_jprb,3.8902e-01_jprb,3.9122e-01_jprb/)  
kao( :, 5, 5, 9) = (/&
 & 1.1101e+00_jprb,1.0243e+00_jprb,9.5096e-01_jprb,8.6410e-01_jprb,7.6849e-01_jprb,6.6158e-01_jprb,&
 & 5.4858e-01_jprb,4.5511e-01_jprb,4.4484e-01_jprb,4.5817e-01_jprb,4.6081e-01_jprb/)  
kao( :, 1, 6, 9) = (/&
 & 1.1806e+00_jprb,1.0498e+00_jprb,9.3337e-01_jprb,8.1273e-01_jprb,6.8998e-01_jprb,5.6047e-01_jprb,&
 & 4.2456e-01_jprb,2.7532e-01_jprb,1.7725e-01_jprb,1.6538e-01_jprb,1.6672e-01_jprb/)  
kao( :, 2, 6, 9) = (/&
 & 1.1761e+00_jprb,1.0541e+00_jprb,9.4371e-01_jprb,8.3128e-01_jprb,7.1158e-01_jprb,5.8532e-01_jprb,&
 & 4.4996e-01_jprb,3.0144e-01_jprb,2.1482e-01_jprb,2.0943e-01_jprb,2.1089e-01_jprb/)  
kao( :, 3, 6, 9) = (/&
 & 1.1706e+00_jprb,1.0579e+00_jprb,9.5635e-01_jprb,8.4936e-01_jprb,7.3343e-01_jprb,6.1037e-01_jprb,&
 & 4.7682e-01_jprb,3.3219e-01_jprb,2.5890e-01_jprb,2.5930e-01_jprb,2.6088e-01_jprb/)  
kao( :, 4, 6, 9) = (/&
 & 1.1647e+00_jprb,1.0607e+00_jprb,9.7013e-01_jprb,8.6759e-01_jprb,7.5661e-01_jprb,6.3681e-01_jprb,&
 & 5.0490e-01_jprb,3.6744e-01_jprb,3.0939e-01_jprb,3.1452e-01_jprb,3.1634e-01_jprb/)  
kao( :, 5, 6, 9) = (/&
 & 1.1580e+00_jprb,1.0646e+00_jprb,9.8251e-01_jprb,8.8607e-01_jprb,7.8101e-01_jprb,6.6342e-01_jprb,&
 & 5.3428e-01_jprb,4.0750e-01_jprb,3.6653e-01_jprb,3.7539e-01_jprb,3.7760e-01_jprb/)  
kao( :, 1, 7, 9) = (/&
 & 1.2136e+00_jprb,1.0774e+00_jprb,9.5377e-01_jprb,8.2536e-01_jprb,6.9593e-01_jprb,5.6078e-01_jprb,&
 & 4.1863e-01_jprb,2.6313e-01_jprb,1.4935e-01_jprb,1.2578e-01_jprb,1.4257e-01_jprb/)  
kao( :, 2, 7, 9) = (/&
 & 1.2100e+00_jprb,1.0820e+00_jprb,9.6432e-01_jprb,8.4363e-01_jprb,7.1756e-01_jprb,5.8508e-01_jprb,&
 & 4.4339e-01_jprb,2.8645e-01_jprb,1.7844e-01_jprb,1.6196e-01_jprb,1.7527e-01_jprb/)  
kao( :, 3, 7, 9) = (/&
 & 1.2053e+00_jprb,1.0866e+00_jprb,9.7664e-01_jprb,8.6237e-01_jprb,7.3986e-01_jprb,6.1018e-01_jprb,&
 & 4.6912e-01_jprb,3.1223e-01_jprb,2.1332e-01_jprb,2.0363e-01_jprb,2.1371e-01_jprb/)  
kao( :, 4, 7, 9) = (/&
 & 1.1998e+00_jprb,1.0903e+00_jprb,9.9072e-01_jprb,8.8131e-01_jprb,7.6315e-01_jprb,6.3674e-01_jprb,&
 & 4.9590e-01_jprb,3.4090e-01_jprb,2.5438e-01_jprb,2.5086e-01_jprb,2.5825e-01_jprb/)  
kao( :, 5, 7, 9) = (/&
 & 1.1932e+00_jprb,1.0942e+00_jprb,1.0040e+00_jprb,9.0033e-01_jprb,7.8781e-01_jprb,6.6359e-01_jprb,&
 & 5.2347e-01_jprb,3.7392e-01_jprb,3.0186e-01_jprb,3.0359e-01_jprb,3.0908e-01_jprb/)  
kao( :, 1, 8, 9) = (/&
 & 1.2316e+00_jprb,1.0924e+00_jprb,9.6349e-01_jprb,8.3019e-01_jprb,6.9548e-01_jprb,5.5575e-01_jprb,&
 & 4.1003e-01_jprb,2.5191e-01_jprb,1.3039e-01_jprb,9.5856e-02_jprb,1.7533e-01_jprb/)  
kao( :, 2, 8, 9) = (/&
 & 1.2282e+00_jprb,1.0969e+00_jprb,9.7419e-01_jprb,8.4770e-01_jprb,7.1665e-01_jprb,5.7977e-01_jprb,&
 & 4.3430e-01_jprb,2.7347e-01_jprb,1.5278e-01_jprb,1.2456e-01_jprb,2.0121e-01_jprb/)  
kao( :, 3, 8, 9) = (/&
 & 1.2234e+00_jprb,1.1017e+00_jprb,9.8619e-01_jprb,8.6635e-01_jprb,7.3926e-01_jprb,6.0504e-01_jprb,&
 & 4.5959e-01_jprb,2.9702e-01_jprb,1.8008e-01_jprb,1.5872e-01_jprb,2.2963e-01_jprb/)  
kao( :, 4, 8, 9) = (/&
 & 1.2179e+00_jprb,1.1058e+00_jprb,1.0001e+00_jprb,8.8559e-01_jprb,7.6296e-01_jprb,6.3135e-01_jprb,&
 & 4.8567e-01_jprb,3.2261e-01_jprb,2.1292e-01_jprb,1.9834e-01_jprb,2.6180e-01_jprb/)  

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


SUBROUTINE part7

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


kao( :, 5, 8, 9) = (/&
 & 1.2113e+00_jprb,1.1100e+00_jprb,1.0138e+00_jprb,9.0571e-01_jprb,7.8768e-01_jprb,6.5815e-01_jprb,&
 & 5.1266e-01_jprb,3.5055e-01_jprb,2.5143e-01_jprb,2.4311e-01_jprb,2.9921e-01_jprb/)  
kao( :, 1, 9, 9) = (/&
 & 1.2312e+00_jprb,1.0915e+00_jprb,9.6019e-01_jprb,8.2497e-01_jprb,6.8804e-01_jprb,5.4659e-01_jprb,&
 & 3.9889e-01_jprb,2.4010e-01_jprb,1.1745e-01_jprb,7.4115e-02_jprb,3.8570e-01_jprb/)  
kao( :, 2, 9, 9) = (/&
 & 1.2271e+00_jprb,1.0952e+00_jprb,9.7062e-01_jprb,8.4182e-01_jprb,7.0896e-01_jprb,5.7001e-01_jprb,&
 & 4.2261e-01_jprb,2.6038e-01_jprb,1.3539e-01_jprb,9.6435e-02_jprb,4.2073e-01_jprb/)  
kao( :, 3, 9, 9) = (/&
 & 1.2221e+00_jprb,1.0999e+00_jprb,9.8223e-01_jprb,8.6047e-01_jprb,7.3167e-01_jprb,5.9531e-01_jprb,&
 & 4.4692e-01_jprb,2.8236e-01_jprb,1.5682e-01_jprb,1.2365e-01_jprb,4.5798e-01_jprb/)  
kao( :, 4, 9, 9) = (/&
 & 1.2168e+00_jprb,1.1048e+00_jprb,9.9655e-01_jprb,8.8042e-01_jprb,7.5597e-01_jprb,6.2078e-01_jprb,&
 & 4.7224e-01_jprb,3.0619e-01_jprb,1.8270e-01_jprb,1.5583e-01_jprb,4.9794e-01_jprb/)  
kao( :, 5, 9, 9) = (/&
 & 1.2103e+00_jprb,1.1097e+00_jprb,1.0110e+00_jprb,9.0113e-01_jprb,7.8074e-01_jprb,6.4684e-01_jprb,&
 & 4.9870e-01_jprb,3.3189e-01_jprb,2.1333e-01_jprb,1.9294e-01_jprb,5.3980e-01_jprb/)  
kao( :, 1,10, 9) = (/&
 & 1.2065e+00_jprb,1.0698e+00_jprb,9.3983e-01_jprb,8.0628e-01_jprb,6.7075e-01_jprb,5.3108e-01_jprb,&
 & 3.8524e-01_jprb,2.2846e-01_jprb,1.0759e-01_jprb,6.0114e-02_jprb,1.2134e+00_jprb/)  
kao( :, 2,10, 9) = (/&
 & 1.2021e+00_jprb,1.0732e+00_jprb,9.5006e-01_jprb,8.2241e-01_jprb,6.9118e-01_jprb,5.5381e-01_jprb,&
 & 4.0835e-01_jprb,2.4753e-01_jprb,1.2339e-01_jprb,7.7390e-02_jprb,1.2525e+00_jprb/)  
kao( :, 3,10, 9) = (/&
 & 1.1979e+00_jprb,1.0788e+00_jprb,9.6194e-01_jprb,8.4108e-01_jprb,7.1368e-01_jprb,5.7871e-01_jprb,&
 & 4.3197e-01_jprb,2.6832e-01_jprb,1.4165e-01_jprb,9.8913e-02_jprb,1.2959e+00_jprb/)  
kao( :, 4,10, 9) = (/&
 & 1.1924e+00_jprb,1.0841e+00_jprb,9.7645e-01_jprb,8.6142e-01_jprb,7.3813e-01_jprb,6.0416e-01_jprb,&
 & 4.5629e-01_jprb,2.9111e-01_jprb,1.6279e-01_jprb,1.2496e-01_jprb,1.3457e+00_jprb/)  
kao( :, 5,10, 9) = (/&
 & 1.1868e+00_jprb,1.0895e+00_jprb,9.9148e-01_jprb,8.8237e-01_jprb,7.6307e-01_jprb,6.3026e-01_jprb,&
 & 4.8193e-01_jprb,3.1564e-01_jprb,1.8743e-01_jprb,1.5518e-01_jprb,1.4010e+00_jprb/)  
kao( :, 1,11, 9) = (/&
 & 1.1602e+00_jprb,1.0321e+00_jprb,9.0888e-01_jprb,7.8134e-01_jprb,6.5183e-01_jprb,5.1709e-01_jprb,&
 & 3.7632e-01_jprb,2.2357e-01_jprb,1.0454e-01_jprb,5.6265e-02_jprb,1.7556e+00_jprb/)  
kao( :, 2,11, 9) = (/&
 & 1.1566e+00_jprb,1.0373e+00_jprb,9.1992e-01_jprb,7.9870e-01_jprb,6.7250e-01_jprb,5.3982e-01_jprb,&
 & 3.9883e-01_jprb,2.4238e-01_jprb,1.1972e-01_jprb,7.0995e-02_jprb,1.7896e+00_jprb/)  
kao( :, 3,11, 9) = (/&
 & 1.1521e+00_jprb,1.0433e+00_jprb,9.3315e-01_jprb,8.1800e-01_jprb,6.9552e-01_jprb,5.6467e-01_jprb,&
 & 4.2241e-01_jprb,2.6285e-01_jprb,1.3701e-01_jprb,8.9495e-02_jprb,1.8345e+00_jprb/)  
kao( :, 4,11, 9) = (/&
 & 1.1472e+00_jprb,1.0489e+00_jprb,9.4806e-01_jprb,8.3843e-01_jprb,7.1973e-01_jprb,5.9025e-01_jprb,&
 & 4.4701e-01_jprb,2.8499e-01_jprb,1.5648e-01_jprb,1.1176e-01_jprb,1.8895e+00_jprb/)  
kao( :, 5,11, 9) = (/&
 & 1.1436e+00_jprb,1.0565e+00_jprb,9.6473e-01_jprb,8.6013e-01_jprb,7.4475e-01_jprb,6.1626e-01_jprb,&
 & 4.7243e-01_jprb,3.0896e-01_jprb,1.7805e-01_jprb,1.3759e-01_jprb,1.9545e+00_jprb/)  
kao( :, 1,12, 9) = (/&
 & 1.0927e+00_jprb,9.7589e-01_jprb,8.6130e-01_jprb,7.4238e-01_jprb,6.2051e-01_jprb,4.9305e-01_jprb,&
 & 3.5975e-01_jprb,2.1463e-01_jprb,1.0064e-01_jprb,5.3171e-02_jprb,1.9140e+00_jprb/)  
kao( :, 2,12, 9) = (/&
 & 1.0892e+00_jprb,9.8224e-01_jprb,8.7322e-01_jprb,7.6047e-01_jprb,6.4152e-01_jprb,5.1615e-01_jprb,&
 & 3.8192e-01_jprb,2.3322e-01_jprb,1.1514e-01_jprb,6.5840e-02_jprb,1.9498e+00_jprb/)  
kao( :, 3,12, 9) = (/&
 & 1.0852e+00_jprb,9.8827e-01_jprb,8.8733e-01_jprb,7.7978e-01_jprb,6.6433e-01_jprb,5.4034e-01_jprb,&
 & 4.0501e-01_jprb,2.5357e-01_jprb,1.3154e-01_jprb,8.1554e-02_jprb,2.0010e+00_jprb/)  
kao( :, 4,12, 9) = (/&
 & 1.0828e+00_jprb,9.9622e-01_jprb,9.0368e-01_jprb,8.0090e-01_jprb,6.8832e-01_jprb,5.6535e-01_jprb,&
 & 4.2922e-01_jprb,2.7541e-01_jprb,1.4957e-01_jprb,1.0036e-01_jprb,2.0646e+00_jprb/)  
kao( :, 5,12, 9) = (/&
 & 1.0799e+00_jprb,1.0059e+00_jprb,9.2157e-01_jprb,8.2344e-01_jprb,7.1363e-01_jprb,5.9111e-01_jprb,&
 & 4.5461e-01_jprb,2.9875e-01_jprb,1.6950e-01_jprb,1.2252e-01_jprb,2.1387e+00_jprb/)  
kao( :, 1,13, 9) = (/&
 & 1.0003e+00_jprb,8.9827e-01_jprb,7.9453e-01_jprb,6.8742e-01_jprb,5.7557e-01_jprb,4.5851e-01_jprb,&
 & 3.3514e-01_jprb,2.0061e-01_jprb,9.5403e-02_jprb,5.0265e-02_jprb,1.6361e+00_jprb/)  
kao( :, 2,13, 9) = (/&
 & 9.9751e-01_jprb,9.0481e-01_jprb,8.0727e-01_jprb,7.0499e-01_jprb,5.9591e-01_jprb,4.8058e-01_jprb,&
 & 3.5629e-01_jprb,2.1887e-01_jprb,1.0898e-01_jprb,6.1395e-02_jprb,1.6789e+00_jprb/)  
kao( :, 3,13, 9) = (/&
 & 9.9614e-01_jprb,9.1298e-01_jprb,8.2308e-01_jprb,7.2470e-01_jprb,6.1846e-01_jprb,5.0385e-01_jprb,&
 & 3.7856e-01_jprb,2.3882e-01_jprb,1.2434e-01_jprb,7.4760e-02_jprb,1.7343e+00_jprb/)  
kao( :, 4,13, 9) = (/&
 & 9.9388e-01_jprb,9.2211e-01_jprb,8.4003e-01_jprb,7.4638e-01_jprb,6.4247e-01_jprb,5.2829e-01_jprb,&
 & 4.0218e-01_jprb,2.6010e-01_jprb,1.4124e-01_jprb,9.0738e-02_jprb,1.8018e+00_jprb/)  
kao( :, 5,13, 9) = (/&
 & 9.9133e-01_jprb,9.3236e-01_jprb,8.5728e-01_jprb,7.6831e-01_jprb,6.6718e-01_jprb,5.5353e-01_jprb,&
 & 4.2726e-01_jprb,2.8267e-01_jprb,1.5974e-01_jprb,1.0946e-01_jprb,1.8787e+00_jprb/)  
kao( :, 1, 1,10) = (/&
 & 1.4571e+00_jprb,1.2985e+00_jprb,1.1908e+00_jprb,1.0846e+00_jprb,1.0480e+00_jprb,9.7569e-01_jprb,&
 & 9.5294e-01_jprb,1.0946e+00_jprb,1.1970e+00_jprb,1.2341e+00_jprb,1.2515e+00_jprb/)  
kao( :, 2, 1,10) = (/&
 & 1.4234e+00_jprb,1.2781e+00_jprb,1.1865e+00_jprb,1.1317e+00_jprb,1.1150e+00_jprb,1.0495e+00_jprb,&
 & 1.1148e+00_jprb,1.2924e+00_jprb,1.4136e+00_jprb,1.4576e+00_jprb,1.4767e+00_jprb/)  
kao( :, 3, 1,10) = (/&
 & 1.3920e+00_jprb,1.2691e+00_jprb,1.1852e+00_jprb,1.1966e+00_jprb,1.1609e+00_jprb,1.1524e+00_jprb,&
 & 1.2953e+00_jprb,1.5017e+00_jprb,1.6423e+00_jprb,1.6923e+00_jprb,1.7109e+00_jprb/)  
kao( :, 4, 1,10) = (/&
 & 1.3678e+00_jprb,1.2658e+00_jprb,1.2088e+00_jprb,1.2463e+00_jprb,1.2126e+00_jprb,1.2713e+00_jprb,&
 & 1.4845e+00_jprb,1.7225e+00_jprb,1.8842e+00_jprb,1.9406e+00_jprb,1.9546e+00_jprb/)  
kao( :, 5, 1,10) = (/&
 & 1.3506e+00_jprb,1.2582e+00_jprb,1.2509e+00_jprb,1.2864e+00_jprb,1.2835e+00_jprb,1.4126e+00_jprb,&
 & 1.6783e+00_jprb,1.9484e+00_jprb,2.1328e+00_jprb,2.1974e+00_jprb,2.2094e+00_jprb/)  
kao( :, 1, 2,10) = (/&
 & 1.5647e+00_jprb,1.3899e+00_jprb,1.2609e+00_jprb,1.1489e+00_jprb,1.0577e+00_jprb,9.7853e-01_jprb,&
 & 8.8718e-01_jprb,9.8958e-01_jprb,1.0824e+00_jprb,1.1177e+00_jprb,1.1363e+00_jprb/)  
kao( :, 2, 2,10) = (/&
 & 1.5359e+00_jprb,1.3755e+00_jprb,1.2594e+00_jprb,1.1862e+00_jprb,1.1175e+00_jprb,1.0395e+00_jprb,&
 & 1.0286e+00_jprb,1.1844e+00_jprb,1.2956e+00_jprb,1.3363e+00_jprb,1.3552e+00_jprb/)  
kao( :, 3, 2,10) = (/&
 & 1.5095e+00_jprb,1.3719e+00_jprb,1.2702e+00_jprb,1.2294e+00_jprb,1.1716e+00_jprb,1.1207e+00_jprb,&
 & 1.2069e+00_jprb,1.4002e+00_jprb,1.5313e+00_jprb,1.5789e+00_jprb,1.5968e+00_jprb/)  
kao( :, 4, 2,10) = (/&
 & 1.4881e+00_jprb,1.3707e+00_jprb,1.2904e+00_jprb,1.2704e+00_jprb,1.2297e+00_jprb,1.2284e+00_jprb,&
 & 1.3999e+00_jprb,1.6237e+00_jprb,1.7765e+00_jprb,1.8314e+00_jprb,1.8527e+00_jprb/)  
kao( :, 5, 2,10) = (/&
 & 1.4712e+00_jprb,1.3632e+00_jprb,1.3184e+00_jprb,1.3082e+00_jprb,1.2921e+00_jprb,1.3673e+00_jprb,&
 & 1.6066e+00_jprb,1.8637e+00_jprb,2.0388e+00_jprb,2.1005e+00_jprb,2.1202e+00_jprb/)  
kao( :, 1, 3,10) = (/&
 & 1.6996e+00_jprb,1.5099e+00_jprb,1.3576e+00_jprb,1.2090e+00_jprb,1.0921e+00_jprb,9.6189e-01_jprb,&
 & 8.2495e-01_jprb,8.5120e-01_jprb,9.3114e-01_jprb,9.6079e-01_jprb,9.7144e-01_jprb/)  
kao( :, 2, 3,10) = (/&
 & 1.6714e+00_jprb,1.4913e+00_jprb,1.3572e+00_jprb,1.2562e+00_jprb,1.1313e+00_jprb,1.0225e+00_jprb,&
 & 9.3378e-01_jprb,1.0377e+00_jprb,1.1351e+00_jprb,1.1715e+00_jprb,1.1847e+00_jprb/)  
kao( :, 3, 3,10) = (/&
 & 1.6464e+00_jprb,1.4878e+00_jprb,1.3648e+00_jprb,1.2864e+00_jprb,1.1805e+00_jprb,1.0851e+00_jprb,&
 & 1.0848e+00_jprb,1.2467e+00_jprb,1.3633e+00_jprb,1.4058e+00_jprb,1.4211e+00_jprb/)  
kao( :, 4, 3,10) = (/&
 & 1.6254e+00_jprb,1.4868e+00_jprb,1.3919e+00_jprb,1.3095e+00_jprb,1.2349e+00_jprb,1.1776e+00_jprb,&
 & 1.2699e+00_jprb,1.4722e+00_jprb,1.6102e+00_jprb,1.6602e+00_jprb,1.6774e+00_jprb/)  
kao( :, 5, 3,10) = (/&
 & 1.6074e+00_jprb,1.4842e+00_jprb,1.4163e+00_jprb,1.3403e+00_jprb,1.2931e+00_jprb,1.3071e+00_jprb,&
 & 1.4856e+00_jprb,1.7228e+00_jprb,1.8845e+00_jprb,1.9421e+00_jprb,1.9615e+00_jprb/)  
kao( :, 1, 4,10) = (/&
 & 1.8323e+00_jprb,1.6281e+00_jprb,1.4618e+00_jprb,1.2952e+00_jprb,1.1419e+00_jprb,9.7127e-01_jprb,&
 & 7.8485e-01_jprb,7.2735e-01_jprb,7.9434e-01_jprb,8.1908e-01_jprb,8.2678e-01_jprb/)  
kao( :, 2, 4,10) = (/&
 & 1.8090e+00_jprb,1.6115e+00_jprb,1.4679e+00_jprb,1.3303e+00_jprb,1.1865e+00_jprb,1.0111e+00_jprb,&
 & 8.6551e-01_jprb,8.9427e-01_jprb,9.7752e-01_jprb,1.0078e+00_jprb,1.0171e+00_jprb/)  
kao( :, 3, 4,10) = (/&
 & 1.7889e+00_jprb,1.6155e+00_jprb,1.4723e+00_jprb,1.3642e+00_jprb,1.2203e+00_jprb,1.0626e+00_jprb,&
 & 9.8912e-01_jprb,1.0844e+00_jprb,1.1852e+00_jprb,1.2230e+00_jprb,1.2342e+00_jprb/)  
kao( :, 4, 4,10) = (/&
 & 1.7702e+00_jprb,1.6167e+00_jprb,1.4947e+00_jprb,1.3909e+00_jprb,1.2565e+00_jprb,1.1410e+00_jprb,&
 & 1.1388e+00_jprb,1.2955e+00_jprb,1.4168e+00_jprb,1.4624e+00_jprb,1.4761e+00_jprb/)  
kao( :, 5, 4,10) = (/&
 & 1.7501e+00_jprb,1.6097e+00_jprb,1.5232e+00_jprb,1.4123e+00_jprb,1.3009e+00_jprb,1.2498e+00_jprb,&
 & 1.3238e+00_jprb,1.5313e+00_jprb,1.6751e+00_jprb,1.7296e+00_jprb,1.7455e+00_jprb/)  
kao( :, 1, 5,10) = (/&
 & 1.9828e+00_jprb,1.7589e+00_jprb,1.5692e+00_jprb,1.3787e+00_jprb,1.1995e+00_jprb,9.9912e-01_jprb,&
 & 7.7673e-01_jprb,6.3208e-01_jprb,6.6656e-01_jprb,6.8788e-01_jprb,6.9344e-01_jprb/)  
kao( :, 2, 5,10) = (/&
 & 1.9634e+00_jprb,1.7445e+00_jprb,1.5796e+00_jprb,1.4090e+00_jprb,1.2375e+00_jprb,1.0422e+00_jprb,&
 & 8.3265e-01_jprb,7.6892e-01_jprb,8.3508e-01_jprb,8.6158e-01_jprb,8.6855e-01_jprb/)  
kao( :, 3, 5,10) = (/&
 & 1.9451e+00_jprb,1.7488e+00_jprb,1.5830e+00_jprb,1.4394e+00_jprb,1.2778e+00_jprb,1.0801e+00_jprb,&
 & 9.2394e-01_jprb,9.3676e-01_jprb,1.0236e+00_jprb,1.0564e+00_jprb,1.0650e+00_jprb/)  
kao( :, 4, 5,10) = (/&
 & 1.9265e+00_jprb,1.7517e+00_jprb,1.6023e+00_jprb,1.4639e+00_jprb,1.3153e+00_jprb,1.1360e+00_jprb,&
 & 1.0450e+00_jprb,1.1261e+00_jprb,1.2312e+00_jprb,1.2708e+00_jprb,1.2815e+00_jprb/)  
kao( :, 5, 5,10) = (/&
 & 1.9040e+00_jprb,1.7416e+00_jprb,1.6301e+00_jprb,1.4960e+00_jprb,1.3496e+00_jprb,1.2128e+00_jprb,&
 & 1.1890e+00_jprb,1.3318e+00_jprb,1.4563e+00_jprb,1.5043e+00_jprb,1.5161e+00_jprb/)  
kao( :, 1, 6,10) = (/&
 & 2.1467e+00_jprb,1.9004e+00_jprb,1.6825e+00_jprb,1.4649e+00_jprb,1.2465e+00_jprb,1.0269e+00_jprb,&
 & 7.8605e-01_jprb,5.5785e-01_jprb,5.4603e-01_jprb,5.6364e-01_jprb,5.6772e-01_jprb/)  
kao( :, 2, 6,10) = (/&
 & 2.1281e+00_jprb,1.8881e+00_jprb,1.6957e+00_jprb,1.4846e+00_jprb,1.2828e+00_jprb,1.0659e+00_jprb,&
 & 8.3980e-01_jprb,6.6949e-01_jprb,6.9629e-01_jprb,7.1873e-01_jprb,7.2407e-01_jprb/)  
kao( :, 3, 6,10) = (/&
 & 2.1101e+00_jprb,1.8868e+00_jprb,1.6967e+00_jprb,1.5129e+00_jprb,1.3220e+00_jprb,1.1137e+00_jprb,&
 & 9.0037e-01_jprb,8.0396e-01_jprb,8.6638e-01_jprb,8.9449e-01_jprb,9.0065e-01_jprb/)  
kao( :, 4, 6,10) = (/&
 & 2.0853e+00_jprb,1.8860e+00_jprb,1.7059e+00_jprb,1.5431e+00_jprb,1.3571e+00_jprb,1.1686e+00_jprb,&
 & 9.8228e-01_jprb,9.6588e-01_jprb,1.0545e+00_jprb,1.0886e+00_jprb,1.0960e+00_jprb/)  
kao( :, 5, 6,10) = (/&
 & 2.0580e+00_jprb,1.8736e+00_jprb,1.7305e+00_jprb,1.5756e+00_jprb,1.3997e+00_jprb,1.2303e+00_jprb,&
 & 1.0965e+00_jprb,1.1472e+00_jprb,1.2529e+00_jprb,1.2937e+00_jprb,1.3014e+00_jprb/)  
kao( :, 1, 7,10) = (/&
 & 2.2844e+00_jprb,2.0203e+00_jprb,1.7798e+00_jprb,1.5404e+00_jprb,1.2929e+00_jprb,1.0469e+00_jprb,&
 & 7.9236e-01_jprb,5.2961e-01_jprb,4.3906e-01_jprb,4.5269e-01_jprb,4.5518e-01_jprb/)  
kao( :, 2, 7,10) = (/&
 & 2.2660e+00_jprb,2.0078e+00_jprb,1.7931e+00_jprb,1.5555e+00_jprb,1.3285e+00_jprb,1.0902e+00_jprb,&
 & 8.4669e-01_jprb,5.9963e-01_jprb,5.6851e-01_jprb,5.8633e-01_jprb,5.8943e-01_jprb/)  
kao( :, 3, 7,10) = (/&
 & 2.2458e+00_jprb,2.0016e+00_jprb,1.7952e+00_jprb,1.5839e+00_jprb,1.3724e+00_jprb,1.1382e+00_jprb,&
 & 9.0788e-01_jprb,7.0219e-01_jprb,7.1570e-01_jprb,7.3889e-01_jprb,7.4245e-01_jprb/)  
kao( :, 4, 7,10) = (/&
 & 2.2171e+00_jprb,2.0004e+00_jprb,1.8020e+00_jprb,1.6192e+00_jprb,1.4137e+00_jprb,1.1896e+00_jprb,&
 & 9.7833e-01_jprb,8.3274e-01_jprb,8.7925e-01_jprb,9.0812e-01_jprb,9.1193e-01_jprb/)  
kao( :, 5, 7,10) = (/&
 & 2.1959e+00_jprb,1.9929e+00_jprb,1.8261e+00_jprb,1.6565e+00_jprb,1.4548e+00_jprb,1.2529e+00_jprb,&
 & 1.0566e+00_jprb,9.7505e-01_jprb,1.0516e+00_jprb,1.0862e+00_jprb,1.0907e+00_jprb/)  
kao( :, 1, 8,10) = (/&
 & 2.3885e+00_jprb,2.1081e+00_jprb,1.8478e+00_jprb,1.5947e+00_jprb,1.3299e+00_jprb,1.0742e+00_jprb,&
 & 7.9832e-01_jprb,5.1485e-01_jprb,3.4910e-01_jprb,3.5166e-01_jprb,4.0882e-01_jprb/)  
kao( :, 2, 8,10) = (/&
 & 2.3816e+00_jprb,2.1064e+00_jprb,1.8710e+00_jprb,1.6145e+00_jprb,1.3755e+00_jprb,1.1190e+00_jprb,&
 & 8.5217e-01_jprb,5.7569e-01_jprb,4.5136e-01_jprb,4.6418e-01_jprb,4.8409e-01_jprb/)  
kao( :, 3, 8,10) = (/&
 & 2.3652e+00_jprb,2.1007e+00_jprb,1.8806e+00_jprb,1.6533e+00_jprb,1.4207e+00_jprb,1.1711e+00_jprb,&
 & 9.0846e-01_jprb,6.4219e-01_jprb,5.7508e-01_jprb,5.9368e-01_jprb,5.9892e-01_jprb/)  
kao( :, 4, 8,10) = (/&
 & 2.3476e+00_jprb,2.1091e+00_jprb,1.8906e+00_jprb,1.6908e+00_jprb,1.4662e+00_jprb,1.2230e+00_jprb,&
 & 9.7637e-01_jprb,7.3139e-01_jprb,7.1362e-01_jprb,7.3716e-01_jprb,7.4183e-01_jprb/)  
kao( :, 5, 8,10) = (/&
 & 2.3384e+00_jprb,2.1117e+00_jprb,1.9201e+00_jprb,1.7277e+00_jprb,1.5122e+00_jprb,1.2845e+00_jprb,&
 & 1.0504e+00_jprb,8.4237e-01_jprb,8.6471e-01_jprb,8.9254e-01_jprb,8.9924e-01_jprb/)  
kao( :, 1, 9,10) = (/&
 & 2.5386e+00_jprb,2.2349e+00_jprb,1.9481e+00_jprb,1.6673e+00_jprb,1.3731e+00_jprb,1.0924e+00_jprb,&
 & 8.0108e-01_jprb,5.0383e-01_jprb,2.8431e-01_jprb,2.6546e-01_jprb,1.0078e+00_jprb/)  
kao( :, 2, 9,10) = (/&
 & 2.5451e+00_jprb,2.2468e+00_jprb,1.9792e+00_jprb,1.6927e+00_jprb,1.4190e+00_jprb,1.1389e+00_jprb,&
 & 8.5564e-01_jprb,5.6069e-01_jprb,3.5715e-01_jprb,3.5572e-01_jprb,1.1000e+00_jprb/)  
kao( :, 3, 9,10) = (/&
 & 2.5371e+00_jprb,2.2464e+00_jprb,1.9929e+00_jprb,1.7275e+00_jprb,1.4622e+00_jprb,1.1905e+00_jprb,&
 & 9.1694e-01_jprb,6.2032e-01_jprb,4.5328e-01_jprb,4.6281e-01_jprb,1.1964e+00_jprb/)  
kao( :, 4, 9,10) = (/&
 & 2.5272e+00_jprb,2.2578e+00_jprb,2.0033e+00_jprb,1.7607e+00_jprb,1.5050e+00_jprb,1.2522e+00_jprb,&
 & 9.8282e-01_jprb,6.8556e-01_jprb,5.6762e-01_jprb,5.8509e-01_jprb,1.3014e+00_jprb/)  
kao( :, 5, 9,10) = (/&
 & 2.5219e+00_jprb,2.2665e+00_jprb,2.0326e+00_jprb,1.7988e+00_jprb,1.5562e+00_jprb,1.3171e+00_jprb,&
 & 1.0492e+00_jprb,7.6013e-01_jprb,7.0072e-01_jprb,7.2284e-01_jprb,1.4121e+00_jprb/)  
kao( :, 1,10,10) = (/&
 & 2.7032e+00_jprb,2.3752e+00_jprb,2.0666e+00_jprb,1.7582e+00_jprb,1.4376e+00_jprb,1.1282e+00_jprb,&
 & 8.0844e-01_jprb,4.9374e-01_jprb,2.5722e-01_jprb,2.0186e-01_jprb,3.6688e+00_jprb/)  
kao( :, 2,10,10) = (/&
 & 2.7107e+00_jprb,2.3914e+00_jprb,2.0994e+00_jprb,1.7884e+00_jprb,1.4847e+00_jprb,1.1756e+00_jprb,&
 & 8.5930e-01_jprb,5.5140e-01_jprb,3.0504e-01_jprb,2.7555e-01_jprb,3.7597e+00_jprb/)  
kao( :, 3,10,10) = (/&
 & 2.7016e+00_jprb,2.3907e+00_jprb,2.1143e+00_jprb,1.8225e+00_jprb,1.5274e+00_jprb,1.2237e+00_jprb,&
 & 9.2233e-01_jprb,6.0585e-01_jprb,3.7278e-01_jprb,3.6425e-01_jprb,3.8938e+00_jprb/)  
kao( :, 4,10,10) = (/&
 & 2.6956e+00_jprb,2.4067e+00_jprb,2.1300e+00_jprb,1.8578e+00_jprb,1.5689e+00_jprb,1.2815e+00_jprb,&
 & 9.8969e-01_jprb,6.6341e-01_jprb,4.6317e-01_jprb,4.6656e-01_jprb,4.0246e+00_jprb/)  
kao( :, 5,10,10) = (/&
 & 2.6869e+00_jprb,2.4172e+00_jprb,2.1621e+00_jprb,1.8987e+00_jprb,1.6181e+00_jprb,1.3422e+00_jprb,&
 & 1.0558e+00_jprb,7.2592e-01_jprb,5.7500e-01_jprb,5.8744e-01_jprb,4.1547e+00_jprb/)  
kao( :, 1,11,10) = (/&
 & 2.8365e+00_jprb,2.4939e+00_jprb,2.1806e+00_jprb,1.8562e+00_jprb,1.5246e+00_jprb,1.1987e+00_jprb,&
 & 8.5286e-01_jprb,5.0756e-01_jprb,2.5720e-01_jprb,1.7786e-01_jprb,5.8233e+00_jprb/)  
kao( :, 2,11,10) = (/&
 & 2.8311e+00_jprb,2.5017e+00_jprb,2.2072e+00_jprb,1.8857e+00_jprb,1.5735e+00_jprb,1.2464e+00_jprb,&
 & 9.0789e-01_jprb,5.6161e-01_jprb,3.0021e-01_jprb,2.4395e-01_jprb,5.8712e+00_jprb/)  
kao( :, 3,11,10) = (/&
 & 2.8249e+00_jprb,2.5109e+00_jprb,2.2225e+00_jprb,1.9282e+00_jprb,1.6185e+00_jprb,1.2983e+00_jprb,&
 & 9.6627e-01_jprb,6.1528e-01_jprb,3.5612e-01_jprb,3.2409e-01_jprb,5.9730e+00_jprb/)  
kao( :, 4,11,10) = (/&
 & 2.8199e+00_jprb,2.5320e+00_jprb,2.2523e+00_jprb,1.9711e+00_jprb,1.6696e+00_jprb,1.3539e+00_jprb,&
 & 1.0246e+00_jprb,6.7092e-01_jprb,4.3024e-01_jprb,4.1910e-01_jprb,6.1100e+00_jprb/)  
kao( :, 5,11,10) = (/&
 & 2.8024e+00_jprb,2.5388e+00_jprb,2.2830e+00_jprb,2.0130e+00_jprb,1.7222e+00_jprb,1.4150e+00_jprb,&
 & 1.0853e+00_jprb,7.3326e-01_jprb,5.2958e-01_jprb,5.3082e-01_jprb,6.2451e+00_jprb/)  
kao( :, 1,12,10) = (/&
 & 2.9007e+00_jprb,2.5522e+00_jprb,2.2455e+00_jprb,1.9136e+00_jprb,1.5844e+00_jprb,1.2502e+00_jprb,&
 & 8.9520e-01_jprb,5.2570e-01_jprb,2.5575e-01_jprb,1.5969e-01_jprb,6.7808e+00_jprb/)  
kao( :, 2,12,10) = (/&
 & 2.8957e+00_jprb,2.5649e+00_jprb,2.2681e+00_jprb,1.9492e+00_jprb,1.6332e+00_jprb,1.2959e+00_jprb,&
 & 9.5066e-01_jprb,5.7358e-01_jprb,2.9740e-01_jprb,2.1707e-01_jprb,6.8136e+00_jprb/)  
kao( :, 3,12,10) = (/&
 & 2.8959e+00_jprb,2.5923e+00_jprb,2.2942e+00_jprb,1.9975e+00_jprb,1.6818e+00_jprb,1.3548e+00_jprb,&
 & 1.0083e+00_jprb,6.2153e-01_jprb,3.4695e-01_jprb,2.8857e-01_jprb,6.9134e+00_jprb/)  
kao( :, 4,12,10) = (/&
 & 2.8817e+00_jprb,2.6059e+00_jprb,2.3289e+00_jprb,2.0414e+00_jprb,1.7379e+00_jprb,1.4164e+00_jprb,&
 & 1.0650e+00_jprb,6.7585e-01_jprb,4.1101e-01_jprb,3.7695e-01_jprb,7.0381e+00_jprb/)  
kao( :, 5,12,10) = (/&
 & 2.8680e+00_jprb,2.6070e+00_jprb,2.3572e+00_jprb,2.0817e+00_jprb,1.7934e+00_jprb,1.4807e+00_jprb,&
 & 1.1194e+00_jprb,7.3817e-01_jprb,4.8817e-01_jprb,4.7434e-01_jprb,7.1520e+00_jprb/)  
kao( :, 1,13,10) = (/&
 & 2.8740e+00_jprb,2.5320e+00_jprb,2.2375e+00_jprb,1.9099e+00_jprb,1.5916e+00_jprb,1.2554e+00_jprb,&
 & 9.0824e-01_jprb,5.3705e-01_jprb,2.5121e-01_jprb,1.4664e-01_jprb,6.0411e+00_jprb/)  
kao( :, 2,13,10) = (/&
 & 2.8792e+00_jprb,2.5659e+00_jprb,2.2680e+00_jprb,1.9609e+00_jprb,1.6438e+00_jprb,1.3095e+00_jprb,&
 & 9.6448e-01_jprb,5.8102e-01_jprb,2.9305e-01_jprb,1.9412e-01_jprb,6.1051e+00_jprb/)  
kao( :, 3,13,10) = (/&
 & 2.8707e+00_jprb,2.5893e+00_jprb,2.2982e+00_jprb,2.0064e+00_jprb,1.6967e+00_jprb,1.3719e+00_jprb,&
 & 1.0233e+00_jprb,6.2659e-01_jprb,3.3990e-01_jprb,2.5773e-01_jprb,6.2169e+00_jprb/)  
kao( :, 4,13,10) = (/&
 & 2.8643e+00_jprb,2.5995e+00_jprb,2.3326e+00_jprb,2.0484e+00_jprb,1.7508e+00_jprb,1.4355e+00_jprb,&
 & 1.0824e+00_jprb,6.7916e-01_jprb,3.9630e-01_jprb,3.3349e-01_jprb,6.3137e+00_jprb/)  
kao( :, 5,13,10) = (/&
 & 2.8671e+00_jprb,2.6159e+00_jprb,2.3730e+00_jprb,2.0970e+00_jprb,1.8103e+00_jprb,1.4979e+00_jprb,&
 & 1.1399e+00_jprb,7.4021e-01_jprb,4.5873e-01_jprb,4.1936e-01_jprb,6.4289e+00_jprb/)  
kao( :, 1, 1,11) = (/&
 & 1.6613e+00_jprb,1.4866e+00_jprb,1.3853e+00_jprb,1.3300e+00_jprb,1.2682e+00_jprb,1.2323e+00_jprb,&
 & 1.3863e+00_jprb,1.6088e+00_jprb,1.7596e+00_jprb,1.8112e+00_jprb,1.8168e+00_jprb/)  
kao( :, 2, 1,11) = (/&
 & 1.6169e+00_jprb,1.4555e+00_jprb,1.4059e+00_jprb,1.3808e+00_jprb,1.3576e+00_jprb,1.4059e+00_jprb,&
 & 1.6502e+00_jprb,1.9162e+00_jprb,2.0970e+00_jprb,2.1595e+00_jprb,2.1711e+00_jprb/)  
kao( :, 3, 1,11) = (/&
 & 1.5778e+00_jprb,1.4552e+00_jprb,1.4351e+00_jprb,1.4445e+00_jprb,1.4667e+00_jprb,1.6093e+00_jprb,&
 & 1.9164e+00_jprb,2.2262e+00_jprb,2.4366e+00_jprb,2.5118e+00_jprb,2.5357e+00_jprb/)  
kao( :, 4, 1,11) = (/&
 & 1.5458e+00_jprb,1.4600e+00_jprb,1.4693e+00_jprb,1.5080e+00_jprb,1.5810e+00_jprb,1.8320e+00_jprb,&
 & 2.1847e+00_jprb,2.5375e+00_jprb,2.7777e+00_jprb,2.8639e+00_jprb,2.8977e+00_jprb/)  
kao( :, 5, 1,11) = (/&
 & 1.5169e+00_jprb,1.4756e+00_jprb,1.5189e+00_jprb,1.5745e+00_jprb,1.7149e+00_jprb,2.0625e+00_jprb,&
 & 2.4598e+00_jprb,2.8572e+00_jprb,3.1271e+00_jprb,3.2233e+00_jprb,3.2607e+00_jprb/)  

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


SUBROUTINE part8

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


kao( :, 1, 2,11) = (/&
 & 1.7931e+00_jprb,1.6027e+00_jprb,1.4692e+00_jprb,1.3591e+00_jprb,1.3119e+00_jprb,1.2053e+00_jprb,&
 & 1.2920e+00_jprb,1.4995e+00_jprb,1.6403e+00_jprb,1.6893e+00_jprb,1.7029e+00_jprb/)  
kao( :, 2, 2,11) = (/&
 & 1.7517e+00_jprb,1.5695e+00_jprb,1.4741e+00_jprb,1.4214e+00_jprb,1.3827e+00_jprb,1.3473e+00_jprb,&
 & 1.5430e+00_jprb,1.7916e+00_jprb,1.9609e+00_jprb,2.0211e+00_jprb,2.0410e+00_jprb/)  
kao( :, 3, 2,11) = (/&
 & 1.7144e+00_jprb,1.5578e+00_jprb,1.4838e+00_jprb,1.5024e+00_jprb,1.4587e+00_jprb,1.5235e+00_jprb,&
 & 1.7953e+00_jprb,2.0852e+00_jprb,2.2826e+00_jprb,2.3530e+00_jprb,2.3802e+00_jprb/)  
kao( :, 4, 2,11) = (/&
 & 1.6782e+00_jprb,1.5545e+00_jprb,1.5253e+00_jprb,1.5641e+00_jprb,1.5463e+00_jprb,1.7285e+00_jprb,&
 & 2.0611e+00_jprb,2.3939e+00_jprb,2.6193e+00_jprb,2.6996e+00_jprb,2.7281e+00_jprb/)  
kao( :, 5, 2,11) = (/&
 & 1.6444e+00_jprb,1.5616e+00_jprb,1.5898e+00_jprb,1.6106e+00_jprb,1.6616e+00_jprb,1.9596e+00_jprb,&
 & 2.3378e+00_jprb,2.7154e+00_jprb,2.9704e+00_jprb,3.0605e+00_jprb,3.0919e+00_jprb/)  
kao( :, 1, 3,11) = (/&
 & 1.9627e+00_jprb,1.7504e+00_jprb,1.5854e+00_jprb,1.4217e+00_jprb,1.3102e+00_jprb,1.1839e+00_jprb,&
 & 1.1622e+00_jprb,1.3310e+00_jprb,1.4543e+00_jprb,1.4985e+00_jprb,1.5140e+00_jprb/)  
kao( :, 2, 3,11) = (/&
 & 1.9279e+00_jprb,1.7219e+00_jprb,1.5816e+00_jprb,1.4501e+00_jprb,1.3900e+00_jprb,1.2949e+00_jprb,&
 & 1.3876e+00_jprb,1.6085e+00_jprb,1.7572e+00_jprb,1.8110e+00_jprb,1.8300e+00_jprb/)  
kao( :, 3, 3,11) = (/&
 & 1.8924e+00_jprb,1.7068e+00_jprb,1.5754e+00_jprb,1.5312e+00_jprb,1.4545e+00_jprb,1.4364e+00_jprb,&
 & 1.6346e+00_jprb,1.8944e+00_jprb,2.0697e+00_jprb,2.1336e+00_jprb,2.1557e+00_jprb/)  
kao( :, 4, 3,11) = (/&
 & 1.8571e+00_jprb,1.6996e+00_jprb,1.5918e+00_jprb,1.6013e+00_jprb,1.5297e+00_jprb,1.6118e+00_jprb,&
 & 1.8962e+00_jprb,2.1972e+00_jprb,2.4008e+00_jprb,2.4733e+00_jprb,2.4988e+00_jprb/)  
kao( :, 5, 3,11) = (/&
 & 1.8235e+00_jprb,1.6901e+00_jprb,1.6505e+00_jprb,1.6453e+00_jprb,1.6300e+00_jprb,1.8256e+00_jprb,&
 & 2.1737e+00_jprb,2.5187e+00_jprb,2.7529e+00_jprb,2.8347e+00_jprb,2.8622e+00_jprb/)  
kao( :, 1, 4,11) = (/&
 & 2.1765e+00_jprb,1.9348e+00_jprb,1.7298e+00_jprb,1.5261e+00_jprb,1.3305e+00_jprb,1.1605e+00_jprb,&
 & 1.0551e+00_jprb,1.1346e+00_jprb,1.2370e+00_jprb,1.2757e+00_jprb,1.2869e+00_jprb/)  
kao( :, 2, 4,11) = (/&
 & 2.1414e+00_jprb,1.9083e+00_jprb,1.7248e+00_jprb,1.5356e+00_jprb,1.3817e+00_jprb,1.2586e+00_jprb,&
 & 1.2309e+00_jprb,1.3912e+00_jprb,1.5177e+00_jprb,1.5661e+00_jprb,1.5799e+00_jprb/)  
kao( :, 3, 4,11) = (/&
 & 2.1021e+00_jprb,1.8834e+00_jprb,1.7158e+00_jprb,1.5815e+00_jprb,1.4532e+00_jprb,1.3786e+00_jprb,&
 & 1.4439e+00_jprb,1.6656e+00_jprb,1.8177e+00_jprb,1.8749e+00_jprb,1.8912e+00_jprb/)  
kao( :, 4, 4,11) = (/&
 & 2.0644e+00_jprb,1.8749e+00_jprb,1.7166e+00_jprb,1.6274e+00_jprb,1.5294e+00_jprb,1.5218e+00_jprb,&
 & 1.7000e+00_jprb,1.9644e+00_jprb,2.1444e+00_jprb,2.2100e+00_jprb,2.2304e+00_jprb/)  
kao( :, 5, 4,11) = (/&
 & 2.0315e+00_jprb,1.8634e+00_jprb,1.7507e+00_jprb,1.6723e+00_jprb,1.6226e+00_jprb,1.7027e+00_jprb,&
 & 1.9800e+00_jprb,2.2880e+00_jprb,2.4977e+00_jprb,2.5739e+00_jprb,2.5981e+00_jprb/)  
kao( :, 1, 5,11) = (/&
 & 2.3978e+00_jprb,2.1273e+00_jprb,1.8817e+00_jprb,1.6476e+00_jprb,1.4011e+00_jprb,1.1672e+00_jprb,&
 & 9.7083e-01_jprb,9.5214e-01_jprb,1.0369e+00_jprb,1.0689e+00_jprb,1.0768e+00_jprb/)  
kao( :, 2, 5,11) = (/&
 & 2.3540e+00_jprb,2.0936e+00_jprb,1.8768e+00_jprb,1.6491e+00_jprb,1.4389e+00_jprb,1.2340e+00_jprb,&
 & 1.1149e+00_jprb,1.1831e+00_jprb,1.2889e+00_jprb,1.3291e+00_jprb,1.3391e+00_jprb/)  
kao( :, 3, 5,11) = (/&
 & 2.3123e+00_jprb,2.0603e+00_jprb,1.8683e+00_jprb,1.6861e+00_jprb,1.4856e+00_jprb,1.3243e+00_jprb,&
 & 1.2879e+00_jprb,1.4387e+00_jprb,1.5683e+00_jprb,1.6173e+00_jprb,1.6292e+00_jprb/)  
kao( :, 4, 5,11) = (/&
 & 2.2731e+00_jprb,2.0535e+00_jprb,1.8606e+00_jprb,1.7201e+00_jprb,1.5405e+00_jprb,1.4489e+00_jprb,&
 & 1.5047e+00_jprb,1.7253e+00_jprb,1.8810e+00_jprb,1.9395e+00_jprb,1.9546e+00_jprb/)  
kao( :, 5, 5,11) = (/&
 & 2.2409e+00_jprb,2.0441e+00_jprb,1.8877e+00_jprb,1.7429e+00_jprb,1.6151e+00_jprb,1.6124e+00_jprb,&
 & 1.7700e+00_jprb,2.0422e+00_jprb,2.2271e+00_jprb,2.2953e+00_jprb,2.3139e+00_jprb/)  
kao( :, 1, 6,11) = (/&
 & 2.5958e+00_jprb,2.2974e+00_jprb,2.0142e+00_jprb,1.7617e+00_jprb,1.4801e+00_jprb,1.2138e+00_jprb,&
 & 9.4381e-01_jprb,8.0769e-01_jprb,8.5699e-01_jprb,8.8288e-01_jprb,8.8884e-01_jprb/)  
kao( :, 2, 6,11) = (/&
 & 2.5524e+00_jprb,2.2633e+00_jprb,2.0140e+00_jprb,1.7595e+00_jprb,1.5235e+00_jprb,1.2699e+00_jprb,&
 & 1.0358e+00_jprb,9.9995e-01_jprb,1.0855e+00_jprb,1.1188e+00_jprb,1.1263e+00_jprb/)  
kao( :, 3, 6,11) = (/&
 & 2.5133e+00_jprb,2.2324e+00_jprb,2.0130e+00_jprb,1.7928e+00_jprb,1.5724e+00_jprb,1.3298e+00_jprb,&
 & 1.1740e+00_jprb,1.2292e+00_jprb,1.3373e+00_jprb,1.3782e+00_jprb,1.3885e+00_jprb/)  
kao( :, 4, 6,11) = (/&
 & 2.4807e+00_jprb,2.2302e+00_jprb,2.0078e+00_jprb,1.8271e+00_jprb,1.6226e+00_jprb,1.4050e+00_jprb,&
 & 1.3553e+00_jprb,1.4899e+00_jprb,1.6221e+00_jprb,1.6724e+00_jprb,1.6846e+00_jprb/)  
kao( :, 5, 6,11) = (/&
 & 2.4531e+00_jprb,2.2259e+00_jprb,2.0295e+00_jprb,1.8622e+00_jprb,1.6727e+00_jprb,1.5327e+00_jprb,&
 & 1.5693e+00_jprb,1.7819e+00_jprb,1.9432e+00_jprb,2.0038e+00_jprb,2.0198e+00_jprb/)  
kao( :, 1, 7,11) = (/&
 & 2.7829e+00_jprb,2.4576e+00_jprb,2.1410e+00_jprb,1.8711e+00_jprb,1.5626e+00_jprb,1.2726e+00_jprb,&
 & 9.6771e-01_jprb,6.9895e-01_jprb,6.9406e-01_jprb,7.1533e-01_jprb,7.2033e-01_jprb/)  
kao( :, 2, 7,11) = (/&
 & 2.7493e+00_jprb,2.4354e+00_jprb,2.1596e+00_jprb,1.8755e+00_jprb,1.6074e+00_jprb,1.3276e+00_jprb,&
 & 1.0391e+00_jprb,8.5593e-01_jprb,8.9783e-01_jprb,9.2606e-01_jprb,9.3225e-01_jprb/)  
kao( :, 3, 7,11) = (/&
 & 2.7215e+00_jprb,2.4153e+00_jprb,2.1690e+00_jprb,1.9070e+00_jprb,1.6545e+00_jprb,1.3898e+00_jprb,&
 & 1.1226e+00_jprb,1.0453e+00_jprb,1.1294e+00_jprb,1.1648e+00_jprb,1.1728e+00_jprb/)  
kao( :, 4, 7,11) = (/&
 & 2.6975e+00_jprb,2.4170e+00_jprb,2.1702e+00_jprb,1.9430e+00_jprb,1.7107e+00_jprb,1.4568e+00_jprb,&
 & 1.2495e+00_jprb,1.2760e+00_jprb,1.3906e+00_jprb,1.4345e+00_jprb,1.4450e+00_jprb/)  
kao( :, 5, 7,11) = (/&
 & 2.6700e+00_jprb,2.4191e+00_jprb,2.1904e+00_jprb,1.9836e+00_jprb,1.7642e+00_jprb,1.5351e+00_jprb,&
 & 1.4268e+00_jprb,1.5390e+00_jprb,1.6803e+00_jprb,1.7334e+00_jprb,1.7463e+00_jprb/)  
kao( :, 1, 8,11) = (/&
 & 2.9847e+00_jprb,2.6313e+00_jprb,2.2865e+00_jprb,1.9879e+00_jprb,1.6488e+00_jprb,1.3255e+00_jprb,&
 & 9.9877e-01_jprb,6.5722e-01_jprb,5.5701e-01_jprb,5.7433e-01_jprb,5.7952e-01_jprb/)  
kao( :, 2, 8,11) = (/&
 & 2.9589e+00_jprb,2.6183e+00_jprb,2.3133e+00_jprb,2.0003e+00_jprb,1.6901e+00_jprb,1.3820e+00_jprb,&
 & 1.0665e+00_jprb,7.5791e-01_jprb,7.3569e-01_jprb,7.5906e-01_jprb,7.6418e-01_jprb/)  
kao( :, 3, 8,11) = (/&
 & 2.9382e+00_jprb,2.6052e+00_jprb,2.3281e+00_jprb,2.0270e+00_jprb,1.7422e+00_jprb,1.4465e+00_jprb,&
 & 1.1457e+00_jprb,9.0969e-01_jprb,9.4197e-01_jprb,9.7232e-01_jprb,9.7875e-01_jprb/)  
kao( :, 4, 8,11) = (/&
 & 2.9170e+00_jprb,2.6060e+00_jprb,2.3361e+00_jprb,2.0694e+00_jprb,1.8026e+00_jprb,1.5183e+00_jprb,&
 & 1.2312e+00_jprb,1.0984e+00_jprb,1.1773e+00_jprb,1.2154e+00_jprb,1.2236e+00_jprb/)  
kao( :, 5, 8,11) = (/&
 & 2.8898e+00_jprb,2.6134e+00_jprb,2.3563e+00_jprb,2.1177e+00_jprb,1.8614e+00_jprb,1.5931e+00_jprb,&
 & 1.3477e+00_jprb,1.3211e+00_jprb,1.4373e+00_jprb,1.4847e+00_jprb,1.4939e+00_jprb/)  
kao( :, 1, 9,11) = (/&
 & 3.1562e+00_jprb,2.7768e+00_jprb,2.4133e+00_jprb,2.0911e+00_jprb,1.7326e+00_jprb,1.3839e+00_jprb,&
 & 1.0276e+00_jprb,6.4719e-01_jprb,4.4660e-01_jprb,4.5187e-01_jprb,1.3511e+00_jprb/)  
kao( :, 2, 9,11) = (/&
 & 3.1384e+00_jprb,2.7738e+00_jprb,2.4447e+00_jprb,2.1155e+00_jprb,1.7788e+00_jprb,1.4436e+00_jprb,&
 & 1.0888e+00_jprb,7.2585e-01_jprb,5.9330e-01_jprb,6.1102e-01_jprb,1.4527e+00_jprb/)  
kao( :, 3, 9,11) = (/&
 & 3.1307e+00_jprb,2.7744e+00_jprb,2.4761e+00_jprb,2.1489e+00_jprb,1.8392e+00_jprb,1.5081e+00_jprb,&
 & 1.1726e+00_jprb,8.2343e-01_jprb,7.7078e-01_jprb,7.9585e-01_jprb,1.5858e+00_jprb/)  
kao( :, 4, 9,11) = (/&
 & 3.1198e+00_jprb,2.7814e+00_jprb,2.4948e+00_jprb,2.2031e+00_jprb,1.9038e+00_jprb,1.5809e+00_jprb,&
 & 1.2536e+00_jprb,9.6368e-01_jprb,9.7557e-01_jprb,1.0082e+00_jprb,1.7168e+00_jprb/)  
kao( :, 5, 9,11) = (/&
 & 3.0996e+00_jprb,2.7968e+00_jprb,2.5179e+00_jprb,2.2589e+00_jprb,1.9623e+00_jprb,1.6560e+00_jprb,&
 & 1.3493e+00_jprb,1.1417e+00_jprb,1.2025e+00_jprb,1.2431e+00_jprb,1.8589e+00_jprb/)  
kao( :, 1,10,11) = (/&
 & 3.3334e+00_jprb,2.9275e+00_jprb,2.5435e+00_jprb,2.1899e+00_jprb,1.8099e+00_jprb,1.4340e+00_jprb,&
 & 1.0600e+00_jprb,6.4816e-01_jprb,3.7397e-01_jprb,3.5551e-01_jprb,5.2534e+00_jprb/)  
kao( :, 2,10,11) = (/&
 & 3.3403e+00_jprb,2.9437e+00_jprb,2.5854e+00_jprb,2.2265e+00_jprb,1.8583e+00_jprb,1.5038e+00_jprb,&
 & 1.1221e+00_jprb,7.2216e-01_jprb,4.8652e-01_jprb,4.8944e-01_jprb,5.3617e+00_jprb/)  
kao( :, 3,10,11) = (/&
 & 3.3507e+00_jprb,2.9656e+00_jprb,2.6315e+00_jprb,2.2679e+00_jprb,1.9297e+00_jprb,1.5737e+00_jprb,&
 & 1.2011e+00_jprb,8.0616e-01_jprb,6.2998e-01_jprb,6.4742e-01_jprb,5.5025e+00_jprb/)  
kao( :, 4,10,11) = (/&
 & 3.3473e+00_jprb,2.9767e+00_jprb,2.6569e+00_jprb,2.3310e+00_jprb,1.9983e+00_jprb,1.6498e+00_jprb,&
 & 1.2844e+00_jprb,9.0267e-01_jprb,8.0194e-01_jprb,8.2874e-01_jprb,5.7004e+00_jprb/)  
kao( :, 5,10,11) = (/&
 & 3.3392e+00_jprb,3.0005e+00_jprb,2.6833e+00_jprb,2.3869e+00_jprb,2.0631e+00_jprb,1.7311e+00_jprb,&
 & 1.3746e+00_jprb,1.0270e+00_jprb,9.9701e-01_jprb,1.0314e+00_jprb,5.9087e+00_jprb/)  
kao( :, 1,11,11) = (/&
 & 3.5791e+00_jprb,3.1435e+00_jprb,2.7380e+00_jprb,2.3402e+00_jprb,1.9223e+00_jprb,1.5197e+00_jprb,&
 & 1.1123e+00_jprb,6.8009e-01_jprb,3.6796e-01_jprb,3.2253e-01_jprb,8.7180e+00_jprb/)  
kao( :, 2,11,11) = (/&
 & 3.6087e+00_jprb,3.1771e+00_jprb,2.7948e+00_jprb,2.3883e+00_jprb,1.9888e+00_jprb,1.5919e+00_jprb,&
 & 1.1796e+00_jprb,7.5512e-01_jprb,4.5552e-01_jprb,4.4047e-01_jprb,8.8675e+00_jprb/)  
kao( :, 3,11,11) = (/&
 & 3.6204e+00_jprb,3.2046e+00_jprb,2.8376e+00_jprb,2.4402e+00_jprb,2.0562e+00_jprb,1.6610e+00_jprb,&
 & 1.2640e+00_jprb,8.3788e-01_jprb,5.7436e-01_jprb,5.8089e-01_jprb,8.9648e+00_jprb/)  
kao( :, 4,11,11) = (/&
 & 3.6182e+00_jprb,3.2254e+00_jprb,2.8581e+00_jprb,2.4960e+00_jprb,2.1196e+00_jprb,1.7427e+00_jprb,&
 & 1.3559e+00_jprb,9.2621e-01_jprb,7.2423e-01_jprb,7.4487e-01_jprb,9.1149e+00_jprb/)  
kao( :, 5,11,11) = (/&
 & 3.6174e+00_jprb,3.2471e+00_jprb,2.8980e+00_jprb,2.5529e+00_jprb,2.1857e+00_jprb,1.8304e+00_jprb,&
 & 1.4477e+00_jprb,1.0248e+00_jprb,8.9846e-01_jprb,9.2879e-01_jprb,9.3291e+00_jprb/)  
kao( :, 1,12,11) = (/&
 & 3.8356e+00_jprb,3.3697e+00_jprb,2.9444e+00_jprb,2.5088e+00_jprb,2.0569e+00_jprb,1.6203e+00_jprb,&
 & 1.1634e+00_jprb,7.0598e-01_jprb,3.6756e-01_jprb,2.8729e-01_jprb,1.0641e+01_jprb/)  
kao( :, 2,12,11) = (/&
 & 3.8609e+00_jprb,3.3997e+00_jprb,3.0019e+00_jprb,2.5600e+00_jprb,2.1300e+00_jprb,1.6898e+00_jprb,&
 & 1.2364e+00_jprb,7.8348e-01_jprb,4.3743e-01_jprb,3.9283e-01_jprb,1.0771e+01_jprb/)  
kao( :, 3,12,11) = (/&
 & 3.8613e+00_jprb,3.4230e+00_jprb,3.0314e+00_jprb,2.6152e+00_jprb,2.1935e+00_jprb,1.7589e+00_jprb,&
 & 1.3202e+00_jprb,8.6394e-01_jprb,5.3376e-01_jprb,5.1970e-01_jprb,1.0841e+01_jprb/)  
kao( :, 4,12,11) = (/&
 & 3.8625e+00_jprb,3.4569e+00_jprb,3.0618e+00_jprb,2.6703e+00_jprb,2.2548e+00_jprb,1.8353e+00_jprb,&
 & 1.4152e+00_jprb,9.4767e-01_jprb,6.5928e-01_jprb,6.6542e-01_jprb,1.0973e+01_jprb/)  
kao( :, 5,12,11) = (/&
 & 3.8581e+00_jprb,3.4796e+00_jprb,3.1105e+00_jprb,2.7293e+00_jprb,2.3221e+00_jprb,1.9216e+00_jprb,&
 & 1.5109e+00_jprb,1.0379e+00_jprb,8.1824e-01_jprb,8.3851e-01_jprb,1.1187e+01_jprb/)  
kao( :, 1,13,11) = (/&
 & 3.9871e+00_jprb,3.5054e+00_jprb,3.0792e+00_jprb,2.6225e+00_jprb,2.1590e+00_jprb,1.6999e+00_jprb,&
 & 1.2116e+00_jprb,7.2436e-01_jprb,3.6726e-01_jprb,2.5477e-01_jprb,9.9516e+00_jprb/)  
kao( :, 2,13,11) = (/&
 & 3.9908e+00_jprb,3.5178e+00_jprb,3.1201e+00_jprb,2.6682e+00_jprb,2.2282e+00_jprb,1.7642e+00_jprb,&
 & 1.2901e+00_jprb,8.0058e-01_jprb,4.3056e-01_jprb,3.4969e-01_jprb,1.0028e+01_jprb/)  
kao( :, 3,13,11) = (/&
 & 3.9925e+00_jprb,3.5529e+00_jprb,3.1500e+00_jprb,2.7322e+00_jprb,2.2922e+00_jprb,1.8395e+00_jprb,&
 & 1.3733e+00_jprb,8.8117e-01_jprb,5.1140e-01_jprb,4.6457e-01_jprb,1.0124e+01_jprb/)  
kao( :, 4,13,11) = (/&
 & 3.9936e+00_jprb,3.5963e+00_jprb,3.1980e+00_jprb,2.7942e+00_jprb,2.3651e+00_jprb,1.9195e+00_jprb,&
 & 1.4609e+00_jprb,9.6392e-01_jprb,6.1546e-01_jprb,5.9986e-01_jprb,1.0319e+01_jprb/)  
kao( :, 5,13,11) = (/&
 & 3.9766e+00_jprb,3.6110e+00_jprb,3.2440e+00_jprb,2.8558e+00_jprb,2.4407e+00_jprb,2.0092e+00_jprb,&
 & 1.5546e+00_jprb,1.0530e+00_jprb,7.5480e-01_jprb,7.6043e-01_jprb,1.0517e+01_jprb/)  
kao( :, 1, 1,12) = (/&
 & 2.0024e+00_jprb,1.8234e+00_jprb,1.7233e+00_jprb,1.6000e+00_jprb,1.5390e+00_jprb,1.6921e+00_jprb,&
 & 2.0059e+00_jprb,2.3183e+00_jprb,2.5294e+00_jprb,2.5972e+00_jprb,2.5881e+00_jprb/)  
kao( :, 2, 1,12) = (/&
 & 1.9590e+00_jprb,1.7950e+00_jprb,1.7523e+00_jprb,1.6313e+00_jprb,1.6912e+00_jprb,2.0086e+00_jprb,&
 & 2.3854e+00_jprb,2.7609e+00_jprb,3.0136e+00_jprb,3.0926e+00_jprb,3.0692e+00_jprb/)  
kao( :, 3, 1,12) = (/&
 & 1.9218e+00_jprb,1.7695e+00_jprb,1.7573e+00_jprb,1.7104e+00_jprb,1.9221e+00_jprb,2.3617e+00_jprb,&
 & 2.8084e+00_jprb,3.2536e+00_jprb,3.5528e+00_jprb,3.6452e+00_jprb,3.6033e+00_jprb/)  
kao( :, 4, 1,12) = (/&
 & 1.8869e+00_jprb,1.7776e+00_jprb,1.7584e+00_jprb,1.8482e+00_jprb,2.2062e+00_jprb,2.7254e+00_jprb,&
 & 3.2420e+00_jprb,3.7568e+00_jprb,4.1037e+00_jprb,4.2125e+00_jprb,4.1721e+00_jprb/)  
kao( :, 5, 1,12) = (/&
 & 1.8556e+00_jprb,1.7835e+00_jprb,1.7826e+00_jprb,2.0106e+00_jprb,2.5078e+00_jprb,3.0956e+00_jprb,&
 & 3.6815e+00_jprb,4.2658e+00_jprb,4.6607e+00_jprb,4.7891e+00_jprb,4.7658e+00_jprb/)  
kao( :, 1, 2,12) = (/&
 & 2.1298e+00_jprb,1.9238e+00_jprb,1.7993e+00_jprb,1.6635e+00_jprb,1.5382e+00_jprb,1.6444e+00_jprb,&
 & 1.9357e+00_jprb,2.2355e+00_jprb,2.4380e+00_jprb,2.5040e+00_jprb,2.5099e+00_jprb/)  
kao( :, 2, 2,12) = (/&
 & 2.0858e+00_jprb,1.8949e+00_jprb,1.8227e+00_jprb,1.6898e+00_jprb,1.7064e+00_jprb,1.9739e+00_jprb,&
 & 2.3396e+00_jprb,2.7042e+00_jprb,2.9505e+00_jprb,3.0304e+00_jprb,3.0347e+00_jprb/)  
kao( :, 3, 2,12) = (/&
 & 2.0506e+00_jprb,1.8767e+00_jprb,1.8261e+00_jprb,1.7610e+00_jprb,1.9334e+00_jprb,2.3331e+00_jprb,&
 & 2.7675e+00_jprb,3.2005e+00_jprb,3.4937e+00_jprb,3.5905e+00_jprb,3.6006e+00_jprb/)  
kao( :, 4, 2,12) = (/&
 & 2.0203e+00_jprb,1.8859e+00_jprb,1.8248e+00_jprb,1.8919e+00_jprb,2.2034e+00_jprb,2.7037e+00_jprb,&
 & 3.2087e+00_jprb,3.7127e+00_jprb,4.0556e+00_jprb,4.1705e+00_jprb,4.1872e+00_jprb/)  
kao( :, 5, 2,12) = (/&
 & 1.9908e+00_jprb,1.8904e+00_jprb,1.8512e+00_jprb,2.0461e+00_jprb,2.4857e+00_jprb,3.0612e+00_jprb,&
 & 3.6347e+00_jprb,4.2084e+00_jprb,4.6000e+00_jprb,4.7320e+00_jprb,4.7545e+00_jprb/)  
kao( :, 1, 3,12) = (/&
 & 2.3152e+00_jprb,2.0670e+00_jprb,1.8762e+00_jprb,1.7274e+00_jprb,1.5513e+00_jprb,1.5459e+00_jprb,&
 & 1.7613e+00_jprb,2.0324e+00_jprb,2.2184e+00_jprb,2.2809e+00_jprb,2.3001e+00_jprb/)  
kao( :, 2, 3,12) = (/&
 & 2.2611e+00_jprb,2.0302e+00_jprb,1.8953e+00_jprb,1.7501e+00_jprb,1.6877e+00_jprb,1.8252e+00_jprb,&
 & 2.1469e+00_jprb,2.4814e+00_jprb,2.7105e+00_jprb,2.7886e+00_jprb,2.8127e+00_jprb/)  
kao( :, 3, 3,12) = (/&
 & 2.2196e+00_jprb,2.0024e+00_jprb,1.9041e+00_jprb,1.8045e+00_jprb,1.8785e+00_jprb,2.1610e+00_jprb,&
 & 2.5580e+00_jprb,2.9591e+00_jprb,3.2348e+00_jprb,3.3294e+00_jprb,3.3602e+00_jprb/)  
kao( :, 4, 3,12) = (/&
 & 2.1813e+00_jprb,2.0049e+00_jprb,1.9086e+00_jprb,1.9162e+00_jprb,2.1012e+00_jprb,2.5182e+00_jprb,&
 & 2.9831e+00_jprb,3.4549e+00_jprb,3.7770e+00_jprb,3.8911e+00_jprb,3.9291e+00_jprb/)  
kao( :, 5, 3,12) = (/&
 & 2.1479e+00_jprb,2.0113e+00_jprb,1.9331e+00_jprb,2.0520e+00_jprb,2.3502e+00_jprb,2.8679e+00_jprb,&
 & 3.4008e+00_jprb,3.9406e+00_jprb,4.3094e+00_jprb,4.4428e+00_jprb,4.4869e+00_jprb/)  
kao( :, 1, 4,12) = (/&
 & 2.5457e+00_jprb,2.2591e+00_jprb,2.0008e+00_jprb,1.7948e+00_jprb,1.5715e+00_jprb,1.4721e+00_jprb,&
 & 1.5451e+00_jprb,1.7860e+00_jprb,1.9513e+00_jprb,2.0089e+00_jprb,2.0285e+00_jprb/)  
kao( :, 2, 4,12) = (/&
 & 2.4902e+00_jprb,2.2151e+00_jprb,2.0050e+00_jprb,1.8035e+00_jprb,1.6846e+00_jprb,1.6830e+00_jprb,&
 & 1.9079e+00_jprb,2.2087e+00_jprb,2.4143e+00_jprb,2.4852e+00_jprb,2.5099e+00_jprb/)  
kao( :, 3, 4,12) = (/&
 & 2.4431e+00_jprb,2.1812e+00_jprb,2.0033e+00_jprb,1.8558e+00_jprb,1.8346e+00_jprb,1.9529e+00_jprb,&
 & 2.2983e+00_jprb,2.6628e+00_jprb,2.9108e+00_jprb,2.9983e+00_jprb,3.0280e+00_jprb/)  
kao( :, 4, 4,12) = (/&
 & 2.3979e+00_jprb,2.1681e+00_jprb,1.9996e+00_jprb,1.9562e+00_jprb,2.0099e+00_jprb,2.2734e+00_jprb,&
 & 2.7005e+00_jprb,3.1310e+00_jprb,3.4248e+00_jprb,3.5296e+00_jprb,3.5651e+00_jprb/)  
kao( :, 5, 4,12) = (/&
 & 2.3549e+00_jprb,2.1677e+00_jprb,2.0250e+00_jprb,2.0706e+00_jprb,2.2012e+00_jprb,2.6084e+00_jprb,&
 & 3.1023e+00_jprb,3.5987e+00_jprb,3.9377e+00_jprb,4.0590e+00_jprb,4.0984e+00_jprb/)  
kao( :, 1, 5,12) = (/&
 & 2.7985e+00_jprb,2.4747e+00_jprb,2.1629e+00_jprb,1.9120e+00_jprb,1.6257e+00_jprb,1.4332e+00_jprb,&
 & 1.3851e+00_jprb,1.5480e+00_jprb,1.6917e+00_jprb,1.7423e+00_jprb,1.7595e+00_jprb/)  
kao( :, 2, 5,12) = (/&
 & 2.7492e+00_jprb,2.4385e+00_jprb,2.1709e+00_jprb,1.9088e+00_jprb,1.7063e+00_jprb,1.6093e+00_jprb,&
 & 1.6827e+00_jprb,1.9416e+00_jprb,2.1228e+00_jprb,2.1868e+00_jprb,2.2077e+00_jprb/)  
kao( :, 3, 5,12) = (/&
 & 2.7030e+00_jprb,2.4052e+00_jprb,2.1654e+00_jprb,1.9357e+00_jprb,1.8221e+00_jprb,1.8325e+00_jprb,&
 & 2.0441e+00_jprb,2.3696e+00_jprb,2.5914e+00_jprb,2.6707e+00_jprb,2.6969e+00_jprb/)  
kao( :, 4, 5,12) = (/&
 & 2.6567e+00_jprb,2.3812e+00_jprb,2.1576e+00_jprb,2.0192e+00_jprb,1.9790e+00_jprb,2.0835e+00_jprb,&
 & 2.4268e+00_jprb,2.8144e+00_jprb,3.0796e+00_jprb,3.1741e+00_jprb,3.2046e+00_jprb/)  
kao( :, 5, 5,12) = (/&
 & 2.6110e+00_jprb,2.3730e+00_jprb,2.1635e+00_jprb,2.1182e+00_jprb,2.1485e+00_jprb,2.3741e+00_jprb,&
 & 2.8181e+00_jprb,3.2699e+00_jprb,3.5786e+00_jprb,3.6897e+00_jprb,3.7249e+00_jprb/)  
kao( :, 1, 6,12) = (/&
 & 3.0669e+00_jprb,2.7085e+00_jprb,2.3540e+00_jprb,2.0714e+00_jprb,1.7429e+00_jprb,1.4581e+00_jprb,&
 & 1.2708e+00_jprb,1.2992e+00_jprb,1.4199e+00_jprb,1.4638e+00_jprb,1.4769e+00_jprb/)  
kao( :, 2, 6,12) = (/&
 & 3.0273e+00_jprb,2.6834e+00_jprb,2.3740e+00_jprb,2.0802e+00_jprb,1.7965e+00_jprb,1.5717e+00_jprb,&
 & 1.5052e+00_jprb,1.6583e+00_jprb,1.8132e+00_jprb,1.8699e+00_jprb,1.8859e+00_jprb/)  
kao( :, 3, 6,12) = (/&
 & 2.9774e+00_jprb,2.6481e+00_jprb,2.3757e+00_jprb,2.0942e+00_jprb,1.8671e+00_jprb,1.7544e+00_jprb,&
 & 1.8026e+00_jprb,2.0622e+00_jprb,2.2566e+00_jprb,2.3275e+00_jprb,2.3474e+00_jprb/)  
kao( :, 4, 6,12) = (/&
 & 2.9289e+00_jprb,2.6161e+00_jprb,2.3748e+00_jprb,2.1584e+00_jprb,1.9838e+00_jprb,1.9738e+00_jprb,&
 & 2.1469e+00_jprb,2.4888e+00_jprb,2.7236e+00_jprb,2.8101e+00_jprb,2.8355e+00_jprb/)  
kao( :, 5, 6,12) = (/&
 & 2.8845e+00_jprb,2.6155e+00_jprb,2.3754e+00_jprb,2.2196e+00_jprb,2.1301e+00_jprb,2.2099e+00_jprb,&
 & 2.5314e+00_jprb,2.9385e+00_jprb,3.2168e+00_jprb,3.3176e+00_jprb,3.3483e+00_jprb/)  
kao( :, 1, 7,12) = (/&
 & 3.3664e+00_jprb,2.9675e+00_jprb,2.5762e+00_jprb,2.2561e+00_jprb,1.8881e+00_jprb,1.5413e+00_jprb,&
 & 1.2170e+00_jprb,1.0953e+00_jprb,1.1799e+00_jprb,1.2170e+00_jprb,1.2273e+00_jprb/)  
kao( :, 2, 7,12) = (/&
 & 3.3233e+00_jprb,2.9434e+00_jprb,2.5928e+00_jprb,2.2752e+00_jprb,1.9335e+00_jprb,1.6227e+00_jprb,&
 & 1.3832e+00_jprb,1.3998e+00_jprb,1.5310e+00_jprb,1.5791e+00_jprb,1.5922e+00_jprb/)  
kao( :, 3, 7,12) = (/&
 & 3.2746e+00_jprb,2.9093e+00_jprb,2.6019e+00_jprb,2.2869e+00_jprb,2.0053e+00_jprb,1.7360e+00_jprb,&
 & 1.6231e+00_jprb,1.7636e+00_jprb,1.9299e+00_jprb,1.9918e+00_jprb,2.0082e+00_jprb/)  
kao( :, 4, 7,12) = (/&
 & 3.2312e+00_jprb,2.8766e+00_jprb,2.6067e+00_jprb,2.3470e+00_jprb,2.0847e+00_jprb,1.8980e+00_jprb,&
 & 1.9031e+00_jprb,2.1576e+00_jprb,2.3620e+00_jprb,2.4387e+00_jprb,2.4578e+00_jprb/)  
kao( :, 5, 7,12) = (/&
 & 3.1925e+00_jprb,2.8793e+00_jprb,2.6061e+00_jprb,2.4035e+00_jprb,2.1834e+00_jprb,2.1023e+00_jprb,&
 & 2.2418e+00_jprb,2.5923e+00_jprb,2.8385e+00_jprb,2.9297e+00_jprb,2.9542e+00_jprb/)  
kao( :, 1, 8,12) = (/&
 & 3.6796e+00_jprb,3.2357e+00_jprb,2.8155e+00_jprb,2.4508e+00_jprb,2.0518e+00_jprb,1.6449e+00_jprb,&
 & 1.2564e+00_jprb,9.4794e-01_jprb,9.6423e-01_jprb,9.9527e-01_jprb,1.0031e+00_jprb/)  
kao( :, 2, 8,12) = (/&
 & 3.6371e+00_jprb,3.2182e+00_jprb,2.8214e+00_jprb,2.4857e+00_jprb,2.0950e+00_jprb,1.7292e+00_jprb,&
 & 1.3545e+00_jprb,1.1961e+00_jprb,1.2815e+00_jprb,1.3224e+00_jprb,1.3335e+00_jprb/)  

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


SUBROUTINE part9

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


kao( :, 3, 8,12) = (/&
 & 3.5989e+00_jprb,3.1965e+00_jprb,2.8529e+00_jprb,2.5009e+00_jprb,2.1656e+00_jprb,1.8143e+00_jprb,&
 & 1.5162e+00_jprb,1.5048e+00_jprb,1.6425e+00_jprb,1.6953e+00_jprb,1.7094e+00_jprb/)  
kao( :, 4, 8,12) = (/&
 & 3.5657e+00_jprb,3.1726e+00_jprb,2.8689e+00_jprb,2.5490e+00_jprb,2.2397e+00_jprb,1.9179e+00_jprb,&
 & 1.7462e+00_jprb,1.8651e+00_jprb,2.0421e+00_jprb,2.1078e+00_jprb,2.1252e+00_jprb/)  
kao( :, 5, 8,12) = (/&
 & 3.5352e+00_jprb,3.1791e+00_jprb,2.8690e+00_jprb,2.6021e+00_jprb,2.3244e+00_jprb,2.0668e+00_jprb,&
 & 2.0251e+00_jprb,2.2682e+00_jprb,2.4843e+00_jprb,2.5643e+00_jprb,2.5857e+00_jprb/)  
kao( :, 1, 9,12) = (/&
 & 4.0318e+00_jprb,3.5333e+00_jprb,3.0785e+00_jprb,2.6542e+00_jprb,2.2190e+00_jprb,1.7557e+00_jprb,&
 & 1.3174e+00_jprb,8.6677e-01_jprb,7.7038e-01_jprb,7.9546e-01_jprb,1.7542e+00_jprb/)  
kao( :, 2, 9,12) = (/&
 & 4.0030e+00_jprb,3.5307e+00_jprb,3.0824e+00_jprb,2.7001e+00_jprb,2.2575e+00_jprb,1.8461e+00_jprb,&
 & 1.4064e+00_jprb,1.0445e+00_jprb,1.0532e+00_jprb,1.0871e+00_jprb,1.8981e+00_jprb/)  
kao( :, 3, 9,12) = (/&
 & 3.9727e+00_jprb,3.5227e+00_jprb,3.1268e+00_jprb,2.7209e+00_jprb,2.3294e+00_jprb,1.9265e+00_jprb,&
 & 1.5119e+00_jprb,1.3023e+00_jprb,1.3838e+00_jprb,1.4291e+00_jprb,2.0473e+00_jprb/)  
kao( :, 4, 9,12) = (/&
 & 3.9416e+00_jprb,3.5045e+00_jprb,3.1488e+00_jprb,2.7628e+00_jprb,2.4024e+00_jprb,2.0175e+00_jprb,&
 & 1.6727e+00_jprb,1.6129e+00_jprb,1.7549e+00_jprb,1.8115e+00_jprb,2.2264e+00_jprb/)  
kao( :, 5, 9,12) = (/&
 & 3.9107e+00_jprb,3.5025e+00_jprb,3.1553e+00_jprb,2.8210e+00_jprb,2.4858e+00_jprb,2.1278e+00_jprb,&
 & 1.8886e+00_jprb,1.9733e+00_jprb,2.1611e+00_jprb,2.2311e+00_jprb,2.4535e+00_jprb/)  
kao( :, 1,10,12) = (/&
 & 4.3955e+00_jprb,3.8477e+00_jprb,3.3521e+00_jprb,2.8767e+00_jprb,2.3926e+00_jprb,1.8785e+00_jprb,&
 & 1.3866e+00_jprb,8.6336e-01_jprb,6.3346e-01_jprb,6.4780e-01_jprb,7.3111e+00_jprb/)  
kao( :, 2,10,12) = (/&
 & 4.3744e+00_jprb,3.8521e+00_jprb,3.3628e+00_jprb,2.9299e+00_jprb,2.4350e+00_jprb,1.9605e+00_jprb,&
 & 1.4761e+00_jprb,9.8354e-01_jprb,8.7753e-01_jprb,9.0596e-01_jprb,7.5369e+00_jprb/)  
kao( :, 3,10,12) = (/&
 & 4.3454e+00_jprb,3.8426e+00_jprb,3.4089e+00_jprb,2.9580e+00_jprb,2.5003e+00_jprb,2.0431e+00_jprb,&
 & 1.5702e+00_jprb,1.1751e+00_jprb,1.1717e+00_jprb,1.2103e+00_jprb,7.6962e+00_jprb/)  
kao( :, 4,10,12) = (/&
 & 4.3187e+00_jprb,3.8382e+00_jprb,3.4396e+00_jprb,2.9970e+00_jprb,2.5770e+00_jprb,2.1340e+00_jprb,&
 & 1.7005e+00_jprb,1.4326e+00_jprb,1.5105e+00_jprb,1.5607e+00_jprb,7.8986e+00_jprb/)  
kao( :, 5,10,12) = (/&
 & 4.2903e+00_jprb,3.8382e+00_jprb,3.4516e+00_jprb,3.0612e+00_jprb,2.6632e+00_jprb,2.2380e+00_jprb,&
 & 1.8630e+00_jprb,1.7458e+00_jprb,1.8899e+00_jprb,1.9522e+00_jprb,8.1725e+00_jprb/)  
kao( :, 1,11,12) = (/&
 & 4.7308e+00_jprb,4.1459e+00_jprb,3.6107e+00_jprb,3.1115e+00_jprb,2.5799e+00_jprb,2.0280e+00_jprb,&
 & 1.4948e+00_jprb,9.2025e-01_jprb,6.1405e-01_jprb,6.1696e-01_jprb,1.2757e+01_jprb/)  
kao( :, 2,11,12) = (/&
 & 4.7091e+00_jprb,4.1481e+00_jprb,3.6443e+00_jprb,3.1635e+00_jprb,2.6293e+00_jprb,2.1180e+00_jprb,&
 & 1.5850e+00_jprb,1.0412e+00_jprb,8.3722e-01_jprb,8.6133e-01_jprb,1.3027e+01_jprb/)  
kao( :, 3,11,12) = (/&
 & 4.6897e+00_jprb,4.1435e+00_jprb,3.6990e+00_jprb,3.1970e+00_jprb,2.7141e+00_jprb,2.2094e+00_jprb,&
 & 1.6909e+00_jprb,1.1958e+00_jprb,1.1123e+00_jprb,1.1498e+00_jprb,1.3314e+01_jprb/)  
kao( :, 4,11,12) = (/&
 & 4.6692e+00_jprb,4.1531e+00_jprb,3.7297e+00_jprb,3.2622e+00_jprb,2.7974e+00_jprb,2.3063e+00_jprb,&
 & 1.8183e+00_jprb,1.4163e+00_jprb,1.4330e+00_jprb,1.4813e+00_jprb,1.3489e+01_jprb/)  
kao( :, 5,11,12) = (/&
 & 4.6420e+00_jprb,4.1769e+00_jprb,3.7456e+00_jprb,3.3296e+00_jprb,2.8874e+00_jprb,2.4151e+00_jprb,&
 & 1.9751e+00_jprb,1.6959e+00_jprb,1.7942e+00_jprb,1.8551e+00_jprb,1.3680e+01_jprb/)  
kao( :, 1,12,12) = (/&
 & 5.0416e+00_jprb,4.4234e+00_jprb,3.8522e+00_jprb,3.3241e+00_jprb,2.7470e+00_jprb,2.1693e+00_jprb,&
 & 1.6007e+00_jprb,9.8107e-01_jprb,5.9628e-01_jprb,5.7876e-01_jprb,1.6383e+01_jprb/)  
kao( :, 2,12,12) = (/&
 & 5.0347e+00_jprb,4.4335e+00_jprb,3.9118e+00_jprb,3.3765e+00_jprb,2.8152e+00_jprb,2.2721e+00_jprb,&
 & 1.6921e+00_jprb,1.0981e+00_jprb,7.9216e-01_jprb,8.0484e-01_jprb,1.6695e+01_jprb/)  
kao( :, 3,12,12) = (/&
 & 5.0354e+00_jprb,4.4439e+00_jprb,3.9725e+00_jprb,3.4283e+00_jprb,2.9170e+00_jprb,2.3708e+00_jprb,&
 & 1.8115e+00_jprb,1.2441e+00_jprb,1.0402e+00_jprb,1.0726e+00_jprb,1.7028e+01_jprb/)  
kao( :, 4,12,12) = (/&
 & 5.0236e+00_jprb,4.4684e+00_jprb,4.0052e+00_jprb,3.5139e+00_jprb,3.0129e+00_jprb,2.4842e+00_jprb,&
 & 1.9405e+00_jprb,1.4225e+00_jprb,1.3339e+00_jprb,1.3805e+00_jprb,1.7215e+01_jprb/)  
kao( :, 5,12,12) = (/&
 & 5.0049e+00_jprb,4.5094e+00_jprb,4.0368e+00_jprb,3.5937e+00_jprb,3.1097e+00_jprb,2.6019e+00_jprb,&
 & 2.0929e+00_jprb,1.6533e+00_jprb,1.6680e+00_jprb,1.7268e+00_jprb,1.7382e+01_jprb/)  
kao( :, 1,13,12) = (/&
 & 5.3304e+00_jprb,4.6811e+00_jprb,4.0819e+00_jprb,3.5134e+00_jprb,2.8970e+00_jprb,2.2995e+00_jprb,&
 & 1.6906e+00_jprb,1.0389e+00_jprb,5.8422e-01_jprb,5.3149e-01_jprb,1.6186e+01_jprb/)  
kao( :, 2,13,12) = (/&
 & 5.3554e+00_jprb,4.7152e+00_jprb,4.1740e+00_jprb,3.5813e+00_jprb,2.9917e+00_jprb,2.4106e+00_jprb,&
 & 1.7931e+00_jprb,1.1573e+00_jprb,7.4488e-01_jprb,7.3540e-01_jprb,1.6553e+01_jprb/)  
kao( :, 3,13,12) = (/&
 & 5.3653e+00_jprb,4.7361e+00_jprb,4.2367e+00_jprb,3.6559e+00_jprb,3.0996e+00_jprb,2.5206e+00_jprb,&
 & 1.9222e+00_jprb,1.2910e+00_jprb,9.5651e-01_jprb,9.7652e-01_jprb,1.6790e+01_jprb/)  
kao( :, 4,13,12) = (/&
 & 5.3597e+00_jprb,4.7768e+00_jprb,4.2708e+00_jprb,3.7474e+00_jprb,3.2027e+00_jprb,2.6474e+00_jprb,&
 & 2.0605e+00_jprb,1.4452e+00_jprb,1.2190e+00_jprb,1.2583e+00_jprb,1.6940e+01_jprb/)  
kao( :, 5,13,12) = (/&
 & 5.3540e+00_jprb,4.8243e+00_jprb,4.3295e+00_jprb,3.8360e+00_jprb,3.3105e+00_jprb,2.7756e+00_jprb,&
 & 2.2095e+00_jprb,1.6297e+00_jprb,1.5189e+00_jprb,1.5724e+00_jprb,1.7194e+01_jprb/)  
kao( :, 1, 1,13) = (/&
 & 2.4839e+00_jprb,2.2228e+00_jprb,1.9877e+00_jprb,1.9817e+00_jprb,2.1295e+00_jprb,2.6064e+00_jprb,&
 & 3.1026e+00_jprb,3.6009e+00_jprb,3.9384e+00_jprb,4.0531e+00_jprb,4.0630e+00_jprb/)  
kao( :, 2, 1,13) = (/&
 & 2.4167e+00_jprb,2.1788e+00_jprb,2.0545e+00_jprb,2.1075e+00_jprb,2.4600e+00_jprb,3.0319e+00_jprb,&
 & 3.6075e+00_jprb,4.1850e+00_jprb,4.5773e+00_jprb,4.7124e+00_jprb,4.7383e+00_jprb/)  
kao( :, 3, 1,13) = (/&
 & 2.3519e+00_jprb,2.1341e+00_jprb,2.1343e+00_jprb,2.2717e+00_jprb,2.8227e+00_jprb,3.4785e+00_jprb,&
 & 4.1394e+00_jprb,4.8027e+00_jprb,5.2528e+00_jprb,5.4080e+00_jprb,5.4468e+00_jprb/)  
kao( :, 4, 1,13) = (/&
 & 2.2895e+00_jprb,2.0936e+00_jprb,2.2122e+00_jprb,2.4949e+00_jprb,3.2196e+00_jprb,3.9764e+00_jprb,&
 & 4.7367e+00_jprb,5.4979e+00_jprb,6.0151e+00_jprb,6.1897e+00_jprb,6.2191e+00_jprb/)  
kao( :, 5, 1,13) = (/&
 & 2.2294e+00_jprb,2.0855e+00_jprb,2.2831e+00_jprb,2.7897e+00_jprb,3.6518e+00_jprb,4.5202e+00_jprb,&
 & 5.3909e+00_jprb,6.2623e+00_jprb,6.8525e+00_jprb,7.0478e+00_jprb,7.0466e+00_jprb/)  
kao( :, 1, 2,13) = (/&
 & 2.6401e+00_jprb,2.3655e+00_jprb,2.1111e+00_jprb,2.0137e+00_jprb,2.0825e+00_jprb,2.5044e+00_jprb,&
 & 2.9828e+00_jprb,3.4624e+00_jprb,3.7882e+00_jprb,3.8997e+00_jprb,3.9250e+00_jprb/)  
kao( :, 2, 2,13) = (/&
 & 2.5670e+00_jprb,2.3197e+00_jprb,2.1659e+00_jprb,2.1086e+00_jprb,2.3636e+00_jprb,2.9098e+00_jprb,&
 & 3.4676e+00_jprb,4.0262e+00_jprb,4.4056e+00_jprb,4.5331e+00_jprb,4.5625e+00_jprb/)  
kao( :, 3, 2,13) = (/&
 & 2.4971e+00_jprb,2.2719e+00_jprb,2.2158e+00_jprb,2.2307e+00_jprb,2.7197e+00_jprb,3.3654e+00_jprb,&
 & 4.0138e+00_jprb,4.6621e+00_jprb,5.1023e+00_jprb,5.2462e+00_jprb,5.2684e+00_jprb/)  
kao( :, 4, 2,13) = (/&
 & 2.4323e+00_jprb,2.2338e+00_jprb,2.2635e+00_jprb,2.4358e+00_jprb,3.1246e+00_jprb,3.8712e+00_jprb,&
 & 4.6205e+00_jprb,5.3694e+00_jprb,5.8768e+00_jprb,6.0401e+00_jprb,6.0554e+00_jprb/)  
kao( :, 5, 2,13) = (/&
 & 2.3760e+00_jprb,2.2281e+00_jprb,2.3133e+00_jprb,2.7376e+00_jprb,3.5897e+00_jprb,4.4519e+00_jprb,&
 & 5.3157e+00_jprb,6.1803e+00_jprb,6.7635e+00_jprb,6.9497e+00_jprb,6.9610e+00_jprb/)  
kao( :, 1, 3,13) = (/&
 & 2.8086e+00_jprb,2.5114e+00_jprb,2.2208e+00_jprb,2.0677e+00_jprb,2.0427e+00_jprb,2.3373e+00_jprb,&
 & 2.7874e+00_jprb,3.2384e+00_jprb,3.5440e+00_jprb,3.6445e+00_jprb,3.6749e+00_jprb/)  
kao( :, 2, 3,13) = (/&
 & 2.7404e+00_jprb,2.4643e+00_jprb,2.2716e+00_jprb,2.1464e+00_jprb,2.2628e+00_jprb,2.7529e+00_jprb,&
 & 3.2849e+00_jprb,3.8172e+00_jprb,4.1782e+00_jprb,4.2940e+00_jprb,4.3270e+00_jprb/)  
kao( :, 3, 3,13) = (/&
 & 2.6764e+00_jprb,2.4178e+00_jprb,2.3087e+00_jprb,2.2456e+00_jprb,2.5986e+00_jprb,3.2215e+00_jprb,&
 & 3.8463e+00_jprb,4.4711e+00_jprb,4.8938e+00_jprb,5.0274e+00_jprb,5.0645e+00_jprb/)  
kao( :, 4, 3,13) = (/&
 & 2.6211e+00_jprb,2.3803e+00_jprb,2.3402e+00_jprb,2.4064e+00_jprb,3.0169e+00_jprb,3.7447e+00_jprb,&
 & 4.4738e+00_jprb,5.2031e+00_jprb,5.6949e+00_jprb,5.8469e+00_jprb,5.8866e+00_jprb/)  
kao( :, 5, 3,13) = (/&
 & 2.5706e+00_jprb,2.3763e+00_jprb,2.3730e+00_jprb,2.6809e+00_jprb,3.4926e+00_jprb,4.3391e+00_jprb,&
 & 5.1873e+00_jprb,6.0352e+00_jprb,6.6054e+00_jprb,6.7799e+00_jprb,6.8242e+00_jprb/)  
kao( :, 1, 4,13) = (/&
 & 2.9705e+00_jprb,2.6437e+00_jprb,2.3228e+00_jprb,2.1502e+00_jprb,2.0620e+00_jprb,2.1581e+00_jprb,&
 & 2.5548e+00_jprb,2.9693e+00_jprb,3.2504e+00_jprb,3.3452e+00_jprb,3.3799e+00_jprb/)  
kao( :, 2, 4,13) = (/&
 & 2.9060e+00_jprb,2.6045e+00_jprb,2.3805e+00_jprb,2.2339e+00_jprb,2.2319e+00_jprb,2.5887e+00_jprb,&
 & 3.0909e+00_jprb,3.5931e+00_jprb,3.9330e+00_jprb,4.0437e+00_jprb,4.0869e+00_jprb/)  
kao( :, 3, 4,13) = (/&
 & 2.8503e+00_jprb,2.5669e+00_jprb,2.4183e+00_jprb,2.3219e+00_jprb,2.5237e+00_jprb,3.0875e+00_jprb,&
 & 3.6882e+00_jprb,4.2895e+00_jprb,4.6950e+00_jprb,4.8250e+00_jprb,4.8772e+00_jprb/)  
kao( :, 4, 4,13) = (/&
 & 2.8040e+00_jprb,2.5355e+00_jprb,2.4511e+00_jprb,2.4730e+00_jprb,2.9343e+00_jprb,3.6460e+00_jprb,&
 & 4.3587e+00_jprb,5.0710e+00_jprb,5.5512e+00_jprb,5.6975e+00_jprb,5.7609e+00_jprb/)  
kao( :, 5, 4,13) = (/&
 & 2.7640e+00_jprb,2.5346e+00_jprb,2.4816e+00_jprb,2.7138e+00_jprb,3.4317e+00_jprb,4.2678e+00_jprb,&
 & 5.1048e+00_jprb,5.9414e+00_jprb,6.5038e+00_jprb,6.6733e+00_jprb,6.7499e+00_jprb/)  
kao( :, 1, 5,13) = (/&
 & 3.2157e+00_jprb,2.8490e+00_jprb,2.4890e+00_jprb,2.2607e+00_jprb,2.1003e+00_jprb,2.0316e+00_jprb,&
 & 2.2821e+00_jprb,2.6531e+00_jprb,2.9050e+00_jprb,2.9914e+00_jprb,3.0227e+00_jprb/)  
kao( :, 2, 5,13) = (/&
 & 3.1462e+00_jprb,2.8052e+00_jprb,2.5301e+00_jprb,2.3469e+00_jprb,2.2490e+00_jprb,2.3958e+00_jprb,&
 & 2.8314e+00_jprb,3.2925e+00_jprb,3.6050e+00_jprb,3.7092e+00_jprb,3.7515e+00_jprb/)  
kao( :, 3, 5,13) = (/&
 & 3.0906e+00_jprb,2.7658e+00_jprb,2.5622e+00_jprb,2.4318e+00_jprb,2.4969e+00_jprb,2.8886e+00_jprb,&
 & 3.4523e+00_jprb,4.0155e+00_jprb,4.3974e+00_jprb,4.5211e+00_jprb,4.5746e+00_jprb/)  
kao( :, 4, 5,13) = (/&
 & 3.0486e+00_jprb,2.7373e+00_jprb,2.5958e+00_jprb,2.5683e+00_jprb,2.8557e+00_jprb,3.4815e+00_jprb,&
 & 4.1633e+00_jprb,4.8446e+00_jprb,5.3051e+00_jprb,5.4504e+00_jprb,5.5199e+00_jprb/)  
kao( :, 5, 5,13) = (/&
 & 3.0130e+00_jprb,2.7440e+00_jprb,2.6274e+00_jprb,2.8078e+00_jprb,3.3228e+00_jprb,4.1277e+00_jprb,&
 & 4.9382e+00_jprb,5.7481e+00_jprb,6.2955e+00_jprb,6.4701e+00_jprb,6.5508e+00_jprb/)  
kao( :, 1, 6,13) = (/&
 & 3.5873e+00_jprb,3.1674e+00_jprb,2.7646e+00_jprb,2.4502e+00_jprb,2.1689e+00_jprb,1.9718e+00_jprb,&
 & 2.0147e+00_jprb,2.3234e+00_jprb,2.5447e+00_jprb,2.6195e+00_jprb,2.6494e+00_jprb/)  
kao( :, 2, 6,13) = (/&
 & 3.5157e+00_jprb,3.1229e+00_jprb,2.7666e+00_jprb,2.5046e+00_jprb,2.2807e+00_jprb,2.2712e+00_jprb,&
 & 2.5407e+00_jprb,2.9561e+00_jprb,3.2371e+00_jprb,3.3302e+00_jprb,3.3702e+00_jprb/)  
kao( :, 3, 6,13) = (/&
 & 3.4666e+00_jprb,3.0873e+00_jprb,2.7933e+00_jprb,2.5658e+00_jprb,2.5099e+00_jprb,2.6904e+00_jprb,&
 & 3.1624e+00_jprb,3.6822e+00_jprb,4.0323e+00_jprb,4.1466e+00_jprb,4.1994e+00_jprb/)  
kao( :, 4, 6,13) = (/&
 & 3.4223e+00_jprb,3.0572e+00_jprb,2.8088e+00_jprb,2.6700e+00_jprb,2.8225e+00_jprb,3.2304e+00_jprb,&
 & 3.8614e+00_jprb,4.4961e+00_jprb,4.9248e+00_jprb,5.0662e+00_jprb,5.1277e+00_jprb/)  
kao( :, 5, 6,13) = (/&
 & 3.3760e+00_jprb,3.0424e+00_jprb,2.8322e+00_jprb,2.8911e+00_jprb,3.2026e+00_jprb,3.8541e+00_jprb,&
 & 4.6128e+00_jprb,5.3710e+00_jprb,5.8848e+00_jprb,6.0557e+00_jprb,6.1288e+00_jprb/)  
kao( :, 1, 7,13) = (/&
 & 4.0318e+00_jprb,3.5414e+00_jprb,3.1020e+00_jprb,2.7107e+00_jprb,2.3308e+00_jprb,1.9686e+00_jprb,&
 & 1.8437e+00_jprb,2.0053e+00_jprb,2.1966e+00_jprb,2.2625e+00_jprb,2.2876e+00_jprb/)  
kao( :, 2, 7,13) = (/&
 & 3.9753e+00_jprb,3.5219e+00_jprb,3.0843e+00_jprb,2.7586e+00_jprb,2.3913e+00_jprb,2.2135e+00_jprb,&
 & 2.2792e+00_jprb,2.6148e+00_jprb,2.8647e+00_jprb,2.9486e+00_jprb,2.9838e+00_jprb/)  
kao( :, 3, 7,13) = (/&
 & 3.9273e+00_jprb,3.4958e+00_jprb,3.1284e+00_jprb,2.7893e+00_jprb,2.5460e+00_jprb,2.5637e+00_jprb,&
 & 2.8433e+00_jprb,3.3088e+00_jprb,3.6254e+00_jprb,3.7327e+00_jprb,3.7756e+00_jprb/)  
kao( :, 4, 7,13) = (/&
 & 3.8768e+00_jprb,3.4612e+00_jprb,3.1354e+00_jprb,2.8419e+00_jprb,2.8178e+00_jprb,3.0023e+00_jprb,&
 & 3.5065e+00_jprb,4.0831e+00_jprb,4.4749e+00_jprb,4.6081e+00_jprb,4.6607e+00_jprb/)  
kao( :, 5, 7,13) = (/&
 & 3.8207e+00_jprb,3.4295e+00_jprb,3.1455e+00_jprb,3.0110e+00_jprb,3.1435e+00_jprb,3.5518e+00_jprb,&
 & 4.2303e+00_jprb,4.9268e+00_jprb,5.4004e+00_jprb,5.5634e+00_jprb,5.6245e+00_jprb/)  
kao( :, 1, 8,13) = (/&
 & 4.5607e+00_jprb,3.9914e+00_jprb,3.4954e+00_jprb,3.0029e+00_jprb,2.5709e+00_jprb,2.0712e+00_jprb,&
 & 1.7381e+00_jprb,1.7156e+00_jprb,1.8751e+00_jprb,1.9316e+00_jprb,1.9534e+00_jprb/)  
kao( :, 2, 8,13) = (/&
 & 4.5049e+00_jprb,3.9749e+00_jprb,3.4687e+00_jprb,3.0674e+00_jprb,2.6040e+00_jprb,2.2247e+00_jprb,&
 & 2.0925e+00_jprb,2.2663e+00_jprb,2.4833e+00_jprb,2.5592e+00_jprb,2.5867e+00_jprb/)  
kao( :, 3, 8,13) = (/&
 & 4.4464e+00_jprb,3.9470e+00_jprb,3.5041e+00_jprb,3.0976e+00_jprb,2.6943e+00_jprb,2.4990e+00_jprb,&
 & 2.5535e+00_jprb,2.9086e+00_jprb,3.1877e+00_jprb,3.2861e+00_jprb,3.3201e+00_jprb/)  
kao( :, 4, 8,13) = (/&
 & 4.3818e+00_jprb,3.9082e+00_jprb,3.5223e+00_jprb,3.1240e+00_jprb,2.8867e+00_jprb,2.8624e+00_jprb,&
 & 3.1305e+00_jprb,3.6344e+00_jprb,3.9841e+00_jprb,4.1071e+00_jprb,4.1503e+00_jprb/)  
kao( :, 5, 8,13) = (/&
 & 4.3157e+00_jprb,3.8635e+00_jprb,3.5342e+00_jprb,3.2389e+00_jprb,3.1422e+00_jprb,3.3087e+00_jprb,&
 & 3.8133e+00_jprb,4.4423e+00_jprb,4.8694e+00_jprb,5.0203e+00_jprb,5.0730e+00_jprb/)  
kao( :, 1, 9,13) = (/&
 & 5.1388e+00_jprb,4.4967e+00_jprb,3.9252e+00_jprb,3.3415e+00_jprb,2.8260e+00_jprb,2.2549e+00_jprb,&
 & 1.7301e+00_jprb,1.4899e+00_jprb,1.5781e+00_jprb,1.6272e+00_jprb,2.1902e+00_jprb/)  
kao( :, 2, 9,13) = (/&
 & 5.0816e+00_jprb,4.4676e+00_jprb,3.8997e+00_jprb,3.4081e+00_jprb,2.8754e+00_jprb,2.3488e+00_jprb,&
 & 1.9883e+00_jprb,1.9458e+00_jprb,2.1210e+00_jprb,2.1876e+00_jprb,2.4675e+00_jprb/)  
kao( :, 3, 9,13) = (/&
 & 5.0129e+00_jprb,4.4339e+00_jprb,3.9077e+00_jprb,3.4536e+00_jprb,2.9357e+00_jprb,2.5363e+00_jprb,&
 & 2.3438e+00_jprb,2.5133e+00_jprb,2.7551e+00_jprb,2.8417e+00_jprb,2.9456e+00_jprb/)  
kao( :, 4, 9,13) = (/&
 & 4.9367e+00_jprb,4.3927e+00_jprb,3.9413e+00_jprb,3.4799e+00_jprb,3.0724e+00_jprb,2.8062e+00_jprb,&
 & 2.8193e+00_jprb,3.1848e+00_jprb,3.4916e+00_jprb,3.6009e+00_jprb,3.6428e+00_jprb/)  
kao( :, 5, 9,13) = (/&
 & 4.8646e+00_jprb,4.3466e+00_jprb,3.9578e+00_jprb,3.5604e+00_jprb,3.2602e+00_jprb,3.1715e+00_jprb,&
 & 3.4132e+00_jprb,3.9460e+00_jprb,4.3263e+00_jprb,4.4628e+00_jprb,4.5130e+00_jprb/)  
kao( :, 1,10,13) = (/&
 & 5.7351e+00_jprb,5.0184e+00_jprb,4.3590e+00_jprb,3.7061e+00_jprb,3.1107e+00_jprb,2.4665e+00_jprb,&
 & 1.8265e+00_jprb,1.3589e+00_jprb,1.3281e+00_jprb,1.3706e+00_jprb,9.6850e+00_jprb/)  
kao( :, 2,10,13) = (/&
 & 5.6702e+00_jprb,4.9713e+00_jprb,4.3505e+00_jprb,3.7771e+00_jprb,3.1762e+00_jprb,2.5499e+00_jprb,&
 & 2.0068e+00_jprb,1.7165e+00_jprb,1.8132e+00_jprb,1.8713e+00_jprb,1.0044e+01_jprb/)  
kao( :, 3,10,13) = (/&
 & 5.6012e+00_jprb,4.9439e+00_jprb,4.3471e+00_jprb,3.8363e+00_jprb,3.2324e+00_jprb,2.7093e+00_jprb,&
 & 2.2713e+00_jprb,2.1992e+00_jprb,2.3944e+00_jprb,2.4708e+00_jprb,1.0371e+01_jprb/)  
kao( :, 4,10,13) = (/&
 & 5.5289e+00_jprb,4.9007e+00_jprb,4.3908e+00_jprb,3.8627e+00_jprb,3.3600e+00_jprb,2.8996e+00_jprb,&
 & 2.6404e+00_jprb,2.8075e+00_jprb,3.0779e+00_jprb,3.1762e+00_jprb,1.0595e+01_jprb/)  
kao( :, 5,10,13) = (/&
 & 5.4567e+00_jprb,4.8683e+00_jprb,4.4123e+00_jprb,3.9290e+00_jprb,3.4997e+00_jprb,3.1758e+00_jprb,&
 & 3.1346e+00_jprb,3.5190e+00_jprb,3.8593e+00_jprb,3.9826e+00_jprb,1.0862e+01_jprb/)  
kao( :, 1,11,13) = (/&
 & 6.3333e+00_jprb,5.5418e+00_jprb,4.8105e+00_jprb,4.1265e+00_jprb,3.4538e+00_jprb,2.7288e+00_jprb,&
 & 2.0255e+00_jprb,1.4130e+00_jprb,1.2863e+00_jprb,1.3280e+00_jprb,1.7958e+01_jprb/)  
kao( :, 2,11,13) = (/&
 & 6.2689e+00_jprb,5.5023e+00_jprb,4.8148e+00_jprb,4.2028e+00_jprb,3.5226e+00_jprb,2.8349e+00_jprb,&
 & 2.1999e+00_jprb,1.7269e+00_jprb,1.7697e+00_jprb,1.8270e+00_jprb,1.8277e+01_jprb/)  
kao( :, 3,11,13) = (/&
 & 6.2039e+00_jprb,5.4744e+00_jprb,4.8374e+00_jprb,4.2598e+00_jprb,3.5999e+00_jprb,3.0009e+00_jprb,&
 & 2.4146e+00_jprb,2.1815e+00_jprb,2.3423e+00_jprb,2.4181e+00_jprb,1.8696e+01_jprb/)  
kao( :, 4,11,13) = (/&
 & 6.1388e+00_jprb,5.4345e+00_jprb,4.8963e+00_jprb,4.2927e+00_jprb,3.7367e+00_jprb,3.1778e+00_jprb,&
 & 2.7380e+00_jprb,2.7546e+00_jprb,3.0088e+00_jprb,3.1059e+00_jprb,1.9174e+01_jprb/)  
kao( :, 5,11,13) = (/&
 & 6.0780e+00_jprb,5.4134e+00_jprb,4.9226e+00_jprb,4.3897e+00_jprb,3.8870e+00_jprb,3.4157e+00_jprb,&
 & 3.1673e+00_jprb,3.4320e+00_jprb,3.7647e+00_jprb,3.8872e+00_jprb,1.9497e+01_jprb/)  
kao( :, 1,12,13) = (/&
 & 6.9733e+00_jprb,6.1019e+00_jprb,5.2948e+00_jprb,4.5762e+00_jprb,3.8194e+00_jprb,3.0108e+00_jprb,&
 & 2.2358e+00_jprb,1.4812e+00_jprb,1.2391e+00_jprb,1.2773e+00_jprb,2.4501e+01_jprb/)  
kao( :, 2,12,13) = (/&
 & 6.9181e+00_jprb,6.0812e+00_jprb,5.3188e+00_jprb,4.6589e+00_jprb,3.8924e+00_jprb,3.1398e+00_jprb,&
 & 2.4112e+00_jprb,1.7577e+00_jprb,1.7083e+00_jprb,1.7645e+00_jprb,2.4773e+01_jprb/)  
kao( :, 3,12,13) = (/&
 & 6.8566e+00_jprb,6.0530e+00_jprb,5.3874e+00_jprb,4.7146e+00_jprb,3.9882e+00_jprb,3.3020e+00_jprb,&
 & 2.6071e+00_jprb,2.1662e+00_jprb,2.2758e+00_jprb,2.3503e+00_jprb,2.5275e+01_jprb/)  
kao( :, 4,12,13) = (/&
 & 6.7979e+00_jprb,6.0149e+00_jprb,5.4468e+00_jprb,4.7610e+00_jprb,4.1335e+00_jprb,3.4795e+00_jprb,&
 & 2.8840e+00_jprb,2.7114e+00_jprb,2.9349e+00_jprb,3.0298e+00_jprb,2.5870e+01_jprb/)  
kao( :, 5,12,13) = (/&
 & 6.7411e+00_jprb,6.0058e+00_jprb,5.4709e+00_jprb,4.8727e+00_jprb,4.2890e+00_jprb,3.6876e+00_jprb,&
 & 3.2559e+00_jprb,3.3514e+00_jprb,3.6668e+00_jprb,3.7859e+00_jprb,2.6254e+01_jprb/)  
kao( :, 1,13,13) = (/&
 & 7.6256e+00_jprb,6.6753e+00_jprb,5.7900e+00_jprb,5.0347e+00_jprb,4.1913e+00_jprb,3.3018e+00_jprb,&
 & 2.4527e+00_jprb,1.5669e+00_jprb,1.1934e+00_jprb,1.2215e+00_jprb,2.5519e+01_jprb/)  
kao( :, 2,13,13) = (/&
 & 7.5682e+00_jprb,6.6598e+00_jprb,5.8333e+00_jprb,5.1240e+00_jprb,4.2715e+00_jprb,3.4570e+00_jprb,&
 & 2.6249e+00_jprb,1.8136e+00_jprb,1.6447e+00_jprb,1.6979e+00_jprb,2.5832e+01_jprb/)  
kao( :, 3,13,13) = (/&
 & 7.5147e+00_jprb,6.6337e+00_jprb,5.9406e+00_jprb,5.1772e+00_jprb,4.3985e+00_jprb,3.6181e+00_jprb,&
 & 2.8202e+00_jprb,2.1840e+00_jprb,2.2018e+00_jprb,2.2745e+00_jprb,2.6512e+01_jprb/)  
kao( :, 4,13,13) = (/&
 & 7.4664e+00_jprb,6.6067e+00_jprb,6.0077e+00_jprb,5.2519e+00_jprb,4.5469e+00_jprb,3.7922e+00_jprb,&
 & 3.0751e+00_jprb,2.6716e+00_jprb,2.8374e+00_jprb,2.9314e+00_jprb,2.7153e+01_jprb/)  
kao( :, 5,13,13) = (/&
 & 7.4088e+00_jprb,6.6207e+00_jprb,6.0282e+00_jprb,5.3739e+00_jprb,4.7039e+00_jprb,4.0017e+00_jprb,&
 & 3.3998e+00_jprb,3.2768e+00_jprb,3.5575e+00_jprb,3.6746e+00_jprb,2.7529e+01_jprb/)  
kao( :, 1, 1,14) = (/&
 & 2.8887e+00_jprb,2.5952e+00_jprb,2.4344e+00_jprb,2.7140e+00_jprb,3.5782e+00_jprb,4.4490e+00_jprb,&
 & 5.3193e+00_jprb,6.1891e+00_jprb,6.7728e+00_jprb,6.9450e+00_jprb,6.8281e+00_jprb/)  
kao( :, 2, 1,14) = (/&
 & 2.8442e+00_jprb,2.6117e+00_jprb,2.5016e+00_jprb,3.2440e+00_jprb,4.2873e+00_jprb,5.3316e+00_jprb,&
 & 6.3758e+00_jprb,7.4184e+00_jprb,8.1189e+00_jprb,8.3231e+00_jprb,8.1685e+00_jprb/)  
kao( :, 3, 1,14) = (/&
 & 2.8000e+00_jprb,2.6157e+00_jprb,2.7106e+00_jprb,3.8144e+00_jprb,5.0435e+00_jprb,6.2737e+00_jprb,&
 & 7.5035e+00_jprb,8.7311e+00_jprb,9.5570e+00_jprb,9.7945e+00_jprb,9.6021e+00_jprb/)  
kao( :, 4, 1,14) = (/&
 & 2.7537e+00_jprb,2.6124e+00_jprb,3.0214e+00_jprb,4.4121e+00_jprb,5.8371e+00_jprb,7.2628e+00_jprb,&
 & 8.6899e+00_jprb,1.0113e+01_jprb,1.1069e+01_jprb,1.1344e+01_jprb,1.1112e+01_jprb/)  

IF (lhook) CALL dr_hook('RRTM_KGB9:PART9',1,zhook_handle)
END SUBROUTINE part9


SUBROUTINE part10

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


kao( :, 5, 1,14) = (/&
 & 2.7061e+00_jprb,2.6132e+00_jprb,3.3957e+00_jprb,5.0168e+00_jprb,6.6412e+00_jprb,8.2665e+00_jprb,&
 & 9.8911e+00_jprb,1.1513e+01_jprb,1.2604e+01_jprb,1.2922e+01_jprb,1.2679e+01_jprb/)  
kao( :, 1, 2,14) = (/&
 & 3.0576e+00_jprb,2.7352e+00_jprb,2.5260e+00_jprb,2.7828e+00_jprb,3.6218e+00_jprb,4.5046e+00_jprb,&
 & 5.3876e+00_jprb,6.2699e+00_jprb,6.8610e+00_jprb,7.0352e+00_jprb,6.9906e+00_jprb/)  
kao( :, 2, 2,14) = (/&
 & 3.0061e+00_jprb,2.7324e+00_jprb,2.6141e+00_jprb,3.3196e+00_jprb,4.3910e+00_jprb,5.4630e+00_jprb,&
 & 6.5356e+00_jprb,7.6067e+00_jprb,8.3258e+00_jprb,8.5350e+00_jprb,8.4749e+00_jprb/)  
kao( :, 3, 2,14) = (/&
 & 2.9525e+00_jprb,2.7255e+00_jprb,2.8471e+00_jprb,3.9327e+00_jprb,5.2058e+00_jprb,6.4796e+00_jprb,&
 & 7.7532e+00_jprb,9.0260e+00_jprb,9.8805e+00_jprb,1.0131e+01_jprb,1.0067e+01_jprb/)  
kao( :, 4, 2,14) = (/&
 & 2.8984e+00_jprb,2.7145e+00_jprb,3.1607e+00_jprb,4.5565e+00_jprb,6.0350e+00_jprb,7.5142e+00_jprb,&
 & 8.9933e+00_jprb,1.0470e+01_jprb,1.1465e+01_jprb,1.1763e+01_jprb,1.1703e+01_jprb/)  
kao( :, 5, 2,14) = (/&
 & 2.8438e+00_jprb,2.7189e+00_jprb,3.5222e+00_jprb,5.1840e+00_jprb,6.8691e+00_jprb,8.5548e+00_jprb,&
 & 1.0241e+01_jprb,1.1924e+01_jprb,1.3058e+01_jprb,1.3402e+01_jprb,1.3350e+01_jprb/)  
kao( :, 1, 3,14) = (/&
 & 3.2627e+00_jprb,2.9257e+00_jprb,2.6844e+00_jprb,2.7974e+00_jprb,3.4992e+00_jprb,4.3540e+00_jprb,&
 & 5.2086e+00_jprb,6.0626e+00_jprb,6.6362e+00_jprb,6.8051e+00_jprb,6.8438e+00_jprb/)  
kao( :, 2, 3,14) = (/&
 & 3.2141e+00_jprb,2.9285e+00_jprb,2.7611e+00_jprb,3.2879e+00_jprb,4.2959e+00_jprb,5.3479e+00_jprb,&
 & 6.3996e+00_jprb,7.4507e+00_jprb,8.1567e+00_jprb,8.3690e+00_jprb,8.4216e+00_jprb/)  
kao( :, 3, 3,14) = (/&
 & 3.1592e+00_jprb,2.9193e+00_jprb,2.9657e+00_jprb,3.8707e+00_jprb,5.1268e+00_jprb,6.3848e+00_jprb,&
 & 7.6422e+00_jprb,8.8991e+00_jprb,9.7445e+00_jprb,1.0003e+01_jprb,1.0068e+01_jprb/)  
kao( :, 4, 3,14) = (/&
 & 3.1015e+00_jprb,2.9015e+00_jprb,3.2432e+00_jprb,4.5116e+00_jprb,5.9798e+00_jprb,7.4486e+00_jprb,&
 & 8.9182e+00_jprb,1.0386e+01_jprb,1.1375e+01_jprb,1.1682e+01_jprb,1.1760e+01_jprb/)  
kao( :, 5, 3,14) = (/&
 & 3.0445e+00_jprb,2.9022e+00_jprb,3.5824e+00_jprb,5.1608e+00_jprb,6.8436e+00_jprb,8.5264e+00_jprb,&
 & 1.0210e+01_jprb,1.1891e+01_jprb,1.3025e+01_jprb,1.3379e+01_jprb,1.3473e+01_jprb/)  
kao( :, 1, 4,14) = (/&
 & 3.5400e+00_jprb,3.1664e+00_jprb,2.9101e+00_jprb,2.8758e+00_jprb,3.3348e+00_jprb,4.1525e+00_jprb,&
 & 4.9718e+00_jprb,5.7899e+00_jprb,6.3397e+00_jprb,6.5008e+00_jprb,6.5768e+00_jprb/)  
kao( :, 2, 4,14) = (/&
 & 3.4855e+00_jprb,3.1790e+00_jprb,2.9576e+00_jprb,3.2747e+00_jprb,4.1109e+00_jprb,5.1228e+00_jprb,&
 & 6.1348e+00_jprb,7.1442e+00_jprb,7.8249e+00_jprb,8.0301e+00_jprb,8.1227e+00_jprb/)  
kao( :, 3, 4,14) = (/&
 & 3.4320e+00_jprb,3.1719e+00_jprb,3.1607e+00_jprb,3.7785e+00_jprb,4.9272e+00_jprb,6.1416e+00_jprb,&
 & 7.3563e+00_jprb,8.5691e+00_jprb,9.3880e+00_jprb,9.6426e+00_jprb,9.7500e+00_jprb/)  
kao( :, 4, 4,14) = (/&
 & 3.3791e+00_jprb,3.1599e+00_jprb,3.3859e+00_jprb,4.3631e+00_jprb,5.7749e+00_jprb,7.1988e+00_jprb,&
 & 8.6228e+00_jprb,1.0046e+01_jprb,1.1007e+01_jprb,1.1312e+01_jprb,1.1439e+01_jprb/)  
kao( :, 5, 4,14) = (/&
 & 3.3258e+00_jprb,3.1591e+00_jprb,3.6665e+00_jprb,5.0052e+00_jprb,6.6441e+00_jprb,8.2840e+00_jprb,&
 & 9.9242e+00_jprb,1.1564e+01_jprb,1.2671e+01_jprb,1.3030e+01_jprb,1.3170e+01_jprb/)  
kao( :, 1, 5,14) = (/&
 & 3.8712e+00_jprb,3.4337e+00_jprb,3.1666e+00_jprb,3.0128e+00_jprb,3.2471e+00_jprb,3.9337e+00_jprb,&
 & 4.7121e+00_jprb,5.4892e+00_jprb,6.0120e+00_jprb,6.1700e+00_jprb,6.2549e+00_jprb/)  
kao( :, 2, 5,14) = (/&
 & 3.8269e+00_jprb,3.4694e+00_jprb,3.1866e+00_jprb,3.3432e+00_jprb,3.9282e+00_jprb,4.8845e+00_jprb,&
 & 5.8524e+00_jprb,6.8187e+00_jprb,7.4706e+00_jprb,7.6730e+00_jprb,7.7736e+00_jprb/)  
kao( :, 3, 5,14) = (/&
 & 3.7755e+00_jprb,3.4748e+00_jprb,3.3901e+00_jprb,3.7632e+00_jprb,4.7202e+00_jprb,5.8870e+00_jprb,&
 & 7.0546e+00_jprb,8.2214e+00_jprb,9.0082e+00_jprb,9.2591e+00_jprb,9.3759e+00_jprb/)  
kao( :, 4, 5,14) = (/&
 & 3.7208e+00_jprb,3.4667e+00_jprb,3.6066e+00_jprb,4.2692e+00_jprb,5.5501e+00_jprb,6.9232e+00_jprb,&
 & 8.2967e+00_jprb,9.6704e+00_jprb,1.0598e+01_jprb,1.0900e+01_jprb,1.1032e+01_jprb/)  
kao( :, 5, 5,14) = (/&
 & 3.6685e+00_jprb,3.4626e+00_jprb,3.8317e+00_jprb,4.8383e+00_jprb,6.4165e+00_jprb,8.0063e+00_jprb,&
 & 9.5964e+00_jprb,1.1185e+01_jprb,1.2259e+01_jprb,1.2606e+01_jprb,1.2759e+01_jprb/)  
kao( :, 1, 6,14) = (/&
 & 4.2985e+00_jprb,3.7747e+00_jprb,3.4577e+00_jprb,3.1550e+00_jprb,3.2497e+00_jprb,3.6558e+00_jprb,&
 & 4.3601e+00_jprb,5.0812e+00_jprb,5.5670e+00_jprb,5.7208e+00_jprb,5.7987e+00_jprb/)  
kao( :, 2, 6,14) = (/&
 & 4.2427e+00_jprb,3.8123e+00_jprb,3.4653e+00_jprb,3.4897e+00_jprb,3.8064e+00_jprb,4.5507e+00_jprb,&
 & 5.4535e+00_jprb,6.3569e+00_jprb,6.9669e+00_jprb,7.1637e+00_jprb,7.2558e+00_jprb/)  
kao( :, 3, 6,14) = (/&
 & 4.1875e+00_jprb,3.8273e+00_jprb,3.6255e+00_jprb,3.8306e+00_jprb,4.4762e+00_jprb,5.5205e+00_jprb,&
 & 6.6168e+00_jprb,7.7121e+00_jprb,8.4537e+00_jprb,8.6967e+00_jprb,8.8046e+00_jprb/)  
kao( :, 4, 6,14) = (/&
 & 4.1387e+00_jprb,3.8237e+00_jprb,3.8813e+00_jprb,4.2503e+00_jprb,5.2544e+00_jprb,6.5579e+00_jprb,&
 & 7.8608e+00_jprb,9.1631e+00_jprb,1.0044e+01_jprb,1.0331e+01_jprb,1.0461e+01_jprb/)  
kao( :, 5, 6,14) = (/&
 & 4.0993e+00_jprb,3.8210e+00_jprb,4.0697e+00_jprb,4.7381e+00_jprb,6.1433e+00_jprb,7.6683e+00_jprb,&
 & 9.1923e+00_jprb,1.0715e+01_jprb,1.1746e+01_jprb,1.2082e+01_jprb,1.2233e+01_jprb/)  
kao( :, 1, 7,14) = (/&
 & 4.8729e+00_jprb,4.2640e+00_jprb,3.8474e+00_jprb,3.3679e+00_jprb,3.3344e+00_jprb,3.4772e+00_jprb,&
 & 3.9641e+00_jprb,4.6207e+00_jprb,5.0642e+00_jprb,5.2074e+00_jprb,5.2771e+00_jprb/)  
kao( :, 2, 7,14) = (/&
 & 4.7919e+00_jprb,4.2473e+00_jprb,3.8324e+00_jprb,3.6623e+00_jprb,3.7914e+00_jprb,4.2248e+00_jprb,&
 & 5.0116e+00_jprb,5.8421e+00_jprb,6.4042e+00_jprb,6.5890e+00_jprb,6.6727e+00_jprb/)  
kao( :, 3, 7,14) = (/&
 & 4.7214e+00_jprb,4.2557e+00_jprb,3.9089e+00_jprb,4.0054e+00_jprb,4.3393e+00_jprb,5.1382e+00_jprb,&
 & 6.1595e+00_jprb,7.1803e+00_jprb,7.8713e+00_jprb,8.0973e+00_jprb,8.2014e+00_jprb/)  
kao( :, 4, 7,14) = (/&
 & 4.6651e+00_jprb,4.2593e+00_jprb,4.1634e+00_jprb,4.3388e+00_jprb,5.0089e+00_jprb,6.1843e+00_jprb,&
 & 7.4141e+00_jprb,8.6442e+00_jprb,9.4748e+00_jprb,9.7461e+00_jprb,9.8717e+00_jprb/)  
kao( :, 5, 7,14) = (/&
 & 4.6229e+00_jprb,4.2611e+00_jprb,4.3711e+00_jprb,4.7337e+00_jprb,5.8551e+00_jprb,7.3079e+00_jprb,&
 & 8.7620e+00_jprb,1.0215e+01_jprb,1.1197e+01_jprb,1.1518e+01_jprb,1.1668e+01_jprb/)  
kao( :, 1, 8,14) = (/&
 & 5.5925e+00_jprb,4.8936e+00_jprb,4.3354e+00_jprb,3.7383e+00_jprb,3.4607e+00_jprb,3.3817e+00_jprb,&
 & 3.5604e+00_jprb,4.1011e+00_jprb,4.4961e+00_jprb,4.6277e+00_jprb,4.6848e+00_jprb/)  
kao( :, 2, 8,14) = (/&
 & 5.4938e+00_jprb,4.8247e+00_jprb,4.3191e+00_jprb,3.9163e+00_jprb,3.8835e+00_jprb,4.0306e+00_jprb,&
 & 4.5806e+00_jprb,5.3399e+00_jprb,5.8538e+00_jprb,6.0240e+00_jprb,6.1006e+00_jprb/)  
kao( :, 3, 8,14) = (/&
 & 5.4085e+00_jprb,4.8212e+00_jprb,4.3278e+00_jprb,4.2425e+00_jprb,4.3274e+00_jprb,4.8175e+00_jprb,&
 & 5.7136e+00_jprb,6.6616e+00_jprb,7.3038e+00_jprb,7.5143e+00_jprb,7.6111e+00_jprb/)  
kao( :, 4, 8,14) = (/&
 & 5.3368e+00_jprb,4.8168e+00_jprb,4.5230e+00_jprb,4.5538e+00_jprb,4.8873e+00_jprb,5.8090e+00_jprb,&
 & 6.9627e+00_jprb,8.1174e+00_jprb,8.9008e+00_jprb,9.1580e+00_jprb,9.2752e+00_jprb/)  
kao( :, 5, 8,14) = (/&
 & 5.2815e+00_jprb,4.8169e+00_jprb,4.7320e+00_jprb,4.8661e+00_jprb,5.6370e+00_jprb,6.9370e+00_jprb,&
 & 8.3184e+00_jprb,9.6982e+00_jprb,1.0633e+01_jprb,1.0941e+01_jprb,1.1084e+01_jprb/)  
kao( :, 1, 9,14) = (/&
 & 6.4577e+00_jprb,5.6507e+00_jprb,4.9407e+00_jprb,4.2286e+00_jprb,3.7253e+00_jprb,3.3779e+00_jprb,&
 & 3.2319e+00_jprb,3.5421e+00_jprb,3.8831e+00_jprb,3.9990e+00_jprb,4.0498e+00_jprb/)  
kao( :, 2, 9,14) = (/&
 & 6.3422e+00_jprb,5.5498e+00_jprb,4.9222e+00_jprb,4.3098e+00_jprb,4.0685e+00_jprb,3.8931e+00_jprb,&
 & 4.1244e+00_jprb,4.7547e+00_jprb,5.2133e+00_jprb,5.3678e+00_jprb,5.4322e+00_jprb/)  
kao( :, 3, 9,14) = (/&
 & 6.2329e+00_jprb,5.5111e+00_jprb,4.9049e+00_jprb,4.5899e+00_jprb,4.4547e+00_jprb,4.5979e+00_jprb,&
 & 5.2352e+00_jprb,6.1039e+00_jprb,6.6924e+00_jprb,6.8898e+00_jprb,6.9747e+00_jprb/)  
kao( :, 4, 9,14) = (/&
 & 6.1515e+00_jprb,5.4910e+00_jprb,5.0222e+00_jprb,4.8653e+00_jprb,4.9067e+00_jprb,5.4882e+00_jprb,&
 & 6.4831e+00_jprb,7.5599e+00_jprb,8.2895e+00_jprb,8.5312e+00_jprb,8.6396e+00_jprb/)  
kao( :, 5, 9,14) = (/&
 & 6.0869e+00_jprb,5.4865e+00_jprb,5.2250e+00_jprb,5.1325e+00_jprb,5.5425e+00_jprb,6.5444e+00_jprb,&
 & 7.8337e+00_jprb,9.1350e+00_jprb,1.0015e+01_jprb,1.0307e+01_jprb,1.0438e+01_jprb/)  
kao( :, 1,10,14) = (/&
 & 7.4443e+00_jprb,6.5140e+00_jprb,5.6562e+00_jprb,4.8450e+00_jprb,4.1266e+00_jprb,3.5478e+00_jprb,&
 & 3.0700e+00_jprb,3.0881e+00_jprb,3.3779e+00_jprb,3.4799e+00_jprb,1.2058e+01_jprb/)  
kao( :, 2,10,14) = (/&
 & 7.3221e+00_jprb,6.4071e+00_jprb,5.6365e+00_jprb,4.8644e+00_jprb,4.3967e+00_jprb,3.9545e+00_jprb,&
 & 3.8217e+00_jprb,4.2441e+00_jprb,4.6539e+00_jprb,4.7937e+00_jprb,1.2410e+01_jprb/)  
kao( :, 3,10,14) = (/&
 & 7.2124e+00_jprb,6.3403e+00_jprb,5.6271e+00_jprb,5.0725e+00_jprb,4.7313e+00_jprb,4.4923e+00_jprb,&
 & 4.8301e+00_jprb,5.5719e+00_jprb,6.1108e+00_jprb,6.2952e+00_jprb,1.2954e+01_jprb/)  
kao( :, 4,10,14) = (/&
 & 7.1175e+00_jprb,6.3123e+00_jprb,5.6779e+00_jprb,5.3374e+00_jprb,5.0908e+00_jprb,5.2975e+00_jprb,&
 & 6.0440e+00_jprb,7.0430e+00_jprb,7.7247e+00_jprb,7.9559e+00_jprb,1.3387e+01_jprb/)  
kao( :, 5,10,14) = (/&
 & 7.0366e+00_jprb,6.2756e+00_jprb,5.8648e+00_jprb,5.5670e+00_jprb,5.6360e+00_jprb,6.2965e+00_jprb,&
 & 7.4267e+00_jprb,8.6602e+00_jprb,9.4961e+00_jprb,9.7792e+00_jprb,1.3845e+01_jprb/)  
kao( :, 1,11,14) = (/&
 & 8.4957e+00_jprb,7.4339e+00_jprb,6.4512e+00_jprb,5.5185e+00_jprb,4.7207e+00_jprb,3.9718e+00_jprb,&
 & 3.2916e+00_jprb,3.1500e+00_jprb,3.4253e+00_jprb,3.5296e+00_jprb,2.3513e+01_jprb/)  
kao( :, 2,11,14) = (/&
 & 8.3816e+00_jprb,7.3341e+00_jprb,6.4276e+00_jprb,5.6044e+00_jprb,4.9602e+00_jprb,4.3313e+00_jprb,&
 & 3.9798e+00_jprb,4.2912e+00_jprb,4.7066e+00_jprb,4.8505e+00_jprb,2.3943e+01_jprb/)  
kao( :, 3,11,14) = (/&
 & 8.2705e+00_jprb,7.2767e+00_jprb,6.4537e+00_jprb,5.8081e+00_jprb,5.2448e+00_jprb,4.8172e+00_jprb,&
 & 4.9716e+00_jprb,5.6457e+00_jprb,6.1916e+00_jprb,6.3804e+00_jprb,2.4436e+01_jprb/)  
kao( :, 4,11,14) = (/&
 & 8.1691e+00_jprb,7.2418e+00_jprb,6.5336e+00_jprb,6.0302e+00_jprb,5.5871e+00_jprb,5.5776e+00_jprb,&
 & 6.1920e+00_jprb,7.1803e+00_jprb,7.8743e+00_jprb,8.1125e+00_jprb,2.5073e+01_jprb/)  
kao( :, 5,11,14) = (/&
 & 8.0687e+00_jprb,7.1847e+00_jprb,6.6868e+00_jprb,6.2347e+00_jprb,6.0989e+00_jprb,6.5755e+00_jprb,&
 & 7.6314e+00_jprb,8.8985e+00_jprb,9.7576e+00_jprb,1.0049e+01_jprb,2.5623e+01_jprb/)  
kao( :, 1,12,14) = (/&
 & 9.6896e+00_jprb,8.4786e+00_jprb,7.3560e+00_jprb,6.2642e+00_jprb,5.3896e+00_jprb,4.4442e+00_jprb,&
 & 3.5654e+00_jprb,3.2232e+00_jprb,3.4640e+00_jprb,3.5704e+00_jprb,3.3781e+01_jprb/)  
kao( :, 2,12,14) = (/&
 & 9.5610e+00_jprb,8.3661e+00_jprb,7.3175e+00_jprb,6.4413e+00_jprb,5.6023e+00_jprb,4.7562e+00_jprb,&
 & 4.1907e+00_jprb,4.3435e+00_jprb,4.7515e+00_jprb,4.8976e+00_jprb,3.4305e+01_jprb/)  
kao( :, 3,12,14) = (/&
 & 9.4357e+00_jprb,8.3098e+00_jprb,7.3390e+00_jprb,6.6507e+00_jprb,5.8481e+00_jprb,5.2296e+00_jprb,&
 & 5.1297e+00_jprb,5.7060e+00_jprb,6.2577e+00_jprb,6.4493e+00_jprb,3.4708e+01_jprb/)  
kao( :, 4,12,14) = (/&
 & 9.3148e+00_jprb,8.2568e+00_jprb,7.4893e+00_jprb,6.8212e+00_jprb,6.1645e+00_jprb,5.9310e+00_jprb,&
 & 6.3510e+00_jprb,7.2870e+00_jprb,7.9920e+00_jprb,8.2360e+00_jprb,3.5460e+01_jprb/)  
kao( :, 5,12,14) = (/&
 & 9.1990e+00_jprb,8.1836e+00_jprb,7.6152e+00_jprb,6.9928e+00_jprb,6.6719e+00_jprb,6.9180e+00_jprb,&
 & 7.8262e+00_jprb,9.0973e+00_jprb,9.9751e+00_jprb,1.0276e+01_jprb,3.6457e+01_jprb/)  
kao( :, 1,13,14) = (/&
 & 1.0978e+01_jprb,9.6060e+00_jprb,8.3365e+00_jprb,7.0935e+00_jprb,6.1273e+00_jprb,4.9756e+00_jprb,&
 & 3.8881e+00_jprb,3.3072e+00_jprb,3.4820e+00_jprb,3.5899e+00_jprb,3.7314e+01_jprb/)  
kao( :, 2,13,14) = (/&
 & 1.0837e+01_jprb,9.4874e+00_jprb,8.2842e+00_jprb,7.3253e+00_jprb,6.3404e+00_jprb,5.2568e+00_jprb,&
 & 4.4758e+00_jprb,4.4007e+00_jprb,4.7797e+00_jprb,4.9274e+00_jprb,3.7831e+01_jprb/)  
kao( :, 3,13,14) = (/&
 & 1.0694e+01_jprb,9.4274e+00_jprb,8.2977e+00_jprb,7.5668e+00_jprb,6.5337e+00_jprb,5.7124e+00_jprb,&
 & 5.3511e+00_jprb,5.7626e+00_jprb,6.3147e+00_jprb,6.5078e+00_jprb,3.8270e+01_jprb/)  
kao( :, 4,13,14) = (/&
 & 1.0553e+01_jprb,9.3501e+00_jprb,8.4789e+00_jprb,7.6951e+00_jprb,6.8488e+00_jprb,6.3996e+00_jprb,&
 & 6.5438e+00_jprb,7.3994e+00_jprb,8.1156e+00_jprb,8.3624e+00_jprb,3.9180e+01_jprb/)  
kao( :, 5,13,14) = (/&
 & 1.0418e+01_jprb,9.2624e+00_jprb,8.6238e+00_jprb,7.8509e+00_jprb,7.3367e+00_jprb,7.3271e+00_jprb,&
 & 8.0317e+00_jprb,9.2713e+00_jprb,1.0168e+01_jprb,1.0477e+01_jprb,4.0242e+01_jprb/)  
kao( :, 1, 1,15) = (/&
 & 3.4517e+00_jprb,3.0397e+00_jprb,4.3495e+00_jprb,6.5195e+00_jprb,8.6891e+00_jprb,1.0859e+01_jprb,&
 & 1.3028e+01_jprb,1.5192e+01_jprb,1.6642e+01_jprb,1.7045e+01_jprb,1.6592e+01_jprb/)  
kao( :, 2, 1,15) = (/&
 & 3.3993e+00_jprb,3.1455e+00_jprb,5.0715e+00_jprb,7.6013e+00_jprb,1.0131e+01_jprb,1.2660e+01_jprb,&
 & 1.5190e+01_jprb,1.7713e+01_jprb,1.9405e+01_jprb,1.9876e+01_jprb,1.9373e+01_jprb/)  
kao( :, 3, 1,15) = (/&
 & 3.3459e+00_jprb,3.3075e+00_jprb,5.7978e+00_jprb,8.6893e+00_jprb,1.1582e+01_jprb,1.4472e+01_jprb,&
 & 1.7361e+01_jprb,2.0250e+01_jprb,2.2182e+01_jprb,2.2727e+01_jprb,2.2178e+01_jprb/)  
kao( :, 4, 1,15) = (/&
 & 3.2986e+00_jprb,3.5290e+00_jprb,6.5252e+00_jprb,9.7768e+00_jprb,1.3028e+01_jprb,1.6279e+01_jprb,&
 & 1.9527e+01_jprb,2.2769e+01_jprb,2.4943e+01_jprb,2.5561e+01_jprb,2.4969e+01_jprb/)  
kao( :, 5, 1,15) = (/&
 & 3.2551e+00_jprb,3.7853e+00_jprb,7.2659e+00_jprb,1.0883e+01_jprb,1.4501e+01_jprb,1.8116e+01_jprb,&
 & 2.1727e+01_jprb,2.5337e+01_jprb,2.7748e+01_jprb,2.8418e+01_jprb,2.7723e+01_jprb/)  
kao( :, 1, 2,15) = (/&
 & 3.6522e+00_jprb,3.2711e+00_jprb,4.5099e+00_jprb,6.6968e+00_jprb,8.9267e+00_jprb,1.1156e+01_jprb,&
 & 1.3385e+01_jprb,1.5605e+01_jprb,1.7100e+01_jprb,1.7534e+01_jprb,1.7404e+01_jprb/)  
kao( :, 2, 2,15) = (/&
 & 3.6012e+00_jprb,3.4064e+00_jprb,5.2386e+00_jprb,7.8494e+00_jprb,1.0463e+01_jprb,1.3076e+01_jprb,&
 & 1.5688e+01_jprb,1.8292e+01_jprb,2.0045e+01_jprb,2.0557e+01_jprb,2.0412e+01_jprb/)  
kao( :, 3, 2,15) = (/&
 & 3.5578e+00_jprb,3.5847e+00_jprb,6.0307e+00_jprb,9.0357e+00_jprb,1.2041e+01_jprb,1.5045e+01_jprb,&
 & 1.8047e+01_jprb,2.1044e+01_jprb,2.3057e+01_jprb,2.3640e+01_jprb,2.3465e+01_jprb/)  
kao( :, 4, 2,15) = (/&
 & 3.5171e+00_jprb,3.8136e+00_jprb,6.8582e+00_jprb,1.0272e+01_jprb,1.3685e+01_jprb,1.7098e+01_jprb,&
 & 2.0508e+01_jprb,2.3916e+01_jprb,2.6198e+01_jprb,2.6851e+01_jprb,2.6618e+01_jprb/)  
kao( :, 5, 2,15) = (/&
 & 3.4777e+00_jprb,4.0744e+00_jprb,7.7115e+00_jprb,1.1547e+01_jprb,1.5382e+01_jprb,1.9216e+01_jprb,&
 & 2.3048e+01_jprb,2.6876e+01_jprb,2.9437e+01_jprb,3.0161e+01_jprb,2.9874e+01_jprb/)  
kao( :, 1, 3,15) = (/&
 & 4.0012e+00_jprb,3.5438e+00_jprb,4.5445e+00_jprb,6.5121e+00_jprb,8.6806e+00_jprb,1.0848e+01_jprb,&
 & 1.3016e+01_jprb,1.5179e+01_jprb,1.6635e+01_jprb,1.7074e+01_jprb,1.7180e+01_jprb/)  
kao( :, 2, 3,15) = (/&
 & 3.9193e+00_jprb,3.6637e+00_jprb,5.2345e+00_jprb,7.7505e+00_jprb,1.0328e+01_jprb,1.2905e+01_jprb,&
 & 1.5480e+01_jprb,1.8051e+01_jprb,1.9781e+01_jprb,2.0289e+01_jprb,2.0415e+01_jprb/)  
kao( :, 3, 3,15) = (/&
 & 3.8577e+00_jprb,3.8234e+00_jprb,6.0517e+00_jprb,9.0644e+00_jprb,1.2077e+01_jprb,1.5089e+01_jprb,&
 & 1.8099e+01_jprb,2.1106e+01_jprb,2.3127e+01_jprb,2.3709e+01_jprb,2.3850e+01_jprb/)  
kao( :, 4, 3,15) = (/&
 & 3.8049e+00_jprb,4.0468e+00_jprb,6.9689e+00_jprb,1.0436e+01_jprb,1.3903e+01_jprb,1.7370e+01_jprb,&
 & 2.0836e+01_jprb,2.4295e+01_jprb,2.6620e+01_jprb,2.7290e+01_jprb,2.7443e+01_jprb/)  
kao( :, 5, 3,15) = (/&
 & 3.7571e+00_jprb,4.3042e+00_jprb,7.9142e+00_jprb,1.1851e+01_jprb,1.5788e+01_jprb,1.9723e+01_jprb,&
 & 2.3657e+01_jprb,2.7583e+01_jprb,3.0223e+01_jprb,3.0982e+01_jprb,3.1151e+01_jprb/)  
kao( :, 1, 4,15) = (/&
 & 4.5413e+00_jprb,3.9760e+00_jprb,4.5956e+00_jprb,6.1749e+00_jprb,8.2304e+00_jprb,1.0286e+01_jprb,&
 & 1.2342e+01_jprb,1.4394e+01_jprb,1.5775e+01_jprb,1.6197e+01_jprb,1.6378e+01_jprb/)  
kao( :, 2, 4,15) = (/&
 & 4.4358e+00_jprb,4.0500e+00_jprb,5.2197e+00_jprb,7.4879e+00_jprb,9.9757e+00_jprb,1.2463e+01_jprb,&
 & 1.4950e+01_jprb,1.7428e+01_jprb,1.9103e+01_jprb,1.9604e+01_jprb,1.9831e+01_jprb/)  
kao( :, 3, 4,15) = (/&
 & 4.3496e+00_jprb,4.1500e+00_jprb,5.9601e+00_jprb,8.9065e+00_jprb,1.1863e+01_jprb,1.4820e+01_jprb,&
 & 1.7774e+01_jprb,2.0728e+01_jprb,2.2708e+01_jprb,2.3295e+01_jprb,2.3568e+01_jprb/)  
kao( :, 4, 4,15) = (/&
 & 4.2783e+00_jprb,4.3259e+00_jprb,6.9520e+00_jprb,1.0406e+01_jprb,1.3860e+01_jprb,1.7313e+01_jprb,&
 & 2.0763e+01_jprb,2.4211e+01_jprb,2.6527e+01_jprb,2.7194e+01_jprb,2.7525e+01_jprb/)  
kao( :, 5, 4,15) = (/&
 & 4.2147e+00_jprb,4.5565e+00_jprb,7.9967e+00_jprb,1.1967e+01_jprb,1.5938e+01_jprb,1.9911e+01_jprb,&
 & 2.3877e+01_jprb,2.7842e+01_jprb,3.0498e+01_jprb,3.1272e+01_jprb,3.1647e+01_jprb/)  
kao( :, 1, 5,15) = (/&
 & 5.1884e+00_jprb,4.5403e+00_jprb,4.7931e+00_jprb,5.8956e+00_jprb,7.7629e+00_jprb,9.7012e+00_jprb,&
 & 1.1639e+01_jprb,1.3574e+01_jprb,1.4878e+01_jprb,1.5273e+01_jprb,1.5485e+01_jprb/)  
kao( :, 2, 5,15) = (/&
 & 5.0662e+00_jprb,4.5450e+00_jprb,5.3264e+00_jprb,7.1969e+00_jprb,9.5885e+00_jprb,1.1980e+01_jprb,&
 & 1.4371e+01_jprb,1.6762e+01_jprb,1.8366e+01_jprb,1.8844e+01_jprb,1.9112e+01_jprb/)  
kao( :, 3, 5,15) = (/&
 & 4.9667e+00_jprb,4.6362e+00_jprb,5.9568e+00_jprb,8.7016e+00_jprb,1.1592e+01_jprb,1.4482e+01_jprb,&
 & 1.7370e+01_jprb,2.0252e+01_jprb,2.2194e+01_jprb,2.2764e+01_jprb,2.3092e+01_jprb/)  
kao( :, 4, 5,15) = (/&
 & 4.8811e+00_jprb,4.7581e+00_jprb,6.8907e+00_jprb,1.0315e+01_jprb,1.3738e+01_jprb,1.7164e+01_jprb,&
 & 2.0588e+01_jprb,2.4000e+01_jprb,2.6296e+01_jprb,2.6966e+01_jprb,2.7352e+01_jprb/)  
kao( :, 5, 5,15) = (/&
 & 4.8022e+00_jprb,4.9436e+00_jprb,8.0245e+00_jprb,1.2011e+01_jprb,1.5998e+01_jprb,1.9984e+01_jprb,&
 & 2.3970e+01_jprb,2.7945e+01_jprb,3.0615e+01_jprb,3.1395e+01_jprb,3.1854e+01_jprb/)  
kao( :, 1, 6,15) = (/&
 & 5.9540e+00_jprb,5.2101e+00_jprb,5.1559e+00_jprb,5.7766e+00_jprb,7.2000e+00_jprb,8.9966e+00_jprb,&
 & 1.0790e+01_jprb,1.2585e+01_jprb,1.3788e+01_jprb,1.4160e+01_jprb,1.4369e+01_jprb/)  
kao( :, 2, 6,15) = (/&
 & 5.8116e+00_jprb,5.1177e+00_jprb,5.5815e+00_jprb,6.8585e+00_jprb,9.1046e+00_jprb,1.1376e+01_jprb,&
 & 1.3646e+01_jprb,1.5913e+01_jprb,1.7437e+01_jprb,1.7895e+01_jprb,1.8166e+01_jprb/)  
kao( :, 3, 6,15) = (/&
 & 5.6919e+00_jprb,5.2252e+00_jprb,6.1200e+00_jprb,8.4234e+00_jprb,1.1222e+01_jprb,1.4022e+01_jprb,&
 & 1.6819e+01_jprb,1.9613e+01_jprb,2.1489e+01_jprb,2.2041e+01_jprb,2.2387e+01_jprb/)  
kao( :, 4, 6,15) = (/&
 & 5.5882e+00_jprb,5.3197e+00_jprb,6.8459e+00_jprb,1.0145e+01_jprb,1.3515e+01_jprb,1.6884e+01_jprb,&
 & 2.0253e+01_jprb,2.3617e+01_jprb,2.5877e+01_jprb,2.6539e+01_jprb,2.6957e+01_jprb/)  
kao( :, 5, 6,15) = (/&
 & 5.4924e+00_jprb,5.4609e+00_jprb,7.9964e+00_jprb,1.1974e+01_jprb,1.5951e+01_jprb,1.9927e+01_jprb,&
 & 2.3903e+01_jprb,2.7873e+01_jprb,3.0539e+01_jprb,3.1317e+01_jprb,3.1808e+01_jprb/)  
kao( :, 1, 7,15) = (/&
 & 6.8609e+00_jprb,6.0036e+00_jprb,5.6856e+00_jprb,5.8569e+00_jprb,6.6558e+00_jprb,8.2325e+00_jprb,&
 & 9.8779e+00_jprb,1.1519e+01_jprb,1.2625e+01_jprb,1.2957e+01_jprb,1.3161e+01_jprb/)  
kao( :, 2, 7,15) = (/&
 & 6.6929e+00_jprb,5.8566e+00_jprb,5.9907e+00_jprb,6.7106e+00_jprb,8.5545e+00_jprb,1.0689e+01_jprb,&
 & 1.2823e+01_jprb,1.4953e+01_jprb,1.6388e+01_jprb,1.6819e+01_jprb,1.7084e+01_jprb/)  
kao( :, 3, 7,15) = (/&
 & 6.5525e+00_jprb,5.8774e+00_jprb,6.4316e+00_jprb,8.0973e+00_jprb,1.0774e+01_jprb,1.3461e+01_jprb,&
 & 1.6147e+01_jprb,1.8828e+01_jprb,2.0635e+01_jprb,2.1172e+01_jprb,2.1511e+01_jprb/)  
kao( :, 4, 7,15) = (/&
 & 6.4308e+00_jprb,6.0200e+00_jprb,7.0014e+00_jprb,9.9118e+00_jprb,1.3206e+01_jprb,1.6500e+01_jprb,&
 & 1.9791e+01_jprb,2.3078e+01_jprb,2.5291e+01_jprb,2.5943e+01_jprb,2.6365e+01_jprb/)  
kao( :, 5, 7,15) = (/&
 & 6.3315e+00_jprb,6.1156e+00_jprb,7.9980e+00_jprb,1.1868e+01_jprb,1.5812e+01_jprb,1.9756e+01_jprb,&
 & 2.3696e+01_jprb,2.7636e+01_jprb,3.0283e+01_jprb,3.1063e+01_jprb,3.1573e+01_jprb/)  

IF (lhook) CALL dr_hook('RRTM_KGB9:PART10',1,zhook_handle)
END SUBROUTINE part10


SUBROUTINE part11

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


kao( :, 1, 8,15) = (/&
 & 7.8865e+00_jprb,6.9009e+00_jprb,6.2843e+00_jprb,6.1316e+00_jprb,6.3613e+00_jprb,7.5584e+00_jprb,&
 & 9.0686e+00_jprb,1.0577e+01_jprb,1.1592e+01_jprb,1.1900e+01_jprb,1.2089e+01_jprb/)  
kao( :, 2, 8,15) = (/&
 & 7.6965e+00_jprb,6.7347e+00_jprb,6.5927e+00_jprb,6.8053e+00_jprb,7.9909e+00_jprb,9.9438e+00_jprb,&
 & 1.1929e+01_jprb,1.3913e+01_jprb,1.5248e+01_jprb,1.5655e+01_jprb,1.5901e+01_jprb/)  
kao( :, 3, 8,15) = (/&
 & 7.5504e+00_jprb,6.6675e+00_jprb,6.9179e+00_jprb,7.9162e+00_jprb,1.0245e+01_jprb,1.2802e+01_jprb,&
 & 1.5357e+01_jprb,1.7910e+01_jprb,1.9627e+01_jprb,2.0148e+01_jprb,2.0469e+01_jprb/)  
kao( :, 4, 8,15) = (/&
 & 7.4360e+00_jprb,6.7883e+00_jprb,7.3531e+00_jprb,9.6152e+00_jprb,1.2792e+01_jprb,1.5983e+01_jprb,&
 & 1.9172e+01_jprb,2.2359e+01_jprb,2.4505e+01_jprb,2.5152e+01_jprb,2.5554e+01_jprb/)  
kao( :, 5, 8,15) = (/&
 & 7.3370e+00_jprb,6.9240e+00_jprb,8.1752e+00_jprb,1.1669e+01_jprb,1.5550e+01_jprb,1.9429e+01_jprb,&
 & 2.3306e+01_jprb,2.7182e+01_jprb,2.9790e+01_jprb,3.0576e+01_jprb,3.1067e+01_jprb/)  
kao( :, 1, 9,15) = (/&
 & 9.0967e+00_jprb,7.9598e+00_jprb,6.9734e+00_jprb,6.6246e+00_jprb,6.3273e+00_jprb,6.9836e+00_jprb,&
 & 8.3234e+00_jprb,9.7073e+00_jprb,1.0640e+01_jprb,1.0924e+01_jprb,1.1099e+01_jprb/)  
kao( :, 2, 9,15) = (/&
 & 8.8543e+00_jprb,7.7477e+00_jprb,7.2824e+00_jprb,7.1264e+00_jprb,7.6457e+00_jprb,9.2650e+00_jprb,&
 & 1.1116e+01_jprb,1.2965e+01_jprb,1.4208e+01_jprb,1.4588e+01_jprb,1.4820e+01_jprb/)  
kao( :, 3, 9,15) = (/&
 & 8.7111e+00_jprb,7.6297e+00_jprb,7.5745e+00_jprb,7.9608e+00_jprb,9.6557e+00_jprb,1.2050e+01_jprb,&
 & 1.4456e+01_jprb,1.6860e+01_jprb,1.8477e+01_jprb,1.8971e+01_jprb,1.9271e+01_jprb/)  
kao( :, 4, 9,15) = (/&
 & 8.5917e+00_jprb,7.6924e+00_jprb,7.9085e+00_jprb,9.4305e+00_jprb,1.2224e+01_jprb,1.5276e+01_jprb,&
 & 1.8326e+01_jprb,2.1371e+01_jprb,2.3421e+01_jprb,2.4055e+01_jprb,2.4428e+01_jprb/)  
kao( :, 5, 9,15) = (/&
 & 8.4819e+00_jprb,7.8606e+00_jprb,8.5251e+00_jprb,1.1371e+01_jprb,1.5099e+01_jprb,1.8867e+01_jprb,&
 & 2.2635e+01_jprb,2.6398e+01_jprb,2.8934e+01_jprb,2.9714e+01_jprb,3.0176e+01_jprb/)  
kao( :, 1,10,15) = (/&
 & 1.0579e+01_jprb,9.2563e+00_jprb,7.9515e+00_jprb,7.2414e+00_jprb,6.6262e+00_jprb,6.7533e+00_jprb,&
 & 7.7880e+00_jprb,9.0842e+00_jprb,9.9553e+00_jprb,1.0226e+01_jprb,1.4443e+01_jprb/)  
kao( :, 2,10,15) = (/&
 & 1.0272e+01_jprb,8.9883e+00_jprb,8.0814e+00_jprb,7.6749e+00_jprb,7.6815e+00_jprb,8.8308e+00_jprb,&
 & 1.0573e+01_jprb,1.2332e+01_jprb,1.3516e+01_jprb,1.3883e+01_jprb,1.6088e+01_jprb/)  
kao( :, 3,10,15) = (/&
 & 1.0064e+01_jprb,8.8059e+00_jprb,8.3682e+00_jprb,8.3372e+00_jprb,9.4460e+00_jprb,1.1603e+01_jprb,&
 & 1.3923e+01_jprb,1.6236e+01_jprb,1.7795e+01_jprb,1.8275e+01_jprb,1.8972e+01_jprb/)  
kao( :, 4,10,15) = (/&
 & 9.9156e+00_jprb,8.7771e+00_jprb,8.6891e+00_jprb,9.5568e+00_jprb,1.1876e+01_jprb,1.4833e+01_jprb,&
 & 1.7796e+01_jprb,2.0756e+01_jprb,2.2749e+01_jprb,2.3365e+01_jprb,2.3730e+01_jprb/)  
kao( :, 5,10,15) = (/&
 & 9.7815e+00_jprb,8.9122e+00_jprb,9.1420e+00_jprb,1.1360e+01_jprb,1.4761e+01_jprb,1.8450e+01_jprb,&
 & 2.2139e+01_jprb,2.5815e+01_jprb,2.8297e+01_jprb,2.9069e+01_jprb,2.9515e+01_jprb/)  
kao( :, 1,11,15) = (/&
 & 1.2192e+01_jprb,1.0668e+01_jprb,9.1719e+00_jprb,8.2095e+00_jprb,7.4257e+00_jprb,7.4696e+00_jprb,&
 & 8.4517e+00_jprb,9.8563e+00_jprb,1.0806e+01_jprb,1.1102e+01_jprb,2.7700e+01_jprb/)  
kao( :, 2,11,15) = (/&
 & 1.1855e+01_jprb,1.0373e+01_jprb,9.2641e+00_jprb,8.5808e+00_jprb,8.5516e+00_jprb,9.6496e+00_jprb,&
 & 1.1490e+01_jprb,1.3402e+01_jprb,1.4690e+01_jprb,1.5091e+01_jprb,2.8329e+01_jprb/)  
kao( :, 3,11,15) = (/&
 & 1.1617e+01_jprb,1.0165e+01_jprb,9.4549e+00_jprb,9.2771e+00_jprb,1.0404e+01_jprb,1.2597e+01_jprb,&
 & 1.5113e+01_jprb,1.7627e+01_jprb,1.9321e+01_jprb,1.9850e+01_jprb,2.9277e+01_jprb/)  
kao( :, 4,11,15) = (/&
 & 1.1419e+01_jprb,1.0101e+01_jprb,9.7647e+00_jprb,1.0584e+01_jprb,1.2914e+01_jprb,1.6054e+01_jprb,&
 & 1.9262e+01_jprb,2.2467e+01_jprb,2.4628e+01_jprb,2.5304e+01_jprb,3.1159e+01_jprb/)  
kao( :, 5,11,15) = (/&
 & 1.1246e+01_jprb,1.0208e+01_jprb,1.0298e+01_jprb,1.2412e+01_jprb,1.5920e+01_jprb,1.9895e+01_jprb,&
 & 2.3870e+01_jprb,2.7842e+01_jprb,3.0521e+01_jprb,3.1359e+01_jprb,3.4867e+01_jprb/)  
kao( :, 1,12,15) = (/&
 & 1.4055e+01_jprb,1.2298e+01_jprb,1.0584e+01_jprb,9.3863e+00_jprb,8.3528e+00_jprb,8.2912e+00_jprb,&
 & 9.1651e+00_jprb,1.0659e+01_jprb,1.1686e+01_jprb,1.2009e+01_jprb,4.0755e+01_jprb/)  
kao( :, 2,12,15) = (/&
 & 1.3708e+01_jprb,1.1994e+01_jprb,1.0673e+01_jprb,9.6215e+00_jprb,9.5535e+00_jprb,1.0572e+01_jprb,&
 & 1.2442e+01_jprb,1.4512e+01_jprb,1.5909e+01_jprb,1.6350e+01_jprb,4.1783e+01_jprb/)  
kao( :, 3,12,15) = (/&
 & 1.3432e+01_jprb,1.1753e+01_jprb,1.0809e+01_jprb,1.0365e+01_jprb,1.1475e+01_jprb,1.3634e+01_jprb,&
 & 1.6334e+01_jprb,1.9052e+01_jprb,2.0884e+01_jprb,2.1465e+01_jprb,4.2453e+01_jprb/)  
kao( :, 4,12,15) = (/&
 & 1.3187e+01_jprb,1.1665e+01_jprb,1.0969e+01_jprb,1.1758e+01_jprb,1.4080e+01_jprb,1.7299e+01_jprb,&
 & 2.0755e+01_jprb,2.4210e+01_jprb,2.6541e+01_jprb,2.7279e+01_jprb,4.2992e+01_jprb/)  
kao( :, 5,12,15) = (/&
 & 1.2971e+01_jprb,1.1732e+01_jprb,1.1607e+01_jprb,1.3640e+01_jprb,1.7148e+01_jprb,2.1366e+01_jprb,&
 & 2.5637e+01_jprb,2.9905e+01_jprb,3.2783e+01_jprb,3.3705e+01_jprb,4.4626e+01_jprb/)  
kao( :, 1,13,15) = (/&
 & 1.6228e+01_jprb,1.4199e+01_jprb,1.2230e+01_jprb,1.0748e+01_jprb,9.4009e+00_jprb,9.2214e+00_jprb,&
 & 9.9389e+00_jprb,1.1470e+01_jprb,1.2574e+01_jprb,1.2929e+01_jprb,4.6698e+01_jprb/)  
kao( :, 2,13,15) = (/&
 & 1.5839e+01_jprb,1.3859e+01_jprb,1.2304e+01_jprb,1.0893e+01_jprb,1.0661e+01_jprb,1.1572e+01_jprb,&
 & 1.3374e+01_jprb,1.5600e+01_jprb,1.7103e+01_jprb,1.7585e+01_jprb,4.7783e+01_jprb/)  
kao( :, 3,13,15) = (/&
 & 1.5511e+01_jprb,1.3574e+01_jprb,1.2374e+01_jprb,1.1617e+01_jprb,1.2687e+01_jprb,1.4735e+01_jprb,&
 & 1.7515e+01_jprb,2.0432e+01_jprb,2.2399e+01_jprb,2.3033e+01_jprb,4.8488e+01_jprb/)  
kao( :, 4,13,15) = (/&
 & 1.5222e+01_jprb,1.3473e+01_jprb,1.2471e+01_jprb,1.3097e+01_jprb,1.5327e+01_jprb,1.8511e+01_jprb,&
 & 2.2200e+01_jprb,2.5897e+01_jprb,2.8394e+01_jprb,2.9197e+01_jprb,4.9013e+01_jprb/)  
kao( :, 5,13,15) = (/&
 & 1.4970e+01_jprb,1.3493e+01_jprb,1.3069e+01_jprb,1.5022e+01_jprb,1.8478e+01_jprb,2.2815e+01_jprb,&
 & 2.7375e+01_jprb,3.1933e+01_jprb,3.5007e+01_jprb,3.5995e+01_jprb,5.0755e+01_jprb/)  
kao( :, 1, 1,16) = (/&
 & 3.6978e+00_jprb,3.2359e+00_jprb,5.8520e+00_jprb,8.7722e+00_jprb,1.1692e+01_jprb,1.4611e+01_jprb,&
 & 1.7529e+01_jprb,2.0434e+01_jprb,2.2353e+01_jprb,2.2771e+01_jprb,2.1591e+01_jprb/)  
kao( :, 2, 1,16) = (/&
 & 3.6499e+00_jprb,3.4722e+00_jprb,6.9301e+00_jprb,1.0388e+01_jprb,1.3844e+01_jprb,1.7300e+01_jprb,&
 & 2.0752e+01_jprb,2.4192e+01_jprb,2.6475e+01_jprb,2.6965e+01_jprb,2.5577e+01_jprb/)  
kao( :, 3, 1,16) = (/&
 & 3.5975e+00_jprb,4.0332e+00_jprb,8.0476e+00_jprb,1.2062e+01_jprb,1.6074e+01_jprb,2.0086e+01_jprb,&
 & 2.4094e+01_jprb,2.8087e+01_jprb,3.0726e+01_jprb,3.1309e+01_jprb,2.9700e+01_jprb/)  
kao( :, 4, 1,16) = (/&
 & 3.5405e+00_jprb,4.6049e+00_jprb,9.1863e+00_jprb,1.3767e+01_jprb,1.8347e+01_jprb,2.2925e+01_jprb,&
 & 2.7499e+01_jprb,3.2055e+01_jprb,3.5076e+01_jprb,3.5737e+01_jprb,3.3906e+01_jprb/)  
kao( :, 5, 1,16) = (/&
 & 3.4814e+00_jprb,5.1822e+00_jprb,1.0334e+01_jprb,1.5485e+01_jprb,2.0637e+01_jprb,2.5785e+01_jprb,&
 & 3.0929e+01_jprb,3.6054e+01_jprb,3.9459e+01_jprb,4.0196e+01_jprb,3.8155e+01_jprb/)  
kao( :, 1, 2,16) = (/&
 & 4.0520e+00_jprb,3.5458e+00_jprb,6.5231e+00_jprb,9.7790e+00_jprb,1.3034e+01_jprb,1.6288e+01_jprb,&
 & 1.9539e+01_jprb,2.2778e+01_jprb,2.4923e+01_jprb,2.5395e+01_jprb,2.4752e+01_jprb/)  
kao( :, 2, 2,16) = (/&
 & 3.9931e+00_jprb,3.9027e+00_jprb,7.7909e+00_jprb,1.1679e+01_jprb,1.5566e+01_jprb,1.9451e+01_jprb,&
 & 2.3333e+01_jprb,2.7200e+01_jprb,2.9762e+01_jprb,3.0330e+01_jprb,2.9565e+01_jprb/)  
kao( :, 3, 2,16) = (/&
 & 3.9308e+00_jprb,4.5630e+00_jprb,9.1069e+00_jprb,1.3651e+01_jprb,1.8193e+01_jprb,2.2734e+01_jprb,&
 & 2.7271e+01_jprb,3.1793e+01_jprb,3.4788e+01_jprb,3.5457e+01_jprb,3.4565e+01_jprb/)  
kao( :, 4, 2,16) = (/&
 & 3.8638e+00_jprb,5.2409e+00_jprb,1.0457e+01_jprb,1.5672e+01_jprb,2.0886e+01_jprb,2.6099e+01_jprb,&
 & 3.1306e+01_jprb,3.6497e+01_jprb,3.9942e+01_jprb,4.0702e+01_jprb,3.9688e+01_jprb/)  
kao( :, 5, 2,16) = (/&
 & 3.7925e+00_jprb,5.9258e+00_jprb,1.1820e+01_jprb,1.7713e+01_jprb,2.3607e+01_jprb,2.9498e+01_jprb,&
 & 3.5387e+01_jprb,4.1252e+01_jprb,4.5136e+01_jprb,4.6007e+01_jprb,4.4885e+01_jprb/)  
kao( :, 1, 3,16) = (/&
 & 4.4902e+00_jprb,3.9291e+00_jprb,6.9369e+00_jprb,1.0400e+01_jprb,1.3863e+01_jprb,1.7324e+01_jprb,&
 & 2.0784e+01_jprb,2.4230e+01_jprb,2.6510e+01_jprb,2.7027e+01_jprb,2.7042e+01_jprb/)  
kao( :, 2, 3,16) = (/&
 & 4.4190e+00_jprb,4.2063e+00_jprb,8.3989e+00_jprb,1.2591e+01_jprb,1.6783e+01_jprb,2.0972e+01_jprb,&
 & 2.5161e+01_jprb,2.9338e+01_jprb,3.2094e+01_jprb,3.2723e+01_jprb,3.2745e+01_jprb/)  
kao( :, 3, 3,16) = (/&
 & 4.3422e+00_jprb,4.9746e+00_jprb,9.9306e+00_jprb,1.4886e+01_jprb,1.9841e+01_jprb,2.4793e+01_jprb,&
 & 2.9742e+01_jprb,3.4667e+01_jprb,3.7936e+01_jprb,3.8674e+01_jprb,3.8715e+01_jprb/)  
kao( :, 4, 3,16) = (/&
 & 4.2611e+00_jprb,5.7667e+00_jprb,1.1509e+01_jprb,1.7250e+01_jprb,2.2991e+01_jprb,2.8729e+01_jprb,&
 & 3.4468e+01_jprb,4.0180e+01_jprb,4.3962e+01_jprb,4.4836e+01_jprb,4.4863e+01_jprb/)  
kao( :, 5, 3,16) = (/&
 & 4.1760e+00_jprb,6.5736e+00_jprb,1.3115e+01_jprb,1.9656e+01_jprb,2.6196e+01_jprb,3.2733e+01_jprb,&
 & 3.9264e+01_jprb,4.5777e+01_jprb,5.0083e+01_jprb,5.1074e+01_jprb,5.1136e+01_jprb/)  
kao( :, 1, 4,16) = (/&
 & 5.0258e+00_jprb,4.3977e+00_jprb,7.1969e+00_jprb,1.0791e+01_jprb,1.4383e+01_jprb,1.7975e+01_jprb,&
 & 2.1569e+01_jprb,2.5144e+01_jprb,2.7520e+01_jprb,2.8065e+01_jprb,2.8444e+01_jprb/)  
kao( :, 2, 4,16) = (/&
 & 4.9390e+00_jprb,4.4372e+00_jprb,8.8585e+00_jprb,1.3281e+01_jprb,1.7703e+01_jprb,2.2123e+01_jprb,&
 & 2.6539e+01_jprb,3.0949e+01_jprb,3.3856e+01_jprb,3.4541e+01_jprb,3.4994e+01_jprb/)  
kao( :, 3, 4,16) = (/&
 & 4.8457e+00_jprb,5.3158e+00_jprb,1.0614e+01_jprb,1.5912e+01_jprb,2.1209e+01_jprb,2.6503e+01_jprb,&
 & 3.1793e+01_jprb,3.7075e+01_jprb,4.0567e+01_jprb,4.1384e+01_jprb,4.1940e+01_jprb/)  
kao( :, 4, 4,16) = (/&
 & 4.7474e+00_jprb,6.2334e+00_jprb,1.2443e+01_jprb,1.8652e+01_jprb,2.4860e+01_jprb,3.1065e+01_jprb,&
 & 3.7265e+01_jprb,4.3443e+01_jprb,4.7539e+01_jprb,4.8495e+01_jprb,4.9142e+01_jprb/)  
kao( :, 5, 4,16) = (/&
 & 4.6434e+00_jprb,7.1705e+00_jprb,1.4309e+01_jprb,2.1448e+01_jprb,2.8585e+01_jprb,3.5719e+01_jprb,&
 & 4.2858e+01_jprb,4.9961e+01_jprb,5.4666e+01_jprb,5.5776e+01_jprb,5.6532e+01_jprb/)  
kao( :, 1, 5,16) = (/&
 & 5.9530e+00_jprb,5.2090e+00_jprb,7.3637e+00_jprb,1.1041e+01_jprb,1.4718e+01_jprb,1.8396e+01_jprb,&
 & 2.2069e+01_jprb,2.5729e+01_jprb,2.8163e+01_jprb,2.8740e+01_jprb,2.9269e+01_jprb/)  
kao( :, 2, 5,16) = (/&
 & 5.7866e+00_jprb,5.0634e+00_jprb,9.2276e+00_jprb,1.3835e+01_jprb,1.8442e+01_jprb,2.3049e+01_jprb,&
 & 2.7650e+01_jprb,3.2234e+01_jprb,3.5276e+01_jprb,3.5999e+01_jprb,3.6669e+01_jprb/)  
kao( :, 3, 5,16) = (/&
 & 5.6302e+00_jprb,5.6178e+00_jprb,1.1219e+01_jprb,1.6821e+01_jprb,2.2421e+01_jprb,2.8019e+01_jprb,&
 & 3.3616e+01_jprb,3.9189e+01_jprb,4.2893e+01_jprb,4.3778e+01_jprb,4.4575e+01_jprb/)  
kao( :, 4, 5,16) = (/&
 & 5.4798e+00_jprb,6.6656e+00_jprb,1.3308e+01_jprb,1.9950e+01_jprb,2.6591e+01_jprb,3.3229e+01_jprb,&
 & 3.9862e+01_jprb,4.6471e+01_jprb,5.0866e+01_jprb,5.1930e+01_jprb,5.2869e+01_jprb/)  
kao( :, 5, 5,16) = (/&
 & 5.3354e+00_jprb,7.7467e+00_jprb,1.5462e+01_jprb,2.3177e+01_jprb,3.0891e+01_jprb,3.8601e+01_jprb,&
 & 4.6304e+01_jprb,5.3986e+01_jprb,5.9081e+01_jprb,6.0310e+01_jprb,6.1426e+01_jprb/)  
kao( :, 1, 6,16) = (/&
 & 7.2738e+00_jprb,6.3646e+00_jprb,7.3570e+00_jprb,1.1032e+01_jprb,1.4706e+01_jprb,1.8378e+01_jprb,&
 & 2.2046e+01_jprb,2.5711e+01_jprb,2.8141e+01_jprb,2.8729e+01_jprb,2.9318e+01_jprb/)  
kao( :, 2, 6,16) = (/&
 & 7.0648e+00_jprb,6.1818e+00_jprb,9.4107e+00_jprb,1.4112e+01_jprb,1.8811e+01_jprb,2.3508e+01_jprb,&
 & 2.8203e+01_jprb,3.2879e+01_jprb,3.5997e+01_jprb,3.6754e+01_jprb,3.7506e+01_jprb/)  
kao( :, 3, 6,16) = (/&
 & 6.8590e+00_jprb,6.0610e+00_jprb,1.1637e+01_jprb,1.7447e+01_jprb,2.3256e+01_jprb,2.9066e+01_jprb,&
 & 3.4869e+01_jprb,4.0663e+01_jprb,4.4507e+01_jprb,4.5454e+01_jprb,4.6382e+01_jprb/)  
kao( :, 4, 6,16) = (/&
 & 6.6613e+00_jprb,7.0109e+00_jprb,1.4000e+01_jprb,2.0989e+01_jprb,2.7977e+01_jprb,3.4961e+01_jprb,&
 & 4.1942e+01_jprb,4.8903e+01_jprb,5.3535e+01_jprb,5.4670e+01_jprb,5.5779e+01_jprb/)  
kao( :, 5, 6,16) = (/&
 & 6.4832e+00_jprb,8.2415e+00_jprb,1.6453e+01_jprb,2.4664e+01_jprb,3.2878e+01_jprb,4.1086e+01_jprb,&
 & 4.9286e+01_jprb,5.7462e+01_jprb,6.2904e+01_jprb,6.4241e+01_jprb,6.5559e+01_jprb/)  
kao( :, 1, 7,16) = (/&
 & 8.8732e+00_jprb,7.7641e+00_jprb,7.2311e+00_jprb,1.0833e+01_jprb,1.4441e+01_jprb,1.8048e+01_jprb,&
 & 2.1653e+01_jprb,2.5247e+01_jprb,2.7641e+01_jprb,2.8229e+01_jprb,2.8832e+01_jprb/)  
kao( :, 2, 7,16) = (/&
 & 8.6143e+00_jprb,7.5376e+00_jprb,9.4585e+00_jprb,1.4183e+01_jprb,1.8907e+01_jprb,2.3629e+01_jprb,&
 & 2.8346e+01_jprb,3.3048e+01_jprb,3.6188e+01_jprb,3.6968e+01_jprb,3.7763e+01_jprb/)  
kao( :, 3, 7,16) = (/&
 & 8.3664e+00_jprb,7.3209e+00_jprb,1.1919e+01_jprb,1.7872e+01_jprb,2.3823e+01_jprb,2.9773e+01_jprb,&
 & 3.5718e+01_jprb,4.1638e+01_jprb,4.5593e+01_jprb,4.6590e+01_jprb,4.7567e+01_jprb/)  
kao( :, 4, 7,16) = (/&
 & 8.1390e+00_jprb,7.4468e+00_jprb,1.4558e+01_jprb,2.1826e+01_jprb,2.9093e+01_jprb,3.6357e+01_jprb,&
 & 4.3619e+01_jprb,5.0854e+01_jprb,5.5680e+01_jprb,5.6904e+01_jprb,5.8098e+01_jprb/)  
kao( :, 5, 7,16) = (/&
 & 7.9265e+00_jprb,8.6774e+00_jprb,1.7326e+01_jprb,2.5975e+01_jprb,3.4621e+01_jprb,4.3265e+01_jprb,&
 & 5.1911e+01_jprb,6.0538e+01_jprb,6.6258e+01_jprb,6.7733e+01_jprb,6.9141e+01_jprb/)  
kao( :, 1, 8,16) = (/&
 & 1.0788e+01_jprb,9.4395e+00_jprb,8.0910e+00_jprb,1.0487e+01_jprb,1.3981e+01_jprb,1.7474e+01_jprb,&
 & 2.0958e+01_jprb,2.4442e+01_jprb,2.6758e+01_jprb,2.7356e+01_jprb,2.7940e+01_jprb/)  
kao( :, 2, 8,16) = (/&
 & 1.0475e+01_jprb,9.1659e+00_jprb,9.3873e+00_jprb,1.4077e+01_jprb,1.8765e+01_jprb,2.3452e+01_jprb,&
 & 2.8149e+01_jprb,3.2822e+01_jprb,3.5937e+01_jprb,3.6740e+01_jprb,3.7513e+01_jprb/)  
kao( :, 3, 8,16) = (/&
 & 1.0193e+01_jprb,8.9191e+00_jprb,1.2075e+01_jprb,1.8106e+01_jprb,2.4136e+01_jprb,3.0164e+01_jprb,&
 & 3.6189e+01_jprb,4.2205e+01_jprb,4.6208e+01_jprb,4.7253e+01_jprb,4.8244e+01_jprb/)  
kao( :, 4, 8,16) = (/&
 & 9.9289e+00_jprb,8.6882e+00_jprb,1.4994e+01_jprb,2.2482e+01_jprb,2.9968e+01_jprb,3.7453e+01_jprb,&
 & 4.4932e+01_jprb,5.2391e+01_jprb,5.7371e+01_jprb,5.8661e+01_jprb,5.9909e+01_jprb/)  
kao( :, 5, 8,16) = (/&
 & 9.6775e+00_jprb,9.2158e+00_jprb,1.8085e+01_jprb,2.7113e+01_jprb,3.6140e+01_jprb,4.5163e+01_jprb,&
 & 5.4184e+01_jprb,6.3203e+01_jprb,6.9206e+01_jprb,7.0757e+01_jprb,7.2247e+01_jprb/)  
kao( :, 1, 9,16) = (/&
 & 1.3069e+01_jprb,1.1436e+01_jprb,9.8022e+00_jprb,9.9694e+00_jprb,1.3291e+01_jprb,1.6611e+01_jprb,&
 & 1.9930e+01_jprb,2.3243e+01_jprb,2.5447e+01_jprb,2.6029e+01_jprb,2.6580e+01_jprb/)  
kao( :, 2, 9,16) = (/&
 & 1.2725e+01_jprb,1.1134e+01_jprb,9.8753e+00_jprb,1.3769e+01_jprb,1.8356e+01_jprb,2.2942e+01_jprb,&
 & 2.7527e+01_jprb,3.2095e+01_jprb,3.5151e+01_jprb,3.5948e+01_jprb,3.6707e+01_jprb/)  
kao( :, 3, 9,16) = (/&
 & 1.2400e+01_jprb,1.0851e+01_jprb,1.2076e+01_jprb,1.8109e+01_jprb,2.4141e+01_jprb,3.0170e+01_jprb,&
 & 3.6196e+01_jprb,4.2203e+01_jprb,4.6216e+01_jprb,4.7284e+01_jprb,4.8252e+01_jprb/)  
kao( :, 4, 9,16) = (/&
 & 1.2089e+01_jprb,1.0578e+01_jprb,1.5258e+01_jprb,2.2878e+01_jprb,3.0500e+01_jprb,3.8117e+01_jprb,&
 & 4.5731e+01_jprb,5.3326e+01_jprb,5.8402e+01_jprb,5.9748e+01_jprb,6.0995e+01_jprb/)  
kao( :, 5, 9,16) = (/&
 & 1.1789e+01_jprb,1.0434e+01_jprb,1.8677e+01_jprb,2.8005e+01_jprb,3.7330e+01_jprb,4.6652e+01_jprb,&
 & 5.5969e+01_jprb,6.5258e+01_jprb,7.1468e+01_jprb,7.3124e+01_jprb,7.4629e+01_jprb/)  
kao( :, 1,10,16) = (/&
 & 1.5771e+01_jprb,1.3799e+01_jprb,1.1828e+01_jprb,1.0379e+01_jprb,1.2776e+01_jprb,1.5968e+01_jprb,&
 & 1.9158e+01_jprb,2.2340e+01_jprb,2.4469e+01_jprb,2.5039e+01_jprb,2.5553e+01_jprb/)  
kao( :, 2,10,16) = (/&
 & 1.5386e+01_jprb,1.3463e+01_jprb,1.1540e+01_jprb,1.3590e+01_jprb,1.8117e+01_jprb,2.2643e+01_jprb,&
 & 2.7166e+01_jprb,3.1679e+01_jprb,3.4682e+01_jprb,3.5507e+01_jprb,3.6231e+01_jprb/)  
kao( :, 3,10,16) = (/&
 & 1.5014e+01_jprb,1.3138e+01_jprb,1.2638e+01_jprb,1.8229e+01_jprb,2.4305e+01_jprb,3.0376e+01_jprb,&
 & 3.6447e+01_jprb,4.2507e+01_jprb,4.6554e+01_jprb,4.7660e+01_jprb,4.8617e+01_jprb/)  
kao( :, 4,10,16) = (/&
 & 1.4647e+01_jprb,1.2816e+01_jprb,1.5618e+01_jprb,2.3419e+01_jprb,3.1218e+01_jprb,3.9016e+01_jprb,&
 & 4.6807e+01_jprb,5.4591e+01_jprb,5.9795e+01_jprb,6.1215e+01_jprb,6.2420e+01_jprb/)  
kao( :, 5,10,16) = (/&
 & 1.4280e+01_jprb,1.2495e+01_jprb,1.9355e+01_jprb,2.9020e+01_jprb,3.8692e+01_jprb,4.8365e+01_jprb,&
 & 5.8042e+01_jprb,6.7684e+01_jprb,7.4123e+01_jprb,7.5902e+01_jprb,7.7369e+01_jprb/)  
kao( :, 1,11,16) = (/&
 & 1.8786e+01_jprb,1.6438e+01_jprb,1.4090e+01_jprb,1.2331e+01_jprb,1.4530e+01_jprb,1.8160e+01_jprb,&
 & 2.1788e+01_jprb,2.5406e+01_jprb,2.7840e+01_jprb,2.8505e+01_jprb,3.1090e+01_jprb/)  
kao( :, 2,11,16) = (/&
 & 1.8352e+01_jprb,1.6058e+01_jprb,1.3764e+01_jprb,1.5493e+01_jprb,2.0554e+01_jprb,2.5688e+01_jprb,&
 & 3.0819e+01_jprb,3.5940e+01_jprb,3.9370e+01_jprb,4.0314e+01_jprb,4.1103e+01_jprb/)  
kao( :, 3,11,16) = (/&
 & 1.7913e+01_jprb,1.5674e+01_jprb,1.4890e+01_jprb,2.0637e+01_jprb,2.7511e+01_jprb,3.4389e+01_jprb,&
 & 4.1261e+01_jprb,4.8114e+01_jprb,5.2700e+01_jprb,5.3986e+01_jprb,5.5030e+01_jprb/)  
kao( :, 4,11,16) = (/&
 & 1.7463e+01_jprb,1.5280e+01_jprb,1.7784e+01_jprb,2.6445e+01_jprb,3.5253e+01_jprb,4.4066e+01_jprb,&
 & 5.2867e+01_jprb,6.1654e+01_jprb,6.7542e+01_jprb,6.9213e+01_jprb,7.0519e+01_jprb/)  
kao( :, 5,11,16) = (/&
 & 1.7011e+01_jprb,1.4885e+01_jprb,2.1813e+01_jprb,3.2706e+01_jprb,4.3599e+01_jprb,5.4495e+01_jprb,&
 & 6.5377e+01_jprb,7.6235e+01_jprb,8.3536e+01_jprb,8.5586e+01_jprb,8.7197e+01_jprb/)  
kao( :, 1,12,16) = (/&
 & 2.2316e+01_jprb,1.9527e+01_jprb,1.6737e+01_jprb,1.4596e+01_jprb,1.6461e+01_jprb,2.0474e+01_jprb,&
 & 2.4566e+01_jprb,2.8661e+01_jprb,3.1410e+01_jprb,3.2180e+01_jprb,4.4855e+01_jprb/)  
kao( :, 2,12,16) = (/&
 & 2.1794e+01_jprb,1.9070e+01_jprb,1.6346e+01_jprb,1.7861e+01_jprb,2.3106e+01_jprb,2.8879e+01_jprb,&
 & 3.4647e+01_jprb,4.0407e+01_jprb,4.4277e+01_jprb,4.5382e+01_jprb,4.9760e+01_jprb/)  
kao( :, 3,12,16) = (/&
 & 2.1250e+01_jprb,1.8594e+01_jprb,1.7508e+01_jprb,2.3135e+01_jprb,3.0842e+01_jprb,3.8557e+01_jprb,&
 & 4.6258e+01_jprb,5.3944e+01_jprb,5.9113e+01_jprb,6.0595e+01_jprb,6.2174e+01_jprb/)  
kao( :, 4,12,16) = (/&
 & 2.0691e+01_jprb,1.8105e+01_jprb,2.0448e+01_jprb,2.9564e+01_jprb,3.9416e+01_jprb,4.9267e+01_jprb,&
 & 5.9115e+01_jprb,6.8938e+01_jprb,7.5537e+01_jprb,7.7449e+01_jprb,7.8830e+01_jprb/)  
kao( :, 5,12,16) = (/&
 & 2.0116e+01_jprb,1.7618e+01_jprb,2.4414e+01_jprb,3.6468e+01_jprb,4.8613e+01_jprb,6.0754e+01_jprb,&
 & 7.2909e+01_jprb,8.5015e+01_jprb,9.3174e+01_jprb,9.5539e+01_jprb,9.7222e+01_jprb/)  
kao( :, 1,13,16) = (/&
 & 2.6369e+01_jprb,2.3073e+01_jprb,1.9777e+01_jprb,1.7264e+01_jprb,1.8821e+01_jprb,2.2830e+01_jprb,&
 & 2.7390e+01_jprb,3.1940e+01_jprb,3.5002e+01_jprb,3.5903e+01_jprb,5.1967e+01_jprb/)  
kao( :, 2,13,16) = (/&
 & 2.5711e+01_jprb,2.2497e+01_jprb,1.9315e+01_jprb,2.0637e+01_jprb,2.5666e+01_jprb,3.2078e+01_jprb,&
 & 3.8490e+01_jprb,4.4893e+01_jprb,4.9192e+01_jprb,5.0468e+01_jprb,5.7721e+01_jprb/)  
kao( :, 3,13,16) = (/&
 & 2.5020e+01_jprb,2.1893e+01_jprb,2.0597e+01_jprb,2.5898e+01_jprb,3.4157e+01_jprb,4.2689e+01_jprb,&
 & 5.1216e+01_jprb,5.9737e+01_jprb,6.5448e+01_jprb,6.7176e+01_jprb,7.0449e+01_jprb/)  
kao( :, 4,13,16) = (/&
 & 2.4297e+01_jprb,2.1260e+01_jprb,2.3512e+01_jprb,3.2642e+01_jprb,4.3514e+01_jprb,5.4385e+01_jprb,&
 & 6.5247e+01_jprb,7.6086e+01_jprb,8.3406e+01_jprb,8.5607e+01_jprb,8.7331e+01_jprb/)  
kao( :, 5,13,16) = (/&
 & 2.3576e+01_jprb,2.0739e+01_jprb,2.7492e+01_jprb,4.0149e+01_jprb,5.3519e+01_jprb,6.6886e+01_jprb,&
 & 8.0252e+01_jprb,9.3599e+01_jprb,1.0259e+02_jprb,1.0529e+02_jprb,1.0701e+02_jprb/)  

IF (lhook) CALL dr_hook('RRTM_KGB9:PART11',1,zhook_handle)
END SUBROUTINE part11


SUBROUTINE part12

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


!     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.0994e-03_jprb,5.0728e-03_jprb,6.1420e-03_jprb,7.2969e-03_jprb,8.5215e-03_jprb/)  
kbo( :,14, 1) = (/&
 & 3.5608e-03_jprb,4.4025e-03_jprb,5.3259e-03_jprb,6.3236e-03_jprb,7.3838e-03_jprb/)  
kbo( :,15, 1) = (/&
 & 3.1441e-03_jprb,3.8833e-03_jprb,4.6911e-03_jprb,5.5651e-03_jprb,6.4864e-03_jprb/)  
kbo( :,16, 1) = (/&
 & 2.7804e-03_jprb,3.4263e-03_jprb,4.1318e-03_jprb,4.8903e-03_jprb,5.6839e-03_jprb/)  
kbo( :,17, 1) = (/&
 & 2.5177e-03_jprb,3.0931e-03_jprb,3.7229e-03_jprb,4.3958e-03_jprb,5.0932e-03_jprb/)  
kbo( :,18, 1) = (/&
 & 2.3397e-03_jprb,2.8662e-03_jprb,3.4383e-03_jprb,4.0476e-03_jprb,4.6762e-03_jprb/)  
kbo( :,19, 1) = (/&
 & 2.2067e-03_jprb,2.6944e-03_jprb,3.2196e-03_jprb,3.7730e-03_jprb,4.3369e-03_jprb/)  
kbo( :,20, 1) = (/&
 & 1.9900e-03_jprb,2.4229e-03_jprb,2.8861e-03_jprb,3.3669e-03_jprb,3.8498e-03_jprb/)  
kbo( :,21, 1) = (/&
 & 1.7699e-03_jprb,2.1476e-03_jprb,2.5489e-03_jprb,2.9591e-03_jprb,3.3696e-03_jprb/)  
kbo( :,22, 1) = (/&
 & 1.5791e-03_jprb,1.9073e-03_jprb,2.2490e-03_jprb,2.5953e-03_jprb,2.9423e-03_jprb/)  
kbo( :,23, 1) = (/&
 & 1.4083e-03_jprb,1.6913e-03_jprb,1.9813e-03_jprb,2.2728e-03_jprb,2.5656e-03_jprb/)  
kbo( :,24, 1) = (/&
 & 1.2531e-03_jprb,1.4945e-03_jprb,1.7386e-03_jprb,1.9824e-03_jprb,2.2278e-03_jprb/)  
kbo( :,25, 1) = (/&
 & 1.1116e-03_jprb,1.3151e-03_jprb,1.5192e-03_jprb,1.7227e-03_jprb,1.9286e-03_jprb/)  
kbo( :,26, 1) = (/&
 & 9.8108e-04_jprb,1.1510e-03_jprb,1.3208e-03_jprb,1.4915e-03_jprb,1.6636e-03_jprb/)  
kbo( :,27, 1) = (/&
 & 8.5741e-04_jprb,9.9814e-04_jprb,1.1394e-03_jprb,1.2818e-03_jprb,1.4244e-03_jprb/)  
kbo( :,28, 1) = (/&
 & 7.4362e-04_jprb,8.5993e-04_jprb,9.7672e-04_jprb,1.0942e-03_jprb,1.2112e-03_jprb/)  
kbo( :,29, 1) = (/&
 & 6.4173e-04_jprb,7.3787e-04_jprb,8.3430e-04_jprb,9.3077e-04_jprb,1.0275e-03_jprb/)  
kbo( :,30, 1) = (/&
 & 5.5206e-04_jprb,6.3117e-04_jprb,7.1043e-04_jprb,7.8981e-04_jprb,8.6914e-04_jprb/)  
kbo( :,31, 1) = (/&
 & 4.7282e-04_jprb,5.3772e-04_jprb,6.0295e-04_jprb,6.6810e-04_jprb,7.3341e-04_jprb/)  
kbo( :,32, 1) = (/&
 & 4.0428e-04_jprb,4.5779e-04_jprb,5.1149e-04_jprb,5.6525e-04_jprb,6.1880e-04_jprb/)  
kbo( :,33, 1) = (/&
 & 3.4491e-04_jprb,3.8913e-04_jprb,4.3344e-04_jprb,4.7736e-04_jprb,5.2088e-04_jprb/)  
kbo( :,34, 1) = (/&
 & 2.9576e-04_jprb,3.3268e-04_jprb,3.6928e-04_jprb,4.0567e-04_jprb,4.4172e-04_jprb/)  
kbo( :,35, 1) = (/&
 & 2.5077e-04_jprb,2.8136e-04_jprb,3.1174e-04_jprb,3.4190e-04_jprb,3.7190e-04_jprb/)  
kbo( :,36, 1) = (/&
 & 2.0965e-04_jprb,2.3515e-04_jprb,2.6041e-04_jprb,2.8542e-04_jprb,3.1056e-04_jprb/)  
kbo( :,37, 1) = (/&
 & 1.6881e-04_jprb,1.8974e-04_jprb,2.1051e-04_jprb,2.3106e-04_jprb,2.5174e-04_jprb/)  
kbo( :,38, 1) = (/&
 & 1.3519e-04_jprb,1.5238e-04_jprb,1.6942e-04_jprb,1.8630e-04_jprb,2.0323e-04_jprb/)  
kbo( :,39, 1) = (/&
 & 1.0769e-04_jprb,1.2175e-04_jprb,1.3571e-04_jprb,1.4957e-04_jprb,1.6341e-04_jprb/)  
kbo( :,40, 1) = (/&
 & 8.3659e-05_jprb,9.4997e-05_jprb,1.0624e-04_jprb,1.1742e-04_jprb,1.2854e-04_jprb/)  
kbo( :,41, 1) = (/&
 & 6.4553e-05_jprb,7.3658e-05_jprb,8.2687e-05_jprb,9.1644e-05_jprb,1.0055e-04_jprb/)  
kbo( :,42, 1) = (/&
 & 4.9559e-05_jprb,5.6844e-05_jprb,6.4074e-05_jprb,7.1250e-05_jprb,7.8380e-05_jprb/)  
kbo( :,43, 1) = (/&
 & 3.7325e-05_jprb,4.3138e-05_jprb,4.8889e-05_jprb,5.4599e-05_jprb,6.0264e-05_jprb/)  
kbo( :,44, 1) = (/&
 & 2.7719e-05_jprb,3.2330e-05_jprb,3.6894e-05_jprb,4.1410e-05_jprb,4.5899e-05_jprb/)  
kbo( :,45, 1) = (/&
 & 2.0321e-05_jprb,2.3995e-05_jprb,2.7586e-05_jprb,3.1159e-05_jprb,3.4704e-05_jprb/)  
kbo( :,46, 1) = (/&
 & 1.4684e-05_jprb,1.7602e-05_jprb,2.0438e-05_jprb,2.3255e-05_jprb,2.6055e-05_jprb/)  
kbo( :,47, 1) = (/&
 & 1.0495e-05_jprb,1.2761e-05_jprb,1.5036e-05_jprb,1.7255e-05_jprb,1.9472e-05_jprb/)  
kbo( :,48, 1) = (/&
 & 7.3772e-06_jprb,9.1061e-06_jprb,1.0897e-05_jprb,1.2655e-05_jprb,1.4395e-05_jprb/)  
kbo( :,49, 1) = (/&
 & 5.0673e-06_jprb,6.3724e-06_jprb,7.7347e-06_jprb,9.1249e-06_jprb,1.0486e-05_jprb/)  
kbo( :,50, 1) = (/&
 & 3.5302e-06_jprb,4.5180e-06_jprb,5.5663e-06_jprb,6.6492e-06_jprb,7.7336e-06_jprb/)  
kbo( :,51, 1) = (/&
 & 2.4650e-06_jprb,3.2117e-06_jprb,4.0196e-06_jprb,4.8590e-06_jprb,5.7209e-06_jprb/)  
kbo( :,52, 1) = (/&
 & 1.6959e-06_jprb,2.2491e-06_jprb,2.8606e-06_jprb,3.5081e-06_jprb,4.1772e-06_jprb/)  
kbo( :,53, 1) = (/&
 & 1.1461e-06_jprb,1.5466e-06_jprb,1.9999e-06_jprb,2.4909e-06_jprb,3.0024e-06_jprb/)  
kbo( :,54, 1) = (/&
 & 8.1277e-07_jprb,1.1151e-06_jprb,1.4623e-06_jprb,1.8438e-06_jprb,2.2473e-06_jprb/)  
kbo( :,55, 1) = (/&
 & 5.9132e-07_jprb,8.2491e-07_jprb,1.0964e-06_jprb,1.3990e-06_jprb,1.7223e-06_jprb/)  
kbo( :,56, 1) = (/&
 & 4.2770e-07_jprb,6.0720e-07_jprb,8.1863e-07_jprb,1.0577e-06_jprb,1.3158e-06_jprb/)  
kbo( :,57, 1) = (/&
 & 3.0731e-07_jprb,4.4442e-07_jprb,6.0841e-07_jprb,7.9635e-07_jprb,1.0017e-06_jprb/)  
kbo( :,58, 1) = (/&
 & 2.2286e-07_jprb,3.2839e-07_jprb,4.5650e-07_jprb,6.0508e-07_jprb,7.6969e-07_jprb/)  
kbo( :,59, 1) = (/&
 & 1.8935e-07_jprb,2.8208e-07_jprb,3.9434e-07_jprb,5.2454e-07_jprb,6.6793e-07_jprb/)  
kbo( :,13, 2) = (/&
 & 2.0350e-02_jprb,2.3737e-02_jprb,2.7056e-02_jprb,3.0424e-02_jprb,3.3880e-02_jprb/)  
kbo( :,14, 2) = (/&
 & 1.7887e-02_jprb,2.0698e-02_jprb,2.3474e-02_jprb,2.6314e-02_jprb,2.9218e-02_jprb/)  
kbo( :,15, 2) = (/&
 & 1.5699e-02_jprb,1.8063e-02_jprb,2.0419e-02_jprb,2.2807e-02_jprb,2.5263e-02_jprb/)  
kbo( :,16, 2) = (/&
 & 1.3704e-02_jprb,1.5696e-02_jprb,1.7682e-02_jprb,1.9683e-02_jprb,2.1758e-02_jprb/)  
kbo( :,17, 2) = (/&
 & 1.2174e-02_jprb,1.3873e-02_jprb,1.5565e-02_jprb,1.7279e-02_jprb,1.9055e-02_jprb/)  
kbo( :,18, 2) = (/&
 & 1.1051e-02_jprb,1.2529e-02_jprb,1.4014e-02_jprb,1.5532e-02_jprb,1.7091e-02_jprb/)  
kbo( :,19, 2) = (/&
 & 1.0133e-02_jprb,1.1442e-02_jprb,1.2772e-02_jprb,1.4145e-02_jprb,1.5532e-02_jprb/)  
kbo( :,20, 2) = (/&
 & 8.9501e-03_jprb,1.0074e-02_jprb,1.1232e-02_jprb,1.2420e-02_jprb,1.3612e-02_jprb/)  
kbo( :,21, 2) = (/&
 & 7.8061e-03_jprb,8.7666e-03_jprb,9.7638e-03_jprb,1.0776e-02_jprb,1.1786e-02_jprb/)  
kbo( :,22, 2) = (/&
 & 6.7985e-03_jprb,7.6154e-03_jprb,8.4665e-03_jprb,9.3161e-03_jprb,1.0161e-02_jprb/)  
kbo( :,23, 2) = (/&
 & 5.9115e-03_jprb,6.6091e-03_jprb,7.3264e-03_jprb,8.0410e-03_jprb,8.7466e-03_jprb/)  
kbo( :,24, 2) = (/&
 & 5.1182e-03_jprb,5.7070e-03_jprb,6.3037e-03_jprb,6.8969e-03_jprb,7.4832e-03_jprb/)  
kbo( :,25, 2) = (/&
 & 4.4185e-03_jprb,4.9117e-03_jprb,5.4043e-03_jprb,5.8933e-03_jprb,6.3802e-03_jprb/)  
kbo( :,26, 2) = (/&
 & 3.8039e-03_jprb,4.2126e-03_jprb,4.6157e-03_jprb,5.0191e-03_jprb,5.4221e-03_jprb/)  
kbo( :,27, 2) = (/&
 & 3.2526e-03_jprb,3.5834e-03_jprb,3.9131e-03_jprb,4.2430e-03_jprb,4.5744e-03_jprb/)  
kbo( :,28, 2) = (/&
 & 2.7589e-03_jprb,3.0253e-03_jprb,3.2916e-03_jprb,3.5602e-03_jprb,3.8315e-03_jprb/)  
kbo( :,29, 2) = (/&
 & 2.3366e-03_jprb,2.5520e-03_jprb,2.7694e-03_jprb,2.9896e-03_jprb,3.2113e-03_jprb/)  
kbo( :,30, 2) = (/&
 & 1.9721e-03_jprb,2.1482e-03_jprb,2.3261e-03_jprb,2.5062e-03_jprb,2.6880e-03_jprb/)  
kbo( :,31, 2) = (/&
 & 1.6646e-03_jprb,1.8093e-03_jprb,1.9562e-03_jprb,2.1055e-03_jprb,2.2560e-03_jprb/)  
kbo( :,32, 2) = (/&
 & 1.4084e-03_jprb,1.5283e-03_jprb,1.6508e-03_jprb,1.7751e-03_jprb,1.9009e-03_jprb/)  
kbo( :,33, 2) = (/&
 & 1.1942e-03_jprb,1.2940e-03_jprb,1.3964e-03_jprb,1.5007e-03_jprb,1.6067e-03_jprb/)  
kbo( :,34, 2) = (/&
 & 1.0227e-03_jprb,1.1075e-03_jprb,1.1945e-03_jprb,1.2830e-03_jprb,1.3735e-03_jprb/)  
kbo( :,35, 2) = (/&
 & 8.7018e-04_jprb,9.4216e-04_jprb,1.0160e-03_jprb,1.0916e-03_jprb,1.1695e-03_jprb/)  
kbo( :,36, 2) = (/&
 & 7.3515e-04_jprb,7.9615e-04_jprb,8.5904e-04_jprb,9.2392e-04_jprb,9.9055e-04_jprb/)  
kbo( :,37, 2) = (/&
 & 6.0212e-04_jprb,6.5252e-04_jprb,7.0452e-04_jprb,7.5835e-04_jprb,8.1370e-04_jprb/)  
kbo( :,38, 2) = (/&
 & 4.9188e-04_jprb,5.3334e-04_jprb,5.7632e-04_jprb,6.2087e-04_jprb,6.6682e-04_jprb/)  
kbo( :,39, 2) = (/&
 & 4.0118e-04_jprb,4.3525e-04_jprb,4.7078e-04_jprb,5.0765e-04_jprb,5.4579e-04_jprb/)  
kbo( :,40, 2) = (/&
 & 3.1804e-04_jprb,3.4535e-04_jprb,3.7372e-04_jprb,4.0332e-04_jprb,4.3403e-04_jprb/)  
kbo( :,41, 2) = (/&
 & 2.5079e-04_jprb,2.7257e-04_jprb,2.9509e-04_jprb,3.1873e-04_jprb,3.4326e-04_jprb/)  
kbo( :,42, 2) = (/&
 & 1.9734e-04_jprb,2.1467e-04_jprb,2.3255e-04_jprb,2.5134e-04_jprb,2.7095e-04_jprb/)  
kbo( :,43, 2) = (/&
 & 1.5339e-04_jprb,1.6697e-04_jprb,1.8107e-04_jprb,1.9578e-04_jprb,2.1125e-04_jprb/)  
kbo( :,44, 2) = (/&
 & 1.1845e-04_jprb,1.2903e-04_jprb,1.4006e-04_jprb,1.5150e-04_jprb,1.6358e-04_jprb/)  
kbo( :,45, 2) = (/&
 & 9.1280e-05_jprb,9.9479e-05_jprb,1.0807e-04_jprb,1.1698e-04_jprb,1.2633e-04_jprb/)  
kbo( :,46, 2) = (/&
 & 7.0194e-05_jprb,7.6516e-05_jprb,8.3188e-05_jprb,9.0126e-05_jprb,9.7367e-05_jprb/)  
kbo( :,47, 2) = (/&
 & 5.3867e-05_jprb,5.8795e-05_jprb,6.3952e-05_jprb,6.9343e-05_jprb,7.4969e-05_jprb/)  
kbo( :,48, 2) = (/&
 & 4.1189e-05_jprb,4.5058e-05_jprb,4.9041e-05_jprb,5.3206e-05_jprb,5.7575e-05_jprb/)  
kbo( :,49, 2) = (/&
 & 3.1341e-05_jprb,3.4382e-05_jprb,3.7483e-05_jprb,4.0694e-05_jprb,4.4051e-05_jprb/)  
kbo( :,50, 2) = (/&
 & 2.4027e-05_jprb,2.6443e-05_jprb,2.8884e-05_jprb,3.1394e-05_jprb,3.3991e-05_jprb/)  
kbo( :,51, 2) = (/&
 & 1.8468e-05_jprb,2.0396e-05_jprb,2.2328e-05_jprb,2.4296e-05_jprb,2.6326e-05_jprb/)  
kbo( :,52, 2) = (/&
 & 1.4146e-05_jprb,1.5676e-05_jprb,1.7214e-05_jprb,1.8760e-05_jprb,2.0350e-05_jprb/)  
kbo( :,53, 2) = (/&
 & 1.0781e-05_jprb,1.1992e-05_jprb,1.3217e-05_jprb,1.4439e-05_jprb,1.5682e-05_jprb/)  
kbo( :,54, 2) = (/&
 & 8.3350e-06_jprb,9.3049e-06_jprb,1.0280e-05_jprb,1.1258e-05_jprb,1.2239e-05_jprb/)  
kbo( :,55, 2) = (/&
 & 6.4823e-06_jprb,7.2753e-06_jprb,8.0542e-06_jprb,8.8375e-06_jprb,9.6163e-06_jprb/)  
kbo( :,56, 2) = (/&
 & 5.0178e-06_jprb,5.6802e-06_jprb,6.3041e-06_jprb,6.9292e-06_jprb,7.5496e-06_jprb/)  
kbo( :,57, 2) = (/&
 & 3.8663e-06_jprb,4.4221e-06_jprb,4.9273e-06_jprb,5.4254e-06_jprb,5.9221e-06_jprb/)  
kbo( :,58, 2) = (/&
 & 2.9804e-06_jprb,3.4457e-06_jprb,3.8617e-06_jprb,4.2609e-06_jprb,4.6580e-06_jprb/)  
kbo( :,59, 2) = (/&
 & 2.4280e-06_jprb,2.8160e-06_jprb,3.1595e-06_jprb,3.4836e-06_jprb,3.8045e-06_jprb/)  
kbo( :,13, 3) = (/&
 & 5.2207e-02_jprb,5.8218e-02_jprb,6.4867e-02_jprb,7.1854e-02_jprb,7.9269e-02_jprb/)  
kbo( :,14, 3) = (/&
 & 4.5186e-02_jprb,5.0511e-02_jprb,5.6225e-02_jprb,6.2140e-02_jprb,6.8380e-02_jprb/)  
kbo( :,15, 3) = (/&
 & 3.9072e-02_jprb,4.3588e-02_jprb,4.8378e-02_jprb,5.3369e-02_jprb,5.8579e-02_jprb/)  
kbo( :,16, 3) = (/&
 & 3.3600e-02_jprb,3.7414e-02_jprb,4.1420e-02_jprb,4.5603e-02_jprb,4.9920e-02_jprb/)  
kbo( :,17, 3) = (/&
 & 2.9352e-02_jprb,3.2637e-02_jprb,3.6077e-02_jprb,3.9644e-02_jprb,4.3315e-02_jprb/)  
kbo( :,18, 3) = (/&
 & 2.6239e-02_jprb,2.9170e-02_jprb,3.2236e-02_jprb,3.5401e-02_jprb,3.8652e-02_jprb/)  
kbo( :,19, 3) = (/&
 & 2.3733e-02_jprb,2.6395e-02_jprb,2.9161e-02_jprb,3.2005e-02_jprb,3.4969e-02_jprb/)  
kbo( :,20, 3) = (/&
 & 2.0795e-02_jprb,2.3131e-02_jprb,2.5535e-02_jprb,2.8011e-02_jprb,3.0599e-02_jprb/)  
kbo( :,21, 3) = (/&
 & 1.8040e-02_jprb,2.0057e-02_jprb,2.2116e-02_jprb,2.4262e-02_jprb,2.6478e-02_jprb/)  
kbo( :,22, 3) = (/&
 & 1.5612e-02_jprb,1.7322e-02_jprb,1.9070e-02_jprb,2.0895e-02_jprb,2.2752e-02_jprb/)  
kbo( :,23, 3) = (/&
 & 1.3484e-02_jprb,1.4923e-02_jprb,1.6411e-02_jprb,1.7947e-02_jprb,1.9492e-02_jprb/)  
kbo( :,24, 3) = (/&
 & 1.1550e-02_jprb,1.2744e-02_jprb,1.3987e-02_jprb,1.5260e-02_jprb,1.6517e-02_jprb/)  
kbo( :,25, 3) = (/&
 & 9.8605e-03_jprb,1.0848e-02_jprb,1.1882e-02_jprb,1.2919e-02_jprb,1.3956e-02_jprb/)  
kbo( :,26, 3) = (/&
 & 8.3958e-03_jprb,9.2176e-03_jprb,1.0068e-02_jprb,1.0918e-02_jprb,1.1783e-02_jprb/)  
kbo( :,27, 3) = (/&
 & 7.0886e-03_jprb,7.7689e-03_jprb,8.4604e-03_jprb,9.1621e-03_jprb,9.8810e-03_jprb/)  
kbo( :,28, 3) = (/&
 & 5.9371e-03_jprb,6.4915e-03_jprb,7.0594e-03_jprb,7.6411e-03_jprb,8.2339e-03_jprb/)  
kbo( :,29, 3) = (/&
 & 4.9851e-03_jprb,5.4425e-03_jprb,5.9143e-03_jprb,6.3959e-03_jprb,6.8922e-03_jprb/)  
kbo( :,30, 3) = (/&
 & 4.1812e-03_jprb,4.5627e-03_jprb,4.9527e-03_jprb,5.3553e-03_jprb,5.7728e-03_jprb/)  
kbo( :,31, 3) = (/&
 & 3.5208e-03_jprb,3.8377e-03_jprb,4.1624e-03_jprb,4.5005e-03_jprb,4.8529e-03_jprb/)  
kbo( :,32, 3) = (/&
 & 2.9794e-03_jprb,3.2434e-03_jprb,3.5171e-03_jprb,3.8033e-03_jprb,4.1013e-03_jprb/)  
kbo( :,33, 3) = (/&
 & 2.5298e-03_jprb,2.7525e-03_jprb,2.9853e-03_jprb,3.2295e-03_jprb,3.4800e-03_jprb/)  
kbo( :,34, 3) = (/&
 & 2.1748e-03_jprb,2.3658e-03_jprb,2.5669e-03_jprb,2.7771e-03_jprb,2.9911e-03_jprb/)  
kbo( :,35, 3) = (/&
 & 1.8567e-03_jprb,2.0216e-03_jprb,2.1956e-03_jprb,2.3760e-03_jprb,2.5595e-03_jprb/)  
kbo( :,36, 3) = (/&
 & 1.5731e-03_jprb,1.7153e-03_jprb,1.8654e-03_jprb,2.0205e-03_jprb,2.1791e-03_jprb/)  
kbo( :,37, 3) = (/&
 & 1.2933e-03_jprb,1.4114e-03_jprb,1.5364e-03_jprb,1.6658e-03_jprb,1.7984e-03_jprb/)  
kbo( :,38, 3) = (/&
 & 1.0616e-03_jprb,1.1594e-03_jprb,1.2634e-03_jprb,1.3712e-03_jprb,1.4820e-03_jprb/)  
kbo( :,39, 3) = (/&
 & 8.7125e-04_jprb,9.5245e-04_jprb,1.0387e-03_jprb,1.1287e-03_jprb,1.2213e-03_jprb/)  
kbo( :,40, 3) = (/&
 & 6.9327e-04_jprb,7.5826e-04_jprb,8.2752e-04_jprb,8.9995e-04_jprb,9.7479e-04_jprb/)  
kbo( :,41, 3) = (/&
 & 5.4868e-04_jprb,6.0043e-04_jprb,6.5570e-04_jprb,7.1362e-04_jprb,7.7402e-04_jprb/)  
kbo( :,42, 3) = (/&
 & 4.3350e-04_jprb,4.7475e-04_jprb,5.1866e-04_jprb,5.6496e-04_jprb,6.1339e-04_jprb/)  
kbo( :,43, 3) = (/&
 & 3.3831e-04_jprb,3.7074e-04_jprb,4.0518e-04_jprb,4.4169e-04_jprb,4.7994e-04_jprb/)  
kbo( :,44, 3) = (/&
 & 2.6244e-04_jprb,2.8770e-04_jprb,3.1459e-04_jprb,3.4301e-04_jprb,3.7299e-04_jprb/)  
kbo( :,45, 3) = (/&
 & 2.0330e-04_jprb,2.2282e-04_jprb,2.4376e-04_jprb,2.6587e-04_jprb,2.8931e-04_jprb/)  
kbo( :,46, 3) = (/&
 & 1.5718e-04_jprb,1.7223e-04_jprb,1.8847e-04_jprb,2.0565e-04_jprb,2.2386e-04_jprb/)  
kbo( :,47, 3) = (/&
 & 1.2137e-04_jprb,1.3292e-04_jprb,1.4544e-04_jprb,1.5881e-04_jprb,1.7290e-04_jprb/)  
kbo( :,48, 3) = (/&
 & 9.3602e-05_jprb,1.0245e-04_jprb,1.1206e-04_jprb,1.2242e-04_jprb,1.3333e-04_jprb/)  
kbo( :,49, 3) = (/&
 & 7.2096e-05_jprb,7.8857e-05_jprb,8.6198e-05_jprb,9.4146e-05_jprb,1.0259e-04_jprb/)  
kbo( :,50, 3) = (/&
 & 5.5913e-05_jprb,6.1131e-05_jprb,6.6766e-05_jprb,7.2901e-05_jprb,7.9460e-05_jprb/)  
kbo( :,51, 3) = (/&
 & 4.3511e-05_jprb,4.7559e-05_jprb,5.1896e-05_jprb,5.6624e-05_jprb,6.1713e-05_jprb/)  
kbo( :,52, 3) = (/&
 & 3.3817e-05_jprb,3.6967e-05_jprb,4.0308e-05_jprb,4.3936e-05_jprb,4.7870e-05_jprb/)  
kbo( :,53, 3) = (/&
 & 2.6251e-05_jprb,2.8701e-05_jprb,3.1278e-05_jprb,3.4055e-05_jprb,3.7076e-05_jprb/)  
kbo( :,54, 3) = (/&
 & 2.0565e-05_jprb,2.2472e-05_jprb,2.4493e-05_jprb,2.6647e-05_jprb,2.8987e-05_jprb/)  
kbo( :,55, 3) = (/&
 & 1.6201e-05_jprb,1.7665e-05_jprb,1.9265e-05_jprb,2.0950e-05_jprb,2.2778e-05_jprb/)  
kbo( :,56, 3) = (/&
 & 1.2781e-05_jprb,1.3883e-05_jprb,1.5142e-05_jprb,1.6468e-05_jprb,1.7890e-05_jprb/)  
kbo( :,57, 3) = (/&
 & 1.0089e-05_jprb,1.0916e-05_jprb,1.1894e-05_jprb,1.2940e-05_jprb,1.4042e-05_jprb/)  
kbo( :,58, 3) = (/&
 & 7.9784e-06_jprb,8.6088e-06_jprb,9.3610e-06_jprb,1.0185e-05_jprb,1.1049e-05_jprb/)  
kbo( :,59, 3) = (/&
 & 6.4510e-06_jprb,6.9647e-06_jprb,7.5759e-06_jprb,8.2439e-06_jprb,8.9478e-06_jprb/)  

IF (lhook) CALL dr_hook('RRTM_KGB9:PART12',1,zhook_handle)
END SUBROUTINE part12


SUBROUTINE part13

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


kbo( :,13, 4) = (/&
 & 1.1841e-01_jprb,1.2983e-01_jprb,1.4154e-01_jprb,1.5381e-01_jprb,1.6654e-01_jprb/)  
kbo( :,14, 4) = (/&
 & 1.0163e-01_jprb,1.1119e-01_jprb,1.2120e-01_jprb,1.3164e-01_jprb,1.4262e-01_jprb/)  
kbo( :,15, 4) = (/&
 & 8.7533e-02_jprb,9.5453e-02_jprb,1.0360e-01_jprb,1.1225e-01_jprb,1.2143e-01_jprb/)  
kbo( :,16, 4) = (/&
 & 7.4718e-02_jprb,8.1074e-02_jprb,8.7917e-02_jprb,9.5269e-02_jprb,1.0309e-01_jprb/)  
kbo( :,17, 4) = (/&
 & 6.4598e-02_jprb,7.0161e-02_jprb,7.6195e-02_jprb,8.2691e-02_jprb,8.9645e-02_jprb/)  
kbo( :,18, 4) = (/&
 & 5.7466e-02_jprb,6.2589e-02_jprb,6.8109e-02_jprb,7.4052e-02_jprb,8.0449e-02_jprb/)  
kbo( :,19, 4) = (/&
 & 5.1818e-02_jprb,5.6571e-02_jprb,6.1696e-02_jprb,6.7232e-02_jprb,7.3092e-02_jprb/)  
kbo( :,20, 4) = (/&
 & 4.5333e-02_jprb,4.9583e-02_jprb,5.4175e-02_jprb,5.9119e-02_jprb,6.4307e-02_jprb/)  
kbo( :,21, 4) = (/&
 & 3.9244e-02_jprb,4.2988e-02_jprb,4.7056e-02_jprb,5.1390e-02_jprb,5.5921e-02_jprb/)  
kbo( :,22, 4) = (/&
 & 3.3762e-02_jprb,3.7028e-02_jprb,4.0590e-02_jprb,4.4367e-02_jprb,4.8278e-02_jprb/)  
kbo( :,23, 4) = (/&
 & 2.8964e-02_jprb,3.1825e-02_jprb,3.4924e-02_jprb,3.8192e-02_jprb,4.1570e-02_jprb/)  
kbo( :,24, 4) = (/&
 & 2.4605e-02_jprb,2.7087e-02_jprb,2.9744e-02_jprb,3.2528e-02_jprb,3.5398e-02_jprb/)  
kbo( :,25, 4) = (/&
 & 2.0888e-02_jprb,2.3028e-02_jprb,2.5293e-02_jprb,2.7664e-02_jprb,3.0056e-02_jprb/)  
kbo( :,26, 4) = (/&
 & 1.7768e-02_jprb,1.9595e-02_jprb,2.1528e-02_jprb,2.3523e-02_jprb,2.5480e-02_jprb/)  
kbo( :,27, 4) = (/&
 & 1.5025e-02_jprb,1.6582e-02_jprb,1.8208e-02_jprb,1.9851e-02_jprb,2.1449e-02_jprb/)  
kbo( :,28, 4) = (/&
 & 1.2630e-02_jprb,1.3940e-02_jprb,1.5283e-02_jprb,1.6619e-02_jprb,1.7935e-02_jprb/)  
kbo( :,29, 4) = (/&
 & 1.0679e-02_jprb,1.1777e-02_jprb,1.2882e-02_jprb,1.3981e-02_jprb,1.5077e-02_jprb/)  
kbo( :,30, 4) = (/&
 & 9.0255e-03_jprb,9.9336e-03_jprb,1.0847e-02_jprb,1.1760e-02_jprb,1.2675e-02_jprb/)  
kbo( :,31, 4) = (/&
 & 7.6536e-03_jprb,8.4086e-03_jprb,9.1742e-03_jprb,9.9429e-03_jprb,1.0712e-02_jprb/)  
kbo( :,32, 4) = (/&
 & 6.5182e-03_jprb,7.1536e-03_jprb,7.8014e-03_jprb,8.4515e-03_jprb,9.1065e-03_jprb/)  
kbo( :,33, 4) = (/&
 & 5.5704e-03_jprb,6.1113e-03_jprb,6.6630e-03_jprb,7.2151e-03_jprb,7.7820e-03_jprb/)  
kbo( :,34, 4) = (/&
 & 4.8181e-03_jprb,5.2845e-03_jprb,5.7551e-03_jprb,6.2347e-03_jprb,6.7271e-03_jprb/)  
kbo( :,35, 4) = (/&
 & 4.1344e-03_jprb,4.5342e-03_jprb,4.9410e-03_jprb,5.3600e-03_jprb,5.7876e-03_jprb/)  
kbo( :,36, 4) = (/&
 & 3.5137e-03_jprb,3.8568e-03_jprb,4.2105e-03_jprb,4.5744e-03_jprb,4.9478e-03_jprb/)  
kbo( :,37, 4) = (/&
 & 2.9015e-03_jprb,3.1894e-03_jprb,3.4867e-03_jprb,3.7928e-03_jprb,4.1062e-03_jprb/)  
kbo( :,38, 4) = (/&
 & 2.3922e-03_jprb,2.6336e-03_jprb,2.8833e-03_jprb,3.1403e-03_jprb,3.4033e-03_jprb/)  
kbo( :,39, 4) = (/&
 & 1.9717e-03_jprb,2.1746e-03_jprb,2.3846e-03_jprb,2.6005e-03_jprb,2.8213e-03_jprb/)  
kbo( :,40, 4) = (/&
 & 1.5744e-03_jprb,1.7398e-03_jprb,1.9111e-03_jprb,2.0874e-03_jprb,2.2673e-03_jprb/)  
kbo( :,41, 4) = (/&
 & 1.2499e-03_jprb,1.3841e-03_jprb,1.5231e-03_jprb,1.6664e-03_jprb,1.8122e-03_jprb/)  
kbo( :,42, 4) = (/&
 & 9.9026e-04_jprb,1.0991e-03_jprb,1.2117e-03_jprb,1.3281e-03_jprb,1.4464e-03_jprb/)  
kbo( :,43, 4) = (/&
 & 7.7424e-04_jprb,8.6142e-04_jprb,9.5183e-04_jprb,1.0452e-03_jprb,1.1404e-03_jprb/)  
kbo( :,44, 4) = (/&
 & 6.0102e-04_jprb,6.7034e-04_jprb,7.4252e-04_jprb,8.1707e-04_jprb,8.9311e-04_jprb/)  
kbo( :,45, 4) = (/&
 & 4.6542e-04_jprb,5.2035e-04_jprb,5.7783e-04_jprb,6.3732e-04_jprb,6.9797e-04_jprb/)  
kbo( :,46, 4) = (/&
 & 3.5929e-04_jprb,4.0259e-04_jprb,4.4817e-04_jprb,4.9561e-04_jprb,5.4403e-04_jprb/)  
kbo( :,47, 4) = (/&
 & 2.7639e-04_jprb,3.1035e-04_jprb,3.4642e-04_jprb,3.8415e-04_jprb,4.2283e-04_jprb/)  
kbo( :,48, 4) = (/&
 & 2.1223e-04_jprb,2.3861e-04_jprb,2.6709e-04_jprb,2.9688e-04_jprb,3.2776e-04_jprb/)  
kbo( :,49, 4) = (/&
 & 1.6266e-04_jprb,1.8298e-04_jprb,2.0524e-04_jprb,2.2871e-04_jprb,2.5327e-04_jprb/)  
kbo( :,50, 4) = (/&
 & 1.2558e-04_jprb,1.4128e-04_jprb,1.5863e-04_jprb,1.7722e-04_jprb,1.9672e-04_jprb/)  
kbo( :,51, 4) = (/&
 & 9.7209e-05_jprb,1.0936e-04_jprb,1.2288e-04_jprb,1.3753e-04_jprb,1.5302e-04_jprb/)  
kbo( :,52, 4) = (/&
 & 7.5228e-05_jprb,8.4554e-05_jprb,9.5027e-05_jprb,1.0648e-04_jprb,1.1875e-04_jprb/)  
kbo( :,53, 4) = (/&
 & 5.8185e-05_jprb,6.5291e-05_jprb,7.3346e-05_jprb,8.2261e-05_jprb,9.1865e-05_jprb/)  
kbo( :,54, 4) = (/&
 & 4.5374e-05_jprb,5.0847e-05_jprb,5.7097e-05_jprb,6.4058e-05_jprb,7.1601e-05_jprb/)  
kbo( :,55, 4) = (/&
 & 3.5491e-05_jprb,3.9770e-05_jprb,4.4634e-05_jprb,5.0070e-05_jprb,5.6003e-05_jprb/)  
kbo( :,56, 4) = (/&
 & 2.7730e-05_jprb,3.1107e-05_jprb,3.4873e-05_jprb,3.9105e-05_jprb,4.3754e-05_jprb/)  
kbo( :,57, 4) = (/&
 & 2.1648e-05_jprb,2.4314e-05_jprb,2.7229e-05_jprb,3.0516e-05_jprb,3.4148e-05_jprb/)  
kbo( :,58, 4) = (/&
 & 1.6951e-05_jprb,1.9038e-05_jprb,2.1314e-05_jprb,2.3872e-05_jprb,2.6710e-05_jprb/)  
kbo( :,59, 4) = (/&
 & 1.3663e-05_jprb,1.5351e-05_jprb,1.7200e-05_jprb,1.9273e-05_jprb,2.1558e-05_jprb/)  
kbo( :,13, 5) = (/&
 & 2.7737e-01_jprb,2.9322e-01_jprb,3.0941e-01_jprb,3.2627e-01_jprb,3.4434e-01_jprb/)  
kbo( :,14, 5) = (/&
 & 2.3065e-01_jprb,2.4437e-01_jprb,2.5863e-01_jprb,2.7404e-01_jprb,2.9080e-01_jprb/)  
kbo( :,15, 5) = (/&
 & 1.9306e-01_jprb,2.0550e-01_jprb,2.1890e-01_jprb,2.3329e-01_jprb,2.4884e-01_jprb/)  
kbo( :,16, 5) = (/&
 & 1.6288e-01_jprb,1.7408e-01_jprb,1.8590e-01_jprb,1.9857e-01_jprb,2.1238e-01_jprb/)  
kbo( :,17, 5) = (/&
 & 1.4081e-01_jprb,1.5068e-01_jprb,1.6123e-01_jprb,1.7280e-01_jprb,1.8532e-01_jprb/)  
kbo( :,18, 5) = (/&
 & 1.2553e-01_jprb,1.3466e-01_jprb,1.4467e-01_jprb,1.5557e-01_jprb,1.6709e-01_jprb/)  
kbo( :,19, 5) = (/&
 & 1.1351e-01_jprb,1.2221e-01_jprb,1.3178e-01_jprb,1.4202e-01_jprb,1.5283e-01_jprb/)  
kbo( :,20, 5) = (/&
 & 9.9675e-02_jprb,1.0772e-01_jprb,1.1652e-01_jprb,1.2577e-01_jprb,1.3562e-01_jprb/)  
kbo( :,21, 5) = (/&
 & 8.6695e-02_jprb,9.4022e-02_jprb,1.0192e-01_jprb,1.1025e-01_jprb,1.1913e-01_jprb/)  
kbo( :,22, 5) = (/&
 & 7.4874e-02_jprb,8.1502e-02_jprb,8.8514e-02_jprb,9.5955e-02_jprb,1.0385e-01_jprb/)  
kbo( :,23, 5) = (/&
 & 6.4540e-02_jprb,7.0395e-02_jprb,7.6612e-02_jprb,8.3224e-02_jprb,9.0095e-02_jprb/)  
kbo( :,24, 5) = (/&
 & 5.4946e-02_jprb,6.0047e-02_jprb,6.5517e-02_jprb,7.1296e-02_jprb,7.7220e-02_jprb/)  
kbo( :,25, 5) = (/&
 & 4.6677e-02_jprb,5.1141e-02_jprb,5.5940e-02_jprb,6.0917e-02_jprb,6.6053e-02_jprb/)  
kbo( :,26, 5) = (/&
 & 3.9709e-02_jprb,4.3642e-02_jprb,4.7787e-02_jprb,5.2078e-02_jprb,5.6505e-02_jprb/)  
kbo( :,27, 5) = (/&
 & 3.3623e-02_jprb,3.7042e-02_jprb,4.0591e-02_jprb,4.4263e-02_jprb,4.8022e-02_jprb/)  
kbo( :,28, 5) = (/&
 & 2.8328e-02_jprb,3.1245e-02_jprb,3.4254e-02_jprb,3.7363e-02_jprb,4.0510e-02_jprb/)  
kbo( :,29, 5) = (/&
 & 2.4050e-02_jprb,2.6527e-02_jprb,2.9098e-02_jprb,3.1727e-02_jprb,3.4395e-02_jprb/)  
kbo( :,30, 5) = (/&
 & 2.0420e-02_jprb,2.2529e-02_jprb,2.4722e-02_jprb,2.6950e-02_jprb,2.9231e-02_jprb/)  
kbo( :,31, 5) = (/&
 & 1.7429e-02_jprb,1.9242e-02_jprb,2.1110e-02_jprb,2.3032e-02_jprb,2.5014e-02_jprb/)  
kbo( :,32, 5) = (/&
 & 1.4961e-02_jprb,1.6521e-02_jprb,1.8130e-02_jprb,1.9805e-02_jprb,2.1542e-02_jprb/)  
kbo( :,33, 5) = (/&
 & 1.2897e-02_jprb,1.4245e-02_jprb,1.5653e-02_jprb,1.7131e-02_jprb,1.8661e-02_jprb/)  
kbo( :,34, 5) = (/&
 & 1.1253e-02_jprb,1.2438e-02_jprb,1.3692e-02_jprb,1.5008e-02_jprb,1.6374e-02_jprb/)  
kbo( :,35, 5) = (/&
 & 9.7397e-03_jprb,1.0786e-02_jprb,1.1902e-02_jprb,1.3073e-02_jprb,1.4295e-02_jprb/)  
kbo( :,36, 5) = (/&
 & 8.3444e-03_jprb,9.2674e-03_jprb,1.0255e-02_jprb,1.1299e-02_jprb,1.2388e-02_jprb/)  
kbo( :,37, 5) = (/&
 & 6.9467e-03_jprb,7.7344e-03_jprb,8.5805e-03_jprb,9.4769e-03_jprb,1.0414e-02_jprb/)  
kbo( :,38, 5) = (/&
 & 5.7736e-03_jprb,6.4450e-03_jprb,7.1687e-03_jprb,7.9368e-03_jprb,8.7424e-03_jprb/)  
kbo( :,39, 5) = (/&
 & 4.7981e-03_jprb,5.3703e-03_jprb,5.9884e-03_jprb,6.6480e-03_jprb,7.3403e-03_jprb/)  
kbo( :,40, 5) = (/&
 & 3.8576e-03_jprb,4.3274e-03_jprb,4.8368e-03_jprb,5.3827e-03_jprb,5.9574e-03_jprb/)  
kbo( :,41, 5) = (/&
 & 3.0825e-03_jprb,3.4658e-03_jprb,3.8827e-03_jprb,4.3318e-03_jprb,4.8066e-03_jprb/)  
kbo( :,42, 5) = (/&
 & 2.4580e-03_jprb,2.7697e-03_jprb,3.1105e-03_jprb,3.4793e-03_jprb,3.8701e-03_jprb/)  
kbo( :,43, 5) = (/&
 & 1.9332e-03_jprb,2.1836e-03_jprb,2.4577e-03_jprb,2.7557e-03_jprb,3.0732e-03_jprb/)  
kbo( :,44, 5) = (/&
 & 1.5097e-03_jprb,1.7091e-03_jprb,1.9276e-03_jprb,2.1661e-03_jprb,2.4221e-03_jprb/)  
kbo( :,45, 5) = (/&
 & 1.1763e-03_jprb,1.3345e-03_jprb,1.5083e-03_jprb,1.6985e-03_jprb,1.9040e-03_jprb/)  
kbo( :,46, 5) = (/&
 & 9.1296e-04_jprb,1.0380e-03_jprb,1.1758e-03_jprb,1.3270e-03_jprb,1.4913e-03_jprb/)  
kbo( :,47, 5) = (/&
 & 7.0476e-04_jprb,8.0366e-04_jprb,9.1252e-04_jprb,1.0324e-03_jprb,1.1627e-03_jprb/)  
kbo( :,48, 5) = (/&
 & 5.4241e-04_jprb,6.2078e-04_jprb,7.0617e-04_jprb,8.0101e-04_jprb,9.0392e-04_jprb/)  
kbo( :,49, 5) = (/&
 & 4.1608e-04_jprb,4.7812e-04_jprb,5.4515e-04_jprb,6.1960e-04_jprb,7.0075e-04_jprb/)  
kbo( :,50, 5) = (/&
 & 3.2092e-04_jprb,3.7020e-04_jprb,4.2343e-04_jprb,4.8196e-04_jprb,5.4630e-04_jprb/)  
kbo( :,51, 5) = (/&
 & 2.4810e-04_jprb,2.8709e-04_jprb,3.2948e-04_jprb,3.7570e-04_jprb,4.2676e-04_jprb/)  
kbo( :,52, 5) = (/&
 & 1.9141e-04_jprb,2.2213e-04_jprb,2.5579e-04_jprb,2.9244e-04_jprb,3.3280e-04_jprb/)  
kbo( :,53, 5) = (/&
 & 1.4731e-04_jprb,1.7148e-04_jprb,1.9808e-04_jprb,2.2719e-04_jprb,2.5899e-04_jprb/)  
kbo( :,54, 5) = (/&
 & 1.1424e-04_jprb,1.3342e-04_jprb,1.5446e-04_jprb,1.7772e-04_jprb,2.0300e-04_jprb/)  
kbo( :,55, 5) = (/&
 & 8.8904e-05_jprb,1.0414e-04_jprb,1.2079e-04_jprb,1.3937e-04_jprb,1.5956e-04_jprb/)  
kbo( :,56, 5) = (/&
 & 6.9133e-05_jprb,8.1185e-05_jprb,9.4325e-05_jprb,1.0911e-04_jprb,1.2522e-04_jprb/)  
kbo( :,57, 5) = (/&
 & 5.3742e-05_jprb,6.3143e-05_jprb,7.3567e-05_jprb,8.5265e-05_jprb,9.8102e-05_jprb/)  
kbo( :,58, 5) = (/&
 & 4.1907e-05_jprb,4.9238e-05_jprb,5.7492e-05_jprb,6.6736e-05_jprb,7.6984e-05_jprb/)  
kbo( :,59, 5) = (/&
 & 3.3859e-05_jprb,3.9819e-05_jprb,4.6565e-05_jprb,5.4107e-05_jprb,6.2503e-05_jprb/)  
kbo( :,13, 6) = (/&
 & 6.4121e-01_jprb,6.6739e-01_jprb,6.9468e-01_jprb,7.2265e-01_jprb,7.5107e-01_jprb/)  
kbo( :,14, 6) = (/&
 & 5.3428e-01_jprb,5.5697e-01_jprb,5.8044e-01_jprb,6.0466e-01_jprb,6.2906e-01_jprb/)  
kbo( :,15, 6) = (/&
 & 4.4250e-01_jprb,4.6307e-01_jprb,4.8477e-01_jprb,5.0676e-01_jprb,5.2972e-01_jprb/)  
kbo( :,16, 6) = (/&
 & 3.7115e-01_jprb,3.9071e-01_jprb,4.1071e-01_jprb,4.3131e-01_jprb,4.5290e-01_jprb/)  
kbo( :,17, 6) = (/&
 & 3.2201e-01_jprb,3.3982e-01_jprb,3.5775e-01_jprb,3.7619e-01_jprb,3.9590e-01_jprb/)  
kbo( :,18, 6) = (/&
 & 2.8860e-01_jprb,3.0433e-01_jprb,3.2058e-01_jprb,3.3778e-01_jprb,3.5711e-01_jprb/)  
kbo( :,19, 6) = (/&
 & 2.6093e-01_jprb,2.7547e-01_jprb,2.9092e-01_jprb,3.0787e-01_jprb,3.2715e-01_jprb/)  
kbo( :,20, 6) = (/&
 & 2.2906e-01_jprb,2.4252e-01_jprb,2.5706e-01_jprb,2.7353e-01_jprb,2.9188e-01_jprb/)  
kbo( :,21, 6) = (/&
 & 1.9921e-01_jprb,2.1163e-01_jprb,2.2547e-01_jprb,2.4100e-01_jprb,2.5826e-01_jprb/)  
kbo( :,22, 6) = (/&
 & 1.7190e-01_jprb,1.8347e-01_jprb,1.9652e-01_jprb,2.1104e-01_jprb,2.2725e-01_jprb/)  
kbo( :,23, 6) = (/&
 & 1.4807e-01_jprb,1.5892e-01_jprb,1.7107e-01_jprb,1.8464e-01_jprb,1.9976e-01_jprb/)  
kbo( :,24, 6) = (/&
 & 1.2630e-01_jprb,1.3639e-01_jprb,1.4760e-01_jprb,1.6015e-01_jprb,1.7395e-01_jprb/)  
kbo( :,25, 6) = (/&
 & 1.0785e-01_jprb,1.1709e-01_jprb,1.2743e-01_jprb,1.3890e-01_jprb,1.5149e-01_jprb/)  
kbo( :,26, 6) = (/&
 & 9.2383e-02_jprb,1.0082e-01_jprb,1.1033e-01_jprb,1.2082e-01_jprb,1.3229e-01_jprb/)  
kbo( :,27, 6) = (/&
 & 7.8812e-02_jprb,8.6542e-02_jprb,9.5218e-02_jprb,1.0477e-01_jprb,1.1508e-01_jprb/)  
kbo( :,28, 6) = (/&
 & 6.6953e-02_jprb,7.4005e-02_jprb,8.1900e-02_jprb,9.0499e-02_jprb,9.9667e-02_jprb/)  
kbo( :,29, 6) = (/&
 & 5.7472e-02_jprb,6.3923e-02_jprb,7.1088e-02_jprb,7.8810e-02_jprb,8.6979e-02_jprb/)  
kbo( :,30, 6) = (/&
 & 4.9506e-02_jprb,5.5394e-02_jprb,6.1825e-02_jprb,6.8714e-02_jprb,7.5948e-02_jprb/)  
kbo( :,31, 6) = (/&
 & 4.3026e-02_jprb,4.8351e-02_jprb,5.4145e-02_jprb,6.0281e-02_jprb,6.6645e-02_jprb/)  
kbo( :,32, 6) = (/&
 & 3.7695e-02_jprb,4.2520e-02_jprb,4.7714e-02_jprb,5.3158e-02_jprb,5.8754e-02_jprb/)  
kbo( :,33, 6) = (/&
 & 3.3253e-02_jprb,3.7612e-02_jprb,4.2238e-02_jprb,4.7058e-02_jprb,5.2057e-02_jprb/)  
kbo( :,34, 6) = (/&
 & 2.9687e-02_jprb,3.3639e-02_jprb,3.7802e-02_jprb,4.2143e-02_jprb,4.6713e-02_jprb/)  
kbo( :,35, 6) = (/&
 & 2.6238e-02_jprb,2.9780e-02_jprb,3.3512e-02_jprb,3.7433e-02_jprb,4.1618e-02_jprb/)  
kbo( :,36, 6) = (/&
 & 2.2870e-02_jprb,2.6020e-02_jprb,2.9343e-02_jprb,3.2882e-02_jprb,3.6681e-02_jprb/)  
kbo( :,37, 6) = (/&
 & 1.9322e-02_jprb,2.2060e-02_jprb,2.4965e-02_jprb,2.8086e-02_jprb,3.1456e-02_jprb/)  
kbo( :,38, 6) = (/&
 & 1.6289e-02_jprb,1.8667e-02_jprb,2.1206e-02_jprb,2.3953e-02_jprb,2.6938e-02_jprb/)  
kbo( :,39, 6) = (/&
 & 1.3724e-02_jprb,1.5787e-02_jprb,1.8005e-02_jprb,2.0421e-02_jprb,2.3064e-02_jprb/)  
kbo( :,40, 6) = (/&
 & 1.1170e-02_jprb,1.2903e-02_jprb,1.4777e-02_jprb,1.6832e-02_jprb,1.9094e-02_jprb/)  
kbo( :,41, 6) = (/&
 & 9.0289e-03_jprb,1.0474e-02_jprb,1.2048e-02_jprb,1.3783e-02_jprb,1.5707e-02_jprb/)  
kbo( :,42, 6) = (/&
 & 7.2786e-03_jprb,8.4784e-03_jprb,9.7962e-03_jprb,1.1257e-02_jprb,1.2889e-02_jprb/)  
kbo( :,43, 6) = (/&
 & 5.7746e-03_jprb,6.7579e-03_jprb,7.8468e-03_jprb,9.0602e-03_jprb,1.0425e-02_jprb/)  
kbo( :,44, 6) = (/&
 & 4.5415e-03_jprb,5.3414e-03_jprb,6.2337e-03_jprb,7.2326e-03_jprb,8.3633e-03_jprb/)  
kbo( :,45, 6) = (/&
 & 3.5601e-03_jprb,4.2081e-03_jprb,4.9346e-03_jprb,5.7558e-03_jprb,6.6891e-03_jprb/)  
kbo( :,46, 6) = (/&
 & 2.7754e-03_jprb,3.2977e-03_jprb,3.8855e-03_jprb,4.5569e-03_jprb,5.3238e-03_jprb/)  
kbo( :,47, 6) = (/&
 & 2.1475e-03_jprb,2.5657e-03_jprb,3.0384e-03_jprb,3.5836e-03_jprb,4.2109e-03_jprb/)  
kbo( :,48, 6) = (/&
 & 1.6563e-03_jprb,1.9892e-03_jprb,2.3684e-03_jprb,2.8081e-03_jprb,3.3184e-03_jprb/)  
kbo( :,49, 6) = (/&
 & 1.2736e-03_jprb,1.5366e-03_jprb,1.8396e-03_jprb,2.1918e-03_jprb,2.6053e-03_jprb/)  
kbo( :,50, 6) = (/&
 & 9.8514e-04_jprb,1.1938e-03_jprb,1.4366e-03_jprb,1.7199e-03_jprb,2.0561e-03_jprb/)  
kbo( :,51, 6) = (/&
 & 7.6305e-04_jprb,9.2853e-04_jprb,1.1230e-03_jprb,1.3507e-03_jprb,1.6237e-03_jprb/)  
kbo( :,52, 6) = (/&
 & 5.8964e-04_jprb,7.2048e-04_jprb,8.7539e-04_jprb,1.0577e-03_jprb,1.2781e-03_jprb/)  
kbo( :,53, 6) = (/&
 & 4.5442e-04_jprb,5.5764e-04_jprb,6.8041e-04_jprb,8.2614e-04_jprb,1.0025e-03_jprb/)  
kbo( :,54, 6) = (/&
 & 3.5277e-04_jprb,4.3435e-04_jprb,5.3231e-04_jprb,6.4901e-04_jprb,7.9056e-04_jprb/)  
kbo( :,55, 6) = (/&
 & 2.7456e-04_jprb,3.3899e-04_jprb,4.1714e-04_jprb,5.1074e-04_jprb,6.2435e-04_jprb/)  
kbo( :,56, 6) = (/&
 & 2.1331e-04_jprb,2.6410e-04_jprb,3.2619e-04_jprb,4.0097e-04_jprb,4.9192e-04_jprb/)  
kbo( :,57, 6) = (/&
 & 1.6544e-04_jprb,2.0526e-04_jprb,2.5453e-04_jprb,3.1404e-04_jprb,3.8660e-04_jprb/)  
kbo( :,58, 6) = (/&
 & 1.2858e-04_jprb,1.5986e-04_jprb,1.9897e-04_jprb,2.4635e-04_jprb,3.0450e-04_jprb/)  
kbo( :,59, 6) = (/&
 & 1.0424e-04_jprb,1.3005e-04_jprb,1.6246e-04_jprb,2.0168e-04_jprb,2.5022e-04_jprb/)  
kbo( :,13, 7) = (/&
 & 1.5651e+00_jprb,1.6169e+00_jprb,1.6708e+00_jprb,1.7263e+00_jprb,1.7852e+00_jprb/)  
kbo( :,14, 7) = (/&
 & 1.3034e+00_jprb,1.3495e+00_jprb,1.3970e+00_jprb,1.4470e+00_jprb,1.4990e+00_jprb/)  
kbo( :,15, 7) = (/&
 & 1.0798e+00_jprb,1.1205e+00_jprb,1.1627e+00_jprb,1.2066e+00_jprb,1.2529e+00_jprb/)  
kbo( :,16, 7) = (/&
 & 9.0502e-01_jprb,9.4264e-01_jprb,9.8168e-01_jprb,1.0232e+00_jprb,1.0668e+00_jprb/)  

IF (lhook) CALL dr_hook('RRTM_KGB9:PART13',1,zhook_handle)
END SUBROUTINE part13


SUBROUTINE part14

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


kbo( :,17, 7) = (/&
 & 7.8533e-01_jprb,8.2264e-01_jprb,8.6170e-01_jprb,9.0297e-01_jprb,9.4574e-01_jprb/)  
kbo( :,18, 7) = (/&
 & 7.0905e-01_jprb,7.4606e-01_jprb,7.8445e-01_jprb,8.2385e-01_jprb,8.6498e-01_jprb/)  
kbo( :,19, 7) = (/&
 & 6.5117e-01_jprb,6.8581e-01_jprb,7.2084e-01_jprb,7.5738e-01_jprb,7.9689e-01_jprb/)  
kbo( :,20, 7) = (/&
 & 5.8055e-01_jprb,6.1130e-01_jprb,6.4302e-01_jprb,6.7746e-01_jprb,7.1553e-01_jprb/)  
kbo( :,21, 7) = (/&
 & 5.1109e-01_jprb,5.3883e-01_jprb,5.6867e-01_jprb,6.0178e-01_jprb,6.3866e-01_jprb/)  
kbo( :,22, 7) = (/&
 & 4.4535e-01_jprb,4.7107e-01_jprb,4.9963e-01_jprb,5.3173e-01_jprb,5.6752e-01_jprb/)  
kbo( :,23, 7) = (/&
 & 3.8693e-01_jprb,4.1147e-01_jprb,4.3911e-01_jprb,4.7015e-01_jprb,5.0472e-01_jprb/)  
kbo( :,24, 7) = (/&
 & 3.3299e-01_jprb,3.5628e-01_jprb,3.8277e-01_jprb,4.1248e-01_jprb,4.4550e-01_jprb/)  
kbo( :,25, 7) = (/&
 & 2.8674e-01_jprb,3.0903e-01_jprb,3.3447e-01_jprb,3.6286e-01_jprb,3.9391e-01_jprb/)  
kbo( :,26, 7) = (/&
 & 2.4799e-01_jprb,2.6945e-01_jprb,2.9359e-01_jprb,3.2034e-01_jprb,3.4997e-01_jprb/)  
kbo( :,27, 7) = (/&
 & 2.1431e-01_jprb,2.3461e-01_jprb,2.5723e-01_jprb,2.8249e-01_jprb,3.1067e-01_jprb/)  
kbo( :,28, 7) = (/&
 & 1.8505e-01_jprb,2.0390e-01_jprb,2.2502e-01_jprb,2.4887e-01_jprb,2.7537e-01_jprb/)  
kbo( :,29, 7) = (/&
 & 1.6146e-01_jprb,1.7908e-01_jprb,1.9912e-01_jprb,2.2167e-01_jprb,2.4667e-01_jprb/)  
kbo( :,30, 7) = (/&
 & 1.4137e-01_jprb,1.5806e-01_jprb,1.7706e-01_jprb,1.9835e-01_jprb,2.2209e-01_jprb/)  
kbo( :,31, 7) = (/&
 & 1.2498e-01_jprb,1.4092e-01_jprb,1.5896e-01_jprb,1.7927e-01_jprb,2.0199e-01_jprb/)  
kbo( :,32, 7) = (/&
 & 1.1162e-01_jprb,1.2686e-01_jprb,1.4411e-01_jprb,1.6362e-01_jprb,1.8544e-01_jprb/)  
kbo( :,33, 7) = (/&
 & 1.0058e-01_jprb,1.1519e-01_jprb,1.3185e-01_jprb,1.5062e-01_jprb,1.7164e-01_jprb/)  
kbo( :,34, 7) = (/&
 & 9.1872e-02_jprb,1.0605e-01_jprb,1.2221e-01_jprb,1.4049e-01_jprb,1.6092e-01_jprb/)  
kbo( :,35, 7) = (/&
 & 8.3134e-02_jprb,9.6731e-02_jprb,1.1227e-01_jprb,1.2986e-01_jprb,1.4952e-01_jprb/)  
kbo( :,36, 7) = (/&
 & 7.4081e-02_jprb,8.6894e-02_jprb,1.0163e-01_jprb,1.1830e-01_jprb,1.3703e-01_jprb/)  
kbo( :,37, 7) = (/&
 & 6.4153e-02_jprb,7.5901e-02_jprb,8.9515e-02_jprb,1.0499e-01_jprb,1.2245e-01_jprb/)  
kbo( :,38, 7) = (/&
 & 5.5459e-02_jprb,6.6199e-02_jprb,7.8762e-02_jprb,9.3144e-02_jprb,1.0945e-01_jprb/)  
kbo( :,39, 7) = (/&
 & 4.7923e-02_jprb,5.7730e-02_jprb,6.9328e-02_jprb,8.2715e-02_jprb,9.7968e-02_jprb/)  
kbo( :,40, 7) = (/&
 & 3.9991e-02_jprb,4.8626e-02_jprb,5.8962e-02_jprb,7.1033e-02_jprb,8.4866e-02_jprb/)  
kbo( :,41, 7) = (/&
 & 3.3132e-02_jprb,4.0668e-02_jprb,4.9786e-02_jprb,6.0601e-02_jprb,7.3110e-02_jprb/)  
kbo( :,42, 7) = (/&
 & 2.7362e-02_jprb,3.3907e-02_jprb,4.1915e-02_jprb,5.1544e-02_jprb,6.2838e-02_jprb/)  
kbo( :,43, 7) = (/&
 & 2.2196e-02_jprb,2.7768e-02_jprb,3.4671e-02_jprb,4.3090e-02_jprb,5.3119e-02_jprb/)  
kbo( :,44, 7) = (/&
 & 1.7818e-02_jprb,2.2501e-02_jprb,2.8380e-02_jprb,3.5655e-02_jprb,4.4455e-02_jprb/)  
kbo( :,45, 7) = (/&
 & 1.4243e-02_jprb,1.8150e-02_jprb,2.3128e-02_jprb,2.9377e-02_jprb,3.7045e-02_jprb/)  
kbo( :,46, 7) = (/&
 & 1.1286e-02_jprb,1.4511e-02_jprb,1.8685e-02_jprb,2.4000e-02_jprb,3.0616e-02_jprb/)  
kbo( :,47, 7) = (/&
 & 8.8305e-03_jprb,1.1453e-02_jprb,1.4902e-02_jprb,1.9356e-02_jprb,2.5001e-02_jprb/)  
kbo( :,48, 7) = (/&
 & 6.8710e-03_jprb,8.9888e-03_jprb,1.1814e-02_jprb,1.5517e-02_jprb,2.0294e-02_jprb/)  
kbo( :,49, 7) = (/&
 & 5.3150e-03_jprb,7.0121e-03_jprb,9.3059e-03_jprb,1.2357e-02_jprb,1.6365e-02_jprb/)  
kbo( :,50, 7) = (/&
 & 4.1309e-03_jprb,5.4944e-03_jprb,7.3653e-03_jprb,9.8877e-03_jprb,1.3254e-02_jprb/)  
kbo( :,51, 7) = (/&
 & 3.2122e-03_jprb,4.3028e-03_jprb,5.8246e-03_jprb,7.9072e-03_jprb,1.0730e-02_jprb/)  
kbo( :,52, 7) = (/&
 & 2.4855e-03_jprb,3.3518e-03_jprb,4.5791e-03_jprb,6.2870e-03_jprb,8.6345e-03_jprb/)  
kbo( :,53, 7) = (/&
 & 1.9144e-03_jprb,2.5958e-03_jprb,3.5772e-03_jprb,4.9679e-03_jprb,6.9029e-03_jprb/)  
kbo( :,54, 7) = (/&
 & 1.4846e-03_jprb,2.0243e-03_jprb,2.8131e-03_jprb,3.9506e-03_jprb,5.5585e-03_jprb/)  
kbo( :,55, 7) = (/&
 & 1.1531e-03_jprb,1.5804e-03_jprb,2.2143e-03_jprb,3.1436e-03_jprb,4.4799e-03_jprb/)  
kbo( :,56, 7) = (/&
 & 8.9241e-04_jprb,1.2296e-03_jprb,1.7344e-03_jprb,2.4879e-03_jprb,3.5892e-03_jprb/)  
kbo( :,57, 7) = (/&
 & 6.8839e-04_jprb,9.5206e-04_jprb,1.3509e-03_jprb,1.9572e-03_jprb,2.8575e-03_jprb/)  
kbo( :,58, 7) = (/&
 & 5.3236e-04_jprb,7.3837e-04_jprb,1.0535e-03_jprb,1.5406e-03_jprb,2.2793e-03_jprb/)  
kbo( :,59, 7) = (/&
 & 4.3598e-04_jprb,6.1022e-04_jprb,8.8068e-04_jprb,1.3033e-03_jprb,1.9553e-03_jprb/)  
kbo( :,13, 8) = (/&
 & 4.7769e+00_jprb,4.8848e+00_jprb,4.9874e+00_jprb,5.0917e+00_jprb,5.1968e+00_jprb/)  
kbo( :,14, 8) = (/&
 & 4.0252e+00_jprb,4.1225e+00_jprb,4.2203e+00_jprb,4.3172e+00_jprb,4.4173e+00_jprb/)  
kbo( :,15, 8) = (/&
 & 3.3636e+00_jprb,3.4557e+00_jprb,3.5447e+00_jprb,3.6379e+00_jprb,3.7313e+00_jprb/)  
kbo( :,16, 8) = (/&
 & 2.8215e+00_jprb,2.9045e+00_jprb,2.9912e+00_jprb,3.0777e+00_jprb,3.1703e+00_jprb/)  
kbo( :,17, 8) = (/&
 & 2.4207e+00_jprb,2.5043e+00_jprb,2.5895e+00_jprb,2.6793e+00_jprb,2.7738e+00_jprb/)  
kbo( :,18, 8) = (/&
 & 2.1596e+00_jprb,2.2496e+00_jprb,2.3425e+00_jprb,2.4404e+00_jprb,2.5399e+00_jprb/)  
kbo( :,19, 8) = (/&
 & 1.9873e+00_jprb,2.0853e+00_jprb,2.1866e+00_jprb,2.2891e+00_jprb,2.3905e+00_jprb/)  
kbo( :,20, 8) = (/&
 & 1.8046e+00_jprb,1.9022e+00_jprb,2.0007e+00_jprb,2.0973e+00_jprb,2.1932e+00_jprb/)  
kbo( :,21, 8) = (/&
 & 1.6245e+00_jprb,1.7151e+00_jprb,1.8038e+00_jprb,1.8907e+00_jprb,1.9795e+00_jprb/)  
kbo( :,22, 8) = (/&
 & 1.4461e+00_jprb,1.5258e+00_jprb,1.6036e+00_jprb,1.6835e+00_jprb,1.7677e+00_jprb/)  
kbo( :,23, 8) = (/&
 & 1.2784e+00_jprb,1.3484e+00_jprb,1.4202e+00_jprb,1.4958e+00_jprb,1.5781e+00_jprb/)  
kbo( :,24, 8) = (/&
 & 1.1162e+00_jprb,1.1799e+00_jprb,1.2469e+00_jprb,1.3197e+00_jprb,1.4014e+00_jprb/)  
kbo( :,25, 8) = (/&
 & 9.7290e-01_jprb,1.0323e+00_jprb,1.0964e+00_jprb,1.1683e+00_jprb,1.2507e+00_jprb/)  
kbo( :,26, 8) = (/&
 & 8.5083e-01_jprb,9.0746e-01_jprb,9.7028e-01_jprb,1.0426e+00_jprb,1.1250e+00_jprb/)  
kbo( :,27, 8) = (/&
 & 7.4331e-01_jprb,7.9805e-01_jprb,8.6066e-01_jprb,9.3282e-01_jprb,1.0150e+00_jprb/)  
kbo( :,28, 8) = (/&
 & 6.4875e-01_jprb,7.0258e-01_jprb,7.6476e-01_jprb,8.3624e-01_jprb,9.1880e-01_jprb/)  
kbo( :,29, 8) = (/&
 & 5.7353e-01_jprb,6.2704e-01_jprb,6.8898e-01_jprb,7.6115e-01_jprb,8.4456e-01_jprb/)  
kbo( :,30, 8) = (/&
 & 5.1081e-01_jprb,5.6430e-01_jprb,6.2672e-01_jprb,6.9960e-01_jprb,7.8366e-01_jprb/)  
kbo( :,31, 8) = (/&
 & 4.6060e-01_jprb,5.1474e-01_jprb,5.7850e-01_jprb,6.5276e-01_jprb,7.3784e-01_jprb/)  
kbo( :,32, 8) = (/&
 & 4.2054e-01_jprb,4.7584e-01_jprb,5.4138e-01_jprb,6.1744e-01_jprb,7.0416e-01_jprb/)  
kbo( :,33, 8) = (/&
 & 3.8881e-01_jprb,4.4574e-01_jprb,5.1326e-01_jprb,5.9158e-01_jprb,6.8101e-01_jprb/)  
kbo( :,34, 8) = (/&
 & 3.6582e-01_jprb,4.2446e-01_jprb,4.9413e-01_jprb,5.7504e-01_jprb,6.6797e-01_jprb/)  
kbo( :,35, 8) = (/&
 & 3.4211e-01_jprb,4.0158e-01_jprb,4.7243e-01_jprb,5.5519e-01_jprb,6.5095e-01_jprb/)  
kbo( :,36, 8) = (/&
 & 3.1584e-01_jprb,3.7515e-01_jprb,4.4596e-01_jprb,5.2948e-01_jprb,6.2662e-01_jprb/)  
kbo( :,37, 8) = (/&
 & 2.8335e-01_jprb,3.4000e-01_jprb,4.0808e-01_jprb,4.8925e-01_jprb,5.8433e-01_jprb/)  
kbo( :,38, 8) = (/&
 & 2.5439e-01_jprb,3.0837e-01_jprb,3.7382e-01_jprb,4.5256e-01_jprb,5.4554e-01_jprb/)  
kbo( :,39, 8) = (/&
 & 2.2884e-01_jprb,2.8037e-01_jprb,3.4336e-01_jprb,4.1988e-01_jprb,5.1084e-01_jprb/)  
kbo( :,40, 8) = (/&
 & 1.9894e-01_jprb,2.4621e-01_jprb,3.0460e-01_jprb,3.7622e-01_jprb,4.6217e-01_jprb/)  
kbo( :,41, 8) = (/&
 & 1.7202e-01_jprb,2.1505e-01_jprb,2.6889e-01_jprb,3.3546e-01_jprb,4.1631e-01_jprb/)  
kbo( :,42, 8) = (/&
 & 1.4851e-01_jprb,1.8770e-01_jprb,2.3715e-01_jprb,2.9895e-01_jprb,3.7473e-01_jprb/)  
kbo( :,43, 8) = (/&
 & 1.2600e-01_jprb,1.6095e-01_jprb,2.0554e-01_jprb,2.6188e-01_jprb,3.3169e-01_jprb/)  
kbo( :,44, 8) = (/&
 & 1.0584e-01_jprb,1.3667e-01_jprb,1.7652e-01_jprb,2.2729e-01_jprb,2.9097e-01_jprb/)  
kbo( :,45, 8) = (/&
 & 8.8493e-02_jprb,1.1567e-01_jprb,1.5110e-01_jprb,1.9672e-01_jprb,2.5462e-01_jprb/)  
kbo( :,46, 8) = (/&
 & 7.3233e-02_jprb,9.7022e-02_jprb,1.2827e-01_jprb,1.6892e-01_jprb,2.2114e-01_jprb/)  
kbo( :,47, 8) = (/&
 & 5.9636e-02_jprb,8.0163e-02_jprb,1.0738e-01_jprb,1.4314e-01_jprb,1.8961e-01_jprb/)  
kbo( :,48, 8) = (/&
 & 4.8167e-02_jprb,6.5765e-02_jprb,8.9346e-02_jprb,1.2067e-01_jprb,1.6184e-01_jprb/)  
kbo( :,49, 8) = (/&
 & 3.8566e-02_jprb,5.3500e-02_jprb,7.3805e-02_jprb,1.0114e-01_jprb,1.3740e-01_jprb/)  
kbo( :,50, 8) = (/&
 & 3.0986e-02_jprb,4.3657e-02_jprb,6.1235e-02_jprb,8.5187e-02_jprb,1.1732e-01_jprb/)  
kbo( :,51, 8) = (/&
 & 2.4855e-02_jprb,3.5538e-02_jprb,5.0728e-02_jprb,7.1690e-02_jprb,1.0021e-01_jprb/)  
kbo( :,52, 8) = (/&
 & 1.9770e-02_jprb,2.8704e-02_jprb,4.1703e-02_jprb,5.9943e-02_jprb,8.5157e-02_jprb/)  
kbo( :,53, 8) = (/&
 & 1.5594e-02_jprb,2.2973e-02_jprb,3.3967e-02_jprb,4.9762e-02_jprb,7.1853e-02_jprb/)  
kbo( :,54, 8) = (/&
 & 1.2395e-02_jprb,1.8523e-02_jprb,2.7877e-02_jprb,4.1630e-02_jprb,6.1144e-02_jprb/)  
kbo( :,55, 8) = (/&
 & 9.8575e-03_jprb,1.4938e-02_jprb,2.2890e-02_jprb,3.4846e-02_jprb,5.2121e-02_jprb/)  
kbo( :,56, 8) = (/&
 & 7.7929e-03_jprb,1.1970e-02_jprb,1.8661e-02_jprb,2.8954e-02_jprb,4.4168e-02_jprb/)  
kbo( :,57, 8) = (/&
 & 6.1195e-03_jprb,9.5111e-03_jprb,1.5088e-02_jprb,2.3882e-02_jprb,3.7179e-02_jprb/)  
kbo( :,58, 8) = (/&
 & 4.8102e-03_jprb,7.5604e-03_jprb,1.2200e-02_jprb,1.9713e-02_jprb,3.1334e-02_jprb/)  
kbo( :,59, 8) = (/&
 & 4.0994e-03_jprb,6.5648e-03_jprb,1.0813e-02_jprb,1.7794e-02_jprb,2.8755e-02_jprb/)  
kbo( :,13, 9) = (/&
 & 2.2033e+01_jprb,2.2174e+01_jprb,2.2343e+01_jprb,2.2507e+01_jprb,2.2688e+01_jprb/)  
kbo( :,14, 9) = (/&
 & 1.9641e+01_jprb,1.9826e+01_jprb,1.9998e+01_jprb,2.0195e+01_jprb,2.0429e+01_jprb/)  
kbo( :,15, 9) = (/&
 & 1.7181e+01_jprb,1.7367e+01_jprb,1.7589e+01_jprb,1.7835e+01_jprb,1.8095e+01_jprb/)  
kbo( :,16, 9) = (/&
 & 1.4894e+01_jprb,1.5133e+01_jprb,1.5386e+01_jprb,1.5657e+01_jprb,1.5957e+01_jprb/)  
kbo( :,17, 9) = (/&
 & 1.3089e+01_jprb,1.3342e+01_jprb,1.3618e+01_jprb,1.3934e+01_jprb,1.4266e+01_jprb/)  
kbo( :,18, 9) = (/&
 & 1.1731e+01_jprb,1.2006e+01_jprb,1.2330e+01_jprb,1.2671e+01_jprb,1.3025e+01_jprb/)  
kbo( :,19, 9) = (/&
 & 1.0583e+01_jprb,1.0906e+01_jprb,1.1254e+01_jprb,1.1621e+01_jprb,1.2024e+01_jprb/)  
kbo( :,20, 9) = (/&
 & 9.4570e+00_jprb,9.7937e+00_jprb,1.0152e+01_jprb,1.0555e+01_jprb,1.0995e+01_jprb/)  
kbo( :,21, 9) = (/&
 & 8.4559e+00_jprb,8.8026e+00_jprb,9.1952e+00_jprb,9.6304e+00_jprb,1.0095e+01_jprb/)  
kbo( :,22, 9) = (/&
 & 7.5782e+00_jprb,7.9554e+00_jprb,8.3755e+00_jprb,8.8282e+00_jprb,9.3139e+00_jprb/)  
kbo( :,23, 9) = (/&
 & 6.8684e+00_jprb,7.2684e+00_jprb,7.7047e+00_jprb,8.1736e+00_jprb,8.6781e+00_jprb/)  
kbo( :,24, 9) = (/&
 & 6.2497e+00_jprb,6.6572e+00_jprb,7.0979e+00_jprb,7.5746e+00_jprb,8.0821e+00_jprb/)  
kbo( :,25, 9) = (/&
 & 5.7300e+00_jprb,6.1337e+00_jprb,6.5736e+00_jprb,7.0462e+00_jprb,7.5518e+00_jprb/)  
kbo( :,26, 9) = (/&
 & 5.2905e+00_jprb,5.6892e+00_jprb,6.1183e+00_jprb,6.5857e+00_jprb,7.0904e+00_jprb/)  
kbo( :,27, 9) = (/&
 & 4.8852e+00_jprb,5.2716e+00_jprb,5.6895e+00_jprb,6.1477e+00_jprb,6.6506e+00_jprb/)  
kbo( :,28, 9) = (/&
 & 4.4993e+00_jprb,4.8815e+00_jprb,5.2912e+00_jprb,5.7427e+00_jprb,6.2498e+00_jprb/)  
kbo( :,29, 9) = (/&
 & 4.1817e+00_jprb,4.5681e+00_jprb,4.9858e+00_jprb,5.4440e+00_jprb,5.9661e+00_jprb/)  
kbo( :,30, 9) = (/&
 & 3.9159e+00_jprb,4.3103e+00_jprb,4.7415e+00_jprb,5.2227e+00_jprb,5.7617e+00_jprb/)  
kbo( :,31, 9) = (/&
 & 3.7169e+00_jprb,4.1255e+00_jprb,4.5793e+00_jprb,5.0892e+00_jprb,5.6531e+00_jprb/)  
kbo( :,32, 9) = (/&
 & 3.5834e+00_jprb,4.0122e+00_jprb,4.4950e+00_jprb,5.0349e+00_jprb,5.6294e+00_jprb/)  
kbo( :,33, 9) = (/&
 & 3.5101e+00_jprb,3.9652e+00_jprb,4.4790e+00_jprb,5.0498e+00_jprb,5.6789e+00_jprb/)  
kbo( :,34, 9) = (/&
 & 3.5050e+00_jprb,3.9930e+00_jprb,4.5402e+00_jprb,5.1475e+00_jprb,5.8191e+00_jprb/)  
kbo( :,35, 9) = (/&
 & 3.4979e+00_jprb,4.0137e+00_jprb,4.5890e+00_jprb,5.2289e+00_jprb,5.9375e+00_jprb/)  
kbo( :,36, 9) = (/&
 & 3.4706e+00_jprb,4.0059e+00_jprb,4.6026e+00_jprb,5.2687e+00_jprb,6.0062e+00_jprb/)  
kbo( :,37, 9) = (/&
 & 3.3275e+00_jprb,3.8631e+00_jprb,4.4602e+00_jprb,5.1262e+00_jprb,5.8660e+00_jprb/)  
kbo( :,38, 9) = (/&
 & 3.1941e+00_jprb,3.7291e+00_jprb,4.3242e+00_jprb,4.9885e+00_jprb,5.7266e+00_jprb/)  
kbo( :,39, 9) = (/&
 & 3.0740e+00_jprb,3.6084e+00_jprb,4.2006e+00_jprb,4.8620e+00_jprb,5.5962e+00_jprb/)  
kbo( :,40, 9) = (/&
 & 2.8552e+00_jprb,3.3739e+00_jprb,3.9447e+00_jprb,4.5808e+00_jprb,5.2902e+00_jprb/)  
kbo( :,41, 9) = (/&
 & 2.6380e+00_jprb,3.1381e+00_jprb,3.6872e+00_jprb,4.2961e+00_jprb,4.9750e+00_jprb/)  
kbo( :,42, 9) = (/&
 & 2.4342e+00_jprb,2.9148e+00_jprb,3.4437e+00_jprb,4.0255e+00_jprb,4.6737e+00_jprb/)  
kbo( :,43, 9) = (/&
 & 2.2073e+00_jprb,2.6629e+00_jprb,3.1662e+00_jprb,3.7162e+00_jprb,4.3269e+00_jprb/)  
kbo( :,44, 9) = (/&
 & 1.9815e+00_jprb,2.4093e+00_jprb,2.8849e+00_jprb,3.4033e+00_jprb,3.9755e+00_jprb/)  
kbo( :,45, 9) = (/&
 & 1.7719e+00_jprb,2.1718e+00_jprb,2.6189e+00_jprb,3.1075e+00_jprb,3.6437e+00_jprb/)  
kbo( :,46, 9) = (/&
 & 1.5723e+00_jprb,1.9443e+00_jprb,2.3619e+00_jprb,2.8217e+00_jprb,3.3236e+00_jprb/)  
kbo( :,47, 9) = (/&
 & 1.3802e+00_jprb,1.7245e+00_jprb,2.1129e+00_jprb,2.5440e+00_jprb,3.0139e+00_jprb/)  
kbo( :,48, 9) = (/&
 & 1.2042e+00_jprb,1.5204e+00_jprb,1.8800e+00_jprb,2.2805e+00_jprb,2.7207e+00_jprb/)  
kbo( :,49, 9) = (/&
 & 1.0431e+00_jprb,1.3311e+00_jprb,1.6618e+00_jprb,2.0323e+00_jprb,2.4425e+00_jprb/)  
kbo( :,50, 9) = (/&
 & 9.1020e-01_jprb,1.1754e+00_jprb,1.4811e+00_jprb,1.8261e+00_jprb,2.2093e+00_jprb/)  
kbo( :,51, 9) = (/&
 & 7.9478e-01_jprb,1.0402e+00_jprb,1.3230e+00_jprb,1.6448e+00_jprb,2.0037e+00_jprb/)  
kbo( :,52, 9) = (/&
 & 6.8856e-01_jprb,9.1521e-01_jprb,1.1763e+00_jprb,1.4752e+00_jprb,1.8102e+00_jprb/)  
kbo( :,53, 9) = (/&
 & 5.9135e-01_jprb,7.9906e-01_jprb,1.0400e+00_jprb,1.3162e+00_jprb,1.6282e+00_jprb/)  
kbo( :,54, 9) = (/&
 & 5.1488e-01_jprb,7.0709e-01_jprb,9.3257e-01_jprb,1.1913e+00_jprb,1.4845e+00_jprb/)  
kbo( :,55, 9) = (/&
 & 4.5023e-01_jprb,6.2878e-01_jprb,8.4073e-01_jprb,1.0847e+00_jprb,1.3619e+00_jprb/)  
kbo( :,56, 9) = (/&
 & 3.9100e-01_jprb,5.5634e-01_jprb,7.5480e-01_jprb,9.8459e-01_jprb,1.2461e+00_jprb/)  
kbo( :,57, 9) = (/&
 & 3.3683e-01_jprb,4.8921e-01_jprb,6.7380e-01_jprb,8.9005e-01_jprb,1.1368e+00_jprb/)  
kbo( :,58, 9) = (/&
 & 2.9052e-01_jprb,4.3080e-01_jprb,6.0283e-01_jprb,8.0653e-01_jprb,1.0401e+00_jprb/)  
kbo( :,59, 9) = (/&
 & 2.7497e-01_jprb,4.1213e-01_jprb,5.8166e-01_jprb,7.8275e-01_jprb,1.0139e+00_jprb/)  
kbo( :,13,10) = (/&
 & 6.2443e+01_jprb,6.2764e+01_jprb,6.3247e+01_jprb,6.3715e+01_jprb,6.4108e+01_jprb/)  
kbo( :,14,10) = (/&
 & 5.9985e+01_jprb,6.0474e+01_jprb,6.1209e+01_jprb,6.1839e+01_jprb,6.2132e+01_jprb/)  
kbo( :,15,10) = (/&
 & 5.6302e+01_jprb,5.7213e+01_jprb,5.7905e+01_jprb,5.8328e+01_jprb,5.8930e+01_jprb/)  
kbo( :,16,10) = (/&
 & 5.2360e+01_jprb,5.3074e+01_jprb,5.3755e+01_jprb,5.4642e+01_jprb,5.5349e+01_jprb/)  
kbo( :,17,10) = (/&
 & 4.8557e+01_jprb,4.9472e+01_jprb,5.0546e+01_jprb,5.1358e+01_jprb,5.2195e+01_jprb/)  
kbo( :,18,10) = (/&
 & 4.5817e+01_jprb,4.7034e+01_jprb,4.8009e+01_jprb,4.9111e+01_jprb,5.0457e+01_jprb/)  
kbo( :,19,10) = (/&
 & 4.3325e+01_jprb,4.4456e+01_jprb,4.5754e+01_jprb,4.7330e+01_jprb,4.8976e+01_jprb/)  
kbo( :,20,10) = (/&
 & 3.9745e+01_jprb,4.1127e+01_jprb,4.2837e+01_jprb,4.4567e+01_jprb,4.6284e+01_jprb/)  

IF (lhook) CALL dr_hook('RRTM_KGB9:PART14',1,zhook_handle)
END SUBROUTINE part14


SUBROUTINE part15

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


kbo( :,21,10) = (/&
 & 3.6127e+01_jprb,3.7823e+01_jprb,3.9580e+01_jprb,4.1335e+01_jprb,4.3236e+01_jprb/)  
kbo( :,22,10) = (/&
 & 3.2661e+01_jprb,3.4362e+01_jprb,3.6109e+01_jprb,3.8022e+01_jprb,4.0162e+01_jprb/)  
kbo( :,23,10) = (/&
 & 2.9316e+01_jprb,3.1011e+01_jprb,3.2886e+01_jprb,3.5036e+01_jprb,3.7336e+01_jprb/)  
kbo( :,24,10) = (/&
 & 2.6133e+01_jprb,2.7977e+01_jprb,3.0126e+01_jprb,3.2424e+01_jprb,3.4907e+01_jprb/)  
kbo( :,25,10) = (/&
 & 2.3786e+01_jprb,2.5903e+01_jprb,2.8212e+01_jprb,3.0718e+01_jprb,3.3428e+01_jprb/)  
kbo( :,26,10) = (/&
 & 2.2187e+01_jprb,2.4436e+01_jprb,2.6979e+01_jprb,2.9726e+01_jprb,3.2775e+01_jprb/)  
kbo( :,27,10) = (/&
 & 2.0867e+01_jprb,2.3290e+01_jprb,2.6025e+01_jprb,2.9060e+01_jprb,3.2420e+01_jprb/)  
kbo( :,28,10) = (/&
 & 1.9963e+01_jprb,2.2440e+01_jprb,2.5348e+01_jprb,2.8653e+01_jprb,3.2222e+01_jprb/)  
kbo( :,29,10) = (/&
 & 1.9439e+01_jprb,2.1951e+01_jprb,2.4945e+01_jprb,2.8411e+01_jprb,3.2065e+01_jprb/)  
kbo( :,30,10) = (/&
 & 1.9217e+01_jprb,2.1773e+01_jprb,2.4822e+01_jprb,2.8258e+01_jprb,3.1954e+01_jprb/)  
kbo( :,31,10) = (/&
 & 1.9236e+01_jprb,2.1821e+01_jprb,2.4835e+01_jprb,2.8172e+01_jprb,3.1859e+01_jprb/)  
kbo( :,32,10) = (/&
 & 1.9497e+01_jprb,2.2156e+01_jprb,2.5072e+01_jprb,2.8334e+01_jprb,3.2036e+01_jprb/)  
kbo( :,33,10) = (/&
 & 1.9927e+01_jprb,2.2649e+01_jprb,2.5483e+01_jprb,2.8731e+01_jprb,3.2414e+01_jprb/)  
kbo( :,34,10) = (/&
 & 2.0616e+01_jprb,2.3435e+01_jprb,2.6339e+01_jprb,2.9629e+01_jprb,3.3264e+01_jprb/)  
kbo( :,35,10) = (/&
 & 2.1144e+01_jprb,2.4078e+01_jprb,2.7155e+01_jprb,3.0411e+01_jprb,3.3926e+01_jprb/)  
kbo( :,36,10) = (/&
 & 2.1438e+01_jprb,2.4511e+01_jprb,2.7776e+01_jprb,3.1069e+01_jprb,3.4391e+01_jprb/)  
kbo( :,37,10) = (/&
 & 2.0912e+01_jprb,2.3999e+01_jprb,2.7304e+01_jprb,3.0662e+01_jprb,3.3903e+01_jprb/)  
kbo( :,38,10) = (/&
 & 2.0345e+01_jprb,2.3428e+01_jprb,2.6766e+01_jprb,3.0163e+01_jprb,3.3445e+01_jprb/)  
kbo( :,39,10) = (/&
 & 1.9778e+01_jprb,2.2831e+01_jprb,2.6185e+01_jprb,2.9606e+01_jprb,3.2946e+01_jprb/)  
kbo( :,40,10) = (/&
 & 1.8680e+01_jprb,2.1589e+01_jprb,2.4845e+01_jprb,2.8243e+01_jprb,3.1561e+01_jprb/)  
kbo( :,41,10) = (/&
 & 1.7550e+01_jprb,2.0318e+01_jprb,2.3431e+01_jprb,2.6770e+01_jprb,3.0077e+01_jprb/)  
kbo( :,42,10) = (/&
 & 1.6473e+01_jprb,1.9098e+01_jprb,2.2042e+01_jprb,2.5289e+01_jprb,2.8560e+01_jprb/)  
kbo( :,43,10) = (/&
 & 1.5257e+01_jprb,1.7707e+01_jprb,2.0444e+01_jprb,2.3540e+01_jprb,2.6749e+01_jprb/)  
kbo( :,44,10) = (/&
 & 1.4023e+01_jprb,1.6313e+01_jprb,1.8839e+01_jprb,2.1729e+01_jprb,2.4856e+01_jprb/)  
kbo( :,45,10) = (/&
 & 1.2858e+01_jprb,1.5005e+01_jprb,1.7331e+01_jprb,2.0013e+01_jprb,2.3009e+01_jprb/)  
kbo( :,46,10) = (/&
 & 1.1732e+01_jprb,1.3762e+01_jprb,1.5932e+01_jprb,1.8398e+01_jprb,2.1229e+01_jprb/)  
kbo( :,47,10) = (/&
 & 1.0637e+01_jprb,1.2563e+01_jprb,1.4611e+01_jprb,1.6882e+01_jprb,1.9522e+01_jprb/)  
kbo( :,48,10) = (/&
 & 9.5989e+00_jprb,1.1430e+01_jprb,1.3382e+01_jprb,1.5508e+01_jprb,1.7946e+01_jprb/)  
kbo( :,49,10) = (/&
 & 8.6105e+00_jprb,1.0367e+01_jprb,1.2235e+01_jprb,1.4247e+01_jprb,1.6502e+01_jprb/)  
kbo( :,50,10) = (/&
 & 7.7795e+00_jprb,9.4717e+00_jprb,1.1267e+01_jprb,1.3203e+01_jprb,1.5335e+01_jprb/)  
kbo( :,51,10) = (/&
 & 7.0327e+00_jprb,8.6531e+00_jprb,1.0392e+01_jprb,1.2262e+01_jprb,1.4298e+01_jprb/)  
kbo( :,52,10) = (/&
 & 6.3294e+00_jprb,7.8785e+00_jprb,9.5601e+00_jprb,1.1364e+01_jprb,1.3321e+01_jprb/)  
kbo( :,53,10) = (/&
 & 5.6735e+00_jprb,7.1473e+00_jprb,8.7577e+00_jprb,1.0501e+01_jprb,1.2384e+01_jprb/)  
kbo( :,54,10) = (/&
 & 5.1171e+00_jprb,6.5109e+00_jprb,8.0578e+00_jprb,9.7452e+00_jprb,1.1565e+01_jprb/)  
kbo( :,55,10) = (/&
 & 4.6203e+00_jprb,5.9356e+00_jprb,7.4153e+00_jprb,9.0377e+00_jprb,1.0796e+01_jprb/)  
kbo( :,56,10) = (/&
 & 4.1502e+00_jprb,5.3934e+00_jprb,6.7922e+00_jprb,8.3512e+00_jprb,1.0055e+01_jprb/)  
kbo( :,57,10) = (/&
 & 3.7055e+00_jprb,4.8827e+00_jprb,6.2007e+00_jprb,7.6928e+00_jprb,9.3383e+00_jprb/)  
kbo( :,58,10) = (/&
 & 3.3017e+00_jprb,4.4251e+00_jprb,5.6661e+00_jprb,7.0836e+00_jprb,8.6693e+00_jprb/)  
kbo( :,59,10) = (/&
 & 3.1387e+00_jprb,4.2362e+00_jprb,5.4398e+00_jprb,6.8151e+00_jprb,8.3756e+00_jprb/)  
kbo( :,13,11) = (/&
 & 8.6501e+01_jprb,8.6756e+01_jprb,8.7009e+01_jprb,8.7807e+01_jprb,8.8321e+01_jprb/)  
kbo( :,14,11) = (/&
 & 8.6001e+01_jprb,8.6390e+01_jprb,8.7153e+01_jprb,8.7884e+01_jprb,8.8485e+01_jprb/)  
kbo( :,15,11) = (/&
 & 8.3396e+01_jprb,8.4271e+01_jprb,8.5263e+01_jprb,8.6231e+01_jprb,8.7169e+01_jprb/)  
kbo( :,16,11) = (/&
 & 8.0216e+01_jprb,8.1367e+01_jprb,8.2641e+01_jprb,8.3850e+01_jprb,8.5113e+01_jprb/)  
kbo( :,17,11) = (/&
 & 7.7559e+01_jprb,7.9123e+01_jprb,8.0637e+01_jprb,8.2229e+01_jprb,8.3780e+01_jprb/)  
kbo( :,18,11) = (/&
 & 7.6113e+01_jprb,7.8038e+01_jprb,8.0039e+01_jprb,8.1955e+01_jprb,8.3906e+01_jprb/)  
kbo( :,19,11) = (/&
 & 7.4701e+01_jprb,7.7061e+01_jprb,7.9341e+01_jprb,8.1777e+01_jprb,8.4316e+01_jprb/)  
kbo( :,20,11) = (/&
 & 7.1644e+01_jprb,7.4182e+01_jprb,7.6892e+01_jprb,7.9840e+01_jprb,8.2902e+01_jprb/)  
kbo( :,21,11) = (/&
 & 6.7620e+01_jprb,7.0516e+01_jprb,7.3720e+01_jprb,7.7152e+01_jprb,8.0637e+01_jprb/)  
kbo( :,22,11) = (/&
 & 6.3004e+01_jprb,6.6364e+01_jprb,7.0039e+01_jprb,7.3871e+01_jprb,7.7820e+01_jprb/)  
kbo( :,23,11) = (/&
 & 5.8500e+01_jprb,6.2279e+01_jprb,6.6312e+01_jprb,7.0504e+01_jprb,7.4998e+01_jprb/)  
kbo( :,24,11) = (/&
 & 5.3727e+01_jprb,5.7825e+01_jprb,6.2144e+01_jprb,6.6890e+01_jprb,7.2071e+01_jprb/)  
kbo( :,25,11) = (/&
 & 4.9481e+01_jprb,5.3871e+01_jprb,5.8717e+01_jprb,6.4044e+01_jprb,6.9704e+01_jprb/)  
kbo( :,26,11) = (/&
 & 4.6254e+01_jprb,5.1111e+01_jprb,5.6460e+01_jprb,6.2228e+01_jprb,6.8093e+01_jprb/)  
kbo( :,27,11) = (/&
 & 4.3953e+01_jprb,4.9258e+01_jprb,5.5047e+01_jprb,6.1083e+01_jprb,6.7149e+01_jprb/)  
kbo( :,28,11) = (/&
 & 4.2333e+01_jprb,4.8051e+01_jprb,5.4161e+01_jprb,6.0348e+01_jprb,6.6482e+01_jprb/)  
kbo( :,29,11) = (/&
 & 4.1519e+01_jprb,4.7571e+01_jprb,5.3856e+01_jprb,6.0162e+01_jprb,6.6490e+01_jprb/)  
kbo( :,30,11) = (/&
 & 4.1079e+01_jprb,4.7326e+01_jprb,5.3742e+01_jprb,6.0205e+01_jprb,6.6744e+01_jprb/)  
kbo( :,31,11) = (/&
 & 4.0957e+01_jprb,4.7315e+01_jprb,5.3845e+01_jprb,6.0494e+01_jprb,6.7153e+01_jprb/)  
kbo( :,32,11) = (/&
 & 4.1227e+01_jprb,4.7602e+01_jprb,5.4282e+01_jprb,6.1081e+01_jprb,6.7763e+01_jprb/)  
kbo( :,33,11) = (/&
 & 4.1826e+01_jprb,4.8137e+01_jprb,5.4944e+01_jprb,6.1784e+01_jprb,6.8374e+01_jprb/)  
kbo( :,34,11) = (/&
 & 4.3072e+01_jprb,4.9391e+01_jprb,5.6254e+01_jprb,6.3099e+01_jprb,6.9725e+01_jprb/)  
kbo( :,35,11) = (/&
 & 4.3986e+01_jprb,5.0200e+01_jprb,5.6858e+01_jprb,6.3640e+01_jprb,7.0415e+01_jprb/)  
kbo( :,36,11) = (/&
 & 4.4502e+01_jprb,5.0408e+01_jprb,5.6628e+01_jprb,6.3171e+01_jprb,7.0200e+01_jprb/)  
kbo( :,37,11) = (/&
 & 4.3850e+01_jprb,4.9526e+01_jprb,5.5508e+01_jprb,6.1846e+01_jprb,6.8955e+01_jprb/)  
kbo( :,38,11) = (/&
 & 4.3288e+01_jprb,4.8717e+01_jprb,5.4460e+01_jprb,6.0601e+01_jprb,6.7672e+01_jprb/)  
kbo( :,39,11) = (/&
 & 4.2793e+01_jprb,4.8055e+01_jprb,5.3543e+01_jprb,5.9508e+01_jprb,6.6570e+01_jprb/)  
kbo( :,40,11) = (/&
 & 4.0982e+01_jprb,4.6218e+01_jprb,5.1475e+01_jprb,5.7189e+01_jprb,6.4026e+01_jprb/)  
kbo( :,41,11) = (/&
 & 3.9015e+01_jprb,4.4241e+01_jprb,4.9337e+01_jprb,5.4818e+01_jprb,6.1396e+01_jprb/)  
kbo( :,42,11) = (/&
 & 3.7029e+01_jprb,4.2233e+01_jprb,4.7279e+01_jprb,5.2574e+01_jprb,5.8917e+01_jprb/)  
kbo( :,43,11) = (/&
 & 3.4672e+01_jprb,3.9813e+01_jprb,4.4910e+01_jprb,5.0015e+01_jprb,5.6019e+01_jprb/)  
kbo( :,44,11) = (/&
 & 3.2216e+01_jprb,3.7254e+01_jprb,4.2367e+01_jprb,4.7396e+01_jprb,5.3071e+01_jprb/)  
kbo( :,45,11) = (/&
 & 2.9847e+01_jprb,3.4776e+01_jprb,3.9855e+01_jprb,4.4920e+01_jprb,5.0317e+01_jprb/)  
kbo( :,46,11) = (/&
 & 2.7555e+01_jprb,3.2329e+01_jprb,3.7304e+01_jprb,4.2424e+01_jprb,4.7633e+01_jprb/)  
kbo( :,47,11) = (/&
 & 2.5262e+01_jprb,2.9854e+01_jprb,3.4721e+01_jprb,3.9795e+01_jprb,4.4945e+01_jprb/)  
kbo( :,48,11) = (/&
 & 2.3081e+01_jprb,2.7503e+01_jprb,3.2213e+01_jprb,3.7177e+01_jprb,4.2342e+01_jprb/)  
kbo( :,49,11) = (/&
 & 2.1057e+01_jprb,2.5246e+01_jprb,2.9758e+01_jprb,3.4602e+01_jprb,3.9727e+01_jprb/)  
kbo( :,50,11) = (/&
 & 1.9318e+01_jprb,2.3248e+01_jprb,2.7618e+01_jprb,3.2289e+01_jprb,3.7300e+01_jprb/)  
kbo( :,51,11) = (/&
 & 1.7764e+01_jprb,2.1445e+01_jprb,2.5630e+01_jprb,3.0117e+01_jprb,3.5003e+01_jprb/)  
kbo( :,52,11) = (/&
 & 1.6284e+01_jprb,1.9745e+01_jprb,2.3706e+01_jprb,2.8037e+01_jprb,3.2754e+01_jprb/)  
kbo( :,53,11) = (/&
 & 1.4870e+01_jprb,1.8170e+01_jprb,2.1878e+01_jprb,2.6032e+01_jprb,3.0559e+01_jprb/)  
kbo( :,54,11) = (/&
 & 1.3618e+01_jprb,1.6796e+01_jprb,2.0287e+01_jprb,2.4249e+01_jprb,2.8597e+01_jprb/)  
kbo( :,55,11) = (/&
 & 1.2457e+01_jprb,1.5534e+01_jprb,1.8860e+01_jprb,2.2616e+01_jprb,2.6796e+01_jprb/)  
kbo( :,56,11) = (/&
 & 1.1356e+01_jprb,1.4314e+01_jprb,1.7512e+01_jprb,2.1058e+01_jprb,2.5045e+01_jprb/)  
kbo( :,57,11) = (/&
 & 1.0320e+01_jprb,1.3127e+01_jprb,1.6224e+01_jprb,1.9585e+01_jprb,2.3359e+01_jprb/)  
kbo( :,58,11) = (/&
 & 9.3830e+00_jprb,1.2046e+01_jprb,1.5046e+01_jprb,1.8261e+01_jprb,2.1817e+01_jprb/)  
kbo( :,59,11) = (/&
 & 8.9391e+00_jprb,1.1539e+01_jprb,1.4477e+01_jprb,1.7622e+01_jprb,2.1055e+01_jprb/)  
kbo( :,13,12) = (/&
 & 1.1536e+02_jprb,1.1632e+02_jprb,1.1676e+02_jprb,1.1687e+02_jprb,1.1771e+02_jprb/)  
kbo( :,14,12) = (/&
 & 1.1996e+02_jprb,1.2089e+02_jprb,1.2132e+02_jprb,1.2216e+02_jprb,1.2355e+02_jprb/)  
kbo( :,15,12) = (/&
 & 1.2190e+02_jprb,1.2270e+02_jprb,1.2390e+02_jprb,1.2571e+02_jprb,1.2681e+02_jprb/)  
kbo( :,16,12) = (/&
 & 1.2181e+02_jprb,1.2365e+02_jprb,1.2585e+02_jprb,1.2744e+02_jprb,1.2865e+02_jprb/)  
kbo( :,17,12) = (/&
 & 1.2361e+02_jprb,1.2611e+02_jprb,1.2809e+02_jprb,1.2991e+02_jprb,1.3207e+02_jprb/)  
kbo( :,18,12) = (/&
 & 1.2791e+02_jprb,1.3042e+02_jprb,1.3285e+02_jprb,1.3575e+02_jprb,1.3866e+02_jprb/)  
kbo( :,19,12) = (/&
 & 1.3167e+02_jprb,1.3492e+02_jprb,1.3862e+02_jprb,1.4230e+02_jprb,1.4589e+02_jprb/)  
kbo( :,20,12) = (/&
 & 1.3240e+02_jprb,1.3677e+02_jprb,1.4130e+02_jprb,1.4568e+02_jprb,1.5011e+02_jprb/)  
kbo( :,21,12) = (/&
 & 1.3167e+02_jprb,1.3705e+02_jprb,1.4232e+02_jprb,1.4765e+02_jprb,1.5295e+02_jprb/)  
kbo( :,22,12) = (/&
 & 1.2941e+02_jprb,1.3568e+02_jprb,1.4188e+02_jprb,1.4812e+02_jprb,1.5420e+02_jprb/)  
kbo( :,23,12) = (/&
 & 1.2650e+02_jprb,1.3362e+02_jprb,1.4090e+02_jprb,1.4804e+02_jprb,1.5493e+02_jprb/)  
kbo( :,24,12) = (/&
 & 1.2203e+02_jprb,1.3010e+02_jprb,1.3824e+02_jprb,1.4621e+02_jprb,1.5349e+02_jprb/)  
kbo( :,25,12) = (/&
 & 1.1780e+02_jprb,1.2675e+02_jprb,1.3578e+02_jprb,1.4425e+02_jprb,1.5220e+02_jprb/)  
kbo( :,26,12) = (/&
 & 1.1452e+02_jprb,1.2433e+02_jprb,1.3394e+02_jprb,1.4292e+02_jprb,1.5154e+02_jprb/)  
kbo( :,27,12) = (/&
 & 1.1158e+02_jprb,1.2202e+02_jprb,1.3200e+02_jprb,1.4156e+02_jprb,1.5071e+02_jprb/)  
kbo( :,28,12) = (/&
 & 1.0877e+02_jprb,1.1953e+02_jprb,1.2986e+02_jprb,1.3983e+02_jprb,1.4949e+02_jprb/)  
kbo( :,29,12) = (/&
 & 1.0758e+02_jprb,1.1863e+02_jprb,1.2937e+02_jprb,1.3977e+02_jprb,1.4973e+02_jprb/)  
kbo( :,30,12) = (/&
 & 1.0679e+02_jprb,1.1811e+02_jprb,1.2916e+02_jprb,1.3989e+02_jprb,1.4980e+02_jprb/)  
kbo( :,31,12) = (/&
 & 1.0688e+02_jprb,1.1849e+02_jprb,1.2989e+02_jprb,1.4068e+02_jprb,1.5077e+02_jprb/)  
kbo( :,32,12) = (/&
 & 1.0761e+02_jprb,1.1953e+02_jprb,1.3110e+02_jprb,1.4225e+02_jprb,1.5305e+02_jprb/)  
kbo( :,33,12) = (/&
 & 1.0869e+02_jprb,1.2092e+02_jprb,1.3311e+02_jprb,1.4513e+02_jprb,1.5706e+02_jprb/)  
kbo( :,34,12) = (/&
 & 1.1112e+02_jprb,1.2403e+02_jprb,1.3695e+02_jprb,1.4972e+02_jprb,1.6276e+02_jprb/)  
kbo( :,35,12) = (/&
 & 1.1246e+02_jprb,1.2623e+02_jprb,1.4002e+02_jprb,1.5398e+02_jprb,1.6809e+02_jprb/)  
kbo( :,36,12) = (/&
 & 1.1250e+02_jprb,1.2737e+02_jprb,1.4246e+02_jprb,1.5783e+02_jprb,1.7316e+02_jprb/)  
kbo( :,37,12) = (/&
 & 1.1061e+02_jprb,1.2593e+02_jprb,1.4155e+02_jprb,1.5744e+02_jprb,1.7321e+02_jprb/)  
kbo( :,38,12) = (/&
 & 1.0863e+02_jprb,1.2441e+02_jprb,1.4054e+02_jprb,1.5693e+02_jprb,1.7309e+02_jprb/)  
kbo( :,39,12) = (/&
 & 1.0682e+02_jprb,1.2301e+02_jprb,1.3972e+02_jprb,1.5664e+02_jprb,1.7318e+02_jprb/)  
kbo( :,40,12) = (/&
 & 1.0231e+02_jprb,1.1830e+02_jprb,1.3525e+02_jprb,1.5235e+02_jprb,1.6904e+02_jprb/)  
kbo( :,41,12) = (/&
 & 9.7591e+01_jprb,1.1325e+02_jprb,1.3028e+02_jprb,1.4750e+02_jprb,1.6434e+02_jprb/)  
kbo( :,42,12) = (/&
 & 9.3027e+01_jprb,1.0842e+02_jprb,1.2533e+02_jprb,1.4267e+02_jprb,1.5965e+02_jprb/)  
kbo( :,43,12) = (/&
 & 8.7538e+01_jprb,1.0245e+02_jprb,1.1885e+02_jprb,1.3623e+02_jprb,1.5326e+02_jprb/)  
kbo( :,44,12) = (/&
 & 8.1886e+01_jprb,9.6138e+01_jprb,1.1198e+02_jprb,1.2909e+02_jprb,1.4608e+02_jprb/)  
kbo( :,45,12) = (/&
 & 7.6645e+01_jprb,9.0087e+01_jprb,1.0542e+02_jprb,1.2199e+02_jprb,1.3900e+02_jprb/)  
kbo( :,46,12) = (/&
 & 7.1474e+01_jprb,8.4055e+01_jprb,9.8742e+01_jprb,1.1474e+02_jprb,1.3156e+02_jprb/)  
kbo( :,47,12) = (/&
 & 6.6310e+01_jprb,7.7963e+01_jprb,9.1690e+01_jprb,1.0705e+02_jprb,1.2340e+02_jprb/)  
kbo( :,48,12) = (/&
 & 6.1600e+01_jprb,7.2276e+01_jprb,8.5037e+01_jprb,9.9673e+01_jprb,1.1542e+02_jprb/)  
kbo( :,49,12) = (/&
 & 5.7283e+01_jprb,6.7050e+01_jprb,7.8923e+01_jprb,9.2652e+01_jprb,1.0778e+02_jprb/)  
kbo( :,50,12) = (/&
 & 5.3478e+01_jprb,6.2571e+01_jprb,7.3516e+01_jprb,8.6380e+01_jprb,1.0082e+02_jprb/)  
kbo( :,51,12) = (/&
 & 4.9875e+01_jprb,5.8576e+01_jprb,6.8672e+01_jprb,8.0731e+01_jprb,9.4376e+01_jprb/)  
kbo( :,52,12) = (/&
 & 4.6408e+01_jprb,5.4871e+01_jprb,6.4185e+01_jprb,7.5407e+01_jprb,8.8241e+01_jprb/)  
kbo( :,53,12) = (/&
 & 4.3049e+01_jprb,5.1245e+01_jprb,6.0053e+01_jprb,7.0436e+01_jprb,8.2512e+01_jprb/)  
kbo( :,54,12) = (/&
 & 4.0074e+01_jprb,4.8005e+01_jprb,5.6523e+01_jprb,6.6130e+01_jprb,7.7483e+01_jprb/)  
kbo( :,55,12) = (/&
 & 3.7334e+01_jprb,4.4988e+01_jprb,5.3284e+01_jprb,6.2287e+01_jprb,7.2912e+01_jprb/)  
kbo( :,56,12) = (/&
 & 3.4721e+01_jprb,4.2060e+01_jprb,5.0133e+01_jprb,5.8707e+01_jprb,6.8606e+01_jprb/)  
kbo( :,57,12) = (/&
 & 3.2171e+01_jprb,3.9229e+01_jprb,4.7079e+01_jprb,5.5373e+01_jprb,6.4605e+01_jprb/)  
kbo( :,58,12) = (/&
 & 2.9794e+01_jprb,3.6617e+01_jprb,4.4198e+01_jprb,5.2314e+01_jprb,6.1016e+01_jprb/)  
kbo( :,59,12) = (/&
 & 2.8699e+01_jprb,3.5397e+01_jprb,4.2806e+01_jprb,5.0814e+01_jprb,5.9273e+01_jprb/)  
kbo( :,13,13) = (/&
 & 1.6492e+02_jprb,1.6388e+02_jprb,1.6346e+02_jprb,1.6281e+02_jprb,1.6185e+02_jprb/)  
kbo( :,14,13) = (/&
 & 1.7807e+02_jprb,1.7770e+02_jprb,1.7743e+02_jprb,1.7669e+02_jprb,1.7598e+02_jprb/)  
kbo( :,15,13) = (/&
 & 1.8993e+02_jprb,1.9024e+02_jprb,1.8997e+02_jprb,1.8962e+02_jprb,1.9043e+02_jprb/)  
kbo( :,16,13) = (/&
 & 2.0050e+02_jprb,2.0095e+02_jprb,2.0135e+02_jprb,2.0291e+02_jprb,2.0501e+02_jprb/)  
kbo( :,17,13) = (/&
 & 2.0905e+02_jprb,2.1062e+02_jprb,2.1338e+02_jprb,2.1661e+02_jprb,2.1875e+02_jprb/)  
kbo( :,18,13) = (/&
 & 2.1804e+02_jprb,2.2224e+02_jprb,2.2674e+02_jprb,2.3000e+02_jprb,2.3246e+02_jprb/)  
kbo( :,19,13) = (/&
 & 2.3115e+02_jprb,2.3655e+02_jprb,2.4106e+02_jprb,2.4477e+02_jprb,2.4852e+02_jprb/)  
kbo( :,20,13) = (/&
 & 2.4329e+02_jprb,2.4898e+02_jprb,2.5395e+02_jprb,2.5885e+02_jprb,2.6364e+02_jprb/)  
kbo( :,21,13) = (/&
 & 2.5437e+02_jprb,2.6055e+02_jprb,2.6661e+02_jprb,2.7260e+02_jprb,2.7787e+02_jprb/)  
kbo( :,22,13) = (/&
 & 2.6250e+02_jprb,2.7007e+02_jprb,2.7766e+02_jprb,2.8448e+02_jprb,2.9027e+02_jprb/)  
kbo( :,23,13) = (/&
 & 2.6919e+02_jprb,2.7869e+02_jprb,2.8736e+02_jprb,2.9473e+02_jprb,3.0099e+02_jprb/)  
kbo( :,24,13) = (/&
 & 2.7228e+02_jprb,2.8325e+02_jprb,2.9264e+02_jprb,3.0066e+02_jprb,3.0797e+02_jprb/)  

IF (lhook) CALL dr_hook('RRTM_KGB9:PART15',1,zhook_handle)
END SUBROUTINE part15


SUBROUTINE part16

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


kbo( :,25,13) = (/&
 & 2.7478e+02_jprb,2.8650e+02_jprb,2.9632e+02_jprb,3.0547e+02_jprb,3.1366e+02_jprb/)  
kbo( :,26,13) = (/&
 & 2.7718e+02_jprb,2.8924e+02_jprb,3.0014e+02_jprb,3.1019e+02_jprb,3.1917e+02_jprb/)  
kbo( :,27,13) = (/&
 & 2.7773e+02_jprb,2.9063e+02_jprb,3.0281e+02_jprb,3.1393e+02_jprb,3.2342e+02_jprb/)  
kbo( :,28,13) = (/&
 & 2.7669e+02_jprb,2.9127e+02_jprb,3.0469e+02_jprb,3.1685e+02_jprb,3.2697e+02_jprb/)  
kbo( :,29,13) = (/&
 & 2.7898e+02_jprb,2.9479e+02_jprb,3.0937e+02_jprb,3.2216e+02_jprb,3.3294e+02_jprb/)  
kbo( :,30,13) = (/&
 & 2.8228e+02_jprb,2.9938e+02_jprb,3.1508e+02_jprb,3.2858e+02_jprb,3.4068e+02_jprb/)  
kbo( :,31,13) = (/&
 & 2.8807e+02_jprb,3.0670e+02_jprb,3.2315e+02_jprb,3.3792e+02_jprb,3.5112e+02_jprb/)  
kbo( :,32,13) = (/&
 & 2.9599e+02_jprb,3.1568e+02_jprb,3.3326e+02_jprb,3.4888e+02_jprb,3.6266e+02_jprb/)  
kbo( :,33,13) = (/&
 & 3.0608e+02_jprb,3.2668e+02_jprb,3.4478e+02_jprb,3.6084e+02_jprb,3.7554e+02_jprb/)  
kbo( :,34,13) = (/&
 & 3.1667e+02_jprb,3.3765e+02_jprb,3.5613e+02_jprb,3.7316e+02_jprb,3.8829e+02_jprb/)  
kbo( :,35,13) = (/&
 & 3.2596e+02_jprb,3.4758e+02_jprb,3.6720e+02_jprb,3.8537e+02_jprb,4.0075e+02_jprb/)  
kbo( :,36,13) = (/&
 & 3.3359e+02_jprb,3.5628e+02_jprb,3.7747e+02_jprb,3.9672e+02_jprb,4.1282e+02_jprb/)  
kbo( :,37,13) = (/&
 & 3.3360e+02_jprb,3.5721e+02_jprb,3.7933e+02_jprb,3.9940e+02_jprb,4.1630e+02_jprb/)  
kbo( :,38,13) = (/&
 & 3.3326e+02_jprb,3.5780e+02_jprb,3.8082e+02_jprb,4.0174e+02_jprb,4.1947e+02_jprb/)  
kbo( :,39,13) = (/&
 & 3.3309e+02_jprb,3.5850e+02_jprb,3.8253e+02_jprb,4.0436e+02_jprb,4.2297e+02_jprb/)  
kbo( :,40,13) = (/&
 & 3.2648e+02_jprb,3.5268e+02_jprb,3.7698e+02_jprb,3.9960e+02_jprb,4.1913e+02_jprb/)  
kbo( :,41,13) = (/&
 & 3.1896e+02_jprb,3.4578e+02_jprb,3.7035e+02_jprb,3.9368e+02_jprb,4.1397e+02_jprb/)  
kbo( :,42,13) = (/&
 & 3.1112e+02_jprb,3.3866e+02_jprb,3.6362e+02_jprb,3.8746e+02_jprb,4.0853e+02_jprb/)  
kbo( :,43,13) = (/&
 & 3.0052e+02_jprb,3.2869e+02_jprb,3.5427e+02_jprb,3.7807e+02_jprb,3.9999e+02_jprb/)  
kbo( :,44,13) = (/&
 & 2.8853e+02_jprb,3.1745e+02_jprb,3.4358e+02_jprb,3.6752e+02_jprb,3.9013e+02_jprb/)  
kbo( :,45,13) = (/&
 & 2.7601e+02_jprb,3.0588e+02_jprb,3.3279e+02_jprb,3.5705e+02_jprb,3.7967e+02_jprb/)  
kbo( :,46,13) = (/&
 & 2.6267e+02_jprb,2.9363e+02_jprb,3.2123e+02_jprb,3.4597e+02_jprb,3.6877e+02_jprb/)  
kbo( :,47,13) = (/&
 & 2.4757e+02_jprb,2.7937e+02_jprb,3.0805e+02_jprb,3.3376e+02_jprb,3.5676e+02_jprb/)  
kbo( :,48,13) = (/&
 & 2.3214e+02_jprb,2.6483e+02_jprb,2.9482e+02_jprb,3.2128e+02_jprb,3.4490e+02_jprb/)  
kbo( :,49,13) = (/&
 & 2.1667e+02_jprb,2.4994e+02_jprb,2.8075e+02_jprb,3.0839e+02_jprb,3.3291e+02_jprb/)  
kbo( :,50,13) = (/&
 & 2.0214e+02_jprb,2.3567e+02_jprb,2.6727e+02_jprb,2.9615e+02_jprb,3.2136e+02_jprb/)  
kbo( :,51,13) = (/&
 & 1.8827e+02_jprb,2.2174e+02_jprb,2.5386e+02_jprb,2.8344e+02_jprb,3.0975e+02_jprb/)  
kbo( :,52,13) = (/&
 & 1.7469e+02_jprb,2.0766e+02_jprb,2.4021e+02_jprb,2.7051e+02_jprb,2.9806e+02_jprb/)  
kbo( :,53,13) = (/&
 & 1.6154e+02_jprb,1.9380e+02_jprb,2.2644e+02_jprb,2.5730e+02_jprb,2.8551e+02_jprb/)  
kbo( :,54,13) = (/&
 & 1.4971e+02_jprb,1.8121e+02_jprb,2.1351e+02_jprb,2.4474e+02_jprb,2.7363e+02_jprb/)  
kbo( :,55,13) = (/&
 & 1.3871e+02_jprb,1.6943e+02_jprb,2.0115e+02_jprb,2.3248e+02_jprb,2.6185e+02_jprb/)  
kbo( :,56,13) = (/&
 & 1.2829e+02_jprb,1.5787e+02_jprb,1.8899e+02_jprb,2.2029e+02_jprb,2.4989e+02_jprb/)  
kbo( :,57,13) = (/&
 & 1.1862e+02_jprb,1.4668e+02_jprb,1.7707e+02_jprb,2.0801e+02_jprb,2.3778e+02_jprb/)  
kbo( :,58,13) = (/&
 & 1.1001e+02_jprb,1.3648e+02_jprb,1.6587e+02_jprb,1.9633e+02_jprb,2.2625e+02_jprb/)  
kbo( :,59,13) = (/&
 & 1.0617e+02_jprb,1.3192e+02_jprb,1.6056e+02_jprb,1.9063e+02_jprb,2.2036e+02_jprb/)  
kbo( :,13,14) = (/&
 & 2.3740e+02_jprb,2.3433e+02_jprb,2.3150e+02_jprb,2.2987e+02_jprb,2.2791e+02_jprb/)  
kbo( :,14,14) = (/&
 & 2.6697e+02_jprb,2.6354e+02_jprb,2.6091e+02_jprb,2.5890e+02_jprb,2.5611e+02_jprb/)  
kbo( :,15,14) = (/&
 & 2.9866e+02_jprb,2.9528e+02_jprb,2.9285e+02_jprb,2.8971e+02_jprb,2.8602e+02_jprb/)  
kbo( :,16,14) = (/&
 & 3.3180e+02_jprb,3.2877e+02_jprb,3.2564e+02_jprb,3.2149e+02_jprb,3.1785e+02_jprb/)  
kbo( :,17,14) = (/&
 & 3.6593e+02_jprb,3.6291e+02_jprb,3.5866e+02_jprb,3.5483e+02_jprb,3.5327e+02_jprb/)  
kbo( :,18,14) = (/&
 & 4.0089e+02_jprb,3.9701e+02_jprb,3.9353e+02_jprb,3.9249e+02_jprb,3.9242e+02_jprb/)  
kbo( :,19,14) = (/&
 & 4.3492e+02_jprb,4.3255e+02_jprb,4.3249e+02_jprb,4.3314e+02_jprb,4.3203e+02_jprb/)  
kbo( :,20,14) = (/&
 & 4.6851e+02_jprb,4.6867e+02_jprb,4.6996e+02_jprb,4.7008e+02_jprb,4.6768e+02_jprb/)  
kbo( :,21,14) = (/&
 & 5.0160e+02_jprb,5.0368e+02_jprb,5.0510e+02_jprb,5.0393e+02_jprb,5.0142e+02_jprb/)  
kbo( :,22,14) = (/&
 & 5.3436e+02_jprb,5.3662e+02_jprb,5.3668e+02_jprb,5.3522e+02_jprb,5.3316e+02_jprb/)  
kbo( :,23,14) = (/&
 & 5.6475e+02_jprb,5.6646e+02_jprb,5.6617e+02_jprb,5.6492e+02_jprb,5.6377e+02_jprb/)  
kbo( :,24,14) = (/&
 & 5.9117e+02_jprb,5.9235e+02_jprb,5.9305e+02_jprb,5.9284e+02_jprb,5.9155e+02_jprb/)  
kbo( :,25,14) = (/&
 & 6.1433e+02_jprb,6.1663e+02_jprb,6.1844e+02_jprb,6.1841e+02_jprb,6.1657e+02_jprb/)  
kbo( :,26,14) = (/&
 & 6.3532e+02_jprb,6.3942e+02_jprb,6.4146e+02_jprb,6.4105e+02_jprb,6.3887e+02_jprb/)  
kbo( :,27,14) = (/&
 & 6.5539e+02_jprb,6.6044e+02_jprb,6.6224e+02_jprb,6.6141e+02_jprb,6.5941e+02_jprb/)  
kbo( :,28,14) = (/&
 & 6.7497e+02_jprb,6.7980e+02_jprb,6.8130e+02_jprb,6.7994e+02_jprb,6.7811e+02_jprb/)  
kbo( :,29,14) = (/&
 & 6.9431e+02_jprb,6.9884e+02_jprb,6.9950e+02_jprb,6.9835e+02_jprb,6.9642e+02_jprb/)  
kbo( :,30,14) = (/&
 & 7.1327e+02_jprb,7.1751e+02_jprb,7.1742e+02_jprb,7.1698e+02_jprb,7.1542e+02_jprb/)  
kbo( :,31,14) = (/&
 & 7.3356e+02_jprb,7.3622e+02_jprb,7.3751e+02_jprb,7.3724e+02_jprb,7.3663e+02_jprb/)  
kbo( :,32,14) = (/&
 & 7.5311e+02_jprb,7.5602e+02_jprb,7.5787e+02_jprb,7.5927e+02_jprb,7.5912e+02_jprb/)  
kbo( :,33,14) = (/&
 & 7.7307e+02_jprb,7.7793e+02_jprb,7.8149e+02_jprb,7.8317e+02_jprb,7.8351e+02_jprb/)  
kbo( :,34,14) = (/&
 & 7.9467e+02_jprb,8.0056e+02_jprb,8.0525e+02_jprb,8.0749e+02_jprb,8.0900e+02_jprb/)  
kbo( :,35,14) = (/&
 & 8.1769e+02_jprb,8.2551e+02_jprb,8.3062e+02_jprb,8.3402e+02_jprb,8.3937e+02_jprb/)  
kbo( :,36,14) = (/&
 & 8.4220e+02_jprb,8.5215e+02_jprb,8.5810e+02_jprb,8.6400e+02_jprb,8.7476e+02_jprb/)  
kbo( :,37,14) = (/&
 & 8.5305e+02_jprb,8.6405e+02_jprb,8.7082e+02_jprb,8.7797e+02_jprb,8.9053e+02_jprb/)  
kbo( :,38,14) = (/&
 & 8.6322e+02_jprb,8.7544e+02_jprb,8.8314e+02_jprb,8.9164e+02_jprb,9.0590e+02_jprb/)  
kbo( :,39,14) = (/&
 & 8.7378e+02_jprb,8.8745e+02_jprb,8.9629e+02_jprb,9.0629e+02_jprb,9.2255e+02_jprb/)  
kbo( :,40,14) = (/&
 & 8.7238e+02_jprb,8.8620e+02_jprb,8.9614e+02_jprb,9.0579e+02_jprb,9.1970e+02_jprb/)  
kbo( :,41,14) = (/&
 & 8.6852e+02_jprb,8.8300e+02_jprb,8.9419e+02_jprb,9.0301e+02_jprb,9.1475e+02_jprb/)  
kbo( :,42,14) = (/&
 & 8.6436e+02_jprb,8.7945e+02_jprb,8.9208e+02_jprb,9.0006e+02_jprb,9.1044e+02_jprb/)  
kbo( :,43,14) = (/&
 & 8.5621e+02_jprb,8.7164e+02_jprb,8.8447e+02_jprb,8.9300e+02_jprb,9.0169e+02_jprb/)  
kbo( :,44,14) = (/&
 & 8.4579e+02_jprb,8.6160e+02_jprb,8.7458e+02_jprb,8.8449e+02_jprb,8.9117e+02_jprb/)  
kbo( :,45,14) = (/&
 & 8.3552e+02_jprb,8.5159e+02_jprb,8.6481e+02_jprb,8.7553e+02_jprb,8.8180e+02_jprb/)  
kbo( :,46,14) = (/&
 & 8.2373e+02_jprb,8.4082e+02_jprb,8.5433e+02_jprb,8.6532e+02_jprb,8.7296e+02_jprb/)  
kbo( :,47,14) = (/&
 & 8.0885e+02_jprb,8.2944e+02_jprb,8.4330e+02_jprb,8.5448e+02_jprb,8.6308e+02_jprb/)  
kbo( :,48,14) = (/&
 & 7.9282e+02_jprb,8.1701e+02_jprb,8.3172e+02_jprb,8.4330e+02_jprb,8.5233e+02_jprb/)  
kbo( :,49,14) = (/&
 & 7.7474e+02_jprb,8.0258e+02_jprb,8.2078e+02_jprb,8.3236e+02_jprb,8.4158e+02_jprb/)  
kbo( :,50,14) = (/&
 & 7.5683e+02_jprb,7.8804e+02_jprb,8.0940e+02_jprb,8.2148e+02_jprb,8.3083e+02_jprb/)  
kbo( :,51,14) = (/&
 & 7.3938e+02_jprb,7.7206e+02_jprb,7.9641e+02_jprb,8.1162e+02_jprb,8.2058e+02_jprb/)  
kbo( :,52,14) = (/&
 & 7.2202e+02_jprb,7.5535e+02_jprb,7.8294e+02_jprb,8.0108e+02_jprb,8.1024e+02_jprb/)  
kbo( :,53,14) = (/&
 & 7.0324e+02_jprb,7.3897e+02_jprb,7.6789e+02_jprb,7.8856e+02_jprb,8.0094e+02_jprb/)  
kbo( :,54,14) = (/&
 & 6.8557e+02_jprb,7.2372e+02_jprb,7.5272e+02_jprb,7.7628e+02_jprb,7.9095e+02_jprb/)  
kbo( :,55,14) = (/&
 & 6.6859e+02_jprb,7.0784e+02_jprb,7.3838e+02_jprb,7.6303e+02_jprb,7.7977e+02_jprb/)  
kbo( :,56,14) = (/&
 & 6.5053e+02_jprb,6.9180e+02_jprb,7.2460e+02_jprb,7.4881e+02_jprb,7.6818e+02_jprb/)  
kbo( :,57,14) = (/&
 & 6.3162e+02_jprb,6.7617e+02_jprb,7.0983e+02_jprb,7.3529e+02_jprb,7.5540e+02_jprb/)  
kbo( :,58,14) = (/&
 & 6.1260e+02_jprb,6.6039e+02_jprb,6.9564e+02_jprb,7.2278e+02_jprb,7.4208e+02_jprb/)  
kbo( :,59,14) = (/&
 & 6.0339e+02_jprb,6.5209e+02_jprb,6.8806e+02_jprb,7.1492e+02_jprb,7.3375e+02_jprb/)  
kbo( :,13,15) = (/&
 & 3.5098e+02_jprb,3.4253e+02_jprb,3.3549e+02_jprb,3.2928e+02_jprb,3.2668e+02_jprb/)  
kbo( :,14,15) = (/&
 & 4.0377e+02_jprb,3.9399e+02_jprb,3.8548e+02_jprb,3.7889e+02_jprb,3.7631e+02_jprb/)  
kbo( :,15,15) = (/&
 & 4.6249e+02_jprb,4.5101e+02_jprb,4.4105e+02_jprb,4.3505e+02_jprb,4.3250e+02_jprb/)  
kbo( :,16,15) = (/&
 & 5.2722e+02_jprb,5.1397e+02_jprb,5.0360e+02_jprb,4.9808e+02_jprb,4.9380e+02_jprb/)  
kbo( :,17,15) = (/&
 & 5.9816e+02_jprb,5.8291e+02_jprb,5.7380e+02_jprb,5.6753e+02_jprb,5.5862e+02_jprb/)  
kbo( :,18,15) = (/&
 & 6.7401e+02_jprb,6.5981e+02_jprb,6.5045e+02_jprb,6.3876e+02_jprb,6.2938e+02_jprb/)  
kbo( :,19,15) = (/&
 & 7.5603e+02_jprb,7.4243e+02_jprb,7.2713e+02_jprb,7.1493e+02_jprb,7.1147e+02_jprb/)  
kbo( :,20,15) = (/&
 & 8.4018e+02_jprb,8.2182e+02_jprb,8.0329e+02_jprb,7.9254e+02_jprb,7.9403e+02_jprb/)  
kbo( :,21,15) = (/&
 & 9.2407e+02_jprb,8.9903e+02_jprb,8.7966e+02_jprb,8.7268e+02_jprb,8.7487e+02_jprb/)  
kbo( :,22,15) = (/&
 & 1.0011e+03_jprb,9.7360e+02_jprb,9.5759e+02_jprb,9.5258e+02_jprb,9.5318e+02_jprb/)  
kbo( :,23,15) = (/&
 & 1.0752e+03_jprb,1.0483e+03_jprb,1.0346e+03_jprb,1.0305e+03_jprb,1.0291e+03_jprb/)  
kbo( :,24,15) = (/&
 & 1.1456e+03_jprb,1.1222e+03_jprb,1.1083e+03_jprb,1.1031e+03_jprb,1.1046e+03_jprb/)  
kbo( :,25,15) = (/&
 & 1.2128e+03_jprb,1.1904e+03_jprb,1.1781e+03_jprb,1.1730e+03_jprb,1.1805e+03_jprb/)  
kbo( :,26,15) = (/&
 & 1.2750e+03_jprb,1.2517e+03_jprb,1.2401e+03_jprb,1.2396e+03_jprb,1.2511e+03_jprb/)  
kbo( :,27,15) = (/&
 & 1.3306e+03_jprb,1.3092e+03_jprb,1.2993e+03_jprb,1.3047e+03_jprb,1.3242e+03_jprb/)  
kbo( :,28,15) = (/&
 & 1.3803e+03_jprb,1.3622e+03_jprb,1.3582e+03_jprb,1.3721e+03_jprb,1.4060e+03_jprb/)  
kbo( :,29,15) = (/&
 & 1.4288e+03_jprb,1.4164e+03_jprb,1.4235e+03_jprb,1.4518e+03_jprb,1.5063e+03_jprb/)  
kbo( :,30,15) = (/&
 & 1.4796e+03_jprb,1.4775e+03_jprb,1.4997e+03_jprb,1.5506e+03_jprb,1.6294e+03_jprb/)  
kbo( :,31,15) = (/&
 & 1.5388e+03_jprb,1.5544e+03_jprb,1.6015e+03_jprb,1.6845e+03_jprb,1.7959e+03_jprb/)  
kbo( :,32,15) = (/&
 & 1.6108e+03_jprb,1.6524e+03_jprb,1.7357e+03_jprb,1.8549e+03_jprb,2.0073e+03_jprb/)  
kbo( :,33,15) = (/&
 & 1.7049e+03_jprb,1.7848e+03_jprb,1.9109e+03_jprb,2.0795e+03_jprb,2.2809e+03_jprb/)  
kbo( :,34,15) = (/&
 & 1.8222e+03_jprb,1.9474e+03_jprb,2.1232e+03_jprb,2.3448e+03_jprb,2.6010e+03_jprb/)  
kbo( :,35,15) = (/&
 & 1.9666e+03_jprb,2.1410e+03_jprb,2.3742e+03_jprb,2.6548e+03_jprb,2.9712e+03_jprb/)  
kbo( :,36,15) = (/&
 & 2.1340e+03_jprb,2.3637e+03_jprb,2.6606e+03_jprb,3.0085e+03_jprb,3.3914e+03_jprb/)  
kbo( :,37,15) = (/&
 & 2.1914e+03_jprb,2.4375e+03_jprb,2.7564e+03_jprb,3.1300e+03_jprb,3.5406e+03_jprb/)  
kbo( :,38,15) = (/&
 & 2.2462e+03_jprb,2.5086e+03_jprb,2.8496e+03_jprb,3.2486e+03_jprb,3.6885e+03_jprb/)  
kbo( :,39,15) = (/&
 & 2.3075e+03_jprb,2.5896e+03_jprb,2.9560e+03_jprb,3.3853e+03_jprb,3.8593e+03_jprb/)  
kbo( :,40,15) = (/&
 & 2.2597e+03_jprb,2.5238e+03_jprb,2.8725e+03_jprb,3.2888e+03_jprb,3.7565e+03_jprb/)  
kbo( :,41,15) = (/&
 & 2.2030e+03_jprb,2.4431e+03_jprb,2.7663e+03_jprb,3.1637e+03_jprb,3.6169e+03_jprb/)  
kbo( :,42,15) = (/&
 & 2.1527e+03_jprb,2.3676e+03_jprb,2.6649e+03_jprb,3.0437e+03_jprb,3.4807e+03_jprb/)  
kbo( :,43,15) = (/&
 & 2.0801e+03_jprb,2.2578e+03_jprb,2.5168e+03_jprb,2.8580e+03_jprb,3.2606e+03_jprb/)  
kbo( :,44,15) = (/&
 & 2.0120e+03_jprb,2.1487e+03_jprb,2.3643e+03_jprb,2.6580e+03_jprb,3.0218e+03_jprb/)  
kbo( :,45,15) = (/&
 & 1.9613e+03_jprb,2.0594e+03_jprb,2.2322e+03_jprb,2.4807e+03_jprb,2.8037e+03_jprb/)  
kbo( :,46,15) = (/&
 & 1.9248e+03_jprb,1.9849e+03_jprb,2.1161e+03_jprb,2.3204e+03_jprb,2.5965e+03_jprb/)  
kbo( :,47,15) = (/&
 & 1.9027e+03_jprb,1.9263e+03_jprb,2.0143e+03_jprb,2.1716e+03_jprb,2.3989e+03_jprb/)  
kbo( :,48,15) = (/&
 & 1.8901e+03_jprb,1.8881e+03_jprb,1.9372e+03_jprb,2.0507e+03_jprb,2.2312e+03_jprb/)  
kbo( :,49,15) = (/&
 & 1.8889e+03_jprb,1.8669e+03_jprb,1.8827e+03_jprb,1.9550e+03_jprb,2.0905e+03_jprb/)  
kbo( :,50,15) = (/&
 & 1.8989e+03_jprb,1.8542e+03_jprb,1.8471e+03_jprb,1.8860e+03_jprb,1.9820e+03_jprb/)  
kbo( :,51,15) = (/&
 & 1.9169e+03_jprb,1.8516e+03_jprb,1.8269e+03_jprb,1.8368e+03_jprb,1.8967e+03_jprb/)  
kbo( :,52,15) = (/&
 & 1.9362e+03_jprb,1.8607e+03_jprb,1.8138e+03_jprb,1.8022e+03_jprb,1.8318e+03_jprb/)  
kbo( :,53,15) = (/&
 & 1.9614e+03_jprb,1.8769e+03_jprb,1.8109e+03_jprb,1.7819e+03_jprb,1.7849e+03_jprb/)  
kbo( :,54,15) = (/&
 & 1.9844e+03_jprb,1.8925e+03_jprb,1.8175e+03_jprb,1.7685e+03_jprb,1.7516e+03_jprb/)  
kbo( :,55,15) = (/&
 & 2.0020e+03_jprb,1.9117e+03_jprb,1.8292e+03_jprb,1.7630e+03_jprb,1.7309e+03_jprb/)  
kbo( :,56,15) = (/&
 & 2.0278e+03_jprb,1.9328e+03_jprb,1.8420e+03_jprb,1.7676e+03_jprb,1.7165e+03_jprb/)  
kbo( :,57,15) = (/&
 & 2.0604e+03_jprb,1.9486e+03_jprb,1.8586e+03_jprb,1.7772e+03_jprb,1.7105e+03_jprb/)  
kbo( :,58,15) = (/&
 & 2.0975e+03_jprb,1.9708e+03_jprb,1.8754e+03_jprb,1.7869e+03_jprb,1.7130e+03_jprb/)  
kbo( :,59,15) = (/&
 & 2.1134e+03_jprb,1.9790e+03_jprb,1.8747e+03_jprb,1.7853e+03_jprb,1.7084e+03_jprb/)  
kbo( :,13,16) = (/&
 & 5.7032e+02_jprb,5.5610e+02_jprb,5.4108e+02_jprb,5.2545e+02_jprb,5.0988e+02_jprb/)  
kbo( :,14,16) = (/&
 & 6.6729e+02_jprb,6.4906e+02_jprb,6.2994e+02_jprb,6.1106e+02_jprb,5.9252e+02_jprb/)  
kbo( :,15,16) = (/&
 & 7.7710e+02_jprb,7.5381e+02_jprb,7.3065e+02_jprb,7.0752e+02_jprb,6.8404e+02_jprb/)  
kbo( :,16,16) = (/&
 & 8.9983e+02_jprb,8.7150e+02_jprb,8.4258e+02_jprb,8.1329e+02_jprb,7.9266e+02_jprb/)  
kbo( :,17,16) = (/&
 & 1.0356e+03_jprb,9.9960e+02_jprb,9.6297e+02_jprb,9.3112e+02_jprb,9.3376e+02_jprb/)  
kbo( :,18,16) = (/&
 & 1.1805e+03_jprb,1.1349e+03_jprb,1.0927e+03_jprb,1.0913e+03_jprb,1.1178e+03_jprb/)  
kbo( :,19,16) = (/&
 & 1.3301e+03_jprb,1.2743e+03_jprb,1.2636e+03_jprb,1.2905e+03_jprb,1.3412e+03_jprb/)  
kbo( :,20,16) = (/&
 & 1.4790e+03_jprb,1.4325e+03_jprb,1.4416e+03_jprb,1.4834e+03_jprb,1.5509e+03_jprb/)  
kbo( :,21,16) = (/&
 & 1.6248e+03_jprb,1.6005e+03_jprb,1.6227e+03_jprb,1.6765e+03_jprb,1.7801e+03_jprb/)  
kbo( :,22,16) = (/&
 & 1.7789e+03_jprb,1.7751e+03_jprb,1.8121e+03_jprb,1.8963e+03_jprb,2.0533e+03_jprb/)  
kbo( :,23,16) = (/&
 & 1.9420e+03_jprb,1.9550e+03_jprb,2.0171e+03_jprb,2.1515e+03_jprb,2.3736e+03_jprb/)  
kbo( :,24,16) = (/&
 & 2.1057e+03_jprb,2.1395e+03_jprb,2.2516e+03_jprb,2.4478e+03_jprb,2.7312e+03_jprb/)  
kbo( :,25,16) = (/&
 & 2.2727e+03_jprb,2.3487e+03_jprb,2.5135e+03_jprb,2.7876e+03_jprb,3.1353e+03_jprb/)  
kbo( :,26,16) = (/&
 & 2.4430e+03_jprb,2.5769e+03_jprb,2.8118e+03_jprb,3.1571e+03_jprb,3.5871e+03_jprb/)  
kbo( :,27,16) = (/&
 & 2.6427e+03_jprb,2.8396e+03_jprb,3.1669e+03_jprb,3.5883e+03_jprb,4.0930e+03_jprb/)  
kbo( :,28,16) = (/&
 & 2.8823e+03_jprb,3.1635e+03_jprb,3.5805e+03_jprb,4.0928e+03_jprb,4.6511e+03_jprb/)  

IF (lhook) CALL dr_hook('RRTM_KGB9:PART16',1,zhook_handle)
END SUBROUTINE part16


SUBROUTINE part17

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


kbo( :,29,16) = (/&
 & 3.1912e+03_jprb,3.5861e+03_jprb,4.1049e+03_jprb,4.7016e+03_jprb,5.3176e+03_jprb/)  
kbo( :,30,16) = (/&
 & 3.5968e+03_jprb,4.1208e+03_jprb,4.7628e+03_jprb,5.4277e+03_jprb,6.1129e+03_jprb/)  
kbo( :,31,16) = (/&
 & 4.1669e+03_jprb,4.8568e+03_jprb,5.5986e+03_jprb,6.3508e+03_jprb,7.1245e+03_jprb/)  
kbo( :,32,16) = (/&
 & 4.9181e+03_jprb,5.7548e+03_jprb,6.5943e+03_jprb,7.4480e+03_jprb,8.3250e+03_jprb/)  
kbo( :,33,16) = (/&
 & 5.8885e+03_jprb,6.8470e+03_jprb,7.8053e+03_jprb,8.7780e+03_jprb,9.7768e+03_jprb/)  
kbo( :,34,16) = (/&
 & 6.9635e+03_jprb,8.0514e+03_jprb,9.1398e+03_jprb,1.0245e+04_jprb,1.1380e+04_jprb/)  
kbo( :,35,16) = (/&
 & 8.1473e+03_jprb,9.3881e+03_jprb,1.0630e+04_jprb,1.1894e+04_jprb,1.3185e+04_jprb/)  
kbo( :,36,16) = (/&
 & 9.4364e+03_jprb,1.0865e+04_jprb,1.2293e+04_jprb,1.3743e+04_jprb,1.5227e+04_jprb/)  
kbo( :,37,16) = (/&
 & 9.8676e+03_jprb,1.1389e+04_jprb,1.2910e+04_jprb,1.4442e+04_jprb,1.6011e+04_jprb/)  
kbo( :,38,16) = (/&
 & 1.0288e+04_jprb,1.1907e+04_jprb,1.3518e+04_jprb,1.5146e+04_jprb,1.6802e+04_jprb/)  
kbo( :,39,16) = (/&
 & 1.0771e+04_jprb,1.2499e+04_jprb,1.4216e+04_jprb,1.5954e+04_jprb,1.7707e+04_jprb/)  
kbo( :,40,16) = (/&
 & 1.0414e+04_jprb,1.2148e+04_jprb,1.3875e+04_jprb,1.5613e+04_jprb,1.7368e+04_jprb/)  
kbo( :,41,16) = (/&
 & 9.9384e+03_jprb,1.1661e+04_jprb,1.3383e+04_jprb,1.5104e+04_jprb,1.6844e+04_jprb/)  
kbo( :,42,16) = (/&
 & 9.4612e+03_jprb,1.1170e+04_jprb,1.2888e+04_jprb,1.4596e+04_jprb,1.6317e+04_jprb/)  
kbo( :,43,16) = (/&
 & 8.7147e+03_jprb,1.0370e+04_jprb,1.2042e+04_jprb,1.3705e+04_jprb,1.5380e+04_jprb/)  
kbo( :,44,16) = (/&
 & 7.8820e+03_jprb,9.4600e+03_jprb,1.1070e+04_jprb,1.2678e+04_jprb,1.4284e+04_jprb/)  
kbo( :,45,16) = (/&
 & 7.0926e+03_jprb,8.5904e+03_jprb,1.0135e+04_jprb,1.1689e+04_jprb,1.3230e+04_jprb/)  
kbo( :,46,16) = (/&
 & 6.3333e+03_jprb,7.7267e+03_jprb,9.1993e+03_jprb,1.0689e+04_jprb,1.2169e+04_jprb/)  
kbo( :,47,16) = (/&
 & 5.6159e+03_jprb,6.8398e+03_jprb,8.2286e+03_jprb,9.6499e+03_jprb,1.1071e+04_jprb/)  
kbo( :,48,16) = (/&
 & 5.0469e+03_jprb,6.0380e+03_jprb,7.3127e+03_jprb,8.6620e+03_jprb,1.0021e+04_jprb/)  
kbo( :,49,16) = (/&
 & 4.6114e+03_jprb,5.3556e+03_jprb,6.4573e+03_jprb,7.7273e+03_jprb,9.0204e+03_jprb/)  
kbo( :,50,16) = (/&
 & 4.2827e+03_jprb,4.8418e+03_jprb,5.7290e+03_jprb,6.8837e+03_jprb,8.1065e+03_jprb/)  
kbo( :,51,16) = (/&
 & 4.0377e+03_jprb,4.4505e+03_jprb,5.1216e+03_jprb,6.1118e+03_jprb,7.2612e+03_jprb/)  
kbo( :,52,16) = (/&
 & 3.9027e+03_jprb,4.1388e+03_jprb,4.6373e+03_jprb,5.4292e+03_jprb,6.4624e+03_jprb/)  
kbo( :,53,16) = (/&
 & 3.8594e+03_jprb,3.9014e+03_jprb,4.2603e+03_jprb,4.8496e+03_jprb,5.7176e+03_jprb/)  
kbo( :,54,16) = (/&
 & 3.9053e+03_jprb,3.7705e+03_jprb,3.9739e+03_jprb,4.4065e+03_jprb,5.0959e+03_jprb/)  
kbo( :,55,16) = (/&
 & 4.0460e+03_jprb,3.7217e+03_jprb,3.7544e+03_jprb,4.0660e+03_jprb,4.5765e+03_jprb/)  
kbo( :,56,16) = (/&
 & 4.2054e+03_jprb,3.7493e+03_jprb,3.6207e+03_jprb,3.7906e+03_jprb,4.1568e+03_jprb/)  
kbo( :,57,16) = (/&
 & 4.3770e+03_jprb,3.8799e+03_jprb,3.5717e+03_jprb,3.5790e+03_jprb,3.8293e+03_jprb/)  
kbo( :,58,16) = (/&
 & 4.5510e+03_jprb,4.0210e+03_jprb,3.5972e+03_jprb,3.4529e+03_jprb,3.5736e+03_jprb/)  
kbo( :,59,16) = (/&
 & 4.6237e+03_jprb,4.0799e+03_jprb,3.6344e+03_jprb,3.3958e+03_jprb,3.4194e+03_jprb/)  

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

selfrefo( :, 1) = (/&
 & 2.83413e-02_jprb, 2.51443e-02_jprb, 2.23078e-02_jprb, 1.97914e-02_jprb, 1.75588e-02_jprb,&
 & 1.55780e-02_jprb, 1.38207e-02_jprb, 1.22617e-02_jprb, 1.08785e-02_jprb, 9.65132e-03_jprb/)  
selfrefo( :, 2) = (/&
 & 3.01506e-02_jprb, 2.69506e-02_jprb, 2.40901e-02_jprb, 2.15333e-02_jprb, 1.92478e-02_jprb,&
 & 1.72049e-02_jprb, 1.53789e-02_jprb, 1.37466e-02_jprb, 1.22876e-02_jprb, 1.09834e-02_jprb/)  
selfrefo( :, 3) = (/&
 & 4.24899e-02_jprb, 3.77138e-02_jprb, 3.34745e-02_jprb, 2.97118e-02_jprb, 2.63720e-02_jprb,&
 & 2.34077e-02_jprb, 2.07765e-02_jprb, 1.84411e-02_jprb, 1.63682e-02_jprb, 1.45283e-02_jprb/)  
selfrefo( :, 4) = (/&
 & 5.78648e-02_jprb, 5.16988e-02_jprb, 4.61899e-02_jprb, 4.12679e-02_jprb, 3.68705e-02_jprb,&
 & 3.29416e-02_jprb, 2.94314e-02_jprb, 2.62952e-02_jprb, 2.34932e-02_jprb, 2.09898e-02_jprb/)  
selfrefo( :, 5) = (/&
 & 6.96367e-02_jprb, 6.36716e-02_jprb, 5.82175e-02_jprb, 5.32306e-02_jprb, 4.86709e-02_jprb,&
 & 4.45018e-02_jprb, 4.06898e-02_jprb, 3.72043e-02_jprb, 3.40174e-02_jprb, 3.11034e-02_jprb/)  
selfrefo( :, 6) = (/&
 & 6.04073e-02_jprb, 5.90856e-02_jprb, 5.77929e-02_jprb, 5.65284e-02_jprb, 5.52916e-02_jprb,&
 & 5.40819e-02_jprb, 5.28986e-02_jprb, 5.17413e-02_jprb, 5.06092e-02_jprb, 4.95020e-02_jprb/)  
selfrefo( :, 7) = (/&
 & 6.19460e-02_jprb, 6.02812e-02_jprb, 5.86612e-02_jprb, 5.70847e-02_jprb, 5.55506e-02_jprb,&
 & 5.40577e-02_jprb, 5.26049e-02_jprb, 5.11912e-02_jprb, 4.98155e-02_jprb, 4.84767e-02_jprb/)  
selfrefo( :, 8) = (/&
 & 6.86939e-02_jprb, 6.58429e-02_jprb, 6.31102e-02_jprb, 6.04909e-02_jprb, 5.79804e-02_jprb,&
 & 5.55740e-02_jprb, 5.32675e-02_jprb, 5.10567e-02_jprb, 4.89377e-02_jprb, 4.69067e-02_jprb/)  
selfrefo( :, 9) = (/&
 & 8.18828e-02_jprb, 7.77172e-02_jprb, 7.37635e-02_jprb, 7.00110e-02_jprb, 6.64494e-02_jprb,&
 & 6.30689e-02_jprb, 5.98604e-02_jprb, 5.68152e-02_jprb, 5.39248e-02_jprb, 5.11815e-02_jprb/)  
selfrefo( :,10) = (/&
 & 8.41953e-02_jprb, 8.10610e-02_jprb, 7.80434e-02_jprb, 7.51381e-02_jprb, 7.23409e-02_jprb,&
 & 6.96479e-02_jprb, 6.70551e-02_jprb, 6.45589e-02_jprb, 6.21556e-02_jprb, 5.98417e-02_jprb/)  
selfrefo( :,11) = (/&
 & 9.41304e-02_jprb, 8.97275e-02_jprb, 8.55305e-02_jprb, 8.15299e-02_jprb, 7.77164e-02_jprb,&
 & 7.40812e-02_jprb, 7.06161e-02_jprb, 6.73131e-02_jprb, 6.41646e-02_jprb, 6.11633e-02_jprb/)  
selfrefo( :,12) = (/&
 & 9.55404e-02_jprb, 9.02311e-02_jprb, 8.52169e-02_jprb, 8.04813e-02_jprb, 7.60089e-02_jprb,&
 & 7.17850e-02_jprb, 6.77958e-02_jprb, 6.40284e-02_jprb, 6.04703e-02_jprb, 5.71099e-02_jprb/)  
selfrefo( :,13) = (/&
 & 9.32377e-02_jprb, 8.99082e-02_jprb, 8.66977e-02_jprb, 8.36018e-02_jprb, 8.06164e-02_jprb,&
 & 7.77376e-02_jprb, 7.49617e-02_jprb, 7.22848e-02_jprb, 6.97036e-02_jprb, 6.72145e-02_jprb/)  
selfrefo( :,14) = (/&
 & 1.14746e-01_jprb, 1.08112e-01_jprb, 1.01861e-01_jprb, 9.59719e-02_jprb, 9.04232e-02_jprb,&
 & 8.51952e-02_jprb, 8.02695e-02_jprb, 7.56285e-02_jprb, 7.12559e-02_jprb, 6.71361e-02_jprb/)  
selfrefo( :,15) = (/&
 & 1.23517e-01_jprb, 1.19527e-01_jprb, 1.15666e-01_jprb, 1.11929e-01_jprb, 1.08313e-01_jprb,&
 & 1.04814e-01_jprb, 1.01428e-01_jprb, 9.81512e-02_jprb, 9.49803e-02_jprb, 9.19119e-02_jprb/)  
selfrefo( :,16) = (/&
 & 1.44086e-01_jprb, 1.36396e-01_jprb, 1.29117e-01_jprb, 1.22226e-01_jprb, 1.15703e-01_jprb,&
 & 1.09528e-01_jprb, 1.03683e-01_jprb, 9.81497e-02_jprb, 9.29116e-02_jprb, 8.79530e-02_jprb/)  

fracrefao( :, 1) = (/&
 !     From P = 1053.6 mb.
 & 0.16898900_jprb,0.15898301_jprb,0.13575301_jprb,0.12600900_jprb,&
 & 0.11545800_jprb,0.09879170_jprb,0.08106830_jprb,0.06063440_jprb,&
 & 0.03988780_jprb,0.00421760_jprb,0.00346635_jprb,0.00278779_jprb,&
 & 0.00206225_jprb,0.00132324_jprb,0.00050033_jprb,0.00007038_jprb/)  
fracrefao( :, 2) = (/&
 & 0.18209399_jprb,0.15315101_jprb,0.13571000_jprb,0.12504999_jprb,&
 & 0.11379100_jprb,0.09680810_jprb,0.08008570_jprb,0.05970280_jprb,&
 & 0.03942860_jprb,0.00413383_jprb,0.00343186_jprb,0.00275558_jprb,&
 & 0.00204657_jprb,0.00130219_jprb,0.00045454_jprb,0.00005664_jprb/)  
fracrefao( :, 3) = (/&
 & 0.18459500_jprb,0.15512000_jprb,0.13395500_jprb,0.12576801_jprb,&
 & 0.11276800_jprb,0.09645190_jprb,0.07956650_jprb,0.05903340_jprb,&
 & 0.03887050_jprb,0.00412226_jprb,0.00339453_jprb,0.00273518_jprb,&
 & 0.00196922_jprb,0.00119411_jprb,0.00040263_jprb,0.00005664_jprb/)  
fracrefao( :, 4) = (/&
 & 0.18458800_jprb,0.15859900_jprb,0.13278100_jprb,0.12589300_jprb,&
 & 0.11272700_jprb,0.09599660_jprb,0.07903030_jprb,0.05843600_jprb,&
 & 0.03843400_jprb,0.00405181_jprb,0.00337980_jprb,0.00263818_jprb,&
 & 0.00186869_jprb,0.00111807_jprb,0.00040263_jprb,0.00005664_jprb/)  
fracrefao( :, 5) = (/&
 & 0.18459301_jprb,0.16176100_jprb,0.13235000_jprb,0.12528200_jprb,&
 & 0.11237100_jprb,0.09618840_jprb,0.07833760_jprb,0.05800770_jprb,&
 & 0.03787610_jprb,0.00408253_jprb,0.00330363_jprb,0.00250445_jprb,&
 & 0.00176725_jprb,0.00111753_jprb,0.00040263_jprb,0.00005664_jprb/)  
fracrefao( :, 6) = (/&
 & 0.18454400_jprb,0.16505300_jprb,0.13221300_jprb,0.12476600_jprb,&
 & 0.11158300_jprb,0.09618120_jprb,0.07797340_jprb,0.05740380_jprb,&
 & 0.03742820_jprb,0.00392691_jprb,0.00312208_jprb,0.00246306_jprb,&
 & 0.00176735_jprb,0.00111721_jprb,0.00040263_jprb,0.00005664_jprb/)  
fracrefao( :, 7) = (/&
 & 0.18452001_jprb,0.16697501_jprb,0.13445500_jprb,0.12391300_jprb,&
 & 0.11059100_jprb,0.09596890_jprb,0.07761050_jprb,0.05643200_jprb,&
 & 0.03686520_jprb,0.00377086_jprb,0.00309351_jprb,0.00246297_jprb,&
 & 0.00176765_jprb,0.00111700_jprb,0.00040263_jprb,0.00005664_jprb/)  
fracrefao( :, 8) = (/&
 & 0.18460999_jprb,0.16854499_jprb,0.13922299_jprb,0.12266400_jprb,&
 & 0.10962200_jprb,0.09452030_jprb,0.07653800_jprb,0.05551340_jprb,&
 & 0.03609660_jprb,0.00377043_jprb,0.00309367_jprb,0.00246304_jprb,&
 & 0.00176749_jprb,0.00111689_jprb,0.00040263_jprb,0.00005664_jprb/)  
fracrefao( :, 9) = (/&
 & 0.18312500_jprb,0.16787501_jprb,0.14720701_jprb,0.12766500_jprb,&
 & 0.10890900_jprb,0.08935530_jprb,0.07310870_jprb,0.05443140_jprb,&
 & 0.03566380_jprb,0.00376446_jprb,0.00309521_jprb,0.00246510_jprb,&
 & 0.00176139_jprb,0.00111543_jprb,0.00040263_jprb,0.00005664_jprb/)  

IF (lhook) CALL dr_hook('RRTM_KGB9:PART17',1,zhook_handle)
END SUBROUTINE part17


END SUBROUTINE rrtm_kgb9