rrtm_kgb13.F90

Go to the documentation of this file.

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

!     Originally by Eli J. Mlawer, Atmospheric & Environmental Research.
!     BAND 13:  2080-2250 cm-1 (low - H2O,N2O; 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 yoerrto13, ONLY : kao     ,selfrefo   ,fracrefao
USE yoerrta13, ONLY : strrat

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

IMPLICIT NONE
REAL(KIND=JPRB) :: ZHOOK_HANDLE

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

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

CONTAINS


SUBROUTINE part1

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


strrat = 16658.87_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) = (/&
 & 6.0224e-05_jprb,8.4190e-05_jprb,9.2945e-05_jprb,9.8340e-05_jprb,1.0097e-04_jprb,1.0123e-04_jprb,&
 & 9.8980e-05_jprb,9.5101e-05_jprb,1.0057e-04_jprb/)  
kao( :, 2, 1, 1) = (/&
 & 6.0879e-05_jprb,8.9195e-05_jprb,9.9910e-05_jprb,1.0710e-04_jprb,1.1122e-04_jprb,1.1263e-04_jprb,&
 & 1.1044e-04_jprb,1.0763e-04_jprb,1.0542e-04_jprb/)  
kao( :, 3, 1, 1) = (/&
 & 6.1791e-05_jprb,9.5106e-05_jprb,1.0827e-04_jprb,1.1785e-04_jprb,1.2380e-04_jprb,1.2668e-04_jprb,&
 & 1.2512e-04_jprb,1.2107e-04_jprb,1.1351e-04_jprb/)  
kao( :, 4, 1, 1) = (/&
 & 6.3010e-05_jprb,1.0201e-04_jprb,1.1821e-04_jprb,1.3067e-04_jprb,1.3868e-04_jprb,1.4333e-04_jprb,&
 & 1.4292e-04_jprb,1.3776e-04_jprb,1.2486e-04_jprb/)  
kao( :, 5, 1, 1) = (/&
 & 6.4569e-05_jprb,1.0987e-04_jprb,1.2980e-04_jprb,1.4543e-04_jprb,1.5604e-04_jprb,1.6272e-04_jprb,&
 & 1.6360e-04_jprb,1.5809e-04_jprb,1.3899e-04_jprb/)  
kao( :, 1, 2, 1) = (/&
 & 5.2287e-05_jprb,7.1405e-05_jprb,7.7712e-05_jprb,8.1186e-05_jprb,8.2505e-05_jprb,8.2006e-05_jprb,&
 & 7.9565e-05_jprb,7.6455e-05_jprb,9.9524e-05_jprb/)  
kao( :, 2, 2, 1) = (/&
 & 5.2781e-05_jprb,7.5455e-05_jprb,8.3243e-05_jprb,8.8119e-05_jprb,9.0567e-05_jprb,9.0970e-05_jprb,&
 & 8.8663e-05_jprb,8.6015e-05_jprb,1.0412e-04_jprb/)  
kao( :, 3, 2, 1) = (/&
 & 5.3548e-05_jprb,8.0317e-05_jprb,9.0003e-05_jprb,9.6753e-05_jprb,1.0065e-04_jprb,1.0210e-04_jprb,&
 & 1.0019e-04_jprb,9.6846e-05_jprb,1.1058e-04_jprb/)  
kao( :, 4, 2, 1) = (/&
 & 5.4581e-05_jprb,8.6067e-05_jprb,9.8148e-05_jprb,1.0717e-04_jprb,1.1272e-04_jprb,1.1541e-04_jprb,&
 & 1.1436e-04_jprb,1.1002e-04_jprb,1.1929e-04_jprb/)  
kao( :, 5, 2, 1) = (/&
 & 5.5952e-05_jprb,9.2760e-05_jprb,1.0776e-04_jprb,1.1931e-04_jprb,1.2684e-04_jprb,1.3110e-04_jprb,&
 & 1.3118e-04_jprb,1.2615e-04_jprb,1.3023e-04_jprb/)  
kao( :, 1, 3, 1) = (/&
 & 4.5915e-05_jprb,6.0577e-05_jprb,6.4826e-05_jprb,6.6685e-05_jprb,6.6750e-05_jprb,6.5539e-05_jprb,&
 & 6.2942e-05_jprb,6.0959e-05_jprb,1.1753e-04_jprb/)  
kao( :, 2, 3, 1) = (/&
 & 4.6227e-05_jprb,6.3783e-05_jprb,6.9133e-05_jprb,7.1876e-05_jprb,7.2797e-05_jprb,7.2195e-05_jprb,&
 & 6.9765e-05_jprb,6.7154e-05_jprb,1.2464e-04_jprb/)  
kao( :, 3, 3, 1) = (/&
 & 4.6851e-05_jprb,6.7690e-05_jprb,7.4367e-05_jprb,7.8503e-05_jprb,8.0513e-05_jprb,8.0733e-05_jprb,&
 & 7.8338e-05_jprb,7.5667e-05_jprb,1.3207e-04_jprb/)  
kao( :, 4, 3, 1) = (/&
 & 4.7751e-05_jprb,7.2324e-05_jprb,8.0776e-05_jprb,8.6619e-05_jprb,8.9966e-05_jprb,9.1016e-05_jprb,&
 & 8.9192e-05_jprb,8.5836e-05_jprb,1.3971e-04_jprb/)  
kao( :, 5, 3, 1) = (/&
 & 4.8912e-05_jprb,7.7822e-05_jprb,8.8433e-05_jprb,9.6277e-05_jprb,1.0117e-04_jprb,1.0326e-04_jprb,&
 & 1.0232e-04_jprb,9.7968e-05_jprb,1.4868e-04_jprb/)  
kao( :, 1, 4, 1) = (/&
 & 4.0950e-05_jprb,5.2139e-05_jprb,5.4765e-05_jprb,5.5573e-05_jprb,5.4704e-05_jprb,5.2865e-05_jprb,&
 & 5.0161e-05_jprb,4.9155e-05_jprb,1.5352e-04_jprb/)  
kao( :, 2, 4, 1) = (/&
 & 4.1070e-05_jprb,5.4592e-05_jprb,5.8140e-05_jprb,5.9442e-05_jprb,5.9104e-05_jprb,5.7678e-05_jprb,&
 & 5.5011e-05_jprb,5.2621e-05_jprb,1.6066e-04_jprb/)  
kao( :, 3, 4, 1) = (/&
 & 4.1547e-05_jprb,5.7742e-05_jprb,6.2323e-05_jprb,6.4435e-05_jprb,6.4943e-05_jprb,6.4068e-05_jprb,&
 & 6.1387e-05_jprb,5.9195e-05_jprb,1.6903e-04_jprb/)  
kao( :, 4, 4, 1) = (/&
 & 4.2287e-05_jprb,6.1604e-05_jprb,6.7380e-05_jprb,7.0692e-05_jprb,7.2200e-05_jprb,7.1920e-05_jprb,&
 & 6.9467e-05_jprb,6.6532e-05_jprb,1.7839e-04_jprb/)  
kao( :, 5, 4, 1) = (/&
 & 4.3274e-05_jprb,6.6127e-05_jprb,7.3452e-05_jprb,7.8267e-05_jprb,8.0937e-05_jprb,8.1435e-05_jprb,&
 & 7.9548e-05_jprb,7.5644e-05_jprb,1.8879e-04_jprb/)  
kao( :, 1, 5, 1) = (/&
 & 3.6899e-05_jprb,4.5432e-05_jprb,4.6910e-05_jprb,4.6828e-05_jprb,4.5505e-05_jprb,4.3257e-05_jprb,&
 & 4.0494e-05_jprb,4.0683e-05_jprb,2.1040e-04_jprb/)  
kao( :, 2, 5, 1) = (/&
 & 3.6791e-05_jprb,4.7257e-05_jprb,4.9430e-05_jprb,4.9831e-05_jprb,4.8726e-05_jprb,4.6653e-05_jprb,&
 & 4.3906e-05_jprb,4.1943e-05_jprb,2.1714e-04_jprb/)  
kao( :, 3, 5, 1) = (/&
 & 3.7067e-05_jprb,4.9759e-05_jprb,5.2813e-05_jprb,5.3675e-05_jprb,5.3108e-05_jprb,5.1487e-05_jprb,&
 & 4.8518e-05_jprb,4.6186e-05_jprb,2.2577e-04_jprb/)  
kao( :, 4, 5, 1) = (/&
 & 3.7713e-05_jprb,5.2955e-05_jprb,5.6991e-05_jprb,5.8578e-05_jprb,5.8728e-05_jprb,5.7522e-05_jprb,&
 & 5.4651e-05_jprb,5.2154e-05_jprb,2.3593e-04_jprb/)  
kao( :, 5, 5, 1) = (/&
 & 3.8601e-05_jprb,5.6859e-05_jprb,6.2047e-05_jprb,6.4624e-05_jprb,6.5592e-05_jprb,6.4919e-05_jprb,&
 & 6.2327e-05_jprb,5.8914e-05_jprb,2.4626e-04_jprb/)  
kao( :, 1, 6, 1) = (/&
 & 3.3082e-05_jprb,3.9382e-05_jprb,4.0055e-05_jprb,3.9341e-05_jprb,3.7713e-05_jprb,3.5318e-05_jprb,&
 & 3.2652e-05_jprb,3.2896e-05_jprb,2.9458e-04_jprb/)  
kao( :, 2, 6, 1) = (/&
 & 3.2847e-05_jprb,4.0822e-05_jprb,4.1992e-05_jprb,4.1637e-05_jprb,4.0248e-05_jprb,3.7895e-05_jprb,&
 & 3.4950e-05_jprb,3.3596e-05_jprb,2.9908e-04_jprb/)  
kao( :, 3, 6, 1) = (/&
 & 3.2992e-05_jprb,4.2782e-05_jprb,4.4664e-05_jprb,4.4799e-05_jprb,4.3587e-05_jprb,4.1448e-05_jprb,&
 & 3.8538e-05_jprb,3.6195e-05_jprb,3.0643e-04_jprb/)  
kao( :, 4, 6, 1) = (/&
 & 3.3529e-05_jprb,4.5435e-05_jprb,4.8125e-05_jprb,4.8714e-05_jprb,4.7939e-05_jprb,4.6103e-05_jprb,&
 & 4.3124e-05_jprb,4.0777e-05_jprb,3.1650e-04_jprb/)  
kao( :, 5, 6, 1) = (/&
 & 3.4353e-05_jprb,4.8744e-05_jprb,5.2397e-05_jprb,5.3568e-05_jprb,5.3408e-05_jprb,5.1940e-05_jprb,&
 & 4.9013e-05_jprb,4.5970e-05_jprb,3.2817e-04_jprb/)  
kao( :, 1, 7, 1) = (/&
 & 2.9702e-05_jprb,3.4031e-05_jprb,3.4045e-05_jprb,3.2966e-05_jprb,3.1191e-05_jprb,2.8774e-05_jprb,&
 & 2.6215e-05_jprb,2.6660e-05_jprb,4.4900e-04_jprb/)  
kao( :, 2, 7, 1) = (/&
 & 2.9362e-05_jprb,3.5097e-05_jprb,3.5527e-05_jprb,3.4696e-05_jprb,3.3156e-05_jprb,3.0815e-05_jprb,&
 & 2.7832e-05_jprb,2.7318e-05_jprb,4.4931e-04_jprb/)  
kao( :, 3, 7, 1) = (/&
 & 2.9381e-05_jprb,3.6764e-05_jprb,3.7674e-05_jprb,3.7240e-05_jprb,3.5897e-05_jprb,3.3579e-05_jprb,&
 & 3.0718e-05_jprb,2.8716e-05_jprb,4.5416e-04_jprb/)  
kao( :, 4, 7, 1) = (/&
 & 2.9804e-05_jprb,3.8980e-05_jprb,4.0580e-05_jprb,4.0617e-05_jprb,3.9435e-05_jprb,3.7220e-05_jprb,&
 & 3.4325e-05_jprb,3.1670e-05_jprb,4.6259e-04_jprb/)  
kao( :, 5, 7, 1) = (/&
 & 3.0562e-05_jprb,4.1836e-05_jprb,4.4230e-05_jprb,4.4708e-05_jprb,4.3841e-05_jprb,4.1868e-05_jprb,&
 & 3.8884e-05_jprb,3.5908e-05_jprb,4.7345e-04_jprb/)  
kao( :, 1, 8, 1) = (/&
 & 2.7321e-05_jprb,3.0014e-05_jprb,2.9442e-05_jprb,2.8040e-05_jprb,2.6171e-05_jprb,2.3688e-05_jprb,&
 & 2.1169e-05_jprb,2.1771e-05_jprb,8.4757e-04_jprb/)  
kao( :, 2, 8, 1) = (/&
 & 2.6852e-05_jprb,3.0756e-05_jprb,3.0519e-05_jprb,2.9342e-05_jprb,2.7606e-05_jprb,2.5285e-05_jprb,&
 & 2.2516e-05_jprb,2.2054e-05_jprb,8.3254e-04_jprb/)  
kao( :, 3, 8, 1) = (/&
 & 2.6744e-05_jprb,3.2077e-05_jprb,3.2249e-05_jprb,3.1375e-05_jprb,2.9814e-05_jprb,2.7516e-05_jprb,&
 & 2.4584e-05_jprb,2.2691e-05_jprb,8.2738e-04_jprb/)  
kao( :, 4, 8, 1) = (/&
 & 2.7044e-05_jprb,3.3995e-05_jprb,3.4700e-05_jprb,3.4193e-05_jprb,3.2808e-05_jprb,3.0482e-05_jprb,&
 & 2.7565e-05_jprb,2.5008e-05_jprb,8.3006e-04_jprb/)  
kao( :, 5, 8, 1) = (/&
 & 2.7742e-05_jprb,3.6507e-05_jprb,3.7912e-05_jprb,3.7803e-05_jprb,3.6547e-05_jprb,3.4307e-05_jprb,&
 & 3.1271e-05_jprb,2.8258e-05_jprb,8.3842e-04_jprb/)  
kao( :, 1, 9, 1) = (/&
 & 2.4687e-05_jprb,2.6227e-05_jprb,2.5301e-05_jprb,2.3694e-05_jprb,2.1797e-05_jprb,1.9441e-05_jprb,&
 & 1.7144e-05_jprb,1.8070e-05_jprb,3.0692e-03_jprb/)  
kao( :, 2, 9, 1) = (/&
 & 2.4149e-05_jprb,2.6661e-05_jprb,2.5983e-05_jprb,2.4666e-05_jprb,2.2860e-05_jprb,2.0564e-05_jprb,&
 & 1.8143e-05_jprb,1.7595e-05_jprb,2.9547e-03_jprb/)  
kao( :, 3, 9, 1) = (/&
 & 2.3961e-05_jprb,2.7611e-05_jprb,2.7357e-05_jprb,2.6251e-05_jprb,2.4586e-05_jprb,2.2361e-05_jprb,&
 & 1.9658e-05_jprb,1.8317e-05_jprb,2.8730e-03_jprb/)  
kao( :, 4, 9, 1) = (/&
 & 2.4159e-05_jprb,2.9205e-05_jprb,2.9375e-05_jprb,2.8560e-05_jprb,2.7008e-05_jprb,2.4819e-05_jprb,&
 & 2.2013e-05_jprb,1.9707e-05_jprb,2.8257e-03_jprb/)  
kao( :, 5, 9, 1) = (/&
 & 2.4768e-05_jprb,3.1434e-05_jprb,3.2114e-05_jprb,3.1586e-05_jprb,3.0168e-05_jprb,2.7970e-05_jprb,&
 & 2.5064e-05_jprb,2.2198e-05_jprb,2.8077e-03_jprb/)  
kao( :, 1,10, 1) = (/&
 & 2.1797e-05_jprb,2.2612e-05_jprb,2.1570e-05_jprb,1.9956e-05_jprb,1.8112e-05_jprb,1.6002e-05_jprb,&
 & 1.3941e-05_jprb,1.4620e-05_jprb,1.2580e-02_jprb/)  
kao( :, 2,10, 1) = (/&
 & 2.1252e-05_jprb,2.2866e-05_jprb,2.2054e-05_jprb,2.0662e-05_jprb,1.8925e-05_jprb,1.6823e-05_jprb,&
 & 1.4740e-05_jprb,1.4291e-05_jprb,1.1973e-02_jprb/)  
kao( :, 3,10, 1) = (/&
 & 2.1032e-05_jprb,2.3616e-05_jprb,2.3143e-05_jprb,2.1982e-05_jprb,2.0293e-05_jprb,1.8202e-05_jprb,&
 & 1.5821e-05_jprb,1.4749e-05_jprb,1.1500e-02_jprb/)  
kao( :, 4,10, 1) = (/&
 & 2.1171e-05_jprb,2.4967e-05_jprb,2.4887e-05_jprb,2.3890e-05_jprb,2.2324e-05_jprb,2.0262e-05_jprb,&
 & 1.7708e-05_jprb,1.5622e-05_jprb,1.1158e-02_jprb/)  
kao( :, 5,10, 1) = (/&
 & 2.1717e-05_jprb,2.6968e-05_jprb,2.7236e-05_jprb,2.6488e-05_jprb,2.5038e-05_jprb,2.2971e-05_jprb,&
 & 2.0251e-05_jprb,1.7568e-05_jprb,1.0927e-02_jprb/)  
kao( :, 1,11, 1) = (/&
 & 1.8470e-05_jprb,1.9129e-05_jprb,1.8217e-05_jprb,1.6833e-05_jprb,1.5198e-05_jprb,1.3363e-05_jprb,&
 & 1.1543e-05_jprb,1.1814e-05_jprb,1.7618e-02_jprb/)  
kao( :, 2,11, 1) = (/&
 & 1.8063e-05_jprb,1.9445e-05_jprb,1.8772e-05_jprb,1.7526e-05_jprb,1.5974e-05_jprb,1.4135e-05_jprb,&
 & 1.2268e-05_jprb,1.1501e-05_jprb,1.6744e-02_jprb/)  
kao( :, 3,11, 1) = (/&
 & 1.7957e-05_jprb,2.0240e-05_jprb,1.9844e-05_jprb,1.8765e-05_jprb,1.7266e-05_jprb,1.5419e-05_jprb,&
 & 1.3308e-05_jprb,1.2031e-05_jprb,1.6060e-02_jprb/)  
kao( :, 4,11, 1) = (/&
 & 1.8203e-05_jprb,2.1589e-05_jprb,2.1496e-05_jprb,2.0575e-05_jprb,1.9161e-05_jprb,1.7309e-05_jprb,&
 & 1.5025e-05_jprb,1.2988e-05_jprb,1.5567e-02_jprb/)  
kao( :, 5,11, 1) = (/&
 & 1.8839e-05_jprb,2.3539e-05_jprb,2.3752e-05_jprb,2.3027e-05_jprb,2.1716e-05_jprb,1.9862e-05_jprb,&
 & 1.7378e-05_jprb,1.4830e-05_jprb,1.5199e-02_jprb/)  
kao( :, 1,12, 1) = (/&
 & 1.5612e-05_jprb,1.6179e-05_jprb,1.5392e-05_jprb,1.4206e-05_jprb,1.2794e-05_jprb,1.1200e-05_jprb,&
 & 9.6111e-06_jprb,9.5638e-06_jprb,1.8266e-02_jprb/)  
kao( :, 2,12, 1) = (/&
 & 1.5307e-05_jprb,1.6515e-05_jprb,1.5933e-05_jprb,1.4844e-05_jprb,1.3479e-05_jprb,1.1890e-05_jprb,&
 & 1.0208e-05_jprb,9.3516e-06_jprb,1.7358e-02_jprb/)  
kao( :, 3,12, 1) = (/&
 & 1.5280e-05_jprb,1.7278e-05_jprb,1.6918e-05_jprb,1.5945e-05_jprb,1.4639e-05_jprb,1.3025e-05_jprb,&
 & 1.1176e-05_jprb,9.8024e-06_jprb,1.6665e-02_jprb/)  
kao( :, 4,12, 1) = (/&
 & 1.5592e-05_jprb,1.8520e-05_jprb,1.8406e-05_jprb,1.7580e-05_jprb,1.6331e-05_jprb,1.4710e-05_jprb,&
 & 1.2711e-05_jprb,1.0774e-05_jprb,1.6133e-02_jprb/)  
kao( :, 5,12, 1) = (/&
 & 1.6237e-05_jprb,2.0286e-05_jprb,2.0469e-05_jprb,1.9802e-05_jprb,1.8638e-05_jprb,1.6992e-05_jprb,&
 & 1.4787e-05_jprb,1.2409e-05_jprb,1.5729e-02_jprb/)  
kao( :, 1,13, 1) = (/&
 & 1.3792e-05_jprb,1.4238e-05_jprb,1.3502e-05_jprb,1.2414e-05_jprb,1.1117e-05_jprb,9.6608e-06_jprb,&
 & 8.1806e-06_jprb,7.6738e-06_jprb,1.5338e-02_jprb/)  
kao( :, 2,13, 1) = (/&
 & 1.3542e-05_jprb,1.4555e-05_jprb,1.3995e-05_jprb,1.2981e-05_jprb,1.1719e-05_jprb,1.0269e-05_jprb,&
 & 8.6775e-06_jprb,7.6029e-06_jprb,1.4590e-02_jprb/)  
kao( :, 3,13, 1) = (/&
 & 1.3558e-05_jprb,1.5256e-05_jprb,1.4880e-05_jprb,1.3955e-05_jprb,1.2744e-05_jprb,1.1268e-05_jprb,&
 & 9.5734e-06_jprb,8.0878e-06_jprb,1.4000e-02_jprb/)  
kao( :, 4,13, 1) = (/&
 & 1.3858e-05_jprb,1.6375e-05_jprb,1.6230e-05_jprb,1.5419e-05_jprb,1.4252e-05_jprb,1.2754e-05_jprb,&
 & 1.0921e-05_jprb,9.0320e-06_jprb,1.3543e-02_jprb/)  
kao( :, 5,13, 1) = (/&
 & 1.4462e-05_jprb,1.7948e-05_jprb,1.8079e-05_jprb,1.7409e-05_jprb,1.6310e-05_jprb,1.4770e-05_jprb,&
 & 1.2761e-05_jprb,1.0416e-05_jprb,1.3196e-02_jprb/)  
kao( :, 1, 1, 2) = (/&
 & 1.0631e-04_jprb,1.5549e-04_jprb,1.7340e-04_jprb,1.8106e-04_jprb,1.8266e-04_jprb,1.7952e-04_jprb,&
 & 1.7173e-04_jprb,1.6014e-04_jprb,1.4099e-04_jprb/)  
kao( :, 2, 1, 2) = (/&
 & 1.0836e-04_jprb,1.6879e-04_jprb,1.9237e-04_jprb,2.0382e-04_jprb,2.0859e-04_jprb,2.0748e-04_jprb,&
 & 2.0039e-04_jprb,1.8243e-04_jprb,1.5914e-04_jprb/)  
kao( :, 3, 1, 2) = (/&
 & 1.1141e-04_jprb,1.8503e-04_jprb,2.1527e-04_jprb,2.3112e-04_jprb,2.3976e-04_jprb,2.4062e-04_jprb,&
 & 2.3400e-04_jprb,2.1520e-04_jprb,1.8165e-04_jprb/)  
kao( :, 4, 1, 2) = (/&
 & 1.1542e-04_jprb,2.0406e-04_jprb,2.4207e-04_jprb,2.6306e-04_jprb,2.7542e-04_jprb,2.7832e-04_jprb,&
 & 2.7291e-04_jprb,2.5096e-04_jprb,2.0989e-04_jprb/)  
kao( :, 5, 1, 2) = (/&
 & 1.2040e-04_jprb,2.2620e-04_jprb,2.7276e-04_jprb,2.9953e-04_jprb,3.1543e-04_jprb,3.2079e-04_jprb,&
 & 3.1620e-04_jprb,2.8905e-04_jprb,2.4408e-04_jprb/)  
kao( :, 1, 2, 2) = (/&
 & 9.2736e-05_jprb,1.3080e-04_jprb,1.4408e-04_jprb,1.4918e-04_jprb,1.4919e-04_jprb,1.4563e-04_jprb,&
 & 1.3832e-04_jprb,1.2913e-04_jprb,1.3821e-04_jprb/)  
kao( :, 2, 2, 2) = (/&
 & 9.4585e-05_jprb,1.4205e-04_jprb,1.5994e-04_jprb,1.6797e-04_jprb,1.7060e-04_jprb,1.6851e-04_jprb,&
 & 1.6121e-04_jprb,1.4625e-04_jprb,1.5045e-04_jprb/)  
kao( :, 3, 2, 2) = (/&
 & 9.7336e-05_jprb,1.5584e-04_jprb,1.7917e-04_jprb,1.9059e-04_jprb,1.9617e-04_jprb,1.9585e-04_jprb,&
 & 1.8879e-04_jprb,1.7257e-04_jprb,1.6847e-04_jprb/)  
kao( :, 4, 2, 2) = (/&
 & 1.0100e-04_jprb,1.7222e-04_jprb,2.0175e-04_jprb,2.1726e-04_jprb,2.2590e-04_jprb,2.2731e-04_jprb,&
 & 2.2070e-04_jprb,2.0218e-04_jprb,1.9129e-04_jprb/)  
kao( :, 5, 2, 2) = (/&
 & 1.0558e-04_jprb,1.9122e-04_jprb,2.2772e-04_jprb,2.4801e-04_jprb,2.5982e-04_jprb,2.6260e-04_jprb,&
 & 2.5652e-04_jprb,2.3358e-04_jprb,2.1889e-04_jprb/)  
kao( :, 1, 3, 2) = (/&
 & 8.2078e-05_jprb,1.0954e-04_jprb,1.1829e-04_jprb,1.2081e-04_jprb,1.1948e-04_jprb,1.1532e-04_jprb,&
 & 1.0856e-04_jprb,1.0266e-04_jprb,1.7007e-04_jprb/)  
kao( :, 2, 3, 2) = (/&
 & 8.3515e-05_jprb,1.1841e-04_jprb,1.3075e-04_jprb,1.3555e-04_jprb,1.3601e-04_jprb,1.3281e-04_jprb,&
 & 1.2585e-04_jprb,1.1400e-04_jprb,1.7692e-04_jprb/)  
kao( :, 3, 3, 2) = (/&
 & 8.5702e-05_jprb,1.2951e-04_jprb,1.4617e-04_jprb,1.5357e-04_jprb,1.5612e-04_jprb,1.5431e-04_jprb,&
 & 1.4752e-04_jprb,1.3319e-04_jprb,1.8883e-04_jprb/)  
kao( :, 4, 3, 2) = (/&
 & 8.8714e-05_jprb,1.4294e-04_jprb,1.6445e-04_jprb,1.7481e-04_jprb,1.7986e-04_jprb,1.7967e-04_jprb,&
 & 1.7282e-04_jprb,1.5669e-04_jprb,2.0641e-04_jprb/)  
kao( :, 5, 3, 2) = (/&
 & 9.2653e-05_jprb,1.5873e-04_jprb,1.8560e-04_jprb,1.9973e-04_jprb,2.0749e-04_jprb,2.0832e-04_jprb,&
 & 2.0174e-04_jprb,1.8232e-04_jprb,2.2828e-04_jprb/)  
kao( :, 1, 4, 2) = (/&
 & 7.5057e-05_jprb,9.3742e-05_jprb,9.8708e-05_jprb,9.9032e-05_jprb,9.6534e-05_jprb,9.1631e-05_jprb,&
 & 8.5330e-05_jprb,8.0637e-05_jprb,2.4302e-04_jprb/)  
kao( :, 2, 4, 2) = (/&
 & 7.6019e-05_jprb,1.0050e-04_jprb,1.0818e-04_jprb,1.1027e-04_jprb,1.0900e-04_jprb,1.0488e-04_jprb,&
 & 9.8357e-05_jprb,8.9315e-05_jprb,2.5003e-04_jprb/)  
kao( :, 3, 4, 2) = (/&
 & 7.7597e-05_jprb,1.0920e-04_jprb,1.2007e-04_jprb,1.2426e-04_jprb,1.2440e-04_jprb,1.2138e-04_jprb,&
 & 1.1480e-04_jprb,1.0183e-04_jprb,2.5796e-04_jprb/)  
kao( :, 4, 4, 2) = (/&
 & 7.9952e-05_jprb,1.1979e-04_jprb,1.3449e-04_jprb,1.4091e-04_jprb,1.4297e-04_jprb,1.4131e-04_jprb,&
 & 1.3468e-04_jprb,1.2088e-04_jprb,2.6766e-04_jprb/)  
kao( :, 5, 4, 2) = (/&
 & 8.3148e-05_jprb,1.3259e-04_jprb,1.5143e-04_jprb,1.6061e-04_jprb,1.6491e-04_jprb,1.6427e-04_jprb,&
 & 1.5762e-04_jprb,1.4129e-04_jprb,2.8200e-04_jprb/)  
kao( :, 1, 5, 2) = (/&
 & 7.0507e-05_jprb,8.2851e-05_jprb,8.4727e-05_jprb,8.3356e-05_jprb,7.9669e-05_jprb,7.4240e-05_jprb,&
 & 6.8168e-05_jprb,6.4269e-05_jprb,3.5533e-04_jprb/)  
kao( :, 2, 5, 2) = (/&
 & 7.1163e-05_jprb,8.7993e-05_jprb,9.1940e-05_jprb,9.1728e-05_jprb,8.9016e-05_jprb,8.4180e-05_jprb,&
 & 7.7602e-05_jprb,7.0901e-05_jprb,3.6205e-04_jprb/)  
kao( :, 3, 5, 2) = (/&
 & 7.2353e-05_jprb,9.4696e-05_jprb,1.0096e-04_jprb,1.0241e-04_jprb,1.0073e-04_jprb,9.6618e-05_jprb,&
 & 9.0257e-05_jprb,7.9342e-05_jprb,3.6910e-04_jprb/)  
kao( :, 4, 5, 2) = (/&
 & 7.4211e-05_jprb,1.0309e-04_jprb,1.1198e-04_jprb,1.1540e-04_jprb,1.1506e-04_jprb,1.1201e-04_jprb,&
 & 1.0538e-04_jprb,9.2743e-05_jprb,3.7730e-04_jprb/)  
kao( :, 5, 5, 2) = (/&
 & 7.6842e-05_jprb,1.1301e-04_jprb,1.2533e-04_jprb,1.3080e-04_jprb,1.3221e-04_jprb,1.3010e-04_jprb,&
 & 1.2341e-04_jprb,1.0902e-04_jprb,3.8882e-04_jprb/)  

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


SUBROUTINE part2

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


kao( :, 1, 6, 2) = (/&
 & 6.7057e-05_jprb,7.4992e-05_jprb,7.4494e-05_jprb,7.1808e-05_jprb,6.7401e-05_jprb,6.1558e-05_jprb,&
 & 5.5600e-05_jprb,5.3582e-05_jprb,5.2728e-04_jprb/)  
kao( :, 2, 6, 2) = (/&
 & 6.7342e-05_jprb,7.8865e-05_jprb,7.9962e-05_jprb,7.8191e-05_jprb,7.4156e-05_jprb,6.8577e-05_jprb,&
 & 6.2398e-05_jprb,5.6569e-05_jprb,5.3013e-04_jprb/)  
kao( :, 3, 6, 2) = (/&
 & 6.8218e-05_jprb,8.4114e-05_jprb,8.7034e-05_jprb,8.6152e-05_jprb,8.2978e-05_jprb,7.8073e-05_jprb,&
 & 7.1379e-05_jprb,6.2472e-05_jprb,5.3405e-04_jprb/)  
kao( :, 4, 6, 2) = (/&
 & 6.9765e-05_jprb,9.0741e-05_jprb,9.5513e-05_jprb,9.6075e-05_jprb,9.4001e-05_jprb,8.9757e-05_jprb,&
 & 8.2727e-05_jprb,7.1298e-05_jprb,5.3812e-04_jprb/)  
kao( :, 5, 6, 2) = (/&
 & 7.2087e-05_jprb,9.8694e-05_jprb,1.0570e-04_jprb,1.0811e-04_jprb,1.0716e-04_jprb,1.0356e-04_jprb,&
 & 9.6610e-05_jprb,8.3845e-05_jprb,5.4521e-04_jprb/)  
kao( :, 1, 7, 2) = (/&
 & 6.3981e-05_jprb,6.8796e-05_jprb,6.6960e-05_jprb,6.3245e-05_jprb,5.8395e-05_jprb,5.2642e-05_jprb,&
 & 4.7017e-05_jprb,4.3597e-05_jprb,8.5561e-04_jprb/)  
kao( :, 2, 7, 2) = (/&
 & 6.4065e-05_jprb,7.1972e-05_jprb,7.1316e-05_jprb,6.8334e-05_jprb,6.3687e-05_jprb,5.7772e-05_jprb,&
 & 5.1662e-05_jprb,4.6088e-05_jprb,8.4325e-04_jprb/)  
kao( :, 3, 7, 2) = (/&
 & 6.4710e-05_jprb,7.6213e-05_jprb,7.7049e-05_jprb,7.4782e-05_jprb,7.0451e-05_jprb,6.4812e-05_jprb,&
 & 5.7879e-05_jprb,5.0007e-05_jprb,8.3547e-04_jprb/)  
kao( :, 4, 7, 2) = (/&
 & 6.6047e-05_jprb,8.1740e-05_jprb,8.4011e-05_jprb,8.2492e-05_jprb,7.9038e-05_jprb,7.3729e-05_jprb,&
 & 6.6297e-05_jprb,5.5934e-05_jprb,8.3289e-04_jprb/)  
kao( :, 5, 7, 2) = (/&
 & 6.8167e-05_jprb,8.8466e-05_jprb,9.2188e-05_jprb,9.2019e-05_jprb,8.9278e-05_jprb,8.4398e-05_jprb,&
 & 7.6796e-05_jprb,6.5449e-05_jprb,8.3519e-04_jprb/)  
kao( :, 1, 8, 2) = (/&
 & 6.2510e-05_jprb,6.4632e-05_jprb,6.1651e-05_jprb,5.7339e-05_jprb,5.1955e-05_jprb,4.6202e-05_jprb,&
 & 4.0544e-05_jprb,3.4871e-05_jprb,1.7109e-03_jprb/)  
kao( :, 2, 8, 2) = (/&
 & 6.2657e-05_jprb,6.7414e-05_jprb,6.5438e-05_jprb,6.1572e-05_jprb,5.6549e-05_jprb,5.0497e-05_jprb,&
 & 4.4065e-05_jprb,3.7625e-05_jprb,1.6570e-03_jprb/)  
kao( :, 3, 8, 2) = (/&
 & 6.3371e-05_jprb,7.1203e-05_jprb,7.0449e-05_jprb,6.7168e-05_jprb,6.2333e-05_jprb,5.6127e-05_jprb,&
 & 4.8965e-05_jprb,4.1883e-05_jprb,1.6155e-03_jprb/)  
kao( :, 4, 8, 2) = (/&
 & 6.4738e-05_jprb,7.6021e-05_jprb,7.6569e-05_jprb,7.3931e-05_jprb,6.9329e-05_jprb,6.3277e-05_jprb,&
 & 5.5409e-05_jprb,4.5618e-05_jprb,1.5874e-03_jprb/)  
kao( :, 5, 8, 2) = (/&
 & 6.6770e-05_jprb,8.2019e-05_jprb,8.3827e-05_jprb,8.1865e-05_jprb,7.7838e-05_jprb,7.1738e-05_jprb,&
 & 6.3577e-05_jprb,5.2190e-05_jprb,1.5711e-03_jprb/)  
kao( :, 1, 9, 2) = (/&
 & 5.9728e-05_jprb,5.9777e-05_jprb,5.6068e-05_jprb,5.1537e-05_jprb,4.6074e-05_jprb,4.0294e-05_jprb,&
 & 3.4429e-05_jprb,2.7470e-05_jprb,6.4927e-03_jprb/)  
kao( :, 2, 9, 2) = (/&
 & 6.0003e-05_jprb,6.2162e-05_jprb,5.9412e-05_jprb,5.5191e-05_jprb,4.9924e-05_jprb,4.3949e-05_jprb,&
 & 3.7436e-05_jprb,3.0651e-05_jprb,6.2135e-03_jprb/)  
kao( :, 3, 9, 2) = (/&
 & 6.0913e-05_jprb,6.5739e-05_jprb,6.3824e-05_jprb,6.0113e-05_jprb,5.5046e-05_jprb,4.8801e-05_jprb,&
 & 4.1506e-05_jprb,3.4176e-05_jprb,5.9805e-03_jprb/)  
kao( :, 4, 9, 2) = (/&
 & 6.2491e-05_jprb,7.0239e-05_jprb,6.9462e-05_jprb,6.6167e-05_jprb,6.1198e-05_jprb,5.4677e-05_jprb,&
 & 4.6786e-05_jprb,3.7966e-05_jprb,5.7915e-03_jprb/)  
kao( :, 5, 9, 2) = (/&
 & 6.4708e-05_jprb,7.5807e-05_jprb,7.6215e-05_jprb,7.3304e-05_jprb,6.8390e-05_jprb,6.1872e-05_jprb,&
 & 5.3436e-05_jprb,4.2944e-05_jprb,5.6478e-03_jprb/)  
kao( :, 1,10, 2) = (/&
 & 5.7126e-05_jprb,5.5833e-05_jprb,5.1557e-05_jprb,4.6740e-05_jprb,4.1349e-05_jprb,3.5460e-05_jprb,&
 & 2.9383e-05_jprb,2.2254e-05_jprb,2.8102e-02_jprb/)  
kao( :, 2,10, 2) = (/&
 & 5.7625e-05_jprb,5.8090e-05_jprb,5.4514e-05_jprb,5.0007e-05_jprb,4.4659e-05_jprb,3.8611e-05_jprb,&
 & 3.1928e-05_jprb,2.5019e-05_jprb,2.6630e-02_jprb/)  
kao( :, 3,10, 2) = (/&
 & 5.8840e-05_jprb,6.1513e-05_jprb,5.8714e-05_jprb,5.4556e-05_jprb,4.9297e-05_jprb,4.2998e-05_jprb,&
 & 3.5795e-05_jprb,2.7821e-05_jprb,2.5370e-02_jprb/)  
kao( :, 4,10, 2) = (/&
 & 6.0763e-05_jprb,6.6038e-05_jprb,6.4072e-05_jprb,6.0305e-05_jprb,5.4952e-05_jprb,4.8371e-05_jprb,&
 & 4.0375e-05_jprb,3.1951e-05_jprb,2.4311e-02_jprb/)  
kao( :, 5,10, 2) = (/&
 & 6.3372e-05_jprb,7.1487e-05_jprb,7.0499e-05_jprb,6.7017e-05_jprb,6.1584e-05_jprb,5.4655e-05_jprb,&
 & 4.6116e-05_jprb,3.6268e-05_jprb,2.3439e-02_jprb/)  
kao( :, 1,11, 2) = (/&
 & 5.3603e-05_jprb,5.2084e-05_jprb,4.7825e-05_jprb,4.2996e-05_jprb,3.7707e-05_jprb,3.1871e-05_jprb,&
 & 2.5749e-05_jprb,1.8962e-05_jprb,4.0768e-02_jprb/)  
kao( :, 2,11, 2) = (/&
 & 5.4665e-05_jprb,5.4805e-05_jprb,5.1049e-05_jprb,4.6457e-05_jprb,4.1159e-05_jprb,3.5139e-05_jprb,&
 & 2.8405e-05_jprb,2.1377e-05_jprb,3.8491e-02_jprb/)  
kao( :, 3,11, 2) = (/&
 & 5.6497e-05_jprb,5.8583e-05_jprb,5.5394e-05_jprb,5.1053e-05_jprb,4.5792e-05_jprb,3.9489e-05_jprb,&
 & 3.2243e-05_jprb,2.4328e-05_jprb,3.6513e-02_jprb/)  
kao( :, 4,11, 2) = (/&
 & 5.8985e-05_jprb,6.3339e-05_jprb,6.0862e-05_jprb,5.6796e-05_jprb,5.1415e-05_jprb,4.4728e-05_jprb,&
 & 3.6818e-05_jprb,2.8272e-05_jprb,3.4835e-02_jprb/)  
kao( :, 5,11, 2) = (/&
 & 6.2109e-05_jprb,6.9025e-05_jprb,6.7331e-05_jprb,6.3560e-05_jprb,5.7958e-05_jprb,5.0821e-05_jprb,&
 & 4.2238e-05_jprb,3.2283e-05_jprb,3.3538e-02_jprb/)  
kao( :, 1,12, 2) = (/&
 & 4.8218e-05_jprb,4.6772e-05_jprb,4.2783e-05_jprb,3.8266e-05_jprb,3.3329e-05_jprb,2.7973e-05_jprb,&
 & 2.2210e-05_jprb,1.6103e-05_jprb,4.2855e-02_jprb/)  
kao( :, 2,12, 2) = (/&
 & 4.9589e-05_jprb,4.9591e-05_jprb,4.5984e-05_jprb,4.1620e-05_jprb,3.6685e-05_jprb,3.1116e-05_jprb,&
 & 2.4857e-05_jprb,1.8118e-05_jprb,4.0385e-02_jprb/)  
kao( :, 3,12, 2) = (/&
 & 5.1684e-05_jprb,5.3446e-05_jprb,5.0256e-05_jprb,4.6072e-05_jprb,4.1058e-05_jprb,3.5154e-05_jprb,&
 & 2.8460e-05_jprb,2.1061e-05_jprb,3.8259e-02_jprb/)  
kao( :, 4,12, 2) = (/&
 & 5.4404e-05_jprb,5.8179e-05_jprb,5.5538e-05_jprb,5.1508e-05_jprb,4.6383e-05_jprb,4.0102e-05_jprb,&
 & 3.2710e-05_jprb,2.4512e-05_jprb,3.6555e-02_jprb/)  
kao( :, 5,12, 2) = (/&
 & 5.7705e-05_jprb,6.3751e-05_jprb,6.1743e-05_jprb,5.7901e-05_jprb,5.2567e-05_jprb,4.5798e-05_jprb,&
 & 3.7620e-05_jprb,2.8071e-05_jprb,3.5258e-02_jprb/)  
kao( :, 1,13, 2) = (/&
 & 4.4847e-05_jprb,4.3227e-05_jprb,3.9370e-05_jprb,3.5016e-05_jprb,3.0292e-05_jprb,2.5212e-05_jprb,&
 & 1.9650e-05_jprb,1.3504e-05_jprb,3.6293e-02_jprb/)  
kao( :, 2,13, 2) = (/&
 & 4.6428e-05_jprb,4.6148e-05_jprb,4.2554e-05_jprb,3.8305e-05_jprb,3.3519e-05_jprb,2.8187e-05_jprb,&
 & 2.2241e-05_jprb,1.5699e-05_jprb,3.4162e-02_jprb/)  
kao( :, 3,13, 2) = (/&
 & 4.8652e-05_jprb,5.0010e-05_jprb,4.6740e-05_jprb,4.2580e-05_jprb,3.7668e-05_jprb,3.2017e-05_jprb,&
 & 2.5602e-05_jprb,1.8433e-05_jprb,3.2408e-02_jprb/)  
kao( :, 4,13, 2) = (/&
 & 5.1540e-05_jprb,5.4741e-05_jprb,5.1862e-05_jprb,4.7783e-05_jprb,4.2732e-05_jprb,3.6679e-05_jprb,&
 & 2.9552e-05_jprb,2.1520e-05_jprb,3.1021e-02_jprb/)  
kao( :, 5,13, 2) = (/&
 & 5.5009e-05_jprb,6.0274e-05_jprb,5.7902e-05_jprb,5.3924e-05_jprb,4.8654e-05_jprb,4.2058e-05_jprb,&
 & 3.4024e-05_jprb,2.4705e-05_jprb,2.9920e-02_jprb/)  
kao( :, 1, 1, 3) = (/&
 & 2.1996e-04_jprb,2.9526e-04_jprb,3.2298e-04_jprb,3.3886e-04_jprb,3.4278e-04_jprb,3.3270e-04_jprb,&
 & 3.0580e-04_jprb,2.6421e-04_jprb,1.9405e-04_jprb/)  
kao( :, 2, 1, 3) = (/&
 & 2.2777e-04_jprb,3.2546e-04_jprb,3.6631e-04_jprb,3.9178e-04_jprb,3.9976e-04_jprb,3.8992e-04_jprb,&
 & 3.6015e-04_jprb,3.0390e-04_jprb,2.3244e-04_jprb/)  
kao( :, 3, 1, 3) = (/&
 & 2.3798e-04_jprb,3.6240e-04_jprb,4.1819e-04_jprb,4.5171e-04_jprb,4.6388e-04_jprb,4.5403e-04_jprb,&
 & 4.2005e-04_jprb,3.4862e-04_jprb,2.7996e-04_jprb/)  
kao( :, 4, 1, 3) = (/&
 & 2.5036e-04_jprb,4.0578e-04_jprb,4.7739e-04_jprb,5.1796e-04_jprb,5.3466e-04_jprb,5.2428e-04_jprb,&
 & 4.8540e-04_jprb,4.0265e-04_jprb,3.3613e-04_jprb/)  
kao( :, 5, 1, 3) = (/&
 & 2.6491e-04_jprb,4.5514e-04_jprb,5.4139e-04_jprb,5.9019e-04_jprb,6.1021e-04_jprb,6.0113e-04_jprb,&
 & 5.5511e-04_jprb,4.6549e-04_jprb,4.0231e-04_jprb/)  
kao( :, 1, 2, 3) = (/&
 & 1.9023e-04_jprb,2.4938e-04_jprb,2.6928e-04_jprb,2.7999e-04_jprb,2.8164e-04_jprb,2.7165e-04_jprb,&
 & 2.4816e-04_jprb,2.1405e-04_jprb,1.8605e-04_jprb/)  
kao( :, 2, 2, 3) = (/&
 & 1.9755e-04_jprb,2.7578e-04_jprb,3.0701e-04_jprb,3.2514e-04_jprb,3.2961e-04_jprb,3.1950e-04_jprb,&
 & 2.9350e-04_jprb,2.4834e-04_jprb,2.1661e-04_jprb/)  
kao( :, 3, 2, 3) = (/&
 & 2.0698e-04_jprb,3.0835e-04_jprb,3.5213e-04_jprb,3.7659e-04_jprb,3.8400e-04_jprb,3.7352e-04_jprb,&
 & 3.4485e-04_jprb,2.8635e-04_jprb,2.5484e-04_jprb/)  
kao( :, 4, 2, 3) = (/&
 & 2.1845e-04_jprb,3.4704e-04_jprb,4.0375e-04_jprb,4.3389e-04_jprb,4.4469e-04_jprb,4.3366e-04_jprb,&
 & 4.0044e-04_jprb,3.3118e-04_jprb,3.0181e-04_jprb/)  
kao( :, 5, 2, 3) = (/&
 & 2.3191e-04_jprb,3.9121e-04_jprb,4.5961e-04_jprb,4.9694e-04_jprb,5.1051e-04_jprb,5.0008e-04_jprb,&
 & 4.5954e-04_jprb,3.8446e-04_jprb,3.5821e-04_jprb/)  
kao( :, 1, 3, 3) = (/&
 & 1.6337e-04_jprb,2.0696e-04_jprb,2.1920e-04_jprb,2.2438e-04_jprb,2.2325e-04_jprb,2.1342e-04_jprb,&
 & 1.9346e-04_jprb,1.6754e-04_jprb,2.2851e-04_jprb/)  
kao( :, 2, 3, 3) = (/&
 & 1.6969e-04_jprb,2.2863e-04_jprb,2.5003e-04_jprb,2.6113e-04_jprb,2.6214e-04_jprb,2.5210e-04_jprb,&
 & 2.2996e-04_jprb,1.9528e-04_jprb,2.5004e-04_jprb/)  
kao( :, 3, 3, 3) = (/&
 & 1.7794e-04_jprb,2.5581e-04_jprb,2.8765e-04_jprb,3.0386e-04_jprb,3.0684e-04_jprb,2.9654e-04_jprb,&
 & 2.7213e-04_jprb,2.2576e-04_jprb,2.7938e-04_jprb/)  
kao( :, 4, 3, 3) = (/&
 & 1.8809e-04_jprb,2.8851e-04_jprb,3.3100e-04_jprb,3.5226e-04_jprb,3.5780e-04_jprb,3.4669e-04_jprb,&
 & 3.1871e-04_jprb,2.6155e-04_jprb,3.1781e-04_jprb/)  
kao( :, 5, 3, 3) = (/&
 & 2.0000e-04_jprb,3.2610e-04_jprb,3.7882e-04_jprb,4.0593e-04_jprb,4.1389e-04_jprb,4.0266e-04_jprb,&
 & 3.6759e-04_jprb,3.0486e-04_jprb,3.6667e-04_jprb/)  
kao( :, 1, 4, 3) = (/&
 & 1.4241e-04_jprb,1.7332e-04_jprb,1.7952e-04_jprb,1.8020e-04_jprb,1.7647e-04_jprb,1.6735e-04_jprb,&
 & 1.4973e-04_jprb,1.3184e-04_jprb,3.2106e-04_jprb/)  
kao( :, 2, 4, 3) = (/&
 & 1.4769e-04_jprb,1.9050e-04_jprb,2.0392e-04_jprb,2.0940e-04_jprb,2.0737e-04_jprb,1.9737e-04_jprb,&
 & 1.7818e-04_jprb,1.5166e-04_jprb,3.3469e-04_jprb/)  
kao( :, 3, 4, 3) = (/&
 & 1.5465e-04_jprb,2.1252e-04_jprb,2.3439e-04_jprb,2.4418e-04_jprb,2.4355e-04_jprb,2.3330e-04_jprb,&
 & 2.1176e-04_jprb,1.7565e-04_jprb,3.5614e-04_jprb/)  
kao( :, 4, 4, 3) = (/&
 & 1.6328e-04_jprb,2.3941e-04_jprb,2.6997e-04_jprb,2.8414e-04_jprb,2.8560e-04_jprb,2.7432e-04_jprb,&
 & 2.4968e-04_jprb,2.0300e-04_jprb,3.8786e-04_jprb/)  
kao( :, 5, 4, 3) = (/&
 & 1.7360e-04_jprb,2.7074e-04_jprb,3.1000e-04_jprb,3.2898e-04_jprb,3.3251e-04_jprb,3.2018e-04_jprb,&
 & 2.9030e-04_jprb,2.3792e-04_jprb,4.3003e-04_jprb/)  
kao( :, 1, 5, 3) = (/&
 & 1.2728e-04_jprb,1.4778e-04_jprb,1.4974e-04_jprb,1.4737e-04_jprb,1.4151e-04_jprb,1.3231e-04_jprb,&
 & 1.1681e-04_jprb,1.0270e-04_jprb,4.7573e-04_jprb/)  
kao( :, 2, 5, 3) = (/&
 & 1.3157e-04_jprb,1.6147e-04_jprb,1.6852e-04_jprb,1.6982e-04_jprb,1.6546e-04_jprb,1.5568e-04_jprb,&
 & 1.3883e-04_jprb,1.1790e-04_jprb,4.8146e-04_jprb/)  
kao( :, 3, 5, 3) = (/&
 & 1.3726e-04_jprb,1.7914e-04_jprb,1.9255e-04_jprb,1.9744e-04_jprb,1.9449e-04_jprb,1.8411e-04_jprb,&
 & 1.6473e-04_jprb,1.3672e-04_jprb,4.9353e-04_jprb/)  
kao( :, 4, 5, 3) = (/&
 & 1.4435e-04_jprb,2.0063e-04_jprb,2.2141e-04_jprb,2.2988e-04_jprb,2.2840e-04_jprb,2.1697e-04_jprb,&
 & 1.9533e-04_jprb,1.5780e-04_jprb,5.1440e-04_jprb/)  
kao( :, 5, 5, 3) = (/&
 & 1.5296e-04_jprb,2.2635e-04_jprb,2.5441e-04_jprb,2.6691e-04_jprb,2.6692e-04_jprb,2.5417e-04_jprb,&
 & 2.2886e-04_jprb,1.8463e-04_jprb,5.4687e-04_jprb/)  
kao( :, 1, 6, 3) = (/&
 & 1.1763e-04_jprb,1.2927e-04_jprb,1.2797e-04_jprb,1.2303e-04_jprb,1.1545e-04_jprb,1.0562e-04_jprb,&
 & 9.1765e-05_jprb,7.9707e-05_jprb,7.1798e-04_jprb/)  
kao( :, 2, 6, 3) = (/&
 & 1.2108e-04_jprb,1.3972e-04_jprb,1.4189e-04_jprb,1.3941e-04_jprb,1.3314e-04_jprb,1.2332e-04_jprb,&
 & 1.0817e-04_jprb,9.2633e-05_jprb,7.1177e-04_jprb/)  
kao( :, 3, 6, 3) = (/&
 & 1.2566e-04_jprb,1.5364e-04_jprb,1.6005e-04_jprb,1.6046e-04_jprb,1.5545e-04_jprb,1.4506e-04_jprb,&
 & 1.2802e-04_jprb,1.0643e-04_jprb,7.1286e-04_jprb/)  
kao( :, 4, 6, 3) = (/&
 & 1.3128e-04_jprb,1.7051e-04_jprb,1.8240e-04_jprb,1.8616e-04_jprb,1.8213e-04_jprb,1.7092e-04_jprb,&
 & 1.5182e-04_jprb,1.2232e-04_jprb,7.2407e-04_jprb/)  
kao( :, 5, 6, 3) = (/&
 & 1.3815e-04_jprb,1.9078e-04_jprb,2.0902e-04_jprb,2.1580e-04_jprb,2.1291e-04_jprb,2.0039e-04_jprb,&
 & 1.7876e-04_jprb,1.4231e-04_jprb,7.4599e-04_jprb/)  
kao( :, 1, 7, 3) = (/&
 & 1.1390e-04_jprb,1.1947e-04_jprb,1.1509e-04_jprb,1.0795e-04_jprb,9.8745e-05_jprb,8.7676e-05_jprb,&
 & 7.3630e-05_jprb,6.4348e-05_jprb,1.1861e-03_jprb/)  
kao( :, 2, 7, 3) = (/&
 & 1.1683e-04_jprb,1.2744e-04_jprb,1.2545e-04_jprb,1.1972e-04_jprb,1.1135e-04_jprb,1.0038e-04_jprb,&
 & 8.6144e-05_jprb,7.3622e-05_jprb,1.1591e-03_jprb/)  
kao( :, 3, 7, 3) = (/&
 & 1.2074e-04_jprb,1.3815e-04_jprb,1.3900e-04_jprb,1.3526e-04_jprb,1.2779e-04_jprb,1.1675e-04_jprb,&
 & 1.0110e-04_jprb,8.3354e-05_jprb,1.1418e-03_jprb/)  
kao( :, 4, 7, 3) = (/&
 & 1.2564e-04_jprb,1.5125e-04_jprb,1.5566e-04_jprb,1.5486e-04_jprb,1.4804e-04_jprb,1.3653e-04_jprb,&
 & 1.1897e-04_jprb,9.5580e-05_jprb,1.1345e-03_jprb/)  
kao( :, 5, 7, 3) = (/&
 & 1.3130e-04_jprb,1.6685e-04_jprb,1.7626e-04_jprb,1.7784e-04_jprb,1.7201e-04_jprb,1.5950e-04_jprb,&
 & 1.4031e-04_jprb,1.0987e-04_jprb,1.1432e-03_jprb/)  
kao( :, 1, 8, 3) = (/&
 & 1.1676e-04_jprb,1.1853e-04_jprb,1.1141e-04_jprb,1.0211e-04_jprb,9.1156e-05_jprb,7.8301e-05_jprb,&
 & 6.3522e-05_jprb,5.5937e-05_jprb,2.4094e-03_jprb/)  
kao( :, 2, 8, 3) = (/&
 & 1.1985e-04_jprb,1.2513e-04_jprb,1.1980e-04_jprb,1.1130e-04_jprb,1.0061e-04_jprb,8.7533e-05_jprb,&
 & 7.2505e-05_jprb,6.1035e-05_jprb,2.3252e-03_jprb/)  
kao( :, 3, 8, 3) = (/&
 & 1.2377e-04_jprb,1.3400e-04_jprb,1.3053e-04_jprb,1.2319e-04_jprb,1.1282e-04_jprb,9.9725e-05_jprb,&
 & 8.3671e-05_jprb,6.6418e-05_jprb,2.2547e-03_jprb/)  
kao( :, 4, 8, 3) = (/&
 & 1.2843e-04_jprb,1.4498e-04_jprb,1.4372e-04_jprb,1.3796e-04_jprb,1.2812e-04_jprb,1.1463e-04_jprb,&
 & 9.6976e-05_jprb,7.5638e-05_jprb,2.2063e-03_jprb/)  
kao( :, 5, 8, 3) = (/&
 & 1.3377e-04_jprb,1.5770e-04_jprb,1.5943e-04_jprb,1.5571e-04_jprb,1.4617e-04_jprb,1.3202e-04_jprb,&
 & 1.1296e-04_jprb,8.6665e-05_jprb,2.1851e-03_jprb/)  
kao( :, 1, 9, 3) = (/&
 & 1.1900e-04_jprb,1.1760e-04_jprb,1.0852e-04_jprb,9.7634e-05_jprb,8.5611e-05_jprb,7.2038e-05_jprb,&
 & 5.7121e-05_jprb,5.0882e-05_jprb,9.3039e-03_jprb/)  
kao( :, 2, 9, 3) = (/&
 & 1.2244e-04_jprb,1.2389e-04_jprb,1.1590e-04_jprb,1.0554e-04_jprb,9.3325e-05_jprb,7.9548e-05_jprb,&
 & 6.3970e-05_jprb,5.3089e-05_jprb,8.8588e-03_jprb/)  
kao( :, 3, 9, 3) = (/&
 & 1.2665e-04_jprb,1.3180e-04_jprb,1.2538e-04_jprb,1.1542e-04_jprb,1.0335e-04_jprb,8.9270e-05_jprb,&
 & 7.2786e-05_jprb,5.6389e-05_jprb,8.4831e-03_jprb/)  
kao( :, 4, 9, 3) = (/&
 & 1.3137e-04_jprb,1.4182e-04_jprb,1.3671e-04_jprb,1.2766e-04_jprb,1.1600e-04_jprb,1.0124e-04_jprb,&
 & 8.3094e-05_jprb,6.1858e-05_jprb,8.1874e-03_jprb/)  
kao( :, 5, 9, 3) = (/&
 & 1.3659e-04_jprb,1.5316e-04_jprb,1.4996e-04_jprb,1.4235e-04_jprb,1.3080e-04_jprb,1.1485e-04_jprb,&
 & 9.5226e-05_jprb,6.9785e-05_jprb,7.9858e-03_jprb/)  
kao( :, 1,10, 3) = (/&
 & 1.2241e-04_jprb,1.1830e-04_jprb,1.0781e-04_jprb,9.5617e-05_jprb,8.2345e-05_jprb,6.8338e-05_jprb,&
 & 5.2826e-05_jprb,4.6160e-05_jprb,4.0381e-02_jprb/)  
kao( :, 2,10, 3) = (/&
 & 1.2664e-04_jprb,1.2454e-04_jprb,1.1474e-04_jprb,1.0301e-04_jprb,8.9686e-05_jprb,7.5133e-05_jprb,&
 & 5.8776e-05_jprb,4.7480e-05_jprb,3.8200e-02_jprb/)  
kao( :, 3,10, 3) = (/&
 & 1.3156e-04_jprb,1.3237e-04_jprb,1.2366e-04_jprb,1.1203e-04_jprb,9.8559e-05_jprb,8.3570e-05_jprb,&
 & 6.6092e-05_jprb,4.9993e-05_jprb,3.6380e-02_jprb/)  
kao( :, 4,10, 3) = (/&
 & 1.3697e-04_jprb,1.4182e-04_jprb,1.3416e-04_jprb,1.2285e-04_jprb,1.0946e-04_jprb,9.3555e-05_jprb,&
 & 7.4960e-05_jprb,5.3295e-05_jprb,3.4905e-02_jprb/)  
kao( :, 5,10, 3) = (/&
 & 1.4259e-04_jprb,1.5277e-04_jprb,1.4630e-04_jprb,1.3560e-04_jprb,1.2209e-04_jprb,1.0520e-04_jprb,&
 & 8.5036e-05_jprb,5.9404e-05_jprb,3.3870e-02_jprb/)  
kao( :, 1,11, 3) = (/&
 & 1.2464e-04_jprb,1.1924e-04_jprb,1.0798e-04_jprb,9.5208e-05_jprb,8.1370e-05_jprb,6.6802e-05_jprb,&
 & 5.0925e-05_jprb,4.1000e-05_jprb,5.9272e-02_jprb/)  
kao( :, 2,11, 3) = (/&
 & 1.2962e-04_jprb,1.2601e-04_jprb,1.1550e-04_jprb,1.0297e-04_jprb,8.8796e-05_jprb,7.3413e-05_jprb,&
 & 5.6677e-05_jprb,4.3091e-05_jprb,5.5988e-02_jprb/)  
kao( :, 3,11, 3) = (/&
 & 1.3526e-04_jprb,1.3432e-04_jprb,1.2476e-04_jprb,1.1207e-04_jprb,9.7433e-05_jprb,8.1433e-05_jprb,&
 & 6.3587e-05_jprb,4.4893e-05_jprb,5.3301e-02_jprb/)  
kao( :, 4,11, 3) = (/&
 & 1.4143e-04_jprb,1.4433e-04_jprb,1.3524e-04_jprb,1.2250e-04_jprb,1.0762e-04_jprb,9.0841e-05_jprb,&
 & 7.1572e-05_jprb,4.8589e-05_jprb,5.1249e-02_jprb/)  
kao( :, 5,11, 3) = (/&
 & 1.4794e-04_jprb,1.5535e-04_jprb,1.4694e-04_jprb,1.3429e-04_jprb,1.1923e-04_jprb,1.0163e-04_jprb,&
 & 8.0508e-05_jprb,5.4223e-05_jprb,4.9838e-02_jprb/)  
kao( :, 1,12, 3) = (/&
 & 1.1910e-04_jprb,1.1316e-04_jprb,1.0208e-04_jprb,8.9709e-05_jprb,7.6333e-05_jprb,6.2180e-05_jprb,&
 & 4.7000e-05_jprb,3.5676e-05_jprb,6.3357e-02_jprb/)  
kao( :, 2,12, 3) = (/&
 & 1.2455e-04_jprb,1.2008e-04_jprb,1.0962e-04_jprb,9.7228e-05_jprb,8.3393e-05_jprb,6.8465e-05_jprb,&
 & 5.2437e-05_jprb,3.7619e-05_jprb,5.9804e-02_jprb/)  

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


SUBROUTINE part3

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


kao( :, 3,12, 3) = (/&
 & 1.3047e-04_jprb,1.2832e-04_jprb,1.1854e-04_jprb,1.0591e-04_jprb,9.1615e-05_jprb,7.5950e-05_jprb,&
 & 5.8544e-05_jprb,3.9665e-05_jprb,5.6934e-02_jprb/)  
kao( :, 4,12, 3) = (/&
 & 1.3670e-04_jprb,1.3799e-04_jprb,1.2856e-04_jprb,1.1584e-04_jprb,1.0096e-04_jprb,8.4392e-05_jprb,&
 & 6.5619e-05_jprb,4.3295e-05_jprb,5.4726e-02_jprb/)  
kao( :, 5,12, 3) = (/&
 & 1.4329e-04_jprb,1.4852e-04_jprb,1.3961e-04_jprb,1.2668e-04_jprb,1.1132e-04_jprb,9.3911e-05_jprb,&
 & 7.3404e-05_jprb,4.8588e-05_jprb,5.3331e-02_jprb/)  
kao( :, 1,13, 3) = (/&
 & 1.1744e-04_jprb,1.1063e-04_jprb,9.9314e-05_jprb,8.6900e-05_jprb,7.3501e-05_jprb,5.9317e-05_jprb,&
 & 4.4384e-05_jprb,3.1424e-05_jprb,5.4422e-02_jprb/)  
kao( :, 2,13, 3) = (/&
 & 1.2299e-04_jprb,1.1743e-04_jprb,1.0678e-04_jprb,9.4184e-05_jprb,8.0294e-05_jprb,6.5353e-05_jprb,&
 & 4.9396e-05_jprb,3.3221e-05_jprb,5.1307e-02_jprb/)  
kao( :, 3,13, 3) = (/&
 & 1.2905e-04_jprb,1.2561e-04_jprb,1.1534e-04_jprb,1.0249e-04_jprb,8.8036e-05_jprb,7.2203e-05_jprb,&
 & 5.4868e-05_jprb,3.5562e-05_jprb,4.8781e-02_jprb/)  
kao( :, 4,13, 3) = (/&
 & 1.3536e-04_jprb,1.3482e-04_jprb,1.2477e-04_jprb,1.1168e-04_jprb,9.6529e-05_jprb,7.9711e-05_jprb,&
 & 6.1059e-05_jprb,3.9213e-05_jprb,4.6937e-02_jprb/)  
kao( :, 5,13, 3) = (/&
 & 1.4199e-04_jprb,1.4483e-04_jprb,1.3499e-04_jprb,1.2149e-04_jprb,1.0563e-04_jprb,8.7931e-05_jprb,&
 & 6.7855e-05_jprb,4.4192e-05_jprb,4.5940e-02_jprb/)  
kao( :, 1, 1, 4) = (/&
 & 5.9013e-04_jprb,7.0245e-04_jprb,7.3164e-04_jprb,7.2179e-04_jprb,6.8573e-04_jprb,6.2586e-04_jprb,&
 & 5.3565e-04_jprb,3.8435e-04_jprb,2.9201e-04_jprb/)  
kao( :, 2, 1, 4) = (/&
 & 6.1984e-04_jprb,7.6785e-04_jprb,8.0887e-04_jprb,8.0653e-04_jprb,7.7581e-04_jprb,7.1523e-04_jprb,&
 & 6.1584e-04_jprb,4.5439e-04_jprb,3.5568e-04_jprb/)  
kao( :, 3, 1, 4) = (/&
 & 6.5388e-04_jprb,8.3863e-04_jprb,8.9298e-04_jprb,9.0379e-04_jprb,8.7674e-04_jprb,8.1428e-04_jprb,&
 & 7.0393e-04_jprb,5.3376e-04_jprb,4.3604e-04_jprb/)  
kao( :, 4, 1, 4) = (/&
 & 6.9104e-04_jprb,9.1397e-04_jprb,9.8676e-04_jprb,1.0109e-03_jprb,9.8675e-04_jprb,9.2127e-04_jprb,&
 & 8.0143e-04_jprb,6.2432e-04_jprb,5.3306e-04_jprb/)  
kao( :, 5, 1, 4) = (/&
 & 7.3106e-04_jprb,9.9279e-04_jprb,1.0893e-03_jprb,1.1247e-03_jprb,1.1052e-03_jprb,1.0359e-03_jprb,&
 & 9.1211e-04_jprb,7.2751e-04_jprb,6.4803e-04_jprb/)  
kao( :, 1, 2, 4) = (/&
 & 5.1187e-04_jprb,6.0705e-04_jprb,6.2677e-04_jprb,6.1236e-04_jprb,5.7704e-04_jprb,5.2457e-04_jprb,&
 & 4.4788e-04_jprb,3.2136e-04_jprb,2.7655e-04_jprb/)  
kao( :, 2, 2, 4) = (/&
 & 5.4076e-04_jprb,6.6478e-04_jprb,6.9333e-04_jprb,6.8548e-04_jprb,6.5547e-04_jprb,6.0224e-04_jprb,&
 & 5.1801e-04_jprb,3.7991e-04_jprb,3.3492e-04_jprb/)  
kao( :, 3, 2, 4) = (/&
 & 5.7303e-04_jprb,7.2753e-04_jprb,7.6688e-04_jprb,7.7045e-04_jprb,7.4435e-04_jprb,6.8770e-04_jprb,&
 & 5.9408e-04_jprb,4.4774e-04_jprb,4.0831e-04_jprb/)  
kao( :, 4, 2, 4) = (/&
 & 6.0856e-04_jprb,7.9562e-04_jprb,8.4981e-04_jprb,8.6454e-04_jprb,8.3973e-04_jprb,7.7971e-04_jprb,&
 & 6.7967e-04_jprb,5.2619e-04_jprb,4.9767e-04_jprb/)  
kao( :, 5, 2, 4) = (/&
 & 6.4744e-04_jprb,8.6751e-04_jprb,9.4144e-04_jprb,9.6462e-04_jprb,9.4185e-04_jprb,8.7987e-04_jprb,&
 & 7.7686e-04_jprb,6.1504e-04_jprb,6.0360e-04_jprb/)  
kao( :, 1, 3, 4) = (/&
 & 4.3480e-04_jprb,5.0939e-04_jprb,5.1971e-04_jprb,5.0362e-04_jprb,4.7059e-04_jprb,4.2466e-04_jprb,&
 & 3.6011e-04_jprb,2.5628e-04_jprb,3.1317e-04_jprb/)  
kao( :, 2, 3, 4) = (/&
 & 4.6125e-04_jprb,5.5965e-04_jprb,5.7749e-04_jprb,5.6507e-04_jprb,5.3629e-04_jprb,4.9048e-04_jprb,&
 & 4.1883e-04_jprb,3.0535e-04_jprb,3.6323e-04_jprb/)  
kao( :, 3, 3, 4) = (/&
 & 4.9122e-04_jprb,6.1523e-04_jprb,6.4073e-04_jprb,6.3706e-04_jprb,6.1179e-04_jprb,5.6184e-04_jprb,&
 & 4.8250e-04_jprb,3.6188e-04_jprb,4.3066e-04_jprb/)  
kao( :, 4, 3, 4) = (/&
 & 5.2513e-04_jprb,6.7573e-04_jprb,7.1288e-04_jprb,7.1737e-04_jprb,6.9265e-04_jprb,6.3867e-04_jprb,&
 & 5.5339e-04_jprb,4.2777e-04_jprb,5.1587e-04_jprb/)  
kao( :, 5, 3, 4) = (/&
 & 5.6222e-04_jprb,7.4076e-04_jprb,7.9225e-04_jprb,8.0338e-04_jprb,7.7867e-04_jprb,7.2219e-04_jprb,&
 & 6.3593e-04_jprb,5.0139e-04_jprb,6.1836e-04_jprb/)  
kao( :, 1, 4, 4) = (/&
 & 3.6976e-04_jprb,4.2501e-04_jprb,4.2710e-04_jprb,4.1037e-04_jprb,3.7995e-04_jprb,3.3967e-04_jprb,&
 & 2.8574e-04_jprb,1.9979e-04_jprb,4.2399e-04_jprb/)  
kao( :, 2, 4, 4) = (/&
 & 3.9327e-04_jprb,4.6788e-04_jprb,4.7574e-04_jprb,4.6106e-04_jprb,4.3415e-04_jprb,3.9414e-04_jprb,&
 & 3.3408e-04_jprb,2.4080e-04_jprb,4.6262e-04_jprb/)  
kao( :, 3, 4, 4) = (/&
 & 4.2065e-04_jprb,5.1570e-04_jprb,5.3050e-04_jprb,5.2117e-04_jprb,4.9670e-04_jprb,4.5372e-04_jprb,&
 & 3.8660e-04_jprb,2.8761e-04_jprb,5.2104e-04_jprb/)  
kao( :, 4, 4, 4) = (/&
 & 4.5210e-04_jprb,5.6870e-04_jprb,5.9248e-04_jprb,5.8890e-04_jprb,5.6466e-04_jprb,5.1691e-04_jprb,&
 & 4.4461e-04_jprb,3.4096e-04_jprb,6.0030e-04_jprb/)  
kao( :, 5, 4, 4) = (/&
 & 4.8655e-04_jprb,6.2705e-04_jprb,6.6097e-04_jprb,6.6244e-04_jprb,6.3703e-04_jprb,5.8594e-04_jprb,&
 & 5.1212e-04_jprb,4.0060e-04_jprb,6.9904e-04_jprb/)  
kao( :, 1, 5, 4) = (/&
 & 3.1593e-04_jprb,3.5529e-04_jprb,3.5086e-04_jprb,3.3304e-04_jprb,3.0635e-04_jprb,2.7113e-04_jprb,&
 & 2.2537e-04_jprb,1.5625e-04_jprb,6.0940e-04_jprb/)  
kao( :, 2, 5, 4) = (/&
 & 3.3652e-04_jprb,3.9074e-04_jprb,3.9127e-04_jprb,3.7581e-04_jprb,3.5016e-04_jprb,3.1504e-04_jprb,&
 & 2.6515e-04_jprb,1.8777e-04_jprb,6.3592e-04_jprb/)  
kao( :, 3, 5, 4) = (/&
 & 3.6116e-04_jprb,4.3121e-04_jprb,4.3815e-04_jprb,4.2535e-04_jprb,4.0138e-04_jprb,3.6428e-04_jprb,&
 & 3.0823e-04_jprb,2.2541e-04_jprb,6.8312e-04_jprb/)  
kao( :, 4, 5, 4) = (/&
 & 3.8955e-04_jprb,4.7734e-04_jprb,4.9105e-04_jprb,4.8184e-04_jprb,4.5822e-04_jprb,4.1678e-04_jprb,&
 & 3.5536e-04_jprb,2.6865e-04_jprb,7.5327e-04_jprb/)  
kao( :, 5, 5, 4) = (/&
 & 4.2054e-04_jprb,5.2915e-04_jprb,5.4965e-04_jprb,5.4417e-04_jprb,5.1930e-04_jprb,4.7415e-04_jprb,&
 & 4.0964e-04_jprb,3.1712e-04_jprb,8.4523e-04_jprb/)  
kao( :, 1, 6, 4) = (/&
 & 2.6945e-04_jprb,2.9554e-04_jprb,2.8676e-04_jprb,2.6850e-04_jprb,2.4490e-04_jprb,2.1445e-04_jprb,&
 & 1.7595e-04_jprb,1.2228e-04_jprb,9.0714e-04_jprb/)  
kao( :, 2, 6, 4) = (/&
 & 2.8703e-04_jprb,3.2438e-04_jprb,3.1923e-04_jprb,3.0362e-04_jprb,2.8005e-04_jprb,2.4944e-04_jprb,&
 & 2.0785e-04_jprb,1.4399e-04_jprb,9.1574e-04_jprb/)  
kao( :, 3, 6, 4) = (/&
 & 3.0826e-04_jprb,3.5756e-04_jprb,3.5816e-04_jprb,3.4447e-04_jprb,3.2155e-04_jprb,2.8951e-04_jprb,&
 & 2.4288e-04_jprb,1.7387e-04_jprb,9.4950e-04_jprb/)  
kao( :, 4, 6, 4) = (/&
 & 3.3280e-04_jprb,3.9668e-04_jprb,4.0334e-04_jprb,3.9114e-04_jprb,3.6863e-04_jprb,3.3278e-04_jprb,&
 & 2.8109e-04_jprb,2.0888e-04_jprb,1.0075e-03_jprb/)  
kao( :, 5, 6, 4) = (/&
 & 3.5966e-04_jprb,4.4146e-04_jprb,4.5343e-04_jprb,4.4331e-04_jprb,4.1953e-04_jprb,3.7997e-04_jprb,&
 & 3.2403e-04_jprb,2.4762e-04_jprb,1.0914e-03_jprb/)  
kao( :, 1, 7, 4) = (/&
 & 2.3611e-04_jprb,2.5013e-04_jprb,2.3826e-04_jprb,2.1972e-04_jprb,1.9747e-04_jprb,1.7091e-04_jprb,&
 & 1.3828e-04_jprb,9.7674e-05_jprb,1.5029e-03_jprb/)  
kao( :, 2, 7, 4) = (/&
 & 2.5027e-04_jprb,2.7295e-04_jprb,2.6351e-04_jprb,2.4730e-04_jprb,2.2544e-04_jprb,1.9811e-04_jprb,&
 & 1.6292e-04_jprb,1.1091e-04_jprb,1.4865e-03_jprb/)  
kao( :, 3, 7, 4) = (/&
 & 2.6744e-04_jprb,2.9951e-04_jprb,2.9483e-04_jprb,2.8048e-04_jprb,2.5858e-04_jprb,2.3043e-04_jprb,&
 & 1.9141e-04_jprb,1.3387e-04_jprb,1.5029e-03_jprb/)  
kao( :, 4, 7, 4) = (/&
 & 2.8737e-04_jprb,3.3140e-04_jprb,3.3216e-04_jprb,3.1861e-04_jprb,2.9712e-04_jprb,2.6612e-04_jprb,&
 & 2.2227e-04_jprb,1.6157e-04_jprb,1.5533e-03_jprb/)  
kao( :, 5, 7, 4) = (/&
 & 3.0980e-04_jprb,3.6893e-04_jprb,3.7432e-04_jprb,3.6173e-04_jprb,3.3923e-04_jprb,3.0465e-04_jprb,&
 & 2.5628e-04_jprb,1.9217e-04_jprb,1.6348e-03_jprb/)  
kao( :, 1, 8, 4) = (/&
 & 2.2652e-04_jprb,2.2848e-04_jprb,2.1284e-04_jprb,1.9191e-04_jprb,1.6879e-04_jprb,1.4336e-04_jprb,&
 & 1.1285e-04_jprb,7.9764e-05_jprb,3.0781e-03_jprb/)  
kao( :, 2, 8, 4) = (/&
 & 2.3707e-04_jprb,2.4545e-04_jprb,2.3111e-04_jprb,2.1207e-04_jprb,1.8962e-04_jprb,1.6330e-04_jprb,&
 & 1.3129e-04_jprb,8.8046e-05_jprb,3.0098e-03_jprb/)  
kao( :, 3, 8, 4) = (/&
 & 2.4991e-04_jprb,2.6528e-04_jprb,2.5454e-04_jprb,2.3750e-04_jprb,2.1491e-04_jprb,1.8797e-04_jprb,&
 & 1.5356e-04_jprb,1.0513e-04_jprb,2.9995e-03_jprb/)  
kao( :, 4, 8, 4) = (/&
 & 2.6517e-04_jprb,2.8955e-04_jprb,2.8339e-04_jprb,2.6733e-04_jprb,2.4488e-04_jprb,2.1619e-04_jprb,&
 & 1.7792e-04_jprb,1.2592e-04_jprb,3.0451e-03_jprb/)  
kao( :, 5, 8, 4) = (/&
 & 2.8248e-04_jprb,3.1914e-04_jprb,3.1724e-04_jprb,3.0164e-04_jprb,2.7867e-04_jprb,2.4743e-04_jprb,&
 & 2.0485e-04_jprb,1.4978e-04_jprb,3.1535e-03_jprb/)  
kao( :, 1, 9, 4) = (/&
 & 2.3338e-04_jprb,2.2637e-04_jprb,2.0631e-04_jprb,1.8248e-04_jprb,1.5663e-04_jprb,1.2940e-04_jprb,&
 & 9.8919e-05_jprb,6.6772e-05_jprb,1.1981e-02_jprb/)  
kao( :, 2, 9, 4) = (/&
 & 2.4198e-04_jprb,2.3910e-04_jprb,2.1989e-04_jprb,1.9677e-04_jprb,1.7190e-04_jprb,1.4401e-04_jprb,&
 & 1.1186e-04_jprb,7.2859e-05_jprb,1.1621e-02_jprb/)  
kao( :, 3, 9, 4) = (/&
 & 2.5171e-04_jprb,2.5396e-04_jprb,2.3686e-04_jprb,2.1562e-04_jprb,1.9038e-04_jprb,1.6141e-04_jprb,&
 & 1.2789e-04_jprb,8.4203e-05_jprb,1.1443e-02_jprb/)  
kao( :, 4, 9, 4) = (/&
 & 2.6331e-04_jprb,2.7176e-04_jprb,2.5835e-04_jprb,2.3792e-04_jprb,2.1195e-04_jprb,1.8205e-04_jprb,&
 & 1.4597e-04_jprb,9.9793e-05_jprb,1.1469e-02_jprb/)  
kao( :, 5, 9, 4) = (/&
 & 2.7657e-04_jprb,2.9387e-04_jprb,2.8372e-04_jprb,2.6346e-04_jprb,2.3692e-04_jprb,2.0548e-04_jprb,&
 & 1.6638e-04_jprb,1.1782e-04_jprb,1.1707e-02_jprb/)  
kao( :, 1,10, 4) = (/&
 & 2.4954e-04_jprb,2.3620e-04_jprb,2.1260e-04_jprb,1.8570e-04_jprb,1.5704e-04_jprb,1.2663e-04_jprb,&
 & 9.4550e-05_jprb,5.8858e-05_jprb,5.2756e-02_jprb/)  
kao( :, 2,10, 4) = (/&
 & 2.5766e-04_jprb,2.4800e-04_jprb,2.2452e-04_jprb,1.9756e-04_jprb,1.6882e-04_jprb,1.3823e-04_jprb,&
 & 1.0447e-04_jprb,6.4244e-05_jprb,5.0947e-02_jprb/)  
kao( :, 3,10, 4) = (/&
 & 2.6638e-04_jprb,2.6038e-04_jprb,2.3824e-04_jprb,2.1240e-04_jprb,1.8367e-04_jprb,1.5156e-04_jprb,&
 & 1.1609e-04_jprb,7.2825e-05_jprb,5.0037e-02_jprb/)  
kao( :, 4,10, 4) = (/&
 & 2.7598e-04_jprb,2.7501e-04_jprb,2.5538e-04_jprb,2.3010e-04_jprb,2.0028e-04_jprb,1.6662e-04_jprb,&
 & 1.2905e-04_jprb,8.4471e-05_jprb,5.0181e-02_jprb/)  
kao( :, 5,10, 4) = (/&
 & 2.8718e-04_jprb,2.9275e-04_jprb,2.7541e-04_jprb,2.4987e-04_jprb,2.1867e-04_jprb,1.8373e-04_jprb,&
 & 1.4422e-04_jprb,9.7498e-05_jprb,5.1335e-02_jprb/)  
kao( :, 1,11, 4) = (/&
 & 2.6411e-04_jprb,2.4710e-04_jprb,2.2075e-04_jprb,1.9143e-04_jprb,1.6059e-04_jprb,1.2809e-04_jprb,&
 & 9.4145e-05_jprb,5.5264e-05_jprb,7.9299e-02_jprb/)  
kao( :, 2,11, 4) = (/&
 & 2.7210e-04_jprb,2.5809e-04_jprb,2.3159e-04_jprb,2.0221e-04_jprb,1.7108e-04_jprb,1.3827e-04_jprb,&
 & 1.0265e-04_jprb,6.0771e-05_jprb,7.7122e-02_jprb/)  
kao( :, 3,11, 4) = (/&
 & 2.8014e-04_jprb,2.6895e-04_jprb,2.4355e-04_jprb,2.1491e-04_jprb,1.8365e-04_jprb,1.4942e-04_jprb,&
 & 1.1181e-04_jprb,6.9122e-05_jprb,7.6765e-02_jprb/)  
kao( :, 4,11, 4) = (/&
 & 2.8881e-04_jprb,2.8113e-04_jprb,2.5786e-04_jprb,2.2946e-04_jprb,1.9727e-04_jprb,1.6160e-04_jprb,&
 & 1.2257e-04_jprb,7.8465e-05_jprb,7.8124e-02_jprb/)  
kao( :, 5,11, 4) = (/&
 & 2.9828e-04_jprb,2.9581e-04_jprb,2.7411e-04_jprb,2.4589e-04_jprb,2.1291e-04_jprb,1.7587e-04_jprb,&
 & 1.3594e-04_jprb,8.9600e-05_jprb,8.1170e-02_jprb/)  
kao( :, 1,12, 4) = (/&
 & 2.5900e-04_jprb,2.4054e-04_jprb,2.1383e-04_jprb,1.8455e-04_jprb,1.5406e-04_jprb,1.2218e-04_jprb,&
 & 8.8914e-05_jprb,5.0392e-05_jprb,8.6490e-02_jprb/)  
kao( :, 2,12, 4) = (/&
 & 2.6587e-04_jprb,2.4971e-04_jprb,2.2287e-04_jprb,1.9390e-04_jprb,1.6307e-04_jprb,1.3059e-04_jprb,&
 & 9.5693e-05_jprb,5.6200e-05_jprb,8.4739e-02_jprb/)  
kao( :, 3,12, 4) = (/&
 & 2.7262e-04_jprb,2.5871e-04_jprb,2.3314e-04_jprb,2.0445e-04_jprb,1.7328e-04_jprb,1.3985e-04_jprb,&
 & 1.0369e-04_jprb,6.3281e-05_jprb,8.5196e-02_jprb/)  
kao( :, 4,12, 4) = (/&
 & 2.7987e-04_jprb,2.6889e-04_jprb,2.4524e-04_jprb,2.1669e-04_jprb,1.8519e-04_jprb,1.5064e-04_jprb,&
 & 1.1324e-04_jprb,7.1445e-05_jprb,8.7799e-02_jprb/)  
kao( :, 5,12, 4) = (/&
 & 2.8782e-04_jprb,2.8193e-04_jprb,2.5958e-04_jprb,2.3156e-04_jprb,1.9937e-04_jprb,1.6355e-04_jprb,&
 & 1.2524e-04_jprb,8.1256e-05_jprb,9.2236e-02_jprb/)  
kao( :, 1,13, 4) = (/&
 & 2.5778e-04_jprb,2.3735e-04_jprb,2.0980e-04_jprb,1.8003e-04_jprb,1.4941e-04_jprb,1.1772e-04_jprb,&
 & 8.4515e-05_jprb,4.7447e-05_jprb,7.6105e-02_jprb/)  
kao( :, 2,13, 4) = (/&
 & 2.6333e-04_jprb,2.4457e-04_jprb,2.1672e-04_jprb,1.8743e-04_jprb,1.5665e-04_jprb,1.2434e-04_jprb,&
 & 9.0194e-05_jprb,5.2576e-05_jprb,7.5229e-02_jprb/)  
kao( :, 3,13, 4) = (/&
 & 2.6832e-04_jprb,2.5148e-04_jprb,2.2532e-04_jprb,1.9639e-04_jprb,1.6531e-04_jprb,1.3247e-04_jprb,&
 & 9.7365e-05_jprb,5.8706e-05_jprb,7.6481e-02_jprb/)  
kao( :, 4,13, 4) = (/&
 & 2.7426e-04_jprb,2.6072e-04_jprb,2.3633e-04_jprb,2.0753e-04_jprb,1.7633e-04_jprb,1.4258e-04_jprb,&
 & 1.0613e-04_jprb,6.5878e-05_jprb,7.9777e-02_jprb/)  
kao( :, 5,13, 4) = (/&
 & 2.8141e-04_jprb,2.7288e-04_jprb,2.4996e-04_jprb,2.2169e-04_jprb,1.8986e-04_jprb,1.5488e-04_jprb,&
 & 1.1727e-04_jprb,7.4750e-05_jprb,8.4864e-02_jprb/)  
kao( :, 1, 1, 5) = (/&
 & 1.7137e-03_jprb,1.6965e-03_jprb,1.6056e-03_jprb,1.4623e-03_jprb,1.2864e-03_jprb,1.0870e-03_jprb,&
 & 8.6301e-04_jprb,6.0966e-04_jprb,4.4058e-04_jprb/)  
kao( :, 2, 1, 5) = (/&
 & 1.7704e-03_jprb,1.7874e-03_jprb,1.7001e-03_jprb,1.5551e-03_jprb,1.3819e-03_jprb,1.1838e-03_jprb,&
 & 9.5980e-04_jprb,7.0743e-04_jprb,5.5098e-04_jprb/)  
kao( :, 3, 1, 5) = (/&
 & 1.8247e-03_jprb,1.8784e-03_jprb,1.8001e-03_jprb,1.6592e-03_jprb,1.4952e-03_jprb,1.3012e-03_jprb,&
 & 1.0846e-03_jprb,8.2466e-04_jprb,6.8654e-04_jprb/)  
kao( :, 4, 1, 5) = (/&
 & 1.8807e-03_jprb,1.9750e-03_jprb,1.9078e-03_jprb,1.7834e-03_jprb,1.6310e-03_jprb,1.4483e-03_jprb,&
 & 1.2338e-03_jprb,9.6045e-04_jprb,8.5044e-04_jprb/)  
kao( :, 5, 1, 5) = (/&
 & 1.9386e-03_jprb,2.0802e-03_jprb,2.0314e-03_jprb,1.9311e-03_jprb,1.7973e-03_jprb,1.6224e-03_jprb,&
 & 1.4041e-03_jprb,1.1149e-03_jprb,1.0435e-03_jprb/)  
kao( :, 1, 2, 5) = (/&
 & 1.5019e-03_jprb,1.4891e-03_jprb,1.4050e-03_jprb,1.2791e-03_jprb,1.1249e-03_jprb,9.4471e-04_jprb,&
 & 7.4490e-04_jprb,5.1735e-04_jprb,4.2795e-04_jprb/)  
kao( :, 2, 2, 5) = (/&
 & 1.5481e-03_jprb,1.5670e-03_jprb,1.4869e-03_jprb,1.3627e-03_jprb,1.2086e-03_jprb,1.0310e-03_jprb,&
 & 8.2991e-04_jprb,6.0449e-04_jprb,5.2985e-04_jprb/)  
kao( :, 3, 2, 5) = (/&
 & 1.5955e-03_jprb,1.6464e-03_jprb,1.5764e-03_jprb,1.4549e-03_jprb,1.3083e-03_jprb,1.1370e-03_jprb,&
 & 9.3949e-04_jprb,7.0586e-04_jprb,6.5574e-04_jprb/)  
kao( :, 4, 2, 5) = (/&
 & 1.6449e-03_jprb,1.7318e-03_jprb,1.6759e-03_jprb,1.5663e-03_jprb,1.4318e-03_jprb,1.2693e-03_jprb,&
 & 1.0703e-03_jprb,8.2289e-04_jprb,8.0944e-04_jprb/)  
kao( :, 5, 2, 5) = (/&
 & 1.6963e-03_jprb,1.8275e-03_jprb,1.7899e-03_jprb,1.7018e-03_jprb,1.5826e-03_jprb,1.4255e-03_jprb,&
 & 1.2208e-03_jprb,9.5732e-04_jprb,9.9376e-04_jprb/)  
kao( :, 1, 3, 5) = (/&
 & 1.2946e-03_jprb,1.2789e-03_jprb,1.2021e-03_jprb,1.0905e-03_jprb,9.5582e-04_jprb,7.9856e-04_jprb,&
 & 6.2419e-04_jprb,4.2060e-04_jprb,4.8597e-04_jprb/)  
kao( :, 2, 3, 5) = (/&
 & 1.3334e-03_jprb,1.3450e-03_jprb,1.2700e-03_jprb,1.1621e-03_jprb,1.0260e-03_jprb,8.6938e-04_jprb,&
 & 6.9581e-04_jprb,4.9333e-04_jprb,5.8939e-04_jprb/)  
kao( :, 3, 3, 5) = (/&
 & 1.3735e-03_jprb,1.4122e-03_jprb,1.3468e-03_jprb,1.2420e-03_jprb,1.1098e-03_jprb,9.5952e-04_jprb,&
 & 7.8793e-04_jprb,5.7747e-04_jprb,7.1825e-04_jprb/)  
kao( :, 4, 3, 5) = (/&
 & 1.4149e-03_jprb,1.4860e-03_jprb,1.4348e-03_jprb,1.3382e-03_jprb,1.2156e-03_jprb,1.0728e-03_jprb,&
 & 8.9873e-04_jprb,6.7617e-04_jprb,8.7351e-04_jprb/)  
kao( :, 5, 3, 5) = (/&
 & 1.4592e-03_jprb,1.5699e-03_jprb,1.5381e-03_jprb,1.4563e-03_jprb,1.3459e-03_jprb,1.2082e-03_jprb,&
 & 1.0276e-03_jprb,7.9087e-04_jprb,1.0595e-03_jprb/)  
kao( :, 1, 4, 5) = (/&
 & 1.1144e-03_jprb,1.0934e-03_jprb,1.0240e-03_jprb,9.2287e-04_jprb,8.0421e-04_jprb,6.6808e-04_jprb,&
 & 5.1730e-04_jprb,3.3813e-04_jprb,6.1462e-04_jprb/)  
kao( :, 2, 4, 5) = (/&
 & 1.1469e-03_jprb,1.1488e-03_jprb,1.0800e-03_jprb,9.8253e-04_jprb,8.6268e-04_jprb,7.2497e-04_jprb,&
 & 5.7476e-04_jprb,3.9764e-04_jprb,7.1472e-04_jprb/)  
kao( :, 3, 4, 5) = (/&
 & 1.1797e-03_jprb,1.2067e-03_jprb,1.1428e-03_jprb,1.0501e-03_jprb,9.3226e-04_jprb,7.9746e-04_jprb,&
 & 6.5011e-04_jprb,4.6691e-04_jprb,8.5032e-04_jprb/)  
kao( :, 4, 4, 5) = (/&
 & 1.2139e-03_jprb,1.2682e-03_jprb,1.2174e-03_jprb,1.1319e-03_jprb,1.0196e-03_jprb,8.9229e-04_jprb,&
 & 7.4246e-04_jprb,5.4839e-04_jprb,1.0185e-03_jprb/)  
kao( :, 5, 4, 5) = (/&
 & 1.2525e-03_jprb,1.3386e-03_jprb,1.3069e-03_jprb,1.2320e-03_jprb,1.1286e-03_jprb,1.0072e-03_jprb,&
 & 8.5027e-04_jprb,6.4344e-04_jprb,1.2190e-03_jprb/)  
kao( :, 1, 5, 5) = (/&
 & 9.5403e-04_jprb,9.3019e-04_jprb,8.6917e-04_jprb,7.7882e-04_jprb,6.7397e-04_jprb,5.5681e-04_jprb,&
 & 4.2732e-04_jprb,2.7040e-04_jprb,8.4167e-04_jprb/)  
kao( :, 2, 5, 5) = (/&
 & 9.8163e-04_jprb,9.7748e-04_jprb,9.1548e-04_jprb,8.2676e-04_jprb,7.2236e-04_jprb,6.0295e-04_jprb,&
 & 4.7188e-04_jprb,3.1812e-04_jprb,9.2459e-04_jprb/)  
kao( :, 3, 5, 5) = (/&
 & 1.0087e-03_jprb,1.0268e-03_jprb,9.6743e-04_jprb,8.8361e-04_jprb,7.8023e-04_jprb,6.6112e-04_jprb,&
 & 5.3219e-04_jprb,3.7543e-04_jprb,1.0523e-03_jprb/)  

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


SUBROUTINE part4

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


kao( :, 4, 5, 5) = (/&
 & 1.0377e-03_jprb,1.0786e-03_jprb,1.0288e-03_jprb,9.5341e-04_jprb,8.5203e-04_jprb,7.3754e-04_jprb,&
 & 6.0792e-04_jprb,4.4270e-04_jprb,1.2261e-03_jprb/)  
kao( :, 5, 5, 5) = (/&
 & 1.0724e-03_jprb,1.1380e-03_jprb,1.1047e-03_jprb,1.0358e-03_jprb,9.4134e-04_jprb,8.3220e-04_jprb,&
 & 6.9728e-04_jprb,5.2081e-04_jprb,1.4470e-03_jprb/)  
kao( :, 1, 6, 5) = (/&
 & 8.0588e-04_jprb,7.8134e-04_jprb,7.2703e-04_jprb,6.4891e-04_jprb,5.5742e-04_jprb,4.5781e-04_jprb,&
 & 3.4857e-04_jprb,2.1150e-04_jprb,1.1955e-03_jprb/)  
kao( :, 2, 6, 5) = (/&
 & 8.2987e-04_jprb,8.2145e-04_jprb,7.6654e-04_jprb,6.8713e-04_jprb,5.9710e-04_jprb,4.9603e-04_jprb,&
 & 3.8344e-04_jprb,2.5028e-04_jprb,1.2644e-03_jprb/)  
kao( :, 3, 6, 5) = (/&
 & 8.5260e-04_jprb,8.6248e-04_jprb,8.0901e-04_jprb,7.3393e-04_jprb,6.4549e-04_jprb,5.4230e-04_jprb,&
 & 4.3028e-04_jprb,2.9597e-04_jprb,1.3809e-03_jprb/)  
kao( :, 4, 6, 5) = (/&
 & 8.7789e-04_jprb,9.0633e-04_jprb,8.5910e-04_jprb,7.9201e-04_jprb,7.0399e-04_jprb,6.0291e-04_jprb,&
 & 4.9056e-04_jprb,3.5045e-04_jprb,1.5502e-03_jprb/)  
kao( :, 5, 6, 5) = (/&
 & 9.0920e-04_jprb,9.5736e-04_jprb,9.2249e-04_jprb,8.6100e-04_jprb,7.7647e-04_jprb,6.7926e-04_jprb,&
 & 5.6406e-04_jprb,4.1413e-04_jprb,1.7775e-03_jprb/)  
kao( :, 1, 7, 5) = (/&
 & 6.7718e-04_jprb,6.5283e-04_jprb,6.0385e-04_jprb,5.3746e-04_jprb,4.5928e-04_jprb,3.7434e-04_jprb,&
 & 2.8222e-04_jprb,1.6381e-04_jprb,1.9446e-03_jprb/)  
kao( :, 2, 7, 5) = (/&
 & 6.9831e-04_jprb,6.8657e-04_jprb,6.3767e-04_jprb,5.6836e-04_jprb,4.9039e-04_jprb,4.0548e-04_jprb,&
 & 3.1038e-04_jprb,1.9535e-04_jprb,2.0007e-03_jprb/)  
kao( :, 3, 7, 5) = (/&
 & 7.1868e-04_jprb,7.2062e-04_jprb,6.7244e-04_jprb,6.0563e-04_jprb,5.3050e-04_jprb,4.4299e-04_jprb,&
 & 3.4588e-04_jprb,2.3206e-04_jprb,2.1166e-03_jprb/)  
kao( :, 4, 7, 5) = (/&
 & 7.4125e-04_jprb,7.5799e-04_jprb,7.1378e-04_jprb,6.5339e-04_jprb,5.7827e-04_jprb,4.9033e-04_jprb,&
 & 3.9327e-04_jprb,2.7533e-04_jprb,2.2963e-03_jprb/)  
kao( :, 5, 7, 5) = (/&
 & 7.6923e-04_jprb,8.0202e-04_jprb,7.6642e-04_jprb,7.1096e-04_jprb,6.3687e-04_jprb,5.5087e-04_jprb,&
 & 4.5258e-04_jprb,3.2683e-04_jprb,2.5393e-03_jprb/)  
kao( :, 1, 8, 5) = (/&
 & 5.7599e-04_jprb,5.5064e-04_jprb,5.0518e-04_jprb,4.4746e-04_jprb,3.8078e-04_jprb,3.0749e-04_jprb,&
 & 2.2925e-04_jprb,1.2727e-04_jprb,4.0446e-03_jprb/)  
kao( :, 2, 8, 5) = (/&
 & 5.9400e-04_jprb,5.7851e-04_jprb,5.3320e-04_jprb,4.7317e-04_jprb,4.0494e-04_jprb,3.3229e-04_jprb,&
 & 2.5224e-04_jprb,1.5307e-04_jprb,4.1120e-03_jprb/)  
kao( :, 3, 8, 5) = (/&
 & 6.1213e-04_jprb,6.0695e-04_jprb,5.6225e-04_jprb,5.0253e-04_jprb,4.3721e-04_jprb,3.6322e-04_jprb,&
 & 2.7965e-04_jprb,1.8169e-04_jprb,4.2811e-03_jprb/)  
kao( :, 4, 8, 5) = (/&
 & 6.3202e-04_jprb,6.3848e-04_jprb,5.9649e-04_jprb,5.4156e-04_jprb,4.7672e-04_jprb,4.0069e-04_jprb,&
 & 3.1617e-04_jprb,2.1644e-04_jprb,4.5447e-03_jprb/)  
kao( :, 5, 8, 5) = (/&
 & 6.5665e-04_jprb,6.7566e-04_jprb,6.4050e-04_jprb,5.8944e-04_jprb,5.2476e-04_jprb,4.4890e-04_jprb,&
 & 3.6328e-04_jprb,2.5754e-04_jprb,4.8900e-03_jprb/)  
kao( :, 1, 9, 5) = (/&
 & 5.0775e-04_jprb,4.7779e-04_jprb,4.3345e-04_jprb,3.8064e-04_jprb,3.2167e-04_jprb,2.5711e-04_jprb,&
 & 1.8824e-04_jprb,1.0074e-04_jprb,1.6194e-02_jprb/)  
kao( :, 2, 9, 5) = (/&
 & 5.2113e-04_jprb,4.9905e-04_jprb,4.5480e-04_jprb,4.0079e-04_jprb,3.3970e-04_jprb,2.7482e-04_jprb,&
 & 2.0609e-04_jprb,1.2012e-04_jprb,1.6408e-02_jprb/)  
kao( :, 3, 9, 5) = (/&
 & 5.3522e-04_jprb,5.2108e-04_jprb,4.7732e-04_jprb,4.2276e-04_jprb,3.6348e-04_jprb,2.9937e-04_jprb,&
 & 2.2764e-04_jprb,1.4255e-04_jprb,1.6992e-02_jprb/)  
kao( :, 4, 9, 5) = (/&
 & 5.5077e-04_jprb,5.4517e-04_jprb,5.0402e-04_jprb,4.5270e-04_jprb,3.9497e-04_jprb,3.2945e-04_jprb,&
 & 2.5566e-04_jprb,1.6981e-04_jprb,1.7864e-02_jprb/)  
kao( :, 5, 9, 5) = (/&
 & 5.6949e-04_jprb,5.7445e-04_jprb,5.3893e-04_jprb,4.9094e-04_jprb,4.3412e-04_jprb,3.6760e-04_jprb,&
 & 2.9217e-04_jprb,2.0252e-04_jprb,1.8952e-02_jprb/)  
kao( :, 1,10, 5) = (/&
 & 4.9717e-04_jprb,4.5696e-04_jprb,4.0763e-04_jprb,3.5309e-04_jprb,2.9433e-04_jprb,2.3192e-04_jprb,&
 & 1.6609e-04_jprb,8.8589e-05_jprb,7.4795e-02_jprb/)  
kao( :, 2,10, 5) = (/&
 & 5.0423e-04_jprb,4.7002e-04_jprb,4.2162e-04_jprb,3.6653e-04_jprb,3.0673e-04_jprb,2.4316e-04_jprb,&
 & 1.7817e-04_jprb,1.0118e-04_jprb,7.6452e-02_jprb/)  
kao( :, 3,10, 5) = (/&
 & 5.1212e-04_jprb,4.8431e-04_jprb,4.3650e-04_jprb,3.8161e-04_jprb,3.2242e-04_jprb,2.6059e-04_jprb,&
 & 1.9440e-04_jprb,1.1733e-04_jprb,7.9783e-02_jprb/)  
kao( :, 4,10, 5) = (/&
 & 5.2160e-04_jprb,5.0030e-04_jprb,4.5482e-04_jprb,4.0224e-04_jprb,3.4538e-04_jprb,2.8370e-04_jprb,&
 & 2.1573e-04_jprb,1.3763e-04_jprb,8.4425e-02_jprb/)  
kao( :, 5,10, 5) = (/&
 & 5.3403e-04_jprb,5.2047e-04_jprb,4.8022e-04_jprb,4.3074e-04_jprb,3.7548e-04_jprb,3.1365e-04_jprb,&
 & 2.4302e-04_jprb,1.6290e-04_jprb,8.9982e-02_jprb/)  
kao( :, 1,11, 5) = (/&
 & 5.0375e-04_jprb,4.5815e-04_jprb,4.0474e-04_jprb,3.4759e-04_jprb,2.8717e-04_jprb,2.2431e-04_jprb,&
 & 1.5880e-04_jprb,8.5670e-05_jprb,1.2034e-01_jprb/)  
kao( :, 2,11, 5) = (/&
 & 5.0787e-04_jprb,4.6747e-04_jprb,4.1520e-04_jprb,3.5802e-04_jprb,2.9753e-04_jprb,2.3416e-04_jprb,&
 & 1.6914e-04_jprb,9.5910e-05_jprb,1.2557e-01_jprb/)  
kao( :, 3,11, 5) = (/&
 & 5.1316e-04_jprb,4.7918e-04_jprb,4.2800e-04_jprb,3.7201e-04_jprb,3.1196e-04_jprb,2.4926e-04_jprb,&
 & 1.8340e-04_jprb,1.0921e-04_jprb,1.3355e-01_jprb/)  
kao( :, 4,11, 5) = (/&
 & 5.2086e-04_jprb,4.9333e-04_jprb,4.4531e-04_jprb,3.9163e-04_jprb,3.3267e-04_jprb,2.6993e-04_jprb,&
 & 2.0215e-04_jprb,1.2601e-04_jprb,1.4382e-01_jprb/)  
kao( :, 5,11, 5) = (/&
 & 5.3248e-04_jprb,5.1252e-04_jprb,4.7016e-04_jprb,4.1783e-04_jprb,3.5976e-04_jprb,2.9627e-04_jprb,&
 & 2.2508e-04_jprb,1.4674e-04_jprb,1.5553e-01_jprb/)  
kao( :, 1,12, 5) = (/&
 & 4.8240e-04_jprb,4.3715e-04_jprb,3.8420e-04_jprb,3.2860e-04_jprb,2.7039e-04_jprb,2.1019e-04_jprb,&
 & 1.4796e-04_jprb,8.0464e-05_jprb,1.3884e-01_jprb/)  
kao( :, 2,12, 5) = (/&
 & 4.8661e-04_jprb,4.4595e-04_jprb,3.9410e-04_jprb,3.3838e-04_jprb,2.8030e-04_jprb,2.1996e-04_jprb,&
 & 1.5763e-04_jprb,8.9327e-05_jprb,1.4656e-01_jprb/)  
kao( :, 3,12, 5) = (/&
 & 4.9262e-04_jprb,4.5710e-04_jprb,4.0631e-04_jprb,3.5229e-04_jprb,2.9463e-04_jprb,2.3404e-04_jprb,&
 & 1.7076e-04_jprb,1.0107e-04_jprb,1.5747e-01_jprb/)  
kao( :, 4,12, 5) = (/&
 & 5.0100e-04_jprb,4.7173e-04_jprb,4.2405e-04_jprb,3.7163e-04_jprb,3.1400e-04_jprb,2.5322e-04_jprb,&
 & 1.8793e-04_jprb,1.1578e-04_jprb,1.7108e-01_jprb/)  
kao( :, 5,12, 5) = (/&
 & 5.1336e-04_jprb,4.9148e-04_jprb,4.4858e-04_jprb,3.9659e-04_jprb,3.3958e-04_jprb,2.7759e-04_jprb,&
 & 2.0885e-04_jprb,1.3367e-04_jprb,1.8676e-01_jprb/)  
kao( :, 1,13, 5) = (/&
 & 4.6582e-04_jprb,4.2090e-04_jprb,3.6844e-04_jprb,3.1420e-04_jprb,2.5774e-04_jprb,1.9961e-04_jprb,&
 & 1.4017e-04_jprb,7.6735e-05_jprb,1.3087e-01_jprb/)  
kao( :, 2,13, 5) = (/&
 & 4.7086e-04_jprb,4.2959e-04_jprb,3.7847e-04_jprb,3.2415e-04_jprb,2.6787e-04_jprb,2.0968e-04_jprb,&
 & 1.4924e-04_jprb,8.4911e-05_jprb,1.3959e-01_jprb/)  
kao( :, 3,13, 5) = (/&
 & 4.7837e-04_jprb,4.4165e-04_jprb,3.9141e-04_jprb,3.3849e-04_jprb,2.8244e-04_jprb,2.2337e-04_jprb,&
 & 1.6172e-04_jprb,9.5329e-05_jprb,1.5133e-01_jprb/)  
kao( :, 4,13, 5) = (/&
 & 4.8890e-04_jprb,4.5706e-04_jprb,4.0967e-04_jprb,3.5806e-04_jprb,3.0129e-04_jprb,2.4154e-04_jprb,&
 & 1.7785e-04_jprb,1.0830e-04_jprb,1.6573e-01_jprb/)  
kao( :, 5,13, 5) = (/&
 & 5.0378e-04_jprb,4.7838e-04_jprb,4.3426e-04_jprb,3.8267e-04_jprb,3.2585e-04_jprb,2.6428e-04_jprb,&
 & 1.9742e-04_jprb,1.2409e-04_jprb,1.8212e-01_jprb/)  
kao( :, 1, 1, 6) = (/&
 & 3.2508e-03_jprb,2.9778e-03_jprb,2.7444e-03_jprb,2.4732e-03_jprb,2.1617e-03_jprb,1.8050e-03_jprb,&
 & 1.4116e-03_jprb,9.5646e-04_jprb,7.5194e-04_jprb/)  
kao( :, 2, 1, 6) = (/&
 & 3.2951e-03_jprb,3.0775e-03_jprb,2.8725e-03_jprb,2.6161e-03_jprb,2.3021e-03_jprb,1.9458e-03_jprb,&
 & 1.5643e-03_jprb,1.1089e-03_jprb,9.5011e-04_jprb/)  
kao( :, 3, 1, 6) = (/&
 & 3.3739e-03_jprb,3.2201e-03_jprb,3.0329e-03_jprb,2.7889e-03_jprb,2.4684e-03_jprb,2.1285e-03_jprb,&
 & 1.7492e-03_jprb,1.2948e-03_jprb,1.1897e-03_jprb/)  
kao( :, 4, 1, 6) = (/&
 & 3.4775e-03_jprb,3.3896e-03_jprb,3.2288e-03_jprb,2.9832e-03_jprb,2.6770e-03_jprb,2.3508e-03_jprb,&
 & 1.9685e-03_jprb,1.5165e-03_jprb,1.4693e-03_jprb/)  
kao( :, 5, 1, 6) = (/&
 & 3.6048e-03_jprb,3.5835e-03_jprb,3.4508e-03_jprb,3.2113e-03_jprb,2.9250e-03_jprb,2.6127e-03_jprb,&
 & 2.2307e-03_jprb,1.7682e-03_jprb,1.7887e-03_jprb/)  
kao( :, 1, 2, 6) = (/&
 & 2.9479e-03_jprb,2.7010e-03_jprb,2.4920e-03_jprb,2.2328e-03_jprb,1.9390e-03_jprb,1.6094e-03_jprb,&
 & 1.2398e-03_jprb,8.2486e-04_jprb,7.2631e-04_jprb/)  
kao( :, 2, 2, 6) = (/&
 & 2.9968e-03_jprb,2.8020e-03_jprb,2.6127e-03_jprb,2.3636e-03_jprb,2.0690e-03_jprb,1.7351e-03_jprb,&
 & 1.3731e-03_jprb,9.5550e-04_jprb,9.1418e-04_jprb/)  
kao( :, 3, 2, 6) = (/&
 & 3.0736e-03_jprb,2.9425e-03_jprb,2.7649e-03_jprb,2.5241e-03_jprb,2.2257e-03_jprb,1.8987e-03_jprb,&
 & 1.5376e-03_jprb,1.1187e-03_jprb,1.1471e-03_jprb/)  
kao( :, 4, 2, 6) = (/&
 & 3.1728e-03_jprb,3.1058e-03_jprb,2.9466e-03_jprb,2.7114e-03_jprb,2.4176e-03_jprb,2.0996e-03_jprb,&
 & 1.7359e-03_jprb,1.3160e-03_jprb,1.4227e-03_jprb/)  
kao( :, 5, 2, 6) = (/&
 & 3.2938e-03_jprb,3.2890e-03_jprb,3.1552e-03_jprb,2.9263e-03_jprb,2.6481e-03_jprb,2.3331e-03_jprb,&
 & 1.9715e-03_jprb,1.5406e-03_jprb,1.7422e-03_jprb/)  
kao( :, 1, 3, 6) = (/&
 & 2.6363e-03_jprb,2.4111e-03_jprb,2.2160e-03_jprb,1.9706e-03_jprb,1.6942e-03_jprb,1.3925e-03_jprb,&
 & 1.0560e-03_jprb,6.8807e-04_jprb,8.1595e-04_jprb/)  
kao( :, 2, 3, 6) = (/&
 & 2.6810e-03_jprb,2.5033e-03_jprb,2.3265e-03_jprb,2.0848e-03_jprb,1.8107e-03_jprb,1.5037e-03_jprb,&
 & 1.1662e-03_jprb,7.9613e-04_jprb,9.9881e-04_jprb/)  
kao( :, 3, 3, 6) = (/&
 & 2.7498e-03_jprb,2.6291e-03_jprb,2.4618e-03_jprb,2.2271e-03_jprb,1.9564e-03_jprb,1.6455e-03_jprb,&
 & 1.3062e-03_jprb,9.3309e-04_jprb,1.2299e-03_jprb/)  
kao( :, 4, 3, 6) = (/&
 & 2.8378e-03_jprb,2.7765e-03_jprb,2.6213e-03_jprb,2.3981e-03_jprb,2.1275e-03_jprb,1.8208e-03_jprb,&
 & 1.4785e-03_jprb,1.0978e-03_jprb,1.5182e-03_jprb/)  
kao( :, 5, 3, 6) = (/&
 & 2.9436e-03_jprb,2.9446e-03_jprb,2.8064e-03_jprb,2.5984e-03_jprb,2.3329e-03_jprb,2.0260e-03_jprb,&
 & 1.6822e-03_jprb,1.2888e-03_jprb,1.8654e-03_jprb/)  
kao( :, 1, 4, 6) = (/&
 & 2.3305e-03_jprb,2.1270e-03_jprb,1.9394e-03_jprb,1.7178e-03_jprb,1.4629e-03_jprb,1.1886e-03_jprb,&
 & 8.9024e-04_jprb,5.6452e-04_jprb,1.0437e-03_jprb/)  
kao( :, 2, 4, 6) = (/&
 & 2.3711e-03_jprb,2.2090e-03_jprb,2.0410e-03_jprb,1.8166e-03_jprb,1.5629e-03_jprb,1.2867e-03_jprb,&
 & 9.8103e-04_jprb,6.5250e-04_jprb,1.2371e-03_jprb/)  
kao( :, 3, 4, 6) = (/&
 & 2.4284e-03_jprb,2.3161e-03_jprb,2.1600e-03_jprb,1.9393e-03_jprb,1.6907e-03_jprb,1.4107e-03_jprb,&
 & 1.0981e-03_jprb,7.6618e-04_jprb,1.4857e-03_jprb/)  
kao( :, 4, 4, 6) = (/&
 & 2.5037e-03_jprb,2.4445e-03_jprb,2.2974e-03_jprb,2.0880e-03_jprb,1.8467e-03_jprb,1.5615e-03_jprb,&
 & 1.2436e-03_jprb,9.0463e-04_jprb,1.7998e-03_jprb/)  
kao( :, 5, 4, 6) = (/&
 & 2.5974e-03_jprb,2.5927e-03_jprb,2.4566e-03_jprb,2.2651e-03_jprb,2.0287e-03_jprb,1.7391e-03_jprb,&
 & 1.4181e-03_jprb,1.0646e-03_jprb,2.1898e-03_jprb/)  
kao( :, 1, 5, 6) = (/&
 & 2.0361e-03_jprb,1.8547e-03_jprb,1.6766e-03_jprb,1.4795e-03_jprb,1.2501e-03_jprb,1.0047e-03_jprb,&
 & 7.4302e-04_jprb,4.6057e-04_jprb,1.3928e-03_jprb/)  
kao( :, 2, 5, 6) = (/&
 & 2.0694e-03_jprb,1.9228e-03_jprb,1.7645e-03_jprb,1.5634e-03_jprb,1.3341e-03_jprb,1.0877e-03_jprb,&
 & 8.2111e-04_jprb,5.3228e-04_jprb,1.6120e-03_jprb/)  
kao( :, 3, 5, 6) = (/&
 & 2.1184e-03_jprb,2.0120e-03_jprb,1.8652e-03_jprb,1.6659e-03_jprb,1.4419e-03_jprb,1.1971e-03_jprb,&
 & 9.1972e-04_jprb,6.2395e-04_jprb,1.9022e-03_jprb/)  
kao( :, 4, 5, 6) = (/&
 & 2.1844e-03_jprb,2.1219e-03_jprb,1.9833e-03_jprb,1.7902e-03_jprb,1.5765e-03_jprb,1.3280e-03_jprb,&
 & 1.0415e-03_jprb,7.3888e-04_jprb,2.2685e-03_jprb/)  
kao( :, 5, 5, 6) = (/&
 & 2.2663e-03_jprb,2.2517e-03_jprb,2.1217e-03_jprb,1.9449e-03_jprb,1.7373e-03_jprb,1.4799e-03_jprb,&
 & 1.1890e-03_jprb,8.7483e-04_jprb,2.7203e-03_jprb/)  
kao( :, 1, 6, 6) = (/&
 & 1.7550e-03_jprb,1.5950e-03_jprb,1.4324e-03_jprb,1.2563e-03_jprb,1.0568e-03_jprb,8.4088e-04_jprb,&
 & 6.1343e-04_jprb,3.7218e-04_jprb,1.8822e-03_jprb/)  
kao( :, 2, 6, 6) = (/&
 & 1.7806e-03_jprb,1.6483e-03_jprb,1.5014e-03_jprb,1.3260e-03_jprb,1.1237e-03_jprb,9.0650e-04_jprb,&
 & 6.7793e-04_jprb,4.3012e-04_jprb,2.1151e-03_jprb/)  
kao( :, 3, 6, 6) = (/&
 & 1.8227e-03_jprb,1.7227e-03_jprb,1.5844e-03_jprb,1.4081e-03_jprb,1.2080e-03_jprb,9.9575e-04_jprb,&
 & 7.6012e-04_jprb,5.0351e-04_jprb,2.4397e-03_jprb/)  
kao( :, 4, 6, 6) = (/&
 & 1.8792e-03_jprb,1.8150e-03_jprb,1.6849e-03_jprb,1.5100e-03_jprb,1.3192e-03_jprb,1.1065e-03_jprb,&
 & 8.6119e-04_jprb,5.9588e-04_jprb,2.8694e-03_jprb/)  
kao( :, 5, 6, 6) = (/&
 & 1.9487e-03_jprb,1.9242e-03_jprb,1.8033e-03_jprb,1.6413e-03_jprb,1.4558e-03_jprb,1.2357e-03_jprb,&
 & 9.8340e-04_jprb,7.0882e-04_jprb,3.4091e-03_jprb/)  
kao( :, 1, 7, 6) = (/&
 & 1.4965e-03_jprb,1.3571e-03_jprb,1.2126e-03_jprb,1.0566e-03_jprb,8.8614e-04_jprb,7.0122e-04_jprb,&
 & 5.0618e-04_jprb,3.0014e-04_jprb,2.8627e-03_jprb/)  
kao( :, 2, 7, 6) = (/&
 & 1.5173e-03_jprb,1.3996e-03_jprb,1.2672e-03_jprb,1.1141e-03_jprb,9.3989e-04_jprb,7.5155e-04_jprb,&
 & 5.5619e-04_jprb,3.4628e-04_jprb,3.1242e-03_jprb/)  
kao( :, 3, 7, 6) = (/&
 & 1.5535e-03_jprb,1.4627e-03_jprb,1.3365e-03_jprb,1.1831e-03_jprb,1.0064e-03_jprb,8.2131e-04_jprb,&
 & 6.2417e-04_jprb,4.0465e-04_jprb,3.4941e-03_jprb/)  
kao( :, 4, 7, 6) = (/&
 & 1.6022e-03_jprb,1.5406e-03_jprb,1.4217e-03_jprb,1.2670e-03_jprb,1.0965e-03_jprb,9.1271e-04_jprb,&
 & 7.0644e-04_jprb,4.7877e-04_jprb,3.9901e-03_jprb/)  
kao( :, 5, 7, 6) = (/&
 & 1.6619e-03_jprb,1.6316e-03_jprb,1.5215e-03_jprb,1.3760e-03_jprb,1.2105e-03_jprb,1.0220e-03_jprb,&
 & 8.0646e-04_jprb,5.7116e-04_jprb,4.6499e-03_jprb/)  
kao( :, 1, 8, 6) = (/&
 & 1.2713e-03_jprb,1.1506e-03_jprb,1.0229e-03_jprb,8.8637e-04_jprb,7.3985e-04_jprb,5.8404e-04_jprb,&
 & 4.1869e-04_jprb,2.4146e-04_jprb,5.8577e-03_jprb/)  
kao( :, 2, 8, 6) = (/&
 & 1.2886e-03_jprb,1.1855e-03_jprb,1.0667e-03_jprb,9.3200e-04_jprb,7.8398e-04_jprb,6.2296e-04_jprb,&
 & 4.5565e-04_jprb,2.7881e-04_jprb,6.2369e-03_jprb/)  
kao( :, 3, 8, 6) = (/&
 & 1.3186e-03_jprb,1.2381e-03_jprb,1.1243e-03_jprb,9.9079e-04_jprb,8.3814e-04_jprb,6.7723e-04_jprb,&
 & 5.1049e-04_jprb,3.2546e-04_jprb,6.7543e-03_jprb/)  
kao( :, 4, 8, 6) = (/&
 & 1.3600e-03_jprb,1.3028e-03_jprb,1.1954e-03_jprb,1.0612e-03_jprb,9.1150e-04_jprb,7.5260e-04_jprb,&
 & 5.7914e-04_jprb,3.8472e-04_jprb,7.4388e-03_jprb/)  
kao( :, 5, 8, 6) = (/&
 & 1.4121e-03_jprb,1.3805e-03_jprb,1.2804e-03_jprb,1.1524e-03_jprb,1.0064e-03_jprb,8.4434e-04_jprb,&
 & 6.6144e-04_jprb,4.5882e-04_jprb,8.3420e-03_jprb/)  
kao( :, 1, 9, 6) = (/&
 & 1.0717e-03_jprb,9.6880e-04_jprb,8.5692e-04_jprb,7.3841e-04_jprb,6.1349e-04_jprb,4.8265e-04_jprb,&
 & 3.4488e-04_jprb,1.9332e-04_jprb,2.4273e-02_jprb/)  
kao( :, 2, 9, 6) = (/&
 & 1.0856e-03_jprb,9.9623e-04_jprb,8.9079e-04_jprb,7.7337e-04_jprb,6.4809e-04_jprb,5.1388e-04_jprb,&
 & 3.7203e-04_jprb,2.2290e-04_jprb,2.5642e-02_jprb/)  
kao( :, 3, 9, 6) = (/&
 & 1.1096e-03_jprb,1.0377e-03_jprb,9.3686e-04_jprb,8.2124e-04_jprb,6.9314e-04_jprb,5.5575e-04_jprb,&
 & 4.1434e-04_jprb,2.5972e-04_jprb,2.7416e-02_jprb/)  
kao( :, 4, 9, 6) = (/&
 & 1.1443e-03_jprb,1.0913e-03_jprb,9.9449e-04_jprb,8.7964e-04_jprb,7.5151e-04_jprb,6.1540e-04_jprb,&
 & 4.6972e-04_jprb,3.0675e-04_jprb,2.9667e-02_jprb/)  
kao( :, 5, 9, 6) = (/&
 & 1.1902e-03_jprb,1.1571e-03_jprb,1.0659e-03_jprb,9.5531e-04_jprb,8.2901e-04_jprb,6.9019e-04_jprb,&
 & 5.3796e-04_jprb,3.6567e-04_jprb,3.2492e-02_jprb/)  
kao( :, 1,10, 6) = (/&
 & 9.1682e-04_jprb,8.2727e-04_jprb,7.2786e-04_jprb,6.2407e-04_jprb,5.1616e-04_jprb,4.0448e-04_jprb,&
 & 2.8759e-04_jprb,1.5707e-04_jprb,1.2096e-01_jprb/)  
kao( :, 2,10, 6) = (/&
 & 9.2807e-04_jprb,8.4772e-04_jprb,7.5273e-04_jprb,6.4976e-04_jprb,5.4191e-04_jprb,4.2868e-04_jprb,&
 & 3.0799e-04_jprb,1.8018e-04_jprb,1.2769e-01_jprb/)  
kao( :, 3,10, 6) = (/&
 & 9.4733e-04_jprb,8.8010e-04_jprb,7.8844e-04_jprb,6.8649e-04_jprb,5.7756e-04_jprb,4.6108e-04_jprb,&
 & 3.3990e-04_jprb,2.0965e-04_jprb,1.3587e-01_jprb/)  
kao( :, 4,10, 6) = (/&
 & 9.7616e-04_jprb,9.2298e-04_jprb,8.3457e-04_jprb,7.3405e-04_jprb,6.2454e-04_jprb,5.0775e-04_jprb,&
 & 3.8366e-04_jprb,2.4715e-04_jprb,1.4598e-01_jprb/)  
kao( :, 5,10, 6) = (/&
 & 1.0147e-03_jprb,9.7749e-04_jprb,8.9296e-04_jprb,7.9678e-04_jprb,6.8754e-04_jprb,5.6799e-04_jprb,&
 & 4.3982e-04_jprb,2.9475e-04_jprb,1.5853e-01_jprb/)  
kao( :, 1,11, 6) = (/&
 & 8.5061e-04_jprb,7.6545e-04_jprb,6.7209e-04_jprb,5.7435e-04_jprb,4.7342e-04_jprb,3.6961e-04_jprb,&
 & 2.6119e-04_jprb,1.4392e-04_jprb,2.1829e-01_jprb/)  
kao( :, 2,11, 6) = (/&
 & 8.6223e-04_jprb,7.8453e-04_jprb,6.9368e-04_jprb,5.9640e-04_jprb,4.9523e-04_jprb,3.8977e-04_jprb,&
 & 2.7888e-04_jprb,1.6251e-04_jprb,2.3198e-01_jprb/)  
kao( :, 3,11, 6) = (/&
 & 8.8180e-04_jprb,8.1321e-04_jprb,7.2410e-04_jprb,6.2697e-04_jprb,5.2544e-04_jprb,4.1867e-04_jprb,&
 & 3.0656e-04_jprb,1.8726e-04_jprb,2.4754e-01_jprb/)  
kao( :, 4,11, 6) = (/&
 & 9.0901e-04_jprb,8.5074e-04_jprb,7.6319e-04_jprb,6.6771e-04_jprb,5.6719e-04_jprb,4.5846e-04_jprb,&
 & 3.4374e-04_jprb,2.1942e-04_jprb,2.6580e-01_jprb/)  
kao( :, 5,11, 6) = (/&
 & 9.4336e-04_jprb,8.9780e-04_jprb,8.1395e-04_jprb,7.2298e-04_jprb,6.2010e-04_jprb,5.0948e-04_jprb,&
 & 3.9195e-04_jprb,2.5983e-04_jprb,2.8833e-01_jprb/)  

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


SUBROUTINE part5

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


kao( :, 1,12, 6) = (/&
 & 8.0200e-04_jprb,7.2122e-04_jprb,6.3265e-04_jprb,5.3924e-04_jprb,4.4340e-04_jprb,3.4532e-04_jprb,&
 & 2.4304e-04_jprb,1.3437e-04_jprb,2.6966e-01_jprb/)  
kao( :, 2,12, 6) = (/&
 & 8.1599e-04_jprb,7.4215e-04_jprb,6.5450e-04_jprb,5.6136e-04_jprb,4.6493e-04_jprb,3.6523e-04_jprb,&
 & 2.6103e-04_jprb,1.5096e-04_jprb,2.8948e-01_jprb/)  
kao( :, 3,12, 6) = (/&
 & 8.3783e-04_jprb,7.7160e-04_jprb,6.8467e-04_jprb,5.9130e-04_jprb,4.9479e-04_jprb,3.9390e-04_jprb,&
 & 2.8643e-04_jprb,1.7267e-04_jprb,3.1014e-01_jprb/)  
kao( :, 4,12, 6) = (/&
 & 8.6812e-04_jprb,8.0949e-04_jprb,7.2339e-04_jprb,6.3152e-04_jprb,5.3506e-04_jprb,4.2989e-04_jprb,&
 & 3.1937e-04_jprb,2.0004e-04_jprb,3.3406e-01_jprb/)  
kao( :, 5,12, 6) = (/&
 & 9.0435e-04_jprb,8.5462e-04_jprb,7.7208e-04_jprb,6.8293e-04_jprb,5.8297e-04_jprb,4.7540e-04_jprb,&
 & 3.6088e-04_jprb,2.3381e-04_jprb,3.6313e-01_jprb/)  
kao( :, 1,13, 6) = (/&
 & 7.8053e-04_jprb,7.0155e-04_jprb,6.1461e-04_jprb,5.2266e-04_jprb,4.2870e-04_jprb,3.3288e-04_jprb,&
 & 2.3333e-04_jprb,1.2902e-04_jprb,2.6881e-01_jprb/)  
kao( :, 2,13, 6) = (/&
 & 7.9882e-04_jprb,7.2653e-04_jprb,6.3912e-04_jprb,5.4681e-04_jprb,4.5162e-04_jprb,3.5376e-04_jprb,&
 & 2.5204e-04_jprb,1.4416e-04_jprb,2.9113e-01_jprb/)  
kao( :, 3,13, 6) = (/&
 & 8.2403e-04_jprb,7.5779e-04_jprb,6.7018e-04_jprb,5.7745e-04_jprb,4.8198e-04_jprb,3.8252e-04_jprb,&
 & 2.7644e-04_jprb,1.6449e-04_jprb,3.1399e-01_jprb/)  
kao( :, 4,13, 6) = (/&
 & 8.5594e-04_jprb,7.9631e-04_jprb,7.0954e-04_jprb,6.1806e-04_jprb,5.2193e-04_jprb,4.1790e-04_jprb,&
 & 3.0801e-04_jprb,1.8991e-04_jprb,3.3908e-01_jprb/)  
kao( :, 5,13, 6) = (/&
 & 8.9284e-04_jprb,8.4070e-04_jprb,7.5811e-04_jprb,6.6820e-04_jprb,5.6955e-04_jprb,4.6197e-04_jprb,&
 & 3.4688e-04_jprb,2.2019e-04_jprb,3.6894e-01_jprb/)  
kao( :, 1, 1, 7) = (/&
 & 6.0831e-03_jprb,5.4716e-03_jprb,4.8761e-03_jprb,4.3169e-03_jprb,3.7156e-03_jprb,3.0689e-03_jprb,&
 & 2.3667e-03_jprb,1.5757e-03_jprb,1.3430e-03_jprb/)  
kao( :, 2, 1, 7) = (/&
 & 6.2160e-03_jprb,5.6592e-03_jprb,5.1333e-03_jprb,4.5937e-03_jprb,3.9991e-03_jprb,3.3587e-03_jprb,&
 & 2.6257e-03_jprb,1.8103e-03_jprb,1.6552e-03_jprb/)  
kao( :, 3, 1, 7) = (/&
 & 6.3763e-03_jprb,5.8806e-03_jprb,5.4307e-03_jprb,4.8990e-03_jprb,4.3331e-03_jprb,3.6723e-03_jprb,&
 & 2.9252e-03_jprb,2.0812e-03_jprb,2.0370e-03_jprb/)  
kao( :, 4, 1, 7) = (/&
 & 6.5762e-03_jprb,6.1595e-03_jprb,5.7556e-03_jprb,5.2564e-03_jprb,4.6989e-03_jprb,4.0150e-03_jprb,&
 & 3.2758e-03_jprb,2.3980e-03_jprb,2.4986e-03_jprb/)  
kao( :, 5, 1, 7) = (/&
 & 6.8177e-03_jprb,6.4963e-03_jprb,6.1231e-03_jprb,5.6619e-03_jprb,5.0935e-03_jprb,4.4057e-03_jprb,&
 & 3.6750e-03_jprb,2.7782e-03_jprb,3.0517e-03_jprb/)  
kao( :, 1, 2, 7) = (/&
 & 5.5406e-03_jprb,4.9770e-03_jprb,4.4333e-03_jprb,3.9291e-03_jprb,3.3714e-03_jprb,2.7757e-03_jprb,&
 & 2.1410e-03_jprb,1.4066e-03_jprb,1.3940e-03_jprb/)  
kao( :, 2, 2, 7) = (/&
 & 5.6795e-03_jprb,5.1605e-03_jprb,4.6810e-03_jprb,4.1841e-03_jprb,3.6317e-03_jprb,3.0411e-03_jprb,&
 & 2.3785e-03_jprb,1.6219e-03_jprb,1.7125e-03_jprb/)  
kao( :, 3, 2, 7) = (/&
 & 5.8479e-03_jprb,5.3775e-03_jprb,4.9639e-03_jprb,4.4697e-03_jprb,3.9362e-03_jprb,3.3371e-03_jprb,&
 & 2.6519e-03_jprb,1.8755e-03_jprb,2.0935e-03_jprb/)  
kao( :, 4, 2, 7) = (/&
 & 6.0553e-03_jprb,5.6506e-03_jprb,5.2744e-03_jprb,4.7999e-03_jprb,4.2764e-03_jprb,3.6617e-03_jprb,&
 & 2.9719e-03_jprb,2.1746e-03_jprb,2.5431e-03_jprb/)  
kao( :, 5, 2, 7) = (/&
 & 6.2994e-03_jprb,5.9802e-03_jprb,5.6290e-03_jprb,5.1787e-03_jprb,4.6510e-03_jprb,4.0342e-03_jprb,&
 & 3.3435e-03_jprb,2.5279e-03_jprb,3.0760e-03_jprb/)  
kao( :, 1, 3, 7) = (/&
 & 4.9647e-03_jprb,4.4497e-03_jprb,3.9602e-03_jprb,3.5016e-03_jprb,2.9975e-03_jprb,2.4522e-03_jprb,&
 & 1.8688e-03_jprb,1.2052e-03_jprb,1.6686e-03_jprb/)  
kao( :, 2, 3, 7) = (/&
 & 5.0999e-03_jprb,4.6210e-03_jprb,4.1813e-03_jprb,3.7355e-03_jprb,3.2261e-03_jprb,2.6792e-03_jprb,&
 & 2.0838e-03_jprb,1.3908e-03_jprb,2.0388e-03_jprb/)  
kao( :, 3, 3, 7) = (/&
 & 5.2679e-03_jprb,4.8293e-03_jprb,4.4423e-03_jprb,3.9951e-03_jprb,3.4860e-03_jprb,2.9419e-03_jprb,&
 & 2.3248e-03_jprb,1.6141e-03_jprb,2.4914e-03_jprb/)  
kao( :, 4, 3, 7) = (/&
 & 5.4762e-03_jprb,5.0914e-03_jprb,4.7365e-03_jprb,4.2903e-03_jprb,3.7907e-03_jprb,3.2409e-03_jprb,&
 & 2.6074e-03_jprb,1.8823e-03_jprb,3.0282e-03_jprb/)  
kao( :, 5, 3, 7) = (/&
 & 5.7173e-03_jprb,5.4006e-03_jprb,5.0668e-03_jprb,4.6277e-03_jprb,4.1360e-03_jprb,3.5816e-03_jprb,&
 & 2.9410e-03_jprb,2.2019e-03_jprb,3.6468e-03_jprb/)  
kao( :, 1, 4, 7) = (/&
 & 4.4058e-03_jprb,3.9416e-03_jprb,3.5104e-03_jprb,3.0879e-03_jprb,2.6418e-03_jprb,2.1472e-03_jprb,&
 & 1.6100e-03_jprb,1.0192e-03_jprb,2.1860e-03_jprb/)  
kao( :, 2, 4, 7) = (/&
 & 4.5309e-03_jprb,4.0974e-03_jprb,3.7008e-03_jprb,3.2995e-03_jprb,2.8437e-03_jprb,2.3378e-03_jprb,&
 & 1.7928e-03_jprb,1.1728e-03_jprb,2.6265e-03_jprb/)  
kao( :, 3, 4, 7) = (/&
 & 4.6961e-03_jprb,4.2954e-03_jprb,3.9392e-03_jprb,3.5397e-03_jprb,3.0713e-03_jprb,2.5630e-03_jprb,&
 & 2.0061e-03_jprb,1.3611e-03_jprb,3.1721e-03_jprb/)  
kao( :, 4, 4, 7) = (/&
 & 4.8988e-03_jprb,4.5465e-03_jprb,4.2146e-03_jprb,3.8097e-03_jprb,3.3355e-03_jprb,2.8256e-03_jprb,&
 & 2.2535e-03_jprb,1.5915e-03_jprb,3.8341e-03_jprb/)  
kao( :, 5, 4, 7) = (/&
 & 5.1310e-03_jprb,4.8388e-03_jprb,4.5280e-03_jprb,4.1140e-03_jprb,3.6446e-03_jprb,3.1343e-03_jprb,&
 & 2.5481e-03_jprb,1.8697e-03_jprb,4.6238e-03_jprb/)  
kao( :, 1, 5, 7) = (/&
 & 3.8779e-03_jprb,3.4634e-03_jprb,3.0842e-03_jprb,2.6949e-03_jprb,2.2979e-03_jprb,1.8588e-03_jprb,&
 & 1.3777e-03_jprb,8.5534e-04_jprb,2.9342e-03_jprb/)  
kao( :, 2, 5, 7) = (/&
 & 3.9975e-03_jprb,3.6104e-03_jprb,3.2535e-03_jprb,2.8827e-03_jprb,2.4794e-03_jprb,2.0228e-03_jprb,&
 & 1.5286e-03_jprb,9.8435e-04_jprb,3.4742e-03_jprb/)  
kao( :, 3, 5, 7) = (/&
 & 4.1529e-03_jprb,3.7986e-03_jprb,3.4711e-03_jprb,3.1033e-03_jprb,2.6811e-03_jprb,2.2132e-03_jprb,&
 & 1.7129e-03_jprb,1.1425e-03_jprb,4.1273e-03_jprb/)  
kao( :, 4, 5, 7) = (/&
 & 4.3432e-03_jprb,4.0329e-03_jprb,3.7255e-03_jprb,3.3556e-03_jprb,2.9159e-03_jprb,2.4433e-03_jprb,&
 & 1.9336e-03_jprb,1.3357e-03_jprb,4.9170e-03_jprb/)  
kao( :, 5, 5, 7) = (/&
 & 4.5622e-03_jprb,4.3036e-03_jprb,4.0154e-03_jprb,3.6360e-03_jprb,3.1929e-03_jprb,2.7222e-03_jprb,&
 & 2.1936e-03_jprb,1.5699e-03_jprb,5.8667e-03_jprb/)  
kao( :, 1, 6, 7) = (/&
 & 3.3589e-03_jprb,2.9956e-03_jprb,2.6626e-03_jprb,2.3138e-03_jprb,1.9609e-03_jprb,1.5811e-03_jprb,&
 & 1.1611e-03_jprb,7.0395e-04_jprb,3.8423e-03_jprb/)  
kao( :, 2, 6, 7) = (/&
 & 3.4759e-03_jprb,3.1375e-03_jprb,2.8167e-03_jprb,2.4801e-03_jprb,2.1214e-03_jprb,1.7215e-03_jprb,&
 & 1.2829e-03_jprb,8.1184e-04_jprb,4.5185e-03_jprb/)  
kao( :, 3, 6, 7) = (/&
 & 3.6242e-03_jprb,3.3148e-03_jprb,3.0137e-03_jprb,2.6792e-03_jprb,2.3068e-03_jprb,1.8847e-03_jprb,&
 & 1.4366e-03_jprb,9.4529e-04_jprb,5.3431e-03_jprb/)  
kao( :, 4, 6, 7) = (/&
 & 3.8024e-03_jprb,3.5303e-03_jprb,3.2447e-03_jprb,2.9079e-03_jprb,2.5158e-03_jprb,2.0837e-03_jprb,&
 & 1.6281e-03_jprb,1.1078e-03_jprb,6.3321e-03_jprb/)  
kao( :, 5, 6, 7) = (/&
 & 4.0032e-03_jprb,3.7796e-03_jprb,3.5066e-03_jprb,3.1648e-03_jprb,2.7620e-03_jprb,2.3300e-03_jprb,&
 & 1.8584e-03_jprb,1.3026e-03_jprb,7.5117e-03_jprb/)  
kao( :, 1, 7, 7) = (/&
 & 2.8830e-03_jprb,2.5691e-03_jprb,2.2767e-03_jprb,1.9708e-03_jprb,1.6569e-03_jprb,1.3271e-03_jprb,&
 & 9.6810e-04_jprb,5.7391e-04_jprb,5.4404e-03_jprb/)  
kao( :, 2, 7, 7) = (/&
 & 2.9931e-03_jprb,2.7018e-03_jprb,2.4141e-03_jprb,2.1144e-03_jprb,1.7953e-03_jprb,1.4497e-03_jprb,&
 & 1.0681e-03_jprb,6.6067e-04_jprb,6.3234e-03_jprb/)  
kao( :, 3, 7, 7) = (/&
 & 3.1305e-03_jprb,2.8628e-03_jprb,2.5899e-03_jprb,2.2886e-03_jprb,1.9605e-03_jprb,1.5922e-03_jprb,&
 & 1.1949e-03_jprb,7.7319e-04_jprb,7.4384e-03_jprb/)  
kao( :, 4, 7, 7) = (/&
 & 3.2919e-03_jprb,3.0575e-03_jprb,2.7962e-03_jprb,2.4931e-03_jprb,2.1505e-03_jprb,1.7657e-03_jprb,&
 & 1.3594e-03_jprb,9.0965e-04_jprb,8.7978e-03_jprb/)  
kao( :, 5, 7, 7) = (/&
 & 3.4715e-03_jprb,3.2809e-03_jprb,3.0291e-03_jprb,2.7241e-03_jprb,2.3709e-03_jprb,1.9816e-03_jprb,&
 & 1.5601e-03_jprb,1.0736e-03_jprb,1.0416e-02_jprb/)  
kao( :, 1, 8, 7) = (/&
 & 2.4760e-03_jprb,2.2062e-03_jprb,1.9505e-03_jprb,1.6811e-03_jprb,1.4033e-03_jprb,1.1135e-03_jprb,&
 & 8.0567e-04_jprb,4.6971e-04_jprb,1.0033e-02_jprb/)  
kao( :, 2, 8, 7) = (/&
 & 2.5766e-03_jprb,2.3254e-03_jprb,2.0701e-03_jprb,1.8033e-03_jprb,1.5196e-03_jprb,1.2179e-03_jprb,&
 & 8.9015e-04_jprb,5.3726e-04_jprb,1.1309e-02_jprb/)  
kao( :, 3, 8, 7) = (/&
 & 2.7010e-03_jprb,2.4689e-03_jprb,2.2239e-03_jprb,1.9529e-03_jprb,1.6624e-03_jprb,1.3434e-03_jprb,&
 & 9.9513e-04_jprb,6.2989e-04_jprb,1.3008e-02_jprb/)  
kao( :, 4, 8, 7) = (/&
 & 2.8429e-03_jprb,2.6411e-03_jprb,2.4042e-03_jprb,2.1312e-03_jprb,1.8298e-03_jprb,1.4940e-03_jprb,&
 & 1.1345e-03_jprb,7.4505e-04_jprb,1.5177e-02_jprb/)  
kao( :, 5, 8, 7) = (/&
 & 2.9996e-03_jprb,2.8348e-03_jprb,2.6056e-03_jprb,2.3332e-03_jprb,2.0258e-03_jprb,1.6825e-03_jprb,&
 & 1.3078e-03_jprb,8.8471e-04_jprb,1.7852e-02_jprb/)  
kao( :, 1, 9, 7) = (/&
 & 2.1045e-03_jprb,1.8749e-03_jprb,1.6563e-03_jprb,1.4213e-03_jprb,1.1793e-03_jprb,9.2862e-04_jprb,&
 & 6.6550e-04_jprb,3.8300e-04_jprb,4.0779e-02_jprb/)  
kao( :, 2, 9, 7) = (/&
 & 2.1941e-03_jprb,1.9801e-03_jprb,1.7595e-03_jprb,1.5250e-03_jprb,1.2768e-03_jprb,1.0150e-03_jprb,&
 & 7.3680e-04_jprb,4.3556e-04_jprb,4.4180e-02_jprb/)  
kao( :, 3, 9, 7) = (/&
 & 2.3035e-03_jprb,2.1066e-03_jprb,1.8914e-03_jprb,1.6530e-03_jprb,1.3964e-03_jprb,1.1220e-03_jprb,&
 & 8.2430e-04_jprb,5.1028e-04_jprb,4.8665e-02_jprb/)  
kao( :, 4, 9, 7) = (/&
 & 2.4266e-03_jprb,2.2548e-03_jprb,2.0445e-03_jprb,1.8037e-03_jprb,1.5398e-03_jprb,1.2522e-03_jprb,&
 & 9.4060e-04_jprb,6.0474e-04_jprb,5.4418e-02_jprb/)  
kao( :, 5, 9, 7) = (/&
 & 2.5648e-03_jprb,2.4232e-03_jprb,2.2170e-03_jprb,1.9746e-03_jprb,1.7066e-03_jprb,1.4131e-03_jprb,&
 & 1.0872e-03_jprb,7.2231e-04_jprb,6.1744e-02_jprb/)  
kao( :, 1,10, 7) = (/&
 & 1.7736e-03_jprb,1.5819e-03_jprb,1.3957e-03_jprb,1.1944e-03_jprb,9.8623e-04_jprb,7.7163e-04_jprb,&
 & 5.4898e-04_jprb,3.1298e-04_jprb,2.1288e-01_jprb/)  
kao( :, 2,10, 7) = (/&
 & 1.8520e-03_jprb,1.6738e-03_jprb,1.4851e-03_jprb,1.2823e-03_jprb,1.0679e-03_jprb,8.4345e-04_jprb,&
 & 6.0874e-04_jprb,3.5579e-04_jprb,2.2960e-01_jprb/)  
kao( :, 3,10, 7) = (/&
 & 1.9439e-03_jprb,1.7818e-03_jprb,1.5963e-03_jprb,1.3903e-03_jprb,1.1685e-03_jprb,9.3435e-04_jprb,&
 & 6.8422e-04_jprb,4.1671e-04_jprb,2.4868e-01_jprb/)  
kao( :, 4,10, 7) = (/&
 & 2.0519e-03_jprb,1.9108e-03_jprb,1.7263e-03_jprb,1.5165e-03_jprb,1.2885e-03_jprb,1.0455e-03_jprb,&
 & 7.8283e-04_jprb,4.9584e-04_jprb,2.7032e-01_jprb/)  
kao( :, 5,10, 7) = (/&
 & 2.1743e-03_jprb,2.0588e-03_jprb,1.8772e-03_jprb,1.6640e-03_jprb,1.4326e-03_jprb,1.1843e-03_jprb,&
 & 9.0587e-04_jprb,5.9427e-04_jprb,2.9596e-01_jprb/)  
kao( :, 1,11, 7) = (/&
 & 1.5501e-03_jprb,1.3901e-03_jprb,1.2238e-03_jprb,1.0457e-03_jprb,8.6223e-04_jprb,6.7257e-04_jprb,&
 & 4.7782e-04_jprb,2.7194e-04_jprb,4.0190e-01_jprb/)  
kao( :, 2,11, 7) = (/&
 & 1.6161e-03_jprb,1.4686e-03_jprb,1.3022e-03_jprb,1.1228e-03_jprb,9.3349e-04_jprb,7.3693e-04_jprb,&
 & 5.3209e-04_jprb,3.1210e-04_jprb,4.3586e-01_jprb/)  
kao( :, 3,11, 7) = (/&
 & 1.6959e-03_jprb,1.5640e-03_jprb,1.3990e-03_jprb,1.2156e-03_jprb,1.0204e-03_jprb,8.1637e-04_jprb,&
 & 6.0174e-04_jprb,3.6844e-04_jprb,4.7353e-01_jprb/)  
kao( :, 4,11, 7) = (/&
 & 1.7905e-03_jprb,1.6788e-03_jprb,1.5149e-03_jprb,1.3282e-03_jprb,1.1282e-03_jprb,9.1912e-04_jprb,&
 & 6.9230e-04_jprb,4.4075e-04_jprb,5.1437e-01_jprb/)  
kao( :, 5,11, 7) = (/&
 & 1.8993e-03_jprb,1.8110e-03_jprb,1.6496e-03_jprb,1.4619e-03_jprb,1.2633e-03_jprb,1.0482e-03_jprb,&
 & 8.0399e-04_jprb,5.3153e-04_jprb,5.6007e-01_jprb/)  
kao( :, 1,12, 7) = (/&
 & 1.4337e-03_jprb,1.2858e-03_jprb,1.1285e-03_jprb,9.6281e-04_jprb,7.9113e-04_jprb,6.1463e-04_jprb,&
 & 4.3486e-04_jprb,2.4590e-04_jprb,5.1560e-01_jprb/)  
kao( :, 2,12, 7) = (/&
 & 1.4907e-03_jprb,1.3522e-03_jprb,1.1952e-03_jprb,1.0259e-03_jprb,8.4928e-04_jprb,6.6742e-04_jprb,&
 & 4.8034e-04_jprb,2.8126e-04_jprb,5.6136e-01_jprb/)  
kao( :, 3,12, 7) = (/&
 & 1.5589e-03_jprb,1.4349e-03_jprb,1.2778e-03_jprb,1.1050e-03_jprb,9.2336e-04_jprb,7.3586e-04_jprb,&
 & 5.4130e-04_jprb,3.2994e-04_jprb,6.1298e-01_jprb/)  
kao( :, 4,12, 7) = (/&
 & 1.6374e-03_jprb,1.5317e-03_jprb,1.3749e-03_jprb,1.1997e-03_jprb,1.0160e-03_jprb,8.2656e-04_jprb,&
 & 6.2085e-04_jprb,3.9394e-04_jprb,6.6802e-01_jprb/)  
kao( :, 5,12, 7) = (/&
 & 1.7281e-03_jprb,1.6427e-03_jprb,1.4888e-03_jprb,1.3162e-03_jprb,1.1355e-03_jprb,9.3878e-04_jprb,&
 & 7.1928e-04_jprb,4.7571e-04_jprb,7.2750e-01_jprb/)  
kao( :, 1,13, 7) = (/&
 & 1.4127e-03_jprb,1.2657e-03_jprb,1.1099e-03_jprb,9.4602e-04_jprb,7.7557e-04_jprb,6.0086e-04_jprb,&
 & 4.2330e-04_jprb,2.3798e-04_jprb,5.3307e-01_jprb/)  
kao( :, 2,13, 7) = (/&
 & 1.4751e-03_jprb,1.3349e-03_jprb,1.1777e-03_jprb,1.0078e-03_jprb,8.3162e-04_jprb,6.5054e-04_jprb,&
 & 4.6516e-04_jprb,2.6968e-04_jprb,5.8063e-01_jprb/)  
kao( :, 3,13, 7) = (/&
 & 1.5459e-03_jprb,1.4170e-03_jprb,1.2569e-03_jprb,1.0823e-03_jprb,9.0010e-04_jprb,7.1353e-04_jprb,&
 & 5.2060e-04_jprb,3.1113e-04_jprb,6.3437e-01_jprb/)  
kao( :, 4,13, 7) = (/&
 & 1.6229e-03_jprb,1.5083e-03_jprb,1.3464e-03_jprb,1.1679e-03_jprb,9.8357e-04_jprb,7.9315e-04_jprb,&
 & 5.8870e-04_jprb,3.6533e-04_jprb,6.9306e-01_jprb/)  
kao( :, 5,13, 7) = (/&
 & 1.7093e-03_jprb,1.6104e-03_jprb,1.4477e-03_jprb,1.2713e-03_jprb,1.0860e-03_jprb,8.8862e-04_jprb,&
 & 6.7236e-04_jprb,4.3506e-04_jprb,7.5652e-01_jprb/)  
kao( :, 1, 1, 8) = (/&
 & 1.1271e-02_jprb,1.0036e-02_jprb,8.8055e-03_jprb,7.5864e-03_jprb,6.4304e-03_jprb,5.2105e-03_jprb,&
 & 3.8976e-03_jprb,2.4887e-03_jprb,2.5781e-03_jprb/)  
kao( :, 2, 1, 8) = (/&
 & 1.1795e-02_jprb,1.0572e-02_jprb,9.3466e-03_jprb,8.1711e-03_jprb,6.9948e-03_jprb,5.7121e-03_jprb,&
 & 4.3485e-03_jprb,2.8557e-03_jprb,3.2233e-03_jprb/)  
kao( :, 3, 1, 8) = (/&
 & 1.2322e-02_jprb,1.1132e-02_jprb,9.9358e-03_jprb,8.8252e-03_jprb,7.5937e-03_jprb,6.2705e-03_jprb,&
 & 4.8434e-03_jprb,3.3250e-03_jprb,3.9875e-03_jprb/)  
kao( :, 4, 1, 8) = (/&
 & 1.2851e-02_jprb,1.1725e-02_jprb,1.0603e-02_jprb,9.4992e-03_jprb,8.2313e-03_jprb,6.8944e-03_jprb,&
 & 5.3932e-03_jprb,3.9133e-03_jprb,4.8783e-03_jprb/)  
kao( :, 5, 1, 8) = (/&
 & 1.3382e-02_jprb,1.2340e-02_jprb,1.1321e-02_jprb,1.0197e-02_jprb,8.9293e-03_jprb,7.5819e-03_jprb,&
 & 6.0303e-03_jprb,4.6405e-03_jprb,5.9012e-03_jprb/)  
kao( :, 1, 2, 8) = (/&
 & 1.0672e-02_jprb,9.5056e-03_jprb,8.3387e-03_jprb,7.1916e-03_jprb,6.1140e-03_jprb,4.9607e-03_jprb,&
 & 3.7058e-03_jprb,2.3880e-03_jprb,2.7395e-03_jprb/)  
kao( :, 2, 2, 8) = (/&
 & 1.1169e-02_jprb,1.0020e-02_jprb,8.8610e-03_jprb,7.7691e-03_jprb,6.6689e-03_jprb,5.4487e-03_jprb,&
 & 4.1407e-03_jprb,2.7243e-03_jprb,3.3802e-03_jprb/)  
kao( :, 3, 2, 8) = (/&
 & 1.1679e-02_jprb,1.0568e-02_jprb,9.4396e-03_jprb,8.4156e-03_jprb,7.2560e-03_jprb,5.9872e-03_jprb,&
 & 4.6292e-03_jprb,3.1276e-03_jprb,4.1522e-03_jprb/)  
kao( :, 4, 2, 8) = (/&
 & 1.2189e-02_jprb,1.1143e-02_jprb,1.0088e-02_jprb,9.0819e-03_jprb,7.8824e-03_jprb,6.5917e-03_jprb,&
 & 5.1714e-03_jprb,3.6254e-03_jprb,5.0691e-03_jprb/)  
kao( :, 5, 2, 8) = (/&
 & 1.2702e-02_jprb,1.1729e-02_jprb,1.0782e-02_jprb,9.7685e-03_jprb,8.5622e-03_jprb,7.2579e-03_jprb,&
 & 5.7650e-03_jprb,4.2498e-03_jprb,6.1336e-03_jprb/)  
kao( :, 1, 3, 8) = (/&
 & 9.8797e-03_jprb,8.7861e-03_jprb,7.6933e-03_jprb,6.6349e-03_jprb,5.6262e-03_jprb,4.5704e-03_jprb,&
 & 3.4179e-03_jprb,2.1903e-03_jprb,3.6361e-03_jprb/)  
kao( :, 2, 3, 8) = (/&
 & 1.0349e-02_jprb,9.2701e-03_jprb,8.1866e-03_jprb,7.1655e-03_jprb,6.1521e-03_jprb,5.0318e-03_jprb,&
 & 3.8109e-03_jprb,2.5138e-03_jprb,4.3860e-03_jprb/)  
kao( :, 3, 3, 8) = (/&
 & 1.0830e-02_jprb,9.7857e-03_jprb,8.7308e-03_jprb,7.7641e-03_jprb,6.7179e-03_jprb,5.5402e-03_jprb,&
 & 4.2653e-03_jprb,2.8863e-03_jprb,5.2476e-03_jprb/)  
kao( :, 4, 3, 8) = (/&
 & 1.1311e-02_jprb,1.0326e-02_jprb,9.3387e-03_jprb,8.4020e-03_jprb,7.3182e-03_jprb,6.0959e-03_jprb,&
 & 4.7833e-03_jprb,3.3218e-03_jprb,6.2518e-03_jprb/)  
kao( :, 5, 3, 8) = (/&
 & 1.1804e-02_jprb,1.0884e-02_jprb,9.9988e-03_jprb,9.0694e-03_jprb,7.9619e-03_jprb,6.7205e-03_jprb,&
 & 5.3622e-03_jprb,3.8455e-03_jprb,7.4421e-03_jprb/)  
kao( :, 1, 4, 8) = (/&
 & 9.0341e-03_jprb,8.0181e-03_jprb,7.0097e-03_jprb,6.0433e-03_jprb,5.0961e-03_jprb,4.1279e-03_jprb,&
 & 3.0949e-03_jprb,1.9591e-03_jprb,5.2205e-03_jprb/)  
kao( :, 2, 4, 8) = (/&
 & 9.4663e-03_jprb,8.4620e-03_jprb,7.4631e-03_jprb,6.5118e-03_jprb,5.5670e-03_jprb,4.5574e-03_jprb,&
 & 3.4524e-03_jprb,2.2551e-03_jprb,6.2821e-03_jprb/)  
kao( :, 3, 4, 8) = (/&
 & 9.9093e-03_jprb,8.9346e-03_jprb,7.9590e-03_jprb,7.0438e-03_jprb,6.0869e-03_jprb,5.0245e-03_jprb,&
 & 3.8570e-03_jprb,2.6046e-03_jprb,7.4874e-03_jprb/)  
kao( :, 4, 4, 8) = (/&
 & 1.0364e-02_jprb,9.4379e-03_jprb,8.5216e-03_jprb,7.6276e-03_jprb,6.6482e-03_jprb,5.5372e-03_jprb,&
 & 4.3314e-03_jprb,3.0117e-03_jprb,8.8492e-03_jprb/)  
kao( :, 5, 4, 8) = (/&
 & 1.0832e-02_jprb,9.9630e-03_jprb,9.1301e-03_jprb,8.2526e-03_jprb,7.2502e-03_jprb,6.1063e-03_jprb,&
 & 4.8699e-03_jprb,3.4864e-03_jprb,1.0381e-02_jprb/)  
kao( :, 1, 5, 8) = (/&
 & 8.2066e-03_jprb,7.2704e-03_jprb,6.3520e-03_jprb,5.4803e-03_jprb,4.5989e-03_jprb,3.7047e-03_jprb,&
 & 2.7766e-03_jprb,1.7333e-03_jprb,7.2922e-03_jprb/)  
kao( :, 2, 5, 8) = (/&
 & 8.5864e-03_jprb,7.6589e-03_jprb,6.7541e-03_jprb,5.8852e-03_jprb,5.0024e-03_jprb,4.0864e-03_jprb,&
 & 3.0959e-03_jprb,1.9895e-03_jprb,8.7707e-03_jprb/)  

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


SUBROUTINE part6

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


kao( :, 3, 5, 8) = (/&
 & 8.9852e-03_jprb,8.0815e-03_jprb,7.1976e-03_jprb,6.3516e-03_jprb,5.4653e-03_jprb,4.5110e-03_jprb,&
 & 3.4542e-03_jprb,2.3009e-03_jprb,1.0486e-02_jprb/)  
kao( :, 4, 5, 8) = (/&
 & 9.4036e-03_jprb,8.5424e-03_jprb,7.7055e-03_jprb,6.8683e-03_jprb,5.9736e-03_jprb,4.9773e-03_jprb,&
 & 3.8692e-03_jprb,2.6768e-03_jprb,1.2445e-02_jprb/)  
kao( :, 5, 5, 8) = (/&
 & 9.8437e-03_jprb,9.0342e-03_jprb,8.2571e-03_jprb,7.4313e-03_jprb,6.5257e-03_jprb,5.4908e-03_jprb,&
 & 4.3579e-03_jprb,3.1244e-03_jprb,1.4671e-02_jprb/)  
kao( :, 1, 6, 8) = (/&
 & 7.3775e-03_jprb,6.5258e-03_jprb,5.7033e-03_jprb,4.9243e-03_jprb,4.1126e-03_jprb,3.2909e-03_jprb,&
 & 2.4468e-03_jprb,1.5110e-03_jprb,9.9543e-03_jprb/)  
kao( :, 2, 6, 8) = (/&
 & 7.6997e-03_jprb,6.8542e-03_jprb,6.0539e-03_jprb,5.2649e-03_jprb,4.4522e-03_jprb,3.6170e-03_jprb,&
 & 2.7307e-03_jprb,1.7266e-03_jprb,1.1860e-02_jprb/)  
kao( :, 3, 6, 8) = (/&
 & 8.0489e-03_jprb,7.2263e-03_jprb,6.4458e-03_jprb,5.6660e-03_jprb,4.8447e-03_jprb,3.9877e-03_jprb,&
 & 3.0489e-03_jprb,1.9907e-03_jprb,1.4111e-02_jprb/)  
kao( :, 4, 6, 8) = (/&
 & 8.4274e-03_jprb,7.6434e-03_jprb,6.8896e-03_jprb,6.1185e-03_jprb,5.2908e-03_jprb,4.4013e-03_jprb,&
 & 3.4126e-03_jprb,2.3197e-03_jprb,1.6745e-02_jprb/)  
kao( :, 5, 6, 8) = (/&
 & 8.8394e-03_jprb,8.0956e-03_jprb,7.3855e-03_jprb,6.6147e-03_jprb,5.7835e-03_jprb,4.8630e-03_jprb,&
 & 3.8408e-03_jprb,2.7242e-03_jprb,1.9764e-02_jprb/)  
kao( :, 1, 7, 8) = (/&
 & 6.5565e-03_jprb,5.7913e-03_jprb,5.0650e-03_jprb,4.3717e-03_jprb,3.6417e-03_jprb,2.9003e-03_jprb,&
 & 2.1352e-03_jprb,1.3029e-03_jprb,1.4373e-02_jprb/)  
kao( :, 2, 7, 8) = (/&
 & 6.8314e-03_jprb,6.0702e-03_jprb,5.3740e-03_jprb,4.6650e-03_jprb,3.9304e-03_jprb,3.1756e-03_jprb,&
 & 2.3780e-03_jprb,1.4833e-03_jprb,1.7113e-02_jprb/)  
kao( :, 3, 7, 8) = (/&
 & 7.1400e-03_jprb,6.4022e-03_jprb,5.7201e-03_jprb,5.0134e-03_jprb,4.2702e-03_jprb,3.4939e-03_jprb,&
 & 2.6530e-03_jprb,1.7044e-03_jprb,2.0310e-02_jprb/)  
kao( :, 4, 7, 8) = (/&
 & 7.4900e-03_jprb,6.7869e-03_jprb,6.1184e-03_jprb,5.4134e-03_jprb,4.6538e-03_jprb,3.8497e-03_jprb,&
 & 2.9716e-03_jprb,1.9853e-03_jprb,2.4047e-02_jprb/)  
kao( :, 5, 7, 8) = (/&
 & 7.8853e-03_jprb,7.2198e-03_jprb,6.5744e-03_jprb,5.8583e-03_jprb,5.0855e-03_jprb,4.2547e-03_jprb,&
 & 3.3480e-03_jprb,2.3372e-03_jprb,2.8402e-02_jprb/)  
kao( :, 1, 8, 8) = (/&
 & 5.7906e-03_jprb,5.1087e-03_jprb,4.4702e-03_jprb,3.8543e-03_jprb,3.2058e-03_jprb,2.5413e-03_jprb,&
 & 1.8524e-03_jprb,1.1137e-03_jprb,2.4973e-02_jprb/)  
kao( :, 2, 8, 8) = (/&
 & 6.0296e-03_jprb,5.3498e-03_jprb,4.7428e-03_jprb,4.1103e-03_jprb,3.4527e-03_jprb,2.7740e-03_jprb,&
 & 2.0568e-03_jprb,1.2678e-03_jprb,2.9683e-02_jprb/)  
kao( :, 3, 8, 8) = (/&
 & 6.3087e-03_jprb,5.6506e-03_jprb,5.0549e-03_jprb,4.4167e-03_jprb,3.7489e-03_jprb,3.0452e-03_jprb,&
 & 2.2930e-03_jprb,1.4507e-03_jprb,3.5325e-02_jprb/)  
kao( :, 4, 8, 8) = (/&
 & 6.6419e-03_jprb,6.0135e-03_jprb,5.4190e-03_jprb,4.7745e-03_jprb,4.0857e-03_jprb,3.3552e-03_jprb,&
 & 2.5672e-03_jprb,1.6862e-03_jprb,4.1942e-02_jprb/)  
kao( :, 5, 8, 8) = (/&
 & 7.0283e-03_jprb,6.4363e-03_jprb,5.8469e-03_jprb,5.1836e-03_jprb,4.4693e-03_jprb,3.7129e-03_jprb,&
 & 2.8969e-03_jprb,1.9865e-03_jprb,4.9701e-02_jprb/)  
kao( :, 1, 9, 8) = (/&
 & 5.0360e-03_jprb,4.4397e-03_jprb,3.8840e-03_jprb,3.3435e-03_jprb,2.7807e-03_jprb,2.1932e-03_jprb,&
 & 1.5839e-03_jprb,9.3584e-04_jprb,8.5840e-02_jprb/)  
kao( :, 2, 9, 8) = (/&
 & 5.2453e-03_jprb,4.6508e-03_jprb,4.1231e-03_jprb,3.5696e-03_jprb,2.9904e-03_jprb,2.3871e-03_jprb,&
 & 1.7527e-03_jprb,1.0640e-03_jprb,1.0011e-01_jprb/)  
kao( :, 3, 9, 8) = (/&
 & 5.5017e-03_jprb,4.9250e-03_jprb,4.4061e-03_jprb,3.8385e-03_jprb,3.2464e-03_jprb,2.6177e-03_jprb,&
 & 1.9509e-03_jprb,1.2177e-03_jprb,1.1783e-01_jprb/)  
kao( :, 4, 9, 8) = (/&
 & 5.8157e-03_jprb,5.2667e-03_jprb,4.7409e-03_jprb,4.1617e-03_jprb,3.5430e-03_jprb,2.8840e-03_jprb,&
 & 2.1850e-03_jprb,1.4137e-03_jprb,1.3938e-01_jprb/)  
kao( :, 5, 9, 8) = (/&
 & 6.1830e-03_jprb,5.6669e-03_jprb,5.1359e-03_jprb,4.5353e-03_jprb,3.8872e-03_jprb,3.1987e-03_jprb,&
 & 2.4695e-03_jprb,1.6659e-03_jprb,1.6517e-01_jprb/)  
kao( :, 1,10, 8) = (/&
 & 4.3296e-03_jprb,3.8182e-03_jprb,3.3429e-03_jprb,2.8727e-03_jprb,2.3861e-03_jprb,1.8763e-03_jprb,&
 & 1.3438e-03_jprb,7.8161e-04_jprb,3.9143e-01_jprb/)  
kao( :, 2,10, 8) = (/&
 & 4.5130e-03_jprb,4.0050e-03_jprb,3.5504e-03_jprb,3.0710e-03_jprb,2.5674e-03_jprb,2.0397e-03_jprb,&
 & 1.4837e-03_jprb,8.8733e-04_jprb,4.3656e-01_jprb/)  
kao( :, 3,10, 8) = (/&
 & 4.7537e-03_jprb,4.2601e-03_jprb,3.8073e-03_jprb,3.3140e-03_jprb,2.7911e-03_jprb,2.2372e-03_jprb,&
 & 1.6497e-03_jprb,1.0161e-03_jprb,4.9451e-01_jprb/)  
kao( :, 4,10, 8) = (/&
 & 5.0463e-03_jprb,4.5800e-03_jprb,4.1210e-03_jprb,3.6090e-03_jprb,3.0570e-03_jprb,2.4709e-03_jprb,&
 & 1.8508e-03_jprb,1.1821e-03_jprb,5.6882e-01_jprb/)  
kao( :, 5,10, 8) = (/&
 & 5.3939e-03_jprb,4.9543e-03_jprb,4.4851e-03_jprb,3.9500e-03_jprb,3.3687e-03_jprb,2.7497e-03_jprb,&
 & 2.1004e-03_jprb,1.3979e-03_jprb,6.6139e-01_jprb/)  
kao( :, 1,11, 8) = (/&
 & 3.7600e-03_jprb,3.3296e-03_jprb,2.9316e-03_jprb,2.5257e-03_jprb,2.0989e-03_jprb,1.6511e-03_jprb,&
 & 1.1820e-03_jprb,6.8533e-04_jprb,7.4408e-01_jprb/)  
kao( :, 2,11, 8) = (/&
 & 3.9507e-03_jprb,3.5282e-03_jprb,3.1373e-03_jprb,2.7184e-03_jprb,2.2731e-03_jprb,1.8035e-03_jprb,&
 & 1.3072e-03_jprb,7.7991e-04_jprb,8.1308e-01_jprb/)  
kao( :, 3,11, 8) = (/&
 & 4.1947e-03_jprb,3.7893e-03_jprb,3.3928e-03_jprb,2.9586e-03_jprb,2.4893e-03_jprb,1.9891e-03_jprb,&
 & 1.4610e-03_jprb,8.9963e-04_jprb,8.9527e-01_jprb/)  
kao( :, 4,11, 8) = (/&
 & 4.4908e-03_jprb,4.1076e-03_jprb,3.7028e-03_jprb,3.2435e-03_jprb,2.7433e-03_jprb,2.2120e-03_jprb,&
 & 1.6527e-03_jprb,1.0595e-03_jprb,9.9684e-01_jprb/)  
kao( :, 5,11, 8) = (/&
 & 4.8478e-03_jprb,4.4859e-03_jprb,4.0645e-03_jprb,3.5748e-03_jprb,3.0447e-03_jprb,2.4822e-03_jprb,&
 & 1.8975e-03_jprb,1.2673e-03_jprb,1.1166e+00_jprb/)  
kao( :, 1,12, 8) = (/&
 & 3.2909e-03_jprb,2.9295e-03_jprb,2.5867e-03_jprb,2.2286e-03_jprb,1.8515e-03_jprb,1.4556e-03_jprb,&
 & 1.0393e-03_jprb,6.0072e-04_jprb,1.0077e+00_jprb/)  
kao( :, 2,12, 8) = (/&
 & 3.4843e-03_jprb,3.1331e-03_jprb,2.7896e-03_jprb,2.4180e-03_jprb,2.0217e-03_jprb,1.5999e-03_jprb,&
 & 1.1545e-03_jprb,6.8643e-04_jprb,1.0948e+00_jprb/)  
kao( :, 3,12, 8) = (/&
 & 3.7310e-03_jprb,3.3942e-03_jprb,3.0433e-03_jprb,2.6518e-03_jprb,2.2272e-03_jprb,1.7748e-03_jprb,&
 & 1.3002e-03_jprb,8.0128e-04_jprb,1.1979e+00_jprb/)  
kao( :, 4,12, 8) = (/&
 & 4.0332e-03_jprb,3.7134e-03_jprb,3.3499e-03_jprb,2.9292e-03_jprb,2.4733e-03_jprb,1.9891e-03_jprb,&
 & 1.4867e-03_jprb,9.5533e-04_jprb,1.3214e+00_jprb/)  
kao( :, 5,12, 8) = (/&
 & 4.3825e-03_jprb,4.0886e-03_jprb,3.7068e-03_jprb,3.2581e-03_jprb,2.7706e-03_jprb,2.2595e-03_jprb,&
 & 1.7283e-03_jprb,1.1510e-03_jprb,1.4622e+00_jprb/)  
kao( :, 1,13, 8) = (/&
 & 3.0478e-03_jprb,2.7205e-03_jprb,2.3969e-03_jprb,2.0570e-03_jprb,1.7018e-03_jprb,1.3312e-03_jprb,&
 & 9.4239e-04_jprb,5.3797e-04_jprb,1.1139e+00_jprb/)  
kao( :, 2,13, 8) = (/&
 & 3.2266e-03_jprb,2.9089e-03_jprb,2.5816e-03_jprb,2.2296e-03_jprb,1.8550e-03_jprb,1.4585e-03_jprb,&
 & 1.0452e-03_jprb,6.1598e-04_jprb,1.2073e+00_jprb/)  
kao( :, 3,13, 8) = (/&
 & 3.4554e-03_jprb,3.1502e-03_jprb,2.8168e-03_jprb,2.4455e-03_jprb,2.0432e-03_jprb,1.6195e-03_jprb,&
 & 1.1807e-03_jprb,7.2584e-04_jprb,1.3161e+00_jprb/)  
kao( :, 4,13, 8) = (/&
 & 3.7354e-03_jprb,3.4492e-03_jprb,3.1036e-03_jprb,2.7077e-03_jprb,2.2785e-03_jprb,1.8279e-03_jprb,&
 & 1.3627e-03_jprb,8.7250e-04_jprb,1.4441e+00_jprb/)  
kao( :, 5,13, 8) = (/&
 & 4.0484e-03_jprb,3.7921e-03_jprb,3.4369e-03_jprb,3.0193e-03_jprb,2.5680e-03_jprb,2.0959e-03_jprb,&
 & 1.6011e-03_jprb,1.0569e-03_jprb,1.5851e+00_jprb/)  
kao( :, 1, 1, 9) = (/&
 & 1.9029e-02_jprb,1.6853e-02_jprb,1.4735e-02_jprb,1.2587e-02_jprb,1.0467e-02_jprb,8.5540e-03_jprb,&
 & 6.8482e-03_jprb,5.4691e-03_jprb,7.2696e-03_jprb/)  
kao( :, 2, 1, 9) = (/&
 & 2.0092e-02_jprb,1.7878e-02_jprb,1.5728e-02_jprb,1.3580e-02_jprb,1.1524e-02_jprb,9.7463e-03_jprb,&
 & 8.1292e-03_jprb,6.9002e-03_jprb,9.2265e-03_jprb/)  
kao( :, 3, 1, 9) = (/&
 & 2.1289e-02_jprb,1.9078e-02_jprb,1.6951e-02_jprb,1.4803e-02_jprb,1.2902e-02_jprb,1.1235e-02_jprb,&
 & 9.7244e-03_jprb,8.5896e-03_jprb,1.1472e-02_jprb/)  
kao( :, 4, 1, 9) = (/&
 & 2.2660e-02_jprb,2.0471e-02_jprb,1.8401e-02_jprb,1.6346e-02_jprb,1.4609e-02_jprb,1.3016e-02_jprb,&
 & 1.1621e-02_jprb,1.0516e-02_jprb,1.4012e-02_jprb/)  
kao( :, 5, 1, 9) = (/&
 & 2.4197e-02_jprb,2.2063e-02_jprb,2.0065e-02_jprb,1.8209e-02_jprb,1.6609e-02_jprb,1.5079e-02_jprb,&
 & 1.3788e-02_jprb,1.2665e-02_jprb,1.6825e-02_jprb/)  
kao( :, 1, 2, 9) = (/&
 & 1.9742e-02_jprb,1.7478e-02_jprb,1.5268e-02_jprb,1.3020e-02_jprb,1.0794e-02_jprb,8.7264e-03_jprb,&
 & 6.7494e-03_jprb,5.0072e-03_jprb,7.5472e-03_jprb/)  
kao( :, 2, 2, 9) = (/&
 & 2.0752e-02_jprb,1.8451e-02_jprb,1.6203e-02_jprb,1.3921e-02_jprb,1.1711e-02_jprb,9.7269e-03_jprb,&
 & 7.8214e-03_jprb,6.2435e-03_jprb,9.6127e-03_jprb/)  
kao( :, 3, 2, 9) = (/&
 & 2.1850e-02_jprb,1.9539e-02_jprb,1.7284e-02_jprb,1.4968e-02_jprb,1.2893e-02_jprb,1.0990e-02_jprb,&
 & 9.1753e-03_jprb,7.7563e-03_jprb,1.2009e-02_jprb/)  
kao( :, 4, 2, 9) = (/&
 & 2.3047e-02_jprb,2.0746e-02_jprb,1.8528e-02_jprb,1.6289e-02_jprb,1.4365e-02_jprb,1.2522e-02_jprb,&
 & 1.0820e-02_jprb,9.5216e-03_jprb,1.4733e-02_jprb/)  
kao( :, 5, 2, 9) = (/&
 & 2.4378e-02_jprb,2.2145e-02_jprb,1.9963e-02_jprb,1.7904e-02_jprb,1.6106e-02_jprb,1.4326e-02_jprb,&
 & 1.2781e-02_jprb,1.1538e-02_jprb,1.7764e-02_jprb/)  
kao( :, 1, 3, 9) = (/&
 & 2.0246e-02_jprb,1.7907e-02_jprb,1.5619e-02_jprb,1.3303e-02_jprb,1.1014e-02_jprb,8.8212e-03_jprb,&
 & 6.6585e-03_jprb,4.5305e-03_jprb,9.1026e-03_jprb/)  
kao( :, 2, 3, 9) = (/&
 & 2.1216e-02_jprb,1.8847e-02_jprb,1.6535e-02_jprb,1.4182e-02_jprb,1.1869e-02_jprb,9.7020e-03_jprb,&
 & 7.5117e-03_jprb,5.5113e-03_jprb,1.1552e-02_jprb/)  
kao( :, 3, 3, 9) = (/&
 & 2.2286e-02_jprb,1.9902e-02_jprb,1.7571e-02_jprb,1.5169e-02_jprb,1.2921e-02_jprb,1.0740e-02_jprb,&
 & 8.6112e-03_jprb,6.7529e-03_jprb,1.4497e-02_jprb/)  
kao( :, 4, 3, 9) = (/&
 & 2.3424e-02_jprb,2.1046e-02_jprb,1.8711e-02_jprb,1.6326e-02_jprb,1.4157e-02_jprb,1.2014e-02_jprb,&
 & 9.9676e-03_jprb,8.2723e-03_jprb,1.7885e-02_jprb/)  
kao( :, 5, 3, 9) = (/&
 & 2.4644e-02_jprb,2.2304e-02_jprb,1.9954e-02_jprb,1.7680e-02_jprb,1.5613e-02_jprb,1.3543e-02_jprb,&
 & 1.1603e-02_jprb,1.0079e-02_jprb,2.1675e-02_jprb/)  
kao( :, 1, 4, 9) = (/&
 & 2.0516e-02_jprb,1.8121e-02_jprb,1.5769e-02_jprb,1.3411e-02_jprb,1.1085e-02_jprb,8.8389e-03_jprb,&
 & 6.5833e-03_jprb,4.2076e-03_jprb,1.2881e-02_jprb/)  
kao( :, 2, 4, 9) = (/&
 & 2.1468e-02_jprb,1.9043e-02_jprb,1.6678e-02_jprb,1.4283e-02_jprb,1.1934e-02_jprb,9.6739e-03_jprb,&
 & 7.3557e-03_jprb,4.9709e-03_jprb,1.5909e-02_jprb/)  
kao( :, 3, 4, 9) = (/&
 & 2.2532e-02_jprb,2.0092e-02_jprb,1.7713e-02_jprb,1.5283e-02_jprb,1.2949e-02_jprb,1.0652e-02_jprb,&
 & 8.2469e-03_jprb,5.9560e-03_jprb,1.9619e-02_jprb/)  
kao( :, 4, 4, 9) = (/&
 & 2.3665e-02_jprb,2.1230e-02_jprb,1.8849e-02_jprb,1.6407e-02_jprb,1.4104e-02_jprb,1.1750e-02_jprb,&
 & 9.3432e-03_jprb,7.1888e-03_jprb,2.4018e-02_jprb/)  
kao( :, 5, 4, 9) = (/&
 & 2.4860e-02_jprb,2.2477e-02_jprb,2.0057e-02_jprb,1.7676e-02_jprb,1.5382e-02_jprb,1.3031e-02_jprb,&
 & 1.0691e-02_jprb,8.7092e-03_jprb,2.9097e-02_jprb/)  
kao( :, 1, 5, 9) = (/&
 & 2.0504e-02_jprb,1.8088e-02_jprb,1.5703e-02_jprb,1.3326e-02_jprb,1.0997e-02_jprb,8.7375e-03_jprb,&
 & 6.4349e-03_jprb,4.0325e-03_jprb,1.9706e-02_jprb/)  
kao( :, 2, 5, 9) = (/&
 & 2.1455e-02_jprb,1.9003e-02_jprb,1.6600e-02_jprb,1.4207e-02_jprb,1.1857e-02_jprb,9.5485e-03_jprb,&
 & 7.1823e-03_jprb,4.6356e-03_jprb,2.3733e-02_jprb/)  
kao( :, 3, 5, 9) = (/&
 & 2.2502e-02_jprb,2.0037e-02_jprb,1.7638e-02_jprb,1.5221e-02_jprb,1.2854e-02_jprb,1.0499e-02_jprb,&
 & 8.0330e-03_jprb,5.4121e-03_jprb,2.8573e-02_jprb/)  
kao( :, 4, 5, 9) = (/&
 & 2.3616e-02_jprb,2.1161e-02_jprb,1.8779e-02_jprb,1.6343e-02_jprb,1.3995e-02_jprb,1.1576e-02_jprb,&
 & 8.9770e-03_jprb,6.4039e-03_jprb,3.4371e-02_jprb/)  
kao( :, 5, 5, 9) = (/&
 & 2.4795e-02_jprb,2.2401e-02_jprb,2.0008e-02_jprb,1.7611e-02_jprb,1.5244e-02_jprb,1.2739e-02_jprb,&
 & 1.0086e-02_jprb,7.6459e-03_jprb,4.1145e-02_jprb/)  
kao( :, 1, 6, 9) = (/&
 & 2.0133e-02_jprb,1.7738e-02_jprb,1.5364e-02_jprb,1.2999e-02_jprb,1.0725e-02_jprb,8.4927e-03_jprb,&
 & 6.2104e-03_jprb,3.8293e-03_jprb,2.9307e-02_jprb/)  
kao( :, 2, 6, 9) = (/&
 & 2.1045e-02_jprb,1.8610e-02_jprb,1.6208e-02_jprb,1.3856e-02_jprb,1.1560e-02_jprb,9.2671e-03_jprb,&
 & 6.8969e-03_jprb,4.3962e-03_jprb,3.5253e-02_jprb/)  
kao( :, 3, 6, 9) = (/&
 & 2.2058e-02_jprb,1.9606e-02_jprb,1.7213e-02_jprb,1.4861e-02_jprb,1.2529e-02_jprb,1.0178e-02_jprb,&
 & 7.7198e-03_jprb,5.0397e-03_jprb,4.2153e-02_jprb/)  
kao( :, 4, 6, 9) = (/&
 & 2.3150e-02_jprb,2.0703e-02_jprb,1.8349e-02_jprb,1.5982e-02_jprb,1.3648e-02_jprb,1.1231e-02_jprb,&
 & 8.6302e-03_jprb,5.8174e-03_jprb,5.0140e-02_jprb/)  
kao( :, 5, 6, 9) = (/&
 & 2.4302e-02_jprb,2.1916e-02_jprb,1.9594e-02_jprb,1.7235e-02_jprb,1.4884e-02_jprb,1.2368e-02_jprb,&
 & 9.6429e-03_jprb,6.8104e-03_jprb,5.9434e-02_jprb/)  
kao( :, 1, 7, 9) = (/&
 & 1.9536e-02_jprb,1.7189e-02_jprb,1.4859e-02_jprb,1.2545e-02_jprb,1.0327e-02_jprb,8.1473e-03_jprb,&
 & 5.9285e-03_jprb,3.5890e-03_jprb,4.5929e-02_jprb/)  
kao( :, 2, 7, 9) = (/&
 & 2.0386e-02_jprb,1.8001e-02_jprb,1.5633e-02_jprb,1.3342e-02_jprb,1.1116e-02_jprb,8.8902e-03_jprb,&
 & 6.5600e-03_jprb,4.1234e-03_jprb,5.5119e-02_jprb/)  
kao( :, 3, 7, 9) = (/&
 & 2.1349e-02_jprb,1.8942e-02_jprb,1.6585e-02_jprb,1.4307e-02_jprb,1.2057e-02_jprb,9.7494e-03_jprb,&
 & 7.3377e-03_jprb,4.7340e-03_jprb,6.5943e-02_jprb/)  
kao( :, 4, 7, 9) = (/&
 & 2.2403e-02_jprb,1.9996e-02_jprb,1.7685e-02_jprb,1.5416e-02_jprb,1.3126e-02_jprb,1.0758e-02_jprb,&
 & 8.2128e-03_jprb,5.4226e-03_jprb,7.8488e-02_jprb/)  
kao( :, 5, 7, 9) = (/&
 & 2.3510e-02_jprb,2.1150e-02_jprb,1.8904e-02_jprb,1.6637e-02_jprb,1.4327e-02_jprb,1.1873e-02_jprb,&
 & 9.1897e-03_jprb,6.2247e-03_jprb,9.2665e-02_jprb/)  
kao( :, 1, 8, 9) = (/&
 & 1.8746e-02_jprb,1.6470e-02_jprb,1.4220e-02_jprb,1.1987e-02_jprb,9.8350e-03_jprb,7.7336e-03_jprb,&
 & 5.6041e-03_jprb,3.3408e-03_jprb,8.6619e-02_jprb/)  
kao( :, 2, 8, 9) = (/&
 & 1.9538e-02_jprb,1.7231e-02_jprb,1.4934e-02_jprb,1.2719e-02_jprb,1.0574e-02_jprb,8.4413e-03_jprb,&
 & 6.1857e-03_jprb,3.8236e-03_jprb,1.0386e-01_jprb/)  
kao( :, 3, 8, 9) = (/&
 & 2.0463e-02_jprb,1.8125e-02_jprb,1.5828e-02_jprb,1.3641e-02_jprb,1.1488e-02_jprb,9.2568e-03_jprb,&
 & 6.9051e-03_jprb,4.3974e-03_jprb,1.2423e-01_jprb/)  
kao( :, 4, 8, 9) = (/&
 & 2.1475e-02_jprb,1.9130e-02_jprb,1.6884e-02_jprb,1.4717e-02_jprb,1.2518e-02_jprb,1.0208e-02_jprb,&
 & 7.7414e-03_jprb,5.0487e-03_jprb,1.4791e-01_jprb/)  
kao( :, 5, 8, 9) = (/&
 & 2.2552e-02_jprb,2.0240e-02_jprb,1.8077e-02_jprb,1.5918e-02_jprb,1.3670e-02_jprb,1.1281e-02_jprb,&
 & 8.6774e-03_jprb,5.7934e-03_jprb,1.7479e-01_jprb/)  
kao( :, 1, 9, 9) = (/&
 & 1.7677e-02_jprb,1.5514e-02_jprb,1.3384e-02_jprb,1.1273e-02_jprb,9.2209e-03_jprb,7.2255e-03_jprb,&
 & 5.2054e-03_jprb,3.0724e-03_jprb,3.0542e-01_jprb/)  
kao( :, 2, 9, 9) = (/&
 & 1.8381e-02_jprb,1.6193e-02_jprb,1.4015e-02_jprb,1.1915e-02_jprb,9.8821e-03_jprb,7.8714e-03_jprb,&
 & 5.7484e-03_jprb,3.4992e-03_jprb,3.6713e-01_jprb/)  
kao( :, 3, 9, 9) = (/&
 & 1.9248e-02_jprb,1.7024e-02_jprb,1.4840e-02_jprb,1.2769e-02_jprb,1.0738e-02_jprb,8.6406e-03_jprb,&
 & 6.3997e-03_jprb,4.0183e-03_jprb,4.4040e-01_jprb/)  
kao( :, 4, 9, 9) = (/&
 & 2.0207e-02_jprb,1.7971e-02_jprb,1.5835e-02_jprb,1.3795e-02_jprb,1.1724e-02_jprb,9.5294e-03_jprb,&
 & 7.1782e-03_jprb,4.6229e-03_jprb,5.2636e-01_jprb/)  
kao( :, 5, 9, 9) = (/&
 & 2.1234e-02_jprb,1.9021e-02_jprb,1.6969e-02_jprb,1.4942e-02_jprb,1.2829e-02_jprb,1.0542e-02_jprb,&
 & 8.0575e-03_jprb,5.3170e-03_jprb,6.2525e-01_jprb/)  
kao( :, 1,10, 9) = (/&
 & 1.6394e-02_jprb,1.4380e-02_jprb,1.2403e-02_jprb,1.0449e-02_jprb,8.5433e-03_jprb,6.6777e-03_jprb,&
 & 4.7921e-03_jprb,2.8109e-03_jprb,1.2050e+00_jprb/)  
kao( :, 2,10, 9) = (/&
 & 1.7024e-02_jprb,1.4988e-02_jprb,1.2970e-02_jprb,1.1025e-02_jprb,9.1364e-03_jprb,7.2561e-03_jprb,&
 & 5.2885e-03_jprb,3.1895e-03_jprb,1.4500e+00_jprb/)  
kao( :, 3,10, 9) = (/&
 & 1.7826e-02_jprb,1.5753e-02_jprb,1.3734e-02_jprb,1.1808e-02_jprb,9.9253e-03_jprb,7.9700e-03_jprb,&
 & 5.8931e-03_jprb,3.6564e-03_jprb,1.7463e+00_jprb/)  
kao( :, 4,10, 9) = (/&
 & 1.8735e-02_jprb,1.6645e-02_jprb,1.4665e-02_jprb,1.2773e-02_jprb,1.0857e-02_jprb,8.8090e-03_jprb,&
 & 6.6108e-03_jprb,4.2090e-03_jprb,2.0981e+00_jprb/)  
kao( :, 5,10, 9) = (/&
 & 1.9712e-02_jprb,1.7647e-02_jprb,1.5744e-02_jprb,1.3877e-02_jprb,1.1904e-02_jprb,9.7573e-03_jprb,&
 & 7.4286e-03_jprb,4.8520e-03_jprb,2.5126e+00_jprb/)  
kao( :, 1,11, 9) = (/&
 & 1.5188e-02_jprb,1.3334e-02_jprb,1.1520e-02_jprb,9.7424e-03_jprb,8.0090e-03_jprb,6.2916e-03_jprb,&
 & 4.5326e-03_jprb,2.6753e-03_jprb,1.9077e+00_jprb/)  
kao( :, 2,11, 9) = (/&
 & 1.5822e-02_jprb,1.3943e-02_jprb,1.2110e-02_jprb,1.0341e-02_jprb,8.6186e-03_jprb,6.8684e-03_jprb,&
 & 5.0259e-03_jprb,3.0456e-03_jprb,2.2451e+00_jprb/)  
kao( :, 3,11, 9) = (/&
 & 1.6607e-02_jprb,1.4701e-02_jprb,1.2884e-02_jprb,1.1139e-02_jprb,9.4122e-03_jprb,7.5743e-03_jprb,&
 & 5.6288e-03_jprb,3.4987e-03_jprb,2.6727e+00_jprb/)  

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


SUBROUTINE part7

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


kao( :, 4,11, 9) = (/&
 & 1.7478e-02_jprb,1.5574e-02_jprb,1.3803e-02_jprb,1.2100e-02_jprb,1.0320e-02_jprb,8.3983e-03_jprb,&
 & 6.3281e-03_jprb,4.0305e-03_jprb,3.1969e+00_jprb/)  
kao( :, 5,11, 9) = (/&
 & 1.8411e-02_jprb,1.6558e-02_jprb,1.4871e-02_jprb,1.3181e-02_jprb,1.1341e-02_jprb,9.3258e-03_jprb,&
 & 7.1170e-03_jprb,4.6613e-03_jprb,3.8404e+00_jprb/)  
kao( :, 1,12, 9) = (/&
 & 1.3941e-02_jprb,1.2255e-02_jprb,1.0613e-02_jprb,9.0147e-03_jprb,7.4482e-03_jprb,5.8708e-03_jprb,&
 & 4.2432e-03_jprb,2.5105e-03_jprb,2.4052e+00_jprb/)  
kao( :, 2,12, 9) = (/&
 & 1.4580e-02_jprb,1.2868e-02_jprb,1.1223e-02_jprb,9.6378e-03_jprb,8.0671e-03_jprb,6.4400e-03_jprb,&
 & 4.7289e-03_jprb,2.8707e-03_jprb,2.7400e+00_jprb/)  
kao( :, 3,12, 9) = (/&
 & 1.5332e-02_jprb,1.3609e-02_jprb,1.1989e-02_jprb,1.0428e-02_jprb,8.8315e-03_jprb,7.1273e-03_jprb,&
 & 5.3125e-03_jprb,3.3035e-03_jprb,3.1791e+00_jprb/)  
kao( :, 4,12, 9) = (/&
 & 1.6161e-02_jprb,1.4458e-02_jprb,1.2893e-02_jprb,1.1362e-02_jprb,9.7096e-03_jprb,7.9231e-03_jprb,&
 & 5.9850e-03_jprb,3.8141e-03_jprb,3.7447e+00_jprb/)  
kao( :, 5,12, 9) = (/&
 & 1.7070e-02_jprb,1.5426e-02_jprb,1.3937e-02_jprb,1.2403e-02_jprb,1.0694e-02_jprb,8.8139e-03_jprb,&
 & 6.7376e-03_jprb,4.4323e-03_jprb,4.4627e+00_jprb/)  
kao( :, 1,13, 9) = (/&
 & 1.2794e-02_jprb,1.1266e-02_jprb,9.7854e-03_jprb,8.3492e-03_jprb,6.9236e-03_jprb,5.4666e-03_jprb,&
 & 3.9567e-03_jprb,2.3393e-03_jprb,2.6597e+00_jprb/)  
kao( :, 2,13, 9) = (/&
 & 1.3432e-02_jprb,1.1882e-02_jprb,1.0408e-02_jprb,8.9833e-03_jprb,7.5382e-03_jprb,6.0260e-03_jprb,&
 & 4.4305e-03_jprb,2.6861e-03_jprb,2.9232e+00_jprb/)  
kao( :, 3,13, 9) = (/&
 & 1.4173e-02_jprb,1.2623e-02_jprb,1.1177e-02_jprb,9.7661e-03_jprb,8.2766e-03_jprb,6.6966e-03_jprb,&
 & 4.9881e-03_jprb,3.0967e-03_jprb,3.2802e+00_jprb/)  
kao( :, 4,13, 9) = (/&
 & 1.5004e-02_jprb,1.3479e-02_jprb,1.2087e-02_jprb,1.0672e-02_jprb,9.1287e-03_jprb,7.4565e-03_jprb,&
 & 5.6287e-03_jprb,3.5870e-03_jprb,3.7540e+00_jprb/)  
kao( :, 5,13, 9) = (/&
 & 1.5937e-02_jprb,1.4472e-02_jprb,1.3138e-02_jprb,1.1698e-02_jprb,1.0080e-02_jprb,8.3092e-03_jprb,&
 & 6.3550e-03_jprb,4.1944e-03_jprb,4.3785e+00_jprb/)  
kao( :, 1, 1,10) = (/&
 & 2.6762e-02_jprb,2.3836e-02_jprb,2.1231e-02_jprb,1.8931e-02_jprb,1.6906e-02_jprb,1.4777e-02_jprb,&
 & 1.3342e-02_jprb,1.2105e-02_jprb,1.6563e-02_jprb/)  
kao( :, 2, 1,10) = (/&
 & 2.9265e-02_jprb,2.6518e-02_jprb,2.4370e-02_jprb,2.2173e-02_jprb,2.0444e-02_jprb,1.8164e-02_jprb,&
 & 1.7054e-02_jprb,1.5689e-02_jprb,2.1225e-02_jprb/)  
kao( :, 3, 1,10) = (/&
 & 3.2760e-02_jprb,2.9967e-02_jprb,2.8038e-02_jprb,2.6333e-02_jprb,2.4279e-02_jprb,2.2399e-02_jprb,&
 & 2.1466e-02_jprb,1.9893e-02_jprb,2.6794e-02_jprb/)  
kao( :, 4, 1,10) = (/&
 & 3.6728e-02_jprb,3.3924e-02_jprb,3.2080e-02_jprb,3.0665e-02_jprb,2.8563e-02_jprb,2.7253e-02_jprb,&
 & 2.6630e-02_jprb,2.4967e-02_jprb,3.3311e-02_jprb/)  
kao( :, 5, 1,10) = (/&
 & 4.1067e-02_jprb,3.8420e-02_jprb,3.6876e-02_jprb,3.5143e-02_jprb,3.3523e-02_jprb,3.2742e-02_jprb,&
 & 3.2418e-02_jprb,3.0721e-02_jprb,4.0819e-02_jprb/)  
kao( :, 1, 2,10) = (/&
 & 2.8605e-02_jprb,2.5321e-02_jprb,2.2167e-02_jprb,1.9077e-02_jprb,1.6173e-02_jprb,1.3425e-02_jprb,&
 & 1.2233e-02_jprb,1.1219e-02_jprb,1.7512e-02_jprb/)  
kao( :, 2, 2,10) = (/&
 & 3.0223e-02_jprb,2.6983e-02_jprb,2.4080e-02_jprb,2.1317e-02_jprb,1.8746e-02_jprb,1.6523e-02_jprb,&
 & 1.5770e-02_jprb,1.4686e-02_jprb,2.2528e-02_jprb/)  
kao( :, 3, 2,10) = (/&
 & 3.2701e-02_jprb,2.9579e-02_jprb,2.6971e-02_jprb,2.4770e-02_jprb,2.2162e-02_jprb,2.0505e-02_jprb,&
 & 1.9969e-02_jprb,1.8858e-02_jprb,2.8417e-02_jprb/)  
kao( :, 4, 2,10) = (/&
 & 3.6116e-02_jprb,3.3194e-02_jprb,3.0876e-02_jprb,2.8651e-02_jprb,2.6284e-02_jprb,2.5161e-02_jprb,&
 & 2.4787e-02_jprb,2.3679e-02_jprb,3.5174e-02_jprb/)  
kao( :, 5, 2,10) = (/&
 & 4.0224e-02_jprb,3.7508e-02_jprb,3.5629e-02_jprb,3.3002e-02_jprb,3.1044e-02_jprb,3.0447e-02_jprb,&
 & 3.0074e-02_jprb,2.9018e-02_jprb,4.2802e-02_jprb/)  
kao( :, 1, 3,10) = (/&
 & 3.1173e-02_jprb,2.7478e-02_jprb,2.3852e-02_jprb,2.0280e-02_jprb,1.6676e-02_jprb,1.3128e-02_jprb,&
 & 1.0535e-02_jprb,9.7264e-03_jprb,2.0918e-02_jprb/)  
kao( :, 2, 3,10) = (/&
 & 3.2510e-02_jprb,2.8808e-02_jprb,2.5249e-02_jprb,2.1598e-02_jprb,1.8067e-02_jprb,1.5028e-02_jprb,&
 & 1.3592e-02_jprb,1.2783e-02_jprb,2.6767e-02_jprb/)  
kao( :, 3, 3,10) = (/&
 & 3.4191e-02_jprb,3.0498e-02_jprb,2.6966e-02_jprb,2.3575e-02_jprb,2.0182e-02_jprb,1.8352e-02_jprb,&
 & 1.7404e-02_jprb,1.6536e-02_jprb,3.3672e-02_jprb/)  
kao( :, 4, 3,10) = (/&
 & 3.6367e-02_jprb,3.2714e-02_jprb,2.9565e-02_jprb,2.6531e-02_jprb,2.3647e-02_jprb,2.2602e-02_jprb,&
 & 2.1804e-02_jprb,2.0933e-02_jprb,4.1820e-02_jprb/)  
kao( :, 5, 3,10) = (/&
 & 3.9166e-02_jprb,3.5919e-02_jprb,3.3501e-02_jprb,3.0557e-02_jprb,2.8090e-02_jprb,2.7339e-02_jprb,&
 & 2.6717e-02_jprb,2.5907e-02_jprb,5.1316e-02_jprb/)  
kao( :, 1, 4,10) = (/&
 & 3.4066e-02_jprb,2.9987e-02_jprb,2.5967e-02_jprb,2.1961e-02_jprb,1.7860e-02_jprb,1.3888e-02_jprb,&
 & 1.0186e-02_jprb,8.1254e-03_jprb,2.9250e-02_jprb/)  
kao( :, 2, 4,10) = (/&
 & 3.5460e-02_jprb,3.1308e-02_jprb,2.7262e-02_jprb,2.3213e-02_jprb,1.9156e-02_jprb,1.5144e-02_jprb,&
 & 1.1782e-02_jprb,1.0834e-02_jprb,3.8098e-02_jprb/)  
kao( :, 3, 4,10) = (/&
 & 3.6874e-02_jprb,3.2726e-02_jprb,2.8680e-02_jprb,2.4650e-02_jprb,2.0393e-02_jprb,1.6831e-02_jprb,&
 & 1.4883e-02_jprb,1.4098e-02_jprb,4.8024e-02_jprb/)  
kao( :, 4, 4,10) = (/&
 & 3.8521e-02_jprb,3.4326e-02_jprb,3.0378e-02_jprb,2.6392e-02_jprb,2.2432e-02_jprb,1.9980e-02_jprb,&
 & 1.8770e-02_jprb,1.7981e-02_jprb,5.9374e-02_jprb/)  
kao( :, 5, 4,10) = (/&
 & 4.0371e-02_jprb,3.6305e-02_jprb,3.2708e-02_jprb,2.8856e-02_jprb,2.5853e-02_jprb,2.4145e-02_jprb,&
 & 2.3195e-02_jprb,2.2463e-02_jprb,7.2233e-02_jprb/)  
kao( :, 1, 5,10) = (/&
 & 3.6434e-02_jprb,3.2049e-02_jprb,2.7755e-02_jprb,2.3391e-02_jprb,1.9132e-02_jprb,1.4843e-02_jprb,&
 & 1.0790e-02_jprb,6.8244e-03_jprb,4.2858e-02_jprb/)  
kao( :, 2, 5,10) = (/&
 & 3.8052e-02_jprb,3.3555e-02_jprb,2.9121e-02_jprb,2.4755e-02_jprb,2.0357e-02_jprb,1.6002e-02_jprb,&
 & 1.1813e-02_jprb,9.0432e-03_jprb,5.4802e-02_jprb/)  
kao( :, 3, 5,10) = (/&
 & 3.9720e-02_jprb,3.5157e-02_jprb,3.0682e-02_jprb,2.6285e-02_jprb,2.1672e-02_jprb,1.7348e-02_jprb,&
 & 1.3380e-02_jprb,1.1960e-02_jprb,7.0286e-02_jprb/)  
kao( :, 4, 5,10) = (/&
 & 4.1616e-02_jprb,3.6963e-02_jprb,3.2456e-02_jprb,2.8024e-02_jprb,2.3329e-02_jprb,1.9031e-02_jprb,&
 & 1.6245e-02_jprb,1.5312e-02_jprb,8.8323e-02_jprb/)  
kao( :, 5, 5,10) = (/&
 & 4.3467e-02_jprb,3.8778e-02_jprb,3.4533e-02_jprb,2.9811e-02_jprb,2.5445e-02_jprb,2.1728e-02_jprb,&
 & 2.0136e-02_jprb,1.9200e-02_jprb,1.0804e-01_jprb/)  
kao( :, 1, 6,10) = (/&
 & 3.9016e-02_jprb,3.4252e-02_jprb,2.9584e-02_jprb,2.4915e-02_jprb,2.0266e-02_jprb,1.5607e-02_jprb,&
 & 1.1369e-02_jprb,6.7556e-03_jprb,6.7432e-02_jprb/)  
kao( :, 2, 6,10) = (/&
 & 4.0452e-02_jprb,3.5642e-02_jprb,3.0903e-02_jprb,2.6184e-02_jprb,2.1443e-02_jprb,1.6916e-02_jprb,&
 & 1.2438e-02_jprb,7.7587e-03_jprb,8.0666e-02_jprb/)  
kao( :, 3, 6,10) = (/&
 & 4.2155e-02_jprb,3.7272e-02_jprb,3.2474e-02_jprb,2.7702e-02_jprb,2.2975e-02_jprb,1.8296e-02_jprb,&
 & 1.3696e-02_jprb,9.8129e-03_jprb,9.9349e-02_jprb/)  
kao( :, 4, 6,10) = (/&
 & 4.4121e-02_jprb,3.9182e-02_jprb,3.4311e-02_jprb,2.9590e-02_jprb,2.4570e-02_jprb,1.9828e-02_jprb,&
 & 1.5267e-02_jprb,1.2859e-02_jprb,1.2445e-01_jprb/)  
kao( :, 5, 6,10) = (/&
 & 4.6213e-02_jprb,4.1161e-02_jprb,3.6458e-02_jprb,3.1468e-02_jprb,2.6559e-02_jprb,2.1785e-02_jprb,&
 & 1.7650e-02_jprb,1.6392e-02_jprb,1.5469e-01_jprb/)  
kao( :, 1, 7,10) = (/&
 & 4.1359e-02_jprb,3.6208e-02_jprb,3.1312e-02_jprb,2.6328e-02_jprb,2.1267e-02_jprb,1.6329e-02_jprb,&
 & 1.1827e-02_jprb,6.9169e-03_jprb,1.1368e-01_jprb/)  
kao( :, 2, 7,10) = (/&
 & 4.2810e-02_jprb,3.7687e-02_jprb,3.2642e-02_jprb,2.7514e-02_jprb,2.2469e-02_jprb,1.7642e-02_jprb,&
 & 1.2961e-02_jprb,7.8247e-03_jprb,1.3536e-01_jprb/)  
kao( :, 3, 7,10) = (/&
 & 4.4524e-02_jprb,3.9305e-02_jprb,3.4135e-02_jprb,2.9034e-02_jprb,2.4045e-02_jprb,1.9110e-02_jprb,&
 & 1.4148e-02_jprb,8.9564e-03_jprb,1.6103e-01_jprb/)  
kao( :, 4, 7,10) = (/&
 & 4.6334e-02_jprb,4.1093e-02_jprb,3.5887e-02_jprb,3.0860e-02_jprb,2.5799e-02_jprb,2.0761e-02_jprb,&
 & 1.5735e-02_jprb,1.0795e-02_jprb,1.9350e-01_jprb/)  
kao( :, 5, 7,10) = (/&
 & 4.8572e-02_jprb,4.3224e-02_jprb,3.8076e-02_jprb,3.3049e-02_jprb,2.7908e-02_jprb,2.2762e-02_jprb,&
 & 1.7415e-02_jprb,1.3780e-02_jprb,2.3787e-01_jprb/)  
kao( :, 1, 8,10) = (/&
 & 4.3378e-02_jprb,3.7958e-02_jprb,3.2795e-02_jprb,2.7505e-02_jprb,2.2211e-02_jprb,1.6954e-02_jprb,&
 & 1.2107e-02_jprb,7.0694e-03_jprb,2.2556e-01_jprb/)  
kao( :, 2, 8,10) = (/&
 & 4.4773e-02_jprb,3.9362e-02_jprb,3.4029e-02_jprb,2.8646e-02_jprb,2.3299e-02_jprb,1.8142e-02_jprb,&
 & 1.3413e-02_jprb,7.9253e-03_jprb,2.7089e-01_jprb/)  
kao( :, 3, 8,10) = (/&
 & 4.6409e-02_jprb,4.0922e-02_jprb,3.5484e-02_jprb,3.0037e-02_jprb,2.4685e-02_jprb,1.9797e-02_jprb,&
 & 1.4575e-02_jprb,9.0349e-03_jprb,3.2354e-01_jprb/)  
kao( :, 4, 8,10) = (/&
 & 4.8517e-02_jprb,4.2960e-02_jprb,3.7415e-02_jprb,3.1998e-02_jprb,2.6730e-02_jprb,2.1507e-02_jprb,&
 & 1.6141e-02_jprb,1.0325e-02_jprb,3.8344e-01_jprb/)  
kao( :, 5, 8,10) = (/&
 & 5.0774e-02_jprb,4.5143e-02_jprb,3.9523e-02_jprb,3.4165e-02_jprb,2.9055e-02_jprb,2.3639e-02_jprb,&
 & 1.7862e-02_jprb,1.1998e-02_jprb,4.5852e-01_jprb/)  
kao( :, 1, 9,10) = (/&
 & 4.4741e-02_jprb,3.9148e-02_jprb,3.3761e-02_jprb,2.8274e-02_jprb,2.2811e-02_jprb,1.7318e-02_jprb,&
 & 1.2244e-02_jprb,7.1252e-03_jprb,8.3568e-01_jprb/)  
kao( :, 2, 9,10) = (/&
 & 4.6123e-02_jprb,4.0465e-02_jprb,3.4958e-02_jprb,2.9415e-02_jprb,2.3808e-02_jprb,1.8402e-02_jprb,&
 & 1.3524e-02_jprb,7.9651e-03_jprb,1.0063e+00_jprb/)  
kao( :, 3, 9,10) = (/&
 & 4.7534e-02_jprb,4.1886e-02_jprb,3.6283e-02_jprb,3.0629e-02_jprb,2.4989e-02_jprb,2.0028e-02_jprb,&
 & 1.4812e-02_jprb,9.0475e-03_jprb,1.2094e+00_jprb/)  
kao( :, 4, 9,10) = (/&
 & 4.9654e-02_jprb,4.3880e-02_jprb,3.8124e-02_jprb,3.2363e-02_jprb,2.7020e-02_jprb,2.1905e-02_jprb,&
 & 1.6314e-02_jprb,1.0326e-02_jprb,1.4400e+00_jprb/)  
kao( :, 5, 9,10) = (/&
 & 5.2092e-02_jprb,4.6279e-02_jprb,4.0415e-02_jprb,3.4883e-02_jprb,2.9494e-02_jprb,2.4010e-02_jprb,&
 & 1.8108e-02_jprb,1.1750e-02_jprb,1.7026e+00_jprb/)  
kao( :, 1,10,10) = (/&
 & 4.5400e-02_jprb,3.9727e-02_jprb,3.4202e-02_jprb,2.8645e-02_jprb,2.3051e-02_jprb,1.7520e-02_jprb,&
 & 1.2293e-02_jprb,7.0668e-03_jprb,3.4266e+00_jprb/)  
kao( :, 2,10,10) = (/&
 & 4.6758e-02_jprb,4.0959e-02_jprb,3.5395e-02_jprb,2.9735e-02_jprb,2.3996e-02_jprb,1.8576e-02_jprb,&
 & 1.3516e-02_jprb,7.9973e-03_jprb,4.1099e+00_jprb/)  
kao( :, 3,10,10) = (/&
 & 4.8048e-02_jprb,4.2318e-02_jprb,3.6627e-02_jprb,3.0846e-02_jprb,2.5140e-02_jprb,2.0176e-02_jprb,&
 & 1.4829e-02_jprb,9.0540e-03_jprb,4.9855e+00_jprb/)  
kao( :, 4,10,10) = (/&
 & 4.9997e-02_jprb,4.4155e-02_jprb,3.8326e-02_jprb,3.2491e-02_jprb,2.7179e-02_jprb,2.1979e-02_jprb,&
 & 1.6362e-02_jprb,1.0317e-02_jprb,6.0098e+00_jprb/)  
kao( :, 5,10,10) = (/&
 & 5.2444e-02_jprb,4.6561e-02_jprb,4.0609e-02_jprb,3.4910e-02_jprb,2.9562e-02_jprb,2.4235e-02_jprb,&
 & 1.8223e-02_jprb,1.1743e-02_jprb,7.1315e+00_jprb/)  
kao( :, 1,11,10) = (/&
 & 4.5658e-02_jprb,3.9952e-02_jprb,3.4443e-02_jprb,2.8833e-02_jprb,2.3231e-02_jprb,1.7803e-02_jprb,&
 & 1.2587e-02_jprb,7.2875e-03_jprb,5.3649e+00_jprb/)  
kao( :, 2,11,10) = (/&
 & 4.6850e-02_jprb,4.1124e-02_jprb,3.5510e-02_jprb,2.9860e-02_jprb,2.4205e-02_jprb,1.8972e-02_jprb,&
 & 1.3852e-02_jprb,8.2974e-03_jprb,6.4734e+00_jprb/)  
kao( :, 3,11,10) = (/&
 & 4.8321e-02_jprb,4.2589e-02_jprb,3.6878e-02_jprb,3.1119e-02_jprb,2.5570e-02_jprb,2.0721e-02_jprb,&
 & 1.5183e-02_jprb,9.4279e-03_jprb,7.8016e+00_jprb/)  
kao( :, 4,11,10) = (/&
 & 5.0607e-02_jprb,4.4776e-02_jprb,3.8924e-02_jprb,3.3081e-02_jprb,2.7944e-02_jprb,2.2646e-02_jprb,&
 & 1.6967e-02_jprb,1.0786e-02_jprb,9.3814e+00_jprb/)  
kao( :, 5,11,10) = (/&
 & 5.3189e-02_jprb,4.7267e-02_jprb,4.1301e-02_jprb,3.5698e-02_jprb,3.0480e-02_jprb,2.5061e-02_jprb,&
 & 1.9030e-02_jprb,1.2260e-02_jprb,1.1143e+01_jprb/)  
kao( :, 1,12,10) = (/&
 & 4.4854e-02_jprb,3.9248e-02_jprb,3.3879e-02_jprb,2.8362e-02_jprb,2.2914e-02_jprb,1.7730e-02_jprb,&
 & 1.2612e-02_jprb,7.3730e-03_jprb,6.1785e+00_jprb/)  
kao( :, 2,12,10) = (/&
 & 4.6033e-02_jprb,4.0478e-02_jprb,3.4947e-02_jprb,2.9376e-02_jprb,2.4012e-02_jprb,1.9043e-02_jprb,&
 & 1.3870e-02_jprb,8.4065e-03_jprb,7.5551e+00_jprb/)  
kao( :, 3,12,10) = (/&
 & 4.7929e-02_jprb,4.2284e-02_jprb,3.6631e-02_jprb,3.0973e-02_jprb,2.5841e-02_jprb,2.0835e-02_jprb,&
 & 1.5374e-02_jprb,9.6454e-03_jprb,9.2004e+00_jprb/)  
kao( :, 4,12,10) = (/&
 & 5.0374e-02_jprb,4.4657e-02_jprb,3.8857e-02_jprb,3.3248e-02_jprb,2.8288e-02_jprb,2.3006e-02_jprb,&
 & 1.7300e-02_jprb,1.1060e-02_jprb,1.0995e+01_jprb/)  
kao( :, 5,12,10) = (/&
 & 5.3127e-02_jprb,4.7293e-02_jprb,4.1498e-02_jprb,3.6136e-02_jprb,3.1085e-02_jprb,2.5531e-02_jprb,&
 & 1.9582e-02_jprb,1.2642e-02_jprb,1.3019e+01_jprb/)  
kao( :, 1,13,10) = (/&
 & 4.3325e-02_jprb,3.7930e-02_jprb,3.2755e-02_jprb,2.7447e-02_jprb,2.2319e-02_jprb,1.7411e-02_jprb,&
 & 1.2453e-02_jprb,7.3368e-03_jprb,5.8866e+00_jprb/)  
kao( :, 2,13,10) = (/&
 & 4.4885e-02_jprb,3.9512e-02_jprb,3.4133e-02_jprb,2.8720e-02_jprb,2.3711e-02_jprb,1.8875e-02_jprb,&
 & 1.3756e-02_jprb,8.3802e-03_jprb,7.1313e+00_jprb/)  
kao( :, 3,13,10) = (/&
 & 4.7105e-02_jprb,4.1602e-02_jprb,3.6075e-02_jprb,3.0646e-02_jprb,2.5891e-02_jprb,2.0741e-02_jprb,&
 & 1.5481e-02_jprb,9.7027e-03_jprb,8.6483e+00_jprb/)  
kao( :, 4,13,10) = (/&
 & 4.9710e-02_jprb,4.4134e-02_jprb,3.8464e-02_jprb,3.3281e-02_jprb,2.8408e-02_jprb,2.3139e-02_jprb,&
 & 1.7501e-02_jprb,1.1201e-02_jprb,1.0384e+01_jprb/)  
kao( :, 5,13,10) = (/&
 & 5.2678e-02_jprb,4.7001e-02_jprb,4.1355e-02_jprb,3.6354e-02_jprb,3.1421e-02_jprb,2.5818e-02_jprb,&
 & 1.9874e-02_jprb,1.2850e-02_jprb,1.2332e+01_jprb/)  
kao( :, 1, 1,11) = (/&
 & 3.4006e-02_jprb,3.0838e-02_jprb,2.8315e-02_jprb,2.6031e-02_jprb,2.3204e-02_jprb,2.0875e-02_jprb,&
 & 1.7987e-02_jprb,1.5519e-02_jprb,2.1659e-02_jprb/)  
kao( :, 2, 1,11) = (/&
 & 3.8880e-02_jprb,3.5625e-02_jprb,3.3192e-02_jprb,3.0992e-02_jprb,2.8389e-02_jprb,2.5986e-02_jprb,&
 & 2.2691e-02_jprb,2.0442e-02_jprb,2.7838e-02_jprb/)  
kao( :, 3, 1,11) = (/&
 & 4.3962e-02_jprb,4.0825e-02_jprb,3.8703e-02_jprb,3.6297e-02_jprb,3.4511e-02_jprb,3.1450e-02_jprb,&
 & 2.8328e-02_jprb,2.6446e-02_jprb,3.5353e-02_jprb/)  
kao( :, 4, 1,11) = (/&
 & 4.9311e-02_jprb,4.6293e-02_jprb,4.4623e-02_jprb,4.2521e-02_jprb,4.0745e-02_jprb,3.7590e-02_jprb,&
 & 3.5066e-02_jprb,3.3577e-02_jprb,4.4098e-02_jprb/)  
kao( :, 5, 1,11) = (/&
 & 5.4902e-02_jprb,5.1787e-02_jprb,5.0538e-02_jprb,4.9462e-02_jprb,4.7171e-02_jprb,4.4663e-02_jprb,&
 & 4.2782e-02_jprb,4.2346e-02_jprb,5.4138e-02_jprb/)  
kao( :, 1, 2,11) = (/&
 & 3.3012e-02_jprb,2.9524e-02_jprb,2.6537e-02_jprb,2.4015e-02_jprb,2.1124e-02_jprb,1.8957e-02_jprb,&
 & 1.6213e-02_jprb,1.4498e-02_jprb,2.4045e-02_jprb/)  
kao( :, 2, 2,11) = (/&
 & 3.6932e-02_jprb,3.3550e-02_jprb,3.1000e-02_jprb,2.8534e-02_jprb,2.6293e-02_jprb,2.3594e-02_jprb,&
 & 2.0668e-02_jprb,1.9041e-02_jprb,3.0483e-02_jprb/)  
kao( :, 3, 2,11) = (/&
 & 4.1673e-02_jprb,3.8445e-02_jprb,3.6326e-02_jprb,3.3911e-02_jprb,3.1922e-02_jprb,2.8763e-02_jprb,&
 & 2.6126e-02_jprb,2.4581e-02_jprb,3.8179e-02_jprb/)  
kao( :, 4, 2,11) = (/&
 & 4.6918e-02_jprb,4.3776e-02_jprb,4.1906e-02_jprb,4.0246e-02_jprb,3.7729e-02_jprb,3.4837e-02_jprb,&
 & 3.2578e-02_jprb,3.1324e-02_jprb,4.7309e-02_jprb/)  
kao( :, 5, 2,11) = (/&
 & 5.2471e-02_jprb,4.9278e-02_jprb,4.7809e-02_jprb,4.6827e-02_jprb,4.4067e-02_jprb,4.1837e-02_jprb,&
 & 4.0124e-02_jprb,3.9172e-02_jprb,5.7813e-02_jprb/)  
kao( :, 1, 3,11) = (/&
 & 3.4501e-02_jprb,3.0473e-02_jprb,2.6575e-02_jprb,2.2929e-02_jprb,1.9181e-02_jprb,1.6191e-02_jprb,&
 & 1.4206e-02_jprb,1.2625e-02_jprb,3.1974e-02_jprb/)  
kao( :, 2, 3,11) = (/&
 & 3.6715e-02_jprb,3.2658e-02_jprb,2.9031e-02_jprb,2.5829e-02_jprb,2.3118e-02_jprb,2.0224e-02_jprb,&
 & 1.8346e-02_jprb,1.6857e-02_jprb,4.0926e-02_jprb/)  
kao( :, 3, 3,11) = (/&
 & 3.9788e-02_jprb,3.6029e-02_jprb,3.3165e-02_jprb,3.0553e-02_jprb,2.7991e-02_jprb,2.5038e-02_jprb,&
 & 2.3354e-02_jprb,2.2060e-02_jprb,5.0503e-02_jprb/)  
kao( :, 4, 3,11) = (/&
 & 4.4214e-02_jprb,4.0649e-02_jprb,3.8329e-02_jprb,3.6284e-02_jprb,3.3473e-02_jprb,3.0774e-02_jprb,&
 & 2.9336e-02_jprb,2.8146e-02_jprb,6.1109e-02_jprb/)  
kao( :, 5, 3,11) = (/&
 & 4.9685e-02_jprb,4.6100e-02_jprb,4.4117e-02_jprb,4.2257e-02_jprb,3.9617e-02_jprb,3.7525e-02_jprb,&
 & 3.6458e-02_jprb,3.5132e-02_jprb,7.3052e-02_jprb/)  
kao( :, 1, 4,11) = (/&
 & 3.7701e-02_jprb,3.3183e-02_jprb,2.8775e-02_jprb,2.4369e-02_jprb,1.9949e-02_jprb,1.5608e-02_jprb,&
 & 1.2337e-02_jprb,1.0909e-02_jprb,4.5234e-02_jprb/)  
kao( :, 2, 4,11) = (/&
 & 3.9570e-02_jprb,3.4927e-02_jprb,3.0377e-02_jprb,2.5987e-02_jprb,2.1638e-02_jprb,1.7716e-02_jprb,&
 & 1.5957e-02_jprb,1.4485e-02_jprb,5.8101e-02_jprb/)  
kao( :, 3, 4,11) = (/&
 & 4.1487e-02_jprb,3.6886e-02_jprb,3.2552e-02_jprb,2.8478e-02_jprb,2.4613e-02_jprb,2.1797e-02_jprb,&
 & 2.0639e-02_jprb,1.9138e-02_jprb,7.3443e-02_jprb/)  
kao( :, 4, 4,11) = (/&
 & 4.4074e-02_jprb,3.9637e-02_jprb,3.5709e-02_jprb,3.2584e-02_jprb,2.9098e-02_jprb,2.7106e-02_jprb,&
 & 2.6271e-02_jprb,2.4880e-02_jprb,9.0496e-02_jprb/)  
kao( :, 5, 4,11) = (/&
 & 4.7920e-02_jprb,4.3761e-02_jprb,4.0716e-02_jprb,3.7902e-02_jprb,3.4829e-02_jprb,3.3417e-02_jprb,&
 & 3.2862e-02_jprb,3.1333e-02_jprb,1.0813e-01_jprb/)  

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


SUBROUTINE part8

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


kao( :, 1, 5,11) = (/&
 & 4.1870e-02_jprb,3.6784e-02_jprb,3.1817e-02_jprb,2.6817e-02_jprb,2.1907e-02_jprb,1.6884e-02_jprb,&
 & 1.2273e-02_jprb,9.3968e-03_jprb,6.4840e-02_jprb/)  
kao( :, 2, 5,11) = (/&
 & 4.3297e-02_jprb,3.8168e-02_jprb,3.3137e-02_jprb,2.8168e-02_jprb,2.3151e-02_jprb,1.8216e-02_jprb,&
 & 1.4106e-02_jprb,1.2594e-02_jprb,8.4416e-02_jprb/)  
kao( :, 3, 5,11) = (/&
 & 4.5197e-02_jprb,3.9955e-02_jprb,3.4866e-02_jprb,2.9774e-02_jprb,2.4780e-02_jprb,2.0210e-02_jprb,&
 & 1.7877e-02_jprb,1.6653e-02_jprb,1.0767e-01_jprb/)  
kao( :, 4, 5,11) = (/&
 & 4.7208e-02_jprb,4.1906e-02_jprb,3.6778e-02_jprb,3.1900e-02_jprb,2.6959e-02_jprb,2.4148e-02_jprb,&
 & 2.3054e-02_jprb,2.1659e-02_jprb,1.3362e-01_jprb/)  
kao( :, 5, 5,11) = (/&
 & 4.9723e-02_jprb,4.4415e-02_jprb,3.9606e-02_jprb,3.5130e-02_jprb,3.1176e-02_jprb,2.9987e-02_jprb,&
 & 2.9188e-02_jprb,2.7574e-02_jprb,1.6267e-01_jprb/)  
kao( :, 1, 6,11) = (/&
 & 4.6177e-02_jprb,4.0428e-02_jprb,3.5000e-02_jprb,2.9479e-02_jprb,2.3910e-02_jprb,1.8380e-02_jprb,&
 & 1.3182e-02_jprb,8.0681e-03_jprb,9.4271e-02_jprb/)  
kao( :, 2, 6,11) = (/&
 & 4.7848e-02_jprb,4.2133e-02_jprb,3.6528e-02_jprb,3.0847e-02_jprb,2.5231e-02_jprb,1.9720e-02_jprb,&
 & 1.4391e-02_jprb,1.0657e-02_jprb,1.2169e-01_jprb/)  
kao( :, 3, 6,11) = (/&
 & 4.9573e-02_jprb,4.3747e-02_jprb,3.7998e-02_jprb,3.2369e-02_jprb,2.6844e-02_jprb,2.1245e-02_jprb,&
 & 1.6159e-02_jprb,1.4369e-02_jprb,1.5614e-01_jprb/)  
kao( :, 4, 6,11) = (/&
 & 5.1449e-02_jprb,4.5620e-02_jprb,3.9881e-02_jprb,3.4359e-02_jprb,2.8492e-02_jprb,2.3216e-02_jprb,&
 & 1.9980e-02_jprb,1.8809e-02_jprb,1.9622e-01_jprb/)  
kao( :, 5, 6,11) = (/&
 & 5.3758e-02_jprb,4.7819e-02_jprb,4.2046e-02_jprb,3.6553e-02_jprb,3.0747e-02_jprb,2.6899e-02_jprb,&
 & 2.5355e-02_jprb,2.3973e-02_jprb,2.4061e-01_jprb/)  
kao( :, 1, 7,11) = (/&
 & 5.0539e-02_jprb,4.4226e-02_jprb,3.8237e-02_jprb,3.2119e-02_jprb,2.5955e-02_jprb,1.9850e-02_jprb,&
 & 1.4014e-02_jprb,8.2656e-03_jprb,1.5715e-01_jprb/)  
kao( :, 2, 7,11) = (/&
 & 5.2213e-02_jprb,4.5893e-02_jprb,3.9703e-02_jprb,3.3446e-02_jprb,2.7259e-02_jprb,2.1129e-02_jprb,&
 & 1.5451e-02_jprb,9.4123e-03_jprb,1.9172e-01_jprb/)  
kao( :, 3, 7,11) = (/&
 & 5.3964e-02_jprb,4.7586e-02_jprb,4.1300e-02_jprb,3.5018e-02_jprb,2.8812e-02_jprb,2.2874e-02_jprb,&
 & 1.6862e-02_jprb,1.2078e-02_jprb,2.4474e-01_jprb/)  
kao( :, 4, 7,11) = (/&
 & 5.6281e-02_jprb,4.9820e-02_jprb,4.3435e-02_jprb,3.7102e-02_jprb,3.0863e-02_jprb,2.4675e-02_jprb,&
 & 1.8760e-02_jprb,1.6116e-02_jprb,3.1097e-01_jprb/)  
kao( :, 5, 7,11) = (/&
 & 5.8608e-02_jprb,5.2097e-02_jprb,4.5621e-02_jprb,3.9415e-02_jprb,3.3038e-02_jprb,2.6921e-02_jprb,&
 & 2.2270e-02_jprb,2.0802e-02_jprb,3.8459e-01_jprb/)  
kao( :, 1, 8,11) = (/&
 & 5.4836e-02_jprb,4.7985e-02_jprb,4.1396e-02_jprb,3.4685e-02_jprb,2.8011e-02_jprb,2.1239e-02_jprb,&
 & 1.4808e-02_jprb,8.7162e-03_jprb,3.2201e-01_jprb/)  
kao( :, 2, 8,11) = (/&
 & 5.6598e-02_jprb,4.9598e-02_jprb,4.2901e-02_jprb,3.6120e-02_jprb,2.9254e-02_jprb,2.2462e-02_jprb,&
 & 1.6430e-02_jprb,9.7013e-03_jprb,3.8537e-01_jprb/)  
kao( :, 3, 8,11) = (/&
 & 5.8383e-02_jprb,5.1431e-02_jprb,4.4592e-02_jprb,3.7658e-02_jprb,3.0762e-02_jprb,2.4304e-02_jprb,&
 & 1.8006e-02_jprb,1.1047e-02_jprb,4.7230e-01_jprb/)  
kao( :, 4, 8,11) = (/&
 & 6.0542e-02_jprb,5.3465e-02_jprb,4.6470e-02_jprb,3.9515e-02_jprb,3.2802e-02_jprb,2.6370e-02_jprb,&
 & 1.9678e-02_jprb,1.3674e-02_jprb,5.9222e-01_jprb/)  
kao( :, 5, 8,11) = (/&
 & 6.3504e-02_jprb,5.6367e-02_jprb,4.9211e-02_jprb,4.2376e-02_jprb,3.5393e-02_jprb,2.8477e-02_jprb,&
 & 2.1872e-02_jprb,1.7879e-02_jprb,7.4060e-01_jprb/)  
kao( :, 1, 9,11) = (/&
 & 5.8530e-02_jprb,5.1215e-02_jprb,4.4050e-02_jprb,3.6938e-02_jprb,2.9723e-02_jprb,2.2521e-02_jprb,&
 & 1.5575e-02_jprb,8.9613e-03_jprb,1.2250e+00_jprb/)  
kao( :, 2, 9,11) = (/&
 & 6.0508e-02_jprb,5.2947e-02_jprb,4.5790e-02_jprb,3.8466e-02_jprb,3.1050e-02_jprb,2.3735e-02_jprb,&
 & 1.7082e-02_jprb,1.0081e-02_jprb,1.4743e+00_jprb/)  
kao( :, 3, 9,11) = (/&
 & 6.2412e-02_jprb,5.4914e-02_jprb,4.7544e-02_jprb,4.0031e-02_jprb,3.2611e-02_jprb,2.5512e-02_jprb,&
 & 1.8968e-02_jprb,1.1343e-02_jprb,1.7744e+00_jprb/)  
kao( :, 4, 9,11) = (/&
 & 6.4422e-02_jprb,5.6870e-02_jprb,4.9390e-02_jprb,4.1890e-02_jprb,3.4611e-02_jprb,2.7684e-02_jprb,&
 & 2.0680e-02_jprb,1.2948e-02_jprb,2.1658e+00_jprb/)  
kao( :, 5, 9,11) = (/&
 & 6.7272e-02_jprb,5.9620e-02_jprb,5.1959e-02_jprb,4.4449e-02_jprb,3.7070e-02_jprb,3.0178e-02_jprb,&
 & 2.2884e-02_jprb,1.5505e-02_jprb,2.6879e+00_jprb/)  
kao( :, 1,10,11) = (/&
 & 6.1580e-02_jprb,5.3887e-02_jprb,4.6212e-02_jprb,3.8787e-02_jprb,3.1170e-02_jprb,2.3588e-02_jprb,&
 & 1.6242e-02_jprb,9.1562e-03_jprb,5.0131e+00_jprb/)  
kao( :, 2,10,11) = (/&
 & 6.3734e-02_jprb,5.5768e-02_jprb,4.8169e-02_jprb,4.0370e-02_jprb,3.2604e-02_jprb,2.4832e-02_jprb,&
 & 1.7635e-02_jprb,1.0375e-02_jprb,6.1201e+00_jprb/)  
kao( :, 3,10,11) = (/&
 & 6.5820e-02_jprb,5.7831e-02_jprb,4.9999e-02_jprb,4.2115e-02_jprb,3.4203e-02_jprb,2.6490e-02_jprb,&
 & 1.9622e-02_jprb,1.1697e-02_jprb,7.4107e+00_jprb/)  
kao( :, 4,10,11) = (/&
 & 6.7912e-02_jprb,5.9913e-02_jprb,5.1985e-02_jprb,4.3986e-02_jprb,3.6001e-02_jprb,2.8914e-02_jprb,&
 & 2.1590e-02_jprb,1.3339e-02_jprb,9.0185e+00_jprb/)  
kao( :, 5,10,11) = (/&
 & 7.0732e-02_jprb,6.2601e-02_jprb,5.4503e-02_jprb,4.6414e-02_jprb,3.8865e-02_jprb,3.1467e-02_jprb,&
 & 2.3923e-02_jprb,1.5241e-02_jprb,1.1156e+01_jprb/)  
kao( :, 1,11,11) = (/&
 & 6.4605e-02_jprb,5.6532e-02_jprb,4.8552e-02_jprb,4.0738e-02_jprb,3.2744e-02_jprb,2.4819e-02_jprb,&
 & 1.7263e-02_jprb,9.7908e-03_jprb,7.8274e+00_jprb/)  
kao( :, 2,11,11) = (/&
 & 6.6894e-02_jprb,5.8534e-02_jprb,5.0603e-02_jprb,4.2448e-02_jprb,3.4262e-02_jprb,2.6260e-02_jprb,&
 & 1.8818e-02_jprb,1.1087e-02_jprb,9.5674e+00_jprb/)  
kao( :, 3,11,11) = (/&
 & 6.9134e-02_jprb,6.0821e-02_jprb,5.2610e-02_jprb,4.4286e-02_jprb,3.6011e-02_jprb,2.8243e-02_jprb,&
 & 2.0923e-02_jprb,1.2641e-02_jprb,1.1695e+01_jprb/)  
kao( :, 4,11,11) = (/&
 & 7.1444e-02_jprb,6.3062e-02_jprb,5.4727e-02_jprb,4.6341e-02_jprb,3.8163e-02_jprb,3.0937e-02_jprb,&
 & 2.3046e-02_jprb,1.4407e-02_jprb,1.4290e+01_jprb/)  
kao( :, 5,11,11) = (/&
 & 7.4689e-02_jprb,6.6247e-02_jprb,5.7761e-02_jprb,4.9331e-02_jprb,4.1557e-02_jprb,3.3813e-02_jprb,&
 & 2.5726e-02_jprb,1.6474e-02_jprb,1.7723e+01_jprb/)  
kao( :, 1,12,11) = (/&
 & 6.6565e-02_jprb,5.8241e-02_jprb,5.0116e-02_jprb,4.2016e-02_jprb,3.3802e-02_jprb,2.5721e-02_jprb,&
 & 1.8057e-02_jprb,1.0339e-02_jprb,9.3068e+00_jprb/)  
kao( :, 2,12,11) = (/&
 & 6.8895e-02_jprb,6.0321e-02_jprb,5.2166e-02_jprb,4.3813e-02_jprb,3.5352e-02_jprb,2.7349e-02_jprb,&
 & 1.9762e-02_jprb,1.1726e-02_jprb,1.1320e+01_jprb/)  
kao( :, 3,12,11) = (/&
 & 7.1293e-02_jprb,6.2788e-02_jprb,5.4349e-02_jprb,4.5762e-02_jprb,3.7291e-02_jprb,2.9714e-02_jprb,&
 & 2.1861e-02_jprb,1.3399e-02_jprb,1.3746e+01_jprb/)  
kao( :, 4,12,11) = (/&
 & 7.4182e-02_jprb,6.5550e-02_jprb,5.6943e-02_jprb,4.8285e-02_jprb,4.0149e-02_jprb,3.2582e-02_jprb,&
 & 2.4300e-02_jprb,1.5394e-02_jprb,1.6888e+01_jprb/)  
kao( :, 5,12,11) = (/&
 & 7.7769e-02_jprb,6.9096e-02_jprb,6.0288e-02_jprb,5.1657e-02_jprb,4.3787e-02_jprb,3.5953e-02_jprb,&
 & 2.7241e-02_jprb,1.7571e-02_jprb,2.0864e+01_jprb/)  
kao( :, 1,13,11) = (/&
 & 6.7288e-02_jprb,5.8877e-02_jprb,5.0755e-02_jprb,4.2517e-02_jprb,3.4247e-02_jprb,2.6263e-02_jprb,&
 & 1.8588e-02_jprb,1.0728e-02_jprb,8.9064e+00_jprb/)  
kao( :, 2,13,11) = (/&
 & 6.9672e-02_jprb,6.1086e-02_jprb,5.2816e-02_jprb,4.4401e-02_jprb,3.5953e-02_jprb,2.8119e-02_jprb,&
 & 2.0390e-02_jprb,1.2229e-02_jprb,1.0911e+01_jprb/)  
kao( :, 3,13,11) = (/&
 & 7.2646e-02_jprb,6.4043e-02_jprb,5.5467e-02_jprb,4.6763e-02_jprb,3.8350e-02_jprb,3.0852e-02_jprb,&
 & 2.2586e-02_jprb,1.3987e-02_jprb,1.3268e+01_jprb/)  
kao( :, 4,13,11) = (/&
 & 7.6364e-02_jprb,6.7563e-02_jprb,5.8748e-02_jprb,4.9899e-02_jprb,4.1863e-02_jprb,3.3973e-02_jprb,&
 & 2.5440e-02_jprb,1.6181e-02_jprb,1.6175e+01_jprb/)  
kao( :, 5,13,11) = (/&
 & 8.0410e-02_jprb,7.1534e-02_jprb,6.2509e-02_jprb,5.3806e-02_jprb,4.5873e-02_jprb,3.7854e-02_jprb,&
 & 2.8649e-02_jprb,1.8582e-02_jprb,1.9867e+01_jprb/)  
kao( :, 1, 1,12) = (/&
 & 4.9841e-02_jprb,4.4490e-02_jprb,4.1303e-02_jprb,3.7661e-02_jprb,3.4374e-02_jprb,3.0218e-02_jprb,&
 & 2.6408e-02_jprb,2.2425e-02_jprb,3.2278e-02_jprb/)  
kao( :, 2, 1,12) = (/&
 & 5.7650e-02_jprb,5.2260e-02_jprb,4.8821e-02_jprb,4.5102e-02_jprb,4.1618e-02_jprb,3.7433e-02_jprb,&
 & 3.4112e-02_jprb,2.9968e-02_jprb,4.1893e-02_jprb/)  
kao( :, 3, 1,12) = (/&
 & 6.5474e-02_jprb,6.0019e-02_jprb,5.6468e-02_jprb,5.3494e-02_jprb,4.9266e-02_jprb,4.6229e-02_jprb,&
 & 4.2427e-02_jprb,3.9480e-02_jprb,5.2169e-02_jprb/)  
kao( :, 4, 1,12) = (/&
 & 7.3266e-02_jprb,6.7747e-02_jprb,6.4431e-02_jprb,6.2152e-02_jprb,5.8324e-02_jprb,5.6278e-02_jprb,&
 & 5.1411e-02_jprb,5.1078e-02_jprb,6.3958e-02_jprb/)  
kao( :, 5, 1,12) = (/&
 & 8.0950e-02_jprb,7.5647e-02_jprb,7.3090e-02_jprb,7.0878e-02_jprb,6.8730e-02_jprb,6.6425e-02_jprb,&
 & 6.1537e-02_jprb,6.4721e-02_jprb,7.7752e-02_jprb/)  
kao( :, 1, 2,12) = (/&
 & 4.6529e-02_jprb,4.1918e-02_jprb,3.8638e-02_jprb,3.5085e-02_jprb,3.2117e-02_jprb,2.7976e-02_jprb,&
 & 2.4660e-02_jprb,2.0193e-02_jprb,3.6378e-02_jprb/)  
kao( :, 2, 2,12) = (/&
 & 5.4059e-02_jprb,4.9350e-02_jprb,4.6045e-02_jprb,4.2538e-02_jprb,3.9123e-02_jprb,3.5351e-02_jprb,&
 & 3.1963e-02_jprb,2.6590e-02_jprb,4.7334e-02_jprb/)  
kao( :, 3, 2,12) = (/&
 & 6.1738e-02_jprb,5.6865e-02_jprb,5.3592e-02_jprb,5.0849e-02_jprb,4.7212e-02_jprb,4.4241e-02_jprb,&
 & 3.9834e-02_jprb,3.4654e-02_jprb,5.9199e-02_jprb/)  
kao( :, 4, 2,12) = (/&
 & 6.9699e-02_jprb,6.4653e-02_jprb,6.1768e-02_jprb,5.9341e-02_jprb,5.6731e-02_jprb,5.3710e-02_jprb,&
 & 4.8897e-02_jprb,4.4731e-02_jprb,7.2042e-02_jprb/)  
kao( :, 5, 2,12) = (/&
 & 7.7745e-02_jprb,7.2901e-02_jprb,7.0552e-02_jprb,6.8743e-02_jprb,6.7472e-02_jprb,6.3767e-02_jprb,&
 & 5.9291e-02_jprb,5.7415e-02_jprb,8.6627e-02_jprb/)  
kao( :, 1, 3,12) = (/&
 & 4.2062e-02_jprb,3.7711e-02_jprb,3.4334e-02_jprb,3.0926e-02_jprb,2.8025e-02_jprb,2.4558e-02_jprb,&
 & 2.1311e-02_jprb,1.7634e-02_jprb,4.9902e-02_jprb/)  
kao( :, 2, 3,12) = (/&
 & 4.8678e-02_jprb,4.4324e-02_jprb,4.1100e-02_jprb,3.8070e-02_jprb,3.4742e-02_jprb,3.1650e-02_jprb,&
 & 2.7890e-02_jprb,2.3218e-02_jprb,6.2894e-02_jprb/)  
kao( :, 3, 3,12) = (/&
 & 5.6167e-02_jprb,5.1670e-02_jprb,4.8444e-02_jprb,4.5977e-02_jprb,4.2837e-02_jprb,4.0019e-02_jprb,&
 & 3.5364e-02_jprb,3.0176e-02_jprb,7.8591e-02_jprb/)  
kao( :, 4, 3,12) = (/&
 & 6.3921e-02_jprb,5.9620e-02_jprb,5.6596e-02_jprb,5.4403e-02_jprb,5.2332e-02_jprb,4.8849e-02_jprb,&
 & 4.4022e-02_jprb,3.8881e-02_jprb,9.6792e-02_jprb/)  
kao( :, 5, 3,12) = (/&
 & 7.1755e-02_jprb,6.7802e-02_jprb,6.5648e-02_jprb,6.4060e-02_jprb,6.2628e-02_jprb,5.8608e-02_jprb,&
 & 5.3986e-02_jprb,4.9725e-02_jprb,1.1574e-01_jprb/)  
kao( :, 1, 4,12) = (/&
 & 4.2323e-02_jprb,3.7345e-02_jprb,3.2720e-02_jprb,2.8218e-02_jprb,2.4532e-02_jprb,2.0757e-02_jprb,&
 & 1.8047e-02_jprb,1.5414e-02_jprb,7.5075e-02_jprb/)  
kao( :, 2, 4,12) = (/&
 & 4.5621e-02_jprb,4.0856e-02_jprb,3.6741e-02_jprb,3.3228e-02_jprb,3.0105e-02_jprb,2.7246e-02_jprb,&
 & 2.3891e-02_jprb,2.0542e-02_jprb,9.4476e-02_jprb/)  
kao( :, 3, 4,12) = (/&
 & 5.0938e-02_jprb,4.6389e-02_jprb,4.2972e-02_jprb,4.0292e-02_jprb,3.7820e-02_jprb,3.4834e-02_jprb,&
 & 3.0651e-02_jprb,2.6871e-02_jprb,1.1638e-01_jprb/)  
kao( :, 4, 4,12) = (/&
 & 5.7835e-02_jprb,5.3600e-02_jprb,5.0835e-02_jprb,4.8668e-02_jprb,4.6908e-02_jprb,4.3138e-02_jprb,&
 & 3.8678e-02_jprb,3.4608e-02_jprb,1.4036e-01_jprb/)  
kao( :, 5, 4,12) = (/&
 & 6.5625e-02_jprb,6.1550e-02_jprb,5.9598e-02_jprb,5.8329e-02_jprb,5.6532e-02_jprb,5.2486e-02_jprb,&
 & 4.8246e-02_jprb,4.4046e-02_jprb,1.6774e-01_jprb/)  
kao( :, 1, 5,12) = (/&
 & 4.7313e-02_jprb,4.1507e-02_jprb,3.5955e-02_jprb,3.0395e-02_jprb,2.4915e-02_jprb,1.9463e-02_jprb,&
 & 1.5471e-02_jprb,1.3526e-02_jprb,1.1349e-01_jprb/)  
kao( :, 2, 5,12) = (/&
 & 4.9244e-02_jprb,4.3467e-02_jprb,3.7885e-02_jprb,3.2452e-02_jprb,2.7414e-02_jprb,2.3444e-02_jprb,&
 & 2.0705e-02_jprb,1.8174e-02_jprb,1.4301e-01_jprb/)  
kao( :, 3, 5,12) = (/&
 & 5.1407e-02_jprb,4.5739e-02_jprb,4.0584e-02_jprb,3.6389e-02_jprb,3.2936e-02_jprb,2.9965e-02_jprb,&
 & 2.6974e-02_jprb,2.4069e-02_jprb,1.7509e-01_jprb/)  
kao( :, 4, 5,12) = (/&
 & 5.5244e-02_jprb,5.0142e-02_jprb,4.5994e-02_jprb,4.3212e-02_jprb,4.1091e-02_jprb,3.7645e-02_jprb,&
 & 3.4454e-02_jprb,3.1352e-02_jprb,2.1139e-01_jprb/)  
kao( :, 5, 5,12) = (/&
 & 6.0988e-02_jprb,5.6526e-02_jprb,5.3622e-02_jprb,5.2392e-02_jprb,5.0078e-02_jprb,4.6505e-02_jprb,&
 & 4.3357e-02_jprb,4.0176e-02_jprb,2.5233e-01_jprb/)  
kao( :, 1, 6,12) = (/&
 & 5.3543e-02_jprb,4.6854e-02_jprb,4.0556e-02_jprb,3.4124e-02_jprb,2.7581e-02_jprb,2.1205e-02_jprb,&
 & 1.5012e-02_jprb,1.1854e-02_jprb,1.6344e-01_jprb/)  
kao( :, 2, 6,12) = (/&
 & 5.5268e-02_jprb,4.8609e-02_jprb,4.2123e-02_jprb,3.5498e-02_jprb,2.9110e-02_jprb,2.2794e-02_jprb,&
 & 1.8116e-02_jprb,1.5898e-02_jprb,2.0983e-01_jprb/)  
kao( :, 3, 6,12) = (/&
 & 5.7133e-02_jprb,5.0456e-02_jprb,4.3928e-02_jprb,3.7527e-02_jprb,3.1445e-02_jprb,2.6337e-02_jprb,&
 & 2.3556e-02_jprb,2.1068e-02_jprb,2.6329e-01_jprb/)  
kao( :, 4, 6,12) = (/&
 & 5.9454e-02_jprb,5.2789e-02_jprb,4.6413e-02_jprb,4.0569e-02_jprb,3.6370e-02_jprb,3.2588e-02_jprb,&
 & 3.0510e-02_jprb,2.7765e-02_jprb,3.2205e-01_jprb/)  
kao( :, 5, 6,12) = (/&
 & 6.2205e-02_jprb,5.6007e-02_jprb,5.0615e-02_jprb,4.6993e-02_jprb,4.3715e-02_jprb,4.0774e-02_jprb,&
 & 3.8896e-02_jprb,3.6103e-02_jprb,3.8619e-01_jprb/)  
kao( :, 1, 7,12) = (/&
 & 6.0265e-02_jprb,5.2736e-02_jprb,4.5532e-02_jprb,3.8162e-02_jprb,3.0863e-02_jprb,2.3507e-02_jprb,&
 & 1.6295e-02_jprb,1.0412e-02_jprb,2.4973e-01_jprb/)  
kao( :, 2, 7,12) = (/&
 & 6.2205e-02_jprb,5.4530e-02_jprb,4.7203e-02_jprb,3.9805e-02_jprb,3.2362e-02_jprb,2.4886e-02_jprb,&
 & 1.8121e-02_jprb,1.3884e-02_jprb,3.2971e-01_jprb/)  
kao( :, 3, 7,12) = (/&
 & 6.4226e-02_jprb,5.6598e-02_jprb,4.9127e-02_jprb,4.1578e-02_jprb,3.4062e-02_jprb,2.6961e-02_jprb,&
 & 2.1190e-02_jprb,1.8496e-02_jprb,4.1960e-01_jprb/)  
kao( :, 4, 7,12) = (/&
 & 6.6268e-02_jprb,5.8530e-02_jprb,5.0921e-02_jprb,4.3485e-02_jprb,3.6432e-02_jprb,3.0158e-02_jprb,&
 & 2.6927e-02_jprb,2.4386e-02_jprb,5.2305e-01_jprb/)  
kao( :, 5, 7,12) = (/&
 & 6.9017e-02_jprb,6.1350e-02_jprb,5.3776e-02_jprb,4.6719e-02_jprb,4.0414e-02_jprb,3.6297e-02_jprb,&
 & 3.4763e-02_jprb,3.1958e-02_jprb,6.4099e-01_jprb/)  
kao( :, 1, 8,12) = (/&
 & 6.7351e-02_jprb,5.8939e-02_jprb,5.0741e-02_jprb,4.2559e-02_jprb,3.4322e-02_jprb,2.6023e-02_jprb,&
 & 1.7903e-02_jprb,1.0436e-02_jprb,4.7669e-01_jprb/)  
kao( :, 2, 8,12) = (/&
 & 6.9803e-02_jprb,6.1083e-02_jprb,5.2877e-02_jprb,4.4484e-02_jprb,3.5947e-02_jprb,2.7535e-02_jprb,&
 & 1.9536e-02_jprb,1.2383e-02_jprb,6.1756e-01_jprb/)  
kao( :, 3, 8,12) = (/&
 & 7.2114e-02_jprb,6.3433e-02_jprb,5.4955e-02_jprb,4.6298e-02_jprb,3.7783e-02_jprb,2.9395e-02_jprb,&
 & 2.1671e-02_jprb,1.6236e-02_jprb,8.0333e-01_jprb/)  
kao( :, 4, 8,12) = (/&
 & 7.4179e-02_jprb,6.5484e-02_jprb,5.6918e-02_jprb,4.8333e-02_jprb,3.9986e-02_jprb,3.1892e-02_jprb,&
 & 2.4841e-02_jprb,2.1727e-02_jprb,1.0238e+00_jprb/)  
kao( :, 5, 8,12) = (/&
 & 7.6619e-02_jprb,6.7894e-02_jprb,5.9259e-02_jprb,5.0828e-02_jprb,4.2369e-02_jprb,3.5339e-02_jprb,&
 & 3.0974e-02_jprb,2.8579e-02_jprb,1.2721e+00_jprb/)  
kao( :, 1, 9,12) = (/&
 & 7.4478e-02_jprb,6.5171e-02_jprb,5.5864e-02_jprb,4.6941e-02_jprb,3.7748e-02_jprb,2.8605e-02_jprb,&
 & 1.9435e-02_jprb,1.1004e-02_jprb,1.7884e+00_jprb/)  
kao( :, 2, 9,12) = (/&
 & 7.7257e-02_jprb,6.7603e-02_jprb,5.8386e-02_jprb,4.8944e-02_jprb,3.9580e-02_jprb,3.0097e-02_jprb,&
 & 2.0950e-02_jprb,1.2526e-02_jprb,2.2521e+00_jprb/)  
kao( :, 3, 9,12) = (/&
 & 7.9904e-02_jprb,7.0069e-02_jprb,6.0638e-02_jprb,5.1114e-02_jprb,4.1495e-02_jprb,3.1843e-02_jprb,&
 & 2.3233e-02_jprb,1.4537e-02_jprb,2.9339e+00_jprb/)  
kao( :, 4, 9,12) = (/&
 & 8.2346e-02_jprb,7.2597e-02_jprb,6.3019e-02_jprb,5.3300e-02_jprb,4.3544e-02_jprb,3.4492e-02_jprb,&
 & 2.5780e-02_jprb,1.8842e-02_jprb,3.7982e+00_jprb/)  
kao( :, 5, 9,12) = (/&
 & 8.4921e-02_jprb,7.5081e-02_jprb,6.5371e-02_jprb,5.5672e-02_jprb,4.6484e-02_jprb,3.7440e-02_jprb,&
 & 2.9153e-02_jprb,2.5208e-02_jprb,4.8104e+00_jprb/)  
kao( :, 1,10,12) = (/&
 & 8.1560e-02_jprb,7.1369e-02_jprb,6.1175e-02_jprb,5.1264e-02_jprb,4.1241e-02_jprb,3.1126e-02_jprb,&
 & 2.1112e-02_jprb,1.1696e-02_jprb,7.4468e+00_jprb/)  
kao( :, 2,10,12) = (/&
 & 8.4440e-02_jprb,7.3887e-02_jprb,6.3687e-02_jprb,5.3392e-02_jprb,4.3082e-02_jprb,3.2635e-02_jprb,&
 & 2.2609e-02_jprb,1.3248e-02_jprb,9.2981e+00_jprb/)  
kao( :, 3,10,12) = (/&
 & 8.7510e-02_jprb,7.6590e-02_jprb,6.6316e-02_jprb,5.5795e-02_jprb,4.5078e-02_jprb,3.4503e-02_jprb,&
 & 2.4942e-02_jprb,1.4958e-02_jprb,1.2082e+01_jprb/)  
kao( :, 4,10,12) = (/&
 & 9.0511e-02_jprb,7.9705e-02_jprb,6.9107e-02_jprb,5.8258e-02_jprb,4.7506e-02_jprb,3.7279e-02_jprb,&
 & 2.7590e-02_jprb,1.7415e-02_jprb,1.5900e+01_jprb/)  
kao( :, 5,10,12) = (/&
 & 9.3419e-02_jprb,8.2537e-02_jprb,7.1769e-02_jprb,6.0958e-02_jprb,5.0392e-02_jprb,4.0420e-02_jprb,&
 & 3.0465e-02_jprb,2.2350e-02_jprb,2.0480e+01_jprb/)  
kao( :, 1,11,12) = (/&
 & 8.9464e-02_jprb,7.8283e-02_jprb,6.7101e-02_jprb,5.6285e-02_jprb,4.5266e-02_jprb,3.4192e-02_jprb,&
 & 2.3302e-02_jprb,1.2995e-02_jprb,1.1790e+01_jprb/)  
kao( :, 2,11,12) = (/&
 & 9.2590e-02_jprb,8.1019e-02_jprb,6.9897e-02_jprb,5.8591e-02_jprb,4.7313e-02_jprb,3.5860e-02_jprb,&
 & 2.5050e-02_jprb,1.4711e-02_jprb,1.4906e+01_jprb/)  

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


SUBROUTINE part9

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


kao( :, 3,11,12) = (/&
 & 9.5857e-02_jprb,8.3955e-02_jprb,7.2681e-02_jprb,6.1172e-02_jprb,4.9475e-02_jprb,3.7915e-02_jprb,&
 & 2.7663e-02_jprb,1.6572e-02_jprb,1.9642e+01_jprb/)  
kao( :, 4,11,12) = (/&
 & 9.9442e-02_jprb,8.7628e-02_jprb,7.5988e-02_jprb,6.4098e-02_jprb,5.2240e-02_jprb,4.1108e-02_jprb,&
 & 3.0576e-02_jprb,1.8973e-02_jprb,2.5991e+01_jprb/)  
kao( :, 5,11,12) = (/&
 & 1.0289e-01_jprb,9.0944e-02_jprb,7.9112e-02_jprb,6.7235e-02_jprb,5.5656e-02_jprb,4.4964e-02_jprb,&
 & 3.3825e-02_jprb,2.2911e-02_jprb,3.3545e+01_jprb/)  
kao( :, 1,12,12) = (/&
 & 9.6584e-02_jprb,8.4508e-02_jprb,7.2437e-02_jprb,6.0815e-02_jprb,4.8901e-02_jprb,3.6973e-02_jprb,&
 & 2.5367e-02_jprb,1.4216e-02_jprb,1.4049e+01_jprb/)  
kao( :, 2,12,12) = (/&
 & 9.9962e-02_jprb,8.7468e-02_jprb,7.5539e-02_jprb,6.3320e-02_jprb,5.1161e-02_jprb,3.8859e-02_jprb,&
 & 2.7427e-02_jprb,1.6079e-02_jprb,1.7978e+01_jprb/)  
kao( :, 3,12,12) = (/&
 & 1.0340e-01_jprb,9.0660e-02_jprb,7.8491e-02_jprb,6.6122e-02_jprb,5.3580e-02_jprb,4.1278e-02_jprb,&
 & 3.0377e-02_jprb,1.8202e-02_jprb,2.3758e+01_jprb/)  
kao( :, 4,12,12) = (/&
 & 1.0749e-01_jprb,9.4783e-02_jprb,8.2213e-02_jprb,6.9419e-02_jprb,5.6626e-02_jprb,4.4917e-02_jprb,&
 & 3.3518e-02_jprb,2.0812e-02_jprb,3.1380e+01_jprb/)  
kao( :, 5,12,12) = (/&
 & 1.1220e-01_jprb,9.9222e-02_jprb,8.6341e-02_jprb,7.3393e-02_jprb,6.0808e-02_jprb,4.9200e-02_jprb,&
 & 3.7236e-02_jprb,2.4135e-02_jprb,4.0595e+01_jprb/)  
kao( :, 1,13,12) = (/&
 & 1.0300e-01_jprb,9.0135e-02_jprb,7.7297e-02_jprb,6.4939e-02_jprb,5.2208e-02_jprb,3.9524e-02_jprb,&
 & 2.7327e-02_jprb,1.5400e-02_jprb,1.3848e+01_jprb/)  
kao( :, 2,13,12) = (/&
 & 1.0667e-01_jprb,9.3334e-02_jprb,8.0681e-02_jprb,6.7642e-02_jprb,5.4655e-02_jprb,4.1706e-02_jprb,&
 & 2.9739e-02_jprb,1.7385e-02_jprb,1.7658e+01_jprb/)  
kao( :, 3,13,12) = (/&
 & 1.1046e-01_jprb,9.6956e-02_jprb,8.3948e-02_jprb,7.0727e-02_jprb,5.7403e-02_jprb,4.4569e-02_jprb,&
 & 3.2904e-02_jprb,1.9868e-02_jprb,2.3136e+01_jprb/)  
kao( :, 4,13,12) = (/&
 & 1.1527e-01_jprb,1.0171e-01_jprb,8.8265e-02_jprb,7.4632e-02_jprb,6.1070e-02_jprb,4.8844e-02_jprb,&
 & 3.6366e-02_jprb,2.2679e-02_jprb,3.0331e+01_jprb/)  
kao( :, 5,13,12) = (/&
 & 1.2126e-01_jprb,1.0736e-01_jprb,9.3522e-02_jprb,7.9617e-02_jprb,6.6218e-02_jprb,5.3664e-02_jprb,&
 & 4.0795e-02_jprb,2.6028e-02_jprb,3.9050e+01_jprb/)  
kao( :, 1, 1,13) = (/&
 & 7.7575e-02_jprb,6.7876e-02_jprb,6.3410e-02_jprb,5.7807e-02_jprb,5.1861e-02_jprb,4.6380e-02_jprb,&
 & 3.9791e-02_jprb,3.9685e-02_jprb,4.9236e-02_jprb/)  
kao( :, 2, 1,13) = (/&
 & 8.9138e-02_jprb,7.8170e-02_jprb,7.4208e-02_jprb,6.9230e-02_jprb,6.2955e-02_jprb,5.7605e-02_jprb,&
 & 5.0411e-02_jprb,5.4657e-02_jprb,6.4256e-02_jprb/)  
kao( :, 3, 1,13) = (/&
 & 1.0111e-01_jprb,8.9496e-02_jprb,8.5836e-02_jprb,8.0803e-02_jprb,7.5668e-02_jprb,6.9307e-02_jprb,&
 & 6.4355e-02_jprb,7.2863e-02_jprb,8.3997e-02_jprb/)  
kao( :, 4, 1,13) = (/&
 & 1.1325e-01_jprb,1.0162e-01_jprb,9.8222e-02_jprb,9.3360e-02_jprb,8.9664e-02_jprb,8.2030e-02_jprb,&
 & 8.1890e-02_jprb,9.4421e-02_jprb,1.0835e-01_jprb/)  
kao( :, 5, 1,13) = (/&
 & 1.2539e-01_jprb,1.1433e-01_jprb,1.1116e-01_jprb,1.0717e-01_jprb,1.0371e-01_jprb,9.7171e-02_jprb,&
 & 1.0295e-01_jprb,1.1937e-01_jprb,1.3710e-01_jprb/)  
kao( :, 1, 2,13) = (/&
 & 7.5084e-02_jprb,6.5711e-02_jprb,6.1443e-02_jprb,5.6215e-02_jprb,5.0525e-02_jprb,4.5190e-02_jprb,&
 & 3.8256e-02_jprb,3.4359e-02_jprb,5.8705e-02_jprb/)  
kao( :, 2, 2,13) = (/&
 & 8.7481e-02_jprb,7.7103e-02_jprb,7.2673e-02_jprb,6.7753e-02_jprb,6.2029e-02_jprb,5.6624e-02_jprb,&
 & 4.8617e-02_jprb,4.8264e-02_jprb,7.3515e-02_jprb/)  
kao( :, 3, 2,13) = (/&
 & 1.0027e-01_jprb,8.9526e-02_jprb,8.4990e-02_jprb,7.9770e-02_jprb,7.5196e-02_jprb,6.8702e-02_jprb,&
 & 6.1742e-02_jprb,6.5561e-02_jprb,9.1679e-02_jprb/)  
kao( :, 4, 2,13) = (/&
 & 1.1299e-01_jprb,1.0255e-01_jprb,9.8199e-02_jprb,9.3168e-02_jprb,8.9322e-02_jprb,8.2695e-02_jprb,&
 & 7.7970e-02_jprb,8.6300e-02_jprb,1.1329e-01_jprb/)  
kao( :, 5, 2,13) = (/&
 & 1.2555e-01_jprb,1.1568e-01_jprb,1.1171e-01_jprb,1.0774e-01_jprb,1.0377e-01_jprb,9.8889e-02_jprb,&
 & 9.7493e-02_jprb,1.1062e-01_jprb,1.3853e-01_jprb/)  
kao( :, 1, 3,13) = (/&
 & 6.9691e-02_jprb,6.1107e-02_jprb,5.6756e-02_jprb,5.1486e-02_jprb,4.6192e-02_jprb,4.1148e-02_jprb,&
 & 3.4753e-02_jprb,2.8332e-02_jprb,8.2983e-02_jprb/)  
kao( :, 2, 3,13) = (/&
 & 8.2227e-02_jprb,7.2883e-02_jprb,6.8298e-02_jprb,6.2912e-02_jprb,5.7544e-02_jprb,5.2210e-02_jprb,&
 & 4.4957e-02_jprb,4.0005e-02_jprb,1.0478e-01_jprb/)  
kao( :, 3, 3,13) = (/&
 & 9.4982e-02_jprb,8.5432e-02_jprb,8.0995e-02_jprb,7.5178e-02_jprb,7.0646e-02_jprb,6.4384e-02_jprb,&
 & 5.7678e-02_jprb,5.5116e-02_jprb,1.2972e-01_jprb/)  
kao( :, 4, 3,13) = (/&
 & 1.0814e-01_jprb,9.8743e-02_jprb,9.4541e-02_jprb,8.8889e-02_jprb,8.4938e-02_jprb,7.8960e-02_jprb,&
 & 7.3010e-02_jprb,7.4136e-02_jprb,1.5589e-01_jprb/)  
kao( :, 5, 3,13) = (/&
 & 1.2147e-01_jprb,1.1222e-01_jprb,1.0815e-01_jprb,1.0392e-01_jprb,1.0025e-01_jprb,9.5831e-02_jprb,&
 & 9.0492e-02_jprb,9.6998e-02_jprb,1.8572e-01_jprb/)  
kao( :, 1, 4,13) = (/&
 & 6.2565e-02_jprb,5.4985e-02_jprb,5.1005e-02_jprb,4.5945e-02_jprb,4.0688e-02_jprb,3.6000e-02_jprb,&
 & 3.0283e-02_jprb,2.3725e-02_jprb,1.3254e-01_jprb/)  
kao( :, 2, 4,13) = (/&
 & 7.4730e-02_jprb,6.6495e-02_jprb,6.2334e-02_jprb,5.7038e-02_jprb,5.1581e-02_jprb,4.6682e-02_jprb,&
 & 4.0217e-02_jprb,3.3423e-02_jprb,1.6553e-01_jprb/)  
kao( :, 3, 4,13) = (/&
 & 8.7721e-02_jprb,7.9227e-02_jprb,7.4754e-02_jprb,6.9285e-02_jprb,6.4310e-02_jprb,5.8891e-02_jprb,&
 & 5.2591e-02_jprb,4.6205e-02_jprb,2.0091e-01_jprb/)  
kao( :, 4, 4,13) = (/&
 & 1.0117e-01_jprb,9.2830e-02_jprb,8.8248e-02_jprb,8.2981e-02_jprb,7.8335e-02_jprb,7.3405e-02_jprb,&
 & 6.7339e-02_jprb,6.2337e-02_jprb,2.4019e-01_jprb/)  
kao( :, 5, 4,13) = (/&
 & 1.1481e-01_jprb,1.0652e-01_jprb,1.0206e-01_jprb,9.8001e-02_jprb,9.4065e-02_jprb,9.0188e-02_jprb,&
 & 8.3658e-02_jprb,8.2259e-02_jprb,2.8323e-01_jprb/)  
kao( :, 1, 5,13) = (/&
 & 5.8407e-02_jprb,5.1108e-02_jprb,4.6239e-02_jprb,4.0778e-02_jprb,3.5382e-02_jprb,3.0729e-02_jprb,&
 & 2.5929e-02_jprb,2.0262e-02_jprb,2.0976e-01_jprb/)  
kao( :, 2, 5,13) = (/&
 & 6.7590e-02_jprb,6.0046e-02_jprb,5.5590e-02_jprb,5.0588e-02_jprb,4.5609e-02_jprb,4.0658e-02_jprb,&
 & 3.5218e-02_jprb,2.8718e-02_jprb,2.6203e-01_jprb/)  
kao( :, 3, 5,13) = (/&
 & 7.9667e-02_jprb,7.2301e-02_jprb,6.7704e-02_jprb,6.2413e-02_jprb,5.7716e-02_jprb,5.2470e-02_jprb,&
 & 4.6833e-02_jprb,3.9205e-02_jprb,3.2020e-01_jprb/)  
kao( :, 4, 5,13) = (/&
 & 9.2812e-02_jprb,8.5546e-02_jprb,8.0951e-02_jprb,7.5755e-02_jprb,7.1407e-02_jprb,6.6676e-02_jprb,&
 & 6.0889e-02_jprb,5.2582e-02_jprb,3.8339e-01_jprb/)  
kao( :, 5, 5,13) = (/&
 & 1.0648e-01_jprb,9.9221e-02_jprb,9.4821e-02_jprb,9.0576e-02_jprb,8.7197e-02_jprb,8.3294e-02_jprb,&
 & 7.6479e-02_jprb,6.9420e-02_jprb,4.4984e-01_jprb/)  
kao( :, 1, 6,13) = (/&
 & 6.1074e-02_jprb,5.3442e-02_jprb,4.6642e-02_jprb,3.9682e-02_jprb,3.3065e-02_jprb,2.6709e-02_jprb,&
 & 2.1402e-02_jprb,1.7316e-02_jprb,3.1217e-01_jprb/)  
kao( :, 2, 6,13) = (/&
 & 6.6102e-02_jprb,5.8128e-02_jprb,5.1965e-02_jprb,4.5770e-02_jprb,3.9615e-02_jprb,3.4605e-02_jprb,&
 & 2.9773e-02_jprb,2.4794e-02_jprb,3.9753e-01_jprb/)  
kao( :, 3, 6,13) = (/&
 & 7.3850e-02_jprb,6.6350e-02_jprb,6.0820e-02_jprb,5.4981e-02_jprb,5.0172e-02_jprb,4.5675e-02_jprb,&
 & 4.0524e-02_jprb,3.4061e-02_jprb,4.9206e-01_jprb/)  
kao( :, 4, 6,13) = (/&
 & 8.4087e-02_jprb,7.7167e-02_jprb,7.2506e-02_jprb,6.7577e-02_jprb,6.3361e-02_jprb,5.9142e-02_jprb,&
 & 5.3549e-02_jprb,4.5331e-02_jprb,5.9295e-01_jprb/)  
kao( :, 5, 6,13) = (/&
 & 9.7016e-02_jprb,9.0406e-02_jprb,8.6048e-02_jprb,8.1976e-02_jprb,7.8673e-02_jprb,7.5050e-02_jprb,&
 & 6.8277e-02_jprb,5.9321e-02_jprb,7.0097e-01_jprb/)  
kao( :, 1, 7,13) = (/&
 & 6.9484e-02_jprb,6.0801e-02_jprb,5.2496e-02_jprb,4.4095e-02_jprb,3.5736e-02_jprb,2.7213e-02_jprb,&
 & 1.9462e-02_jprb,1.5131e-02_jprb,4.9666e-01_jprb/)  
kao( :, 2, 7,13) = (/&
 & 7.2482e-02_jprb,6.3426e-02_jprb,5.5184e-02_jprb,4.6899e-02_jprb,3.8506e-02_jprb,3.1147e-02_jprb,&
 & 2.5118e-02_jprb,2.1656e-02_jprb,6.3678e-01_jprb/)  
kao( :, 3, 7,13) = (/&
 & 7.6126e-02_jprb,6.7402e-02_jprb,5.9699e-02_jprb,5.1994e-02_jprb,4.4998e-02_jprb,3.9088e-02_jprb,&
 & 3.4888e-02_jprb,3.0019e-02_jprb,7.9664e-01_jprb/)  
kao( :, 4, 7,13) = (/&
 & 8.2337e-02_jprb,7.4163e-02_jprb,6.7469e-02_jprb,6.0768e-02_jprb,5.5760e-02_jprb,5.1620e-02_jprb,&
 & 4.6705e-02_jprb,4.0344e-02_jprb,9.7480e-01_jprb/)  
kao( :, 5, 7,13) = (/&
 & 9.1160e-02_jprb,8.3680e-02_jprb,7.7975e-02_jprb,7.3495e-02_jprb,7.0289e-02_jprb,6.6562e-02_jprb,&
 & 6.0431e-02_jprb,5.2966e-02_jprb,1.1667e+00_jprb/)  
kao( :, 1, 8,13) = (/&
 & 7.9875e-02_jprb,6.9892e-02_jprb,5.9964e-02_jprb,5.0404e-02_jprb,4.0546e-02_jprb,3.0791e-02_jprb,&
 & 2.0999e-02_jprb,1.3352e-02_jprb,9.4134e-01_jprb/)  
kao( :, 2, 8,13) = (/&
 & 8.2831e-02_jprb,7.2481e-02_jprb,6.2676e-02_jprb,5.2633e-02_jprb,4.2647e-02_jprb,3.2676e-02_jprb,&
 & 2.3318e-02_jprb,1.9244e-02_jprb,1.2413e+00_jprb/)  
kao( :, 3, 8,13) = (/&
 & 8.5814e-02_jprb,7.5310e-02_jprb,6.5363e-02_jprb,5.5397e-02_jprb,4.5622e-02_jprb,3.6515e-02_jprb,&
 & 3.0395e-02_jprb,2.6861e-02_jprb,1.5851e+00_jprb/)  
kao( :, 4, 8,13) = (/&
 & 8.9328e-02_jprb,7.9178e-02_jprb,6.9765e-02_jprb,6.0251e-02_jprb,5.1815e-02_jprb,4.5308e-02_jprb,&
 & 4.1250e-02_jprb,3.6343e-02_jprb,1.9653e+00_jprb/)  
kao( :, 5, 8,13) = (/&
 & 9.4353e-02_jprb,8.4864e-02_jprb,7.6567e-02_jprb,6.8745e-02_jprb,6.3044e-02_jprb,5.8949e-02_jprb,&
 & 5.4004e-02_jprb,4.8133e-02_jprb,2.3851e+00_jprb/)  
kao( :, 1, 9,13) = (/&
 & 9.1060e-02_jprb,7.9678e-02_jprb,6.8298e-02_jprb,5.7272e-02_jprb,4.6070e-02_jprb,3.4830e-02_jprb,&
 & 2.3532e-02_jprb,1.3075e-02_jprb,3.3036e+00_jprb/)  
kao( :, 2, 9,13) = (/&
 & 9.4393e-02_jprb,8.2597e-02_jprb,7.1203e-02_jprb,5.9719e-02_jprb,4.8226e-02_jprb,3.6550e-02_jprb,&
 & 2.5153e-02_jprb,1.6919e-02_jprb,4.4974e+00_jprb/)  
kao( :, 3, 9,13) = (/&
 & 9.7943e-02_jprb,8.5705e-02_jprb,7.4242e-02_jprb,6.2533e-02_jprb,5.0588e-02_jprb,3.8901e-02_jprb,&
 & 2.8455e-02_jprb,2.3917e-02_jprb,5.8908e+00_jprb/)  
kao( :, 4, 9,13) = (/&
 & 1.0146e-01_jprb,8.9335e-02_jprb,7.7594e-02_jprb,6.5536e-02_jprb,5.3840e-02_jprb,4.3166e-02_jprb,&
 & 3.6140e-02_jprb,3.2576e-02_jprb,7.5007e+00_jprb/)  
kao( :, 5, 9,13) = (/&
 & 1.0475e-01_jprb,9.2703e-02_jprb,8.1242e-02_jprb,7.0200e-02_jprb,6.0029e-02_jprb,5.2409e-02_jprb,&
 & 4.7785e-02_jprb,4.3561e-02_jprb,9.3123e+00_jprb/)  
kao( :, 1,10,13) = (/&
 & 1.0323e-01_jprb,9.0321e-02_jprb,7.7420e-02_jprb,6.4606e-02_jprb,5.2109e-02_jprb,3.9304e-02_jprb,&
 & 2.6545e-02_jprb,1.4340e-02_jprb,1.3176e+01_jprb/)  
kao( :, 2,10,13) = (/&
 & 1.0726e-01_jprb,9.3851e-02_jprb,8.0568e-02_jprb,6.7728e-02_jprb,5.4502e-02_jprb,4.1373e-02_jprb,&
 & 2.8209e-02_jprb,1.6426e-02_jprb,1.8337e+01_jprb/)  
kao( :, 3,10,13) = (/&
 & 1.1119e-01_jprb,9.7297e-02_jprb,8.4158e-02_jprb,7.0666e-02_jprb,5.7175e-02_jprb,4.3645e-02_jprb,&
 & 3.0420e-02_jprb,2.1518e-02_jprb,2.4733e+01_jprb/)  
kao( :, 4,10,13) = (/&
 & 1.1524e-01_jprb,1.0114e-01_jprb,8.7553e-02_jprb,7.3838e-02_jprb,6.0042e-02_jprb,4.6213e-02_jprb,&
 & 3.5024e-02_jprb,2.9502e-02_jprb,3.2293e+01_jprb/)  
kao( :, 5,10,13) = (/&
 & 1.1918e-01_jprb,1.0517e-01_jprb,9.1457e-02_jprb,7.7569e-02_jprb,6.3670e-02_jprb,5.1602e-02_jprb,&
 & 4.3593e-02_jprb,3.9624e-02_jprb,4.0987e+01_jprb/)  
kao( :, 1,11,13) = (/&
 & 1.1809e-01_jprb,1.0333e-01_jprb,8.8567e-02_jprb,7.3956e-02_jprb,5.9648e-02_jprb,4.4991e-02_jprb,&
 & 3.0394e-02_jprb,1.6520e-02_jprb,2.1329e+01_jprb/)  
kao( :, 2,11,13) = (/&
 & 1.2259e-01_jprb,1.0727e-01_jprb,9.2136e-02_jprb,7.7442e-02_jprb,6.2348e-02_jprb,4.7316e-02_jprb,&
 & 3.2372e-02_jprb,1.8681e-02_jprb,3.0195e+01_jprb/)  
kao( :, 3,11,13) = (/&
 & 1.2699e-01_jprb,1.1113e-01_jprb,9.6180e-02_jprb,8.0804e-02_jprb,6.5376e-02_jprb,4.9936e-02_jprb,&
 & 3.5020e-02_jprb,2.2950e-02_jprb,4.1235e+01_jprb/)  
kao( :, 4,11,13) = (/&
 & 1.3128e-01_jprb,1.1530e-01_jprb,9.9899e-02_jprb,8.4291e-02_jprb,6.8622e-02_jprb,5.2932e-02_jprb,&
 & 3.9181e-02_jprb,3.0475e-02_jprb,5.4497e+01_jprb/)  
kao( :, 5,11,13) = (/&
 & 1.3614e-01_jprb,1.2013e-01_jprb,1.0437e-01_jprb,8.8367e-02_jprb,7.2398e-02_jprb,5.7416e-02_jprb,&
 & 4.6256e-02_jprb,4.1156e-02_jprb,6.9986e+01_jprb/)  
kao( :, 1,12,13) = (/&
 & 1.3386e-01_jprb,1.1712e-01_jprb,1.0039e-01_jprb,8.3885e-02_jprb,6.7654e-02_jprb,5.1023e-02_jprb,&
 & 3.4519e-02_jprb,1.8911e-02_jprb,2.6006e+01_jprb/)  
kao( :, 2,12,13) = (/&
 & 1.3877e-01_jprb,1.2143e-01_jprb,1.0437e-01_jprb,8.7721e-02_jprb,7.0645e-02_jprb,5.3609e-02_jprb,&
 & 3.6836e-02_jprb,2.1259e-02_jprb,3.7252e+01_jprb/)  
kao( :, 3,12,13) = (/&
 & 1.4375e-01_jprb,1.2579e-01_jprb,1.0893e-01_jprb,9.1548e-02_jprb,7.4049e-02_jprb,5.6582e-02_jprb,&
 & 3.9974e-02_jprb,2.4775e-02_jprb,5.1456e+01_jprb/)  
kao( :, 4,12,13) = (/&
 & 1.4854e-01_jprb,1.3051e-01_jprb,1.1314e-01_jprb,9.5475e-02_jprb,7.7776e-02_jprb,6.0170e-02_jprb,&
 & 4.4338e-02_jprb,3.1553e-02_jprb,6.8626e+01_jprb/)  
kao( :, 5,12,13) = (/&
 & 1.5381e-01_jprb,1.3581e-01_jprb,1.1807e-01_jprb,1.0009e-01_jprb,8.2154e-02_jprb,6.5109e-02_jprb,&
 & 5.0201e-02_jprb,4.2427e-02_jprb,8.8644e+01_jprb/)  
kao( :, 1,13,13) = (/&
 & 1.5013e-01_jprb,1.3136e-01_jprb,1.1260e-01_jprb,9.4157e-02_jprb,7.5949e-02_jprb,5.7300e-02_jprb,&
 & 3.8872e-02_jprb,2.1485e-02_jprb,2.5822e+01_jprb/)  
kao( :, 2,13,13) = (/&
 & 1.5573e-01_jprb,1.3627e-01_jprb,1.1719e-01_jprb,9.8539e-02_jprb,7.9406e-02_jprb,6.0263e-02_jprb,&
 & 4.1620e-02_jprb,2.4096e-02_jprb,3.6956e+01_jprb/)  
kao( :, 3,13,13) = (/&
 & 1.6146e-01_jprb,1.4129e-01_jprb,1.2242e-01_jprb,1.0291e-01_jprb,8.3225e-02_jprb,6.3641e-02_jprb,&
 & 4.5364e-02_jprb,2.7291e-02_jprb,5.1399e+01_jprb/)  
kao( :, 4,13,13) = (/&
 & 1.6709e-01_jprb,1.4686e-01_jprb,1.2738e-01_jprb,1.0746e-01_jprb,8.7536e-02_jprb,6.7870e-02_jprb,&
 & 5.0138e-02_jprb,3.3350e-02_jprb,6.8906e+01_jprb/)  
kao( :, 5,13,13) = (/&
 & 1.7380e-01_jprb,1.5350e-01_jprb,1.3346e-01_jprb,1.1314e-01_jprb,9.2912e-02_jprb,7.3777e-02_jprb,&
 & 5.5622e-02_jprb,4.3609e-02_jprb,8.9452e+01_jprb/)  
kao( :, 1, 1,14) = (/&
 & 1.2272e-01_jprb,1.0738e-01_jprb,9.4283e-02_jprb,8.6737e-02_jprb,7.7664e-02_jprb,7.2045e-02_jprb,&
 & 7.8412e-02_jprb,9.0417e-02_jprb,1.0437e-01_jprb/)  
kao( :, 2, 1,14) = (/&
 & 1.4194e-01_jprb,1.2421e-01_jprb,1.1268e-01_jprb,1.0273e-01_jprb,9.4698e-02_jprb,9.3256e-02_jprb,&
 & 1.0748e-01_jprb,1.2382e-01_jprb,1.4306e-01_jprb/)  
kao( :, 3, 1,14) = (/&
 & 1.6121e-01_jprb,1.4107e-01_jprb,1.3136e-01_jprb,1.2076e-01_jprb,1.1385e-01_jprb,1.2008e-01_jprb,&
 & 1.4204e-01_jprb,1.6386e-01_jprb,1.8913e-01_jprb/)  
kao( :, 4, 1,14) = (/&
 & 1.8022e-01_jprb,1.5771e-01_jprb,1.4978e-01_jprb,1.4054e-01_jprb,1.3566e-01_jprb,1.5231e-01_jprb,&
 & 1.8204e-01_jprb,2.1017e-01_jprb,2.4241e-01_jprb/)  
kao( :, 5, 1,14) = (/&
 & 1.9876e-01_jprb,1.7399e-01_jprb,1.6813e-01_jprb,1.6037e-01_jprb,1.6177e-01_jprb,1.8999e-01_jprb,&
 & 2.2725e-01_jprb,2.6257e-01_jprb,3.0267e-01_jprb/)  
kao( :, 1, 2,14) = (/&
 & 1.2729e-01_jprb,1.1140e-01_jprb,9.8262e-02_jprb,9.0117e-02_jprb,7.9778e-02_jprb,7.1136e-02_jprb,&
 & 7.1341e-02_jprb,8.1863e-02_jprb,9.9580e-02_jprb/)  
kao( :, 2, 2,14) = (/&
 & 1.4798e-01_jprb,1.2949e-01_jprb,1.1804e-01_jprb,1.0763e-01_jprb,9.8062e-02_jprb,9.0609e-02_jprb,&
 & 9.8103e-02_jprb,1.1375e-01_jprb,1.3363e-01_jprb/)  
kao( :, 3, 2,14) = (/&
 & 1.6873e-01_jprb,1.4766e-01_jprb,1.3850e-01_jprb,1.2733e-01_jprb,1.1689e-01_jprb,1.1520e-01_jprb,&
 & 1.3107e-01_jprb,1.5211e-01_jprb,1.7565e-01_jprb/)  
kao( :, 4, 2,14) = (/&
 & 1.8958e-01_jprb,1.6590e-01_jprb,1.5866e-01_jprb,1.4880e-01_jprb,1.3847e-01_jprb,1.4498e-01_jprb,&
 & 1.6951e-01_jprb,1.9684e-01_jprb,2.2617e-01_jprb/)  
kao( :, 5, 2,14) = (/&
 & 2.1038e-01_jprb,1.8454e-01_jprb,1.7933e-01_jprb,1.7078e-01_jprb,1.6390e-01_jprb,1.7978e-01_jprb,&
 & 2.1333e-01_jprb,2.4781e-01_jprb,2.8462e-01_jprb/)  
kao( :, 1, 3,14) = (/&
 & 1.2550e-01_jprb,1.0981e-01_jprb,9.6955e-02_jprb,8.9024e-02_jprb,7.7880e-02_jprb,6.7645e-02_jprb,&
 & 6.1403e-02_jprb,6.7382e-02_jprb,1.4225e-01_jprb/)  
kao( :, 2, 3,14) = (/&
 & 1.4763e-01_jprb,1.2918e-01_jprb,1.1753e-01_jprb,1.0765e-01_jprb,9.6693e-02_jprb,8.5332e-02_jprb,&
 & 8.4254e-02_jprb,9.5793e-02_jprb,1.7778e-01_jprb/)  
kao( :, 3, 3,14) = (/&
 & 1.7047e-01_jprb,1.4918e-01_jprb,1.3933e-01_jprb,1.2852e-01_jprb,1.1691e-01_jprb,1.0756e-01_jprb,&
 & 1.1280e-01_jprb,1.3060e-01_jprb,2.1534e-01_jprb/)  
kao( :, 4, 3,14) = (/&
 & 1.9358e-01_jprb,1.6939e-01_jprb,1.6102e-01_jprb,1.5122e-01_jprb,1.3831e-01_jprb,1.3427e-01_jprb,&
 & 1.4739e-01_jprb,1.7189e-01_jprb,2.5797e-01_jprb/)  
kao( :, 5, 3,14) = (/&
 & 2.1660e-01_jprb,1.9053e-01_jprb,1.8371e-01_jprb,1.7470e-01_jprb,1.6255e-01_jprb,1.6554e-01_jprb,&
 & 1.8894e-01_jprb,2.1979e-01_jprb,3.0718e-01_jprb/)  
kao( :, 1, 4,14) = (/&
 & 1.2051e-01_jprb,1.0544e-01_jprb,9.2670e-02_jprb,8.4885e-02_jprb,7.4104e-02_jprb,6.3445e-02_jprb,&
 & 5.3222e-02_jprb,5.2652e-02_jprb,2.4708e-01_jprb/)  
kao( :, 2, 4,14) = (/&
 & 1.4414e-01_jprb,1.2613e-01_jprb,1.1387e-01_jprb,1.0420e-01_jprb,9.2996e-02_jprb,8.0617e-02_jprb,&
 & 7.2382e-02_jprb,7.7038e-02_jprb,3.0415e-01_jprb/)  
kao( :, 3, 4,14) = (/&
 & 1.6863e-01_jprb,1.4759e-01_jprb,1.3702e-01_jprb,1.2578e-01_jprb,1.1376e-01_jprb,1.0097e-01_jprb,&
 & 9.6748e-02_jprb,1.0777e-01_jprb,3.6725e-01_jprb/)  

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


SUBROUTINE part10

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


kao( :, 4, 4,14) = (/&
 & 1.9357e-01_jprb,1.6961e-01_jprb,1.6032e-01_jprb,1.4935e-01_jprb,1.3627e-01_jprb,1.2523e-01_jprb,&
 & 1.2694e-01_jprb,1.4559e-01_jprb,4.3596e-01_jprb/)  
kao( :, 5, 4,14) = (/&
 & 2.1857e-01_jprb,1.9291e-01_jprb,1.8484e-01_jprb,1.7444e-01_jprb,1.6154e-01_jprb,1.5384e-01_jprb,&
 & 1.6473e-01_jprb,1.9089e-01_jprb,5.0957e-01_jprb/)  
kao( :, 1, 5,14) = (/&
 & 1.1387e-01_jprb,9.9639e-02_jprb,8.7347e-02_jprb,7.9247e-02_jprb,6.8932e-02_jprb,5.8370e-02_jprb,&
 & 4.7289e-02_jprb,4.1078e-02_jprb,4.1374e-01_jprb/)  
kao( :, 2, 5,14) = (/&
 & 1.3841e-01_jprb,1.2111e-01_jprb,1.0901e-01_jprb,9.8972e-02_jprb,8.7653e-02_jprb,7.5350e-02_jprb,&
 & 6.3780e-02_jprb,6.0994e-02_jprb,5.1453e-01_jprb/)  
kao( :, 3, 5,14) = (/&
 & 1.6401e-01_jprb,1.4350e-01_jprb,1.3292e-01_jprb,1.2113e-01_jprb,1.0884e-01_jprb,9.5638e-02_jprb,&
 & 8.4952e-02_jprb,8.8128e-02_jprb,6.2691e-01_jprb/)  
kao( :, 4, 5,14) = (/&
 & 1.9052e-01_jprb,1.6716e-01_jprb,1.5743e-01_jprb,1.4548e-01_jprb,1.3189e-01_jprb,1.1925e-01_jprb,&
 & 1.1148e-01_jprb,1.2277e-01_jprb,7.4875e-01_jprb/)  
kao( :, 5, 5,14) = (/&
 & 2.1750e-01_jprb,1.9225e-01_jprb,1.8333e-01_jprb,1.7169e-01_jprb,1.5768e-01_jprb,1.4619e-01_jprb,&
 & 1.4557e-01_jprb,1.6521e-01_jprb,8.7275e-01_jprb/)  
kao( :, 1, 6,14) = (/&
 & 1.0474e-01_jprb,9.1641e-02_jprb,8.0224e-02_jprb,7.2183e-02_jprb,6.2228e-02_jprb,5.2131e-02_jprb,&
 & 4.1492e-02_jprb,3.2184e-02_jprb,6.9511e-01_jprb/)  
kao( :, 2, 6,14) = (/&
 & 1.2944e-01_jprb,1.1326e-01_jprb,1.0170e-01_jprb,9.1896e-02_jprb,8.0557e-02_jprb,6.8664e-02_jprb,&
 & 5.6745e-02_jprb,4.8206e-02_jprb,8.6732e-01_jprb/)  
kao( :, 3, 6,14) = (/&
 & 1.5591e-01_jprb,1.3642e-01_jprb,1.2581e-01_jprb,1.1418e-01_jprb,1.0169e-01_jprb,8.8193e-02_jprb,&
 & 7.5718e-02_jprb,7.0944e-02_jprb,1.0534e+00_jprb/)  
kao( :, 4, 6,14) = (/&
 & 1.8354e-01_jprb,1.6133e-01_jprb,1.5134e-01_jprb,1.3874e-01_jprb,1.2518e-01_jprb,1.1115e-01_jprb,&
 & 9.9229e-02_jprb,1.0154e-01_jprb,1.2543e+00_jprb/)  
kao( :, 5, 6,14) = (/&
 & 2.1175e-01_jprb,1.8777e-01_jprb,1.7853e-01_jprb,1.6545e-01_jprb,1.5132e-01_jprb,1.3778e-01_jprb,&
 & 1.2959e-01_jprb,1.4035e-01_jprb,1.4668e+00_jprb/)  
kao( :, 1, 7,14) = (/&
 & 9.8037e-02_jprb,8.5785e-02_jprb,7.4031e-02_jprb,6.5638e-02_jprb,5.5734e-02_jprb,4.5971e-02_jprb,&
 & 3.6011e-02_jprb,2.6144e-02_jprb,1.2159e+00_jprb/)  
kao( :, 2, 7,14) = (/&
 & 1.1998e-01_jprb,1.0498e-01_jprb,9.3637e-02_jprb,8.4452e-02_jprb,7.3349e-02_jprb,6.1893e-02_jprb,&
 & 4.9919e-02_jprb,3.9040e-02_jprb,1.5511e+00_jprb/)  
kao( :, 3, 7,14) = (/&
 & 1.4686e-01_jprb,1.2856e-01_jprb,1.1785e-01_jprb,1.0669e-01_jprb,9.3946e-02_jprb,8.0872e-02_jprb,&
 & 6.7552e-02_jprb,5.7747e-02_jprb,1.9129e+00_jprb/)  
kao( :, 4, 7,14) = (/&
 & 1.7522e-01_jprb,1.5432e-01_jprb,1.4422e-01_jprb,1.3156e-01_jprb,1.1748e-01_jprb,1.0312e-01_jprb,&
 & 9.0045e-02_jprb,8.3407e-02_jprb,2.2944e+00_jprb/)  
kao( :, 5, 7,14) = (/&
 & 2.0470e-01_jprb,1.8180e-01_jprb,1.7230e-01_jprb,1.5882e-01_jprb,1.4368e-01_jprb,1.2923e-01_jprb,&
 & 1.1721e-01_jprb,1.1674e-01_jprb,2.6936e+00_jprb/)  
kao( :, 1, 8,14) = (/&
 & 9.9268e-02_jprb,8.6861e-02_jprb,7.4453e-02_jprb,6.4036e-02_jprb,5.3505e-02_jprb,4.2319e-02_jprb,&
 & 3.1550e-02_jprb,2.2217e-02_jprb,2.4996e+00_jprb/)  
kao( :, 2, 8,14) = (/&
 & 1.1614e-01_jprb,1.0162e-01_jprb,8.8779e-02_jprb,7.8855e-02_jprb,6.7312e-02_jprb,5.5689e-02_jprb,&
 & 4.4126e-02_jprb,3.3034e-02_jprb,3.2562e+00_jprb/)  
kao( :, 3, 8,14) = (/&
 & 1.3955e-01_jprb,1.2210e-01_jprb,1.1063e-01_jprb,9.9801e-02_jprb,8.7158e-02_jprb,7.3984e-02_jprb,&
 & 6.0483e-02_jprb,4.8160e-02_jprb,4.0870e+00_jprb/)  
kao( :, 4, 8,14) = (/&
 & 1.6821e-01_jprb,1.4816e-01_jprb,1.3755e-01_jprb,1.2480e-01_jprb,1.1087e-01_jprb,9.5535e-02_jprb,&
 & 8.1708e-02_jprb,6.9310e-02_jprb,4.9903e+00_jprb/)  
kao( :, 5, 8,14) = (/&
 & 1.9964e-01_jprb,1.7735e-01_jprb,1.6653e-01_jprb,1.5239e-01_jprb,1.3733e-01_jprb,1.2121e-01_jprb,&
 & 1.0795e-01_jprb,9.7500e-02_jprb,5.9489e+00_jprb/)  
kao( :, 1, 9,14) = (/&
 & 1.0767e-01_jprb,9.4219e-02_jprb,8.0760e-02_jprb,6.7681e-02_jprb,5.5573e-02_jprb,4.2663e-02_jprb,&
 & 3.0129e-02_jprb,1.9372e-02_jprb,9.4494e+00_jprb/)  
kao( :, 2, 9,14) = (/&
 & 1.1878e-01_jprb,1.0394e-01_jprb,8.9411e-02_jprb,7.7688e-02_jprb,6.4557e-02_jprb,5.1682e-02_jprb,&
 & 3.8689e-02_jprb,2.8319e-02_jprb,1.2605e+01_jprb/)  
kao( :, 3, 9,14) = (/&
 & 1.3639e-01_jprb,1.1934e-01_jprb,1.0569e-01_jprb,9.3279e-02_jprb,7.9895e-02_jprb,6.6582e-02_jprb,&
 & 5.3130e-02_jprb,4.1437e-02_jprb,1.6195e+01_jprb/)  
kao( :, 4, 9,14) = (/&
 & 1.6051e-01_jprb,1.4083e-01_jprb,1.2883e-01_jprb,1.1557e-01_jprb,1.0198e-01_jprb,8.7219e-02_jprb,&
 & 7.3054e-02_jprb,5.9439e-02_jprb,2.0162e+01_jprb/)  
kao( :, 5, 9,14) = (/&
 & 1.9047e-01_jprb,1.6928e-01_jprb,1.5797e-01_jprb,1.4317e-01_jprb,1.2816e-01_jprb,1.1220e-01_jprb,&
 & 9.8138e-02_jprb,8.3143e-02_jprb,2.4370e+01_jprb/)  
kao( :, 1,10,14) = (/&
 & 1.2399e-01_jprb,1.0850e-01_jprb,9.2999e-02_jprb,7.7504e-02_jprb,6.2608e-02_jprb,4.7376e-02_jprb,&
 & 3.2192e-02_jprb,1.8471e-02_jprb,3.9887e+01_jprb/)  
kao( :, 2,10,14) = (/&
 & 1.3044e-01_jprb,1.1413e-01_jprb,9.7827e-02_jprb,8.3086e-02_jprb,6.7807e-02_jprb,5.2528e-02_jprb,&
 & 3.7452e-02_jprb,2.5677e-02_jprb,5.4647e+01_jprb/)  
kao( :, 3,10,14) = (/&
 & 1.4288e-01_jprb,1.2502e-01_jprb,1.0881e-01_jprb,9.4032e-02_jprb,7.8460e-02_jprb,6.3126e-02_jprb,&
 & 4.8115e-02_jprb,3.7197e-02_jprb,7.1742e+01_jprb/)  
kao( :, 4,10,14) = (/&
 & 1.6124e-01_jprb,1.4108e-01_jprb,1.2689e-01_jprb,1.1135e-01_jprb,9.5742e-02_jprb,8.0119e-02_jprb,&
 & 6.6079e-02_jprb,5.3593e-02_jprb,9.0502e+01_jprb/)  
kao( :, 5,10,14) = (/&
 & 1.8553e-01_jprb,1.6386e-01_jprb,1.5092e-01_jprb,1.3528e-01_jprb,1.1973e-01_jprb,1.0415e-01_jprb,&
 & 8.9746e-02_jprb,7.5568e-02_jprb,1.1085e+02_jprb/)  
kao( :, 1,11,14) = (/&
 & 1.4634e-01_jprb,1.2805e-01_jprb,1.0976e-01_jprb,9.1467e-02_jprb,7.3855e-02_jprb,5.5821e-02_jprb,&
 & 3.7725e-02_jprb,2.1087e-02_jprb,6.7956e+01_jprb/)  
kao( :, 2,11,14) = (/&
 & 1.5280e-01_jprb,1.3370e-01_jprb,1.1460e-01_jprb,9.6711e-02_jprb,7.8221e-02_jprb,6.0001e-02_jprb,&
 & 4.1942e-02_jprb,2.7978e-02_jprb,9.3212e+01_jprb/)  
kao( :, 3,11,14) = (/&
 & 1.6241e-01_jprb,1.4212e-01_jprb,1.2352e-01_jprb,1.0575e-01_jprb,8.7369e-02_jprb,6.9001e-02_jprb,&
 & 5.1438e-02_jprb,4.0090e-02_jprb,1.2204e+02_jprb/)  
kao( :, 4,11,14) = (/&
 & 1.7773e-01_jprb,1.5551e-01_jprb,1.3890e-01_jprb,1.2079e-01_jprb,1.0263e-01_jprb,8.4231e-02_jprb,&
 & 6.9240e-02_jprb,5.7401e-02_jprb,1.5432e+02_jprb/)  
kao( :, 5,11,14) = (/&
 & 1.9855e-01_jprb,1.7536e-01_jprb,1.5997e-01_jprb,1.4235e-01_jprb,1.2466e-01_jprb,1.0802e-01_jprb,&
 & 9.3905e-02_jprb,8.0223e-02_jprb,1.8971e+02_jprb/)  
kao( :, 1,12,14) = (/&
 & 1.7212e-01_jprb,1.5061e-01_jprb,1.2910e-01_jprb,1.0758e-01_jprb,8.6852e-02_jprb,6.5625e-02_jprb,&
 & 4.4312e-02_jprb,2.4340e-02_jprb,8.4903e+01_jprb/)  
kao( :, 2,12,14) = (/&
 & 1.7934e-01_jprb,1.5692e-01_jprb,1.3450e-01_jprb,1.1330e-01_jprb,9.1337e-02_jprb,6.9634e-02_jprb,&
 & 4.7833e-02_jprb,3.1026e-02_jprb,1.1639e+02_jprb/)  
kao( :, 3,12,14) = (/&
 & 1.8728e-01_jprb,1.6386e-01_jprb,1.4213e-01_jprb,1.2054e-01_jprb,9.8954e-02_jprb,7.7262e-02_jprb,&
 & 5.6412e-02_jprb,4.3794e-02_jprb,1.5321e+02_jprb/)  
kao( :, 4,12,14) = (/&
 & 2.0028e-01_jprb,1.7525e-01_jprb,1.5522e-01_jprb,1.3365e-01_jprb,1.1228e-01_jprb,9.0973e-02_jprb,&
 & 7.3137e-02_jprb,6.1836e-02_jprb,1.9487e+02_jprb/)  
kao( :, 5,12,14) = (/&
 & 2.1815e-01_jprb,1.9249e-01_jprb,1.7398e-01_jprb,1.5323e-01_jprb,1.3224e-01_jprb,1.1343e-01_jprb,&
 & 9.8759e-02_jprb,8.5478e-02_jprb,2.4055e+02_jprb/)  
kao( :, 1,13,14) = (/&
 & 2.0214e-01_jprb,1.7687e-01_jprb,1.5160e-01_jprb,1.2634e-01_jprb,1.0196e-01_jprb,7.7014e-02_jprb,&
 & 5.1962e-02_jprb,2.8242e-02_jprb,8.4112e+01_jprb/)  
kao( :, 2,13,14) = (/&
 & 2.1011e-01_jprb,1.8385e-01_jprb,1.5760e-01_jprb,1.3272e-01_jprb,1.0696e-01_jprb,8.1283e-02_jprb,&
 & 5.5458e-02_jprb,3.4895e-02_jprb,1.1624e+02_jprb/)  
kao( :, 3,13,14) = (/&
 & 2.1853e-01_jprb,1.9120e-01_jprb,1.6551e-01_jprb,1.3968e-01_jprb,1.1398e-01_jprb,8.8112e-02_jprb,&
 & 6.3575e-02_jprb,4.8146e-02_jprb,1.5368e+02_jprb/)  
kao( :, 4,13,14) = (/&
 & 2.2961e-01_jprb,2.0092e-01_jprb,1.7711e-01_jprb,1.5169e-01_jprb,1.2625e-01_jprb,1.0098e-01_jprb,&
 & 7.9581e-02_jprb,6.7244e-02_jprb,1.9645e+02_jprb/)  
kao( :, 5,13,14) = (/&
 & 2.4584e-01_jprb,2.1666e-01_jprb,1.9421e-01_jprb,1.6994e-01_jprb,1.4516e-01_jprb,1.2228e-01_jprb,&
 & 1.0565e-01_jprb,9.1741e-02_jprb,2.4440e+02_jprb/)  
kao( :, 1, 1,15) = (/&
 & 1.6714e-01_jprb,1.4623e-01_jprb,1.2535e-01_jprb,1.1978e-01_jprb,1.3700e-01_jprb,1.6925e-01_jprb,&
 & 2.0052e-01_jprb,2.2511e-01_jprb,2.6590e-01_jprb/)  
kao( :, 2, 1,15) = (/&
 & 1.9315e-01_jprb,1.6902e-01_jprb,1.4490e-01_jprb,1.5051e-01_jprb,1.8304e-01_jprb,2.2712e-01_jprb,&
 & 2.6888e-01_jprb,3.0220e-01_jprb,3.5680e-01_jprb/)  
kao( :, 3, 1,15) = (/&
 & 2.1967e-01_jprb,1.9223e-01_jprb,1.6933e-01_jprb,1.8733e-01_jprb,2.3841e-01_jprb,2.9577e-01_jprb,&
 & 3.5003e-01_jprb,3.9291e-01_jprb,4.6433e-01_jprb/)  
kao( :, 4, 1,15) = (/&
 & 2.4620e-01_jprb,2.1544e-01_jprb,1.9690e-01_jprb,2.3005e-01_jprb,3.0239e-01_jprb,3.7520e-01_jprb,&
 & 4.4404e-01_jprb,4.9769e-01_jprb,5.8881e-01_jprb/)  
kao( :, 5, 1,15) = (/&
 & 2.7258e-01_jprb,2.3851e-01_jprb,2.2655e-01_jprb,2.8238e-01_jprb,3.7464e-01_jprb,4.6513e-01_jprb,&
 & 5.5029e-01_jprb,6.1683e-01_jprb,7.3011e-01_jprb/)  
kao( :, 1, 2,15) = (/&
 & 1.8366e-01_jprb,1.6071e-01_jprb,1.3776e-01_jprb,1.2787e-01_jprb,1.3633e-01_jprb,1.6291e-01_jprb,&
 & 1.9304e-01_jprb,2.1749e-01_jprb,2.5915e-01_jprb/)  
kao( :, 2, 2,15) = (/&
 & 2.1410e-01_jprb,1.8735e-01_jprb,1.6059e-01_jprb,1.5940e-01_jprb,1.8012e-01_jprb,2.2284e-01_jprb,&
 & 2.6404e-01_jprb,2.9719e-01_jprb,3.5437e-01_jprb/)  
kao( :, 3, 2,15) = (/&
 & 2.4518e-01_jprb,2.1455e-01_jprb,1.8756e-01_jprb,1.9671e-01_jprb,2.3732e-01_jprb,2.9467e-01_jprb,&
 & 3.4914e-01_jprb,3.9288e-01_jprb,4.6863e-01_jprb/)  
kao( :, 4, 2,15) = (/&
 & 2.7631e-01_jprb,2.4179e-01_jprb,2.1947e-01_jprb,2.3962e-01_jprb,3.0475e-01_jprb,3.7844e-01_jprb,&
 & 4.4844e-01_jprb,5.0450e-01_jprb,6.0205e-01_jprb/)  
kao( :, 5, 2,15) = (/&
 & 3.0712e-01_jprb,2.6878e-01_jprb,2.5148e-01_jprb,2.9094e-01_jprb,3.8157e-01_jprb,4.7390e-01_jprb,&
 & 5.6159e-01_jprb,6.3185e-01_jprb,7.5391e-01_jprb/)  
kao( :, 1, 3,15) = (/&
 & 1.9381e-01_jprb,1.6957e-01_jprb,1.4535e-01_jprb,1.3089e-01_jprb,1.3034e-01_jprb,1.4478e-01_jprb,&
 & 1.7182e-01_jprb,1.9411e-01_jprb,2.5084e-01_jprb/)  
kao( :, 2, 3,15) = (/&
 & 2.2879e-01_jprb,2.0020e-01_jprb,1.7161e-01_jprb,1.6253e-01_jprb,1.7117e-01_jprb,2.0325e-01_jprb,&
 & 2.4118e-01_jprb,2.7244e-01_jprb,3.3342e-01_jprb/)  
kao( :, 3, 3,15) = (/&
 & 2.6449e-01_jprb,2.3152e-01_jprb,2.0076e-01_jprb,1.9976e-01_jprb,2.2310e-01_jprb,2.7442e-01_jprb,&
 & 3.2567e-01_jprb,3.6802e-01_jprb,4.4181e-01_jprb/)  
kao( :, 4, 3,15) = (/&
 & 3.0062e-01_jprb,2.6305e-01_jprb,2.3583e-01_jprb,2.4242e-01_jprb,2.8858e-01_jprb,3.5854e-01_jprb,&
 & 4.2563e-01_jprb,4.8116e-01_jprb,5.7642e-01_jprb/)  
kao( :, 5, 3,15) = (/&
 & 3.3647e-01_jprb,2.9433e-01_jprb,2.7280e-01_jprb,2.9278e-01_jprb,3.6645e-01_jprb,4.5559e-01_jprb,&
 & 5.4090e-01_jprb,6.1169e-01_jprb,7.3212e-01_jprb/)  
kao( :, 1, 4,15) = (/&
 & 1.9999e-01_jprb,1.7501e-01_jprb,1.5001e-01_jprb,1.3105e-01_jprb,1.2399e-01_jprb,1.2689e-01_jprb,&
 & 1.4635e-01_jprb,1.6609e-01_jprb,3.8961e-01_jprb/)  
kao( :, 2, 4,15) = (/&
 & 2.3934e-01_jprb,2.0943e-01_jprb,1.7951e-01_jprb,1.6550e-01_jprb,1.6246e-01_jprb,1.7858e-01_jprb,&
 & 2.1156e-01_jprb,2.4017e-01_jprb,4.8945e-01_jprb/)  
kao( :, 3, 4,15) = (/&
 & 2.7991e-01_jprb,2.4495e-01_jprb,2.1142e-01_jprb,2.0298e-01_jprb,2.1064e-01_jprb,2.4602e-01_jprb,&
 & 2.9261e-01_jprb,3.3237e-01_jprb,5.9861e-01_jprb/)  
kao( :, 4, 4,15) = (/&
 & 3.2106e-01_jprb,2.8093e-01_jprb,2.4927e-01_jprb,2.4578e-01_jprb,2.7114e-01_jprb,3.2797e-01_jprb,&
 & 3.9010e-01_jprb,4.4342e-01_jprb,7.1678e-01_jprb/)  
kao( :, 5, 4,15) = (/&
 & 3.6208e-01_jprb,3.1681e-01_jprb,2.9211e-01_jprb,2.9449e-01_jprb,3.4380e-01_jprb,4.2351e-01_jprb,&
 & 5.0405e-01_jprb,5.7325e-01_jprb,8.4831e-01_jprb/)  
kao( :, 1, 5,15) = (/&
 & 2.0321e-01_jprb,1.7781e-01_jprb,1.5241e-01_jprb,1.3060e-01_jprb,1.1953e-01_jprb,1.1366e-01_jprb,&
 & 1.2139e-01_jprb,1.3841e-01_jprb,7.6737e-01_jprb/)  
kao( :, 2, 5,15) = (/&
 & 2.4681e-01_jprb,2.1596e-01_jprb,1.8512e-01_jprb,1.6773e-01_jprb,1.5630e-01_jprb,1.5939e-01_jprb,&
 & 1.8094e-01_jprb,2.0654e-01_jprb,9.3237e-01_jprb/)  
kao( :, 3, 5,15) = (/&
 & 2.9225e-01_jprb,2.5571e-01_jprb,2.2020e-01_jprb,2.0776e-01_jprb,2.0115e-01_jprb,2.1929e-01_jprb,&
 & 2.5668e-01_jprb,2.9327e-01_jprb,1.1037e+00_jprb/)  
kao( :, 4, 5,15) = (/&
 & 3.3924e-01_jprb,2.9689e-01_jprb,2.6138e-01_jprb,2.5151e-01_jprb,2.5830e-01_jprb,2.9435e-01_jprb,&
 & 3.4948e-01_jprb,3.9959e-01_jprb,1.2806e+00_jprb/)  
kao( :, 5, 5,15) = (/&
 & 3.8698e-01_jprb,3.3860e-01_jprb,3.0762e-01_jprb,3.0044e-01_jprb,3.2724e-01_jprb,3.8517e-01_jprb,&
 & 4.5934e-01_jprb,5.2570e-01_jprb,1.4803e+00_jprb/)  
kao( :, 1, 6,15) = (/&
 & 2.0167e-01_jprb,1.7647e-01_jprb,1.5126e-01_jprb,1.2807e-01_jprb,1.1544e-01_jprb,1.0229e-01_jprb,&
 & 9.9864e-02_jprb,1.1026e-01_jprb,1.4089e+00_jprb/)  
kao( :, 2, 6,15) = (/&
 & 2.4970e-01_jprb,2.1848e-01_jprb,1.8731e-01_jprb,1.6569e-01_jprb,1.5115e-01_jprb,1.4241e-01_jprb,&
 & 1.4999e-01_jprb,1.7053e-01_jprb,1.7402e+00_jprb/)  
kao( :, 3, 6,15) = (/&
 & 3.0094e-01_jprb,2.6336e-01_jprb,2.2581e-01_jprb,2.1051e-01_jprb,1.9387e-01_jprb,1.9632e-01_jprb,&
 & 2.1699e-01_jprb,2.4938e-01_jprb,2.0912e+00_jprb/)  
kao( :, 4, 6,15) = (/&
 & 3.5441e-01_jprb,3.1006e-01_jprb,2.6999e-01_jprb,2.5637e-01_jprb,2.4732e-01_jprb,2.6431e-01_jprb,&
 & 3.0280e-01_jprb,3.4805e-01_jprb,2.4589e+00_jprb/)  
kao( :, 5, 6,15) = (/&
 & 4.0878e-01_jprb,3.5772e-01_jprb,3.1991e-01_jprb,3.0644e-01_jprb,3.1239e-01_jprb,3.4703e-01_jprb,&
 & 4.0741e-01_jprb,4.6767e-01_jprb,2.8357e+00_jprb/)  
kao( :, 1, 7,15) = (/&
 & 1.9961e-01_jprb,1.7465e-01_jprb,1.4970e-01_jprb,1.2517e-01_jprb,1.1019e-01_jprb,9.4432e-02_jprb,&
 & 8.3552e-02_jprb,8.4867e-02_jprb,2.6743e+00_jprb/)  
kao( :, 2, 7,15) = (/&
 & 2.5271e-01_jprb,2.2112e-01_jprb,1.8951e-01_jprb,1.6349e-01_jprb,1.4808e-01_jprb,1.3037e-01_jprb,&
 & 1.2620e-01_jprb,1.3661e-01_jprb,3.3775e+00_jprb/)  
kao( :, 3, 7,15) = (/&
 & 3.0993e-01_jprb,2.7118e-01_jprb,2.3244e-01_jprb,2.1005e-01_jprb,1.9021e-01_jprb,1.7858e-01_jprb,&
 & 1.8396e-01_jprb,2.0656e-01_jprb,4.1391e+00_jprb/)  
kao( :, 4, 7,15) = (/&
 & 3.7010e-01_jprb,3.2384e-01_jprb,2.8021e-01_jprb,2.6259e-01_jprb,2.4156e-01_jprb,2.4022e-01_jprb,&
 & 2.5897e-01_jprb,2.9714e-01_jprb,4.9411e+00_jprb/)  
kao( :, 5, 7,15) = (/&
 & 4.3194e-01_jprb,3.7799e-01_jprb,3.3448e-01_jprb,3.1568e-01_jprb,3.0414e-01_jprb,3.1604e-01_jprb,&
 & 3.5629e-01_jprb,4.0998e-01_jprb,5.7688e+00_jprb/)  
kao( :, 1, 8,15) = (/&
 & 1.9933e-01_jprb,1.7442e-01_jprb,1.4950e-01_jprb,1.2458e-01_jprb,1.0537e-01_jprb,8.9910e-02_jprb,&
 & 7.2635e-02_jprb,6.5335e-02_jprb,6.0216e+00_jprb/)  
kao( :, 2, 8,15) = (/&
 & 2.5812e-01_jprb,2.2586e-01_jprb,1.9358e-01_jprb,1.6410e-01_jprb,1.4589e-01_jprb,1.2373e-01_jprb,&
 & 1.0885e-01_jprb,1.0727e-01_jprb,7.7945e+00_jprb/)  
kao( :, 3, 8,15) = (/&
 & 3.2225e-01_jprb,2.8198e-01_jprb,2.4170e-01_jprb,2.1259e-01_jprb,1.9127e-01_jprb,1.6827e-01_jprb,&
 & 1.5878e-01_jprb,1.6851e-01_jprb,9.7347e+00_jprb/)  
kao( :, 4, 8,15) = (/&
 & 3.9033e-01_jprb,3.4151e-01_jprb,2.9429e-01_jprb,2.7000e-01_jprb,2.4193e-01_jprb,2.2526e-01_jprb,&
 & 2.2474e-01_jprb,2.5040e-01_jprb,1.1796e+01_jprb/)  
kao( :, 5, 8,15) = (/&
 & 4.6081e-01_jprb,4.0323e-01_jprb,3.5398e-01_jprb,3.3209e-01_jprb,3.0343e-01_jprb,2.9566e-01_jprb,&
 & 3.1093e-01_jprb,3.5490e-01_jprb,1.3934e+01_jprb/)  
kao( :, 1, 9,15) = (/&
 & 1.9412e-01_jprb,1.6985e-01_jprb,1.4559e-01_jprb,1.2132e-01_jprb,1.0003e-01_jprb,8.3920e-02_jprb,&
 & 6.4680e-02_jprb,5.0884e-02_jprb,2.5202e+01_jprb/)  
kao( :, 2, 9,15) = (/&
 & 2.5742e-01_jprb,2.2525e-01_jprb,1.9306e-01_jprb,1.6223e-01_jprb,1.4019e-01_jprb,1.1848e-01_jprb,&
 & 9.6308e-02_jprb,8.4787e-02_jprb,3.3443e+01_jprb/)  
kao( :, 3, 9,15) = (/&
 & 3.2748e-01_jprb,2.8656e-01_jprb,2.4562e-01_jprb,2.1272e-01_jprb,1.9002e-01_jprb,1.6032e-01_jprb,&
 & 1.4014e-01_jprb,1.3516e-01_jprb,4.2589e+01_jprb/)  
kao( :, 4, 9,15) = (/&
 & 4.0257e-01_jprb,3.5230e-01_jprb,3.0305e-01_jprb,2.7255e-01_jprb,2.4419e-01_jprb,2.1398e-01_jprb,&
 & 1.9809e-01_jprb,2.0651e-01_jprb,5.2403e+01_jprb/)  
kao( :, 5, 9,15) = (/&
 & 4.8160e-01_jprb,4.2145e-01_jprb,3.6810e-01_jprb,3.4131e-01_jprb,3.0598e-01_jprb,2.8022e-01_jprb,&
 & 2.7440e-01_jprb,3.0100e-01_jprb,6.2821e+01_jprb/)  
kao( :, 1,10,15) = (/&
 & 1.9076e-01_jprb,1.6691e-01_jprb,1.4306e-01_jprb,1.1922e-01_jprb,9.6624e-02_jprb,7.8836e-02_jprb,&
 & 6.0420e-02_jprb,4.2402e-02_jprb,1.1849e+02_jprb/)  
kao( :, 2,10,15) = (/&
 & 2.5693e-01_jprb,2.2481e-01_jprb,1.9273e-01_jprb,1.6146e-01_jprb,1.3713e-01_jprb,1.1570e-01_jprb,&
 & 8.9288e-02_jprb,7.0550e-02_jprb,1.6078e+02_jprb/)  
kao( :, 3,10,15) = (/&
 & 3.3240e-01_jprb,2.9084e-01_jprb,2.4929e-01_jprb,2.1443e-01_jprb,1.8866e-01_jprb,1.5859e-01_jprb,&
 & 1.2931e-01_jprb,1.1318e-01_jprb,2.0842e+02_jprb/)  
kao( :, 4,10,15) = (/&
 & 4.1554e-01_jprb,3.6358e-01_jprb,3.1223e-01_jprb,2.7723e-01_jprb,2.4827e-01_jprb,2.1112e-01_jprb,&
 & 1.8236e-01_jprb,1.7494e-01_jprb,2.6109e+02_jprb/)  
kao( :, 5,10,15) = (/&
 & 5.0485e-01_jprb,4.4183e-01_jprb,3.8382e-01_jprb,3.4997e-01_jprb,3.1509e-01_jprb,2.7563e-01_jprb,&
 & 2.5258e-01_jprb,2.5852e-01_jprb,3.1766e+02_jprb/)  

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


SUBROUTINE part11

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


kao( :, 1,11,15) = (/&
 & 2.1844e-01_jprb,1.9116e-01_jprb,1.6385e-01_jprb,1.3654e-01_jprb,1.1043e-01_jprb,8.9314e-02_jprb,&
 & 6.8138e-02_jprb,4.5935e-02_jprb,2.2340e+02_jprb/)  
kao( :, 2,11,15) = (/&
 & 2.8726e-01_jprb,2.5136e-01_jprb,2.1545e-01_jprb,1.8158e-01_jprb,1.5471e-01_jprb,1.3017e-01_jprb,&
 & 9.9967e-02_jprb,7.4771e-02_jprb,3.0363e+02_jprb/)  
kao( :, 3,11,15) = (/&
 & 3.7321e-01_jprb,3.2655e-01_jprb,2.7990e-01_jprb,2.4162e-01_jprb,2.1196e-01_jprb,1.7932e-01_jprb,&
 & 1.4260e-01_jprb,1.1849e-01_jprb,3.9534e+02_jprb/)  
kao( :, 4,11,15) = (/&
 & 4.6764e-01_jprb,4.0919e-01_jprb,3.5259e-01_jprb,3.1283e-01_jprb,2.7919e-01_jprb,2.3760e-01_jprb,&
 & 1.9841e-01_jprb,1.8073e-01_jprb,4.9612e+02_jprb/)  
kao( :, 5,11,15) = (/&
 & 5.6847e-01_jprb,4.9745e-01_jprb,4.3470e-01_jprb,3.9501e-01_jprb,3.5535e-01_jprb,3.0691e-01_jprb,&
 & 2.7182e-01_jprb,2.6544e-01_jprb,6.0376e+02_jprb/)  
kao( :, 1,12,15) = (/&
 & 2.5386e-01_jprb,2.2213e-01_jprb,1.9039e-01_jprb,1.5866e-01_jprb,1.2803e-01_jprb,1.0260e-01_jprb,&
 & 7.7411e-02_jprb,5.0505e-02_jprb,3.1181e+02_jprb/)  
kao( :, 2,12,15) = (/&
 & 3.2584e-01_jprb,2.8511e-01_jprb,2.4435e-01_jprb,2.0586e-01_jprb,1.7487e-01_jprb,1.4640e-01_jprb,&
 & 1.1295e-01_jprb,8.0206e-02_jprb,4.2527e+02_jprb/)  
kao( :, 3,12,15) = (/&
 & 4.2185e-01_jprb,3.6913e-01_jprb,3.1659e-01_jprb,2.7453e-01_jprb,2.3949e-01_jprb,2.0235e-01_jprb,&
 & 1.5885e-01_jprb,1.2527e-01_jprb,5.5386e+02_jprb/)  
kao( :, 4,12,15) = (/&
 & 5.2872e-01_jprb,4.6263e-01_jprb,4.0035e-01_jprb,3.5526e-01_jprb,3.1589e-01_jprb,2.6854e-01_jprb,&
 & 2.1892e-01_jprb,1.8866e-01_jprb,6.9524e+02_jprb/)  
kao( :, 5,12,15) = (/&
 & 6.4364e-01_jprb,5.6320e-01_jprb,4.9357e-01_jprb,4.4708e-01_jprb,4.0237e-01_jprb,3.4474e-01_jprb,&
 & 2.9649e-01_jprb,2.7537e-01_jprb,8.4735e+02_jprb/)  
kao( :, 1,13,15) = (/&
 & 3.0271e-01_jprb,2.6486e-01_jprb,2.2703e-01_jprb,1.8919e-01_jprb,1.5231e-01_jprb,1.2084e-01_jprb,&
 & 9.0270e-02_jprb,5.7320e-02_jprb,3.4698e+02_jprb/)  
kao( :, 2,13,15) = (/&
 & 3.8384e-01_jprb,3.3586e-01_jprb,2.8793e-01_jprb,2.4185e-01_jprb,2.0369e-01_jprb,1.6894e-01_jprb,&
 & 1.3012e-01_jprb,8.8518e-02_jprb,4.7325e+02_jprb/)  
kao( :, 3,13,15) = (/&
 & 4.9165e-01_jprb,4.3019e-01_jprb,3.6920e-01_jprb,3.1973e-01_jprb,2.7695e-01_jprb,2.3380e-01_jprb,&
 & 1.8192e-01_jprb,1.3513e-01_jprb,6.1726e+02_jprb/)  
kao( :, 4,13,15) = (/&
 & 6.1738e-01_jprb,5.4020e-01_jprb,4.6750e-01_jprb,4.1230e-01_jprb,3.6547e-01_jprb,3.1024e-01_jprb,&
 & 2.4776e-01_jprb,2.0059e-01_jprb,7.7596e+02_jprb/)  
kao( :, 5,13,15) = (/&
 & 7.5168e-01_jprb,6.5770e-01_jprb,5.7644e-01_jprb,5.1768e-01_jprb,4.6514e-01_jprb,3.9851e-01_jprb,&
 & 3.3091e-01_jprb,2.9046e-01_jprb,9.4535e+02_jprb/)  
kao( :, 1, 1,16) = (/&
 & 1.8794e-01_jprb,1.6446e-01_jprb,1.4098e-01_jprb,1.4453e-01_jprb,1.9112e-01_jprb,2.3568e-01_jprb,&
 & 2.7559e-01_jprb,2.9928e-01_jprb,3.6389e-01_jprb/)  
kao( :, 2, 1,16) = (/&
 & 2.1699e-01_jprb,1.8988e-01_jprb,1.6277e-01_jprb,1.9700e-01_jprb,2.6048e-01_jprb,3.2128e-01_jprb,&
 & 3.7575e-01_jprb,4.0820e-01_jprb,4.9613e-01_jprb/)  
kao( :, 3, 1,16) = (/&
 & 2.4618e-01_jprb,2.1543e-01_jprb,1.8468e-01_jprb,2.5950e-01_jprb,3.4314e-01_jprb,4.2321e-01_jprb,&
 & 4.9501e-01_jprb,5.3795e-01_jprb,6.5375e-01_jprb/)  
kao( :, 4, 1,16) = (/&
 & 2.7517e-01_jprb,2.4080e-01_jprb,2.2265e-01_jprb,3.3206e-01_jprb,4.3916e-01_jprb,5.4174e-01_jprb,&
 & 6.3374e-01_jprb,6.8883e-01_jprb,8.3685e-01_jprb/)  
kao( :, 5, 1,16) = (/&
 & 3.0356e-01_jprb,2.6563e-01_jprb,2.7796e-01_jprb,4.1454e-01_jprb,5.4825e-01_jprb,6.7630e-01_jprb,&
 & 7.9114e-01_jprb,8.6022e-01_jprb,1.0450e+00_jprb/)  
kao( :, 1, 2,16) = (/&
 & 2.1263e-01_jprb,1.8604e-01_jprb,1.5947e-01_jprb,1.5196e-01_jprb,2.0093e-01_jprb,2.4784e-01_jprb,&
 & 2.8986e-01_jprb,3.1499e-01_jprb,3.9172e-01_jprb/)  
kao( :, 2, 2,16) = (/&
 & 2.4750e-01_jprb,2.1657e-01_jprb,1.8564e-01_jprb,2.1030e-01_jprb,2.7808e-01_jprb,3.4296e-01_jprb,&
 & 4.0127e-01_jprb,4.3611e-01_jprb,5.4225e-01_jprb/)  
kao( :, 3, 2,16) = (/&
 & 2.8278e-01_jprb,2.4744e-01_jprb,2.1211e-01_jprb,2.8057e-01_jprb,3.7097e-01_jprb,4.5769e-01_jprb,&
 & 5.3545e-01_jprb,5.8223e-01_jprb,7.2368e-01_jprb/)  
kao( :, 4, 2,16) = (/&
 & 3.1792e-01_jprb,2.7821e-01_jprb,2.4340e-01_jprb,3.6301e-01_jprb,4.8000e-01_jprb,5.9222e-01_jprb,&
 & 6.9274e-01_jprb,7.5351e-01_jprb,9.3616e-01_jprb/)  
kao( :, 5, 2,16) = (/&
 & 3.5252e-01_jprb,3.0850e-01_jprb,3.0650e-01_jprb,4.5727e-01_jprb,6.0467e-01_jprb,7.4622e-01_jprb,&
 & 8.7306e-01_jprb,9.4984e-01_jprb,1.1794e+00_jprb/)  
kao( :, 1, 3,16) = (/&
 & 2.3237e-01_jprb,2.0331e-01_jprb,1.7427e-01_jprb,1.4795e-01_jprb,1.9535e-01_jprb,2.4099e-01_jprb,&
 & 2.8188e-01_jprb,3.0650e-01_jprb,3.8991e-01_jprb/)  
kao( :, 2, 3,16) = (/&
 & 2.7395e-01_jprb,2.3972e-01_jprb,2.0548e-01_jprb,2.0945e-01_jprb,2.7700e-01_jprb,3.4180e-01_jprb,&
 & 3.9994e-01_jprb,4.3491e-01_jprb,5.5290e-01_jprb/)  
kao( :, 3, 3,16) = (/&
 & 3.1641e-01_jprb,2.7688e-01_jprb,2.3734e-01_jprb,2.8529e-01_jprb,3.7722e-01_jprb,4.6547e-01_jprb,&
 & 5.4473e-01_jprb,5.9265e-01_jprb,7.5290e-01_jprb/)  
kao( :, 4, 3,16) = (/&
 & 3.5913e-01_jprb,3.1425e-01_jprb,2.6936e-01_jprb,3.7538e-01_jprb,4.9654e-01_jprb,6.1283e-01_jprb,&
 & 7.1724e-01_jprb,7.8067e-01_jprb,9.9115e-01_jprb/)  
kao( :, 5, 3,16) = (/&
 & 4.0136e-01_jprb,3.5124e-01_jprb,3.2170e-01_jprb,4.7982e-01_jprb,6.3476e-01_jprb,7.8330e-01_jprb,&
 & 9.1698e-01_jprb,9.9858e-01_jprb,1.2670e+00_jprb/)  
kao( :, 1, 4,16) = (/&
 & 2.4989e-01_jprb,2.1869e-01_jprb,1.8745e-01_jprb,1.5621e-01_jprb,1.8314e-01_jprb,2.2578e-01_jprb,&
 & 2.6437e-01_jprb,2.8743e-01_jprb,4.8014e-01_jprb/)  
kao( :, 2, 4,16) = (/&
 & 2.9922e-01_jprb,2.6183e-01_jprb,2.2443e-01_jprb,2.0216e-01_jprb,2.6741e-01_jprb,3.2989e-01_jprb,&
 & 3.8624e-01_jprb,4.2053e-01_jprb,5.7494e-01_jprb/)  
kao( :, 3, 4,16) = (/&
 & 3.5007e-01_jprb,3.0634e-01_jprb,2.6259e-01_jprb,2.8203e-01_jprb,3.7315e-01_jprb,4.6045e-01_jprb,&
 & 5.3900e-01_jprb,5.8709e-01_jprb,7.5343e-01_jprb/)  
kao( :, 4, 4,16) = (/&
 & 4.0160e-01_jprb,3.5141e-01_jprb,3.0118e-01_jprb,3.7881e-01_jprb,5.0127e-01_jprb,6.1841e-01_jprb,&
 & 7.2420e-01_jprb,7.8857e-01_jprb,1.0118e+00_jprb/)  
kao( :, 5, 4,16) = (/&
 & 4.5313e-01_jprb,3.9646e-01_jprb,3.4036e-01_jprb,4.9269e-01_jprb,6.5192e-01_jprb,8.0453e-01_jprb,&
 & 9.4219e-01_jprb,1.0271e+00_jprb,1.3148e+00_jprb/)  
kao( :, 1, 5,16) = (/&
 & 2.6693e-01_jprb,2.3353e-01_jprb,2.0017e-01_jprb,1.6678e-01_jprb,1.6870e-01_jprb,2.0825e-01_jprb,&
 & 2.4377e-01_jprb,2.6562e-01_jprb,1.0097e+00_jprb/)  
kao( :, 2, 5,16) = (/&
 & 3.2490e-01_jprb,2.8429e-01_jprb,2.4362e-01_jprb,2.0306e-01_jprb,2.5435e-01_jprb,3.1387e-01_jprb,&
 & 3.6729e-01_jprb,4.0072e-01_jprb,1.2293e+00_jprb/)  
kao( :, 3, 5,16) = (/&
 & 3.8533e-01_jprb,3.3720e-01_jprb,2.8903e-01_jprb,2.7540e-01_jprb,3.6433e-01_jprb,4.4941e-01_jprb,&
 & 5.2674e-01_jprb,5.7460e-01_jprb,1.4580e+00_jprb/)  
kao( :, 4, 5,16) = (/&
 & 4.4720e-01_jprb,3.9129e-01_jprb,3.3549e-01_jprb,3.7808e-01_jprb,5.0020e-01_jprb,6.1752e-01_jprb,&
 & 7.2292e-01_jprb,7.8975e-01_jprb,1.6925e+00_jprb/)  
kao( :, 5, 5,16) = (/&
 & 5.0948e-01_jprb,4.4592e-01_jprb,3.8223e-01_jprb,5.0057e-01_jprb,6.6242e-01_jprb,8.1818e-01_jprb,&
 & 9.5865e-01_jprb,1.0467e+00_jprb,1.9289e+00_jprb/)  
kao( :, 1, 6,16) = (/&
 & 2.8083e-01_jprb,2.4573e-01_jprb,2.1063e-01_jprb,1.7555e-01_jprb,1.5015e-01_jprb,1.8516e-01_jprb,&
 & 2.1690e-01_jprb,2.3675e-01_jprb,1.9657e+00_jprb/)  
kao( :, 2, 6,16) = (/&
 & 3.4835e-01_jprb,3.0480e-01_jprb,2.6132e-01_jprb,2.1777e-01_jprb,2.3453e-01_jprb,2.8980e-01_jprb,&
 & 3.3958e-01_jprb,3.7078e-01_jprb,2.4391e+00_jprb/)  
kao( :, 3, 6,16) = (/&
 & 4.1976e-01_jprb,3.6729e-01_jprb,3.1483e-01_jprb,2.6738e-01_jprb,3.4635e-01_jprb,4.2784e-01_jprb,&
 & 5.0150e-01_jprb,5.4802e-01_jprb,2.9392e+00_jprb/)  
kao( :, 4, 6,16) = (/&
 & 4.9356e-01_jprb,4.3188e-01_jprb,3.7019e-01_jprb,3.6832e-01_jprb,4.8722e-01_jprb,6.0225e-01_jprb,&
 & 7.0615e-01_jprb,7.7190e-01_jprb,3.4563e+00_jprb/)  
kao( :, 5, 6,16) = (/&
 & 5.6851e-01_jprb,4.9738e-01_jprb,4.2634e-01_jprb,4.9804e-01_jprb,6.5918e-01_jprb,8.1420e-01_jprb,&
 & 9.5511e-01_jprb,1.0452e+00_jprb,3.9808e+00_jprb/)  
kao( :, 1, 7,16) = (/&
 & 2.9602e-01_jprb,2.5901e-01_jprb,2.2201e-01_jprb,1.8497e-01_jprb,1.4799e-01_jprb,1.6095e-01_jprb,&
 & 1.8877e-01_jprb,2.0662e-01_jprb,3.9956e+00_jprb/)  
kao( :, 2, 7,16) = (/&
 & 3.7489e-01_jprb,3.2803e-01_jprb,2.8110e-01_jprb,2.3429e-01_jprb,2.1216e-01_jprb,2.6198e-01_jprb,&
 & 3.0739e-01_jprb,3.3690e-01_jprb,5.0612e+00_jprb/)  
kao( :, 3, 7,16) = (/&
 & 4.5934e-01_jprb,4.0186e-01_jprb,3.4446e-01_jprb,2.8709e-01_jprb,3.2355e-01_jprb,3.9962e-01_jprb,&
 & 4.6900e-01_jprb,5.1413e-01_jprb,6.2014e+00_jprb/)  
kao( :, 4, 7,16) = (/&
 & 5.4772e-01_jprb,4.7919e-01_jprb,4.1082e-01_jprb,3.5907e-01_jprb,4.6765e-01_jprb,5.7781e-01_jprb,&
 & 6.7844e-01_jprb,7.4475e-01_jprb,7.3945e+00_jprb/)  
kao( :, 5, 7,16) = (/&
 & 6.3818e-01_jprb,5.5843e-01_jprb,4.7875e-01_jprb,4.8820e-01_jprb,6.4638e-01_jprb,7.9944e-01_jprb,&
 & 9.3819e-01_jprb,1.0310e+00_jprb,8.6187e+00_jprb/)  
kao( :, 1, 8,16) = (/&
 & 3.1643e-01_jprb,2.7689e-01_jprb,2.3733e-01_jprb,1.9778e-01_jprb,1.5822e-01_jprb,1.3698e-01_jprb,&
 & 1.6092e-01_jprb,1.7692e-01_jprb,9.6744e+00_jprb/)  
kao( :, 2, 8,16) = (/&
 & 4.0971e-01_jprb,3.5849e-01_jprb,3.0728e-01_jprb,2.5607e-01_jprb,2.0550e-01_jprb,2.3311e-01_jprb,&
 & 2.7394e-01_jprb,3.0140e-01_jprb,1.2526e+01_jprb/)  
kao( :, 3, 8,16) = (/&
 & 5.1114e-01_jprb,4.4727e-01_jprb,3.8338e-01_jprb,3.1946e-01_jprb,2.9762e-01_jprb,3.6825e-01_jprb,&
 & 4.3294e-01_jprb,4.7698e-01_jprb,1.5632e+01_jprb/)  
kao( :, 4, 8,16) = (/&
 & 6.1845e-01_jprb,5.4119e-01_jprb,4.6383e-01_jprb,3.8657e-01_jprb,4.4256e-01_jprb,5.4777e-01_jprb,&
 & 6.4434e-01_jprb,7.1023e-01_jprb,1.8915e+01_jprb/)  
kao( :, 5, 8,16) = (/&
 & 7.2956e-01_jprb,6.3833e-01_jprb,5.4715e-01_jprb,4.8521e-01_jprb,6.2642e-01_jprb,7.7483e-01_jprb,&
 & 9.1223e-01_jprb,1.0061e+00_jprb,2.2311e+01_jprb/)  
kao( :, 1, 9,16) = (/&
 & 3.3206e-01_jprb,2.9059e-01_jprb,2.4908e-01_jprb,2.0756e-01_jprb,1.6605e-01_jprb,1.2520e-01_jprb,&
 & 1.3332e-01_jprb,1.4726e-01_jprb,4.3754e+01_jprb/)  
kao( :, 2, 9,16) = (/&
 & 4.4050e-01_jprb,3.8544e-01_jprb,3.3040e-01_jprb,2.7529e-01_jprb,2.2025e-01_jprb,2.0212e-01_jprb,&
 & 2.3801e-01_jprb,2.6323e-01_jprb,5.8016e+01_jprb/)  
kao( :, 3, 9,16) = (/&
 & 5.6026e-01_jprb,4.9023e-01_jprb,4.2020e-01_jprb,3.5022e-01_jprb,2.8778e-01_jprb,3.3184e-01_jprb,&
 & 3.9083e-01_jprb,4.3264e-01_jprb,7.3805e+01_jprb/)  
kao( :, 4, 9,16) = (/&
 & 6.8858e-01_jprb,6.0253e-01_jprb,5.1637e-01_jprb,4.3040e-01_jprb,4.1206e-01_jprb,5.0884e-01_jprb,&
 & 5.9967e-01_jprb,6.6456e-01_jprb,9.0709e+01_jprb/)  
kao( :, 5, 9,16) = (/&
 & 8.2259e-01_jprb,7.1975e-01_jprb,6.1688e-01_jprb,5.1707e-01_jprb,5.9606e-01_jprb,7.3858e-01_jprb,&
 & 8.7057e-01_jprb,9.6569e-01_jprb,1.0838e+02_jprb/)  
kao( :, 1,10,16) = (/&
 & 3.5261e-01_jprb,3.0855e-01_jprb,2.6447e-01_jprb,2.2042e-01_jprb,1.7636e-01_jprb,1.3225e-01_jprb,&
 & 1.1302e-01_jprb,1.2540e-01_jprb,2.2383e+02_jprb/)  
kao( :, 2,10,16) = (/&
 & 4.7821e-01_jprb,4.1843e-01_jprb,3.5857e-01_jprb,2.9886e-01_jprb,2.3906e-01_jprb,1.8964e-01_jprb,&
 & 2.1098e-01_jprb,2.3441e-01_jprb,3.0350e+02_jprb/)  
kao( :, 3,10,16) = (/&
 & 6.1881e-01_jprb,5.4145e-01_jprb,4.6410e-01_jprb,3.8673e-01_jprb,3.0946e-01_jprb,3.0407e-01_jprb,&
 & 3.5878e-01_jprb,3.9920e-01_jprb,3.9277e+02_jprb/)  
kao( :, 4,10,16) = (/&
 & 7.7105e-01_jprb,6.7484e-01_jprb,5.7823e-01_jprb,4.8190e-01_jprb,4.1230e-01_jprb,4.7947e-01_jprb,&
 & 5.6602e-01_jprb,6.3051e-01_jprb,4.8953e+02_jprb/)  
kao( :, 5,10,16) = (/&
 & 9.3145e-01_jprb,8.1502e-01_jprb,6.9859e-01_jprb,5.8205e-01_jprb,5.7779e-01_jprb,7.1138e-01_jprb,&
 & 8.4040e-01_jprb,9.3669e-01_jprb,5.9127e+02_jprb/)  
kao( :, 1,11,16) = (/&
 & 4.3261e-01_jprb,3.7853e-01_jprb,3.2446e-01_jprb,2.7039e-01_jprb,2.1632e-01_jprb,1.6222e-01_jprb,&
 & 1.3099e-01_jprb,1.4452e-01_jprb,4.6285e+02_jprb/)  
kao( :, 2,11,16) = (/&
 & 5.8535e-01_jprb,5.1218e-01_jprb,4.3901e-01_jprb,3.6590e-01_jprb,2.9265e-01_jprb,2.2872e-01_jprb,&
 & 2.4101e-01_jprb,2.6929e-01_jprb,6.2611e+02_jprb/)  
kao( :, 3,11,16) = (/&
 & 7.5565e-01_jprb,6.6141e-01_jprb,5.6693e-01_jprb,4.7237e-01_jprb,3.7786e-01_jprb,3.5050e-01_jprb,&
 & 4.0844e-01_jprb,4.5697e-01_jprb,8.0847e+02_jprb/)  
kao( :, 4,11,16) = (/&
 & 9.3953e-01_jprb,8.2209e-01_jprb,7.0458e-01_jprb,5.8709e-01_jprb,4.9467e-01_jprb,5.4296e-01_jprb,&
 & 6.4241e-01_jprb,7.1951e-01_jprb,1.0051e+03_jprb/)  
kao( :, 5,11,16) = (/&
 & 1.1321e+00_jprb,9.9048e-01_jprb,8.4898e-01_jprb,7.0764e-01_jprb,6.7182e-01_jprb,8.0337e-01_jprb,&
 & 9.5077e-01_jprb,1.0665e+00_jprb,1.2110e+03_jprb/)  
kao( :, 1,12,16) = (/&
 & 5.3519e-01_jprb,4.6832e-01_jprb,4.0142e-01_jprb,3.3452e-01_jprb,2.6763e-01_jprb,2.0072e-01_jprb,&
 & 1.5467e-01_jprb,1.6502e-01_jprb,7.0824e+02_jprb/)  
kao( :, 2,12,16) = (/&
 & 7.2183e-01_jprb,6.3160e-01_jprb,5.4131e-01_jprb,4.5112e-01_jprb,3.6090e-01_jprb,2.7900e-01_jprb,&
 & 2.7245e-01_jprb,3.0622e-01_jprb,9.5519e+02_jprb/)  
kao( :, 3,12,16) = (/&
 & 9.2882e-01_jprb,8.1286e-01_jprb,6.9674e-01_jprb,5.8057e-01_jprb,4.6450e-01_jprb,4.1101e-01_jprb,&
 & 4.5999e-01_jprb,5.1778e-01_jprb,1.2292e+03_jprb/)  
kao( :, 4,12,16) = (/&
 & 1.1518e+00_jprb,1.0078e+00_jprb,8.6369e-01_jprb,7.1969e-01_jprb,5.9900e-01_jprb,6.1266e-01_jprb,&
 & 7.2069e-01_jprb,8.1237e-01_jprb,1.5237e+03_jprb/)  
kao( :, 5,12,16) = (/&
 & 1.3877e+00_jprb,1.2141e+00_jprb,1.0407e+00_jprb,8.6727e-01_jprb,7.9163e-01_jprb,8.9653e-01_jprb,&
 & 1.0630e+00_jprb,1.1997e+00_jprb,1.8362e+03_jprb/)  
kao( :, 1,13,16) = (/&
 & 6.8305e-01_jprb,5.9769e-01_jprb,5.1231e-01_jprb,4.2692e-01_jprb,3.4152e-01_jprb,2.5608e-01_jprb,&
 & 1.8801e-01_jprb,1.8615e-01_jprb,8.6247e+02_jprb/)  
kao( :, 2,13,16) = (/&
 & 9.1792e-01_jprb,8.0318e-01_jprb,6.8841e-01_jprb,5.7362e-01_jprb,4.5889e-01_jprb,3.5002e-01_jprb,&
 & 3.1177e-01_jprb,3.4406e-01_jprb,1.1588e+03_jprb/)  
kao( :, 3,13,16) = (/&
 & 1.1812e+00_jprb,1.0334e+00_jprb,8.8578e-01_jprb,7.3808e-01_jprb,5.9053e-01_jprb,4.9511e-01_jprb,&
 & 5.1116e-01_jprb,5.7929e-01_jprb,1.4913e+03_jprb/)  
kao( :, 4,13,16) = (/&
 & 1.4677e+00_jprb,1.2842e+00_jprb,1.1009e+00_jprb,9.1748e-01_jprb,7.4504e-01_jprb,7.0766e-01_jprb,&
 & 7.9819e-01_jprb,9.0553e-01_jprb,1.8526e+03_jprb/)  
kao( :, 5,13,16) = (/&
 & 1.7710e+00_jprb,1.5496e+00_jprb,1.3282e+00_jprb,1.1069e+00_jprb,9.5682e-01_jprb,1.0004e+00_jprb,&
 & 1.1734e+00_jprb,1.3329e+00_jprb,2.2362e+03_jprb/)  

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

selfrefo( :, 1) = (/&
 & 9.83745e-03_jprb, 8.45687e-03_jprb, 7.27004e-03_jprb, 6.24977e-03_jprb, 5.37269e-03_jprb,&
 & 4.61869e-03_jprb, 3.97051e-03_jprb, 3.41329e-03_jprb, 2.93427e-03_jprb, 2.52248e-03_jprb/)  
selfrefo( :, 2) = (/&
 & 9.79014e-03_jprb, 8.48557e-03_jprb, 7.35483e-03_jprb, 6.37477e-03_jprb, 5.52531e-03_jprb,&
 & 4.78905e-03_jprb, 4.15089e-03_jprb, 3.59777e-03_jprb, 3.11835e-03_jprb, 2.70282e-03_jprb/)  
selfrefo( :, 3) = (/&
 & 9.36931e-03_jprb, 8.10880e-03_jprb, 7.01787e-03_jprb, 6.07371e-03_jprb, 5.25658e-03_jprb,&
 & 4.54938e-03_jprb, 3.93732e-03_jprb, 3.40761e-03_jprb, 2.94916e-03_jprb, 2.55239e-03_jprb/)  
selfrefo( :, 4) = (/&
 & 8.44896e-03_jprb, 7.26401e-03_jprb, 6.24525e-03_jprb, 5.36937e-03_jprb, 4.61632e-03_jprb,&
 & 3.96889e-03_jprb, 3.41226e-03_jprb, 2.93370e-03_jprb, 2.52226e-03_jprb, 2.16851e-03_jprb/)  
selfrefo( :, 5) = (/&
 & 6.69018e-03_jprb, 5.93911e-03_jprb, 5.27237e-03_jprb, 4.68047e-03_jprb, 4.15502e-03_jprb,&
 & 3.68856e-03_jprb, 3.27447e-03_jprb, 2.90686e-03_jprb, 2.58053e-03_jprb, 2.29083e-03_jprb/)  
selfrefo( :, 6) = (/&
 & 6.26590e-03_jprb, 5.54076e-03_jprb, 4.89954e-03_jprb, 4.33252e-03_jprb, 3.83113e-03_jprb,&
 & 3.38776e-03_jprb, 2.99570e-03_jprb, 2.64901e-03_jprb, 2.34244e-03_jprb, 2.07136e-03_jprb/)  
selfrefo( :, 7) = (/&
 & 6.01943e-03_jprb, 5.31006e-03_jprb, 4.68429e-03_jprb, 4.13226e-03_jprb, 3.64529e-03_jprb,&
 & 3.21570e-03_jprb, 2.83674e-03_jprb, 2.50244e-03_jprb, 2.20754e-03_jprb, 1.94739e-03_jprb/)  
selfrefo( :, 8) = (/&
 & 5.80205e-03_jprb, 5.07696e-03_jprb, 4.44248e-03_jprb, 3.88730e-03_jprb, 3.40149e-03_jprb,&
 & 2.97640e-03_jprb, 2.60444e-03_jprb, 2.27895e-03_jprb, 1.99415e-03_jprb, 1.74494e-03_jprb/)  
selfrefo( :, 9) = (/&
 & 4.90962e-03_jprb, 4.54613e-03_jprb, 4.20956e-03_jprb, 3.89790e-03_jprb, 3.60931e-03_jprb,&
 & 3.34210e-03_jprb, 3.09466e-03_jprb, 2.86555e-03_jprb, 2.65339e-03_jprb, 2.45695e-03_jprb/)  
selfrefo( :,10) = (/&
 & 4.51541e-03_jprb, 4.34841e-03_jprb, 4.18758e-03_jprb, 4.03271e-03_jprb, 3.88356e-03_jprb,&
 & 3.73992e-03_jprb, 3.60160e-03_jprb, 3.46840e-03_jprb, 3.34012e-03_jprb, 3.21658e-03_jprb/)  
selfrefo( :,11) = (/&
 & 4.41859e-03_jprb, 4.25299e-03_jprb, 4.09360e-03_jprb, 3.94018e-03_jprb, 3.79252e-03_jprb,&
 & 3.65038e-03_jprb, 3.51357e-03_jprb, 3.38189e-03_jprb, 3.25515e-03_jprb, 3.13316e-03_jprb/)  
selfrefo( :,12) = (/&
 & 4.41867e-03_jprb, 4.22140e-03_jprb, 4.03294e-03_jprb, 3.85289e-03_jprb, 3.68088e-03_jprb,&
 & 3.51655e-03_jprb, 3.35956e-03_jprb, 3.20957e-03_jprb, 3.06628e-03_jprb, 2.92939e-03_jprb/)  
selfrefo( :,13) = (/&
 & 4.42776e-03_jprb, 4.34604e-03_jprb, 4.26583e-03_jprb, 4.18710e-03_jprb, 4.10983e-03_jprb,&
 & 4.03398e-03_jprb, 3.95953e-03_jprb, 3.88645e-03_jprb, 3.81472e-03_jprb, 3.74432e-03_jprb/)  
selfrefo( :,14) = (/&
 & 4.46410e-03_jprb, 4.46210e-03_jprb, 4.46011e-03_jprb, 4.45812e-03_jprb, 4.45613e-03_jprb,&
 & 4.45414e-03_jprb, 4.45216e-03_jprb, 4.45017e-03_jprb, 4.44818e-03_jprb, 4.44620e-03_jprb/)  

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


SUBROUTINE part12

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


selfrefo( :,15) = (/&
 & 3.21270e-03_jprb, 3.42098e-03_jprb, 3.64276e-03_jprb, 3.87892e-03_jprb, 4.13040e-03_jprb,&
 & 4.39817e-03_jprb, 4.68330e-03_jprb, 4.98692e-03_jprb, 5.31023e-03_jprb, 5.65449e-03_jprb/)  
selfrefo( :,16) = (/&
 & 3.11411e-03_jprb, 3.35874e-03_jprb, 3.62259e-03_jprb, 3.90717e-03_jprb, 4.21410e-03_jprb,&
 & 4.54514e-03_jprb, 4.90219e-03_jprb, 5.28729e-03_jprb, 5.70264e-03_jprb, 6.15061e-03_jprb/)  

fracrefao( : , 1) = (/&
 !   From P = 706.3 mb.
 & 0.17683899_jprb,0.17319500_jprb,0.15712699_jprb,0.13604601_jprb,&
 & 0.10776200_jprb,0.08750010_jprb,0.06808820_jprb,0.04905150_jprb,&
 & 0.03280360_jprb,0.00350836_jprb,0.00281864_jprb,0.00219862_jprb,&
 & 0.00160943_jprb,0.00101885_jprb,0.00038147_jprb,0.00005348_jprb/)  
fracrefao( : , 2) = (/&
 & 0.17535400_jprb,0.16999300_jprb,0.15610200_jprb,0.13589200_jprb,&
 & 0.10842100_jprb,0.08988550_jprb,0.06943920_jprb,0.04974900_jprb,&
 & 0.03323400_jprb,0.00352752_jprb,0.00289402_jprb,0.00231003_jprb,&
 & 0.00174659_jprb,0.00101884_jprb,0.00038147_jprb,0.00005348_jprb/)  
fracrefao( : , 3) = (/&
 & 0.17409500_jprb,0.16846400_jprb,0.15641899_jprb,0.13503000_jprb,&
 & 0.10838600_jprb,0.08985800_jprb,0.07092720_jprb,0.05075710_jprb,&
 & 0.03364180_jprb,0.00354241_jprb,0.00303507_jprb,0.00243391_jprb,&
 & 0.00177502_jprb,0.00114638_jprb,0.00043585_jprb,0.00005348_jprb/)  
fracrefao( : , 4) = (/&
 & 0.17248300_jprb,0.16778600_jprb,0.15543500_jprb,0.13496999_jprb,&
 & 0.10826300_jprb,0.09028740_jprb,0.07156720_jprb,0.05187120_jprb,&
 & 0.03424890_jprb,0.00363933_jprb,0.00324715_jprb,0.00255030_jprb,&
 & 0.00187380_jprb,0.00116978_jprb,0.00051229_jprb,0.00009768_jprb/)  
fracrefao( : , 5) = (/&
 & 0.17061099_jprb,0.16715799_jprb,0.15405200_jprb,0.13471501_jprb,&
 & 0.10896400_jprb,0.09069460_jprb,0.07229760_jprb,0.05218280_jprb,&
 & 0.03555340_jprb,0.00379576_jprb,0.00330240_jprb,0.00274693_jprb,&
 & 0.00201587_jprb,0.00119598_jprb,0.00061885_jprb,0.00009768_jprb/)  
fracrefao( : , 6) = (/&
 & 0.16789700_jprb,0.16629100_jprb,0.15270300_jprb,0.13360199_jprb,&
 & 0.11047200_jprb,0.09151080_jprb,0.07325000_jprb,0.05261450_jprb,&
 & 0.03657990_jprb,0.00450092_jprb,0.00349537_jprb,0.00283321_jprb,&
 & 0.00208396_jprb,0.00140354_jprb,0.00066587_jprb,0.00009768_jprb/)  
fracrefao( : , 7) = (/&
 & 0.16412200_jprb,0.16387400_jprb,0.15211500_jprb,0.13062200_jprb,&
 & 0.11325100_jprb,0.09348130_jprb,0.07381380_jprb,0.05434740_jprb,&
 & 0.03803160_jprb,0.00481346_jprb,0.00393592_jprb,0.00296633_jprb,&
 & 0.00222532_jprb,0.00163762_jprb,0.00066648_jprb,0.00009768_jprb/)  
fracrefao( : , 8) = (/&
 & 0.15513401_jprb,0.15768200_jprb,0.14850400_jprb,0.13330200_jprb,&
 & 0.11446500_jprb,0.09868230_jprb,0.07642050_jprb,0.05624170_jprb,&
 & 0.04197810_jprb,0.00502288_jprb,0.00429452_jprb,0.00315347_jprb,&
 & 0.00263559_jprb,0.00171772_jprb,0.00066860_jprb,0.00009768_jprb/)  
fracrefao( : , 9) = (/&
 & 0.15732600_jprb,0.15223300_jprb,0.14271900_jprb,0.13563600_jprb,&
 & 0.11859600_jprb,0.10274200_jprb,0.07934560_jprb,0.05763410_jprb,&
 & 0.03921740_jprb,0.00437741_jprb,0.00337921_jprb,0.00280212_jprb,&
 & 0.00200156_jprb,0.00124812_jprb,0.00064664_jprb,0.00009768_jprb/)  

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


END SUBROUTINE rrtm_kgb13