rrtm_kgb12.F90

Go to the documentation of this file.

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

!     Originally by Eli J. Mlawer, Atmospheric & Environmental Research.
!     BAND 12:  1800-2080 cm-1 (low - H2O,CO2; high - nothing)
!     Reformatted for F90 by JJMorcrette, ECMWF
!     R. Elkhatib 12-10-2005 Split for faster and more robust compilation.

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

USE parkind1  ,ONLY : jprb
USE yomhook   ,ONLY : lhook,   dr_hook

USE yoerrto12, ONLY : kao     ,selfrefo   ,fracrefao
USE yoerrta12, ONLY : strrat

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

IMPLICIT NONE
REAL(KIND=JPRB) :: ZHOOK_HANDLE

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

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

CONTAINS


SUBROUTINE part1

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


strrat = 0.009736757_jprb

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

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

kao( :, 1, 1, 1) = (/&
 & 1.1071e-04_jprb,1.7190e-03_jprb,2.1297e-03_jprb,2.2974e-03_jprb,2.3638e-03_jprb,2.3377e-03_jprb,&
 & 2.2182e-03_jprb,1.9598e-03_jprb,6.0644e-04_jprb/)  
kao( :, 2, 1, 1) = (/&
 & 1.1961e-04_jprb,1.8523e-03_jprb,2.3139e-03_jprb,2.5087e-03_jprb,2.5832e-03_jprb,2.5507e-03_jprb,&
 & 2.4226e-03_jprb,2.1400e-03_jprb,6.6787e-04_jprb/)  
kao( :, 3, 1, 1) = (/&
 & 1.2897e-04_jprb,1.9814e-03_jprb,2.4904e-03_jprb,2.7224e-03_jprb,2.7992e-03_jprb,2.7616e-03_jprb,&
 & 2.6285e-03_jprb,2.3297e-03_jprb,7.4226e-04_jprb/)  
kao( :, 4, 1, 1) = (/&
 & 1.3900e-04_jprb,2.1069e-03_jprb,2.6619e-03_jprb,2.9256e-03_jprb,3.0085e-03_jprb,2.9760e-03_jprb,&
 & 2.8383e-03_jprb,2.5269e-03_jprb,8.2019e-04_jprb/)  
kao( :, 5, 1, 1) = (/&
 & 1.4980e-04_jprb,2.2307e-03_jprb,2.8258e-03_jprb,3.1153e-03_jprb,3.2140e-03_jprb,3.1919e-03_jprb,&
 & 3.0529e-03_jprb,2.7312e-03_jprb,9.0306e-04_jprb/)  
kao( :, 1, 2, 1) = (/&
 & 9.5033e-05_jprb,1.3952e-03_jprb,1.7345e-03_jprb,1.8757e-03_jprb,1.9301e-03_jprb,1.9088e-03_jprb,&
 & 1.8109e-03_jprb,1.6003e-03_jprb,4.8147e-04_jprb/)  
kao( :, 2, 2, 1) = (/&
 & 1.0264e-04_jprb,1.5043e-03_jprb,1.8862e-03_jprb,2.0524e-03_jprb,2.1155e-03_jprb,2.0891e-03_jprb,&
 & 1.9828e-03_jprb,1.7518e-03_jprb,5.3179e-04_jprb/)  
kao( :, 3, 2, 1) = (/&
 & 1.1088e-04_jprb,1.6110e-03_jprb,2.0326e-03_jprb,2.2296e-03_jprb,2.2969e-03_jprb,2.2672e-03_jprb,&
 & 2.1565e-03_jprb,1.9107e-03_jprb,5.9063e-04_jprb/)  
kao( :, 4, 2, 1) = (/&
 & 1.1978e-04_jprb,1.7142e-03_jprb,2.1747e-03_jprb,2.4004e-03_jprb,2.4722e-03_jprb,2.4486e-03_jprb,&
 & 2.3338e-03_jprb,2.0762e-03_jprb,6.5252e-04_jprb/)  
kao( :, 5, 2, 1) = (/&
 & 1.2917e-04_jprb,1.8168e-03_jprb,2.3124e-03_jprb,2.5589e-03_jprb,2.6465e-03_jprb,2.6314e-03_jprb,&
 & 2.5162e-03_jprb,2.2491e-03_jprb,7.1928e-04_jprb/)  
kao( :, 1, 3, 1) = (/&
 & 7.9672e-05_jprb,1.1113e-03_jprb,1.3811e-03_jprb,1.4950e-03_jprb,1.5396e-03_jprb,1.5237e-03_jprb,&
 & 1.4450e-03_jprb,1.2772e-03_jprb,3.7750e-04_jprb/)  
kao( :, 2, 3, 1) = (/&
 & 8.5835e-05_jprb,1.2012e-03_jprb,1.5072e-03_jprb,1.6412e-03_jprb,1.6938e-03_jprb,1.6765e-03_jprb,&
 & 1.5878e-03_jprb,1.4020e-03_jprb,4.1693e-04_jprb/)  
kao( :, 3, 3, 1) = (/&
 & 9.2724e-05_jprb,1.2894e-03_jprb,1.6284e-03_jprb,1.7887e-03_jprb,1.8470e-03_jprb,1.8261e-03_jprb,&
 & 1.7328e-03_jprb,1.5335e-03_jprb,4.6226e-04_jprb/)  
kao( :, 4, 3, 1) = (/&
 & 1.0021e-04_jprb,1.3753e-03_jprb,1.7467e-03_jprb,1.9334e-03_jprb,1.9945e-03_jprb,1.9763e-03_jprb,&
 & 1.8807e-03_jprb,1.6701e-03_jprb,5.1131e-04_jprb/)  
kao( :, 5, 3, 1) = (/&
 & 1.0826e-04_jprb,1.4602e-03_jprb,1.8628e-03_jprb,2.0684e-03_jprb,2.1410e-03_jprb,2.1291e-03_jprb,&
 & 2.0333e-03_jprb,1.8146e-03_jprb,5.6359e-04_jprb/)  
kao( :, 1, 4, 1) = (/&
 & 6.6541e-05_jprb,8.7720e-04_jprb,1.0880e-03_jprb,1.1789e-03_jprb,1.2150e-03_jprb,1.2040e-03_jprb,&
 & 1.1429e-03_jprb,1.0102e-03_jprb,3.0065e-04_jprb/)  
kao( :, 2, 4, 1) = (/&
 & 7.1240e-05_jprb,9.5116e-04_jprb,1.1928e-03_jprb,1.2997e-03_jprb,1.3427e-03_jprb,1.3311e-03_jprb,&
 & 1.2602e-03_jprb,1.1118e-03_jprb,3.3112e-04_jprb/)  
kao( :, 3, 4, 1) = (/&
 & 7.6627e-05_jprb,1.0246e-03_jprb,1.2929e-03_jprb,1.4214e-03_jprb,1.4711e-03_jprb,1.4559e-03_jprb,&
 & 1.3800e-03_jprb,1.2193e-03_jprb,3.6623e-04_jprb/)  
kao( :, 4, 4, 1) = (/&
 & 8.2697e-05_jprb,1.0967e-03_jprb,1.3910e-03_jprb,1.5434e-03_jprb,1.5957e-03_jprb,1.5801e-03_jprb,&
 & 1.5019e-03_jprb,1.3318e-03_jprb,4.0479e-04_jprb/)  
kao( :, 5, 4, 1) = (/&
 & 8.9353e-05_jprb,1.1675e-03_jprb,1.4884e-03_jprb,1.6584e-03_jprb,1.7180e-03_jprb,1.7064e-03_jprb,&
 & 1.6273e-03_jprb,1.4511e-03_jprb,4.4590e-04_jprb/)  
kao( :, 1, 5, 1) = (/&
 & 5.5998e-05_jprb,6.8983e-04_jprb,8.5274e-04_jprb,9.2493e-04_jprb,9.5405e-04_jprb,9.4771e-04_jprb,&
 & 9.0156e-04_jprb,7.9782e-04_jprb,2.4473e-04_jprb/)  
kao( :, 2, 5, 1) = (/&
 & 5.9569e-05_jprb,7.5053e-04_jprb,9.3935e-04_jprb,1.0247e-03_jprb,1.0592e-03_jprb,1.0509e-03_jprb,&
 & 9.9609e-04_jprb,8.7904e-04_jprb,2.6874e-04_jprb/)  
kao( :, 3, 5, 1) = (/&
 & 6.3728e-05_jprb,8.1164e-04_jprb,1.0227e-03_jprb,1.1245e-03_jprb,1.1656e-03_jprb,1.1550e-03_jprb,&
 & 1.0939e-03_jprb,9.6668e-04_jprb,2.9631e-04_jprb/)  
kao( :, 4, 5, 1) = (/&
 & 6.8493e-05_jprb,8.7191e-04_jprb,1.1043e-03_jprb,1.2254e-03_jprb,1.2701e-03_jprb,1.2575e-03_jprb,&
 & 1.1938e-03_jprb,1.0585e-03_jprb,3.2693e-04_jprb/)  
kao( :, 5, 5, 1) = (/&
 & 7.3804e-05_jprb,9.3124e-04_jprb,1.1858e-03_jprb,1.3231e-03_jprb,1.3713e-03_jprb,1.3618e-03_jprb,&
 & 1.2967e-03_jprb,1.1556e-03_jprb,3.5959e-04_jprb/)  
kao( :, 1, 6, 1) = (/&
 & 4.7433e-05_jprb,5.3952e-04_jprb,6.6302e-04_jprb,7.1941e-04_jprb,7.4278e-04_jprb,7.3993e-04_jprb,&
 & 7.0682e-04_jprb,6.2737e-04_jprb,2.0502e-04_jprb/)  
kao( :, 2, 6, 1) = (/&
 & 5.0194e-05_jprb,5.8914e-04_jprb,7.3430e-04_jprb,8.0093e-04_jprb,8.2839e-04_jprb,8.2234e-04_jprb,&
 & 7.8161e-04_jprb,6.9096e-04_jprb,2.2413e-04_jprb/)  
kao( :, 3, 6, 1) = (/&
 & 5.3412e-05_jprb,6.3967e-04_jprb,8.0393e-04_jprb,8.8246e-04_jprb,9.1533e-04_jprb,9.0872e-04_jprb,&
 & 8.6111e-04_jprb,7.6158e-04_jprb,2.4611e-04_jprb/)  
kao( :, 4, 6, 1) = (/&
 & 5.7167e-05_jprb,6.9003e-04_jprb,8.7186e-04_jprb,9.6499e-04_jprb,1.0025e-03_jprb,9.9324e-04_jprb,&
 & 9.4228e-04_jprb,8.3524e-04_jprb,2.7084e-04_jprb/)  
kao( :, 5, 6, 1) = (/&
 & 6.1369e-05_jprb,7.3991e-04_jprb,9.3979e-04_jprb,1.0473e-03_jprb,1.0862e-03_jprb,1.0788e-03_jprb,&
 & 1.0266e-03_jprb,9.1379e-04_jprb,2.9720e-04_jprb/)  
kao( :, 1, 7, 1) = (/&
 & 4.0204e-05_jprb,4.2071e-04_jprb,5.1329e-04_jprb,5.5704e-04_jprb,5.7598e-04_jprb,5.7560e-04_jprb,&
 & 5.5294e-04_jprb,4.9311e-04_jprb,1.8038e-04_jprb/)  
kao( :, 2, 7, 1) = (/&
 & 4.2409e-05_jprb,4.6139e-04_jprb,5.7116e-04_jprb,6.2323e-04_jprb,6.4451e-04_jprb,6.4096e-04_jprb,&
 & 6.1142e-04_jprb,5.4196e-04_jprb,1.9582e-04_jprb/)  
kao( :, 3, 7, 1) = (/&
 & 4.4969e-05_jprb,5.0267e-04_jprb,6.2911e-04_jprb,6.8938e-04_jprb,7.1511e-04_jprb,7.1073e-04_jprb,&
 & 6.7548e-04_jprb,5.9790e-04_jprb,2.1379e-04_jprb/)  
kao( :, 4, 7, 1) = (/&
 & 4.7926e-05_jprb,5.4471e-04_jprb,6.8586e-04_jprb,7.5653e-04_jprb,7.8682e-04_jprb,7.8099e-04_jprb,&
 & 7.4115e-04_jprb,6.5723e-04_jprb,2.3382e-04_jprb/)  
kao( :, 5, 7, 1) = (/&
 & 5.1304e-05_jprb,5.8645e-04_jprb,7.4180e-04_jprb,8.2446e-04_jprb,8.5674e-04_jprb,8.5104e-04_jprb,&
 & 8.0968e-04_jprb,7.2033e-04_jprb,2.5569e-04_jprb/)  
kao( :, 1, 8, 1) = (/&
 & 3.4404e-05_jprb,3.2742e-04_jprb,3.9628e-04_jprb,4.3044e-04_jprb,4.4582e-04_jprb,4.4750e-04_jprb,&
 & 4.3255e-04_jprb,3.8824e-04_jprb,1.6140e-04_jprb/)  
kao( :, 2, 8, 1) = (/&
 & 3.6102e-05_jprb,3.6078e-04_jprb,4.4317e-04_jprb,4.8349e-04_jprb,5.0006e-04_jprb,4.9874e-04_jprb,&
 & 4.7786e-04_jprb,4.2529e-04_jprb,1.7382e-04_jprb/)  
kao( :, 3, 8, 1) = (/&
 & 3.8232e-05_jprb,3.9477e-04_jprb,4.9069e-04_jprb,5.3712e-04_jprb,5.5703e-04_jprb,5.5425e-04_jprb,&
 & 5.2840e-04_jprb,4.6878e-04_jprb,1.8872e-04_jprb/)  
kao( :, 4, 8, 1) = (/&
 & 4.0723e-05_jprb,4.2935e-04_jprb,5.3782e-04_jprb,5.9167e-04_jprb,6.1513e-04_jprb,6.1219e-04_jprb,&
 & 5.8195e-04_jprb,5.1637e-04_jprb,2.0568e-04_jprb/)  
kao( :, 5, 8, 1) = (/&
 & 4.3533e-05_jprb,4.6405e-04_jprb,5.8430e-04_jprb,6.4724e-04_jprb,6.7394e-04_jprb,6.6968e-04_jprb,&
 & 6.3735e-04_jprb,5.6685e-04_jprb,2.2475e-04_jprb/)  
kao( :, 1, 9, 1) = (/&
 & 2.9435e-05_jprb,2.5407e-04_jprb,3.0513e-04_jprb,3.3154e-04_jprb,3.4450e-04_jprb,3.4770e-04_jprb,&
 & 3.3823e-04_jprb,3.0612e-04_jprb,1.4904e-04_jprb/)  
kao( :, 2, 9, 1) = (/&
 & 3.0832e-05_jprb,2.8156e-04_jprb,3.4307e-04_jprb,3.7395e-04_jprb,3.8707e-04_jprb,3.8740e-04_jprb,&
 & 3.7308e-04_jprb,3.3384e-04_jprb,1.6021e-04_jprb/)  
kao( :, 3, 9, 1) = (/&
 & 3.2541e-05_jprb,3.0967e-04_jprb,3.8142e-04_jprb,4.1751e-04_jprb,4.3262e-04_jprb,4.3109e-04_jprb,&
 & 4.1241e-04_jprb,3.6699e-04_jprb,1.7304e-04_jprb/)  
kao( :, 4, 9, 1) = (/&
 & 3.4598e-05_jprb,3.3815e-04_jprb,4.2037e-04_jprb,4.6162e-04_jprb,4.7971e-04_jprb,4.7802e-04_jprb,&
 & 4.5577e-04_jprb,4.0458e-04_jprb,1.8804e-04_jprb/)  
kao( :, 5, 9, 1) = (/&
 & 3.7007e-05_jprb,3.6690e-04_jprb,4.5921e-04_jprb,5.0690e-04_jprb,5.2823e-04_jprb,5.2576e-04_jprb,&
 & 5.0057e-04_jprb,4.4491e-04_jprb,2.0554e-04_jprb/)  
kao( :, 1,10, 1) = (/&
 & 2.4927e-05_jprb,1.9806e-04_jprb,2.3689e-04_jprb,2.5751e-04_jprb,2.6867e-04_jprb,2.7252e-04_jprb,&
 & 2.6649e-04_jprb,2.4340e-04_jprb,1.3926e-04_jprb/)  
kao( :, 2,10, 1) = (/&
 & 2.6291e-05_jprb,2.2099e-04_jprb,2.6740e-04_jprb,2.9137e-04_jprb,3.0194e-04_jprb,3.0327e-04_jprb,&
 & 2.9342e-04_jprb,2.6414e-04_jprb,1.4846e-04_jprb/)  
kao( :, 3,10, 1) = (/&
 & 2.7951e-05_jprb,2.4437e-04_jprb,2.9848e-04_jprb,3.2658e-04_jprb,3.3827e-04_jprb,3.3778e-04_jprb,&
 & 3.2415e-04_jprb,2.8946e-04_jprb,1.5998e-04_jprb/)  
kao( :, 4,10, 1) = (/&
 & 2.9907e-05_jprb,2.6821e-04_jprb,3.3026e-04_jprb,3.6237e-04_jprb,3.7643e-04_jprb,3.7538e-04_jprb,&
 & 3.5861e-04_jprb,3.1891e-04_jprb,1.7396e-04_jprb/)  
kao( :, 5,10, 1) = (/&
 & 3.2074e-05_jprb,2.9213e-04_jprb,3.6237e-04_jprb,3.9914e-04_jprb,4.1580e-04_jprb,4.1475e-04_jprb,&
 & 3.9509e-04_jprb,3.5105e-04_jprb,1.9000e-04_jprb/)  
kao( :, 1,11, 1) = (/&
 & 2.1030e-05_jprb,1.6262e-04_jprb,1.9497e-04_jprb,2.1213e-04_jprb,2.2124e-04_jprb,2.2434e-04_jprb,&
 & 2.1945e-04_jprb,2.0056e-04_jprb,1.1989e-04_jprb/)  
kao( :, 2,11, 1) = (/&
 & 2.2215e-05_jprb,1.8182e-04_jprb,2.1979e-04_jprb,2.3981e-04_jprb,2.4860e-04_jprb,2.4965e-04_jprb,&
 & 2.4153e-04_jprb,2.1771e-04_jprb,1.2772e-04_jprb/)  
kao( :, 3,11, 1) = (/&
 & 2.3854e-05_jprb,2.0140e-04_jprb,2.4523e-04_jprb,2.6860e-04_jprb,2.7834e-04_jprb,2.7805e-04_jprb,&
 & 2.6683e-04_jprb,2.3853e-04_jprb,1.3777e-04_jprb/)  
kao( :, 4,11, 1) = (/&
 & 2.5937e-05_jprb,2.2145e-04_jprb,2.7132e-04_jprb,2.9797e-04_jprb,3.0980e-04_jprb,3.0914e-04_jprb,&
 & 2.9535e-04_jprb,2.6276e-04_jprb,1.4975e-04_jprb/)  
kao( :, 5,11, 1) = (/&
 & 2.8200e-05_jprb,2.4157e-04_jprb,2.9784e-04_jprb,3.2825e-04_jprb,3.4224e-04_jprb,3.4158e-04_jprb,&
 & 3.2548e-04_jprb,2.8921e-04_jprb,1.6349e-04_jprb/)  
kao( :, 1,12, 1) = (/&
 & 1.7436e-05_jprb,1.3336e-04_jprb,1.6029e-04_jprb,1.7464e-04_jprb,1.8206e-04_jprb,1.8451e-04_jprb,&
 & 1.8046e-04_jprb,1.6506e-04_jprb,9.9378e-05_jprb/)  
kao( :, 2,12, 1) = (/&
 & 1.8421e-05_jprb,1.4922e-04_jprb,1.8056e-04_jprb,1.9727e-04_jprb,2.0452e-04_jprb,2.0534e-04_jprb,&
 & 1.9861e-04_jprb,1.7923e-04_jprb,1.0594e-04_jprb/)  
kao( :, 3,12, 1) = (/&
 & 1.9770e-05_jprb,1.6546e-04_jprb,2.0137e-04_jprb,2.2080e-04_jprb,2.2895e-04_jprb,2.2873e-04_jprb,&
 & 2.1950e-04_jprb,1.9634e-04_jprb,1.1437e-04_jprb/)  
kao( :, 4,12, 1) = (/&
 & 2.1532e-05_jprb,1.8214e-04_jprb,2.2278e-04_jprb,2.4485e-04_jprb,2.5477e-04_jprb,2.5442e-04_jprb,&
 & 2.4312e-04_jprb,2.1633e-04_jprb,1.2430e-04_jprb/)  
kao( :, 5,12, 1) = (/&
 & 2.3665e-05_jprb,1.9894e-04_jprb,2.4466e-04_jprb,2.6980e-04_jprb,2.8155e-04_jprb,2.8120e-04_jprb,&
 & 2.6804e-04_jprb,2.3807e-04_jprb,1.3565e-04_jprb/)  
kao( :, 1,13, 1) = (/&
 & 1.4387e-05_jprb,1.0908e-04_jprb,1.3157e-04_jprb,1.4361e-04_jprb,1.4965e-04_jprb,1.5162e-04_jprb,&
 & 1.4826e-04_jprb,1.3570e-04_jprb,8.1068e-05_jprb/)  
kao( :, 2,13, 1) = (/&
 & 1.5222e-05_jprb,1.2208e-04_jprb,1.4808e-04_jprb,1.6206e-04_jprb,1.6806e-04_jprb,1.6873e-04_jprb,&
 & 1.6320e-04_jprb,1.4737e-04_jprb,8.6440e-05_jprb/)  
kao( :, 3,13, 1) = (/&
 & 1.6337e-05_jprb,1.3561e-04_jprb,1.6504e-04_jprb,1.8124e-04_jprb,1.8815e-04_jprb,1.8808e-04_jprb,&
 & 1.8048e-04_jprb,1.6146e-04_jprb,9.3311e-05_jprb/)  
kao( :, 4,13, 1) = (/&
 & 1.7783e-05_jprb,1.4947e-04_jprb,1.8257e-04_jprb,2.0095e-04_jprb,2.0933e-04_jprb,2.0927e-04_jprb,&
 & 2.0001e-04_jprb,1.7792e-04_jprb,1.0131e-04_jprb/)  
kao( :, 5,13, 1) = (/&
 & 1.9570e-05_jprb,1.6345e-04_jprb,2.0062e-04_jprb,2.2151e-04_jprb,2.3144e-04_jprb,2.3129e-04_jprb,&
 & 2.2049e-04_jprb,1.9577e-04_jprb,1.1046e-04_jprb/)  
kao( :, 1, 1, 2) = (/&
 & 9.2497e-04_jprb,4.3144e-03_jprb,5.6991e-03_jprb,6.4942e-03_jprb,6.8938e-03_jprb,6.9128e-03_jprb,&
 & 6.4921e-03_jprb,5.6369e-03_jprb,1.8483e-03_jprb/)  
kao( :, 2, 1, 2) = (/&
 & 1.0409e-03_jprb,4.6383e-03_jprb,6.0633e-03_jprb,6.9063e-03_jprb,7.3169e-03_jprb,7.3608e-03_jprb,&
 & 6.9192e-03_jprb,6.0028e-03_jprb,2.0300e-03_jprb/)  
kao( :, 3, 1, 2) = (/&
 & 1.1556e-03_jprb,4.9764e-03_jprb,6.4488e-03_jprb,7.3288e-03_jprb,7.7717e-03_jprb,7.8279e-03_jprb,&
 & 7.3748e-03_jprb,6.3833e-03_jprb,2.2072e-03_jprb/)  
kao( :, 4, 1, 2) = (/&
 & 1.2675e-03_jprb,5.3121e-03_jprb,6.8537e-03_jprb,7.7796e-03_jprb,8.2492e-03_jprb,8.3162e-03_jprb,&
 & 7.8626e-03_jprb,6.7865e-03_jprb,2.3969e-03_jprb/)  
kao( :, 5, 1, 2) = (/&
 & 1.3758e-03_jprb,5.6410e-03_jprb,7.2804e-03_jprb,8.2553e-03_jprb,8.7528e-03_jprb,8.8226e-03_jprb,&
 & 8.3750e-03_jprb,7.2191e-03_jprb,2.6089e-03_jprb/)  
kao( :, 1, 2, 2) = (/&
 & 7.5186e-04_jprb,3.6103e-03_jprb,4.7635e-03_jprb,5.4240e-03_jprb,5.7535e-03_jprb,5.7797e-03_jprb,&
 & 5.4198e-03_jprb,4.6836e-03_jprb,1.4556e-03_jprb/)  
kao( :, 2, 2, 2) = (/&
 & 8.4398e-04_jprb,3.8877e-03_jprb,5.0819e-03_jprb,5.7839e-03_jprb,6.1171e-03_jprb,6.1580e-03_jprb,&
 & 5.7873e-03_jprb,4.9984e-03_jprb,1.6006e-03_jprb/)  
kao( :, 3, 2, 2) = (/&
 & 9.3483e-04_jprb,4.1713e-03_jprb,5.4170e-03_jprb,6.1567e-03_jprb,6.5115e-03_jprb,6.5572e-03_jprb,&
 & 6.1783e-03_jprb,5.3232e-03_jprb,1.7489e-03_jprb/)  
kao( :, 4, 2, 2) = (/&
 & 1.0238e-03_jprb,4.4548e-03_jprb,5.7647e-03_jprb,6.5444e-03_jprb,6.9273e-03_jprb,6.9708e-03_jprb,&
 & 6.5984e-03_jprb,5.6708e-03_jprb,1.9109e-03_jprb/)  
kao( :, 5, 2, 2) = (/&
 & 1.1107e-03_jprb,4.7357e-03_jprb,6.1219e-03_jprb,6.9538e-03_jprb,7.3658e-03_jprb,7.4046e-03_jprb,&
 & 7.0322e-03_jprb,6.0412e-03_jprb,2.0904e-03_jprb/)  
kao( :, 1, 3, 2) = (/&
 & 6.0142e-04_jprb,2.9523e-03_jprb,3.9104e-03_jprb,4.4517e-03_jprb,4.7174e-03_jprb,4.7372e-03_jprb,&
 & 4.4492e-03_jprb,3.8243e-03_jprb,1.1263e-03_jprb/)  
kao( :, 2, 3, 2) = (/&
 & 6.7406e-04_jprb,3.1823e-03_jprb,4.1811e-03_jprb,4.7592e-03_jprb,5.0290e-03_jprb,5.0575e-03_jprb,&
 & 4.7588e-03_jprb,4.0940e-03_jprb,1.2428e-03_jprb/)  
kao( :, 3, 3, 2) = (/&
 & 7.4620e-04_jprb,3.4210e-03_jprb,4.4618e-03_jprb,5.0793e-03_jprb,5.3629e-03_jprb,5.3950e-03_jprb,&
 & 5.0905e-03_jprb,4.3739e-03_jprb,1.3657e-03_jprb/)  
kao( :, 4, 3, 2) = (/&
 & 8.1752e-04_jprb,3.6598e-03_jprb,4.7515e-03_jprb,5.4067e-03_jprb,5.7176e-03_jprb,5.7460e-03_jprb,&
 & 5.4447e-03_jprb,4.6676e-03_jprb,1.5007e-03_jprb/)  
kao( :, 5, 3, 2) = (/&
 & 8.8750e-04_jprb,3.8967e-03_jprb,5.0479e-03_jprb,5.7482e-03_jprb,6.0925e-03_jprb,6.1154e-03_jprb,&
 & 5.8092e-03_jprb,4.9824e-03_jprb,1.6471e-03_jprb/)  
kao( :, 1, 4, 2) = (/&
 & 4.8101e-04_jprb,2.3906e-03_jprb,3.1853e-03_jprb,3.6231e-03_jprb,3.8360e-03_jprb,3.8452e-03_jprb,&
 & 3.6186e-03_jprb,3.1019e-03_jprb,8.7573e-04_jprb/)  
kao( :, 2, 4, 2) = (/&
 & 5.3961e-04_jprb,2.5785e-03_jprb,3.4085e-03_jprb,3.8820e-03_jprb,4.0987e-03_jprb,4.1183e-03_jprb,&
 & 3.8800e-03_jprb,3.3305e-03_jprb,9.6932e-04_jprb/)  
kao( :, 3, 4, 2) = (/&
 & 5.9799e-04_jprb,2.7768e-03_jprb,3.6406e-03_jprb,4.1517e-03_jprb,4.3797e-03_jprb,4.4028e-03_jprb,&
 & 4.1601e-03_jprb,3.5700e-03_jprb,1.0703e-03_jprb/)  
kao( :, 4, 4, 2) = (/&
 & 6.5579e-04_jprb,2.9752e-03_jprb,3.8795e-03_jprb,4.4220e-03_jprb,4.6790e-03_jprb,4.7001e-03_jprb,&
 & 4.4581e-03_jprb,3.8199e-03_jprb,1.1808e-03_jprb/)  
kao( :, 5, 4, 2) = (/&
 & 7.1241e-04_jprb,3.1724e-03_jprb,4.1257e-03_jprb,4.7025e-03_jprb,4.9913e-03_jprb,5.0113e-03_jprb,&
 & 4.7649e-03_jprb,4.0844e-03_jprb,1.3011e-03_jprb/)  
kao( :, 1, 5, 2) = (/&
 & 3.7985e-04_jprb,1.9296e-03_jprb,2.5823e-03_jprb,2.9367e-03_jprb,3.1053e-03_jprb,3.1068e-03_jprb,&
 & 2.9256e-03_jprb,2.5075e-03_jprb,6.8590e-04_jprb/)  
kao( :, 2, 5, 2) = (/&
 & 4.2774e-04_jprb,2.0822e-03_jprb,2.7665e-03_jprb,3.1512e-03_jprb,3.3261e-03_jprb,3.3384e-03_jprb,&
 & 3.1468e-03_jprb,2.7004e-03_jprb,7.6134e-04_jprb/)  
kao( :, 3, 5, 2) = (/&
 & 4.7586e-04_jprb,2.2442e-03_jprb,2.9575e-03_jprb,3.3747e-03_jprb,3.5611e-03_jprb,3.5804e-03_jprb,&
 & 3.3851e-03_jprb,2.9033e-03_jprb,8.4414e-04_jprb/)  
kao( :, 4, 5, 2) = (/&
 & 5.2378e-04_jprb,2.4068e-03_jprb,3.1534e-03_jprb,3.5994e-03_jprb,3.8099e-03_jprb,3.8326e-03_jprb,&
 & 3.6365e-03_jprb,3.1178e-03_jprb,9.3392e-04_jprb/)  
kao( :, 5, 5, 2) = (/&
 & 5.7107e-04_jprb,2.5676e-03_jprb,3.3559e-03_jprb,3.8294e-03_jprb,4.0688e-03_jprb,4.0931e-03_jprb,&
 & 3.8958e-03_jprb,3.3418e-03_jprb,1.0329e-03_jprb/)  

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


SUBROUTINE part2

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


kao( :, 1, 6, 2) = (/&
 & 2.9735e-04_jprb,1.5488e-03_jprb,2.0781e-03_jprb,2.3635e-03_jprb,2.4968e-03_jprb,2.4931e-03_jprb,&
 & 2.3467e-03_jprb,2.0085e-03_jprb,5.4223e-04_jprb/)  
kao( :, 2, 6, 2) = (/&
 & 3.3587e-04_jprb,1.6709e-03_jprb,2.2308e-03_jprb,2.5409e-03_jprb,2.6808e-03_jprb,2.6895e-03_jprb,&
 & 2.5340e-03_jprb,2.1715e-03_jprb,6.0215e-04_jprb/)  
kao( :, 3, 6, 2) = (/&
 & 3.7473e-04_jprb,1.8004e-03_jprb,2.3875e-03_jprb,2.7253e-03_jprb,2.8757e-03_jprb,2.8921e-03_jprb,&
 & 2.7340e-03_jprb,2.3415e-03_jprb,6.6920e-04_jprb/)  
kao( :, 4, 6, 2) = (/&
 & 4.1385e-04_jprb,1.9336e-03_jprb,2.5474e-03_jprb,2.9106e-03_jprb,3.0795e-03_jprb,3.1041e-03_jprb,&
 & 2.9464e-03_jprb,2.5236e-03_jprb,7.4227e-04_jprb/)  
kao( :, 5, 6, 2) = (/&
 & 4.5282e-04_jprb,2.0641e-03_jprb,2.7125e-03_jprb,3.0998e-03_jprb,3.2937e-03_jprb,3.3201e-03_jprb,&
 & 3.1630e-03_jprb,2.7121e-03_jprb,8.2264e-04_jprb/)  
kao( :, 1, 7, 2) = (/&
 & 2.3216e-04_jprb,1.2362e-03_jprb,1.6616e-03_jprb,1.8908e-03_jprb,1.9971e-03_jprb,1.9905e-03_jprb,&
 & 1.8720e-03_jprb,1.5991e-03_jprb,4.4178e-04_jprb/)  
kao( :, 2, 7, 2) = (/&
 & 2.6289e-04_jprb,1.3329e-03_jprb,1.7891e-03_jprb,2.0369e-03_jprb,2.1504e-03_jprb,2.1555e-03_jprb,&
 & 2.0290e-03_jprb,1.7365e-03_jprb,4.9123e-04_jprb/)  
kao( :, 3, 7, 2) = (/&
 & 2.9417e-04_jprb,1.4359e-03_jprb,1.9156e-03_jprb,2.1896e-03_jprb,2.3102e-03_jprb,2.3250e-03_jprb,&
 & 2.1958e-03_jprb,1.8783e-03_jprb,5.4688e-04_jprb/)  
kao( :, 4, 7, 2) = (/&
 & 3.2585e-04_jprb,1.5437e-03_jprb,2.0463e-03_jprb,2.3419e-03_jprb,2.4777e-03_jprb,2.4981e-03_jprb,&
 & 2.3744e-03_jprb,2.0299e-03_jprb,6.0742e-04_jprb/)  
kao( :, 5, 7, 2) = (/&
 & 3.5762e-04_jprb,1.6504e-03_jprb,2.1798e-03_jprb,2.4967e-03_jprb,2.6528e-03_jprb,2.6762e-03_jprb,&
 & 2.5533e-03_jprb,2.1888e-03_jprb,6.7380e-04_jprb/)  
kao( :, 1, 8, 2) = (/&
 & 1.8254e-04_jprb,9.8374e-04_jprb,1.3243e-03_jprb,1.5057e-03_jprb,1.5902e-03_jprb,1.5824e-03_jprb,&
 & 1.4869e-03_jprb,1.2665e-03_jprb,3.9850e-04_jprb/)  
kao( :, 2, 8, 2) = (/&
 & 2.0666e-04_jprb,1.0603e-03_jprb,1.4275e-03_jprb,1.6259e-03_jprb,1.7181e-03_jprb,1.7201e-03_jprb,&
 & 1.6174e-03_jprb,1.3826e-03_jprb,4.4169e-04_jprb/)  
kao( :, 3, 8, 2) = (/&
 & 2.3157e-04_jprb,1.1419e-03_jprb,1.5319e-03_jprb,1.7520e-03_jprb,1.8487e-03_jprb,1.8612e-03_jprb,&
 & 1.7566e-03_jprb,1.5015e-03_jprb,4.8905e-04_jprb/)  
kao( :, 4, 8, 2) = (/&
 & 2.5700e-04_jprb,1.2278e-03_jprb,1.6373e-03_jprb,1.8765e-03_jprb,1.9849e-03_jprb,2.0014e-03_jprb,&
 & 1.9031e-03_jprb,1.6270e-03_jprb,5.4213e-04_jprb/)  
kao( :, 5, 8, 2) = (/&
 & 2.8283e-04_jprb,1.3158e-03_jprb,1.7450e-03_jprb,2.0017e-03_jprb,2.1255e-03_jprb,2.1468e-03_jprb,&
 & 2.0518e-03_jprb,1.7597e-03_jprb,6.0087e-04_jprb/)  
kao( :, 1, 9, 2) = (/&
 & 1.4492e-04_jprb,7.8220e-04_jprb,1.0529e-03_jprb,1.1948e-03_jprb,1.2616e-03_jprb,1.2532e-03_jprb,&
 & 1.1763e-03_jprb,9.9787e-04_jprb,3.8271e-04_jprb/)  
kao( :, 2, 9, 2) = (/&
 & 1.6385e-04_jprb,8.4332e-04_jprb,1.1362e-03_jprb,1.2935e-03_jprb,1.3677e-03_jprb,1.3665e-03_jprb,&
 & 1.2847e-03_jprb,1.0960e-03_jprb,4.2068e-04_jprb/)  
kao( :, 3, 9, 2) = (/&
 & 1.8366e-04_jprb,9.0787e-04_jprb,1.2223e-03_jprb,1.3959e-03_jprb,1.4750e-03_jprb,1.4839e-03_jprb,&
 & 1.3993e-03_jprb,1.1955e-03_jprb,4.6660e-04_jprb/)  
kao( :, 4, 9, 2) = (/&
 & 2.0401e-04_jprb,9.7621e-04_jprb,1.3079e-03_jprb,1.4991e-03_jprb,1.5844e-03_jprb,1.5989e-03_jprb,&
 & 1.5186e-03_jprb,1.3000e-03_jprb,5.2016e-04_jprb/)  
kao( :, 5, 9, 2) = (/&
 & 2.2477e-04_jprb,1.0479e-03_jprb,1.3948e-03_jprb,1.6006e-03_jprb,1.6979e-03_jprb,1.7159e-03_jprb,&
 & 1.6415e-03_jprb,1.4093e-03_jprb,5.7816e-04_jprb/)  
kao( :, 1,10, 2) = (/&
 & 1.1869e-04_jprb,6.2671e-04_jprb,8.4082e-04_jprb,9.5190e-04_jprb,1.0039e-03_jprb,9.9693e-04_jprb,&
 & 9.3504e-04_jprb,7.8902e-04_jprb,3.5140e-04_jprb/)  
kao( :, 2,10, 2) = (/&
 & 1.3381e-04_jprb,6.7599e-04_jprb,9.0913e-04_jprb,1.0332e-03_jprb,1.0921e-03_jprb,1.0891e-03_jprb,&
 & 1.0243e-03_jprb,8.7218e-04_jprb,3.8763e-04_jprb/)  
kao( :, 3,10, 2) = (/&
 & 1.4959e-04_jprb,7.2765e-04_jprb,9.7958e-04_jprb,1.1159e-03_jprb,1.1802e-03_jprb,1.1859e-03_jprb,&
 & 1.1183e-03_jprb,9.5533e-04_jprb,4.3010e-04_jprb/)  
kao( :, 4,10, 2) = (/&
 & 1.6589e-04_jprb,7.8204e-04_jprb,1.0498e-03_jprb,1.2013e-03_jprb,1.2689e-03_jprb,1.2810e-03_jprb,&
 & 1.2156e-03_jprb,1.0417e-03_jprb,4.7716e-04_jprb/)  
kao( :, 5,10, 2) = (/&
 & 1.8260e-04_jprb,8.3938e-04_jprb,1.1206e-03_jprb,1.2847e-03_jprb,1.3612e-03_jprb,1.3753e-03_jprb,&
 & 1.3161e-03_jprb,1.1315e-03_jprb,5.2947e-04_jprb/)  
kao( :, 1,11, 2) = (/&
 & 1.0311e-04_jprb,5.2056e-04_jprb,6.9637e-04_jprb,7.8750e-04_jprb,8.3059e-04_jprb,8.2575e-04_jprb,&
 & 7.7490e-04_jprb,6.5424e-04_jprb,3.0281e-04_jprb/)  
kao( :, 2,11, 2) = (/&
 & 1.1590e-04_jprb,5.6136e-04_jprb,7.5296e-04_jprb,8.5480e-04_jprb,9.0353e-04_jprb,9.0216e-04_jprb,&
 & 8.4999e-04_jprb,7.2420e-04_jprb,3.3507e-04_jprb/)  
kao( :, 3,11, 2) = (/&
 & 1.2889e-04_jprb,6.0382e-04_jprb,8.1101e-04_jprb,9.2302e-04_jprb,9.7570e-04_jprb,9.8182e-04_jprb,&
 & 9.2806e-04_jprb,7.9438e-04_jprb,3.7284e-04_jprb/)  
kao( :, 4,11, 2) = (/&
 & 1.4211e-04_jprb,6.4818e-04_jprb,8.6860e-04_jprb,9.9311e-04_jprb,1.0487e-03_jprb,1.0592e-03_jprb,&
 & 1.0081e-03_jprb,8.6646e-04_jprb,4.1455e-04_jprb/)  
kao( :, 5,11, 2) = (/&
 & 1.5566e-04_jprb,6.9514e-04_jprb,9.2716e-04_jprb,1.0621e-03_jprb,1.1251e-03_jprb,1.1363e-03_jprb,&
 & 1.0898e-03_jprb,9.4096e-04_jprb,4.6093e-04_jprb/)  
kao( :, 1,12, 2) = (/&
 & 8.6906e-05_jprb,4.2943e-04_jprb,5.7386e-04_jprb,6.4907e-04_jprb,6.8516e-04_jprb,6.8236e-04_jprb,&
 & 6.4150e-04_jprb,5.4221e-04_jprb,2.5343e-04_jprb/)  
kao( :, 2,12, 2) = (/&
 & 9.7363e-05_jprb,4.6320e-04_jprb,6.2055e-04_jprb,7.0430e-04_jprb,7.4506e-04_jprb,7.4512e-04_jprb,&
 & 7.0369e-04_jprb,6.0080e-04_jprb,2.8076e-04_jprb/)  
kao( :, 3,12, 2) = (/&
 & 1.0822e-04_jprb,4.9810e-04_jprb,6.6816e-04_jprb,7.6045e-04_jprb,8.0385e-04_jprb,8.1033e-04_jprb,&
 & 7.6791e-04_jprb,6.5916e-04_jprb,3.1267e-04_jprb/)  
kao( :, 4,12, 2) = (/&
 & 1.1919e-04_jprb,5.3431e-04_jprb,7.1547e-04_jprb,8.1798e-04_jprb,8.6412e-04_jprb,8.7316e-04_jprb,&
 & 8.3318e-04_jprb,7.1884e-04_jprb,3.4804e-04_jprb/)  
kao( :, 5,12, 2) = (/&
 & 1.3020e-04_jprb,5.7282e-04_jprb,7.6401e-04_jprb,8.7493e-04_jprb,9.2683e-04_jprb,9.3624e-04_jprb,&
 & 8.9962e-04_jprb,7.8030e-04_jprb,3.8737e-04_jprb/)  
kao( :, 1,13, 2) = (/&
 & 7.2736e-05_jprb,3.5287e-04_jprb,4.7103e-04_jprb,5.3285e-04_jprb,5.6294e-04_jprb,5.6189e-04_jprb,&
 & 5.2952e-04_jprb,4.4876e-04_jprb,2.0844e-04_jprb/)  
kao( :, 2,13, 2) = (/&
 & 8.1220e-05_jprb,3.8092e-04_jprb,5.0957e-04_jprb,5.7824e-04_jprb,6.1199e-04_jprb,6.1315e-04_jprb,&
 & 5.8053e-04_jprb,4.9725e-04_jprb,2.3115e-04_jprb/)  
kao( :, 3,13, 2) = (/&
 & 9.0164e-05_jprb,4.0966e-04_jprb,5.4894e-04_jprb,6.2460e-04_jprb,6.6024e-04_jprb,6.6621e-04_jprb,&
 & 6.3308e-04_jprb,5.4537e-04_jprb,2.5750e-04_jprb/)  
kao( :, 4,13, 2) = (/&
 & 9.9376e-05_jprb,4.3939e-04_jprb,5.8810e-04_jprb,6.7200e-04_jprb,7.1008e-04_jprb,7.1773e-04_jprb,&
 & 6.8617e-04_jprb,5.9441e-04_jprb,2.8680e-04_jprb/)  
kao( :, 5,13, 2) = (/&
 & 1.0854e-04_jprb,4.7117e-04_jprb,6.2833e-04_jprb,7.1918e-04_jprb,7.6187e-04_jprb,7.6982e-04_jprb,&
 & 7.4086e-04_jprb,6.4493e-04_jprb,3.1932e-04_jprb/)  
kao( :, 1, 1, 3) = (/&
 & 2.8268e-03_jprb,8.0007e-03_jprb,1.0129e-02_jprb,1.1600e-02_jprb,1.2484e-02_jprb,1.2903e-02_jprb,&
 & 1.2756e-02_jprb,1.1762e-02_jprb,4.6746e-03_jprb/)  
kao( :, 2, 1, 3) = (/&
 & 3.1283e-03_jprb,8.6463e-03_jprb,1.0922e-02_jprb,1.2433e-02_jprb,1.3339e-02_jprb,1.3730e-02_jprb,&
 & 1.3558e-02_jprb,1.2454e-02_jprb,5.0133e-03_jprb/)  
kao( :, 3, 1, 3) = (/&
 & 3.4558e-03_jprb,9.3189e-03_jprb,1.1784e-02_jprb,1.3331e-02_jprb,1.4258e-02_jprb,1.4611e-02_jprb,&
 & 1.4389e-02_jprb,1.3149e-02_jprb,5.3761e-03_jprb/)  
kao( :, 4, 1, 3) = (/&
 & 3.8003e-03_jprb,1.0040e-02_jprb,1.2672e-02_jprb,1.4281e-02_jprb,1.5240e-02_jprb,1.5546e-02_jprb,&
 & 1.5245e-02_jprb,1.3873e-02_jprb,5.7489e-03_jprb/)  
kao( :, 5, 1, 3) = (/&
 & 4.1364e-03_jprb,1.0810e-02_jprb,1.3574e-02_jprb,1.5264e-02_jprb,1.6259e-02_jprb,1.6515e-02_jprb,&
 & 1.6129e-02_jprb,1.4624e-02_jprb,6.1285e-03_jprb/)  
kao( :, 1, 2, 3) = (/&
 & 2.3785e-03_jprb,6.8111e-03_jprb,8.5917e-03_jprb,9.8069e-03_jprb,1.0520e-02_jprb,1.0823e-02_jprb,&
 & 1.0667e-02_jprb,9.8152e-03_jprb,3.7184e-03_jprb/)  
kao( :, 2, 2, 3) = (/&
 & 2.6403e-03_jprb,7.3805e-03_jprb,9.2734e-03_jprb,1.0506e-02_jprb,1.1253e-02_jprb,1.1531e-02_jprb,&
 & 1.1349e-02_jprb,1.0403e-02_jprb,4.0032e-03_jprb/)  
kao( :, 3, 2, 3) = (/&
 & 2.9257e-03_jprb,7.9766e-03_jprb,1.0007e-02_jprb,1.1267e-02_jprb,1.2040e-02_jprb,1.2292e-02_jprb,&
 & 1.2064e-02_jprb,1.1014e-02_jprb,4.2975e-03_jprb/)  
kao( :, 4, 2, 3) = (/&
 & 3.2219e-03_jprb,8.6148e-03_jprb,1.0770e-02_jprb,1.2085e-02_jprb,1.2878e-02_jprb,1.3098e-02_jprb,&
 & 1.2794e-02_jprb,1.1649e-02_jprb,4.6021e-03_jprb/)  
kao( :, 5, 2, 3) = (/&
 & 3.5088e-03_jprb,9.2842e-03_jprb,1.1557e-02_jprb,1.2935e-02_jprb,1.3737e-02_jprb,1.3940e-02_jprb,&
 & 1.3572e-02_jprb,1.2310e-02_jprb,4.9140e-03_jprb/)  
kao( :, 1, 3, 3) = (/&
 & 1.9386e-03_jprb,5.6660e-03_jprb,7.1297e-03_jprb,8.1429e-03_jprb,8.7357e-03_jprb,8.9496e-03_jprb,&
 & 8.7747e-03_jprb,8.0582e-03_jprb,2.9088e-03_jprb/)  
kao( :, 2, 3, 3) = (/&
 & 2.1579e-03_jprb,6.1637e-03_jprb,7.7083e-03_jprb,8.7254e-03_jprb,9.3435e-03_jprb,9.5443e-03_jprb,&
 & 9.3488e-03_jprb,8.5545e-03_jprb,3.1389e-03_jprb/)  
kao( :, 3, 3, 3) = (/&
 & 2.3960e-03_jprb,6.6842e-03_jprb,8.3410e-03_jprb,9.3621e-03_jprb,1.0004e-02_jprb,1.0182e-02_jprb,&
 & 9.9526e-03_jprb,9.0715e-03_jprb,3.3810e-03_jprb/)  
kao( :, 4, 3, 3) = (/&
 & 2.6451e-03_jprb,7.2345e-03_jprb,9.0005e-03_jprb,1.0055e-02_jprb,1.0704e-02_jprb,1.0864e-02_jprb,&
 & 1.0573e-02_jprb,9.6158e-03_jprb,3.6280e-03_jprb/)  
kao( :, 5, 3, 3) = (/&
 & 2.8859e-03_jprb,7.8078e-03_jprb,9.6814e-03_jprb,1.0782e-02_jprb,1.1421e-02_jprb,1.1580e-02_jprb,&
 & 1.1241e-02_jprb,1.0187e-02_jprb,3.8829e-03_jprb/)  
kao( :, 1, 4, 3) = (/&
 & 1.5600e-03_jprb,4.6546e-03_jprb,5.8495e-03_jprb,6.6996e-03_jprb,7.2044e-03_jprb,7.3765e-03_jprb,&
 & 7.1865e-03_jprb,6.5682e-03_jprb,2.2826e-03_jprb/)  
kao( :, 2, 4, 3) = (/&
 & 1.7367e-03_jprb,5.0823e-03_jprb,6.3406e-03_jprb,7.1867e-03_jprb,7.7058e-03_jprb,7.8650e-03_jprb,&
 & 7.6617e-03_jprb,6.9802e-03_jprb,2.4709e-03_jprb/)  
kao( :, 3, 4, 3) = (/&
 & 1.9306e-03_jprb,5.5299e-03_jprb,6.8812e-03_jprb,7.7221e-03_jprb,8.2549e-03_jprb,8.3977e-03_jprb,&
 & 8.1626e-03_jprb,7.4067e-03_jprb,2.6716e-03_jprb/)  
kao( :, 4, 4, 3) = (/&
 & 2.1349e-03_jprb,5.9971e-03_jprb,7.4507e-03_jprb,8.3116e-03_jprb,8.8413e-03_jprb,8.9674e-03_jprb,&
 & 8.6864e-03_jprb,7.8658e-03_jprb,2.8745e-03_jprb/)  
kao( :, 5, 4, 3) = (/&
 & 2.3336e-03_jprb,6.4807e-03_jprb,8.0336e-03_jprb,8.9354e-03_jprb,9.4416e-03_jprb,9.5691e-03_jprb,&
 & 9.2483e-03_jprb,8.3517e-03_jprb,3.0875e-03_jprb/)  
kao( :, 1, 5, 3) = (/&
 & 1.2643e-03_jprb,3.7992e-03_jprb,4.7706e-03_jprb,5.4821e-03_jprb,5.9156e-03_jprb,6.0631e-03_jprb,&
 & 5.8873e-03_jprb,5.3374e-03_jprb,1.7987e-03_jprb/)  
kao( :, 2, 5, 3) = (/&
 & 1.4029e-03_jprb,4.1601e-03_jprb,5.1876e-03_jprb,5.8930e-03_jprb,6.3304e-03_jprb,6.4641e-03_jprb,&
 & 6.2801e-03_jprb,5.6828e-03_jprb,1.9541e-03_jprb/)  
kao( :, 3, 5, 3) = (/&
 & 1.5562e-03_jprb,4.5381e-03_jprb,5.6449e-03_jprb,6.3470e-03_jprb,6.7903e-03_jprb,6.9025e-03_jprb,&
 & 6.6934e-03_jprb,6.0371e-03_jprb,2.1188e-03_jprb/)  
kao( :, 4, 5, 3) = (/&
 & 1.7190e-03_jprb,4.9285e-03_jprb,6.1272e-03_jprb,6.8449e-03_jprb,7.2797e-03_jprb,7.3760e-03_jprb,&
 & 7.1291e-03_jprb,6.4167e-03_jprb,2.2886e-03_jprb/)  
kao( :, 5, 5, 3) = (/&
 & 1.8807e-03_jprb,5.3341e-03_jprb,6.6172e-03_jprb,7.3735e-03_jprb,7.7846e-03_jprb,7.8779e-03_jprb,&
 & 7.5974e-03_jprb,6.8236e-03_jprb,2.4671e-03_jprb/)  
kao( :, 1, 6, 3) = (/&
 & 1.0213e-03_jprb,3.0721e-03_jprb,3.8660e-03_jprb,4.4559e-03_jprb,4.8197e-03_jprb,4.9478e-03_jprb,&
 & 4.7982e-03_jprb,4.3290e-03_jprb,1.4118e-03_jprb/)  
kao( :, 2, 6, 3) = (/&
 & 1.1324e-03_jprb,3.3728e-03_jprb,4.2119e-03_jprb,4.7959e-03_jprb,5.1628e-03_jprb,5.2793e-03_jprb,&
 & 5.1225e-03_jprb,4.6162e-03_jprb,1.5418e-03_jprb/)  
kao( :, 3, 6, 3) = (/&
 & 1.2545e-03_jprb,3.6892e-03_jprb,4.5936e-03_jprb,5.1743e-03_jprb,5.5467e-03_jprb,5.6393e-03_jprb,&
 & 5.4667e-03_jprb,4.9091e-03_jprb,1.6767e-03_jprb/)  
kao( :, 4, 6, 3) = (/&
 & 1.3844e-03_jprb,4.0151e-03_jprb,4.9945e-03_jprb,5.5888e-03_jprb,5.9562e-03_jprb,6.0318e-03_jprb,&
 & 5.8253e-03_jprb,5.2198e-03_jprb,1.8201e-03_jprb/)  
kao( :, 5, 6, 3) = (/&
 & 1.5162e-03_jprb,4.3530e-03_jprb,5.4044e-03_jprb,6.0308e-03_jprb,6.3808e-03_jprb,6.4545e-03_jprb,&
 & 6.2163e-03_jprb,5.5575e-03_jprb,1.9706e-03_jprb/)  
kao( :, 1, 7, 3) = (/&
 & 8.1383e-04_jprb,2.4690e-03_jprb,3.1190e-03_jprb,3.6045e-03_jprb,3.9078e-03_jprb,4.0152e-03_jprb,&
 & 3.8892e-03_jprb,3.5066e-03_jprb,1.1162e-03_jprb/)  
kao( :, 2, 7, 3) = (/&
 & 9.0133e-04_jprb,2.7200e-03_jprb,3.4007e-03_jprb,3.8875e-03_jprb,4.1896e-03_jprb,4.2887e-03_jprb,&
 & 4.1574e-03_jprb,3.7464e-03_jprb,1.2253e-03_jprb/)  
kao( :, 3, 7, 3) = (/&
 & 9.9758e-04_jprb,2.9822e-03_jprb,3.7154e-03_jprb,4.1988e-03_jprb,4.5072e-03_jprb,4.5864e-03_jprb,&
 & 4.4444e-03_jprb,3.9910e-03_jprb,1.3374e-03_jprb/)  
kao( :, 4, 7, 3) = (/&
 & 1.1009e-03_jprb,3.2536e-03_jprb,4.0499e-03_jprb,4.5399e-03_jprb,4.8474e-03_jprb,4.9140e-03_jprb,&
 & 4.7441e-03_jprb,4.2483e-03_jprb,1.4572e-03_jprb/)  
kao( :, 5, 7, 3) = (/&
 & 1.2079e-03_jprb,3.5321e-03_jprb,4.3905e-03_jprb,4.9045e-03_jprb,5.2002e-03_jprb,5.2665e-03_jprb,&
 & 5.0703e-03_jprb,4.5267e-03_jprb,1.5834e-03_jprb/)  
kao( :, 1, 8, 3) = (/&
 & 6.4403e-04_jprb,1.9711e-03_jprb,2.5061e-03_jprb,2.9046e-03_jprb,3.1552e-03_jprb,3.2467e-03_jprb,&
 & 3.1397e-03_jprb,2.8272e-03_jprb,9.2879e-04_jprb/)  
kao( :, 2, 8, 3) = (/&
 & 7.1238e-04_jprb,2.1771e-03_jprb,2.7335e-03_jprb,3.1363e-03_jprb,3.3882e-03_jprb,3.4702e-03_jprb,&
 & 3.3609e-03_jprb,3.0275e-03_jprb,1.0282e-03_jprb/)  
kao( :, 3, 8, 3) = (/&
 & 7.8775e-04_jprb,2.3928e-03_jprb,2.9888e-03_jprb,3.3912e-03_jprb,3.6502e-03_jprb,3.7161e-03_jprb,&
 & 3.5992e-03_jprb,3.2322e-03_jprb,1.1312e-03_jprb/)  
kao( :, 4, 8, 3) = (/&
 & 8.6902e-04_jprb,2.6176e-03_jprb,3.2653e-03_jprb,3.6711e-03_jprb,3.9303e-03_jprb,3.9873e-03_jprb,&
 & 3.8512e-03_jprb,3.4474e-03_jprb,1.2372e-03_jprb/)  
kao( :, 5, 8, 3) = (/&
 & 9.5395e-04_jprb,2.8439e-03_jprb,3.5472e-03_jprb,3.9717e-03_jprb,4.2227e-03_jprb,4.2804e-03_jprb,&
 & 4.1230e-03_jprb,3.6794e-03_jprb,1.3472e-03_jprb/)  
kao( :, 1, 9, 3) = (/&
 & 5.1007e-04_jprb,1.5656e-03_jprb,2.0060e-03_jprb,2.3330e-03_jprb,2.5370e-03_jprb,2.6132e-03_jprb,&
 & 2.5254e-03_jprb,2.2694e-03_jprb,9.3729e-04_jprb/)  
kao( :, 2, 9, 3) = (/&
 & 5.6353e-04_jprb,1.7326e-03_jprb,2.1869e-03_jprb,2.5189e-03_jprb,2.7285e-03_jprb,2.7995e-03_jprb,&
 & 2.7056e-03_jprb,2.4351e-03_jprb,1.0493e-03_jprb/)  
kao( :, 3, 9, 3) = (/&
 & 6.2213e-04_jprb,1.9088e-03_jprb,2.3915e-03_jprb,2.7258e-03_jprb,2.9423e-03_jprb,2.9995e-03_jprb,&
 & 2.9041e-03_jprb,2.6067e-03_jprb,1.1607e-03_jprb/)  
kao( :, 4, 9, 3) = (/&
 & 6.8571e-04_jprb,2.0922e-03_jprb,2.6149e-03_jprb,2.9528e-03_jprb,3.1723e-03_jprb,3.2231e-03_jprb,&
 & 3.1163e-03_jprb,2.7863e-03_jprb,1.2669e-03_jprb/)  
kao( :, 5, 9, 3) = (/&
 & 7.5285e-04_jprb,2.2758e-03_jprb,2.8459e-03_jprb,3.1985e-03_jprb,3.4132e-03_jprb,3.4638e-03_jprb,&
 & 3.3423e-03_jprb,2.9799e-03_jprb,1.3708e-03_jprb/)  
kao( :, 1,10, 3) = (/&
 & 4.0986e-04_jprb,1.2514e-03_jprb,1.6149e-03_jprb,1.8827e-03_jprb,2.0477e-03_jprb,2.1068e-03_jprb,&
 & 2.0342e-03_jprb,1.8264e-03_jprb,9.4172e-04_jprb/)  
kao( :, 2,10, 3) = (/&
 & 4.5195e-04_jprb,1.3870e-03_jprb,1.7594e-03_jprb,2.0313e-03_jprb,2.2041e-03_jprb,2.2637e-03_jprb,&
 & 2.1836e-03_jprb,1.9630e-03_jprb,1.0592e-03_jprb/)  
kao( :, 3,10, 3) = (/&
 & 4.9807e-04_jprb,1.5305e-03_jprb,1.9232e-03_jprb,2.1993e-03_jprb,2.3783e-03_jprb,2.4282e-03_jprb,&
 & 2.3477e-03_jprb,2.1050e-03_jprb,1.1691e-03_jprb/)  
kao( :, 4,10, 3) = (/&
 & 5.4808e-04_jprb,1.6789e-03_jprb,2.1022e-03_jprb,2.3829e-03_jprb,2.5654e-03_jprb,2.6091e-03_jprb,&
 & 2.5255e-03_jprb,2.2562e-03_jprb,1.2759e-03_jprb/)  
kao( :, 5,10, 3) = (/&
 & 6.0117e-04_jprb,1.8287e-03_jprb,2.2888e-03_jprb,2.5807e-03_jprb,2.7622e-03_jprb,2.8066e-03_jprb,&
 & 2.7118e-03_jprb,2.4197e-03_jprb,1.3798e-03_jprb/)  
kao( :, 1,11, 3) = (/&
 & 3.4587e-04_jprb,1.0486e-03_jprb,1.3498e-03_jprb,1.5706e-03_jprb,1.7067e-03_jprb,1.7541e-03_jprb,&
 & 1.6904e-03_jprb,1.5189e-03_jprb,8.4922e-04_jprb/)  
kao( :, 2,11, 3) = (/&
 & 3.8030e-04_jprb,1.1612e-03_jprb,1.4720e-03_jprb,1.6962e-03_jprb,1.8396e-03_jprb,1.8877e-03_jprb,&
 & 1.8189e-03_jprb,1.6321e-03_jprb,9.4886e-04_jprb/)  
kao( :, 3,11, 3) = (/&
 & 4.1775e-04_jprb,1.2794e-03_jprb,1.6083e-03_jprb,1.8372e-03_jprb,1.9863e-03_jprb,2.0269e-03_jprb,&
 & 1.9602e-03_jprb,1.7534e-03_jprb,1.0435e-03_jprb/)  
kao( :, 4,11, 3) = (/&
 & 4.5831e-04_jprb,1.4012e-03_jprb,1.7558e-03_jprb,1.9899e-03_jprb,2.1423e-03_jprb,2.1791e-03_jprb,&
 & 2.1105e-03_jprb,1.8847e-03_jprb,1.1342e-03_jprb/)  
kao( :, 5,11, 3) = (/&
 & 5.0160e-04_jprb,1.5235e-03_jprb,1.9068e-03_jprb,2.1518e-03_jprb,2.3031e-03_jprb,2.3452e-03_jprb,&
 & 2.2691e-03_jprb,2.0271e-03_jprb,1.2246e-03_jprb/)  
kao( :, 1,12, 3) = (/&
 & 2.8728e-04_jprb,8.7138e-04_jprb,1.1212e-03_jprb,1.3035e-03_jprb,1.4166e-03_jprb,1.4556e-03_jprb,&
 & 1.4016e-03_jprb,1.2592e-03_jprb,7.2447e-04_jprb/)  
kao( :, 2,12, 3) = (/&
 & 3.1564e-04_jprb,9.6434e-04_jprb,1.2235e-03_jprb,1.4085e-03_jprb,1.5279e-03_jprb,1.5679e-03_jprb,&
 & 1.5112e-03_jprb,1.3542e-03_jprb,8.0728e-04_jprb/)  

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


SUBROUTINE part3

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


kao( :, 3,12, 3) = (/&
 & 3.4588e-04_jprb,1.0616e-03_jprb,1.3357e-03_jprb,1.5255e-03_jprb,1.6505e-03_jprb,1.6842e-03_jprb,&
 & 1.6309e-03_jprb,1.4584e-03_jprb,8.8538e-04_jprb/)  
kao( :, 4,12, 3) = (/&
 & 3.7862e-04_jprb,1.1614e-03_jprb,1.4559e-03_jprb,1.6504e-03_jprb,1.7780e-03_jprb,1.8118e-03_jprb,&
 & 1.7570e-03_jprb,1.5710e-03_jprb,9.6174e-04_jprb/)  
kao( :, 5,12, 3) = (/&
 & 4.1375e-04_jprb,1.2608e-03_jprb,1.5783e-03_jprb,1.7829e-03_jprb,1.9097e-03_jprb,1.9490e-03_jprb,&
 & 1.8902e-03_jprb,1.6924e-03_jprb,1.0383e-03_jprb/)  
kao( :, 1,13, 3) = (/&
 & 2.3648e-04_jprb,7.2058e-04_jprb,9.2721e-04_jprb,1.0773e-03_jprb,1.1715e-03_jprb,1.2041e-03_jprb,&
 & 1.1590e-03_jprb,1.0409e-03_jprb,5.9750e-04_jprb/)  
kao( :, 2,13, 3) = (/&
 & 2.5991e-04_jprb,7.9700e-04_jprb,1.0119e-03_jprb,1.1647e-03_jprb,1.2640e-03_jprb,1.2977e-03_jprb,&
 & 1.2520e-03_jprb,1.1213e-03_jprb,6.6442e-04_jprb/)  
kao( :, 3,13, 3) = (/&
 & 2.8463e-04_jprb,8.7643e-04_jprb,1.1035e-03_jprb,1.2606e-03_jprb,1.3651e-03_jprb,1.3947e-03_jprb,&
 & 1.3520e-03_jprb,1.2099e-03_jprb,7.2829e-04_jprb/)  
kao( :, 4,13, 3) = (/&
 & 3.1116e-04_jprb,9.5840e-04_jprb,1.2015e-03_jprb,1.3629e-03_jprb,1.4693e-03_jprb,1.4997e-03_jprb,&
 & 1.4571e-03_jprb,1.3050e-03_jprb,7.9195e-04_jprb/)  
kao( :, 5,13, 3) = (/&
 & 3.3973e-04_jprb,1.0393e-03_jprb,1.3011e-03_jprb,1.4709e-03_jprb,1.5771e-03_jprb,1.6125e-03_jprb,&
 & 1.5669e-03_jprb,1.4078e-03_jprb,8.5580e-04_jprb/)  
kao( :, 1, 1, 4) = (/&
 & 6.8556e-03_jprb,1.5209e-02_jprb,1.8964e-02_jprb,2.1311e-02_jprb,2.2775e-02_jprb,2.3573e-02_jprb,&
 & 2.3412e-02_jprb,2.1611e-02_jprb,1.0754e-02_jprb/)  
kao( :, 2, 1, 4) = (/&
 & 7.5360e-03_jprb,1.6539e-02_jprb,2.0389e-02_jprb,2.2809e-02_jprb,2.4368e-02_jprb,2.5124e-02_jprb,&
 & 2.4893e-02_jprb,2.2807e-02_jprb,1.1409e-02_jprb/)  
kao( :, 3, 1, 4) = (/&
 & 8.2731e-03_jprb,1.7967e-02_jprb,2.1859e-02_jprb,2.4354e-02_jprb,2.6001e-02_jprb,2.6738e-02_jprb,&
 & 2.6424e-02_jprb,2.3981e-02_jprb,1.2028e-02_jprb/)  
kao( :, 4, 1, 4) = (/&
 & 9.0669e-03_jprb,1.9440e-02_jprb,2.3386e-02_jprb,2.5951e-02_jprb,2.7638e-02_jprb,2.8404e-02_jprb,&
 & 2.7993e-02_jprb,2.5105e-02_jprb,1.2622e-02_jprb/)  
kao( :, 5, 1, 4) = (/&
 & 9.9297e-03_jprb,2.0867e-02_jprb,2.4992e-02_jprb,2.7620e-02_jprb,2.9333e-02_jprb,3.0144e-02_jprb,&
 & 2.9561e-02_jprb,2.6196e-02_jprb,1.3246e-02_jprb/)  
kao( :, 1, 2, 4) = (/&
 & 6.0458e-03_jprb,1.3057e-02_jprb,1.6177e-02_jprb,1.8072e-02_jprb,1.9267e-02_jprb,1.9866e-02_jprb,&
 & 1.9708e-02_jprb,1.7998e-02_jprb,8.6186e-03_jprb/)  
kao( :, 2, 2, 4) = (/&
 & 6.6625e-03_jprb,1.4207e-02_jprb,1.7424e-02_jprb,1.9390e-02_jprb,2.0646e-02_jprb,2.1226e-02_jprb,&
 & 2.0989e-02_jprb,1.9040e-02_jprb,9.1596e-03_jprb/)  
kao( :, 3, 2, 4) = (/&
 & 7.3258e-03_jprb,1.5446e-02_jprb,1.8730e-02_jprb,2.0756e-02_jprb,2.2068e-02_jprb,2.2641e-02_jprb,&
 & 2.2320e-02_jprb,2.0040e-02_jprb,9.6719e-03_jprb/)  
kao( :, 4, 2, 4) = (/&
 & 8.0389e-03_jprb,1.6697e-02_jprb,2.0086e-02_jprb,2.2176e-02_jprb,2.3509e-02_jprb,2.4128e-02_jprb,&
 & 2.3691e-02_jprb,2.0995e-02_jprb,1.0163e-02_jprb/)  
kao( :, 5, 2, 4) = (/&
 & 8.8116e-03_jprb,1.7924e-02_jprb,2.1495e-02_jprb,2.3659e-02_jprb,2.5007e-02_jprb,2.5649e-02_jprb,&
 & 2.5070e-02_jprb,2.1939e-02_jprb,1.0681e-02_jprb/)  
kao( :, 1, 3, 4) = (/&
 & 5.1529e-03_jprb,1.1010e-02_jprb,1.3576e-02_jprb,1.5057e-02_jprb,1.5941e-02_jprb,1.6391e-02_jprb,&
 & 1.6252e-02_jprb,1.4825e-02_jprb,6.7965e-03_jprb/)  
kao( :, 2, 3, 4) = (/&
 & 5.7021e-03_jprb,1.1982e-02_jprb,1.4643e-02_jprb,1.6192e-02_jprb,1.7140e-02_jprb,1.7565e-02_jprb,&
 & 1.7355e-02_jprb,1.5736e-02_jprb,7.2498e-03_jprb/)  
kao( :, 3, 3, 4) = (/&
 & 6.2951e-03_jprb,1.3030e-02_jprb,1.5759e-02_jprb,1.7371e-02_jprb,1.8379e-02_jprb,1.8797e-02_jprb,&
 & 1.8506e-02_jprb,1.6604e-02_jprb,7.6744e-03_jprb/)  
kao( :, 4, 3, 4) = (/&
 & 6.9329e-03_jprb,1.4099e-02_jprb,1.6924e-02_jprb,1.8614e-02_jprb,1.9640e-02_jprb,2.0080e-02_jprb,&
 & 1.9697e-02_jprb,1.7427e-02_jprb,8.0855e-03_jprb/)  
kao( :, 5, 3, 4) = (/&
 & 7.6208e-03_jprb,1.5154e-02_jprb,1.8132e-02_jprb,1.9899e-02_jprb,2.0953e-02_jprb,2.1403e-02_jprb,&
 & 2.0907e-02_jprb,1.8236e-02_jprb,8.5123e-03_jprb/)  
kao( :, 1, 4, 4) = (/&
 & 4.3117e-03_jprb,9.2399e-03_jprb,1.1333e-02_jprb,1.2460e-02_jprb,1.3088e-02_jprb,1.3384e-02_jprb,&
 & 1.3264e-02_jprb,1.2129e-02_jprb,5.3638e-03_jprb/)  
kao( :, 2, 4, 4) = (/&
 & 4.7919e-03_jprb,1.0057e-02_jprb,1.2236e-02_jprb,1.3425e-02_jprb,1.4108e-02_jprb,1.4384e-02_jprb,&
 & 1.4215e-02_jprb,1.2919e-02_jprb,5.7448e-03_jprb/)  
kao( :, 3, 4, 4) = (/&
 & 5.3141e-03_jprb,1.0939e-02_jprb,1.3172e-02_jprb,1.4430e-02_jprb,1.5160e-02_jprb,1.5438e-02_jprb,&
 & 1.5198e-02_jprb,1.3684e-02_jprb,6.1060e-03_jprb/)  
kao( :, 4, 4, 4) = (/&
 & 5.8726e-03_jprb,1.1850e-02_jprb,1.4160e-02_jprb,1.5498e-02_jprb,1.6255e-02_jprb,1.6542e-02_jprb,&
 & 1.6226e-02_jprb,1.4411e-02_jprb,6.4545e-03_jprb/)  
kao( :, 5, 4, 4) = (/&
 & 6.4675e-03_jprb,1.2764e-02_jprb,1.5190e-02_jprb,1.6608e-02_jprb,1.7400e-02_jprb,1.7692e-02_jprb,&
 & 1.7269e-02_jprb,1.5120e-02_jprb,6.8073e-03_jprb/)  
kao( :, 1, 5, 4) = (/&
 & 3.5690e-03_jprb,7.7051e-03_jprb,9.4368e-03_jprb,1.0305e-02_jprb,1.0745e-02_jprb,1.0912e-02_jprb,&
 & 1.0785e-02_jprb,9.8773e-03_jprb,4.2532e-03_jprb/)  
kao( :, 2, 5, 4) = (/&
 & 3.9820e-03_jprb,8.3977e-03_jprb,1.0194e-02_jprb,1.1112e-02_jprb,1.1609e-02_jprb,1.1756e-02_jprb,&
 & 1.1595e-02_jprb,1.0560e-02_jprb,4.5731e-03_jprb/)  
kao( :, 3, 5, 4) = (/&
 & 4.4305e-03_jprb,9.1511e-03_jprb,1.0990e-02_jprb,1.1967e-02_jprb,1.2498e-02_jprb,1.2650e-02_jprb,&
 & 1.2430e-02_jprb,1.1229e-02_jprb,4.8830e-03_jprb/)  
kao( :, 4, 5, 4) = (/&
 & 4.9079e-03_jprb,9.9363e-03_jprb,1.1832e-02_jprb,1.2872e-02_jprb,1.3434e-02_jprb,1.3592e-02_jprb,&
 & 1.3307e-02_jprb,1.1872e-02_jprb,5.1810e-03_jprb/)  
kao( :, 5, 5, 4) = (/&
 & 5.4148e-03_jprb,1.0727e-02_jprb,1.2716e-02_jprb,1.3820e-02_jprb,1.4419e-02_jprb,1.4584e-02_jprb,&
 & 1.4197e-02_jprb,1.2492e-02_jprb,5.4782e-03_jprb/)  
kao( :, 1, 6, 4) = (/&
 & 2.9249e-03_jprb,6.3510e-03_jprb,7.7849e-03_jprb,8.4721e-03_jprb,8.7941e-03_jprb,8.8837e-03_jprb,&
 & 8.7388e-03_jprb,7.9841e-03_jprb,3.3710e-03_jprb/)  
kao( :, 2, 6, 4) = (/&
 & 3.2672e-03_jprb,6.9385e-03_jprb,8.4203e-03_jprb,9.1541e-03_jprb,9.5165e-03_jprb,9.5904e-03_jprb,&
 & 9.4152e-03_jprb,8.5713e-03_jprb,3.6377e-03_jprb/)  
kao( :, 3, 6, 4) = (/&
 & 3.6418e-03_jprb,7.5787e-03_jprb,9.0887e-03_jprb,9.8765e-03_jprb,1.0268e-02_jprb,1.0342e-02_jprb,&
 & 1.0116e-02_jprb,9.1545e-03_jprb,3.8990e-03_jprb/)  
kao( :, 4, 6, 4) = (/&
 & 4.0414e-03_jprb,8.2510e-03_jprb,9.8093e-03_jprb,1.0646e-02_jprb,1.1060e-02_jprb,1.1134e-02_jprb,&
 & 1.0854e-02_jprb,9.7190e-03_jprb,4.1544e-03_jprb/)  
kao( :, 5, 6, 4) = (/&
 & 4.4633e-03_jprb,8.9345e-03_jprb,1.0570e-02_jprb,1.1457e-02_jprb,1.1902e-02_jprb,1.1976e-02_jprb,&
 & 1.1614e-02_jprb,1.0272e-02_jprb,4.4061e-03_jprb/)  
kao( :, 1, 7, 4) = (/&
 & 2.3975e-03_jprb,5.1959e-03_jprb,6.3675e-03_jprb,6.9242e-03_jprb,7.1717e-03_jprb,7.2208e-03_jprb,&
 & 7.0819e-03_jprb,6.4278e-03_jprb,2.6775e-03_jprb/)  
kao( :, 2, 7, 4) = (/&
 & 2.6794e-03_jprb,5.6899e-03_jprb,6.9066e-03_jprb,7.4942e-03_jprb,7.7787e-03_jprb,7.8098e-03_jprb,&
 & 7.6464e-03_jprb,6.9290e-03_jprb,2.9001e-03_jprb/)  
kao( :, 3, 7, 4) = (/&
 & 2.9849e-03_jprb,6.2316e-03_jprb,7.4741e-03_jprb,8.1056e-03_jprb,8.4139e-03_jprb,8.4374e-03_jprb,&
 & 8.2281e-03_jprb,7.4302e-03_jprb,3.1195e-03_jprb/)  
kao( :, 4, 7, 4) = (/&
 & 3.3129e-03_jprb,6.7984e-03_jprb,8.0790e-03_jprb,8.7600e-03_jprb,9.0837e-03_jprb,9.1052e-03_jprb,&
 & 8.8458e-03_jprb,7.9231e-03_jprb,3.3376e-03_jprb/)  
kao( :, 5, 7, 4) = (/&
 & 3.6598e-03_jprb,7.3757e-03_jprb,8.7298e-03_jprb,9.4547e-03_jprb,9.7958e-03_jprb,9.8221e-03_jprb,&
 & 9.4863e-03_jprb,8.4060e-03_jprb,3.5509e-03_jprb/)  
kao( :, 1, 8, 4) = (/&
 & 1.9434e-03_jprb,4.2318e-03_jprb,5.1740e-03_jprb,5.6370e-03_jprb,5.8246e-03_jprb,5.8488e-03_jprb,&
 & 5.7327e-03_jprb,5.1810e-03_jprb,2.1537e-03_jprb/)  
kao( :, 2, 8, 4) = (/&
 & 2.1750e-03_jprb,4.6511e-03_jprb,5.6344e-03_jprb,6.1150e-03_jprb,6.3286e-03_jprb,6.3404e-03_jprb,&
 & 6.2037e-03_jprb,5.6029e-03_jprb,2.3441e-03_jprb/)  
kao( :, 3, 8, 4) = (/&
 & 2.4260e-03_jprb,5.1070e-03_jprb,6.1176e-03_jprb,6.6292e-03_jprb,6.8641e-03_jprb,6.8681e-03_jprb,&
 & 6.6887e-03_jprb,6.0329e-03_jprb,2.5317e-03_jprb/)  
kao( :, 4, 8, 4) = (/&
 & 2.6978e-03_jprb,5.5812e-03_jprb,6.6317e-03_jprb,7.1849e-03_jprb,7.4298e-03_jprb,7.4337e-03_jprb,&
 & 7.2011e-03_jprb,6.4503e-03_jprb,2.7201e-03_jprb/)  
kao( :, 5, 8, 4) = (/&
 & 2.9851e-03_jprb,6.0671e-03_jprb,7.1793e-03_jprb,7.7747e-03_jprb,8.0358e-03_jprb,8.0369e-03_jprb,&
 & 7.7421e-03_jprb,6.8660e-03_jprb,2.9050e-03_jprb/)  
kao( :, 1, 9, 4) = (/&
 & 1.5624e-03_jprb,3.4224e-03_jprb,4.1803e-03_jprb,4.5613e-03_jprb,4.7117e-03_jprb,4.7269e-03_jprb,&
 & 4.6315e-03_jprb,4.1802e-03_jprb,2.0354e-03_jprb/)  
kao( :, 2, 9, 4) = (/&
 & 1.7467e-03_jprb,3.7749e-03_jprb,4.5748e-03_jprb,4.9706e-03_jprb,5.1343e-03_jprb,5.1344e-03_jprb,&
 & 5.0243e-03_jprb,4.5350e-03_jprb,2.2250e-03_jprb/)  
kao( :, 3, 9, 4) = (/&
 & 1.9492e-03_jprb,4.1547e-03_jprb,4.9867e-03_jprb,5.4054e-03_jprb,5.5868e-03_jprb,5.5764e-03_jprb,&
 & 5.4288e-03_jprb,4.8977e-03_jprb,2.4149e-03_jprb/)  
kao( :, 4, 9, 4) = (/&
 & 2.1701e-03_jprb,4.5508e-03_jprb,5.4194e-03_jprb,5.8744e-03_jprb,6.0659e-03_jprb,6.0518e-03_jprb,&
 & 5.8540e-03_jprb,5.2537e-03_jprb,2.5971e-03_jprb/)  
kao( :, 5, 9, 4) = (/&
 & 2.4022e-03_jprb,4.9613e-03_jprb,5.8787e-03_jprb,6.3727e-03_jprb,6.5778e-03_jprb,6.5618e-03_jprb,&
 & 6.3067e-03_jprb,5.6053e-03_jprb,2.7830e-03_jprb/)  
kao( :, 1,10, 4) = (/&
 & 1.2651e-03_jprb,2.7744e-03_jprb,3.3801e-03_jprb,3.6900e-03_jprb,3.8178e-03_jprb,3.8360e-03_jprb,&
 & 3.7605e-03_jprb,3.3907e-03_jprb,2.1692e-03_jprb/)  
kao( :, 2,10, 4) = (/&
 & 1.4111e-03_jprb,3.0657e-03_jprb,3.7136e-03_jprb,4.0421e-03_jprb,4.1735e-03_jprb,4.1745e-03_jprb,&
 & 4.0861e-03_jprb,3.6872e-03_jprb,2.3639e-03_jprb/)  
kao( :, 3,10, 4) = (/&
 & 1.5740e-03_jprb,3.3806e-03_jprb,4.0618e-03_jprb,4.4105e-03_jprb,4.5571e-03_jprb,4.5460e-03_jprb,&
 & 4.4247e-03_jprb,3.9923e-03_jprb,2.5630e-03_jprb/)  
kao( :, 4,10, 4) = (/&
 & 1.7522e-03_jprb,3.7084e-03_jprb,4.4249e-03_jprb,4.8035e-03_jprb,4.9639e-03_jprb,4.9498e-03_jprb,&
 & 4.7806e-03_jprb,4.2956e-03_jprb,2.7623e-03_jprb/)  
kao( :, 5,10, 4) = (/&
 & 1.9383e-03_jprb,4.0495e-03_jprb,4.8094e-03_jprb,5.2222e-03_jprb,5.3934e-03_jprb,5.3817e-03_jprb,&
 & 5.1614e-03_jprb,4.5951e-03_jprb,2.9665e-03_jprb/)  
kao( :, 1,11, 4) = (/&
 & 1.0742e-03_jprb,2.3468e-03_jprb,2.8469e-03_jprb,3.1039e-03_jprb,3.2098e-03_jprb,3.2233e-03_jprb,&
 & 3.1623e-03_jprb,2.8537e-03_jprb,1.9822e-03_jprb/)  
kao( :, 2,11, 4) = (/&
 & 1.1960e-03_jprb,2.5965e-03_jprb,3.1323e-03_jprb,3.4077e-03_jprb,3.5194e-03_jprb,3.5164e-03_jprb,&
 & 3.4380e-03_jprb,3.1056e-03_jprb,2.1578e-03_jprb/)  
kao( :, 3,11, 4) = (/&
 & 1.3316e-03_jprb,2.8599e-03_jprb,3.4277e-03_jprb,3.7260e-03_jprb,3.8497e-03_jprb,3.8405e-03_jprb,&
 & 3.7265e-03_jprb,3.3630e-03_jprb,2.3306e-03_jprb/)  
kao( :, 4,11, 4) = (/&
 & 1.4781e-03_jprb,3.1344e-03_jprb,3.7357e-03_jprb,4.0610e-03_jprb,4.1987e-03_jprb,4.1913e-03_jprb,&
 & 4.0345e-03_jprb,3.6192e-03_jprb,2.5097e-03_jprb/)  
kao( :, 5,11, 4) = (/&
 & 1.6288e-03_jprb,3.4177e-03_jprb,4.0619e-03_jprb,4.4185e-03_jprb,4.5672e-03_jprb,4.5600e-03_jprb,&
 & 4.3663e-03_jprb,3.8756e-03_jprb,2.6889e-03_jprb/)  
kao( :, 1,12, 4) = (/&
 & 8.9874e-04_jprb,1.9689e-03_jprb,2.3835e-03_jprb,2.5973e-03_jprb,2.6864e-03_jprb,2.6939e-03_jprb,&
 & 2.6425e-03_jprb,2.3895e-03_jprb,1.7049e-03_jprb/)  
kao( :, 2,12, 4) = (/&
 & 1.0002e-03_jprb,2.1778e-03_jprb,2.6233e-03_jprb,2.8564e-03_jprb,2.9517e-03_jprb,2.9476e-03_jprb,&
 & 2.8766e-03_jprb,2.6019e-03_jprb,1.8543e-03_jprb/)  
kao( :, 3,12, 4) = (/&
 & 1.1122e-03_jprb,2.3973e-03_jprb,2.8713e-03_jprb,3.1266e-03_jprb,3.2310e-03_jprb,3.2276e-03_jprb,&
 & 3.1237e-03_jprb,2.8177e-03_jprb,2.0046e-03_jprb/)  
kao( :, 4,12, 4) = (/&
 & 1.2310e-03_jprb,2.6254e-03_jprb,3.1305e-03_jprb,3.4112e-03_jprb,3.5275e-03_jprb,3.5259e-03_jprb,&
 & 3.3898e-03_jprb,3.0349e-03_jprb,2.1565e-03_jprb/)  
kao( :, 5,12, 4) = (/&
 & 1.3518e-03_jprb,2.8575e-03_jprb,3.4006e-03_jprb,3.7092e-03_jprb,3.8403e-03_jprb,3.8370e-03_jprb,&
 & 3.6750e-03_jprb,3.2557e-03_jprb,2.3061e-03_jprb/)  
kao( :, 1,13, 4) = (/&
 & 7.4537e-04_jprb,1.6409e-03_jprb,1.9863e-03_jprb,2.1648e-03_jprb,2.2399e-03_jprb,2.2444e-03_jprb,&
 & 2.1988e-03_jprb,1.9916e-03_jprb,1.4115e-03_jprb/)  
kao( :, 2,13, 4) = (/&
 & 8.2943e-04_jprb,1.8143e-03_jprb,2.1850e-03_jprb,2.3828e-03_jprb,2.4639e-03_jprb,2.4609e-03_jprb,&
 & 2.3970e-03_jprb,2.1692e-03_jprb,1.5369e-03_jprb/)  
kao( :, 3,13, 4) = (/&
 & 9.2142e-04_jprb,1.9970e-03_jprb,2.3927e-03_jprb,2.6093e-03_jprb,2.6971e-03_jprb,2.6969e-03_jprb,&
 & 2.6076e-03_jprb,2.3521e-03_jprb,1.6626e-03_jprb/)  
kao( :, 4,13, 4) = (/&
 & 1.0167e-03_jprb,2.1837e-03_jprb,2.6078e-03_jprb,2.8478e-03_jprb,2.9467e-03_jprb,2.9488e-03_jprb,&
 & 2.8346e-03_jprb,2.5383e-03_jprb,1.7879e-03_jprb/)  
kao( :, 5,13, 4) = (/&
 & 1.1138e-03_jprb,2.3733e-03_jprb,2.8290e-03_jprb,3.0924e-03_jprb,3.2079e-03_jprb,3.2103e-03_jprb,&
 & 3.0778e-03_jprb,2.7284e-03_jprb,1.9133e-03_jprb/)  
kao( :, 1, 1, 5) = (/&
 & 1.7181e-02_jprb,3.2302e-02_jprb,3.8595e-02_jprb,4.2778e-02_jprb,4.5051e-02_jprb,4.5779e-02_jprb,&
 & 4.4076e-02_jprb,3.6499e-02_jprb,2.1167e-02_jprb/)  
kao( :, 2, 1, 5) = (/&
 & 1.8715e-02_jprb,3.4583e-02_jprb,4.1400e-02_jprb,4.5830e-02_jprb,4.8256e-02_jprb,4.8951e-02_jprb,&
 & 4.6576e-02_jprb,3.8480e-02_jprb,2.2565e-02_jprb/)  
kao( :, 3, 1, 5) = (/&
 & 2.0319e-02_jprb,3.6940e-02_jprb,4.4260e-02_jprb,4.8908e-02_jprb,5.1471e-02_jprb,5.2022e-02_jprb,&
 & 4.8965e-02_jprb,4.0507e-02_jprb,2.4057e-02_jprb/)  
kao( :, 4, 1, 5) = (/&
 & 2.1938e-02_jprb,3.9364e-02_jprb,4.7234e-02_jprb,5.2022e-02_jprb,5.4697e-02_jprb,5.4911e-02_jprb,&
 & 5.1216e-02_jprb,4.2565e-02_jprb,2.5590e-02_jprb/)  
kao( :, 5, 1, 5) = (/&
 & 2.3550e-02_jprb,4.1966e-02_jprb,5.0230e-02_jprb,5.5149e-02_jprb,5.7839e-02_jprb,5.7598e-02_jprb,&
 & 5.3448e-02_jprb,4.4689e-02_jprb,2.7100e-02_jprb/)  
kao( :, 1, 2, 5) = (/&
 & 1.5052e-02_jprb,2.7803e-02_jprb,3.3102e-02_jprb,3.6670e-02_jprb,3.8668e-02_jprb,3.9030e-02_jprb,&
 & 3.7189e-02_jprb,3.0668e-02_jprb,1.6985e-02_jprb/)  
kao( :, 2, 2, 5) = (/&
 & 1.6394e-02_jprb,2.9857e-02_jprb,3.5621e-02_jprb,3.9412e-02_jprb,4.1539e-02_jprb,4.1835e-02_jprb,&
 & 3.9351e-02_jprb,3.2356e-02_jprb,1.8150e-02_jprb/)  
kao( :, 3, 2, 5) = (/&
 & 1.7773e-02_jprb,3.1981e-02_jprb,3.8209e-02_jprb,4.2190e-02_jprb,4.4385e-02_jprb,4.4554e-02_jprb,&
 & 4.1400e-02_jprb,3.4106e-02_jprb,1.9354e-02_jprb/)  
kao( :, 4, 2, 5) = (/&
 & 1.9186e-02_jprb,3.4227e-02_jprb,4.0894e-02_jprb,4.4998e-02_jprb,4.7235e-02_jprb,4.7050e-02_jprb,&
 & 4.3366e-02_jprb,3.5935e-02_jprb,2.0592e-02_jprb/)  
kao( :, 5, 2, 5) = (/&
 & 2.0602e-02_jprb,3.6657e-02_jprb,4.3639e-02_jprb,4.7854e-02_jprb,5.0031e-02_jprb,4.9403e-02_jprb,&
 & 4.5298e-02_jprb,3.7775e-02_jprb,2.1830e-02_jprb/)  
kao( :, 1, 3, 5) = (/&
 & 1.3014e-02_jprb,2.3440e-02_jprb,2.7739e-02_jprb,3.0683e-02_jprb,3.2476e-02_jprb,3.2815e-02_jprb,&
 & 3.1052e-02_jprb,2.5347e-02_jprb,1.3409e-02_jprb/)  
kao( :, 2, 3, 5) = (/&
 & 1.4134e-02_jprb,2.5267e-02_jprb,2.9956e-02_jprb,3.3121e-02_jprb,3.5013e-02_jprb,3.5276e-02_jprb,&
 & 3.2969e-02_jprb,2.6772e-02_jprb,1.4346e-02_jprb/)  
kao( :, 3, 3, 5) = (/&
 & 1.5286e-02_jprb,2.7161e-02_jprb,3.2264e-02_jprb,3.5614e-02_jprb,3.7525e-02_jprb,3.7651e-02_jprb,&
 & 3.4766e-02_jprb,2.8284e-02_jprb,1.5307e-02_jprb/)  
kao( :, 4, 3, 5) = (/&
 & 1.6478e-02_jprb,2.9176e-02_jprb,3.4663e-02_jprb,3.8132e-02_jprb,4.0060e-02_jprb,3.9857e-02_jprb,&
 & 3.6493e-02_jprb,2.9862e-02_jprb,1.6309e-02_jprb/)  
kao( :, 5, 3, 5) = (/&
 & 1.7703e-02_jprb,3.1371e-02_jprb,3.7140e-02_jprb,4.0703e-02_jprb,4.2572e-02_jprb,4.1936e-02_jprb,&
 & 3.8184e-02_jprb,3.1459e-02_jprb,1.7321e-02_jprb/)  
kao( :, 1, 4, 5) = (/&
 & 1.1231e-02_jprb,1.9592e-02_jprb,2.3001e-02_jprb,2.5417e-02_jprb,2.6918e-02_jprb,2.7254e-02_jprb,&
 & 2.5764e-02_jprb,2.0867e-02_jprb,1.0611e-02_jprb/)  
kao( :, 2, 4, 5) = (/&
 & 1.2152e-02_jprb,2.1190e-02_jprb,2.4941e-02_jprb,2.7556e-02_jprb,2.9134e-02_jprb,2.9416e-02_jprb,&
 & 2.7448e-02_jprb,2.2085e-02_jprb,1.1371e-02_jprb/)  
kao( :, 3, 4, 5) = (/&
 & 1.3112e-02_jprb,2.2852e-02_jprb,2.6983e-02_jprb,2.9739e-02_jprb,3.1347e-02_jprb,3.1506e-02_jprb,&
 & 2.9043e-02_jprb,2.3373e-02_jprb,1.2148e-02_jprb/)  
kao( :, 4, 4, 5) = (/&
 & 1.4124e-02_jprb,2.4635e-02_jprb,2.9094e-02_jprb,3.1959e-02_jprb,3.3566e-02_jprb,3.3485e-02_jprb,&
 & 3.0596e-02_jprb,2.4717e-02_jprb,1.2964e-02_jprb/)  
kao( :, 5, 4, 5) = (/&
 & 1.5184e-02_jprb,2.6570e-02_jprb,3.1299e-02_jprb,3.4230e-02_jprb,3.5790e-02_jprb,3.5353e-02_jprb,&
 & 3.2102e-02_jprb,2.6103e-02_jprb,1.3794e-02_jprb/)  
kao( :, 1, 5, 5) = (/&
 & 9.6625e-03_jprb,1.6401e-02_jprb,1.9034e-02_jprb,2.0952e-02_jprb,2.2133e-02_jprb,2.2396e-02_jprb,&
 & 2.1200e-02_jprb,1.7173e-02_jprb,8.4178e-03_jprb/)  
kao( :, 2, 5, 5) = (/&
 & 1.0438e-02_jprb,1.7777e-02_jprb,2.0706e-02_jprb,2.2811e-02_jprb,2.4067e-02_jprb,2.4293e-02_jprb,&
 & 2.2690e-02_jprb,1.8230e-02_jprb,9.0426e-03_jprb/)  
kao( :, 3, 5, 5) = (/&
 & 1.1254e-02_jprb,1.9209e-02_jprb,2.2469e-02_jprb,2.4701e-02_jprb,2.6015e-02_jprb,2.6148e-02_jprb,&
 & 2.4123e-02_jprb,1.9342e-02_jprb,9.6801e-03_jprb/)  

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


SUBROUTINE part4

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


kao( :, 4, 5, 5) = (/&
 & 1.2133e-02_jprb,2.0762e-02_jprb,2.4308e-02_jprb,2.6645e-02_jprb,2.7949e-02_jprb,2.7917e-02_jprb,&
 & 2.5517e-02_jprb,2.0494e-02_jprb,1.0342e-02_jprb/)  
kao( :, 5, 5, 5) = (/&
 & 1.3065e-02_jprb,2.2455e-02_jprb,2.6254e-02_jprb,2.8630e-02_jprb,2.9901e-02_jprb,2.9590e-02_jprb,&
 & 2.6871e-02_jprb,2.1687e-02_jprb,1.1028e-02_jprb/)  
kao( :, 1, 6, 5) = (/&
 & 8.2007e-03_jprb,1.3715e-02_jprb,1.5729e-02_jprb,1.7180e-02_jprb,1.8048e-02_jprb,1.8207e-02_jprb,&
 & 1.7264e-02_jprb,1.4054e-02_jprb,6.6647e-03_jprb/)  
kao( :, 2, 6, 5) = (/&
 & 8.8577e-03_jprb,1.4875e-02_jprb,1.7145e-02_jprb,1.8767e-02_jprb,1.9710e-02_jprb,1.9852e-02_jprb,&
 & 1.8586e-02_jprb,1.4966e-02_jprb,7.1861e-03_jprb/)  
kao( :, 3, 6, 5) = (/&
 & 9.5621e-03_jprb,1.6088e-02_jprb,1.8646e-02_jprb,2.0384e-02_jprb,2.1390e-02_jprb,2.1481e-02_jprb,&
 & 1.9863e-02_jprb,1.5925e-02_jprb,7.7141e-03_jprb/)  
kao( :, 4, 6, 5) = (/&
 & 1.0328e-02_jprb,1.7422e-02_jprb,2.0223e-02_jprb,2.2061e-02_jprb,2.3072e-02_jprb,2.3059e-02_jprb,&
 & 2.1135e-02_jprb,1.6924e-02_jprb,8.2553e-03_jprb/)  
kao( :, 5, 6, 5) = (/&
 & 1.1150e-02_jprb,1.8880e-02_jprb,2.1894e-02_jprb,2.3787e-02_jprb,2.4780e-02_jprb,2.4546e-02_jprb,&
 & 2.2361e-02_jprb,1.7956e-02_jprb,8.8222e-03_jprb/)  
kao( :, 1, 7, 5) = (/&
 & 6.8716e-03_jprb,1.1438e-02_jprb,1.2980e-02_jprb,1.4066e-02_jprb,1.4694e-02_jprb,1.4738e-02_jprb,&
 & 1.3970e-02_jprb,1.1459e-02_jprb,5.2799e-03_jprb/)  
kao( :, 2, 7, 5) = (/&
 & 7.4237e-03_jprb,1.2422e-02_jprb,1.4174e-02_jprb,1.5413e-02_jprb,1.6105e-02_jprb,1.6152e-02_jprb,&
 & 1.5139e-02_jprb,1.2254e-02_jprb,5.7135e-03_jprb/)  
kao( :, 3, 7, 5) = (/&
 & 8.0288e-03_jprb,1.3449e-02_jprb,1.5440e-02_jprb,1.6795e-02_jprb,1.7529e-02_jprb,1.7565e-02_jprb,&
 & 1.6277e-02_jprb,1.3083e-02_jprb,6.1506e-03_jprb/)  
kao( :, 4, 7, 5) = (/&
 & 8.6956e-03_jprb,1.4582e-02_jprb,1.6791e-02_jprb,1.8226e-02_jprb,1.8968e-02_jprb,1.8943e-02_jprb,&
 & 1.7401e-02_jprb,1.3948e-02_jprb,6.5933e-03_jprb/)  
kao( :, 5, 7, 5) = (/&
 & 9.4131e-03_jprb,1.5832e-02_jprb,1.8226e-02_jprb,1.9705e-02_jprb,2.0439e-02_jprb,2.0248e-02_jprb,&
 & 1.8508e-02_jprb,1.4839e-02_jprb,7.0585e-03_jprb/)  
kao( :, 1, 8, 5) = (/&
 & 5.7435e-03_jprb,9.4740e-03_jprb,1.0676e-02_jprb,1.1493e-02_jprb,1.1955e-02_jprb,1.1929e-02_jprb,&
 & 1.1279e-02_jprb,9.3230e-03_jprb,4.2354e-03_jprb/)  
kao( :, 2, 8, 5) = (/&
 & 6.2010e-03_jprb,1.0304e-02_jprb,1.1685e-02_jprb,1.2627e-02_jprb,1.3147e-02_jprb,1.3135e-02_jprb,&
 & 1.2304e-02_jprb,1.0014e-02_jprb,4.5941e-03_jprb/)  
kao( :, 3, 8, 5) = (/&
 & 6.7137e-03_jprb,1.1183e-02_jprb,1.2753e-02_jprb,1.3801e-02_jprb,1.4354e-02_jprb,1.4340e-02_jprb,&
 & 1.3315e-02_jprb,1.0741e-02_jprb,4.9555e-03_jprb/)  
kao( :, 4, 8, 5) = (/&
 & 7.2796e-03_jprb,1.2147e-02_jprb,1.3897e-02_jprb,1.5019e-02_jprb,1.5585e-02_jprb,1.5528e-02_jprb,&
 & 1.4315e-02_jprb,1.1502e-02_jprb,5.3165e-03_jprb/)  
kao( :, 5, 8, 5) = (/&
 & 7.8871e-03_jprb,1.3218e-02_jprb,1.5130e-02_jprb,1.6296e-02_jprb,1.6839e-02_jprb,1.6669e-02_jprb,&
 & 1.5291e-02_jprb,1.2282e-02_jprb,5.6971e-03_jprb/)  
kao( :, 1, 9, 5) = (/&
 & 4.7912e-03_jprb,7.8358e-03_jprb,8.7667e-03_jprb,9.3820e-03_jprb,9.7143e-03_jprb,9.6500e-03_jprb,&
 & 9.0841e-03_jprb,7.5626e-03_jprb,3.7702e-03_jprb/)  
kao( :, 2, 9, 5) = (/&
 & 5.1805e-03_jprb,8.5367e-03_jprb,9.6133e-03_jprb,1.0334e-02_jprb,1.0715e-02_jprb,1.0676e-02_jprb,&
 & 9.9859e-03_jprb,8.1627e-03_jprb,4.1139e-03_jprb/)  
kao( :, 3, 9, 5) = (/&
 & 5.6138e-03_jprb,9.2835e-03_jprb,1.0517e-02_jprb,1.1325e-02_jprb,1.1739e-02_jprb,1.1698e-02_jprb,&
 & 1.0873e-02_jprb,8.7929e-03_jprb,4.4462e-03_jprb/)  
kao( :, 4, 9, 5) = (/&
 & 6.0888e-03_jprb,1.0103e-02_jprb,1.1488e-02_jprb,1.2361e-02_jprb,1.2785e-02_jprb,1.2718e-02_jprb,&
 & 1.1751e-02_jprb,9.4626e-03_jprb,4.7957e-03_jprb/)  
kao( :, 5, 9, 5) = (/&
 & 6.6048e-03_jprb,1.1011e-02_jprb,1.2538e-02_jprb,1.3462e-02_jprb,1.3863e-02_jprb,1.3713e-02_jprb,&
 & 1.2615e-02_jprb,1.0155e-02_jprb,5.1561e-03_jprb/)  
kao( :, 1,10, 5) = (/&
 & 3.9863e-03_jprb,6.4924e-03_jprb,7.2470e-03_jprb,7.7132e-03_jprb,7.9522e-03_jprb,7.8682e-03_jprb,&
 & 7.3679e-03_jprb,6.1741e-03_jprb,4.1464e-03_jprb/)  
kao( :, 2,10, 5) = (/&
 & 4.3124e-03_jprb,7.0973e-03_jprb,7.9675e-03_jprb,8.5161e-03_jprb,8.8014e-03_jprb,8.7362e-03_jprb,&
 & 8.1504e-03_jprb,6.7002e-03_jprb,4.5619e-03_jprb/)  
kao( :, 3,10, 5) = (/&
 & 4.6741e-03_jprb,7.7383e-03_jprb,8.7399e-03_jprb,9.3597e-03_jprb,9.6733e-03_jprb,9.6088e-03_jprb,&
 & 8.9286e-03_jprb,7.2584e-03_jprb,4.9900e-03_jprb/)  
kao( :, 4,10, 5) = (/&
 & 5.0713e-03_jprb,8.4456e-03_jprb,9.5735e-03_jprb,1.0251e-02_jprb,1.0572e-02_jprb,1.0481e-02_jprb,&
 & 9.6979e-03_jprb,7.8488e-03_jprb,5.4214e-03_jprb/)  
kao( :, 5,10, 5) = (/&
 & 5.5035e-03_jprb,9.2235e-03_jprb,1.0475e-02_jprb,1.1200e-02_jprb,1.1508e-02_jprb,1.1347e-02_jprb,&
 & 1.0465e-02_jprb,8.4573e-03_jprb,5.8532e-03_jprb/)  
kao( :, 1,11, 5) = (/&
 & 3.4140e-03_jprb,5.5663e-03_jprb,6.2176e-03_jprb,6.6132e-03_jprb,6.8087e-03_jprb,6.7328e-03_jprb,&
 & 6.2855e-03_jprb,5.2486e-03_jprb,3.9285e-03_jprb/)  
kao( :, 2,11, 5) = (/&
 & 3.6967e-03_jprb,6.0927e-03_jprb,6.8505e-03_jprb,7.3111e-03_jprb,7.5377e-03_jprb,7.4746e-03_jprb,&
 & 6.9609e-03_jprb,5.7240e-03_jprb,4.3138e-03_jprb/)  
kao( :, 3,11, 5) = (/&
 & 4.0076e-03_jprb,6.6620e-03_jprb,7.5356e-03_jprb,8.0510e-03_jprb,8.2975e-03_jprb,8.2276e-03_jprb,&
 & 7.6355e-03_jprb,6.2275e-03_jprb,4.7141e-03_jprb/)  
kao( :, 4,11, 5) = (/&
 & 4.3451e-03_jprb,7.2880e-03_jprb,8.2782e-03_jprb,8.8424e-03_jprb,9.0928e-03_jprb,8.9832e-03_jprb,&
 & 8.3078e-03_jprb,6.7453e-03_jprb,5.1152e-03_jprb/)  
kao( :, 5,11, 5) = (/&
 & 4.7137e-03_jprb,7.9681e-03_jprb,9.0805e-03_jprb,9.6843e-03_jprb,9.9239e-03_jprb,9.7470e-03_jprb,&
 & 8.9796e-03_jprb,7.2798e-03_jprb,5.5223e-03_jprb/)  
kao( :, 1,12, 5) = (/&
 & 2.8904e-03_jprb,4.7236e-03_jprb,5.2777e-03_jprb,5.6093e-03_jprb,5.7722e-03_jprb,5.7159e-03_jprb,&
 & 5.3358e-03_jprb,4.4458e-03_jprb,3.4411e-03_jprb/)  
kao( :, 2,12, 5) = (/&
 & 3.1305e-03_jprb,5.1808e-03_jprb,5.8340e-03_jprb,6.2167e-03_jprb,6.4011e-03_jprb,6.3506e-03_jprb,&
 & 5.9136e-03_jprb,4.8660e-03_jprb,3.7674e-03_jprb/)  
kao( :, 3,12, 5) = (/&
 & 3.3899e-03_jprb,5.6784e-03_jprb,6.4390e-03_jprb,6.8698e-03_jprb,7.0684e-03_jprb,6.9989e-03_jprb,&
 & 6.4975e-03_jprb,5.3037e-03_jprb,4.1043e-03_jprb/)  
kao( :, 4,12, 5) = (/&
 & 3.6744e-03_jprb,6.2189e-03_jprb,7.0905e-03_jprb,7.5674e-03_jprb,7.7704e-03_jprb,7.6566e-03_jprb,&
 & 7.0778e-03_jprb,5.7507e-03_jprb,4.4508e-03_jprb/)  
kao( :, 5,12, 5) = (/&
 & 3.9835e-03_jprb,6.8035e-03_jprb,7.7845e-03_jprb,8.3062e-03_jprb,8.4996e-03_jprb,8.3274e-03_jprb,&
 & 7.6592e-03_jprb,6.2151e-03_jprb,4.8132e-03_jprb/)  
kao( :, 1,13, 5) = (/&
 & 2.4250e-03_jprb,3.9803e-03_jprb,4.4491e-03_jprb,4.7254e-03_jprb,4.8599e-03_jprb,4.8181e-03_jprb,&
 & 4.5058e-03_jprb,3.7586e-03_jprb,2.8856e-03_jprb/)  
kao( :, 2,13, 5) = (/&
 & 2.6244e-03_jprb,4.3727e-03_jprb,4.9354e-03_jprb,5.2533e-03_jprb,5.4054e-03_jprb,5.3645e-03_jprb,&
 & 5.0027e-03_jprb,4.1245e-03_jprb,3.1558e-03_jprb/)  
kao( :, 3,13, 5) = (/&
 & 2.8394e-03_jprb,4.7986e-03_jprb,5.4578e-03_jprb,5.8227e-03_jprb,5.9899e-03_jprb,5.9263e-03_jprb,&
 & 5.5030e-03_jprb,4.4990e-03_jprb,3.4378e-03_jprb/)  
kao( :, 4,13, 5) = (/&
 & 3.0777e-03_jprb,5.2577e-03_jprb,6.0171e-03_jprb,6.4265e-03_jprb,6.6019e-03_jprb,6.4996e-03_jprb,&
 & 6.0065e-03_jprb,4.8862e-03_jprb,3.7311e-03_jprb/)  
kao( :, 5,13, 5) = (/&
 & 3.3322e-03_jprb,5.7564e-03_jprb,6.6107e-03_jprb,7.0607e-03_jprb,7.2295e-03_jprb,7.0815e-03_jprb,&
 & 6.5094e-03_jprb,5.2886e-03_jprb,4.0375e-03_jprb/)  
kao( :, 1, 1, 6) = (/&
 & 4.8059e-02_jprb,7.5661e-02_jprb,8.9697e-02_jprb,9.6448e-02_jprb,9.6739e-02_jprb,9.1321e-02_jprb,&
 & 8.0664e-02_jprb,6.5698e-02_jprb,4.2723e-02_jprb/)  
kao( :, 2, 1, 6) = (/&
 & 5.1263e-02_jprb,8.1256e-02_jprb,9.5858e-02_jprb,1.0217e-01_jprb,1.0171e-01_jprb,9.5631e-02_jprb,&
 & 8.5046e-02_jprb,6.9688e-02_jprb,4.5844e-02_jprb/)  
kao( :, 3, 1, 6) = (/&
 & 5.4622e-02_jprb,8.6828e-02_jprb,1.0177e-01_jprb,1.0751e-01_jprb,1.0632e-01_jprb,9.9795e-02_jprb,&
 & 8.9370e-02_jprb,7.3806e-02_jprb,4.9014e-02_jprb/)  
kao( :, 4, 1, 6) = (/&
 & 5.8181e-02_jprb,9.2294e-02_jprb,1.0720e-01_jprb,1.1246e-01_jprb,1.1070e-01_jprb,1.0392e-01_jprb,&
 & 9.3642e-02_jprb,7.8008e-02_jprb,5.2233e-02_jprb/)  
kao( :, 5, 1, 6) = (/&
 & 6.1920e-02_jprb,9.7606e-02_jprb,1.1219e-01_jprb,1.1714e-01_jprb,1.1501e-01_jprb,1.0812e-01_jprb,&
 & 9.7841e-02_jprb,8.2254e-02_jprb,5.5493e-02_jprb/)  
kao( :, 1, 2, 6) = (/&
 & 4.2387e-02_jprb,6.7507e-02_jprb,7.8624e-02_jprb,8.3202e-02_jprb,8.2483e-02_jprb,7.7642e-02_jprb,&
 & 6.8845e-02_jprb,5.6151e-02_jprb,3.4701e-02_jprb/)  
kao( :, 2, 2, 6) = (/&
 & 4.5358e-02_jprb,7.2621e-02_jprb,8.4105e-02_jprb,8.8143e-02_jprb,8.6828e-02_jprb,8.1423e-02_jprb,&
 & 7.2754e-02_jprb,5.9777e-02_jprb,3.7226e-02_jprb/)  
kao( :, 3, 2, 6) = (/&
 & 4.8530e-02_jprb,7.7675e-02_jprb,8.9237e-02_jprb,9.2816e-02_jprb,9.0945e-02_jprb,8.5108e-02_jprb,&
 & 7.6583e-02_jprb,6.3482e-02_jprb,3.9865e-02_jprb/)  
kao( :, 4, 2, 6) = (/&
 & 5.1885e-02_jprb,8.2602e-02_jprb,9.3935e-02_jprb,9.7188e-02_jprb,9.4884e-02_jprb,8.8874e-02_jprb,&
 & 8.0329e-02_jprb,6.7178e-02_jprb,4.2571e-02_jprb/)  
kao( :, 5, 2, 6) = (/&
 & 5.5413e-02_jprb,8.7298e-02_jprb,9.8304e-02_jprb,1.0128e-01_jprb,9.8763e-02_jprb,9.2748e-02_jprb,&
 & 8.4077e-02_jprb,7.0956e-02_jprb,4.5317e-02_jprb/)  
kao( :, 1, 3, 6) = (/&
 & 3.6455e-02_jprb,5.8761e-02_jprb,6.7738e-02_jprb,7.0855e-02_jprb,6.9598e-02_jprb,6.5071e-02_jprb,&
 & 5.7664e-02_jprb,4.7187e-02_jprb,2.7522e-02_jprb/)  
kao( :, 2, 3, 6) = (/&
 & 3.9177e-02_jprb,6.3373e-02_jprb,7.2623e-02_jprb,7.5288e-02_jprb,7.3424e-02_jprb,6.8383e-02_jprb,&
 & 6.1089e-02_jprb,5.0369e-02_jprb,2.9594e-02_jprb/)  
kao( :, 3, 3, 6) = (/&
 & 4.2098e-02_jprb,6.7937e-02_jprb,7.7177e-02_jprb,7.9459e-02_jprb,7.7094e-02_jprb,7.1679e-02_jprb,&
 & 6.4440e-02_jprb,5.3598e-02_jprb,3.1800e-02_jprb/)  
kao( :, 4, 3, 6) = (/&
 & 4.5184e-02_jprb,7.2373e-02_jprb,8.1328e-02_jprb,8.3304e-02_jprb,8.0619e-02_jprb,7.5059e-02_jprb,&
 & 6.7785e-02_jprb,5.6837e-02_jprb,3.4061e-02_jprb/)  
kao( :, 5, 3, 6) = (/&
 & 4.8428e-02_jprb,7.6612e-02_jprb,8.5198e-02_jprb,8.6971e-02_jprb,8.4087e-02_jprb,7.8597e-02_jprb,&
 & 7.1152e-02_jprb,6.0069e-02_jprb,3.6300e-02_jprb/)  
kao( :, 1, 4, 6) = (/&
 & 3.0996e-02_jprb,5.0246e-02_jprb,5.7596e-02_jprb,5.9940e-02_jprb,5.8577e-02_jprb,5.4443e-02_jprb,&
 & 4.7987e-02_jprb,3.9247e-02_jprb,2.1796e-02_jprb/)  
kao( :, 2, 4, 6) = (/&
 & 3.3466e-02_jprb,5.4388e-02_jprb,6.1941e-02_jprb,6.3890e-02_jprb,6.2051e-02_jprb,5.7420e-02_jprb,&
 & 5.0954e-02_jprb,4.2026e-02_jprb,2.3521e-02_jprb/)  
kao( :, 3, 4, 6) = (/&
 & 3.6103e-02_jprb,5.8512e-02_jprb,6.5986e-02_jprb,6.7619e-02_jprb,6.5381e-02_jprb,6.0341e-02_jprb,&
 & 5.3887e-02_jprb,4.4806e-02_jprb,2.5354e-02_jprb/)  
kao( :, 4, 4, 6) = (/&
 & 3.8902e-02_jprb,6.2522e-02_jprb,6.9761e-02_jprb,7.1083e-02_jprb,6.8563e-02_jprb,6.3337e-02_jprb,&
 & 5.6817e-02_jprb,4.7569e-02_jprb,2.7230e-02_jprb/)  
kao( :, 5, 4, 6) = (/&
 & 4.1856e-02_jprb,6.6293e-02_jprb,7.3260e-02_jprb,7.4402e-02_jprb,7.1665e-02_jprb,6.6453e-02_jprb,&
 & 5.9783e-02_jprb,5.0307e-02_jprb,2.9093e-02_jprb/)  
kao( :, 1, 5, 6) = (/&
 & 2.6300e-02_jprb,4.2494e-02_jprb,4.8463e-02_jprb,5.0296e-02_jprb,4.9139e-02_jprb,4.5597e-02_jprb,&
 & 3.9984e-02_jprb,3.2427e-02_jprb,1.7285e-02_jprb/)  
kao( :, 2, 5, 6) = (/&
 & 2.8485e-02_jprb,4.6204e-02_jprb,5.2338e-02_jprb,5.3863e-02_jprb,5.2270e-02_jprb,4.8312e-02_jprb,&
 & 4.2548e-02_jprb,3.4804e-02_jprb,1.8719e-02_jprb/)  
kao( :, 3, 5, 6) = (/&
 & 3.0827e-02_jprb,4.9910e-02_jprb,5.5974e-02_jprb,5.7207e-02_jprb,5.5255e-02_jprb,5.0912e-02_jprb,&
 & 4.5100e-02_jprb,3.7174e-02_jprb,2.0228e-02_jprb/)  
kao( :, 4, 5, 6) = (/&
 & 3.3317e-02_jprb,5.3494e-02_jprb,5.9405e-02_jprb,6.0361e-02_jprb,5.8140e-02_jprb,5.3556e-02_jprb,&
 & 4.7658e-02_jprb,3.9537e-02_jprb,2.1785e-02_jprb/)  
kao( :, 5, 5, 6) = (/&
 & 3.5980e-02_jprb,5.6835e-02_jprb,6.2631e-02_jprb,6.3411e-02_jprb,6.1001e-02_jprb,5.6317e-02_jprb,&
 & 5.0255e-02_jprb,4.1909e-02_jprb,2.3351e-02_jprb/)  
kao( :, 1, 6, 6) = (/&
 & 2.2346e-02_jprb,3.5586e-02_jprb,4.0310e-02_jprb,4.1785e-02_jprb,4.0899e-02_jprb,3.7930e-02_jprb,&
 & 3.3177e-02_jprb,2.6660e-02_jprb,1.3671e-02_jprb/)  
kao( :, 2, 6, 6) = (/&
 & 2.4236e-02_jprb,3.8875e-02_jprb,4.3767e-02_jprb,4.4998e-02_jprb,4.3719e-02_jprb,4.0355e-02_jprb,&
 & 3.5414e-02_jprb,2.8669e-02_jprb,1.4853e-02_jprb/)  
kao( :, 3, 6, 6) = (/&
 & 2.6259e-02_jprb,4.2194e-02_jprb,4.7065e-02_jprb,4.8039e-02_jprb,4.6410e-02_jprb,4.2692e-02_jprb,&
 & 3.7647e-02_jprb,3.0658e-02_jprb,1.6097e-02_jprb/)  
kao( :, 4, 6, 6) = (/&
 & 2.8435e-02_jprb,4.5379e-02_jprb,5.0168e-02_jprb,5.0950e-02_jprb,4.9017e-02_jprb,4.5071e-02_jprb,&
 & 3.9870e-02_jprb,3.2675e-02_jprb,1.7389e-02_jprb/)  
kao( :, 5, 6, 6) = (/&
 & 3.0784e-02_jprb,4.8355e-02_jprb,5.3115e-02_jprb,5.3744e-02_jprb,5.1611e-02_jprb,4.7542e-02_jprb,&
 & 4.2135e-02_jprb,3.4713e-02_jprb,1.8719e-02_jprb/)  
kao( :, 1, 7, 6) = (/&
 & 1.9038e-02_jprb,2.9659e-02_jprb,3.3335e-02_jprb,3.4533e-02_jprb,3.3796e-02_jprb,3.1353e-02_jprb,&
 & 2.7369e-02_jprb,2.1858e-02_jprb,1.0821e-02_jprb/)  
kao( :, 2, 7, 6) = (/&
 & 2.0661e-02_jprb,3.2535e-02_jprb,3.6409e-02_jprb,3.7416e-02_jprb,3.6337e-02_jprb,3.3530e-02_jprb,&
 & 2.9317e-02_jprb,2.3570e-02_jprb,1.1782e-02_jprb/)  
kao( :, 3, 7, 6) = (/&
 & 2.2409e-02_jprb,3.5475e-02_jprb,3.9394e-02_jprb,4.0148e-02_jprb,3.8791e-02_jprb,3.5637e-02_jprb,&
 & 3.1269e-02_jprb,2.5254e-02_jprb,1.2818e-02_jprb/)  
kao( :, 4, 7, 6) = (/&
 & 2.4302e-02_jprb,3.8296e-02_jprb,4.2195e-02_jprb,4.2786e-02_jprb,4.1191e-02_jprb,3.7785e-02_jprb,&
 & 3.3232e-02_jprb,2.6957e-02_jprb,1.3893e-02_jprb/)  
kao( :, 5, 7, 6) = (/&
 & 2.6331e-02_jprb,4.0952e-02_jprb,4.4849e-02_jprb,4.5357e-02_jprb,4.3572e-02_jprb,4.0019e-02_jprb,&
 & 3.5226e-02_jprb,2.8694e-02_jprb,1.5017e-02_jprb/)  
kao( :, 1, 8, 6) = (/&
 & 1.6199e-02_jprb,2.4730e-02_jprb,2.7533e-02_jprb,2.8457e-02_jprb,2.7828e-02_jprb,2.5812e-02_jprb,&
 & 2.2538e-02_jprb,1.7879e-02_jprb,8.5690e-03_jprb/)  
kao( :, 2, 8, 6) = (/&
 & 1.7586e-02_jprb,2.7225e-02_jprb,3.0249e-02_jprb,3.1021e-02_jprb,3.0098e-02_jprb,2.7767e-02_jprb,&
 & 2.4248e-02_jprb,1.9357e-02_jprb,9.3582e-03_jprb/)  
kao( :, 3, 8, 6) = (/&
 & 1.9094e-02_jprb,2.9782e-02_jprb,3.2913e-02_jprb,3.3499e-02_jprb,3.2325e-02_jprb,2.9706e-02_jprb,&
 & 2.5968e-02_jprb,2.0796e-02_jprb,1.0214e-02_jprb/)  
kao( :, 4, 8, 6) = (/&
 & 2.0716e-02_jprb,3.2253e-02_jprb,3.5436e-02_jprb,3.5895e-02_jprb,3.4530e-02_jprb,3.1664e-02_jprb,&
 & 2.7699e-02_jprb,2.2256e-02_jprb,1.1116e-02_jprb/)  
kao( :, 5, 8, 6) = (/&
 & 2.2480e-02_jprb,3.4617e-02_jprb,3.7818e-02_jprb,3.8224e-02_jprb,3.6738e-02_jprb,3.3713e-02_jprb,&
 & 2.9501e-02_jprb,2.3740e-02_jprb,1.2059e-02_jprb/)  
kao( :, 1, 9, 6) = (/&
 & 1.3777e-02_jprb,2.0619e-02_jprb,2.2737e-02_jprb,2.3415e-02_jprb,2.2850e-02_jprb,2.1193e-02_jprb,&
 & 1.8507e-02_jprb,1.4598e-02_jprb,7.1490e-03_jprb/)  
kao( :, 2, 9, 6) = (/&
 & 1.4973e-02_jprb,2.2774e-02_jprb,2.5113e-02_jprb,2.5666e-02_jprb,2.4873e-02_jprb,2.2943e-02_jprb,&
 & 2.0009e-02_jprb,1.5897e-02_jprb,7.8590e-03_jprb/)  
kao( :, 3, 9, 6) = (/&
 & 1.6264e-02_jprb,2.4964e-02_jprb,2.7466e-02_jprb,2.7896e-02_jprb,2.6883e-02_jprb,2.4711e-02_jprb,&
 & 2.1541e-02_jprb,1.7155e-02_jprb,8.6415e-03_jprb/)  
kao( :, 4, 9, 6) = (/&
 & 1.7663e-02_jprb,2.7143e-02_jprb,2.9704e-02_jprb,3.0059e-02_jprb,2.8911e-02_jprb,2.6494e-02_jprb,&
 & 2.3105e-02_jprb,1.8422e-02_jprb,9.4633e-03_jprb/)  
kao( :, 5, 9, 6) = (/&
 & 1.9189e-02_jprb,2.9225e-02_jprb,3.1858e-02_jprb,3.2145e-02_jprb,3.0918e-02_jprb,2.8362e-02_jprb,&
 & 2.4736e-02_jprb,1.9714e-02_jprb,1.0309e-02_jprb/)  
kao( :, 1,10, 6) = (/&
 & 1.1829e-02_jprb,1.7391e-02_jprb,1.8971e-02_jprb,1.9425e-02_jprb,1.8925e-02_jprb,1.7526e-02_jprb,&
 & 1.5318e-02_jprb,1.2046e-02_jprb,7.9104e-03_jprb/)  
kao( :, 2,10, 6) = (/&
 & 1.2882e-02_jprb,1.9237e-02_jprb,2.1011e-02_jprb,2.1409e-02_jprb,2.0725e-02_jprb,1.9099e-02_jprb,&
 & 1.6657e-02_jprb,1.3189e-02_jprb,8.8513e-03_jprb/)  
kao( :, 3,10, 6) = (/&
 & 1.4005e-02_jprb,2.1109e-02_jprb,2.3070e-02_jprb,2.3396e-02_jprb,2.2541e-02_jprb,2.0715e-02_jprb,&
 & 1.8034e-02_jprb,1.4319e-02_jprb,9.8121e-03_jprb/)  
kao( :, 4,10, 6) = (/&
 & 1.5220e-02_jprb,2.2998e-02_jprb,2.5049e-02_jprb,2.5317e-02_jprb,2.4368e-02_jprb,2.2361e-02_jprb,&
 & 1.9453e-02_jprb,1.5444e-02_jprb,1.0807e-02_jprb/)  
kao( :, 5,10, 6) = (/&
 & 1.6552e-02_jprb,2.4838e-02_jprb,2.6967e-02_jprb,2.7211e-02_jprb,2.6179e-02_jprb,2.4058e-02_jprb,&
 & 2.0933e-02_jprb,1.6593e-02_jprb,1.1823e-02_jprb/)  
kao( :, 1,11, 6) = (/&
 & 1.0495e-02_jprb,1.5432e-02_jprb,1.6714e-02_jprb,1.6992e-02_jprb,1.6455e-02_jprb,1.5168e-02_jprb,&
 & 1.3224e-02_jprb,1.0391e-02_jprb,8.1978e-03_jprb/)  
kao( :, 2,11, 6) = (/&
 & 1.1451e-02_jprb,1.7054e-02_jprb,1.8505e-02_jprb,1.8735e-02_jprb,1.8057e-02_jprb,1.6595e-02_jprb,&
 & 1.4441e-02_jprb,1.1397e-02_jprb,9.2592e-03_jprb/)  
kao( :, 3,11, 6) = (/&
 & 1.2482e-02_jprb,1.8697e-02_jprb,2.0258e-02_jprb,2.0450e-02_jprb,1.9674e-02_jprb,1.8068e-02_jprb,&
 & 1.5698e-02_jprb,1.2409e-02_jprb,1.0347e-02_jprb/)  
kao( :, 4,11, 6) = (/&
 & 1.3612e-02_jprb,2.0341e-02_jprb,2.1972e-02_jprb,2.2138e-02_jprb,2.1292e-02_jprb,1.9560e-02_jprb,&
 & 1.7011e-02_jprb,1.3437e-02_jprb,1.1444e-02_jprb/)  
kao( :, 5,11, 6) = (/&
 & 1.4838e-02_jprb,2.1977e-02_jprb,2.3658e-02_jprb,2.3819e-02_jprb,2.2926e-02_jprb,2.1098e-02_jprb,&
 & 1.8364e-02_jprb,1.4494e-02_jprb,1.2537e-02_jprb/)  

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


SUBROUTINE part5

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


kao( :, 1,12, 6) = (/&
 & 9.1433e-03_jprb,1.3500e-02_jprb,1.4586e-02_jprb,1.4769e-02_jprb,1.4241e-02_jprb,1.3083e-02_jprb,&
 & 1.1367e-02_jprb,8.9090e-03_jprb,7.5780e-03_jprb/)  
kao( :, 2,12, 6) = (/&
 & 1.0001e-02_jprb,1.4910e-02_jprb,1.6125e-02_jprb,1.6273e-02_jprb,1.5652e-02_jprb,1.4357e-02_jprb,&
 & 1.2453e-02_jprb,9.7929e-03_jprb,8.5785e-03_jprb/)  
kao( :, 3,12, 6) = (/&
 & 1.0949e-02_jprb,1.6356e-02_jprb,1.7635e-02_jprb,1.7750e-02_jprb,1.7058e-02_jprb,1.5652e-02_jprb,&
 & 1.3578e-02_jprb,1.0697e-02_jprb,9.5948e-03_jprb/)  
kao( :, 4,12, 6) = (/&
 & 1.1985e-02_jprb,1.7801e-02_jprb,1.9128e-02_jprb,1.9222e-02_jprb,1.8476e-02_jprb,1.6972e-02_jprb,&
 & 1.4745e-02_jprb,1.1628e-02_jprb,1.0600e-02_jprb/)  
kao( :, 5,12, 6) = (/&
 & 1.3096e-02_jprb,1.9267e-02_jprb,2.0626e-02_jprb,2.0713e-02_jprb,1.9923e-02_jprb,1.8336e-02_jprb,&
 & 1.5960e-02_jprb,1.2572e-02_jprb,1.1582e-02_jprb/)  
kao( :, 1,13, 6) = (/&
 & 7.8612e-03_jprb,1.1670e-02_jprb,1.2609e-02_jprb,1.2723e-02_jprb,1.2259e-02_jprb,1.1258e-02_jprb,&
 & 9.7650e-03_jprb,7.6525e-03_jprb,6.5421e-03_jprb/)  
kao( :, 2,13, 6) = (/&
 & 8.6369e-03_jprb,1.2899e-02_jprb,1.3916e-02_jprb,1.4009e-02_jprb,1.3482e-02_jprb,1.2381e-02_jprb,&
 & 1.0732e-02_jprb,8.4378e-03_jprb,7.4103e-03_jprb/)  
kao( :, 3,13, 6) = (/&
 & 9.4942e-03_jprb,1.4163e-02_jprb,1.5223e-02_jprb,1.5298e-02_jprb,1.4708e-02_jprb,1.3515e-02_jprb,&
 & 1.1735e-02_jprb,9.2523e-03_jprb,8.2790e-03_jprb/)  
kao( :, 4,13, 6) = (/&
 & 1.0421e-02_jprb,1.5442e-02_jprb,1.6542e-02_jprb,1.6603e-02_jprb,1.5959e-02_jprb,1.4684e-02_jprb,&
 & 1.2779e-02_jprb,1.0090e-02_jprb,9.1372e-03_jprb/)  
kao( :, 5,13, 6) = (/&
 & 1.1403e-02_jprb,1.6752e-02_jprb,1.7882e-02_jprb,1.7947e-02_jprb,1.7255e-02_jprb,1.5898e-02_jprb,&
 & 1.3874e-02_jprb,1.0931e-02_jprb,9.9832e-03_jprb/)  
kao( :, 1, 1, 7) = (/&
 & 1.6154e-01_jprb,1.9464e-01_jprb,1.9968e-01_jprb,1.9566e-01_jprb,1.8810e-01_jprb,1.7612e-01_jprb,&
 & 1.6037e-01_jprb,1.3871e-01_jprb,9.9439e-02_jprb/)  
kao( :, 2, 1, 7) = (/&
 & 1.6718e-01_jprb,2.0083e-01_jprb,2.0683e-01_jprb,2.0477e-01_jprb,1.9764e-01_jprb,1.8624e-01_jprb,&
 & 1.6994e-01_jprb,1.4688e-01_jprb,1.0691e-01_jprb/)  
kao( :, 3, 1, 7) = (/&
 & 1.7242e-01_jprb,2.0656e-01_jprb,2.1371e-01_jprb,2.1366e-01_jprb,2.0783e-01_jprb,1.9677e-01_jprb,&
 & 1.7978e-01_jprb,1.5487e-01_jprb,1.1430e-01_jprb/)  
kao( :, 4, 1, 7) = (/&
 & 1.7742e-01_jprb,2.1213e-01_jprb,2.2064e-01_jprb,2.2231e-01_jprb,2.1832e-01_jprb,2.0746e-01_jprb,&
 & 1.8983e-01_jprb,1.6294e-01_jprb,1.2155e-01_jprb/)  
kao( :, 5, 1, 7) = (/&
 & 1.8214e-01_jprb,2.1767e-01_jprb,2.2778e-01_jprb,2.3090e-01_jprb,2.2852e-01_jprb,2.1832e-01_jprb,&
 & 2.0005e-01_jprb,1.7084e-01_jprb,1.2867e-01_jprb/)  
kao( :, 1, 2, 7) = (/&
 & 1.4145e-01_jprb,1.6994e-01_jprb,1.7429e-01_jprb,1.7183e-01_jprb,1.6506e-01_jprb,1.5419e-01_jprb,&
 & 1.3930e-01_jprb,1.2012e-01_jprb,8.1602e-02_jprb/)  
kao( :, 2, 2, 7) = (/&
 & 1.4643e-01_jprb,1.7555e-01_jprb,1.8089e-01_jprb,1.8028e-01_jprb,1.7424e-01_jprb,1.6361e-01_jprb,&
 & 1.4828e-01_jprb,1.2787e-01_jprb,8.7984e-02_jprb/)  
kao( :, 3, 2, 7) = (/&
 & 1.5117e-01_jprb,1.8085e-01_jprb,1.8746e-01_jprb,1.8838e-01_jprb,1.8361e-01_jprb,1.7334e-01_jprb,&
 & 1.5765e-01_jprb,1.3543e-01_jprb,9.4264e-02_jprb/)  
kao( :, 4, 2, 7) = (/&
 & 1.5573e-01_jprb,1.8623e-01_jprb,1.9419e-01_jprb,1.9646e-01_jprb,1.9291e-01_jprb,1.8328e-01_jprb,&
 & 1.6725e-01_jprb,1.4294e-01_jprb,1.0040e-01_jprb/)  
kao( :, 5, 2, 7) = (/&
 & 1.6013e-01_jprb,1.9161e-01_jprb,2.0111e-01_jprb,2.0451e-01_jprb,2.0197e-01_jprb,1.9329e-01_jprb,&
 & 1.7696e-01_jprb,1.5031e-01_jprb,1.0647e-01_jprb/)  
kao( :, 1, 3, 7) = (/&
 & 1.2309e-01_jprb,1.4704e-01_jprb,1.5024e-01_jprb,1.4812e-01_jprb,1.4219e-01_jprb,1.3226e-01_jprb,&
 & 1.1881e-01_jprb,1.0141e-01_jprb,6.5459e-02_jprb/)  
kao( :, 2, 3, 7) = (/&
 & 1.2767e-01_jprb,1.5222e-01_jprb,1.5637e-01_jprb,1.5568e-01_jprb,1.5055e-01_jprb,1.4090e-01_jprb,&
 & 1.2701e-01_jprb,1.0859e-01_jprb,7.0881e-02_jprb/)  
kao( :, 3, 3, 7) = (/&
 & 1.3203e-01_jprb,1.5727e-01_jprb,1.6255e-01_jprb,1.6317e-01_jprb,1.5886e-01_jprb,1.4989e-01_jprb,&
 & 1.3559e-01_jprb,1.1576e-01_jprb,7.6083e-02_jprb/)  
kao( :, 4, 3, 7) = (/&
 & 1.3635e-01_jprb,1.6234e-01_jprb,1.6898e-01_jprb,1.7060e-01_jprb,1.6716e-01_jprb,1.5892e-01_jprb,&
 & 1.4437e-01_jprb,1.2295e-01_jprb,8.1201e-02_jprb/)  
kao( :, 5, 3, 7) = (/&
 & 1.4056e-01_jprb,1.6755e-01_jprb,1.7569e-01_jprb,1.7797e-01_jprb,1.7536e-01_jprb,1.6774e-01_jprb,&
 & 1.5329e-01_jprb,1.3002e-01_jprb,8.6370e-02_jprb/)  
kao( :, 1, 4, 7) = (/&
 & 1.0694e-01_jprb,1.2727e-01_jprb,1.2915e-01_jprb,1.2666e-01_jprb,1.2117e-01_jprb,1.1228e-01_jprb,&
 & 1.0026e-01_jprb,8.4627e-02_jprb,5.2347e-02_jprb/)  
kao( :, 2, 4, 7) = (/&
 & 1.1128e-01_jprb,1.3208e-01_jprb,1.3481e-01_jprb,1.3351e-01_jprb,1.2855e-01_jprb,1.2006e-01_jprb,&
 & 1.0771e-01_jprb,9.1021e-02_jprb,5.6953e-02_jprb/)  
kao( :, 3, 4, 7) = (/&
 & 1.1540e-01_jprb,1.3680e-01_jprb,1.4057e-01_jprb,1.4029e-01_jprb,1.3591e-01_jprb,1.2809e-01_jprb,&
 & 1.1544e-01_jprb,9.7575e-02_jprb,6.1322e-02_jprb/)  
kao( :, 4, 4, 7) = (/&
 & 1.1945e-01_jprb,1.4164e-01_jprb,1.4662e-01_jprb,1.4706e-01_jprb,1.4340e-01_jprb,1.3603e-01_jprb,&
 & 1.2336e-01_jprb,1.0424e-01_jprb,6.5662e-02_jprb/)  
kao( :, 5, 4, 7) = (/&
 & 1.2340e-01_jprb,1.4675e-01_jprb,1.5288e-01_jprb,1.5380e-01_jprb,1.5079e-01_jprb,1.4378e-01_jprb,&
 & 1.3119e-01_jprb,1.1079e-01_jprb,7.0042e-02_jprb/)  
kao( :, 1, 5, 7) = (/&
 & 9.2366e-02_jprb,1.1024e-01_jprb,1.1122e-01_jprb,1.0839e-01_jprb,1.0297e-01_jprb,9.4813e-02_jprb,&
 & 8.4116e-02_jprb,7.0267e-02_jprb,4.1776e-02_jprb/)  
kao( :, 2, 5, 7) = (/&
 & 9.6355e-02_jprb,1.1479e-01_jprb,1.1644e-01_jprb,1.1449e-01_jprb,1.0946e-01_jprb,1.0165e-01_jprb,&
 & 9.0750e-02_jprb,7.5967e-02_jprb,4.5678e-02_jprb/)  
kao( :, 3, 5, 7) = (/&
 & 1.0024e-01_jprb,1.1923e-01_jprb,1.2179e-01_jprb,1.2053e-01_jprb,1.1597e-01_jprb,1.0868e-01_jprb,&
 & 9.7605e-02_jprb,8.1879e-02_jprb,4.9420e-02_jprb/)  
kao( :, 4, 5, 7) = (/&
 & 1.0406e-01_jprb,1.2386e-01_jprb,1.2729e-01_jprb,1.2663e-01_jprb,1.2262e-01_jprb,1.1560e-01_jprb,&
 & 1.0455e-01_jprb,8.7805e-02_jprb,5.3104e-02_jprb/)  
kao( :, 5, 5, 7) = (/&
 & 1.0784e-01_jprb,1.2877e-01_jprb,1.3298e-01_jprb,1.3282e-01_jprb,1.2921e-01_jprb,1.2238e-01_jprb,&
 & 1.1132e-01_jprb,9.3754e-02_jprb,5.6821e-02_jprb/)  
kao( :, 1, 6, 7) = (/&
 & 7.9024e-02_jprb,9.4822e-02_jprb,9.5344e-02_jprb,9.2551e-02_jprb,8.7276e-02_jprb,7.9771e-02_jprb,&
 & 7.0098e-02_jprb,5.7834e-02_jprb,3.3015e-02_jprb/)  
kao( :, 2, 6, 7) = (/&
 & 8.2738e-02_jprb,9.8989e-02_jprb,1.0012e-01_jprb,9.7961e-02_jprb,9.2877e-02_jprb,8.5652e-02_jprb,&
 & 7.5923e-02_jprb,6.2877e-02_jprb,3.6314e-02_jprb/)  
kao( :, 3, 6, 7) = (/&
 & 8.6408e-02_jprb,1.0314e-01_jprb,1.0499e-01_jprb,1.0331e-01_jprb,9.8576e-02_jprb,9.1675e-02_jprb,&
 & 8.1907e-02_jprb,6.8103e-02_jprb,3.9534e-02_jprb/)  
kao( :, 4, 6, 7) = (/&
 & 9.0076e-02_jprb,1.0755e-01_jprb,1.1005e-01_jprb,1.0872e-01_jprb,1.0446e-01_jprb,9.7640e-02_jprb,&
 & 8.7824e-02_jprb,7.3333e-02_jprb,4.2688e-02_jprb/)  
kao( :, 5, 6, 7) = (/&
 & 9.3695e-02_jprb,1.1225e-01_jprb,1.1524e-01_jprb,1.1429e-01_jprb,1.1026e-01_jprb,1.0360e-01_jprb,&
 & 9.3605e-02_jprb,7.8587e-02_jprb,4.5859e-02_jprb/)  
kao( :, 1, 7, 7) = (/&
 & 6.7188e-02_jprb,8.0973e-02_jprb,8.1282e-02_jprb,7.8604e-02_jprb,7.3758e-02_jprb,6.7095e-02_jprb,&
 & 5.8393e-02_jprb,4.7360e-02_jprb,2.5942e-02_jprb/)  
kao( :, 2, 7, 7) = (/&
 & 7.0634e-02_jprb,8.4835e-02_jprb,8.5597e-02_jprb,8.3380e-02_jprb,7.8711e-02_jprb,7.2137e-02_jprb,&
 & 6.3418e-02_jprb,5.1732e-02_jprb,2.8746e-02_jprb/)  
kao( :, 3, 7, 7) = (/&
 & 7.4125e-02_jprb,8.8733e-02_jprb,9.0006e-02_jprb,8.8141e-02_jprb,8.3708e-02_jprb,7.7276e-02_jprb,&
 & 6.8516e-02_jprb,5.6288e-02_jprb,3.1491e-02_jprb/)  
kao( :, 4, 7, 7) = (/&
 & 7.7619e-02_jprb,9.2938e-02_jprb,9.4622e-02_jprb,9.3008e-02_jprb,8.8787e-02_jprb,8.2441e-02_jprb,&
 & 7.3541e-02_jprb,6.0853e-02_jprb,3.4197e-02_jprb/)  
kao( :, 5, 7, 7) = (/&
 & 8.1130e-02_jprb,9.7412e-02_jprb,9.9437e-02_jprb,9.7963e-02_jprb,9.3908e-02_jprb,8.7589e-02_jprb,&
 & 7.8507e-02_jprb,6.5406e-02_jprb,3.6876e-02_jprb/)  
kao( :, 1, 8, 7) = (/&
 & 5.7087e-02_jprb,6.8982e-02_jprb,6.9219e-02_jprb,6.6662e-02_jprb,6.2257e-02_jprb,5.6449e-02_jprb,&
 & 4.8696e-02_jprb,3.8705e-02_jprb,2.0368e-02_jprb/)  
kao( :, 2, 8, 7) = (/&
 & 6.0267e-02_jprb,7.2661e-02_jprb,7.3164e-02_jprb,7.0903e-02_jprb,6.6680e-02_jprb,6.0863e-02_jprb,&
 & 5.2991e-02_jprb,4.2493e-02_jprb,2.2764e-02_jprb/)  
kao( :, 3, 8, 7) = (/&
 & 6.3568e-02_jprb,7.6402e-02_jprb,7.7191e-02_jprb,7.5170e-02_jprb,7.1124e-02_jprb,6.5262e-02_jprb,&
 & 5.7325e-02_jprb,4.6424e-02_jprb,2.5106e-02_jprb/)  
kao( :, 4, 8, 7) = (/&
 & 6.6952e-02_jprb,8.0431e-02_jprb,8.1433e-02_jprb,7.9580e-02_jprb,7.5603e-02_jprb,6.9713e-02_jprb,&
 & 6.1612e-02_jprb,5.0326e-02_jprb,2.7428e-02_jprb/)  
kao( :, 5, 8, 7) = (/&
 & 7.0374e-02_jprb,8.4700e-02_jprb,8.5936e-02_jprb,8.4079e-02_jprb,8.0117e-02_jprb,7.4154e-02_jprb,&
 & 6.5876e-02_jprb,5.4195e-02_jprb,2.9716e-02_jprb/)  
kao( :, 1, 9, 7) = (/&
 & 4.8541e-02_jprb,5.8698e-02_jprb,5.8862e-02_jprb,5.6589e-02_jprb,5.2616e-02_jprb,4.7478e-02_jprb,&
 & 4.0621e-02_jprb,3.1660e-02_jprb,1.6311e-02_jprb/)  
kao( :, 2, 9, 7) = (/&
 & 5.1470e-02_jprb,6.2152e-02_jprb,6.2537e-02_jprb,6.0429e-02_jprb,5.6605e-02_jprb,5.1332e-02_jprb,&
 & 4.4320e-02_jprb,3.4891e-02_jprb,1.8357e-02_jprb/)  
kao( :, 3, 9, 7) = (/&
 & 5.4592e-02_jprb,6.5779e-02_jprb,6.6299e-02_jprb,6.4328e-02_jprb,6.0595e-02_jprb,5.5195e-02_jprb,&
 & 4.8026e-02_jprb,3.8250e-02_jprb,2.0370e-02_jprb/)  
kao( :, 4, 9, 7) = (/&
 & 5.7857e-02_jprb,6.9626e-02_jprb,7.0279e-02_jprb,6.8395e-02_jprb,6.4585e-02_jprb,5.9114e-02_jprb,&
 & 5.1701e-02_jprb,4.1583e-02_jprb,2.2355e-02_jprb/)  
kao( :, 5, 9, 7) = (/&
 & 6.1151e-02_jprb,7.3773e-02_jprb,7.4523e-02_jprb,7.2563e-02_jprb,6.8640e-02_jprb,6.3021e-02_jprb,&
 & 5.5368e-02_jprb,4.4866e-02_jprb,2.4319e-02_jprb/)  
kao( :, 1,10, 7) = (/&
 & 4.1703e-02_jprb,5.0397e-02_jprb,5.0498e-02_jprb,4.8532e-02_jprb,4.5038e-02_jprb,4.0454e-02_jprb,&
 & 3.4353e-02_jprb,2.6239e-02_jprb,1.6946e-02_jprb/)  
kao( :, 2,10, 7) = (/&
 & 4.4435e-02_jprb,5.3723e-02_jprb,5.3968e-02_jprb,5.2070e-02_jprb,4.8666e-02_jprb,4.3928e-02_jprb,&
 & 3.7574e-02_jprb,2.9025e-02_jprb,1.9214e-02_jprb/)  
kao( :, 3,10, 7) = (/&
 & 4.7412e-02_jprb,5.7277e-02_jprb,5.7540e-02_jprb,5.5713e-02_jprb,5.2331e-02_jprb,4.7382e-02_jprb,&
 & 4.0823e-02_jprb,3.1871e-02_jprb,2.1538e-02_jprb/)  
kao( :, 4,10, 7) = (/&
 & 5.0574e-02_jprb,6.1042e-02_jprb,6.1373e-02_jprb,5.9574e-02_jprb,5.6031e-02_jprb,5.0898e-02_jprb,&
 & 4.4058e-02_jprb,3.4717e-02_jprb,2.3877e-02_jprb/)  
kao( :, 5,10, 7) = (/&
 & 5.3746e-02_jprb,6.5044e-02_jprb,6.5451e-02_jprb,6.3520e-02_jprb,5.9778e-02_jprb,5.4461e-02_jprb,&
 & 4.7278e-02_jprb,3.7547e-02_jprb,2.6231e-02_jprb/)  
kao( :, 1,11, 7) = (/&
 & 3.7231e-02_jprb,4.4782e-02_jprb,4.4834e-02_jprb,4.3110e-02_jprb,4.0069e-02_jprb,3.5931e-02_jprb,&
 & 3.0502e-02_jprb,2.3057e-02_jprb,1.8284e-02_jprb/)  
kao( :, 2,11, 7) = (/&
 & 3.9875e-02_jprb,4.8062e-02_jprb,4.8155e-02_jprb,4.6465e-02_jprb,4.3416e-02_jprb,3.9078e-02_jprb,&
 & 3.3371e-02_jprb,2.5491e-02_jprb,2.0825e-02_jprb/)  
kao( :, 3,11, 7) = (/&
 & 4.2772e-02_jprb,5.1583e-02_jprb,5.1719e-02_jprb,5.0024e-02_jprb,4.6821e-02_jprb,4.2262e-02_jprb,&
 & 3.6260e-02_jprb,2.7962e-02_jprb,2.3421e-02_jprb/)  
kao( :, 4,11, 7) = (/&
 & 4.5744e-02_jprb,5.5320e-02_jprb,5.5524e-02_jprb,5.3716e-02_jprb,5.0328e-02_jprb,4.5568e-02_jprb,&
 & 3.9152e-02_jprb,3.0434e-02_jprb,2.6081e-02_jprb/)  
kao( :, 5,11, 7) = (/&
 & 4.8771e-02_jprb,5.9196e-02_jprb,5.9515e-02_jprb,5.7526e-02_jprb,5.3932e-02_jprb,4.8905e-02_jprb,&
 & 4.2062e-02_jprb,3.2920e-02_jprb,2.8799e-02_jprb/)  
kao( :, 1,12, 7) = (/&
 & 3.3165e-02_jprb,3.9692e-02_jprb,3.9599e-02_jprb,3.8024e-02_jprb,3.5310e-02_jprb,3.1588e-02_jprb,&
 & 2.6724e-02_jprb,2.0140e-02_jprb,1.7962e-02_jprb/)  
kao( :, 2,12, 7) = (/&
 & 3.5669e-02_jprb,4.2809e-02_jprb,4.2746e-02_jprb,4.1180e-02_jprb,3.8355e-02_jprb,3.4405e-02_jprb,&
 & 2.9261e-02_jprb,2.2261e-02_jprb,2.0601e-02_jprb/)  
kao( :, 3,12, 7) = (/&
 & 3.8321e-02_jprb,4.6119e-02_jprb,4.6151e-02_jprb,4.4514e-02_jprb,4.1510e-02_jprb,3.7321e-02_jprb,&
 & 3.1841e-02_jprb,2.4389e-02_jprb,2.3308e-02_jprb/)  
kao( :, 4,12, 7) = (/&
 & 4.1022e-02_jprb,4.9612e-02_jprb,4.9764e-02_jprb,4.7979e-02_jprb,4.4755e-02_jprb,4.0343e-02_jprb,&
 & 3.4469e-02_jprb,2.6528e-02_jprb,2.6037e-02_jprb/)  
kao( :, 5,12, 7) = (/&
 & 4.3787e-02_jprb,5.3202e-02_jprb,5.3413e-02_jprb,5.1511e-02_jprb,4.8094e-02_jprb,4.3379e-02_jprb,&
 & 3.7123e-02_jprb,2.8712e-02_jprb,2.8765e-02_jprb/)  
kao( :, 1,13, 7) = (/&
 & 2.9468e-02_jprb,3.5299e-02_jprb,3.5147e-02_jprb,3.3716e-02_jprb,3.1258e-02_jprb,2.7857e-02_jprb,&
 & 2.3479e-02_jprb,1.7565e-02_jprb,1.6401e-02_jprb/)  
kao( :, 2,13, 7) = (/&
 & 3.1822e-02_jprb,3.8242e-02_jprb,3.8151e-02_jprb,3.6698e-02_jprb,3.4080e-02_jprb,3.0460e-02_jprb,&
 & 2.5743e-02_jprb,1.9422e-02_jprb,1.8869e-02_jprb/)  
kao( :, 3,13, 7) = (/&
 & 3.4255e-02_jprb,4.1360e-02_jprb,4.1371e-02_jprb,3.9795e-02_jprb,3.7027e-02_jprb,3.3168e-02_jprb,&
 & 2.8068e-02_jprb,2.1290e-02_jprb,2.1356e-02_jprb/)  
kao( :, 4,13, 7) = (/&
 & 3.6724e-02_jprb,4.4593e-02_jprb,4.4667e-02_jprb,4.2990e-02_jprb,4.0057e-02_jprb,3.5909e-02_jprb,&
 & 3.0433e-02_jprb,2.3190e-02_jprb,2.3849e-02_jprb/)  
kao( :, 5,13, 7) = (/&
 & 3.9283e-02_jprb,4.7884e-02_jprb,4.8024e-02_jprb,4.6223e-02_jprb,4.3087e-02_jprb,3.8671e-02_jprb,&
 & 3.2860e-02_jprb,2.5142e-02_jprb,2.6303e-02_jprb/)  
kao( :, 1, 1, 8) = (/&
 & 4.0322e-01_jprb,4.2884e-01_jprb,4.4287e-01_jprb,4.4611e-01_jprb,4.3402e-01_jprb,4.1077e-01_jprb,&
 & 3.7521e-01_jprb,3.2697e-01_jprb,2.6830e-01_jprb/)  
kao( :, 2, 1, 8) = (/&
 & 4.1659e-01_jprb,4.4635e-01_jprb,4.6251e-01_jprb,4.6551e-01_jprb,4.5392e-01_jprb,4.3080e-01_jprb,&
 & 3.9654e-01_jprb,3.4859e-01_jprb,2.8992e-01_jprb/)  
kao( :, 3, 1, 8) = (/&
 & 4.3066e-01_jprb,4.6487e-01_jprb,4.8341e-01_jprb,4.8533e-01_jprb,4.7318e-01_jprb,4.5018e-01_jprb,&
 & 4.1684e-01_jprb,3.6978e-01_jprb,3.1151e-01_jprb/)  
kao( :, 4, 1, 8) = (/&
 & 4.4540e-01_jprb,4.8420e-01_jprb,5.0502e-01_jprb,5.0600e-01_jprb,4.9161e-01_jprb,4.6895e-01_jprb,&
 & 4.3612e-01_jprb,3.9090e-01_jprb,3.3327e-01_jprb/)  
kao( :, 5, 1, 8) = (/&
 & 4.6087e-01_jprb,5.0391e-01_jprb,5.2680e-01_jprb,5.2675e-01_jprb,5.1014e-01_jprb,4.8707e-01_jprb,&
 & 4.5479e-01_jprb,4.1126e-01_jprb,3.5494e-01_jprb/)  
kao( :, 1, 2, 8) = (/&
 & 3.6116e-01_jprb,3.9180e-01_jprb,4.0630e-01_jprb,4.0741e-01_jprb,3.9710e-01_jprb,3.7545e-01_jprb,&
 & 3.4074e-01_jprb,2.9225e-01_jprb,2.2503e-01_jprb/)  
kao( :, 2, 2, 8) = (/&
 & 3.7429e-01_jprb,4.0933e-01_jprb,4.2583e-01_jprb,4.2659e-01_jprb,4.1646e-01_jprb,3.9447e-01_jprb,&
 & 3.6022e-01_jprb,3.1183e-01_jprb,2.4425e-01_jprb/)  
kao( :, 3, 2, 8) = (/&
 & 3.8833e-01_jprb,4.2821e-01_jprb,4.4642e-01_jprb,4.4678e-01_jprb,4.3567e-01_jprb,4.1270e-01_jprb,&
 & 3.7849e-01_jprb,3.3160e-01_jprb,2.6352e-01_jprb/)  
kao( :, 4, 2, 8) = (/&
 & 4.0301e-01_jprb,4.4802e-01_jprb,4.6770e-01_jprb,4.6760e-01_jprb,4.5474e-01_jprb,4.3035e-01_jprb,&
 & 3.9631e-01_jprb,3.5077e-01_jprb,2.8292e-01_jprb/)  
kao( :, 5, 2, 8) = (/&
 & 4.1749e-01_jprb,4.6796e-01_jprb,4.8938e-01_jprb,4.8856e-01_jprb,4.7348e-01_jprb,4.4790e-01_jprb,&
 & 4.1404e-01_jprb,3.6908e-01_jprb,3.0219e-01_jprb/)  
kao( :, 1, 3, 8) = (/&
 & 3.1836e-01_jprb,3.5137e-01_jprb,3.6460e-01_jprb,3.6422e-01_jprb,3.5477e-01_jprb,3.3593e-01_jprb,&
 & 3.0362e-01_jprb,2.5584e-01_jprb,1.8328e-01_jprb/)  
kao( :, 2, 3, 8) = (/&
 & 3.3096e-01_jprb,3.6850e-01_jprb,3.8310e-01_jprb,3.8300e-01_jprb,3.7372e-01_jprb,3.5449e-01_jprb,&
 & 3.2124e-01_jprb,2.7389e-01_jprb,2.0014e-01_jprb/)  
kao( :, 3, 3, 8) = (/&
 & 3.4458e-01_jprb,3.8711e-01_jprb,4.0276e-01_jprb,4.0262e-01_jprb,3.9285e-01_jprb,3.7244e-01_jprb,&
 & 3.3829e-01_jprb,2.9150e-01_jprb,2.1726e-01_jprb/)  
kao( :, 4, 3, 8) = (/&
 & 3.5799e-01_jprb,4.0642e-01_jprb,4.2324e-01_jprb,4.2311e-01_jprb,4.1204e-01_jprb,3.8967e-01_jprb,&
 & 3.5509e-01_jprb,3.0840e-01_jprb,2.3441e-01_jprb/)  
kao( :, 5, 3, 8) = (/&
 & 3.7101e-01_jprb,4.2557e-01_jprb,4.4433e-01_jprb,4.4402e-01_jprb,4.3131e-01_jprb,4.0719e-01_jprb,&
 & 3.7164e-01_jprb,3.2487e-01_jprb,2.5132e-01_jprb/)  
kao( :, 1, 4, 8) = (/&
 & 2.7843e-01_jprb,3.1174e-01_jprb,3.2299e-01_jprb,3.2159e-01_jprb,3.1254e-01_jprb,2.9513e-01_jprb,&
 & 2.6711e-01_jprb,2.2161e-01_jprb,1.4841e-01_jprb/)  
kao( :, 2, 4, 8) = (/&
 & 2.9013e-01_jprb,3.2832e-01_jprb,3.4033e-01_jprb,3.3944e-01_jprb,3.3063e-01_jprb,3.1287e-01_jprb,&
 & 2.8384e-01_jprb,2.3810e-01_jprb,1.6312e-01_jprb/)  
kao( :, 3, 4, 8) = (/&
 & 3.0268e-01_jprb,3.4605e-01_jprb,3.5891e-01_jprb,3.5819e-01_jprb,3.4915e-01_jprb,3.3041e-01_jprb,&
 & 2.9986e-01_jprb,2.5399e-01_jprb,1.7819e-01_jprb/)  
kao( :, 4, 4, 8) = (/&
 & 3.1479e-01_jprb,3.6429e-01_jprb,3.7832e-01_jprb,3.7789e-01_jprb,3.6791e-01_jprb,3.4794e-01_jprb,&
 & 3.1552e-01_jprb,2.6914e-01_jprb,1.9313e-01_jprb/)  
kao( :, 5, 4, 8) = (/&
 & 3.2665e-01_jprb,3.8187e-01_jprb,3.9828e-01_jprb,3.9805e-01_jprb,3.8707e-01_jprb,3.6554e-01_jprb,&
 & 3.3111e-01_jprb,2.8418e-01_jprb,2.0797e-01_jprb/)  
kao( :, 1, 5, 8) = (/&
 & 2.4307e-01_jprb,2.7459e-01_jprb,2.8334e-01_jprb,2.8148e-01_jprb,2.7250e-01_jprb,2.5608e-01_jprb,&
 & 2.3119e-01_jprb,1.9095e-01_jprb,1.1978e-01_jprb/)  
kao( :, 2, 5, 8) = (/&
 & 2.5412e-01_jprb,2.9006e-01_jprb,2.9964e-01_jprb,2.9834e-01_jprb,2.8946e-01_jprb,2.7270e-01_jprb,&
 & 2.4720e-01_jprb,2.0586e-01_jprb,1.3250e-01_jprb/)  

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


SUBROUTINE part6

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


kao( :, 3, 5, 8) = (/&
 & 2.6544e-01_jprb,3.0651e-01_jprb,3.1718e-01_jprb,3.1602e-01_jprb,3.0707e-01_jprb,2.8950e-01_jprb,&
 & 2.6270e-01_jprb,2.1996e-01_jprb,1.4559e-01_jprb/)  
kao( :, 4, 5, 8) = (/&
 & 2.7620e-01_jprb,3.2315e-01_jprb,3.3545e-01_jprb,3.3465e-01_jprb,3.2491e-01_jprb,3.0648e-01_jprb,&
 & 2.7754e-01_jprb,2.3379e-01_jprb,1.5847e-01_jprb/)  
kao( :, 5, 5, 8) = (/&
 & 2.8682e-01_jprb,3.3927e-01_jprb,3.5367e-01_jprb,3.5367e-01_jprb,3.4331e-01_jprb,3.2364e-01_jprb,&
 & 2.9241e-01_jprb,2.4747e-01_jprb,1.7133e-01_jprb/)  
kao( :, 1, 6, 8) = (/&
 & 2.1177e-01_jprb,2.4018e-01_jprb,2.4637e-01_jprb,2.4351e-01_jprb,2.3439e-01_jprb,2.1931e-01_jprb,&
 & 1.9713e-01_jprb,1.6297e-01_jprb,9.5914e-02_jprb/)  
kao( :, 2, 6, 8) = (/&
 & 2.2169e-01_jprb,2.5443e-01_jprb,2.6139e-01_jprb,2.5908e-01_jprb,2.5022e-01_jprb,2.3482e-01_jprb,&
 & 2.1183e-01_jprb,1.7638e-01_jprb,1.0688e-01_jprb/)  
kao( :, 3, 6, 8) = (/&
 & 2.3172e-01_jprb,2.6938e-01_jprb,2.7763e-01_jprb,2.7552e-01_jprb,2.6672e-01_jprb,2.5051e-01_jprb,&
 & 2.2626e-01_jprb,1.8899e-01_jprb,1.1795e-01_jprb/)  
kao( :, 4, 6, 8) = (/&
 & 2.4156e-01_jprb,2.8413e-01_jprb,2.9429e-01_jprb,2.9295e-01_jprb,2.8356e-01_jprb,2.6650e-01_jprb,&
 & 2.4057e-01_jprb,2.0157e-01_jprb,1.2896e-01_jprb/)  
kao( :, 5, 6, 8) = (/&
 & 2.5124e-01_jprb,2.9850e-01_jprb,3.1067e-01_jprb,3.1041e-01_jprb,3.0075e-01_jprb,2.8246e-01_jprb,&
 & 2.5505e-01_jprb,2.1388e-01_jprb,1.3998e-01_jprb/)  
kao( :, 1, 7, 8) = (/&
 & 1.8473e-01_jprb,2.0924e-01_jprb,2.1335e-01_jprb,2.0936e-01_jprb,1.9988e-01_jprb,1.8587e-01_jprb,&
 & 1.6639e-01_jprb,1.3717e-01_jprb,7.6364e-02_jprb/)  
kao( :, 2, 7, 8) = (/&
 & 1.9350e-01_jprb,2.2219e-01_jprb,2.2721e-01_jprb,2.2345e-01_jprb,2.1426e-01_jprb,2.0011e-01_jprb,&
 & 1.7972e-01_jprb,1.4932e-01_jprb,8.5682e-02_jprb/)  
kao( :, 3, 7, 8) = (/&
 & 2.0222e-01_jprb,2.3570e-01_jprb,2.4195e-01_jprb,2.3854e-01_jprb,2.2951e-01_jprb,2.1468e-01_jprb,&
 & 1.9301e-01_jprb,1.6077e-01_jprb,9.5001e-02_jprb/)  
kao( :, 4, 7, 8) = (/&
 & 2.1095e-01_jprb,2.4886e-01_jprb,2.5670e-01_jprb,2.5432e-01_jprb,2.4507e-01_jprb,2.2935e-01_jprb,&
 & 2.0620e-01_jprb,1.7210e-01_jprb,1.0440e-01_jprb/)  
kao( :, 5, 7, 8) = (/&
 & 2.1973e-01_jprb,2.6165e-01_jprb,2.7115e-01_jprb,2.6994e-01_jprb,2.6086e-01_jprb,2.4410e-01_jprb,&
 & 2.1974e-01_jprb,1.8329e-01_jprb,1.1378e-01_jprb/)  
kao( :, 1, 8, 8) = (/&
 & 1.6185e-01_jprb,1.8253e-01_jprb,1.8444e-01_jprb,1.7949e-01_jprb,1.7015e-01_jprb,1.5690e-01_jprb,&
 & 1.3935e-01_jprb,1.1432e-01_jprb,6.0540e-02_jprb/)  
kao( :, 2, 8, 8) = (/&
 & 1.6964e-01_jprb,1.9418e-01_jprb,1.9717e-01_jprb,1.9247e-01_jprb,1.8312e-01_jprb,1.6970e-01_jprb,&
 & 1.5135e-01_jprb,1.2506e-01_jprb,6.8356e-02_jprb/)  
kao( :, 3, 8, 8) = (/&
 & 1.7743e-01_jprb,2.0616e-01_jprb,2.1045e-01_jprb,2.0623e-01_jprb,1.9689e-01_jprb,1.8297e-01_jprb,&
 & 1.6334e-01_jprb,1.3545e-01_jprb,7.6236e-02_jprb/)  
kao( :, 4, 8, 8) = (/&
 & 1.8525e-01_jprb,2.1798e-01_jprb,2.2355e-01_jprb,2.2023e-01_jprb,2.1094e-01_jprb,1.9625e-01_jprb,&
 & 1.7545e-01_jprb,1.4584e-01_jprb,8.4195e-02_jprb/)  
kao( :, 5, 8, 8) = (/&
 & 1.9322e-01_jprb,2.2966e-01_jprb,2.3631e-01_jprb,2.3389e-01_jprb,2.2488e-01_jprb,2.0966e-01_jprb,&
 & 1.8787e-01_jprb,1.5609e-01_jprb,9.2157e-02_jprb/)  
kao( :, 1, 9, 8) = (/&
 & 1.4213e-01_jprb,1.5963e-01_jprb,1.5968e-01_jprb,1.5380e-01_jprb,1.4472e-01_jprb,1.3224e-01_jprb,&
 & 1.1621e-01_jprb,9.4456e-02_jprb,4.8155e-02_jprb/)  
kao( :, 2, 9, 8) = (/&
 & 1.4924e-01_jprb,1.7020e-01_jprb,1.7123e-01_jprb,1.6570e-01_jprb,1.5648e-01_jprb,1.4372e-01_jprb,&
 & 1.2686e-01_jprb,1.0389e-01_jprb,5.4797e-02_jprb/)  
kao( :, 3, 9, 8) = (/&
 & 1.5626e-01_jprb,1.8093e-01_jprb,1.8312e-01_jprb,1.7819e-01_jprb,1.6892e-01_jprb,1.5552e-01_jprb,&
 & 1.3756e-01_jprb,1.1314e-01_jprb,6.1551e-02_jprb/)  
kao( :, 4, 9, 8) = (/&
 & 1.6335e-01_jprb,1.9168e-01_jprb,1.9486e-01_jprb,1.9059e-01_jprb,1.8138e-01_jprb,1.6740e-01_jprb,&
 & 1.4849e-01_jprb,1.2245e-01_jprb,6.8420e-02_jprb/)  
kao( :, 5, 9, 8) = (/&
 & 1.7076e-01_jprb,2.0225e-01_jprb,2.0643e-01_jprb,2.0268e-01_jprb,1.9350e-01_jprb,1.7935e-01_jprb,&
 & 1.5962e-01_jprb,1.3184e-01_jprb,7.5344e-02_jprb/)  
kao( :, 1,10, 8) = (/&
 & 1.2689e-01_jprb,1.4153e-01_jprb,1.4002e-01_jprb,1.3364e-01_jprb,1.2448e-01_jprb,1.1260e-01_jprb,&
 & 9.7712e-02_jprb,7.8252e-02_jprb,4.4638e-02_jprb/)  
kao( :, 2,10, 8) = (/&
 & 1.3357e-01_jprb,1.5129e-01_jprb,1.5077e-01_jprb,1.4472e-01_jprb,1.3525e-01_jprb,1.2292e-01_jprb,&
 & 1.0714e-01_jprb,8.6493e-02_jprb,5.1139e-02_jprb/)  
kao( :, 3,10, 8) = (/&
 & 1.4033e-01_jprb,1.6116e-01_jprb,1.6169e-01_jprb,1.5606e-01_jprb,1.4653e-01_jprb,1.3358e-01_jprb,&
 & 1.1667e-01_jprb,9.4648e-02_jprb,5.7687e-02_jprb/)  
kao( :, 4,10, 8) = (/&
 & 1.4713e-01_jprb,1.7114e-01_jprb,1.7244e-01_jprb,1.6723e-01_jprb,1.5766e-01_jprb,1.4412e-01_jprb,&
 & 1.2643e-01_jprb,1.0289e-01_jprb,6.4268e-02_jprb/)  
kao( :, 5,10, 8) = (/&
 & 1.5435e-01_jprb,1.8097e-01_jprb,1.8303e-01_jprb,1.7815e-01_jprb,1.6844e-01_jprb,1.5450e-01_jprb,&
 & 1.3627e-01_jprb,1.1126e-01_jprb,7.0752e-02_jprb/)  
kao( :, 1,11, 8) = (/&
 & 1.1735e-01_jprb,1.3093e-01_jprb,1.2881e-01_jprb,1.2210e-01_jprb,1.1270e-01_jprb,1.0103e-01_jprb,&
 & 8.6539e-02_jprb,6.8130e-02_jprb,4.9846e-02_jprb/)  
kao( :, 2,11, 8) = (/&
 & 1.2384e-01_jprb,1.4024e-01_jprb,1.3893e-01_jprb,1.3259e-01_jprb,1.2292e-01_jprb,1.1061e-01_jprb,&
 & 9.5115e-02_jprb,7.5252e-02_jprb,5.6964e-02_jprb/)  
kao( :, 3,11, 8) = (/&
 & 1.3035e-01_jprb,1.4957e-01_jprb,1.4914e-01_jprb,1.4306e-01_jprb,1.3321e-01_jprb,1.2022e-01_jprb,&
 & 1.0374e-01_jprb,8.2465e-02_jprb,6.4200e-02_jprb/)  
kao( :, 4,11, 8) = (/&
 & 1.3725e-01_jprb,1.5898e-01_jprb,1.5927e-01_jprb,1.5334e-01_jprb,1.4326e-01_jprb,1.2961e-01_jprb,&
 & 1.1238e-01_jprb,8.9805e-02_jprb,7.1457e-02_jprb/)  
kao( :, 5,11, 8) = (/&
 & 1.4463e-01_jprb,1.6851e-01_jprb,1.6933e-01_jprb,1.6346e-01_jprb,1.5308e-01_jprb,1.3883e-01_jprb,&
 & 1.2096e-01_jprb,9.7193e-02_jprb,7.8536e-02_jprb/)  
kao( :, 1,12, 8) = (/&
 & 1.0640e-01_jprb,1.1932e-01_jprb,1.1727e-01_jprb,1.1093e-01_jprb,1.0195e-01_jprb,9.0676e-02_jprb,&
 & 7.6870e-02_jprb,5.9379e-02_jprb,5.1106e-02_jprb/)  
kao( :, 2,12, 8) = (/&
 & 1.1251e-01_jprb,1.2789e-01_jprb,1.2658e-01_jprb,1.2048e-01_jprb,1.1127e-01_jprb,9.9404e-02_jprb,&
 & 8.4625e-02_jprb,6.5652e-02_jprb,5.8364e-02_jprb/)  
kao( :, 3,12, 8) = (/&
 & 1.1894e-01_jprb,1.3655e-01_jprb,1.3586e-01_jprb,1.2993e-01_jprb,1.2048e-01_jprb,1.0801e-01_jprb,&
 & 9.2363e-02_jprb,7.2052e-02_jprb,6.5735e-02_jprb/)  
kao( :, 4,12, 8) = (/&
 & 1.2590e-01_jprb,1.4545e-01_jprb,1.4519e-01_jprb,1.3926e-01_jprb,1.2958e-01_jprb,1.1647e-01_jprb,&
 & 9.9973e-02_jprb,7.8534e-02_jprb,7.3095e-02_jprb/)  
kao( :, 5,12, 8) = (/&
 & 1.3337e-01_jprb,1.5470e-01_jprb,1.5466e-01_jprb,1.4861e-01_jprb,1.3857e-01_jprb,1.2488e-01_jprb,&
 & 1.0746e-01_jprb,8.4929e-02_jprb,8.0418e-02_jprb/)  
kao( :, 1,13, 8) = (/&
 & 9.6972e-02_jprb,1.0868e-01_jprb,1.0670e-01_jprb,1.0090e-01_jprb,9.2463e-02_jprb,8.1893e-02_jprb,&
 & 6.8722e-02_jprb,5.2187e-02_jprb,4.8936e-02_jprb/)  
kao( :, 2,13, 8) = (/&
 & 1.0286e-01_jprb,1.1675e-01_jprb,1.1538e-01_jprb,1.0956e-01_jprb,1.0086e-01_jprb,8.9655e-02_jprb,&
 & 7.5733e-02_jprb,5.7797e-02_jprb,5.5923e-02_jprb/)  
kao( :, 3,13, 8) = (/&
 & 1.0928e-01_jprb,1.2507e-01_jprb,1.2410e-01_jprb,1.1821e-01_jprb,1.0914e-01_jprb,9.7343e-02_jprb,&
 & 8.2660e-02_jprb,6.3457e-02_jprb,6.3021e-02_jprb/)  
kao( :, 4,13, 8) = (/&
 & 1.1629e-01_jprb,1.3382e-01_jprb,1.3304e-01_jprb,1.2689e-01_jprb,1.1743e-01_jprb,1.0500e-01_jprb,&
 & 8.9516e-02_jprb,6.9087e-02_jprb,7.0154e-02_jprb/)  
kao( :, 5,13, 8) = (/&
 & 1.2379e-01_jprb,1.4288e-01_jprb,1.4218e-01_jprb,1.3575e-01_jprb,1.2584e-01_jprb,1.1273e-01_jprb,&
 & 9.6241e-02_jprb,7.4622e-02_jprb,7.7264e-02_jprb/)  
kao( :, 1, 1, 9) = (/&
 & 1.3428e+00_jprb,1.2969e+00_jprb,1.3205e+00_jprb,1.3175e+00_jprb,1.2990e+00_jprb,1.2468e+00_jprb,&
 & 1.1628e+00_jprb,1.0614e+00_jprb,1.0372e+00_jprb/)  
kao( :, 2, 1, 9) = (/&
 & 1.3746e+00_jprb,1.3335e+00_jprb,1.3668e+00_jprb,1.3722e+00_jprb,1.3567e+00_jprb,1.3085e+00_jprb,&
 & 1.2270e+00_jprb,1.1261e+00_jprb,1.1147e+00_jprb/)  
kao( :, 3, 1, 9) = (/&
 & 1.4073e+00_jprb,1.3698e+00_jprb,1.4124e+00_jprb,1.4260e+00_jprb,1.4123e+00_jprb,1.3693e+00_jprb,&
 & 1.2904e+00_jprb,1.1888e+00_jprb,1.1913e+00_jprb/)  
kao( :, 4, 1, 9) = (/&
 & 1.4400e+00_jprb,1.4058e+00_jprb,1.4573e+00_jprb,1.4759e+00_jprb,1.4676e+00_jprb,1.4301e+00_jprb,&
 & 1.3531e+00_jprb,1.2469e+00_jprb,1.2654e+00_jprb/)  
kao( :, 5, 1, 9) = (/&
 & 1.4734e+00_jprb,1.4423e+00_jprb,1.5023e+00_jprb,1.5245e+00_jprb,1.5225e+00_jprb,1.4892e+00_jprb,&
 & 1.4132e+00_jprb,1.3011e+00_jprb,1.3376e+00_jprb/)  
kao( :, 1, 2, 9) = (/&
 & 1.2829e+00_jprb,1.2633e+00_jprb,1.2907e+00_jprb,1.2907e+00_jprb,1.2660e+00_jprb,1.2110e+00_jprb,&
 & 1.1297e+00_jprb,1.0058e+00_jprb,9.3684e-01_jprb/)  
kao( :, 2, 2, 9) = (/&
 & 1.3149e+00_jprb,1.3008e+00_jprb,1.3384e+00_jprb,1.3472e+00_jprb,1.3248e+00_jprb,1.2742e+00_jprb,&
 & 1.1952e+00_jprb,1.0698e+00_jprb,1.0113e+00_jprb/)  
kao( :, 3, 2, 9) = (/&
 & 1.3475e+00_jprb,1.3378e+00_jprb,1.3854e+00_jprb,1.4016e+00_jprb,1.3821e+00_jprb,1.3377e+00_jprb,&
 & 1.2602e+00_jprb,1.1308e+00_jprb,1.0840e+00_jprb/)  
kao( :, 4, 2, 9) = (/&
 & 1.3810e+00_jprb,1.3744e+00_jprb,1.4322e+00_jprb,1.4528e+00_jprb,1.4388e+00_jprb,1.4001e+00_jprb,&
 & 1.3236e+00_jprb,1.1887e+00_jprb,1.1546e+00_jprb/)  
kao( :, 5, 2, 9) = (/&
 & 1.4157e+00_jprb,1.4118e+00_jprb,1.4780e+00_jprb,1.5023e+00_jprb,1.4957e+00_jprb,1.4603e+00_jprb,&
 & 1.3839e+00_jprb,1.2445e+00_jprb,1.2243e+00_jprb/)  
kao( :, 1, 3, 9) = (/&
 & 1.2127e+00_jprb,1.2149e+00_jprb,1.2414e+00_jprb,1.2413e+00_jprb,1.2096e+00_jprb,1.1509e+00_jprb,&
 & 1.0693e+00_jprb,9.3505e-01_jprb,8.1904e-01_jprb/)  
kao( :, 2, 3, 9) = (/&
 & 1.2443e+00_jprb,1.2526e+00_jprb,1.2906e+00_jprb,1.2980e+00_jprb,1.2698e+00_jprb,1.2150e+00_jprb,&
 & 1.1356e+00_jprb,9.9732e-01_jprb,8.8821e-01_jprb/)  
kao( :, 3, 3, 9) = (/&
 & 1.2769e+00_jprb,1.2896e+00_jprb,1.3389e+00_jprb,1.3532e+00_jprb,1.3282e+00_jprb,1.2784e+00_jprb,&
 & 1.2012e+00_jprb,1.0574e+00_jprb,9.5592e-01_jprb/)  
kao( :, 4, 3, 9) = (/&
 & 1.3109e+00_jprb,1.3271e+00_jprb,1.3868e+00_jprb,1.4049e+00_jprb,1.3857e+00_jprb,1.3410e+00_jprb,&
 & 1.2646e+00_jprb,1.1151e+00_jprb,1.0226e+00_jprb/)  
kao( :, 5, 3, 9) = (/&
 & 1.3463e+00_jprb,1.3657e+00_jprb,1.4329e+00_jprb,1.4555e+00_jprb,1.4430e+00_jprb,1.4020e+00_jprb,&
 & 1.3252e+00_jprb,1.1714e+00_jprb,1.0884e+00_jprb/)  
kao( :, 1, 4, 9) = (/&
 & 1.1396e+00_jprb,1.1562e+00_jprb,1.1826e+00_jprb,1.1757e+00_jprb,1.1396e+00_jprb,1.0800e+00_jprb,&
 & 9.9549e-01_jprb,8.6118e-01_jprb,7.0458e-01_jprb/)  
kao( :, 2, 4, 9) = (/&
 & 1.1708e+00_jprb,1.1941e+00_jprb,1.2324e+00_jprb,1.2326e+00_jprb,1.2012e+00_jprb,1.1447e+00_jprb,&
 & 1.0603e+00_jprb,9.2111e-01_jprb,7.6931e-01_jprb/)  
kao( :, 3, 4, 9) = (/&
 & 1.2031e+00_jprb,1.2324e+00_jprb,1.2815e+00_jprb,1.2882e+00_jprb,1.2607e+00_jprb,1.2072e+00_jprb,&
 & 1.1246e+00_jprb,9.8015e-01_jprb,8.3245e-01_jprb/)  
kao( :, 4, 4, 9) = (/&
 & 1.2376e+00_jprb,1.2714e+00_jprb,1.3295e+00_jprb,1.3421e+00_jprb,1.3190e+00_jprb,1.2690e+00_jprb,&
 & 1.1874e+00_jprb,1.0376e+00_jprb,8.9457e-01_jprb/)  
kao( :, 5, 4, 9) = (/&
 & 1.2740e+00_jprb,1.3119e+00_jprb,1.3762e+00_jprb,1.3940e+00_jprb,1.3758e+00_jprb,1.3293e+00_jprb,&
 & 1.2473e+00_jprb,1.0924e+00_jprb,9.5512e-01_jprb/)  
kao( :, 1, 5, 9) = (/&
 & 1.0676e+00_jprb,1.0934e+00_jprb,1.1164e+00_jprb,1.1017e+00_jprb,1.0618e+00_jprb,1.0031e+00_jprb,&
 & 9.1670e-01_jprb,7.8582e-01_jprb,6.0004e-01_jprb/)  
kao( :, 2, 5, 9) = (/&
 & 1.0980e+00_jprb,1.1317e+00_jprb,1.1657e+00_jprb,1.1576e+00_jprb,1.1232e+00_jprb,1.0675e+00_jprb,&
 & 9.7913e-01_jprb,8.4460e-01_jprb,6.6026e-01_jprb/)  
kao( :, 3, 5, 9) = (/&
 & 1.1299e+00_jprb,1.1708e+00_jprb,1.2140e+00_jprb,1.2133e+00_jprb,1.1840e+00_jprb,1.1288e+00_jprb,&
 & 1.0409e+00_jprb,9.0310e-01_jprb,7.1874e-01_jprb/)  
kao( :, 4, 5, 9) = (/&
 & 1.1642e+00_jprb,1.2107e+00_jprb,1.2614e+00_jprb,1.2677e+00_jprb,1.2424e+00_jprb,1.1890e+00_jprb,&
 & 1.1017e+00_jprb,9.5891e-01_jprb,7.7564e-01_jprb/)  
kao( :, 5, 5, 9) = (/&
 & 1.2000e+00_jprb,1.2526e+00_jprb,1.3091e+00_jprb,1.3207e+00_jprb,1.2994e+00_jprb,1.2483e+00_jprb,&
 & 1.1609e+00_jprb,1.0119e+00_jprb,8.3130e-01_jprb/)  
kao( :, 1, 6, 9) = (/&
 & 9.9003e-01_jprb,1.0258e+00_jprb,1.0412e+00_jprb,1.0201e+00_jprb,9.7779e-01_jprb,9.1873e-01_jprb,&
 & 8.3216e-01_jprb,7.0459e-01_jprb,5.0433e-01_jprb/)  
kao( :, 2, 6, 9) = (/&
 & 1.0190e+00_jprb,1.0642e+00_jprb,1.0886e+00_jprb,1.0744e+00_jprb,1.0384e+00_jprb,9.8045e-01_jprb,&
 & 8.9228e-01_jprb,7.6180e-01_jprb,5.5916e-01_jprb/)  
kao( :, 3, 6, 9) = (/&
 & 1.0499e+00_jprb,1.1031e+00_jprb,1.1353e+00_jprb,1.1293e+00_jprb,1.0979e+00_jprb,1.0403e+00_jprb,&
 & 9.5155e-01_jprb,8.1856e-01_jprb,6.1244e-01_jprb/)  
kao( :, 4, 6, 9) = (/&
 & 1.0828e+00_jprb,1.1437e+00_jprb,1.1824e+00_jprb,1.1833e+00_jprb,1.1555e+00_jprb,1.0993e+00_jprb,&
 & 1.0102e+00_jprb,8.7279e-01_jprb,6.6433e-01_jprb/)  
kao( :, 5, 6, 9) = (/&
 & 1.1175e+00_jprb,1.1857e+00_jprb,1.2305e+00_jprb,1.2360e+00_jprb,1.2119e+00_jprb,1.1569e+00_jprb,&
 & 1.0670e+00_jprb,9.2416e-01_jprb,7.1591e-01_jprb/)  
kao( :, 1, 7, 9) = (/&
 & 9.0622e-01_jprb,9.5046e-01_jprb,9.6089e-01_jprb,9.3711e-01_jprb,8.9284e-01_jprb,8.3176e-01_jprb,&
 & 7.4643e-01_jprb,6.2447e-01_jprb,4.1858e-01_jprb/)  
kao( :, 2, 7, 9) = (/&
 & 9.3396e-01_jprb,9.8759e-01_jprb,1.0065e+00_jprb,9.8973e-01_jprb,9.5076e-01_jprb,8.9008e-01_jprb,&
 & 8.0412e-01_jprb,6.7884e-01_jprb,4.6801e-01_jprb/)  
kao( :, 3, 7, 9) = (/&
 & 9.6319e-01_jprb,1.0255e+00_jprb,1.0520e+00_jprb,1.0425e+00_jprb,1.0071e+00_jprb,9.4738e-01_jprb,&
 & 8.6097e-01_jprb,7.3289e-01_jprb,5.1587e-01_jprb/)  
kao( :, 4, 7, 9) = (/&
 & 9.9431e-01_jprb,1.0653e+00_jprb,1.0986e+00_jprb,1.0946e+00_jprb,1.0623e+00_jprb,1.0043e+00_jprb,&
 & 9.1723e-01_jprb,7.8478e-01_jprb,5.6306e-01_jprb/)  
kao( :, 5, 7, 9) = (/&
 & 1.0274e+00_jprb,1.1069e+00_jprb,1.1469e+00_jprb,1.1464e+00_jprb,1.1172e+00_jprb,1.0599e+00_jprb,&
 & 9.7098e-01_jprb,8.3391e-01_jprb,6.1058e-01_jprb/)  
kao( :, 1, 8, 9) = (/&
 & 8.1868e-01_jprb,8.7029e-01_jprb,8.7676e-01_jprb,8.5425e-01_jprb,8.0979e-01_jprb,7.4690e-01_jprb,&
 & 6.6276e-01_jprb,5.4807e-01_jprb,3.4321e-01_jprb/)  
kao( :, 2, 8, 9) = (/&
 & 8.4618e-01_jprb,9.0631e-01_jprb,9.1992e-01_jprb,9.0408e-01_jprb,8.6387e-01_jprb,8.0135e-01_jprb,&
 & 7.1759e-01_jprb,5.9903e-01_jprb,3.8705e-01_jprb/)  
kao( :, 3, 8, 9) = (/&
 & 8.7480e-01_jprb,9.4290e-01_jprb,9.6372e-01_jprb,9.5463e-01_jprb,9.1665e-01_jprb,8.5535e-01_jprb,&
 & 7.7165e-01_jprb,6.4994e-01_jprb,4.2964e-01_jprb/)  
kao( :, 4, 8, 9) = (/&
 & 9.0487e-01_jprb,9.8122e-01_jprb,1.0094e+00_jprb,1.0045e+00_jprb,9.6889e-01_jprb,9.0941e-01_jprb,&
 & 8.2521e-01_jprb,6.9828e-01_jprb,4.7251e-01_jprb/)  
kao( :, 5, 8, 9) = (/&
 & 9.3640e-01_jprb,1.0212e+00_jprb,1.0569e+00_jprb,1.0548e+00_jprb,1.0212e+00_jprb,9.6279e-01_jprb,&
 & 8.7575e-01_jprb,7.4474e-01_jprb,5.1556e-01_jprb/)  
kao( :, 1, 9, 9) = (/&
 & 7.3248e-01_jprb,7.8661e-01_jprb,7.9076e-01_jprb,7.6949e-01_jprb,7.2749e-01_jprb,6.6515e-01_jprb,&
 & 5.8393e-01_jprb,4.7588e-01_jprb,2.7793e-01_jprb/)  
kao( :, 2, 9, 9) = (/&
 & 7.5864e-01_jprb,8.2147e-01_jprb,8.3210e-01_jprb,8.1596e-01_jprb,7.7766e-01_jprb,7.1604e-01_jprb,&
 & 6.3458e-01_jprb,5.2262e-01_jprb,3.1673e-01_jprb/)  
kao( :, 3, 9, 9) = (/&
 & 7.8652e-01_jprb,8.5723e-01_jprb,8.7381e-01_jprb,8.6296e-01_jprb,8.2677e-01_jprb,7.6708e-01_jprb,&
 & 6.8470e-01_jprb,5.6962e-01_jprb,3.5494e-01_jprb/)  
kao( :, 4, 9, 9) = (/&
 & 8.1572e-01_jprb,8.9416e-01_jprb,9.1752e-01_jprb,9.1007e-01_jprb,8.7613e-01_jprb,8.1762e-01_jprb,&
 & 7.3487e-01_jprb,6.1457e-01_jprb,3.9372e-01_jprb/)  
kao( :, 5, 9, 9) = (/&
 & 8.4624e-01_jprb,9.3262e-01_jprb,9.6268e-01_jprb,9.5791e-01_jprb,9.2621e-01_jprb,8.6785e-01_jprb,&
 & 7.8234e-01_jprb,6.5797e-01_jprb,4.3237e-01_jprb/)  
kao( :, 1,10, 9) = (/&
 & 6.5285e-01_jprb,7.0556e-01_jprb,7.0877e-01_jprb,6.8957e-01_jprb,6.5004e-01_jprb,5.9094e-01_jprb,&
 & 5.1435e-01_jprb,4.1208e-01_jprb,2.3031e-01_jprb/)  
kao( :, 2,10, 9) = (/&
 & 6.7792e-01_jprb,7.3916e-01_jprb,7.4857e-01_jprb,7.3319e-01_jprb,6.9544e-01_jprb,6.3833e-01_jprb,&
 & 5.6078e-01_jprb,4.5470e-01_jprb,2.6518e-01_jprb/)  
kao( :, 3,10, 9) = (/&
 & 7.0469e-01_jprb,7.7387e-01_jprb,7.8906e-01_jprb,7.7634e-01_jprb,7.4114e-01_jprb,6.8557e-01_jprb,&
 & 6.0667e-01_jprb,4.9747e-01_jprb,3.0039e-01_jprb/)  
kao( :, 4,10, 9) = (/&
 & 7.3310e-01_jprb,8.1001e-01_jprb,8.3104e-01_jprb,8.2017e-01_jprb,7.8729e-01_jprb,7.3297e-01_jprb,&
 & 6.5240e-01_jprb,5.3892e-01_jprb,3.3590e-01_jprb/)  
kao( :, 5,10, 9) = (/&
 & 7.6290e-01_jprb,8.4760e-01_jprb,8.7394e-01_jprb,8.6505e-01_jprb,8.3426e-01_jprb,7.8012e-01_jprb,&
 & 6.9636e-01_jprb,5.7926e-01_jprb,3.7143e-01_jprb/)  
kao( :, 1,11, 9) = (/&
 & 5.9090e-01_jprb,6.4305e-01_jprb,6.4751e-01_jprb,6.3053e-01_jprb,5.9455e-01_jprb,5.4070e-01_jprb,&
 & 4.6893e-01_jprb,3.7172e-01_jprb,2.1405e-01_jprb/)  
kao( :, 2,11, 9) = (/&
 & 6.1610e-01_jprb,6.7624e-01_jprb,6.8614e-01_jprb,6.7105e-01_jprb,6.3688e-01_jprb,5.8397e-01_jprb,&
 & 5.1072e-01_jprb,4.1032e-01_jprb,2.4686e-01_jprb/)  
kao( :, 3,11, 9) = (/&
 & 6.4345e-01_jprb,7.1119e-01_jprb,7.2537e-01_jprb,7.1231e-01_jprb,6.7967e-01_jprb,6.2716e-01_jprb,&
 & 5.5288e-01_jprb,4.4844e-01_jprb,2.7991e-01_jprb/)  

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


SUBROUTINE part7

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


kao( :, 4,11, 9) = (/&
 & 6.7245e-01_jprb,7.4763e-01_jprb,7.6564e-01_jprb,7.5469e-01_jprb,7.2271e-01_jprb,6.7051e-01_jprb,&
 & 5.9423e-01_jprb,4.8613e-01_jprb,3.1288e-01_jprb/)  
kao( :, 5,11, 9) = (/&
 & 7.0307e-01_jprb,7.8557e-01_jprb,8.0692e-01_jprb,7.9786e-01_jprb,7.6651e-01_jprb,7.1310e-01_jprb,&
 & 6.3521e-01_jprb,5.2316e-01_jprb,3.4596e-01_jprb/)  
kao( :, 1,12, 9) = (/&
 & 5.3439e-01_jprb,5.8391e-01_jprb,5.8774e-01_jprb,5.7122e-01_jprb,5.3863e-01_jprb,4.9053e-01_jprb,&
 & 4.2331e-01_jprb,3.3386e-01_jprb,2.0991e-01_jprb/)  
kao( :, 2,12, 9) = (/&
 & 5.5981e-01_jprb,6.1691e-01_jprb,6.2491e-01_jprb,6.0974e-01_jprb,5.7829e-01_jprb,5.2963e-01_jprb,&
 & 4.6106e-01_jprb,3.6833e-01_jprb,2.4202e-01_jprb/)  
kao( :, 3,12, 9) = (/&
 & 5.8729e-01_jprb,6.5190e-01_jprb,6.6281e-01_jprb,6.4965e-01_jprb,6.1814e-01_jprb,5.6902e-01_jprb,&
 & 4.9887e-01_jprb,4.0268e-01_jprb,2.7433e-01_jprb/)  
kao( :, 4,12, 9) = (/&
 & 6.1659e-01_jprb,6.8828e-01_jprb,7.0203e-01_jprb,6.9007e-01_jprb,6.5880e-01_jprb,6.0818e-01_jprb,&
 & 5.3678e-01_jprb,4.3667e-01_jprb,3.0656e-01_jprb/)  
kao( :, 5,12, 9) = (/&
 & 6.4762e-01_jprb,7.2645e-01_jprb,7.4237e-01_jprb,7.3145e-01_jprb,6.9915e-01_jprb,6.4741e-01_jprb,&
 & 5.7484e-01_jprb,4.6985e-01_jprb,3.3881e-01_jprb/)  
kao( :, 1,13, 9) = (/&
 & 4.8753e-01_jprb,5.3273e-01_jprb,5.3419e-01_jprb,5.1662e-01_jprb,4.8575e-01_jprb,4.4090e-01_jprb,&
 & 3.7978e-01_jprb,2.9794e-01_jprb,2.0545e-01_jprb/)  
kao( :, 2,13, 9) = (/&
 & 5.1376e-01_jprb,5.6597e-01_jprb,5.6993e-01_jprb,5.5397e-01_jprb,5.2292e-01_jprb,4.7698e-01_jprb,&
 & 4.1398e-01_jprb,3.2894e-01_jprb,2.3666e-01_jprb/)  
kao( :, 3,13, 9) = (/&
 & 5.4228e-01_jprb,6.0098e-01_jprb,6.0712e-01_jprb,5.9219e-01_jprb,5.6068e-01_jprb,5.1331e-01_jprb,&
 & 4.4847e-01_jprb,3.5992e-01_jprb,2.6838e-01_jprb/)  
kao( :, 4,13, 9) = (/&
 & 5.7239e-01_jprb,6.3765e-01_jprb,6.4572e-01_jprb,6.3133e-01_jprb,5.9865e-01_jprb,5.5003e-01_jprb,&
 & 4.8326e-01_jprb,3.9056e-01_jprb,3.0014e-01_jprb/)  
kao( :, 5,13, 9) = (/&
 & 6.0266e-01_jprb,6.7556e-01_jprb,6.8531e-01_jprb,6.7067e-01_jprb,6.3710e-01_jprb,5.8691e-01_jprb,&
 & 5.1750e-01_jprb,4.2055e-01_jprb,3.3173e-01_jprb/)  
kao( :, 1, 1,10) = (/&
 & 3.6294e+00_jprb,3.2562e+00_jprb,3.2368e+00_jprb,3.0996e+00_jprb,2.9830e+00_jprb,2.8753e+00_jprb,&
 & 2.7749e+00_jprb,2.5993e+00_jprb,2.8111e+00_jprb/)  
kao( :, 2, 1,10) = (/&
 & 3.7112e+00_jprb,3.3258e+00_jprb,3.3100e+00_jprb,3.2079e+00_jprb,3.1384e+00_jprb,3.0034e+00_jprb,&
 & 2.8949e+00_jprb,2.7070e+00_jprb,3.0039e+00_jprb/)  
kao( :, 3, 1,10) = (/&
 & 3.7891e+00_jprb,3.3949e+00_jprb,3.3824e+00_jprb,3.3195e+00_jprb,3.2833e+00_jprb,3.1133e+00_jprb,&
 & 3.0142e+00_jprb,2.8340e+00_jprb,3.1933e+00_jprb/)  
kao( :, 4, 1,10) = (/&
 & 3.8594e+00_jprb,3.4595e+00_jprb,3.4534e+00_jprb,3.4596e+00_jprb,3.3989e+00_jprb,3.2137e+00_jprb,&
 & 3.1290e+00_jprb,2.9765e+00_jprb,3.3923e+00_jprb/)  
kao( :, 5, 1,10) = (/&
 & 3.9199e+00_jprb,3.5165e+00_jprb,3.5128e+00_jprb,3.5924e+00_jprb,3.4985e+00_jprb,3.3169e+00_jprb,&
 & 3.2426e+00_jprb,3.1423e+00_jprb,3.5829e+00_jprb/)  
kao( :, 1, 2,10) = (/&
 & 3.6408e+00_jprb,3.2851e+00_jprb,3.3076e+00_jprb,3.2113e+00_jprb,3.1456e+00_jprb,3.0206e+00_jprb,&
 & 2.7332e+00_jprb,2.5617e+00_jprb,2.6956e+00_jprb/)  
kao( :, 2, 2,10) = (/&
 & 3.7247e+00_jprb,3.3643e+00_jprb,3.3883e+00_jprb,3.3308e+00_jprb,3.3119e+00_jprb,3.1672e+00_jprb,&
 & 2.8664e+00_jprb,2.6839e+00_jprb,2.9052e+00_jprb/)  
kao( :, 3, 2,10) = (/&
 & 3.8049e+00_jprb,3.4403e+00_jprb,3.4728e+00_jprb,3.4603e+00_jprb,3.4644e+00_jprb,3.2894e+00_jprb,&
 & 2.9956e+00_jprb,2.7983e+00_jprb,3.1071e+00_jprb/)  
kao( :, 4, 2,10) = (/&
 & 3.8732e+00_jprb,3.5109e+00_jprb,3.5452e+00_jprb,3.6076e+00_jprb,3.5864e+00_jprb,3.4101e+00_jprb,&
 & 3.1230e+00_jprb,2.9350e+00_jprb,3.3150e+00_jprb/)  
kao( :, 5, 2,10) = (/&
 & 3.9409e+00_jprb,3.5762e+00_jprb,3.6198e+00_jprb,3.7407e+00_jprb,3.6919e+00_jprb,3.5308e+00_jprb,&
 & 3.2386e+00_jprb,3.0801e+00_jprb,3.5151e+00_jprb/)  
kao( :, 1, 3,10) = (/&
 & 3.5736e+00_jprb,3.2584e+00_jprb,3.3139e+00_jprb,3.2719e+00_jprb,3.2271e+00_jprb,3.0778e+00_jprb,&
 & 2.7397e+00_jprb,2.4788e+00_jprb,2.5395e+00_jprb/)  
kao( :, 2, 3,10) = (/&
 & 3.6594e+00_jprb,3.3492e+00_jprb,3.4059e+00_jprb,3.4088e+00_jprb,3.3945e+00_jprb,3.2416e+00_jprb,&
 & 2.8874e+00_jprb,2.6220e+00_jprb,2.7498e+00_jprb/)  
kao( :, 3, 3,10) = (/&
 & 3.7370e+00_jprb,3.4383e+00_jprb,3.4999e+00_jprb,3.5416e+00_jprb,3.5599e+00_jprb,3.3810e+00_jprb,&
 & 3.0257e+00_jprb,2.7502e+00_jprb,2.9649e+00_jprb/)  
kao( :, 4, 3,10) = (/&
 & 3.8104e+00_jprb,3.5143e+00_jprb,3.5877e+00_jprb,3.6896e+00_jprb,3.6976e+00_jprb,3.5128e+00_jprb,&
 & 3.1541e+00_jprb,2.8734e+00_jprb,3.1792e+00_jprb/)  
kao( :, 5, 3,10) = (/&
 & 3.8817e+00_jprb,3.5850e+00_jprb,3.6770e+00_jprb,3.8155e+00_jprb,3.8142e+00_jprb,3.6439e+00_jprb,&
 & 3.2832e+00_jprb,2.9977e+00_jprb,3.3829e+00_jprb/)  
kao( :, 1, 4,10) = (/&
 & 3.4322e+00_jprb,3.2007e+00_jprb,3.2659e+00_jprb,3.2997e+00_jprb,3.2447e+00_jprb,3.0584e+00_jprb,&
 & 2.7371e+00_jprb,2.3518e+00_jprb,2.3300e+00_jprb/)  
kao( :, 2, 4,10) = (/&
 & 3.5196e+00_jprb,3.3050e+00_jprb,3.3731e+00_jprb,3.4388e+00_jprb,3.4095e+00_jprb,3.2370e+00_jprb,&
 & 2.9126e+00_jprb,2.5092e+00_jprb,2.5309e+00_jprb/)  
kao( :, 3, 4,10) = (/&
 & 3.5985e+00_jprb,3.3943e+00_jprb,3.4756e+00_jprb,3.5772e+00_jprb,3.5742e+00_jprb,3.4032e+00_jprb,&
 & 3.0669e+00_jprb,2.6516e+00_jprb,2.7458e+00_jprb/)  
kao( :, 4, 4,10) = (/&
 & 3.6770e+00_jprb,3.4750e+00_jprb,3.5775e+00_jprb,3.7106e+00_jprb,3.7325e+00_jprb,3.5499e+00_jprb,&
 & 3.2119e+00_jprb,2.7759e+00_jprb,2.9618e+00_jprb/)  
kao( :, 5, 4,10) = (/&
 & 3.7553e+00_jprb,3.5545e+00_jprb,3.6854e+00_jprb,3.8420e+00_jprb,3.8679e+00_jprb,3.6893e+00_jprb,&
 & 3.3628e+00_jprb,2.8870e+00_jprb,3.1717e+00_jprb/)  
kao( :, 1, 5,10) = (/&
 & 3.2373e+00_jprb,3.1117e+00_jprb,3.1778e+00_jprb,3.2611e+00_jprb,3.1950e+00_jprb,2.9886e+00_jprb,&
 & 2.6929e+00_jprb,2.2194e+00_jprb,2.0888e+00_jprb/)  
kao( :, 2, 5,10) = (/&
 & 3.3227e+00_jprb,3.2184e+00_jprb,3.2899e+00_jprb,3.4098e+00_jprb,3.3633e+00_jprb,3.1652e+00_jprb,&
 & 2.8940e+00_jprb,2.3720e+00_jprb,2.2795e+00_jprb/)  
kao( :, 3, 5,10) = (/&
 & 3.4108e+00_jprb,3.3097e+00_jprb,3.4099e+00_jprb,3.5509e+00_jprb,3.5204e+00_jprb,3.3546e+00_jprb,&
 & 3.0628e+00_jprb,2.5129e+00_jprb,2.4816e+00_jprb/)  
kao( :, 4, 5,10) = (/&
 & 3.5003e+00_jprb,3.3952e+00_jprb,3.5314e+00_jprb,3.6804e+00_jprb,3.6822e+00_jprb,3.5261e+00_jprb,&
 & 3.2230e+00_jprb,2.6514e+00_jprb,2.6958e+00_jprb/)  
kao( :, 5, 5,10) = (/&
 & 3.5863e+00_jprb,3.4801e+00_jprb,3.6493e+00_jprb,3.8038e+00_jprb,3.8198e+00_jprb,3.6739e+00_jprb,&
 & 3.3792e+00_jprb,2.7781e+00_jprb,2.9109e+00_jprb/)  
kao( :, 1, 6,10) = (/&
 & 3.0445e+00_jprb,2.9620e+00_jprb,3.0571e+00_jprb,3.1457e+00_jprb,3.0759e+00_jprb,2.8664e+00_jprb,&
 & 2.5916e+00_jprb,2.1266e+00_jprb,1.8296e+00_jprb/)  
kao( :, 2, 6,10) = (/&
 & 3.1336e+00_jprb,3.0624e+00_jprb,3.1925e+00_jprb,3.2966e+00_jprb,3.2392e+00_jprb,3.0536e+00_jprb,&
 & 2.7999e+00_jprb,2.2755e+00_jprb,2.0164e+00_jprb/)  
kao( :, 3, 6,10) = (/&
 & 3.2251e+00_jprb,3.1623e+00_jprb,3.3255e+00_jprb,3.4339e+00_jprb,3.3902e+00_jprb,3.2529e+00_jprb,&
 & 2.9818e+00_jprb,2.4175e+00_jprb,2.2137e+00_jprb/)  
kao( :, 4, 6,10) = (/&
 & 3.3171e+00_jprb,3.2585e+00_jprb,3.4579e+00_jprb,3.5597e+00_jprb,3.5496e+00_jprb,3.4294e+00_jprb,&
 & 3.1517e+00_jprb,2.5627e+00_jprb,2.4250e+00_jprb/)  
kao( :, 5, 6,10) = (/&
 & 3.4116e+00_jprb,3.3553e+00_jprb,3.5847e+00_jprb,3.6942e+00_jprb,3.6982e+00_jprb,3.5971e+00_jprb,&
 & 3.3128e+00_jprb,2.7040e+00_jprb,2.6238e+00_jprb/)  
kao( :, 1, 7,10) = (/&
 & 2.9086e+00_jprb,2.8374e+00_jprb,2.9280e+00_jprb,2.9562e+00_jprb,2.8965e+00_jprb,2.7121e+00_jprb,&
 & 2.4469e+00_jprb,2.0175e+00_jprb,1.5788e+00_jprb/)  
kao( :, 2, 7,10) = (/&
 & 2.9988e+00_jprb,2.9438e+00_jprb,3.0639e+00_jprb,3.1077e+00_jprb,3.0554e+00_jprb,2.9073e+00_jprb,&
 & 2.6439e+00_jprb,2.1750e+00_jprb,1.7618e+00_jprb/)  
kao( :, 3, 7,10) = (/&
 & 3.0933e+00_jprb,3.0485e+00_jprb,3.1991e+00_jprb,3.2496e+00_jprb,3.2138e+00_jprb,3.1110e+00_jprb,&
 & 2.8275e+00_jprb,2.3269e+00_jprb,1.9611e+00_jprb/)  
kao( :, 4, 7,10) = (/&
 & 3.1882e+00_jprb,3.1521e+00_jprb,3.3306e+00_jprb,3.3838e+00_jprb,3.3832e+00_jprb,3.2822e+00_jprb,&
 & 2.9996e+00_jprb,2.4824e+00_jprb,2.1592e+00_jprb/)  
kao( :, 5, 7,10) = (/&
 & 3.2780e+00_jprb,3.2584e+00_jprb,3.4493e+00_jprb,3.5229e+00_jprb,3.5250e+00_jprb,3.4373e+00_jprb,&
 & 3.1721e+00_jprb,2.6319e+00_jprb,2.3379e+00_jprb/)  
kao( :, 1, 8,10) = (/&
 & 2.8154e+00_jprb,2.7401e+00_jprb,2.8041e+00_jprb,2.7499e+00_jprb,2.6697e+00_jprb,2.5266e+00_jprb,&
 & 2.2797e+00_jprb,1.8696e+00_jprb,1.3559e+00_jprb/)  
kao( :, 2, 8,10) = (/&
 & 2.8912e+00_jprb,2.8557e+00_jprb,2.9355e+00_jprb,2.8974e+00_jprb,2.8365e+00_jprb,2.7206e+00_jprb,&
 & 2.4626e+00_jprb,2.0339e+00_jprb,1.5286e+00_jprb/)  
kao( :, 3, 8,10) = (/&
 & 2.9739e+00_jprb,2.9692e+00_jprb,3.0667e+00_jprb,3.0335e+00_jprb,3.0033e+00_jprb,2.9063e+00_jprb,&
 & 2.6365e+00_jprb,2.1906e+00_jprb,1.7207e+00_jprb/)  
kao( :, 4, 8,10) = (/&
 & 3.0589e+00_jprb,3.0798e+00_jprb,3.1911e+00_jprb,3.1726e+00_jprb,3.1737e+00_jprb,3.0654e+00_jprb,&
 & 2.8021e+00_jprb,2.3587e+00_jprb,1.9007e+00_jprb/)  
kao( :, 5, 8,10) = (/&
 & 3.1452e+00_jprb,3.1888e+00_jprb,3.3008e+00_jprb,3.3242e+00_jprb,3.3225e+00_jprb,3.2145e+00_jprb,&
 & 2.9803e+00_jprb,2.5138e+00_jprb,2.0640e+00_jprb/)  
kao( :, 1, 9,10) = (/&
 & 2.7071e+00_jprb,2.6491e+00_jprb,2.6723e+00_jprb,2.5686e+00_jprb,2.4536e+00_jprb,2.3106e+00_jprb,&
 & 2.0811e+00_jprb,1.6991e+00_jprb,1.1509e+00_jprb/)  
kao( :, 2, 9,10) = (/&
 & 2.7701e+00_jprb,2.7593e+00_jprb,2.7975e+00_jprb,2.7179e+00_jprb,2.6123e+00_jprb,2.4920e+00_jprb,&
 & 2.2565e+00_jprb,1.8667e+00_jprb,1.3080e+00_jprb/)  
kao( :, 3, 9,10) = (/&
 & 2.8376e+00_jprb,2.8669e+00_jprb,2.9292e+00_jprb,2.8584e+00_jprb,2.7770e+00_jprb,2.6567e+00_jprb,&
 & 2.4289e+00_jprb,2.0233e+00_jprb,1.4827e+00_jprb/)  
kao( :, 4, 9,10) = (/&
 & 2.9092e+00_jprb,2.9736e+00_jprb,3.0528e+00_jprb,3.0034e+00_jprb,2.9332e+00_jprb,2.8084e+00_jprb,&
 & 2.5864e+00_jprb,2.1897e+00_jprb,1.6436e+00_jprb/)  
kao( :, 5, 9,10) = (/&
 & 2.9831e+00_jprb,3.0790e+00_jprb,3.1648e+00_jprb,3.1509e+00_jprb,3.0739e+00_jprb,2.9530e+00_jprb,&
 & 2.7530e+00_jprb,2.3477e+00_jprb,1.7965e+00_jprb/)  
kao( :, 1,10,10) = (/&
 & 2.5846e+00_jprb,2.5566e+00_jprb,2.5335e+00_jprb,2.4083e+00_jprb,2.2712e+00_jprb,2.1147e+00_jprb,&
 & 1.8770e+00_jprb,1.5356e+00_jprb,9.6607e-01_jprb/)  
kao( :, 2,10,10) = (/&
 & 2.6440e+00_jprb,2.6579e+00_jprb,2.6475e+00_jprb,2.5522e+00_jprb,2.4355e+00_jprb,2.2753e+00_jprb,&
 & 2.0432e+00_jprb,1.6979e+00_jprb,1.1107e+00_jprb/)  
kao( :, 3,10,10) = (/&
 & 2.7001e+00_jprb,2.7579e+00_jprb,2.7665e+00_jprb,2.7021e+00_jprb,2.5868e+00_jprb,2.4222e+00_jprb,&
 & 2.2111e+00_jprb,1.8498e+00_jprb,1.2644e+00_jprb/)  
kao( :, 4,10,10) = (/&
 & 2.7579e+00_jprb,2.8520e+00_jprb,2.8806e+00_jprb,2.8506e+00_jprb,2.7323e+00_jprb,2.5633e+00_jprb,&
 & 2.3644e+00_jprb,2.0104e+00_jprb,1.4137e+00_jprb/)  
kao( :, 5,10,10) = (/&
 & 2.8173e+00_jprb,2.9491e+00_jprb,2.9936e+00_jprb,2.9898e+00_jprb,2.8664e+00_jprb,2.7018e+00_jprb,&
 & 2.5230e+00_jprb,2.1562e+00_jprb,1.5648e+00_jprb/)  
kao( :, 1,11,10) = (/&
 & 2.4512e+00_jprb,2.4863e+00_jprb,2.4335e+00_jprb,2.3107e+00_jprb,2.1733e+00_jprb,1.9977e+00_jprb,&
 & 1.7582e+00_jprb,1.4416e+00_jprb,8.5970e-01_jprb/)  
kao( :, 2,11,10) = (/&
 & 2.5092e+00_jprb,2.5823e+00_jprb,2.5374e+00_jprb,2.4481e+00_jprb,2.3213e+00_jprb,2.1404e+00_jprb,&
 & 1.9153e+00_jprb,1.5898e+00_jprb,9.9211e-01_jprb/)  
kao( :, 3,11,10) = (/&
 & 2.5638e+00_jprb,2.6670e+00_jprb,2.6481e+00_jprb,2.5840e+00_jprb,2.4592e+00_jprb,2.2850e+00_jprb,&
 & 2.0595e+00_jprb,1.7358e+00_jprb,1.1287e+00_jprb/)  
kao( :, 4,11,10) = (/&
 & 2.6180e+00_jprb,2.7488e+00_jprb,2.7545e+00_jprb,2.7101e+00_jprb,2.5960e+00_jprb,2.4226e+00_jprb,&
 & 2.2050e+00_jprb,1.8751e+00_jprb,1.2713e+00_jprb/)  
kao( :, 5,11,10) = (/&
 & 2.6708e+00_jprb,2.8308e+00_jprb,2.8655e+00_jprb,2.8311e+00_jprb,2.7233e+00_jprb,2.5640e+00_jprb,&
 & 2.3410e+00_jprb,2.0028e+00_jprb,1.4162e+00_jprb/)  
kao( :, 1,12,10) = (/&
 & 2.2798e+00_jprb,2.3643e+00_jprb,2.3131e+00_jprb,2.2090e+00_jprb,2.0595e+00_jprb,1.8678e+00_jprb,&
 & 1.6491e+00_jprb,1.3284e+00_jprb,7.5824e-01_jprb/)  
kao( :, 2,12,10) = (/&
 & 2.3366e+00_jprb,2.4475e+00_jprb,2.4167e+00_jprb,2.3329e+00_jprb,2.1840e+00_jprb,2.0081e+00_jprb,&
 & 1.7907e+00_jprb,1.4613e+00_jprb,8.7475e-01_jprb/)  
kao( :, 3,12,10) = (/&
 & 2.3890e+00_jprb,2.5244e+00_jprb,2.5206e+00_jprb,2.4421e+00_jprb,2.3136e+00_jprb,2.1465e+00_jprb,&
 & 1.9227e+00_jprb,1.5932e+00_jprb,9.9953e-01_jprb/)  
kao( :, 4,12,10) = (/&
 & 2.4374e+00_jprb,2.6016e+00_jprb,2.6217e+00_jprb,2.5543e+00_jprb,2.4367e+00_jprb,2.2813e+00_jprb,&
 & 2.0490e+00_jprb,1.7139e+00_jprb,1.1310e+00_jprb/)  
kao( :, 5,12,10) = (/&
 & 2.4838e+00_jprb,2.6702e+00_jprb,2.7195e+00_jprb,2.6584e+00_jprb,2.5615e+00_jprb,2.4117e+00_jprb,&
 & 2.1613e+00_jprb,1.8334e+00_jprb,1.2595e+00_jprb/)  
kao( :, 1,13,10) = (/&
 & 2.0791e+00_jprb,2.1960e+00_jprb,2.1642e+00_jprb,2.0798e+00_jprb,1.9340e+00_jprb,1.7492e+00_jprb,&
 & 1.5316e+00_jprb,1.2117e+00_jprb,6.7239e-01_jprb/)  
kao( :, 2,13,10) = (/&
 & 2.1335e+00_jprb,2.2729e+00_jprb,2.2653e+00_jprb,2.1865e+00_jprb,2.0515e+00_jprb,1.8780e+00_jprb,&
 & 1.6557e+00_jprb,1.3290e+00_jprb,7.8385e-01_jprb/)  
kao( :, 3,13,10) = (/&
 & 2.1832e+00_jprb,2.3472e+00_jprb,2.3626e+00_jprb,2.2909e+00_jprb,2.1703e+00_jprb,1.9998e+00_jprb,&
 & 1.7751e+00_jprb,1.4395e+00_jprb,8.9988e-01_jprb/)  
kao( :, 4,13,10) = (/&
 & 2.2317e+00_jprb,2.4190e+00_jprb,2.4536e+00_jprb,2.3945e+00_jprb,2.2843e+00_jprb,2.1191e+00_jprb,&
 & 1.8849e+00_jprb,1.5486e+00_jprb,1.0181e+00_jprb/)  
kao( :, 5,13,10) = (/&
 & 2.2928e+00_jprb,2.4912e+00_jprb,2.5411e+00_jprb,2.4970e+00_jprb,2.3950e+00_jprb,2.2262e+00_jprb,&
 & 1.9945e+00_jprb,1.6570e+00_jprb,1.1340e+00_jprb/)  
kao( :, 1, 1,11) = (/&
 & 5.1188e+00_jprb,4.4962e+00_jprb,4.1898e+00_jprb,4.1232e+00_jprb,3.8282e+00_jprb,3.7520e+00_jprb,&
 & 3.8632e+00_jprb,3.7314e+00_jprb,4.2299e+00_jprb/)  
kao( :, 2, 1,11) = (/&
 & 5.2357e+00_jprb,4.6021e+00_jprb,4.3195e+00_jprb,4.2578e+00_jprb,3.9916e+00_jprb,3.9872e+00_jprb,&
 & 4.0538e+00_jprb,3.9583e+00_jprb,4.4896e+00_jprb/)  
kao( :, 3, 1,11) = (/&
 & 5.3431e+00_jprb,4.6995e+00_jprb,4.4290e+00_jprb,4.3921e+00_jprb,4.1757e+00_jprb,4.2052e+00_jprb,&
 & 4.1799e+00_jprb,4.1518e+00_jprb,4.7182e+00_jprb/)  
kao( :, 4, 1,11) = (/&
 & 5.4410e+00_jprb,4.7855e+00_jprb,4.5302e+00_jprb,4.5043e+00_jprb,4.3792e+00_jprb,4.3589e+00_jprb,&
 & 4.2659e+00_jprb,4.3498e+00_jprb,4.9265e+00_jprb/)  
kao( :, 5, 1,11) = (/&
 & 5.5309e+00_jprb,4.8636e+00_jprb,4.6308e+00_jprb,4.6226e+00_jprb,4.5553e+00_jprb,4.4731e+00_jprb,&
 & 4.3313e+00_jprb,4.5563e+00_jprb,5.1476e+00_jprb/)  
kao( :, 1, 2,11) = (/&
 & 5.3830e+00_jprb,4.7598e+00_jprb,4.5038e+00_jprb,4.4124e+00_jprb,4.1256e+00_jprb,3.9352e+00_jprb,&
 & 3.9288e+00_jprb,3.6529e+00_jprb,4.1533e+00_jprb/)  
kao( :, 2, 2,11) = (/&
 & 5.5093e+00_jprb,4.8746e+00_jprb,4.6320e+00_jprb,4.5446e+00_jprb,4.3075e+00_jprb,4.1643e+00_jprb,&
 & 4.1158e+00_jprb,3.8793e+00_jprb,4.4270e+00_jprb/)  
kao( :, 3, 2,11) = (/&
 & 5.6175e+00_jprb,4.9740e+00_jprb,4.7438e+00_jprb,4.6765e+00_jprb,4.5041e+00_jprb,4.3624e+00_jprb,&
 & 4.2461e+00_jprb,4.1118e+00_jprb,4.6851e+00_jprb/)  
kao( :, 4, 2,11) = (/&
 & 5.7157e+00_jprb,5.0593e+00_jprb,4.8530e+00_jprb,4.7924e+00_jprb,4.7291e+00_jprb,4.5102e+00_jprb,&
 & 4.3461e+00_jprb,4.3454e+00_jprb,4.9401e+00_jprb/)  
kao( :, 5, 2,11) = (/&
 & 5.8004e+00_jprb,5.1349e+00_jprb,4.9550e+00_jprb,4.9255e+00_jprb,4.9201e+00_jprb,4.6238e+00_jprb,&
 & 4.4516e+00_jprb,4.5890e+00_jprb,5.2057e+00_jprb/)  
kao( :, 1, 3,11) = (/&
 & 5.5164e+00_jprb,4.9212e+00_jprb,4.7297e+00_jprb,4.6037e+00_jprb,4.3740e+00_jprb,4.1348e+00_jprb,&
 & 3.8407e+00_jprb,3.5074e+00_jprb,3.9068e+00_jprb/)  
kao( :, 2, 3,11) = (/&
 & 5.6457e+00_jprb,5.0403e+00_jprb,4.8708e+00_jprb,4.7481e+00_jprb,4.5713e+00_jprb,4.3408e+00_jprb,&
 & 4.0590e+00_jprb,3.7279e+00_jprb,4.2270e+00_jprb/)  
kao( :, 3, 3,11) = (/&
 & 5.7648e+00_jprb,5.1472e+00_jprb,4.9917e+00_jprb,4.8917e+00_jprb,4.7668e+00_jprb,4.5432e+00_jprb,&
 & 4.2248e+00_jprb,3.9671e+00_jprb,4.5272e+00_jprb/)  
kao( :, 4, 3,11) = (/&
 & 5.8726e+00_jprb,5.2450e+00_jprb,5.1073e+00_jprb,5.0262e+00_jprb,4.9765e+00_jprb,4.7078e+00_jprb,&
 & 4.3673e+00_jprb,4.2265e+00_jprb,4.8206e+00_jprb/)  
kao( :, 5, 3,11) = (/&
 & 5.9741e+00_jprb,5.3354e+00_jprb,5.2185e+00_jprb,5.1809e+00_jprb,5.1510e+00_jprb,4.8375e+00_jprb,&
 & 4.4951e+00_jprb,4.4978e+00_jprb,5.1274e+00_jprb/)  
kao( :, 1, 4,11) = (/&
 & 5.5586e+00_jprb,4.9938e+00_jprb,4.8775e+00_jprb,4.7228e+00_jprb,4.5678e+00_jprb,4.2888e+00_jprb,&
 & 3.7572e+00_jprb,3.3686e+00_jprb,3.6371e+00_jprb/)  
kao( :, 2, 4,11) = (/&
 & 5.7048e+00_jprb,5.1254e+00_jprb,5.0246e+00_jprb,4.8865e+00_jprb,4.7638e+00_jprb,4.4945e+00_jprb,&
 & 3.9733e+00_jprb,3.5886e+00_jprb,3.9962e+00_jprb/)  
kao( :, 3, 4,11) = (/&
 & 5.8381e+00_jprb,5.2468e+00_jprb,5.1587e+00_jprb,5.0517e+00_jprb,4.9564e+00_jprb,4.6974e+00_jprb,&
 & 4.1859e+00_jprb,3.8140e+00_jprb,4.3209e+00_jprb/)  
kao( :, 4, 4,11) = (/&
 & 5.9605e+00_jprb,5.3609e+00_jprb,5.2847e+00_jprb,5.2114e+00_jprb,5.1284e+00_jprb,4.8993e+00_jprb,&
 & 4.3580e+00_jprb,4.0704e+00_jprb,4.6439e+00_jprb/)  
kao( :, 5, 4,11) = (/&
 & 6.0637e+00_jprb,5.4599e+00_jprb,5.4065e+00_jprb,5.3711e+00_jprb,5.2958e+00_jprb,5.0595e+00_jprb,&
 & 4.5112e+00_jprb,4.3517e+00_jprb,4.9660e+00_jprb/)  

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


SUBROUTINE part8

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


kao( :, 1, 5,11) = (/&
 & 5.5140e+00_jprb,4.9813e+00_jprb,4.9335e+00_jprb,4.7913e+00_jprb,4.6774e+00_jprb,4.3710e+00_jprb,&
 & 3.7530e+00_jprb,3.2477e+00_jprb,3.3634e+00_jprb/)  
kao( :, 2, 5,11) = (/&
 & 5.6664e+00_jprb,5.1255e+00_jprb,5.1035e+00_jprb,4.9717e+00_jprb,4.8774e+00_jprb,4.5859e+00_jprb,&
 & 3.9668e+00_jprb,3.4677e+00_jprb,3.7405e+00_jprb/)  
kao( :, 3, 5,11) = (/&
 & 5.8011e+00_jprb,5.2612e+00_jprb,5.2545e+00_jprb,5.1514e+00_jprb,5.0632e+00_jprb,4.7735e+00_jprb,&
 & 4.2022e+00_jprb,3.6795e+00_jprb,4.0879e+00_jprb/)  
kao( :, 4, 5,11) = (/&
 & 5.9195e+00_jprb,5.3879e+00_jprb,5.3990e+00_jprb,5.3253e+00_jprb,5.2340e+00_jprb,4.9702e+00_jprb,&
 & 4.4129e+00_jprb,3.9016e+00_jprb,4.4176e+00_jprb/)  
kao( :, 5, 5,11) = (/&
 & 6.0324e+00_jprb,5.5030e+00_jprb,5.5351e+00_jprb,5.4951e+00_jprb,5.4012e+00_jprb,5.1456e+00_jprb,&
 & 4.5860e+00_jprb,4.1610e+00_jprb,4.7497e+00_jprb/)  
kao( :, 1, 6,11) = (/&
 & 5.3460e+00_jprb,4.8907e+00_jprb,4.9037e+00_jprb,4.7959e+00_jprb,4.6720e+00_jprb,4.3428e+00_jprb,&
 & 3.7532e+00_jprb,3.0728e+00_jprb,3.0483e+00_jprb/)  
kao( :, 2, 6,11) = (/&
 & 5.5016e+00_jprb,5.0576e+00_jprb,5.0845e+00_jprb,4.9968e+00_jprb,4.8768e+00_jprb,4.5629e+00_jprb,&
 & 3.9805e+00_jprb,3.3257e+00_jprb,3.4138e+00_jprb/)  
kao( :, 3, 6,11) = (/&
 & 5.6458e+00_jprb,5.2128e+00_jprb,5.2471e+00_jprb,5.1892e+00_jprb,5.0839e+00_jprb,4.7513e+00_jprb,&
 & 4.2341e+00_jprb,3.5158e+00_jprb,3.7567e+00_jprb/)  
kao( :, 4, 6,11) = (/&
 & 5.7776e+00_jprb,5.3547e+00_jprb,5.4002e+00_jprb,5.3806e+00_jprb,5.2566e+00_jprb,4.9480e+00_jprb,&
 & 4.4656e+00_jprb,3.7111e+00_jprb,4.0913e+00_jprb/)  
kao( :, 5, 6,11) = (/&
 & 5.8886e+00_jprb,5.4776e+00_jprb,5.5415e+00_jprb,5.5583e+00_jprb,5.4285e+00_jprb,5.1330e+00_jprb,&
 & 4.6590e+00_jprb,3.9360e+00_jprb,4.4349e+00_jprb/)  
kao( :, 1, 7,11) = (/&
 & 5.0900e+00_jprb,4.7460e+00_jprb,4.7704e+00_jprb,4.7424e+00_jprb,4.5661e+00_jprb,4.2208e+00_jprb,&
 & 3.7025e+00_jprb,2.9233e+00_jprb,2.7128e+00_jprb/)  
kao( :, 2, 7,11) = (/&
 & 5.2495e+00_jprb,4.9306e+00_jprb,4.9678e+00_jprb,4.9514e+00_jprb,4.7835e+00_jprb,4.4516e+00_jprb,&
 & 3.9503e+00_jprb,3.1699e+00_jprb,3.0368e+00_jprb/)  
kao( :, 3, 7,11) = (/&
 & 5.3908e+00_jprb,5.0938e+00_jprb,5.1429e+00_jprb,5.1559e+00_jprb,4.9966e+00_jprb,4.6413e+00_jprb,&
 & 4.2020e+00_jprb,3.3718e+00_jprb,3.3561e+00_jprb/)  
kao( :, 4, 7,11) = (/&
 & 5.5155e+00_jprb,5.2363e+00_jprb,5.3032e+00_jprb,5.3596e+00_jprb,5.1777e+00_jprb,4.8555e+00_jprb,&
 & 4.4333e+00_jprb,3.5353e+00_jprb,3.6838e+00_jprb/)  
kao( :, 5, 7,11) = (/&
 & 5.6325e+00_jprb,5.3617e+00_jprb,5.4630e+00_jprb,5.5298e+00_jprb,5.3705e+00_jprb,5.0766e+00_jprb,&
 & 4.6290e+00_jprb,3.7252e+00_jprb,4.0295e+00_jprb/)  
kao( :, 1, 8,11) = (/&
 & 4.7924e+00_jprb,4.5440e+00_jprb,4.5871e+00_jprb,4.5972e+00_jprb,4.3821e+00_jprb,4.0282e+00_jprb,&
 & 3.5782e+00_jprb,2.8267e+00_jprb,2.3643e+00_jprb/)  
kao( :, 2, 8,11) = (/&
 & 4.9458e+00_jprb,4.7238e+00_jprb,4.7983e+00_jprb,4.8145e+00_jprb,4.6002e+00_jprb,4.2694e+00_jprb,&
 & 3.8266e+00_jprb,3.0607e+00_jprb,2.6625e+00_jprb/)  
kao( :, 3, 8,11) = (/&
 & 5.0872e+00_jprb,4.8848e+00_jprb,4.9881e+00_jprb,5.0206e+00_jprb,4.8258e+00_jprb,4.4891e+00_jprb,&
 & 4.0830e+00_jprb,3.2647e+00_jprb,2.9566e+00_jprb/)  
kao( :, 4, 8,11) = (/&
 & 5.2177e+00_jprb,5.0262e+00_jprb,5.1648e+00_jprb,5.2193e+00_jprb,5.0190e+00_jprb,4.7309e+00_jprb,&
 & 4.3124e+00_jprb,3.4443e+00_jprb,3.2673e+00_jprb/)  
kao( :, 5, 8,11) = (/&
 & 5.3303e+00_jprb,5.1466e+00_jprb,5.3381e+00_jprb,5.3870e+00_jprb,5.2200e+00_jprb,4.9620e+00_jprb,&
 & 4.5031e+00_jprb,3.6204e+00_jprb,3.6052e+00_jprb/)  
kao( :, 1, 9,11) = (/&
 & 4.5347e+00_jprb,4.3328e+00_jprb,4.3689e+00_jprb,4.3513e+00_jprb,4.1174e+00_jprb,3.7868e+00_jprb,&
 & 3.3737e+00_jprb,2.7015e+00_jprb,2.0218e+00_jprb/)  
kao( :, 2, 9,11) = (/&
 & 4.6866e+00_jprb,4.5049e+00_jprb,4.5898e+00_jprb,4.5628e+00_jprb,4.3507e+00_jprb,4.0425e+00_jprb,&
 & 3.6252e+00_jprb,2.9347e+00_jprb,2.3048e+00_jprb/)  
kao( :, 3, 9,11) = (/&
 & 4.8251e+00_jprb,4.6663e+00_jprb,4.7848e+00_jprb,4.7704e+00_jprb,4.5826e+00_jprb,4.2849e+00_jprb,&
 & 3.8759e+00_jprb,3.1451e+00_jprb,2.5879e+00_jprb/)  
kao( :, 4, 9,11) = (/&
 & 4.9503e+00_jprb,4.8087e+00_jprb,4.9642e+00_jprb,4.9727e+00_jprb,4.7915e+00_jprb,4.5387e+00_jprb,&
 & 4.1015e+00_jprb,3.3321e+00_jprb,2.8859e+00_jprb/)  
kao( :, 5, 9,11) = (/&
 & 5.0642e+00_jprb,4.9400e+00_jprb,5.1410e+00_jprb,5.1452e+00_jprb,5.0116e+00_jprb,4.7755e+00_jprb,&
 & 4.3020e+00_jprb,3.5123e+00_jprb,3.1955e+00_jprb/)  
kao( :, 1,10,11) = (/&
 & 4.3141e+00_jprb,4.1481e+00_jprb,4.1872e+00_jprb,4.0732e+00_jprb,3.8258e+00_jprb,3.5260e+00_jprb,&
 & 3.1443e+00_jprb,2.5485e+00_jprb,1.7391e+00_jprb/)  
kao( :, 2,10,11) = (/&
 & 4.4657e+00_jprb,4.3291e+00_jprb,4.4068e+00_jprb,4.2778e+00_jprb,4.0645e+00_jprb,3.7865e+00_jprb,&
 & 3.3989e+00_jprb,2.7666e+00_jprb,2.0042e+00_jprb/)  
kao( :, 3,10,11) = (/&
 & 4.6073e+00_jprb,4.4901e+00_jprb,4.5937e+00_jprb,4.4815e+00_jprb,4.3022e+00_jprb,4.0396e+00_jprb,&
 & 3.6341e+00_jprb,2.9783e+00_jprb,2.2696e+00_jprb/)  
kao( :, 4,10,11) = (/&
 & 4.7332e+00_jprb,4.6441e+00_jprb,4.7670e+00_jprb,4.6811e+00_jprb,4.5263e+00_jprb,4.2880e+00_jprb,&
 & 3.8564e+00_jprb,3.1687e+00_jprb,2.5448e+00_jprb/)  
kao( :, 5,10,11) = (/&
 & 4.8482e+00_jprb,4.7816e+00_jprb,4.9366e+00_jprb,4.8606e+00_jprb,4.7563e+00_jprb,4.5121e+00_jprb,&
 & 4.0582e+00_jprb,3.3600e+00_jprb,2.8205e+00_jprb/)  
kao( :, 1,11,11) = (/&
 & 4.1814e+00_jprb,4.0541e+00_jprb,4.0844e+00_jprb,3.9070e+00_jprb,3.6510e+00_jprb,3.3593e+00_jprb,&
 & 3.0020e+00_jprb,2.4435e+00_jprb,1.5974e+00_jprb/)  
kao( :, 2,11,11) = (/&
 & 4.3118e+00_jprb,4.2274e+00_jprb,4.2869e+00_jprb,4.1141e+00_jprb,3.8852e+00_jprb,3.6134e+00_jprb,&
 & 3.2400e+00_jprb,2.6533e+00_jprb,1.8419e+00_jprb/)  
kao( :, 3,11,11) = (/&
 & 4.4319e+00_jprb,4.3935e+00_jprb,4.4651e+00_jprb,4.3182e+00_jprb,4.1137e+00_jprb,3.8517e+00_jprb,&
 & 3.4603e+00_jprb,2.8608e+00_jprb,2.0902e+00_jprb/)  
kao( :, 4,11,11) = (/&
 & 4.5390e+00_jprb,4.5400e+00_jprb,4.6448e+00_jprb,4.5087e+00_jprb,4.3372e+00_jprb,4.0750e+00_jprb,&
 & 3.6707e+00_jprb,3.0507e+00_jprb,2.3393e+00_jprb/)  
kao( :, 5,11,11) = (/&
 & 4.6299e+00_jprb,4.6729e+00_jprb,4.7998e+00_jprb,4.6995e+00_jprb,4.5508e+00_jprb,4.2784e+00_jprb,&
 & 3.8764e+00_jprb,3.2454e+00_jprb,2.5677e+00_jprb/)  
kao( :, 1,12,11) = (/&
 & 4.0099e+00_jprb,3.9422e+00_jprb,3.9403e+00_jprb,3.7407e+00_jprb,3.4918e+00_jprb,3.1976e+00_jprb,&
 & 2.8203e+00_jprb,2.3020e+00_jprb,1.4455e+00_jprb/)  
kao( :, 2,12,11) = (/&
 & 4.1176e+00_jprb,4.1055e+00_jprb,4.1224e+00_jprb,3.9486e+00_jprb,3.7245e+00_jprb,3.4270e+00_jprb,&
 & 3.0337e+00_jprb,2.5124e+00_jprb,1.6679e+00_jprb/)  
kao( :, 3,12,11) = (/&
 & 4.2129e+00_jprb,4.2545e+00_jprb,4.2966e+00_jprb,4.1603e+00_jprb,3.9419e+00_jprb,3.6332e+00_jprb,&
 & 3.2538e+00_jprb,2.7031e+00_jprb,1.8904e+00_jprb/)  
kao( :, 4,12,11) = (/&
 & 4.2979e+00_jprb,4.3881e+00_jprb,4.4616e+00_jprb,4.3568e+00_jprb,4.1443e+00_jprb,3.8364e+00_jprb,&
 & 3.4615e+00_jprb,2.8971e+00_jprb,2.1003e+00_jprb/)  
kao( :, 5,12,11) = (/&
 & 4.3757e+00_jprb,4.5140e+00_jprb,4.6083e+00_jprb,4.5481e+00_jprb,4.3321e+00_jprb,4.0278e+00_jprb,&
 & 3.6672e+00_jprb,3.0746e+00_jprb,2.3111e+00_jprb/)  
kao( :, 1,13,11) = (/&
 & 3.8115e+00_jprb,3.8123e+00_jprb,3.7564e+00_jprb,3.5672e+00_jprb,3.3321e+00_jprb,3.0260e+00_jprb,&
 & 2.6276e+00_jprb,2.1465e+00_jprb,1.2822e+00_jprb/)  
kao( :, 2,13,11) = (/&
 & 3.9006e+00_jprb,3.9563e+00_jprb,3.9216e+00_jprb,3.7726e+00_jprb,3.5504e+00_jprb,3.2297e+00_jprb,&
 & 2.8365e+00_jprb,2.3385e+00_jprb,1.4776e+00_jprb/)  
kao( :, 3,13,11) = (/&
 & 3.9788e+00_jprb,4.0838e+00_jprb,4.0868e+00_jprb,3.9664e+00_jprb,3.7467e+00_jprb,3.4326e+00_jprb,&
 & 3.0397e+00_jprb,2.5221e+00_jprb,1.6670e+00_jprb/)  
kao( :, 4,13,11) = (/&
 & 4.0518e+00_jprb,4.2003e+00_jprb,4.2397e+00_jprb,4.1476e+00_jprb,3.9371e+00_jprb,3.6284e+00_jprb,&
 & 3.2340e+00_jprb,2.6989e+00_jprb,1.8578e+00_jprb/)  
kao( :, 5,13,11) = (/&
 & 4.1173e+00_jprb,4.3105e+00_jprb,4.3846e+00_jprb,4.3176e+00_jprb,4.1129e+00_jprb,3.8156e+00_jprb,&
 & 3.4246e+00_jprb,2.8636e+00_jprb,2.0525e+00_jprb/)  
kao( :, 1, 1,12) = (/&
 & 7.0750e+00_jprb,6.1912e+00_jprb,5.5399e+00_jprb,5.3350e+00_jprb,5.4706e+00_jprb,5.3762e+00_jprb,&
 & 5.1145e+00_jprb,5.3782e+00_jprb,6.0148e+00_jprb/)  
kao( :, 2, 1,12) = (/&
 & 7.2687e+00_jprb,6.3607e+00_jprb,5.6891e+00_jprb,5.4701e+00_jprb,5.6126e+00_jprb,5.5473e+00_jprb,&
 & 5.2734e+00_jprb,5.8115e+00_jprb,6.4886e+00_jprb/)  
kao( :, 3, 1,12) = (/&
 & 7.4429e+00_jprb,6.5131e+00_jprb,5.8367e+00_jprb,5.5928e+00_jprb,5.7515e+00_jprb,5.7097e+00_jprb,&
 & 5.5260e+00_jprb,6.2806e+00_jprb,6.9951e+00_jprb/)  
kao( :, 4, 1,12) = (/&
 & 7.6028e+00_jprb,6.6530e+00_jprb,5.9756e+00_jprb,5.7243e+00_jprb,5.8730e+00_jprb,5.9264e+00_jprb,&
 & 5.8242e+00_jprb,6.7348e+00_jprb,7.5240e+00_jprb/)  
kao( :, 5, 1,12) = (/&
 & 7.7448e+00_jprb,6.7771e+00_jprb,6.1045e+00_jprb,5.8318e+00_jprb,6.0223e+00_jprb,6.1431e+00_jprb,&
 & 6.1145e+00_jprb,7.1272e+00_jprb,7.9899e+00_jprb/)  
kao( :, 1, 2,12) = (/&
 & 7.7545e+00_jprb,6.7857e+00_jprb,6.1014e+00_jprb,5.8641e+00_jprb,5.6627e+00_jprb,5.4924e+00_jprb,&
 & 5.3064e+00_jprb,5.5478e+00_jprb,6.2448e+00_jprb/)  
kao( :, 2, 2,12) = (/&
 & 7.9626e+00_jprb,6.9679e+00_jprb,6.2884e+00_jprb,6.0331e+00_jprb,5.8184e+00_jprb,5.6805e+00_jprb,&
 & 5.5037e+00_jprb,5.9946e+00_jprb,6.7468e+00_jprb/)  
kao( :, 3, 2,12) = (/&
 & 8.1571e+00_jprb,7.1382e+00_jprb,6.4613e+00_jprb,6.1841e+00_jprb,5.9708e+00_jprb,5.8941e+00_jprb,&
 & 5.7532e+00_jprb,6.4635e+00_jprb,7.2816e+00_jprb/)  
kao( :, 4, 2,12) = (/&
 & 8.3326e+00_jprb,7.2918e+00_jprb,6.6225e+00_jprb,6.3365e+00_jprb,6.0835e+00_jprb,6.1383e+00_jprb,&
 & 6.0067e+00_jprb,6.8804e+00_jprb,7.7820e+00_jprb/)  
kao( :, 5, 2,12) = (/&
 & 8.4888e+00_jprb,7.4285e+00_jprb,6.7684e+00_jprb,6.4625e+00_jprb,6.2260e+00_jprb,6.3461e+00_jprb,&
 & 6.2452e+00_jprb,7.2451e+00_jprb,8.2111e+00_jprb/)  
kao( :, 1, 3,12) = (/&
 & 8.3602e+00_jprb,7.3163e+00_jprb,6.6388e+00_jprb,6.3825e+00_jprb,5.9192e+00_jprb,5.5791e+00_jprb,&
 & 5.5047e+00_jprb,5.5786e+00_jprb,6.3479e+00_jprb/)  
kao( :, 2, 3,12) = (/&
 & 8.5890e+00_jprb,7.5183e+00_jprb,6.8453e+00_jprb,6.5628e+00_jprb,6.0922e+00_jprb,5.8078e+00_jprb,&
 & 5.7041e+00_jprb,6.0248e+00_jprb,6.8536e+00_jprb/)  
kao( :, 3, 3,12) = (/&
 & 8.7942e+00_jprb,7.6989e+00_jprb,7.0385e+00_jprb,6.7230e+00_jprb,6.2576e+00_jprb,6.0242e+00_jprb,&
 & 5.9018e+00_jprb,6.4818e+00_jprb,7.3747e+00_jprb/)  
kao( :, 4, 3,12) = (/&
 & 8.9740e+00_jprb,7.8579e+00_jprb,7.2067e+00_jprb,6.8812e+00_jprb,6.4038e+00_jprb,6.2630e+00_jprb,&
 & 6.1272e+00_jprb,6.9158e+00_jprb,7.8669e+00_jprb/)  
kao( :, 5, 3,12) = (/&
 & 9.1236e+00_jprb,7.9895e+00_jprb,7.3566e+00_jprb,7.0154e+00_jprb,6.5927e+00_jprb,6.4547e+00_jprb,&
 & 6.3294e+00_jprb,7.2767e+00_jprb,8.2820e+00_jprb/)  
kao( :, 1, 4,12) = (/&
 & 8.8847e+00_jprb,7.7960e+00_jprb,7.1075e+00_jprb,6.8009e+00_jprb,6.2444e+00_jprb,5.7477e+00_jprb,&
 & 5.6301e+00_jprb,5.4141e+00_jprb,6.1834e+00_jprb/)  
kao( :, 2, 4,12) = (/&
 & 9.1116e+00_jprb,7.9999e+00_jprb,7.3356e+00_jprb,7.0007e+00_jprb,6.4482e+00_jprb,5.9737e+00_jprb,&
 & 5.8408e+00_jprb,5.8678e+00_jprb,6.6961e+00_jprb/)  
kao( :, 3, 4,12) = (/&
 & 9.3094e+00_jprb,8.1759e+00_jprb,7.5373e+00_jprb,7.1726e+00_jprb,6.6509e+00_jprb,6.2012e+00_jprb,&
 & 5.9911e+00_jprb,6.3277e+00_jprb,7.2196e+00_jprb/)  
kao( :, 4, 4,12) = (/&
 & 9.4683e+00_jprb,8.3188e+00_jprb,7.7174e+00_jprb,7.3409e+00_jprb,6.8481e+00_jprb,6.3961e+00_jprb,&
 & 6.1664e+00_jprb,6.7597e+00_jprb,7.7146e+00_jprb/)  
kao( :, 5, 4,12) = (/&
 & 9.6042e+00_jprb,8.4435e+00_jprb,7.8581e+00_jprb,7.4916e+00_jprb,7.0560e+00_jprb,6.5810e+00_jprb,&
 & 6.3225e+00_jprb,7.1406e+00_jprb,8.1513e+00_jprb/)  
kao( :, 1, 5,12) = (/&
 & 9.2292e+00_jprb,8.1377e+00_jprb,7.4945e+00_jprb,7.1495e+00_jprb,6.5484e+00_jprb,5.9913e+00_jprb,&
 & 5.6165e+00_jprb,5.1149e+00_jprb,5.8309e+00_jprb/)  
kao( :, 2, 5,12) = (/&
 & 9.4577e+00_jprb,8.3475e+00_jprb,7.7472e+00_jprb,7.3686e+00_jprb,6.7878e+00_jprb,6.2469e+00_jprb,&
 & 5.8285e+00_jprb,5.5605e+00_jprb,6.3475e+00_jprb/)  
kao( :, 3, 5,12) = (/&
 & 9.6601e+00_jprb,8.5348e+00_jprb,7.9661e+00_jprb,7.5611e+00_jprb,7.0335e+00_jprb,6.4923e+00_jprb,&
 & 5.9827e+00_jprb,5.9978e+00_jprb,6.8470e+00_jprb/)  
kao( :, 4, 5,12) = (/&
 & 9.8370e+00_jprb,8.6956e+00_jprb,8.1396e+00_jprb,7.7502e+00_jprb,7.2566e+00_jprb,6.6903e+00_jprb,&
 & 6.1155e+00_jprb,6.4492e+00_jprb,7.3614e+00_jprb/)  
kao( :, 5, 5,12) = (/&
 & 9.9720e+00_jprb,8.8165e+00_jprb,8.2799e+00_jprb,7.9327e+00_jprb,7.4895e+00_jprb,6.8872e+00_jprb,&
 & 6.2655e+00_jprb,6.8604e+00_jprb,7.8326e+00_jprb/)  
kao( :, 1, 6,12) = (/&
 & 9.4228e+00_jprb,8.3583e+00_jprb,7.7791e+00_jprb,7.3895e+00_jprb,6.8260e+00_jprb,6.2621e+00_jprb,&
 & 5.5219e+00_jprb,4.8043e+00_jprb,5.3717e+00_jprb/)  
kao( :, 2, 6,12) = (/&
 & 9.6680e+00_jprb,8.5862e+00_jprb,8.0441e+00_jprb,7.6459e+00_jprb,7.1022e+00_jprb,6.5301e+00_jprb,&
 & 5.7540e+00_jprb,5.1597e+00_jprb,5.8750e+00_jprb/)  
kao( :, 3, 6,12) = (/&
 & 9.8647e+00_jprb,8.7696e+00_jprb,8.2709e+00_jprb,7.8751e+00_jprb,7.3582e+00_jprb,6.7963e+00_jprb,&
 & 5.9278e+00_jprb,5.6000e+00_jprb,6.3870e+00_jprb/)  
kao( :, 4, 6,12) = (/&
 & 1.0026e+01_jprb,8.9182e+00_jprb,8.4588e+00_jprb,8.0791e+00_jprb,7.6205e+00_jprb,7.0216e+00_jprb,&
 & 6.0965e+00_jprb,6.0596e+00_jprb,6.9174e+00_jprb/)  
kao( :, 5, 6,12) = (/&
 & 1.0167e+01_jprb,9.0497e+00_jprb,8.6148e+00_jprb,8.2660e+00_jprb,7.8544e+00_jprb,7.2260e+00_jprb,&
 & 6.2428e+00_jprb,6.4815e+00_jprb,7.4016e+00_jprb/)  
kao( :, 1, 7,12) = (/&
 & 9.4277e+00_jprb,8.4150e+00_jprb,7.9357e+00_jprb,7.5305e+00_jprb,7.0405e+00_jprb,6.4321e+00_jprb,&
 & 5.4684e+00_jprb,4.5169e+00_jprb,4.8723e+00_jprb/)  
kao( :, 2, 7,12) = (/&
 & 9.6610e+00_jprb,8.6378e+00_jprb,8.2182e+00_jprb,7.8169e+00_jprb,7.3595e+00_jprb,6.7122e+00_jprb,&
 & 5.7318e+00_jprb,4.8302e+00_jprb,5.4033e+00_jprb/)  
kao( :, 3, 7,12) = (/&
 & 9.8776e+00_jprb,8.8386e+00_jprb,8.4643e+00_jprb,8.0697e+00_jprb,7.6404e+00_jprb,7.0024e+00_jprb,&
 & 5.9545e+00_jprb,5.2084e+00_jprb,5.9332e+00_jprb/)  
kao( :, 4, 7,12) = (/&
 & 1.0065e+01_jprb,9.0111e+00_jprb,8.6669e+00_jprb,8.2878e+00_jprb,7.9176e+00_jprb,7.2460e+00_jprb,&
 & 6.1780e+00_jprb,5.6640e+00_jprb,6.4647e+00_jprb/)  
kao( :, 5, 7,12) = (/&
 & 1.0201e+01_jprb,9.1389e+00_jprb,8.8345e+00_jprb,8.5103e+00_jprb,8.1626e+00_jprb,7.4581e+00_jprb,&
 & 6.4020e+00_jprb,6.0910e+00_jprb,6.9537e+00_jprb/)  
kao( :, 1, 8,12) = (/&
 & 9.2811e+00_jprb,8.3345e+00_jprb,7.9563e+00_jprb,7.5592e+00_jprb,7.1819e+00_jprb,6.4953e+00_jprb,&
 & 5.4582e+00_jprb,4.2950e+00_jprb,4.3920e+00_jprb/)  
kao( :, 2, 8,12) = (/&
 & 9.5392e+00_jprb,8.5773e+00_jprb,8.2536e+00_jprb,7.8937e+00_jprb,7.5195e+00_jprb,6.7954e+00_jprb,&
 & 5.7637e+00_jprb,4.5610e+00_jprb,4.9202e+00_jprb/)  
kao( :, 3, 8,12) = (/&
 & 9.7485e+00_jprb,8.7863e+00_jprb,8.5113e+00_jprb,8.1791e+00_jprb,7.8003e+00_jprb,7.1017e+00_jprb,&
 & 6.0337e+00_jprb,4.8844e+00_jprb,5.4469e+00_jprb/)  
kao( :, 4, 8,12) = (/&
 & 9.9204e+00_jprb,8.9649e+00_jprb,8.7333e+00_jprb,8.4326e+00_jprb,8.0879e+00_jprb,7.3644e+00_jprb,&
 & 6.2970e+00_jprb,5.2617e+00_jprb,5.9740e+00_jprb/)  
kao( :, 5, 8,12) = (/&
 & 1.0071e+01_jprb,9.1243e+00_jprb,8.9157e+00_jprb,8.6785e+00_jprb,8.3414e+00_jprb,7.5947e+00_jprb,&
 & 6.5710e+00_jprb,5.6445e+00_jprb,6.4414e+00_jprb/)  
kao( :, 1, 9,12) = (/&
 & 8.9609e+00_jprb,8.1123e+00_jprb,7.8302e+00_jprb,7.5091e+00_jprb,7.1654e+00_jprb,6.4417e+00_jprb,&
 & 5.3958e+00_jprb,4.1476e+00_jprb,3.9139e+00_jprb/)  
kao( :, 2, 9,12) = (/&
 & 9.2116e+00_jprb,8.3782e+00_jprb,8.1493e+00_jprb,7.8784e+00_jprb,7.5112e+00_jprb,6.7501e+00_jprb,&
 & 5.7326e+00_jprb,4.3938e+00_jprb,4.4110e+00_jprb/)  
kao( :, 3, 9,12) = (/&
 & 9.4264e+00_jprb,8.6064e+00_jprb,8.4239e+00_jprb,8.1936e+00_jprb,7.8020e+00_jprb,7.0726e+00_jprb,&
 & 6.0450e+00_jprb,4.6670e+00_jprb,4.9111e+00_jprb/)  
kao( :, 4, 9,12) = (/&
 & 9.6121e+00_jprb,8.8121e+00_jprb,8.6565e+00_jprb,8.4692e+00_jprb,8.1000e+00_jprb,7.3553e+00_jprb,&
 & 6.3481e+00_jprb,4.9681e+00_jprb,5.3926e+00_jprb/)  
kao( :, 5, 9,12) = (/&
 & 9.7546e+00_jprb,8.9755e+00_jprb,8.8628e+00_jprb,8.7297e+00_jprb,8.3623e+00_jprb,7.6149e+00_jprb,&
 & 6.6558e+00_jprb,5.2826e+00_jprb,5.8453e+00_jprb/)  
kao( :, 1,10,12) = (/&
 & 8.5361e+00_jprb,7.8147e+00_jprb,7.5979e+00_jprb,7.3794e+00_jprb,7.0310e+00_jprb,6.2793e+00_jprb,&
 & 5.2791e+00_jprb,4.0318e+00_jprb,3.4661e+00_jprb/)  
kao( :, 2,10,12) = (/&
 & 8.7722e+00_jprb,8.0890e+00_jprb,7.9244e+00_jprb,7.7654e+00_jprb,7.3651e+00_jprb,6.6087e+00_jprb,&
 & 5.6393e+00_jprb,4.3325e+00_jprb,3.9297e+00_jprb/)  
kao( :, 3,10,12) = (/&
 & 8.9854e+00_jprb,8.3416e+00_jprb,8.2149e+00_jprb,8.1092e+00_jprb,7.6681e+00_jprb,6.9412e+00_jprb,&
 & 5.9891e+00_jprb,4.5941e+00_jprb,4.3794e+00_jprb/)  
kao( :, 4,10,12) = (/&
 & 9.1549e+00_jprb,8.5424e+00_jprb,8.4801e+00_jprb,8.3931e+00_jprb,7.9670e+00_jprb,7.2576e+00_jprb,&
 & 6.3219e+00_jprb,4.8394e+00_jprb,4.8247e+00_jprb/)  
kao( :, 5,10,12) = (/&
 & 9.2930e+00_jprb,8.7150e+00_jprb,8.6983e+00_jprb,8.6747e+00_jprb,8.2356e+00_jprb,7.5515e+00_jprb,&
 & 6.6530e+00_jprb,5.0978e+00_jprb,5.2580e+00_jprb/)  
kao( :, 1,11,12) = (/&
 & 8.1665e+00_jprb,7.5900e+00_jprb,7.4402e+00_jprb,7.3130e+00_jprb,6.8936e+00_jprb,6.1750e+00_jprb,&
 & 5.2487e+00_jprb,4.0527e+00_jprb,3.2183e+00_jprb/)  
kao( :, 2,11,12) = (/&
 & 8.3894e+00_jprb,7.8591e+00_jprb,7.7685e+00_jprb,7.6781e+00_jprb,7.2197e+00_jprb,6.5157e+00_jprb,&
 & 5.6333e+00_jprb,4.3626e+00_jprb,3.6379e+00_jprb/)  

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


SUBROUTINE part9

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


kao( :, 3,11,12) = (/&
 & 8.5776e+00_jprb,8.0897e+00_jprb,8.0638e+00_jprb,7.9845e+00_jprb,7.5334e+00_jprb,6.8745e+00_jprb,&
 & 5.9959e+00_jprb,4.6206e+00_jprb,4.0541e+00_jprb/)  
kao( :, 4,11,12) = (/&
 & 8.7343e+00_jprb,8.2889e+00_jprb,8.3048e+00_jprb,8.2761e+00_jprb,7.8416e+00_jprb,7.2002e+00_jprb,&
 & 6.3426e+00_jprb,4.8817e+00_jprb,4.4717e+00_jprb/)  
kao( :, 5,11,12) = (/&
 & 8.8713e+00_jprb,8.4483e+00_jprb,8.5341e+00_jprb,8.5312e+00_jprb,8.1167e+00_jprb,7.5296e+00_jprb,&
 & 6.6477e+00_jprb,5.1325e+00_jprb,4.9081e+00_jprb/)  
kao( :, 1,12,12) = (/&
 & 7.8094e+00_jprb,7.3653e+00_jprb,7.2542e+00_jprb,7.0902e+00_jprb,6.6433e+00_jprb,5.9686e+00_jprb,&
 & 5.1635e+00_jprb,4.0194e+00_jprb,2.9475e+00_jprb/)  
kao( :, 2,12,12) = (/&
 & 8.0117e+00_jprb,7.6155e+00_jprb,7.5651e+00_jprb,7.4151e+00_jprb,6.9696e+00_jprb,6.3450e+00_jprb,&
 & 5.5476e+00_jprb,4.3129e+00_jprb,3.3366e+00_jprb/)  
kao( :, 3,12,12) = (/&
 & 8.1910e+00_jprb,7.8328e+00_jprb,7.8418e+00_jprb,7.7049e+00_jprb,7.2969e+00_jprb,6.7155e+00_jprb,&
 & 5.8961e+00_jprb,4.5906e+00_jprb,3.7405e+00_jprb/)  
kao( :, 4,12,12) = (/&
 & 8.3426e+00_jprb,8.0165e+00_jprb,8.0839e+00_jprb,7.9767e+00_jprb,7.6138e+00_jprb,7.0590e+00_jprb,&
 & 6.2190e+00_jprb,4.8660e+00_jprb,4.1525e+00_jprb/)  
kao( :, 5,12,12) = (/&
 & 8.4617e+00_jprb,8.1705e+00_jprb,8.3144e+00_jprb,8.2344e+00_jprb,7.9033e+00_jprb,7.3931e+00_jprb,&
 & 6.5112e+00_jprb,5.1463e+00_jprb,4.5704e+00_jprb/)  
kao( :, 1,13,12) = (/&
 & 7.4570e+00_jprb,7.1219e+00_jprb,7.0631e+00_jprb,6.7931e+00_jprb,6.3176e+00_jprb,5.7305e+00_jprb,&
 & 4.9924e+00_jprb,3.9078e+00_jprb,2.6864e+00_jprb/)  
kao( :, 2,13,12) = (/&
 & 7.6593e+00_jprb,7.3680e+00_jprb,7.3595e+00_jprb,7.0913e+00_jprb,6.6544e+00_jprb,6.1127e+00_jprb,&
 & 5.3577e+00_jprb,4.1969e+00_jprb,3.0587e+00_jprb/)  
kao( :, 3,13,12) = (/&
 & 7.8270e+00_jprb,7.5824e+00_jprb,7.6095e+00_jprb,7.3732e+00_jprb,7.0009e+00_jprb,6.4671e+00_jprb,&
 & 5.6889e+00_jprb,4.4965e+00_jprb,3.4369e+00_jprb/)  
kao( :, 4,13,12) = (/&
 & 7.9650e+00_jprb,7.7709e+00_jprb,7.8397e+00_jprb,7.6582e+00_jprb,7.3100e+00_jprb,6.7945e+00_jprb,&
 & 6.0051e+00_jprb,4.7890e+00_jprb,3.8174e+00_jprb/)  
kao( :, 5,13,12) = (/&
 & 8.0792e+00_jprb,7.9275e+00_jprb,8.0591e+00_jprb,7.9074e+00_jprb,7.6140e+00_jprb,7.1099e+00_jprb,&
 & 6.2973e+00_jprb,5.0841e+00_jprb,4.2048e+00_jprb/)  
kao( :, 1, 1,13) = (/&
 & 1.0577e+01_jprb,9.2549e+00_jprb,8.1600e+00_jprb,7.7278e+00_jprb,7.7653e+00_jprb,7.7716e+00_jprb,&
 & 7.5669e+00_jprb,8.8236e+00_jprb,9.8756e+00_jprb/)  
kao( :, 2, 1,13) = (/&
 & 1.0671e+01_jprb,9.3375e+00_jprb,8.2378e+00_jprb,7.8122e+00_jprb,7.8593e+00_jprb,7.7059e+00_jprb,&
 & 7.9393e+00_jprb,9.2604e+00_jprb,1.0358e+01_jprb/)  
kao( :, 3, 1,13) = (/&
 & 1.0744e+01_jprb,9.4010e+00_jprb,8.2968e+00_jprb,7.8823e+00_jprb,7.9000e+00_jprb,7.7087e+00_jprb,&
 & 8.3139e+00_jprb,9.6974e+00_jprb,1.0851e+01_jprb/)  
kao( :, 4, 1,13) = (/&
 & 1.0801e+01_jprb,9.4514e+00_jprb,8.3377e+00_jprb,7.9397e+00_jprb,7.9429e+00_jprb,7.7123e+00_jprb,&
 & 8.6663e+00_jprb,1.0108e+01_jprb,1.1303e+01_jprb/)  
kao( :, 5, 1,13) = (/&
 & 1.0828e+01_jprb,9.4745e+00_jprb,8.3567e+00_jprb,8.0119e+00_jprb,7.9284e+00_jprb,7.7671e+00_jprb,&
 & 9.0671e+00_jprb,1.0577e+01_jprb,1.1784e+01_jprb/)  
kao( :, 1, 2,13) = (/&
 & 1.1163e+01_jprb,9.7674e+00_jprb,8.6478e+00_jprb,8.0225e+00_jprb,8.2244e+00_jprb,8.0837e+00_jprb,&
 & 7.7758e+00_jprb,9.0278e+00_jprb,1.0229e+01_jprb/)  
kao( :, 2, 2,13) = (/&
 & 1.1323e+01_jprb,9.9081e+00_jprb,8.7792e+00_jprb,8.1586e+00_jprb,8.2869e+00_jprb,8.0551e+00_jprb,&
 & 8.1451e+00_jprb,9.5005e+00_jprb,1.0748e+01_jprb/)  
kao( :, 3, 2,13) = (/&
 & 1.1461e+01_jprb,1.0028e+01_jprb,8.8854e+00_jprb,8.2743e+00_jprb,8.3048e+00_jprb,8.0402e+00_jprb,&
 & 8.5556e+00_jprb,9.9796e+00_jprb,1.1282e+01_jprb/)  
kao( :, 4, 2,13) = (/&
 & 1.1566e+01_jprb,1.0120e+01_jprb,8.9543e+00_jprb,8.3710e+00_jprb,8.3468e+00_jprb,8.0313e+00_jprb,&
 & 8.9856e+00_jprb,1.0481e+01_jprb,1.1824e+01_jprb/)  
kao( :, 5, 2,13) = (/&
 & 1.1629e+01_jprb,1.0176e+01_jprb,8.9870e+00_jprb,8.4547e+00_jprb,8.3497e+00_jprb,8.1172e+00_jprb,&
 & 9.4516e+00_jprb,1.1026e+01_jprb,1.2419e+01_jprb/)  
kao( :, 1, 3,13) = (/&
 & 1.1962e+01_jprb,1.0467e+01_jprb,9.2709e+00_jprb,8.4291e+00_jprb,8.5436e+00_jprb,8.3200e+00_jprb,&
 & 7.8658e+00_jprb,9.0562e+00_jprb,1.0308e+01_jprb/)  
kao( :, 2, 3,13) = (/&
 & 1.2205e+01_jprb,1.0680e+01_jprb,9.4411e+00_jprb,8.6517e+00_jprb,8.6197e+00_jprb,8.3368e+00_jprb,&
 & 8.2049e+00_jprb,9.5685e+00_jprb,1.0891e+01_jprb/)  
kao( :, 3, 3,13) = (/&
 & 1.2410e+01_jprb,1.0859e+01_jprb,9.5853e+00_jprb,8.8479e+00_jprb,8.6747e+00_jprb,8.3471e+00_jprb,&
 & 8.6431e+00_jprb,1.0082e+01_jprb,1.1474e+01_jprb/)  
kao( :, 4, 3,13) = (/&
 & 1.2574e+01_jprb,1.1002e+01_jprb,9.6989e+00_jprb,8.9698e+00_jprb,8.7471e+00_jprb,8.3398e+00_jprb,&
 & 9.0831e+00_jprb,1.0595e+01_jprb,1.2056e+01_jprb/)  
kao( :, 5, 3,13) = (/&
 & 1.2712e+01_jprb,1.1123e+01_jprb,9.7902e+00_jprb,9.0790e+00_jprb,8.7667e+00_jprb,8.4500e+00_jprb,&
 & 9.6002e+00_jprb,1.1199e+01_jprb,1.2724e+01_jprb/)  
kao( :, 1, 4,13) = (/&
 & 1.2978e+01_jprb,1.1356e+01_jprb,1.0016e+01_jprb,9.0951e+00_jprb,8.8183e+00_jprb,8.5105e+00_jprb,&
 & 7.9105e+00_jprb,9.0384e+00_jprb,1.0315e+01_jprb/)  
kao( :, 2, 4,13) = (/&
 & 1.3298e+01_jprb,1.1636e+01_jprb,1.0263e+01_jprb,9.3919e+00_jprb,8.9613e+00_jprb,8.5969e+00_jprb,&
 & 8.2211e+00_jprb,9.5613e+00_jprb,1.0907e+01_jprb/)  
kao( :, 3, 4,13) = (/&
 & 1.3575e+01_jprb,1.1878e+01_jprb,1.0487e+01_jprb,9.6114e+00_jprb,9.0632e+00_jprb,8.6395e+00_jprb,&
 & 8.6771e+00_jprb,1.0122e+01_jprb,1.1544e+01_jprb/)  
kao( :, 4, 4,13) = (/&
 & 1.3811e+01_jprb,1.2085e+01_jprb,1.0662e+01_jprb,9.7774e+00_jprb,9.1650e+00_jprb,8.6661e+00_jprb,&
 & 9.1672e+00_jprb,1.0693e+01_jprb,1.2193e+01_jprb/)  
kao( :, 5, 4,13) = (/&
 & 1.3981e+01_jprb,1.2233e+01_jprb,1.0802e+01_jprb,9.9141e+00_jprb,9.2432e+00_jprb,8.7675e+00_jprb,&
 & 9.7195e+00_jprb,1.1338e+01_jprb,1.2921e+01_jprb/)  
kao( :, 1, 5,13) = (/&
 & 1.4114e+01_jprb,1.2350e+01_jprb,1.0930e+01_jprb,9.8909e+00_jprb,9.2442e+00_jprb,8.6849e+00_jprb,&
 & 8.0205e+00_jprb,9.0018e+00_jprb,1.0281e+01_jprb/)  
kao( :, 2, 5,13) = (/&
 & 1.4481e+01_jprb,1.2671e+01_jprb,1.1207e+01_jprb,1.0236e+01_jprb,9.4445e+00_jprb,8.8064e+00_jprb,&
 & 8.3341e+00_jprb,9.5712e+00_jprb,1.0927e+01_jprb/)  
kao( :, 3, 5,13) = (/&
 & 1.4780e+01_jprb,1.2933e+01_jprb,1.1441e+01_jprb,1.0504e+01_jprb,9.5949e+00_jprb,8.9267e+00_jprb,&
 & 8.7559e+00_jprb,1.0193e+01_jprb,1.1635e+01_jprb/)  
kao( :, 4, 5,13) = (/&
 & 1.5014e+01_jprb,1.3137e+01_jprb,1.1651e+01_jprb,1.0704e+01_jprb,9.7669e+00_jprb,9.0159e+00_jprb,&
 & 9.2560e+00_jprb,1.0797e+01_jprb,1.2325e+01_jprb/)  
kao( :, 5, 5,13) = (/&
 & 1.5187e+01_jprb,1.3289e+01_jprb,1.1815e+01_jprb,1.0866e+01_jprb,9.8919e+00_jprb,9.1157e+00_jprb,&
 & 9.8156e+00_jprb,1.1450e+01_jprb,1.3070e+01_jprb/)  
kao( :, 1, 6,13) = (/&
 & 1.5160e+01_jprb,1.3265e+01_jprb,1.1763e+01_jprb,1.0744e+01_jprb,9.7606e+00_jprb,8.8908e+00_jprb,&
 & 8.2258e+00_jprb,8.8849e+00_jprb,1.0152e+01_jprb/)  
kao( :, 2, 6,13) = (/&
 & 1.5549e+01_jprb,1.3605e+01_jprb,1.2084e+01_jprb,1.1112e+01_jprb,1.0034e+01_jprb,9.1009e+00_jprb,&
 & 8.4931e+00_jprb,9.5055e+00_jprb,1.0858e+01_jprb/)  
kao( :, 3, 6,13) = (/&
 & 1.5873e+01_jprb,1.3889e+01_jprb,1.2356e+01_jprb,1.1403e+01_jprb,1.0281e+01_jprb,9.2837e+00_jprb,&
 & 8.8721e+00_jprb,1.0170e+01_jprb,1.1619e+01_jprb/)  
kao( :, 4, 6,13) = (/&
 & 1.6112e+01_jprb,1.4098e+01_jprb,1.2586e+01_jprb,1.1634e+01_jprb,1.0494e+01_jprb,9.4499e+00_jprb,&
 & 9.3030e+00_jprb,1.0807e+01_jprb,1.2339e+01_jprb/)  
kao( :, 5, 6,13) = (/&
 & 1.6286e+01_jprb,1.4252e+01_jprb,1.2775e+01_jprb,1.1818e+01_jprb,1.0693e+01_jprb,9.5647e+00_jprb,&
 & 9.8402e+00_jprb,1.1469e+01_jprb,1.3094e+01_jprb/)  
kao( :, 1, 7,13) = (/&
 & 1.6122e+01_jprb,1.4109e+01_jprb,1.2562e+01_jprb,1.1505e+01_jprb,1.0368e+01_jprb,9.2585e+00_jprb,&
 & 8.3696e+00_jprb,8.5768e+00_jprb,9.8029e+00_jprb/)  
kao( :, 2, 7,13) = (/&
 & 1.6526e+01_jprb,1.4471e+01_jprb,1.2919e+01_jprb,1.1924e+01_jprb,1.0722e+01_jprb,9.5715e+00_jprb,&
 & 8.6023e+00_jprb,9.2393e+00_jprb,1.0560e+01_jprb/)  
kao( :, 3, 7,13) = (/&
 & 1.6858e+01_jprb,1.4770e+01_jprb,1.3234e+01_jprb,1.2238e+01_jprb,1.1035e+01_jprb,9.8187e+00_jprb,&
 & 8.9328e+00_jprb,9.9387e+00_jprb,1.1350e+01_jprb/)  
kao( :, 4, 7,13) = (/&
 & 1.7093e+01_jprb,1.4987e+01_jprb,1.3501e+01_jprb,1.2504e+01_jprb,1.1279e+01_jprb,1.0055e+01_jprb,&
 & 9.3088e+00_jprb,1.0608e+01_jprb,1.2111e+01_jprb/)  
kao( :, 5, 7,13) = (/&
 & 1.7259e+01_jprb,1.5142e+01_jprb,1.3707e+01_jprb,1.2711e+01_jprb,1.1518e+01_jprb,1.0206e+01_jprb,&
 & 9.7355e+00_jprb,1.1291e+01_jprb,1.2889e+01_jprb/)  
kao( :, 1, 8,13) = (/&
 & 1.6916e+01_jprb,1.4832e+01_jprb,1.3277e+01_jprb,1.2204e+01_jprb,1.0940e+01_jprb,9.7472e+00_jprb,&
 & 8.4449e+00_jprb,8.0133e+00_jprb,9.1571e+00_jprb/)  
kao( :, 2, 8,13) = (/&
 & 1.7329e+01_jprb,1.5217e+01_jprb,1.3686e+01_jprb,1.2639e+01_jprb,1.1376e+01_jprb,1.0148e+01_jprb,&
 & 8.6472e+00_jprb,8.7212e+00_jprb,9.9586e+00_jprb/)  
kao( :, 3, 8,13) = (/&
 & 1.7658e+01_jprb,1.5525e+01_jprb,1.4035e+01_jprb,1.3005e+01_jprb,1.1745e+01_jprb,1.0456e+01_jprb,&
 & 8.9277e+00_jprb,9.4462e+00_jprb,1.0783e+01_jprb/)  
kao( :, 4, 8,13) = (/&
 & 1.7910e+01_jprb,1.5764e+01_jprb,1.4326e+01_jprb,1.3292e+01_jprb,1.2039e+01_jprb,1.0730e+01_jprb,&
 & 9.2875e+00_jprb,1.0174e+01_jprb,1.1613e+01_jprb/)  
kao( :, 5, 8,13) = (/&
 & 1.8061e+01_jprb,1.5911e+01_jprb,1.4552e+01_jprb,1.3522e+01_jprb,1.2313e+01_jprb,1.0922e+01_jprb,&
 & 9.6669e+00_jprb,1.0913e+01_jprb,1.2458e+01_jprb/)  
kao( :, 1, 9,13) = (/&
 & 1.7489e+01_jprb,1.5390e+01_jprb,1.3855e+01_jprb,1.2753e+01_jprb,1.1443e+01_jprb,1.0269e+01_jprb,&
 & 8.6020e+00_jprb,7.3519e+00_jprb,8.3472e+00_jprb/)  
kao( :, 2, 9,13) = (/&
 & 1.7914e+01_jprb,1.5791e+01_jprb,1.4307e+01_jprb,1.3235e+01_jprb,1.1959e+01_jprb,1.0725e+01_jprb,&
 & 8.8103e+00_jprb,8.0533e+00_jprb,9.1895e+00_jprb/)  
kao( :, 3, 9,13) = (/&
 & 1.8257e+01_jprb,1.6119e+01_jprb,1.4693e+01_jprb,1.3625e+01_jprb,1.2389e+01_jprb,1.1058e+01_jprb,&
 & 9.0504e+00_jprb,8.8002e+00_jprb,1.0042e+01_jprb/)  
kao( :, 4, 9,13) = (/&
 & 1.8479e+01_jprb,1.6338e+01_jprb,1.5015e+01_jprb,1.3939e+01_jprb,1.2757e+01_jprb,1.1337e+01_jprb,&
 & 9.3866e+00_jprb,9.5953e+00_jprb,1.0949e+01_jprb/)  
kao( :, 5, 9,13) = (/&
 & 1.8635e+01_jprb,1.6495e+01_jprb,1.5249e+01_jprb,1.4201e+01_jprb,1.3054e+01_jprb,1.1574e+01_jprb,&
 & 9.7301e+00_jprb,1.0376e+01_jprb,1.1842e+01_jprb/)  
kao( :, 1,10,13) = (/&
 & 1.7834e+01_jprb,1.5755e+01_jprb,1.4296e+01_jprb,1.3173e+01_jprb,1.1876e+01_jprb,1.0672e+01_jprb,&
 & 8.8079e+00_jprb,6.8283e+00_jprb,7.5346e+00_jprb/)  
kao( :, 2,10,13) = (/&
 & 1.8252e+01_jprb,1.6162e+01_jprb,1.4783e+01_jprb,1.3694e+01_jprb,1.2464e+01_jprb,1.1197e+01_jprb,&
 & 9.0829e+00_jprb,7.4323e+00_jprb,8.3917e+00_jprb/)  
kao( :, 3,10,13) = (/&
 & 1.8558e+01_jprb,1.6468e+01_jprb,1.5228e+01_jprb,1.4086e+01_jprb,1.2957e+01_jprb,1.1559e+01_jprb,&
 & 9.3588e+00_jprb,8.1767e+00_jprb,9.3163e+00_jprb/)  
kao( :, 4,10,13) = (/&
 & 1.8778e+01_jprb,1.6694e+01_jprb,1.5535e+01_jprb,1.4435e+01_jprb,1.3366e+01_jprb,1.1847e+01_jprb,&
 & 9.6760e+00_jprb,9.0005e+00_jprb,1.0268e+01_jprb/)  
kao( :, 5,10,13) = (/&
 & 1.8909e+01_jprb,1.6834e+01_jprb,1.5762e+01_jprb,1.4717e+01_jprb,1.3710e+01_jprb,1.2145e+01_jprb,&
 & 1.0011e+01_jprb,9.8258e+00_jprb,1.1210e+01_jprb/)  
kao( :, 1,11,13) = (/&
 & 1.8087e+01_jprb,1.6075e+01_jprb,1.4790e+01_jprb,1.3655e+01_jprb,1.2497e+01_jprb,1.1191e+01_jprb,&
 & 9.1399e+00_jprb,6.6933e+00_jprb,7.1162e+00_jprb/)  
kao( :, 2,11,13) = (/&
 & 1.8432e+01_jprb,1.6428e+01_jprb,1.5277e+01_jprb,1.4152e+01_jprb,1.3089e+01_jprb,1.1695e+01_jprb,&
 & 9.4501e+00_jprb,7.3057e+00_jprb,8.0369e+00_jprb/)  
kao( :, 3,11,13) = (/&
 & 1.8659e+01_jprb,1.6669e+01_jprb,1.5627e+01_jprb,1.4589e+01_jprb,1.3582e+01_jprb,1.2037e+01_jprb,&
 & 9.8265e+00_jprb,8.0558e+00_jprb,9.0157e+00_jprb/)  
kao( :, 4,11,13) = (/&
 & 1.8822e+01_jprb,1.6850e+01_jprb,1.5905e+01_jprb,1.4936e+01_jprb,1.3964e+01_jprb,1.2377e+01_jprb,&
 & 1.0203e+01_jprb,8.8302e+00_jprb,9.9768e+00_jprb/)  
kao( :, 5,11,13) = (/&
 & 1.8912e+01_jprb,1.6973e+01_jprb,1.6104e+01_jprb,1.5218e+01_jprb,1.4312e+01_jprb,1.2701e+01_jprb,&
 & 1.0619e+01_jprb,9.6452e+00_jprb,1.0951e+01_jprb/)  
kao( :, 1,12,13) = (/&
 & 1.7920e+01_jprb,1.6053e+01_jprb,1.5019e+01_jprb,1.3982e+01_jprb,1.2926e+01_jprb,1.1508e+01_jprb,&
 & 9.3716e+00_jprb,6.7503e+00_jprb,6.7740e+00_jprb/)  
kao( :, 2,12,13) = (/&
 & 1.8186e+01_jprb,1.6353e+01_jprb,1.5440e+01_jprb,1.4490e+01_jprb,1.3495e+01_jprb,1.1962e+01_jprb,&
 & 9.7745e+00_jprb,7.3828e+00_jprb,7.7336e+00_jprb/)  
kao( :, 3,12,13) = (/&
 & 1.8384e+01_jprb,1.6588e+01_jprb,1.5763e+01_jprb,1.4906e+01_jprb,1.3939e+01_jprb,1.2345e+01_jprb,&
 & 1.0238e+01_jprb,8.0656e+00_jprb,8.6667e+00_jprb/)  
kao( :, 4,12,13) = (/&
 & 1.8509e+01_jprb,1.6759e+01_jprb,1.6033e+01_jprb,1.5245e+01_jprb,1.4313e+01_jprb,1.2752e+01_jprb,&
 & 1.0707e+01_jprb,8.7818e+00_jprb,9.6176e+00_jprb/)  
kao( :, 5,12,13) = (/&
 & 1.8577e+01_jprb,1.6881e+01_jprb,1.6239e+01_jprb,1.5529e+01_jprb,1.4670e+01_jprb,1.3127e+01_jprb,&
 & 1.1210e+01_jprb,9.5549e+00_jprb,1.0594e+01_jprb/)  
kao( :, 1,13,13) = (/&
 & 1.7404e+01_jprb,1.5741e+01_jprb,1.4917e+01_jprb,1.4087e+01_jprb,1.3107e+01_jprb,1.1569e+01_jprb,&
 & 9.5101e+00_jprb,6.9448e+00_jprb,6.4373e+00_jprb/)  
kao( :, 2,13,13) = (/&
 & 1.7616e+01_jprb,1.6021e+01_jprb,1.5315e+01_jprb,1.4593e+01_jprb,1.3608e+01_jprb,1.2031e+01_jprb,&
 & 1.0008e+01_jprb,7.5382e+00_jprb,7.3336e+00_jprb/)  
kao( :, 3,13,13) = (/&
 & 1.7758e+01_jprb,1.6239e+01_jprb,1.5665e+01_jprb,1.5009e+01_jprb,1.4000e+01_jprb,1.2479e+01_jprb,&
 & 1.0559e+01_jprb,8.1609e+00_jprb,8.2503e+00_jprb/)  
kao( :, 4,13,13) = (/&
 & 1.7857e+01_jprb,1.6408e+01_jprb,1.5937e+01_jprb,1.5347e+01_jprb,1.4396e+01_jprb,1.2961e+01_jprb,&
 & 1.1094e+01_jprb,8.8199e+00_jprb,9.1733e+00_jprb/)  
kao( :, 5,13,13) = (/&
 & 1.7901e+01_jprb,1.6530e+01_jprb,1.6155e+01_jprb,1.5663e+01_jprb,1.4778e+01_jprb,1.3417e+01_jprb,&
 & 1.1660e+01_jprb,9.5134e+00_jprb,1.0096e+01_jprb/)  
kao( :, 1, 1,14) = (/&
 & 1.8068e+01_jprb,1.5810e+01_jprb,1.3551e+01_jprb,1.1831e+01_jprb,1.0304e+01_jprb,9.7990e+00_jprb,&
 & 1.1739e+01_jprb,1.3692e+01_jprb,1.5004e+01_jprb/)  
kao( :, 2, 1,14) = (/&
 & 1.7600e+01_jprb,1.5400e+01_jprb,1.3200e+01_jprb,1.1647e+01_jprb,1.0167e+01_jprb,1.0174e+01_jprb,&
 & 1.2204e+01_jprb,1.4235e+01_jprb,1.5608e+01_jprb/)  
kao( :, 3, 1,14) = (/&
 & 1.7123e+01_jprb,1.4983e+01_jprb,1.2843e+01_jprb,1.1396e+01_jprb,1.0063e+01_jprb,1.0510e+01_jprb,&
 & 1.2607e+01_jprb,1.4704e+01_jprb,1.6115e+01_jprb/)  
kao( :, 4, 1,14) = (/&
 & 1.6641e+01_jprb,1.4561e+01_jprb,1.2481e+01_jprb,1.1106e+01_jprb,9.9075e+00_jprb,1.0883e+01_jprb,&
 & 1.3055e+01_jprb,1.5227e+01_jprb,1.6651e+01_jprb/)  
kao( :, 5, 1,14) = (/&
 & 1.6173e+01_jprb,1.4152e+01_jprb,1.2130e+01_jprb,1.0803e+01_jprb,9.8573e+00_jprb,1.1271e+01_jprb,&
 & 1.3520e+01_jprb,1.5769e+01_jprb,1.7251e+01_jprb/)  
kao( :, 1, 2,14) = (/&
 & 1.8801e+01_jprb,1.6451e+01_jprb,1.4101e+01_jprb,1.2604e+01_jprb,1.1011e+01_jprb,1.0737e+01_jprb,&
 & 1.2792e+01_jprb,1.4921e+01_jprb,1.6625e+01_jprb/)  
kao( :, 2, 2,14) = (/&
 & 1.8304e+01_jprb,1.6016e+01_jprb,1.3728e+01_jprb,1.2330e+01_jprb,1.0982e+01_jprb,1.1096e+01_jprb,&
 & 1.3301e+01_jprb,1.5514e+01_jprb,1.7306e+01_jprb/)  
kao( :, 3, 2,14) = (/&
 & 1.7801e+01_jprb,1.5576e+01_jprb,1.3356e+01_jprb,1.2016e+01_jprb,1.0871e+01_jprb,1.1458e+01_jprb,&
 & 1.3745e+01_jprb,1.6031e+01_jprb,1.7874e+01_jprb/)  
kao( :, 4, 2,14) = (/&
 & 1.7309e+01_jprb,1.5145e+01_jprb,1.3007e+01_jprb,1.1693e+01_jprb,1.0730e+01_jprb,1.1860e+01_jprb,&
 & 1.4227e+01_jprb,1.6594e+01_jprb,1.8476e+01_jprb/)  
kao( :, 5, 2,14) = (/&
 & 1.6850e+01_jprb,1.4744e+01_jprb,1.2687e+01_jprb,1.1410e+01_jprb,1.0694e+01_jprb,1.2279e+01_jprb,&
 & 1.4731e+01_jprb,1.7182e+01_jprb,1.9118e+01_jprb/)  
kao( :, 1, 3,14) = (/&
 & 1.9584e+01_jprb,1.7136e+01_jprb,1.4732e+01_jprb,1.3313e+01_jprb,1.1884e+01_jprb,1.1593e+01_jprb,&
 & 1.3636e+01_jprb,1.5905e+01_jprb,1.7983e+01_jprb/)  
kao( :, 2, 3,14) = (/&
 & 1.9076e+01_jprb,1.6691e+01_jprb,1.4400e+01_jprb,1.2989e+01_jprb,1.1901e+01_jprb,1.1927e+01_jprb,&
 & 1.4231e+01_jprb,1.6600e+01_jprb,1.8761e+01_jprb/)  
kao( :, 3, 3,14) = (/&
 & 1.8574e+01_jprb,1.6253e+01_jprb,1.4065e+01_jprb,1.2664e+01_jprb,1.1748e+01_jprb,1.2312e+01_jprb,&
 & 1.4771e+01_jprb,1.7229e+01_jprb,1.9465e+01_jprb/)  
kao( :, 4, 3,14) = (/&
 & 1.8102e+01_jprb,1.5839e+01_jprb,1.3744e+01_jprb,1.2408e+01_jprb,1.1592e+01_jprb,1.2780e+01_jprb,&
 & 1.5332e+01_jprb,1.7885e+01_jprb,2.0196e+01_jprb/)  
kao( :, 5, 3,14) = (/&
 & 1.7642e+01_jprb,1.5437e+01_jprb,1.3436e+01_jprb,1.2180e+01_jprb,1.1540e+01_jprb,1.3243e+01_jprb,&
 & 1.5887e+01_jprb,1.8532e+01_jprb,2.0924e+01_jprb/)  
kao( :, 1, 4,14) = (/&
 & 2.0389e+01_jprb,1.7840e+01_jprb,1.5486e+01_jprb,1.3966e+01_jprb,1.2815e+01_jprb,1.2346e+01_jprb,&
 & 1.4297e+01_jprb,1.6677e+01_jprb,1.8970e+01_jprb/)  
kao( :, 2, 4,14) = (/&
 & 1.9917e+01_jprb,1.7427e+01_jprb,1.5179e+01_jprb,1.3667e+01_jprb,1.2793e+01_jprb,1.2684e+01_jprb,&
 & 1.5037e+01_jprb,1.7540e+01_jprb,1.9955e+01_jprb/)  
kao( :, 3, 4,14) = (/&
 & 1.9473e+01_jprb,1.7039e+01_jprb,1.4867e+01_jprb,1.3426e+01_jprb,1.2614e+01_jprb,1.3089e+01_jprb,&
 & 1.5675e+01_jprb,1.8284e+01_jprb,2.0800e+01_jprb/)  

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


SUBROUTINE part10

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


kao( :, 4, 4,14) = (/&
 & 1.9059e+01_jprb,1.6676e+01_jprb,1.4584e+01_jprb,1.3222e+01_jprb,1.2465e+01_jprb,1.3596e+01_jprb,&
 & 1.6312e+01_jprb,1.9027e+01_jprb,2.1639e+01_jprb/)  
kao( :, 5, 4,14) = (/&
 & 1.8705e+01_jprb,1.6367e+01_jprb,1.4344e+01_jprb,1.3059e+01_jprb,1.2388e+01_jprb,1.4128e+01_jprb,&
 & 1.6951e+01_jprb,1.9772e+01_jprb,2.2482e+01_jprb/)  
kao( :, 1, 5,14) = (/&
 & 2.1405e+01_jprb,1.8730e+01_jprb,1.6310e+01_jprb,1.4662e+01_jprb,1.3708e+01_jprb,1.2986e+01_jprb,&
 & 1.4754e+01_jprb,1.7211e+01_jprb,1.9632e+01_jprb/)  
kao( :, 2, 5,14) = (/&
 & 2.1056e+01_jprb,1.8424e+01_jprb,1.6104e+01_jprb,1.4452e+01_jprb,1.3630e+01_jprb,1.3357e+01_jprb,&
 & 1.5611e+01_jprb,1.8209e+01_jprb,2.0772e+01_jprb/)  
kao( :, 3, 5,14) = (/&
 & 2.0747e+01_jprb,1.8154e+01_jprb,1.5912e+01_jprb,1.4296e+01_jprb,1.3454e+01_jprb,1.3757e+01_jprb,&
 & 1.6382e+01_jprb,1.9110e+01_jprb,2.1795e+01_jprb/)  
kao( :, 4, 5,14) = (/&
 & 2.0481e+01_jprb,1.7921e+01_jprb,1.5733e+01_jprb,1.4190e+01_jprb,1.3288e+01_jprb,1.4283e+01_jprb,&
 & 1.7134e+01_jprb,1.9987e+01_jprb,2.2797e+01_jprb/)  
kao( :, 5, 5,14) = (/&
 & 2.0280e+01_jprb,1.7745e+01_jprb,1.5569e+01_jprb,1.4068e+01_jprb,1.3222e+01_jprb,1.4895e+01_jprb,&
 & 1.7870e+01_jprb,2.0845e+01_jprb,2.3770e+01_jprb/)  
kao( :, 1, 6,14) = (/&
 & 2.2830e+01_jprb,1.9976e+01_jprb,1.7445e+01_jprb,1.5500e+01_jprb,1.4530e+01_jprb,1.3547e+01_jprb,&
 & 1.4948e+01_jprb,1.7437e+01_jprb,1.9911e+01_jprb/)  
kao( :, 2, 6,14) = (/&
 & 2.2630e+01_jprb,1.9801e+01_jprb,1.7366e+01_jprb,1.5418e+01_jprb,1.4459e+01_jprb,1.3928e+01_jprb,&
 & 1.5968e+01_jprb,1.8628e+01_jprb,2.1268e+01_jprb/)  
kao( :, 3, 6,14) = (/&
 & 2.2482e+01_jprb,1.9672e+01_jprb,1.7308e+01_jprb,1.5393e+01_jprb,1.4260e+01_jprb,1.4337e+01_jprb,&
 & 1.6867e+01_jprb,1.9676e+01_jprb,2.2466e+01_jprb/)  
kao( :, 4, 6,14) = (/&
 & 2.2407e+01_jprb,1.9606e+01_jprb,1.7216e+01_jprb,1.5390e+01_jprb,1.4119e+01_jprb,1.4843e+01_jprb,&
 & 1.7739e+01_jprb,2.0693e+01_jprb,2.3625e+01_jprb/)  
kao( :, 5, 6,14) = (/&
 & 2.2367e+01_jprb,1.9571e+01_jprb,1.7137e+01_jprb,1.5329e+01_jprb,1.4055e+01_jprb,1.5517e+01_jprb,&
 & 1.8617e+01_jprb,2.1718e+01_jprb,2.4792e+01_jprb/)  
kao( :, 1, 7,14) = (/&
 & 2.4592e+01_jprb,2.1518e+01_jprb,1.8856e+01_jprb,1.6609e+01_jprb,1.5320e+01_jprb,1.4052e+01_jprb,&
 & 1.5041e+01_jprb,1.7546e+01_jprb,2.0045e+01_jprb/)  
kao( :, 2, 7,14) = (/&
 & 2.4606e+01_jprb,2.1531e+01_jprb,1.8929e+01_jprb,1.6667e+01_jprb,1.5279e+01_jprb,1.4417e+01_jprb,&
 & 1.6211e+01_jprb,1.8911e+01_jprb,2.1602e+01_jprb/)  
kao( :, 3, 7,14) = (/&
 & 2.4628e+01_jprb,2.1549e+01_jprb,1.8928e+01_jprb,1.6801e+01_jprb,1.5124e+01_jprb,1.4851e+01_jprb,&
 & 1.7257e+01_jprb,2.0131e+01_jprb,2.2994e+01_jprb/)  
kao( :, 4, 7,14) = (/&
 & 2.4701e+01_jprb,2.1614e+01_jprb,1.8944e+01_jprb,1.6872e+01_jprb,1.5057e+01_jprb,1.5367e+01_jprb,&
 & 1.8273e+01_jprb,2.1316e+01_jprb,2.4350e+01_jprb/)  
kao( :, 5, 7,14) = (/&
 & 2.4745e+01_jprb,2.1652e+01_jprb,1.8953e+01_jprb,1.6836e+01_jprb,1.5058e+01_jprb,1.6097e+01_jprb,&
 & 1.9310e+01_jprb,2.2526e+01_jprb,2.5728e+01_jprb/)  
kao( :, 1, 8,14) = (/&
 & 2.6722e+01_jprb,2.3382e+01_jprb,2.0515e+01_jprb,1.7956e+01_jprb,1.6236e+01_jprb,1.4458e+01_jprb,&
 & 1.5041e+01_jprb,1.7547e+01_jprb,2.0050e+01_jprb/)  
kao( :, 2, 8,14) = (/&
 & 2.6899e+01_jprb,2.3537e+01_jprb,2.0679e+01_jprb,1.8189e+01_jprb,1.6278e+01_jprb,1.4827e+01_jprb,&
 & 1.6369e+01_jprb,1.9095e+01_jprb,2.1820e+01_jprb/)  
kao( :, 3, 8,14) = (/&
 & 2.7094e+01_jprb,2.3707e+01_jprb,2.0816e+01_jprb,1.8418e+01_jprb,1.6222e+01_jprb,1.5309e+01_jprb,&
 & 1.7578e+01_jprb,2.0506e+01_jprb,2.3432e+01_jprb/)  
kao( :, 4, 8,14) = (/&
 & 2.7179e+01_jprb,2.3782e+01_jprb,2.0862e+01_jprb,1.8540e+01_jprb,1.6231e+01_jprb,1.5886e+01_jprb,&
 & 1.8721e+01_jprb,2.1839e+01_jprb,2.4952e+01_jprb/)  
kao( :, 5, 8,14) = (/&
 & 2.7158e+01_jprb,2.3764e+01_jprb,2.0818e+01_jprb,1.8502e+01_jprb,1.6332e+01_jprb,1.6675e+01_jprb,&
 & 1.9896e+01_jprb,2.3208e+01_jprb,2.6519e+01_jprb/)  
kao( :, 1, 9,14) = (/&
 & 2.9121e+01_jprb,2.5481e+01_jprb,2.2378e+01_jprb,1.9520e+01_jprb,1.7350e+01_jprb,1.4884e+01_jprb,&
 & 1.4926e+01_jprb,1.7361e+01_jprb,1.9841e+01_jprb/)  
kao( :, 2, 9,14) = (/&
 & 2.9461e+01_jprb,2.5779e+01_jprb,2.2643e+01_jprb,1.9924e+01_jprb,1.7494e+01_jprb,1.5326e+01_jprb,&
 & 1.6362e+01_jprb,1.9088e+01_jprb,2.1811e+01_jprb/)  
kao( :, 3, 9,14) = (/&
 & 2.9610e+01_jprb,2.5909e+01_jprb,2.2771e+01_jprb,2.0181e+01_jprb,1.7582e+01_jprb,1.5909e+01_jprb,&
 & 1.7732e+01_jprb,2.0686e+01_jprb,2.3639e+01_jprb/)  
kao( :, 4, 9,14) = (/&
 & 2.9659e+01_jprb,2.5951e+01_jprb,2.2782e+01_jprb,2.0281e+01_jprb,1.7675e+01_jprb,1.6616e+01_jprb,&
 & 1.9018e+01_jprb,2.2187e+01_jprb,2.5355e+01_jprb/)  
kao( :, 5, 9,14) = (/&
 & 2.9568e+01_jprb,2.5872e+01_jprb,2.2719e+01_jprb,2.0302e+01_jprb,1.7861e+01_jprb,1.7429e+01_jprb,&
 & 2.0313e+01_jprb,2.3697e+01_jprb,2.7083e+01_jprb/)  
kao( :, 1,10,14) = (/&
 & 3.1663e+01_jprb,2.7706e+01_jprb,2.4344e+01_jprb,2.1280e+01_jprb,1.8643e+01_jprb,1.5678e+01_jprb,&
 & 1.4935e+01_jprb,1.7101e+01_jprb,1.9544e+01_jprb/)  
kao( :, 2,10,14) = (/&
 & 3.1965e+01_jprb,2.7969e+01_jprb,2.4607e+01_jprb,2.1722e+01_jprb,1.8925e+01_jprb,1.6156e+01_jprb,&
 & 1.6364e+01_jprb,1.9004e+01_jprb,2.1720e+01_jprb/)  
kao( :, 3,10,14) = (/&
 & 3.2079e+01_jprb,2.8070e+01_jprb,2.4675e+01_jprb,2.1979e+01_jprb,1.9142e+01_jprb,1.6843e+01_jprb,&
 & 1.7782e+01_jprb,2.0734e+01_jprb,2.3694e+01_jprb/)  
kao( :, 4,10,14) = (/&
 & 3.2076e+01_jprb,2.8066e+01_jprb,2.4720e+01_jprb,2.2134e+01_jprb,1.9355e+01_jprb,1.7612e+01_jprb,&
 & 1.9151e+01_jprb,2.2342e+01_jprb,2.5534e+01_jprb/)  
kao( :, 5,10,14) = (/&
 & 3.2013e+01_jprb,2.8013e+01_jprb,2.4760e+01_jprb,2.2247e+01_jprb,1.9618e+01_jprb,1.8439e+01_jprb,&
 & 2.0533e+01_jprb,2.3954e+01_jprb,2.7375e+01_jprb/)  
kao( :, 1,11,14) = (/&
 & 3.4213e+01_jprb,2.9936e+01_jprb,2.6354e+01_jprb,2.3259e+01_jprb,2.0227e+01_jprb,1.7029e+01_jprb,&
 & 1.5715e+01_jprb,1.7610e+01_jprb,2.0126e+01_jprb/)  
kao( :, 2,11,14) = (/&
 & 3.4370e+01_jprb,3.0074e+01_jprb,2.6508e+01_jprb,2.3642e+01_jprb,2.0586e+01_jprb,1.7628e+01_jprb,&
 & 1.7120e+01_jprb,1.9500e+01_jprb,2.2284e+01_jprb/)  
kao( :, 3,11,14) = (/&
 & 3.4467e+01_jprb,3.0174e+01_jprb,2.6677e+01_jprb,2.3905e+01_jprb,2.0930e+01_jprb,1.8395e+01_jprb,&
 & 1.8472e+01_jprb,2.1240e+01_jprb,2.4275e+01_jprb/)  
kao( :, 4,11,14) = (/&
 & 3.4474e+01_jprb,3.0204e+01_jprb,2.6823e+01_jprb,2.4177e+01_jprb,2.1309e+01_jprb,1.9245e+01_jprb,&
 & 1.9858e+01_jprb,2.2983e+01_jprb,2.6259e+01_jprb/)  
kao( :, 5,11,14) = (/&
 & 3.4438e+01_jprb,3.0209e+01_jprb,2.6964e+01_jprb,2.4440e+01_jprb,2.1741e+01_jprb,2.0132e+01_jprb,&
 & 2.1286e+01_jprb,2.4694e+01_jprb,2.8209e+01_jprb/)  
kao( :, 1,12,14) = (/&
 & 3.6462e+01_jprb,3.1921e+01_jprb,2.8185e+01_jprb,2.5122e+01_jprb,2.1872e+01_jprb,1.8703e+01_jprb,&
 & 1.6650e+01_jprb,1.7829e+01_jprb,2.0376e+01_jprb/)  
kao( :, 2,12,14) = (/&
 & 3.6640e+01_jprb,3.2114e+01_jprb,2.8470e+01_jprb,2.5545e+01_jprb,2.2388e+01_jprb,1.9455e+01_jprb,&
 & 1.8025e+01_jprb,1.9728e+01_jprb,2.2541e+01_jprb/)  
kao( :, 3,12,14) = (/&
 & 3.6727e+01_jprb,3.2238e+01_jprb,2.8745e+01_jprb,2.5954e+01_jprb,2.2942e+01_jprb,2.0299e+01_jprb,&
 & 1.9338e+01_jprb,2.1588e+01_jprb,2.4664e+01_jprb/)  
kao( :, 4,12,14) = (/&
 & 3.6769e+01_jprb,3.2319e+01_jprb,2.8973e+01_jprb,2.6373e+01_jprb,2.3500e+01_jprb,2.1128e+01_jprb,&
 & 2.0696e+01_jprb,2.3398e+01_jprb,2.6730e+01_jprb/)  
kao( :, 5,12,14) = (/&
 & 3.6803e+01_jprb,3.2384e+01_jprb,2.9220e+01_jprb,2.6759e+01_jprb,2.4088e+01_jprb,2.2049e+01_jprb,&
 & 2.2111e+01_jprb,2.5193e+01_jprb,2.8777e+01_jprb/)  
kao( :, 1,13,14) = (/&
 & 3.8467e+01_jprb,3.3764e+01_jprb,3.0006e+01_jprb,2.6925e+01_jprb,2.3614e+01_jprb,2.0501e+01_jprb,&
 & 1.7640e+01_jprb,1.7695e+01_jprb,2.0215e+01_jprb/)  
kao( :, 2,13,14) = (/&
 & 3.8636e+01_jprb,3.3983e+01_jprb,3.0407e+01_jprb,2.7476e+01_jprb,2.4350e+01_jprb,2.1406e+01_jprb,&
 & 1.8958e+01_jprb,1.9690e+01_jprb,2.2491e+01_jprb/)  
kao( :, 3,13,14) = (/&
 & 3.8793e+01_jprb,3.4176e+01_jprb,3.0759e+01_jprb,2.8040e+01_jprb,2.5106e+01_jprb,2.2301e+01_jprb,&
 & 2.0233e+01_jprb,2.1614e+01_jprb,2.4689e+01_jprb/)  
kao( :, 4,13,14) = (/&
 & 3.8901e+01_jprb,3.4320e+01_jprb,3.1137e+01_jprb,2.8555e+01_jprb,2.5821e+01_jprb,2.3168e+01_jprb,&
 & 2.1608e+01_jprb,2.3543e+01_jprb,2.6893e+01_jprb/)  
kao( :, 5,13,14) = (/&
 & 3.8995e+01_jprb,3.4448e+01_jprb,3.1494e+01_jprb,2.9062e+01_jprb,2.6523e+01_jprb,2.4144e+01_jprb,&
 & 2.3025e+01_jprb,2.5501e+01_jprb,2.9129e+01_jprb/)  
kao( :, 1, 1,15) = (/&
 & 2.2665e+01_jprb,1.9832e+01_jprb,1.6999e+01_jprb,1.4166e+01_jprb,1.3383e+01_jprb,1.5987e+01_jprb,&
 & 1.9182e+01_jprb,2.2378e+01_jprb,2.4474e+01_jprb/)  
kao( :, 2, 1,15) = (/&
 & 2.1844e+01_jprb,1.9113e+01_jprb,1.6383e+01_jprb,1.3666e+01_jprb,1.3442e+01_jprb,1.6440e+01_jprb,&
 & 1.9723e+01_jprb,2.3008e+01_jprb,2.5060e+01_jprb/)  
kao( :, 3, 1,15) = (/&
 & 2.1030e+01_jprb,1.8401e+01_jprb,1.5773e+01_jprb,1.3277e+01_jprb,1.3532e+01_jprb,1.6873e+01_jprb,&
 & 2.0241e+01_jprb,2.3609e+01_jprb,2.5652e+01_jprb/)  
kao( :, 4, 1,15) = (/&
 & 2.0230e+01_jprb,1.7702e+01_jprb,1.5173e+01_jprb,1.2884e+01_jprb,1.3829e+01_jprb,1.7277e+01_jprb,&
 & 2.0725e+01_jprb,2.4172e+01_jprb,2.6214e+01_jprb/)  
kao( :, 5, 1,15) = (/&
 & 1.9446e+01_jprb,1.7016e+01_jprb,1.4585e+01_jprb,1.2542e+01_jprb,1.4133e+01_jprb,1.7655e+01_jprb,&
 & 2.1178e+01_jprb,2.4699e+01_jprb,2.6742e+01_jprb/)  
kao( :, 1, 2,15) = (/&
 & 2.4301e+01_jprb,2.1263e+01_jprb,1.8226e+01_jprb,1.5270e+01_jprb,1.4740e+01_jprb,1.7631e+01_jprb,&
 & 2.1154e+01_jprb,2.4675e+01_jprb,2.7320e+01_jprb/)  
kao( :, 2, 2,15) = (/&
 & 2.3371e+01_jprb,2.0449e+01_jprb,1.7528e+01_jprb,1.4826e+01_jprb,1.4773e+01_jprb,1.8276e+01_jprb,&
 & 2.1927e+01_jprb,2.5577e+01_jprb,2.8254e+01_jprb/)  
kao( :, 3, 2,15) = (/&
 & 2.2456e+01_jprb,1.9650e+01_jprb,1.6843e+01_jprb,1.4407e+01_jprb,1.5106e+01_jprb,1.8875e+01_jprb,&
 & 2.2644e+01_jprb,2.6416e+01_jprb,2.9163e+01_jprb/)  
kao( :, 4, 2,15) = (/&
 & 2.1563e+01_jprb,1.8868e+01_jprb,1.6173e+01_jprb,1.4036e+01_jprb,1.5558e+01_jprb,1.9438e+01_jprb,&
 & 2.3319e+01_jprb,2.7202e+01_jprb,2.9991e+01_jprb/)  
kao( :, 5, 2,15) = (/&
 & 2.0691e+01_jprb,1.8105e+01_jprb,1.5519e+01_jprb,1.3694e+01_jprb,1.5968e+01_jprb,1.9949e+01_jprb,&
 & 2.3930e+01_jprb,2.7910e+01_jprb,3.0755e+01_jprb/)  
kao( :, 1, 3,15) = (/&
 & 2.6150e+01_jprb,2.2881e+01_jprb,1.9612e+01_jprb,1.6625e+01_jprb,1.6080e+01_jprb,1.9323e+01_jprb,&
 & 2.3184e+01_jprb,2.7047e+01_jprb,3.0423e+01_jprb/)  
kao( :, 2, 3,15) = (/&
 & 2.5095e+01_jprb,2.1958e+01_jprb,1.8821e+01_jprb,1.6149e+01_jprb,1.6204e+01_jprb,2.0181e+01_jprb,&
 & 2.4213e+01_jprb,2.8246e+01_jprb,3.1757e+01_jprb/)  
kao( :, 3, 3,15) = (/&
 & 2.4070e+01_jprb,2.1061e+01_jprb,1.8052e+01_jprb,1.5726e+01_jprb,1.6789e+01_jprb,2.0979e+01_jprb,&
 & 2.5169e+01_jprb,2.9357e+01_jprb,3.2991e+01_jprb/)  
kao( :, 4, 3,15) = (/&
 & 2.3070e+01_jprb,2.0187e+01_jprb,1.7303e+01_jprb,1.5335e+01_jprb,1.7368e+01_jprb,2.1701e+01_jprb,&
 & 2.6034e+01_jprb,3.0366e+01_jprb,3.4124e+01_jprb/)  
kao( :, 5, 3,15) = (/&
 & 2.2104e+01_jprb,1.9341e+01_jprb,1.6579e+01_jprb,1.4961e+01_jprb,1.7892e+01_jprb,2.2355e+01_jprb,&
 & 2.6817e+01_jprb,3.1278e+01_jprb,3.5133e+01_jprb/)  
kao( :, 1, 4,15) = (/&
 & 2.8084e+01_jprb,2.4574e+01_jprb,2.1063e+01_jprb,1.8074e+01_jprb,1.7393e+01_jprb,2.1136e+01_jprb,&
 & 2.5360e+01_jprb,2.9584e+01_jprb,3.3561e+01_jprb/)  
kao( :, 2, 4,15) = (/&
 & 2.6902e+01_jprb,2.3539e+01_jprb,2.0176e+01_jprb,1.7575e+01_jprb,1.7767e+01_jprb,2.2202e+01_jprb,&
 & 2.6641e+01_jprb,3.1076e+01_jprb,3.5240e+01_jprb/)  
kao( :, 3, 4,15) = (/&
 & 2.5761e+01_jprb,2.2541e+01_jprb,1.9321e+01_jprb,1.7116e+01_jprb,1.8559e+01_jprb,2.3193e+01_jprb,&
 & 2.7826e+01_jprb,3.2458e+01_jprb,3.6803e+01_jprb/)  
kao( :, 4, 4,15) = (/&
 & 2.4660e+01_jprb,2.1578e+01_jprb,1.8496e+01_jprb,1.6679e+01_jprb,1.9285e+01_jprb,2.4099e+01_jprb,&
 & 2.8913e+01_jprb,3.3725e+01_jprb,3.8229e+01_jprb/)  
kao( :, 5, 4,15) = (/&
 & 2.3603e+01_jprb,2.0653e+01_jprb,1.7702e+01_jprb,1.6251e+01_jprb,1.9930e+01_jprb,2.4904e+01_jprb,&
 & 2.9878e+01_jprb,3.4850e+01_jprb,3.9510e+01_jprb/)  
kao( :, 1, 5,15) = (/&
 & 3.0121e+01_jprb,2.6356e+01_jprb,2.2591e+01_jprb,1.9572e+01_jprb,1.8803e+01_jprb,2.3068e+01_jprb,&
 & 2.7679e+01_jprb,3.2291e+01_jprb,3.6764e+01_jprb/)  
kao( :, 2, 5,15) = (/&
 & 2.8817e+01_jprb,2.5215e+01_jprb,2.1613e+01_jprb,1.9016e+01_jprb,1.9519e+01_jprb,2.4395e+01_jprb,&
 & 2.9271e+01_jprb,3.4145e+01_jprb,3.8882e+01_jprb/)  
kao( :, 3, 5,15) = (/&
 & 2.7566e+01_jprb,2.4120e+01_jprb,2.0674e+01_jprb,1.8500e+01_jprb,2.0501e+01_jprb,2.5621e+01_jprb,&
 & 3.0741e+01_jprb,3.5860e+01_jprb,4.0822e+01_jprb/)  
kao( :, 4, 5,15) = (/&
 & 2.6363e+01_jprb,2.3068e+01_jprb,1.9789e+01_jprb,1.8007e+01_jprb,2.1387e+01_jprb,2.6727e+01_jprb,&
 & 3.2067e+01_jprb,3.7405e+01_jprb,4.2586e+01_jprb/)  
kao( :, 5, 5,15) = (/&
 & 2.5212e+01_jprb,2.2061e+01_jprb,1.9051e+01_jprb,1.7643e+01_jprb,2.2182e+01_jprb,2.7719e+01_jprb,&
 & 3.3256e+01_jprb,3.8795e+01_jprb,4.4162e+01_jprb/)  
kao( :, 1, 6,15) = (/&
 & 3.2321e+01_jprb,2.8281e+01_jprb,2.4241e+01_jprb,2.1098e+01_jprb,2.0339e+01_jprb,2.4932e+01_jprb,&
 & 2.9917e+01_jprb,3.4901e+01_jprb,3.9811e+01_jprb/)  
kao( :, 2, 6,15) = (/&
 & 3.0886e+01_jprb,2.7025e+01_jprb,2.3164e+01_jprb,2.0488e+01_jprb,2.1264e+01_jprb,2.6574e+01_jprb,&
 & 3.1885e+01_jprb,3.7195e+01_jprb,4.2430e+01_jprb/)  
kao( :, 3, 6,15) = (/&
 & 2.9511e+01_jprb,2.5822e+01_jprb,2.2177e+01_jprb,1.9914e+01_jprb,2.2458e+01_jprb,2.8068e+01_jprb,&
 & 3.3678e+01_jprb,3.9285e+01_jprb,4.4801e+01_jprb/)  
kao( :, 4, 6,15) = (/&
 & 2.8199e+01_jprb,2.4674e+01_jprb,2.1349e+01_jprb,1.9431e+01_jprb,2.3532e+01_jprb,2.9409e+01_jprb,&
 & 3.5286e+01_jprb,4.1160e+01_jprb,4.6949e+01_jprb/)  
kao( :, 5, 6,15) = (/&
 & 2.6942e+01_jprb,2.3574e+01_jprb,2.0489e+01_jprb,1.9227e+01_jprb,2.4487e+01_jprb,3.0601e+01_jprb,&
 & 3.6715e+01_jprb,4.2828e+01_jprb,4.8844e+01_jprb/)  
kao( :, 1, 7,15) = (/&
 & 3.4610e+01_jprb,3.0284e+01_jprb,2.5957e+01_jprb,2.2686e+01_jprb,2.1900e+01_jprb,2.6660e+01_jprb,&
 & 3.1990e+01_jprb,3.7320e+01_jprb,4.2613e+01_jprb/)  
kao( :, 2, 7,15) = (/&
 & 3.3032e+01_jprb,2.8903e+01_jprb,2.4823e+01_jprb,2.1999e+01_jprb,2.2959e+01_jprb,2.8635e+01_jprb,&
 & 3.4359e+01_jprb,4.0081e+01_jprb,4.5761e+01_jprb/)  
kao( :, 3, 7,15) = (/&
 & 3.1543e+01_jprb,2.7600e+01_jprb,2.3940e+01_jprb,2.1366e+01_jprb,2.4341e+01_jprb,3.0423e+01_jprb,&
 & 3.6504e+01_jprb,4.2582e+01_jprb,4.8628e+01_jprb/)  
kao( :, 4, 7,15) = (/&
 & 3.0190e+01_jprb,2.6416e+01_jprb,2.3001e+01_jprb,2.1013e+01_jprb,2.5623e+01_jprb,3.2024e+01_jprb,&
 & 3.8424e+01_jprb,4.4822e+01_jprb,5.1169e+01_jprb/)  
kao( :, 5, 7,15) = (/&
 & 2.9167e+01_jprb,2.5521e+01_jprb,2.2165e+01_jprb,2.1088e+01_jprb,2.6745e+01_jprb,3.3425e+01_jprb,&
 & 4.0104e+01_jprb,4.6781e+01_jprb,5.3415e+01_jprb/)  
kao( :, 1, 8,15) = (/&
 & 3.7034e+01_jprb,3.2405e+01_jprb,2.7803e+01_jprb,2.4330e+01_jprb,2.3433e+01_jprb,2.8325e+01_jprb,&
 & 3.3988e+01_jprb,3.9652e+01_jprb,4.5298e+01_jprb/)  
kao( :, 2, 8,15) = (/&
 & 3.5387e+01_jprb,3.0964e+01_jprb,2.6815e+01_jprb,2.3568e+01_jprb,2.4642e+01_jprb,3.0668e+01_jprb,&
 & 3.6800e+01_jprb,4.2932e+01_jprb,4.9043e+01_jprb/)  
kao( :, 3, 8,15) = (/&
 & 3.3957e+01_jprb,2.9713e+01_jprb,2.5844e+01_jprb,2.3027e+01_jprb,2.6228e+01_jprb,3.2782e+01_jprb,&
 & 3.9335e+01_jprb,4.5888e+01_jprb,5.2425e+01_jprb/)  
kao( :, 4, 8,15) = (/&
 & 3.2996e+01_jprb,2.8872e+01_jprb,2.5090e+01_jprb,2.2964e+01_jprb,2.7731e+01_jprb,3.4659e+01_jprb,&
 & 4.1586e+01_jprb,4.8516e+01_jprb,5.5417e+01_jprb/)  
kao( :, 5, 8,15) = (/&
 & 3.2468e+01_jprb,2.8410e+01_jprb,2.4743e+01_jprb,2.3402e+01_jprb,2.9047e+01_jprb,3.6303e+01_jprb,&
 & 4.3558e+01_jprb,5.0811e+01_jprb,5.8046e+01_jprb/)  
kao( :, 1, 9,15) = (/&
 & 3.9783e+01_jprb,3.4811e+01_jprb,2.9994e+01_jprb,2.6093e+01_jprb,2.4971e+01_jprb,2.9758e+01_jprb,&
 & 3.5708e+01_jprb,4.1658e+01_jprb,4.7610e+01_jprb/)  
kao( :, 2, 9,15) = (/&
 & 3.8247e+01_jprb,3.3466e+01_jprb,2.9067e+01_jprb,2.5305e+01_jprb,2.6362e+01_jprb,3.2520e+01_jprb,&
 & 3.9021e+01_jprb,4.5520e+01_jprb,5.2017e+01_jprb/)  
kao( :, 3, 9,15) = (/&
 & 3.7366e+01_jprb,3.2696e+01_jprb,2.8422e+01_jprb,2.5157e+01_jprb,2.8053e+01_jprb,3.4990e+01_jprb,&
 & 4.1984e+01_jprb,4.8979e+01_jprb,5.5970e+01_jprb/)  
kao( :, 4, 9,15) = (/&
 & 3.6951e+01_jprb,3.2332e+01_jprb,2.8166e+01_jprb,2.5574e+01_jprb,2.9746e+01_jprb,3.7179e+01_jprb,&
 & 4.4610e+01_jprb,5.2042e+01_jprb,5.9480e+01_jprb/)  
kao( :, 5, 9,15) = (/&
 & 3.6807e+01_jprb,3.2206e+01_jprb,2.8238e+01_jprb,2.6320e+01_jprb,3.1345e+01_jprb,3.9177e+01_jprb,&
 & 4.7007e+01_jprb,5.4838e+01_jprb,6.2666e+01_jprb/)  
kao( :, 1,10,15) = (/&
 & 4.3060e+01_jprb,3.7677e+01_jprb,3.2562e+01_jprb,2.8079e+01_jprb,2.6750e+01_jprb,3.1106e+01_jprb,&
 & 3.7325e+01_jprb,4.3543e+01_jprb,4.9762e+01_jprb/)  
kao( :, 2,10,15) = (/&
 & 4.2169e+01_jprb,3.6897e+01_jprb,3.2071e+01_jprb,2.7706e+01_jprb,2.8300e+01_jprb,3.4266e+01_jprb,&
 & 4.1118e+01_jprb,4.7968e+01_jprb,5.4829e+01_jprb/)  
kao( :, 3,10,15) = (/&
 & 4.1907e+01_jprb,3.6669e+01_jprb,3.1957e+01_jprb,2.8123e+01_jprb,3.0151e+01_jprb,3.7151e+01_jprb,&
 & 4.4578e+01_jprb,5.2003e+01_jprb,5.9438e+01_jprb/)  
kao( :, 4,10,15) = (/&
 & 4.1908e+01_jprb,3.6670e+01_jprb,3.2098e+01_jprb,2.8899e+01_jprb,3.2061e+01_jprb,3.9810e+01_jprb,&
 & 4.7769e+01_jprb,5.5728e+01_jprb,6.3685e+01_jprb/)  
kao( :, 5,10,15) = (/&
 & 4.2172e+01_jprb,3.6900e+01_jprb,3.2471e+01_jprb,2.9889e+01_jprb,3.3921e+01_jprb,4.2203e+01_jprb,&
 & 5.0640e+01_jprb,5.9081e+01_jprb,6.7523e+01_jprb/)  

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


SUBROUTINE part11

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


kao( :, 1,11,15) = (/&
 & 4.7323e+01_jprb,4.1408e+01_jprb,3.5997e+01_jprb,3.0832e+01_jprb,2.9578e+01_jprb,3.3795e+01_jprb,&
 & 4.0553e+01_jprb,4.7310e+01_jprb,5.4070e+01_jprb/)  
kao( :, 2,11,15) = (/&
 & 4.7418e+01_jprb,4.1491e+01_jprb,3.6200e+01_jprb,3.1353e+01_jprb,3.1571e+01_jprb,3.7371e+01_jprb,&
 & 4.4844e+01_jprb,5.2315e+01_jprb,5.9798e+01_jprb/)  
kao( :, 3,11,15) = (/&
 & 4.7687e+01_jprb,4.1726e+01_jprb,3.6545e+01_jprb,3.2311e+01_jprb,3.3701e+01_jprb,4.0657e+01_jprb,&
 & 4.8786e+01_jprb,5.6913e+01_jprb,6.5046e+01_jprb/)  
kao( :, 4,11,15) = (/&
 & 4.8161e+01_jprb,4.2141e+01_jprb,3.7083e+01_jprb,3.3405e+01_jprb,3.5837e+01_jprb,4.3612e+01_jprb,&
 & 5.2330e+01_jprb,6.1049e+01_jprb,6.9766e+01_jprb/)  
kao( :, 5,11,15) = (/&
 & 4.8813e+01_jprb,4.2712e+01_jprb,3.7729e+01_jprb,3.4639e+01_jprb,3.7893e+01_jprb,4.6304e+01_jprb,&
 & 5.5561e+01_jprb,6.4817e+01_jprb,7.4079e+01_jprb/)  
kao( :, 1,12,15) = (/&
 & 5.3537e+01_jprb,4.6845e+01_jprb,4.0868e+01_jprb,3.5074e+01_jprb,3.3315e+01_jprb,3.6716e+01_jprb,&
 & 4.3952e+01_jprb,5.1273e+01_jprb,5.8607e+01_jprb/)  
kao( :, 2,12,15) = (/&
 & 5.4108e+01_jprb,4.7344e+01_jprb,4.1453e+01_jprb,3.6183e+01_jprb,3.5626e+01_jprb,4.0597e+01_jprb,&
 & 4.8705e+01_jprb,5.6822e+01_jprb,6.4945e+01_jprb/)  
kao( :, 3,12,15) = (/&
 & 5.4788e+01_jprb,4.7940e+01_jprb,4.2158e+01_jprb,3.7480e+01_jprb,3.7956e+01_jprb,4.4233e+01_jprb,&
 & 5.3076e+01_jprb,6.1921e+01_jprb,7.0769e+01_jprb/)  
kao( :, 4,12,15) = (/&
 & 5.5656e+01_jprb,4.8699e+01_jprb,4.2978e+01_jprb,3.8824e+01_jprb,4.0296e+01_jprb,4.7573e+01_jprb,&
 & 5.7085e+01_jprb,6.6598e+01_jprb,7.6119e+01_jprb/)  
kao( :, 5,12,15) = (/&
 & 5.6545e+01_jprb,4.9477e+01_jprb,4.3802e+01_jprb,4.0209e+01_jprb,4.2495e+01_jprb,5.0548e+01_jprb,&
 & 6.0654e+01_jprb,7.0757e+01_jprb,8.0864e+01_jprb/)  
kao( :, 1,13,15) = (/&
 & 6.1085e+01_jprb,5.3449e+01_jprb,4.6803e+01_jprb,4.0529e+01_jprb,3.7896e+01_jprb,4.0194e+01_jprb,&
 & 4.7752e+01_jprb,5.5708e+01_jprb,6.3666e+01_jprb/)  
kao( :, 2,13,15) = (/&
 & 6.2117e+01_jprb,5.4352e+01_jprb,4.7746e+01_jprb,4.2003e+01_jprb,4.0420e+01_jprb,4.4278e+01_jprb,&
 & 5.2905e+01_jprb,6.1722e+01_jprb,7.0545e+01_jprb/)  
kao( :, 3,13,15) = (/&
 & 6.3149e+01_jprb,5.5256e+01_jprb,4.8730e+01_jprb,4.3496e+01_jprb,4.2927e+01_jprb,4.8152e+01_jprb,&
 & 5.7673e+01_jprb,6.7281e+01_jprb,7.6896e+01_jprb/)  
kao( :, 4,13,15) = (/&
 & 6.4233e+01_jprb,5.6204e+01_jprb,4.9701e+01_jprb,4.5014e+01_jprb,4.5352e+01_jprb,5.1670e+01_jprb,&
 & 6.1941e+01_jprb,7.2260e+01_jprb,8.2578e+01_jprb/)  
kao( :, 5,13,15) = (/&
 & 6.5315e+01_jprb,5.7151e+01_jprb,5.0642e+01_jprb,4.6520e+01_jprb,4.7583e+01_jprb,5.4805e+01_jprb,&
 & 6.5738e+01_jprb,7.6689e+01_jprb,8.7640e+01_jprb/)  
kao( :, 1, 1,16) = (/&
 & 2.3217e+01_jprb,2.0315e+01_jprb,1.7413e+01_jprb,1.4511e+01_jprb,1.7128e+01_jprb,2.1409e+01_jprb,&
 & 2.5690e+01_jprb,2.9970e+01_jprb,3.1682e+01_jprb/)  
kao( :, 2, 1,16) = (/&
 & 2.2360e+01_jprb,1.9565e+01_jprb,1.6770e+01_jprb,1.3975e+01_jprb,1.7727e+01_jprb,2.2158e+01_jprb,&
 & 2.6589e+01_jprb,3.1019e+01_jprb,3.2781e+01_jprb/)  
kao( :, 3, 1,16) = (/&
 & 2.1511e+01_jprb,1.8822e+01_jprb,1.6134e+01_jprb,1.3677e+01_jprb,1.8236e+01_jprb,2.2795e+01_jprb,&
 & 2.7353e+01_jprb,3.1910e+01_jprb,3.3717e+01_jprb/)  
kao( :, 4, 1,16) = (/&
 & 2.0675e+01_jprb,1.8091e+01_jprb,1.5507e+01_jprb,1.4001e+01_jprb,1.8668e+01_jprb,2.3334e+01_jprb,&
 & 2.8002e+01_jprb,3.2666e+01_jprb,3.4515e+01_jprb/)  
kao( :, 5, 1,16) = (/&
 & 1.9862e+01_jprb,1.7379e+01_jprb,1.4897e+01_jprb,1.4274e+01_jprb,1.9032e+01_jprb,2.3789e+01_jprb,&
 & 2.8546e+01_jprb,3.3301e+01_jprb,3.5180e+01_jprb/)  
kao( :, 1, 2,16) = (/&
 & 2.4993e+01_jprb,2.1869e+01_jprb,1.8745e+01_jprb,1.5621e+01_jprb,2.0288e+01_jprb,2.5360e+01_jprb,&
 & 3.0431e+01_jprb,3.5501e+01_jprb,3.8500e+01_jprb/)  
kao( :, 2, 2,16) = (/&
 & 2.4003e+01_jprb,2.1003e+01_jprb,1.8003e+01_jprb,1.5799e+01_jprb,2.1064e+01_jprb,2.6330e+01_jprb,&
 & 3.1595e+01_jprb,3.6859e+01_jprb,3.9965e+01_jprb/)  
kao( :, 3, 2,16) = (/&
 & 2.3031e+01_jprb,2.0153e+01_jprb,1.7274e+01_jprb,1.6296e+01_jprb,2.1728e+01_jprb,2.7159e+01_jprb,&
 & 3.2591e+01_jprb,3.8020e+01_jprb,4.1220e+01_jprb/)  
kao( :, 4, 2,16) = (/&
 & 2.2084e+01_jprb,1.9324e+01_jprb,1.6564e+01_jprb,1.6718e+01_jprb,2.2290e+01_jprb,2.7862e+01_jprb,&
 & 3.3433e+01_jprb,3.9003e+01_jprb,4.2289e+01_jprb/)  
kao( :, 5, 2,16) = (/&
 & 2.1176e+01_jprb,1.8529e+01_jprb,1.5883e+01_jprb,1.7075e+01_jprb,2.2766e+01_jprb,2.8457e+01_jprb,&
 & 3.4148e+01_jprb,3.9837e+01_jprb,4.3190e+01_jprb/)  
kao( :, 1, 3,16) = (/&
 & 2.7048e+01_jprb,2.3667e+01_jprb,2.0286e+01_jprb,1.7873e+01_jprb,2.3831e+01_jprb,2.9788e+01_jprb,&
 & 3.5745e+01_jprb,4.1700e+01_jprb,4.6434e+01_jprb/)  
kao( :, 2, 3,16) = (/&
 & 2.5923e+01_jprb,2.2683e+01_jprb,1.9443e+01_jprb,1.8645e+01_jprb,2.4860e+01_jprb,3.1075e+01_jprb,&
 & 3.7289e+01_jprb,4.3501e+01_jprb,4.8433e+01_jprb/)  
kao( :, 3, 3,16) = (/&
 & 2.4829e+01_jprb,2.1725e+01_jprb,1.8622e+01_jprb,1.9301e+01_jprb,2.5734e+01_jprb,3.2168e+01_jprb,&
 & 3.8600e+01_jprb,4.5030e+01_jprb,5.0155e+01_jprb/)  
kao( :, 4, 3,16) = (/&
 & 2.3775e+01_jprb,2.0804e+01_jprb,1.7832e+01_jprb,1.9866e+01_jprb,2.6487e+01_jprb,3.3108e+01_jprb,&
 & 3.9729e+01_jprb,4.6348e+01_jprb,5.1627e+01_jprb/)  
kao( :, 5, 3,16) = (/&
 & 2.2759e+01_jprb,1.9914e+01_jprb,1.7070e+01_jprb,2.0344e+01_jprb,2.7124e+01_jprb,3.3905e+01_jprb,&
 & 4.0685e+01_jprb,4.7463e+01_jprb,5.2855e+01_jprb/)  
kao( :, 1, 4,16) = (/&
 & 2.9281e+01_jprb,2.5621e+01_jprb,2.1961e+01_jprb,2.0878e+01_jprb,2.7836e+01_jprb,3.4801e+01_jprb,&
 & 4.1761e+01_jprb,4.8718e+01_jprb,5.5008e+01_jprb/)  
kao( :, 2, 4,16) = (/&
 & 2.8016e+01_jprb,2.4514e+01_jprb,2.1012e+01_jprb,2.1904e+01_jprb,2.9205e+01_jprb,3.6506e+01_jprb,&
 & 4.3806e+01_jprb,5.1103e+01_jprb,5.7673e+01_jprb/)  
kao( :, 3, 4,16) = (/&
 & 2.6800e+01_jprb,2.3450e+01_jprb,2.0100e+01_jprb,2.2779e+01_jprb,3.0372e+01_jprb,3.7964e+01_jprb,&
 & 4.5556e+01_jprb,5.3145e+01_jprb,6.0000e+01_jprb/)  
kao( :, 4, 4,16) = (/&
 & 2.5622e+01_jprb,2.2420e+01_jprb,1.9217e+01_jprb,2.3531e+01_jprb,3.1375e+01_jprb,3.9218e+01_jprb,&
 & 4.7060e+01_jprb,5.4900e+01_jprb,6.1967e+01_jprb/)  
kao( :, 5, 4,16) = (/&
 & 2.4489e+01_jprb,2.1428e+01_jprb,1.8368e+01_jprb,2.4165e+01_jprb,3.2219e+01_jprb,4.0274e+01_jprb,&
 & 4.8327e+01_jprb,5.6378e+01_jprb,6.3637e+01_jprb/)  
kao( :, 1, 5,16) = (/&
 & 3.1572e+01_jprb,2.7626e+01_jprb,2.3679e+01_jprb,2.4302e+01_jprb,3.2402e+01_jprb,4.0502e+01_jprb,&
 & 4.8601e+01_jprb,5.6697e+01_jprb,6.4411e+01_jprb/)  
kao( :, 2, 5,16) = (/&
 & 3.0155e+01_jprb,2.6386e+01_jprb,2.2616e+01_jprb,2.5641e+01_jprb,3.4188e+01_jprb,4.2734e+01_jprb,&
 & 5.1280e+01_jprb,5.9822e+01_jprb,6.7939e+01_jprb/)  
kao( :, 3, 5,16) = (/&
 & 2.8800e+01_jprb,2.5200e+01_jprb,2.1600e+01_jprb,2.6788e+01_jprb,3.5717e+01_jprb,4.4645e+01_jprb,&
 & 5.3573e+01_jprb,6.2498e+01_jprb,7.0987e+01_jprb/)  
kao( :, 4, 5,16) = (/&
 & 2.7508e+01_jprb,2.4070e+01_jprb,2.0631e+01_jprb,2.7770e+01_jprb,3.7026e+01_jprb,4.6282e+01_jprb,&
 & 5.5538e+01_jprb,6.4790e+01_jprb,7.3602e+01_jprb/)  
kao( :, 5, 5,16) = (/&
 & 2.6277e+01_jprb,2.2993e+01_jprb,1.9723e+01_jprb,2.8602e+01_jprb,3.8136e+01_jprb,4.7669e+01_jprb,&
 & 5.7201e+01_jprb,6.6735e+01_jprb,7.5802e+01_jprb/)  
kao( :, 1, 6,16) = (/&
 & 3.4063e+01_jprb,2.9805e+01_jprb,2.5548e+01_jprb,2.8070e+01_jprb,3.7426e+01_jprb,4.6782e+01_jprb,&
 & 5.6138e+01_jprb,6.5490e+01_jprb,7.4618e+01_jprb/)  
kao( :, 2, 6,16) = (/&
 & 3.2500e+01_jprb,2.8438e+01_jprb,2.4375e+01_jprb,2.9810e+01_jprb,3.9747e+01_jprb,4.9683e+01_jprb,&
 & 5.9618e+01_jprb,6.9550e+01_jprb,7.9236e+01_jprb/)  
kao( :, 3, 6,16) = (/&
 & 3.1024e+01_jprb,2.7146e+01_jprb,2.3268e+01_jprb,3.1309e+01_jprb,4.1745e+01_jprb,5.2181e+01_jprb,&
 & 6.2616e+01_jprb,7.3047e+01_jprb,8.3222e+01_jprb/)  
kao( :, 4, 6,16) = (/&
 & 2.9629e+01_jprb,2.5925e+01_jprb,2.2365e+01_jprb,3.2588e+01_jprb,4.3451e+01_jprb,5.4313e+01_jprb,&
 & 6.5174e+01_jprb,7.6032e+01_jprb,8.6614e+01_jprb/)  
kao( :, 5, 6,16) = (/&
 & 2.8309e+01_jprb,2.4770e+01_jprb,2.2515e+01_jprb,3.3663e+01_jprb,4.4883e+01_jprb,5.6104e+01_jprb,&
 & 6.7323e+01_jprb,7.8538e+01_jprb,8.9494e+01_jprb/)  
kao( :, 1, 7,16) = (/&
 & 3.6910e+01_jprb,3.2297e+01_jprb,2.7683e+01_jprb,3.2196e+01_jprb,4.2928e+01_jprb,5.3659e+01_jprb,&
 & 6.4389e+01_jprb,7.5116e+01_jprb,8.5705e+01_jprb/)  
kao( :, 2, 7,16) = (/&
 & 3.5197e+01_jprb,3.0797e+01_jprb,2.6398e+01_jprb,3.4425e+01_jprb,4.5900e+01_jprb,5.7374e+01_jprb,&
 & 6.8848e+01_jprb,8.0317e+01_jprb,9.1670e+01_jprb/)  
kao( :, 3, 7,16) = (/&
 & 3.3605e+01_jprb,2.9404e+01_jprb,2.5310e+01_jprb,3.6355e+01_jprb,4.8473e+01_jprb,6.0591e+01_jprb,&
 & 7.2708e+01_jprb,8.4820e+01_jprb,9.6786e+01_jprb/)  
kao( :, 4, 7,16) = (/&
 & 3.2106e+01_jprb,2.8093e+01_jprb,2.5533e+01_jprb,3.7999e+01_jprb,5.0665e+01_jprb,6.3330e+01_jprb,&
 & 7.5995e+01_jprb,8.8655e+01_jprb,1.0117e+02_jprb/)  
kao( :, 5, 7,16) = (/&
 & 3.0744e+01_jprb,2.6901e+01_jprb,2.6250e+01_jprb,3.9375e+01_jprb,5.2499e+01_jprb,6.5623e+01_jprb,&
 & 7.8746e+01_jprb,9.1865e+01_jprb,1.0485e+02_jprb/)  
kao( :, 1, 8,16) = (/&
 & 4.0073e+01_jprb,3.5064e+01_jprb,3.0055e+01_jprb,3.6634e+01_jprb,4.8845e+01_jprb,6.1056e+01_jprb,&
 & 7.3265e+01_jprb,8.5470e+01_jprb,9.7620e+01_jprb/)  
kao( :, 2, 8,16) = (/&
 & 3.8256e+01_jprb,3.3474e+01_jprb,2.8692e+01_jprb,3.9468e+01_jprb,5.2623e+01_jprb,6.5778e+01_jprb,&
 & 7.8932e+01_jprb,9.2081e+01_jprb,1.0517e+02_jprb/)  
kao( :, 3, 8,16) = (/&
 & 3.6587e+01_jprb,3.2013e+01_jprb,2.8588e+01_jprb,4.1890e+01_jprb,5.5854e+01_jprb,6.9816e+01_jprb,&
 & 8.3778e+01_jprb,9.7751e+01_jprb,1.1165e+02_jprb/)  
kao( :, 4, 8,16) = (/&
 & 3.5145e+01_jprb,3.0752e+01_jprb,2.9433e+01_jprb,4.3973e+01_jprb,5.8630e+01_jprb,7.3286e+01_jprb,&
 & 8.7942e+01_jprb,1.0259e+02_jprb,1.1716e+02_jprb/)  
kao( :, 5, 8,16) = (/&
 & 3.4615e+01_jprb,3.0288e+01_jprb,3.0495e+01_jprb,4.5712e+01_jprb,6.0949e+01_jprb,7.6185e+01_jprb,&
 & 9.1420e+01_jprb,1.0665e+02_jprb,1.2183e+02_jprb/)  
kao( :, 1, 9,16) = (/&
 & 4.3755e+01_jprb,3.8286e+01_jprb,3.2816e+01_jprb,4.1247e+01_jprb,5.4995e+01_jprb,6.8743e+01_jprb,&
 & 8.2490e+01_jprb,9.6233e+01_jprb,1.0997e+02_jprb/)  
kao( :, 2, 9,16) = (/&
 & 4.1945e+01_jprb,3.6702e+01_jprb,3.1862e+01_jprb,4.4780e+01_jprb,5.9706e+01_jprb,7.4631e+01_jprb,&
 & 8.9556e+01_jprb,1.0447e+02_jprb,1.1940e+02_jprb/)  
kao( :, 3, 9,16) = (/&
 & 4.0428e+01_jprb,3.5374e+01_jprb,3.2607e+01_jprb,4.7818e+01_jprb,6.3757e+01_jprb,7.9695e+01_jprb,&
 & 9.5632e+01_jprb,1.1156e+02_jprb,1.2752e+02_jprb/)  
kao( :, 4, 9,16) = (/&
 & 3.9770e+01_jprb,3.4798e+01_jprb,3.3900e+01_jprb,5.0397e+01_jprb,6.7196e+01_jprb,8.3994e+01_jprb,&
 & 1.0079e+02_jprb,1.1758e+02_jprb,1.3434e+02_jprb/)  
kao( :, 5, 9,16) = (/&
 & 4.1051e+01_jprb,3.5919e+01_jprb,3.5387e+01_jprb,5.2540e+01_jprb,7.0054e+01_jprb,8.7567e+01_jprb,&
 & 1.0508e+02_jprb,1.2258e+02_jprb,1.4009e+02_jprb/)  
kao( :, 1,10,16) = (/&
 & 4.8191e+01_jprb,4.2167e+01_jprb,3.6143e+01_jprb,4.6233e+01_jprb,6.1643e+01_jprb,7.7053e+01_jprb,&
 & 9.2462e+01_jprb,1.0788e+02_jprb,1.2329e+02_jprb/)  
kao( :, 2,10,16) = (/&
 & 4.6632e+01_jprb,4.0803e+01_jprb,3.6096e+01_jprb,5.0540e+01_jprb,6.7392e+01_jprb,8.4239e+01_jprb,&
 & 1.0109e+02_jprb,1.1792e+02_jprb,1.3475e+02_jprb/)  
kao( :, 3,10,16) = (/&
 & 4.5798e+01_jprb,4.0073e+01_jprb,3.7372e+01_jprb,5.4219e+01_jprb,7.2291e+01_jprb,9.0363e+01_jprb,&
 & 1.0843e+02_jprb,1.2650e+02_jprb,1.4462e+02_jprb/)  
kao( :, 4,10,16) = (/&
 & 4.7009e+01_jprb,4.1133e+01_jprb,3.9401e+01_jprb,5.7318e+01_jprb,7.6424e+01_jprb,9.5528e+01_jprb,&
 & 1.1463e+02_jprb,1.3373e+02_jprb,1.5287e+02_jprb/)  
kao( :, 5,10,16) = (/&
 & 4.8862e+01_jprb,4.2754e+01_jprb,4.1265e+01_jprb,5.9899e+01_jprb,7.9865e+01_jprb,9.9835e+01_jprb,&
 & 1.1980e+02_jprb,1.3976e+02_jprb,1.5971e+02_jprb/)  
kao( :, 1,11,16) = (/&
 & 5.3373e+01_jprb,4.6702e+01_jprb,4.0606e+01_jprb,5.3674e+01_jprb,7.1565e+01_jprb,8.9455e+01_jprb,&
 & 1.0734e+02_jprb,1.2523e+02_jprb,1.4312e+02_jprb/)  
kao( :, 2,11,16) = (/&
 & 5.3017e+01_jprb,4.6390e+01_jprb,4.2053e+01_jprb,5.8474e+01_jprb,7.7965e+01_jprb,9.7455e+01_jprb,&
 & 1.1694e+02_jprb,1.3643e+02_jprb,1.5595e+02_jprb/)  
kao( :, 3,11,16) = (/&
 & 5.4550e+01_jprb,4.7731e+01_jprb,4.4590e+01_jprb,6.2526e+01_jprb,8.3367e+01_jprb,1.0421e+02_jprb,&
 & 1.2505e+02_jprb,1.4588e+02_jprb,1.6674e+02_jprb/)  
kao( :, 4,11,16) = (/&
 & 5.6780e+01_jprb,4.9683e+01_jprb,4.6971e+01_jprb,6.5903e+01_jprb,8.7870e+01_jprb,1.0984e+02_jprb,&
 & 1.3180e+02_jprb,1.5376e+02_jprb,1.7563e+02_jprb/)  
kao( :, 5,11,16) = (/&
 & 5.9041e+01_jprb,5.1661e+01_jprb,4.9066e+01_jprb,6.8642e+01_jprb,9.1523e+01_jprb,1.1440e+02_jprb,&
 & 1.3728e+02_jprb,1.6015e+02_jprb,1.8306e+02_jprb/)  
kao( :, 1,12,16) = (/&
 & 6.1525e+01_jprb,5.3834e+01_jprb,4.7398e+01_jprb,6.1480e+01_jprb,8.1973e+01_jprb,1.0246e+02_jprb,&
 & 1.2296e+02_jprb,1.4346e+02_jprb,1.6393e+02_jprb/)  
kao( :, 2,12,16) = (/&
 & 6.3155e+01_jprb,5.5261e+01_jprb,5.0248e+01_jprb,6.6709e+01_jprb,8.8945e+01_jprb,1.1118e+02_jprb,&
 & 1.3341e+02_jprb,1.5564e+02_jprb,1.7789e+02_jprb/)  
kao( :, 3,12,16) = (/&
 & 6.5829e+01_jprb,5.7600e+01_jprb,5.3241e+01_jprb,7.1073e+01_jprb,9.4764e+01_jprb,1.1845e+02_jprb,&
 & 1.4214e+02_jprb,1.6583e+02_jprb,1.8954e+02_jprb/)  
kao( :, 4,12,16) = (/&
 & 6.8453e+01_jprb,5.9896e+01_jprb,5.5974e+01_jprb,7.4756e+01_jprb,9.9674e+01_jprb,1.2459e+02_jprb,&
 & 1.4950e+02_jprb,1.7441e+02_jprb,1.9932e+02_jprb/)  
kao( :, 5,12,16) = (/&
 & 7.1079e+01_jprb,6.2194e+01_jprb,5.8308e+01_jprb,7.7950e+01_jprb,1.0393e+02_jprb,1.2991e+02_jprb,&
 & 1.5589e+02_jprb,1.8186e+02_jprb,2.0786e+02_jprb/)  
kao( :, 1,13,16) = (/&
 & 7.3106e+01_jprb,6.3968e+01_jprb,5.6524e+01_jprb,6.9787e+01_jprb,9.2588e+01_jprb,1.1573e+02_jprb,&
 & 1.3888e+02_jprb,1.6201e+02_jprb,1.8517e+02_jprb/)  
kao( :, 2,13,16) = (/&
 & 7.5846e+01_jprb,6.6365e+01_jprb,6.0094e+01_jprb,7.5398e+01_jprb,1.0038e+02_jprb,1.2548e+02_jprb,&
 & 1.5057e+02_jprb,1.7566e+02_jprb,2.0075e+02_jprb/)  
kao( :, 3,13,16) = (/&
 & 7.9121e+01_jprb,6.9231e+01_jprb,6.3478e+01_jprb,8.0291e+01_jprb,1.0705e+02_jprb,1.3382e+02_jprb,&
 & 1.6058e+02_jprb,1.8733e+02_jprb,2.1409e+02_jprb/)  
kao( :, 4,13,16) = (/&
 & 8.2254e+01_jprb,7.1972e+01_jprb,6.6518e+01_jprb,8.4693e+01_jprb,1.1292e+02_jprb,1.4115e+02_jprb,&
 & 1.6938e+02_jprb,1.9759e+02_jprb,2.2586e+02_jprb/)  
kao( :, 5,13,16) = (/&
 & 8.5142e+01_jprb,7.4499e+01_jprb,6.9191e+01_jprb,8.8493e+01_jprb,1.1799e+02_jprb,1.4748e+02_jprb,&
 & 1.7697e+02_jprb,2.0646e+02_jprb,2.3600e+02_jprb/)  

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

selfrefo( :, 1) = (/&
 & 2.34973e-02_jprb, 2.07877e-02_jprb, 1.83905e-02_jprb, 1.62698e-02_jprb, 1.43936e-02_jprb,&
 & 1.27338e-02_jprb, 1.12654e-02_jprb, 9.96632e-03_jprb, 8.81704e-03_jprb, 7.80030e-03_jprb/)  
selfrefo( :, 2) = (/&
 & 3.10090e-02_jprb, 2.82626e-02_jprb, 2.57594e-02_jprb, 2.34779e-02_jprb, 2.13985e-02_jprb,&
 & 1.95033e-02_jprb, 1.77759e-02_jprb, 1.62015e-02_jprb, 1.47665e-02_jprb, 1.34587e-02_jprb/)  
selfrefo( :, 3) = (/&
 & 5.36676e-02_jprb, 4.95621e-02_jprb, 4.57706e-02_jprb, 4.22692e-02_jprb, 3.90356e-02_jprb,&
 & 3.60494e-02_jprb, 3.32917e-02_jprb, 3.07449e-02_jprb, 2.83929e-02_jprb, 2.62209e-02_jprb/)  
selfrefo( :, 4) = (/&
 & 9.05844e-02_jprb, 8.33349e-02_jprb, 7.66656e-02_jprb, 7.05300e-02_jprb, 6.48855e-02_jprb,&
 & 5.96927e-02_jprb, 5.49155e-02_jprb, 5.05206e-02_jprb, 4.64774e-02_jprb, 4.27578e-02_jprb/)  
selfrefo( :, 5) = (/&
 & 1.10531e-01_jprb, 1.03430e-01_jprb, 9.67851e-02_jprb, 9.05670e-02_jprb, 8.47484e-02_jprb,&
 & 7.93037e-02_jprb, 7.42087e-02_jprb, 6.94411e-02_jprb, 6.49797e-02_jprb, 6.08050e-02_jprb/)  
selfrefo( :, 6) = (/&
 & 1.24308e-01_jprb, 1.16014e-01_jprb, 1.08274e-01_jprb, 1.01050e-01_jprb, 9.43078e-02_jprb,&
 & 8.80155e-02_jprb, 8.21431e-02_jprb, 7.66624e-02_jprb, 7.15475e-02_jprb, 6.67738e-02_jprb/)  
selfrefo( :, 7) = (/&
 & 1.34594e-01_jprb, 1.25054e-01_jprb, 1.16190e-01_jprb, 1.07954e-01_jprb, 1.00302e-01_jprb,&
 & 9.31920e-02_jprb, 8.65863e-02_jprb, 8.04488e-02_jprb, 7.47464e-02_jprb, 6.94481e-02_jprb/)  
selfrefo( :, 8) = (/&
 & 1.26966e-01_jprb, 1.18270e-01_jprb, 1.10169e-01_jprb, 1.02624e-01_jprb, 9.55948e-02_jprb,&
 & 8.90474e-02_jprb, 8.29484e-02_jprb, 7.72672e-02_jprb, 7.19750e-02_jprb, 6.70453e-02_jprb/)  
selfrefo( :, 9) = (/&
 & 1.29806e-01_jprb, 1.21296e-01_jprb, 1.13344e-01_jprb, 1.05913e-01_jprb, 9.89690e-02_jprb,&
 & 9.24805e-02_jprb, 8.64175e-02_jprb, 8.07519e-02_jprb, 7.54578e-02_jprb, 7.05108e-02_jprb/)  
selfrefo( :,10) = (/&
 & 1.37781e-01_jprb, 1.26830e-01_jprb, 1.16751e-01_jprb, 1.07472e-01_jprb, 9.89303e-02_jprb,&
 & 9.10678e-02_jprb, 8.38301e-02_jprb, 7.71677e-02_jprb, 7.10347e-02_jprb, 6.53892e-02_jprb/)  
selfrefo( :,11) = (/&
 & 1.30675e-01_jprb, 1.24254e-01_jprb, 1.18149e-01_jprb, 1.12344e-01_jprb, 1.06824e-01_jprb,&
 & 1.01575e-01_jprb, 9.65839e-02_jprb, 9.18383e-02_jprb, 8.73258e-02_jprb, 8.30351e-02_jprb/)  
selfrefo( :,12) = (/&
 & 1.55998e-01_jprb, 1.45155e-01_jprb, 1.35067e-01_jprb, 1.25679e-01_jprb, 1.16944e-01_jprb,&
 & 1.08816e-01_jprb, 1.01253e-01_jprb, 9.42160e-02_jprb, 8.76677e-02_jprb, 8.15746e-02_jprb/)  
selfrefo( :,13) = (/&
 & 1.56508e-01_jprb, 1.46390e-01_jprb, 1.36925e-01_jprb, 1.28072e-01_jprb, 1.19792e-01_jprb,&
 & 1.12047e-01_jprb, 1.04803e-01_jprb, 9.80266e-02_jprb, 9.16888e-02_jprb, 8.57608e-02_jprb/)  
selfrefo( :,14) = (/&
 & 1.55206e-01_jprb, 1.43469e-01_jprb, 1.32620e-01_jprb, 1.22591e-01_jprb, 1.13321e-01_jprb,&
 & 1.04752e-01_jprb, 9.68305e-02_jprb, 8.95082e-02_jprb, 8.27396e-02_jprb, 7.64829e-02_jprb/)  

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


SUBROUTINE part12

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


selfrefo( :,15) = (/&
 & 1.46694e-01_jprb, 1.35458e-01_jprb, 1.25082e-01_jprb, 1.15501e-01_jprb, 1.06654e-01_jprb,&
 & 9.84840e-02_jprb, 9.09403e-02_jprb, 8.39744e-02_jprb, 7.75420e-02_jprb, 7.16024e-02_jprb/)  
selfrefo( :,16) = (/&
 & 1.65126e-01_jprb, 1.53281e-01_jprb, 1.42287e-01_jprb, 1.32081e-01_jprb, 1.22607e-01_jprb,&
 & 1.13812e-01_jprb, 1.05649e-01_jprb, 9.80707e-02_jprb, 9.10362e-02_jprb, 8.45063e-02_jprb/)  

fracrefao( : ,1) = (/&
 !     From P = 706.3 mb.
 & 0.21245100_jprb,0.15164700_jprb,0.14486700_jprb,0.13075501_jprb,&
 & 0.11629600_jprb,0.09266050_jprb,0.06579930_jprb,0.04524000_jprb,&
 & 0.03072870_jprb,0.00284297_jprb,0.00234660_jprb,0.00185208_jprb,&
 & 0.00133978_jprb,0.00082214_jprb,0.00031016_jprb,0.00004363_jprb/)  
fracrefao( : ,2) = (/&
 & 0.14703900_jprb,0.16937999_jprb,0.15605700_jprb,0.14159000_jprb,&
 & 0.12088500_jprb,0.10058500_jprb,0.06809110_jprb,0.05131470_jprb,&
 & 0.03487040_jprb,0.00327281_jprb,0.00250183_jprb,0.00190024_jprb,&
 & 0.00133978_jprb,0.00082214_jprb,0.00031016_jprb,0.00004363_jprb/)  
fracrefao( : ,3) = (/&
 & 0.13689300_jprb,0.16610400_jprb,0.15723500_jprb,0.14299500_jprb,&
 & 0.12399400_jprb,0.09907820_jprb,0.07169690_jprb,0.05367370_jprb,&
 & 0.03671630_jprb,0.00378148_jprb,0.00290510_jprb,0.00221076_jprb,&
 & 0.00142810_jprb,0.00093527_jprb,0.00031016_jprb,0.00004363_jprb/)  
fracrefao( : ,4) = (/&
 & 0.13054299_jprb,0.16273800_jprb,0.15874299_jprb,0.14279599_jprb,&
 & 0.12674300_jprb,0.09664900_jprb,0.07462200_jprb,0.05620080_jprb,&
 & 0.03789090_jprb,0.00411690_jprb,0.00322920_jprb,0.00245036_jprb,&
 & 0.00178303_jprb,0.00098595_jprb,0.00040802_jprb,0.00010150_jprb/)  
fracrefao( : ,5) = (/&
 & 0.12828299_jprb,0.15824600_jprb,0.15688400_jprb,0.14449100_jprb,&
 & 0.12787800_jprb,0.09517830_jprb,0.07679350_jprb,0.05890820_jprb,&
 & 0.03883570_jprb,0.00442304_jprb,0.00346796_jprb,0.00255333_jprb,&
 & 0.00212519_jprb,0.00116168_jprb,0.00067065_jprb,0.00010150_jprb/)  
fracrefao( : ,6) = (/&
 & 0.12649800_jprb,0.15195100_jprb,0.15646499_jprb,0.14569700_jprb,&
 & 0.12669300_jprb,0.09653520_jprb,0.07887920_jprb,0.06106920_jprb,&
 & 0.04043910_jprb,0.00430390_jprb,0.00364453_jprb,0.00314360_jprb,&
 & 0.00203206_jprb,0.00187787_jprb,0.00067075_jprb,0.00010150_jprb/)  
fracrefao( : ,7) = (/&
 & 0.12500300_jprb,0.14460599_jprb,0.15672199_jprb,0.14724600_jprb,&
 & 0.11978900_jprb,0.10190200_jprb,0.08196710_jprb,0.06315770_jprb,&
 & 0.04240100_jprb,0.00433645_jprb,0.00404097_jprb,0.00329466_jprb,&
 & 0.00288491_jprb,0.00187803_jprb,0.00067093_jprb,0.00010150_jprb/)  
fracrefao( : ,8) = (/&
 & 0.12317200_jprb,0.14118700_jprb,0.15242000_jprb,0.13794300_jprb,&
 & 0.12119200_jprb,0.10655400_jprb,0.08808350_jprb,0.06521370_jprb,&
 & 0.04505680_jprb,0.00485949_jprb,0.00477105_jprb,0.00401468_jprb,&
 & 0.00288491_jprb,0.00187786_jprb,0.00067110_jprb,0.00010150_jprb/)  
fracrefao( : ,9) = (/&
 & 0.10193600_jprb,0.11693000_jprb,0.13236099_jprb,0.14053200_jprb,&
 & 0.13749801_jprb,0.12193100_jprb,0.10221000_jprb,0.07448910_jprb,&
 & 0.05205320_jprb,0.00572312_jprb,0.00476882_jprb,0.00403380_jprb,&
 & 0.00288871_jprb,0.00187396_jprb,0.00067218_jprb,0.00010150_jprb/)  

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


END SUBROUTINE rrtm_kgb12