rrtm_kgb5_A1.F90

Go to the documentation of this file.

!OCL SCALAR
SUBROUTINE rrtm_kgb5_a1

!     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, 1) = (/&
&1.2281e-06_jprb,7.3444e-06_jprb,1.3802e-05_jprb,2.1363e-05_jprb,3.4026e-05_jprb,5.1149e-05_jprb,&
&7.6454e-05_jprb,1.1492e-04_jprb,5.1051e-05_jprb/)
kao( :, 2, 1, 1) = (/&
&1.6369e-06_jprb,8.9617e-06_jprb,1.6072e-05_jprb,2.4135e-05_jprb,3.4106e-05_jprb,4.9214e-05_jprb,&
&7.9048e-05_jprb,1.3905e-04_jprb,5.4063e-05_jprb/)
kao( :, 3, 1, 1) = (/&
&2.1611e-06_jprb,1.1094e-05_jprb,1.8726e-05_jprb,2.7825e-05_jprb,3.8281e-05_jprb,5.1592e-05_jprb,&
&7.6813e-05_jprb,1.3616e-04_jprb,6.0994e-05_jprb/)
kao( :, 4, 1, 1) = (/&
&2.8032e-06_jprb,1.3911e-05_jprb,2.1873e-05_jprb,3.1872e-05_jprb,4.3669e-05_jprb,5.8650e-05_jprb,&
&8.1107e-05_jprb,1.3247e-04_jprb,6.8413e-05_jprb/)
kao( :, 5, 1, 1) = (/&
&3.5749e-06_jprb,1.7399e-05_jprb,2.6270e-05_jprb,3.5363e-05_jprb,4.8470e-05_jprb,6.5479e-05_jprb,&
&9.0735e-05_jprb,1.4099e-04_jprb,5.7731e-05_jprb/)
kao( :, 1, 2, 1) = (/&
&9.2208e-07_jprb,5.6661e-06_jprb,1.0853e-05_jprb,1.7695e-05_jprb,2.8111e-05_jprb,4.1811e-05_jprb,&
&5.7766e-05_jprb,8.8171e-05_jprb,3.6499e-05_jprb/)
kao( :, 2, 2, 1) = (/&
&1.2339e-06_jprb,6.8718e-06_jprb,1.2450e-05_jprb,1.9038e-05_jprb,2.7428e-05_jprb,4.2214e-05_jprb,&
&6.5891e-05_jprb,1.0808e-04_jprb,3.9328e-05_jprb/)
kao( :, 3, 2, 1) = (/&
&1.6382e-06_jprb,8.4733e-06_jprb,1.4470e-05_jprb,2.1567e-05_jprb,3.0172e-05_jprb,4.1842e-05_jprb,&
&6.2761e-05_jprb,1.1359e-04_jprb,4.4926e-05_jprb/)
kao( :, 4, 2, 1) = (/&
&2.1437e-06_jprb,1.0582e-05_jprb,1.7090e-05_jprb,2.4961e-05_jprb,3.4319e-05_jprb,4.6334e-05_jprb,&
&6.4942e-05_jprb,1.0880e-04_jprb,4.8706e-05_jprb/)
kao( :, 5, 2, 1) = (/&
&2.7550e-06_jprb,1.3307e-05_jprb,2.0303e-05_jprb,2.7768e-05_jprb,3.8649e-05_jprb,5.3069e-05_jprb,&
&7.1656e-05_jprb,1.1174e-04_jprb,4.2264e-05_jprb/)
kao( :, 1, 3, 1) = (/&
&6.5681e-07_jprb,4.2928e-06_jprb,8.6206e-06_jprb,1.4813e-05_jprb,2.2795e-05_jprb,3.0956e-05_jprb,&
&4.2159e-05_jprb,6.7143e-05_jprb,2.4558e-05_jprb/)
kao( :, 2, 3, 1) = (/&
&8.8032e-07_jprb,5.0858e-06_jprb,9.4979e-06_jprb,1.4908e-05_jprb,2.3302e-05_jprb,3.4761e-05_jprb,&
&5.2810e-05_jprb,7.8083e-05_jprb,2.7352e-05_jprb/)
kao( :, 3, 3, 1) = (/&
&1.1757e-06_jprb,6.2479e-06_jprb,1.1007e-05_jprb,1.6613e-05_jprb,2.3543e-05_jprb,3.3879e-05_jprb,&
&5.3064e-05_jprb,9.3905e-05_jprb,3.1433e-05_jprb/)
kao( :, 4, 3, 1) = (/&
&1.5541e-06_jprb,7.7549e-06_jprb,1.2987e-05_jprb,1.9178e-05_jprb,2.6197e-05_jprb,3.5750e-05_jprb,&
&5.1915e-05_jprb,9.2229e-05_jprb,2.9423e-05_jprb/)
kao( :, 5, 3, 1) = (/&
&2.0193e-06_jprb,9.7639e-06_jprb,1.5167e-05_jprb,2.2031e-05_jprb,3.0010e-05_jprb,4.0258e-05_jprb,&
&5.5267e-05_jprb,9.0112e-05_jprb,2.9943e-05_jprb/)
kao( :, 1, 4, 1) = (/&
&4.6419e-07_jprb,3.2238e-06_jprb,7.0968e-06_jprb,1.2172e-05_jprb,1.6732e-05_jprb,2.2369e-05_jprb,&
&3.1463e-05_jprb,5.3229e-05_jprb,1.7381e-05_jprb/)
kao( :, 2, 4, 1) = (/&
&6.2245e-07_jprb,3.7726e-06_jprb,7.2766e-06_jprb,1.2504e-05_jprb,1.9255e-05_jprb,2.8079e-05_jprb,&
&3.7485e-05_jprb,5.7403e-05_jprb,1.9667e-05_jprb/)
kao( :, 3, 4, 1) = (/&
&8.3351e-07_jprb,4.5653e-06_jprb,8.3036e-06_jprb,1.2777e-05_jprb,1.8816e-05_jprb,2.9030e-05_jprb,&
&4.4417e-05_jprb,7.0863e-05_jprb,2.1895e-05_jprb/)
kao( :, 4, 4, 1) = (/&
&1.1087e-06_jprb,5.6384e-06_jprb,9.6405e-06_jprb,1.4565e-05_jprb,2.0321e-05_jprb,2.8264e-05_jprb,&
&4.3444e-05_jprb,7.7444e-05_jprb,2.1414e-05_jprb/)
kao( :, 5, 4, 1) = (/&
&1.4581e-06_jprb,7.0726e-06_jprb,1.1402e-05_jprb,1.6579e-05_jprb,2.3011e-05_jprb,3.1009e-05_jprb,&
&4.3245e-05_jprb,7.3708e-05_jprb,2.2863e-05_jprb/)
kao( :, 1, 5, 1) = (/&
&3.3427e-07_jprb,2.5337e-06_jprb,5.7680e-06_jprb,8.9425e-06_jprb,1.2242e-05_jprb,1.6995e-05_jprb,&
&2.4164e-05_jprb,4.4230e-05_jprb,1.3422e-05_jprb/)
kao( :, 2, 5, 1) = (/&
&4.4601e-07_jprb,2.8401e-06_jprb,5.8531e-06_jprb,1.0220e-05_jprb,1.5419e-05_jprb,2.0153e-05_jprb,&
&2.7336e-05_jprb,4.3727e-05_jprb,1.5115e-05_jprb/)
kao( :, 3, 5, 1) = (/&
&5.9812e-07_jprb,3.3532e-06_jprb,6.3191e-06_jprb,1.0031e-05_jprb,1.5953e-05_jprb,2.3950e-05_jprb,&
&3.4195e-05_jprb,5.0601e-05_jprb,1.6591e-05_jprb/)
kao( :, 4, 5, 1) = (/&
&7.9837e-07_jprb,4.1280e-06_jprb,7.3147e-06_jprb,1.1079e-05_jprb,1.5854e-05_jprb,2.3810e-05_jprb,&
&3.6514e-05_jprb,6.2591e-05_jprb,1.7658e-05_jprb/)
kao( :, 5, 5, 1) = (/&
&1.0575e-06_jprb,5.1440e-06_jprb,8.5910e-06_jprb,1.2709e-05_jprb,1.7592e-05_jprb,2.4262e-05_jprb,&
&3.5276e-05_jprb,6.2368e-05_jprb,1.9388e-05_jprb/)
kao( :, 1, 6, 1) = (/&
&2.4467e-07_jprb,2.0115e-06_jprb,4.4506e-06_jprb,6.5328e-06_jprb,9.2134e-06_jprb,1.2867e-05_jprb,&
&1.9266e-05_jprb,3.4226e-05_jprb,1.1020e-05_jprb/)
kao( :, 2, 6, 1) = (/&
&3.2244e-07_jprb,2.1802e-06_jprb,4.7859e-06_jprb,8.3031e-06_jprb,1.1024e-05_jprb,1.4816e-05_jprb,&
&2.0767e-05_jprb,3.3867e-05_jprb,1.2361e-05_jprb/)
kao( :, 3, 6, 1) = (/&
&4.3252e-07_jprb,2.5034e-06_jprb,4.8788e-06_jprb,8.5188e-06_jprb,1.3353e-05_jprb,1.8353e-05_jprb,&
&2.4440e-05_jprb,3.7220e-05_jprb,1.3756e-05_jprb/)
kao( :, 4, 6, 1) = (/&
&5.7866e-07_jprb,3.0227e-06_jprb,5.4901e-06_jprb,8.5441e-06_jprb,1.3294e-05_jprb,1.9970e-05_jprb,&
&3.0079e-05_jprb,4.5487e-05_jprb,1.5370e-05_jprb/)
kao( :, 5, 6, 1) = (/&
&7.6960e-07_jprb,3.7504e-06_jprb,6.3767e-06_jprb,9.6311e-06_jprb,1.3563e-05_jprb,1.9464e-05_jprb,&
&3.0023e-05_jprb,5.3031e-05_jprb,1.7349e-05_jprb/)
kao( :, 1, 7, 1) = (/&
&1.8363e-07_jprb,1.6339e-06_jprb,3.2365e-06_jprb,4.8736e-06_jprb,7.0565e-06_jprb,1.0168e-05_jprb,&
&1.5448e-05_jprb,2.6119e-05_jprb,9.9973e-06_jprb/)
kao( :, 2, 7, 1) = (/&
&2.3828e-07_jprb,1.7045e-06_jprb,3.9446e-06_jprb,5.9885e-06_jprb,8.1187e-06_jprb,1.1164e-05_jprb,&
&1.5910e-05_jprb,2.7804e-05_jprb,1.1252e-05_jprb/)
kao( :, 3, 7, 1) = (/&
&3.1712e-07_jprb,1.8915e-06_jprb,4.0133e-06_jprb,6.9371e-06_jprb,1.0184e-05_jprb,1.3247e-05_jprb,&
&1.8144e-05_jprb,2.8687e-05_jprb,1.2767e-05_jprb/)
kao( :, 4, 7, 1) = (/&
&4.2549e-07_jprb,2.2415e-06_jprb,4.2001e-06_jprb,7.0066e-06_jprb,1.0950e-05_jprb,1.6323e-05_jprb,&
&2.2218e-05_jprb,3.2987e-05_jprb,1.4591e-05_jprb/)
kao( :, 5, 7, 1) = (/&
&5.6782e-07_jprb,2.7608e-06_jprb,4.8541e-06_jprb,7.3705e-06_jprb,1.0748e-05_jprb,1.6390e-05_jprb,&
&2.5035e-05_jprb,4.1583e-05_jprb,1.6759e-05_jprb/)
kao( :, 1, 8, 1) = (/&
&1.4297e-07_jprb,1.2986e-06_jprb,2.4296e-06_jprb,3.7740e-06_jprb,5.5717e-06_jprb,8.1007e-06_jprb,&
&1.2269e-05_jprb,2.0668e-05_jprb,1.1224e-05_jprb/)
kao( :, 2, 8, 1) = (/&
&1.8237e-07_jprb,1.3796e-06_jprb,2.9841e-06_jprb,4.4232e-06_jprb,6.1625e-06_jprb,8.6070e-06_jprb,&
&1.2749e-05_jprb,2.2374e-05_jprb,1.3050e-05_jprb/)
kao( :, 3, 8, 1) = (/&
&2.3995e-07_jprb,1.4828e-06_jprb,3.2302e-06_jprb,5.5721e-06_jprb,7.4009e-06_jprb,9.9584e-06_jprb,&
&1.3793e-05_jprb,2.2720e-05_jprb,1.5037e-05_jprb/)
kao( :, 4, 8, 1) = (/&
&3.2109e-07_jprb,1.7086e-06_jprb,3.3052e-06_jprb,5.7552e-06_jprb,9.1163e-06_jprb,1.2137e-05_jprb,&
&1.6200e-05_jprb,2.4932e-05_jprb,1.7316e-05_jprb/)
kao( :, 5, 8, 1) = (/&
&4.2933e-07_jprb,2.0665e-06_jprb,3.6851e-06_jprb,5.7093e-06_jprb,9.1231e-06_jprb,1.3616e-05_jprb,&
&2.0240e-05_jprb,2.9795e-05_jprb,1.9811e-05_jprb/)
kao( :, 1, 9, 1) = (/&
&1.1391e-07_jprb,9.6607e-07_jprb,1.8596e-06_jprb,2.9960e-06_jprb,4.4278e-06_jprb,6.4496e-06_jprb,&
&9.3668e-06_jprb,1.6296e-05_jprb,2.3175e-05_jprb/)
kao( :, 2, 9, 1) = (/&
&1.4318e-07_jprb,1.1432e-06_jprb,2.1917e-06_jprb,3.3465e-06_jprb,4.7894e-06_jprb,6.8583e-06_jprb,&
&1.0124e-05_jprb,1.7732e-05_jprb,2.8424e-05_jprb/)
kao( :, 3, 9, 1) = (/&
&1.8594e-07_jprb,1.1885e-06_jprb,2.6962e-06_jprb,4.0343e-06_jprb,5.5351e-06_jprb,7.5514e-06_jprb,&
&1.0675e-05_jprb,1.8150e-05_jprb,3.4053e-05_jprb/)
kao( :, 4, 9, 1) = (/&
&2.4670e-07_jprb,1.3380e-06_jprb,2.7503e-06_jprb,4.7549e-06_jprb,6.8876e-06_jprb,8.9087e-06_jprb,&
&1.2295e-05_jprb,1.9210e-05_jprb,3.9839e-05_jprb/)
kao( :, 5, 9, 1) = (/&
&3.3010e-07_jprb,1.5784e-06_jprb,2.8513e-06_jprb,4.8049e-06_jprb,7.4827e-06_jprb,1.1096e-05_jprb,&
&1.4749e-05_jprb,2.1955e-05_jprb,4.5594e-05_jprb/)
kao( :, 1,10, 1) = (/&
&9.5530e-08_jprb,7.6103e-07_jprb,1.4822e-06_jprb,2.4013e-06_jprb,3.5241e-06_jprb,5.0863e-06_jprb,&
&7.7041e-06_jprb,1.2423e-05_jprb,8.9067e-05_jprb/)
kao( :, 2,10, 1) = (/&
&1.1882e-07_jprb,9.2450e-07_jprb,1.6979e-06_jprb,2.6207e-06_jprb,3.8503e-06_jprb,5.4657e-06_jprb,&
&7.9684e-06_jprb,1.3651e-05_jprb,1.1125e-04_jprb/)
kao( :, 3,10, 1) = (/&
&1.5289e-07_jprb,9.7942e-07_jprb,2.0846e-06_jprb,3.0524e-06_jprb,4.2640e-06_jprb,5.9216e-06_jprb,&
&8.6666e-06_jprb,1.4411e-05_jprb,1.3376e-04_jprb/)
kao( :, 4,10, 1) = (/&
&2.0094e-07_jprb,1.0816e-06_jprb,2.2331e-06_jprb,3.8855e-06_jprb,5.1239e-06_jprb,6.8144e-06_jprb,&
&9.5102e-06_jprb,1.5396e-05_jprb,1.5621e-04_jprb/)
kao( :, 5,10, 1) = (/&
&2.6711e-07_jprb,1.2572e-06_jprb,2.3283e-06_jprb,3.9502e-06_jprb,6.1703e-06_jprb,8.4471e-06_jprb,&
&1.1047e-05_jprb,1.7057e-05_jprb,1.7815e-04_jprb/)
kao( :, 1,11, 1) = (/&
&8.8479e-08_jprb,6.5723e-07_jprb,1.2585e-06_jprb,2.0039e-06_jprb,2.9121e-06_jprb,4.1955e-06_jprb,&
&6.2637e-06_jprb,1.0419e-05_jprb,1.7219e-04_jprb/)
kao( :, 2,11, 1) = (/&
&1.1103e-07_jprb,7.9724e-07_jprb,1.4388e-06_jprb,2.1938e-06_jprb,3.2099e-06_jprb,4.5380e-06_jprb,&
&6.5334e-06_jprb,1.1529e-05_jprb,2.1393e-04_jprb/)
kao( :, 3,11, 1) = (/&
&1.4325e-07_jprb,8.5009e-07_jprb,1.7790e-06_jprb,2.5762e-06_jprb,3.5853e-06_jprb,4.9027e-06_jprb,&
&7.2087e-06_jprb,1.1783e-05_jprb,2.5548e-04_jprb/)
kao( :, 4,11, 1) = (/&
&1.8796e-07_jprb,9.4910e-07_jprb,1.8794e-06_jprb,3.2448e-06_jprb,4.3096e-06_jprb,5.7004e-06_jprb,&
&7.8146e-06_jprb,1.2759e-05_jprb,2.9570e-04_jprb/)
kao( :, 5,11, 1) = (/&
&2.4830e-07_jprb,1.0997e-06_jprb,1.9987e-06_jprb,3.2788e-06_jprb,5.0983e-06_jprb,7.0948e-06_jprb,&
&9.2185e-06_jprb,1.4157e-05_jprb,3.3417e-04_jprb/)
kao( :, 1,12, 1) = (/&
&7.8411e-08_jprb,5.6432e-07_jprb,1.0564e-06_jprb,1.6792e-06_jprb,2.4262e-06_jprb,3.3875e-06_jprb,&
&5.1824e-06_jprb,8.5930e-06_jprb,2.1970e-04_jprb/)
kao( :, 2,12, 1) = (/&
&9.8958e-08_jprb,6.8328e-07_jprb,1.2215e-06_jprb,1.8350e-06_jprb,2.6716e-06_jprb,3.7787e-06_jprb,&
&5.3849e-06_jprb,9.1860e-06_jprb,2.7209e-04_jprb/)
kao( :, 3,12, 1) = (/&
&1.2797e-07_jprb,7.2421e-07_jprb,1.5209e-06_jprb,2.1711e-06_jprb,3.0040e-06_jprb,4.0829e-06_jprb,&
&6.0229e-06_jprb,9.7068e-06_jprb,3.2380e-04_jprb/)
kao( :, 4,12, 1) = (/&
&1.6772e-07_jprb,8.1500e-07_jprb,1.5843e-06_jprb,2.7212e-06_jprb,3.6141e-06_jprb,4.7595e-06_jprb,&
&6.4840e-06_jprb,1.0629e-05_jprb,3.7332e-04_jprb/)
kao( :, 5,12, 1) = (/&
&2.2081e-07_jprb,9.4887e-07_jprb,1.7061e-06_jprb,2.7338e-06_jprb,4.2409e-06_jprb,5.9628e-06_jprb,&
&7.7123e-06_jprb,1.1668e-05_jprb,4.2006e-04_jprb/)
kao( :, 1,13, 1) = (/&
&6.9984e-08_jprb,4.8746e-07_jprb,8.9934e-07_jprb,1.4101e-06_jprb,2.0188e-06_jprb,2.7991e-06_jprb,&
&4.1521e-06_jprb,7.2727e-06_jprb,2.2865e-04_jprb/)
kao( :, 2,13, 1) = (/&
&8.8821e-08_jprb,5.8672e-07_jprb,1.0421e-06_jprb,1.5517e-06_jprb,2.2340e-06_jprb,3.1346e-06_jprb,&
&4.4727e-06_jprb,7.4604e-06_jprb,2.8267e-04_jprb/)
kao( :, 3,13, 1) = (/&
&1.1504e-07_jprb,6.2137e-07_jprb,1.3015e-06_jprb,1.8350e-06_jprb,2.5305e-06_jprb,3.4076e-06_jprb,&
&4.9426e-06_jprb,8.0265e-06_jprb,3.3576e-04_jprb/)
kao( :, 4,13, 1) = (/&
&1.5036e-07_jprb,7.0084e-07_jprb,1.3483e-06_jprb,2.2875e-06_jprb,3.0337e-06_jprb,3.9839e-06_jprb,&
&5.4210e-06_jprb,8.7755e-06_jprb,3.8637e-04_jprb/)
kao( :, 5,13, 1) = (/&
&1.9712e-07_jprb,8.1525e-07_jprb,1.4451e-06_jprb,2.3051e-06_jprb,3.5032e-06_jprb,5.0029e-06_jprb,&
&6.4407e-06_jprb,9.6564e-06_jprb,4.3385e-04_jprb/)
kao( :, 1, 1, 2) = (/&
&3.7010e-06_jprb,1.8091e-05_jprb,2.8711e-05_jprb,4.8863e-05_jprb,7.2307e-05_jprb,1.1413e-04_jprb,&
&1.8771e-04_jprb,3.6122e-04_jprb,1.1281e-04_jprb/)
kao( :, 2, 1, 2) = (/&
&5.3266e-06_jprb,2.4423e-05_jprb,3.4269e-05_jprb,4.7704e-05_jprb,7.6078e-05_jprb,1.1442e-04_jprb,&
&1.6436e-04_jprb,3.2838e-04_jprb,8.7847e-05_jprb/)
kao( :, 3, 1, 2) = (/&
&7.5177e-06_jprb,3.2854e-05_jprb,4.4289e-05_jprb,5.4913e-05_jprb,7.2779e-05_jprb,1.0814e-04_jprb,&
&1.7906e-04_jprb,2.8467e-04_jprb,8.6883e-05_jprb/)
kao( :, 4, 1, 2) = (/&
&1.0391e-05_jprb,4.3522e-05_jprb,5.8544e-05_jprb,6.9693e-05_jprb,8.1288e-05_jprb,1.0220e-04_jprb,&
&1.5047e-04_jprb,3.0285e-04_jprb,9.1049e-05_jprb/)
kao( :, 5, 1, 2) = (/&
&1.4024e-05_jprb,5.6758e-05_jprb,7.6016e-05_jprb,9.1662e-05_jprb,1.0372e-04_jprb,1.1700e-04_jprb,&
&1.4991e-04_jprb,2.3704e-04_jprb,1.3000e-04_jprb/)
kao( :, 1, 2, 2) = (/&
&2.7903e-06_jprb,1.3902e-05_jprb,2.3771e-05_jprb,3.9190e-05_jprb,6.1137e-05_jprb,9.7231e-05_jprb,&
&1.5250e-04_jprb,2.8746e-04_jprb,7.5943e-05_jprb/)
kao( :, 2, 2, 2) = (/&
&4.0561e-06_jprb,1.8720e-05_jprb,2.7225e-05_jprb,3.9741e-05_jprb,6.4537e-05_jprb,9.0899e-05_jprb,&
&1.4609e-04_jprb,2.7008e-04_jprb,6.2612e-05_jprb/)
kao( :, 3, 2, 2) = (/&
&5.7887e-06_jprb,2.5353e-05_jprb,3.4446e-05_jprb,4.3750e-05_jprb,5.8352e-05_jprb,9.7668e-05_jprb,&
&1.4210e-04_jprb,2.4211e-04_jprb,6.1269e-05_jprb/)
kao( :, 4, 2, 2) = (/&
&8.0784e-06_jprb,3.3950e-05_jprb,4.5325e-05_jprb,5.3921e-05_jprb,6.4280e-05_jprb,8.5665e-05_jprb,&
&1.3688e-04_jprb,2.4556e-04_jprb,6.9568e-05_jprb/)
kao( :, 5, 2, 2) = (/&
&1.1019e-05_jprb,4.4672e-05_jprb,5.9575e-05_jprb,7.1166e-05_jprb,7.9595e-05_jprb,9.1088e-05_jprb,&
&1.2520e-04_jprb,2.1802e-04_jprb,9.5557e-05_jprb/)
kao( :, 1, 3, 2) = (/&
&1.9479e-06_jprb,1.0095e-05_jprb,1.9141e-05_jprb,3.0705e-05_jprb,5.2363e-05_jprb,7.9991e-05_jprb,&
&1.2823e-04_jprb,2.3806e-04_jprb,4.6992e-05_jprb/)
kao( :, 2, 3, 2) = (/&
&2.8509e-06_jprb,1.3413e-05_jprb,2.1137e-05_jprb,3.4101e-05_jprb,4.9706e-05_jprb,7.8708e-05_jprb,&
&1.2808e-04_jprb,2.2769e-04_jprb,4.2012e-05_jprb/)
kao( :, 3, 3, 2) = (/&
&4.1189e-06_jprb,1.8265e-05_jprb,2.5419e-05_jprb,3.4683e-05_jprb,5.2513e-05_jprb,8.0240e-05_jprb,&
&1.1481e-04_jprb,2.1816e-04_jprb,4.3174e-05_jprb/)
kao( :, 4, 3, 2) = (/&
&5.8233e-06_jprb,2.4801e-05_jprb,3.3200e-05_jprb,4.0180e-05_jprb,5.1786e-05_jprb,7.2468e-05_jprb,&
&1.2549e-04_jprb,1.9856e-04_jprb,5.6282e-05_jprb/)
kao( :, 5, 3, 2) = (/&
&8.0612e-06_jprb,3.3094e-05_jprb,4.4191e-05_jprb,5.1801e-05_jprb,5.9300e-05_jprb,7.2075e-05_jprb,&
&1.0386e-04_jprb,2.0859e-04_jprb,6.8039e-05_jprb/)
kao( :, 1, 4, 2) = (/&
&1.3432e-06_jprb,7.4538e-06_jprb,1.4964e-05_jprb,2.5625e-05_jprb,4.3243e-05_jprb,6.6019e-05_jprb,&
&1.0530e-04_jprb,1.9952e-04_jprb,3.1575e-05_jprb/)
kao( :, 2, 4, 2) = (/&
&1.9591e-06_jprb,9.5155e-06_jprb,1.6737e-05_jprb,2.6791e-05_jprb,4.2345e-05_jprb,6.7439e-05_jprb,&
&1.0271e-04_jprb,1.8871e-04_jprb,3.0704e-05_jprb/)
kao( :, 3, 4, 2) = (/&
&2.8537e-06_jprb,1.2845e-05_jprb,1.8934e-05_jprb,2.8752e-05_jprb,4.4199e-05_jprb,6.2430e-05_jprb,&
&1.0202e-04_jprb,1.8062e-04_jprb,3.4088e-05_jprb/)
kao( :, 4, 4, 2) = (/&
&4.0888e-06_jprb,1.7612e-05_jprb,2.3922e-05_jprb,3.0749e-05_jprb,4.2010e-05_jprb,6.5728e-05_jprb,&
&9.6566e-05_jprb,1.7460e-04_jprb,4.3387e-05_jprb/)
kao( :, 5, 4, 2) = (/&
&5.7388e-06_jprb,2.3829e-05_jprb,3.1758e-05_jprb,3.7789e-05_jprb,4.5312e-05_jprb,5.9095e-05_jprb,&
&1.0064e-04_jprb,1.6850e-04_jprb,5.1079e-05_jprb/)
kao( :, 1, 5, 2) = (/&
&9.4882e-07_jprb,5.7155e-06_jprb,1.1980e-05_jprb,2.2295e-05_jprb,3.5116e-05_jprb,5.3339e-05_jprb,&
&8.8729e-05_jprb,1.5937e-04_jprb,2.5456e-05_jprb/)
kao( :, 2, 5, 2) = (/&
&1.3669e-06_jprb,6.8739e-06_jprb,1.3459e-05_jprb,2.1396e-05_jprb,3.6297e-05_jprb,5.4282e-05_jprb,&
&8.6042e-05_jprb,1.6025e-04_jprb,2.6654e-05_jprb/)
kao( :, 3, 5, 2) = (/&
&1.9884e-06_jprb,9.0859e-06_jprb,1.4605e-05_jprb,2.3671e-05_jprb,3.4093e-05_jprb,5.5324e-05_jprb,&
&8.6463e-05_jprb,1.5363e-04_jprb,3.0684e-05_jprb/)
kao( :, 4, 5, 2) = (/&
&2.8701e-06_jprb,1.2430e-05_jprb,1.7294e-05_jprb,2.4580e-05_jprb,3.7203e-05_jprb,5.3154e-05_jprb,&
&8.1963e-05_jprb,1.5281e-04_jprb,3.6321e-05_jprb/)
kao( :, 5, 5, 2) = (/&
&4.0709e-06_jprb,1.7029e-05_jprb,2.2743e-05_jprb,2.7902e-05_jprb,3.6353e-05_jprb,5.3115e-05_jprb,&
&8.4864e-05_jprb,1.3732e-04_jprb,4.2547e-05_jprb/)
kao( :, 1, 6, 2) = (/&
&6.8988e-07_jprb,4.4652e-06_jprb,9.7580e-06_jprb,1.7678e-05_jprb,2.8332e-05_jprb,4.4145e-05_jprb,&
&7.0109e-05_jprb,1.2493e-04_jprb,2.3716e-05_jprb/)
kao( :, 2, 6, 2) = (/&
&9.7314e-07_jprb,5.0974e-06_jprb,1.0412e-05_jprb,1.7485e-05_jprb,2.9376e-05_jprb,4.4804e-05_jprb,&
&7.0122e-05_jprb,1.3276e-04_jprb,2.6375e-05_jprb/)
kao( :, 3, 6, 2) = (/&
&1.3972e-06_jprb,6.4724e-06_jprb,1.1564e-05_jprb,1.8858e-05_jprb,2.8568e-05_jprb,4.7043e-05_jprb,&
&7.0202e-05_jprb,1.2748e-04_jprb,3.0169e-05_jprb/)
kao( :, 4, 6, 2) = (/&
&2.0156e-06_jprb,8.7063e-06_jprb,1.3025e-05_jprb,2.0355e-05_jprb,3.0069e-05_jprb,4.4240e-05_jprb,&
&7.1336e-05_jprb,1.2324e-04_jprb,3.4994e-05_jprb/)
kao( :, 5, 6, 2) = (/&
&2.8756e-06_jprb,1.1976e-05_jprb,1.6242e-05_jprb,2.1147e-05_jprb,3.0629e-05_jprb,4.5526e-05_jprb,&
&6.5474e-05_jprb,1.2130e-04_jprb,4.0495e-05_jprb/)
kao( :, 1, 7, 2) = (/&
&5.2255e-07_jprb,3.4411e-06_jprb,7.7789e-06_jprb,1.4395e-05_jprb,2.2965e-05_jprb,3.5662e-05_jprb,&
&5.5652e-05_jprb,9.9078e-05_jprb,2.5677e-05_jprb/)
kao( :, 2, 7, 2) = (/&
&7.2172e-07_jprb,4.0179e-06_jprb,8.3376e-06_jprb,1.4853e-05_jprb,2.4331e-05_jprb,3.6364e-05_jprb,&
&5.7791e-05_jprb,1.0563e-04_jprb,2.9556e-05_jprb/)
kao( :, 3, 7, 2) = (/&
&1.0201e-06_jprb,4.7217e-06_jprb,9.3095e-06_jprb,1.5083e-05_jprb,2.5365e-05_jprb,3.7347e-05_jprb,&
&5.8190e-05_jprb,1.0603e-04_jprb,3.3998e-05_jprb/)
kao( :, 4, 7, 2) = (/&
&1.4537e-06_jprb,6.1748e-06_jprb,1.0020e-05_jprb,1.6138e-05_jprb,2.3962e-05_jprb,3.7967e-05_jprb,&
&5.8451e-05_jprb,1.0372e-04_jprb,3.9119e-05_jprb/)
kao( :, 5, 7, 2) = (/&
&2.0693e-06_jprb,8.4363e-06_jprb,1.1705e-05_jprb,1.7001e-05_jprb,2.5826e-05_jprb,3.5527e-05_jprb,&
&5.8296e-05_jprb,1.0385e-04_jprb,4.4936e-05_jprb/)
kao( :, 1, 8, 2) = (/&
&4.1700e-07_jprb,2.7639e-06_jprb,6.4938e-06_jprb,1.1630e-05_jprb,1.8371e-05_jprb,2.7706e-05_jprb,&
&4.4850e-05_jprb,8.0696e-05_jprb,3.5956e-05_jprb/)
kao( :, 2, 8, 2) = (/&
&5.6411e-07_jprb,3.1556e-06_jprb,6.9457e-06_jprb,1.2120e-05_jprb,1.9397e-05_jprb,2.9581e-05_jprb,&
&4.6513e-05_jprb,8.4727e-05_jprb,4.2511e-05_jprb/)
kao( :, 3, 8, 2) = (/&
&7.8647e-07_jprb,3.6535e-06_jprb,7.3255e-06_jprb,1.2353e-05_jprb,2.0079e-05_jprb,3.0844e-05_jprb,&
&4.7401e-05_jprb,8.6525e-05_jprb,4.9724e-05_jprb/)
kao( :, 4, 8, 2) = (/&
&1.1061e-06_jprb,4.5424e-06_jprb,7.9917e-06_jprb,1.3185e-05_jprb,1.9791e-05_jprb,3.2038e-05_jprb,&
&4.8054e-05_jprb,8.5457e-05_jprb,5.7233e-05_jprb/)
kao( :, 5, 8, 2) = (/&
&1.5569e-06_jprb,6.0599e-06_jprb,9.0209e-06_jprb,1.3990e-05_jprb,2.0815e-05_jprb,3.0475e-05_jprb,&
&4.9899e-05_jprb,8.4659e-05_jprb,6.5356e-05_jprb/)
kao( :, 1, 9, 2) = (/&
&3.4646e-07_jprb,2.3339e-06_jprb,5.2376e-06_jprb,9.2182e-06_jprb,1.4337e-05_jprb,2.2490e-05_jprb,&
&3.6396e-05_jprb,6.1412e-05_jprb,1.0490e-04_jprb/)
kao( :, 2, 9, 2) = (/&
&4.5919e-07_jprb,2.4585e-06_jprb,5.5676e-06_jprb,9.8533e-06_jprb,1.5559e-05_jprb,2.3683e-05_jprb,&
&3.6999e-05_jprb,7.0677e-05_jprb,1.2405e-04_jprb/)
kao( :, 3, 9, 2) = (/&
&6.2898e-07_jprb,2.9262e-06_jprb,5.8022e-06_jprb,1.0344e-05_jprb,1.6840e-05_jprb,2.4691e-05_jprb,&
&3.8818e-05_jprb,7.0031e-05_jprb,1.4290e-04_jprb/)
kao( :, 4, 9, 2) = (/&
&8.7625e-07_jprb,3.4474e-06_jprb,6.4904e-06_jprb,1.0589e-05_jprb,1.7378e-05_jprb,2.5849e-05_jprb,&
&3.9400e-05_jprb,7.0716e-05_jprb,1.6112e-04_jprb/)
kao( :, 5, 9, 2) = (/&
&1.2209e-06_jprb,4.4922e-06_jprb,7.0958e-06_jprb,1.1298e-05_jprb,1.6936e-05_jprb,2.6020e-05_jprb,&
&4.0325e-05_jprb,7.2083e-05_jprb,1.7893e-04_jprb/)
kao( :, 1,10, 2) = (/&
&3.1214e-07_jprb,1.9536e-06_jprb,4.2576e-06_jprb,7.3396e-06_jprb,1.1621e-05_jprb,1.8021e-05_jprb,&
&2.8013e-05_jprb,4.7749e-05_jprb,4.9962e-04_jprb/)
kao( :, 2,10, 2) = (/&
&4.0887e-07_jprb,2.0598e-06_jprb,4.7149e-06_jprb,8.0606e-06_jprb,1.2573e-05_jprb,1.8809e-05_jprb,&
&3.0275e-05_jprb,5.6188e-05_jprb,5.8548e-04_jprb/)
kao( :, 3,10, 2) = (/&
&5.5155e-07_jprb,2.4175e-06_jprb,4.9545e-06_jprb,8.5941e-06_jprb,1.3457e-05_jprb,2.0204e-05_jprb,&
&3.1138e-05_jprb,5.6286e-05_jprb,6.6291e-04_jprb/)
kao( :, 4,10, 2) = (/&
&7.5650e-07_jprb,2.8298e-06_jprb,5.3256e-06_jprb,8.7402e-06_jprb,1.3978e-05_jprb,2.1601e-05_jprb,&
&3.2082e-05_jprb,5.7693e-05_jprb,7.2972e-04_jprb/)
kao( :, 5,10, 2) = (/&
&1.0427e-06_jprb,3.5400e-06_jprb,5.8501e-06_jprb,9.4137e-06_jprb,1.4055e-05_jprb,2.2092e-05_jprb,&
&3.3371e-05_jprb,5.7680e-05_jprb,7.8611e-04_jprb/)
kao( :, 1,11, 2) = (/&
&3.2074e-07_jprb,1.7276e-06_jprb,3.6239e-06_jprb,6.1854e-06_jprb,9.6607e-06_jprb,1.4993e-05_jprb,&
&2.3443e-05_jprb,4.1061e-05_jprb,1.0142e-03_jprb/)
kao( :, 2,11, 2) = (/&
&4.2113e-07_jprb,1.8116e-06_jprb,4.1199e-06_jprb,6.7716e-06_jprb,1.0543e-05_jprb,1.5526e-05_jprb,&
&2.4849e-05_jprb,4.5454e-05_jprb,1.1742e-03_jprb/)
kao( :, 3,11, 2) = (/&
&5.6514e-07_jprb,2.1552e-06_jprb,4.2148e-06_jprb,7.3585e-06_jprb,1.1239e-05_jprb,1.6846e-05_jprb,&
&2.5655e-05_jprb,4.5531e-05_jprb,1.3139e-03_jprb/)
kao( :, 4,11, 2) = (/&
&7.6814e-07_jprb,2.5322e-06_jprb,4.6852e-06_jprb,7.3538e-06_jprb,1.1830e-05_jprb,1.8155e-05_jprb,&
&2.6824e-05_jprb,4.7139e-05_jprb,1.4305e-03_jprb/)
kao( :, 5,11, 2) = (/&
&1.0464e-06_jprb,3.2313e-06_jprb,5.0889e-06_jprb,8.1260e-06_jprb,1.1741e-05_jprb,1.8567e-05_jprb,&
&2.7673e-05_jprb,4.7684e-05_jprb,1.5261e-03_jprb/)
kao( :, 1,12, 2) = (/&
&3.0483e-07_jprb,1.4986e-06_jprb,3.1036e-06_jprb,5.2551e-06_jprb,7.9883e-06_jprb,1.2411e-05_jprb,&
&1.9208e-05_jprb,3.3894e-05_jprb,1.3243e-03_jprb/)
kao( :, 2,12, 2) = (/&
&4.0026e-07_jprb,1.5746e-06_jprb,3.5034e-06_jprb,5.7409e-06_jprb,8.9248e-06_jprb,1.2928e-05_jprb,&
&2.0014e-05_jprb,3.7406e-05_jprb,1.5202e-03_jprb/)
kao( :, 3,12, 2) = (/&
&5.3553e-07_jprb,1.8879e-06_jprb,3.5598e-06_jprb,6.2204e-06_jprb,9.4506e-06_jprb,1.4131e-05_jprb,&
&2.1193e-05_jprb,3.7290e-05_jprb,1.6892e-03_jprb/)
kao( :, 4,12, 2) = (/&
&7.2441e-07_jprb,2.2261e-06_jprb,4.0611e-06_jprb,6.2008e-06_jprb,9.9865e-06_jprb,1.4941e-05_jprb,&
&2.2423e-05_jprb,3.8766e-05_jprb,1.8301e-03_jprb/)
kao( :, 5,12, 2) = (/&
&9.8233e-07_jprb,2.8782e-06_jprb,4.3585e-06_jprb,6.9707e-06_jprb,9.7990e-06_jprb,1.5463e-05_jprb,&
&2.2949e-05_jprb,3.9658e-05_jprb,1.9441e-03_jprb/)
kao( :, 1,13, 2) = (/&
&2.9003e-07_jprb,1.3003e-06_jprb,2.6851e-06_jprb,4.4901e-06_jprb,6.6847e-06_jprb,1.0336e-05_jprb,&
&1.6084e-05_jprb,2.8206e-05_jprb,1.3971e-03_jprb/)
kao( :, 2,13, 2) = (/&
&3.7990e-07_jprb,1.3887e-06_jprb,2.9888e-06_jprb,4.8895e-06_jprb,7.4887e-06_jprb,1.0848e-05_jprb,&
&1.6497e-05_jprb,3.0927e-05_jprb,1.5951e-03_jprb/)
kao( :, 3,13, 2) = (/&
&5.0572e-07_jprb,1.6533e-06_jprb,3.0166e-06_jprb,5.2825e-06_jprb,8.0084e-06_jprb,1.1877e-05_jprb,&
&1.7766e-05_jprb,3.0474e-05_jprb,1.7653e-03_jprb/)
kao( :, 4,13, 2) = (/&
&6.7947e-07_jprb,1.9700e-06_jprb,3.4410e-06_jprb,5.2325e-06_jprb,8.4395e-06_jprb,1.2460e-05_jprb,&
&1.8625e-05_jprb,3.2158e-05_jprb,1.9067e-03_jprb/)
kao( :, 5,13, 2) = (/&
&9.1576e-07_jprb,2.5777e-06_jprb,3.7459e-06_jprb,5.9026e-06_jprb,8.2962e-06_jprb,1.2772e-05_jprb,&
&1.8972e-05_jprb,3.2948e-05_jprb,2.0202e-03_jprb/)
kao( :, 1, 1, 3) = (/&
&1.2955e-05_jprb,5.0522e-05_jprb,7.1945e-05_jprb,8.6154e-05_jprb,1.0208e-04_jprb,1.2598e-04_jprb,&
&1.9123e-04_jprb,3.6418e-04_jprb,1.3186e-04_jprb/)
kao( :, 2, 1, 3) = (/&
&1.9287e-05_jprb,7.0010e-05_jprb,9.9593e-05_jprb,1.2286e-04_jprb,1.3525e-04_jprb,1.5548e-04_jprb,&
&2.0918e-04_jprb,3.4739e-04_jprb,1.7322e-04_jprb/)
kao( :, 3, 1, 3) = (/&
&2.7759e-05_jprb,9.4510e-05_jprb,1.3259e-04_jprb,1.6366e-04_jprb,1.8879e-04_jprb,2.0943e-04_jprb,&
&2.3157e-04_jprb,3.4811e-04_jprb,1.6150e-04_jprb/)
kao( :, 4, 1, 3) = (/&
&3.8738e-05_jprb,1.2422e-04_jprb,1.7221e-04_jprb,2.0992e-04_jprb,2.4272e-04_jprb,2.7453e-04_jprb,&
&3.1488e-04_jprb,3.8180e-04_jprb,1.6247e-04_jprb/)
kao( :, 5, 1, 3) = (/&
&5.2551e-05_jprb,1.5948e-04_jprb,2.1800e-04_jprb,2.6091e-04_jprb,2.8985e-04_jprb,3.1670e-04_jprb,&
&3.5730e-04_jprb,5.0275e-04_jprb,1.6769e-04_jprb/)
kao( :, 1, 2, 3) = (/&
&1.0215e-05_jprb,3.8380e-05_jprb,5.3048e-05_jprb,6.6381e-05_jprb,7.9446e-05_jprb,1.0242e-04_jprb,&
&1.6771e-04_jprb,3.2794e-04_jprb,9.6316e-05_jprb/)
kao( :, 2, 2, 3) = (/&
&1.5451e-05_jprb,5.4104e-05_jprb,7.5600e-05_jprb,9.3324e-05_jprb,1.0289e-04_jprb,1.2339e-04_jprb,&
&1.5508e-04_jprb,2.9561e-04_jprb,1.1950e-04_jprb/)
kao( :, 3, 2, 3) = (/&
&2.2597e-05_jprb,7.3963e-05_jprb,1.0253e-04_jprb,1.2549e-04_jprb,1.4695e-04_jprb,1.5501e-04_jprb,&
&1.8766e-04_jprb,2.7580e-04_jprb,1.1963e-04_jprb/)
kao( :, 4, 2, 3) = (/&
&3.1981e-05_jprb,9.8266e-05_jprb,1.3455e-04_jprb,1.6363e-04_jprb,1.9057e-04_jprb,2.1405e-04_jprb,&
&2.4009e-04_jprb,3.0871e-04_jprb,1.1944e-04_jprb/)
kao( :, 5, 2, 3) = (/&
&4.3949e-05_jprb,1.2724e-04_jprb,1.7210e-04_jprb,2.0576e-04_jprb,2.2967e-04_jprb,2.5641e-04_jprb,&
&2.9387e-04_jprb,3.8545e-04_jprb,1.2834e-04_jprb/)
kao( :, 1, 3, 3) = (/&
&7.2365e-06_jprb,2.6998e-05_jprb,3.6477e-05_jprb,4.7217e-05_jprb,5.6642e-05_jprb,8.7936e-05_jprb,&
&1.4529e-04_jprb,2.7769e-04_jprb,6.9628e-05_jprb/)
kao( :, 2, 3, 3) = (/&
&1.1199e-05_jprb,3.9041e-05_jprb,5.3564e-05_jprb,6.4272e-05_jprb,7.6774e-05_jprb,9.0855e-05_jprb,&
&1.2382e-04_jprb,2.6260e-04_jprb,7.7539e-05_jprb/)
kao( :, 3, 3, 3) = (/&
&1.6746e-05_jprb,5.4459e-05_jprb,7.4537e-05_jprb,8.9917e-05_jprb,1.0355e-04_jprb,1.1572e-04_jprb,&
&1.4649e-04_jprb,2.2179e-04_jprb,7.9988e-05_jprb/)
kao( :, 4, 3, 3) = (/&
&2.4191e-05_jprb,7.3480e-05_jprb,9.9615e-05_jprb,1.2140e-04_jprb,1.3959e-04_jprb,1.5714e-04_jprb,&
&1.6549e-04_jprb,2.4024e-04_jprb,8.5666e-05_jprb/)
kao( :, 5, 3, 3) = (/&
&3.3870e-05_jprb,9.6615e-05_jprb,1.2939e-04_jprb,1.5483e-04_jprb,1.7605e-04_jprb,2.0033e-04_jprb,&
&2.2747e-04_jprb,2.7100e-04_jprb,9.7295e-05_jprb/)
kao( :, 1, 4, 3) = (/&
&4.9164e-06_jprb,1.8370e-05_jprb,2.4721e-05_jprb,3.3121e-05_jprb,4.7620e-05_jprb,7.5266e-05_jprb,&
&1.2052e-04_jprb,2.1534e-04_jprb,5.2534e-05_jprb/)
kao( :, 2, 4, 3) = (/&
&7.7659e-06_jprb,2.7326e-05_jprb,3.6365e-05_jprb,4.5331e-05_jprb,5.4377e-05_jprb,7.0048e-05_jprb,&
&1.1606e-04_jprb,2.2356e-04_jprb,5.6606e-05_jprb/)
kao( :, 3, 4, 3) = (/&
&1.1872e-05_jprb,3.9091e-05_jprb,5.2753e-05_jprb,6.2810e-05_jprb,7.2334e-05_jprb,8.5510e-05_jprb,&
&1.0655e-04_jprb,2.0132e-04_jprb,6.1013e-05_jprb/)
kao( :, 4, 4, 3) = (/&
&1.7537e-05_jprb,5.3794e-05_jprb,7.2225e-05_jprb,8.6566e-05_jprb,1.0009e-04_jprb,1.0905e-04_jprb,&
&1.2927e-04_jprb,1.7979e-04_jprb,6.7247e-05_jprb/)
kao( :, 5, 4, 3) = (/&
&2.5077e-05_jprb,7.1949e-05_jprb,9.5586e-05_jprb,1.1422e-04_jprb,1.3046e-04_jprb,1.4874e-04_jprb,&
&1.6151e-04_jprb,2.1004e-04_jprb,7.8070e-05_jprb/)
kao( :, 1, 5, 3) = (/&
&3.3274e-06_jprb,1.2413e-05_jprb,1.6893e-05_jprb,2.5297e-05_jprb,3.9702e-05_jprb,6.2471e-05_jprb,&
&9.4799e-05_jprb,1.7379e-04_jprb,4.3352e-05_jprb/)
kao( :, 2, 5, 3) = (/&
&5.3144e-06_jprb,1.8924e-05_jprb,2.4595e-05_jprb,3.1378e-05_jprb,3.9382e-05_jprb,6.2226e-05_jprb,&
&9.6051e-05_jprb,1.8141e-04_jprb,4.9071e-05_jprb/)
kao( :, 3, 5, 3) = (/&
&8.2729e-06_jprb,2.7735e-05_jprb,3.6853e-05_jprb,4.3473e-05_jprb,5.3077e-05_jprb,6.0111e-05_jprb,&
&8.8205e-05_jprb,1.7170e-04_jprb,5.3581e-05_jprb/)
kao( :, 4, 5, 3) = (/&
&1.2483e-05_jprb,3.8936e-05_jprb,5.1944e-05_jprb,6.0771e-05_jprb,7.0416e-05_jprb,8.1406e-05_jprb,&
&9.7912e-05_jprb,1.4624e-04_jprb,6.0502e-05_jprb/)
kao( :, 5, 5, 3) = (/&
&1.8234e-05_jprb,5.2997e-05_jprb,7.0214e-05_jprb,8.3889e-05_jprb,9.4583e-05_jprb,1.0646e-04_jprb,&
&1.1645e-04_jprb,1.6664e-04_jprb,6.9524e-05_jprb/)
kao( :, 1, 6, 3) = (/&
&2.2627e-06_jprb,8.2256e-06_jprb,1.2662e-05_jprb,2.0881e-05_jprb,3.2287e-05_jprb,4.9842e-05_jprb,&
&7.8514e-05_jprb,1.5143e-04_jprb,4.2185e-05_jprb/)
kao( :, 2, 6, 3) = (/&
&3.5902e-06_jprb,1.2715e-05_jprb,1.6777e-05_jprb,2.2883e-05_jprb,3.3890e-05_jprb,5.0807e-05_jprb,&
&8.0753e-05_jprb,1.4463e-04_jprb,4.8590e-05_jprb/)
kao( :, 3, 6, 3) = (/&
&5.6436e-06_jprb,1.9109e-05_jprb,2.4998e-05_jprb,3.0305e-05_jprb,3.7831e-05_jprb,4.7255e-05_jprb,&
&7.8945e-05_jprb,1.4406e-04_jprb,5.5296e-05_jprb/)
kao( :, 4, 6, 3) = (/&
&8.6680e-06_jprb,2.7468e-05_jprb,3.6416e-05_jprb,4.2070e-05_jprb,4.9055e-05_jprb,5.8245e-05_jprb,&
&7.2889e-05_jprb,1.3759e-04_jprb,6.2699e-05_jprb/)
kao( :, 5, 6, 3) = (/&
&1.2910e-05_jprb,3.8070e-05_jprb,5.0552e-05_jprb,5.9531e-05_jprb,6.5990e-05_jprb,7.5485e-05_jprb,&
&9.0151e-05_jprb,1.2519e-04_jprb,7.1158e-05_jprb/)
kao( :, 1, 7, 3) = (/&
&1.6260e-06_jprb,5.6512e-06_jprb,1.0534e-05_jprb,1.6548e-05_jprb,2.5722e-05_jprb,3.9212e-05_jprb,&
&6.5255e-05_jprb,1.1642e-04_jprb,4.8396e-05_jprb/)
kao( :, 2, 7, 3) = (/&
&2.4977e-06_jprb,8.5111e-06_jprb,1.1552e-05_jprb,1.8620e-05_jprb,2.6964e-05_jprb,4.1086e-05_jprb,&
&6.5326e-05_jprb,1.2038e-04_jprb,5.6755e-05_jprb/)
kao( :, 3, 7, 3) = (/&
&3.8937e-06_jprb,1.3083e-05_jprb,1.6837e-05_jprb,2.1037e-05_jprb,2.8103e-05_jprb,4.1971e-05_jprb,&
&6.4916e-05_jprb,1.2035e-04_jprb,6.5643e-05_jprb/)
kao( :, 4, 7, 3) = (/&
&6.0131e-06_jprb,1.9182e-05_jprb,2.5262e-05_jprb,2.9578e-05_jprb,3.5380e-05_jprb,4.1824e-05_jprb,&
&6.4389e-05_jprb,1.1625e-04_jprb,7.5112e-05_jprb/)
kao( :, 5, 7, 3) = (/&
&9.0775e-06_jprb,2.7049e-05_jprb,3.5910e-05_jprb,4.1673e-05_jprb,4.7430e-05_jprb,5.6675e-05_jprb,&
&6.4662e-05_jprb,1.0376e-04_jprb,8.5479e-05_jprb/)
kao( :, 1, 8, 3) = (/&
&1.2762e-06_jprb,4.2855e-06_jprb,8.2820e-06_jprb,1.3051e-05_jprb,1.9907e-05_jprb,3.3971e-05_jprb,&
&5.0446e-05_jprb,8.6971e-05_jprb,7.7745e-05_jprb/)
kao( :, 2, 8, 3) = (/&
&1.8844e-06_jprb,5.9050e-06_jprb,8.9489e-06_jprb,1.4806e-05_jprb,2.1839e-05_jprb,3.2608e-05_jprb,&
&5.2540e-05_jprb,9.7610e-05_jprb,8.9498e-05_jprb/)
kao( :, 3, 8, 3) = (/&
&2.8385e-06_jprb,8.9737e-06_jprb,1.1895e-05_jprb,1.5870e-05_jprb,2.4156e-05_jprb,3.3906e-05_jprb,&
&5.3605e-05_jprb,9.6849e-05_jprb,1.0287e-04_jprb/)
kao( :, 4, 8, 3) = (/&
&4.3106e-06_jprb,1.3404e-05_jprb,1.7498e-05_jprb,2.1009e-05_jprb,2.6036e-05_jprb,3.4758e-05_jprb,&
&5.4115e-05_jprb,9.7671e-05_jprb,1.1774e-04_jprb/)
kao( :, 5, 8, 3) = (/&
&6.4933e-06_jprb,1.9198e-05_jprb,2.5108e-05_jprb,2.9532e-05_jprb,3.3547e-05_jprb,4.0870e-05_jprb,&
&5.0672e-05_jprb,9.4048e-05_jprb,1.3326e-04_jprb/)
kao( :, 1, 9, 3) = (/&
&1.0706e-06_jprb,3.3489e-06_jprb,6.5283e-06_jprb,1.0192e-05_jprb,1.7278e-05_jprb,2.6238e-05_jprb,&
&3.9041e-05_jprb,7.0346e-05_jprb,2.7103e-04_jprb/)
kao( :, 2, 9, 3) = (/&
&1.5238e-06_jprb,4.4647e-06_jprb,7.4896e-06_jprb,1.1805e-05_jprb,1.7404e-05_jprb,2.6241e-05_jprb,&
&4.5076e-05_jprb,7.3357e-05_jprb,3.0478e-04_jprb/)
kao( :, 3, 9, 3) = (/&
&2.2245e-06_jprb,6.3482e-06_jprb,8.7814e-06_jprb,1.3182e-05_jprb,1.8649e-05_jprb,2.8139e-05_jprb,&
&4.2432e-05_jprb,8.1918e-05_jprb,3.3943e-04_jprb/)
kao( :, 4, 9, 3) = (/&
&3.2853e-06_jprb,9.5377e-06_jprb,1.2081e-05_jprb,1.5048e-05_jprb,2.0438e-05_jprb,2.9250e-05_jprb,&
&4.4492e-05_jprb,8.0054e-05_jprb,3.7569e-04_jprb/)
kao( :, 5, 9, 3) = (/&
&4.8340e-06_jprb,1.3704e-05_jprb,1.7727e-05_jprb,2.0846e-05_jprb,2.4389e-05_jprb,3.0169e-05_jprb,&
&4.5558e-05_jprb,7.6780e-05_jprb,4.1363e-04_jprb/)
kao( :, 1,10, 3) = (/&
&1.0087e-06_jprb,2.8522e-06_jprb,5.3847e-06_jprb,8.7589e-06_jprb,1.3656e-05_jprb,2.0793e-05_jprb,&
&3.0265e-05_jprb,5.6466e-05_jprb,1.4467e-03_jprb/)
kao( :, 2,10, 3) = (/&
&1.3893e-06_jprb,3.6572e-06_jprb,6.0381e-06_jprb,9.5656e-06_jprb,1.3744e-05_jprb,2.2378e-05_jprb,&
&3.6073e-05_jprb,5.8999e-05_jprb,1.6134e-03_jprb/)
kao( :, 3,10, 3) = (/&
&1.9601e-06_jprb,4.9746e-06_jprb,7.1675e-06_jprb,1.0782e-05_jprb,1.5548e-05_jprb,2.2425e-05_jprb,&
&3.4813e-05_jprb,6.8188e-05_jprb,1.7742e-03_jprb/)
kao( :, 4,10, 3) = (/&
&2.8046e-06_jprb,7.3061e-06_jprb,9.2760e-06_jprb,1.2016e-05_jprb,1.7674e-05_jprb,2.3526e-05_jprb,&
&3.6626e-05_jprb,6.3451e-05_jprb,1.9257e-03_jprb/)
kao( :, 5,10, 3) = (/&
&4.0204e-06_jprb,1.0448e-05_jprb,1.3168e-05_jprb,1.5711e-05_jprb,1.8780e-05_jprb,2.5290e-05_jprb,&
&3.7179e-05_jprb,6.5468e-05_jprb,2.0654e-03_jprb/)
kao( :, 1,11, 3) = (/&
&1.1167e-06_jprb,2.7196e-06_jprb,4.8414e-06_jprb,7.5750e-06_jprb,1.1619e-05_jprb,1.6844e-05_jprb,&
&2.5920e-05_jprb,4.2497e-05_jprb,3.0648e-03_jprb/)
kao( :, 2,11, 3) = (/&
&1.5177e-06_jprb,3.5342e-06_jprb,5.4336e-06_jprb,8.4346e-06_jprb,1.1729e-05_jprb,1.8362e-05_jprb,&
&2.9194e-05_jprb,5.0129e-05_jprb,3.3976e-03_jprb/)
kao( :, 3,11, 3) = (/&
&2.0984e-06_jprb,4.8006e-06_jprb,6.5451e-06_jprb,9.5029e-06_jprb,1.3465e-05_jprb,1.9020e-05_jprb,&
&2.8692e-05_jprb,5.7928e-05_jprb,3.7050e-03_jprb/)
kao( :, 4,11, 3) = (/&
&2.9335e-06_jprb,6.8708e-06_jprb,8.4101e-06_jprb,1.0863e-05_jprb,1.4762e-05_jprb,2.0091e-05_jprb,&
&3.0371e-05_jprb,5.2028e-05_jprb,3.9809e-03_jprb/)
kao( :, 5,11, 3) = (/&
&4.1000e-06_jprb,9.6543e-06_jprb,1.1857e-05_jprb,1.3714e-05_jprb,1.6526e-05_jprb,2.1427e-05_jprb,&
&3.1464e-05_jprb,5.4245e-05_jprb,4.2143e-03_jprb/)
kao( :, 1,12, 3) = (/&
&1.1265e-06_jprb,2.5186e-06_jprb,4.3674e-06_jprb,6.5192e-06_jprb,9.8193e-06_jprb,1.4195e-05_jprb,&
&2.1669e-05_jprb,3.5591e-05_jprb,4.1354e-03_jprb/)
kao( :, 2,12, 3) = (/&
&1.5273e-06_jprb,3.2471e-06_jprb,4.8453e-06_jprb,7.4929e-06_jprb,9.9333e-06_jprb,1.5224e-05_jprb,&
&2.4490e-05_jprb,4.2520e-05_jprb,4.5631e-03_jprb/)
kao( :, 3,12, 3) = (/&
&2.0931e-06_jprb,4.4632e-06_jprb,5.8990e-06_jprb,8.1723e-06_jprb,1.1637e-05_jprb,1.5989e-05_jprb,&
&2.3803e-05_jprb,4.4958e-05_jprb,4.9406e-03_jprb/)
kao( :, 4,12, 3) = (/&
&2.8927e-06_jprb,6.3250e-06_jprb,7.6186e-06_jprb,9.4669e-06_jprb,1.2563e-05_jprb,1.7445e-05_jprb,&
&2.5222e-05_jprb,4.2668e-05_jprb,5.2603e-03_jprb/)
kao( :, 5,12, 3) = (/&
&3.9848e-06_jprb,8.7921e-06_jprb,1.0605e-05_jprb,1.2004e-05_jprb,1.4341e-05_jprb,1.8049e-05_jprb,&
&2.6521e-05_jprb,4.4754e-05_jprb,5.5165e-03_jprb/)
kao( :, 1,13, 3) = (/&
&1.1328e-06_jprb,2.3238e-06_jprb,3.9430e-06_jprb,5.6932e-06_jprb,8.4038e-06_jprb,1.1800e-05_jprb,&
&1.7829e-05_jprb,3.0820e-05_jprb,4.4819e-03_jprb/)
kao( :, 2,13, 3) = (/&
&1.5311e-06_jprb,3.0098e-06_jprb,4.3521e-06_jprb,6.6679e-06_jprb,8.7081e-06_jprb,1.2897e-05_jprb,&
&1.9883e-05_jprb,3.4493e-05_jprb,4.9164e-03_jprb/)
kao( :, 3,13, 3) = (/&
&2.0853e-06_jprb,4.1223e-06_jprb,5.4114e-06_jprb,7.2554e-06_jprb,1.0229e-05_jprb,1.3641e-05_jprb,&
&1.9729e-05_jprb,3.6438e-05_jprb,5.2852e-03_jprb/)
kao( :, 4,13, 3) = (/&
&2.8506e-06_jprb,5.8568e-06_jprb,6.9938e-06_jprb,8.4840e-06_jprb,1.0942e-05_jprb,1.5066e-05_jprb,&
&2.1270e-05_jprb,3.5313e-05_jprb,5.5871e-03_jprb/)
kao( :, 5,13, 3) = (/&
&3.8711e-06_jprb,8.0712e-06_jprb,9.6159e-06_jprb,1.0719e-05_jprb,1.2561e-05_jprb,1.5293e-05_jprb,&
&2.2681e-05_jprb,3.7058e-05_jprb,5.8266e-03_jprb/)
kao( :, 1, 1, 4) = (/&
&7.4893e-05_jprb,1.7660e-04_jprb,2.0743e-04_jprb,2.2345e-04_jprb,2.5541e-04_jprb,3.0113e-04_jprb,&
&4.0065e-04_jprb,5.1140e-04_jprb,1.9420e-04_jprb/)
kao( :, 2, 1, 4) = (/&
&1.0396e-04_jprb,2.3012e-04_jprb,2.6622e-04_jprb,2.8243e-04_jprb,2.9424e-04_jprb,3.3000e-04_jprb,&
&4.1387e-04_jprb,6.5618e-04_jprb,1.7248e-04_jprb/)
kao( :, 3, 1, 4) = (/&
&1.3874e-04_jprb,2.9171e-04_jprb,3.3413e-04_jprb,3.5198e-04_jprb,3.5734e-04_jprb,3.6401e-04_jprb,&
&4.2489e-04_jprb,6.4403e-04_jprb,1.9641e-04_jprb/)
kao( :, 4, 1, 4) = (/&
&1.7941e-04_jprb,3.6434e-04_jprb,4.1317e-04_jprb,4.3271e-04_jprb,4.3728e-04_jprb,4.3279e-04_jprb,&
&4.4184e-04_jprb,6.1293e-04_jprb,2.4660e-04_jprb/)
kao( :, 5, 1, 4) = (/&
&2.2524e-04_jprb,4.4700e-04_jprb,5.0389e-04_jprb,5.2899e-04_jprb,5.4228e-04_jprb,5.4473e-04_jprb,&
&5.3368e-04_jprb,5.6423e-04_jprb,3.1492e-04_jprb/)
kao( :, 1, 2, 4) = (/&
&5.8910e-05_jprb,1.3730e-04_jprb,1.6111e-04_jprb,1.7338e-04_jprb,1.9974e-04_jprb,2.3614e-04_jprb,&
&3.1448e-04_jprb,3.8866e-04_jprb,1.4405e-04_jprb/)
kao( :, 2, 2, 4) = (/&
&8.3036e-05_jprb,1.8135e-04_jprb,2.0964e-04_jprb,2.2070e-04_jprb,2.3158e-04_jprb,2.7057e-04_jprb,&
&3.3372e-04_jprb,5.4726e-04_jprb,1.2817e-04_jprb/)
kao( :, 3, 2, 4) = (/&
&1.1213e-04_jprb,2.3284e-04_jprb,2.6662e-04_jprb,2.8050e-04_jprb,2.8374e-04_jprb,2.9072e-04_jprb,&
&3.5956e-04_jprb,5.3062e-04_jprb,1.4567e-04_jprb/)
kao( :, 4, 2, 4) = (/&
&1.4639e-04_jprb,2.9331e-04_jprb,3.3229e-04_jprb,3.4773e-04_jprb,3.4771e-04_jprb,3.4598e-04_jprb,&
&3.5609e-04_jprb,5.3796e-04_jprb,1.8917e-04_jprb/)
kao( :, 5, 2, 4) = (/&
&1.8573e-04_jprb,3.6333e-04_jprb,4.0899e-04_jprb,4.2805e-04_jprb,4.3596e-04_jprb,4.3023e-04_jprb,&
&4.2036e-04_jprb,4.7310e-04_jprb,2.4106e-04_jprb/)
kao( :, 1, 3, 4) = (/&
&4.2697e-05_jprb,9.9737e-05_jprb,1.1762e-04_jprb,1.3175e-04_jprb,1.5206e-04_jprb,1.7738e-04_jprb,&
&2.2461e-04_jprb,3.0012e-04_jprb,9.0760e-05_jprb/)
kao( :, 2, 3, 4) = (/&
&6.1628e-05_jprb,1.3453e-04_jprb,1.5553e-04_jprb,1.6395e-04_jprb,1.7863e-04_jprb,2.1026e-04_jprb,&
&2.6559e-04_jprb,4.0665e-04_jprb,9.5213e-05_jprb/)
kao( :, 3, 3, 4) = (/&
&8.5155e-05_jprb,1.7580e-04_jprb,2.0156e-04_jprb,2.1203e-04_jprb,2.1267e-04_jprb,2.2935e-04_jprb,&
&2.8279e-04_jprb,4.3028e-04_jprb,1.1265e-04_jprb/)
kao( :, 4, 3, 4) = (/&
&1.1317e-04_jprb,2.2386e-04_jprb,2.5438e-04_jprb,2.6544e-04_jprb,2.6602e-04_jprb,2.6653e-04_jprb,&
&2.9745e-04_jprb,4.2745e-04_jprb,1.4173e-04_jprb/)
kao( :, 5, 3, 4) = (/&
&1.4597e-04_jprb,2.8045e-04_jprb,3.1649e-04_jprb,3.3077e-04_jprb,3.3240e-04_jprb,3.2175e-04_jprb,&
&3.2192e-04_jprb,4.1153e-04_jprb,1.7765e-04_jprb/)
kao( :, 1, 4, 4) = (/&
&2.9896e-05_jprb,7.0709e-05_jprb,8.4360e-05_jprb,9.7466e-05_jprb,1.0874e-04_jprb,1.3074e-04_jprb,&
&1.6227e-04_jprb,2.5464e-04_jprb,6.8134e-05_jprb/)
kao( :, 2, 4, 4) = (/&
&4.4341e-05_jprb,9.6962e-05_jprb,1.1247e-04_jprb,1.1929e-04_jprb,1.3785e-04_jprb,1.5834e-04_jprb,&
&2.0071e-04_jprb,2.9189e-04_jprb,7.8206e-05_jprb/)
kao( :, 3, 4, 4) = (/&
&6.2914e-05_jprb,1.2902e-04_jprb,1.4817e-04_jprb,1.5527e-04_jprb,1.5849e-04_jprb,1.8569e-04_jprb,&
&2.2497e-04_jprb,3.4124e-04_jprb,9.0845e-05_jprb/)
kao( :, 4, 4, 4) = (/&
&8.5677e-05_jprb,1.6689e-04_jprb,1.9068e-04_jprb,1.9916e-04_jprb,1.9978e-04_jprb,2.0155e-04_jprb,&
&2.4936e-04_jprb,3.5340e-04_jprb,1.0988e-04_jprb/)
kao( :, 5, 4, 4) = (/&
&1.1242e-04_jprb,2.1149e-04_jprb,2.3915e-04_jprb,2.5028e-04_jprb,2.4989e-04_jprb,2.4272e-04_jprb,&
&2.4831e-04_jprb,3.6709e-04_jprb,1.3381e-04_jprb/)
kao( :, 1, 5, 4) = (/&
&2.0688e-05_jprb,4.9203e-05_jprb,5.9785e-05_jprb,6.6990e-05_jprb,7.8124e-05_jprb,9.2624e-05_jprb,&
&1.2472e-04_jprb,2.0745e-04_jprb,6.1812e-05_jprb/)
kao( :, 2, 5, 4) = (/&
&3.1637e-05_jprb,6.9271e-05_jprb,8.0604e-05_jprb,9.0077e-05_jprb,1.0181e-04_jprb,1.1707e-04_jprb,&
&1.4853e-04_jprb,2.1722e-04_jprb,7.1005e-05_jprb/)
kao( :, 3, 5, 4) = (/&
&4.6076e-05_jprb,9.3625e-05_jprb,1.0769e-04_jprb,1.1334e-04_jprb,1.2174e-04_jprb,1.4414e-04_jprb,&
&1.7668e-04_jprb,2.5800e-04_jprb,8.3094e-05_jprb/)
kao( :, 4, 5, 4) = (/&
&6.4341e-05_jprb,1.2346e-04_jprb,1.4103e-04_jprb,1.4850e-04_jprb,1.4693e-04_jprb,1.5815e-04_jprb,&
&1.9286e-04_jprb,2.8817e-04_jprb,9.6701e-05_jprb/)
kao( :, 5, 5, 4) = (/&
&8.6238e-05_jprb,1.5868e-04_jprb,1.7942e-04_jprb,1.8707e-04_jprb,1.8806e-04_jprb,1.8319e-04_jprb,&
&2.0554e-04_jprb,2.8611e-04_jprb,1.1287e-04_jprb/)
kao( :, 1, 6, 4) = (/&
&1.4006e-05_jprb,3.3343e-05_jprb,4.0079e-05_jprb,4.5588e-05_jprb,5.4107e-05_jprb,6.6418e-05_jprb,&
&1.0066e-04_jprb,1.4196e-04_jprb,6.6243e-05_jprb/)
kao( :, 2, 6, 4) = (/&
&2.2071e-05_jprb,4.8614e-05_jprb,5.7228e-05_jprb,6.5093e-05_jprb,7.1721e-05_jprb,8.5635e-05_jprb,&
&1.0856e-04_jprb,1.8021e-04_jprb,7.5554e-05_jprb/)
kao( :, 3, 6, 4) = (/&
&3.3040e-05_jprb,6.6682e-05_jprb,7.6698e-05_jprb,8.2380e-05_jprb,9.3552e-05_jprb,1.0700e-04_jprb,&
&1.3596e-04_jprb,1.9405e-04_jprb,8.6063e-05_jprb/)
kao( :, 4, 6, 4) = (/&
&4.7386e-05_jprb,8.9793e-05_jprb,1.0237e-04_jprb,1.0759e-04_jprb,1.0965e-04_jprb,1.2726e-04_jprb,&
&1.5398e-04_jprb,2.2704e-04_jprb,9.8696e-05_jprb/)
kao( :, 5, 6, 4) = (/&
&6.5121e-05_jprb,1.1757e-04_jprb,1.3268e-04_jprb,1.3869e-04_jprb,1.4006e-04_jprb,1.3836e-04_jprb,&
&1.7051e-04_jprb,2.3669e-04_jprb,1.1305e-04_jprb/)
kao( :, 1, 7, 4) = (/&
&9.5061e-06_jprb,2.2311e-05_jprb,2.6088e-05_jprb,3.0162e-05_jprb,3.7877e-05_jprb,5.4505e-05_jprb,&
&7.5227e-05_jprb,1.1255e-04_jprb,8.3483e-05_jprb/)
kao( :, 2, 7, 4) = (/&
&1.5323e-05_jprb,3.3598e-05_jprb,4.0386e-05_jprb,4.3881e-05_jprb,5.0583e-05_jprb,6.2493e-05_jprb,&
&8.2842e-05_jprb,1.4322e-04_jprb,9.4311e-05_jprb/)
kao( :, 3, 7, 4) = (/&
&2.3596e-05_jprb,4.7494e-05_jprb,5.4556e-05_jprb,6.1372e-05_jprb,6.7015e-05_jprb,7.9350e-05_jprb,&
&9.7496e-05_jprb,1.4436e-04_jprb,1.0703e-04_jprb/)
kao( :, 4, 7, 4) = (/&
&3.4570e-05_jprb,6.4860e-05_jprb,7.3694e-05_jprb,7.7754e-05_jprb,8.4695e-05_jprb,9.7029e-05_jprb,&
&1.1678e-04_jprb,1.6858e-04_jprb,1.2127e-04_jprb/)
kao( :, 5, 7, 4) = (/&
&4.8551e-05_jprb,8.6609e-05_jprb,9.7619e-05_jprb,1.0164e-04_jprb,1.0226e-04_jprb,1.0885e-04_jprb,&
&1.3405e-04_jprb,1.9133e-04_jprb,1.3656e-04_jprb/)
kao( :, 1, 8, 4) = (/&
&6.7311e-06_jprb,1.4755e-05_jprb,1.6935e-05_jprb,2.1463e-05_jprb,3.1231e-05_jprb,4.0742e-05_jprb,&
&5.6656e-05_jprb,8.5927e-05_jprb,1.5049e-04_jprb/)
kao( :, 2, 8, 4) = (/&
&1.0838e-05_jprb,2.3183e-05_jprb,2.7453e-05_jprb,3.0553e-05_jprb,3.5694e-05_jprb,4.6374e-05_jprb,&
&6.9419e-05_jprb,1.0643e-04_jprb,1.6866e-04_jprb/)
kao( :, 3, 8, 4) = (/&
&1.6914e-05_jprb,3.3766e-05_jprb,3.8989e-05_jprb,4.4447e-05_jprb,4.8070e-05_jprb,5.7198e-05_jprb,&
&7.1116e-05_jprb,1.2478e-04_jprb,1.8779e-04_jprb/)
kao( :, 4, 8, 4) = (/&
&2.5195e-05_jprb,4.6972e-05_jprb,5.3026e-05_jprb,5.6927e-05_jprb,6.4565e-05_jprb,7.1923e-05_jprb,&
&9.0751e-05_jprb,1.2249e-04_jprb,2.0805e-04_jprb/)
kao( :, 5, 8, 4) = (/&
&3.5942e-05_jprb,6.3786e-05_jprb,7.1729e-05_jprb,7.3949e-05_jprb,7.6446e-05_jprb,8.8163e-05_jprb,&
&1.0367e-04_jprb,1.5461e-04_jprb,2.3067e-04_jprb/)
kao( :, 1, 9, 4) = (/&
&5.1599e-06_jprb,1.0081e-05_jprb,1.1772e-05_jprb,1.6698e-05_jprb,2.2821e-05_jprb,2.9936e-05_jprb,&
&4.2105e-05_jprb,6.2990e-05_jprb,5.8733e-04_jprb/)
kao( :, 2, 9, 4) = (/&
&8.0231e-06_jprb,1.6031e-05_jprb,1.8581e-05_jprb,2.0889e-05_jprb,2.6202e-05_jprb,3.8502e-05_jprb,&
&5.1188e-05_jprb,8.2231e-05_jprb,6.4455e-04_jprb/)
kao( :, 3, 9, 4) = (/&
&1.2365e-05_jprb,2.3962e-05_jprb,2.7785e-05_jprb,3.0574e-05_jprb,3.4959e-05_jprb,4.1433e-05_jprb,&
&5.7939e-05_jprb,9.7311e-05_jprb,7.0196e-04_jprb/)
kao( :, 4, 9, 4) = (/&
&1.8494e-05_jprb,3.4148e-05_jprb,3.8522e-05_jprb,4.2610e-05_jprb,4.6125e-05_jprb,5.4566e-05_jprb,&
&6.5066e-05_jprb,9.3543e-05_jprb,7.5838e-04_jprb/)
kao( :, 5, 9, 4) = (/&
&2.6560e-05_jprb,4.6839e-05_jprb,5.2429e-05_jprb,5.4183e-05_jprb,5.9609e-05_jprb,6.7149e-05_jprb,&
&7.9436e-05_jprb,1.1417e-04_jprb,8.1247e-04_jprb/)
kao( :, 1,10, 4) = (/&
&4.5845e-06_jprb,7.8051e-06_jprb,9.3693e-06_jprb,1.2991e-05_jprb,1.7572e-05_jprb,2.3437e-05_jprb,&
&3.3813e-05_jprb,4.9188e-05_jprb,3.3674e-03_jprb/)
kao( :, 2,10, 4) = (/&
&6.8084e-06_jprb,1.2034e-05_jprb,1.3688e-05_jprb,1.5733e-05_jprb,2.1211e-05_jprb,2.9098e-05_jprb,&
&3.8545e-05_jprb,6.3500e-05_jprb,3.6391e-03_jprb/)
kao( :, 3,10, 4) = (/&
&1.0062e-05_jprb,1.7982e-05_jprb,2.0409e-05_jprb,2.2663e-05_jprb,2.5613e-05_jprb,3.1784e-05_jprb,&
&4.7385e-05_jprb,7.3006e-05_jprb,3.8993e-03_jprb/)
kao( :, 4,10, 4) = (/&
&1.4658e-05_jprb,2.5727e-05_jprb,2.8782e-05_jprb,3.2310e-05_jprb,3.4485e-05_jprb,4.0752e-05_jprb,&
&4.8720e-05_jprb,8.2499e-05_jprb,4.1490e-03_jprb/)
kao( :, 5,10, 4) = (/&
&2.0786e-05_jprb,3.5657e-05_jprb,3.9659e-05_jprb,4.1123e-05_jprb,4.6983e-05_jprb,5.0556e-05_jprb,&
&6.3521e-05_jprb,8.4499e-05_jprb,4.3775e-03_jprb/)
kao( :, 1,11, 4) = (/&
&5.0356e-06_jprb,7.7353e-06_jprb,8.8833e-06_jprb,1.1452e-05_jprb,1.5243e-05_jprb,2.1044e-05_jprb,&
&2.8338e-05_jprb,4.9949e-05_jprb,7.2577e-03_jprb/)
kao( :, 2,11, 4) = (/&
&7.2423e-06_jprb,1.1514e-05_jprb,1.2798e-05_jprb,1.4086e-05_jprb,1.8007e-05_jprb,2.4558e-05_jprb,&
&3.3851e-05_jprb,5.2802e-05_jprb,7.8158e-03_jprb/)
kao( :, 3,11, 4) = (/&
&1.0309e-05_jprb,1.6653e-05_jprb,1.8407e-05_jprb,2.0089e-05_jprb,2.2296e-05_jprb,2.7018e-05_jprb,&
&3.8586e-05_jprb,6.0068e-05_jprb,8.3354e-03_jprb/)
kao( :, 4,11, 4) = (/&
&1.4421e-05_jprb,2.3379e-05_jprb,2.5740e-05_jprb,2.7750e-05_jprb,3.0309e-05_jprb,3.4851e-05_jprb,&
&4.1245e-05_jprb,6.8211e-05_jprb,8.8296e-03_jprb/)
kao( :, 5,11, 4) = (/&
&1.9663e-05_jprb,3.1842e-05_jprb,3.4991e-05_jprb,3.6140e-05_jprb,3.9688e-05_jprb,4.2983e-05_jprb,&
&5.3776e-05_jprb,6.9907e-05_jprb,9.2688e-03_jprb/)
kao( :, 1,12, 4) = (/&
&5.1165e-06_jprb,7.4029e-06_jprb,8.1941e-06_jprb,1.0138e-05_jprb,1.3490e-05_jprb,1.7256e-05_jprb,&
&2.4419e-05_jprb,4.0146e-05_jprb,9.9448e-03_jprb/)
kao( :, 2,12, 4) = (/&
&7.2283e-06_jprb,1.0802e-05_jprb,1.1887e-05_jprb,1.2642e-05_jprb,1.5734e-05_jprb,2.0542e-05_jprb,&
&2.7886e-05_jprb,4.3910e-05_jprb,1.0705e-02_jprb/)
kao( :, 3,12, 4) = (/&
&1.0065e-05_jprb,1.5284e-05_jprb,1.6642e-05_jprb,1.8157e-05_jprb,1.9448e-05_jprb,2.3207e-05_jprb,&
&3.2168e-05_jprb,5.3905e-05_jprb,1.1409e-02_jprb/)
kao( :, 4,12, 4) = (/&
&1.3731e-05_jprb,2.1142e-05_jprb,2.2780e-05_jprb,2.4378e-05_jprb,2.6665e-05_jprb,2.9738e-05_jprb,&
&3.5163e-05_jprb,5.5828e-05_jprb,1.2051e-02_jprb/)
kao( :, 5,12, 4) = (/&
&1.8328e-05_jprb,2.8382e-05_jprb,3.0850e-05_jprb,3.1430e-05_jprb,3.3929e-05_jprb,3.7016e-05_jprb,&
&4.5266e-05_jprb,5.8847e-05_jprb,1.2603e-02_jprb/)
kao( :, 1,13, 4) = (/&
&5.1628e-06_jprb,7.0476e-06_jprb,7.6783e-06_jprb,9.1901e-06_jprb,1.1659e-05_jprb,1.4990e-05_jprb,&
&2.0746e-05_jprb,3.1591e-05_jprb,1.0979e-02_jprb/)
kao( :, 2,13, 4) = (/&
&7.1656e-06_jprb,1.0090e-05_jprb,1.0951e-05_jprb,1.1562e-05_jprb,1.3750e-05_jprb,1.7398e-05_jprb,&
&2.3701e-05_jprb,3.7488e-05_jprb,1.1813e-02_jprb/)
kao( :, 3,13, 4) = (/&
&9.7810e-06_jprb,1.4159e-05_jprb,1.5003e-05_jprb,1.6207e-05_jprb,1.7175e-05_jprb,1.9965e-05_jprb,&
&2.7079e-05_jprb,4.3382e-05_jprb,1.2578e-02_jprb/)
kao( :, 4,13, 4) = (/&
&1.3104e-05_jprb,1.9253e-05_jprb,2.0395e-05_jprb,2.1436e-05_jprb,2.3261e-05_jprb,2.5640e-05_jprb,&
&2.9895e-05_jprb,4.6045e-05_jprb,1.3231e-02_jprb/)
kao( :, 5,13, 4) = (/&
&1.7208e-05_jprb,2.5546e-05_jprb,2.7424e-05_jprb,2.7535e-05_jprb,2.9380e-05_jprb,3.2546e-05_jprb,&
&3.8040e-05_jprb,4.9840e-05_jprb,1.3742e-02_jprb/)
kao( :, 1, 1, 5) = (/&
&3.1090e-04_jprb,4.1312e-04_jprb,4.5176e-04_jprb,4.6856e-04_jprb,4.5586e-04_jprb,4.3213e-04_jprb,&
&4.5397e-04_jprb,7.8015e-04_jprb,2.0103e-04_jprb/)
kao( :, 2, 1, 5) = (/&
&3.8398e-04_jprb,5.2122e-04_jprb,5.7336e-04_jprb,6.0217e-04_jprb,6.0591e-04_jprb,5.7511e-04_jprb,&
&5.3422e-04_jprb,6.1896e-04_jprb,2.8351e-04_jprb/)
kao( :, 3, 1, 5) = (/&
&4.6534e-04_jprb,6.4382e-04_jprb,7.1301e-04_jprb,7.5438e-04_jprb,7.7134e-04_jprb,7.6006e-04_jprb,&
&7.0811e-04_jprb,7.4234e-04_jprb,3.7763e-04_jprb/)
kao( :, 4, 1, 5) = (/&
&5.5987e-04_jprb,7.8442e-04_jprb,8.7478e-04_jprb,9.3078e-04_jprb,9.6145e-04_jprb,9.6632e-04_jprb,&
&9.4057e-04_jprb,8.7094e-04_jprb,4.7321e-04_jprb/)
kao( :, 5, 1, 5) = (/&
&6.6579e-04_jprb,9.4348e-04_jprb,1.0594e-03_jprb,1.1323e-03_jprb,1.1769e-03_jprb,1.1973e-03_jprb,&
&1.1941e-03_jprb,1.1720e-03_jprb,5.8670e-04_jprb/)
kao( :, 1, 2, 5) = (/&
&2.4736e-04_jprb,3.2724e-04_jprb,3.5306e-04_jprb,3.6178e-04_jprb,3.4912e-04_jprb,3.3979e-04_jprb,&
&3.6882e-04_jprb,6.4661e-04_jprb,1.4637e-04_jprb/)
kao( :, 2, 2, 5) = (/&
&3.1002e-04_jprb,4.1717e-04_jprb,4.5359e-04_jprb,4.7283e-04_jprb,4.7168e-04_jprb,4.4103e-04_jprb,&
&4.4124e-04_jprb,5.1519e-04_jprb,2.1389e-04_jprb/)
kao( :, 3, 2, 5) = (/&
&3.8079e-04_jprb,5.2107e-04_jprb,5.7062e-04_jprb,5.9973e-04_jprb,6.0662e-04_jprb,5.9325e-04_jprb,&
&5.3745e-04_jprb,5.8652e-04_jprb,2.8633e-04_jprb/)
kao( :, 4, 2, 5) = (/&
&4.6210e-04_jprb,6.4094e-04_jprb,7.0763e-04_jprb,7.4776e-04_jprb,7.6652e-04_jprb,7.5984e-04_jprb,&
&7.3202e-04_jprb,6.4140e-04_jprb,3.5290e-04_jprb/)
kao( :, 5, 2, 5) = (/&
&5.5546e-04_jprb,7.7925e-04_jprb,8.6616e-04_jprb,9.1863e-04_jprb,9.4674e-04_jprb,9.5490e-04_jprb,&
&9.4094e-04_jprb,9.1867e-04_jprb,4.4201e-04_jprb/)
kao( :, 1, 3, 5) = (/&
&1.8639e-04_jprb,2.4387e-04_jprb,2.5915e-04_jprb,2.5906e-04_jprb,2.4918e-04_jprb,2.5967e-04_jprb,&
&3.1653e-04_jprb,4.7580e-04_jprb,1.1679e-04_jprb/)
kao( :, 2, 3, 5) = (/&
&2.3798e-04_jprb,3.1564e-04_jprb,3.3906e-04_jprb,3.5000e-04_jprb,3.4157e-04_jprb,3.1943e-04_jprb,&
&3.2743e-04_jprb,4.5496e-04_jprb,1.5856e-04_jprb/)
kao( :, 3, 3, 5) = (/&
&2.9733e-04_jprb,4.0070e-04_jprb,4.3349e-04_jprb,4.5188e-04_jprb,4.5270e-04_jprb,4.3123e-04_jprb,&
&3.9880e-04_jprb,4.4081e-04_jprb,2.0446e-04_jprb/)
kao( :, 4, 3, 5) = (/&
&3.6501e-04_jprb,4.9946e-04_jprb,5.4499e-04_jprb,5.7170e-04_jprb,5.7932e-04_jprb,5.6633e-04_jprb,&
&5.2704e-04_jprb,5.1414e-04_jprb,2.5539e-04_jprb/)
kao( :, 5, 3, 5) = (/&
&4.4410e-04_jprb,6.1578e-04_jprb,6.7619e-04_jprb,7.1133e-04_jprb,7.2738e-04_jprb,7.2351e-04_jprb,&
&7.0138e-04_jprb,6.6673e-04_jprb,3.2169e-04_jprb/)
kao( :, 1, 4, 5) = (/&
&1.3808e-04_jprb,1.7775e-04_jprb,1.8565e-04_jprb,1.8174e-04_jprb,1.8202e-04_jprb,1.9738e-04_jprb,&
&2.6854e-04_jprb,3.3980e-04_jprb,9.6622e-05_jprb/)
kao( :, 2, 4, 5) = (/&
&1.7835e-04_jprb,2.3331e-04_jprb,2.4753e-04_jprb,2.5139e-04_jprb,2.3877e-04_jprb,2.3221e-04_jprb,&
&2.5394e-04_jprb,4.0618e-04_jprb,1.2075e-04_jprb/)
kao( :, 3, 4, 5) = (/&
&2.2702e-04_jprb,3.0170e-04_jprb,3.2275e-04_jprb,3.3261e-04_jprb,3.2998e-04_jprb,3.0635e-04_jprb,&
&3.0422e-04_jprb,3.7513e-04_jprb,1.4994e-04_jprb/)
kao( :, 4, 4, 5) = (/&
&2.8327e-04_jprb,3.8288e-04_jprb,4.1191e-04_jprb,4.2826e-04_jprb,4.2837e-04_jprb,4.1511e-04_jprb,&
&3.7299e-04_jprb,4.1488e-04_jprb,1.8740e-04_jprb/)
kao( :, 5, 4, 5) = (/&
&3.4778e-04_jprb,4.7798e-04_jprb,5.1863e-04_jprb,5.4065e-04_jprb,5.4665e-04_jprb,5.3624e-04_jprb,&
&5.0550e-04_jprb,4.5874e-04_jprb,2.3509e-04_jprb/)
kao( :, 1, 5, 5) = (/&
&1.0090e-04_jprb,1.2840e-04_jprb,1.3222e-04_jprb,1.3092e-04_jprb,1.3649e-04_jprb,1.6019e-04_jprb,&
&2.1671e-04_jprb,2.5303e-04_jprb,9.1217e-05_jprb/)
kao( :, 2, 5, 5) = (/&
&1.3290e-04_jprb,1.7161e-04_jprb,1.7952e-04_jprb,1.7693e-04_jprb,1.6957e-04_jprb,1.7378e-04_jprb,&
&2.2031e-04_jprb,3.2593e-04_jprb,1.0460e-04_jprb/)
kao( :, 3, 5, 5) = (/&
&1.7169e-04_jprb,2.2556e-04_jprb,2.3842e-04_jprb,2.4266e-04_jprb,2.3387e-04_jprb,2.1722e-04_jprb,&
&2.2376e-04_jprb,3.3249e-04_jprb,1.2312e-04_jprb/)
kao( :, 4, 5, 5) = (/&
&2.1761e-04_jprb,2.9095e-04_jprb,3.1013e-04_jprb,3.1776e-04_jprb,3.1556e-04_jprb,2.9734e-04_jprb,&
&2.7621e-04_jprb,3.0674e-04_jprb,1.4846e-04_jprb/)
kao( :, 5, 5, 5) = (/&
&2.6974e-04_jprb,3.6873e-04_jprb,3.9640e-04_jprb,4.0873e-04_jprb,4.0796e-04_jprb,3.9425e-04_jprb,&
&3.6157e-04_jprb,3.6174e-04_jprb,1.8146e-04_jprb/)
kao( :, 1, 6, 5) = (/&
&7.2092e-05_jprb,9.1048e-05_jprb,9.3429e-05_jprb,9.5226e-05_jprb,1.0150e-04_jprb,1.3173e-04_jprb,&
&1.4984e-04_jprb,1.9196e-04_jprb,9.8397e-05_jprb/)
kao( :, 2, 6, 5) = (/&
&9.7448e-05_jprb,1.2423e-04_jprb,1.2792e-04_jprb,1.2413e-04_jprb,1.2424e-04_jprb,1.3383e-04_jprb,&
&1.7960e-04_jprb,2.4434e-04_jprb,1.1133e-04_jprb/)
kao( :, 3, 6, 5) = (/&
&1.2736e-04_jprb,1.6584e-04_jprb,1.7360e-04_jprb,1.7200e-04_jprb,1.6167e-04_jprb,1.5892e-04_jprb,&
&1.7153e-04_jprb,2.8218e-04_jprb,1.2781e-04_jprb/)
kao( :, 4, 6, 5) = (/&
&1.6376e-04_jprb,2.1742e-04_jprb,2.3003e-04_jprb,2.3266e-04_jprb,2.2686e-04_jprb,2.0723e-04_jprb,&
&2.0538e-04_jprb,2.5489e-04_jprb,1.4690e-04_jprb/)
kao( :, 5, 6, 5) = (/&
&2.0555e-04_jprb,2.7960e-04_jprb,2.9861e-04_jprb,3.0501e-04_jprb,3.0003e-04_jprb,2.8746e-04_jprb,&
&2.5983e-04_jprb,2.8313e-04_jprb,1.7007e-04_jprb/)
kao( :, 1, 7, 5) = (/&
&5.0915e-05_jprb,6.4096e-05_jprb,6.5839e-05_jprb,7.0435e-05_jprb,8.2474e-05_jprb,1.0016e-04_jprb,&
&1.1360e-04_jprb,1.4590e-04_jprb,1.4032e-04_jprb/)
kao( :, 2, 7, 5) = (/&
&7.0625e-05_jprb,8.9097e-05_jprb,9.0314e-05_jprb,8.9429e-05_jprb,9.3251e-05_jprb,1.0724e-04_jprb,&
&1.4912e-04_jprb,1.8863e-04_jprb,1.5518e-04_jprb/)
kao( :, 3, 7, 5) = (/&
&9.4098e-05_jprb,1.2125e-04_jprb,1.2537e-04_jprb,1.2091e-04_jprb,1.1603e-04_jprb,1.1857e-04_jprb,&
&1.4624e-04_jprb,2.2506e-04_jprb,1.7262e-04_jprb/)
kao( :, 4, 7, 5) = (/&
&1.2191e-04_jprb,1.6102e-04_jprb,1.6901e-04_jprb,1.6848e-04_jprb,1.5829e-04_jprb,1.4830e-04_jprb,&
&1.5156e-04_jprb,2.2031e-04_jprb,1.9339e-04_jprb/)
kao( :, 5, 7, 5) = (/&
&1.5529e-04_jprb,2.0973e-04_jprb,2.2297e-04_jprb,2.2562e-04_jprb,2.1894e-04_jprb,2.0410e-04_jprb,&
&1.8782e-04_jprb,2.1024e-04_jprb,2.1671e-04_jprb/)
kao( :, 1, 8, 5) = (/&
&3.6049e-05_jprb,4.5291e-05_jprb,4.7754e-05_jprb,5.1919e-05_jprb,6.1186e-05_jprb,6.9190e-05_jprb,&
&8.4378e-05_jprb,1.1648e-04_jprb,2.7572e-04_jprb/)
kao( :, 2, 8, 5) = (/&
&5.1045e-05_jprb,6.3896e-05_jprb,6.4272e-05_jprb,6.5150e-05_jprb,6.9954e-05_jprb,8.8868e-05_jprb,&
&1.0162e-04_jprb,1.4598e-04_jprb,3.0000e-04_jprb/)
kao( :, 3, 8, 5) = (/&
&6.9216e-05_jprb,8.8252e-05_jprb,9.0050e-05_jprb,8.5873e-05_jprb,8.5359e-05_jprb,9.1693e-05_jprb,&
&1.2432e-04_jprb,1.5741e-04_jprb,3.2619e-04_jprb/)
kao( :, 4, 8, 5) = (/&
&9.0719e-05_jprb,1.1854e-04_jprb,1.2391e-04_jprb,1.2089e-04_jprb,1.1160e-04_jprb,1.0845e-04_jprb,&
&1.1912e-04_jprb,1.9063e-04_jprb,3.5459e-04_jprb/)
kao( :, 5, 8, 5) = (/&
&1.1702e-04_jprb,1.5606e-04_jprb,1.6531e-04_jprb,1.6622e-04_jprb,1.5932e-04_jprb,1.4248e-04_jprb,&
&1.4183e-04_jprb,1.7131e-04_jprb,3.8497e-04_jprb/)
kao( :, 1, 9, 5) = (/&
&2.5866e-05_jprb,3.2320e-05_jprb,3.4576e-05_jprb,3.8709e-05_jprb,4.6229e-05_jprb,5.2438e-05_jprb,&
&6.5503e-05_jprb,9.3730e-05_jprb,1.1703e-03_jprb/)
kao( :, 2, 9, 5) = (/&
&3.7130e-05_jprb,4.6042e-05_jprb,4.6409e-05_jprb,4.8783e-05_jprb,5.6170e-05_jprb,6.7762e-05_jprb,&
&7.7225e-05_jprb,1.1273e-04_jprb,1.2364e-03_jprb/)
kao( :, 3, 9, 5) = (/&
&5.1057e-05_jprb,6.4238e-05_jprb,6.4747e-05_jprb,6.3009e-05_jprb,6.3858e-05_jprb,7.4779e-05_jprb,&
&9.9385e-05_jprb,1.2137e-04_jprb,1.3035e-03_jprb/)
kao( :, 4, 9, 5) = (/&
&6.7872e-05_jprb,8.7074e-05_jprb,9.0171e-05_jprb,8.6365e-05_jprb,8.1775e-05_jprb,8.1150e-05_jprb,&
&1.0091e-04_jprb,1.5846e-04_jprb,1.3706e-03_jprb/)
kao( :, 5, 9, 5) = (/&
&8.8212e-05_jprb,1.1565e-04_jprb,1.2170e-04_jprb,1.2148e-04_jprb,1.1255e-04_jprb,1.0392e-04_jprb,&
&1.0391e-04_jprb,1.5035e-04_jprb,1.4393e-03_jprb/)
kao( :, 1,10, 5) = (/&
&2.0052e-05_jprb,2.4599e-05_jprb,2.6224e-05_jprb,2.9775e-05_jprb,3.4377e-05_jprb,3.9753e-05_jprb,&
&5.1870e-05_jprb,7.0614e-05_jprb,6.9310e-03_jprb/)
kao( :, 2,10, 5) = (/&
&2.8642e-05_jprb,3.5006e-05_jprb,3.5601e-05_jprb,3.7670e-05_jprb,4.4192e-05_jprb,5.0297e-05_jprb,&
&6.0753e-05_jprb,8.8409e-05_jprb,7.2473e-03_jprb/)
kao( :, 3,10, 5) = (/&
&3.9509e-05_jprb,4.8803e-05_jprb,4.8668e-05_jprb,4.7951e-05_jprb,5.0708e-05_jprb,6.1469e-05_jprb,&
&7.4297e-05_jprb,9.6176e-05_jprb,7.5424e-03_jprb/)
kao( :, 4,10, 5) = (/&
&5.2822e-05_jprb,6.6323e-05_jprb,6.7918e-05_jprb,6.3993e-05_jprb,6.2062e-05_jprb,6.4519e-05_jprb,&
&8.5147e-05_jprb,1.1230e-04_jprb,7.8121e-03_jprb/)
kao( :, 5,10, 5) = (/&
&6.8969e-05_jprb,8.8314e-05_jprb,9.1957e-05_jprb,9.0701e-05_jprb,8.2062e-05_jprb,7.8779e-05_jprb,&
&8.1888e-05_jprb,1.3051e-04_jprb,8.0714e-03_jprb/)
kao( :, 1,11, 5) = (/&
&1.9311e-05_jprb,2.2943e-05_jprb,2.3712e-05_jprb,2.6076e-05_jprb,2.9763e-05_jprb,3.4761e-05_jprb,&
&4.2561e-05_jprb,5.7624e-05_jprb,1.5187e-02_jprb/)
kao( :, 2,11, 5) = (/&
&2.6757e-05_jprb,3.2178e-05_jprb,3.2098e-05_jprb,3.3425e-05_jprb,3.7561e-05_jprb,4.3432e-05_jprb,&
&5.1256e-05_jprb,7.3332e-05_jprb,1.5840e-02_jprb/)
kao( :, 3,11, 5) = (/&
&3.6196e-05_jprb,4.4102e-05_jprb,4.3948e-05_jprb,4.2431e-05_jprb,4.4099e-05_jprb,5.1811e-05_jprb,&
&6.2145e-05_jprb,8.0656e-05_jprb,1.6449e-02_jprb/)
kao( :, 4,11, 5) = (/&
&4.7882e-05_jprb,5.9111e-05_jprb,6.0086e-05_jprb,5.7204e-05_jprb,5.4371e-05_jprb,5.5076e-05_jprb,&
&7.0526e-05_jprb,9.2945e-05_jprb,1.6989e-02_jprb/)
kao( :, 5,11, 5) = (/&
&6.2068e-05_jprb,7.8174e-05_jprb,8.0859e-05_jprb,7.9258e-05_jprb,7.2738e-05_jprb,6.8607e-05_jprb,&
&6.8925e-05_jprb,1.0616e-04_jprb,1.7481e-02_jprb/)
kao( :, 1,12, 5) = (/&
&1.8157e-05_jprb,2.1121e-05_jprb,2.1509e-05_jprb,2.2736e-05_jprb,2.6145e-05_jprb,3.0200e-05_jprb,&
&3.7064e-05_jprb,5.0458e-05_jprb,2.1164e-02_jprb/)
kao( :, 2,12, 5) = (/&
&2.4750e-05_jprb,2.9265e-05_jprb,2.8640e-05_jprb,2.9365e-05_jprb,3.1815e-05_jprb,3.7644e-05_jprb,&
&4.4258e-05_jprb,6.0893e-05_jprb,2.2083e-02_jprb/)
kao( :, 3,12, 5) = (/&
&3.3051e-05_jprb,3.9669e-05_jprb,3.9323e-05_jprb,3.7322e-05_jprb,3.8330e-05_jprb,4.3268e-05_jprb,&
&5.2953e-05_jprb,6.6459e-05_jprb,2.2904e-02_jprb/)
kao( :, 4,12, 5) = (/&
&4.3268e-05_jprb,5.2755e-05_jprb,5.3305e-05_jprb,5.0755e-05_jprb,4.7183e-05_jprb,4.7321e-05_jprb,&
&5.8905e-05_jprb,7.8211e-05_jprb,2.3625e-02_jprb/)
kao( :, 5,12, 5) = (/&
&5.5712e-05_jprb,6.9313e-05_jprb,7.1134e-05_jprb,6.9400e-05_jprb,6.4153e-05_jprb,5.9244e-05_jprb,&
&5.8683e-05_jprb,8.6772e-05_jprb,2.4304e-02_jprb/)
kao( :, 1,13, 5) = (/&
&1.7179e-05_jprb,1.9773e-05_jprb,1.9599e-05_jprb,2.0374e-05_jprb,2.3480e-05_jprb,2.5935e-05_jprb,&
&3.2097e-05_jprb,4.3807e-05_jprb,2.3722e-02_jprb/)
kao( :, 2,13, 5) = (/&
&2.3195e-05_jprb,2.7018e-05_jprb,2.6155e-05_jprb,2.6118e-05_jprb,2.7654e-05_jprb,3.2413e-05_jprb,&
&3.6439e-05_jprb,5.1480e-05_jprb,2.4748e-02_jprb/)
kao( :, 3,13, 5) = (/&
&3.0612e-05_jprb,3.6208e-05_jprb,3.5603e-05_jprb,3.3306e-05_jprb,3.3238e-05_jprb,3.6754e-05_jprb,&
&4.5231e-05_jprb,5.7370e-05_jprb,2.5646e-02_jprb/)
kao( :, 4,13, 5) = (/&
&3.9626e-05_jprb,4.7737e-05_jprb,4.7941e-05_jprb,4.5252e-05_jprb,4.1653e-05_jprb,4.0753e-05_jprb,&
&4.9320e-05_jprb,6.5660e-05_jprb,2.6492e-02_jprb/)
kao( :, 5,13, 5) = (/&
&5.0622e-05_jprb,6.2138e-05_jprb,6.3203e-05_jprb,6.1426e-05_jprb,5.6252e-05_jprb,5.1272e-05_jprb,&
&5.0385e-05_jprb,7.0865e-05_jprb,2.7279e-02_jprb/)
kao( :, 1, 1, 6) = (/&
&7.6668e-04_jprb,9.5698e-04_jprb,1.0451e-03_jprb,1.0706e-03_jprb,1.0458e-03_jprb,9.8544e-04_jprb,&
&8.4925e-04_jprb,7.0084e-04_jprb,3.6790e-04_jprb/)
kao( :, 2, 1, 6) = (/&
&9.3715e-04_jprb,1.2033e-03_jprb,1.3264e-03_jprb,1.3678e-03_jprb,1.3579e-03_jprb,1.2955e-03_jprb,&
&1.2019e-03_jprb,1.0530e-03_jprb,4.9374e-04_jprb/)
kao( :, 3, 1, 6) = (/&
&1.1259e-03_jprb,1.4892e-03_jprb,1.6507e-03_jprb,1.7086e-03_jprb,1.7099e-03_jprb,1.6660e-03_jprb,&
&1.5468e-03_jprb,1.3572e-03_jprb,6.9469e-04_jprb/)
kao( :, 4, 1, 6) = (/&
&1.3346e-03_jprb,1.8150e-03_jprb,2.0125e-03_jprb,2.0930e-03_jprb,2.1054e-03_jprb,2.0604e-03_jprb,&
&1.9461e-03_jprb,1.7694e-03_jprb,9.3629e-04_jprb/)
kao( :, 5, 1, 6) = (/&
&1.5631e-03_jprb,2.1751e-03_jprb,2.4107e-03_jprb,2.5177e-03_jprb,2.5412e-03_jprb,2.4997e-03_jprb,&
&2.4003e-03_jprb,2.2329e-03_jprb,1.1943e-03_jprb/)
kao( :, 1, 2, 6) = (/&
&6.1736e-04_jprb,7.7957e-04_jprb,8.4495e-04_jprb,8.5822e-04_jprb,8.3168e-04_jprb,7.6710e-04_jprb,&
&6.8197e-04_jprb,6.1117e-04_jprb,2.7552e-04_jprb/)
kao( :, 2, 2, 6) = (/&
&7.6431e-04_jprb,9.9047e-04_jprb,1.0825e-03_jprb,1.1059e-03_jprb,1.0905e-03_jprb,1.0282e-03_jprb,&
&9.1763e-04_jprb,8.3788e-04_jprb,3.8116e-04_jprb/)
kao( :, 3, 2, 6) = (/&
&9.2906e-04_jprb,1.2346e-03_jprb,1.3561e-03_jprb,1.3925e-03_jprb,1.3898e-03_jprb,1.3440e-03_jprb,&
&1.2411e-03_jprb,1.1007e-03_jprb,5.2777e-04_jprb/)
kao( :, 4, 2, 6) = (/&
&1.1126e-03_jprb,1.5138e-03_jprb,1.6623e-03_jprb,1.7166e-03_jprb,1.7237e-03_jprb,1.6799e-03_jprb,&
&1.5813e-03_jprb,1.4262e-03_jprb,7.0852e-04_jprb/)
kao( :, 5, 2, 6) = (/&
&1.3161e-03_jprb,1.8216e-03_jprb,2.0023e-03_jprb,2.0780e-03_jprb,2.0918e-03_jprb,2.0576e-03_jprb,&
&1.9689e-03_jprb,1.8083e-03_jprb,9.0055e-04_jprb/)
kao( :, 1, 3, 6) = (/&
&4.6874e-04_jprb,5.9508e-04_jprb,6.3781e-04_jprb,6.4117e-04_jprb,6.1436e-04_jprb,5.4822e-04_jprb,&
&5.0421e-04_jprb,5.3533e-04_jprb,2.0334e-04_jprb/)
kao( :, 2, 3, 6) = (/&
&5.9055e-04_jprb,7.6700e-04_jprb,8.2890e-04_jprb,8.3946e-04_jprb,8.1795e-04_jprb,7.6034e-04_jprb,&
&6.7368e-04_jprb,6.0816e-04_jprb,2.8145e-04_jprb/)
kao( :, 3, 3, 6) = (/&
&7.2955e-04_jprb,9.6821e-04_jprb,1.0493e-03_jprb,1.0696e-03_jprb,1.0616e-03_jprb,1.0150e-03_jprb,&
&9.2112e-04_jprb,8.3960e-04_jprb,3.8605e-04_jprb/)
kao( :, 4, 3, 6) = (/&
&8.8621e-04_jprb,1.1995e-03_jprb,1.3001e-03_jprb,1.3322e-03_jprb,1.3333e-03_jprb,1.2938e-03_jprb,&
&1.2044e-03_jprb,1.0885e-03_jprb,5.0764e-04_jprb/)
kao( :, 5, 3, 6) = (/&
&1.0620e-03_jprb,1.4561e-03_jprb,1.5813e-03_jprb,1.6291e-03_jprb,1.6339e-03_jprb,1.6065e-03_jprb,&
&1.5265e-03_jprb,1.3705e-03_jprb,6.4701e-04_jprb/)
kao( :, 1, 4, 6) = (/&
&3.4631e-04_jprb,4.3892e-04_jprb,4.6539e-04_jprb,4.6252e-04_jprb,4.3395e-04_jprb,3.8559e-04_jprb,&
&3.5487e-04_jprb,4.4831e-04_jprb,1.5114e-04_jprb/)
kao( :, 2, 4, 6) = (/&
&4.4425e-04_jprb,5.7553e-04_jprb,6.1538e-04_jprb,6.1883e-04_jprb,5.9314e-04_jprb,5.4165e-04_jprb,&
&4.8640e-04_jprb,4.4227e-04_jprb,2.0515e-04_jprb/)
kao( :, 3, 4, 6) = (/&
&5.5883e-04_jprb,7.3740e-04_jprb,7.9031e-04_jprb,7.9974e-04_jprb,7.8639e-04_jprb,7.3691e-04_jprb,&
&6.4680e-04_jprb,6.1866e-04_jprb,2.7731e-04_jprb/)
kao( :, 4, 4, 6) = (/&
&6.8974e-04_jprb,9.2537e-04_jprb,9.9228e-04_jprb,1.0098e-03_jprb,1.0044e-03_jprb,9.6650e-04_jprb,&
&8.8358e-04_jprb,7.6484e-04_jprb,3.6266e-04_jprb/)
kao( :, 5, 4, 6) = (/&
&8.3990e-04_jprb,1.1361e-03_jprb,1.2201e-03_jprb,1.2496e-03_jprb,1.2472e-03_jprb,1.2194e-03_jprb,&
&1.1540e-03_jprb,1.0325e-03_jprb,4.6430e-04_jprb/)
kao( :, 1, 5, 6) = (/&
&2.5250e-04_jprb,3.1808e-04_jprb,3.3386e-04_jprb,3.2714e-04_jprb,3.0037e-04_jprb,2.7399e-04_jprb,&
&2.6791e-04_jprb,3.5704e-04_jprb,1.2908e-04_jprb/)
kao( :, 2, 5, 6) = (/&
&3.3043e-04_jprb,4.2488e-04_jprb,4.5012e-04_jprb,4.4889e-04_jprb,4.2554e-04_jprb,3.8200e-04_jprb,&
&3.3745e-04_jprb,3.7310e-04_jprb,1.6348e-04_jprb/)
kao( :, 3, 5, 6) = (/&
&4.2316e-04_jprb,5.5338e-04_jprb,5.8740e-04_jprb,5.9160e-04_jprb,5.7542e-04_jprb,5.3101e-04_jprb,&
&4.6257e-04_jprb,4.4755e-04_jprb,2.1057e-04_jprb/)
kao( :, 4, 5, 6) = (/&
&5.3209e-04_jprb,7.0370e-04_jprb,7.4784e-04_jprb,7.5773e-04_jprb,7.4773e-04_jprb,7.1163e-04_jprb,&
&6.4170e-04_jprb,5.6009e-04_jprb,2.6995e-04_jprb/)
kao( :, 5, 5, 6) = (/&
&6.5954e-04_jprb,8.7577e-04_jprb,9.3136e-04_jprb,9.4956e-04_jprb,9.4321e-04_jprb,9.1424e-04_jprb,&
&8.5021e-04_jprb,7.6505e-04_jprb,3.4403e-04_jprb/)
kao( :, 1, 6, 6) = (/&
&1.8041e-04_jprb,2.2490e-04_jprb,2.3336e-04_jprb,2.2464e-04_jprb,2.0963e-04_jprb,1.9425e-04_jprb,&
&2.2107e-04_jprb,2.7984e-04_jprb,1.4894e-04_jprb/)
kao( :, 2, 6, 6) = (/&
&2.4129e-04_jprb,3.0664e-04_jprb,3.2201e-04_jprb,3.1753e-04_jprb,2.9432e-04_jprb,2.6424e-04_jprb,&
&2.4608e-04_jprb,3.2717e-04_jprb,1.7150e-04_jprb/)
kao( :, 3, 6, 6) = (/&
&3.1506e-04_jprb,4.0665e-04_jprb,4.2823e-04_jprb,4.2924e-04_jprb,4.1092e-04_jprb,3.7075e-04_jprb,&
&3.2608e-04_jprb,3.0715e-04_jprb,1.9997e-04_jprb/)
kao( :, 4, 6, 6) = (/&
&4.0467e-04_jprb,5.2530e-04_jprb,5.5383e-04_jprb,5.5842e-04_jprb,5.4724e-04_jprb,5.1243e-04_jprb,&
&4.4254e-04_jprb,3.9888e-04_jprb,2.3767e-04_jprb/)
kao( :, 5, 6, 6) = (/&
&5.1106e-04_jprb,6.6417e-04_jprb,6.9974e-04_jprb,7.0967e-04_jprb,7.0212e-04_jprb,6.7161e-04_jprb,&
&6.0464e-04_jprb,5.2589e-04_jprb,2.8598e-04_jprb/)
kao( :, 1, 7, 6) = (/&
&1.2786e-04_jprb,1.5741e-04_jprb,1.6149e-04_jprb,1.5385e-04_jprb,1.4113e-04_jprb,1.3717e-04_jprb,&
&1.7921e-04_jprb,2.1884e-04_jprb,2.2335e-04_jprb/)
kao( :, 2, 7, 6) = (/&
&1.7476e-04_jprb,2.1914e-04_jprb,2.2777e-04_jprb,2.2084e-04_jprb,2.0229e-04_jprb,1.8812e-04_jprb,&
&1.8018e-04_jprb,2.7538e-04_jprb,2.4653e-04_jprb/)
kao( :, 3, 7, 6) = (/&
&2.3335e-04_jprb,2.9589e-04_jprb,3.0942e-04_jprb,3.0765e-04_jprb,2.8977e-04_jprb,2.5625e-04_jprb,&
&2.3275e-04_jprb,2.5170e-04_jprb,2.7339e-04_jprb/)
kao( :, 4, 7, 6) = (/&
&3.0583e-04_jprb,3.8902e-04_jprb,4.0709e-04_jprb,4.0819e-04_jprb,3.9588e-04_jprb,3.6356e-04_jprb,&
&3.1361e-04_jprb,2.9658e-04_jprb,3.0348e-04_jprb/)
kao( :, 5, 7, 6) = (/&
&3.9359e-04_jprb,5.0084e-04_jprb,5.2271e-04_jprb,5.2613e-04_jprb,5.1742e-04_jprb,4.8862e-04_jprb,&
&4.3693e-04_jprb,3.8092e-04_jprb,3.3962e-04_jprb/)
kao( :, 1, 8, 6) = (/&
&9.0775e-05_jprb,1.1005e-04_jprb,1.1099e-04_jprb,1.0509e-04_jprb,9.9650e-05_jprb,1.1055e-04_jprb,&
&1.4832e-04_jprb,1.7530e-04_jprb,4.7525e-04_jprb/)
kao( :, 2, 8, 6) = (/&
&1.2669e-04_jprb,1.5629e-04_jprb,1.6068e-04_jprb,1.5361e-04_jprb,1.4250e-04_jprb,1.3452e-04_jprb,&
&1.4933e-04_jprb,2.0310e-04_jprb,5.0480e-04_jprb/)
kao( :, 3, 8, 6) = (/&
&1.7285e-04_jprb,2.1483e-04_jprb,2.2274e-04_jprb,2.1837e-04_jprb,2.0107e-04_jprb,1.8034e-04_jprb,&
&1.6967e-04_jprb,2.2418e-04_jprb,5.3971e-04_jprb/)
kao( :, 4, 8, 6) = (/&
&2.3078e-04_jprb,2.8784e-04_jprb,2.9834e-04_jprb,2.9682e-04_jprb,2.8348e-04_jprb,2.5378e-04_jprb,&
&2.1967e-04_jprb,2.1775e-04_jprb,5.7949e-04_jprb/)
kao( :, 5, 8, 6) = (/&
&3.0207e-04_jprb,3.7730e-04_jprb,3.9003e-04_jprb,3.8941e-04_jprb,3.7851e-04_jprb,3.5314e-04_jprb,&
&3.0320e-04_jprb,2.7345e-04_jprb,6.2347e-04_jprb/)
kao( :, 1, 9, 6) = (/&
&6.4923e-05_jprb,7.7301e-05_jprb,7.6873e-05_jprb,7.2507e-05_jprb,7.2968e-05_jprb,8.8916e-05_jprb,&
&1.0626e-04_jprb,1.3047e-04_jprb,2.1479e-03_jprb/)
kao( :, 2, 9, 6) = (/&
&9.2060e-05_jprb,1.1144e-04_jprb,1.1301e-04_jprb,1.0673e-04_jprb,9.8741e-05_jprb,9.7585e-05_jprb,&
&1.2203e-04_jprb,1.5315e-04_jprb,2.2213e-03_jprb/)
kao( :, 3, 9, 6) = (/&
&1.2784e-04_jprb,1.5591e-04_jprb,1.5957e-04_jprb,1.5395e-04_jprb,1.4101e-04_jprb,1.2937e-04_jprb,&
&1.2902e-04_jprb,1.8269e-04_jprb,2.3004e-03_jprb/)
kao( :, 4, 9, 6) = (/&
&1.7362e-04_jprb,2.1265e-04_jprb,2.1819e-04_jprb,2.1460e-04_jprb,2.0088e-04_jprb,1.7687e-04_jprb,&
&1.6114e-04_jprb,1.7045e-04_jprb,2.3836e-03_jprb/)
kao( :, 5, 9, 6) = (/&
&2.3060e-04_jprb,2.8346e-04_jprb,2.9069e-04_jprb,2.8691e-04_jprb,2.7538e-04_jprb,2.5192e-04_jprb,&
&2.1567e-04_jprb,2.0242e-04_jprb,2.4645e-03_jprb/)
kao( :, 1,10, 6) = (/&
&4.9625e-05_jprb,5.7572e-05_jprb,5.6443e-05_jprb,5.4999e-05_jprb,5.9435e-05_jprb,7.0786e-05_jprb,&
&7.6295e-05_jprb,1.0573e-04_jprb,1.3224e-02_jprb/)
kao( :, 2,10, 6) = (/&
&7.0134e-05_jprb,8.3014e-05_jprb,8.2620e-05_jprb,7.7969e-05_jprb,7.3377e-05_jprb,8.0016e-05_jprb,&
&9.8395e-05_jprb,1.2266e-04_jprb,1.3476e-02_jprb/)
kao( :, 3,10, 6) = (/&
&9.7838e-05_jprb,1.1716e-04_jprb,1.1840e-04_jprb,1.1257e-04_jprb,1.0247e-04_jprb,9.5389e-05_jprb,&
&1.0384e-04_jprb,1.4488e-04_jprb,1.3733e-02_jprb/)
kao( :, 4,10, 6) = (/&
&1.3411e-04_jprb,1.6175e-04_jprb,1.6407e-04_jprb,1.5918e-04_jprb,1.4592e-04_jprb,1.2914e-04_jprb,&
&1.2234e-04_jprb,1.5601e-04_jprb,1.4015e-02_jprb/)
kao( :, 5,10, 6) = (/&
&1.7947e-04_jprb,2.1813e-04_jprb,2.2167e-04_jprb,2.1661e-04_jprb,2.0497e-04_jprb,1.8308e-04_jprb,&
&1.5705e-04_jprb,1.5556e-04_jprb,1.4285e-02_jprb/)
kao( :, 1,11, 6) = (/&
&4.6838e-05_jprb,5.3188e-05_jprb,5.1940e-05_jprb,4.9560e-05_jprb,5.2867e-05_jprb,6.0471e-05_jprb,&
&6.7131e-05_jprb,8.9235e-05_jprb,2.9682e-02_jprb/)
kao( :, 2,11, 6) = (/&
&6.4771e-05_jprb,7.4879e-05_jprb,7.3789e-05_jprb,6.9085e-05_jprb,6.5402e-05_jprb,6.9078e-05_jprb,&
&8.2402e-05_jprb,9.7823e-05_jprb,3.0214e-02_jprb/)
kao( :, 3,11, 6) = (/&
&8.8977e-05_jprb,1.0443e-04_jprb,1.0449e-04_jprb,9.8837e-05_jprb,8.9325e-05_jprb,8.2564e-05_jprb,&
&9.0256e-05_jprb,1.2264e-04_jprb,3.0751e-02_jprb/)
kao( :, 4,11, 6) = (/&
&1.2031e-04_jprb,1.4341e-04_jprb,1.4439e-04_jprb,1.3909e-04_jprb,1.2684e-04_jprb,1.1148e-04_jprb,&
&1.0343e-04_jprb,1.2710e-04_jprb,3.1294e-02_jprb/)
kao( :, 5,11, 6) = (/&
&1.5966e-04_jprb,1.9217e-04_jprb,1.9445e-04_jprb,1.8922e-04_jprb,1.7785e-04_jprb,1.5826e-04_jprb,&
&1.3426e-04_jprb,1.3572e-04_jprb,3.1828e-02_jprb/)
kao( :, 1,12, 6) = (/&
&4.4013e-05_jprb,4.9051e-05_jprb,4.7310e-05_jprb,4.5083e-05_jprb,4.5655e-05_jprb,5.3046e-05_jprb,&
&5.5846e-05_jprb,7.3868e-05_jprb,4.2262e-02_jprb/)
kao( :, 2,12, 6) = (/&
&5.9811e-05_jprb,6.7905e-05_jprb,6.6450e-05_jprb,6.1482e-05_jprb,5.7471e-05_jprb,5.8427e-05_jprb,&
&7.0235e-05_jprb,8.1755e-05_jprb,4.3100e-02_jprb/)
kao( :, 3,12, 6) = (/&
&8.0771e-05_jprb,9.3483e-05_jprb,9.2712e-05_jprb,8.7290e-05_jprb,7.8335e-05_jprb,7.2055e-05_jprb,&
&7.5619e-05_jprb,1.0330e-04_jprb,4.3963e-02_jprb/)
kao( :, 4,12, 6) = (/&
&1.0778e-04_jprb,1.2684e-04_jprb,1.2706e-04_jprb,1.2188e-04_jprb,1.1092e-04_jprb,9.6993e-05_jprb,&
&8.8534e-05_jprb,1.0545e-04_jprb,4.4781e-02_jprb/)
kao( :, 5,12, 6) = (/&
&1.4170e-04_jprb,1.6874e-04_jprb,1.7020e-04_jprb,1.6546e-04_jprb,1.5470e-04_jprb,1.3786e-04_jprb,&
&1.1554e-04_jprb,1.1534e-04_jprb,4.5542e-02_jprb/)
kao( :, 1,13, 6) = (/&
&4.2090e-05_jprb,4.6101e-05_jprb,4.3965e-05_jprb,4.1016e-05_jprb,4.0300e-05_jprb,4.5499e-05_jprb,&
&4.8852e-05_jprb,6.1759e-05_jprb,4.8346e-02_jprb/)
kao( :, 2,13, 6) = (/&
&5.6243e-05_jprb,6.2753e-05_jprb,6.0819e-05_jprb,5.5713e-05_jprb,5.1322e-05_jprb,5.0494e-05_jprb,&
&6.0604e-05_jprb,6.8003e-05_jprb,4.9462e-02_jprb/)
kao( :, 3,13, 6) = (/&
&7.4458e-05_jprb,8.4643e-05_jprb,8.3343e-05_jprb,7.8251e-05_jprb,6.9869e-05_jprb,6.3030e-05_jprb,&
&6.3206e-05_jprb,8.7133e-05_jprb,5.0553e-02_jprb/)
kao( :, 4,13, 6) = (/&
&9.7702e-05_jprb,1.1298e-04_jprb,1.1246e-04_jprb,1.0753e-04_jprb,9.7507e-05_jprb,8.4857e-05_jprb,&
&7.6788e-05_jprb,8.6167e-05_jprb,5.1568e-02_jprb/)
kao( :, 5,13, 6) = (/&
&1.2694e-04_jprb,1.4871e-04_jprb,1.4954e-04_jprb,1.4480e-04_jprb,1.3473e-04_jprb,1.1941e-04_jprb,&
&9.9413e-05_jprb,9.9688e-05_jprb,5.2519e-02_jprb/)
kao( :, 1, 1, 7) = (/&
&2.0564e-03_jprb,2.2357e-03_jprb,2.2921e-03_jprb,2.2746e-03_jprb,2.1808e-03_jprb,2.0118e-03_jprb,&
&1.7401e-03_jprb,1.3032e-03_jprb,9.5552e-04_jprb/)
kao( :, 2, 1, 7) = (/&
&2.5245e-03_jprb,2.7780e-03_jprb,2.8722e-03_jprb,2.8575e-03_jprb,2.7633e-03_jprb,2.6046e-03_jprb,&
&2.3222e-03_jprb,1.8131e-03_jprb,1.3540e-03_jprb/)
kao( :, 3, 1, 7) = (/&
&3.0325e-03_jprb,3.3773e-03_jprb,3.5284e-03_jprb,3.5242e-03_jprb,3.4302e-03_jprb,3.2547e-03_jprb,&
&2.9982e-03_jprb,2.6610e-03_jprb,1.7942e-03_jprb/)
kao( :, 4, 1, 7) = (/&
&3.5774e-03_jprb,4.0328e-03_jprb,4.2570e-03_jprb,4.2786e-03_jprb,4.1734e-03_jprb,3.9880e-03_jprb,&
&3.7418e-03_jprb,3.6443e-03_jprb,2.2977e-03_jprb/)
kao( :, 5, 1, 7) = (/&
&4.1551e-03_jprb,4.7493e-03_jprb,5.0612e-03_jprb,5.1084e-03_jprb,4.9896e-03_jprb,4.7828e-03_jprb,&
&4.5388e-03_jprb,4.6729e-03_jprb,2.8901e-03_jprb/)
kao( :, 1, 2, 7) = (/&
&1.7021e-03_jprb,1.8729e-03_jprb,1.9247e-03_jprb,1.9078e-03_jprb,1.8213e-03_jprb,1.6737e-03_jprb,&
&1.4152e-03_jprb,1.0410e-03_jprb,7.2465e-04_jprb/)
kao( :, 2, 2, 7) = (/&
&2.1085e-03_jprb,2.3473e-03_jprb,2.4306e-03_jprb,2.4189e-03_jprb,2.3372e-03_jprb,2.1946e-03_jprb,&
&1.9650e-03_jprb,1.4507e-03_jprb,1.0070e-03_jprb/)
kao( :, 3, 2, 7) = (/&
&2.5539e-03_jprb,2.8790e-03_jprb,3.0056e-03_jprb,3.0096e-03_jprb,2.9218e-03_jprb,2.7596e-03_jprb,&
&2.5256e-03_jprb,2.1562e-03_jprb,1.3358e-03_jprb/)
kao( :, 4, 2, 7) = (/&
&3.0381e-03_jprb,3.4689e-03_jprb,3.6518e-03_jprb,3.6778e-03_jprb,3.5757e-03_jprb,3.4032e-03_jprb,&
&3.1678e-03_jprb,2.9648e-03_jprb,1.7229e-03_jprb/)
kao( :, 5, 2, 7) = (/&
&3.5521e-03_jprb,4.1214e-03_jprb,4.3704e-03_jprb,4.4118e-03_jprb,4.3015e-03_jprb,4.1082e-03_jprb,&
&3.8609e-03_jprb,3.8044e-03_jprb,2.1852e-03_jprb/)
kao( :, 1, 3, 7) = (/&
&1.3207e-03_jprb,1.4650e-03_jprb,1.5081e-03_jprb,1.4879e-03_jprb,1.4138e-03_jprb,1.2859e-03_jprb,&
&1.0511e-03_jprb,7.8811e-04_jprb,5.1479e-04_jprb/)
kao( :, 2, 3, 7) = (/&
&1.6600e-03_jprb,1.8649e-03_jprb,1.9312e-03_jprb,1.9179e-03_jprb,1.8422e-03_jprb,1.7178e-03_jprb,&
&1.5069e-03_jprb,1.1268e-03_jprb,7.0924e-04_jprb/)
kao( :, 3, 3, 7) = (/&
&2.0389e-03_jprb,2.3205e-03_jprb,2.4185e-03_jprb,2.4171e-03_jprb,2.3339e-03_jprb,2.1929e-03_jprb,&
&1.9846e-03_jprb,1.6361e-03_jprb,9.4601e-04_jprb/)
kao( :, 4, 3, 7) = (/&
&2.4547e-03_jprb,2.8320e-03_jprb,2.9726e-03_jprb,2.9883e-03_jprb,2.8925e-03_jprb,2.7393e-03_jprb,&
&2.5305e-03_jprb,2.2455e-03_jprb,1.2306e-03_jprb/)
kao( :, 5, 3, 7) = (/&
&2.8997e-03_jprb,3.4059e-03_jprb,3.5906e-03_jprb,3.6183e-03_jprb,3.5177e-03_jprb,3.3454e-03_jprb,&
&3.1285e-03_jprb,2.9519e-03_jprb,1.5729e-03_jprb/)
kao( :, 1, 4, 7) = (/&
&9.9106e-04_jprb,1.1077e-03_jprb,1.1376e-03_jprb,1.1157e-03_jprb,1.0521e-03_jprb,9.4148e-04_jprb,&
&7.8510e-04_jprb,5.6824e-04_jprb,3.5975e-04_jprb/)
kao( :, 2, 4, 7) = (/&
&1.2690e-03_jprb,1.4351e-03_jprb,1.4835e-03_jprb,1.4646e-03_jprb,1.3997e-03_jprb,1.2889e-03_jprb,&
&1.0960e-03_jprb,8.9289e-04_jprb,4.9353e-04_jprb/)
kao( :, 3, 4, 7) = (/&
&1.5842e-03_jprb,1.8142e-03_jprb,1.8866e-03_jprb,1.8780e-03_jprb,1.8013e-03_jprb,1.6820e-03_jprb,&
&1.5023e-03_jprb,1.1830e-03_jprb,6.6203e-04_jprb/)
kao( :, 4, 4, 7) = (/&
&1.9340e-03_jprb,2.2471e-03_jprb,2.3499e-03_jprb,2.3511e-03_jprb,2.2648e-03_jprb,2.1322e-03_jprb,&
&1.9509e-03_jprb,1.6764e-03_jprb,8.7194e-04_jprb/)
kao( :, 5, 4, 7) = (/&
&2.3113e-03_jprb,2.7351e-03_jprb,2.8762e-03_jprb,2.8805e-03_jprb,2.7879e-03_jprb,2.6395e-03_jprb,&
&2.4567e-03_jprb,2.2403e-03_jprb,1.1262e-03_jprb/)
kao( :, 1, 5, 7) = (/&
&7.3127e-04_jprb,8.2296e-04_jprb,8.4087e-04_jprb,8.1934e-04_jprb,7.6237e-04_jprb,6.6355e-04_jprb,&
&5.7712e-04_jprb,4.2586e-04_jprb,2.6106e-04_jprb/)
kao( :, 2, 5, 7) = (/&
&9.5564e-04_jprb,1.0866e-03_jprb,1.1175e-03_jprb,1.0975e-03_jprb,1.0423e-03_jprb,9.4115e-04_jprb,&
&7.8089e-04_jprb,7.0271e-04_jprb,3.5186e-04_jprb/)
kao( :, 3, 5, 7) = (/&
&1.2139e-03_jprb,1.3968e-03_jprb,1.4447e-03_jprb,1.4289e-03_jprb,1.3656e-03_jprb,1.2642e-03_jprb,&
&1.1044e-03_jprb,8.5519e-04_jprb,4.7090e-04_jprb/)
kao( :, 4, 5, 7) = (/&
&1.5030e-03_jprb,1.7556e-03_jprb,1.8265e-03_jprb,1.8139e-03_jprb,1.7423e-03_jprb,1.6256e-03_jprb,&
&1.4668e-03_jprb,1.2302e-03_jprb,6.2262e-04_jprb/)
kao( :, 5, 5, 7) = (/&
&1.8204e-03_jprb,2.1651e-03_jprb,2.2625e-03_jprb,2.2502e-03_jprb,2.1716e-03_jprb,2.0469e-03_jprb,&
&1.8925e-03_jprb,1.6626e-03_jprb,8.1240e-04_jprb/)
kao( :, 1, 6, 7) = (/&
&5.2529e-04_jprb,5.9432e-04_jprb,6.0352e-04_jprb,5.8305e-04_jprb,5.3304e-04_jprb,4.5328e-04_jprb,&
&4.1878e-04_jprb,3.5780e-04_jprb,2.4217e-04_jprb/)
kao( :, 2, 6, 7) = (/&
&7.0212e-04_jprb,8.0206e-04_jprb,8.1885e-04_jprb,8.0064e-04_jprb,7.5267e-04_jprb,6.6720e-04_jprb,&
&5.4925e-04_jprb,4.7137e-04_jprb,2.9304e-04_jprb/)
kao( :, 3, 6, 7) = (/&
&9.0974e-04_jprb,1.0505e-03_jprb,1.0784e-03_jprb,1.0608e-03_jprb,1.0082e-03_jprb,9.2191e-04_jprb,&
&7.8184e-04_jprb,6.5554e-04_jprb,3.6650e-04_jprb/)
kao( :, 4, 6, 7) = (/&
&1.1453e-03_jprb,1.3423e-03_jprb,1.3852e-03_jprb,1.3677e-03_jprb,1.3077e-03_jprb,1.2097e-03_jprb,&
&1.0767e-03_jprb,8.5645e-04_jprb,4.6653e-04_jprb/)
kao( :, 5, 6, 7) = (/&
&1.4081e-03_jprb,1.6785e-03_jprb,1.7408e-03_jprb,1.7212e-03_jprb,1.6525e-03_jprb,1.5502e-03_jprb,&
&1.4183e-03_jprb,1.2157e-03_jprb,5.9973e-04_jprb/)
kao( :, 1, 7, 7) = (/&
&3.7120e-04_jprb,4.2080e-04_jprb,4.2477e-04_jprb,4.0604e-04_jprb,3.6355e-04_jprb,3.1468e-04_jprb,&
&2.7452e-04_jprb,3.0003e-04_jprb,3.4329e-04_jprb/)
kao( :, 2, 7, 7) = (/&
&5.0811e-04_jprb,5.8113e-04_jprb,5.8975e-04_jprb,5.7433e-04_jprb,5.3282e-04_jprb,4.5716e-04_jprb,&
&3.8591e-04_jprb,3.1558e-04_jprb,3.8021e-04_jprb/)
kao( :, 3, 7, 7) = (/&
&6.7189e-04_jprb,7.7708e-04_jprb,7.9243e-04_jprb,7.7528e-04_jprb,7.3224e-04_jprb,6.5998e-04_jprb,&
&5.4384e-04_jprb,5.0808e-04_jprb,4.2510e-04_jprb/)
kao( :, 4, 7, 7) = (/&
&8.6172e-04_jprb,1.0111e-03_jprb,1.0357e-03_jprb,1.0171e-03_jprb,9.6771e-04_jprb,8.8863e-04_jprb,&
&7.7053e-04_jprb,5.9901e-04_jprb,4.8327e-04_jprb/)
kao( :, 5, 7, 7) = (/&
&1.0762e-03_jprb,1.2838e-03_jprb,1.3208e-03_jprb,1.3007e-03_jprb,1.2428e-03_jprb,1.1566e-03_jprb,&
&1.0378e-03_jprb,8.6101e-04_jprb,5.6256e-04_jprb/)
kao( :, 1, 8, 7) = (/&
&2.6005e-04_jprb,2.9445e-04_jprb,2.9544e-04_jprb,2.7954e-04_jprb,2.4583e-04_jprb,2.1647e-04_jprb,&
&1.8002e-04_jprb,2.3598e-04_jprb,7.9092e-04_jprb/)
kao( :, 2, 8, 7) = (/&
&3.6459e-04_jprb,4.1637e-04_jprb,4.2010e-04_jprb,4.0556e-04_jprb,3.7047e-04_jprb,3.0940e-04_jprb,&
&2.7524e-04_jprb,2.5435e-04_jprb,8.3476e-04_jprb/)
kao( :, 3, 8, 7) = (/&
&4.9221e-04_jprb,5.6877e-04_jprb,5.7633e-04_jprb,5.6089e-04_jprb,5.2598e-04_jprb,4.6466e-04_jprb,&
&3.7776e-04_jprb,3.4121e-04_jprb,8.7965e-04_jprb/)
kao( :, 4, 8, 7) = (/&
&6.4351e-04_jprb,7.5336e-04_jprb,7.6684e-04_jprb,7.4955e-04_jprb,7.0992e-04_jprb,6.4867e-04_jprb,&
&5.4671e-04_jprb,4.4943e-04_jprb,9.3048e-04_jprb/)
kao( :, 5, 8, 7) = (/&
&8.1696e-04_jprb,9.7167e-04_jprb,9.9275e-04_jprb,9.7485e-04_jprb,9.2841e-04_jprb,8.5440e-04_jprb,&
&7.5642e-04_jprb,5.9342e-04_jprb,9.8996e-04_jprb/)
kao( :, 1, 9, 7) = (/&
&1.8087e-04_jprb,2.0393e-04_jprb,2.0319e-04_jprb,1.8996e-04_jprb,1.6599e-04_jprb,1.4845e-04_jprb,&
&1.4517e-04_jprb,1.8943e-04_jprb,3.7840e-03_jprb/)
kao( :, 2, 9, 7) = (/&
&2.5947e-04_jprb,2.9518e-04_jprb,2.9598e-04_jprb,2.8323e-04_jprb,2.5237e-04_jprb,2.1334e-04_jprb,&
&1.9297e-04_jprb,2.0265e-04_jprb,3.8746e-03_jprb/)
kao( :, 3, 9, 7) = (/&
&3.5788e-04_jprb,4.1170e-04_jprb,4.1507e-04_jprb,4.0085e-04_jprb,3.7117e-04_jprb,3.1718e-04_jprb,&
&2.6164e-04_jprb,2.2715e-04_jprb,3.9645e-03_jprb/)
kao( :, 4, 9, 7) = (/&
&4.7699e-04_jprb,5.5569e-04_jprb,5.6204e-04_jprb,5.4699e-04_jprb,5.1526e-04_jprb,4.6408e-04_jprb,&
&3.7784e-04_jprb,3.4199e-04_jprb,4.0560e-03_jprb/)
kao( :, 5, 9, 7) = (/&
&6.1621e-04_jprb,7.2836e-04_jprb,7.3953e-04_jprb,7.2389e-04_jprb,6.8675e-04_jprb,6.2690e-04_jprb,&
&5.4244e-04_jprb,4.1506e-04_jprb,4.1481e-03_jprb/)
kao( :, 1,10, 7) = (/&
&1.3094e-04_jprb,1.4617e-04_jprb,1.4409e-04_jprb,1.3166e-04_jprb,1.1671e-04_jprb,1.0840e-04_jprb,&
&1.1994e-04_jprb,1.5334e-04_jprb,2.4678e-02_jprb/)
kao( :, 2,10, 7) = (/&
&1.9036e-04_jprb,2.1493e-04_jprb,2.1399e-04_jprb,2.0239e-04_jprb,1.7779e-04_jprb,1.5202e-04_jprb,&
&1.3461e-04_jprb,1.6391e-04_jprb,2.4818e-02_jprb/)
kao( :, 3,10, 7) = (/&
&2.6670e-04_jprb,3.0451e-04_jprb,3.0518e-04_jprb,2.9252e-04_jprb,2.6713e-04_jprb,2.2545e-04_jprb,&
&1.9430e-04_jprb,1.7654e-04_jprb,2.4944e-02_jprb/)
kao( :, 4,10, 7) = (/&
&3.6077e-04_jprb,4.1729e-04_jprb,4.1982e-04_jprb,4.0619e-04_jprb,3.7979e-04_jprb,3.3605e-04_jprb,&
&2.6665e-04_jprb,2.5064e-04_jprb,2.5043e-02_jprb/)
kao( :, 5,10, 7) = (/&
&4.7368e-04_jprb,5.5457e-04_jprb,5.6006e-04_jprb,5.4560e-04_jprb,5.1520e-04_jprb,4.6682e-04_jprb,&
&3.9587e-04_jprb,3.0490e-04_jprb,2.5182e-02_jprb/)
kao( :, 1,11, 7) = (/&
&1.1672e-04_jprb,1.2865e-04_jprb,1.2575e-04_jprb,1.1552e-04_jprb,1.0159e-04_jprb,9.2164e-05_jprb,&
&9.9270e-05_jprb,1.2653e-04_jprb,5.7559e-02_jprb/)
kao( :, 2,11, 7) = (/&
&1.6732e-04_jprb,1.8741e-04_jprb,1.8550e-04_jprb,1.7442e-04_jprb,1.5354e-04_jprb,1.3133e-04_jprb,&
&1.1767e-04_jprb,1.4329e-04_jprb,5.7684e-02_jprb/)
kao( :, 3,11, 7) = (/&
&2.3276e-04_jprb,2.6444e-04_jprb,2.6342e-04_jprb,2.5118e-04_jprb,2.2884e-04_jprb,1.9264e-04_jprb,&
&1.6524e-04_jprb,1.4558e-04_jprb,5.7855e-02_jprb/)
kao( :, 4,11, 7) = (/&
&3.1443e-04_jprb,3.6154e-04_jprb,3.6203e-04_jprb,3.4857e-04_jprb,3.2499e-04_jprb,2.8713e-04_jprb,&
&2.2934e-04_jprb,2.1182e-04_jprb,5.7981e-02_jprb/)
kao( :, 5,11, 7) = (/&
&4.1392e-04_jprb,4.8111e-04_jprb,4.8318e-04_jprb,4.6852e-04_jprb,4.4073e-04_jprb,3.9804e-04_jprb,&
&3.3719e-04_jprb,2.5664e-04_jprb,5.8015e-02_jprb/)
kao( :, 1,12, 7) = (/&
&1.0495e-04_jprb,1.1425e-04_jprb,1.1065e-04_jprb,1.0139e-04_jprb,8.8702e-05_jprb,8.0270e-05_jprb,&
&8.3227e-05_jprb,1.1035e-04_jprb,8.4777e-02_jprb/)
kao( :, 2,12, 7) = (/&
&1.4811e-04_jprb,1.6444e-04_jprb,1.6133e-04_jprb,1.5088e-04_jprb,1.3304e-04_jprb,1.1329e-04_jprb,&
&1.0211e-04_jprb,1.1814e-04_jprb,8.5052e-02_jprb/)
kao( :, 3,12, 7) = (/&
&2.0461e-04_jprb,2.3053e-04_jprb,2.2799e-04_jprb,2.1647e-04_jprb,1.9655e-04_jprb,1.6510e-04_jprb,&
&1.3813e-04_jprb,1.2052e-04_jprb,8.5320e-02_jprb/)
kao( :, 4,12, 7) = (/&
&2.7614e-04_jprb,3.1483e-04_jprb,3.1311e-04_jprb,3.0005e-04_jprb,2.7866e-04_jprb,2.4569e-04_jprb,&
&1.9595e-04_jprb,1.7650e-04_jprb,8.5551e-02_jprb/)
kao( :, 5,12, 7) = (/&
&3.6369e-04_jprb,4.1945e-04_jprb,4.1876e-04_jprb,4.0374e-04_jprb,3.7792e-04_jprb,3.3990e-04_jprb,&
&2.8821e-04_jprb,2.1660e-04_jprb,8.5586e-02_jprb/)
kao( :, 1,13, 7) = (/&
&9.6451e-05_jprb,1.0341e-04_jprb,9.9264e-05_jprb,9.0436e-05_jprb,7.8283e-05_jprb,7.1353e-05_jprb,&
&7.0038e-05_jprb,8.7127e-05_jprb,1.0017e-01_jprb/)
kao( :, 2,13, 7) = (/&
&1.3353e-04_jprb,1.4634e-04_jprb,1.4212e-04_jprb,1.3211e-04_jprb,1.1628e-04_jprb,9.7846e-05_jprb,&
&8.8593e-05_jprb,9.9520e-05_jprb,1.0066e-01_jprb/)
kao( :, 3,13, 7) = (/&
&1.8247e-04_jprb,2.0319e-04_jprb,1.9922e-04_jprb,1.8770e-04_jprb,1.6984e-04_jprb,1.4285e-04_jprb,&
&1.1822e-04_jprb,1.0096e-04_jprb,1.0114e-01_jprb/)
kao( :, 4,13, 7) = (/&
&2.4463e-04_jprb,2.7635e-04_jprb,2.7262e-04_jprb,2.5991e-04_jprb,2.4023e-04_jprb,2.1109e-04_jprb,&
&1.6739e-04_jprb,1.4711e-04_jprb,1.0151e-01_jprb/)
kao( :, 5,13, 7) = (/&
&3.2023e-04_jprb,3.6781e-04_jprb,3.6463e-04_jprb,3.4949e-04_jprb,3.2644e-04_jprb,2.9244e-04_jprb,&
&2.4737e-04_jprb,1.8188e-04_jprb,1.0162e-01_jprb/)
kao( :, 1, 1, 8) = (/&
&4.4239e-03_jprb,4.5519e-03_jprb,4.5724e-03_jprb,4.4178e-03_jprb,4.2198e-03_jprb,4.0058e-03_jprb,&
&3.6615e-03_jprb,3.0019e-03_jprb,2.7752e-03_jprb/)
kao( :, 2, 1, 8) = (/&
&5.3797e-03_jprb,5.6034e-03_jprb,5.6810e-03_jprb,5.5458e-03_jprb,5.3768e-03_jprb,5.2131e-03_jprb,&
&5.0349e-03_jprb,4.6587e-03_jprb,3.8056e-03_jprb/)
kao( :, 3, 1, 8) = (/&
&6.4347e-03_jprb,6.7859e-03_jprb,6.9273e-03_jprb,6.8482e-03_jprb,6.7118e-03_jprb,6.6177e-03_jprb,&
&6.6013e-03_jprb,6.5225e-03_jprb,5.0401e-03_jprb/)
kao( :, 4, 1, 8) = (/&
&7.5645e-03_jprb,8.0892e-03_jprb,8.3352e-03_jprb,8.3083e-03_jprb,8.2560e-03_jprb,8.2611e-03_jprb,&
&8.3847e-03_jprb,8.5252e-03_jprb,6.4996e-03_jprb/)
kao( :, 5, 1, 8) = (/&
&8.7680e-03_jprb,9.5130e-03_jprb,9.8898e-03_jprb,9.9473e-03_jprb,1.0011e-02_jprb,1.0143e-02_jprb,&
&1.0425e-02_jprb,1.0769e-02_jprb,8.2076e-03_jprb/)
kao( :, 1, 2, 8) = (/&
&3.8956e-03_jprb,4.0502e-03_jprb,4.0603e-03_jprb,3.9353e-03_jprb,3.7465e-03_jprb,3.4739e-03_jprb,&
&3.0905e-03_jprb,2.3943e-03_jprb,2.1184e-03_jprb/)
kao( :, 2, 2, 8) = (/&
&4.7918e-03_jprb,5.0484e-03_jprb,5.0971e-03_jprb,4.9960e-03_jprb,4.7901e-03_jprb,4.5311e-03_jprb,&
&4.2459e-03_jprb,3.8455e-03_jprb,2.9268e-03_jprb/)
kao( :, 3, 2, 8) = (/&
&5.7854e-03_jprb,6.1757e-03_jprb,6.2838e-03_jprb,6.2127e-03_jprb,6.0071e-03_jprb,5.7828e-03_jprb,&
&5.6083e-03_jprb,5.4427e-03_jprb,3.9021e-03_jprb/)
kao( :, 4, 2, 8) = (/&
&6.8580e-03_jprb,7.4217e-03_jprb,7.6327e-03_jprb,7.5901e-03_jprb,7.4062e-03_jprb,7.2358e-03_jprb,&
&7.1625e-03_jprb,7.2397e-03_jprb,5.0676e-03_jprb/)
kao( :, 5, 2, 8) = (/&
&8.0102e-03_jprb,8.7860e-03_jprb,9.1257e-03_jprb,9.1299e-03_jprb,8.9977e-03_jprb,8.9056e-03_jprb,&
&8.9466e-03_jprb,9.2132e-03_jprb,6.4234e-03_jprb/)
kao( :, 1, 3, 8) = (/&
&3.2185e-03_jprb,3.3667e-03_jprb,3.3683e-03_jprb,3.2709e-03_jprb,3.1158e-03_jprb,2.8506e-03_jprb,&
&2.4272e-03_jprb,1.7393e-03_jprb,1.4905e-03_jprb/)
kao( :, 2, 3, 8) = (/&
&4.0272e-03_jprb,4.2617e-03_jprb,4.2966e-03_jprb,4.2148e-03_jprb,4.0495e-03_jprb,3.7679e-03_jprb,&
&3.4096e-03_jprb,2.8817e-03_jprb,2.0706e-03_jprb/)
kao( :, 3, 3, 8) = (/&
&4.9255e-03_jprb,5.2838e-03_jprb,5.3750e-03_jprb,5.3109e-03_jprb,5.1338e-03_jprb,4.8398e-03_jprb,&
&4.5501e-03_jprb,4.1909e-03_jprb,2.7937e-03_jprb/)
kao( :, 4, 3, 8) = (/&
&5.9079e-03_jprb,6.4325e-03_jprb,6.6107e-03_jprb,6.5630e-03_jprb,6.3820e-03_jprb,6.0909e-03_jprb,&
&5.8611e-03_jprb,5.7562e-03_jprb,3.6692e-03_jprb/)
kao( :, 5, 3, 8) = (/&
&6.9696e-03_jprb,7.6975e-03_jprb,7.9877e-03_jprb,7.9811e-03_jprb,7.8040e-03_jprb,7.5290e-03_jprb,&
&7.3615e-03_jprb,7.4650e-03_jprb,4.7053e-03_jprb/)
kao( :, 1, 4, 8) = (/&
&2.5545e-03_jprb,2.6859e-03_jprb,2.6880e-03_jprb,2.6203e-03_jprb,2.4823e-03_jprb,2.2588e-03_jprb,&
&1.8322e-03_jprb,1.2713e-03_jprb,1.0214e-03_jprb/)
kao( :, 2, 4, 8) = (/&
&3.2572e-03_jprb,3.4677e-03_jprb,3.4957e-03_jprb,3.4378e-03_jprb,3.2931e-03_jprb,3.0601e-03_jprb,&
&2.6717e-03_jprb,2.0170e-03_jprb,1.4352e-03_jprb/)
kao( :, 3, 4, 8) = (/&
&4.0447e-03_jprb,4.3684e-03_jprb,4.4456e-03_jprb,4.3951e-03_jprb,4.2405e-03_jprb,3.9923e-03_jprb,&
&3.6333e-03_jprb,3.0944e-03_jprb,1.9579e-03_jprb/)
kao( :, 4, 4, 8) = (/&
&4.9198e-03_jprb,5.3921e-03_jprb,5.5389e-03_jprb,5.5062e-03_jprb,5.3434e-03_jprb,5.0807e-03_jprb,&
&4.7402e-03_jprb,4.4587e-03_jprb,2.6028e-03_jprb/)
kao( :, 5, 4, 8) = (/&
&5.8819e-03_jprb,6.5317e-03_jprb,6.7822e-03_jprb,6.7765e-03_jprb,6.6162e-03_jprb,6.3253e-03_jprb,&
&5.9954e-03_jprb,5.8840e-03_jprb,3.3755e-03_jprb/)
kao( :, 1, 5, 8) = (/&
&1.9756e-03_jprb,2.0856e-03_jprb,2.0921e-03_jprb,2.0392e-03_jprb,1.9309e-03_jprb,1.7377e-03_jprb,&
&1.3394e-03_jprb,9.1353e-04_jprb,7.0438e-04_jprb/)
kao( :, 2, 5, 8) = (/&
&2.5687e-03_jprb,2.7468e-03_jprb,2.7774e-03_jprb,2.7346e-03_jprb,2.6141e-03_jprb,2.4178e-03_jprb,&
&2.0843e-03_jprb,1.3471e-03_jprb,9.9854e-04_jprb/)
kao( :, 3, 5, 8) = (/&
&3.2454e-03_jprb,3.5226e-03_jprb,3.5942e-03_jprb,3.5589e-03_jprb,3.4246e-03_jprb,3.2139e-03_jprb,&
&2.8968e-03_jprb,2.2808e-03_jprb,1.3756e-03_jprb/)
kao( :, 4, 5, 8) = (/&
&4.0078e-03_jprb,4.4135e-03_jprb,4.5464e-03_jprb,4.5227e-03_jprb,4.3801e-03_jprb,4.1565e-03_jprb,&
&3.8227e-03_jprb,3.4129e-03_jprb,1.8460e-03_jprb/)
kao( :, 5, 5, 8) = (/&
&4.8571e-03_jprb,5.4208e-03_jprb,5.6379e-03_jprb,5.6316e-03_jprb,5.4908e-03_jprb,5.2408e-03_jprb,&
&4.8842e-03_jprb,4.5932e-03_jprb,2.4240e-03_jprb/)
kao( :, 1, 6, 8) = (/&
&1.4751e-03_jprb,1.5649e-03_jprb,1.5698e-03_jprb,1.5250e-03_jprb,1.4367e-03_jprb,1.2692e-03_jprb,&
&9.2432e-04_jprb,6.8601e-04_jprb,5.0937e-04_jprb/)
kao( :, 2, 6, 8) = (/&
&1.9613e-03_jprb,2.1071e-03_jprb,2.1348e-03_jprb,2.0943e-03_jprb,1.9976e-03_jprb,1.8330e-03_jprb,&
&1.5334e-03_jprb,9.4512e-04_jprb,7.0634e-04_jprb/)
kao( :, 3, 6, 8) = (/&
&2.5283e-03_jprb,2.7572e-03_jprb,2.8184e-03_jprb,2.7830e-03_jprb,2.6756e-03_jprb,2.5003e-03_jprb,&
&2.2237e-03_jprb,1.6320e-03_jprb,9.7275e-04_jprb/)
kao( :, 4, 6, 8) = (/&
&3.1771e-03_jprb,3.5120e-03_jprb,3.6225e-03_jprb,3.5959e-03_jprb,3.4819e-03_jprb,3.2887e-03_jprb,&
&3.0155e-03_jprb,2.5468e-03_jprb,1.3152e-03_jprb/)
kao( :, 5, 6, 8) = (/&
&3.9082e-03_jprb,4.3796e-03_jprb,4.5491e-03_jprb,4.5475e-03_jprb,4.4280e-03_jprb,4.2073e-03_jprb,&
&3.9106e-03_jprb,3.5240e-03_jprb,1.7410e-03_jprb/)
kao( :, 1, 7, 8) = (/&
&1.0756e-03_jprb,1.1457e-03_jprb,1.1474e-03_jprb,1.1092e-03_jprb,1.0328e-03_jprb,8.8328e-04_jprb,&
&6.4847e-04_jprb,4.9589e-04_jprb,5.7093e-04_jprb/)
kao( :, 2, 7, 8) = (/&
&1.4649e-03_jprb,1.5820e-03_jprb,1.5990e-03_jprb,1.5629e-03_jprb,1.4809e-03_jprb,1.3423e-03_jprb,&
&1.0733e-03_jprb,6.5945e-04_jprb,6.7059e-04_jprb/)
kao( :, 3, 7, 8) = (/&
&1.9283e-03_jprb,2.1130e-03_jprb,2.1564e-03_jprb,2.1214e-03_jprb,2.0320e-03_jprb,1.8875e-03_jprb,&
&1.6475e-03_jprb,1.0998e-03_jprb,8.2028e-04_jprb/)
kao( :, 4, 7, 8) = (/&
&2.4693e-03_jprb,2.7409e-03_jprb,2.8220e-03_jprb,2.7928e-03_jprb,2.6936e-03_jprb,2.5390e-03_jprb,&
&2.3115e-03_jprb,1.8751e-03_jprb,1.0332e-03_jprb/)
kao( :, 5, 7, 8) = (/&
&3.0886e-03_jprb,3.4749e-03_jprb,3.5989e-03_jprb,3.5853e-03_jprb,3.4794e-03_jprb,3.3014e-03_jprb,&
&3.0555e-03_jprb,2.6855e-03_jprb,1.3202e-03_jprb/)
kao( :, 1, 8, 8) = (/&
&7.7013e-04_jprb,8.2269e-04_jprb,8.2096e-04_jprb,7.8766e-04_jprb,7.2051e-04_jprb,5.9734e-04_jprb,&
&4.5221e-04_jprb,3.6815e-04_jprb,1.2465e-03_jprb/)
kao( :, 2, 8, 8) = (/&
&1.0761e-03_jprb,1.1666e-03_jprb,1.1753e-03_jprb,1.1418e-03_jprb,1.0747e-03_jprb,9.5486e-04_jprb,&
&7.2722e-04_jprb,4.9024e-04_jprb,1.3265e-03_jprb/)
kao( :, 3, 8, 8) = (/&
&1.4486e-03_jprb,1.5933e-03_jprb,1.6206e-03_jprb,1.5872e-03_jprb,1.5112e-03_jprb,1.3931e-03_jprb,&
&1.1791e-03_jprb,7.7032e-04_jprb,1.4183e-03_jprb/)
kao( :, 4, 8, 8) = (/&
&1.8914e-03_jprb,2.1096e-03_jprb,2.1595e-03_jprb,2.1285e-03_jprb,2.0449e-03_jprb,1.9150e-03_jprb,&
&1.7248e-03_jprb,1.3234e-03_jprb,1.5297e-03_jprb/)
kao( :, 5, 8, 8) = (/&
&2.4078e-03_jprb,2.7196e-03_jprb,2.8008e-03_jprb,2.7757e-03_jprb,2.6827e-03_jprb,2.5404e-03_jprb,&
&2.3451e-03_jprb,2.0264e-03_jprb,1.6770e-03_jprb/)
kao( :, 1, 9, 8) = (/&
&5.4062e-04_jprb,5.7894e-04_jprb,5.7406e-04_jprb,5.4447e-04_jprb,4.8698e-04_jprb,3.9028e-04_jprb,&
&3.0735e-04_jprb,2.8186e-04_jprb,6.3377e-03_jprb/)
kao( :, 2, 9, 8) = (/&
&7.7655e-04_jprb,8.4391e-04_jprb,8.4599e-04_jprb,8.1629e-04_jprb,7.6016e-04_jprb,6.5450e-04_jprb,&
&4.7980e-04_jprb,3.6416e-04_jprb,6.4305e-03_jprb/)
kao( :, 3, 9, 8) = (/&
&1.0705e-03_jprb,1.1799e-03_jprb,1.1936e-03_jprb,1.1638e-03_jprb,1.1017e-03_jprb,1.0023e-03_jprb,&
&8.1517e-04_jprb,5.4679e-04_jprb,6.5495e-03_jprb/)
kao( :, 4, 9, 8) = (/&
&1.4270e-03_jprb,1.5951e-03_jprb,1.6232e-03_jprb,1.5910e-03_jprb,1.5219e-03_jprb,1.4168e-03_jprb,&
&1.2519e-03_jprb,8.7875e-04_jprb,6.6729e-03_jprb/)
kao( :, 5, 9, 8) = (/&
&1.8505e-03_jprb,2.0950e-03_jprb,2.1415e-03_jprb,2.1108e-03_jprb,2.0308e-03_jprb,1.9153e-03_jprb,&
&1.7561e-03_jprb,1.4678e-03_jprb,6.8190e-03_jprb/)
kao( :, 1,10, 8) = (/&
&3.8585e-04_jprb,4.1375e-04_jprb,4.0806e-04_jprb,3.8295e-04_jprb,3.3374e-04_jprb,2.6302e-04_jprb,&
&2.1519e-04_jprb,2.1943e-04_jprb,4.4307e-02_jprb/)
kao( :, 2,10, 8) = (/&
&5.6783e-04_jprb,6.1776e-04_jprb,6.1659e-04_jprb,5.9118e-04_jprb,5.4276e-04_jprb,4.5386e-04_jprb,&
&3.3714e-04_jprb,2.8172e-04_jprb,4.4039e-02_jprb/)
kao( :, 3,10, 8) = (/&
&7.9994e-04_jprb,8.8269e-04_jprb,8.8820e-04_jprb,8.6201e-04_jprb,8.1182e-04_jprb,7.2562e-04_jprb,&
&5.6386e-04_jprb,3.8153e-04_jprb,4.3887e-02_jprb/)
kao( :, 4,10, 8) = (/&
&1.0873e-03_jprb,1.2167e-03_jprb,1.2305e-03_jprb,1.2016e-03_jprb,1.1439e-03_jprb,1.0569e-03_jprb,&
&9.1489e-04_jprb,6.0012e-04_jprb,4.3695e-02_jprb/)
kao( :, 5,10, 8) = (/&
&1.4329e-03_jprb,1.6260e-03_jprb,1.6511e-03_jprb,1.6186e-03_jprb,1.5509e-03_jprb,1.4549e-03_jprb,&
&1.3198e-03_jprb,1.0619e-03_jprb,4.3454e-02_jprb/)
kao( :, 1,11, 8) = (/&
&3.3331e-04_jprb,3.5859e-04_jprb,3.5347e-04_jprb,3.3213e-04_jprb,2.8916e-04_jprb,2.2877e-04_jprb,&
&1.7900e-04_jprb,1.9967e-04_jprb,1.0878e-01_jprb/)
kao( :, 2,11, 8) = (/&
&4.9047e-04_jprb,5.3552e-04_jprb,5.3381e-04_jprb,5.1299e-04_jprb,4.7115e-04_jprb,3.9388e-04_jprb,&
&2.9080e-04_jprb,2.3623e-04_jprb,1.0793e-01_jprb/)
kao( :, 3,11, 8) = (/&
&6.9278e-04_jprb,7.6757e-04_jprb,7.7025e-04_jprb,7.4755e-04_jprb,7.0442e-04_jprb,6.3244e-04_jprb,&
&4.9501e-04_jprb,3.3029e-04_jprb,1.0687e-01_jprb/)
kao( :, 4,11, 8) = (/&
&9.4454e-04_jprb,1.0621e-03_jprb,1.0699e-03_jprb,1.0431e-03_jprb,9.9167e-04_jprb,9.1658e-04_jprb,&
&7.9795e-04_jprb,5.4407e-04_jprb,1.0586e-01_jprb/)
kao( :, 5,11, 8) = (/&
&1.2469e-03_jprb,1.4253e-03_jprb,1.4411e-03_jprb,1.4083e-03_jprb,1.3458e-03_jprb,1.2607e-03_jprb,&
&1.1470e-03_jprb,9.3092e-04_jprb,1.0499e-01_jprb/)
kao( :, 1,12, 8) = (/&
&2.8868e-04_jprb,3.1016e-04_jprb,3.0546e-04_jprb,2.8704e-04_jprb,2.5147e-04_jprb,1.9676e-04_jprb,&
&1.5529e-04_jprb,1.6943e-04_jprb,1.6800e-01_jprb/)
kao( :, 2,12, 8) = (/&
&4.2419e-04_jprb,4.6341e-04_jprb,4.6115e-04_jprb,4.4308e-04_jprb,4.0808e-04_jprb,3.4351e-04_jprb,&
&2.4857e-04_jprb,1.9580e-04_jprb,1.6656e-01_jprb/)
kao( :, 3,12, 8) = (/&
&6.0023e-04_jprb,6.6617e-04_jprb,6.6650e-04_jprb,6.4587e-04_jprb,6.0783e-04_jprb,5.4736e-04_jprb,&
&4.3585e-04_jprb,2.8774e-04_jprb,1.6485e-01_jprb/)
kao( :, 4,12, 8) = (/&
&8.1906e-04_jprb,9.2524e-04_jprb,9.2921e-04_jprb,9.0286e-04_jprb,8.5627e-04_jprb,7.9080e-04_jprb,&
&6.9052e-04_jprb,4.8039e-04_jprb,1.6324e-01_jprb/)
kao( :, 5,12, 8) = (/&
&1.0839e-03_jprb,1.2432e-03_jprb,1.2546e-03_jprb,1.2224e-03_jprb,1.1638e-03_jprb,1.0874e-03_jprb,&
&9.8876e-04_jprb,8.1388e-04_jprb,1.6195e-01_jprb/)
kao( :, 1,13, 8) = (/&
&2.5312e-04_jprb,2.6982e-04_jprb,2.6458e-04_jprb,2.4857e-04_jprb,2.1806e-04_jprb,1.7081e-04_jprb,&
&1.3117e-04_jprb,1.3895e-04_jprb,2.0739e-01_jprb/)
kao( :, 2,13, 8) = (/&
&3.6904e-04_jprb,4.0143e-04_jprb,3.9817e-04_jprb,3.8186e-04_jprb,3.5137e-04_jprb,2.9757e-04_jprb,&
&2.1658e-04_jprb,1.6379e-04_jprb,2.0586e-01_jprb/)
kao( :, 3,13, 8) = (/&
&5.2080e-04_jprb,5.7811e-04_jprb,5.7661e-04_jprb,5.5693e-04_jprb,5.2224e-04_jprb,4.6985e-04_jprb,&
&3.7580e-04_jprb,2.4807e-04_jprb,2.0409e-01_jprb/)
kao( :, 4,13, 8) = (/&
&7.1123e-04_jprb,8.0344e-04_jprb,8.0567e-04_jprb,7.8029e-04_jprb,7.3718e-04_jprb,6.7848e-04_jprb,&
&5.9304e-04_jprb,4.2232e-04_jprb,2.0245e-01_jprb/)
kao( :, 5,13, 8) = (/&
&9.4485e-04_jprb,1.0811e-03_jprb,1.0875e-03_jprb,1.0578e-03_jprb,1.0044e-03_jprb,9.3443e-04_jprb,&
&8.4723e-04_jprb,7.0315e-04_jprb,2.0129e-01_jprb/)

!     -----------------------------------------------------------------
RETURN
END SUBROUTINE rrtm_kgb5_a1