rrtm_kgb16.F90

Go to the documentation of this file.

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

!     Originally by Eli J. Mlawer, Atmospheric & Environmental Research.
!     BAND 16:  2600-3000 cm-1 (low - H2O,CH4; high - nothing)
!     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 yoerrto16, ONLY : kao     ,selfrefo   ,fracrefao
USE yoerrta16, ONLY : strrat

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

IMPLICIT NONE
REAL(KIND=JPRB) :: ZHOOK_HANDLE

IF (lhook) CALL dr_hook('RRTM_KGB16',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

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

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

CONTAINS


SUBROUTINE part1

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


strrat = 830.411_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) = (/&
 & 1.9384e-05_jprb,2.9898e-05_jprb,3.4062e-05_jprb,3.6004e-05_jprb,3.6430e-05_jprb,3.5549e-05_jprb,&
 & 3.3320e-05_jprb,2.9615e-05_jprb,2.3873e-05_jprb/)  
kao( :, 2, 1, 1) = (/&
 & 1.9436e-05_jprb,2.9740e-05_jprb,3.3708e-05_jprb,3.5476e-05_jprb,3.5843e-05_jprb,3.5033e-05_jprb,&
 & 3.2962e-05_jprb,2.9462e-05_jprb,2.4055e-05_jprb/)  
kao( :, 3, 1, 1) = (/&
 & 1.9464e-05_jprb,2.9570e-05_jprb,3.3324e-05_jprb,3.4974e-05_jprb,3.5304e-05_jprb,3.4544e-05_jprb,&
 & 3.2637e-05_jprb,2.9289e-05_jprb,2.4237e-05_jprb/)  
kao( :, 4, 1, 1) = (/&
 & 1.9302e-05_jprb,2.9247e-05_jprb,3.2832e-05_jprb,3.4416e-05_jprb,3.4737e-05_jprb,3.4031e-05_jprb,&
 & 3.2272e-05_jprb,2.9080e-05_jprb,2.4364e-05_jprb/)  
kao( :, 5, 1, 1) = (/&
 & 1.9123e-05_jprb,2.8885e-05_jprb,3.2360e-05_jprb,3.3877e-05_jprb,3.4211e-05_jprb,3.3554e-05_jprb,&
 & 3.1880e-05_jprb,2.8883e-05_jprb,2.4458e-05_jprb/)  
kao( :, 1, 2, 1) = (/&
 & 1.6583e-05_jprb,2.6012e-05_jprb,2.9608e-05_jprb,3.1154e-05_jprb,3.1427e-05_jprb,3.0616e-05_jprb,&
 & 2.8665e-05_jprb,2.5368e-05_jprb,2.0615e-05_jprb/)  
kao( :, 2, 2, 1) = (/&
 & 1.6630e-05_jprb,2.5863e-05_jprb,2.9249e-05_jprb,3.0678e-05_jprb,3.0941e-05_jprb,3.0197e-05_jprb,&
 & 2.8392e-05_jprb,2.5270e-05_jprb,2.0786e-05_jprb/)  
kao( :, 3, 2, 1) = (/&
 & 1.6647e-05_jprb,2.5697e-05_jprb,2.8891e-05_jprb,3.0222e-05_jprb,3.0484e-05_jprb,2.9802e-05_jprb,&
 & 2.8138e-05_jprb,2.5165e-05_jprb,2.0933e-05_jprb/)  
kao( :, 4, 2, 1) = (/&
 & 1.6540e-05_jprb,2.5405e-05_jprb,2.8466e-05_jprb,2.9745e-05_jprb,3.0011e-05_jprb,2.9400e-05_jprb,&
 & 2.7847e-05_jprb,2.5027e-05_jprb,2.1051e-05_jprb/)  
kao( :, 5, 2, 1) = (/&
 & 1.6324e-05_jprb,2.5032e-05_jprb,2.7991e-05_jprb,2.9251e-05_jprb,2.9530e-05_jprb,2.8984e-05_jprb,&
 & 2.7519e-05_jprb,2.4864e-05_jprb,2.1134e-05_jprb/)  
kao( :, 1, 3, 1) = (/&
 & 1.4086e-05_jprb,2.2526e-05_jprb,2.5577e-05_jprb,2.6862e-05_jprb,2.7021e-05_jprb,2.6302e-05_jprb,&
 & 2.4576e-05_jprb,2.1643e-05_jprb,1.8751e-05_jprb/)  
kao( :, 2, 3, 1) = (/&
 & 1.4131e-05_jprb,2.2392e-05_jprb,2.5264e-05_jprb,2.6452e-05_jprb,2.6617e-05_jprb,2.5964e-05_jprb,&
 & 2.4370e-05_jprb,2.1595e-05_jprb,1.8898e-05_jprb/)  
kao( :, 3, 3, 1) = (/&
 & 1.4113e-05_jprb,2.2191e-05_jprb,2.4900e-05_jprb,2.6018e-05_jprb,2.6215e-05_jprb,2.5621e-05_jprb,&
 & 2.4158e-05_jprb,2.1540e-05_jprb,1.9048e-05_jprb/)  
kao( :, 4, 3, 1) = (/&
 & 1.4058e-05_jprb,2.1961e-05_jprb,2.4548e-05_jprb,2.5623e-05_jprb,2.5838e-05_jprb,2.5312e-05_jprb,&
 & 2.3952e-05_jprb,2.1469e-05_jprb,1.9182e-05_jprb/)  
kao( :, 5, 3, 1) = (/&
 & 1.3863e-05_jprb,2.1619e-05_jprb,2.4113e-05_jprb,2.5184e-05_jprb,2.5419e-05_jprb,2.4957e-05_jprb,&
 & 2.3697e-05_jprb,2.1357e-05_jprb,1.9265e-05_jprb/)  
kao( :, 1, 4, 1) = (/&
 & 1.1900e-05_jprb,1.9396e-05_jprb,2.1993e-05_jprb,2.3049e-05_jprb,2.3163e-05_jprb,2.2508e-05_jprb,&
 & 2.0982e-05_jprb,1.8407e-05_jprb,1.7094e-05_jprb/)  
kao( :, 2, 4, 1) = (/&
 & 1.1936e-05_jprb,1.9289e-05_jprb,2.1740e-05_jprb,2.2712e-05_jprb,2.2827e-05_jprb,2.2234e-05_jprb,&
 & 2.0833e-05_jprb,1.8390e-05_jprb,1.7367e-05_jprb/)  
kao( :, 3, 4, 1) = (/&
 & 1.1914e-05_jprb,1.9113e-05_jprb,2.1420e-05_jprb,2.2348e-05_jprb,2.2488e-05_jprb,2.1958e-05_jprb,&
 & 2.0668e-05_jprb,1.8368e-05_jprb,1.7624e-05_jprb/)  
kao( :, 4, 4, 1) = (/&
 & 1.1850e-05_jprb,1.8882e-05_jprb,2.1069e-05_jprb,2.1971e-05_jprb,2.2145e-05_jprb,2.1684e-05_jprb,&
 & 2.0493e-05_jprb,1.8332e-05_jprb,1.7862e-05_jprb/)  
kao( :, 5, 4, 1) = (/&
 & 1.1744e-05_jprb,1.8626e-05_jprb,2.0733e-05_jprb,2.1634e-05_jprb,2.1819e-05_jprb,2.1414e-05_jprb,&
 & 2.0321e-05_jprb,1.8279e-05_jprb,1.8065e-05_jprb/)  
kao( :, 1, 5, 1) = (/&
 & 1.0007e-05_jprb,1.6633e-05_jprb,1.8846e-05_jprb,1.9714e-05_jprb,1.9792e-05_jprb,1.9192e-05_jprb,&
 & 1.7849e-05_jprb,1.5620e-05_jprb,1.4831e-05_jprb/)  
kao( :, 2, 5, 1) = (/&
 & 1.0036e-05_jprb,1.6537e-05_jprb,1.8619e-05_jprb,1.9430e-05_jprb,1.9510e-05_jprb,1.8974e-05_jprb,&
 & 1.7727e-05_jprb,1.5597e-05_jprb,1.5243e-05_jprb/)  
kao( :, 3, 5, 1) = (/&
 & 1.0020e-05_jprb,1.6382e-05_jprb,1.8357e-05_jprb,1.9125e-05_jprb,1.9225e-05_jprb,1.8747e-05_jprb,&
 & 1.7610e-05_jprb,1.5596e-05_jprb,1.5694e-05_jprb/)  
kao( :, 4, 5, 1) = (/&
 & 9.9655e-06_jprb,1.6185e-05_jprb,1.8047e-05_jprb,1.8806e-05_jprb,1.8930e-05_jprb,1.8511e-05_jprb,&
 & 1.7475e-05_jprb,1.5592e-05_jprb,1.6134e-05_jprb/)  
kao( :, 5, 5, 1) = (/&
 & 9.8924e-06_jprb,1.5961e-05_jprb,1.7750e-05_jprb,1.8511e-05_jprb,1.8653e-05_jprb,1.8287e-05_jprb,&
 & 1.7340e-05_jprb,1.5571e-05_jprb,1.6528e-05_jprb/)  
kao( :, 1, 6, 1) = (/&
 & 8.3773e-06_jprb,1.4205e-05_jprb,1.6091e-05_jprb,1.6810e-05_jprb,1.6854e-05_jprb,1.6312e-05_jprb,&
 & 1.5134e-05_jprb,1.3227e-05_jprb,1.2806e-05_jprb/)  
kao( :, 2, 6, 1) = (/&
 & 8.4040e-06_jprb,1.4116e-05_jprb,1.5890e-05_jprb,1.6565e-05_jprb,1.6618e-05_jprb,1.6134e-05_jprb,&
 & 1.5030e-05_jprb,1.3175e-05_jprb,1.3188e-05_jprb/)  
kao( :, 3, 6, 1) = (/&
 & 8.3967e-06_jprb,1.3982e-05_jprb,1.5670e-05_jprb,1.6315e-05_jprb,1.6378e-05_jprb,1.5948e-05_jprb,&
 & 1.4938e-05_jprb,1.3181e-05_jprb,1.3640e-05_jprb/)  
kao( :, 4, 6, 1) = (/&
 & 8.3520e-06_jprb,1.3808e-05_jprb,1.5410e-05_jprb,1.6041e-05_jprb,1.6129e-05_jprb,1.5748e-05_jprb,&
 & 1.4840e-05_jprb,1.3187e-05_jprb,1.4105e-05_jprb/)  
kao( :, 5, 6, 1) = (/&
 & 8.2808e-06_jprb,1.3600e-05_jprb,1.5125e-05_jprb,1.5766e-05_jprb,1.5873e-05_jprb,1.5546e-05_jprb,&
 & 1.4725e-05_jprb,1.3184e-05_jprb,1.4585e-05_jprb/)  
kao( :, 1, 7, 1) = (/&
 & 6.9702e-06_jprb,1.2049e-05_jprb,1.3655e-05_jprb,1.4254e-05_jprb,1.4272e-05_jprb,1.3786e-05_jprb,&
 & 1.2775e-05_jprb,1.1193e-05_jprb,1.1151e-05_jprb/)  
kao( :, 2, 7, 1) = (/&
 & 6.9954e-06_jprb,1.1967e-05_jprb,1.3478e-05_jprb,1.4043e-05_jprb,1.4073e-05_jprb,1.3643e-05_jprb,&
 & 1.2677e-05_jprb,1.1085e-05_jprb,1.1514e-05_jprb/)  
kao( :, 3, 7, 1) = (/&
 & 6.9926e-06_jprb,1.1851e-05_jprb,1.3284e-05_jprb,1.3826e-05_jprb,1.3871e-05_jprb,1.3488e-05_jprb,&
 & 1.2600e-05_jprb,1.1081e-05_jprb,1.1911e-05_jprb/)  
kao( :, 4, 7, 1) = (/&
 & 6.9597e-06_jprb,1.1700e-05_jprb,1.3068e-05_jprb,1.3600e-05_jprb,1.3659e-05_jprb,1.3321e-05_jprb,&
 & 1.2522e-05_jprb,1.1091e-05_jprb,1.2356e-05_jprb/)  
kao( :, 5, 7, 1) = (/&
 & 6.9051e-06_jprb,1.1522e-05_jprb,1.2825e-05_jprb,1.3359e-05_jprb,1.3444e-05_jprb,1.3151e-05_jprb,&
 & 1.2435e-05_jprb,1.1100e-05_jprb,1.2847e-05_jprb/)  
kao( :, 1, 8, 1) = (/&
 & 5.8087e-06_jprb,1.0208e-05_jprb,1.1579e-05_jprb,1.2087e-05_jprb,1.2081e-05_jprb,1.1640e-05_jprb,&
 & 1.0763e-05_jprb,9.5182e-06_jprb,9.7914e-06_jprb/)  
kao( :, 2, 8, 1) = (/&
 & 5.8314e-06_jprb,1.0134e-05_jprb,1.1429e-05_jprb,1.1911e-05_jprb,1.1918e-05_jprb,1.1522e-05_jprb,&
 & 1.0685e-05_jprb,9.3144e-06_jprb,1.0107e-05_jprb/)  
kao( :, 3, 8, 1) = (/&
 & 5.8306e-06_jprb,1.0039e-05_jprb,1.1263e-05_jprb,1.1721e-05_jprb,1.1741e-05_jprb,1.1392e-05_jprb,&
 & 1.0611e-05_jprb,9.2970e-06_jprb,1.0491e-05_jprb/)  
kao( :, 4, 8, 1) = (/&
 & 5.8084e-06_jprb,9.9094e-06_jprb,1.1082e-05_jprb,1.1528e-05_jprb,1.1564e-05_jprb,1.1253e-05_jprb,&
 & 1.0543e-05_jprb,9.3028e-06_jprb,1.0943e-05_jprb/)  
kao( :, 5, 8, 1) = (/&
 & 5.7671e-06_jprb,9.7597e-06_jprb,1.0878e-05_jprb,1.1322e-05_jprb,1.1380e-05_jprb,1.1112e-05_jprb,&
 & 1.0475e-05_jprb,9.3153e-06_jprb,1.1451e-05_jprb/)  
kao( :, 1, 9, 1) = (/&
 & 4.8301e-06_jprb,8.6067e-06_jprb,9.7714e-06_jprb,1.0210e-05_jprb,1.0192e-05_jprb,9.7977e-06_jprb,&
 & 9.0505e-06_jprb,8.2004e-06_jprb,9.1168e-06_jprb/)  
kao( :, 2, 9, 1) = (/&
 & 4.8495e-06_jprb,8.5468e-06_jprb,9.6571e-06_jprb,1.0063e-05_jprb,1.0051e-05_jprb,9.6903e-06_jprb,&
 & 8.9660e-06_jprb,7.8251e-06_jprb,9.4876e-06_jprb/)  
kao( :, 3, 9, 1) = (/&
 & 4.8497e-06_jprb,8.4643e-06_jprb,9.5144e-06_jprb,9.9014e-06_jprb,9.9028e-06_jprb,9.5821e-06_jprb,&
 & 8.9043e-06_jprb,7.7718e-06_jprb,9.9373e-06_jprb/)  
kao( :, 4, 9, 1) = (/&
 & 4.8347e-06_jprb,8.3597e-06_jprb,9.3601e-06_jprb,9.7348e-06_jprb,9.7523e-06_jprb,9.4691e-06_jprb,&
 & 8.8479e-06_jprb,7.7751e-06_jprb,1.0480e-05_jprb/)  
kao( :, 5, 9, 1) = (/&
 & 4.8060e-06_jprb,8.2344e-06_jprb,9.1913e-06_jprb,9.5624e-06_jprb,9.5965e-06_jprb,9.3522e-06_jprb,&
 & 8.7881e-06_jprb,7.7833e-06_jprb,1.1108e-05_jprb/)  
kao( :, 1,10, 1) = (/&
 & 4.0064e-06_jprb,7.2194e-06_jprb,8.1998e-06_jprb,8.5791e-06_jprb,8.5570e-06_jprb,8.2127e-06_jprb,&
 & 7.5956e-06_jprb,7.1868e-06_jprb,1.0453e-05_jprb/)  
kao( :, 2,10, 1) = (/&
 & 4.0197e-06_jprb,7.1679e-06_jprb,8.1105e-06_jprb,8.4531e-06_jprb,8.4331e-06_jprb,8.1149e-06_jprb,&
 & 7.4918e-06_jprb,6.5776e-06_jprb,1.0520e-05_jprb/)  
kao( :, 3,10, 1) = (/&
 & 4.0198e-06_jprb,7.0974e-06_jprb,7.9934e-06_jprb,8.3195e-06_jprb,8.3088e-06_jprb,8.0216e-06_jprb,&
 & 7.4367e-06_jprb,6.4788e-06_jprb,1.0711e-05_jprb/)  
kao( :, 4,10, 1) = (/&
 & 4.0097e-06_jprb,7.0130e-06_jprb,7.8610e-06_jprb,8.1737e-06_jprb,8.1778e-06_jprb,7.9289e-06_jprb,&
 & 7.3886e-06_jprb,6.4723e-06_jprb,1.1047e-05_jprb/)  
kao( :, 5,10, 1) = (/&
 & 3.9884e-06_jprb,6.9092e-06_jprb,7.7198e-06_jprb,8.0283e-06_jprb,8.0487e-06_jprb,7.8282e-06_jprb,&
 & 7.3394e-06_jprb,6.4785e-06_jprb,1.1524e-05_jprb/)  
kao( :, 1,11, 1) = (/&
 & 3.3235e-06_jprb,6.0184e-06_jprb,6.8284e-06_jprb,7.1399e-06_jprb,7.1176e-06_jprb,6.8268e-06_jprb,&
 & 6.3069e-06_jprb,5.9015e-06_jprb,1.0775e-05_jprb/)  
kao( :, 2,11, 1) = (/&
 & 3.3290e-06_jprb,5.9691e-06_jprb,6.7492e-06_jprb,7.0301e-06_jprb,7.0090e-06_jprb,6.7423e-06_jprb,&
 & 6.2217e-06_jprb,5.4471e-06_jprb,1.0671e-05_jprb/)  
kao( :, 3,11, 1) = (/&
 & 3.3251e-06_jprb,5.9052e-06_jprb,6.6470e-06_jprb,6.9153e-06_jprb,6.9027e-06_jprb,6.6631e-06_jprb,&
 & 6.1768e-06_jprb,5.3794e-06_jprb,1.0714e-05_jprb/)  
kao( :, 4,11, 1) = (/&
 & 3.3144e-06_jprb,5.8297e-06_jprb,6.5309e-06_jprb,6.7910e-06_jprb,6.7926e-06_jprb,6.5831e-06_jprb,&
 & 6.1358e-06_jprb,5.3736e-06_jprb,1.0902e-05_jprb/)  
kao( :, 5,11, 1) = (/&
 & 3.2953e-06_jprb,5.7419e-06_jprb,6.4131e-06_jprb,6.6688e-06_jprb,6.6812e-06_jprb,6.4951e-06_jprb,&
 & 6.0888e-06_jprb,5.3759e-06_jprb,1.1211e-05_jprb/)  
kao( :, 1,12, 1) = (/&
 & 2.7539e-06_jprb,5.0055e-06_jprb,5.6748e-06_jprb,5.9323e-06_jprb,5.9106e-06_jprb,5.6659e-06_jprb,&
 & 5.2301e-06_jprb,4.8410e-06_jprb,1.0041e-05_jprb/)  
kao( :, 2,12, 1) = (/&
 & 2.7540e-06_jprb,4.9609e-06_jprb,5.6055e-06_jprb,5.8388e-06_jprb,5.8173e-06_jprb,5.5933e-06_jprb,&
 & 5.1585e-06_jprb,4.5035e-06_jprb,9.8783e-06_jprb/)  
kao( :, 3,12, 1) = (/&
 & 2.7488e-06_jprb,4.9048e-06_jprb,5.5190e-06_jprb,5.7407e-06_jprb,5.7275e-06_jprb,5.5257e-06_jprb,&
 & 5.1201e-06_jprb,4.4556e-06_jprb,9.8584e-06_jprb/)  
kao( :, 4,12, 1) = (/&
 & 2.7385e-06_jprb,4.8395e-06_jprb,5.4207e-06_jprb,5.6356e-06_jprb,5.6337e-06_jprb,5.4559e-06_jprb,&
 & 5.0826e-06_jprb,4.4482e-06_jprb,9.9631e-06_jprb/)  
kao( :, 5,12, 1) = (/&
 & 2.7214e-06_jprb,4.7654e-06_jprb,5.3225e-06_jprb,5.5318e-06_jprb,5.5373e-06_jprb,5.3782e-06_jprb,&
 & 5.0386e-06_jprb,4.4476e-06_jprb,1.0178e-05_jprb/)  
kao( :, 1,13, 1) = (/&
 & 2.2801e-06_jprb,4.1555e-06_jprb,4.7093e-06_jprb,4.9224e-06_jprb,4.9034e-06_jprb,4.6982e-06_jprb,&
 & 4.3297e-06_jprb,3.9733e-06_jprb,8.4129e-06_jprb/)  
kao( :, 2,13, 1) = (/&
 & 2.2770e-06_jprb,4.1173e-06_jprb,4.6509e-06_jprb,4.8443e-06_jprb,4.8245e-06_jprb,4.6351e-06_jprb,&
 & 4.2708e-06_jprb,3.7196e-06_jprb,8.2708e-06_jprb/)  
kao( :, 3,13, 1) = (/&
 & 2.2712e-06_jprb,4.0679e-06_jprb,4.5774e-06_jprb,4.7613e-06_jprb,4.7480e-06_jprb,4.5771e-06_jprb,&
 & 4.2377e-06_jprb,3.6828e-06_jprb,8.2482e-06_jprb/)  
kao( :, 4,13, 1) = (/&
 & 2.2616e-06_jprb,4.0128e-06_jprb,4.4962e-06_jprb,4.6740e-06_jprb,4.6674e-06_jprb,4.5144e-06_jprb,&
 & 4.2021e-06_jprb,3.6746e-06_jprb,8.3289e-06_jprb/)  
kao( :, 5,13, 1) = (/&
 & 2.2466e-06_jprb,3.9523e-06_jprb,4.4147e-06_jprb,4.5851e-06_jprb,4.5844e-06_jprb,4.4468e-06_jprb,&
 & 4.1612e-06_jprb,3.6696e-06_jprb,8.4982e-06_jprb/)  
kao( :, 1, 1, 2) = (/&
 & 4.5009e-05_jprb,5.8537e-05_jprb,6.2677e-05_jprb,6.4420e-05_jprb,6.4899e-05_jprb,6.4046e-05_jprb,&
 & 6.1758e-05_jprb,5.7308e-05_jprb,4.4974e-05_jprb/)  
kao( :, 2, 1, 2) = (/&
 & 4.4639e-05_jprb,5.7851e-05_jprb,6.2018e-05_jprb,6.3985e-05_jprb,6.4709e-05_jprb,6.3972e-05_jprb,&
 & 6.1776e-05_jprb,5.7584e-05_jprb,4.6032e-05_jprb/)  
kao( :, 3, 1, 2) = (/&
 & 4.4183e-05_jprb,5.7134e-05_jprb,6.1429e-05_jprb,6.3594e-05_jprb,6.4467e-05_jprb,6.3906e-05_jprb,&
 & 6.1866e-05_jprb,5.7909e-05_jprb,4.7065e-05_jprb/)  
kao( :, 4, 1, 2) = (/&
 & 4.3603e-05_jprb,5.6311e-05_jprb,6.0747e-05_jprb,6.3098e-05_jprb,6.4110e-05_jprb,6.3723e-05_jprb,&
 & 6.1859e-05_jprb,5.8107e-05_jprb,4.8038e-05_jprb/)  
kao( :, 5, 1, 2) = (/&
 & 4.3016e-05_jprb,5.5575e-05_jprb,6.0089e-05_jprb,6.2604e-05_jprb,6.3758e-05_jprb,6.3526e-05_jprb,&
 & 6.1825e-05_jprb,5.8256e-05_jprb,4.8937e-05_jprb/)  
kao( :, 1, 2, 2) = (/&
 & 3.8991e-05_jprb,5.1237e-05_jprb,5.5073e-05_jprb,5.6912e-05_jprb,5.7291e-05_jprb,5.6357e-05_jprb,&
 & 5.4136e-05_jprb,4.9871e-05_jprb,3.8345e-05_jprb/)  
kao( :, 2, 2, 2) = (/&
 & 3.8628e-05_jprb,5.0611e-05_jprb,5.4618e-05_jprb,5.6670e-05_jprb,5.7177e-05_jprb,5.6367e-05_jprb,&
 & 5.4237e-05_jprb,5.0203e-05_jprb,3.9241e-05_jprb/)  
kao( :, 3, 2, 2) = (/&
 & 3.8218e-05_jprb,5.0047e-05_jprb,5.4219e-05_jprb,5.6458e-05_jprb,5.7088e-05_jprb,5.6414e-05_jprb,&
 & 5.4375e-05_jprb,5.0554e-05_jprb,4.0182e-05_jprb/)  
kao( :, 4, 2, 2) = (/&
 & 3.7696e-05_jprb,4.9413e-05_jprb,5.3740e-05_jprb,5.6131e-05_jprb,5.6939e-05_jprb,5.6393e-05_jprb,&
 & 5.4506e-05_jprb,5.0827e-05_jprb,4.1063e-05_jprb/)  
kao( :, 5, 2, 2) = (/&
 & 3.7087e-05_jprb,4.8772e-05_jprb,5.3212e-05_jprb,5.5737e-05_jprb,5.6714e-05_jprb,5.6323e-05_jprb,&
 & 5.4580e-05_jprb,5.1064e-05_jprb,4.1833e-05_jprb/)  
kao( :, 1, 3, 2) = (/&
 & 3.3664e-05_jprb,4.4718e-05_jprb,4.8316e-05_jprb,5.0054e-05_jprb,5.0316e-05_jprb,4.9337e-05_jprb,&
 & 4.7131e-05_jprb,4.3067e-05_jprb,3.3821e-05_jprb/)  
kao( :, 2, 3, 2) = (/&
 & 3.3332e-05_jprb,4.4193e-05_jprb,4.7982e-05_jprb,4.9921e-05_jprb,5.0286e-05_jprb,4.9400e-05_jprb,&
 & 4.7278e-05_jprb,4.3395e-05_jprb,3.4508e-05_jprb/)  
kao( :, 3, 3, 2) = (/&
 & 3.2912e-05_jprb,4.3709e-05_jprb,4.7689e-05_jprb,4.9796e-05_jprb,5.0261e-05_jprb,4.9490e-05_jprb,&
 & 4.7455e-05_jprb,4.3769e-05_jprb,3.5275e-05_jprb/)  
kao( :, 4, 3, 2) = (/&
 & 3.2477e-05_jprb,4.3262e-05_jprb,4.7404e-05_jprb,4.9658e-05_jprb,5.0286e-05_jprb,4.9612e-05_jprb,&
 & 4.7676e-05_jprb,4.4119e-05_jprb,3.6032e-05_jprb/)  
kao( :, 5, 3, 2) = (/&
 & 3.1897e-05_jprb,4.2732e-05_jprb,4.7020e-05_jprb,4.9397e-05_jprb,5.0209e-05_jprb,4.9662e-05_jprb,&
 & 4.7863e-05_jprb,4.4408e-05_jprb,3.6739e-05_jprb/)  
kao( :, 1, 4, 2) = (/&
 & 2.9034e-05_jprb,3.9020e-05_jprb,4.2255e-05_jprb,4.3779e-05_jprb,4.3941e-05_jprb,4.2940e-05_jprb,&
 & 4.0749e-05_jprb,3.6991e-05_jprb,3.2231e-05_jprb/)  
kao( :, 2, 4, 2) = (/&
 & 2.8733e-05_jprb,3.8566e-05_jprb,4.1993e-05_jprb,4.3688e-05_jprb,4.3978e-05_jprb,4.3065e-05_jprb,&
 & 4.0955e-05_jprb,3.7298e-05_jprb,3.2530e-05_jprb/)  
kao( :, 3, 4, 2) = (/&
 & 2.8365e-05_jprb,3.8166e-05_jprb,4.1800e-05_jprb,4.3640e-05_jprb,4.4034e-05_jprb,4.3186e-05_jprb,&
 & 4.1171e-05_jprb,3.7663e-05_jprb,3.3003e-05_jprb/)  
kao( :, 4, 4, 2) = (/&
 & 2.7906e-05_jprb,3.7772e-05_jprb,4.1598e-05_jprb,4.3582e-05_jprb,4.4101e-05_jprb,4.3335e-05_jprb,&
 & 4.1429e-05_jprb,3.8018e-05_jprb,3.3543e-05_jprb/)  
kao( :, 5, 4, 2) = (/&
 & 2.7464e-05_jprb,3.7412e-05_jprb,4.1395e-05_jprb,4.3505e-05_jprb,4.4180e-05_jprb,4.3547e-05_jprb,&
 & 4.1708e-05_jprb,3.8366e-05_jprb,3.4090e-05_jprb/)  
kao( :, 1, 5, 2) = (/&
 & 2.5046e-05_jprb,3.4030e-05_jprb,3.6841e-05_jprb,3.8123e-05_jprb,3.8161e-05_jprb,3.7165e-05_jprb,&
 & 3.5069e-05_jprb,3.1597e-05_jprb,3.1884e-05_jprb/)  
kao( :, 2, 5, 2) = (/&
 & 2.4766e-05_jprb,3.3630e-05_jprb,3.6644e-05_jprb,3.8042e-05_jprb,3.8206e-05_jprb,3.7320e-05_jprb,&
 & 3.5335e-05_jprb,3.1911e-05_jprb,3.2055e-05_jprb/)  
kao( :, 3, 5, 2) = (/&
 & 2.4433e-05_jprb,3.3294e-05_jprb,3.6479e-05_jprb,3.8027e-05_jprb,3.8311e-05_jprb,3.7468e-05_jprb,&
 & 3.5564e-05_jprb,3.2236e-05_jprb,3.2305e-05_jprb/)  
kao( :, 4, 5, 2) = (/&
 & 2.4018e-05_jprb,3.2959e-05_jprb,3.6349e-05_jprb,3.8027e-05_jprb,3.8418e-05_jprb,3.7650e-05_jprb,&
 & 3.5828e-05_jprb,3.2583e-05_jprb,3.2642e-05_jprb/)  
kao( :, 5, 5, 2) = (/&
 & 2.3591e-05_jprb,3.2668e-05_jprb,3.6232e-05_jprb,3.8051e-05_jprb,3.8551e-05_jprb,3.7905e-05_jprb,&
 & 3.6128e-05_jprb,3.2939e-05_jprb,3.3008e-05_jprb/)  

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


SUBROUTINE part2

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


kao( :, 1, 6, 2) = (/&
 & 2.1579e-05_jprb,2.9591e-05_jprb,3.1991e-05_jprb,3.3013e-05_jprb,3.2936e-05_jprb,3.1944e-05_jprb,&
 & 3.0025e-05_jprb,2.6876e-05_jprb,2.9999e-05_jprb/)  
kao( :, 2, 6, 2) = (/&
 & 2.1317e-05_jprb,2.9255e-05_jprb,3.1830e-05_jprb,3.2965e-05_jprb,3.2983e-05_jprb,3.2102e-05_jprb,&
 & 3.0272e-05_jprb,2.7170e-05_jprb,3.0568e-05_jprb/)  
kao( :, 3, 6, 2) = (/&
 & 2.1011e-05_jprb,2.8952e-05_jprb,3.1684e-05_jprb,3.2945e-05_jprb,3.3093e-05_jprb,3.2263e-05_jprb,&
 & 3.0533e-05_jprb,2.7474e-05_jprb,3.1151e-05_jprb/)  
kao( :, 4, 6, 2) = (/&
 & 2.0627e-05_jprb,2.8670e-05_jprb,3.1569e-05_jprb,3.2960e-05_jprb,3.3217e-05_jprb,3.2461e-05_jprb,&
 & 3.0780e-05_jprb,2.7789e-05_jprb,3.1790e-05_jprb/)  
kao( :, 5, 6, 2) = (/&
 & 2.0182e-05_jprb,2.8368e-05_jprb,3.1449e-05_jprb,3.2969e-05_jprb,3.3342e-05_jprb,3.2673e-05_jprb,&
 & 3.1052e-05_jprb,2.8119e-05_jprb,3.2386e-05_jprb/)  
kao( :, 1, 7, 2) = (/&
 & 1.8452e-05_jprb,2.5532e-05_jprb,2.7551e-05_jprb,2.8351e-05_jprb,2.8204e-05_jprb,2.7262e-05_jprb,&
 & 2.5546e-05_jprb,2.2740e-05_jprb,2.8091e-05_jprb/)  
kao( :, 2, 7, 2) = (/&
 & 1.8215e-05_jprb,2.5256e-05_jprb,2.7416e-05_jprb,2.8318e-05_jprb,2.8249e-05_jprb,2.7395e-05_jprb,&
 & 2.5765e-05_jprb,2.3002e-05_jprb,2.8720e-05_jprb/)  
kao( :, 3, 7, 2) = (/&
 & 1.7931e-05_jprb,2.4972e-05_jprb,2.7294e-05_jprb,2.8314e-05_jprb,2.8348e-05_jprb,2.7572e-05_jprb,&
 & 2.6008e-05_jprb,2.3291e-05_jprb,2.9431e-05_jprb/)  
kao( :, 4, 7, 2) = (/&
 & 1.7583e-05_jprb,2.4714e-05_jprb,2.7183e-05_jprb,2.8322e-05_jprb,2.8484e-05_jprb,2.7765e-05_jprb,&
 & 2.6265e-05_jprb,2.3586e-05_jprb,3.0235e-05_jprb/)  
kao( :, 5, 7, 2) = (/&
 & 1.7179e-05_jprb,2.4453e-05_jprb,2.7076e-05_jprb,2.8339e-05_jprb,2.8609e-05_jprb,2.7972e-05_jprb,&
 & 2.6510e-05_jprb,2.3882e-05_jprb,3.1083e-05_jprb/)  
kao( :, 1, 8, 2) = (/&
 & 1.5794e-05_jprb,2.2020e-05_jprb,2.3670e-05_jprb,2.4259e-05_jprb,2.4056e-05_jprb,2.3178e-05_jprb,&
 & 2.1635e-05_jprb,1.9134e-05_jprb,2.7582e-05_jprb/)  
kao( :, 2, 8, 2) = (/&
 & 1.5579e-05_jprb,2.1775e-05_jprb,2.3546e-05_jprb,2.4231e-05_jprb,2.4092e-05_jprb,2.3297e-05_jprb,&
 & 2.1816e-05_jprb,1.9397e-05_jprb,2.8313e-05_jprb/)  
kao( :, 3, 8, 2) = (/&
 & 1.5328e-05_jprb,2.1517e-05_jprb,2.3429e-05_jprb,2.4220e-05_jprb,2.4175e-05_jprb,2.3443e-05_jprb,&
 & 2.2039e-05_jprb,1.9642e-05_jprb,2.9205e-05_jprb/)  
kao( :, 4, 8, 2) = (/&
 & 1.5023e-05_jprb,2.1268e-05_jprb,2.3319e-05_jprb,2.4225e-05_jprb,2.4291e-05_jprb,2.3637e-05_jprb,&
 & 2.2285e-05_jprb,1.9922e-05_jprb,3.0174e-05_jprb/)  
kao( :, 5, 8, 2) = (/&
 & 1.4668e-05_jprb,2.1020e-05_jprb,2.3208e-05_jprb,2.4227e-05_jprb,2.4407e-05_jprb,2.3824e-05_jprb,&
 & 2.2528e-05_jprb,2.0191e-05_jprb,3.1226e-05_jprb/)  
kao( :, 1, 9, 2) = (/&
 & 1.3453e-05_jprb,1.8874e-05_jprb,2.0200e-05_jprb,2.0614e-05_jprb,2.0394e-05_jprb,1.9585e-05_jprb,&
 & 1.8218e-05_jprb,1.5952e-05_jprb,3.1081e-05_jprb/)  
kao( :, 2, 9, 2) = (/&
 & 1.3262e-05_jprb,1.8651e-05_jprb,2.0085e-05_jprb,2.0598e-05_jprb,2.0424e-05_jprb,1.9696e-05_jprb,&
 & 1.8380e-05_jprb,1.6281e-05_jprb,3.2467e-05_jprb/)  
kao( :, 3, 9, 2) = (/&
 & 1.3038e-05_jprb,1.8418e-05_jprb,1.9972e-05_jprb,2.0581e-05_jprb,2.0487e-05_jprb,1.9824e-05_jprb,&
 & 1.8572e-05_jprb,1.6491e-05_jprb,3.3986e-05_jprb/)  
kao( :, 4, 9, 2) = (/&
 & 1.2776e-05_jprb,1.8181e-05_jprb,1.9859e-05_jprb,2.0572e-05_jprb,2.0585e-05_jprb,1.9985e-05_jprb,&
 & 1.8794e-05_jprb,1.6733e-05_jprb,3.5607e-05_jprb/)  
kao( :, 5, 9, 2) = (/&
 & 1.2471e-05_jprb,1.7952e-05_jprb,1.9753e-05_jprb,2.0569e-05_jprb,2.0679e-05_jprb,2.0158e-05_jprb,&
 & 1.9021e-05_jprb,1.6980e-05_jprb,3.7340e-05_jprb/)  
kao( :, 1,10, 2) = (/&
 & 1.1374e-05_jprb,1.6047e-05_jprb,1.7111e-05_jprb,1.7393e-05_jprb,1.7165e-05_jprb,1.6451e-05_jprb,&
 & 1.5255e-05_jprb,1.3140e-05_jprb,3.4787e-05_jprb/)  
kao( :, 2,10, 2) = (/&
 & 1.1208e-05_jprb,1.5847e-05_jprb,1.6997e-05_jprb,1.7386e-05_jprb,1.7209e-05_jprb,1.6555e-05_jprb,&
 & 1.5407e-05_jprb,1.3598e-05_jprb,3.7476e-05_jprb/)  
kao( :, 3,10, 2) = (/&
 & 1.1010e-05_jprb,1.5634e-05_jprb,1.6890e-05_jprb,1.7366e-05_jprb,1.7258e-05_jprb,1.6670e-05_jprb,&
 & 1.5570e-05_jprb,1.3793e-05_jprb,4.0426e-05_jprb/)  
kao( :, 4,10, 2) = (/&
 & 1.0782e-05_jprb,1.5423e-05_jprb,1.6783e-05_jprb,1.7341e-05_jprb,1.7331e-05_jprb,1.6806e-05_jprb,&
 & 1.5764e-05_jprb,1.4000e-05_jprb,4.3679e-05_jprb/)  
kao( :, 5,10, 2) = (/&
 & 1.0524e-05_jprb,1.5209e-05_jprb,1.6680e-05_jprb,1.7333e-05_jprb,1.7403e-05_jprb,1.6952e-05_jprb,&
 & 1.5975e-05_jprb,1.4224e-05_jprb,4.7059e-05_jprb/)  
kao( :, 1,11, 2) = (/&
 & 9.5209e-06_jprb,1.3499e-05_jprb,1.4375e-05_jprb,1.4600e-05_jprb,1.4393e-05_jprb,1.3793e-05_jprb,&
 & 1.2781e-05_jprb,1.1038e-05_jprb,3.2865e-05_jprb/)  
kao( :, 2,11, 2) = (/&
 & 9.3637e-06_jprb,1.3313e-05_jprb,1.4267e-05_jprb,1.4592e-05_jprb,1.4440e-05_jprb,1.3889e-05_jprb,&
 & 1.2920e-05_jprb,1.1404e-05_jprb,3.5445e-05_jprb/)  
kao( :, 3,11, 2) = (/&
 & 9.1833e-06_jprb,1.3123e-05_jprb,1.4166e-05_jprb,1.4568e-05_jprb,1.4482e-05_jprb,1.3996e-05_jprb,&
 & 1.3070e-05_jprb,1.1568e-05_jprb,3.8218e-05_jprb/)  
kao( :, 4,11, 2) = (/&
 & 8.9761e-06_jprb,1.2932e-05_jprb,1.4072e-05_jprb,1.4544e-05_jprb,1.4541e-05_jprb,1.4107e-05_jprb,&
 & 1.3243e-05_jprb,1.1758e-05_jprb,4.1117e-05_jprb/)  
kao( :, 5,11, 2) = (/&
 & 8.7519e-06_jprb,1.2738e-05_jprb,1.3974e-05_jprb,1.4523e-05_jprb,1.4594e-05_jprb,1.4232e-05_jprb,&
 & 1.3426e-05_jprb,1.1955e-05_jprb,4.4210e-05_jprb/)  
kao( :, 1,12, 2) = (/&
 & 7.9463e-06_jprb,1.1314e-05_jprb,1.2032e-05_jprb,1.2211e-05_jprb,1.2025e-05_jprb,1.1526e-05_jprb,&
 & 1.0676e-05_jprb,9.2413e-06_jprb,2.9106e-05_jprb/)  
kao( :, 2,12, 2) = (/&
 & 7.8042e-06_jprb,1.1141e-05_jprb,1.1931e-05_jprb,1.2198e-05_jprb,1.2069e-05_jprb,1.1610e-05_jprb,&
 & 1.0799e-05_jprb,9.5264e-06_jprb,3.1349e-05_jprb/)  
kao( :, 3,12, 2) = (/&
 & 7.6428e-06_jprb,1.0975e-05_jprb,1.1841e-05_jprb,1.2172e-05_jprb,1.2102e-05_jprb,1.1694e-05_jprb,&
 & 1.0928e-05_jprb,9.6721e-06_jprb,3.3866e-05_jprb/)  
kao( :, 4,12, 2) = (/&
 & 7.4623e-06_jprb,1.0806e-05_jprb,1.1756e-05_jprb,1.2145e-05_jprb,1.2145e-05_jprb,1.1788e-05_jprb,&
 & 1.1076e-05_jprb,9.8394e-06_jprb,3.6457e-05_jprb/)  
kao( :, 5,12, 2) = (/&
 & 7.2711e-06_jprb,1.0633e-05_jprb,1.1656e-05_jprb,1.2115e-05_jprb,1.2181e-05_jprb,1.1891e-05_jprb,&
 & 1.1228e-05_jprb,1.0010e-05_jprb,3.9156e-05_jprb/)  
kao( :, 1,13, 2) = (/&
 & 6.6184e-06_jprb,9.4565e-06_jprb,1.0043e-05_jprb,1.0182e-05_jprb,1.0021e-05_jprb,9.6035e-06_jprb,&
 & 8.8893e-06_jprb,7.7053e-06_jprb,2.4435e-05_jprb/)  
kao( :, 2,13, 2) = (/&
 & 6.4936e-06_jprb,9.3020e-06_jprb,9.9506e-06_jprb,1.0164e-05_jprb,1.0053e-05_jprb,9.6688e-06_jprb,&
 & 8.9931e-06_jprb,7.9311e-06_jprb,2.6318e-05_jprb/)  
kao( :, 3,13, 2) = (/&
 & 6.3517e-06_jprb,9.1558e-06_jprb,9.8692e-06_jprb,1.0135e-05_jprb,1.0076e-05_jprb,9.7347e-06_jprb,&
 & 9.1027e-06_jprb,8.0612e-06_jprb,2.8419e-05_jprb/)  
kao( :, 4,13, 2) = (/&
 & 6.1987e-06_jprb,9.0085e-06_jprb,9.7873e-06_jprb,1.0106e-05_jprb,1.0104e-05_jprb,9.8108e-06_jprb,&
 & 9.2254e-06_jprb,8.2025e-06_jprb,3.0596e-05_jprb/)  
kao( :, 5,13, 2) = (/&
 & 6.0390e-06_jprb,8.8585e-06_jprb,9.6966e-06_jprb,1.0071e-05_jprb,1.0127e-05_jprb,9.8907e-06_jprb,&
 & 9.3441e-06_jprb,8.3431e-06_jprb,3.2866e-05_jprb/)  
kao( :, 1, 1, 3) = (/&
 & 7.0753e-05_jprb,8.7371e-05_jprb,9.5172e-05_jprb,9.9390e-05_jprb,1.0056e-04_jprb,9.9494e-05_jprb,&
 & 9.5837e-05_jprb,8.9326e-05_jprb,7.4323e-05_jprb/)  
kao( :, 2, 1, 3) = (/&
 & 6.9795e-05_jprb,8.7509e-05_jprb,9.5691e-05_jprb,9.9950e-05_jprb,1.0125e-04_jprb,1.0041e-04_jprb,&
 & 9.7011e-05_jprb,9.0609e-05_jprb,7.5641e-05_jprb/)  
kao( :, 3, 1, 3) = (/&
 & 6.9131e-05_jprb,8.7916e-05_jprb,9.6468e-05_jprb,1.0076e-04_jprb,1.0214e-04_jprb,1.0141e-04_jprb,&
 & 9.8247e-05_jprb,9.2085e-05_jprb,7.7357e-05_jprb/)  
kao( :, 4, 1, 3) = (/&
 & 6.8482e-05_jprb,8.8338e-05_jprb,9.7157e-05_jprb,1.0153e-04_jprb,1.0307e-04_jprb,1.0249e-04_jprb,&
 & 9.9530e-05_jprb,9.3696e-05_jprb,7.9379e-05_jprb/)  
kao( :, 5, 1, 3) = (/&
 & 6.7880e-05_jprb,8.8892e-05_jprb,9.7857e-05_jprb,1.0242e-04_jprb,1.0411e-04_jprb,1.0366e-04_jprb,&
 & 1.0077e-04_jprb,9.5333e-05_jprb,8.1423e-05_jprb/)  
kao( :, 1, 2, 3) = (/&
 & 6.2276e-05_jprb,7.8469e-05_jprb,8.5472e-05_jprb,8.8868e-05_jprb,8.9888e-05_jprb,8.8903e-05_jprb,&
 & 8.5409e-05_jprb,7.9146e-05_jprb,6.4309e-05_jprb/)  
kao( :, 2, 2, 3) = (/&
 & 6.1522e-05_jprb,7.8775e-05_jprb,8.6027e-05_jprb,8.9487e-05_jprb,9.0686e-05_jprb,8.9927e-05_jprb,&
 & 8.6540e-05_jprb,8.0293e-05_jprb,6.5447e-05_jprb/)  
kao( :, 3, 2, 3) = (/&
 & 6.1045e-05_jprb,7.9281e-05_jprb,8.6793e-05_jprb,9.0368e-05_jprb,9.1669e-05_jprb,9.0966e-05_jprb,&
 & 8.7713e-05_jprb,8.1579e-05_jprb,6.6858e-05_jprb/)  
kao( :, 4, 2, 3) = (/&
 & 6.0651e-05_jprb,7.9924e-05_jprb,8.7586e-05_jprb,9.1281e-05_jprb,9.2660e-05_jprb,9.2033e-05_jprb,&
 & 8.8973e-05_jprb,8.3100e-05_jprb,6.8552e-05_jprb/)  
kao( :, 5, 2, 3) = (/&
 & 6.0196e-05_jprb,8.0517e-05_jprb,8.8362e-05_jprb,9.2181e-05_jprb,9.3655e-05_jprb,9.3124e-05_jprb,&
 & 9.0231e-05_jprb,8.4620e-05_jprb,7.0321e-05_jprb/)  
kao( :, 1, 3, 3) = (/&
 & 5.4594e-05_jprb,7.0140e-05_jprb,7.6291e-05_jprb,7.9103e-05_jprb,7.9908e-05_jprb,7.8825e-05_jprb,&
 & 7.5557e-05_jprb,6.9638e-05_jprb,5.6129e-05_jprb/)  
kao( :, 2, 3, 3) = (/&
 & 5.3987e-05_jprb,7.0481e-05_jprb,7.6809e-05_jprb,7.9722e-05_jprb,8.0799e-05_jprb,7.9847e-05_jprb,&
 & 7.6636e-05_jprb,7.0746e-05_jprb,5.7083e-05_jprb/)  
kao( :, 3, 3, 3) = (/&
 & 5.3598e-05_jprb,7.0935e-05_jprb,7.7478e-05_jprb,8.0559e-05_jprb,8.1742e-05_jprb,8.0926e-05_jprb,&
 & 7.7718e-05_jprb,7.1792e-05_jprb,5.8231e-05_jprb/)  
kao( :, 4, 3, 3) = (/&
 & 5.3419e-05_jprb,7.1650e-05_jprb,7.8342e-05_jprb,8.1570e-05_jprb,8.2791e-05_jprb,8.1991e-05_jprb,&
 & 7.8849e-05_jprb,7.3062e-05_jprb,5.9633e-05_jprb/)  
kao( :, 5, 3, 3) = (/&
 & 5.3129e-05_jprb,7.2273e-05_jprb,7.9178e-05_jprb,8.2486e-05_jprb,8.3759e-05_jprb,8.3022e-05_jprb,&
 & 8.0014e-05_jprb,7.4467e-05_jprb,6.1152e-05_jprb/)  
kao( :, 1, 4, 3) = (/&
 & 4.7696e-05_jprb,6.2286e-05_jprb,6.7749e-05_jprb,7.0181e-05_jprb,7.0624e-05_jprb,6.9456e-05_jprb,&
 & 6.6381e-05_jprb,6.0701e-05_jprb,5.1576e-05_jprb/)  
kao( :, 2, 4, 3) = (/&
 & 4.7208e-05_jprb,6.2637e-05_jprb,6.8240e-05_jprb,7.0849e-05_jprb,7.1530e-05_jprb,7.0423e-05_jprb,&
 & 6.7425e-05_jprb,6.1760e-05_jprb,5.2349e-05_jprb/)  
kao( :, 3, 4, 3) = (/&
 & 4.6920e-05_jprb,6.3058e-05_jprb,6.8836e-05_jprb,7.1607e-05_jprb,7.2463e-05_jprb,7.1509e-05_jprb,&
 & 6.8509e-05_jprb,6.2750e-05_jprb,5.3224e-05_jprb/)  
kao( :, 4, 4, 3) = (/&
 & 4.6776e-05_jprb,6.3606e-05_jprb,6.9601e-05_jprb,7.2517e-05_jprb,7.3446e-05_jprb,7.2570e-05_jprb,&
 & 6.9521e-05_jprb,6.3786e-05_jprb,5.4286e-05_jprb/)  
kao( :, 5, 4, 3) = (/&
 & 4.6682e-05_jprb,6.4343e-05_jprb,7.0568e-05_jprb,7.3573e-05_jprb,7.4545e-05_jprb,7.3619e-05_jprb,&
 & 7.0604e-05_jprb,6.5003e-05_jprb,5.5521e-05_jprb/)  
kao( :, 1, 5, 3) = (/&
 & 4.1581e-05_jprb,5.4899e-05_jprb,5.9799e-05_jprb,6.1832e-05_jprb,6.2136e-05_jprb,6.0898e-05_jprb,&
 & 5.7964e-05_jprb,5.2516e-05_jprb,5.0115e-05_jprb/)  
kao( :, 2, 5, 3) = (/&
 & 4.1165e-05_jprb,5.5257e-05_jprb,6.0251e-05_jprb,6.2555e-05_jprb,6.3007e-05_jprb,6.1795e-05_jprb,&
 & 5.8864e-05_jprb,5.3500e-05_jprb,5.0524e-05_jprb/)  
kao( :, 3, 5, 3) = (/&
 & 4.0905e-05_jprb,5.5656e-05_jprb,6.0839e-05_jprb,6.3322e-05_jprb,6.3891e-05_jprb,6.2840e-05_jprb,&
 & 5.9887e-05_jprb,5.4446e-05_jprb,5.1001e-05_jprb/)  
kao( :, 4, 5, 3) = (/&
 & 4.0790e-05_jprb,5.6129e-05_jprb,6.1526e-05_jprb,6.4146e-05_jprb,6.4873e-05_jprb,6.3880e-05_jprb,&
 & 6.0934e-05_jprb,5.5421e-05_jprb,5.1576e-05_jprb/)  
kao( :, 5, 5, 3) = (/&
 & 4.0741e-05_jprb,5.6811e-05_jprb,6.2419e-05_jprb,6.5146e-05_jprb,6.5947e-05_jprb,6.4915e-05_jprb,&
 & 6.1966e-05_jprb,5.6459e-05_jprb,5.2345e-05_jprb/)  
kao( :, 1, 6, 3) = (/&
 & 3.6128e-05_jprb,4.8074e-05_jprb,5.2303e-05_jprb,5.4088e-05_jprb,5.4305e-05_jprb,5.3072e-05_jprb,&
 & 5.0232e-05_jprb,4.5105e-05_jprb,5.1680e-05_jprb/)  
kao( :, 2, 6, 3) = (/&
 & 3.5776e-05_jprb,4.8378e-05_jprb,5.2790e-05_jprb,5.4763e-05_jprb,5.5146e-05_jprb,5.3920e-05_jprb,&
 & 5.1041e-05_jprb,4.6023e-05_jprb,5.1519e-05_jprb/)  
kao( :, 3, 6, 3) = (/&
 & 3.5527e-05_jprb,4.8788e-05_jprb,5.3350e-05_jprb,5.5505e-05_jprb,5.5990e-05_jprb,5.4859e-05_jprb,&
 & 5.1952e-05_jprb,4.6910e-05_jprb,5.1451e-05_jprb/)  
kao( :, 4, 6, 3) = (/&
 & 3.5393e-05_jprb,4.9227e-05_jprb,5.4029e-05_jprb,5.6316e-05_jprb,5.6902e-05_jprb,5.5852e-05_jprb,&
 & 5.2950e-05_jprb,4.7839e-05_jprb,5.1463e-05_jprb/)  
kao( :, 5, 6, 3) = (/&
 & 3.5279e-05_jprb,4.9738e-05_jprb,5.4773e-05_jprb,5.7200e-05_jprb,5.7864e-05_jprb,5.6831e-05_jprb,&
 & 5.3962e-05_jprb,4.8775e-05_jprb,5.1664e-05_jprb/)  
kao( :, 1, 7, 3) = (/&
 & 3.1175e-05_jprb,4.1797e-05_jprb,4.5353e-05_jprb,4.6878e-05_jprb,4.7045e-05_jprb,4.5914e-05_jprb,&
 & 4.3260e-05_jprb,3.8528e-05_jprb,5.5034e-05_jprb/)  
kao( :, 2, 7, 3) = (/&
 & 3.0861e-05_jprb,4.2063e-05_jprb,4.5864e-05_jprb,4.7535e-05_jprb,4.7827e-05_jprb,4.6677e-05_jprb,&
 & 4.3974e-05_jprb,3.9350e-05_jprb,5.5182e-05_jprb/)  
kao( :, 3, 7, 3) = (/&
 & 3.0632e-05_jprb,4.2441e-05_jprb,4.6427e-05_jprb,4.8241e-05_jprb,4.8620e-05_jprb,4.7526e-05_jprb,&
 & 4.4793e-05_jprb,4.0140e-05_jprb,5.5398e-05_jprb/)  
kao( :, 4, 7, 3) = (/&
 & 3.0475e-05_jprb,4.2876e-05_jprb,4.7039e-05_jprb,4.9018e-05_jprb,4.9446e-05_jprb,4.8432e-05_jprb,&
 & 4.5701e-05_jprb,4.0986e-05_jprb,5.5585e-05_jprb/)  
kao( :, 5, 7, 3) = (/&
 & 3.0340e-05_jprb,4.3333e-05_jprb,4.7753e-05_jprb,4.9874e-05_jprb,5.0366e-05_jprb,4.9368e-05_jprb,&
 & 4.6641e-05_jprb,4.1870e-05_jprb,5.5728e-05_jprb/)  
kao( :, 1, 8, 3) = (/&
 & 2.6882e-05_jprb,3.6181e-05_jprb,3.9159e-05_jprb,4.0385e-05_jprb,4.0472e-05_jprb,3.9467e-05_jprb,&
 & 3.7068e-05_jprb,3.2787e-05_jprb,6.0191e-05_jprb/)  
kao( :, 2, 8, 3) = (/&
 & 2.6577e-05_jprb,3.6420e-05_jprb,3.9630e-05_jprb,4.1005e-05_jprb,4.1190e-05_jprb,4.0154e-05_jprb,&
 & 3.7711e-05_jprb,3.3501e-05_jprb,6.0976e-05_jprb/)  
kao( :, 3, 8, 3) = (/&
 & 2.6344e-05_jprb,3.6733e-05_jprb,4.0183e-05_jprb,4.1714e-05_jprb,4.1930e-05_jprb,4.0908e-05_jprb,&
 & 3.8425e-05_jprb,3.4195e-05_jprb,6.1747e-05_jprb/)  
kao( :, 4, 8, 3) = (/&
 & 2.6154e-05_jprb,3.7129e-05_jprb,4.0772e-05_jprb,4.2424e-05_jprb,4.2698e-05_jprb,4.1708e-05_jprb,&
 & 3.9208e-05_jprb,3.4923e-05_jprb,6.2436e-05_jprb/)  
kao( :, 5, 8, 3) = (/&
 & 2.5969e-05_jprb,3.7541e-05_jprb,4.1396e-05_jprb,4.3205e-05_jprb,4.3544e-05_jprb,4.2561e-05_jprb,&
 & 4.0066e-05_jprb,3.5716e-05_jprb,6.2996e-05_jprb/)  
kao( :, 1, 9, 3) = (/&
 & 2.3030e-05_jprb,3.1081e-05_jprb,3.3574e-05_jprb,3.4578e-05_jprb,3.4594e-05_jprb,3.3680e-05_jprb,&
 & 3.1564e-05_jprb,2.7753e-05_jprb,8.2972e-05_jprb/)  
kao( :, 2, 9, 3) = (/&
 & 2.2745e-05_jprb,3.1301e-05_jprb,3.4001e-05_jprb,3.5099e-05_jprb,3.5210e-05_jprb,3.4293e-05_jprb,&
 & 3.2147e-05_jprb,2.8418e-05_jprb,8.5573e-05_jprb/)  
kao( :, 3, 9, 3) = (/&
 & 2.2504e-05_jprb,3.1575e-05_jprb,3.4507e-05_jprb,3.5759e-05_jprb,3.5892e-05_jprb,3.4957e-05_jprb,&
 & 3.2777e-05_jprb,2.9021e-05_jprb,8.7692e-05_jprb/)  
kao( :, 4, 9, 3) = (/&
 & 2.2288e-05_jprb,3.1903e-05_jprb,3.5055e-05_jprb,3.6460e-05_jprb,3.6616e-05_jprb,3.5667e-05_jprb,&
 & 3.3440e-05_jprb,2.9641e-05_jprb,8.9596e-05_jprb/)  
kao( :, 5, 9, 3) = (/&
 & 2.2076e-05_jprb,3.2254e-05_jprb,3.5612e-05_jprb,3.7158e-05_jprb,3.7379e-05_jprb,3.6426e-05_jprb,&
 & 3.4185e-05_jprb,3.0329e-05_jprb,9.1172e-05_jprb/)  
kao( :, 1,10, 3) = (/&
 & 1.9573e-05_jprb,2.6501e-05_jprb,2.8604e-05_jprb,2.9434e-05_jprb,2.9415e-05_jprb,2.8586e-05_jprb,&
 & 2.6756e-05_jprb,2.3398e-05_jprb,1.1831e-04_jprb/)  
kao( :, 2,10, 3) = (/&
 & 1.9311e-05_jprb,2.6696e-05_jprb,2.8987e-05_jprb,2.9871e-05_jprb,2.9930e-05_jprb,2.9131e-05_jprb,&
 & 2.7291e-05_jprb,2.4061e-05_jprb,1.2413e-04_jprb/)  
kao( :, 3,10, 3) = (/&
 & 1.9064e-05_jprb,2.6931e-05_jprb,2.9433e-05_jprb,3.0442e-05_jprb,3.0524e-05_jprb,2.9723e-05_jprb,&
 & 2.7830e-05_jprb,2.4575e-05_jprb,1.2968e-04_jprb/)  
kao( :, 4,10, 3) = (/&
 & 1.8838e-05_jprb,2.7200e-05_jprb,2.9911e-05_jprb,3.1092e-05_jprb,3.1189e-05_jprb,3.0347e-05_jprb,&
 & 2.8402e-05_jprb,2.5111e-05_jprb,1.3500e-04_jprb/)  
kao( :, 5,10, 3) = (/&
 & 1.8619e-05_jprb,2.7473e-05_jprb,3.0391e-05_jprb,3.1737e-05_jprb,3.1883e-05_jprb,3.1020e-05_jprb,&
 & 2.9042e-05_jprb,2.5702e-05_jprb,1.4050e-04_jprb/)  
kao( :, 1,11, 3) = (/&
 & 1.6456e-05_jprb,2.2515e-05_jprb,2.4353e-05_jprb,2.5062e-05_jprb,2.5054e-05_jprb,2.4348e-05_jprb,&
 & 2.2780e-05_jprb,1.9929e-05_jprb,1.2447e-04_jprb/)  
kao( :, 2,11, 3) = (/&
 & 1.6210e-05_jprb,2.2705e-05_jprb,2.4709e-05_jprb,2.5473e-05_jprb,2.5515e-05_jprb,2.4826e-05_jprb,&
 & 2.3259e-05_jprb,2.0482e-05_jprb,1.3150e-04_jprb/)  
kao( :, 3,11, 3) = (/&
 & 1.5971e-05_jprb,2.2902e-05_jprb,2.5095e-05_jprb,2.5990e-05_jprb,2.6068e-05_jprb,2.5361e-05_jprb,&
 & 2.3741e-05_jprb,2.0933e-05_jprb,1.3833e-04_jprb/)  
kao( :, 4,11, 3) = (/&
 & 1.5752e-05_jprb,2.3106e-05_jprb,2.5493e-05_jprb,2.6568e-05_jprb,2.6674e-05_jprb,2.5935e-05_jprb,&
 & 2.4259e-05_jprb,2.1401e-05_jprb,1.4470e-04_jprb/)  
kao( :, 5,11, 3) = (/&
 & 1.5528e-05_jprb,2.3318e-05_jprb,2.5901e-05_jprb,2.7141e-05_jprb,2.7302e-05_jprb,2.6558e-05_jprb,&
 & 2.4843e-05_jprb,2.1914e-05_jprb,1.5074e-04_jprb/)  
kao( :, 1,12, 3) = (/&
 & 1.3780e-05_jprb,1.9033e-05_jprb,2.0619e-05_jprb,2.1228e-05_jprb,2.1226e-05_jprb,2.0621e-05_jprb,&
 & 1.9294e-05_jprb,1.6882e-05_jprb,1.1649e-04_jprb/)  
kao( :, 2,12, 3) = (/&
 & 1.3548e-05_jprb,1.9199e-05_jprb,2.0913e-05_jprb,2.1600e-05_jprb,2.1645e-05_jprb,2.1053e-05_jprb,&
 & 1.9719e-05_jprb,1.7352e-05_jprb,1.2368e-04_jprb/)  

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


SUBROUTINE part3

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


kao( :, 3,12, 3) = (/&
 & 1.3324e-05_jprb,1.9341e-05_jprb,2.1240e-05_jprb,2.2050e-05_jprb,2.2132e-05_jprb,2.1536e-05_jprb,&
 & 2.0156e-05_jprb,1.7750e-05_jprb,1.3017e-04_jprb/)  
kao( :, 4,12, 3) = (/&
 & 1.3111e-05_jprb,1.9487e-05_jprb,2.1558e-05_jprb,2.2533e-05_jprb,2.2665e-05_jprb,2.2056e-05_jprb,&
 & 2.0628e-05_jprb,1.8158e-05_jprb,1.3659e-04_jprb/)  
kao( :, 5,12, 3) = (/&
 & 1.2895e-05_jprb,1.9642e-05_jprb,2.1889e-05_jprb,2.3011e-05_jprb,2.3210e-05_jprb,2.2606e-05_jprb,&
 & 2.1150e-05_jprb,1.8610e-05_jprb,1.4251e-04_jprb/)  
kao( :, 1,13, 3) = (/&
 & 1.1500e-05_jprb,1.6003e-05_jprb,1.7357e-05_jprb,1.7889e-05_jprb,1.7884e-05_jprb,1.7367e-05_jprb,&
 & 1.6254e-05_jprb,1.4227e-05_jprb,9.8757e-05_jprb/)  
kao( :, 2,13, 3) = (/&
 & 1.1286e-05_jprb,1.6126e-05_jprb,1.7594e-05_jprb,1.8210e-05_jprb,1.8252e-05_jprb,1.7751e-05_jprb,&
 & 1.6632e-05_jprb,1.4641e-05_jprb,1.0488e-04_jprb/)  
kao( :, 3,13, 3) = (/&
 & 1.1079e-05_jprb,1.6225e-05_jprb,1.7843e-05_jprb,1.8579e-05_jprb,1.8672e-05_jprb,1.8176e-05_jprb,&
 & 1.7024e-05_jprb,1.4980e-05_jprb,1.1036e-04_jprb/)  
kao( :, 4,13, 3) = (/&
 & 1.0876e-05_jprb,1.6327e-05_jprb,1.8099e-05_jprb,1.8965e-05_jprb,1.9122e-05_jprb,1.8629e-05_jprb,&
 & 1.7445e-05_jprb,1.5339e-05_jprb,1.1580e-04_jprb/)  
kao( :, 5,13, 3) = (/&
 & 1.0678e-05_jprb,1.6434e-05_jprb,1.8360e-05_jprb,1.9355e-05_jprb,1.9573e-05_jprb,1.9100e-05_jprb,&
 & 1.7895e-05_jprb,1.5734e-05_jprb,1.2071e-04_jprb/)  
kao( :, 1, 1, 4) = (/&
 & 1.0452e-04_jprb,1.3483e-04_jprb,1.4507e-04_jprb,1.5035e-04_jprb,1.5233e-04_jprb,1.5098e-04_jprb,&
 & 1.4623e-04_jprb,1.3688e-04_jprb,1.1596e-04_jprb/)  
kao( :, 2, 1, 4) = (/&
 & 1.0431e-04_jprb,1.3598e-04_jprb,1.4693e-04_jprb,1.5285e-04_jprb,1.5505e-04_jprb,1.5376e-04_jprb,&
 & 1.4899e-04_jprb,1.4010e-04_jprb,1.1898e-04_jprb/)  
kao( :, 3, 1, 4) = (/&
 & 1.0452e-04_jprb,1.3748e-04_jprb,1.4911e-04_jprb,1.5568e-04_jprb,1.5820e-04_jprb,1.5701e-04_jprb,&
 & 1.5204e-04_jprb,1.4309e-04_jprb,1.2195e-04_jprb/)  
kao( :, 4, 1, 4) = (/&
 & 1.0446e-04_jprb,1.3898e-04_jprb,1.5142e-04_jprb,1.5876e-04_jprb,1.6160e-04_jprb,1.6033e-04_jprb,&
 & 1.5519e-04_jprb,1.4614e-04_jprb,1.2504e-04_jprb/)  
kao( :, 5, 1, 4) = (/&
 & 1.0490e-04_jprb,1.4072e-04_jprb,1.5426e-04_jprb,1.6221e-04_jprb,1.6521e-04_jprb,1.6398e-04_jprb,&
 & 1.5900e-04_jprb,1.4986e-04_jprb,1.2878e-04_jprb/)  
kao( :, 1, 2, 4) = (/&
 & 9.4204e-05_jprb,1.2226e-04_jprb,1.3172e-04_jprb,1.3677e-04_jprb,1.3845e-04_jprb,1.3676e-04_jprb,&
 & 1.3184e-04_jprb,1.2295e-04_jprb,1.0190e-04_jprb/)  
kao( :, 2, 2, 4) = (/&
 & 9.4074e-05_jprb,1.2351e-04_jprb,1.3361e-04_jprb,1.3908e-04_jprb,1.4094e-04_jprb,1.3921e-04_jprb,&
 & 1.3441e-04_jprb,1.2595e-04_jprb,1.0466e-04_jprb/)  
kao( :, 3, 2, 4) = (/&
 & 9.4344e-05_jprb,1.2509e-04_jprb,1.3579e-04_jprb,1.4166e-04_jprb,1.4376e-04_jprb,1.4219e-04_jprb,&
 & 1.3731e-04_jprb,1.2889e-04_jprb,1.0736e-04_jprb/)  
kao( :, 4, 2, 4) = (/&
 & 9.4551e-05_jprb,1.2662e-04_jprb,1.3810e-04_jprb,1.4452e-04_jprb,1.4685e-04_jprb,1.4532e-04_jprb,&
 & 1.4026e-04_jprb,1.3156e-04_jprb,1.1005e-04_jprb/)  
kao( :, 5, 2, 4) = (/&
 & 9.4911e-05_jprb,1.2828e-04_jprb,1.4068e-04_jprb,1.4753e-04_jprb,1.5017e-04_jprb,1.4865e-04_jprb,&
 & 1.4353e-04_jprb,1.3462e-04_jprb,1.1332e-04_jprb/)  
kao( :, 1, 3, 4) = (/&
 & 8.4477e-05_jprb,1.0977e-04_jprb,1.1875e-04_jprb,1.2346e-04_jprb,1.2481e-04_jprb,1.2312e-04_jprb,&
 & 1.1833e-04_jprb,1.0957e-04_jprb,8.9535e-05_jprb/)  
kao( :, 2, 3, 4) = (/&
 & 8.4379e-05_jprb,1.1105e-04_jprb,1.2059e-04_jprb,1.2560e-04_jprb,1.2700e-04_jprb,1.2527e-04_jprb,&
 & 1.2063e-04_jprb,1.1208e-04_jprb,9.1925e-05_jprb/)  
kao( :, 3, 3, 4) = (/&
 & 8.4459e-05_jprb,1.1263e-04_jprb,1.2255e-04_jprb,1.2789e-04_jprb,1.2949e-04_jprb,1.2788e-04_jprb,&
 & 1.2327e-04_jprb,1.1489e-04_jprb,9.4307e-05_jprb/)  
kao( :, 4, 3, 4) = (/&
 & 8.4957e-05_jprb,1.1436e-04_jprb,1.2477e-04_jprb,1.3051e-04_jprb,1.3225e-04_jprb,1.3075e-04_jprb,&
 & 1.2605e-04_jprb,1.1763e-04_jprb,9.6664e-05_jprb/)  
kao( :, 5, 3, 4) = (/&
 & 8.5267e-05_jprb,1.1603e-04_jprb,1.2711e-04_jprb,1.3323e-04_jprb,1.3522e-04_jprb,1.3376e-04_jprb,&
 & 1.2892e-04_jprb,1.2027e-04_jprb,9.9423e-05_jprb/)  
kao( :, 1, 4, 4) = (/&
 & 7.5106e-05_jprb,9.8023e-05_jprb,1.0634e-04_jprb,1.1074e-04_jprb,1.1207e-04_jprb,1.1047e-04_jprb,&
 & 1.0566e-04_jprb,9.7179e-05_jprb,8.0970e-05_jprb/)  
kao( :, 2, 4, 4) = (/&
 & 7.5068e-05_jprb,9.9316e-05_jprb,1.0818e-04_jprb,1.1273e-04_jprb,1.1400e-04_jprb,1.1240e-04_jprb,&
 & 1.0763e-04_jprb,9.9160e-05_jprb,8.2847e-05_jprb/)  
kao( :, 3, 4, 4) = (/&
 & 7.5176e-05_jprb,1.0088e-04_jprb,1.1012e-04_jprb,1.1492e-04_jprb,1.1630e-04_jprb,1.1469e-04_jprb,&
 & 1.0990e-04_jprb,1.0156e-04_jprb,8.4919e-05_jprb/)  
kao( :, 4, 4, 4) = (/&
 & 7.5441e-05_jprb,1.0260e-04_jprb,1.1218e-04_jprb,1.1722e-04_jprb,1.1877e-04_jprb,1.1722e-04_jprb,&
 & 1.1247e-04_jprb,1.0418e-04_jprb,8.7047e-05_jprb/)  
kao( :, 5, 4, 4) = (/&
 & 7.6234e-05_jprb,1.0451e-04_jprb,1.1445e-04_jprb,1.1978e-04_jprb,1.2144e-04_jprb,1.1995e-04_jprb,&
 & 1.1523e-04_jprb,1.0678e-04_jprb,8.9379e-05_jprb/)  
kao( :, 1, 5, 4) = (/&
 & 6.6160e-05_jprb,8.7240e-05_jprb,9.4827e-05_jprb,9.8971e-05_jprb,1.0023e-04_jprb,9.8598e-05_jprb,&
 & 9.3977e-05_jprb,8.6015e-05_jprb,7.7683e-05_jprb/)  
kao( :, 2, 5, 4) = (/&
 & 6.6183e-05_jprb,8.8517e-05_jprb,9.6624e-05_jprb,1.0080e-04_jprb,1.0196e-04_jprb,1.0036e-04_jprb,&
 & 9.5737e-05_jprb,8.7609e-05_jprb,7.8892e-05_jprb/)  
kao( :, 3, 5, 4) = (/&
 & 6.6375e-05_jprb,9.0052e-05_jprb,9.8476e-05_jprb,1.0284e-04_jprb,1.0408e-04_jprb,1.0241e-04_jprb,&
 & 9.7689e-05_jprb,8.9585e-05_jprb,8.0494e-05_jprb/)  
kao( :, 4, 5, 4) = (/&
 & 6.6706e-05_jprb,9.1731e-05_jprb,1.0049e-04_jprb,1.0501e-04_jprb,1.0639e-04_jprb,1.0469e-04_jprb,&
 & 9.9852e-05_jprb,9.1849e-05_jprb,8.2317e-05_jprb/)  
kao( :, 5, 5, 4) = (/&
 & 6.7530e-05_jprb,9.3541e-05_jprb,1.0261e-04_jprb,1.0728e-04_jprb,1.0881e-04_jprb,1.0721e-04_jprb,&
 & 1.0236e-04_jprb,9.4247e-05_jprb,8.4311e-05_jprb/)  
kao( :, 1, 6, 4) = (/&
 & 5.7820e-05_jprb,7.7124e-05_jprb,8.4195e-05_jprb,8.7927e-05_jprb,8.8972e-05_jprb,8.7430e-05_jprb,&
 & 8.3132e-05_jprb,7.5650e-05_jprb,7.8327e-05_jprb/)  
kao( :, 2, 6, 4) = (/&
 & 5.7858e-05_jprb,7.8413e-05_jprb,8.5775e-05_jprb,8.9605e-05_jprb,9.0590e-05_jprb,8.9122e-05_jprb,&
 & 8.4773e-05_jprb,7.7051e-05_jprb,7.8482e-05_jprb/)  
kao( :, 3, 6, 4) = (/&
 & 5.8124e-05_jprb,7.9824e-05_jprb,8.7576e-05_jprb,9.1549e-05_jprb,9.2483e-05_jprb,9.0882e-05_jprb,&
 & 8.6480e-05_jprb,7.8637e-05_jprb,7.9105e-05_jprb/)  
kao( :, 4, 6, 4) = (/&
 & 5.8563e-05_jprb,8.1362e-05_jprb,8.9405e-05_jprb,9.3593e-05_jprb,9.4634e-05_jprb,9.2868e-05_jprb,&
 & 8.8337e-05_jprb,8.0467e-05_jprb,8.0117e-05_jprb/)  
kao( :, 5, 6, 4) = (/&
 & 5.9163e-05_jprb,8.2947e-05_jprb,9.1328e-05_jprb,9.5614e-05_jprb,9.6868e-05_jprb,9.5118e-05_jprb,&
 & 9.0461e-05_jprb,8.2517e-05_jprb,8.1395e-05_jprb/)  
kao( :, 1, 7, 4) = (/&
 & 5.0089e-05_jprb,6.7496e-05_jprb,7.4227e-05_jprb,7.7520e-05_jprb,7.8410e-05_jprb,7.6863e-05_jprb,&
 & 7.2879e-05_jprb,6.5963e-05_jprb,8.6270e-05_jprb/)  
kao( :, 2, 7, 4) = (/&
 & 5.0200e-05_jprb,6.8721e-05_jprb,7.5605e-05_jprb,7.9011e-05_jprb,7.9876e-05_jprb,7.8434e-05_jprb,&
 & 7.4469e-05_jprb,6.7323e-05_jprb,8.5543e-05_jprb/)  
kao( :, 3, 7, 4) = (/&
 & 5.0465e-05_jprb,7.0073e-05_jprb,7.7198e-05_jprb,8.0725e-05_jprb,8.1573e-05_jprb,8.0081e-05_jprb,&
 & 7.6049e-05_jprb,6.8699e-05_jprb,8.4940e-05_jprb/)  
kao( :, 4, 7, 4) = (/&
 & 5.0935e-05_jprb,7.1437e-05_jprb,7.8942e-05_jprb,8.2653e-05_jprb,8.3546e-05_jprb,8.1849e-05_jprb,&
 & 7.7644e-05_jprb,7.0190e-05_jprb,8.4597e-05_jprb/)  
kao( :, 5, 7, 4) = (/&
 & 5.1558e-05_jprb,7.2909e-05_jprb,8.0657e-05_jprb,8.4558e-05_jprb,8.5533e-05_jprb,8.3860e-05_jprb,&
 & 7.9445e-05_jprb,7.1873e-05_jprb,8.4633e-05_jprb/)  
kao( :, 1, 8, 4) = (/&
 & 4.3241e-05_jprb,5.8715e-05_jprb,6.4907e-05_jprb,6.7818e-05_jprb,6.8520e-05_jprb,6.7059e-05_jprb,&
 & 6.3436e-05_jprb,5.7025e-05_jprb,1.0556e-04_jprb/)  
kao( :, 2, 8, 4) = (/&
 & 4.3396e-05_jprb,5.9829e-05_jprb,6.6154e-05_jprb,6.9172e-05_jprb,6.9903e-05_jprb,6.8506e-05_jprb,&
 & 6.4888e-05_jprb,5.8346e-05_jprb,1.0621e-04_jprb/)  
kao( :, 3, 8, 4) = (/&
 & 4.3671e-05_jprb,6.1116e-05_jprb,6.7537e-05_jprb,7.0639e-05_jprb,7.1418e-05_jprb,7.0005e-05_jprb,&
 & 6.6322e-05_jprb,5.9628e-05_jprb,1.0623e-04_jprb/)  
kao( :, 4, 8, 4) = (/&
 & 4.4098e-05_jprb,6.2393e-05_jprb,6.9085e-05_jprb,7.2351e-05_jprb,7.3148e-05_jprb,7.1679e-05_jprb,&
 & 6.7759e-05_jprb,6.0926e-05_jprb,1.0598e-04_jprb/)  
kao( :, 5, 8, 4) = (/&
 & 4.4692e-05_jprb,6.3732e-05_jprb,7.0698e-05_jprb,7.4137e-05_jprb,7.4984e-05_jprb,7.3462e-05_jprb,&
 & 6.9302e-05_jprb,6.2346e-05_jprb,1.0567e-04_jprb/)  
kao( :, 1, 9, 4) = (/&
 & 3.7132e-05_jprb,5.0817e-05_jprb,5.6256e-05_jprb,5.8754e-05_jprb,5.9255e-05_jprb,5.8002e-05_jprb,&
 & 5.4741e-05_jprb,4.8907e-05_jprb,1.5932e-04_jprb/)  
kao( :, 2, 9, 4) = (/&
 & 3.7275e-05_jprb,5.1787e-05_jprb,5.7392e-05_jprb,6.0022e-05_jprb,6.0595e-05_jprb,5.9356e-05_jprb,&
 & 5.6080e-05_jprb,5.0176e-05_jprb,1.6074e-04_jprb/)  
kao( :, 3, 9, 4) = (/&
 & 3.7562e-05_jprb,5.2932e-05_jprb,5.8629e-05_jprb,6.1314e-05_jprb,6.1975e-05_jprb,6.0718e-05_jprb,&
 & 5.7380e-05_jprb,5.1383e-05_jprb,1.6208e-04_jprb/)  
kao( :, 4, 9, 4) = (/&
 & 3.7959e-05_jprb,5.4161e-05_jprb,5.9989e-05_jprb,6.2778e-05_jprb,6.3464e-05_jprb,6.2208e-05_jprb,&
 & 5.8730e-05_jprb,5.2572e-05_jprb,1.6367e-04_jprb/)  
kao( :, 5, 9, 4) = (/&
 & 3.8474e-05_jprb,5.5413e-05_jprb,6.1478e-05_jprb,6.4374e-05_jprb,6.5107e-05_jprb,6.3821e-05_jprb,&
 & 6.0122e-05_jprb,5.3780e-05_jprb,1.6576e-04_jprb/)  
kao( :, 1,10, 4) = (/&
 & 3.1661e-05_jprb,4.3721e-05_jprb,4.8375e-05_jprb,5.0533e-05_jprb,5.0884e-05_jprb,4.9757e-05_jprb,&
 & 4.6933e-05_jprb,4.1760e-05_jprb,3.3288e-04_jprb/)  
kao( :, 2,10, 4) = (/&
 & 3.1799e-05_jprb,4.4567e-05_jprb,4.9444e-05_jprb,5.1711e-05_jprb,5.2132e-05_jprb,5.1037e-05_jprb,&
 & 4.8202e-05_jprb,4.2932e-05_jprb,3.3259e-04_jprb/)  
kao( :, 3,10, 4) = (/&
 & 3.2076e-05_jprb,4.5598e-05_jprb,5.0572e-05_jprb,5.2901e-05_jprb,5.3401e-05_jprb,5.2274e-05_jprb,&
 & 4.9410e-05_jprb,4.4046e-05_jprb,3.3116e-04_jprb/)  
kao( :, 4,10, 4) = (/&
 & 3.2432e-05_jprb,4.6745e-05_jprb,5.1822e-05_jprb,5.4161e-05_jprb,5.4721e-05_jprb,5.3605e-05_jprb,&
 & 5.0657e-05_jprb,4.5130e-05_jprb,3.2908e-04_jprb/)  
kao( :, 5,10, 4) = (/&
 & 3.2849e-05_jprb,4.7929e-05_jprb,5.3191e-05_jprb,5.5555e-05_jprb,5.6151e-05_jprb,5.5034e-05_jprb,&
 & 5.1913e-05_jprb,4.6196e-05_jprb,3.2646e-04_jprb/)  
kao( :, 1,11, 4) = (/&
 & 2.6856e-05_jprb,3.7683e-05_jprb,4.1693e-05_jprb,4.3606e-05_jprb,4.3883e-05_jprb,4.2891e-05_jprb,&
 & 4.0459e-05_jprb,3.5912e-05_jprb,4.0077e-04_jprb/)  
kao( :, 2,11, 4) = (/&
 & 2.7039e-05_jprb,3.8497e-05_jprb,4.2726e-05_jprb,4.4727e-05_jprb,4.5037e-05_jprb,4.4055e-05_jprb,&
 & 4.1621e-05_jprb,3.6978e-05_jprb,3.9949e-04_jprb/)  
kao( :, 3,11, 4) = (/&
 & 2.7307e-05_jprb,3.9484e-05_jprb,4.3818e-05_jprb,4.5808e-05_jprb,4.6194e-05_jprb,4.5211e-05_jprb,&
 & 4.2730e-05_jprb,3.7986e-05_jprb,3.9696e-04_jprb/)  
kao( :, 4,11, 4) = (/&
 & 2.7612e-05_jprb,4.0551e-05_jprb,4.5021e-05_jprb,4.6980e-05_jprb,4.7421e-05_jprb,4.6420e-05_jprb,&
 & 4.3860e-05_jprb,3.8943e-05_jprb,3.9400e-04_jprb/)  
kao( :, 5,11, 4) = (/&
 & 2.7944e-05_jprb,4.1639e-05_jprb,4.6278e-05_jprb,4.8247e-05_jprb,4.8726e-05_jprb,4.7717e-05_jprb,&
 & 4.5010e-05_jprb,3.9912e-05_jprb,3.9021e-04_jprb/)  
kao( :, 1,12, 4) = (/&
 & 2.2674e-05_jprb,3.2256e-05_jprb,3.5706e-05_jprb,3.7375e-05_jprb,3.7620e-05_jprb,3.6748e-05_jprb,&
 & 3.4672e-05_jprb,3.0753e-05_jprb,3.9801e-04_jprb/)  
kao( :, 2,12, 4) = (/&
 & 2.2856e-05_jprb,3.3035e-05_jprb,3.6681e-05_jprb,3.8389e-05_jprb,3.8658e-05_jprb,3.7799e-05_jprb,&
 & 3.5709e-05_jprb,3.1711e-05_jprb,3.9549e-04_jprb/)  
kao( :, 3,12, 4) = (/&
 & 2.3070e-05_jprb,3.3949e-05_jprb,3.7724e-05_jprb,3.9400e-05_jprb,3.9718e-05_jprb,3.8860e-05_jprb,&
 & 3.6712e-05_jprb,3.2588e-05_jprb,3.9241e-04_jprb/)  
kao( :, 4,12, 4) = (/&
 & 2.3301e-05_jprb,3.4905e-05_jprb,3.8836e-05_jprb,4.0484e-05_jprb,4.0838e-05_jprb,3.9966e-05_jprb,&
 & 3.7706e-05_jprb,3.3447e-05_jprb,3.8870e-04_jprb/)  
kao( :, 5,12, 4) = (/&
 & 2.3543e-05_jprb,3.5840e-05_jprb,3.9948e-05_jprb,4.1657e-05_jprb,4.2028e-05_jprb,4.1130e-05_jprb,&
 & 3.8770e-05_jprb,3.4320e-05_jprb,3.8474e-04_jprb/)  
kao( :, 1,13, 4) = (/&
 & 1.9048e-05_jprb,2.7433e-05_jprb,3.0355e-05_jprb,3.1781e-05_jprb,3.2020e-05_jprb,3.1297e-05_jprb,&
 & 2.9545e-05_jprb,2.6213e-05_jprb,3.3572e-04_jprb/)  
kao( :, 2,13, 4) = (/&
 & 1.9186e-05_jprb,2.8151e-05_jprb,3.1249e-05_jprb,3.2687e-05_jprb,3.2953e-05_jprb,3.2236e-05_jprb,&
 & 3.0464e-05_jprb,2.7042e-05_jprb,3.3299e-04_jprb/)  
kao( :, 3,13, 4) = (/&
 & 1.9336e-05_jprb,2.8946e-05_jprb,3.2213e-05_jprb,3.3632e-05_jprb,3.3925e-05_jprb,3.3202e-05_jprb,&
 & 3.1346e-05_jprb,2.7832e-05_jprb,3.2995e-04_jprb/)  
kao( :, 4,13, 4) = (/&
 & 1.9500e-05_jprb,2.9752e-05_jprb,3.3189e-05_jprb,3.4641e-05_jprb,3.4936e-05_jprb,3.4186e-05_jprb,&
 & 3.2242e-05_jprb,2.8586e-05_jprb,3.2636e-04_jprb/)  
kao( :, 5,13, 4) = (/&
 & 1.9647e-05_jprb,3.0517e-05_jprb,3.4157e-05_jprb,3.5690e-05_jprb,3.6009e-05_jprb,3.5240e-05_jprb,&
 & 3.3224e-05_jprb,2.9383e-05_jprb,3.2302e-04_jprb/)  
kao( :, 1, 1, 5) = (/&
 & 1.5710e-04_jprb,2.0320e-04_jprb,2.2809e-04_jprb,2.4127e-04_jprb,2.4664e-04_jprb,2.4637e-04_jprb,&
 & 2.3954e-04_jprb,2.2558e-04_jprb,1.9226e-04_jprb/)  
kao( :, 2, 1, 5) = (/&
 & 1.5763e-04_jprb,2.0602e-04_jprb,2.3252e-04_jprb,2.4654e-04_jprb,2.5266e-04_jprb,2.5275e-04_jprb,&
 & 2.4636e-04_jprb,2.3254e-04_jprb,1.9836e-04_jprb/)  
kao( :, 3, 1, 5) = (/&
 & 1.5885e-04_jprb,2.0936e-04_jprb,2.3726e-04_jprb,2.5211e-04_jprb,2.5917e-04_jprb,2.5987e-04_jprb,&
 & 2.5423e-04_jprb,2.4110e-04_jprb,2.0597e-04_jprb/)  
kao( :, 4, 1, 5) = (/&
 & 1.6010e-04_jprb,2.1292e-04_jprb,2.4195e-04_jprb,2.5773e-04_jprb,2.6599e-04_jprb,2.6801e-04_jprb,&
 & 2.6343e-04_jprb,2.5079e-04_jprb,2.1448e-04_jprb/)  
kao( :, 5, 1, 5) = (/&
 & 1.6183e-04_jprb,2.1689e-04_jprb,2.4710e-04_jprb,2.6390e-04_jprb,2.7349e-04_jprb,2.7678e-04_jprb,&
 & 2.7286e-04_jprb,2.6055e-04_jprb,2.2334e-04_jprb/)  
kao( :, 1, 2, 5) = (/&
 & 1.4264e-04_jprb,1.8747e-04_jprb,2.0916e-04_jprb,2.2048e-04_jprb,2.2542e-04_jprb,2.2467e-04_jprb,&
 & 2.1833e-04_jprb,2.0428e-04_jprb,1.7002e-04_jprb/)  
kao( :, 2, 2, 5) = (/&
 & 1.4357e-04_jprb,1.9029e-04_jprb,2.1342e-04_jprb,2.2542e-04_jprb,2.3082e-04_jprb,2.3044e-04_jprb,&
 & 2.2413e-04_jprb,2.1022e-04_jprb,1.7510e-04_jprb/)  
kao( :, 3, 2, 5) = (/&
 & 1.4512e-04_jprb,1.9354e-04_jprb,2.1804e-04_jprb,2.3071e-04_jprb,2.3662e-04_jprb,2.3677e-04_jprb,&
 & 2.3090e-04_jprb,2.1760e-04_jprb,1.8164e-04_jprb/)  
kao( :, 4, 2, 5) = (/&
 & 1.4675e-04_jprb,1.9716e-04_jprb,2.2262e-04_jprb,2.3622e-04_jprb,2.4303e-04_jprb,2.4400e-04_jprb,&
 & 2.3876e-04_jprb,2.2602e-04_jprb,1.8905e-04_jprb/)  
kao( :, 5, 2, 5) = (/&
 & 1.4825e-04_jprb,2.0084e-04_jprb,2.2744e-04_jprb,2.4214e-04_jprb,2.4980e-04_jprb,2.5170e-04_jprb,&
 & 2.4697e-04_jprb,2.3468e-04_jprb,1.9668e-04_jprb/)  
kao( :, 1, 3, 5) = (/&
 & 1.2913e-04_jprb,1.7105e-04_jprb,1.8962e-04_jprb,1.9927e-04_jprb,2.0344e-04_jprb,2.0263e-04_jprb,&
 & 1.9648e-04_jprb,1.8374e-04_jprb,1.5154e-04_jprb/)  
kao( :, 2, 3, 5) = (/&
 & 1.3034e-04_jprb,1.7385e-04_jprb,1.9352e-04_jprb,2.0379e-04_jprb,2.0816e-04_jprb,2.0767e-04_jprb,&
 & 2.0141e-04_jprb,1.8880e-04_jprb,1.5543e-04_jprb/)  
kao( :, 3, 3, 5) = (/&
 & 1.3189e-04_jprb,1.7683e-04_jprb,1.9785e-04_jprb,2.0858e-04_jprb,2.1306e-04_jprb,2.1289e-04_jprb,&
 & 2.0705e-04_jprb,1.9450e-04_jprb,1.6042e-04_jprb/)  
kao( :, 4, 3, 5) = (/&
 & 1.3375e-04_jprb,1.8038e-04_jprb,2.0233e-04_jprb,2.1375e-04_jprb,2.1890e-04_jprb,2.1897e-04_jprb,&
 & 2.1362e-04_jprb,2.0111e-04_jprb,1.6638e-04_jprb/)  
kao( :, 5, 3, 5) = (/&
 & 1.3531e-04_jprb,1.8393e-04_jprb,2.0677e-04_jprb,2.1903e-04_jprb,2.2516e-04_jprb,2.2557e-04_jprb,&
 & 2.2073e-04_jprb,2.0849e-04_jprb,1.7278e-04_jprb/)  
kao( :, 1, 4, 5) = (/&
 & 1.1675e-04_jprb,1.5471e-04_jprb,1.7086e-04_jprb,1.7907e-04_jprb,1.8234e-04_jprb,1.8104e-04_jprb,&
 & 1.7606e-04_jprb,1.6488e-04_jprb,1.3686e-04_jprb/)  
kao( :, 2, 4, 5) = (/&
 & 1.1811e-04_jprb,1.5738e-04_jprb,1.7430e-04_jprb,1.8299e-04_jprb,1.8662e-04_jprb,1.8551e-04_jprb,&
 & 1.8028e-04_jprb,1.6914e-04_jprb,1.4021e-04_jprb/)  
kao( :, 3, 4, 5) = (/&
 & 1.1971e-04_jprb,1.6033e-04_jprb,1.7826e-04_jprb,1.8706e-04_jprb,1.9073e-04_jprb,1.9003e-04_jprb,&
 & 1.8491e-04_jprb,1.7381e-04_jprb,1.4440e-04_jprb/)  
kao( :, 4, 4, 5) = (/&
 & 1.2145e-04_jprb,1.6360e-04_jprb,1.8232e-04_jprb,1.9160e-04_jprb,1.9546e-04_jprb,1.9520e-04_jprb,&
 & 1.9032e-04_jprb,1.7913e-04_jprb,1.4919e-04_jprb/)  
kao( :, 5, 4, 5) = (/&
 & 1.2345e-04_jprb,1.6734e-04_jprb,1.8679e-04_jprb,1.9667e-04_jprb,2.0102e-04_jprb,2.0119e-04_jprb,&
 & 1.9631e-04_jprb,1.8511e-04_jprb,1.5453e-04_jprb/)  
kao( :, 1, 5, 5) = (/&
 & 1.0534e-04_jprb,1.3892e-04_jprb,1.5318e-04_jprb,1.6013e-04_jprb,1.6249e-04_jprb,1.6140e-04_jprb,&
 & 1.5677e-04_jprb,1.4673e-04_jprb,1.2734e-04_jprb/)  
kao( :, 2, 5, 5) = (/&
 & 1.0682e-04_jprb,1.4149e-04_jprb,1.5615e-04_jprb,1.6351e-04_jprb,1.6643e-04_jprb,1.6536e-04_jprb,&
 & 1.6060e-04_jprb,1.5077e-04_jprb,1.3032e-04_jprb/)  
kao( :, 3, 5, 5) = (/&
 & 1.0832e-04_jprb,1.4437e-04_jprb,1.5968e-04_jprb,1.6719e-04_jprb,1.7007e-04_jprb,1.6925e-04_jprb,&
 & 1.6475e-04_jprb,1.5487e-04_jprb,1.3383e-04_jprb/)  

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


SUBROUTINE part4

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


kao( :, 4, 5, 5) = (/&
 & 1.0998e-04_jprb,1.4759e-04_jprb,1.6348e-04_jprb,1.7115e-04_jprb,1.7411e-04_jprb,1.7355e-04_jprb,&
 & 1.6947e-04_jprb,1.5945e-04_jprb,1.3787e-04_jprb/)  
kao( :, 5, 5, 5) = (/&
 & 1.1196e-04_jprb,1.5129e-04_jprb,1.6770e-04_jprb,1.7586e-04_jprb,1.7902e-04_jprb,1.7859e-04_jprb,&
 & 1.7456e-04_jprb,1.6452e-04_jprb,1.4233e-04_jprb/)  
kao( :, 1, 6, 5) = (/&
 & 9.4514e-05_jprb,1.2412e-04_jprb,1.3657e-04_jprb,1.4247e-04_jprb,1.4441e-04_jprb,1.4315e-04_jprb,&
 & 1.3838e-04_jprb,1.2929e-04_jprb,1.2327e-04_jprb/)  
kao( :, 2, 6, 5) = (/&
 & 9.5941e-05_jprb,1.2645e-04_jprb,1.3931e-04_jprb,1.4558e-04_jprb,1.4789e-04_jprb,1.4670e-04_jprb,&
 & 1.4200e-04_jprb,1.3303e-04_jprb,1.2601e-04_jprb/)  
kao( :, 3, 6, 5) = (/&
 & 9.7365e-05_jprb,1.2920e-04_jprb,1.4235e-04_jprb,1.4876e-04_jprb,1.5129e-04_jprb,1.5035e-04_jprb,&
 & 1.4574e-04_jprb,1.3687e-04_jprb,1.2924e-04_jprb/)  
kao( :, 4, 6, 5) = (/&
 & 9.8894e-05_jprb,1.3238e-04_jprb,1.4586e-04_jprb,1.5224e-04_jprb,1.5484e-04_jprb,1.5423e-04_jprb,&
 & 1.4989e-04_jprb,1.4089e-04_jprb,1.3292e-04_jprb/)  
kao( :, 5, 6, 5) = (/&
 & 1.0059e-04_jprb,1.3577e-04_jprb,1.4967e-04_jprb,1.5644e-04_jprb,1.5902e-04_jprb,1.5844e-04_jprb,&
 & 1.5428e-04_jprb,1.4522e-04_jprb,1.3684e-04_jprb/)  
kao( :, 1, 7, 5) = (/&
 & 8.3817e-05_jprb,1.1024e-04_jprb,1.2069e-04_jprb,1.2606e-04_jprb,1.2762e-04_jprb,1.2601e-04_jprb,&
 & 1.2142e-04_jprb,1.1275e-04_jprb,1.2580e-04_jprb/)  
kao( :, 2, 7, 5) = (/&
 & 8.5049e-05_jprb,1.1240e-04_jprb,1.2345e-04_jprb,1.2908e-04_jprb,1.3088e-04_jprb,1.2946e-04_jprb,&
 & 1.2489e-04_jprb,1.1643e-04_jprb,1.2769e-04_jprb/)  
kao( :, 3, 7, 5) = (/&
 & 8.6443e-05_jprb,1.1489e-04_jprb,1.2631e-04_jprb,1.3210e-04_jprb,1.3408e-04_jprb,1.3284e-04_jprb,&
 & 1.2822e-04_jprb,1.1996e-04_jprb,1.3009e-04_jprb/)  
kao( :, 4, 7, 5) = (/&
 & 8.7868e-05_jprb,1.1787e-04_jprb,1.2952e-04_jprb,1.3521e-04_jprb,1.3734e-04_jprb,1.3637e-04_jprb,&
 & 1.3189e-04_jprb,1.2366e-04_jprb,1.3307e-04_jprb/)  
kao( :, 5, 7, 5) = (/&
 & 8.9520e-05_jprb,1.2113e-04_jprb,1.3311e-04_jprb,1.3890e-04_jprb,1.4111e-04_jprb,1.4019e-04_jprb,&
 & 1.3574e-04_jprb,1.2746e-04_jprb,1.3629e-04_jprb/)  
kao( :, 1, 8, 5) = (/&
 & 7.3739e-05_jprb,9.7315e-05_jprb,1.0630e-04_jprb,1.1091e-04_jprb,1.1210e-04_jprb,1.1034e-04_jprb,&
 & 1.0576e-04_jprb,9.7435e-05_jprb,1.5219e-04_jprb/)  
kao( :, 2, 8, 5) = (/&
 & 7.4739e-05_jprb,9.9339e-05_jprb,1.0888e-04_jprb,1.1385e-04_jprb,1.1515e-04_jprb,1.1361e-04_jprb,&
 & 1.0914e-04_jprb,1.0091e-04_jprb,1.5078e-04_jprb/)  
kao( :, 3, 8, 5) = (/&
 & 7.5979e-05_jprb,1.0158e-04_jprb,1.1168e-04_jprb,1.1676e-04_jprb,1.1825e-04_jprb,1.1684e-04_jprb,&
 & 1.1240e-04_jprb,1.0417e-04_jprb,1.5044e-04_jprb/)  
kao( :, 4, 8, 5) = (/&
 & 7.7389e-05_jprb,1.0425e-04_jprb,1.1460e-04_jprb,1.1977e-04_jprb,1.2131e-04_jprb,1.2000e-04_jprb,&
 & 1.1564e-04_jprb,1.0754e-04_jprb,1.5083e-04_jprb/)  
kao( :, 5, 8, 5) = (/&
 & 7.8988e-05_jprb,1.0719e-04_jprb,1.1787e-04_jprb,1.2308e-04_jprb,1.2465e-04_jprb,1.2345e-04_jprb,&
 & 1.1918e-04_jprb,1.1099e-04_jprb,1.5186e-04_jprb/)  
kao( :, 1, 9, 5) = (/&
 & 6.4327e-05_jprb,8.5194e-05_jprb,9.3124e-05_jprb,9.6906e-05_jprb,9.7902e-05_jprb,9.6087e-05_jprb,&
 & 9.1486e-05_jprb,8.3530e-05_jprb,3.0559e-04_jprb/)  
kao( :, 2, 9, 5) = (/&
 & 6.5169e-05_jprb,8.7114e-05_jprb,9.5498e-05_jprb,9.9699e-05_jprb,1.0078e-04_jprb,9.9075e-05_jprb,&
 & 9.4585e-05_jprb,8.6649e-05_jprb,3.0376e-04_jprb/)  
kao( :, 3, 9, 5) = (/&
 & 6.6228e-05_jprb,8.9174e-05_jprb,9.8080e-05_jprb,1.0257e-04_jprb,1.0373e-04_jprb,1.0212e-04_jprb,&
 & 9.7761e-05_jprb,8.9715e-05_jprb,3.0205e-04_jprb/)  
kao( :, 4, 9, 5) = (/&
 & 6.7560e-05_jprb,9.1493e-05_jprb,1.0085e-04_jprb,1.0546e-04_jprb,1.0670e-04_jprb,1.0511e-04_jprb,&
 & 1.0078e-04_jprb,9.2773e-05_jprb,2.9925e-04_jprb/)  
kao( :, 5, 9, 5) = (/&
 & 6.9090e-05_jprb,9.4108e-05_jprb,1.0377e-04_jprb,1.0852e-04_jprb,1.0981e-04_jprb,1.0822e-04_jprb,&
 & 1.0396e-04_jprb,9.5948e-05_jprb,2.9560e-04_jprb/)  
kao( :, 1,10, 5) = (/&
 & 5.5732e-05_jprb,7.4195e-05_jprb,8.1092e-05_jprb,8.4263e-05_jprb,8.5004e-05_jprb,8.3260e-05_jprb,&
 & 7.8896e-05_jprb,7.1326e-05_jprb,7.3141e-04_jprb/)  
kao( :, 2,10, 5) = (/&
 & 5.6464e-05_jprb,7.5996e-05_jprb,8.3306e-05_jprb,8.6877e-05_jprb,8.7776e-05_jprb,8.6058e-05_jprb,&
 & 8.1636e-05_jprb,7.4082e-05_jprb,7.1679e-04_jprb/)  
kao( :, 3,10, 5) = (/&
 & 5.7403e-05_jprb,7.7891e-05_jprb,8.5666e-05_jprb,8.9585e-05_jprb,9.0592e-05_jprb,8.8875e-05_jprb,&
 & 8.4523e-05_jprb,7.6897e-05_jprb,7.0421e-04_jprb/)  
kao( :, 4,10, 5) = (/&
 & 5.8620e-05_jprb,7.9933e-05_jprb,8.8213e-05_jprb,9.2386e-05_jprb,9.3433e-05_jprb,9.1667e-05_jprb,&
 & 8.7388e-05_jprb,7.9742e-05_jprb,6.9385e-04_jprb/)  
kao( :, 5,10, 5) = (/&
 & 6.0067e-05_jprb,8.2256e-05_jprb,9.0893e-05_jprb,9.5273e-05_jprb,9.6366e-05_jprb,9.4596e-05_jprb,&
 & 9.0298e-05_jprb,8.2632e-05_jprb,6.8465e-04_jprb/)  
kao( :, 1,11, 5) = (/&
 & 4.8186e-05_jprb,6.4983e-05_jprb,7.1108e-05_jprb,7.3858e-05_jprb,7.4401e-05_jprb,7.2817e-05_jprb,&
 & 6.8716e-05_jprb,6.1721e-05_jprb,9.3137e-04_jprb/)  
kao( :, 2,11, 5) = (/&
 & 4.8927e-05_jprb,6.6681e-05_jprb,7.3165e-05_jprb,7.6242e-05_jprb,7.7034e-05_jprb,7.5453e-05_jprb,&
 & 7.1255e-05_jprb,6.4142e-05_jprb,9.0283e-04_jprb/)  
kao( :, 3,11, 5) = (/&
 & 4.9906e-05_jprb,6.8442e-05_jprb,7.5379e-05_jprb,7.8833e-05_jprb,7.9706e-05_jprb,7.8052e-05_jprb,&
 & 7.3833e-05_jprb,6.6698e-05_jprb,8.7896e-04_jprb/)  
kao( :, 4,11, 5) = (/&
 & 5.1140e-05_jprb,7.0403e-05_jprb,7.7738e-05_jprb,8.1490e-05_jprb,8.2392e-05_jprb,8.0715e-05_jprb,&
 & 7.6507e-05_jprb,6.9333e-05_jprb,8.5877e-04_jprb/)  
kao( :, 5,11, 5) = (/&
 & 5.2547e-05_jprb,7.2595e-05_jprb,8.0310e-05_jprb,8.4272e-05_jprb,8.5190e-05_jprb,8.3479e-05_jprb,&
 & 7.9204e-05_jprb,7.1956e-05_jprb,8.4129e-04_jprb/)  
kao( :, 1,12, 5) = (/&
 & 4.1357e-05_jprb,5.6591e-05_jprb,6.2004e-05_jprb,6.4335e-05_jprb,6.4718e-05_jprb,6.3255e-05_jprb,&
 & 5.9536e-05_jprb,5.3170e-05_jprb,9.4628e-04_jprb/)  
kao( :, 2,12, 5) = (/&
 & 4.2117e-05_jprb,5.8142e-05_jprb,6.3912e-05_jprb,6.6563e-05_jprb,6.7175e-05_jprb,6.5721e-05_jprb,&
 & 6.1864e-05_jprb,5.5283e-05_jprb,9.1448e-04_jprb/)  
kao( :, 3,12, 5) = (/&
 & 4.3123e-05_jprb,5.9831e-05_jprb,6.5955e-05_jprb,6.8956e-05_jprb,6.9677e-05_jprb,6.8113e-05_jprb,&
 & 6.4202e-05_jprb,5.7597e-05_jprb,8.8738e-04_jprb/)  
kao( :, 4,12, 5) = (/&
 & 4.4308e-05_jprb,6.1719e-05_jprb,6.8165e-05_jprb,7.1448e-05_jprb,7.2209e-05_jprb,7.0617e-05_jprb,&
 & 6.6651e-05_jprb,5.9974e-05_jprb,8.6370e-04_jprb/)  
kao( :, 5,12, 5) = (/&
 & 4.5586e-05_jprb,6.3825e-05_jprb,7.0651e-05_jprb,7.4074e-05_jprb,7.4824e-05_jprb,7.3199e-05_jprb,&
 & 6.9129e-05_jprb,6.2368e-05_jprb,8.4394e-04_jprb/)  
kao( :, 1,13, 5) = (/&
 & 3.5199e-05_jprb,4.8904e-05_jprb,5.3685e-05_jprb,5.5708e-05_jprb,5.5958e-05_jprb,5.4602e-05_jprb,&
 & 5.1289e-05_jprb,4.5544e-05_jprb,7.9844e-04_jprb/)  
kao( :, 2,13, 5) = (/&
 & 3.5968e-05_jprb,5.0359e-05_jprb,5.5441e-05_jprb,5.7776e-05_jprb,5.8210e-05_jprb,5.6833e-05_jprb,&
 & 5.3406e-05_jprb,4.7437e-05_jprb,7.7225e-04_jprb/)  
kao( :, 3,13, 5) = (/&
 & 3.6919e-05_jprb,5.1978e-05_jprb,5.7339e-05_jprb,5.9942e-05_jprb,6.0487e-05_jprb,5.9061e-05_jprb,&
 & 5.5548e-05_jprb,4.9491e-05_jprb,7.4964e-04_jprb/)  
kao( :, 4,13, 5) = (/&
 & 3.7983e-05_jprb,5.3790e-05_jprb,5.9444e-05_jprb,6.2256e-05_jprb,6.2844e-05_jprb,6.1377e-05_jprb,&
 & 5.7755e-05_jprb,5.1611e-05_jprb,7.3016e-04_jprb/)  
kao( :, 5,13, 5) = (/&
 & 3.9071e-05_jprb,5.5803e-05_jprb,6.1798e-05_jprb,6.4723e-05_jprb,6.5302e-05_jprb,6.3732e-05_jprb,&
 & 5.9993e-05_jprb,5.3748e-05_jprb,7.1404e-04_jprb/)  
kao( :, 1, 1, 6) = (/&
 & 2.5660e-04_jprb,3.1807e-04_jprb,3.6094e-04_jprb,3.8920e-04_jprb,4.0736e-04_jprb,4.1545e-04_jprb,&
 & 4.1386e-04_jprb,4.0633e-04_jprb,3.6193e-04_jprb/)  
kao( :, 2, 1, 6) = (/&
 & 2.5865e-04_jprb,3.2319e-04_jprb,3.6764e-04_jprb,3.9762e-04_jprb,4.1800e-04_jprb,4.2858e-04_jprb,&
 & 4.2847e-04_jprb,4.2235e-04_jprb,3.7675e-04_jprb/)  
kao( :, 3, 1, 6) = (/&
 & 2.6137e-04_jprb,3.2915e-04_jprb,3.7535e-04_jprb,4.0750e-04_jprb,4.2970e-04_jprb,4.4147e-04_jprb,&
 & 4.4293e-04_jprb,4.3843e-04_jprb,3.9233e-04_jprb/)  
kao( :, 4, 1, 6) = (/&
 & 2.6360e-04_jprb,3.3488e-04_jprb,3.8404e-04_jprb,4.1788e-04_jprb,4.4114e-04_jprb,4.5427e-04_jprb,&
 & 4.5738e-04_jprb,4.5544e-04_jprb,4.1003e-04_jprb/)  
kao( :, 5, 1, 6) = (/&
 & 2.6660e-04_jprb,3.4173e-04_jprb,3.9350e-04_jprb,4.2919e-04_jprb,4.5400e-04_jprb,4.6894e-04_jprb,&
 & 4.7415e-04_jprb,4.7523e-04_jprb,4.3058e-04_jprb/)  
kao( :, 1, 2, 6) = (/&
 & 2.3631e-04_jprb,2.9631e-04_jprb,3.3525e-04_jprb,3.5919e-04_jprb,3.7267e-04_jprb,3.7835e-04_jprb,&
 & 3.7529e-04_jprb,3.6555e-04_jprb,3.2111e-04_jprb/)  
kao( :, 2, 2, 6) = (/&
 & 2.3829e-04_jprb,3.0128e-04_jprb,3.4159e-04_jprb,3.6758e-04_jprb,3.8290e-04_jprb,3.9019e-04_jprb,&
 & 3.8891e-04_jprb,3.7964e-04_jprb,3.3378e-04_jprb/)  
kao( :, 3, 2, 6) = (/&
 & 2.4092e-04_jprb,3.0698e-04_jprb,3.4893e-04_jprb,3.7703e-04_jprb,3.9429e-04_jprb,4.0240e-04_jprb,&
 & 4.0189e-04_jprb,3.9363e-04_jprb,3.4730e-04_jprb/)  
kao( :, 4, 2, 6) = (/&
 & 2.4353e-04_jprb,3.1280e-04_jprb,3.5757e-04_jprb,3.8697e-04_jprb,4.0550e-04_jprb,4.1447e-04_jprb,&
 & 4.1496e-04_jprb,4.0890e-04_jprb,3.6318e-04_jprb/)  
kao( :, 5, 2, 6) = (/&
 & 2.4646e-04_jprb,3.1930e-04_jprb,3.6666e-04_jprb,3.9774e-04_jprb,4.1741e-04_jprb,4.2801e-04_jprb,&
 & 4.2988e-04_jprb,4.2637e-04_jprb,3.8102e-04_jprb/)  
kao( :, 1, 3, 6) = (/&
 & 2.1702e-04_jprb,2.7392e-04_jprb,3.0713e-04_jprb,3.2661e-04_jprb,3.3701e-04_jprb,3.4012e-04_jprb,&
 & 3.3574e-04_jprb,3.2367e-04_jprb,2.7953e-04_jprb/)  
kao( :, 2, 3, 6) = (/&
 & 2.1882e-04_jprb,2.7874e-04_jprb,3.1368e-04_jprb,3.3483e-04_jprb,3.4655e-04_jprb,3.5089e-04_jprb,&
 & 3.4836e-04_jprb,3.3662e-04_jprb,2.9075e-04_jprb/)  
kao( :, 3, 3, 6) = (/&
 & 2.2093e-04_jprb,2.8379e-04_jprb,3.2031e-04_jprb,3.4355e-04_jprb,3.5690e-04_jprb,3.6196e-04_jprb,&
 & 3.6029e-04_jprb,3.4924e-04_jprb,3.0255e-04_jprb/)  
kao( :, 4, 3, 6) = (/&
 & 2.2391e-04_jprb,2.8964e-04_jprb,3.2857e-04_jprb,3.5322e-04_jprb,3.6741e-04_jprb,3.7364e-04_jprb,&
 & 3.7227e-04_jprb,3.6287e-04_jprb,3.1610e-04_jprb/)  
kao( :, 5, 3, 6) = (/&
 & 2.2678e-04_jprb,2.9569e-04_jprb,3.3712e-04_jprb,3.6314e-04_jprb,3.7839e-04_jprb,3.8589e-04_jprb,&
 & 3.8538e-04_jprb,3.7808e-04_jprb,3.3103e-04_jprb/)  
kao( :, 1, 4, 6) = (/&
 & 1.9893e-04_jprb,2.5184e-04_jprb,2.7904e-04_jprb,2.9424e-04_jprb,3.0215e-04_jprb,3.0353e-04_jprb,&
 & 2.9750e-04_jprb,2.8367e-04_jprb,2.4378e-04_jprb/)  
kao( :, 2, 4, 6) = (/&
 & 2.0039e-04_jprb,2.5636e-04_jprb,2.8551e-04_jprb,3.0218e-04_jprb,3.1138e-04_jprb,3.1364e-04_jprb,&
 & 3.0933e-04_jprb,2.9596e-04_jprb,2.5360e-04_jprb/)  
kao( :, 3, 4, 6) = (/&
 & 2.0244e-04_jprb,2.6111e-04_jprb,2.9172e-04_jprb,3.1073e-04_jprb,3.2138e-04_jprb,3.2408e-04_jprb,&
 & 3.2030e-04_jprb,3.0766e-04_jprb,2.6380e-04_jprb/)  
kao( :, 4, 4, 6) = (/&
 & 2.0501e-04_jprb,2.6640e-04_jprb,2.9889e-04_jprb,3.1956e-04_jprb,3.3116e-04_jprb,3.3435e-04_jprb,&
 & 3.3120e-04_jprb,3.1983e-04_jprb,2.7551e-04_jprb/)  
kao( :, 5, 4, 6) = (/&
 & 2.0836e-04_jprb,2.7264e-04_jprb,3.0721e-04_jprb,3.2917e-04_jprb,3.4139e-04_jprb,3.4585e-04_jprb,&
 & 3.4342e-04_jprb,3.3321e-04_jprb,2.8833e-04_jprb/)  
kao( :, 1, 5, 6) = (/&
 & 1.8177e-04_jprb,2.3005e-04_jprb,2.5216e-04_jprb,2.6400e-04_jprb,2.6980e-04_jprb,2.6977e-04_jprb,&
 & 2.6270e-04_jprb,2.4807e-04_jprb,2.1566e-04_jprb/)  
kao( :, 2, 5, 6) = (/&
 & 1.8288e-04_jprb,2.3456e-04_jprb,2.5850e-04_jprb,2.7178e-04_jprb,2.7838e-04_jprb,2.7918e-04_jprb,&
 & 2.7326e-04_jprb,2.5893e-04_jprb,2.2464e-04_jprb/)  
kao( :, 3, 5, 6) = (/&
 & 1.8495e-04_jprb,2.3899e-04_jprb,2.6446e-04_jprb,2.7972e-04_jprb,2.8778e-04_jprb,2.8887e-04_jprb,&
 & 2.8352e-04_jprb,2.6965e-04_jprb,2.3371e-04_jprb/)  
kao( :, 4, 5, 6) = (/&
 & 1.8757e-04_jprb,2.4389e-04_jprb,2.7104e-04_jprb,2.8807e-04_jprb,2.9709e-04_jprb,2.9855e-04_jprb,&
 & 2.9335e-04_jprb,2.8065e-04_jprb,2.4386e-04_jprb/)  
kao( :, 5, 5, 6) = (/&
 & 1.9089e-04_jprb,2.4987e-04_jprb,2.7871e-04_jprb,2.9704e-04_jprb,3.0660e-04_jprb,3.0888e-04_jprb,&
 & 3.0414e-04_jprb,2.9240e-04_jprb,2.5489e-04_jprb/)  
kao( :, 1, 6, 6) = (/&
 & 1.6548e-04_jprb,2.0845e-04_jprb,2.2667e-04_jprb,2.3621e-04_jprb,2.3998e-04_jprb,2.3852e-04_jprb,&
 & 2.3181e-04_jprb,2.1713e-04_jprb,1.9774e-04_jprb/)  
kao( :, 2, 6, 6) = (/&
 & 1.6647e-04_jprb,2.1295e-04_jprb,2.3285e-04_jprb,2.4356e-04_jprb,2.4798e-04_jprb,2.4711e-04_jprb,&
 & 2.4086e-04_jprb,2.2656e-04_jprb,2.0619e-04_jprb/)  
kao( :, 3, 6, 6) = (/&
 & 1.6832e-04_jprb,2.1735e-04_jprb,2.3897e-04_jprb,2.5101e-04_jprb,2.5638e-04_jprb,2.5608e-04_jprb,&
 & 2.5005e-04_jprb,2.3612e-04_jprb,2.1472e-04_jprb/)  
kao( :, 4, 6, 6) = (/&
 & 1.7090e-04_jprb,2.2192e-04_jprb,2.4527e-04_jprb,2.5863e-04_jprb,2.6479e-04_jprb,2.6498e-04_jprb,&
 & 2.5909e-04_jprb,2.4595e-04_jprb,2.2382e-04_jprb/)  
kao( :, 5, 6, 6) = (/&
 & 1.7392e-04_jprb,2.2728e-04_jprb,2.5204e-04_jprb,2.6653e-04_jprb,2.7329e-04_jprb,2.7417e-04_jprb,&
 & 2.6871e-04_jprb,2.5622e-04_jprb,2.3379e-04_jprb/)  
kao( :, 1, 7, 6) = (/&
 & 1.4974e-04_jprb,1.8746e-04_jprb,2.0303e-04_jprb,2.1075e-04_jprb,2.1306e-04_jprb,2.1110e-04_jprb,&
 & 2.0431e-04_jprb,1.8998e-04_jprb,1.9358e-04_jprb/)  
kao( :, 2, 7, 6) = (/&
 & 1.5089e-04_jprb,1.9183e-04_jprb,2.0895e-04_jprb,2.1750e-04_jprb,2.2044e-04_jprb,2.1873e-04_jprb,&
 & 2.1228e-04_jprb,1.9808e-04_jprb,2.0012e-04_jprb/)  
kao( :, 3, 7, 6) = (/&
 & 1.5257e-04_jprb,1.9611e-04_jprb,2.1478e-04_jprb,2.2448e-04_jprb,2.2805e-04_jprb,2.2660e-04_jprb,&
 & 2.2066e-04_jprb,2.0672e-04_jprb,2.0775e-04_jprb/)  
kao( :, 4, 7, 6) = (/&
 & 1.5493e-04_jprb,2.0056e-04_jprb,2.2076e-04_jprb,2.3152e-04_jprb,2.3569e-04_jprb,2.3461e-04_jprb,&
 & 2.2897e-04_jprb,2.1559e-04_jprb,2.1605e-04_jprb/)  
kao( :, 5, 7, 6) = (/&
 & 1.5774e-04_jprb,2.0562e-04_jprb,2.2715e-04_jprb,2.3878e-04_jprb,2.4330e-04_jprb,2.4290e-04_jprb,&
 & 2.3768e-04_jprb,2.2474e-04_jprb,2.2537e-04_jprb/)  
kao( :, 1, 8, 6) = (/&
 & 1.3469e-04_jprb,1.6768e-04_jprb,1.8125e-04_jprb,1.8765e-04_jprb,1.8912e-04_jprb,1.8647e-04_jprb,&
 & 1.7925e-04_jprb,1.6551e-04_jprb,2.2549e-04_jprb/)  
kao( :, 2, 8, 6) = (/&
 & 1.3601e-04_jprb,1.7179e-04_jprb,1.8676e-04_jprb,1.9388e-04_jprb,1.9601e-04_jprb,1.9365e-04_jprb,&
 & 1.8651e-04_jprb,1.7268e-04_jprb,2.2728e-04_jprb/)  
kao( :, 3, 8, 6) = (/&
 & 1.3770e-04_jprb,1.7606e-04_jprb,1.9214e-04_jprb,2.0024e-04_jprb,2.0294e-04_jprb,2.0077e-04_jprb,&
 & 1.9394e-04_jprb,1.8025e-04_jprb,2.3037e-04_jprb/)  
kao( :, 4, 8, 6) = (/&
 & 1.3980e-04_jprb,1.8052e-04_jprb,1.9782e-04_jprb,2.0667e-04_jprb,2.0985e-04_jprb,2.0804e-04_jprb,&
 & 2.0170e-04_jprb,1.8820e-04_jprb,2.3502e-04_jprb/)  
kao( :, 5, 8, 6) = (/&
 & 1.4234e-04_jprb,1.8549e-04_jprb,2.0378e-04_jprb,2.1326e-04_jprb,2.1685e-04_jprb,2.1554e-04_jprb,&
 & 2.0965e-04_jprb,1.9644e-04_jprb,2.4136e-04_jprb/)  
kao( :, 1, 9, 6) = (/&
 & 1.1992e-04_jprb,1.4933e-04_jprb,1.6105e-04_jprb,1.6671e-04_jprb,1.6730e-04_jprb,1.6393e-04_jprb,&
 & 1.5666e-04_jprb,1.4342e-04_jprb,4.8653e-04_jprb/)  
kao( :, 2, 9, 6) = (/&
 & 1.2149e-04_jprb,1.5326e-04_jprb,1.6624e-04_jprb,1.7247e-04_jprb,1.7376e-04_jprb,1.7057e-04_jprb,&
 & 1.6339e-04_jprb,1.5015e-04_jprb,4.7263e-04_jprb/)  
kao( :, 3, 9, 6) = (/&
 & 1.2314e-04_jprb,1.5738e-04_jprb,1.7131e-04_jprb,1.7818e-04_jprb,1.8004e-04_jprb,1.7724e-04_jprb,&
 & 1.6998e-04_jprb,1.5688e-04_jprb,4.6122e-04_jprb/)  
kao( :, 4, 9, 6) = (/&
 & 1.2514e-04_jprb,1.6177e-04_jprb,1.7650e-04_jprb,1.8400e-04_jprb,1.8641e-04_jprb,1.8403e-04_jprb,&
 & 1.7684e-04_jprb,1.6385e-04_jprb,4.5149e-04_jprb/)  
kao( :, 5, 9, 6) = (/&
 & 1.2748e-04_jprb,1.6660e-04_jprb,1.8214e-04_jprb,1.9005e-04_jprb,1.9284e-04_jprb,1.9097e-04_jprb,&
 & 1.8405e-04_jprb,1.7111e-04_jprb,4.4363e-04_jprb/)  
kao( :, 1,10, 6) = (/&
 & 1.0584e-04_jprb,1.3236e-04_jprb,1.4288e-04_jprb,1.4761e-04_jprb,1.4780e-04_jprb,1.4423e-04_jprb,&
 & 1.3667e-04_jprb,1.2400e-04_jprb,1.5407e-03_jprb/)  
kao( :, 2,10, 6) = (/&
 & 1.0748e-04_jprb,1.3619e-04_jprb,1.4771e-04_jprb,1.5305e-04_jprb,1.5361e-04_jprb,1.5017e-04_jprb,&
 & 1.4291e-04_jprb,1.3024e-04_jprb,1.4707e-03_jprb/)  
kao( :, 3,10, 6) = (/&
 & 1.0916e-04_jprb,1.4012e-04_jprb,1.5258e-04_jprb,1.5840e-04_jprb,1.5929e-04_jprb,1.5625e-04_jprb,&
 & 1.4913e-04_jprb,1.3639e-04_jprb,1.4078e-03_jprb/)  
kao( :, 4,10, 6) = (/&
 & 1.1108e-04_jprb,1.4432e-04_jprb,1.5744e-04_jprb,1.6378e-04_jprb,1.6514e-04_jprb,1.6251e-04_jprb,&
 & 1.5541e-04_jprb,1.4254e-04_jprb,1.3501e-03_jprb/)  
kao( :, 5,10, 6) = (/&
 & 1.1328e-04_jprb,1.4893e-04_jprb,1.6265e-04_jprb,1.6934e-04_jprb,1.7119e-04_jprb,1.6880e-04_jprb,&
 & 1.6190e-04_jprb,1.4900e-04_jprb,1.2982e-03_jprb/)  
kao( :, 1,11, 6) = (/&
 & 9.3489e-05_jprb,1.1825e-04_jprb,1.2805e-04_jprb,1.3224e-04_jprb,1.3232e-04_jprb,1.2873e-04_jprb,&
 & 1.2131e-04_jprb,1.0918e-04_jprb,2.0757e-03_jprb/)  
kao( :, 2,11, 6) = (/&
 & 9.5099e-05_jprb,1.2195e-04_jprb,1.3268e-04_jprb,1.3732e-04_jprb,1.3748e-04_jprb,1.3414e-04_jprb,&
 & 1.2695e-04_jprb,1.1489e-04_jprb,1.9797e-03_jprb/)  
kao( :, 3,11, 6) = (/&
 & 9.6804e-05_jprb,1.2575e-04_jprb,1.3731e-04_jprb,1.4230e-04_jprb,1.4278e-04_jprb,1.3973e-04_jprb,&
 & 1.3283e-04_jprb,1.2047e-04_jprb,1.8901e-03_jprb/)  
kao( :, 4,11, 6) = (/&
 & 9.8710e-05_jprb,1.2986e-04_jprb,1.4205e-04_jprb,1.4740e-04_jprb,1.4826e-04_jprb,1.4548e-04_jprb,&
 & 1.3868e-04_jprb,1.2603e-04_jprb,1.8079e-03_jprb/)  
kao( :, 5,11, 6) = (/&
 & 1.0095e-04_jprb,1.3435e-04_jprb,1.4704e-04_jprb,1.5275e-04_jprb,1.5397e-04_jprb,1.5141e-04_jprb,&
 & 1.4471e-04_jprb,1.3186e-04_jprb,1.7340e-03_jprb/)  

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


SUBROUTINE part5

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


kao( :, 1,12, 6) = (/&
 & 8.2093e-05_jprb,1.0522e-04_jprb,1.1410e-04_jprb,1.1782e-04_jprb,1.1761e-04_jprb,1.1416e-04_jprb,&
 & 1.0724e-04_jprb,9.5735e-05_jprb,2.1586e-03_jprb/)  
kao( :, 2,12, 6) = (/&
 & 8.3669e-05_jprb,1.0871e-04_jprb,1.1846e-04_jprb,1.2251e-04_jprb,1.2240e-04_jprb,1.1908e-04_jprb,&
 & 1.1234e-04_jprb,1.0091e-04_jprb,2.0547e-03_jprb/)  
kao( :, 3,12, 6) = (/&
 & 8.5301e-05_jprb,1.1235e-04_jprb,1.2282e-04_jprb,1.2721e-04_jprb,1.2738e-04_jprb,1.2431e-04_jprb,&
 & 1.1770e-04_jprb,1.0601e-04_jprb,1.9599e-03_jprb/)  
kao( :, 4,12, 6) = (/&
 & 8.7242e-05_jprb,1.1626e-04_jprb,1.2740e-04_jprb,1.3207e-04_jprb,1.3252e-04_jprb,1.2966e-04_jprb,&
 & 1.2318e-04_jprb,1.1105e-04_jprb,1.8736e-03_jprb/)  
kao( :, 5,12, 6) = (/&
 & 8.9569e-05_jprb,1.2041e-04_jprb,1.3214e-04_jprb,1.3715e-04_jprb,1.3802e-04_jprb,1.3533e-04_jprb,&
 & 1.2876e-04_jprb,1.1627e-04_jprb,1.7949e-03_jprb/)  
kao( :, 1,13, 6) = (/&
 & 7.1569e-05_jprb,9.3060e-05_jprb,1.0102e-04_jprb,1.0423e-04_jprb,1.0388e-04_jprb,1.0052e-04_jprb,&
 & 9.4174e-05_jprb,8.3531e-05_jprb,1.8351e-03_jprb/)  
kao( :, 2,13, 6) = (/&
 & 7.3011e-05_jprb,9.6373e-05_jprb,1.0503e-04_jprb,1.0856e-04_jprb,1.0834e-04_jprb,1.0508e-04_jprb,&
 & 9.8836e-05_jprb,8.8176e-05_jprb,1.7459e-03_jprb/)  
kao( :, 3,13, 6) = (/&
 & 7.4663e-05_jprb,9.9794e-05_jprb,1.0913e-04_jprb,1.1298e-04_jprb,1.1299e-04_jprb,1.0991e-04_jprb,&
 & 1.0372e-04_jprb,9.2787e-05_jprb,1.6660e-03_jprb/)  
kao( :, 4,13, 6) = (/&
 & 7.6630e-05_jprb,1.0344e-04_jprb,1.1345e-04_jprb,1.1756e-04_jprb,1.1782e-04_jprb,1.1495e-04_jprb,&
 & 1.0877e-04_jprb,9.7412e-05_jprb,1.5932e-03_jprb/)  
kao( :, 5,13, 6) = (/&
 & 7.9007e-05_jprb,1.0733e-04_jprb,1.1787e-04_jprb,1.2235e-04_jprb,1.2303e-04_jprb,1.2033e-04_jprb,&
 & 1.1390e-04_jprb,1.0206e-04_jprb,1.5265e-03_jprb/)  
kao( :, 1, 1, 7) = (/&
 & 4.6305e-04_jprb,5.4556e-04_jprb,6.0200e-04_jprb,6.4863e-04_jprb,6.8107e-04_jprb,7.0420e-04_jprb,&
 & 7.2199e-04_jprb,7.3085e-04_jprb,6.7646e-04_jprb/)  
kao( :, 2, 1, 7) = (/&
 & 4.6301e-04_jprb,5.5700e-04_jprb,6.1674e-04_jprb,6.6918e-04_jprb,7.0683e-04_jprb,7.3382e-04_jprb,&
 & 7.5720e-04_jprb,7.6870e-04_jprb,7.1353e-04_jprb/)  
kao( :, 3, 1, 7) = (/&
 & 4.6454e-04_jprb,5.7050e-04_jprb,6.3324e-04_jprb,6.9016e-04_jprb,7.3249e-04_jprb,7.6632e-04_jprb,&
 & 7.9567e-04_jprb,8.0915e-04_jprb,7.5224e-04_jprb/)  
kao( :, 4, 1, 7) = (/&
 & 4.6651e-04_jprb,5.8405e-04_jprb,6.4895e-04_jprb,7.1069e-04_jprb,7.5837e-04_jprb,7.9949e-04_jprb,&
 & 8.3506e-04_jprb,8.5087e-04_jprb,7.9164e-04_jprb/)  
kao( :, 5, 1, 7) = (/&
 & 4.7034e-04_jprb,5.9930e-04_jprb,6.6683e-04_jprb,7.3355e-04_jprb,7.8609e-04_jprb,8.3312e-04_jprb,&
 & 8.7517e-04_jprb,8.9333e-04_jprb,8.3199e-04_jprb/)  
kao( :, 1, 2, 7) = (/&
 & 4.3178e-04_jprb,5.0967e-04_jprb,5.7208e-04_jprb,6.1793e-04_jprb,6.4678e-04_jprb,6.6138e-04_jprb,&
 & 6.6815e-04_jprb,6.6568e-04_jprb,5.9744e-04_jprb/)  
kao( :, 2, 2, 7) = (/&
 & 4.3227e-04_jprb,5.2067e-04_jprb,5.8785e-04_jprb,6.3795e-04_jprb,6.7133e-04_jprb,6.9007e-04_jprb,&
 & 7.0100e-04_jprb,7.0211e-04_jprb,6.3355e-04_jprb/)  
kao( :, 3, 2, 7) = (/&
 & 4.3414e-04_jprb,5.3362e-04_jprb,6.0473e-04_jprb,6.5841e-04_jprb,6.9567e-04_jprb,7.2097e-04_jprb,&
 & 7.3754e-04_jprb,7.4189e-04_jprb,6.7066e-04_jprb/)  
kao( :, 4, 2, 7) = (/&
 & 4.3688e-04_jprb,5.4677e-04_jprb,6.2106e-04_jprb,6.7900e-04_jprb,7.2053e-04_jprb,7.5255e-04_jprb,&
 & 7.7596e-04_jprb,7.8317e-04_jprb,7.0771e-04_jprb/)  
kao( :, 5, 2, 7) = (/&
 & 4.4026e-04_jprb,5.6009e-04_jprb,6.3723e-04_jprb,6.9996e-04_jprb,7.4621e-04_jprb,7.8382e-04_jprb,&
 & 8.1411e-04_jprb,8.2479e-04_jprb,7.4663e-04_jprb/)  
kao( :, 1, 3, 7) = (/&
 & 4.0042e-04_jprb,4.7588e-04_jprb,5.3737e-04_jprb,5.7848e-04_jprb,6.0266e-04_jprb,6.1092e-04_jprb,&
 & 6.0756e-04_jprb,5.9389e-04_jprb,5.1726e-04_jprb/)  
kao( :, 2, 3, 7) = (/&
 & 4.0139e-04_jprb,4.8636e-04_jprb,5.5256e-04_jprb,5.9842e-04_jprb,6.2668e-04_jprb,6.3795e-04_jprb,&
 & 6.3723e-04_jprb,6.2673e-04_jprb,5.4890e-04_jprb/)  
kao( :, 3, 3, 7) = (/&
 & 4.0264e-04_jprb,4.9818e-04_jprb,5.6878e-04_jprb,6.1775e-04_jprb,6.4985e-04_jprb,6.6625e-04_jprb,&
 & 6.6960e-04_jprb,6.6297e-04_jprb,5.8203e-04_jprb/)  
kao( :, 4, 3, 7) = (/&
 & 4.0594e-04_jprb,5.1098e-04_jprb,5.8559e-04_jprb,6.3812e-04_jprb,6.7417e-04_jprb,6.9560e-04_jprb,&
 & 7.0436e-04_jprb,7.0139e-04_jprb,6.1550e-04_jprb/)  
kao( :, 5, 3, 7) = (/&
 & 4.0942e-04_jprb,5.2279e-04_jprb,6.0106e-04_jprb,6.5810e-04_jprb,6.9804e-04_jprb,7.2431e-04_jprb,&
 & 7.3907e-04_jprb,7.3980e-04_jprb,6.5087e-04_jprb/)  
kao( :, 1, 4, 7) = (/&
 & 3.6954e-04_jprb,4.4390e-04_jprb,4.9967e-04_jprb,5.3490e-04_jprb,5.5341e-04_jprb,5.5728e-04_jprb,&
 & 5.4744e-04_jprb,5.2585e-04_jprb,4.5076e-04_jprb/)  
kao( :, 2, 4, 7) = (/&
 & 3.7099e-04_jprb,4.5452e-04_jprb,5.1452e-04_jprb,5.5410e-04_jprb,5.7617e-04_jprb,5.8227e-04_jprb,&
 & 5.7394e-04_jprb,5.5446e-04_jprb,4.7750e-04_jprb/)  
kao( :, 3, 4, 7) = (/&
 & 3.7261e-04_jprb,4.6594e-04_jprb,5.3039e-04_jprb,5.7264e-04_jprb,5.9783e-04_jprb,6.0838e-04_jprb,&
 & 6.0270e-04_jprb,5.8596e-04_jprb,5.0606e-04_jprb/)  
kao( :, 4, 4, 7) = (/&
 & 3.7542e-04_jprb,4.7733e-04_jprb,5.4631e-04_jprb,5.9142e-04_jprb,6.2021e-04_jprb,6.3532e-04_jprb,&
 & 6.3302e-04_jprb,6.1929e-04_jprb,5.3494e-04_jprb/)  
kao( :, 5, 4, 7) = (/&
 & 3.7994e-04_jprb,4.8922e-04_jprb,5.6238e-04_jprb,6.1134e-04_jprb,6.4405e-04_jprb,6.6206e-04_jprb,&
 & 6.6409e-04_jprb,6.5333e-04_jprb,5.6564e-04_jprb/)  
kao( :, 1, 5, 7) = (/&
 & 3.4061e-04_jprb,4.1228e-04_jprb,4.6040e-04_jprb,4.8986e-04_jprb,5.0320e-04_jprb,5.0314e-04_jprb,&
 & 4.9155e-04_jprb,4.6563e-04_jprb,3.9708e-04_jprb/)  
kao( :, 2, 5, 7) = (/&
 & 3.4265e-04_jprb,4.2238e-04_jprb,4.7497e-04_jprb,5.0787e-04_jprb,5.2436e-04_jprb,5.2638e-04_jprb,&
 & 5.1586e-04_jprb,4.9074e-04_jprb,4.1980e-04_jprb/)  
kao( :, 3, 5, 7) = (/&
 & 3.4457e-04_jprb,4.3316e-04_jprb,4.9022e-04_jprb,5.2547e-04_jprb,5.4476e-04_jprb,5.5018e-04_jprb,&
 & 5.4131e-04_jprb,5.1767e-04_jprb,4.4445e-04_jprb/)  
kao( :, 4, 5, 7) = (/&
 & 3.4732e-04_jprb,4.4421e-04_jprb,5.0540e-04_jprb,5.4314e-04_jprb,5.6518e-04_jprb,5.7439e-04_jprb,&
 & 5.6831e-04_jprb,5.4593e-04_jprb,4.6962e-04_jprb/)  
kao( :, 5, 5, 7) = (/&
 & 3.5182e-04_jprb,4.5580e-04_jprb,5.2093e-04_jprb,5.6187e-04_jprb,5.8688e-04_jprb,5.9917e-04_jprb,&
 & 5.9551e-04_jprb,5.7498e-04_jprb,4.9655e-04_jprb/)  
kao( :, 1, 6, 7) = (/&
 & 3.1397e-04_jprb,3.8099e-04_jprb,4.2085e-04_jprb,4.4392e-04_jprb,4.5344e-04_jprb,4.5128e-04_jprb,&
 & 4.3795e-04_jprb,4.1046e-04_jprb,3.5811e-04_jprb/)  
kao( :, 2, 6, 7) = (/&
 & 3.1655e-04_jprb,3.9053e-04_jprb,4.3489e-04_jprb,4.6069e-04_jprb,4.7295e-04_jprb,4.7284e-04_jprb,&
 & 4.6063e-04_jprb,4.3290e-04_jprb,3.7673e-04_jprb/)  
kao( :, 3, 6, 7) = (/&
 & 3.1898e-04_jprb,4.0060e-04_jprb,4.4896e-04_jprb,4.7714e-04_jprb,4.9199e-04_jprb,4.9458e-04_jprb,&
 & 4.8353e-04_jprb,4.5629e-04_jprb,3.9672e-04_jprb/)  
kao( :, 4, 6, 7) = (/&
 & 3.2158e-04_jprb,4.1129e-04_jprb,4.6291e-04_jprb,4.9376e-04_jprb,5.1129e-04_jprb,5.1624e-04_jprb,&
 & 5.0719e-04_jprb,4.8049e-04_jprb,4.1801e-04_jprb/)  
kao( :, 5, 6, 7) = (/&
 & 3.2502e-04_jprb,4.2183e-04_jprb,4.7677e-04_jprb,5.1073e-04_jprb,5.3095e-04_jprb,5.3777e-04_jprb,&
 & 5.3107e-04_jprb,5.0560e-04_jprb,4.4095e-04_jprb/)  
kao( :, 1, 7, 7) = (/&
 & 2.8858e-04_jprb,3.5072e-04_jprb,3.8244e-04_jprb,3.9969e-04_jprb,4.0628e-04_jprb,4.0266e-04_jprb,&
 & 3.8820e-04_jprb,3.6095e-04_jprb,3.4917e-04_jprb/)  
kao( :, 2, 7, 7) = (/&
 & 2.9154e-04_jprb,3.5995e-04_jprb,3.9513e-04_jprb,4.1562e-04_jprb,4.2428e-04_jprb,4.2225e-04_jprb,&
 & 4.0848e-04_jprb,3.8100e-04_jprb,3.6556e-04_jprb/)  
kao( :, 3, 7, 7) = (/&
 & 2.9427e-04_jprb,3.6955e-04_jprb,4.0818e-04_jprb,4.3070e-04_jprb,4.4206e-04_jprb,4.4209e-04_jprb,&
 & 4.2902e-04_jprb,4.0153e-04_jprb,3.8273e-04_jprb/)  
kao( :, 4, 7, 7) = (/&
 & 2.9693e-04_jprb,3.7937e-04_jprb,4.2130e-04_jprb,4.4602e-04_jprb,4.5975e-04_jprb,4.6189e-04_jprb,&
 & 4.5029e-04_jprb,4.2249e-04_jprb,4.0122e-04_jprb/)  
kao( :, 5, 7, 7) = (/&
 & 3.0032e-04_jprb,3.8893e-04_jprb,4.3431e-04_jprb,4.6164e-04_jprb,4.7805e-04_jprb,4.8151e-04_jprb,&
 & 4.7139e-04_jprb,4.4430e-04_jprb,4.2113e-04_jprb/)  
kao( :, 1, 8, 7) = (/&
 & 2.6433e-04_jprb,3.2164e-04_jprb,3.4678e-04_jprb,3.5895e-04_jprb,3.6313e-04_jprb,3.5828e-04_jprb,&
 & 3.4379e-04_jprb,3.1784e-04_jprb,3.8325e-04_jprb/)  
kao( :, 2, 8, 7) = (/&
 & 2.6764e-04_jprb,3.3079e-04_jprb,3.5818e-04_jprb,3.7326e-04_jprb,3.7969e-04_jprb,3.7570e-04_jprb,&
 & 3.6173e-04_jprb,3.3531e-04_jprb,3.9627e-04_jprb/)  
kao( :, 3, 8, 7) = (/&
 & 2.7049e-04_jprb,3.3967e-04_jprb,3.6984e-04_jprb,3.8764e-04_jprb,3.9567e-04_jprb,3.9347e-04_jprb,&
 & 3.7992e-04_jprb,3.5345e-04_jprb,4.1157e-04_jprb/)  
kao( :, 4, 8, 7) = (/&
 & 2.7332e-04_jprb,3.4840e-04_jprb,3.8188e-04_jprb,4.0186e-04_jprb,4.1166e-04_jprb,4.1115e-04_jprb,&
 & 3.9867e-04_jprb,3.7201e-04_jprb,4.2882e-04_jprb/)  
kao( :, 5, 8, 7) = (/&
 & 2.7670e-04_jprb,3.5697e-04_jprb,3.9392e-04_jprb,4.1633e-04_jprb,4.2814e-04_jprb,4.2877e-04_jprb,&
 & 4.1760e-04_jprb,3.9091e-04_jprb,4.4711e-04_jprb/)  
kao( :, 1, 9, 7) = (/&
 & 2.4137e-04_jprb,2.9350e-04_jprb,3.1375e-04_jprb,3.2233e-04_jprb,3.2400e-04_jprb,3.1859e-04_jprb,&
 & 3.0441e-04_jprb,2.7946e-04_jprb,7.4112e-04_jprb/)  
kao( :, 2, 9, 7) = (/&
 & 2.4480e-04_jprb,3.0210e-04_jprb,3.2420e-04_jprb,3.3517e-04_jprb,3.3871e-04_jprb,3.3414e-04_jprb,&
 & 3.2021e-04_jprb,2.9498e-04_jprb,7.2877e-04_jprb/)  
kao( :, 3, 9, 7) = (/&
 & 2.4785e-04_jprb,3.1022e-04_jprb,3.3497e-04_jprb,3.4812e-04_jprb,3.5338e-04_jprb,3.4970e-04_jprb,&
 & 3.3648e-04_jprb,3.1095e-04_jprb,7.2183e-04_jprb/)  
kao( :, 4, 9, 7) = (/&
 & 2.5068e-04_jprb,3.1830e-04_jprb,3.4602e-04_jprb,3.6150e-04_jprb,3.6764e-04_jprb,3.6525e-04_jprb,&
 & 3.5301e-04_jprb,3.2741e-04_jprb,7.2069e-04_jprb/)  
kao( :, 5, 9, 7) = (/&
 & 2.5395e-04_jprb,3.2629e-04_jprb,3.5706e-04_jprb,3.7496e-04_jprb,3.8230e-04_jprb,3.8101e-04_jprb,&
 & 3.6964e-04_jprb,3.4426e-04_jprb,7.2393e-04_jprb/)  
kao( :, 1,10, 7) = (/&
 & 2.1916e-04_jprb,2.6728e-04_jprb,2.8357e-04_jprb,2.9003e-04_jprb,2.9019e-04_jprb,2.8394e-04_jprb,&
 & 2.6987e-04_jprb,2.4557e-04_jprb,2.2951e-03_jprb/)  
kao( :, 2,10, 7) = (/&
 & 2.2269e-04_jprb,2.7508e-04_jprb,2.9328e-04_jprb,3.0170e-04_jprb,3.0330e-04_jprb,2.9810e-04_jprb,&
 & 2.8439e-04_jprb,2.5963e-04_jprb,2.1937e-03_jprb/)  
kao( :, 3,10, 7) = (/&
 & 2.2592e-04_jprb,2.8247e-04_jprb,3.0321e-04_jprb,3.1354e-04_jprb,3.1659e-04_jprb,3.1208e-04_jprb,&
 & 2.9880e-04_jprb,2.7415e-04_jprb,2.1089e-03_jprb/)  
kao( :, 4,10, 7) = (/&
 & 2.2891e-04_jprb,2.8992e-04_jprb,3.1332e-04_jprb,3.2558e-04_jprb,3.2968e-04_jprb,3.2576e-04_jprb,&
 & 3.1353e-04_jprb,2.8898e-04_jprb,2.0353e-03_jprb/)  
kao( :, 5,10, 7) = (/&
 & 2.3224e-04_jprb,2.9740e-04_jprb,3.2354e-04_jprb,3.3796e-04_jprb,3.4280e-04_jprb,3.3971e-04_jprb,&
 & 3.2827e-04_jprb,3.0414e-04_jprb,1.9694e-03_jprb/)  
kao( :, 1,11, 7) = (/&
 & 1.9917e-04_jprb,2.4536e-04_jprb,2.5993e-04_jprb,2.6557e-04_jprb,2.6515e-04_jprb,2.5837e-04_jprb,&
 & 2.4462e-04_jprb,2.2066e-04_jprb,3.1341e-03_jprb/)  
kao( :, 2,11, 7) = (/&
 & 2.0264e-04_jprb,2.5224e-04_jprb,2.6895e-04_jprb,2.7632e-04_jprb,2.7737e-04_jprb,2.7142e-04_jprb,&
 & 2.5767e-04_jprb,2.3346e-04_jprb,2.9845e-03_jprb/)  
kao( :, 3,11, 7) = (/&
 & 2.0597e-04_jprb,2.5913e-04_jprb,2.7799e-04_jprb,2.8723e-04_jprb,2.8930e-04_jprb,2.8411e-04_jprb,&
 & 2.7068e-04_jprb,2.4666e-04_jprb,2.8531e-03_jprb/)  
kao( :, 4,11, 7) = (/&
 & 2.0923e-04_jprb,2.6606e-04_jprb,2.8717e-04_jprb,2.9817e-04_jprb,3.0130e-04_jprb,2.9662e-04_jprb,&
 & 2.8382e-04_jprb,2.6011e-04_jprb,2.7344e-03_jprb/)  
kao( :, 5,11, 7) = (/&
 & 2.1283e-04_jprb,2.7325e-04_jprb,2.9677e-04_jprb,3.0938e-04_jprb,3.1326e-04_jprb,3.0919e-04_jprb,&
 & 2.9712e-04_jprb,2.7384e-04_jprb,2.6277e-03_jprb/)  
kao( :, 1,12, 7) = (/&
 & 1.7936e-04_jprb,2.2328e-04_jprb,2.3724e-04_jprb,2.4243e-04_jprb,2.4172e-04_jprb,2.3478e-04_jprb,&
 & 2.2093e-04_jprb,1.9737e-04_jprb,3.2835e-03_jprb/)  
kao( :, 2,12, 7) = (/&
 & 1.8285e-04_jprb,2.2978e-04_jprb,2.4543e-04_jprb,2.5241e-04_jprb,2.5294e-04_jprb,2.4651e-04_jprb,&
 & 2.3266e-04_jprb,2.0912e-04_jprb,3.1216e-03_jprb/)  
kao( :, 3,12, 7) = (/&
 & 1.8634e-04_jprb,2.3640e-04_jprb,2.5382e-04_jprb,2.6232e-04_jprb,2.6378e-04_jprb,2.5795e-04_jprb,&
 & 2.4444e-04_jprb,2.2095e-04_jprb,2.9752e-03_jprb/)  
kao( :, 4,12, 7) = (/&
 & 1.8978e-04_jprb,2.4319e-04_jprb,2.6232e-04_jprb,2.7232e-04_jprb,2.7477e-04_jprb,2.6960e-04_jprb,&
 & 2.5603e-04_jprb,2.3306e-04_jprb,2.8433e-03_jprb/)  
kao( :, 5,12, 7) = (/&
 & 1.9368e-04_jprb,2.5043e-04_jprb,2.7137e-04_jprb,2.8261e-04_jprb,2.8588e-04_jprb,2.8109e-04_jprb,&
 & 2.6784e-04_jprb,2.4548e-04_jprb,2.7264e-03_jprb/)  
kao( :, 1,13, 7) = (/&
 & 1.6014e-04_jprb,2.0144e-04_jprb,2.1482e-04_jprb,2.1993e-04_jprb,2.1918e-04_jprb,2.1245e-04_jprb,&
 & 1.9850e-04_jprb,1.7572e-04_jprb,2.8014e-03_jprb/)  
kao( :, 2,13, 7) = (/&
 & 1.6372e-04_jprb,2.0772e-04_jprb,2.2263e-04_jprb,2.2918e-04_jprb,2.2929e-04_jprb,2.2295e-04_jprb,&
 & 2.0909e-04_jprb,1.8627e-04_jprb,2.6597e-03_jprb/)  
kao( :, 3,13, 7) = (/&
 & 1.6711e-04_jprb,2.1423e-04_jprb,2.3053e-04_jprb,2.3833e-04_jprb,2.3922e-04_jprb,2.3334e-04_jprb,&
 & 2.1968e-04_jprb,1.9695e-04_jprb,2.5327e-03_jprb/)  
kao( :, 4,13, 7) = (/&
 & 1.7075e-04_jprb,2.2099e-04_jprb,2.3863e-04_jprb,2.4766e-04_jprb,2.4941e-04_jprb,2.4382e-04_jprb,&
 & 2.3022e-04_jprb,2.0776e-04_jprb,2.4204e-03_jprb/)  
kao( :, 5,13, 7) = (/&
 & 1.7481e-04_jprb,2.2827e-04_jprb,2.4735e-04_jprb,2.5731e-04_jprb,2.5972e-04_jprb,2.5434e-04_jprb,&
 & 2.4101e-04_jprb,2.1916e-04_jprb,2.3207e-03_jprb/)  
kao( :, 1, 1, 8) = (/&
 & 9.5608e-04_jprb,1.1137e-03_jprb,1.1928e-03_jprb,1.2676e-03_jprb,1.3453e-03_jprb,1.4201e-03_jprb,&
 & 1.4858e-03_jprb,1.4985e-03_jprb,1.3296e-03_jprb/)  
kao( :, 2, 1, 8) = (/&
 & 9.5994e-04_jprb,1.1580e-03_jprb,1.2586e-03_jprb,1.3444e-03_jprb,1.4304e-03_jprb,1.5065e-03_jprb,&
 & 1.5698e-03_jprb,1.5822e-03_jprb,1.4127e-03_jprb/)  
kao( :, 3, 1, 8) = (/&
 & 9.6434e-04_jprb,1.2039e-03_jprb,1.3295e-03_jprb,1.4283e-03_jprb,1.5240e-03_jprb,1.6021e-03_jprb,&
 & 1.6610e-03_jprb,1.6690e-03_jprb,1.4964e-03_jprb/)  
kao( :, 4, 1, 8) = (/&
 & 9.6594e-04_jprb,1.2459e-03_jprb,1.3992e-03_jprb,1.5151e-03_jprb,1.6213e-03_jprb,1.7037e-03_jprb,&
 & 1.7586e-03_jprb,1.7581e-03_jprb,1.5822e-03_jprb/)  
kao( :, 5, 1, 8) = (/&
 & 9.7112e-04_jprb,1.2922e-03_jprb,1.4733e-03_jprb,1.6088e-03_jprb,1.7251e-03_jprb,1.8137e-03_jprb,&
 & 1.8637e-03_jprb,1.8544e-03_jprb,1.6729e-03_jprb/)  
kao( :, 1, 2, 8) = (/&
 & 9.2093e-04_jprb,1.0546e-03_jprb,1.1184e-03_jprb,1.1877e-03_jprb,1.2677e-03_jprb,1.3451e-03_jprb,&
 & 1.4085e-03_jprb,1.4282e-03_jprb,1.2587e-03_jprb/)  
kao( :, 2, 2, 8) = (/&
 & 9.2391e-04_jprb,1.0934e-03_jprb,1.1705e-03_jprb,1.2485e-03_jprb,1.3345e-03_jprb,1.4205e-03_jprb,&
 & 1.4904e-03_jprb,1.5108e-03_jprb,1.3375e-03_jprb/)  
kao( :, 3, 2, 8) = (/&
 & 9.2775e-04_jprb,1.1328e-03_jprb,1.2272e-03_jprb,1.3169e-03_jprb,1.4101e-03_jprb,1.5006e-03_jprb,&
 & 1.5743e-03_jprb,1.5928e-03_jprb,1.4152e-03_jprb/)  
kao( :, 4, 2, 8) = (/&
 & 9.3033e-04_jprb,1.1705e-03_jprb,1.2842e-03_jprb,1.3889e-03_jprb,1.4909e-03_jprb,1.5847e-03_jprb,&
 & 1.6559e-03_jprb,1.6749e-03_jprb,1.4953e-03_jprb/)  
kao( :, 5, 2, 8) = (/&
 & 9.3350e-04_jprb,1.2078e-03_jprb,1.3426e-03_jprb,1.4642e-03_jprb,1.5755e-03_jprb,1.6738e-03_jprb,&
 & 1.7416e-03_jprb,1.7599e-03_jprb,1.5794e-03_jprb/)  
kao( :, 1, 3, 8) = (/&
 & 8.8225e-04_jprb,9.9524e-04_jprb,1.0564e-03_jprb,1.1307e-03_jprb,1.2003e-03_jprb,1.2591e-03_jprb,&
 & 1.3108e-03_jprb,1.3309e-03_jprb,1.1549e-03_jprb/)  
kao( :, 2, 3, 8) = (/&
 & 8.8537e-04_jprb,1.0284e-03_jprb,1.0990e-03_jprb,1.1784e-03_jprb,1.2595e-03_jprb,1.3310e-03_jprb,&
 & 1.3892e-03_jprb,1.4138e-03_jprb,1.2306e-03_jprb/)  
kao( :, 3, 3, 8) = (/&
 & 8.8781e-04_jprb,1.0600e-03_jprb,1.1442e-03_jprb,1.2314e-03_jprb,1.3222e-03_jprb,1.4061e-03_jprb,&
 & 1.4693e-03_jprb,1.4932e-03_jprb,1.3048e-03_jprb/)  
kao( :, 4, 3, 8) = (/&
 & 8.9189e-04_jprb,1.0939e-03_jprb,1.1921e-03_jprb,1.2907e-03_jprb,1.3886e-03_jprb,1.4820e-03_jprb,&
 & 1.5492e-03_jprb,1.5703e-03_jprb,1.3811e-03_jprb/)  
kao( :, 5, 3, 8) = (/&
 & 8.9438e-04_jprb,1.1258e-03_jprb,1.2397e-03_jprb,1.3504e-03_jprb,1.4556e-03_jprb,1.5581e-03_jprb,&
 & 1.6301e-03_jprb,1.6498e-03_jprb,1.4607e-03_jprb/)  
kao( :, 1, 4, 8) = (/&
 & 8.3849e-04_jprb,9.3566e-04_jprb,1.0099e-03_jprb,1.0816e-03_jprb,1.1344e-03_jprb,1.1752e-03_jprb,&
 & 1.2048e-03_jprb,1.2139e-03_jprb,1.0399e-03_jprb/)  
kao( :, 2, 4, 8) = (/&
 & 8.4244e-04_jprb,9.6570e-04_jprb,1.0454e-03_jprb,1.1259e-03_jprb,1.1888e-03_jprb,1.2423e-03_jprb,&
 & 1.2800e-03_jprb,1.2943e-03_jprb,1.1122e-03_jprb/)  
kao( :, 3, 4, 8) = (/&
 & 8.4472e-04_jprb,9.9456e-04_jprb,1.0829e-03_jprb,1.1722e-03_jprb,1.2472e-03_jprb,1.3102e-03_jprb,&
 & 1.3565e-03_jprb,1.3722e-03_jprb,1.1831e-03_jprb/)  
kao( :, 4, 4, 8) = (/&
 & 8.4703e-04_jprb,1.0229e-03_jprb,1.1215e-03_jprb,1.2221e-03_jprb,1.3077e-03_jprb,1.3778e-03_jprb,&
 & 1.4318e-03_jprb,1.4488e-03_jprb,1.2549e-03_jprb/)  
kao( :, 5, 4, 8) = (/&
 & 8.5239e-04_jprb,1.0541e-03_jprb,1.1634e-03_jprb,1.2735e-03_jprb,1.3695e-03_jprb,1.4485e-03_jprb,&
 & 1.5090e-03_jprb,1.5277e-03_jprb,1.3292e-03_jprb/)  
kao( :, 1, 5, 8) = (/&
 & 7.9083e-04_jprb,8.8170e-04_jprb,9.6674e-04_jprb,1.0299e-03_jprb,1.0698e-03_jprb,1.0915e-03_jprb,&
 & 1.0968e-03_jprb,1.0912e-03_jprb,9.3090e-04_jprb/)  
kao( :, 2, 5, 8) = (/&
 & 7.9562e-04_jprb,9.0868e-04_jprb,9.9995e-04_jprb,1.0720e-03_jprb,1.1213e-03_jprb,1.1526e-03_jprb,&
 & 1.1662e-03_jprb,1.1662e-03_jprb,9.9625e-04_jprb/)  

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


SUBROUTINE part6

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


kao( :, 3, 5, 8) = (/&
 & 7.9829e-04_jprb,9.3547e-04_jprb,1.0342e-03_jprb,1.1161e-03_jprb,1.1759e-03_jprb,1.2152e-03_jprb,&
 & 1.2368e-03_jprb,1.2405e-03_jprb,1.0609e-03_jprb/)  
kao( :, 4, 5, 8) = (/&
 & 8.0091e-04_jprb,9.6089e-04_jprb,1.0686e-03_jprb,1.1624e-03_jprb,1.2313e-03_jprb,1.2778e-03_jprb,&
 & 1.3076e-03_jprb,1.3141e-03_jprb,1.1274e-03_jprb/)  
kao( :, 5, 5, 8) = (/&
 & 8.0636e-04_jprb,9.8796e-04_jprb,1.1047e-03_jprb,1.2088e-03_jprb,1.2883e-03_jprb,1.3425e-03_jprb,&
 & 1.3805e-03_jprb,1.3900e-03_jprb,1.1960e-03_jprb/)  
kao( :, 1, 6, 8) = (/&
 & 7.4042e-04_jprb,8.3357e-04_jprb,9.1717e-04_jprb,9.7114e-04_jprb,1.0002e-03_jprb,1.0057e-03_jprb,&
 & 9.9270e-04_jprb,9.6792e-04_jprb,8.3659e-04_jprb/)  
kao( :, 2, 6, 8) = (/&
 & 7.4565e-04_jprb,8.5743e-04_jprb,9.4912e-04_jprb,1.0119e-03_jprb,1.0480e-03_jprb,1.0602e-03_jprb,&
 & 1.0545e-03_jprb,1.0369e-03_jprb,8.9582e-04_jprb/)  
kao( :, 3, 6, 8) = (/&
 & 7.4922e-04_jprb,8.8128e-04_jprb,9.8142e-04_jprb,1.0542e-03_jprb,1.0980e-03_jprb,1.1167e-03_jprb,&
 & 1.1185e-03_jprb,1.1056e-03_jprb,9.5443e-04_jprb/)  
kao( :, 4, 6, 8) = (/&
 & 7.5232e-04_jprb,9.0308e-04_jprb,1.0141e-03_jprb,1.0981e-03_jprb,1.1486e-03_jprb,1.1744e-03_jprb,&
 & 1.1833e-03_jprb,1.1741e-03_jprb,1.0132e-03_jprb/)  
kao( :, 5, 6, 8) = (/&
 & 7.5627e-04_jprb,9.2523e-04_jprb,1.0466e-03_jprb,1.1406e-03_jprb,1.2001e-03_jprb,1.2335e-03_jprb,&
 & 1.2490e-03_jprb,1.2439e-03_jprb,1.0736e-03_jprb/)  
kao( :, 1, 7, 8) = (/&
 & 6.8964e-04_jprb,7.8723e-04_jprb,8.6407e-04_jprb,9.0570e-04_jprb,9.2461e-04_jprb,9.2134e-04_jprb,&
 & 8.9655e-04_jprb,8.5470e-04_jprb,7.7227e-04_jprb/)  
kao( :, 2, 7, 8) = (/&
 & 6.9565e-04_jprb,8.0904e-04_jprb,8.9444e-04_jprb,9.4366e-04_jprb,9.6915e-04_jprb,9.7063e-04_jprb,&
 & 9.5066e-04_jprb,9.1508e-04_jprb,8.2464e-04_jprb/)  
kao( :, 3, 7, 8) = (/&
 & 7.0042e-04_jprb,8.3032e-04_jprb,9.2461e-04_jprb,9.8296e-04_jprb,1.0152e-03_jprb,1.0214e-03_jprb,&
 & 1.0076e-03_jprb,9.7640e-04_jprb,8.7766e-04_jprb/)  
kao( :, 4, 7, 8) = (/&
 & 7.0426e-04_jprb,8.4981e-04_jprb,9.5485e-04_jprb,1.0240e-03_jprb,1.0623e-03_jprb,1.0734e-03_jprb,&
 & 1.0651e-03_jprb,1.0378e-03_jprb,9.3187e-04_jprb/)  
kao( :, 5, 7, 8) = (/&
 & 7.0821e-04_jprb,8.6946e-04_jprb,9.8537e-04_jprb,1.0646e-03_jprb,1.1098e-03_jprb,1.1263e-03_jprb,&
 & 1.1245e-03_jprb,1.1007e-03_jprb,9.8663e-04_jprb/)  
kao( :, 1, 8, 8) = (/&
 & 6.4047e-04_jprb,7.3858e-04_jprb,8.0453e-04_jprb,8.3694e-04_jprb,8.4619e-04_jprb,8.3765e-04_jprb,&
 & 8.0766e-04_jprb,7.5466e-04_jprb,8.2781e-04_jprb/)  
kao( :, 2, 8, 8) = (/&
 & 6.4742e-04_jprb,7.5904e-04_jprb,8.3405e-04_jprb,8.7266e-04_jprb,8.8676e-04_jprb,8.8236e-04_jprb,&
 & 8.5570e-04_jprb,8.0688e-04_jprb,8.7433e-04_jprb/)  
kao( :, 3, 8, 8) = (/&
 & 6.5283e-04_jprb,7.7980e-04_jprb,8.6316e-04_jprb,9.0850e-04_jprb,9.2898e-04_jprb,9.2841e-04_jprb,&
 & 9.0551e-04_jprb,8.6048e-04_jprb,9.2376e-04_jprb/)  
kao( :, 4, 8, 8) = (/&
 & 6.5707e-04_jprb,7.9894e-04_jprb,8.9224e-04_jprb,9.4602e-04_jprb,9.7258e-04_jprb,9.7562e-04_jprb,&
 & 9.5565e-04_jprb,9.1442e-04_jprb,9.7371e-04_jprb/)  
kao( :, 5, 8, 8) = (/&
 & 6.6119e-04_jprb,8.1764e-04_jprb,9.2118e-04_jprb,9.8357e-04_jprb,1.0164e-03_jprb,1.0233e-03_jprb,&
 & 1.0075e-03_jprb,9.7011e-04_jprb,1.0250e-03_jprb/)  
kao( :, 1, 9, 8) = (/&
 & 5.9304e-04_jprb,6.8835e-04_jprb,7.4179e-04_jprb,7.6634e-04_jprb,7.7050e-04_jprb,7.5604e-04_jprb,&
 & 7.2393e-04_jprb,6.6767e-04_jprb,1.3527e-03_jprb/)  
kao( :, 2, 9, 8) = (/&
 & 6.0061e-04_jprb,7.0826e-04_jprb,7.7005e-04_jprb,7.9970e-04_jprb,8.0682e-04_jprb,7.9622e-04_jprb,&
 & 7.6713e-04_jprb,7.1229e-04_jprb,1.3810e-03_jprb/)  
kao( :, 3, 9, 8) = (/&
 & 6.0690e-04_jprb,7.2826e-04_jprb,7.9782e-04_jprb,8.3277e-04_jprb,8.4414e-04_jprb,8.3763e-04_jprb,&
 & 8.1182e-04_jprb,7.5863e-04_jprb,1.4228e-03_jprb/)  
kao( :, 4, 9, 8) = (/&
 & 6.1167e-04_jprb,7.4710e-04_jprb,8.2533e-04_jprb,8.6687e-04_jprb,8.8342e-04_jprb,8.8028e-04_jprb,&
 & 8.5678e-04_jprb,8.0590e-04_jprb,1.4759e-03_jprb/)  
kao( :, 5, 9, 8) = (/&
 & 6.1627e-04_jprb,7.6539e-04_jprb,8.5255e-04_jprb,9.0125e-04_jprb,9.2320e-04_jprb,9.2321e-04_jprb,&
 & 9.0266e-04_jprb,8.5442e-04_jprb,1.5365e-03_jprb/)  
kao( :, 1,10, 8) = (/&
 & 5.4825e-04_jprb,6.3891e-04_jprb,6.8254e-04_jprb,7.0037e-04_jprb,6.9928e-04_jprb,6.8268e-04_jprb,&
 & 6.4957e-04_jprb,5.9476e-04_jprb,3.8180e-03_jprb/)  
kao( :, 2,10, 8) = (/&
 & 5.5676e-04_jprb,6.5829e-04_jprb,7.0890e-04_jprb,7.3100e-04_jprb,7.3257e-04_jprb,7.1817e-04_jprb,&
 & 6.8748e-04_jprb,6.3344e-04_jprb,3.7319e-03_jprb/)  
kao( :, 3,10, 8) = (/&
 & 5.6387e-04_jprb,6.7778e-04_jprb,7.3493e-04_jprb,7.6099e-04_jprb,7.6595e-04_jprb,7.5519e-04_jprb,&
 & 7.2717e-04_jprb,6.7342e-04_jprb,3.6841e-03_jprb/)  
kao( :, 4,10, 8) = (/&
 & 5.6965e-04_jprb,6.9628e-04_jprb,7.6095e-04_jprb,7.9168e-04_jprb,8.0061e-04_jprb,7.9369e-04_jprb,&
 & 7.6769e-04_jprb,7.1402e-04_jprb,3.6718e-03_jprb/)  
kao( :, 5,10, 8) = (/&
 & 5.7483e-04_jprb,7.1426e-04_jprb,7.8640e-04_jprb,8.2247e-04_jprb,8.3634e-04_jprb,8.3289e-04_jprb,&
 & 8.0894e-04_jprb,7.5561e-04_jprb,3.6884e-03_jprb/)  
kao( :, 1,11, 8) = (/&
 & 5.0971e-04_jprb,5.9908e-04_jprb,6.3716e-04_jprb,6.5075e-04_jprb,6.4646e-04_jprb,6.2883e-04_jprb,&
 & 5.9611e-04_jprb,5.4516e-04_jprb,5.2044e-03_jprb/)  
kao( :, 2,11, 8) = (/&
 & 5.1851e-04_jprb,6.1830e-04_jprb,6.6103e-04_jprb,6.7814e-04_jprb,6.7644e-04_jprb,6.6100e-04_jprb,&
 & 6.3054e-04_jprb,5.7922e-04_jprb,5.0472e-03_jprb/)  
kao( :, 3,11, 8) = (/&
 & 5.2576e-04_jprb,6.3685e-04_jprb,6.8508e-04_jprb,7.0561e-04_jprb,7.0702e-04_jprb,6.9454e-04_jprb,&
 & 6.6622e-04_jprb,6.1448e-04_jprb,4.9485e-03_jprb/)  
kao( :, 4,11, 8) = (/&
 & 5.3230e-04_jprb,6.5426e-04_jprb,7.0906e-04_jprb,7.3336e-04_jprb,7.3854e-04_jprb,7.2917e-04_jprb,&
 & 7.0247e-04_jprb,6.5031e-04_jprb,4.8945e-03_jprb/)  
kao( :, 5,11, 8) = (/&
 & 5.3825e-04_jprb,6.7152e-04_jprb,7.3265e-04_jprb,7.6088e-04_jprb,7.7057e-04_jprb,7.6479e-04_jprb,&
 & 7.3945e-04_jprb,6.8664e-04_jprb,4.8718e-03_jprb/)  
kao( :, 1,12, 8) = (/&
 & 4.7268e-04_jprb,5.5911e-04_jprb,5.9221e-04_jprb,6.0202e-04_jprb,5.9599e-04_jprb,5.7673e-04_jprb,&
 & 5.4567e-04_jprb,4.9766e-04_jprb,5.4784e-03_jprb/)  
kao( :, 2,12, 8) = (/&
 & 4.8142e-04_jprb,5.7788e-04_jprb,6.1435e-04_jprb,6.2655e-04_jprb,6.2325e-04_jprb,6.0670e-04_jprb,&
 & 5.7673e-04_jprb,5.2800e-04_jprb,5.3059e-03_jprb/)  
kao( :, 3,12, 8) = (/&
 & 4.8905e-04_jprb,5.9521e-04_jprb,6.3638e-04_jprb,6.5188e-04_jprb,6.5138e-04_jprb,6.3718e-04_jprb,&
 & 6.0852e-04_jprb,5.5928e-04_jprb,5.1929e-03_jprb/)  
kao( :, 4,12, 8) = (/&
 & 4.9586e-04_jprb,6.1204e-04_jprb,6.5810e-04_jprb,6.7725e-04_jprb,6.7983e-04_jprb,6.6800e-04_jprb,&
 & 6.4102e-04_jprb,5.9098e-04_jprb,5.1181e-03_jprb/)  
kao( :, 5,12, 8) = (/&
 & 5.0219e-04_jprb,6.2893e-04_jprb,6.7933e-04_jprb,7.0239e-04_jprb,7.0829e-04_jprb,6.9992e-04_jprb,&
 & 6.7457e-04_jprb,6.2315e-04_jprb,5.0659e-03_jprb/)  
kao( :, 1,13, 8) = (/&
 & 4.3613e-04_jprb,5.1896e-04_jprb,5.4757e-04_jprb,5.5450e-04_jprb,5.4716e-04_jprb,5.2848e-04_jprb,&
 & 4.9828e-04_jprb,4.5179e-04_jprb,4.7039e-03_jprb/)  
kao( :, 2,13, 8) = (/&
 & 4.4480e-04_jprb,5.3652e-04_jprb,5.6828e-04_jprb,5.7733e-04_jprb,5.7232e-04_jprb,5.5571e-04_jprb,&
 & 5.2643e-04_jprb,4.7940e-04_jprb,4.5588e-03_jprb/)  
kao( :, 3,13, 8) = (/&
 & 4.5255e-04_jprb,5.5296e-04_jprb,5.8851e-04_jprb,6.0068e-04_jprb,5.9826e-04_jprb,5.8320e-04_jprb,&
 & 5.5480e-04_jprb,5.0729e-04_jprb,4.4582e-03_jprb/)  
kao( :, 4,13, 8) = (/&
 & 4.5948e-04_jprb,5.6913e-04_jprb,6.0860e-04_jprb,6.2380e-04_jprb,6.2384e-04_jprb,6.1098e-04_jprb,&
 & 5.8363e-04_jprb,5.3555e-04_jprb,4.3840e-03_jprb/)  
kao( :, 5,13, 8) = (/&
 & 4.6648e-04_jprb,5.8526e-04_jprb,6.2843e-04_jprb,6.4682e-04_jprb,6.4977e-04_jprb,6.3953e-04_jprb,&
 & 6.1349e-04_jprb,5.6436e-04_jprb,4.3301e-03_jprb/)  
kao( :, 1, 1, 9) = (/&
 & 4.2634e-03_jprb,4.4619e-03_jprb,4.8277e-03_jprb,5.0574e-03_jprb,5.1432e-03_jprb,5.0824e-03_jprb,&
 & 4.7995e-03_jprb,4.2519e-03_jprb,3.6751e-03_jprb/)  
kao( :, 2, 1, 9) = (/&
 & 4.3896e-03_jprb,4.7056e-03_jprb,5.1713e-03_jprb,5.4539e-03_jprb,5.5796e-03_jprb,5.5445e-03_jprb,&
 & 5.2467e-03_jprb,4.6622e-03_jprb,4.1226e-03_jprb/)  
kao( :, 3, 1, 9) = (/&
 & 4.5152e-03_jprb,4.9543e-03_jprb,5.5160e-03_jprb,5.8544e-03_jprb,6.0168e-03_jprb,5.9967e-03_jprb,&
 & 5.6895e-03_jprb,5.0855e-03_jprb,4.6113e-03_jprb/)  
kao( :, 4, 1, 9) = (/&
 & 4.6230e-03_jprb,5.1933e-03_jprb,5.8501e-03_jprb,6.2450e-03_jprb,6.4433e-03_jprb,6.4316e-03_jprb,&
 & 6.1283e-03_jprb,5.5148e-03_jprb,5.1307e-03_jprb/)  
kao( :, 5, 1, 9) = (/&
 & 4.7302e-03_jprb,5.4309e-03_jprb,6.1815e-03_jprb,6.6303e-03_jprb,6.8597e-03_jprb,6.8605e-03_jprb,&
 & 6.5693e-03_jprb,5.9487e-03_jprb,5.6753e-03_jprb/)  
kao( :, 1, 2, 9) = (/&
 & 3.9323e-03_jprb,4.1568e-03_jprb,4.4806e-03_jprb,4.6618e-03_jprb,4.7304e-03_jprb,4.6715e-03_jprb,&
 & 4.4161e-03_jprb,3.9503e-03_jprb,3.3395e-03_jprb/)  
kao( :, 2, 2, 9) = (/&
 & 4.0500e-03_jprb,4.3934e-03_jprb,4.8123e-03_jprb,5.0480e-03_jprb,5.1574e-03_jprb,5.1013e-03_jprb,&
 & 4.8274e-03_jprb,4.3142e-03_jprb,3.7073e-03_jprb/)  
kao( :, 3, 2, 9) = (/&
 & 4.1698e-03_jprb,4.6359e-03_jprb,5.1475e-03_jprb,5.4370e-03_jprb,5.5831e-03_jprb,5.5288e-03_jprb,&
 & 5.2416e-03_jprb,4.6953e-03_jprb,4.1146e-03_jprb/)  
kao( :, 4, 2, 9) = (/&
 & 4.2783e-03_jprb,4.8739e-03_jprb,5.4745e-03_jprb,5.8228e-03_jprb,5.9955e-03_jprb,5.9514e-03_jprb,&
 & 5.6672e-03_jprb,5.0790e-03_jprb,4.5488e-03_jprb/)  
kao( :, 5, 2, 9) = (/&
 & 4.3743e-03_jprb,5.1081e-03_jprb,5.7929e-03_jprb,6.1965e-03_jprb,6.3958e-03_jprb,6.3715e-03_jprb,&
 & 6.0950e-03_jprb,5.4684e-03_jprb,5.0068e-03_jprb/)  
kao( :, 1, 3, 9) = (/&
 & 3.6113e-03_jprb,3.8183e-03_jprb,4.0778e-03_jprb,4.1984e-03_jprb,4.2534e-03_jprb,4.2158e-03_jprb,&
 & 4.0193e-03_jprb,3.6415e-03_jprb,3.0570e-03_jprb/)  
kao( :, 2, 3, 9) = (/&
 & 3.7209e-03_jprb,4.0412e-03_jprb,4.3896e-03_jprb,4.5667e-03_jprb,4.6475e-03_jprb,4.5983e-03_jprb,&
 & 4.3872e-03_jprb,3.9635e-03_jprb,3.3466e-03_jprb/)  
kao( :, 3, 3, 9) = (/&
 & 3.8298e-03_jprb,4.2704e-03_jprb,4.6995e-03_jprb,4.9388e-03_jprb,5.0426e-03_jprb,4.9845e-03_jprb,&
 & 4.7617e-03_jprb,4.3009e-03_jprb,3.6653e-03_jprb/)  
kao( :, 4, 3, 9) = (/&
 & 3.9362e-03_jprb,4.5071e-03_jprb,5.0123e-03_jprb,5.3097e-03_jprb,5.4362e-03_jprb,5.3784e-03_jprb,&
 & 5.1527e-03_jprb,4.6419e-03_jprb,4.0116e-03_jprb/)  
kao( :, 5, 3, 9) = (/&
 & 4.0246e-03_jprb,4.7366e-03_jprb,5.3187e-03_jprb,5.6677e-03_jprb,5.8209e-03_jprb,5.7784e-03_jprb,&
 & 5.5482e-03_jprb,4.9812e-03_jprb,4.3840e-03_jprb/)  
kao( :, 1, 4, 9) = (/&
 & 3.3284e-03_jprb,3.4973e-03_jprb,3.6827e-03_jprb,3.7696e-03_jprb,3.8145e-03_jprb,3.7973e-03_jprb,&
 & 3.6757e-03_jprb,3.3953e-03_jprb,2.8711e-03_jprb/)  
kao( :, 2, 4, 9) = (/&
 & 3.4305e-03_jprb,3.7049e-03_jprb,3.9652e-03_jprb,4.1049e-03_jprb,4.1671e-03_jprb,4.1383e-03_jprb,&
 & 3.9965e-03_jprb,3.6722e-03_jprb,3.0945e-03_jprb/)  
kao( :, 3, 4, 9) = (/&
 & 3.5295e-03_jprb,3.9206e-03_jprb,4.2522e-03_jprb,4.4452e-03_jprb,4.5189e-03_jprb,4.4874e-03_jprb,&
 & 4.3285e-03_jprb,3.9676e-03_jprb,3.3441e-03_jprb/)  
kao( :, 4, 4, 9) = (/&
 & 3.6215e-03_jprb,4.1396e-03_jprb,4.5422e-03_jprb,4.7812e-03_jprb,4.8736e-03_jprb,4.8440e-03_jprb,&
 & 4.6768e-03_jprb,4.2674e-03_jprb,3.6212e-03_jprb/)  
kao( :, 5, 4, 9) = (/&
 & 3.7121e-03_jprb,4.3594e-03_jprb,4.8380e-03_jprb,5.1176e-03_jprb,5.2295e-03_jprb,5.2140e-03_jprb,&
 & 5.0347e-03_jprb,4.5696e-03_jprb,3.9241e-03_jprb/)  
kao( :, 1, 5, 9) = (/&
 & 3.0937e-03_jprb,3.2190e-03_jprb,3.3382e-03_jprb,3.4069e-03_jprb,3.4508e-03_jprb,3.4576e-03_jprb,&
 & 3.4038e-03_jprb,3.2121e-03_jprb,2.7159e-03_jprb/)  
kao( :, 2, 5, 9) = (/&
 & 3.1841e-03_jprb,3.4102e-03_jprb,3.5885e-03_jprb,3.6988e-03_jprb,3.7561e-03_jprb,3.7570e-03_jprb,&
 & 3.6806e-03_jprb,3.4524e-03_jprb,2.9248e-03_jprb/)  
kao( :, 3, 5, 9) = (/&
 & 3.2704e-03_jprb,3.6051e-03_jprb,3.8485e-03_jprb,3.9980e-03_jprb,4.0672e-03_jprb,4.0649e-03_jprb,&
 & 3.9688e-03_jprb,3.7070e-03_jprb,3.1394e-03_jprb/)  
kao( :, 4, 5, 9) = (/&
 & 3.3530e-03_jprb,3.8023e-03_jprb,4.1127e-03_jprb,4.2944e-03_jprb,4.3822e-03_jprb,4.3830e-03_jprb,&
 & 4.2728e-03_jprb,3.9665e-03_jprb,3.3644e-03_jprb/)  
kao( :, 5, 5, 9) = (/&
 & 3.4386e-03_jprb,4.0026e-03_jprb,4.3842e-03_jprb,4.5975e-03_jprb,4.7014e-03_jprb,4.7133e-03_jprb,&
 & 4.5874e-03_jprb,4.2339e-03_jprb,3.6103e-03_jprb/)  
kao( :, 1, 6, 9) = (/&
 & 2.9009e-03_jprb,2.9757e-03_jprb,3.0499e-03_jprb,3.1038e-03_jprb,3.1541e-03_jprb,3.1847e-03_jprb,&
 & 3.1836e-03_jprb,3.0557e-03_jprb,2.5583e-03_jprb/)  
kao( :, 2, 6, 9) = (/&
 & 2.9774e-03_jprb,3.1460e-03_jprb,3.2679e-03_jprb,3.3537e-03_jprb,3.4147e-03_jprb,3.4421e-03_jprb,&
 & 3.4203e-03_jprb,3.2723e-03_jprb,2.7519e-03_jprb/)  
kao( :, 3, 6, 9) = (/&
 & 3.0522e-03_jprb,3.3185e-03_jprb,3.4964e-03_jprb,3.6100e-03_jprb,3.6827e-03_jprb,3.7087e-03_jprb,&
 & 3.6668e-03_jprb,3.4927e-03_jprb,2.9536e-03_jprb/)  
kao( :, 4, 6, 9) = (/&
 & 3.1282e-03_jprb,3.4957e-03_jprb,3.7291e-03_jprb,3.8695e-03_jprb,3.9556e-03_jprb,3.9847e-03_jprb,&
 & 3.9266e-03_jprb,3.7176e-03_jprb,3.1650e-03_jprb/)  
kao( :, 5, 6, 9) = (/&
 & 3.1999e-03_jprb,3.6746e-03_jprb,3.9646e-03_jprb,4.1331e-03_jprb,4.2341e-03_jprb,4.2712e-03_jprb,&
 & 4.1979e-03_jprb,3.9512e-03_jprb,3.3876e-03_jprb/)  
kao( :, 1, 7, 9) = (/&
 & 2.7415e-03_jprb,2.7746e-03_jprb,2.8210e-03_jprb,2.8741e-03_jprb,2.9327e-03_jprb,2.9829e-03_jprb,&
 & 2.9928e-03_jprb,2.8802e-03_jprb,2.4517e-03_jprb/)  
kao( :, 2, 7, 9) = (/&
 & 2.8079e-03_jprb,2.9223e-03_jprb,3.0084e-03_jprb,3.0853e-03_jprb,3.1485e-03_jprb,3.1999e-03_jprb,&
 & 3.2078e-03_jprb,3.0910e-03_jprb,2.6310e-03_jprb/)  
kao( :, 3, 7, 9) = (/&
 & 2.8746e-03_jprb,3.0732e-03_jprb,3.2043e-03_jprb,3.3040e-03_jprb,3.3751e-03_jprb,3.4239e-03_jprb,&
 & 3.4236e-03_jprb,3.2999e-03_jprb,2.8151e-03_jprb/)  
kao( :, 4, 7, 9) = (/&
 & 2.9412e-03_jprb,3.2304e-03_jprb,3.4053e-03_jprb,3.5266e-03_jprb,3.6086e-03_jprb,3.6573e-03_jprb,&
 & 3.6460e-03_jprb,3.5085e-03_jprb,3.0037e-03_jprb/)  
kao( :, 5, 7, 9) = (/&
 & 3.0012e-03_jprb,3.3903e-03_jprb,3.6088e-03_jprb,3.7519e-03_jprb,3.8465e-03_jprb,3.9004e-03_jprb,&
 & 3.8789e-03_jprb,3.7197e-03_jprb,3.2035e-03_jprb/)  
kao( :, 1, 8, 9) = (/&
 & 2.6011e-03_jprb,2.6087e-03_jprb,2.6505e-03_jprb,2.7115e-03_jprb,2.7795e-03_jprb,2.8145e-03_jprb,&
 & 2.7964e-03_jprb,2.6829e-03_jprb,2.5124e-03_jprb/)  
kao( :, 2, 8, 9) = (/&
 & 2.6605e-03_jprb,2.7384e-03_jprb,2.8102e-03_jprb,2.8876e-03_jprb,2.9588e-03_jprb,3.0106e-03_jprb,&
 & 2.9995e-03_jprb,2.8886e-03_jprb,2.6866e-03_jprb/)  
kao( :, 3, 8, 9) = (/&
 & 2.7221e-03_jprb,2.8708e-03_jprb,2.9770e-03_jprb,3.0697e-03_jprb,3.1469e-03_jprb,3.2045e-03_jprb,&
 & 3.2054e-03_jprb,3.0872e-03_jprb,2.8608e-03_jprb/)  
kao( :, 4, 8, 9) = (/&
 & 2.7814e-03_jprb,3.0087e-03_jprb,3.1469e-03_jprb,3.2564e-03_jprb,3.3407e-03_jprb,3.4007e-03_jprb,&
 & 3.4134e-03_jprb,3.2854e-03_jprb,3.0367e-03_jprb/)  
kao( :, 5, 8, 9) = (/&
 & 2.8334e-03_jprb,3.1463e-03_jprb,3.3224e-03_jprb,3.4471e-03_jprb,3.5390e-03_jprb,3.6049e-03_jprb,&
 & 3.6218e-03_jprb,3.4862e-03_jprb,3.2148e-03_jprb/)  
kao( :, 1, 9, 9) = (/&
 & 2.4681e-03_jprb,2.4670e-03_jprb,2.5193e-03_jprb,2.5927e-03_jprb,2.6437e-03_jprb,2.6462e-03_jprb,&
 & 2.5937e-03_jprb,2.4688e-03_jprb,4.0106e-03_jprb/)  
kao( :, 2, 9, 9) = (/&
 & 2.5243e-03_jprb,2.5823e-03_jprb,2.6553e-03_jprb,2.7401e-03_jprb,2.8086e-03_jprb,2.8274e-03_jprb,&
 & 2.7863e-03_jprb,2.6637e-03_jprb,4.1870e-03_jprb/)  
kao( :, 3, 9, 9) = (/&
 & 2.5817e-03_jprb,2.6985e-03_jprb,2.7975e-03_jprb,2.8934e-03_jprb,2.9743e-03_jprb,3.0076e-03_jprb,&
 & 2.9804e-03_jprb,2.8541e-03_jprb,4.3637e-03_jprb/)  
kao( :, 4, 9, 9) = (/&
 & 2.6357e-03_jprb,2.8178e-03_jprb,2.9439e-03_jprb,3.0496e-03_jprb,3.1384e-03_jprb,3.1881e-03_jprb,&
 & 3.1729e-03_jprb,3.0435e-03_jprb,4.5427e-03_jprb/)  
kao( :, 5, 9, 9) = (/&
 & 2.6826e-03_jprb,2.9379e-03_jprb,3.0923e-03_jprb,3.2096e-03_jprb,3.3016e-03_jprb,3.3682e-03_jprb,&
 & 3.3659e-03_jprb,3.2338e-03_jprb,4.7326e-03_jprb/)  
kao( :, 1,10, 9) = (/&
 & 2.3365e-03_jprb,2.3445e-03_jprb,2.4180e-03_jprb,2.4933e-03_jprb,2.5143e-03_jprb,2.4864e-03_jprb,&
 & 2.4076e-03_jprb,2.2631e-03_jprb,1.0002e-02_jprb/)  
kao( :, 2,10, 9) = (/&
 & 2.3916e-03_jprb,2.4482e-03_jprb,2.5366e-03_jprb,2.6275e-03_jprb,2.6688e-03_jprb,2.6554e-03_jprb,&
 & 2.5866e-03_jprb,2.4438e-03_jprb,1.0188e-02_jprb/)  
kao( :, 3,10, 9) = (/&
 & 2.4458e-03_jprb,2.5525e-03_jprb,2.6602e-03_jprb,2.7640e-03_jprb,2.8222e-03_jprb,2.8241e-03_jprb,&
 & 2.7676e-03_jprb,2.6219e-03_jprb,1.0447e-02_jprb/)  
kao( :, 4,10, 9) = (/&
 & 2.4945e-03_jprb,2.6579e-03_jprb,2.7873e-03_jprb,2.8998e-03_jprb,2.9729e-03_jprb,2.9898e-03_jprb,&
 & 2.9465e-03_jprb,2.7998e-03_jprb,1.0769e-02_jprb/)  
kao( :, 5,10, 9) = (/&
 & 2.5382e-03_jprb,2.7637e-03_jprb,2.9128e-03_jprb,3.0348e-03_jprb,3.1210e-03_jprb,3.1536e-03_jprb,&
 & 3.1245e-03_jprb,2.9806e-03_jprb,1.1144e-02_jprb/)  
kao( :, 1,11, 9) = (/&
 & 2.2189e-03_jprb,2.2637e-03_jprb,2.3663e-03_jprb,2.4375e-03_jprb,2.4436e-03_jprb,2.3971e-03_jprb,&
 & 2.2998e-03_jprb,2.1349e-03_jprb,1.4165e-02_jprb/)  
kao( :, 2,11, 9) = (/&
 & 2.2725e-03_jprb,2.3594e-03_jprb,2.4775e-03_jprb,2.5648e-03_jprb,2.5873e-03_jprb,2.5525e-03_jprb,&
 & 2.4655e-03_jprb,2.2999e-03_jprb,1.4362e-02_jprb/)  
kao( :, 3,11, 9) = (/&
 & 2.3225e-03_jprb,2.4563e-03_jprb,2.5905e-03_jprb,2.6905e-03_jprb,2.7282e-03_jprb,2.7081e-03_jprb,&
 & 2.6314e-03_jprb,2.4622e-03_jprb,1.4689e-02_jprb/)  

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


SUBROUTINE part7

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


kao( :, 4,11, 9) = (/&
 & 2.3671e-03_jprb,2.5537e-03_jprb,2.7011e-03_jprb,2.8153e-03_jprb,2.8667e-03_jprb,2.8616e-03_jprb,&
 & 2.7947e-03_jprb,2.6271e-03_jprb,1.5129e-02_jprb/)  
kao( :, 5,11, 9) = (/&
 & 2.4082e-03_jprb,2.6482e-03_jprb,2.8083e-03_jprb,2.9363e-03_jprb,3.0040e-03_jprb,3.0155e-03_jprb,&
 & 2.9597e-03_jprb,2.7977e-03_jprb,1.5652e-02_jprb/)  
kao( :, 1,12, 9) = (/&
 & 2.0910e-03_jprb,2.1698e-03_jprb,2.2939e-03_jprb,2.3579e-03_jprb,2.3558e-03_jprb,2.2934e-03_jprb,&
 & 2.1816e-03_jprb,2.0022e-03_jprb,1.5828e-02_jprb/)  
kao( :, 2,12, 9) = (/&
 & 2.1414e-03_jprb,2.2595e-03_jprb,2.4019e-03_jprb,2.4797e-03_jprb,2.4872e-03_jprb,2.4364e-03_jprb,&
 & 2.3325e-03_jprb,2.1497e-03_jprb,1.6052e-02_jprb/)  
kao( :, 3,12, 9) = (/&
 & 2.1876e-03_jprb,2.3512e-03_jprb,2.5089e-03_jprb,2.5983e-03_jprb,2.6170e-03_jprb,2.5791e-03_jprb,&
 & 2.4816e-03_jprb,2.2977e-03_jprb,1.6424e-02_jprb/)  
kao( :, 4,12, 9) = (/&
 & 2.2305e-03_jprb,2.4411e-03_jprb,2.6103e-03_jprb,2.7123e-03_jprb,2.7468e-03_jprb,2.7221e-03_jprb,&
 & 2.6302e-03_jprb,2.4491e-03_jprb,1.6928e-02_jprb/)  
kao( :, 5,12, 9) = (/&
 & 2.2685e-03_jprb,2.5264e-03_jprb,2.7071e-03_jprb,2.8237e-03_jprb,2.8760e-03_jprb,2.8651e-03_jprb,&
 & 2.7812e-03_jprb,2.6061e-03_jprb,1.7523e-02_jprb/)  
kao( :, 1,13, 9) = (/&
 & 1.9577e-03_jprb,2.0704e-03_jprb,2.2038e-03_jprb,2.2584e-03_jprb,2.2491e-03_jprb,2.1789e-03_jprb,&
 & 2.0585e-03_jprb,1.8702e-03_jprb,1.4483e-02_jprb/)  
kao( :, 2,13, 9) = (/&
 & 2.0058e-03_jprb,2.1546e-03_jprb,2.3069e-03_jprb,2.3735e-03_jprb,2.3721e-03_jprb,2.3101e-03_jprb,&
 & 2.1933e-03_jprb,2.0001e-03_jprb,1.4716e-02_jprb/)  
kao( :, 3,13, 9) = (/&
 & 2.0506e-03_jprb,2.2392e-03_jprb,2.4060e-03_jprb,2.4864e-03_jprb,2.4932e-03_jprb,2.4402e-03_jprb,&
 & 2.3277e-03_jprb,2.1324e-03_jprb,1.5081e-02_jprb/)  
kao( :, 4,13, 9) = (/&
 & 2.0915e-03_jprb,2.3209e-03_jprb,2.5015e-03_jprb,2.5952e-03_jprb,2.6152e-03_jprb,2.5711e-03_jprb,&
 & 2.4622e-03_jprb,2.2684e-03_jprb,1.5556e-02_jprb/)  
kao( :, 5,13, 9) = (/&
 & 2.1275e-03_jprb,2.3984e-03_jprb,2.5936e-03_jprb,2.7019e-03_jprb,2.7369e-03_jprb,2.7034e-03_jprb,&
 & 2.5998e-03_jprb,2.4103e-03_jprb,1.6100e-02_jprb/)  
kao( :, 1, 1,10) = (/&
 & 1.7685e-02_jprb,1.5886e-02_jprb,1.5286e-02_jprb,1.4910e-02_jprb,1.4213e-02_jprb,1.2872e-02_jprb,&
 & 1.1554e-02_jprb,9.7299e-03_jprb,9.7670e-03_jprb/)  
kao( :, 2, 1,10) = (/&
 & 1.7924e-02_jprb,1.6198e-02_jprb,1.5800e-02_jprb,1.5762e-02_jprb,1.5013e-02_jprb,1.3648e-02_jprb,&
 & 1.2502e-02_jprb,1.0682e-02_jprb,1.1264e-02_jprb/)  
kao( :, 3, 1,10) = (/&
 & 1.8162e-02_jprb,1.6493e-02_jprb,1.6320e-02_jprb,1.6501e-02_jprb,1.5785e-02_jprb,1.4461e-02_jprb,&
 & 1.3394e-02_jprb,1.1688e-02_jprb,1.2766e-02_jprb/)  
kao( :, 4, 1,10) = (/&
 & 1.8373e-02_jprb,1.6799e-02_jprb,1.6869e-02_jprb,1.7132e-02_jprb,1.6537e-02_jprb,1.5302e-02_jprb,&
 & 1.4231e-02_jprb,1.2873e-02_jprb,1.4298e-02_jprb/)  
kao( :, 5, 1,10) = (/&
 & 1.8575e-02_jprb,1.7109e-02_jprb,1.7449e-02_jprb,1.7721e-02_jprb,1.7274e-02_jprb,1.6125e-02_jprb,&
 & 1.4995e-02_jprb,1.4230e-02_jprb,1.5931e-02_jprb/)  
kao( :, 1, 2,10) = (/&
 & 1.6873e-02_jprb,1.5273e-02_jprb,1.4928e-02_jprb,1.4779e-02_jprb,1.3931e-02_jprb,1.2662e-02_jprb,&
 & 1.1382e-02_jprb,9.2864e-03_jprb,8.6917e-03_jprb/)  
kao( :, 2, 2,10) = (/&
 & 1.7158e-02_jprb,1.5636e-02_jprb,1.5517e-02_jprb,1.5568e-02_jprb,1.4735e-02_jprb,1.3617e-02_jprb,&
 & 1.2343e-02_jprb,1.0165e-02_jprb,1.0091e-02_jprb/)  
kao( :, 3, 2,10) = (/&
 & 1.7424e-02_jprb,1.6018e-02_jprb,1.6130e-02_jprb,1.6288e-02_jprb,1.5522e-02_jprb,1.4562e-02_jprb,&
 & 1.3276e-02_jprb,1.1047e-02_jprb,1.1539e-02_jprb/)  
kao( :, 4, 2,10) = (/&
 & 1.7705e-02_jprb,1.6391e-02_jprb,1.6775e-02_jprb,1.6913e-02_jprb,1.6383e-02_jprb,1.5440e-02_jprb,&
 & 1.4111e-02_jprb,1.2115e-02_jprb,1.3109e-02_jprb/)  
kao( :, 5, 2,10) = (/&
 & 1.7946e-02_jprb,1.6730e-02_jprb,1.7389e-02_jprb,1.7560e-02_jprb,1.7230e-02_jprb,1.6260e-02_jprb,&
 & 1.4862e-02_jprb,1.3377e-02_jprb,1.4792e-02_jprb/)  
kao( :, 1, 3,10) = (/&
 & 1.5798e-02_jprb,1.4431e-02_jprb,1.4230e-02_jprb,1.4159e-02_jprb,1.3349e-02_jprb,1.2204e-02_jprb,&
 & 1.0867e-02_jprb,8.8000e-03_jprb,7.4513e-03_jprb/)  
kao( :, 2, 3,10) = (/&
 & 1.6121e-02_jprb,1.4897e-02_jprb,1.4916e-02_jprb,1.4922e-02_jprb,1.4162e-02_jprb,1.3251e-02_jprb,&
 & 1.1847e-02_jprb,9.5823e-03_jprb,8.7330e-03_jprb/)  
kao( :, 3, 3,10) = (/&
 & 1.6462e-02_jprb,1.5342e-02_jprb,1.5618e-02_jprb,1.5620e-02_jprb,1.5015e-02_jprb,1.4282e-02_jprb,&
 & 1.2797e-02_jprb,1.0384e-02_jprb,1.0179e-02_jprb/)  
kao( :, 4, 3,10) = (/&
 & 1.6798e-02_jprb,1.5765e-02_jprb,1.6290e-02_jprb,1.6289e-02_jprb,1.5973e-02_jprb,1.5269e-02_jprb,&
 & 1.3672e-02_jprb,1.1383e-02_jprb,1.1725e-02_jprb/)  
kao( :, 5, 3,10) = (/&
 & 1.7062e-02_jprb,1.6131e-02_jprb,1.6868e-02_jprb,1.7006e-02_jprb,1.6890e-02_jprb,1.6143e-02_jprb,&
 & 1.4482e-02_jprb,1.2538e-02_jprb,1.3312e-02_jprb/)  
kao( :, 1, 4,10) = (/&
 & 1.4564e-02_jprb,1.3497e-02_jprb,1.3366e-02_jprb,1.3251e-02_jprb,1.2600e-02_jprb,1.1517e-02_jprb,&
 & 1.0115e-02_jprb,8.2572e-03_jprb,6.3788e-03_jprb/)  
kao( :, 2, 4,10) = (/&
 & 1.4956e-02_jprb,1.4021e-02_jprb,1.4143e-02_jprb,1.3989e-02_jprb,1.3446e-02_jprb,1.2579e-02_jprb,&
 & 1.1185e-02_jprb,9.0656e-03_jprb,7.4847e-03_jprb/)  
kao( :, 3, 4,10) = (/&
 & 1.5366e-02_jprb,1.4523e-02_jprb,1.4865e-02_jprb,1.4686e-02_jprb,1.4396e-02_jprb,1.3630e-02_jprb,&
 & 1.2209e-02_jprb,9.8300e-03_jprb,8.7484e-03_jprb/)  
kao( :, 4, 4,10) = (/&
 & 1.5673e-02_jprb,1.4963e-02_jprb,1.5538e-02_jprb,1.5419e-02_jprb,1.5384e-02_jprb,1.4661e-02_jprb,&
 & 1.3123e-02_jprb,1.0681e-02_jprb,1.0095e-02_jprb/)  
kao( :, 5, 4,10) = (/&
 & 1.5927e-02_jprb,1.5374e-02_jprb,1.6106e-02_jprb,1.6246e-02_jprb,1.6331e-02_jprb,1.5570e-02_jprb,&
 & 1.3997e-02_jprb,1.1612e-02_jprb,1.1475e-02_jprb/)  
kao( :, 1, 5,10) = (/&
 & 1.3266e-02_jprb,1.2466e-02_jprb,1.2400e-02_jprb,1.2242e-02_jprb,1.1629e-02_jprb,1.0628e-02_jprb,&
 & 9.2898e-03_jprb,7.6240e-03_jprb,5.9670e-03_jprb/)  
kao( :, 2, 5,10) = (/&
 & 1.3732e-02_jprb,1.3052e-02_jprb,1.3208e-02_jprb,1.3005e-02_jprb,1.2522e-02_jprb,1.1685e-02_jprb,&
 & 1.0389e-02_jprb,8.4463e-03_jprb,6.6100e-03_jprb/)  
kao( :, 3, 5,10) = (/&
 & 1.4084e-02_jprb,1.3547e-02_jprb,1.3938e-02_jprb,1.3750e-02_jprb,1.3484e-02_jprb,1.2725e-02_jprb,&
 & 1.1484e-02_jprb,9.2095e-03_jprb,7.5100e-03_jprb/)  
kao( :, 4, 5,10) = (/&
 & 1.4380e-02_jprb,1.4005e-02_jprb,1.4577e-02_jprb,1.4581e-02_jprb,1.4467e-02_jprb,1.3764e-02_jprb,&
 & 1.2436e-02_jprb,1.0053e-02_jprb,8.5649e-03_jprb/)  
kao( :, 5, 5,10) = (/&
 & 1.4640e-02_jprb,1.4480e-02_jprb,1.5153e-02_jprb,1.5470e-02_jprb,1.5438e-02_jprb,1.4721e-02_jprb,&
 & 1.3356e-02_jprb,1.0839e-02_jprb,9.6988e-03_jprb/)  
kao( :, 1, 6,10) = (/&
 & 1.1942e-02_jprb,1.1353e-02_jprb,1.1339e-02_jprb,1.1150e-02_jprb,1.0468e-02_jprb,9.5854e-03_jprb,&
 & 8.3811e-03_jprb,7.0885e-03_jprb,5.8798e-03_jprb/)  
kao( :, 2, 6,10) = (/&
 & 1.2358e-02_jprb,1.1922e-02_jprb,1.2141e-02_jprb,1.1920e-02_jprb,1.1378e-02_jprb,1.0610e-02_jprb,&
 & 9.4501e-03_jprb,7.7713e-03_jprb,6.4066e-03_jprb/)  
kao( :, 3, 6,10) = (/&
 & 1.2698e-02_jprb,1.2427e-02_jprb,1.2838e-02_jprb,1.2735e-02_jprb,1.2366e-02_jprb,1.1633e-02_jprb,&
 & 1.0517e-02_jprb,8.4962e-03_jprb,6.9615e-03_jprb/)  
kao( :, 4, 6,10) = (/&
 & 1.2998e-02_jprb,1.2956e-02_jprb,1.3432e-02_jprb,1.3603e-02_jprb,1.3351e-02_jprb,1.2693e-02_jprb,&
 & 1.1517e-02_jprb,9.2932e-03_jprb,7.5694e-03_jprb/)  
kao( :, 5, 6,10) = (/&
 & 1.3245e-02_jprb,1.3459e-02_jprb,1.4045e-02_jprb,1.4501e-02_jprb,1.4340e-02_jprb,1.3672e-02_jprb,&
 & 1.2434e-02_jprb,1.0037e-02_jprb,8.3088e-03_jprb/)  
kao( :, 1, 7,10) = (/&
 & 1.0635e-02_jprb,1.0181e-02_jprb,1.0247e-02_jprb,9.9535e-03_jprb,9.2688e-03_jprb,8.4744e-03_jprb,&
 & 7.6731e-03_jprb,6.9595e-03_jprb,5.7767e-03_jprb/)  
kao( :, 2, 7,10) = (/&
 & 1.1001e-02_jprb,1.0731e-02_jprb,1.1001e-02_jprb,1.0727e-02_jprb,1.0196e-02_jprb,9.4273e-03_jprb,&
 & 8.5283e-03_jprb,7.4633e-03_jprb,6.2551e-03_jprb/)  
kao( :, 3, 7,10) = (/&
 & 1.1326e-02_jprb,1.1289e-02_jprb,1.1647e-02_jprb,1.1559e-02_jprb,1.1156e-02_jprb,1.0455e-02_jprb,&
 & 9.4847e-03_jprb,7.9997e-03_jprb,6.7556e-03_jprb/)  
kao( :, 4, 7,10) = (/&
 & 1.1605e-02_jprb,1.1840e-02_jprb,1.2266e-02_jprb,1.2419e-02_jprb,1.2130e-02_jprb,1.1514e-02_jprb,&
 & 1.0422e-02_jprb,8.6046e-03_jprb,7.2812e-03_jprb/)  
kao( :, 5, 7,10) = (/&
 & 1.1846e-02_jprb,1.2301e-02_jprb,1.2939e-02_jprb,1.3278e-02_jprb,1.3141e-02_jprb,1.2520e-02_jprb,&
 & 1.1309e-02_jprb,9.2291e-03_jprb,7.8135e-03_jprb/)  
kao( :, 1, 8,10) = (/&
 & 9.5318e-03_jprb,9.1400e-03_jprb,9.1541e-03_jprb,8.7469e-03_jprb,8.1107e-03_jprb,7.6844e-03_jprb,&
 & 7.4790e-03_jprb,6.8560e-03_jprb,6.1100e-03_jprb/)  
kao( :, 2, 8,10) = (/&
 & 9.8513e-03_jprb,9.6543e-03_jprb,9.8221e-03_jprb,9.4930e-03_jprb,8.9990e-03_jprb,8.4087e-03_jprb,&
 & 8.1002e-03_jprb,7.3297e-03_jprb,6.5036e-03_jprb/)  
kao( :, 3, 8,10) = (/&
 & 1.0121e-02_jprb,1.0183e-02_jprb,1.0429e-02_jprb,1.0295e-02_jprb,9.9219e-03_jprb,9.3052e-03_jprb,&
 & 8.7495e-03_jprb,7.8409e-03_jprb,6.8133e-03_jprb/)  
kao( :, 4, 8,10) = (/&
 & 1.0342e-02_jprb,1.0668e-02_jprb,1.1072e-02_jprb,1.1128e-02_jprb,1.0881e-02_jprb,1.0314e-02_jprb,&
 & 9.4319e-03_jprb,8.3379e-03_jprb,7.1719e-03_jprb/)  
kao( :, 5, 8,10) = (/&
 & 1.0574e-02_jprb,1.1111e-02_jprb,1.1730e-02_jprb,1.1969e-02_jprb,1.1864e-02_jprb,1.1283e-02_jprb,&
 & 1.0148e-02_jprb,8.8068e-03_jprb,7.6246e-03_jprb/)  
kao( :, 1, 9,10) = (/&
 & 8.6979e-03_jprb,8.3079e-03_jprb,8.1722e-03_jprb,7.6777e-03_jprb,7.3529e-03_jprb,7.3690e-03_jprb,&
 & 7.3422e-03_jprb,6.6830e-03_jprb,8.5832e-03_jprb/)  
kao( :, 2, 9,10) = (/&
 & 8.9724e-03_jprb,8.7731e-03_jprb,8.7419e-03_jprb,8.3348e-03_jprb,7.9939e-03_jprb,7.9020e-03_jprb,&
 & 7.8887e-03_jprb,7.1655e-03_jprb,9.0283e-03_jprb/)  
kao( :, 3, 9,10) = (/&
 & 9.1636e-03_jprb,9.2350e-03_jprb,9.2903e-03_jprb,9.0718e-03_jprb,8.7389e-03_jprb,8.5612e-03_jprb,&
 & 8.4201e-03_jprb,7.6462e-03_jprb,9.4969e-03_jprb/)  
kao( :, 4, 9,10) = (/&
 & 9.3430e-03_jprb,9.6411e-03_jprb,9.8735e-03_jprb,9.8458e-03_jprb,9.5925e-03_jprb,9.3082e-03_jprb,&
 & 8.9479e-03_jprb,8.0999e-03_jprb,9.9701e-03_jprb/)  
kao( :, 5, 9,10) = (/&
 & 9.5543e-03_jprb,1.0034e-02_jprb,1.0504e-02_jprb,1.0652e-02_jprb,1.0546e-02_jprb,1.0105e-02_jprb,&
 & 9.4548e-03_jprb,8.5503e-03_jprb,1.0439e-02_jprb/)  
kao( :, 1,10,10) = (/&
 & 8.1157e-03_jprb,7.6953e-03_jprb,7.3856e-03_jprb,7.0143e-03_jprb,7.0934e-03_jprb,7.1592e-03_jprb,&
 & 7.1366e-03_jprb,6.4736e-03_jprb,2.5288e-02_jprb/)  
kao( :, 2,10,10) = (/&
 & 8.3228e-03_jprb,8.1050e-03_jprb,7.8899e-03_jprb,7.5150e-03_jprb,7.5383e-03_jprb,7.6577e-03_jprb,&
 & 7.6569e-03_jprb,6.9536e-03_jprb,2.5969e-02_jprb/)  
kao( :, 3,10,10) = (/&
 & 8.4638e-03_jprb,8.4927e-03_jprb,8.3732e-03_jprb,8.1065e-03_jprb,8.0674e-03_jprb,8.2304e-03_jprb,&
 & 8.1217e-03_jprb,7.4527e-03_jprb,2.6813e-02_jprb/)  
kao( :, 4,10,10) = (/&
 & 8.6251e-03_jprb,8.8393e-03_jprb,8.8777e-03_jprb,8.7542e-03_jprb,8.7078e-03_jprb,8.8286e-03_jprb,&
 & 8.6165e-03_jprb,7.9058e-03_jprb,2.7708e-02_jprb/)  
kao( :, 5,10,10) = (/&
 & 8.7883e-03_jprb,9.2004e-03_jprb,9.4445e-03_jprb,9.4717e-03_jprb,9.4479e-03_jprb,9.4125e-03_jprb,&
 & 9.0956e-03_jprb,8.3203e-03_jprb,2.8653e-02_jprb/)  
kao( :, 1,11,10) = (/&
 & 7.8501e-03_jprb,7.4452e-03_jprb,7.0342e-03_jprb,6.9004e-03_jprb,7.0570e-03_jprb,7.1201e-03_jprb,&
 & 7.0476e-03_jprb,6.4243e-03_jprb,4.0572e-02_jprb/)  
kao( :, 2,11,10) = (/&
 & 7.9753e-03_jprb,7.7749e-03_jprb,7.4240e-03_jprb,7.3009e-03_jprb,7.4854e-03_jprb,7.6408e-03_jprb,&
 & 7.5205e-03_jprb,6.9049e-03_jprb,4.1441e-02_jprb/)  
kao( :, 3,11,10) = (/&
 & 8.0806e-03_jprb,8.0563e-03_jprb,7.8316e-03_jprb,7.7518e-03_jprb,7.9930e-03_jprb,8.1574e-03_jprb,&
 & 7.9957e-03_jprb,7.3976e-03_jprb,4.2222e-02_jprb/)  
kao( :, 4,11,10) = (/&
 & 8.1992e-03_jprb,8.3401e-03_jprb,8.2986e-03_jprb,8.2629e-03_jprb,8.5167e-03_jprb,8.6635e-03_jprb,&
 & 8.4735e-03_jprb,7.8541e-03_jprb,4.3187e-02_jprb/)  
kao( :, 5,11,10) = (/&
 & 8.2878e-03_jprb,8.6780e-03_jprb,8.8506e-03_jprb,8.8633e-03_jprb,9.0484e-03_jprb,9.1413e-03_jprb,&
 & 8.9084e-03_jprb,8.2746e-03_jprb,4.4361e-02_jprb/)  
kao( :, 1,12,10) = (/&
 & 7.6139e-03_jprb,7.2726e-03_jprb,6.8850e-03_jprb,6.9089e-03_jprb,6.9663e-03_jprb,7.0443e-03_jprb,&
 & 6.8750e-03_jprb,6.2469e-03_jprb,4.8797e-02_jprb/)  
kao( :, 2,12,10) = (/&
 & 7.7194e-03_jprb,7.5180e-03_jprb,7.1615e-03_jprb,7.2509e-03_jprb,7.4345e-03_jprb,7.5251e-03_jprb,&
 & 7.3302e-03_jprb,6.7269e-03_jprb,4.9597e-02_jprb/)  
kao( :, 3,12,10) = (/&
 & 7.8184e-03_jprb,7.7399e-03_jprb,7.4810e-03_jprb,7.6258e-03_jprb,7.9008e-03_jprb,7.9967e-03_jprb,&
 & 7.8018e-03_jprb,7.1947e-03_jprb,5.0339e-02_jprb/)  
kao( :, 4,12,10) = (/&
 & 7.8914e-03_jprb,7.9922e-03_jprb,7.8923e-03_jprb,8.0511e-03_jprb,8.3449e-03_jprb,8.4240e-03_jprb,&
 & 8.2687e-03_jprb,7.6521e-03_jprb,5.1350e-02_jprb/)  
kao( :, 5,12,10) = (/&
 & 7.9507e-03_jprb,8.2886e-03_jprb,8.3628e-03_jprb,8.5321e-03_jprb,8.7647e-03_jprb,8.8141e-03_jprb,&
 & 8.7116e-03_jprb,8.0986e-03_jprb,5.2764e-02_jprb/)  
kao( :, 1,13,10) = (/&
 & 7.3158e-03_jprb,7.0328e-03_jprb,6.8235e-03_jprb,6.9230e-03_jprb,6.9064e-03_jprb,6.8869e-03_jprb,&
 & 6.6102e-03_jprb,5.9534e-03_jprb,4.6027e-02_jprb/)  
kao( :, 2,13,10) = (/&
 & 7.4278e-03_jprb,7.2607e-03_jprb,7.0591e-03_jprb,7.2420e-03_jprb,7.3482e-03_jprb,7.3254e-03_jprb,&
 & 7.0547e-03_jprb,6.4187e-03_jprb,4.6671e-02_jprb/)  
kao( :, 3,13,10) = (/&
 & 7.5295e-03_jprb,7.4924e-03_jprb,7.3494e-03_jprb,7.5754e-03_jprb,7.7630e-03_jprb,7.7638e-03_jprb,&
 & 7.4975e-03_jprb,6.8755e-03_jprb,4.7440e-02_jprb/)  
kao( :, 4,13,10) = (/&
 & 7.6080e-03_jprb,7.7470e-03_jprb,7.6819e-03_jprb,7.9565e-03_jprb,8.1173e-03_jprb,8.1428e-03_jprb,&
 & 7.9589e-03_jprb,7.3493e-03_jprb,4.8497e-02_jprb/)  
kao( :, 5,13,10) = (/&
 & 7.6817e-03_jprb,8.0217e-03_jprb,8.0425e-03_jprb,8.3061e-03_jprb,8.4701e-03_jprb,8.5085e-03_jprb,&
 & 8.3860e-03_jprb,7.8301e-03_jprb,4.9971e-02_jprb/)  
kao( :, 1, 1,11) = (/&
 & 2.7764e-02_jprb,2.4426e-02_jprb,2.1973e-02_jprb,2.0093e-02_jprb,1.8666e-02_jprb,1.7278e-02_jprb,&
 & 1.5087e-02_jprb,1.3103e-02_jprb,1.4300e-02_jprb/)  
kao( :, 2, 1,11) = (/&
 & 2.7963e-02_jprb,2.4667e-02_jprb,2.2450e-02_jprb,2.0789e-02_jprb,1.9549e-02_jprb,1.8247e-02_jprb,&
 & 1.6059e-02_jprb,1.4781e-02_jprb,1.6422e-02_jprb/)  
kao( :, 3, 1,11) = (/&
 & 2.8032e-02_jprb,2.4854e-02_jprb,2.2829e-02_jprb,2.1504e-02_jprb,2.0423e-02_jprb,1.9213e-02_jprb,&
 & 1.7147e-02_jprb,1.6580e-02_jprb,1.8603e-02_jprb/)  
kao( :, 4, 1,11) = (/&
 & 2.7908e-02_jprb,2.4878e-02_jprb,2.3088e-02_jprb,2.2255e-02_jprb,2.1236e-02_jprb,2.0204e-02_jprb,&
 & 1.8256e-02_jprb,1.8454e-02_jprb,2.0859e-02_jprb/)  
kao( :, 5, 1,11) = (/&
 & 2.7693e-02_jprb,2.4833e-02_jprb,2.3283e-02_jprb,2.2953e-02_jprb,2.2107e-02_jprb,2.1010e-02_jprb,&
 & 1.9343e-02_jprb,2.0385e-02_jprb,2.3144e-02_jprb/)  
kao( :, 1, 2,11) = (/&
 & 2.7646e-02_jprb,2.4332e-02_jprb,2.2092e-02_jprb,2.0298e-02_jprb,1.9042e-02_jprb,1.7440e-02_jprb,&
 & 1.5349e-02_jprb,1.2664e-02_jprb,1.3386e-02_jprb/)  
kao( :, 2, 2,11) = (/&
 & 2.7909e-02_jprb,2.4672e-02_jprb,2.2646e-02_jprb,2.1214e-02_jprb,2.0006e-02_jprb,1.8412e-02_jprb,&
 & 1.6391e-02_jprb,1.4178e-02_jprb,1.5546e-02_jprb/)  
kao( :, 3, 2,11) = (/&
 & 2.7965e-02_jprb,2.4859e-02_jprb,2.3085e-02_jprb,2.2119e-02_jprb,2.0910e-02_jprb,1.9436e-02_jprb,&
 & 1.7350e-02_jprb,1.5867e-02_jprb,1.7743e-02_jprb/)  
kao( :, 4, 2,11) = (/&
 & 2.7851e-02_jprb,2.4932e-02_jprb,2.3473e-02_jprb,2.2951e-02_jprb,2.1773e-02_jprb,2.0509e-02_jprb,&
 & 1.8306e-02_jprb,1.7658e-02_jprb,1.9938e-02_jprb/)  
kao( :, 5, 2,11) = (/&
 & 2.7716e-02_jprb,2.4986e-02_jprb,2.3872e-02_jprb,2.3624e-02_jprb,2.2685e-02_jprb,2.1385e-02_jprb,&
 & 1.9339e-02_jprb,1.9475e-02_jprb,2.2096e-02_jprb/)  
kao( :, 1, 3,11) = (/&
 & 2.7136e-02_jprb,2.3913e-02_jprb,2.1898e-02_jprb,2.0239e-02_jprb,1.8943e-02_jprb,1.7255e-02_jprb,&
 & 1.5286e-02_jprb,1.1962e-02_jprb,1.1731e-02_jprb/)  
kao( :, 2, 3,11) = (/&
 & 2.7384e-02_jprb,2.4261e-02_jprb,2.2497e-02_jprb,2.1296e-02_jprb,2.0064e-02_jprb,1.8265e-02_jprb,&
 & 1.6402e-02_jprb,1.3201e-02_jprb,1.3756e-02_jprb/)  
kao( :, 3, 3,11) = (/&
 & 2.7424e-02_jprb,2.4494e-02_jprb,2.3027e-02_jprb,2.2286e-02_jprb,2.1084e-02_jprb,1.9295e-02_jprb,&
 & 1.7402e-02_jprb,1.4625e-02_jprb,1.5844e-02_jprb/)  
kao( :, 4, 3,11) = (/&
 & 2.7396e-02_jprb,2.4666e-02_jprb,2.3610e-02_jprb,2.3218e-02_jprb,2.1991e-02_jprb,2.0436e-02_jprb,&
 & 1.8232e-02_jprb,1.6186e-02_jprb,1.7976e-02_jprb/)  
kao( :, 5, 3,11) = (/&
 & 2.7396e-02_jprb,2.4863e-02_jprb,2.4263e-02_jprb,2.4003e-02_jprb,2.2894e-02_jprb,2.1428e-02_jprb,&
 & 1.9099e-02_jprb,1.7923e-02_jprb,2.0191e-02_jprb/)  
kao( :, 1, 4,11) = (/&
 & 2.6120e-02_jprb,2.3055e-02_jprb,2.1334e-02_jprb,1.9874e-02_jprb,1.8554e-02_jprb,1.6913e-02_jprb,&
 & 1.4849e-02_jprb,1.1247e-02_jprb,9.9817e-03_jprb/)  
kao( :, 2, 4,11) = (/&
 & 2.6346e-02_jprb,2.3452e-02_jprb,2.1987e-02_jprb,2.1036e-02_jprb,1.9768e-02_jprb,1.8034e-02_jprb,&
 & 1.5969e-02_jprb,1.2323e-02_jprb,1.1891e-02_jprb/)  
kao( :, 3, 4,11) = (/&
 & 2.6444e-02_jprb,2.3743e-02_jprb,2.2663e-02_jprb,2.2134e-02_jprb,2.0858e-02_jprb,1.9164e-02_jprb,&
 & 1.7004e-02_jprb,1.3536e-02_jprb,1.3883e-02_jprb/)  
kao( :, 4, 4,11) = (/&
 & 2.6615e-02_jprb,2.4091e-02_jprb,2.3417e-02_jprb,2.3175e-02_jprb,2.1815e-02_jprb,2.0352e-02_jprb,&
 & 1.7938e-02_jprb,1.4897e-02_jprb,1.5955e-02_jprb/)  
kao( :, 5, 4,11) = (/&
 & 2.6757e-02_jprb,2.4467e-02_jprb,2.4289e-02_jprb,2.4064e-02_jprb,2.2838e-02_jprb,2.1378e-02_jprb,&
 & 1.8780e-02_jprb,1.6458e-02_jprb,1.8170e-02_jprb/)  

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


SUBROUTINE part8

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


kao( :, 1, 5,11) = (/&
 & 2.4649e-02_jprb,2.1845e-02_jprb,2.0397e-02_jprb,1.9200e-02_jprb,1.7986e-02_jprb,1.6354e-02_jprb,&
 & 1.4106e-02_jprb,1.0659e-02_jprb,8.5296e-03_jprb/)  
kao( :, 2, 5,11) = (/&
 & 2.4915e-02_jprb,2.2302e-02_jprb,2.1150e-02_jprb,2.0451e-02_jprb,1.9259e-02_jprb,1.7581e-02_jprb,&
 & 1.5270e-02_jprb,1.1646e-02_jprb,1.0194e-02_jprb/)  
kao( :, 3, 5,11) = (/&
 & 2.5218e-02_jprb,2.2788e-02_jprb,2.1977e-02_jprb,2.1628e-02_jprb,2.0422e-02_jprb,1.8826e-02_jprb,&
 & 1.6327e-02_jprb,1.2719e-02_jprb,1.2019e-02_jprb/)  
kao( :, 4, 5,11) = (/&
 & 2.5482e-02_jprb,2.3305e-02_jprb,2.2941e-02_jprb,2.2718e-02_jprb,2.1512e-02_jprb,2.0034e-02_jprb,&
 & 1.7375e-02_jprb,1.3885e-02_jprb,1.4041e-02_jprb/)  
kao( :, 5, 5,11) = (/&
 & 2.5726e-02_jprb,2.3793e-02_jprb,2.3951e-02_jprb,2.3636e-02_jprb,2.2618e-02_jprb,2.1077e-02_jprb,&
 & 1.8363e-02_jprb,1.5350e-02_jprb,1.6202e-02_jprb/)  
kao( :, 1, 6,11) = (/&
 & 2.2851e-02_jprb,2.0373e-02_jprb,1.9153e-02_jprb,1.8191e-02_jprb,1.7169e-02_jprb,1.5447e-02_jprb,&
 & 1.3127e-02_jprb,9.9268e-03_jprb,7.8128e-03_jprb/)  
kao( :, 2, 6,11) = (/&
 & 2.3274e-02_jprb,2.0974e-02_jprb,2.0039e-02_jprb,1.9515e-02_jprb,1.8501e-02_jprb,1.6740e-02_jprb,&
 & 1.4344e-02_jprb,1.0951e-02_jprb,8.8752e-03_jprb/)  
kao( :, 3, 6,11) = (/&
 & 2.3672e-02_jprb,2.1617e-02_jprb,2.1050e-02_jprb,2.0731e-02_jprb,1.9672e-02_jprb,1.8067e-02_jprb,&
 & 1.5465e-02_jprb,1.2013e-02_jprb,1.0301e-02_jprb/)  
kao( :, 4, 6,11) = (/&
 & 2.4031e-02_jprb,2.2215e-02_jprb,2.2188e-02_jprb,2.1796e-02_jprb,2.0865e-02_jprb,1.9256e-02_jprb,&
 & 1.6602e-02_jprb,1.3087e-02_jprb,1.2045e-02_jprb/)  
kao( :, 5, 6,11) = (/&
 & 2.4424e-02_jprb,2.2835e-02_jprb,2.3262e-02_jprb,2.2762e-02_jprb,2.2024e-02_jprb,2.0317e-02_jprb,&
 & 1.7726e-02_jprb,1.4330e-02_jprb,1.3970e-02_jprb/)  
kao( :, 1, 7,11) = (/&
 & 2.0897e-02_jprb,1.8755e-02_jprb,1.7733e-02_jprb,1.7022e-02_jprb,1.6054e-02_jprb,1.4311e-02_jprb,&
 & 1.2008e-02_jprb,9.2731e-03_jprb,7.7437e-03_jprb/)  
kao( :, 2, 7,11) = (/&
 & 2.1410e-02_jprb,1.9491e-02_jprb,1.8752e-02_jprb,1.8362e-02_jprb,1.7373e-02_jprb,1.5636e-02_jprb,&
 & 1.3285e-02_jprb,1.0177e-02_jprb,8.5051e-03_jprb/)  
kao( :, 3, 7,11) = (/&
 & 2.1887e-02_jprb,2.0202e-02_jprb,1.9920e-02_jprb,1.9593e-02_jprb,1.8568e-02_jprb,1.6958e-02_jprb,&
 & 1.4466e-02_jprb,1.1212e-02_jprb,9.3670e-03_jprb/)  
kao( :, 4, 7,11) = (/&
 & 2.2392e-02_jprb,2.0930e-02_jprb,2.1140e-02_jprb,2.0643e-02_jprb,1.9778e-02_jprb,1.8147e-02_jprb,&
 & 1.5692e-02_jprb,1.2278e-02_jprb,1.0489e-02_jprb/)  
kao( :, 5, 7,11) = (/&
 & 2.2888e-02_jprb,2.1742e-02_jprb,2.2178e-02_jprb,2.1714e-02_jprb,2.0936e-02_jprb,1.9278e-02_jprb,&
 & 1.6882e-02_jprb,1.3452e-02_jprb,1.1897e-02_jprb/)  
kao( :, 1, 8,11) = (/&
 & 1.8841e-02_jprb,1.7056e-02_jprb,1.6222e-02_jprb,1.5693e-02_jprb,1.4689e-02_jprb,1.2994e-02_jprb,&
 & 1.0918e-02_jprb,9.1547e-03_jprb,7.9124e-03_jprb/)  
kao( :, 2, 8,11) = (/&
 & 1.9409e-02_jprb,1.7855e-02_jprb,1.7363e-02_jprb,1.7024e-02_jprb,1.5955e-02_jprb,1.4305e-02_jprb,&
 & 1.2087e-02_jprb,9.7905e-03_jprb,8.4826e-03_jprb/)  
kao( :, 3, 8,11) = (/&
 & 1.9993e-02_jprb,1.8663e-02_jprb,1.8622e-02_jprb,1.8244e-02_jprb,1.7158e-02_jprb,1.5610e-02_jprb,&
 & 1.3302e-02_jprb,1.0551e-02_jprb,9.2336e-03_jprb/)  
kao( :, 4, 8,11) = (/&
 & 2.0602e-02_jprb,1.9539e-02_jprb,1.9827e-02_jprb,1.9347e-02_jprb,1.8357e-02_jprb,1.6779e-02_jprb,&
 & 1.4567e-02_jprb,1.1467e-02_jprb,9.9909e-03_jprb/)  
kao( :, 5, 8,11) = (/&
 & 2.1064e-02_jprb,2.0402e-02_jprb,2.0838e-02_jprb,2.0466e-02_jprb,1.9507e-02_jprb,1.7959e-02_jprb,&
 & 1.5824e-02_jprb,1.2520e-02_jprb,1.0807e-02_jprb/)  
kao( :, 1, 9,11) = (/&
 & 1.6824e-02_jprb,1.5334e-02_jprb,1.4694e-02_jprb,1.4181e-02_jprb,1.3143e-02_jprb,1.1680e-02_jprb,&
 & 1.0334e-02_jprb,9.1831e-03_jprb,1.1053e-02_jprb/)  
kao( :, 2, 9,11) = (/&
 & 1.7417e-02_jprb,1.6144e-02_jprb,1.5897e-02_jprb,1.5487e-02_jprb,1.4380e-02_jprb,1.2867e-02_jprb,&
 & 1.1184e-02_jprb,9.7551e-03_jprb,1.1728e-02_jprb/)  
kao( :, 3, 9,11) = (/&
 & 1.8068e-02_jprb,1.7042e-02_jprb,1.7161e-02_jprb,1.6678e-02_jprb,1.5557e-02_jprb,1.4093e-02_jprb,&
 & 1.2184e-02_jprb,1.0404e-02_jprb,1.2483e-02_jprb/)  
kao( :, 4, 9,11) = (/&
 & 1.8632e-02_jprb,1.7983e-02_jprb,1.8323e-02_jprb,1.7788e-02_jprb,1.6784e-02_jprb,1.5260e-02_jprb,&
 & 1.3324e-02_jprb,1.1123e-02_jprb,1.3280e-02_jprb/)  
kao( :, 5, 9,11) = (/&
 & 1.9073e-02_jprb,1.8843e-02_jprb,1.9281e-02_jprb,1.8905e-02_jprb,1.7900e-02_jprb,1.6447e-02_jprb,&
 & 1.4515e-02_jprb,1.1877e-02_jprb,1.4077e-02_jprb/)  
kao( :, 1,10,11) = (/&
 & 1.5121e-02_jprb,1.3838e-02_jprb,1.3365e-02_jprb,1.2721e-02_jprb,1.1737e-02_jprb,1.0953e-02_jprb,&
 & 1.0213e-02_jprb,9.1916e-03_jprb,3.5198e-02_jprb/)  
kao( :, 2,10,11) = (/&
 & 1.5710e-02_jprb,1.4640e-02_jprb,1.4492e-02_jprb,1.3911e-02_jprb,1.2838e-02_jprb,1.1818e-02_jprb,&
 & 1.0924e-02_jprb,9.7376e-03_jprb,3.6361e-02_jprb/)  
kao( :, 3,10,11) = (/&
 & 1.6286e-02_jprb,1.5525e-02_jprb,1.5683e-02_jprb,1.5045e-02_jprb,1.3992e-02_jprb,1.2769e-02_jprb,&
 & 1.1723e-02_jprb,1.0342e-02_jprb,3.7359e-02_jprb/)  
kao( :, 4,10,11) = (/&
 & 1.6782e-02_jprb,1.6440e-02_jprb,1.6745e-02_jprb,1.6156e-02_jprb,1.5181e-02_jprb,1.3811e-02_jprb,&
 & 1.2551e-02_jprb,1.1044e-02_jprb,3.8551e-02_jprb/)  
kao( :, 5,10,11) = (/&
 & 1.7221e-02_jprb,1.7284e-02_jprb,1.7650e-02_jprb,1.7276e-02_jprb,1.6297e-02_jprb,1.4958e-02_jprb,&
 & 1.3449e-02_jprb,1.1753e-02_jprb,3.9714e-02_jprb/)  
kao( :, 1,11,11) = (/&
 & 1.4019e-02_jprb,1.2957e-02_jprb,1.2611e-02_jprb,1.1869e-02_jprb,1.1221e-02_jprb,1.0951e-02_jprb,&
 & 1.0419e-02_jprb,9.2574e-03_jprb,5.9295e-02_jprb/)  
kao( :, 2,11,11) = (/&
 & 1.4514e-02_jprb,1.3729e-02_jprb,1.3655e-02_jprb,1.2913e-02_jprb,1.2091e-02_jprb,1.1604e-02_jprb,&
 & 1.1118e-02_jprb,9.8828e-03_jprb,6.0862e-02_jprb/)  
kao( :, 3,11,11) = (/&
 & 1.4986e-02_jprb,1.4596e-02_jprb,1.4648e-02_jprb,1.3931e-02_jprb,1.3062e-02_jprb,1.2353e-02_jprb,&
 & 1.1821e-02_jprb,1.0518e-02_jprb,6.2214e-02_jprb/)  
kao( :, 4,11,11) = (/&
 & 1.5398e-02_jprb,1.5423e-02_jprb,1.5511e-02_jprb,1.4991e-02_jprb,1.4093e-02_jprb,1.3225e-02_jprb,&
 & 1.2498e-02_jprb,1.1195e-02_jprb,6.3269e-02_jprb/)  
kao( :, 5,11,11) = (/&
 & 1.5718e-02_jprb,1.6102e-02_jprb,1.6332e-02_jprb,1.5968e-02_jprb,1.5171e-02_jprb,1.4160e-02_jprb,&
 & 1.3209e-02_jprb,1.1891e-02_jprb,6.4542e-02_jprb/)  
kao( :, 1,12,11) = (/&
 & 1.3164e-02_jprb,1.2292e-02_jprb,1.1927e-02_jprb,1.1265e-02_jprb,1.1057e-02_jprb,1.0913e-02_jprb,&
 & 1.0445e-02_jprb,9.2736e-03_jprb,7.4756e-02_jprb/)  
kao( :, 2,12,11) = (/&
 & 1.3602e-02_jprb,1.3075e-02_jprb,1.2792e-02_jprb,1.2052e-02_jprb,1.1692e-02_jprb,1.1536e-02_jprb,&
 & 1.1126e-02_jprb,9.9170e-03_jprb,7.6306e-02_jprb/)  
kao( :, 3,12,11) = (/&
 & 1.3977e-02_jprb,1.3830e-02_jprb,1.3590e-02_jprb,1.2927e-02_jprb,1.2424e-02_jprb,1.2227e-02_jprb,&
 & 1.1745e-02_jprb,1.0613e-02_jprb,7.7655e-02_jprb/)  
kao( :, 4,12,11) = (/&
 & 1.4251e-02_jprb,1.4432e-02_jprb,1.4329e-02_jprb,1.3821e-02_jprb,1.3256e-02_jprb,1.2933e-02_jprb,&
 & 1.2386e-02_jprb,1.1303e-02_jprb,7.8663e-02_jprb/)  
kao( :, 5,12,11) = (/&
 & 1.4497e-02_jprb,1.4939e-02_jprb,1.5040e-02_jprb,1.4676e-02_jprb,1.4122e-02_jprb,1.3675e-02_jprb,&
 & 1.3045e-02_jprb,1.1981e-02_jprb,7.9879e-02_jprb/)  
kao( :, 1,13,11) = (/&
 & 1.2616e-02_jprb,1.1893e-02_jprb,1.1313e-02_jprb,1.0907e-02_jprb,1.0966e-02_jprb,1.0790e-02_jprb,&
 & 1.0280e-02_jprb,9.1949e-03_jprb,7.3725e-02_jprb/)  
kao( :, 2,13,11) = (/&
 & 1.2957e-02_jprb,1.2555e-02_jprb,1.2016e-02_jprb,1.1533e-02_jprb,1.1499e-02_jprb,1.1400e-02_jprb,&
 & 1.0924e-02_jprb,9.8797e-03_jprb,7.4996e-02_jprb/)  
kao( :, 3,13,11) = (/&
 & 1.3172e-02_jprb,1.3071e-02_jprb,1.2663e-02_jprb,1.2207e-02_jprb,1.2117e-02_jprb,1.2009e-02_jprb,&
 & 1.1575e-02_jprb,1.0610e-02_jprb,7.6038e-02_jprb/)  
kao( :, 4,13,11) = (/&
 & 1.3348e-02_jprb,1.3517e-02_jprb,1.3285e-02_jprb,1.2851e-02_jprb,1.2762e-02_jprb,1.2671e-02_jprb,&
 & 1.2190e-02_jprb,1.1315e-02_jprb,7.7063e-02_jprb/)  
kao( :, 5,13,11) = (/&
 & 1.3524e-02_jprb,1.3946e-02_jprb,1.3887e-02_jprb,1.3540e-02_jprb,1.3388e-02_jprb,1.3305e-02_jprb,&
 & 1.2841e-02_jprb,1.2009e-02_jprb,7.8468e-02_jprb/)  
kao( :, 1, 1,12) = (/&
 & 3.9522e-02_jprb,3.4695e-02_jprb,3.0393e-02_jprb,2.7444e-02_jprb,2.4701e-02_jprb,2.2430e-02_jprb,&
 & 1.9690e-02_jprb,1.9007e-02_jprb,2.1357e-02_jprb/)  
kao( :, 2, 1,12) = (/&
 & 3.9055e-02_jprb,3.4293e-02_jprb,3.0365e-02_jprb,2.7692e-02_jprb,2.5619e-02_jprb,2.3505e-02_jprb,&
 & 2.1002e-02_jprb,2.1723e-02_jprb,2.4548e-02_jprb/)  
kao( :, 3, 1,12) = (/&
 & 3.8771e-02_jprb,3.4045e-02_jprb,3.0558e-02_jprb,2.8122e-02_jprb,2.6598e-02_jprb,2.4455e-02_jprb,&
 & 2.2524e-02_jprb,2.4725e-02_jprb,2.7978e-02_jprb/)  
kao( :, 4, 1,12) = (/&
 & 3.8655e-02_jprb,3.3972e-02_jprb,3.0813e-02_jprb,2.8575e-02_jprb,2.7403e-02_jprb,2.5405e-02_jprb,&
 & 2.4525e-02_jprb,2.7903e-02_jprb,3.1582e-02_jprb/)  
kao( :, 5, 1,12) = (/&
 & 3.8581e-02_jprb,3.4020e-02_jprb,3.1105e-02_jprb,2.9186e-02_jprb,2.7932e-02_jprb,2.6686e-02_jprb,&
 & 2.7056e-02_jprb,3.1213e-02_jprb,3.5341e-02_jprb/)  
kao( :, 1, 2,12) = (/&
 & 4.0900e-02_jprb,3.5882e-02_jprb,3.1540e-02_jprb,2.8648e-02_jprb,2.5916e-02_jprb,2.3479e-02_jprb,&
 & 1.9842e-02_jprb,1.8172e-02_jprb,2.0462e-02_jprb/)  
kao( :, 2, 2,12) = (/&
 & 4.0629e-02_jprb,3.5647e-02_jprb,3.1749e-02_jprb,2.9079e-02_jprb,2.7038e-02_jprb,2.4448e-02_jprb,&
 & 2.0997e-02_jprb,2.0801e-02_jprb,2.3586e-02_jprb/)  
kao( :, 3, 2,12) = (/&
 & 4.0634e-02_jprb,3.5666e-02_jprb,3.2165e-02_jprb,2.9630e-02_jprb,2.8090e-02_jprb,2.5205e-02_jprb,&
 & 2.2483e-02_jprb,2.3756e-02_jprb,2.6981e-02_jprb/)  
kao( :, 4, 2,12) = (/&
 & 4.0680e-02_jprb,3.5804e-02_jprb,3.2512e-02_jprb,3.0271e-02_jprb,2.8844e-02_jprb,2.6048e-02_jprb,&
 & 2.4362e-02_jprb,2.6965e-02_jprb,3.0664e-02_jprb/)  
kao( :, 5, 2,12) = (/&
 & 4.0551e-02_jprb,3.5850e-02_jprb,3.2760e-02_jprb,3.1085e-02_jprb,2.9377e-02_jprb,2.7302e-02_jprb,&
 & 2.6614e-02_jprb,3.0323e-02_jprb,3.4512e-02_jprb/)  
kao( :, 1, 3,12) = (/&
 & 4.2297e-02_jprb,3.7083e-02_jprb,3.2675e-02_jprb,2.9696e-02_jprb,2.6819e-02_jprb,2.4251e-02_jprb,&
 & 1.9800e-02_jprb,1.7013e-02_jprb,1.8998e-02_jprb/)  
kao( :, 2, 3,12) = (/&
 & 4.2345e-02_jprb,3.7129e-02_jprb,3.3126e-02_jprb,3.0221e-02_jprb,2.7989e-02_jprb,2.5268e-02_jprb,&
 & 2.0870e-02_jprb,1.9534e-02_jprb,2.2175e-02_jprb/)  
kao( :, 3, 3,12) = (/&
 & 4.2503e-02_jprb,3.7329e-02_jprb,3.3705e-02_jprb,3.0884e-02_jprb,2.9095e-02_jprb,2.6012e-02_jprb,&
 & 2.2274e-02_jprb,2.2409e-02_jprb,2.5549e-02_jprb/)  
kao( :, 4, 3,12) = (/&
 & 4.2563e-02_jprb,3.7513e-02_jprb,3.4118e-02_jprb,3.1719e-02_jprb,2.9991e-02_jprb,2.6648e-02_jprb,&
 & 2.4107e-02_jprb,2.5501e-02_jprb,2.9091e-02_jprb/)  
kao( :, 5, 3,12) = (/&
 & 4.2352e-02_jprb,3.7494e-02_jprb,3.4375e-02_jprb,3.2625e-02_jprb,3.0646e-02_jprb,2.7653e-02_jprb,&
 & 2.6034e-02_jprb,2.8674e-02_jprb,3.2704e-02_jprb/)  
kao( :, 1, 4,12) = (/&
 & 4.3449e-02_jprb,3.8071e-02_jprb,3.3569e-02_jprb,3.0433e-02_jprb,2.7408e-02_jprb,2.4611e-02_jprb,&
 & 2.0108e-02_jprb,1.5832e-02_jprb,1.6869e-02_jprb/)  
kao( :, 2, 4,12) = (/&
 & 4.3754e-02_jprb,3.8357e-02_jprb,3.4350e-02_jprb,3.1115e-02_jprb,2.8679e-02_jprb,2.5625e-02_jprb,&
 & 2.1066e-02_jprb,1.8077e-02_jprb,2.0082e-02_jprb/)  
kao( :, 3, 4,12) = (/&
 & 4.3973e-02_jprb,3.8656e-02_jprb,3.5023e-02_jprb,3.2006e-02_jprb,2.9792e-02_jprb,2.6458e-02_jprb,&
 & 2.2328e-02_jprb,2.0812e-02_jprb,2.3540e-02_jprb/)  
kao( :, 4, 4,12) = (/&
 & 4.3938e-02_jprb,3.8773e-02_jprb,3.5454e-02_jprb,3.2980e-02_jprb,3.0747e-02_jprb,2.7193e-02_jprb,&
 & 2.3978e-02_jprb,2.3783e-02_jprb,2.7070e-02_jprb/)  
kao( :, 5, 4,12) = (/&
 & 4.3814e-02_jprb,3.8836e-02_jprb,3.5796e-02_jprb,3.3909e-02_jprb,3.1572e-02_jprb,2.8214e-02_jprb,&
 & 2.5779e-02_jprb,2.6823e-02_jprb,3.0560e-02_jprb/)  
kao( :, 1, 5,12) = (/&
 & 4.3987e-02_jprb,3.8530e-02_jprb,3.4139e-02_jprb,3.0809e-02_jprb,2.7641e-02_jprb,2.4664e-02_jprb,&
 & 2.0281e-02_jprb,1.4828e-02_jprb,1.4596e-02_jprb/)  
kao( :, 2, 5,12) = (/&
 & 4.4423e-02_jprb,3.8965e-02_jprb,3.5098e-02_jprb,3.1717e-02_jprb,2.9032e-02_jprb,2.5717e-02_jprb,&
 & 2.1306e-02_jprb,1.6792e-02_jprb,1.7692e-02_jprb/)  
kao( :, 3, 5,12) = (/&
 & 4.4740e-02_jprb,3.9368e-02_jprb,3.5854e-02_jprb,3.2800e-02_jprb,3.0202e-02_jprb,2.6633e-02_jprb,&
 & 2.2521e-02_jprb,1.9130e-02_jprb,2.0967e-02_jprb/)  
kao( :, 4, 5,12) = (/&
 & 4.4784e-02_jprb,3.9578e-02_jprb,3.6349e-02_jprb,3.3852e-02_jprb,3.1212e-02_jprb,2.7594e-02_jprb,&
 & 2.3985e-02_jprb,2.1768e-02_jprb,2.4335e-02_jprb/)  
kao( :, 5, 5,12) = (/&
 & 4.4634e-02_jprb,3.9684e-02_jprb,3.6716e-02_jprb,3.4783e-02_jprb,3.2166e-02_jprb,2.8840e-02_jprb,&
 & 2.5566e-02_jprb,2.4589e-02_jprb,2.7780e-02_jprb/)  
kao( :, 1, 6,12) = (/&
 & 4.3652e-02_jprb,3.8230e-02_jprb,3.4067e-02_jprb,3.0633e-02_jprb,2.7394e-02_jprb,2.4357e-02_jprb,&
 & 2.0018e-02_jprb,1.4129e-02_jprb,1.2309e-02_jprb/)  
kao( :, 2, 6,12) = (/&
 & 4.4319e-02_jprb,3.8893e-02_jprb,3.5172e-02_jprb,3.1745e-02_jprb,2.8902e-02_jprb,2.5570e-02_jprb,&
 & 2.1093e-02_jprb,1.5716e-02_jprb,1.5104e-02_jprb/)  
kao( :, 3, 6,12) = (/&
 & 4.4786e-02_jprb,3.9451e-02_jprb,3.6064e-02_jprb,3.2991e-02_jprb,3.0223e-02_jprb,2.6609e-02_jprb,&
 & 2.2435e-02_jprb,1.7637e-02_jprb,1.8165e-02_jprb/)  
kao( :, 4, 6,12) = (/&
 & 4.4788e-02_jprb,3.9699e-02_jprb,3.6561e-02_jprb,3.4163e-02_jprb,3.1314e-02_jprb,2.7788e-02_jprb,&
 & 2.3906e-02_jprb,1.9877e-02_jprb,2.1395e-02_jprb/)  
kao( :, 5, 6,12) = (/&
 & 4.4447e-02_jprb,3.9668e-02_jprb,3.6988e-02_jprb,3.5173e-02_jprb,3.2361e-02_jprb,2.9209e-02_jprb,&
 & 2.5326e-02_jprb,2.2392e-02_jprb,2.4740e-02_jprb/)  
kao( :, 1, 7,12) = (/&
 & 4.2520e-02_jprb,3.7241e-02_jprb,3.3313e-02_jprb,2.9817e-02_jprb,2.6724e-02_jprb,2.3713e-02_jprb,&
 & 1.9392e-02_jprb,1.3514e-02_jprb,1.0779e-02_jprb/)  
kao( :, 2, 7,12) = (/&
 & 4.3342e-02_jprb,3.8062e-02_jprb,3.4549e-02_jprb,3.1204e-02_jprb,2.8393e-02_jprb,2.5083e-02_jprb,&
 & 2.0539e-02_jprb,1.4970e-02_jprb,1.2835e-02_jprb/)  
kao( :, 3, 7,12) = (/&
 & 4.3790e-02_jprb,3.8673e-02_jprb,3.5497e-02_jprb,3.2592e-02_jprb,2.9885e-02_jprb,2.6278e-02_jprb,&
 & 2.1950e-02_jprb,1.6561e-02_jprb,1.5528e-02_jprb/)  
kao( :, 4, 7,12) = (/&
 & 4.3699e-02_jprb,3.8889e-02_jprb,3.6038e-02_jprb,3.3992e-02_jprb,3.1096e-02_jprb,2.7610e-02_jprb,&
 & 2.3462e-02_jprb,1.8494e-02_jprb,1.8561e-02_jprb/)  
kao( :, 5, 7,12) = (/&
 & 4.3391e-02_jprb,3.8899e-02_jprb,3.6695e-02_jprb,3.5094e-02_jprb,3.2242e-02_jprb,2.9127e-02_jprb,&
 & 2.4986e-02_jprb,2.0683e-02_jprb,2.1759e-02_jprb/)  
kao( :, 1, 8,12) = (/&
 & 4.0705e-02_jprb,3.5661e-02_jprb,3.2044e-02_jprb,2.8588e-02_jprb,2.5730e-02_jprb,2.2651e-02_jprb,&
 & 1.8403e-02_jprb,1.2786e-02_jprb,1.0617e-02_jprb/)  
kao( :, 2, 8,12) = (/&
 & 4.1513e-02_jprb,3.6523e-02_jprb,3.3287e-02_jprb,3.0168e-02_jprb,2.7518e-02_jprb,2.4185e-02_jprb,&
 & 1.9645e-02_jprb,1.4186e-02_jprb,1.1770e-02_jprb/)  
kao( :, 3, 8,12) = (/&
 & 4.1918e-02_jprb,3.7171e-02_jprb,3.4241e-02_jprb,3.1699e-02_jprb,2.9124e-02_jprb,2.5489e-02_jprb,&
 & 2.1120e-02_jprb,1.5769e-02_jprb,1.3550e-02_jprb/)  
kao( :, 4, 8,12) = (/&
 & 4.1853e-02_jprb,3.7439e-02_jprb,3.4958e-02_jprb,3.3201e-02_jprb,3.0465e-02_jprb,2.6939e-02_jprb,&
 & 2.2712e-02_jprb,1.7517e-02_jprb,1.5986e-02_jprb/)  
kao( :, 5, 8,12) = (/&
 & 4.1733e-02_jprb,3.7668e-02_jprb,3.5839e-02_jprb,3.4355e-02_jprb,3.1760e-02_jprb,2.8542e-02_jprb,&
 & 2.4348e-02_jprb,1.9402e-02_jprb,1.8887e-02_jprb/)  
kao( :, 1, 9,12) = (/&
 & 3.8179e-02_jprb,3.3470e-02_jprb,3.0206e-02_jprb,2.7054e-02_jprb,2.4424e-02_jprb,2.1213e-02_jprb,&
 & 1.7112e-02_jprb,1.2467e-02_jprb,1.5003e-02_jprb/)  
kao( :, 2, 9,12) = (/&
 & 3.9010e-02_jprb,3.4434e-02_jprb,3.1441e-02_jprb,2.8741e-02_jprb,2.6231e-02_jprb,2.2823e-02_jprb,&
 & 1.8428e-02_jprb,1.3530e-02_jprb,1.6372e-02_jprb/)  
kao( :, 3, 9,12) = (/&
 & 3.9453e-02_jprb,3.5166e-02_jprb,3.2518e-02_jprb,3.0394e-02_jprb,2.7907e-02_jprb,2.4225e-02_jprb,&
 & 1.9954e-02_jprb,1.4900e-02_jprb,1.8039e-02_jprb/)  
kao( :, 4, 9,12) = (/&
 & 3.9552e-02_jprb,3.5595e-02_jprb,3.3460e-02_jprb,3.1929e-02_jprb,2.9264e-02_jprb,2.5769e-02_jprb,&
 & 2.1600e-02_jprb,1.6537e-02_jprb,1.9903e-02_jprb/)  
kao( :, 5, 9,12) = (/&
 & 3.9456e-02_jprb,3.5940e-02_jprb,3.4560e-02_jprb,3.3060e-02_jprb,3.0675e-02_jprb,2.7481e-02_jprb,&
 & 2.3382e-02_jprb,1.8398e-02_jprb,2.1739e-02_jprb/)  
kao( :, 1,10,12) = (/&
 & 3.5238e-02_jprb,3.0971e-02_jprb,2.8042e-02_jprb,2.5331e-02_jprb,2.2876e-02_jprb,1.9632e-02_jprb,&
 & 1.5965e-02_jprb,1.2700e-02_jprb,4.7338e-02_jprb/)  
kao( :, 2,10,12) = (/&
 & 3.6134e-02_jprb,3.2062e-02_jprb,2.9356e-02_jprb,2.7135e-02_jprb,2.4639e-02_jprb,2.1263e-02_jprb,&
 & 1.7126e-02_jprb,1.3564e-02_jprb,4.9352e-02_jprb/)  
kao( :, 3,10,12) = (/&
 & 3.6647e-02_jprb,3.2881e-02_jprb,3.0571e-02_jprb,2.8822e-02_jprb,2.6275e-02_jprb,2.2691e-02_jprb,&
 & 1.8634e-02_jprb,1.4609e-02_jprb,5.1163e-02_jprb/)  
kao( :, 4,10,12) = (/&
 & 3.6732e-02_jprb,3.3352e-02_jprb,3.1697e-02_jprb,3.0299e-02_jprb,2.7653e-02_jprb,2.4298e-02_jprb,&
 & 2.0355e-02_jprb,1.5925e-02_jprb,5.2665e-02_jprb/)  
kao( :, 5,10,12) = (/&
 & 3.6735e-02_jprb,3.3801e-02_jprb,3.2857e-02_jprb,3.1401e-02_jprb,2.9116e-02_jprb,2.6070e-02_jprb,&
 & 2.2245e-02_jprb,1.7479e-02_jprb,5.4548e-02_jprb/)  
kao( :, 1,11,12) = (/&
 & 3.2545e-02_jprb,2.8854e-02_jprb,2.6358e-02_jprb,2.4300e-02_jprb,2.1804e-02_jprb,1.8684e-02_jprb,&
 & 1.5775e-02_jprb,1.3392e-02_jprb,8.3440e-02_jprb/)  
kao( :, 2,11,12) = (/&
 & 3.3300e-02_jprb,2.9905e-02_jprb,2.7758e-02_jprb,2.6019e-02_jprb,2.3465e-02_jprb,2.0097e-02_jprb,&
 & 1.6793e-02_jprb,1.4249e-02_jprb,8.5867e-02_jprb/)  

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


SUBROUTINE part9

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


kao( :, 3,11,12) = (/&
 & 3.3558e-02_jprb,3.0525e-02_jprb,2.8985e-02_jprb,2.7554e-02_jprb,2.4920e-02_jprb,2.1636e-02_jprb,&
 & 1.8144e-02_jprb,1.5281e-02_jprb,8.8098e-02_jprb/)  
kao( :, 4,11,12) = (/&
 & 3.3710e-02_jprb,3.1080e-02_jprb,3.0218e-02_jprb,2.8753e-02_jprb,2.6347e-02_jprb,2.3365e-02_jprb,&
 & 1.9836e-02_jprb,1.6406e-02_jprb,9.0071e-02_jprb/)  
kao( :, 5,11,12) = (/&
 & 3.3928e-02_jprb,3.1726e-02_jprb,3.1326e-02_jprb,2.9966e-02_jprb,2.7916e-02_jprb,2.5204e-02_jprb,&
 & 2.1753e-02_jprb,1.7712e-02_jprb,9.1519e-02_jprb/)  
kao( :, 1,12,12) = (/&
 & 2.9830e-02_jprb,2.6721e-02_jprb,2.4676e-02_jprb,2.2938e-02_jprb,2.0448e-02_jprb,1.7882e-02_jprb,&
 & 1.5923e-02_jprb,1.3970e-02_jprb,1.1086e-01_jprb/)  
kao( :, 2,12,12) = (/&
 & 3.0231e-02_jprb,2.7476e-02_jprb,2.6007e-02_jprb,2.4462e-02_jprb,2.1935e-02_jprb,1.9103e-02_jprb,&
 & 1.6840e-02_jprb,1.4875e-02_jprb,1.1330e-01_jprb/)  
kao( :, 3,12,12) = (/&
 & 3.0491e-02_jprb,2.8099e-02_jprb,2.7260e-02_jprb,2.5711e-02_jprb,2.3307e-02_jprb,2.0562e-02_jprb,&
 & 1.8077e-02_jprb,1.5918e-02_jprb,1.1557e-01_jprb/)  
kao( :, 4,12,12) = (/&
 & 3.0757e-02_jprb,2.8842e-02_jprb,2.8411e-02_jprb,2.6924e-02_jprb,2.4803e-02_jprb,2.2253e-02_jprb,&
 & 1.9581e-02_jprb,1.7012e-02_jprb,1.1765e-01_jprb/)  
kao( :, 5,12,12) = (/&
 & 3.0918e-02_jprb,2.9599e-02_jprb,2.9489e-02_jprb,2.8288e-02_jprb,2.6494e-02_jprb,2.4129e-02_jprb,&
 & 2.1275e-02_jprb,1.8143e-02_jprb,1.1909e-01_jprb/)  
kao( :, 1,13,12) = (/&
 & 2.7094e-02_jprb,2.4532e-02_jprb,2.3049e-02_jprb,2.1309e-02_jprb,1.9154e-02_jprb,1.7486e-02_jprb,&
 & 1.6144e-02_jprb,1.4353e-02_jprb,1.1524e-01_jprb/)  
kao( :, 2,13,12) = (/&
 & 2.7412e-02_jprb,2.5168e-02_jprb,2.4223e-02_jprb,2.2514e-02_jprb,2.0316e-02_jprb,1.8507e-02_jprb,&
 & 1.7150e-02_jprb,1.5366e-02_jprb,1.1754e-01_jprb/)  
kao( :, 3,13,12) = (/&
 & 2.7677e-02_jprb,2.5904e-02_jprb,2.5334e-02_jprb,2.3685e-02_jprb,2.1617e-02_jprb,1.9773e-02_jprb,&
 & 1.8343e-02_jprb,1.6413e-02_jprb,1.1954e-01_jprb/)  
kao( :, 4,13,12) = (/&
 & 2.7872e-02_jprb,2.6672e-02_jprb,2.6384e-02_jprb,2.5015e-02_jprb,2.3188e-02_jprb,2.1278e-02_jprb,&
 & 1.9644e-02_jprb,1.7533e-02_jprb,1.2118e-01_jprb/)  
kao( :, 5,13,12) = (/&
 & 2.7954e-02_jprb,2.7488e-02_jprb,2.7495e-02_jprb,2.6532e-02_jprb,2.4977e-02_jprb,2.3012e-02_jprb,&
 & 2.1088e-02_jprb,1.8595e-02_jprb,1.2230e-01_jprb/)  
kao( :, 1, 1,13) = (/&
 & 5.6053e-02_jprb,4.9173e-02_jprb,4.2351e-02_jprb,3.6619e-02_jprb,3.1919e-02_jprb,2.7549e-02_jprb,&
 & 2.5709e-02_jprb,2.8817e-02_jprb,3.2228e-02_jprb/)  
kao( :, 2, 1,13) = (/&
 & 5.5104e-02_jprb,4.8363e-02_jprb,4.1989e-02_jprb,3.6731e-02_jprb,3.2283e-02_jprb,2.9042e-02_jprb,&
 & 2.9013e-02_jprb,3.3235e-02_jprb,3.7260e-02_jprb/)  
kao( :, 3, 1,13) = (/&
 & 5.3995e-02_jprb,4.7411e-02_jprb,4.1385e-02_jprb,3.6532e-02_jprb,3.2764e-02_jprb,3.0737e-02_jprb,&
 & 3.2896e-02_jprb,3.7808e-02_jprb,4.2479e-02_jprb/)  
kao( :, 4, 1,13) = (/&
 & 5.2736e-02_jprb,4.6336e-02_jprb,4.0785e-02_jprb,3.6489e-02_jprb,3.3723e-02_jprb,3.2658e-02_jprb,&
 & 3.6921e-02_jprb,4.2523e-02_jprb,4.7856e-02_jprb/)  
kao( :, 5, 1,13) = (/&
 & 5.1501e-02_jprb,4.5267e-02_jprb,4.0254e-02_jprb,3.6460e-02_jprb,3.5114e-02_jprb,3.5037e-02_jprb,&
 & 4.0972e-02_jprb,4.7260e-02_jprb,5.3261e-02_jprb/)  
kao( :, 1, 2,13) = (/&
 & 6.0681e-02_jprb,5.3202e-02_jprb,4.5845e-02_jprb,3.9636e-02_jprb,3.4042e-02_jprb,2.9064e-02_jprb,&
 & 2.6532e-02_jprb,2.9036e-02_jprb,3.2832e-02_jprb/)  
kao( :, 2, 2,13) = (/&
 & 5.9591e-02_jprb,5.2263e-02_jprb,4.5381e-02_jprb,3.9598e-02_jprb,3.4216e-02_jprb,3.0746e-02_jprb,&
 & 2.9570e-02_jprb,3.3591e-02_jprb,3.8065e-02_jprb/)  
kao( :, 3, 2,13) = (/&
 & 5.8268e-02_jprb,5.1123e-02_jprb,4.4655e-02_jprb,3.9364e-02_jprb,3.4820e-02_jprb,3.2584e-02_jprb,&
 & 3.3306e-02_jprb,3.8344e-02_jprb,4.3514e-02_jprb/)  
kao( :, 4, 2,13) = (/&
 & 5.6859e-02_jprb,4.9908e-02_jprb,4.4073e-02_jprb,3.9320e-02_jprb,3.5951e-02_jprb,3.4443e-02_jprb,&
 & 3.7381e-02_jprb,4.3145e-02_jprb,4.9018e-02_jprb/)  
kao( :, 5, 2,13) = (/&
 & 5.5606e-02_jprb,4.8809e-02_jprb,4.3641e-02_jprb,3.9295e-02_jprb,3.7457e-02_jprb,3.6510e-02_jprb,&
 & 4.1577e-02_jprb,4.8053e-02_jprb,5.4636e-02_jprb/)  
kao( :, 1, 3,13) = (/&
 & 6.5281e-02_jprb,5.7202e-02_jprb,4.9259e-02_jprb,4.2481e-02_jprb,3.6242e-02_jprb,3.0257e-02_jprb,&
 & 2.6947e-02_jprb,2.7850e-02_jprb,3.1754e-02_jprb/)  
kao( :, 2, 3,13) = (/&
 & 6.4026e-02_jprb,5.6115e-02_jprb,4.8709e-02_jprb,4.2529e-02_jprb,3.6413e-02_jprb,3.1975e-02_jprb,&
 & 2.9537e-02_jprb,3.2421e-02_jprb,3.6975e-02_jprb/)  
kao( :, 3, 3,13) = (/&
 & 6.2582e-02_jprb,5.4864e-02_jprb,4.7944e-02_jprb,4.2387e-02_jprb,3.6942e-02_jprb,3.3882e-02_jprb,&
 & 3.2746e-02_jprb,3.7152e-02_jprb,4.2391e-02_jprb/)  
kao( :, 4, 3,13) = (/&
 & 6.1252e-02_jprb,5.3699e-02_jprb,4.7471e-02_jprb,4.2276e-02_jprb,3.8007e-02_jprb,3.5845e-02_jprb,&
 & 3.6492e-02_jprb,4.2063e-02_jprb,4.8049e-02_jprb/)  
kao( :, 5, 3,13) = (/&
 & 6.0092e-02_jprb,5.2697e-02_jprb,4.7050e-02_jprb,4.2178e-02_jprb,3.9419e-02_jprb,3.7791e-02_jprb,&
 & 4.0791e-02_jprb,4.7197e-02_jprb,5.3978e-02_jprb/)  
kao( :, 1, 4,13) = (/&
 & 6.9156e-02_jprb,6.0580e-02_jprb,5.2151e-02_jprb,4.4993e-02_jprb,3.8321e-02_jprb,3.1681e-02_jprb,&
 & 2.7066e-02_jprb,2.6200e-02_jprb,2.9938e-02_jprb/)  
kao( :, 2, 4,13) = (/&
 & 6.7721e-02_jprb,5.9333e-02_jprb,5.1460e-02_jprb,4.5174e-02_jprb,3.8672e-02_jprb,3.3341e-02_jprb,&
 & 2.9463e-02_jprb,3.0601e-02_jprb,3.4960e-02_jprb/)  
kao( :, 3, 4,13) = (/&
 & 6.6317e-02_jprb,5.8105e-02_jprb,5.0834e-02_jprb,4.5138e-02_jprb,3.9401e-02_jprb,3.5131e-02_jprb,&
 & 3.2153e-02_jprb,3.5157e-02_jprb,4.0204e-02_jprb/)  
kao( :, 4, 4,13) = (/&
 & 6.5137e-02_jprb,5.7074e-02_jprb,5.0526e-02_jprb,4.5041e-02_jprb,4.0452e-02_jprb,3.6956e-02_jprb,&
 & 3.5433e-02_jprb,4.0097e-02_jprb,4.5914e-02_jprb/)  
kao( :, 5, 4,13) = (/&
 & 6.4115e-02_jprb,5.6230e-02_jprb,5.0276e-02_jprb,4.5144e-02_jprb,4.1609e-02_jprb,3.8932e-02_jprb,&
 & 3.9448e-02_jprb,4.5417e-02_jprb,5.2017e-02_jprb/)  
kao( :, 1, 5,13) = (/&
 & 7.2400e-02_jprb,6.3404e-02_jprb,5.4540e-02_jprb,4.7112e-02_jprb,4.0185e-02_jprb,3.3245e-02_jprb,&
 & 2.7454e-02_jprb,2.4538e-02_jprb,2.7637e-02_jprb/)  
kao( :, 2, 5,13) = (/&
 & 7.1034e-02_jprb,6.2212e-02_jprb,5.3950e-02_jprb,4.7421e-02_jprb,4.0716e-02_jprb,3.5033e-02_jprb,&
 & 2.9541e-02_jprb,2.8475e-02_jprb,3.2456e-02_jprb/)  
kao( :, 3, 5,13) = (/&
 & 6.9683e-02_jprb,6.1033e-02_jprb,5.3449e-02_jprb,4.7487e-02_jprb,4.1776e-02_jprb,3.6647e-02_jprb,&
 & 3.1941e-02_jprb,3.2964e-02_jprb,3.7708e-02_jprb/)  
kao( :, 4, 5,13) = (/&
 & 6.8593e-02_jprb,6.0082e-02_jprb,5.3255e-02_jprb,4.7581e-02_jprb,4.2936e-02_jprb,3.8247e-02_jprb,&
 & 3.4793e-02_jprb,3.7940e-02_jprb,4.3452e-02_jprb/)  
kao( :, 5, 5,13) = (/&
 & 6.7660e-02_jprb,5.9367e-02_jprb,5.3230e-02_jprb,4.8095e-02_jprb,4.3998e-02_jprb,4.0012e-02_jprb,&
 & 3.8369e-02_jprb,4.3216e-02_jprb,4.9502e-02_jprb/)  
kao( :, 1, 6,13) = (/&
 & 7.5282e-02_jprb,6.5913e-02_jprb,5.6672e-02_jprb,4.9038e-02_jprb,4.1667e-02_jprb,3.4580e-02_jprb,&
 & 2.8084e-02_jprb,2.2885e-02_jprb,2.4729e-02_jprb/)  
kao( :, 2, 6,13) = (/&
 & 7.3954e-02_jprb,6.4757e-02_jprb,5.6182e-02_jprb,4.9451e-02_jprb,4.2376e-02_jprb,3.6480e-02_jprb,&
 & 3.0034e-02_jprb,2.6432e-02_jprb,2.9602e-02_jprb/)  
kao( :, 3, 6,13) = (/&
 & 7.2618e-02_jprb,6.3591e-02_jprb,5.5752e-02_jprb,4.9591e-02_jprb,4.3630e-02_jprb,3.8182e-02_jprb,&
 & 3.2101e-02_jprb,3.0615e-02_jprb,3.4863e-02_jprb/)  
kao( :, 4, 6,13) = (/&
 & 7.1650e-02_jprb,6.2766e-02_jprb,5.5838e-02_jprb,4.9867e-02_jprb,4.5071e-02_jprb,3.9626e-02_jprb,&
 & 3.4633e-02_jprb,3.5415e-02_jprb,4.0513e-02_jprb/)  
kao( :, 5, 6,13) = (/&
 & 7.0928e-02_jprb,6.2275e-02_jprb,5.5944e-02_jprb,5.0656e-02_jprb,4.6360e-02_jprb,4.1240e-02_jprb,&
 & 3.7820e-02_jprb,4.0601e-02_jprb,4.6473e-02_jprb/)  
kao( :, 1, 7,13) = (/&
 & 7.7231e-02_jprb,6.7608e-02_jprb,5.8137e-02_jprb,5.0496e-02_jprb,4.2780e-02_jprb,3.5440e-02_jprb,&
 & 2.8711e-02_jprb,2.1532e-02_jprb,2.1358e-02_jprb/)  
kao( :, 2, 7,13) = (/&
 & 7.6126e-02_jprb,6.6645e-02_jprb,5.7867e-02_jprb,5.0956e-02_jprb,4.3638e-02_jprb,3.7441e-02_jprb,&
 & 3.0756e-02_jprb,2.4515e-02_jprb,2.6150e-02_jprb/)  
kao( :, 3, 7,13) = (/&
 & 7.4977e-02_jprb,6.5643e-02_jprb,5.7692e-02_jprb,5.1264e-02_jprb,4.5058e-02_jprb,3.9385e-02_jprb,&
 & 3.2638e-02_jprb,2.8375e-02_jprb,3.1403e-02_jprb/)  
kao( :, 4, 7,13) = (/&
 & 7.4190e-02_jprb,6.5005e-02_jprb,5.7989e-02_jprb,5.1738e-02_jprb,4.6795e-02_jprb,4.1075e-02_jprb,&
 & 3.4915e-02_jprb,3.2892e-02_jprb,3.7110e-02_jprb/)  
kao( :, 5, 7,13) = (/&
 & 7.3624e-02_jprb,6.4678e-02_jprb,5.8242e-02_jprb,5.2839e-02_jprb,4.8405e-02_jprb,4.2696e-02_jprb,&
 & 3.7814e-02_jprb,3.7869e-02_jprb,4.3186e-02_jprb/)  
kao( :, 1, 8,13) = (/&
 & 7.8000e-02_jprb,6.8274e-02_jprb,5.8718e-02_jprb,5.1101e-02_jprb,4.3121e-02_jprb,3.5929e-02_jprb,&
 & 2.8945e-02_jprb,2.0591e-02_jprb,1.8045e-02_jprb/)  
kao( :, 2, 8,13) = (/&
 & 7.7193e-02_jprb,6.7571e-02_jprb,5.8739e-02_jprb,5.1625e-02_jprb,4.4291e-02_jprb,3.8058e-02_jprb,&
 & 3.1224e-02_jprb,2.3099e-02_jprb,2.2474e-02_jprb/)  
kao( :, 3, 8,13) = (/&
 & 7.6273e-02_jprb,6.6769e-02_jprb,5.8915e-02_jprb,5.2274e-02_jprb,4.5989e-02_jprb,4.0273e-02_jprb,&
 & 3.3241e-02_jprb,2.6350e-02_jprb,2.7546e-02_jprb/)  
kao( :, 4, 8,13) = (/&
 & 7.5688e-02_jprb,6.6346e-02_jprb,5.9396e-02_jprb,5.3087e-02_jprb,4.8066e-02_jprb,4.2222e-02_jprb,&
 & 3.5406e-02_jprb,3.0325e-02_jprb,3.3143e-02_jprb/)  
kao( :, 5, 8,13) = (/&
 & 7.5270e-02_jprb,6.6169e-02_jprb,5.9886e-02_jprb,5.4558e-02_jprb,5.0013e-02_jprb,4.4073e-02_jprb,&
 & 3.8032e-02_jprb,3.5067e-02_jprb,3.9209e-02_jprb/)  
kao( :, 1, 9,13) = (/&
 & 7.7473e-02_jprb,6.7808e-02_jprb,5.8332e-02_jprb,5.0781e-02_jprb,4.2784e-02_jprb,3.5895e-02_jprb,&
 & 2.8746e-02_jprb,1.9977e-02_jprb,2.5516e-02_jprb/)  
kao( :, 2, 9,13) = (/&
 & 7.6914e-02_jprb,6.7321e-02_jprb,5.8710e-02_jprb,5.1554e-02_jprb,4.4348e-02_jprb,3.8188e-02_jprb,&
 & 3.1209e-02_jprb,2.2143e-02_jprb,2.7211e-02_jprb/)  
kao( :, 3, 9,13) = (/&
 & 7.6348e-02_jprb,6.6831e-02_jprb,5.9238e-02_jprb,5.2455e-02_jprb,4.6359e-02_jprb,4.0690e-02_jprb,&
 & 3.3365e-02_jprb,2.4927e-02_jprb,2.8892e-02_jprb/)  
kao( :, 4, 9,13) = (/&
 & 7.6078e-02_jprb,6.6718e-02_jprb,5.9965e-02_jprb,5.3687e-02_jprb,4.8782e-02_jprb,4.2963e-02_jprb,&
 & 3.5682e-02_jprb,2.8422e-02_jprb,3.1640e-02_jprb/)  
kao( :, 5, 9,13) = (/&
 & 7.5933e-02_jprb,6.6835e-02_jprb,6.0758e-02_jprb,5.5666e-02_jprb,5.1075e-02_jprb,4.5007e-02_jprb,&
 & 3.8345e-02_jprb,3.2458e-02_jprb,3.5657e-02_jprb/)  
kao( :, 1,10,13) = (/&
 & 7.5495e-02_jprb,6.6073e-02_jprb,5.6962e-02_jprb,4.9669e-02_jprb,4.1944e-02_jprb,3.5433e-02_jprb,&
 & 2.8273e-02_jprb,1.9547e-02_jprb,6.8270e-02_jprb/)  
kao( :, 2,10,13) = (/&
 & 7.5127e-02_jprb,6.5753e-02_jprb,5.7655e-02_jprb,5.0612e-02_jprb,4.3966e-02_jprb,3.7985e-02_jprb,&
 & 3.0798e-02_jprb,2.1586e-02_jprb,7.2556e-02_jprb/)  
kao( :, 3,10,13) = (/&
 & 7.4986e-02_jprb,6.5658e-02_jprb,5.8530e-02_jprb,5.1941e-02_jprb,4.6351e-02_jprb,4.0729e-02_jprb,&
 & 3.3154e-02_jprb,2.4145e-02_jprb,7.6901e-02_jprb/)  
kao( :, 4,10,13) = (/&
 & 7.5261e-02_jprb,6.6078e-02_jprb,5.9658e-02_jprb,5.3761e-02_jprb,4.9061e-02_jprb,4.3256e-02_jprb,&
 & 3.5593e-02_jprb,2.7205e-02_jprb,8.0949e-02_jprb/)  
kao( :, 5,10,13) = (/&
 & 7.5310e-02_jprb,6.6484e-02_jprb,6.0891e-02_jprb,5.6203e-02_jprb,5.1608e-02_jprb,4.5631e-02_jprb,&
 & 3.8393e-02_jprb,3.0810e-02_jprb,8.3946e-02_jprb/)  
kao( :, 1,11,13) = (/&
 & 7.2145e-02_jprb,6.3140e-02_jprb,5.5079e-02_jprb,4.8199e-02_jprb,4.1552e-02_jprb,3.5607e-02_jprb,&
 & 2.8410e-02_jprb,2.0333e-02_jprb,1.1722e-01_jprb/)  
kao( :, 2,11,13) = (/&
 & 7.2308e-02_jprb,6.3289e-02_jprb,5.6229e-02_jprb,4.9646e-02_jprb,4.4153e-02_jprb,3.8471e-02_jprb,&
 & 3.1024e-02_jprb,2.2227e-02_jprb,1.2017e-01_jprb/)  
kao( :, 3,11,13) = (/&
 & 7.2843e-02_jprb,6.3926e-02_jprb,5.7644e-02_jprb,5.1784e-02_jprb,4.7031e-02_jprb,4.1323e-02_jprb,&
 & 3.3588e-02_jprb,2.4733e-02_jprb,1.2387e-01_jprb/)  
kao( :, 4,11,13) = (/&
 & 7.3135e-02_jprb,6.4581e-02_jprb,5.9101e-02_jprb,5.4448e-02_jprb,4.9988e-02_jprb,4.3915e-02_jprb,&
 & 3.6387e-02_jprb,2.7718e-02_jprb,1.2773e-01_jprb/)  
kao( :, 5,11,13) = (/&
 & 7.3317e-02_jprb,6.5357e-02_jprb,6.0772e-02_jprb,5.7257e-02_jprb,5.2643e-02_jprb,4.6647e-02_jprb,&
 & 3.9495e-02_jprb,3.1088e-02_jprb,1.3117e-01_jprb/)  
kao( :, 1,12,13) = (/&
 & 6.8339e-02_jprb,5.9807e-02_jprb,5.2868e-02_jprb,4.6514e-02_jprb,4.1030e-02_jprb,3.5325e-02_jprb,&
 & 2.8259e-02_jprb,2.1368e-02_jprb,1.5845e-01_jprb/)  
kao( :, 2,12,13) = (/&
 & 6.9028e-02_jprb,6.0544e-02_jprb,5.4494e-02_jprb,4.8800e-02_jprb,4.4025e-02_jprb,3.8260e-02_jprb,&
 & 3.0917e-02_jprb,2.3169e-02_jprb,1.6072e-01_jprb/)  
kao( :, 3,12,13) = (/&
 & 6.9564e-02_jprb,6.1451e-02_jprb,5.6107e-02_jprb,5.1605e-02_jprb,4.7233e-02_jprb,4.1139e-02_jprb,&
 & 3.3727e-02_jprb,2.5462e-02_jprb,1.6379e-01_jprb/)  
kao( :, 4,12,13) = (/&
 & 7.0110e-02_jprb,6.2544e-02_jprb,5.8080e-02_jprb,5.4612e-02_jprb,5.0269e-02_jprb,4.4060e-02_jprb,&
 & 3.6850e-02_jprb,2.8277e-02_jprb,1.6703e-01_jprb/)  
kao( :, 5,12,13) = (/&
 & 7.0812e-02_jprb,6.3874e-02_jprb,6.0361e-02_jprb,5.7551e-02_jprb,5.3132e-02_jprb,4.7188e-02_jprb,&
 & 4.0179e-02_jprb,3.1468e-02_jprb,1.7022e-01_jprb/)  
kao( :, 1,13,13) = (/&
 & 6.4142e-02_jprb,5.6225e-02_jprb,5.0394e-02_jprb,4.4947e-02_jprb,4.0201e-02_jprb,3.4418e-02_jprb,&
 & 2.8158e-02_jprb,2.2746e-02_jprb,1.7050e-01_jprb/)  
kao( :, 2,13,13) = (/&
 & 6.4886e-02_jprb,5.7309e-02_jprb,5.2171e-02_jprb,4.7818e-02_jprb,4.3432e-02_jprb,3.7455e-02_jprb,&
 & 3.0630e-02_jprb,2.4364e-02_jprb,1.7276e-01_jprb/)  
kao( :, 3,13,13) = (/&
 & 6.5727e-02_jprb,5.8652e-02_jprb,5.4299e-02_jprb,5.0937e-02_jprb,4.6609e-02_jprb,4.0612e-02_jprb,&
 & 3.3484e-02_jprb,2.6453e-02_jprb,1.7566e-01_jprb/)  
kao( :, 4,13,13) = (/&
 & 6.6753e-02_jprb,6.0302e-02_jprb,5.6875e-02_jprb,5.4053e-02_jprb,4.9735e-02_jprb,4.3858e-02_jprb,&
 & 3.6837e-02_jprb,2.8969e-02_jprb,1.7832e-01_jprb/)  
kao( :, 5,13,13) = (/&
 & 6.7695e-02_jprb,6.1869e-02_jprb,5.9620e-02_jprb,5.7064e-02_jprb,5.2850e-02_jprb,4.7362e-02_jprb,&
 & 4.0382e-02_jprb,3.1936e-02_jprb,1.8057e-01_jprb/)  
kao( :, 1, 1,14) = (/&
 & 7.1125e-02_jprb,6.2447e-02_jprb,5.3777e-02_jprb,4.6002e-02_jprb,3.9919e-02_jprb,3.6099e-02_jprb,&
 & 4.0006e-02_jprb,4.6122e-02_jprb,5.1833e-02_jprb/)  
kao( :, 2, 1,14) = (/&
 & 6.9870e-02_jprb,6.1342e-02_jprb,5.2827e-02_jprb,4.5922e-02_jprb,4.0565e-02_jprb,3.9007e-02_jprb,&
 & 4.5679e-02_jprb,5.2643e-02_jprb,5.9148e-02_jprb/)  
kao( :, 3, 1,14) = (/&
 & 6.8757e-02_jprb,6.0364e-02_jprb,5.2393e-02_jprb,4.6480e-02_jprb,4.1375e-02_jprb,4.3228e-02_jprb,&
 & 5.1554e-02_jprb,5.9415e-02_jprb,6.6727e-02_jprb/)  
kao( :, 4, 1,14) = (/&
 & 6.7713e-02_jprb,5.9439e-02_jprb,5.2158e-02_jprb,4.6803e-02_jprb,4.2633e-02_jprb,4.8201e-02_jprb,&
 & 5.7539e-02_jprb,6.6348e-02_jprb,7.4536e-02_jprb/)  
kao( :, 5, 1,14) = (/&
 & 6.6600e-02_jprb,5.8466e-02_jprb,5.1820e-02_jprb,4.7055e-02_jprb,4.4661e-02_jprb,5.3325e-02_jprb,&
 & 6.3678e-02_jprb,7.3404e-02_jprb,8.2448e-02_jprb/)  
kao( :, 1, 2,14) = (/&
 & 7.7042e-02_jprb,6.7550e-02_jprb,5.8058e-02_jprb,4.9570e-02_jprb,4.3264e-02_jprb,3.8479e-02_jprb,&
 & 4.1328e-02_jprb,4.7688e-02_jprb,5.4228e-02_jprb/)  
kao( :, 2, 2,14) = (/&
 & 7.5776e-02_jprb,6.6451e-02_jprb,5.7187e-02_jprb,4.9780e-02_jprb,4.4125e-02_jprb,4.1352e-02_jprb,&
 & 4.7706e-02_jprb,5.5037e-02_jprb,6.2579e-02_jprb/)  
kao( :, 3, 2,14) = (/&
 & 7.4669e-02_jprb,6.5491e-02_jprb,5.6847e-02_jprb,5.0512e-02_jprb,4.5218e-02_jprb,4.5782e-02_jprb,&
 & 5.4332e-02_jprb,6.2645e-02_jprb,7.1228e-02_jprb/)  
kao( :, 4, 2,14) = (/&
 & 7.3494e-02_jprb,6.4459e-02_jprb,5.6471e-02_jprb,5.0688e-02_jprb,4.6511e-02_jprb,5.1170e-02_jprb,&
 & 6.1095e-02_jprb,7.0411e-02_jprb,8.0040e-02_jprb/)  
kao( :, 5, 2,14) = (/&
 & 7.2133e-02_jprb,6.3274e-02_jprb,5.5909e-02_jprb,5.0987e-02_jprb,4.8402e-02_jprb,5.6911e-02_jprb,&
 & 6.7954e-02_jprb,7.8300e-02_jprb,8.9007e-02_jprb/)  
kao( :, 1, 3,14) = (/&
 & 8.3277e-02_jprb,7.2971e-02_jprb,6.2667e-02_jprb,5.3474e-02_jprb,4.6645e-02_jprb,4.0581e-02_jprb,&
 & 4.0951e-02_jprb,4.7132e-02_jprb,5.4097e-02_jprb/)  
kao( :, 2, 3,14) = (/&
 & 8.2055e-02_jprb,7.1904e-02_jprb,6.1829e-02_jprb,5.3750e-02_jprb,4.7688e-02_jprb,4.3144e-02_jprb,&
 & 4.7845e-02_jprb,5.5169e-02_jprb,6.3384e-02_jprb/)  
kao( :, 3, 3,14) = (/&
 & 8.0862e-02_jprb,7.0861e-02_jprb,6.1457e-02_jprb,5.4455e-02_jprb,4.8823e-02_jprb,4.7333e-02_jprb,&
 & 5.5190e-02_jprb,6.3675e-02_jprb,7.3215e-02_jprb/)  
kao( :, 4, 3,14) = (/&
 & 7.9537e-02_jprb,6.9705e-02_jprb,6.0972e-02_jprb,5.4811e-02_jprb,5.0281e-02_jprb,5.2809e-02_jprb,&
 & 6.2782e-02_jprb,7.2454e-02_jprb,8.3349e-02_jprb/)  
kao( :, 5, 3,14) = (/&
 & 7.8064e-02_jprb,6.8419e-02_jprb,6.0465e-02_jprb,5.5324e-02_jprb,5.2307e-02_jprb,5.9034e-02_jprb,&
 & 7.0524e-02_jprb,8.1382e-02_jprb,9.3638e-02_jprb/)  
kao( :, 1, 4,14) = (/&
 & 9.0845e-02_jprb,7.9564e-02_jprb,6.8284e-02_jprb,5.7995e-02_jprb,5.0071e-02_jprb,4.2766e-02_jprb,&
 & 4.0354e-02_jprb,4.5834e-02_jprb,5.2848e-02_jprb/)  
kao( :, 2, 4,14) = (/&
 & 8.9552e-02_jprb,7.8435e-02_jprb,6.7367e-02_jprb,5.8123e-02_jprb,5.1123e-02_jprb,4.5183e-02_jprb,&
 & 4.7218e-02_jprb,5.4390e-02_jprb,6.2802e-02_jprb/)  
kao( :, 3, 4,14) = (/&
 & 8.8242e-02_jprb,7.7291e-02_jprb,6.6872e-02_jprb,5.8721e-02_jprb,5.2277e-02_jprb,4.9062e-02_jprb,&
 & 5.5104e-02_jprb,6.3535e-02_jprb,7.3415e-02_jprb/)  

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


SUBROUTINE part10

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


kao( :, 4, 4,14) = (/&
 & 8.6759e-02_jprb,7.5998e-02_jprb,6.6249e-02_jprb,5.9144e-02_jprb,5.4005e-02_jprb,5.4305e-02_jprb,&
 & 6.3297e-02_jprb,7.3031e-02_jprb,8.4384e-02_jprb/)  
kao( :, 5, 4,14) = (/&
 & 8.5264e-02_jprb,7.4691e-02_jprb,6.5716e-02_jprb,5.9851e-02_jprb,5.6460e-02_jprb,6.0471e-02_jprb,&
 & 7.1720e-02_jprb,8.2783e-02_jprb,9.5664e-02_jprb/)  
kao( :, 1, 5,14) = (/&
 & 9.9315e-02_jprb,8.6956e-02_jprb,7.4597e-02_jprb,6.3098e-02_jprb,5.3822e-02_jprb,4.5087e-02_jprb,&
 & 4.0285e-02_jprb,4.4268e-02_jprb,5.1127e-02_jprb/)  
kao( :, 2, 5,14) = (/&
 & 9.7906e-02_jprb,8.5725e-02_jprb,7.3576e-02_jprb,6.3138e-02_jprb,5.4941e-02_jprb,4.7422e-02_jprb,&
 & 4.6902e-02_jprb,5.3385e-02_jprb,6.1752e-02_jprb/)  
kao( :, 3, 5,14) = (/&
 & 9.6528e-02_jprb,8.4522e-02_jprb,7.2985e-02_jprb,6.3691e-02_jprb,5.5941e-02_jprb,5.1390e-02_jprb,&
 & 5.4800e-02_jprb,6.3141e-02_jprb,7.3064e-02_jprb/)  
kao( :, 4, 5,14) = (/&
 & 9.5030e-02_jprb,8.3215e-02_jprb,7.2382e-02_jprb,6.4248e-02_jprb,5.7876e-02_jprb,5.6367e-02_jprb,&
 & 6.3403e-02_jprb,7.3204e-02_jprb,8.4675e-02_jprb/)  
kao( :, 5, 5,14) = (/&
 & 9.3519e-02_jprb,8.1896e-02_jprb,7.1942e-02_jprb,6.4913e-02_jprb,6.0750e-02_jprb,6.2288e-02_jprb,&
 & 7.2363e-02_jprb,8.3574e-02_jprb,9.6711e-02_jprb/)  
kao( :, 1, 6,14) = (/&
 & 1.0848e-01_jprb,9.4964e-02_jprb,8.1446e-02_jprb,6.8624e-02_jprb,5.8073e-02_jprb,4.7733e-02_jprb,&
 & 4.0794e-02_jprb,4.2233e-02_jprb,4.8838e-02_jprb/)  
kao( :, 2, 6,14) = (/&
 & 1.0700e-01_jprb,9.3665e-02_jprb,8.0341e-02_jprb,6.8687e-02_jprb,5.9287e-02_jprb,4.9965e-02_jprb,&
 & 4.6801e-02_jprb,5.1522e-02_jprb,5.9571e-02_jprb/)  
kao( :, 3, 6,14) = (/&
 & 1.0569e-01_jprb,9.2526e-02_jprb,7.9786e-02_jprb,6.9323e-02_jprb,6.0296e-02_jprb,5.3850e-02_jprb,&
 & 5.4326e-02_jprb,6.1617e-02_jprb,7.1174e-02_jprb/)  
kao( :, 4, 6,14) = (/&
 & 1.0422e-01_jprb,9.1243e-02_jprb,7.9257e-02_jprb,7.0200e-02_jprb,6.2110e-02_jprb,5.8890e-02_jprb,&
 & 6.2697e-02_jprb,7.2186e-02_jprb,8.3411e-02_jprb/)  
kao( :, 5, 6,14) = (/&
 & 1.0274e-01_jprb,8.9945e-02_jprb,7.8955e-02_jprb,7.0870e-02_jprb,6.5007e-02_jprb,6.4538e-02_jprb,&
 & 7.1962e-02_jprb,8.3225e-02_jprb,9.6184e-02_jprb/)  
kao( :, 1, 7,14) = (/&
 & 1.1805e-01_jprb,1.0333e-01_jprb,8.8604e-02_jprb,7.4383e-02_jprb,6.2795e-02_jprb,5.0938e-02_jprb,&
 & 4.1734e-02_jprb,4.0173e-02_jprb,4.6320e-02_jprb/)  
kao( :, 2, 7,14) = (/&
 & 1.1659e-01_jprb,1.0206e-01_jprb,8.7517e-02_jprb,7.4746e-02_jprb,6.4050e-02_jprb,5.3141e-02_jprb,&
 & 4.7155e-02_jprb,4.9297e-02_jprb,5.6966e-02_jprb/)  
kao( :, 3, 7,14) = (/&
 & 1.1548e-01_jprb,1.0108e-01_jprb,8.7065e-02_jprb,7.5639e-02_jprb,6.5270e-02_jprb,5.6793e-02_jprb,&
 & 5.4049e-02_jprb,5.9341e-02_jprb,6.8535e-02_jprb/)  
kao( :, 4, 7,14) = (/&
 & 1.1421e-01_jprb,9.9974e-02_jprb,8.6788e-02_jprb,7.6683e-02_jprb,6.6954e-02_jprb,6.1718e-02_jprb,&
 & 6.2059e-02_jprb,7.0009e-02_jprb,8.0835e-02_jprb/)  
kao( :, 5, 7,14) = (/&
 & 1.1283e-01_jprb,9.8769e-02_jprb,8.6621e-02_jprb,7.7418e-02_jprb,6.9776e-02_jprb,6.7214e-02_jprb,&
 & 7.0897e-02_jprb,8.1280e-02_jprb,9.3717e-02_jprb/)  
kao( :, 1, 8,14) = (/&
 & 1.2760e-01_jprb,1.1168e-01_jprb,9.5756e-02_jprb,8.0242e-02_jprb,6.7771e-02_jprb,5.4512e-02_jprb,&
 & 4.3297e-02_jprb,3.8468e-02_jprb,4.3412e-02_jprb/)  
kao( :, 2, 8,14) = (/&
 & 1.2647e-01_jprb,1.1069e-01_jprb,9.4911e-02_jprb,8.1080e-02_jprb,6.9303e-02_jprb,5.6801e-02_jprb,&
 & 4.8262e-02_jprb,4.7089e-02_jprb,5.4046e-02_jprb/)  
kao( :, 3, 8,14) = (/&
 & 1.2554e-01_jprb,1.0988e-01_jprb,9.4556e-02_jprb,8.2231e-02_jprb,7.0704e-02_jprb,6.0253e-02_jprb,&
 & 5.4589e-02_jprb,5.6872e-02_jprb,6.5560e-02_jprb/)  
kao( :, 4, 8,14) = (/&
 & 1.2457e-01_jprb,1.0903e-01_jprb,9.4616e-02_jprb,8.3457e-02_jprb,7.2396e-02_jprb,6.4980e-02_jprb,&
 & 6.1867e-02_jprb,6.7548e-02_jprb,7.7808e-02_jprb/)  
kao( :, 5, 8,14) = (/&
 & 1.2330e-01_jprb,1.0792e-01_jprb,9.4626e-02_jprb,8.4389e-02_jprb,7.5157e-02_jprb,7.0416e-02_jprb,&
 & 7.0105e-02_jprb,7.8665e-02_jprb,9.0560e-02_jprb/)  
kao( :, 1, 9,14) = (/&
 & 1.3720e-01_jprb,1.2007e-01_jprb,1.0294e-01_jprb,8.6103e-02_jprb,7.2470e-02_jprb,5.8097e-02_jprb,&
 & 4.5389e-02_jprb,3.6904e-02_jprb,4.1799e-02_jprb/)  
kao( :, 2, 9,14) = (/&
 & 1.3628e-01_jprb,1.1927e-01_jprb,1.0226e-01_jprb,8.7181e-02_jprb,7.4343e-02_jprb,6.0740e-02_jprb,&
 & 4.9959e-02_jprb,4.4876e-02_jprb,5.0393e-02_jprb/)  
kao( :, 3, 9,14) = (/&
 & 1.3535e-01_jprb,1.1846e-01_jprb,1.0188e-01_jprb,8.8693e-02_jprb,7.6184e-02_jprb,6.4206e-02_jprb,&
 & 5.5907e-02_jprb,5.4085e-02_jprb,6.1556e-02_jprb/)  
kao( :, 4, 9,14) = (/&
 & 1.3444e-01_jprb,1.1766e-01_jprb,1.0208e-01_jprb,9.0218e-02_jprb,7.8130e-02_jprb,6.8528e-02_jprb,&
 & 6.2619e-02_jprb,6.4323e-02_jprb,7.3797e-02_jprb/)  
kao( :, 5, 9,14) = (/&
 & 1.3348e-01_jprb,1.1683e-01_jprb,1.0242e-01_jprb,9.1503e-02_jprb,8.0977e-02_jprb,7.3855e-02_jprb,&
 & 6.9865e-02_jprb,7.5417e-02_jprb,8.6747e-02_jprb/)  
kao( :, 1,10,14) = (/&
 & 1.4622e-01_jprb,1.2796e-01_jprb,1.0970e-01_jprb,9.1694e-02_jprb,7.6915e-02_jprb,6.1594e-02_jprb,&
 & 4.7802e-02_jprb,3.6372e-02_jprb,1.2782e-01_jprb/)  
kao( :, 2,10,14) = (/&
 & 1.4558e-01_jprb,1.2740e-01_jprb,1.0923e-01_jprb,9.3107e-02_jprb,7.9235e-02_jprb,6.4561e-02_jprb,&
 & 5.2530e-02_jprb,4.3432e-02_jprb,1.2805e-01_jprb/)  
kao( :, 3,10,14) = (/&
 & 1.4478e-01_jprb,1.2670e-01_jprb,1.0897e-01_jprb,9.4925e-02_jprb,8.1357e-02_jprb,6.8532e-02_jprb,&
 & 5.8051e-02_jprb,5.1858e-02_jprb,1.2910e-01_jprb/)  
kao( :, 4,10,14) = (/&
 & 1.4390e-01_jprb,1.2594e-01_jprb,1.0930e-01_jprb,9.6640e-02_jprb,8.3903e-02_jprb,7.3006e-02_jprb,&
 & 6.4450e-02_jprb,6.1593e-02_jprb,1.3078e-01_jprb/)  
kao( :, 5,10,14) = (/&
 & 1.4315e-01_jprb,1.2528e-01_jprb,1.1004e-01_jprb,9.8357e-02_jprb,8.7154e-02_jprb,7.8009e-02_jprb,&
 & 7.1120e-02_jprb,7.2455e-02_jprb,1.3316e-01_jprb/)  
kao( :, 1,11,14) = (/&
 & 1.5395e-01_jprb,1.3473e-01_jprb,1.1550e-01_jprb,9.7315e-02_jprb,8.2228e-02_jprb,6.6162e-02_jprb,&
 & 5.2338e-02_jprb,3.8889e-02_jprb,2.0928e-01_jprb/)  
kao( :, 2,11,14) = (/&
 & 1.5355e-01_jprb,1.3437e-01_jprb,1.1530e-01_jprb,9.9444e-02_jprb,8.4668e-02_jprb,7.0074e-02_jprb,&
 & 5.7545e-02_jprb,4.5714e-02_jprb,2.1031e-01_jprb/)  
kao( :, 3,11,14) = (/&
 & 1.5306e-01_jprb,1.3395e-01_jprb,1.1569e-01_jprb,1.0160e-01_jprb,8.7341e-02_jprb,7.4791e-02_jprb,&
 & 6.3171e-02_jprb,5.3818e-02_jprb,2.0902e-01_jprb/)  
kao( :, 4,11,14) = (/&
 & 1.5264e-01_jprb,1.3359e-01_jprb,1.1675e-01_jprb,1.0361e-01_jprb,9.0695e-02_jprb,7.9958e-02_jprb,&
 & 6.9362e-02_jprb,6.3424e-02_jprb,2.0832e-01_jprb/)  
kao( :, 5,11,14) = (/&
 & 1.5211e-01_jprb,1.3312e-01_jprb,1.1800e-01_jprb,1.0575e-01_jprb,9.4915e-02_jprb,8.5107e-02_jprb,&
 & 7.5798e-02_jprb,7.4229e-02_jprb,2.0949e-01_jprb/)  
kao( :, 1,12,14) = (/&
 & 1.6007e-01_jprb,1.4008e-01_jprb,1.2008e-01_jprb,1.0232e-01_jprb,8.6761e-02_jprb,7.0740e-02_jprb,&
 & 5.6718e-02_jprb,4.1250e-02_jprb,2.6518e-01_jprb/)  
kao( :, 2,12,14) = (/&
 & 1.6020e-01_jprb,1.4019e-01_jprb,1.2063e-01_jprb,1.0501e-01_jprb,8.9744e-02_jprb,7.5616e-02_jprb,&
 & 6.2355e-02_jprb,4.7922e-02_jprb,2.6549e-01_jprb/)  
kao( :, 3,12,14) = (/&
 & 1.6044e-01_jprb,1.4040e-01_jprb,1.2209e-01_jprb,1.0775e-01_jprb,9.3316e-02_jprb,8.1050e-02_jprb,&
 & 6.8087e-02_jprb,5.5672e-02_jprb,2.6354e-01_jprb/)  
kao( :, 4,12,14) = (/&
 & 1.6037e-01_jprb,1.4035e-01_jprb,1.2384e-01_jprb,1.1034e-01_jprb,9.7597e-02_jprb,8.6743e-02_jprb,&
 & 7.4072e-02_jprb,6.4868e-02_jprb,2.6219e-01_jprb/)  
kao( :, 5,12,14) = (/&
 & 1.6003e-01_jprb,1.4017e-01_jprb,1.2549e-01_jprb,1.1310e-01_jprb,1.0250e-01_jprb,9.1994e-02_jprb,&
 & 8.0439e-02_jprb,7.5469e-02_jprb,2.6239e-01_jprb/)  
kao( :, 1,13,14) = (/&
 & 1.6469e-01_jprb,1.4412e-01_jprb,1.2368e-01_jprb,1.0640e-01_jprb,9.0617e-02_jprb,7.5149e-02_jprb,&
 & 6.0781e-02_jprb,4.3348e-02_jprb,2.6721e-01_jprb/)  
kao( :, 2,13,14) = (/&
 & 1.6562e-01_jprb,1.4493e-01_jprb,1.2548e-01_jprb,1.0990e-01_jprb,9.4570e-02_jprb,8.0925e-02_jprb,&
 & 6.6783e-02_jprb,4.9779e-02_jprb,2.6700e-01_jprb/)  
kao( :, 3,13,14) = (/&
 & 1.6629e-01_jprb,1.4552e-01_jprb,1.2768e-01_jprb,1.1332e-01_jprb,9.9317e-02_jprb,8.6925e-02_jprb,&
 & 7.2626e-02_jprb,5.7255e-02_jprb,2.6579e-01_jprb/)  
kao( :, 4,13,14) = (/&
 & 1.6653e-01_jprb,1.4581e-01_jprb,1.2999e-01_jprb,1.1666e-01_jprb,1.0451e-01_jprb,9.2915e-02_jprb,&
 & 7.8534e-02_jprb,6.6130e-02_jprb,2.6675e-01_jprb/)  
kao( :, 5,13,14) = (/&
 & 1.6684e-01_jprb,1.4632e-01_jprb,1.3221e-01_jprb,1.2027e-01_jprb,1.0991e-01_jprb,9.8357e-02_jprb,&
 & 8.4972e-02_jprb,7.6473e-02_jprb,2.6996e-01_jprb/)  
kao( :, 1, 1,15) = (/&
 & 8.6335e-02_jprb,7.5626e-02_jprb,6.4917e-02_jprb,5.5295e-02_jprb,5.0812e-02_jprb,5.9948e-02_jprb,&
 & 7.1505e-02_jprb,8.2180e-02_jprb,9.1859e-02_jprb/)  
kao( :, 2, 1,15) = (/&
 & 8.4567e-02_jprb,7.4086e-02_jprb,6.3604e-02_jprb,5.5283e-02_jprb,5.6490e-02_jprb,6.9672e-02_jprb,&
 & 8.3123e-02_jprb,9.5602e-02_jprb,1.0689e-01_jprb/)  
kao( :, 3, 1,15) = (/&
 & 8.2946e-02_jprb,7.2675e-02_jprb,6.2405e-02_jprb,5.5773e-02_jprb,6.3940e-02_jprb,7.9639e-02_jprb,&
 & 9.5049e-02_jprb,1.0933e-01_jprb,1.2237e-01_jprb/)  
kao( :, 4, 1,15) = (/&
 & 8.1353e-02_jprb,7.1286e-02_jprb,6.1452e-02_jprb,5.8032e-02_jprb,7.2168e-02_jprb,8.9901e-02_jprb,&
 & 1.0730e-01_jprb,1.2343e-01_jprb,1.3810e-01_jprb/)  
kao( :, 5, 1,15) = (/&
 & 8.0306e-02_jprb,7.0375e-02_jprb,6.1401e-02_jprb,6.2088e-02_jprb,8.0744e-02_jprb,1.0061e-01_jprb,&
 & 1.2011e-01_jprb,1.3812e-01_jprb,1.5455e-01_jprb/)  
kao( :, 1, 2,15) = (/&
 & 9.5589e-02_jprb,8.3777e-02_jprb,7.1976e-02_jprb,6.1258e-02_jprb,5.5368e-02_jprb,6.4085e-02_jprb,&
 & 7.6446e-02_jprb,8.7825e-02_jprb,9.9724e-02_jprb/)  
kao( :, 2, 2,15) = (/&
 & 9.3570e-02_jprb,8.1988e-02_jprb,7.0421e-02_jprb,6.1059e-02_jprb,6.1189e-02_jprb,7.4507e-02_jprb,&
 & 8.8919e-02_jprb,1.0224e-01_jprb,1.1610e-01_jprb/)  
kao( :, 3, 2,15) = (/&
 & 9.1829e-02_jprb,8.0436e-02_jprb,6.9070e-02_jprb,6.1314e-02_jprb,6.8582e-02_jprb,8.5238e-02_jprb,&
 & 1.0175e-01_jprb,1.1706e-01_jprb,1.3301e-01_jprb/)  
kao( :, 4, 2,15) = (/&
 & 9.0487e-02_jprb,7.9254e-02_jprb,6.8526e-02_jprb,6.4228e-02_jprb,7.7434e-02_jprb,9.6498e-02_jprb,&
 & 1.1522e-01_jprb,1.3267e-01_jprb,1.5077e-01_jprb/)  
kao( :, 5, 2,15) = (/&
 & 8.9669e-02_jprb,7.8542e-02_jprb,6.8954e-02_jprb,6.8451e-02_jprb,8.6910e-02_jprb,1.0835e-01_jprb,&
 & 1.2939e-01_jprb,1.4902e-01_jprb,1.6935e-01_jprb/)  
kao( :, 1, 3,15) = (/&
 & 1.0676e-01_jprb,9.3553e-02_jprb,8.0347e-02_jprb,6.7838e-02_jprb,5.9827e-02_jprb,6.6522e-02_jprb,&
 & 7.9363e-02_jprb,9.1189e-02_jprb,1.0525e-01_jprb/)  
kao( :, 2, 3,15) = (/&
 & 1.0446e-01_jprb,9.1534e-02_jprb,7.8612e-02_jprb,6.7925e-02_jprb,6.5040e-02_jprb,7.7741e-02_jprb,&
 & 9.2778e-02_jprb,1.0667e-01_jprb,1.2309e-01_jprb/)  
kao( :, 3, 3,15) = (/&
 & 1.0249e-01_jprb,8.9809e-02_jprb,7.7136e-02_jprb,6.8091e-02_jprb,7.2454e-02_jprb,8.9300e-02_jprb,&
 & 1.0660e-01_jprb,1.2265e-01_jprb,1.4148e-01_jprb/)  
kao( :, 4, 3,15) = (/&
 & 1.0145e-01_jprb,8.8891e-02_jprb,7.6929e-02_jprb,7.0768e-02_jprb,8.1305e-02_jprb,1.0131e-01_jprb,&
 & 1.2096e-01_jprb,1.3918e-01_jprb,1.6053e-01_jprb/)  
kao( :, 5, 3,15) = (/&
 & 1.0070e-01_jprb,8.8241e-02_jprb,7.7594e-02_jprb,7.4852e-02_jprb,9.1339e-02_jprb,1.1386e-01_jprb,&
 & 1.3595e-01_jprb,1.5652e-01_jprb,1.8047e-01_jprb/)  
kao( :, 1, 4,15) = (/&
 & 1.1948e-01_jprb,1.0466e-01_jprb,8.9846e-02_jprb,7.5435e-02_jprb,6.5653e-02_jprb,6.8395e-02_jprb,&
 & 8.1117e-02_jprb,9.3286e-02_jprb,1.0845e-01_jprb/)  
kao( :, 2, 4,15) = (/&
 & 1.1744e-01_jprb,1.0288e-01_jprb,8.8326e-02_jprb,7.6088e-02_jprb,7.0000e-02_jprb,8.0045e-02_jprb,&
 & 9.5565e-02_jprb,1.0996e-01_jprb,1.2777e-01_jprb/)  
kao( :, 3, 4,15) = (/&
 & 1.1572e-01_jprb,1.0138e-01_jprb,8.7035e-02_jprb,7.6536e-02_jprb,7.6949e-02_jprb,9.2508e-02_jprb,&
 & 1.1046e-01_jprb,1.2718e-01_jprb,1.4769e-01_jprb/)  
kao( :, 4, 4,15) = (/&
 & 1.1457e-01_jprb,1.0037e-01_jprb,8.6743e-02_jprb,7.8791e-02_jprb,8.5479e-02_jprb,1.0549e-01_jprb,&
 & 1.2598e-01_jprb,1.4506e-01_jprb,1.6844e-01_jprb/)  
kao( :, 5, 4,15) = (/&
 & 1.1371e-01_jprb,9.9614e-02_jprb,8.7543e-02_jprb,8.2406e-02_jprb,9.5523e-02_jprb,1.1901e-01_jprb,&
 & 1.4214e-01_jprb,1.6372e-01_jprb,1.9001e-01_jprb/)  
kao( :, 1, 5,15) = (/&
 & 1.3435e-01_jprb,1.1765e-01_jprb,1.0095e-01_jprb,8.4469e-02_jprb,7.2853e-02_jprb,7.1272e-02_jprb,&
 & 8.1960e-02_jprb,9.4385e-02_jprb,1.0990e-01_jprb/)  
kao( :, 2, 5,15) = (/&
 & 1.3249e-01_jprb,1.1603e-01_jprb,9.9565e-02_jprb,8.5291e-02_jprb,7.6670e-02_jprb,8.2310e-02_jprb,&
 & 9.7448e-02_jprb,1.1228e-01_jprb,1.3064e-01_jprb/)  
kao( :, 3, 5,15) = (/&
 & 1.3078e-01_jprb,1.1453e-01_jprb,9.8289e-02_jprb,8.6209e-02_jprb,8.3093e-02_jprb,9.5057e-02_jprb,&
 & 1.1357e-01_jprb,1.3082e-01_jprb,1.5225e-01_jprb/)  
kao( :, 4, 5,15) = (/&
 & 1.2949e-01_jprb,1.1340e-01_jprb,9.7892e-02_jprb,8.8436e-02_jprb,9.1112e-02_jprb,1.0924e-01_jprb,&
 & 1.3047e-01_jprb,1.5034e-01_jprb,1.7498e-01_jprb/)  
kao( :, 5, 5,15) = (/&
 & 1.2852e-01_jprb,1.1256e-01_jprb,9.8533e-02_jprb,9.1755e-02_jprb,1.0068e-01_jprb,1.2400e-01_jprb,&
 & 1.4814e-01_jprb,1.7069e-01_jprb,1.9863e-01_jprb/)  
kao( :, 1, 6,15) = (/&
 & 1.5076e-01_jprb,1.3198e-01_jprb,1.1320e-01_jprb,9.4463e-02_jprb,8.0666e-02_jprb,7.5054e-02_jprb,&
 & 8.0871e-02_jprb,9.3264e-02_jprb,1.0849e-01_jprb/)  
kao( :, 2, 6,15) = (/&
 & 1.4906e-01_jprb,1.3049e-01_jprb,1.1193e-01_jprb,9.5115e-02_jprb,8.4634e-02_jprb,8.5281e-02_jprb,&
 & 9.7599e-02_jprb,1.1257e-01_jprb,1.3098e-01_jprb/)  
kao( :, 3, 6,15) = (/&
 & 1.4751e-01_jprb,1.2914e-01_jprb,1.1077e-01_jprb,9.6775e-02_jprb,9.0721e-02_jprb,9.7408e-02_jprb,&
 & 1.1514e-01_jprb,1.3281e-01_jprb,1.5454e-01_jprb/)  
kao( :, 4, 6,15) = (/&
 & 1.4640e-01_jprb,1.2818e-01_jprb,1.1040e-01_jprb,9.8990e-02_jprb,9.8328e-02_jprb,1.1180e-01_jprb,&
 & 1.3358e-01_jprb,1.5404e-01_jprb,1.7929e-01_jprb/)  
kao( :, 5, 6,15) = (/&
 & 1.4534e-01_jprb,1.2726e-01_jprb,1.1100e-01_jprb,1.0247e-01_jprb,1.0712e-01_jprb,1.2780e-01_jprb,&
 & 1.5274e-01_jprb,1.7614e-01_jprb,2.0503e-01_jprb/)  
kao( :, 1, 7,15) = (/&
 & 1.7017e-01_jprb,1.4895e-01_jprb,1.2773e-01_jprb,1.0651e-01_jprb,8.8726e-02_jprb,8.0014e-02_jprb,&
 & 7.9958e-02_jprb,9.0777e-02_jprb,1.0558e-01_jprb/)  
kao( :, 2, 7,15) = (/&
 & 1.6840e-01_jprb,1.4740e-01_jprb,1.2641e-01_jprb,1.0633e-01_jprb,9.3561e-02_jprb,8.9399e-02_jprb,&
 & 9.6654e-02_jprb,1.1154e-01_jprb,1.2974e-01_jprb/)  
kao( :, 3, 7,15) = (/&
 & 1.6683e-01_jprb,1.4603e-01_jprb,1.2523e-01_jprb,1.0816e-01_jprb,9.9523e-02_jprb,1.0085e-01_jprb,&
 & 1.1565e-01_jprb,1.3349e-01_jprb,1.5523e-01_jprb/)  
kao( :, 4, 7,15) = (/&
 & 1.6579e-01_jprb,1.4512e-01_jprb,1.2467e-01_jprb,1.1069e-01_jprb,1.0674e-01_jprb,1.1452e-01_jprb,&
 & 1.3558e-01_jprb,1.5645e-01_jprb,1.8200e-01_jprb/)  
kao( :, 5, 7,15) = (/&
 & 1.6467e-01_jprb,1.4415e-01_jprb,1.2512e-01_jprb,1.1428e-01_jprb,1.1515e-01_jprb,1.3096e-01_jprb,&
 & 1.5653e-01_jprb,1.8061e-01_jprb,2.1020e-01_jprb/)  
kao( :, 1, 8,15) = (/&
 & 1.9300e-01_jprb,1.6891e-01_jprb,1.4482e-01_jprb,1.2074e-01_jprb,9.8428e-02_jprb,8.6453e-02_jprb,&
 & 8.0104e-02_jprb,8.7414e-02_jprb,1.0158e-01_jprb/)  
kao( :, 2, 8,15) = (/&
 & 1.9118e-01_jprb,1.6732e-01_jprb,1.4346e-01_jprb,1.1993e-01_jprb,1.0330e-01_jprb,9.4785e-02_jprb,&
 & 9.5939e-02_jprb,1.0927e-01_jprb,1.2693e-01_jprb/)  
kao( :, 3, 8,15) = (/&
 & 1.8966e-01_jprb,1.6599e-01_jprb,1.4233e-01_jprb,1.2111e-01_jprb,1.0944e-01_jprb,1.0556e-01_jprb,&
 & 1.1490e-01_jprb,1.3272e-01_jprb,1.5419e-01_jprb/)  
kao( :, 4, 8,15) = (/&
 & 1.8827e-01_jprb,1.6478e-01_jprb,1.4129e-01_jprb,1.2410e-01_jprb,1.1628e-01_jprb,1.1877e-01_jprb,&
 & 1.3648e-01_jprb,1.5764e-01_jprb,1.8319e-01_jprb/)  
kao( :, 5, 8,15) = (/&
 & 1.8700e-01_jprb,1.6367e-01_jprb,1.4137e-01_jprb,1.2760e-01_jprb,1.2425e-01_jprb,1.3451e-01_jprb,&
 & 1.5950e-01_jprb,1.8417e-01_jprb,2.1419e-01_jprb/)  
kao( :, 1, 9,15) = (/&
 & 2.1903e-01_jprb,1.9168e-01_jprb,1.6432e-01_jprb,1.3697e-01_jprb,1.1022e-01_jprb,9.3381e-02_jprb,&
 & 8.1173e-02_jprb,8.3378e-02_jprb,9.6854e-02_jprb/)  
kao( :, 2, 9,15) = (/&
 & 2.1750e-01_jprb,1.9034e-01_jprb,1.6318e-01_jprb,1.3602e-01_jprb,1.1431e-01_jprb,1.0171e-01_jprb,&
 & 9.6008e-02_jprb,1.0601e-01_jprb,1.2308e-01_jprb/)  
kao( :, 3, 9,15) = (/&
 & 2.1621e-01_jprb,1.8921e-01_jprb,1.6222e-01_jprb,1.3665e-01_jprb,1.2052e-01_jprb,1.1120e-01_jprb,&
 & 1.1434e-01_jprb,1.3077e-01_jprb,1.5182e-01_jprb/)  
kao( :, 4, 9,15) = (/&
 & 2.1461e-01_jprb,1.8782e-01_jprb,1.6103e-01_jprb,1.3944e-01_jprb,1.2758e-01_jprb,1.2410e-01_jprb,&
 & 1.3607e-01_jprb,1.5728e-01_jprb,1.8262e-01_jprb/)  
kao( :, 5, 9,15) = (/&
 & 2.1295e-01_jprb,1.8637e-01_jprb,1.6039e-01_jprb,1.4274e-01_jprb,1.3480e-01_jprb,1.3933e-01_jprb,&
 & 1.6084e-01_jprb,1.8591e-01_jprb,2.1587e-01_jprb/)  
kao( :, 1,10,15) = (/&
 & 2.4831e-01_jprb,2.1729e-01_jprb,1.8627e-01_jprb,1.5526e-01_jprb,1.2434e-01_jprb,1.0185e-01_jprb,&
 & 8.4815e-02_jprb,8.0841e-02_jprb,1.7532e-01_jprb/)  
kao( :, 2,10,15) = (/&
 & 2.4704e-01_jprb,2.1618e-01_jprb,1.8532e-01_jprb,1.5447e-01_jprb,1.2750e-01_jprb,1.1098e-01_jprb,&
 & 9.8299e-02_jprb,1.0410e-01_jprb,1.7367e-01_jprb/)  
kao( :, 3,10,15) = (/&
 & 2.4585e-01_jprb,2.1514e-01_jprb,1.8444e-01_jprb,1.5466e-01_jprb,1.3408e-01_jprb,1.1953e-01_jprb,&
 & 1.1633e-01_jprb,1.3023e-01_jprb,1.7996e-01_jprb/)  
kao( :, 4,10,15) = (/&
 & 2.4402e-01_jprb,2.1354e-01_jprb,1.8307e-01_jprb,1.5695e-01_jprb,1.4115e-01_jprb,1.3126e-01_jprb,&
 & 1.3793e-01_jprb,1.5846e-01_jprb,1.9548e-01_jprb/)  
kao( :, 5,10,15) = (/&
 & 2.4208e-01_jprb,2.1185e-01_jprb,1.8198e-01_jprb,1.6040e-01_jprb,1.4820e-01_jprb,1.4650e-01_jprb,&
 & 1.6334e-01_jprb,1.8884e-01_jprb,2.2082e-01_jprb/)  

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


SUBROUTINE part11

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


kao( :, 1,11,15) = (/&
 & 2.8046e-01_jprb,2.4542e-01_jprb,2.1039e-01_jprb,1.7535e-01_jprb,1.4072e-01_jprb,1.1602e-01_jprb,&
 & 9.4756e-02_jprb,8.8842e-02_jprb,3.0507e-01_jprb/)  
kao( :, 2,11,15) = (/&
 & 2.7918e-01_jprb,2.4430e-01_jprb,2.0943e-01_jprb,1.7456e-01_jprb,1.4537e-01_jprb,1.2533e-01_jprb,&
 & 1.0891e-01_jprb,1.1392e-01_jprb,2.9566e-01_jprb/)  
kao( :, 3,11,15) = (/&
 & 2.7735e-01_jprb,2.4270e-01_jprb,2.0805e-01_jprb,1.7500e-01_jprb,1.5257e-01_jprb,1.3417e-01_jprb,&
 & 1.2847e-01_jprb,1.4223e-01_jprb,2.9322e-01_jprb/)  
kao( :, 4,11,15) = (/&
 & 2.7527e-01_jprb,2.4088e-01_jprb,2.0649e-01_jprb,1.7781e-01_jprb,1.5979e-01_jprb,1.4614e-01_jprb,&
 & 1.5179e-01_jprb,1.7334e-01_jprb,2.9538e-01_jprb/)  
kao( :, 5,11,15) = (/&
 & 2.7287e-01_jprb,2.3878e-01_jprb,2.0537e-01_jprb,1.8183e-01_jprb,1.6671e-01_jprb,1.6236e-01_jprb,&
 & 1.7904e-01_jprb,2.0699e-01_jprb,3.0432e-01_jprb/)  
kao( :, 1,12,15) = (/&
 & 3.1597e-01_jprb,2.7649e-01_jprb,2.3701e-01_jprb,1.9754e-01_jprb,1.5924e-01_jprb,1.3168e-01_jprb,&
 & 1.0585e-01_jprb,9.7375e-02_jprb,4.0358e-01_jprb/)  
kao( :, 2,12,15) = (/&
 & 3.1432e-01_jprb,2.7505e-01_jprb,2.3578e-01_jprb,1.9654e-01_jprb,1.6498e-01_jprb,1.4094e-01_jprb,&
 & 1.2051e-01_jprb,1.2392e-01_jprb,3.9336e-01_jprb/)  
kao( :, 3,12,15) = (/&
 & 3.1171e-01_jprb,2.7277e-01_jprb,2.3383e-01_jprb,1.9721e-01_jprb,1.7246e-01_jprb,1.5023e-01_jprb,&
 & 1.4122e-01_jprb,1.5462e-01_jprb,3.9393e-01_jprb/)  
kao( :, 4,12,15) = (/&
 & 3.0880e-01_jprb,2.7022e-01_jprb,2.3164e-01_jprb,2.0058e-01_jprb,1.7964e-01_jprb,1.6232e-01_jprb,&
 & 1.6619e-01_jprb,1.8839e-01_jprb,3.9596e-01_jprb/)  
kao( :, 5,12,15) = (/&
 & 3.0525e-01_jprb,2.6711e-01_jprb,2.3006e-01_jprb,2.0488e-01_jprb,1.8690e-01_jprb,1.7940e-01_jprb,&
 & 1.9528e-01_jprb,2.2516e-01_jprb,4.0079e-01_jprb/)  
kao( :, 1,13,15) = (/&
 & 3.5411e-01_jprb,3.0986e-01_jprb,2.6562e-01_jprb,2.2137e-01_jprb,1.7962e-01_jprb,1.4841e-01_jprb,&
 & 1.1804e-01_jprb,1.0632e-01_jprb,4.1876e-01_jprb/)  
kao( :, 2,13,15) = (/&
 & 3.5164e-01_jprb,3.0771e-01_jprb,2.6377e-01_jprb,2.2010e-01_jprb,1.8598e-01_jprb,1.5750e-01_jprb,&
 & 1.3321e-01_jprb,1.3429e-01_jprb,4.1787e-01_jprb/)  
kao( :, 3,13,15) = (/&
 & 3.4820e-01_jprb,3.0469e-01_jprb,2.6119e-01_jprb,2.2112e-01_jprb,1.9338e-01_jprb,1.6728e-01_jprb,&
 & 1.5455e-01_jprb,1.6711e-01_jprb,4.2377e-01_jprb/)  
kao( :, 4,13,15) = (/&
 & 3.4395e-01_jprb,3.0097e-01_jprb,2.5812e-01_jprb,2.2469e-01_jprb,2.0035e-01_jprb,1.7975e-01_jprb,&
 & 1.8098e-01_jprb,2.0337e-01_jprb,4.2831e-01_jprb/)  
kao( :, 5,13,15) = (/&
 & 3.3896e-01_jprb,2.9661e-01_jprb,2.5572e-01_jprb,2.2897e-01_jprb,2.0809e-01_jprb,1.9725e-01_jprb,&
 & 2.1144e-01_jprb,2.4250e-01_jprb,4.3491e-01_jprb/)  
kao( :, 1, 1,16) = (/&
 & 9.7171e-02_jprb,8.5148e-02_jprb,7.3125e-02_jprb,6.1102e-02_jprb,7.6485e-02_jprb,9.5172e-02_jprb,&
 & 1.1335e-01_jprb,1.2955e-01_jprb,1.4355e-01_jprb/)  
kao( :, 2, 1,16) = (/&
 & 9.4236e-02_jprb,8.2602e-02_jprb,7.0968e-02_jprb,6.8035e-02_jprb,9.0374e-02_jprb,1.1244e-01_jprb,&
 & 1.3393e-01_jprb,1.5311e-01_jprb,1.6974e-01_jprb/)  
kao( :, 3, 1,16) = (/&
 & 9.1543e-02_jprb,8.0273e-02_jprb,6.9003e-02_jprb,7.8791e-02_jprb,1.0469e-01_jprb,1.3025e-01_jprb,&
 & 1.5519e-01_jprb,1.7738e-01_jprb,1.9670e-01_jprb/)  
kao( :, 4, 1,16) = (/&
 & 8.8644e-02_jprb,7.7768e-02_jprb,6.6893e-02_jprb,8.9756e-02_jprb,1.1926e-01_jprb,1.4844e-01_jprb,&
 & 1.7683e-01_jprb,2.0215e-01_jprb,2.2416e-01_jprb/)  
kao( :, 5, 1,16) = (/&
 & 8.6144e-02_jprb,7.5584e-02_jprb,6.7875e-02_jprb,1.0078e-01_jprb,1.3394e-01_jprb,1.6670e-01_jprb,&
 & 1.9859e-01_jprb,2.2714e-01_jprb,2.5185e-01_jprb/)  
kao( :, 1, 2,16) = (/&
 & 1.1053e-01_jprb,9.6812e-02_jprb,8.3097e-02_jprb,6.9381e-02_jprb,8.5062e-02_jprb,1.0587e-01_jprb,&
 & 1.2610e-01_jprb,1.4420e-01_jprb,1.6344e-01_jprb/)  
kao( :, 2, 2,16) = (/&
 & 1.0742e-01_jprb,9.4110e-02_jprb,8.0803e-02_jprb,7.6274e-02_jprb,1.0134e-01_jprb,1.2610e-01_jprb,&
 & 1.5024e-01_jprb,1.7183e-01_jprb,1.9478e-01_jprb/)  
kao( :, 3, 2,16) = (/&
 & 1.0452e-01_jprb,9.1604e-02_jprb,7.8683e-02_jprb,8.8937e-02_jprb,1.1819e-01_jprb,1.4709e-01_jprb,&
 & 1.7526e-01_jprb,2.0044e-01_jprb,2.2725e-01_jprb/)  
kao( :, 4, 2,16) = (/&
 & 1.0156e-01_jprb,8.9034e-02_jprb,7.6513e-02_jprb,1.0188e-01_jprb,1.3537e-01_jprb,1.6848e-01_jprb,&
 & 2.0078e-01_jprb,2.2973e-01_jprb,2.6038e-01_jprb/)  
kao( :, 5, 2,16) = (/&
 & 9.9221e-02_jprb,8.6974e-02_jprb,7.8015e-02_jprb,1.1491e-01_jprb,1.5271e-01_jprb,1.9010e-01_jprb,&
 & 2.2653e-01_jprb,2.5922e-01_jprb,2.9391e-01_jprb/)  
kao( :, 1, 3,16) = (/&
 & 1.2741e-01_jprb,1.1157e-01_jprb,9.5716e-02_jprb,7.9867e-02_jprb,9.0261e-02_jprb,1.1233e-01_jprb,&
 & 1.3379e-01_jprb,1.5315e-01_jprb,1.7733e-01_jprb/)  
kao( :, 2, 3,16) = (/&
 & 1.2407e-01_jprb,1.0865e-01_jprb,9.3240e-02_jprb,8.3066e-02_jprb,1.0895e-01_jprb,1.3559e-01_jprb,&
 & 1.6159e-01_jprb,1.8497e-01_jprb,2.1412e-01_jprb/)  
kao( :, 3, 3,16) = (/&
 & 1.2077e-01_jprb,1.0579e-01_jprb,9.0806e-02_jprb,9.6664e-02_jprb,1.2848e-01_jprb,1.5988e-01_jprb,&
 & 1.9057e-01_jprb,2.1812e-01_jprb,2.5248e-01_jprb/)  
kao( :, 4, 3,16) = (/&
 & 1.1796e-01_jprb,1.0334e-01_jprb,8.8711e-02_jprb,1.1167e-01_jprb,1.4847e-01_jprb,1.8483e-01_jprb,&
 & 2.2029e-01_jprb,2.5232e-01_jprb,2.9201e-01_jprb/)  
kao( :, 5, 3,16) = (/&
 & 1.1579e-01_jprb,1.0144e-01_jprb,8.8938e-02_jprb,1.2695e-01_jprb,1.6868e-01_jprb,2.1009e-01_jprb,&
 & 2.5050e-01_jprb,2.8682e-01_jprb,3.3195e-01_jprb/)  
kao( :, 1, 4,16) = (/&
 & 1.4795e-01_jprb,1.2951e-01_jprb,1.1108e-01_jprb,9.2642e-02_jprb,9.3362e-02_jprb,1.1620e-01_jprb,&
 & 1.3849e-01_jprb,1.5859e-01_jprb,1.8531e-01_jprb/)  
kao( :, 2, 4,16) = (/&
 & 1.4437e-01_jprb,1.2639e-01_jprb,1.0842e-01_jprb,9.2423e-02_jprb,1.1442e-01_jprb,1.4252e-01_jprb,&
 & 1.6987e-01_jprb,1.9459e-01_jprb,2.2738e-01_jprb/)  
kao( :, 3, 4,16) = (/&
 & 1.4082e-01_jprb,1.2330e-01_jprb,1.0578e-01_jprb,1.0327e-01_jprb,1.3669e-01_jprb,1.7021e-01_jprb,&
 & 2.0291e-01_jprb,2.3254e-01_jprb,2.7168e-01_jprb/)  
kao( :, 4, 4,16) = (/&
 & 1.3812e-01_jprb,1.2094e-01_jprb,1.0376e-01_jprb,1.2016e-01_jprb,1.5971e-01_jprb,1.9884e-01_jprb,&
 & 2.3712e-01_jprb,2.7173e-01_jprb,3.1737e-01_jprb/)  
kao( :, 5, 4,16) = (/&
 & 1.3617e-01_jprb,1.1924e-01_jprb,1.0266e-01_jprb,1.3775e-01_jprb,1.8312e-01_jprb,2.2801e-01_jprb,&
 & 2.7185e-01_jprb,3.1180e-01_jprb,3.6388e-01_jprb/)  
kao( :, 1, 5,16) = (/&
 & 1.7254e-01_jprb,1.5104e-01_jprb,1.2954e-01_jprb,1.0804e-01_jprb,9.7033e-02_jprb,1.1821e-01_jprb,&
 & 1.4096e-01_jprb,1.6165e-01_jprb,1.8940e-01_jprb/)  
kao( :, 2, 5,16) = (/&
 & 1.6864e-01_jprb,1.4763e-01_jprb,1.2663e-01_jprb,1.0583e-01_jprb,1.1845e-01_jprb,1.4755e-01_jprb,&
 & 1.7593e-01_jprb,2.0174e-01_jprb,2.3625e-01_jprb/)  
kao( :, 3, 5,16) = (/&
 & 1.6515e-01_jprb,1.4456e-01_jprb,1.2397e-01_jprb,1.1290e-01_jprb,1.4346e-01_jprb,1.7861e-01_jprb,&
 & 2.1302e-01_jprb,2.4445e-01_jprb,2.8621e-01_jprb/)  
kao( :, 4, 5,16) = (/&
 & 1.6266e-01_jprb,1.4239e-01_jprb,1.2212e-01_jprb,1.2793e-01_jprb,1.6939e-01_jprb,2.1102e-01_jprb,&
 & 2.5177e-01_jprb,2.8892e-01_jprb,3.3809e-01_jprb/)  
kao( :, 5, 5,16) = (/&
 & 1.6070e-01_jprb,1.4068e-01_jprb,1.2066e-01_jprb,1.4743e-01_jprb,1.9603e-01_jprb,2.4421e-01_jprb,&
 & 2.9142e-01_jprb,3.3457e-01_jprb,3.9133e-01_jprb/)  
kao( :, 1, 6,16) = (/&
 & 2.0388e-01_jprb,1.7849e-01_jprb,1.5310e-01_jprb,1.2771e-01_jprb,1.0526e-01_jprb,1.1860e-01_jprb,&
 & 1.4142e-01_jprb,1.6203e-01_jprb,1.9043e-01_jprb/)  
kao( :, 2, 6,16) = (/&
 & 1.9953e-01_jprb,1.7470e-01_jprb,1.4986e-01_jprb,1.2501e-01_jprb,1.2166e-01_jprb,1.5016e-01_jprb,&
 & 1.7907e-01_jprb,2.0547e-01_jprb,2.4111e-01_jprb/)  
kao( :, 3, 6,16) = (/&
 & 1.9494e-01_jprb,1.7068e-01_jprb,1.4642e-01_jprb,1.2626e-01_jprb,1.4789e-01_jprb,1.8422e-01_jprb,&
 & 2.1980e-01_jprb,2.5220e-01_jprb,2.9578e-01_jprb/)  
kao( :, 4, 6,16) = (/&
 & 1.9206e-01_jprb,1.6810e-01_jprb,1.4414e-01_jprb,1.3841e-01_jprb,1.7663e-01_jprb,2.1999e-01_jprb,&
 & 2.6255e-01_jprb,3.0157e-01_jprb,3.5331e-01_jprb/)  
kao( :, 5, 6,16) = (/&
 & 1.9005e-01_jprb,1.6635e-01_jprb,1.4264e-01_jprb,1.5606e-01_jprb,2.0643e-01_jprb,2.5713e-01_jprb,&
 & 3.0687e-01_jprb,3.5252e-01_jprb,4.1278e-01_jprb/)  
kao( :, 1, 7,16) = (/&
 & 2.4312e-01_jprb,2.1282e-01_jprb,1.8252e-01_jprb,1.5222e-01_jprb,1.2192e-01_jprb,1.1888e-01_jprb,&
 & 1.4174e-01_jprb,1.6248e-01_jprb,1.9115e-01_jprb/)  
kao( :, 2, 7,16) = (/&
 & 2.3797e-01_jprb,2.0832e-01_jprb,1.7867e-01_jprb,1.4904e-01_jprb,1.2994e-01_jprb,1.5302e-01_jprb,&
 & 1.8249e-01_jprb,2.0929e-01_jprb,2.4599e-01_jprb/)  
kao( :, 3, 7,16) = (/&
 & 2.3255e-01_jprb,2.0359e-01_jprb,1.7463e-01_jprb,1.4575e-01_jprb,1.5275e-01_jprb,1.9023e-01_jprb,&
 & 2.2691e-01_jprb,2.6041e-01_jprb,3.0584e-01_jprb/)  
kao( :, 4, 7,16) = (/&
 & 2.2807e-01_jprb,1.9965e-01_jprb,1.7122e-01_jprb,1.5317e-01_jprb,1.8432e-01_jprb,2.2969e-01_jprb,&
 & 2.7402e-01_jprb,3.1471e-01_jprb,3.6920e-01_jprb/)  
kao( :, 5, 7,16) = (/&
 & 2.2498e-01_jprb,1.9692e-01_jprb,1.6887e-01_jprb,1.6865e-01_jprb,2.1725e-01_jprb,2.7068e-01_jprb,&
 & 3.2308e-01_jprb,3.7116e-01_jprb,4.3516e-01_jprb/)  
kao( :, 1, 8,16) = (/&
 & 2.9068e-01_jprb,2.5442e-01_jprb,2.1816e-01_jprb,1.8190e-01_jprb,1.4564e-01_jprb,1.2041e-01_jprb,&
 & 1.4177e-01_jprb,1.6257e-01_jprb,1.9124e-01_jprb/)  
kao( :, 2, 8,16) = (/&
 & 2.8457e-01_jprb,2.4908e-01_jprb,2.1359e-01_jprb,1.7807e-01_jprb,1.4515e-01_jprb,1.5579e-01_jprb,&
 & 1.8584e-01_jprb,2.1331e-01_jprb,2.5071e-01_jprb/)  
kao( :, 3, 8,16) = (/&
 & 2.7790e-01_jprb,2.4325e-01_jprb,2.0861e-01_jprb,1.7396e-01_jprb,1.6105e-01_jprb,1.9656e-01_jprb,&
 & 2.3447e-01_jprb,2.6926e-01_jprb,3.1620e-01_jprb/)  
kao( :, 4, 8,16) = (/&
 & 2.7204e-01_jprb,2.3812e-01_jprb,2.0420e-01_jprb,1.7391e-01_jprb,1.9266e-01_jprb,2.4008e-01_jprb,&
 & 2.8658e-01_jprb,3.2922e-01_jprb,3.8634e-01_jprb/)  
kao( :, 5, 8,16) = (/&
 & 2.6773e-01_jprb,2.3434e-01_jprb,2.0095e-01_jprb,1.8582e-01_jprb,2.2918e-01_jprb,2.8567e-01_jprb,&
 & 3.4098e-01_jprb,3.9189e-01_jprb,4.5943e-01_jprb/)  
kao( :, 1, 9,16) = (/&
 & 3.4732e-01_jprb,3.0397e-01_jprb,2.6061e-01_jprb,2.1726e-01_jprb,1.7390e-01_jprb,1.3271e-01_jprb,&
 & 1.4035e-01_jprb,1.6109e-01_jprb,1.8937e-01_jprb/)  
kao( :, 2, 9,16) = (/&
 & 3.3981e-01_jprb,2.9740e-01_jprb,2.5499e-01_jprb,2.1257e-01_jprb,1.7017e-01_jprb,1.5746e-01_jprb,&
 & 1.8783e-01_jprb,2.1574e-01_jprb,2.5330e-01_jprb/)  
kao( :, 3, 9,16) = (/&
 & 3.3164e-01_jprb,2.9026e-01_jprb,2.4888e-01_jprb,2.0750e-01_jprb,1.7718e-01_jprb,2.0179e-01_jprb,&
 & 2.4086e-01_jprb,2.7675e-01_jprb,3.2472e-01_jprb/)  
kao( :, 4, 9,16) = (/&
 & 3.2434e-01_jprb,2.8387e-01_jprb,2.4340e-01_jprb,2.0299e-01_jprb,2.0166e-01_jprb,2.4979e-01_jprb,&
 & 2.9816e-01_jprb,3.4279e-01_jprb,4.0187e-01_jprb/)  
kao( :, 5, 9,16) = (/&
 & 3.1856e-01_jprb,2.7881e-01_jprb,2.3907e-01_jprb,2.0909e-01_jprb,2.4079e-01_jprb,3.0025e-01_jprb,&
 & 3.5852e-01_jprb,4.1238e-01_jprb,4.8294e-01_jprb/)  
kao( :, 1,10,16) = (/&
 & 4.1296e-01_jprb,3.6138e-01_jprb,3.0981e-01_jprb,2.5823e-01_jprb,2.0667e-01_jprb,1.5510e-01_jprb,&
 & 1.4272e-01_jprb,1.6382e-01_jprb,1.9375e-01_jprb/)  
kao( :, 2,10,16) = (/&
 & 4.0355e-01_jprb,3.5316e-01_jprb,3.0277e-01_jprb,2.5237e-01_jprb,2.0198e-01_jprb,1.6688e-01_jprb,&
 & 1.9258e-01_jprb,2.2130e-01_jprb,2.5965e-01_jprb/)  
kao( :, 3,10,16) = (/&
 & 3.9334e-01_jprb,3.4423e-01_jprb,2.9512e-01_jprb,2.4601e-01_jprb,2.0198e-01_jprb,2.0922e-01_jprb,&
 & 2.4978e-01_jprb,2.8734e-01_jprb,3.3649e-01_jprb/)  
kao( :, 4,10,16) = (/&
 & 3.8468e-01_jprb,3.3665e-01_jprb,2.8862e-01_jprb,2.4064e-01_jprb,2.1892e-01_jprb,2.6187e-01_jprb,&
 & 3.1276e-01_jprb,3.6003e-01_jprb,4.2127e-01_jprb/)  
kao( :, 5,10,16) = (/&
 & 3.7732e-01_jprb,3.3021e-01_jprb,2.8310e-01_jprb,2.4052e-01_jprb,2.5525e-01_jprb,3.1772e-01_jprb,&
 & 3.7953e-01_jprb,4.3694e-01_jprb,5.1089e-01_jprb/)  
kao( :, 1,11,16) = (/&
 & 4.8302e-01_jprb,4.2268e-01_jprb,3.6234e-01_jprb,3.0200e-01_jprb,2.4165e-01_jprb,1.8151e-01_jprb,&
 & 1.6877e-01_jprb,1.9388e-01_jprb,3.3421e-01_jprb/)  
kao( :, 2,11,16) = (/&
 & 4.7050e-01_jprb,4.1173e-01_jprb,3.5296e-01_jprb,2.9420e-01_jprb,2.3543e-01_jprb,1.9660e-01_jprb,&
 & 2.2543e-01_jprb,2.5921e-01_jprb,3.3179e-01_jprb/)  
kao( :, 3,11,16) = (/&
 & 4.5896e-01_jprb,4.0163e-01_jprb,3.4431e-01_jprb,2.8698e-01_jprb,2.3627e-01_jprb,2.4234e-01_jprb,&
 & 2.8945e-01_jprb,3.3305e-01_jprb,3.8992e-01_jprb/)  
kao( :, 4,11,16) = (/&
 & 4.4916e-01_jprb,3.9306e-01_jprb,3.3696e-01_jprb,2.8088e-01_jprb,2.5515e-01_jprb,3.0073e-01_jprb,&
 & 3.5922e-01_jprb,4.1373e-01_jprb,4.8361e-01_jprb/)  
kao( :, 5,11,16) = (/&
 & 4.3990e-01_jprb,3.8496e-01_jprb,3.3001e-01_jprb,2.8070e-01_jprb,2.9324e-01_jprb,3.6251e-01_jprb,&
 & 4.3320e-01_jprb,4.9939e-01_jprb,5.8288e-01_jprb/)  
kao( :, 1,12,16) = (/&
 & 5.5949e-01_jprb,4.8959e-01_jprb,4.1968e-01_jprb,3.4978e-01_jprb,2.7990e-01_jprb,2.1117e-01_jprb,&
 & 1.9846e-01_jprb,2.2823e-01_jprb,4.6485e-01_jprb/)  
kao( :, 2,12,16) = (/&
 & 5.4466e-01_jprb,4.7661e-01_jprb,4.0856e-01_jprb,3.4053e-01_jprb,2.7248e-01_jprb,2.3023e-01_jprb,&
 & 2.6289e-01_jprb,3.0262e-01_jprb,4.5843e-01_jprb/)  
kao( :, 3,12,16) = (/&
 & 5.3198e-01_jprb,4.6551e-01_jprb,3.9905e-01_jprb,3.3259e-01_jprb,2.7378e-01_jprb,2.8016e-01_jprb,&
 & 3.3471e-01_jprb,3.8547e-01_jprb,4.7894e-01_jprb/)  
kao( :, 4,12,16) = (/&
 & 5.2001e-01_jprb,4.5505e-01_jprb,3.9008e-01_jprb,3.2510e-01_jprb,2.9551e-01_jprb,3.4473e-01_jprb,&
 & 4.1193e-01_jprb,4.7482e-01_jprb,5.5483e-01_jprb/)  
kao( :, 5,12,16) = (/&
 & 5.0915e-01_jprb,4.4554e-01_jprb,3.8193e-01_jprb,3.2460e-01_jprb,3.3469e-01_jprb,4.1244e-01_jprb,&
 & 4.9294e-01_jprb,5.6854e-01_jprb,6.6308e-01_jprb/)  
kao( :, 1,13,16) = (/&
 & 6.4209e-01_jprb,5.6185e-01_jprb,4.8161e-01_jprb,4.0138e-01_jprb,3.2111e-01_jprb,2.4405e-01_jprb,&
 & 2.3126e-01_jprb,2.6629e-01_jprb,5.1031e-01_jprb/)  
kao( :, 2,13,16) = (/&
 & 6.2605e-01_jprb,5.4782e-01_jprb,4.6959e-01_jprb,3.9135e-01_jprb,3.1312e-01_jprb,2.6752e-01_jprb,&
 & 3.0417e-01_jprb,3.5056e-01_jprb,5.0701e-01_jprb/)  
kao( :, 3,13,16) = (/&
 & 6.1094e-01_jprb,5.3460e-01_jprb,4.5826e-01_jprb,3.8192e-01_jprb,3.1501e-01_jprb,3.2162e-01_jprb,&
 & 3.8441e-01_jprb,4.4331e-01_jprb,5.4185e-01_jprb/)  
kao( :, 4,13,16) = (/&
 & 5.9718e-01_jprb,5.2256e-01_jprb,4.4794e-01_jprb,3.7327e-01_jprb,3.3928e-01_jprb,3.9296e-01_jprb,&
 & 4.6976e-01_jprb,5.4198e-01_jprb,6.3180e-01_jprb/)  
kao( :, 5,13,16) = (/&
 & 5.8381e-01_jprb,5.1086e-01_jprb,4.3791e-01_jprb,3.7153e-01_jprb,3.7939e-01_jprb,4.6700e-01_jprb,&
 & 5.5841e-01_jprb,6.4458e-01_jprb,7.5053e-01_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) = (/&
 & 1.26476e-03_jprb, 1.04962e-03_jprb, 8.71080e-04_jprb, 7.22907e-04_jprb, 5.99939e-04_jprb,&
 & 4.97888e-04_jprb, 4.13197e-04_jprb, 3.42911e-04_jprb, 2.84581e-04_jprb, 2.36173e-04_jprb/)  
selfrefo( :, 2) = (/&
 & 1.27380e-03_jprb, 1.05867e-03_jprb, 8.79870e-04_jprb, 7.31270e-04_jprb, 6.07767e-04_jprb,&
 & 5.05121e-04_jprb, 4.19812e-04_jprb, 3.48911e-04_jprb, 2.89983e-04_jprb, 2.41008e-04_jprb/)  
selfrefo( :, 3) = (/&
 & 1.26332e-03_jprb, 1.05867e-03_jprb, 8.87172e-04_jprb, 7.43454e-04_jprb, 6.23018e-04_jprb,&
 & 5.22092e-04_jprb, 4.37515e-04_jprb, 3.66640e-04_jprb, 3.07246e-04_jprb, 2.57474e-04_jprb/)  
selfrefo( :, 4) = (/&
 & 1.28078e-03_jprb, 1.07802e-03_jprb, 9.07363e-04_jprb, 7.63722e-04_jprb, 6.42820e-04_jprb,&
 & 5.41057e-04_jprb, 4.55404e-04_jprb, 3.83311e-04_jprb, 3.22630e-04_jprb, 2.71556e-04_jprb/)  
selfrefo( :, 5) = (/&
 & 1.61188e-03_jprb, 1.32375e-03_jprb, 1.08712e-03_jprb, 8.92794e-04_jprb, 7.33203e-04_jprb,&
 & 6.02140e-04_jprb, 4.94505e-04_jprb, 4.06110e-04_jprb, 3.33516e-04_jprb, 2.73898e-04_jprb/)  
selfrefo( :, 6) = (/&
 & 1.42549e-03_jprb, 1.25964e-03_jprb, 1.11309e-03_jprb, 9.83595e-04_jprb, 8.69162e-04_jprb,&
 & 7.68043e-04_jprb, 6.78688e-04_jprb, 5.99728e-04_jprb, 5.29955e-04_jprb, 4.68299e-04_jprb/)  
selfrefo( :, 7) = (/&
 & 1.43253e-03_jprb, 1.28535e-03_jprb, 1.15330e-03_jprb, 1.03480e-03_jprb, 9.28488e-04_jprb,&
 & 8.33094e-04_jprb, 7.47501e-04_jprb, 6.70702e-04_jprb, 6.01794e-04_jprb, 5.39965e-04_jprb/)  
selfrefo( :, 8) = (/&
 & 1.48973e-03_jprb, 1.33348e-03_jprb, 1.19363e-03_jprb, 1.06844e-03_jprb, 9.56378e-04_jprb,&
 & 8.56072e-04_jprb, 7.66286e-04_jprb, 6.85918e-04_jprb, 6.13978e-04_jprb, 5.49583e-04_jprb/)  
selfrefo( :, 9) = (/&
 & 1.53002e-03_jprb, 1.44607e-03_jprb, 1.36674e-03_jprb, 1.29175e-03_jprb, 1.22088e-03_jprb,&
 & 1.15390e-03_jprb, 1.09059e-03_jprb, 1.03076e-03_jprb, 9.74209e-04_jprb, 9.20760e-04_jprb/)  
selfrefo( :,10) = (/&
 & 1.78480e-03_jprb, 1.68865e-03_jprb, 1.59768e-03_jprb, 1.51161e-03_jprb, 1.43018e-03_jprb,&
 & 1.35313e-03_jprb, 1.28023e-03_jprb, 1.21126e-03_jprb, 1.14601e-03_jprb, 1.08427e-03_jprb/)  
selfrefo( :,11) = (/&
 & 1.85121e-03_jprb, 1.73903e-03_jprb, 1.63364e-03_jprb, 1.53464e-03_jprb, 1.44164e-03_jprb,&
 & 1.35427e-03_jprb, 1.27220e-03_jprb, 1.19510e-03_jprb, 1.12268e-03_jprb, 1.05464e-03_jprb/)  
selfrefo( :,12) = (/&
 & 2.10772e-03_jprb, 1.96994e-03_jprb, 1.84118e-03_jprb, 1.72082e-03_jprb, 1.60834e-03_jprb,&
 & 1.50321e-03_jprb, 1.40495e-03_jprb, 1.31311e-03_jprb, 1.22728e-03_jprb, 1.14705e-03_jprb/)  
selfrefo( :,13) = (/&
 & 1.99323e-03_jprb, 1.89279e-03_jprb, 1.79741e-03_jprb, 1.70684e-03_jprb, 1.62083e-03_jprb,&
 & 1.53915e-03_jprb, 1.46159e-03_jprb, 1.38794e-03_jprb, 1.31800e-03_jprb, 1.25159e-03_jprb/)  
selfrefo( :,14) = (/&
 & 2.05835e-03_jprb, 1.93301e-03_jprb, 1.81529e-03_jprb, 1.70475e-03_jprb, 1.60093e-03_jprb,&
 & 1.50344e-03_jprb, 1.41189e-03_jprb, 1.32591e-03_jprb, 1.24516e-03_jprb, 1.16934e-03_jprb/)  

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


SUBROUTINE part12

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


selfrefo( :,15) = (/&
 & 2.34120e-03_jprb, 2.20012e-03_jprb, 2.06754e-03_jprb, 1.94295e-03_jprb, 1.82587e-03_jprb,&
 & 1.71585e-03_jprb, 1.61245e-03_jprb, 1.51529e-03_jprb, 1.42398e-03_jprb, 1.33817e-03_jprb/)  
selfrefo( :,16) = (/&
 & 3.03559e-03_jprb, 2.80023e-03_jprb, 2.58312e-03_jprb, 2.38284e-03_jprb, 2.19809e-03_jprb,&
 & 2.02767e-03_jprb, 1.87045e-03_jprb, 1.72543e-03_jprb, 1.59165e-03_jprb, 1.46825e-03_jprb/)  

fracrefao( :, 1) = (/&
 !     From P = 862.6 mb.
 & 0.17356300_jprb,0.18880001_jprb,0.17704099_jprb,0.13661300_jprb,&
 & 0.10691600_jprb,0.08222480_jprb,0.05939860_jprb,0.04230810_jprb,&
 & 0.02526330_jprb,0.00244532_jprb,0.00193541_jprb,0.00150415_jprb,&
 & 0.00103528_jprb,0.00067068_jprb,0.00024951_jprb,0.00003348_jprb/)  
fracrefao( :, 2) = (/&
 & 0.17779499_jprb,0.19837400_jprb,0.16557600_jprb,0.13470000_jprb,&
 & 0.11013600_jprb,0.08342720_jprb,0.05987030_jprb,0.03938700_jprb,&
 & 0.02293650_jprb,0.00238849_jprb,0.00192400_jprb,0.00149921_jprb,&
 & 0.00103539_jprb,0.00067150_jprb,0.00024822_jprb,0.00003348_jprb/)  
fracrefao( :, 3) = (/&
 & 0.18535601_jprb,0.19407199_jprb,0.16053200_jprb,0.13300700_jprb,&
 & 0.10779000_jprb,0.08408500_jprb,0.06480450_jprb,0.04070160_jprb,&
 & 0.02203590_jprb,0.00227779_jprb,0.00189074_jprb,0.00146888_jprb,&
 & 0.00103147_jprb,0.00066770_jprb,0.00024751_jprb,0.00003348_jprb/)  
fracrefao( :, 4) = (/&
 & 0.19139200_jprb,0.18917400_jprb,0.15748601_jprb,0.13240699_jprb,&
 & 0.10557300_jprb,0.08383260_jprb,0.06724060_jprb,0.04364450_jprb,&
 & 0.02175820_jprb,0.00225436_jprb,0.00184421_jprb,0.00143153_jprb,&
 & 0.00103027_jprb,0.00066066_jprb,0.00024222_jprb,0.00003148_jprb/)  
fracrefao( :, 5) = (/&
 & 0.19547801_jprb,0.18539500_jprb,0.15442000_jprb,0.13114899_jprb,&
 & 0.10515600_jprb,0.08350350_jprb,0.06909780_jprb,0.04671630_jprb,&
 & 0.02168820_jprb,0.00224400_jprb,0.00182009_jprb,0.00139098_jprb,&
 & 0.00102582_jprb,0.00065367_jprb,0.00023202_jprb,0.00003148_jprb/)  
fracrefao( :, 6) = (/&
 & 0.19757500_jprb,0.18266800_jprb,0.15208900_jprb,0.12897800_jprb,&
 & 0.10637200_jprb,0.08391220_jprb,0.06989830_jprb,0.04964120_jprb,&
 & 0.02155800_jprb,0.00224310_jprb,0.00177358_jprb,0.00138184_jprb,&
 & 0.00101538_jprb,0.00063370_jprb,0.00023227_jprb,0.00003148_jprb/)  
fracrefao( :, 7) = (/&
 & 0.20145500_jprb,0.17692900_jprb,0.14940600_jprb,0.12690400_jprb,&
 & 0.10828800_jprb,0.08553720_jprb,0.07004940_jprb,0.05153430_jprb,&
 & 0.02268740_jprb,0.00216943_jprb,0.00178603_jprb,0.00137754_jprb,&
 & 0.00098344_jprb,0.00063165_jprb,0.00023218_jprb,0.00003148_jprb/)  
fracrefao( :, 8) = (/&
 & 0.20383500_jprb,0.17047501_jprb,0.14570600_jprb,0.12679300_jprb,&
 & 0.11043100_jprb,0.08719150_jprb,0.07045440_jprb,0.05345420_jprb,&
 & 0.02448340_jprb,0.00215839_jprb,0.00175893_jprb,0.00138296_jprb,&
 & 0.00098318_jprb,0.00063188_jprb,0.00023199_jprb,0.00003148_jprb/)  
fracrefao( :, 9) = (/&
 & 0.18680701_jprb,0.15961801_jprb,0.15092900_jprb,0.13049100_jprb,&
 & 0.11418400_jprb,0.09380540_jprb,0.07093450_jprb,0.05664280_jprb,&
 & 0.02938410_jprb,0.00217751_jprb,0.00176766_jprb,0.00138275_jprb,&
 & 0.00098377_jprb,0.00063181_jprb,0.00023193_jprb,0.00003148_jprb/)  

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


END SUBROUTINE rrtm_kgb16