rrtm_kgb7.F90

Go to the documentation of this file.

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

!     Originally by Eli J. Mlawer, Atmospheric & Environmental Research.
!     BAND 7:  980-1080 cm-1 (low - H2O,O3; high - O3)
!     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 yoerrto7 , ONLY : kao     ,kbo     ,selfrefo   ,fracrefao  ,&
 & fracrefbo  ,absco2o  
USE yoerrta7 , ONLY : strrat

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

IMPLICIT NONE
REAL(KIND=JPRB) :: ZHOOK_HANDLE

IF (lhook) CALL dr_hook('RRTM_KGB7',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_KGB7',1,zhook_handle)

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

CONTAINS


SUBROUTINE part1

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


fracrefbo( :) = (/&
 & 0.15355594_jprb,0.15310939_jprb,0.14274909_jprb,0.13129812_jprb,&
 & 0.11736792_jprb,0.10118213_jprb,0.08215259_jprb,0.06165591_jprb,&
 & 0.04164486_jprb,0.00451141_jprb,0.00372837_jprb,0.00294095_jprb,&
 & 0.00215259_jprb,0.00136792_jprb,0.00051233_jprb,0.00007075_jprb/)  

absco2o( :) = (/&
 & 9.30038e-05_jprb, 1.74061e-04_jprb, 2.09293e-04_jprb, 2.52360e-04_jprb,&
 & 3.13404e-04_jprb, 4.16619e-04_jprb, 6.27394e-04_jprb, 1.29386e-03_jprb,&
 & 4.05192e-03_jprb, 3.97050e-03_jprb, 7.00634e-04_jprb, 6.06617e-04_jprb,&
 & 7.66978e-04_jprb, 6.70661e-04_jprb, 7.89971e-04_jprb, 7.55709e-04_jprb/)  

strrat = 8.21104e+04_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 9, 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) = (/&
 & 2.2177e-05_jprb,2.0513e-05_jprb,1.8414e-05_jprb,1.6282e-05_jprb,1.4597e-05_jprb,1.7000e-05_jprb,&
 & 3.1783e-05_jprb,2.9548e-05_jprb,2.0326e-05_jprb/)  
kao( :, 2, 1, 1) = (/&
 & 2.9476e-05_jprb,2.7495e-05_jprb,2.4720e-05_jprb,2.1727e-05_jprb,1.8690e-05_jprb,1.6642e-05_jprb,&
 & 2.2418e-05_jprb,3.4177e-05_jprb,1.9700e-05_jprb/)  
kao( :, 3, 1, 1) = (/&
 & 3.7965e-05_jprb,3.5737e-05_jprb,3.2254e-05_jprb,2.8364e-05_jprb,2.4321e-05_jprb,2.0140e-05_jprb,&
 & 1.9338e-05_jprb,3.5856e-05_jprb,1.9799e-05_jprb/)  
kao( :, 4, 1, 1) = (/&
 & 4.7589e-05_jprb,4.5238e-05_jprb,4.1024e-05_jprb,3.6253e-05_jprb,3.0918e-05_jprb,2.5365e-05_jprb,&
 & 2.0061e-05_jprb,3.1406e-05_jprb,1.8985e-05_jprb/)  
kao( :, 5, 1, 1) = (/&
 & 5.8133e-05_jprb,5.5835e-05_jprb,5.0877e-05_jprb,4.5058e-05_jprb,3.8486e-05_jprb,3.1429e-05_jprb,&
 & 2.4355e-05_jprb,2.3465e-05_jprb,1.9414e-05_jprb/)  
kao( :, 1, 2, 1) = (/&
 & 1.7361e-05_jprb,1.6018e-05_jprb,1.4350e-05_jprb,1.2700e-05_jprb,1.2303e-05_jprb,1.7164e-05_jprb,&
 & 3.1474e-05_jprb,2.4947e-05_jprb,1.4706e-05_jprb/)  
kao( :, 2, 2, 1) = (/&
 & 2.3361e-05_jprb,2.1726e-05_jprb,1.9465e-05_jprb,1.7053e-05_jprb,1.4815e-05_jprb,1.4858e-05_jprb,&
 & 2.3603e-05_jprb,2.7767e-05_jprb,1.5833e-05_jprb/)  
kao( :, 3, 2, 1) = (/&
 & 3.0408e-05_jprb,2.8494e-05_jprb,2.5606e-05_jprb,2.2430e-05_jprb,1.9084e-05_jprb,1.6104e-05_jprb,&
 & 1.8012e-05_jprb,3.1460e-05_jprb,1.6197e-05_jprb/)  
kao( :, 4, 2, 1) = (/&
 & 3.8408e-05_jprb,3.6296e-05_jprb,3.2790e-05_jprb,2.8865e-05_jprb,2.4498e-05_jprb,1.9967e-05_jprb,&
 & 1.6925e-05_jprb,3.2098e-05_jprb,1.4117e-05_jprb/)  
kao( :, 5, 2, 1) = (/&
 & 4.7278e-05_jprb,4.5107e-05_jprb,4.0996e-05_jprb,3.6211e-05_jprb,3.0776e-05_jprb,2.4989e-05_jprb,&
 & 1.9312e-05_jprb,2.3551e-05_jprb,1.4164e-05_jprb/)  
kao( :, 1, 3, 1) = (/&
 & 1.2199e-05_jprb,1.1359e-05_jprb,1.0200e-05_jprb,9.6275e-06_jprb,1.2031e-05_jprb,1.8466e-05_jprb,&
 & 2.2967e-05_jprb,2.1740e-05_jprb,1.1424e-05_jprb/)  
kao( :, 2, 3, 1) = (/&
 & 1.6733e-05_jprb,1.5628e-05_jprb,1.3980e-05_jprb,1.2308e-05_jprb,1.1642e-05_jprb,1.5244e-05_jprb,&
 & 2.7219e-05_jprb,2.2185e-05_jprb,1.1890e-05_jprb/)  
kao( :, 3, 3, 1) = (/&
 & 2.2207e-05_jprb,2.0825e-05_jprb,1.8647e-05_jprb,1.6328e-05_jprb,1.4051e-05_jprb,1.3615e-05_jprb,&
 & 2.0537e-05_jprb,2.5366e-05_jprb,1.0328e-05_jprb/)  
kao( :, 4, 3, 1) = (/&
 & 2.8575e-05_jprb,2.6953e-05_jprb,2.4203e-05_jprb,2.1170e-05_jprb,1.7963e-05_jprb,1.5129e-05_jprb,&
 & 1.6245e-05_jprb,2.7906e-05_jprb,8.9114e-06_jprb/)  
kao( :, 5, 3, 1) = (/&
 & 3.5718e-05_jprb,3.3927e-05_jprb,3.0634e-05_jprb,2.6847e-05_jprb,2.2736e-05_jprb,1.8593e-05_jprb,&
 & 1.5444e-05_jprb,2.7715e-05_jprb,7.5424e-06_jprb/)  
kao( :, 1, 4, 1) = (/&
 & 8.2740e-06_jprb,7.8120e-06_jprb,7.3229e-06_jprb,7.9409e-06_jprb,1.1817e-05_jprb,2.0000e-05_jprb,&
 & 1.7036e-05_jprb,1.6859e-05_jprb,8.3202e-06_jprb/)  
kao( :, 2, 4, 1) = (/&
 & 1.1549e-05_jprb,1.0930e-05_jprb,9.8917e-06_jprb,9.2790e-06_jprb,1.0972e-05_jprb,1.6368e-05_jprb,&
 & 2.0889e-05_jprb,1.9211e-05_jprb,7.1922e-06_jprb/)  
kao( :, 3, 4, 1) = (/&
 & 1.5581e-05_jprb,1.4791e-05_jprb,1.3288e-05_jprb,1.1769e-05_jprb,1.1067e-05_jprb,1.3703e-05_jprb,&
 & 2.3763e-05_jprb,1.9912e-05_jprb,5.4002e-06_jprb/)  
kao( :, 4, 4, 1) = (/&
 & 2.0367e-05_jprb,1.9416e-05_jprb,1.7464e-05_jprb,1.5301e-05_jprb,1.3238e-05_jprb,1.2747e-05_jprb,&
 & 1.8197e-05_jprb,2.2927e-05_jprb,4.7781e-06_jprb/)  
kao( :, 5, 4, 1) = (/&
 & 2.5890e-05_jprb,2.4787e-05_jprb,2.2347e-05_jprb,1.9553e-05_jprb,1.6603e-05_jprb,1.3957e-05_jprb,&
 & 1.4873e-05_jprb,2.4745e-05_jprb,6.3734e-06_jprb/)  
kao( :, 1, 5, 1) = (/&
 & 5.5869e-06_jprb,5.3398e-06_jprb,5.3975e-06_jprb,7.5444e-06_jprb,1.2793e-05_jprb,1.5045e-05_jprb,&
 & 1.3730e-05_jprb,1.2376e-05_jprb,4.7266e-06_jprb/)  
kao( :, 2, 5, 1) = (/&
 & 7.8874e-06_jprb,7.5569e-06_jprb,7.0693e-06_jprb,7.4130e-06_jprb,1.0864e-05_jprb,1.7853e-05_jprb,&
 & 1.5643e-05_jprb,1.6221e-05_jprb,3.5143e-06_jprb/)  
kao( :, 3, 5, 1) = (/&
 & 1.0780e-05_jprb,1.0380e-05_jprb,9.4898e-06_jprb,8.8724e-06_jprb,9.9994e-06_jprb,1.4704e-05_jprb,&
 & 1.8972e-05_jprb,1.7347e-05_jprb,2.8694e-06_jprb/)  
kao( :, 4, 5, 1) = (/&
 & 1.4284e-05_jprb,1.3812e-05_jprb,1.2569e-05_jprb,1.1246e-05_jprb,1.0513e-05_jprb,1.2455e-05_jprb,&
 & 2.1138e-05_jprb,1.8036e-05_jprb,3.9174e-06_jprb/)  
kao( :, 5, 5, 1) = (/&
 & 1.8381e-05_jprb,1.7863e-05_jprb,1.6238e-05_jprb,1.4332e-05_jprb,1.2479e-05_jprb,1.1807e-05_jprb,&
 & 1.6766e-05_jprb,2.0636e-05_jprb,5.6357e-06_jprb/)  
kao( :, 1, 6, 1) = (/&
 & 3.7614e-06_jprb,3.6612e-06_jprb,4.2770e-06_jprb,7.9260e-06_jprb,1.2929e-05_jprb,1.1264e-05_jprb,&
 & 1.2098e-05_jprb,9.0224e-06_jprb,2.4844e-06_jprb/)  
kao( :, 2, 6, 1) = (/&
 & 5.3574e-06_jprb,5.1717e-06_jprb,5.1909e-06_jprb,6.9736e-06_jprb,1.1707e-05_jprb,1.3896e-05_jprb,&
 & 1.2589e-05_jprb,1.2103e-05_jprb,1.8407e-06_jprb/)  
kao( :, 3, 6, 1) = (/&
 & 7.3957e-06_jprb,7.1617e-06_jprb,6.7263e-06_jprb,7.0062e-06_jprb,1.0148e-05_jprb,1.6269e-05_jprb,&
 & 1.4268e-05_jprb,1.5386e-05_jprb,2.1237e-06_jprb/)  
kao( :, 4, 6, 1) = (/&
 & 9.9154e-06_jprb,9.6620e-06_jprb,8.9048e-06_jprb,8.3244e-06_jprb,9.2342e-06_jprb,1.3655e-05_jprb,&
 & 1.7166e-05_jprb,1.5743e-05_jprb,3.1741e-06_jprb/)  
kao( :, 5, 6, 1) = (/&
 & 1.2917e-05_jprb,1.2663e-05_jprb,1.1620e-05_jprb,1.0475e-05_jprb,9.8347e-06_jprb,1.1480e-05_jprb,&
 & 1.8999e-05_jprb,1.6296e-05_jprb,4.8288e-06_jprb/)  
kao( :, 1, 7, 1) = (/&
 & 2.5698e-06_jprb,2.6225e-06_jprb,4.3229e-06_jprb,9.1260e-06_jprb,9.6331e-06_jprb,9.4890e-06_jprb,&
 & 8.7898e-06_jprb,6.9652e-06_jprb,1.3336e-06_jprb/)  
kao( :, 2, 7, 1) = (/&
 & 3.6949e-06_jprb,3.6079e-06_jprb,4.1418e-06_jprb,7.5616e-06_jprb,1.2142e-05_jprb,1.0521e-05_jprb,&
 & 1.1728e-05_jprb,8.9866e-06_jprb,1.2052e-06_jprb/)  
kao( :, 3, 7, 1) = (/&
 & 5.1506e-06_jprb,5.0082e-06_jprb,4.9832e-06_jprb,6.5372e-06_jprb,1.0639e-05_jprb,1.2818e-05_jprb,&
 & 1.1491e-05_jprb,1.1845e-05_jprb,1.7476e-06_jprb/)  
kao( :, 4, 7, 1) = (/&
 & 6.9721e-06_jprb,6.8111e-06_jprb,6.4221e-06_jprb,6.6314e-06_jprb,9.5364e-06_jprb,1.4735e-05_jprb,&
 & 1.3056e-05_jprb,1.4613e-05_jprb,2.7527e-06_jprb/)  
kao( :, 5, 7, 1) = (/&
 & 9.1741e-06_jprb,9.0313e-06_jprb,8.3715e-06_jprb,7.8432e-06_jprb,8.4495e-06_jprb,1.2715e-05_jprb,&
 & 1.5629e-05_jprb,1.4305e-05_jprb,4.3096e-06_jprb/)  
kao( :, 1, 8, 1) = (/&
 & 1.7756e-06_jprb,2.0634e-06_jprb,5.0880e-06_jprb,8.2373e-06_jprb,7.8177e-06_jprb,7.9286e-06_jprb,&
 & 6.3775e-06_jprb,5.4113e-06_jprb,9.3762e-07_jprb/)  
kao( :, 2, 8, 1) = (/&
 & 2.5589e-06_jprb,2.6026e-06_jprb,4.1994e-06_jprb,8.7611e-06_jprb,9.1501e-06_jprb,8.9485e-06_jprb,&
 & 8.8743e-06_jprb,7.1784e-06_jprb,1.1824e-06_jprb/)  
kao( :, 3, 8, 1) = (/&
 & 3.5966e-06_jprb,3.5351e-06_jprb,4.0408e-06_jprb,7.3057e-06_jprb,1.1311e-05_jprb,9.8836e-06_jprb,&
 & 1.0943e-05_jprb,9.1050e-06_jprb,1.7854e-06_jprb/)  
kao( :, 4, 8, 1) = (/&
 & 4.9051e-06_jprb,4.8155e-06_jprb,4.7641e-06_jprb,6.2802e-06_jprb,1.0233e-05_jprb,1.1811e-05_jprb,&
 & 1.0660e-05_jprb,1.1545e-05_jprb,2.8335e-06_jprb/)  
kao( :, 5, 8, 1) = (/&
 & 6.5079e-06_jprb,6.4275e-06_jprb,6.0806e-06_jprb,6.2850e-06_jprb,8.9855e-06_jprb,1.3690e-05_jprb,&
 & 1.2091e-05_jprb,1.3991e-05_jprb,4.4905e-06_jprb/)  
kao( :, 1, 9, 1) = (/&
 & 1.2486e-06_jprb,2.0772e-06_jprb,6.3261e-06_jprb,6.5239e-06_jprb,6.7379e-06_jprb,5.7685e-06_jprb,&
 & 4.7923e-06_jprb,4.4775e-06_jprb,2.0431e-06_jprb/)  
kao( :, 2, 9, 1) = (/&
 & 1.8028e-06_jprb,2.0516e-06_jprb,4.9892e-06_jprb,7.9160e-06_jprb,7.4534e-06_jprb,8.0589e-06_jprb,&
 & 6.6119e-06_jprb,5.7051e-06_jprb,2.4856e-06_jprb/)  
kao( :, 3, 9, 1) = (/&
 & 2.5445e-06_jprb,2.5819e-06_jprb,4.1305e-06_jprb,8.3727e-06_jprb,8.7276e-06_jprb,8.5620e-06_jprb,&
 & 8.8118e-06_jprb,7.4196e-06_jprb,3.4314e-06_jprb/)  
kao( :, 4, 9, 1) = (/&
 & 3.4959e-06_jprb,3.4634e-06_jprb,3.9749e-06_jprb,7.0571e-06_jprb,1.0574e-05_jprb,9.2822e-06_jprb,&
 & 1.0319e-05_jprb,9.2300e-06_jprb,5.1599e-06_jprb/)  
kao( :, 5, 9, 1) = (/&
 & 4.6733e-06_jprb,4.6321e-06_jprb,4.5821e-06_jprb,6.0749e-06_jprb,9.9333e-06_jprb,1.0979e-05_jprb,&
 & 1.0111e-05_jprb,1.1271e-05_jprb,8.0274e-06_jprb/)  
kao( :, 1,10, 1) = (/&
 & 9.1025e-07_jprb,2.4528e-06_jprb,5.5726e-06_jprb,5.5107e-06_jprb,5.1975e-06_jprb,4.4519e-06_jprb,&
 & 3.8745e-06_jprb,3.7574e-06_jprb,7.2814e-06_jprb/)  
kao( :, 2,10, 1) = (/&
 & 1.3156e-06_jprb,2.0527e-06_jprb,6.2782e-06_jprb,6.4430e-06_jprb,6.8843e-06_jprb,6.1546e-06_jprb,&
 & 5.1800e-06_jprb,4.8780e-06_jprb,8.0238e-06_jprb/)  
kao( :, 3,10, 1) = (/&
 & 1.8603e-06_jprb,2.0830e-06_jprb,5.0693e-06_jprb,7.7258e-06_jprb,7.2719e-06_jprb,8.2740e-06_jprb,&
 & 6.9520e-06_jprb,6.2927e-06_jprb,9.9400e-06_jprb/)  
kao( :, 4,10, 1) = (/&
 & 2.5643e-06_jprb,2.6119e-06_jprb,4.1284e-06_jprb,8.2194e-06_jprb,8.3768e-06_jprb,8.2923e-06_jprb,&
 & 8.9244e-06_jprb,7.7919e-06_jprb,1.3755e-05_jprb/)  
kao( :, 5,10, 1) = (/&
 & 3.4396e-06_jprb,3.4402e-06_jprb,3.9520e-06_jprb,6.9781e-06_jprb,9.9688e-06_jprb,8.9208e-06_jprb,&
 & 1.0073e-05_jprb,9.4585e-06_jprb,2.0482e-05_jprb/)  
kao( :, 1,11, 1) = (/&
 & 7.9990e-07_jprb,2.6784e-06_jprb,5.0182e-06_jprb,5.2703e-06_jprb,4.7427e-06_jprb,4.1219e-06_jprb,&
 & 3.7030e-06_jprb,3.7980e-06_jprb,1.0212e-05_jprb/)  
kao( :, 2,11, 1) = (/&
 & 1.1506e-06_jprb,2.1675e-06_jprb,6.1676e-06_jprb,5.9511e-06_jprb,6.4671e-06_jprb,5.5707e-06_jprb,&
 & 4.8102e-06_jprb,4.7946e-06_jprb,1.1170e-05_jprb/)  
kao( :, 3,11, 1) = (/&
 & 1.6161e-06_jprb,1.9795e-06_jprb,5.4689e-06_jprb,6.8567e-06_jprb,6.9277e-06_jprb,7.3643e-06_jprb,&
 & 6.3255e-06_jprb,6.0154e-06_jprb,1.3679e-05_jprb/)  
kao( :, 4,11, 1) = (/&
 & 2.2097e-06_jprb,2.3135e-06_jprb,4.4934e-06_jprb,8.2433e-06_jprb,7.5005e-06_jprb,8.0757e-06_jprb,&
 & 8.0043e-06_jprb,7.4062e-06_jprb,1.8725e-05_jprb/)  
kao( :, 5,11, 1) = (/&
 & 2.9383e-06_jprb,2.9710e-06_jprb,3.8010e-06_jprb,7.4323e-06_jprb,8.7355e-06_jprb,8.0970e-06_jprb,&
 & 9.6640e-06_jprb,8.8290e-06_jprb,2.7664e-05_jprb/)  
kao( :, 1,12, 1) = (/&
 & 7.0941e-07_jprb,2.6297e-06_jprb,4.5700e-06_jprb,4.9667e-06_jprb,4.3747e-06_jprb,3.8263e-06_jprb,&
 & 3.4506e-06_jprb,3.6352e-06_jprb,1.0764e-05_jprb/)  
kao( :, 2,12, 1) = (/&
 & 1.0191e-06_jprb,2.0344e-06_jprb,5.5461e-06_jprb,5.4627e-06_jprb,5.8842e-06_jprb,5.0801e-06_jprb,&
 & 4.4391e-06_jprb,4.4109e-06_jprb,1.1741e-05_jprb/)  
kao( :, 3,12, 1) = (/&
 & 1.4279e-06_jprb,1.8013e-06_jprb,5.3154e-06_jprb,6.1728e-06_jprb,6.3556e-06_jprb,6.6152e-06_jprb,&
 & 5.7465e-06_jprb,5.5323e-06_jprb,1.4320e-05_jprb/)  
kao( :, 4,12, 1) = (/&
 & 1.9430e-06_jprb,2.0642e-06_jprb,4.3928e-06_jprb,7.3526e-06_jprb,6.7817e-06_jprb,7.5948e-06_jprb,&
 & 7.1609e-06_jprb,6.7682e-06_jprb,1.9523e-05_jprb/)  
kao( :, 5,12, 1) = (/&
 & 2.5711e-06_jprb,2.6172e-06_jprb,3.5411e-06_jprb,7.1217e-06_jprb,7.7996e-06_jprb,7.3436e-06_jprb,&
 & 8.5622e-06_jprb,7.9225e-06_jprb,2.8755e-05_jprb/)  
kao( :, 1,13, 1) = (/&
 & 6.2420e-07_jprb,2.5595e-06_jprb,4.1789e-06_jprb,4.5948e-06_jprb,4.0362e-06_jprb,3.5472e-06_jprb,&
 & 3.2436e-06_jprb,3.4107e-06_jprb,9.1608e-06_jprb/)  
kao( :, 2,13, 1) = (/&
 & 8.9615e-07_jprb,1.9079e-06_jprb,4.9940e-06_jprb,5.0423e-06_jprb,5.3353e-06_jprb,4.6287e-06_jprb,&
 & 4.1017e-06_jprb,4.1244e-06_jprb,9.9901e-06_jprb/)  
kao( :, 3,13, 1) = (/&
 & 1.2529e-06_jprb,1.6490e-06_jprb,5.1498e-06_jprb,5.5689e-06_jprb,5.8865e-06_jprb,5.9318e-06_jprb,&
 & 5.1860e-06_jprb,5.1003e-06_jprb,1.2178e-05_jprb/)  
kao( :, 4,13, 1) = (/&
 & 1.6987e-06_jprb,1.8380e-06_jprb,4.2684e-06_jprb,6.5744e-06_jprb,6.1601e-06_jprb,7.0815e-06_jprb,&
 & 6.4247e-06_jprb,6.1421e-06_jprb,1.6600e-05_jprb/)  
kao( :, 5,13, 1) = (/&
 & 2.2352e-06_jprb,2.2950e-06_jprb,3.3070e-06_jprb,6.8297e-06_jprb,6.9887e-06_jprb,6.7633e-06_jprb,&
 & 7.6284e-06_jprb,7.1420e-06_jprb,2.4442e-05_jprb/)  
kao( :, 1, 1, 2) = (/&
 & 5.4151e-05_jprb,5.1620e-05_jprb,4.7151e-05_jprb,4.1642e-05_jprb,3.5398e-05_jprb,2.6235e-05_jprb,&
 & 2.1071e-05_jprb,5.8698e-05_jprb,2.4321e-05_jprb/)  
kao( :, 2, 1, 2) = (/&
 & 6.7514e-05_jprb,6.4760e-05_jprb,5.9233e-05_jprb,5.2524e-05_jprb,4.5074e-05_jprb,3.6408e-05_jprb,&
 & 2.4335e-05_jprb,5.6829e-05_jprb,2.7514e-05_jprb/)  
kao( :, 3, 1, 2) = (/&
 & 8.2149e-05_jprb,7.9291e-05_jprb,7.2593e-05_jprb,6.4606e-05_jprb,5.5728e-05_jprb,4.6152e-05_jprb,&
 & 3.4241e-05_jprb,4.5420e-05_jprb,2.4336e-05_jprb/)  
kao( :, 4, 1, 2) = (/&
 & 9.7723e-05_jprb,9.4880e-05_jprb,8.7232e-05_jprb,7.7947e-05_jprb,6.7833e-05_jprb,5.6842e-05_jprb,&
 & 4.4766e-05_jprb,2.6532e-05_jprb,2.9870e-05_jprb/)  
kao( :, 5, 1, 2) = (/&
 & 1.1394e-04_jprb,1.1139e-04_jprb,1.0299e-04_jprb,9.2684e-05_jprb,8.1155e-05_jprb,6.8389e-05_jprb,&
 & 5.3823e-05_jprb,3.3217e-05_jprb,2.3434e-05_jprb/)  
kao( :, 1, 2, 2) = (/&
 & 4.2753e-05_jprb,4.0882e-05_jprb,3.7362e-05_jprb,3.3159e-05_jprb,2.7615e-05_jprb,1.8637e-05_jprb,&
 & 2.2134e-05_jprb,5.3399e-05_jprb,1.8302e-05_jprb/)  
kao( :, 2, 2, 2) = (/&
 & 5.3879e-05_jprb,5.1846e-05_jprb,4.7574e-05_jprb,4.2472e-05_jprb,3.6451e-05_jprb,2.8399e-05_jprb,&
 & 1.9335e-05_jprb,5.2953e-05_jprb,1.7179e-05_jprb/)  
kao( :, 3, 2, 2) = (/&
 & 6.6088e-05_jprb,6.4132e-05_jprb,5.9087e-05_jprb,5.2832e-05_jprb,4.5668e-05_jprb,3.7676e-05_jprb,&
 & 2.6673e-05_jprb,4.9047e-05_jprb,2.0200e-05_jprb/)  
kao( :, 4, 2, 2) = (/&
 & 7.9313e-05_jprb,7.7493e-05_jprb,7.1541e-05_jprb,6.4098e-05_jprb,5.5769e-05_jprb,4.6664e-05_jprb,&
 & 3.6034e-05_jprb,2.7239e-05_jprb,1.9971e-05_jprb/)  
kao( :, 5, 2, 2) = (/&
 & 9.3172e-05_jprb,9.1802e-05_jprb,8.4933e-05_jprb,7.6462e-05_jprb,6.6920e-05_jprb,5.6293e-05_jprb,&
 & 4.4283e-05_jprb,2.5633e-05_jprb,1.6128e-05_jprb/)  
kao( :, 1, 3, 2) = (/&
 & 3.1637e-05_jprb,3.0177e-05_jprb,2.7541e-05_jprb,2.3988e-05_jprb,1.7787e-05_jprb,1.3073e-05_jprb,&
 & 4.0575e-05_jprb,4.8194e-05_jprb,1.2505e-05_jprb/)  
kao( :, 2, 3, 2) = (/&
 & 4.0410e-05_jprb,3.8878e-05_jprb,3.5667e-05_jprb,3.1901e-05_jprb,2.6742e-05_jprb,1.8595e-05_jprb,&
 & 1.9446e-05_jprb,5.0395e-05_jprb,1.3203e-05_jprb/)  
kao( :, 3, 3, 2) = (/&
 & 5.0197e-05_jprb,4.8688e-05_jprb,4.4913e-05_jprb,4.0333e-05_jprb,3.4912e-05_jprb,2.7673e-05_jprb,&
 & 1.8085e-05_jprb,4.8586e-05_jprb,1.3602e-05_jprb/)  
kao( :, 4, 3, 2) = (/&
 & 6.0782e-05_jprb,5.9537e-05_jprb,5.5167e-05_jprb,4.9672e-05_jprb,4.3304e-05_jprb,3.6088e-05_jprb,&
 & 2.5607e-05_jprb,4.2696e-05_jprb,1.2094e-05_jprb/)  
kao( :, 5, 3, 2) = (/&
 & 7.2122e-05_jprb,7.1291e-05_jprb,6.6301e-05_jprb,5.9947e-05_jprb,5.2623e-05_jprb,4.4244e-05_jprb,&
 & 3.4126e-05_jprb,2.2584e-05_jprb,1.6766e-05_jprb/)  
kao( :, 1, 4, 2) = (/&
 & 2.3214e-05_jprb,2.2012e-05_jprb,1.9759e-05_jprb,1.6356e-05_jprb,1.1177e-05_jprb,1.3102e-05_jprb,&
 & 5.4531e-05_jprb,4.5521e-05_jprb,8.5704e-06_jprb/)  
kao( :, 2, 4, 2) = (/&
 & 2.9987e-05_jprb,2.8729e-05_jprb,2.6188e-05_jprb,2.2885e-05_jprb,1.7414e-05_jprb,1.2331e-05_jprb,&
 & 3.4914e-05_jprb,4.5109e-05_jprb,8.5816e-06_jprb/)  
kao( :, 3, 4, 2) = (/&
 & 3.7737e-05_jprb,3.6418e-05_jprb,3.3481e-05_jprb,2.9943e-05_jprb,2.5212e-05_jprb,1.8076e-05_jprb,&
 & 1.7776e-05_jprb,4.6705e-05_jprb,7.7341e-06_jprb/)  
kao( :, 4, 4, 2) = (/&
 & 4.6237e-05_jprb,4.5035e-05_jprb,4.1706e-05_jprb,3.7594e-05_jprb,3.2675e-05_jprb,2.6052e-05_jprb,&
 & 1.7191e-05_jprb,4.4501e-05_jprb,1.1430e-05_jprb/)  
kao( :, 5, 4, 2) = (/&
 & 5.5394e-05_jprb,5.4566e-05_jprb,5.0800e-05_jprb,4.6060e-05_jprb,4.0396e-05_jprb,3.3727e-05_jprb,&
 & 2.3835e-05_jprb,3.7336e-05_jprb,1.6242e-05_jprb/)  
kao( :, 1, 5, 2) = (/&
 & 1.7110e-05_jprb,1.6145e-05_jprb,1.4165e-05_jprb,1.0426e-05_jprb,7.9870e-06_jprb,2.4744e-05_jprb,&
 & 5.4612e-05_jprb,4.2211e-05_jprb,5.8558e-06_jprb/)  

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


SUBROUTINE part2

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


kao( :, 2, 5, 2) = (/&
 & 2.2350e-05_jprb,2.1312e-05_jprb,1.9197e-05_jprb,1.6194e-05_jprb,1.1081e-05_jprb,1.1593e-05_jprb,&
 & 4.7643e-05_jprb,4.2913e-05_jprb,4.4739e-06_jprb/)  
kao( :, 3, 5, 2) = (/&
 & 2.8416e-05_jprb,2.7289e-05_jprb,2.4884e-05_jprb,2.1811e-05_jprb,1.7120e-05_jprb,1.1847e-05_jprb,&
 & 3.1141e-05_jprb,4.2424e-05_jprb,6.9636e-06_jprb/)  
kao( :, 4, 5, 2) = (/&
 & 3.5202e-05_jprb,3.4084e-05_jprb,3.1336e-05_jprb,2.8012e-05_jprb,2.3757e-05_jprb,1.7453e-05_jprb,&
 & 1.5962e-05_jprb,4.2655e-05_jprb,1.0597e-05_jprb/)  
kao( :, 5, 5, 2) = (/&
 & 4.2592e-05_jprb,4.1680e-05_jprb,3.8616e-05_jprb,3.4875e-05_jprb,3.0427e-05_jprb,2.4423e-05_jprb,&
 & 1.5902e-05_jprb,4.0629e-05_jprb,1.5906e-05_jprb/)  
kao( :, 1, 6, 2) = (/&
 & 1.2522e-05_jprb,1.1758e-05_jprb,9.8897e-06_jprb,6.3513e-06_jprb,1.0585e-05_jprb,4.0712e-05_jprb,&
 & 5.0160e-05_jprb,4.0760e-05_jprb,3.1679e-06_jprb/)  
kao( :, 2, 6, 2) = (/&
 & 1.6573e-05_jprb,1.5756e-05_jprb,1.3865e-05_jprb,1.0569e-05_jprb,7.4971e-06_jprb,2.3617e-05_jprb,&
 & 5.0226e-05_jprb,4.0741e-05_jprb,3.5969e-06_jprb/)  
kao( :, 3, 6, 2) = (/&
 & 2.1308e-05_jprb,2.0432e-05_jprb,1.8454e-05_jprb,1.5643e-05_jprb,1.0753e-05_jprb,1.1262e-05_jprb,&
 & 4.2958e-05_jprb,3.9589e-05_jprb,5.9975e-06_jprb/)  
kao( :, 4, 6, 2) = (/&
 & 2.6653e-05_jprb,2.5731e-05_jprb,2.3505e-05_jprb,2.0714e-05_jprb,1.6401e-05_jprb,1.1347e-05_jprb,&
 & 2.9347e-05_jprb,3.9364e-05_jprb,9.7407e-06_jprb/)  
kao( :, 5, 6, 2) = (/&
 & 3.2562e-05_jprb,3.1730e-05_jprb,2.9223e-05_jprb,2.6148e-05_jprb,2.2224e-05_jprb,1.6477e-05_jprb,&
 & 1.5448e-05_jprb,3.9356e-05_jprb,1.5151e-05_jprb/)  
kao( :, 1, 7, 2) = (/&
 & 9.2632e-06_jprb,8.5835e-06_jprb,6.2688e-06_jprb,5.7491e-06_jprb,2.0750e-05_jprb,4.7549e-05_jprb,&
 & 4.9746e-05_jprb,4.3221e-05_jprb,1.9173e-06_jprb/)  
kao( :, 2, 7, 2) = (/&
 & 1.2411e-05_jprb,1.1741e-05_jprb,9.9384e-06_jprb,6.3308e-06_jprb,9.8932e-06_jprb,3.7604e-05_jprb,&
 & 4.5915e-05_jprb,3.8224e-05_jprb,3.1404e-06_jprb/)  
kao( :, 3, 7, 2) = (/&
 & 1.6131e-05_jprb,1.5426e-05_jprb,1.3668e-05_jprb,1.0538e-05_jprb,7.5655e-06_jprb,2.2395e-05_jprb,&
 & 4.5385e-05_jprb,3.8777e-05_jprb,5.5259e-06_jprb/)  
kao( :, 4, 7, 2) = (/&
 & 2.0394e-05_jprb,1.9668e-05_jprb,1.7772e-05_jprb,1.5135e-05_jprb,1.0480e-05_jprb,1.1695e-05_jprb,&
 & 3.8455e-05_jprb,3.6049e-05_jprb,9.3488e-06_jprb/)  
kao( :, 5, 7, 2) = (/&
 & 2.5104e-05_jprb,2.4438e-05_jprb,2.2345e-05_jprb,1.9724e-05_jprb,1.5920e-05_jprb,1.0909e-05_jprb,&
 & 2.7780e-05_jprb,3.6976e-05_jprb,1.5076e-05_jprb/)  
kao( :, 1, 8, 2) = (/&
 & 6.9226e-06_jprb,6.1974e-06_jprb,3.6925e-06_jprb,9.7107e-06_jprb,3.1400e-05_jprb,5.1217e-05_jprb,&
 & 5.1133e-05_jprb,4.7405e-05_jprb,1.8023e-06_jprb/)  
kao( :, 2, 8, 2) = (/&
 & 9.3730e-06_jprb,8.7696e-06_jprb,6.5222e-06_jprb,5.5338e-06_jprb,2.0725e-05_jprb,4.5311e-05_jprb,&
 & 4.6330e-05_jprb,3.9950e-05_jprb,3.2574e-06_jprb/)  
kao( :, 3, 8, 2) = (/&
 & 1.2271e-05_jprb,1.1705e-05_jprb,9.9611e-06_jprb,6.4477e-06_jprb,1.0502e-05_jprb,3.6242e-05_jprb,&
 & 4.2814e-05_jprb,3.6156e-05_jprb,5.9101e-06_jprb/)  
kao( :, 4, 8, 2) = (/&
 & 1.5653e-05_jprb,1.5070e-05_jprb,1.3408e-05_jprb,1.0377e-05_jprb,7.4564e-06_jprb,2.3003e-05_jprb,&
 & 4.1378e-05_jprb,3.6628e-05_jprb,1.0378e-05_jprb/)  
kao( :, 5, 8, 2) = (/&
 & 1.9451e-05_jprb,1.8892e-05_jprb,1.7102e-05_jprb,1.4623e-05_jprb,1.0332e-05_jprb,1.2287e-05_jprb,&
 & 3.5601e-05_jprb,3.3798e-05_jprb,1.7377e-05_jprb/)  
kao( :, 1, 9, 2) = (/&
 & 5.2610e-06_jprb,4.1633e-06_jprb,4.0647e-06_jprb,1.6473e-05_jprb,4.2753e-05_jprb,5.1385e-05_jprb,&
 & 4.7611e-05_jprb,4.8409e-05_jprb,3.6172e-06_jprb/)  
kao( :, 2, 9, 2) = (/&
 & 7.1572e-06_jprb,6.5056e-06_jprb,3.9269e-06_jprb,9.8251e-06_jprb,3.2469e-05_jprb,4.6277e-05_jprb,&
 & 4.7279e-05_jprb,4.4658e-05_jprb,6.1285e-06_jprb/)  
kao( :, 3, 9, 2) = (/&
 & 9.4513e-06_jprb,8.9266e-06_jprb,6.7478e-06_jprb,5.5531e-06_jprb,2.0823e-05_jprb,4.1922e-05_jprb,&
 & 4.3117e-05_jprb,3.6857e-05_jprb,1.1095e-05_jprb/)  
kao( :, 4, 9, 2) = (/&
 & 1.2144e-05_jprb,1.1656e-05_jprb,9.9211e-06_jprb,6.5681e-06_jprb,1.1366e-05_jprb,3.4298e-05_jprb,&
 & 3.9570e-05_jprb,3.4386e-05_jprb,2.0048e-05_jprb/)  
kao( :, 5, 9, 2) = (/&
 & 1.5214e-05_jprb,1.4744e-05_jprb,1.3136e-05_jprb,1.0200e-05_jprb,7.5939e-06_jprb,2.3119e-05_jprb,&
 & 3.7419e-05_jprb,3.3965e-05_jprb,3.4968e-05_jprb/)  
kao( :, 1,10, 2) = (/&
 & 4.1564e-06_jprb,2.6079e-06_jprb,6.9218e-06_jprb,2.7859e-05_jprb,4.8834e-05_jprb,5.2686e-05_jprb,&
 & 4.6389e-05_jprb,4.9087e-05_jprb,1.0652e-05_jprb/)  
kao( :, 2,10, 2) = (/&
 & 5.6598e-06_jprb,4.6524e-06_jprb,4.2303e-06_jprb,1.7606e-05_jprb,4.1116e-05_jprb,4.7567e-05_jprb,&
 & 4.5264e-05_jprb,4.6736e-05_jprb,1.6225e-05_jprb/)  
kao( :, 3,10, 2) = (/&
 & 7.4935e-06_jprb,6.8980e-06_jprb,4.2539e-06_jprb,1.0638e-05_jprb,3.2709e-05_jprb,4.2416e-05_jprb,&
 & 4.4544e-05_jprb,4.1212e-05_jprb,2.8258e-05_jprb/)  
kao( :, 4,10, 2) = (/&
 & 9.6635e-06_jprb,9.2067e-06_jprb,7.0228e-06_jprb,5.8835e-06_jprb,2.2271e-05_jprb,3.9179e-05_jprb,&
 & 4.0535e-05_jprb,3.4910e-05_jprb,5.1242e-05_jprb/)  
kao( :, 5,10, 2) = (/&
 & 1.2158e-05_jprb,1.1756e-05_jprb,1.0040e-05_jprb,6.8113e-06_jprb,1.2737e-05_jprb,3.2445e-05_jprb,&
 & 3.6666e-05_jprb,3.2986e-05_jprb,9.1455e-05_jprb/)  
kao( :, 1,11, 2) = (/&
 & 3.8505e-06_jprb,2.2272e-06_jprb,9.0452e-06_jprb,3.3373e-05_jprb,4.6563e-05_jprb,5.1119e-05_jprb,&
 & 4.6293e-05_jprb,4.7828e-05_jprb,1.4850e-05_jprb/)  
kao( :, 2,11, 2) = (/&
 & 5.1974e-06_jprb,4.0087e-06_jprb,5.3940e-06_jprb,2.3158e-05_jprb,4.1599e-05_jprb,4.6146e-05_jprb,&
 & 4.2299e-05_jprb,4.6208e-05_jprb,2.2452e-05_jprb/)  
kao( :, 3,11, 2) = (/&
 & 6.8266e-06_jprb,6.1648e-06_jprb,4.0224e-06_jprb,1.4825e-05_jprb,3.4779e-05_jprb,4.0817e-05_jprb,&
 & 4.2127e-05_jprb,4.1473e-05_jprb,3.8968e-05_jprb/)  
kao( :, 4,11, 2) = (/&
 & 8.7559e-06_jprb,8.2911e-06_jprb,5.8154e-06_jprb,8.1179e-06_jprb,2.7292e-05_jprb,3.7470e-05_jprb,&
 & 3.8829e-05_jprb,3.4450e-05_jprb,7.0589e-05_jprb/)  
kao( :, 5,11, 2) = (/&
 & 1.0954e-05_jprb,1.0574e-05_jprb,8.7742e-06_jprb,6.0446e-06_jprb,1.8157e-05_jprb,3.3048e-05_jprb,&
 & 3.5168e-05_jprb,3.1159e-05_jprb,1.2578e-04_jprb/)  
kao( :, 1,12, 2) = (/&
 & 3.5781e-06_jprb,2.0859e-06_jprb,9.5195e-06_jprb,3.1787e-05_jprb,4.2342e-05_jprb,4.6653e-05_jprb,&
 & 4.2689e-05_jprb,4.4370e-05_jprb,1.5650e-05_jprb/)  
kao( :, 2,12, 2) = (/&
 & 4.8068e-06_jprb,3.6887e-06_jprb,5.7939e-06_jprb,2.3796e-05_jprb,3.7779e-05_jprb,4.1997e-05_jprb,&
 & 3.8426e-05_jprb,4.2634e-05_jprb,2.3652e-05_jprb/)  
kao( :, 3,12, 2) = (/&
 & 6.2948e-06_jprb,5.6556e-06_jprb,3.7630e-06_jprb,1.5847e-05_jprb,3.2542e-05_jprb,3.7297e-05_jprb,&
 & 3.8083e-05_jprb,3.7879e-05_jprb,4.1024e-05_jprb/)  
kao( :, 4,12, 2) = (/&
 & 8.0397e-06_jprb,7.5827e-06_jprb,5.0870e-06_jprb,9.0305e-06_jprb,2.6555e-05_jprb,3.3515e-05_jprb,&
 & 3.5502e-05_jprb,3.1529e-05_jprb,7.4223e-05_jprb/)  
kao( :, 5,12, 2) = (/&
 & 1.0028e-05_jprb,9.6397e-06_jprb,7.9012e-06_jprb,5.7864e-06_jprb,1.8461e-05_jprb,3.0406e-05_jprb,&
 & 3.2113e-05_jprb,2.8581e-05_jprb,1.3214e-04_jprb/)  
kao( :, 1,13, 2) = (/&
 & 3.3027e-06_jprb,1.9849e-06_jprb,1.0579e-05_jprb,3.0102e-05_jprb,3.8661e-05_jprb,4.2078e-05_jprb,&
 & 3.9451e-05_jprb,4.0882e-05_jprb,1.3351e-05_jprb/)  
kao( :, 2,13, 2) = (/&
 & 4.4219e-06_jprb,3.3751e-06_jprb,6.3222e-06_jprb,2.3724e-05_jprb,3.3992e-05_jprb,3.8161e-05_jprb,&
 & 3.4651e-05_jprb,3.8910e-05_jprb,2.0209e-05_jprb/)  
kao( :, 3,13, 2) = (/&
 & 5.7740e-06_jprb,5.1371e-06_jprb,3.6294e-06_jprb,1.6612e-05_jprb,3.0054e-05_jprb,3.4084e-05_jprb,&
 & 3.4363e-05_jprb,3.4522e-05_jprb,3.5082e-05_jprb/)  
kao( :, 4,13, 2) = (/&
 & 7.3436e-06_jprb,6.8959e-06_jprb,4.5387e-06_jprb,1.0066e-05_jprb,2.5028e-05_jprb,3.0345e-05_jprb,&
 & 3.2120e-05_jprb,2.8785e-05_jprb,6.3433e-05_jprb/)  
kao( :, 5,13, 2) = (/&
 & 9.1271e-06_jprb,8.7491e-06_jprb,7.0983e-06_jprb,6.0072e-06_jprb,1.8622e-05_jprb,2.7834e-05_jprb,&
 & 2.8936e-05_jprb,2.5906e-05_jprb,1.1287e-04_jprb/)  
kao( :, 1, 1, 3) = (/&
 & 1.0561e-04_jprb,9.9580e-05_jprb,9.1881e-05_jprb,8.2381e-05_jprb,7.1375e-05_jprb,5.7989e-05_jprb,&
 & 3.5664e-05_jprb,6.4412e-05_jprb,3.1092e-05_jprb/)  
kao( :, 2, 1, 3) = (/&
 & 1.2338e-04_jprb,1.1773e-04_jprb,1.0902e-04_jprb,9.8327e-05_jprb,8.5823e-05_jprb,7.1198e-05_jprb,&
 & 5.2267e-05_jprb,4.7983e-05_jprb,3.3217e-05_jprb/)  
kao( :, 3, 1, 3) = (/&
 & 1.4195e-04_jprb,1.3687e-04_jprb,1.2720e-04_jprb,1.1513e-04_jprb,1.0071e-04_jprb,8.3744e-05_jprb,&
 & 6.2834e-05_jprb,3.3890e-05_jprb,3.3867e-05_jprb/)  
kao( :, 4, 1, 3) = (/&
 & 1.6072e-04_jprb,1.5621e-04_jprb,1.4581e-04_jprb,1.3254e-04_jprb,1.1572e-04_jprb,9.6056e-05_jprb,&
 & 7.3269e-05_jprb,4.4619e-05_jprb,2.4444e-05_jprb/)  
kao( :, 5, 1, 3) = (/&
 & 1.7870e-04_jprb,1.7588e-04_jprb,1.6519e-04_jprb,1.5017e-04_jprb,1.3146e-04_jprb,1.0980e-04_jprb,&
 & 8.4775e-05_jprb,5.5831e-05_jprb,2.9607e-05_jprb/)  
kao( :, 1, 2, 3) = (/&
 & 9.0935e-05_jprb,8.5722e-05_jprb,7.8558e-05_jprb,6.9752e-05_jprb,5.9712e-05_jprb,4.7385e-05_jprb,&
 & 2.8063e-05_jprb,6.1629e-05_jprb,2.1541e-05_jprb/)  
kao( :, 2, 2, 3) = (/&
 & 1.0613e-04_jprb,1.0109e-04_jprb,9.2923e-05_jprb,8.2896e-05_jprb,7.1836e-05_jprb,5.9001e-05_jprb,&
 & 4.0531e-05_jprb,5.4238e-05_jprb,2.6282e-05_jprb/)  
kao( :, 3, 2, 3) = (/&
 & 1.2220e-04_jprb,1.1726e-04_jprb,1.0800e-04_jprb,9.6883e-05_jprb,8.4549e-05_jprb,7.0132e-05_jprb,&
 & 5.2211e-05_jprb,3.5371e-05_jprb,2.0831e-05_jprb/)  
kao( :, 4, 2, 3) = (/&
 & 1.3840e-04_jprb,1.3383e-04_jprb,1.2384e-04_jprb,1.1185e-04_jprb,9.7762e-05_jprb,8.1196e-05_jprb,&
 & 6.1844e-05_jprb,3.5901e-05_jprb,1.8797e-05_jprb/)  
kao( :, 5, 2, 3) = (/&
 & 1.5419e-04_jprb,1.5072e-04_jprb,1.4069e-04_jprb,1.2749e-04_jprb,1.1156e-04_jprb,9.3151e-05_jprb,&
 & 7.1896e-05_jprb,4.6407e-05_jprb,2.8564e-05_jprb/)  
kao( :, 1, 3, 3) = (/&
 & 7.5234e-05_jprb,7.0905e-05_jprb,6.4619e-05_jprb,5.6937e-05_jprb,4.7925e-05_jprb,3.4057e-05_jprb,&
 & 2.9471e-05_jprb,6.0714e-05_jprb,1.5353e-05_jprb/)  
kao( :, 2, 3, 3) = (/&
 & 8.8054e-05_jprb,8.3720e-05_jprb,7.6548e-05_jprb,6.7694e-05_jprb,5.7920e-05_jprb,4.6422e-05_jprb,&
 & 2.6506e-05_jprb,5.8794e-05_jprb,1.3222e-05_jprb/)  
kao( :, 3, 3, 3) = (/&
 & 1.0142e-04_jprb,9.7129e-05_jprb,8.9011e-05_jprb,7.9094e-05_jprb,6.8344e-05_jprb,5.6044e-05_jprb,&
 & 3.9469e-05_jprb,4.5819e-05_jprb,1.2529e-05_jprb/)  
kao( :, 4, 3, 3) = (/&
 & 1.1514e-04_jprb,1.1089e-04_jprb,1.0189e-04_jprb,9.1196e-05_jprb,7.9328e-05_jprb,6.5564e-05_jprb,&
 & 4.9536e-05_jprb,2.9992e-05_jprb,2.0006e-05_jprb/)  
kao( :, 5, 3, 3) = (/&
 & 1.2867e-04_jprb,1.2511e-04_jprb,1.1573e-04_jprb,1.0413e-04_jprb,9.0747e-05_jprb,7.5488e-05_jprb,&
 & 5.8137e-05_jprb,3.3705e-05_jprb,2.9649e-05_jprb/)  
kao( :, 1, 4, 3) = (/&
 & 6.1778e-05_jprb,5.8294e-05_jprb,5.2798e-05_jprb,4.6202e-05_jprb,3.7473e-05_jprb,2.1169e-05_jprb,&
 & 3.9527e-05_jprb,6.1900e-05_jprb,9.6628e-06_jprb/)  
kao( :, 2, 4, 3) = (/&
 & 7.2880e-05_jprb,6.9141e-05_jprb,6.2841e-05_jprb,5.5219e-05_jprb,4.6442e-05_jprb,3.4307e-05_jprb,&
 & 2.4540e-05_jprb,5.8099e-05_jprb,8.2774e-06_jprb/)  
kao( :, 3, 4, 3) = (/&
 & 8.4189e-05_jprb,8.0422e-05_jprb,7.3326e-05_jprb,6.4671e-05_jprb,5.5214e-05_jprb,4.4201e-05_jprb,&
 & 2.5763e-05_jprb,5.4305e-05_jprb,1.4320e-05_jprb/)  
kao( :, 4, 4, 3) = (/&
 & 9.5731e-05_jprb,9.1993e-05_jprb,8.4010e-05_jprb,7.4439e-05_jprb,6.4080e-05_jprb,5.2536e-05_jprb,&
 & 3.7772e-05_jprb,4.0812e-05_jprb,2.1667e-05_jprb/)  
kao( :, 5, 4, 3) = (/&
 & 1.0722e-04_jprb,1.0376e-04_jprb,9.5138e-05_jprb,8.4789e-05_jprb,7.3585e-05_jprb,6.0982e-05_jprb,&
 & 4.6442e-05_jprb,2.6775e-05_jprb,3.0897e-05_jprb/)  
kao( :, 1, 5, 3) = (/&
 & 5.0693e-05_jprb,4.7899e-05_jprb,4.3078e-05_jprb,3.7149e-05_jprb,2.7343e-05_jprb,1.8823e-05_jprb,&
 & 5.3113e-05_jprb,6.4247e-05_jprb,5.8413e-06_jprb/)  
kao( :, 2, 5, 3) = (/&
 & 6.0292e-05_jprb,5.7244e-05_jprb,5.1699e-05_jprb,4.5062e-05_jprb,3.6934e-05_jprb,2.2807e-05_jprb,&
 & 3.5085e-05_jprb,5.8430e-05_jprb,9.0461e-06_jprb/)  
kao( :, 3, 5, 3) = (/&
 & 7.0130e-05_jprb,6.6900e-05_jprb,6.0628e-05_jprb,5.3145e-05_jprb,4.4673e-05_jprb,3.3772e-05_jprb,&
 & 2.2961e-05_jprb,5.4725e-05_jprb,1.4542e-05_jprb/)  
kao( :, 4, 5, 3) = (/&
 & 7.9880e-05_jprb,7.6664e-05_jprb,6.9684e-05_jprb,6.1301e-05_jprb,5.2150e-05_jprb,4.1916e-05_jprb,&
 & 2.5438e-05_jprb,4.9130e-05_jprb,2.2207e-05_jprb/)  
kao( :, 5, 5, 3) = (/&
 & 8.9549e-05_jprb,8.6422e-05_jprb,7.8834e-05_jprb,6.9694e-05_jprb,5.9898e-05_jprb,4.9265e-05_jprb,&
 & 3.5529e-05_jprb,3.7520e-05_jprb,3.2469e-05_jprb/)  
kao( :, 1, 6, 3) = (/&
 & 4.1241e-05_jprb,3.8825e-05_jprb,3.4760e-05_jprb,2.8889e-05_jprb,1.6124e-05_jprb,2.3998e-05_jprb,&
 & 6.9344e-05_jprb,6.4810e-05_jprb,4.4340e-06_jprb/)  
kao( :, 2, 6, 3) = (/&
 & 4.9399e-05_jprb,4.6917e-05_jprb,4.2198e-05_jprb,3.6346e-05_jprb,2.7704e-05_jprb,1.8853e-05_jprb,&
 & 4.8135e-05_jprb,6.0892e-05_jprb,8.2681e-06_jprb/)  
kao( :, 3, 6, 3) = (/&
 & 5.7861e-05_jprb,5.5206e-05_jprb,4.9718e-05_jprb,4.3299e-05_jprb,3.5690e-05_jprb,2.2202e-05_jprb,&
 & 3.1528e-05_jprb,5.5484e-05_jprb,1.3906e-05_jprb/)  
kao( :, 4, 6, 3) = (/&
 & 6.6294e-05_jprb,6.3463e-05_jprb,5.7396e-05_jprb,5.0239e-05_jprb,4.2302e-05_jprb,3.1945e-05_jprb,&
 & 2.0634e-05_jprb,5.2274e-05_jprb,2.1920e-05_jprb/)  
kao( :, 5, 6, 3) = (/&
 & 7.4664e-05_jprb,7.1784e-05_jprb,6.5151e-05_jprb,5.7238e-05_jprb,4.8740e-05_jprb,3.9314e-05_jprb,&
 & 2.3437e-05_jprb,4.4846e-05_jprb,3.3007e-05_jprb/)  
kao( :, 1, 7, 3) = (/&
 & 3.3565e-05_jprb,3.1356e-05_jprb,2.7729e-05_jprb,1.9350e-05_jprb,1.4415e-05_jprb,3.7753e-05_jprb,&
 & 7.9102e-05_jprb,6.2223e-05_jprb,4.1072e-06_jprb/)  
kao( :, 2, 7, 3) = (/&
 & 4.0432e-05_jprb,3.8210e-05_jprb,3.4263e-05_jprb,2.8707e-05_jprb,1.6576e-05_jprb,2.4516e-05_jprb,&
 & 6.1614e-05_jprb,6.3419e-05_jprb,8.0365e-06_jprb/)  
kao( :, 3, 7, 3) = (/&
 & 4.7650e-05_jprb,4.5423e-05_jprb,4.0777e-05_jprb,3.5184e-05_jprb,2.7131e-05_jprb,1.8290e-05_jprb,&
 & 4.3600e-05_jprb,5.7557e-05_jprb,1.3883e-05_jprb/)  
kao( :, 4, 7, 3) = (/&
 & 5.4916e-05_jprb,5.2553e-05_jprb,4.7306e-05_jprb,4.1198e-05_jprb,3.3969e-05_jprb,2.0841e-05_jprb,&
 & 2.8970e-05_jprb,5.2203e-05_jprb,2.2718e-05_jprb/)  
kao( :, 5, 7, 3) = (/&
 & 6.2191e-05_jprb,5.9624e-05_jprb,5.3859e-05_jprb,4.7059e-05_jprb,3.9626e-05_jprb,3.0110e-05_jprb,&
 & 1.8574e-05_jprb,4.8026e-05_jprb,3.5441e-05_jprb/)  
kao( :, 1, 8, 3) = (/&
 & 2.7226e-05_jprb,2.5212e-05_jprb,2.1382e-05_jprb,1.0543e-05_jprb,2.2029e-05_jprb,5.3627e-05_jprb,&
 & 8.2097e-05_jprb,5.8785e-05_jprb,4.6971e-06_jprb/)  
kao( :, 2, 8, 3) = (/&
 & 3.3008e-05_jprb,3.0976e-05_jprb,2.7464e-05_jprb,1.9851e-05_jprb,1.5586e-05_jprb,3.6260e-05_jprb,&
 & 7.0608e-05_jprb,6.2688e-05_jprb,9.0473e-06_jprb/)  
kao( :, 3, 8, 3) = (/&
 & 3.9152e-05_jprb,3.7119e-05_jprb,3.3223e-05_jprb,2.7933e-05_jprb,1.6165e-05_jprb,2.3754e-05_jprb,&
 & 5.6757e-05_jprb,6.1667e-05_jprb,1.6403e-05_jprb/)  
kao( :, 4, 8, 3) = (/&
 & 4.5401e-05_jprb,4.3320e-05_jprb,3.8890e-05_jprb,3.3512e-05_jprb,2.5986e-05_jprb,1.7686e-05_jprb,&
 & 4.1699e-05_jprb,5.5000e-05_jprb,2.8038e-05_jprb/)  
kao( :, 5, 8, 3) = (/&
 & 5.1574e-05_jprb,4.9405e-05_jprb,4.4463e-05_jprb,3.8672e-05_jprb,3.1838e-05_jprb,1.9274e-05_jprb,&
 & 2.7957e-05_jprb,4.8608e-05_jprb,4.5414e-05_jprb/)  
kao( :, 1, 9, 3) = (/&
 & 2.1974e-05_jprb,2.0130e-05_jprb,1.3358e-05_jprb,1.2253e-05_jprb,3.2656e-05_jprb,7.0337e-05_jprb,&
 & 8.9242e-05_jprb,5.7837e-05_jprb,9.3121e-06_jprb/)  
kao( :, 2, 9, 3) = (/&
 & 2.6942e-05_jprb,2.5061e-05_jprb,2.1391e-05_jprb,1.1226e-05_jprb,2.1710e-05_jprb,5.1789e-05_jprb,&
 & 7.4746e-05_jprb,5.8409e-05_jprb,1.8445e-05_jprb/)  
kao( :, 3, 9, 3) = (/&
 & 3.2174e-05_jprb,3.0300e-05_jprb,2.6794e-05_jprb,1.9848e-05_jprb,1.5650e-05_jprb,3.5796e-05_jprb,&
 & 6.3518e-05_jprb,6.2556e-05_jprb,3.5097e-05_jprb/)  
kao( :, 4, 9, 3) = (/&
 & 3.7549e-05_jprb,3.5640e-05_jprb,3.1882e-05_jprb,2.6804e-05_jprb,1.5301e-05_jprb,2.3066e-05_jprb,&
 & 5.1951e-05_jprb,5.9042e-05_jprb,6.2870e-05_jprb/)  
kao( :, 5, 9, 3) = (/&
 & 4.2852e-05_jprb,4.0889e-05_jprb,3.6715e-05_jprb,3.1666e-05_jprb,2.4183e-05_jprb,1.7177e-05_jprb,&
 & 4.0166e-05_jprb,5.1290e-05_jprb,1.0621e-04_jprb/)  
kao( :, 1,10, 3) = (/&
 & 1.7885e-05_jprb,1.6093e-05_jprb,7.4609e-06_jprb,1.9809e-05_jprb,4.8743e-05_jprb,8.4191e-05_jprb,&
 & 9.7811e-05_jprb,5.7087e-05_jprb,2.4684e-05_jprb/)  
kao( :, 2,10, 3) = (/&
 & 2.2205e-05_jprb,2.0473e-05_jprb,1.4192e-05_jprb,1.3653e-05_jprb,3.3673e-05_jprb,6.6332e-05_jprb,&
 & 8.1889e-05_jprb,5.8933e-05_jprb,4.8726e-05_jprb/)  
kao( :, 3,10, 3) = (/&
 & 2.6710e-05_jprb,2.4979e-05_jprb,2.1384e-05_jprb,1.1205e-05_jprb,2.2836e-05_jprb,5.0904e-05_jprb,&
 & 6.7817e-05_jprb,6.0017e-05_jprb,9.5318e-05_jprb/)  
kao( :, 4,10, 3) = (/&
 & 3.1308e-05_jprb,2.9540e-05_jprb,2.6146e-05_jprb,1.9462e-05_jprb,1.5742e-05_jprb,3.6775e-05_jprb,&
 & 5.7447e-05_jprb,6.0670e-05_jprb,1.7750e-04_jprb/)  
kao( :, 5,10, 3) = (/&
 & 3.5884e-05_jprb,3.4076e-05_jprb,3.0469e-05_jprb,2.5574e-05_jprb,1.4532e-05_jprb,2.3848e-05_jprb,&
 & 4.8505e-05_jprb,5.5852e-05_jprb,3.1067e-04_jprb/)  
kao( :, 1,11, 3) = (/&
 & 1.6247e-05_jprb,1.4357e-05_jprb,6.7662e-06_jprb,2.3639e-05_jprb,5.5683e-05_jprb,8.1956e-05_jprb,&
 & 9.4483e-05_jprb,5.8077e-05_jprb,3.4483e-05_jprb/)  
kao( :, 2,11, 3) = (/&
 & 2.0083e-05_jprb,1.8438e-05_jprb,1.1223e-05_jprb,1.6583e-05_jprb,3.8809e-05_jprb,6.7379e-05_jprb,&
 & 8.0717e-05_jprb,5.8833e-05_jprb,6.8180e-05_jprb/)  
kao( :, 3,11, 3) = (/&
 & 2.4035e-05_jprb,2.2414e-05_jprb,1.8252e-05_jprb,1.1545e-05_jprb,2.7168e-05_jprb,5.4230e-05_jprb,&
 & 6.6296e-05_jprb,5.8218e-05_jprb,1.3381e-04_jprb/)  

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


SUBROUTINE part3

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


kao( :, 4,11, 3) = (/&
 & 2.8028e-05_jprb,2.6371e-05_jprb,2.3077e-05_jprb,1.4565e-05_jprb,1.8361e-05_jprb,4.2537e-05_jprb,&
 & 5.6345e-05_jprb,5.9076e-05_jprb,2.5000e-04_jprb/)  
kao( :, 5,11, 3) = (/&
 & 3.1996e-05_jprb,3.0330e-05_jprb,2.7020e-05_jprb,2.1917e-05_jprb,1.3395e-05_jprb,2.9523e-05_jprb,&
 & 4.8541e-05_jprb,5.5094e-05_jprb,4.3853e-04_jprb/)  
kao( :, 1,12, 3) = (/&
 & 1.4787e-05_jprb,1.2868e-05_jprb,7.7779e-06_jprb,2.3775e-05_jprb,5.3535e-05_jprb,7.5004e-05_jprb,&
 & 8.6201e-05_jprb,6.0383e-05_jprb,3.6484e-05_jprb/)  
kao( :, 2,12, 3) = (/&
 & 1.8188e-05_jprb,1.6624e-05_jprb,9.6989e-06_jprb,1.6809e-05_jprb,3.8801e-05_jprb,6.1756e-05_jprb,&
 & 7.3880e-05_jprb,5.7828e-05_jprb,7.2267e-05_jprb/)  
kao( :, 3,12, 3) = (/&
 & 2.1698e-05_jprb,2.0162e-05_jprb,1.6039e-05_jprb,1.1681e-05_jprb,2.6941e-05_jprb,5.0140e-05_jprb,&
 & 6.0455e-05_jprb,5.6955e-05_jprb,1.4213e-04_jprb/)  
kao( :, 4,12, 3) = (/&
 & 2.5223e-05_jprb,2.3667e-05_jprb,2.0595e-05_jprb,1.1968e-05_jprb,1.8179e-05_jprb,4.0062e-05_jprb,&
 & 5.0860e-05_jprb,5.5338e-05_jprb,2.6585e-04_jprb/)  
kao( :, 5,12, 3) = (/&
 & 2.8679e-05_jprb,2.7160e-05_jprb,2.4085e-05_jprb,1.8993e-05_jprb,1.3232e-05_jprb,3.0080e-05_jprb,&
 & 4.4162e-05_jprb,5.0190e-05_jprb,4.6593e-04_jprb/)  
kao( :, 1,13, 3) = (/&
 & 1.3378e-05_jprb,1.1412e-05_jprb,8.0344e-06_jprb,2.3863e-05_jprb,5.0631e-05_jprb,6.7851e-05_jprb,&
 & 7.7279e-05_jprb,5.9944e-05_jprb,3.1248e-05_jprb/)  
kao( :, 2,13, 3) = (/&
 & 1.6405e-05_jprb,1.4918e-05_jprb,8.1452e-06_jprb,1.7072e-05_jprb,3.8399e-05_jprb,5.6349e-05_jprb,&
 & 6.7351e-05_jprb,5.6397e-05_jprb,6.1993e-05_jprb/)  
kao( :, 3,13, 3) = (/&
 & 1.9514e-05_jprb,1.8083e-05_jprb,1.3959e-05_jprb,1.1780e-05_jprb,2.7506e-05_jprb,4.6033e-05_jprb,&
 & 5.5011e-05_jprb,5.3246e-05_jprb,1.2205e-04_jprb/)  
kao( :, 4,13, 3) = (/&
 & 2.2612e-05_jprb,2.1175e-05_jprb,1.8198e-05_jprb,9.8216e-06_jprb,1.8940e-05_jprb,3.7116e-05_jprb,&
 & 4.6044e-05_jprb,5.0287e-05_jprb,2.2822e-04_jprb/)  
kao( :, 5,13, 3) = (/&
 & 2.5652e-05_jprb,2.4254e-05_jprb,2.1392e-05_jprb,1.5930e-05_jprb,1.2761e-05_jprb,2.9362e-05_jprb,&
 & 4.0037e-05_jprb,4.5639e-05_jprb,3.9941e-04_jprb/)  
kao( :, 1, 1, 4) = (/&
 & 1.9325e-04_jprb,1.8065e-04_jprb,1.6180e-04_jprb,1.4199e-04_jprb,1.2006e-04_jprb,9.6342e-05_jprb,&
 & 6.5622e-05_jprb,4.8423e-05_jprb,3.6972e-05_jprb/)  
kao( :, 2, 1, 4) = (/&
 & 2.0819e-04_jprb,1.9606e-04_jprb,1.7737e-04_jprb,1.5604e-04_jprb,1.3291e-04_jprb,1.0794e-04_jprb,&
 & 7.9216e-05_jprb,4.1605e-05_jprb,3.5731e-05_jprb/)  
kao( :, 3, 1, 4) = (/&
 & 2.2206e-04_jprb,2.1170e-04_jprb,1.9336e-04_jprb,1.7130e-04_jprb,1.4701e-04_jprb,1.2089e-04_jprb,&
 & 9.0968e-05_jprb,4.3271e-05_jprb,3.0303e-05_jprb/)  
kao( :, 4, 1, 4) = (/&
 & 2.3676e-04_jprb,2.2953e-04_jprb,2.1085e-04_jprb,1.8785e-04_jprb,1.6294e-04_jprb,1.3496e-04_jprb,&
 & 1.0281e-04_jprb,6.1284e-05_jprb,3.2172e-05_jprb/)  
kao( :, 5, 1, 4) = (/&
 & 2.5437e-04_jprb,2.4947e-04_jprb,2.3011e-04_jprb,2.0700e-04_jprb,1.8097e-04_jprb,1.5051e-04_jprb,&
 & 1.1633e-04_jprb,7.7203e-05_jprb,5.3094e-05_jprb/)  
kao( :, 1, 2, 4) = (/&
 & 1.7573e-04_jprb,1.6392e-04_jprb,1.4659e-04_jprb,1.2809e-04_jprb,1.0782e-04_jprb,8.5648e-05_jprb,&
 & 5.2006e-05_jprb,5.2667e-05_jprb,2.6840e-05_jprb/)  
kao( :, 2, 2, 4) = (/&
 & 1.8913e-04_jprb,1.7769e-04_jprb,1.6041e-04_jprb,1.4067e-04_jprb,1.1911e-04_jprb,9.5721e-05_jprb,&
 & 6.8639e-05_jprb,4.4992e-05_jprb,2.4069e-05_jprb/)  
kao( :, 3, 2, 4) = (/&
 & 2.0133e-04_jprb,1.9150e-04_jprb,1.7426e-04_jprb,1.5374e-04_jprb,1.3095e-04_jprb,1.0674e-04_jprb,&
 & 7.9754e-05_jprb,3.2688e-05_jprb,1.8110e-05_jprb/)  
kao( :, 4, 2, 4) = (/&
 & 2.1403e-04_jprb,2.0644e-04_jprb,1.8885e-04_jprb,1.6750e-04_jprb,1.4394e-04_jprb,1.1875e-04_jprb,&
 & 8.9867e-05_jprb,4.7809e-05_jprb,3.1086e-05_jprb/)  
kao( :, 5, 2, 4) = (/&
 & 2.2856e-04_jprb,2.2298e-04_jprb,2.0481e-04_jprb,1.8286e-04_jprb,1.5862e-04_jprb,1.3164e-04_jprb,&
 & 1.0114e-04_jprb,6.3503e-05_jprb,4.8865e-05_jprb/)  
kao( :, 1, 3, 4) = (/&
 & 1.5562e-04_jprb,1.4484e-04_jprb,1.2927e-04_jprb,1.1236e-04_jprb,9.3995e-05_jprb,7.3269e-05_jprb,&
 & 3.7797e-05_jprb,5.7431e-05_jprb,1.5095e-05_jprb/)  
kao( :, 2, 3, 4) = (/&
 & 1.6743e-04_jprb,1.5710e-04_jprb,1.4113e-04_jprb,1.2321e-04_jprb,1.0375e-04_jprb,8.2299e-05_jprb,&
 & 5.2915e-05_jprb,4.4705e-05_jprb,1.4179e-05_jprb/)  
kao( :, 3, 3, 4) = (/&
 & 1.7855e-04_jprb,1.6918e-04_jprb,1.5296e-04_jprb,1.3430e-04_jprb,1.1381e-04_jprb,9.1766e-05_jprb,&
 & 6.6891e-05_jprb,3.9451e-05_jprb,2.0319e-05_jprb/)  
kao( :, 4, 3, 4) = (/&
 & 1.8934e-04_jprb,1.8180e-04_jprb,1.6533e-04_jprb,1.4585e-04_jprb,1.2452e-04_jprb,1.0168e-04_jprb,&
 & 7.6248e-05_jprb,3.2208e-05_jprb,3.3927e-05_jprb/)  
kao( :, 5, 3, 4) = (/&
 & 2.0107e-04_jprb,1.9484e-04_jprb,1.7806e-04_jprb,1.5818e-04_jprb,1.3631e-04_jprb,1.1252e-04_jprb,&
 & 8.5478e-05_jprb,4.8964e-05_jprb,4.8647e-05_jprb/)  
kao( :, 1, 4, 4) = (/&
 & 1.3687e-04_jprb,1.2644e-04_jprb,1.1299e-04_jprb,9.7757e-05_jprb,8.1171e-05_jprb,6.0079e-05_jprb,&
 & 3.3581e-05_jprb,5.5796e-05_jprb,9.0880e-06_jprb/)  
kao( :, 2, 4, 4) = (/&
 & 1.4693e-04_jprb,1.3749e-04_jprb,1.2327e-04_jprb,1.0708e-04_jprb,8.9715e-05_jprb,7.0113e-05_jprb,&
 & 3.5389e-05_jprb,5.3371e-05_jprb,1.3014e-05_jprb/)  
kao( :, 3, 4, 4) = (/&
 & 1.5672e-04_jprb,1.4837e-04_jprb,1.3344e-04_jprb,1.1660e-04_jprb,9.8197e-05_jprb,7.8371e-05_jprb,&
 & 5.1608e-05_jprb,4.1358e-05_jprb,2.3902e-05_jprb/)  
kao( :, 4, 4, 4) = (/&
 & 1.6639e-04_jprb,1.5936e-04_jprb,1.4405e-04_jprb,1.2651e-04_jprb,1.0733e-04_jprb,8.6606e-05_jprb,&
 & 6.3258e-05_jprb,3.2371e-05_jprb,3.6595e-05_jprb/)  
kao( :, 5, 4, 4) = (/&
 & 1.7628e-04_jprb,1.7040e-04_jprb,1.5502e-04_jprb,1.3697e-04_jprb,1.1689e-04_jprb,9.5499e-05_jprb,&
 & 7.1870e-05_jprb,3.2326e-05_jprb,5.1692e-05_jprb/)  
kao( :, 1, 5, 4) = (/&
 & 1.2014e-04_jprb,1.0999e-04_jprb,9.8155e-05_jprb,8.4680e-05_jprb,6.9013e-05_jprb,3.7866e-05_jprb,&
 & 4.6216e-05_jprb,5.4078e-05_jprb,7.0562e-06_jprb/)  
kao( :, 2, 5, 4) = (/&
 & 1.2869e-04_jprb,1.1940e-04_jprb,1.0711e-04_jprb,9.2677e-05_jprb,7.7027e-05_jprb,5.7820e-05_jprb,&
 & 3.1601e-05_jprb,5.4237e-05_jprb,1.5420e-05_jprb/)  
kao( :, 3, 5, 4) = (/&
 & 1.3705e-04_jprb,1.2928e-04_jprb,1.1605e-04_jprb,1.0090e-04_jprb,8.4608e-05_jprb,6.6395e-05_jprb,&
 & 3.0335e-05_jprb,4.8756e-05_jprb,2.5527e-05_jprb/)  
kao( :, 4, 5, 4) = (/&
 & 1.4539e-04_jprb,1.3907e-04_jprb,1.2508e-04_jprb,1.0941e-04_jprb,9.2394e-05_jprb,7.3775e-05_jprb,&
 & 4.9339e-05_jprb,4.0777e-05_jprb,3.8427e-05_jprb/)  
kao( :, 5, 5, 4) = (/&
 & 1.5402e-04_jprb,1.4864e-04_jprb,1.3443e-04_jprb,1.1832e-04_jprb,1.0042e-04_jprb,8.1145e-05_jprb,&
 & 5.9883e-05_jprb,2.8598e-05_jprb,5.5173e-05_jprb/)  
kao( :, 1, 6, 4) = (/&
 & 1.0508e-04_jprb,9.5482e-05_jprb,8.4601e-05_jprb,7.2633e-05_jprb,5.7469e-05_jprb,2.8022e-05_jprb,&
 & 6.0470e-05_jprb,5.5709e-05_jprb,8.4537e-06_jprb/)  
kao( :, 2, 6, 4) = (/&
 & 1.1254e-04_jprb,1.0355e-04_jprb,9.2576e-05_jprb,7.9894e-05_jprb,6.5248e-05_jprb,3.5620e-05_jprb,&
 & 4.1186e-05_jprb,5.3203e-05_jprb,1.5781e-05_jprb/)  
kao( :, 3, 6, 4) = (/&
 & 1.1968e-04_jprb,1.1191e-04_jprb,1.0054e-04_jprb,8.6961e-05_jprb,7.2380e-05_jprb,5.4688e-05_jprb,&
 & 2.8839e-05_jprb,5.2690e-05_jprb,2.5759e-05_jprb/)  
kao( :, 4, 6, 4) = (/&
 & 1.2668e-04_jprb,1.2066e-04_jprb,1.0839e-04_jprb,9.4280e-05_jprb,7.9174e-05_jprb,6.2217e-05_jprb,&
 & 2.9595e-05_jprb,4.6245e-05_jprb,3.9594e-05_jprb/)  
kao( :, 5, 6, 4) = (/&
 & 1.3386e-04_jprb,1.2916e-04_jprb,1.1625e-04_jprb,1.0183e-04_jprb,8.5941e-05_jprb,6.8663e-05_jprb,&
 & 4.7108e-05_jprb,3.8925e-05_jprb,5.8371e-05_jprb/)  
kao( :, 1, 7, 4) = (/&
 & 9.1290e-05_jprb,8.2455e-05_jprb,7.2640e-05_jprb,6.1602e-05_jprb,3.5951e-05_jprb,3.2065e-05_jprb,&
 & 6.9438e-05_jprb,5.4588e-05_jprb,8.8732e-06_jprb/)  
kao( :, 2, 7, 4) = (/&
 & 9.8266e-05_jprb,8.9923e-05_jprb,7.9846e-05_jprb,6.8611e-05_jprb,5.4855e-05_jprb,2.5347e-05_jprb,&
 & 5.3484e-05_jprb,5.4646e-05_jprb,1.6319e-05_jprb/)  
kao( :, 3, 7, 4) = (/&
 & 1.0452e-04_jprb,9.6912e-05_jprb,8.6790e-05_jprb,7.4880e-05_jprb,6.1588e-05_jprb,3.4215e-05_jprb,&
 & 3.8465e-05_jprb,5.3097e-05_jprb,2.7544e-05_jprb/)  
kao( :, 4, 7, 4) = (/&
 & 1.1064e-04_jprb,1.0436e-04_jprb,9.3727e-05_jprb,8.1191e-05_jprb,6.7704e-05_jprb,5.1369e-05_jprb,&
 & 2.6755e-05_jprb,5.1792e-05_jprb,4.3707e-05_jprb/)  
kao( :, 5, 7, 4) = (/&
 & 1.1674e-04_jprb,1.1189e-04_jprb,1.0064e-04_jprb,8.7738e-05_jprb,7.3682e-05_jprb,5.8032e-05_jprb,&
 & 2.8026e-05_jprb,4.3741e-05_jprb,6.6125e-05_jprb/)  
kao( :, 1, 8, 4) = (/&
 & 7.8671e-05_jprb,7.0723e-05_jprb,6.1903e-05_jprb,5.0899e-05_jprb,2.5388e-05_jprb,4.7045e-05_jprb,&
 & 8.3139e-05_jprb,5.2475e-05_jprb,1.0506e-05_jprb/)  
kao( :, 2, 8, 4) = (/&
 & 8.5114e-05_jprb,7.7503e-05_jprb,6.8369e-05_jprb,5.8071e-05_jprb,3.2941e-05_jprb,3.1252e-05_jprb,&
 & 6.5972e-05_jprb,5.4053e-05_jprb,1.9913e-05_jprb/)  
kao( :, 3, 8, 4) = (/&
 & 9.0774e-05_jprb,8.3700e-05_jprb,7.4489e-05_jprb,6.3931e-05_jprb,5.1217e-05_jprb,2.3975e-05_jprb,&
 & 4.9768e-05_jprb,5.3114e-05_jprb,3.5011e-05_jprb/)  
kao( :, 4, 8, 4) = (/&
 & 9.6188e-05_jprb,9.0023e-05_jprb,8.0588e-05_jprb,6.9637e-05_jprb,5.7276e-05_jprb,3.0654e-05_jprb,&
 & 3.6814e-05_jprb,5.0886e-05_jprb,5.7647e-05_jprb/)  
kao( :, 5, 8, 4) = (/&
 & 1.0147e-04_jprb,9.6459e-05_jprb,8.6744e-05_jprb,7.5335e-05_jprb,6.2848e-05_jprb,4.7544e-05_jprb,&
 & 2.4830e-05_jprb,4.9742e-05_jprb,8.9972e-05_jprb/)  
kao( :, 1, 9, 4) = (/&
 & 6.7736e-05_jprb,6.0618e-05_jprb,5.2744e-05_jprb,3.0920e-05_jprb,2.9239e-05_jprb,6.2840e-05_jprb,&
 & 9.2889e-05_jprb,5.0470e-05_jprb,2.2355e-05_jprb/)  
kao( :, 2, 9, 4) = (/&
 & 7.3171e-05_jprb,6.6259e-05_jprb,5.8117e-05_jprb,4.7578e-05_jprb,2.3188e-05_jprb,4.4116e-05_jprb,&
 & 7.7151e-05_jprb,5.4835e-05_jprb,4.4341e-05_jprb/)  
kao( :, 3, 9, 4) = (/&
 & 7.8488e-05_jprb,7.2012e-05_jprb,6.3679e-05_jprb,5.4052e-05_jprb,2.9892e-05_jprb,3.0664e-05_jprb,&
 & 6.0561e-05_jprb,5.3817e-05_jprb,8.1564e-05_jprb/)  
kao( :, 4, 9, 4) = (/&
 & 8.3263e-05_jprb,7.7446e-05_jprb,6.8972e-05_jprb,5.9229e-05_jprb,4.7000e-05_jprb,2.3105e-05_jprb,&
 & 4.7608e-05_jprb,5.0373e-05_jprb,1.4008e-04_jprb/)  
kao( :, 5, 9, 4) = (/&
 & 8.7956e-05_jprb,8.2925e-05_jprb,7.4329e-05_jprb,6.4343e-05_jprb,5.3101e-05_jprb,2.7223e-05_jprb,&
 & 3.3997e-05_jprb,5.1225e-05_jprb,2.2664e-04_jprb/)  
kao( :, 1,10, 4) = (/&
 & 5.8447e-05_jprb,5.2123e-05_jprb,4.4386e-05_jprb,2.1253e-05_jprb,4.1633e-05_jprb,7.5363e-05_jprb,&
 & 9.7685e-05_jprb,4.9222e-05_jprb,5.9155e-05_jprb/)  
kao( :, 2,10, 4) = (/&
 & 6.2971e-05_jprb,5.6773e-05_jprb,4.9349e-05_jprb,2.7108e-05_jprb,2.8492e-05_jprb,5.8974e-05_jprb,&
 & 8.8305e-05_jprb,5.1607e-05_jprb,1.2250e-04_jprb/)  
kao( :, 3,10, 4) = (/&
 & 6.7713e-05_jprb,6.1803e-05_jprb,5.4313e-05_jprb,4.4294e-05_jprb,2.2166e-05_jprb,4.3639e-05_jprb,&
 & 7.2310e-05_jprb,5.3792e-05_jprb,2.3595e-04_jprb/)  
kao( :, 4,10, 4) = (/&
 & 7.2017e-05_jprb,6.6651e-05_jprb,5.9032e-05_jprb,5.0145e-05_jprb,2.5984e-05_jprb,3.1163e-05_jprb,&
 & 5.5814e-05_jprb,5.4096e-05_jprb,4.2155e-04_jprb/)  
kao( :, 5,10, 4) = (/&
 & 7.6122e-05_jprb,7.1340e-05_jprb,6.3672e-05_jprb,5.4807e-05_jprb,4.2703e-05_jprb,2.2571e-05_jprb,&
 & 4.5447e-05_jprb,5.0941e-05_jprb,7.0536e-04_jprb/)  
kao( :, 1,11, 4) = (/&
 & 5.1997e-05_jprb,4.6399e-05_jprb,3.7006e-05_jprb,2.2118e-05_jprb,4.9070e-05_jprb,8.0297e-05_jprb,&
 & 9.7665e-05_jprb,4.9036e-05_jprb,8.3819e-05_jprb/)  
kao( :, 2,11, 4) = (/&
 & 5.5995e-05_jprb,5.0499e-05_jprb,4.3536e-05_jprb,1.8160e-05_jprb,3.3942e-05_jprb,6.1798e-05_jprb,&
 & 8.7929e-05_jprb,5.1899e-05_jprb,1.7378e-04_jprb/)  
kao( :, 3,11, 4) = (/&
 & 6.0050e-05_jprb,5.4855e-05_jprb,4.8042e-05_jprb,3.2999e-05_jprb,2.4599e-05_jprb,4.8087e-05_jprb,&
 & 7.2580e-05_jprb,5.4376e-05_jprb,3.3527e-04_jprb/)  
kao( :, 4,11, 4) = (/&
 & 6.3834e-05_jprb,5.9102e-05_jprb,5.2252e-05_jprb,4.3696e-05_jprb,1.9003e-05_jprb,3.4301e-05_jprb,&
 & 5.7788e-05_jprb,5.3890e-05_jprb,5.9988e-04_jprb/)  
kao( :, 5,11, 4) = (/&
 & 6.7488e-05_jprb,6.3205e-05_jprb,5.6377e-05_jprb,4.8245e-05_jprb,3.1229e-05_jprb,2.6140e-05_jprb,&
 & 4.5484e-05_jprb,5.1296e-05_jprb,1.0059e-03_jprb/)  
kao( :, 1,12, 4) = (/&
 & 4.6056e-05_jprb,4.1083e-05_jprb,2.9802e-05_jprb,2.2251e-05_jprb,4.6624e-05_jprb,7.2962e-05_jprb,&
 & 9.3907e-05_jprb,4.7563e-05_jprb,8.9454e-05_jprb/)  
kao( :, 2,12, 4) = (/&
 & 4.9615e-05_jprb,4.4762e-05_jprb,3.8254e-05_jprb,1.6590e-05_jprb,3.3432e-05_jprb,5.6542e-05_jprb,&
 & 8.1508e-05_jprb,5.1901e-05_jprb,1.8559e-04_jprb/)  
kao( :, 3,12, 4) = (/&
 & 5.3180e-05_jprb,4.8610e-05_jprb,4.2465e-05_jprb,2.5666e-05_jprb,2.4567e-05_jprb,4.4887e-05_jprb,&
 & 6.5994e-05_jprb,5.4335e-05_jprb,3.5825e-04_jprb/)  
kao( :, 4,12, 4) = (/&
 & 5.6562e-05_jprb,5.2350e-05_jprb,4.6232e-05_jprb,3.8181e-05_jprb,1.8227e-05_jprb,3.2932e-05_jprb,&
 & 5.2904e-05_jprb,5.3475e-05_jprb,6.4181e-04_jprb/)  
kao( :, 5,12, 4) = (/&
 & 5.9903e-05_jprb,5.6017e-05_jprb,4.9962e-05_jprb,4.2621e-05_jprb,2.4691e-05_jprb,2.4714e-05_jprb,&
 & 4.1916e-05_jprb,5.0025e-05_jprb,1.0767e-03_jprb/)  
kao( :, 1,13, 4) = (/&
 & 4.0560e-05_jprb,3.6160e-05_jprb,2.3255e-05_jprb,2.2093e-05_jprb,4.4020e-05_jprb,6.7810e-05_jprb,&
 & 8.9069e-05_jprb,4.8857e-05_jprb,7.6979e-05_jprb/)  
kao( :, 2,13, 4) = (/&
 & 4.3721e-05_jprb,3.9447e-05_jprb,3.3315e-05_jprb,1.5735e-05_jprb,3.2401e-05_jprb,5.2990e-05_jprb,&
 & 7.4939e-05_jprb,5.2762e-05_jprb,1.5983e-04_jprb/)  
kao( :, 3,13, 4) = (/&
 & 4.6874e-05_jprb,4.2856e-05_jprb,3.7307e-05_jprb,1.9448e-05_jprb,2.3246e-05_jprb,4.1872e-05_jprb,&
 & 6.0127e-05_jprb,5.4225e-05_jprb,3.0871e-04_jprb/)  
kao( :, 4,13, 4) = (/&
 & 4.9922e-05_jprb,4.6146e-05_jprb,4.0717e-05_jprb,3.2736e-05_jprb,1.7797e-05_jprb,3.1779e-05_jprb,&
 & 4.8971e-05_jprb,5.3750e-05_jprb,5.5309e-04_jprb/)  
kao( :, 5,13, 4) = (/&
 & 5.3030e-05_jprb,4.9529e-05_jprb,4.4121e-05_jprb,3.7423e-05_jprb,1.9634e-05_jprb,2.2842e-05_jprb,&
 & 3.9348e-05_jprb,4.8274e-05_jprb,9.2736e-04_jprb/)  
kao( :, 1, 1, 5) = (/&
 & 2.7778e-04_jprb,2.5521e-04_jprb,2.2685e-04_jprb,1.9591e-04_jprb,1.6332e-04_jprb,1.2879e-04_jprb,&
 & 9.0596e-05_jprb,4.4043e-05_jprb,3.2346e-05_jprb/)  
kao( :, 2, 1, 5) = (/&
 & 2.9066e-04_jprb,2.6987e-04_jprb,2.4077e-04_jprb,2.0932e-04_jprb,1.7577e-04_jprb,1.4048e-04_jprb,&
 & 1.0294e-04_jprb,3.8809e-05_jprb,2.9426e-05_jprb/)  
kao( :, 3, 1, 5) = (/&
 & 3.0544e-04_jprb,2.8616e-04_jprb,2.5754e-04_jprb,2.2525e-04_jprb,1.9101e-04_jprb,1.5455e-04_jprb,&
 & 1.1678e-04_jprb,5.7173e-05_jprb,3.3954e-05_jprb/)  
kao( :, 4, 1, 5) = (/&
 & 3.2184e-04_jprb,3.0525e-04_jprb,2.7707e-04_jprb,2.4441e-04_jprb,2.0932e-04_jprb,1.7239e-04_jprb,&
 & 1.3430e-04_jprb,8.9432e-05_jprb,5.9307e-05_jprb/)  
kao( :, 5, 1, 5) = (/&
 & 3.3997e-04_jprb,3.2768e-04_jprb,2.9971e-04_jprb,2.6685e-04_jprb,2.3158e-04_jprb,1.9537e-04_jprb,&
 & 1.5650e-04_jprb,1.1300e-04_jprb,9.1458e-05_jprb/)  
kao( :, 1, 2, 5) = (/&
 & 2.6036e-04_jprb,2.3849e-04_jprb,2.1215e-04_jprb,1.8325e-04_jprb,1.5238e-04_jprb,1.1978e-04_jprb,&
 & 8.1666e-05_jprb,4.4295e-05_jprb,2.4496e-05_jprb/)  
kao( :, 2, 2, 5) = (/&
 & 2.7147e-04_jprb,2.5141e-04_jprb,2.2439e-04_jprb,1.9462e-04_jprb,1.6271e-04_jprb,1.2925e-04_jprb,&
 & 9.2973e-05_jprb,3.2500e-05_jprb,1.9528e-05_jprb/)  
kao( :, 3, 2, 5) = (/&
 & 2.8407e-04_jprb,2.6548e-04_jprb,2.3846e-04_jprb,2.0759e-04_jprb,1.7524e-04_jprb,1.4054e-04_jprb,&
 & 1.0396e-04_jprb,4.5395e-05_jprb,3.3431e-05_jprb/)  
kao( :, 4, 2, 5) = (/&
 & 2.9719e-04_jprb,2.8128e-04_jprb,2.5423e-04_jprb,2.2320e-04_jprb,1.8996e-04_jprb,1.5400e-04_jprb,&
 & 1.1668e-04_jprb,6.9584e-05_jprb,5.7490e-05_jprb/)  
kao( :, 5, 2, 5) = (/&
 & 3.1122e-04_jprb,2.9870e-04_jprb,2.7220e-04_jprb,2.4100e-04_jprb,2.0649e-04_jprb,1.7035e-04_jprb,&
 & 1.3266e-04_jprb,9.1999e-05_jprb,8.3000e-05_jprb/)  
kao( :, 1, 3, 5) = (/&
 & 2.4050e-04_jprb,2.1900e-04_jprb,1.9501e-04_jprb,1.6859e-04_jprb,1.4005e-04_jprb,1.0947e-04_jprb,&
 & 5.4416e-05_jprb,3.5695e-05_jprb,1.3250e-05_jprb/)  
kao( :, 2, 3, 5) = (/&
 & 2.4980e-04_jprb,2.3024e-04_jprb,2.0600e-04_jprb,1.7839e-04_jprb,1.4857e-04_jprb,1.1723e-04_jprb,&
 & 8.2222e-05_jprb,4.3756e-05_jprb,1.9778e-05_jprb/)  
kao( :, 3, 3, 5) = (/&
 & 2.5986e-04_jprb,2.4240e-04_jprb,2.1776e-04_jprb,1.8907e-04_jprb,1.5831e-04_jprb,1.2594e-04_jprb,&
 & 9.1156e-05_jprb,3.2284e-05_jprb,3.8343e-05_jprb/)  
kao( :, 4, 3, 5) = (/&
 & 2.7050e-04_jprb,2.5528e-04_jprb,2.3027e-04_jprb,2.0105e-04_jprb,1.6973e-04_jprb,1.3628e-04_jprb,&
 & 1.0110e-04_jprb,4.6885e-05_jprb,5.9630e-05_jprb/)  
kao( :, 5, 3, 5) = (/&
 & 2.8151e-04_jprb,2.6949e-04_jprb,2.4440e-04_jprb,2.1478e-04_jprb,1.8246e-04_jprb,1.4822e-04_jprb,&
 & 1.1296e-04_jprb,7.0463e-05_jprb,8.2542e-05_jprb/)  
kao( :, 1, 4, 5) = (/&
 & 2.2167e-04_jprb,2.0054e-04_jprb,1.7755e-04_jprb,1.5346e-04_jprb,1.2760e-04_jprb,9.8873e-05_jprb,&
 & 4.0720e-05_jprb,3.6076e-05_jprb,1.0820e-05_jprb/)  
kao( :, 2, 4, 5) = (/&
 & 2.2949e-04_jprb,2.0991e-04_jprb,1.8792e-04_jprb,1.6318e-04_jprb,1.3546e-04_jprb,1.0612e-04_jprb,&
 & 6.1178e-05_jprb,4.0667e-05_jprb,2.5683e-05_jprb/)  
kao( :, 3, 4, 5) = (/&
 & 2.3807e-04_jprb,2.2061e-04_jprb,1.9870e-04_jprb,1.7224e-04_jprb,1.4361e-04_jprb,1.1345e-04_jprb,&
 & 8.0170e-05_jprb,3.9940e-05_jprb,4.2610e-05_jprb/)  
kao( :, 4, 4, 5) = (/&
 & 2.4662e-04_jprb,2.3181e-04_jprb,2.0905e-04_jprb,1.8202e-04_jprb,1.5268e-04_jprb,1.2186e-04_jprb,&
 & 8.8749e-05_jprb,3.2893e-05_jprb,6.1830e-05_jprb/)  

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


SUBROUTINE part4

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


kao( :, 5, 4, 5) = (/&
 & 2.5546e-04_jprb,2.4342e-04_jprb,2.2022e-04_jprb,1.9281e-04_jprb,1.6313e-04_jprb,1.3125e-04_jprb,&
 & 9.8124e-05_jprb,4.6973e-05_jprb,8.6084e-05_jprb/)  
kao( :, 1, 5, 5) = (/&
 & 2.0312e-04_jprb,1.8300e-04_jprb,1.6095e-04_jprb,1.3872e-04_jprb,1.1510e-04_jprb,8.6738e-05_jprb,&
 & 4.3892e-05_jprb,4.1155e-05_jprb,1.4610e-05_jprb/)  
kao( :, 2, 5, 5) = (/&
 & 2.1032e-04_jprb,1.9153e-04_jprb,1.7045e-04_jprb,1.4818e-04_jprb,1.2310e-04_jprb,9.5120e-05_jprb,&
 & 3.7530e-05_jprb,4.0109e-05_jprb,2.7956e-05_jprb/)  
kao( :, 3, 5, 5) = (/&
 & 2.1754e-04_jprb,2.0013e-04_jprb,1.8048e-04_jprb,1.5683e-04_jprb,1.3036e-04_jprb,1.0212e-04_jprb,&
 & 6.5559e-05_jprb,4.4646e-05_jprb,4.3990e-05_jprb/)  
kao( :, 4, 5, 5) = (/&
 & 2.2506e-04_jprb,2.1008e-04_jprb,1.8992e-04_jprb,1.6512e-04_jprb,1.3787e-04_jprb,1.0933e-04_jprb,&
 & 7.7878e-05_jprb,3.3941e-05_jprb,6.4638e-05_jprb/)  
kao( :, 5, 5, 5) = (/&
 & 2.3238e-04_jprb,2.2040e-04_jprb,1.9936e-04_jprb,1.7403e-04_jprb,1.4649e-04_jprb,1.1721e-04_jprb,&
 & 8.5745e-05_jprb,3.1943e-05_jprb,9.1486e-05_jprb/)  
kao( :, 1, 6, 5) = (/&
 & 1.8420e-04_jprb,1.6521e-04_jprb,1.4487e-04_jprb,1.2401e-04_jprb,1.0200e-04_jprb,5.1119e-05_jprb,&
 & 5.2764e-05_jprb,4.0912e-05_jprb,1.5202e-05_jprb/)  
kao( :, 2, 6, 5) = (/&
 & 1.9125e-04_jprb,1.7344e-04_jprb,1.5331e-04_jprb,1.3274e-04_jprb,1.1039e-04_jprb,8.3040e-05_jprb,&
 & 4.0684e-05_jprb,4.1198e-05_jprb,2.7867e-05_jprb/)  
kao( :, 3, 6, 5) = (/&
 & 1.9735e-04_jprb,1.8080e-04_jprb,1.6199e-04_jprb,1.4097e-04_jprb,1.1727e-04_jprb,9.0932e-05_jprb,&
 & 3.7180e-05_jprb,4.3495e-05_jprb,4.4553e-05_jprb/)  
kao( :, 4, 6, 5) = (/&
 & 2.0383e-04_jprb,1.8894e-04_jprb,1.7073e-04_jprb,1.4876e-04_jprb,1.2398e-04_jprb,9.7753e-05_jprb,&
 & 6.3121e-05_jprb,4.1277e-05_jprb,6.7315e-05_jprb/)  
kao( :, 5, 6, 5) = (/&
 & 2.1033e-04_jprb,1.9804e-04_jprb,1.7951e-04_jprb,1.5655e-04_jprb,1.3146e-04_jprb,1.0454e-04_jprb,&
 & 7.4462e-05_jprb,2.9067e-05_jprb,9.7382e-05_jprb/)  
kao( :, 1, 7, 5) = (/&
 & 1.6701e-04_jprb,1.4912e-04_jprb,1.3042e-04_jprb,1.1101e-04_jprb,8.9476e-05_jprb,4.0710e-05_jprb,&
 & 6.0855e-05_jprb,4.0116e-05_jprb,1.6644e-05_jprb/)  
kao( :, 2, 7, 5) = (/&
 & 1.7267e-04_jprb,1.5557e-04_jprb,1.3718e-04_jprb,1.1786e-04_jprb,9.7049e-05_jprb,4.9928e-05_jprb,&
 & 4.8787e-05_jprb,4.5062e-05_jprb,2.9556e-05_jprb/)  
kao( :, 3, 7, 5) = (/&
 & 1.7837e-04_jprb,1.6263e-04_jprb,1.4469e-04_jprb,1.2545e-04_jprb,1.0416e-04_jprb,7.8620e-05_jprb,&
 & 3.6425e-05_jprb,4.0796e-05_jprb,4.8760e-05_jprb/)  
kao( :, 4, 7, 5) = (/&
 & 1.8378e-04_jprb,1.6956e-04_jprb,1.5235e-04_jprb,1.3267e-04_jprb,1.1063e-04_jprb,8.6254e-05_jprb,&
 & 3.2851e-05_jprb,4.0620e-05_jprb,7.6055e-05_jprb/)  
kao( :, 5, 7, 5) = (/&
 & 1.8944e-04_jprb,1.7724e-04_jprb,1.6021e-04_jprb,1.4001e-04_jprb,1.1733e-04_jprb,9.2830e-05_jprb,&
 & 6.1065e-05_jprb,3.8081e-05_jprb,1.1312e-04_jprb/)  
kao( :, 1, 8, 5) = (/&
 & 1.5130e-04_jprb,1.3448e-04_jprb,1.1721e-04_jprb,9.9034e-05_jprb,5.7155e-05_jprb,4.5775e-05_jprb,&
 & 6.5418e-05_jprb,3.6348e-05_jprb,2.0483e-05_jprb/)  
kao( :, 2, 8, 5) = (/&
 & 1.5492e-04_jprb,1.3874e-04_jprb,1.2199e-04_jprb,1.0406e-04_jprb,8.3301e-05_jprb,3.7776e-05_jprb,&
 & 5.8525e-05_jprb,4.3657e-05_jprb,3.7683e-05_jprb/)  
kao( :, 3, 8, 5) = (/&
 & 1.6015e-04_jprb,1.4504e-04_jprb,1.2855e-04_jprb,1.1077e-04_jprb,9.0857e-05_jprb,4.6752e-05_jprb,&
 & 4.3822e-05_jprb,4.5900e-05_jprb,6.4480e-05_jprb/)  
kao( :, 4, 8, 5) = (/&
 & 1.6485e-04_jprb,1.5131e-04_jprb,1.3522e-04_jprb,1.1731e-04_jprb,9.7584e-05_jprb,7.3940e-05_jprb,&
 & 3.2766e-05_jprb,4.4537e-05_jprb,1.0397e-04_jprb/)  
kao( :, 5, 8, 5) = (/&
 & 1.6974e-04_jprb,1.5791e-04_jprb,1.4195e-04_jprb,1.2381e-04_jprb,1.0390e-04_jprb,8.1150e-05_jprb,&
 & 3.2012e-05_jprb,4.1555e-05_jprb,1.5936e-04_jprb/)  
kao( :, 1, 9, 5) = (/&
 & 1.3564e-04_jprb,1.2012e-04_jprb,1.0422e-04_jprb,8.6571e-05_jprb,3.4561e-05_jprb,5.5358e-05_jprb,&
 & 6.8138e-05_jprb,3.3996e-05_jprb,4.5162e-05_jprb/)  
kao( :, 2, 9, 5) = (/&
 & 1.3891e-04_jprb,1.2385e-04_jprb,1.0843e-04_jprb,9.1664e-05_jprb,5.0992e-05_jprb,4.2386e-05_jprb,&
 & 6.5806e-05_jprb,4.0485e-05_jprb,8.7517e-05_jprb/)  
kao( :, 3, 9, 5) = (/&
 & 1.4289e-04_jprb,1.2859e-04_jprb,1.1355e-04_jprb,9.7157e-05_jprb,7.7469e-05_jprb,3.4604e-05_jprb,&
 & 5.5697e-05_jprb,4.6781e-05_jprb,1.5660e-04_jprb/)  
kao( :, 4, 9, 5) = (/&
 & 1.4749e-04_jprb,1.3449e-04_jprb,1.1965e-04_jprb,1.0332e-04_jprb,8.5038e-05_jprb,4.3487e-05_jprb,&
 & 3.9087e-05_jprb,4.7631e-05_jprb,2.6232e-04_jprb/)  
kao( :, 5, 9, 5) = (/&
 & 1.5175e-04_jprb,1.4048e-04_jprb,1.2566e-04_jprb,1.0925e-04_jprb,9.1216e-05_jprb,6.9027e-05_jprb,&
 & 3.0570e-05_jprb,4.2818e-05_jprb,4.1578e-04_jprb/)  
kao( :, 1,10, 5) = (/&
 & 1.2050e-04_jprb,1.0644e-04_jprb,9.1895e-05_jprb,5.4223e-05_jprb,4.2282e-05_jprb,7.1662e-05_jprb,&
 & 7.3849e-05_jprb,3.1216e-05_jprb,1.2336e-04_jprb/)  
kao( :, 2,10, 5) = (/&
 & 1.2385e-04_jprb,1.1007e-04_jprb,9.5885e-05_jprb,7.9074e-05_jprb,3.2785e-05_jprb,5.1790e-05_jprb,&
 & 7.0330e-05_jprb,3.8106e-05_jprb,2.4914e-04_jprb/)  
kao( :, 3,10, 5) = (/&
 & 1.2701e-04_jprb,1.1389e-04_jprb,1.0009e-04_jprb,8.4859e-05_jprb,4.3697e-05_jprb,3.8515e-05_jprb,&
 & 6.4563e-05_jprb,4.6857e-05_jprb,4.6353e-04_jprb/)  
kao( :, 4,10, 5) = (/&
 & 1.3108e-04_jprb,1.1889e-04_jprb,1.0547e-04_jprb,9.0382e-05_jprb,7.1811e-05_jprb,3.1846e-05_jprb,&
 & 5.3076e-05_jprb,4.9334e-05_jprb,8.0273e-04_jprb/)  
kao( :, 5,10, 5) = (/&
 & 1.3517e-04_jprb,1.2455e-04_jprb,1.1096e-04_jprb,9.6119e-05_jprb,7.9300e-05_jprb,3.9467e-05_jprb,&
 & 3.6989e-05_jprb,4.6816e-05_jprb,1.3114e-03_jprb/)  
kao( :, 1,11, 5) = (/&
 & 1.0765e-04_jprb,9.5133e-05_jprb,8.1740e-05_jprb,2.9684e-05_jprb,4.4771e-05_jprb,7.3844e-05_jprb,&
 & 7.4458e-05_jprb,3.2353e-05_jprb,1.7556e-04_jprb/)  
kao( :, 2,11, 5) = (/&
 & 1.1086e-04_jprb,9.8643e-05_jprb,8.5755e-05_jprb,6.3950e-05_jprb,3.5072e-05_jprb,5.6362e-05_jprb,&
 & 7.3811e-05_jprb,3.7974e-05_jprb,3.5513e-04_jprb/)  
kao( :, 3,11, 5) = (/&
 & 1.1390e-04_jprb,1.0226e-04_jprb,8.9873e-05_jprb,7.5337e-05_jprb,2.7488e-05_jprb,4.0668e-05_jprb,&
 & 6.6695e-05_jprb,4.8469e-05_jprb,6.6195e-04_jprb/)  
kao( :, 4,11, 5) = (/&
 & 1.1768e-04_jprb,1.0695e-04_jprb,9.4758e-05_jprb,8.0812e-05_jprb,5.6203e-05_jprb,3.0959e-05_jprb,&
 & 5.4960e-05_jprb,5.2325e-05_jprb,1.1500e-03_jprb/)  
kao( :, 5,11, 5) = (/&
 & 1.2143e-04_jprb,1.1200e-04_jprb,9.9665e-05_jprb,8.6317e-05_jprb,7.0507e-05_jprb,2.8241e-05_jprb,&
 & 4.0108e-05_jprb,4.7823e-05_jprb,1.8824e-03_jprb/)  
kao( :, 1,12, 5) = (/&
 & 9.5550e-05_jprb,8.4510e-05_jprb,7.2433e-05_jprb,2.4695e-05_jprb,4.1319e-05_jprb,6.8965e-05_jprb,&
 & 7.5836e-05_jprb,3.3972e-05_jprb,1.8803e-04_jprb/)  
kao( :, 2,12, 5) = (/&
 & 9.8585e-05_jprb,8.7816e-05_jprb,7.6262e-05_jprb,5.0625e-05_jprb,3.2099e-05_jprb,5.2909e-05_jprb,&
 & 7.1285e-05_jprb,4.2092e-05_jprb,3.8071e-04_jprb/)  
kao( :, 3,12, 5) = (/&
 & 1.0170e-04_jprb,9.1397e-05_jprb,8.0291e-05_jprb,6.6609e-05_jprb,2.6053e-05_jprb,3.8656e-05_jprb,&
 & 6.2061e-05_jprb,5.0288e-05_jprb,7.1091e-04_jprb/)  
kao( :, 4,12, 5) = (/&
 & 1.0532e-04_jprb,9.5859e-05_jprb,8.4741e-05_jprb,7.2190e-05_jprb,4.4571e-05_jprb,2.9606e-05_jprb,&
 & 5.1144e-05_jprb,5.0950e-05_jprb,1.2367e-03_jprb/)  
kao( :, 5,12, 5) = (/&
 & 1.0873e-04_jprb,1.0026e-04_jprb,8.9123e-05_jprb,7.7100e-05_jprb,6.2475e-05_jprb,2.4044e-05_jprb,&
 & 3.7811e-05_jprb,4.5929e-05_jprb,2.0278e-03_jprb/)  
kao( :, 1,13, 5) = (/&
 & 8.4205e-05_jprb,7.4539e-05_jprb,6.3467e-05_jprb,2.3538e-05_jprb,3.8325e-05_jprb,6.4275e-05_jprb,&
 & 7.5533e-05_jprb,3.5671e-05_jprb,1.6223e-04_jprb/)  
kao( :, 2,13, 5) = (/&
 & 8.7134e-05_jprb,7.7658e-05_jprb,6.7263e-05_jprb,3.8163e-05_jprb,2.9276e-05_jprb,4.8144e-05_jprb,&
 & 6.6883e-05_jprb,4.5962e-05_jprb,3.2881e-04_jprb/)  
kao( :, 3,13, 5) = (/&
 & 9.0177e-05_jprb,8.1122e-05_jprb,7.1136e-05_jprb,5.8053e-05_jprb,2.4699e-05_jprb,3.6684e-05_jprb,&
 & 5.7406e-05_jprb,5.0678e-05_jprb,6.1498e-04_jprb/)  
kao( :, 4,13, 5) = (/&
 & 9.3566e-05_jprb,8.5217e-05_jprb,7.5208e-05_jprb,6.3816e-05_jprb,3.3862e-05_jprb,2.8346e-05_jprb,&
 & 4.7321e-05_jprb,4.6618e-05_jprb,1.0717e-03_jprb/)  
kao( :, 5,13, 5) = (/&
 & 9.6738e-05_jprb,8.9098e-05_jprb,7.9178e-05_jprb,6.8356e-05_jprb,5.4471e-05_jprb,2.2350e-05_jprb,&
 & 3.5198e-05_jprb,4.4559e-05_jprb,1.7596e-03_jprb/)  
kao( :, 1, 1, 6) = (/&
 & 3.5218e-04_jprb,3.2067e-04_jprb,2.8542e-04_jprb,2.4691e-04_jprb,2.0715e-04_jprb,1.6430e-04_jprb,&
 & 1.1630e-04_jprb,3.0602e-05_jprb,2.2334e-05_jprb/)  
kao( :, 2, 1, 6) = (/&
 & 3.6703e-04_jprb,3.3779e-04_jprb,3.0330e-04_jprb,2.6523e-04_jprb,2.2344e-04_jprb,1.7999e-04_jprb,&
 & 1.3446e-04_jprb,5.1639e-05_jprb,3.3226e-05_jprb/)  
kao( :, 3, 1, 6) = (/&
 & 3.8585e-04_jprb,3.5978e-04_jprb,3.2593e-04_jprb,2.8711e-04_jprb,2.4473e-04_jprb,2.0196e-04_jprb,&
 & 1.5783e-04_jprb,1.0327e-04_jprb,6.5420e-05_jprb/)  
kao( :, 4, 1, 6) = (/&
 & 4.0907e-04_jprb,3.8577e-04_jprb,3.5450e-04_jprb,3.1632e-04_jprb,2.7470e-04_jprb,2.3182e-04_jprb,&
 & 1.8685e-04_jprb,1.3638e-04_jprb,1.1847e-04_jprb/)  
kao( :, 5, 1, 6) = (/&
 & 4.3737e-04_jprb,4.1878e-04_jprb,3.9158e-04_jprb,3.5534e-04_jprb,3.1369e-04_jprb,2.6894e-04_jprb,&
 & 2.2111e-04_jprb,1.7023e-04_jprb,1.6126e-04_jprb/)  
kao( :, 1, 2, 6) = (/&
 & 3.3988e-04_jprb,3.0828e-04_jprb,2.7319e-04_jprb,2.3566e-04_jprb,1.9671e-04_jprb,1.5488e-04_jprb,&
 & 1.0656e-04_jprb,2.4639e-05_jprb,2.0135e-05_jprb/)  
kao( :, 2, 2, 6) = (/&
 & 3.5074e-04_jprb,3.2145e-04_jprb,2.8720e-04_jprb,2.5072e-04_jprb,2.1014e-04_jprb,1.6733e-04_jprb,&
 & 1.2121e-04_jprb,3.9180e-05_jprb,2.9901e-05_jprb/)  
kao( :, 3, 2, 6) = (/&
 & 3.6475e-04_jprb,3.3829e-04_jprb,3.0546e-04_jprb,2.6776e-04_jprb,2.2592e-04_jprb,1.8277e-04_jprb,&
 & 1.3792e-04_jprb,7.3527e-05_jprb,6.9892e-05_jprb/)  
kao( :, 4, 2, 6) = (/&
 & 3.8225e-04_jprb,3.5820e-04_jprb,3.2688e-04_jprb,2.8858e-04_jprb,2.4665e-04_jprb,2.0403e-04_jprb,&
 & 1.5963e-04_jprb,1.1035e-04_jprb,1.0774e-04_jprb/)  
kao( :, 5, 2, 6) = (/&
 & 4.0273e-04_jprb,3.8268e-04_jprb,3.5304e-04_jprb,3.1570e-04_jprb,2.7513e-04_jprb,2.3154e-04_jprb,&
 & 1.8624e-04_jprb,1.3783e-04_jprb,1.4438e-04_jprb/)  
kao( :, 1, 3, 6) = (/&
 & 3.2586e-04_jprb,2.9354e-04_jprb,2.5840e-04_jprb,2.2211e-04_jprb,1.8493e-04_jprb,1.4459e-04_jprb,&
 & 9.3968e-05_jprb,2.6836e-05_jprb,1.7667e-05_jprb/)  
kao( :, 2, 3, 6) = (/&
 & 3.3335e-04_jprb,3.0322e-04_jprb,2.6938e-04_jprb,2.3450e-04_jprb,1.9584e-04_jprb,1.5458e-04_jprb,&
 & 1.0872e-04_jprb,2.7860e-05_jprb,4.2305e-05_jprb/)  
kao( :, 3, 3, 6) = (/&
 & 3.4307e-04_jprb,3.1560e-04_jprb,2.8356e-04_jprb,2.4811e-04_jprb,2.0859e-04_jprb,1.6657e-04_jprb,&
 & 1.2164e-04_jprb,4.3049e-05_jprb,7.4173e-05_jprb/)  
kao( :, 4, 3, 6) = (/&
 & 3.5510e-04_jprb,3.3067e-04_jprb,3.0030e-04_jprb,2.6396e-04_jprb,2.2347e-04_jprb,1.8094e-04_jprb,&
 & 1.3617e-04_jprb,8.0549e-05_jprb,1.0462e-04_jprb/)  
kao( :, 5, 3, 6) = (/&
 & 3.6934e-04_jprb,3.4886e-04_jprb,3.1925e-04_jprb,2.8285e-04_jprb,2.4246e-04_jprb,1.9904e-04_jprb,&
 & 1.5402e-04_jprb,1.0740e-04_jprb,1.4134e-04_jprb/)  
kao( :, 1, 4, 6) = (/&
 & 3.1202e-04_jprb,2.8003e-04_jprb,2.4507e-04_jprb,2.0972e-04_jprb,1.7365e-04_jprb,1.3503e-04_jprb,&
 & 5.8768e-05_jprb,2.9314e-05_jprb,2.4023e-05_jprb/)  
kao( :, 2, 4, 6) = (/&
 & 3.1813e-04_jprb,2.8791e-04_jprb,2.5394e-04_jprb,2.1965e-04_jprb,1.8377e-04_jprb,1.4389e-04_jprb,&
 & 9.7093e-05_jprb,2.3337e-05_jprb,5.0021e-05_jprb/)  
kao( :, 3, 4, 6) = (/&
 & 3.2483e-04_jprb,2.9675e-04_jprb,2.6510e-04_jprb,2.3175e-04_jprb,1.9444e-04_jprb,1.5360e-04_jprb,&
 & 1.0928e-04_jprb,3.0718e-05_jprb,7.6252e-05_jprb/)  
kao( :, 4, 4, 6) = (/&
 & 3.3350e-04_jprb,3.0829e-04_jprb,2.7872e-04_jprb,2.4437e-04_jprb,2.0593e-04_jprb,1.6469e-04_jprb,&
 & 1.2057e-04_jprb,4.4984e-05_jprb,1.0921e-04_jprb/)  
kao( :, 5, 4, 6) = (/&
 & 3.4440e-04_jprb,3.2288e-04_jprb,2.9368e-04_jprb,2.5882e-04_jprb,2.1958e-04_jprb,1.7772e-04_jprb,&
 & 1.3279e-04_jprb,8.3344e-05_jprb,1.5068e-04_jprb/)  
kao( :, 1, 5, 6) = (/&
 & 2.9770e-04_jprb,2.6568e-04_jprb,2.3231e-04_jprb,1.9760e-04_jprb,1.6264e-04_jprb,1.2501e-04_jprb,&
 & 5.2212e-05_jprb,2.7851e-05_jprb,2.9425e-05_jprb/)  
kao( :, 2, 5, 6) = (/&
 & 3.0341e-04_jprb,2.7316e-04_jprb,2.3988e-04_jprb,2.0612e-04_jprb,1.7178e-04_jprb,1.3444e-04_jprb,&
 & 6.8808e-05_jprb,2.4233e-05_jprb,5.0902e-05_jprb/)  
kao( :, 3, 5, 6) = (/&
 & 3.0855e-04_jprb,2.8044e-04_jprb,2.4851e-04_jprb,2.1615e-04_jprb,1.8164e-04_jprb,1.4300e-04_jprb,&
 & 9.8456e-05_jprb,2.2567e-05_jprb,7.8789e-05_jprb/)  
kao( :, 4, 5, 6) = (/&
 & 3.1479e-04_jprb,2.8896e-04_jprb,2.6020e-04_jprb,2.2793e-04_jprb,1.9183e-04_jprb,1.5203e-04_jprb,&
 & 1.0899e-04_jprb,3.3886e-05_jprb,1.1586e-04_jprb/)  
kao( :, 5, 5, 6) = (/&
 & 3.2275e-04_jprb,3.0062e-04_jprb,2.7287e-04_jprb,2.4005e-04_jprb,2.0243e-04_jprb,1.6230e-04_jprb,&
 & 1.1916e-04_jprb,4.8642e-05_jprb,1.6375e-04_jprb/)  
kao( :, 1, 6, 6) = (/&
 & 2.8451e-04_jprb,2.5278e-04_jprb,2.2028e-04_jprb,1.8707e-04_jprb,1.5294e-04_jprb,1.1368e-04_jprb,&
 & 5.1499e-05_jprb,2.2491e-05_jprb,2.9300e-05_jprb/)  
kao( :, 2, 6, 6) = (/&
 & 2.8818e-04_jprb,2.5756e-04_jprb,2.2592e-04_jprb,1.9305e-04_jprb,1.5960e-04_jprb,1.2358e-04_jprb,&
 & 4.9278e-05_jprb,2.8018e-05_jprb,5.0020e-05_jprb/)  
kao( :, 3, 6, 6) = (/&
 & 2.9308e-04_jprb,2.6479e-04_jprb,2.3342e-04_jprb,2.0176e-04_jprb,1.6837e-04_jprb,1.3278e-04_jprb,&
 & 7.5022e-05_jprb,2.4679e-05_jprb,7.9554e-05_jprb/)  
kao( :, 4, 6, 6) = (/&
 & 2.9797e-04_jprb,2.7171e-04_jprb,2.4252e-04_jprb,2.1130e-04_jprb,1.7798e-04_jprb,1.4080e-04_jprb,&
 & 9.8593e-05_jprb,2.6413e-05_jprb,1.2029e-04_jprb/)  
kao( :, 5, 6, 6) = (/&
 & 3.0385e-04_jprb,2.8038e-04_jprb,2.5320e-04_jprb,2.2231e-04_jprb,1.8746e-04_jprb,1.4953e-04_jprb,&
 & 1.0805e-04_jprb,3.4957e-05_jprb,1.7428e-04_jprb/)  
kao( :, 1, 7, 6) = (/&
 & 2.7154e-04_jprb,2.4047e-04_jprb,2.0869e-04_jprb,1.7653e-04_jprb,1.4316e-04_jprb,6.3076e-05_jprb,&
 & 5.3076e-05_jprb,1.8799e-05_jprb,2.9459e-05_jprb/)  
kao( :, 2, 7, 6) = (/&
 & 2.7322e-04_jprb,2.4322e-04_jprb,2.1245e-04_jprb,1.8113e-04_jprb,1.4876e-04_jprb,1.1194e-04_jprb,&
 & 4.9416e-05_jprb,2.1766e-05_jprb,5.1977e-05_jprb/)  
kao( :, 3, 7, 6) = (/&
 & 2.7795e-04_jprb,2.4940e-04_jprb,2.1931e-04_jprb,1.8853e-04_jprb,1.5632e-04_jprb,1.2173e-04_jprb,&
 & 4.3459e-05_jprb,2.7910e-05_jprb,8.5515e-05_jprb/)  
kao( :, 4, 7, 6) = (/&
 & 2.8245e-04_jprb,2.5609e-04_jprb,2.2726e-04_jprb,1.9695e-04_jprb,1.6467e-04_jprb,1.3028e-04_jprb,&
 & 8.3030e-05_jprb,3.1238e-05_jprb,1.3325e-04_jprb/)  
kao( :, 5, 7, 6) = (/&
 & 2.8703e-04_jprb,2.6318e-04_jprb,2.3595e-04_jprb,2.0579e-04_jprb,1.7351e-04_jprb,1.3813e-04_jprb,&
 & 9.7826e-05_jprb,2.9395e-05_jprb,1.9863e-04_jprb/)  
kao( :, 1, 8, 6) = (/&
 & 2.5666e-04_jprb,2.2665e-04_jprb,1.9623e-04_jprb,1.6528e-04_jprb,1.3188e-04_jprb,5.2672e-05_jprb,&
 & 5.4590e-05_jprb,1.5212e-05_jprb,3.5336e-05_jprb/)  
kao( :, 2, 8, 6) = (/&
 & 2.5871e-04_jprb,2.2976e-04_jprb,1.9987e-04_jprb,1.6976e-04_jprb,1.3838e-04_jprb,6.2293e-05_jprb,&
 & 5.1049e-05_jprb,2.0990e-05_jprb,6.5164e-05_jprb/)  
kao( :, 3, 8, 6) = (/&
 & 2.6131e-04_jprb,2.3354e-04_jprb,2.0472e-04_jprb,1.7542e-04_jprb,1.4479e-04_jprb,1.0936e-04_jprb,&
 & 4.3593e-05_jprb,2.7838e-05_jprb,1.1164e-04_jprb/)  
kao( :, 4, 8, 6) = (/&
 & 2.6597e-04_jprb,2.3972e-04_jprb,2.1214e-04_jprb,1.8293e-04_jprb,1.5207e-04_jprb,1.1872e-04_jprb,&
 & 4.2928e-05_jprb,2.9399e-05_jprb,1.8005e-04_jprb/)  
kao( :, 5, 8, 6) = (/&
 & 2.6965e-04_jprb,2.4602e-04_jprb,2.1946e-04_jprb,1.9059e-04_jprb,1.5945e-04_jprb,1.2678e-04_jprb,&
 & 8.1506e-05_jprb,3.0396e-05_jprb,2.7574e-04_jprb/)  
kao( :, 1, 9, 6) = (/&
 & 2.4051e-04_jprb,2.1191e-04_jprb,1.8318e-04_jprb,1.5348e-04_jprb,8.9740e-05_jprb,5.6443e-05_jprb,&
 & 5.8323e-05_jprb,1.3977e-05_jprb,7.8714e-05_jprb/)  
kao( :, 2, 9, 6) = (/&
 & 2.4280e-04_jprb,2.1514e-04_jprb,1.8659e-04_jprb,1.5766e-04_jprb,1.2621e-04_jprb,4.8115e-05_jprb,&
 & 5.1962e-05_jprb,1.8297e-05_jprb,1.5286e-04_jprb/)  
kao( :, 3, 9, 6) = (/&
 & 2.4480e-04_jprb,2.1809e-04_jprb,1.9044e-04_jprb,1.6238e-04_jprb,1.3286e-04_jprb,5.9719e-05_jprb,&
 & 4.7955e-05_jprb,2.2245e-05_jprb,2.7373e-04_jprb/)  
kao( :, 4, 9, 6) = (/&
 & 2.4800e-04_jprb,2.2255e-04_jprb,1.9613e-04_jprb,1.6836e-04_jprb,1.3908e-04_jprb,1.0477e-04_jprb,&
 & 3.9262e-05_jprb,3.1477e-05_jprb,4.5768e-04_jprb/)  
kao( :, 5, 9, 6) = (/&
 & 2.5161e-04_jprb,2.2818e-04_jprb,2.0281e-04_jprb,1.7515e-04_jprb,1.4598e-04_jprb,1.1469e-04_jprb,&
 & 3.6846e-05_jprb,3.4477e-05_jprb,7.2229e-04_jprb/)  
kao( :, 1,10, 6) = (/&
 & 2.2330e-04_jprb,1.9647e-04_jprb,1.6947e-04_jprb,1.4070e-04_jprb,5.0397e-05_jprb,6.4372e-05_jprb,&
 & 5.4119e-05_jprb,1.3671e-05_jprb,2.1819e-04_jprb/)  
kao( :, 2,10, 6) = (/&
 & 2.2579e-04_jprb,1.9970e-04_jprb,1.7289e-04_jprb,1.4528e-04_jprb,8.0532e-05_jprb,5.4367e-05_jprb,&
 & 6.0104e-05_jprb,1.5483e-05_jprb,4.4393e-04_jprb/)  
kao( :, 3,10, 6) = (/&
 & 2.2759e-04_jprb,2.0234e-04_jprb,1.7625e-04_jprb,1.4950e-04_jprb,1.1945e-04_jprb,4.4354e-05_jprb,&
 & 5.3052e-05_jprb,2.1110e-05_jprb,8.2682e-04_jprb/)  
kao( :, 4,10, 6) = (/&
 & 2.2922e-04_jprb,2.0521e-04_jprb,1.8016e-04_jprb,1.5410e-04_jprb,1.2582e-04_jprb,5.3486e-05_jprb,&
 & 4.4581e-05_jprb,2.9122e-05_jprb,1.4295e-03_jprb/)  
kao( :, 5,10, 6) = (/&
 & 2.3198e-04_jprb,2.0949e-04_jprb,1.8557e-04_jprb,1.5950e-04_jprb,1.3216e-04_jprb,9.8775e-05_jprb,&
 & 3.6643e-05_jprb,3.6794e-05_jprb,2.3221e-03_jprb/)  
kao( :, 1,11, 6) = (/&
 & 2.0583e-04_jprb,1.8127e-04_jprb,1.5633e-04_jprb,1.2776e-04_jprb,4.7811e-05_jprb,6.9737e-05_jprb,&
 & 5.8557e-05_jprb,1.2546e-05_jprb,3.1512e-04_jprb/)  

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


SUBROUTINE part5

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


kao( :, 2,11, 6) = (/&
 & 2.0808e-04_jprb,1.8417e-04_jprb,1.5959e-04_jprb,1.3341e-04_jprb,4.2960e-05_jprb,5.2587e-05_jprb,&
 & 6.0943e-05_jprb,1.7249e-05_jprb,6.4309e-04_jprb/)  
kao( :, 3,11, 6) = (/&
 & 2.0985e-04_jprb,1.8679e-04_jprb,1.6278e-04_jprb,1.3786e-04_jprb,1.0094e-04_jprb,4.2926e-05_jprb,&
 & 5.4000e-05_jprb,2.1438e-05_jprb,1.2009e-03_jprb/)  
kao( :, 4,11, 6) = (/&
 & 2.1113e-04_jprb,1.8931e-04_jprb,1.6638e-04_jprb,1.4208e-04_jprb,1.1471e-04_jprb,3.5997e-05_jprb,&
 & 4.5064e-05_jprb,2.9593e-05_jprb,2.0809e-03_jprb/)  
kao( :, 5,11, 6) = (/&
 & 2.1332e-04_jprb,1.9322e-04_jprb,1.7102e-04_jprb,1.4678e-04_jprb,1.2136e-04_jprb,7.6714e-05_jprb,&
 & 3.8255e-05_jprb,4.0077e-05_jprb,3.3932e-03_jprb/)  
kao( :, 1,12, 6) = (/&
 & 1.8719e-04_jprb,1.6501e-04_jprb,1.4226e-04_jprb,1.0840e-04_jprb,4.3551e-05_jprb,6.5135e-05_jprb,&
 & 6.0449e-05_jprb,1.2368e-05_jprb,3.4134e-04_jprb/)  
kao( :, 2,12, 6) = (/&
 & 1.8952e-04_jprb,1.6785e-04_jprb,1.4553e-04_jprb,1.2117e-04_jprb,3.5062e-05_jprb,4.8573e-05_jprb,&
 & 6.2841e-05_jprb,1.5474e-05_jprb,6.9803e-04_jprb/)  
kao( :, 3,12, 6) = (/&
 & 1.9118e-04_jprb,1.7048e-04_jprb,1.4865e-04_jprb,1.2583e-04_jprb,8.1862e-05_jprb,3.7617e-05_jprb,&
 & 5.3564e-05_jprb,2.1248e-05_jprb,1.3057e-03_jprb/)  
kao( :, 4,12, 6) = (/&
 & 1.9270e-04_jprb,1.7320e-04_jprb,1.5231e-04_jprb,1.2983e-04_jprb,1.0441e-04_jprb,3.3342e-05_jprb,&
 & 4.1959e-05_jprb,3.5845e-05_jprb,2.2690e-03_jprb/)  
kao( :, 5,12, 6) = (/&
 & 1.9518e-04_jprb,1.7738e-04_jprb,1.5684e-04_jprb,1.3457e-04_jprb,1.1104e-04_jprb,6.4947e-05_jprb,&
 & 3.5407e-05_jprb,4.3496e-05_jprb,3.7128e-03_jprb/)  
kao( :, 1,13, 6) = (/&
 & 1.6844e-04_jprb,1.4859e-04_jprb,1.2806e-04_jprb,8.6165e-05_jprb,4.0107e-05_jprb,6.0133e-05_jprb,&
 & 6.1357e-05_jprb,1.2763e-05_jprb,2.9734e-04_jprb/)  
kao( :, 2,13, 6) = (/&
 & 1.7069e-04_jprb,1.5140e-04_jprb,1.3134e-04_jprb,1.0891e-04_jprb,3.2613e-05_jprb,4.6872e-05_jprb,&
 & 6.0094e-05_jprb,1.5072e-05_jprb,6.0887e-04_jprb/)  
kao( :, 3,13, 6) = (/&
 & 1.7244e-04_jprb,1.5407e-04_jprb,1.3444e-04_jprb,1.1361e-04_jprb,6.4637e-05_jprb,3.4627e-05_jprb,&
 & 4.8765e-05_jprb,2.7303e-05_jprb,1.1416e-03_jprb/)  
kao( :, 4,13, 6) = (/&
 & 1.7422e-04_jprb,1.5702e-04_jprb,1.3806e-04_jprb,1.1756e-04_jprb,9.3337e-05_jprb,3.0148e-05_jprb,&
 & 3.8538e-05_jprb,4.2636e-05_jprb,1.9903e-03_jprb/)  
kao( :, 5,13, 6) = (/&
 & 1.7685e-04_jprb,1.6120e-04_jprb,1.4238e-04_jprb,1.2222e-04_jprb,1.0041e-04_jprb,5.2947e-05_jprb,&
 & 3.1886e-05_jprb,4.0330e-05_jprb,3.2638e-03_jprb/)  
kao( :, 1, 1, 7) = (/&
 & 4.3889e-04_jprb,3.9958e-04_jprb,3.5783e-04_jprb,3.1336e-04_jprb,2.6698e-04_jprb,2.1857e-04_jprb,&
 & 1.6424e-04_jprb,4.0399e-05_jprb,2.8247e-05_jprb/)  
kao( :, 2, 1, 7) = (/&
 & 4.5976e-04_jprb,4.2497e-04_jprb,3.8736e-04_jprb,3.4581e-04_jprb,3.0220e-04_jprb,2.5189e-04_jprb,&
 & 1.9631e-04_jprb,1.0954e-04_jprb,6.7630e-05_jprb/)  
kao( :, 3, 1, 7) = (/&
 & 4.8944e-04_jprb,4.6159e-04_jprb,4.2784e-04_jprb,3.8962e-04_jprb,3.4476e-04_jprb,2.9292e-04_jprb,&
 & 2.3514e-04_jprb,1.7014e-04_jprb,1.5365e-04_jprb/)  
kao( :, 4, 1, 7) = (/&
 & 5.2941e-04_jprb,5.1023e-04_jprb,4.7948e-04_jprb,4.4219e-04_jprb,3.9618e-04_jprb,3.4392e-04_jprb,&
 & 2.8630e-04_jprb,2.2387e-04_jprb,2.1803e-04_jprb/)  
kao( :, 5, 1, 7) = (/&
 & 5.7974e-04_jprb,5.6859e-04_jprb,5.4269e-04_jprb,5.0514e-04_jprb,4.6062e-04_jprb,4.1002e-04_jprb,&
 & 3.5338e-04_jprb,2.8599e-04_jprb,2.8983e-04_jprb/)  
kao( :, 1, 2, 7) = (/&
 & 4.2778e-04_jprb,3.8751e-04_jprb,3.4424e-04_jprb,2.9838e-04_jprb,2.5188e-04_jprb,2.0290e-04_jprb,&
 & 1.4875e-04_jprb,2.6658e-05_jprb,3.1573e-05_jprb/)  
kao( :, 2, 2, 7) = (/&
 & 4.4270e-04_jprb,4.0621e-04_jprb,3.6561e-04_jprb,3.2154e-04_jprb,2.7708e-04_jprb,2.2750e-04_jprb,&
 & 1.7305e-04_jprb,6.5324e-05_jprb,8.8564e-05_jprb/)  
kao( :, 3, 2, 7) = (/&
 & 4.6316e-04_jprb,4.3154e-04_jprb,3.9306e-04_jprb,3.5392e-04_jprb,3.0888e-04_jprb,2.5881e-04_jprb,&
 & 2.0328e-04_jprb,1.3652e-04_jprb,1.4781e-04_jprb/)  
kao( :, 4, 2, 7) = (/&
 & 4.8891e-04_jprb,4.6467e-04_jprb,4.3116e-04_jprb,3.9316e-04_jprb,3.4835e-04_jprb,2.9748e-04_jprb,&
 & 2.4237e-04_jprb,1.8240e-04_jprb,2.0533e-04_jprb/)  
kao( :, 5, 2, 7) = (/&
 & 5.2249e-04_jprb,5.0735e-04_jprb,4.7839e-04_jprb,4.4173e-04_jprb,3.9700e-04_jprb,3.4683e-04_jprb,&
 & 2.9289e-04_jprb,2.3410e-04_jprb,2.7363e-04_jprb/)  
kao( :, 1, 3, 7) = (/&
 & 4.1666e-04_jprb,3.7587e-04_jprb,3.3124e-04_jprb,2.8500e-04_jprb,2.3719e-04_jprb,1.8911e-04_jprb,&
 & 1.3261e-04_jprb,2.3452e-05_jprb,4.9343e-05_jprb/)  
kao( :, 2, 3, 7) = (/&
 & 4.2699e-04_jprb,3.8906e-04_jprb,3.4648e-04_jprb,3.0084e-04_jprb,2.5570e-04_jprb,2.0628e-04_jprb,&
 & 1.5092e-04_jprb,2.8713e-05_jprb,9.9198e-05_jprb/)  
kao( :, 3, 3, 7) = (/&
 & 4.4021e-04_jprb,4.0629e-04_jprb,3.6539e-04_jprb,3.2263e-04_jprb,2.7685e-04_jprb,2.2699e-04_jprb,&
 & 1.7257e-04_jprb,8.2898e-05_jprb,1.4682e-04_jprb/)  
kao( :, 4, 3, 7) = (/&
 & 4.5674e-04_jprb,4.2778e-04_jprb,3.8962e-04_jprb,3.4911e-04_jprb,3.0352e-04_jprb,2.5381e-04_jprb,&
 & 1.9998e-04_jprb,1.3835e-04_jprb,2.0520e-04_jprb/)  
kao( :, 5, 3, 7) = (/&
 & 4.7776e-04_jprb,4.5415e-04_jprb,4.2101e-04_jprb,3.8173e-04_jprb,3.3698e-04_jprb,2.8849e-04_jprb,&
 & 2.3510e-04_jprb,1.7936e-04_jprb,2.7654e-04_jprb/)  
kao( :, 1, 4, 7) = (/&
 & 4.0967e-04_jprb,3.6653e-04_jprb,3.2176e-04_jprb,2.7479e-04_jprb,2.2703e-04_jprb,1.7902e-04_jprb,&
 & 1.1570e-04_jprb,2.0026e-05_jprb,6.2716e-05_jprb/)  
kao( :, 2, 4, 7) = (/&
 & 4.1728e-04_jprb,3.7737e-04_jprb,3.3344e-04_jprb,2.8769e-04_jprb,2.4076e-04_jprb,1.9242e-04_jprb,&
 & 1.3658e-04_jprb,2.3923e-05_jprb,1.0107e-04_jprb/)  
kao( :, 3, 4, 7) = (/&
 & 4.2535e-04_jprb,3.8928e-04_jprb,3.4656e-04_jprb,3.0255e-04_jprb,2.5648e-04_jprb,2.0706e-04_jprb,&
 & 1.5237e-04_jprb,3.0608e-05_jprb,1.5048e-04_jprb/)  
kao( :, 4, 4, 7) = (/&
 & 4.3671e-04_jprb,4.0394e-04_jprb,3.6448e-04_jprb,3.2102e-04_jprb,2.7530e-04_jprb,2.2501e-04_jprb,&
 & 1.7081e-04_jprb,9.6060e-05_jprb,2.1454e-04_jprb/)  
kao( :, 5, 4, 7) = (/&
 & 4.4976e-04_jprb,4.2181e-04_jprb,3.8534e-04_jprb,3.4353e-04_jprb,2.9780e-04_jprb,2.4759e-04_jprb,&
 & 1.9471e-04_jprb,1.3517e-04_jprb,2.9601e-04_jprb/)  
kao( :, 1, 5, 7) = (/&
 & 4.0808e-04_jprb,3.6358e-04_jprb,3.1756e-04_jprb,2.7050e-04_jprb,2.2238e-04_jprb,1.7234e-04_jprb,&
 & 5.9731e-05_jprb,1.5183e-05_jprb,6.3144e-05_jprb/)  
kao( :, 2, 5, 7) = (/&
 & 4.1172e-04_jprb,3.6950e-04_jprb,3.2496e-04_jprb,2.7819e-04_jprb,2.3077e-04_jprb,1.8213e-04_jprb,&
 & 1.2446e-04_jprb,2.0194e-05_jprb,1.0232e-04_jprb/)  
kao( :, 3, 5, 7) = (/&
 & 4.1699e-04_jprb,3.7855e-04_jprb,3.3456e-04_jprb,2.8999e-04_jprb,2.4284e-04_jprb,1.9427e-04_jprb,&
 & 1.3989e-04_jprb,2.2013e-05_jprb,1.5619e-04_jprb/)  
kao( :, 4, 5, 7) = (/&
 & 4.2318e-04_jprb,3.8831e-04_jprb,3.4637e-04_jprb,3.0279e-04_jprb,2.5707e-04_jprb,2.0772e-04_jprb,&
 & 1.5350e-04_jprb,3.7923e-05_jprb,2.2888e-04_jprb/)  
kao( :, 5, 5, 7) = (/&
 & 4.3181e-04_jprb,3.9999e-04_jprb,3.6216e-04_jprb,3.1916e-04_jprb,2.7412e-04_jprb,2.2354e-04_jprb,&
 & 1.6943e-04_jprb,1.0257e-04_jprb,3.2402e-04_jprb/)  
kao( :, 1, 6, 7) = (/&
 & 4.0917e-04_jprb,3.6282e-04_jprb,3.1586e-04_jprb,2.6754e-04_jprb,2.1851e-04_jprb,1.6735e-04_jprb,&
 & 5.0306e-05_jprb,1.4647e-05_jprb,5.9838e-05_jprb/)  
kao( :, 2, 6, 7) = (/&
 & 4.0728e-04_jprb,3.6393e-04_jprb,3.1828e-04_jprb,2.7141e-04_jprb,2.2388e-04_jprb,1.7484e-04_jprb,&
 & 6.6257e-05_jprb,1.8734e-05_jprb,1.0066e-04_jprb/)  
kao( :, 3, 6, 7) = (/&
 & 4.1093e-04_jprb,3.6989e-04_jprb,3.2582e-04_jprb,2.7999e-04_jprb,2.3310e-04_jprb,1.8335e-04_jprb,&
 & 1.2803e-04_jprb,1.9091e-05_jprb,1.6014e-04_jprb/)  
kao( :, 4, 6, 7) = (/&
 & 4.1435e-04_jprb,3.7775e-04_jprb,3.3462e-04_jprb,2.9056e-04_jprb,2.4377e-04_jprb,1.9519e-04_jprb,&
 & 1.4167e-04_jprb,2.4651e-05_jprb,2.4320e-04_jprb/)  
kao( :, 5, 6, 7) = (/&
 & 4.1880e-04_jprb,3.8572e-04_jprb,3.4541e-04_jprb,3.0219e-04_jprb,2.5684e-04_jprb,2.0763e-04_jprb,&
 & 1.5383e-04_jprb,5.0012e-05_jprb,3.5512e-04_jprb/)  
kao( :, 1, 7, 7) = (/&
 & 4.0843e-04_jprb,3.6062e-04_jprb,3.1311e-04_jprb,2.6422e-04_jprb,2.1469e-04_jprb,1.5788e-04_jprb,&
 & 4.4260e-05_jprb,1.0477e-05_jprb,5.9419e-05_jprb/)  
kao( :, 2, 7, 7) = (/&
 & 4.0468e-04_jprb,3.5984e-04_jprb,3.1329e-04_jprb,2.6596e-04_jprb,2.1769e-04_jprb,1.6781e-04_jprb,&
 & 5.1786e-05_jprb,1.4646e-05_jprb,1.0524e-04_jprb/)  
kao( :, 3, 7, 7) = (/&
 & 4.0363e-04_jprb,3.6136e-04_jprb,3.1683e-04_jprb,2.7075e-04_jprb,2.2418e-04_jprb,1.7495e-04_jprb,&
 & 8.7540e-05_jprb,1.8041e-05_jprb,1.7514e-04_jprb/)  
kao( :, 4, 7, 7) = (/&
 & 4.0645e-04_jprb,3.6771e-04_jprb,3.2468e-04_jprb,2.8007e-04_jprb,2.3381e-04_jprb,1.8431e-04_jprb,&
 & 1.2997e-04_jprb,1.8283e-05_jprb,2.7663e-04_jprb/)  
kao( :, 5, 7, 7) = (/&
 & 4.0882e-04_jprb,3.7446e-04_jprb,3.3339e-04_jprb,2.9009e-04_jprb,2.4386e-04_jprb,1.9554e-04_jprb,&
 & 1.4307e-04_jprb,2.6104e-05_jprb,4.1561e-04_jprb/)  
kao( :, 1, 8, 7) = (/&
 & 4.0424e-04_jprb,3.5590e-04_jprb,3.0795e-04_jprb,2.5922e-04_jprb,2.0908e-04_jprb,7.0272e-05_jprb,&
 & 3.7437e-05_jprb,1.0693e-05_jprb,7.0148e-05_jprb/)  
kao( :, 2, 8, 7) = (/&
 & 3.9936e-04_jprb,3.5369e-04_jprb,3.0725e-04_jprb,2.5982e-04_jprb,2.1133e-04_jprb,1.5687e-04_jprb,&
 & 4.6834e-05_jprb,1.4067e-05_jprb,1.3163e-04_jprb/)  
kao( :, 3, 8, 7) = (/&
 & 3.9575e-04_jprb,3.5313e-04_jprb,3.0818e-04_jprb,2.6229e-04_jprb,2.1562e-04_jprb,1.6577e-04_jprb,&
 & 5.0426e-05_jprb,1.5328e-05_jprb,2.2983e-04_jprb/)  
kao( :, 4, 8, 7) = (/&
 & 3.9577e-04_jprb,3.5593e-04_jprb,3.1259e-04_jprb,2.6838e-04_jprb,2.2238e-04_jprb,1.7380e-04_jprb,&
 & 9.5405e-05_jprb,1.7738e-05_jprb,3.7526e-04_jprb/)  
kao( :, 5, 8, 7) = (/&
 & 3.9853e-04_jprb,3.6216e-04_jprb,3.2118e-04_jprb,2.7729e-04_jprb,2.3198e-04_jprb,1.8391e-04_jprb,&
 & 1.3140e-04_jprb,2.3100e-05_jprb,5.7971e-04_jprb/)  
kao( :, 1, 9, 7) = (/&
 & 3.9550e-04_jprb,3.4756e-04_jprb,2.9976e-04_jprb,2.5157e-04_jprb,2.0053e-04_jprb,6.3971e-05_jprb,&
 & 3.0992e-05_jprb,8.5618e-06_jprb,1.5177e-04_jprb/)  
kao( :, 2, 9, 7) = (/&
 & 3.9108e-04_jprb,3.4522e-04_jprb,2.9936e-04_jprb,2.5239e-04_jprb,2.0355e-04_jprb,7.9459e-05_jprb,&
 & 4.6168e-05_jprb,1.0069e-05_jprb,3.0222e-04_jprb/)  
kao( :, 3, 9, 7) = (/&
 & 3.8711e-04_jprb,3.4432e-04_jprb,2.9976e-04_jprb,2.5434e-04_jprb,2.0775e-04_jprb,1.5531e-04_jprb,&
 & 4.6577e-05_jprb,1.4628e-05_jprb,5.5112e-04_jprb/)  
kao( :, 4, 9, 7) = (/&
 & 3.8454e-04_jprb,3.4471e-04_jprb,3.0182e-04_jprb,2.5833e-04_jprb,2.1289e-04_jprb,1.6399e-04_jprb,&
 & 4.7735e-05_jprb,1.8317e-05_jprb,9.3434e-04_jprb/)  
kao( :, 5, 9, 7) = (/&
 & 3.8590e-04_jprb,3.4906e-04_jprb,3.0820e-04_jprb,2.6500e-04_jprb,2.1985e-04_jprb,1.7262e-04_jprb,&
 & 1.0739e-04_jprb,2.0046e-05_jprb,1.4932e-03_jprb/)  
kao( :, 1,10, 7) = (/&
 & 3.8145e-04_jprb,3.3484e-04_jprb,2.8824e-04_jprb,2.4073e-04_jprb,1.3749e-04_jprb,6.8864e-05_jprb,&
 & 1.3426e-05_jprb,5.4253e-06_jprb,4.2208e-04_jprb/)  
kao( :, 2,10, 7) = (/&
 & 3.7808e-04_jprb,3.3310e-04_jprb,2.8836e-04_jprb,2.4244e-04_jprb,1.9222e-04_jprb,5.4332e-05_jprb,&
 & 3.8318e-05_jprb,1.3544e-05_jprb,8.8420e-04_jprb/)  
kao( :, 3,10, 7) = (/&
 & 3.7522e-04_jprb,3.3290e-04_jprb,2.8933e-04_jprb,2.4468e-04_jprb,1.9821e-04_jprb,8.2625e-05_jprb,&
 & 4.6026e-05_jprb,1.3859e-05_jprb,1.6822e-03_jprb/)  
kao( :, 4,10, 7) = (/&
 & 3.7308e-04_jprb,3.3362e-04_jprb,2.9154e-04_jprb,2.4864e-04_jprb,2.0415e-04_jprb,1.5269e-04_jprb,&
 & 4.6983e-05_jprb,1.4205e-05_jprb,2.9547e-03_jprb/)  
kao( :, 5,10, 7) = (/&
 & 3.7174e-04_jprb,3.3554e-04_jprb,2.9552e-04_jprb,2.5392e-04_jprb,2.0969e-04_jprb,1.6270e-04_jprb,&
 & 4.1673e-05_jprb,1.7828e-05_jprb,4.8607e-03_jprb/)  
kao( :, 1,11, 7) = (/&
 & 3.6294e-04_jprb,3.1871e-04_jprb,2.7451e-04_jprb,2.2858e-04_jprb,8.3578e-05_jprb,6.1372e-05_jprb,&
 & 1.3364e-05_jprb,7.7912e-06_jprb,6.2992e-04_jprb/)  
kao( :, 2,11, 7) = (/&
 & 3.6112e-04_jprb,3.1852e-04_jprb,2.7580e-04_jprb,2.3178e-04_jprb,1.8037e-04_jprb,5.7295e-05_jprb,&
 & 4.0682e-05_jprb,1.2520e-05_jprb,1.3182e-03_jprb/)  
kao( :, 3,11, 7) = (/&
 & 3.5947e-04_jprb,3.1941e-04_jprb,2.7779e-04_jprb,2.3507e-04_jprb,1.9020e-04_jprb,4.7650e-05_jprb,&
 & 4.7645e-05_jprb,1.4087e-05_jprb,2.5064e-03_jprb/)  
kao( :, 4,11, 7) = (/&
 & 3.5796e-04_jprb,3.2062e-04_jprb,2.8056e-04_jprb,2.3967e-04_jprb,1.9644e-04_jprb,1.3235e-04_jprb,&
 & 4.6296e-05_jprb,1.5164e-05_jprb,4.4025e-03_jprb/)  
kao( :, 5,11, 7) = (/&
 & 3.5673e-04_jprb,3.2259e-04_jprb,2.8479e-04_jprb,2.4474e-04_jprb,2.0200e-04_jprb,1.5578e-04_jprb,&
 & 4.2752e-05_jprb,1.8894e-05_jprb,7.2340e-03_jprb/)  
kao( :, 1,12, 7) = (/&
 & 3.4280e-04_jprb,3.0118e-04_jprb,2.5967e-04_jprb,2.1631e-04_jprb,7.2200e-05_jprb,5.9727e-05_jprb,&
 & 3.2869e-05_jprb,5.5658e-06_jprb,7.0164e-04_jprb/)  
kao( :, 2,12, 7) = (/&
 & 3.4212e-04_jprb,3.0217e-04_jprb,2.6182e-04_jprb,2.2007e-04_jprb,1.6435e-04_jprb,5.4340e-05_jprb,&
 & 4.2800e-05_jprb,1.1130e-05_jprb,1.4668e-03_jprb/)  
kao( :, 3,12, 7) = (/&
 & 3.4134e-04_jprb,3.0369e-04_jprb,2.6435e-04_jprb,2.2391e-04_jprb,1.8076e-04_jprb,4.4282e-05_jprb,&
 & 4.6617e-05_jprb,1.2881e-05_jprb,2.7876e-03_jprb/)  
kao( :, 4,12, 7) = (/&
 & 3.4044e-04_jprb,3.0540e-04_jprb,2.6773e-04_jprb,2.2890e-04_jprb,1.8713e-04_jprb,1.1838e-04_jprb,&
 & 4.1381e-05_jprb,1.3556e-05_jprb,4.8923e-03_jprb/)  
kao( :, 5,12, 7) = (/&
 & 3.3969e-04_jprb,3.0785e-04_jprb,2.7216e-04_jprb,2.3387e-04_jprb,1.9308e-04_jprb,1.4819e-04_jprb,&
 & 3.8774e-05_jprb,2.3365e-05_jprb,8.0367e-03_jprb/)  
kao( :, 1,13, 7) = (/&
 & 3.2074e-04_jprb,2.8200e-04_jprb,2.4335e-04_jprb,2.0260e-04_jprb,5.9755e-05_jprb,5.5012e-05_jprb,&
 & 4.0916e-05_jprb,6.5979e-06_jprb,6.2734e-04_jprb/)  
kao( :, 2,13, 7) = (/&
 & 3.2081e-04_jprb,2.8371e-04_jprb,2.4601e-04_jprb,2.0672e-04_jprb,1.4264e-04_jprb,4.7131e-05_jprb,&
 & 4.6167e-05_jprb,1.0279e-05_jprb,1.3098e-03_jprb/)  
kao( :, 3,13, 7) = (/&
 & 3.2050e-04_jprb,2.8547e-04_jprb,2.4888e-04_jprb,2.1104e-04_jprb,1.6957e-04_jprb,3.8720e-05_jprb,&
 & 4.6164e-05_jprb,1.0646e-05_jprb,2.4868e-03_jprb/)  
kao( :, 4,13, 7) = (/&
 & 3.2004e-04_jprb,2.8761e-04_jprb,2.5261e-04_jprb,2.1602e-04_jprb,1.7644e-04_jprb,1.0425e-04_jprb,&
 & 3.7809e-05_jprb,1.7867e-05_jprb,4.3609e-03_jprb/)  
kao( :, 5,13, 7) = (/&
 & 3.1955e-04_jprb,2.9043e-04_jprb,2.5703e-04_jprb,2.2081e-04_jprb,1.8253e-04_jprb,1.3988e-04_jprb,&
 & 3.6793e-05_jprb,3.0837e-05_jprb,7.1735e-03_jprb/)  
kao( :, 1, 1, 8) = (/&
 & 5.6685e-04_jprb,5.1953e-04_jprb,4.6936e-04_jprb,4.1592e-04_jprb,3.5781e-04_jprb,2.9881e-04_jprb,&
 & 2.3721e-04_jprb,1.2965e-04_jprb,9.7553e-05_jprb/)  
kao( :, 2, 1, 8) = (/&
 & 6.1498e-04_jprb,5.7331e-04_jprb,5.2736e-04_jprb,4.7456e-04_jprb,4.1825e-04_jprb,3.6336e-04_jprb,&
 & 3.0181e-04_jprb,2.4017e-04_jprb,2.2948e-04_jprb/)  
kao( :, 3, 1, 8) = (/&
 & 6.7611e-04_jprb,6.4061e-04_jprb,6.0111e-04_jprb,5.5388e-04_jprb,5.0779e-04_jprb,4.5514e-04_jprb,&
 & 3.9223e-04_jprb,3.3256e-04_jprb,3.4276e-04_jprb/)  
kao( :, 4, 1, 8) = (/&
 & 7.5480e-04_jprb,7.2914e-04_jprb,7.0254e-04_jprb,6.6835e-04_jprb,6.2923e-04_jprb,5.7675e-04_jprb,&
 & 5.0673e-04_jprb,4.4275e-04_jprb,4.7133e-04_jprb/)  
kao( :, 5, 1, 8) = (/&
 & 8.5668e-04_jprb,8.5031e-04_jprb,8.3845e-04_jprb,8.1883e-04_jprb,7.8346e-04_jprb,7.2655e-04_jprb,&
 & 6.4693e-04_jprb,5.7765e-04_jprb,6.2516e-04_jprb/)  
kao( :, 1, 2, 8) = (/&
 & 5.4710e-04_jprb,4.9662e-04_jprb,4.4514e-04_jprb,3.9135e-04_jprb,3.3202e-04_jprb,2.7342e-04_jprb,&
 & 2.1062e-04_jprb,7.4193e-05_jprb,1.1449e-04_jprb/)  
kao( :, 2, 2, 8) = (/&
 & 5.7920e-04_jprb,5.3530e-04_jprb,4.8866e-04_jprb,4.3544e-04_jprb,3.7966e-04_jprb,3.2266e-04_jprb,&
 & 2.6099e-04_jprb,1.8962e-04_jprb,2.1819e-04_jprb/)  
kao( :, 3, 2, 8) = (/&
 & 6.1998e-04_jprb,5.8558e-04_jprb,5.4532e-04_jprb,4.9598e-04_jprb,4.4601e-04_jprb,3.9266e-04_jprb,&
 & 3.3270e-04_jprb,2.7330e-04_jprb,3.1544e-04_jprb/)  
kao( :, 4, 2, 8) = (/&
 & 6.7522e-04_jprb,6.5257e-04_jprb,6.1970e-04_jprb,5.8199e-04_jprb,5.3956e-04_jprb,4.8955e-04_jprb,&
 & 4.2848e-04_jprb,3.6701e-04_jprb,4.3346e-04_jprb/)  
kao( :, 5, 2, 8) = (/&
 & 7.4593e-04_jprb,7.3758e-04_jprb,7.2139e-04_jprb,6.9843e-04_jprb,6.6276e-04_jprb,6.1561e-04_jprb,&
 & 5.4954e-04_jprb,4.8184e-04_jprb,5.7913e-04_jprb/)  
kao( :, 1, 3, 8) = (/&
 & 5.3214e-04_jprb,4.7681e-04_jprb,4.2344e-04_jprb,3.6680e-04_jprb,3.0810e-04_jprb,2.4726e-04_jprb,&
 & 1.8453e-04_jprb,2.5084e-05_jprb,1.5128e-04_jprb/)  
kao( :, 2, 3, 8) = (/&
 & 5.5191e-04_jprb,5.0347e-04_jprb,4.5239e-04_jprb,3.9784e-04_jprb,3.4016e-04_jprb,2.8162e-04_jprb,&
 & 2.1920e-04_jprb,1.0464e-04_jprb,2.3348e-04_jprb/)  
kao( :, 3, 3, 8) = (/&
 & 5.7477e-04_jprb,5.3435e-04_jprb,4.8907e-04_jprb,4.3911e-04_jprb,3.8574e-04_jprb,3.2874e-04_jprb,&
 & 2.6890e-04_jprb,2.0489e-04_jprb,3.3684e-04_jprb/)  
kao( :, 4, 3, 8) = (/&
 & 6.0596e-04_jprb,5.7781e-04_jprb,5.4062e-04_jprb,4.9604e-04_jprb,4.4703e-04_jprb,3.9517e-04_jprb,&
 & 3.3938e-04_jprb,2.8379e-04_jprb,4.6834e-04_jprb/)  
kao( :, 5, 3, 8) = (/&
 & 6.4785e-04_jprb,6.3446e-04_jprb,6.0817e-04_jprb,5.7312e-04_jprb,5.3235e-04_jprb,4.8682e-04_jprb,&
 & 4.3334e-04_jprb,3.7597e-04_jprb,6.3257e-04_jprb/)  
kao( :, 1, 4, 8) = (/&
 & 5.3110e-04_jprb,4.7262e-04_jprb,4.1623e-04_jprb,3.5723e-04_jprb,2.9627e-04_jprb,2.3321e-04_jprb,&
 & 1.6340e-04_jprb,1.9895e-05_jprb,1.6136e-04_jprb/)  
kao( :, 2, 4, 8) = (/&
 & 5.4153e-04_jprb,4.8798e-04_jprb,4.3377e-04_jprb,3.7487e-04_jprb,3.1581e-04_jprb,2.5480e-04_jprb,&
 & 1.9036e-04_jprb,3.4588e-05_jprb,2.5102e-04_jprb/)  
kao( :, 3, 4, 8) = (/&
 & 5.5497e-04_jprb,5.0890e-04_jprb,4.5760e-04_jprb,4.0292e-04_jprb,3.4647e-04_jprb,2.8693e-04_jprb,&
 & 2.2354e-04_jprb,1.2964e-04_jprb,3.6989e-04_jprb/)  

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


SUBROUTINE part6

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


kao( :, 4, 4, 8) = (/&
 & 5.7139e-04_jprb,5.3494e-04_jprb,4.8805e-04_jprb,4.4096e-04_jprb,3.8626e-04_jprb,3.3033e-04_jprb,&
 & 2.7143e-04_jprb,2.1212e-04_jprb,5.2455e-04_jprb/)  
kao( :, 5, 4, 8) = (/&
 & 5.9415e-04_jprb,5.6860e-04_jprb,5.3306e-04_jprb,4.9025e-04_jprb,4.4085e-04_jprb,3.9152e-04_jprb,&
 & 3.3850e-04_jprb,2.8746e-04_jprb,7.1892e-04_jprb/)  
kao( :, 1, 5, 8) = (/&
 & 5.4290e-04_jprb,4.8021e-04_jprb,4.2005e-04_jprb,3.5773e-04_jprb,2.9361e-04_jprb,2.2840e-04_jprb,&
 & 1.2412e-04_jprb,1.6779e-05_jprb,1.6478e-04_jprb/)  
kao( :, 2, 5, 8) = (/&
 & 5.4234e-04_jprb,4.8521e-04_jprb,4.2730e-04_jprb,3.6655e-04_jprb,3.0462e-04_jprb,2.4081e-04_jprb,&
 & 1.7158e-04_jprb,2.4577e-05_jprb,2.6430e-04_jprb/)  
kao( :, 3, 5, 8) = (/&
 & 5.5176e-04_jprb,4.9971e-04_jprb,4.4439e-04_jprb,3.8473e-04_jprb,3.2493e-04_jprb,2.6199e-04_jprb,&
 & 1.9530e-04_jprb,5.1968e-05_jprb,4.0107e-04_jprb/)  
kao( :, 4, 5, 8) = (/&
 & 5.6082e-04_jprb,5.1698e-04_jprb,4.6451e-04_jprb,4.1055e-04_jprb,3.5125e-04_jprb,2.9127e-04_jprb,&
 & 2.2746e-04_jprb,1.4698e-04_jprb,5.8315e-04_jprb/)  
kao( :, 5, 5, 8) = (/&
 & 5.7193e-04_jprb,5.3856e-04_jprb,4.9143e-04_jprb,4.4154e-04_jprb,3.8661e-04_jprb,3.3087e-04_jprb,&
 & 2.7242e-04_jprb,2.1704e-04_jprb,8.1664e-04_jprb/)  
kao( :, 1, 6, 8) = (/&
 & 5.5933e-04_jprb,4.9291e-04_jprb,4.2842e-04_jprb,3.6305e-04_jprb,2.9613e-04_jprb,2.2724e-04_jprb,&
 & 5.3023e-05_jprb,1.5921e-05_jprb,1.6080e-04_jprb/)  
kao( :, 2, 6, 8) = (/&
 & 5.5265e-04_jprb,4.9132e-04_jprb,4.3026e-04_jprb,3.6705e-04_jprb,3.0202e-04_jprb,2.3616e-04_jprb,&
 & 1.5492e-04_jprb,1.7381e-05_jprb,2.6878e-04_jprb/)  
kao( :, 3, 6, 8) = (/&
 & 5.5383e-04_jprb,4.9775e-04_jprb,4.3880e-04_jprb,3.7661e-04_jprb,3.1407e-04_jprb,2.4921e-04_jprb,&
 & 1.7746e-04_jprb,2.2302e-05_jprb,4.2225e-04_jprb/)  
kao( :, 4, 6, 8) = (/&
 & 5.6178e-04_jprb,5.1138e-04_jprb,4.5491e-04_jprb,3.9556e-04_jprb,3.3327e-04_jprb,2.6812e-04_jprb,&
 & 2.0001e-04_jprb,6.4403e-05_jprb,6.3155e-04_jprb/)  
kao( :, 5, 6, 8) = (/&
 & 5.6806e-04_jprb,5.2664e-04_jprb,4.7387e-04_jprb,4.1708e-04_jprb,3.5623e-04_jprb,2.9443e-04_jprb,&
 & 2.3016e-04_jprb,1.5609e-04_jprb,9.0635e-04_jprb/)  
kao( :, 1, 7, 8) = (/&
 & 5.7912e-04_jprb,5.0929e-04_jprb,4.4052e-04_jprb,3.7179e-04_jprb,3.0169e-04_jprb,2.2904e-04_jprb,&
 & 3.6739e-05_jprb,9.8065e-06_jprb,1.6369e-04_jprb/)  
kao( :, 2, 7, 8) = (/&
 & 5.7054e-04_jprb,5.0526e-04_jprb,4.4059e-04_jprb,3.7406e-04_jprb,3.0610e-04_jprb,2.3585e-04_jprb,&
 & 6.5393e-05_jprb,1.3372e-05_jprb,2.8615e-04_jprb/)  
kao( :, 3, 7, 8) = (/&
 & 5.6399e-04_jprb,5.0435e-04_jprb,4.4269e-04_jprb,3.7826e-04_jprb,3.1294e-04_jprb,2.4573e-04_jprb,&
 & 1.6693e-04_jprb,2.0015e-05_jprb,4.6772e-04_jprb/)  
kao( :, 4, 7, 8) = (/&
 & 5.6580e-04_jprb,5.1086e-04_jprb,4.5119e-04_jprb,3.8935e-04_jprb,3.2489e-04_jprb,2.5799e-04_jprb,&
 & 1.8517e-04_jprb,2.1193e-05_jprb,7.2326e-04_jprb/)  
kao( :, 5, 7, 8) = (/&
 & 5.7198e-04_jprb,5.2353e-04_jprb,4.6732e-04_jprb,4.0650e-04_jprb,3.4261e-04_jprb,2.7564e-04_jprb,&
 & 2.0638e-04_jprb,8.3698e-05_jprb,1.0705e-03_jprb/)  
kao( :, 1, 8, 8) = (/&
 & 5.9871e-04_jprb,5.2574e-04_jprb,4.5363e-04_jprb,3.8151e-04_jprb,3.0818e-04_jprb,2.2816e-04_jprb,&
 & 3.1690e-05_jprb,9.1563e-06_jprb,1.9592e-04_jprb/)  
kao( :, 2, 8, 8) = (/&
 & 5.8942e-04_jprb,5.2019e-04_jprb,4.5182e-04_jprb,3.8232e-04_jprb,3.1150e-04_jprb,2.3688e-04_jprb,&
 & 4.4878e-05_jprb,1.3062e-05_jprb,3.5981e-04_jprb/)  
kao( :, 3, 8, 8) = (/&
 & 5.8144e-04_jprb,5.1705e-04_jprb,4.5231e-04_jprb,3.8496e-04_jprb,3.1600e-04_jprb,2.4571e-04_jprb,&
 & 1.0309e-04_jprb,1.4129e-05_jprb,6.1385e-04_jprb/)  
kao( :, 4, 8, 8) = (/&
 & 5.7448e-04_jprb,5.1610e-04_jprb,4.5471e-04_jprb,3.9018e-04_jprb,3.2457e-04_jprb,2.5556e-04_jprb,&
 & 1.7544e-04_jprb,1.7304e-05_jprb,9.8945e-04_jprb/)  
kao( :, 5, 8, 8) = (/&
 & 5.7483e-04_jprb,5.2262e-04_jprb,4.6340e-04_jprb,4.0220e-04_jprb,3.3597e-04_jprb,2.6696e-04_jprb,&
 & 1.9367e-04_jprb,2.4514e-05_jprb,1.5199e-03_jprb/)  
kao( :, 1, 9, 8) = (/&
 & 6.1652e-04_jprb,5.4081e-04_jprb,4.6545e-04_jprb,3.9056e-04_jprb,3.1379e-04_jprb,9.9114e-05_jprb,&
 & 1.3949e-05_jprb,3.9239e-06_jprb,4.2520e-04_jprb/)  
kao( :, 2, 9, 8) = (/&
 & 6.0629e-04_jprb,5.3376e-04_jprb,4.6202e-04_jprb,3.8990e-04_jprb,3.1655e-04_jprb,2.3544e-04_jprb,&
 & 3.7382e-05_jprb,8.6951e-06_jprb,8.3044e-04_jprb/)  
kao( :, 3, 9, 8) = (/&
 & 5.9694e-04_jprb,5.2858e-04_jprb,4.6094e-04_jprb,3.9128e-04_jprb,3.1984e-04_jprb,2.4585e-04_jprb,&
 & 4.7453e-05_jprb,1.1219e-05_jprb,1.4978e-03_jprb/)  
kao( :, 4, 9, 8) = (/&
 & 5.8812e-04_jprb,5.2540e-04_jprb,4.6162e-04_jprb,3.9424e-04_jprb,3.2635e-04_jprb,2.5585e-04_jprb,&
 & 1.3793e-04_jprb,1.5823e-05_jprb,2.5315e-03_jprb/)  
kao( :, 5, 9, 8) = (/&
 & 5.8094e-04_jprb,5.2489e-04_jprb,4.6409e-04_jprb,4.0156e-04_jprb,3.3516e-04_jprb,2.6461e-04_jprb,&
 & 1.8608e-04_jprb,1.9887e-05_jprb,4.0512e-03_jprb/)  
kao( :, 1,10, 8) = (/&
 & 6.2969e-04_jprb,5.5181e-04_jprb,4.7454e-04_jprb,3.9703e-04_jprb,3.1724e-04_jprb,6.5127e-05_jprb,&
 & 3.7452e-06_jprb,3.2741e-06_jprb,1.1769e-03_jprb/)  
kao( :, 2,10, 8) = (/&
 & 6.1957e-04_jprb,5.4459e-04_jprb,4.7029e-04_jprb,3.9585e-04_jprb,3.1968e-04_jprb,1.3041e-04_jprb,&
 & 2.4515e-05_jprb,7.2975e-06_jprb,2.4417e-03_jprb/)  
kao( :, 3,10, 8) = (/&
 & 6.0939e-04_jprb,5.3813e-04_jprb,4.6769e-04_jprb,3.9651e-04_jprb,3.2305e-04_jprb,2.4182e-04_jprb,&
 & 4.3807e-05_jprb,1.1783e-05_jprb,4.6287e-03_jprb/)  
kao( :, 4,10, 8) = (/&
 & 5.9955e-04_jprb,5.3329e-04_jprb,4.6744e-04_jprb,3.9835e-04_jprb,3.2790e-04_jprb,2.5437e-04_jprb,&
 & 4.6423e-05_jprb,1.1970e-05_jprb,8.1527e-03_jprb/)  
kao( :, 5,10, 8) = (/&
 & 5.9051e-04_jprb,5.3069e-04_jprb,4.6841e-04_jprb,4.0335e-04_jprb,3.3599e-04_jprb,2.6411e-04_jprb,&
 & 1.6905e-04_jprb,1.8347e-05_jprb,1.3511e-02_jprb/)  
kao( :, 1,11, 8) = (/&
 & 6.3270e-04_jprb,5.5469e-04_jprb,4.7693e-04_jprb,3.9917e-04_jprb,3.1669e-04_jprb,6.3388e-05_jprb,&
 & 3.6721e-06_jprb,3.2147e-07_jprb,1.7207e-03_jprb/)  
kao( :, 2,11, 8) = (/&
 & 6.2323e-04_jprb,5.4792e-04_jprb,4.7320e-04_jprb,3.9836e-04_jprb,3.2132e-04_jprb,8.3669e-05_jprb,&
 & 2.5421e-05_jprb,6.2024e-06_jprb,3.6065e-03_jprb/)  
kao( :, 3,11, 8) = (/&
 & 6.1343e-04_jprb,5.4174e-04_jprb,4.7120e-04_jprb,3.9965e-04_jprb,3.2524e-04_jprb,2.3807e-04_jprb,&
 & 4.5288e-05_jprb,1.1010e-05_jprb,6.9077e-03_jprb/)  
kao( :, 4,11, 8) = (/&
 & 6.0422e-04_jprb,5.3760e-04_jprb,4.7151e-04_jprb,4.0215e-04_jprb,3.3145e-04_jprb,2.5596e-04_jprb,&
 & 4.6438e-05_jprb,1.1046e-05_jprb,1.2276e-02_jprb/)  
kao( :, 5,11, 8) = (/&
 & 5.9513e-04_jprb,5.3553e-04_jprb,4.7292e-04_jprb,4.0786e-04_jprb,3.3977e-04_jprb,2.6645e-04_jprb,&
 & 1.3530e-04_jprb,1.8396e-05_jprb,2.0378e-02_jprb/)  
kao( :, 1,12, 8) = (/&
 & 6.3015e-04_jprb,5.5264e-04_jprb,4.7514e-04_jprb,3.9757e-04_jprb,3.1556e-04_jprb,6.0378e-05_jprb,&
 & 5.1686e-06_jprb,4.1217e-06_jprb,1.9089e-03_jprb/)  
kao( :, 2,12, 8) = (/&
 & 6.2156e-04_jprb,5.4661e-04_jprb,4.7228e-04_jprb,3.9794e-04_jprb,3.2115e-04_jprb,9.3459e-05_jprb,&
 & 3.5910e-05_jprb,6.9491e-06_jprb,4.0407e-03_jprb/)  
kao( :, 3,12, 8) = (/&
 & 6.1284e-04_jprb,5.4153e-04_jprb,4.7137e-04_jprb,3.9993e-04_jprb,3.2562e-04_jprb,2.3942e-04_jprb,&
 & 4.5459e-05_jprb,1.2207e-05_jprb,7.7972e-03_jprb/)  
kao( :, 4,12, 8) = (/&
 & 6.0431e-04_jprb,5.3827e-04_jprb,4.7217e-04_jprb,4.0315e-04_jprb,3.3297e-04_jprb,2.5722e-04_jprb,&
 & 4.4991e-05_jprb,1.1842e-05_jprb,1.3838e-02_jprb/)  
kao( :, 5,12, 8) = (/&
 & 5.9614e-04_jprb,5.3719e-04_jprb,4.7459e-04_jprb,4.0965e-04_jprb,3.4109e-04_jprb,2.6763e-04_jprb,&
 & 1.4327e-04_jprb,1.6122e-05_jprb,2.2897e-02_jprb/)  
kao( :, 1,13, 8) = (/&
 & 6.2067e-04_jprb,5.4442e-04_jprb,4.6829e-04_jprb,3.9206e-04_jprb,3.1059e-04_jprb,5.4570e-05_jprb,&
 & 2.5324e-05_jprb,1.9027e-06_jprb,1.7246e-03_jprb/)  
kao( :, 2,13, 8) = (/&
 & 6.1333e-04_jprb,5.3966e-04_jprb,4.6657e-04_jprb,3.9353e-04_jprb,3.1741e-04_jprb,1.0184e-04_jprb,&
 & 4.1822e-05_jprb,6.3468e-06_jprb,3.6765e-03_jprb/)  
kao( :, 3,13, 8) = (/&
 & 6.0610e-04_jprb,5.3617e-04_jprb,4.6704e-04_jprb,3.9622e-04_jprb,3.2317e-04_jprb,2.3665e-04_jprb,&
 & 4.5927e-05_jprb,1.1176e-05_jprb,7.0786e-03_jprb/)  
kao( :, 4,13, 8) = (/&
 & 5.9902e-04_jprb,5.3443e-04_jprb,4.6878e-04_jprb,4.0069e-04_jprb,3.3118e-04_jprb,2.5588e-04_jprb,&
 & 4.4674e-05_jprb,1.1239e-05_jprb,1.2524e-02_jprb/)  
kao( :, 5,13, 8) = (/&
 & 5.9234e-04_jprb,5.3454e-04_jprb,4.7242e-04_jprb,4.0791e-04_jprb,3.3951e-04_jprb,2.6646e-04_jprb,&
 & 1.4670e-04_jprb,2.0921e-05_jprb,2.0681e-02_jprb/)  
kao( :, 1, 1, 9) = (/&
 & 7.6730e-04_jprb,6.9533e-04_jprb,6.3435e-04_jprb,5.7755e-04_jprb,5.2747e-04_jprb,4.8127e-04_jprb,&
 & 4.6360e-04_jprb,4.7153e-04_jprb,5.0503e-04_jprb/)  
kao( :, 2, 1, 9) = (/&
 & 8.9446e-04_jprb,8.3145e-04_jprb,7.7791e-04_jprb,7.3079e-04_jprb,6.8158e-04_jprb,6.4054e-04_jprb,&
 & 6.4060e-04_jprb,6.7751e-04_jprb,7.4127e-04_jprb/)  
kao( :, 3, 1, 9) = (/&
 & 1.0839e-03_jprb,1.0326e-03_jprb,9.8910e-04_jprb,9.4874e-04_jprb,8.8995e-04_jprb,8.5059e-04_jprb,&
 & 8.6660e-04_jprb,9.3858e-04_jprb,1.0404e-03_jprb/)  
kao( :, 4, 1, 9) = (/&
 & 1.3392e-03_jprb,1.2976e-03_jprb,1.2617e-03_jprb,1.2187e-03_jprb,1.1503e-03_jprb,1.1142e-03_jprb,&
 & 1.1537e-03_jprb,1.2600e-03_jprb,1.4074e-03_jprb/)  
kao( :, 5, 1, 9) = (/&
 & 1.6572e-03_jprb,1.6190e-03_jprb,1.5928e-03_jprb,1.5446e-03_jprb,1.4696e-03_jprb,1.4385e-03_jprb,&
 & 1.5029e-03_jprb,1.6559e-03_jprb,1.8563e-03_jprb/)  
kao( :, 1, 2, 9) = (/&
 & 7.2791e-04_jprb,6.5760e-04_jprb,5.9478e-04_jprb,5.3539e-04_jprb,4.8045e-04_jprb,4.2766e-04_jprb,&
 & 4.0009e-04_jprb,3.9735e-04_jprb,4.3728e-04_jprb/)  
kao( :, 2, 2, 9) = (/&
 & 8.1810e-04_jprb,7.5677e-04_jprb,7.0172e-04_jprb,6.5562e-04_jprb,6.0484e-04_jprb,5.6238e-04_jprb,&
 & 5.5650e-04_jprb,5.8260e-04_jprb,6.4861e-04_jprb/)  
kao( :, 3, 2, 9) = (/&
 & 9.5216e-04_jprb,9.0507e-04_jprb,8.6910e-04_jprb,8.3462e-04_jprb,7.8786e-04_jprb,7.5096e-04_jprb,&
 & 7.5914e-04_jprb,8.1646e-04_jprb,9.1827e-04_jprb/)  
kao( :, 4, 2, 9) = (/&
 & 1.1442e-03_jprb,1.1148e-03_jprb,1.1009e-03_jprb,1.0715e-03_jprb,1.0248e-03_jprb,9.9267e-04_jprb,&
 & 1.0179e-03_jprb,1.1078e-03_jprb,1.2541e-03_jprb/)  
kao( :, 5, 2, 9) = (/&
 & 1.3996e-03_jprb,1.3905e-03_jprb,1.3914e-03_jprb,1.3624e-03_jprb,1.3173e-03_jprb,1.2906e-03_jprb,&
 & 1.3365e-03_jprb,1.4703e-03_jprb,1.6733e-03_jprb/)  
kao( :, 1, 3, 9) = (/&
 & 6.9198e-04_jprb,6.2093e-04_jprb,5.5500e-04_jprb,4.9112e-04_jprb,4.2858e-04_jprb,3.6796e-04_jprb,&
 & 3.2243e-04_jprb,2.7068e-04_jprb,3.8445e-04_jprb/)  
kao( :, 2, 3, 9) = (/&
 & 7.4808e-04_jprb,6.8197e-04_jprb,6.2244e-04_jprb,5.6656e-04_jprb,5.0936e-04_jprb,4.6235e-04_jprb,&
 & 4.4533e-04_jprb,4.5718e-04_jprb,5.8212e-04_jprb/)  
kao( :, 3, 3, 9) = (/&
 & 8.2613e-04_jprb,7.7358e-04_jprb,7.3159e-04_jprb,6.8941e-04_jprb,6.4390e-04_jprb,6.1118e-04_jprb,&
 & 6.1390e-04_jprb,6.5687e-04_jprb,8.4097e-04_jprb/)  
kao( :, 4, 3, 9) = (/&
 & 9.3955e-04_jprb,9.0936e-04_jprb,8.9358e-04_jprb,8.6993e-04_jprb,8.3759e-04_jprb,8.1431e-04_jprb,&
 & 8.3330e-04_jprb,9.0689e-04_jprb,1.1736e-03_jprb/)  
kao( :, 5, 3, 9) = (/&
 & 1.1024e-03_jprb,1.1029e-03_jprb,1.1144e-03_jprb,1.1087e-03_jprb,1.0858e-03_jprb,1.0701e-03_jprb,&
 & 1.1102e-03_jprb,1.2203e-03_jprb,1.5855e-03_jprb/)  
kao( :, 1, 4, 9) = (/&
 & 6.9141e-04_jprb,6.1573e-04_jprb,5.4365e-04_jprb,4.7268e-04_jprb,4.0185e-04_jprb,3.3169e-04_jprb,&
 & 2.6484e-04_jprb,1.1941e-04_jprb,4.2525e-04_jprb/)  
kao( :, 2, 4, 9) = (/&
 & 7.1303e-04_jprb,6.4311e-04_jprb,5.7730e-04_jprb,5.1428e-04_jprb,4.4890e-04_jprb,3.8935e-04_jprb,&
 & 3.5277e-04_jprb,3.2803e-04_jprb,6.6098e-04_jprb/)  
kao( :, 3, 4, 9) = (/&
 & 7.6419e-04_jprb,7.0113e-04_jprb,6.4756e-04_jprb,5.8990e-04_jprb,5.3391e-04_jprb,4.9265e-04_jprb,&
 & 4.8275e-04_jprb,5.0730e-04_jprb,9.8045e-04_jprb/)  
kao( :, 4, 4, 9) = (/&
 & 8.2609e-04_jprb,7.8182e-04_jprb,7.4991e-04_jprb,7.1089e-04_jprb,6.7442e-04_jprb,6.5009e-04_jprb,&
 & 6.6146e-04_jprb,7.1854e-04_jprb,1.3938e-03_jprb/)  
kao( :, 5, 4, 9) = (/&
 & 9.1327e-04_jprb,9.0245e-04_jprb,8.9877e-04_jprb,8.8705e-04_jprb,8.7034e-04_jprb,8.6010e-04_jprb,&
 & 8.9180e-04_jprb,9.8101e-04_jprb,1.9118e-03_jprb/)  
kao( :, 1, 5, 9) = (/&
 & 7.1194e-04_jprb,6.3073e-04_jprb,5.5152e-04_jprb,4.7348e-04_jprb,3.9513e-04_jprb,3.1519e-04_jprb,&
 & 2.2983e-04_jprb,2.7452e-05_jprb,4.8453e-04_jprb/)  
kao( :, 2, 5, 9) = (/&
 & 7.1296e-04_jprb,6.3797e-04_jprb,5.6646e-04_jprb,4.9574e-04_jprb,4.2273e-04_jprb,3.5196e-04_jprb,&
 & 2.8944e-04_jprb,1.7242e-04_jprb,7.7671e-04_jprb/)  
kao( :, 3, 5, 9) = (/&
 & 7.3444e-04_jprb,6.6574e-04_jprb,6.0369e-04_jprb,5.3780e-04_jprb,4.7146e-04_jprb,4.1473e-04_jprb,&
 & 3.8369e-04_jprb,3.7633e-04_jprb,1.1824e-03_jprb/)  
kao( :, 4, 5, 9) = (/&
 & 7.7697e-04_jprb,7.1991e-04_jprb,6.7045e-04_jprb,6.1217e-04_jprb,5.6053e-04_jprb,5.2336e-04_jprb,&
 & 5.2023e-04_jprb,5.5862e-04_jprb,1.7181e-03_jprb/)  
kao( :, 5, 5, 9) = (/&
 & 8.2601e-04_jprb,7.9119e-04_jprb,7.6213e-04_jprb,7.3107e-04_jprb,6.9880e-04_jprb,6.8266e-04_jprb,&
 & 7.0503e-04_jprb,7.7701e-04_jprb,2.3991e-03_jprb/)  
kao( :, 1, 6, 9) = (/&
 & 7.4702e-04_jprb,6.5911e-04_jprb,5.7262e-04_jprb,4.8679e-04_jprb,4.0134e-04_jprb,3.1318e-04_jprb,&
 & 1.5461e-04_jprb,1.6758e-05_jprb,5.2688e-04_jprb/)  
kao( :, 2, 6, 9) = (/&
 & 7.4128e-04_jprb,6.5855e-04_jprb,5.7826e-04_jprb,4.9892e-04_jprb,4.1789e-04_jprb,3.3501e-04_jprb,&
 & 2.5184e-04_jprb,5.3936e-05_jprb,8.7850e-04_jprb/)  
kao( :, 3, 6, 9) = (/&
 & 7.3954e-04_jprb,6.6416e-04_jprb,5.9359e-04_jprb,5.2126e-04_jprb,4.4507e-04_jprb,3.7370e-04_jprb,&
 & 3.1408e-04_jprb,2.2236e-04_jprb,1.3809e-03_jprb/)  
kao( :, 4, 6, 9) = (/&
 & 7.5717e-04_jprb,6.9002e-04_jprb,6.2962e-04_jprb,5.6099e-04_jprb,4.9557e-04_jprb,4.3902e-04_jprb,&
 & 4.1006e-04_jprb,4.1489e-04_jprb,2.0655e-03_jprb/)  
kao( :, 5, 6, 9) = (/&
 & 7.8954e-04_jprb,7.3758e-04_jprb,6.8841e-04_jprb,6.3360e-04_jprb,5.8155e-04_jprb,5.4713e-04_jprb,&
 & 5.4922e-04_jprb,5.9986e-04_jprb,2.9589e-03_jprb/)  
kao( :, 1, 7, 9) = (/&
 & 7.9467e-04_jprb,6.9929e-04_jprb,6.0424e-04_jprb,5.1073e-04_jprb,4.1693e-04_jprb,3.2089e-04_jprb,&
 & 5.1325e-05_jprb,1.2122e-05_jprb,6.0259e-04_jprb/)  
kao( :, 2, 7, 9) = (/&
 & 7.8343e-04_jprb,6.9250e-04_jprb,6.0357e-04_jprb,5.1592e-04_jprb,4.2687e-04_jprb,3.3542e-04_jprb,&
 & 2.2592e-04_jprb,1.5976e-05_jprb,1.0502e-03_jprb/)  
kao( :, 3, 7, 9) = (/&
 & 7.7573e-04_jprb,6.9130e-04_jprb,6.0997e-04_jprb,5.2908e-04_jprb,4.4409e-04_jprb,3.5904e-04_jprb,&
 & 2.7616e-04_jprb,9.2965e-05_jprb,1.7102e-03_jprb/)  
kao( :, 4, 7, 9) = (/&
 & 7.7294e-04_jprb,6.9692e-04_jprb,6.2657e-04_jprb,5.4965e-04_jprb,4.7312e-04_jprb,3.9920e-04_jprb,&
 & 3.3903e-04_jprb,2.7602e-04_jprb,2.6319e-03_jprb/)  
kao( :, 5, 7, 9) = (/&
 & 7.8731e-04_jprb,7.2173e-04_jprb,6.5887e-04_jprb,5.9065e-04_jprb,5.2295e-04_jprb,4.6490e-04_jprb,&
 & 4.3618e-04_jprb,4.5346e-04_jprb,3.8668e-03_jprb/)  
kao( :, 1, 8, 9) = (/&
 & 8.5501e-04_jprb,7.5078e-04_jprb,6.4657e-04_jprb,5.4366e-04_jprb,4.4039e-04_jprb,3.3294e-04_jprb,&
 & 2.6688e-05_jprb,1.2258e-05_jprb,8.1286e-04_jprb/)  
kao( :, 2, 8, 9) = (/&
 & 8.4099e-04_jprb,7.4093e-04_jprb,6.4228e-04_jprb,5.4430e-04_jprb,4.4636e-04_jprb,3.4551e-04_jprb,&
 & 1.0468e-04_jprb,1.2830e-05_jprb,1.4923e-03_jprb/)  
kao( :, 3, 8, 9) = (/&
 & 8.2855e-04_jprb,7.3472e-04_jprb,6.4208e-04_jprb,5.5147e-04_jprb,4.5797e-04_jprb,3.6152e-04_jprb,&
 & 2.5538e-04_jprb,1.6241e-05_jprb,2.5369e-03_jprb/)  
kao( :, 4, 8, 9) = (/&
 & 8.1840e-04_jprb,7.3203e-04_jprb,6.4929e-04_jprb,5.6425e-04_jprb,4.7544e-04_jprb,3.8760e-04_jprb,&
 & 3.0236e-04_jprb,1.3733e-04_jprb,4.0371e-03_jprb/)  
kao( :, 5, 8, 9) = (/&
 & 8.1270e-04_jprb,7.3589e-04_jprb,6.6348e-04_jprb,5.8412e-04_jprb,5.0562e-04_jprb,4.2829e-04_jprb,&
 & 3.6616e-04_jprb,3.2564e-04_jprb,6.0900e-03_jprb/)  
kao( :, 1, 9, 9) = (/&
 & 9.2560e-04_jprb,8.1125e-04_jprb,6.9819e-04_jprb,5.8413e-04_jprb,4.7055e-04_jprb,3.5015e-04_jprb,&
 & 5.5500e-06_jprb,4.9629e-06_jprb,2.0290e-03_jprb/)  
kao( :, 2, 9, 9) = (/&
 & 9.1093e-04_jprb,8.0097e-04_jprb,6.9137e-04_jprb,5.8249e-04_jprb,4.7378e-04_jprb,3.6194e-04_jprb,&
 & 3.0062e-05_jprb,1.0842e-05_jprb,3.9531e-03_jprb/)  
kao( :, 3, 9, 9) = (/&
 & 8.9709e-04_jprb,7.9180e-04_jprb,6.8775e-04_jprb,5.8518e-04_jprb,4.8156e-04_jprb,3.7367e-04_jprb,&
 & 1.7999e-04_jprb,1.5619e-05_jprb,7.0405e-03_jprb/)  
kao( :, 4, 9, 9) = (/&
 & 8.8317e-04_jprb,7.8542e-04_jprb,6.8899e-04_jprb,5.9345e-04_jprb,4.9320e-04_jprb,3.9217e-04_jprb,&
 & 2.8412e-04_jprb,3.4988e-05_jprb,1.1630e-02_jprb/)  
kao( :, 5, 9, 9) = (/&
 & 8.7042e-04_jprb,7.8172e-04_jprb,6.9655e-04_jprb,6.0534e-04_jprb,5.1346e-04_jprb,4.2035e-04_jprb,&
 & 3.3049e-04_jprb,1.7732e-04_jprb,1.8084e-02_jprb/)  
kao( :, 1,10, 9) = (/&
 & 1.0020e-03_jprb,8.7768e-04_jprb,7.5453e-04_jprb,6.2994e-04_jprb,5.0369e-04_jprb,2.0029e-04_jprb,&
 & 4.8338e-06_jprb,1.1150e-06_jprb,6.1828e-03_jprb/)  
kao( :, 2,10, 9) = (/&
 & 9.8614e-04_jprb,8.6564e-04_jprb,7.4527e-04_jprb,6.2596e-04_jprb,5.0608e-04_jprb,3.8053e-04_jprb,&
 & 2.2407e-05_jprb,6.0753e-06_jprb,1.2701e-02_jprb/)  
kao( :, 3,10, 9) = (/&
 & 9.7041e-04_jprb,8.5442e-04_jprb,7.4008e-04_jprb,6.2563e-04_jprb,5.1190e-04_jprb,3.9299e-04_jprb,&
 & 5.6685e-05_jprb,1.0644e-05_jprb,2.3596e-02_jprb/)  
kao( :, 4,10, 9) = (/&
 & 9.5474e-04_jprb,8.4629e-04_jprb,7.3757e-04_jprb,6.3110e-04_jprb,5.2156e-04_jprb,4.0815e-04_jprb,&
 & 2.6069e-04_jprb,1.4418e-05_jprb,4.0339e-02_jprb/)  

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


SUBROUTINE part7

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


kao( :, 5,10, 9) = (/&
 & 9.3936e-04_jprb,8.3916e-04_jprb,7.4145e-04_jprb,6.4037e-04_jprb,5.3630e-04_jprb,4.3024e-04_jprb,&
 & 3.1815e-04_jprb,7.5689e-05_jprb,6.4528e-02_jprb/)  
kao( :, 1,11, 9) = (/&
 & 1.0733e-03_jprb,9.4010e-04_jprb,8.0821e-04_jprb,6.7481e-04_jprb,5.3993e-04_jprb,1.7304e-04_jprb,&
 & 4.5690e-06_jprb,1.0947e-06_jprb,9.5058e-03_jprb/)  
kao( :, 2,11, 9) = (/&
 & 1.0562e-03_jprb,9.2720e-04_jprb,7.9859e-04_jprb,6.7071e-04_jprb,5.4165e-04_jprb,4.0387e-04_jprb,&
 & 2.1514e-05_jprb,7.8378e-06_jprb,1.9538e-02_jprb/)  
kao( :, 3,11, 9) = (/&
 & 1.0391e-03_jprb,9.1541e-04_jprb,7.9272e-04_jprb,6.7016e-04_jprb,5.4829e-04_jprb,4.2037e-04_jprb,&
 & 4.6128e-05_jprb,1.0839e-05_jprb,3.6276e-02_jprb/)  
kao( :, 4,11, 9) = (/&
 & 1.0222e-03_jprb,9.0627e-04_jprb,7.9028e-04_jprb,6.7590e-04_jprb,5.5839e-04_jprb,4.3725e-04_jprb,&
 & 2.4358e-04_jprb,1.5967e-05_jprb,6.2057e-02_jprb/)  
kao( :, 5,11, 9) = (/&
 & 1.0062e-03_jprb,8.9870e-04_jprb,7.9417e-04_jprb,6.8540e-04_jprb,5.7395e-04_jprb,4.5941e-04_jprb,&
 & 3.3487e-04_jprb,5.8510e-05_jprb,9.9558e-02_jprb/)  
kao( :, 1,12, 9) = (/&
 & 1.1429e-03_jprb,1.0011e-03_jprb,8.6066e-04_jprb,7.1891e-04_jprb,5.7572e-04_jprb,2.3708e-04_jprb,&
 & 4.4567e-06_jprb,5.1497e-06_jprb,1.0798e-02_jprb/)  
kao( :, 2,12, 9) = (/&
 & 1.1252e-03_jprb,9.8802e-04_jprb,8.5145e-04_jprb,7.1518e-04_jprb,5.7793e-04_jprb,4.3517e-04_jprb,&
 & 2.8931e-05_jprb,1.3305e-05_jprb,2.2185e-02_jprb/)  
kao( :, 3,12, 9) = (/&
 & 1.1078e-03_jprb,9.7648e-04_jprb,8.4588e-04_jprb,7.1557e-04_jprb,5.8568e-04_jprb,4.5025e-04_jprb,&
 & 8.7797e-05_jprb,1.2058e-05_jprb,4.1218e-02_jprb/)  
kao( :, 4,12, 9) = (/&
 & 1.0907e-03_jprb,9.6728e-04_jprb,8.4415e-04_jprb,7.2188e-04_jprb,5.9608e-04_jprb,4.6749e-04_jprb,&
 & 2.9839e-04_jprb,1.3906e-05_jprb,7.0748e-02_jprb/)  
kao( :, 5,12, 9) = (/&
 & 1.0737e-03_jprb,9.5961e-04_jprb,8.4835e-04_jprb,7.3154e-04_jprb,6.1267e-04_jprb,4.9042e-04_jprb,&
 & 3.5775e-04_jprb,5.9229e-05_jprb,1.1398e-01_jprb/)  
kao( :, 1,13, 9) = (/&
 & 1.2093e-03_jprb,1.0592e-03_jprb,9.1069e-04_jprb,7.6104e-04_jprb,6.0998e-04_jprb,3.0141e-04_jprb,&
 & 8.4692e-06_jprb,3.6390e-06_jprb,9.7505e-03_jprb/)  
kao( :, 2,13, 9) = (/&
 & 1.1916e-03_jprb,1.0465e-03_jprb,9.0223e-04_jprb,7.5810e-04_jprb,6.1322e-04_jprb,4.6338e-04_jprb,&
 & 3.8957e-05_jprb,7.1625e-06_jprb,2.0045e-02_jprb/)  
kao( :, 3,13, 9) = (/&
 & 1.1742e-03_jprb,1.0355e-03_jprb,8.9704e-04_jprb,7.5964e-04_jprb,6.2169e-04_jprb,4.7851e-04_jprb,&
 & 1.3589e-04_jprb,1.1895e-05_jprb,3.7380e-02_jprb/)  
kao( :, 4,13, 9) = (/&
 & 1.1565e-03_jprb,1.0260e-03_jprb,8.9628e-04_jprb,7.6660e-04_jprb,6.3308e-04_jprb,4.9715e-04_jprb,&
 & 3.4150e-04_jprb,1.1060e-05_jprb,6.4458e-02_jprb/)  
kao( :, 5,13, 9) = (/&
 & 1.1382e-03_jprb,1.0180e-03_jprb,9.0061e-04_jprb,7.7706e-04_jprb,6.5089e-04_jprb,5.2149e-04_jprb,&
 & 3.8129e-04_jprb,5.9752e-05_jprb,1.0436e-01_jprb/)  
kao( :, 1, 1,10) = (/&
 & 9.4926e-04_jprb,8.5786e-04_jprb,8.1138e-04_jprb,7.6433e-04_jprb,7.2663e-04_jprb,7.8967e-04_jprb,&
 & 8.8787e-04_jprb,9.8903e-04_jprb,1.1026e-03_jprb/)  
kao( :, 2, 1,10) = (/&
 & 1.2390e-03_jprb,1.1300e-03_jprb,1.0621e-03_jprb,9.8809e-04_jprb,9.8084e-04_jprb,1.1153e-03_jprb,&
 & 1.2754e-03_jprb,1.4463e-03_jprb,1.6199e-03_jprb/)  
kao( :, 3, 1,10) = (/&
 & 1.6285e-03_jprb,1.4941e-03_jprb,1.4019e-03_jprb,1.3143e-03_jprb,1.3388e-03_jprb,1.5587e-03_jprb,&
 & 1.7963e-03_jprb,2.0319e-03_jprb,2.2893e-03_jprb/)  
kao( :, 4, 1,10) = (/&
 & 2.1075e-03_jprb,1.9429e-03_jprb,1.8233e-03_jprb,1.7260e-03_jprb,1.7987e-03_jprb,2.1195e-03_jprb,&
 & 2.4630e-03_jprb,2.8065e-03_jprb,3.1716e-03_jprb/)  
kao( :, 5, 1,10) = (/&
 & 2.6676e-03_jprb,2.4810e-03_jprb,2.3359e-03_jprb,2.2329e-03_jprb,2.3416e-03_jprb,2.7812e-03_jprb,&
 & 3.2550e-03_jprb,3.7334e-03_jprb,4.2210e-03_jprb/)  
kao( :, 1, 2,10) = (/&
 & 8.9025e-04_jprb,8.0274e-04_jprb,7.4274e-04_jprb,6.8609e-04_jprb,6.7102e-04_jprb,7.1742e-04_jprb,&
 & 7.9680e-04_jprb,8.7045e-04_jprb,9.7644e-04_jprb/)  
kao( :, 2, 2,10) = (/&
 & 1.1017e-03_jprb,1.0100e-03_jprb,9.5453e-04_jprb,8.9274e-04_jprb,8.8682e-04_jprb,1.0003e-03_jprb,&
 & 1.1309e-03_jprb,1.2737e-03_jprb,1.4319e-03_jprb/)  
kao( :, 3, 2,10) = (/&
 & 1.4395e-03_jprb,1.3424e-03_jprb,1.2619e-03_jprb,1.1931e-03_jprb,1.1956e-03_jprb,1.3885e-03_jprb,&
 & 1.5988e-03_jprb,1.8061e-03_jprb,2.0428e-03_jprb/)  
kao( :, 4, 2,10) = (/&
 & 1.8618e-03_jprb,1.7544e-03_jprb,1.6479e-03_jprb,1.5853e-03_jprb,1.5993e-03_jprb,1.8833e-03_jprb,&
 & 2.1846e-03_jprb,2.4927e-03_jprb,2.8370e-03_jprb/)  
kao( :, 5, 2,10) = (/&
 & 2.3686e-03_jprb,2.2486e-03_jprb,2.1364e-03_jprb,2.0670e-03_jprb,2.0882e-03_jprb,2.4685e-03_jprb,&
 & 2.8904e-03_jprb,3.3295e-03_jprb,3.7864e-03_jprb/)  
kao( :, 1, 3,10) = (/&
 & 8.4979e-04_jprb,7.6433e-04_jprb,6.9594e-04_jprb,6.3370e-04_jprb,5.8853e-04_jprb,5.9559e-04_jprb,&
 & 6.5667e-04_jprb,7.1533e-04_jprb,8.1217e-04_jprb/)  
kao( :, 2, 3,10) = (/&
 & 9.3603e-04_jprb,8.5921e-04_jprb,7.9338e-04_jprb,7.5508e-04_jprb,7.6062e-04_jprb,8.4114e-04_jprb,&
 & 9.4920e-04_jprb,1.0487e-03_jprb,1.2014e-03_jprb/)  
kao( :, 3, 3,10) = (/&
 & 1.1433e-03_jprb,1.0846e-03_jprb,1.0263e-03_jprb,9.9233e-04_jprb,1.0119e-03_jprb,1.1695e-03_jprb,&
 & 1.3351e-03_jprb,1.4995e-03_jprb,1.7286e-03_jprb/)  
kao( :, 4, 3,10) = (/&
 & 1.4720e-03_jprb,1.4093e-03_jprb,1.3576e-03_jprb,1.3122e-03_jprb,1.3394e-03_jprb,1.5776e-03_jprb,&
 & 1.8258e-03_jprb,2.0744e-03_jprb,2.3896e-03_jprb/)  
kao( :, 5, 3,10) = (/&
 & 1.8783e-03_jprb,1.8107e-03_jprb,1.7793e-03_jprb,1.7293e-03_jprb,1.7612e-03_jprb,2.0848e-03_jprb,&
 & 2.4329e-03_jprb,2.7873e-03_jprb,3.2122e-03_jprb/)  
kao( :, 1, 4,10) = (/&
 & 8.5598e-04_jprb,7.6200e-04_jprb,6.7698e-04_jprb,6.0274e-04_jprb,5.4143e-04_jprb,4.8510e-04_jprb,&
 & 5.0808e-04_jprb,5.4195e-04_jprb,7.2030e-04_jprb/)  
kao( :, 2, 4,10) = (/&
 & 8.7829e-04_jprb,7.9754e-04_jprb,7.2820e-04_jprb,6.8132e-04_jprb,6.4105e-04_jprb,6.7652e-04_jprb,&
 & 7.5328e-04_jprb,8.3000e-04_jprb,1.1216e-03_jprb/)  
kao( :, 3, 4,10) = (/&
 & 9.6941e-04_jprb,9.0019e-04_jprb,8.3950e-04_jprb,8.2706e-04_jprb,8.3972e-04_jprb,9.4956e-04_jprb,&
 & 1.0831e-03_jprb,1.2181e-03_jprb,1.6652e-03_jprb/)  
kao( :, 4, 4,10) = (/&
 & 1.1497e-03_jprb,1.1076e-03_jprb,1.0973e-03_jprb,1.0748e-03_jprb,1.1139e-03_jprb,1.3070e-03_jprb,&
 & 1.5051e-03_jprb,1.7091e-03_jprb,2.3798e-03_jprb/)  
kao( :, 5, 4,10) = (/&
 & 1.4423e-03_jprb,1.4228e-03_jprb,1.4377e-03_jprb,1.4117e-03_jprb,1.4741e-03_jprb,1.7577e-03_jprb,&
 & 2.0499e-03_jprb,2.3324e-03_jprb,3.2737e-03_jprb/)  
kao( :, 1, 5,10) = (/&
 & 8.8900e-04_jprb,7.8652e-04_jprb,6.9034e-04_jprb,5.9667e-04_jprb,5.1545e-04_jprb,4.4672e-04_jprb,&
 & 3.9522e-04_jprb,3.0801e-04_jprb,9.0832e-04_jprb/)  
kao( :, 2, 5,10) = (/&
 & 8.9256e-04_jprb,7.9933e-04_jprb,7.1388e-04_jprb,6.4679e-04_jprb,5.8953e-04_jprb,5.4566e-04_jprb,&
 & 5.8778e-04_jprb,6.2517e-04_jprb,1.4726e-03_jprb/)  
kao( :, 3, 5,10) = (/&
 & 9.1630e-04_jprb,8.3731e-04_jprb,7.6863e-04_jprb,7.3348e-04_jprb,7.0053e-04_jprb,7.6737e-04_jprb,&
 & 8.6212e-04_jprb,9.5439e-04_jprb,2.2518e-03_jprb/)  
kao( :, 4, 5,10) = (/&
 & 1.0039e-03_jprb,9.3325e-04_jprb,8.9498e-04_jprb,8.8178e-04_jprb,9.2025e-04_jprb,1.0734e-03_jprb,&
 & 1.2371e-03_jprb,1.3976e-03_jprb,3.3076e-03_jprb/)  
kao( :, 5, 5,10) = (/&
 & 1.1384e-03_jprb,1.1125e-03_jprb,1.1459e-03_jprb,1.1447e-03_jprb,1.2384e-03_jprb,1.4768e-03_jprb,&
 & 1.7232e-03_jprb,1.9621e-03_jprb,4.6582e-03_jprb/)  
kao( :, 1, 6,10) = (/&
 & 9.4887e-04_jprb,8.3839e-04_jprb,7.3102e-04_jprb,6.2493e-04_jprb,5.2042e-04_jprb,4.2275e-04_jprb,&
 & 3.3556e-04_jprb,3.4740e-06_jprb,1.1251e-03_jprb/)  
kao( :, 2, 6,10) = (/&
 & 9.3677e-04_jprb,8.3218e-04_jprb,7.3454e-04_jprb,6.4594e-04_jprb,5.6378e-04_jprb,4.9151e-04_jprb,&
 & 4.4994e-04_jprb,4.2597e-04_jprb,1.8832e-03_jprb/)  
kao( :, 3, 6,10) = (/&
 & 9.3921e-04_jprb,8.4673e-04_jprb,7.5957e-04_jprb,6.9636e-04_jprb,6.3706e-04_jprb,6.1057e-04_jprb,&
 & 6.7476e-04_jprb,7.3912e-04_jprb,2.9583e-03_jprb/)  
kao( :, 4, 6,10) = (/&
 & 9.5719e-04_jprb,8.7688e-04_jprb,8.1813e-04_jprb,7.7967e-04_jprb,7.5775e-04_jprb,8.5851e-04_jprb,&
 & 9.8609e-04_jprb,1.1121e-03_jprb,4.4273e-03_jprb/)  
kao( :, 5, 6,10) = (/&
 & 1.0294e-03_jprb,9.6457e-04_jprb,9.3753e-04_jprb,9.2588e-04_jprb,1.0133e-03_jprb,1.2038e-03_jprb,&
 & 1.4020e-03_jprb,1.6034e-03_jprb,6.3437e-03_jprb/)  
kao( :, 1, 7,10) = (/&
 & 1.0279e-03_jprb,9.0433e-04_jprb,7.8375e-04_jprb,6.6508e-04_jprb,5.4484e-04_jprb,4.2431e-04_jprb,&
 & 2.6888e-04_jprb,7.8015e-06_jprb,1.4588e-03_jprb/)  
kao( :, 2, 7,10) = (/&
 & 1.0083e-03_jprb,8.9241e-04_jprb,7.8172e-04_jprb,6.7204e-04_jprb,5.7124e-04_jprb,4.6914e-04_jprb,&
 & 3.6802e-04_jprb,8.6137e-05_jprb,2.5625e-03_jprb/)  
kao( :, 3, 7,10) = (/&
 & 9.9596e-04_jprb,8.9237e-04_jprb,7.9108e-04_jprb,7.0321e-04_jprb,6.1556e-04_jprb,5.3871e-04_jprb,&
 & 5.1518e-04_jprb,5.4052e-04_jprb,4.1805e-03_jprb/)  
kao( :, 4, 7,10) = (/&
 & 9.8826e-04_jprb,8.9639e-04_jprb,8.1334e-04_jprb,7.5573e-04_jprb,6.8824e-04_jprb,6.8183e-04_jprb,&
 & 7.7451e-04_jprb,8.6801e-04_jprb,6.4027e-03_jprb/)  
kao( :, 5, 7,10) = (/&
 & 1.0011e-03_jprb,9.2233e-04_jprb,8.6964e-04_jprb,8.2719e-04_jprb,8.3320e-04_jprb,9.6571e-04_jprb,&
 & 1.1203e-03_jprb,1.2853e-03_jprb,9.3461e-03_jprb/)  
kao( :, 1, 8,10) = (/&
 & 1.1125e-03_jprb,9.7475e-04_jprb,8.4628e-04_jprb,7.1245e-04_jprb,5.8223e-04_jprb,4.4955e-04_jprb,&
 & 1.2055e-05_jprb,1.4979e-05_jprb,2.2126e-03_jprb/)  
kao( :, 2, 8,10) = (/&
 & 1.0938e-03_jprb,9.6654e-04_jprb,8.3997e-04_jprb,7.1323e-04_jprb,5.9255e-04_jprb,4.7230e-04_jprb,&
 & 3.2313e-04_jprb,3.4269e-06_jprb,4.0836e-03_jprb/)  
kao( :, 3, 8,10) = (/&
 & 1.0758e-03_jprb,9.5487e-04_jprb,8.3741e-04_jprb,7.2643e-04_jprb,6.2166e-04_jprb,5.1323e-04_jprb,&
 & 4.2493e-04_jprb,3.0113e-04_jprb,6.9437e-03_jprb/)  
kao( :, 4, 8,10) = (/&
 & 1.0550e-03_jprb,9.4862e-04_jprb,8.4799e-04_jprb,7.6117e-04_jprb,6.7028e-04_jprb,5.9614e-04_jprb,&
 & 6.0166e-04_jprb,6.5642e-04_jprb,1.1024e-02_jprb/)  
kao( :, 5, 8,10) = (/&
 & 1.0393e-03_jprb,9.5089e-04_jprb,8.7866e-04_jprb,8.1224e-04_jprb,7.5400e-04_jprb,7.6815e-04_jprb,&
 & 8.8282e-04_jprb,1.0221e-03_jprb,1.6724e-02_jprb/)  
kao( :, 1, 9,10) = (/&
 & 1.2180e-03_jprb,1.0664e-03_jprb,9.2270e-04_jprb,7.7328e-04_jprb,6.2475e-04_jprb,4.6815e-04_jprb,&
 & 9.5178e-06_jprb,3.3772e-06_jprb,6.2846e-03_jprb/)  
kao( :, 2, 9,10) = (/&
 & 1.1921e-03_jprb,1.0498e-03_jprb,9.0635e-04_jprb,7.6682e-04_jprb,6.2317e-04_jprb,4.8406e-04_jprb,&
 & 8.3341e-05_jprb,3.8343e-06_jprb,1.2227e-02_jprb/)  
kao( :, 3, 9,10) = (/&
 & 1.1669e-03_jprb,1.0310e-03_jprb,8.9852e-04_jprb,7.6558e-04_jprb,6.4277e-04_jprb,5.2121e-04_jprb,&
 & 3.7666e-04_jprb,1.2040e-05_jprb,2.1734e-02_jprb/)  
kao( :, 4, 9,10) = (/&
 & 1.1470e-03_jprb,1.0235e-03_jprb,9.0044e-04_jprb,7.8767e-04_jprb,6.8183e-04_jprb,5.6489e-04_jprb,&
 & 4.9156e-04_jprb,4.5088e-04_jprb,3.6006e-02_jprb/)  
kao( :, 5, 9,10) = (/&
 & 1.1295e-03_jprb,1.0174e-03_jprb,9.1849e-04_jprb,8.2709e-04_jprb,7.3027e-04_jprb,6.6994e-04_jprb,&
 & 6.9088e-04_jprb,7.9186e-04_jprb,5.6162e-02_jprb/)  
kao( :, 1,10,10) = (/&
 & 1.3419e-03_jprb,1.1745e-03_jprb,1.0112e-03_jprb,8.4729e-04_jprb,6.7925e-04_jprb,4.9697e-04_jprb,&
 & 1.5254e-06_jprb,1.5343e-06_jprb,2.0999e-02_jprb/)  
kao( :, 2,10,10) = (/&
 & 1.3141e-03_jprb,1.1539e-03_jprb,9.9630e-04_jprb,8.3744e-04_jprb,6.7916e-04_jprb,5.1101e-04_jprb,&
 & 6.8452e-06_jprb,3.0451e-06_jprb,4.3024e-02_jprb/)  
kao( :, 3,10,10) = (/&
 & 1.2898e-03_jprb,1.1375e-03_jprb,9.8703e-04_jprb,8.3404e-04_jprb,6.8649e-04_jprb,5.3929e-04_jprb,&
 & 3.2626e-04_jprb,6.0173e-06_jprb,7.9885e-02_jprb/)  
kao( :, 4,10,10) = (/&
 & 1.2672e-03_jprb,1.1264e-03_jprb,9.8249e-04_jprb,8.4764e-04_jprb,7.1223e-04_jprb,5.7730e-04_jprb,&
 & 4.4171e-04_jprb,9.9896e-05_jprb,1.3680e-01_jprb/)  
kao( :, 5,10,10) = (/&
 & 1.2477e-03_jprb,1.1172e-03_jprb,9.9135e-04_jprb,8.7077e-04_jprb,7.4770e-04_jprb,6.3934e-04_jprb,&
 & 5.7696e-04_jprb,6.1656e-04_jprb,2.1952e-01_jprb/)  
kao( :, 1,11,10) = (/&
 & 1.4755e-03_jprb,1.2917e-03_jprb,1.1119e-03_jprb,9.3058e-04_jprb,7.4744e-04_jprb,5.5051e-04_jprb,&
 & 1.6522e-06_jprb,1.5412e-06_jprb,3.4475e-02_jprb/)  
kao( :, 2,11,10) = (/&
 & 1.4485e-03_jprb,1.2719e-03_jprb,1.0971e-03_jprb,9.2191e-04_jprb,7.4745e-04_jprb,5.7109e-04_jprb,&
 & 1.1696e-05_jprb,3.1243e-06_jprb,7.0850e-02_jprb/)  
kao( :, 3,11,10) = (/&
 & 1.4264e-03_jprb,1.2579e-03_jprb,1.0914e-03_jprb,9.2154e-04_jprb,7.5855e-04_jprb,5.9482e-04_jprb,&
 & 3.1605e-04_jprb,9.6309e-06_jprb,1.3183e-01_jprb/)  
kao( :, 4,11,10) = (/&
 & 1.4023e-03_jprb,1.2457e-03_jprb,1.0849e-03_jprb,9.3462e-04_jprb,7.7881e-04_jprb,6.1925e-04_jprb,&
 & 4.6174e-04_jprb,2.1053e-05_jprb,2.2597e-01_jprb/)  
kao( :, 5,11,10) = (/&
 & 1.3792e-03_jprb,1.2345e-03_jprb,1.0916e-03_jprb,9.5041e-04_jprb,8.0615e-04_jprb,6.7157e-04_jprb,&
 & 5.8929e-04_jprb,6.0215e-04_jprb,3.6233e-01_jprb/)  
kao( :, 1,12,10) = (/&
 & 1.6315e-03_jprb,1.4286e-03_jprb,1.2296e-03_jprb,1.0282e-03_jprb,8.2450e-04_jprb,6.1652e-04_jprb,&
 & 3.3057e-06_jprb,1.5465e-06_jprb,4.1474e-02_jprb/)  
kao( :, 2,12,10) = (/&
 & 1.6041e-03_jprb,1.4085e-03_jprb,1.2135e-03_jprb,1.0193e-03_jprb,8.2407e-04_jprb,6.2890e-04_jprb,&
 & 2.0154e-05_jprb,3.2488e-06_jprb,8.5418e-02_jprb/)  
kao( :, 3,12,10) = (/&
 & 1.5781e-03_jprb,1.3908e-03_jprb,1.2052e-03_jprb,1.0160e-03_jprb,8.3518e-04_jprb,6.5087e-04_jprb,&
 & 4.2444e-04_jprb,1.1529e-05_jprb,1.5881e-01_jprb/)  
kao( :, 4,12,10) = (/&
 & 1.5539e-03_jprb,1.3775e-03_jprb,1.1979e-03_jprb,1.0287e-03_jprb,8.5555e-04_jprb,6.7702e-04_jprb,&
 & 4.9760e-04_jprb,3.6698e-05_jprb,2.7219e-01_jprb/)  
kao( :, 5,12,10) = (/&
 & 1.5294e-03_jprb,1.3662e-03_jprb,1.2069e-03_jprb,1.0470e-03_jprb,8.8424e-04_jprb,7.2459e-04_jprb,&
 & 6.0457e-04_jprb,5.8830e-04_jprb,4.3580e-01_jprb/)  
kao( :, 1,13,10) = (/&
 & 1.8076e-03_jprb,1.5828e-03_jprb,1.3613e-03_jprb,1.1383e-03_jprb,9.1463e-04_jprb,6.8299e-04_jprb,&
 & 3.0458e-06_jprb,2.1473e-06_jprb,3.9495e-02_jprb/)  
kao( :, 2,13,10) = (/&
 & 1.7788e-03_jprb,1.5607e-03_jprb,1.3444e-03_jprb,1.1293e-03_jprb,9.1288e-04_jprb,6.9366e-04_jprb,&
 & 2.1339e-05_jprb,1.1723e-05_jprb,8.1294e-02_jprb/)  
kao( :, 3,13,10) = (/&
 & 1.7495e-03_jprb,1.5404e-03_jprb,1.3343e-03_jprb,1.1244e-03_jprb,9.2221e-04_jprb,7.1955e-04_jprb,&
 & 4.9268e-04_jprb,4.3370e-06_jprb,1.5101e-01_jprb/)  
kao( :, 4,13,10) = (/&
 & 1.7235e-03_jprb,1.5270e-03_jprb,1.3269e-03_jprb,1.1365e-03_jprb,9.4473e-04_jprb,7.4612e-04_jprb,&
 & 5.5227e-04_jprb,4.6866e-05_jprb,2.5856e-01_jprb/)  
kao( :, 5,13,10) = (/&
 & 1.6990e-03_jprb,1.5170e-03_jprb,1.3368e-03_jprb,1.1584e-03_jprb,9.7488e-04_jprb,7.9318e-04_jprb,&
 & 6.2728e-04_jprb,5.6960e-04_jprb,4.1354e-01_jprb/)  
kao( :, 1, 1,11) = (/&
 & 1.0196e-03_jprb,9.3758e-04_jprb,9.0316e-04_jprb,8.5667e-04_jprb,8.7577e-04_jprb,1.0236e-03_jprb,&
 & 1.1763e-03_jprb,1.3143e-03_jprb,1.4719e-03_jprb/)  
kao( :, 2, 1,11) = (/&
 & 1.3459e-03_jprb,1.2311e-03_jprb,1.1576e-03_jprb,1.1100e-03_jprb,1.2232e-03_jprb,1.4576e-03_jprb,&
 & 1.6924e-03_jprb,1.9154e-03_jprb,2.1488e-03_jprb/)  
kao( :, 3, 1,11) = (/&
 & 1.7777e-03_jprb,1.6234e-03_jprb,1.5128e-03_jprb,1.4437e-03_jprb,1.6918e-03_jprb,2.0373e-03_jprb,&
 & 2.3872e-03_jprb,2.7172e-03_jprb,3.0763e-03_jprb/)  
kao( :, 4, 1,11) = (/&
 & 2.2969e-03_jprb,2.1117e-03_jprb,1.9790e-03_jprb,1.9131e-03_jprb,2.3134e-03_jprb,2.7903e-03_jprb,&
 & 3.2537e-03_jprb,3.7099e-03_jprb,4.2069e-03_jprb/)  
kao( :, 5, 1,11) = (/&
 & 2.9364e-03_jprb,2.7064e-03_jprb,2.5487e-03_jprb,2.4995e-03_jprb,3.0802e-03_jprb,3.7340e-03_jprb,&
 & 4.3606e-03_jprb,4.9323e-03_jprb,5.6150e-03_jprb/)  
kao( :, 1, 2,11) = (/&
 & 9.5564e-04_jprb,8.6594e-04_jprb,8.2247e-04_jprb,7.8184e-04_jprb,7.7258e-04_jprb,8.9065e-04_jprb,&
 & 1.0177e-03_jprb,1.1498e-03_jprb,1.2899e-03_jprb/)  
kao( :, 2, 2,11) = (/&
 & 1.2029e-03_jprb,1.1043e-03_jprb,1.0479e-03_jprb,9.9924e-04_jprb,1.0917e-03_jprb,1.3015e-03_jprb,&
 & 1.5067e-03_jprb,1.7035e-03_jprb,1.9385e-03_jprb/)  
kao( :, 3, 2,11) = (/&
 & 1.5957e-03_jprb,1.4702e-03_jprb,1.3834e-03_jprb,1.3292e-03_jprb,1.5404e-03_jprb,1.8482e-03_jprb,&
 & 2.1587e-03_jprb,2.4595e-03_jprb,2.8087e-03_jprb/)  
kao( :, 4, 2,11) = (/&
 & 2.0836e-03_jprb,1.9269e-03_jprb,1.8210e-03_jprb,1.7577e-03_jprb,2.1115e-03_jprb,2.5490e-03_jprb,&
 & 2.9802e-03_jprb,3.4053e-03_jprb,3.8766e-03_jprb/)  
kao( :, 5, 2,11) = (/&
 & 2.6761e-03_jprb,2.4830e-03_jprb,2.3690e-03_jprb,2.3218e-03_jprb,2.8435e-03_jprb,3.4292e-03_jprb,&
 & 4.0478e-03_jprb,4.5913e-03_jprb,5.2765e-03_jprb/)  
kao( :, 1, 3,11) = (/&
 & 9.1098e-04_jprb,8.1971e-04_jprb,7.5453e-04_jprb,6.8955e-04_jprb,6.6573e-04_jprb,7.4366e-04_jprb,&
 & 8.3291e-04_jprb,9.1681e-04_jprb,1.0507e-03_jprb/)  
kao( :, 2, 3,11) = (/&
 & 1.0095e-03_jprb,9.2632e-04_jprb,8.7912e-04_jprb,8.5222e-04_jprb,9.1711e-04_jprb,1.0796e-03_jprb,&
 & 1.2384e-03_jprb,1.3937e-03_jprb,1.6031e-03_jprb/)  
kao( :, 3, 3,11) = (/&
 & 1.2860e-03_jprb,1.2005e-03_jprb,1.1448e-03_jprb,1.1224e-03_jprb,1.2896e-03_jprb,1.5406e-03_jprb,&
 & 1.7947e-03_jprb,2.0396e-03_jprb,2.3408e-03_jprb/)  
kao( :, 4, 3,11) = (/&
 & 1.6840e-03_jprb,1.5843e-03_jprb,1.5072e-03_jprb,1.4946e-03_jprb,1.7912e-03_jprb,2.1550e-03_jprb,&
 & 2.5174e-03_jprb,2.8934e-03_jprb,3.3321e-03_jprb/)  
kao( :, 5, 3,11) = (/&
 & 2.1821e-03_jprb,2.0586e-03_jprb,1.9862e-03_jprb,1.9857e-03_jprb,2.4329e-03_jprb,2.9479e-03_jprb,&
 & 3.4818e-03_jprb,3.9625e-03_jprb,4.5981e-03_jprb/)  
kao( :, 1, 4,11) = (/&
 & 9.1007e-04_jprb,8.1515e-04_jprb,7.4019e-04_jprb,6.6666e-04_jprb,6.0223e-04_jprb,6.1717e-04_jprb,&
 & 6.7688e-04_jprb,7.1358e-04_jprb,8.7370e-04_jprb/)  

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


SUBROUTINE part8

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


kao( :, 2, 4,11) = (/&
 & 9.4061e-04_jprb,8.5858e-04_jprb,8.0024e-04_jprb,7.4707e-04_jprb,7.7220e-04_jprb,8.8981e-04_jprb,&
 & 1.0064e-03_jprb,1.1094e-03_jprb,1.3491e-03_jprb/)  
kao( :, 3, 4,11) = (/&
 & 1.0580e-03_jprb,9.8116e-04_jprb,9.2713e-04_jprb,9.3975e-04_jprb,1.0753e-03_jprb,1.2664e-03_jprb,&
 & 1.4600e-03_jprb,1.6482e-03_jprb,1.9983e-03_jprb/)  
kao( :, 4, 4,11) = (/&
 & 1.3185e-03_jprb,1.2651e-03_jprb,1.2235e-03_jprb,1.2449e-03_jprb,1.4893e-03_jprb,1.7828e-03_jprb,&
 & 2.0723e-03_jprb,2.3550e-03_jprb,2.8663e-03_jprb/)  
kao( :, 5, 4,11) = (/&
 & 1.7012e-03_jprb,1.6381e-03_jprb,1.6202e-03_jprb,1.6478e-03_jprb,2.0248e-03_jprb,2.4554e-03_jprb,&
 & 2.8747e-03_jprb,3.2963e-03_jprb,4.0058e-03_jprb/)  
kao( :, 1, 5,11) = (/&
 & 9.4336e-04_jprb,8.3814e-04_jprb,7.4599e-04_jprb,6.5815e-04_jprb,5.8713e-04_jprb,5.1959e-04_jprb,&
 & 5.3264e-04_jprb,5.5247e-04_jprb,1.0574e-03_jprb/)  
kao( :, 2, 5,11) = (/&
 & 9.5312e-04_jprb,8.5894e-04_jprb,7.8295e-04_jprb,7.1666e-04_jprb,6.6657e-04_jprb,7.2698e-04_jprb,&
 & 8.1350e-04_jprb,8.9727e-04_jprb,1.7265e-03_jprb/)  
kao( :, 3, 5,11) = (/&
 & 9.8083e-04_jprb,9.0340e-04_jprb,8.4536e-04_jprb,8.1479e-04_jprb,8.9835e-04_jprb,1.0481e-03_jprb,&
 & 1.2030e-03_jprb,1.3495e-03_jprb,2.6645e-03_jprb/)  
kao( :, 4, 5,11) = (/&
 & 1.0919e-03_jprb,1.0271e-03_jprb,9.9432e-04_jprb,1.0447e-03_jprb,1.2444e-03_jprb,1.4845e-03_jprb,&
 & 1.7171e-03_jprb,1.9373e-03_jprb,3.9343e-03_jprb/)  
kao( :, 5, 5,11) = (/&
 & 1.3125e-03_jprb,1.2964e-03_jprb,1.3064e-03_jprb,1.3776e-03_jprb,1.6940e-03_jprb,2.0397e-03_jprb,&
 & 2.3911e-03_jprb,2.7218e-03_jprb,5.5487e-03_jprb/)  
kao( :, 1, 6,11) = (/&
 & 1.0191e-03_jprb,8.9896e-04_jprb,7.8508e-04_jprb,6.7831e-04_jprb,5.7633e-04_jprb,4.9216e-04_jprb,&
 & 4.0826e-04_jprb,9.2980e-05_jprb,1.3931e-03_jprb/)  
kao( :, 2, 6,11) = (/&
 & 1.0047e-03_jprb,8.9662e-04_jprb,8.0205e-04_jprb,7.1402e-04_jprb,6.3991e-04_jprb,5.8384e-04_jprb,&
 & 6.2794e-04_jprb,6.7696e-04_jprb,2.3552e-03_jprb/)  
kao( :, 3, 6,11) = (/&
 & 1.0047e-03_jprb,9.1475e-04_jprb,8.3262e-04_jprb,7.7264e-04_jprb,7.4682e-04_jprb,8.3595e-04_jprb,&
 & 9.5189e-04_jprb,1.0656e-03_jprb,3.7189e-03_jprb/)  
kao( :, 4, 6,11) = (/&
 & 1.0246e-03_jprb,9.4864e-04_jprb,8.9322e-04_jprb,8.8690e-04_jprb,1.0204e-03_jprb,1.2021e-03_jprb,&
 & 1.3925e-03_jprb,1.5656e-03_jprb,5.5692e-03_jprb/)  
kao( :, 5, 6,11) = (/&
 & 1.1192e-03_jprb,1.0605e-03_jprb,1.0485e-03_jprb,1.1451e-03_jprb,1.4045e-03_jprb,1.6858e-03_jprb,&
 & 1.9713e-03_jprb,2.2360e-03_jprb,7.9629e-03_jprb/)  
kao( :, 1, 7,11) = (/&
 & 1.1105e-03_jprb,9.7554e-04_jprb,8.4845e-04_jprb,7.2311e-04_jprb,5.9822e-04_jprb,4.8054e-04_jprb,&
 & 3.5912e-04_jprb,1.6334e-05_jprb,1.8685e-03_jprb/)  
kao( :, 2, 7,11) = (/&
 & 1.0953e-03_jprb,9.7181e-04_jprb,8.5659e-04_jprb,7.3634e-04_jprb,6.3339e-04_jprb,5.4068e-04_jprb,&
 & 4.8190e-04_jprb,4.0504e-04_jprb,3.3171e-03_jprb/)  
kao( :, 3, 7,11) = (/&
 & 1.0776e-03_jprb,9.6988e-04_jprb,8.6596e-04_jprb,7.7221e-04_jprb,7.0034e-04_jprb,6.6772e-04_jprb,&
 & 7.4067e-04_jprb,8.0814e-04_jprb,5.4649e-03_jprb/)  
kao( :, 4, 7,11) = (/&
 & 1.0633e-03_jprb,9.7163e-04_jprb,8.9525e-04_jprb,8.4042e-04_jprb,8.3803e-04_jprb,9.5863e-04_jprb,&
 & 1.0998e-03_jprb,1.2373e-03_jprb,8.4838e-03_jprb/)  
kao( :, 5, 7,11) = (/&
 & 1.0727e-03_jprb,1.0017e-03_jprb,9.6422e-04_jprb,9.7682e-04_jprb,1.1474e-03_jprb,1.3738e-03_jprb,&
 & 1.6070e-03_jprb,1.8227e-03_jprb,1.2477e-02_jprb/)  
kao( :, 1, 8,11) = (/&
 & 1.2212e-03_jprb,1.0686e-03_jprb,9.2776e-04_jprb,7.8030e-04_jprb,6.3679e-04_jprb,4.9028e-04_jprb,&
 & 2.5705e-05_jprb,3.5598e-06_jprb,3.0236e-03_jprb/)  
kao( :, 2, 8,11) = (/&
 & 1.1904e-03_jprb,1.0515e-03_jprb,9.1846e-04_jprb,7.8584e-04_jprb,6.5098e-04_jprb,5.2805e-04_jprb,&
 & 4.1417e-04_jprb,7.4299e-06_jprb,5.6339e-03_jprb/)  
kao( :, 3, 8,11) = (/&
 & 1.1656e-03_jprb,1.0373e-03_jprb,9.2017e-04_jprb,7.9903e-04_jprb,6.9375e-04_jprb,6.0910e-04_jprb,&
 & 5.7009e-04_jprb,5.4932e-04_jprb,9.6178e-03_jprb/)  
kao( :, 4, 8,11) = (/&
 & 1.1498e-03_jprb,1.0424e-03_jprb,9.3266e-04_jprb,8.4261e-04_jprb,7.7492e-04_jprb,7.6691e-04_jprb,&
 & 8.6816e-04_jprb,9.6408e-04_jprb,1.5378e-02_jprb/)  
kao( :, 5, 8,11) = (/&
 & 1.1310e-03_jprb,1.0416e-03_jprb,9.7038e-04_jprb,9.2287e-04_jprb,9.4475e-04_jprb,1.1097e-03_jprb,&
 & 1.2928e-03_jprb,1.4673e-03_jprb,2.3131e-02_jprb/)  
kao( :, 1, 9,11) = (/&
 & 1.3346e-03_jprb,1.1677e-03_jprb,1.0079e-03_jprb,8.4634e-04_jprb,6.8278e-04_jprb,5.1557e-04_jprb,&
 & 6.2170e-06_jprb,3.5575e-07_jprb,9.0278e-03_jprb/)  
kao( :, 2, 9,11) = (/&
 & 1.3004e-03_jprb,1.1437e-03_jprb,9.9288e-04_jprb,8.4407e-04_jprb,6.9152e-04_jprb,5.4161e-04_jprb,&
 & 3.0407e-04_jprb,7.5811e-06_jprb,1.7755e-02_jprb/)  
kao( :, 3, 9,11) = (/&
 & 1.2716e-03_jprb,1.1282e-03_jprb,9.9193e-04_jprb,8.4979e-04_jprb,7.1877e-04_jprb,5.8562e-04_jprb,&
 & 4.7440e-04_jprb,1.3642e-04_jprb,3.1669e-02_jprb/)  
kao( :, 4, 9,11) = (/&
 & 1.2493e-03_jprb,1.1232e-03_jprb,9.9486e-04_jprb,8.7574e-04_jprb,7.6208e-04_jprb,6.8407e-04_jprb,&
 & 6.7008e-04_jprb,7.2430e-04_jprb,5.2322e-02_jprb/)  
kao( :, 5, 9,11) = (/&
 & 1.2292e-03_jprb,1.1190e-03_jprb,1.0123e-03_jprb,9.2200e-04_jprb,8.6839e-04_jprb,8.8671e-04_jprb,&
 & 1.0239e-03_jprb,1.1645e-03_jprb,8.1332e-02_jprb/)  
kao( :, 1,10,11) = (/&
 & 1.4702e-03_jprb,1.2866e-03_jprb,1.1046e-03_jprb,9.2775e-04_jprb,7.4227e-04_jprb,5.4877e-04_jprb,&
 & 1.5669e-06_jprb,2.1750e-07_jprb,3.1809e-02_jprb/)  
kao( :, 2,10,11) = (/&
 & 1.4381e-03_jprb,1.2591e-03_jprb,1.0910e-03_jprb,9.1751e-04_jprb,7.4581e-04_jprb,5.6956e-04_jprb,&
 & 1.4408e-05_jprb,2.9977e-06_jprb,6.5658e-02_jprb/)  
kao( :, 3,10,11) = (/&
 & 1.4088e-03_jprb,1.2443e-03_jprb,1.0832e-03_jprb,9.2001e-04_jprb,7.6006e-04_jprb,6.0163e-04_jprb,&
 & 4.0981e-04_jprb,3.3752e-06_jprb,1.2158e-01_jprb/)  
kao( :, 4,10,11) = (/&
 & 1.3837e-03_jprb,1.2299e-03_jprb,1.0785e-03_jprb,9.3172e-04_jprb,7.8792e-04_jprb,6.5978e-04_jprb,&
 & 5.6509e-04_jprb,4.3870e-04_jprb,2.0789e-01_jprb/)  
kao( :, 5,10,11) = (/&
 & 1.3583e-03_jprb,1.2214e-03_jprb,1.0847e-03_jprb,9.6075e-04_jprb,8.5481e-04_jprb,7.9082e-04_jprb,&
 & 8.2900e-04_jprb,9.3239e-04_jprb,3.3217e-01_jprb/)  
kao( :, 1,11,11) = (/&
 & 1.6253e-03_jprb,1.4219e-03_jprb,1.2219e-03_jprb,1.0236e-03_jprb,8.2003e-04_jprb,6.0541e-04_jprb,&
 & 1.4231e-06_jprb,1.8071e-07_jprb,5.4692e-02_jprb/)  
kao( :, 2,11,11) = (/&
 & 1.5951e-03_jprb,1.3985e-03_jprb,1.2081e-03_jprb,1.0150e-03_jprb,8.2284e-04_jprb,6.1646e-04_jprb,&
 & 9.6207e-06_jprb,2.7452e-06_jprb,1.1216e-01_jprb/)  
kao( :, 3,11,11) = (/&
 & 1.5642e-03_jprb,1.3790e-03_jprb,1.1965e-03_jprb,1.0113e-03_jprb,8.2943e-04_jprb,6.4775e-04_jprb,&
 & 4.3571e-04_jprb,8.6785e-06_jprb,2.0795e-01_jprb/)  
kao( :, 4,11,11) = (/&
 & 1.5361e-03_jprb,1.3630e-03_jprb,1.1895e-03_jprb,1.0207e-03_jprb,8.5744e-04_jprb,7.0323e-04_jprb,&
 & 5.8809e-04_jprb,4.1682e-04_jprb,3.5571e-01_jprb/)  
kao( :, 5,11,11) = (/&
 & 1.5066e-03_jprb,1.3488e-03_jprb,1.1930e-03_jprb,1.0481e-03_jprb,9.1295e-04_jprb,8.2679e-04_jprb,&
 & 8.2109e-04_jprb,9.1792e-04_jprb,5.7120e-01_jprb/)  
kao( :, 1,12,11) = (/&
 & 1.8041e-03_jprb,1.5789e-03_jprb,1.3570e-03_jprb,1.1389e-03_jprb,9.1257e-04_jprb,6.7888e-04_jprb,&
 & 5.1658e-06_jprb,1.5829e-07_jprb,6.8561e-02_jprb/)  
kao( :, 2,12,11) = (/&
 & 1.7738e-03_jprb,1.5558e-03_jprb,1.3438e-03_jprb,1.1292e-03_jprb,9.1436e-04_jprb,6.9573e-04_jprb,&
 & 2.0820e-05_jprb,3.7433e-06_jprb,1.4057e-01_jprb/)  
kao( :, 3,12,11) = (/&
 & 1.7418e-03_jprb,1.5353e-03_jprb,1.3329e-03_jprb,1.1261e-03_jprb,9.2270e-04_jprb,7.2358e-04_jprb,&
 & 4.7954e-04_jprb,1.5535e-05_jprb,2.6118e-01_jprb/)  
kao( :, 4,12,11) = (/&
 & 1.7090e-03_jprb,1.5180e-03_jprb,1.3238e-03_jprb,1.1375e-03_jprb,9.5111e-04_jprb,7.6548e-04_jprb,&
 & 6.0636e-04_jprb,4.1209e-04_jprb,4.4778e-01_jprb/)  
kao( :, 5,12,11) = (/&
 & 1.6778e-03_jprb,1.5017e-03_jprb,1.3263e-03_jprb,1.1626e-03_jprb,9.9449e-04_jprb,8.6348e-04_jprb,&
 & 8.1707e-04_jprb,9.1552e-04_jprb,7.1823e-01_jprb/)  
kao( :, 1,13,11) = (/&
 & 2.0162e-03_jprb,1.7643e-03_jprb,1.5166e-03_jprb,1.2707e-03_jprb,1.0200e-03_jprb,7.6409e-04_jprb,&
 & 1.3933e-06_jprb,1.3814e-07_jprb,6.7541e-02_jprb/)  
kao( :, 2,13,11) = (/&
 & 1.9804e-03_jprb,1.7378e-03_jprb,1.5003e-03_jprb,1.2598e-03_jprb,1.0208e-03_jprb,7.7583e-04_jprb,&
 & 1.0519e-04_jprb,2.9677e-05_jprb,1.3898e-01_jprb/)  
kao( :, 3,13,11) = (/&
 & 1.9463e-03_jprb,1.7141e-03_jprb,1.4887e-03_jprb,1.2580e-03_jprb,1.0319e-03_jprb,8.0958e-04_jprb,&
 & 5.4607e-04_jprb,8.2236e-06_jprb,2.5839e-01_jprb/)  
kao( :, 4,13,11) = (/&
 & 1.9119e-03_jprb,1.6986e-03_jprb,1.4811e-03_jprb,1.2741e-03_jprb,1.0665e-03_jprb,8.4965e-04_jprb,&
 & 6.3669e-04_jprb,4.3144e-04_jprb,4.4372e-01_jprb/)  
kao( :, 5,13,11) = (/&
 & 1.8807e-03_jprb,1.6835e-03_jprb,1.4885e-03_jprb,1.3024e-03_jprb,1.1081e-03_jprb,9.2308e-04_jprb,&
 & 8.2856e-04_jprb,9.1296e-04_jprb,7.1076e-01_jprb/)  
kao( :, 1, 1,12) = (/&
 & 1.1348e-03_jprb,1.0512e-03_jprb,1.0112e-03_jprb,1.0380e-03_jprb,1.2591e-03_jprb,1.5034e-03_jprb,&
 & 1.7458e-03_jprb,1.9916e-03_jprb,2.2515e-03_jprb/)  
kao( :, 2, 1,12) = (/&
 & 1.4497e-03_jprb,1.3258e-03_jprb,1.2902e-03_jprb,1.3933e-03_jprb,1.7402e-03_jprb,2.0749e-03_jprb,&
 & 2.4232e-03_jprb,2.7843e-03_jprb,3.1336e-03_jprb/)  
kao( :, 3, 1,12) = (/&
 & 1.9087e-03_jprb,1.7431e-03_jprb,1.6616e-03_jprb,1.8437e-03_jprb,2.3259e-03_jprb,2.8106e-03_jprb,&
 & 3.3232e-03_jprb,3.7674e-03_jprb,4.2777e-03_jprb/)  
kao( :, 4, 1,12) = (/&
 & 2.5088e-03_jprb,2.2929e-03_jprb,2.1415e-03_jprb,2.4320e-03_jprb,3.0901e-03_jprb,3.7563e-03_jprb,&
 & 4.4295e-03_jprb,5.0514e-03_jprb,5.7435e-03_jprb/)  
kao( :, 5, 1,12) = (/&
 & 3.2224e-03_jprb,2.9512e-03_jprb,2.7375e-03_jprb,3.2055e-03_jprb,4.1147e-03_jprb,5.0116e-03_jprb,&
 & 5.9163e-03_jprb,6.7642e-03_jprb,7.7486e-03_jprb/)  
kao( :, 1, 2,12) = (/&
 & 1.0492e-03_jprb,9.6475e-04_jprb,9.4375e-04_jprb,9.3817e-04_jprb,1.1146e-03_jprb,1.3292e-03_jprb,&
 & 1.5275e-03_jprb,1.7383e-03_jprb,1.9763e-03_jprb/)  
kao( :, 2, 2,12) = (/&
 & 1.3114e-03_jprb,1.2057e-03_jprb,1.1899e-03_jprb,1.2587e-03_jprb,1.5556e-03_jprb,1.8745e-03_jprb,&
 & 2.1716e-03_jprb,2.4737e-03_jprb,2.8199e-03_jprb/)  
kao( :, 3, 2,12) = (/&
 & 1.7413e-03_jprb,1.5927e-03_jprb,1.5301e-03_jprb,1.6869e-03_jprb,2.1324e-03_jprb,2.5756e-03_jprb,&
 & 3.0059e-03_jprb,3.4270e-03_jprb,3.9244e-03_jprb/)  
kao( :, 4, 2,12) = (/&
 & 2.2840e-03_jprb,2.1084e-03_jprb,1.9850e-03_jprb,2.2595e-03_jprb,2.8933e-03_jprb,3.5203e-03_jprb,&
 & 4.1407e-03_jprb,4.7114e-03_jprb,5.4047e-03_jprb/)  
kao( :, 5, 2,12) = (/&
 & 2.9533e-03_jprb,2.7476e-03_jprb,2.5658e-03_jprb,3.0087e-03_jprb,3.8774e-03_jprb,4.7340e-03_jprb,&
 & 5.5746e-03_jprb,6.3471e-03_jprb,7.3465e-03_jprb/)  
kao( :, 1, 3,12) = (/&
 & 9.8854e-04_jprb,8.9343e-04_jprb,8.4035e-04_jprb,7.9923e-04_jprb,8.9609e-04_jprb,1.0622e-03_jprb,&
 & 1.2115e-03_jprb,1.3909e-03_jprb,1.5813e-03_jprb/)  
kao( :, 2, 3,12) = (/&
 & 1.0879e-03_jprb,1.0117e-03_jprb,1.0134e-03_jprb,1.0514e-03_jprb,1.2838e-03_jprb,1.5374e-03_jprb,&
 & 1.7938e-03_jprb,2.0363e-03_jprb,2.3508e-03_jprb/)  
kao( :, 3, 3,12) = (/&
 & 1.4163e-03_jprb,1.3226e-03_jprb,1.2897e-03_jprb,1.4327e-03_jprb,1.8163e-03_jprb,2.1941e-03_jprb,&
 & 2.5686e-03_jprb,2.9319e-03_jprb,3.4012e-03_jprb/)  
kao( :, 4, 3,12) = (/&
 & 1.8714e-03_jprb,1.7493e-03_jprb,1.6791e-03_jprb,1.9710e-03_jprb,2.5266e-03_jprb,3.0817e-03_jprb,&
 & 3.6203e-03_jprb,4.1272e-03_jprb,4.8320e-03_jprb/)  
kao( :, 5, 3,12) = (/&
 & 2.4278e-03_jprb,2.3027e-03_jprb,2.1923e-03_jprb,2.6689e-03_jprb,3.4381e-03_jprb,4.1969e-03_jprb,&
 & 4.9576e-03_jprb,5.6521e-03_jprb,6.6247e-03_jprb/)  
kao( :, 1, 4,12) = (/&
 & 9.8669e-04_jprb,8.8509e-04_jprb,8.1352e-04_jprb,7.2996e-04_jprb,7.1817e-04_jprb,8.1881e-04_jprb,&
 & 9.2748e-04_jprb,1.0403e-03_jprb,1.2116e-03_jprb/)  
kao( :, 2, 4,12) = (/&
 & 1.0290e-03_jprb,9.4426e-04_jprb,8.9000e-04_jprb,8.7285e-04_jprb,1.0287e-03_jprb,1.2254e-03_jprb,&
 & 1.4193e-03_jprb,1.6044e-03_jprb,1.8734e-03_jprb/)  
kao( :, 3, 4,12) = (/&
 & 1.1436e-03_jprb,1.0840e-03_jprb,1.0833e-03_jprb,1.1914e-03_jprb,1.4983e-03_jprb,1.8005e-03_jprb,&
 & 2.1029e-03_jprb,2.3872e-03_jprb,2.8182e-03_jprb/)  
kao( :, 4, 4,12) = (/&
 & 1.4872e-03_jprb,1.4093e-03_jprb,1.3825e-03_jprb,1.6613e-03_jprb,2.1282e-03_jprb,2.5939e-03_jprb,&
 & 3.0338e-03_jprb,3.4691e-03_jprb,4.1139e-03_jprb/)  
kao( :, 5, 4,12) = (/&
 & 1.9382e-03_jprb,1.8528e-03_jprb,1.8277e-03_jprb,2.2907e-03_jprb,2.9502e-03_jprb,3.6113e-03_jprb,&
 & 4.2678e-03_jprb,4.8667e-03_jprb,5.7453e-03_jprb/)  
kao( :, 1, 5,12) = (/&
 & 1.0261e-03_jprb,9.1725e-04_jprb,8.2759e-04_jprb,7.3874e-04_jprb,6.4512e-04_jprb,6.5305e-04_jprb,&
 & 7.2025e-04_jprb,7.5251e-04_jprb,1.2236e-03_jprb/)  
kao( :, 2, 5,12) = (/&
 & 1.0342e-03_jprb,9.3335e-04_jprb,8.6180e-04_jprb,7.8962e-04_jprb,8.4539e-04_jprb,9.8224e-04_jprb,&
 & 1.1196e-03_jprb,1.2424e-03_jprb,1.9823e-03_jprb/)  
kao( :, 3, 5,12) = (/&
 & 1.0684e-03_jprb,1.0038e-03_jprb,9.4286e-04_jprb,9.9237e-04_jprb,1.2238e-03_jprb,1.4671e-03_jprb,&
 & 1.7012e-03_jprb,1.9194e-03_jprb,3.0657e-03_jprb/)  
kao( :, 4, 5,12) = (/&
 & 1.1964e-03_jprb,1.1404e-03_jprb,1.1495e-03_jprb,1.3909e-03_jprb,1.7635e-03_jprb,2.1391e-03_jprb,&
 & 2.5166e-03_jprb,2.8551e-03_jprb,4.5233e-03_jprb/)  
kao( :, 5, 5,12) = (/&
 & 1.5188e-03_jprb,1.4742e-03_jprb,1.5113e-03_jprb,1.9296e-03_jprb,2.4758e-03_jprb,3.0285e-03_jprb,&
 & 3.5691e-03_jprb,4.1028e-03_jprb,6.4627e-03_jprb/)  
kao( :, 1, 6,12) = (/&
 & 1.1049e-03_jprb,9.7887e-04_jprb,8.6230e-04_jprb,7.6209e-04_jprb,6.5337e-04_jprb,5.5666e-04_jprb,&
 & 5.5642e-04_jprb,4.3457e-04_jprb,1.6601e-03_jprb/)  
kao( :, 2, 6,12) = (/&
 & 1.0940e-03_jprb,9.8241e-04_jprb,8.8704e-04_jprb,7.8683e-04_jprb,7.2565e-04_jprb,7.9447e-04_jprb,&
 & 8.9119e-04_jprb,9.6573e-04_jprb,2.8308e-03_jprb/)  
kao( :, 3, 6,12) = (/&
 & 1.0875e-03_jprb,9.9703e-04_jprb,9.2009e-04_jprb,8.7195e-04_jprb,1.0022e-03_jprb,1.1888e-03_jprb,&
 & 1.3628e-03_jprb,1.5154e-03_jprb,4.5116e-03_jprb/)  
kao( :, 4, 6,12) = (/&
 & 1.1159e-03_jprb,1.0443e-03_jprb,1.0086e-03_jprb,1.1512e-03_jprb,1.4495e-03_jprb,1.7437e-03_jprb,&
 & 2.0380e-03_jprb,2.2956e-03_jprb,6.7993e-03_jprb/)  
kao( :, 5, 6,12) = (/&
 & 1.2286e-03_jprb,1.1769e-03_jprb,1.2461e-03_jprb,1.5980e-03_jprb,2.0421e-03_jprb,2.4961e-03_jprb,&
 & 2.9289e-03_jprb,3.3559e-03_jprb,9.7752e-03_jprb/)  
kao( :, 1, 7,12) = (/&
 & 1.2137e-03_jprb,1.0668e-03_jprb,9.3381e-04_jprb,8.0126e-04_jprb,6.7255e-04_jprb,5.4820e-04_jprb,&
 & 4.1640e-04_jprb,3.0869e-05_jprb,2.3413e-03_jprb/)  
kao( :, 2, 7,12) = (/&
 & 1.1848e-03_jprb,1.0517e-03_jprb,9.3479e-04_jprb,8.1727e-04_jprb,7.1224e-04_jprb,6.5078e-04_jprb,&
 & 7.0341e-04_jprb,7.0961e-04_jprb,4.1815e-03_jprb/)  
kao( :, 3, 7,12) = (/&
 & 1.1720e-03_jprb,1.0531e-03_jprb,9.4856e-04_jprb,8.6129e-04_jprb,8.4208e-04_jprb,9.5854e-04_jprb,&
 & 1.0943e-03_jprb,1.2041e-03_jprb,6.9208e-03_jprb/)  
kao( :, 4, 7,12) = (/&
 & 1.1592e-03_jprb,1.0754e-03_jprb,9.9552e-04_jprb,9.9504e-04_jprb,1.1919e-03_jprb,1.4256e-03_jprb,&
 & 1.6531e-03_jprb,1.8455e-03_jprb,1.0828e-02_jprb/)  
kao( :, 5, 7,12) = (/&
 & 1.1731e-03_jprb,1.1101e-03_jprb,1.1084e-03_jprb,1.3320e-03_jprb,1.6974e-03_jprb,2.0528e-03_jprb,&
 & 2.4023e-03_jprb,2.7339e-03_jprb,1.6080e-02_jprb/)  
kao( :, 1, 8,12) = (/&
 & 1.3302e-03_jprb,1.1658e-03_jprb,1.0139e-03_jprb,8.5656e-04_jprb,7.0725e-04_jprb,5.4905e-04_jprb,&
 & 1.6082e-04_jprb,2.8484e-07_jprb,3.9959e-03_jprb/)  
kao( :, 2, 8,12) = (/&
 & 1.3004e-03_jprb,1.1467e-03_jprb,1.0012e-03_jprb,8.6385e-04_jprb,7.2504e-04_jprb,6.1282e-04_jprb,&
 & 5.3057e-04_jprb,1.6656e-04_jprb,7.5095e-03_jprb/)  
kao( :, 3, 8,12) = (/&
 & 1.2723e-03_jprb,1.1332e-03_jprb,1.0084e-03_jprb,8.8648e-04_jprb,8.0497e-04_jprb,7.6904e-04_jprb,&
 & 8.5886e-04_jprb,9.3436e-04_jprb,1.2956e-02_jprb/)  
kao( :, 4, 8,12) = (/&
 & 1.2504e-03_jprb,1.1361e-03_jprb,1.0320e-03_jprb,9.6671e-04_jprb,9.9043e-04_jprb,1.1533e-03_jprb,&
 & 1.3325e-03_jprb,1.4846e-03_jprb,2.0833e-02_jprb/)  
kao( :, 5, 8,12) = (/&
 & 1.2393e-03_jprb,1.1508e-03_jprb,1.0962e-03_jprb,1.1509e-03_jprb,1.4064e-03_jprb,1.6900e-03_jprb,&
 & 1.9737e-03_jprb,2.2347e-03_jprb,3.1620e-02_jprb/)  
kao( :, 1, 9,12) = (/&
 & 1.4663e-03_jprb,1.2845e-03_jprb,1.1076e-03_jprb,9.3469e-04_jprb,7.5727e-04_jprb,5.8307e-04_jprb,&
 & 1.6145e-06_jprb,2.0592e-07_jprb,1.2575e-02_jprb/)  
kao( :, 2, 9,12) = (/&
 & 1.4356e-03_jprb,1.2615e-03_jprb,1.0955e-03_jprb,9.3110e-04_jprb,7.6732e-04_jprb,6.0757e-04_jprb,&
 & 4.4742e-04_jprb,4.9464e-06_jprb,2.4960e-02_jprb/)  
kao( :, 3, 9,12) = (/&
 & 1.4052e-03_jprb,1.2435e-03_jprb,1.0940e-03_jprb,9.3756e-04_jprb,8.0269e-04_jprb,7.0533e-04_jprb,&
 & 6.6208e-04_jprb,5.9691e-04_jprb,4.4947e-02_jprb/)  
kao( :, 4, 9,12) = (/&
 & 1.3734e-03_jprb,1.2333e-03_jprb,1.0941e-03_jprb,9.8345e-04_jprb,9.2035e-04_jprb,9.1976e-04_jprb,&
 & 1.0530e-03_jprb,1.1532e-03_jprb,7.5044e-02_jprb/)  
kao( :, 5, 9,12) = (/&
 & 1.3495e-03_jprb,1.2289e-03_jprb,1.1320e-03_jprb,1.1073e-03_jprb,1.1561e-03_jprb,1.3692e-03_jprb,&
 & 1.6014e-03_jprb,1.8055e-03_jprb,1.1730e-01_jprb/)  
kao( :, 1,10,12) = (/&
 & 1.6187e-03_jprb,1.4174e-03_jprb,1.2153e-03_jprb,1.0239e-03_jprb,8.2814e-04_jprb,6.1453e-04_jprb,&
 & 6.9444e-06_jprb,1.3528e-07_jprb,4.6442e-02_jprb/)  
kao( :, 2,10,12) = (/&
 & 1.5845e-03_jprb,1.3876e-03_jprb,1.2040e-03_jprb,1.0153e-03_jprb,8.2732e-04_jprb,6.3066e-04_jprb,&
 & 6.0414e-06_jprb,2.4038e-07_jprb,9.7061e-02_jprb/)  
kao( :, 3,10,12) = (/&
 & 1.5496e-03_jprb,1.3649e-03_jprb,1.1919e-03_jprb,1.0167e-03_jprb,8.3828e-04_jprb,6.9321e-04_jprb,&
 & 5.6244e-04_jprb,1.6180e-05_jprb,1.8182e-01_jprb/)  

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


SUBROUTINE part9

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


kao( :, 4,10,12) = (/&
 & 1.5143e-03_jprb,1.3460e-03_jprb,1.1894e-03_jprb,1.0321e-03_jprb,9.2147e-04_jprb,8.3365e-04_jprb,&
 & 8.4635e-04_jprb,8.9521e-04_jprb,3.1352e-01_jprb/)  
kao( :, 5,10,12) = (/&
 & 1.4834e-03_jprb,1.3403e-03_jprb,1.2022e-03_jprb,1.1224e-03_jprb,1.0739e-03_jprb,1.1316e-03_jprb,&
 & 1.3218e-03_jprb,1.4837e-03_jprb,5.0232e-01_jprb/)  
kao( :, 1,11,12) = (/&
 & 1.7757e-03_jprb,1.5541e-03_jprb,1.3331e-03_jprb,1.1222e-03_jprb,9.0093e-04_jprb,6.6092e-04_jprb,&
 & 2.1249e-07_jprb,1.1902e-07_jprb,8.4989e-02_jprb/)  
kao( :, 2,11,12) = (/&
 & 1.7401e-03_jprb,1.5236e-03_jprb,1.3209e-03_jprb,1.1131e-03_jprb,9.0551e-04_jprb,6.8456e-04_jprb,&
 & 5.0849e-06_jprb,2.2480e-07_jprb,1.7663e-01_jprb/)  
kao( :, 3,11,12) = (/&
 & 1.7062e-03_jprb,1.5022e-03_jprb,1.3117e-03_jprb,1.1165e-03_jprb,9.1999e-04_jprb,7.4783e-04_jprb,&
 & 5.9186e-04_jprb,1.9217e-05_jprb,3.2957e-01_jprb/)  
kao( :, 4,11,12) = (/&
 & 1.6714e-03_jprb,1.4855e-03_jprb,1.3084e-03_jprb,1.1327e-03_jprb,9.9341e-04_jprb,8.8882e-04_jprb,&
 & 8.4081e-04_jprb,8.6421e-04_jprb,5.6545e-01_jprb/)  
kao( :, 5,11,12) = (/&
 & 1.6419e-03_jprb,1.4793e-03_jprb,1.3196e-03_jprb,1.2145e-03_jprb,1.1433e-03_jprb,1.1424e-03_jprb,&
 & 1.3148e-03_jprb,1.4973e-03_jprb,9.0555e-01_jprb/)  
kao( :, 1,12,12) = (/&
 & 1.9873e-03_jprb,1.7393e-03_jprb,1.4928e-03_jprb,1.2520e-03_jprb,1.0061e-03_jprb,7.4569e-04_jprb,&
 & 3.5180e-06_jprb,1.0587e-07_jprb,1.1338e-01_jprb/)  
kao( :, 2,12,12) = (/&
 & 1.9520e-03_jprb,1.7112e-03_jprb,1.4785e-03_jprb,1.2437e-03_jprb,1.0101e-03_jprb,7.5903e-04_jprb,&
 & 1.0775e-04_jprb,2.1135e-07_jprb,2.3445e-01_jprb/)  
kao( :, 3,12,12) = (/&
 & 1.9174e-03_jprb,1.6867e-03_jprb,1.4681e-03_jprb,1.2458e-03_jprb,1.0238e-03_jprb,8.1622e-04_jprb,&
 & 6.4203e-04_jprb,3.7377e-05_jprb,4.3560e-01_jprb/)  
kao( :, 4,12,12) = (/&
 & 1.8834e-03_jprb,1.6709e-03_jprb,1.4657e-03_jprb,1.2628e-03_jprb,1.0856e-03_jprb,9.4862e-04_jprb,&
 & 8.6085e-04_jprb,8.9434e-04_jprb,7.4512e-01_jprb/)  
kao( :, 5,12,12) = (/&
 & 1.8486e-03_jprb,1.6625e-03_jprb,1.4769e-03_jprb,1.3298e-03_jprb,1.2184e-03_jprb,1.1740e-03_jprb,&
 & 1.3120e-03_jprb,1.5054e-03_jprb,1.1919e+00_jprb/)  
kao( :, 1,13,12) = (/&
 & 2.2427e-03_jprb,1.9626e-03_jprb,1.6858e-03_jprb,1.4123e-03_jprb,1.1345e-03_jprb,8.4814e-04_jprb,&
 & 1.1187e-05_jprb,1.0167e-07_jprb,1.1866e-01_jprb/)  
kao( :, 2,13,12) = (/&
 & 2.2124e-03_jprb,1.9395e-03_jprb,1.6734e-03_jprb,1.4094e-03_jprb,1.1421e-03_jprb,8.6480e-04_jprb,&
 & 5.2696e-04_jprb,2.8959e-06_jprb,2.4434e-01_jprb/)  
kao( :, 3,13,12) = (/&
 & 2.1775e-03_jprb,1.9152e-03_jprb,1.6674e-03_jprb,1.4121e-03_jprb,1.1577e-03_jprb,9.1193e-04_jprb,&
 & 6.8708e-04_jprb,6.0943e-05_jprb,4.5287e-01_jprb/)  
kao( :, 4,13,12) = (/&
 & 2.1409e-03_jprb,1.8984e-03_jprb,1.6628e-03_jprb,1.4290e-03_jprb,1.2050e-03_jprb,1.0161e-03_jprb,&
 & 8.8642e-04_jprb,9.0231e-04_jprb,7.7451e-01_jprb/)  
kao( :, 5,13,12) = (/&
 & 2.1006e-03_jprb,1.8859e-03_jprb,1.6731e-03_jprb,1.4783e-03_jprb,1.3081e-03_jprb,1.2199e-03_jprb,&
 & 1.3045e-03_jprb,1.5082e-03_jprb,1.2405e+00_jprb/)  
kao( :, 1, 1,13) = (/&
 & 1.2739e-03_jprb,1.1824e-03_jprb,1.1666e-03_jprb,1.5366e-03_jprb,1.9783e-03_jprb,2.4169e-03_jprb,&
 & 2.8580e-03_jprb,3.2493e-03_jprb,3.6912e-03_jprb/)  
kao( :, 2, 1,13) = (/&
 & 1.5764e-03_jprb,1.4796e-03_jprb,1.5934e-03_jprb,2.2153e-03_jprb,2.8682e-03_jprb,3.5161e-03_jprb,&
 & 4.1531e-03_jprb,4.7522e-03_jprb,5.3893e-03_jprb/)  
kao( :, 3, 1,13) = (/&
 & 2.0474e-03_jprb,1.8907e-03_jprb,2.1514e-03_jprb,3.0567e-03_jprb,3.9747e-03_jprb,4.8887e-03_jprb,&
 & 5.7686e-03_jprb,6.5999e-03_jprb,7.5144e-03_jprb/)  
kao( :, 4, 1,13) = (/&
 & 2.6856e-03_jprb,2.4413e-03_jprb,2.8242e-03_jprb,4.0342e-03_jprb,5.3078e-03_jprb,6.5325e-03_jprb,&
 & 7.7349e-03_jprb,8.8443e-03_jprb,1.0074e-02_jprb/)  
kao( :, 5, 1,13) = (/&
 & 3.4590e-03_jprb,3.1378e-03_jprb,3.6496e-03_jprb,5.2809e-03_jprb,6.8982e-03_jprb,8.3727e-03_jprb,&
 & 9.9335e-03_jprb,1.1522e-02_jprb,1.3097e-02_jprb/)  
kao( :, 1, 2,13) = (/&
 & 1.1866e-03_jprb,1.1005e-03_jprb,1.0888e-03_jprb,1.4004e-03_jprb,1.7886e-03_jprb,2.1767e-03_jprb,&
 & 2.5570e-03_jprb,2.9296e-03_jprb,3.3601e-03_jprb/)  
kao( :, 2, 2,13) = (/&
 & 1.4562e-03_jprb,1.3635e-03_jprb,1.4719e-03_jprb,2.0169e-03_jprb,2.6032e-03_jprb,3.1819e-03_jprb,&
 & 3.7488e-03_jprb,4.3087e-03_jprb,4.9192e-03_jprb/)  
kao( :, 3, 2,13) = (/&
 & 1.8764e-03_jprb,1.7361e-03_jprb,1.9709e-03_jprb,2.7595e-03_jprb,3.5900e-03_jprb,4.4194e-03_jprb,&
 & 5.2979e-03_jprb,6.0766e-03_jprb,6.9371e-03_jprb/)  
kao( :, 4, 2,13) = (/&
 & 2.4859e-03_jprb,2.2733e-03_jprb,2.5962e-03_jprb,3.6933e-03_jprb,4.8528e-03_jprb,5.9853e-03_jprb,&
 & 7.0801e-03_jprb,8.2323e-03_jprb,9.3999e-03_jprb/)  
kao( :, 5, 2,13) = (/&
 & 3.2381e-03_jprb,2.9580e-03_jprb,3.3897e-03_jprb,4.8434e-03_jprb,6.3274e-03_jprb,7.7660e-03_jprb,&
 & 9.2016e-03_jprb,1.0766e-02_jprb,1.2382e-02_jprb/)  
kao( :, 1, 3,13) = (/&
 & 1.0869e-03_jprb,9.8978e-04_jprb,9.6295e-04_jprb,1.1603e-03_jprb,1.4657e-03_jprb,1.7785e-03_jprb,&
 & 2.0850e-03_jprb,2.3589e-03_jprb,2.7295e-03_jprb/)  
kao( :, 2, 3,13) = (/&
 & 1.2497e-03_jprb,1.1652e-03_jprb,1.2498e-03_jprb,1.6617e-03_jprb,2.1329e-03_jprb,2.6212e-03_jprb,&
 & 3.0709e-03_jprb,3.5231e-03_jprb,4.1120e-03_jprb/)  
kao( :, 3, 3,13) = (/&
 & 1.5536e-03_jprb,1.4627e-03_jprb,1.6643e-03_jprb,2.3266e-03_jprb,3.0120e-03_jprb,3.7022e-03_jprb,&
 & 4.3567e-03_jprb,5.0579e-03_jprb,5.8139e-03_jprb/)  
kao( :, 4, 3,13) = (/&
 & 2.0446e-03_jprb,1.9153e-03_jprb,2.2001e-03_jprb,3.1214e-03_jprb,4.0764e-03_jprb,5.0190e-03_jprb,&
 & 6.0061e-03_jprb,6.9576e-03_jprb,7.9493e-03_jprb/)  
kao( :, 5, 3,13) = (/&
 & 2.6968e-03_jprb,2.5178e-03_jprb,2.9045e-03_jprb,4.1585e-03_jprb,5.4384e-03_jprb,6.6732e-03_jprb,&
 & 7.9956e-03_jprb,9.1997e-03_jprb,1.0739e-02_jprb/)  
kao( :, 1, 4,13) = (/&
 & 1.0799e-03_jprb,9.7556e-04_jprb,8.9641e-04_jprb,9.5375e-04_jprb,1.1834e-03_jprb,1.4206e-03_jprb,&
 & 1.6456e-03_jprb,1.8574e-03_jprb,2.1783e-03_jprb/)  
kao( :, 2, 4,13) = (/&
 & 1.1355e-03_jprb,1.0374e-03_jprb,1.0646e-03_jprb,1.3628e-03_jprb,1.7241e-03_jprb,2.0900e-03_jprb,&
 & 2.4594e-03_jprb,2.8248e-03_jprb,3.3135e-03_jprb/)  
kao( :, 3, 4,13) = (/&
 & 1.2900e-03_jprb,1.2405e-03_jprb,1.3881e-03_jprb,1.9129e-03_jprb,2.4612e-03_jprb,3.0202e-03_jprb,&
 & 3.5514e-03_jprb,4.1507e-03_jprb,4.7512e-03_jprb/)  
kao( :, 4, 4,13) = (/&
 & 1.6429e-03_jprb,1.5804e-03_jprb,1.8599e-03_jprb,2.6280e-03_jprb,3.3944e-03_jprb,4.1721e-03_jprb,&
 & 4.9786e-03_jprb,5.7576e-03_jprb,6.6384e-03_jprb/)  
kao( :, 5, 4,13) = (/&
 & 2.1595e-03_jprb,2.0705e-03_jprb,2.4561e-03_jprb,3.5243e-03_jprb,4.6000e-03_jprb,5.6864e-03_jprb,&
 & 6.7238e-03_jprb,7.7228e-03_jprb,9.0563e-03_jprb/)  
kao( :, 1, 5,13) = (/&
 & 1.1289e-03_jprb,1.0122e-03_jprb,9.1285e-04_jprb,8.4241e-04_jprb,9.2546e-04_jprb,1.1068e-03_jprb,&
 & 1.2785e-03_jprb,1.4321e-03_jprb,1.7133e-03_jprb/)  
kao( :, 2, 5,13) = (/&
 & 1.1322e-03_jprb,1.0283e-03_jprb,9.7216e-04_jprb,1.1030e-03_jprb,1.3905e-03_jprb,1.6648e-03_jprb,&
 & 1.9659e-03_jprb,2.2474e-03_jprb,2.6825e-03_jprb/)  
kao( :, 3, 5,13) = (/&
 & 1.1835e-03_jprb,1.1059e-03_jprb,1.1769e-03_jprb,1.5659e-03_jprb,1.9991e-03_jprb,2.4574e-03_jprb,&
 & 2.8892e-03_jprb,3.3463e-03_jprb,3.9939e-03_jprb/)  
kao( :, 4, 5,13) = (/&
 & 1.3233e-03_jprb,1.3123e-03_jprb,1.5693e-03_jprb,2.1884e-03_jprb,2.8269e-03_jprb,3.4574e-03_jprb,&
 & 4.1167e-03_jprb,4.7382e-03_jprb,5.7495e-03_jprb/)  
kao( :, 5, 5,13) = (/&
 & 1.7059e-03_jprb,1.6691e-03_jprb,2.0917e-03_jprb,2.9965e-03_jprb,3.8855e-03_jprb,4.8207e-03_jprb,&
 & 5.6559e-03_jprb,6.5131e-03_jprb,7.9790e-03_jprb/)  
kao( :, 1, 6,13) = (/&
 & 1.2255e-03_jprb,1.0879e-03_jprb,9.6530e-04_jprb,8.5617e-04_jprb,7.6660e-04_jprb,8.1723e-04_jprb,&
 & 9.3534e-04_jprb,1.0402e-03_jprb,1.9062e-03_jprb/)  
kao( :, 2, 6,13) = (/&
 & 1.1965e-03_jprb,1.0719e-03_jprb,9.9849e-04_jprb,9.4121e-04_jprb,1.0795e-03_jprb,1.2813e-03_jprb,&
 & 1.4997e-03_jprb,1.7132e-03_jprb,3.2547e-03_jprb/)  
kao( :, 3, 6,13) = (/&
 & 1.1926e-03_jprb,1.1043e-03_jprb,1.0603e-03_jprb,1.2688e-03_jprb,1.5962e-03_jprb,1.9526e-03_jprb,&
 & 2.2912e-03_jprb,2.6142e-03_jprb,5.2095e-03_jprb/)  
kao( :, 4, 6,13) = (/&
 & 1.2240e-03_jprb,1.1777e-03_jprb,1.3174e-03_jprb,1.8087e-03_jprb,2.3347e-03_jprb,2.8437e-03_jprb,&
 & 3.3597e-03_jprb,3.8303e-03_jprb,7.9481e-03_jprb/)  
kao( :, 5, 6,13) = (/&
 & 1.3458e-03_jprb,1.3554e-03_jprb,1.7833e-03_jprb,2.5412e-03_jprb,3.2833e-03_jprb,4.0389e-03_jprb,&
 & 4.7385e-03_jprb,5.4113e-03_jprb,1.1516e-02_jprb/)  
kao( :, 1, 7,13) = (/&
 & 1.3402e-03_jprb,1.1742e-03_jprb,1.0361e-03_jprb,8.9910e-04_jprb,7.6679e-04_jprb,6.5368e-04_jprb,&
 & 6.8075e-04_jprb,4.6956e-04_jprb,2.7722e-03_jprb/)  
kao( :, 2, 7,13) = (/&
 & 1.3037e-03_jprb,1.1622e-03_jprb,1.0519e-03_jprb,9.4323e-04_jprb,8.7488e-04_jprb,9.7401e-04_jprb,&
 & 1.1211e-03_jprb,1.2635e-03_jprb,5.0027e-03_jprb/)  
kao( :, 3, 7,13) = (/&
 & 1.2784e-03_jprb,1.1532e-03_jprb,1.0893e-03_jprb,1.0694e-03_jprb,1.2699e-03_jprb,1.5175e-03_jprb,&
 & 1.7746e-03_jprb,2.0272e-03_jprb,8.3555e-03_jprb/)  
kao( :, 4, 7,13) = (/&
 & 1.2774e-03_jprb,1.1979e-03_jprb,1.1860e-03_jprb,1.4785e-03_jprb,1.8884e-03_jprb,2.2924e-03_jprb,&
 & 2.6858e-03_jprb,3.0881e-03_jprb,1.3125e-02_jprb/)  
kao( :, 5, 7,13) = (/&
 & 1.2892e-03_jprb,1.2565e-03_jprb,1.5103e-03_jprb,2.1215e-03_jprb,2.7429e-03_jprb,3.3579e-03_jprb,&
 & 3.9536e-03_jprb,4.4822e-03_jprb,1.9541e-02_jprb/)  
kao( :, 1, 8,13) = (/&
 & 1.4772e-03_jprb,1.2923e-03_jprb,1.1263e-03_jprb,9.6270e-04_jprb,8.0241e-04_jprb,6.4872e-04_jprb,&
 & 4.5811e-04_jprb,2.1716e-07_jprb,4.9636e-03_jprb/)  
kao( :, 2, 8,13) = (/&
 & 1.4370e-03_jprb,1.2729e-03_jprb,1.1241e-03_jprb,9.9655e-04_jprb,8.5931e-04_jprb,7.7387e-04_jprb,&
 & 8.4353e-04_jprb,8.7711e-04_jprb,9.4321e-03_jprb/)  
kao( :, 3, 8,13) = (/&
 & 1.4034e-03_jprb,1.2585e-03_jprb,1.1607e-03_jprb,1.0510e-03_jprb,1.0272e-03_jprb,1.1868e-03_jprb,&
 & 1.3711e-03_jprb,1.5476e-03_jprb,1.6446e-02_jprb/)  
kao( :, 4, 8,13) = (/&
 & 1.3792e-03_jprb,1.2775e-03_jprb,1.2067e-03_jprb,1.2391e-03_jprb,1.5156e-03_jprb,1.8221e-03_jprb,&
 & 2.1295e-03_jprb,2.4428e-03_jprb,2.6678e-02_jprb/)  
kao( :, 5, 8,13) = (/&
 & 1.3692e-03_jprb,1.3040e-03_jprb,1.3510e-03_jprb,1.7655e-03_jprb,2.2564e-03_jprb,2.7486e-03_jprb,&
 & 3.2245e-03_jprb,3.6702e-03_jprb,4.0890e-02_jprb/)  
kao( :, 1, 9,13) = (/&
 & 1.6318e-03_jprb,1.4281e-03_jprb,1.2324e-03_jprb,1.0452e-03_jprb,8.5200e-04_jprb,6.6304e-04_jprb,&
 & 1.2309e-05_jprb,1.5379e-07_jprb,1.6381e-02_jprb/)  
kao( :, 2, 9,13) = (/&
 & 1.5875e-03_jprb,1.3936e-03_jprb,1.2247e-03_jprb,1.0563e-03_jprb,9.0066e-04_jprb,7.3338e-04_jprb,&
 & 6.0228e-04_jprb,1.0871e-04_jprb,3.2932e-02_jprb/)  
kao( :, 3, 9,13) = (/&
 & 1.5482e-03_jprb,1.3786e-03_jprb,1.2438e-03_jprb,1.1136e-03_jprb,9.6991e-04_jprb,9.4000e-04_jprb,&
 & 1.0591e-03_jprb,1.1303e-03_jprb,6.0073e-02_jprb/)  
kao( :, 4, 9,13) = (/&
 & 1.5167e-03_jprb,1.3746e-03_jprb,1.2857e-03_jprb,1.1928e-03_jprb,1.2413e-03_jprb,1.4696e-03_jprb,&
 & 1.6946e-03_jprb,1.9089e-03_jprb,1.0132e-01_jprb/)  
kao( :, 5, 9,13) = (/&
 & 1.4899e-03_jprb,1.4080e-03_jprb,1.3636e-03_jprb,1.4825e-03_jprb,1.8628e-03_jprb,2.2533e-03_jprb,&
 & 2.6127e-03_jprb,2.9482e-03_jprb,1.5979e-01_jprb/)  
kao( :, 1,10,13) = (/&
 & 1.8020e-03_jprb,1.5774e-03_jprb,1.3520e-03_jprb,1.1382e-03_jprb,9.2570e-04_jprb,6.9265e-04_jprb,&
 & 1.3740e-07_jprb,1.3289e-07_jprb,6.3524e-02_jprb/)  
kao( :, 2,10,13) = (/&
 & 1.7549e-03_jprb,1.5358e-03_jprb,1.3388e-03_jprb,1.1389e-03_jprb,9.5013e-04_jprb,7.6352e-04_jprb,&
 & 2.9725e-04_jprb,1.5747e-07_jprb,1.3432e-01_jprb/)  
kao( :, 3,10,13) = (/&
 & 1.7152e-03_jprb,1.5184e-03_jprb,1.3412e-03_jprb,1.1838e-03_jprb,1.0217e-03_jprb,8.6702e-04_jprb,&
 & 8.3836e-04_jprb,6.8845e-04_jprb,2.5555e-01_jprb/)  
kao( :, 4,10,13) = (/&
 & 1.6812e-03_jprb,1.5047e-03_jprb,1.3857e-03_jprb,1.2506e-03_jprb,1.1577e-03_jprb,1.2249e-03_jprb,&
 & 1.4008e-03_jprb,1.5238e-03_jprb,4.4499e-01_jprb/)  
kao( :, 5,10,13) = (/&
 & 1.6497e-03_jprb,1.5369e-03_jprb,1.4416e-03_jprb,1.4073e-03_jprb,1.5858e-03_jprb,1.9083e-03_jprb,&
 & 2.1930e-03_jprb,2.4338e-03_jprb,7.2126e-01_jprb/)  
kao( :, 1,11,13) = (/&
 & 1.9883e-03_jprb,1.7404e-03_jprb,1.4929e-03_jprb,1.2571e-03_jprb,1.0189e-03_jprb,7.6574e-04_jprb,&
 & 1.2245e-07_jprb,1.1939e-07_jprb,1.2338e-01_jprb/)  
kao( :, 2,11,13) = (/&
 & 1.9390e-03_jprb,1.6974e-03_jprb,1.4774e-03_jprb,1.2577e-03_jprb,1.0438e-03_jprb,8.3574e-04_jprb,&
 & 2.2761e-04_jprb,1.3870e-07_jprb,2.6041e-01_jprb/)  
kao( :, 3,11,13) = (/&
 & 1.9012e-03_jprb,1.6811e-03_jprb,1.4837e-03_jprb,1.3022e-03_jprb,1.1118e-03_jprb,9.5270e-04_jprb,&
 & 8.5092e-04_jprb,5.4921e-04_jprb,4.9292e-01_jprb/)  
kao( :, 4,11,13) = (/&
 & 1.8676e-03_jprb,1.6686e-03_jprb,1.5247e-03_jprb,1.3663e-03_jprb,1.2686e-03_jprb,1.2743e-03_jprb,&
 & 1.4286e-03_jprb,1.5277e-03_jprb,8.5618e-01_jprb/)  
kao( :, 5,11,13) = (/&
 & 1.8327e-03_jprb,1.6976e-03_jprb,1.5788e-03_jprb,1.5380e-03_jprb,1.6440e-03_jprb,1.9550e-03_jprb,&
 & 2.2595e-03_jprb,2.4555e-03_jprb,1.3826e+00_jprb/)  
kao( :, 1,12,13) = (/&
 & 2.2187e-03_jprb,1.9406e-03_jprb,1.6640e-03_jprb,1.4003e-03_jprb,1.1350e-03_jprb,8.4971e-04_jprb,&
 & 1.4328e-05_jprb,1.0909e-07_jprb,1.7650e-01_jprb/)  
kao( :, 2,12,13) = (/&
 & 2.1703e-03_jprb,1.8998e-03_jprb,1.6482e-03_jprb,1.4040e-03_jprb,1.1602e-03_jprb,9.1881e-04_jprb,&
 & 5.8608e-04_jprb,1.2488e-07_jprb,3.7061e-01_jprb/)  
kao( :, 3,12,13) = (/&
 & 2.1329e-03_jprb,1.8834e-03_jprb,1.6576e-03_jprb,1.4426e-03_jprb,1.2188e-03_jprb,1.0435e-03_jprb,&
 & 9.0113e-04_jprb,6.0140e-04_jprb,6.9805e-01_jprb/)  
kao( :, 4,12,13) = (/&
 & 2.0986e-03_jprb,1.8697e-03_jprb,1.6880e-03_jprb,1.4960e-03_jprb,1.3858e-03_jprb,1.3370e-03_jprb,&
 & 1.4776e-03_jprb,1.5577e-03_jprb,1.2104e+00_jprb/)  
kao( :, 5,12,13) = (/&
 & 2.0637e-03_jprb,1.8889e-03_jprb,1.7335e-03_jprb,1.6736e-03_jprb,1.7272e-03_jprb,2.0047e-03_jprb,&
 & 2.3234e-03_jprb,2.5266e-03_jprb,1.9488e+00_jprb/)  
kao( :, 1,13,13) = (/&
 & 2.5214e-03_jprb,2.2065e-03_jprb,1.8921e-03_jprb,1.5892e-03_jprb,1.2848e-03_jprb,9.6635e-04_jprb,&
 & 1.4011e-05_jprb,9.2652e-08_jprb,1.9891e-01_jprb/)  
kao( :, 2,13,13) = (/&
 & 2.4696e-03_jprb,2.1633e-03_jprb,1.8707e-03_jprb,1.5871e-03_jprb,1.3039e-03_jprb,1.0191e-03_jprb,&
 & 7.2224e-04_jprb,1.1771e-07_jprb,4.1557e-01_jprb/)  
kao( :, 3,13,13) = (/&
 & 2.4301e-03_jprb,2.1428e-03_jprb,1.8727e-03_jprb,1.6140e-03_jprb,1.3467e-03_jprb,1.1319e-03_jprb,&
 & 9.6477e-04_jprb,7.6672e-04_jprb,7.8045e-01_jprb/)  
kao( :, 4,13,13) = (/&
 & 2.3936e-03_jprb,2.1221e-03_jprb,1.8926e-03_jprb,1.6520e-03_jprb,1.5047e-03_jprb,1.4110e-03_jprb,&
 & 1.5144e-03_jprb,1.6138e-03_jprb,1.3452e+00_jprb/)  
kao( :, 5,13,13) = (/&
 & 2.3541e-03_jprb,2.1248e-03_jprb,1.9211e-03_jprb,1.8214e-03_jprb,1.8209e-03_jprb,2.0454e-03_jprb,&
 & 2.3767e-03_jprb,2.6027e-03_jprb,2.1609e+00_jprb/)  
kao( :, 1, 1,14) = (/&
 & 1.4077e-03_jprb,1.3543e-03_jprb,2.0015e-03_jprb,2.9052e-03_jprb,3.8062e-03_jprb,4.7033e-03_jprb,&
 & 5.5027e-03_jprb,6.3534e-03_jprb,7.2447e-03_jprb/)  
kao( :, 2, 1,14) = (/&
 & 1.7458e-03_jprb,1.7470e-03_jprb,2.6822e-03_jprb,3.8935e-03_jprb,5.1049e-03_jprb,6.3777e-03_jprb,&
 & 7.5886e-03_jprb,8.9435e-03_jprb,1.0377e-02_jprb/)  
kao( :, 3, 1,14) = (/&
 & 2.2077e-03_jprb,2.2614e-03_jprb,3.6964e-03_jprb,5.3773e-03_jprb,7.0539e-03_jprb,8.7220e-03_jprb,&
 & 1.0257e-02_jprb,1.2410e-02_jprb,1.4154e-02_jprb/)  
kao( :, 4, 1,14) = (/&
 & 2.8109e-03_jprb,2.9075e-03_jprb,4.9134e-03_jprb,7.1686e-03_jprb,9.5162e-03_jprb,1.1788e-02_jprb,&
 & 1.3767e-02_jprb,1.5840e-02_jprb,1.8057e-02_jprb/)  
kao( :, 5, 1,14) = (/&
 & 3.6086e-03_jprb,3.7240e-03_jprb,6.4216e-03_jprb,9.3840e-03_jprb,1.2343e-02_jprb,1.5071e-02_jprb,&
 & 1.7936e-02_jprb,2.0469e-02_jprb,2.3091e-02_jprb/)  
kao( :, 1, 2,14) = (/&
 & 1.3294e-03_jprb,1.2597e-03_jprb,1.6974e-03_jprb,2.4370e-03_jprb,3.1928e-03_jprb,3.9456e-03_jprb,&
 & 4.9620e-03_jprb,5.6067e-03_jprb,6.6116e-03_jprb/)  
kao( :, 2, 2,14) = (/&
 & 1.6318e-03_jprb,1.6184e-03_jprb,2.4692e-03_jprb,3.6012e-03_jprb,4.7302e-03_jprb,5.7659e-03_jprb,&
 & 6.8491e-03_jprb,8.1205e-03_jprb,8.9947e-03_jprb/)  
kao( :, 3, 2,14) = (/&
 & 2.0588e-03_jprb,2.1063e-03_jprb,3.4156e-03_jprb,4.9986e-03_jprb,6.5782e-03_jprb,8.1429e-03_jprb,&
 & 9.7017e-03_jprb,1.0879e-02_jprb,1.2701e-02_jprb/)  
kao( :, 4, 2,14) = (/&
 & 2.6403e-03_jprb,2.6941e-03_jprb,4.6292e-03_jprb,6.7785e-03_jprb,8.9613e-03_jprb,1.1099e-02_jprb,&
 & 1.3055e-02_jprb,1.4808e-02_jprb,1.7360e-02_jprb/)  
kao( :, 5, 2,14) = (/&
 & 3.4097e-03_jprb,3.4754e-03_jprb,6.1509e-03_jprb,9.0470e-03_jprb,1.1928e-02_jprb,1.4499e-02_jprb,&
 & 1.7101e-02_jprb,1.9409e-02_jprb,2.2968e-02_jprb/)  
kao( :, 1, 3,14) = (/&
 & 1.2102e-03_jprb,1.1138e-03_jprb,1.3857e-03_jprb,2.0244e-03_jprb,2.6529e-03_jprb,3.2119e-03_jprb,&
 & 4.0399e-03_jprb,4.4246e-03_jprb,5.1581e-03_jprb/)  
kao( :, 2, 3,14) = (/&
 & 1.4090e-03_jprb,1.3841e-03_jprb,2.0941e-03_jprb,3.0584e-03_jprb,4.0208e-03_jprb,4.9852e-03_jprb,&
 & 5.9175e-03_jprb,6.7182e-03_jprb,7.9412e-03_jprb/)  
kao( :, 3, 3,14) = (/&
 & 1.7427e-03_jprb,1.7765e-03_jprb,2.9090e-03_jprb,4.4193e-03_jprb,5.8208e-03_jprb,7.2086e-03_jprb,&
 & 8.4753e-03_jprb,9.3954e-03_jprb,1.1366e-02_jprb/)  
kao( :, 4, 3,14) = (/&
 & 2.2157e-03_jprb,2.2613e-03_jprb,3.9916e-03_jprb,5.8630e-03_jprb,8.0161e-03_jprb,9.9398e-03_jprb,&
 & 1.1828e-02_jprb,1.3094e-02_jprb,1.5315e-02_jprb/)  

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


SUBROUTINE part10

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


kao( :, 5, 3,14) = (/&
 & 2.8879e-03_jprb,2.9466e-03_jprb,5.4167e-03_jprb,7.9578e-03_jprb,1.0502e-02_jprb,1.2821e-02_jprb,&
 & 1.5472e-02_jprb,1.7483e-02_jprb,2.0768e-02_jprb/)  
kao( :, 1, 4,14) = (/&
 & 1.1727e-03_jprb,1.0568e-03_jprb,1.1437e-03_jprb,1.6336e-03_jprb,2.1314e-03_jprb,2.5848e-03_jprb,&
 & 3.0242e-03_jprb,3.4499e-03_jprb,4.1004e-03_jprb/)  
kao( :, 2, 4,14) = (/&
 & 1.2525e-03_jprb,1.1704e-03_jprb,1.6924e-03_jprb,2.4669e-03_jprb,3.2745e-03_jprb,3.9503e-03_jprb,&
 & 4.8080e-03_jprb,5.4438e-03_jprb,6.5186e-03_jprb/)  
kao( :, 3, 4,14) = (/&
 & 1.4517e-03_jprb,1.4687e-03_jprb,2.4478e-03_jprb,3.6499e-03_jprb,4.8038e-03_jprb,6.0561e-03_jprb,&
 & 7.1091e-03_jprb,8.0698e-03_jprb,9.5998e-03_jprb/)  
kao( :, 4, 4,14) = (/&
 & 1.8147e-03_jprb,1.9649e-03_jprb,3.5509e-03_jprb,5.2270e-03_jprb,6.8077e-03_jprb,8.4354e-03_jprb,&
 & 1.0206e-02_jprb,1.1463e-02_jprb,1.3354e-02_jprb/)  
kao( :, 5, 4,14) = (/&
 & 2.3595e-03_jprb,2.5550e-03_jprb,4.7325e-03_jprb,6.9980e-03_jprb,9.2811e-03_jprb,1.1690e-02_jprb,&
 & 1.3662e-02_jprb,1.5386e-02_jprb,1.8463e-02_jprb/)  
kao( :, 1, 5,14) = (/&
 & 1.2458e-03_jprb,1.1157e-03_jprb,1.0306e-03_jprb,1.3033e-03_jprb,1.6734e-03_jprb,2.0057e-03_jprb,&
 & 2.3259e-03_jprb,2.6388e-03_jprb,3.1846e-03_jprb/)  
kao( :, 2, 5,14) = (/&
 & 1.2388e-03_jprb,1.1282e-03_jprb,1.3991e-03_jprb,2.0036e-03_jprb,2.6425e-03_jprb,3.1687e-03_jprb,&
 & 3.8762e-03_jprb,4.3488e-03_jprb,5.2301e-03_jprb/)  
kao( :, 3, 5,14) = (/&
 & 1.2913e-03_jprb,1.2589e-03_jprb,2.0814e-03_jprb,3.0197e-03_jprb,3.9667e-03_jprb,4.9958e-03_jprb,&
 & 5.9133e-03_jprb,6.6574e-03_jprb,8.0153e-03_jprb/)  
kao( :, 4, 5,14) = (/&
 & 1.4963e-03_jprb,1.6907e-03_jprb,3.0309e-03_jprb,4.4615e-03_jprb,5.8606e-03_jprb,7.1898e-03_jprb,&
 & 8.6483e-03_jprb,9.7418e-03_jprb,1.1669e-02_jprb/)  
kao( :, 5, 5,14) = (/&
 & 1.8886e-03_jprb,2.2503e-03_jprb,4.1688e-03_jprb,6.1333e-03_jprb,8.1604e-03_jprb,1.0200e-02_jprb,&
 & 1.2063e-02_jprb,1.3620e-02_jprb,1.6367e-02_jprb/)  
kao( :, 1, 6,14) = (/&
 & 1.3667e-03_jprb,1.2087e-03_jprb,1.0726e-03_jprb,1.0607e-03_jprb,1.2821e-03_jprb,1.5260e-03_jprb,&
 & 1.8008e-03_jprb,1.9547e-03_jprb,2.5327e-03_jprb/)  
kao( :, 2, 6,14) = (/&
 & 1.3345e-03_jprb,1.2078e-03_jprb,1.2022e-03_jprb,1.6068e-03_jprb,2.0999e-03_jprb,2.5469e-03_jprb,&
 & 3.0216e-03_jprb,3.3465e-03_jprb,4.2698e-03_jprb/)  
kao( :, 3, 6,14) = (/&
 & 1.3246e-03_jprb,1.2185e-03_jprb,1.7375e-03_jprb,2.5142e-03_jprb,3.2318e-03_jprb,4.0369e-03_jprb,&
 & 4.7556e-03_jprb,5.3249e-03_jprb,6.8388e-03_jprb/)  
kao( :, 4, 6,14) = (/&
 & 1.3486e-03_jprb,1.4645e-03_jprb,2.5454e-03_jprb,3.7331e-03_jprb,4.8424e-03_jprb,6.0309e-03_jprb,&
 & 7.1539e-03_jprb,8.1418e-03_jprb,1.0356e-02_jprb/)  
kao( :, 5, 6,14) = (/&
 & 1.5159e-03_jprb,1.9586e-03_jprb,3.6257e-03_jprb,5.3066e-03_jprb,6.9540e-03_jprb,8.6820e-03_jprb,&
 & 1.0231e-02_jprb,1.1546e-02_jprb,1.5077e-02_jprb/)  
kao( :, 1, 7,14) = (/&
 & 1.5156e-03_jprb,1.3262e-03_jprb,1.1714e-03_jprb,1.0190e-03_jprb,1.0169e-03_jprb,1.1666e-03_jprb,&
 & 1.3423e-03_jprb,1.3981e-03_jprb,3.1910e-03_jprb/)  
kao( :, 2, 7,14) = (/&
 & 1.4765e-03_jprb,1.3249e-03_jprb,1.1925e-03_jprb,1.3147e-03_jprb,1.6557e-03_jprb,1.9990e-03_jprb,&
 & 2.2925e-03_jprb,2.5530e-03_jprb,5.7452e-03_jprb/)  
kao( :, 3, 7,14) = (/&
 & 1.4370e-03_jprb,1.3162e-03_jprb,1.4936e-03_jprb,2.0652e-03_jprb,2.6453e-03_jprb,3.2054e-03_jprb,&
 & 3.7731e-03_jprb,4.2042e-03_jprb,9.6110e-03_jprb/)  
kao( :, 4, 7,14) = (/&
 & 1.4149e-03_jprb,1.3977e-03_jprb,2.1475e-03_jprb,3.1203e-03_jprb,4.0198e-03_jprb,4.9787e-03_jprb,&
 & 5.7945e-03_jprb,6.6068e-03_jprb,1.5108e-02_jprb/)  
kao( :, 5, 7,14) = (/&
 & 1.4374e-03_jprb,1.7222e-03_jprb,3.0905e-03_jprb,4.5057e-03_jprb,5.8428e-03_jprb,7.2095e-03_jprb,&
 & 8.5374e-03_jprb,9.6315e-03_jprb,2.2589e-02_jprb/)  
kao( :, 1, 8,14) = (/&
 & 1.6998e-03_jprb,1.4847e-03_jprb,1.3004e-03_jprb,1.1133e-03_jprb,9.4349e-04_jprb,9.0420e-04_jprb,&
 & 1.0045e-03_jprb,4.3482e-04_jprb,5.8016e-03_jprb/)  
kao( :, 2, 8,14) = (/&
 & 1.6532e-03_jprb,1.4674e-03_jprb,1.3041e-03_jprb,1.2025e-03_jprb,1.3140e-03_jprb,1.5672e-03_jprb,&
 & 1.7686e-03_jprb,1.9237e-03_jprb,1.1052e-02_jprb/)  
kao( :, 3, 8,14) = (/&
 & 1.6074e-03_jprb,1.4616e-03_jprb,1.4143e-03_jprb,1.6802e-03_jprb,2.1261e-03_jprb,2.5596e-03_jprb,&
 & 3.0033e-03_jprb,3.3007e-03_jprb,1.9324e-02_jprb/)  
kao( :, 4, 8,14) = (/&
 & 1.5686e-03_jprb,1.4776e-03_jprb,1.8215e-03_jprb,2.5548e-03_jprb,3.2874e-03_jprb,4.0303e-03_jprb,&
 & 4.7235e-03_jprb,5.2596e-03_jprb,3.1553e-02_jprb/)  
kao( :, 5, 8,14) = (/&
 & 1.5375e-03_jprb,1.6349e-03_jprb,2.6125e-03_jprb,3.7580e-03_jprb,4.8839e-03_jprb,6.0119e-03_jprb,&
 & 7.1085e-03_jprb,8.0648e-03_jprb,4.8625e-02_jprb/)  
kao( :, 1, 9,14) = (/&
 & 1.9224e-03_jprb,1.6818e-03_jprb,1.4431e-03_jprb,1.2356e-03_jprb,1.0226e-03_jprb,8.1041e-04_jprb,&
 & 6.6192e-04_jprb,1.6289e-07_jprb,1.9855e-02_jprb/)  
kao( :, 2, 9,14) = (/&
 & 1.8714e-03_jprb,1.6372e-03_jprb,1.4546e-03_jprb,1.2624e-03_jprb,1.1376e-03_jprb,1.2029e-03_jprb,&
 & 1.3478e-03_jprb,1.4009e-03_jprb,4.0030e-02_jprb/)  
kao( :, 3, 9,14) = (/&
 & 1.8227e-03_jprb,1.6409e-03_jprb,1.4856e-03_jprb,1.4717e-03_jprb,1.6810e-03_jprb,2.0286e-03_jprb,&
 & 2.3381e-03_jprb,2.5517e-03_jprb,7.3381e-02_jprb/)  
kao( :, 4, 9,14) = (/&
 & 1.7776e-03_jprb,1.6302e-03_jprb,1.6842e-03_jprb,2.0805e-03_jprb,2.6540e-03_jprb,3.2313e-03_jprb,&
 & 3.7806e-03_jprb,4.1994e-03_jprb,1.2455e-01_jprb/)  
kao( :, 5, 9,14) = (/&
 & 1.7367e-03_jprb,1.7061e-03_jprb,2.1848e-03_jprb,3.1013e-03_jprb,4.0216e-03_jprb,4.9873e-03_jprb,&
 & 5.8671e-03_jprb,6.6087e-03_jprb,1.9836e-01_jprb/)  
kao( :, 1,10,14) = (/&
 & 2.1700e-03_jprb,1.8991e-03_jprb,1.6269e-03_jprb,1.3797e-03_jprb,1.1299e-03_jprb,8.7387e-04_jprb,&
 & 1.3980e-07_jprb,1.2659e-07_jprb,7.9784e-02_jprb/)  
kao( :, 2,10,14) = (/&
 & 2.1212e-03_jprb,1.8542e-03_jprb,1.6327e-03_jprb,1.4005e-03_jprb,1.1807e-03_jprb,1.0294e-03_jprb,&
 & 1.0221e-03_jprb,1.9929e-04_jprb,1.6978e-01_jprb/)  
kao( :, 3,10,14) = (/&
 & 2.0702e-03_jprb,1.8475e-03_jprb,1.6421e-03_jprb,1.4813e-03_jprb,1.4506e-03_jprb,1.6271e-03_jprb,&
 & 1.8528e-03_jprb,1.9874e-03_jprb,3.2534e-01_jprb/)  
kao( :, 4,10,14) = (/&
 & 2.0197e-03_jprb,1.8363e-03_jprb,1.7391e-03_jprb,1.8390e-03_jprb,2.2028e-03_jprb,2.6538e-03_jprb,&
 & 3.1240e-03_jprb,3.3958e-03_jprb,5.7201e-01_jprb/)  
kao( :, 5,10,14) = (/&
 & 1.9722e-03_jprb,1.8724e-03_jprb,2.0258e-03_jprb,2.6203e-03_jprb,3.3709e-03_jprb,4.1714e-03_jprb,&
 & 4.8976e-03_jprb,5.4947e-03_jprb,9.3618e-01_jprb/)  
kao( :, 1,11,14) = (/&
 & 2.4346e-03_jprb,2.1262e-03_jprb,1.8242e-03_jprb,1.5461e-03_jprb,1.2663e-03_jprb,9.7971e-04_jprb,&
 & 1.2672e-07_jprb,1.1257e-07_jprb,1.6191e-01_jprb/)  
kao( :, 2,11,14) = (/&
 & 2.3800e-03_jprb,2.0803e-03_jprb,1.8321e-03_jprb,1.5714e-03_jprb,1.3247e-03_jprb,1.1173e-03_jprb,&
 & 1.0133e-03_jprb,1.0538e-04_jprb,3.4424e-01_jprb/)  
kao( :, 3,11,14) = (/&
 & 2.3211e-03_jprb,2.0734e-03_jprb,1.8393e-03_jprb,1.6589e-03_jprb,1.5627e-03_jprb,1.6631e-03_jprb,&
 & 1.8852e-03_jprb,2.0216e-03_jprb,6.6076e-01_jprb/)  
kao( :, 4,11,14) = (/&
 & 2.2623e-03_jprb,2.0579e-03_jprb,1.9437e-03_jprb,1.9604e-03_jprb,2.2434e-03_jprb,2.7165e-03_jprb,&
 & 3.1823e-03_jprb,3.4732e-03_jprb,1.1622e+00_jprb/)  
kao( :, 5,11,14) = (/&
 & 2.2095e-03_jprb,2.1020e-03_jprb,2.1745e-03_jprb,2.6686e-03_jprb,3.4370e-03_jprb,4.2001e-03_jprb,&
 & 4.9598e-03_jprb,5.6011e-03_jprb,1.8980e+00_jprb/)  
kao( :, 1,12,14) = (/&
 & 2.7322e-03_jprb,2.3881e-03_jprb,2.0484e-03_jprb,1.7387e-03_jprb,1.4199e-03_jprb,1.1012e-03_jprb,&
 & 1.1269e-07_jprb,1.0126e-07_jprb,2.4431e-01_jprb/)  
kao( :, 2,12,14) = (/&
 & 2.6690e-03_jprb,2.3367e-03_jprb,2.0556e-03_jprb,1.7563e-03_jprb,1.4836e-03_jprb,1.2255e-03_jprb,&
 & 1.0602e-03_jprb,2.2342e-04_jprb,5.2005e-01_jprb/)  
kao( :, 3,12,14) = (/&
 & 2.6024e-03_jprb,2.3216e-03_jprb,2.0574e-03_jprb,1.8575e-03_jprb,1.6967e-03_jprb,1.7241e-03_jprb,&
 & 1.9458e-03_jprb,2.1132e-03_jprb,9.9525e-01_jprb/)  
kao( :, 4,12,14) = (/&
 & 2.5362e-03_jprb,2.2963e-03_jprb,2.1666e-03_jprb,2.1029e-03_jprb,2.2976e-03_jprb,2.7702e-03_jprb,&
 & 3.2192e-03_jprb,3.5953e-03_jprb,1.7434e+00_jprb/)  
kao( :, 5,12,14) = (/&
 & 2.4736e-03_jprb,2.3442e-03_jprb,2.3511e-03_jprb,2.7323e-03_jprb,3.5045e-03_jprb,4.2744e-03_jprb,&
 & 5.0574e-03_jprb,5.7337e-03_jprb,2.8511e+00_jprb/)  
kao( :, 1,13,14) = (/&
 & 3.0694e-03_jprb,2.6858e-03_jprb,2.3020e-03_jprb,1.9523e-03_jprb,1.5893e-03_jprb,1.2280e-03_jprb,&
 & 9.6824e-05_jprb,9.3571e-08_jprb,2.9420e-01_jprb/)  
kao( :, 2,13,14) = (/&
 & 2.9959e-03_jprb,2.6225e-03_jprb,2.2984e-03_jprb,1.9588e-03_jprb,1.6492e-03_jprb,1.3537e-03_jprb,&
 & 1.1186e-03_jprb,4.7180e-04_jprb,6.2570e-01_jprb/)  
kao( :, 3,13,14) = (/&
 & 2.9125e-03_jprb,2.5931e-03_jprb,2.2966e-03_jprb,2.0585e-03_jprb,1.8442e-03_jprb,1.7986e-03_jprb,&
 & 1.9858e-03_jprb,2.1644e-03_jprb,1.1929e+00_jprb/)  
kao( :, 4,13,14) = (/&
 & 2.8338e-03_jprb,2.5576e-03_jprb,2.3960e-03_jprb,2.2668e-03_jprb,2.3808e-03_jprb,2.8162e-03_jprb,&
 & 3.2861e-03_jprb,3.6781e-03_jprb,2.0900e+00_jprb/)  
kao( :, 5,13,14) = (/&
 & 2.7615e-03_jprb,2.6036e-03_jprb,2.5577e-03_jprb,2.8390e-03_jprb,3.5800e-03_jprb,4.3621e-03_jprb,&
 & 5.1422e-03_jprb,5.8469e-03_jprb,3.4082e+00_jprb/)  
kao( :, 1, 1,15) = (/&
 & 1.5335e-03_jprb,1.9324e-03_jprb,3.7679e-03_jprb,5.5453e-03_jprb,7.3003e-03_jprb,9.0183e-03_jprb,&
 & 1.0616e-02_jprb,1.1802e-02_jprb,1.3402e-02_jprb/)  
kao( :, 2, 1,15) = (/&
 & 1.8833e-03_jprb,2.7655e-03_jprb,5.2889e-03_jprb,7.8002e-03_jprb,1.0284e-02_jprb,1.2663e-02_jprb,&
 & 1.4949e-02_jprb,1.7186e-02_jprb,1.9451e-02_jprb/)  
kao( :, 3, 1,15) = (/&
 & 2.3483e-03_jprb,3.8414e-03_jprb,7.3773e-03_jprb,1.0888e-02_jprb,1.4361e-02_jprb,1.7765e-02_jprb,&
 & 2.0815e-02_jprb,2.3917e-02_jprb,2.7184e-02_jprb/)  
kao( :, 4, 1,15) = (/&
 & 2.9416e-03_jprb,5.1566e-03_jprb,9.9228e-03_jprb,1.4661e-02_jprb,1.9210e-02_jprb,2.3760e-02_jprb,&
 & 2.8113e-02_jprb,3.1154e-02_jprb,3.5404e-02_jprb/)  
kao( :, 5, 1,15) = (/&
 & 3.6966e-03_jprb,6.6653e-03_jprb,1.2941e-02_jprb,1.9171e-02_jprb,2.5316e-02_jprb,3.1127e-02_jprb,&
 & 3.6787e-02_jprb,4.1016e-02_jprb,4.6262e-02_jprb/)  
kao( :, 1, 2,15) = (/&
 & 1.4383e-03_jprb,1.8910e-03_jprb,3.6349e-03_jprb,5.3031e-03_jprb,6.9932e-03_jprb,8.6450e-03_jprb,&
 & 1.0512e-02_jprb,1.1619e-02_jprb,1.3810e-02_jprb/)  
kao( :, 2, 2,15) = (/&
 & 1.7711e-03_jprb,2.7662e-03_jprb,5.3277e-03_jprb,7.8716e-03_jprb,1.0388e-02_jprb,1.2798e-02_jprb,&
 & 1.4898e-02_jprb,1.7232e-02_jprb,1.9744e-02_jprb/)  
kao( :, 3, 2,15) = (/&
 & 2.2091e-03_jprb,3.9249e-03_jprb,7.5049e-03_jprb,1.1104e-02_jprb,1.4661e-02_jprb,1.8139e-02_jprb,&
 & 2.1328e-02_jprb,2.3602e-02_jprb,2.7985e-02_jprb/)  
kao( :, 4, 2,15) = (/&
 & 2.7705e-03_jprb,5.2948e-03_jprb,1.0279e-02_jprb,1.5231e-02_jprb,2.0000e-02_jprb,2.4763e-02_jprb,&
 & 2.9040e-02_jprb,3.2255e-02_jprb,3.8158e-02_jprb/)  
kao( :, 5, 2,15) = (/&
 & 3.5089e-03_jprb,6.9573e-03_jprb,1.3524e-02_jprb,2.0020e-02_jprb,2.6474e-02_jprb,3.2706e-02_jprb,&
 & 3.8152e-02_jprb,4.2439e-02_jprb,5.0508e-02_jprb/)  
kao( :, 1, 3,15) = (/&
 & 1.2705e-03_jprb,1.6880e-03_jprb,3.2165e-03_jprb,4.7906e-03_jprb,6.3186e-03_jprb,7.6460e-03_jprb,&
 & 9.3643e-03_jprb,1.0229e-02_jprb,1.2458e-02_jprb/)  
kao( :, 2, 3,15) = (/&
 & 1.5436e-03_jprb,2.5438e-03_jprb,4.9323e-03_jprb,7.3010e-03_jprb,9.6387e-03_jprb,1.1841e-02_jprb,&
 & 1.4163e-02_jprb,1.5548e-02_jprb,1.9155e-02_jprb/)  
kao( :, 3, 3,15) = (/&
 & 1.9176e-03_jprb,3.6434e-03_jprb,6.9853e-03_jprb,1.0590e-02_jprb,1.3995e-02_jprb,1.7311e-02_jprb,&
 & 2.0232e-02_jprb,2.1858e-02_jprb,2.7487e-02_jprb/)  
kao( :, 4, 3,15) = (/&
 & 2.3869e-03_jprb,4.9269e-03_jprb,9.6201e-03_jprb,1.4277e-02_jprb,1.9500e-02_jprb,2.4127e-02_jprb,&
 & 2.8236e-02_jprb,3.0501e-02_jprb,3.7416e-02_jprb/)  
kao( :, 5, 3,15) = (/&
 & 2.9972e-03_jprb,6.6065e-03_jprb,1.2887e-02_jprb,1.9158e-02_jprb,2.5345e-02_jprb,3.1167e-02_jprb,&
 & 3.7358e-02_jprb,4.1161e-02_jprb,5.0258e-02_jprb/)  
kao( :, 1, 4,15) = (/&
 & 1.2393e-03_jprb,1.4291e-03_jprb,2.7934e-03_jprb,4.1582e-03_jprb,5.4860e-03_jprb,6.6271e-03_jprb,&
 & 7.7456e-03_jprb,8.5638e-03_jprb,1.0713e-02_jprb/)  
kao( :, 2, 4,15) = (/&
 & 1.3400e-03_jprb,2.1964e-03_jprb,4.2752e-03_jprb,6.3365e-03_jprb,8.4061e-03_jprb,1.0279e-02_jprb,&
 & 1.2357e-02_jprb,1.3474e-02_jprb,1.7008e-02_jprb/)  
kao( :, 3, 4,15) = (/&
 & 1.6349e-03_jprb,3.2436e-03_jprb,6.2304e-03_jprb,9.4103e-03_jprb,1.2432e-02_jprb,1.5539e-02_jprb,&
 & 1.8108e-02_jprb,2.0011e-02_jprb,2.5265e-02_jprb/)  
kao( :, 4, 4,15) = (/&
 & 2.0292e-03_jprb,4.6522e-03_jprb,9.1141e-03_jprb,1.3542e-02_jprb,1.7761e-02_jprb,2.1969e-02_jprb,&
 & 2.5895e-02_jprb,2.8549e-02_jprb,3.4694e-02_jprb/)  
kao( :, 5, 4,15) = (/&
 & 2.5299e-03_jprb,6.1198e-03_jprb,1.2014e-02_jprb,1.7823e-02_jprb,2.3626e-02_jprb,3.0145e-02_jprb,&
 & 3.4844e-02_jprb,3.8179e-02_jprb,4.7443e-02_jprb/)  
kao( :, 1, 5,15) = (/&
 & 1.3376e-03_jprb,1.3061e-03_jprb,2.2933e-03_jprb,3.4105e-03_jprb,4.5058e-03_jprb,5.4169e-03_jprb,&
 & 6.3127e-03_jprb,7.0090e-03_jprb,8.8382e-03_jprb/)  
kao( :, 2, 5,15) = (/&
 & 1.3263e-03_jprb,1.8712e-03_jprb,3.6486e-03_jprb,5.3688e-03_jprb,7.2653e-03_jprb,8.6947e-03_jprb,&
 & 1.0335e-02_jprb,1.1527e-02_jprb,1.4282e-02_jprb/)  
kao( :, 3, 5,15) = (/&
 & 1.4243e-03_jprb,2.8262e-03_jprb,5.4158e-03_jprb,8.2878e-03_jprb,1.0953e-02_jprb,1.3340e-02_jprb,&
 & 1.6078e-02_jprb,1.7370e-02_jprb,2.2313e-02_jprb/)  
kao( :, 4, 5,15) = (/&
 & 1.6989e-03_jprb,4.0314e-03_jprb,7.9177e-03_jprb,1.2164e-02_jprb,1.6022e-02_jprb,1.9693e-02_jprb,&
 & 2.2743e-02_jprb,2.5430e-02_jprb,3.1147e-02_jprb/)  
kao( :, 5, 5,15) = (/&
 & 2.0980e-03_jprb,5.4208e-03_jprb,1.0645e-02_jprb,1.5846e-02_jprb,2.1457e-02_jprb,2.6719e-02_jprb,&
 & 3.1700e-02_jprb,3.4634e-02_jprb,4.2396e-02_jprb/)  
kao( :, 1, 6,15) = (/&
 & 1.4699e-03_jprb,1.3039e-03_jprb,1.7682e-03_jprb,2.6642e-03_jprb,3.3901e-03_jprb,4.1361e-03_jprb,&
 & 4.9645e-03_jprb,5.4015e-03_jprb,7.0142e-03_jprb/)  
kao( :, 2, 6,15) = (/&
 & 1.4420e-03_jprb,1.6011e-03_jprb,2.9603e-03_jprb,4.2663e-03_jprb,5.9096e-03_jprb,7.1197e-03_jprb,&
 & 8.3224e-03_jprb,9.2909e-03_jprb,1.1572e-02_jprb/)  
kao( :, 3, 6,15) = (/&
 & 1.4209e-03_jprb,2.3651e-03_jprb,4.5056e-03_jprb,6.8456e-03_jprb,9.2009e-03_jprb,1.1119e-02_jprb,&
 & 1.3497e-02_jprb,1.4341e-02_jprb,1.8485e-02_jprb/)  
kao( :, 4, 6,15) = (/&
 & 1.4876e-03_jprb,3.4335e-03_jprb,6.7368e-03_jprb,1.0314e-02_jprb,1.3111e-02_jprb,1.6614e-02_jprb,&
 & 1.9482e-02_jprb,2.1613e-02_jprb,2.6785e-02_jprb/)  
kao( :, 5, 6,15) = (/&
 & 1.7311e-03_jprb,4.9309e-03_jprb,9.6716e-03_jprb,1.4408e-02_jprb,1.8785e-02_jprb,2.3407e-02_jprb,&
 & 2.7826e-02_jprb,3.0253e-02_jprb,3.8797e-02_jprb/)  
kao( :, 1, 7,15) = (/&
 & 1.6452e-03_jprb,1.4412e-03_jprb,1.4879e-03_jprb,1.9571e-03_jprb,2.5256e-03_jprb,3.0766e-03_jprb,&
 & 3.7011e-03_jprb,4.0149e-03_jprb,5.3627e-03_jprb/)  
kao( :, 2, 7,15) = (/&
 & 1.6160e-03_jprb,1.5227e-03_jprb,2.2973e-03_jprb,3.3257e-03_jprb,4.5738e-03_jprb,5.5584e-03_jprb,&
 & 6.3881e-03_jprb,7.2538e-03_jprb,9.6722e-03_jprb/)  
kao( :, 3, 7,15) = (/&
 & 1.5860e-03_jprb,2.0263e-03_jprb,3.8492e-03_jprb,5.5523e-03_jprb,7.3824e-03_jprb,9.0664e-03_jprb,&
 & 1.0834e-02_jprb,1.1569e-02_jprb,1.5617e-02_jprb/)  
kao( :, 4, 7,15) = (/&
 & 1.5638e-03_jprb,2.9557e-03_jprb,5.6559e-03_jprb,8.6531e-03_jprb,1.0991e-02_jprb,1.3929e-02_jprb,&
 & 1.6365e-02_jprb,1.8010e-02_jprb,2.4730e-02_jprb/)  
kao( :, 5, 7,15) = (/&
 & 1.5935e-03_jprb,4.3661e-03_jprb,8.5392e-03_jprb,1.2446e-02_jprb,1.6667e-02_jprb,2.0343e-02_jprb,&
 & 2.3794e-02_jprb,2.5830e-02_jprb,3.6014e-02_jprb/)  
kao( :, 1, 8,15) = (/&
 & 1.8723e-03_jprb,1.6388e-03_jprb,1.4610e-03_jprb,1.5561e-03_jprb,1.8720e-03_jprb,2.3376e-03_jprb,&
 & 2.6613e-03_jprb,2.9039e-03_jprb,6.4956e-03_jprb/)  
kao( :, 2, 8,15) = (/&
 & 1.8456e-03_jprb,1.6296e-03_jprb,1.9116e-03_jprb,2.6011e-03_jprb,3.5199e-03_jprb,4.2393e-03_jprb,&
 & 4.8531e-03_jprb,5.3550e-03_jprb,1.2422e-02_jprb/)  
kao( :, 3, 8,15) = (/&
 & 1.8093e-03_jprb,1.9050e-03_jprb,3.1124e-03_jprb,4.4584e-03_jprb,5.9417e-03_jprb,7.2783e-03_jprb,&
 & 8.6194e-03_jprb,9.3908e-03_jprb,2.1656e-02_jprb/)  
kao( :, 4, 8,15) = (/&
 & 1.7796e-03_jprb,2.5264e-03_jprb,4.7746e-03_jprb,7.1139e-03_jprb,9.2445e-03_jprb,1.1405e-02_jprb,&
 & 1.3524e-02_jprb,1.4718e-02_jprb,3.5472e-02_jprb/)  
kao( :, 5, 8,15) = (/&
 & 1.7474e-03_jprb,3.6460e-03_jprb,7.3775e-03_jprb,1.0554e-02_jprb,1.4351e-02_jprb,1.7437e-02_jprb,&
 & 2.0234e-02_jprb,2.2659e-02_jprb,5.4466e-02_jprb/)  
kao( :, 1, 9,15) = (/&
 & 2.1531e-03_jprb,1.8852e-03_jprb,1.6173e-03_jprb,1.4438e-03_jprb,1.4392e-03_jprb,1.6909e-03_jprb,&
 & 1.8360e-03_jprb,1.2556e-03_jprb,2.2429e-02_jprb/)  
kao( :, 2, 9,15) = (/&
 & 2.1197e-03_jprb,1.8522e-03_jprb,1.7919e-03_jprb,2.0362e-03_jprb,2.5897e-03_jprb,3.1619e-03_jprb,&
 & 3.6769e-03_jprb,3.8809e-03_jprb,4.5293e-02_jprb/)  
kao( :, 3, 9,15) = (/&
 & 2.0806e-03_jprb,1.9202e-03_jprb,2.4651e-03_jprb,3.5166e-03_jprb,4.6833e-03_jprb,5.6685e-03_jprb,&
 & 6.7191e-03_jprb,7.2005e-03_jprb,8.3053e-02_jprb/)  
kao( :, 4, 9,15) = (/&
 & 2.0479e-03_jprb,2.3234e-03_jprb,3.9257e-03_jprb,5.8282e-03_jprb,7.5382e-03_jprb,9.2852e-03_jprb,&
 & 1.0968e-02_jprb,1.1755e-02_jprb,1.4085e-01_jprb/)  
kao( :, 5, 9,15) = (/&
 & 2.0135e-03_jprb,3.1161e-03_jprb,6.2953e-03_jprb,8.9489e-03_jprb,1.1910e-02_jprb,1.4603e-02_jprb,&
 & 1.7103e-02_jprb,1.8687e-02_jprb,2.2489e-01_jprb/)  
kao( :, 1,10,15) = (/&
 & 2.4996e-03_jprb,2.1860e-03_jprb,1.8719e-03_jprb,1.5736e-03_jprb,1.3474e-03_jprb,1.3138e-03_jprb,&
 & 1.2455e-03_jprb,1.1328e-07_jprb,9.2144e-02_jprb/)  

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


SUBROUTINE part11

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


kao( :, 2,10,15) = (/&
 & 2.4545e-03_jprb,2.1478e-03_jprb,1.8895e-03_jprb,1.8842e-03_jprb,2.0494e-03_jprb,2.4515e-03_jprb,&
 & 2.7912e-03_jprb,2.8411e-03_jprb,1.9577e-01_jprb/)  
kao( :, 3,10,15) = (/&
 & 2.4123e-03_jprb,2.1379e-03_jprb,2.2699e-03_jprb,2.9106e-03_jprb,3.7957e-03_jprb,4.5303e-03_jprb,&
 & 5.1569e-03_jprb,5.5947e-03_jprb,3.7579e-01_jprb/)  
kao( :, 4,10,15) = (/&
 & 2.3670e-03_jprb,2.3455e-03_jprb,3.3904e-03_jprb,4.7982e-03_jprb,6.5586e-03_jprb,7.6814e-03_jprb,&
 & 8.9698e-03_jprb,9.4919e-03_jprb,6.5920e-01_jprb/)  
kao( :, 5,10,15) = (/&
 & 2.3225e-03_jprb,2.8728e-03_jprb,5.4745e-03_jprb,7.9446e-03_jprb,1.0257e-02_jprb,1.2466e-02_jprb,&
 & 1.4486e-02_jprb,1.5553e-02_jprb,1.0800e+00_jprb/)  
kao( :, 1,11,15) = (/&
 & 2.8637e-03_jprb,2.5035e-03_jprb,2.1436e-03_jprb,1.8035e-03_jprb,1.5339e-03_jprb,1.4234e-03_jprb,&
 & 1.1994e-03_jprb,9.8829e-08_jprb,1.9145e-01_jprb/)  
kao( :, 2,11,15) = (/&
 & 2.8241e-03_jprb,2.4682e-03_jprb,2.1655e-03_jprb,2.0940e-03_jprb,2.2293e-03_jprb,2.5943e-03_jprb,&
 & 2.8972e-03_jprb,2.9304e-03_jprb,4.0810e-01_jprb/)  
kao( :, 3,11,15) = (/&
 & 2.7755e-03_jprb,2.4611e-03_jprb,2.5498e-03_jprb,3.0773e-03_jprb,3.9941e-03_jprb,4.8157e-03_jprb,&
 & 5.3205e-03_jprb,5.7118e-03_jprb,7.8317e-01_jprb/)  
kao( :, 4,11,15) = (/&
 & 2.7180e-03_jprb,2.6251e-03_jprb,3.6039e-03_jprb,5.0535e-03_jprb,6.8961e-03_jprb,8.2198e-03_jprb,&
 & 9.2474e-03_jprb,9.6840e-03_jprb,1.3768e+00_jprb/)  
kao( :, 5,11,15) = (/&
 & 2.6558e-03_jprb,3.1273e-03_jprb,5.6600e-03_jprb,8.3772e-03_jprb,1.0624e-02_jprb,1.3218e-02_jprb,&
 & 1.5003e-02_jprb,1.5876e-02_jprb,2.2520e+00_jprb/)  
kao( :, 1,12,15) = (/&
 & 3.2714e-03_jprb,2.8584e-03_jprb,2.4535e-03_jprb,2.0680e-03_jprb,1.7413e-03_jprb,1.5693e-03_jprb,&
 & 1.4195e-03_jprb,8.7492e-08_jprb,2.9715e-01_jprb/)  
kao( :, 2,12,15) = (/&
 & 3.2238e-03_jprb,2.8219e-03_jprb,2.4898e-03_jprb,2.3173e-03_jprb,2.4029e-03_jprb,2.7493e-03_jprb,&
 & 3.0184e-03_jprb,3.0151e-03_jprb,6.3430e-01_jprb/)  
kao( :, 3,12,15) = (/&
 & 3.1690e-03_jprb,2.8261e-03_jprb,2.8398e-03_jprb,3.2763e-03_jprb,4.1787e-03_jprb,5.0712e-03_jprb,&
 & 5.7128e-03_jprb,5.7933e-03_jprb,1.2146e+00_jprb/)  
kao( :, 4,12,15) = (/&
 & 3.1066e-03_jprb,2.9671e-03_jprb,3.8178e-03_jprb,5.5845e-03_jprb,7.1025e-03_jprb,8.6518e-03_jprb,&
 & 9.8099e-03_jprb,1.0106e-02_jprb,2.1338e+00_jprb/)  
kao( :, 5,12,15) = (/&
 & 3.0417e-03_jprb,3.4447e-03_jprb,5.9771e-03_jprb,8.7849e-03_jprb,1.1154e-02_jprb,1.3933e-02_jprb,&
 & 1.5683e-02_jprb,1.6226e-02_jprb,3.5026e+00_jprb/)  
kao( :, 1,13,15) = (/&
 & 3.7174e-03_jprb,3.2529e-03_jprb,2.7876e-03_jprb,2.3613e-03_jprb,1.9840e-03_jprb,1.7059e-03_jprb,&
 & 1.5699e-03_jprb,2.2638e-04_jprb,3.7080e-01_jprb/)  
kao( :, 2,13,15) = (/&
 & 3.6607e-03_jprb,3.2024e-03_jprb,2.8505e-03_jprb,2.5957e-03_jprb,2.5988e-03_jprb,2.8843e-03_jprb,&
 & 3.1480e-03_jprb,3.2252e-03_jprb,7.9012e-01_jprb/)  
kao( :, 3,13,15) = (/&
 & 3.6056e-03_jprb,3.2358e-03_jprb,3.0977e-03_jprb,3.5132e-03_jprb,4.3893e-03_jprb,5.3238e-03_jprb,&
 & 5.9823e-03_jprb,6.0551e-03_jprb,1.5116e+00_jprb/)  
kao( :, 4,13,15) = (/&
 & 3.5392e-03_jprb,3.3725e-03_jprb,4.1216e-03_jprb,5.8741e-03_jprb,7.4524e-03_jprb,8.9744e-03_jprb,&
 & 1.0256e-02_jprb,1.0534e-02_jprb,2.6566e+00_jprb/)  
kao( :, 5,13,15) = (/&
 & 3.4654e-03_jprb,3.8025e-03_jprb,6.3205e-03_jprb,9.1996e-03_jprb,1.1773e-02_jprb,1.4433e-02_jprb,&
 & 1.6393e-02_jprb,1.6955e-02_jprb,4.3588e+00_jprb/)  
kao( :, 1, 1,16) = (/&
 & 1.5672e-03_jprb,2.1553e-03_jprb,4.1215e-03_jprb,6.0711e-03_jprb,7.9933e-03_jprb,9.8639e-03_jprb,&
 & 1.1623e-02_jprb,1.2894e-02_jprb,1.4627e-02_jprb/)  
kao( :, 2, 1,16) = (/&
 & 1.9455e-03_jprb,3.1176e-03_jprb,5.9834e-03_jprb,8.8258e-03_jprb,1.1628e-02_jprb,1.4352e-02_jprb,&
 & 1.6890e-02_jprb,1.8782e-02_jprb,2.1292e-02_jprb/)  
kao( :, 3, 1,16) = (/&
 & 2.4286e-03_jprb,4.3028e-03_jprb,8.2818e-03_jprb,1.2234e-02_jprb,1.6127e-02_jprb,1.9913e-02_jprb,&
 & 2.3612e-02_jprb,2.6215e-02_jprb,2.9752e-02_jprb/)  
kao( :, 4, 1,16) = (/&
 & 3.0199e-03_jprb,5.7955e-03_jprb,1.1212e-02_jprb,1.6585e-02_jprb,2.1939e-02_jprb,2.7103e-02_jprb,&
 & 3.1641e-02_jprb,3.5382e-02_jprb,4.0152e-02_jprb/)  
kao( :, 5, 1,16) = (/&
 & 3.7301e-03_jprb,7.5925e-03_jprb,1.4663e-02_jprb,2.1614e-02_jprb,2.8523e-02_jprb,3.5412e-02_jprb,&
 & 4.1705e-02_jprb,4.6016e-02_jprb,5.2602e-02_jprb/)  
kao( :, 1, 2,16) = (/&
 & 1.4714e-03_jprb,2.1897e-03_jprb,4.1859e-03_jprb,6.1816e-03_jprb,8.1457e-03_jprb,1.0051e-02_jprb,&
 & 1.1874e-02_jprb,1.3114e-02_jprb,1.5524e-02_jprb/)  
kao( :, 2, 2,16) = (/&
 & 1.8243e-03_jprb,3.2190e-03_jprb,6.2284e-03_jprb,9.2101e-03_jprb,1.2144e-02_jprb,1.5021e-02_jprb,&
 & 1.7606e-02_jprb,1.9473e-02_jprb,2.2997e-02_jprb/)  
kao( :, 3, 2,16) = (/&
 & 2.2843e-03_jprb,4.5394e-03_jprb,8.8033e-03_jprb,1.3032e-02_jprb,1.7194e-02_jprb,2.1230e-02_jprb,&
 & 2.5009e-02_jprb,2.7460e-02_jprb,3.2496e-02_jprb/)  
kao( :, 4, 2,16) = (/&
 & 2.8708e-03_jprb,6.2086e-03_jprb,1.2093e-02_jprb,1.7923e-02_jprb,2.3632e-02_jprb,2.9181e-02_jprb,&
 & 3.4133e-02_jprb,3.7858e-02_jprb,4.4523e-02_jprb/)  
kao( :, 5, 2,16) = (/&
 & 3.5701e-03_jprb,8.1350e-03_jprb,1.5874e-02_jprb,2.3527e-02_jprb,3.1085e-02_jprb,3.8729e-02_jprb,&
 & 4.5307e-02_jprb,4.9567e-02_jprb,5.9359e-02_jprb/)  
kao( :, 1, 3,16) = (/&
 & 1.2836e-03_jprb,2.0294e-03_jprb,3.8863e-03_jprb,5.8124e-03_jprb,7.6573e-03_jprb,9.3378e-03_jprb,&
 & 1.1017e-02_jprb,1.1974e-02_jprb,1.4949e-02_jprb/)  
kao( :, 2, 3,16) = (/&
 & 1.5660e-03_jprb,3.0824e-03_jprb,6.0009e-03_jprb,8.8868e-03_jprb,1.1717e-02_jprb,1.4438e-02_jprb,&
 & 1.6887e-02_jprb,1.8445e-02_jprb,2.2945e-02_jprb/)  
kao( :, 3, 3,16) = (/&
 & 1.9600e-03_jprb,4.4422e-03_jprb,8.7147e-03_jprb,1.2909e-02_jprb,1.7029e-02_jprb,2.0993e-02_jprb,&
 & 2.4634e-02_jprb,2.6606e-02_jprb,3.3559e-02_jprb/)  
kao( :, 4, 3,16) = (/&
 & 2.4642e-03_jprb,6.2222e-03_jprb,1.2184e-02_jprb,1.8079e-02_jprb,2.3727e-02_jprb,2.9253e-02_jprb,&
 & 3.4378e-02_jprb,3.7595e-02_jprb,4.7010e-02_jprb/)  
kao( :, 5, 3,16) = (/&
 & 3.0951e-03_jprb,8.3838e-03_jprb,1.6309e-02_jprb,2.4359e-02_jprb,3.2164e-02_jprb,3.9734e-02_jprb,&
 & 4.6556e-02_jprb,5.0749e-02_jprb,6.3475e-02_jprb/)  
kao( :, 1, 4,16) = (/&
 & 1.2574e-03_jprb,1.8114e-03_jprb,3.5154e-03_jprb,5.2030e-03_jprb,6.8473e-03_jprb,8.4135e-03_jprb,&
 & 9.7945e-03_jprb,1.0467e-02_jprb,1.3735e-02_jprb/)  
kao( :, 2, 4,16) = (/&
 & 1.4045e-03_jprb,2.8445e-03_jprb,5.5546e-03_jprb,8.2273e-03_jprb,1.0867e-02_jprb,1.3255e-02_jprb,&
 & 1.5543e-02_jprb,1.6757e-02_jprb,2.1717e-02_jprb/)  
kao( :, 3, 4,16) = (/&
 & 1.7089e-03_jprb,4.2655e-03_jprb,8.3342e-03_jprb,1.2385e-02_jprb,1.6320e-02_jprb,2.0006e-02_jprb,&
 & 2.3383e-02_jprb,2.5166e-02_jprb,3.2791e-02_jprb/)  
kao( :, 4, 4,16) = (/&
 & 2.1090e-03_jprb,6.0675e-03_jprb,1.1915e-02_jprb,1.7681e-02_jprb,2.3322e-02_jprb,2.8694e-02_jprb,&
 & 3.3458e-02_jprb,3.6118e-02_jprb,4.7164e-02_jprb/)  
kao( :, 5, 4,16) = (/&
 & 2.6086e-03_jprb,8.3756e-03_jprb,1.6515e-02_jprb,2.4278e-02_jprb,3.2230e-02_jprb,3.9587e-02_jprb,&
 & 4.6358e-02_jprb,4.9833e-02_jprb,6.4660e-02_jprb/)  
kao( :, 1, 5,16) = (/&
 & 1.3825e-03_jprb,1.5837e-03_jprb,3.0919e-03_jprb,4.5531e-03_jprb,6.0074e-03_jprb,7.3563e-03_jprb,&
 & 8.5040e-03_jprb,9.0047e-03_jprb,1.2222e-02_jprb/)  
kao( :, 2, 5,16) = (/&
 & 1.3514e-03_jprb,2.5997e-03_jprb,5.0814e-03_jprb,7.5197e-03_jprb,9.9239e-03_jprb,1.2026e-02_jprb,&
 & 1.3939e-02_jprb,1.4883e-02_jprb,2.0096e-02_jprb/)  
kao( :, 3, 5,16) = (/&
 & 1.5206e-03_jprb,4.0333e-03_jprb,7.8158e-03_jprb,1.1713e-02_jprb,1.5405e-02_jprb,1.8636e-02_jprb,&
 & 2.1846e-02_jprb,2.3099e-02_jprb,3.1394e-02_jprb/)  
kao( :, 4, 5,16) = (/&
 & 1.8386e-03_jprb,5.8482e-03_jprb,1.1495e-02_jprb,1.7163e-02_jprb,2.2705e-02_jprb,2.7707e-02_jprb,&
 & 3.1828e-02_jprb,3.4087e-02_jprb,4.5825e-02_jprb/)  
kao( :, 5, 5,16) = (/&
 & 2.2527e-03_jprb,8.2599e-03_jprb,1.6275e-02_jprb,2.4092e-02_jprb,3.1836e-02_jprb,3.8856e-02_jprb,&
 & 4.5237e-02_jprb,4.7798e-02_jprb,6.5032e-02_jprb/)  
kao( :, 1, 6,16) = (/&
 & 1.5452e-03_jprb,1.3558e-03_jprb,2.6064e-03_jprb,3.8420e-03_jprb,5.0190e-03_jprb,6.1218e-03_jprb,&
 & 7.0124e-03_jprb,7.3072e-03_jprb,1.0404e-02_jprb/)  
kao( :, 2, 6,16) = (/&
 & 1.5160e-03_jprb,2.2762e-03_jprb,4.4992e-03_jprb,6.5908e-03_jprb,8.7549e-03_jprb,1.0577e-02_jprb,&
 & 1.2081e-02_jprb,1.2650e-02_jprb,1.7914e-02_jprb/)  
kao( :, 3, 6,16) = (/&
 & 1.4831e-03_jprb,3.6667e-03_jprb,7.1626e-03_jprb,1.0648e-02_jprb,1.4117e-02_jprb,1.6912e-02_jprb,&
 & 1.9731e-02_jprb,2.0210e-02_jprb,2.8978e-02_jprb/)  
kao( :, 4, 6,16) = (/&
 & 1.6115e-03_jprb,5.5846e-03_jprb,1.0973e-02_jprb,1.6135e-02_jprb,2.1251e-02_jprb,2.6015e-02_jprb,&
 & 2.9549e-02_jprb,3.0765e-02_jprb,4.3671e-02_jprb/)  
kao( :, 5, 6,16) = (/&
 & 1.9392e-03_jprb,8.0663e-03_jprb,1.5907e-02_jprb,2.3470e-02_jprb,3.0817e-02_jprb,3.7382e-02_jprb,&
 & 4.3204e-02_jprb,4.4622e-02_jprb,6.3997e-02_jprb/)  
kao( :, 1, 7,16) = (/&
 & 1.7424e-03_jprb,1.5255e-03_jprb,2.1507e-03_jprb,3.1520e-03_jprb,4.1047e-03_jprb,4.9755e-03_jprb,&
 & 5.6339e-03_jprb,5.7296e-03_jprb,8.6456e-03_jprb/)  
kao( :, 2, 7,16) = (/&
 & 1.7170e-03_jprb,1.9718e-03_jprb,3.9047e-03_jprb,5.6866e-03_jprb,7.5061e-03_jprb,9.0459e-03_jprb,&
 & 1.0285e-02_jprb,1.0440e-02_jprb,1.5762e-02_jprb/)  
kao( :, 3, 7,16) = (/&
 & 1.6789e-03_jprb,3.3135e-03_jprb,6.5455e-03_jprb,9.5842e-03_jprb,1.2571e-02_jprb,1.5280e-02_jprb,&
 & 1.7323e-02_jprb,1.7346e-02_jprb,2.6392e-02_jprb/)  
kao( :, 4, 7,16) = (/&
 & 1.6475e-03_jprb,5.2207e-03_jprb,1.0255e-02_jprb,1.5008e-02_jprb,1.9715e-02_jprb,2.4009e-02_jprb,&
 & 2.7310e-02_jprb,2.7325e-02_jprb,4.1677e-02_jprb/)  
kao( :, 5, 7,16) = (/&
 & 1.7171e-03_jprb,7.7744e-03_jprb,1.5301e-02_jprb,2.2477e-02_jprb,2.9556e-02_jprb,3.5932e-02_jprb,&
 & 4.0780e-02_jprb,4.0784e-02_jprb,6.2312e-02_jprb/)  
kao( :, 1, 8,16) = (/&
 & 1.9724e-03_jprb,1.7312e-03_jprb,1.7354e-03_jprb,2.5314e-03_jprb,3.2671e-03_jprb,3.9608e-03_jprb,&
 & 4.3782e-03_jprb,4.2763e-03_jprb,7.0340e-03_jprb/)  
kao( :, 2, 8,16) = (/&
 & 1.9569e-03_jprb,1.7215e-03_jprb,3.3340e-03_jprb,4.8320e-03_jprb,6.3356e-03_jprb,7.5448e-03_jprb,&
 & 8.4497e-03_jprb,8.2045e-03_jprb,1.3623e-02_jprb/)  
kao( :, 3, 8,16) = (/&
 & 1.9222e-03_jprb,3.0063e-03_jprb,5.8393e-03_jprb,8.4557e-03_jprb,1.1082e-02_jprb,1.3356e-02_jprb,&
 & 1.4892e-02_jprb,1.4508e-02_jprb,2.3611e-02_jprb/)  
kao( :, 4, 8,16) = (/&
 & 1.8856e-03_jprb,4.8368e-03_jprb,9.4413e-03_jprb,1.3907e-02_jprb,1.7960e-02_jprb,2.1659e-02_jprb,&
 & 2.4357e-02_jprb,2.3676e-02_jprb,3.8984e-02_jprb/)  
kao( :, 5, 8,16) = (/&
 & 1.8442e-03_jprb,7.3401e-03_jprb,1.4568e-02_jprb,2.1338e-02_jprb,2.7859e-02_jprb,3.3579e-02_jprb,&
 & 3.7493e-02_jprb,3.6571e-02_jprb,5.9238e-02_jprb/)  
kao( :, 1, 9,16) = (/&
 & 2.2527e-03_jprb,1.9717e-03_jprb,1.6910e-03_jprb,1.9762e-03_jprb,2.5161e-03_jprb,3.0221e-03_jprb,&
 & 3.2672e-03_jprb,3.0670e-03_jprb,2.3998e-02_jprb/)  
kao( :, 2, 9,16) = (/&
 & 2.2414e-03_jprb,1.9482e-03_jprb,2.7675e-03_jprb,3.9857e-03_jprb,5.1603e-03_jprb,6.1015e-03_jprb,&
 & 6.6813e-03_jprb,6.2533e-03_jprb,4.8508e-02_jprb/)  
kao( :, 3, 9,16) = (/&
 & 2.2044e-03_jprb,2.6160e-03_jprb,5.0727e-03_jprb,7.3140e-03_jprb,9.5554e-03_jprb,1.1250e-02_jprb,&
 & 1.2412e-02_jprb,1.1623e-02_jprb,8.8725e-02_jprb/)  
kao( :, 4, 9,16) = (/&
 & 2.1701e-03_jprb,4.4267e-03_jprb,8.5607e-03_jprb,1.2545e-02_jprb,1.6038e-02_jprb,1.9134e-02_jprb,&
 & 2.1125e-02_jprb,1.9740e-02_jprb,1.5078e-01_jprb/)  
kao( :, 5, 9,16) = (/&
 & 2.1291e-03_jprb,6.8813e-03_jprb,1.3705e-02_jprb,1.9867e-02_jprb,2.5629e-02_jprb,3.0522e-02_jprb,&
 & 3.3472e-02_jprb,3.1537e-02_jprb,2.4056e-01_jprb/)  
kao( :, 1,10,16) = (/&
 & 2.6049e-03_jprb,2.2811e-03_jprb,1.9524e-03_jprb,1.6297e-03_jprb,1.9817e-03_jprb,2.3323e-03_jprb,&
 & 2.4538e-03_jprb,1.0919e-07_jprb,9.9434e-02_jprb/)  
kao( :, 2,10,16) = (/&
 & 2.5564e-03_jprb,2.2387e-03_jprb,2.3682e-03_jprb,3.4024e-03_jprb,4.3056e-03_jprb,4.9923e-03_jprb,&
 & 5.3151e-03_jprb,4.7395e-03_jprb,2.1164e-01_jprb/)  
kao( :, 3,10,16) = (/&
 & 2.5312e-03_jprb,2.3572e-03_jprb,4.5332e-03_jprb,6.5179e-03_jprb,8.3516e-03_jprb,9.6321e-03_jprb,&
 & 1.0262e-02_jprb,9.2275e-03_jprb,4.0466e-01_jprb/)  
kao( :, 4,10,16) = (/&
 & 2.4933e-03_jprb,4.1318e-03_jprb,7.9555e-03_jprb,1.1428e-02_jprb,1.4719e-02_jprb,1.6992e-02_jprb,&
 & 1.8127e-02_jprb,1.6262e-02_jprb,7.1180e-01_jprb/)  
kao( :, 5,10,16) = (/&
 & 2.4587e-03_jprb,6.7099e-03_jprb,1.3086e-02_jprb,1.8862e-02_jprb,2.3880e-02_jprb,2.7946e-02_jprb,&
 & 2.9807e-02_jprb,2.6793e-02_jprb,1.1699e+00_jprb/)  
kao( :, 1,11,16) = (/&
 & 3.0995e-03_jprb,2.7200e-03_jprb,2.3118e-03_jprb,1.9403e-03_jprb,2.2912e-03_jprb,2.6188e-03_jprb,&
 & 2.6729e-03_jprb,9.6247e-08_jprb,2.0911e-01_jprb/)  
kao( :, 2,11,16) = (/&
 & 2.9890e-03_jprb,2.6201e-03_jprb,2.7716e-03_jprb,3.9533e-03_jprb,4.9561e-03_jprb,5.6265e-03_jprb,&
 & 5.7942e-03_jprb,4.9820e-03_jprb,4.4548e-01_jprb/)  
kao( :, 3,11,16) = (/&
 & 2.9190e-03_jprb,2.7609e-03_jprb,5.3580e-03_jprb,7.5536e-03_jprb,9.5654e-03_jprb,1.0853e-02_jprb,&
 & 1.1187e-02_jprb,9.7006e-03_jprb,8.5245e-01_jprb/)  
kao( :, 4,11,16) = (/&
 & 2.8864e-03_jprb,4.8539e-03_jprb,9.3197e-03_jprb,1.3213e-02_jprb,1.6850e-02_jprb,1.9193e-02_jprb,&
 & 1.9763e-02_jprb,1.7093e-02_jprb,1.5055e+00_jprb/)  
kao( :, 5,11,16) = (/&
 & 2.8813e-03_jprb,7.9127e-03_jprb,1.5164e-02_jprb,2.1854e-02_jprb,2.7083e-02_jprb,3.1374e-02_jprb,&
 & 3.2509e-02_jprb,2.8179e-02_jprb,2.4634e+00_jprb/)  
kao( :, 1,12,16) = (/&
 & 3.7114e-03_jprb,3.2586e-03_jprb,2.7915e-03_jprb,2.3232e-03_jprb,2.6631e-03_jprb,3.0175e-03_jprb,&
 & 3.0634e-03_jprb,8.7203e-08_jprb,3.2918e-01_jprb/)  
kao( :, 2,12,16) = (/&
 & 3.5714e-03_jprb,3.1255e-03_jprb,3.2432e-03_jprb,4.6151e-03_jprb,5.7633e-03_jprb,6.4683e-03_jprb,&
 & 6.5276e-03_jprb,5.5718e-03_jprb,7.0176e-01_jprb/)  
kao( :, 3,12,16) = (/&
 & 3.4916e-03_jprb,3.2858e-03_jprb,6.3152e-03_jprb,8.8262e-03_jprb,1.0981e-02_jprb,1.2464e-02_jprb,&
 & 1.2740e-02_jprb,1.0731e-02_jprb,1.3410e+00_jprb/)  
kao( :, 4,12,16) = (/&
 & 3.4311e-03_jprb,5.7096e-03_jprb,1.0941e-02_jprb,1.5646e-02_jprb,1.9404e-02_jprb,2.2034e-02_jprb,&
 & 2.2454e-02_jprb,1.9063e-02_jprb,2.3582e+00_jprb/)  
kao( :, 5,12,16) = (/&
 & 3.4152e-03_jprb,9.2951e-03_jprb,1.7728e-02_jprb,2.5434e-02_jprb,3.1194e-02_jprb,3.5945e-02_jprb,&
 & 3.6575e-02_jprb,3.1362e-02_jprb,3.8718e+00_jprb/)  
kao( :, 1,13,16) = (/&
 & 4.4410e-03_jprb,3.8860e-03_jprb,3.3353e-03_jprb,2.7740e-03_jprb,3.0544e-03_jprb,3.4238e-03_jprb,&
 & 3.4509e-03_jprb,2.8859e-03_jprb,4.1592e-01_jprb/)  
kao( :, 2,13,16) = (/&
 & 4.2685e-03_jprb,3.7372e-03_jprb,3.7732e-03_jprb,5.3427e-03_jprb,6.6266e-03_jprb,7.3589e-03_jprb,&
 & 7.3233e-03_jprb,6.2265e-03_jprb,8.8643e-01_jprb/)  
kao( :, 3,13,16) = (/&
 & 4.1797e-03_jprb,3.9191e-03_jprb,7.1821e-03_jprb,1.0185e-02_jprb,1.2582e-02_jprb,1.4162e-02_jprb,&
 & 1.4321e-02_jprb,1.1935e-02_jprb,1.6929e+00_jprb/)  
kao( :, 4,13,16) = (/&
 & 4.0934e-03_jprb,6.6879e-03_jprb,1.2699e-02_jprb,1.8078e-02_jprb,2.2220e-02_jprb,2.4912e-02_jprb,&
 & 2.5205e-02_jprb,2.1207e-02_jprb,2.9775e+00_jprb/)  
kao( :, 5,13,16) = (/&
 & 4.0583e-03_jprb,1.0796e-02_jprb,2.0731e-02_jprb,2.9284e-02_jprb,3.5883e-02_jprb,4.0713e-02_jprb,&
 & 4.0964e-02_jprb,3.4894e-02_jprb,4.8770e+00_jprb/)  

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

kbo( :,13, 1) = (/&
 & 5.1259e-02_jprb,7.3611e-02_jprb,1.0293e-01_jprb,1.3958e-01_jprb,1.8370e-01_jprb/)  
kbo( :,14, 1) = (/&
 & 4.5713e-02_jprb,6.5277e-02_jprb,9.0553e-02_jprb,1.2145e-01_jprb,1.5795e-01_jprb/)  
kbo( :,15, 1) = (/&
 & 4.0795e-02_jprb,5.7938e-02_jprb,7.9664e-02_jprb,1.0581e-01_jprb,1.3605e-01_jprb/)  
kbo( :,16, 1) = (/&
 & 3.6460e-02_jprb,5.1532e-02_jprb,7.0278e-02_jprb,9.2517e-02_jprb,1.1775e-01_jprb/)  
kbo( :,17, 1) = (/&
 & 3.2358e-02_jprb,4.5390e-02_jprb,6.1388e-02_jprb,8.0070e-02_jprb,1.0088e-01_jprb/)  
kbo( :,18, 1) = (/&
 & 2.8485e-02_jprb,3.9634e-02_jprb,5.3109e-02_jprb,6.8586e-02_jprb,8.5607e-02_jprb/)  
kbo( :,19, 1) = (/&
 & 2.4839e-02_jprb,3.4251e-02_jprb,4.5451e-02_jprb,5.8119e-02_jprb,7.1935e-02_jprb/)  
kbo( :,20, 1) = (/&
 & 2.1646e-02_jprb,2.9549e-02_jprb,3.8829e-02_jprb,4.9218e-02_jprb,6.0534e-02_jprb/)  
kbo( :,21, 1) = (/&
 & 1.8726e-02_jprb,2.5319e-02_jprb,3.2990e-02_jprb,4.1539e-02_jprb,5.0831e-02_jprb/)  
kbo( :,22, 1) = (/&
 & 1.6430e-02_jprb,2.1972e-02_jprb,2.8373e-02_jprb,3.5469e-02_jprb,4.3144e-02_jprb/)  
kbo( :,23, 1) = (/&
 & 1.4344e-02_jprb,1.9007e-02_jprb,2.4347e-02_jprb,3.0236e-02_jprb,3.6575e-02_jprb/)  
kbo( :,24, 1) = (/&
 & 1.2498e-02_jprb,1.6422e-02_jprb,2.0874e-02_jprb,2.5759e-02_jprb,3.0990e-02_jprb/)  

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


SUBROUTINE part12

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


kbo( :,25, 1) = (/&
 & 1.0890e-02_jprb,1.4194e-02_jprb,1.7906e-02_jprb,2.1962e-02_jprb,2.6282e-02_jprb/)  
kbo( :,26, 1) = (/&
 & 9.5169e-03_jprb,1.2303e-02_jprb,1.5406e-02_jprb,1.8780e-02_jprb,2.2347e-02_jprb/)  
kbo( :,27, 1) = (/&
 & 8.3127e-03_jprb,1.0661e-02_jprb,1.3260e-02_jprb,1.6073e-02_jprb,1.9015e-02_jprb/)  
kbo( :,28, 1) = (/&
 & 7.2555e-03_jprb,9.2333e-03_jprb,1.1414e-02_jprb,1.3752e-02_jprb,1.6182e-02_jprb/)  
kbo( :,29, 1) = (/&
 & 6.3460e-03_jprb,8.0168e-03_jprb,9.8497e-03_jprb,1.1797e-02_jprb,1.3808e-02_jprb/)  
kbo( :,30, 1) = (/&
 & 5.5479e-03_jprb,6.9613e-03_jprb,8.4972e-03_jprb,1.0118e-02_jprb,1.1783e-02_jprb/)  
kbo( :,31, 1) = (/&
 & 4.8584e-03_jprb,6.0543e-03_jprb,7.3446e-03_jprb,8.6964e-03_jprb,1.0081e-02_jprb/)  
kbo( :,32, 1) = (/&
 & 4.2533e-03_jprb,5.2649e-03_jprb,6.3493e-03_jprb,7.4778e-03_jprb,8.6341e-03_jprb/)  
kbo( :,33, 1) = (/&
 & 3.7229e-03_jprb,4.5793e-03_jprb,5.4910e-03_jprb,6.4373e-03_jprb,7.4041e-03_jprb/)  
kbo( :,34, 1) = (/&
 & 3.2276e-03_jprb,3.9492e-03_jprb,4.7134e-03_jprb,5.5048e-03_jprb,6.3115e-03_jprb/)  
kbo( :,35, 1) = (/&
 & 2.7399e-03_jprb,3.3442e-03_jprb,3.9827e-03_jprb,4.6441e-03_jprb,5.3183e-03_jprb/)  
kbo( :,36, 1) = (/&
 & 2.2726e-03_jprb,2.7751e-03_jprb,3.3064e-03_jprb,3.8585e-03_jprb,4.4216e-03_jprb/)  
kbo( :,37, 1) = (/&
 & 1.8221e-03_jprb,2.2350e-03_jprb,2.6736e-03_jprb,3.1310e-03_jprb,3.5993e-03_jprb/)  
kbo( :,38, 1) = (/&
 & 1.4592e-03_jprb,1.7985e-03_jprb,2.1611e-03_jprb,2.5404e-03_jprb,2.9304e-03_jprb/)  
kbo( :,39, 1) = (/&
 & 1.1699e-03_jprb,1.4493e-03_jprb,1.7501e-03_jprb,2.0658e-03_jprb,2.3919e-03_jprb/)  
kbo( :,40, 1) = (/&
 & 9.1194e-04_jprb,1.1380e-03_jprb,1.3840e-03_jprb,1.6433e-03_jprb,1.9130e-03_jprb/)  
kbo( :,41, 1) = (/&
 & 7.0723e-04_jprb,8.8961e-04_jprb,1.0899e-03_jprb,1.3025e-03_jprb,1.5252e-03_jprb/)  
kbo( :,42, 1) = (/&
 & 5.4756e-04_jprb,6.9456e-04_jprb,8.5764e-04_jprb,1.0321e-03_jprb,1.2157e-03_jprb/)  
kbo( :,43, 1) = (/&
 & 4.1699e-04_jprb,5.3448e-04_jprb,6.6629e-04_jprb,8.0890e-04_jprb,9.6007e-04_jprb/)  
kbo( :,44, 1) = (/&
 & 3.1440e-04_jprb,4.0792e-04_jprb,5.1407e-04_jprb,6.3038e-04_jprb,7.5481e-04_jprb/)  
kbo( :,45, 1) = (/&
 & 2.3640e-04_jprb,3.1074e-04_jprb,3.9606e-04_jprb,4.9085e-04_jprb,5.9335e-04_jprb/)  
kbo( :,46, 1) = (/&
 & 1.7594e-04_jprb,2.3455e-04_jprb,3.0267e-04_jprb,3.7967e-04_jprb,4.6391e-04_jprb/)  
kbo( :,47, 1) = (/&
 & 1.2843e-04_jprb,1.7389e-04_jprb,2.2775e-04_jprb,2.8951e-04_jprb,3.5820e-04_jprb/)  
kbo( :,48, 1) = (/&
 & 9.3343e-05_jprb,1.2837e-04_jprb,1.7092e-04_jprb,2.2045e-04_jprb,2.7649e-04_jprb/)  
kbo( :,49, 1) = (/&
 & 6.7599e-05_jprb,9.4536e-05_jprb,1.2808e-04_jprb,1.6786e-04_jprb,2.1369e-04_jprb/)  
kbo( :,50, 1) = (/&
 & 4.8948e-05_jprb,6.9502e-05_jprb,9.5623e-05_jprb,1.2729e-04_jprb,1.6435e-04_jprb/)  
kbo( :,51, 1) = (/&
 & 3.5346e-05_jprb,5.0921e-05_jprb,7.1079e-05_jprb,9.6095e-05_jprb,1.2578e-04_jprb/)  
kbo( :,52, 1) = (/&
 & 2.5450e-05_jprb,3.7196e-05_jprb,5.2726e-05_jprb,7.2442e-05_jprb,9.6232e-05_jprb/)  
kbo( :,53, 1) = (/&
 & 1.8296e-05_jprb,2.7103e-05_jprb,3.9075e-05_jprb,5.4599e-05_jprb,7.3735e-05_jprb/)  
kbo( :,54, 1) = (/&
 & 1.3152e-05_jprb,1.9639e-05_jprb,2.8663e-05_jprb,4.0549e-05_jprb,5.5484e-05_jprb/)  
kbo( :,55, 1) = (/&
 & 9.4445e-06_jprb,1.4166e-05_jprb,2.0853e-05_jprb,2.9772e-05_jprb,4.1184e-05_jprb/)  
kbo( :,56, 1) = (/&
 & 6.7805e-06_jprb,1.0206e-05_jprb,1.5127e-05_jprb,2.1803e-05_jprb,3.0469e-05_jprb/)  
kbo( :,57, 1) = (/&
 & 4.8676e-06_jprb,7.3427e-06_jprb,1.0945e-05_jprb,1.5922e-05_jprb,2.2468e-05_jprb/)  
kbo( :,58, 1) = (/&
 & 3.5190e-06_jprb,5.3050e-06_jprb,7.9365e-06_jprb,1.1632e-05_jprb,1.6547e-05_jprb/)  
kbo( :,59, 1) = (/&
 & 2.7224e-06_jprb,4.0826e-06_jprb,6.0785e-06_jprb,8.8720e-06_jprb,1.2572e-05_jprb/)  
kbo( :,13, 2) = (/&
 & 2.7119e-01_jprb,3.6310e-01_jprb,4.7414e-01_jprb,6.0307e-01_jprb,7.4957e-01_jprb/)  
kbo( :,14, 2) = (/&
 & 2.5353e-01_jprb,3.3756e-01_jprb,4.3733e-01_jprb,5.5227e-01_jprb,6.8177e-01_jprb/)  
kbo( :,15, 2) = (/&
 & 2.3613e-01_jprb,3.1296e-01_jprb,4.0272e-01_jprb,5.0521e-01_jprb,6.1950e-01_jprb/)  
kbo( :,16, 2) = (/&
 & 2.1883e-01_jprb,2.8892e-01_jprb,3.7007e-01_jprb,4.6171e-01_jprb,5.6222e-01_jprb/)  
kbo( :,17, 2) = (/&
 & 2.0046e-01_jprb,2.6387e-01_jprb,3.3671e-01_jprb,4.1802e-01_jprb,5.0615e-01_jprb/)  
kbo( :,18, 2) = (/&
 & 1.8162e-01_jprb,2.3837e-01_jprb,3.0306e-01_jprb,3.7451e-01_jprb,4.5033e-01_jprb/)  
kbo( :,19, 2) = (/&
 & 1.6273e-01_jprb,2.1280e-01_jprb,2.6942e-01_jprb,3.3081e-01_jprb,3.9474e-01_jprb/)  
kbo( :,20, 2) = (/&
 & 1.4529e-01_jprb,1.8899e-01_jprb,2.3756e-01_jprb,2.8972e-01_jprb,3.4258e-01_jprb/)  
kbo( :,21, 2) = (/&
 & 1.2870e-01_jprb,1.6616e-01_jprb,2.0730e-01_jprb,2.5076e-01_jprb,2.9377e-01_jprb/)  
kbo( :,22, 2) = (/&
 & 1.1499e-01_jprb,1.4695e-01_jprb,1.8158e-01_jprb,2.1711e-01_jprb,2.5164e-01_jprb/)  
kbo( :,23, 2) = (/&
 & 1.0194e-01_jprb,1.2892e-01_jprb,1.5758e-01_jprb,1.8624e-01_jprb,2.1370e-01_jprb/)  
kbo( :,24, 2) = (/&
 & 8.9789e-02_jprb,1.1229e-01_jprb,1.3567e-01_jprb,1.5862e-01_jprb,1.8060e-01_jprb/)  
kbo( :,25, 2) = (/&
 & 7.8662e-02_jprb,9.7205e-02_jprb,1.1609e-01_jprb,1.3460e-01_jprb,1.5226e-01_jprb/)  
kbo( :,26, 2) = (/&
 & 6.8677e-02_jprb,8.3839e-02_jprb,9.9146e-02_jprb,1.1408e-01_jprb,1.2832e-01_jprb/)  
kbo( :,27, 2) = (/&
 & 5.9597e-02_jprb,7.2017e-02_jprb,8.4456e-02_jprb,9.6525e-02_jprb,1.0804e-01_jprb/)  
kbo( :,28, 2) = (/&
 & 5.1479e-02_jprb,6.1677e-02_jprb,7.1788e-02_jprb,8.1553e-02_jprb,9.0870e-02_jprb/)  
kbo( :,29, 2) = (/&
 & 4.4418e-02_jprb,5.2773e-02_jprb,6.1008e-02_jprb,6.8941e-02_jprb,7.6507e-02_jprb/)  
kbo( :,30, 2) = (/&
 & 3.8240e-02_jprb,4.5084e-02_jprb,5.1802e-02_jprb,5.8270e-02_jprb,6.4403e-02_jprb/)  
kbo( :,31, 2) = (/&
 & 3.2906e-02_jprb,3.8522e-02_jprb,4.4011e-02_jprb,4.9308e-02_jprb,5.4268e-02_jprb/)  
kbo( :,32, 2) = (/&
 & 2.8286e-02_jprb,3.2899e-02_jprb,3.7402e-02_jprb,4.1721e-02_jprb,4.5728e-02_jprb/)  
kbo( :,33, 2) = (/&
 & 2.4296e-02_jprb,2.8097e-02_jprb,3.1779e-02_jprb,3.5285e-02_jprb,3.8510e-02_jprb/)  
kbo( :,34, 2) = (/&
 & 2.0730e-02_jprb,2.3844e-02_jprb,2.6852e-02_jprb,2.9683e-02_jprb,3.2295e-02_jprb/)  
kbo( :,35, 2) = (/&
 & 1.7417e-02_jprb,1.9970e-02_jprb,2.2433e-02_jprb,2.4741e-02_jprb,2.6876e-02_jprb/)  
kbo( :,36, 2) = (/&
 & 1.4391e-02_jprb,1.6493e-02_jprb,1.8520e-02_jprb,2.0421e-02_jprb,2.2183e-02_jprb/)  
kbo( :,37, 2) = (/&
 & 1.1614e-02_jprb,1.3354e-02_jprb,1.5031e-02_jprb,1.6611e-02_jprb,1.8085e-02_jprb/)  
kbo( :,38, 2) = (/&
 & 9.3636e-03_jprb,1.0802e-02_jprb,1.2193e-02_jprb,1.3510e-02_jprb,1.4737e-02_jprb/)  
kbo( :,39, 2) = (/&
 & 7.5541e-03_jprb,8.7439e-03_jprb,9.8975e-03_jprb,1.0998e-02_jprb,1.2026e-02_jprb/)  
kbo( :,40, 2) = (/&
 & 5.9794e-03_jprb,6.9606e-03_jprb,7.9183e-03_jprb,8.8404e-03_jprb,9.7022e-03_jprb/)  
kbo( :,41, 2) = (/&
 & 4.7162e-03_jprb,5.5242e-03_jprb,6.3175e-03_jprb,7.0884e-03_jprb,7.8122e-03_jprb/)  
kbo( :,42, 2) = (/&
 & 3.7141e-03_jprb,4.3793e-03_jprb,5.0373e-03_jprb,5.6797e-03_jprb,6.2875e-03_jprb/)  
kbo( :,43, 2) = (/&
 & 2.8894e-03_jprb,3.4367e-03_jprb,3.9819e-03_jprb,4.5167e-03_jprb,5.0302e-03_jprb/)  
kbo( :,44, 2) = (/&
 & 2.2311e-03_jprb,2.6800e-03_jprb,3.1318e-03_jprb,3.5777e-03_jprb,4.0109e-03_jprb/)  
kbo( :,45, 2) = (/&
 & 1.7190e-03_jprb,2.0864e-03_jprb,2.4595e-03_jprb,2.8305e-03_jprb,3.1948e-03_jprb/)  
kbo( :,46, 2) = (/&
 & 1.3144e-03_jprb,1.6127e-03_jprb,1.9198e-03_jprb,2.2288e-03_jprb,2.5338e-03_jprb/)  
kbo( :,47, 2) = (/&
 & 9.9072e-04_jprb,1.2307e-03_jprb,1.4827e-03_jprb,1.7388e-03_jprb,1.9939e-03_jprb/)  
kbo( :,48, 2) = (/&
 & 7.4328e-04_jprb,9.3584e-04_jprb,1.1422e-03_jprb,1.3542e-03_jprb,1.5673e-03_jprb/)  
kbo( :,49, 2) = (/&
 & 5.5568e-04_jprb,7.0962e-04_jprb,8.7747e-04_jprb,1.0533e-03_jprb,1.2311e-03_jprb/)  
kbo( :,50, 2) = (/&
 & 4.1543e-04_jprb,5.3759e-04_jprb,6.7298e-04_jprb,8.1754e-04_jprb,9.6501e-04_jprb/)  
kbo( :,51, 2) = (/&
 & 3.0972e-04_jprb,4.0612e-04_jprb,5.1480e-04_jprb,6.3279e-04_jprb,7.5447e-04_jprb/)  
kbo( :,52, 2) = (/&
 & 2.2960e-04_jprb,3.0589e-04_jprb,3.9277e-04_jprb,4.8863e-04_jprb,5.8929e-04_jprb/)  
kbo( :,53, 2) = (/&
 & 1.6933e-04_jprb,2.2968e-04_jprb,2.9891e-04_jprb,3.7665e-04_jprb,4.6003e-04_jprb/)  
kbo( :,54, 2) = (/&
 & 1.2476e-04_jprb,1.7207e-04_jprb,2.2658e-04_jprb,2.8866e-04_jprb,3.5637e-04_jprb/)  
kbo( :,55, 2) = (/&
 & 9.1638e-05_jprb,1.2832e-04_jprb,1.7102e-04_jprb,2.1999e-04_jprb,2.7423e-04_jprb/)  
kbo( :,56, 2) = (/&
 & 6.6998e-05_jprb,9.5270e-05_jprb,1.2875e-04_jprb,1.6725e-04_jprb,2.1034e-04_jprb/)  
kbo( :,57, 2) = (/&
 & 4.8715e-05_jprb,7.0398e-05_jprb,9.6609e-05_jprb,1.2676e-04_jprb,1.6093e-04_jprb/)  
kbo( :,58, 2) = (/&
 & 3.5429e-05_jprb,5.2045e-05_jprb,7.2448e-05_jprb,9.6079e-05_jprb,1.2306e-04_jprb/)  
kbo( :,59, 2) = (/&
 & 2.7567e-05_jprb,4.0660e-05_jprb,5.6784e-05_jprb,7.5471e-05_jprb,9.6741e-05_jprb/)  
kbo( :,13, 3) = (/&
 & 1.0985e+00_jprb,1.3471e+00_jprb,1.6024e+00_jprb,1.8569e+00_jprb,2.1065e+00_jprb/)  
kbo( :,14, 3) = (/&
 & 1.0057e+00_jprb,1.2261e+00_jprb,1.4487e+00_jprb,1.6701e+00_jprb,1.8867e+00_jprb/)  
kbo( :,15, 3) = (/&
 & 9.2327e-01_jprb,1.1163e+00_jprb,1.3096e+00_jprb,1.5013e+00_jprb,1.6927e+00_jprb/)  
kbo( :,16, 3) = (/&
 & 8.4655e-01_jprb,1.0142e+00_jprb,1.1813e+00_jprb,1.3501e+00_jprb,1.5181e+00_jprb/)  
kbo( :,17, 3) = (/&
 & 7.7095e-01_jprb,9.1488e-01_jprb,1.0609e+00_jprb,1.2083e+00_jprb,1.3539e+00_jprb/)  
kbo( :,18, 3) = (/&
 & 6.9584e-01_jprb,8.2061e-01_jprb,9.4796e-01_jprb,1.0751e+00_jprb,1.2000e+00_jprb/)  
kbo( :,19, 3) = (/&
 & 6.2275e-01_jprb,7.3128e-01_jprb,8.4109e-01_jprb,9.5006e-01_jprb,1.0557e+00_jprb/)  
kbo( :,20, 3) = (/&
 & 5.5466e-01_jprb,6.4877e-01_jprb,7.4343e-01_jprb,8.3591e-01_jprb,9.2515e-01_jprb/)  
kbo( :,21, 3) = (/&
 & 4.8960e-01_jprb,5.7076e-01_jprb,6.5178e-01_jprb,7.3033e-01_jprb,8.0430e-01_jprb/)  
kbo( :,22, 3) = (/&
 & 4.3303e-01_jprb,5.0259e-01_jprb,5.7096e-01_jprb,6.3565e-01_jprb,6.9649e-01_jprb/)  
kbo( :,23, 3) = (/&
 & 3.8028e-01_jprb,4.3904e-01_jprb,4.9534e-01_jprb,5.4802e-01_jprb,5.9732e-01_jprb/)  
kbo( :,24, 3) = (/&
 & 3.3218e-01_jprb,3.8059e-01_jprb,4.2634e-01_jprb,4.6878e-01_jprb,5.0765e-01_jprb/)  
kbo( :,25, 3) = (/&
 & 2.8849e-01_jprb,3.2793e-01_jprb,3.6460e-01_jprb,3.9816e-01_jprb,4.2820e-01_jprb/)  
kbo( :,26, 3) = (/&
 & 2.4952e-01_jprb,2.8128e-01_jprb,3.1016e-01_jprb,3.3620e-01_jprb,3.5944e-01_jprb/)  
kbo( :,27, 3) = (/&
 & 2.1458e-01_jprb,2.3971e-01_jprb,2.6222e-01_jprb,2.8249e-01_jprb,3.0071e-01_jprb/)  
kbo( :,28, 3) = (/&
 & 1.8348e-01_jprb,2.0307e-01_jprb,2.2063e-01_jprb,2.3668e-01_jprb,2.5103e-01_jprb/)  
kbo( :,29, 3) = (/&
 & 1.5612e-01_jprb,1.7138e-01_jprb,1.8529e-01_jprb,1.9807e-01_jprb,2.0946e-01_jprb/)  
kbo( :,30, 3) = (/&
 & 1.3217e-01_jprb,1.4426e-01_jprb,1.5536e-01_jprb,1.6555e-01_jprb,1.7467e-01_jprb/)  
kbo( :,31, 3) = (/&
 & 1.1164e-01_jprb,1.2131e-01_jprb,1.3020e-01_jprb,1.3837e-01_jprb,1.4579e-01_jprb/)  
kbo( :,32, 3) = (/&
 & 9.4160e-02_jprb,1.0190e-01_jprb,1.0909e-01_jprb,1.1569e-01_jprb,1.2174e-01_jprb/)  
kbo( :,33, 3) = (/&
 & 7.9328e-02_jprb,8.5579e-02_jprb,9.1418e-02_jprb,9.6812e-02_jprb,1.0174e-01_jprb/)  
kbo( :,34, 3) = (/&
 & 6.6575e-02_jprb,7.1681e-02_jprb,7.6449e-02_jprb,8.0861e-02_jprb,8.4837e-02_jprb/)  
kbo( :,35, 3) = (/&
 & 5.5452e-02_jprb,5.9669e-02_jprb,6.3583e-02_jprb,6.7195e-02_jprb,7.0402e-02_jprb/)  
kbo( :,36, 3) = (/&
 & 4.5817e-02_jprb,4.9311e-02_jprb,5.2541e-02_jprb,5.5500e-02_jprb,5.8136e-02_jprb/)  
kbo( :,37, 3) = (/&
 & 3.7392e-02_jprb,4.0307e-02_jprb,4.2995e-02_jprb,4.5443e-02_jprb,4.7667e-02_jprb/)  
kbo( :,38, 3) = (/&
 & 3.0507e-02_jprb,3.2931e-02_jprb,3.5170e-02_jprb,3.7213e-02_jprb,3.9076e-02_jprb/)  
kbo( :,39, 3) = (/&
 & 2.4900e-02_jprb,2.6916e-02_jprb,2.8785e-02_jprb,3.0496e-02_jprb,3.2065e-02_jprb/)  
kbo( :,40, 3) = (/&
 & 2.0117e-02_jprb,2.1794e-02_jprb,2.3370e-02_jprb,2.4808e-02_jprb,2.6137e-02_jprb/)  
kbo( :,41, 3) = (/&
 & 1.6225e-02_jprb,1.7626e-02_jprb,1.8947e-02_jprb,2.0157e-02_jprb,2.1285e-02_jprb/)  
kbo( :,42, 3) = (/&
 & 1.3079e-02_jprb,1.4250e-02_jprb,1.5359e-02_jprb,1.6379e-02_jprb,1.7329e-02_jprb/)  
kbo( :,43, 3) = (/&
 & 1.0482e-02_jprb,1.1462e-02_jprb,1.2394e-02_jprb,1.3257e-02_jprb,1.4064e-02_jprb/)  
kbo( :,44, 3) = (/&
 & 8.3710e-03_jprb,9.1942e-03_jprb,9.9787e-03_jprb,1.0713e-02_jprb,1.1396e-02_jprb/)  
kbo( :,45, 3) = (/&
 & 6.6788e-03_jprb,7.3702e-03_jprb,8.0298e-03_jprb,8.6522e-03_jprb,9.2329e-03_jprb/)  
kbo( :,46, 3) = (/&
 & 5.3081e-03_jprb,5.8891e-03_jprb,6.4422e-03_jprb,6.9706e-03_jprb,7.4651e-03_jprb/)  
kbo( :,47, 3) = (/&
 & 4.1866e-03_jprb,4.6766e-03_jprb,5.1419e-03_jprb,5.5881e-03_jprb,6.0116e-03_jprb/)  
kbo( :,48, 3) = (/&
 & 3.2935e-03_jprb,3.7074e-03_jprb,4.1001e-03_jprb,4.4778e-03_jprb,4.8397e-03_jprb/)  
kbo( :,49, 3) = (/&
 & 2.5846e-03_jprb,2.9354e-03_jprb,3.2677e-03_jprb,3.5868e-03_jprb,3.8959e-03_jprb/)  
kbo( :,50, 3) = (/&
 & 2.0269e-03_jprb,2.3221e-03_jprb,2.6022e-03_jprb,2.8709e-03_jprb,3.1320e-03_jprb/)  
kbo( :,51, 3) = (/&
 & 1.5861e-03_jprb,1.8335e-03_jprb,2.0693e-03_jprb,2.2950e-03_jprb,2.5144e-03_jprb/)  
kbo( :,52, 3) = (/&
 & 1.2373e-03_jprb,1.4448e-03_jprb,1.6433e-03_jprb,1.8335e-03_jprb,2.0181e-03_jprb/)  
kbo( :,53, 3) = (/&
 & 9.6238e-04_jprb,1.1359e-03_jprb,1.3032e-03_jprb,1.4639e-03_jprb,1.6200e-03_jprb/)  
kbo( :,54, 3) = (/&
 & 7.4760e-04_jprb,8.9109e-04_jprb,1.0310e-03_jprb,1.1653e-03_jprb,1.2951e-03_jprb/)  
kbo( :,55, 3) = (/&
 & 5.7948e-04_jprb,6.9751e-04_jprb,8.1351e-04_jprb,9.2482e-04_jprb,1.0323e-03_jprb/)  
kbo( :,56, 3) = (/&
 & 4.4747e-04_jprb,5.4475e-04_jprb,6.4072e-04_jprb,7.3311e-04_jprb,8.2203e-04_jprb/)  
kbo( :,57, 3) = (/&
 & 3.4377e-04_jprb,4.2418e-04_jprb,5.0351e-04_jprb,5.8007e-04_jprb,6.5383e-04_jprb/)  
kbo( :,58, 3) = (/&
 & 2.6362e-04_jprb,3.3015e-04_jprb,3.9544e-04_jprb,4.5883e-04_jprb,5.1985e-04_jprb/)  
kbo( :,59, 3) = (/&
 & 2.1059e-04_jprb,2.6499e-04_jprb,3.1808e-04_jprb,3.6954e-04_jprb,4.1891e-04_jprb/)  
kbo( :,13, 4) = (/&
 & 3.3302e+00_jprb,3.5900e+00_jprb,3.8490e+00_jprb,4.0993e+00_jprb,4.3544e+00_jprb/)  
kbo( :,14, 4) = (/&
 & 2.9375e+00_jprb,3.1623e+00_jprb,3.3912e+00_jprb,3.6192e+00_jprb,3.8536e+00_jprb/)  
kbo( :,15, 4) = (/&
 & 2.5847e+00_jprb,2.7829e+00_jprb,2.9920e+00_jprb,3.2042e+00_jprb,3.4159e+00_jprb/)  
kbo( :,16, 4) = (/&
 & 2.2723e+00_jprb,2.4555e+00_jprb,2.6487e+00_jprb,2.8409e+00_jprb,3.0352e+00_jprb/)  
kbo( :,17, 4) = (/&
 & 1.9985e+00_jprb,2.1683e+00_jprb,2.3422e+00_jprb,2.5153e+00_jprb,2.6950e+00_jprb/)  
kbo( :,18, 4) = (/&
 & 1.7574e+00_jprb,1.9111e+00_jprb,2.0646e+00_jprb,2.2235e+00_jprb,2.3882e+00_jprb/)  
kbo( :,19, 4) = (/&
 & 1.5417e+00_jprb,1.6771e+00_jprb,1.8159e+00_jprb,1.9608e+00_jprb,2.1091e+00_jprb/)  
kbo( :,20, 4) = (/&
 & 1.3501e+00_jprb,1.4708e+00_jprb,1.5966e+00_jprb,1.7265e+00_jprb,1.8579e+00_jprb/)  
kbo( :,21, 4) = (/&
 & 1.1792e+00_jprb,1.2872e+00_jprb,1.3996e+00_jprb,1.5140e+00_jprb,1.6291e+00_jprb/)  
kbo( :,22, 4) = (/&
 & 1.0331e+00_jprb,1.1299e+00_jprb,1.2292e+00_jprb,1.3301e+00_jprb,1.4294e+00_jprb/)  
kbo( :,23, 4) = (/&
 & 9.0257e-01_jprb,9.8785e-01_jprb,1.0758e+00_jprb,1.1637e+00_jprb,1.2469e+00_jprb/)  
kbo( :,24, 4) = (/&
 & 7.8462e-01_jprb,8.6035e-01_jprb,9.3739e-01_jprb,1.0117e+00_jprb,1.0795e+00_jprb/)  
kbo( :,25, 4) = (/&
 & 6.8021e-01_jprb,7.4644e-01_jprb,8.1147e-01_jprb,8.7243e-01_jprb,9.2768e-01_jprb/)  
kbo( :,26, 4) = (/&
 & 5.8877e-01_jprb,6.4489e-01_jprb,6.9856e-01_jprb,7.4767e-01_jprb,7.9152e-01_jprb/)  
kbo( :,27, 4) = (/&
 & 5.0790e-01_jprb,5.5427e-01_jprb,5.9771e-01_jprb,6.3660e-01_jprb,6.7040e-01_jprb/)  
kbo( :,28, 4) = (/&
 & 4.3619e-01_jprb,4.7420e-01_jprb,5.0861e-01_jprb,5.3858e-01_jprb,5.6428e-01_jprb/)  

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


SUBROUTINE part13

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


kbo( :,29, 4) = (/&
 & 3.7351e-01_jprb,4.0404e-01_jprb,4.3062e-01_jprb,4.5356e-01_jprb,4.7355e-01_jprb/)  
kbo( :,30, 4) = (/&
 & 3.1877e-01_jprb,3.4252e-01_jprb,3.6291e-01_jprb,3.8087e-01_jprb,3.9669e-01_jprb/)  
kbo( :,31, 4) = (/&
 & 2.7097e-01_jprb,2.8918e-01_jprb,3.0519e-01_jprb,3.1945e-01_jprb,3.3218e-01_jprb/)  
kbo( :,32, 4) = (/&
 & 2.2933e-01_jprb,2.4355e-01_jprb,2.5629e-01_jprb,2.6778e-01_jprb,2.7819e-01_jprb/)  
kbo( :,33, 4) = (/&
 & 1.9352e-01_jprb,2.0488e-01_jprb,2.1514e-01_jprb,2.2453e-01_jprb,2.3322e-01_jprb/)  
kbo( :,34, 4) = (/&
 & 1.6266e-01_jprb,1.7186e-01_jprb,1.8021e-01_jprb,1.8806e-01_jprb,1.9533e-01_jprb/)  
kbo( :,35, 4) = (/&
 & 1.3588e-01_jprb,1.4344e-01_jprb,1.5044e-01_jprb,1.5708e-01_jprb,1.6319e-01_jprb/)  
kbo( :,36, 4) = (/&
 & 1.1281e-01_jprb,1.1914e-01_jprb,1.2508e-01_jprb,1.3072e-01_jprb,1.3587e-01_jprb/)  
kbo( :,37, 4) = (/&
 & 9.2816e-02_jprb,9.8205e-02_jprb,1.0328e-01_jprb,1.0804e-01_jprb,1.1242e-01_jprb/)  
kbo( :,38, 4) = (/&
 & 7.6370e-02_jprb,8.0963e-02_jprb,8.5283e-02_jprb,8.9321e-02_jprb,9.2973e-02_jprb/)  
kbo( :,39, 4) = (/&
 & 6.2888e-02_jprb,6.6805e-02_jprb,7.0475e-02_jprb,7.3875e-02_jprb,7.6971e-02_jprb/)  
kbo( :,40, 4) = (/&
 & 5.1396e-02_jprb,5.4708e-02_jprb,5.7829e-02_jprb,6.0714e-02_jprb,6.3350e-02_jprb/)  
kbo( :,41, 4) = (/&
 & 4.1955e-02_jprb,4.4762e-02_jprb,4.7396e-02_jprb,4.9843e-02_jprb,5.2102e-02_jprb/)  
kbo( :,42, 4) = (/&
 & 3.4234e-02_jprb,3.6611e-02_jprb,3.8848e-02_jprb,4.0922e-02_jprb,4.2851e-02_jprb/)  
kbo( :,43, 4) = (/&
 & 2.7815e-02_jprb,2.9825e-02_jprb,3.1727e-02_jprb,3.3492e-02_jprb,3.5154e-02_jprb/)  
kbo( :,44, 4) = (/&
 & 2.2537e-02_jprb,2.4240e-02_jprb,2.5867e-02_jprb,2.7378e-02_jprb,2.8807e-02_jprb/)  
kbo( :,45, 4) = (/&
 & 1.8246e-02_jprb,1.9697e-02_jprb,2.1085e-02_jprb,2.2374e-02_jprb,2.3604e-02_jprb/)  
kbo( :,46, 4) = (/&
 & 1.4728e-02_jprb,1.5964e-02_jprb,1.7142e-02_jprb,1.8251e-02_jprb,1.9308e-02_jprb/)  
kbo( :,47, 4) = (/&
 & 1.1818e-02_jprb,1.2873e-02_jprb,1.3878e-02_jprb,1.4831e-02_jprb,1.5740e-02_jprb/)  
kbo( :,48, 4) = (/&
 & 9.4657e-03_jprb,1.0367e-02_jprb,1.1228e-02_jprb,1.2052e-02_jprb,1.2833e-02_jprb/)  
kbo( :,49, 4) = (/&
 & 7.5680e-03_jprb,8.3421e-03_jprb,9.0805e-03_jprb,9.7902e-03_jprb,1.0464e-02_jprb/)  
kbo( :,50, 4) = (/&
 & 6.0502e-03_jprb,6.7078e-03_jprb,7.3374e-03_jprb,7.9442e-03_jprb,8.5226e-03_jprb/)  
kbo( :,51, 4) = (/&
 & 4.8299e-03_jprb,5.3854e-03_jprb,5.9216e-03_jprb,6.4376e-03_jprb,6.9334e-03_jprb/)  
kbo( :,52, 4) = (/&
 & 3.8467e-03_jprb,4.3164e-03_jprb,4.7737e-03_jprb,5.2128e-03_jprb,5.6384e-03_jprb/)  
kbo( :,53, 4) = (/&
 & 3.0576e-03_jprb,3.4544e-03_jprb,3.8447e-03_jprb,4.2192e-03_jprb,4.5847e-03_jprb/)  
kbo( :,54, 4) = (/&
 & 2.4302e-03_jprb,2.7614e-03_jprb,3.0899e-03_jprb,3.4056e-03_jprb,3.7134e-03_jprb/)  
kbo( :,55, 4) = (/&
 & 1.9293e-03_jprb,2.2038e-03_jprb,2.4777e-03_jprb,2.7424e-03_jprb,2.9994e-03_jprb/)  
kbo( :,56, 4) = (/&
 & 1.5286e-03_jprb,1.7562e-03_jprb,1.9841e-03_jprb,2.2060e-03_jprb,2.4199e-03_jprb/)  
kbo( :,57, 4) = (/&
 & 1.2085e-03_jprb,1.3971e-03_jprb,1.5864e-03_jprb,1.7724e-03_jprb,1.9514e-03_jprb/)  
kbo( :,58, 4) = (/&
 & 9.5537e-04_jprb,1.1118e-03_jprb,1.2685e-03_jprb,1.4237e-03_jprb,1.5733e-03_jprb/)  
kbo( :,59, 4) = (/&
 & 7.7590e-04_jprb,9.0437e-04_jprb,1.0323e-03_jprb,1.1597e-03_jprb,1.2822e-03_jprb/)  
kbo( :,13, 5) = (/&
 & 6.9141e+00_jprb,7.1545e+00_jprb,7.4046e+00_jprb,7.6833e+00_jprb,7.9432e+00_jprb/)  
kbo( :,14, 5) = (/&
 & 6.0755e+00_jprb,6.2987e+00_jprb,6.5306e+00_jprb,6.7873e+00_jprb,7.0278e+00_jprb/)  
kbo( :,15, 5) = (/&
 & 5.3116e+00_jprb,5.5269e+00_jprb,5.7512e+00_jprb,5.9835e+00_jprb,6.2117e+00_jprb/)  
kbo( :,16, 5) = (/&
 & 4.6343e+00_jprb,4.8449e+00_jprb,5.0585e+00_jprb,5.2837e+00_jprb,5.5069e+00_jprb/)  
kbo( :,17, 5) = (/&
 & 4.0419e+00_jprb,4.2430e+00_jprb,4.4508e+00_jprb,4.6718e+00_jprb,4.8821e+00_jprb/)  
kbo( :,18, 5) = (/&
 & 3.5281e+00_jprb,3.7196e+00_jprb,3.9254e+00_jprb,4.1289e+00_jprb,4.3250e+00_jprb/)  
kbo( :,19, 5) = (/&
 & 3.0859e+00_jprb,3.2697e+00_jprb,3.4594e+00_jprb,3.6428e+00_jprb,3.8279e+00_jprb/)  
kbo( :,20, 5) = (/&
 & 2.7073e+00_jprb,2.8768e+00_jprb,3.0450e+00_jprb,3.2129e+00_jprb,3.3880e+00_jprb/)  
kbo( :,21, 5) = (/&
 & 2.3737e+00_jprb,2.5247e+00_jprb,2.6757e+00_jprb,2.8327e+00_jprb,2.9960e+00_jprb/)  
kbo( :,22, 5) = (/&
 & 2.0857e+00_jprb,2.2199e+00_jprb,2.3591e+00_jprb,2.5039e+00_jprb,2.6519e+00_jprb/)  
kbo( :,23, 5) = (/&
 & 1.8289e+00_jprb,1.9512e+00_jprb,2.0778e+00_jprb,2.2081e+00_jprb,2.3436e+00_jprb/)  
kbo( :,24, 5) = (/&
 & 1.6014e+00_jprb,1.7122e+00_jprb,1.8266e+00_jprb,1.9454e+00_jprb,2.0684e+00_jprb/)  
kbo( :,25, 5) = (/&
 & 1.3998e+00_jprb,1.4999e+00_jprb,1.6048e+00_jprb,1.7138e+00_jprb,1.8217e+00_jprb/)  
kbo( :,26, 5) = (/&
 & 1.2210e+00_jprb,1.3132e+00_jprb,1.4097e+00_jprb,1.5070e+00_jprb,1.6011e+00_jprb/)  
kbo( :,27, 5) = (/&
 & 1.0633e+00_jprb,1.1477e+00_jprb,1.2343e+00_jprb,1.3197e+00_jprb,1.4013e+00_jprb/)  
kbo( :,28, 5) = (/&
 & 9.2471e-01_jprb,1.0003e+00_jprb,1.0762e+00_jprb,1.1506e+00_jprb,1.2207e+00_jprb/)  
kbo( :,29, 5) = (/&
 & 8.0378e-01_jprb,8.6991e-01_jprb,9.3571e-01_jprb,9.9918e-01_jprb,1.0579e+00_jprb/)  
kbo( :,30, 5) = (/&
 & 6.9745e-01_jprb,7.5481e-01_jprb,8.1124e-01_jprb,8.6394e-01_jprb,9.1132e-01_jprb/)  
kbo( :,31, 5) = (/&
 & 6.0465e-01_jprb,6.5420e-01_jprb,7.0129e-01_jprb,7.4415e-01_jprb,7.8220e-01_jprb/)  
kbo( :,32, 5) = (/&
 & 5.2389e-01_jprb,5.6576e-01_jprb,6.0408e-01_jprb,6.3888e-01_jprb,6.7018e-01_jprb/)  
kbo( :,33, 5) = (/&
 & 4.5339e-01_jprb,4.8777e-01_jprb,5.1895e-01_jprb,5.4778e-01_jprb,5.7413e-01_jprb/)  
kbo( :,34, 5) = (/&
 & 3.9043e-01_jprb,4.1838e-01_jprb,4.4436e-01_jprb,4.6859e-01_jprb,4.9150e-01_jprb/)  
kbo( :,35, 5) = (/&
 & 3.3304e-01_jprb,3.5641e-01_jprb,3.7837e-01_jprb,3.9937e-01_jprb,4.1969e-01_jprb/)  
kbo( :,36, 5) = (/&
 & 2.8159e-01_jprb,3.0146e-01_jprb,3.2042e-01_jprb,3.3894e-01_jprb,3.5721e-01_jprb/)  
kbo( :,37, 5) = (/&
 & 2.3528e-01_jprb,2.5243e-01_jprb,2.6898e-01_jprb,2.8542e-01_jprb,3.0190e-01_jprb/)  
kbo( :,38, 5) = (/&
 & 1.9653e-01_jprb,2.1135e-01_jprb,2.2593e-01_jprb,2.4055e-01_jprb,2.5537e-01_jprb/)  
kbo( :,39, 5) = (/&
 & 1.6424e-01_jprb,1.7712e-01_jprb,1.9008e-01_jprb,2.0314e-01_jprb,2.1645e-01_jprb/)  
kbo( :,40, 5) = (/&
 & 1.3599e-01_jprb,1.4712e-01_jprb,1.5856e-01_jprb,1.7013e-01_jprb,1.8191e-01_jprb/)  
kbo( :,41, 5) = (/&
 & 1.1240e-01_jprb,1.2208e-01_jprb,1.3208e-01_jprb,1.4229e-01_jprb,1.5269e-01_jprb/)  
kbo( :,42, 5) = (/&
 & 9.2848e-02_jprb,1.0126e-01_jprb,1.1003e-01_jprb,1.1902e-01_jprb,1.2816e-01_jprb/)  
kbo( :,43, 5) = (/&
 & 7.6272e-02_jprb,8.3551e-02_jprb,9.1173e-02_jprb,9.9059e-02_jprb,1.0710e-01_jprb/)  
kbo( :,44, 5) = (/&
 & 6.2420e-02_jprb,6.8705e-02_jprb,7.5347e-02_jprb,8.2255e-02_jprb,8.9304e-02_jprb/)  
kbo( :,45, 5) = (/&
 & 5.1037e-02_jprb,5.6461e-02_jprb,6.2222e-02_jprb,6.8245e-02_jprb,7.4410e-02_jprb/)  
kbo( :,46, 5) = (/&
 & 4.1575e-02_jprb,4.6220e-02_jprb,5.1187e-02_jprb,5.6431e-02_jprb,6.1814e-02_jprb/)  
kbo( :,47, 5) = (/&
 & 3.3624e-02_jprb,3.7569e-02_jprb,4.1825e-02_jprb,4.6358e-02_jprb,5.1051e-02_jprb/)  
kbo( :,48, 5) = (/&
 & 2.7133e-02_jprb,3.0477e-02_jprb,3.4127e-02_jprb,3.8049e-02_jprb,4.2137e-02_jprb/)  
kbo( :,49, 5) = (/&
 & 2.1850e-02_jprb,2.4695e-02_jprb,2.7812e-02_jprb,3.1199e-02_jprb,3.4749e-02_jprb/)  
kbo( :,50, 5) = (/&
 & 1.7588e-02_jprb,1.9999e-02_jprb,2.2640e-02_jprb,2.5547e-02_jprb,2.8612e-02_jprb/)  
kbo( :,51, 5) = (/&
 & 1.4133e-02_jprb,1.6172e-02_jprb,1.8401e-02_jprb,2.0880e-02_jprb,2.3515e-02_jprb/)  
kbo( :,52, 5) = (/&
 & 1.1330e-02_jprb,1.3052e-02_jprb,1.4932e-02_jprb,1.7041e-02_jprb,1.9304e-02_jprb/)  
kbo( :,53, 5) = (/&
 & 9.0563e-03_jprb,1.0511e-02_jprb,1.2096e-02_jprb,1.3890e-02_jprb,1.5837e-02_jprb/)  
kbo( :,54, 5) = (/&
 & 7.2337e-03_jprb,8.4542e-03_jprb,9.7774e-03_jprb,1.1280e-02_jprb,1.2936e-02_jprb/)  
kbo( :,55, 5) = (/&
 & 5.7674e-03_jprb,6.7888e-03_jprb,7.8837e-03_jprb,9.1276e-03_jprb,1.0528e-02_jprb/)  
kbo( :,56, 5) = (/&
 & 4.5854e-03_jprb,5.4402e-03_jprb,6.3461e-03_jprb,7.3755e-03_jprb,8.5458e-03_jprb/)  
kbo( :,57, 5) = (/&
 & 3.6334e-03_jprb,4.3489e-03_jprb,5.0994e-03_jprb,5.9486e-03_jprb,6.9270e-03_jprb/)  
kbo( :,58, 5) = (/&
 & 2.8784e-03_jprb,3.4761e-03_jprb,4.0992e-03_jprb,4.7976e-03_jprb,5.6122e-03_jprb/)  
kbo( :,59, 5) = (/&
 & 2.3567e-03_jprb,2.8551e-03_jprb,3.3744e-03_jprb,3.9529e-03_jprb,4.6311e-03_jprb/)  
kbo( :,13, 6) = (/&
 & 1.3830e+01_jprb,1.4015e+01_jprb,1.4160e+01_jprb,1.4307e+01_jprb,1.4522e+01_jprb/)  
kbo( :,14, 6) = (/&
 & 1.2340e+01_jprb,1.2516e+01_jprb,1.2660e+01_jprb,1.2793e+01_jprb,1.2966e+01_jprb/)  
kbo( :,15, 6) = (/&
 & 1.0924e+01_jprb,1.1092e+01_jprb,1.1224e+01_jprb,1.1351e+01_jprb,1.1516e+01_jprb/)  
kbo( :,16, 6) = (/&
 & 9.6024e+00_jprb,9.7501e+00_jprb,9.8836e+00_jprb,1.0029e+01_jprb,1.0212e+01_jprb/)  
kbo( :,17, 6) = (/&
 & 8.3708e+00_jprb,8.5153e+00_jprb,8.6644e+00_jprb,8.8329e+00_jprb,9.0401e+00_jprb/)  
kbo( :,18, 6) = (/&
 & 7.2569e+00_jprb,7.4102e+00_jprb,7.5767e+00_jprb,7.7740e+00_jprb,8.0051e+00_jprb/)  
kbo( :,19, 6) = (/&
 & 6.2750e+00_jprb,6.4411e+00_jprb,6.6283e+00_jprb,6.8499e+00_jprb,7.0924e+00_jprb/)  
kbo( :,20, 6) = (/&
 & 5.4324e+00_jprb,5.6127e+00_jprb,5.8201e+00_jprb,6.0515e+00_jprb,6.2952e+00_jprb/)  
kbo( :,21, 6) = (/&
 & 4.7199e+00_jprb,4.9098e+00_jprb,5.1220e+00_jprb,5.3512e+00_jprb,5.5929e+00_jprb/)  
kbo( :,22, 6) = (/&
 & 4.1275e+00_jprb,4.3173e+00_jprb,4.5250e+00_jprb,4.7472e+00_jprb,4.9873e+00_jprb/)  
kbo( :,23, 6) = (/&
 & 3.6186e+00_jprb,3.8008e+00_jprb,4.0007e+00_jprb,4.2194e+00_jprb,4.4546e+00_jprb/)  
kbo( :,24, 6) = (/&
 & 3.1789e+00_jprb,3.3535e+00_jprb,3.5481e+00_jprb,3.7602e+00_jprb,3.9826e+00_jprb/)  
kbo( :,25, 6) = (/&
 & 2.8009e+00_jprb,2.9702e+00_jprb,3.1571e+00_jprb,3.3553e+00_jprb,3.5661e+00_jprb/)  
kbo( :,26, 6) = (/&
 & 2.4787e+00_jprb,2.6417e+00_jprb,2.8161e+00_jprb,3.0035e+00_jprb,3.2026e+00_jprb/)  
kbo( :,27, 6) = (/&
 & 2.1990e+00_jprb,2.3537e+00_jprb,2.5197e+00_jprb,2.6976e+00_jprb,2.8845e+00_jprb/)  
kbo( :,28, 6) = (/&
 & 1.9523e+00_jprb,2.1013e+00_jprb,2.2618e+00_jprb,2.4297e+00_jprb,2.6035e+00_jprb/)  
kbo( :,29, 6) = (/&
 & 1.7370e+00_jprb,1.8823e+00_jprb,2.0367e+00_jprb,2.1958e+00_jprb,2.3561e+00_jprb/)  
kbo( :,30, 6) = (/&
 & 1.5497e+00_jprb,1.6904e+00_jprb,1.8375e+00_jprb,1.9876e+00_jprb,2.1376e+00_jprb/)  
kbo( :,31, 6) = (/&
 & 1.3874e+00_jprb,1.5222e+00_jprb,1.6617e+00_jprb,1.8040e+00_jprb,1.9446e+00_jprb/)  
kbo( :,32, 6) = (/&
 & 1.2460e+00_jprb,1.3738e+00_jprb,1.5067e+00_jprb,1.6408e+00_jprb,1.7720e+00_jprb/)  
kbo( :,33, 6) = (/&
 & 1.1223e+00_jprb,1.2436e+00_jprb,1.3697e+00_jprb,1.4955e+00_jprb,1.6172e+00_jprb/)  
kbo( :,34, 6) = (/&
 & 1.0099e+00_jprb,1.1249e+00_jprb,1.2434e+00_jprb,1.3608e+00_jprb,1.4735e+00_jprb/)  
kbo( :,35, 6) = (/&
 & 9.0209e-01_jprb,1.0096e+00_jprb,1.1199e+00_jprb,1.2299e+00_jprb,1.3354e+00_jprb/)  
kbo( :,36, 6) = (/&
 & 7.9733e-01_jprb,8.9688e-01_jprb,9.9932e-01_jprb,1.1023e+00_jprb,1.2028e+00_jprb/)  
kbo( :,37, 6) = (/&
 & 6.9211e-01_jprb,7.8344e-01_jprb,8.7821e-01_jprb,9.7443e-01_jprb,1.0708e+00_jprb/)  
kbo( :,38, 6) = (/&
 & 6.0006e-01_jprb,6.8377e-01_jprb,7.7149e-01_jprb,8.6171e-01_jprb,9.5413e-01_jprb/)  
kbo( :,39, 6) = (/&
 & 5.2043e-01_jprb,5.9726e-01_jprb,6.7852e-01_jprb,7.6343e-01_jprb,8.5244e-01_jprb/)  
kbo( :,40, 6) = (/&
 & 4.4416e-01_jprb,5.1399e-01_jprb,5.8862e-01_jprb,6.6792e-01_jprb,7.5268e-01_jprb/)  
kbo( :,41, 6) = (/&
 & 3.7776e-01_jprb,4.4092e-01_jprb,5.0931e-01_jprb,5.8308e-01_jprb,6.6368e-01_jprb/)  
kbo( :,42, 6) = (/&
 & 3.2073e-01_jprb,3.7777e-01_jprb,4.4039e-01_jprb,5.0902e-01_jprb,5.8559e-01_jprb/)  
kbo( :,43, 6) = (/&
 & 2.6920e-01_jprb,3.2022e-01_jprb,3.7707e-01_jprb,4.4047e-01_jprb,5.1263e-01_jprb/)  
kbo( :,44, 6) = (/&
 & 2.2419e-01_jprb,2.6949e-01_jprb,3.2089e-01_jprb,3.7919e-01_jprb,4.4668e-01_jprb/)  
kbo( :,45, 6) = (/&
 & 1.8610e-01_jprb,2.2623e-01_jprb,2.7250e-01_jprb,3.2589e-01_jprb,3.8881e-01_jprb/)  
kbo( :,46, 6) = (/&
 & 1.5321e-01_jprb,1.8844e-01_jprb,2.2973e-01_jprb,2.7826e-01_jprb,3.3646e-01_jprb/)  
kbo( :,47, 6) = (/&
 & 1.2434e-01_jprb,1.5480e-01_jprb,1.9116e-01_jprb,2.3462e-01_jprb,2.8768e-01_jprb/)  
kbo( :,48, 6) = (/&
 & 1.0036e-01_jprb,1.2653e-01_jprb,1.5835e-01_jprb,1.9711e-01_jprb,2.4528e-01_jprb/)  
kbo( :,49, 6) = (/&
 & 8.0612e-02_jprb,1.0295e-01_jprb,1.3061e-01_jprb,1.6496e-01_jprb,2.0845e-01_jprb/)  
kbo( :,50, 6) = (/&
 & 6.4743e-02_jprb,8.3670e-02_jprb,1.0758e-01_jprb,1.3777e-01_jprb,1.7673e-01_jprb/)  
kbo( :,51, 6) = (/&
 & 5.1836e-02_jprb,6.7752e-02_jprb,8.8282e-02_jprb,1.1466e-01_jprb,1.4926e-01_jprb/)  
kbo( :,52, 6) = (/&
 & 4.1270e-02_jprb,5.4579e-02_jprb,7.2088e-02_jprb,9.5008e-02_jprb,1.2557e-01_jprb/)  
kbo( :,53, 6) = (/&
 & 3.2703e-02_jprb,4.3723e-02_jprb,5.8551e-02_jprb,7.8358e-02_jprb,1.0523e-01_jprb/)  
kbo( :,54, 6) = (/&
 & 2.5932e-02_jprb,3.5025e-02_jprb,4.7496e-02_jprb,6.4433e-02_jprb,8.7763e-02_jprb/)  
kbo( :,55, 6) = (/&
 & 2.0516e-02_jprb,2.7980e-02_jprb,3.8384e-02_jprb,5.2720e-02_jprb,7.2773e-02_jprb/)  
kbo( :,56, 6) = (/&
 & 1.6157e-02_jprb,2.2243e-02_jprb,3.0860e-02_jprb,4.2933e-02_jprb,6.0054e-02_jprb/)  
kbo( :,57, 6) = (/&
 & 1.2662e-02_jprb,1.7594e-02_jprb,2.4676e-02_jprb,3.4773e-02_jprb,4.9299e-02_jprb/)  
kbo( :,58, 6) = (/&
 & 9.9314e-03_jprb,1.3912e-02_jprb,1.9723e-02_jprb,2.8150e-02_jprb,4.0439e-02_jprb/)  
kbo( :,59, 6) = (/&
 & 8.2224e-03_jprb,1.1623e-02_jprb,1.6659e-02_jprb,2.4055e-02_jprb,3.5006e-02_jprb/)  
kbo( :,13, 7) = (/&
 & 2.6335e+01_jprb,2.6343e+01_jprb,2.6317e+01_jprb,2.6278e+01_jprb,2.6240e+01_jprb/)  
kbo( :,14, 7) = (/&
 & 2.4335e+01_jprb,2.4368e+01_jprb,2.4378e+01_jprb,2.4360e+01_jprb,2.4346e+01_jprb/)  
kbo( :,15, 7) = (/&
 & 2.2209e+01_jprb,2.2271e+01_jprb,2.2317e+01_jprb,2.2351e+01_jprb,2.2363e+01_jprb/)  
kbo( :,16, 7) = (/&
 & 2.0041e+01_jprb,2.0151e+01_jprb,2.0235e+01_jprb,2.0297e+01_jprb,2.0322e+01_jprb/)  
kbo( :,17, 7) = (/&
 & 1.7927e+01_jprb,1.8060e+01_jprb,1.8168e+01_jprb,1.8242e+01_jprb,1.8304e+01_jprb/)  
kbo( :,18, 7) = (/&
 & 1.5898e+01_jprb,1.6045e+01_jprb,1.6164e+01_jprb,1.6266e+01_jprb,1.6378e+01_jprb/)  
kbo( :,19, 7) = (/&
 & 1.3992e+01_jprb,1.4142e+01_jprb,1.4282e+01_jprb,1.4427e+01_jprb,1.4606e+01_jprb/)  
kbo( :,20, 7) = (/&
 & 1.2229e+01_jprb,1.2396e+01_jprb,1.2574e+01_jprb,1.2781e+01_jprb,1.3031e+01_jprb/)  
kbo( :,21, 7) = (/&
 & 1.0639e+01_jprb,1.0839e+01_jprb,1.1068e+01_jprb,1.1335e+01_jprb,1.1649e+01_jprb/)  
kbo( :,22, 7) = (/&
 & 9.2636e+00_jprb,9.5053e+00_jprb,9.7840e+00_jprb,1.0108e+01_jprb,1.0461e+01_jprb/)  
kbo( :,23, 7) = (/&
 & 8.0952e+00_jprb,8.3738e+00_jprb,8.6908e+00_jprb,9.0366e+00_jprb,9.4060e+00_jprb/)  
kbo( :,24, 7) = (/&
 & 7.1130e+00_jprb,7.4146e+00_jprb,7.7429e+00_jprb,8.0993e+00_jprb,8.4864e+00_jprb/)  
kbo( :,25, 7) = (/&
 & 6.2837e+00_jprb,6.5877e+00_jprb,6.9205e+00_jprb,7.2883e+00_jprb,7.6912e+00_jprb/)  
kbo( :,26, 7) = (/&
 & 5.5745e+00_jprb,5.8760e+00_jprb,6.2151e+00_jprb,6.5923e+00_jprb,7.0080e+00_jprb/)  
kbo( :,27, 7) = (/&
 & 4.9643e+00_jprb,5.2682e+00_jprb,5.6134e+00_jprb,5.9978e+00_jprb,6.4129e+00_jprb/)  
kbo( :,28, 7) = (/&
 & 4.4473e+00_jprb,4.7539e+00_jprb,5.1020e+00_jprb,5.4857e+00_jprb,5.8980e+00_jprb/)  
kbo( :,29, 7) = (/&
 & 4.0139e+00_jprb,4.3228e+00_jprb,4.6679e+00_jprb,5.0477e+00_jprb,5.4611e+00_jprb/)  
kbo( :,30, 7) = (/&
 & 3.6503e+00_jprb,3.9570e+00_jprb,4.2982e+00_jprb,4.6765e+00_jprb,5.0904e+00_jprb/)  
kbo( :,31, 7) = (/&
 & 3.3458e+00_jprb,3.6492e+00_jprb,3.9896e+00_jprb,4.3657e+00_jprb,4.7803e+00_jprb/)  
kbo( :,32, 7) = (/&
 & 3.0885e+00_jprb,3.3924e+00_jprb,3.7326e+00_jprb,4.1089e+00_jprb,4.5242e+00_jprb/)  

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


SUBROUTINE part14

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


kbo( :,33, 7) = (/&
 & 2.8733e+00_jprb,3.1791e+00_jprb,3.5210e+00_jprb,3.8996e+00_jprb,4.3193e+00_jprb/)  
kbo( :,34, 7) = (/&
 & 2.6844e+00_jprb,2.9924e+00_jprb,3.3348e+00_jprb,3.7181e+00_jprb,4.1445e+00_jprb/)  
kbo( :,35, 7) = (/&
 & 2.4984e+00_jprb,2.8075e+00_jprb,3.1505e+00_jprb,3.5359e+00_jprb,3.9675e+00_jprb/)  
kbo( :,36, 7) = (/&
 & 2.3072e+00_jprb,2.6159e+00_jprb,2.9582e+00_jprb,3.3431e+00_jprb,3.7763e+00_jprb/)  
kbo( :,37, 7) = (/&
 & 2.0954e+00_jprb,2.4005e+00_jprb,2.7380e+00_jprb,3.1168e+00_jprb,3.5461e+00_jprb/)  
kbo( :,38, 7) = (/&
 & 1.9034e+00_jprb,2.2055e+00_jprb,2.5402e+00_jprb,2.9151e+00_jprb,3.3403e+00_jprb/)  
kbo( :,39, 7) = (/&
 & 1.7317e+00_jprb,2.0312e+00_jprb,2.3647e+00_jprb,2.7379e+00_jprb,3.1615e+00_jprb/)  
kbo( :,40, 7) = (/&
 & 1.5481e+00_jprb,1.8407e+00_jprb,2.1704e+00_jprb,2.5377e+00_jprb,2.9544e+00_jprb/)  
kbo( :,41, 7) = (/&
 & 1.3778e+00_jprb,1.6628e+00_jprb,1.9879e+00_jprb,2.3508e+00_jprb,2.7602e+00_jprb/)  
kbo( :,42, 7) = (/&
 & 1.2232e+00_jprb,1.4999e+00_jprb,1.8203e+00_jprb,2.1797e+00_jprb,2.5828e+00_jprb/)  
kbo( :,43, 7) = (/&
 & 1.0698e+00_jprb,1.3347e+00_jprb,1.6469e+00_jprb,2.0008e+00_jprb,2.3963e+00_jprb/)  
kbo( :,44, 7) = (/&
 & 9.2588e-01_jprb,1.1760e+00_jprb,1.4777e+00_jprb,1.8247e+00_jprb,2.2132e+00_jprb/)  
kbo( :,45, 7) = (/&
 & 7.9702e-01_jprb,1.0315e+00_jprb,1.3210e+00_jprb,1.6600e+00_jprb,2.0420e+00_jprb/)  
kbo( :,46, 7) = (/&
 & 6.7818e-01_jprb,8.9459e-01_jprb,1.1684e+00_jprb,1.4973e+00_jprb,1.8716e+00_jprb/)  
kbo( :,47, 7) = (/&
 & 5.6580e-01_jprb,7.6097e-01_jprb,1.0151e+00_jprb,1.3286e+00_jprb,1.6923e+00_jprb/)  
kbo( :,48, 7) = (/&
 & 4.6791e-01_jprb,6.4213e-01_jprb,8.7532e-01_jprb,1.1714e+00_jprb,1.5227e+00_jprb/)  
kbo( :,49, 7) = (/&
 & 3.8353e-01_jprb,5.3743e-01_jprb,7.4923e-01_jprb,1.0257e+00_jprb,1.3624e+00_jprb/)  
kbo( :,50, 7) = (/&
 & 3.1398e-01_jprb,4.4906e-01_jprb,6.4014e-01_jprb,8.9685e-01_jprb,1.2172e+00_jprb/)  
kbo( :,51, 7) = (/&
 & 2.5573e-01_jprb,3.7326e-01_jprb,5.4427e-01_jprb,7.8065e-01_jprb,1.0832e+00_jprb/)  
kbo( :,52, 7) = (/&
 & 2.0647e-01_jprb,3.0764e-01_jprb,4.5931e-01_jprb,6.7487e-01_jprb,9.5820e-01_jprb/)  
kbo( :,53, 7) = (/&
 & 1.6527e-01_jprb,2.5130e-01_jprb,3.8436e-01_jprb,5.7911e-01_jprb,8.4227e-01_jprb/)  
kbo( :,54, 7) = (/&
 & 1.3250e-01_jprb,2.0520e-01_jprb,3.2144e-01_jprb,4.9663e-01_jprb,7.3948e-01_jprb/)  
kbo( :,55, 7) = (/&
 & 1.0586e-01_jprb,1.6687e-01_jprb,2.6744e-01_jprb,4.2379e-01_jprb,6.4623e-01_jprb/)  
kbo( :,56, 7) = (/&
 & 8.3917e-02_jprb,1.3459e-01_jprb,2.2056e-01_jprb,3.5886e-01_jprb,5.6114e-01_jprb/)  
kbo( :,57, 7) = (/&
 & 6.5997e-02_jprb,1.0758e-01_jprb,1.8019e-01_jprb,3.0131e-01_jprb,4.8364e-01_jprb/)  
kbo( :,58, 7) = (/&
 & 5.1899e-02_jprb,8.5940e-02_jprb,1.4705e-01_jprb,2.5263e-01_jprb,4.1642e-01_jprb/)  
kbo( :,59, 7) = (/&
 & 4.4275e-02_jprb,7.4915e-02_jprb,1.3121e-01_jprb,2.3019e-01_jprb,3.8591e-01_jprb/)  
kbo( :,13, 8) = (/&
 & 5.0965e+01_jprb,5.0361e+01_jprb,4.9768e+01_jprb,4.9177e+01_jprb,4.8632e+01_jprb/)  
kbo( :,14, 8) = (/&
 & 4.9580e+01_jprb,4.9133e+01_jprb,4.8669e+01_jprb,4.8207e+01_jprb,4.7744e+01_jprb/)  
kbo( :,15, 8) = (/&
 & 4.7755e+01_jprb,4.7423e+01_jprb,4.7054e+01_jprb,4.6684e+01_jprb,4.6310e+01_jprb/)  
kbo( :,16, 8) = (/&
 & 4.5437e+01_jprb,4.5197e+01_jprb,4.4948e+01_jprb,4.4674e+01_jprb,4.4398e+01_jprb/)  
kbo( :,17, 8) = (/&
 & 4.2668e+01_jprb,4.2548e+01_jprb,4.2401e+01_jprb,4.2228e+01_jprb,4.2024e+01_jprb/)  
kbo( :,18, 8) = (/&
 & 3.9590e+01_jprb,3.9566e+01_jprb,3.9492e+01_jprb,3.9393e+01_jprb,3.9273e+01_jprb/)  
kbo( :,19, 8) = (/&
 & 3.6298e+01_jprb,3.6335e+01_jprb,3.6351e+01_jprb,3.6334e+01_jprb,3.6282e+01_jprb/)  
kbo( :,20, 8) = (/&
 & 3.2906e+01_jprb,3.3017e+01_jprb,3.3099e+01_jprb,3.3142e+01_jprb,3.3168e+01_jprb/)  
kbo( :,21, 8) = (/&
 & 2.9547e+01_jprb,2.9709e+01_jprb,2.9845e+01_jprb,2.9969e+01_jprb,3.0103e+01_jprb/)  
kbo( :,22, 8) = (/&
 & 2.6311e+01_jprb,2.6524e+01_jprb,2.6733e+01_jprb,2.6954e+01_jprb,2.7222e+01_jprb/)  
kbo( :,23, 8) = (/&
 & 2.3277e+01_jprb,2.3556e+01_jprb,2.3854e+01_jprb,2.4204e+01_jprb,2.4638e+01_jprb/)  
kbo( :,24, 8) = (/&
 & 2.0517e+01_jprb,2.0874e+01_jprb,2.1304e+01_jprb,2.1801e+01_jprb,2.2391e+01_jprb/)  
kbo( :,25, 8) = (/&
 & 1.8081e+01_jprb,1.8550e+01_jprb,1.9103e+01_jprb,1.9746e+01_jprb,2.0474e+01_jprb/)  
kbo( :,26, 8) = (/&
 & 1.6011e+01_jprb,1.6594e+01_jprb,1.7264e+01_jprb,1.8029e+01_jprb,1.8873e+01_jprb/)  
kbo( :,27, 8) = (/&
 & 1.4287e+01_jprb,1.4961e+01_jprb,1.5728e+01_jprb,1.6587e+01_jprb,1.7528e+01_jprb/)  
kbo( :,28, 8) = (/&
 & 1.2856e+01_jprb,1.3605e+01_jprb,1.4442e+01_jprb,1.5375e+01_jprb,1.6398e+01_jprb/)  
kbo( :,29, 8) = (/&
 & 1.1675e+01_jprb,1.2478e+01_jprb,1.3380e+01_jprb,1.4384e+01_jprb,1.5477e+01_jprb/)  
kbo( :,30, 8) = (/&
 & 1.0695e+01_jprb,1.1550e+01_jprb,1.2511e+01_jprb,1.3578e+01_jprb,1.4743e+01_jprb/)  
kbo( :,31, 8) = (/&
 & 9.8981e+00_jprb,1.0807e+01_jprb,1.1824e+01_jprb,1.2957e+01_jprb,1.4200e+01_jprb/)  
kbo( :,32, 8) = (/&
 & 9.2617e+00_jprb,1.0217e+01_jprb,1.1294e+01_jprb,1.2501e+01_jprb,1.3819e+01_jprb/)  
kbo( :,33, 8) = (/&
 & 8.7596e+00_jprb,9.7694e+00_jprb,1.0911e+01_jprb,1.2196e+01_jprb,1.3598e+01_jprb/)  
kbo( :,34, 8) = (/&
 & 8.3433e+00_jprb,9.4056e+00_jprb,1.0617e+01_jprb,1.1977e+01_jprb,1.3459e+01_jprb/)  
kbo( :,35, 8) = (/&
 & 7.9357e+00_jprb,9.0427e+00_jprb,1.0314e+01_jprb,1.1736e+01_jprb,1.3286e+01_jprb/)  
kbo( :,36, 8) = (/&
 & 7.5046e+00_jprb,8.6413e+00_jprb,9.9524e+00_jprb,1.1425e+01_jprb,1.3024e+01_jprb/)  
kbo( :,37, 8) = (/&
 & 6.9879e+00_jprb,8.1265e+00_jprb,9.4503e+00_jprb,1.0942e+01_jprb,1.2567e+01_jprb/)  
kbo( :,38, 8) = (/&
 & 6.5288e+00_jprb,7.6643e+00_jprb,8.9952e+00_jprb,1.0502e+01_jprb,1.2144e+01_jprb/)  
kbo( :,39, 8) = (/&
 & 6.1286e+00_jprb,7.2600e+00_jprb,8.5928e+00_jprb,1.0109e+01_jprb,1.1767e+01_jprb/)  
kbo( :,40, 8) = (/&
 & 5.6684e+00_jprb,6.7740e+00_jprb,8.0799e+00_jprb,9.5804e+00_jprb,1.1233e+01_jprb/)  
kbo( :,41, 8) = (/&
 & 5.2402e+00_jprb,6.3138e+00_jprb,7.5882e+00_jprb,9.0624e+00_jprb,1.0701e+01_jprb/)  
kbo( :,42, 8) = (/&
 & 4.8506e+00_jprb,5.8918e+00_jprb,7.1323e+00_jprb,8.5740e+00_jprb,1.0194e+01_jprb/)  
kbo( :,43, 8) = (/&
 & 4.4438e+00_jprb,5.4412e+00_jprb,6.6345e+00_jprb,8.0293e+00_jprb,9.6145e+00_jprb/)  
kbo( :,44, 8) = (/&
 & 4.0493e+00_jprb,4.9983e+00_jprb,6.1400e+00_jprb,7.4797e+00_jprb,9.0187e+00_jprb/)  
kbo( :,45, 8) = (/&
 & 3.6876e+00_jprb,4.5888e+00_jprb,5.6785e+00_jprb,6.9623e+00_jprb,8.4500e+00_jprb/)  
kbo( :,46, 8) = (/&
 & 3.3383e+00_jprb,4.1880e+00_jprb,5.2207e+00_jprb,6.4454e+00_jprb,7.8745e+00_jprb/)  
kbo( :,47, 8) = (/&
 & 2.9856e+00_jprb,3.7780e+00_jprb,4.7472e+00_jprb,5.9041e+00_jprb,7.2615e+00_jprb/)  
kbo( :,48, 8) = (/&
 & 2.6572e+00_jprb,3.4003e+00_jprb,4.3078e+00_jprb,5.3986e+00_jprb,6.6852e+00_jprb/)  
kbo( :,49, 8) = (/&
 & 2.3488e+00_jprb,3.0535e+00_jprb,3.9013e+00_jprb,4.9276e+00_jprb,6.1472e+00_jprb/)  
kbo( :,50, 8) = (/&
 & 2.0729e+00_jprb,2.7473e+00_jprb,3.5436e+00_jprb,4.5091e+00_jprb,5.6655e+00_jprb/)  
kbo( :,51, 8) = (/&
 & 1.8206e+00_jprb,2.4651e+00_jprb,3.2190e+00_jprb,4.1264e+00_jprb,5.2204e+00_jprb/)  
kbo( :,52, 8) = (/&
 & 1.5859e+00_jprb,2.1977e+00_jprb,2.9176e+00_jprb,3.7698e+00_jprb,4.8036e+00_jprb/)  
kbo( :,53, 8) = (/&
 & 1.3682e+00_jprb,1.9445e+00_jprb,2.6333e+00_jprb,3.4378e+00_jprb,4.4138e+00_jprb/)  
kbo( :,54, 8) = (/&
 & 1.1812e+00_jprb,1.7215e+00_jprb,2.3803e+00_jprb,3.1453e+00_jprb,4.0633e+00_jprb/)  
kbo( :,55, 8) = (/&
 & 1.0150e+00_jprb,1.5193e+00_jprb,2.1463e+00_jprb,2.8770e+00_jprb,3.7398e+00_jprb/)  
kbo( :,56, 8) = (/&
 & 8.6368e-01_jprb,1.3309e+00_jprb,1.9241e+00_jprb,2.6237e+00_jprb,3.4375e+00_jprb/)  
kbo( :,57, 8) = (/&
 & 7.2682e-01_jprb,1.1556e+00_jprb,1.7137e+00_jprb,2.3824e+00_jprb,3.1551e+00_jprb/)  
kbo( :,58, 8) = (/&
 & 6.0967e-01_jprb,1.0012e+00_jprb,1.5247e+00_jprb,2.1627e+00_jprb,2.9020e+00_jprb/)  
kbo( :,59, 8) = (/&
 & 5.5853e-01_jprb,9.3598e-01_jprb,1.4448e+00_jprb,2.0692e+00_jprb,2.7925e+00_jprb/)  
kbo( :,13, 9) = (/&
 & 9.9288e+01_jprb,9.7856e+01_jprb,9.6419e+01_jprb,9.4961e+01_jprb,9.3473e+01_jprb/)  
kbo( :,14, 9) = (/&
 & 1.0412e+02_jprb,1.0269e+02_jprb,1.0123e+02_jprb,9.9736e+01_jprb,9.8238e+01_jprb/)  
kbo( :,15, 9) = (/&
 & 1.0817e+02_jprb,1.0679e+02_jprb,1.0540e+02_jprb,1.0396e+02_jprb,1.0249e+02_jprb/)  
kbo( :,16, 9) = (/&
 & 1.1129e+02_jprb,1.1004e+02_jprb,1.0873e+02_jprb,1.0740e+02_jprb,1.0603e+02_jprb/)  
kbo( :,17, 9) = (/&
 & 1.1340e+02_jprb,1.1230e+02_jprb,1.1113e+02_jprb,1.0995e+02_jprb,1.0873e+02_jprb/)  
kbo( :,18, 9) = (/&
 & 1.1434e+02_jprb,1.1342e+02_jprb,1.1248e+02_jprb,1.1144e+02_jprb,1.1034e+02_jprb/)  
kbo( :,19, 9) = (/&
 & 1.1401e+02_jprb,1.1333e+02_jprb,1.1256e+02_jprb,1.1172e+02_jprb,1.1083e+02_jprb/)  
kbo( :,20, 9) = (/&
 & 1.1234e+02_jprb,1.1193e+02_jprb,1.1143e+02_jprb,1.1085e+02_jprb,1.1019e+02_jprb/)  
kbo( :,21, 9) = (/&
 & 1.0946e+02_jprb,1.0935e+02_jprb,1.0914e+02_jprb,1.0884e+02_jprb,1.0846e+02_jprb/)  
kbo( :,22, 9) = (/&
 & 1.0557e+02_jprb,1.0577e+02_jprb,1.0588e+02_jprb,1.0590e+02_jprb,1.0584e+02_jprb/)  
kbo( :,23, 9) = (/&
 & 1.0094e+02_jprb,1.0149e+02_jprb,1.0194e+02_jprb,1.0233e+02_jprb,1.0260e+02_jprb/)  
kbo( :,24, 9) = (/&
 & 9.5817e+01_jprb,9.6736e+01_jprb,9.7569e+01_jprb,9.8330e+01_jprb,9.9010e+01_jprb/)  
kbo( :,25, 9) = (/&
 & 9.0469e+01_jprb,9.1797e+01_jprb,9.3074e+01_jprb,9.4238e+01_jprb,9.5339e+01_jprb/)  
kbo( :,26, 9) = (/&
 & 8.5212e+01_jprb,8.6963e+01_jprb,8.8676e+01_jprb,9.0313e+01_jprb,9.1842e+01_jprb/)  
kbo( :,27, 9) = (/&
 & 8.0235e+01_jprb,8.2437e+01_jprb,8.4599e+01_jprb,8.6731e+01_jprb,8.8747e+01_jprb/)  
kbo( :,28, 9) = (/&
 & 7.5722e+01_jprb,7.8382e+01_jprb,8.1040e+01_jprb,8.3660e+01_jprb,8.6177e+01_jprb/)  
kbo( :,29, 9) = (/&
 & 7.1851e+01_jprb,7.4992e+01_jprb,7.8130e+01_jprb,8.1223e+01_jprb,8.4209e+01_jprb/)  
kbo( :,30, 9) = (/&
 & 6.8679e+01_jprb,7.2286e+01_jprb,7.5891e+01_jprb,7.9421e+01_jprb,8.2811e+01_jprb/)  
kbo( :,31, 9) = (/&
 & 6.6225e+01_jprb,7.0279e+01_jprb,7.4326e+01_jprb,7.8245e+01_jprb,8.1966e+01_jprb/)  
kbo( :,32, 9) = (/&
 & 6.4479e+01_jprb,6.8946e+01_jprb,7.3367e+01_jprb,7.7627e+01_jprb,8.1643e+01_jprb/)  
kbo( :,33, 9) = (/&
 & 6.3393e+01_jprb,6.8225e+01_jprb,7.2967e+01_jprb,7.7506e+01_jprb,8.1771e+01_jprb/)  
kbo( :,34, 9) = (/&
 & 6.2705e+01_jprb,6.7842e+01_jprb,7.2848e+01_jprb,7.7622e+01_jprb,8.2086e+01_jprb/)  
kbo( :,35, 9) = (/&
 & 6.1970e+01_jprb,6.7369e+01_jprb,7.2611e+01_jprb,7.7614e+01_jprb,8.2278e+01_jprb/)  
kbo( :,36, 9) = (/&
 & 6.0967e+01_jprb,6.6598e+01_jprb,7.2072e+01_jprb,7.7300e+01_jprb,8.2185e+01_jprb/)  
kbo( :,37, 9) = (/&
 & 5.9279e+01_jprb,6.5142e+01_jprb,7.0846e+01_jprb,7.6292e+01_jprb,8.1436e+01_jprb/)  
kbo( :,38, 9) = (/&
 & 5.7701e+01_jprb,6.3776e+01_jprb,6.9699e+01_jprb,7.5382e+01_jprb,8.0760e+01_jprb/)  
kbo( :,39, 9) = (/&
 & 5.6270e+01_jprb,6.2546e+01_jprb,6.8688e+01_jprb,7.4617e+01_jprb,8.0162e+01_jprb/)  
kbo( :,40, 9) = (/&
 & 5.4230e+01_jprb,6.0690e+01_jprb,6.6996e+01_jprb,7.3138e+01_jprb,7.8857e+01_jprb/)  
kbo( :,41, 9) = (/&
 & 5.2156e+01_jprb,5.8758e+01_jprb,6.5235e+01_jprb,7.1572e+01_jprb,7.7464e+01_jprb/)  
kbo( :,42, 9) = (/&
 & 5.0129e+01_jprb,5.6855e+01_jprb,6.3499e+01_jprb,7.0016e+01_jprb,7.6080e+01_jprb/)  
kbo( :,43, 9) = (/&
 & 4.7760e+01_jprb,5.4598e+01_jprb,6.1399e+01_jprb,6.8099e+01_jprb,7.4350e+01_jprb/)  
kbo( :,44, 9) = (/&
 & 4.5249e+01_jprb,5.2184e+01_jprb,5.9131e+01_jprb,6.6010e+01_jprb,7.2452e+01_jprb/)  
kbo( :,45, 9) = (/&
 & 4.2770e+01_jprb,4.9790e+01_jprb,5.6875e+01_jprb,6.3919e+01_jprb,7.0547e+01_jprb/)  
kbo( :,46, 9) = (/&
 & 4.0163e+01_jprb,4.7243e+01_jprb,5.4479e+01_jprb,6.1655e+01_jprb,6.8464e+01_jprb/)  
kbo( :,47, 9) = (/&
 & 3.7279e+01_jprb,4.4372e+01_jprb,5.1688e+01_jprb,5.9007e+01_jprb,6.6000e+01_jprb/)  
kbo( :,48, 9) = (/&
 & 3.4455e+01_jprb,4.1531e+01_jprb,4.8914e+01_jprb,5.6355e+01_jprb,6.3516e+01_jprb/)  
kbo( :,49, 9) = (/&
 & 3.1707e+01_jprb,3.8733e+01_jprb,4.6179e+01_jprb,5.3719e+01_jprb,6.1038e+01_jprb/)  
kbo( :,50, 9) = (/&
 & 2.9168e+01_jprb,3.6084e+01_jprb,4.3531e+01_jprb,5.1127e+01_jprb,5.8574e+01_jprb/)  
kbo( :,51, 9) = (/&
 & 2.6765e+01_jprb,3.3523e+01_jprb,4.0920e+01_jprb,4.8550e+01_jprb,5.6098e+01_jprb/)  
kbo( :,52, 9) = (/&
 & 2.4432e+01_jprb,3.1037e+01_jprb,3.8359e+01_jprb,4.5995e+01_jprb,5.3635e+01_jprb/)  
kbo( :,53, 9) = (/&
 & 2.2208e+01_jprb,2.8629e+01_jprb,3.5855e+01_jprb,4.3474e+01_jprb,5.1186e+01_jprb/)  
kbo( :,54, 9) = (/&
 & 2.0205e+01_jprb,2.6401e+01_jprb,3.3414e+01_jprb,4.0973e+01_jprb,4.8699e+01_jprb/)  
kbo( :,55, 9) = (/&
 & 1.8353e+01_jprb,2.4282e+01_jprb,3.1024e+01_jprb,3.8470e+01_jprb,4.6173e+01_jprb/)  
kbo( :,56, 9) = (/&
 & 1.6601e+01_jprb,2.2262e+01_jprb,2.8733e+01_jprb,3.6003e+01_jprb,4.3640e+01_jprb/)  
kbo( :,57, 9) = (/&
 & 1.4942e+01_jprb,2.0332e+01_jprb,2.6541e+01_jprb,3.3571e+01_jprb,4.1137e+01_jprb/)  
kbo( :,58, 9) = (/&
 & 1.3455e+01_jprb,1.8580e+01_jprb,2.4530e+01_jprb,3.1284e+01_jprb,3.8733e+01_jprb/)  
kbo( :,59, 9) = (/&
 & 1.2865e+01_jprb,1.7859e+01_jprb,2.3642e+01_jprb,3.0152e+01_jprb,3.7359e+01_jprb/)  
kbo( :,13,10) = (/&
 & 1.4836e+02_jprb,1.4604e+02_jprb,1.4370e+02_jprb,1.4155e+02_jprb,1.3951e+02_jprb/)  
kbo( :,14,10) = (/&
 & 1.6431e+02_jprb,1.6174e+02_jprb,1.5931e+02_jprb,1.5707e+02_jprb,1.5447e+02_jprb/)  
kbo( :,15,10) = (/&
 & 1.8088e+02_jprb,1.7844e+02_jprb,1.7598e+02_jprb,1.7321e+02_jprb,1.7049e+02_jprb/)  
kbo( :,16,10) = (/&
 & 1.9837e+02_jprb,1.9582e+02_jprb,1.9294e+02_jprb,1.9007e+02_jprb,1.8732e+02_jprb/)  
kbo( :,17,10) = (/&
 & 2.1550e+02_jprb,2.1268e+02_jprb,2.0959e+02_jprb,2.0637e+02_jprb,2.0299e+02_jprb/)  
kbo( :,18,10) = (/&
 & 2.3147e+02_jprb,2.2811e+02_jprb,2.2491e+02_jprb,2.2179e+02_jprb,2.1873e+02_jprb/)  
kbo( :,19,10) = (/&
 & 2.4561e+02_jprb,2.4282e+02_jprb,2.3998e+02_jprb,2.3673e+02_jprb,2.3333e+02_jprb/)  
kbo( :,20,10) = (/&
 & 2.5875e+02_jprb,2.5597e+02_jprb,2.5299e+02_jprb,2.4975e+02_jprb,2.4650e+02_jprb/)  
kbo( :,21,10) = (/&
 & 2.6956e+02_jprb,2.6694e+02_jprb,2.6416e+02_jprb,2.6126e+02_jprb,2.5829e+02_jprb/)  
kbo( :,22,10) = (/&
 & 2.7742e+02_jprb,2.7556e+02_jprb,2.7346e+02_jprb,2.7109e+02_jprb,2.6822e+02_jprb/)  
kbo( :,23,10) = (/&
 & 2.8259e+02_jprb,2.8167e+02_jprb,2.8054e+02_jprb,2.7877e+02_jprb,2.7640e+02_jprb/)  
kbo( :,24,10) = (/&
 & 2.8579e+02_jprb,2.8593e+02_jprb,2.8555e+02_jprb,2.8452e+02_jprb,2.8281e+02_jprb/)  
kbo( :,25,10) = (/&
 & 2.8759e+02_jprb,2.8855e+02_jprb,2.8897e+02_jprb,2.8899e+02_jprb,2.8805e+02_jprb/)  
kbo( :,26,10) = (/&
 & 2.8827e+02_jprb,2.9039e+02_jprb,2.9171e+02_jprb,2.9254e+02_jprb,2.9232e+02_jprb/)  
kbo( :,27,10) = (/&
 & 2.8831e+02_jprb,2.9160e+02_jprb,2.9410e+02_jprb,2.9547e+02_jprb,2.9582e+02_jprb/)  
kbo( :,28,10) = (/&
 & 2.8830e+02_jprb,2.9281e+02_jprb,2.9591e+02_jprb,2.9817e+02_jprb,2.9880e+02_jprb/)  
kbo( :,29,10) = (/&
 & 2.8819e+02_jprb,2.9390e+02_jprb,2.9762e+02_jprb,3.0035e+02_jprb,3.0140e+02_jprb/)  
kbo( :,30,10) = (/&
 & 2.8853e+02_jprb,2.9509e+02_jprb,2.9931e+02_jprb,3.0230e+02_jprb,3.0384e+02_jprb/)  
kbo( :,31,10) = (/&
 & 2.8941e+02_jprb,2.9638e+02_jprb,3.0093e+02_jprb,3.0407e+02_jprb,3.0610e+02_jprb/)  
kbo( :,32,10) = (/&
 & 2.9067e+02_jprb,2.9787e+02_jprb,3.0275e+02_jprb,3.0577e+02_jprb,3.0795e+02_jprb/)  
kbo( :,33,10) = (/&
 & 2.9222e+02_jprb,2.9942e+02_jprb,3.0456e+02_jprb,3.0752e+02_jprb,3.0966e+02_jprb/)  
kbo( :,34,10) = (/&
 & 2.9363e+02_jprb,3.0091e+02_jprb,3.0608e+02_jprb,3.0904e+02_jprb,3.1115e+02_jprb/)  
kbo( :,35,10) = (/&
 & 2.9423e+02_jprb,3.0182e+02_jprb,3.0717e+02_jprb,3.1018e+02_jprb,3.1229e+02_jprb/)  
kbo( :,36,10) = (/&
 & 2.9400e+02_jprb,3.0205e+02_jprb,3.0771e+02_jprb,3.1091e+02_jprb,3.1314e+02_jprb/)  

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


SUBROUTINE part15

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


kbo( :,37,10) = (/&
 & 2.9277e+02_jprb,3.0116e+02_jprb,3.0745e+02_jprb,3.1132e+02_jprb,3.1369e+02_jprb/)  
kbo( :,38,10) = (/&
 & 2.9103e+02_jprb,3.0008e+02_jprb,3.0698e+02_jprb,3.1126e+02_jprb,3.1405e+02_jprb/)  
kbo( :,39,10) = (/&
 & 2.8923e+02_jprb,2.9890e+02_jprb,3.0637e+02_jprb,3.1107e+02_jprb,3.1517e+02_jprb/)  
kbo( :,40,10) = (/&
 & 2.8609e+02_jprb,2.9711e+02_jprb,3.0497e+02_jprb,3.1036e+02_jprb,3.1550e+02_jprb/)  
kbo( :,41,10) = (/&
 & 2.8252e+02_jprb,2.9448e+02_jprb,3.0316e+02_jprb,3.0942e+02_jprb,3.1556e+02_jprb/)  
kbo( :,42,10) = (/&
 & 2.7862e+02_jprb,2.9160e+02_jprb,3.0113e+02_jprb,3.0834e+02_jprb,3.1556e+02_jprb/)  
kbo( :,43,10) = (/&
 & 2.7361e+02_jprb,2.8779e+02_jprb,2.9836e+02_jprb,3.0666e+02_jprb,3.1512e+02_jprb/)  
kbo( :,44,10) = (/&
 & 2.6782e+02_jprb,2.8324e+02_jprb,2.9499e+02_jprb,3.0453e+02_jprb,3.1441e+02_jprb/)  
kbo( :,45,10) = (/&
 & 2.6165e+02_jprb,2.7823e+02_jprb,2.9120e+02_jprb,3.0219e+02_jprb,3.1362e+02_jprb/)  
kbo( :,46,10) = (/&
 & 2.5462e+02_jprb,2.7249e+02_jprb,2.8693e+02_jprb,2.9929e+02_jprb,3.1228e+02_jprb/)  
kbo( :,47,10) = (/&
 & 2.4622e+02_jprb,2.6556e+02_jprb,2.8145e+02_jprb,2.9525e+02_jprb,3.0983e+02_jprb/)  
kbo( :,48,10) = (/&
 & 2.3713e+02_jprb,2.5803e+02_jprb,2.7541e+02_jprb,2.9095e+02_jprb,3.0719e+02_jprb/)  
kbo( :,49,10) = (/&
 & 2.2739e+02_jprb,2.4986e+02_jprb,2.6881e+02_jprb,2.8662e+02_jprb,3.0453e+02_jprb/)  
kbo( :,50,10) = (/&
 & 2.1772e+02_jprb,2.4169e+02_jprb,2.6202e+02_jprb,2.8158e+02_jprb,3.0094e+02_jprb/)  
kbo( :,51,10) = (/&
 & 2.0784e+02_jprb,2.3330e+02_jprb,2.5496e+02_jprb,2.7591e+02_jprb,2.9666e+02_jprb/)  
kbo( :,52,10) = (/&
 & 1.9746e+02_jprb,2.2442e+02_jprb,2.4742e+02_jprb,2.7004e+02_jprb,2.9216e+02_jprb/)  
kbo( :,53,10) = (/&
 & 1.8667e+02_jprb,2.1498e+02_jprb,2.3949e+02_jprb,2.6404e+02_jprb,2.8766e+02_jprb/)  
kbo( :,54,10) = (/&
 & 1.7641e+02_jprb,2.0557e+02_jprb,2.3152e+02_jprb,2.5629e+02_jprb,2.8134e+02_jprb/)  
kbo( :,55,10) = (/&
 & 1.6630e+02_jprb,1.9645e+02_jprb,2.2352e+02_jprb,2.4801e+02_jprb,2.7356e+02_jprb/)  
kbo( :,56,10) = (/&
 & 1.5594e+02_jprb,1.8700e+02_jprb,2.1520e+02_jprb,2.3992e+02_jprb,2.6576e+02_jprb/)  
kbo( :,57,10) = (/&
 & 1.4539e+02_jprb,1.7728e+02_jprb,2.0648e+02_jprb,2.3204e+02_jprb,2.5725e+02_jprb/)  
kbo( :,58,10) = (/&
 & 1.3524e+02_jprb,1.6780e+02_jprb,1.9789e+02_jprb,2.2459e+02_jprb,2.4918e+02_jprb/)  
kbo( :,59,10) = (/&
 & 1.3112e+02_jprb,1.6391e+02_jprb,1.9433e+02_jprb,2.2152e+02_jprb,2.4535e+02_jprb/)  
kbo( :,13,11) = (/&
 & 1.6552e+02_jprb,1.6259e+02_jprb,1.5976e+02_jprb,1.5701e+02_jprb,1.5440e+02_jprb/)  
kbo( :,14,11) = (/&
 & 1.8516e+02_jprb,1.8233e+02_jprb,1.7933e+02_jprb,1.7635e+02_jprb,1.7362e+02_jprb/)  
kbo( :,15,11) = (/&
 & 2.0794e+02_jprb,2.0481e+02_jprb,2.0174e+02_jprb,1.9859e+02_jprb,1.9534e+02_jprb/)  
kbo( :,16,11) = (/&
 & 2.3251e+02_jprb,2.2934e+02_jprb,2.2596e+02_jprb,2.2193e+02_jprb,2.1747e+02_jprb/)  
kbo( :,17,11) = (/&
 & 2.5822e+02_jprb,2.5449e+02_jprb,2.5028e+02_jprb,2.4575e+02_jprb,2.4111e+02_jprb/)  
kbo( :,18,11) = (/&
 & 2.8377e+02_jprb,2.7983e+02_jprb,2.7512e+02_jprb,2.7022e+02_jprb,2.6507e+02_jprb/)  
kbo( :,19,11) = (/&
 & 3.0872e+02_jprb,3.0403e+02_jprb,2.9887e+02_jprb,2.9373e+02_jprb,2.8833e+02_jprb/)  
kbo( :,20,11) = (/&
 & 3.3154e+02_jprb,3.2667e+02_jprb,3.2149e+02_jprb,3.1658e+02_jprb,3.1110e+02_jprb/)  
kbo( :,21,11) = (/&
 & 3.5303e+02_jprb,3.4859e+02_jprb,3.4368e+02_jprb,3.3863e+02_jprb,3.3281e+02_jprb/)  
kbo( :,22,11) = (/&
 & 3.7308e+02_jprb,3.6866e+02_jprb,3.6382e+02_jprb,3.5853e+02_jprb,3.5259e+02_jprb/)  
kbo( :,23,11) = (/&
 & 3.9085e+02_jprb,3.8660e+02_jprb,3.8185e+02_jprb,3.7650e+02_jprb,3.7123e+02_jprb/)  
kbo( :,24,11) = (/&
 & 4.0631e+02_jprb,4.0255e+02_jprb,3.9828e+02_jprb,3.9348e+02_jprb,3.8793e+02_jprb/)  
kbo( :,25,11) = (/&
 & 4.1938e+02_jprb,4.1686e+02_jprb,4.1282e+02_jprb,4.0821e+02_jprb,4.0269e+02_jprb/)  
kbo( :,26,11) = (/&
 & 4.3004e+02_jprb,4.2864e+02_jprb,4.2545e+02_jprb,4.2097e+02_jprb,4.1544e+02_jprb/)  
kbo( :,27,11) = (/&
 & 4.3932e+02_jprb,4.3875e+02_jprb,4.3604e+02_jprb,4.3201e+02_jprb,4.2641e+02_jprb/)  
kbo( :,28,11) = (/&
 & 4.4708e+02_jprb,4.4715e+02_jprb,4.4516e+02_jprb,4.4121e+02_jprb,4.3584e+02_jprb/)  
kbo( :,29,11) = (/&
 & 4.5390e+02_jprb,4.5431e+02_jprb,4.5282e+02_jprb,4.4905e+02_jprb,4.4353e+02_jprb/)  
kbo( :,30,11) = (/&
 & 4.5978e+02_jprb,4.6051e+02_jprb,4.5914e+02_jprb,4.5563e+02_jprb,4.4966e+02_jprb/)  
kbo( :,31,11) = (/&
 & 4.6502e+02_jprb,4.6582e+02_jprb,4.6429e+02_jprb,4.6092e+02_jprb,4.5451e+02_jprb/)  
kbo( :,32,11) = (/&
 & 4.6952e+02_jprb,4.7023e+02_jprb,4.6854e+02_jprb,4.6499e+02_jprb,4.5830e+02_jprb/)  
kbo( :,33,11) = (/&
 & 4.7348e+02_jprb,4.7409e+02_jprb,4.7192e+02_jprb,4.6794e+02_jprb,4.6103e+02_jprb/)  
kbo( :,34,11) = (/&
 & 4.7685e+02_jprb,4.7731e+02_jprb,4.7475e+02_jprb,4.7028e+02_jprb,4.6319e+02_jprb/)  
kbo( :,35,11) = (/&
 & 4.7958e+02_jprb,4.8002e+02_jprb,4.7736e+02_jprb,4.7259e+02_jprb,4.6551e+02_jprb/)  
kbo( :,36,11) = (/&
 & 4.8169e+02_jprb,4.8240e+02_jprb,4.7987e+02_jprb,4.7499e+02_jprb,4.6813e+02_jprb/)  
kbo( :,37,11) = (/&
 & 4.8298e+02_jprb,4.8446e+02_jprb,4.8243e+02_jprb,4.7809e+02_jprb,4.7147e+02_jprb/)  
kbo( :,38,11) = (/&
 & 4.8394e+02_jprb,4.8606e+02_jprb,4.8459e+02_jprb,4.8068e+02_jprb,4.7405e+02_jprb/)  
kbo( :,39,11) = (/&
 & 4.8451e+02_jprb,4.8733e+02_jprb,4.8637e+02_jprb,4.8291e+02_jprb,4.7658e+02_jprb/)  
kbo( :,40,11) = (/&
 & 4.8421e+02_jprb,4.8736e+02_jprb,4.8800e+02_jprb,4.8523e+02_jprb,4.7946e+02_jprb/)  
kbo( :,41,11) = (/&
 & 4.8335e+02_jprb,4.8764e+02_jprb,4.8927e+02_jprb,4.8717e+02_jprb,4.8206e+02_jprb/)  
kbo( :,42,11) = (/&
 & 4.8204e+02_jprb,4.8748e+02_jprb,4.9006e+02_jprb,4.8875e+02_jprb,4.8434e+02_jprb/)  
kbo( :,43,11) = (/&
 & 4.7975e+02_jprb,4.8654e+02_jprb,4.9041e+02_jprb,4.9008e+02_jprb,4.8652e+02_jprb/)  
kbo( :,44,11) = (/&
 & 4.7655e+02_jprb,4.8494e+02_jprb,4.9019e+02_jprb,4.9098e+02_jprb,4.8839e+02_jprb/)  
kbo( :,45,11) = (/&
 & 4.7253e+02_jprb,4.8276e+02_jprb,4.8943e+02_jprb,4.9145e+02_jprb,4.9003e+02_jprb/)  
kbo( :,46,11) = (/&
 & 4.6734e+02_jprb,4.7968e+02_jprb,4.8743e+02_jprb,4.9144e+02_jprb,4.9142e+02_jprb/)  
kbo( :,47,11) = (/&
 & 4.6037e+02_jprb,4.7532e+02_jprb,4.8503e+02_jprb,4.9075e+02_jprb,4.9230e+02_jprb/)  
kbo( :,48,11) = (/&
 & 4.5226e+02_jprb,4.6987e+02_jprb,4.8198e+02_jprb,4.8932e+02_jprb,4.9295e+02_jprb/)  
kbo( :,49,11) = (/&
 & 4.4290e+02_jprb,4.6342e+02_jprb,4.7813e+02_jprb,4.8707e+02_jprb,4.9364e+02_jprb/)  
kbo( :,50,11) = (/&
 & 4.3303e+02_jprb,4.5634e+02_jprb,4.7362e+02_jprb,4.8430e+02_jprb,4.9319e+02_jprb/)  
kbo( :,51,11) = (/&
 & 4.2231e+02_jprb,4.4854e+02_jprb,4.6823e+02_jprb,4.8097e+02_jprb,4.9173e+02_jprb/)  
kbo( :,52,11) = (/&
 & 4.1028e+02_jprb,4.3983e+02_jprb,4.6194e+02_jprb,4.7695e+02_jprb,4.9018e+02_jprb/)  
kbo( :,53,11) = (/&
 & 3.9747e+02_jprb,4.3006e+02_jprb,4.5475e+02_jprb,4.7218e+02_jprb,4.8896e+02_jprb/)  
kbo( :,54,11) = (/&
 & 3.8468e+02_jprb,4.1991e+02_jprb,4.4737e+02_jprb,4.6699e+02_jprb,4.8405e+02_jprb/)  
kbo( :,55,11) = (/&
 & 3.7148e+02_jprb,4.0953e+02_jprb,4.3953e+02_jprb,4.6157e+02_jprb,4.7789e+02_jprb/)  
kbo( :,56,11) = (/&
 & 3.5741e+02_jprb,3.9825e+02_jprb,4.3092e+02_jprb,4.5516e+02_jprb,4.7290e+02_jprb/)  
kbo( :,57,11) = (/&
 & 3.4261e+02_jprb,3.8598e+02_jprb,4.2152e+02_jprb,4.4813e+02_jprb,4.6777e+02_jprb/)  
kbo( :,58,11) = (/&
 & 3.2780e+02_jprb,3.7359e+02_jprb,4.1192e+02_jprb,4.4072e+02_jprb,4.6249e+02_jprb/)  
kbo( :,59,11) = (/&
 & 3.2152e+02_jprb,3.6839e+02_jprb,4.0780e+02_jprb,4.3751e+02_jprb,4.6016e+02_jprb/)  
kbo( :,13,12) = (/&
 & 1.8421e+02_jprb,1.8166e+02_jprb,1.7879e+02_jprb,1.7574e+02_jprb,1.7251e+02_jprb/)  
kbo( :,14,12) = (/&
 & 2.0903e+02_jprb,2.0619e+02_jprb,2.0324e+02_jprb,1.9988e+02_jprb,1.9636e+02_jprb/)  
kbo( :,15,12) = (/&
 & 2.3780e+02_jprb,2.3442e+02_jprb,2.3068e+02_jprb,2.2666e+02_jprb,2.2225e+02_jprb/)  
kbo( :,16,12) = (/&
 & 2.7012e+02_jprb,2.6570e+02_jprb,2.6084e+02_jprb,2.5612e+02_jprb,2.5162e+02_jprb/)  
kbo( :,17,12) = (/&
 & 3.0507e+02_jprb,2.9990e+02_jprb,2.9472e+02_jprb,2.8913e+02_jprb,2.8362e+02_jprb/)  
kbo( :,18,12) = (/&
 & 3.4264e+02_jprb,3.3653e+02_jprb,3.3027e+02_jprb,3.2388e+02_jprb,3.1713e+02_jprb/)  
kbo( :,19,12) = (/&
 & 3.8113e+02_jprb,3.7455e+02_jprb,3.6765e+02_jprb,3.6040e+02_jprb,3.5292e+02_jprb/)  
kbo( :,20,12) = (/&
 & 4.2119e+02_jprb,4.1426e+02_jprb,4.0655e+02_jprb,3.9813e+02_jprb,3.8981e+02_jprb/)  
kbo( :,21,12) = (/&
 & 4.6191e+02_jprb,4.5363e+02_jprb,4.4508e+02_jprb,4.3611e+02_jprb,4.2662e+02_jprb/)  
kbo( :,22,12) = (/&
 & 5.0045e+02_jprb,4.9187e+02_jprb,4.8228e+02_jprb,4.7267e+02_jprb,4.6269e+02_jprb/)  
kbo( :,23,12) = (/&
 & 5.3771e+02_jprb,5.2859e+02_jprb,5.1832e+02_jprb,5.0803e+02_jprb,4.9670e+02_jprb/)  
kbo( :,24,12) = (/&
 & 5.7227e+02_jprb,5.6260e+02_jprb,5.5214e+02_jprb,5.4076e+02_jprb,5.2846e+02_jprb/)  
kbo( :,25,12) = (/&
 & 6.0401e+02_jprb,5.9384e+02_jprb,5.8279e+02_jprb,5.7065e+02_jprb,5.5724e+02_jprb/)  
kbo( :,26,12) = (/&
 & 6.3275e+02_jprb,6.2182e+02_jprb,6.0975e+02_jprb,5.9668e+02_jprb,5.8248e+02_jprb/)  
kbo( :,27,12) = (/&
 & 6.5788e+02_jprb,6.4612e+02_jprb,6.3329e+02_jprb,6.1912e+02_jprb,6.0393e+02_jprb/)  
kbo( :,28,12) = (/&
 & 6.7977e+02_jprb,6.6741e+02_jprb,6.5368e+02_jprb,6.3839e+02_jprb,6.2186e+02_jprb/)  
kbo( :,29,12) = (/&
 & 6.9860e+02_jprb,6.8540e+02_jprb,6.7056e+02_jprb,6.5407e+02_jprb,6.3669e+02_jprb/)  
kbo( :,30,12) = (/&
 & 7.1428e+02_jprb,7.0014e+02_jprb,6.8436e+02_jprb,6.6687e+02_jprb,6.4843e+02_jprb/)  
kbo( :,31,12) = (/&
 & 7.2707e+02_jprb,7.1224e+02_jprb,6.9535e+02_jprb,6.7679e+02_jprb,6.5732e+02_jprb/)  
kbo( :,32,12) = (/&
 & 7.3739e+02_jprb,7.2161e+02_jprb,7.0352e+02_jprb,6.8424e+02_jprb,6.6374e+02_jprb/)  
kbo( :,33,12) = (/&
 & 7.4529e+02_jprb,7.2852e+02_jprb,7.0939e+02_jprb,6.8945e+02_jprb,6.6810e+02_jprb/)  
kbo( :,34,12) = (/&
 & 7.5166e+02_jprb,7.3380e+02_jprb,7.1390e+02_jprb,6.9344e+02_jprb,6.7141e+02_jprb/)  
kbo( :,35,12) = (/&
 & 7.5785e+02_jprb,7.3918e+02_jprb,7.1874e+02_jprb,6.9799e+02_jprb,6.7527e+02_jprb/)  
kbo( :,36,12) = (/&
 & 7.6435e+02_jprb,7.4538e+02_jprb,7.2454e+02_jprb,7.0358e+02_jprb,6.8040e+02_jprb/)  
kbo( :,37,12) = (/&
 & 7.7161e+02_jprb,7.5340e+02_jprb,7.3251e+02_jprb,7.1089e+02_jprb,6.8800e+02_jprb/)  
kbo( :,38,12) = (/&
 & 7.7853e+02_jprb,7.6067e+02_jprb,7.3983e+02_jprb,7.1816e+02_jprb,6.9536e+02_jprb/)  
kbo( :,39,12) = (/&
 & 7.8464e+02_jprb,7.6713e+02_jprb,7.4647e+02_jprb,7.2475e+02_jprb,7.0178e+02_jprb/)  
kbo( :,40,12) = (/&
 & 7.9160e+02_jprb,7.7414e+02_jprb,7.5465e+02_jprb,7.3306e+02_jprb,7.1009e+02_jprb/)  
kbo( :,41,12) = (/&
 & 7.9795e+02_jprb,7.8137e+02_jprb,7.6252e+02_jprb,7.4117e+02_jprb,7.1825e+02_jprb/)  
kbo( :,42,12) = (/&
 & 8.0363e+02_jprb,7.8805e+02_jprb,7.6985e+02_jprb,7.4880e+02_jprb,7.2604e+02_jprb/)  
kbo( :,43,12) = (/&
 & 8.0918e+02_jprb,7.9503e+02_jprb,7.7774e+02_jprb,7.5724e+02_jprb,7.3478e+02_jprb/)  
kbo( :,44,12) = (/&
 & 8.1405e+02_jprb,8.0171e+02_jprb,7.8561e+02_jprb,7.6584e+02_jprb,7.4379e+02_jprb/)  
kbo( :,45,12) = (/&
 & 8.1783e+02_jprb,8.0759e+02_jprb,7.9294e+02_jprb,7.7397e+02_jprb,7.5240e+02_jprb/)  
kbo( :,46,12) = (/&
 & 8.2078e+02_jprb,8.1309e+02_jprb,8.0010e+02_jprb,7.8201e+02_jprb,7.6131e+02_jprb/)  
kbo( :,47,12) = (/&
 & 8.2288e+02_jprb,8.1791e+02_jprb,8.0688e+02_jprb,7.9031e+02_jprb,7.7082e+02_jprb/)  
kbo( :,48,12) = (/&
 & 8.2365e+02_jprb,8.2167e+02_jprb,8.1273e+02_jprb,7.9796e+02_jprb,7.7963e+02_jprb/)  
kbo( :,49,12) = (/&
 & 8.2287e+02_jprb,8.2431e+02_jprb,8.1763e+02_jprb,8.0487e+02_jprb,7.8791e+02_jprb/)  
kbo( :,50,12) = (/&
 & 8.2045e+02_jprb,8.2549e+02_jprb,8.2124e+02_jprb,8.1073e+02_jprb,7.9521e+02_jprb/)  
kbo( :,51,12) = (/&
 & 8.1647e+02_jprb,8.2526e+02_jprb,8.2370e+02_jprb,8.1563e+02_jprb,8.0180e+02_jprb/)  
kbo( :,52,12) = (/&
 & 8.1121e+02_jprb,8.2367e+02_jprb,8.2531e+02_jprb,8.1967e+02_jprb,8.0788e+02_jprb/)  
kbo( :,53,12) = (/&
 & 8.0411e+02_jprb,8.2055e+02_jprb,8.2579e+02_jprb,8.2272e+02_jprb,8.1321e+02_jprb/)  
kbo( :,54,12) = (/&
 & 7.9588e+02_jprb,8.1607e+02_jprb,8.2504e+02_jprb,8.2471e+02_jprb,8.1743e+02_jprb/)  
kbo( :,55,12) = (/&
 & 7.8606e+02_jprb,8.1098e+02_jprb,8.2328e+02_jprb,8.2571e+02_jprb,8.2076e+02_jprb/)  
kbo( :,56,12) = (/&
 & 7.7445e+02_jprb,8.0478e+02_jprb,8.2051e+02_jprb,8.2610e+02_jprb,8.2295e+02_jprb/)  
kbo( :,57,12) = (/&
 & 7.6082e+02_jprb,7.9711e+02_jprb,8.1649e+02_jprb,8.2552e+02_jprb,8.2493e+02_jprb/)  
kbo( :,58,12) = (/&
 & 7.4626e+02_jprb,7.8808e+02_jprb,8.1174e+02_jprb,8.2409e+02_jprb,8.2621e+02_jprb/)  
kbo( :,59,12) = (/&
 & 7.3987e+02_jprb,7.8401e+02_jprb,8.0954e+02_jprb,8.2334e+02_jprb,8.2653e+02_jprb/)  
kbo( :,13,13) = (/&
 & 2.0706e+02_jprb,2.0275e+02_jprb,1.9960e+02_jprb,1.9642e+02_jprb,1.9325e+02_jprb/)  
kbo( :,14,13) = (/&
 & 2.3740e+02_jprb,2.3314e+02_jprb,2.2927e+02_jprb,2.2508e+02_jprb,2.2071e+02_jprb/)  
kbo( :,15,13) = (/&
 & 2.7338e+02_jprb,2.6831e+02_jprb,2.6304e+02_jprb,2.5795e+02_jprb,2.5294e+02_jprb/)  
kbo( :,16,13) = (/&
 & 3.1308e+02_jprb,3.0705e+02_jprb,3.0154e+02_jprb,2.9582e+02_jprb,2.8990e+02_jprb/)  
kbo( :,17,13) = (/&
 & 3.5766e+02_jprb,3.5096e+02_jprb,3.4421e+02_jprb,3.3769e+02_jprb,3.3070e+02_jprb/)  
kbo( :,18,13) = (/&
 & 4.0731e+02_jprb,3.9992e+02_jprb,3.9262e+02_jprb,3.8506e+02_jprb,3.7703e+02_jprb/)  
kbo( :,19,13) = (/&
 & 4.6388e+02_jprb,4.5553e+02_jprb,4.4668e+02_jprb,4.3762e+02_jprb,4.2783e+02_jprb/)  
kbo( :,20,13) = (/&
 & 5.2583e+02_jprb,5.1576e+02_jprb,5.0510e+02_jprb,4.9383e+02_jprb,4.8218e+02_jprb/)  
kbo( :,21,13) = (/&
 & 5.9116e+02_jprb,5.7950e+02_jprb,5.6656e+02_jprb,5.5310e+02_jprb,5.3897e+02_jprb/)  
kbo( :,22,13) = (/&
 & 6.5823e+02_jprb,6.4391e+02_jprb,6.2839e+02_jprb,6.1210e+02_jprb,5.9534e+02_jprb/)  
kbo( :,23,13) = (/&
 & 7.2542e+02_jprb,7.0808e+02_jprb,6.8952e+02_jprb,6.6991e+02_jprb,6.4969e+02_jprb/)  
kbo( :,24,13) = (/&
 & 7.9029e+02_jprb,7.7002e+02_jprb,7.4790e+02_jprb,7.2486e+02_jprb,7.0140e+02_jprb/)  
kbo( :,25,13) = (/&
 & 8.5203e+02_jprb,8.2748e+02_jprb,8.0207e+02_jprb,7.7556e+02_jprb,7.4909e+02_jprb/)  
kbo( :,26,13) = (/&
 & 9.0879e+02_jprb,8.8008e+02_jprb,8.5133e+02_jprb,8.2123e+02_jprb,7.9187e+02_jprb/)  
kbo( :,27,13) = (/&
 & 9.5929e+02_jprb,9.2767e+02_jprb,8.9539e+02_jprb,8.6200e+02_jprb,8.2944e+02_jprb/)  
kbo( :,28,13) = (/&
 & 1.0038e+03_jprb,9.6874e+02_jprb,9.3346e+02_jprb,8.9698e+02_jprb,8.6129e+02_jprb/)  
kbo( :,29,13) = (/&
 & 1.0414e+03_jprb,1.0031e+03_jprb,9.6490e+02_jprb,9.2572e+02_jprb,8.8715e+02_jprb/)  
kbo( :,30,13) = (/&
 & 1.0721e+03_jprb,1.0311e+03_jprb,9.9002e+02_jprb,9.4833e+02_jprb,9.0740e+02_jprb/)  
kbo( :,31,13) = (/&
 & 1.0964e+03_jprb,1.0523e+03_jprb,1.0091e+03_jprb,9.6516e+02_jprb,9.2258e+02_jprb/)  
kbo( :,32,13) = (/&
 & 1.1144e+03_jprb,1.0680e+03_jprb,1.0228e+03_jprb,9.7704e+02_jprb,9.3296e+02_jprb/)  
kbo( :,33,13) = (/&
 & 1.1268e+03_jprb,1.0785e+03_jprb,1.0318e+03_jprb,9.8453e+02_jprb,9.3914e+02_jprb/)  
kbo( :,34,13) = (/&
 & 1.1363e+03_jprb,1.0866e+03_jprb,1.0383e+03_jprb,9.8991e+02_jprb,9.4342e+02_jprb/)  
kbo( :,35,13) = (/&
 & 1.1468e+03_jprb,1.0959e+03_jprb,1.0463e+03_jprb,9.9687e+02_jprb,9.4938e+02_jprb/)  
kbo( :,36,13) = (/&
 & 1.1600e+03_jprb,1.1078e+03_jprb,1.0572e+03_jprb,1.0067e+03_jprb,9.5830e+02_jprb/)  
kbo( :,37,13) = (/&
 & 1.1790e+03_jprb,1.1257e+03_jprb,1.0738e+03_jprb,1.0220e+03_jprb,9.7295e+02_jprb/)  
kbo( :,38,13) = (/&
 & 1.1965e+03_jprb,1.1423e+03_jprb,1.0895e+03_jprb,1.0368e+03_jprb,9.8736e+02_jprb/)  
kbo( :,39,13) = (/&
 & 1.2126e+03_jprb,1.1577e+03_jprb,1.1039e+03_jprb,1.0505e+03_jprb,1.0002e+03_jprb/)  
kbo( :,40,13) = (/&
 & 1.2331e+03_jprb,1.1780e+03_jprb,1.1227e+03_jprb,1.0686e+03_jprb,1.0174e+03_jprb/)  

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


SUBROUTINE part16

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


kbo( :,41,13) = (/&
 & 1.2534e+03_jprb,1.1977e+03_jprb,1.1416e+03_jprb,1.0868e+03_jprb,1.0348e+03_jprb/)  
kbo( :,42,13) = (/&
 & 1.2728e+03_jprb,1.2168e+03_jprb,1.1600e+03_jprb,1.1045e+03_jprb,1.0518e+03_jprb/)  
kbo( :,43,13) = (/&
 & 1.2945e+03_jprb,1.2387e+03_jprb,1.1810e+03_jprb,1.1249e+03_jprb,1.0714e+03_jprb/)  
kbo( :,44,13) = (/&
 & 1.3174e+03_jprb,1.2614e+03_jprb,1.2031e+03_jprb,1.1464e+03_jprb,1.0923e+03_jprb/)  
kbo( :,45,13) = (/&
 & 1.3398e+03_jprb,1.2836e+03_jprb,1.2250e+03_jprb,1.1678e+03_jprb,1.1130e+03_jprb/)  
kbo( :,46,13) = (/&
 & 1.3628e+03_jprb,1.3065e+03_jprb,1.2489e+03_jprb,1.1905e+03_jprb,1.1348e+03_jprb/)  
kbo( :,47,13) = (/&
 & 1.3873e+03_jprb,1.3317e+03_jprb,1.2742e+03_jprb,1.2156e+03_jprb,1.1587e+03_jprb/)  
kbo( :,48,13) = (/&
 & 1.4108e+03_jprb,1.3565e+03_jprb,1.2991e+03_jprb,1.2406e+03_jprb,1.1829e+03_jprb/)  
kbo( :,49,13) = (/&
 & 1.4335e+03_jprb,1.3803e+03_jprb,1.3234e+03_jprb,1.2654e+03_jprb,1.2072e+03_jprb/)  
kbo( :,50,13) = (/&
 & 1.4541e+03_jprb,1.4021e+03_jprb,1.3460e+03_jprb,1.2885e+03_jprb,1.2302e+03_jprb/)  
kbo( :,51,13) = (/&
 & 1.4730e+03_jprb,1.4228e+03_jprb,1.3681e+03_jprb,1.3104e+03_jprb,1.2525e+03_jprb/)  
kbo( :,52,13) = (/&
 & 1.4907e+03_jprb,1.4427e+03_jprb,1.3898e+03_jprb,1.3321e+03_jprb,1.2744e+03_jprb/)  
kbo( :,53,13) = (/&
 & 1.5061e+03_jprb,1.4619e+03_jprb,1.4106e+03_jprb,1.3539e+03_jprb,1.2962e+03_jprb/)  
kbo( :,54,13) = (/&
 & 1.5192e+03_jprb,1.4794e+03_jprb,1.4292e+03_jprb,1.3736e+03_jprb,1.3161e+03_jprb/)  
kbo( :,55,13) = (/&
 & 1.5309e+03_jprb,1.4941e+03_jprb,1.4465e+03_jprb,1.3926e+03_jprb,1.3351e+03_jprb/)  
kbo( :,56,13) = (/&
 & 1.5407e+03_jprb,1.5075e+03_jprb,1.4630e+03_jprb,1.4106e+03_jprb,1.3542e+03_jprb/)  
kbo( :,57,13) = (/&
 & 1.5484e+03_jprb,1.5197e+03_jprb,1.4789e+03_jprb,1.4283e+03_jprb,1.3728e+03_jprb/)  
kbo( :,58,13) = (/&
 & 1.5535e+03_jprb,1.5303e+03_jprb,1.4929e+03_jprb,1.4443e+03_jprb,1.3902e+03_jprb/)  
kbo( :,59,13) = (/&
 & 1.5550e+03_jprb,1.5344e+03_jprb,1.4983e+03_jprb,1.4507e+03_jprb,1.3972e+03_jprb/)  
kbo( :,13,14) = (/&
 & 2.5200e+02_jprb,2.4567e+02_jprb,2.3912e+02_jprb,2.3261e+02_jprb,2.2671e+02_jprb/)  
kbo( :,14,14) = (/&
 & 2.8356e+02_jprb,2.7567e+02_jprb,2.6762e+02_jprb,2.6041e+02_jprb,2.5414e+02_jprb/)  
kbo( :,15,14) = (/&
 & 3.2000e+02_jprb,3.1086e+02_jprb,3.0278e+02_jprb,2.9520e+02_jprb,2.8835e+02_jprb/)  
kbo( :,16,14) = (/&
 & 3.6501e+02_jprb,3.5545e+02_jprb,3.4663e+02_jprb,3.3835e+02_jprb,3.3040e+02_jprb/)  
kbo( :,17,14) = (/&
 & 4.2043e+02_jprb,4.1003e+02_jprb,4.0038e+02_jprb,3.9117e+02_jprb,3.8254e+02_jprb/)  
kbo( :,18,14) = (/&
 & 4.8684e+02_jprb,4.7541e+02_jprb,4.6423e+02_jprb,4.5366e+02_jprb,4.4317e+02_jprb/)  
kbo( :,19,14) = (/&
 & 5.6352e+02_jprb,5.4977e+02_jprb,5.3699e+02_jprb,5.2451e+02_jprb,5.1166e+02_jprb/)  
kbo( :,20,14) = (/&
 & 6.4946e+02_jprb,6.3281e+02_jprb,6.1710e+02_jprb,6.0187e+02_jprb,5.8639e+02_jprb/)  
kbo( :,21,14) = (/&
 & 7.4362e+02_jprb,7.2356e+02_jprb,7.0410e+02_jprb,6.8448e+02_jprb,6.6564e+02_jprb/)  
kbo( :,22,14) = (/&
 & 8.4333e+02_jprb,8.1844e+02_jprb,7.9450e+02_jprb,7.7017e+02_jprb,7.4626e+02_jprb/)  
kbo( :,23,14) = (/&
 & 9.4680e+02_jprb,9.1686e+02_jprb,8.8724e+02_jprb,8.5711e+02_jprb,8.2794e+02_jprb/)  
kbo( :,24,14) = (/&
 & 1.0528e+03_jprb,1.0161e+03_jprb,9.7917e+02_jprb,9.4320e+02_jprb,9.0772e+02_jprb/)  
kbo( :,25,14) = (/&
 & 1.1567e+03_jprb,1.1128e+03_jprb,1.0684e+03_jprb,1.0249e+03_jprb,9.8260e+02_jprb/)  
kbo( :,26,14) = (/&
 & 1.2530e+03_jprb,1.2021e+03_jprb,1.1497e+03_jprb,1.0989e+03_jprb,1.0499e+03_jprb/)  
kbo( :,27,14) = (/&
 & 1.3414e+03_jprb,1.2817e+03_jprb,1.2215e+03_jprb,1.1632e+03_jprb,1.1083e+03_jprb/)  
kbo( :,28,14) = (/&
 & 1.4184e+03_jprb,1.3503e+03_jprb,1.2822e+03_jprb,1.2175e+03_jprb,1.1569e+03_jprb/)  
kbo( :,29,14) = (/&
 & 1.4829e+03_jprb,1.4069e+03_jprb,1.3322e+03_jprb,1.2616e+03_jprb,1.1958e+03_jprb/)  
kbo( :,30,14) = (/&
 & 1.5347e+03_jprb,1.4521e+03_jprb,1.3719e+03_jprb,1.2961e+03_jprb,1.2258e+03_jprb/)  
kbo( :,31,14) = (/&
 & 1.5740e+03_jprb,1.4863e+03_jprb,1.4011e+03_jprb,1.3213e+03_jprb,1.2473e+03_jprb/)  
kbo( :,32,14) = (/&
 & 1.6019e+03_jprb,1.5104e+03_jprb,1.4212e+03_jprb,1.3381e+03_jprb,1.2613e+03_jprb/)  
kbo( :,33,14) = (/&
 & 1.6206e+03_jprb,1.5254e+03_jprb,1.4335e+03_jprb,1.3478e+03_jprb,1.2690e+03_jprb/)  
kbo( :,34,14) = (/&
 & 1.6343e+03_jprb,1.5362e+03_jprb,1.4422e+03_jprb,1.3545e+03_jprb,1.2743e+03_jprb/)  
kbo( :,35,14) = (/&
 & 1.6513e+03_jprb,1.5505e+03_jprb,1.4543e+03_jprb,1.3647e+03_jprb,1.2829e+03_jprb/)  
kbo( :,36,14) = (/&
 & 1.6747e+03_jprb,1.5711e+03_jprb,1.4723e+03_jprb,1.3806e+03_jprb,1.2969e+03_jprb/)  
kbo( :,37,14) = (/&
 & 1.7119e+03_jprb,1.6037e+03_jprb,1.5018e+03_jprb,1.4086e+03_jprb,1.3210e+03_jprb/)  
kbo( :,38,14) = (/&
 & 1.7464e+03_jprb,1.6348e+03_jprb,1.5298e+03_jprb,1.4339e+03_jprb,1.3446e+03_jprb/)  
kbo( :,39,14) = (/&
 & 1.7785e+03_jprb,1.6638e+03_jprb,1.5560e+03_jprb,1.4575e+03_jprb,1.3661e+03_jprb/)  
kbo( :,40,14) = (/&
 & 1.8213e+03_jprb,1.7031e+03_jprb,1.5916e+03_jprb,1.4897e+03_jprb,1.3957e+03_jprb/)  
kbo( :,41,14) = (/&
 & 1.8650e+03_jprb,1.7429e+03_jprb,1.6279e+03_jprb,1.5226e+03_jprb,1.4260e+03_jprb/)  
kbo( :,42,14) = (/&
 & 1.9083e+03_jprb,1.7822e+03_jprb,1.6638e+03_jprb,1.5553e+03_jprb,1.4560e+03_jprb/)  
kbo( :,43,14) = (/&
 & 1.9590e+03_jprb,1.8282e+03_jprb,1.7062e+03_jprb,1.5939e+03_jprb,1.4914e+03_jprb/)  
kbo( :,44,14) = (/&
 & 2.0135e+03_jprb,1.8780e+03_jprb,1.7518e+03_jprb,1.6354e+03_jprb,1.5294e+03_jprb/)  
kbo( :,45,14) = (/&
 & 2.0686e+03_jprb,1.9283e+03_jprb,1.7978e+03_jprb,1.6776e+03_jprb,1.5679e+03_jprb/)  
kbo( :,46,14) = (/&
 & 2.1281e+03_jprb,1.9824e+03_jprb,1.8468e+03_jprb,1.7228e+03_jprb,1.6096e+03_jprb/)  
kbo( :,47,14) = (/&
 & 2.1954e+03_jprb,2.0435e+03_jprb,1.9031e+03_jprb,1.7740e+03_jprb,1.6572e+03_jprb/)  
kbo( :,48,14) = (/&
 & 2.2648e+03_jprb,2.1064e+03_jprb,1.9610e+03_jprb,1.8268e+03_jprb,1.7061e+03_jprb/)  
kbo( :,49,14) = (/&
 & 2.3361e+03_jprb,2.1712e+03_jprb,2.0209e+03_jprb,1.8815e+03_jprb,1.7562e+03_jprb/)  
kbo( :,50,14) = (/&
 & 2.4045e+03_jprb,2.2339e+03_jprb,2.0788e+03_jprb,1.9343e+03_jprb,1.8042e+03_jprb/)  
kbo( :,51,14) = (/&
 & 2.4726e+03_jprb,2.2963e+03_jprb,2.1361e+03_jprb,1.9873e+03_jprb,1.8522e+03_jprb/)  
kbo( :,52,14) = (/&
 & 2.5428e+03_jprb,2.3607e+03_jprb,2.1949e+03_jprb,2.0419e+03_jprb,1.9016e+03_jprb/)  
kbo( :,53,14) = (/&
 & 2.6141e+03_jprb,2.4269e+03_jprb,2.2555e+03_jprb,2.0978e+03_jprb,1.9528e+03_jprb/)  
kbo( :,54,14) = (/&
 & 2.6807e+03_jprb,2.4886e+03_jprb,2.3128e+03_jprb,2.1502e+03_jprb,2.0011e+03_jprb/)  
kbo( :,55,14) = (/&
 & 2.7459e+03_jprb,2.5495e+03_jprb,2.3693e+03_jprb,2.2020e+03_jprb,2.0486e+03_jprb/)  
kbo( :,56,14) = (/&
 & 2.8130e+03_jprb,2.6116e+03_jprb,2.4267e+03_jprb,2.2548e+03_jprb,2.0964e+03_jprb/)  
kbo( :,57,14) = (/&
 & 2.8820e+03_jprb,2.6749e+03_jprb,2.4855e+03_jprb,2.3093e+03_jprb,2.1460e+03_jprb/)  
kbo( :,58,14) = (/&
 & 2.9481e+03_jprb,2.7364e+03_jprb,2.5424e+03_jprb,2.3624e+03_jprb,2.1944e+03_jprb/)  
kbo( :,59,14) = (/&
 & 2.9753e+03_jprb,2.7616e+03_jprb,2.5658e+03_jprb,2.3843e+03_jprb,2.2142e+03_jprb/)  
kbo( :,13,15) = (/&
 & 3.0496e+02_jprb,3.0081e+02_jprb,2.9676e+02_jprb,2.9051e+02_jprb,2.8450e+02_jprb/)  
kbo( :,14,15) = (/&
 & 3.4462e+02_jprb,3.4099e+02_jprb,3.3527e+02_jprb,3.3016e+02_jprb,3.2406e+02_jprb/)  
kbo( :,15,15) = (/&
 & 3.8936e+02_jprb,3.8628e+02_jprb,3.8183e+02_jprb,3.7492e+02_jprb,3.6807e+02_jprb/)  
kbo( :,16,15) = (/&
 & 4.4332e+02_jprb,4.3856e+02_jprb,4.3430e+02_jprb,4.2589e+02_jprb,4.1877e+02_jprb/)  
kbo( :,17,15) = (/&
 & 5.0835e+02_jprb,5.0183e+02_jprb,4.9489e+02_jprb,4.8561e+02_jprb,4.7621e+02_jprb/)  
kbo( :,18,15) = (/&
 & 5.8677e+02_jprb,5.7885e+02_jprb,5.6791e+02_jprb,5.5537e+02_jprb,5.4279e+02_jprb/)  
kbo( :,19,15) = (/&
 & 6.8130e+02_jprb,6.6815e+02_jprb,6.5194e+02_jprb,6.3561e+02_jprb,6.1955e+02_jprb/)  
kbo( :,20,15) = (/&
 & 7.8879e+02_jprb,7.7015e+02_jprb,7.4875e+02_jprb,7.2676e+02_jprb,7.0600e+02_jprb/)  
kbo( :,21,15) = (/&
 & 9.1167e+02_jprb,8.8542e+02_jprb,8.5728e+02_jprb,8.2924e+02_jprb,8.0222e+02_jprb/)  
kbo( :,22,15) = (/&
 & 1.0456e+03_jprb,1.0104e+03_jprb,9.7413e+02_jprb,9.3830e+02_jprb,9.0416e+02_jprb/)  
kbo( :,23,15) = (/&
 & 1.1890e+03_jprb,1.1427e+03_jprb,1.0964e+03_jprb,1.0517e+03_jprb,1.0073e+03_jprb/)  
kbo( :,24,15) = (/&
 & 1.3341e+03_jprb,1.2769e+03_jprb,1.2199e+03_jprb,1.1637e+03_jprb,1.1097e+03_jprb/)  
kbo( :,25,15) = (/&
 & 1.4777e+03_jprb,1.4064e+03_jprb,1.3371e+03_jprb,1.2692e+03_jprb,1.2051e+03_jprb/)  
kbo( :,26,15) = (/&
 & 1.6127e+03_jprb,1.5257e+03_jprb,1.4439e+03_jprb,1.3652e+03_jprb,1.2908e+03_jprb/)  
kbo( :,27,15) = (/&
 & 1.7363e+03_jprb,1.6345e+03_jprb,1.5403e+03_jprb,1.4516e+03_jprb,1.3681e+03_jprb/)  
kbo( :,28,15) = (/&
 & 1.8456e+03_jprb,1.7310e+03_jprb,1.6252e+03_jprb,1.5262e+03_jprb,1.4343e+03_jprb/)  
kbo( :,29,15) = (/&
 & 1.9374e+03_jprb,1.8114e+03_jprb,1.6953e+03_jprb,1.5870e+03_jprb,1.4880e+03_jprb/)  
kbo( :,30,15) = (/&
 & 2.0123e+03_jprb,1.8759e+03_jprb,1.7509e+03_jprb,1.6347e+03_jprb,1.5297e+03_jprb/)  
kbo( :,31,15) = (/&
 & 2.0695e+03_jprb,1.9241e+03_jprb,1.7919e+03_jprb,1.6696e+03_jprb,1.5595e+03_jprb/)  
kbo( :,32,15) = (/&
 & 2.1098e+03_jprb,1.9573e+03_jprb,1.8199e+03_jprb,1.6927e+03_jprb,1.5791e+03_jprb/)  
kbo( :,33,15) = (/&
 & 2.1350e+03_jprb,1.9776e+03_jprb,1.8360e+03_jprb,1.7058e+03_jprb,1.5896e+03_jprb/)  
kbo( :,34,15) = (/&
 & 2.1531e+03_jprb,1.9921e+03_jprb,1.8473e+03_jprb,1.7146e+03_jprb,1.5966e+03_jprb/)  
kbo( :,35,15) = (/&
 & 2.1773e+03_jprb,2.0121e+03_jprb,1.8641e+03_jprb,1.7288e+03_jprb,1.6085e+03_jprb/)  
kbo( :,36,15) = (/&
 & 2.2124e+03_jprb,2.0424e+03_jprb,1.8903e+03_jprb,1.7515e+03_jprb,1.6285e+03_jprb/)  
kbo( :,37,15) = (/&
 & 2.2692e+03_jprb,2.0922e+03_jprb,1.9342e+03_jprb,1.7916e+03_jprb,1.6630e+03_jprb/)  
kbo( :,38,15) = (/&
 & 2.3243e+03_jprb,2.1400e+03_jprb,1.9765e+03_jprb,1.8290e+03_jprb,1.6948e+03_jprb/)  
kbo( :,39,15) = (/&
 & 2.3761e+03_jprb,2.1849e+03_jprb,2.0163e+03_jprb,1.8643e+03_jprb,1.7262e+03_jprb/)  
kbo( :,40,15) = (/&
 & 2.4467e+03_jprb,2.2470e+03_jprb,2.0711e+03_jprb,1.9128e+03_jprb,1.7697e+03_jprb/)  
kbo( :,41,15) = (/&
 & 2.5197e+03_jprb,2.3108e+03_jprb,2.1276e+03_jprb,1.9630e+03_jprb,1.8147e+03_jprb/)  
kbo( :,42,15) = (/&
 & 2.5927e+03_jprb,2.3746e+03_jprb,2.1839e+03_jprb,2.0131e+03_jprb,1.8595e+03_jprb/)  
kbo( :,43,15) = (/&
 & 2.6795e+03_jprb,2.4509e+03_jprb,2.2509e+03_jprb,2.0729e+03_jprb,1.9127e+03_jprb/)  
kbo( :,44,15) = (/&
 & 2.7746e+03_jprb,2.5346e+03_jprb,2.3244e+03_jprb,2.1382e+03_jprb,1.9711e+03_jprb/)  
kbo( :,45,15) = (/&
 & 2.8725e+03_jprb,2.6210e+03_jprb,2.4001e+03_jprb,2.2052e+03_jprb,2.0310e+03_jprb/)  
kbo( :,46,15) = (/&
 & 2.9808e+03_jprb,2.7160e+03_jprb,2.4820e+03_jprb,2.2786e+03_jprb,2.0965e+03_jprb/)  
kbo( :,47,15) = (/&
 & 3.1065e+03_jprb,2.8260e+03_jprb,2.5776e+03_jprb,2.3630e+03_jprb,2.1714e+03_jprb/)  
kbo( :,48,15) = (/&
 & 3.2382e+03_jprb,2.9414e+03_jprb,2.6779e+03_jprb,2.4515e+03_jprb,2.2491e+03_jprb/)  
kbo( :,49,15) = (/&
 & 3.3769e+03_jprb,3.0628e+03_jprb,2.7828e+03_jprb,2.5435e+03_jprb,2.3301e+03_jprb/)  
kbo( :,50,15) = (/&
 & 3.5153e+03_jprb,3.1825e+03_jprb,2.8860e+03_jprb,2.6340e+03_jprb,2.4097e+03_jprb/)  
kbo( :,51,15) = (/&
 & 3.6567e+03_jprb,3.3043e+03_jprb,2.9915e+03_jprb,2.7258e+03_jprb,2.4905e+03_jprb/)  
kbo( :,52,15) = (/&
 & 3.8059e+03_jprb,3.4316e+03_jprb,3.1018e+03_jprb,2.8218e+03_jprb,2.5746e+03_jprb/)  
kbo( :,53,15) = (/&
 & 3.9647e+03_jprb,3.5659e+03_jprb,3.2181e+03_jprb,2.9226e+03_jprb,2.6623e+03_jprb/)  
kbo( :,54,15) = (/&
 & 4.1182e+03_jprb,3.6932e+03_jprb,3.3305e+03_jprb,3.0197e+03_jprb,2.7461e+03_jprb/)  
kbo( :,55,15) = (/&
 & 4.2719e+03_jprb,3.8244e+03_jprb,3.4429e+03_jprb,3.1156e+03_jprb,2.8302e+03_jprb/)  
kbo( :,56,15) = (/&
 & 4.4321e+03_jprb,3.9623e+03_jprb,3.5606e+03_jprb,3.2171e+03_jprb,2.9172e+03_jprb/)  
kbo( :,57,15) = (/&
 & 4.6005e+03_jprb,4.1071e+03_jprb,3.6841e+03_jprb,3.3227e+03_jprb,3.0093e+03_jprb/)  
kbo( :,58,15) = (/&
 & 4.7711e+03_jprb,4.2512e+03_jprb,3.8068e+03_jprb,3.4270e+03_jprb,3.1000e+03_jprb/)  
kbo( :,59,15) = (/&
 & 4.8435e+03_jprb,4.3113e+03_jprb,3.8580e+03_jprb,3.4704e+03_jprb,3.1379e+03_jprb/)  
kbo( :,13,16) = (/&
 & 3.6480e+02_jprb,3.5145e+02_jprb,3.4350e+02_jprb,3.3674e+02_jprb,3.3295e+02_jprb/)  
kbo( :,14,16) = (/&
 & 4.3305e+02_jprb,4.2002e+02_jprb,4.0834e+02_jprb,4.0114e+02_jprb,3.9514e+02_jprb/)  
kbo( :,15,16) = (/&
 & 5.1021e+02_jprb,4.9566e+02_jprb,4.8445e+02_jprb,4.7500e+02_jprb,4.6664e+02_jprb/)  
kbo( :,16,16) = (/&
 & 6.0095e+02_jprb,5.8332e+02_jprb,5.7034e+02_jprb,5.5793e+02_jprb,5.4743e+02_jprb/)  
kbo( :,17,16) = (/&
 & 6.9984e+02_jprb,6.8135e+02_jprb,6.6501e+02_jprb,6.5003e+02_jprb,6.3773e+02_jprb/)  
kbo( :,18,16) = (/&
 & 8.1052e+02_jprb,7.8978e+02_jprb,7.6911e+02_jprb,7.5277e+02_jprb,7.3709e+02_jprb/)  
kbo( :,19,16) = (/&
 & 9.3185e+02_jprb,9.0651e+02_jprb,8.8287e+02_jprb,8.6357e+02_jprb,8.4262e+02_jprb/)  
kbo( :,20,16) = (/&
 & 1.0617e+03_jprb,1.0323e+03_jprb,1.0033e+03_jprb,9.7715e+02_jprb,9.5295e+02_jprb/)  
kbo( :,21,16) = (/&
 & 1.1955e+03_jprb,1.1605e+03_jprb,1.1266e+03_jprb,1.0931e+03_jprb,1.0626e+03_jprb/)  
kbo( :,22,16) = (/&
 & 1.3313e+03_jprb,1.2888e+03_jprb,1.2452e+03_jprb,1.2039e+03_jprb,1.1668e+03_jprb/)  
kbo( :,23,16) = (/&
 & 1.4677e+03_jprb,1.4171e+03_jprb,1.3647e+03_jprb,1.3122e+03_jprb,1.2693e+03_jprb/)  
kbo( :,24,16) = (/&
 & 1.6031e+03_jprb,1.5431e+03_jprb,1.4805e+03_jprb,1.4214e+03_jprb,1.3711e+03_jprb/)  
kbo( :,25,16) = (/&
 & 1.7446e+03_jprb,1.6761e+03_jprb,1.6075e+03_jprb,1.5354e+03_jprb,1.4755e+03_jprb/)  
kbo( :,26,16) = (/&
 & 1.8991e+03_jprb,1.8163e+03_jprb,1.7331e+03_jprb,1.6466e+03_jprb,1.5750e+03_jprb/)  
kbo( :,27,16) = (/&
 & 2.0473e+03_jprb,1.9486e+03_jprb,1.8508e+03_jprb,1.7507e+03_jprb,1.6645e+03_jprb/)  
kbo( :,28,16) = (/&
 & 2.1841e+03_jprb,2.0672e+03_jprb,1.9532e+03_jprb,1.8416e+03_jprb,1.7427e+03_jprb/)  
kbo( :,29,16) = (/&
 & 2.3013e+03_jprb,2.1668e+03_jprb,2.0380e+03_jprb,1.9159e+03_jprb,1.8061e+03_jprb/)  
kbo( :,30,16) = (/&
 & 2.3968e+03_jprb,2.2468e+03_jprb,2.1057e+03_jprb,1.9742e+03_jprb,1.8547e+03_jprb/)  
kbo( :,31,16) = (/&
 & 2.4698e+03_jprb,2.3066e+03_jprb,2.1555e+03_jprb,2.0162e+03_jprb,1.8899e+03_jprb/)  
kbo( :,32,16) = (/&
 & 2.5212e+03_jprb,2.3480e+03_jprb,2.1899e+03_jprb,2.0439e+03_jprb,1.9131e+03_jprb/)  
kbo( :,33,16) = (/&
 & 2.5535e+03_jprb,2.3733e+03_jprb,2.2102e+03_jprb,2.0593e+03_jprb,1.9261e+03_jprb/)  
kbo( :,34,16) = (/&
 & 2.5772e+03_jprb,2.3915e+03_jprb,2.2247e+03_jprb,2.0705e+03_jprb,1.9349e+03_jprb/)  
kbo( :,35,16) = (/&
 & 2.6073e+03_jprb,2.4161e+03_jprb,2.2452e+03_jprb,2.0872e+03_jprb,1.9493e+03_jprb/)  
kbo( :,36,16) = (/&
 & 2.6509e+03_jprb,2.4529e+03_jprb,2.2766e+03_jprb,2.1138e+03_jprb,1.9720e+03_jprb/)  
kbo( :,37,16) = (/&
 & 2.7188e+03_jprb,2.5136e+03_jprb,2.3285e+03_jprb,2.1597e+03_jprb,2.0114e+03_jprb/)  
kbo( :,38,16) = (/&
 & 2.7845e+03_jprb,2.5721e+03_jprb,2.3785e+03_jprb,2.2030e+03_jprb,2.0515e+03_jprb/)  
kbo( :,39,16) = (/&
 & 2.8472e+03_jprb,2.6270e+03_jprb,2.4254e+03_jprb,2.2449e+03_jprb,2.0875e+03_jprb/)  
kbo( :,40,16) = (/&
 & 2.9330e+03_jprb,2.6993e+03_jprb,2.4900e+03_jprb,2.3030e+03_jprb,2.1374e+03_jprb/)  
kbo( :,41,16) = (/&
 & 3.0218e+03_jprb,2.7769e+03_jprb,2.5568e+03_jprb,2.3631e+03_jprb,2.1888e+03_jprb/)  
kbo( :,42,16) = (/&
 & 3.1113e+03_jprb,2.8546e+03_jprb,2.6243e+03_jprb,2.4236e+03_jprb,2.2399e+03_jprb/)  
kbo( :,43,16) = (/&
 & 3.2191e+03_jprb,2.9464e+03_jprb,2.7051e+03_jprb,2.4953e+03_jprb,2.3016e+03_jprb/)  
kbo( :,44,16) = (/&
 & 3.3385e+03_jprb,3.0469e+03_jprb,2.7942e+03_jprb,2.5737e+03_jprb,2.3700e+03_jprb/)  

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


SUBROUTINE part17

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


kbo( :,45,16) = (/&
 & 3.4626e+03_jprb,3.1506e+03_jprb,2.8863e+03_jprb,2.6539e+03_jprb,2.4394e+03_jprb/)  
kbo( :,46,16) = (/&
 & 3.6001e+03_jprb,3.2642e+03_jprb,2.9874e+03_jprb,2.7413e+03_jprb,2.5151e+03_jprb/)  
kbo( :,47,16) = (/&
 & 3.7610e+03_jprb,3.3965e+03_jprb,3.1046e+03_jprb,2.8425e+03_jprb,2.6031e+03_jprb/)  
kbo( :,48,16) = (/&
 & 3.9321e+03_jprb,3.5361e+03_jprb,3.2276e+03_jprb,2.9476e+03_jprb,2.6982e+03_jprb/)  
kbo( :,49,16) = (/&
 & 4.1176e+03_jprb,3.6899e+03_jprb,3.3583e+03_jprb,3.0595e+03_jprb,2.7974e+03_jprb/)  
kbo( :,50,16) = (/&
 & 4.3032e+03_jprb,3.8456e+03_jprb,3.4873e+03_jprb,3.1701e+03_jprb,2.8952e+03_jprb/)  
kbo( :,51,16) = (/&
 & 4.4935e+03_jprb,4.0060e+03_jprb,3.6203e+03_jprb,3.2826e+03_jprb,2.9949e+03_jprb/)  
kbo( :,52,16) = (/&
 & 4.6944e+03_jprb,4.1760e+03_jprb,3.7596e+03_jprb,3.4020e+03_jprb,3.0994e+03_jprb/)  
kbo( :,53,16) = (/&
 & 4.9137e+03_jprb,4.3562e+03_jprb,3.9079e+03_jprb,3.5294e+03_jprb,3.2093e+03_jprb/)  
kbo( :,54,16) = (/&
 & 5.1332e+03_jprb,4.5465e+03_jprb,4.0538e+03_jprb,3.6533e+03_jprb,3.3147e+03_jprb/)  
kbo( :,55,16) = (/&
 & 5.3615e+03_jprb,4.7268e+03_jprb,4.2040e+03_jprb,3.7715e+03_jprb,3.4204e+03_jprb/)  
kbo( :,56,16) = (/&
 & 5.6101e+03_jprb,4.9206e+03_jprb,4.3611e+03_jprb,3.9031e+03_jprb,3.5302e+03_jprb/)  
kbo( :,57,16) = (/&
 & 5.8786e+03_jprb,5.1280e+03_jprb,4.5273e+03_jprb,4.0416e+03_jprb,3.6469e+03_jprb/)  
kbo( :,58,16) = (/&
 & 6.1495e+03_jprb,5.3426e+03_jprb,4.6971e+03_jprb,4.1821e+03_jprb,3.7629e+03_jprb/)  
kbo( :,59,16) = (/&
 & 6.2646e+03_jprb,5.4342e+03_jprb,4.7694e+03_jprb,4.2411e+03_jprb,3.8114e+03_jprb/)  

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

selfrefo( :, 1) = (/&
 & 5.19175e-02_jprb, 4.28815e-02_jprb, 3.54182e-02_jprb, 2.92539e-02_jprb, 2.41624e-02_jprb,&
 & 1.99571e-02_jprb, 1.64836e-02_jprb, 1.36148e-02_jprb, 1.12452e-02_jprb, 9.28801e-03_jprb/)  
selfrefo( :, 2) = (/&
 & 4.36985e-02_jprb, 3.78503e-02_jprb, 3.27848e-02_jprb, 2.83973e-02_jprb, 2.45969e-02_jprb,&
 & 2.13051e-02_jprb, 1.84538e-02_jprb, 1.59842e-02_jprb, 1.38450e-02_jprb, 1.19921e-02_jprb/)  
selfrefo( :, 3) = (/&
 & 4.25575e-02_jprb, 3.71214e-02_jprb, 3.23797e-02_jprb, 2.82437e-02_jprb, 2.46360e-02_jprb,&
 & 2.14891e-02_jprb, 1.87442e-02_jprb, 1.63499e-02_jprb, 1.42615e-02_jprb, 1.24398e-02_jprb/)  
selfrefo( :, 4) = (/&
 & 4.03854e-02_jprb, 3.54677e-02_jprb, 3.11488e-02_jprb, 2.73558e-02_jprb, 2.40247e-02_jprb,&
 & 2.10992e-02_jprb, 1.85300e-02_jprb, 1.62736e-02_jprb, 1.42920e-02_jprb, 1.25517e-02_jprb/)  
selfrefo( :, 5) = (/&
 & 3.95070e-02_jprb, 3.46726e-02_jprb, 3.04297e-02_jprb, 2.67060e-02_jprb, 2.34380e-02_jprb,&
 & 2.05699e-02_jprb, 1.80528e-02_jprb, 1.58437e-02_jprb, 1.39049e-02_jprb, 1.22034e-02_jprb/)  
selfrefo( :, 6) = (/&
 & 3.89748e-02_jprb, 3.40186e-02_jprb, 2.96926e-02_jprb, 2.59168e-02_jprb, 2.26211e-02_jprb,&
 & 1.97445e-02_jprb, 1.72337e-02_jprb, 1.50422e-02_jprb, 1.31293e-02_jprb, 1.14597e-02_jprb/)  
selfrefo( :, 7) = (/&
 & 3.85527e-02_jprb, 3.36561e-02_jprb, 2.93815e-02_jprb, 2.56497e-02_jprb, 2.23920e-02_jprb,&
 & 1.95480e-02_jprb, 1.70652e-02_jprb, 1.48977e-02_jprb, 1.30056e-02_jprb, 1.13537e-02_jprb/)  
selfrefo( :, 8) = (/&
 & 3.78212e-02_jprb, 3.30614e-02_jprb, 2.89005e-02_jprb, 2.52633e-02_jprb, 2.20839e-02_jprb,&
 & 1.93046e-02_jprb, 1.68751e-02_jprb, 1.47513e-02_jprb, 1.28948e-02_jprb, 1.12720e-02_jprb/)  
selfrefo( :, 9) = (/&
 & 3.68624e-02_jprb, 3.22676e-02_jprb, 2.82456e-02_jprb, 2.47248e-02_jprb, 2.16429e-02_jprb,&
 & 1.89452e-02_jprb, 1.65838e-02_jprb, 1.45166e-02_jprb, 1.27072e-02_jprb, 1.11233e-02_jprb/)  
selfrefo( :,10) = (/&
 & 3.63135e-02_jprb, 3.19332e-02_jprb, 2.80813e-02_jprb, 2.46940e-02_jprb, 2.17154e-02_jprb,&
 & 1.90960e-02_jprb, 1.67926e-02_jprb, 1.47670e-02_jprb, 1.29857e-02_jprb, 1.14193e-02_jprb/)  
selfrefo( :,11) = (/&
 & 3.60018e-02_jprb, 3.17294e-02_jprb, 2.79640e-02_jprb, 2.46454e-02_jprb, 2.17207e-02_jprb,&
 & 1.91430e-02_jprb, 1.68713e-02_jprb, 1.48691e-02_jprb, 1.31045e-02_jprb, 1.15494e-02_jprb/)  
selfrefo( :,12) = (/&
 & 3.65147e-02_jprb, 3.19158e-02_jprb, 2.78962e-02_jprb, 2.43827e-02_jprb, 2.13118e-02_jprb,&
 & 1.86277e-02_jprb, 1.62816e-02_jprb, 1.42310e-02_jprb, 1.24386e-02_jprb, 1.08720e-02_jprb/)  
selfrefo( :,13) = (/&
 & 3.72684e-02_jprb, 3.23732e-02_jprb, 2.81210e-02_jprb, 2.44274e-02_jprb, 2.12189e-02_jprb,&
 & 1.84318e-02_jprb, 1.60108e-02_jprb, 1.39078e-02_jprb, 1.20810e-02_jprb, 1.04942e-02_jprb/)  
selfrefo( :,14) = (/&
 & 3.87604e-02_jprb, 3.34099e-02_jprb, 2.87979e-02_jprb, 2.48226e-02_jprb, 2.13960e-02_jprb,&
 & 1.84425e-02_jprb, 1.58967e-02_jprb, 1.37023e-02_jprb, 1.18108e-02_jprb, 1.01804e-02_jprb/)  
selfrefo( :,15) = (/&
 & 3.51227e-02_jprb, 3.05052e-02_jprb, 2.64947e-02_jprb, 2.30115e-02_jprb, 1.99862e-02_jprb,&
 & 1.73586e-02_jprb, 1.50765e-02_jprb, 1.30944e-02_jprb, 1.13729e-02_jprb, 9.87775e-03_jprb/)  
selfrefo( :,16) = (/&
 & 3.51227e-02_jprb, 3.05052e-02_jprb, 2.64947e-02_jprb, 2.30115e-02_jprb, 1.99862e-02_jprb,&
 & 1.73586e-02_jprb, 1.50765e-02_jprb, 1.30944e-02_jprb, 1.13729e-02_jprb, 9.87775e-03_jprb/)  

fracrefao( :, 1) = (/&
 & 0.16461779_jprb, 0.14889984_jprb, 0.14233345_jprb, 0.13156526_jprb,&
 & 0.11679733_jprb, 0.09988949_jprb, 0.08078653_jprb, 0.06006384_jprb,&
 & 0.04028391_jprb, 0.00435899_jprb, 0.00359173_jprb, 0.00281707_jprb,&
 & 0.00206767_jprb, 0.00135012_jprb, 0.00050720_jprb, 0.00007146_jprb/)  
fracrefao( :, 2) = (/&
 & 0.16442357_jprb, 0.14944240_jprb, 0.14245804_jprb, 0.13111183_jprb,&
 & 0.11688625_jprb, 0.09983791_jprb, 0.08085148_jprb, 0.05993948_jprb,&
 & 0.04028057_jprb, 0.00435939_jprb, 0.00358708_jprb, 0.00284036_jprb,&
 & 0.00208869_jprb, 0.00133256_jprb, 0.00049260_jprb, 0.00006931_jprb/)  
fracrefao( :, 3) = (/&
 & 0.16368519_jprb, 0.15018989_jprb, 0.14262174_jprb, 0.13084342_jprb,&
 & 0.11682195_jprb, 0.09996257_jprb, 0.08074036_jprb, 0.05985692_jprb,&
 & 0.04045362_jprb, 0.00436208_jprb, 0.00358257_jprb, 0.00287122_jprb,&
 & 0.00211004_jprb, 0.00133804_jprb, 0.00049260_jprb, 0.00006931_jprb/)  
fracrefao( :, 4) = (/&
 & 0.16274056_jprb, 0.15133780_jprb, 0.14228874_jprb, 0.13081114_jprb,&
 & 0.11688486_jprb, 0.09979610_jprb, 0.08073687_jprb, 0.05996741_jprb,&
 & 0.04040616_jprb, 0.00439869_jprb, 0.00368910_jprb, 0.00293041_jprb,&
 & 0.00211604_jprb, 0.00133536_jprb, 0.00049260_jprb, 0.00006931_jprb/)  
fracrefao( :, 5) = (/&
 & 0.16176532_jprb, 0.15207882_jprb, 0.14226955_jprb, 0.13079646_jprb,&
 & 0.11688191_jprb, 0.09966998_jprb, 0.08066384_jprb, 0.06020275_jprb,&
 & 0.04047901_jprb, 0.00446696_jprb, 0.00377456_jprb, 0.00294410_jprb,&
 & 0.00211082_jprb, 0.00133536_jprb, 0.00049260_jprb, 0.00006931_jprb/)  
fracrefao( :, 6) = (/&
 & 0.15993737_jprb, 0.15305527_jprb, 0.14259829_jprb, 0.13078023_jprb,&
 & 0.11686983_jprb, 0.09980131_jprb, 0.08058286_jprb, 0.06031430_jprb,&
 & 0.04082833_jprb, 0.00450509_jprb, 0.00377574_jprb, 0.00294823_jprb,&
 & 0.00210977_jprb, 0.00133302_jprb, 0.00049260_jprb, 0.00006931_jprb/)  
fracrefao( :, 7) = (/&
 & 0.15371189_jprb, 0.15592396_jprb, 0.14430280_jprb, 0.13076764_jprb,&
 & 0.11720382_jprb, 0.10023471_jprb, 0.08066396_jprb, 0.06073554_jprb,&
 & 0.04121581_jprb, 0.00451202_jprb, 0.00377832_jprb, 0.00294609_jprb,&
 & 0.00210943_jprb, 0.00133336_jprb, 0.00049260_jprb, 0.00006931_jprb/)  
fracrefao( :, 8) = (/&
 & 0.14262275_jprb, 0.14572631_jprb, 0.14560597_jprb, 0.13736825_jprb,&
 & 0.12271351_jprb, 0.10419556_jprb, 0.08294533_jprb, 0.06199794_jprb,&
 & 0.04157615_jprb, 0.00452842_jprb, 0.00377704_jprb, 0.00293852_jprb,&
 & 0.00211034_jprb, 0.00133278_jprb, 0.00049259_jprb, 0.00006931_jprb/)  
fracrefao( :, 9) = (/&
 & 0.14500433_jprb, 0.14590444_jprb, 0.14430299_jprb, 0.13770708_jprb,&
 & 0.12288283_jprb, 0.10350952_jprb, 0.08269450_jprb, 0.06130579_jprb,&
 & 0.04144571_jprb, 0.00452096_jprb, 0.00377382_jprb, 0.00294532_jprb,&
 & 0.00210943_jprb, 0.00133228_jprb, 0.00049260_jprb, 0.00006931_jprb/)  

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


END SUBROUTINE rrtm_kgb7