rrtm_kgb5_A2.F90

Go to the documentation of this file.

!OCL SCALAR
SUBROUTINE rrtm_kgb5_a2

!     Originally by Eli J. Mlawer, Atmospheric & Environmental Research.
!     BAND 5:  700-820 cm-1 (low - H2O,CO2; high - O3,CO2)
!     Reformatted for F90 by JJMorcrette, ECMWF
!     Reformatted for NEC by H.Gallée   , LGGE  (splitting)

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

#include "tsmbkind.h"

USE yoerrto5 , ONLY : kao     ,kbo     ,selfrefo   ,fracrefao  ,&
           &fracrefbo, ccl4o
USE yoerrta5 , ONLY : strrat1   ,strrat2

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


IMPLICIT NONE

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

!     The array KAO contains absorption coefs for each of the 16 g-intervals
!     for a range of pressure levels > ~100mb, temperatures, and ratios
!     of water vapor to CO2.  The first index in the array, JS, runs
!     from 1 to 9 and corresponds to different water vapor to CO2 ratios,
!     as expressed through the binary species parameter eta, defined as
!     eta = h2o/(h20 + (rat) * co2), where rat is the ratio of the integrated
!     line strength in the band of co2 to that of h2o.  For instance,
!     JS=1 refers to dry air (eta = 0), JS = 9 corresponds to eta = 1.0.
!     The 2nd index in the array, JT, which runs from 1 to 5, corresponds 
!     to different temperatures.  More specifically, JT = 3 means that the 
!     data are for the reference temperature TREF for this  pressure 
!     level, JT = 2 refers to the temperature TREF-15, 
!     JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5
!     is for TREF+30.  The third index, JP, runs from 1 to 13 and refers
!     to the reference pressure level (e.g. JP = 1 is for a
!     pressure of 1053.63 mb).  The fourth index, IG, goes from 1 to 16,
!     and tells us which g-interval the absorption coefficients are for.

kao( :, 1, 1, 9) = (/&
&1.0292e-02_jprb,1.0074e-02_jprb,1.0433e-02_jprb,1.0920e-02_jprb,1.1239e-02_jprb,1.1304e-02_jprb,&
&1.1018e-02_jprb,9.9412e-03_jprb,1.0267e-02_jprb/)
kao( :, 2, 1, 9) = (/&
&1.2495e-02_jprb,1.2453e-02_jprb,1.3049e-02_jprb,1.3792e-02_jprb,1.4278e-02_jprb,1.4496e-02_jprb,&
&1.4236e-02_jprb,1.3361e-02_jprb,1.3925e-02_jprb/)
kao( :, 3, 1, 9) = (/&
&1.4859e-02_jprb,1.5091e-02_jprb,1.6017e-02_jprb,1.7045e-02_jprb,1.7806e-02_jprb,1.8195e-02_jprb,&
&1.7952e-02_jprb,1.7365e-02_jprb,1.8464e-02_jprb/)
kao( :, 4, 1, 9) = (/&
&1.7363e-02_jprb,1.7942e-02_jprb,1.9281e-02_jprb,2.0718e-02_jprb,2.1801e-02_jprb,2.2424e-02_jprb,&
&2.2300e-02_jprb,2.2092e-02_jprb,2.3948e-02_jprb/)
kao( :, 5, 1, 9) = (/&
&1.9984e-02_jprb,2.1018e-02_jprb,2.2868e-02_jprb,2.4808e-02_jprb,2.6324e-02_jprb,2.7242e-02_jprb,&
&2.7276e-02_jprb,2.7701e-02_jprb,3.0488e-02_jprb/)
kao( :, 1, 2, 9) = (/&
&9.5128e-03_jprb,9.2867e-03_jprb,9.5490e-03_jprb,9.8633e-03_jprb,1.0027e-02_jprb,1.0058e-02_jprb,&
&9.7636e-03_jprb,8.7994e-03_jprb,8.5570e-03_jprb/)
kao( :, 2, 2, 9) = (/&
&1.1668e-02_jprb,1.1584e-02_jprb,1.2077e-02_jprb,1.2559e-02_jprb,1.2920e-02_jprb,1.3060e-02_jprb,&
&1.2825e-02_jprb,1.1983e-02_jprb,1.1751e-02_jprb/)
kao( :, 3, 2, 9) = (/&
&1.4011e-02_jprb,1.4151e-02_jprb,1.4940e-02_jprb,1.5660e-02_jprb,1.6284e-02_jprb,1.6579e-02_jprb,&
&1.6367e-02_jprb,1.5804e-02_jprb,1.5742e-02_jprb/)
kao( :, 4, 2, 9) = (/&
&1.6508e-02_jprb,1.6961e-02_jprb,1.8102e-02_jprb,1.9197e-02_jprb,2.0137e-02_jprb,2.0668e-02_jprb,&
&2.0505e-02_jprb,2.0318e-02_jprb,2.0610e-02_jprb/)
kao( :, 5, 2, 9) = (/&
&1.9122e-02_jprb,2.0006e-02_jprb,2.1590e-02_jprb,2.3174e-02_jprb,2.4520e-02_jprb,2.5288e-02_jprb,&
&2.5261e-02_jprb,2.5631e-02_jprb,2.6467e-02_jprb/)
kao( :, 1, 3, 9) = (/&
&8.4316e-03_jprb,8.1842e-03_jprb,8.3414e-03_jprb,8.4601e-03_jprb,8.4527e-03_jprb,8.3467e-03_jprb,&
&8.0420e-03_jprb,7.1142e-03_jprb,6.5461e-03_jprb/)
kao( :, 2, 3, 9) = (/&
&1.0508e-02_jprb,1.0365e-02_jprb,1.0700e-02_jprb,1.0941e-02_jprb,1.1049e-02_jprb,1.1031e-02_jprb,&
&1.0751e-02_jprb,9.9386e-03_jprb,9.1449e-03_jprb/)
kao( :, 3, 3, 9) = (/&
&1.2785e-02_jprb,1.2829e-02_jprb,1.3389e-02_jprb,1.3825e-02_jprb,1.4105e-02_jprb,1.4232e-02_jprb,&
&1.3991e-02_jprb,1.3420e-02_jprb,1.2428e-02_jprb/)
kao( :, 4, 3, 9) = (/&
&1.5245e-02_jprb,1.5545e-02_jprb,1.6390e-02_jprb,1.7132e-02_jprb,1.7666e-02_jprb,1.7977e-02_jprb,&
&1.7716e-02_jprb,1.7486e-02_jprb,1.6472e-02_jprb/)
kao( :, 5, 3, 9) = (/&
&1.7859e-02_jprb,1.8505e-02_jprb,1.9736e-02_jprb,2.0852e-02_jprb,2.1757e-02_jprb,2.2224e-02_jprb,&
&2.2056e-02_jprb,2.2280e-02_jprb,2.1403e-02_jprb/)
kao( :, 1, 4, 9) = (/&
&7.3484e-03_jprb,7.0902e-03_jprb,7.1380e-03_jprb,7.1024e-03_jprb,6.9776e-03_jprb,6.7400e-03_jprb,&
&6.3521e-03_jprb,5.4673e-03_jprb,4.8295e-03_jprb/)
kao( :, 2, 4, 9) = (/&
&9.3310e-03_jprb,9.1397e-03_jprb,9.3159e-03_jprb,9.3538e-03_jprb,9.2681e-03_jprb,9.0554e-03_jprb,&
&8.7344e-03_jprb,7.9076e-03_jprb,6.8828e-03_jprb/)
kao( :, 3, 4, 9) = (/&
&1.1534e-02_jprb,1.1475e-02_jprb,1.1819e-02_jprb,1.1988e-02_jprb,1.2000e-02_jprb,1.1864e-02_jprb,&
&1.1575e-02_jprb,1.0994e-02_jprb,9.4901e-03_jprb/)
kao( :, 4, 4, 9) = (/&
&1.3943e-02_jprb,1.4087e-02_jprb,1.4649e-02_jprb,1.5032e-02_jprb,1.5214e-02_jprb,1.5176e-02_jprb,&
&1.4865e-02_jprb,1.4524e-02_jprb,1.2777e-02_jprb/)
kao( :, 5, 4, 9) = (/&
&1.6517e-02_jprb,1.6976e-02_jprb,1.7827e-02_jprb,1.8519e-02_jprb,1.8920e-02_jprb,1.9000e-02_jprb,&
&1.8720e-02_jprb,1.8746e-02_jprb,1.6804e-02_jprb/)
kao( :, 1, 5, 9) = (/&
&6.3624e-03_jprb,6.1133e-03_jprb,6.0634e-03_jprb,5.9330e-03_jprb,5.7181e-03_jprb,5.4022e-03_jprb,&
&4.9483e-03_jprb,4.1022e-03_jprb,3.4892e-03_jprb/)
kao( :, 2, 5, 9) = (/&
&8.2407e-03_jprb,8.0303e-03_jprb,8.0632e-03_jprb,7.9504e-03_jprb,7.7253e-03_jprb,7.3962e-03_jprb,&
&6.9698e-03_jprb,6.1767e-03_jprb,5.0748e-03_jprb/)
kao( :, 3, 5, 9) = (/&
&1.0363e-02_jprb,1.0246e-02_jprb,1.0387e-02_jprb,1.0335e-02_jprb,1.0149e-02_jprb,9.8386e-03_jprb,&
&9.4225e-03_jprb,8.8118e-03_jprb,7.1402e-03_jprb/)
kao( :, 4, 5, 9) = (/&
&1.2695e-02_jprb,1.2755e-02_jprb,1.3046e-02_jprb,1.3138e-02_jprb,1.3029e-02_jprb,1.2750e-02_jprb,&
&1.2327e-02_jprb,1.1882e-02_jprb,9.7414e-03_jprb/)
kao( :, 5, 5, 9) = (/&
&1.5221e-02_jprb,1.5544e-02_jprb,1.6067e-02_jprb,1.6367e-02_jprb,1.6363e-02_jprb,1.6145e-02_jprb,&
&1.5702e-02_jprb,1.5530e-02_jprb,1.2966e-02_jprb/)
kao( :, 1, 6, 9) = (/&
&5.3819e-03_jprb,5.1682e-03_jprb,5.0489e-03_jprb,4.8682e-03_jprb,4.6033e-03_jprb,4.2570e-03_jprb,&
&3.7892e-03_jprb,2.8608e-03_jprb,2.4512e-03_jprb/)
kao( :, 2, 6, 9) = (/&
&7.1280e-03_jprb,6.9367e-03_jprb,6.8489e-03_jprb,6.6487e-03_jprb,6.3384e-03_jprb,5.9570e-03_jprb,&
&5.4784e-03_jprb,4.6646e-03_jprb,3.6355e-03_jprb/)
kao( :, 3, 6, 9) = (/&
&9.1302e-03_jprb,9.0145e-03_jprb,8.9822e-03_jprb,8.7868e-03_jprb,8.4616e-03_jprb,8.0561e-03_jprb,&
&7.5662e-03_jprb,6.8605e-03_jprb,5.2018e-03_jprb/)
kao( :, 4, 6, 9) = (/&
&1.1358e-02_jprb,1.1388e-02_jprb,1.1456e-02_jprb,1.1318e-02_jprb,1.1012e-02_jprb,1.0595e-02_jprb,&
&1.0058e-02_jprb,9.4902e-03_jprb,7.2223e-03_jprb/)
kao( :, 5, 6, 9) = (/&
&1.3798e-02_jprb,1.4041e-02_jprb,1.4287e-02_jprb,1.4257e-02_jprb,1.3997e-02_jprb,1.3586e-02_jprb,&
&1.2991e-02_jprb,1.2596e-02_jprb,9.7278e-03_jprb/)
kao( :, 1, 7, 9) = (/&
&4.4201e-03_jprb,4.2655e-03_jprb,4.1450e-03_jprb,3.9476e-03_jprb,3.6722e-03_jprb,3.3249e-03_jprb,&
&2.8458e-03_jprb,1.9671e-03_jprb,1.7803e-03_jprb/)
kao( :, 2, 7, 9) = (/&
&5.9991e-03_jprb,5.8588e-03_jprb,5.7556e-03_jprb,5.5028e-03_jprb,5.1661e-03_jprb,4.7702e-03_jprb,&
&4.2756e-03_jprb,3.4608e-03_jprb,2.6084e-03_jprb/)
kao( :, 3, 7, 9) = (/&
&7.8395e-03_jprb,7.7643e-03_jprb,7.6944e-03_jprb,7.4017e-03_jprb,7.0170e-03_jprb,6.5646e-03_jprb,&
&6.0423e-03_jprb,5.2630e-03_jprb,3.7628e-03_jprb/)
kao( :, 4, 7, 9) = (/&
&9.9189e-03_jprb,9.9815e-03_jprb,9.9658e-03_jprb,9.6723e-03_jprb,9.2685e-03_jprb,8.7611e-03_jprb,&
&8.1722e-03_jprb,7.4723e-03_jprb,5.2872e-03_jprb/)
kao( :, 5, 7, 9) = (/&
&1.2224e-02_jprb,1.2487e-02_jprb,1.2587e-02_jprb,1.2338e-02_jprb,1.1918e-02_jprb,1.1379e-02_jprb,&
&1.0715e-02_jprb,1.0101e-02_jprb,7.2253e-03_jprb/)
kao( :, 1, 8, 9) = (/&
&3.5350e-03_jprb,3.4325e-03_jprb,3.3275e-03_jprb,3.1605e-03_jprb,2.8988e-03_jprb,2.5686e-03_jprb,&
&2.1091e-03_jprb,1.2955e-03_jprb,2.2677e-03_jprb/)
kao( :, 2, 8, 9) = (/&
&4.9245e-03_jprb,4.8341e-03_jprb,4.7376e-03_jprb,4.5164e-03_jprb,4.1844e-03_jprb,3.7894e-03_jprb,&
&3.3070e-03_jprb,2.4762e-03_jprb,2.6602e-03_jprb/)
kao( :, 3, 8, 9) = (/&
&6.5727e-03_jprb,6.5413e-03_jprb,6.4715e-03_jprb,6.1921e-03_jprb,5.7948e-03_jprb,5.3290e-03_jprb,&
&4.7963e-03_jprb,4.0123e-03_jprb,3.3053e-03_jprb/)
kao( :, 4, 8, 9) = (/&
&8.4673e-03_jprb,8.5585e-03_jprb,8.5340e-03_jprb,8.2251e-03_jprb,7.7660e-03_jprb,7.2331e-03_jprb,&
&6.6181e-03_jprb,5.8537e-03_jprb,4.2835e-03_jprb/)
kao( :, 5, 8, 9) = (/&
&1.0594e-02_jprb,1.0877e-02_jprb,1.0934e-02_jprb,1.0630e-02_jprb,1.0118e-02_jprb,9.5083e-03_jprb,&
&8.7956e-03_jprb,8.0306e-03_jprb,5.6393e-03_jprb/)
kao( :, 1, 9, 9) = (/&
&2.7403e-03_jprb,2.6787e-03_jprb,2.5973e-03_jprb,2.4570e-03_jprb,2.2443e-03_jprb,1.9562e-03_jprb,&
&1.5185e-03_jprb,8.3616e-04_jprb,1.0274e-02_jprb/)
kao( :, 2, 9, 9) = (/&
&3.9274e-03_jprb,3.8796e-03_jprb,3.7992e-03_jprb,3.6140e-03_jprb,3.3367e-03_jprb,2.9763e-03_jprb,&
&2.5173e-03_jprb,1.7223e-03_jprb,1.0390e-02_jprb/)
kao( :, 3, 9, 9) = (/&
&5.3634e-03_jprb,5.3721e-03_jprb,5.3082e-03_jprb,5.0709e-03_jprb,4.7250e-03_jprb,4.2829e-03_jprb,&
&3.7573e-03_jprb,2.9940e-03_jprb,1.0638e-02_jprb/)
kao( :, 4, 9, 9) = (/&
&7.0458e-03_jprb,7.1640e-03_jprb,7.1301e-03_jprb,6.8617e-03_jprb,6.4511e-03_jprb,5.9118e-03_jprb,&
&5.2974e-03_jprb,4.5531e-03_jprb,1.1091e-02_jprb/)
kao( :, 5, 9, 9) = (/&
&8.9617e-03_jprb,9.2589e-03_jprb,9.2849e-03_jprb,9.0088e-03_jprb,8.5345e-03_jprb,7.8845e-03_jprb,&
&7.1544e-03_jprb,6.3553e-03_jprb,1.1709e-02_jprb/)
kao( :, 1,10, 9) = (/&
&2.1319e-03_jprb,2.1004e-03_jprb,2.0372e-03_jprb,1.9210e-03_jprb,1.7497e-03_jprb,1.5111e-03_jprb,&
&1.1301e-03_jprb,5.5756e-04_jprb,7.5283e-02_jprb/)
kao( :, 2,10, 9) = (/&
&3.1363e-03_jprb,3.1212e-03_jprb,3.0574e-03_jprb,2.9015e-03_jprb,2.6722e-03_jprb,2.3756e-03_jprb,&
&1.9576e-03_jprb,1.2195e-03_jprb,7.4064e-02_jprb/)
kao( :, 3,10, 9) = (/&
&4.3731e-03_jprb,4.4117e-03_jprb,4.3602e-03_jprb,4.1608e-03_jprb,3.8669e-03_jprb,3.4927e-03_jprb,&
&3.0050e-03_jprb,2.2902e-03_jprb,7.3035e-02_jprb/)
kao( :, 4,10, 9) = (/&
&5.8455e-03_jprb,5.9881e-03_jprb,5.9565e-03_jprb,5.7270e-03_jprb,5.3754e-03_jprb,4.9035e-03_jprb,&
&4.3124e-03_jprb,3.6091e-03_jprb,7.2537e-02_jprb/)
kao( :, 5,10, 9) = (/&
&7.5468e-03_jprb,7.8566e-03_jprb,7.8695e-03_jprb,7.6289e-03_jprb,7.2133e-03_jprb,6.6234e-03_jprb,&
&5.9025e-03_jprb,5.1322e-03_jprb,7.2257e-02_jprb/)
kao( :, 1,11, 9) = (/&
&1.9745e-03_jprb,1.9703e-03_jprb,1.9199e-03_jprb,1.8121e-03_jprb,1.6559e-03_jprb,1.4431e-03_jprb,&
&1.1163e-03_jprb,5.3500e-04_jprb,1.9757e-01_jprb/)
kao( :, 2,11, 9) = (/&
&2.8999e-03_jprb,2.9279e-03_jprb,2.8819e-03_jprb,2.7350e-03_jprb,2.5277e-03_jprb,2.2543e-03_jprb,&
&1.8746e-03_jprb,1.2124e-03_jprb,1.9384e-01_jprb/)
kao( :, 3,11, 9) = (/&
&4.0444e-03_jprb,4.1420e-03_jprb,4.1037e-03_jprb,3.9240e-03_jprb,3.6578e-03_jprb,3.3096e-03_jprb,&
&2.8567e-03_jprb,2.1998e-03_jprb,1.9071e-01_jprb/)
kao( :, 4,11, 9) = (/&
&5.4085e-03_jprb,5.6287e-03_jprb,5.6077e-03_jprb,5.4059e-03_jprb,5.0834e-03_jprb,4.6413e-03_jprb,&
&4.0709e-03_jprb,3.3776e-03_jprb,1.8809e-01_jprb/)
kao( :, 5,11, 9) = (/&
&6.9941e-03_jprb,7.3880e-03_jprb,7.4108e-03_jprb,7.2046e-03_jprb,6.8126e-03_jprb,6.2573e-03_jprb,&
&5.5477e-03_jprb,4.7861e-03_jprb,1.8600e-01_jprb/)
kao( :, 1,12, 9) = (/&
&1.7996e-03_jprb,1.8206e-03_jprb,1.7805e-03_jprb,1.6829e-03_jprb,1.5433e-03_jprb,1.3501e-03_jprb,&
&1.0572e-03_jprb,5.4808e-04_jprb,3.2846e-01_jprb/)
kao( :, 2,12, 9) = (/&
&2.6426e-03_jprb,2.7068e-03_jprb,2.6687e-03_jprb,2.5393e-03_jprb,2.3520e-03_jprb,2.1038e-03_jprb,&
&1.7678e-03_jprb,1.1889e-03_jprb,3.2273e-01_jprb/)
kao( :, 3,12, 9) = (/&
&3.6853e-03_jprb,3.8343e-03_jprb,3.8028e-03_jprb,3.6418e-03_jprb,3.4031e-03_jprb,3.0855e-03_jprb,&
&2.6713e-03_jprb,2.0755e-03_jprb,3.1779e-01_jprb/)
kao( :, 4,12, 9) = (/&
&4.9356e-03_jprb,5.2142e-03_jprb,5.1981e-03_jprb,5.0221e-03_jprb,4.7252e-03_jprb,4.3142e-03_jprb,&
&3.7960e-03_jprb,3.1444e-03_jprb,3.1325e-01_jprb/)
kao( :, 5,12, 9) = (/&
&6.3947e-03_jprb,6.8520e-03_jprb,6.8760e-03_jprb,6.6872e-03_jprb,6.3222e-03_jprb,5.8083e-03_jprb,&
&5.1616e-03_jprb,4.4214e-03_jprb,3.0903e-01_jprb/)
kao( :, 1,13, 9) = (/&
&1.6151e-03_jprb,1.6567e-03_jprb,1.6234e-03_jprb,1.5373e-03_jprb,1.4124e-03_jprb,1.2394e-03_jprb,&
&9.8564e-04_jprb,5.5616e-04_jprb,4.3871e-01_jprb/)
kao( :, 2,13, 9) = (/&
&2.3710e-03_jprb,2.4678e-03_jprb,2.4327e-03_jprb,2.3183e-03_jprb,2.1495e-03_jprb,1.9302e-03_jprb,&
&1.6336e-03_jprb,1.1398e-03_jprb,4.3206e-01_jprb/)
kao( :, 3,13, 9) = (/&
&3.3121e-03_jprb,3.4978e-03_jprb,3.4669e-03_jprb,3.3267e-03_jprb,3.1113e-03_jprb,2.8243e-03_jprb,&
&2.4585e-03_jprb,1.9402e-03_jprb,4.2585e-01_jprb/)
kao( :, 4,13, 9) = (/&
&4.4457e-03_jprb,4.7587e-03_jprb,4.7468e-03_jprb,4.5875e-03_jprb,4.3110e-03_jprb,3.9394e-03_jprb,&
&3.4774e-03_jprb,2.8993e-03_jprb,4.1993e-01_jprb/)
kao( :, 5,13, 9) = (/&
&5.7689e-03_jprb,6.2589e-03_jprb,6.2951e-03_jprb,6.1057e-03_jprb,5.7619e-03_jprb,5.2957e-03_jprb,&
&4.7230e-03_jprb,4.0528e-03_jprb,4.1400e-01_jprb/)
kao( :, 1, 1,10) = (/&
&2.8341e-02_jprb,2.4949e-02_jprb,2.4794e-02_jprb,2.3987e-02_jprb,2.3812e-02_jprb,2.2586e-02_jprb,&
&2.0187e-02_jprb,1.9376e-02_jprb,2.5381e-02_jprb/)
kao( :, 2, 1,10) = (/&
&3.3991e-02_jprb,3.0192e-02_jprb,3.0574e-02_jprb,3.0065e-02_jprb,2.9840e-02_jprb,2.8013e-02_jprb,&
&2.5566e-02_jprb,2.6044e-02_jprb,3.3447e-02_jprb/)
kao( :, 3, 1,10) = (/&
&3.9910e-02_jprb,3.6271e-02_jprb,3.6774e-02_jprb,3.6789e-02_jprb,3.6160e-02_jprb,3.4328e-02_jprb,&
&3.2309e-02_jprb,3.3900e-02_jprb,4.2891e-02_jprb/)
kao( :, 4, 1,10) = (/&
&4.5950e-02_jprb,4.3254e-02_jprb,4.3515e-02_jprb,4.3816e-02_jprb,4.3274e-02_jprb,4.0958e-02_jprb,&
&3.9828e-02_jprb,4.3039e-02_jprb,5.4536e-02_jprb/)
kao( :, 5, 1,10) = (/&
&5.2074e-02_jprb,5.0170e-02_jprb,5.0735e-02_jprb,5.1340e-02_jprb,5.0699e-02_jprb,4.7916e-02_jprb,&
&4.9158e-02_jprb,5.3574e-02_jprb,6.8520e-02_jprb/)
kao( :, 1, 2,10) = (/&
&2.6184e-02_jprb,2.3296e-02_jprb,2.3226e-02_jprb,2.2714e-02_jprb,2.2514e-02_jprb,2.1363e-02_jprb,&
&1.9364e-02_jprb,1.8250e-02_jprb,2.2856e-02_jprb/)
kao( :, 2, 2,10) = (/&
&3.1743e-02_jprb,2.8597e-02_jprb,2.8854e-02_jprb,2.8835e-02_jprb,2.8199e-02_jprb,2.7046e-02_jprb,&
&2.4544e-02_jprb,2.4456e-02_jprb,3.0699e-02_jprb/)
kao( :, 3, 2,10) = (/&
&3.7600e-02_jprb,3.4758e-02_jprb,3.5112e-02_jprb,3.5357e-02_jprb,3.4504e-02_jprb,3.3441e-02_jprb,&
&3.1117e-02_jprb,3.2055e-02_jprb,4.0509e-02_jprb/)
kao( :, 4, 2,10) = (/&
&4.3772e-02_jprb,4.1496e-02_jprb,4.2012e-02_jprb,4.2309e-02_jprb,4.1696e-02_jprb,3.9959e-02_jprb,&
&3.8762e-02_jprb,4.0415e-02_jprb,5.2629e-02_jprb/)
kao( :, 5, 2,10) = (/&
&5.0069e-02_jprb,4.8330e-02_jprb,4.9427e-02_jprb,4.9767e-02_jprb,4.9310e-02_jprb,4.7260e-02_jprb,&
&4.8222e-02_jprb,5.0586e-02_jprb,6.6929e-02_jprb/)
kao( :, 1, 3,10) = (/&
&2.2843e-02_jprb,2.0821e-02_jprb,2.0350e-02_jprb,2.0283e-02_jprb,1.9897e-02_jprb,1.9120e-02_jprb,&
&1.7384e-02_jprb,1.6170e-02_jprb,1.8446e-02_jprb/)
kao( :, 2, 3,10) = (/&
&2.8199e-02_jprb,2.6062e-02_jprb,2.5776e-02_jprb,2.5997e-02_jprb,2.5440e-02_jprb,2.4723e-02_jprb,&
&2.2441e-02_jprb,2.1717e-02_jprb,2.5483e-02_jprb/)
kao( :, 3, 3,10) = (/&
&3.3953e-02_jprb,3.1919e-02_jprb,3.1941e-02_jprb,3.2157e-02_jprb,3.1747e-02_jprb,3.0922e-02_jprb,&
&2.8559e-02_jprb,2.8709e-02_jprb,3.4439e-02_jprb/)
kao( :, 4, 3,10) = (/&
&4.0002e-02_jprb,3.8423e-02_jprb,3.8902e-02_jprb,3.8911e-02_jprb,3.8820e-02_jprb,3.7594e-02_jprb,&
&3.6351e-02_jprb,3.6718e-02_jprb,4.5775e-02_jprb/)
kao( :, 5, 3,10) = (/&
&4.6219e-02_jprb,4.5155e-02_jprb,4.6197e-02_jprb,4.6387e-02_jprb,4.6153e-02_jprb,4.5334e-02_jprb,&
&4.5834e-02_jprb,4.6534e-02_jprb,5.9401e-02_jprb/)
kao( :, 1, 4,10) = (/&
&1.9312e-02_jprb,1.7992e-02_jprb,1.7480e-02_jprb,1.7446e-02_jprb,1.7111e-02_jprb,1.6477e-02_jprb,&
&1.5243e-02_jprb,1.3399e-02_jprb,1.4121e-02_jprb/)
kao( :, 2, 4,10) = (/&
&2.4344e-02_jprb,2.2955e-02_jprb,2.2617e-02_jprb,2.2783e-02_jprb,2.2496e-02_jprb,2.1867e-02_jprb,&
&1.9808e-02_jprb,1.8936e-02_jprb,1.9938e-02_jprb/)
kao( :, 3, 4,10) = (/&
&2.9801e-02_jprb,2.8523e-02_jprb,2.8566e-02_jprb,2.8709e-02_jprb,2.8682e-02_jprb,2.7725e-02_jprb,&
&2.5334e-02_jprb,2.5284e-02_jprb,2.7743e-02_jprb/)
kao( :, 4, 4,10) = (/&
&3.5620e-02_jprb,3.4742e-02_jprb,3.5299e-02_jprb,3.5308e-02_jprb,3.5457e-02_jprb,3.4419e-02_jprb,&
&3.2604e-02_jprb,3.3013e-02_jprb,3.7587e-02_jprb/)
kao( :, 5, 4,10) = (/&
&4.1887e-02_jprb,4.1321e-02_jprb,4.2274e-02_jprb,4.2660e-02_jprb,4.2937e-02_jprb,4.2081e-02_jprb,&
&4.1593e-02_jprb,4.2622e-02_jprb,4.9653e-02_jprb/)
kao( :, 1, 5,10) = (/&
&1.5962e-02_jprb,1.5091e-02_jprb,1.4926e-02_jprb,1.4725e-02_jprb,1.4471e-02_jprb,1.4016e-02_jprb,&
&1.2941e-02_jprb,1.0781e-02_jprb,1.0820e-02_jprb/)
kao( :, 2, 5,10) = (/&
&2.0561e-02_jprb,1.9656e-02_jprb,1.9606e-02_jprb,1.9723e-02_jprb,1.9597e-02_jprb,1.8959e-02_jprb,&
&1.7070e-02_jprb,1.5994e-02_jprb,1.5507e-02_jprb/)
kao( :, 3, 5,10) = (/&
&2.5675e-02_jprb,2.4818e-02_jprb,2.5196e-02_jprb,2.5517e-02_jprb,2.5439e-02_jprb,2.4412e-02_jprb,&
&2.1991e-02_jprb,2.1552e-02_jprb,2.1888e-02_jprb/)
kao( :, 4, 5,10) = (/&
&3.1284e-02_jprb,3.0688e-02_jprb,3.1452e-02_jprb,3.1913e-02_jprb,3.1938e-02_jprb,3.0781e-02_jprb,&
&2.8330e-02_jprb,2.8796e-02_jprb,3.0247e-02_jprb/)
kao( :, 5, 5,10) = (/&
&3.7244e-02_jprb,3.7039e-02_jprb,3.8113e-02_jprb,3.9041e-02_jprb,3.9409e-02_jprb,3.8138e-02_jprb,&
&3.6567e-02_jprb,3.7730e-02_jprb,4.0679e-02_jprb/)
kao( :, 1, 6,10) = (/&
&1.2975e-02_jprb,1.2256e-02_jprb,1.2340e-02_jprb,1.2080e-02_jprb,1.1895e-02_jprb,1.1506e-02_jprb,&
&1.0365e-02_jprb,8.5383e-03_jprb,8.0172e-03_jprb/)
kao( :, 2, 6,10) = (/&
&1.7187e-02_jprb,1.6321e-02_jprb,1.6561e-02_jprb,1.6669e-02_jprb,1.6611e-02_jprb,1.5858e-02_jprb,&
&1.4206e-02_jprb,1.2638e-02_jprb,1.1866e-02_jprb/)
kao( :, 3, 6,10) = (/&
&2.1950e-02_jprb,2.1039e-02_jprb,2.1721e-02_jprb,2.2100e-02_jprb,2.1989e-02_jprb,2.0834e-02_jprb,&
&1.8607e-02_jprb,1.7648e-02_jprb,1.7187e-02_jprb/)
kao( :, 4, 6,10) = (/&
&2.7221e-02_jprb,2.6492e-02_jprb,2.7582e-02_jprb,2.8232e-02_jprb,2.8034e-02_jprb,2.6720e-02_jprb,&
&2.4048e-02_jprb,2.4099e-02_jprb,2.3975e-02_jprb/)
kao( :, 5, 6,10) = (/&
&3.2966e-02_jprb,3.2596e-02_jprb,3.4013e-02_jprb,3.5128e-02_jprb,3.5174e-02_jprb,3.3585e-02_jprb,&
&3.0966e-02_jprb,3.2147e-02_jprb,3.2714e-02_jprb/)
kao( :, 1, 7,10) = (/&
&1.1003e-02_jprb,1.0172e-02_jprb,9.9689e-03_jprb,9.7030e-03_jprb,9.5816e-03_jprb,9.1864e-03_jprb,&
&8.3157e-03_jprb,6.5477e-03_jprb,5.8584e-03_jprb/)
kao( :, 2, 7,10) = (/&
&1.4954e-02_jprb,1.3915e-02_jprb,1.3705e-02_jprb,1.3805e-02_jprb,1.3711e-02_jprb,1.2918e-02_jprb,&
&1.1613e-02_jprb,9.7524e-03_jprb,8.8921e-03_jprb/)
kao( :, 3, 7,10) = (/&
&1.9525e-02_jprb,1.8286e-02_jprb,1.8359e-02_jprb,1.8803e-02_jprb,1.8505e-02_jprb,1.7397e-02_jprb,&
&1.5545e-02_jprb,1.4074e-02_jprb,1.3147e-02_jprb/)
kao( :, 4, 7,10) = (/&
&2.4765e-02_jprb,2.3347e-02_jprb,2.3852e-02_jprb,2.4521e-02_jprb,2.4046e-02_jprb,2.2746e-02_jprb,&
&2.0338e-02_jprb,1.9593e-02_jprb,1.8718e-02_jprb/)
kao( :, 5, 7,10) = (/&
&3.0444e-02_jprb,2.9114e-02_jprb,2.9981e-02_jprb,3.1001e-02_jprb,3.0659e-02_jprb,2.9115e-02_jprb,&
&2.6153e-02_jprb,2.6663e-02_jprb,2.5778e-02_jprb/)
kao( :, 1, 8,10) = (/&
&9.5903e-03_jprb,8.7677e-03_jprb,8.2751e-03_jprb,7.7628e-03_jprb,7.6194e-03_jprb,7.2194e-03_jprb,&
&6.4757e-03_jprb,5.1626e-03_jprb,4.5446e-03_jprb/)
kao( :, 2, 8,10) = (/&
&1.3386e-02_jprb,1.2290e-02_jprb,1.1661e-02_jprb,1.1306e-02_jprb,1.1055e-02_jprb,1.0454e-02_jprb,&
&9.3918e-03_jprb,7.5740e-03_jprb,6.6212e-03_jprb/)
kao( :, 3, 8,10) = (/&
&1.7895e-02_jprb,1.6495e-02_jprb,1.5871e-02_jprb,1.5730e-02_jprb,1.5237e-02_jprb,1.4347e-02_jprb,&
&1.2880e-02_jprb,1.1121e-02_jprb,9.9657e-03_jprb/)
kao( :, 4, 8,10) = (/&
&2.3088e-02_jprb,2.1460e-02_jprb,2.0931e-02_jprb,2.0828e-02_jprb,2.0243e-02_jprb,1.9039e-02_jprb,&
&1.7178e-02_jprb,1.5707e-02_jprb,1.4369e-02_jprb/)
kao( :, 5, 8,10) = (/&
&2.8768e-02_jprb,2.7065e-02_jprb,2.6736e-02_jprb,2.6678e-02_jprb,2.6248e-02_jprb,2.4878e-02_jprb,&
&2.2359e-02_jprb,2.1798e-02_jprb,1.9974e-02_jprb/)
kao( :, 1, 9,10) = (/&
&8.1489e-03_jprb,7.4648e-03_jprb,6.9804e-03_jprb,6.4191e-03_jprb,5.9636e-03_jprb,5.4909e-03_jprb,&
&4.8784e-03_jprb,3.8347e-03_jprb,1.5314e-02_jprb/)
kao( :, 2, 9,10) = (/&
&1.1712e-02_jprb,1.0789e-02_jprb,1.0109e-02_jprb,9.4829e-03_jprb,8.8584e-03_jprb,8.2278e-03_jprb,&
&7.3764e-03_jprb,5.7877e-03_jprb,1.6244e-02_jprb/)
kao( :, 3, 9,10) = (/&
&1.6046e-02_jprb,1.4820e-02_jprb,1.4055e-02_jprb,1.3332e-02_jprb,1.2456e-02_jprb,1.1636e-02_jprb,&
&1.0489e-02_jprb,8.6873e-03_jprb,1.7494e-02_jprb/)
kao( :, 4, 9,10) = (/&
&2.1066e-02_jprb,1.9610e-02_jprb,1.8931e-02_jprb,1.7888e-02_jprb,1.6756e-02_jprb,1.5784e-02_jprb,&
&1.4417e-02_jprb,1.2557e-02_jprb,1.9326e-02_jprb/)
kao( :, 5, 9,10) = (/&
&2.6667e-02_jprb,2.5074e-02_jprb,2.4522e-02_jprb,2.3189e-02_jprb,2.2008e-02_jprb,2.0995e-02_jprb,&
&1.9281e-02_jprb,1.7791e-02_jprb,2.1654e-02_jprb/)
kao( :, 1,10,10) = (/&
&6.9366e-03_jprb,6.3789e-03_jprb,5.9595e-03_jprb,5.4852e-03_jprb,4.9360e-03_jprb,4.3201e-03_jprb,&
&3.7060e-03_jprb,2.8411e-03_jprb,1.0865e-01_jprb/)
kao( :, 2,10,10) = (/&
&1.0236e-02_jprb,9.4750e-03_jprb,8.8501e-03_jprb,8.3036e-03_jprb,7.4880e-03_jprb,6.6146e-03_jprb,&
&5.8580e-03_jprb,4.5793e-03_jprb,1.0627e-01_jprb/)
kao( :, 3,10,10) = (/&
&1.4332e-02_jprb,1.3324e-02_jprb,1.2604e-02_jprb,1.1845e-02_jprb,1.0730e-02_jprb,9.5741e-03_jprb,&
&8.5876e-03_jprb,7.0236e-03_jprb,1.0490e-01_jprb/)
kao( :, 4,10,10) = (/&
&1.9120e-02_jprb,1.7914e-02_jprb,1.7311e-02_jprb,1.6108e-02_jprb,1.4592e-02_jprb,1.3253e-02_jprb,&
&1.2097e-02_jprb,1.0165e-02_jprb,1.0426e-01_jprb/)
kao( :, 5,10,10) = (/&
&2.4561e-02_jprb,2.3221e-02_jprb,2.2646e-02_jprb,2.1122e-02_jprb,1.9334e-02_jprb,1.7961e-02_jprb,&
&1.6559e-02_jprb,1.4610e-02_jprb,1.0510e-01_jprb/)
kao( :, 1,11,10) = (/&
&7.0237e-03_jprb,6.5225e-03_jprb,6.1043e-03_jprb,5.6444e-03_jprb,5.0633e-03_jprb,4.3399e-03_jprb,&
&3.5607e-03_jprb,2.6850e-03_jprb,2.8892e-01_jprb/)
kao( :, 2,11,10) = (/&
&1.0384e-02_jprb,9.6831e-03_jprb,9.0835e-03_jprb,8.5192e-03_jprb,7.6404e-03_jprb,6.6528e-03_jprb,&
&5.6514e-03_jprb,4.5273e-03_jprb,2.8169e-01_jprb/)
kao( :, 3,11,10) = (/&
&1.4456e-02_jprb,1.3566e-02_jprb,1.2997e-02_jprb,1.2107e-02_jprb,1.0901e-02_jprb,9.5425e-03_jprb,&
&8.2374e-03_jprb,6.8400e-03_jprb,2.7734e-01_jprb/)
kao( :, 4,11,10) = (/&
&1.9195e-02_jprb,1.8156e-02_jprb,1.7656e-02_jprb,1.6419e-02_jprb,1.4881e-02_jprb,1.3205e-02_jprb,&
&1.1741e-02_jprb,9.9915e-03_jprb,2.7331e-01_jprb/)
kao( :, 5,11,10) = (/&
&2.4521e-02_jprb,2.3536e-02_jprb,2.2979e-02_jprb,2.1464e-02_jprb,1.9799e-02_jprb,1.7771e-02_jprb,&
&1.6045e-02_jprb,1.4047e-02_jprb,2.7061e-01_jprb/)
kao( :, 1,12,10) = (/&
&6.9801e-03_jprb,6.5414e-03_jprb,6.1464e-03_jprb,5.6988e-03_jprb,5.0902e-03_jprb,4.4198e-03_jprb,&
&3.6370e-03_jprb,2.5506e-03_jprb,4.9609e-01_jprb/)
kao( :, 2,12,10) = (/&
&1.0252e-02_jprb,9.6631e-03_jprb,9.2104e-03_jprb,8.5451e-03_jprb,7.6724e-03_jprb,6.7086e-03_jprb,&
&5.5412e-03_jprb,4.4277e-03_jprb,4.8672e-01_jprb/)
kao( :, 3,12,10) = (/&
&1.4194e-02_jprb,1.3473e-02_jprb,1.3019e-02_jprb,1.2130e-02_jprb,1.0940e-02_jprb,9.6059e-03_jprb,&
&8.1091e-03_jprb,6.7337e-03_jprb,4.7779e-01_jprb/)
kao( :, 4,12,10) = (/&
&1.8764e-02_jprb,1.7996e-02_jprb,1.7549e-02_jprb,1.6391e-02_jprb,1.4970e-02_jprb,1.3362e-02_jprb,&
&1.1424e-02_jprb,9.7371e-03_jprb,4.7094e-01_jprb/)
kao( :, 5,12,10) = (/&
&2.3822e-02_jprb,2.3255e-02_jprb,2.2798e-02_jprb,2.1487e-02_jprb,1.9935e-02_jprb,1.7893e-02_jprb,&
&1.5477e-02_jprb,1.3501e-02_jprb,4.6404e-01_jprb/)
kao( :, 1,13,10) = (/&
&6.7570e-03_jprb,6.3985e-03_jprb,6.0648e-03_jprb,5.6090e-03_jprb,5.0372e-03_jprb,4.3896e-03_jprb,&
&3.5984e-03_jprb,2.5612e-03_jprb,7.0129e-01_jprb/)
kao( :, 2,13,10) = (/&
&9.8516e-03_jprb,9.3610e-03_jprb,9.0380e-03_jprb,8.3857e-03_jprb,7.5801e-03_jprb,6.6037e-03_jprb,&
&5.4660e-03_jprb,4.1572e-03_jprb,6.8624e-01_jprb/)
kao( :, 3,13,10) = (/&
&1.3565e-02_jprb,1.3023e-02_jprb,1.2697e-02_jprb,1.1845e-02_jprb,1.0771e-02_jprb,9.5129e-03_jprb,&
&8.0355e-03_jprb,6.4068e-03_jprb,6.7348e-01_jprb/)
kao( :, 4,13,10) = (/&
&1.7823e-02_jprb,1.7451e-02_jprb,1.7031e-02_jprb,1.6025e-02_jprb,1.4810e-02_jprb,1.3226e-02_jprb,&
&1.1248e-02_jprb,9.2627e-03_jprb,6.6252e-01_jprb/)
kao( :, 5,13,10) = (/&
&2.2635e-02_jprb,2.2570e-02_jprb,2.2029e-02_jprb,2.1116e-02_jprb,1.9648e-02_jprb,1.7648e-02_jprb,&
&1.5125e-02_jprb,1.2814e-02_jprb,6.5224e-01_jprb/)
kao( :, 1, 1,11) = (/&
&4.0423e-02_jprb,3.5511e-02_jprb,3.2385e-02_jprb,3.1302e-02_jprb,2.9329e-02_jprb,2.7493e-02_jprb,&
&2.5237e-02_jprb,2.6262e-02_jprb,3.3335e-02_jprb/)
kao( :, 2, 1,11) = (/&
&4.8068e-02_jprb,4.2224e-02_jprb,3.9790e-02_jprb,3.8473e-02_jprb,3.6916e-02_jprb,3.3889e-02_jprb,&
&3.2387e-02_jprb,3.4784e-02_jprb,4.3954e-02_jprb/)
kao( :, 3, 1,11) = (/&
&5.5962e-02_jprb,4.9147e-02_jprb,4.7932e-02_jprb,4.6498e-02_jprb,4.4808e-02_jprb,4.0788e-02_jprb,&
&4.1145e-02_jprb,4.4752e-02_jprb,5.6848e-02_jprb/)
kao( :, 4, 1,11) = (/&
&6.3927e-02_jprb,5.6554e-02_jprb,5.6496e-02_jprb,5.5146e-02_jprb,5.2972e-02_jprb,4.9275e-02_jprb,&
&5.2218e-02_jprb,5.7028e-02_jprb,7.1593e-02_jprb/)
kao( :, 5, 1,11) = (/&
&7.1900e-02_jprb,6.5533e-02_jprb,6.5482e-02_jprb,6.4060e-02_jprb,6.1054e-02_jprb,5.9498e-02_jprb,&
&6.4850e-02_jprb,7.0769e-02_jprb,8.8897e-02_jprb/)
kao( :, 1, 2,11) = (/&
&3.8292e-02_jprb,3.3588e-02_jprb,3.1358e-02_jprb,2.9906e-02_jprb,2.8447e-02_jprb,2.6569e-02_jprb,&
&2.3944e-02_jprb,2.4132e-02_jprb,3.1513e-02_jprb/)
kao( :, 2, 2,11) = (/&
&4.5994e-02_jprb,4.0345e-02_jprb,3.8650e-02_jprb,3.7178e-02_jprb,3.6077e-02_jprb,3.2811e-02_jprb,&
&3.1189e-02_jprb,3.2232e-02_jprb,4.1849e-02_jprb/)
kao( :, 3, 2,11) = (/&
&5.3984e-02_jprb,4.7456e-02_jprb,4.6641e-02_jprb,4.5568e-02_jprb,4.3973e-02_jprb,3.9559e-02_jprb,&
&3.9776e-02_jprb,4.1895e-02_jprb,5.4339e-02_jprb/)
kao( :, 4, 2,11) = (/&
&6.2153e-02_jprb,5.5541e-02_jprb,5.5147e-02_jprb,5.4419e-02_jprb,5.2145e-02_jprb,4.8212e-02_jprb,&
&5.0049e-02_jprb,5.4211e-02_jprb,6.8573e-02_jprb/)
kao( :, 5, 2,11) = (/&
&7.0498e-02_jprb,6.4912e-02_jprb,6.4005e-02_jprb,6.3675e-02_jprb,6.0340e-02_jprb,5.8471e-02_jprb,&
&6.1765e-02_jprb,6.8106e-02_jprb,8.5795e-02_jprb/)
kao( :, 1, 3,11) = (/&
&3.4351e-02_jprb,3.0114e-02_jprb,2.8690e-02_jprb,2.7033e-02_jprb,2.5922e-02_jprb,2.4043e-02_jprb,&
&2.1412e-02_jprb,2.0519e-02_jprb,2.7411e-02_jprb/)
kao( :, 2, 3,11) = (/&
&4.1940e-02_jprb,3.6767e-02_jprb,3.5782e-02_jprb,3.4187e-02_jprb,3.3188e-02_jprb,3.0297e-02_jprb,&
&2.8550e-02_jprb,2.8551e-02_jprb,3.7044e-02_jprb/)
kao( :, 3, 3,11) = (/&
&5.0028e-02_jprb,4.4118e-02_jprb,4.3712e-02_jprb,4.2513e-02_jprb,4.0818e-02_jprb,3.7223e-02_jprb,&
&3.6892e-02_jprb,3.7585e-02_jprb,4.9025e-02_jprb/)
kao( :, 4, 3,11) = (/&
&5.8382e-02_jprb,5.2350e-02_jprb,5.2192e-02_jprb,5.1365e-02_jprb,4.8840e-02_jprb,4.5605e-02_jprb,&
&4.6688e-02_jprb,4.8795e-02_jprb,6.3308e-02_jprb/)
kao( :, 5, 3,11) = (/&
&6.6855e-02_jprb,6.1851e-02_jprb,6.1319e-02_jprb,6.0440e-02_jprb,5.7553e-02_jprb,5.5141e-02_jprb,&
&5.7507e-02_jprb,6.1726e-02_jprb,8.0747e-02_jprb/)
kao( :, 1, 4,11) = (/&
&2.9914e-02_jprb,2.6434e-02_jprb,2.5229e-02_jprb,2.3960e-02_jprb,2.2872e-02_jprb,2.1167e-02_jprb,&
&1.8618e-02_jprb,1.7654e-02_jprb,2.2206e-02_jprb/)
kao( :, 2, 4,11) = (/&
&3.7311e-02_jprb,3.2955e-02_jprb,3.1987e-02_jprb,3.0816e-02_jprb,2.9746e-02_jprb,2.7451e-02_jprb,&
&2.5496e-02_jprb,2.4816e-02_jprb,3.0769e-02_jprb/)
kao( :, 3, 4,11) = (/&
&4.5214e-02_jprb,4.0225e-02_jprb,3.9665e-02_jprb,3.8830e-02_jprb,3.7073e-02_jprb,3.4317e-02_jprb,&
&3.3498e-02_jprb,3.3259e-02_jprb,4.1672e-02_jprb/)
kao( :, 4, 4,11) = (/&
&5.3522e-02_jprb,4.8440e-02_jprb,4.8077e-02_jprb,4.7499e-02_jprb,4.5060e-02_jprb,4.2198e-02_jprb,&
&4.2877e-02_jprb,4.3659e-02_jprb,5.5415e-02_jprb/)
kao( :, 5, 4,11) = (/&
&6.2112e-02_jprb,5.7637e-02_jprb,5.7355e-02_jprb,5.6365e-02_jprb,5.3831e-02_jprb,5.1483e-02_jprb,&
&5.3578e-02_jprb,5.5548e-02_jprb,7.2397e-02_jprb/)
kao( :, 1, 5,11) = (/&
&2.5525e-02_jprb,2.2961e-02_jprb,2.1743e-02_jprb,2.1045e-02_jprb,1.9762e-02_jprb,1.8313e-02_jprb,&
&1.6006e-02_jprb,1.4928e-02_jprb,1.7243e-02_jprb/)
kao( :, 2, 5,11) = (/&
&3.2562e-02_jprb,2.9297e-02_jprb,2.8118e-02_jprb,2.7378e-02_jprb,2.6219e-02_jprb,2.4429e-02_jprb,&
&2.2374e-02_jprb,2.1608e-02_jprb,2.4409e-02_jprb/)
kao( :, 3, 5,11) = (/&
&4.0237e-02_jprb,3.6530e-02_jprb,3.5529e-02_jprb,3.4947e-02_jprb,3.3507e-02_jprb,3.1205e-02_jprb,&
&2.9865e-02_jprb,2.9668e-02_jprb,3.3965e-02_jprb/)
kao( :, 4, 5,11) = (/&
&4.8489e-02_jprb,4.4640e-02_jprb,4.3882e-02_jprb,4.3184e-02_jprb,4.1466e-02_jprb,3.8716e-02_jprb,&
&3.8839e-02_jprb,3.9053e-02_jprb,4.6193e-02_jprb/)
kao( :, 5, 5,11) = (/&
&5.7075e-02_jprb,5.3520e-02_jprb,5.3151e-02_jprb,5.1813e-02_jprb,5.0143e-02_jprb,4.7699e-02_jprb,&
&4.9575e-02_jprb,5.0287e-02_jprb,6.1844e-02_jprb/)
kao( :, 1, 6,11) = (/&
&2.1185e-02_jprb,1.9366e-02_jprb,1.8345e-02_jprb,1.7861e-02_jprb,1.6696e-02_jprb,1.5286e-02_jprb,&
&1.3538e-02_jprb,1.2110e-02_jprb,1.3050e-02_jprb/)
kao( :, 2, 6,11) = (/&
&2.7736e-02_jprb,2.5421e-02_jprb,2.4344e-02_jprb,2.3686e-02_jprb,2.2632e-02_jprb,2.1167e-02_jprb,&
&1.8994e-02_jprb,1.8327e-02_jprb,1.8722e-02_jprb/)
kao( :, 3, 6,11) = (/&
&3.5098e-02_jprb,3.2433e-02_jprb,3.1346e-02_jprb,3.0890e-02_jprb,2.9717e-02_jprb,2.7709e-02_jprb,&
&2.5626e-02_jprb,2.5639e-02_jprb,2.6411e-02_jprb/)
kao( :, 4, 6,11) = (/&
&4.3033e-02_jprb,4.0261e-02_jprb,3.9466e-02_jprb,3.8845e-02_jprb,3.7545e-02_jprb,3.4640e-02_jprb,&
&3.3862e-02_jprb,3.4287e-02_jprb,3.6956e-02_jprb/)
kao( :, 5, 6,11) = (/&
&5.1415e-02_jprb,4.8889e-02_jprb,4.8524e-02_jprb,4.7406e-02_jprb,4.5977e-02_jprb,4.3021e-02_jprb,&
&4.4126e-02_jprb,4.4906e-02_jprb,5.0432e-02_jprb/)
kao( :, 1, 7,11) = (/&
&1.7209e-02_jprb,1.5911e-02_jprb,1.5312e-02_jprb,1.4785e-02_jprb,1.3788e-02_jprb,1.2644e-02_jprb,&
&1.1178e-02_jprb,9.4262e-03_jprb,9.6250e-03_jprb/)
kao( :, 2, 7,11) = (/&
&2.3204e-02_jprb,2.1530e-02_jprb,2.0850e-02_jprb,2.0150e-02_jprb,1.9195e-02_jprb,1.8013e-02_jprb,&
&1.5715e-02_jprb,1.4967e-02_jprb,1.4283e-02_jprb/)
kao( :, 3, 7,11) = (/&
&3.0021e-02_jprb,2.8103e-02_jprb,2.7384e-02_jprb,2.6841e-02_jprb,2.5917e-02_jprb,2.4071e-02_jprb,&
&2.1339e-02_jprb,2.1364e-02_jprb,2.0562e-02_jprb/)
kao( :, 4, 7,11) = (/&
&3.7516e-02_jprb,3.5493e-02_jprb,3.5022e-02_jprb,3.4550e-02_jprb,3.3425e-02_jprb,3.0562e-02_jprb,&
&2.8485e-02_jprb,2.9108e-02_jprb,2.9186e-02_jprb/)
kao( :, 5, 7,11) = (/&
&4.5622e-02_jprb,4.3704e-02_jprb,4.3641e-02_jprb,4.3057e-02_jprb,4.1664e-02_jprb,3.8186e-02_jprb,&
&3.7831e-02_jprb,3.8897e-02_jprb,4.0505e-02_jprb/)
kao( :, 1, 8,11) = (/&
&1.3818e-02_jprb,1.2820e-02_jprb,1.2555e-02_jprb,1.2034e-02_jprb,1.1176e-02_jprb,1.0359e-02_jprb,&
&9.1227e-03_jprb,7.1909e-03_jprb,7.1385e-03_jprb/)
kao( :, 2, 8,11) = (/&
&1.9199e-02_jprb,1.7868e-02_jprb,1.7585e-02_jprb,1.6871e-02_jprb,1.6078e-02_jprb,1.5016e-02_jprb,&
&1.2893e-02_jprb,1.1875e-02_jprb,1.0811e-02_jprb/)
kao( :, 3, 8,11) = (/&
&2.5464e-02_jprb,2.3910e-02_jprb,2.3566e-02_jprb,2.3034e-02_jprb,2.2314e-02_jprb,2.0472e-02_jprb,&
&1.7635e-02_jprb,1.7256e-02_jprb,1.5992e-02_jprb/)
kao( :, 4, 8,11) = (/&
&3.2551e-02_jprb,3.0722e-02_jprb,3.0704e-02_jprb,3.0409e-02_jprb,2.9339e-02_jprb,2.6650e-02_jprb,&
&2.3599e-02_jprb,2.4044e-02_jprb,2.3236e-02_jprb/)
kao( :, 5, 8,11) = (/&
&4.0250e-02_jprb,3.8454e-02_jprb,3.8842e-02_jprb,3.8675e-02_jprb,3.7147e-02_jprb,3.3647e-02_jprb,&
&3.1602e-02_jprb,3.2839e-02_jprb,3.2581e-02_jprb/)
kao( :, 1, 9,11) = (/&
&1.1316e-02_jprb,1.0378e-02_jprb,1.0058e-02_jprb,9.5388e-03_jprb,8.9583e-03_jprb,8.3215e-03_jprb,&
&7.2172e-03_jprb,5.3794e-03_jprb,1.8355e-02_jprb/)
kao( :, 2, 9,11) = (/&
&1.6231e-02_jprb,1.4928e-02_jprb,1.4498e-02_jprb,1.3829e-02_jprb,1.3241e-02_jprb,1.2313e-02_jprb,&
&1.0614e-02_jprb,9.2668e-03_jprb,1.9770e-02_jprb/)
kao( :, 3, 9,11) = (/&
&2.2130e-02_jprb,2.0494e-02_jprb,1.9903e-02_jprb,1.9411e-02_jprb,1.8773e-02_jprb,1.7143e-02_jprb,&
&1.4703e-02_jprb,1.3790e-02_jprb,2.1581e-02_jprb/)
kao( :, 4, 9,11) = (/&
&2.8872e-02_jprb,2.6893e-02_jprb,2.6410e-02_jprb,2.6293e-02_jprb,2.5184e-02_jprb,2.2875e-02_jprb,&
&1.9599e-02_jprb,1.9453e-02_jprb,2.4207e-02_jprb/)
kao( :, 5, 9,11) = (/&
&3.6434e-02_jprb,3.4163e-02_jprb,3.4039e-02_jprb,3.4059e-02_jprb,3.2485e-02_jprb,2.9558e-02_jprb,&
&2.6124e-02_jprb,2.6908e-02_jprb,2.8766e-02_jprb/)
kao( :, 1,10,11) = (/&
&9.7526e-03_jprb,8.8471e-03_jprb,8.4095e-03_jprb,7.7992e-03_jprb,7.2733e-03_jprb,6.6861e-03_jprb,&
&5.7804e-03_jprb,4.0724e-03_jprb,1.2763e-01_jprb/)
kao( :, 2,10,11) = (/&
&1.4441e-02_jprb,1.3149e-02_jprb,1.2436e-02_jprb,1.1554e-02_jprb,1.1049e-02_jprb,1.0173e-02_jprb,&
&8.7698e-03_jprb,7.1450e-03_jprb,1.2600e-01_jprb/)
kao( :, 3,10,11) = (/&
&2.0155e-02_jprb,1.8437e-02_jprb,1.7426e-02_jprb,1.6603e-02_jprb,1.5853e-02_jprb,1.4561e-02_jprb,&
&1.2511e-02_jprb,1.1073e-02_jprb,1.2528e-01_jprb/)
kao( :, 4,10,11) = (/&
&2.6846e-02_jprb,2.4609e-02_jprb,2.3486e-02_jprb,2.2854e-02_jprb,2.1623e-02_jprb,1.9796e-02_jprb,&
&1.6929e-02_jprb,1.5991e-02_jprb,1.2447e-01_jprb/)
kao( :, 5,10,11) = (/&
&3.4410e-02_jprb,3.1744e-02_jprb,3.0750e-02_jprb,2.9972e-02_jprb,2.8397e-02_jprb,2.5966e-02_jprb,&
&2.2616e-02_jprb,2.2449e-02_jprb,1.2610e-01_jprb/)
kao( :, 1,11,11) = (/&
&1.0324e-02_jprb,9.3720e-03_jprb,8.7252e-03_jprb,7.9450e-03_jprb,7.2482e-03_jprb,6.5147e-03_jprb,&
&5.6100e-03_jprb,4.1662e-03_jprb,3.4329e-01_jprb/)
kao( :, 2,11,11) = (/&
&1.5204e-02_jprb,1.3885e-02_jprb,1.2891e-02_jprb,1.1869e-02_jprb,1.0956e-02_jprb,9.8826e-03_jprb,&
&8.5703e-03_jprb,6.8061e-03_jprb,3.3565e-01_jprb/)
kao( :, 3,11,11) = (/&
&2.1115e-02_jprb,1.9367e-02_jprb,1.8058e-02_jprb,1.6962e-02_jprb,1.5612e-02_jprb,1.4165e-02_jprb,&
&1.2308e-02_jprb,1.0528e-02_jprb,3.2746e-01_jprb/)
kao( :, 4,11,11) = (/&
&2.8056e-02_jprb,2.5869e-02_jprb,2.4495e-02_jprb,2.3019e-02_jprb,2.1190e-02_jprb,1.9340e-02_jprb,&
&1.6909e-02_jprb,1.5353e-02_jprb,3.2105e-01_jprb/)
kao( :, 5,11,11) = (/&
&3.5830e-02_jprb,3.3269e-02_jprb,3.2053e-02_jprb,3.0019e-02_jprb,2.7764e-02_jprb,2.5746e-02_jprb,&
&2.2821e-02_jprb,2.2018e-02_jprb,3.1597e-01_jprb/)
kao( :, 1,12,11) = (/&
&1.0672e-02_jprb,9.7549e-03_jprb,9.0561e-03_jprb,8.2466e-03_jprb,7.3613e-03_jprb,6.3875e-03_jprb,&
&5.3947e-03_jprb,4.0883e-03_jprb,5.8394e-01_jprb/)
kao( :, 2,12,11) = (/&
&1.5642e-02_jprb,1.4385e-02_jprb,1.3307e-02_jprb,1.2366e-02_jprb,1.1058e-02_jprb,9.6585e-03_jprb,&
&8.3795e-03_jprb,6.6353e-03_jprb,5.6769e-01_jprb/)
kao( :, 3,12,11) = (/&
&2.1675e-02_jprb,2.0001e-02_jprb,1.8764e-02_jprb,1.7488e-02_jprb,1.5704e-02_jprb,1.3828e-02_jprb,&
&1.2045e-02_jprb,1.0080e-02_jprb,5.5255e-01_jprb/)
kao( :, 4,12,11) = (/&
&2.8647e-02_jprb,2.6665e-02_jprb,2.5514e-02_jprb,2.3603e-02_jprb,2.1257e-02_jprb,1.8966e-02_jprb,&
&1.6778e-02_jprb,1.4837e-02_jprb,5.4088e-01_jprb/)
kao( :, 5,12,11) = (/&
&3.6513e-02_jprb,3.4282e-02_jprb,3.3140e-02_jprb,3.0751e-02_jprb,2.7941e-02_jprb,2.5430e-02_jprb,&
&2.2803e-02_jprb,2.1312e-02_jprb,5.3155e-01_jprb/)
kao( :, 1,13,11) = (/&
&1.0760e-02_jprb,9.9165e-03_jprb,9.2107e-03_jprb,8.4431e-03_jprb,7.5043e-03_jprb,6.4219e-03_jprb,&
&5.3322e-03_jprb,3.9942e-03_jprb,8.0574e-01_jprb/)
kao( :, 2,13,11) = (/&
&1.5718e-02_jprb,1.4579e-02_jprb,1.3580e-02_jprb,1.2603e-02_jprb,1.1240e-02_jprb,9.7118e-03_jprb,&
&8.1489e-03_jprb,6.5540e-03_jprb,7.8546e-01_jprb/)
kao( :, 3,13,11) = (/&
&2.1709e-02_jprb,2.0244e-02_jprb,1.9196e-02_jprb,1.7788e-02_jprb,1.5932e-02_jprb,1.3847e-02_jprb,&
&1.1724e-02_jprb,9.8122e-03_jprb,7.6747e-01_jprb/)
kao( :, 4,13,11) = (/&
&2.8590e-02_jprb,2.6855e-02_jprb,2.5888e-02_jprb,2.3974e-02_jprb,2.1610e-02_jprb,1.9031e-02_jprb,&
&1.6481e-02_jprb,1.4419e-02_jprb,7.5290e-01_jprb/)
kao( :, 5,13,11) = (/&
&3.6243e-02_jprb,3.4524e-02_jprb,3.3518e-02_jprb,3.1146e-02_jprb,2.8589e-02_jprb,2.5416e-02_jprb,&
&2.2358e-02_jprb,2.0400e-02_jprb,7.4359e-01_jprb/)
kao( :, 1, 1,12) = (/&
&5.6231e-02_jprb,4.9245e-02_jprb,4.2437e-02_jprb,3.9377e-02_jprb,3.6183e-02_jprb,3.2140e-02_jprb,&
&3.2423e-02_jprb,3.1523e-02_jprb,4.6750e-02_jprb/)
kao( :, 2, 1,12) = (/&
&6.6148e-02_jprb,5.7978e-02_jprb,5.1041e-02_jprb,4.8104e-02_jprb,4.3912e-02_jprb,4.1677e-02_jprb,&
&4.3817e-02_jprb,4.4437e-02_jprb,6.2584e-02_jprb/)
kao( :, 3, 1,12) = (/&
&7.6244e-02_jprb,6.6854e-02_jprb,6.1488e-02_jprb,5.7173e-02_jprb,5.2540e-02_jprb,5.2875e-02_jprb,&
&5.7103e-02_jprb,5.8708e-02_jprb,8.0763e-02_jprb/)
kao( :, 4, 1,12) = (/&
&8.6310e-02_jprb,7.5728e-02_jprb,7.2130e-02_jprb,6.6817e-02_jprb,6.2530e-02_jprb,6.5257e-02_jprb,&
&7.2354e-02_jprb,7.4823e-02_jprb,1.0291e-01_jprb/)
kao( :, 5, 1,12) = (/&
&9.6172e-02_jprb,8.4532e-02_jprb,8.2586e-02_jprb,7.6624e-02_jprb,7.4096e-02_jprb,7.9889e-02_jprb,&
&9.0215e-02_jprb,9.5892e-02_jprb,1.2765e-01_jprb/)
kao( :, 1, 2,12) = (/&
&5.4471e-02_jprb,4.7727e-02_jprb,4.1337e-02_jprb,3.9056e-02_jprb,3.5201e-02_jprb,3.1688e-02_jprb,&
&3.1483e-02_jprb,3.1390e-02_jprb,4.4121e-02_jprb/)
kao( :, 2, 2,12) = (/&
&6.4761e-02_jprb,5.6767e-02_jprb,5.0472e-02_jprb,4.7843e-02_jprb,4.3316e-02_jprb,4.1425e-02_jprb,&
&4.2288e-02_jprb,4.3887e-02_jprb,5.9020e-02_jprb/)
kao( :, 3, 2,12) = (/&
&7.5278e-02_jprb,6.6006e-02_jprb,6.0892e-02_jprb,5.7036e-02_jprb,5.2510e-02_jprb,5.2589e-02_jprb,&
&5.4973e-02_jprb,5.8082e-02_jprb,7.6747e-02_jprb/)
kao( :, 4, 2,12) = (/&
&8.5814e-02_jprb,7.5272e-02_jprb,7.1653e-02_jprb,6.6752e-02_jprb,6.2771e-02_jprb,6.5169e-02_jprb,&
&7.0350e-02_jprb,7.4345e-02_jprb,9.8748e-02_jprb/)
kao( :, 5, 2,12) = (/&
&9.6214e-02_jprb,8.4711e-02_jprb,8.2534e-02_jprb,7.6688e-02_jprb,7.5320e-02_jprb,7.9513e-02_jprb,&
&8.8443e-02_jprb,9.3326e-02_jprb,1.2393e-01_jprb/)
kao( :, 1, 3,12) = (/&
&5.0240e-02_jprb,4.4018e-02_jprb,3.8537e-02_jprb,3.6190e-02_jprb,3.2727e-02_jprb,2.9265e-02_jprb,&
&2.8718e-02_jprb,2.8539e-02_jprb,3.8545e-02_jprb/)
kao( :, 2, 3,12) = (/&
&6.0700e-02_jprb,5.3194e-02_jprb,4.7696e-02_jprb,4.4849e-02_jprb,4.0923e-02_jprb,3.8400e-02_jprb,&
&3.8699e-02_jprb,3.9635e-02_jprb,5.2691e-02_jprb/)
kao( :, 3, 3,12) = (/&
&7.1446e-02_jprb,6.2599e-02_jprb,5.7763e-02_jprb,5.4243e-02_jprb,5.0207e-02_jprb,4.9187e-02_jprb,&
&5.0052e-02_jprb,5.3471e-02_jprb,6.9258e-02_jprb/)
kao( :, 4, 3,12) = (/&
&8.2289e-02_jprb,7.2095e-02_jprb,6.8416e-02_jprb,6.4344e-02_jprb,6.0447e-02_jprb,6.1241e-02_jprb,&
&6.3891e-02_jprb,6.9264e-02_jprb,8.9560e-02_jprb/)
kao( :, 5, 3,12) = (/&
&9.3052e-02_jprb,8.1807e-02_jprb,7.9129e-02_jprb,7.4686e-02_jprb,7.2461e-02_jprb,7.5879e-02_jprb,&
&8.1262e-02_jprb,8.8197e-02_jprb,1.1309e-01_jprb/)
kao( :, 1, 4,12) = (/&
&4.5028e-02_jprb,3.9435e-02_jprb,3.5334e-02_jprb,3.2580e-02_jprb,2.9727e-02_jprb,2.6383e-02_jprb,&
&2.5279e-02_jprb,2.4249e-02_jprb,3.2836e-02_jprb/)
kao( :, 2, 4,12) = (/&
&5.5340e-02_jprb,4.8463e-02_jprb,4.4234e-02_jprb,4.0965e-02_jprb,3.7511e-02_jprb,3.4709e-02_jprb,&
&3.4617e-02_jprb,3.4578e-02_jprb,4.5997e-02_jprb/)
kao( :, 3, 4,12) = (/&
&6.6183e-02_jprb,5.7963e-02_jprb,5.3924e-02_jprb,5.0425e-02_jprb,4.6576e-02_jprb,4.4933e-02_jprb,&
&4.5427e-02_jprb,4.7054e-02_jprb,6.1726e-02_jprb/)
kao( :, 4, 4,12) = (/&
&7.7283e-02_jprb,6.7685e-02_jprb,6.4408e-02_jprb,6.0620e-02_jprb,5.6689e-02_jprb,5.6675e-02_jprb,&
&5.7994e-02_jprb,6.1679e-02_jprb,8.0866e-02_jprb/)
kao( :, 5, 4,12) = (/&
&8.8418e-02_jprb,7.8061e-02_jprb,7.5140e-02_jprb,7.1155e-02_jprb,6.8119e-02_jprb,7.0861e-02_jprb,&
&7.3683e-02_jprb,7.9503e-02_jprb,1.0285e-01_jprb/)
kao( :, 1, 5,12) = (/&
&3.9662e-02_jprb,3.4731e-02_jprb,3.1644e-02_jprb,2.8938e-02_jprb,2.6745e-02_jprb,2.3268e-02_jprb,&
&2.1825e-02_jprb,2.0476e-02_jprb,2.7392e-02_jprb/)
kao( :, 2, 5,12) = (/&
&4.9795e-02_jprb,4.3597e-02_jprb,4.0424e-02_jprb,3.7076e-02_jprb,3.4194e-02_jprb,3.1021e-02_jprb,&
&3.0623e-02_jprb,2.9562e-02_jprb,3.9492e-02_jprb/)
kao( :, 3, 5,12) = (/&
&6.0584e-02_jprb,5.3042e-02_jprb,4.9894e-02_jprb,4.6289e-02_jprb,4.2817e-02_jprb,4.0884e-02_jprb,&
&4.1181e-02_jprb,4.1314e-02_jprb,5.4083e-02_jprb/)
kao( :, 4, 5,12) = (/&
&7.1810e-02_jprb,6.2970e-02_jprb,6.0288e-02_jprb,5.6611e-02_jprb,5.2417e-02_jprb,5.2364e-02_jprb,&
&5.3447e-02_jprb,5.4733e-02_jprb,7.1895e-02_jprb/)
kao( :, 5, 5,12) = (/&
&8.3191e-02_jprb,7.3693e-02_jprb,7.1136e-02_jprb,6.7175e-02_jprb,6.3303e-02_jprb,6.5794e-02_jprb,&
&6.8047e-02_jprb,7.1167e-02_jprb,9.3099e-02_jprb/)
kao( :, 1, 6,12) = (/&
&3.4073e-02_jprb,2.9970e-02_jprb,2.7448e-02_jprb,2.5187e-02_jprb,2.3238e-02_jprb,2.0151e-02_jprb,&
&1.8356e-02_jprb,1.7087e-02_jprb,2.1825e-02_jprb/)
kao( :, 2, 6,12) = (/&
&4.3805e-02_jprb,3.8540e-02_jprb,3.5809e-02_jprb,3.2989e-02_jprb,3.0183e-02_jprb,2.7066e-02_jprb,&
&2.6460e-02_jprb,2.5241e-02_jprb,3.2266e-02_jprb/)
kao( :, 3, 6,12) = (/&
&5.4408e-02_jprb,4.7827e-02_jprb,4.4959e-02_jprb,4.1832e-02_jprb,3.8412e-02_jprb,3.6156e-02_jprb,&
&3.6616e-02_jprb,3.5630e-02_jprb,4.5299e-02_jprb/)
kao( :, 4, 6,12) = (/&
&6.5566e-02_jprb,5.7738e-02_jprb,5.4996e-02_jprb,5.1938e-02_jprb,4.7753e-02_jprb,4.7435e-02_jprb,&
&4.8559e-02_jprb,4.8244e-02_jprb,6.1467e-02_jprb/)
kao( :, 5, 6,12) = (/&
&7.7055e-02_jprb,6.8635e-02_jprb,6.5830e-02_jprb,6.2404e-02_jprb,5.8371e-02_jprb,6.0640e-02_jprb,&
&6.2553e-02_jprb,6.3410e-02_jprb,8.1734e-02_jprb/)
kao( :, 1, 7,12) = (/&
&2.8703e-02_jprb,2.5583e-02_jprb,2.3276e-02_jprb,2.1697e-02_jprb,1.9747e-02_jprb,1.7089e-02_jprb,&
&1.5072e-02_jprb,1.3835e-02_jprb,1.6883e-02_jprb/)
kao( :, 2, 7,12) = (/&
&3.7935e-02_jprb,3.3728e-02_jprb,3.1173e-02_jprb,2.9047e-02_jprb,2.6304e-02_jprb,2.3254e-02_jprb,&
&2.2495e-02_jprb,2.1233e-02_jprb,2.5258e-02_jprb/)
kao( :, 3, 7,12) = (/&
&4.8109e-02_jprb,4.2733e-02_jprb,3.9875e-02_jprb,3.7411e-02_jprb,3.4221e-02_jprb,3.1727e-02_jprb,&
&3.2013e-02_jprb,3.0954e-02_jprb,3.6228e-02_jprb/)
kao( :, 4, 7,12) = (/&
&5.9015e-02_jprb,5.2712e-02_jprb,4.9724e-02_jprb,4.7098e-02_jprb,4.3201e-02_jprb,4.2396e-02_jprb,&
&4.3420e-02_jprb,4.2821e-02_jprb,5.0322e-02_jprb/)
kao( :, 5, 7,12) = (/&
&7.0562e-02_jprb,6.3765e-02_jprb,6.0647e-02_jprb,5.7324e-02_jprb,5.3581e-02_jprb,5.4932e-02_jprb,&
&5.6750e-02_jprb,5.6861e-02_jprb,6.8648e-02_jprb/)
kao( :, 1, 8,12) = (/&
&2.3797e-02_jprb,2.1507e-02_jprb,1.9481e-02_jprb,1.8328e-02_jprb,1.6567e-02_jprb,1.4195e-02_jprb,&
&1.2226e-02_jprb,1.1084e-02_jprb,1.2769e-02_jprb/)
kao( :, 2, 8,12) = (/&
&3.2290e-02_jprb,2.9132e-02_jprb,2.6787e-02_jprb,2.5154e-02_jprb,2.2698e-02_jprb,1.9789e-02_jprb,&
&1.8738e-02_jprb,1.7668e-02_jprb,1.9523e-02_jprb/)
kao( :, 3, 8,12) = (/&
&4.1971e-02_jprb,3.7809e-02_jprb,3.5153e-02_jprb,3.3039e-02_jprb,3.0227e-02_jprb,2.7550e-02_jprb,&
&2.7403e-02_jprb,2.6633e-02_jprb,2.8356e-02_jprb/)
kao( :, 4, 8,12) = (/&
&5.2643e-02_jprb,4.7711e-02_jprb,4.4776e-02_jprb,4.2382e-02_jprb,3.8941e-02_jprb,3.7160e-02_jprb,&
&3.7962e-02_jprb,3.7660e-02_jprb,4.0067e-02_jprb/)
kao( :, 5, 8,12) = (/&
&6.4120e-02_jprb,5.8657e-02_jprb,5.5707e-02_jprb,5.2735e-02_jprb,4.8989e-02_jprb,4.8789e-02_jprb,&
&5.0472e-02_jprb,5.0598e-02_jprb,5.5953e-02_jprb/)
kao( :, 1, 9,12) = (/&
&1.9250e-02_jprb,1.7588e-02_jprb,1.6042e-02_jprb,1.5146e-02_jprb,1.3631e-02_jprb,1.1686e-02_jprb,&
&9.9858e-03_jprb,8.6677e-03_jprb,2.1707e-02_jprb/)
kao( :, 2, 9,12) = (/&
&2.7012e-02_jprb,2.4595e-02_jprb,2.2809e-02_jprb,2.1369e-02_jprb,1.9226e-02_jprb,1.6776e-02_jprb,&
&1.5292e-02_jprb,1.4425e-02_jprb,2.4366e-02_jprb/)
kao( :, 3, 9,12) = (/&
&3.6057e-02_jprb,3.2810e-02_jprb,3.0756e-02_jprb,2.8820e-02_jprb,2.6287e-02_jprb,2.3677e-02_jprb,&
&2.2692e-02_jprb,2.2334e-02_jprb,2.7809e-02_jprb/)
kao( :, 4, 9,12) = (/&
&4.6276e-02_jprb,4.2323e-02_jprb,4.0041e-02_jprb,3.7778e-02_jprb,3.4895e-02_jprb,3.2122e-02_jprb,&
&3.2057e-02_jprb,3.2163e-02_jprb,3.3773e-02_jprb/)
kao( :, 5, 9,12) = (/&
&5.7287e-02_jprb,5.2928e-02_jprb,5.0545e-02_jprb,4.8124e-02_jprb,4.4442e-02_jprb,4.2249e-02_jprb,&
&4.3334e-02_jprb,4.4067e-02_jprb,4.5714e-02_jprb/)
kao( :, 1,10,12) = (/&
&1.5724e-02_jprb,1.4480e-02_jprb,1.3399e-02_jprb,1.2607e-02_jprb,1.1371e-02_jprb,9.8756e-03_jprb,&
&8.2202e-03_jprb,7.0920e-03_jprb,1.5327e-01_jprb/)
kao( :, 2,10,12) = (/&
&2.2742e-02_jprb,2.0839e-02_jprb,1.9648e-02_jprb,1.8330e-02_jprb,1.6472e-02_jprb,1.4615e-02_jprb,&
&1.2794e-02_jprb,1.2185e-02_jprb,1.5107e-01_jprb/)
kao( :, 3,10,12) = (/&
&3.1111e-02_jprb,2.8526e-02_jprb,2.7137e-02_jprb,2.5313e-02_jprb,2.3236e-02_jprb,2.0664e-02_jprb,&
&1.8952e-02_jprb,1.8782e-02_jprb,1.5057e-01_jprb/)
kao( :, 4,10,12) = (/&
&4.0637e-02_jprb,3.7549e-02_jprb,3.5922e-02_jprb,3.3978e-02_jprb,3.1652e-02_jprb,2.8132e-02_jprb,&
&2.7006e-02_jprb,2.7319e-02_jprb,1.5207e-01_jprb/)
kao( :, 5,10,12) = (/&
&5.1227e-02_jprb,4.7699e-02_jprb,4.6069e-02_jprb,4.4170e-02_jprb,4.0891e-02_jprb,3.7225e-02_jprb,&
&3.7060e-02_jprb,3.8071e-02_jprb,1.5409e-01_jprb/)
kao( :, 1,11,12) = (/&
&1.5555e-02_jprb,1.4241e-02_jprb,1.3404e-02_jprb,1.2541e-02_jprb,1.1360e-02_jprb,1.0012e-02_jprb,&
&8.3342e-03_jprb,7.3523e-03_jprb,4.1658e-01_jprb/)
kao( :, 2,11,12) = (/&
&2.2569e-02_jprb,2.0619e-02_jprb,1.9629e-02_jprb,1.8217e-02_jprb,1.6713e-02_jprb,1.4923e-02_jprb,&
&1.2799e-02_jprb,1.2337e-02_jprb,4.0531e-01_jprb/)
kao( :, 3,11,12) = (/&
&3.1003e-02_jprb,2.8414e-02_jprb,2.7101e-02_jprb,2.5438e-02_jprb,2.3803e-02_jprb,2.0993e-02_jprb,&
&1.8716e-02_jprb,1.8686e-02_jprb,3.9474e-01_jprb/)
kao( :, 4,11,12) = (/&
&4.0722e-02_jprb,3.7543e-02_jprb,3.5908e-02_jprb,3.4570e-02_jprb,3.2168e-02_jprb,2.8356e-02_jprb,&
&2.6227e-02_jprb,2.6848e-02_jprb,3.8831e-01_jprb/)
kao( :, 5,11,12) = (/&
&5.1560e-02_jprb,4.7783e-02_jprb,4.6376e-02_jprb,4.5061e-02_jprb,4.1670e-02_jprb,3.7328e-02_jprb,&
&3.5965e-02_jprb,3.7251e-02_jprb,3.8125e-01_jprb/)
kao( :, 1,12,12) = (/&
&1.5830e-02_jprb,1.4387e-02_jprb,1.3516e-02_jprb,1.2418e-02_jprb,1.1346e-02_jprb,1.0079e-02_jprb,&
&8.3729e-03_jprb,7.3472e-03_jprb,7.1942e-01_jprb/)
kao( :, 2,12,12) = (/&
&2.3055e-02_jprb,2.0962e-02_jprb,1.9738e-02_jprb,1.8144e-02_jprb,1.6929e-02_jprb,1.5067e-02_jprb,&
&1.2702e-02_jprb,1.1955e-02_jprb,6.9772e-01_jprb/)
kao( :, 3,12,12) = (/&
&3.1847e-02_jprb,2.9081e-02_jprb,2.7322e-02_jprb,2.5612e-02_jprb,2.3940e-02_jprb,2.1303e-02_jprb,&
&1.8481e-02_jprb,1.8181e-02_jprb,6.7687e-01_jprb/)
kao( :, 4,12,12) = (/&
&4.1961e-02_jprb,3.8413e-02_jprb,3.6388e-02_jprb,3.4886e-02_jprb,3.2236e-02_jprb,2.8808e-02_jprb,&
&2.5797e-02_jprb,2.6077e-02_jprb,6.5603e-01_jprb/)
kao( :, 5,12,12) = (/&
&5.3319e-02_jprb,4.9117e-02_jprb,4.7169e-02_jprb,4.5236e-02_jprb,4.1943e-02_jprb,3.7873e-02_jprb,&
&3.5355e-02_jprb,3.6412e-02_jprb,6.4190e-01_jprb/)
kao( :, 1,13,12) = (/&
&1.6495e-02_jprb,1.4909e-02_jprb,1.3825e-02_jprb,1.2544e-02_jprb,1.1340e-02_jprb,9.9975e-03_jprb,&
&8.3433e-03_jprb,7.0546e-03_jprb,9.9911e-01_jprb/)
kao( :, 2,13,12) = (/&
&2.4109e-02_jprb,2.1885e-02_jprb,2.0210e-02_jprb,1.8488e-02_jprb,1.6936e-02_jprb,1.4953e-02_jprb,&
&1.2660e-02_jprb,1.1467e-02_jprb,9.6984e-01_jprb/)
kao( :, 3,13,12) = (/&
&3.3220e-02_jprb,3.0296e-02_jprb,2.8083e-02_jprb,2.6185e-02_jprb,2.3860e-02_jprb,2.1223e-02_jprb,&
&1.8346e-02_jprb,1.7437e-02_jprb,9.3888e-01_jprb/)
kao( :, 4,13,12) = (/&
&4.3831e-02_jprb,4.0158e-02_jprb,3.7697e-02_jprb,3.5285e-02_jprb,3.2116e-02_jprb,2.8881e-02_jprb,&
&2.5602e-02_jprb,2.5164e-02_jprb,9.0808e-01_jprb/)
kao( :, 5,13,12) = (/&
&5.5677e-02_jprb,5.1368e-02_jprb,4.8923e-02_jprb,4.5702e-02_jprb,4.1832e-02_jprb,3.8470e-02_jprb,&
&3.5318e-02_jprb,3.5646e-02_jprb,8.8465e-01_jprb/)
kao( :, 1, 1,13) = (/&
&7.2506e-02_jprb,6.3446e-02_jprb,5.4408e-02_jprb,4.7483e-02_jprb,4.2382e-02_jprb,4.1239e-02_jprb,&
&4.3386e-02_jprb,4.4074e-02_jprb,6.4271e-02_jprb/)
kao( :, 2, 1,13) = (/&
&8.4465e-02_jprb,7.3953e-02_jprb,6.3427e-02_jprb,5.6900e-02_jprb,5.2376e-02_jprb,5.3648e-02_jprb,&
&5.8354e-02_jprb,5.9101e-02_jprb,8.6583e-02_jprb/)
kao( :, 3, 1,13) = (/&
&9.6444e-02_jprb,8.4439e-02_jprb,7.3063e-02_jprb,6.7601e-02_jprb,6.5429e-02_jprb,6.9474e-02_jprb,&
&7.7817e-02_jprb,8.1204e-02_jprb,1.1413e-01_jprb/)
kao( :, 4, 1,13) = (/&
&1.0833e-01_jprb,9.4864e-02_jprb,8.5278e-02_jprb,7.9673e-02_jprb,8.1089e-02_jprb,9.1367e-02_jprb,&
&1.0434e-01_jprb,1.1177e-01_jprb,1.4904e-01_jprb/)
kao( :, 5, 1,13) = (/&
&1.1980e-01_jprb,1.0493e-01_jprb,9.6406e-02_jprb,9.4783e-02_jprb,1.0132e-01_jprb,1.1971e-01_jprb,&
&1.3809e-01_jprb,1.4964e-01_jprb,1.9375e-01_jprb/)
kao( :, 1, 2,13) = (/&
&7.1478e-02_jprb,6.2570e-02_jprb,5.3664e-02_jprb,4.6754e-02_jprb,4.2681e-02_jprb,4.1156e-02_jprb,&
&4.2008e-02_jprb,4.2483e-02_jprb,6.2959e-02_jprb/)
kao( :, 2, 2,13) = (/&
&8.4247e-02_jprb,7.3747e-02_jprb,6.3249e-02_jprb,5.6233e-02_jprb,5.3534e-02_jprb,5.3727e-02_jprb,&
&5.7468e-02_jprb,5.8178e-02_jprb,8.6328e-02_jprb/)
kao( :, 3, 2,13) = (/&
&9.6812e-02_jprb,8.4747e-02_jprb,7.4116e-02_jprb,6.7508e-02_jprb,6.6781e-02_jprb,6.9983e-02_jprb,&
&7.6767e-02_jprb,7.7852e-02_jprb,1.1485e-01_jprb/)
kao( :, 4, 2,13) = (/&
&1.0887e-01_jprb,9.5297e-02_jprb,8.6108e-02_jprb,8.0754e-02_jprb,8.2919e-02_jprb,8.8967e-02_jprb,&
&1.0013e-01_jprb,1.0496e-01_jprb,1.4738e-01_jprb/)
kao( :, 5, 2,13) = (/&
&1.2040e-01_jprb,1.0544e-01_jprb,9.8262e-02_jprb,9.7024e-02_jprb,1.0128e-01_jprb,1.1389e-01_jprb,&
&1.3047e-01_jprb,1.4126e-01_jprb,1.8810e-01_jprb/)
kao( :, 1, 3,13) = (/&
&6.7428e-02_jprb,5.9012e-02_jprb,5.0600e-02_jprb,4.4820e-02_jprb,4.0284e-02_jprb,3.8905e-02_jprb,&
&3.8433e-02_jprb,3.8221e-02_jprb,5.7695e-02_jprb/)
kao( :, 2, 3,13) = (/&
&8.0097e-02_jprb,7.0092e-02_jprb,6.0231e-02_jprb,5.4560e-02_jprb,5.1238e-02_jprb,5.1427e-02_jprb,&
&5.2635e-02_jprb,5.3599e-02_jprb,7.9873e-02_jprb/)
kao( :, 3, 3,13) = (/&
&9.2835e-02_jprb,8.1288e-02_jprb,7.1303e-02_jprb,6.5788e-02_jprb,6.5168e-02_jprb,6.7196e-02_jprb,&
&7.1689e-02_jprb,7.2641e-02_jprb,1.0771e-01_jprb/)
kao( :, 4, 3,13) = (/&
&1.0559e-01_jprb,9.2480e-02_jprb,8.3299e-02_jprb,7.8616e-02_jprb,8.1678e-02_jprb,8.5882e-02_jprb,&
&9.4318e-02_jprb,9.6259e-02_jprb,1.4043e-01_jprb/)
kao( :, 5, 3,13) = (/&
&1.1824e-01_jprb,1.0358e-01_jprb,9.6455e-02_jprb,9.5066e-02_jprb,9.9972e-02_jprb,1.0747e-01_jprb,&
&1.2012e-01_jprb,1.2676e-01_jprb,1.7816e-01_jprb/)
kao( :, 1, 4,13) = (/&
&6.1574e-02_jprb,5.3893e-02_jprb,4.6221e-02_jprb,4.1581e-02_jprb,3.7011e-02_jprb,3.6135e-02_jprb,&
&3.5573e-02_jprb,3.4371e-02_jprb,5.0320e-02_jprb/)
kao( :, 2, 4,13) = (/&
&7.4469e-02_jprb,6.5196e-02_jprb,5.6073e-02_jprb,5.1353e-02_jprb,4.7821e-02_jprb,4.7971e-02_jprb,&
&4.8104e-02_jprb,4.8151e-02_jprb,7.0598e-02_jprb/)
kao( :, 3, 4,13) = (/&
&8.7893e-02_jprb,7.6969e-02_jprb,6.7380e-02_jprb,6.2778e-02_jprb,6.1745e-02_jprb,6.3327e-02_jprb,&
&6.5251e-02_jprb,6.6605e-02_jprb,9.6688e-02_jprb/)
kao( :, 4, 4,13) = (/&
&1.0128e-01_jprb,8.8666e-02_jprb,7.9558e-02_jprb,7.6113e-02_jprb,7.8711e-02_jprb,8.2067e-02_jprb,&
&8.7118e-02_jprb,8.9685e-02_jprb,1.2734e-01_jprb/)
kao( :, 5, 4,13) = (/&
&1.1397e-01_jprb,9.9791e-02_jprb,9.3095e-02_jprb,9.2358e-02_jprb,9.7817e-02_jprb,1.0283e-01_jprb,&
&1.1271e-01_jprb,1.1615e-01_jprb,1.6394e-01_jprb/)
kao( :, 1, 5,13) = (/&
&5.5644e-02_jprb,4.8706e-02_jprb,4.2042e-02_jprb,3.7730e-02_jprb,3.3816e-02_jprb,3.3296e-02_jprb,&
&3.2567e-02_jprb,3.1307e-02_jprb,4.2852e-02_jprb/)
kao( :, 2, 5,13) = (/&
&6.8700e-02_jprb,6.0145e-02_jprb,5.2078e-02_jprb,4.7465e-02_jprb,4.4257e-02_jprb,4.4542e-02_jprb,&
&4.3904e-02_jprb,4.3555e-02_jprb,6.1397e-02_jprb/)
kao( :, 3, 5,13) = (/&
&8.2079e-02_jprb,7.1842e-02_jprb,6.3336e-02_jprb,5.8826e-02_jprb,5.7771e-02_jprb,5.9150e-02_jprb,&
&5.9615e-02_jprb,6.0276e-02_jprb,8.5213e-02_jprb/)
kao( :, 4, 5,13) = (/&
&9.5395e-02_jprb,8.3509e-02_jprb,7.5491e-02_jprb,7.2428e-02_jprb,7.4615e-02_jprb,7.7323e-02_jprb,&
&7.9697e-02_jprb,8.2375e-02_jprb,1.1408e-01_jprb/)
kao( :, 5, 5,13) = (/&
&1.0879e-01_jprb,9.5224e-02_jprb,8.9008e-02_jprb,8.9139e-02_jprb,9.4277e-02_jprb,9.8162e-02_jprb,&
&1.0347e-01_jprb,1.0938e-01_jprb,1.4850e-01_jprb/)
kao( :, 1, 6,13) = (/&
&4.9166e-02_jprb,4.3032e-02_jprb,3.7697e-02_jprb,3.3418e-02_jprb,3.0271e-02_jprb,2.9707e-02_jprb,&
&2.8739e-02_jprb,2.7107e-02_jprb,3.5180e-02_jprb/)
kao( :, 2, 6,13) = (/&
&6.1802e-02_jprb,5.4091e-02_jprb,4.7585e-02_jprb,4.2912e-02_jprb,4.0335e-02_jprb,4.0310e-02_jprb,&
&3.9360e-02_jprb,3.8194e-02_jprb,5.1590e-02_jprb/)
kao( :, 3, 6,13) = (/&
&7.4933e-02_jprb,6.5583e-02_jprb,5.8743e-02_jprb,5.3925e-02_jprb,5.3041e-02_jprb,5.4106e-02_jprb,&
&5.3825e-02_jprb,5.3725e-02_jprb,7.3865e-02_jprb/)
kao( :, 4, 6,13) = (/&
&8.8794e-02_jprb,7.7714e-02_jprb,7.0892e-02_jprb,6.7266e-02_jprb,6.9411e-02_jprb,7.1602e-02_jprb,&
&7.2167e-02_jprb,7.4198e-02_jprb,1.0072e-01_jprb/)
kao( :, 5, 6,13) = (/&
&1.0284e-01_jprb,9.0019e-02_jprb,8.4346e-02_jprb,8.3697e-02_jprb,8.8853e-02_jprb,9.1618e-02_jprb,&
&9.4095e-02_jprb,9.9493e-02_jprb,1.3200e-01_jprb/)
kao( :, 1, 7,13) = (/&
&4.2481e-02_jprb,3.7182e-02_jprb,3.2941e-02_jprb,2.9053e-02_jprb,2.6729e-02_jprb,2.5857e-02_jprb,&
&2.4817e-02_jprb,2.3036e-02_jprb,2.8513e-02_jprb/)
kao( :, 2, 7,13) = (/&
&5.4646e-02_jprb,4.7829e-02_jprb,4.2493e-02_jprb,3.8260e-02_jprb,3.6179e-02_jprb,3.5843e-02_jprb,&
&3.4675e-02_jprb,3.3090e-02_jprb,4.3061e-02_jprb/)
kao( :, 3, 7,13) = (/&
&6.7949e-02_jprb,5.9473e-02_jprb,5.3629e-02_jprb,4.8997e-02_jprb,4.7960e-02_jprb,4.8517e-02_jprb,&
&4.7980e-02_jprb,4.6686e-02_jprb,6.3225e-02_jprb/)
kao( :, 4, 7,13) = (/&
&8.2011e-02_jprb,7.1775e-02_jprb,6.5638e-02_jprb,6.1779e-02_jprb,6.3457e-02_jprb,6.4989e-02_jprb,&
&6.5420e-02_jprb,6.5338e-02_jprb,8.8114e-02_jprb/)
kao( :, 5, 7,13) = (/&
&9.6121e-02_jprb,8.4118e-02_jprb,7.9080e-02_jprb,7.7840e-02_jprb,8.2099e-02_jprb,8.4733e-02_jprb,&
&8.6013e-02_jprb,8.9165e-02_jprb,1.1782e-01_jprb/)
kao( :, 1, 8,13) = (/&
&3.6137e-02_jprb,3.1658e-02_jprb,2.8232e-02_jprb,2.4974e-02_jprb,2.3118e-02_jprb,2.2088e-02_jprb,&
&2.1064e-02_jprb,1.9376e-02_jprb,2.2745e-02_jprb/)
kao( :, 2, 8,13) = (/&
&4.8016e-02_jprb,4.2076e-02_jprb,3.7504e-02_jprb,3.3789e-02_jprb,3.1931e-02_jprb,3.1218e-02_jprb,&
&3.0077e-02_jprb,2.8144e-02_jprb,3.5232e-02_jprb/)
kao( :, 3, 8,13) = (/&
&6.1205e-02_jprb,5.3668e-02_jprb,4.8373e-02_jprb,4.4145e-02_jprb,4.2766e-02_jprb,4.3001e-02_jprb,&
&4.2234e-02_jprb,4.0332e-02_jprb,5.3276e-02_jprb/)
kao( :, 4, 8,13) = (/&
&7.5025e-02_jprb,6.5801e-02_jprb,6.0176e-02_jprb,5.6410e-02_jprb,5.7125e-02_jprb,5.8703e-02_jprb,&
&5.8721e-02_jprb,5.7394e-02_jprb,7.6141e-02_jprb/)
kao( :, 5, 8,13) = (/&
&8.9588e-02_jprb,7.8614e-02_jprb,7.3265e-02_jprb,7.1609e-02_jprb,7.4944e-02_jprb,7.7845e-02_jprb,&
&7.8817e-02_jprb,7.9234e-02_jprb,1.0406e-01_jprb/)
kao( :, 1, 9,13) = (/&
&3.0354e-02_jprb,2.6812e-02_jprb,2.3806e-02_jprb,2.1190e-02_jprb,1.9445e-02_jprb,1.8240e-02_jprb,&
&1.7300e-02_jprb,1.5970e-02_jprb,2.7469e-02_jprb/)
kao( :, 2, 9,13) = (/&
&4.1683e-02_jprb,3.6828e-02_jprb,3.2679e-02_jprb,2.9622e-02_jprb,2.7586e-02_jprb,2.6377e-02_jprb,&
&2.5396e-02_jprb,2.3781e-02_jprb,3.1985e-02_jprb/)
kao( :, 3, 9,13) = (/&
&5.4431e-02_jprb,4.8107e-02_jprb,4.3192e-02_jprb,3.9529e-02_jprb,3.7624e-02_jprb,3.7195e-02_jprb,&
&3.6607e-02_jprb,3.4524e-02_jprb,4.4340e-02_jprb/)
kao( :, 4, 9,13) = (/&
&6.8321e-02_jprb,6.0391e-02_jprb,5.4610e-02_jprb,5.1211e-02_jprb,5.0615e-02_jprb,5.1938e-02_jprb,&
&5.2206e-02_jprb,5.0002e-02_jprb,6.4376e-02_jprb/)
kao( :, 5, 9,13) = (/&
&8.3382e-02_jprb,7.3864e-02_jprb,6.7608e-02_jprb,6.5416e-02_jprb,6.7796e-02_jprb,7.0544e-02_jprb,&
&7.1581e-02_jprb,7.0367e-02_jprb,8.9820e-02_jprb/)
kao( :, 1,10,13) = (/&
&2.5866e-02_jprb,2.3096e-02_jprb,2.0359e-02_jprb,1.8244e-02_jprb,1.6555e-02_jprb,1.5241e-02_jprb,&
&1.4537e-02_jprb,1.3197e-02_jprb,1.8207e-01_jprb/)
kao( :, 2,10,13) = (/&
&3.6597e-02_jprb,3.2659e-02_jprb,2.8899e-02_jprb,2.6262e-02_jprb,2.4046e-02_jprb,2.2449e-02_jprb,&
&2.1774e-02_jprb,2.0251e-02_jprb,1.8269e-01_jprb/)
kao( :, 3,10,13) = (/&
&4.8990e-02_jprb,4.3688e-02_jprb,3.9094e-02_jprb,3.5827e-02_jprb,3.3277e-02_jprb,3.2592e-02_jprb,&
&3.2234e-02_jprb,3.0480e-02_jprb,1.8337e-01_jprb/)
kao( :, 4,10,13) = (/&
&6.3031e-02_jprb,5.6150e-02_jprb,5.0614e-02_jprb,4.7098e-02_jprb,4.5295e-02_jprb,4.6573e-02_jprb,&
&4.6974e-02_jprb,4.5107e-02_jprb,1.8526e-01_jprb/)
kao( :, 5,10,13) = (/&
&7.8337e-02_jprb,7.0036e-02_jprb,6.3907e-02_jprb,6.0875e-02_jprb,6.1588e-02_jprb,6.4404e-02_jprb,&
&6.5574e-02_jprb,6.4038e-02_jprb,1.9009e-01_jprb/)
kao( :, 1,11,13) = (/&
&2.6170e-02_jprb,2.3547e-02_jprb,2.0835e-02_jprb,1.8825e-02_jprb,1.6889e-02_jprb,1.5401e-02_jprb,&
&1.4727e-02_jprb,1.3614e-02_jprb,5.0818e-01_jprb/)
kao( :, 2,11,13) = (/&
&3.7087e-02_jprb,3.3315e-02_jprb,2.9858e-02_jprb,2.7151e-02_jprb,2.4450e-02_jprb,2.2833e-02_jprb,&
&2.2404e-02_jprb,2.1001e-02_jprb,5.0103e-01_jprb/)
kao( :, 3,11,13) = (/&
&4.9963e-02_jprb,4.4837e-02_jprb,4.0625e-02_jprb,3.7044e-02_jprb,3.4135e-02_jprb,3.3574e-02_jprb,&
&3.3602e-02_jprb,3.2090e-02_jprb,4.9194e-01_jprb/)
kao( :, 4,11,13) = (/&
&6.4516e-02_jprb,5.7977e-02_jprb,5.3206e-02_jprb,4.8937e-02_jprb,4.7272e-02_jprb,4.8448e-02_jprb,&
&4.9192e-02_jprb,4.7870e-02_jprb,4.8323e-01_jprb/)
kao( :, 5,11,13) = (/&
&8.0357e-02_jprb,7.2810e-02_jprb,6.7423e-02_jprb,6.3846e-02_jprb,6.4063e-02_jprb,6.6805e-02_jprb,&
&6.8458e-02_jprb,6.7693e-02_jprb,4.8224e-01_jprb/)
kao( :, 1,12,13) = (/&
&2.6382e-02_jprb,2.3869e-02_jprb,2.1423e-02_jprb,1.9530e-02_jprb,1.7276e-02_jprb,1.5597e-02_jprb,&
&1.4852e-02_jprb,1.3926e-02_jprb,8.8613e-01_jprb/)
kao( :, 2,12,13) = (/&
&3.7554e-02_jprb,3.3911e-02_jprb,3.0989e-02_jprb,2.8114e-02_jprb,2.5051e-02_jprb,2.3359e-02_jprb,&
&2.2994e-02_jprb,2.2005e-02_jprb,8.7122e-01_jprb/)
kao( :, 3,12,13) = (/&
&5.0689e-02_jprb,4.5835e-02_jprb,4.2372e-02_jprb,3.8639e-02_jprb,3.5524e-02_jprb,3.4470e-02_jprb,&
&3.4752e-02_jprb,3.3789e-02_jprb,8.5297e-01_jprb/)
kao( :, 4,12,13) = (/&
&6.5611e-02_jprb,5.9692e-02_jprb,5.5677e-02_jprb,5.1555e-02_jprb,4.9587e-02_jprb,4.9441e-02_jprb,&
&5.0436e-02_jprb,4.9926e-02_jprb,8.3445e-01_jprb/)
kao( :, 5,12,13) = (/&
&8.2012e-02_jprb,7.5239e-02_jprb,7.1004e-02_jprb,6.7701e-02_jprb,6.6707e-02_jprb,6.7915e-02_jprb,&
&6.9915e-02_jprb,7.0294e-02_jprb,8.1920e-01_jprb/)
kao( :, 1,13,13) = (/&
&2.6411e-02_jprb,2.4001e-02_jprb,2.2003e-02_jprb,2.0098e-02_jprb,1.7783e-02_jprb,1.5910e-02_jprb,&
&1.4921e-02_jprb,1.4266e-02_jprb,1.2499e+00_jprb/)
kao( :, 2,13,13) = (/&
&3.7728e-02_jprb,3.4235e-02_jprb,3.1890e-02_jprb,2.9069e-02_jprb,2.6051e-02_jprb,2.4137e-02_jprb,&
&2.3431e-02_jprb,2.2763e-02_jprb,1.2233e+00_jprb/)
kao( :, 3,13,13) = (/&
&5.1168e-02_jprb,4.6582e-02_jprb,4.3725e-02_jprb,4.0296e-02_jprb,3.7356e-02_jprb,3.5542e-02_jprb,&
&3.5231e-02_jprb,3.4850e-02_jprb,1.1970e+00_jprb/)
kao( :, 4,13,13) = (/&
&6.6532e-02_jprb,6.1023e-02_jprb,5.7678e-02_jprb,5.4658e-02_jprb,5.1906e-02_jprb,5.0202e-02_jprb,&
&5.0477e-02_jprb,5.0911e-02_jprb,1.1702e+00_jprb/)
kao( :, 5,13,13) = (/&
&8.3713e-02_jprb,7.7246e-02_jprb,7.4186e-02_jprb,7.1956e-02_jprb,6.9311e-02_jprb,6.8138e-02_jprb,&
&6.9472e-02_jprb,7.1080e-02_jprb,1.1427e+00_jprb/)
kao( :, 1, 1,14) = (/&
&8.4406e-02_jprb,7.3923e-02_jprb,6.3390e-02_jprb,5.3666e-02_jprb,5.2956e-02_jprb,5.5472e-02_jprb,&
&6.0634e-02_jprb,5.8813e-02_jprb,9.2877e-02_jprb/)
kao( :, 2, 1,14) = (/&
&9.8373e-02_jprb,8.6109e-02_jprb,7.3836e-02_jprb,6.7549e-02_jprb,6.9431e-02_jprb,7.7739e-02_jprb,&
&8.6438e-02_jprb,8.5388e-02_jprb,1.3005e-01_jprb/)
kao( :, 3, 1,14) = (/&
&1.1220e-01_jprb,9.8227e-02_jprb,8.4237e-02_jprb,8.6127e-02_jprb,9.3558e-02_jprb,1.1007e-01_jprb,&
&1.2298e-01_jprb,1.2120e-01_jprb,1.8519e-01_jprb/)
kao( :, 4, 1,14) = (/&
&1.2589e-01_jprb,1.1021e-01_jprb,9.7341e-02_jprb,1.0805e-01_jprb,1.2702e-01_jprb,1.5181e-01_jprb,&
&1.6898e-01_jprb,1.6664e-01_jprb,2.5570e-01_jprb/)
kao( :, 5, 1,14) = (/&
&1.3898e-01_jprb,1.2167e-01_jprb,1.1790e-01_jprb,1.3538e-01_jprb,1.6936e-01_jprb,2.0147e-01_jprb,&
&2.2468e-01_jprb,2.1901e-01_jprb,3.4200e-01_jprb/)
kao( :, 1, 2,14) = (/&
&8.6965e-02_jprb,7.6122e-02_jprb,6.5271e-02_jprb,5.5929e-02_jprb,5.5266e-02_jprb,5.6412e-02_jprb,&
&6.1162e-02_jprb,5.9084e-02_jprb,9.4145e-02_jprb/)
kao( :, 2, 2,14) = (/&
&1.0214e-01_jprb,8.9404e-02_jprb,7.6670e-02_jprb,7.1026e-02_jprb,7.1152e-02_jprb,7.6438e-02_jprb,&
&8.4319e-02_jprb,8.3198e-02_jprb,1.2897e-01_jprb/)
kao( :, 3, 2,14) = (/&
&1.1758e-01_jprb,1.0294e-01_jprb,8.8300e-02_jprb,9.0301e-02_jprb,9.3552e-02_jprb,1.0592e-01_jprb,&
&1.1887e-01_jprb,1.2017e-01_jprb,1.7974e-01_jprb/)
kao( :, 4, 2,14) = (/&
&1.3321e-01_jprb,1.1665e-01_jprb,1.0423e-01_jprb,1.1370e-01_jprb,1.2505e-01_jprb,1.4860e-01_jprb,&
&1.6715e-01_jprb,1.6784e-01_jprb,2.5046e-01_jprb/)
kao( :, 5, 2,14) = (/&
&1.4865e-01_jprb,1.3020e-01_jprb,1.2666e-01_jprb,1.3953e-01_jprb,1.6682e-01_jprb,2.0058e-01_jprb,&
&2.2553e-01_jprb,2.2565e-01_jprb,3.3899e-01_jprb/)
kao( :, 1, 3,14) = (/&
&8.6079e-02_jprb,7.5340e-02_jprb,6.4607e-02_jprb,5.5456e-02_jprb,5.5272e-02_jprb,5.5233e-02_jprb,&
&5.8267e-02_jprb,5.6783e-02_jprb,8.9464e-02_jprb/)
kao( :, 2, 3,14) = (/&
&1.0304e-01_jprb,9.0205e-02_jprb,7.7348e-02_jprb,7.0519e-02_jprb,7.0862e-02_jprb,7.2390e-02_jprb,&
&7.8791e-02_jprb,7.7229e-02_jprb,1.2132e-01_jprb/)
kao( :, 3, 3,14) = (/&
&1.2050e-01_jprb,1.0550e-01_jprb,9.0628e-02_jprb,8.9686e-02_jprb,9.0578e-02_jprb,9.7251e-02_jprb,&
&1.0832e-01_jprb,1.0857e-01_jprb,1.6570e-01_jprb/)
kao( :, 4, 3,14) = (/&
&1.3798e-01_jprb,1.2081e-01_jprb,1.0757e-01_jprb,1.1366e-01_jprb,1.1771e-01_jprb,1.3404e-01_jprb,&
&1.5114e-01_jprb,1.5446e-01_jprb,2.2779e-01_jprb/)
kao( :, 5, 3,14) = (/&
&1.5527e-01_jprb,1.3594e-01_jprb,1.3049e-01_jprb,1.4065e-01_jprb,1.5498e-01_jprb,1.8347e-01_jprb,&
&2.0928e-01_jprb,2.1357e-01_jprb,3.1056e-01_jprb/)
kao( :, 1, 4,14) = (/&
&8.3658e-02_jprb,7.3219e-02_jprb,6.2782e-02_jprb,5.4421e-02_jprb,5.4252e-02_jprb,5.2373e-02_jprb,&
&5.2872e-02_jprb,5.3249e-02_jprb,8.1760e-02_jprb/)
kao( :, 2, 4,14) = (/&
&1.0179e-01_jprb,8.9084e-02_jprb,7.6372e-02_jprb,6.9322e-02_jprb,6.9646e-02_jprb,6.9291e-02_jprb,&
&7.2799e-02_jprb,7.2370e-02_jprb,1.1302e-01_jprb/)
kao( :, 3, 4,14) = (/&
&1.2055e-01_jprb,1.0553e-01_jprb,9.0925e-02_jprb,8.8158e-02_jprb,8.8997e-02_jprb,9.0835e-02_jprb,&
&9.8776e-02_jprb,9.8752e-02_jprb,1.5269e-01_jprb/)
kao( :, 4, 4,14) = (/&
&1.3976e-01_jprb,1.2239e-01_jprb,1.0872e-01_jprb,1.1120e-01_jprb,1.1304e-01_jprb,1.2136e-01_jprb,&
&1.3545e-01_jprb,1.3720e-01_jprb,2.0650e-01_jprb/)
kao( :, 5, 4,14) = (/&
&1.5964e-01_jprb,1.3984e-01_jprb,1.3154e-01_jprb,1.3870e-01_jprb,1.4428e-01_jprb,1.6405e-01_jprb,&
&1.8578e-01_jprb,1.9371e-01_jprb,2.7910e-01_jprb/)
kao( :, 1, 5,14) = (/&
&7.9613e-02_jprb,6.9667e-02_jprb,5.9735e-02_jprb,5.2890e-02_jprb,5.1672e-02_jprb,4.9631e-02_jprb,&
&4.7983e-02_jprb,4.7891e-02_jprb,7.3721e-02_jprb/)
kao( :, 2, 5,14) = (/&
&9.8444e-02_jprb,8.6165e-02_jprb,7.3879e-02_jprb,6.8004e-02_jprb,6.7906e-02_jprb,6.5760e-02_jprb,&
&6.6820e-02_jprb,6.7095e-02_jprb,1.0263e-01_jprb/)
kao( :, 3, 5,14) = (/&
&1.1874e-01_jprb,1.0393e-01_jprb,8.9653e-02_jprb,8.6769e-02_jprb,8.7048e-02_jprb,8.6781e-02_jprb,&
&9.1705e-02_jprb,9.1503e-02_jprb,1.4159e-01_jprb/)
kao( :, 4, 5,14) = (/&
&1.4009e-01_jprb,1.2266e-01_jprb,1.0834e-01_jprb,1.0954e-01_jprb,1.1083e-01_jprb,1.1372e-01_jprb,&
&1.2361e-01_jprb,1.2496e-01_jprb,1.9192e-01_jprb/)
kao( :, 5, 5,14) = (/&
&1.6191e-01_jprb,1.4179e-01_jprb,1.3132e-01_jprb,1.3664e-01_jprb,1.3962e-01_jprb,1.5009e-01_jprb,&
&1.6802e-01_jprb,1.7246e-01_jprb,2.5602e-01_jprb/)
kao( :, 1, 6,14) = (/&
&7.3321e-02_jprb,6.4173e-02_jprb,5.5115e-02_jprb,5.0047e-02_jprb,4.8003e-02_jprb,4.5729e-02_jprb,&
&4.3413e-02_jprb,4.2157e-02_jprb,6.5110e-02_jprb/)
kao( :, 2, 6,14) = (/&
&9.2952e-02_jprb,8.1355e-02_jprb,6.9976e-02_jprb,6.5257e-02_jprb,6.4561e-02_jprb,6.2014e-02_jprb,&
&6.0594e-02_jprb,6.0655e-02_jprb,9.1731e-02_jprb/)
kao( :, 3, 6,14) = (/&
&1.1439e-01_jprb,1.0014e-01_jprb,8.6575e-02_jprb,8.3912e-02_jprb,8.3786e-02_jprb,8.2279e-02_jprb,&
&8.3550e-02_jprb,8.4201e-02_jprb,1.2740e-01_jprb/)
kao( :, 4, 6,14) = (/&
&1.3703e-01_jprb,1.1997e-01_jprb,1.0601e-01_jprb,1.0652e-01_jprb,1.0715e-01_jprb,1.0792e-01_jprb,&
&1.1407e-01_jprb,1.1447e-01_jprb,1.7570e-01_jprb/)
kao( :, 5, 6,14) = (/&
&1.6047e-01_jprb,1.4048e-01_jprb,1.2948e-01_jprb,1.3382e-01_jprb,1.3571e-01_jprb,1.4072e-01_jprb,&
&1.5346e-01_jprb,1.5557e-01_jprb,2.3674e-01_jprb/)
kao( :, 1, 7,14) = (/&
&6.6096e-02_jprb,5.7840e-02_jprb,5.0291e-02_jprb,4.6255e-02_jprb,4.3749e-02_jprb,4.1346e-02_jprb,&
&3.9237e-02_jprb,3.7187e-02_jprb,5.6581e-02_jprb/)
kao( :, 2, 7,14) = (/&
&8.5997e-02_jprb,7.5272e-02_jprb,6.5564e-02_jprb,6.1464e-02_jprb,6.0084e-02_jprb,5.7566e-02_jprb,&
&5.5305e-02_jprb,5.4415e-02_jprb,8.1052e-02_jprb/)
kao( :, 3, 7,14) = (/&
&1.0792e-01_jprb,9.4463e-02_jprb,8.2746e-02_jprb,8.0231e-02_jprb,7.9656e-02_jprb,7.7519e-02_jprb,&
&7.6243e-02_jprb,7.6636e-02_jprb,1.1376e-01_jprb/)
kao( :, 4, 7,14) = (/&
&1.3147e-01_jprb,1.1508e-01_jprb,1.0289e-01_jprb,1.0281e-01_jprb,1.0321e-01_jprb,1.0267e-01_jprb,&
&1.0428e-01_jprb,1.0618e-01_jprb,1.5831e-01_jprb/)
kao( :, 5, 7,14) = (/&
&1.5658e-01_jprb,1.3709e-01_jprb,1.2648e-01_jprb,1.2964e-01_jprb,1.3186e-01_jprb,1.3458e-01_jprb,&
&1.4246e-01_jprb,1.4352e-01_jprb,2.1656e-01_jprb/)
kao( :, 1, 8,14) = (/&
&5.8400e-02_jprb,5.1103e-02_jprb,4.5168e-02_jprb,4.1948e-02_jprb,3.9253e-02_jprb,3.7020e-02_jprb,&
&3.5370e-02_jprb,3.2290e-02_jprb,4.8663e-02_jprb/)
kao( :, 2, 8,14) = (/&
&7.8005e-02_jprb,6.8268e-02_jprb,6.0453e-02_jprb,5.7096e-02_jprb,5.4905e-02_jprb,5.3117e-02_jprb,&
&5.0732e-02_jprb,4.8891e-02_jprb,7.1101e-02_jprb/)
kao( :, 3, 8,14) = (/&
&9.9991e-02_jprb,8.7516e-02_jprb,7.8019e-02_jprb,7.5868e-02_jprb,7.4621e-02_jprb,7.2463e-02_jprb,&
&7.0304e-02_jprb,6.9569e-02_jprb,1.0104e-01_jprb/)
kao( :, 4, 8,14) = (/&
&1.2410e-01_jprb,1.0864e-01_jprb,9.8489e-02_jprb,9.8564e-02_jprb,9.8094e-02_jprb,9.6833e-02_jprb,&
&9.6022e-02_jprb,9.6830e-02_jprb,1.4193e-01_jprb/)
kao( :, 5, 8,14) = (/&
&1.4968e-01_jprb,1.3103e-01_jprb,1.2227e-01_jprb,1.2491e-01_jprb,1.2710e-01_jprb,1.2811e-01_jprb,&
&1.3093e-01_jprb,1.3351e-01_jprb,1.9610e-01_jprb/)
kao( :, 1, 9,14) = (/&
&5.0397e-02_jprb,4.4093e-02_jprb,3.9683e-02_jprb,3.6946e-02_jprb,3.4574e-02_jprb,3.2784e-02_jprb,&
&3.1190e-02_jprb,2.7785e-02_jprb,4.2938e-02_jprb/)
kao( :, 2, 9,14) = (/&
&6.9192e-02_jprb,6.0558e-02_jprb,5.4594e-02_jprb,5.1616e-02_jprb,4.9513e-02_jprb,4.8432e-02_jprb,&
&4.6308e-02_jprb,4.3232e-02_jprb,6.1150e-02_jprb/)
kao( :, 3, 9,14) = (/&
&9.0684e-02_jprb,7.9364e-02_jprb,7.1928e-02_jprb,7.0062e-02_jprb,6.8840e-02_jprb,6.7293e-02_jprb,&
&6.5005e-02_jprb,6.2608e-02_jprb,8.8443e-02_jprb/)
kao( :, 4, 9,14) = (/&
&1.1460e-01_jprb,1.0028e-01_jprb,9.2569e-02_jprb,9.2695e-02_jprb,9.1960e-02_jprb,9.0808e-02_jprb,&
&8.8903e-02_jprb,8.7875e-02_jprb,1.2618e-01_jprb/)
kao( :, 5, 9,14) = (/&
&1.4029e-01_jprb,1.2278e-01_jprb,1.1658e-01_jprb,1.1927e-01_jprb,1.2033e-01_jprb,1.2086e-01_jprb,&
&1.2101e-01_jprb,1.2214e-01_jprb,1.7683e-01_jprb/)
kao( :, 1,10,14) = (/&
&4.3717e-02_jprb,3.8278e-02_jprb,3.5080e-02_jprb,3.2701e-02_jprb,3.0716e-02_jprb,2.9342e-02_jprb,&
&2.7684e-02_jprb,2.4470e-02_jprb,2.2009e-01_jprb/)
kao( :, 2,10,14) = (/&
&6.1476e-02_jprb,5.3866e-02_jprb,4.9319e-02_jprb,4.6960e-02_jprb,4.5259e-02_jprb,4.4478e-02_jprb,&
&4.2577e-02_jprb,3.9251e-02_jprb,2.1963e-01_jprb/)
kao( :, 3,10,14) = (/&
&8.2385e-02_jprb,7.2234e-02_jprb,6.6445e-02_jprb,6.4962e-02_jprb,6.4371e-02_jprb,6.3180e-02_jprb,&
&6.0931e-02_jprb,5.7438e-02_jprb,2.2242e-01_jprb/)
kao( :, 4,10,14) = (/&
&1.0599e-01_jprb,9.3000e-02_jprb,8.7065e-02_jprb,8.7339e-02_jprb,8.7286e-02_jprb,8.6396e-02_jprb,&
&8.4334e-02_jprb,8.1297e-02_jprb,2.2730e-01_jprb/)
kao( :, 5,10,14) = (/&
&1.3194e-01_jprb,1.1580e-01_jprb,1.1124e-01_jprb,1.1411e-01_jprb,1.1533e-01_jprb,1.1612e-01_jprb,&
&1.1515e-01_jprb,1.1414e-01_jprb,2.3906e-01_jprb/)
kao( :, 1,11,14) = (/&
&4.4414e-02_jprb,3.9124e-02_jprb,3.6276e-02_jprb,3.4192e-02_jprb,3.2709e-02_jprb,3.1757e-02_jprb,&
&3.0272e-02_jprb,2.7274e-02_jprb,6.0923e-01_jprb/)
kao( :, 2,11,14) = (/&
&6.2792e-02_jprb,5.5349e-02_jprb,5.1175e-02_jprb,4.9442e-02_jprb,4.8780e-02_jprb,4.8068e-02_jprb,&
&4.6106e-02_jprb,4.2789e-02_jprb,6.0862e-01_jprb/)
kao( :, 3,11,14) = (/&
&8.4498e-02_jprb,7.4522e-02_jprb,6.9553e-02_jprb,6.8963e-02_jprb,6.9106e-02_jprb,6.8253e-02_jprb,&
&6.6044e-02_jprb,6.2338e-02_jprb,6.0545e-01_jprb/)
kao( :, 4,11,14) = (/&
&1.0929e-01_jprb,9.6406e-02_jprb,9.1543e-02_jprb,9.3189e-02_jprb,9.3647e-02_jprb,9.3574e-02_jprb,&
&9.1735e-02_jprb,8.8253e-02_jprb,5.9922e-01_jprb/)
kao( :, 5,11,14) = (/&
&1.3686e-01_jprb,1.2067e-01_jprb,1.1766e-01_jprb,1.2167e-01_jprb,1.2456e-01_jprb,1.2652e-01_jprb,&
&1.2561e-01_jprb,1.2397e-01_jprb,5.9856e-01_jprb/)
kao( :, 1,12,14) = (/&
&4.5286e-02_jprb,4.0194e-02_jprb,3.7498e-02_jprb,3.5426e-02_jprb,3.4720e-02_jprb,3.4064e-02_jprb,&
&3.2556e-02_jprb,2.9605e-02_jprb,1.0899e+00_jprb/)
kao( :, 2,12,14) = (/&
&6.4484e-02_jprb,5.7256e-02_jprb,5.3321e-02_jprb,5.1760e-02_jprb,5.1954e-02_jprb,5.1386e-02_jprb,&
&4.9166e-02_jprb,4.5588e-02_jprb,1.0909e+00_jprb/)
kao( :, 3,12,14) = (/&
&8.7239e-02_jprb,7.7409e-02_jprb,7.3021e-02_jprb,7.2641e-02_jprb,7.3363e-02_jprb,7.2923e-02_jprb,&
&7.0510e-02_jprb,6.6538e-02_jprb,1.0837e+00_jprb/)
kao( :, 4,12,14) = (/&
&1.1325e-01_jprb,1.0044e-01_jprb,9.6532e-02_jprb,9.7960e-02_jprb,9.9715e-02_jprb,1.0061e-01_jprb,&
&9.8953e-02_jprb,9.5070e-02_jprb,1.0714e+00_jprb/)
kao( :, 5,12,14) = (/&
&1.4215e-01_jprb,1.2620e-01_jprb,1.2476e-01_jprb,1.2858e-01_jprb,1.3345e-01_jprb,1.3645e-01_jprb,&
&1.3637e-01_jprb,1.3374e-01_jprb,1.0563e+00_jprb/)
kao( :, 1,13,14) = (/&
&4.6570e-02_jprb,4.1678e-02_jprb,3.8725e-02_jprb,3.6717e-02_jprb,3.6394e-02_jprb,3.5946e-02_jprb,&
&3.4376e-02_jprb,3.1454e-02_jprb,1.5895e+00_jprb/)
kao( :, 2,13,14) = (/&
&6.6498e-02_jprb,5.9462e-02_jprb,5.5660e-02_jprb,5.4101e-02_jprb,5.4467e-02_jprb,5.3788e-02_jprb,&
&5.1648e-02_jprb,4.8046e-02_jprb,1.5849e+00_jprb/)
kao( :, 3,13,14) = (/&
&9.0364e-02_jprb,8.0700e-02_jprb,7.6577e-02_jprb,7.6135e-02_jprb,7.6849e-02_jprb,7.6753e-02_jprb,&
&7.4630e-02_jprb,7.0420e-02_jprb,1.5698e+00_jprb/)
kao( :, 4,13,14) = (/&
&1.1790e-01_jprb,1.0519e-01_jprb,1.0195e-01_jprb,1.0248e-01_jprb,1.0532e-01_jprb,1.0714e-01_jprb,&
&1.0603e-01_jprb,1.0171e-01_jprb,1.5492e+00_jprb/)
kao( :, 5,13,14) = (/&
&1.4874e-01_jprb,1.3321e-01_jprb,1.3189e-01_jprb,1.3520e-01_jprb,1.4175e-01_jprb,1.4629e-01_jprb,&
&1.4735e-01_jprb,1.4395e-01_jprb,1.5228e+00_jprb/)
kao( :, 1, 1,15) = (/&
&1.1131e-01_jprb,9.7434e-02_jprb,8.3539e-02_jprb,6.9673e-02_jprb,6.4542e-02_jprb,7.4907e-02_jprb,&
&8.0610e-02_jprb,7.4592e-02_jprb,1.2983e-01_jprb/)
kao( :, 2, 1,15) = (/&
&1.2948e-01_jprb,1.1334e-01_jprb,9.7201e-02_jprb,8.1647e-02_jprb,9.0214e-02_jprb,1.0535e-01_jprb,&
&1.1308e-01_jprb,1.0399e-01_jprb,1.8473e-01_jprb/)
kao( :, 3, 1,15) = (/&
&1.4765e-01_jprb,1.2925e-01_jprb,1.1103e-01_jprb,1.0059e-01_jprb,1.2467e-01_jprb,1.4566e-01_jprb,&
&1.5615e-01_jprb,1.4358e-01_jprb,2.5548e-01_jprb/)
kao( :, 4, 1,15) = (/&
&1.6551e-01_jprb,1.4490e-01_jprb,1.2421e-01_jprb,1.3376e-01_jprb,1.6988e-01_jprb,1.9836e-01_jprb,&
&2.1296e-01_jprb,1.9754e-01_jprb,3.4830e-01_jprb/)
kao( :, 5, 1,15) = (/&
&1.8295e-01_jprb,1.6015e-01_jprb,1.4430e-01_jprb,1.8250e-01_jprb,2.3252e-01_jprb,2.7304e-01_jprb,&
&2.9658e-01_jprb,2.7983e-01_jprb,4.7759e-01_jprb/)
kao( :, 1, 2,15) = (/&
&1.2229e-01_jprb,1.0698e-01_jprb,9.1752e-02_jprb,7.6480e-02_jprb,6.8179e-02_jprb,7.6324e-02_jprb,&
&8.2595e-02_jprb,7.6957e-02_jprb,1.3490e-01_jprb/)
kao( :, 2, 2,15) = (/&
&1.4324e-01_jprb,1.2538e-01_jprb,1.0747e-01_jprb,9.0191e-02_jprb,9.3013e-02_jprb,1.0900e-01_jprb,&
&1.1749e-01_jprb,1.0918e-01_jprb,1.9459e-01_jprb/)
kao( :, 3, 2,15) = (/&
&1.6466e-01_jprb,1.4413e-01_jprb,1.2359e-01_jprb,1.1001e-01_jprb,1.3054e-01_jprb,1.5305e-01_jprb,&
&1.6497e-01_jprb,1.5263e-01_jprb,2.7373e-01_jprb/)
kao( :, 4, 2,15) = (/&
&1.8622e-01_jprb,1.6296e-01_jprb,1.3975e-01_jprb,1.4019e-01_jprb,1.7799e-01_jprb,2.0816e-01_jprb,&
&2.2421e-01_jprb,2.0784e-01_jprb,3.7366e-01_jprb/)
kao( :, 5, 2,15) = (/&
&2.0755e-01_jprb,1.8167e-01_jprb,1.5934e-01_jprb,1.9033e-01_jprb,2.4247e-01_jprb,2.8472e-01_jprb,&
&3.0675e-01_jprb,2.8798e-01_jprb,5.0930e-01_jprb/)
kao( :, 1, 3,15) = (/&
&1.2835e-01_jprb,1.1233e-01_jprb,9.6332e-02_jprb,8.0294e-02_jprb,6.8892e-02_jprb,7.2388e-02_jprb,&
&7.7841e-02_jprb,7.2996e-02_jprb,1.3009e-01_jprb/)
kao( :, 2, 3,15) = (/&
&1.5296e-01_jprb,1.3385e-01_jprb,1.1480e-01_jprb,9.5678e-02_jprb,9.1260e-02_jprb,1.0384e-01_jprb,&
&1.1265e-01_jprb,1.0600e-01_jprb,1.8774e-01_jprb/)
kao( :, 3, 3,15) = (/&
&1.7841e-01_jprb,1.5614e-01_jprb,1.3387e-01_jprb,1.1551e-01_jprb,1.2609e-01_jprb,1.4839e-01_jprb,&
&1.6074e-01_jprb,1.4978e-01_jprb,2.6916e-01_jprb/)
kao( :, 4, 3,15) = (/&
&2.0421e-01_jprb,1.7872e-01_jprb,1.5328e-01_jprb,1.4514e-01_jprb,1.7532e-01_jprb,2.0570e-01_jprb,&
&2.2217e-01_jprb,2.0725e-01_jprb,3.7502e-01_jprb/)
kao( :, 5, 3,15) = (/&
&2.2993e-01_jprb,2.0124e-01_jprb,1.7291e-01_jprb,1.8782e-01_jprb,2.3935e-01_jprb,2.8099e-01_jprb,&
&3.0349e-01_jprb,2.8229e-01_jprb,5.1274e-01_jprb/)
kao( :, 1, 4,15) = (/&
&1.3220e-01_jprb,1.1572e-01_jprb,9.9179e-02_jprb,8.2676e-02_jprb,6.8587e-02_jprb,6.9929e-02_jprb,&
&7.4555e-02_jprb,6.8313e-02_jprb,1.2618e-01_jprb/)
kao( :, 2, 4,15) = (/&
&1.6060e-01_jprb,1.4053e-01_jprb,1.2046e-01_jprb,1.0042e-01_jprb,9.1232e-02_jprb,9.6578e-02_jprb,&
&1.0443e-01_jprb,9.9068e-02_jprb,1.7466e-01_jprb/)
kao( :, 3, 4,15) = (/&
&1.9027e-01_jprb,1.6651e-01_jprb,1.4275e-01_jprb,1.1998e-01_jprb,1.2056e-01_jprb,1.3873e-01_jprb,&
&1.5129e-01_jprb,1.4272e-01_jprb,2.5148e-01_jprb/)
kao( :, 4, 4,15) = (/&
&2.2066e-01_jprb,1.9311e-01_jprb,1.6558e-01_jprb,1.4877e-01_jprb,1.6676e-01_jprb,1.9681e-01_jprb,&
&2.1452e-01_jprb,2.0223e-01_jprb,3.5884e-01_jprb/)
kao( :, 5, 4,15) = (/&
&2.5122e-01_jprb,2.1983e-01_jprb,1.8845e-01_jprb,1.8829e-01_jprb,2.3159e-01_jprb,2.7258e-01_jprb,&
&2.9545e-01_jprb,2.7646e-01_jprb,4.9974e-01_jprb/)
kao( :, 1, 5,15) = (/&
&1.3465e-01_jprb,1.1783e-01_jprb,1.0104e-01_jprb,8.4191e-02_jprb,7.0181e-02_jprb,6.7764e-02_jprb,&
&7.2349e-02_jprb,6.6738e-02_jprb,1.2182e-01_jprb/)
kao( :, 2, 5,15) = (/&
&1.6678e-01_jprb,1.4597e-01_jprb,1.2512e-01_jprb,1.0428e-01_jprb,9.0356e-02_jprb,9.3548e-02_jprb,&
&1.0047e-01_jprb,9.3395e-02_jprb,1.6838e-01_jprb/)
kao( :, 3, 5,15) = (/&
&2.0080e-01_jprb,1.7573e-01_jprb,1.5067e-01_jprb,1.2564e-01_jprb,1.1939e-01_jprb,1.2897e-01_jprb,&
&1.4021e-01_jprb,1.3389e-01_jprb,2.3367e-01_jprb/)
kao( :, 4, 5,15) = (/&
&2.3601e-01_jprb,2.0651e-01_jprb,1.7705e-01_jprb,1.5299e-01_jprb,1.5971e-01_jprb,1.8409e-01_jprb,&
&2.0223e-01_jprb,1.9297e-01_jprb,3.3364e-01_jprb/)
kao( :, 5, 5,15) = (/&
&2.7164e-01_jprb,2.3767e-01_jprb,2.0377e-01_jprb,1.9351e-01_jprb,2.2099e-01_jprb,2.6145e-01_jprb,&
&2.8569e-01_jprb,2.7068e-01_jprb,4.7598e-01_jprb/)
kao( :, 1, 6,15) = (/&
&1.3406e-01_jprb,1.1731e-01_jprb,1.0056e-01_jprb,8.3806e-02_jprb,7.0762e-02_jprb,6.6238e-02_jprb,&
&6.8971e-02_jprb,6.4722e-02_jprb,1.1369e-01_jprb/)
kao( :, 2, 6,15) = (/&
&1.6963e-01_jprb,1.4845e-01_jprb,1.2729e-01_jprb,1.0606e-01_jprb,9.0231e-02_jprb,9.0723e-02_jprb,&
&9.7199e-02_jprb,9.0437e-02_jprb,1.6138e-01_jprb/)
kao( :, 3, 6,15) = (/&
&2.0786e-01_jprb,1.8191e-01_jprb,1.5592e-01_jprb,1.2995e-01_jprb,1.1861e-01_jprb,1.2279e-01_jprb,&
&1.3287e-01_jprb,1.2524e-01_jprb,2.2069e-01_jprb/)
kao( :, 4, 6,15) = (/&
&2.4779e-01_jprb,2.1681e-01_jprb,1.8585e-01_jprb,1.5823e-01_jprb,1.5558e-01_jprb,1.7012e-01_jprb,&
&1.8594e-01_jprb,1.7956e-01_jprb,3.0607e-01_jprb/)
kao( :, 5, 6,15) = (/&
&2.8850e-01_jprb,2.5250e-01_jprb,2.1644e-01_jprb,1.9593e-01_jprb,2.0861e-01_jprb,2.4203e-01_jprb,&
&2.6660e-01_jprb,2.5670e-01_jprb,4.3563e-01_jprb/)
kao( :, 1, 7,15) = (/&
&1.3101e-01_jprb,1.1464e-01_jprb,9.8272e-02_jprb,8.1907e-02_jprb,7.0350e-02_jprb,6.5243e-02_jprb,&
&6.4994e-02_jprb,6.2397e-02_jprb,1.0427e-01_jprb/)
kao( :, 2, 7,15) = (/&
&1.6960e-01_jprb,1.4841e-01_jprb,1.2720e-01_jprb,1.0602e-01_jprb,9.1007e-02_jprb,8.8046e-02_jprb,&
&9.1985e-02_jprb,8.6734e-02_jprb,1.5008e-01_jprb/)
kao( :, 3, 7,15) = (/&
&2.1159e-01_jprb,1.8512e-01_jprb,1.5869e-01_jprb,1.3227e-01_jprb,1.1799e-01_jprb,1.2016e-01_jprb,&
&1.2848e-01_jprb,1.2123e-01_jprb,2.0928e-01_jprb/)
kao( :, 4, 7,15) = (/&
&2.5591e-01_jprb,2.2393e-01_jprb,1.9196e-01_jprb,1.6246e-01_jprb,1.5474e-01_jprb,1.6150e-01_jprb,&
&1.7579e-01_jprb,1.6710e-01_jprb,2.8812e-01_jprb/)
kao( :, 5, 7,15) = (/&
&3.0213e-01_jprb,2.6429e-01_jprb,2.2656e-01_jprb,2.0075e-01_jprb,2.0206e-01_jprb,2.2299e-01_jprb,&
&2.4482e-01_jprb,2.3852e-01_jprb,4.0014e-01_jprb/)
kao( :, 1, 8,15) = (/&
&1.2571e-01_jprb,1.1002e-01_jprb,9.4301e-02_jprb,7.8660e-02_jprb,6.9028e-02_jprb,6.3512e-02_jprb,&
&6.0386e-02_jprb,5.9283e-02_jprb,9.4594e-02_jprb/)
kao( :, 2, 8,15) = (/&
&1.6658e-01_jprb,1.4578e-01_jprb,1.2499e-01_jprb,1.0438e-01_jprb,9.1618e-02_jprb,8.5835e-02_jprb,&
&8.6312e-02_jprb,8.2954e-02_jprb,1.3781e-01_jprb/)
kao( :, 3, 8,15) = (/&
&2.1185e-01_jprb,1.8540e-01_jprb,1.5894e-01_jprb,1.3292e-01_jprb,1.1859e-01_jprb,1.1793e-01_jprb,&
&1.2293e-01_jprb,1.1767e-01_jprb,1.9732e-01_jprb/)
kao( :, 4, 8,15) = (/&
&2.6124e-01_jprb,2.2860e-01_jprb,1.9595e-01_jprb,1.6484e-01_jprb,1.5535e-01_jprb,1.5770e-01_jprb,&
&1.6881e-01_jprb,1.6159e-01_jprb,2.7186e-01_jprb/)
kao( :, 5, 8,15) = (/&
&3.1377e-01_jprb,2.7455e-01_jprb,2.3536e-01_jprb,2.0526e-01_jprb,2.0139e-01_jprb,2.1210e-01_jprb,&
&2.3209e-01_jprb,2.2418e-01_jprb,3.7448e-01_jprb/)
kao( :, 1, 9,15) = (/&
&1.1779e-01_jprb,1.0307e-01_jprb,8.8332e-02_jprb,7.4504e-02_jprb,6.6446e-02_jprb,6.0468e-02_jprb,&
&5.6136e-02_jprb,5.4947e-02_jprb,8.6169e-02_jprb/)
kao( :, 2, 9,15) = (/&
&1.6035e-01_jprb,1.4031e-01_jprb,1.2024e-01_jprb,1.0163e-01_jprb,9.0617e-02_jprb,8.2714e-02_jprb,&
&7.9922e-02_jprb,7.8110e-02_jprb,1.2654e-01_jprb/)
kao( :, 3, 9,15) = (/&
&2.0927e-01_jprb,1.8312e-01_jprb,1.5698e-01_jprb,1.3222e-01_jprb,1.1873e-01_jprb,1.1424e-01_jprb,&
&1.1454e-01_jprb,1.1174e-01_jprb,1.8302e-01_jprb/)
kao( :, 4, 9,15) = (/&
&2.6349e-01_jprb,2.3054e-01_jprb,1.9763e-01_jprb,1.6626e-01_jprb,1.5598e-01_jprb,1.5598e-01_jprb,&
&1.6166e-01_jprb,1.5736e-01_jprb,2.5852e-01_jprb/)
kao( :, 5, 9,15) = (/&
&3.2165e-01_jprb,2.8148e-01_jprb,2.4130e-01_jprb,2.0798e-01_jprb,2.0349e-01_jprb,2.0671e-01_jprb,&
&2.2142e-01_jprb,2.1528e-01_jprb,3.5292e-01_jprb/)
kao( :, 1,10,15) = (/&
&1.1095e-01_jprb,9.7087e-02_jprb,8.3232e-02_jprb,7.1375e-02_jprb,6.4431e-02_jprb,5.8222e-02_jprb,&
&5.3438e-02_jprb,5.1856e-02_jprb,2.8234e-01_jprb/)
kao( :, 2,10,15) = (/&
&1.5568e-01_jprb,1.3623e-01_jprb,1.1675e-01_jprb,9.9778e-02_jprb,9.0053e-02_jprb,8.1186e-02_jprb,&
&7.6199e-02_jprb,7.4185e-02_jprb,2.7084e-01_jprb/)
kao( :, 3,10,15) = (/&
&2.0787e-01_jprb,1.8189e-01_jprb,1.5590e-01_jprb,1.3290e-01_jprb,1.2001e-01_jprb,1.1270e-01_jprb,&
&1.0975e-01_jprb,1.0759e-01_jprb,2.7158e-01_jprb/)
kao( :, 4,10,15) = (/&
&2.6636e-01_jprb,2.3306e-01_jprb,1.9979e-01_jprb,1.7021e-01_jprb,1.5900e-01_jprb,1.5510e-01_jprb,&
&1.5611e-01_jprb,1.5403e-01_jprb,2.9598e-01_jprb/)
kao( :, 5,10,15) = (/&
&3.2972e-01_jprb,2.8850e-01_jprb,2.4729e-01_jprb,2.1458e-01_jprb,2.0828e-01_jprb,2.0718e-01_jprb,&
&2.1605e-01_jprb,2.1269e-01_jprb,3.5425e-01_jprb/)
kao( :, 1,11,15) = (/&
&1.2309e-01_jprb,1.0770e-01_jprb,9.2318e-02_jprb,8.0169e-02_jprb,7.2987e-02_jprb,6.5556e-02_jprb,&
&5.9599e-02_jprb,5.7207e-02_jprb,7.8086e-01_jprb/)
kao( :, 2,11,15) = (/&
&1.7300e-01_jprb,1.5138e-01_jprb,1.2976e-01_jprb,1.1252e-01_jprb,1.0172e-01_jprb,9.2390e-02_jprb,&
&8.6481e-02_jprb,8.3441e-02_jprb,7.5756e-01_jprb/)
kao( :, 3,11,15) = (/&
&2.3096e-01_jprb,2.0210e-01_jprb,1.7324e-01_jprb,1.5024e-01_jprb,1.3705e-01_jprb,1.2915e-01_jprb,&
&1.2474e-01_jprb,1.2191e-01_jprb,7.4457e-01_jprb/)
kao( :, 4,11,15) = (/&
&2.9558e-01_jprb,2.5867e-01_jprb,2.2168e-01_jprb,1.9321e-01_jprb,1.8253e-01_jprb,1.7759e-01_jprb,&
&1.7734e-01_jprb,1.7484e-01_jprb,7.3821e-01_jprb/)
kao( :, 5,11,15) = (/&
&3.6617e-01_jprb,3.2039e-01_jprb,2.7464e-01_jprb,2.4544e-01_jprb,2.3942e-01_jprb,2.3664e-01_jprb,&
&2.4480e-01_jprb,2.4186e-01_jprb,7.3136e-01_jprb/)
kao( :, 1,12,15) = (/&
&1.3535e-01_jprb,1.1843e-01_jprb,1.0165e-01_jprb,8.9837e-02_jprb,8.1690e-02_jprb,7.3571e-02_jprb,&
&6.6791e-02_jprb,6.3661e-02_jprb,1.3757e+00_jprb/)
kao( :, 2,12,15) = (/&
&1.8999e-01_jprb,1.6623e-01_jprb,1.4287e-01_jprb,1.2620e-01_jprb,1.1425e-01_jprb,1.0484e-01_jprb,&
&9.8183e-02_jprb,9.4523e-02_jprb,1.3459e+00_jprb/)
kao( :, 3,12,15) = (/&
&2.5368e-01_jprb,2.2195e-01_jprb,1.9057e-01_jprb,1.6840e-01_jprb,1.5584e-01_jprb,1.4733e-01_jprb,&
&1.4186e-01_jprb,1.3807e-01_jprb,1.3315e+00_jprb/)
kao( :, 4,12,15) = (/&
&3.2577e-01_jprb,2.8506e-01_jprb,2.4459e-01_jprb,2.1851e-01_jprb,2.0824e-01_jprb,2.0259e-01_jprb,&
&2.0145e-01_jprb,1.9850e-01_jprb,1.3194e+00_jprb/)
kao( :, 5,12,15) = (/&
&4.0459e-01_jprb,3.5405e-01_jprb,3.0385e-01_jprb,2.7860e-01_jprb,2.7319e-01_jprb,2.7033e-01_jprb,&
&2.7684e-01_jprb,2.7490e-01_jprb,1.2999e+00_jprb/)
kao( :, 1,13,15) = (/&
&1.4666e-01_jprb,1.2832e-01_jprb,1.1128e-01_jprb,9.9675e-02_jprb,9.0808e-02_jprb,8.2287e-02_jprb,&
&7.4732e-02_jprb,7.0894e-02_jprb,1.9726e+00_jprb/)
kao( :, 2,13,15) = (/&
&2.0655e-01_jprb,1.8072e-01_jprb,1.5634e-01_jprb,1.3981e-01_jprb,1.2800e-01_jprb,1.1883e-01_jprb,&
&1.1080e-01_jprb,1.0633e-01_jprb,1.9427e+00_jprb/)
kao( :, 3,13,15) = (/&
&2.7678e-01_jprb,2.4218e-01_jprb,2.0938e-01_jprb,1.8714e-01_jprb,1.7583e-01_jprb,1.6736e-01_jprb,&
&1.6095e-01_jprb,1.5626e-01_jprb,1.9257e+00_jprb/)
kao( :, 4,13,15) = (/&
&3.5575e-01_jprb,3.1133e-01_jprb,2.6913e-01_jprb,2.4484e-01_jprb,2.3543e-01_jprb,2.2998e-01_jprb,&
&2.2795e-01_jprb,2.2454e-01_jprb,1.9087e+00_jprb/)
kao( :, 5,13,15) = (/&
&4.4176e-01_jprb,3.8657e-01_jprb,3.3600e-01_jprb,3.1312e-01_jprb,3.0900e-01_jprb,3.0654e-01_jprb,&
&3.1167e-01_jprb,3.1059e-01_jprb,1.8847e+00_jprb/)
kao( :, 1, 1,16) = (/&
&1.2027e-01_jprb,1.0526e-01_jprb,9.0268e-02_jprb,7.5271e-02_jprb,6.8242e-02_jprb,7.9946e-02_jprb,&
&8.4979e-02_jprb,7.6217e-02_jprb,1.4103e-01_jprb/)
kao( :, 2, 1,16) = (/&
&1.4080e-01_jprb,1.2324e-01_jprb,1.0567e-01_jprb,8.8126e-02_jprb,9.6089e-02_jprb,1.1140e-01_jprb,&
&1.1849e-01_jprb,1.0627e-01_jprb,1.9684e-01_jprb/)
kao( :, 3, 1,16) = (/&
&1.6158e-01_jprb,1.4144e-01_jprb,1.1993e-01_jprb,1.0577e-01_jprb,1.3446e-01_jprb,1.5713e-01_jprb,&
&1.6954e-01_jprb,1.5459e-01_jprb,2.8205e-01_jprb/)
kao( :, 4, 1,16) = (/&
&1.8229e-01_jprb,1.5953e-01_jprb,1.3683e-01_jprb,1.5400e-01_jprb,1.9491e-01_jprb,2.2859e-01_jprb,&
&2.4701e-01_jprb,2.2397e-01_jprb,4.1109e-01_jprb/)
kao( :, 5, 1,16) = (/&
&2.0257e-01_jprb,1.7732e-01_jprb,1.5205e-01_jprb,2.1653e-01_jprb,2.7743e-01_jprb,3.2485e-01_jprb,&
&3.4587e-01_jprb,3.1685e-01_jprb,5.7776e-01_jprb/)
kao( :, 1, 2,16) = (/&
&1.3618e-01_jprb,1.1918e-01_jprb,1.0218e-01_jprb,8.5185e-02_jprb,7.2061e-02_jprb,8.3641e-02_jprb,&
&8.9007e-02_jprb,8.0776e-02_jprb,1.5158e-01_jprb/)
kao( :, 2, 2,16) = (/&
&1.6091e-01_jprb,1.4083e-01_jprb,1.2073e-01_jprb,1.0065e-01_jprb,1.0215e-01_jprb,1.1864e-01_jprb,&
&1.2628e-01_jprb,1.1335e-01_jprb,2.1521e-01_jprb/)
kao( :, 3, 2,16) = (/&
&1.8613e-01_jprb,1.6291e-01_jprb,1.3967e-01_jprb,1.1644e-01_jprb,1.3974e-01_jprb,1.6244e-01_jprb,&
&1.7346e-01_jprb,1.5531e-01_jprb,2.9678e-01_jprb/)
kao( :, 4, 2,16) = (/&
&2.1139e-01_jprb,1.8501e-01_jprb,1.5862e-01_jprb,1.6081e-01_jprb,2.0532e-01_jprb,2.4099e-01_jprb,&
&2.5759e-01_jprb,2.3243e-01_jprb,4.4014e-01_jprb/)
kao( :, 5, 2,16) = (/&
&2.3633e-01_jprb,2.0681e-01_jprb,1.7734e-01_jprb,2.3037e-01_jprb,2.9357e-01_jprb,3.4250e-01_jprb,&
&3.6944e-01_jprb,3.3497e-01_jprb,6.2683e-01_jprb/)
kao( :, 1, 3,16) = (/&
&1.4816e-01_jprb,1.2967e-01_jprb,1.1115e-01_jprb,9.2659e-02_jprb,7.4159e-02_jprb,8.0583e-02_jprb,&
&8.5826e-02_jprb,7.7925e-02_jprb,1.4987e-01_jprb/)
kao( :, 2, 3,16) = (/&
&1.7766e-01_jprb,1.5547e-01_jprb,1.3328e-01_jprb,1.1109e-01_jprb,1.0104e-01_jprb,1.1748e-01_jprb,&
&1.2514e-01_jprb,1.1367e-01_jprb,2.1867e-01_jprb/)
kao( :, 3, 3,16) = (/&
&2.0806e-01_jprb,1.8208e-01_jprb,1.5612e-01_jprb,1.3012e-01_jprb,1.4100e-01_jprb,1.6398e-01_jprb,&
&1.7474e-01_jprb,1.5873e-01_jprb,3.0539e-01_jprb/)
kao( :, 4, 3,16) = (/&
&2.3885e-01_jprb,2.0905e-01_jprb,1.7920e-01_jprb,1.5462e-01_jprb,1.9704e-01_jprb,2.3104e-01_jprb,&
&2.4836e-01_jprb,2.2742e-01_jprb,4.3187e-01_jprb/)
kao( :, 5, 3,16) = (/&
&2.6947e-01_jprb,2.3583e-01_jprb,2.0218e-01_jprb,2.2565e-01_jprb,2.8814e-01_jprb,3.3769e-01_jprb,&
&3.6257e-01_jprb,3.3019e-01_jprb,6.3080e-01_jprb/)
kao( :, 1, 4,16) = (/&
&1.5818e-01_jprb,1.3843e-01_jprb,1.1868e-01_jprb,9.8906e-02_jprb,7.9147e-02_jprb,7.4782e-02_jprb,&
&7.9730e-02_jprb,7.2448e-02_jprb,1.4101e-01_jprb/)
kao( :, 2, 4,16) = (/&
&1.9302e-01_jprb,1.6890e-01_jprb,1.4479e-01_jprb,1.2067e-01_jprb,9.6946e-02_jprb,1.1266e-01_jprb,&
&1.2012e-01_jprb,1.0916e-01_jprb,2.1249e-01_jprb/)
kao( :, 3, 4,16) = (/&
&2.2940e-01_jprb,2.0076e-01_jprb,1.7206e-01_jprb,1.4345e-01_jprb,1.3883e-01_jprb,1.6162e-01_jprb,&
&1.7237e-01_jprb,1.5669e-01_jprb,3.0501e-01_jprb/)
kao( :, 4, 4,16) = (/&
&2.6665e-01_jprb,2.3335e-01_jprb,2.0002e-01_jprb,1.6674e-01_jprb,1.9115e-01_jprb,2.2258e-01_jprb,&
&2.3743e-01_jprb,2.1581e-01_jprb,4.2004e-01_jprb/)
kao( :, 5, 4,16) = (/&
&3.0410e-01_jprb,2.6615e-01_jprb,2.2811e-01_jprb,2.1285e-01_jprb,2.7372e-01_jprb,3.2083e-01_jprb,&
&3.4541e-01_jprb,3.1599e-01_jprb,6.0405e-01_jprb/)
kao( :, 1, 5,16) = (/&
&1.6744e-01_jprb,1.4653e-01_jprb,1.2561e-01_jprb,1.0468e-01_jprb,8.3763e-02_jprb,7.6430e-02_jprb,&
&8.0078e-02_jprb,7.1821e-02_jprb,1.3817e-01_jprb/)
kao( :, 2, 5,16) = (/&
&2.0817e-01_jprb,1.8217e-01_jprb,1.5617e-01_jprb,1.3014e-01_jprb,1.0413e-01_jprb,1.0666e-01_jprb,&
&1.1380e-01_jprb,1.0350e-01_jprb,2.0245e-01_jprb/)
kao( :, 3, 5,16) = (/&
&2.5135e-01_jprb,2.1998e-01_jprb,1.8857e-01_jprb,1.5714e-01_jprb,1.3525e-01_jprb,1.5761e-01_jprb,&
&1.6824e-01_jprb,1.5302e-01_jprb,2.9921e-01_jprb/)
kao( :, 4, 5,16) = (/&
&2.9614e-01_jprb,2.5913e-01_jprb,2.2214e-01_jprb,1.8514e-01_jprb,1.9095e-01_jprb,2.2256e-01_jprb,&
&2.3757e-01_jprb,2.1609e-01_jprb,4.2253e-01_jprb/)
kao( :, 5, 5,16) = (/&
&3.4165e-01_jprb,2.9890e-01_jprb,2.5626e-01_jprb,2.1358e-01_jprb,2.6276e-01_jprb,3.0710e-01_jprb,&
&3.2753e-01_jprb,2.9875e-01_jprb,5.8403e-01_jprb/)
kao( :, 1, 6,16) = (/&
&1.7406e-01_jprb,1.5231e-01_jprb,1.3056e-01_jprb,1.0879e-01_jprb,8.7033e-02_jprb,7.9557e-02_jprb,&
&8.3495e-02_jprb,7.4970e-02_jprb,1.4461e-01_jprb/)
kao( :, 2, 6,16) = (/&
&2.2115e-01_jprb,1.9353e-01_jprb,1.6587e-01_jprb,1.3825e-01_jprb,1.1058e-01_jprb,1.0079e-01_jprb,&
&1.0571e-01_jprb,9.5354e-02_jprb,1.8669e-01_jprb/)
kao( :, 3, 6,16) = (/&
&2.7185e-01_jprb,2.3789e-01_jprb,2.0389e-01_jprb,1.6994e-01_jprb,1.3598e-01_jprb,1.4993e-01_jprb,&
&1.6017e-01_jprb,1.4582e-01_jprb,2.8546e-01_jprb/)
kao( :, 4, 6,16) = (/&
&3.2519e-01_jprb,2.8454e-01_jprb,2.4391e-01_jprb,2.0327e-01_jprb,1.8667e-01_jprb,2.1780e-01_jprb,&
&2.3273e-01_jprb,2.1193e-01_jprb,4.1454e-01_jprb/)
kao( :, 5, 6,16) = (/&
&3.7997e-01_jprb,3.3252e-01_jprb,2.8502e-01_jprb,2.3749e-01_jprb,2.5973e-01_jprb,3.0308e-01_jprb,&
&3.2386e-01_jprb,2.9502e-01_jprb,5.7680e-01_jprb/)
kao( :, 1, 7,16) = (/&
&1.7875e-01_jprb,1.5642e-01_jprb,1.3408e-01_jprb,1.1175e-01_jprb,8.9415e-02_jprb,8.1831e-02_jprb,&
&8.6005e-02_jprb,7.7323e-02_jprb,1.4922e-01_jprb/)
kao( :, 2, 7,16) = (/&
&2.3257e-01_jprb,2.0349e-01_jprb,1.7445e-01_jprb,1.4538e-01_jprb,1.1631e-01_jprb,1.0616e-01_jprb,&
&1.1147e-01_jprb,1.0017e-01_jprb,1.9290e-01_jprb/)
kao( :, 3, 7,16) = (/&
&2.9155e-01_jprb,2.5511e-01_jprb,2.1872e-01_jprb,1.8226e-01_jprb,1.4581e-01_jprb,1.4057e-01_jprb,&
&1.5032e-01_jprb,1.3703e-01_jprb,2.6795e-01_jprb/)
kao( :, 4, 7,16) = (/&
&3.5453e-01_jprb,3.1018e-01_jprb,2.6586e-01_jprb,2.2158e-01_jprb,1.8072e-01_jprb,2.1059e-01_jprb,&
&2.2528e-01_jprb,2.0539e-01_jprb,4.0134e-01_jprb/)
kao( :, 5, 7,16) = (/&
&4.2001e-01_jprb,3.6750e-01_jprb,3.1500e-01_jprb,2.6252e-01_jprb,2.5742e-01_jprb,3.0072e-01_jprb,&
&3.2172e-01_jprb,2.9345e-01_jprb,5.7279e-01_jprb/)
kao( :, 1, 8,16) = (/&
&1.8184e-01_jprb,1.5912e-01_jprb,1.3638e-01_jprb,1.1367e-01_jprb,9.0918e-02_jprb,8.3330e-02_jprb,&
&8.7708e-02_jprb,7.9039e-02_jprb,1.5236e-01_jprb/)
kao( :, 2, 8,16) = (/&
&2.4266e-01_jprb,2.1231e-01_jprb,1.8198e-01_jprb,1.5168e-01_jprb,1.2132e-01_jprb,1.1090e-01_jprb,&
&1.1664e-01_jprb,1.0501e-01_jprb,2.0199e-01_jprb/)
kao( :, 3, 8,16) = (/&
&3.1060e-01_jprb,2.7177e-01_jprb,2.3297e-01_jprb,1.9411e-01_jprb,1.5532e-01_jprb,1.4153e-01_jprb,&
&1.4874e-01_jprb,1.3387e-01_jprb,2.5753e-01_jprb/)
kao( :, 4, 8,16) = (/&
&3.8422e-01_jprb,3.3618e-01_jprb,2.8820e-01_jprb,2.4017e-01_jprb,1.9212e-01_jprb,2.0191e-01_jprb,&
&2.1622e-01_jprb,1.9751e-01_jprb,3.8483e-01_jprb/)
kao( :, 5, 8,16) = (/&
&4.6183e-01_jprb,4.0412e-01_jprb,3.4637e-01_jprb,2.8861e-01_jprb,2.5332e-01_jprb,2.9628e-01_jprb,&
&3.1743e-01_jprb,2.9007e-01_jprb,5.6429e-01_jprb/)
kao( :, 1, 9,16) = (/&
&1.8242e-01_jprb,1.5964e-01_jprb,1.3685e-01_jprb,1.1403e-01_jprb,9.1238e-02_jprb,8.3650e-02_jprb,&
&8.8221e-02_jprb,7.9647e-02_jprb,1.5343e-01_jprb/)
kao( :, 2, 9,16) = (/&
&2.5031e-01_jprb,2.1903e-01_jprb,1.8774e-01_jprb,1.5645e-01_jprb,1.2518e-01_jprb,1.1450e-01_jprb,&
&1.2069e-01_jprb,1.0894e-01_jprb,2.0909e-01_jprb/)
kao( :, 3, 9,16) = (/&
&3.2780e-01_jprb,2.8681e-01_jprb,2.4582e-01_jprb,2.0484e-01_jprb,1.6390e-01_jprb,1.4947e-01_jprb,&
&1.5744e-01_jprb,1.4207e-01_jprb,2.7178e-01_jprb/)
kao( :, 4, 9,16) = (/&
&4.1288e-01_jprb,3.6136e-01_jprb,3.0972e-01_jprb,2.5810e-01_jprb,2.0648e-01_jprb,1.9240e-01_jprb,&
&2.0499e-01_jprb,1.8750e-01_jprb,3.6520e-01_jprb/)
kao( :, 5, 9,16) = (/&
&5.0401e-01_jprb,4.4105e-01_jprb,3.7793e-01_jprb,3.1504e-01_jprb,2.5430e-01_jprb,2.8859e-01_jprb,&
&3.0964e-01_jprb,2.8367e-01_jprb,5.5002e-01_jprb/)
kao( :, 1,10,16) = (/&
&1.8581e-01_jprb,1.6259e-01_jprb,1.3934e-01_jprb,1.1613e-01_jprb,9.2903e-02_jprb,8.5148e-02_jprb,&
&9.0034e-02_jprb,8.1540e-02_jprb,3.4590e-01_jprb/)
kao( :, 2,10,16) = (/&
&2.6163e-01_jprb,2.2890e-01_jprb,1.9618e-01_jprb,1.6349e-01_jprb,1.3077e-01_jprb,1.1965e-01_jprb,&
&1.2644e-01_jprb,1.1450e-01_jprb,3.2865e-01_jprb/)
kao( :, 3,10,16) = (/&
&3.4958e-01_jprb,3.0586e-01_jprb,2.6220e-01_jprb,2.1849e-01_jprb,1.7478e-01_jprb,1.5951e-01_jprb,&
&1.6845e-01_jprb,1.5252e-01_jprb,3.1204e-01_jprb/)
kao( :, 4,10,16) = (/&
&4.4787e-01_jprb,3.9191e-01_jprb,3.3594e-01_jprb,2.7989e-01_jprb,2.2397e-01_jprb,2.0376e-01_jprb,&
&2.1506e-01_jprb,1.9478e-01_jprb,3.7906e-01_jprb/)
kao( :, 5,10,16) = (/&
&5.5414e-01_jprb,4.8494e-01_jprb,4.1561e-01_jprb,3.4636e-01_jprb,2.7711e-01_jprb,2.8690e-01_jprb,&
&3.0857e-01_jprb,2.8362e-01_jprb,5.5736e-01_jprb/)
kao( :, 1,11,16) = (/&
&2.2387e-01_jprb,1.9590e-01_jprb,1.6793e-01_jprb,1.3995e-01_jprb,1.1196e-01_jprb,1.0248e-01_jprb,&
&1.0866e-01_jprb,9.8759e-02_jprb,9.7232e-01_jprb/)
kao( :, 2,11,16) = (/&
&3.1487e-01_jprb,2.7553e-01_jprb,2.3616e-01_jprb,1.9682e-01_jprb,1.5747e-01_jprb,1.4389e-01_jprb,&
&1.5251e-01_jprb,1.3868e-01_jprb,9.2352e-01_jprb/)
kao( :, 3,11,16) = (/&
&4.2034e-01_jprb,3.6781e-01_jprb,3.1526e-01_jprb,2.6274e-01_jprb,2.1020e-01_jprb,1.9156e-01_jprb,&
&2.0295e-01_jprb,1.8465e-01_jprb,8.7619e-01_jprb/)
kao( :, 4,11,16) = (/&
&5.3783e-01_jprb,4.7062e-01_jprb,4.0338e-01_jprb,3.3619e-01_jprb,2.6900e-01_jprb,2.4463e-01_jprb,&
&2.5910e-01_jprb,2.3556e-01_jprb,8.3528e-01_jprb/)
kao( :, 5,11,16) = (/&
&6.6465e-01_jprb,5.8160e-01_jprb,4.9850e-01_jprb,4.1545e-01_jprb,3.3262e-01_jprb,3.4381e-01_jprb,&
&3.7087e-01_jprb,3.4266e-01_jprb,8.3608e-01_jprb/)
kao( :, 1,12,16) = (/&
&2.6898e-01_jprb,2.3539e-01_jprb,2.0175e-01_jprb,1.6812e-01_jprb,1.3451e-01_jprb,1.2295e-01_jprb,&
&1.3082e-01_jprb,1.1955e-01_jprb,1.7254e+00_jprb/)
kao( :, 2,12,16) = (/&
&3.7759e-01_jprb,3.3035e-01_jprb,2.8322e-01_jprb,2.3602e-01_jprb,1.8879e-01_jprb,1.7231e-01_jprb,&
&1.8335e-01_jprb,1.6769e-01_jprb,1.6364e+00_jprb/)
kao( :, 3,12,16) = (/&
&5.0302e-01_jprb,4.4026e-01_jprb,3.7736e-01_jprb,3.1440e-01_jprb,2.5155e-01_jprb,2.2898e-01_jprb,&
&2.4369e-01_jprb,2.2307e-01_jprb,1.5678e+00_jprb/)
kao( :, 4,12,16) = (/&
&6.4249e-01_jprb,5.6214e-01_jprb,4.8190e-01_jprb,4.0154e-01_jprb,3.2127e-01_jprb,2.9402e-01_jprb,&
&3.1247e-01_jprb,2.8485e-01_jprb,1.5255e+00_jprb/)
kao( :, 5,12,16) = (/&
&7.9248e-01_jprb,6.9340e-01_jprb,5.9438e-01_jprb,4.9520e-01_jprb,3.9963e-01_jprb,4.1148e-01_jprb,&
&4.4433e-01_jprb,4.1322e-01_jprb,1.5412e+00_jprb/)
kao( :, 1,13,16) = (/&
&3.2111e-01_jprb,2.8086e-01_jprb,2.4080e-01_jprb,2.0063e-01_jprb,1.6053e-01_jprb,1.4645e-01_jprb,&
&1.5663e-01_jprb,1.4415e-01_jprb,2.4681e+00_jprb/)
kao( :, 2,13,16) = (/&
&4.4952e-01_jprb,3.9337e-01_jprb,3.3709e-01_jprb,2.8095e-01_jprb,2.2474e-01_jprb,2.0495e-01_jprb,&
&2.1909e-01_jprb,2.0198e-01_jprb,2.3822e+00_jprb/)
kao( :, 3,13,16) = (/&
&5.9739e-01_jprb,5.2281e-01_jprb,4.4809e-01_jprb,3.7333e-01_jprb,2.9881e-01_jprb,2.7217e-01_jprb,&
&2.9063e-01_jprb,2.6832e-01_jprb,2.3232e+00_jprb/)
kao( :, 4,13,16) = (/&
&7.6112e-01_jprb,6.6586e-01_jprb,5.7079e-01_jprb,4.7570e-01_jprb,3.8102e-01_jprb,3.5288e-01_jprb,&
&3.7640e-01_jprb,3.4431e-01_jprb,2.2950e+00_jprb/)
kao( :, 5,13,16) = (/&
&9.3631e-01_jprb,8.1920e-01_jprb,7.0224e-01_jprb,5.8508e-01_jprb,4.7927e-01_jprb,4.9193e-01_jprb,&
&5.3062e-01_jprb,4.9592e-01_jprb,2.3135e+00_jprb/)


!     -----------------------------------------------------------------
RETURN
END SUBROUTINE rrtm_kgb5_a2