rrtm_kgb15.F90

Go to the documentation of this file.

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

!     Originally by Eli J. Mlawer, Atmospheric & Environmental Research.
!     BAND 15:  2380-2600 cm-1 (low - N2O,CO2; 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 yoerrto15, ONLY : kao     ,selfrefo   ,fracrefao
USE yoerrta15, ONLY : strrat

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

IMPLICIT NONE
REAL(KIND=JPRB) :: ZHOOK_HANDLE

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

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

CONTAINS


SUBROUTINE part1

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


strrat = 0.2883201_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) = (/&
 & 4.2962e-03_jprb,1.5232e-02_jprb,1.9579e-02_jprb,2.1453e-02_jprb,2.1148e-02_jprb,1.9096e-02_jprb,&
 & 1.5358e-02_jprb,9.6936e-03_jprb,2.2149e+00_jprb/)  
kao( :, 2, 1, 1) = (/&
 & 4.2518e-03_jprb,1.5711e-02_jprb,2.0424e-02_jprb,2.2179e-02_jprb,2.1702e-02_jprb,1.9467e-02_jprb,&
 & 1.5548e-02_jprb,9.9480e-03_jprb,2.1772e+00_jprb/)  
kao( :, 3, 1, 1) = (/&
 & 4.2138e-03_jprb,1.6217e-02_jprb,2.1181e-02_jprb,2.2786e-02_jprb,2.2148e-02_jprb,1.9747e-02_jprb,&
 & 1.5738e-02_jprb,1.0309e-02_jprb,2.1464e+00_jprb/)  
kao( :, 4, 1, 1) = (/&
 & 4.1834e-03_jprb,1.6748e-02_jprb,2.1843e-02_jprb,2.3305e-02_jprb,2.2496e-02_jprb,1.9972e-02_jprb,&
 & 1.5965e-02_jprb,1.0775e-02_jprb,2.1191e+00_jprb/)  
kao( :, 5, 1, 1) = (/&
 & 4.1558e-03_jprb,1.7275e-02_jprb,2.2401e-02_jprb,2.3742e-02_jprb,2.2783e-02_jprb,2.0184e-02_jprb,&
 & 1.6265e-02_jprb,1.1330e-02_jprb,2.0949e+00_jprb/)  
kao( :, 1, 2, 1) = (/&
 & 3.2144e-03_jprb,1.2713e-02_jprb,1.6397e-02_jprb,1.7964e-02_jprb,1.7671e-02_jprb,1.5897e-02_jprb,&
 & 1.2690e-02_jprb,7.9486e-03_jprb,1.7669e+00_jprb/)  
kao( :, 2, 2, 1) = (/&
 & 3.1641e-03_jprb,1.3084e-02_jprb,1.7085e-02_jprb,1.8507e-02_jprb,1.8077e-02_jprb,1.6151e-02_jprb,&
 & 1.2818e-02_jprb,8.1279e-03_jprb,1.7352e+00_jprb/)  
kao( :, 3, 2, 1) = (/&
 & 3.1193e-03_jprb,1.3476e-02_jprb,1.7665e-02_jprb,1.8949e-02_jprb,1.8392e-02_jprb,1.6337e-02_jprb,&
 & 1.2943e-02_jprb,8.3974e-03_jprb,1.7079e+00_jprb/)  
kao( :, 4, 2, 1) = (/&
 & 3.0784e-03_jprb,1.3887e-02_jprb,1.8147e-02_jprb,1.9317e-02_jprb,1.8624e-02_jprb,1.6477e-02_jprb,&
 & 1.3099e-02_jprb,8.7556e-03_jprb,1.6824e+00_jprb/)  
kao( :, 5, 2, 1) = (/&
 & 3.0409e-03_jprb,1.4281e-02_jprb,1.8529e-02_jprb,1.9610e-02_jprb,1.8808e-02_jprb,1.6609e-02_jprb,&
 & 1.3316e-02_jprb,9.1921e-03_jprb,1.6588e+00_jprb/)  
kao( :, 1, 3, 1) = (/&
 & 2.3395e-03_jprb,1.0516e-02_jprb,1.3567e-02_jprb,1.4918e-02_jprb,1.4648e-02_jprb,1.3103e-02_jprb,&
 & 1.0421e-02_jprb,6.4902e-03_jprb,1.3955e+00_jprb/)  
kao( :, 2, 3, 1) = (/&
 & 2.2828e-03_jprb,1.0805e-02_jprb,1.4151e-02_jprb,1.5331e-02_jprb,1.4952e-02_jprb,1.3287e-02_jprb,&
 & 1.0515e-02_jprb,6.5971e-03_jprb,1.3684e+00_jprb/)  
kao( :, 3, 3, 1) = (/&
 & 2.2291e-03_jprb,1.1094e-02_jprb,1.4601e-02_jprb,1.5662e-02_jprb,1.5177e-02_jprb,1.3417e-02_jprb,&
 & 1.0594e-02_jprb,6.7764e-03_jprb,1.3430e+00_jprb/)  
kao( :, 4, 3, 1) = (/&
 & 2.1795e-03_jprb,1.1390e-02_jprb,1.4954e-02_jprb,1.5923e-02_jprb,1.5330e-02_jprb,1.3512e-02_jprb,&
 & 1.0687e-02_jprb,7.0307e-03_jprb,1.3188e+00_jprb/)  
kao( :, 5, 3, 1) = (/&
 & 2.1341e-03_jprb,1.1671e-02_jprb,1.5220e-02_jprb,1.6118e-02_jprb,1.5441e-02_jprb,1.3589e-02_jprb,&
 & 1.0824e-02_jprb,7.3529e-03_jprb,1.2961e+00_jprb/)  
kao( :, 1, 4, 1) = (/&
 & 1.7840e-03_jprb,8.7256e-03_jprb,1.1210e-02_jprb,1.2367e-02_jprb,1.2063e-02_jprb,1.0762e-02_jprb,&
 & 8.5444e-03_jprb,5.3058e-03_jprb,1.1276e+00_jprb/)  
kao( :, 2, 4, 1) = (/&
 & 1.7259e-03_jprb,8.9625e-03_jprb,1.1715e-02_jprb,1.2698e-02_jprb,1.2306e-02_jprb,1.0908e-02_jprb,&
 & 8.6186e-03_jprb,5.3631e-03_jprb,1.1050e+00_jprb/)  
kao( :, 3, 4, 1) = (/&
 & 1.6740e-03_jprb,9.1828e-03_jprb,1.2089e-02_jprb,1.2950e-02_jprb,1.2485e-02_jprb,1.1008e-02_jprb,&
 & 8.6759e-03_jprb,5.4730e-03_jprb,1.0830e+00_jprb/)  
kao( :, 4, 4, 1) = (/&
 & 1.6269e-03_jprb,9.4080e-03_jprb,1.2363e-02_jprb,1.3144e-02_jprb,1.2603e-02_jprb,1.1084e-02_jprb,&
 & 8.7331e-03_jprb,5.6457e-03_jprb,1.0617e+00_jprb/)  
kao( :, 5, 4, 1) = (/&
 & 1.5826e-03_jprb,9.6219e-03_jprb,1.2561e-02_jprb,1.3277e-02_jprb,1.2681e-02_jprb,1.1138e-02_jprb,&
 & 8.8166e-03_jprb,5.8778e-03_jprb,1.0410e+00_jprb/)  
kao( :, 1, 5, 1) = (/&
 & 1.4218e-03_jprb,7.2507e-03_jprb,9.2498e-03_jprb,1.0184e-02_jprb,9.8965e-03_jprb,8.8186e-03_jprb,&
 & 6.9985e-03_jprb,4.3450e-03_jprb,9.2779e-01_jprb/)  
kao( :, 2, 5, 1) = (/&
 & 1.3666e-03_jprb,7.4483e-03_jprb,9.6959e-03_jprb,1.0459e-02_jprb,1.0098e-02_jprb,8.9432e-03_jprb,&
 & 7.0603e-03_jprb,4.3726e-03_jprb,9.0832e-01_jprb/)  
kao( :, 3, 5, 1) = (/&
 & 1.3168e-03_jprb,7.6293e-03_jprb,1.0015e-02_jprb,1.0662e-02_jprb,1.0249e-02_jprb,9.0283e-03_jprb,&
 & 7.1071e-03_jprb,4.4354e-03_jprb,8.8937e-01_jprb/)  
kao( :, 4, 5, 1) = (/&
 & 1.2715e-03_jprb,7.8071e-03_jprb,1.0236e-02_jprb,1.0812e-02_jprb,1.0352e-02_jprb,9.0911e-03_jprb,&
 & 7.1478e-03_jprb,4.5476e-03_jprb,8.7061e-01_jprb/)  
kao( :, 5, 5, 1) = (/&
 & 1.2303e-03_jprb,7.9773e-03_jprb,1.0389e-02_jprb,1.0918e-02_jprb,1.0419e-02_jprb,9.1375e-03_jprb,&
 & 7.1984e-03_jprb,4.7106e-03_jprb,8.5172e-01_jprb/)  
kao( :, 1, 6, 1) = (/&
 & 1.1609e-03_jprb,5.9982e-03_jprb,7.5441e-03_jprb,8.3219e-03_jprb,8.0915e-03_jprb,7.2051e-03_jprb,&
 & 5.7215e-03_jprb,3.5604e-03_jprb,7.7269e-01_jprb/)  
kao( :, 2, 6, 1) = (/&
 & 1.1108e-03_jprb,6.1686e-03_jprb,7.9597e-03_jprb,8.5717e-03_jprb,8.2612e-03_jprb,7.3195e-03_jprb,&
 & 5.7777e-03_jprb,3.5731e-03_jprb,7.5578e-01_jprb/)  
kao( :, 3, 6, 1) = (/&
 & 1.0654e-03_jprb,6.3243e-03_jprb,8.2392e-03_jprb,8.7441e-03_jprb,8.3924e-03_jprb,7.3948e-03_jprb,&
 & 5.8188e-03_jprb,3.6047e-03_jprb,7.3901e-01_jprb/)  
kao( :, 4, 6, 1) = (/&
 & 1.0238e-03_jprb,6.4720e-03_jprb,8.4331e-03_jprb,8.8696e-03_jprb,8.4869e-03_jprb,7.4498e-03_jprb,&
 & 5.8508e-03_jprb,3.6714e-03_jprb,7.2195e-01_jprb/)  
kao( :, 5, 6, 1) = (/&
 & 9.8558e-04_jprb,6.6127e-03_jprb,8.5578e-03_jprb,8.9617e-03_jprb,8.5506e-03_jprb,7.4929e-03_jprb,&
 & 5.8848e-03_jprb,3.7810e-03_jprb,7.0447e-01_jprb/)  
kao( :, 1, 7, 1) = (/&
 & 9.5793e-04_jprb,4.9392e-03_jprb,6.0959e-03_jprb,6.7658e-03_jprb,6.6008e-03_jprb,5.8761e-03_jprb,&
 & 4.6722e-03_jprb,2.9165e-03_jprb,6.5237e-01_jprb/)  
kao( :, 2, 7, 1) = (/&
 & 9.1189e-04_jprb,5.0775e-03_jprb,6.4806e-03_jprb,7.0004e-03_jprb,6.7455e-03_jprb,5.9796e-03_jprb,&
 & 4.7234e-03_jprb,2.9250e-03_jprb,6.3689e-01_jprb/)  
kao( :, 3, 7, 1) = (/&
 & 8.7036e-04_jprb,5.2121e-03_jprb,6.7389e-03_jprb,7.1547e-03_jprb,6.8614e-03_jprb,6.0502e-03_jprb,&
 & 4.7609e-03_jprb,2.9391e-03_jprb,6.2141e-01_jprb/)  
kao( :, 4, 7, 1) = (/&
 & 8.3275e-04_jprb,5.3378e-03_jprb,6.9169e-03_jprb,7.2639e-03_jprb,6.9474e-03_jprb,6.1007e-03_jprb,&
 & 4.7893e-03_jprb,2.9754e-03_jprb,6.0575e-01_jprb/)  
kao( :, 5, 7, 1) = (/&
 & 7.9855e-04_jprb,5.4591e-03_jprb,7.0288e-03_jprb,7.3444e-03_jprb,7.0074e-03_jprb,6.1400e-03_jprb,&
 & 4.8149e-03_jprb,3.0449e-03_jprb,5.8968e-01_jprb/)  
kao( :, 1, 8, 1) = (/&
 & 7.9465e-04_jprb,4.0550e-03_jprb,4.9071e-03_jprb,5.4722e-03_jprb,5.3709e-03_jprb,4.7864e-03_jprb,&
 & 3.8134e-03_jprb,2.3876e-03_jprb,5.5983e-01_jprb/)  
kao( :, 2, 8, 1) = (/&
 & 7.5211e-04_jprb,4.1645e-03_jprb,5.2395e-03_jprb,5.6983e-03_jprb,5.5014e-03_jprb,4.8765e-03_jprb,&
 & 3.8582e-03_jprb,2.3958e-03_jprb,5.4541e-01_jprb/)  
kao( :, 3, 8, 1) = (/&
 & 7.1425e-04_jprb,4.2775e-03_jprb,5.4907e-03_jprb,5.8442e-03_jprb,5.6010e-03_jprb,4.9449e-03_jprb,&
 & 3.8932e-03_jprb,2.4025e-03_jprb,5.3089e-01_jprb/)  
kao( :, 4, 8, 1) = (/&
 & 6.8017e-04_jprb,4.3807e-03_jprb,5.6532e-03_jprb,5.9396e-03_jprb,5.6779e-03_jprb,4.9919e-03_jprb,&
 & 3.9191e-03_jprb,2.4205e-03_jprb,5.1625e-01_jprb/)  
kao( :, 5, 8, 1) = (/&
 & 6.4915e-04_jprb,4.4822e-03_jprb,5.7602e-03_jprb,6.0112e-03_jprb,5.7346e-03_jprb,5.0274e-03_jprb,&
 & 3.9402e-03_jprb,2.4616e-03_jprb,5.0156e-01_jprb/)  
kao( :, 1, 9, 1) = (/&
 & 6.6256e-04_jprb,3.3231e-03_jprb,3.9423e-03_jprb,4.3965e-03_jprb,4.3550e-03_jprb,3.8950e-03_jprb,&
 & 3.1106e-03_jprb,1.9527e-03_jprb,4.7909e-01_jprb/)  
kao( :, 2, 9, 1) = (/&
 & 6.2337e-04_jprb,3.4093e-03_jprb,4.2109e-03_jprb,4.6231e-03_jprb,4.4821e-03_jprb,3.9733e-03_jprb,&
 & 3.1493e-03_jprb,1.9618e-03_jprb,4.6525e-01_jprb/)  
kao( :, 3, 9, 1) = (/&
 & 5.8859e-04_jprb,3.5021e-03_jprb,4.4524e-03_jprb,4.7638e-03_jprb,4.5675e-03_jprb,4.0358e-03_jprb,&
 & 3.1809e-03_jprb,1.9669e-03_jprb,4.5157e-01_jprb/)  
kao( :, 4, 9, 1) = (/&
 & 5.5740e-04_jprb,3.5874e-03_jprb,4.6083e-03_jprb,4.8522e-03_jprb,4.6363e-03_jprb,4.0813e-03_jprb,&
 & 3.2054e-03_jprb,1.9751e-03_jprb,4.3811e-01_jprb/)  
kao( :, 5, 9, 1) = (/&
 & 5.2927e-04_jprb,3.6711e-03_jprb,4.7102e-03_jprb,4.9155e-03_jprb,4.6887e-03_jprb,4.1135e-03_jprb,&
 & 3.2248e-03_jprb,1.9974e-03_jprb,4.2484e-01_jprb/)  
kao( :, 1,10, 1) = (/&
 & 5.5819e-04_jprb,2.7284e-03_jprb,3.1809e-03_jprb,3.5314e-03_jprb,3.5278e-03_jprb,3.1713e-03_jprb,&
 & 2.5390e-03_jprb,1.5979e-03_jprb,4.1170e-01_jprb/)  
kao( :, 2,10, 1) = (/&
 & 5.2264e-04_jprb,2.7960e-03_jprb,3.3951e-03_jprb,3.7490e-03_jprb,3.6516e-03_jprb,3.2397e-03_jprb,&
 & 2.5727e-03_jprb,1.6061e-03_jprb,3.9866e-01_jprb/)  
kao( :, 3,10, 1) = (/&
 & 4.9139e-04_jprb,2.8693e-03_jprb,3.6092e-03_jprb,3.8820e-03_jprb,3.7278e-03_jprb,3.2940e-03_jprb,&
 & 2.5999e-03_jprb,1.6112e-03_jprb,3.8585e-01_jprb/)  
kao( :, 4,10, 1) = (/&
 & 4.6354e-04_jprb,2.9405e-03_jprb,3.7573e-03_jprb,3.9654e-03_jprb,3.7869e-03_jprb,3.3368e-03_jprb,&
 & 2.6225e-03_jprb,1.6157e-03_jprb,3.7334e-01_jprb/)  
kao( :, 5,10, 1) = (/&
 & 4.3854e-04_jprb,3.0087e-03_jprb,3.8506e-03_jprb,4.0212e-03_jprb,3.8338e-03_jprb,3.3662e-03_jprb,&
 & 2.6402e-03_jprb,1.6279e-03_jprb,3.6129e-01_jprb/)  
kao( :, 1,11, 1) = (/&
 & 4.5821e-04_jprb,2.2621e-03_jprb,2.6447e-03_jprb,2.9297e-03_jprb,2.9129e-03_jprb,2.6105e-03_jprb,&
 & 2.0860e-03_jprb,1.3108e-03_jprb,3.4781e-01_jprb/)  
kao( :, 2,11, 1) = (/&
 & 4.2863e-04_jprb,2.3183e-03_jprb,2.8194e-03_jprb,3.0973e-03_jprb,3.0077e-03_jprb,2.6638e-03_jprb,&
 & 2.1125e-03_jprb,1.3172e-03_jprb,3.3606e-01_jprb/)  
kao( :, 3,11, 1) = (/&
 & 4.0252e-04_jprb,2.3779e-03_jprb,2.9883e-03_jprb,3.2000e-03_jprb,3.0663e-03_jprb,2.7064e-03_jprb,&
 & 2.1343e-03_jprb,1.3214e-03_jprb,3.2458e-01_jprb/)  
kao( :, 4,11, 1) = (/&
 & 3.7927e-04_jprb,2.4351e-03_jprb,3.1025e-03_jprb,3.2639e-03_jprb,3.1126e-03_jprb,2.7399e-03_jprb,&
 & 2.1527e-03_jprb,1.3253e-03_jprb,3.1358e-01_jprb/)  
kao( :, 5,11, 1) = (/&
 & 3.5851e-04_jprb,2.4897e-03_jprb,3.1743e-03_jprb,3.3073e-03_jprb,3.1494e-03_jprb,2.7631e-03_jprb,&
 & 2.1670e-03_jprb,1.3357e-03_jprb,3.0304e-01_jprb/)  
kao( :, 1,12, 1) = (/&
 & 3.7566e-04_jprb,1.8705e-03_jprb,2.1955e-03_jprb,2.4263e-03_jprb,2.4027e-03_jprb,2.1477e-03_jprb,&
 & 1.7133e-03_jprb,1.0753e-03_jprb,2.9614e-01_jprb/)  
kao( :, 2,12, 1) = (/&
 & 3.5112e-04_jprb,1.9175e-03_jprb,2.3381e-03_jprb,2.5565e-03_jprb,2.4759e-03_jprb,2.1892e-03_jprb,&
 & 1.7343e-03_jprb,1.0803e-03_jprb,2.8551e-01_jprb/)  
kao( :, 3,12, 1) = (/&
 & 3.2946e-04_jprb,1.9676e-03_jprb,2.4711e-03_jprb,2.6363e-03_jprb,2.5213e-03_jprb,2.2227e-03_jprb,&
 & 1.7519e-03_jprb,1.0837e-03_jprb,2.7528e-01_jprb/)  
kao( :, 4,12, 1) = (/&
 & 3.1028e-04_jprb,2.0138e-03_jprb,2.5600e-03_jprb,2.6860e-03_jprb,2.5577e-03_jprb,2.2494e-03_jprb,&
 & 1.7667e-03_jprb,1.0872e-03_jprb,2.6557e-01_jprb/)  
kao( :, 5,12, 1) = (/&
 & 2.9320e-04_jprb,2.0583e-03_jprb,2.6161e-03_jprb,2.7200e-03_jprb,2.5866e-03_jprb,2.2676e-03_jprb,&
 & 1.7779e-03_jprb,1.0961e-03_jprb,2.5635e-01_jprb/)  
kao( :, 1,13, 1) = (/&
 & 3.0764e-04_jprb,1.5429e-03_jprb,1.8188e-03_jprb,2.0063e-03_jprb,1.9799e-03_jprb,1.7660e-03_jprb,&
 & 1.4068e-03_jprb,8.8203e-04_jprb,2.5899e-01_jprb/)  
kao( :, 2,13, 1) = (/&
 & 2.8735e-04_jprb,1.5821e-03_jprb,1.9364e-03_jprb,2.1086e-03_jprb,2.0369e-03_jprb,1.7986e-03_jprb,&
 & 1.4237e-03_jprb,8.8599e-04_jprb,2.4914e-01_jprb/)  
kao( :, 3,13, 1) = (/&
 & 2.6953e-04_jprb,1.6236e-03_jprb,2.0412e-03_jprb,2.1709e-03_jprb,2.0725e-03_jprb,1.8251e-03_jprb,&
 & 1.4376e-03_jprb,8.8887e-04_jprb,2.3982e-01_jprb/)  
kao( :, 4,13, 1) = (/&
 & 2.5380e-04_jprb,1.6612e-03_jprb,2.1113e-03_jprb,2.2099e-03_jprb,2.1013e-03_jprb,1.8462e-03_jprb,&
 & 1.4493e-03_jprb,8.9188e-04_jprb,2.3102e-01_jprb/)  
kao( :, 5,13, 1) = (/&
 & 2.3980e-04_jprb,1.6979e-03_jprb,2.1555e-03_jprb,2.2365e-03_jprb,2.1241e-03_jprb,1.8607e-03_jprb,&
 & 1.4583e-03_jprb,8.9931e-04_jprb,2.2279e-01_jprb/)  
kao( :, 1, 1, 2) = (/&
 & 7.0943e-03_jprb,3.8387e-02_jprb,4.3151e-02_jprb,4.2731e-02_jprb,4.0946e-02_jprb,3.8949e-02_jprb,&
 & 3.7362e-02_jprb,3.5997e-02_jprb,3.1543e+00_jprb/)  
kao( :, 2, 1, 2) = (/&
 & 7.0850e-03_jprb,3.8454e-02_jprb,4.2900e-02_jprb,4.3028e-02_jprb,4.2284e-02_jprb,4.1753e-02_jprb,&
 & 4.1711e-02_jprb,4.1528e-02_jprb,3.1189e+00_jprb/)  
kao( :, 3, 1, 2) = (/&
 & 7.0813e-03_jprb,3.8363e-02_jprb,4.2614e-02_jprb,4.3463e-02_jprb,4.3963e-02_jprb,4.4905e-02_jprb,&
 & 4.6271e-02_jprb,4.7132e-02_jprb,3.0948e+00_jprb/)  
kao( :, 4, 1, 2) = (/&
 & 7.0651e-03_jprb,3.8151e-02_jprb,4.2395e-02_jprb,4.4068e-02_jprb,4.5862e-02_jprb,4.8163e-02_jprb,&
 & 5.0764e-02_jprb,5.2533e-02_jprb,3.0805e+00_jprb/)  
kao( :, 5, 1, 2) = (/&
 & 7.0475e-03_jprb,3.7840e-02_jprb,4.2280e-02_jprb,4.4809e-02_jprb,4.7823e-02_jprb,5.1372e-02_jprb,&
 & 5.5020e-02_jprb,5.7574e-02_jprb,3.0698e+00_jprb/)  
kao( :, 1, 2, 2) = (/&
 & 5.4133e-03_jprb,3.2388e-02_jprb,3.6287e-02_jprb,3.5903e-02_jprb,3.4407e-02_jprb,3.2747e-02_jprb,&
 & 3.1453e-02_jprb,3.0272e-02_jprb,2.5533e+00_jprb/)  
kao( :, 2, 2, 2) = (/&
 & 5.3611e-03_jprb,3.2430e-02_jprb,3.6074e-02_jprb,3.6216e-02_jprb,3.5593e-02_jprb,3.5203e-02_jprb,&
 & 3.5194e-02_jprb,3.4997e-02_jprb,2.5086e+00_jprb/)  
kao( :, 3, 2, 2) = (/&
 & 5.3281e-03_jprb,3.2322e-02_jprb,3.5847e-02_jprb,3.6639e-02_jprb,3.7078e-02_jprb,3.7935e-02_jprb,&
 & 3.9143e-02_jprb,3.9849e-02_jprb,2.4723e+00_jprb/)  
kao( :, 4, 2, 2) = (/&
 & 5.3094e-03_jprb,3.2112e-02_jprb,3.5677e-02_jprb,3.7178e-02_jprb,3.8741e-02_jprb,4.0767e-02_jprb,&
 & 4.3021e-02_jprb,4.4489e-02_jprb,2.4475e+00_jprb/)  
kao( :, 5, 2, 2) = (/&
 & 5.2887e-03_jprb,3.1839e-02_jprb,3.5583e-02_jprb,3.7831e-02_jprb,4.0436e-02_jprb,4.3525e-02_jprb,&
 & 4.6680e-02_jprb,4.8869e-02_jprb,2.4311e+00_jprb/)  
kao( :, 1, 3, 2) = (/&
 & 4.0611e-03_jprb,2.7170e-02_jprb,3.0405e-02_jprb,3.0026e-02_jprb,2.8647e-02_jprb,2.7115e-02_jprb,&
 & 2.5770e-02_jprb,2.4484e-02_jprb,2.0491e+00_jprb/)  
kao( :, 2, 3, 2) = (/&
 & 3.9775e-03_jprb,2.7189e-02_jprb,3.0241e-02_jprb,3.0301e-02_jprb,2.9626e-02_jprb,2.9114e-02_jprb,&
 & 2.8843e-02_jprb,2.8434e-02_jprb,1.9991e+00_jprb/)  
kao( :, 3, 3, 2) = (/&
 & 3.9065e-03_jprb,2.7099e-02_jprb,3.0059e-02_jprb,3.0647e-02_jprb,3.0854e-02_jprb,3.1397e-02_jprb,&
 & 3.2170e-02_jprb,3.2541e-02_jprb,1.9562e+00_jprb/)  
kao( :, 4, 3, 2) = (/&
 & 3.8466e-03_jprb,2.6925e-02_jprb,2.9905e-02_jprb,3.1087e-02_jprb,3.2235e-02_jprb,3.3772e-02_jprb,&
 & 3.5477e-02_jprb,3.6558e-02_jprb,1.9207e+00_jprb/)  
kao( :, 5, 3, 2) = (/&
 & 3.7983e-03_jprb,2.6668e-02_jprb,2.9797e-02_jprb,3.1593e-02_jprb,3.3666e-02_jprb,3.6136e-02_jprb,&
 & 3.8655e-02_jprb,4.0337e-02_jprb,1.8904e+00_jprb/)  
kao( :, 1, 4, 2) = (/&
 & 3.1618e-03_jprb,2.2735e-02_jprb,2.5430e-02_jprb,2.5073e-02_jprb,2.3860e-02_jprb,2.2346e-02_jprb,&
 & 2.0906e-02_jprb,1.9493e-02_jprb,1.6815e+00_jprb/)  
kao( :, 2, 4, 2) = (/&
 & 3.0772e-03_jprb,2.2769e-02_jprb,2.5323e-02_jprb,2.5294e-02_jprb,2.4614e-02_jprb,2.3917e-02_jprb,&
 & 2.3363e-02_jprb,2.2717e-02_jprb,1.6300e+00_jprb/)  
kao( :, 3, 4, 2) = (/&
 & 2.9989e-03_jprb,2.2705e-02_jprb,2.5187e-02_jprb,2.5585e-02_jprb,2.5590e-02_jprb,2.5772e-02_jprb,&
 & 2.6101e-02_jprb,2.6159e-02_jprb,1.5868e+00_jprb/)  
kao( :, 4, 4, 2) = (/&
 & 2.9269e-03_jprb,2.2567e-02_jprb,2.5061e-02_jprb,2.5933e-02_jprb,2.6708e-02_jprb,2.7738e-02_jprb,&
 & 2.8897e-02_jprb,2.9580e-02_jprb,1.5492e+00_jprb/)  
kao( :, 5, 4, 2) = (/&
 & 2.8633e-03_jprb,2.2345e-02_jprb,2.4951e-02_jprb,2.6338e-02_jprb,2.7898e-02_jprb,2.9732e-02_jprb,&
 & 3.1610e-02_jprb,3.2830e-02_jprb,1.5179e+00_jprb/)  
kao( :, 1, 5, 2) = (/&
 & 2.5495e-03_jprb,1.8985e-02_jprb,2.1259e-02_jprb,2.0956e-02_jprb,1.9882e-02_jprb,1.8351e-02_jprb,&
 & 1.6812e-02_jprb,1.5262e-02_jprb,1.4081e+00_jprb/)  
kao( :, 2, 5, 2) = (/&
 & 2.4663e-03_jprb,1.9038e-02_jprb,2.1177e-02_jprb,2.1145e-02_jprb,2.0437e-02_jprb,1.9579e-02_jprb,&
 & 1.8803e-02_jprb,1.7942e-02_jprb,1.3595e+00_jprb/)  
kao( :, 3, 5, 2) = (/&
 & 2.3921e-03_jprb,1.9006e-02_jprb,2.1089e-02_jprb,2.1375e-02_jprb,2.1189e-02_jprb,2.1072e-02_jprb,&
 & 2.1043e-02_jprb,2.0814e-02_jprb,1.3176e+00_jprb/)  
kao( :, 4, 5, 2) = (/&
 & 2.3238e-03_jprb,1.8899e-02_jprb,2.0991e-02_jprb,2.1643e-02_jprb,2.2082e-02_jprb,2.2687e-02_jprb,&
 & 2.3376e-02_jprb,2.3722e-02_jprb,1.2814e+00_jprb/)  
kao( :, 5, 5, 2) = (/&
 & 2.2609e-03_jprb,1.8711e-02_jprb,2.0886e-02_jprb,2.1958e-02_jprb,2.3037e-02_jprb,2.4321e-02_jprb,&
 & 2.5657e-02_jprb,2.6474e-02_jprb,1.2502e+00_jprb/)  

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


SUBROUTINE part2

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


kao( :, 1, 6, 2) = (/&
 & 2.1136e-03_jprb,1.5844e-02_jprb,1.7815e-02_jprb,1.7475e-02_jprb,1.6448e-02_jprb,1.4925e-02_jprb,&
 & 1.3323e-02_jprb,1.1714e-02_jprb,1.1933e+00_jprb/)  
kao( :, 2, 6, 2) = (/&
 & 2.0306e-03_jprb,1.5911e-02_jprb,1.7725e-02_jprb,1.7645e-02_jprb,1.6857e-02_jprb,1.5846e-02_jprb,&
 & 1.4877e-02_jprb,1.3852e-02_jprb,1.1478e+00_jprb/)  
kao( :, 3, 6, 2) = (/&
 & 1.9573e-03_jprb,1.5900e-02_jprb,1.7665e-02_jprb,1.7815e-02_jprb,1.7433e-02_jprb,1.7030e-02_jprb,&
 & 1.6681e-02_jprb,1.6204e-02_jprb,1.1091e+00_jprb/)  
kao( :, 4, 6, 2) = (/&
 & 1.8915e-03_jprb,1.5823e-02_jprb,1.7587e-02_jprb,1.8019e-02_jprb,1.8141e-02_jprb,1.8355e-02_jprb,&
 & 1.8615e-02_jprb,1.8633e-02_jprb,1.0755e+00_jprb/)  
kao( :, 5, 6, 2) = (/&
 & 1.8316e-03_jprb,1.5671e-02_jprb,1.7495e-02_jprb,1.8250e-02_jprb,1.8907e-02_jprb,1.9704e-02_jprb,&
 & 2.0534e-02_jprb,2.0986e-02_jprb,1.0458e+00_jprb/)  
kao( :, 1, 7, 2) = (/&
 & 1.7779e-03_jprb,1.3214e-02_jprb,1.4915e-02_jprb,1.4490e-02_jprb,1.3534e-02_jprb,1.2115e-02_jprb,&
 & 1.0525e-02_jprb,8.9151e-03_jprb,1.0250e+00_jprb/)  
kao( :, 2, 7, 2) = (/&
 & 1.6955e-03_jprb,1.3308e-02_jprb,1.4823e-02_jprb,1.4622e-02_jprb,1.3840e-02_jprb,1.2763e-02_jprb,&
 & 1.1685e-02_jprb,1.0574e-02_jprb,9.8268e-01_jprb/)  
kao( :, 3, 7, 2) = (/&
 & 1.6237e-03_jprb,1.3311e-02_jprb,1.4766e-02_jprb,1.4761e-02_jprb,1.4249e-02_jprb,1.3650e-02_jprb,&
 & 1.3091e-02_jprb,1.2450e-02_jprb,9.4696e-01_jprb/)  
kao( :, 4, 7, 2) = (/&
 & 1.5603e-03_jprb,1.3256e-02_jprb,1.4695e-02_jprb,1.4910e-02_jprb,1.4782e-02_jprb,1.4700e-02_jprb,&
 & 1.4648e-02_jprb,1.4438e-02_jprb,9.1575e-01_jprb/)  
kao( :, 5, 7, 2) = (/&
 & 1.5029e-03_jprb,1.3127e-02_jprb,1.4617e-02_jprb,1.5078e-02_jprb,1.5382e-02_jprb,1.5792e-02_jprb,&
 & 1.6228e-02_jprb,1.6399e-02_jprb,8.8786e-01_jprb/)  
kao( :, 1, 8, 2) = (/&
 & 1.5020e-03_jprb,1.1002e-02_jprb,1.2408e-02_jprb,1.1986e-02_jprb,1.1101e-02_jprb,9.8378e-03_jprb,&
 & 8.3304e-03_jprb,6.7732e-03_jprb,8.9770e-01_jprb/)  
kao( :, 2, 8, 2) = (/&
 & 1.4230e-03_jprb,1.1110e-02_jprb,1.2342e-02_jprb,1.2073e-02_jprb,1.1340e-02_jprb,1.0282e-02_jprb,&
 & 9.1665e-03_jprb,8.0270e-03_jprb,8.5759e-01_jprb/)  
kao( :, 3, 8, 2) = (/&
 & 1.3543e-03_jprb,1.1124e-02_jprb,1.2281e-02_jprb,1.2183e-02_jprb,1.1624e-02_jprb,1.0918e-02_jprb,&
 & 1.0231e-02_jprb,9.4957e-03_jprb,8.2343e-01_jprb/)  
kao( :, 4, 8, 2) = (/&
 & 1.2937e-03_jprb,1.1088e-02_jprb,1.2220e-02_jprb,1.2293e-02_jprb,1.2008e-02_jprb,1.1719e-02_jprb,&
 & 1.1453e-02_jprb,1.1081e-02_jprb,7.9354e-01_jprb/)  
kao( :, 5, 8, 2) = (/&
 & 1.2398e-03_jprb,1.0985e-02_jprb,1.2152e-02_jprb,1.2411e-02_jprb,1.2469e-02_jprb,1.2594e-02_jprb,&
 & 1.2739e-02_jprb,1.2705e-02_jprb,7.6694e-01_jprb/)  
kao( :, 1, 9, 2) = (/&
 & 1.2772e-03_jprb,9.1185e-03_jprb,1.0283e-02_jprb,9.9108e-03_jprb,9.0933e-03_jprb,7.9937e-03_jprb,&
 & 6.6146e-03_jprb,5.1482e-03_jprb,7.8565e-01_jprb/)  
kao( :, 2, 9, 2) = (/&
 & 1.2008e-03_jprb,9.2246e-03_jprb,1.0254e-02_jprb,9.9497e-03_jprb,9.2744e-03_jprb,8.2956e-03_jprb,&
 & 7.1977e-03_jprb,6.0715e-03_jprb,7.4762e-01_jprb/)  
kao( :, 3, 9, 2) = (/&
 & 1.1346e-03_jprb,9.2567e-03_jprb,1.0190e-02_jprb,1.0030e-02_jprb,9.4797e-03_jprb,8.7349e-03_jprb,&
 & 7.9799e-03_jprb,7.1919e-03_jprb,7.1506e-01_jprb/)  
kao( :, 4, 9, 2) = (/&
 & 1.0767e-03_jprb,9.2317e-03_jprb,1.0137e-02_jprb,1.0114e-02_jprb,9.7458e-03_jprb,9.3188e-03_jprb,&
 & 8.9121e-03_jprb,8.4415e-03_jprb,6.8636e-01_jprb/)  
kao( :, 5, 9, 2) = (/&
 & 1.0254e-03_jprb,9.1543e-03_jprb,1.0077e-02_jprb,1.0198e-02_jprb,1.0088e-02_jprb,1.0005e-02_jprb,&
 & 9.9430e-03_jprb,9.7610e-03_jprb,6.6072e-01_jprb/)  
kao( :, 1,10, 2) = (/&
 & 1.0908e-03_jprb,7.5349e-03_jprb,8.5055e-03_jprb,8.1913e-03_jprb,7.4594e-03_jprb,6.5117e-03_jprb,&
 & 5.3043e-03_jprb,3.9738e-03_jprb,6.8647e-01_jprb/)  
kao( :, 2,10, 2) = (/&
 & 1.0219e-03_jprb,7.6350e-03_jprb,8.4942e-03_jprb,8.2002e-03_jprb,7.5922e-03_jprb,6.7288e-03_jprb,&
 & 5.7099e-03_jprb,4.6532e-03_jprb,6.5148e-01_jprb/)  
kao( :, 3,10, 2) = (/&
 & 9.6216e-04_jprb,7.6768e-03_jprb,8.4412e-03_jprb,8.2544e-03_jprb,7.7463e-03_jprb,7.0316e-03_jprb,&
 & 6.2789e-03_jprb,5.5007e-03_jprb,6.2153e-01_jprb/)  
kao( :, 4,10, 2) = (/&
 & 9.0949e-04_jprb,7.6636e-03_jprb,8.3915e-03_jprb,8.3156e-03_jprb,7.9306e-03_jprb,7.4536e-03_jprb,&
 & 6.9877e-03_jprb,6.4813e-03_jprb,5.9517e-01_jprb/)  
kao( :, 5,10, 2) = (/&
 & 8.6244e-04_jprb,7.6028e-03_jprb,8.3387e-03_jprb,8.3779e-03_jprb,8.1810e-03_jprb,7.9831e-03_jprb,&
 & 7.7997e-03_jprb,7.5371e-03_jprb,5.7147e-01_jprb/)  
kao( :, 1,11, 2) = (/&
 & 9.0171e-04_jprb,6.2591e-03_jprb,7.0260e-03_jprb,6.7592e-03_jprb,6.1582e-03_jprb,5.3757e-03_jprb,&
 & 4.3823e-03_jprb,3.2909e-03_jprb,5.8305e-01_jprb/)  
kao( :, 2,11, 2) = (/&
 & 8.4471e-04_jprb,6.3292e-03_jprb,7.0117e-03_jprb,6.7680e-03_jprb,6.2644e-03_jprb,5.5512e-03_jprb,&
 & 4.7161e-03_jprb,3.8488e-03_jprb,5.5321e-01_jprb/)  
kao( :, 3,11, 2) = (/&
 & 7.9501e-04_jprb,6.3542e-03_jprb,6.9623e-03_jprb,6.8076e-03_jprb,6.3850e-03_jprb,5.7984e-03_jprb,&
 & 5.1814e-03_jprb,4.5421e-03_jprb,5.2752e-01_jprb/)  
kao( :, 4,11, 2) = (/&
 & 7.5106e-04_jprb,6.3305e-03_jprb,6.9164e-03_jprb,6.8517e-03_jprb,6.5339e-03_jprb,6.1441e-03_jprb,&
 & 5.7616e-03_jprb,5.3442e-03_jprb,5.0480e-01_jprb/)  
kao( :, 5,11, 2) = (/&
 & 7.1176e-04_jprb,6.2680e-03_jprb,6.8638e-03_jprb,6.9010e-03_jprb,6.7399e-03_jprb,6.5787e-03_jprb,&
 & 6.4276e-03_jprb,6.2093e-03_jprb,4.8460e-01_jprb/)  
kao( :, 1,12, 2) = (/&
 & 7.4344e-04_jprb,5.1893e-03_jprb,5.7960e-03_jprb,5.5712e-03_jprb,5.0774e-03_jprb,4.4320e-03_jprb,&
 & 3.6146e-03_jprb,2.7192e-03_jprb,4.9987e-01_jprb/)  
kao( :, 2,12, 2) = (/&
 & 6.9630e-04_jprb,5.2389e-03_jprb,5.7776e-03_jprb,5.5769e-03_jprb,5.1607e-03_jprb,4.5730e-03_jprb,&
 & 3.8872e-03_jprb,3.1759e-03_jprb,4.7411e-01_jprb/)  
kao( :, 3,12, 2) = (/&
 & 6.5505e-04_jprb,5.2495e-03_jprb,5.7335e-03_jprb,5.6051e-03_jprb,5.2555e-03_jprb,4.7752e-03_jprb,&
 & 4.2687e-03_jprb,3.7439e-03_jprb,4.5176e-01_jprb/)  
kao( :, 4,12, 2) = (/&
 & 6.1851e-04_jprb,5.2199e-03_jprb,5.6893e-03_jprb,5.6379e-03_jprb,5.3780e-03_jprb,5.0596e-03_jprb,&
 & 4.7451e-03_jprb,4.4010e-03_jprb,4.3213e-01_jprb/)  
kao( :, 5,12, 2) = (/&
 & 5.8564e-04_jprb,5.1584e-03_jprb,5.6408e-03_jprb,5.6781e-03_jprb,5.5493e-03_jprb,5.4174e-03_jprb,&
 & 5.2919e-03_jprb,5.1102e-03_jprb,4.1474e-01_jprb/)  
kao( :, 1,13, 2) = (/&
 & 6.1162e-04_jprb,4.2978e-03_jprb,4.7775e-03_jprb,4.5861e-03_jprb,4.1806e-03_jprb,3.6483e-03_jprb,&
 & 2.9761e-03_jprb,2.2409e-03_jprb,4.4173e-01_jprb/)  
kao( :, 2,13, 2) = (/&
 & 5.7264e-04_jprb,4.3335e-03_jprb,4.7546e-03_jprb,4.5895e-03_jprb,4.2458e-03_jprb,3.7618e-03_jprb,&
 & 3.1994e-03_jprb,2.6153e-03_jprb,4.1858e-01_jprb/)  
kao( :, 3,13, 2) = (/&
 & 5.3845e-04_jprb,4.3324e-03_jprb,4.7152e-03_jprb,4.6098e-03_jprb,4.3213e-03_jprb,3.9280e-03_jprb,&
 & 3.5124e-03_jprb,3.0807e-03_jprb,3.9852e-01_jprb/)  
kao( :, 4,13, 2) = (/&
 & 5.0800e-04_jprb,4.3007e-03_jprb,4.6739e-03_jprb,4.6354e-03_jprb,4.4237e-03_jprb,4.1636e-03_jprb,&
 & 3.9041e-03_jprb,3.6190e-03_jprb,3.8103e-01_jprb/)  
kao( :, 5,13, 2) = (/&
 & 4.8061e-04_jprb,4.2432e-03_jprb,4.6321e-03_jprb,4.6674e-03_jprb,4.5673e-03_jprb,4.4592e-03_jprb,&
 & 4.3539e-03_jprb,4.2010e-03_jprb,3.6549e-01_jprb/)  
kao( :, 1, 1, 3) = (/&
 & 1.1504e-02_jprb,5.1115e-02_jprb,6.3490e-02_jprb,7.5739e-02_jprb,8.9129e-02_jprb,1.0261e-01_jprb,&
 & 1.1510e-01_jprb,1.2497e-01_jprb,4.5470e+00_jprb/)  
kao( :, 2, 1, 3) = (/&
 & 1.1411e-02_jprb,5.0441e-02_jprb,6.4398e-02_jprb,7.8958e-02_jprb,9.4436e-02_jprb,1.0965e-01_jprb,&
 & 1.2371e-01_jprb,1.3505e-01_jprb,4.5111e+00_jprb/)  
kao( :, 3, 1, 3) = (/&
 & 1.1360e-02_jprb,4.9859e-02_jprb,6.5352e-02_jprb,8.1890e-02_jprb,9.8960e-02_jprb,1.1556e-01_jprb,&
 & 1.3095e-01_jprb,1.4357e-01_jprb,4.4964e+00_jprb/)  
kao( :, 4, 1, 3) = (/&
 & 1.1361e-02_jprb,4.9396e-02_jprb,6.6358e-02_jprb,8.4565e-02_jprb,1.0289e-01_jprb,1.2064e-01_jprb,&
 & 1.3719e-01_jprb,1.5089e-01_jprb,4.4952e+00_jprb/)  
kao( :, 5, 1, 3) = (/&
 & 1.1398e-02_jprb,4.9071e-02_jprb,6.7320e-02_jprb,8.6942e-02_jprb,1.0642e-01_jprb,1.2520e-01_jprb,&
 & 1.4278e-01_jprb,1.5748e-01_jprb,4.5069e+00_jprb/)  
kao( :, 1, 2, 3) = (/&
 & 9.0800e-03_jprb,4.3518e-02_jprb,5.4317e-02_jprb,6.5007e-02_jprb,7.6680e-02_jprb,8.8428e-02_jprb,&
 & 9.9245e-02_jprb,1.0777e-01_jprb,3.7305e+00_jprb/)  
kao( :, 2, 2, 3) = (/&
 & 8.9700e-03_jprb,4.2947e-02_jprb,5.5146e-02_jprb,6.7953e-02_jprb,8.1575e-02_jprb,9.4893e-02_jprb,&
 & 1.0724e-01_jprb,1.1720e-01_jprb,3.6786e+00_jprb/)  
kao( :, 3, 2, 3) = (/&
 & 8.8659e-03_jprb,4.2433e-02_jprb,5.6085e-02_jprb,7.0736e-02_jprb,8.5859e-02_jprb,1.0050e-01_jprb,&
 & 1.1405e-01_jprb,1.2513e-01_jprb,3.6433e+00_jprb/)  
kao( :, 4, 2, 3) = (/&
 & 8.7765e-03_jprb,4.1995e-02_jprb,5.7083e-02_jprb,7.3307e-02_jprb,8.9633e-02_jprb,1.0538e-01_jprb,&
 & 1.1996e-01_jprb,1.3207e-01_jprb,3.6200e+00_jprb/)  
kao( :, 5, 2, 3) = (/&
 & 8.7192e-03_jprb,4.1672e-02_jprb,5.8019e-02_jprb,7.5546e-02_jprb,9.2932e-02_jprb,1.0966e-01_jprb,&
 & 1.2527e-01_jprb,1.3822e-01_jprb,3.6042e+00_jprb/)  
kao( :, 1, 3, 3) = (/&
 & 6.9828e-03_jprb,3.6975e-02_jprb,4.6012e-02_jprb,5.4717e-02_jprb,6.4326e-02_jprb,7.4011e-02_jprb,&
 & 8.2981e-02_jprb,8.9968e-02_jprb,3.0198e+00_jprb/)  
kao( :, 2, 3, 3) = (/&
 & 6.8270e-03_jprb,3.6472e-02_jprb,4.6704e-02_jprb,5.7392e-02_jprb,6.8826e-02_jprb,8.0074e-02_jprb,&
 & 9.0443e-02_jprb,9.8762e-02_jprb,2.9461e+00_jprb/)  
kao( :, 3, 3, 3) = (/&
 & 6.7044e-03_jprb,3.6003e-02_jprb,4.7551e-02_jprb,5.9975e-02_jprb,7.2865e-02_jprb,8.5354e-02_jprb,&
 & 9.6922e-02_jprb,1.0635e-01_jprb,2.8886e+00_jprb/)  
kao( :, 4, 3, 3) = (/&
 & 6.5993e-03_jprb,3.5562e-02_jprb,4.8474e-02_jprb,6.2398e-02_jprb,7.6490e-02_jprb,9.0037e-02_jprb,&
 & 1.0257e-01_jprb,1.1285e-01_jprb,2.8436e+00_jprb/)  
kao( :, 5, 3, 3) = (/&
 & 6.5059e-03_jprb,3.5210e-02_jprb,4.9353e-02_jprb,6.4534e-02_jprb,7.9605e-02_jprb,9.4094e-02_jprb,&
 & 1.0752e-01_jprb,1.1864e-01_jprb,2.8111e+00_jprb/)  
kao( :, 1, 4, 3) = (/&
 & 5.5908e-03_jprb,3.1365e-02_jprb,3.8737e-02_jprb,4.5544e-02_jprb,5.3149e-02_jprb,6.0919e-02_jprb,&
 & 6.8125e-02_jprb,7.3670e-02_jprb,2.5046e+00_jprb/)  
kao( :, 2, 4, 3) = (/&
 & 5.3957e-03_jprb,3.0920e-02_jprb,3.9328e-02_jprb,4.7957e-02_jprb,5.7284e-02_jprb,6.6485e-02_jprb,&
 & 7.5002e-02_jprb,8.1748e-02_jprb,2.4277e+00_jprb/)  
kao( :, 3, 4, 3) = (/&
 & 5.2334e-03_jprb,3.0500e-02_jprb,4.0047e-02_jprb,5.0287e-02_jprb,6.0995e-02_jprb,7.1412e-02_jprb,&
 & 8.1019e-02_jprb,8.8826e-02_jprb,2.3616e+00_jprb/)  
kao( :, 4, 4, 3) = (/&
 & 5.0990e-03_jprb,3.0103e-02_jprb,4.0857e-02_jprb,5.2515e-02_jprb,6.4366e-02_jprb,7.5769e-02_jprb,&
 & 8.6313e-02_jprb,9.4909e-02_jprb,2.3071e+00_jprb/)  
kao( :, 5, 4, 3) = (/&
 & 4.9843e-03_jprb,2.9769e-02_jprb,4.1653e-02_jprb,5.4480e-02_jprb,6.7248e-02_jprb,7.9493e-02_jprb,&
 & 9.0850e-02_jprb,1.0015e-01_jprb,2.2622e+00_jprb/)  
kao( :, 1, 5, 3) = (/&
 & 4.6371e-03_jprb,2.6536e-02_jprb,3.2443e-02_jprb,3.7642e-02_jprb,4.3487e-02_jprb,4.9620e-02_jprb,&
 & 5.5321e-02_jprb,5.9691e-02_jprb,2.1169e+00_jprb/)  
kao( :, 2, 5, 3) = (/&
 & 4.4354e-03_jprb,2.6146e-02_jprb,3.2937e-02_jprb,3.9753e-02_jprb,4.7206e-02_jprb,5.4649e-02_jprb,&
 & 6.1517e-02_jprb,6.6941e-02_jprb,2.0403e+00_jprb/)  
kao( :, 3, 5, 3) = (/&
 & 4.2621e-03_jprb,2.5770e-02_jprb,3.3534e-02_jprb,4.1840e-02_jprb,5.0602e-02_jprb,5.9123e-02_jprb,&
 & 6.7019e-02_jprb,7.3387e-02_jprb,1.9782e+00_jprb/)  
kao( :, 4, 5, 3) = (/&
 & 4.1136e-03_jprb,2.5421e-02_jprb,3.4232e-02_jprb,4.3837e-02_jprb,5.3645e-02_jprb,6.3092e-02_jprb,&
 & 7.1794e-02_jprb,7.8876e-02_jprb,1.9264e+00_jprb/)  
kao( :, 5, 5, 3) = (/&
 & 3.9859e-03_jprb,2.5135e-02_jprb,3.4954e-02_jprb,4.5597e-02_jprb,5.6243e-02_jprb,6.6466e-02_jprb,&
 & 7.5915e-02_jprb,8.3643e-02_jprb,1.8824e+00_jprb/)  
kao( :, 1, 6, 3) = (/&
 & 3.9304e-03_jprb,2.2403e-02_jprb,2.7063e-02_jprb,3.0926e-02_jprb,3.5302e-02_jprb,4.0017e-02_jprb,&
 & 4.4453e-02_jprb,4.7785e-02_jprb,1.8116e+00_jprb/)  
kao( :, 2, 6, 3) = (/&
 & 3.7327e-03_jprb,2.2045e-02_jprb,2.7456e-02_jprb,3.2698e-02_jprb,3.8563e-02_jprb,4.4474e-02_jprb,&
 & 4.9934e-02_jprb,5.4194e-02_jprb,1.7392e+00_jprb/)  
kao( :, 3, 6, 3) = (/&
 & 3.5637e-03_jprb,2.1717e-02_jprb,2.7946e-02_jprb,3.4540e-02_jprb,4.1589e-02_jprb,4.8508e-02_jprb,&
 & 5.4887e-02_jprb,6.0005e-02_jprb,1.6805e+00_jprb/)  
kao( :, 4, 6, 3) = (/&
 & 3.4181e-03_jprb,2.1413e-02_jprb,2.8528e-02_jprb,3.6294e-02_jprb,4.4304e-02_jprb,5.2019e-02_jprb,&
 & 5.9160e-02_jprb,6.4927e-02_jprb,1.6325e+00_jprb/)  
kao( :, 5, 6, 3) = (/&
 & 3.2918e-03_jprb,2.1166e-02_jprb,2.9161e-02_jprb,3.7872e-02_jprb,4.6642e-02_jprb,5.5066e-02_jprb,&
 & 6.2852e-02_jprb,6.9193e-02_jprb,1.5934e+00_jprb/)  
kao( :, 1, 7, 3) = (/&
 & 3.3611e-03_jprb,1.8890e-02_jprb,2.2580e-02_jprb,2.5423e-02_jprb,2.8547e-02_jprb,3.2022e-02_jprb,&
 & 3.5350e-02_jprb,3.7816e-02_jprb,1.5699e+00_jprb/)  
kao( :, 2, 7, 3) = (/&
 & 3.1761e-03_jprb,1.8547e-02_jprb,2.2859e-02_jprb,2.6861e-02_jprb,3.1328e-02_jprb,3.5924e-02_jprb,&
 & 4.0179e-02_jprb,4.3442e-02_jprb,1.5027e+00_jprb/)  
kao( :, 3, 7, 3) = (/&
 & 3.0174e-03_jprb,1.8258e-02_jprb,2.3246e-02_jprb,2.8428e-02_jprb,3.4019e-02_jprb,3.9530e-02_jprb,&
 & 4.4619e-02_jprb,4.8631e-02_jprb,1.4482e+00_jprb/)  
kao( :, 4, 7, 3) = (/&
 & 2.8795e-03_jprb,1.7993e-02_jprb,2.3728e-02_jprb,2.9950e-02_jprb,3.6407e-02_jprb,4.2653e-02_jprb,&
 & 4.8406e-02_jprb,5.3042e-02_jprb,1.4039e+00_jprb/)  
kao( :, 5, 7, 3) = (/&
 & 2.7589e-03_jprb,1.7786e-02_jprb,2.4255e-02_jprb,3.1342e-02_jprb,3.8508e-02_jprb,4.5385e-02_jprb,&
 & 5.1742e-02_jprb,5.6887e-02_jprb,1.3676e+00_jprb/)  
kao( :, 1, 8, 3) = (/&
 & 2.8871e-03_jprb,1.5916e-02_jprb,1.8850e-02_jprb,2.0853e-02_jprb,2.2958e-02_jprb,2.5335e-02_jprb,&
 & 2.7709e-02_jprb,2.9422e-02_jprb,1.3854e+00_jprb/)  
kao( :, 2, 8, 3) = (/&
 & 2.7155e-03_jprb,1.5597e-02_jprb,1.9055e-02_jprb,2.1994e-02_jprb,2.5264e-02_jprb,2.8724e-02_jprb,&
 & 3.1943e-02_jprb,3.4360e-02_jprb,1.3215e+00_jprb/)  
kao( :, 3, 8, 3) = (/&
 & 2.5680e-03_jprb,1.5338e-02_jprb,1.9338e-02_jprb,2.3296e-02_jprb,2.7614e-02_jprb,3.1925e-02_jprb,&
 & 3.5879e-02_jprb,3.8941e-02_jprb,1.2707e+00_jprb/)  
kao( :, 4, 8, 3) = (/&
 & 2.4392e-03_jprb,1.5108e-02_jprb,1.9717e-02_jprb,2.4602e-02_jprb,2.9735e-02_jprb,3.4708e-02_jprb,&
 & 3.9299e-02_jprb,4.2946e-02_jprb,1.2299e+00_jprb/)  
kao( :, 5, 8, 3) = (/&
 & 2.3263e-03_jprb,1.4926e-02_jprb,2.0145e-02_jprb,2.5818e-02_jprb,3.1599e-02_jprb,3.7151e-02_jprb,&
 & 4.2259e-02_jprb,4.6364e-02_jprb,1.1947e+00_jprb/)  
kao( :, 1, 9, 3) = (/&
 & 2.4934e-03_jprb,1.3429e-02_jprb,1.5676e-02_jprb,1.6996e-02_jprb,1.8299e-02_jprb,1.9797e-02_jprb,&
 & 2.1368e-02_jprb,2.2488e-02_jprb,1.2194e+00_jprb/)  
kao( :, 2, 9, 3) = (/&
 & 2.3370e-03_jprb,1.3137e-02_jprb,1.5812e-02_jprb,1.7884e-02_jprb,2.0163e-02_jprb,2.2642e-02_jprb,&
 & 2.5001e-02_jprb,2.6734e-02_jprb,1.1601e+00_jprb/)  
kao( :, 3, 9, 3) = (/&
 & 2.2009e-03_jprb,1.2890e-02_jprb,1.6023e-02_jprb,1.8937e-02_jprb,2.2155e-02_jprb,2.5427e-02_jprb,&
 & 2.8446e-02_jprb,3.0735e-02_jprb,1.1135e+00_jprb/)  
kao( :, 4, 9, 3) = (/&
 & 2.0815e-03_jprb,1.2690e-02_jprb,1.6303e-02_jprb,2.0037e-02_jprb,2.4017e-02_jprb,2.7921e-02_jprb,&
 & 3.1498e-02_jprb,3.4306e-02_jprb,1.0751e+00_jprb/)  
kao( :, 5, 9, 3) = (/&
 & 1.9758e-03_jprb,1.2522e-02_jprb,1.6643e-02_jprb,2.1089e-02_jprb,2.5672e-02_jprb,3.0080e-02_jprb,&
 & 3.4128e-02_jprb,3.7357e-02_jprb,1.0412e+00_jprb/)  
kao( :, 1,10, 3) = (/&
 & 2.1444e-03_jprb,1.1292e-02_jprb,1.2992e-02_jprb,1.3863e-02_jprb,1.4632e-02_jprb,1.5527e-02_jprb,&
 & 1.6522e-02_jprb,1.7216e-02_jprb,1.0697e+00_jprb/)  
kao( :, 2,10, 3) = (/&
 & 2.0062e-03_jprb,1.1025e-02_jprb,1.3086e-02_jprb,1.4548e-02_jprb,1.6122e-02_jprb,1.7867e-02_jprb,&
 & 1.9575e-02_jprb,2.0804e-02_jprb,1.0168e+00_jprb/)  
kao( :, 3,10, 3) = (/&
 & 1.8858e-03_jprb,1.0796e-02_jprb,1.3240e-02_jprb,1.5386e-02_jprb,1.7762e-02_jprb,2.0237e-02_jprb,&
 & 2.2522e-02_jprb,2.4230e-02_jprb,9.7508e-01_jprb/)  
kao( :, 4,10, 3) = (/&
 & 1.7806e-03_jprb,1.0614e-02_jprb,1.3451e-02_jprb,1.6297e-02_jprb,1.9372e-02_jprb,2.2410e-02_jprb,&
 & 2.5204e-02_jprb,2.7358e-02_jprb,9.3955e-01_jprb/)  
kao( :, 5,10, 3) = (/&
 & 1.6877e-03_jprb,1.0465e-02_jprb,1.3712e-02_jprb,1.7180e-02_jprb,2.0798e-02_jprb,2.4286e-02_jprb,&
 & 2.7488e-02_jprb,3.0016e-02_jprb,9.0793e-01_jprb/)  
kao( :, 1,11, 3) = (/&
 & 1.7833e-03_jprb,9.3555e-03_jprb,1.0771e-02_jprb,1.1508e-02_jprb,1.2189e-02_jprb,1.2975e-02_jprb,&
 & 1.3836e-02_jprb,1.4432e-02_jprb,9.1283e-01_jprb/)  
kao( :, 2,11, 3) = (/&
 & 1.6687e-03_jprb,9.1314e-03_jprb,1.0850e-02_jprb,1.2098e-02_jprb,1.3448e-02_jprb,1.4933e-02_jprb,&
 & 1.6373e-02_jprb,1.7407e-02_jprb,8.7061e-01_jprb/)  
kao( :, 3,11, 3) = (/&
 & 1.5693e-03_jprb,8.9406e-03_jprb,1.0990e-02_jprb,1.2807e-02_jprb,1.4816e-02_jprb,1.6890e-02_jprb,&
 & 1.8802e-02_jprb,2.0227e-02_jprb,8.3514e-01_jprb/)  
kao( :, 4,11, 3) = (/&
 & 1.4823e-03_jprb,8.7931e-03_jprb,1.1163e-02_jprb,1.3552e-02_jprb,1.6124e-02_jprb,1.8657e-02_jprb,&
 & 2.0985e-02_jprb,2.2777e-02_jprb,8.0415e-01_jprb/)  
kao( :, 5,11, 3) = (/&
 & 1.4048e-03_jprb,8.6627e-03_jprb,1.1377e-02_jprb,1.4262e-02_jprb,1.7270e-02_jprb,2.0165e-02_jprb,&
 & 2.2814e-02_jprb,2.4901e-02_jprb,7.7610e-01_jprb/)  
kao( :, 1,12, 3) = (/&
 & 1.4795e-03_jprb,7.7320e-03_jprb,8.9123e-03_jprb,9.5371e-03_jprb,1.0129e-02_jprb,1.0809e-02_jprb,&
 & 1.1546e-02_jprb,1.2053e-02_jprb,7.8854e-01_jprb/)  
kao( :, 2,12, 3) = (/&
 & 1.3850e-03_jprb,7.5464e-03_jprb,8.9834e-03_jprb,1.0043e-02_jprb,1.1188e-02_jprb,1.2441e-02_jprb,&
 & 1.3647e-02_jprb,1.4511e-02_jprb,7.5243e-01_jprb/)  

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


SUBROUTINE part3

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


kao( :, 3,12, 3) = (/&
 & 1.3027e-03_jprb,7.3902e-03_jprb,9.1016e-03_jprb,1.0632e-02_jprb,1.2313e-02_jprb,1.4042e-02_jprb,&
 & 1.5632e-02_jprb,1.6816e-02_jprb,7.2138e-01_jprb/)  
kao( :, 4,12, 3) = (/&
 & 1.2303e-03_jprb,7.2649e-03_jprb,9.2431e-03_jprb,1.1235e-02_jprb,1.3368e-02_jprb,1.5466e-02_jprb,&
 & 1.7392e-02_jprb,1.8872e-02_jprb,6.9377e-01_jprb/)  
kao( :, 5,12, 3) = (/&
 & 1.1660e-03_jprb,7.1513e-03_jprb,9.4159e-03_jprb,1.1801e-02_jprb,1.4281e-02_jprb,1.6671e-02_jprb,&
 & 1.8852e-02_jprb,2.0566e-02_jprb,6.6914e-01_jprb/)  
kao( :, 1,13, 3) = (/&
 & 1.2249e-03_jprb,6.3782e-03_jprb,7.3622e-03_jprb,7.8943e-03_jprb,8.4021e-03_jprb,8.9820e-03_jprb,&
 & 9.6036e-03_jprb,1.0029e-02_jprb,7.0365e-01_jprb/)  
kao( :, 2,13, 3) = (/&
 & 1.1466e-03_jprb,6.2255e-03_jprb,7.4265e-03_jprb,8.3184e-03_jprb,9.2818e-03_jprb,1.0328e-02_jprb,&
 & 1.1327e-02_jprb,1.2042e-02_jprb,6.7076e-01_jprb/)  
kao( :, 3,13, 3) = (/&
 & 1.0784e-03_jprb,6.0974e-03_jprb,7.5218e-03_jprb,8.8021e-03_jprb,1.0201e-02_jprb,1.1630e-02_jprb,&
 & 1.2945e-02_jprb,1.3920e-02_jprb,6.4220e-01_jprb/)  
kao( :, 4,13, 3) = (/&
 & 1.0185e-03_jprb,5.9888e-03_jprb,7.6372e-03_jprb,9.2865e-03_jprb,1.1046e-02_jprb,1.2772e-02_jprb,&
 & 1.4357e-02_jprb,1.5571e-02_jprb,6.1693e-01_jprb/)  
kao( :, 5,13, 3) = (/&
 & 9.6529e-04_jprb,5.8902e-03_jprb,7.7765e-03_jprb,9.7442e-03_jprb,1.1781e-02_jprb,1.3744e-02_jprb,&
 & 1.5534e-02_jprb,1.6937e-02_jprb,5.9454e-01_jprb/)  
kao( :, 1, 1, 4) = (/&
 & 1.8021e-02_jprb,6.5790e-02_jprb,9.7338e-02_jprb,1.3126e-01_jprb,1.6473e-01_jprb,1.9719e-01_jprb,&
 & 2.2788e-01_jprb,2.5486e-01_jprb,6.7734e+00_jprb/)  
kao( :, 2, 1, 4) = (/&
 & 1.7655e-02_jprb,6.4900e-02_jprb,9.8783e-02_jprb,1.3458e-01_jprb,1.6983e-01_jprb,2.0389e-01_jprb,&
 & 2.3625e-01_jprb,2.6464e-01_jprb,6.6229e+00_jprb/)  
kao( :, 3, 1, 4) = (/&
 & 1.7413e-02_jprb,6.4418e-02_jprb,1.0054e-01_jprb,1.3796e-01_jprb,1.7471e-01_jprb,2.1025e-01_jprb,&
 & 2.4393e-01_jprb,2.7353e-01_jprb,6.4891e+00_jprb/)  
kao( :, 4, 1, 4) = (/&
 & 1.7262e-02_jprb,6.4165e-02_jprb,1.0227e-01_jprb,1.4108e-01_jprb,1.7917e-01_jprb,2.1605e-01_jprb,&
 & 2.5091e-01_jprb,2.8164e-01_jprb,6.3763e+00_jprb/)  
kao( :, 5, 1, 4) = (/&
 & 1.7196e-02_jprb,6.4095e-02_jprb,1.0392e-01_jprb,1.4402e-01_jprb,1.8328e-01_jprb,2.2127e-01_jprb,&
 & 2.5722e-01_jprb,2.8879e-01_jprb,6.2911e+00_jprb/)  
kao( :, 1, 2, 4) = (/&
 & 1.4529e-02_jprb,5.6872e-02_jprb,8.5086e-02_jprb,1.1534e-01_jprb,1.4512e-01_jprb,1.7394e-01_jprb,&
 & 2.0123e-01_jprb,2.2499e-01_jprb,5.6977e+00_jprb/)  
kao( :, 2, 2, 4) = (/&
 & 1.4123e-02_jprb,5.6310e-02_jprb,8.6845e-02_jprb,1.1891e-01_jprb,1.5031e-01_jprb,1.8072e-01_jprb,&
 & 2.0938e-01_jprb,2.3448e-01_jprb,5.5431e+00_jprb/)  
kao( :, 3, 2, 4) = (/&
 & 1.3817e-02_jprb,5.6056e-02_jprb,8.8719e-02_jprb,1.2233e-01_jprb,1.5523e-01_jprb,1.8697e-01_jprb,&
 & 2.1702e-01_jprb,2.4322e-01_jprb,5.4063e+00_jprb/)  
kao( :, 4, 2, 4) = (/&
 & 1.3599e-02_jprb,5.5957e-02_jprb,9.0467e-02_jprb,1.2549e-01_jprb,1.5975e-01_jprb,1.9279e-01_jprb,&
 & 2.2406e-01_jprb,2.5131e-01_jprb,5.2860e+00_jprb/)  
kao( :, 5, 2, 4) = (/&
 & 1.3460e-02_jprb,5.5961e-02_jprb,9.2180e-02_jprb,1.2851e-01_jprb,1.6399e-01_jprb,1.9829e-01_jprb,&
 & 2.3058e-01_jprb,2.5880e-01_jprb,5.1861e+00_jprb/)  
kao( :, 1, 3, 4) = (/&
 & 1.1705e-02_jprb,4.8966e-02_jprb,7.3479e-02_jprb,9.9794e-02_jprb,1.2575e-01_jprb,1.5078e-01_jprb,&
 & 1.7441e-01_jprb,1.9480e-01_jprb,4.7593e+00_jprb/)  
kao( :, 2, 3, 4) = (/&
 & 1.1254e-02_jprb,4.8604e-02_jprb,7.5346e-02_jprb,1.0340e-01_jprb,1.3083e-01_jprb,1.5727e-01_jprb,&
 & 1.8221e-01_jprb,2.0377e-01_jprb,4.6048e+00_jprb/)  
kao( :, 3, 3, 4) = (/&
 & 1.0873e-02_jprb,4.8463e-02_jprb,7.7240e-02_jprb,1.0681e-01_jprb,1.3563e-01_jprb,1.6344e-01_jprb,&
 & 1.8954e-01_jprb,2.1219e-01_jprb,4.4612e+00_jprb/)  
kao( :, 4, 3, 4) = (/&
 & 1.0555e-02_jprb,4.8429e-02_jprb,7.9010e-02_jprb,1.0996e-01_jprb,1.4012e-01_jprb,1.6913e-01_jprb,&
 & 1.9654e-01_jprb,2.2020e-01_jprb,4.3302e+00_jprb/)  
kao( :, 5, 3, 4) = (/&
 & 1.0298e-02_jprb,4.8470e-02_jprb,8.0657e-02_jprb,1.1290e-01_jprb,1.4434e-01_jprb,1.7459e-01_jprb,&
 & 2.0310e-01_jprb,2.2776e-01_jprb,4.2150e+00_jprb/)  
kao( :, 1, 4, 4) = (/&
 & 9.6427e-03_jprb,4.2071e-02_jprb,6.2842e-02_jprb,8.5269e-02_jprb,1.0739e-01_jprb,1.2873e-01_jprb,&
 & 1.4874e-01_jprb,1.6592e-01_jprb,4.0400e+00_jprb/)  
kao( :, 2, 4, 4) = (/&
 & 9.2011e-03_jprb,4.1815e-02_jprb,6.4680e-02_jprb,8.8757e-02_jprb,1.1230e-01_jprb,1.3495e-01_jprb,&
 & 1.5622e-01_jprb,1.7447e-01_jprb,3.8793e+00_jprb/)  
kao( :, 3, 4, 4) = (/&
 & 8.8205e-03_jprb,4.1737e-02_jprb,6.6556e-02_jprb,9.2068e-02_jprb,1.1693e-01_jprb,1.4084e-01_jprb,&
 & 1.6327e-01_jprb,1.8245e-01_jprb,3.7400e+00_jprb/)  
kao( :, 4, 4, 4) = (/&
 & 8.4836e-03_jprb,4.1724e-02_jprb,6.8311e-02_jprb,9.5165e-02_jprb,1.2127e-01_jprb,1.4641e-01_jprb,&
 & 1.6997e-01_jprb,1.9023e-01_jprb,3.6160e+00_jprb/)  
kao( :, 5, 4, 4) = (/&
 & 8.1913e-03_jprb,4.1779e-02_jprb,6.9919e-02_jprb,9.8052e-02_jprb,1.2544e-01_jprb,1.5176e-01_jprb,&
 & 1.7649e-01_jprb,1.9765e-01_jprb,3.5010e+00_jprb/)  
kao( :, 1, 5, 4) = (/&
 & 8.1345e-03_jprb,3.6015e-02_jprb,5.3335e-02_jprb,7.2138e-02_jprb,9.0702e-02_jprb,1.0859e-01_jprb,&
 & 1.2537e-01_jprb,1.3961e-01_jprb,3.4725e+00_jprb/)  
kao( :, 2, 5, 4) = (/&
 & 7.7094e-03_jprb,3.5776e-02_jprb,5.4998e-02_jprb,7.5337e-02_jprb,9.5240e-02_jprb,1.1439e-01_jprb,&
 & 1.3227e-01_jprb,1.4749e-01_jprb,3.3178e+00_jprb/)  
kao( :, 3, 5, 4) = (/&
 & 7.3411e-03_jprb,3.5699e-02_jprb,5.6747e-02_jprb,7.8425e-02_jprb,9.9566e-02_jprb,1.1985e-01_jprb,&
 & 1.3882e-01_jprb,1.5490e-01_jprb,3.1804e+00_jprb/)  
kao( :, 4, 5, 4) = (/&
 & 7.0201e-03_jprb,3.5715e-02_jprb,5.8432e-02_jprb,8.1402e-02_jprb,1.0370e-01_jprb,1.2511e-01_jprb,&
 & 1.4516e-01_jprb,1.6215e-01_jprb,3.0592e+00_jprb/)  
kao( :, 5, 5, 4) = (/&
 & 6.7383e-03_jprb,3.5791e-02_jprb,5.9960e-02_jprb,8.4146e-02_jprb,1.0763e-01_jprb,1.3019e-01_jprb,&
 & 1.5126e-01_jprb,1.6919e-01_jprb,2.9545e+00_jprb/)  
kao( :, 1, 6, 4) = (/&
 & 6.9574e-03_jprb,3.0705e-02_jprb,4.4873e-02_jprb,6.0368e-02_jprb,7.5716e-02_jprb,9.0457e-02_jprb,&
 & 1.0422e-01_jprb,1.1586e-01_jprb,3.0030e+00_jprb/)  
kao( :, 2, 6, 4) = (/&
 & 6.5599e-03_jprb,3.0473e-02_jprb,4.6327e-02_jprb,6.3240e-02_jprb,7.9791e-02_jprb,9.5693e-02_jprb,&
 & 1.1056e-01_jprb,1.2311e-01_jprb,2.8591e+00_jprb/)  
kao( :, 3, 6, 4) = (/&
 & 6.2154e-03_jprb,3.0355e-02_jprb,4.7875e-02_jprb,6.6021e-02_jprb,8.3704e-02_jprb,1.0067e-01_jprb,&
 & 1.1647e-01_jprb,1.2979e-01_jprb,2.7316e+00_jprb/)  
kao( :, 4, 6, 4) = (/&
 & 5.9146e-03_jprb,3.0358e-02_jprb,4.9433e-02_jprb,6.8766e-02_jprb,8.7543e-02_jprb,1.0553e-01_jprb,&
 & 1.2232e-01_jprb,1.3650e-01_jprb,2.6198e+00_jprb/)  
kao( :, 5, 6, 4) = (/&
 & 5.6484e-03_jprb,3.0432e-02_jprb,5.0868e-02_jprb,7.1327e-02_jprb,9.1169e-02_jprb,1.1020e-01_jprb,&
 & 1.2797e-01_jprb,1.4294e-01_jprb,2.5219e+00_jprb/)  
kao( :, 1, 7, 4) = (/&
 & 5.9858e-03_jprb,2.6066e-02_jprb,3.7491e-02_jprb,5.0091e-02_jprb,6.2632e-02_jprb,7.4695e-02_jprb,&
 & 8.5899e-02_jprb,9.5307e-02_jprb,2.6265e+00_jprb/)  
kao( :, 2, 7, 4) = (/&
 & 5.6201e-03_jprb,2.5818e-02_jprb,3.8713e-02_jprb,5.2603e-02_jprb,6.6261e-02_jprb,7.9344e-02_jprb,&
 & 9.1528e-02_jprb,1.0179e-01_jprb,2.4915e+00_jprb/)  
kao( :, 3, 7, 4) = (/&
 & 5.3028e-03_jprb,2.5679e-02_jprb,4.0067e-02_jprb,5.5077e-02_jprb,6.9715e-02_jprb,8.3744e-02_jprb,&
 & 9.6820e-02_jprb,1.0780e-01_jprb,2.3737e+00_jprb/)  
kao( :, 4, 7, 4) = (/&
 & 5.0250e-03_jprb,2.5664e-02_jprb,4.1469e-02_jprb,5.7563e-02_jprb,7.3190e-02_jprb,8.8174e-02_jprb,&
 & 1.0210e-01_jprb,1.1380e-01_jprb,2.2719e+00_jprb/)  
kao( :, 5, 7, 4) = (/&
 & 4.7808e-03_jprb,2.5724e-02_jprb,4.2789e-02_jprb,5.9902e-02_jprb,7.6504e-02_jprb,9.2382e-02_jprb,&
 & 1.0715e-01_jprb,1.1955e-01_jprb,2.1838e+00_jprb/)  
kao( :, 1, 8, 4) = (/&
 & 5.1596e-03_jprb,2.2052e-02_jprb,3.1199e-02_jprb,4.1353e-02_jprb,5.1554e-02_jprb,6.1370e-02_jprb,&
 & 7.0499e-02_jprb,7.8103e-02_jprb,2.3369e+00_jprb/)  
kao( :, 2, 8, 4) = (/&
 & 4.8272e-03_jprb,2.1774e-02_jprb,3.2180e-02_jprb,4.3545e-02_jprb,5.4719e-02_jprb,6.5446e-02_jprb,&
 & 7.5433e-02_jprb,8.3810e-02_jprb,2.2096e+00_jprb/)  
kao( :, 3, 8, 4) = (/&
 & 4.5379e-03_jprb,2.1626e-02_jprb,3.3329e-02_jprb,4.5683e-02_jprb,5.7755e-02_jprb,6.9313e-02_jprb,&
 & 8.0057e-02_jprb,8.9096e-02_jprb,2.0999e+00_jprb/)  
kao( :, 4, 8, 4) = (/&
 & 4.2850e-03_jprb,2.1592e-02_jprb,3.4574e-02_jprb,4.7884e-02_jprb,6.0825e-02_jprb,7.3203e-02_jprb,&
 & 8.4719e-02_jprb,9.4365e-02_jprb,2.0061e+00_jprb/)  
kao( :, 5, 8, 4) = (/&
 & 4.0623e-03_jprb,2.1641e-02_jprb,3.5762e-02_jprb,4.9985e-02_jprb,6.3751e-02_jprb,7.6922e-02_jprb,&
 & 8.9154e-02_jprb,9.9364e-02_jprb,1.9265e+00_jprb/)  
kao( :, 1, 9, 4) = (/&
 & 4.4531e-03_jprb,1.8626e-02_jprb,2.5958e-02_jprb,3.4051e-02_jprb,4.2290e-02_jprb,5.0232e-02_jprb,&
 & 5.7580e-02_jprb,6.3645e-02_jprb,2.0688e+00_jprb/)  
kao( :, 2, 9, 4) = (/&
 & 4.1555e-03_jprb,1.8330e-02_jprb,2.6712e-02_jprb,3.5938e-02_jprb,4.5066e-02_jprb,5.3798e-02_jprb,&
 & 6.1907e-02_jprb,6.8669e-02_jprb,1.9511e+00_jprb/)  
kao( :, 3, 9, 4) = (/&
 & 3.8980e-03_jprb,1.8171e-02_jprb,2.7659e-02_jprb,3.7795e-02_jprb,4.7683e-02_jprb,5.7159e-02_jprb,&
 & 6.5983e-02_jprb,7.3362e-02_jprb,1.8504e+00_jprb/)  
kao( :, 4, 9, 4) = (/&
 & 3.6726e-03_jprb,1.8123e-02_jprb,2.8719e-02_jprb,3.9685e-02_jprb,5.0340e-02_jprb,6.0531e-02_jprb,&
 & 6.9978e-02_jprb,7.7857e-02_jprb,1.7654e+00_jprb/)  
kao( :, 5, 9, 4) = (/&
 & 3.4732e-03_jprb,1.8155e-02_jprb,2.9764e-02_jprb,4.1511e-02_jprb,5.2898e-02_jprb,6.3750e-02_jprb,&
 & 7.3823e-02_jprb,8.2208e-02_jprb,1.6947e+00_jprb/)  
kao( :, 1,10, 4) = (/&
 & 3.8264e-03_jprb,1.5718e-02_jprb,2.1595e-02_jprb,2.8016e-02_jprb,3.4614e-02_jprb,4.0975e-02_jprb,&
 & 4.6868e-02_jprb,5.1662e-02_jprb,1.8197e+00_jprb/)  
kao( :, 2,10, 4) = (/&
 & 3.5642e-03_jprb,1.5429e-02_jprb,2.2178e-02_jprb,2.9617e-02_jprb,3.7012e-02_jprb,4.4107e-02_jprb,&
 & 5.0673e-02_jprb,5.6104e-02_jprb,1.7127e+00_jprb/)  
kao( :, 3,10, 4) = (/&
 & 3.3388e-03_jprb,1.5262e-02_jprb,2.2939e-02_jprb,3.1209e-02_jprb,3.9306e-02_jprb,4.7049e-02_jprb,&
 & 5.4217e-02_jprb,6.0186e-02_jprb,1.6230e+00_jprb/)  
kao( :, 4,10, 4) = (/&
 & 3.1419e-03_jprb,1.5205e-02_jprb,2.3835e-02_jprb,3.2828e-02_jprb,4.1571e-02_jprb,4.9911e-02_jprb,&
 & 5.7637e-02_jprb,6.4044e-02_jprb,1.5488e+00_jprb/)  
kao( :, 5,10, 4) = (/&
 & 2.9677e-03_jprb,1.5219e-02_jprb,2.4740e-02_jprb,3.4412e-02_jprb,4.3767e-02_jprb,5.2705e-02_jprb,&
 & 6.0972e-02_jprb,6.7792e-02_jprb,1.4876e+00_jprb/)  
kao( :, 1,11, 4) = (/&
 & 3.1779e-03_jprb,1.3095e-02_jprb,1.8055e-02_jprb,2.3506e-02_jprb,2.9061e-02_jprb,3.4415e-02_jprb,&
 & 3.9369e-02_jprb,4.3393e-02_jprb,1.5476e+00_jprb/)  
kao( :, 2,11, 4) = (/&
 & 2.9632e-03_jprb,1.2861e-02_jprb,1.8568e-02_jprb,2.4842e-02_jprb,3.1070e-02_jprb,3.7036e-02_jprb,&
 & 4.2545e-02_jprb,4.7085e-02_jprb,1.4599e+00_jprb/)  
kao( :, 3,11, 4) = (/&
 & 2.7773e-03_jprb,1.2736e-02_jprb,1.9231e-02_jprb,2.6199e-02_jprb,3.3009e-02_jprb,3.9506e-02_jprb,&
 & 4.5515e-02_jprb,5.0494e-02_jprb,1.3882e+00_jprb/)  
kao( :, 4,11, 4) = (/&
 & 2.6144e-03_jprb,1.2699e-02_jprb,1.9998e-02_jprb,2.7568e-02_jprb,3.4911e-02_jprb,4.1912e-02_jprb,&
 & 4.8384e-02_jprb,5.3719e-02_jprb,1.3291e+00_jprb/)  
kao( :, 5,11, 4) = (/&
 & 2.4704e-03_jprb,1.2732e-02_jprb,2.0751e-02_jprb,2.8878e-02_jprb,3.6736e-02_jprb,4.4233e-02_jprb,&
 & 5.1154e-02_jprb,5.6829e-02_jprb,1.2767e+00_jprb/)  
kao( :, 1,12, 4) = (/&
 & 2.6367e-03_jprb,1.0870e-02_jprb,1.5028e-02_jprb,1.9613e-02_jprb,2.4267e-02_jprb,2.8743e-02_jprb,&
 & 3.2886e-02_jprb,3.6247e-02_jprb,1.3323e+00_jprb/)  
kao( :, 2,12, 4) = (/&
 & 2.4596e-03_jprb,1.0682e-02_jprb,1.5472e-02_jprb,2.0731e-02_jprb,2.5941e-02_jprb,3.0929e-02_jprb,&
 & 3.5529e-02_jprb,3.9309e-02_jprb,1.2608e+00_jprb/)  
kao( :, 3,12, 4) = (/&
 & 2.3058e-03_jprb,1.0585e-02_jprb,1.6043e-02_jprb,2.1873e-02_jprb,2.7564e-02_jprb,3.2990e-02_jprb,&
 & 3.8001e-02_jprb,4.2137e-02_jprb,1.2024e+00_jprb/)  
kao( :, 4,12, 4) = (/&
 & 2.1711e-03_jprb,1.0572e-02_jprb,1.6696e-02_jprb,2.3023e-02_jprb,2.9157e-02_jprb,3.5001e-02_jprb,&
 & 4.0396e-02_jprb,4.4820e-02_jprb,1.1510e+00_jprb/)  
kao( :, 5,12, 4) = (/&
 & 2.0522e-03_jprb,1.0605e-02_jprb,1.7302e-02_jprb,2.4078e-02_jprb,3.0631e-02_jprb,3.6880e-02_jprb,&
 & 4.2638e-02_jprb,4.7351e-02_jprb,1.1041e+00_jprb/)  
kao( :, 1,13, 4) = (/&
 & 2.1839e-03_jprb,8.9998e-03_jprb,1.2472e-02_jprb,1.6303e-02_jprb,2.0181e-02_jprb,2.3909e-02_jprb,&
 & 2.7356e-02_jprb,3.0152e-02_jprb,1.1877e+00_jprb/)  
kao( :, 2,13, 4) = (/&
 & 2.0376e-03_jprb,8.8480e-03_jprb,1.2851e-02_jprb,1.7235e-02_jprb,2.1572e-02_jprb,2.5723e-02_jprb,&
 & 2.9547e-02_jprb,3.2688e-02_jprb,1.1266e+00_jprb/)  
kao( :, 3,13, 4) = (/&
 & 1.9106e-03_jprb,8.7808e-03_jprb,1.3344e-02_jprb,1.8195e-02_jprb,2.2927e-02_jprb,2.7435e-02_jprb,&
 & 3.1599e-02_jprb,3.5023e-02_jprb,1.0740e+00_jprb/)  
kao( :, 4,13, 4) = (/&
 & 1.7994e-03_jprb,8.7806e-03_jprb,1.3884e-02_jprb,1.9140e-02_jprb,2.4232e-02_jprb,2.9085e-02_jprb,&
 & 3.3560e-02_jprb,3.7215e-02_jprb,1.0271e+00_jprb/)  
kao( :, 5,13, 4) = (/&
 & 1.7009e-03_jprb,8.8054e-03_jprb,1.4366e-02_jprb,1.9979e-02_jprb,2.5409e-02_jprb,3.0588e-02_jprb,&
 & 3.5352e-02_jprb,3.9242e-02_jprb,9.8352e-01_jprb/)  
kao( :, 1, 1, 5) = (/&
 & 2.7821e-02_jprb,9.4758e-02_jprb,1.5999e-01_jprb,2.2454e-01_jprb,2.8692e-01_jprb,3.4665e-01_jprb,&
 & 4.0214e-01_jprb,4.4847e-01_jprb,9.2144e+00_jprb/)  
kao( :, 2, 1, 5) = (/&
 & 2.6913e-02_jprb,9.4630e-02_jprb,1.6244e-01_jprb,2.2902e-01_jprb,2.9341e-01_jprb,3.5518e-01_jprb,&
 & 4.1260e-01_jprb,4.6112e-01_jprb,8.9389e+00_jprb/)  
kao( :, 3, 1, 5) = (/&
 & 2.6162e-02_jprb,9.4753e-02_jprb,1.6454e-01_jprb,2.3287e-01_jprb,2.9898e-01_jprb,3.6235e-01_jprb,&
 & 4.2172e-01_jprb,4.7189e-01_jprb,8.6829e+00_jprb/)  
kao( :, 4, 1, 5) = (/&
 & 2.5554e-02_jprb,9.5076e-02_jprb,1.6645e-01_jprb,2.3629e-01_jprb,3.0381e-01_jprb,3.6863e-01_jprb,&
 & 4.2942e-01_jprb,4.8118e-01_jprb,8.4692e+00_jprb/)  
kao( :, 5, 1, 5) = (/&
 & 2.5132e-02_jprb,9.5584e-02_jprb,1.6836e-01_jprb,2.3931e-01_jprb,3.0801e-01_jprb,3.7403e-01_jprb,&
 & 4.3587e-01_jprb,4.8876e-01_jprb,8.2899e+00_jprb/)  
kao( :, 1, 2, 5) = (/&
 & 2.2786e-02_jprb,8.2873e-02_jprb,1.4193e-01_jprb,2.0025e-01_jprb,2.5674e-01_jprb,3.1069e-01_jprb,&
 & 3.6090e-01_jprb,4.0281e-01_jprb,7.8467e+00_jprb/)  
kao( :, 2, 2, 5) = (/&
 & 2.1926e-02_jprb,8.2844e-02_jprb,1.4423e-01_jprb,2.0445e-01_jprb,2.6273e-01_jprb,3.1850e-01_jprb,&
 & 3.7058e-01_jprb,4.1426e-01_jprb,7.5685e+00_jprb/)  
kao( :, 3, 2, 5) = (/&
 & 2.1216e-02_jprb,8.3137e-02_jprb,1.4626e-01_jprb,2.0800e-01_jprb,2.6778e-01_jprb,3.2530e-01_jprb,&
 & 3.7887e-01_jprb,4.2447e-01_jprb,7.3113e+00_jprb/)  
kao( :, 4, 2, 5) = (/&
 & 2.0609e-02_jprb,8.3648e-02_jprb,1.4825e-01_jprb,2.1130e-01_jprb,2.7244e-01_jprb,3.3120e-01_jprb,&
 & 3.8633e-01_jprb,4.3319e-01_jprb,7.0868e+00_jprb/)  
kao( :, 5, 2, 5) = (/&
 & 2.0124e-02_jprb,8.4283e-02_jprb,1.5023e-01_jprb,2.1439e-01_jprb,2.7658e-01_jprb,3.3624e-01_jprb,&
 & 3.9227e-01_jprb,4.4011e-01_jprb,6.8977e+00_jprb/)  
kao( :, 1, 3, 5) = (/&
 & 1.8617e-02_jprb,7.1627e-02_jprb,1.2381e-01_jprb,1.7543e-01_jprb,2.2536e-01_jprb,2.7317e-01_jprb,&
 & 3.1745e-01_jprb,3.5456e-01_jprb,6.6821e+00_jprb/)  
kao( :, 2, 3, 5) = (/&
 & 1.7803e-02_jprb,7.1692e-02_jprb,1.2605e-01_jprb,1.7941e-01_jprb,2.3119e-01_jprb,2.8073e-01_jprb,&
 & 3.2696e-01_jprb,3.6594e-01_jprb,6.4024e+00_jprb/)  
kao( :, 3, 3, 5) = (/&
 & 1.7094e-02_jprb,7.2019e-02_jprb,1.2810e-01_jprb,1.8301e-01_jprb,2.3626e-01_jprb,2.8733e-01_jprb,&
 & 3.3525e-01_jprb,3.7585e-01_jprb,6.1586e+00_jprb/)  
kao( :, 4, 3, 5) = (/&
 & 1.6473e-02_jprb,7.2618e-02_jprb,1.3012e-01_jprb,1.8637e-01_jprb,2.4089e-01_jprb,2.9345e-01_jprb,&
 & 3.4253e-01_jprb,3.8463e-01_jprb,5.9399e+00_jprb/)  
kao( :, 5, 3, 5) = (/&
 & 1.5950e-02_jprb,7.3287e-02_jprb,1.3213e-01_jprb,1.8950e-01_jprb,2.4513e-01_jprb,2.9856e-01_jprb,&
 & 3.4870e-01_jprb,3.9140e-01_jprb,5.7373e+00_jprb/)  
kao( :, 1, 4, 5) = (/&
 & 1.5580e-02_jprb,6.1790e-02_jprb,1.0733e-01_jprb,1.5233e-01_jprb,1.9578e-01_jprb,2.3731e-01_jprb,&
 & 2.7596e-01_jprb,3.0816e-01_jprb,5.7644e+00_jprb/)  
kao( :, 2, 4, 5) = (/&
 & 1.4777e-02_jprb,6.1923e-02_jprb,1.0950e-01_jprb,1.5621e-01_jprb,2.0143e-01_jprb,2.4487e-01_jprb,&
 & 2.8520e-01_jprb,3.1931e-01_jprb,5.4929e+00_jprb/)  
kao( :, 3, 4, 5) = (/&
 & 1.4083e-02_jprb,6.2360e-02_jprb,1.1165e-01_jprb,1.5990e-01_jprb,2.0675e-01_jprb,2.5162e-01_jprb,&
 & 2.9363e-01_jprb,3.2936e-01_jprb,5.2479e+00_jprb/)  
kao( :, 4, 4, 5) = (/&
 & 1.3489e-02_jprb,6.3056e-02_jprb,1.1379e-01_jprb,1.6338e-01_jprb,2.1152e-01_jprb,2.5770e-01_jprb,&
 & 3.0103e-01_jprb,3.3790e-01_jprb,5.0295e+00_jprb/)  
kao( :, 5, 4, 5) = (/&
 & 1.2974e-02_jprb,6.3786e-02_jprb,1.1583e-01_jprb,1.6662e-01_jprb,2.1582e-01_jprb,2.6318e-01_jprb,&
 & 3.0742e-01_jprb,3.4538e-01_jprb,4.8395e+00_jprb/)  
kao( :, 1, 5, 5) = (/&
 & 1.3213e-02_jprb,5.3251e-02_jprb,9.2575e-02_jprb,1.3138e-01_jprb,1.6890e-01_jprb,2.0468e-01_jprb,&
 & 2.3789e-01_jprb,2.6563e-01_jprb,4.9912e+00_jprb/)  
kao( :, 2, 5, 5) = (/&
 & 1.2469e-02_jprb,5.3471e-02_jprb,9.4761e-02_jprb,1.3531e-01_jprb,1.7451e-01_jprb,2.1205e-01_jprb,&
 & 2.4715e-01_jprb,2.7671e-01_jprb,4.7367e+00_jprb/)  
kao( :, 3, 5, 5) = (/&
 & 1.1826e-02_jprb,5.4006e-02_jprb,9.6957e-02_jprb,1.3905e-01_jprb,1.7980e-01_jprb,2.1900e-01_jprb,&
 & 2.5553e-01_jprb,2.8664e-01_jprb,4.5084e+00_jprb/)  

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


SUBROUTINE part4

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


kao( :, 4, 5, 5) = (/&
 & 1.1265e-02_jprb,5.4777e-02_jprb,9.9171e-02_jprb,1.4252e-01_jprb,1.8466e-01_jprb,2.2509e-01_jprb,&
 & 2.6296e-01_jprb,2.9525e-01_jprb,4.3062e+00_jprb/)  
kao( :, 5, 5, 5) = (/&
 & 1.0774e-02_jprb,5.5536e-02_jprb,1.0132e-01_jprb,1.4589e-01_jprb,1.8914e-01_jprb,2.3064e-01_jprb,&
 & 2.6960e-01_jprb,3.0272e-01_jprb,4.1237e+00_jprb/)  
kao( :, 1, 6, 5) = (/&
 & 1.1298e-02_jprb,4.5718e-02_jprb,7.9200e-02_jprb,1.1232e-01_jprb,1.4430e-01_jprb,1.7486e-01_jprb,&
 & 2.0309e-01_jprb,2.2655e-01_jprb,4.3329e+00_jprb/)  
kao( :, 2, 6, 5) = (/&
 & 1.0622e-02_jprb,4.6005e-02_jprb,8.1486e-02_jprb,1.1629e-01_jprb,1.5001e-01_jprb,1.8222e-01_jprb,&
 & 2.1218e-01_jprb,2.3741e-01_jprb,4.0960e+00_jprb/)  
kao( :, 3, 6, 5) = (/&
 & 1.0034e-02_jprb,4.6615e-02_jprb,8.3719e-02_jprb,1.2009e-01_jprb,1.5528e-01_jprb,1.8897e-01_jprb,&
 & 2.2052e-01_jprb,2.4712e-01_jprb,3.8879e+00_jprb/)  
kao( :, 4, 6, 5) = (/&
 & 9.5191e-03_jprb,4.7402e-02_jprb,8.5902e-02_jprb,1.2353e-01_jprb,1.5997e-01_jprb,1.9501e-01_jprb,&
 & 2.2766e-01_jprb,2.5531e-01_jprb,3.7023e+00_jprb/)  
kao( :, 5, 6, 5) = (/&
 & 9.0694e-03_jprb,4.8127e-02_jprb,8.7970e-02_jprb,1.2673e-01_jprb,1.6428e-01_jprb,2.0026e-01_jprb,&
 & 2.3384e-01_jprb,2.6225e-01_jprb,3.5368e+00_jprb/)  
kao( :, 1, 7, 5) = (/&
 & 9.7003e-03_jprb,3.9103e-02_jprb,6.7303e-02_jprb,9.5321e-02_jprb,1.2233e-01_jprb,1.4806e-01_jprb,&
 & 1.7192e-01_jprb,1.9156e-01_jprb,3.7979e+00_jprb/)  
kao( :, 2, 7, 5) = (/&
 & 9.0880e-03_jprb,3.9405e-02_jprb,6.9590e-02_jprb,9.9254e-02_jprb,1.2789e-01_jprb,1.5530e-01_jprb,&
 & 1.8072e-01_jprb,2.0187e-01_jprb,3.5772e+00_jprb/)  
kao( :, 3, 7, 5) = (/&
 & 8.5547e-03_jprb,3.9999e-02_jprb,7.1749e-02_jprb,1.0282e-01_jprb,1.3290e-01_jprb,1.6166e-01_jprb,&
 & 1.8835e-01_jprb,2.1077e-01_jprb,3.3854e+00_jprb/)  
kao( :, 4, 7, 5) = (/&
 & 8.0885e-03_jprb,4.0699e-02_jprb,7.3711e-02_jprb,1.0595e-01_jprb,1.3715e-01_jprb,1.6698e-01_jprb,&
 & 1.9485e-01_jprb,2.1815e-01_jprb,3.2157e+00_jprb/)  
kao( :, 5, 7, 5) = (/&
 & 7.6793e-03_jprb,4.1301e-02_jprb,7.5502e-02_jprb,1.0878e-01_jprb,1.4090e-01_jprb,1.7170e-01_jprb,&
 & 2.0034e-01_jprb,2.2441e-01_jprb,3.0651e+00_jprb/)  
kao( :, 1, 8, 5) = (/&
 & 8.3356e-03_jprb,3.3311e-02_jprb,5.6870e-02_jprb,8.0308e-02_jprb,1.0295e-01_jprb,1.2448e-01_jprb,&
 & 1.4428e-01_jprb,1.6086e-01_jprb,3.3908e+00_jprb/)  
kao( :, 2, 8, 5) = (/&
 & 7.7853e-03_jprb,3.3608e-02_jprb,5.9028e-02_jprb,8.4055e-02_jprb,1.0819e-01_jprb,1.3119e-01_jprb,&
 & 1.5248e-01_jprb,1.7004e-01_jprb,3.1845e+00_jprb/)  
kao( :, 3, 8, 5) = (/&
 & 7.3065e-03_jprb,3.4089e-02_jprb,6.0968e-02_jprb,8.7276e-02_jprb,1.1264e-01_jprb,1.3686e-01_jprb,&
 & 1.5934e-01_jprb,1.7794e-01_jprb,3.0043e+00_jprb/)  
kao( :, 4, 8, 5) = (/&
 & 6.8879e-03_jprb,3.4663e-02_jprb,6.2677e-02_jprb,8.9967e-02_jprb,1.1635e-01_jprb,1.4158e-01_jprb,&
 & 1.6491e-01_jprb,1.8439e-01_jprb,2.8456e+00_jprb/)  
kao( :, 5, 8, 5) = (/&
 & 6.5199e-03_jprb,3.5157e-02_jprb,6.4215e-02_jprb,9.2448e-02_jprb,1.1974e-01_jprb,1.4577e-01_jprb,&
 & 1.7002e-01_jprb,1.9020e-01_jprb,2.7064e+00_jprb/)  
kao( :, 1, 9, 5) = (/&
 & 7.1670e-03_jprb,2.8264e-02_jprb,4.7722e-02_jprb,6.7185e-02_jprb,8.5943e-02_jprb,1.0376e-01_jprb,&
 & 1.2019e-01_jprb,1.3426e-01_jprb,3.0087e+00_jprb/)  
kao( :, 2, 9, 5) = (/&
 & 6.6733e-03_jprb,2.8499e-02_jprb,4.9676e-02_jprb,7.0525e-02_jprb,9.0644e-02_jprb,1.0983e-01_jprb,&
 & 1.2746e-01_jprb,1.4211e-01_jprb,2.8169e+00_jprb/)  
kao( :, 3, 9, 5) = (/&
 & 6.2464e-03_jprb,2.8870e-02_jprb,5.1362e-02_jprb,7.3368e-02_jprb,9.4608e-02_jprb,1.1481e-01_jprb,&
 & 1.3345e-01_jprb,1.4885e-01_jprb,2.6506e+00_jprb/)  
kao( :, 4, 9, 5) = (/&
 & 5.8753e-03_jprb,2.9313e-02_jprb,5.2839e-02_jprb,7.5761e-02_jprb,9.7853e-02_jprb,1.1892e-01_jprb,&
 & 1.3848e-01_jprb,1.5462e-01_jprb,2.5062e+00_jprb/)  
kao( :, 5, 9, 5) = (/&
 & 5.5500e-03_jprb,2.9736e-02_jprb,5.4197e-02_jprb,7.7953e-02_jprb,1.0085e-01_jprb,1.2274e-01_jprb,&
 & 1.4297e-01_jprb,1.5977e-01_jprb,2.3796e+00_jprb/)  
kao( :, 1,10, 5) = (/&
 & 6.1244e-03_jprb,2.3891e-02_jprb,3.9969e-02_jprb,5.6166e-02_jprb,7.1759e-02_jprb,8.6539e-02_jprb,&
 & 1.0009e-01_jprb,1.1231e-01_jprb,2.6506e+00_jprb/)  
kao( :, 2,10, 5) = (/&
 & 5.6882e-03_jprb,2.4047e-02_jprb,4.1658e-02_jprb,5.9064e-02_jprb,7.5818e-02_jprb,9.1738e-02_jprb,&
 & 1.0641e-01_jprb,1.1881e-01_jprb,2.4752e+00_jprb/)  
kao( :, 3,10, 5) = (/&
 & 5.3134e-03_jprb,2.4335e-02_jprb,4.3112e-02_jprb,6.1483e-02_jprb,7.9176e-02_jprb,9.6027e-02_jprb,&
 & 1.1160e-01_jprb,1.2443e-01_jprb,2.3246e+00_jprb/)  
kao( :, 4,10, 5) = (/&
 & 4.9890e-03_jprb,2.4682e-02_jprb,4.4370e-02_jprb,6.3529e-02_jprb,8.2017e-02_jprb,9.9655e-02_jprb,&
 & 1.1591e-01_jprb,1.2935e-01_jprb,2.1952e+00_jprb/)  
kao( :, 5,10, 5) = (/&
 & 4.7070e-03_jprb,2.5048e-02_jprb,4.5565e-02_jprb,6.5484e-02_jprb,8.4705e-02_jprb,1.0298e-01_jprb,&
 & 1.1992e-01_jprb,1.3395e-01_jprb,2.0819e+00_jprb/)  
kao( :, 1,11, 5) = (/&
 & 5.0497e-03_jprb,2.0186e-02_jprb,3.4078e-02_jprb,4.7979e-02_jprb,6.1354e-02_jprb,7.4036e-02_jprb,&
 & 8.5636e-02_jprb,9.6183e-02_jprb,2.2490e+00_jprb/)  
kao( :, 2,11, 5) = (/&
 & 4.6938e-03_jprb,2.0334e-02_jprb,3.5429e-02_jprb,5.0287e-02_jprb,6.4580e-02_jprb,7.8155e-02_jprb,&
 & 9.0667e-02_jprb,1.0125e-01_jprb,2.1005e+00_jprb/)  
kao( :, 3,11, 5) = (/&
 & 4.3895e-03_jprb,2.0572e-02_jprb,3.6577e-02_jprb,5.2195e-02_jprb,6.7235e-02_jprb,8.1560e-02_jprb,&
 & 9.4765e-02_jprb,1.0567e-01_jprb,1.9750e+00_jprb/)  
kao( :, 4,11, 5) = (/&
 & 4.1271e-03_jprb,2.0876e-02_jprb,3.7641e-02_jprb,5.3937e-02_jprb,6.9658e-02_jprb,8.4612e-02_jprb,&
 & 9.8403e-02_jprb,1.0977e-01_jprb,1.8669e+00_jprb/)  
kao( :, 5,11, 5) = (/&
 & 3.8988e-03_jprb,2.1198e-02_jprb,3.8649e-02_jprb,5.5601e-02_jprb,7.1927e-02_jprb,8.7466e-02_jprb,&
 & 1.0184e-01_jprb,1.1364e-01_jprb,1.7763e+00_jprb/)  
kao( :, 1,12, 5) = (/&
 & 4.1728e-03_jprb,1.6993e-02_jprb,2.8852e-02_jprb,4.0662e-02_jprb,5.2011e-02_jprb,6.2760e-02_jprb,&
 & 7.2578e-02_jprb,8.1564e-02_jprb,1.9301e+00_jprb/)  
kao( :, 2,12, 5) = (/&
 & 3.8841e-03_jprb,1.7115e-02_jprb,2.9921e-02_jprb,4.2476e-02_jprb,5.4549e-02_jprb,6.6006e-02_jprb,&
 & 7.6561e-02_jprb,8.5509e-02_jprb,1.8048e+00_jprb/)  
kao( :, 3,12, 5) = (/&
 & 3.6372e-03_jprb,1.7332e-02_jprb,3.0872e-02_jprb,4.4059e-02_jprb,5.6757e-02_jprb,6.8840e-02_jprb,&
 & 7.9938e-02_jprb,8.9112e-02_jprb,1.6994e+00_jprb/)  
kao( :, 4,12, 5) = (/&
 & 3.4237e-03_jprb,1.7595e-02_jprb,3.1771e-02_jprb,4.5538e-02_jprb,5.8804e-02_jprb,7.1398e-02_jprb,&
 & 8.2985e-02_jprb,9.2488e-02_jprb,1.6111e+00_jprb/)  
kao( :, 5,12, 5) = (/&
 & 3.2373e-03_jprb,1.7880e-02_jprb,3.2595e-02_jprb,4.6898e-02_jprb,6.0660e-02_jprb,7.3740e-02_jprb,&
 & 8.5835e-02_jprb,9.5657e-02_jprb,1.5338e+00_jprb/)  
kao( :, 1,13, 5) = (/&
 & 3.4531e-03_jprb,1.4217e-02_jprb,2.4215e-02_jprb,3.4135e-02_jprb,4.3667e-02_jprb,5.2684e-02_jprb,&
 & 6.0918e-02_jprb,6.8490e-02_jprb,1.7191e+00_jprb/)  
kao( :, 2,13, 5) = (/&
 & 3.2166e-03_jprb,1.4327e-02_jprb,2.5086e-02_jprb,3.5607e-02_jprb,4.5722e-02_jprb,5.5317e-02_jprb,&
 & 6.4142e-02_jprb,7.1650e-02_jprb,1.6100e+00_jprb/)  
kao( :, 3,13, 5) = (/&
 & 3.0139e-03_jprb,1.4515e-02_jprb,2.5871e-02_jprb,3.6915e-02_jprb,4.7550e-02_jprb,5.7658e-02_jprb,&
 & 6.6926e-02_jprb,7.4589e-02_jprb,1.5199e+00_jprb/)  
kao( :, 4,13, 5) = (/&
 & 2.8380e-03_jprb,1.4739e-02_jprb,2.6616e-02_jprb,3.8152e-02_jprb,4.9253e-02_jprb,5.9779e-02_jprb,&
 & 6.9455e-02_jprb,7.7339e-02_jprb,1.4413e+00_jprb/)  
kao( :, 5,13, 5) = (/&
 & 2.6842e-03_jprb,1.4990e-02_jprb,2.7278e-02_jprb,3.9228e-02_jprb,5.0729e-02_jprb,6.1660e-02_jprb,&
 & 7.1747e-02_jprb,7.9916e-02_jprb,1.3713e+00_jprb/)  
kao( :, 1, 1, 6) = (/&
 & 3.8632e-02_jprb,1.4563e-01_jprb,2.6438e-01_jprb,3.7994e-01_jprb,4.9178e-01_jprb,5.9825e-01_jprb,&
 & 6.9697e-01_jprb,7.7896e-01_jprb,1.1356e+01_jprb/)  
kao( :, 2, 1, 6) = (/&
 & 3.7252e-02_jprb,1.4645e-01_jprb,2.6646e-01_jprb,3.8318e-01_jprb,4.9611e-01_jprb,6.0391e-01_jprb,&
 & 7.0433e-01_jprb,7.8721e-01_jprb,1.0913e+01_jprb/)  
kao( :, 3, 1, 6) = (/&
 & 3.6055e-02_jprb,1.4710e-01_jprb,2.6822e-01_jprb,3.8583e-01_jprb,4.9949e-01_jprb,6.0852e-01_jprb,&
 & 7.0979e-01_jprb,7.9483e-01_jprb,1.0530e+01_jprb/)  
kao( :, 4, 1, 6) = (/&
 & 3.5090e-02_jprb,1.4760e-01_jprb,2.6956e-01_jprb,3.8772e-01_jprb,5.0210e-01_jprb,6.1181e-01_jprb,&
 & 7.1390e-01_jprb,7.9958e-01_jprb,1.0180e+01_jprb/)  
kao( :, 5, 1, 6) = (/&
 & 3.4260e-02_jprb,1.4804e-01_jprb,2.7047e-01_jprb,3.8919e-01_jprb,5.0401e-01_jprb,6.1383e-01_jprb,&
 & 7.1642e-01_jprb,8.0271e-01_jprb,9.8574e+00_jprb/)  
kao( :, 1, 2, 6) = (/&
 & 3.1826e-02_jprb,1.3117e-01_jprb,2.4082e-01_jprb,3.4734e-01_jprb,4.4987e-01_jprb,5.4781e-01_jprb,&
 & 6.3804e-01_jprb,7.1206e-01_jprb,9.6043e+00_jprb/)  
kao( :, 2, 2, 6) = (/&
 & 3.0580e-02_jprb,1.3188e-01_jprb,2.4250e-01_jprb,3.4978e-01_jprb,4.5341e-01_jprb,5.5237e-01_jprb,&
 & 6.4380e-01_jprb,7.1952e-01_jprb,9.2042e+00_jprb/)  
kao( :, 3, 2, 6) = (/&
 & 2.9477e-02_jprb,1.3242e-01_jprb,2.4394e-01_jprb,3.5199e-01_jprb,4.5646e-01_jprb,5.5595e-01_jprb,&
 & 6.4859e-01_jprb,7.2500e-01_jprb,8.8547e+00_jprb/)  
kao( :, 4, 2, 6) = (/&
 & 2.8580e-02_jprb,1.3291e-01_jprb,2.4517e-01_jprb,3.5389e-01_jprb,4.5886e-01_jprb,5.5917e-01_jprb,&
 & 6.5208e-01_jprb,7.2920e-01_jprb,8.5255e+00_jprb/)  
kao( :, 5, 2, 6) = (/&
 & 2.7810e-02_jprb,1.3345e-01_jprb,2.4608e-01_jprb,3.5526e-01_jprb,4.6068e-01_jprb,5.6160e-01_jprb,&
 & 6.5500e-01_jprb,7.3217e-01_jprb,8.2220e+00_jprb/)  
kao( :, 1, 3, 6) = (/&
 & 2.6420e-02_jprb,1.1646e-01_jprb,2.1549e-01_jprb,3.1138e-01_jprb,4.0359e-01_jprb,4.9120e-01_jprb,&
 & 5.7225e-01_jprb,6.3794e-01_jprb,8.1678e+00_jprb/)  
kao( :, 2, 3, 6) = (/&
 & 2.5165e-02_jprb,1.1697e-01_jprb,2.1694e-01_jprb,3.1375e-01_jprb,4.0678e-01_jprb,4.9551e-01_jprb,&
 & 5.7728e-01_jprb,6.4420e-01_jprb,7.7828e+00_jprb/)  
kao( :, 3, 3, 6) = (/&
 & 2.4099e-02_jprb,1.1741e-01_jprb,2.1826e-01_jprb,3.1581e-01_jprb,4.0983e-01_jprb,4.9937e-01_jprb,&
 & 5.8185e-01_jprb,6.4952e-01_jprb,7.4421e+00_jprb/)  
kao( :, 4, 3, 6) = (/&
 & 2.3226e-02_jprb,1.1793e-01_jprb,2.1960e-01_jprb,3.1782e-01_jprb,4.1268e-01_jprb,5.0276e-01_jprb,&
 & 5.8605e-01_jprb,6.5374e-01_jprb,7.1416e+00_jprb/)  
kao( :, 5, 3, 6) = (/&
 & 2.2449e-02_jprb,1.1853e-01_jprb,2.2074e-01_jprb,3.1965e-01_jprb,4.1487e-01_jprb,5.0573e-01_jprb,&
 & 5.8935e-01_jprb,6.5775e-01_jprb,6.8702e+00_jprb/)  
kao( :, 1, 4, 6) = (/&
 & 2.2282e-02_jprb,1.0267e-01_jprb,1.9038e-01_jprb,2.7507e-01_jprb,3.5668e-01_jprb,4.3406e-01_jprb,&
 & 5.0509e-01_jprb,5.6272e-01_jprb,7.0192e+00_jprb/)  
kao( :, 2, 4, 6) = (/&
 & 2.1101e-02_jprb,1.0311e-01_jprb,1.9184e-01_jprb,2.7754e-01_jprb,3.5984e-01_jprb,4.3790e-01_jprb,&
 & 5.1005e-01_jprb,5.6828e-01_jprb,6.6594e+00_jprb/)  
kao( :, 3, 4, 6) = (/&
 & 2.0092e-02_jprb,1.0356e-01_jprb,1.9318e-01_jprb,2.7978e-01_jprb,3.6293e-01_jprb,4.4207e-01_jprb,&
 & 5.1463e-01_jprb,5.7356e-01_jprb,6.3438e+00_jprb/)  
kao( :, 4, 4, 6) = (/&
 & 1.9228e-02_jprb,1.0414e-01_jprb,1.9468e-01_jprb,2.8199e-01_jprb,3.6599e-01_jprb,4.4583e-01_jprb,&
 & 5.1913e-01_jprb,5.7829e-01_jprb,6.0576e+00_jprb/)  
kao( :, 5, 4, 6) = (/&
 & 1.8478e-02_jprb,1.0486e-01_jprb,1.9620e-01_jprb,2.8416e-01_jprb,3.6882e-01_jprb,4.4907e-01_jprb,&
 & 5.2302e-01_jprb,5.8267e-01_jprb,5.7987e+00_jprb/)  
kao( :, 1, 5, 6) = (/&
 & 1.8927e-02_jprb,8.9665e-02_jprb,1.6623e-01_jprb,2.4010e-01_jprb,3.1103e-01_jprb,3.7843e-01_jprb,&
 & 4.4012e-01_jprb,4.9065e-01_jprb,6.0454e+00_jprb/)  
kao( :, 2, 5, 6) = (/&
 & 1.7852e-02_jprb,9.0154e-02_jprb,1.6776e-01_jprb,2.4246e-01_jprb,3.1432e-01_jprb,3.8239e-01_jprb,&
 & 4.4467e-01_jprb,4.9513e-01_jprb,5.7165e+00_jprb/)  
kao( :, 3, 5, 6) = (/&
 & 1.6931e-02_jprb,9.0711e-02_jprb,1.6930e-01_jprb,2.4502e-01_jprb,3.1769e-01_jprb,3.8643e-01_jprb,&
 & 4.4965e-01_jprb,5.0025e-01_jprb,5.4249e+00_jprb/)  
kao( :, 4, 5, 6) = (/&
 & 1.6136e-02_jprb,9.1383e-02_jprb,1.7089e-01_jprb,2.4749e-01_jprb,3.2087e-01_jprb,3.9057e-01_jprb,&
 & 4.5430e-01_jprb,5.0560e-01_jprb,5.1610e+00_jprb/)  
kao( :, 5, 5, 6) = (/&
 & 1.5442e-02_jprb,9.2230e-02_jprb,1.7257e-01_jprb,2.4990e-01_jprb,3.2412e-01_jprb,3.9447e-01_jprb,&
 & 4.5892e-01_jprb,5.1059e-01_jprb,4.9249e+00_jprb/)  
kao( :, 1, 6, 6) = (/&
 & 1.6173e-02_jprb,7.7572e-02_jprb,1.4357e-01_jprb,2.0729e-01_jprb,2.6833e-01_jprb,3.2615e-01_jprb,&
 & 3.7930e-01_jprb,4.2429e-01_jprb,5.2215e+00_jprb/)  
kao( :, 2, 6, 6) = (/&
 & 1.5200e-02_jprb,7.8077e-02_jprb,1.4510e-01_jprb,2.0962e-01_jprb,2.7142e-01_jprb,3.3008e-01_jprb,&
 & 3.8383e-01_jprb,4.2773e-01_jprb,4.9175e+00_jprb/)  
kao( :, 3, 6, 6) = (/&
 & 1.4368e-02_jprb,7.8730e-02_jprb,1.4681e-01_jprb,2.1218e-01_jprb,2.7493e-01_jprb,3.3435e-01_jprb,&
 & 3.8857e-01_jprb,4.3236e-01_jprb,4.6498e+00_jprb/)  
kao( :, 4, 6, 6) = (/&
 & 1.3651e-02_jprb,7.9498e-02_jprb,1.4852e-01_jprb,2.1489e-01_jprb,2.7853e-01_jprb,3.3867e-01_jprb,&
 & 3.9393e-01_jprb,4.3813e-01_jprb,4.4118e+00_jprb/)  
kao( :, 5, 6, 6) = (/&
 & 1.3021e-02_jprb,8.0512e-02_jprb,1.5047e-01_jprb,2.1785e-01_jprb,2.8237e-01_jprb,3.4356e-01_jprb,&
 & 3.9943e-01_jprb,4.4445e-01_jprb,4.1985e+00_jprb/)  
kao( :, 1, 7, 6) = (/&
 & 1.3842e-02_jprb,6.6570e-02_jprb,1.2297e-01_jprb,1.7734e-01_jprb,2.2958e-01_jprb,2.7900e-01_jprb,&
 & 3.2406e-01_jprb,3.6469e-01_jprb,4.5564e+00_jprb/)  
kao( :, 2, 7, 6) = (/&
 & 1.2974e-02_jprb,6.7120e-02_jprb,1.2449e-01_jprb,1.7977e-01_jprb,2.3270e-01_jprb,2.8277e-01_jprb,&
 & 3.2872e-01_jprb,3.6760e-01_jprb,4.2769e+00_jprb/)  
kao( :, 3, 7, 6) = (/&
 & 1.2231e-02_jprb,6.7829e-02_jprb,1.2627e-01_jprb,1.8248e-01_jprb,2.3625e-01_jprb,2.8721e-01_jprb,&
 & 3.3397e-01_jprb,3.7214e-01_jprb,4.0308e+00_jprb/)  
kao( :, 4, 7, 6) = (/&
 & 1.1586e-02_jprb,6.8704e-02_jprb,1.2831e-01_jprb,1.8551e-01_jprb,2.4039e-01_jprb,2.9244e-01_jprb,&
 & 3.3993e-01_jprb,3.7842e-01_jprb,3.8137e+00_jprb/)  
kao( :, 5, 7, 6) = (/&
 & 1.1019e-02_jprb,6.9935e-02_jprb,1.3064e-01_jprb,1.8899e-01_jprb,2.4502e-01_jprb,2.9795e-01_jprb,&
 & 3.4661e-01_jprb,3.8562e-01_jprb,3.6208e+00_jprb/)  
kao( :, 1, 8, 6) = (/&
 & 1.1856e-02_jprb,5.6687e-02_jprb,1.0456e-01_jprb,1.5068e-01_jprb,1.9490e-01_jprb,2.3680e-01_jprb,&
 & 2.7529e-01_jprb,3.1187e-01_jprb,4.0573e+00_jprb/)  
kao( :, 2, 8, 6) = (/&
 & 1.1084e-02_jprb,5.7283e-02_jprb,1.0610e-01_jprb,1.5305e-01_jprb,1.9814e-01_jprb,2.4092e-01_jprb,&
 & 2.8002e-01_jprb,3.1482e-01_jprb,3.7969e+00_jprb/)  
kao( :, 3, 8, 6) = (/&
 & 1.0424e-02_jprb,5.8111e-02_jprb,1.0802e-01_jprb,1.5601e-01_jprb,2.0208e-01_jprb,2.4566e-01_jprb,&
 & 2.8562e-01_jprb,3.1943e-01_jprb,3.5697e+00_jprb/)  
kao( :, 4, 8, 6) = (/&
 & 9.8517e-03_jprb,5.9109e-02_jprb,1.1026e-01_jprb,1.5951e-01_jprb,2.0663e-01_jprb,2.5128e-01_jprb,&
 & 2.9237e-01_jprb,3.2591e-01_jprb,3.3690e+00_jprb/)  
kao( :, 5, 8, 6) = (/&
 & 9.3473e-03_jprb,6.0458e-02_jprb,1.1290e-01_jprb,1.6330e-01_jprb,2.1161e-01_jprb,2.5747e-01_jprb,&
 & 2.9929e-01_jprb,3.3311e-01_jprb,3.1918e+00_jprb/)  
kao( :, 1, 9, 6) = (/&
 & 1.0174e-02_jprb,4.8047e-02_jprb,8.8410e-02_jprb,1.2743e-01_jprb,1.6481e-01_jprb,2.0018e-01_jprb,&
 & 2.3315e-01_jprb,2.6585e-01_jprb,3.5956e+00_jprb/)  
kao( :, 2, 9, 6) = (/&
 & 9.4844e-03_jprb,4.8661e-02_jprb,9.0043e-02_jprb,1.2994e-01_jprb,1.6817e-01_jprb,2.0441e-01_jprb,&
 & 2.3776e-01_jprb,2.6902e-01_jprb,3.3539e+00_jprb/)  
kao( :, 3, 9, 6) = (/&
 & 8.8959e-03_jprb,4.9547e-02_jprb,9.2085e-02_jprb,1.3295e-01_jprb,1.7216e-01_jprb,2.0943e-01_jprb,&
 & 2.4369e-01_jprb,2.7374e-01_jprb,3.1436e+00_jprb/)  
kao( :, 4, 9, 6) = (/&
 & 8.3843e-03_jprb,5.0652e-02_jprb,9.4445e-02_jprb,1.3652e-01_jprb,1.7695e-01_jprb,2.1526e-01_jprb,&
 & 2.5026e-01_jprb,2.7964e-01_jprb,2.9597e+00_jprb/)  
kao( :, 5, 9, 6) = (/&
 & 7.9361e-03_jprb,5.1996e-02_jprb,9.7022e-02_jprb,1.4032e-01_jprb,1.8172e-01_jprb,2.2081e-01_jprb,&
 & 2.5660e-01_jprb,2.8539e-01_jprb,2.7995e+00_jprb/)  
kao( :, 1,10, 6) = (/&
 & 8.6910e-03_jprb,4.0662e-02_jprb,7.4709e-02_jprb,1.0753e-01_jprb,1.3903e-01_jprb,1.6890e-01_jprb,&
 & 1.9755e-01_jprb,2.2624e-01_jprb,3.1658e+00_jprb/)  
kao( :, 2,10, 6) = (/&
 & 8.0781e-03_jprb,4.1334e-02_jprb,7.6396e-02_jprb,1.1015e-01_jprb,1.4261e-01_jprb,1.7346e-01_jprb,&
 & 2.0195e-01_jprb,2.2973e-01_jprb,2.9443e+00_jprb/)  
kao( :, 3,10, 6) = (/&
 & 7.5558e-03_jprb,4.2237e-02_jprb,7.8425e-02_jprb,1.1329e-01_jprb,1.4677e-01_jprb,1.7847e-01_jprb,&
 & 2.0753e-01_jprb,2.3421e-01_jprb,2.7528e+00_jprb/)  
kao( :, 4,10, 6) = (/&
 & 7.1052e-03_jprb,4.3295e-02_jprb,8.0652e-02_jprb,1.1657e-01_jprb,1.5091e-01_jprb,1.8339e-01_jprb,&
 & 2.1320e-01_jprb,2.3872e-01_jprb,2.5875e+00_jprb/)  
kao( :, 5,10, 6) = (/&
 & 6.7112e-03_jprb,4.4456e-02_jprb,8.2854e-02_jprb,1.1964e-01_jprb,1.5483e-01_jprb,1.8812e-01_jprb,&
 & 2.1828e-01_jprb,2.4305e-01_jprb,2.4449e+00_jprb/)  
kao( :, 1,11, 6) = (/&
 & 7.1546e-03_jprb,3.4641e-02_jprb,6.3729e-02_jprb,9.1774e-02_jprb,1.1873e-01_jprb,1.4430e-01_jprb,&
 & 1.6899e-01_jprb,1.9377e-01_jprb,2.6800e+00_jprb/)  
kao( :, 2,11, 6) = (/&
 & 6.6497e-03_jprb,3.5437e-02_jprb,6.5581e-02_jprb,9.4605e-02_jprb,1.2249e-01_jprb,1.4891e-01_jprb,&
 & 1.7335e-01_jprb,1.9740e-01_jprb,2.4922e+00_jprb/)  
kao( :, 3,11, 6) = (/&
 & 6.2203e-03_jprb,3.6291e-02_jprb,6.7410e-02_jprb,9.7360e-02_jprb,1.2600e-01_jprb,1.5308e-01_jprb,&
 & 1.7786e-01_jprb,2.0080e-01_jprb,2.3311e+00_jprb/)  
kao( :, 4,11, 6) = (/&
 & 5.8484e-03_jprb,3.7194e-02_jprb,6.9237e-02_jprb,9.9960e-02_jprb,1.2931e-01_jprb,1.5705e-01_jprb,&
 & 1.8234e-01_jprb,2.0415e-01_jprb,2.1940e+00_jprb/)  
kao( :, 5,11, 6) = (/&
 & 5.5242e-03_jprb,3.8204e-02_jprb,7.1094e-02_jprb,1.0253e-01_jprb,1.3260e-01_jprb,1.6091e-01_jprb,&
 & 1.8653e-01_jprb,2.0766e-01_jprb,2.0745e+00_jprb/)  

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


SUBROUTINE part5

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


kao( :, 1,12, 6) = (/&
 & 5.8816e-03_jprb,2.9599e-02_jprb,5.4489e-02_jprb,7.8480e-02_jprb,1.0153e-01_jprb,1.2338e-01_jprb,&
 & 1.4461e-01_jprb,1.6589e-01_jprb,2.2985e+00_jprb/)  
kao( :, 2,12, 6) = (/&
 & 5.4688e-03_jprb,3.0298e-02_jprb,5.6046e-02_jprb,8.0826e-02_jprb,1.0456e-01_jprb,1.2701e-01_jprb,&
 & 1.4783e-01_jprb,1.6844e-01_jprb,2.1377e+00_jprb/)  
kao( :, 3,12, 6) = (/&
 & 5.1175e-03_jprb,3.1020e-02_jprb,5.7585e-02_jprb,8.3084e-02_jprb,1.0742e-01_jprb,1.3040e-01_jprb,&
 & 1.5140e-01_jprb,1.7099e-01_jprb,2.0023e+00_jprb/)  
kao( :, 4,12, 6) = (/&
 & 4.8144e-03_jprb,3.1808e-02_jprb,5.9123e-02_jprb,8.5255e-02_jprb,1.1020e-01_jprb,1.3374e-01_jprb,&
 & 1.5506e-01_jprb,1.7366e-01_jprb,1.8864e+00_jprb/)  
kao( :, 5,12, 6) = (/&
 & 4.5497e-03_jprb,3.2704e-02_jprb,6.0814e-02_jprb,8.7626e-02_jprb,1.1321e-01_jprb,1.3720e-01_jprb,&
 & 1.5886e-01_jprb,1.7678e-01_jprb,1.7844e+00_jprb/)  
kao( :, 1,13, 6) = (/&
 & 4.8422e-03_jprb,2.5177e-02_jprb,4.6344e-02_jprb,6.6734e-02_jprb,8.6291e-02_jprb,1.0482e-01_jprb,&
 & 1.2289e-01_jprb,1.4102e-01_jprb,2.0501e+00_jprb/)  
kao( :, 2,13, 6) = (/&
 & 4.5082e-03_jprb,2.5759e-02_jprb,4.7623e-02_jprb,6.8651e-02_jprb,8.8749e-02_jprb,1.0771e-01_jprb,&
 & 1.2536e-01_jprb,1.4285e-01_jprb,1.9088e+00_jprb/)  
kao( :, 3,13, 6) = (/&
 & 4.2221e-03_jprb,2.6388e-02_jprb,4.8921e-02_jprb,7.0509e-02_jprb,9.1098e-02_jprb,1.1050e-01_jprb,&
 & 1.2820e-01_jprb,1.4481e-01_jprb,1.7897e+00_jprb/)  
kao( :, 4,13, 6) = (/&
 & 3.9753e-03_jprb,2.7097e-02_jprb,5.0270e-02_jprb,7.2404e-02_jprb,9.3520e-02_jprb,1.1341e-01_jprb,&
 & 1.3134e-01_jprb,1.4713e-01_jprb,1.6870e+00_jprb/)  
kao( :, 5,13, 6) = (/&
 & 3.7603e-03_jprb,2.7904e-02_jprb,5.1825e-02_jprb,7.4620e-02_jprb,9.6277e-02_jprb,1.1654e-01_jprb,&
 & 1.3481e-01_jprb,1.4987e-01_jprb,1.5960e+00_jprb/)  
kao( :, 1, 1, 7) = (/&
 & 5.2128e-02_jprb,2.2573e-01_jprb,4.1698e-01_jprb,6.0142e-01_jprb,7.7838e-01_jprb,9.4635e-01_jprb,&
 & 1.1013e+00_jprb,1.2264e+00_jprb,1.2683e+01_jprb/)  
kao( :, 2, 1, 7) = (/&
 & 5.0382e-02_jprb,2.2718e-01_jprb,4.1897e-01_jprb,6.0369e-01_jprb,7.8036e-01_jprb,9.4806e-01_jprb,&
 & 1.1011e+00_jprb,1.2250e+00_jprb,1.2078e+01_jprb/)  
kao( :, 3, 1, 7) = (/&
 & 4.9050e-02_jprb,2.2916e-01_jprb,4.2172e-01_jprb,6.0675e-01_jprb,7.8406e-01_jprb,9.5134e-01_jprb,&
 & 1.1038e+00_jprb,1.2245e+00_jprb,1.1561e+01_jprb/)  
kao( :, 4, 1, 7) = (/&
 & 4.8000e-02_jprb,2.3161e-01_jprb,4.2498e-01_jprb,6.1081e-01_jprb,7.8880e-01_jprb,9.5615e-01_jprb,&
 & 1.1084e+00_jprb,1.2283e+00_jprb,1.1090e+01_jprb/)  
kao( :, 5, 1, 7) = (/&
 & 4.7267e-02_jprb,2.3436e-01_jprb,4.2865e-01_jprb,6.1543e-01_jprb,7.9387e-01_jprb,9.6245e-01_jprb,&
 & 1.1147e+00_jprb,1.2334e+00_jprb,1.0665e+01_jprb/)  
kao( :, 1, 2, 7) = (/&
 & 4.2932e-02_jprb,2.1372e-01_jprb,3.9561e-01_jprb,5.6920e-01_jprb,7.3515e-01_jprb,8.9082e-01_jprb,&
 & 1.0322e+00_jprb,1.1443e+00_jprb,1.0613e+01_jprb/)  
kao( :, 2, 2, 7) = (/&
 & 4.1235e-02_jprb,2.1562e-01_jprb,3.9903e-01_jprb,5.7421e-01_jprb,7.4053e-01_jprb,8.9640e-01_jprb,&
 & 1.0375e+00_jprb,1.1460e+00_jprb,1.0106e+01_jprb/)  
kao( :, 3, 2, 7) = (/&
 & 3.9904e-02_jprb,2.1797e-01_jprb,4.0322e-01_jprb,5.7993e-01_jprb,7.4744e-01_jprb,9.0475e-01_jprb,&
 & 1.0452e+00_jprb,1.1527e+00_jprb,9.6511e+00_jprb/)  
kao( :, 4, 2, 7) = (/&
 & 3.8807e-02_jprb,2.2063e-01_jprb,4.0792e-01_jprb,5.8615e-01_jprb,7.5558e-01_jprb,9.1342e-01_jprb,&
 & 1.0550e+00_jprb,1.1616e+00_jprb,9.2444e+00_jprb/)  
kao( :, 5, 2, 7) = (/&
 & 3.7944e-02_jprb,2.2348e-01_jprb,4.1278e-01_jprb,5.9308e-01_jprb,7.6392e-01_jprb,9.2334e-01_jprb,&
 & 1.0654e+00_jprb,1.1718e+00_jprb,8.8704e+00_jprb/)  
kao( :, 1, 3, 7) = (/&
 & 3.5644e-02_jprb,1.9900e-01_jprb,3.6873e-01_jprb,5.2969e-01_jprb,6.8262e-01_jprb,8.2576e-01_jprb,&
 & 9.5330e-01_jprb,1.0560e+00_jprb,9.0225e+00_jprb/)  
kao( :, 2, 3, 7) = (/&
 & 3.3919e-02_jprb,2.0128e-01_jprb,3.7328e-01_jprb,5.3629e-01_jprb,6.9070e-01_jprb,8.3419e-01_jprb,&
 & 9.6259e-01_jprb,1.0599e+00_jprb,8.5592e+00_jprb/)  
kao( :, 3, 3, 7) = (/&
 & 3.2476e-02_jprb,2.0401e-01_jprb,3.7867e-01_jprb,5.4408e-01_jprb,7.0000e-01_jprb,8.4506e-01_jprb,&
 & 9.7370e-01_jprb,1.0690e+00_jprb,8.1409e+00_jprb/)  
kao( :, 4, 3, 7) = (/&
 & 3.1249e-02_jprb,2.0698e-01_jprb,3.8457e-01_jprb,5.5225e-01_jprb,7.1038e-01_jprb,8.5708e-01_jprb,&
 & 9.8671e-01_jprb,1.0811e+00_jprb,7.7623e+00_jprb/)  
kao( :, 5, 3, 7) = (/&
 & 3.0275e-02_jprb,2.1021e-01_jprb,3.9069e-01_jprb,5.6104e-01_jprb,7.2150e-01_jprb,8.6973e-01_jprb,&
 & 1.0004e+00_jprb,1.0948e+00_jprb,7.4273e+00_jprb/)  
kao( :, 1, 4, 7) = (/&
 & 3.0097e-02_jprb,1.8261e-01_jprb,3.3811e-01_jprb,4.8498e-01_jprb,6.2347e-01_jprb,7.5244e-01_jprb,&
 & 8.6689e-01_jprb,9.6397e-01_jprb,7.7267e+00_jprb/)  
kao( :, 2, 4, 7) = (/&
 & 2.8465e-02_jprb,1.8532e-01_jprb,3.4351e-01_jprb,4.9262e-01_jprb,6.3341e-01_jprb,7.6377e-01_jprb,&
 & 8.7850e-01_jprb,9.6891e-01_jprb,7.2971e+00_jprb/)  
kao( :, 3, 4, 7) = (/&
 & 2.7069e-02_jprb,1.8851e-01_jprb,3.4990e-01_jprb,5.0190e-01_jprb,6.4465e-01_jprb,7.7654e-01_jprb,&
 & 8.9285e-01_jprb,9.7883e-01_jprb,6.9159e+00_jprb/)  
kao( :, 4, 4, 7) = (/&
 & 2.5871e-02_jprb,1.9199e-01_jprb,3.5682e-01_jprb,5.1175e-01_jprb,6.5706e-01_jprb,7.9119e-01_jprb,&
 & 9.0820e-01_jprb,9.9217e-01_jprb,6.5751e+00_jprb/)  
kao( :, 5, 4, 7) = (/&
 & 2.4866e-02_jprb,1.9576e-01_jprb,3.6404e-01_jprb,5.2207e-01_jprb,6.7030e-01_jprb,8.0638e-01_jprb,&
 & 9.2498e-01_jprb,1.0073e+00_jprb,6.2687e+00_jprb/)  
kao( :, 1, 5, 7) = (/&
 & 2.5614e-02_jprb,1.6487e-01_jprb,3.0459e-01_jprb,4.3623e-01_jprb,5.5976e-01_jprb,6.7396e-01_jprb,&
 & 7.7520e-01_jprb,8.6835e-01_jprb,6.6219e+00_jprb/)  
kao( :, 2, 5, 7) = (/&
 & 2.4116e-02_jprb,1.6799e-01_jprb,3.1096e-01_jprb,4.4514e-01_jprb,5.7096e-01_jprb,6.8731e-01_jprb,&
 & 7.8907e-01_jprb,8.7442e-01_jprb,6.2328e+00_jprb/)  
kao( :, 3, 5, 7) = (/&
 & 2.2830e-02_jprb,1.7162e-01_jprb,3.1815e-01_jprb,4.5551e-01_jprb,5.8428e-01_jprb,7.0249e-01_jprb,&
 & 8.0544e-01_jprb,8.8480e-01_jprb,5.8899e+00_jprb/)  
kao( :, 4, 5, 7) = (/&
 & 2.1736e-02_jprb,1.7560e-01_jprb,3.2603e-01_jprb,4.6697e-01_jprb,5.9854e-01_jprb,7.1908e-01_jprb,&
 & 8.2326e-01_jprb,8.9862e-01_jprb,5.5832e+00_jprb/)  
kao( :, 5, 5, 7) = (/&
 & 2.0809e-02_jprb,1.7988e-01_jprb,3.3435e-01_jprb,4.7875e-01_jprb,6.1356e-01_jprb,7.3657e-01_jprb,&
 & 8.4234e-01_jprb,9.1423e-01_jprb,5.3090e+00_jprb/)  
kao( :, 1, 6, 7) = (/&
 & 2.1880e-02_jprb,1.4623e-01_jprb,2.6962e-01_jprb,3.8553e-01_jprb,4.9437e-01_jprb,5.9458e-01_jprb,&
 & 6.8464e-01_jprb,7.7290e-01_jprb,5.6893e+00_jprb/)  
kao( :, 2, 6, 7) = (/&
 & 2.0541e-02_jprb,1.4964e-01_jprb,2.7646e-01_jprb,3.9534e-01_jprb,5.0653e-01_jprb,6.0867e-01_jprb,&
 & 6.9802e-01_jprb,7.7944e-01_jprb,5.3383e+00_jprb/)  
kao( :, 3, 6, 7) = (/&
 & 1.9387e-02_jprb,1.5367e-01_jprb,2.8442e-01_jprb,4.0664e-01_jprb,5.2073e-01_jprb,6.2519e-01_jprb,&
 & 7.1506e-01_jprb,7.9013e-01_jprb,5.0300e+00_jprb/)  
kao( :, 4, 6, 7) = (/&
 & 1.8399e-02_jprb,1.5808e-01_jprb,2.9302e-01_jprb,4.1898e-01_jprb,5.3609e-01_jprb,6.4281e-01_jprb,&
 & 7.3443e-01_jprb,8.0386e-01_jprb,4.7570e+00_jprb/)  
kao( :, 5, 6, 7) = (/&
 & 1.7565e-02_jprb,1.6282e-01_jprb,3.0216e-01_jprb,4.3178e-01_jprb,5.5216e-01_jprb,6.6163e-01_jprb,&
 & 7.5404e-01_jprb,8.1847e-01_jprb,4.5125e+00_jprb/)  
kao( :, 1, 7, 7) = (/&
 & 1.8714e-02_jprb,1.2767e-01_jprb,2.3517e-01_jprb,3.3585e-01_jprb,4.3014e-01_jprb,5.1698e-01_jprb,&
 & 5.9889e-01_jprb,6.8052e-01_jprb,4.9475e+00_jprb/)  
kao( :, 2, 7, 7) = (/&
 & 1.7519e-02_jprb,1.3119e-01_jprb,2.4211e-01_jprb,3.4588e-01_jprb,4.4292e-01_jprb,5.3168e-01_jprb,&
 & 6.1066e-01_jprb,6.8710e-01_jprb,4.6289e+00_jprb/)  
kao( :, 3, 7, 7) = (/&
 & 1.6495e-02_jprb,1.3547e-01_jprb,2.5037e-01_jprb,3.5759e-01_jprb,4.5729e-01_jprb,5.4816e-01_jprb,&
 & 6.2674e-01_jprb,6.9772e-01_jprb,4.3494e+00_jprb/)  
kao( :, 4, 7, 7) = (/&
 & 1.5623e-02_jprb,1.4024e-01_jprb,2.5938e-01_jprb,3.7018e-01_jprb,4.7307e-01_jprb,5.6640e-01_jprb,&
 & 6.4533e-01_jprb,7.1032e-01_jprb,4.1027e+00_jprb/)  
kao( :, 5, 7, 7) = (/&
 & 1.4883e-02_jprb,1.4521e-01_jprb,2.6879e-01_jprb,3.8347e-01_jprb,4.8911e-01_jprb,5.8444e-01_jprb,&
 & 6.6428e-01_jprb,7.2392e-01_jprb,3.8827e+00_jprb/)  
kao( :, 1, 8, 7) = (/&
 & 1.6011e-02_jprb,1.1016e-01_jprb,2.0259e-01_jprb,2.8923e-01_jprb,3.7024e-01_jprb,4.4570e-01_jprb,&
 & 5.1977e-01_jprb,5.9363e-01_jprb,4.3984e+00_jprb/)  
kao( :, 2, 8, 7) = (/&
 & 1.4948e-02_jprb,1.1367e-01_jprb,2.0954e-01_jprb,2.9900e-01_jprb,3.8239e-01_jprb,4.5865e-01_jprb,&
 & 5.2962e-01_jprb,5.9992e-01_jprb,4.1028e+00_jprb/)  
kao( :, 3, 8, 7) = (/&
 & 1.4043e-02_jprb,1.1790e-01_jprb,2.1765e-01_jprb,3.1052e-01_jprb,3.9683e-01_jprb,4.7512e-01_jprb,&
 & 5.4401e-01_jprb,6.0979e-01_jprb,3.8451e+00_jprb/)  
kao( :, 4, 8, 7) = (/&
 & 1.3277e-02_jprb,1.2271e-01_jprb,2.2662e-01_jprb,3.2293e-01_jprb,4.1184e-01_jprb,4.9204e-01_jprb,&
 & 5.6016e-01_jprb,6.2114e-01_jprb,3.6180e+00_jprb/)  
kao( :, 5, 8, 7) = (/&
 & 1.2628e-02_jprb,1.2779e-01_jprb,2.3576e-01_jprb,3.3533e-01_jprb,4.2713e-01_jprb,5.0925e-01_jprb,&
 & 5.7770e-01_jprb,6.3359e-01_jprb,3.4160e+00_jprb/)  
kao( :, 1, 9, 7) = (/&
 & 1.3722e-02_jprb,9.3985e-02_jprb,1.7271e-01_jprb,2.4639e-01_jprb,3.1541e-01_jprb,3.8164e-01_jprb,&
 & 4.4798e-01_jprb,5.1362e-01_jprb,3.8929e+00_jprb/)  
kao( :, 2, 9, 7) = (/&
 & 1.2777e-02_jprb,9.7414e-02_jprb,1.7934e-01_jprb,2.5581e-01_jprb,3.2699e-01_jprb,3.9259e-01_jprb,&
 & 4.5617e-01_jprb,5.1941e-01_jprb,3.6200e+00_jprb/)  
kao( :, 3, 9, 7) = (/&
 & 1.1979e-02_jprb,1.0152e-01_jprb,1.8716e-01_jprb,2.6666e-01_jprb,3.4026e-01_jprb,4.0688e-01_jprb,&
 & 4.6784e-01_jprb,5.2783e-01_jprb,3.3828e+00_jprb/)  
kao( :, 4, 9, 7) = (/&
 & 1.1306e-02_jprb,1.0607e-01_jprb,1.9536e-01_jprb,2.7793e-01_jprb,3.5411e-01_jprb,4.2250e-01_jprb,&
 & 4.8212e-01_jprb,5.3856e-01_jprb,3.1744e+00_jprb/)  
kao( :, 5, 9, 7) = (/&
 & 1.0737e-02_jprb,1.1080e-01_jprb,2.0394e-01_jprb,2.8968e-01_jprb,3.6840e-01_jprb,4.3899e-01_jprb,&
 & 4.9835e-01_jprb,5.5128e-01_jprb,2.9902e+00_jprb/)  
kao( :, 1,10, 7) = (/&
 & 1.1712e-02_jprb,7.9698e-02_jprb,1.4636e-01_jprb,2.0884e-01_jprb,2.6772e-01_jprb,3.2572e-01_jprb,&
 & 3.8403e-01_jprb,4.4146e-01_jprb,3.4238e+00_jprb/)  
kao( :, 2,10, 7) = (/&
 & 1.0885e-02_jprb,8.2934e-02_jprb,1.5255e-01_jprb,2.1737e-01_jprb,2.7766e-01_jprb,3.3439e-01_jprb,&
 & 3.9066e-01_jprb,4.4635e-01_jprb,3.1745e+00_jprb/)  
kao( :, 3,10, 7) = (/&
 & 1.0188e-02_jprb,8.6824e-02_jprb,1.5967e-01_jprb,2.2716e-01_jprb,2.8954e-01_jprb,3.4626e-01_jprb,&
 & 4.0034e-01_jprb,4.5401e-01_jprb,2.9589e+00_jprb/)  
kao( :, 4,10, 7) = (/&
 & 9.6011e-03_jprb,9.1065e-02_jprb,1.6737e-01_jprb,2.3778e-01_jprb,3.0267e-01_jprb,3.6104e-01_jprb,&
 & 4.1369e-01_jprb,4.6516e-01_jprb,2.7702e+00_jprb/)  
kao( :, 5,10, 7) = (/&
 & 9.1043e-03_jprb,9.5561e-02_jprb,1.7554e-01_jprb,2.4912e-01_jprb,3.1674e-01_jprb,3.7708e-01_jprb,&
 & 4.2925e-01_jprb,4.7811e-01_jprb,2.6047e+00_jprb/)  
kao( :, 1,11, 7) = (/&
 & 9.6600e-03_jprb,6.8416e-02_jprb,1.2568e-01_jprb,1.7918e-01_jprb,2.2969e-01_jprb,2.7960e-01_jprb,&
 & 3.2973e-01_jprb,3.7899e-01_jprb,2.8930e+00_jprb/)  
kao( :, 2,11, 7) = (/&
 & 8.9878e-03_jprb,7.1652e-02_jprb,1.3155e-01_jprb,1.8712e-01_jprb,2.3867e-01_jprb,2.8757e-01_jprb,&
 & 3.3629e-01_jprb,3.8441e-01_jprb,2.6816e+00_jprb/)  
kao( :, 3,11, 7) = (/&
 & 8.4222e-03_jprb,7.5378e-02_jprb,1.3835e-01_jprb,1.9668e-01_jprb,2.5051e-01_jprb,2.9968e-01_jprb,&
 & 3.4702e-01_jprb,3.9398e-01_jprb,2.4985e+00_jprb/)  
kao( :, 4,11, 7) = (/&
 & 7.9456e-03_jprb,7.9499e-02_jprb,1.4588e-01_jprb,2.0704e-01_jprb,2.6333e-01_jprb,3.1396e-01_jprb,&
 & 3.6037e-01_jprb,4.0593e-01_jprb,2.3394e+00_jprb/)  
kao( :, 5,11, 7) = (/&
 & 7.5367e-03_jprb,8.3782e-02_jprb,1.5372e-01_jprb,2.1807e-01_jprb,2.7700e-01_jprb,3.2966e-01_jprb,&
 & 3.7579e-01_jprb,4.1961e-01_jprb,2.2005e+00_jprb/)  
kao( :, 1,12, 7) = (/&
 & 7.9651e-03_jprb,5.8686e-02_jprb,1.0769e-01_jprb,1.5334e-01_jprb,1.9661e-01_jprb,2.3953e-01_jprb,&
 & 2.8260e-01_jprb,3.2486e-01_jprb,2.4784e+00_jprb/)  
kao( :, 2,12, 7) = (/&
 & 7.4154e-03_jprb,6.1767e-02_jprb,1.1336e-01_jprb,1.6127e-01_jprb,2.0569e-01_jprb,2.4818e-01_jprb,&
 & 2.9059e-01_jprb,3.3236e-01_jprb,2.2967e+00_jprb/)  
kao( :, 3,12, 7) = (/&
 & 6.9534e-03_jprb,6.5368e-02_jprb,1.1996e-01_jprb,1.7048e-01_jprb,2.1709e-01_jprb,2.5998e-01_jprb,&
 & 3.0158e-01_jprb,3.4278e-01_jprb,2.1399e+00_jprb/)  
kao( :, 4,12, 7) = (/&
 & 6.5627e-03_jprb,6.9215e-02_jprb,1.2702e-01_jprb,1.8030e-01_jprb,2.2939e-01_jprb,2.7353e-01_jprb,&
 & 3.1454e-01_jprb,3.5481e-01_jprb,2.0047e+00_jprb/)  
kao( :, 5,12, 7) = (/&
 & 6.2252e-03_jprb,7.3310e-02_jprb,1.3449e-01_jprb,1.9068e-01_jprb,2.4194e-01_jprb,2.8763e-01_jprb,&
 & 3.2799e-01_jprb,3.6662e-01_jprb,1.8867e+00_jprb/)  
kao( :, 1,13, 7) = (/&
 & 6.5616e-03_jprb,5.0380e-02_jprb,9.2460e-02_jprb,1.3167e-01_jprb,1.6900e-01_jprb,2.0616e-01_jprb,&
 & 2.4338e-01_jprb,2.7988e-01_jprb,2.2117e+00_jprb/)  
kao( :, 2,13, 7) = (/&
 & 6.1120e-03_jprb,5.3375e-02_jprb,9.7998e-02_jprb,1.3948e-01_jprb,1.7796e-01_jprb,2.1500e-01_jprb,&
 & 2.5201e-01_jprb,2.8843e-01_jprb,2.0497e+00_jprb/)  
kao( :, 3,13, 7) = (/&
 & 5.7372e-03_jprb,5.6731e-02_jprb,1.0419e-01_jprb,1.4804e-01_jprb,1.8846e-01_jprb,2.2583e-01_jprb,&
 & 2.6228e-01_jprb,2.9829e-01_jprb,1.9105e+00_jprb/)  
kao( :, 4,13, 7) = (/&
 & 5.4187e-03_jprb,6.0281e-02_jprb,1.1054e-01_jprb,1.5676e-01_jprb,1.9913e-01_jprb,2.3709e-01_jprb,&
 & 2.7280e-01_jprb,3.0791e-01_jprb,1.7905e+00_jprb/)  
kao( :, 5,13, 7) = (/&
 & 5.1412e-03_jprb,6.3942e-02_jprb,1.1702e-01_jprb,1.6550e-01_jprb,2.0967e-01_jprb,2.4883e-01_jprb,&
 & 2.8378e-01_jprb,3.1751e-01_jprb,1.6855e+00_jprb/)  
kao( :, 1, 1, 8) = (/&
 & 8.0925e-02_jprb,4.4695e-01_jprb,8.0232e-01_jprb,1.1226e+00_jprb,1.4103e+00_jprb,1.6623e+00_jprb,&
 & 1.8647e+00_jprb,1.9976e+00_jprb,1.3169e+01_jprb/)  
kao( :, 2, 1, 8) = (/&
 & 7.9475e-02_jprb,4.6155e-01_jprb,8.2577e-01_jprb,1.1515e+00_jprb,1.4434e+00_jprb,1.6972e+00_jprb,&
 & 1.8967e+00_jprb,2.0110e+00_jprb,1.2516e+01_jprb/)  
kao( :, 3, 1, 8) = (/&
 & 7.9284e-02_jprb,4.7585e-01_jprb,8.4839e-01_jprb,1.1813e+00_jprb,1.4771e+00_jprb,1.7315e+00_jprb,&
 & 1.9304e+00_jprb,2.0281e+00_jprb,1.1933e+01_jprb/)  
kao( :, 4, 1, 8) = (/&
 & 8.0560e-02_jprb,4.9019e-01_jprb,8.7148e-01_jprb,1.2102e+00_jprb,1.5100e+00_jprb,1.7671e+00_jprb,&
 & 1.9624e+00_jprb,2.0460e+00_jprb,1.1433e+01_jprb/)  
kao( :, 5, 1, 8) = (/&
 & 8.3397e-02_jprb,5.0455e-01_jprb,8.9392e-01_jprb,1.2384e+00_jprb,1.5426e+00_jprb,1.7995e+00_jprb,&
 & 1.9927e+00_jprb,2.0655e+00_jprb,1.1063e+01_jprb/)  
kao( :, 1, 2, 8) = (/&
 & 6.6575e-02_jprb,4.3479e-01_jprb,7.7702e-01_jprb,1.0845e+00_jprb,1.3608e+00_jprb,1.6027e+00_jprb,&
 & 1.7979e+00_jprb,1.9533e+00_jprb,1.1027e+01_jprb/)  
kao( :, 2, 2, 8) = (/&
 & 6.4692e-02_jprb,4.5045e-01_jprb,8.0204e-01_jprb,1.1153e+00_jprb,1.3951e+00_jprb,1.6384e+00_jprb,&
 & 1.8309e+00_jprb,1.9634e+00_jprb,1.0460e+01_jprb/)  
kao( :, 3, 2, 8) = (/&
 & 6.3712e-02_jprb,4.6604e-01_jprb,8.2695e-01_jprb,1.1467e+00_jprb,1.4311e+00_jprb,1.6740e+00_jprb,&
 & 1.8639e+00_jprb,1.9755e+00_jprb,9.9574e+00_jprb/)  
kao( :, 4, 2, 8) = (/&
 & 6.3793e-02_jprb,4.8171e-01_jprb,8.5176e-01_jprb,1.1782e+00_jprb,1.4648e+00_jprb,1.7096e+00_jprb,&
 & 1.8945e+00_jprb,1.9900e+00_jprb,9.5122e+00_jprb/)  
kao( :, 5, 2, 8) = (/&
 & 6.5076e-02_jprb,4.9750e-01_jprb,8.7656e-01_jprb,1.2084e+00_jprb,1.4992e+00_jprb,1.7428e+00_jprb,&
 & 1.9259e+00_jprb,2.0066e+00_jprb,9.1382e+00_jprb/)  
kao( :, 1, 3, 8) = (/&
 & 5.5145e-02_jprb,4.1677e-01_jprb,7.4511e-01_jprb,1.0407e+00_jprb,1.3075e+00_jprb,1.5427e+00_jprb,&
 & 1.7389e+00_jprb,1.9204e+00_jprb,9.3514e+00_jprb/)  
kao( :, 2, 3, 8) = (/&
 & 5.2833e-02_jprb,4.3270e-01_jprb,7.7006e-01_jprb,1.0719e+00_jprb,1.3419e+00_jprb,1.5776e+00_jprb,&
 & 1.7672e+00_jprb,1.9272e+00_jprb,8.8440e+00_jprb/)  
kao( :, 3, 3, 8) = (/&
 & 5.1113e-02_jprb,4.4882e-01_jprb,7.9562e-01_jprb,1.1025e+00_jprb,1.3760e+00_jprb,1.6125e+00_jprb,&
 & 1.7982e+00_jprb,1.9366e+00_jprb,8.3935e+00_jprb/)  
kao( :, 4, 3, 8) = (/&
 & 5.0028e-02_jprb,4.6513e-01_jprb,8.2062e-01_jprb,1.1341e+00_jprb,1.4094e+00_jprb,1.6457e+00_jprb,&
 & 1.8296e+00_jprb,1.9485e+00_jprb,7.9906e+00_jprb/)  
kao( :, 5, 3, 8) = (/&
 & 4.9686e-02_jprb,4.8163e-01_jprb,8.4610e-01_jprb,1.1641e+00_jprb,1.4433e+00_jprb,1.6796e+00_jprb,&
 & 1.8613e+00_jprb,1.9622e+00_jprb,7.6298e+00_jprb/)  
kao( :, 1, 4, 8) = (/&
 & 4.6588e-02_jprb,3.9692e-01_jprb,7.1203e-01_jprb,9.9677e-01_jprb,1.2538e+00_jprb,1.4779e+00_jprb,&
 & 1.6775e+00_jprb,1.8726e+00_jprb,7.9787e+00_jprb/)  
kao( :, 2, 4, 8) = (/&
 & 4.4258e-02_jprb,4.1229e-01_jprb,7.3599e-01_jprb,1.0269e+00_jprb,1.2877e+00_jprb,1.5133e+00_jprb,&
 & 1.7010e+00_jprb,1.8766e+00_jprb,7.5234e+00_jprb/)  
kao( :, 3, 4, 8) = (/&
 & 4.2368e-02_jprb,4.2843e-01_jprb,7.6079e-01_jprb,1.0562e+00_jprb,1.3204e+00_jprb,1.5488e+00_jprb,&
 & 1.7282e+00_jprb,1.8838e+00_jprb,7.1193e+00_jprb/)  
kao( :, 4, 4, 8) = (/&
 & 4.0943e-02_jprb,4.4462e-01_jprb,7.8470e-01_jprb,1.0862e+00_jprb,1.3538e+00_jprb,1.5826e+00_jprb,&
 & 1.7585e+00_jprb,1.8945e+00_jprb,6.7587e+00_jprb/)  
kao( :, 5, 4, 8) = (/&
 & 4.0040e-02_jprb,4.6133e-01_jprb,8.0984e-01_jprb,1.1157e+00_jprb,1.3860e+00_jprb,1.6174e+00_jprb,&
 & 1.7900e+00_jprb,1.9072e+00_jprb,6.4359e+00_jprb/)  
kao( :, 1, 5, 8) = (/&
 & 3.9526e-02_jprb,3.7682e-01_jprb,6.7689e-01_jprb,9.4443e-01_jprb,1.1824e+00_jprb,1.3941e+00_jprb,&
 & 1.5967e+00_jprb,1.7951e+00_jprb,6.8177e+00_jprb/)  
kao( :, 2, 5, 8) = (/&
 & 3.7399e-02_jprb,3.9138e-01_jprb,7.0025e-01_jprb,9.7513e-01_jprb,1.2184e+00_jprb,1.4257e+00_jprb,&
 & 1.6138e+00_jprb,1.7967e+00_jprb,6.4101e+00_jprb/)  

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


SUBROUTINE part6

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


kao( :, 3, 5, 8) = (/&
 & 3.5621e-02_jprb,4.0679e-01_jprb,7.2414e-01_jprb,1.0055e+00_jprb,1.2524e+00_jprb,1.4609e+00_jprb,&
 & 1.6366e+00_jprb,1.8029e+00_jprb,6.0506e+00_jprb/)  
kao( :, 4, 5, 8) = (/&
 & 3.4188e-02_jprb,4.2215e-01_jprb,7.4791e-01_jprb,1.0353e+00_jprb,1.2879e+00_jprb,1.4982e+00_jprb,&
 & 1.6647e+00_jprb,1.8130e+00_jprb,5.7295e+00_jprb/)  
kao( :, 5, 5, 8) = (/&
 & 3.3152e-02_jprb,4.3822e-01_jprb,7.7182e-01_jprb,1.0659e+00_jprb,1.3217e+00_jprb,1.5355e+00_jprb,&
 & 1.6945e+00_jprb,1.8268e+00_jprb,5.4423e+00_jprb/)  
kao( :, 1, 6, 8) = (/&
 & 3.3649e-02_jprb,3.5246e-01_jprb,6.2833e-01_jprb,8.7232e-01_jprb,1.0890e+00_jprb,1.2936e+00_jprb,&
 & 1.4963e+00_jprb,1.6916e+00_jprb,5.8468e+00_jprb/)  
kao( :, 2, 6, 8) = (/&
 & 3.1717e-02_jprb,3.6739e-01_jprb,6.5289e-01_jprb,9.0324e-01_jprb,1.1228e+00_jprb,1.3194e+00_jprb,&
 & 1.5082e+00_jprb,1.6913e+00_jprb,5.4809e+00_jprb/)  
kao( :, 3, 6, 8) = (/&
 & 3.0089e-02_jprb,3.8258e-01_jprb,6.7739e-01_jprb,9.3533e-01_jprb,1.1590e+00_jprb,1.3502e+00_jprb,&
 & 1.5266e+00_jprb,1.6967e+00_jprb,5.1581e+00_jprb/)  
kao( :, 4, 6, 8) = (/&
 & 2.8750e-02_jprb,3.9797e-01_jprb,7.0274e-01_jprb,9.6682e-01_jprb,1.1958e+00_jprb,1.3860e+00_jprb,&
 & 1.5502e+00_jprb,1.7067e+00_jprb,4.8739e+00_jprb/)  
kao( :, 5, 6, 8) = (/&
 & 2.7719e-02_jprb,4.1340e-01_jprb,7.2752e-01_jprb,9.9958e-01_jprb,1.2327e+00_jprb,1.4235e+00_jprb,&
 & 1.5795e+00_jprb,1.7225e+00_jprb,4.6250e+00_jprb/)  
kao( :, 1, 7, 8) = (/&
 & 2.8686e-02_jprb,3.2127e-01_jprb,5.6887e-01_jprb,7.8697e-01_jprb,9.8824e-01_jprb,1.1850e+00_jprb,&
 & 1.3805e+00_jprb,1.5678e+00_jprb,5.0771e+00_jprb/)  
kao( :, 2, 7, 8) = (/&
 & 2.6938e-02_jprb,3.3637e-01_jprb,5.9372e-01_jprb,8.1756e-01_jprb,1.0158e+00_jprb,1.2031e+00_jprb,&
 & 1.3885e+00_jprb,1.5659e+00_jprb,4.7449e+00_jprb/)  
kao( :, 3, 7, 8) = (/&
 & 2.5461e-02_jprb,3.5175e-01_jprb,6.1823e-01_jprb,8.4914e-01_jprb,1.0491e+00_jprb,1.2297e+00_jprb,&
 & 1.4035e+00_jprb,1.5709e+00_jprb,4.4560e+00_jprb/)  
kao( :, 4, 7, 8) = (/&
 & 2.4234e-02_jprb,3.6782e-01_jprb,6.4422e-01_jprb,8.8204e-01_jprb,1.0858e+00_jprb,1.2613e+00_jprb,&
 & 1.4250e+00_jprb,1.5825e+00_jprb,4.2060e+00_jprb/)  
kao( :, 5, 7, 8) = (/&
 & 2.3263e-02_jprb,3.8390e-01_jprb,6.7021e-01_jprb,9.1556e-01_jprb,1.1251e+00_jprb,1.2988e+00_jprb,&
 & 1.4532e+00_jprb,1.6007e+00_jprb,3.9900e+00_jprb/)  
kao( :, 1, 8, 8) = (/&
 & 2.4476e-02_jprb,2.8592e-01_jprb,5.0420e-01_jprb,6.9822e-01_jprb,8.8452e-01_jprb,1.0702e+00_jprb,&
 & 1.2531e+00_jprb,1.4283e+00_jprb,4.5096e+00_jprb/)  
kao( :, 2, 8, 8) = (/&
 & 2.2902e-02_jprb,3.0083e-01_jprb,5.2768e-01_jprb,7.2503e-01_jprb,9.0657e-01_jprb,1.0833e+00_jprb,&
 & 1.2584e+00_jprb,1.4254e+00_jprb,4.2037e+00_jprb/)  
kao( :, 3, 8, 8) = (/&
 & 2.1570e-02_jprb,3.1592e-01_jprb,5.5240e-01_jprb,7.5563e-01_jprb,9.3505e-01_jprb,1.1044e+00_jprb,&
 & 1.2718e+00_jprb,1.4312e+00_jprb,3.9432e+00_jprb/)  
kao( :, 4, 8, 8) = (/&
 & 2.0460e-02_jprb,3.3184e-01_jprb,5.7760e-01_jprb,7.8855e-01_jprb,9.6959e-01_jprb,1.1343e+00_jprb,&
 & 1.2935e+00_jprb,1.4455e+00_jprb,3.7209e+00_jprb/)  
kao( :, 5, 8, 8) = (/&
 & 1.9571e-02_jprb,3.4825e-01_jprb,6.0453e-01_jprb,8.2286e-01_jprb,1.0085e+00_jprb,1.1703e+00_jprb,&
 & 1.3222e+00_jprb,1.4674e+00_jprb,3.5292e+00_jprb/)  
kao( :, 1, 9, 8) = (/&
 & 2.0914e-02_jprb,2.4921e-01_jprb,4.3781e-01_jprb,6.1146e-01_jprb,7.8268e-01_jprb,9.5318e-01_jprb,&
 & 1.1204e+00_jprb,1.2813e+00_jprb,3.9890e+00_jprb/)  
kao( :, 2, 9, 8) = (/&
 & 1.9500e-02_jprb,2.6300e-01_jprb,4.5963e-01_jprb,6.3281e-01_jprb,7.9816e-01_jprb,9.6251e-01_jprb,&
 & 1.1241e+00_jprb,1.2781e+00_jprb,3.7129e+00_jprb/)  
kao( :, 3, 9, 8) = (/&
 & 1.8305e-02_jprb,2.7783e-01_jprb,4.8302e-01_jprb,6.5998e-01_jprb,8.2260e-01_jprb,9.8070e-01_jprb,&
 & 1.1371e+00_jprb,1.2855e+00_jprb,3.4817e+00_jprb/)  
kao( :, 4, 9, 8) = (/&
 & 1.7310e-02_jprb,2.9315e-01_jprb,5.0848e-01_jprb,6.9210e-01_jprb,8.5443e-01_jprb,1.0078e+00_jprb,&
 & 1.1591e+00_jprb,1.3024e+00_jprb,3.2848e+00_jprb/)  
kao( :, 5, 9, 8) = (/&
 & 1.6510e-02_jprb,3.0981e-01_jprb,5.3550e-01_jprb,7.2742e-01_jprb,8.9223e-01_jprb,1.0429e+00_jprb,&
 & 1.1888e+00_jprb,1.3273e+00_jprb,3.1158e+00_jprb/)  
kao( :, 1,10, 8) = (/&
 & 1.7793e-02_jprb,2.1412e-01_jprb,3.7675e-01_jprb,5.3142e-01_jprb,6.8591e-01_jprb,8.3908e-01_jprb,&
 & 9.8911e-01_jprb,1.1340e+00_jprb,3.5109e+00_jprb/)  
kao( :, 2,10, 8) = (/&
 & 1.6546e-02_jprb,2.2684e-01_jprb,3.9518e-01_jprb,5.4826e-01_jprb,6.9777e-01_jprb,8.4666e-01_jprb,&
 & 9.9261e-01_jprb,1.1322e+00_jprb,3.2650e+00_jprb/)  
kao( :, 3,10, 8) = (/&
 & 1.5496e-02_jprb,2.4055e-01_jprb,4.1757e-01_jprb,5.7218e-01_jprb,7.1874e-01_jprb,8.6407e-01_jprb,&
 & 1.0067e+00_jprb,1.1422e+00_jprb,3.0604e+00_jprb/)  
kao( :, 4,10, 8) = (/&
 & 1.4625e-02_jprb,2.5576e-01_jprb,4.4224e-01_jprb,6.0209e-01_jprb,7.4840e-01_jprb,8.9005e-01_jprb,&
 & 1.0298e+00_jprb,1.1620e+00_jprb,2.8873e+00_jprb/)  
kao( :, 5,10, 8) = (/&
 & 1.3927e-02_jprb,2.7189e-01_jprb,4.6913e-01_jprb,6.3661e-01_jprb,7.8430e-01_jprb,9.2340e-01_jprb,&
 & 1.0602e+00_jprb,1.1893e+00_jprb,2.7412e+00_jprb/)  
kao( :, 1,11, 8) = (/&
 & 1.4634e-02_jprb,1.8646e-01_jprb,3.2761e-01_jprb,4.6309e-01_jprb,5.9849e-01_jprb,7.3245e-01_jprb,&
 & 8.6367e-01_jprb,9.9041e-01_jprb,2.9771e+00_jprb/)  
kao( :, 2,11, 8) = (/&
 & 1.3624e-02_jprb,1.9847e-01_jprb,3.4526e-01_jprb,4.8008e-01_jprb,6.1254e-01_jprb,7.4424e-01_jprb,&
 & 8.7321e-01_jprb,9.9642e-01_jprb,2.7768e+00_jprb/)  
kao( :, 3,11, 8) = (/&
 & 1.2781e-02_jprb,2.1218e-01_jprb,3.6739e-01_jprb,5.0421e-01_jprb,6.3507e-01_jprb,7.6517e-01_jprb,&
 & 8.9263e-01_jprb,1.0135e+00_jprb,2.6101e+00_jprb/)  
kao( :, 4,11, 8) = (/&
 & 1.2094e-02_jprb,2.2714e-01_jprb,3.9240e-01_jprb,5.3424e-01_jprb,6.6566e-01_jprb,7.9378e-01_jprb,&
 & 9.1970e-01_jprb,1.0385e+00_jprb,2.4710e+00_jprb/)  
kao( :, 5,11, 8) = (/&
 & 1.1565e-02_jprb,2.4340e-01_jprb,4.1903e-01_jprb,5.6803e-01_jprb,7.0132e-01_jprb,8.2803e-01_jprb,&
 & 9.5252e-01_jprb,1.0696e+00_jprb,2.3570e+00_jprb/)  
kao( :, 1,12, 8) = (/&
 & 1.2066e-02_jprb,1.6101e-01_jprb,2.8340e-01_jprb,4.0165e-01_jprb,5.1974e-01_jprb,6.3658e-01_jprb,&
 & 7.5093e-01_jprb,8.6137e-01_jprb,2.5621e+00_jprb/)  
kao( :, 2,12, 8) = (/&
 & 1.1251e-02_jprb,1.7279e-01_jprb,3.0073e-01_jprb,4.1913e-01_jprb,5.3610e-01_jprb,6.5212e-01_jprb,&
 & 7.6558e-01_jprb,8.7414e-01_jprb,2.3949e+00_jprb/)  
kao( :, 3,12, 8) = (/&
 & 1.0577e-02_jprb,1.8625e-01_jprb,3.2218e-01_jprb,4.4327e-01_jprb,5.5974e-01_jprb,6.7543e-01_jprb,&
 & 7.8860e-01_jprb,8.9593e-01_jprb,2.2565e+00_jprb/)  
kao( :, 4,12, 8) = (/&
 & 1.0040e-02_jprb,2.0090e-01_jprb,3.4668e-01_jprb,4.7237e-01_jprb,5.8984e-01_jprb,7.0511e-01_jprb,&
 & 8.1812e-01_jprb,9.2463e-01_jprb,2.1449e+00_jprb/)  
kao( :, 5,12, 8) = (/&
 & 9.6497e-03_jprb,2.1689e-01_jprb,3.7279e-01_jprb,5.0486e-01_jprb,6.2430e-01_jprb,7.3876e-01_jprb,&
 & 8.5101e-01_jprb,9.5619e-01_jprb,2.0655e+00_jprb/)  
kao( :, 1,13, 8) = (/&
 & 9.9585e-03_jprb,1.3861e-01_jprb,2.4453e-01_jprb,3.4735e-01_jprb,4.5003e-01_jprb,5.5145e-01_jprb,&
 & 6.5075e-01_jprb,7.4674e-01_jprb,2.2898e+00_jprb/)  
kao( :, 2,13, 8) = (/&
 & 9.2992e-03_jprb,1.5005e-01_jprb,2.6138e-01_jprb,3.6503e-01_jprb,4.6776e-01_jprb,5.6948e-01_jprb,&
 & 6.6893e-01_jprb,7.6408e-01_jprb,2.1410e+00_jprb/)  
kao( :, 3,13, 8) = (/&
 & 8.7626e-03_jprb,1.6301e-01_jprb,2.8187e-01_jprb,3.8870e-01_jprb,4.9199e-01_jprb,5.9459e-01_jprb,&
 & 6.9480e-01_jprb,7.8975e-01_jprb,2.0213e+00_jprb/)  
kao( :, 4,13, 8) = (/&
 & 8.3523e-03_jprb,1.7715e-01_jprb,3.0539e-01_jprb,4.1632e-01_jprb,5.2068e-01_jprb,6.2370e-01_jprb,&
 & 7.2425e-01_jprb,8.1879e-01_jprb,1.9340e+00_jprb/)  
kao( :, 5,13, 8) = (/&
 & 8.0561e-03_jprb,1.9260e-01_jprb,3.3012e-01_jprb,4.4598e-01_jprb,5.5239e-01_jprb,6.5539e-01_jprb,&
 & 7.5612e-01_jprb,8.5015e-01_jprb,1.8746e+00_jprb/)  
kao( :, 1, 1, 9) = (/&
 & 1.4008e+00_jprb,1.6014e+00_jprb,2.0178e+00_jprb,2.5290e+00_jprb,3.0648e+00_jprb,3.4883e+00_jprb,&
 & 3.8106e+00_jprb,4.1078e+00_jprb,1.3510e+01_jprb/)  
kao( :, 2, 1, 9) = (/&
 & 1.8642e+00_jprb,1.9682e+00_jprb,2.2869e+00_jprb,2.7055e+00_jprb,3.2045e+00_jprb,3.6259e+00_jprb,&
 & 3.9148e+00_jprb,4.1490e+00_jprb,1.3219e+01_jprb/)  
kao( :, 3, 1, 9) = (/&
 & 2.4188e+00_jprb,2.4150e+00_jprb,2.6255e+00_jprb,2.9382e+00_jprb,3.3460e+00_jprb,3.7645e+00_jprb,&
 & 4.0194e+00_jprb,4.1942e+00_jprb,1.3301e+01_jprb/)  
kao( :, 4, 1, 9) = (/&
 & 3.0606e+00_jprb,2.9381e+00_jprb,3.0294e+00_jprb,3.2272e+00_jprb,3.5230e+00_jprb,3.8956e+00_jprb,&
 & 4.1275e+00_jprb,4.2397e+00_jprb,1.3766e+01_jprb/)  
kao( :, 5, 1, 9) = (/&
 & 3.7794e+00_jprb,3.5290e+00_jprb,3.4922e+00_jprb,3.5653e+00_jprb,3.7393e+00_jprb,4.0279e+00_jprb,&
 & 4.2356e+00_jprb,4.2849e+00_jprb,1.4541e+01_jprb/)  
kao( :, 1, 2, 9) = (/&
 & 1.0743e+00_jprb,1.4254e+00_jprb,1.9959e+00_jprb,2.6242e+00_jprb,3.1478e+00_jprb,3.5640e+00_jprb,&
 & 3.9315e+00_jprb,4.2780e+00_jprb,1.1246e+01_jprb/)  
kao( :, 2, 2, 9) = (/&
 & 1.4450e+00_jprb,1.7077e+00_jprb,2.1920e+00_jprb,2.7731e+00_jprb,3.3077e+00_jprb,3.7068e+00_jprb,&
 & 4.0280e+00_jprb,4.3205e+00_jprb,1.0854e+01_jprb/)  
kao( :, 3, 2, 9) = (/&
 & 1.8935e+00_jprb,2.0578e+00_jprb,2.4461e+00_jprb,2.9377e+00_jprb,3.4636e+00_jprb,3.8524e+00_jprb,&
 & 4.1310e+00_jprb,4.3656e+00_jprb,1.0696e+01_jprb/)  
kao( :, 4, 2, 9) = (/&
 & 2.4131e+00_jprb,2.4697e+00_jprb,2.7529e+00_jprb,3.1439e+00_jprb,3.6214e+00_jprb,3.9997e+00_jprb,&
 & 4.2395e+00_jprb,4.4100e+00_jprb,1.0792e+01_jprb/)  
kao( :, 5, 2, 9) = (/&
 & 3.0060e+00_jprb,2.9455e+00_jprb,3.1147e+00_jprb,3.3967e+00_jprb,3.7810e+00_jprb,4.1480e+00_jprb,&
 & 4.3467e+00_jprb,4.4539e+00_jprb,1.1120e+01_jprb/)  
kao( :, 1, 3, 9) = (/&
 & 7.6472e-01_jprb,1.2830e+00_jprb,2.0011e+00_jprb,2.6221e+00_jprb,3.1251e+00_jprb,3.5689e+00_jprb,&
 & 3.9960e+00_jprb,4.3904e+00_jprb,9.5265e+00_jprb/)  
kao( :, 2, 3, 9) = (/&
 & 1.0454e+00_jprb,1.4850e+00_jprb,2.1444e+00_jprb,2.7873e+00_jprb,3.2876e+00_jprb,3.7049e+00_jprb,&
 & 4.0848e+00_jprb,4.4319e+00_jprb,9.1222e+00_jprb/)  
kao( :, 3, 3, 9) = (/&
 & 1.3885e+00_jprb,1.7405e+00_jprb,2.3171e+00_jprb,2.9536e+00_jprb,3.4575e+00_jprb,3.8474e+00_jprb,&
 & 4.1795e+00_jprb,4.4739e+00_jprb,8.8598e+00_jprb/)  
kao( :, 4, 3, 9) = (/&
 & 1.7962e+00_jprb,2.0514e+00_jprb,2.5375e+00_jprb,3.1222e+00_jprb,3.6306e+00_jprb,3.9962e+00_jprb,&
 & 4.2785e+00_jprb,4.5165e+00_jprb,8.7328e+00_jprb/)  
kao( :, 5, 3, 9) = (/&
 & 2.2640e+00_jprb,2.4140e+00_jprb,2.8016e+00_jprb,3.3001e+00_jprb,3.8026e+00_jprb,4.1450e+00_jprb,&
 & 4.3795e+00_jprb,4.5585e+00_jprb,8.7266e+00_jprb/)  
kao( :, 1, 4, 9) = (/&
 & 5.2796e-01_jprb,1.2120e+00_jprb,1.9543e+00_jprb,2.5382e+00_jprb,3.0533e+00_jprb,3.5474e+00_jprb,&
 & 4.0298e+00_jprb,4.4716e+00_jprb,8.2598e+00_jprb/)  
kao( :, 2, 4, 9) = (/&
 & 7.3237e-01_jprb,1.3475e+00_jprb,2.1063e+00_jprb,2.7052e+00_jprb,3.2055e+00_jprb,3.6631e+00_jprb,&
 & 4.1092e+00_jprb,4.5092e+00_jprb,7.9321e+00_jprb/)  
kao( :, 3, 4, 9) = (/&
 & 9.9035e-01_jprb,1.5277e+00_jprb,2.2632e+00_jprb,2.8812e+00_jprb,3.3695e+00_jprb,3.7914e+00_jprb,&
 & 4.1936e+00_jprb,4.5489e+00_jprb,7.6815e+00_jprb/)  
kao( :, 4, 4, 9) = (/&
 & 1.3002e+00_jprb,1.7521e+00_jprb,2.4291e+00_jprb,3.0611e+00_jprb,3.5379e+00_jprb,3.9283e+00_jprb,&
 & 4.2814e+00_jprb,4.5884e+00_jprb,7.5173e+00_jprb/)  
kao( :, 5, 4, 9) = (/&
 & 1.6645e+00_jprb,2.0223e+00_jprb,2.6149e+00_jprb,3.2452e+00_jprb,3.7109e+00_jprb,4.0687e+00_jprb,&
 & 4.3710e+00_jprb,4.6264e+00_jprb,7.4184e+00_jprb/)  
kao( :, 1, 5, 9) = (/&
 & 3.6057e-01_jprb,1.1636e+00_jprb,1.8513e+00_jprb,2.4342e+00_jprb,2.9866e+00_jprb,3.5323e+00_jprb,&
 & 4.0567e+00_jprb,4.5370e+00_jprb,7.4568e+00_jprb/)  
kao( :, 2, 5, 9) = (/&
 & 5.0709e-01_jprb,1.2813e+00_jprb,2.0048e+00_jprb,2.5857e+00_jprb,3.1141e+00_jprb,3.6303e+00_jprb,&
 & 4.1258e+00_jprb,4.5699e+00_jprb,7.1852e+00_jprb/)  
kao( :, 3, 5, 9) = (/&
 & 6.9711e-01_jprb,1.4088e+00_jprb,2.1674e+00_jprb,2.7491e+00_jprb,3.2569e+00_jprb,3.7377e+00_jprb,&
 & 4.1985e+00_jprb,4.6043e+00_jprb,6.9783e+00_jprb/)  
kao( :, 4, 5, 9) = (/&
 & 9.3089e-01_jprb,1.5674e+00_jprb,2.3376e+00_jprb,2.9224e+00_jprb,3.4095e+00_jprb,3.8525e+00_jprb,&
 & 4.2748e+00_jprb,4.6380e+00_jprb,6.8324e+00_jprb/)  
kao( :, 5, 5, 9) = (/&
 & 1.2095e+00_jprb,1.7631e+00_jprb,2.5127e+00_jprb,3.1011e+00_jprb,3.5697e+00_jprb,3.9735e+00_jprb,&
 & 4.3536e+00_jprb,4.6710e+00_jprb,6.7237e+00_jprb/)  
kao( :, 1, 6, 9) = (/&
 & 2.4200e-01_jprb,1.0838e+00_jprb,1.7394e+00_jprb,2.3387e+00_jprb,2.9299e+00_jprb,3.5073e+00_jprb,&
 & 4.0603e+00_jprb,4.5751e+00_jprb,6.9990e+00_jprb/)  
kao( :, 2, 6, 9) = (/&
 & 3.4394e-01_jprb,1.1999e+00_jprb,1.8760e+00_jprb,2.4663e+00_jprb,3.0343e+00_jprb,3.5897e+00_jprb,&
 & 4.1192e+00_jprb,4.6007e+00_jprb,6.7915e+00_jprb/)  
kao( :, 3, 6, 9) = (/&
 & 4.8030e-01_jprb,1.3232e+00_jprb,2.0255e+00_jprb,2.6081e+00_jprb,3.1512e+00_jprb,3.6810e+00_jprb,&
 & 4.1825e+00_jprb,4.6279e+00_jprb,6.6211e+00_jprb/)  
kao( :, 4, 6, 9) = (/&
 & 6.5272e-01_jprb,1.4558e+00_jprb,2.1847e+00_jprb,2.7631e+00_jprb,3.2807e+00_jprb,3.7792e+00_jprb,&
 & 4.2485e+00_jprb,4.6560e+00_jprb,6.4814e+00_jprb/)  
kao( :, 5, 6, 9) = (/&
 & 8.6213e-01_jprb,1.5990e+00_jprb,2.3528e+00_jprb,2.9249e+00_jprb,3.4200e+00_jprb,3.8827e+00_jprb,&
 & 4.3177e+00_jprb,4.6844e+00_jprb,6.3643e+00_jprb/)  
kao( :, 1, 7, 9) = (/&
 & 1.6234e-01_jprb,9.9163e-01_jprb,1.6372e+00_jprb,2.2588e+00_jprb,2.8704e+00_jprb,3.4657e+00_jprb,&
 & 4.0381e+00_jprb,4.5791e+00_jprb,6.7312e+00_jprb/)  
kao( :, 2, 7, 9) = (/&
 & 2.3147e-01_jprb,1.0981e+00_jprb,1.7520e+00_jprb,2.3595e+00_jprb,2.9563e+00_jprb,3.5352e+00_jprb,&
 & 4.0869e+00_jprb,4.5966e+00_jprb,6.5680e+00_jprb/)  
kao( :, 3, 7, 9) = (/&
 & 3.2772e-01_jprb,1.2156e+00_jprb,1.8829e+00_jprb,2.4770e+00_jprb,3.0534e+00_jprb,3.6116e+00_jprb,&
 & 4.1400e+00_jprb,4.6166e+00_jprb,6.4257e+00_jprb/)  
kao( :, 4, 7, 9) = (/&
 & 4.5268e-01_jprb,1.3423e+00_jprb,2.0240e+00_jprb,2.6084e+00_jprb,3.1603e+00_jprb,3.6950e+00_jprb,&
 & 4.1975e+00_jprb,4.6391e+00_jprb,6.2960e+00_jprb/)  
kao( :, 5, 7, 9) = (/&
 & 6.0838e-01_jprb,1.4784e+00_jprb,2.1759e+00_jprb,2.7497e+00_jprb,3.2763e+00_jprb,3.7840e+00_jprb,&
 & 4.2569e+00_jprb,4.6620e+00_jprb,6.1756e+00_jprb/)  
kao( :, 1, 8, 9) = (/&
 & 1.1004e-01_jprb,9.0528e-01_jprb,1.5488e+00_jprb,2.1828e+00_jprb,2.8043e+00_jprb,3.4087e+00_jprb,&
 & 3.9936e+00_jprb,4.5522e+00_jprb,6.5679e+00_jprb/)  
kao( :, 2, 8, 9) = (/&
 & 1.5599e-01_jprb,9.9632e-01_jprb,1.6406e+00_jprb,2.2628e+00_jprb,2.8729e+00_jprb,3.4645e+00_jprb,&
 & 4.0312e+00_jprb,4.5616e+00_jprb,6.4237e+00_jprb/)  
kao( :, 3, 8, 9) = (/&
 & 2.2275e-01_jprb,1.1002e+00_jprb,1.7485e+00_jprb,2.3565e+00_jprb,2.9517e+00_jprb,3.5270e+00_jprb,&
 & 4.0737e+00_jprb,4.5749e+00_jprb,6.2919e+00_jprb/)  
kao( :, 4, 8, 9) = (/&
 & 3.1235e-01_jprb,1.2144e+00_jprb,1.8706e+00_jprb,2.4635e+00_jprb,3.0405e+00_jprb,3.5959e+00_jprb,&
 & 4.1201e+00_jprb,4.5903e+00_jprb,6.1693e+00_jprb/)  
kao( :, 5, 8, 9) = (/&
 & 4.2664e-01_jprb,1.3386e+00_jprb,2.0030e+00_jprb,2.5834e+00_jprb,3.1377e+00_jprb,3.6706e+00_jprb,&
 & 4.1692e+00_jprb,4.6062e+00_jprb,6.0528e+00_jprb/)  
kao( :, 1, 9, 9) = (/&
 & 7.5621e-02_jprb,8.2912e-01_jprb,1.4726e+00_jprb,2.1058e+00_jprb,2.7258e+00_jprb,3.3321e+00_jprb,&
 & 3.9225e+00_jprb,4.4919e+00_jprb,6.3820e+00_jprb/)  
kao( :, 2, 9, 9) = (/&
 & 1.0543e-01_jprb,9.0364e-01_jprb,1.5428e+00_jprb,2.1689e+00_jprb,2.7807e+00_jprb,3.3755e+00_jprb,&
 & 3.9494e+00_jprb,4.4934e+00_jprb,6.2476e+00_jprb/)  
kao( :, 3, 9, 9) = (/&
 & 1.5066e-01_jprb,9.9073e-01_jprb,1.6283e+00_jprb,2.2439e+00_jprb,2.8447e+00_jprb,3.4264e+00_jprb,&
 & 3.9821e+00_jprb,4.4994e+00_jprb,6.1231e+00_jprb/)  
kao( :, 4, 9, 9) = (/&
 & 2.1408e-01_jprb,1.0896e+00_jprb,1.7277e+00_jprb,2.3302e+00_jprb,2.9173e+00_jprb,3.4831e+00_jprb,&
 & 4.0188e+00_jprb,4.5079e+00_jprb,6.0062e+00_jprb/)  
kao( :, 5, 9, 9) = (/&
 & 2.9679e-01_jprb,1.1980e+00_jprb,1.8391e+00_jprb,2.4267e+00_jprb,2.9974e+00_jprb,3.5447e+00_jprb,&
 & 4.0590e+00_jprb,4.5182e+00_jprb,5.8937e+00_jprb/)  
kao( :, 1,10, 9) = (/&
 & 5.4240e-02_jprb,7.6886e-01_jprb,1.4043e+00_jprb,2.0272e+00_jprb,2.6366e+00_jprb,3.2336e+00_jprb,&
 & 3.8172e+00_jprb,4.3834e+00_jprb,6.1517e+00_jprb/)  
kao( :, 2,10, 9) = (/&
 & 7.3880e-02_jprb,8.2766e-01_jprb,1.4592e+00_jprb,2.0774e+00_jprb,2.6804e+00_jprb,3.2668e+00_jprb,&
 & 3.8346e+00_jprb,4.3761e+00_jprb,6.0252e+00_jprb/)  
kao( :, 3,10, 9) = (/&
 & 1.0494e-01_jprb,8.9945e-01_jprb,1.5264e+00_jprb,2.1379e+00_jprb,2.7325e+00_jprb,3.3074e+00_jprb,&
 & 3.8583e+00_jprb,4.3744e+00_jprb,5.9074e+00_jprb/)  
kao( :, 4,10, 9) = (/&
 & 1.5013e-01_jprb,9.8203e-01_jprb,1.6069e+00_jprb,2.2084e+00_jprb,2.7922e+00_jprb,3.3540e+00_jprb,&
 & 3.8866e+00_jprb,4.3763e+00_jprb,5.7958e+00_jprb/)  
kao( :, 5,10, 9) = (/&
 & 2.1071e-01_jprb,1.0751e+00_jprb,1.6988e+00_jprb,2.2877e+00_jprb,2.8591e+00_jprb,3.4064e+00_jprb,&
 & 3.9198e+00_jprb,4.3819e+00_jprb,5.6875e+00_jprb/)  
kao( :, 1,11, 9) = (/&
 & 4.4683e-02_jprb,7.3372e-01_jprb,1.3451e+00_jprb,1.9417e+00_jprb,2.5248e+00_jprb,3.0962e+00_jprb,&
 & 3.6538e+00_jprb,4.1928e+00_jprb,5.8131e+00_jprb/)  
kao( :, 2,11, 9) = (/&
 & 6.0954e-02_jprb,7.8585e-01_jprb,1.3950e+00_jprb,1.9873e+00_jprb,2.5636e+00_jprb,3.1235e+00_jprb,&
 & 3.6649e+00_jprb,4.1802e+00_jprb,5.6980e+00_jprb/)  
kao( :, 3,11, 9) = (/&
 & 8.6688e-02_jprb,8.4834e-01_jprb,1.4554e+00_jprb,2.0422e+00_jprb,2.6105e+00_jprb,3.1582e+00_jprb,&
 & 3.6827e+00_jprb,4.1732e+00_jprb,5.5896e+00_jprb/)  

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


SUBROUTINE part7

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


kao( :, 4,11, 9) = (/&
 & 1.2398e-01_jprb,9.2090e-01_jprb,1.5262e+00_jprb,2.1063e+00_jprb,2.6652e+00_jprb,3.2007e+00_jprb,&
 & 3.7079e+00_jprb,4.1732e+00_jprb,5.4857e+00_jprb/)  
kao( :, 5,11, 9) = (/&
 & 1.7398e-01_jprb,1.0025e+00_jprb,1.6073e+00_jprb,2.1784e+00_jprb,2.7274e+00_jprb,3.2503e+00_jprb,&
 & 3.7400e+00_jprb,4.1797e+00_jprb,5.3881e+00_jprb/)  
kao( :, 1,12, 9) = (/&
 & 3.6885e-02_jprb,6.8826e-01_jprb,1.2637e+00_jprb,1.8240e+00_jprb,2.3716e+00_jprb,2.9070e+00_jprb,&
 & 3.4294e+00_jprb,3.9342e+00_jprb,5.4594e+00_jprb/)  
kao( :, 2,12, 9) = (/&
 & 5.0362e-02_jprb,7.3520e-01_jprb,1.3086e+00_jprb,1.8646e+00_jprb,2.4044e+00_jprb,2.9285e+00_jprb,&
 & 3.4352e+00_jprb,3.9171e+00_jprb,5.3534e+00_jprb/)  
kao( :, 3,12, 9) = (/&
 & 7.1651e-02_jprb,7.9173e-01_jprb,1.3635e+00_jprb,1.9144e+00_jprb,2.4467e+00_jprb,2.9595e+00_jprb,&
 & 3.4502e+00_jprb,3.9090e+00_jprb,5.2531e+00_jprb/)  
kao( :, 4,12, 9) = (/&
 & 1.0249e-01_jprb,8.5728e-01_jprb,1.4282e+00_jprb,1.9738e+00_jprb,2.4980e+00_jprb,2.9998e+00_jprb,&
 & 3.4748e+00_jprb,3.9108e+00_jprb,5.1595e+00_jprb/)  
kao( :, 5,12, 9) = (/&
 & 1.4372e-01_jprb,9.2980e-01_jprb,1.5022e+00_jprb,2.0418e+00_jprb,2.5591e+00_jprb,3.0515e+00_jprb,&
 & 3.5127e+00_jprb,3.9276e+00_jprb,5.0750e+00_jprb/)  
kao( :, 1,13, 9) = (/&
 & 3.0491e-02_jprb,6.3441e-01_jprb,1.1660e+00_jprb,1.6828e+00_jprb,2.1872e+00_jprb,2.6805e+00_jprb,&
 & 3.1616e+00_jprb,3.6254e+00_jprb,5.1279e+00_jprb/)  
kao( :, 2,13, 9) = (/&
 & 4.1640e-02_jprb,6.7602e-01_jprb,1.2060e+00_jprb,1.7186e+00_jprb,2.2159e+00_jprb,2.6988e+00_jprb,&
 & 3.1653e+00_jprb,3.6082e+00_jprb,5.0296e+00_jprb/)  
kao( :, 3,13, 9) = (/&
 & 5.9248e-02_jprb,7.2677e-01_jprb,1.2558e+00_jprb,1.7643e+00_jprb,2.2553e+00_jprb,2.7282e+00_jprb,&
 & 3.1808e+00_jprb,3.6035e+00_jprb,4.9390e+00_jprb/)  
kao( :, 4,13, 9) = (/&
 & 8.4663e-02_jprb,7.8595e-01_jprb,1.3152e+00_jprb,1.8213e+00_jprb,2.3074e+00_jprb,2.7724e+00_jprb,&
 & 3.2128e+00_jprb,3.6169e+00_jprb,4.8589e+00_jprb/)  
kao( :, 5,13, 9) = (/&
 & 1.1865e-01_jprb,8.5205e-01_jprb,1.3845e+00_jprb,1.8890e+00_jprb,2.3711e+00_jprb,2.8293e+00_jprb,&
 & 3.2586e+00_jprb,3.6454e+00_jprb,4.7958e+00_jprb/)  
kao( :, 1, 1,10) = (/&
 & 8.3046e+00_jprb,7.2666e+00_jprb,6.2285e+00_jprb,5.1904e+00_jprb,4.7329e+00_jprb,5.2261e+00_jprb,&
 & 5.7808e+00_jprb,6.3145e+00_jprb,1.5403e+01_jprb/)  
kao( :, 2, 1,10) = (/&
 & 1.0500e+01_jprb,9.1879e+00_jprb,7.8753e+00_jprb,6.5628e+00_jprb,5.3429e+00_jprb,5.4501e+00_jprb,&
 & 5.9313e+00_jprb,6.4007e+00_jprb,1.7452e+01_jprb/)  
kao( :, 3, 1,10) = (/&
 & 1.2866e+01_jprb,1.1258e+01_jprb,9.6496e+00_jprb,8.0413e+00_jprb,6.4330e+00_jprb,5.7014e+00_jprb,&
 & 6.0980e+00_jprb,6.4718e+00_jprb,1.9513e+01_jprb/)  
kao( :, 4, 1,10) = (/&
 & 1.5392e+01_jprb,1.3468e+01_jprb,1.1544e+01_jprb,9.6199e+00_jprb,7.6959e+00_jprb,6.1009e+00_jprb,&
 & 6.2722e+00_jprb,6.5575e+00_jprb,2.1715e+01_jprb/)  
kao( :, 5, 1,10) = (/&
 & 1.8056e+01_jprb,1.5799e+01_jprb,1.3542e+01_jprb,1.1285e+01_jprb,9.0279e+00_jprb,6.8103e+00_jprb,&
 & 6.4441e+00_jprb,6.6397e+00_jprb,2.3850e+01_jprb/)  
kao( :, 1, 2,10) = (/&
 & 6.4947e+00_jprb,5.6829e+00_jprb,4.8711e+00_jprb,4.3890e+00_jprb,5.0074e+00_jprb,5.7366e+00_jprb,&
 & 6.4315e+00_jprb,7.0725e+00_jprb,1.2054e+01_jprb/)  
kao( :, 2, 2,10) = (/&
 & 8.3011e+00_jprb,7.2634e+00_jprb,6.2258e+00_jprb,5.2050e+00_jprb,5.2909e+00_jprb,5.9522e+00_jprb,&
 & 6.5881e+00_jprb,7.1588e+00_jprb,1.2666e+01_jprb/)  
kao( :, 3, 2,10) = (/&
 & 1.0256e+01_jprb,8.9740e+00_jprb,7.6920e+00_jprb,6.4100e+00_jprb,5.6644e+00_jprb,6.1894e+00_jprb,&
 & 6.7625e+00_jprb,7.2404e+00_jprb,1.3682e+01_jprb/)  
kao( :, 4, 2,10) = (/&
 & 1.2397e+01_jprb,1.0847e+01_jprb,9.2971e+00_jprb,7.7479e+00_jprb,6.3118e+00_jprb,6.4388e+00_jprb,&
 & 6.9414e+00_jprb,7.3378e+00_jprb,1.5028e+01_jprb/)  
kao( :, 5, 2,10) = (/&
 & 1.4660e+01_jprb,1.2828e+01_jprb,1.0995e+01_jprb,9.1626e+00_jprb,7.3301e+00_jprb,6.6905e+00_jprb,&
 & 7.1124e+00_jprb,7.4264e+00_jprb,1.6436e+01_jprb/)  
kao( :, 1, 3,10) = (/&
 & 4.7461e+00_jprb,4.1529e+00_jprb,3.7000e+00_jprb,4.4615e+00_jprb,5.3639e+00_jprb,6.2356e+00_jprb,&
 & 7.0823e+00_jprb,7.8222e+00_jprb,1.0768e+01_jprb/)  
kao( :, 2, 3,10) = (/&
 & 6.1674e+00_jprb,5.3965e+00_jprb,4.6255e+00_jprb,4.7868e+00_jprb,5.6404e+00_jprb,6.4644e+00_jprb,&
 & 7.2578e+00_jprb,7.9155e+00_jprb,1.1012e+01_jprb/)  
kao( :, 3, 3,10) = (/&
 & 7.7651e+00_jprb,6.7945e+00_jprb,5.8238e+00_jprb,5.2211e+00_jprb,5.9299e+00_jprb,6.7104e+00_jprb,&
 & 7.4369e+00_jprb,8.0208e+00_jprb,1.1349e+01_jprb/)  
kao( :, 4, 3,10) = (/&
 & 9.5128e+00_jprb,8.3237e+00_jprb,7.1346e+00_jprb,5.9977e+00_jprb,6.2294e+00_jprb,6.9597e+00_jprb,&
 & 7.6063e+00_jprb,8.1225e+00_jprb,1.1679e+01_jprb/)  
kao( :, 5, 3,10) = (/&
 & 1.1390e+01_jprb,9.9664e+00_jprb,8.5426e+00_jprb,7.1189e+00_jprb,6.5507e+00_jprb,7.2016e+00_jprb,&
 & 7.7732e+00_jprb,8.2118e+00_jprb,1.2040e+01_jprb/)  
kao( :, 1, 4,10) = (/&
 & 3.3503e+00_jprb,2.9315e+00_jprb,3.5683e+00_jprb,4.6667e+00_jprb,5.7273e+00_jprb,6.7580e+00_jprb,&
 & 7.7198e+00_jprb,8.5710e+00_jprb,1.0440e+01_jprb/)  
kao( :, 2, 4,10) = (/&
 & 4.4561e+00_jprb,3.8991e+00_jprb,3.9300e+00_jprb,4.9622e+00_jprb,5.9939e+00_jprb,6.9871e+00_jprb,&
 & 7.8925e+00_jprb,8.6774e+00_jprb,1.0521e+01_jprb/)  
kao( :, 3, 4,10) = (/&
 & 5.7189e+00_jprb,5.0041e+00_jprb,4.4573e+00_jprb,5.2834e+00_jprb,6.2798e+00_jprb,7.2167e+00_jprb,&
 & 8.0686e+00_jprb,8.7808e+00_jprb,1.0645e+01_jprb/)  
kao( :, 4, 4,10) = (/&
 & 7.1243e+00_jprb,6.2338e+00_jprb,5.3456e+00_jprb,5.6334e+00_jprb,6.5793e+00_jprb,7.4542e+00_jprb,&
 & 8.2512e+00_jprb,8.8783e+00_jprb,1.0735e+01_jprb/)  
kao( :, 5, 4,10) = (/&
 & 8.6595e+00_jprb,7.5770e+00_jprb,6.4946e+00_jprb,6.0192e+00_jprb,6.8955e+00_jprb,7.7038e+00_jprb,&
 & 8.4443e+00_jprb,8.9879e+00_jprb,1.0819e+01_jprb/)  
kao( :, 1, 5,10) = (/&
 & 2.3228e+00_jprb,2.3763e+00_jprb,3.6372e+00_jprb,4.8666e+00_jprb,6.0758e+00_jprb,7.2202e+00_jprb,&
 & 8.2887e+00_jprb,9.2790e+00_jprb,1.1044e+01_jprb/)  
kao( :, 2, 5,10) = (/&
 & 3.1750e+00_jprb,2.8335e+00_jprb,3.9429e+00_jprb,5.1625e+00_jprb,6.3325e+00_jprb,7.4495e+00_jprb,&
 & 8.4649e+00_jprb,9.3795e+00_jprb,1.0992e+01_jprb/)  
kao( :, 3, 5,10) = (/&
 & 4.1502e+00_jprb,3.6314e+00_jprb,4.2777e+00_jprb,5.4822e+00_jprb,6.6129e+00_jprb,7.6864e+00_jprb,&
 & 8.6584e+00_jprb,9.4768e+00_jprb,1.0934e+01_jprb/)  
kao( :, 4, 5,10) = (/&
 & 5.2710e+00_jprb,4.6121e+00_jprb,4.6433e+00_jprb,5.8225e+00_jprb,6.9099e+00_jprb,7.9434e+00_jprb,&
 & 8.8623e+00_jprb,9.5919e+00_jprb,1.0860e+01_jprb/)  
kao( :, 5, 5,10) = (/&
 & 6.4981e+00_jprb,5.6859e+00_jprb,5.1116e+00_jprb,6.1710e+00_jprb,7.2254e+00_jprb,8.2046e+00_jprb,&
 & 9.0650e+00_jprb,9.7138e+00_jprb,1.0789e+01_jprb/)  
kao( :, 1, 6,10) = (/&
 & 1.5637e+00_jprb,2.2731e+00_jprb,3.6873e+00_jprb,5.0614e+00_jprb,6.3700e+00_jprb,7.6047e+00_jprb,&
 & 8.7790e+00_jprb,9.8692e+00_jprb,1.1665e+01_jprb/)  
kao( :, 2, 6,10) = (/&
 & 2.2000e+00_jprb,2.5584e+00_jprb,3.9755e+00_jprb,5.3314e+00_jprb,6.6268e+00_jprb,7.8407e+00_jprb,&
 & 8.9633e+00_jprb,9.9641e+00_jprb,1.1590e+01_jprb/)  
kao( :, 3, 6,10) = (/&
 & 2.9496e+00_jprb,2.8996e+00_jprb,4.2934e+00_jprb,5.6265e+00_jprb,6.9043e+00_jprb,8.0863e+00_jprb,&
 & 9.1639e+00_jprb,1.0078e+01_jprb,1.1504e+01_jprb/)  
kao( :, 4, 6,10) = (/&
 & 3.8153e+00_jprb,3.4040e+00_jprb,4.6361e+00_jprb,5.9468e+00_jprb,7.1994e+00_jprb,8.3443e+00_jprb,&
 & 9.3743e+00_jprb,1.0202e+01_jprb,1.1405e+01_jprb/)  
kao( :, 5, 6,10) = (/&
 & 4.7923e+00_jprb,4.1932e+00_jprb,5.0029e+00_jprb,6.2942e+00_jprb,7.4973e+00_jprb,8.6152e+00_jprb,&
 & 9.5722e+00_jprb,1.0324e+01_jprb,1.1282e+01_jprb/)  
kao( :, 1, 7,10) = (/&
 & 1.0319e+00_jprb,2.2030e+00_jprb,3.7189e+00_jprb,5.1722e+00_jprb,6.5639e+00_jprb,7.8914e+00_jprb,&
 & 9.1498e+00_jprb,1.0323e+01_jprb,1.2175e+01_jprb/)  
kao( :, 2, 7,10) = (/&
 & 1.5011e+00_jprb,2.4558e+00_jprb,3.9785e+00_jprb,5.4357e+00_jprb,6.8145e+00_jprb,8.1167e+00_jprb,&
 & 9.3258e+00_jprb,1.0416e+01_jprb,1.2083e+01_jprb/)  
kao( :, 3, 7,10) = (/&
 & 2.0652e+00_jprb,2.7433e+00_jprb,4.2735e+00_jprb,5.7267e+00_jprb,7.0874e+00_jprb,8.3608e+00_jprb,&
 & 9.5223e+00_jprb,1.0531e+01_jprb,1.1978e+01_jprb/)  
kao( :, 4, 7,10) = (/&
 & 2.7290e+00_jprb,3.0650e+00_jprb,4.6079e+00_jprb,6.0349e+00_jprb,7.3838e+00_jprb,8.6181e+00_jprb,&
 & 9.7231e+00_jprb,1.0649e+01_jprb,1.1858e+01_jprb/)  
kao( :, 5, 7,10) = (/&
 & 3.4888e+00_jprb,3.4187e+00_jprb,4.9649e+00_jprb,6.3686e+00_jprb,7.6906e+00_jprb,8.8849e+00_jprb,&
 & 9.9240e+00_jprb,1.0751e+01_jprb,1.1715e+01_jprb/)  
kao( :, 1, 8,10) = (/&
 & 6.7247e-01_jprb,2.1299e+00_jprb,3.7166e+00_jprb,5.2113e+00_jprb,6.6383e+00_jprb,8.0164e+00_jprb,&
 & 9.3365e+00_jprb,1.0603e+01_jprb,1.2480e+01_jprb/)  
kao( :, 2, 8,10) = (/&
 & 1.0116e+00_jprb,2.3605e+00_jprb,3.9609e+00_jprb,5.4626e+00_jprb,6.8806e+00_jprb,8.2311e+00_jprb,&
 & 9.5015e+00_jprb,1.0678e+01_jprb,1.2368e+01_jprb/)  
kao( :, 3, 8,10) = (/&
 & 1.4308e+00_jprb,2.6245e+00_jprb,4.2324e+00_jprb,5.7459e+00_jprb,7.1525e+00_jprb,8.4713e+00_jprb,&
 & 9.6847e+00_jprb,1.0770e+01_jprb,1.2245e+01_jprb/)  
kao( :, 4, 8,10) = (/&
 & 1.9350e+00_jprb,2.9206e+00_jprb,4.5353e+00_jprb,6.0493e+00_jprb,7.4438e+00_jprb,8.7255e+00_jprb,&
 & 9.8811e+00_jprb,1.0861e+01_jprb,1.2099e+01_jprb/)  
kao( :, 5, 8,10) = (/&
 & 2.5213e+00_jprb,3.2436e+00_jprb,4.8666e+00_jprb,6.3763e+00_jprb,7.7488e+00_jprb,8.9884e+00_jprb,&
 & 1.0076e+01_jprb,1.0954e+01_jprb,1.1942e+01_jprb/)  
kao( :, 1, 9,10) = (/&
 & 4.3208e-01_jprb,2.0475e+00_jprb,3.6377e+00_jprb,5.1514e+00_jprb,6.6073e+00_jprb,8.0088e+00_jprb,&
 & 9.3664e+00_jprb,1.0689e+01_jprb,1.2722e+01_jprb/)  
kao( :, 2, 9,10) = (/&
 & 6.7092e-01_jprb,2.2446e+00_jprb,3.8634e+00_jprb,5.3834e+00_jprb,6.8242e+00_jprb,8.1962e+00_jprb,&
 & 9.5019e+00_jprb,1.0731e+01_jprb,1.2602e+01_jprb/)  
kao( :, 3, 9,10) = (/&
 & 9.7959e-01_jprb,2.4790e+00_jprb,4.1220e+00_jprb,5.6464e+00_jprb,7.0720e+00_jprb,8.4107e+00_jprb,&
 & 9.6598e+00_jprb,1.0791e+01_jprb,1.2470e+01_jprb/)  
kao( :, 4, 9,10) = (/&
 & 1.3555e+00_jprb,2.7516e+00_jprb,4.4105e+00_jprb,5.9355e+00_jprb,7.3438e+00_jprb,8.6425e+00_jprb,&
 & 9.8283e+00_jprb,1.0860e+01_jprb,1.2324e+01_jprb/)  
kao( :, 5, 9,10) = (/&
 & 1.8036e+00_jprb,3.0512e+00_jprb,4.7212e+00_jprb,6.2493e+00_jprb,7.6308e+00_jprb,8.8891e+00_jprb,&
 & 1.0011e+01_jprb,1.0943e+01_jprb,1.2174e+01_jprb/)  
kao( :, 1,10,10) = (/&
 & 2.8562e-01_jprb,1.9513e+00_jprb,3.5205e+00_jprb,5.0276e+00_jprb,6.5019e+00_jprb,7.9388e+00_jprb,&
 & 9.3417e+00_jprb,1.0714e+01_jprb,1.3024e+01_jprb/)  
kao( :, 2,10,10) = (/&
 & 4.5369e-01_jprb,2.1274e+00_jprb,3.7193e+00_jprb,5.2300e+00_jprb,6.6874e+00_jprb,8.0937e+00_jprb,&
 & 9.4530e+00_jprb,1.0753e+01_jprb,1.2922e+01_jprb/)  
kao( :, 3,10,10) = (/&
 & 6.8195e-01_jprb,2.3352e+00_jprb,3.9538e+00_jprb,5.4609e+00_jprb,6.8984e+00_jprb,8.2697e+00_jprb,&
 & 9.5779e+00_jprb,1.0802e+01_jprb,1.2803e+01_jprb/)  
kao( :, 4,10,10) = (/&
 & 9.6434e-01_jprb,2.5767e+00_jprb,4.2212e+00_jprb,5.7204e+00_jprb,7.1311e+00_jprb,8.4647e+00_jprb,&
 & 9.7207e+00_jprb,1.0863e+01_jprb,1.2673e+01_jprb/)  
kao( :, 5,10,10) = (/&
 & 1.3075e+00_jprb,2.8520e+00_jprb,4.5133e+00_jprb,6.0099e+00_jprb,7.3901e+00_jprb,8.6775e+00_jprb,&
 & 9.8779e+00_jprb,1.0938e+01_jprb,1.2543e+01_jprb/)  
kao( :, 1,11,10) = (/&
 & 2.3625e-01_jprb,1.9181e+00_jprb,3.5155e+00_jprb,5.0744e+00_jprb,6.6008e+00_jprb,8.0955e+00_jprb,&
 & 9.5644e+00_jprb,1.1013e+01_jprb,1.3397e+01_jprb/)  
kao( :, 2,11,10) = (/&
 & 3.7530e-01_jprb,2.0748e+00_jprb,3.6829e+00_jprb,5.2358e+00_jprb,6.7464e+00_jprb,8.2221e+00_jprb,&
 & 9.6585e+00_jprb,1.1047e+01_jprb,1.3278e+01_jprb/)  
kao( :, 3,11,10) = (/&
 & 5.6319e-01_jprb,2.2660e+00_jprb,3.8799e+00_jprb,5.4224e+00_jprb,6.9139e+00_jprb,8.3641e+00_jprb,&
 & 9.7629e+00_jprb,1.1090e+01_jprb,1.3144e+01_jprb/)  
kao( :, 4,11,10) = (/&
 & 7.9630e-01_jprb,2.4928e+00_jprb,4.1097e+00_jprb,5.6369e+00_jprb,7.1043e+00_jprb,8.5217e+00_jprb,&
 & 9.8785e+00_jprb,1.1143e+01_jprb,1.3008e+01_jprb/)  
kao( :, 5,11,10) = (/&
 & 1.0789e+00_jprb,2.7503e+00_jprb,4.3718e+00_jprb,5.8827e+00_jprb,7.3180e+00_jprb,8.6936e+00_jprb,&
 & 9.9992e+00_jprb,1.1196e+01_jprb,1.2862e+01_jprb/)  
kao( :, 1,12,10) = (/&
 & 1.9532e-01_jprb,1.9250e+00_jprb,3.5848e+00_jprb,5.1929e+00_jprb,6.7611e+00_jprb,8.3016e+00_jprb,&
 & 9.8096e+00_jprb,1.1276e+01_jprb,1.3592e+01_jprb/)  
kao( :, 2,12,10) = (/&
 & 3.1059e-01_jprb,2.0481e+00_jprb,3.7225e+00_jprb,5.3350e+00_jprb,6.8984e+00_jprb,8.4223e+00_jprb,&
 & 9.8976e+00_jprb,1.1304e+01_jprb,1.3454e+01_jprb/)  
kao( :, 3,12,10) = (/&
 & 4.6509e-01_jprb,2.2010e+00_jprb,3.8811e+00_jprb,5.4933e+00_jprb,7.0507e+00_jprb,8.5551e+00_jprb,&
 & 9.9951e+00_jprb,1.1342e+01_jprb,1.3311e+01_jprb/)  
kao( :, 4,12,10) = (/&
 & 6.5689e-01_jprb,2.3881e+00_jprb,4.0636e+00_jprb,5.6724e+00_jprb,7.2165e+00_jprb,8.6961e+00_jprb,&
 & 1.0098e+01_jprb,1.1383e+01_jprb,1.3165e+01_jprb/)  
kao( :, 5,12,10) = (/&
 & 8.9052e-01_jprb,2.6097e+00_jprb,4.2735e+00_jprb,5.8670e+00_jprb,7.3919e+00_jprb,8.8391e+00_jprb,&
 & 1.0193e+01_jprb,1.1412e+01_jprb,1.2995e+01_jprb/)  
kao( :, 1,13,10) = (/&
 & 1.6125e-01_jprb,1.9342e+00_jprb,3.5999e+00_jprb,5.2092e+00_jprb,6.7843e+00_jprb,8.3295e+00_jprb,&
 & 9.8358e+00_jprb,1.1294e+01_jprb,1.3567e+01_jprb/)  
kao( :, 2,13,10) = (/&
 & 2.5632e-01_jprb,2.0509e+00_jprb,3.7362e+00_jprb,5.3503e+00_jprb,6.9167e+00_jprb,8.4371e+00_jprb,&
 & 9.9071e+00_jprb,1.1309e+01_jprb,1.3421e+01_jprb/)  
kao( :, 3,13,10) = (/&
 & 3.8326e-01_jprb,2.1844e+00_jprb,3.8935e+00_jprb,5.5111e+00_jprb,7.0668e+00_jprb,8.5618e+00_jprb,&
 & 9.9929e+00_jprb,1.1334e+01_jprb,1.3271e+01_jprb/)  
kao( :, 4,13,10) = (/&
 & 5.4156e-01_jprb,2.3369e+00_jprb,4.0660e+00_jprb,5.6864e+00_jprb,7.2274e+00_jprb,8.6942e+00_jprb,&
 & 1.0083e+01_jprb,1.1355e+01_jprb,1.3103e+01_jprb/)  
kao( :, 5,13,10) = (/&
 & 7.3401e-01_jprb,2.5129e+00_jprb,4.2495e+00_jprb,5.8694e+00_jprb,7.3940e+00_jprb,8.8302e+00_jprb,&
 & 1.0173e+01_jprb,1.1375e+01_jprb,1.2923e+01_jprb/)  
kao( :, 1, 1,11) = (/&
 & 1.2249e+01_jprb,1.0718e+01_jprb,9.1868e+00_jprb,7.6557e+00_jprb,6.1245e+00_jprb,5.7627e+00_jprb,&
 & 6.3444e+00_jprb,6.9424e+00_jprb,1.9044e+01_jprb/)  
kao( :, 2, 1,11) = (/&
 & 1.5357e+01_jprb,1.3437e+01_jprb,1.1518e+01_jprb,9.5981e+00_jprb,7.6785e+00_jprb,6.1637e+00_jprb,&
 & 6.5230e+00_jprb,7.0281e+00_jprb,2.1345e+01_jprb/)  
kao( :, 3, 1,11) = (/&
 & 1.8886e+01_jprb,1.6526e+01_jprb,1.4165e+01_jprb,1.1804e+01_jprb,9.4432e+00_jprb,7.1211e+00_jprb,&
 & 6.7255e+00_jprb,7.1348e+00_jprb,2.3750e+01_jprb/)  
kao( :, 4, 1,11) = (/&
 & 2.2784e+01_jprb,1.9936e+01_jprb,1.7088e+01_jprb,1.4240e+01_jprb,1.1392e+01_jprb,8.5439e+00_jprb,&
 & 6.9461e+00_jprb,7.2435e+00_jprb,2.6291e+01_jprb/)  
kao( :, 5, 1,11) = (/&
 & 2.6987e+01_jprb,2.3613e+01_jprb,2.0240e+01_jprb,1.6867e+01_jprb,1.3493e+01_jprb,1.0120e+01_jprb,&
 & 7.2891e+00_jprb,7.3404e+00_jprb,2.9031e+01_jprb/)  
kao( :, 1, 2,11) = (/&
 & 9.7136e+00_jprb,8.4994e+00_jprb,7.2852e+00_jprb,6.0710e+00_jprb,5.6278e+00_jprb,6.3983e+00_jprb,&
 & 7.1952e+00_jprb,7.9135e+00_jprb,1.3515e+01_jprb/)  
kao( :, 2, 2,11) = (/&
 & 1.2396e+01_jprb,1.0847e+01_jprb,9.2971e+00_jprb,7.7476e+00_jprb,6.3714e+00_jprb,6.6654e+00_jprb,&
 & 7.3884e+00_jprb,8.0262e+00_jprb,1.4990e+01_jprb/)  
kao( :, 3, 2,11) = (/&
 & 1.5432e+01_jprb,1.3503e+01_jprb,1.1574e+01_jprb,9.6447e+00_jprb,7.7158e+00_jprb,6.9761e+00_jprb,&
 & 7.5844e+00_jprb,8.1568e+00_jprb,1.6717e+01_jprb/)  
kao( :, 4, 2,11) = (/&
 & 1.8816e+01_jprb,1.6464e+01_jprb,1.4112e+01_jprb,1.1760e+01_jprb,9.4077e+00_jprb,7.5034e+00_jprb,&
 & 7.7791e+00_jprb,8.2755e+00_jprb,1.8558e+01_jprb/)  
kao( :, 5, 2,11) = (/&
 & 2.2537e+01_jprb,1.9720e+01_jprb,1.6903e+01_jprb,1.4086e+01_jprb,1.1268e+01_jprb,8.5223e+00_jprb,&
 & 7.9761e+00_jprb,8.3719e+00_jprb,2.0482e+01_jprb/)  
kao( :, 1, 3,11) = (/&
 & 7.2299e+00_jprb,6.3262e+00_jprb,5.4224e+00_jprb,5.1159e+00_jprb,6.1132e+00_jprb,7.1369e+00_jprb,&
 & 8.1089e+00_jprb,8.9636e+00_jprb,1.1955e+01_jprb/)  
kao( :, 2, 3,11) = (/&
 & 9.3918e+00_jprb,8.2178e+00_jprb,7.0438e+00_jprb,5.9613e+00_jprb,6.4360e+00_jprb,7.3941e+00_jprb,&
 & 8.3154e+00_jprb,9.1046e+00_jprb,1.2271e+01_jprb/)  
kao( :, 3, 3,11) = (/&
 & 1.1905e+01_jprb,1.0417e+01_jprb,8.9285e+00_jprb,7.4405e+00_jprb,6.8201e+00_jprb,7.6628e+00_jprb,&
 & 8.5181e+00_jprb,9.2389e+00_jprb,1.2625e+01_jprb/)  
kao( :, 4, 3,11) = (/&
 & 1.4757e+01_jprb,1.2912e+01_jprb,1.1068e+01_jprb,9.2230e+00_jprb,7.6302e+00_jprb,7.9463e+00_jprb,&
 & 8.7305e+00_jprb,9.3535e+00_jprb,1.3024e+01_jprb/)  
kao( :, 5, 3,11) = (/&
 & 1.7893e+01_jprb,1.5656e+01_jprb,1.3420e+01_jprb,1.1183e+01_jprb,8.9555e+00_jprb,8.2708e+00_jprb,&
 & 8.9555e+00_jprb,9.4787e+00_jprb,1.3397e+01_jprb/)  
kao( :, 1, 4,11) = (/&
 & 5.1773e+00_jprb,4.5301e+00_jprb,4.2164e+00_jprb,5.4189e+00_jprb,6.6862e+00_jprb,7.9110e+00_jprb,&
 & 9.0375e+00_jprb,1.0082e+01_jprb,1.2163e+01_jprb/)  
kao( :, 2, 4,11) = (/&
 & 6.8907e+00_jprb,6.0294e+00_jprb,5.1859e+00_jprb,5.7789e+00_jprb,6.9881e+00_jprb,8.1777e+00_jprb,&
 & 9.2600e+00_jprb,1.0217e+01_jprb,1.2164e+01_jprb/)  
kao( :, 3, 4,11) = (/&
 & 8.9163e+00_jprb,7.8018e+00_jprb,6.6872e+00_jprb,6.2510e+00_jprb,7.3281e+00_jprb,8.4646e+00_jprb,&
 & 9.5034e+00_jprb,1.0348e+01_jprb,1.2247e+01_jprb/)  
kao( :, 4, 4,11) = (/&
 & 1.1229e+01_jprb,9.8256e+00_jprb,8.4220e+00_jprb,7.1712e+00_jprb,7.6975e+00_jprb,8.7686e+00_jprb,&
 & 9.7453e+00_jprb,1.0493e+01_jprb,1.2364e+01_jprb/)  
kao( :, 5, 4,11) = (/&
 & 1.3839e+01_jprb,1.2109e+01_jprb,1.0379e+01_jprb,8.6495e+00_jprb,8.1169e+00_jprb,9.0750e+00_jprb,&
 & 9.9810e+00_jprb,1.0635e+01_jprb,1.2462e+01_jprb/)  

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


SUBROUTINE part8

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


kao( :, 1, 5,11) = (/&
 & 3.6436e+00_jprb,3.1897e+00_jprb,4.3289e+00_jprb,5.8481e+00_jprb,7.3102e+00_jprb,8.6929e+00_jprb,&
 & 9.9995e+00_jprb,1.1197e+01_jprb,1.3283e+01_jprb/)  
kao( :, 2, 5,11) = (/&
 & 4.9664e+00_jprb,4.3456e+00_jprb,4.6924e+00_jprb,6.1837e+00_jprb,7.6374e+00_jprb,8.9934e+00_jprb,&
 & 1.0249e+01_jprb,1.1339e+01_jprb,1.3236e+01_jprb/)  
kao( :, 3, 5,11) = (/&
 & 6.5513e+00_jprb,5.7324e+00_jprb,5.2481e+00_jprb,6.5577e+00_jprb,7.9818e+00_jprb,9.3087e+00_jprb,&
 & 1.0503e+01_jprb,1.1501e+01_jprb,1.3169e+01_jprb/)  
kao( :, 4, 5,11) = (/&
 & 8.4164e+00_jprb,7.3644e+00_jprb,6.3448e+00_jprb,6.9578e+00_jprb,8.3373e+00_jprb,9.6258e+00_jprb,&
 & 1.0752e+01_jprb,1.1656e+01_jprb,1.3106e+01_jprb/)  
kao( :, 5, 5,11) = (/&
 & 1.0527e+01_jprb,9.2115e+00_jprb,7.8956e+00_jprb,7.4639e+00_jprb,8.6974e+00_jprb,9.9429e+00_jprb,&
 & 1.0997e+01_jprb,1.1797e+01_jprb,1.3036e+01_jprb/)  
kao( :, 1, 6,11) = (/&
 & 2.4932e+00_jprb,2.7486e+00_jprb,4.5320e+00_jprb,6.2546e+00_jprb,7.8988e+00_jprb,9.4652e+00_jprb,&
 & 1.0939e+01_jprb,1.2316e+01_jprb,1.4467e+01_jprb/)  
kao( :, 2, 6,11) = (/&
 & 3.4773e+00_jprb,3.1985e+00_jprb,4.8742e+00_jprb,6.5999e+00_jprb,8.2329e+00_jprb,9.7664e+00_jprb,&
 & 1.1186e+01_jprb,1.2469e+01_jprb,1.4417e+01_jprb/)  
kao( :, 3, 6,11) = (/&
 & 4.6971e+00_jprb,4.1115e+00_jprb,5.2651e+00_jprb,6.9733e+00_jprb,8.5867e+00_jprb,1.0084e+01_jprb,&
 & 1.1436e+01_jprb,1.2624e+01_jprb,1.4351e+01_jprb/)  
kao( :, 4, 6,11) = (/&
 & 6.1495e+00_jprb,5.3808e+00_jprb,5.6975e+00_jprb,7.3726e+00_jprb,8.9642e+00_jprb,1.0415e+01_jprb,&
 & 1.1698e+01_jprb,1.2772e+01_jprb,1.4267e+01_jprb/)  
kao( :, 5, 6,11) = (/&
 & 7.8284e+00_jprb,6.8498e+00_jprb,6.3225e+00_jprb,7.7926e+00_jprb,9.3619e+00_jprb,1.0759e+01_jprb,&
 & 1.1977e+01_jprb,1.2918e+01_jprb,1.4175e+01_jprb/)  
kao( :, 1, 7,11) = (/&
 & 1.6743e+00_jprb,2.7740e+00_jprb,4.7631e+00_jprb,6.6392e+00_jprb,8.4234e+00_jprb,1.0141e+01_jprb,&
 & 1.1784e+01_jprb,1.3373e+01_jprb,1.5635e+01_jprb/)  
kao( :, 2, 7,11) = (/&
 & 2.3935e+00_jprb,3.0856e+00_jprb,5.0953e+00_jprb,6.9911e+00_jprb,8.7690e+00_jprb,1.0447e+01_jprb,&
 & 1.2034e+01_jprb,1.3500e+01_jprb,1.5579e+01_jprb/)  
kao( :, 3, 7,11) = (/&
 & 3.3116e+00_jprb,3.4457e+00_jprb,5.4635e+00_jprb,7.3709e+00_jprb,9.1406e+00_jprb,1.0784e+01_jprb,&
 & 1.2298e+01_jprb,1.3644e+01_jprb,1.5506e+01_jprb/)  
kao( :, 4, 7,11) = (/&
 & 4.4248e+00_jprb,4.0263e+00_jprb,5.8643e+00_jprb,7.7821e+00_jprb,9.5339e+00_jprb,1.1137e+01_jprb,&
 & 1.2583e+01_jprb,1.3796e+01_jprb,1.5411e+01_jprb/)  
kao( :, 5, 7,11) = (/&
 & 5.7412e+00_jprb,5.0279e+00_jprb,6.2969e+00_jprb,8.2091e+00_jprb,9.9459e+00_jprb,1.1502e+01_jprb,&
 & 1.2876e+01_jprb,1.3971e+01_jprb,1.5296e+01_jprb/)  
kao( :, 1, 8,11) = (/&
 & 1.1086e+00_jprb,2.8048e+00_jprb,4.9324e+00_jprb,6.9454e+00_jprb,8.8812e+00_jprb,1.0739e+01_jprb,&
 & 1.2537e+01_jprb,1.4271e+01_jprb,1.6686e+01_jprb/)  
kao( :, 2, 8,11) = (/&
 & 1.6296e+00_jprb,3.0851e+00_jprb,5.2594e+00_jprb,7.2944e+00_jprb,9.2229e+00_jprb,1.1045e+01_jprb,&
 & 1.2773e+01_jprb,1.4378e+01_jprb,1.6616e+01_jprb/)  
kao( :, 3, 8,11) = (/&
 & 2.3055e+00_jprb,3.4160e+00_jprb,5.6286e+00_jprb,7.6727e+00_jprb,9.5919e+00_jprb,1.1383e+01_jprb,&
 & 1.3041e+01_jprb,1.4518e+01_jprb,1.6520e+01_jprb/)  
kao( :, 4, 8,11) = (/&
 & 3.1507e+00_jprb,3.7895e+00_jprb,6.0300e+00_jprb,8.0860e+00_jprb,9.9827e+00_jprb,1.1736e+01_jprb,&
 & 1.3326e+01_jprb,1.4687e+01_jprb,1.6411e+01_jprb/)  
kao( :, 5, 8,11) = (/&
 & 4.1629e+00_jprb,4.2135e+00_jprb,6.4636e+00_jprb,8.5234e+00_jprb,1.0396e+01_jprb,1.2103e+01_jprb,&
 & 1.3619e+01_jprb,1.4867e+01_jprb,1.6271e+01_jprb/)  
kao( :, 1, 9,11) = (/&
 & 7.2274e-01_jprb,2.8188e+00_jprb,5.0463e+00_jprb,7.1564e+00_jprb,9.1934e+00_jprb,1.1175e+01_jprb,&
 & 1.3093e+01_jprb,1.4982e+01_jprb,1.7490e+01_jprb/)  
kao( :, 2, 9,11) = (/&
 & 1.0936e+00_jprb,3.0846e+00_jprb,5.3597e+00_jprb,7.4879e+00_jprb,9.5212e+00_jprb,1.1468e+01_jprb,&
 & 1.3317e+01_jprb,1.5061e+01_jprb,1.7405e+01_jprb/)  
kao( :, 3, 9,11) = (/&
 & 1.5844e+00_jprb,3.3914e+00_jprb,5.7218e+00_jprb,7.8597e+00_jprb,9.8794e+00_jprb,1.1792e+01_jprb,&
 & 1.3571e+01_jprb,1.5196e+01_jprb,1.7299e+01_jprb/)  
kao( :, 4, 9,11) = (/&
 & 2.2133e+00_jprb,3.7382e+00_jprb,6.1198e+00_jprb,8.2738e+00_jprb,1.0272e+01_jprb,1.2140e+01_jprb,&
 & 1.3853e+01_jprb,1.5355e+01_jprb,1.7167e+01_jprb/)  
kao( :, 5, 9,11) = (/&
 & 2.9830e+00_jprb,4.1284e+00_jprb,6.5526e+00_jprb,8.7144e+00_jprb,1.0697e+01_jprb,1.2510e+01_jprb,&
 & 1.4140e+01_jprb,1.5515e+01_jprb,1.7007e+01_jprb/)  
kao( :, 1,10,11) = (/&
 & 4.8237e-01_jprb,2.8147e+00_jprb,5.0928e+00_jprb,7.2773e+00_jprb,9.3839e+00_jprb,1.1437e+01_jprb,&
 & 1.3443e+01_jprb,1.5464e+01_jprb,1.8003e+01_jprb/)  
kao( :, 2,10,11) = (/&
 & 7.4855e-01_jprb,3.0669e+00_jprb,5.3977e+00_jprb,7.5863e+00_jprb,9.6799e+00_jprb,1.1699e+01_jprb,&
 & 1.3634e+01_jprb,1.5493e+01_jprb,1.7884e+01_jprb/)  
kao( :, 3,10,11) = (/&
 & 1.1085e+00_jprb,3.3611e+00_jprb,5.7474e+00_jprb,7.9493e+00_jprb,1.0026e+01_jprb,1.2005e+01_jprb,&
 & 1.3869e+01_jprb,1.5596e+01_jprb,1.7749e+01_jprb/)  
kao( :, 4,10,11) = (/&
 & 1.5772e+00_jprb,3.6970e+00_jprb,6.1332e+00_jprb,8.3566e+00_jprb,1.0418e+01_jprb,1.2345e+01_jprb,&
 & 1.4128e+01_jprb,1.5721e+01_jprb,1.7584e+01_jprb/)  
kao( :, 5,10,11) = (/&
 & 2.1652e+00_jprb,4.0698e+00_jprb,6.5606e+00_jprb,8.7912e+00_jprb,1.0837e+01_jprb,1.2714e+01_jprb,&
 & 1.4407e+01_jprb,1.5850e+01_jprb,1.7388e+01_jprb/)  
kao( :, 1,11,11) = (/&
 & 3.9938e-01_jprb,2.8599e+00_jprb,5.1737e+00_jprb,7.3744e+00_jprb,9.5072e+00_jprb,1.1586e+01_jprb,&
 & 1.3611e+01_jprb,1.5598e+01_jprb,1.8201e+01_jprb/)  
kao( :, 2,11,11) = (/&
 & 6.1944e-01_jprb,3.1115e+00_jprb,5.4721e+00_jprb,7.6865e+00_jprb,9.8054e+00_jprb,1.1843e+01_jprb,&
 & 1.3793e+01_jprb,1.5638e+01_jprb,1.8068e+01_jprb/)  
kao( :, 3,11,11) = (/&
 & 9.1846e-01_jprb,3.4110e+00_jprb,5.8171e+00_jprb,8.0466e+00_jprb,1.0149e+01_jprb,1.2140e+01_jprb,&
 & 1.4010e+01_jprb,1.5725e+01_jprb,1.7913e+01_jprb/)  
kao( :, 4,11,11) = (/&
 & 1.3105e+00_jprb,3.7482e+00_jprb,6.2097e+00_jprb,8.4443e+00_jprb,1.0527e+01_jprb,1.2468e+01_jprb,&
 & 1.4250e+01_jprb,1.5828e+01_jprb,1.7729e+01_jprb/)  
kao( :, 5,11,11) = (/&
 & 1.7999e+00_jprb,4.1235e+00_jprb,6.6430e+00_jprb,8.8791e+00_jprb,1.0932e+01_jprb,1.2815e+01_jprb,&
 & 1.4506e+01_jprb,1.5945e+01_jprb,1.7528e+01_jprb/)  
kao( :, 1,12,11) = (/&
 & 3.3001e-01_jprb,2.8413e+00_jprb,5.1496e+00_jprb,7.3701e+00_jprb,9.5381e+00_jprb,1.1655e+01_jprb,&
 & 1.3720e+01_jprb,1.5739e+01_jprb,1.8506e+01_jprb/)  
kao( :, 2,12,11) = (/&
 & 5.1236e-01_jprb,3.0945e+00_jprb,5.4327e+00_jprb,7.6537e+00_jprb,9.8045e+00_jprb,1.1878e+01_jprb,&
 & 1.3880e+01_jprb,1.5791e+01_jprb,1.8378e+01_jprb/)  
kao( :, 3,12,11) = (/&
 & 7.6165e-01_jprb,3.3895e+00_jprb,5.7691e+00_jprb,7.9857e+00_jprb,1.0106e+01_jprb,1.2132e+01_jprb,&
 & 1.4063e+01_jprb,1.5865e+01_jprb,1.8221e+01_jprb/)  
kao( :, 4,12,11) = (/&
 & 1.0868e+00_jprb,3.7244e+00_jprb,6.1541e+00_jprb,8.3616e+00_jprb,1.0442e+01_jprb,1.2411e+01_jprb,&
 & 1.4266e+01_jprb,1.5951e+01_jprb,1.8046e+01_jprb/)  
kao( :, 5,12,11) = (/&
 & 1.4941e+00_jprb,4.0983e+00_jprb,6.5760e+00_jprb,8.7801e+00_jprb,1.0819e+01_jprb,1.2722e+01_jprb,&
 & 1.4491e+01_jprb,1.6054e+01_jprb,1.7865e+01_jprb/)  
kao( :, 1,13,11) = (/&
 & 2.7270e-01_jprb,2.8097e+00_jprb,5.1608e+00_jprb,7.4465e+00_jprb,9.6830e+00_jprb,1.1871e+01_jprb,&
 & 1.4022e+01_jprb,1.6138e+01_jprb,1.9047e+01_jprb/)  
kao( :, 2,13,11) = (/&
 & 4.2335e-01_jprb,3.0310e+00_jprb,5.4040e+00_jprb,7.6870e+00_jprb,9.9007e+00_jprb,1.2059e+01_jprb,&
 & 1.4159e+01_jprb,1.6185e+01_jprb,1.8912e+01_jprb/)  
kao( :, 3,13,11) = (/&
 & 6.2933e-01_jprb,3.3002e+00_jprb,5.6896e+00_jprb,7.9624e+00_jprb,1.0150e+01_jprb,1.2270e+01_jprb,&
 & 1.4311e+01_jprb,1.6247e+01_jprb,1.8754e+01_jprb/)  
kao( :, 4,13,11) = (/&
 & 8.9928e-01_jprb,3.6212e+00_jprb,6.0182e+00_jprb,8.2763e+00_jprb,1.0433e+01_jprb,1.2504e+01_jprb,&
 & 1.4478e+01_jprb,1.6320e+01_jprb,1.8583e+01_jprb/)  
kao( :, 5,13,11) = (/&
 & 1.2370e+00_jprb,3.9832e+00_jprb,6.3965e+00_jprb,8.6284e+00_jprb,1.0744e+01_jprb,1.2756e+01_jprb,&
 & 1.4653e+01_jprb,1.6388e+01_jprb,1.8390e+01_jprb/)  
kao( :, 1, 1,12) = (/&
 & 1.9306e+01_jprb,1.6893e+01_jprb,1.4480e+01_jprb,1.2067e+01_jprb,9.6532e+00_jprb,7.2945e+00_jprb,&
 & 6.9148e+00_jprb,7.5278e+00_jprb,2.3433e+01_jprb/)  
kao( :, 2, 1,12) = (/&
 & 2.4650e+01_jprb,2.1569e+01_jprb,1.8488e+01_jprb,1.5406e+01_jprb,1.2325e+01_jprb,9.2438e+00_jprb,&
 & 7.2171e+00_jprb,7.6406e+00_jprb,2.6606e+01_jprb/)  
kao( :, 3, 1,12) = (/&
 & 3.0678e+01_jprb,2.6843e+01_jprb,2.3008e+01_jprb,1.9174e+01_jprb,1.5339e+01_jprb,1.1504e+01_jprb,&
 & 7.9763e+00_jprb,7.7730e+00_jprb,2.9832e+01_jprb/)  
kao( :, 4, 1,12) = (/&
 & 3.7441e+01_jprb,3.2761e+01_jprb,2.8081e+01_jprb,2.3400e+01_jprb,1.8720e+01_jprb,1.4040e+01_jprb,&
 & 9.3666e+00_jprb,7.8947e+00_jprb,3.2935e+01_jprb/)  
kao( :, 5, 1,12) = (/&
 & 4.5012e+01_jprb,3.9386e+01_jprb,3.3759e+01_jprb,2.8133e+01_jprb,2.2506e+01_jprb,1.6880e+01_jprb,&
 & 1.1253e+01_jprb,8.0012e+00_jprb,3.6133e+01_jprb/)  
kao( :, 1, 2,12) = (/&
 & 1.5936e+01_jprb,1.3944e+01_jprb,1.1952e+01_jprb,9.9601e+00_jprb,7.9681e+00_jprb,7.1477e+00_jprb,&
 & 7.9439e+00_jprb,8.7252e+00_jprb,1.6736e+01_jprb/)  
kao( :, 2, 2,12) = (/&
 & 2.0659e+01_jprb,1.8076e+01_jprb,1.5494e+01_jprb,1.2912e+01_jprb,1.0329e+01_jprb,8.0751e+00_jprb,&
 & 8.1865e+00_jprb,8.8715e+00_jprb,1.8751e+01_jprb/)  
kao( :, 3, 2,12) = (/&
 & 2.6211e+01_jprb,2.2935e+01_jprb,1.9658e+01_jprb,1.6382e+01_jprb,1.3106e+01_jprb,9.8303e+00_jprb,&
 & 8.4476e+00_jprb,9.0112e+00_jprb,2.0857e+01_jprb/)  
kao( :, 4, 2,12) = (/&
 & 3.2434e+01_jprb,2.8380e+01_jprb,2.4326e+01_jprb,2.0271e+01_jprb,1.6217e+01_jprb,1.2163e+01_jprb,&
 & 8.9851e+00_jprb,9.1339e+00_jprb,2.2883e+01_jprb/)  
kao( :, 5, 2,12) = (/&
 & 3.9217e+01_jprb,3.4315e+01_jprb,2.9413e+01_jprb,2.4511e+01_jprb,1.9608e+01_jprb,1.4706e+01_jprb,&
 & 1.0077e+01_jprb,9.2744e+00_jprb,2.5016e+01_jprb/)  
kao( :, 1, 3,12) = (/&
 & 1.2204e+01_jprb,1.0678e+01_jprb,9.1529e+00_jprb,7.6274e+00_jprb,7.0064e+00_jprb,8.0165e+00_jprb,&
 & 9.1087e+00_jprb,1.0091e+01_jprb,1.3158e+01_jprb/)  
kao( :, 2, 3,12) = (/&
 & 1.6264e+01_jprb,1.4231e+01_jprb,1.2198e+01_jprb,1.0165e+01_jprb,8.2928e+00_jprb,8.3522e+00_jprb,&
 & 9.3382e+00_jprb,1.0239e+01_jprb,1.3470e+01_jprb/)  
kao( :, 3, 3,12) = (/&
 & 2.0966e+01_jprb,1.8346e+01_jprb,1.5725e+01_jprb,1.3104e+01_jprb,1.0483e+01_jprb,8.9163e+00_jprb,&
 & 9.5941e+00_jprb,1.0378e+01_jprb,1.3791e+01_jprb/)  
kao( :, 4, 3,12) = (/&
 & 2.6346e+01_jprb,2.3053e+01_jprb,1.9760e+01_jprb,1.6466e+01_jprb,1.3173e+01_jprb,1.0186e+01_jprb,&
 & 9.8769e+00_jprb,1.0543e+01_jprb,1.4208e+01_jprb/)  
kao( :, 5, 3,12) = (/&
 & 3.2499e+01_jprb,2.8437e+01_jprb,2.4374e+01_jprb,2.0312e+01_jprb,1.6250e+01_jprb,1.2192e+01_jprb,&
 & 1.0198e+01_jprb,1.0709e+01_jprb,1.4690e+01_jprb/)  
kao( :, 1, 4,12) = (/&
 & 9.0048e+00_jprb,7.8792e+00_jprb,6.7536e+00_jprb,6.3903e+00_jprb,7.6603e+00_jprb,9.0569e+00_jprb,&
 & 1.0373e+01_jprb,1.1571e+01_jprb,1.3828e+01_jprb/)  
kao( :, 2, 4,12) = (/&
 & 1.2261e+01_jprb,1.0728e+01_jprb,9.1954e+00_jprb,7.7773e+00_jprb,8.0813e+00_jprb,9.3965e+00_jprb,&
 & 1.0654e+01_jprb,1.1734e+01_jprb,1.3859e+01_jprb/)  
kao( :, 3, 4,12) = (/&
 & 1.6168e+01_jprb,1.4147e+01_jprb,1.2126e+01_jprb,1.0105e+01_jprb,8.8961e+00_jprb,9.7573e+00_jprb,&
 & 1.0940e+01_jprb,1.1931e+01_jprb,1.3916e+01_jprb/)  
kao( :, 4, 4,12) = (/&
 & 2.0801e+01_jprb,1.8201e+01_jprb,1.5600e+01_jprb,1.3000e+01_jprb,1.0554e+01_jprb,1.0169e+01_jprb,&
 & 1.1223e+01_jprb,1.2118e+01_jprb,1.4034e+01_jprb/)  
kao( :, 5, 4,12) = (/&
 & 2.5988e+01_jprb,2.2740e+01_jprb,1.9491e+01_jprb,1.6243e+01_jprb,1.2994e+01_jprb,1.0946e+01_jprb,&
 & 1.1496e+01_jprb,1.2284e+01_jprb,1.4164e+01_jprb/)  
kao( :, 1, 5,12) = (/&
 & 6.4609e+00_jprb,5.6532e+00_jprb,5.2932e+00_jprb,6.8539e+00_jprb,8.5960e+00_jprb,1.0239e+01_jprb,&
 & 1.1787e+01_jprb,1.3220e+01_jprb,1.5562e+01_jprb/)  
kao( :, 2, 5,12) = (/&
 & 9.0364e+00_jprb,7.9068e+00_jprb,6.8055e+00_jprb,7.2952e+00_jprb,8.9859e+00_jprb,1.0601e+01_jprb,&
 & 1.2085e+01_jprb,1.3419e+01_jprb,1.5565e+01_jprb/)  
kao( :, 3, 5,12) = (/&
 & 1.2240e+01_jprb,1.0710e+01_jprb,9.1797e+00_jprb,8.2618e+00_jprb,9.3995e+00_jprb,1.0970e+01_jprb,&
 & 1.2380e+01_jprb,1.3618e+01_jprb,1.5546e+01_jprb/)  
kao( :, 4, 5,12) = (/&
 & 1.6001e+01_jprb,1.4001e+01_jprb,1.2001e+01_jprb,1.0093e+01_jprb,9.9460e+00_jprb,1.1348e+01_jprb,&
 & 1.2695e+01_jprb,1.3806e+01_jprb,1.5493e+01_jprb/)  
kao( :, 5, 5,12) = (/&
 & 2.0392e+01_jprb,1.7843e+01_jprb,1.5294e+01_jprb,1.2745e+01_jprb,1.1072e+01_jprb,1.1762e+01_jprb,&
 & 1.3031e+01_jprb,1.4007e+01_jprb,1.5413e+01_jprb/)  
kao( :, 1, 6,12) = (/&
 & 4.4633e+00_jprb,3.9388e+00_jprb,5.4668e+00_jprb,7.5584e+00_jprb,9.5392e+00_jprb,1.1432e+01_jprb,&
 & 1.3234e+01_jprb,1.4983e+01_jprb,1.7552e+01_jprb/)  
kao( :, 2, 6,12) = (/&
 & 6.4534e+00_jprb,5.6467e+00_jprb,5.9493e+00_jprb,7.9882e+00_jprb,9.9652e+00_jprb,1.1825e+01_jprb,&
 & 1.3565e+01_jprb,1.5163e+01_jprb,1.7552e+01_jprb/)  
kao( :, 3, 6,12) = (/&
 & 8.9369e+00_jprb,7.8198e+00_jprb,7.0306e+00_jprb,8.4620e+00_jprb,1.0422e+01_jprb,1.2244e+01_jprb,&
 & 1.3924e+01_jprb,1.5375e+01_jprb,1.7522e+01_jprb/)  
kao( :, 4, 6,12) = (/&
 & 1.1971e+01_jprb,1.0475e+01_jprb,8.9883e+00_jprb,9.0910e+00_jprb,1.0899e+01_jprb,1.2682e+01_jprb,&
 & 1.4284e+01_jprb,1.5608e+01_jprb,1.7458e+01_jprb/)  
kao( :, 5, 6,12) = (/&
 & 1.5570e+01_jprb,1.3624e+01_jprb,1.1678e+01_jprb,1.0383e+01_jprb,1.1407e+01_jprb,1.3124e+01_jprb,&
 & 1.4643e+01_jprb,1.5845e+01_jprb,1.7360e+01_jprb/)  
kao( :, 1, 7,12) = (/&
 & 3.0144e+00_jprb,3.4301e+00_jprb,5.9195e+00_jprb,8.2854e+00_jprb,1.0547e+01_jprb,1.2704e+01_jprb,&
 & 1.4784e+01_jprb,1.6795e+01_jprb,1.9646e+01_jprb/)  
kao( :, 2, 7,12) = (/&
 & 4.4866e+00_jprb,4.1345e+00_jprb,6.3401e+00_jprb,8.7329e+00_jprb,1.0993e+01_jprb,1.3127e+01_jprb,&
 & 1.5133e+01_jprb,1.6992e+01_jprb,1.9648e+01_jprb/)  
kao( :, 3, 7,12) = (/&
 & 6.3891e+00_jprb,5.5915e+00_jprb,6.8167e+00_jprb,9.2170e+00_jprb,1.1473e+01_jprb,1.3569e+01_jprb,&
 & 1.5507e+01_jprb,1.7228e+01_jprb,1.9616e+01_jprb/)  
kao( :, 4, 7,12) = (/&
 & 8.7782e+00_jprb,7.6809e+00_jprb,7.5739e+00_jprb,9.7331e+00_jprb,1.1970e+01_jprb,1.4031e+01_jprb,&
 & 1.5873e+01_jprb,1.7477e+01_jprb,1.9541e+01_jprb/)  
kao( :, 5, 7,12) = (/&
 & 1.1625e+01_jprb,1.0171e+01_jprb,9.0298e+00_jprb,1.0306e+01_jprb,1.2492e+01_jprb,1.4497e+01_jprb,&
 & 1.6257e+01_jprb,1.7701e+01_jprb,1.9439e+01_jprb/)  
kao( :, 1, 8,12) = (/&
 & 1.9926e+00_jprb,3.6034e+00_jprb,6.3775e+00_jprb,8.9929e+00_jprb,1.1503e+01_jprb,1.3945e+01_jprb,&
 & 1.6299e+01_jprb,1.8684e+01_jprb,2.1745e+01_jprb/)  
kao( :, 2, 8,12) = (/&
 & 3.0617e+00_jprb,3.9634e+00_jprb,6.8142e+00_jprb,9.4600e+00_jprb,1.1969e+01_jprb,1.4375e+01_jprb,&
 & 1.6657e+01_jprb,1.8850e+01_jprb,2.1761e+01_jprb/)  
kao( :, 3, 8,12) = (/&
 & 4.4985e+00_jprb,4.5132e+00_jprb,7.2998e+00_jprb,9.9757e+00_jprb,1.2478e+01_jprb,1.4838e+01_jprb,&
 & 1.7040e+01_jprb,1.9071e+01_jprb,2.1736e+01_jprb/)  
kao( :, 4, 8,12) = (/&
 & 6.3130e+00_jprb,5.6506e+00_jprb,7.8250e+00_jprb,1.0530e+01_jprb,1.3024e+01_jprb,1.5335e+01_jprb,&
 & 1.7448e+01_jprb,1.9301e+01_jprb,2.1660e+01_jprb/)  
kao( :, 5, 8,12) = (/&
 & 8.5677e+00_jprb,7.4967e+00_jprb,8.4271e+00_jprb,1.1119e+01_jprb,1.3598e+01_jprb,1.5852e+01_jprb,&
 & 1.7874e+01_jprb,1.9541e+01_jprb,2.1548e+01_jprb/)  
kao( :, 1, 9,12) = (/&
 & 1.2882e+00_jprb,3.7811e+00_jprb,6.7889e+00_jprb,9.6675e+00_jprb,1.2448e+01_jprb,1.5144e+01_jprb,&
 & 1.7789e+01_jprb,2.0526e+01_jprb,2.3798e+01_jprb/)  
kao( :, 2, 9,12) = (/&
 & 2.0503e+00_jprb,4.1428e+00_jprb,7.2351e+00_jprb,1.0146e+01_jprb,1.2918e+01_jprb,1.5574e+01_jprb,&
 & 1.8133e+01_jprb,2.0600e+01_jprb,2.3807e+01_jprb/)  
kao( :, 3, 9,12) = (/&
 & 3.0980e+00_jprb,4.5533e+00_jprb,7.7296e+00_jprb,1.0674e+01_jprb,1.3445e+01_jprb,1.6056e+01_jprb,&
 & 1.8526e+01_jprb,2.0799e+01_jprb,2.3759e+01_jprb/)  
kao( :, 4, 9,12) = (/&
 & 4.4694e+00_jprb,5.0345e+00_jprb,8.2724e+00_jprb,1.1243e+01_jprb,1.4010e+01_jprb,1.6578e+01_jprb,&
 & 1.8947e+01_jprb,2.1039e+01_jprb,2.3671e+01_jprb/)  
kao( :, 5, 9,12) = (/&
 & 6.1961e+00_jprb,5.9006e+00_jprb,8.8587e+00_jprb,1.1853e+01_jprb,1.4601e+01_jprb,1.7119e+01_jprb,&
 & 1.9383e+01_jprb,2.1299e+01_jprb,2.3541e+01_jprb/)  
kao( :, 1,10,12) = (/&
 & 8.5127e-01_jprb,3.9419e+00_jprb,7.1781e+00_jprb,1.0273e+01_jprb,1.3291e+01_jprb,1.6253e+01_jprb,&
 & 1.9160e+01_jprb,2.2190e+01_jprb,2.5668e+01_jprb/)  
kao( :, 2,10,12) = (/&
 & 1.3967e+00_jprb,4.3019e+00_jprb,7.6193e+00_jprb,1.0754e+01_jprb,1.3770e+01_jprb,1.6679e+01_jprb,&
 & 1.9482e+01_jprb,2.2205e+01_jprb,2.5653e+01_jprb/)  
kao( :, 3,10,12) = (/&
 & 2.1663e+00_jprb,4.7169e+00_jprb,8.1215e+00_jprb,1.1290e+01_jprb,1.4299e+01_jprb,1.7163e+01_jprb,&
 & 1.9866e+01_jprb,2.2382e+01_jprb,2.5585e+01_jprb/)  
kao( :, 4,10,12) = (/&
 & 3.2052e+00_jprb,5.1856e+00_jprb,8.6831e+00_jprb,1.1877e+01_jprb,1.4873e+01_jprb,1.7685e+01_jprb,&
 & 2.0283e+01_jprb,2.2619e+01_jprb,2.5476e+01_jprb/)  
kao( :, 5,10,12) = (/&
 & 4.5284e+00_jprb,5.7035e+00_jprb,9.2918e+00_jprb,1.2513e+01_jprb,1.5482e+01_jprb,1.8231e+01_jprb,&
 & 2.0720e+01_jprb,2.2887e+01_jprb,2.5332e+01_jprb/)  
kao( :, 1,11,12) = (/&
 & 7.1408e-01_jprb,4.2187e+00_jprb,7.6724e+00_jprb,1.0987e+01_jprb,1.4213e+01_jprb,1.7344e+01_jprb,&
 & 2.0412e+01_jprb,2.3581e+01_jprb,2.7221e+01_jprb/)  
kao( :, 2,11,12) = (/&
 & 1.1737e+00_jprb,4.6015e+00_jprb,8.1394e+00_jprb,1.1481e+01_jprb,1.4695e+01_jprb,1.7776e+01_jprb,&
 & 2.0744e+01_jprb,2.3608e+01_jprb,2.7158e+01_jprb/)  

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


SUBROUTINE part9

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


kao( :, 3,11,12) = (/&
 & 1.8278e+00_jprb,5.0397e+00_jprb,8.6695e+00_jprb,1.2042e+01_jprb,1.5239e+01_jprb,1.8262e+01_jprb,&
 & 2.1130e+01_jprb,2.3787e+01_jprb,2.7045e+01_jprb/)  
kao( :, 4,11,12) = (/&
 & 2.7031e+00_jprb,5.5344e+00_jprb,9.2593e+00_jprb,1.2658e+01_jprb,1.5837e+01_jprb,1.8803e+01_jprb,&
 & 2.1557e+01_jprb,2.4018e+01_jprb,2.6895e+01_jprb/)  
kao( :, 5,11,12) = (/&
 & 3.8301e+00_jprb,6.0785e+00_jprb,9.8968e+00_jprb,1.3323e+01_jprb,1.6474e+01_jprb,1.9384e+01_jprb,&
 & 2.2018e+01_jprb,2.4269e+01_jprb,2.6697e+01_jprb/)  
kao( :, 1,12,12) = (/&
 & 5.9719e-01_jprb,4.4357e+00_jprb,8.0495e+00_jprb,1.1513e+01_jprb,1.4864e+01_jprb,1.8123e+01_jprb,&
 & 2.1317e+01_jprb,2.4560e+01_jprb,2.8304e+01_jprb/)  
kao( :, 2,12,12) = (/&
 & 9.8514e-01_jprb,4.8310e+00_jprb,8.5352e+00_jprb,1.2024e+01_jprb,1.5349e+01_jprb,1.8551e+01_jprb,&
 & 2.1630e+01_jprb,2.4592e+01_jprb,2.8167e+01_jprb/)  
kao( :, 3,12,12) = (/&
 & 1.5344e+00_jprb,5.2869e+00_jprb,9.0837e+00_jprb,1.2602e+01_jprb,1.5914e+01_jprb,1.9055e+01_jprb,&
 & 2.2019e+01_jprb,2.4762e+01_jprb,2.7998e+01_jprb/)  
kao( :, 4,12,12) = (/&
 & 2.2758e+00_jprb,5.8021e+00_jprb,9.6908e+00_jprb,1.3238e+01_jprb,1.6534e+01_jprb,1.9617e+01_jprb,&
 & 2.2454e+01_jprb,2.4978e+01_jprb,2.7783e+01_jprb/)  
kao( :, 5,12,12) = (/&
 & 3.2239e+00_jprb,6.3684e+00_jprb,1.0355e+01_jprb,1.3925e+01_jprb,1.7197e+01_jprb,2.0204e+01_jprb,&
 & 2.2925e+01_jprb,2.5222e+01_jprb,2.7528e+01_jprb/)  
kao( :, 1,13,12) = (/&
 & 4.9832e-01_jprb,4.5623e+00_jprb,8.2781e+00_jprb,1.1820e+01_jprb,1.5240e+01_jprb,1.8570e+01_jprb,&
 & 2.1811e+01_jprb,2.5026e+01_jprb,2.8851e+01_jprb/)  
kao( :, 2,13,12) = (/&
 & 8.2244e-01_jprb,4.9642e+00_jprb,8.7578e+00_jprb,1.2321e+01_jprb,1.5731e+01_jprb,1.9002e+01_jprb,&
 & 2.2129e+01_jprb,2.5100e+01_jprb,2.8676e+01_jprb/)  
kao( :, 3,13,12) = (/&
 & 1.2846e+00_jprb,5.4326e+00_jprb,9.3155e+00_jprb,1.2900e+01_jprb,1.6287e+01_jprb,1.9496e+01_jprb,&
 & 2.2507e+01_jprb,2.5267e+01_jprb,2.8460e+01_jprb/)  
kao( :, 4,13,12) = (/&
 & 1.9049e+00_jprb,5.9589e+00_jprb,9.9399e+00_jprb,1.3548e+01_jprb,1.6904e+01_jprb,2.0038e+01_jprb,&
 & 2.2926e+01_jprb,2.5474e+01_jprb,2.8207e+01_jprb/)  
kao( :, 5,13,12) = (/&
 & 2.7022e+00_jprb,6.5411e+00_jprb,1.0623e+01_jprb,1.4250e+01_jprb,1.7574e+01_jprb,2.0623e+01_jprb,&
 & 2.3373e+01_jprb,2.5690e+01_jprb,2.7914e+01_jprb/)  
kao( :, 1, 1,13) = (/&
 & 3.4080e+01_jprb,2.9820e+01_jprb,2.5560e+01_jprb,2.1300e+01_jprb,1.7040e+01_jprb,1.2780e+01_jprb,&
 & 8.7310e+00_jprb,8.0673e+00_jprb,2.9577e+01_jprb/)  
kao( :, 2, 1,13) = (/&
 & 4.4290e+01_jprb,3.8754e+01_jprb,3.3217e+01_jprb,2.7681e+01_jprb,2.2145e+01_jprb,1.6609e+01_jprb,&
 & 1.1073e+01_jprb,8.2554e+00_jprb,3.3128e+01_jprb/)  
kao( :, 3, 1,13) = (/&
 & 5.6045e+01_jprb,4.9040e+01_jprb,4.2034e+01_jprb,3.5028e+01_jprb,2.8023e+01_jprb,2.1017e+01_jprb,&
 & 1.4011e+01_jprb,8.4999e+00_jprb,3.6715e+01_jprb/)  
kao( :, 4, 1,13) = (/&
 & 6.9030e+01_jprb,6.0401e+01_jprb,5.1772e+01_jprb,4.3144e+01_jprb,3.4515e+01_jprb,2.5886e+01_jprb,&
 & 1.7257e+01_jprb,9.2154e+00_jprb,4.0421e+01_jprb/)  
kao( :, 5, 1,13) = (/&
 & 8.3025e+01_jprb,7.2647e+01_jprb,6.2269e+01_jprb,5.1890e+01_jprb,4.1512e+01_jprb,3.1134e+01_jprb,&
 & 2.0756e+01_jprb,1.0504e+01_jprb,4.4180e+01_jprb/)  
kao( :, 1, 2,13) = (/&
 & 3.0233e+01_jprb,2.6454e+01_jprb,2.2675e+01_jprb,1.8895e+01_jprb,1.5116e+01_jprb,1.1337e+01_jprb,&
 & 8.9456e+00_jprb,9.4618e+00_jprb,2.0893e+01_jprb/)  
kao( :, 2, 2,13) = (/&
 & 3.9883e+01_jprb,3.4897e+01_jprb,2.9912e+01_jprb,2.4927e+01_jprb,1.9941e+01_jprb,1.4956e+01_jprb,&
 & 1.0322e+01_jprb,9.6468e+00_jprb,2.3460e+01_jprb/)  
kao( :, 3, 2,13) = (/&
 & 5.0858e+01_jprb,4.4501e+01_jprb,3.8144e+01_jprb,3.1786e+01_jprb,2.5429e+01_jprb,1.9072e+01_jprb,&
 & 1.2717e+01_jprb,9.8260e+00_jprb,2.6105e+01_jprb/)  
kao( :, 4, 2,13) = (/&
 & 6.3293e+01_jprb,5.5381e+01_jprb,4.7469e+01_jprb,3.9558e+01_jprb,3.1646e+01_jprb,2.3735e+01_jprb,&
 & 1.5823e+01_jprb,1.0061e+01_jprb,2.8871e+01_jprb/)  
kao( :, 5, 2,13) = (/&
 & 7.7095e+01_jprb,6.7458e+01_jprb,5.7821e+01_jprb,4.8184e+01_jprb,3.8547e+01_jprb,2.8911e+01_jprb,&
 & 1.9274e+01_jprb,1.0716e+01_jprb,3.1684e+01_jprb/)  
kao( :, 1, 3,13) = (/&
 & 2.4631e+01_jprb,2.1553e+01_jprb,1.8474e+01_jprb,1.5395e+01_jprb,1.2316e+01_jprb,9.8916e+00_jprb,&
 & 1.0038e+01_jprb,1.1089e+01_jprb,1.4306e+01_jprb/)  
kao( :, 2, 3,13) = (/&
 & 3.3118e+01_jprb,2.8978e+01_jprb,2.4838e+01_jprb,2.0699e+01_jprb,1.6559e+01_jprb,1.2452e+01_jprb,&
 & 1.0491e+01_jprb,1.1254e+01_jprb,1.4773e+01_jprb/)  
kao( :, 3, 3,13) = (/&
 & 4.3194e+01_jprb,3.7795e+01_jprb,3.2396e+01_jprb,2.6996e+01_jprb,2.1597e+01_jprb,1.6198e+01_jprb,&
 & 1.1695e+01_jprb,1.1459e+01_jprb,1.5413e+01_jprb/)  
kao( :, 4, 3,13) = (/&
 & 5.4783e+01_jprb,4.7935e+01_jprb,4.1087e+01_jprb,3.4239e+01_jprb,2.7391e+01_jprb,2.0543e+01_jprb,&
 & 1.3845e+01_jprb,1.1681e+01_jprb,1.6296e+01_jprb/)  
kao( :, 5, 3,13) = (/&
 & 6.7780e+01_jprb,5.9307e+01_jprb,5.0835e+01_jprb,4.2362e+01_jprb,3.3890e+01_jprb,2.5417e+01_jprb,&
 & 1.6945e+01_jprb,1.1890e+01_jprb,1.7557e+01_jprb/)  
kao( :, 1, 4,13) = (/&
 & 1.9088e+01_jprb,1.6702e+01_jprb,1.4316e+01_jprb,1.1930e+01_jprb,1.0048e+01_jprb,1.0234e+01_jprb,&
 & 1.1609e+01_jprb,1.2948e+01_jprb,1.5443e+01_jprb/)  
kao( :, 2, 4,13) = (/&
 & 2.6468e+01_jprb,2.3159e+01_jprb,1.9851e+01_jprb,1.6542e+01_jprb,1.3234e+01_jprb,1.1284e+01_jprb,&
 & 1.1975e+01_jprb,1.3181e+01_jprb,1.5496e+01_jprb/)  
kao( :, 3, 4,13) = (/&
 & 3.5386e+01_jprb,3.0963e+01_jprb,2.6539e+01_jprb,2.2116e+01_jprb,1.7693e+01_jprb,1.3581e+01_jprb,&
 & 1.2366e+01_jprb,1.3400e+01_jprb,1.5533e+01_jprb/)  
kao( :, 4, 4,13) = (/&
 & 4.5721e+01_jprb,4.0006e+01_jprb,3.4291e+01_jprb,2.8576e+01_jprb,2.2861e+01_jprb,1.7146e+01_jprb,&
 & 1.3293e+01_jprb,1.3609e+01_jprb,1.5601e+01_jprb/)  
kao( :, 5, 4,13) = (/&
 & 5.7463e+01_jprb,5.0280e+01_jprb,4.3097e+01_jprb,3.5914e+01_jprb,2.8732e+01_jprb,2.1549e+01_jprb,&
 & 1.5088e+01_jprb,1.3821e+01_jprb,1.5706e+01_jprb/)  
kao( :, 1, 5,13) = (/&
 & 1.4426e+01_jprb,1.2622e+01_jprb,1.0819e+01_jprb,9.3955e+00_jprb,9.8959e+00_jprb,1.1682e+01_jprb,&
 & 1.3442e+01_jprb,1.5150e+01_jprb,1.7787e+01_jprb/)  
kao( :, 2, 5,13) = (/&
 & 2.0633e+01_jprb,1.8054e+01_jprb,1.5474e+01_jprb,1.2895e+01_jprb,1.1371e+01_jprb,1.2152e+01_jprb,&
 & 1.3795e+01_jprb,1.5372e+01_jprb,1.7817e+01_jprb/)  
kao( :, 3, 5,13) = (/&
 & 2.8181e+01_jprb,2.4658e+01_jprb,2.1135e+01_jprb,1.7613e+01_jprb,1.4271e+01_jprb,1.3007e+01_jprb,&
 & 1.4200e+01_jprb,1.5591e+01_jprb,1.7815e+01_jprb/)  
kao( :, 4, 5,13) = (/&
 & 3.7172e+01_jprb,3.2526e+01_jprb,2.7879e+01_jprb,2.3233e+01_jprb,1.8586e+01_jprb,1.4927e+01_jprb,&
 & 1.4654e+01_jprb,1.5856e+01_jprb,1.7795e+01_jprb/)  
kao( :, 5, 5,13) = (/&
 & 4.7583e+01_jprb,4.1635e+01_jprb,3.5687e+01_jprb,2.9739e+01_jprb,2.3791e+01_jprb,1.8024e+01_jprb,&
 & 1.5280e+01_jprb,1.6121e+01_jprb,1.7748e+01_jprb/)  
kao( :, 1, 6,13) = (/&
 & 1.0461e+01_jprb,9.1530e+00_jprb,8.0649e+00_jprb,8.9595e+00_jprb,1.1163e+01_jprb,1.3388e+01_jprb,&
 & 1.5529e+01_jprb,1.7569e+01_jprb,2.0564e+01_jprb/)  
kao( :, 2, 6,13) = (/&
 & 1.5391e+01_jprb,1.3467e+01_jprb,1.1543e+01_jprb,1.0534e+01_jprb,1.1753e+01_jprb,1.3875e+01_jprb,&
 & 1.5945e+01_jprb,1.7834e+01_jprb,2.0625e+01_jprb/)  
kao( :, 3, 6,13) = (/&
 & 2.1628e+01_jprb,1.8924e+01_jprb,1.6221e+01_jprb,1.3622e+01_jprb,1.2887e+01_jprb,1.4422e+01_jprb,&
 & 1.6374e+01_jprb,1.8123e+01_jprb,2.0643e+01_jprb/)  
kao( :, 4, 6,13) = (/&
 & 2.9247e+01_jprb,2.5591e+01_jprb,2.1935e+01_jprb,1.8279e+01_jprb,1.5333e+01_jprb,1.5076e+01_jprb,&
 & 1.6798e+01_jprb,1.8415e+01_jprb,2.0622e+01_jprb/)  
kao( :, 5, 6,13) = (/&
 & 3.8260e+01_jprb,3.3478e+01_jprb,2.8695e+01_jprb,2.3913e+01_jprb,1.9193e+01_jprb,1.6572e+01_jprb,&
 & 1.7244e+01_jprb,1.8672e+01_jprb,2.0568e+01_jprb/)  
kao( :, 1, 7,13) = (/&
 & 7.3043e+00_jprb,6.3921e+00_jprb,7.2574e+00_jprb,9.9309e+00_jprb,1.2660e+01_jprb,1.5305e+01_jprb,&
 & 1.7830e+01_jprb,2.0388e+01_jprb,2.3721e+01_jprb/)  
kao( :, 2, 7,13) = (/&
 & 1.1153e+01_jprb,9.7589e+00_jprb,8.9368e+00_jprb,1.0556e+01_jprb,1.3220e+01_jprb,1.5825e+01_jprb,&
 & 1.8263e+01_jprb,2.0631e+01_jprb,2.3818e+01_jprb/)  
kao( :, 3, 7,13) = (/&
 & 1.6186e+01_jprb,1.4162e+01_jprb,1.2167e+01_jprb,1.1878e+01_jprb,1.3854e+01_jprb,1.6375e+01_jprb,&
 & 1.8737e+01_jprb,2.0904e+01_jprb,2.3851e+01_jprb/)  
kao( :, 4, 7,13) = (/&
 & 2.2456e+01_jprb,1.9649e+01_jprb,1.6842e+01_jprb,1.4587e+01_jprb,1.4796e+01_jprb,1.6968e+01_jprb,&
 & 1.9249e+01_jprb,2.1203e+01_jprb,2.3842e+01_jprb/)  
kao( :, 5, 7,13) = (/&
 & 2.9970e+01_jprb,2.6223e+01_jprb,2.2477e+01_jprb,1.8752e+01_jprb,1.6763e+01_jprb,1.7653e+01_jprb,&
 & 1.9767e+01_jprb,2.1542e+01_jprb,2.3797e+01_jprb/)  
kao( :, 1, 8,13) = (/&
 & 4.9692e+00_jprb,4.9125e+00_jprb,7.9064e+00_jprb,1.1184e+01_jprb,1.4336e+01_jprb,1.7379e+01_jprb,&
 & 2.0369e+01_jprb,2.3491e+01_jprb,2.7234e+01_jprb/)  
kao( :, 2, 8,13) = (/&
 & 7.9016e+00_jprb,6.9643e+00_jprb,8.5289e+00_jprb,1.1787e+01_jprb,1.4948e+01_jprb,1.7963e+01_jprb,&
 & 2.0857e+01_jprb,2.3626e+01_jprb,2.7349e+01_jprb/)  
kao( :, 3, 8,13) = (/&
 & 1.1829e+01_jprb,1.0351e+01_jprb,1.0018e+01_jprb,1.2473e+01_jprb,1.5611e+01_jprb,1.8590e+01_jprb,&
 & 2.1391e+01_jprb,2.3947e+01_jprb,2.7404e+01_jprb/)  
kao( :, 4, 8,13) = (/&
 & 1.6837e+01_jprb,1.4732e+01_jprb,1.2874e+01_jprb,1.3529e+01_jprb,1.6319e+01_jprb,1.9246e+01_jprb,&
 & 2.1937e+01_jprb,2.4318e+01_jprb,2.7406e+01_jprb/)  
kao( :, 5, 8,13) = (/&
 & 2.2996e+01_jprb,2.0122e+01_jprb,1.7247e+01_jprb,1.5765e+01_jprb,1.7114e+01_jprb,1.9918e+01_jprb,&
 & 2.2479e+01_jprb,2.4688e+01_jprb,2.7359e+01_jprb/)  
kao( :, 1, 9,13) = (/&
 & 3.2797e+00_jprb,4.8490e+00_jprb,8.7424e+00_jprb,1.2456e+01_jprb,1.6073e+01_jprb,1.9620e+01_jprb,&
 & 2.3097e+01_jprb,2.6808e+01_jprb,3.0988e+01_jprb/)  
kao( :, 2, 9,13) = (/&
 & 5.4392e+00_jprb,5.6637e+00_jprb,9.3267e+00_jprb,1.3100e+01_jprb,1.6727e+01_jprb,2.0234e+01_jprb,&
 & 2.3592e+01_jprb,2.6965e+01_jprb,3.1144e+01_jprb/)  
kao( :, 3, 9,13) = (/&
 & 8.4169e+00_jprb,7.5619e+00_jprb,1.0020e+01_jprb,1.3811e+01_jprb,1.7436e+01_jprb,2.0893e+01_jprb,&
 & 2.4142e+01_jprb,2.7260e+01_jprb,3.1227e+01_jprb/)  
kao( :, 4, 9,13) = (/&
 & 1.2342e+01_jprb,1.0800e+01_jprb,1.1274e+01_jprb,1.4589e+01_jprb,1.8199e+01_jprb,2.1593e+01_jprb,&
 & 2.4734e+01_jprb,2.7614e+01_jprb,3.1244e+01_jprb/)  
kao( :, 5, 9,13) = (/&
 & 1.7292e+01_jprb,1.5131e+01_jprb,1.3759e+01_jprb,1.5542e+01_jprb,1.9006e+01_jprb,2.2332e+01_jprb,&
 & 2.5355e+01_jprb,2.7981e+01_jprb,3.1197e+01_jprb/)  
kao( :, 1,10,13) = (/&
 & 2.2032e+00_jprb,5.2890e+00_jprb,9.6706e+00_jprb,1.3878e+01_jprb,1.7966e+01_jprb,2.1973e+01_jprb,&
 & 2.5989e+01_jprb,3.0314e+01_jprb,3.4958e+01_jprb/)  
kao( :, 2,10,13) = (/&
 & 3.7831e+00_jprb,5.7837e+00_jprb,1.0292e+01_jprb,1.4556e+01_jprb,1.8648e+01_jprb,2.2606e+01_jprb,&
 & 2.6478e+01_jprb,3.0484e+01_jprb,3.5130e+01_jprb/)  
kao( :, 3,10,13) = (/&
 & 6.0546e+00_jprb,6.6064e+00_jprb,1.0987e+01_jprb,1.5317e+01_jprb,1.9415e+01_jprb,2.3325e+01_jprb,&
 & 2.7070e+01_jprb,3.0679e+01_jprb,3.5221e+01_jprb/)  
kao( :, 4,10,13) = (/&
 & 9.1249e+00_jprb,8.4338e+00_jprb,1.1767e+01_jprb,1.6143e+01_jprb,2.0247e+01_jprb,2.4103e+01_jprb,&
 & 2.7726e+01_jprb,3.1040e+01_jprb,3.5231e+01_jprb/)  
kao( :, 5,10,13) = (/&
 & 1.3052e+01_jprb,1.1454e+01_jprb,1.2877e+01_jprb,1.7024e+01_jprb,2.1124e+01_jprb,2.4923e+01_jprb,&
 & 2.8417e+01_jprb,3.1455e+01_jprb,3.5171e+01_jprb/)  
kao( :, 1,11,13) = (/&
 & 1.9086e+00_jprb,5.9459e+00_jprb,1.0873e+01_jprb,1.5591e+01_jprb,2.0164e+01_jprb,2.4670e+01_jprb,&
 & 2.9154e+01_jprb,3.3957e+01_jprb,3.9072e+01_jprb/)  
kao( :, 2,11,13) = (/&
 & 3.2952e+00_jprb,6.4851e+00_jprb,1.1554e+01_jprb,1.6337e+01_jprb,2.0921e+01_jprb,2.5369e+01_jprb,&
 & 2.9685e+01_jprb,3.4092e+01_jprb,3.9214e+01_jprb/)  
kao( :, 3,11,13) = (/&
 & 5.2771e+00_jprb,7.1279e+00_jprb,1.2325e+01_jprb,1.7170e+01_jprb,2.1762e+01_jprb,2.6155e+01_jprb,&
 & 3.0331e+01_jprb,3.4338e+01_jprb,3.9267e+01_jprb/)  
kao( :, 4,11,13) = (/&
 & 7.9532e+00_jprb,8.2986e+00_jprb,1.3169e+01_jprb,1.8082e+01_jprb,2.2666e+01_jprb,2.6993e+01_jprb,&
 & 3.1034e+01_jprb,3.4728e+01_jprb,3.9232e+01_jprb/)  
kao( :, 5,11,13) = (/&
 & 1.1408e+01_jprb,1.0479e+01_jprb,1.4101e+01_jprb,1.9050e+01_jprb,2.3632e+01_jprb,2.7870e+01_jprb,&
 & 3.1762e+01_jprb,3.5164e+01_jprb,3.9117e+01_jprb/)  
kao( :, 1,12,13) = (/&
 & 1.6495e+00_jprb,6.5961e+00_jprb,1.2057e+01_jprb,1.7278e+01_jprb,2.2356e+01_jprb,2.7342e+01_jprb,&
 & 3.2267e+01_jprb,3.7500e+01_jprb,4.3085e+01_jprb/)  
kao( :, 2,12,13) = (/&
 & 2.8452e+00_jprb,7.1855e+00_jprb,1.2796e+01_jprb,1.8080e+01_jprb,2.3168e+01_jprb,2.8094e+01_jprb,&
 & 3.2847e+01_jprb,3.7597e+01_jprb,4.3183e+01_jprb/)  
kao( :, 3,12,13) = (/&
 & 4.5627e+00_jprb,7.8617e+00_jprb,1.3635e+01_jprb,1.8987e+01_jprb,2.4069e+01_jprb,2.8923e+01_jprb,&
 & 3.3529e+01_jprb,3.7904e+01_jprb,4.3185e+01_jprb/)  
kao( :, 4,12,13) = (/&
 & 6.8882e+00_jprb,8.6791e+00_jprb,1.4557e+01_jprb,1.9976e+01_jprb,2.5052e+01_jprb,2.9817e+01_jprb,&
 & 3.4260e+01_jprb,3.8316e+01_jprb,4.3097e+01_jprb/)  
kao( :, 5,12,13) = (/&
 & 9.8701e+00_jprb,1.0128e+01_jprb,1.5550e+01_jprb,2.1028e+01_jprb,2.6084e+01_jprb,3.0768e+01_jprb,&
 & 3.5030e+01_jprb,3.8758e+01_jprb,4.2923e+01_jprb/)  
kao( :, 1,13,13) = (/&
 & 1.4102e+00_jprb,7.2101e+00_jprb,1.3161e+01_jprb,1.8856e+01_jprb,2.4405e+01_jprb,2.9839e+01_jprb,&
 & 3.5177e+01_jprb,4.0784e+01_jprb,4.6821e+01_jprb/)  
kao( :, 2,13,13) = (/&
 & 2.4382e+00_jprb,7.8482e+00_jprb,1.3963e+01_jprb,1.9729e+01_jprb,2.5265e+01_jprb,3.0620e+01_jprb,&
 & 3.5779e+01_jprb,4.0841e+01_jprb,4.6845e+01_jprb/)  
kao( :, 3,13,13) = (/&
 & 3.9130e+00_jprb,8.5783e+00_jprb,1.4859e+01_jprb,2.0699e+01_jprb,2.6235e+01_jprb,3.1498e+01_jprb,&
 & 3.6480e+01_jprb,4.1163e+01_jprb,4.6764e+01_jprb/)  
kao( :, 4,13,13) = (/&
 & 5.9062e+00_jprb,9.3898e+00_jprb,1.5851e+01_jprb,2.1749e+01_jprb,2.7273e+01_jprb,3.2456e+01_jprb,&
 & 3.7253e+01_jprb,4.1590e+01_jprb,4.6596e+01_jprb/)  
kao( :, 5,13,13) = (/&
 & 8.4798e+00_jprb,1.0367e+01_jprb,1.6908e+01_jprb,2.2869e+01_jprb,2.8363e+01_jprb,3.3450e+01_jprb,&
 & 3.8074e+01_jprb,4.2068e+01_jprb,4.6355e+01_jprb/)  
kao( :, 1, 1,14) = (/&
 & 6.5174e+01_jprb,5.7027e+01_jprb,4.8880e+01_jprb,4.0734e+01_jprb,3.2587e+01_jprb,2.4440e+01_jprb,&
 & 1.6293e+01_jprb,9.0902e+00_jprb,3.6845e+01_jprb/)  
kao( :, 2, 1,14) = (/&
 & 8.4423e+01_jprb,7.3870e+01_jprb,6.3317e+01_jprb,5.2765e+01_jprb,4.2212e+01_jprb,3.1659e+01_jprb,&
 & 2.1106e+01_jprb,1.0672e+01_jprb,4.1742e+01_jprb/)  
kao( :, 3, 1,14) = (/&
 & 1.0604e+02_jprb,9.2788e+01_jprb,7.9533e+01_jprb,6.6277e+01_jprb,5.3022e+01_jprb,3.9766e+01_jprb,&
 & 2.6511e+01_jprb,1.3255e+01_jprb,4.6647e+01_jprb/)  
kao( :, 4, 1,14) = (/&
 & 1.3020e+02_jprb,1.1393e+02_jprb,9.7651e+01_jprb,8.1376e+01_jprb,6.5100e+01_jprb,4.8825e+01_jprb,&
 & 3.2550e+01_jprb,1.6275e+01_jprb,5.1511e+01_jprb/)  
kao( :, 5, 1,14) = (/&
 & 1.5659e+02_jprb,1.3701e+02_jprb,1.1744e+02_jprb,9.7867e+01_jprb,7.8294e+01_jprb,5.8720e+01_jprb,&
 & 3.9147e+01_jprb,1.9573e+01_jprb,5.6274e+01_jprb/)  
kao( :, 1, 2,14) = (/&
 & 6.1823e+01_jprb,5.4095e+01_jprb,4.6367e+01_jprb,3.8639e+01_jprb,3.0911e+01_jprb,2.3183e+01_jprb,&
 & 1.5456e+01_jprb,1.0277e+01_jprb,2.7318e+01_jprb/)  
kao( :, 2, 2,14) = (/&
 & 8.1223e+01_jprb,7.1070e+01_jprb,6.0917e+01_jprb,5.0764e+01_jprb,4.0612e+01_jprb,3.0459e+01_jprb,&
 & 2.0306e+01_jprb,1.1162e+01_jprb,3.1010e+01_jprb/)  
kao( :, 3, 2,14) = (/&
 & 1.0367e+02_jprb,9.0711e+01_jprb,7.7752e+01_jprb,6.4794e+01_jprb,5.1835e+01_jprb,3.8876e+01_jprb,&
 & 2.5917e+01_jprb,1.3111e+01_jprb,3.4709e+01_jprb/)  
kao( :, 4, 2,14) = (/&
 & 1.2892e+02_jprb,1.1280e+02_jprb,9.6686e+01_jprb,8.0572e+01_jprb,6.4458e+01_jprb,4.8343e+01_jprb,&
 & 3.2229e+01_jprb,1.6114e+01_jprb,3.8368e+01_jprb/)  
kao( :, 5, 2,14) = (/&
 & 1.5667e+02_jprb,1.3708e+02_jprb,1.1750e+02_jprb,9.7916e+01_jprb,7.8333e+01_jprb,5.8750e+01_jprb,&
 & 3.9167e+01_jprb,1.9583e+01_jprb,4.1940e+01_jprb/)  
kao( :, 1, 3,14) = (/&
 & 5.4340e+01_jprb,4.7547e+01_jprb,4.0755e+01_jprb,3.3962e+01_jprb,2.7170e+01_jprb,2.0377e+01_jprb,&
 & 1.3826e+01_jprb,1.1988e+01_jprb,1.6208e+01_jprb/)  
kao( :, 2, 3,14) = (/&
 & 7.3213e+01_jprb,6.4061e+01_jprb,5.4910e+01_jprb,4.5758e+01_jprb,3.6606e+01_jprb,2.7455e+01_jprb,&
 & 1.8303e+01_jprb,1.2321e+01_jprb,1.7853e+01_jprb/)  
kao( :, 3, 3,14) = (/&
 & 9.5330e+01_jprb,8.3414e+01_jprb,7.1498e+01_jprb,5.9581e+01_jprb,4.7665e+01_jprb,3.5749e+01_jprb,&
 & 2.3833e+01_jprb,1.3383e+01_jprb,1.9735e+01_jprb/)  
kao( :, 4, 3,14) = (/&
 & 1.2051e+02_jprb,1.0545e+02_jprb,9.0386e+01_jprb,7.5322e+01_jprb,6.0257e+01_jprb,4.5193e+01_jprb,&
 & 3.0129e+01_jprb,1.5439e+01_jprb,2.1688e+01_jprb/)  
kao( :, 5, 3,14) = (/&
 & 1.4852e+02_jprb,1.2996e+02_jprb,1.1139e+02_jprb,9.2828e+01_jprb,7.4262e+01_jprb,5.5697e+01_jprb,&
 & 3.7131e+01_jprb,1.8572e+01_jprb,2.3613e+01_jprb/)  
kao( :, 1, 4,14) = (/&
 & 4.5833e+01_jprb,4.0104e+01_jprb,3.4375e+01_jprb,2.8646e+01_jprb,2.2917e+01_jprb,1.7188e+01_jprb,&
 & 1.3524e+01_jprb,1.4143e+01_jprb,1.6776e+01_jprb/)  
kao( :, 2, 4,14) = (/&
 & 6.3459e+01_jprb,5.5527e+01_jprb,4.7594e+01_jprb,3.9662e+01_jprb,3.1730e+01_jprb,2.3797e+01_jprb,&
 & 1.6331e+01_jprb,1.4451e+01_jprb,1.6850e+01_jprb/)  
kao( :, 3, 4,14) = (/&
 & 8.4502e+01_jprb,7.3939e+01_jprb,6.3376e+01_jprb,5.2814e+01_jprb,4.2251e+01_jprb,3.1688e+01_jprb,&
 & 2.1126e+01_jprb,1.4779e+01_jprb,1.6907e+01_jprb/)  

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


SUBROUTINE part10

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


kao( :, 4, 4,14) = (/&
 & 1.0912e+02_jprb,9.5484e+01_jprb,8.1843e+01_jprb,6.8203e+01_jprb,5.4562e+01_jprb,4.0922e+01_jprb,&
 & 2.7281e+01_jprb,1.5904e+01_jprb,1.6987e+01_jprb/)  
kao( :, 5, 4,14) = (/&
 & 1.3712e+02_jprb,1.1998e+02_jprb,1.0284e+02_jprb,8.5701e+01_jprb,6.8561e+01_jprb,5.1421e+01_jprb,&
 & 3.4281e+01_jprb,1.8042e+01_jprb,1.7134e+01_jprb/)  
kao( :, 1, 5,14) = (/&
 & 3.7621e+01_jprb,3.2918e+01_jprb,2.8216e+01_jprb,2.3513e+01_jprb,1.8810e+01_jprb,1.5213e+01_jprb,&
 & 1.4972e+01_jprb,1.6713e+01_jprb,1.9607e+01_jprb/)  
kao( :, 2, 5,14) = (/&
 & 5.3640e+01_jprb,4.6935e+01_jprb,4.0230e+01_jprb,3.3525e+01_jprb,2.6820e+01_jprb,2.0195e+01_jprb,&
 & 1.6296e+01_jprb,1.6983e+01_jprb,1.9709e+01_jprb/)  
kao( :, 3, 5,14) = (/&
 & 7.3434e+01_jprb,6.4254e+01_jprb,5.5075e+01_jprb,4.5896e+01_jprb,3.6717e+01_jprb,2.7538e+01_jprb,&
 & 1.9356e+01_jprb,1.7364e+01_jprb,1.9752e+01_jprb/)  
kao( :, 4, 5,14) = (/&
 & 9.6831e+01_jprb,8.4727e+01_jprb,7.2623e+01_jprb,6.0519e+01_jprb,4.8415e+01_jprb,3.6311e+01_jprb,&
 & 2.4262e+01_jprb,1.7815e+01_jprb,1.9747e+01_jprb/)  
kao( :, 5, 5,14) = (/&
 & 1.2364e+02_jprb,1.0818e+02_jprb,9.2728e+01_jprb,7.7274e+01_jprb,6.1819e+01_jprb,4.6364e+01_jprb,&
 & 3.0909e+01_jprb,1.8880e+01_jprb,1.9719e+01_jprb/)  
kao( :, 1, 6,14) = (/&
 & 2.9612e+01_jprb,2.5911e+01_jprb,2.2209e+01_jprb,1.8508e+01_jprb,1.5714e+01_jprb,1.5485e+01_jprb,&
 & 1.7513e+01_jprb,1.9803e+01_jprb,2.3106e+01_jprb/)  
kao( :, 2, 6,14) = (/&
 & 4.3748e+01_jprb,3.8279e+01_jprb,3.2811e+01_jprb,2.7342e+01_jprb,2.1877e+01_jprb,1.8205e+01_jprb,&
 & 1.8101e+01_jprb,2.0115e+01_jprb,2.3246e+01_jprb/)  
kao( :, 3, 6,14) = (/&
 & 6.1468e+01_jprb,5.3784e+01_jprb,4.6101e+01_jprb,3.8417e+01_jprb,3.0734e+01_jprb,2.3328e+01_jprb,&
 & 1.9453e+01_jprb,2.0483e+01_jprb,2.3324e+01_jprb/)  
kao( :, 4, 6,14) = (/&
 & 8.2819e+01_jprb,7.2467e+01_jprb,6.2114e+01_jprb,5.1762e+01_jprb,4.1410e+01_jprb,3.1057e+01_jprb,&
 & 2.2516e+01_jprb,2.0832e+01_jprb,2.3358e+01_jprb/)  
kao( :, 5, 6,14) = (/&
 & 1.0782e+02_jprb,9.4345e+01_jprb,8.0867e+01_jprb,6.7389e+01_jprb,5.3911e+01_jprb,4.0434e+01_jprb,&
 & 2.7416e+01_jprb,2.1303e+01_jprb,2.3341e+01_jprb/)  
kao( :, 1, 7,14) = (/&
 & 2.2563e+01_jprb,1.9743e+01_jprb,1.6922e+01_jprb,1.4880e+01_jprb,1.5210e+01_jprb,1.7595e+01_jprb,&
 & 2.0450e+01_jprb,2.3517e+01_jprb,2.7272e+01_jprb/)  
kao( :, 2, 7,14) = (/&
 & 3.4511e+01_jprb,3.0197e+01_jprb,2.5883e+01_jprb,2.1569e+01_jprb,1.8701e+01_jprb,1.8664e+01_jprb,&
 & 2.1070e+01_jprb,2.3724e+01_jprb,2.7469e+01_jprb/)  
kao( :, 3, 7,14) = (/&
 & 4.9903e+01_jprb,4.3665e+01_jprb,3.7427e+01_jprb,3.1189e+01_jprb,2.5108e+01_jprb,2.1510e+01_jprb,&
 & 2.1786e+01_jprb,2.4110e+01_jprb,2.7600e+01_jprb/)  
kao( :, 4, 7,14) = (/&
 & 6.8998e+01_jprb,6.0373e+01_jprb,5.1749e+01_jprb,4.3124e+01_jprb,3.4499e+01_jprb,2.6735e+01_jprb,&
 & 2.3147e+01_jprb,2.4558e+01_jprb,2.7662e+01_jprb/)  
kao( :, 5, 7,14) = (/&
 & 9.2035e+01_jprb,8.0530e+01_jprb,6.9026e+01_jprb,5.7522e+01_jprb,4.6017e+01_jprb,3.4527e+01_jprb,&
 & 2.6142e+01_jprb,2.5028e+01_jprb,2.7662e+01_jprb/)  
kao( :, 1, 8,14) = (/&
 & 1.6646e+01_jprb,1.4565e+01_jprb,1.2937e+01_jprb,1.3876e+01_jprb,1.6955e+01_jprb,2.0502e+01_jprb,&
 & 2.4054e+01_jprb,2.7834e+01_jprb,3.2161e+01_jprb/)  
kao( :, 2, 8,14) = (/&
 & 2.6448e+01_jprb,2.3142e+01_jprb,1.9836e+01_jprb,1.7715e+01_jprb,1.8335e+01_jprb,2.1296e+01_jprb,&
 & 2.4653e+01_jprb,2.8077e+01_jprb,3.2424e+01_jprb/)  
kao( :, 3, 8,14) = (/&
 & 3.9552e+01_jprb,3.4608e+01_jprb,2.9664e+01_jprb,2.4793e+01_jprb,2.2053e+01_jprb,2.2399e+01_jprb,&
 & 2.5322e+01_jprb,2.8464e+01_jprb,3.2607e+01_jprb/)  
kao( :, 4, 8,14) = (/&
 & 5.6374e+01_jprb,4.9327e+01_jprb,4.2280e+01_jprb,3.5233e+01_jprb,2.8686e+01_jprb,2.5344e+01_jprb,&
 & 2.6090e+01_jprb,2.8900e+01_jprb,3.2702e+01_jprb/)  
kao( :, 5, 8,14) = (/&
 & 7.7053e+01_jprb,6.7421e+01_jprb,5.7790e+01_jprb,4.8158e+01_jprb,3.8527e+01_jprb,3.0635e+01_jprb,&
 & 2.7529e+01_jprb,2.9328e+01_jprb,3.2729e+01_jprb/)  
kao( :, 1, 9,14) = (/&
 & 1.1833e+01_jprb,1.0384e+01_jprb,1.1459e+01_jprb,1.5199e+01_jprb,1.9504e+01_jprb,2.3789e+01_jprb,&
 & 2.8102e+01_jprb,3.2786e+01_jprb,3.7785e+01_jprb/)  
kao( :, 2, 9,14) = (/&
 & 1.9655e+01_jprb,1.7198e+01_jprb,1.5507e+01_jprb,1.6804e+01_jprb,2.0431e+01_jprb,2.4589e+01_jprb,&
 & 2.8753e+01_jprb,3.3108e+01_jprb,3.8143e+01_jprb/)  
kao( :, 3, 9,14) = (/&
 & 3.0574e+01_jprb,2.6753e+01_jprb,2.2935e+01_jprb,2.1004e+01_jprb,2.2051e+01_jprb,2.5542e+01_jprb,&
 & 2.9510e+01_jprb,3.3363e+01_jprb,3.8391e+01_jprb/)  
kao( :, 4, 9,14) = (/&
 & 4.4893e+01_jprb,3.9281e+01_jprb,3.3669e+01_jprb,2.8405e+01_jprb,2.5980e+01_jprb,2.6856e+01_jprb,&
 & 3.0337e+01_jprb,3.3859e+01_jprb,3.8531e+01_jprb/)  
kao( :, 5, 9,14) = (/&
 & 6.2714e+01_jprb,5.4875e+01_jprb,4.7035e+01_jprb,3.9196e+01_jprb,3.2630e+01_jprb,2.9798e+01_jprb,&
 & 3.1253e+01_jprb,3.4423e+01_jprb,3.8580e+01_jprb/)  
kao( :, 1,10,14) = (/&
 & 8.5124e+00_jprb,8.2727e+00_jprb,1.2161e+01_jprb,1.7400e+01_jprb,2.2620e+01_jprb,2.7747e+01_jprb,&
 & 3.2952e+01_jprb,3.8443e+01_jprb,4.4221e+01_jprb/)  
kao( :, 2,10,14) = (/&
 & 1.4801e+01_jprb,1.2999e+01_jprb,1.4181e+01_jprb,1.8385e+01_jprb,2.3543e+01_jprb,2.8614e+01_jprb,&
 & 3.3590e+01_jprb,3.8847e+01_jprb,4.4675e+01_jprb/)  
kao( :, 3,10,14) = (/&
 & 2.3770e+01_jprb,2.0799e+01_jprb,1.8887e+01_jprb,2.0455e+01_jprb,2.4642e+01_jprb,2.9573e+01_jprb,&
 & 3.4392e+01_jprb,3.9131e+01_jprb,4.4994e+01_jprb/)  
kao( :, 4,10,14) = (/&
 & 3.5762e+01_jprb,3.1292e+01_jprb,2.6896e+01_jprb,2.5061e+01_jprb,2.6502e+01_jprb,3.0662e+01_jprb,&
 & 3.5247e+01_jprb,3.9648e+01_jprb,4.5184e+01_jprb/)  
kao( :, 5,10,14) = (/&
 & 5.1160e+01_jprb,4.4765e+01_jprb,3.8370e+01_jprb,3.2741e+01_jprb,3.0611e+01_jprb,3.2021e+01_jprb,&
 & 3.6131e+01_jprb,4.0213e+01_jprb,4.5252e+01_jprb/)  
kao( :, 1,11,14) = (/&
 & 7.9777e+00_jprb,8.7265e+00_jprb,1.4218e+01_jprb,2.0419e+01_jprb,2.6536e+01_jprb,3.2537e+01_jprb,&
 & 3.8615e+01_jprb,4.5051e+01_jprb,5.1748e+01_jprb/)  
kao( :, 2,11,14) = (/&
 & 1.3839e+01_jprb,1.2575e+01_jprb,1.5679e+01_jprb,2.1487e+01_jprb,2.7590e+01_jprb,3.3521e+01_jprb,&
 & 3.9346e+01_jprb,4.5471e+01_jprb,5.2220e+01_jprb/)  
kao( :, 3,11,14) = (/&
 & 2.2213e+01_jprb,1.9436e+01_jprb,1.9340e+01_jprb,2.2978e+01_jprb,2.8775e+01_jprb,3.4623e+01_jprb,&
 & 4.0260e+01_jprb,4.5752e+01_jprb,5.2534e+01_jprb/)  
kao( :, 4,11,14) = (/&
 & 3.3533e+01_jprb,2.9341e+01_jprb,2.5981e+01_jprb,2.6492e+01_jprb,3.0190e+01_jprb,3.5801e+01_jprb,&
 & 4.1239e+01_jprb,4.6338e+01_jprb,5.2703e+01_jprb/)  
kao( :, 5,11,14) = (/&
 & 4.8125e+01_jprb,4.2109e+01_jprb,3.6128e+01_jprb,3.2789e+01_jprb,3.3249e+01_jprb,3.7092e+01_jprb,&
 & 4.2227e+01_jprb,4.6984e+01_jprb,5.2733e+01_jprb/)  
kao( :, 1,12,14) = (/&
 & 7.3404e+00_jprb,9.4591e+00_jprb,1.6537e+01_jprb,2.3797e+01_jprb,3.0901e+01_jprb,3.7866e+01_jprb,&
 & 4.4903e+01_jprb,5.2386e+01_jprb,6.0116e+01_jprb/)  
kao( :, 2,12,14) = (/&
 & 1.2760e+01_jprb,1.2502e+01_jprb,1.7728e+01_jprb,2.4979e+01_jprb,3.2095e+01_jprb,3.8976e+01_jprb,&
 & 4.5735e+01_jprb,5.2811e+01_jprb,6.0596e+01_jprb/)  
kao( :, 3,12,14) = (/&
 & 2.0574e+01_jprb,1.8262e+01_jprb,2.0491e+01_jprb,2.6348e+01_jprb,3.3404e+01_jprb,4.0219e+01_jprb,&
 & 4.6757e+01_jprb,5.3073e+01_jprb,6.0869e+01_jprb/)  
kao( :, 4,12,14) = (/&
 & 3.1115e+01_jprb,2.7226e+01_jprb,2.5855e+01_jprb,2.8871e+01_jprb,3.4864e+01_jprb,4.1538e+01_jprb,&
 & 4.7864e+01_jprb,5.3711e+01_jprb,6.0982e+01_jprb/)  
kao( :, 5,12,14) = (/&
 & 4.4619e+01_jprb,3.9042e+01_jprb,3.4233e+01_jprb,3.3732e+01_jprb,3.6915e+01_jprb,4.2904e+01_jprb,&
 & 4.8966e+01_jprb,5.4437e+01_jprb,6.0955e+01_jprb/)  
kao( :, 1,13,14) = (/&
 & 6.6733e+00_jprb,1.0528e+01_jprb,1.9102e+01_jprb,2.7491e+01_jprb,3.5658e+01_jprb,4.3660e+01_jprb,&
 & 5.1735e+01_jprb,6.0358e+01_jprb,6.9219e+01_jprb/)  
kao( :, 2,13,14) = (/&
 & 1.1655e+01_jprb,1.2870e+01_jprb,2.0329e+01_jprb,2.8808e+01_jprb,3.6997e+01_jprb,4.4910e+01_jprb,&
 & 5.2656e+01_jprb,6.0744e+01_jprb,6.9651e+01_jprb/)  
kao( :, 3,13,14) = (/&
 & 1.8767e+01_jprb,1.7501e+01_jprb,2.2287e+01_jprb,3.0262e+01_jprb,3.8454e+01_jprb,4.6291e+01_jprb,&
 & 5.3806e+01_jprb,6.1028e+01_jprb,6.9886e+01_jprb/)  
kao( :, 4,13,14) = (/&
 & 2.8382e+01_jprb,2.4995e+01_jprb,2.6394e+01_jprb,3.2078e+01_jprb,4.0012e+01_jprb,4.7748e+01_jprb,&
 & 5.5029e+01_jprb,6.1702e+01_jprb,6.9938e+01_jprb/)  
kao( :, 5,13,14) = (/&
 & 4.0772e+01_jprb,3.5676e+01_jprb,3.3182e+01_jprb,3.5686e+01_jprb,4.1712e+01_jprb,4.9244e+01_jprb,&
 & 5.6238e+01_jprb,6.2475e+01_jprb,6.9819e+01_jprb/)  
kao( :, 1, 1,15) = (/&
 & 1.1094e+02_jprb,9.7072e+01_jprb,8.3204e+01_jprb,6.9337e+01_jprb,5.5470e+01_jprb,4.1602e+01_jprb,&
 & 2.7735e+01_jprb,1.3867e+01_jprb,4.4845e+01_jprb/)  
kao( :, 2, 1,15) = (/&
 & 1.4352e+02_jprb,1.2558e+02_jprb,1.0764e+02_jprb,8.9703e+01_jprb,7.1762e+01_jprb,5.3822e+01_jprb,&
 & 3.5881e+01_jprb,1.7941e+01_jprb,5.0973e+01_jprb/)  
kao( :, 3, 1,15) = (/&
 & 1.8038e+02_jprb,1.5783e+02_jprb,1.3528e+02_jprb,1.1274e+02_jprb,9.0189e+01_jprb,6.7642e+01_jprb,&
 & 4.5094e+01_jprb,2.2547e+01_jprb,5.7040e+01_jprb/)  
kao( :, 4, 1,15) = (/&
 & 2.2134e+02_jprb,1.9367e+02_jprb,1.6600e+02_jprb,1.3834e+02_jprb,1.1067e+02_jprb,8.3002e+01_jprb,&
 & 5.5334e+01_jprb,2.7667e+01_jprb,6.3000e+01_jprb/)  
kao( :, 5, 1,15) = (/&
 & 2.6568e+02_jprb,2.3247e+02_jprb,1.9926e+02_jprb,1.6605e+02_jprb,1.3284e+02_jprb,9.9630e+01_jprb,&
 & 6.6420e+01_jprb,3.3210e+01_jprb,6.8855e+01_jprb/)  
kao( :, 1, 2,15) = (/&
 & 1.1363e+02_jprb,9.9422e+01_jprb,8.5219e+01_jprb,7.1016e+01_jprb,5.6813e+01_jprb,4.2609e+01_jprb,&
 & 2.8406e+01_jprb,1.4203e+01_jprb,3.3096e+01_jprb/)  
kao( :, 2, 2,15) = (/&
 & 1.4930e+02_jprb,1.3064e+02_jprb,1.1197e+02_jprb,9.3312e+01_jprb,7.4650e+01_jprb,5.5987e+01_jprb,&
 & 3.7325e+01_jprb,1.8662e+01_jprb,3.7888e+01_jprb/)  
kao( :, 3, 2,15) = (/&
 & 1.9010e+02_jprb,1.6634e+02_jprb,1.4258e+02_jprb,1.1881e+02_jprb,9.5050e+01_jprb,7.1288e+01_jprb,&
 & 4.7525e+01_jprb,2.3763e+01_jprb,4.2686e+01_jprb/)  
kao( :, 4, 2,15) = (/&
 & 2.3571e+02_jprb,2.0625e+02_jprb,1.7678e+02_jprb,1.4732e+02_jprb,1.1785e+02_jprb,8.8391e+01_jprb,&
 & 5.8927e+01_jprb,2.9464e+01_jprb,4.7440e+01_jprb/)  
kao( :, 5, 2,15) = (/&
 & 2.8549e+02_jprb,2.4980e+02_jprb,2.1412e+02_jprb,1.7843e+02_jprb,1.4274e+02_jprb,1.0706e+02_jprb,&
 & 7.1372e+01_jprb,3.5686e+01_jprb,5.2117e+01_jprb/)  
kao( :, 1, 3,15) = (/&
 & 1.0870e+02_jprb,9.5115e+01_jprb,8.1527e+01_jprb,6.7939e+01_jprb,5.4352e+01_jprb,4.0764e+01_jprb,&
 & 2.7176e+01_jprb,1.4092e+01_jprb,1.9358e+01_jprb/)  
kao( :, 2, 3,15) = (/&
 & 1.4594e+02_jprb,1.2770e+02_jprb,1.0946e+02_jprb,9.1215e+01_jprb,7.2972e+01_jprb,5.4729e+01_jprb,&
 & 3.6486e+01_jprb,1.8243e+01_jprb,2.1671e+01_jprb/)  
kao( :, 3, 3,15) = (/&
 & 1.8927e+02_jprb,1.6561e+02_jprb,1.4196e+02_jprb,1.1830e+02_jprb,9.4637e+01_jprb,7.0978e+01_jprb,&
 & 4.7319e+01_jprb,2.3659e+01_jprb,2.4176e+01_jprb/)  
kao( :, 4, 3,15) = (/&
 & 2.3825e+02_jprb,2.0847e+02_jprb,1.7869e+02_jprb,1.4891e+02_jprb,1.1913e+02_jprb,8.9345e+01_jprb,&
 & 5.9563e+01_jprb,2.9782e+01_jprb,2.6798e+01_jprb/)  
kao( :, 5, 3,15) = (/&
 & 2.9226e+02_jprb,2.5573e+02_jprb,2.1920e+02_jprb,1.8266e+02_jprb,1.4613e+02_jprb,1.0960e+02_jprb,&
 & 7.3065e+01_jprb,3.6533e+01_jprb,2.9446e+01_jprb/)  
kao( :, 1, 4,15) = (/&
 & 1.0014e+02_jprb,8.7619e+01_jprb,7.5102e+01_jprb,6.2585e+01_jprb,5.0068e+01_jprb,3.7551e+01_jprb,&
 & 2.5034e+01_jprb,1.5422e+01_jprb,1.8003e+01_jprb/)  
kao( :, 2, 4,15) = (/&
 & 1.3789e+02_jprb,1.2065e+02_jprb,1.0342e+02_jprb,8.6180e+01_jprb,6.8944e+01_jprb,5.1708e+01_jprb,&
 & 3.4472e+01_jprb,1.7683e+01_jprb,1.8158e+01_jprb/)  
kao( :, 3, 4,15) = (/&
 & 1.8258e+02_jprb,1.5976e+02_jprb,1.3693e+02_jprb,1.1411e+02_jprb,9.1289e+01_jprb,6.8467e+01_jprb,&
 & 4.5645e+01_jprb,2.2822e+01_jprb,1.8280e+01_jprb/)  
kao( :, 4, 4,15) = (/&
 & 2.3380e+02_jprb,2.0458e+02_jprb,1.7535e+02_jprb,1.4613e+02_jprb,1.1690e+02_jprb,8.7677e+01_jprb,&
 & 5.8451e+01_jprb,2.9226e+01_jprb,1.8394e+01_jprb/)  
kao( :, 5, 4,15) = (/&
 & 2.9132e+02_jprb,2.5490e+02_jprb,2.1849e+02_jprb,1.8207e+02_jprb,1.4566e+02_jprb,1.0924e+02_jprb,&
 & 7.2830e+01_jprb,3.6415e+01_jprb,1.8697e+01_jprb/)  
kao( :, 1, 5,15) = (/&
 & 9.0165e+01_jprb,7.8895e+01_jprb,6.7624e+01_jprb,5.6353e+01_jprb,4.5083e+01_jprb,3.3812e+01_jprb,&
 & 2.2547e+01_jprb,1.8028e+01_jprb,2.1110e+01_jprb/)  
kao( :, 2, 5,15) = (/&
 & 1.2751e+02_jprb,1.1157e+02_jprb,9.5631e+01_jprb,7.9692e+01_jprb,6.3754e+01_jprb,4.7815e+01_jprb,&
 & 3.1877e+01_jprb,1.9044e+01_jprb,2.1192e+01_jprb/)  
kao( :, 3, 5,15) = (/&
 & 1.7270e+02_jprb,1.5111e+02_jprb,1.2952e+02_jprb,1.0794e+02_jprb,8.6350e+01_jprb,6.4762e+01_jprb,&
 & 4.3175e+01_jprb,2.2254e+01_jprb,2.1273e+01_jprb/)  
kao( :, 4, 5,15) = (/&
 & 2.2614e+02_jprb,1.9787e+02_jprb,1.6960e+02_jprb,1.4133e+02_jprb,1.1307e+02_jprb,8.4801e+01_jprb,&
 & 5.6534e+01_jprb,2.8267e+01_jprb,2.1307e+01_jprb/)  
kao( :, 5, 5,15) = (/&
 & 2.8741e+02_jprb,2.5148e+02_jprb,2.1556e+02_jprb,1.7963e+02_jprb,1.4370e+02_jprb,1.0778e+02_jprb,&
 & 7.1852e+01_jprb,3.5926e+01_jprb,2.1269e+01_jprb/)  
kao( :, 1, 6,15) = (/&
 & 7.8026e+01_jprb,6.8273e+01_jprb,5.8519e+01_jprb,4.8766e+01_jprb,3.9013e+01_jprb,2.9260e+01_jprb,&
 & 2.1248e+01_jprb,2.1634e+01_jprb,2.5118e+01_jprb/)  
kao( :, 2, 6,15) = (/&
 & 1.1411e+02_jprb,9.9849e+01_jprb,8.5585e+01_jprb,7.1321e+01_jprb,5.7057e+01_jprb,4.2792e+01_jprb,&
 & 2.8533e+01_jprb,2.2027e+01_jprb,2.5242e+01_jprb/)  
kao( :, 3, 6,15) = (/&
 & 1.5933e+02_jprb,1.3941e+02_jprb,1.1950e+02_jprb,9.9580e+01_jprb,7.9664e+01_jprb,5.9748e+01_jprb,&
 & 3.9832e+01_jprb,2.3409e+01_jprb,2.5326e+01_jprb/)  
kao( :, 4, 6,15) = (/&
 & 2.1384e+02_jprb,1.8711e+02_jprb,1.6038e+02_jprb,1.3365e+02_jprb,1.0692e+02_jprb,8.0189e+01_jprb,&
 & 5.3459e+01_jprb,2.7570e+01_jprb,2.5371e+01_jprb/)  
kao( :, 5, 6,15) = (/&
 & 2.7735e+02_jprb,2.4268e+02_jprb,2.0801e+02_jprb,1.7334e+02_jprb,1.3868e+02_jprb,1.0401e+02_jprb,&
 & 6.9338e+01_jprb,3.4669e+01_jprb,2.5359e+01_jprb/)  
kao( :, 1, 7,15) = (/&
 & 6.5827e+01_jprb,5.7598e+01_jprb,4.9370e+01_jprb,4.1142e+01_jprb,3.2913e+01_jprb,2.5331e+01_jprb,&
 & 2.3025e+01_jprb,2.5936e+01_jprb,2.9970e+01_jprb/)  
kao( :, 2, 7,15) = (/&
 & 1.0010e+02_jprb,8.7584e+01_jprb,7.5072e+01_jprb,6.2560e+01_jprb,5.0048e+01_jprb,3.7536e+01_jprb,&
 & 2.7016e+01_jprb,2.6117e+01_jprb,3.0165e+01_jprb/)  
kao( :, 3, 7,15) = (/&
 & 1.4417e+02_jprb,1.2615e+02_jprb,1.0813e+02_jprb,9.0105e+01_jprb,7.2084e+01_jprb,5.4063e+01_jprb,&
 & 3.6043e+01_jprb,2.6827e+01_jprb,3.0311e+01_jprb/)  
kao( :, 4, 7,15) = (/&
 & 1.9838e+02_jprb,1.7359e+02_jprb,1.4879e+02_jprb,1.2399e+02_jprb,9.9192e+01_jprb,7.4394e+01_jprb,&
 & 4.9596e+01_jprb,2.8984e+01_jprb,3.0397e+01_jprb/)  
kao( :, 5, 7,15) = (/&
 & 2.6264e+02_jprb,2.2981e+02_jprb,1.9698e+02_jprb,1.6415e+02_jprb,1.3132e+02_jprb,9.8492e+01_jprb,&
 & 6.5661e+01_jprb,3.3916e+01_jprb,3.0409e+01_jprb/)  
kao( :, 1, 8,15) = (/&
 & 5.4379e+01_jprb,4.7581e+01_jprb,4.0784e+01_jprb,3.3987e+01_jprb,2.7376e+01_jprb,2.4616e+01_jprb,&
 & 2.6821e+01_jprb,3.1053e+01_jprb,3.5784e+01_jprb/)  
kao( :, 2, 8,15) = (/&
 & 8.6031e+01_jprb,7.5277e+01_jprb,6.4523e+01_jprb,5.3770e+01_jprb,4.3016e+01_jprb,3.2712e+01_jprb,&
 & 2.8406e+01_jprb,3.1344e+01_jprb,3.6100e+01_jprb/)  
kao( :, 3, 8,15) = (/&
 & 1.2793e+02_jprb,1.1194e+02_jprb,9.5951e+01_jprb,7.9959e+01_jprb,6.3967e+01_jprb,4.7975e+01_jprb,&
 & 3.4121e+01_jprb,3.1758e+01_jprb,3.6313e+01_jprb/)  
kao( :, 4, 8,15) = (/&
 & 1.8066e+02_jprb,1.5808e+02_jprb,1.3550e+02_jprb,1.1291e+02_jprb,9.0332e+01_jprb,6.7749e+01_jprb,&
 & 4.5233e+01_jprb,3.2608e+01_jprb,3.6463e+01_jprb/)  
kao( :, 5, 8,15) = (/&
 & 2.4439e+02_jprb,2.1384e+02_jprb,1.8329e+02_jprb,1.5274e+02_jprb,1.2219e+02_jprb,9.1646e+01_jprb,&
 & 6.1097e+01_jprb,3.5772e+01_jprb,3.6527e+01_jprb/)  
kao( :, 1, 9,15) = (/&
 & 4.3573e+01_jprb,3.8127e+01_jprb,3.2680e+01_jprb,2.7311e+01_jprb,2.5199e+01_jprb,2.7215e+01_jprb,&
 & 3.1843e+01_jprb,3.7151e+01_jprb,4.2720e+01_jprb/)  
kao( :, 2, 9,15) = (/&
 & 7.1953e+01_jprb,6.2959e+01_jprb,5.3964e+01_jprb,4.4970e+01_jprb,3.6145e+01_jprb,3.1469e+01_jprb,&
 & 3.2757e+01_jprb,3.7549e+01_jprb,4.3159e+01_jprb/)  
kao( :, 3, 9,15) = (/&
 & 1.1068e+02_jprb,9.6849e+01_jprb,8.3014e+01_jprb,6.9178e+01_jprb,5.5342e+01_jprb,4.2149e+01_jprb,&
 & 3.5486e+01_jprb,3.7854e+01_jprb,4.3494e+01_jprb/)  
kao( :, 4, 9,15) = (/&
 & 1.6091e+02_jprb,1.4079e+02_jprb,1.2068e+02_jprb,1.0057e+02_jprb,8.0454e+01_jprb,6.0340e+01_jprb,&
 & 4.2919e+01_jprb,3.8576e+01_jprb,4.3720e+01_jprb/)  
kao( :, 5, 9,15) = (/&
 & 2.2364e+02_jprb,1.9568e+02_jprb,1.6773e+02_jprb,1.3977e+02_jprb,1.1182e+02_jprb,8.3864e+01_jprb,&
 & 5.6032e+01_jprb,3.9906e+01_jprb,4.3837e+01_jprb/)  
kao( :, 1,10,15) = (/&
 & 3.5400e+01_jprb,3.0975e+01_jprb,2.6550e+01_jprb,2.4562e+01_jprb,2.6642e+01_jprb,3.2016e+01_jprb,&
 & 3.8070e+01_jprb,4.4415e+01_jprb,5.0995e+01_jprb/)  
kao( :, 2,10,15) = (/&
 & 6.0807e+01_jprb,5.3206e+01_jprb,4.5605e+01_jprb,3.8054e+01_jprb,3.3439e+01_jprb,3.3829e+01_jprb,&
 & 3.8722e+01_jprb,4.4959e+01_jprb,5.1600e+01_jprb/)  
kao( :, 3,10,15) = (/&
 & 9.6798e+01_jprb,8.4698e+01_jprb,7.2598e+01_jprb,6.0498e+01_jprb,4.8510e+01_jprb,4.0770e+01_jprb,&
 & 4.0001e+01_jprb,4.5358e+01_jprb,5.2042e+01_jprb/)  
kao( :, 4,10,15) = (/&
 & 1.4501e+02_jprb,1.2688e+02_jprb,1.0876e+02_jprb,9.0630e+01_jprb,7.2504e+01_jprb,5.4950e+01_jprb,&
 & 4.4708e+01_jprb,4.5865e+01_jprb,5.2368e+01_jprb/)  
kao( :, 5,10,15) = (/&
 & 2.0627e+02_jprb,1.8049e+02_jprb,1.5470e+02_jprb,1.2892e+02_jprb,1.0314e+02_jprb,7.7351e+01_jprb,&
 & 5.4677e+01_jprb,4.6645e+01_jprb,5.2546e+01_jprb/)  

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


SUBROUTINE part11

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


kao( :, 1,11,15) = (/&
 & 3.7164e+01_jprb,3.2519e+01_jprb,2.8213e+01_jprb,2.7852e+01_jprb,3.1623e+01_jprb,3.8446e+01_jprb,&
 & 4.5726e+01_jprb,5.3347e+01_jprb,6.1167e+01_jprb/)  
kao( :, 2,11,15) = (/&
 & 6.4161e+01_jprb,5.6141e+01_jprb,4.8121e+01_jprb,4.0753e+01_jprb,3.7907e+01_jprb,4.0136e+01_jprb,&
 & 4.6490e+01_jprb,5.3971e+01_jprb,6.1868e+01_jprb/)  
kao( :, 3,11,15) = (/&
 & 1.0256e+02_jprb,8.9738e+01_jprb,7.6919e+01_jprb,6.4099e+01_jprb,5.2370e+01_jprb,4.6558e+01_jprb,&
 & 4.7795e+01_jprb,5.4418e+01_jprb,6.2373e+01_jprb/)  
kao( :, 4,11,15) = (/&
 & 1.5386e+02_jprb,1.3463e+02_jprb,1.1539e+02_jprb,9.6161e+01_jprb,7.6929e+01_jprb,6.0144e+01_jprb,&
 & 5.2042e+01_jprb,5.4998e+01_jprb,6.2715e+01_jprb/)  
kao( :, 5,11,15) = (/&
 & 2.1904e+02_jprb,1.9166e+02_jprb,1.6428e+02_jprb,1.3690e+02_jprb,1.0952e+02_jprb,8.2243e+01_jprb,&
 & 6.1497e+01_jprb,5.5854e+01_jprb,6.2906e+01_jprb/)  
kao( :, 1,12,15) = (/&
 & 3.8871e+01_jprb,3.4012e+01_jprb,3.0393e+01_jprb,3.1931e+01_jprb,3.7660e+01_jprb,4.6060e+01_jprb,&
 & 5.4792e+01_jprb,6.3924e+01_jprb,7.3229e+01_jprb/)  
kao( :, 2,12,15) = (/&
 & 6.7284e+01_jprb,5.8873e+01_jprb,5.0463e+01_jprb,4.4214e+01_jprb,4.3443e+01_jprb,4.7760e+01_jprb,&
 & 5.5669e+01_jprb,6.4596e+01_jprb,7.3985e+01_jprb/)  
kao( :, 3,12,15) = (/&
 & 1.0766e+02_jprb,9.4199e+01_jprb,8.0742e+01_jprb,6.7302e+01_jprb,5.7248e+01_jprb,5.3670e+01_jprb,&
 & 5.7112e+01_jprb,6.5078e+01_jprb,7.4551e+01_jprb/)  
kao( :, 4,12,15) = (/&
 & 1.6163e+02_jprb,1.4143e+02_jprb,1.2122e+02_jprb,1.0102e+02_jprb,8.1042e+01_jprb,6.6522e+01_jprb,&
 & 6.0901e+01_jprb,6.5731e+01_jprb,7.4885e+01_jprb/)  
kao( :, 5,12,15) = (/&
 & 2.3044e+02_jprb,2.0164e+02_jprb,1.7283e+02_jprb,1.4403e+02_jprb,1.1522e+02_jprb,8.7709e+01_jprb,&
 & 6.9646e+01_jprb,6.6631e+01_jprb,7.5001e+01_jprb/)  
kao( :, 1,13,15) = (/&
 & 4.0246e+01_jprb,3.5215e+01_jprb,3.3104e+01_jprb,3.6905e+01_jprb,4.4893e+01_jprb,5.4993e+01_jprb,&
 & 6.5407e+01_jprb,7.6308e+01_jprb,8.7364e+01_jprb/)  
kao( :, 2,13,15) = (/&
 & 6.9680e+01_jprb,6.0970e+01_jprb,5.2454e+01_jprb,4.8453e+01_jprb,5.0138e+01_jprb,5.6837e+01_jprb,&
 & 6.6412e+01_jprb,7.7026e+01_jprb,8.8187e+01_jprb/)  
kao( :, 3,13,15) = (/&
 & 1.1160e+02_jprb,9.7650e+01_jprb,8.3700e+01_jprb,7.0502e+01_jprb,6.3014e+01_jprb,6.2089e+01_jprb,&
 & 6.7983e+01_jprb,7.7487e+01_jprb,8.8731e+01_jprb/)  
kao( :, 4,13,15) = (/&
 & 1.6767e+02_jprb,1.4671e+02_jprb,1.2575e+02_jprb,1.0479e+02_jprb,8.5648e+01_jprb,7.3989e+01_jprb,&
 & 7.1252e+01_jprb,7.8174e+01_jprb,8.8985e+01_jprb/)  
kao( :, 5,13,15) = (/&
 & 2.3895e+02_jprb,2.0908e+02_jprb,1.7922e+02_jprb,1.4935e+02_jprb,1.1948e+02_jprb,9.3985e+01_jprb,&
 & 7.9182e+01_jprb,7.9098e+01_jprb,8.9007e+01_jprb/)  
kao( :, 1, 1,16) = (/&
 & 1.3674e+02_jprb,1.1964e+02_jprb,1.0255e+02_jprb,8.5460e+01_jprb,6.8368e+01_jprb,5.1276e+01_jprb,&
 & 3.4184e+01_jprb,1.7092e+01_jprb,4.7777e+01_jprb/)  
kao( :, 2, 1,16) = (/&
 & 1.7779e+02_jprb,1.5556e+02_jprb,1.3334e+02_jprb,1.1112e+02_jprb,8.8894e+01_jprb,6.6670e+01_jprb,&
 & 4.4447e+01_jprb,2.2223e+01_jprb,5.4515e+01_jprb/)  
kao( :, 3, 1,16) = (/&
 & 2.2447e+02_jprb,1.9641e+02_jprb,1.6835e+02_jprb,1.4030e+02_jprb,1.1224e+02_jprb,8.4177e+01_jprb,&
 & 5.6118e+01_jprb,2.8059e+01_jprb,6.1237e+01_jprb/)  
kao( :, 4, 1,16) = (/&
 & 2.7629e+02_jprb,2.4176e+02_jprb,2.0722e+02_jprb,1.7268e+02_jprb,1.3815e+02_jprb,1.0361e+02_jprb,&
 & 6.9073e+01_jprb,3.4537e+01_jprb,6.7881e+01_jprb/)  
kao( :, 5, 1,16) = (/&
 & 3.3259e+02_jprb,2.9102e+02_jprb,2.4944e+02_jprb,2.0787e+02_jprb,1.6630e+02_jprb,1.2472e+02_jprb,&
 & 8.3148e+01_jprb,4.1574e+01_jprb,7.4387e+01_jprb/)  
kao( :, 1, 2,16) = (/&
 & 1.4678e+02_jprb,1.2843e+02_jprb,1.1009e+02_jprb,9.1739e+01_jprb,7.3391e+01_jprb,5.5044e+01_jprb,&
 & 3.6696e+01_jprb,1.8348e+01_jprb,3.6081e+01_jprb/)  
kao( :, 2, 2,16) = (/&
 & 1.9364e+02_jprb,1.6943e+02_jprb,1.4523e+02_jprb,1.2102e+02_jprb,9.6819e+01_jprb,7.2614e+01_jprb,&
 & 4.8409e+01_jprb,2.4205e+01_jprb,4.1498e+01_jprb/)  
kao( :, 3, 2,16) = (/&
 & 2.4749e+02_jprb,2.1655e+02_jprb,1.8562e+02_jprb,1.5468e+02_jprb,1.2374e+02_jprb,9.2808e+01_jprb,&
 & 6.1872e+01_jprb,3.0936e+01_jprb,4.6929e+01_jprb/)  
kao( :, 4, 2,16) = (/&
 & 3.0786e+02_jprb,2.6938e+02_jprb,2.3089e+02_jprb,1.9241e+02_jprb,1.5393e+02_jprb,1.1545e+02_jprb,&
 & 7.6965e+01_jprb,3.8482e+01_jprb,5.2308e+01_jprb/)  
kao( :, 5, 2,16) = (/&
 & 3.7405e+02_jprb,3.2730e+02_jprb,2.8054e+02_jprb,2.3378e+02_jprb,1.8703e+02_jprb,1.4027e+02_jprb,&
 & 9.3513e+01_jprb,4.6757e+01_jprb,5.7603e+01_jprb/)  
kao( :, 1, 3,16) = (/&
 & 1.4770e+02_jprb,1.2924e+02_jprb,1.1078e+02_jprb,9.2315e+01_jprb,7.3852e+01_jprb,5.5389e+01_jprb,&
 & 3.6926e+01_jprb,1.8463e+01_jprb,2.0017e+01_jprb/)  
kao( :, 2, 3,16) = (/&
 & 1.9922e+02_jprb,1.7432e+02_jprb,1.4941e+02_jprb,1.2451e+02_jprb,9.9609e+01_jprb,7.4707e+01_jprb,&
 & 4.9805e+01_jprb,2.4902e+01_jprb,2.3072e+01_jprb/)  
kao( :, 3, 3,16) = (/&
 & 2.5951e+02_jprb,2.2707e+02_jprb,1.9463e+02_jprb,1.6219e+02_jprb,1.2975e+02_jprb,9.7315e+01_jprb,&
 & 6.4877e+01_jprb,3.2438e+01_jprb,2.6326e+01_jprb/)  
kao( :, 4, 3,16) = (/&
 & 3.2798e+02_jprb,2.8698e+02_jprb,2.4598e+02_jprb,2.0498e+02_jprb,1.6399e+02_jprb,1.2299e+02_jprb,&
 & 8.1994e+01_jprb,4.0997e+01_jprb,2.9574e+01_jprb/)  
kao( :, 5, 3,16) = (/&
 & 4.0406e+02_jprb,3.5355e+02_jprb,3.0305e+02_jprb,2.5254e+02_jprb,2.0203e+02_jprb,1.5152e+02_jprb,&
 & 1.0102e+02_jprb,5.0508e+01_jprb,3.2777e+01_jprb/)  
kao( :, 1, 4,16) = (/&
 & 1.4422e+02_jprb,1.2619e+02_jprb,1.0816e+02_jprb,9.0137e+01_jprb,7.2109e+01_jprb,5.4082e+01_jprb,&
 & 3.6055e+01_jprb,1.8027e+01_jprb,1.8526e+01_jprb/)  
kao( :, 2, 4,16) = (/&
 & 1.9978e+02_jprb,1.7481e+02_jprb,1.4983e+02_jprb,1.2486e+02_jprb,9.9890e+01_jprb,7.4917e+01_jprb,&
 & 4.9945e+01_jprb,2.4972e+01_jprb,1.9155e+01_jprb/)  
kao( :, 3, 4,16) = (/&
 & 2.6597e+02_jprb,2.3273e+02_jprb,1.9948e+02_jprb,1.6623e+02_jprb,1.3299e+02_jprb,9.9740e+01_jprb,&
 & 6.6493e+01_jprb,3.3247e+01_jprb,1.9814e+01_jprb/)  
kao( :, 4, 4,16) = (/&
 & 3.4257e+02_jprb,2.9975e+02_jprb,2.5693e+02_jprb,2.1411e+02_jprb,1.7128e+02_jprb,1.2846e+02_jprb,&
 & 8.5642e+01_jprb,4.2821e+01_jprb,2.0371e+01_jprb/)  
kao( :, 5, 4,16) = (/&
 & 4.2875e+02_jprb,3.7515e+02_jprb,3.2156e+02_jprb,2.6797e+02_jprb,2.1437e+02_jprb,1.6078e+02_jprb,&
 & 1.0719e+02_jprb,5.3593e+01_jprb,2.0835e+01_jprb/)  
kao( :, 1, 5,16) = (/&
 & 1.3899e+02_jprb,1.2162e+02_jprb,1.0425e+02_jprb,8.6871e+01_jprb,6.9497e+01_jprb,5.2123e+01_jprb,&
 & 3.4748e+01_jprb,1.8596e+01_jprb,2.1711e+01_jprb/)  
kao( :, 2, 5,16) = (/&
 & 1.9805e+02_jprb,1.7329e+02_jprb,1.4854e+02_jprb,1.2378e+02_jprb,9.9025e+01_jprb,7.4269e+01_jprb,&
 & 4.9513e+01_jprb,2.4756e+01_jprb,2.1848e+01_jprb/)  
kao( :, 3, 5,16) = (/&
 & 2.7005e+02_jprb,2.3630e+02_jprb,2.0254e+02_jprb,1.6878e+02_jprb,1.3503e+02_jprb,1.0127e+02_jprb,&
 & 6.7514e+01_jprb,3.3757e+01_jprb,2.1967e+01_jprb/)  
kao( :, 4, 5,16) = (/&
 & 3.5478e+02_jprb,3.1044e+02_jprb,2.6609e+02_jprb,2.2174e+02_jprb,1.7739e+02_jprb,1.3304e+02_jprb,&
 & 8.8696e+01_jprb,4.4348e+01_jprb,2.2139e+01_jprb/)  
kao( :, 5, 5,16) = (/&
 & 4.5175e+02_jprb,3.9528e+02_jprb,3.3881e+02_jprb,2.8234e+02_jprb,2.2588e+02_jprb,1.6941e+02_jprb,&
 & 1.1294e+02_jprb,5.6469e+01_jprb,2.2377e+01_jprb/)  
kao( :, 1, 6,16) = (/&
 & 1.3013e+02_jprb,1.1386e+02_jprb,9.7595e+01_jprb,8.1329e+01_jprb,6.5064e+01_jprb,4.8798e+01_jprb,&
 & 3.2532e+01_jprb,2.2484e+01_jprb,2.6076e+01_jprb/)  
kao( :, 2, 6,16) = (/&
 & 1.9160e+02_jprb,1.6765e+02_jprb,1.4370e+02_jprb,1.1975e+02_jprb,9.5800e+01_jprb,7.1850e+01_jprb,&
 & 4.7900e+01_jprb,2.3950e+01_jprb,2.6232e+01_jprb/)  
kao( :, 3, 6,16) = (/&
 & 2.6831e+02_jprb,2.3477e+02_jprb,2.0123e+02_jprb,1.6769e+02_jprb,1.3415e+02_jprb,1.0061e+02_jprb,&
 & 6.7076e+01_jprb,3.3538e+01_jprb,2.6352e+01_jprb/)  
kao( :, 4, 6,16) = (/&
 & 3.6064e+02_jprb,3.1556e+02_jprb,2.7048e+02_jprb,2.2540e+02_jprb,1.8032e+02_jprb,1.3524e+02_jprb,&
 & 9.0160e+01_jprb,4.5080e+01_jprb,2.6414e+01_jprb/)  
kao( :, 5, 6,16) = (/&
 & 4.6794e+02_jprb,4.0944e+02_jprb,3.5095e+02_jprb,2.9246e+02_jprb,2.3397e+02_jprb,1.7548e+02_jprb,&
 & 1.1698e+02_jprb,5.8492e+01_jprb,2.6392e+01_jprb/)  
kao( :, 1, 7,16) = (/&
 & 1.1956e+02_jprb,1.0461e+02_jprb,8.9667e+01_jprb,7.4722e+01_jprb,5.9778e+01_jprb,4.4833e+01_jprb,&
 & 2.9889e+01_jprb,2.7199e+01_jprb,3.1421e+01_jprb/)  
kao( :, 2, 7,16) = (/&
 & 1.8238e+02_jprb,1.5958e+02_jprb,1.3678e+02_jprb,1.1398e+02_jprb,9.1188e+01_jprb,6.8391e+01_jprb,&
 & 4.5594e+01_jprb,2.7417e+01_jprb,3.1636e+01_jprb/)  
kao( :, 3, 7,16) = (/&
 & 2.6306e+02_jprb,2.3018e+02_jprb,1.9730e+02_jprb,1.6441e+02_jprb,1.3153e+02_jprb,9.8648e+01_jprb,&
 & 6.5766e+01_jprb,3.2883e+01_jprb,3.1799e+01_jprb/)  
kao( :, 4, 7,16) = (/&
 & 3.6216e+02_jprb,3.1689e+02_jprb,2.7162e+02_jprb,2.2635e+02_jprb,1.8108e+02_jprb,1.3581e+02_jprb,&
 & 9.0539e+01_jprb,4.5269e+01_jprb,3.1905e+01_jprb/)  
kao( :, 5, 7,16) = (/&
 & 4.7940e+02_jprb,4.1947e+02_jprb,3.5955e+02_jprb,2.9962e+02_jprb,2.3970e+02_jprb,1.7977e+02_jprb,&
 & 1.1985e+02_jprb,5.9925e+01_jprb,3.1925e+01_jprb/)  
kao( :, 1, 8,16) = (/&
 & 1.0811e+02_jprb,9.4599e+01_jprb,8.1085e+01_jprb,6.7571e+01_jprb,5.4057e+01_jprb,4.0543e+01_jprb,&
 & 2.8198e+01_jprb,3.2881e+01_jprb,3.7875e+01_jprb/)  
kao( :, 2, 8,16) = (/&
 & 1.7137e+02_jprb,1.4995e+02_jprb,1.2853e+02_jprb,1.0711e+02_jprb,8.5687e+01_jprb,6.4265e+01_jprb,&
 & 4.2843e+01_jprb,3.3181e+01_jprb,3.8195e+01_jprb/)  
kao( :, 3, 8,16) = (/&
 & 2.5494e+02_jprb,2.2307e+02_jprb,1.9121e+02_jprb,1.5934e+02_jprb,1.2747e+02_jprb,9.5603e+01_jprb,&
 & 6.3736e+01_jprb,3.3454e+01_jprb,3.8440e+01_jprb/)  
kao( :, 4, 8,16) = (/&
 & 3.5993e+02_jprb,3.1494e+02_jprb,2.6995e+02_jprb,2.2496e+02_jprb,1.7997e+02_jprb,1.3498e+02_jprb,&
 & 8.9984e+01_jprb,4.4992e+01_jprb,3.8593e+01_jprb/)  
kao( :, 5, 8,16) = (/&
 & 4.8664e+02_jprb,4.2581e+02_jprb,3.6498e+02_jprb,3.0415e+02_jprb,2.4332e+02_jprb,1.8249e+02_jprb,&
 & 1.2166e+02_jprb,6.0830e+01_jprb,3.8660e+01_jprb/)  
kao( :, 1, 9,16) = (/&
 & 9.5566e+01_jprb,8.3620e+01_jprb,7.1674e+01_jprb,5.9728e+01_jprb,4.7783e+01_jprb,3.5837e+01_jprb,&
 & 3.4022e+01_jprb,3.9693e+01_jprb,4.5621e+01_jprb/)  
kao( :, 2, 9,16) = (/&
 & 1.5795e+02_jprb,1.3820e+02_jprb,1.1846e+02_jprb,9.8717e+01_jprb,7.8974e+01_jprb,5.9230e+01_jprb,&
 & 3.9487e+01_jprb,4.0126e+01_jprb,4.6102e+01_jprb/)  
kao( :, 3, 9,16) = (/&
 & 2.4293e+02_jprb,2.1257e+02_jprb,1.8220e+02_jprb,1.5183e+02_jprb,1.2147e+02_jprb,9.1099e+01_jprb,&
 & 6.0733e+01_jprb,4.0455e+01_jprb,4.6460e+01_jprb/)  
kao( :, 4, 9,16) = (/&
 & 3.5246e+02_jprb,3.0840e+02_jprb,2.6435e+02_jprb,2.2029e+02_jprb,1.7623e+02_jprb,1.3217e+02_jprb,&
 & 8.8115e+01_jprb,4.4330e+01_jprb,4.6688e+01_jprb/)  
kao( :, 5, 9,16) = (/&
 & 4.8730e+02_jprb,4.2639e+02_jprb,3.6548e+02_jprb,3.0456e+02_jprb,2.4365e+02_jprb,1.8274e+02_jprb,&
 & 1.2183e+02_jprb,6.0913e+01_jprb,4.6814e+01_jprb/)  
kao( :, 1,10,16) = (/&
 & 8.6364e+01_jprb,7.5568e+01_jprb,6.4773e+01_jprb,5.3977e+01_jprb,4.3182e+01_jprb,3.4440e+01_jprb,&
 & 4.1088e+01_jprb,4.7936e+01_jprb,5.5004e+01_jprb/)  
kao( :, 2,10,16) = (/&
 & 1.4833e+02_jprb,1.2979e+02_jprb,1.1125e+02_jprb,9.2705e+01_jprb,7.4164e+01_jprb,5.5623e+01_jprb,&
 & 4.1568e+01_jprb,4.8496e+01_jprb,5.5636e+01_jprb/)  
kao( :, 3,10,16) = (/&
 & 2.3518e+02_jprb,2.0578e+02_jprb,1.7638e+02_jprb,1.4699e+02_jprb,1.1759e+02_jprb,8.8191e+01_jprb,&
 & 5.8794e+01_jprb,4.8955e+01_jprb,5.6147e+01_jprb/)  
kao( :, 4,10,16) = (/&
 & 3.4963e+02_jprb,3.0592e+02_jprb,2.6222e+02_jprb,2.1852e+02_jprb,1.7481e+02_jprb,1.3111e+02_jprb,&
 & 8.7406e+01_jprb,4.9235e+01_jprb,5.6450e+01_jprb/)  
kao( :, 5,10,16) = (/&
 & 4.9302e+02_jprb,4.3139e+02_jprb,3.6977e+02_jprb,3.0814e+02_jprb,2.4651e+02_jprb,1.8488e+02_jprb,&
 & 1.2326e+02_jprb,6.1628e+01_jprb,5.6644e+01_jprb/)  
kao( :, 1,11,16) = (/&
 & 1.0149e+02_jprb,8.8804e+01_jprb,7.6118e+01_jprb,6.3431e+01_jprb,5.0745e+01_jprb,4.1772e+01_jprb,&
 & 4.9883e+01_jprb,5.8197e+01_jprb,6.6698e+01_jprb/)  
kao( :, 2,11,16) = (/&
 & 1.7380e+02_jprb,1.5208e+02_jprb,1.3035e+02_jprb,1.0863e+02_jprb,8.6902e+01_jprb,6.5176e+01_jprb,&
 & 5.0425e+01_jprb,5.8829e+01_jprb,6.7412e+01_jprb/)  
kao( :, 3,11,16) = (/&
 & 2.7485e+02_jprb,2.4050e+02_jprb,2.0614e+02_jprb,1.7178e+02_jprb,1.3743e+02_jprb,1.0307e+02_jprb,&
 & 6.8713e+01_jprb,5.9345e+01_jprb,6.7990e+01_jprb/)  
kao( :, 4,11,16) = (/&
 & 4.0747e+02_jprb,3.5653e+02_jprb,3.0560e+02_jprb,2.5467e+02_jprb,2.0373e+02_jprb,1.5280e+02_jprb,&
 & 1.0187e+02_jprb,5.9645e+01_jprb,6.8320e+01_jprb/)  
kao( :, 5,11,16) = (/&
 & 5.7295e+02_jprb,5.0133e+02_jprb,4.2971e+02_jprb,3.5809e+02_jprb,2.8648e+02_jprb,2.1486e+02_jprb,&
 & 1.4324e+02_jprb,7.2192e+01_jprb,6.8483e+01_jprb/)  
kao( :, 1,12,16) = (/&
 & 1.1827e+02_jprb,1.0349e+02_jprb,8.8705e+01_jprb,7.3921e+01_jprb,5.9137e+01_jprb,5.0630e+01_jprb,&
 & 6.0438e+01_jprb,7.0510e+01_jprb,8.0746e+01_jprb/)  
kao( :, 2,12,16) = (/&
 & 2.0179e+02_jprb,1.7656e+02_jprb,1.5134e+02_jprb,1.2612e+02_jprb,1.0089e+02_jprb,7.5670e+01_jprb,&
 & 6.1072e+01_jprb,7.1251e+01_jprb,8.1581e+01_jprb/)  
kao( :, 3,12,16) = (/&
 & 3.1798e+02_jprb,2.7824e+02_jprb,2.3849e+02_jprb,1.9874e+02_jprb,1.5899e+02_jprb,1.1924e+02_jprb,&
 & 7.9796e+01_jprb,7.1750e+01_jprb,8.2143e+01_jprb/)  
kao( :, 4,12,16) = (/&
 & 4.7106e+02_jprb,4.1218e+02_jprb,3.5330e+02_jprb,2.9441e+02_jprb,2.3553e+02_jprb,1.7665e+02_jprb,&
 & 1.1777e+02_jprb,7.2076e+01_jprb,8.2504e+01_jprb/)  
kao( :, 5,12,16) = (/&
 & 6.6390e+02_jprb,5.8091e+02_jprb,4.9792e+02_jprb,4.1494e+02_jprb,3.3195e+02_jprb,2.4896e+02_jprb,&
 & 1.6597e+02_jprb,8.4840e+01_jprb,8.2551e+01_jprb/)  
kao( :, 1,13,16) = (/&
 & 1.3595e+02_jprb,1.1896e+02_jprb,1.0196e+02_jprb,8.4968e+01_jprb,6.8087e+01_jprb,6.1225e+01_jprb,&
 & 7.3041e+01_jprb,8.5214e+01_jprb,9.7532e+01_jprb/)  
kao( :, 2,13,16) = (/&
 & 2.3178e+02_jprb,2.0280e+02_jprb,1.7383e+02_jprb,1.4486e+02_jprb,1.1589e+02_jprb,8.6916e+01_jprb,&
 & 7.3742e+01_jprb,8.6032e+01_jprb,9.8456e+01_jprb/)  
kao( :, 3,13,16) = (/&
 & 3.6636e+02_jprb,3.2056e+02_jprb,2.7477e+02_jprb,2.2897e+02_jprb,1.8318e+02_jprb,1.3738e+02_jprb,&
 & 9.2837e+01_jprb,8.6498e+01_jprb,9.8980e+01_jprb/)  
kao( :, 4,13,16) = (/&
 & 5.4438e+02_jprb,4.7633e+02_jprb,4.0829e+02_jprb,3.4024e+02_jprb,2.7219e+02_jprb,2.0414e+02_jprb,&
 & 1.3610e+02_jprb,8.6750e+01_jprb,9.9251e+01_jprb/)  
kao( :, 5,13,16) = (/&
 & 7.6815e+02_jprb,6.7213e+02_jprb,5.7611e+02_jprb,4.8009e+02_jprb,3.8407e+02_jprb,2.8805e+02_jprb,&
 & 1.9204e+02_jprb,9.9763e+01_jprb,9.9159e+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.72146e-03_jprb, 1.41213e-03_jprb, 1.15839e-03_jprb, 9.50236e-04_jprb, 7.79489e-04_jprb,&
 & 6.39423e-04_jprb, 5.24525e-04_jprb, 4.30274e-04_jprb, 3.52958e-04_jprb, 2.89535e-04_jprb/)  
selfrefo( :, 2) = (/&
 & 1.83092e-03_jprb, 1.50082e-03_jprb, 1.23023e-03_jprb, 1.00843e-03_jprb, 8.26611e-04_jprb,&
 & 6.77578e-04_jprb, 5.55414e-04_jprb, 4.55276e-04_jprb, 3.73192e-04_jprb, 3.05908e-04_jprb/)  
selfrefo( :, 3) = (/&
 & 1.92620e-03_jprb, 1.57871e-03_jprb, 1.29391e-03_jprb, 1.06048e-03_jprb, 8.69169e-04_jprb,&
 & 7.12370e-04_jprb, 5.83857e-04_jprb, 4.78528e-04_jprb, 3.92201e-04_jprb, 3.21447e-04_jprb/)  
selfrefo( :, 4) = (/&
 & 2.11224e-03_jprb, 1.72966e-03_jprb, 1.41638e-03_jprb, 1.15984e-03_jprb, 9.49760e-04_jprb,&
 & 7.77734e-04_jprb, 6.36867e-04_jprb, 5.21514e-04_jprb, 4.27055e-04_jprb, 3.49704e-04_jprb/)  
selfrefo( :, 5) = (/&
 & 2.31367e-03_jprb, 1.88988e-03_jprb, 1.54371e-03_jprb, 1.26095e-03_jprb, 1.02999e-03_jprb,&
 & 8.41325e-04_jprb, 6.87221e-04_jprb, 5.61344e-04_jprb, 4.58523e-04_jprb, 3.74536e-04_jprb/)  
selfrefo( :, 6) = (/&
 & 2.47614e-03_jprb, 2.03107e-03_jprb, 1.66599e-03_jprb, 1.36654e-03_jprb, 1.12091e-03_jprb,&
 & 9.19433e-04_jprb, 7.54170e-04_jprb, 6.18612e-04_jprb, 5.07419e-04_jprb, 4.16213e-04_jprb/)  
selfrefo( :, 7) = (/&
 & 2.55137e-03_jprb, 2.10353e-03_jprb, 1.73430e-03_jprb, 1.42987e-03_jprb, 1.17889e-03_jprb,&
 & 9.71958e-04_jprb, 8.01350e-04_jprb, 6.60688e-04_jprb, 5.44717e-04_jprb, 4.49103e-04_jprb/)  
selfrefo( :, 8) = (/&
 & 2.59317e-03_jprb, 2.13957e-03_jprb, 1.76532e-03_jprb, 1.45653e-03_jprb, 1.20175e-03_jprb,&
 & 9.91539e-04_jprb, 8.18098e-04_jprb, 6.74996e-04_jprb, 5.56926e-04_jprb, 4.59508e-04_jprb/)  
selfrefo( :, 9) = (/&
 & 2.83495e-03_jprb, 2.34704e-03_jprb, 1.94309e-03_jprb, 1.60867e-03_jprb, 1.33181e-03_jprb,&
 & 1.10259e-03_jprb, 9.12826e-04_jprb, 7.55721e-04_jprb, 6.25656e-04_jprb, 5.17975e-04_jprb/)  
selfrefo( :,10) = (/&
 & 2.98196e-03_jprb, 2.46746e-03_jprb, 2.04173e-03_jprb, 1.68946e-03_jprb, 1.39796e-03_jprb,&
 & 1.15676e-03_jprb, 9.57177e-04_jprb, 7.92028e-04_jprb, 6.55373e-04_jprb, 5.42297e-04_jprb/)  
selfrefo( :,11) = (/&
 & 2.98241e-03_jprb, 2.46776e-03_jprb, 2.04191e-03_jprb, 1.68955e-03_jprb, 1.39800e-03_jprb,&
 & 1.15675e-03_jprb, 9.57141e-04_jprb, 7.91974e-04_jprb, 6.55308e-04_jprb, 5.42226e-04_jprb/)  
selfrefo( :,12) = (/&
 & 2.97837e-03_jprb, 2.46464e-03_jprb, 2.03952e-03_jprb, 1.68773e-03_jprb, 1.39662e-03_jprb,&
 & 1.15572e-03_jprb, 9.56375e-04_jprb, 7.91413e-04_jprb, 6.54904e-04_jprb, 5.41942e-04_jprb/)  
selfrefo( :,13) = (/&
 & 2.97777e-03_jprb, 2.46461e-03_jprb, 2.03989e-03_jprb, 1.68835e-03_jprb, 1.39740e-03_jprb,&
 & 1.15659e-03_jprb, 9.57271e-04_jprb, 7.92305e-04_jprb, 6.55767e-04_jprb, 5.42759e-04_jprb/)  
selfrefo( :,14) = (/&
 & 2.98331e-03_jprb, 2.46947e-03_jprb, 2.04413e-03_jprb, 1.69205e-03_jprb, 1.40061e-03_jprb,&
 & 1.15937e-03_jprb, 9.59683e-04_jprb, 7.94388e-04_jprb, 6.57564e-04_jprb, 5.44306e-04_jprb/)  

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


SUBROUTINE part12

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


selfrefo( :,15) = (/&
 & 2.99414e-03_jprb, 2.47830e-03_jprb, 2.05133e-03_jprb, 1.69792e-03_jprb, 1.40540e-03_jprb,&
 & 1.16328e-03_jprb, 9.62863e-04_jprb, 7.96978e-04_jprb, 6.59673e-04_jprb, 5.46023e-04_jprb/)  
selfrefo( :,16) = (/&
 & 3.00006e-03_jprb, 2.48297e-03_jprb, 2.05501e-03_jprb, 1.70081e-03_jprb, 1.40766e-03_jprb,&
 & 1.16503e-03_jprb, 9.64227e-04_jprb, 7.98033e-04_jprb, 6.60484e-04_jprb, 5.46643e-04_jprb/)  

fracrefao( :, 1) = (/&
 !     From P = 1053.6 mb.
 & 0.11287100_jprb,0.12070200_jprb,0.12729000_jprb,0.12858100_jprb,&
 & 0.12743001_jprb,0.11961800_jprb,0.10290400_jprb,0.07888980_jprb,&
 & 0.05900120_jprb,0.00667979_jprb,0.00552926_jprb,0.00436993_jprb,&
 & 0.00320611_jprb,0.00204765_jprb,0.00077371_jprb,0.00010894_jprb/)  
fracrefao( :, 2) = (/&
 & 0.13918801_jprb,0.16353001_jprb,0.16155800_jprb,0.14090499_jprb,&
 & 0.11322300_jprb,0.08757720_jprb,0.07225720_jprb,0.05173390_jprb,&
 & 0.04731360_jprb,0.00667979_jprb,0.00552926_jprb,0.00436993_jprb,&
 & 0.00320611_jprb,0.00204765_jprb,0.00077371_jprb,0.00010894_jprb/)  
fracrefao( :, 3) = (/&
 & 0.14687300_jprb,0.17853101_jprb,0.15664500_jprb,0.13351700_jprb,&
 & 0.10791200_jprb,0.08684320_jprb,0.07158090_jprb,0.05198410_jprb,&
 & 0.04340110_jprb,0.00667979_jprb,0.00552926_jprb,0.00436993_jprb,&
 & 0.00320611_jprb,0.00204765_jprb,0.00077371_jprb,0.00010894_jprb/)  
fracrefao( :, 4) = (/&
 & 0.15760700_jprb,0.17759100_jprb,0.15158001_jprb,0.13193300_jprb,&
 & 0.10742800_jprb,0.08693760_jprb,0.07159490_jprb,0.05196250_jprb,&
 & 0.04065270_jprb,0.00667979_jprb,0.00552926_jprb,0.00436993_jprb,&
 & 0.00320611_jprb,0.00204765_jprb,0.00077371_jprb,0.00010894_jprb/)  
fracrefao( :, 5) = (/&
 & 0.16646700_jprb,0.17299300_jprb,0.15018500_jprb,0.13138700_jprb,&
 & 0.10735900_jprb,0.08713110_jprb,0.07130330_jprb,0.05279420_jprb,&
 & 0.03766730_jprb,0.00667979_jprb,0.00552926_jprb,0.00436993_jprb,&
 & 0.00320611_jprb,0.00204765_jprb,0.00077371_jprb,0.00010894_jprb/)  
fracrefao( :, 6) = (/&
 & 0.17546000_jprb,0.16666500_jprb,0.14969499_jprb,0.13105400_jprb,&
 & 0.10782500_jprb,0.08718610_jprb,0.07156770_jprb,0.05308320_jprb,&
 & 0.03753960_jprb,0.00432465_jprb,0.00509623_jprb,0.00436993_jprb,&
 & 0.00320611_jprb,0.00204765_jprb,0.00077371_jprb,0.00010894_jprb/)  
fracrefao( :, 7) = (/&
 & 0.18378501_jprb,0.16064601_jprb,0.14940400_jprb,0.13146400_jprb,&
 & 0.10810300_jprb,0.08775740_jprb,0.07115360_jprb,0.05400040_jprb,&
 & 0.03689970_jprb,0.00388333_jprb,0.00323610_jprb,0.00353414_jprb,&
 & 0.00320611_jprb,0.00204765_jprb,0.00077371_jprb,0.00010894_jprb/)  
fracrefao( :, 8) = (/&
 & 0.18966800_jprb,0.15744300_jprb,0.14993000_jprb,0.13152599_jprb,&
 & 0.10899200_jprb,0.08858690_jprb,0.07142920_jprb,0.05399600_jprb,&
 & 0.03433460_jprb,0.00374886_jprb,0.00302066_jprb,0.00240653_jprb,&
 & 0.00199205_jprb,0.00204765_jprb,0.00077371_jprb,0.00010894_jprb/)  
fracrefao( :, 9) = (/&
 & 0.11887100_jprb,0.12479600_jprb,0.12569501_jprb,0.12839900_jprb,&
 & 0.12473500_jprb,0.12012800_jprb,0.11086700_jprb,0.08493590_jprb,&
 & 0.05063770_jprb,0.00328723_jprb,0.00266849_jprb,0.00210232_jprb,&
 & 0.00152114_jprb,0.00095635_jprb,0.00035374_jprb,0.00004980_jprb/)  

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


END SUBROUTINE rrtm_kgb15