rrtm_kgb4_A2.F90

Go to the documentation of this file.

!OCL SCALAR
SUBROUTINE rrtm_kgb4_a2

!     Originally by Eli J. Mlawer, Atmospheric & Environmental Research.
!     BAND 4:  630-700 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 yoerrto4 , ONLY : kao     ,kbo     ,selfrefo   ,fracrefao  ,fracrefbo
USE yoerrta4 , 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) = (/&
&6.6520e-04_jprb,9.3651e-04_jprb,1.4195e-03_jprb,1.7255e-03_jprb,1.7636e-03_jprb,1.9179e-03_jprb,&
&2.2204e-03_jprb,6.6521e-04_jprb,2.9560e-04_jprb/)
kao( :, 2, 1, 1) = (/&
&7.2624e-04_jprb,1.0466e-03_jprb,1.3888e-03_jprb,1.7096e-03_jprb,1.7897e-03_jprb,1.8561e-03_jprb,&
&2.1300e-03_jprb,7.2624e-04_jprb,3.1103e-04_jprb/)
kao( :, 3, 1, 1) = (/&
&7.8383e-04_jprb,1.1584e-03_jprb,1.4071e-03_jprb,1.6420e-03_jprb,1.7160e-03_jprb,1.8518e-03_jprb,&
&1.8802e-03_jprb,7.8382e-04_jprb,3.3914e-04_jprb/)
kao( :, 4, 1, 1) = (/&
&8.3828e-04_jprb,1.2570e-03_jprb,1.4277e-03_jprb,1.5406e-03_jprb,1.6601e-03_jprb,1.7661e-03_jprb,&
&1.9135e-03_jprb,8.3828e-04_jprb,3.4976e-04_jprb/)
kao( :, 5, 1, 1) = (/&
&8.9042e-04_jprb,1.3363e-03_jprb,1.4623e-03_jprb,1.4949e-03_jprb,1.5948e-03_jprb,1.7209e-03_jprb,&
&1.8800e-03_jprb,8.9042e-04_jprb,3.6339e-04_jprb/)
kao( :, 1, 2, 1) = (/&
&5.6062e-04_jprb,7.7127e-04_jprb,1.2084e-03_jprb,1.4307e-03_jprb,1.4610e-03_jprb,1.6052e-03_jprb,&
&1.8465e-03_jprb,5.6064e-04_jprb,2.2622e-04_jprb/)
kao( :, 2, 2, 1) = (/&
&6.1375e-04_jprb,8.6380e-04_jprb,1.1701e-03_jprb,1.4336e-03_jprb,1.4895e-03_jprb,1.5756e-03_jprb,&
&1.7789e-03_jprb,6.1375e-04_jprb,2.4137e-04_jprb/)
kao( :, 3, 2, 1) = (/&
&6.6443e-04_jprb,9.5953e-04_jprb,1.1781e-03_jprb,1.4158e-03_jprb,1.4693e-03_jprb,1.5606e-03_jprb,&
&1.5694e-03_jprb,6.6443e-04_jprb,2.6320e-04_jprb/)
kao( :, 4, 2, 1) = (/&
&7.1315e-04_jprb,1.0478e-03_jprb,1.1975e-03_jprb,1.3128e-03_jprb,1.4207e-03_jprb,1.5299e-03_jprb,&
&1.6204e-03_jprb,7.1315e-04_jprb,2.6697e-04_jprb/)
kao( :, 5, 2, 1) = (/&
&7.6110e-04_jprb,1.1196e-03_jprb,1.2294e-03_jprb,1.2636e-03_jprb,1.3416e-03_jprb,1.4292e-03_jprb,&
&1.6103e-03_jprb,7.6110e-04_jprb,2.8176e-04_jprb/)
kao( :, 1, 3, 1) = (/&
&4.5610e-04_jprb,6.1532e-04_jprb,1.0634e-03_jprb,1.1828e-03_jprb,1.2321e-03_jprb,1.3407e-03_jprb,&
&1.5585e-03_jprb,4.5610e-04_jprb,1.7188e-04_jprb/)
kao( :, 2, 3, 1) = (/&
&5.0238e-04_jprb,6.9021e-04_jprb,9.8179e-04_jprb,1.2124e-03_jprb,1.2375e-03_jprb,1.3359e-03_jprb,&
&1.5396e-03_jprb,5.0238e-04_jprb,1.8492e-04_jprb/)
kao( :, 3, 3, 1) = (/&
&5.4735e-04_jprb,7.7249e-04_jprb,9.8402e-04_jprb,1.2068e-03_jprb,1.2546e-03_jprb,1.2975e-03_jprb,&
&1.4283e-03_jprb,5.4735e-04_jprb,1.9939e-04_jprb/)
kao( :, 4, 3, 1) = (/&
&5.9112e-04_jprb,8.5275e-04_jprb,9.9833e-04_jprb,1.1432e-03_jprb,1.2143e-03_jprb,1.3053e-03_jprb,&
&1.3316e-03_jprb,5.9111e-04_jprb,2.0334e-04_jprb/)
kao( :, 5, 3, 1) = (/&
&6.3422e-04_jprb,9.1933e-04_jprb,1.0199e-03_jprb,1.0852e-03_jprb,1.1540e-03_jprb,1.2145e-03_jprb,&
&1.3760e-03_jprb,6.3422e-04_jprb,2.1583e-04_jprb/)
kao( :, 1, 4, 1) = (/&
&3.6423e-04_jprb,4.8714e-04_jprb,9.4139e-04_jprb,9.6507e-04_jprb,9.9104e-04_jprb,1.0740e-03_jprb,&
&1.2797e-03_jprb,3.6423e-04_jprb,1.3905e-04_jprb/)
kao( :, 2, 4, 1) = (/&
&4.0448e-04_jprb,5.4353e-04_jprb,8.4041e-04_jprb,9.9900e-04_jprb,1.0270e-03_jprb,1.1129e-03_jprb,&
&1.2594e-03_jprb,4.0448e-04_jprb,1.4875e-04_jprb/)
kao( :, 3, 4, 1) = (/&
&4.4401e-04_jprb,6.1201e-04_jprb,8.1748e-04_jprb,1.0205e-03_jprb,1.0406e-03_jprb,1.0943e-03_jprb,&
&1.2249e-03_jprb,4.4401e-04_jprb,1.5559e-04_jprb/)
kao( :, 4, 4, 1) = (/&
&4.8291e-04_jprb,6.8107e-04_jprb,8.2218e-04_jprb,9.9576e-04_jprb,1.0515e-03_jprb,1.1006e-03_jprb,&
&1.1252e-03_jprb,4.8291e-04_jprb,1.6190e-04_jprb/)
kao( :, 5, 4, 1) = (/&
&5.2123e-04_jprb,7.4343e-04_jprb,8.4151e-04_jprb,9.3019e-04_jprb,1.0130e-03_jprb,1.0785e-03_jprb,&
&1.1439e-03_jprb,5.2123e-04_jprb,1.7165e-04_jprb/)
kao( :, 1, 5, 1) = (/&
&2.8763e-04_jprb,3.8654e-04_jprb,7.7838e-04_jprb,7.8467e-04_jprb,8.0817e-04_jprb,8.9938e-04_jprb,&
&1.0676e-03_jprb,2.8763e-04_jprb,1.2485e-04_jprb/)
kao( :, 2, 5, 1) = (/&
&3.2269e-04_jprb,4.2830e-04_jprb,7.4590e-04_jprb,8.1887e-04_jprb,8.5674e-04_jprb,9.1744e-04_jprb,&
&1.0598e-03_jprb,3.2269e-04_jprb,1.2888e-04_jprb/)
kao( :, 3, 5, 1) = (/&
&3.5710e-04_jprb,4.8150e-04_jprb,6.8301e-04_jprb,8.4014e-04_jprb,8.5447e-04_jprb,9.4082e-04_jprb,&
&1.0595e-03_jprb,3.5710e-04_jprb,1.3287e-04_jprb/)
kao( :, 4, 5, 1) = (/&
&3.9114e-04_jprb,5.4044e-04_jprb,6.7913e-04_jprb,8.5598e-04_jprb,8.6451e-04_jprb,8.9768e-04_jprb,&
&1.0160e-03_jprb,3.9114e-04_jprb,1.3801e-04_jprb/)
kao( :, 5, 5, 1) = (/&
&4.2493e-04_jprb,5.9616e-04_jprb,6.9081e-04_jprb,8.1432e-04_jprb,8.7086e-04_jprb,9.0230e-04_jprb,&
&9.2751e-04_jprb,4.2493e-04_jprb,1.4524e-04_jprb/)
kao( :, 1, 6, 1) = (/&
&2.2397e-04_jprb,3.0352e-04_jprb,6.2893e-04_jprb,6.2633e-04_jprb,6.5793e-04_jprb,7.3403e-04_jprb,&
&8.4350e-04_jprb,2.2397e-04_jprb,1.2107e-04_jprb/)
kao( :, 2, 6, 1) = (/&
&2.5420e-04_jprb,3.3557e-04_jprb,6.5797e-04_jprb,6.6891e-04_jprb,6.8491e-04_jprb,7.4023e-04_jprb,&
&8.5687e-04_jprb,2.5420e-04_jprb,1.2280e-04_jprb/)
kao( :, 3, 6, 1) = (/&
&2.8396e-04_jprb,3.7655e-04_jprb,5.9102e-04_jprb,6.9033e-04_jprb,7.1783e-04_jprb,7.6667e-04_jprb,&
&8.6376e-04_jprb,2.8396e-04_jprb,1.2577e-04_jprb/)
kao( :, 4, 6, 1) = (/&
&3.1350e-04_jprb,4.2404e-04_jprb,5.6109e-04_jprb,7.1632e-04_jprb,7.2169e-04_jprb,7.5902e-04_jprb,&
&8.5063e-04_jprb,3.1350e-04_jprb,1.3038e-04_jprb/)
kao( :, 5, 6, 1) = (/&
&3.4283e-04_jprb,4.7259e-04_jprb,5.6315e-04_jprb,6.9669e-04_jprb,7.3767e-04_jprb,7.6266e-04_jprb,&
&8.1179e-04_jprb,3.4283e-04_jprb,1.3594e-04_jprb/)
kao( :, 1, 7, 1) = (/&
&1.7269e-04_jprb,2.3971e-04_jprb,5.0297e-04_jprb,4.9860e-04_jprb,5.2471e-04_jprb,5.7932e-04_jprb,&
&6.8439e-04_jprb,1.7269e-04_jprb,1.2386e-04_jprb/)
kao( :, 2, 7, 1) = (/&
&1.9843e-04_jprb,2.6259e-04_jprb,5.3532e-04_jprb,5.3729e-04_jprb,5.5606e-04_jprb,6.0939e-04_jprb,&
&7.1230e-04_jprb,1.9843e-04_jprb,1.2615e-04_jprb/)
kao( :, 3, 7, 1) = (/&
&2.2393e-04_jprb,2.9362e-04_jprb,5.3350e-04_jprb,5.6384e-04_jprb,5.8750e-04_jprb,6.2580e-04_jprb,&
&7.2255e-04_jprb,2.2393e-04_jprb,1.3021e-04_jprb/)
kao( :, 4, 7, 1) = (/&
&2.4925e-04_jprb,3.3156e-04_jprb,4.6934e-04_jprb,5.8250e-04_jprb,5.9359e-04_jprb,6.5453e-04_jprb,&
&7.2305e-04_jprb,2.4925e-04_jprb,1.3523e-04_jprb/)
kao( :, 5, 7, 1) = (/&
&2.7472e-04_jprb,3.7184e-04_jprb,4.6283e-04_jprb,5.9977e-04_jprb,6.0303e-04_jprb,6.2094e-04_jprb,&
&7.0629e-04_jprb,2.7472e-04_jprb,1.4126e-04_jprb/)
kao( :, 1, 8, 1) = (/&
&1.3221e-04_jprb,1.9199e-04_jprb,3.9770e-04_jprb,3.9939e-04_jprb,4.1807e-04_jprb,4.5731e-04_jprb,&
&5.2988e-04_jprb,1.3221e-04_jprb,1.4509e-04_jprb/)
kao( :, 2, 8, 1) = (/&
&1.5393e-04_jprb,2.0559e-04_jprb,4.3250e-04_jprb,4.2908e-04_jprb,4.4968e-04_jprb,4.9581e-04_jprb,&
&5.6885e-04_jprb,1.5393e-04_jprb,1.5038e-04_jprb/)
kao( :, 3, 8, 1) = (/&
&1.7558e-04_jprb,2.2912e-04_jprb,4.5525e-04_jprb,4.5996e-04_jprb,4.7140e-04_jprb,5.1385e-04_jprb,&
&5.9033e-04_jprb,1.7558e-04_jprb,1.5764e-04_jprb/)
kao( :, 4, 8, 1) = (/&
&1.9711e-04_jprb,2.5824e-04_jprb,4.0990e-04_jprb,4.7600e-04_jprb,4.9383e-04_jprb,5.2727e-04_jprb,&
&5.9173e-04_jprb,1.9711e-04_jprb,1.6674e-04_jprb/)
kao( :, 5, 8, 1) = (/&
&2.1892e-04_jprb,2.9157e-04_jprb,3.8268e-04_jprb,4.9451e-04_jprb,4.9883e-04_jprb,5.2700e-04_jprb,&
&5.9438e-04_jprb,2.1892e-04_jprb,1.7746e-04_jprb/)
kao( :, 1, 9, 1) = (/&
&1.0035e-04_jprb,1.5952e-04_jprb,3.1293e-04_jprb,3.1348e-04_jprb,3.2666e-04_jprb,3.7028e-04_jprb,&
&4.1425e-04_jprb,1.0035e-04_jprb,2.6669e-04_jprb/)
kao( :, 2, 9, 1) = (/&
&1.1858e-04_jprb,1.6346e-04_jprb,3.4529e-04_jprb,3.4165e-04_jprb,3.5657e-04_jprb,3.9289e-04_jprb,&
&4.5949e-04_jprb,1.1858e-04_jprb,2.9076e-04_jprb/)
kao( :, 3, 9, 1) = (/&
&1.3693e-04_jprb,1.7866e-04_jprb,3.6700e-04_jprb,3.7083e-04_jprb,3.8336e-04_jprb,4.1668e-04_jprb,&
&4.8180e-04_jprb,1.3693e-04_jprb,3.1567e-04_jprb/)
kao( :, 4, 9, 1) = (/&
&1.5518e-04_jprb,2.0111e-04_jprb,3.6635e-04_jprb,3.8855e-04_jprb,4.0471e-04_jprb,4.3043e-04_jprb,&
&4.9285e-04_jprb,1.5518e-04_jprb,3.4209e-04_jprb/)
kao( :, 5, 9, 1) = (/&
&1.7362e-04_jprb,2.2754e-04_jprb,3.2201e-04_jprb,4.0291e-04_jprb,4.1258e-04_jprb,4.4913e-04_jprb,&
&4.9613e-04_jprb,1.7362e-04_jprb,3.6921e-04_jprb/)
kao( :, 1,10, 1) = (/&
&7.6756e-05_jprb,1.3962e-04_jprb,2.4767e-04_jprb,2.4912e-04_jprb,2.5968e-04_jprb,2.8653e-04_jprb,&
&3.2992e-04_jprb,7.6756e-05_jprb,9.2332e-04_jprb/)
kao( :, 2,10, 1) = (/&
&9.1972e-05_jprb,1.3177e-04_jprb,2.7498e-04_jprb,2.7460e-04_jprb,2.8768e-04_jprb,3.1486e-04_jprb,&
&3.6117e-04_jprb,9.1972e-05_jprb,1.0290e-03_jprb/)
kao( :, 3,10, 1) = (/&
&1.0747e-04_jprb,1.4129e-04_jprb,2.9762e-04_jprb,2.9728e-04_jprb,3.1080e-04_jprb,3.3927e-04_jprb,&
&3.8542e-04_jprb,1.0747e-04_jprb,1.1258e-03_jprb/)
kao( :, 4,10, 1) = (/&
&1.2295e-04_jprb,1.5843e-04_jprb,3.0850e-04_jprb,3.1535e-04_jprb,3.2529e-04_jprb,3.5387e-04_jprb,&
&4.0422e-04_jprb,1.2295e-04_jprb,1.2119e-03_jprb/)
kao( :, 5,10, 1) = (/&
&1.3850e-04_jprb,1.7919e-04_jprb,2.7969e-04_jprb,3.2918e-04_jprb,3.4141e-04_jprb,3.6383e-04_jprb,&
&4.0592e-04_jprb,1.3850e-04_jprb,1.2885e-03_jprb/)
kao( :, 1,11, 1) = (/&
&6.4262e-05_jprb,1.1488e-04_jprb,2.0652e-04_jprb,2.0693e-04_jprb,2.1515e-04_jprb,2.3759e-04_jprb,&
&2.7074e-04_jprb,6.4262e-05_jprb,1.7436e-03_jprb/)
kao( :, 2,11, 1) = (/&
&7.7063e-05_jprb,1.0910e-04_jprb,2.2893e-04_jprb,2.2837e-04_jprb,2.3880e-04_jprb,2.5987e-04_jprb,&
&3.0065e-04_jprb,7.7062e-05_jprb,1.9352e-03_jprb/)
kao( :, 3,11, 1) = (/&
&9.0126e-05_jprb,1.1759e-04_jprb,2.4677e-04_jprb,2.4752e-04_jprb,2.5932e-04_jprb,2.8168e-04_jprb,&
&3.2064e-04_jprb,9.0126e-05_jprb,2.1015e-03_jprb/)
kao( :, 4,11, 1) = (/&
&1.0318e-04_jprb,1.3204e-04_jprb,2.5349e-04_jprb,2.6117e-04_jprb,2.7047e-04_jprb,2.9445e-04_jprb,&
&3.3354e-04_jprb,1.0318e-04_jprb,2.2375e-03_jprb/)
kao( :, 5,11, 1) = (/&
&1.1625e-04_jprb,1.4979e-04_jprb,2.3047e-04_jprb,2.7288e-04_jprb,2.8316e-04_jprb,3.0222e-04_jprb,&
&3.3717e-04_jprb,1.1625e-04_jprb,2.3499e-03_jprb/)
kao( :, 1,12, 1) = (/&
&5.3838e-05_jprb,9.4472e-05_jprb,1.7221e-04_jprb,1.7229e-04_jprb,1.7912e-04_jprb,1.9811e-04_jprb,&
&2.2298e-04_jprb,5.3838e-05_jprb,2.2190e-03_jprb/)
kao( :, 2,12, 1) = (/&
&6.4583e-05_jprb,9.0416e-05_jprb,1.9070e-04_jprb,1.8997e-04_jprb,1.9851e-04_jprb,2.1621e-04_jprb,&
&2.4883e-04_jprb,6.4583e-05_jprb,2.4508e-03_jprb/)
kao( :, 3,12, 1) = (/&
&7.5579e-05_jprb,9.8146e-05_jprb,2.0479e-04_jprb,2.0556e-04_jprb,2.1508e-04_jprb,2.3475e-04_jprb,&
&2.6564e-04_jprb,7.5579e-05_jprb,2.6460e-03_jprb/)
kao( :, 4,12, 1) = (/&
&8.6531e-05_jprb,1.1008e-04_jprb,2.0887e-04_jprb,2.1630e-04_jprb,2.2430e-04_jprb,2.4416e-04_jprb,&
&2.7688e-04_jprb,8.6531e-05_jprb,2.8013e-03_jprb/)
kao( :, 5,12, 1) = (/&
&9.7427e-05_jprb,1.2490e-04_jprb,1.8859e-04_jprb,2.2596e-04_jprb,2.3336e-04_jprb,2.5057e-04_jprb,&
&2.7888e-04_jprb,9.7427e-05_jprb,2.9236e-03_jprb/)
kao( :, 1,13, 1) = (/&
&4.5099e-05_jprb,7.7513e-05_jprb,1.4325e-04_jprb,1.4387e-04_jprb,1.4900e-04_jprb,1.6404e-04_jprb,&
&1.8470e-04_jprb,4.5100e-05_jprb,2.3136e-03_jprb/)
kao( :, 2,13, 1) = (/&
&5.4137e-05_jprb,7.5163e-05_jprb,1.5870e-04_jprb,1.5797e-04_jprb,1.6505e-04_jprb,1.7934e-04_jprb,&
&2.0687e-04_jprb,5.4137e-05_jprb,2.5403e-03_jprb/)
kao( :, 3,13, 1) = (/&
&6.3329e-05_jprb,8.1727e-05_jprb,1.6965e-04_jprb,1.7063e-04_jprb,1.7871e-04_jprb,1.9512e-04_jprb,&
&2.2035e-04_jprb,6.3329e-05_jprb,2.7282e-03_jprb/)
kao( :, 4,13, 1) = (/&
&7.2450e-05_jprb,9.1778e-05_jprb,1.7219e-04_jprb,1.7914e-04_jprb,1.8635e-04_jprb,2.0203e-04_jprb,&
&2.2943e-04_jprb,7.2450e-05_jprb,2.8788e-03_jprb/)
kao( :, 5,13, 1) = (/&
&8.1530e-05_jprb,1.0397e-04_jprb,1.5476e-04_jprb,1.8739e-04_jprb,1.9322e-04_jprb,2.0819e-04_jprb,&
&2.3071e-04_jprb,8.1530e-05_jprb,2.9950e-03_jprb/)
kao( :, 1, 1, 2) = (/&
&1.5260e-03_jprb,1.7595e-03_jprb,1.6480e-03_jprb,2.2258e-03_jprb,2.8344e-03_jprb,3.1469e-03_jprb,&
&3.6918e-03_jprb,1.5260e-03_jprb,4.9914e-04_jprb/)
kao( :, 2, 1, 2) = (/&
&1.5826e-03_jprb,1.8212e-03_jprb,1.7561e-03_jprb,1.9980e-03_jprb,2.4681e-03_jprb,2.9684e-03_jprb,&
&3.2872e-03_jprb,1.5826e-03_jprb,4.6415e-04_jprb/)
kao( :, 3, 1, 2) = (/&
&1.6227e-03_jprb,1.8571e-03_jprb,1.8350e-03_jprb,1.9032e-03_jprb,2.3046e-03_jprb,2.7220e-03_jprb,&
&3.3030e-03_jprb,1.6227e-03_jprb,4.6231e-04_jprb/)
kao( :, 4, 1, 2) = (/&
&1.6627e-03_jprb,1.9016e-03_jprb,1.9450e-03_jprb,1.9945e-03_jprb,2.2414e-03_jprb,2.5327e-03_jprb,&
&2.8363e-03_jprb,1.6627e-03_jprb,4.9516e-04_jprb/)
kao( :, 5, 1, 2) = (/&
&1.6942e-03_jprb,1.9567e-03_jprb,2.0282e-03_jprb,2.1178e-03_jprb,2.1837e-03_jprb,2.3289e-03_jprb,&
&2.6951e-03_jprb,1.6942e-03_jprb,5.5604e-04_jprb/)
kao( :, 1, 2, 2) = (/&
&1.2957e-03_jprb,1.4736e-03_jprb,1.3696e-03_jprb,1.9219e-03_jprb,2.4448e-03_jprb,2.7185e-03_jprb,&
&3.0973e-03_jprb,1.2957e-03_jprb,3.5777e-04_jprb/)
kao( :, 2, 2, 2) = (/&
&1.3520e-03_jprb,1.5352e-03_jprb,1.4594e-03_jprb,1.7363e-03_jprb,2.1608e-03_jprb,2.5931e-03_jprb,&
&2.9477e-03_jprb,1.3520e-03_jprb,3.5334e-04_jprb/)
kao( :, 3, 2, 2) = (/&
&1.3955e-03_jprb,1.5728e-03_jprb,1.5388e-03_jprb,1.5910e-03_jprb,1.9652e-03_jprb,2.3965e-03_jprb,&
&2.8214e-03_jprb,1.3955e-03_jprb,3.5208e-04_jprb/)
kao( :, 4, 2, 2) = (/&
&1.4306e-03_jprb,1.6119e-03_jprb,1.6289e-03_jprb,1.6668e-03_jprb,1.8749e-03_jprb,2.1515e-03_jprb,&
&2.5798e-03_jprb,1.4306e-03_jprb,3.8903e-04_jprb/)
kao( :, 5, 2, 2) = (/&
&1.4618e-03_jprb,1.6648e-03_jprb,1.7112e-03_jprb,1.7696e-03_jprb,1.8658e-03_jprb,2.0390e-03_jprb,&
&2.2630e-03_jprb,1.4618e-03_jprb,4.3501e-04_jprb/)
kao( :, 1, 3, 2) = (/&
&1.0941e-03_jprb,1.2249e-03_jprb,1.1110e-03_jprb,1.6978e-03_jprb,2.0757e-03_jprb,2.3977e-03_jprb,&
&2.5385e-03_jprb,1.0941e-03_jprb,2.5435e-04_jprb/)
kao( :, 2, 3, 2) = (/&
&1.1496e-03_jprb,1.2893e-03_jprb,1.2094e-03_jprb,1.5400e-03_jprb,1.9037e-03_jprb,2.2282e-03_jprb,&
&2.6108e-03_jprb,1.1496e-03_jprb,2.5844e-04_jprb/)
kao( :, 3, 3, 2) = (/&
&1.1926e-03_jprb,1.3278e-03_jprb,1.2717e-03_jprb,1.3590e-03_jprb,1.7088e-03_jprb,2.1812e-03_jprb,&
&2.3392e-03_jprb,1.1926e-03_jprb,2.6804e-04_jprb/)
kao( :, 4, 3, 2) = (/&
&1.2267e-03_jprb,1.3589e-03_jprb,1.3473e-03_jprb,1.3690e-03_jprb,1.6042e-03_jprb,1.9290e-03_jprb,&
&2.3507e-03_jprb,1.2267e-03_jprb,3.0065e-04_jprb/)
kao( :, 5, 3, 2) = (/&
&1.2554e-03_jprb,1.4034e-03_jprb,1.4269e-03_jprb,1.4462e-03_jprb,1.5803e-03_jprb,1.7891e-03_jprb,&
&1.9934e-03_jprb,1.2554e-03_jprb,3.3529e-04_jprb/)
kao( :, 1, 4, 2) = (/&
&9.2228e-04_jprb,1.0144e-03_jprb,8.9155e-04_jprb,1.5523e-03_jprb,1.8182e-03_jprb,2.0790e-03_jprb,&
&2.1019e-03_jprb,9.2229e-04_jprb,1.9739e-04_jprb/)
kao( :, 2, 4, 2) = (/&
&9.7173e-04_jprb,1.0764e-03_jprb,9.9094e-04_jprb,1.3563e-03_jprb,1.7130e-03_jprb,1.9182e-03_jprb,&
&2.1666e-03_jprb,9.7173e-04_jprb,1.9900e-04_jprb/)
kao( :, 3, 4, 2) = (/&
&1.0138e-03_jprb,1.1151e-03_jprb,1.0445e-03_jprb,1.2251e-03_jprb,1.5369e-03_jprb,1.8521e-03_jprb,&
&2.1013e-03_jprb,1.0138e-03_jprb,2.1276e-04_jprb/)
kao( :, 4, 4, 2) = (/&
&1.0473e-03_jprb,1.1460e-03_jprb,1.1161e-03_jprb,1.1284e-03_jprb,1.3578e-03_jprb,1.6754e-03_jprb,&
&2.0077e-03_jprb,1.0473e-03_jprb,2.3595e-04_jprb/)
kao( :, 5, 4, 2) = (/&
&1.0726e-03_jprb,1.1805e-03_jprb,1.1814e-03_jprb,1.1848e-03_jprb,1.3479e-03_jprb,1.5615e-03_jprb,&
&1.8994e-03_jprb,1.0726e-03_jprb,2.6165e-04_jprb/)
kao( :, 1, 5, 2) = (/&
&7.6690e-04_jprb,8.2765e-04_jprb,7.8062e-04_jprb,1.3867e-03_jprb,1.5867e-03_jprb,1.6936e-03_jprb,&
&1.7521e-03_jprb,7.6690e-04_jprb,1.6280e-04_jprb/)
kao( :, 2, 5, 2) = (/&
&8.1285e-04_jprb,8.8774e-04_jprb,7.8341e-04_jprb,1.1988e-03_jprb,1.4770e-03_jprb,1.6719e-03_jprb,&
&1.7693e-03_jprb,8.1285e-04_jprb,1.6768e-04_jprb/)
kao( :, 3, 5, 2) = (/&
&8.5183e-04_jprb,9.2930e-04_jprb,8.6098e-04_jprb,1.1035e-03_jprb,1.3517e-03_jprb,1.5871e-03_jprb,&
&1.8468e-03_jprb,8.5182e-04_jprb,1.7918e-04_jprb/)
kao( :, 4, 5, 2) = (/&
&8.8381e-04_jprb,9.6005e-04_jprb,9.1547e-04_jprb,9.4610e-04_jprb,1.2396e-03_jprb,1.5757e-03_jprb,&
&1.6719e-03_jprb,8.8381e-04_jprb,1.9528e-04_jprb/)
kao( :, 5, 5, 2) = (/&
&9.0780e-04_jprb,9.9038e-04_jprb,9.7867e-04_jprb,9.6385e-04_jprb,1.1363e-03_jprb,1.3750e-03_jprb,&
&1.6759e-03_jprb,9.0780e-04_jprb,2.1430e-04_jprb/)
kao( :, 1, 6, 2) = (/&
&6.2795e-04_jprb,6.6838e-04_jprb,7.3561e-04_jprb,1.2263e-03_jprb,1.3683e-03_jprb,1.4046e-03_jprb,&
&1.5094e-03_jprb,6.2795e-04_jprb,1.5216e-04_jprb/)
kao( :, 2, 6, 2) = (/&
&6.7183e-04_jprb,7.2288e-04_jprb,6.1801e-04_jprb,1.0919e-03_jprb,1.2712e-03_jprb,1.4757e-03_jprb,&
&1.4814e-03_jprb,6.7183e-04_jprb,1.5894e-04_jprb/)
kao( :, 3, 6, 2) = (/&
&7.0773e-04_jprb,7.6513e-04_jprb,6.8912e-04_jprb,9.6974e-04_jprb,1.1945e-03_jprb,1.3671e-03_jprb,&
&1.5170e-03_jprb,7.0773e-04_jprb,1.6897e-04_jprb/)
kao( :, 4, 6, 2) = (/&
&7.3816e-04_jprb,7.9782e-04_jprb,7.4473e-04_jprb,8.7065e-04_jprb,1.1028e-03_jprb,1.3310e-03_jprb,&
&1.4982e-03_jprb,7.3816e-04_jprb,1.8083e-04_jprb/)
kao( :, 5, 6, 2) = (/&
&7.6173e-04_jprb,8.2557e-04_jprb,8.0696e-04_jprb,7.9653e-04_jprb,9.7171e-04_jprb,1.2001e-03_jprb,&
&1.4350e-03_jprb,7.6173e-04_jprb,1.9544e-04_jprb/)
kao( :, 1, 7, 2) = (/&
&5.0891e-04_jprb,5.3280e-04_jprb,7.2820e-04_jprb,1.0600e-03_jprb,1.1897e-03_jprb,1.2028e-03_jprb,&
&1.2645e-03_jprb,5.0891e-04_jprb,1.6819e-04_jprb/)
kao( :, 2, 7, 2) = (/&
&5.5019e-04_jprb,5.8559e-04_jprb,5.5050e-04_jprb,9.8189e-04_jprb,1.1133e-03_jprb,1.1994e-03_jprb,&
&1.2177e-03_jprb,5.5019e-04_jprb,1.7740e-04_jprb/)
kao( :, 3, 7, 2) = (/&
&5.8438e-04_jprb,6.2588e-04_jprb,5.2192e-04_jprb,8.6875e-04_jprb,1.0399e-03_jprb,1.1761e-03_jprb,&
&1.2214e-03_jprb,5.8438e-04_jprb,1.8897e-04_jprb/)
kao( :, 4, 7, 2) = (/&
&6.1239e-04_jprb,6.5682e-04_jprb,6.0713e-04_jprb,7.7808e-04_jprb,9.7331e-04_jprb,1.1140e-03_jprb,&
&1.3014e-03_jprb,6.1239e-04_jprb,2.0290e-04_jprb/)
kao( :, 5, 7, 2) = (/&
&6.3467e-04_jprb,6.8419e-04_jprb,6.5295e-04_jprb,6.7554e-04_jprb,8.8119e-04_jprb,1.1133e-03_jprb,&
&1.2053e-03_jprb,6.3467e-04_jprb,2.1872e-04_jprb/)
kao( :, 1, 8, 2) = (/&
&4.0935e-04_jprb,4.1885e-04_jprb,6.7101e-04_jprb,9.1256e-04_jprb,1.0194e-03_jprb,1.0135e-03_jprb,&
&1.0819e-03_jprb,4.0935e-04_jprb,2.1824e-04_jprb/)
kao( :, 2, 8, 2) = (/&
&4.4692e-04_jprb,4.7118e-04_jprb,5.1659e-04_jprb,8.5913e-04_jprb,9.6357e-04_jprb,9.8846e-04_jprb,&
&1.0429e-03_jprb,4.4692e-04_jprb,2.3690e-04_jprb/)
kao( :, 3, 8, 2) = (/&
&4.7903e-04_jprb,5.0921e-04_jprb,4.2513e-04_jprb,7.7866e-04_jprb,8.9423e-04_jprb,1.0205e-03_jprb,&
&1.0213e-03_jprb,4.7903e-04_jprb,2.5819e-04_jprb/)
kao( :, 4, 8, 2) = (/&
&5.0519e-04_jprb,5.3873e-04_jprb,4.7470e-04_jprb,6.8242e-04_jprb,8.4925e-04_jprb,9.6082e-04_jprb,&
&1.0565e-03_jprb,5.0519e-04_jprb,2.8169e-04_jprb/)
kao( :, 5, 8, 2) = (/&
&5.2646e-04_jprb,5.6355e-04_jprb,5.3173e-04_jprb,6.2134e-04_jprb,7.8503e-04_jprb,9.3706e-04_jprb,&
&1.0322e-03_jprb,5.2647e-04_jprb,3.0574e-04_jprb/)
kao( :, 1, 9, 2) = (/&
&3.2639e-04_jprb,3.2062e-04_jprb,6.1707e-04_jprb,7.9540e-04_jprb,8.4564e-04_jprb,8.5817e-04_jprb,&
&9.0723e-04_jprb,3.2639e-04_jprb,5.5545e-04_jprb/)
kao( :, 2, 9, 2) = (/&
&3.6012e-04_jprb,3.7319e-04_jprb,5.0226e-04_jprb,7.4254e-04_jprb,8.4023e-04_jprb,8.3301e-04_jprb,&
&8.5728e-04_jprb,3.6012e-04_jprb,6.1165e-04_jprb/)
kao( :, 3, 9, 2) = (/&
&3.8987e-04_jprb,4.1225e-04_jprb,3.7907e-04_jprb,6.8530e-04_jprb,7.7881e-04_jprb,8.3778e-04_jprb,&
&8.4817e-04_jprb,3.8987e-04_jprb,6.6653e-04_jprb/)
kao( :, 4, 9, 2) = (/&
&4.1424e-04_jprb,4.3910e-04_jprb,3.6051e-04_jprb,6.1000e-04_jprb,7.2902e-04_jprb,8.1999e-04_jprb,&
&8.4396e-04_jprb,4.1424e-04_jprb,7.1819e-04_jprb/)
kao( :, 5, 9, 2) = (/&
&4.3431e-04_jprb,4.6239e-04_jprb,4.2288e-04_jprb,5.4880e-04_jprb,6.8867e-04_jprb,7.7866e-04_jprb,&
&8.9097e-04_jprb,4.3431e-04_jprb,7.7202e-04_jprb/)
kao( :, 1,10, 2) = (/&
&2.6062e-04_jprb,2.4097e-04_jprb,5.6760e-04_jprb,6.7838e-04_jprb,7.0839e-04_jprb,7.4582e-04_jprb,&
&7.5583e-04_jprb,2.6062e-04_jprb,2.5277e-03_jprb/)
kao( :, 2,10, 2) = (/&
&2.9023e-04_jprb,2.9545e-04_jprb,4.5173e-04_jprb,6.2994e-04_jprb,7.1727e-04_jprb,7.0001e-04_jprb,&
&7.3420e-04_jprb,2.9022e-04_jprb,2.7784e-03_jprb/)
kao( :, 3,10, 2) = (/&
&3.1702e-04_jprb,3.3294e-04_jprb,3.4527e-04_jprb,5.9793e-04_jprb,6.6774e-04_jprb,6.9352e-04_jprb,&
&7.1312e-04_jprb,3.1702e-04_jprb,3.0145e-03_jprb/)
kao( :, 4,10, 2) = (/&
&3.3919e-04_jprb,3.5815e-04_jprb,2.9459e-04_jprb,5.3609e-04_jprb,6.2952e-04_jprb,7.0029e-04_jprb,&
&6.9972e-04_jprb,3.3919e-04_jprb,3.2222e-03_jprb/)
kao( :, 5,10, 2) = (/&
&3.5768e-04_jprb,3.7923e-04_jprb,3.2874e-04_jprb,4.7549e-04_jprb,5.9483e-04_jprb,6.7311e-04_jprb,&
&7.3613e-04_jprb,3.5768e-04_jprb,3.4035e-03_jprb/)
kao( :, 1,11, 2) = (/&
&2.1907e-04_jprb,2.0328e-04_jprb,4.6419e-04_jprb,5.6297e-04_jprb,5.8907e-04_jprb,6.1155e-04_jprb,&
&6.1013e-04_jprb,2.1907e-04_jprb,5.1242e-03_jprb/)
kao( :, 2,11, 2) = (/&
&2.4410e-04_jprb,2.4843e-04_jprb,3.7130e-04_jprb,5.2284e-04_jprb,5.9762e-04_jprb,5.8585e-04_jprb,&
&6.0135e-04_jprb,2.4411e-04_jprb,5.5864e-03_jprb/)
kao( :, 3,11, 2) = (/&
&2.6625e-04_jprb,2.7930e-04_jprb,2.8189e-04_jprb,4.9405e-04_jprb,5.5402e-04_jprb,5.7720e-04_jprb,&
&5.8571e-04_jprb,2.6625e-04_jprb,6.0066e-03_jprb/)
kao( :, 4,11, 2) = (/&
&2.8487e-04_jprb,3.0018e-04_jprb,2.4472e-04_jprb,4.4200e-04_jprb,5.2652e-04_jprb,5.8248e-04_jprb,&
&5.7961e-04_jprb,2.8487e-04_jprb,6.3763e-03_jprb/)
kao( :, 5,11, 2) = (/&
&3.0010e-04_jprb,3.1719e-04_jprb,2.7311e-04_jprb,3.9201e-04_jprb,4.9427e-04_jprb,5.6306e-04_jprb,&
&6.1631e-04_jprb,3.0010e-04_jprb,6.6804e-03_jprb/)
kao( :, 1,12, 2) = (/&
&1.8394e-04_jprb,1.7118e-04_jprb,3.7730e-04_jprb,4.6792e-04_jprb,4.8975e-04_jprb,4.9917e-04_jprb,&
&5.0397e-04_jprb,1.8394e-04_jprb,6.7953e-03_jprb/)
kao( :, 2,12, 2) = (/&
&2.0488e-04_jprb,2.0891e-04_jprb,3.0355e-04_jprb,4.3536e-04_jprb,4.9195e-04_jprb,4.8369e-04_jprb,&
&4.9615e-04_jprb,2.0488e-04_jprb,7.3722e-03_jprb/)
kao( :, 3,12, 2) = (/&
&2.2338e-04_jprb,2.3370e-04_jprb,2.2853e-04_jprb,4.0848e-04_jprb,4.6057e-04_jprb,4.8139e-04_jprb,&
&4.8293e-04_jprb,2.2338e-04_jprb,7.8888e-03_jprb/)
kao( :, 4,12, 2) = (/&
&2.3905e-04_jprb,2.5126e-04_jprb,2.0156e-04_jprb,3.6557e-04_jprb,4.3992e-04_jprb,4.8195e-04_jprb,&
&4.8526e-04_jprb,2.3905e-04_jprb,8.3181e-03_jprb/)
kao( :, 5,12, 2) = (/&
&2.5129e-04_jprb,2.6467e-04_jprb,2.2905e-04_jprb,3.2273e-04_jprb,4.1230e-04_jprb,4.6630e-04_jprb,&
&5.1248e-04_jprb,2.5129e-04_jprb,8.6386e-03_jprb/)
kao( :, 1,13, 2) = (/&
&1.5430e-04_jprb,1.4442e-04_jprb,3.0805e-04_jprb,3.8950e-04_jprb,4.0767e-04_jprb,4.1179e-04_jprb,&
&4.1330e-04_jprb,1.5430e-04_jprb,7.3053e-03_jprb/)
kao( :, 2,13, 2) = (/&
&1.7179e-04_jprb,1.7510e-04_jprb,2.4818e-04_jprb,3.6198e-04_jprb,4.0625e-04_jprb,3.9974e-04_jprb,&
&4.1166e-04_jprb,1.7179e-04_jprb,7.9022e-03_jprb/)
kao( :, 3,13, 2) = (/&
&1.8741e-04_jprb,1.9575e-04_jprb,1.8604e-04_jprb,3.3670e-04_jprb,3.8272e-04_jprb,4.0145e-04_jprb,&
&4.0060e-04_jprb,1.8741e-04_jprb,8.4145e-03_jprb/)
kao( :, 4,13, 2) = (/&
&2.0031e-04_jprb,2.0975e-04_jprb,1.6656e-04_jprb,3.0379e-04_jprb,3.6769e-04_jprb,4.0078e-04_jprb,&
&4.0187e-04_jprb,2.0032e-04_jprb,8.8018e-03_jprb/)
kao( :, 5,13, 2) = (/&
&2.1018e-04_jprb,2.2076e-04_jprb,1.9159e-04_jprb,2.6448e-04_jprb,3.4432e-04_jprb,3.8512e-04_jprb,&
&4.2420e-04_jprb,2.1018e-04_jprb,9.0680e-03_jprb/)
kao( :, 1, 1, 3) = (/&
&2.3465e-03_jprb,2.4031e-03_jprb,2.2597e-03_jprb,2.1524e-03_jprb,2.8276e-03_jprb,3.5761e-03_jprb,&
&4.3079e-03_jprb,2.3465e-03_jprb,5.1471e-04_jprb/)
kao( :, 2, 1, 3) = (/&
&2.3042e-03_jprb,2.4485e-03_jprb,2.4199e-03_jprb,2.2938e-03_jprb,2.9847e-03_jprb,3.1952e-03_jprb,&
&4.1667e-03_jprb,2.3042e-03_jprb,6.2319e-04_jprb/)
kao( :, 3, 1, 3) = (/&
&2.2700e-03_jprb,2.4966e-03_jprb,2.5862e-03_jprb,2.6511e-03_jprb,2.8738e-03_jprb,2.9164e-03_jprb,&
&3.6118e-03_jprb,2.2700e-03_jprb,7.4229e-04_jprb/)
kao( :, 4, 1, 3) = (/&
&2.2509e-03_jprb,2.5573e-03_jprb,2.7581e-03_jprb,2.9718e-03_jprb,3.0657e-03_jprb,3.3376e-03_jprb,&
&3.1600e-03_jprb,2.2509e-03_jprb,8.5977e-04_jprb/)
kao( :, 5, 1, 3) = (/&
&2.2422e-03_jprb,2.6355e-03_jprb,2.9552e-03_jprb,3.2531e-03_jprb,3.4296e-03_jprb,3.4558e-03_jprb,&
&3.2808e-03_jprb,2.2422e-03_jprb,9.9766e-04_jprb/)
kao( :, 1, 2, 3) = (/&
&2.0157e-03_jprb,2.0510e-03_jprb,1.8851e-03_jprb,1.8206e-03_jprb,2.4343e-03_jprb,2.9704e-03_jprb,&
&3.8311e-03_jprb,2.0157e-03_jprb,4.1396e-04_jprb/)
kao( :, 2, 2, 3) = (/&
&1.9815e-03_jprb,2.0886e-03_jprb,2.0439e-03_jprb,1.8938e-03_jprb,2.5204e-03_jprb,2.7128e-03_jprb,&
&3.3350e-03_jprb,1.9815e-03_jprb,4.8039e-04_jprb/)
kao( :, 3, 2, 3) = (/&
&1.9576e-03_jprb,2.1326e-03_jprb,2.1790e-03_jprb,2.1795e-03_jprb,2.4882e-03_jprb,2.4941e-03_jprb,&
&3.2109e-03_jprb,1.9575e-03_jprb,5.7955e-04_jprb/)
kao( :, 4, 2, 3) = (/&
&1.9481e-03_jprb,2.1829e-03_jprb,2.3235e-03_jprb,2.4676e-03_jprb,2.6097e-03_jprb,2.8349e-03_jprb,&
&2.5868e-03_jprb,1.9481e-03_jprb,6.6714e-04_jprb/)
kao( :, 5, 2, 3) = (/&
&1.9507e-03_jprb,2.2521e-03_jprb,2.4912e-03_jprb,2.7356e-03_jprb,2.8987e-03_jprb,2.9418e-03_jprb,&
&2.7830e-03_jprb,1.9507e-03_jprb,7.7523e-04_jprb/)
kao( :, 1, 3, 3) = (/&
&1.7285e-03_jprb,1.7377e-03_jprb,1.5305e-03_jprb,1.6757e-03_jprb,2.1680e-03_jprb,2.5609e-03_jprb,&
&3.3887e-03_jprb,1.7285e-03_jprb,3.2280e-04_jprb/)
kao( :, 2, 3, 3) = (/&
&1.7015e-03_jprb,1.7653e-03_jprb,1.6878e-03_jprb,1.5112e-03_jprb,2.1719e-03_jprb,2.4083e-03_jprb,&
&2.8061e-03_jprb,1.7015e-03_jprb,3.7412e-04_jprb/)
kao( :, 3, 3, 3) = (/&
&1.6851e-03_jprb,1.8101e-03_jprb,1.8073e-03_jprb,1.7539e-03_jprb,2.2398e-03_jprb,2.1112e-03_jprb,&
&2.7333e-03_jprb,1.6851e-03_jprb,4.3157e-04_jprb/)
kao( :, 4, 3, 3) = (/&
&1.6786e-03_jprb,1.8567e-03_jprb,1.9291e-03_jprb,1.9927e-03_jprb,2.1347e-03_jprb,2.2693e-03_jprb,&
&2.2801e-03_jprb,1.6786e-03_jprb,5.0448e-04_jprb/)
kao( :, 5, 3, 3) = (/&
&1.6877e-03_jprb,1.9156e-03_jprb,2.0710e-03_jprb,2.2420e-03_jprb,2.3625e-03_jprb,2.5310e-03_jprb,&
&2.3182e-03_jprb,1.6877e-03_jprb,5.8583e-04_jprb/)
kao( :, 1, 4, 3) = (/&
&1.4834e-03_jprb,1.4711e-03_jprb,1.2522e-03_jprb,1.4479e-03_jprb,1.9854e-03_jprb,2.2569e-03_jprb,&
&2.9775e-03_jprb,1.4834e-03_jprb,2.5081e-04_jprb/)
kao( :, 2, 4, 3) = (/&
&1.4601e-03_jprb,1.4870e-03_jprb,1.3690e-03_jprb,1.2662e-03_jprb,1.8060e-03_jprb,2.0826e-03_jprb,&
&2.4977e-03_jprb,1.4601e-03_jprb,2.9277e-04_jprb/)
kao( :, 3, 4, 3) = (/&
&1.4467e-03_jprb,1.5271e-03_jprb,1.4979e-03_jprb,1.3500e-03_jprb,1.8497e-03_jprb,1.9610e-03_jprb,&
&2.2907e-03_jprb,1.4467e-03_jprb,3.3271e-04_jprb/)
kao( :, 4, 4, 3) = (/&
&1.4432e-03_jprb,1.5714e-03_jprb,1.5969e-03_jprb,1.5937e-03_jprb,1.7902e-03_jprb,1.9320e-03_jprb,&
&2.2420e-03_jprb,1.4432e-03_jprb,3.8467e-04_jprb/)
kao( :, 5, 4, 3) = (/&
&1.4550e-03_jprb,1.6236e-03_jprb,1.7127e-03_jprb,1.8068e-03_jprb,1.8486e-03_jprb,2.1176e-03_jprb,&
&1.8018e-03_jprb,1.4551e-03_jprb,4.4551e-04_jprb/)
kao( :, 1, 5, 3) = (/&
&1.2773e-03_jprb,1.2497e-03_jprb,1.0064e-03_jprb,1.2506e-03_jprb,1.7352e-03_jprb,2.1064e-03_jprb,&
&2.5188e-03_jprb,1.2773e-03_jprb,2.1025e-04_jprb/)
kao( :, 2, 5, 3) = (/&
&1.2595e-03_jprb,1.2634e-03_jprb,1.1147e-03_jprb,1.1296e-03_jprb,1.5824e-03_jprb,1.8075e-03_jprb,&
&2.2978e-03_jprb,1.2595e-03_jprb,2.3601e-04_jprb/)
kao( :, 3, 5, 3) = (/&
&1.2471e-03_jprb,1.2907e-03_jprb,1.2226e-03_jprb,1.0559e-03_jprb,1.5556e-03_jprb,1.7264e-03_jprb,&
&1.8319e-03_jprb,1.2471e-03_jprb,2.6674e-04_jprb/)
kao( :, 4, 5, 3) = (/&
&1.2460e-03_jprb,1.3277e-03_jprb,1.3232e-03_jprb,1.2839e-03_jprb,1.5266e-03_jprb,1.5639e-03_jprb,&
&1.9030e-03_jprb,1.2460e-03_jprb,3.0491e-04_jprb/)
kao( :, 5, 5, 3) = (/&
&1.2575e-03_jprb,1.3721e-03_jprb,1.4143e-03_jprb,1.4453e-03_jprb,1.5006e-03_jprb,1.7674e-03_jprb,&
&1.7436e-03_jprb,1.2575e-03_jprb,3.5060e-04_jprb/)
kao( :, 1, 6, 3) = (/&
&1.0958e-03_jprb,1.0595e-03_jprb,7.7664e-04_jprb,1.1085e-03_jprb,1.5393e-03_jprb,1.9338e-03_jprb,&
&2.1934e-03_jprb,1.0958e-03_jprb,1.9645e-04_jprb/)
kao( :, 2, 6, 3) = (/&
&1.0816e-03_jprb,1.0727e-03_jprb,9.0695e-04_jprb,1.0023e-03_jprb,1.4434e-03_jprb,1.5856e-03_jprb,&
&2.0291e-03_jprb,1.0816e-03_jprb,2.1208e-04_jprb/)
kao( :, 3, 6, 3) = (/&
&1.0710e-03_jprb,1.0888e-03_jprb,9.9129e-04_jprb,8.7443e-04_jprb,1.3179e-03_jprb,1.5033e-03_jprb,&
&1.7077e-03_jprb,1.0710e-03_jprb,2.3481e-04_jprb/)
kao( :, 4, 6, 3) = (/&
&1.0708e-03_jprb,1.1186e-03_jprb,1.0874e-03_jprb,9.5969e-04_jprb,1.2671e-03_jprb,1.4010e-03_jprb,&
&1.5917e-03_jprb,1.0708e-03_jprb,2.6339e-04_jprb/)
kao( :, 5, 6, 3) = (/&
&1.0806e-03_jprb,1.1572e-03_jprb,1.1631e-03_jprb,1.1545e-03_jprb,1.2485e-03_jprb,1.4294e-03_jprb,&
&1.6004e-03_jprb,1.0806e-03_jprb,2.9803e-04_jprb/)
kao( :, 1, 7, 3) = (/&
&9.3348e-04_jprb,8.9092e-04_jprb,5.7161e-04_jprb,1.0208e-03_jprb,1.3784e-03_jprb,1.7037e-03_jprb,&
&1.8935e-03_jprb,9.3348e-04_jprb,2.1146e-04_jprb/)
kao( :, 2, 7, 3) = (/&
&9.2171e-04_jprb,9.0329e-04_jprb,7.1477e-04_jprb,8.4903e-04_jprb,1.2778e-03_jprb,1.4945e-03_jprb,&
&1.7270e-03_jprb,9.2171e-04_jprb,2.3005e-04_jprb/)
kao( :, 3, 7, 3) = (/&
&9.1419e-04_jprb,9.1920e-04_jprb,8.1160e-04_jprb,7.6435e-04_jprb,1.1213e-03_jprb,1.3301e-03_jprb,&
&1.6214e-03_jprb,9.1419e-04_jprb,2.5234e-04_jprb/)
kao( :, 4, 7, 3) = (/&
&9.1402e-04_jprb,9.3968e-04_jprb,8.8126e-04_jprb,7.5287e-04_jprb,1.0570e-03_jprb,1.2475e-03_jprb,&
&1.2998e-03_jprb,9.1402e-04_jprb,2.7815e-04_jprb/)
kao( :, 5, 7, 3) = (/&
&9.2290e-04_jprb,9.7254e-04_jprb,9.5644e-04_jprb,8.9479e-04_jprb,1.0508e-03_jprb,1.1268e-03_jprb,&
&1.3501e-03_jprb,9.2290e-04_jprb,3.0806e-04_jprb/)
kao( :, 1, 8, 3) = (/&
&7.8900e-04_jprb,7.4488e-04_jprb,4.6218e-04_jprb,9.6318e-04_jprb,1.2372e-03_jprb,1.5237e-03_jprb,&
&1.6722e-03_jprb,7.8900e-04_jprb,3.0765e-04_jprb/)
kao( :, 2, 8, 3) = (/&
&7.8043e-04_jprb,7.5428e-04_jprb,5.4366e-04_jprb,7.5909e-04_jprb,1.0879e-03_jprb,1.3550e-03_jprb,&
&1.4794e-03_jprb,7.8043e-04_jprb,3.3864e-04_jprb/)
kao( :, 3, 8, 3) = (/&
&7.7466e-04_jprb,7.6980e-04_jprb,6.4963e-04_jprb,7.0009e-04_jprb,9.7649e-04_jprb,1.1689e-03_jprb,&
&1.4326e-03_jprb,7.7466e-04_jprb,3.7286e-04_jprb/)
kao( :, 4, 8, 3) = (/&
&7.7506e-04_jprb,7.8870e-04_jprb,7.1575e-04_jprb,6.1864e-04_jprb,8.9565e-04_jprb,1.0708e-03_jprb,&
&1.2387e-03_jprb,7.7506e-04_jprb,4.1070e-04_jprb/)
kao( :, 5, 8, 3) = (/&
&7.8287e-04_jprb,8.1561e-04_jprb,7.7836e-04_jprb,6.6838e-04_jprb,8.8453e-04_jprb,9.5158e-04_jprb,&
&1.1620e-03_jprb,7.8287e-04_jprb,4.5222e-04_jprb/)
kao( :, 1, 9, 3) = (/&
&6.6353e-04_jprb,6.2207e-04_jprb,4.1497e-04_jprb,8.5325e-04_jprb,1.1545e-03_jprb,1.3202e-03_jprb,&
&1.4543e-03_jprb,6.6353e-04_jprb,9.2255e-04_jprb/)
kao( :, 2, 9, 3) = (/&
&6.5824e-04_jprb,6.2786e-04_jprb,3.9339e-04_jprb,7.1164e-04_jprb,9.5910e-04_jprb,1.2248e-03_jprb,&
&1.2834e-03_jprb,6.5824e-04_jprb,1.0047e-03_jprb/)
kao( :, 3, 9, 3) = (/&
&6.5331e-04_jprb,6.3921e-04_jprb,5.1016e-04_jprb,5.9654e-04_jprb,8.7596e-04_jprb,1.0857e-03_jprb,&
&1.2145e-03_jprb,6.5331e-04_jprb,1.0900e-03_jprb/)
kao( :, 4, 9, 3) = (/&
&6.5413e-04_jprb,6.5950e-04_jprb,5.8244e-04_jprb,5.3974e-04_jprb,7.9259e-04_jprb,9.3024e-04_jprb,&
&1.1600e-03_jprb,6.5413e-04_jprb,1.1801e-03_jprb/)
kao( :, 5, 9, 3) = (/&
&6.6022e-04_jprb,6.8110e-04_jprb,6.3639e-04_jprb,5.2716e-04_jprb,7.2311e-04_jprb,8.5016e-04_jprb,&
&9.6256e-04_jprb,6.6022e-04_jprb,1.2684e-03_jprb/)
kao( :, 1,10, 3) = (/&
&5.5537e-04_jprb,5.1658e-04_jprb,3.5969e-04_jprb,7.5778e-04_jprb,1.0268e-03_jprb,1.1188e-03_jprb,&
&1.2385e-03_jprb,5.5537e-04_jprb,4.6647e-03_jprb/)
kao( :, 2,10, 3) = (/&
&5.5299e-04_jprb,5.2259e-04_jprb,3.1728e-04_jprb,6.5526e-04_jprb,8.4363e-04_jprb,1.0738e-03_jprb,&
&1.0790e-03_jprb,5.5299e-04_jprb,4.9960e-03_jprb/)
kao( :, 3,10, 3) = (/&
&5.4881e-04_jprb,5.3065e-04_jprb,3.9373e-04_jprb,5.2361e-04_jprb,7.6014e-04_jprb,9.4697e-04_jprb,&
&1.0409e-03_jprb,5.4881e-04_jprb,5.3035e-03_jprb/)
kao( :, 4,10, 3) = (/&
&5.5010e-04_jprb,5.4878e-04_jprb,4.7038e-04_jprb,4.9342e-04_jprb,6.7583e-04_jprb,8.0683e-04_jprb,&
&1.0299e-03_jprb,5.5010e-04_jprb,5.6055e-03_jprb/)
kao( :, 5,10, 3) = (/&
&5.5598e-04_jprb,5.6871e-04_jprb,5.2247e-04_jprb,4.3615e-04_jprb,6.1815e-04_jprb,7.4431e-04_jprb,&
&8.6008e-04_jprb,5.5598e-04_jprb,5.8866e-03_jprb/)
kao( :, 1,11, 3) = (/&
&4.6383e-04_jprb,4.3181e-04_jprb,2.9311e-04_jprb,6.2613e-04_jprb,8.4464e-04_jprb,9.4332e-04_jprb,&
&1.0276e-03_jprb,4.6383e-04_jprb,9.7820e-03_jprb/)
kao( :, 2,11, 3) = (/&
&4.6171e-04_jprb,4.3648e-04_jprb,2.6562e-04_jprb,5.3382e-04_jprb,6.9685e-04_jprb,9.0179e-04_jprb,&
&9.0128e-04_jprb,4.6171e-04_jprb,1.0398e-02_jprb/)
kao( :, 3,11, 3) = (/&
&4.5971e-04_jprb,4.4491e-04_jprb,3.3508e-04_jprb,4.3267e-04_jprb,6.3864e-04_jprb,7.7944e-04_jprb,&
&8.8922e-04_jprb,4.5971e-04_jprb,1.0944e-02_jprb/)
kao( :, 4,11, 3) = (/&
&4.6259e-04_jprb,4.6298e-04_jprb,4.0175e-04_jprb,4.0894e-04_jprb,5.5874e-04_jprb,6.6574e-04_jprb,&
&8.6378e-04_jprb,4.6259e-04_jprb,1.1452e-02_jprb/)
kao( :, 5,11, 3) = (/&
&4.6974e-04_jprb,4.8223e-04_jprb,4.4819e-04_jprb,3.7104e-04_jprb,5.1007e-04_jprb,6.1091e-04_jprb,&
&6.9095e-04_jprb,4.6974e-04_jprb,1.1916e-02_jprb/)
kao( :, 1,12, 3) = (/&
&3.8677e-04_jprb,3.6035e-04_jprb,2.4184e-04_jprb,5.1647e-04_jprb,6.9945e-04_jprb,8.0460e-04_jprb,&
&8.3717e-04_jprb,3.8677e-04_jprb,1.3274e-02_jprb/)
kao( :, 2,12, 3) = (/&
&3.8521e-04_jprb,3.6402e-04_jprb,2.2242e-04_jprb,4.3447e-04_jprb,5.8110e-04_jprb,7.4047e-04_jprb,&
&7.6321e-04_jprb,3.8521e-04_jprb,1.4068e-02_jprb/)
kao( :, 3,12, 3) = (/&
&3.8458e-04_jprb,3.7296e-04_jprb,2.8696e-04_jprb,3.5751e-04_jprb,5.2960e-04_jprb,6.4366e-04_jprb,&
&7.5179e-04_jprb,3.8458e-04_jprb,1.4758e-02_jprb/)
kao( :, 4,12, 3) = (/&
&3.8810e-04_jprb,3.8944e-04_jprb,3.4377e-04_jprb,3.3355e-04_jprb,4.6692e-04_jprb,5.5746e-04_jprb,&
&7.0895e-04_jprb,3.8810e-04_jprb,1.5376e-02_jprb/)
kao( :, 5,12, 3) = (/&
&3.9595e-04_jprb,4.0863e-04_jprb,3.8125e-04_jprb,3.1202e-04_jprb,4.2678e-04_jprb,5.1131e-04_jprb,&
&5.7489e-04_jprb,3.9595e-04_jprb,1.5941e-02_jprb/)
kao( :, 1,13, 3) = (/&
&3.2194e-04_jprb,2.9976e-04_jprb,1.9852e-04_jprb,4.2567e-04_jprb,5.7525e-04_jprb,6.7061e-04_jprb,&
&6.9907e-04_jprb,3.2194e-04_jprb,1.4565e-02_jprb/)
kao( :, 2,13, 3) = (/&
&3.2103e-04_jprb,3.0342e-04_jprb,1.8519e-04_jprb,3.5157e-04_jprb,4.8791e-04_jprb,6.1939e-04_jprb,&
&6.5160e-04_jprb,3.2103e-04_jprb,1.5395e-02_jprb/)
kao( :, 3,13, 3) = (/&
&3.2113e-04_jprb,3.1205e-04_jprb,2.4410e-04_jprb,2.9571e-04_jprb,4.4082e-04_jprb,5.2957e-04_jprb,&
&6.2741e-04_jprb,3.2112e-04_jprb,1.6107e-02_jprb/)
kao( :, 4,13, 3) = (/&
&3.2542e-04_jprb,3.2754e-04_jprb,2.9103e-04_jprb,2.6678e-04_jprb,3.8858e-04_jprb,4.6663e-04_jprb,&
&5.7700e-04_jprb,3.2542e-04_jprb,1.6764e-02_jprb/)
kao( :, 5,13, 3) = (/&
&3.3271e-04_jprb,3.4522e-04_jprb,3.2313e-04_jprb,2.6306e-04_jprb,3.5325e-04_jprb,4.2786e-04_jprb,&
&4.7758e-04_jprb,3.3271e-04_jprb,1.7329e-02_jprb/)
kao( :, 1, 1, 4) = (/&
&3.2539e-03_jprb,3.4940e-03_jprb,3.4388e-03_jprb,3.0659e-03_jprb,3.4522e-03_jprb,4.1188e-03_jprb,&
&4.1472e-03_jprb,3.2539e-03_jprb,9.9646e-04_jprb/)
kao( :, 2, 1, 4) = (/&
&3.2363e-03_jprb,3.6045e-03_jprb,3.7021e-03_jprb,3.5901e-03_jprb,3.1463e-03_jprb,4.3360e-03_jprb,&
&4.0838e-03_jprb,3.2363e-03_jprb,1.0956e-03_jprb/)
kao( :, 3, 1, 4) = (/&
&3.2334e-03_jprb,3.7700e-03_jprb,3.9602e-03_jprb,3.9629e-03_jprb,3.8081e-03_jprb,4.2925e-03_jprb,&
&5.1219e-03_jprb,3.2334e-03_jprb,1.3007e-03_jprb/)
kao( :, 4, 1, 4) = (/&
&3.2490e-03_jprb,3.9748e-03_jprb,4.2071e-03_jprb,4.2935e-03_jprb,4.3164e-03_jprb,4.2604e-03_jprb,&
&5.6033e-03_jprb,3.2490e-03_jprb,1.5944e-03_jprb/)
kao( :, 5, 1, 4) = (/&
&3.2698e-03_jprb,4.1740e-03_jprb,4.4497e-03_jprb,4.6155e-03_jprb,4.8047e-03_jprb,5.1537e-03_jprb,&
&5.5559e-03_jprb,3.2698e-03_jprb,1.9119e-03_jprb/)
kao( :, 1, 2, 4) = (/&
&2.8229e-03_jprb,2.9984e-03_jprb,2.9248e-03_jprb,2.5710e-03_jprb,2.9591e-03_jprb,3.5685e-03_jprb,&
&3.3471e-03_jprb,2.8229e-03_jprb,7.1037e-04_jprb/)
kao( :, 2, 2, 4) = (/&
&2.8182e-03_jprb,3.1079e-03_jprb,3.1510e-03_jprb,3.0220e-03_jprb,2.6456e-03_jprb,3.5065e-03_jprb,&
&3.5091e-03_jprb,2.8182e-03_jprb,8.2941e-04_jprb/)
kao( :, 3, 2, 4) = (/&
&2.8273e-03_jprb,3.2641e-03_jprb,3.3991e-03_jprb,3.3882e-03_jprb,3.1076e-03_jprb,3.6339e-03_jprb,&
&4.1453e-03_jprb,2.8273e-03_jprb,9.9329e-04_jprb/)
kao( :, 4, 2, 4) = (/&
&2.8479e-03_jprb,3.4537e-03_jprb,3.6378e-03_jprb,3.6922e-03_jprb,3.5902e-03_jprb,3.4985e-03_jprb,&
&4.8079e-03_jprb,2.8479e-03_jprb,1.2207e-03_jprb/)
kao( :, 5, 2, 4) = (/&
&2.8762e-03_jprb,3.6435e-03_jprb,3.8640e-03_jprb,3.9829e-03_jprb,4.0196e-03_jprb,4.2137e-03_jprb,&
&4.6057e-03_jprb,2.8762e-03_jprb,1.4645e-03_jprb/)
kao( :, 1, 3, 4) = (/&
&2.4480e-03_jprb,2.5503e-03_jprb,2.4276e-03_jprb,1.9299e-03_jprb,2.4394e-03_jprb,2.9600e-03_jprb,&
&3.0819e-03_jprb,2.4480e-03_jprb,5.1310e-04_jprb/)
kao( :, 2, 3, 4) = (/&
&2.4484e-03_jprb,2.6489e-03_jprb,2.6249e-03_jprb,2.4613e-03_jprb,2.1891e-03_jprb,2.8113e-03_jprb,&
&2.9085e-03_jprb,2.4484e-03_jprb,6.0695e-04_jprb/)
kao( :, 3, 3, 4) = (/&
&2.4631e-03_jprb,2.7817e-03_jprb,2.8578e-03_jprb,2.8021e-03_jprb,2.3361e-03_jprb,3.1956e-03_jprb,&
&3.2912e-03_jprb,2.4631e-03_jprb,7.4313e-04_jprb/)
kao( :, 4, 3, 4) = (/&
&2.4843e-03_jprb,2.9440e-03_jprb,3.0734e-03_jprb,3.0947e-03_jprb,2.9596e-03_jprb,2.9621e-03_jprb,&
&3.8254e-03_jprb,2.4843e-03_jprb,8.9831e-04_jprb/)
kao( :, 5, 3, 4) = (/&
&2.5152e-03_jprb,3.1190e-03_jprb,3.2801e-03_jprb,3.3527e-03_jprb,3.3374e-03_jprb,3.2653e-03_jprb,&
&3.7266e-03_jprb,2.5152e-03_jprb,1.0797e-03_jprb/)
kao( :, 1, 4, 4) = (/&
&2.1250e-03_jprb,2.1670e-03_jprb,1.9990e-03_jprb,1.5199e-03_jprb,1.9962e-03_jprb,2.4995e-03_jprb,&
&2.9024e-03_jprb,2.1250e-03_jprb,3.7531e-04_jprb/)
kao( :, 2, 4, 4) = (/&
&2.1204e-03_jprb,2.2489e-03_jprb,2.1700e-03_jprb,1.9399e-03_jprb,1.9963e-03_jprb,2.4266e-03_jprb,&
&2.6000e-03_jprb,2.1204e-03_jprb,4.4756e-04_jprb/)
kao( :, 3, 4, 4) = (/&
&2.1413e-03_jprb,2.3587e-03_jprb,2.3627e-03_jprb,2.2544e-03_jprb,1.9195e-03_jprb,2.4658e-03_jprb,&
&2.5172e-03_jprb,2.1413e-03_jprb,5.4705e-04_jprb/)
kao( :, 4, 4, 4) = (/&
&2.1654e-03_jprb,2.4980e-03_jprb,2.5663e-03_jprb,2.5373e-03_jprb,2.3728e-03_jprb,2.4769e-03_jprb,&
&2.8318e-03_jprb,2.1654e-03_jprb,6.6125e-04_jprb/)
kao( :, 5, 4, 4) = (/&
&2.1913e-03_jprb,2.6456e-03_jprb,2.7536e-03_jprb,2.7816e-03_jprb,2.7405e-03_jprb,2.5702e-03_jprb,&
&3.2605e-03_jprb,2.1913e-03_jprb,7.9714e-04_jprb/)
kao( :, 1, 5, 4) = (/&
&1.8265e-03_jprb,1.8381e-03_jprb,1.6457e-03_jprb,1.2486e-03_jprb,1.7229e-03_jprb,2.0547e-03_jprb,&
&2.6848e-03_jprb,1.8265e-03_jprb,2.8596e-04_jprb/)
kao( :, 2, 5, 4) = (/&
&1.8274e-03_jprb,1.9048e-03_jprb,1.7983e-03_jprb,1.4752e-03_jprb,1.7469e-03_jprb,2.1116e-03_jprb,&
&2.1134e-03_jprb,1.8274e-03_jprb,3.4190e-04_jprb/)
kao( :, 3, 5, 4) = (/&
&1.8508e-03_jprb,2.0003e-03_jprb,1.9620e-03_jprb,1.8188e-03_jprb,1.6077e-03_jprb,1.9516e-03_jprb,&
&2.1073e-03_jprb,1.8508e-03_jprb,4.1292e-04_jprb/)
kao( :, 4, 5, 4) = (/&
&1.8793e-03_jprb,2.1182e-03_jprb,2.1350e-03_jprb,2.0517e-03_jprb,1.8087e-03_jprb,2.2071e-03_jprb,&
&2.2714e-03_jprb,1.8793e-03_jprb,4.9789e-04_jprb/)
kao( :, 5, 5, 4) = (/&
&1.9065e-03_jprb,2.2435e-03_jprb,2.3053e-03_jprb,2.2926e-03_jprb,2.2224e-03_jprb,2.0829e-03_jprb,&
&2.5565e-03_jprb,1.9065e-03_jprb,5.9975e-04_jprb/)
kao( :, 1, 6, 4) = (/&
&1.5738e-03_jprb,1.5536e-03_jprb,1.3462e-03_jprb,1.0905e-03_jprb,1.5345e-03_jprb,1.8378e-03_jprb,&
&2.3696e-03_jprb,1.5738e-03_jprb,2.4570e-04_jprb/)
kao( :, 2, 6, 4) = (/&
&1.5785e-03_jprb,1.6102e-03_jprb,1.4864e-03_jprb,1.0878e-03_jprb,1.4533e-03_jprb,1.8096e-03_jprb,&
&1.9208e-03_jprb,1.5785e-03_jprb,2.8650e-04_jprb/)
kao( :, 3, 6, 4) = (/&
&1.5938e-03_jprb,1.6886e-03_jprb,1.6242e-03_jprb,1.4329e-03_jprb,1.3971e-03_jprb,1.6588e-03_jprb,&
&1.7977e-03_jprb,1.5938e-03_jprb,3.3646e-04_jprb/)
kao( :, 4, 6, 4) = (/&
&1.6207e-03_jprb,1.7903e-03_jprb,1.7740e-03_jprb,1.6609e-03_jprb,1.4090e-03_jprb,1.7880e-03_jprb,&
&1.8264e-03_jprb,1.6207e-03_jprb,3.9927e-04_jprb/)
kao( :, 5, 6, 4) = (/&
&1.6514e-03_jprb,1.8945e-03_jprb,1.9189e-03_jprb,1.8707e-03_jprb,1.7309e-03_jprb,1.7651e-03_jprb,&
&1.8956e-03_jprb,1.6514e-03_jprb,4.7341e-04_jprb/)
kao( :, 1, 7, 4) = (/&
&1.3566e-03_jprb,1.3176e-03_jprb,1.0800e-03_jprb,9.9879e-04_jprb,1.3645e-03_jprb,1.6716e-03_jprb,&
&2.0138e-03_jprb,1.3566e-03_jprb,2.7117e-04_jprb/)
kao( :, 2, 7, 4) = (/&
&1.3616e-03_jprb,1.3614e-03_jprb,1.2294e-03_jprb,8.6943e-04_jprb,1.2441e-03_jprb,1.4557e-03_jprb,&
&1.7627e-03_jprb,1.3616e-03_jprb,3.0497e-04_jprb/)
kao( :, 3, 7, 4) = (/&
&1.3738e-03_jprb,1.4251e-03_jprb,1.3424e-03_jprb,1.0748e-03_jprb,1.3239e-03_jprb,1.4948e-03_jprb,&
&1.4893e-03_jprb,1.3738e-03_jprb,3.4547e-04_jprb/)
kao( :, 4, 7, 4) = (/&
&1.3909e-03_jprb,1.5062e-03_jprb,1.4675e-03_jprb,1.3314e-03_jprb,1.1299e-03_jprb,1.4256e-03_jprb,&
&1.5101e-03_jprb,1.3909e-03_jprb,3.9363e-04_jprb/)
kao( :, 5, 7, 4) = (/&
&1.4214e-03_jprb,1.5939e-03_jprb,1.5929e-03_jprb,1.5159e-03_jprb,1.3044e-03_jprb,1.5546e-03_jprb,&
&1.5847e-03_jprb,1.4214e-03_jprb,4.4999e-04_jprb/)
kao( :, 1, 8, 4) = (/&
&1.1638e-03_jprb,1.1139e-03_jprb,8.4796e-04_jprb,8.4668e-04_jprb,1.2396e-03_jprb,1.5094e-03_jprb,&
&1.6975e-03_jprb,1.1638e-03_jprb,4.3052e-04_jprb/)
kao( :, 2, 8, 4) = (/&
&1.1671e-03_jprb,1.1491e-03_jprb,9.9702e-04_jprb,7.1894e-04_jprb,1.1157e-03_jprb,1.2835e-03_jprb,&
&1.5171e-03_jprb,1.1671e-03_jprb,4.7244e-04_jprb/)
kao( :, 3, 8, 4) = (/&
&1.1763e-03_jprb,1.1971e-03_jprb,1.1061e-03_jprb,7.5625e-04_jprb,1.0948e-03_jprb,1.3227e-03_jprb,&
&1.3243e-03_jprb,1.1763e-03_jprb,5.1908e-04_jprb/)
kao( :, 4, 8, 4) = (/&
&1.1882e-03_jprb,1.2582e-03_jprb,1.2081e-03_jprb,1.0410e-03_jprb,9.4931e-04_jprb,1.2112e-03_jprb,&
&1.2350e-03_jprb,1.1882e-03_jprb,5.7242e-04_jprb/)
kao( :, 5, 8, 4) = (/&
&1.2141e-03_jprb,1.3322e-03_jprb,1.3142e-03_jprb,1.2208e-03_jprb,9.8671e-04_jprb,1.3128e-03_jprb,&
&1.3456e-03_jprb,1.2141e-03_jprb,6.3120e-04_jprb/)
kao( :, 1, 9, 4) = (/&
&9.9337e-04_jprb,9.3743e-04_jprb,6.1970e-04_jprb,7.5456e-04_jprb,1.1089e-03_jprb,1.3407e-03_jprb,&
&1.5068e-03_jprb,9.9337e-04_jprb,1.4422e-03_jprb/)
kao( :, 2, 9, 4) = (/&
&9.9471e-04_jprb,9.6601e-04_jprb,8.0263e-04_jprb,6.4260e-04_jprb,9.9035e-04_jprb,1.1710e-03_jprb,&
&1.3289e-03_jprb,9.9471e-04_jprb,1.5498e-03_jprb/)
kao( :, 3, 9, 4) = (/&
&1.0028e-03_jprb,1.0037e-03_jprb,9.0388e-04_jprb,5.9394e-04_jprb,8.7485e-04_jprb,1.0779e-03_jprb,&
&1.1968e-03_jprb,1.0028e-03_jprb,1.6632e-03_jprb/)
kao( :, 4, 9, 4) = (/&
&1.0138e-03_jprb,1.0500e-03_jprb,9.8794e-04_jprb,7.6322e-04_jprb,8.5312e-04_jprb,1.1047e-03_jprb,&
&1.0664e-03_jprb,1.0138e-03_jprb,1.7764e-03_jprb/)
kao( :, 5, 9, 4) = (/&
&1.0324e-03_jprb,1.1072e-03_jprb,1.0751e-03_jprb,9.6755e-04_jprb,7.9829e-04_jprb,1.0354e-03_jprb,&
&1.1339e-03_jprb,1.0324e-03_jprb,1.8836e-03_jprb/)
kao( :, 1,10, 4) = (/&
&8.4390e-04_jprb,7.8883e-04_jprb,4.5496e-04_jprb,6.3978e-04_jprb,9.7062e-04_jprb,1.1888e-03_jprb,&
&1.3025e-03_jprb,8.4390e-04_jprb,7.7978e-03_jprb/)
kao( :, 2,10, 4) = (/&
&8.4417e-04_jprb,8.1047e-04_jprb,6.4039e-04_jprb,5.5867e-04_jprb,8.6775e-04_jprb,1.0100e-03_jprb,&
&1.1972e-03_jprb,8.4417e-04_jprb,8.1651e-03_jprb/)
kao( :, 3,10, 4) = (/&
&8.5209e-04_jprb,8.4218e-04_jprb,7.3701e-04_jprb,4.8053e-04_jprb,7.5503e-04_jprb,9.4507e-04_jprb,&
&1.0394e-03_jprb,8.5209e-04_jprb,8.5320e-03_jprb/)
kao( :, 4,10, 4) = (/&
&8.6243e-04_jprb,8.7871e-04_jprb,8.1378e-04_jprb,5.4794e-04_jprb,7.5693e-04_jprb,9.4093e-04_jprb,&
&9.0694e-04_jprb,8.6243e-04_jprb,8.8886e-03_jprb/)
kao( :, 5,10, 4) = (/&
&8.7838e-04_jprb,9.2500e-04_jprb,8.8544e-04_jprb,7.6044e-04_jprb,6.4236e-04_jprb,8.2354e-04_jprb,&
&9.4540e-04_jprb,8.7839e-04_jprb,9.2325e-03_jprb/)
kao( :, 1,11, 4) = (/&
&7.1140e-04_jprb,6.6686e-04_jprb,3.9659e-04_jprb,5.3128e-04_jprb,8.2390e-04_jprb,9.6334e-04_jprb,&
&1.0535e-03_jprb,7.1140e-04_jprb,1.6752e-02_jprb/)
kao( :, 2,11, 4) = (/&
&7.1470e-04_jprb,6.8928e-04_jprb,5.4857e-04_jprb,4.7790e-04_jprb,7.0017e-04_jprb,8.4578e-04_jprb,&
&9.6239e-04_jprb,7.1470e-04_jprb,1.7467e-02_jprb/)
kao( :, 3,11, 4) = (/&
&7.2406e-04_jprb,7.1829e-04_jprb,6.3252e-04_jprb,4.0136e-04_jprb,6.0473e-04_jprb,8.1229e-04_jprb,&
&8.6413e-04_jprb,7.2406e-04_jprb,1.8154e-02_jprb/)
kao( :, 4,11, 4) = (/&
&7.3750e-04_jprb,7.5088e-04_jprb,6.9603e-04_jprb,4.8007e-04_jprb,6.2834e-04_jprb,7.5345e-04_jprb,&
&7.8530e-04_jprb,7.3750e-04_jprb,1.8779e-02_jprb/)
kao( :, 5,11, 4) = (/&
&7.5575e-04_jprb,7.9367e-04_jprb,7.5606e-04_jprb,6.5213e-04_jprb,5.4718e-04_jprb,7.0193e-04_jprb,&
&8.3404e-04_jprb,7.5575e-04_jprb,1.9352e-02_jprb/)
kao( :, 1,12, 4) = (/&
&5.9829e-04_jprb,5.6157e-04_jprb,3.4347e-04_jprb,4.4145e-04_jprb,6.8008e-04_jprb,7.8397e-04_jprb,&
&8.5127e-04_jprb,5.9830e-04_jprb,2.3223e-02_jprb/)
kao( :, 2,12, 4) = (/&
&6.0344e-04_jprb,5.8387e-04_jprb,4.6957e-04_jprb,3.9737e-04_jprb,5.7696e-04_jprb,7.2078e-04_jprb,&
&7.8930e-04_jprb,6.0344e-04_jprb,2.4171e-02_jprb/)
kao( :, 3,12, 4) = (/&
&6.1383e-04_jprb,6.1057e-04_jprb,5.4014e-04_jprb,3.4306e-04_jprb,5.0450e-04_jprb,6.7941e-04_jprb,&
&7.3306e-04_jprb,6.1383e-04_jprb,2.5042e-02_jprb/)
kao( :, 4,12, 4) = (/&
&6.2909e-04_jprb,6.4187e-04_jprb,5.9443e-04_jprb,4.2049e-04_jprb,5.1244e-04_jprb,6.1921e-04_jprb,&
&6.8115e-04_jprb,6.2909e-04_jprb,2.5830e-02_jprb/)
kao( :, 5,12, 4) = (/&
&6.5010e-04_jprb,6.8123e-04_jprb,6.4805e-04_jprb,5.6243e-04_jprb,4.5555e-04_jprb,5.8069e-04_jprb,&
&6.9766e-04_jprb,6.5010e-04_jprb,2.6537e-02_jprb/)
kao( :, 1,13, 4) = (/&
&5.0269e-04_jprb,4.7309e-04_jprb,2.9722e-04_jprb,3.6029e-04_jprb,5.5327e-04_jprb,6.7267e-04_jprb,&
&6.9641e-04_jprb,5.0269e-04_jprb,2.5949e-02_jprb/)
kao( :, 2,13, 4) = (/&
&5.0863e-04_jprb,4.9324e-04_jprb,4.0227e-04_jprb,3.2512e-04_jprb,4.7435e-04_jprb,5.7218e-04_jprb,&
&6.4965e-04_jprb,5.0863e-04_jprb,2.6966e-02_jprb/)
kao( :, 3,13, 4) = (/&
&5.1998e-04_jprb,5.1754e-04_jprb,4.6042e-04_jprb,2.9200e-04_jprb,4.1919e-04_jprb,5.5920e-04_jprb,&
&6.2355e-04_jprb,5.1997e-04_jprb,2.7905e-02_jprb/)
kao( :, 4,13, 4) = (/&
&5.3565e-04_jprb,5.4724e-04_jprb,5.0865e-04_jprb,3.7273e-04_jprb,4.1799e-04_jprb,5.1125e-04_jprb,&
&5.5790e-04_jprb,5.3565e-04_jprb,2.8735e-02_jprb/)
kao( :, 5,13, 4) = (/&
&5.5698e-04_jprb,5.8373e-04_jprb,5.5557e-04_jprb,4.8519e-04_jprb,3.8080e-04_jprb,4.8575e-04_jprb,&
&5.9866e-04_jprb,5.5698e-04_jprb,2.9481e-02_jprb/)
kao( :, 1, 1, 5) = (/&
&5.1773e-03_jprb,5.5179e-03_jprb,5.4794e-03_jprb,5.0590e-03_jprb,3.8870e-03_jprb,4.6296e-03_jprb,&
&5.9241e-03_jprb,5.1773e-03_jprb,1.5277e-03_jprb/)
kao( :, 2, 1, 5) = (/&
&5.2034e-03_jprb,5.6993e-03_jprb,5.7195e-03_jprb,5.6065e-03_jprb,5.1571e-03_jprb,4.6383e-03_jprb,&
&6.9998e-03_jprb,5.2034e-03_jprb,2.0327e-03_jprb/)
kao( :, 3, 1, 5) = (/&
&5.2523e-03_jprb,5.8787e-03_jprb,6.0084e-03_jprb,6.0684e-03_jprb,6.0397e-03_jprb,6.1073e-03_jprb,&
&5.9208e-03_jprb,5.2523e-03_jprb,2.5125e-03_jprb/)
kao( :, 4, 1, 5) = (/&
&5.3054e-03_jprb,6.0746e-03_jprb,6.3010e-03_jprb,6.5205e-03_jprb,6.8111e-03_jprb,7.3269e-03_jprb,&
&7.5915e-03_jprb,5.3054e-03_jprb,3.0259e-03_jprb/)
kao( :, 5, 1, 5) = (/&
&5.3679e-03_jprb,6.2880e-03_jprb,6.5896e-03_jprb,6.9769e-03_jprb,7.5426e-03_jprb,8.2616e-03_jprb,&
&9.5734e-03_jprb,5.3679e-03_jprb,3.5988e-03_jprb/)
kao( :, 1, 2, 5) = (/&
&4.6050e-03_jprb,4.8904e-03_jprb,4.7826e-03_jprb,4.2812e-03_jprb,3.0961e-03_jprb,4.0066e-03_jprb,&
&5.0115e-03_jprb,4.6050e-03_jprb,1.1833e-03_jprb/)
kao( :, 2, 2, 5) = (/&
&4.6546e-03_jprb,5.0669e-03_jprb,5.0153e-03_jprb,4.8028e-03_jprb,4.2371e-03_jprb,3.8571e-03_jprb,&
&5.7082e-03_jprb,4.6545e-03_jprb,1.5250e-03_jprb/)
kao( :, 3, 2, 5) = (/&
&4.7163e-03_jprb,5.2445e-03_jprb,5.2818e-03_jprb,5.2193e-03_jprb,5.0401e-03_jprb,4.8158e-03_jprb,&
&4.8111e-03_jprb,4.7163e-03_jprb,1.8851e-03_jprb/)
kao( :, 4, 2, 5) = (/&
&4.7840e-03_jprb,5.4375e-03_jprb,5.5428e-03_jprb,5.6145e-03_jprb,5.7557e-03_jprb,6.0979e-03_jprb,&
&6.0650e-03_jprb,4.7840e-03_jprb,2.2872e-03_jprb/)
kao( :, 5, 2, 5) = (/&
&4.8541e-03_jprb,5.6350e-03_jprb,5.8029e-03_jprb,5.9983e-03_jprb,6.3916e-03_jprb,6.9220e-03_jprb,&
&7.8417e-03_jprb,4.8542e-03_jprb,2.7410e-03_jprb/)
kao( :, 1, 3, 5) = (/&
&4.0566e-03_jprb,4.2666e-03_jprb,4.1136e-03_jprb,3.4902e-03_jprb,2.4320e-03_jprb,3.7448e-03_jprb,&
&4.0596e-03_jprb,4.0566e-03_jprb,8.5537e-04_jprb/)
kao( :, 2, 3, 5) = (/&
&4.1192e-03_jprb,4.4343e-03_jprb,4.3374e-03_jprb,4.0126e-03_jprb,3.2863e-03_jprb,3.1710e-03_jprb,&
&4.6913e-03_jprb,4.1192e-03_jprb,1.0912e-03_jprb/)
kao( :, 3, 3, 5) = (/&
&4.1883e-03_jprb,4.6068e-03_jprb,4.5710e-03_jprb,4.4080e-03_jprb,4.0587e-03_jprb,3.3970e-03_jprb,&
&4.0950e-03_jprb,4.1883e-03_jprb,1.3564e-03_jprb/)
kao( :, 4, 3, 5) = (/&
&4.2607e-03_jprb,4.7874e-03_jprb,4.8302e-03_jprb,4.7600e-03_jprb,4.6789e-03_jprb,4.6803e-03_jprb,&
&4.6046e-03_jprb,4.2607e-03_jprb,1.6587e-03_jprb/)
kao( :, 5, 3, 5) = (/&
&4.3291e-03_jprb,4.9729e-03_jprb,5.0821e-03_jprb,5.1132e-03_jprb,5.2389e-03_jprb,5.5501e-03_jprb,&
&6.1453e-03_jprb,4.3291e-03_jprb,2.0123e-03_jprb/)
kao( :, 1, 4, 5) = (/&
&3.5459e-03_jprb,3.6825e-03_jprb,3.4932e-03_jprb,2.7637e-03_jprb,1.9201e-03_jprb,3.0460e-03_jprb,&
&3.2749e-03_jprb,3.5459e-03_jprb,6.1561e-04_jprb/)
kao( :, 2, 4, 5) = (/&
&3.6061e-03_jprb,3.8362e-03_jprb,3.7182e-03_jprb,3.3223e-03_jprb,2.3497e-03_jprb,2.6627e-03_jprb,&
&3.6845e-03_jprb,3.6061e-03_jprb,7.8011e-04_jprb/)
kao( :, 3, 4, 5) = (/&
&3.6751e-03_jprb,4.0009e-03_jprb,3.9352e-03_jprb,3.7212e-03_jprb,3.1586e-03_jprb,2.6599e-03_jprb,&
&3.9284e-03_jprb,3.6751e-03_jprb,9.7541e-04_jprb/)
kao( :, 4, 4, 5) = (/&
&3.7472e-03_jprb,4.1657e-03_jprb,4.1547e-03_jprb,4.0471e-03_jprb,3.7579e-03_jprb,3.4987e-03_jprb,&
&3.4684e-03_jprb,3.7472e-03_jprb,1.2060e-03_jprb/)
kao( :, 5, 4, 5) = (/&
&3.8173e-03_jprb,4.3392e-03_jprb,4.3926e-03_jprb,4.3575e-03_jprb,4.2919e-03_jprb,4.2730e-03_jprb,&
&4.3662e-03_jprb,3.8173e-03_jprb,1.4743e-03_jprb/)
kao( :, 1, 5, 5) = (/&
&3.0911e-03_jprb,3.1547e-03_jprb,2.9517e-03_jprb,2.1585e-03_jprb,1.7089e-03_jprb,2.5065e-03_jprb,&
&2.6736e-03_jprb,3.0911e-03_jprb,4.5259e-04_jprb/)
kao( :, 2, 5, 5) = (/&
&3.1432e-03_jprb,3.2952e-03_jprb,3.1535e-03_jprb,2.7144e-03_jprb,1.7305e-03_jprb,2.3740e-03_jprb,&
&2.9171e-03_jprb,3.1432e-03_jprb,5.6940e-04_jprb/)
kao( :, 3, 5, 5) = (/&
&3.2011e-03_jprb,3.4418e-03_jprb,3.3526e-03_jprb,3.0998e-03_jprb,2.4424e-03_jprb,2.1728e-03_jprb,&
&3.3563e-03_jprb,3.2011e-03_jprb,7.1313e-04_jprb/)
kao( :, 4, 5, 5) = (/&
&3.2691e-03_jprb,3.5925e-03_jprb,3.5476e-03_jprb,3.4130e-03_jprb,3.0304e-03_jprb,2.4542e-03_jprb,&
&2.7853e-03_jprb,3.2691e-03_jprb,8.8641e-04_jprb/)
kao( :, 5, 5, 5) = (/&
&3.3413e-03_jprb,3.7507e-03_jprb,3.7512e-03_jprb,3.6954e-03_jprb,3.5144e-03_jprb,3.3039e-03_jprb,&
&3.1174e-03_jprb,3.3413e-03_jprb,1.0913e-03_jprb/)
kao( :, 1, 6, 5) = (/&
&2.6814e-03_jprb,2.6940e-03_jprb,2.4706e-03_jprb,1.6241e-03_jprb,1.5796e-03_jprb,1.9986e-03_jprb,&
&2.3111e-03_jprb,2.6814e-03_jprb,3.5673e-04_jprb/)
kao( :, 2, 6, 5) = (/&
&2.7286e-03_jprb,2.8170e-03_jprb,2.6566e-03_jprb,2.1953e-03_jprb,1.3951e-03_jprb,2.0187e-03_jprb,&
&2.3167e-03_jprb,2.7286e-03_jprb,4.3928e-04_jprb/)
kao( :, 3, 6, 5) = (/&
&2.7784e-03_jprb,2.9396e-03_jprb,2.8323e-03_jprb,2.5431e-03_jprb,1.8045e-03_jprb,1.8580e-03_jprb,&
&2.5230e-03_jprb,2.7784e-03_jprb,5.4225e-04_jprb/)
kao( :, 4, 6, 5) = (/&
&2.8457e-03_jprb,3.0707e-03_jprb,3.0040e-03_jprb,2.8313e-03_jprb,2.4304e-03_jprb,1.8757e-03_jprb,&
&2.4280e-03_jprb,2.8457e-03_jprb,6.6880e-04_jprb/)
kao( :, 5, 6, 5) = (/&
&2.9149e-03_jprb,3.2145e-03_jprb,3.1791e-03_jprb,3.0927e-03_jprb,2.8718e-03_jprb,2.5020e-03_jprb,&
&2.4114e-03_jprb,2.9149e-03_jprb,8.2090e-04_jprb/)
kao( :, 1, 7, 5) = (/&
&2.3167e-03_jprb,2.2952e-03_jprb,2.0696e-03_jprb,1.1773e-03_jprb,1.4001e-03_jprb,1.6742e-03_jprb,&
&2.1113e-03_jprb,2.3167e-03_jprb,3.6556e-04_jprb/)
kao( :, 2, 7, 5) = (/&
&2.3617e-03_jprb,2.3995e-03_jprb,2.2278e-03_jprb,1.7561e-03_jprb,1.2221e-03_jprb,1.7039e-03_jprb,&
&1.9252e-03_jprb,2.3617e-03_jprb,4.2264e-04_jprb/)
kao( :, 3, 7, 5) = (/&
&2.4125e-03_jprb,2.5066e-03_jprb,2.3818e-03_jprb,2.0804e-03_jprb,1.2642e-03_jprb,1.6328e-03_jprb,&
&2.0160e-03_jprb,2.4124e-03_jprb,4.9466e-04_jprb/)
kao( :, 4, 7, 5) = (/&
&2.4726e-03_jprb,2.6189e-03_jprb,2.5346e-03_jprb,2.3337e-03_jprb,1.9285e-03_jprb,1.5396e-03_jprb,&
&2.2851e-03_jprb,2.4726e-03_jprb,5.8211e-04_jprb/)
kao( :, 5, 7, 5) = (/&
&2.5348e-03_jprb,2.7473e-03_jprb,2.6870e-03_jprb,2.5696e-03_jprb,2.3235e-03_jprb,1.8153e-03_jprb,&
&1.9526e-03_jprb,2.5348e-03_jprb,6.8811e-04_jprb/)
kao( :, 1, 8, 5) = (/&
&1.9955e-03_jprb,1.9488e-03_jprb,1.7343e-03_jprb,8.5576e-04_jprb,1.2169e-03_jprb,1.3982e-03_jprb,&
&1.8806e-03_jprb,1.9955e-03_jprb,5.8425e-04_jprb/)
kao( :, 2, 8, 5) = (/&
&2.0363e-03_jprb,2.0385e-03_jprb,1.8715e-03_jprb,1.3678e-03_jprb,1.1488e-03_jprb,1.3583e-03_jprb,&
&1.6630e-03_jprb,2.0363e-03_jprb,6.4943e-04_jprb/)
kao( :, 3, 8, 5) = (/&
&2.0848e-03_jprb,2.1355e-03_jprb,2.0016e-03_jprb,1.7099e-03_jprb,1.0490e-03_jprb,1.3612e-03_jprb,&
&1.5304e-03_jprb,2.0848e-03_jprb,7.2039e-04_jprb/)
kao( :, 4, 8, 5) = (/&
&2.1402e-03_jprb,2.2347e-03_jprb,2.1377e-03_jprb,1.9281e-03_jprb,1.4576e-03_jprb,1.3615e-03_jprb,&
&1.7494e-03_jprb,2.1402e-03_jprb,7.9144e-04_jprb/)
kao( :, 5, 8, 5) = (/&
&2.1918e-03_jprb,2.3439e-03_jprb,2.2739e-03_jprb,2.1323e-03_jprb,1.8701e-03_jprb,1.4117e-03_jprb,&
&1.6694e-03_jprb,2.1918e-03_jprb,8.7428e-04_jprb/)
kao( :, 1, 9, 5) = (/&
&1.7089e-03_jprb,1.6461e-03_jprb,1.4363e-03_jprb,6.6011e-04_jprb,1.0235e-03_jprb,1.2576e-03_jprb,&
&1.6021e-03_jprb,1.7089e-03_jprb,2.1905e-03_jprb/)
kao( :, 2, 9, 5) = (/&
&1.7449e-03_jprb,1.7240e-03_jprb,1.5611e-03_jprb,9.5939e-04_jprb,1.0171e-03_jprb,1.0930e-03_jprb,&
&1.4980e-03_jprb,1.7449e-03_jprb,2.3032e-03_jprb/)
kao( :, 3, 9, 5) = (/&
&1.7892e-03_jprb,1.8095e-03_jprb,1.6779e-03_jprb,1.3700e-03_jprb,8.8733e-04_jprb,1.1976e-03_jprb,&
&1.2362e-03_jprb,1.7892e-03_jprb,2.4285e-03_jprb/)
kao( :, 4, 9, 5) = (/&
&1.8369e-03_jprb,1.8975e-03_jprb,1.7975e-03_jprb,1.5888e-03_jprb,1.0202e-03_jprb,1.1883e-03_jprb,&
&1.3430e-03_jprb,1.8369e-03_jprb,2.5680e-03_jprb/)
kao( :, 5, 9, 5) = (/&
&1.8812e-03_jprb,1.9874e-03_jprb,1.9123e-03_jprb,1.7614e-03_jprb,1.4649e-03_jprb,1.1491e-03_jprb,&
&1.5713e-03_jprb,1.8812e-03_jprb,2.7221e-03_jprb/)
kao( :, 1,10, 5) = (/&
&1.4572e-03_jprb,1.3868e-03_jprb,1.1826e-03_jprb,6.2346e-04_jprb,8.6762e-04_jprb,1.0836e-03_jprb,&
&1.3348e-03_jprb,1.4572e-03_jprb,1.2658e-02_jprb/)
kao( :, 2,10, 5) = (/&
&1.4886e-03_jprb,1.4531e-03_jprb,1.3004e-03_jprb,6.9239e-04_jprb,8.6868e-04_jprb,9.6168e-04_jprb,&
&1.2569e-03_jprb,1.4886e-03_jprb,1.3059e-02_jprb/)
kao( :, 3,10, 5) = (/&
&1.5264e-03_jprb,1.5274e-03_jprb,1.4051e-03_jprb,1.0747e-03_jprb,7.7218e-04_jprb,9.7410e-04_jprb,&
&1.0859e-03_jprb,1.5264e-03_jprb,1.3449e-02_jprb/)
kao( :, 4,10, 5) = (/&
&1.5664e-03_jprb,1.6018e-03_jprb,1.5021e-03_jprb,1.3016e-03_jprb,7.5442e-04_jprb,1.0421e-03_jprb,&
&1.0986e-03_jprb,1.5664e-03_jprb,1.3823e-02_jprb/)
kao( :, 5,10, 5) = (/&
&1.6039e-03_jprb,1.6782e-03_jprb,1.6029e-03_jprb,1.4558e-03_jprb,1.1428e-03_jprb,9.8459e-04_jprb,&
&1.2311e-03_jprb,1.6039e-03_jprb,1.4197e-02_jprb/)
kao( :, 1,11, 5) = (/&
&1.2517e-03_jprb,1.1909e-03_jprb,1.0253e-03_jprb,4.8905e-04_jprb,7.3597e-04_jprb,9.0427e-04_jprb,&
&1.2588e-03_jprb,1.2517e-03_jprb,2.8270e-02_jprb/)
kao( :, 2,11, 5) = (/&
&1.2817e-03_jprb,1.2489e-03_jprb,1.1208e-03_jprb,6.0287e-04_jprb,7.2254e-04_jprb,8.2946e-04_jprb,&
&1.0205e-03_jprb,1.2817e-03_jprb,2.9032e-02_jprb/)
kao( :, 3,11, 5) = (/&
&1.3127e-03_jprb,1.3112e-03_jprb,1.2059e-03_jprb,9.4181e-04_jprb,6.2131e-04_jprb,8.6171e-04_jprb,&
&8.9101e-04_jprb,1.3127e-03_jprb,2.9698e-02_jprb/)
kao( :, 4,11, 5) = (/&
&1.3452e-03_jprb,1.3741e-03_jprb,1.2883e-03_jprb,1.1215e-03_jprb,6.5766e-04_jprb,8.7354e-04_jprb,&
&9.3021e-04_jprb,1.3452e-03_jprb,3.0336e-02_jprb/)
kao( :, 5,11, 5) = (/&
&1.3753e-03_jprb,1.4371e-03_jprb,1.3746e-03_jprb,1.2547e-03_jprb,9.9517e-04_jprb,7.9857e-04_jprb,&
&1.0959e-03_jprb,1.3753e-03_jprb,3.0956e-02_jprb/)
kao( :, 1,12, 5) = (/&
&1.0733e-03_jprb,1.0215e-03_jprb,8.8454e-04_jprb,3.9006e-04_jprb,6.2359e-04_jprb,7.4085e-04_jprb,&
&1.0395e-03_jprb,1.0733e-03_jprb,4.0158e-02_jprb/)
kao( :, 2,12, 5) = (/&
&1.0987e-03_jprb,1.0703e-03_jprb,9.6221e-04_jprb,5.3528e-04_jprb,5.8115e-04_jprb,7.1438e-04_jprb,&
&8.3203e-04_jprb,1.0987e-03_jprb,4.1196e-02_jprb/)
kao( :, 3,12, 5) = (/&
&1.1257e-03_jprb,1.1222e-03_jprb,1.0309e-03_jprb,8.1291e-04_jprb,4.9033e-04_jprb,7.2341e-04_jprb,&
&7.5536e-04_jprb,1.1257e-03_jprb,4.2149e-02_jprb/)
kao( :, 4,12, 5) = (/&
&1.1520e-03_jprb,1.1737e-03_jprb,1.0999e-03_jprb,9.6654e-04_jprb,5.7890e-04_jprb,6.9991e-04_jprb,&
&7.9257e-04_jprb,1.1520e-03_jprb,4.3060e-02_jprb/)
kao( :, 5,12, 5) = (/&
&1.1770e-03_jprb,1.2266e-03_jprb,1.1727e-03_jprb,1.0746e-03_jprb,8.6506e-04_jprb,6.5737e-04_jprb,&
&9.1851e-04_jprb,1.1770e-03_jprb,4.3899e-02_jprb/)
kao( :, 1,13, 5) = (/&
&9.1723e-04_jprb,8.7340e-04_jprb,7.5855e-04_jprb,3.3160e-04_jprb,5.1898e-04_jprb,6.0675e-04_jprb,&
&8.3666e-04_jprb,9.1723e-04_jprb,4.5805e-02_jprb/)
kao( :, 2,13, 5) = (/&
&9.3894e-04_jprb,9.1416e-04_jprb,8.2179e-04_jprb,4.8369e-04_jprb,4.6977e-04_jprb,6.3046e-04_jprb,&
&6.9917e-04_jprb,9.3894e-04_jprb,4.7104e-02_jprb/)
kao( :, 3,13, 5) = (/&
&9.6174e-04_jprb,9.5729e-04_jprb,8.7932e-04_jprb,7.0453e-04_jprb,4.0162e-04_jprb,5.9248e-04_jprb,&
&6.3372e-04_jprb,9.6174e-04_jprb,4.8249e-02_jprb/)
kao( :, 4,13, 5) = (/&
&9.8438e-04_jprb,1.0004e-03_jprb,9.3575e-04_jprb,8.2536e-04_jprb,5.0557e-04_jprb,5.5685e-04_jprb,&
&6.8082e-04_jprb,9.8438e-04_jprb,4.9296e-02_jprb/)
kao( :, 5,13, 5) = (/&
&1.0080e-03_jprb,1.0464e-03_jprb,9.9862e-04_jprb,9.1769e-04_jprb,7.4911e-04_jprb,5.5133e-04_jprb,&
&7.2141e-04_jprb,1.0080e-03_jprb,5.0236e-02_jprb/)
kao( :, 1, 1, 6) = (/&
&8.5333e-03_jprb,9.0798e-03_jprb,9.1539e-03_jprb,8.9379e-03_jprb,8.0082e-03_jprb,5.5783e-03_jprb,&
&6.6117e-03_jprb,8.5333e-03_jprb,2.8261e-03_jprb/)
kao( :, 2, 1, 6) = (/&
&8.4109e-03_jprb,9.3459e-03_jprb,9.6624e-03_jprb,9.7547e-03_jprb,9.5796e-03_jprb,8.4027e-03_jprb,&
&6.4961e-03_jprb,8.4109e-03_jprb,3.5780e-03_jprb/)
kao( :, 3, 1, 6) = (/&
&8.3030e-03_jprb,9.6326e-03_jprb,1.0206e-02_jprb,1.0614e-02_jprb,1.0858e-02_jprb,1.0462e-02_jprb,&
&9.8456e-03_jprb,8.3030e-03_jprb,4.4090e-03_jprb/)
kao( :, 4, 1, 6) = (/&
&8.2237e-03_jprb,9.8958e-03_jprb,1.0796e-02_jprb,1.1545e-02_jprb,1.2099e-02_jprb,1.2369e-02_jprb,&
&1.2077e-02_jprb,8.2237e-03_jprb,5.3050e-03_jprb/)
kao( :, 5, 1, 6) = (/&
&8.1599e-03_jprb,1.0181e-02_jprb,1.1469e-02_jprb,1.2490e-02_jprb,1.3377e-02_jprb,1.4165e-02_jprb,&
&1.4318e-02_jprb,8.1599e-03_jprb,6.2987e-03_jprb/)
kao( :, 1, 2, 6) = (/&
&7.7094e-03_jprb,8.1495e-03_jprb,8.1817e-03_jprb,7.9690e-03_jprb,7.0574e-03_jprb,4.6583e-03_jprb,&
&5.9458e-03_jprb,7.7094e-03_jprb,2.1253e-03_jprb/)
kao( :, 2, 2, 6) = (/&
&7.6098e-03_jprb,8.3857e-03_jprb,8.6188e-03_jprb,8.6202e-03_jprb,8.3668e-03_jprb,7.2354e-03_jprb,&
&5.4614e-03_jprb,7.6098e-03_jprb,2.6911e-03_jprb/)
kao( :, 3, 2, 6) = (/&
&7.5380e-03_jprb,8.6324e-03_jprb,9.0696e-03_jprb,9.3578e-03_jprb,9.5323e-03_jprb,9.1344e-03_jprb,&
&8.4099e-03_jprb,7.5380e-03_jprb,3.3283e-03_jprb/)
kao( :, 4, 2, 6) = (/&
&7.4926e-03_jprb,8.8750e-03_jprb,9.5781e-03_jprb,1.0164e-02_jprb,1.0603e-02_jprb,1.0755e-02_jprb,&
&1.0378e-02_jprb,7.4926e-03_jprb,4.0288e-03_jprb/)
kao( :, 5, 2, 6) = (/&
&7.4775e-03_jprb,9.1627e-03_jprb,1.0156e-02_jprb,1.0982e-02_jprb,1.1695e-02_jprb,1.2352e-02_jprb,&
&1.2667e-02_jprb,7.4775e-03_jprb,4.8116e-03_jprb/)
kao( :, 1, 3, 6) = (/&
&6.9121e-03_jprb,7.2188e-03_jprb,7.1796e-03_jprb,6.8889e-03_jprb,5.8502e-03_jprb,3.2278e-03_jprb,&
&4.9879e-03_jprb,6.9121e-03_jprb,1.5160e-03_jprb/)
kao( :, 2, 3, 6) = (/&
&6.8480e-03_jprb,7.4276e-03_jprb,7.5203e-03_jprb,7.4048e-03_jprb,7.0014e-03_jprb,5.7055e-03_jprb,&
&4.3384e-03_jprb,6.8480e-03_jprb,1.9279e-03_jprb/)
kao( :, 3, 3, 6) = (/&
&6.8135e-03_jprb,7.6493e-03_jprb,7.8976e-03_jprb,8.0141e-03_jprb,8.0170e-03_jprb,7.5441e-03_jprb,&
&6.5174e-03_jprb,6.8135e-03_jprb,2.4028e-03_jprb/)
kao( :, 4, 3, 6) = (/&
&6.8122e-03_jprb,7.8956e-03_jprb,8.3131e-03_jprb,8.6965e-03_jprb,8.9952e-03_jprb,8.9752e-03_jprb,&
&8.4882e-03_jprb,6.8122e-03_jprb,2.9375e-03_jprb/)
kao( :, 5, 3, 6) = (/&
&6.8492e-03_jprb,8.1657e-03_jprb,8.7936e-03_jprb,9.3904e-03_jprb,9.9168e-03_jprb,1.0345e-02_jprb,&
&1.0484e-02_jprb,6.8492e-03_jprb,3.5390e-03_jprb/)
kao( :, 1, 4, 6) = (/&
&6.1397e-03_jprb,6.3324e-03_jprb,6.2269e-03_jprb,5.8666e-03_jprb,4.6601e-03_jprb,2.6335e-03_jprb,&
&4.3502e-03_jprb,6.1397e-03_jprb,1.0676e-03_jprb/)
kao( :, 2, 4, 6) = (/&
&6.1071e-03_jprb,6.5281e-03_jprb,6.5061e-03_jprb,6.2987e-03_jprb,5.7315e-03_jprb,4.2122e-03_jprb,&
&3.5243e-03_jprb,6.1071e-03_jprb,1.3674e-03_jprb/)
kao( :, 3, 4, 6) = (/&
&6.1173e-03_jprb,6.7424e-03_jprb,6.8351e-03_jprb,6.7928e-03_jprb,6.6355e-03_jprb,6.0084e-03_jprb,&
&4.4111e-03_jprb,6.1173e-03_jprb,1.7216e-03_jprb/)
kao( :, 4, 4, 6) = (/&
&6.1616e-03_jprb,6.9850e-03_jprb,7.2018e-03_jprb,7.3533e-03_jprb,7.4639e-03_jprb,7.3054e-03_jprb,&
&6.7355e-03_jprb,6.1616e-03_jprb,2.1295e-03_jprb/)
kao( :, 5, 4, 6) = (/&
&6.2327e-03_jprb,7.2498e-03_jprb,7.6166e-03_jprb,7.9404e-03_jprb,8.2799e-03_jprb,8.5196e-03_jprb,&
&8.4780e-03_jprb,6.2327e-03_jprb,2.5893e-03_jprb/)
kao( :, 1, 5, 6) = (/&
&5.4116e-03_jprb,5.5054e-03_jprb,5.3551e-03_jprb,4.9387e-03_jprb,3.4030e-03_jprb,2.3925e-03_jprb,&
&3.5026e-03_jprb,5.4116e-03_jprb,7.5991e-04_jprb/)
kao( :, 2, 5, 6) = (/&
&5.4112e-03_jprb,5.7013e-03_jprb,5.6024e-03_jprb,5.3215e-03_jprb,4.5735e-03_jprb,2.7843e-03_jprb,&
&3.3021e-03_jprb,5.4112e-03_jprb,9.7889e-04_jprb/)
kao( :, 3, 5, 6) = (/&
&5.4571e-03_jprb,5.9124e-03_jprb,5.8939e-03_jprb,5.7468e-03_jprb,5.4242e-03_jprb,4.5784e-03_jprb,&
&3.1711e-03_jprb,5.4571e-03_jprb,1.2420e-03_jprb/)
kao( :, 4, 5, 6) = (/&
&5.5303e-03_jprb,6.1539e-03_jprb,6.2322e-03_jprb,6.2166e-03_jprb,6.1395e-03_jprb,5.8002e-03_jprb,&
&5.0694e-03_jprb,5.5303e-03_jprb,1.5508e-03_jprb/)
kao( :, 5, 5, 6) = (/&
&5.6126e-03_jprb,6.4231e-03_jprb,6.6120e-03_jprb,6.7193e-03_jprb,6.8307e-03_jprb,6.8747e-03_jprb,&
&6.7129e-03_jprb,5.6126e-03_jprb,1.9069e-03_jprb/)
kao( :, 1, 6, 6) = (/&
&4.7396e-03_jprb,4.7463e-03_jprb,4.5518e-03_jprb,4.0433e-03_jprb,2.2638e-03_jprb,2.3141e-03_jprb,&
&2.8805e-03_jprb,4.7396e-03_jprb,5.6698e-04_jprb/)
kao( :, 2, 6, 6) = (/&
&4.7673e-03_jprb,4.9357e-03_jprb,4.7801e-03_jprb,4.4457e-03_jprb,3.5304e-03_jprb,1.8920e-03_jprb,&
&2.9747e-03_jprb,4.7673e-03_jprb,7.2146e-04_jprb/)
kao( :, 3, 6, 6) = (/&
&4.8326e-03_jprb,5.1460e-03_jprb,5.0538e-03_jprb,4.8362e-03_jprb,4.3455e-03_jprb,3.2638e-03_jprb,&
&2.4492e-03_jprb,4.8326e-03_jprb,9.1393e-04_jprb/)
kao( :, 4, 6, 6) = (/&
&4.9138e-03_jprb,5.3898e-03_jprb,5.3670e-03_jprb,5.2448e-03_jprb,5.0135e-03_jprb,4.4890e-03_jprb,&
&3.4781e-03_jprb,4.9137e-03_jprb,1.1441e-03_jprb/)
kao( :, 5, 6, 6) = (/&
&5.0007e-03_jprb,5.6605e-03_jprb,5.7246e-03_jprb,5.6834e-03_jprb,5.6159e-03_jprb,5.4449e-03_jprb,&
&5.0343e-03_jprb,5.0007e-03_jprb,1.4139e-03_jprb/)
kao( :, 1, 7, 6) = (/&
&4.1378e-03_jprb,4.0754e-03_jprb,3.8389e-03_jprb,3.2475e-03_jprb,1.4857e-03_jprb,2.1025e-03_jprb,&
&2.2984e-03_jprb,4.1378e-03_jprb,5.2481e-04_jprb/)
kao( :, 2, 7, 6) = (/&
&4.1822e-03_jprb,4.2521e-03_jprb,4.0570e-03_jprb,3.6688e-03_jprb,2.5306e-03_jprb,1.4831e-03_jprb,&
&2.6067e-03_jprb,4.1822e-03_jprb,6.3111e-04_jprb/)
kao( :, 3, 7, 6) = (/&
&4.2509e-03_jprb,4.4583e-03_jprb,4.3081e-03_jprb,4.0486e-03_jprb,3.4473e-03_jprb,2.1091e-03_jprb,&
&1.9768e-03_jprb,4.2509e-03_jprb,7.6397e-04_jprb/)
kao( :, 4, 7, 6) = (/&
&4.3334e-03_jprb,4.6876e-03_jprb,4.6037e-03_jprb,4.4308e-03_jprb,4.0651e-03_jprb,3.3647e-03_jprb,&
&2.1587e-03_jprb,4.3334e-03_jprb,9.2876e-04_jprb/)
kao( :, 5, 7, 6) = (/&
&4.4225e-03_jprb,4.9342e-03_jprb,4.9410e-03_jprb,4.8191e-03_jprb,4.6280e-03_jprb,4.2870e-03_jprb,&
&3.6120e-03_jprb,4.4226e-03_jprb,1.1252e-03_jprb/)
kao( :, 1, 8, 6) = (/&
&3.6094e-03_jprb,3.5033e-03_jprb,3.2400e-03_jprb,2.6287e-03_jprb,9.9863e-04_jprb,1.7500e-03_jprb,&
&1.8960e-03_jprb,3.6094e-03_jprb,8.2600e-04_jprb/)
kao( :, 2, 8, 6) = (/&
&3.6637e-03_jprb,3.6642e-03_jprb,3.4430e-03_jprb,3.0211e-03_jprb,1.7119e-03_jprb,1.3558e-03_jprb,&
&2.1462e-03_jprb,3.6637e-03_jprb,9.0812e-04_jprb/)
kao( :, 3, 8, 6) = (/&
&3.7354e-03_jprb,3.8451e-03_jprb,3.6742e-03_jprb,3.3691e-03_jprb,2.6819e-03_jprb,1.3910e-03_jprb,&
&1.9474e-03_jprb,3.7354e-03_jprb,1.0101e-03_jprb/)
kao( :, 4, 8, 6) = (/&
&3.8119e-03_jprb,4.0509e-03_jprb,3.9304e-03_jprb,3.7228e-03_jprb,3.3248e-03_jprb,2.3768e-03_jprb,&
&1.6650e-03_jprb,3.8120e-03_jprb,1.1353e-03_jprb/)
kao( :, 5, 8, 6) = (/&
&3.8974e-03_jprb,4.2692e-03_jprb,4.2189e-03_jprb,4.0809e-03_jprb,3.8147e-03_jprb,3.3186e-03_jprb,&
&2.4419e-03_jprb,3.8974e-03_jprb,1.2742e-03_jprb/)
kao( :, 1, 9, 6) = (/&
&3.1509e-03_jprb,3.0135e-03_jprb,2.7414e-03_jprb,2.0848e-03_jprb,8.0225e-04_jprb,1.3860e-03_jprb,&
&1.6095e-03_jprb,3.1509e-03_jprb,3.2874e-03_jprb/)
kao( :, 2, 9, 6) = (/&
&3.2069e-03_jprb,3.1552e-03_jprb,2.9300e-03_jprb,2.5120e-03_jprb,1.1882e-03_jprb,1.2244e-03_jprb,&
&1.8134e-03_jprb,3.2069e-03_jprb,3.4426e-03_jprb/)
kao( :, 3, 9, 6) = (/&
&3.2779e-03_jprb,3.3142e-03_jprb,3.1292e-03_jprb,2.8177e-03_jprb,2.0556e-03_jprb,1.0032e-03_jprb,&
&1.7964e-03_jprb,3.2779e-03_jprb,3.6002e-03_jprb/)
kao( :, 4, 9, 6) = (/&
&3.3512e-03_jprb,3.4918e-03_jprb,3.3477e-03_jprb,3.1214e-03_jprb,2.7090e-03_jprb,1.5625e-03_jprb,&
&1.3565e-03_jprb,3.3512e-03_jprb,3.7586e-03_jprb/)
kao( :, 5, 9, 6) = (/&
&3.4301e-03_jprb,3.6852e-03_jprb,3.5951e-03_jprb,3.4314e-03_jprb,3.1547e-03_jprb,2.5504e-03_jprb,&
&1.5207e-03_jprb,3.4301e-03_jprb,3.9312e-03_jprb/)
kao( :, 1,10, 6) = (/&
&2.7434e-03_jprb,2.5990e-03_jprb,2.3418e-03_jprb,1.5988e-03_jprb,7.7035e-04_jprb,1.2159e-03_jprb,&
&1.3978e-03_jprb,2.7434e-03_jprb,2.0046e-02_jprb/)
kao( :, 2,10, 6) = (/&
&2.7987e-03_jprb,2.7245e-03_jprb,2.5022e-03_jprb,2.1126e-03_jprb,8.9708e-04_jprb,1.0763e-03_jprb,&
&1.5093e-03_jprb,2.7987e-03_jprb,2.0516e-02_jprb/)
kao( :, 3,10, 6) = (/&
&2.8639e-03_jprb,2.8623e-03_jprb,2.6825e-03_jprb,2.3837e-03_jprb,1.5791e-03_jprb,8.7614e-04_jprb,&
&1.4149e-03_jprb,2.8639e-03_jprb,2.0938e-02_jprb/)
kao( :, 4,10, 6) = (/&
&2.9341e-03_jprb,3.0198e-03_jprb,2.8777e-03_jprb,2.6425e-03_jprb,2.2095e-03_jprb,1.1197e-03_jprb,&
&1.2062e-03_jprb,2.9342e-03_jprb,2.1345e-02_jprb/)
kao( :, 5,10, 6) = (/&
&3.0129e-03_jprb,3.1899e-03_jprb,3.0825e-03_jprb,2.9045e-03_jprb,2.6201e-03_jprb,1.9654e-03_jprb,&
&1.1926e-03_jprb,3.0129e-03_jprb,2.1744e-02_jprb/)
kao( :, 1,11, 6) = (/&
&2.3930e-03_jprb,2.2760e-03_jprb,2.0475e-03_jprb,1.4917e-03_jprb,6.1519e-04_jprb,9.5739e-04_jprb,&
&1.2117e-03_jprb,2.3930e-03_jprb,4.6010e-02_jprb/)
kao( :, 2,11, 6) = (/&
&2.4495e-03_jprb,2.3897e-03_jprb,2.1964e-03_jprb,1.8774e-03_jprb,8.8795e-04_jprb,8.5785e-04_jprb,&
&1.2212e-03_jprb,2.4495e-03_jprb,4.7118e-02_jprb/)
kao( :, 3,11, 6) = (/&
&2.5108e-03_jprb,2.5149e-03_jprb,2.3607e-03_jprb,2.1179e-03_jprb,1.5063e-03_jprb,7.2487e-04_jprb,&
&1.1617e-03_jprb,2.5108e-03_jprb,4.8044e-02_jprb/)
kao( :, 4,11, 6) = (/&
&2.5797e-03_jprb,2.6613e-03_jprb,2.5391e-03_jprb,2.3353e-03_jprb,1.9791e-03_jprb,1.1049e-03_jprb,&
&9.4883e-04_jprb,2.5797e-03_jprb,4.8805e-02_jprb/)
kao( :, 5,11, 6) = (/&
&2.6499e-03_jprb,2.8182e-03_jprb,2.7229e-03_jprb,2.5580e-03_jprb,2.3142e-03_jprb,1.8079e-03_jprb,&
&1.0035e-03_jprb,2.6499e-03_jprb,4.9391e-02_jprb/)
kao( :, 1,12, 6) = (/&
&2.0746e-03_jprb,1.9783e-03_jprb,1.7801e-03_jprb,1.3556e-03_jprb,4.8267e-04_jprb,8.1463e-04_jprb,&
&1.0185e-03_jprb,2.0746e-03_jprb,6.7547e-02_jprb/)
kao( :, 2,12, 6) = (/&
&2.1273e-03_jprb,2.0770e-03_jprb,1.9105e-03_jprb,1.6481e-03_jprb,8.3724e-04_jprb,7.1683e-04_jprb,&
&1.0103e-03_jprb,2.1273e-03_jprb,6.9266e-02_jprb/)
kao( :, 3,12, 6) = (/&
&2.1844e-03_jprb,2.1915e-03_jprb,2.0594e-03_jprb,1.8587e-03_jprb,1.3892e-03_jprb,6.4751e-04_jprb,&
&9.5728e-04_jprb,2.1844e-03_jprb,7.0619e-02_jprb/)
kao( :, 4,12, 6) = (/&
&2.2441e-03_jprb,2.3226e-03_jprb,2.2206e-03_jprb,2.0453e-03_jprb,1.7491e-03_jprb,1.0405e-03_jprb,&
&7.8138e-04_jprb,2.2441e-03_jprb,7.1602e-02_jprb/)
kao( :, 5,12, 6) = (/&
&2.3050e-03_jprb,2.4598e-03_jprb,2.3822e-03_jprb,2.2381e-03_jprb,2.0304e-03_jprb,1.6325e-03_jprb,&
&9.2438e-04_jprb,2.3050e-03_jprb,7.2303e-02_jprb/)
kao( :, 1,13, 6) = (/&
&1.7883e-03_jprb,1.7065e-03_jprb,1.5374e-03_jprb,1.2007e-03_jprb,4.3025e-04_jprb,6.7590e-04_jprb,&
&8.1885e-04_jprb,1.7883e-03_jprb,7.9860e-02_jprb/)
kao( :, 2,13, 6) = (/&
&1.8363e-03_jprb,1.7948e-03_jprb,1.6528e-03_jprb,1.4324e-03_jprb,7.6774e-04_jprb,6.2246e-04_jprb,&
&8.1329e-04_jprb,1.8363e-03_jprb,8.1807e-02_jprb/)
kao( :, 3,13, 6) = (/&
&1.8869e-03_jprb,1.8960e-03_jprb,1.7818e-03_jprb,1.6095e-03_jprb,1.2397e-03_jprb,5.6950e-04_jprb,&
&8.2318e-04_jprb,1.8869e-03_jprb,8.3291e-02_jprb/)
kao( :, 4,13, 6) = (/&
&1.9378e-03_jprb,2.0074e-03_jprb,1.9206e-03_jprb,1.7755e-03_jprb,1.5322e-03_jprb,9.5845e-04_jprb,&
&6.9708e-04_jprb,1.9378e-03_jprb,8.4416e-02_jprb/)
kao( :, 5,13, 6) = (/&
&1.9900e-03_jprb,2.1258e-03_jprb,2.0644e-03_jprb,1.9405e-03_jprb,1.7651e-03_jprb,1.4419e-03_jprb,&
&8.3688e-04_jprb,1.9900e-03_jprb,8.5292e-02_jprb/)
kao( :, 1, 1, 7) = (/&
&1.6473e-02_jprb,1.6639e-02_jprb,1.6620e-02_jprb,1.6044e-02_jprb,1.5024e-02_jprb,1.3187e-02_jprb,&
&7.6213e-03_jprb,1.6473e-02_jprb,5.9369e-03_jprb/)
kao( :, 2, 1, 7) = (/&
&1.6283e-02_jprb,1.7319e-02_jprb,1.7601e-02_jprb,1.7371e-02_jprb,1.6714e-02_jprb,1.5606e-02_jprb,&
&1.2675e-02_jprb,1.6283e-02_jprb,7.5309e-03_jprb/)
kao( :, 3, 1, 7) = (/&
&1.6044e-02_jprb,1.7939e-02_jprb,1.8616e-02_jprb,1.8736e-02_jprb,1.8509e-02_jprb,1.7932e-02_jprb,&
&1.6316e-02_jprb,1.6044e-02_jprb,9.3034e-03_jprb/)
kao( :, 4, 1, 7) = (/&
&1.5780e-02_jprb,1.8566e-02_jprb,1.9707e-02_jprb,2.0218e-02_jprb,2.0468e-02_jprb,2.0392e-02_jprb,&
&2.0221e-02_jprb,1.5780e-02_jprb,1.1241e-02_jprb/)
kao( :, 5, 1, 7) = (/&
&1.5514e-02_jprb,1.9239e-02_jprb,2.0866e-02_jprb,2.1848e-02_jprb,2.2518e-02_jprb,2.2938e-02_jprb,&
&2.4338e-02_jprb,1.5514e-02_jprb,1.3369e-02_jprb/)
kao( :, 1, 2, 7) = (/&
&1.5534e-02_jprb,1.5698e-02_jprb,1.5655e-02_jprb,1.5068e-02_jprb,1.4135e-02_jprb,1.2270e-02_jprb,&
&7.4181e-03_jprb,1.5534e-02_jprb,4.4640e-03_jprb/)
kao( :, 2, 2, 7) = (/&
&1.5342e-02_jprb,1.6324e-02_jprb,1.6590e-02_jprb,1.6353e-02_jprb,1.5831e-02_jprb,1.4815e-02_jprb,&
&1.2543e-02_jprb,1.5342e-02_jprb,5.6970e-03_jprb/)
kao( :, 3, 2, 7) = (/&
&1.5098e-02_jprb,1.6904e-02_jprb,1.7545e-02_jprb,1.7691e-02_jprb,1.7497e-02_jprb,1.7085e-02_jprb,&
&1.5776e-02_jprb,1.5098e-02_jprb,7.0876e-03_jprb/)
kao( :, 4, 2, 7) = (/&
&1.4834e-02_jprb,1.7491e-02_jprb,1.8583e-02_jprb,1.9136e-02_jprb,1.9381e-02_jprb,1.9396e-02_jprb,&
&1.8919e-02_jprb,1.4834e-02_jprb,8.6392e-03_jprb/)
kao( :, 5, 2, 7) = (/&
&1.4582e-02_jprb,1.8087e-02_jprb,1.9710e-02_jprb,2.0699e-02_jprb,2.1415e-02_jprb,2.1844e-02_jprb,&
&2.2101e-02_jprb,1.4582e-02_jprb,1.0344e-02_jprb/)
kao( :, 1, 3, 7) = (/&
&1.4379e-02_jprb,1.4400e-02_jprb,1.4273e-02_jprb,1.3714e-02_jprb,1.2774e-02_jprb,1.0758e-02_jprb,&
&5.9221e-03_jprb,1.4379e-02_jprb,3.1627e-03_jprb/)
kao( :, 2, 3, 7) = (/&
&1.4181e-02_jprb,1.4962e-02_jprb,1.5204e-02_jprb,1.4906e-02_jprb,1.4357e-02_jprb,1.3275e-02_jprb,&
&1.0750e-02_jprb,1.4181e-02_jprb,4.0720e-03_jprb/)
kao( :, 3, 3, 7) = (/&
&1.3955e-02_jprb,1.5485e-02_jprb,1.6078e-02_jprb,1.6124e-02_jprb,1.5928e-02_jprb,1.5419e-02_jprb,&
&1.4145e-02_jprb,1.3955e-02_jprb,5.1227e-03_jprb/)
kao( :, 4, 3, 7) = (/&
&1.3715e-02_jprb,1.6019e-02_jprb,1.7011e-02_jprb,1.7443e-02_jprb,1.7601e-02_jprb,1.7599e-02_jprb,&
&1.7151e-02_jprb,1.3715e-02_jprb,6.3251e-03_jprb/)
kao( :, 5, 3, 7) = (/&
&1.3488e-02_jprb,1.6566e-02_jprb,1.8015e-02_jprb,1.8885e-02_jprb,1.9466e-02_jprb,1.9880e-02_jprb,&
&1.9891e-02_jprb,1.3488e-02_jprb,7.6362e-03_jprb/)
kao( :, 1, 4, 7) = (/&
&1.3100e-02_jprb,1.2948e-02_jprb,1.2709e-02_jprb,1.2152e-02_jprb,1.1211e-02_jprb,8.9540e-03_jprb,&
&3.9235e-03_jprb,1.3100e-02_jprb,2.2077e-03_jprb/)
kao( :, 2, 4, 7) = (/&
&1.2922e-02_jprb,1.3421e-02_jprb,1.3563e-02_jprb,1.3273e-02_jprb,1.2687e-02_jprb,1.1465e-02_jprb,&
&8.5932e-03_jprb,1.2922e-02_jprb,2.8908e-03_jprb/)
kao( :, 3, 4, 7) = (/&
&1.2710e-02_jprb,1.3886e-02_jprb,1.4373e-02_jprb,1.4371e-02_jprb,1.4080e-02_jprb,1.3407e-02_jprb,&
&1.1985e-02_jprb,1.2710e-02_jprb,3.6760e-03_jprb/)
kao( :, 4, 4, 7) = (/&
&1.2510e-02_jprb,1.4373e-02_jprb,1.5200e-02_jprb,1.5503e-02_jprb,1.5542e-02_jprb,1.5364e-02_jprb,&
&1.4835e-02_jprb,1.2510e-02_jprb,4.5891e-03_jprb/)
kao( :, 5, 4, 7) = (/&
&1.2325e-02_jprb,1.4885e-02_jprb,1.6099e-02_jprb,1.6758e-02_jprb,1.7169e-02_jprb,1.7435e-02_jprb,&
&1.7471e-02_jprb,1.2325e-02_jprb,5.6179e-03_jprb/)
kao( :, 1, 5, 7) = (/&
&1.1785e-02_jprb,1.1507e-02_jprb,1.1168e-02_jprb,1.0600e-02_jprb,9.6507e-03_jprb,6.9414e-03_jprb,&
&2.9345e-03_jprb,1.1785e-02_jprb,1.5496e-03_jprb/)
kao( :, 2, 5, 7) = (/&
&1.1618e-02_jprb,1.1886e-02_jprb,1.1906e-02_jprb,1.1601e-02_jprb,1.1008e-02_jprb,9.7482e-03_jprb,&
&6.3716e-03_jprb,1.1618e-02_jprb,2.0513e-03_jprb/)
kao( :, 3, 5, 7) = (/&
&1.1447e-02_jprb,1.2288e-02_jprb,1.2620e-02_jprb,1.2540e-02_jprb,1.2196e-02_jprb,1.1475e-02_jprb,&
&9.8448e-03_jprb,1.1447e-02_jprb,2.6474e-03_jprb/)
kao( :, 4, 5, 7) = (/&
&1.1293e-02_jprb,1.2719e-02_jprb,1.3350e-02_jprb,1.3509e-02_jprb,1.3472e-02_jprb,1.3207e-02_jprb,&
&1.2517e-02_jprb,1.1293e-02_jprb,3.3414e-03_jprb/)
kao( :, 5, 5, 7) = (/&
&1.1183e-02_jprb,1.3178e-02_jprb,1.4123e-02_jprb,1.4583e-02_jprb,1.4883e-02_jprb,1.5015e-02_jprb,&
&1.4926e-02_jprb,1.1183e-02_jprb,4.1312e-03_jprb/)
kao( :, 1, 6, 7) = (/&
&1.0487e-02_jprb,1.0124e-02_jprb,9.7249e-03_jprb,9.1457e-03_jprb,8.1285e-03_jprb,4.8996e-03_jprb,&
&1.9678e-03_jprb,1.0487e-02_jprb,1.0937e-03_jprb/)
kao( :, 2, 6, 7) = (/&
&1.0349e-02_jprb,1.0437e-02_jprb,1.0332e-02_jprb,9.9754e-03_jprb,9.2866e-03_jprb,7.9160e-03_jprb,&
&4.3878e-03_jprb,1.0349e-02_jprb,1.4598e-03_jprb/)
kao( :, 3, 6, 7) = (/&
&1.0220e-02_jprb,1.0784e-02_jprb,1.0929e-02_jprb,1.0753e-02_jprb,1.0353e-02_jprb,9.5432e-03_jprb,&
&7.8232e-03_jprb,1.0220e-02_jprb,1.9008e-03_jprb/)
kao( :, 4, 6, 7) = (/&
&1.0135e-02_jprb,1.1143e-02_jprb,1.1530e-02_jprb,1.1576e-02_jprb,1.1439e-02_jprb,1.1088e-02_jprb,&
&1.0277e-02_jprb,1.0135e-02_jprb,2.4221e-03_jprb/)
kao( :, 5, 6, 7) = (/&
&1.0102e-02_jprb,1.1554e-02_jprb,1.2194e-02_jprb,1.2480e-02_jprb,1.2652e-02_jprb,1.2678e-02_jprb,&
&1.2494e-02_jprb,1.0102e-02_jprb,3.0257e-03_jprb/)
kao( :, 1, 7, 7) = (/&
&9.2309e-03_jprb,8.8319e-03_jprb,8.3968e-03_jprb,7.7952e-03_jprb,6.7475e-03_jprb,3.2870e-03_jprb,&
&1.9179e-03_jprb,9.2309e-03_jprb,8.9645e-04_jprb/)
kao( :, 2, 7, 7) = (/&
&9.1242e-03_jprb,9.0932e-03_jprb,8.9046e-03_jprb,8.4994e-03_jprb,7.7737e-03_jprb,6.2095e-03_jprb,&
&2.8211e-03_jprb,9.1242e-03_jprb,1.1346e-03_jprb/)
kao( :, 3, 7, 7) = (/&
&9.0499e-03_jprb,9.3880e-03_jprb,9.3912e-03_jprb,9.1437e-03_jprb,8.6640e-03_jprb,7.8059e-03_jprb,&
&5.8358e-03_jprb,9.0499e-03_jprb,1.4379e-03_jprb/)
kao( :, 4, 7, 7) = (/&
&9.0319e-03_jprb,9.7281e-03_jprb,9.8888e-03_jprb,9.8240e-03_jprb,9.6043e-03_jprb,9.1535e-03_jprb,&
&8.2625e-03_jprb,9.0319e-03_jprb,1.8162e-03_jprb/)
kao( :, 5, 7, 7) = (/&
&9.0677e-03_jprb,1.0114e-02_jprb,1.0453e-02_jprb,1.0590e-02_jprb,1.0614e-02_jprb,1.0515e-02_jprb,&
&1.0212e-02_jprb,9.0678e-03_jprb,2.2700e-03_jprb/)
kao( :, 1, 8, 7) = (/&
&8.0750e-03_jprb,7.6623e-03_jprb,7.2138e-03_jprb,6.5975e-03_jprb,5.4257e-03_jprb,2.2723e-03_jprb,&
&1.6249e-03_jprb,8.0750e-03_jprb,1.2831e-03_jprb/)
kao( :, 2, 8, 7) = (/&
&7.9997e-03_jprb,7.8793e-03_jprb,7.6227e-03_jprb,7.1817e-03_jprb,6.4216e-03_jprb,4.5366e-03_jprb,&
&1.9736e-03_jprb,7.9997e-03_jprb,1.4497e-03_jprb/)
kao( :, 3, 8, 7) = (/&
&7.9739e-03_jprb,8.1496e-03_jprb,8.0220e-03_jprb,7.7220e-03_jprb,7.1874e-03_jprb,6.2455e-03_jprb,&
&3.8530e-03_jprb,7.9739e-03_jprb,1.6552e-03_jprb/)
kao( :, 4, 8, 7) = (/&
&8.0128e-03_jprb,8.4694e-03_jprb,8.4614e-03_jprb,8.2951e-03_jprb,7.9668e-03_jprb,7.4368e-03_jprb,&
&6.3444e-03_jprb,8.0128e-03_jprb,1.8965e-03_jprb/)
kao( :, 5, 8, 7) = (/&
&8.1136e-03_jprb,8.8341e-03_jprb,8.9710e-03_jprb,8.9459e-03_jprb,8.8203e-03_jprb,8.6006e-03_jprb,&
&8.1402e-03_jprb,8.1136e-03_jprb,2.1909e-03_jprb/)
kao( :, 1, 9, 7) = (/&
&7.0296e-03_jprb,6.6308e-03_jprb,6.1804e-03_jprb,5.5360e-03_jprb,4.1437e-03_jprb,1.5632e-03_jprb,&
&1.4348e-03_jprb,7.0296e-03_jprb,5.0746e-03_jprb/)
kao( :, 2, 9, 7) = (/&
&6.9891e-03_jprb,6.8154e-03_jprb,6.5047e-03_jprb,6.0126e-03_jprb,5.1664e-03_jprb,3.1309e-03_jprb,&
&1.3440e-03_jprb,6.9891e-03_jprb,5.2575e-03_jprb/)
kao( :, 3, 9, 7) = (/&
&7.0047e-03_jprb,7.0682e-03_jprb,6.8401e-03_jprb,6.4671e-03_jprb,5.8881e-03_jprb,4.8032e-03_jprb,&
&2.4408e-03_jprb,7.0047e-03_jprb,5.4725e-03_jprb/)
kao( :, 4, 9, 7) = (/&
&7.0937e-03_jprb,7.3642e-03_jprb,7.2266e-03_jprb,6.9602e-03_jprb,6.5505e-03_jprb,5.9472e-03_jprb,&
&4.6225e-03_jprb,7.0937e-03_jprb,5.7075e-03_jprb/)
kao( :, 5, 9, 7) = (/&
&7.2359e-03_jprb,7.7189e-03_jprb,7.6898e-03_jprb,7.5393e-03_jprb,7.2796e-03_jprb,6.9540e-03_jprb,&
&6.3115e-03_jprb,7.2359e-03_jprb,5.9395e-03_jprb/)
kao( :, 1,10, 7) = (/&
&6.0824e-03_jprb,5.7201e-03_jprb,5.2950e-03_jprb,4.6533e-03_jprb,3.1243e-03_jprb,1.0849e-03_jprb,&
&1.3514e-03_jprb,6.0824e-03_jprb,3.2036e-02_jprb/)
kao( :, 2,10, 7) = (/&
&6.0816e-03_jprb,5.8999e-03_jprb,5.5711e-03_jprb,5.0543e-03_jprb,4.1674e-03_jprb,2.1951e-03_jprb,&
&1.1513e-03_jprb,6.0816e-03_jprb,3.2646e-02_jprb/)
kao( :, 3,10, 7) = (/&
&6.1454e-03_jprb,6.1496e-03_jprb,5.8546e-03_jprb,5.4437e-03_jprb,4.8180e-03_jprb,3.6424e-03_jprb,&
&1.7330e-03_jprb,6.1454e-03_jprb,3.3079e-02_jprb/)
kao( :, 4,10, 7) = (/&
&6.2758e-03_jprb,6.4382e-03_jprb,6.1991e-03_jprb,5.8783e-03_jprb,5.4350e-03_jprb,4.7237e-03_jprb,&
&3.2810e-03_jprb,6.2757e-03_jprb,3.3401e-02_jprb/)
kao( :, 5,10, 7) = (/&
&6.4344e-03_jprb,6.7774e-03_jprb,6.6295e-03_jprb,6.3941e-03_jprb,6.0678e-03_jprb,5.6397e-03_jprb,&
&4.8978e-03_jprb,6.4344e-03_jprb,3.3652e-02_jprb/)
kao( :, 1,11, 7) = (/&
&5.2811e-03_jprb,5.0055e-03_jprb,4.6335e-03_jprb,4.0757e-03_jprb,2.8727e-03_jprb,1.0865e-03_jprb,&
&1.0171e-03_jprb,5.2811e-03_jprb,7.6840e-02_jprb/)
kao( :, 2,11, 7) = (/&
&5.3409e-03_jprb,5.2140e-03_jprb,4.8806e-03_jprb,4.4140e-03_jprb,3.6622e-03_jprb,2.0302e-03_jprb,&
&9.1811e-04_jprb,5.3409e-03_jprb,7.7870e-02_jprb/)
kao( :, 3,11, 7) = (/&
&5.4674e-03_jprb,5.4758e-03_jprb,5.1638e-03_jprb,4.7679e-03_jprb,4.2203e-03_jprb,3.2247e-03_jprb,&
&1.5980e-03_jprb,5.4674e-03_jprb,7.8594e-02_jprb/)
kao( :, 4,11, 7) = (/&
&5.6175e-03_jprb,5.7677e-03_jprb,5.5092e-03_jprb,5.1897e-03_jprb,4.7728e-03_jprb,4.1267e-03_jprb,&
&2.9888e-03_jprb,5.6175e-03_jprb,7.8959e-02_jprb/)
kao( :, 5,11, 7) = (/&
&5.7848e-03_jprb,6.0885e-03_jprb,5.9189e-03_jprb,5.6782e-03_jprb,5.3431e-03_jprb,4.9223e-03_jprb,&
&4.2500e-03_jprb,5.7848e-03_jprb,7.9148e-02_jprb/)
kao( :, 1,12, 7) = (/&
&4.6406e-03_jprb,4.4264e-03_jprb,4.0750e-03_jprb,3.5822e-03_jprb,2.6510e-03_jprb,1.0132e-03_jprb,&
&9.2156e-04_jprb,4.6406e-03_jprb,1.1768e-01_jprb/)
kao( :, 2,12, 7) = (/&
&4.7513e-03_jprb,4.6501e-03_jprb,4.3133e-03_jprb,3.8811e-03_jprb,3.2507e-03_jprb,1.8501e-03_jprb,&
&7.3924e-04_jprb,4.7513e-03_jprb,1.1892e-01_jprb/)
kao( :, 3,12, 7) = (/&
&4.8892e-03_jprb,4.8966e-03_jprb,4.5920e-03_jprb,4.2162e-03_jprb,3.7357e-03_jprb,2.9015e-03_jprb,&
&1.4402e-03_jprb,4.8892e-03_jprb,1.1988e-01_jprb/)
kao( :, 4,12, 7) = (/&
&5.0434e-03_jprb,5.1649e-03_jprb,4.9117e-03_jprb,4.6087e-03_jprb,4.2340e-03_jprb,3.6743e-03_jprb,&
&2.6652e-03_jprb,5.0434e-03_jprb,1.2040e-01_jprb/)
kao( :, 5,12, 7) = (/&
&5.1943e-03_jprb,5.4604e-03_jprb,5.2859e-03_jprb,5.0532e-03_jprb,4.7466e-03_jprb,4.3367e-03_jprb,&
&3.6758e-03_jprb,5.1943e-03_jprb,1.2066e-01_jprb/)
kao( :, 1,13, 7) = (/&
&4.1040e-03_jprb,3.9320e-03_jprb,3.6016e-03_jprb,3.1660e-03_jprb,2.4198e-03_jprb,9.6006e-04_jprb,&
&7.4336e-04_jprb,4.1040e-03_jprb,1.4478e-01_jprb/)
kao( :, 2,13, 7) = (/&
&4.2232e-03_jprb,4.1425e-03_jprb,3.8331e-03_jprb,3.4407e-03_jprb,2.9046e-03_jprb,1.6979e-03_jprb,&
&6.7921e-04_jprb,4.2232e-03_jprb,1.4623e-01_jprb/)
kao( :, 3,13, 7) = (/&
&4.3611e-03_jprb,4.3698e-03_jprb,4.0899e-03_jprb,3.7461e-03_jprb,3.3273e-03_jprb,2.6603e-03_jprb,&
&1.2963e-03_jprb,4.3611e-03_jprb,1.4748e-01_jprb/)
kao( :, 4,13, 7) = (/&
&4.4992e-03_jprb,4.6148e-03_jprb,4.3841e-03_jprb,4.0963e-03_jprb,3.7570e-03_jprb,3.2859e-03_jprb,&
&2.3687e-03_jprb,4.4992e-03_jprb,1.4817e-01_jprb/)
kao( :, 5,13, 7) = (/&
&4.6327e-03_jprb,4.8729e-03_jprb,4.7086e-03_jprb,4.4884e-03_jprb,4.2102e-03_jprb,3.8391e-03_jprb,&
&3.2592e-03_jprb,4.6327e-03_jprb,1.4848e-01_jprb/)
kao( :, 1, 1, 8) = (/&
&3.2446e-02_jprb,3.0961e-02_jprb,2.9943e-02_jprb,2.8814e-02_jprb,2.6701e-02_jprb,2.3826e-02_jprb,&
&2.0786e-02_jprb,3.2446e-02_jprb,1.5676e-02_jprb/)
kao( :, 2, 1, 8) = (/&
&3.2527e-02_jprb,3.1848e-02_jprb,3.1994e-02_jprb,3.1175e-02_jprb,2.9719e-02_jprb,2.8532e-02_jprb,&
&2.8157e-02_jprb,3.2527e-02_jprb,2.0060e-02_jprb/)
kao( :, 3, 1, 8) = (/&
&3.2555e-02_jprb,3.3035e-02_jprb,3.4009e-02_jprb,3.3632e-02_jprb,3.3098e-02_jprb,3.4035e-02_jprb,&
&3.6093e-02_jprb,3.2555e-02_jprb,2.5319e-02_jprb/)
kao( :, 4, 1, 8) = (/&
&3.2520e-02_jprb,3.4424e-02_jprb,3.5893e-02_jprb,3.6221e-02_jprb,3.7173e-02_jprb,4.0037e-02_jprb,&
&4.3790e-02_jprb,3.2520e-02_jprb,3.1444e-02_jprb/)
kao( :, 5, 1, 8) = (/&
&3.2436e-02_jprb,3.5761e-02_jprb,3.7828e-02_jprb,3.9167e-02_jprb,4.2081e-02_jprb,4.6777e-02_jprb,&
&5.1699e-02_jprb,3.2436e-02_jprb,3.8339e-02_jprb/)
kao( :, 1, 2, 8) = (/&
&3.3259e-02_jprb,3.1637e-02_jprb,3.0502e-02_jprb,2.9322e-02_jprb,2.7192e-02_jprb,2.4045e-02_jprb,&
&1.9418e-02_jprb,3.3259e-02_jprb,1.2401e-02_jprb/)
kao( :, 2, 2, 8) = (/&
&3.3309e-02_jprb,3.2542e-02_jprb,3.2579e-02_jprb,3.1869e-02_jprb,3.0109e-02_jprb,2.7900e-02_jprb,&
&2.5530e-02_jprb,3.3309e-02_jprb,1.5971e-02_jprb/)
kao( :, 3, 2, 8) = (/&
&3.3352e-02_jprb,3.3755e-02_jprb,3.4718e-02_jprb,3.4392e-02_jprb,3.3246e-02_jprb,3.2250e-02_jprb,&
&3.2349e-02_jprb,3.3352e-02_jprb,2.0278e-02_jprb/)
kao( :, 4, 2, 8) = (/&
&3.3330e-02_jprb,3.5174e-02_jprb,3.6737e-02_jprb,3.6916e-02_jprb,3.6641e-02_jprb,3.7274e-02_jprb,&
&3.9441e-02_jprb,3.3330e-02_jprb,2.5234e-02_jprb/)
kao( :, 5, 2, 8) = (/&
&3.3226e-02_jprb,3.6569e-02_jprb,3.8777e-02_jprb,3.9713e-02_jprb,4.0596e-02_jprb,4.2979e-02_jprb,&
&4.7032e-02_jprb,3.3226e-02_jprb,3.0759e-02_jprb/)
kao( :, 1, 3, 8) = (/&
&3.3391e-02_jprb,3.1594e-02_jprb,3.0176e-02_jprb,2.8739e-02_jprb,2.6633e-02_jprb,2.3336e-02_jprb,&
&1.8177e-02_jprb,3.3391e-02_jprb,9.1438e-03_jprb/)
kao( :, 2, 3, 8) = (/&
&3.3463e-02_jprb,3.2445e-02_jprb,3.2154e-02_jprb,3.1362e-02_jprb,2.9626e-02_jprb,2.6963e-02_jprb,&
&2.3198e-02_jprb,3.3463e-02_jprb,1.1964e-02_jprb/)
kao( :, 3, 3, 8) = (/&
&3.3507e-02_jprb,3.3666e-02_jprb,3.4348e-02_jprb,3.4020e-02_jprb,3.2664e-02_jprb,3.0729e-02_jprb,&
&2.8675e-02_jprb,3.3507e-02_jprb,1.5312e-02_jprb/)
kao( :, 4, 3, 8) = (/&
&3.3484e-02_jprb,3.5076e-02_jprb,3.6460e-02_jprb,3.6685e-02_jprb,3.5851e-02_jprb,3.4760e-02_jprb,&
&3.4446e-02_jprb,3.3484e-02_jprb,1.9144e-02_jprb/)
kao( :, 5, 3, 8) = (/&
&3.3365e-02_jprb,3.6491e-02_jprb,3.8546e-02_jprb,3.9400e-02_jprb,3.9309e-02_jprb,3.9340e-02_jprb,&
&4.1039e-02_jprb,3.3365e-02_jprb,2.3426e-02_jprb/)
kao( :, 1, 4, 8) = (/&
&3.2823e-02_jprb,3.0856e-02_jprb,2.9216e-02_jprb,2.7536e-02_jprb,2.5263e-02_jprb,2.2005e-02_jprb,&
&1.7126e-02_jprb,3.2823e-02_jprb,6.4847e-03_jprb/)
kao( :, 2, 4, 8) = (/&
&3.2916e-02_jprb,3.1703e-02_jprb,3.1081e-02_jprb,3.0059e-02_jprb,2.8252e-02_jprb,2.5566e-02_jprb,&
&2.1643e-02_jprb,3.2916e-02_jprb,8.6411e-03_jprb/)
kao( :, 3, 4, 8) = (/&
&3.2942e-02_jprb,3.2855e-02_jprb,3.3172e-02_jprb,3.2679e-02_jprb,3.1442e-02_jprb,2.9283e-02_jprb,&
&2.6180e-02_jprb,3.2942e-02_jprb,1.1256e-02_jprb/)
kao( :, 4, 4, 8) = (/&
&3.2895e-02_jprb,3.4207e-02_jprb,3.5261e-02_jprb,3.5386e-02_jprb,3.4683e-02_jprb,3.2992e-02_jprb,&
&3.0830e-02_jprb,3.2895e-02_jprb,1.4266e-02_jprb/)
kao( :, 5, 4, 8) = (/&
&3.2791e-02_jprb,3.5598e-02_jprb,3.7342e-02_jprb,3.8144e-02_jprb,3.7958e-02_jprb,3.6915e-02_jprb,&
&3.6060e-02_jprb,3.2791e-02_jprb,1.7623e-02_jprb/)
kao( :, 1, 5, 8) = (/&
&3.1527e-02_jprb,2.9441e-02_jprb,2.7666e-02_jprb,2.5800e-02_jprb,2.3517e-02_jprb,2.0290e-02_jprb,&
&1.5284e-02_jprb,3.1527e-02_jprb,4.5483e-03_jprb/)
kao( :, 2, 5, 8) = (/&
&3.1627e-02_jprb,3.0253e-02_jprb,2.9410e-02_jprb,2.8191e-02_jprb,2.6385e-02_jprb,2.3754e-02_jprb,&
&1.9782e-02_jprb,3.1627e-02_jprb,6.1662e-03_jprb/)
kao( :, 3, 5, 8) = (/&
&3.1653e-02_jprb,3.1374e-02_jprb,3.1394e-02_jprb,3.0704e-02_jprb,2.9499e-02_jprb,2.7410e-02_jprb,&
&2.4207e-02_jprb,3.1653e-02_jprb,8.1447e-03_jprb/)
kao( :, 4, 5, 8) = (/&
&3.1587e-02_jprb,3.2681e-02_jprb,3.3373e-02_jprb,3.3364e-02_jprb,3.2711e-02_jprb,3.1061e-02_jprb,&
&2.8366e-02_jprb,3.1587e-02_jprb,1.0460e-02_jprb/)
kao( :, 5, 5, 8) = (/&
&3.1459e-02_jprb,3.4035e-02_jprb,3.5391e-02_jprb,3.6063e-02_jprb,3.5941e-02_jprb,3.4747e-02_jprb,&
&3.2643e-02_jprb,3.1459e-02_jprb,1.3095e-02_jprb/)
kao( :, 1, 6, 8) = (/&
&2.9690e-02_jprb,2.7513e-02_jprb,2.5633e-02_jprb,2.3605e-02_jprb,2.1298e-02_jprb,1.8147e-02_jprb,&
&1.3146e-02_jprb,2.9690e-02_jprb,3.1369e-03_jprb/)
kao( :, 2, 6, 8) = (/&
&2.9770e-02_jprb,2.8288e-02_jprb,2.7183e-02_jprb,2.5789e-02_jprb,2.4036e-02_jprb,2.1561e-02_jprb,&
&1.7543e-02_jprb,2.9770e-02_jprb,4.3187e-03_jprb/)
kao( :, 3, 6, 8) = (/&
&2.9783e-02_jprb,2.9294e-02_jprb,2.9045e-02_jprb,2.8192e-02_jprb,2.6960e-02_jprb,2.5034e-02_jprb,&
&2.1858e-02_jprb,2.9783e-02_jprb,5.7867e-03_jprb/)
kao( :, 4, 6, 8) = (/&
&2.9692e-02_jprb,3.0523e-02_jprb,3.0946e-02_jprb,3.0715e-02_jprb,3.0007e-02_jprb,2.8497e-02_jprb,&
&2.5800e-02_jprb,2.9692e-02_jprb,7.5502e-03_jprb/)
kao( :, 5, 6, 8) = (/&
&2.9534e-02_jprb,3.1783e-02_jprb,3.2869e-02_jprb,3.3262e-02_jprb,3.3064e-02_jprb,3.1999e-02_jprb,&
&2.9755e-02_jprb,2.9534e-02_jprb,9.5800e-03_jprb/)
kao( :, 1, 7, 8) = (/&
&2.7399e-02_jprb,2.5219e-02_jprb,2.3318e-02_jprb,2.1250e-02_jprb,1.8905e-02_jprb,1.5866e-02_jprb,&
&1.0211e-02_jprb,2.7399e-02_jprb,2.2133e-03_jprb/)
kao( :, 2, 7, 8) = (/&
&2.7465e-02_jprb,2.5918e-02_jprb,2.4664e-02_jprb,2.3195e-02_jprb,2.1415e-02_jprb,1.9044e-02_jprb,&
&1.5287e-02_jprb,2.7465e-02_jprb,3.0581e-03_jprb/)
kao( :, 3, 7, 8) = (/&
&2.7467e-02_jprb,2.6847e-02_jprb,2.6363e-02_jprb,2.5381e-02_jprb,2.4103e-02_jprb,2.2261e-02_jprb,&
&1.9298e-02_jprb,2.7467e-02_jprb,4.1379e-03_jprb/)
kao( :, 4, 7, 8) = (/&
&2.7377e-02_jprb,2.7967e-02_jprb,2.8113e-02_jprb,2.7721e-02_jprb,2.6897e-02_jprb,2.5513e-02_jprb,&
&2.3011e-02_jprb,2.7377e-02_jprb,5.4434e-03_jprb/)
kao( :, 5, 7, 8) = (/&
&2.7205e-02_jprb,2.9095e-02_jprb,2.9889e-02_jprb,3.0064e-02_jprb,2.9735e-02_jprb,2.8823e-02_jprb,&
&2.6785e-02_jprb,2.7205e-02_jprb,6.9886e-03_jprb/)
kao( :, 1, 8, 8) = (/&
&2.4838e-02_jprb,2.2730e-02_jprb,2.0879e-02_jprb,1.8847e-02_jprb,1.6562e-02_jprb,1.3598e-02_jprb,&
&7.9263e-03_jprb,2.4838e-02_jprb,2.3197e-03_jprb/)
kao( :, 2, 8, 8) = (/&
&2.4890e-02_jprb,2.3360e-02_jprb,2.2033e-02_jprb,2.0523e-02_jprb,1.8797e-02_jprb,1.6567e-02_jprb,&
&1.2790e-02_jprb,2.4890e-02_jprb,2.7806e-03_jprb/)
kao( :, 3, 8, 8) = (/&
&2.4862e-02_jprb,2.4160e-02_jprb,2.3528e-02_jprb,2.2491e-02_jprb,2.1199e-02_jprb,1.9477e-02_jprb,&
&1.6802e-02_jprb,2.4862e-02_jprb,3.4079e-03_jprb/)
kao( :, 4, 8, 8) = (/&
&2.4775e-02_jprb,2.5154e-02_jprb,2.5100e-02_jprb,2.4578e-02_jprb,2.3711e-02_jprb,2.2381e-02_jprb,&
&2.0219e-02_jprb,2.4775e-02_jprb,4.2580e-03_jprb/)
kao( :, 5, 8, 8) = (/&
&2.4622e-02_jprb,2.6148e-02_jprb,2.6699e-02_jprb,2.6671e-02_jprb,2.6294e-02_jprb,2.5372e-02_jprb,&
&2.3589e-02_jprb,2.4622e-02_jprb,5.3361e-03_jprb/)
kao( :, 1, 9, 8) = (/&
&2.2221e-02_jprb,2.0209e-02_jprb,1.8418e-02_jprb,1.6497e-02_jprb,1.4362e-02_jprb,1.1452e-02_jprb,&
&5.8464e-03_jprb,2.2221e-02_jprb,8.1045e-03_jprb/)
kao( :, 2, 9, 8) = (/&
&2.2228e-02_jprb,2.0738e-02_jprb,1.9399e-02_jprb,1.7929e-02_jprb,1.6274e-02_jprb,1.4180e-02_jprb,&
&1.0256e-02_jprb,2.2228e-02_jprb,8.4976e-03_jprb/)
kao( :, 3, 9, 8) = (/&
&2.2181e-02_jprb,2.1419e-02_jprb,2.0685e-02_jprb,1.9636e-02_jprb,1.8370e-02_jprb,1.6740e-02_jprb,&
&1.4221e-02_jprb,2.2181e-02_jprb,8.9064e-03_jprb/)
kao( :, 4, 9, 8) = (/&
&2.2077e-02_jprb,2.2259e-02_jprb,2.2053e-02_jprb,2.1452e-02_jprb,2.0561e-02_jprb,1.9271e-02_jprb,&
&1.7337e-02_jprb,2.2077e-02_jprb,9.3666e-03_jprb/)
kao( :, 5, 9, 8) = (/&
&2.1959e-02_jprb,2.3140e-02_jprb,2.3450e-02_jprb,2.3281e-02_jprb,2.2789e-02_jprb,2.1856e-02_jprb,&
&2.0328e-02_jprb,2.1959e-02_jprb,9.8960e-03_jprb/)
kao( :, 1,10, 8) = (/&
&1.9665e-02_jprb,1.7813e-02_jprb,1.6135e-02_jprb,1.4379e-02_jprb,1.2423e-02_jprb,9.6194e-03_jprb,&
&4.3665e-03_jprb,1.9665e-02_jprb,5.0859e-02_jprb/)
kao( :, 2,10, 8) = (/&
&1.9655e-02_jprb,1.8254e-02_jprb,1.6961e-02_jprb,1.5587e-02_jprb,1.4053e-02_jprb,1.2088e-02_jprb,&
&8.1382e-03_jprb,1.9655e-02_jprb,5.1465e-02_jprb/)
kao( :, 3,10, 8) = (/&
&1.9577e-02_jprb,1.8805e-02_jprb,1.8054e-02_jprb,1.7058e-02_jprb,1.5850e-02_jprb,1.4336e-02_jprb,&
&1.1950e-02_jprb,1.9577e-02_jprb,5.1955e-02_jprb/)
kao( :, 4,10, 8) = (/&
&1.9473e-02_jprb,1.9523e-02_jprb,1.9227e-02_jprb,1.8591e-02_jprb,1.7700e-02_jprb,1.6478e-02_jprb,&
&1.4693e-02_jprb,1.9473e-02_jprb,5.2354e-02_jprb/)
kao( :, 5,10, 8) = (/&
&1.9405e-02_jprb,2.0288e-02_jprb,2.0423e-02_jprb,2.0132e-02_jprb,1.9564e-02_jprb,1.8691e-02_jprb,&
&1.7347e-02_jprb,1.9405e-02_jprb,5.2682e-02_jprb/)
kao( :, 1,11, 8) = (/&
&1.7199e-02_jprb,1.5692e-02_jprb,1.4307e-02_jprb,1.2861e-02_jprb,1.1262e-02_jprb,9.0316e-03_jprb,&
&4.4212e-03_jprb,1.7199e-02_jprb,1.2641e-01_jprb/)
kao( :, 2,11, 8) = (/&
&1.7139e-02_jprb,1.6089e-02_jprb,1.5094e-02_jprb,1.3995e-02_jprb,1.2699e-02_jprb,1.1063e-02_jprb,&
&8.1294e-03_jprb,1.7139e-02_jprb,1.2630e-01_jprb/)
kao( :, 3,11, 8) = (/&
&1.7062e-02_jprb,1.6616e-02_jprb,1.6068e-02_jprb,1.5250e-02_jprb,1.4213e-02_jprb,1.2927e-02_jprb,&
&1.0968e-02_jprb,1.7062e-02_jprb,1.2657e-01_jprb/)
kao( :, 4,11, 8) = (/&
&1.7027e-02_jprb,1.7284e-02_jprb,1.7074e-02_jprb,1.6503e-02_jprb,1.5727e-02_jprb,1.4747e-02_jprb,&
&1.3302e-02_jprb,1.7027e-02_jprb,1.2680e-01_jprb/)
kao( :, 5,11, 8) = (/&
&1.7051e-02_jprb,1.8003e-02_jprb,1.8097e-02_jprb,1.7795e-02_jprb,1.7338e-02_jprb,1.6670e-02_jprb,&
&1.5656e-02_jprb,1.7051e-02_jprb,1.2668e-01_jprb/)
kao( :, 1,12, 8) = (/&
&1.4892e-02_jprb,1.3707e-02_jprb,1.2589e-02_jprb,1.1424e-02_jprb,1.0096e-02_jprb,8.2815e-03_jprb,&
&4.4233e-03_jprb,1.4892e-02_jprb,2.0178e-01_jprb/)
kao( :, 2,12, 8) = (/&
&1.4830e-02_jprb,1.4076e-02_jprb,1.3327e-02_jprb,1.2415e-02_jprb,1.1306e-02_jprb,9.9128e-03_jprb,&
&7.6510e-03_jprb,1.4830e-02_jprb,2.0127e-01_jprb/)
kao( :, 3,12, 8) = (/&
&1.4815e-02_jprb,1.4616e-02_jprb,1.4166e-02_jprb,1.3436e-02_jprb,1.2531e-02_jprb,1.1419e-02_jprb,&
&9.8144e-03_jprb,1.4815e-02_jprb,2.0109e-01_jprb/)
kao( :, 4,12, 8) = (/&
&1.4874e-02_jprb,1.5249e-02_jprb,1.5019e-02_jprb,1.4484e-02_jprb,1.3802e-02_jprb,1.2969e-02_jprb,&
&1.1802e-02_jprb,1.4874e-02_jprb,2.0108e-01_jprb/)
kao( :, 5,12, 8) = (/&
&1.5028e-02_jprb,1.5947e-02_jprb,1.5923e-02_jprb,1.5630e-02_jprb,1.5205e-02_jprb,1.4665e-02_jprb,&
&1.3888e-02_jprb,1.5028e-02_jprb,2.0061e-01_jprb/)
kao( :, 1,13, 8) = (/&
&1.2856e-02_jprb,1.1926e-02_jprb,1.1034e-02_jprb,1.0051e-02_jprb,8.9048e-03_jprb,7.3808e-03_jprb,&
&4.3560e-03_jprb,1.2856e-02_jprb,2.5947e-01_jprb/)
kao( :, 2,13, 8) = (/&
&1.2849e-02_jprb,1.2317e-02_jprb,1.1692e-02_jprb,1.0882e-02_jprb,9.8884e-03_jprb,8.6786e-03_jprb,&
&6.8479e-03_jprb,1.2849e-02_jprb,2.5953e-01_jprb/)
kao( :, 3,13, 8) = (/&
&1.2913e-02_jprb,1.2850e-02_jprb,1.2417e-02_jprb,1.1721e-02_jprb,1.0882e-02_jprb,9.9190e-03_jprb,&
&8.6023e-03_jprb,1.2913e-02_jprb,2.5942e-01_jprb/)
kao( :, 4,13, 8) = (/&
&1.3088e-02_jprb,1.3471e-02_jprb,1.3169e-02_jprb,1.2637e-02_jprb,1.1989e-02_jprb,1.1248e-02_jprb,&
&1.0301e-02_jprb,1.3088e-02_jprb,2.5909e-01_jprb/)
kao( :, 5,13, 8) = (/&
&1.3373e-02_jprb,1.4159e-02_jprb,1.4029e-02_jprb,1.3679e-02_jprb,1.3241e-02_jprb,1.2749e-02_jprb,&
&1.2125e-02_jprb,1.3373e-02_jprb,2.5815e-01_jprb/)



!     -----------------------------------------------------------------
RETURN
END SUBROUTINE rrtm_kgb4_a2