rrtm_kgb7_A1.F90

Go to the documentation of this file.

!OCL SCALAR
SUBROUTINE rrtm_kgb7_a1

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

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

#include "tsmbkind.h"

USE yoerrto7 , ONLY : kao     ,kbo     ,selfrefo   ,fracrefao  ,&
           &fracrefbo  ,absco2o
USE yoerrta7 , ONLY : strrat

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


IMPLICIT NONE

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

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

kao( :, 1, 1, 1) = (/&
&2.2177e-05_jprb,2.0513e-05_jprb,1.8414e-05_jprb,1.6282e-05_jprb,1.4597e-05_jprb,1.7000e-05_jprb,&
&3.1783e-05_jprb,2.9548e-05_jprb,2.0326e-05_jprb/)
kao( :, 2, 1, 1) = (/&
&2.9476e-05_jprb,2.7495e-05_jprb,2.4720e-05_jprb,2.1727e-05_jprb,1.8690e-05_jprb,1.6642e-05_jprb,&
&2.2418e-05_jprb,3.4177e-05_jprb,1.9700e-05_jprb/)
kao( :, 3, 1, 1) = (/&
&3.7965e-05_jprb,3.5737e-05_jprb,3.2254e-05_jprb,2.8364e-05_jprb,2.4321e-05_jprb,2.0140e-05_jprb,&
&1.9338e-05_jprb,3.5856e-05_jprb,1.9799e-05_jprb/)
kao( :, 4, 1, 1) = (/&
&4.7589e-05_jprb,4.5238e-05_jprb,4.1024e-05_jprb,3.6253e-05_jprb,3.0918e-05_jprb,2.5365e-05_jprb,&
&2.0061e-05_jprb,3.1406e-05_jprb,1.8985e-05_jprb/)
kao( :, 5, 1, 1) = (/&
&5.8133e-05_jprb,5.5835e-05_jprb,5.0877e-05_jprb,4.5058e-05_jprb,3.8486e-05_jprb,3.1429e-05_jprb,&
&2.4355e-05_jprb,2.3465e-05_jprb,1.9414e-05_jprb/)
kao( :, 1, 2, 1) = (/&
&1.7361e-05_jprb,1.6018e-05_jprb,1.4350e-05_jprb,1.2700e-05_jprb,1.2303e-05_jprb,1.7164e-05_jprb,&
&3.1474e-05_jprb,2.4947e-05_jprb,1.4706e-05_jprb/)
kao( :, 2, 2, 1) = (/&
&2.3361e-05_jprb,2.1726e-05_jprb,1.9465e-05_jprb,1.7053e-05_jprb,1.4815e-05_jprb,1.4858e-05_jprb,&
&2.3603e-05_jprb,2.7767e-05_jprb,1.5833e-05_jprb/)
kao( :, 3, 2, 1) = (/&
&3.0408e-05_jprb,2.8494e-05_jprb,2.5606e-05_jprb,2.2430e-05_jprb,1.9084e-05_jprb,1.6104e-05_jprb,&
&1.8012e-05_jprb,3.1460e-05_jprb,1.6197e-05_jprb/)
kao( :, 4, 2, 1) = (/&
&3.8408e-05_jprb,3.6296e-05_jprb,3.2790e-05_jprb,2.8865e-05_jprb,2.4498e-05_jprb,1.9967e-05_jprb,&
&1.6925e-05_jprb,3.2098e-05_jprb,1.4117e-05_jprb/)
kao( :, 5, 2, 1) = (/&
&4.7278e-05_jprb,4.5107e-05_jprb,4.0996e-05_jprb,3.6211e-05_jprb,3.0776e-05_jprb,2.4989e-05_jprb,&
&1.9312e-05_jprb,2.3551e-05_jprb,1.4164e-05_jprb/)
kao( :, 1, 3, 1) = (/&
&1.2199e-05_jprb,1.1359e-05_jprb,1.0200e-05_jprb,9.6275e-06_jprb,1.2031e-05_jprb,1.8466e-05_jprb,&
&2.2967e-05_jprb,2.1740e-05_jprb,1.1424e-05_jprb/)
kao( :, 2, 3, 1) = (/&
&1.6733e-05_jprb,1.5628e-05_jprb,1.3980e-05_jprb,1.2308e-05_jprb,1.1642e-05_jprb,1.5244e-05_jprb,&
&2.7219e-05_jprb,2.2185e-05_jprb,1.1890e-05_jprb/)
kao( :, 3, 3, 1) = (/&
&2.2207e-05_jprb,2.0825e-05_jprb,1.8647e-05_jprb,1.6328e-05_jprb,1.4051e-05_jprb,1.3615e-05_jprb,&
&2.0537e-05_jprb,2.5366e-05_jprb,1.0328e-05_jprb/)
kao( :, 4, 3, 1) = (/&
&2.8575e-05_jprb,2.6953e-05_jprb,2.4203e-05_jprb,2.1170e-05_jprb,1.7963e-05_jprb,1.5129e-05_jprb,&
&1.6245e-05_jprb,2.7906e-05_jprb,8.9114e-06_jprb/)
kao( :, 5, 3, 1) = (/&
&3.5718e-05_jprb,3.3927e-05_jprb,3.0634e-05_jprb,2.6847e-05_jprb,2.2736e-05_jprb,1.8593e-05_jprb,&
&1.5444e-05_jprb,2.7715e-05_jprb,7.5424e-06_jprb/)
kao( :, 1, 4, 1) = (/&
&8.2740e-06_jprb,7.8120e-06_jprb,7.3229e-06_jprb,7.9409e-06_jprb,1.1817e-05_jprb,2.0000e-05_jprb,&
&1.7036e-05_jprb,1.6859e-05_jprb,8.3202e-06_jprb/)
kao( :, 2, 4, 1) = (/&
&1.1549e-05_jprb,1.0930e-05_jprb,9.8917e-06_jprb,9.2790e-06_jprb,1.0972e-05_jprb,1.6368e-05_jprb,&
&2.0889e-05_jprb,1.9211e-05_jprb,7.1922e-06_jprb/)
kao( :, 3, 4, 1) = (/&
&1.5581e-05_jprb,1.4791e-05_jprb,1.3288e-05_jprb,1.1769e-05_jprb,1.1067e-05_jprb,1.3703e-05_jprb,&
&2.3763e-05_jprb,1.9912e-05_jprb,5.4002e-06_jprb/)
kao( :, 4, 4, 1) = (/&
&2.0367e-05_jprb,1.9416e-05_jprb,1.7464e-05_jprb,1.5301e-05_jprb,1.3238e-05_jprb,1.2747e-05_jprb,&
&1.8197e-05_jprb,2.2927e-05_jprb,4.7781e-06_jprb/)
kao( :, 5, 4, 1) = (/&
&2.5890e-05_jprb,2.4787e-05_jprb,2.2347e-05_jprb,1.9553e-05_jprb,1.6603e-05_jprb,1.3957e-05_jprb,&
&1.4873e-05_jprb,2.4745e-05_jprb,6.3734e-06_jprb/)
kao( :, 1, 5, 1) = (/&
&5.5869e-06_jprb,5.3398e-06_jprb,5.3975e-06_jprb,7.5444e-06_jprb,1.2793e-05_jprb,1.5045e-05_jprb,&
&1.3730e-05_jprb,1.2376e-05_jprb,4.7266e-06_jprb/)
kao( :, 2, 5, 1) = (/&
&7.8874e-06_jprb,7.5569e-06_jprb,7.0693e-06_jprb,7.4130e-06_jprb,1.0864e-05_jprb,1.7853e-05_jprb,&
&1.5643e-05_jprb,1.6221e-05_jprb,3.5143e-06_jprb/)
kao( :, 3, 5, 1) = (/&
&1.0780e-05_jprb,1.0380e-05_jprb,9.4898e-06_jprb,8.8724e-06_jprb,9.9994e-06_jprb,1.4704e-05_jprb,&
&1.8972e-05_jprb,1.7347e-05_jprb,2.8694e-06_jprb/)
kao( :, 4, 5, 1) = (/&
&1.4284e-05_jprb,1.3812e-05_jprb,1.2569e-05_jprb,1.1246e-05_jprb,1.0513e-05_jprb,1.2455e-05_jprb,&
&2.1138e-05_jprb,1.8036e-05_jprb,3.9174e-06_jprb/)
kao( :, 5, 5, 1) = (/&
&1.8381e-05_jprb,1.7863e-05_jprb,1.6238e-05_jprb,1.4332e-05_jprb,1.2479e-05_jprb,1.1807e-05_jprb,&
&1.6766e-05_jprb,2.0636e-05_jprb,5.6357e-06_jprb/)
kao( :, 1, 6, 1) = (/&
&3.7614e-06_jprb,3.6612e-06_jprb,4.2770e-06_jprb,7.9260e-06_jprb,1.2929e-05_jprb,1.1264e-05_jprb,&
&1.2098e-05_jprb,9.0224e-06_jprb,2.4844e-06_jprb/)
kao( :, 2, 6, 1) = (/&
&5.3574e-06_jprb,5.1717e-06_jprb,5.1909e-06_jprb,6.9736e-06_jprb,1.1707e-05_jprb,1.3896e-05_jprb,&
&1.2589e-05_jprb,1.2103e-05_jprb,1.8407e-06_jprb/)
kao( :, 3, 6, 1) = (/&
&7.3957e-06_jprb,7.1617e-06_jprb,6.7263e-06_jprb,7.0062e-06_jprb,1.0148e-05_jprb,1.6269e-05_jprb,&
&1.4268e-05_jprb,1.5386e-05_jprb,2.1237e-06_jprb/)
kao( :, 4, 6, 1) = (/&
&9.9154e-06_jprb,9.6620e-06_jprb,8.9048e-06_jprb,8.3244e-06_jprb,9.2342e-06_jprb,1.3655e-05_jprb,&
&1.7166e-05_jprb,1.5743e-05_jprb,3.1741e-06_jprb/)
kao( :, 5, 6, 1) = (/&
&1.2917e-05_jprb,1.2663e-05_jprb,1.1620e-05_jprb,1.0475e-05_jprb,9.8347e-06_jprb,1.1480e-05_jprb,&
&1.8999e-05_jprb,1.6296e-05_jprb,4.8288e-06_jprb/)
kao( :, 1, 7, 1) = (/&
&2.5698e-06_jprb,2.6225e-06_jprb,4.3229e-06_jprb,9.1260e-06_jprb,9.6331e-06_jprb,9.4890e-06_jprb,&
&8.7898e-06_jprb,6.9652e-06_jprb,1.3336e-06_jprb/)
kao( :, 2, 7, 1) = (/&
&3.6949e-06_jprb,3.6079e-06_jprb,4.1418e-06_jprb,7.5616e-06_jprb,1.2142e-05_jprb,1.0521e-05_jprb,&
&1.1728e-05_jprb,8.9866e-06_jprb,1.2052e-06_jprb/)
kao( :, 3, 7, 1) = (/&
&5.1506e-06_jprb,5.0082e-06_jprb,4.9832e-06_jprb,6.5372e-06_jprb,1.0639e-05_jprb,1.2818e-05_jprb,&
&1.1491e-05_jprb,1.1845e-05_jprb,1.7476e-06_jprb/)
kao( :, 4, 7, 1) = (/&
&6.9721e-06_jprb,6.8111e-06_jprb,6.4221e-06_jprb,6.6314e-06_jprb,9.5364e-06_jprb,1.4735e-05_jprb,&
&1.3056e-05_jprb,1.4613e-05_jprb,2.7527e-06_jprb/)
kao( :, 5, 7, 1) = (/&
&9.1741e-06_jprb,9.0313e-06_jprb,8.3715e-06_jprb,7.8432e-06_jprb,8.4495e-06_jprb,1.2715e-05_jprb,&
&1.5629e-05_jprb,1.4305e-05_jprb,4.3096e-06_jprb/)
kao( :, 1, 8, 1) = (/&
&1.7756e-06_jprb,2.0634e-06_jprb,5.0880e-06_jprb,8.2373e-06_jprb,7.8177e-06_jprb,7.9286e-06_jprb,&
&6.3775e-06_jprb,5.4113e-06_jprb,9.3762e-07_jprb/)
kao( :, 2, 8, 1) = (/&
&2.5589e-06_jprb,2.6026e-06_jprb,4.1994e-06_jprb,8.7611e-06_jprb,9.1501e-06_jprb,8.9485e-06_jprb,&
&8.8743e-06_jprb,7.1784e-06_jprb,1.1824e-06_jprb/)
kao( :, 3, 8, 1) = (/&
&3.5966e-06_jprb,3.5351e-06_jprb,4.0408e-06_jprb,7.3057e-06_jprb,1.1311e-05_jprb,9.8836e-06_jprb,&
&1.0943e-05_jprb,9.1050e-06_jprb,1.7854e-06_jprb/)
kao( :, 4, 8, 1) = (/&
&4.9051e-06_jprb,4.8155e-06_jprb,4.7641e-06_jprb,6.2802e-06_jprb,1.0233e-05_jprb,1.1811e-05_jprb,&
&1.0660e-05_jprb,1.1545e-05_jprb,2.8335e-06_jprb/)
kao( :, 5, 8, 1) = (/&
&6.5079e-06_jprb,6.4275e-06_jprb,6.0806e-06_jprb,6.2850e-06_jprb,8.9855e-06_jprb,1.3690e-05_jprb,&
&1.2091e-05_jprb,1.3991e-05_jprb,4.4905e-06_jprb/)
kao( :, 1, 9, 1) = (/&
&1.2486e-06_jprb,2.0772e-06_jprb,6.3261e-06_jprb,6.5239e-06_jprb,6.7379e-06_jprb,5.7685e-06_jprb,&
&4.7923e-06_jprb,4.4775e-06_jprb,2.0431e-06_jprb/)
kao( :, 2, 9, 1) = (/&
&1.8028e-06_jprb,2.0516e-06_jprb,4.9892e-06_jprb,7.9160e-06_jprb,7.4534e-06_jprb,8.0589e-06_jprb,&
&6.6119e-06_jprb,5.7051e-06_jprb,2.4856e-06_jprb/)
kao( :, 3, 9, 1) = (/&
&2.5445e-06_jprb,2.5819e-06_jprb,4.1305e-06_jprb,8.3727e-06_jprb,8.7276e-06_jprb,8.5620e-06_jprb,&
&8.8118e-06_jprb,7.4196e-06_jprb,3.4314e-06_jprb/)
kao( :, 4, 9, 1) = (/&
&3.4959e-06_jprb,3.4634e-06_jprb,3.9749e-06_jprb,7.0571e-06_jprb,1.0574e-05_jprb,9.2822e-06_jprb,&
&1.0319e-05_jprb,9.2300e-06_jprb,5.1599e-06_jprb/)
kao( :, 5, 9, 1) = (/&
&4.6733e-06_jprb,4.6321e-06_jprb,4.5821e-06_jprb,6.0749e-06_jprb,9.9333e-06_jprb,1.0979e-05_jprb,&
&1.0111e-05_jprb,1.1271e-05_jprb,8.0274e-06_jprb/)
kao( :, 1,10, 1) = (/&
&9.1025e-07_jprb,2.4528e-06_jprb,5.5726e-06_jprb,5.5107e-06_jprb,5.1975e-06_jprb,4.4519e-06_jprb,&
&3.8745e-06_jprb,3.7574e-06_jprb,7.2814e-06_jprb/)
kao( :, 2,10, 1) = (/&
&1.3156e-06_jprb,2.0527e-06_jprb,6.2782e-06_jprb,6.4430e-06_jprb,6.8843e-06_jprb,6.1546e-06_jprb,&
&5.1800e-06_jprb,4.8780e-06_jprb,8.0238e-06_jprb/)
kao( :, 3,10, 1) = (/&
&1.8603e-06_jprb,2.0830e-06_jprb,5.0693e-06_jprb,7.7258e-06_jprb,7.2719e-06_jprb,8.2740e-06_jprb,&
&6.9520e-06_jprb,6.2927e-06_jprb,9.9400e-06_jprb/)
kao( :, 4,10, 1) = (/&
&2.5643e-06_jprb,2.6119e-06_jprb,4.1284e-06_jprb,8.2194e-06_jprb,8.3768e-06_jprb,8.2923e-06_jprb,&
&8.9244e-06_jprb,7.7919e-06_jprb,1.3755e-05_jprb/)
kao( :, 5,10, 1) = (/&
&3.4396e-06_jprb,3.4402e-06_jprb,3.9520e-06_jprb,6.9781e-06_jprb,9.9688e-06_jprb,8.9208e-06_jprb,&
&1.0073e-05_jprb,9.4585e-06_jprb,2.0482e-05_jprb/)
kao( :, 1,11, 1) = (/&
&7.9990e-07_jprb,2.6784e-06_jprb,5.0182e-06_jprb,5.2703e-06_jprb,4.7427e-06_jprb,4.1219e-06_jprb,&
&3.7030e-06_jprb,3.7980e-06_jprb,1.0212e-05_jprb/)
kao( :, 2,11, 1) = (/&
&1.1506e-06_jprb,2.1675e-06_jprb,6.1676e-06_jprb,5.9511e-06_jprb,6.4671e-06_jprb,5.5707e-06_jprb,&
&4.8102e-06_jprb,4.7946e-06_jprb,1.1170e-05_jprb/)
kao( :, 3,11, 1) = (/&
&1.6161e-06_jprb,1.9795e-06_jprb,5.4689e-06_jprb,6.8567e-06_jprb,6.9277e-06_jprb,7.3643e-06_jprb,&
&6.3255e-06_jprb,6.0154e-06_jprb,1.3679e-05_jprb/)
kao( :, 4,11, 1) = (/&
&2.2097e-06_jprb,2.3135e-06_jprb,4.4934e-06_jprb,8.2433e-06_jprb,7.5005e-06_jprb,8.0757e-06_jprb,&
&8.0043e-06_jprb,7.4062e-06_jprb,1.8725e-05_jprb/)
kao( :, 5,11, 1) = (/&
&2.9383e-06_jprb,2.9710e-06_jprb,3.8010e-06_jprb,7.4323e-06_jprb,8.7355e-06_jprb,8.0970e-06_jprb,&
&9.6640e-06_jprb,8.8290e-06_jprb,2.7664e-05_jprb/)
kao( :, 1,12, 1) = (/&
&7.0941e-07_jprb,2.6297e-06_jprb,4.5700e-06_jprb,4.9667e-06_jprb,4.3747e-06_jprb,3.8263e-06_jprb,&
&3.4506e-06_jprb,3.6352e-06_jprb,1.0764e-05_jprb/)
kao( :, 2,12, 1) = (/&
&1.0191e-06_jprb,2.0344e-06_jprb,5.5461e-06_jprb,5.4627e-06_jprb,5.8842e-06_jprb,5.0801e-06_jprb,&
&4.4391e-06_jprb,4.4109e-06_jprb,1.1741e-05_jprb/)
kao( :, 3,12, 1) = (/&
&1.4279e-06_jprb,1.8013e-06_jprb,5.3154e-06_jprb,6.1728e-06_jprb,6.3556e-06_jprb,6.6152e-06_jprb,&
&5.7465e-06_jprb,5.5323e-06_jprb,1.4320e-05_jprb/)
kao( :, 4,12, 1) = (/&
&1.9430e-06_jprb,2.0642e-06_jprb,4.3928e-06_jprb,7.3526e-06_jprb,6.7817e-06_jprb,7.5948e-06_jprb,&
&7.1609e-06_jprb,6.7682e-06_jprb,1.9523e-05_jprb/)
kao( :, 5,12, 1) = (/&
&2.5711e-06_jprb,2.6172e-06_jprb,3.5411e-06_jprb,7.1217e-06_jprb,7.7996e-06_jprb,7.3436e-06_jprb,&
&8.5622e-06_jprb,7.9225e-06_jprb,2.8755e-05_jprb/)
kao( :, 1,13, 1) = (/&
&6.2420e-07_jprb,2.5595e-06_jprb,4.1789e-06_jprb,4.5948e-06_jprb,4.0362e-06_jprb,3.5472e-06_jprb,&
&3.2436e-06_jprb,3.4107e-06_jprb,9.1608e-06_jprb/)
kao( :, 2,13, 1) = (/&
&8.9615e-07_jprb,1.9079e-06_jprb,4.9940e-06_jprb,5.0423e-06_jprb,5.3353e-06_jprb,4.6287e-06_jprb,&
&4.1017e-06_jprb,4.1244e-06_jprb,9.9901e-06_jprb/)
kao( :, 3,13, 1) = (/&
&1.2529e-06_jprb,1.6490e-06_jprb,5.1498e-06_jprb,5.5689e-06_jprb,5.8865e-06_jprb,5.9318e-06_jprb,&
&5.1860e-06_jprb,5.1003e-06_jprb,1.2178e-05_jprb/)
kao( :, 4,13, 1) = (/&
&1.6987e-06_jprb,1.8380e-06_jprb,4.2684e-06_jprb,6.5744e-06_jprb,6.1601e-06_jprb,7.0815e-06_jprb,&
&6.4247e-06_jprb,6.1421e-06_jprb,1.6600e-05_jprb/)
kao( :, 5,13, 1) = (/&
&2.2352e-06_jprb,2.2950e-06_jprb,3.3070e-06_jprb,6.8297e-06_jprb,6.9887e-06_jprb,6.7633e-06_jprb,&
&7.6284e-06_jprb,7.1420e-06_jprb,2.4442e-05_jprb/)
kao( :, 1, 1, 2) = (/&
&5.4151e-05_jprb,5.1620e-05_jprb,4.7151e-05_jprb,4.1642e-05_jprb,3.5398e-05_jprb,2.6235e-05_jprb,&
&2.1071e-05_jprb,5.8698e-05_jprb,2.4321e-05_jprb/)
kao( :, 2, 1, 2) = (/&
&6.7514e-05_jprb,6.4760e-05_jprb,5.9233e-05_jprb,5.2524e-05_jprb,4.5074e-05_jprb,3.6408e-05_jprb,&
&2.4335e-05_jprb,5.6829e-05_jprb,2.7514e-05_jprb/)
kao( :, 3, 1, 2) = (/&
&8.2149e-05_jprb,7.9291e-05_jprb,7.2593e-05_jprb,6.4606e-05_jprb,5.5728e-05_jprb,4.6152e-05_jprb,&
&3.4241e-05_jprb,4.5420e-05_jprb,2.4336e-05_jprb/)
kao( :, 4, 1, 2) = (/&
&9.7723e-05_jprb,9.4880e-05_jprb,8.7232e-05_jprb,7.7947e-05_jprb,6.7833e-05_jprb,5.6842e-05_jprb,&
&4.4766e-05_jprb,2.6532e-05_jprb,2.9870e-05_jprb/)
kao( :, 5, 1, 2) = (/&
&1.1394e-04_jprb,1.1139e-04_jprb,1.0299e-04_jprb,9.2684e-05_jprb,8.1155e-05_jprb,6.8389e-05_jprb,&
&5.3823e-05_jprb,3.3217e-05_jprb,2.3434e-05_jprb/)
kao( :, 1, 2, 2) = (/&
&4.2753e-05_jprb,4.0882e-05_jprb,3.7362e-05_jprb,3.3159e-05_jprb,2.7615e-05_jprb,1.8637e-05_jprb,&
&2.2134e-05_jprb,5.3399e-05_jprb,1.8302e-05_jprb/)
kao( :, 2, 2, 2) = (/&
&5.3879e-05_jprb,5.1846e-05_jprb,4.7574e-05_jprb,4.2472e-05_jprb,3.6451e-05_jprb,2.8399e-05_jprb,&
&1.9335e-05_jprb,5.2953e-05_jprb,1.7179e-05_jprb/)
kao( :, 3, 2, 2) = (/&
&6.6088e-05_jprb,6.4132e-05_jprb,5.9087e-05_jprb,5.2832e-05_jprb,4.5668e-05_jprb,3.7676e-05_jprb,&
&2.6673e-05_jprb,4.9047e-05_jprb,2.0200e-05_jprb/)
kao( :, 4, 2, 2) = (/&
&7.9313e-05_jprb,7.7493e-05_jprb,7.1541e-05_jprb,6.4098e-05_jprb,5.5769e-05_jprb,4.6664e-05_jprb,&
&3.6034e-05_jprb,2.7239e-05_jprb,1.9971e-05_jprb/)
kao( :, 5, 2, 2) = (/&
&9.3172e-05_jprb,9.1802e-05_jprb,8.4933e-05_jprb,7.6462e-05_jprb,6.6920e-05_jprb,5.6293e-05_jprb,&
&4.4283e-05_jprb,2.5633e-05_jprb,1.6128e-05_jprb/)
kao( :, 1, 3, 2) = (/&
&3.1637e-05_jprb,3.0177e-05_jprb,2.7541e-05_jprb,2.3988e-05_jprb,1.7787e-05_jprb,1.3073e-05_jprb,&
&4.0575e-05_jprb,4.8194e-05_jprb,1.2505e-05_jprb/)
kao( :, 2, 3, 2) = (/&
&4.0410e-05_jprb,3.8878e-05_jprb,3.5667e-05_jprb,3.1901e-05_jprb,2.6742e-05_jprb,1.8595e-05_jprb,&
&1.9446e-05_jprb,5.0395e-05_jprb,1.3203e-05_jprb/)
kao( :, 3, 3, 2) = (/&
&5.0197e-05_jprb,4.8688e-05_jprb,4.4913e-05_jprb,4.0333e-05_jprb,3.4912e-05_jprb,2.7673e-05_jprb,&
&1.8085e-05_jprb,4.8586e-05_jprb,1.3602e-05_jprb/)
kao( :, 4, 3, 2) = (/&
&6.0782e-05_jprb,5.9537e-05_jprb,5.5167e-05_jprb,4.9672e-05_jprb,4.3304e-05_jprb,3.6088e-05_jprb,&
&2.5607e-05_jprb,4.2696e-05_jprb,1.2094e-05_jprb/)
kao( :, 5, 3, 2) = (/&
&7.2122e-05_jprb,7.1291e-05_jprb,6.6301e-05_jprb,5.9947e-05_jprb,5.2623e-05_jprb,4.4244e-05_jprb,&
&3.4126e-05_jprb,2.2584e-05_jprb,1.6766e-05_jprb/)
kao( :, 1, 4, 2) = (/&
&2.3214e-05_jprb,2.2012e-05_jprb,1.9759e-05_jprb,1.6356e-05_jprb,1.1177e-05_jprb,1.3102e-05_jprb,&
&5.4531e-05_jprb,4.5521e-05_jprb,8.5704e-06_jprb/)
kao( :, 2, 4, 2) = (/&
&2.9987e-05_jprb,2.8729e-05_jprb,2.6188e-05_jprb,2.2885e-05_jprb,1.7414e-05_jprb,1.2331e-05_jprb,&
&3.4914e-05_jprb,4.5109e-05_jprb,8.5816e-06_jprb/)
kao( :, 3, 4, 2) = (/&
&3.7737e-05_jprb,3.6418e-05_jprb,3.3481e-05_jprb,2.9943e-05_jprb,2.5212e-05_jprb,1.8076e-05_jprb,&
&1.7776e-05_jprb,4.6705e-05_jprb,7.7341e-06_jprb/)
kao( :, 4, 4, 2) = (/&
&4.6237e-05_jprb,4.5035e-05_jprb,4.1706e-05_jprb,3.7594e-05_jprb,3.2675e-05_jprb,2.6052e-05_jprb,&
&1.7191e-05_jprb,4.4501e-05_jprb,1.1430e-05_jprb/)
kao( :, 5, 4, 2) = (/&
&5.5394e-05_jprb,5.4566e-05_jprb,5.0800e-05_jprb,4.6060e-05_jprb,4.0396e-05_jprb,3.3727e-05_jprb,&
&2.3835e-05_jprb,3.7336e-05_jprb,1.6242e-05_jprb/)
kao( :, 1, 5, 2) = (/&
&1.7110e-05_jprb,1.6145e-05_jprb,1.4165e-05_jprb,1.0426e-05_jprb,7.9870e-06_jprb,2.4744e-05_jprb,&
&5.4612e-05_jprb,4.2211e-05_jprb,5.8558e-06_jprb/)
kao( :, 2, 5, 2) = (/&
&2.2350e-05_jprb,2.1312e-05_jprb,1.9197e-05_jprb,1.6194e-05_jprb,1.1081e-05_jprb,1.1593e-05_jprb,&
&4.7643e-05_jprb,4.2913e-05_jprb,4.4739e-06_jprb/)
kao( :, 3, 5, 2) = (/&
&2.8416e-05_jprb,2.7289e-05_jprb,2.4884e-05_jprb,2.1811e-05_jprb,1.7120e-05_jprb,1.1847e-05_jprb,&
&3.1141e-05_jprb,4.2424e-05_jprb,6.9636e-06_jprb/)
kao( :, 4, 5, 2) = (/&
&3.5202e-05_jprb,3.4084e-05_jprb,3.1336e-05_jprb,2.8012e-05_jprb,2.3757e-05_jprb,1.7453e-05_jprb,&
&1.5962e-05_jprb,4.2655e-05_jprb,1.0597e-05_jprb/)
kao( :, 5, 5, 2) = (/&
&4.2592e-05_jprb,4.1680e-05_jprb,3.8616e-05_jprb,3.4875e-05_jprb,3.0427e-05_jprb,2.4423e-05_jprb,&
&1.5902e-05_jprb,4.0629e-05_jprb,1.5906e-05_jprb/)
kao( :, 1, 6, 2) = (/&
&1.2522e-05_jprb,1.1758e-05_jprb,9.8897e-06_jprb,6.3513e-06_jprb,1.0585e-05_jprb,4.0712e-05_jprb,&
&5.0160e-05_jprb,4.0760e-05_jprb,3.1679e-06_jprb/)
kao( :, 2, 6, 2) = (/&
&1.6573e-05_jprb,1.5756e-05_jprb,1.3865e-05_jprb,1.0569e-05_jprb,7.4971e-06_jprb,2.3617e-05_jprb,&
&5.0226e-05_jprb,4.0741e-05_jprb,3.5969e-06_jprb/)
kao( :, 3, 6, 2) = (/&
&2.1308e-05_jprb,2.0432e-05_jprb,1.8454e-05_jprb,1.5643e-05_jprb,1.0753e-05_jprb,1.1262e-05_jprb,&
&4.2958e-05_jprb,3.9589e-05_jprb,5.9975e-06_jprb/)
kao( :, 4, 6, 2) = (/&
&2.6653e-05_jprb,2.5731e-05_jprb,2.3505e-05_jprb,2.0714e-05_jprb,1.6401e-05_jprb,1.1347e-05_jprb,&
&2.9347e-05_jprb,3.9364e-05_jprb,9.7407e-06_jprb/)
kao( :, 5, 6, 2) = (/&
&3.2562e-05_jprb,3.1730e-05_jprb,2.9223e-05_jprb,2.6148e-05_jprb,2.2224e-05_jprb,1.6477e-05_jprb,&
&1.5448e-05_jprb,3.9356e-05_jprb,1.5151e-05_jprb/)
kao( :, 1, 7, 2) = (/&
&9.2632e-06_jprb,8.5835e-06_jprb,6.2688e-06_jprb,5.7491e-06_jprb,2.0750e-05_jprb,4.7549e-05_jprb,&
&4.9746e-05_jprb,4.3221e-05_jprb,1.9173e-06_jprb/)
kao( :, 2, 7, 2) = (/&
&1.2411e-05_jprb,1.1741e-05_jprb,9.9384e-06_jprb,6.3308e-06_jprb,9.8932e-06_jprb,3.7604e-05_jprb,&
&4.5915e-05_jprb,3.8224e-05_jprb,3.1404e-06_jprb/)
kao( :, 3, 7, 2) = (/&
&1.6131e-05_jprb,1.5426e-05_jprb,1.3668e-05_jprb,1.0538e-05_jprb,7.5655e-06_jprb,2.2395e-05_jprb,&
&4.5385e-05_jprb,3.8777e-05_jprb,5.5259e-06_jprb/)
kao( :, 4, 7, 2) = (/&
&2.0394e-05_jprb,1.9668e-05_jprb,1.7772e-05_jprb,1.5135e-05_jprb,1.0480e-05_jprb,1.1695e-05_jprb,&
&3.8455e-05_jprb,3.6049e-05_jprb,9.3488e-06_jprb/)
kao( :, 5, 7, 2) = (/&
&2.5104e-05_jprb,2.4438e-05_jprb,2.2345e-05_jprb,1.9724e-05_jprb,1.5920e-05_jprb,1.0909e-05_jprb,&
&2.7780e-05_jprb,3.6976e-05_jprb,1.5076e-05_jprb/)
kao( :, 1, 8, 2) = (/&
&6.9226e-06_jprb,6.1974e-06_jprb,3.6925e-06_jprb,9.7107e-06_jprb,3.1400e-05_jprb,5.1217e-05_jprb,&
&5.1133e-05_jprb,4.7405e-05_jprb,1.8023e-06_jprb/)
kao( :, 2, 8, 2) = (/&
&9.3730e-06_jprb,8.7696e-06_jprb,6.5222e-06_jprb,5.5338e-06_jprb,2.0725e-05_jprb,4.5311e-05_jprb,&
&4.6330e-05_jprb,3.9950e-05_jprb,3.2574e-06_jprb/)
kao( :, 3, 8, 2) = (/&
&1.2271e-05_jprb,1.1705e-05_jprb,9.9611e-06_jprb,6.4477e-06_jprb,1.0502e-05_jprb,3.6242e-05_jprb,&
&4.2814e-05_jprb,3.6156e-05_jprb,5.9101e-06_jprb/)
kao( :, 4, 8, 2) = (/&
&1.5653e-05_jprb,1.5070e-05_jprb,1.3408e-05_jprb,1.0377e-05_jprb,7.4564e-06_jprb,2.3003e-05_jprb,&
&4.1378e-05_jprb,3.6628e-05_jprb,1.0378e-05_jprb/)
kao( :, 5, 8, 2) = (/&
&1.9451e-05_jprb,1.8892e-05_jprb,1.7102e-05_jprb,1.4623e-05_jprb,1.0332e-05_jprb,1.2287e-05_jprb,&
&3.5601e-05_jprb,3.3798e-05_jprb,1.7377e-05_jprb/)
kao( :, 1, 9, 2) = (/&
&5.2610e-06_jprb,4.1633e-06_jprb,4.0647e-06_jprb,1.6473e-05_jprb,4.2753e-05_jprb,5.1385e-05_jprb,&
&4.7611e-05_jprb,4.8409e-05_jprb,3.6172e-06_jprb/)
kao( :, 2, 9, 2) = (/&
&7.1572e-06_jprb,6.5056e-06_jprb,3.9269e-06_jprb,9.8251e-06_jprb,3.2469e-05_jprb,4.6277e-05_jprb,&
&4.7279e-05_jprb,4.4658e-05_jprb,6.1285e-06_jprb/)
kao( :, 3, 9, 2) = (/&
&9.4513e-06_jprb,8.9266e-06_jprb,6.7478e-06_jprb,5.5531e-06_jprb,2.0823e-05_jprb,4.1922e-05_jprb,&
&4.3117e-05_jprb,3.6857e-05_jprb,1.1095e-05_jprb/)
kao( :, 4, 9, 2) = (/&
&1.2144e-05_jprb,1.1656e-05_jprb,9.9211e-06_jprb,6.5681e-06_jprb,1.1366e-05_jprb,3.4298e-05_jprb,&
&3.9570e-05_jprb,3.4386e-05_jprb,2.0048e-05_jprb/)
kao( :, 5, 9, 2) = (/&
&1.5214e-05_jprb,1.4744e-05_jprb,1.3136e-05_jprb,1.0200e-05_jprb,7.5939e-06_jprb,2.3119e-05_jprb,&
&3.7419e-05_jprb,3.3965e-05_jprb,3.4968e-05_jprb/)
kao( :, 1,10, 2) = (/&
&4.1564e-06_jprb,2.6079e-06_jprb,6.9218e-06_jprb,2.7859e-05_jprb,4.8834e-05_jprb,5.2686e-05_jprb,&
&4.6389e-05_jprb,4.9087e-05_jprb,1.0652e-05_jprb/)
kao( :, 2,10, 2) = (/&
&5.6598e-06_jprb,4.6524e-06_jprb,4.2303e-06_jprb,1.7606e-05_jprb,4.1116e-05_jprb,4.7567e-05_jprb,&
&4.5264e-05_jprb,4.6736e-05_jprb,1.6225e-05_jprb/)
kao( :, 3,10, 2) = (/&
&7.4935e-06_jprb,6.8980e-06_jprb,4.2539e-06_jprb,1.0638e-05_jprb,3.2709e-05_jprb,4.2416e-05_jprb,&
&4.4544e-05_jprb,4.1212e-05_jprb,2.8258e-05_jprb/)
kao( :, 4,10, 2) = (/&
&9.6635e-06_jprb,9.2067e-06_jprb,7.0228e-06_jprb,5.8835e-06_jprb,2.2271e-05_jprb,3.9179e-05_jprb,&
&4.0535e-05_jprb,3.4910e-05_jprb,5.1242e-05_jprb/)
kao( :, 5,10, 2) = (/&
&1.2158e-05_jprb,1.1756e-05_jprb,1.0040e-05_jprb,6.8113e-06_jprb,1.2737e-05_jprb,3.2445e-05_jprb,&
&3.6666e-05_jprb,3.2986e-05_jprb,9.1455e-05_jprb/)
kao( :, 1,11, 2) = (/&
&3.8505e-06_jprb,2.2272e-06_jprb,9.0452e-06_jprb,3.3373e-05_jprb,4.6563e-05_jprb,5.1119e-05_jprb,&
&4.6293e-05_jprb,4.7828e-05_jprb,1.4850e-05_jprb/)
kao( :, 2,11, 2) = (/&
&5.1974e-06_jprb,4.0087e-06_jprb,5.3940e-06_jprb,2.3158e-05_jprb,4.1599e-05_jprb,4.6146e-05_jprb,&
&4.2299e-05_jprb,4.6208e-05_jprb,2.2452e-05_jprb/)
kao( :, 3,11, 2) = (/&
&6.8266e-06_jprb,6.1648e-06_jprb,4.0224e-06_jprb,1.4825e-05_jprb,3.4779e-05_jprb,4.0817e-05_jprb,&
&4.2127e-05_jprb,4.1473e-05_jprb,3.8968e-05_jprb/)
kao( :, 4,11, 2) = (/&
&8.7559e-06_jprb,8.2911e-06_jprb,5.8154e-06_jprb,8.1179e-06_jprb,2.7292e-05_jprb,3.7470e-05_jprb,&
&3.8829e-05_jprb,3.4450e-05_jprb,7.0589e-05_jprb/)
kao( :, 5,11, 2) = (/&
&1.0954e-05_jprb,1.0574e-05_jprb,8.7742e-06_jprb,6.0446e-06_jprb,1.8157e-05_jprb,3.3048e-05_jprb,&
&3.5168e-05_jprb,3.1159e-05_jprb,1.2578e-04_jprb/)
kao( :, 1,12, 2) = (/&
&3.5781e-06_jprb,2.0859e-06_jprb,9.5195e-06_jprb,3.1787e-05_jprb,4.2342e-05_jprb,4.6653e-05_jprb,&
&4.2689e-05_jprb,4.4370e-05_jprb,1.5650e-05_jprb/)
kao( :, 2,12, 2) = (/&
&4.8068e-06_jprb,3.6887e-06_jprb,5.7939e-06_jprb,2.3796e-05_jprb,3.7779e-05_jprb,4.1997e-05_jprb,&
&3.8426e-05_jprb,4.2634e-05_jprb,2.3652e-05_jprb/)
kao( :, 3,12, 2) = (/&
&6.2948e-06_jprb,5.6556e-06_jprb,3.7630e-06_jprb,1.5847e-05_jprb,3.2542e-05_jprb,3.7297e-05_jprb,&
&3.8083e-05_jprb,3.7879e-05_jprb,4.1024e-05_jprb/)
kao( :, 4,12, 2) = (/&
&8.0397e-06_jprb,7.5827e-06_jprb,5.0870e-06_jprb,9.0305e-06_jprb,2.6555e-05_jprb,3.3515e-05_jprb,&
&3.5502e-05_jprb,3.1529e-05_jprb,7.4223e-05_jprb/)
kao( :, 5,12, 2) = (/&
&1.0028e-05_jprb,9.6397e-06_jprb,7.9012e-06_jprb,5.7864e-06_jprb,1.8461e-05_jprb,3.0406e-05_jprb,&
&3.2113e-05_jprb,2.8581e-05_jprb,1.3214e-04_jprb/)
kao( :, 1,13, 2) = (/&
&3.3027e-06_jprb,1.9849e-06_jprb,1.0579e-05_jprb,3.0102e-05_jprb,3.8661e-05_jprb,4.2078e-05_jprb,&
&3.9451e-05_jprb,4.0882e-05_jprb,1.3351e-05_jprb/)
kao( :, 2,13, 2) = (/&
&4.4219e-06_jprb,3.3751e-06_jprb,6.3222e-06_jprb,2.3724e-05_jprb,3.3992e-05_jprb,3.8161e-05_jprb,&
&3.4651e-05_jprb,3.8910e-05_jprb,2.0209e-05_jprb/)
kao( :, 3,13, 2) = (/&
&5.7740e-06_jprb,5.1371e-06_jprb,3.6294e-06_jprb,1.6612e-05_jprb,3.0054e-05_jprb,3.4084e-05_jprb,&
&3.4363e-05_jprb,3.4522e-05_jprb,3.5082e-05_jprb/)
kao( :, 4,13, 2) = (/&
&7.3436e-06_jprb,6.8959e-06_jprb,4.5387e-06_jprb,1.0066e-05_jprb,2.5028e-05_jprb,3.0345e-05_jprb,&
&3.2120e-05_jprb,2.8785e-05_jprb,6.3433e-05_jprb/)
kao( :, 5,13, 2) = (/&
&9.1271e-06_jprb,8.7491e-06_jprb,7.0983e-06_jprb,6.0072e-06_jprb,1.8622e-05_jprb,2.7834e-05_jprb,&
&2.8936e-05_jprb,2.5906e-05_jprb,1.1287e-04_jprb/)
kao( :, 1, 1, 3) = (/&
&1.0561e-04_jprb,9.9580e-05_jprb,9.1881e-05_jprb,8.2381e-05_jprb,7.1375e-05_jprb,5.7989e-05_jprb,&
&3.5664e-05_jprb,6.4412e-05_jprb,3.1092e-05_jprb/)
kao( :, 2, 1, 3) = (/&
&1.2338e-04_jprb,1.1773e-04_jprb,1.0902e-04_jprb,9.8327e-05_jprb,8.5823e-05_jprb,7.1198e-05_jprb,&
&5.2267e-05_jprb,4.7983e-05_jprb,3.3217e-05_jprb/)
kao( :, 3, 1, 3) = (/&
&1.4195e-04_jprb,1.3687e-04_jprb,1.2720e-04_jprb,1.1513e-04_jprb,1.0071e-04_jprb,8.3744e-05_jprb,&
&6.2834e-05_jprb,3.3890e-05_jprb,3.3867e-05_jprb/)
kao( :, 4, 1, 3) = (/&
&1.6072e-04_jprb,1.5621e-04_jprb,1.4581e-04_jprb,1.3254e-04_jprb,1.1572e-04_jprb,9.6056e-05_jprb,&
&7.3269e-05_jprb,4.4619e-05_jprb,2.4444e-05_jprb/)
kao( :, 5, 1, 3) = (/&
&1.7870e-04_jprb,1.7588e-04_jprb,1.6519e-04_jprb,1.5017e-04_jprb,1.3146e-04_jprb,1.0980e-04_jprb,&
&8.4775e-05_jprb,5.5831e-05_jprb,2.9607e-05_jprb/)
kao( :, 1, 2, 3) = (/&
&9.0935e-05_jprb,8.5722e-05_jprb,7.8558e-05_jprb,6.9752e-05_jprb,5.9712e-05_jprb,4.7385e-05_jprb,&
&2.8063e-05_jprb,6.1629e-05_jprb,2.1541e-05_jprb/)
kao( :, 2, 2, 3) = (/&
&1.0613e-04_jprb,1.0109e-04_jprb,9.2923e-05_jprb,8.2896e-05_jprb,7.1836e-05_jprb,5.9001e-05_jprb,&
&4.0531e-05_jprb,5.4238e-05_jprb,2.6282e-05_jprb/)
kao( :, 3, 2, 3) = (/&
&1.2220e-04_jprb,1.1726e-04_jprb,1.0800e-04_jprb,9.6883e-05_jprb,8.4549e-05_jprb,7.0132e-05_jprb,&
&5.2211e-05_jprb,3.5371e-05_jprb,2.0831e-05_jprb/)
kao( :, 4, 2, 3) = (/&
&1.3840e-04_jprb,1.3383e-04_jprb,1.2384e-04_jprb,1.1185e-04_jprb,9.7762e-05_jprb,8.1196e-05_jprb,&
&6.1844e-05_jprb,3.5901e-05_jprb,1.8797e-05_jprb/)
kao( :, 5, 2, 3) = (/&
&1.5419e-04_jprb,1.5072e-04_jprb,1.4069e-04_jprb,1.2749e-04_jprb,1.1156e-04_jprb,9.3151e-05_jprb,&
&7.1896e-05_jprb,4.6407e-05_jprb,2.8564e-05_jprb/)
kao( :, 1, 3, 3) = (/&
&7.5234e-05_jprb,7.0905e-05_jprb,6.4619e-05_jprb,5.6937e-05_jprb,4.7925e-05_jprb,3.4057e-05_jprb,&
&2.9471e-05_jprb,6.0714e-05_jprb,1.5353e-05_jprb/)
kao( :, 2, 3, 3) = (/&
&8.8054e-05_jprb,8.3720e-05_jprb,7.6548e-05_jprb,6.7694e-05_jprb,5.7920e-05_jprb,4.6422e-05_jprb,&
&2.6506e-05_jprb,5.8794e-05_jprb,1.3222e-05_jprb/)
kao( :, 3, 3, 3) = (/&
&1.0142e-04_jprb,9.7129e-05_jprb,8.9011e-05_jprb,7.9094e-05_jprb,6.8344e-05_jprb,5.6044e-05_jprb,&
&3.9469e-05_jprb,4.5819e-05_jprb,1.2529e-05_jprb/)
kao( :, 4, 3, 3) = (/&
&1.1514e-04_jprb,1.1089e-04_jprb,1.0189e-04_jprb,9.1196e-05_jprb,7.9328e-05_jprb,6.5564e-05_jprb,&
&4.9536e-05_jprb,2.9992e-05_jprb,2.0006e-05_jprb/)
kao( :, 5, 3, 3) = (/&
&1.2867e-04_jprb,1.2511e-04_jprb,1.1573e-04_jprb,1.0413e-04_jprb,9.0747e-05_jprb,7.5488e-05_jprb,&
&5.8137e-05_jprb,3.3705e-05_jprb,2.9649e-05_jprb/)
kao( :, 1, 4, 3) = (/&
&6.1778e-05_jprb,5.8294e-05_jprb,5.2798e-05_jprb,4.6202e-05_jprb,3.7473e-05_jprb,2.1169e-05_jprb,&
&3.9527e-05_jprb,6.1900e-05_jprb,9.6628e-06_jprb/)
kao( :, 2, 4, 3) = (/&
&7.2880e-05_jprb,6.9141e-05_jprb,6.2841e-05_jprb,5.5219e-05_jprb,4.6442e-05_jprb,3.4307e-05_jprb,&
&2.4540e-05_jprb,5.8099e-05_jprb,8.2774e-06_jprb/)
kao( :, 3, 4, 3) = (/&
&8.4189e-05_jprb,8.0422e-05_jprb,7.3326e-05_jprb,6.4671e-05_jprb,5.5214e-05_jprb,4.4201e-05_jprb,&
&2.5763e-05_jprb,5.4305e-05_jprb,1.4320e-05_jprb/)
kao( :, 4, 4, 3) = (/&
&9.5731e-05_jprb,9.1993e-05_jprb,8.4010e-05_jprb,7.4439e-05_jprb,6.4080e-05_jprb,5.2536e-05_jprb,&
&3.7772e-05_jprb,4.0812e-05_jprb,2.1667e-05_jprb/)
kao( :, 5, 4, 3) = (/&
&1.0722e-04_jprb,1.0376e-04_jprb,9.5138e-05_jprb,8.4789e-05_jprb,7.3585e-05_jprb,6.0982e-05_jprb,&
&4.6442e-05_jprb,2.6775e-05_jprb,3.0897e-05_jprb/)
kao( :, 1, 5, 3) = (/&
&5.0693e-05_jprb,4.7899e-05_jprb,4.3078e-05_jprb,3.7149e-05_jprb,2.7343e-05_jprb,1.8823e-05_jprb,&
&5.3113e-05_jprb,6.4247e-05_jprb,5.8413e-06_jprb/)
kao( :, 2, 5, 3) = (/&
&6.0292e-05_jprb,5.7244e-05_jprb,5.1699e-05_jprb,4.5062e-05_jprb,3.6934e-05_jprb,2.2807e-05_jprb,&
&3.5085e-05_jprb,5.8430e-05_jprb,9.0461e-06_jprb/)
kao( :, 3, 5, 3) = (/&
&7.0130e-05_jprb,6.6900e-05_jprb,6.0628e-05_jprb,5.3145e-05_jprb,4.4673e-05_jprb,3.3772e-05_jprb,&
&2.2961e-05_jprb,5.4725e-05_jprb,1.4542e-05_jprb/)
kao( :, 4, 5, 3) = (/&
&7.9880e-05_jprb,7.6664e-05_jprb,6.9684e-05_jprb,6.1301e-05_jprb,5.2150e-05_jprb,4.1916e-05_jprb,&
&2.5438e-05_jprb,4.9130e-05_jprb,2.2207e-05_jprb/)
kao( :, 5, 5, 3) = (/&
&8.9549e-05_jprb,8.6422e-05_jprb,7.8834e-05_jprb,6.9694e-05_jprb,5.9898e-05_jprb,4.9265e-05_jprb,&
&3.5529e-05_jprb,3.7520e-05_jprb,3.2469e-05_jprb/)
kao( :, 1, 6, 3) = (/&
&4.1241e-05_jprb,3.8825e-05_jprb,3.4760e-05_jprb,2.8889e-05_jprb,1.6124e-05_jprb,2.3998e-05_jprb,&
&6.9344e-05_jprb,6.4810e-05_jprb,4.4340e-06_jprb/)
kao( :, 2, 6, 3) = (/&
&4.9399e-05_jprb,4.6917e-05_jprb,4.2198e-05_jprb,3.6346e-05_jprb,2.7704e-05_jprb,1.8853e-05_jprb,&
&4.8135e-05_jprb,6.0892e-05_jprb,8.2681e-06_jprb/)
kao( :, 3, 6, 3) = (/&
&5.7861e-05_jprb,5.5206e-05_jprb,4.9718e-05_jprb,4.3299e-05_jprb,3.5690e-05_jprb,2.2202e-05_jprb,&
&3.1528e-05_jprb,5.5484e-05_jprb,1.3906e-05_jprb/)
kao( :, 4, 6, 3) = (/&
&6.6294e-05_jprb,6.3463e-05_jprb,5.7396e-05_jprb,5.0239e-05_jprb,4.2302e-05_jprb,3.1945e-05_jprb,&
&2.0634e-05_jprb,5.2274e-05_jprb,2.1920e-05_jprb/)
kao( :, 5, 6, 3) = (/&
&7.4664e-05_jprb,7.1784e-05_jprb,6.5151e-05_jprb,5.7238e-05_jprb,4.8740e-05_jprb,3.9314e-05_jprb,&
&2.3437e-05_jprb,4.4846e-05_jprb,3.3007e-05_jprb/)
kao( :, 1, 7, 3) = (/&
&3.3565e-05_jprb,3.1356e-05_jprb,2.7729e-05_jprb,1.9350e-05_jprb,1.4415e-05_jprb,3.7753e-05_jprb,&
&7.9102e-05_jprb,6.2223e-05_jprb,4.1072e-06_jprb/)
kao( :, 2, 7, 3) = (/&
&4.0432e-05_jprb,3.8210e-05_jprb,3.4263e-05_jprb,2.8707e-05_jprb,1.6576e-05_jprb,2.4516e-05_jprb,&
&6.1614e-05_jprb,6.3419e-05_jprb,8.0365e-06_jprb/)
kao( :, 3, 7, 3) = (/&
&4.7650e-05_jprb,4.5423e-05_jprb,4.0777e-05_jprb,3.5184e-05_jprb,2.7131e-05_jprb,1.8290e-05_jprb,&
&4.3600e-05_jprb,5.7557e-05_jprb,1.3883e-05_jprb/)
kao( :, 4, 7, 3) = (/&
&5.4916e-05_jprb,5.2553e-05_jprb,4.7306e-05_jprb,4.1198e-05_jprb,3.3969e-05_jprb,2.0841e-05_jprb,&
&2.8970e-05_jprb,5.2203e-05_jprb,2.2718e-05_jprb/)
kao( :, 5, 7, 3) = (/&
&6.2191e-05_jprb,5.9624e-05_jprb,5.3859e-05_jprb,4.7059e-05_jprb,3.9626e-05_jprb,3.0110e-05_jprb,&
&1.8574e-05_jprb,4.8026e-05_jprb,3.5441e-05_jprb/)
kao( :, 1, 8, 3) = (/&
&2.7226e-05_jprb,2.5212e-05_jprb,2.1382e-05_jprb,1.0543e-05_jprb,2.2029e-05_jprb,5.3627e-05_jprb,&
&8.2097e-05_jprb,5.8785e-05_jprb,4.6971e-06_jprb/)
kao( :, 2, 8, 3) = (/&
&3.3008e-05_jprb,3.0976e-05_jprb,2.7464e-05_jprb,1.9851e-05_jprb,1.5586e-05_jprb,3.6260e-05_jprb,&
&7.0608e-05_jprb,6.2688e-05_jprb,9.0473e-06_jprb/)
kao( :, 3, 8, 3) = (/&
&3.9152e-05_jprb,3.7119e-05_jprb,3.3223e-05_jprb,2.7933e-05_jprb,1.6165e-05_jprb,2.3754e-05_jprb,&
&5.6757e-05_jprb,6.1667e-05_jprb,1.6403e-05_jprb/)
kao( :, 4, 8, 3) = (/&
&4.5401e-05_jprb,4.3320e-05_jprb,3.8890e-05_jprb,3.3512e-05_jprb,2.5986e-05_jprb,1.7686e-05_jprb,&
&4.1699e-05_jprb,5.5000e-05_jprb,2.8038e-05_jprb/)
kao( :, 5, 8, 3) = (/&
&5.1574e-05_jprb,4.9405e-05_jprb,4.4463e-05_jprb,3.8672e-05_jprb,3.1838e-05_jprb,1.9274e-05_jprb,&
&2.7957e-05_jprb,4.8608e-05_jprb,4.5414e-05_jprb/)
kao( :, 1, 9, 3) = (/&
&2.1974e-05_jprb,2.0130e-05_jprb,1.3358e-05_jprb,1.2253e-05_jprb,3.2656e-05_jprb,7.0337e-05_jprb,&
&8.9242e-05_jprb,5.7837e-05_jprb,9.3121e-06_jprb/)
kao( :, 2, 9, 3) = (/&
&2.6942e-05_jprb,2.5061e-05_jprb,2.1391e-05_jprb,1.1226e-05_jprb,2.1710e-05_jprb,5.1789e-05_jprb,&
&7.4746e-05_jprb,5.8409e-05_jprb,1.8445e-05_jprb/)
kao( :, 3, 9, 3) = (/&
&3.2174e-05_jprb,3.0300e-05_jprb,2.6794e-05_jprb,1.9848e-05_jprb,1.5650e-05_jprb,3.5796e-05_jprb,&
&6.3518e-05_jprb,6.2556e-05_jprb,3.5097e-05_jprb/)
kao( :, 4, 9, 3) = (/&
&3.7549e-05_jprb,3.5640e-05_jprb,3.1882e-05_jprb,2.6804e-05_jprb,1.5301e-05_jprb,2.3066e-05_jprb,&
&5.1951e-05_jprb,5.9042e-05_jprb,6.2870e-05_jprb/)
kao( :, 5, 9, 3) = (/&
&4.2852e-05_jprb,4.0889e-05_jprb,3.6715e-05_jprb,3.1666e-05_jprb,2.4183e-05_jprb,1.7177e-05_jprb,&
&4.0166e-05_jprb,5.1290e-05_jprb,1.0621e-04_jprb/)
kao( :, 1,10, 3) = (/&
&1.7885e-05_jprb,1.6093e-05_jprb,7.4609e-06_jprb,1.9809e-05_jprb,4.8743e-05_jprb,8.4191e-05_jprb,&
&9.7811e-05_jprb,5.7087e-05_jprb,2.4684e-05_jprb/)
kao( :, 2,10, 3) = (/&
&2.2205e-05_jprb,2.0473e-05_jprb,1.4192e-05_jprb,1.3653e-05_jprb,3.3673e-05_jprb,6.6332e-05_jprb,&
&8.1889e-05_jprb,5.8933e-05_jprb,4.8726e-05_jprb/)
kao( :, 3,10, 3) = (/&
&2.6710e-05_jprb,2.4979e-05_jprb,2.1384e-05_jprb,1.1205e-05_jprb,2.2836e-05_jprb,5.0904e-05_jprb,&
&6.7817e-05_jprb,6.0017e-05_jprb,9.5318e-05_jprb/)
kao( :, 4,10, 3) = (/&
&3.1308e-05_jprb,2.9540e-05_jprb,2.6146e-05_jprb,1.9462e-05_jprb,1.5742e-05_jprb,3.6775e-05_jprb,&
&5.7447e-05_jprb,6.0670e-05_jprb,1.7750e-04_jprb/)
kao( :, 5,10, 3) = (/&
&3.5884e-05_jprb,3.4076e-05_jprb,3.0469e-05_jprb,2.5574e-05_jprb,1.4532e-05_jprb,2.3848e-05_jprb,&
&4.8505e-05_jprb,5.5852e-05_jprb,3.1067e-04_jprb/)
kao( :, 1,11, 3) = (/&
&1.6247e-05_jprb,1.4357e-05_jprb,6.7662e-06_jprb,2.3639e-05_jprb,5.5683e-05_jprb,8.1956e-05_jprb,&
&9.4483e-05_jprb,5.8077e-05_jprb,3.4483e-05_jprb/)
kao( :, 2,11, 3) = (/&
&2.0083e-05_jprb,1.8438e-05_jprb,1.1223e-05_jprb,1.6583e-05_jprb,3.8809e-05_jprb,6.7379e-05_jprb,&
&8.0717e-05_jprb,5.8833e-05_jprb,6.8180e-05_jprb/)
kao( :, 3,11, 3) = (/&
&2.4035e-05_jprb,2.2414e-05_jprb,1.8252e-05_jprb,1.1545e-05_jprb,2.7168e-05_jprb,5.4230e-05_jprb,&
&6.6296e-05_jprb,5.8218e-05_jprb,1.3381e-04_jprb/)
kao( :, 4,11, 3) = (/&
&2.8028e-05_jprb,2.6371e-05_jprb,2.3077e-05_jprb,1.4565e-05_jprb,1.8361e-05_jprb,4.2537e-05_jprb,&
&5.6345e-05_jprb,5.9076e-05_jprb,2.5000e-04_jprb/)
kao( :, 5,11, 3) = (/&
&3.1996e-05_jprb,3.0330e-05_jprb,2.7020e-05_jprb,2.1917e-05_jprb,1.3395e-05_jprb,2.9523e-05_jprb,&
&4.8541e-05_jprb,5.5094e-05_jprb,4.3853e-04_jprb/)
kao( :, 1,12, 3) = (/&
&1.4787e-05_jprb,1.2868e-05_jprb,7.7779e-06_jprb,2.3775e-05_jprb,5.3535e-05_jprb,7.5004e-05_jprb,&
&8.6201e-05_jprb,6.0383e-05_jprb,3.6484e-05_jprb/)
kao( :, 2,12, 3) = (/&
&1.8188e-05_jprb,1.6624e-05_jprb,9.6989e-06_jprb,1.6809e-05_jprb,3.8801e-05_jprb,6.1756e-05_jprb,&
&7.3880e-05_jprb,5.7828e-05_jprb,7.2267e-05_jprb/)
kao( :, 3,12, 3) = (/&
&2.1698e-05_jprb,2.0162e-05_jprb,1.6039e-05_jprb,1.1681e-05_jprb,2.6941e-05_jprb,5.0140e-05_jprb,&
&6.0455e-05_jprb,5.6955e-05_jprb,1.4213e-04_jprb/)
kao( :, 4,12, 3) = (/&
&2.5223e-05_jprb,2.3667e-05_jprb,2.0595e-05_jprb,1.1968e-05_jprb,1.8179e-05_jprb,4.0062e-05_jprb,&
&5.0860e-05_jprb,5.5338e-05_jprb,2.6585e-04_jprb/)
kao( :, 5,12, 3) = (/&
&2.8679e-05_jprb,2.7160e-05_jprb,2.4085e-05_jprb,1.8993e-05_jprb,1.3232e-05_jprb,3.0080e-05_jprb,&
&4.4162e-05_jprb,5.0190e-05_jprb,4.6593e-04_jprb/)
kao( :, 1,13, 3) = (/&
&1.3378e-05_jprb,1.1412e-05_jprb,8.0344e-06_jprb,2.3863e-05_jprb,5.0631e-05_jprb,6.7851e-05_jprb,&
&7.7279e-05_jprb,5.9944e-05_jprb,3.1248e-05_jprb/)
kao( :, 2,13, 3) = (/&
&1.6405e-05_jprb,1.4918e-05_jprb,8.1452e-06_jprb,1.7072e-05_jprb,3.8399e-05_jprb,5.6349e-05_jprb,&
&6.7351e-05_jprb,5.6397e-05_jprb,6.1993e-05_jprb/)
kao( :, 3,13, 3) = (/&
&1.9514e-05_jprb,1.8083e-05_jprb,1.3959e-05_jprb,1.1780e-05_jprb,2.7506e-05_jprb,4.6033e-05_jprb,&
&5.5011e-05_jprb,5.3246e-05_jprb,1.2205e-04_jprb/)
kao( :, 4,13, 3) = (/&
&2.2612e-05_jprb,2.1175e-05_jprb,1.8198e-05_jprb,9.8216e-06_jprb,1.8940e-05_jprb,3.7116e-05_jprb,&
&4.6044e-05_jprb,5.0287e-05_jprb,2.2822e-04_jprb/)
kao( :, 5,13, 3) = (/&
&2.5652e-05_jprb,2.4254e-05_jprb,2.1392e-05_jprb,1.5930e-05_jprb,1.2761e-05_jprb,2.9362e-05_jprb,&
&4.0037e-05_jprb,4.5639e-05_jprb,3.9941e-04_jprb/)
kao( :, 1, 1, 4) = (/&
&1.9325e-04_jprb,1.8065e-04_jprb,1.6180e-04_jprb,1.4199e-04_jprb,1.2006e-04_jprb,9.6342e-05_jprb,&
&6.5622e-05_jprb,4.8423e-05_jprb,3.6972e-05_jprb/)
kao( :, 2, 1, 4) = (/&
&2.0819e-04_jprb,1.9606e-04_jprb,1.7737e-04_jprb,1.5604e-04_jprb,1.3291e-04_jprb,1.0794e-04_jprb,&
&7.9216e-05_jprb,4.1605e-05_jprb,3.5731e-05_jprb/)
kao( :, 3, 1, 4) = (/&
&2.2206e-04_jprb,2.1170e-04_jprb,1.9336e-04_jprb,1.7130e-04_jprb,1.4701e-04_jprb,1.2089e-04_jprb,&
&9.0968e-05_jprb,4.3271e-05_jprb,3.0303e-05_jprb/)
kao( :, 4, 1, 4) = (/&
&2.3676e-04_jprb,2.2953e-04_jprb,2.1085e-04_jprb,1.8785e-04_jprb,1.6294e-04_jprb,1.3496e-04_jprb,&
&1.0281e-04_jprb,6.1284e-05_jprb,3.2172e-05_jprb/)
kao( :, 5, 1, 4) = (/&
&2.5437e-04_jprb,2.4947e-04_jprb,2.3011e-04_jprb,2.0700e-04_jprb,1.8097e-04_jprb,1.5051e-04_jprb,&
&1.1633e-04_jprb,7.7203e-05_jprb,5.3094e-05_jprb/)
kao( :, 1, 2, 4) = (/&
&1.7573e-04_jprb,1.6392e-04_jprb,1.4659e-04_jprb,1.2809e-04_jprb,1.0782e-04_jprb,8.5648e-05_jprb,&
&5.2006e-05_jprb,5.2667e-05_jprb,2.6840e-05_jprb/)
kao( :, 2, 2, 4) = (/&
&1.8913e-04_jprb,1.7769e-04_jprb,1.6041e-04_jprb,1.4067e-04_jprb,1.1911e-04_jprb,9.5721e-05_jprb,&
&6.8639e-05_jprb,4.4992e-05_jprb,2.4069e-05_jprb/)
kao( :, 3, 2, 4) = (/&
&2.0133e-04_jprb,1.9150e-04_jprb,1.7426e-04_jprb,1.5374e-04_jprb,1.3095e-04_jprb,1.0674e-04_jprb,&
&7.9754e-05_jprb,3.2688e-05_jprb,1.8110e-05_jprb/)
kao( :, 4, 2, 4) = (/&
&2.1403e-04_jprb,2.0644e-04_jprb,1.8885e-04_jprb,1.6750e-04_jprb,1.4394e-04_jprb,1.1875e-04_jprb,&
&8.9867e-05_jprb,4.7809e-05_jprb,3.1086e-05_jprb/)
kao( :, 5, 2, 4) = (/&
&2.2856e-04_jprb,2.2298e-04_jprb,2.0481e-04_jprb,1.8286e-04_jprb,1.5862e-04_jprb,1.3164e-04_jprb,&
&1.0114e-04_jprb,6.3503e-05_jprb,4.8865e-05_jprb/)
kao( :, 1, 3, 4) = (/&
&1.5562e-04_jprb,1.4484e-04_jprb,1.2927e-04_jprb,1.1236e-04_jprb,9.3995e-05_jprb,7.3269e-05_jprb,&
&3.7797e-05_jprb,5.7431e-05_jprb,1.5095e-05_jprb/)
kao( :, 2, 3, 4) = (/&
&1.6743e-04_jprb,1.5710e-04_jprb,1.4113e-04_jprb,1.2321e-04_jprb,1.0375e-04_jprb,8.2299e-05_jprb,&
&5.2915e-05_jprb,4.4705e-05_jprb,1.4179e-05_jprb/)
kao( :, 3, 3, 4) = (/&
&1.7855e-04_jprb,1.6918e-04_jprb,1.5296e-04_jprb,1.3430e-04_jprb,1.1381e-04_jprb,9.1766e-05_jprb,&
&6.6891e-05_jprb,3.9451e-05_jprb,2.0319e-05_jprb/)
kao( :, 4, 3, 4) = (/&
&1.8934e-04_jprb,1.8180e-04_jprb,1.6533e-04_jprb,1.4585e-04_jprb,1.2452e-04_jprb,1.0168e-04_jprb,&
&7.6248e-05_jprb,3.2208e-05_jprb,3.3927e-05_jprb/)
kao( :, 5, 3, 4) = (/&
&2.0107e-04_jprb,1.9484e-04_jprb,1.7806e-04_jprb,1.5818e-04_jprb,1.3631e-04_jprb,1.1252e-04_jprb,&
&8.5478e-05_jprb,4.8964e-05_jprb,4.8647e-05_jprb/)
kao( :, 1, 4, 4) = (/&
&1.3687e-04_jprb,1.2644e-04_jprb,1.1299e-04_jprb,9.7757e-05_jprb,8.1171e-05_jprb,6.0079e-05_jprb,&
&3.3581e-05_jprb,5.5796e-05_jprb,9.0880e-06_jprb/)
kao( :, 2, 4, 4) = (/&
&1.4693e-04_jprb,1.3749e-04_jprb,1.2327e-04_jprb,1.0708e-04_jprb,8.9715e-05_jprb,7.0113e-05_jprb,&
&3.5389e-05_jprb,5.3371e-05_jprb,1.3014e-05_jprb/)
kao( :, 3, 4, 4) = (/&
&1.5672e-04_jprb,1.4837e-04_jprb,1.3344e-04_jprb,1.1660e-04_jprb,9.8197e-05_jprb,7.8371e-05_jprb,&
&5.1608e-05_jprb,4.1358e-05_jprb,2.3902e-05_jprb/)
kao( :, 4, 4, 4) = (/&
&1.6639e-04_jprb,1.5936e-04_jprb,1.4405e-04_jprb,1.2651e-04_jprb,1.0733e-04_jprb,8.6606e-05_jprb,&
&6.3258e-05_jprb,3.2371e-05_jprb,3.6595e-05_jprb/)
kao( :, 5, 4, 4) = (/&
&1.7628e-04_jprb,1.7040e-04_jprb,1.5502e-04_jprb,1.3697e-04_jprb,1.1689e-04_jprb,9.5499e-05_jprb,&
&7.1870e-05_jprb,3.2326e-05_jprb,5.1692e-05_jprb/)
kao( :, 1, 5, 4) = (/&
&1.2014e-04_jprb,1.0999e-04_jprb,9.8155e-05_jprb,8.4680e-05_jprb,6.9013e-05_jprb,3.7866e-05_jprb,&
&4.6216e-05_jprb,5.4078e-05_jprb,7.0562e-06_jprb/)
kao( :, 2, 5, 4) = (/&
&1.2869e-04_jprb,1.1940e-04_jprb,1.0711e-04_jprb,9.2677e-05_jprb,7.7027e-05_jprb,5.7820e-05_jprb,&
&3.1601e-05_jprb,5.4237e-05_jprb,1.5420e-05_jprb/)
kao( :, 3, 5, 4) = (/&
&1.3705e-04_jprb,1.2928e-04_jprb,1.1605e-04_jprb,1.0090e-04_jprb,8.4608e-05_jprb,6.6395e-05_jprb,&
&3.0335e-05_jprb,4.8756e-05_jprb,2.5527e-05_jprb/)
kao( :, 4, 5, 4) = (/&
&1.4539e-04_jprb,1.3907e-04_jprb,1.2508e-04_jprb,1.0941e-04_jprb,9.2394e-05_jprb,7.3775e-05_jprb,&
&4.9339e-05_jprb,4.0777e-05_jprb,3.8427e-05_jprb/)
kao( :, 5, 5, 4) = (/&
&1.5402e-04_jprb,1.4864e-04_jprb,1.3443e-04_jprb,1.1832e-04_jprb,1.0042e-04_jprb,8.1145e-05_jprb,&
&5.9883e-05_jprb,2.8598e-05_jprb,5.5173e-05_jprb/)
kao( :, 1, 6, 4) = (/&
&1.0508e-04_jprb,9.5482e-05_jprb,8.4601e-05_jprb,7.2633e-05_jprb,5.7469e-05_jprb,2.8022e-05_jprb,&
&6.0470e-05_jprb,5.5709e-05_jprb,8.4537e-06_jprb/)
kao( :, 2, 6, 4) = (/&
&1.1254e-04_jprb,1.0355e-04_jprb,9.2576e-05_jprb,7.9894e-05_jprb,6.5248e-05_jprb,3.5620e-05_jprb,&
&4.1186e-05_jprb,5.3203e-05_jprb,1.5781e-05_jprb/)
kao( :, 3, 6, 4) = (/&
&1.1968e-04_jprb,1.1191e-04_jprb,1.0054e-04_jprb,8.6961e-05_jprb,7.2380e-05_jprb,5.4688e-05_jprb,&
&2.8839e-05_jprb,5.2690e-05_jprb,2.5759e-05_jprb/)
kao( :, 4, 6, 4) = (/&
&1.2668e-04_jprb,1.2066e-04_jprb,1.0839e-04_jprb,9.4280e-05_jprb,7.9174e-05_jprb,6.2217e-05_jprb,&
&2.9595e-05_jprb,4.6245e-05_jprb,3.9594e-05_jprb/)
kao( :, 5, 6, 4) = (/&
&1.3386e-04_jprb,1.2916e-04_jprb,1.1625e-04_jprb,1.0183e-04_jprb,8.5941e-05_jprb,6.8663e-05_jprb,&
&4.7108e-05_jprb,3.8925e-05_jprb,5.8371e-05_jprb/)
kao( :, 1, 7, 4) = (/&
&9.1290e-05_jprb,8.2455e-05_jprb,7.2640e-05_jprb,6.1602e-05_jprb,3.5951e-05_jprb,3.2065e-05_jprb,&
&6.9438e-05_jprb,5.4588e-05_jprb,8.8732e-06_jprb/)
kao( :, 2, 7, 4) = (/&
&9.8266e-05_jprb,8.9923e-05_jprb,7.9846e-05_jprb,6.8611e-05_jprb,5.4855e-05_jprb,2.5347e-05_jprb,&
&5.3484e-05_jprb,5.4646e-05_jprb,1.6319e-05_jprb/)
kao( :, 3, 7, 4) = (/&
&1.0452e-04_jprb,9.6912e-05_jprb,8.6790e-05_jprb,7.4880e-05_jprb,6.1588e-05_jprb,3.4215e-05_jprb,&
&3.8465e-05_jprb,5.3097e-05_jprb,2.7544e-05_jprb/)
kao( :, 4, 7, 4) = (/&
&1.1064e-04_jprb,1.0436e-04_jprb,9.3727e-05_jprb,8.1191e-05_jprb,6.7704e-05_jprb,5.1369e-05_jprb,&
&2.6755e-05_jprb,5.1792e-05_jprb,4.3707e-05_jprb/)
kao( :, 5, 7, 4) = (/&
&1.1674e-04_jprb,1.1189e-04_jprb,1.0064e-04_jprb,8.7738e-05_jprb,7.3682e-05_jprb,5.8032e-05_jprb,&
&2.8026e-05_jprb,4.3741e-05_jprb,6.6125e-05_jprb/)
kao( :, 1, 8, 4) = (/&
&7.8671e-05_jprb,7.0723e-05_jprb,6.1903e-05_jprb,5.0899e-05_jprb,2.5388e-05_jprb,4.7045e-05_jprb,&
&8.3139e-05_jprb,5.2475e-05_jprb,1.0506e-05_jprb/)
kao( :, 2, 8, 4) = (/&
&8.5114e-05_jprb,7.7503e-05_jprb,6.8369e-05_jprb,5.8071e-05_jprb,3.2941e-05_jprb,3.1252e-05_jprb,&
&6.5972e-05_jprb,5.4053e-05_jprb,1.9913e-05_jprb/)
kao( :, 3, 8, 4) = (/&
&9.0774e-05_jprb,8.3700e-05_jprb,7.4489e-05_jprb,6.3931e-05_jprb,5.1217e-05_jprb,2.3975e-05_jprb,&
&4.9768e-05_jprb,5.3114e-05_jprb,3.5011e-05_jprb/)
kao( :, 4, 8, 4) = (/&
&9.6188e-05_jprb,9.0023e-05_jprb,8.0588e-05_jprb,6.9637e-05_jprb,5.7276e-05_jprb,3.0654e-05_jprb,&
&3.6814e-05_jprb,5.0886e-05_jprb,5.7647e-05_jprb/)
kao( :, 5, 8, 4) = (/&
&1.0147e-04_jprb,9.6459e-05_jprb,8.6744e-05_jprb,7.5335e-05_jprb,6.2848e-05_jprb,4.7544e-05_jprb,&
&2.4830e-05_jprb,4.9742e-05_jprb,8.9972e-05_jprb/)
kao( :, 1, 9, 4) = (/&
&6.7736e-05_jprb,6.0618e-05_jprb,5.2744e-05_jprb,3.0920e-05_jprb,2.9239e-05_jprb,6.2840e-05_jprb,&
&9.2889e-05_jprb,5.0470e-05_jprb,2.2355e-05_jprb/)
kao( :, 2, 9, 4) = (/&
&7.3171e-05_jprb,6.6259e-05_jprb,5.8117e-05_jprb,4.7578e-05_jprb,2.3188e-05_jprb,4.4116e-05_jprb,&
&7.7151e-05_jprb,5.4835e-05_jprb,4.4341e-05_jprb/)
kao( :, 3, 9, 4) = (/&
&7.8488e-05_jprb,7.2012e-05_jprb,6.3679e-05_jprb,5.4052e-05_jprb,2.9892e-05_jprb,3.0664e-05_jprb,&
&6.0561e-05_jprb,5.3817e-05_jprb,8.1564e-05_jprb/)
kao( :, 4, 9, 4) = (/&
&8.3263e-05_jprb,7.7446e-05_jprb,6.8972e-05_jprb,5.9229e-05_jprb,4.7000e-05_jprb,2.3105e-05_jprb,&
&4.7608e-05_jprb,5.0373e-05_jprb,1.4008e-04_jprb/)
kao( :, 5, 9, 4) = (/&
&8.7956e-05_jprb,8.2925e-05_jprb,7.4329e-05_jprb,6.4343e-05_jprb,5.3101e-05_jprb,2.7223e-05_jprb,&
&3.3997e-05_jprb,5.1225e-05_jprb,2.2664e-04_jprb/)
kao( :, 1,10, 4) = (/&
&5.8447e-05_jprb,5.2123e-05_jprb,4.4386e-05_jprb,2.1253e-05_jprb,4.1633e-05_jprb,7.5363e-05_jprb,&
&9.7685e-05_jprb,4.9222e-05_jprb,5.9155e-05_jprb/)
kao( :, 2,10, 4) = (/&
&6.2971e-05_jprb,5.6773e-05_jprb,4.9349e-05_jprb,2.7108e-05_jprb,2.8492e-05_jprb,5.8974e-05_jprb,&
&8.8305e-05_jprb,5.1607e-05_jprb,1.2250e-04_jprb/)
kao( :, 3,10, 4) = (/&
&6.7713e-05_jprb,6.1803e-05_jprb,5.4313e-05_jprb,4.4294e-05_jprb,2.2166e-05_jprb,4.3639e-05_jprb,&
&7.2310e-05_jprb,5.3792e-05_jprb,2.3595e-04_jprb/)
kao( :, 4,10, 4) = (/&
&7.2017e-05_jprb,6.6651e-05_jprb,5.9032e-05_jprb,5.0145e-05_jprb,2.5984e-05_jprb,3.1163e-05_jprb,&
&5.5814e-05_jprb,5.4096e-05_jprb,4.2155e-04_jprb/)
kao( :, 5,10, 4) = (/&
&7.6122e-05_jprb,7.1340e-05_jprb,6.3672e-05_jprb,5.4807e-05_jprb,4.2703e-05_jprb,2.2571e-05_jprb,&
&4.5447e-05_jprb,5.0941e-05_jprb,7.0536e-04_jprb/)
kao( :, 1,11, 4) = (/&
&5.1997e-05_jprb,4.6399e-05_jprb,3.7006e-05_jprb,2.2118e-05_jprb,4.9070e-05_jprb,8.0297e-05_jprb,&
&9.7665e-05_jprb,4.9036e-05_jprb,8.3819e-05_jprb/)
kao( :, 2,11, 4) = (/&
&5.5995e-05_jprb,5.0499e-05_jprb,4.3536e-05_jprb,1.8160e-05_jprb,3.3942e-05_jprb,6.1798e-05_jprb,&
&8.7929e-05_jprb,5.1899e-05_jprb,1.7378e-04_jprb/)
kao( :, 3,11, 4) = (/&
&6.0050e-05_jprb,5.4855e-05_jprb,4.8042e-05_jprb,3.2999e-05_jprb,2.4599e-05_jprb,4.8087e-05_jprb,&
&7.2580e-05_jprb,5.4376e-05_jprb,3.3527e-04_jprb/)
kao( :, 4,11, 4) = (/&
&6.3834e-05_jprb,5.9102e-05_jprb,5.2252e-05_jprb,4.3696e-05_jprb,1.9003e-05_jprb,3.4301e-05_jprb,&
&5.7788e-05_jprb,5.3890e-05_jprb,5.9988e-04_jprb/)
kao( :, 5,11, 4) = (/&
&6.7488e-05_jprb,6.3205e-05_jprb,5.6377e-05_jprb,4.8245e-05_jprb,3.1229e-05_jprb,2.6140e-05_jprb,&
&4.5484e-05_jprb,5.1296e-05_jprb,1.0059e-03_jprb/)
kao( :, 1,12, 4) = (/&
&4.6056e-05_jprb,4.1083e-05_jprb,2.9802e-05_jprb,2.2251e-05_jprb,4.6624e-05_jprb,7.2962e-05_jprb,&
&9.3907e-05_jprb,4.7563e-05_jprb,8.9454e-05_jprb/)
kao( :, 2,12, 4) = (/&
&4.9615e-05_jprb,4.4762e-05_jprb,3.8254e-05_jprb,1.6590e-05_jprb,3.3432e-05_jprb,5.6542e-05_jprb,&
&8.1508e-05_jprb,5.1901e-05_jprb,1.8559e-04_jprb/)
kao( :, 3,12, 4) = (/&
&5.3180e-05_jprb,4.8610e-05_jprb,4.2465e-05_jprb,2.5666e-05_jprb,2.4567e-05_jprb,4.4887e-05_jprb,&
&6.5994e-05_jprb,5.4335e-05_jprb,3.5825e-04_jprb/)
kao( :, 4,12, 4) = (/&
&5.6562e-05_jprb,5.2350e-05_jprb,4.6232e-05_jprb,3.8181e-05_jprb,1.8227e-05_jprb,3.2932e-05_jprb,&
&5.2904e-05_jprb,5.3475e-05_jprb,6.4181e-04_jprb/)
kao( :, 5,12, 4) = (/&
&5.9903e-05_jprb,5.6017e-05_jprb,4.9962e-05_jprb,4.2621e-05_jprb,2.4691e-05_jprb,2.4714e-05_jprb,&
&4.1916e-05_jprb,5.0025e-05_jprb,1.0767e-03_jprb/)
kao( :, 1,13, 4) = (/&
&4.0560e-05_jprb,3.6160e-05_jprb,2.3255e-05_jprb,2.2093e-05_jprb,4.4020e-05_jprb,6.7810e-05_jprb,&
&8.9069e-05_jprb,4.8857e-05_jprb,7.6979e-05_jprb/)
kao( :, 2,13, 4) = (/&
&4.3721e-05_jprb,3.9447e-05_jprb,3.3315e-05_jprb,1.5735e-05_jprb,3.2401e-05_jprb,5.2990e-05_jprb,&
&7.4939e-05_jprb,5.2762e-05_jprb,1.5983e-04_jprb/)
kao( :, 3,13, 4) = (/&
&4.6874e-05_jprb,4.2856e-05_jprb,3.7307e-05_jprb,1.9448e-05_jprb,2.3246e-05_jprb,4.1872e-05_jprb,&
&6.0127e-05_jprb,5.4225e-05_jprb,3.0871e-04_jprb/)
kao( :, 4,13, 4) = (/&
&4.9922e-05_jprb,4.6146e-05_jprb,4.0717e-05_jprb,3.2736e-05_jprb,1.7797e-05_jprb,3.1779e-05_jprb,&
&4.8971e-05_jprb,5.3750e-05_jprb,5.5309e-04_jprb/)
kao( :, 5,13, 4) = (/&
&5.3030e-05_jprb,4.9529e-05_jprb,4.4121e-05_jprb,3.7423e-05_jprb,1.9634e-05_jprb,2.2842e-05_jprb,&
&3.9348e-05_jprb,4.8274e-05_jprb,9.2736e-04_jprb/)
kao( :, 1, 1, 5) = (/&
&2.7778e-04_jprb,2.5521e-04_jprb,2.2685e-04_jprb,1.9591e-04_jprb,1.6332e-04_jprb,1.2879e-04_jprb,&
&9.0596e-05_jprb,4.4043e-05_jprb,3.2346e-05_jprb/)
kao( :, 2, 1, 5) = (/&
&2.9066e-04_jprb,2.6987e-04_jprb,2.4077e-04_jprb,2.0932e-04_jprb,1.7577e-04_jprb,1.4048e-04_jprb,&
&1.0294e-04_jprb,3.8809e-05_jprb,2.9426e-05_jprb/)
kao( :, 3, 1, 5) = (/&
&3.0544e-04_jprb,2.8616e-04_jprb,2.5754e-04_jprb,2.2525e-04_jprb,1.9101e-04_jprb,1.5455e-04_jprb,&
&1.1678e-04_jprb,5.7173e-05_jprb,3.3954e-05_jprb/)
kao( :, 4, 1, 5) = (/&
&3.2184e-04_jprb,3.0525e-04_jprb,2.7707e-04_jprb,2.4441e-04_jprb,2.0932e-04_jprb,1.7239e-04_jprb,&
&1.3430e-04_jprb,8.9432e-05_jprb,5.9307e-05_jprb/)
kao( :, 5, 1, 5) = (/&
&3.3997e-04_jprb,3.2768e-04_jprb,2.9971e-04_jprb,2.6685e-04_jprb,2.3158e-04_jprb,1.9537e-04_jprb,&
&1.5650e-04_jprb,1.1300e-04_jprb,9.1458e-05_jprb/)
kao( :, 1, 2, 5) = (/&
&2.6036e-04_jprb,2.3849e-04_jprb,2.1215e-04_jprb,1.8325e-04_jprb,1.5238e-04_jprb,1.1978e-04_jprb,&
&8.1666e-05_jprb,4.4295e-05_jprb,2.4496e-05_jprb/)
kao( :, 2, 2, 5) = (/&
&2.7147e-04_jprb,2.5141e-04_jprb,2.2439e-04_jprb,1.9462e-04_jprb,1.6271e-04_jprb,1.2925e-04_jprb,&
&9.2973e-05_jprb,3.2500e-05_jprb,1.9528e-05_jprb/)
kao( :, 3, 2, 5) = (/&
&2.8407e-04_jprb,2.6548e-04_jprb,2.3846e-04_jprb,2.0759e-04_jprb,1.7524e-04_jprb,1.4054e-04_jprb,&
&1.0396e-04_jprb,4.5395e-05_jprb,3.3431e-05_jprb/)
kao( :, 4, 2, 5) = (/&
&2.9719e-04_jprb,2.8128e-04_jprb,2.5423e-04_jprb,2.2320e-04_jprb,1.8996e-04_jprb,1.5400e-04_jprb,&
&1.1668e-04_jprb,6.9584e-05_jprb,5.7490e-05_jprb/)
kao( :, 5, 2, 5) = (/&
&3.1122e-04_jprb,2.9870e-04_jprb,2.7220e-04_jprb,2.4100e-04_jprb,2.0649e-04_jprb,1.7035e-04_jprb,&
&1.3266e-04_jprb,9.1999e-05_jprb,8.3000e-05_jprb/)
kao( :, 1, 3, 5) = (/&
&2.4050e-04_jprb,2.1900e-04_jprb,1.9501e-04_jprb,1.6859e-04_jprb,1.4005e-04_jprb,1.0947e-04_jprb,&
&5.4416e-05_jprb,3.5695e-05_jprb,1.3250e-05_jprb/)
kao( :, 2, 3, 5) = (/&
&2.4980e-04_jprb,2.3024e-04_jprb,2.0600e-04_jprb,1.7839e-04_jprb,1.4857e-04_jprb,1.1723e-04_jprb,&
&8.2222e-05_jprb,4.3756e-05_jprb,1.9778e-05_jprb/)
kao( :, 3, 3, 5) = (/&
&2.5986e-04_jprb,2.4240e-04_jprb,2.1776e-04_jprb,1.8907e-04_jprb,1.5831e-04_jprb,1.2594e-04_jprb,&
&9.1156e-05_jprb,3.2284e-05_jprb,3.8343e-05_jprb/)
kao( :, 4, 3, 5) = (/&
&2.7050e-04_jprb,2.5528e-04_jprb,2.3027e-04_jprb,2.0105e-04_jprb,1.6973e-04_jprb,1.3628e-04_jprb,&
&1.0110e-04_jprb,4.6885e-05_jprb,5.9630e-05_jprb/)
kao( :, 5, 3, 5) = (/&
&2.8151e-04_jprb,2.6949e-04_jprb,2.4440e-04_jprb,2.1478e-04_jprb,1.8246e-04_jprb,1.4822e-04_jprb,&
&1.1296e-04_jprb,7.0463e-05_jprb,8.2542e-05_jprb/)
kao( :, 1, 4, 5) = (/&
&2.2167e-04_jprb,2.0054e-04_jprb,1.7755e-04_jprb,1.5346e-04_jprb,1.2760e-04_jprb,9.8873e-05_jprb,&
&4.0720e-05_jprb,3.6076e-05_jprb,1.0820e-05_jprb/)
kao( :, 2, 4, 5) = (/&
&2.2949e-04_jprb,2.0991e-04_jprb,1.8792e-04_jprb,1.6318e-04_jprb,1.3546e-04_jprb,1.0612e-04_jprb,&
&6.1178e-05_jprb,4.0667e-05_jprb,2.5683e-05_jprb/)
kao( :, 3, 4, 5) = (/&
&2.3807e-04_jprb,2.2061e-04_jprb,1.9870e-04_jprb,1.7224e-04_jprb,1.4361e-04_jprb,1.1345e-04_jprb,&
&8.0170e-05_jprb,3.9940e-05_jprb,4.2610e-05_jprb/)
kao( :, 4, 4, 5) = (/&
&2.4662e-04_jprb,2.3181e-04_jprb,2.0905e-04_jprb,1.8202e-04_jprb,1.5268e-04_jprb,1.2186e-04_jprb,&
&8.8749e-05_jprb,3.2893e-05_jprb,6.1830e-05_jprb/)
kao( :, 5, 4, 5) = (/&
&2.5546e-04_jprb,2.4342e-04_jprb,2.2022e-04_jprb,1.9281e-04_jprb,1.6313e-04_jprb,1.3125e-04_jprb,&
&9.8124e-05_jprb,4.6973e-05_jprb,8.6084e-05_jprb/)
kao( :, 1, 5, 5) = (/&
&2.0312e-04_jprb,1.8300e-04_jprb,1.6095e-04_jprb,1.3872e-04_jprb,1.1510e-04_jprb,8.6738e-05_jprb,&
&4.3892e-05_jprb,4.1155e-05_jprb,1.4610e-05_jprb/)
kao( :, 2, 5, 5) = (/&
&2.1032e-04_jprb,1.9153e-04_jprb,1.7045e-04_jprb,1.4818e-04_jprb,1.2310e-04_jprb,9.5120e-05_jprb,&
&3.7530e-05_jprb,4.0109e-05_jprb,2.7956e-05_jprb/)
kao( :, 3, 5, 5) = (/&
&2.1754e-04_jprb,2.0013e-04_jprb,1.8048e-04_jprb,1.5683e-04_jprb,1.3036e-04_jprb,1.0212e-04_jprb,&
&6.5559e-05_jprb,4.4646e-05_jprb,4.3990e-05_jprb/)
kao( :, 4, 5, 5) = (/&
&2.2506e-04_jprb,2.1008e-04_jprb,1.8992e-04_jprb,1.6512e-04_jprb,1.3787e-04_jprb,1.0933e-04_jprb,&
&7.7878e-05_jprb,3.3941e-05_jprb,6.4638e-05_jprb/)
kao( :, 5, 5, 5) = (/&
&2.3238e-04_jprb,2.2040e-04_jprb,1.9936e-04_jprb,1.7403e-04_jprb,1.4649e-04_jprb,1.1721e-04_jprb,&
&8.5745e-05_jprb,3.1943e-05_jprb,9.1486e-05_jprb/)
kao( :, 1, 6, 5) = (/&
&1.8420e-04_jprb,1.6521e-04_jprb,1.4487e-04_jprb,1.2401e-04_jprb,1.0200e-04_jprb,5.1119e-05_jprb,&
&5.2764e-05_jprb,4.0912e-05_jprb,1.5202e-05_jprb/)
kao( :, 2, 6, 5) = (/&
&1.9125e-04_jprb,1.7344e-04_jprb,1.5331e-04_jprb,1.3274e-04_jprb,1.1039e-04_jprb,8.3040e-05_jprb,&
&4.0684e-05_jprb,4.1198e-05_jprb,2.7867e-05_jprb/)
kao( :, 3, 6, 5) = (/&
&1.9735e-04_jprb,1.8080e-04_jprb,1.6199e-04_jprb,1.4097e-04_jprb,1.1727e-04_jprb,9.0932e-05_jprb,&
&3.7180e-05_jprb,4.3495e-05_jprb,4.4553e-05_jprb/)
kao( :, 4, 6, 5) = (/&
&2.0383e-04_jprb,1.8894e-04_jprb,1.7073e-04_jprb,1.4876e-04_jprb,1.2398e-04_jprb,9.7753e-05_jprb,&
&6.3121e-05_jprb,4.1277e-05_jprb,6.7315e-05_jprb/)
kao( :, 5, 6, 5) = (/&
&2.1033e-04_jprb,1.9804e-04_jprb,1.7951e-04_jprb,1.5655e-04_jprb,1.3146e-04_jprb,1.0454e-04_jprb,&
&7.4462e-05_jprb,2.9067e-05_jprb,9.7382e-05_jprb/)
kao( :, 1, 7, 5) = (/&
&1.6701e-04_jprb,1.4912e-04_jprb,1.3042e-04_jprb,1.1101e-04_jprb,8.9476e-05_jprb,4.0710e-05_jprb,&
&6.0855e-05_jprb,4.0116e-05_jprb,1.6644e-05_jprb/)
kao( :, 2, 7, 5) = (/&
&1.7267e-04_jprb,1.5557e-04_jprb,1.3718e-04_jprb,1.1786e-04_jprb,9.7049e-05_jprb,4.9928e-05_jprb,&
&4.8787e-05_jprb,4.5062e-05_jprb,2.9556e-05_jprb/)
kao( :, 3, 7, 5) = (/&
&1.7837e-04_jprb,1.6263e-04_jprb,1.4469e-04_jprb,1.2545e-04_jprb,1.0416e-04_jprb,7.8620e-05_jprb,&
&3.6425e-05_jprb,4.0796e-05_jprb,4.8760e-05_jprb/)
kao( :, 4, 7, 5) = (/&
&1.8378e-04_jprb,1.6956e-04_jprb,1.5235e-04_jprb,1.3267e-04_jprb,1.1063e-04_jprb,8.6254e-05_jprb,&
&3.2851e-05_jprb,4.0620e-05_jprb,7.6055e-05_jprb/)
kao( :, 5, 7, 5) = (/&
&1.8944e-04_jprb,1.7724e-04_jprb,1.6021e-04_jprb,1.4001e-04_jprb,1.1733e-04_jprb,9.2830e-05_jprb,&
&6.1065e-05_jprb,3.8081e-05_jprb,1.1312e-04_jprb/)
kao( :, 1, 8, 5) = (/&
&1.5130e-04_jprb,1.3448e-04_jprb,1.1721e-04_jprb,9.9034e-05_jprb,5.7155e-05_jprb,4.5775e-05_jprb,&
&6.5418e-05_jprb,3.6348e-05_jprb,2.0483e-05_jprb/)
kao( :, 2, 8, 5) = (/&
&1.5492e-04_jprb,1.3874e-04_jprb,1.2199e-04_jprb,1.0406e-04_jprb,8.3301e-05_jprb,3.7776e-05_jprb,&
&5.8525e-05_jprb,4.3657e-05_jprb,3.7683e-05_jprb/)
kao( :, 3, 8, 5) = (/&
&1.6015e-04_jprb,1.4504e-04_jprb,1.2855e-04_jprb,1.1077e-04_jprb,9.0857e-05_jprb,4.6752e-05_jprb,&
&4.3822e-05_jprb,4.5900e-05_jprb,6.4480e-05_jprb/)
kao( :, 4, 8, 5) = (/&
&1.6485e-04_jprb,1.5131e-04_jprb,1.3522e-04_jprb,1.1731e-04_jprb,9.7584e-05_jprb,7.3940e-05_jprb,&
&3.2766e-05_jprb,4.4537e-05_jprb,1.0397e-04_jprb/)
kao( :, 5, 8, 5) = (/&
&1.6974e-04_jprb,1.5791e-04_jprb,1.4195e-04_jprb,1.2381e-04_jprb,1.0390e-04_jprb,8.1150e-05_jprb,&
&3.2012e-05_jprb,4.1555e-05_jprb,1.5936e-04_jprb/)
kao( :, 1, 9, 5) = (/&
&1.3564e-04_jprb,1.2012e-04_jprb,1.0422e-04_jprb,8.6571e-05_jprb,3.4561e-05_jprb,5.5358e-05_jprb,&
&6.8138e-05_jprb,3.3996e-05_jprb,4.5162e-05_jprb/)
kao( :, 2, 9, 5) = (/&
&1.3891e-04_jprb,1.2385e-04_jprb,1.0843e-04_jprb,9.1664e-05_jprb,5.0992e-05_jprb,4.2386e-05_jprb,&
&6.5806e-05_jprb,4.0485e-05_jprb,8.7517e-05_jprb/)
kao( :, 3, 9, 5) = (/&
&1.4289e-04_jprb,1.2859e-04_jprb,1.1355e-04_jprb,9.7157e-05_jprb,7.7469e-05_jprb,3.4604e-05_jprb,&
&5.5697e-05_jprb,4.6781e-05_jprb,1.5660e-04_jprb/)
kao( :, 4, 9, 5) = (/&
&1.4749e-04_jprb,1.3449e-04_jprb,1.1965e-04_jprb,1.0332e-04_jprb,8.5038e-05_jprb,4.3487e-05_jprb,&
&3.9087e-05_jprb,4.7631e-05_jprb,2.6232e-04_jprb/)
kao( :, 5, 9, 5) = (/&
&1.5175e-04_jprb,1.4048e-04_jprb,1.2566e-04_jprb,1.0925e-04_jprb,9.1216e-05_jprb,6.9027e-05_jprb,&
&3.0570e-05_jprb,4.2818e-05_jprb,4.1578e-04_jprb/)
kao( :, 1,10, 5) = (/&
&1.2050e-04_jprb,1.0644e-04_jprb,9.1895e-05_jprb,5.4223e-05_jprb,4.2282e-05_jprb,7.1662e-05_jprb,&
&7.3849e-05_jprb,3.1216e-05_jprb,1.2336e-04_jprb/)
kao( :, 2,10, 5) = (/&
&1.2385e-04_jprb,1.1007e-04_jprb,9.5885e-05_jprb,7.9074e-05_jprb,3.2785e-05_jprb,5.1790e-05_jprb,&
&7.0330e-05_jprb,3.8106e-05_jprb,2.4914e-04_jprb/)
kao( :, 3,10, 5) = (/&
&1.2701e-04_jprb,1.1389e-04_jprb,1.0009e-04_jprb,8.4859e-05_jprb,4.3697e-05_jprb,3.8515e-05_jprb,&
&6.4563e-05_jprb,4.6857e-05_jprb,4.6353e-04_jprb/)
kao( :, 4,10, 5) = (/&
&1.3108e-04_jprb,1.1889e-04_jprb,1.0547e-04_jprb,9.0382e-05_jprb,7.1811e-05_jprb,3.1846e-05_jprb,&
&5.3076e-05_jprb,4.9334e-05_jprb,8.0273e-04_jprb/)
kao( :, 5,10, 5) = (/&
&1.3517e-04_jprb,1.2455e-04_jprb,1.1096e-04_jprb,9.6119e-05_jprb,7.9300e-05_jprb,3.9467e-05_jprb,&
&3.6989e-05_jprb,4.6816e-05_jprb,1.3114e-03_jprb/)
kao( :, 1,11, 5) = (/&
&1.0765e-04_jprb,9.5133e-05_jprb,8.1740e-05_jprb,2.9684e-05_jprb,4.4771e-05_jprb,7.3844e-05_jprb,&
&7.4458e-05_jprb,3.2353e-05_jprb,1.7556e-04_jprb/)
kao( :, 2,11, 5) = (/&
&1.1086e-04_jprb,9.8643e-05_jprb,8.5755e-05_jprb,6.3950e-05_jprb,3.5072e-05_jprb,5.6362e-05_jprb,&
&7.3811e-05_jprb,3.7974e-05_jprb,3.5513e-04_jprb/)
kao( :, 3,11, 5) = (/&
&1.1390e-04_jprb,1.0226e-04_jprb,8.9873e-05_jprb,7.5337e-05_jprb,2.7488e-05_jprb,4.0668e-05_jprb,&
&6.6695e-05_jprb,4.8469e-05_jprb,6.6195e-04_jprb/)
kao( :, 4,11, 5) = (/&
&1.1768e-04_jprb,1.0695e-04_jprb,9.4758e-05_jprb,8.0812e-05_jprb,5.6203e-05_jprb,3.0959e-05_jprb,&
&5.4960e-05_jprb,5.2325e-05_jprb,1.1500e-03_jprb/)
kao( :, 5,11, 5) = (/&
&1.2143e-04_jprb,1.1200e-04_jprb,9.9665e-05_jprb,8.6317e-05_jprb,7.0507e-05_jprb,2.8241e-05_jprb,&
&4.0108e-05_jprb,4.7823e-05_jprb,1.8824e-03_jprb/)
kao( :, 1,12, 5) = (/&
&9.5550e-05_jprb,8.4510e-05_jprb,7.2433e-05_jprb,2.4695e-05_jprb,4.1319e-05_jprb,6.8965e-05_jprb,&
&7.5836e-05_jprb,3.3972e-05_jprb,1.8803e-04_jprb/)
kao( :, 2,12, 5) = (/&
&9.8585e-05_jprb,8.7816e-05_jprb,7.6262e-05_jprb,5.0625e-05_jprb,3.2099e-05_jprb,5.2909e-05_jprb,&
&7.1285e-05_jprb,4.2092e-05_jprb,3.8071e-04_jprb/)
kao( :, 3,12, 5) = (/&
&1.0170e-04_jprb,9.1397e-05_jprb,8.0291e-05_jprb,6.6609e-05_jprb,2.6053e-05_jprb,3.8656e-05_jprb,&
&6.2061e-05_jprb,5.0288e-05_jprb,7.1091e-04_jprb/)
kao( :, 4,12, 5) = (/&
&1.0532e-04_jprb,9.5859e-05_jprb,8.4741e-05_jprb,7.2190e-05_jprb,4.4571e-05_jprb,2.9606e-05_jprb,&
&5.1144e-05_jprb,5.0950e-05_jprb,1.2367e-03_jprb/)
kao( :, 5,12, 5) = (/&
&1.0873e-04_jprb,1.0026e-04_jprb,8.9123e-05_jprb,7.7100e-05_jprb,6.2475e-05_jprb,2.4044e-05_jprb,&
&3.7811e-05_jprb,4.5929e-05_jprb,2.0278e-03_jprb/)
kao( :, 1,13, 5) = (/&
&8.4205e-05_jprb,7.4539e-05_jprb,6.3467e-05_jprb,2.3538e-05_jprb,3.8325e-05_jprb,6.4275e-05_jprb,&
&7.5533e-05_jprb,3.5671e-05_jprb,1.6223e-04_jprb/)
kao( :, 2,13, 5) = (/&
&8.7134e-05_jprb,7.7658e-05_jprb,6.7263e-05_jprb,3.8163e-05_jprb,2.9276e-05_jprb,4.8144e-05_jprb,&
&6.6883e-05_jprb,4.5962e-05_jprb,3.2881e-04_jprb/)
kao( :, 3,13, 5) = (/&
&9.0177e-05_jprb,8.1122e-05_jprb,7.1136e-05_jprb,5.8053e-05_jprb,2.4699e-05_jprb,3.6684e-05_jprb,&
&5.7406e-05_jprb,5.0678e-05_jprb,6.1498e-04_jprb/)
kao( :, 4,13, 5) = (/&
&9.3566e-05_jprb,8.5217e-05_jprb,7.5208e-05_jprb,6.3816e-05_jprb,3.3862e-05_jprb,2.8346e-05_jprb,&
&4.7321e-05_jprb,4.6618e-05_jprb,1.0717e-03_jprb/)
kao( :, 5,13, 5) = (/&
&9.6738e-05_jprb,8.9098e-05_jprb,7.9178e-05_jprb,6.8356e-05_jprb,5.4471e-05_jprb,2.2350e-05_jprb,&
&3.5198e-05_jprb,4.4559e-05_jprb,1.7596e-03_jprb/)
kao( :, 1, 1, 6) = (/&
&3.5218e-04_jprb,3.2067e-04_jprb,2.8542e-04_jprb,2.4691e-04_jprb,2.0715e-04_jprb,1.6430e-04_jprb,&
&1.1630e-04_jprb,3.0602e-05_jprb,2.2334e-05_jprb/)
kao( :, 2, 1, 6) = (/&
&3.6703e-04_jprb,3.3779e-04_jprb,3.0330e-04_jprb,2.6523e-04_jprb,2.2344e-04_jprb,1.7999e-04_jprb,&
&1.3446e-04_jprb,5.1639e-05_jprb,3.3226e-05_jprb/)
kao( :, 3, 1, 6) = (/&
&3.8585e-04_jprb,3.5978e-04_jprb,3.2593e-04_jprb,2.8711e-04_jprb,2.4473e-04_jprb,2.0196e-04_jprb,&
&1.5783e-04_jprb,1.0327e-04_jprb,6.5420e-05_jprb/)
kao( :, 4, 1, 6) = (/&
&4.0907e-04_jprb,3.8577e-04_jprb,3.5450e-04_jprb,3.1632e-04_jprb,2.7470e-04_jprb,2.3182e-04_jprb,&
&1.8685e-04_jprb,1.3638e-04_jprb,1.1847e-04_jprb/)
kao( :, 5, 1, 6) = (/&
&4.3737e-04_jprb,4.1878e-04_jprb,3.9158e-04_jprb,3.5534e-04_jprb,3.1369e-04_jprb,2.6894e-04_jprb,&
&2.2111e-04_jprb,1.7023e-04_jprb,1.6126e-04_jprb/)
kao( :, 1, 2, 6) = (/&
&3.3988e-04_jprb,3.0828e-04_jprb,2.7319e-04_jprb,2.3566e-04_jprb,1.9671e-04_jprb,1.5488e-04_jprb,&
&1.0656e-04_jprb,2.4639e-05_jprb,2.0135e-05_jprb/)
kao( :, 2, 2, 6) = (/&
&3.5074e-04_jprb,3.2145e-04_jprb,2.8720e-04_jprb,2.5072e-04_jprb,2.1014e-04_jprb,1.6733e-04_jprb,&
&1.2121e-04_jprb,3.9180e-05_jprb,2.9901e-05_jprb/)
kao( :, 3, 2, 6) = (/&
&3.6475e-04_jprb,3.3829e-04_jprb,3.0546e-04_jprb,2.6776e-04_jprb,2.2592e-04_jprb,1.8277e-04_jprb,&
&1.3792e-04_jprb,7.3527e-05_jprb,6.9892e-05_jprb/)
kao( :, 4, 2, 6) = (/&
&3.8225e-04_jprb,3.5820e-04_jprb,3.2688e-04_jprb,2.8858e-04_jprb,2.4665e-04_jprb,2.0403e-04_jprb,&
&1.5963e-04_jprb,1.1035e-04_jprb,1.0774e-04_jprb/)
kao( :, 5, 2, 6) = (/&
&4.0273e-04_jprb,3.8268e-04_jprb,3.5304e-04_jprb,3.1570e-04_jprb,2.7513e-04_jprb,2.3154e-04_jprb,&
&1.8624e-04_jprb,1.3783e-04_jprb,1.4438e-04_jprb/)
kao( :, 1, 3, 6) = (/&
&3.2586e-04_jprb,2.9354e-04_jprb,2.5840e-04_jprb,2.2211e-04_jprb,1.8493e-04_jprb,1.4459e-04_jprb,&
&9.3968e-05_jprb,2.6836e-05_jprb,1.7667e-05_jprb/)
kao( :, 2, 3, 6) = (/&
&3.3335e-04_jprb,3.0322e-04_jprb,2.6938e-04_jprb,2.3450e-04_jprb,1.9584e-04_jprb,1.5458e-04_jprb,&
&1.0872e-04_jprb,2.7860e-05_jprb,4.2305e-05_jprb/)
kao( :, 3, 3, 6) = (/&
&3.4307e-04_jprb,3.1560e-04_jprb,2.8356e-04_jprb,2.4811e-04_jprb,2.0859e-04_jprb,1.6657e-04_jprb,&
&1.2164e-04_jprb,4.3049e-05_jprb,7.4173e-05_jprb/)
kao( :, 4, 3, 6) = (/&
&3.5510e-04_jprb,3.3067e-04_jprb,3.0030e-04_jprb,2.6396e-04_jprb,2.2347e-04_jprb,1.8094e-04_jprb,&
&1.3617e-04_jprb,8.0549e-05_jprb,1.0462e-04_jprb/)
kao( :, 5, 3, 6) = (/&
&3.6934e-04_jprb,3.4886e-04_jprb,3.1925e-04_jprb,2.8285e-04_jprb,2.4246e-04_jprb,1.9904e-04_jprb,&
&1.5402e-04_jprb,1.0740e-04_jprb,1.4134e-04_jprb/)
kao( :, 1, 4, 6) = (/&
&3.1202e-04_jprb,2.8003e-04_jprb,2.4507e-04_jprb,2.0972e-04_jprb,1.7365e-04_jprb,1.3503e-04_jprb,&
&5.8768e-05_jprb,2.9314e-05_jprb,2.4023e-05_jprb/)
kao( :, 2, 4, 6) = (/&
&3.1813e-04_jprb,2.8791e-04_jprb,2.5394e-04_jprb,2.1965e-04_jprb,1.8377e-04_jprb,1.4389e-04_jprb,&
&9.7093e-05_jprb,2.3337e-05_jprb,5.0021e-05_jprb/)
kao( :, 3, 4, 6) = (/&
&3.2483e-04_jprb,2.9675e-04_jprb,2.6510e-04_jprb,2.3175e-04_jprb,1.9444e-04_jprb,1.5360e-04_jprb,&
&1.0928e-04_jprb,3.0718e-05_jprb,7.6252e-05_jprb/)
kao( :, 4, 4, 6) = (/&
&3.3350e-04_jprb,3.0829e-04_jprb,2.7872e-04_jprb,2.4437e-04_jprb,2.0593e-04_jprb,1.6469e-04_jprb,&
&1.2057e-04_jprb,4.4984e-05_jprb,1.0921e-04_jprb/)
kao( :, 5, 4, 6) = (/&
&3.4440e-04_jprb,3.2288e-04_jprb,2.9368e-04_jprb,2.5882e-04_jprb,2.1958e-04_jprb,1.7772e-04_jprb,&
&1.3279e-04_jprb,8.3344e-05_jprb,1.5068e-04_jprb/)
kao( :, 1, 5, 6) = (/&
&2.9770e-04_jprb,2.6568e-04_jprb,2.3231e-04_jprb,1.9760e-04_jprb,1.6264e-04_jprb,1.2501e-04_jprb,&
&5.2212e-05_jprb,2.7851e-05_jprb,2.9425e-05_jprb/)
kao( :, 2, 5, 6) = (/&
&3.0341e-04_jprb,2.7316e-04_jprb,2.3988e-04_jprb,2.0612e-04_jprb,1.7178e-04_jprb,1.3444e-04_jprb,&
&6.8808e-05_jprb,2.4233e-05_jprb,5.0902e-05_jprb/)
kao( :, 3, 5, 6) = (/&
&3.0855e-04_jprb,2.8044e-04_jprb,2.4851e-04_jprb,2.1615e-04_jprb,1.8164e-04_jprb,1.4300e-04_jprb,&
&9.8456e-05_jprb,2.2567e-05_jprb,7.8789e-05_jprb/)
kao( :, 4, 5, 6) = (/&
&3.1479e-04_jprb,2.8896e-04_jprb,2.6020e-04_jprb,2.2793e-04_jprb,1.9183e-04_jprb,1.5203e-04_jprb,&
&1.0899e-04_jprb,3.3886e-05_jprb,1.1586e-04_jprb/)
kao( :, 5, 5, 6) = (/&
&3.2275e-04_jprb,3.0062e-04_jprb,2.7287e-04_jprb,2.4005e-04_jprb,2.0243e-04_jprb,1.6230e-04_jprb,&
&1.1916e-04_jprb,4.8642e-05_jprb,1.6375e-04_jprb/)
kao( :, 1, 6, 6) = (/&
&2.8451e-04_jprb,2.5278e-04_jprb,2.2028e-04_jprb,1.8707e-04_jprb,1.5294e-04_jprb,1.1368e-04_jprb,&
&5.1499e-05_jprb,2.2491e-05_jprb,2.9300e-05_jprb/)
kao( :, 2, 6, 6) = (/&
&2.8818e-04_jprb,2.5756e-04_jprb,2.2592e-04_jprb,1.9305e-04_jprb,1.5960e-04_jprb,1.2358e-04_jprb,&
&4.9278e-05_jprb,2.8018e-05_jprb,5.0020e-05_jprb/)
kao( :, 3, 6, 6) = (/&
&2.9308e-04_jprb,2.6479e-04_jprb,2.3342e-04_jprb,2.0176e-04_jprb,1.6837e-04_jprb,1.3278e-04_jprb,&
&7.5022e-05_jprb,2.4679e-05_jprb,7.9554e-05_jprb/)
kao( :, 4, 6, 6) = (/&
&2.9797e-04_jprb,2.7171e-04_jprb,2.4252e-04_jprb,2.1130e-04_jprb,1.7798e-04_jprb,1.4080e-04_jprb,&
&9.8593e-05_jprb,2.6413e-05_jprb,1.2029e-04_jprb/)
kao( :, 5, 6, 6) = (/&
&3.0385e-04_jprb,2.8038e-04_jprb,2.5320e-04_jprb,2.2231e-04_jprb,1.8746e-04_jprb,1.4953e-04_jprb,&
&1.0805e-04_jprb,3.4957e-05_jprb,1.7428e-04_jprb/)
kao( :, 1, 7, 6) = (/&
&2.7154e-04_jprb,2.4047e-04_jprb,2.0869e-04_jprb,1.7653e-04_jprb,1.4316e-04_jprb,6.3076e-05_jprb,&
&5.3076e-05_jprb,1.8799e-05_jprb,2.9459e-05_jprb/)
kao( :, 2, 7, 6) = (/&
&2.7322e-04_jprb,2.4322e-04_jprb,2.1245e-04_jprb,1.8113e-04_jprb,1.4876e-04_jprb,1.1194e-04_jprb,&
&4.9416e-05_jprb,2.1766e-05_jprb,5.1977e-05_jprb/)
kao( :, 3, 7, 6) = (/&
&2.7795e-04_jprb,2.4940e-04_jprb,2.1931e-04_jprb,1.8853e-04_jprb,1.5632e-04_jprb,1.2173e-04_jprb,&
&4.3459e-05_jprb,2.7910e-05_jprb,8.5515e-05_jprb/)
kao( :, 4, 7, 6) = (/&
&2.8245e-04_jprb,2.5609e-04_jprb,2.2726e-04_jprb,1.9695e-04_jprb,1.6467e-04_jprb,1.3028e-04_jprb,&
&8.3030e-05_jprb,3.1238e-05_jprb,1.3325e-04_jprb/)
kao( :, 5, 7, 6) = (/&
&2.8703e-04_jprb,2.6318e-04_jprb,2.3595e-04_jprb,2.0579e-04_jprb,1.7351e-04_jprb,1.3813e-04_jprb,&
&9.7826e-05_jprb,2.9395e-05_jprb,1.9863e-04_jprb/)
kao( :, 1, 8, 6) = (/&
&2.5666e-04_jprb,2.2665e-04_jprb,1.9623e-04_jprb,1.6528e-04_jprb,1.3188e-04_jprb,5.2672e-05_jprb,&
&5.4590e-05_jprb,1.5212e-05_jprb,3.5336e-05_jprb/)
kao( :, 2, 8, 6) = (/&
&2.5871e-04_jprb,2.2976e-04_jprb,1.9987e-04_jprb,1.6976e-04_jprb,1.3838e-04_jprb,6.2293e-05_jprb,&
&5.1049e-05_jprb,2.0990e-05_jprb,6.5164e-05_jprb/)
kao( :, 3, 8, 6) = (/&
&2.6131e-04_jprb,2.3354e-04_jprb,2.0472e-04_jprb,1.7542e-04_jprb,1.4479e-04_jprb,1.0936e-04_jprb,&
&4.3593e-05_jprb,2.7838e-05_jprb,1.1164e-04_jprb/)
kao( :, 4, 8, 6) = (/&
&2.6597e-04_jprb,2.3972e-04_jprb,2.1214e-04_jprb,1.8293e-04_jprb,1.5207e-04_jprb,1.1872e-04_jprb,&
&4.2928e-05_jprb,2.9399e-05_jprb,1.8005e-04_jprb/)
kao( :, 5, 8, 6) = (/&
&2.6965e-04_jprb,2.4602e-04_jprb,2.1946e-04_jprb,1.9059e-04_jprb,1.5945e-04_jprb,1.2678e-04_jprb,&
&8.1506e-05_jprb,3.0396e-05_jprb,2.7574e-04_jprb/)
kao( :, 1, 9, 6) = (/&
&2.4051e-04_jprb,2.1191e-04_jprb,1.8318e-04_jprb,1.5348e-04_jprb,8.9740e-05_jprb,5.6443e-05_jprb,&
&5.8323e-05_jprb,1.3977e-05_jprb,7.8714e-05_jprb/)
kao( :, 2, 9, 6) = (/&
&2.4280e-04_jprb,2.1514e-04_jprb,1.8659e-04_jprb,1.5766e-04_jprb,1.2621e-04_jprb,4.8115e-05_jprb,&
&5.1962e-05_jprb,1.8297e-05_jprb,1.5286e-04_jprb/)
kao( :, 3, 9, 6) = (/&
&2.4480e-04_jprb,2.1809e-04_jprb,1.9044e-04_jprb,1.6238e-04_jprb,1.3286e-04_jprb,5.9719e-05_jprb,&
&4.7955e-05_jprb,2.2245e-05_jprb,2.7373e-04_jprb/)
kao( :, 4, 9, 6) = (/&
&2.4800e-04_jprb,2.2255e-04_jprb,1.9613e-04_jprb,1.6836e-04_jprb,1.3908e-04_jprb,1.0477e-04_jprb,&
&3.9262e-05_jprb,3.1477e-05_jprb,4.5768e-04_jprb/)
kao( :, 5, 9, 6) = (/&
&2.5161e-04_jprb,2.2818e-04_jprb,2.0281e-04_jprb,1.7515e-04_jprb,1.4598e-04_jprb,1.1469e-04_jprb,&
&3.6846e-05_jprb,3.4477e-05_jprb,7.2229e-04_jprb/)
kao( :, 1,10, 6) = (/&
&2.2330e-04_jprb,1.9647e-04_jprb,1.6947e-04_jprb,1.4070e-04_jprb,5.0397e-05_jprb,6.4372e-05_jprb,&
&5.4119e-05_jprb,1.3671e-05_jprb,2.1819e-04_jprb/)
kao( :, 2,10, 6) = (/&
&2.2579e-04_jprb,1.9970e-04_jprb,1.7289e-04_jprb,1.4528e-04_jprb,8.0532e-05_jprb,5.4367e-05_jprb,&
&6.0104e-05_jprb,1.5483e-05_jprb,4.4393e-04_jprb/)
kao( :, 3,10, 6) = (/&
&2.2759e-04_jprb,2.0234e-04_jprb,1.7625e-04_jprb,1.4950e-04_jprb,1.1945e-04_jprb,4.4354e-05_jprb,&
&5.3052e-05_jprb,2.1110e-05_jprb,8.2682e-04_jprb/)
kao( :, 4,10, 6) = (/&
&2.2922e-04_jprb,2.0521e-04_jprb,1.8016e-04_jprb,1.5410e-04_jprb,1.2582e-04_jprb,5.3486e-05_jprb,&
&4.4581e-05_jprb,2.9122e-05_jprb,1.4295e-03_jprb/)
kao( :, 5,10, 6) = (/&
&2.3198e-04_jprb,2.0949e-04_jprb,1.8557e-04_jprb,1.5950e-04_jprb,1.3216e-04_jprb,9.8775e-05_jprb,&
&3.6643e-05_jprb,3.6794e-05_jprb,2.3221e-03_jprb/)
kao( :, 1,11, 6) = (/&
&2.0583e-04_jprb,1.8127e-04_jprb,1.5633e-04_jprb,1.2776e-04_jprb,4.7811e-05_jprb,6.9737e-05_jprb,&
&5.8557e-05_jprb,1.2546e-05_jprb,3.1512e-04_jprb/)
kao( :, 2,11, 6) = (/&
&2.0808e-04_jprb,1.8417e-04_jprb,1.5959e-04_jprb,1.3341e-04_jprb,4.2960e-05_jprb,5.2587e-05_jprb,&
&6.0943e-05_jprb,1.7249e-05_jprb,6.4309e-04_jprb/)
kao( :, 3,11, 6) = (/&
&2.0985e-04_jprb,1.8679e-04_jprb,1.6278e-04_jprb,1.3786e-04_jprb,1.0094e-04_jprb,4.2926e-05_jprb,&
&5.4000e-05_jprb,2.1438e-05_jprb,1.2009e-03_jprb/)
kao( :, 4,11, 6) = (/&
&2.1113e-04_jprb,1.8931e-04_jprb,1.6638e-04_jprb,1.4208e-04_jprb,1.1471e-04_jprb,3.5997e-05_jprb,&
&4.5064e-05_jprb,2.9593e-05_jprb,2.0809e-03_jprb/)
kao( :, 5,11, 6) = (/&
&2.1332e-04_jprb,1.9322e-04_jprb,1.7102e-04_jprb,1.4678e-04_jprb,1.2136e-04_jprb,7.6714e-05_jprb,&
&3.8255e-05_jprb,4.0077e-05_jprb,3.3932e-03_jprb/)
kao( :, 1,12, 6) = (/&
&1.8719e-04_jprb,1.6501e-04_jprb,1.4226e-04_jprb,1.0840e-04_jprb,4.3551e-05_jprb,6.5135e-05_jprb,&
&6.0449e-05_jprb,1.2368e-05_jprb,3.4134e-04_jprb/)
kao( :, 2,12, 6) = (/&
&1.8952e-04_jprb,1.6785e-04_jprb,1.4553e-04_jprb,1.2117e-04_jprb,3.5062e-05_jprb,4.8573e-05_jprb,&
&6.2841e-05_jprb,1.5474e-05_jprb,6.9803e-04_jprb/)
kao( :, 3,12, 6) = (/&
&1.9118e-04_jprb,1.7048e-04_jprb,1.4865e-04_jprb,1.2583e-04_jprb,8.1862e-05_jprb,3.7617e-05_jprb,&
&5.3564e-05_jprb,2.1248e-05_jprb,1.3057e-03_jprb/)
kao( :, 4,12, 6) = (/&
&1.9270e-04_jprb,1.7320e-04_jprb,1.5231e-04_jprb,1.2983e-04_jprb,1.0441e-04_jprb,3.3342e-05_jprb,&
&4.1959e-05_jprb,3.5845e-05_jprb,2.2690e-03_jprb/)
kao( :, 5,12, 6) = (/&
&1.9518e-04_jprb,1.7738e-04_jprb,1.5684e-04_jprb,1.3457e-04_jprb,1.1104e-04_jprb,6.4947e-05_jprb,&
&3.5407e-05_jprb,4.3496e-05_jprb,3.7128e-03_jprb/)
kao( :, 1,13, 6) = (/&
&1.6844e-04_jprb,1.4859e-04_jprb,1.2806e-04_jprb,8.6165e-05_jprb,4.0107e-05_jprb,6.0133e-05_jprb,&
&6.1357e-05_jprb,1.2763e-05_jprb,2.9734e-04_jprb/)
kao( :, 2,13, 6) = (/&
&1.7069e-04_jprb,1.5140e-04_jprb,1.3134e-04_jprb,1.0891e-04_jprb,3.2613e-05_jprb,4.6872e-05_jprb,&
&6.0094e-05_jprb,1.5072e-05_jprb,6.0887e-04_jprb/)
kao( :, 3,13, 6) = (/&
&1.7244e-04_jprb,1.5407e-04_jprb,1.3444e-04_jprb,1.1361e-04_jprb,6.4637e-05_jprb,3.4627e-05_jprb,&
&4.8765e-05_jprb,2.7303e-05_jprb,1.1416e-03_jprb/)
kao( :, 4,13, 6) = (/&
&1.7422e-04_jprb,1.5702e-04_jprb,1.3806e-04_jprb,1.1756e-04_jprb,9.3337e-05_jprb,3.0148e-05_jprb,&
&3.8538e-05_jprb,4.2636e-05_jprb,1.9903e-03_jprb/)
kao( :, 5,13, 6) = (/&
&1.7685e-04_jprb,1.6120e-04_jprb,1.4238e-04_jprb,1.2222e-04_jprb,1.0041e-04_jprb,5.2947e-05_jprb,&
&3.1886e-05_jprb,4.0330e-05_jprb,3.2638e-03_jprb/)
kao( :, 1, 1, 7) = (/&
&4.3889e-04_jprb,3.9958e-04_jprb,3.5783e-04_jprb,3.1336e-04_jprb,2.6698e-04_jprb,2.1857e-04_jprb,&
&1.6424e-04_jprb,4.0399e-05_jprb,2.8247e-05_jprb/)
kao( :, 2, 1, 7) = (/&
&4.5976e-04_jprb,4.2497e-04_jprb,3.8736e-04_jprb,3.4581e-04_jprb,3.0220e-04_jprb,2.5189e-04_jprb,&
&1.9631e-04_jprb,1.0954e-04_jprb,6.7630e-05_jprb/)
kao( :, 3, 1, 7) = (/&
&4.8944e-04_jprb,4.6159e-04_jprb,4.2784e-04_jprb,3.8962e-04_jprb,3.4476e-04_jprb,2.9292e-04_jprb,&
&2.3514e-04_jprb,1.7014e-04_jprb,1.5365e-04_jprb/)
kao( :, 4, 1, 7) = (/&
&5.2941e-04_jprb,5.1023e-04_jprb,4.7948e-04_jprb,4.4219e-04_jprb,3.9618e-04_jprb,3.4392e-04_jprb,&
&2.8630e-04_jprb,2.2387e-04_jprb,2.1803e-04_jprb/)
kao( :, 5, 1, 7) = (/&
&5.7974e-04_jprb,5.6859e-04_jprb,5.4269e-04_jprb,5.0514e-04_jprb,4.6062e-04_jprb,4.1002e-04_jprb,&
&3.5338e-04_jprb,2.8599e-04_jprb,2.8983e-04_jprb/)
kao( :, 1, 2, 7) = (/&
&4.2778e-04_jprb,3.8751e-04_jprb,3.4424e-04_jprb,2.9838e-04_jprb,2.5188e-04_jprb,2.0290e-04_jprb,&
&1.4875e-04_jprb,2.6658e-05_jprb,3.1573e-05_jprb/)
kao( :, 2, 2, 7) = (/&
&4.4270e-04_jprb,4.0621e-04_jprb,3.6561e-04_jprb,3.2154e-04_jprb,2.7708e-04_jprb,2.2750e-04_jprb,&
&1.7305e-04_jprb,6.5324e-05_jprb,8.8564e-05_jprb/)
kao( :, 3, 2, 7) = (/&
&4.6316e-04_jprb,4.3154e-04_jprb,3.9306e-04_jprb,3.5392e-04_jprb,3.0888e-04_jprb,2.5881e-04_jprb,&
&2.0328e-04_jprb,1.3652e-04_jprb,1.4781e-04_jprb/)
kao( :, 4, 2, 7) = (/&
&4.8891e-04_jprb,4.6467e-04_jprb,4.3116e-04_jprb,3.9316e-04_jprb,3.4835e-04_jprb,2.9748e-04_jprb,&
&2.4237e-04_jprb,1.8240e-04_jprb,2.0533e-04_jprb/)
kao( :, 5, 2, 7) = (/&
&5.2249e-04_jprb,5.0735e-04_jprb,4.7839e-04_jprb,4.4173e-04_jprb,3.9700e-04_jprb,3.4683e-04_jprb,&
&2.9289e-04_jprb,2.3410e-04_jprb,2.7363e-04_jprb/)
kao( :, 1, 3, 7) = (/&
&4.1666e-04_jprb,3.7587e-04_jprb,3.3124e-04_jprb,2.8500e-04_jprb,2.3719e-04_jprb,1.8911e-04_jprb,&
&1.3261e-04_jprb,2.3452e-05_jprb,4.9343e-05_jprb/)
kao( :, 2, 3, 7) = (/&
&4.2699e-04_jprb,3.8906e-04_jprb,3.4648e-04_jprb,3.0084e-04_jprb,2.5570e-04_jprb,2.0628e-04_jprb,&
&1.5092e-04_jprb,2.8713e-05_jprb,9.9198e-05_jprb/)
kao( :, 3, 3, 7) = (/&
&4.4021e-04_jprb,4.0629e-04_jprb,3.6539e-04_jprb,3.2263e-04_jprb,2.7685e-04_jprb,2.2699e-04_jprb,&
&1.7257e-04_jprb,8.2898e-05_jprb,1.4682e-04_jprb/)
kao( :, 4, 3, 7) = (/&
&4.5674e-04_jprb,4.2778e-04_jprb,3.8962e-04_jprb,3.4911e-04_jprb,3.0352e-04_jprb,2.5381e-04_jprb,&
&1.9998e-04_jprb,1.3835e-04_jprb,2.0520e-04_jprb/)
kao( :, 5, 3, 7) = (/&
&4.7776e-04_jprb,4.5415e-04_jprb,4.2101e-04_jprb,3.8173e-04_jprb,3.3698e-04_jprb,2.8849e-04_jprb,&
&2.3510e-04_jprb,1.7936e-04_jprb,2.7654e-04_jprb/)
kao( :, 1, 4, 7) = (/&
&4.0967e-04_jprb,3.6653e-04_jprb,3.2176e-04_jprb,2.7479e-04_jprb,2.2703e-04_jprb,1.7902e-04_jprb,&
&1.1570e-04_jprb,2.0026e-05_jprb,6.2716e-05_jprb/)
kao( :, 2, 4, 7) = (/&
&4.1728e-04_jprb,3.7737e-04_jprb,3.3344e-04_jprb,2.8769e-04_jprb,2.4076e-04_jprb,1.9242e-04_jprb,&
&1.3658e-04_jprb,2.3923e-05_jprb,1.0107e-04_jprb/)
kao( :, 3, 4, 7) = (/&
&4.2535e-04_jprb,3.8928e-04_jprb,3.4656e-04_jprb,3.0255e-04_jprb,2.5648e-04_jprb,2.0706e-04_jprb,&
&1.5237e-04_jprb,3.0608e-05_jprb,1.5048e-04_jprb/)
kao( :, 4, 4, 7) = (/&
&4.3671e-04_jprb,4.0394e-04_jprb,3.6448e-04_jprb,3.2102e-04_jprb,2.7530e-04_jprb,2.2501e-04_jprb,&
&1.7081e-04_jprb,9.6060e-05_jprb,2.1454e-04_jprb/)
kao( :, 5, 4, 7) = (/&
&4.4976e-04_jprb,4.2181e-04_jprb,3.8534e-04_jprb,3.4353e-04_jprb,2.9780e-04_jprb,2.4759e-04_jprb,&
&1.9471e-04_jprb,1.3517e-04_jprb,2.9601e-04_jprb/)
kao( :, 1, 5, 7) = (/&
&4.0808e-04_jprb,3.6358e-04_jprb,3.1756e-04_jprb,2.7050e-04_jprb,2.2238e-04_jprb,1.7234e-04_jprb,&
&5.9731e-05_jprb,1.5183e-05_jprb,6.3144e-05_jprb/)
kao( :, 2, 5, 7) = (/&
&4.1172e-04_jprb,3.6950e-04_jprb,3.2496e-04_jprb,2.7819e-04_jprb,2.3077e-04_jprb,1.8213e-04_jprb,&
&1.2446e-04_jprb,2.0194e-05_jprb,1.0232e-04_jprb/)
kao( :, 3, 5, 7) = (/&
&4.1699e-04_jprb,3.7855e-04_jprb,3.3456e-04_jprb,2.8999e-04_jprb,2.4284e-04_jprb,1.9427e-04_jprb,&
&1.3989e-04_jprb,2.2013e-05_jprb,1.5619e-04_jprb/)
kao( :, 4, 5, 7) = (/&
&4.2318e-04_jprb,3.8831e-04_jprb,3.4637e-04_jprb,3.0279e-04_jprb,2.5707e-04_jprb,2.0772e-04_jprb,&
&1.5350e-04_jprb,3.7923e-05_jprb,2.2888e-04_jprb/)
kao( :, 5, 5, 7) = (/&
&4.3181e-04_jprb,3.9999e-04_jprb,3.6216e-04_jprb,3.1916e-04_jprb,2.7412e-04_jprb,2.2354e-04_jprb,&
&1.6943e-04_jprb,1.0257e-04_jprb,3.2402e-04_jprb/)
kao( :, 1, 6, 7) = (/&
&4.0917e-04_jprb,3.6282e-04_jprb,3.1586e-04_jprb,2.6754e-04_jprb,2.1851e-04_jprb,1.6735e-04_jprb,&
&5.0306e-05_jprb,1.4647e-05_jprb,5.9838e-05_jprb/)
kao( :, 2, 6, 7) = (/&
&4.0728e-04_jprb,3.6393e-04_jprb,3.1828e-04_jprb,2.7141e-04_jprb,2.2388e-04_jprb,1.7484e-04_jprb,&
&6.6257e-05_jprb,1.8734e-05_jprb,1.0066e-04_jprb/)
kao( :, 3, 6, 7) = (/&
&4.1093e-04_jprb,3.6989e-04_jprb,3.2582e-04_jprb,2.7999e-04_jprb,2.3310e-04_jprb,1.8335e-04_jprb,&
&1.2803e-04_jprb,1.9091e-05_jprb,1.6014e-04_jprb/)
kao( :, 4, 6, 7) = (/&
&4.1435e-04_jprb,3.7775e-04_jprb,3.3462e-04_jprb,2.9056e-04_jprb,2.4377e-04_jprb,1.9519e-04_jprb,&
&1.4167e-04_jprb,2.4651e-05_jprb,2.4320e-04_jprb/)
kao( :, 5, 6, 7) = (/&
&4.1880e-04_jprb,3.8572e-04_jprb,3.4541e-04_jprb,3.0219e-04_jprb,2.5684e-04_jprb,2.0763e-04_jprb,&
&1.5383e-04_jprb,5.0012e-05_jprb,3.5512e-04_jprb/)
kao( :, 1, 7, 7) = (/&
&4.0843e-04_jprb,3.6062e-04_jprb,3.1311e-04_jprb,2.6422e-04_jprb,2.1469e-04_jprb,1.5788e-04_jprb,&
&4.4260e-05_jprb,1.0477e-05_jprb,5.9419e-05_jprb/)
kao( :, 2, 7, 7) = (/&
&4.0468e-04_jprb,3.5984e-04_jprb,3.1329e-04_jprb,2.6596e-04_jprb,2.1769e-04_jprb,1.6781e-04_jprb,&
&5.1786e-05_jprb,1.4646e-05_jprb,1.0524e-04_jprb/)
kao( :, 3, 7, 7) = (/&
&4.0363e-04_jprb,3.6136e-04_jprb,3.1683e-04_jprb,2.7075e-04_jprb,2.2418e-04_jprb,1.7495e-04_jprb,&
&8.7540e-05_jprb,1.8041e-05_jprb,1.7514e-04_jprb/)
kao( :, 4, 7, 7) = (/&
&4.0645e-04_jprb,3.6771e-04_jprb,3.2468e-04_jprb,2.8007e-04_jprb,2.3381e-04_jprb,1.8431e-04_jprb,&
&1.2997e-04_jprb,1.8283e-05_jprb,2.7663e-04_jprb/)
kao( :, 5, 7, 7) = (/&
&4.0882e-04_jprb,3.7446e-04_jprb,3.3339e-04_jprb,2.9009e-04_jprb,2.4386e-04_jprb,1.9554e-04_jprb,&
&1.4307e-04_jprb,2.6104e-05_jprb,4.1561e-04_jprb/)
kao( :, 1, 8, 7) = (/&
&4.0424e-04_jprb,3.5590e-04_jprb,3.0795e-04_jprb,2.5922e-04_jprb,2.0908e-04_jprb,7.0272e-05_jprb,&
&3.7437e-05_jprb,1.0693e-05_jprb,7.0148e-05_jprb/)
kao( :, 2, 8, 7) = (/&
&3.9936e-04_jprb,3.5369e-04_jprb,3.0725e-04_jprb,2.5982e-04_jprb,2.1133e-04_jprb,1.5687e-04_jprb,&
&4.6834e-05_jprb,1.4067e-05_jprb,1.3163e-04_jprb/)
kao( :, 3, 8, 7) = (/&
&3.9575e-04_jprb,3.5313e-04_jprb,3.0818e-04_jprb,2.6229e-04_jprb,2.1562e-04_jprb,1.6577e-04_jprb,&
&5.0426e-05_jprb,1.5328e-05_jprb,2.2983e-04_jprb/)
kao( :, 4, 8, 7) = (/&
&3.9577e-04_jprb,3.5593e-04_jprb,3.1259e-04_jprb,2.6838e-04_jprb,2.2238e-04_jprb,1.7380e-04_jprb,&
&9.5405e-05_jprb,1.7738e-05_jprb,3.7526e-04_jprb/)
kao( :, 5, 8, 7) = (/&
&3.9853e-04_jprb,3.6216e-04_jprb,3.2118e-04_jprb,2.7729e-04_jprb,2.3198e-04_jprb,1.8391e-04_jprb,&
&1.3140e-04_jprb,2.3100e-05_jprb,5.7971e-04_jprb/)
kao( :, 1, 9, 7) = (/&
&3.9550e-04_jprb,3.4756e-04_jprb,2.9976e-04_jprb,2.5157e-04_jprb,2.0053e-04_jprb,6.3971e-05_jprb,&
&3.0992e-05_jprb,8.5618e-06_jprb,1.5177e-04_jprb/)
kao( :, 2, 9, 7) = (/&
&3.9108e-04_jprb,3.4522e-04_jprb,2.9936e-04_jprb,2.5239e-04_jprb,2.0355e-04_jprb,7.9459e-05_jprb,&
&4.6168e-05_jprb,1.0069e-05_jprb,3.0222e-04_jprb/)
kao( :, 3, 9, 7) = (/&
&3.8711e-04_jprb,3.4432e-04_jprb,2.9976e-04_jprb,2.5434e-04_jprb,2.0775e-04_jprb,1.5531e-04_jprb,&
&4.6577e-05_jprb,1.4628e-05_jprb,5.5112e-04_jprb/)
kao( :, 4, 9, 7) = (/&
&3.8454e-04_jprb,3.4471e-04_jprb,3.0182e-04_jprb,2.5833e-04_jprb,2.1289e-04_jprb,1.6399e-04_jprb,&
&4.7735e-05_jprb,1.8317e-05_jprb,9.3434e-04_jprb/)
kao( :, 5, 9, 7) = (/&
&3.8590e-04_jprb,3.4906e-04_jprb,3.0820e-04_jprb,2.6500e-04_jprb,2.1985e-04_jprb,1.7262e-04_jprb,&
&1.0739e-04_jprb,2.0046e-05_jprb,1.4932e-03_jprb/)
kao( :, 1,10, 7) = (/&
&3.8145e-04_jprb,3.3484e-04_jprb,2.8824e-04_jprb,2.4073e-04_jprb,1.3749e-04_jprb,6.8864e-05_jprb,&
&1.3426e-05_jprb,5.4253e-06_jprb,4.2208e-04_jprb/)
kao( :, 2,10, 7) = (/&
&3.7808e-04_jprb,3.3310e-04_jprb,2.8836e-04_jprb,2.4244e-04_jprb,1.9222e-04_jprb,5.4332e-05_jprb,&
&3.8318e-05_jprb,1.3544e-05_jprb,8.8420e-04_jprb/)
kao( :, 3,10, 7) = (/&
&3.7522e-04_jprb,3.3290e-04_jprb,2.8933e-04_jprb,2.4468e-04_jprb,1.9821e-04_jprb,8.2625e-05_jprb,&
&4.6026e-05_jprb,1.3859e-05_jprb,1.6822e-03_jprb/)
kao( :, 4,10, 7) = (/&
&3.7308e-04_jprb,3.3362e-04_jprb,2.9154e-04_jprb,2.4864e-04_jprb,2.0415e-04_jprb,1.5269e-04_jprb,&
&4.6983e-05_jprb,1.4205e-05_jprb,2.9547e-03_jprb/)
kao( :, 5,10, 7) = (/&
&3.7174e-04_jprb,3.3554e-04_jprb,2.9552e-04_jprb,2.5392e-04_jprb,2.0969e-04_jprb,1.6270e-04_jprb,&
&4.1673e-05_jprb,1.7828e-05_jprb,4.8607e-03_jprb/)
kao( :, 1,11, 7) = (/&
&3.6294e-04_jprb,3.1871e-04_jprb,2.7451e-04_jprb,2.2858e-04_jprb,8.3578e-05_jprb,6.1372e-05_jprb,&
&1.3364e-05_jprb,7.7912e-06_jprb,6.2992e-04_jprb/)
kao( :, 2,11, 7) = (/&
&3.6112e-04_jprb,3.1852e-04_jprb,2.7580e-04_jprb,2.3178e-04_jprb,1.8037e-04_jprb,5.7295e-05_jprb,&
&4.0682e-05_jprb,1.2520e-05_jprb,1.3182e-03_jprb/)
kao( :, 3,11, 7) = (/&
&3.5947e-04_jprb,3.1941e-04_jprb,2.7779e-04_jprb,2.3507e-04_jprb,1.9020e-04_jprb,4.7650e-05_jprb,&
&4.7645e-05_jprb,1.4087e-05_jprb,2.5064e-03_jprb/)
kao( :, 4,11, 7) = (/&
&3.5796e-04_jprb,3.2062e-04_jprb,2.8056e-04_jprb,2.3967e-04_jprb,1.9644e-04_jprb,1.3235e-04_jprb,&
&4.6296e-05_jprb,1.5164e-05_jprb,4.4025e-03_jprb/)
kao( :, 5,11, 7) = (/&
&3.5673e-04_jprb,3.2259e-04_jprb,2.8479e-04_jprb,2.4474e-04_jprb,2.0200e-04_jprb,1.5578e-04_jprb,&
&4.2752e-05_jprb,1.8894e-05_jprb,7.2340e-03_jprb/)
kao( :, 1,12, 7) = (/&
&3.4280e-04_jprb,3.0118e-04_jprb,2.5967e-04_jprb,2.1631e-04_jprb,7.2200e-05_jprb,5.9727e-05_jprb,&
&3.2869e-05_jprb,5.5658e-06_jprb,7.0164e-04_jprb/)
kao( :, 2,12, 7) = (/&
&3.4212e-04_jprb,3.0217e-04_jprb,2.6182e-04_jprb,2.2007e-04_jprb,1.6435e-04_jprb,5.4340e-05_jprb,&
&4.2800e-05_jprb,1.1130e-05_jprb,1.4668e-03_jprb/)
kao( :, 3,12, 7) = (/&
&3.4134e-04_jprb,3.0369e-04_jprb,2.6435e-04_jprb,2.2391e-04_jprb,1.8076e-04_jprb,4.4282e-05_jprb,&
&4.6617e-05_jprb,1.2881e-05_jprb,2.7876e-03_jprb/)
kao( :, 4,12, 7) = (/&
&3.4044e-04_jprb,3.0540e-04_jprb,2.6773e-04_jprb,2.2890e-04_jprb,1.8713e-04_jprb,1.1838e-04_jprb,&
&4.1381e-05_jprb,1.3556e-05_jprb,4.8923e-03_jprb/)
kao( :, 5,12, 7) = (/&
&3.3969e-04_jprb,3.0785e-04_jprb,2.7216e-04_jprb,2.3387e-04_jprb,1.9308e-04_jprb,1.4819e-04_jprb,&
&3.8774e-05_jprb,2.3365e-05_jprb,8.0367e-03_jprb/)
kao( :, 1,13, 7) = (/&
&3.2074e-04_jprb,2.8200e-04_jprb,2.4335e-04_jprb,2.0260e-04_jprb,5.9755e-05_jprb,5.5012e-05_jprb,&
&4.0916e-05_jprb,6.5979e-06_jprb,6.2734e-04_jprb/)
kao( :, 2,13, 7) = (/&
&3.2081e-04_jprb,2.8371e-04_jprb,2.4601e-04_jprb,2.0672e-04_jprb,1.4264e-04_jprb,4.7131e-05_jprb,&
&4.6167e-05_jprb,1.0279e-05_jprb,1.3098e-03_jprb/)
kao( :, 3,13, 7) = (/&
&3.2050e-04_jprb,2.8547e-04_jprb,2.4888e-04_jprb,2.1104e-04_jprb,1.6957e-04_jprb,3.8720e-05_jprb,&
&4.6164e-05_jprb,1.0646e-05_jprb,2.4868e-03_jprb/)
kao( :, 4,13, 7) = (/&
&3.2004e-04_jprb,2.8761e-04_jprb,2.5261e-04_jprb,2.1602e-04_jprb,1.7644e-04_jprb,1.0425e-04_jprb,&
&3.7809e-05_jprb,1.7867e-05_jprb,4.3609e-03_jprb/)
kao( :, 5,13, 7) = (/&
&3.1955e-04_jprb,2.9043e-04_jprb,2.5703e-04_jprb,2.2081e-04_jprb,1.8253e-04_jprb,1.3988e-04_jprb,&
&3.6793e-05_jprb,3.0837e-05_jprb,7.1735e-03_jprb/)
kao( :, 1, 1, 8) = (/&
&5.6685e-04_jprb,5.1953e-04_jprb,4.6936e-04_jprb,4.1592e-04_jprb,3.5781e-04_jprb,2.9881e-04_jprb,&
&2.3721e-04_jprb,1.2965e-04_jprb,9.7553e-05_jprb/)
kao( :, 2, 1, 8) = (/&
&6.1498e-04_jprb,5.7331e-04_jprb,5.2736e-04_jprb,4.7456e-04_jprb,4.1825e-04_jprb,3.6336e-04_jprb,&
&3.0181e-04_jprb,2.4017e-04_jprb,2.2948e-04_jprb/)
kao( :, 3, 1, 8) = (/&
&6.7611e-04_jprb,6.4061e-04_jprb,6.0111e-04_jprb,5.5388e-04_jprb,5.0779e-04_jprb,4.5514e-04_jprb,&
&3.9223e-04_jprb,3.3256e-04_jprb,3.4276e-04_jprb/)
kao( :, 4, 1, 8) = (/&
&7.5480e-04_jprb,7.2914e-04_jprb,7.0254e-04_jprb,6.6835e-04_jprb,6.2923e-04_jprb,5.7675e-04_jprb,&
&5.0673e-04_jprb,4.4275e-04_jprb,4.7133e-04_jprb/)
kao( :, 5, 1, 8) = (/&
&8.5668e-04_jprb,8.5031e-04_jprb,8.3845e-04_jprb,8.1883e-04_jprb,7.8346e-04_jprb,7.2655e-04_jprb,&
&6.4693e-04_jprb,5.7765e-04_jprb,6.2516e-04_jprb/)
kao( :, 1, 2, 8) = (/&
&5.4710e-04_jprb,4.9662e-04_jprb,4.4514e-04_jprb,3.9135e-04_jprb,3.3202e-04_jprb,2.7342e-04_jprb,&
&2.1062e-04_jprb,7.4193e-05_jprb,1.1449e-04_jprb/)
kao( :, 2, 2, 8) = (/&
&5.7920e-04_jprb,5.3530e-04_jprb,4.8866e-04_jprb,4.3544e-04_jprb,3.7966e-04_jprb,3.2266e-04_jprb,&
&2.6099e-04_jprb,1.8962e-04_jprb,2.1819e-04_jprb/)
kao( :, 3, 2, 8) = (/&
&6.1998e-04_jprb,5.8558e-04_jprb,5.4532e-04_jprb,4.9598e-04_jprb,4.4601e-04_jprb,3.9266e-04_jprb,&
&3.3270e-04_jprb,2.7330e-04_jprb,3.1544e-04_jprb/)
kao( :, 4, 2, 8) = (/&
&6.7522e-04_jprb,6.5257e-04_jprb,6.1970e-04_jprb,5.8199e-04_jprb,5.3956e-04_jprb,4.8955e-04_jprb,&
&4.2848e-04_jprb,3.6701e-04_jprb,4.3346e-04_jprb/)
kao( :, 5, 2, 8) = (/&
&7.4593e-04_jprb,7.3758e-04_jprb,7.2139e-04_jprb,6.9843e-04_jprb,6.6276e-04_jprb,6.1561e-04_jprb,&
&5.4954e-04_jprb,4.8184e-04_jprb,5.7913e-04_jprb/)
kao( :, 1, 3, 8) = (/&
&5.3214e-04_jprb,4.7681e-04_jprb,4.2344e-04_jprb,3.6680e-04_jprb,3.0810e-04_jprb,2.4726e-04_jprb,&
&1.8453e-04_jprb,2.5084e-05_jprb,1.5128e-04_jprb/)
kao( :, 2, 3, 8) = (/&
&5.5191e-04_jprb,5.0347e-04_jprb,4.5239e-04_jprb,3.9784e-04_jprb,3.4016e-04_jprb,2.8162e-04_jprb,&
&2.1920e-04_jprb,1.0464e-04_jprb,2.3348e-04_jprb/)
kao( :, 3, 3, 8) = (/&
&5.7477e-04_jprb,5.3435e-04_jprb,4.8907e-04_jprb,4.3911e-04_jprb,3.8574e-04_jprb,3.2874e-04_jprb,&
&2.6890e-04_jprb,2.0489e-04_jprb,3.3684e-04_jprb/)
kao( :, 4, 3, 8) = (/&
&6.0596e-04_jprb,5.7781e-04_jprb,5.4062e-04_jprb,4.9604e-04_jprb,4.4703e-04_jprb,3.9517e-04_jprb,&
&3.3938e-04_jprb,2.8379e-04_jprb,4.6834e-04_jprb/)
kao( :, 5, 3, 8) = (/&
&6.4785e-04_jprb,6.3446e-04_jprb,6.0817e-04_jprb,5.7312e-04_jprb,5.3235e-04_jprb,4.8682e-04_jprb,&
&4.3334e-04_jprb,3.7597e-04_jprb,6.3257e-04_jprb/)
kao( :, 1, 4, 8) = (/&
&5.3110e-04_jprb,4.7262e-04_jprb,4.1623e-04_jprb,3.5723e-04_jprb,2.9627e-04_jprb,2.3321e-04_jprb,&
&1.6340e-04_jprb,1.9895e-05_jprb,1.6136e-04_jprb/)
kao( :, 2, 4, 8) = (/&
&5.4153e-04_jprb,4.8798e-04_jprb,4.3377e-04_jprb,3.7487e-04_jprb,3.1581e-04_jprb,2.5480e-04_jprb,&
&1.9036e-04_jprb,3.4588e-05_jprb,2.5102e-04_jprb/)
kao( :, 3, 4, 8) = (/&
&5.5497e-04_jprb,5.0890e-04_jprb,4.5760e-04_jprb,4.0292e-04_jprb,3.4647e-04_jprb,2.8693e-04_jprb,&
&2.2354e-04_jprb,1.2964e-04_jprb,3.6989e-04_jprb/)
kao( :, 4, 4, 8) = (/&
&5.7139e-04_jprb,5.3494e-04_jprb,4.8805e-04_jprb,4.4096e-04_jprb,3.8626e-04_jprb,3.3033e-04_jprb,&
&2.7143e-04_jprb,2.1212e-04_jprb,5.2455e-04_jprb/)
kao( :, 5, 4, 8) = (/&
&5.9415e-04_jprb,5.6860e-04_jprb,5.3306e-04_jprb,4.9025e-04_jprb,4.4085e-04_jprb,3.9152e-04_jprb,&
&3.3850e-04_jprb,2.8746e-04_jprb,7.1892e-04_jprb/)
kao( :, 1, 5, 8) = (/&
&5.4290e-04_jprb,4.8021e-04_jprb,4.2005e-04_jprb,3.5773e-04_jprb,2.9361e-04_jprb,2.2840e-04_jprb,&
&1.2412e-04_jprb,1.6779e-05_jprb,1.6478e-04_jprb/)
kao( :, 2, 5, 8) = (/&
&5.4234e-04_jprb,4.8521e-04_jprb,4.2730e-04_jprb,3.6655e-04_jprb,3.0462e-04_jprb,2.4081e-04_jprb,&
&1.7158e-04_jprb,2.4577e-05_jprb,2.6430e-04_jprb/)
kao( :, 3, 5, 8) = (/&
&5.5176e-04_jprb,4.9971e-04_jprb,4.4439e-04_jprb,3.8473e-04_jprb,3.2493e-04_jprb,2.6199e-04_jprb,&
&1.9530e-04_jprb,5.1968e-05_jprb,4.0107e-04_jprb/)
kao( :, 4, 5, 8) = (/&
&5.6082e-04_jprb,5.1698e-04_jprb,4.6451e-04_jprb,4.1055e-04_jprb,3.5125e-04_jprb,2.9127e-04_jprb,&
&2.2746e-04_jprb,1.4698e-04_jprb,5.8315e-04_jprb/)
kao( :, 5, 5, 8) = (/&
&5.7193e-04_jprb,5.3856e-04_jprb,4.9143e-04_jprb,4.4154e-04_jprb,3.8661e-04_jprb,3.3087e-04_jprb,&
&2.7242e-04_jprb,2.1704e-04_jprb,8.1664e-04_jprb/)
kao( :, 1, 6, 8) = (/&
&5.5933e-04_jprb,4.9291e-04_jprb,4.2842e-04_jprb,3.6305e-04_jprb,2.9613e-04_jprb,2.2724e-04_jprb,&
&5.3023e-05_jprb,1.5921e-05_jprb,1.6080e-04_jprb/)
kao( :, 2, 6, 8) = (/&
&5.5265e-04_jprb,4.9132e-04_jprb,4.3026e-04_jprb,3.6705e-04_jprb,3.0202e-04_jprb,2.3616e-04_jprb,&
&1.5492e-04_jprb,1.7381e-05_jprb,2.6878e-04_jprb/)
kao( :, 3, 6, 8) = (/&
&5.5383e-04_jprb,4.9775e-04_jprb,4.3880e-04_jprb,3.7661e-04_jprb,3.1407e-04_jprb,2.4921e-04_jprb,&
&1.7746e-04_jprb,2.2302e-05_jprb,4.2225e-04_jprb/)
kao( :, 4, 6, 8) = (/&
&5.6178e-04_jprb,5.1138e-04_jprb,4.5491e-04_jprb,3.9556e-04_jprb,3.3327e-04_jprb,2.6812e-04_jprb,&
&2.0001e-04_jprb,6.4403e-05_jprb,6.3155e-04_jprb/)
kao( :, 5, 6, 8) = (/&
&5.6806e-04_jprb,5.2664e-04_jprb,4.7387e-04_jprb,4.1708e-04_jprb,3.5623e-04_jprb,2.9443e-04_jprb,&
&2.3016e-04_jprb,1.5609e-04_jprb,9.0635e-04_jprb/)
kao( :, 1, 7, 8) = (/&
&5.7912e-04_jprb,5.0929e-04_jprb,4.4052e-04_jprb,3.7179e-04_jprb,3.0169e-04_jprb,2.2904e-04_jprb,&
&3.6739e-05_jprb,9.8065e-06_jprb,1.6369e-04_jprb/)
kao( :, 2, 7, 8) = (/&
&5.7054e-04_jprb,5.0526e-04_jprb,4.4059e-04_jprb,3.7406e-04_jprb,3.0610e-04_jprb,2.3585e-04_jprb,&
&6.5393e-05_jprb,1.3372e-05_jprb,2.8615e-04_jprb/)
kao( :, 3, 7, 8) = (/&
&5.6399e-04_jprb,5.0435e-04_jprb,4.4269e-04_jprb,3.7826e-04_jprb,3.1294e-04_jprb,2.4573e-04_jprb,&
&1.6693e-04_jprb,2.0015e-05_jprb,4.6772e-04_jprb/)
kao( :, 4, 7, 8) = (/&
&5.6580e-04_jprb,5.1086e-04_jprb,4.5119e-04_jprb,3.8935e-04_jprb,3.2489e-04_jprb,2.5799e-04_jprb,&
&1.8517e-04_jprb,2.1193e-05_jprb,7.2326e-04_jprb/)
kao( :, 5, 7, 8) = (/&
&5.7198e-04_jprb,5.2353e-04_jprb,4.6732e-04_jprb,4.0650e-04_jprb,3.4261e-04_jprb,2.7564e-04_jprb,&
&2.0638e-04_jprb,8.3698e-05_jprb,1.0705e-03_jprb/)
kao( :, 1, 8, 8) = (/&
&5.9871e-04_jprb,5.2574e-04_jprb,4.5363e-04_jprb,3.8151e-04_jprb,3.0818e-04_jprb,2.2816e-04_jprb,&
&3.1690e-05_jprb,9.1563e-06_jprb,1.9592e-04_jprb/)
kao( :, 2, 8, 8) = (/&
&5.8942e-04_jprb,5.2019e-04_jprb,4.5182e-04_jprb,3.8232e-04_jprb,3.1150e-04_jprb,2.3688e-04_jprb,&
&4.4878e-05_jprb,1.3062e-05_jprb,3.5981e-04_jprb/)
kao( :, 3, 8, 8) = (/&
&5.8144e-04_jprb,5.1705e-04_jprb,4.5231e-04_jprb,3.8496e-04_jprb,3.1600e-04_jprb,2.4571e-04_jprb,&
&1.0309e-04_jprb,1.4129e-05_jprb,6.1385e-04_jprb/)
kao( :, 4, 8, 8) = (/&
&5.7448e-04_jprb,5.1610e-04_jprb,4.5471e-04_jprb,3.9018e-04_jprb,3.2457e-04_jprb,2.5556e-04_jprb,&
&1.7544e-04_jprb,1.7304e-05_jprb,9.8945e-04_jprb/)
kao( :, 5, 8, 8) = (/&
&5.7483e-04_jprb,5.2262e-04_jprb,4.6340e-04_jprb,4.0220e-04_jprb,3.3597e-04_jprb,2.6696e-04_jprb,&
&1.9367e-04_jprb,2.4514e-05_jprb,1.5199e-03_jprb/)
kao( :, 1, 9, 8) = (/&
&6.1652e-04_jprb,5.4081e-04_jprb,4.6545e-04_jprb,3.9056e-04_jprb,3.1379e-04_jprb,9.9114e-05_jprb,&
&1.3949e-05_jprb,3.9239e-06_jprb,4.2520e-04_jprb/)
kao( :, 2, 9, 8) = (/&
&6.0629e-04_jprb,5.3376e-04_jprb,4.6202e-04_jprb,3.8990e-04_jprb,3.1655e-04_jprb,2.3544e-04_jprb,&
&3.7382e-05_jprb,8.6951e-06_jprb,8.3044e-04_jprb/)
kao( :, 3, 9, 8) = (/&
&5.9694e-04_jprb,5.2858e-04_jprb,4.6094e-04_jprb,3.9128e-04_jprb,3.1984e-04_jprb,2.4585e-04_jprb,&
&4.7453e-05_jprb,1.1219e-05_jprb,1.4978e-03_jprb/)
kao( :, 4, 9, 8) = (/&
&5.8812e-04_jprb,5.2540e-04_jprb,4.6162e-04_jprb,3.9424e-04_jprb,3.2635e-04_jprb,2.5585e-04_jprb,&
&1.3793e-04_jprb,1.5823e-05_jprb,2.5315e-03_jprb/)
kao( :, 5, 9, 8) = (/&
&5.8094e-04_jprb,5.2489e-04_jprb,4.6409e-04_jprb,4.0156e-04_jprb,3.3516e-04_jprb,2.6461e-04_jprb,&
&1.8608e-04_jprb,1.9887e-05_jprb,4.0512e-03_jprb/)
kao( :, 1,10, 8) = (/&
&6.2969e-04_jprb,5.5181e-04_jprb,4.7454e-04_jprb,3.9703e-04_jprb,3.1724e-04_jprb,6.5127e-05_jprb,&
&3.7452e-06_jprb,3.2741e-06_jprb,1.1769e-03_jprb/)
kao( :, 2,10, 8) = (/&
&6.1957e-04_jprb,5.4459e-04_jprb,4.7029e-04_jprb,3.9585e-04_jprb,3.1968e-04_jprb,1.3041e-04_jprb,&
&2.4515e-05_jprb,7.2975e-06_jprb,2.4417e-03_jprb/)
kao( :, 3,10, 8) = (/&
&6.0939e-04_jprb,5.3813e-04_jprb,4.6769e-04_jprb,3.9651e-04_jprb,3.2305e-04_jprb,2.4182e-04_jprb,&
&4.3807e-05_jprb,1.1783e-05_jprb,4.6287e-03_jprb/)
kao( :, 4,10, 8) = (/&
&5.9955e-04_jprb,5.3329e-04_jprb,4.6744e-04_jprb,3.9835e-04_jprb,3.2790e-04_jprb,2.5437e-04_jprb,&
&4.6423e-05_jprb,1.1970e-05_jprb,8.1527e-03_jprb/)
kao( :, 5,10, 8) = (/&
&5.9051e-04_jprb,5.3069e-04_jprb,4.6841e-04_jprb,4.0335e-04_jprb,3.3599e-04_jprb,2.6411e-04_jprb,&
&1.6905e-04_jprb,1.8347e-05_jprb,1.3511e-02_jprb/)
kao( :, 1,11, 8) = (/&
&6.3270e-04_jprb,5.5469e-04_jprb,4.7693e-04_jprb,3.9917e-04_jprb,3.1669e-04_jprb,6.3388e-05_jprb,&
&3.6721e-06_jprb,3.2147e-07_jprb,1.7207e-03_jprb/)
kao( :, 2,11, 8) = (/&
&6.2323e-04_jprb,5.4792e-04_jprb,4.7320e-04_jprb,3.9836e-04_jprb,3.2132e-04_jprb,8.3669e-05_jprb,&
&2.5421e-05_jprb,6.2024e-06_jprb,3.6065e-03_jprb/)
kao( :, 3,11, 8) = (/&
&6.1343e-04_jprb,5.4174e-04_jprb,4.7120e-04_jprb,3.9965e-04_jprb,3.2524e-04_jprb,2.3807e-04_jprb,&
&4.5288e-05_jprb,1.1010e-05_jprb,6.9077e-03_jprb/)
kao( :, 4,11, 8) = (/&
&6.0422e-04_jprb,5.3760e-04_jprb,4.7151e-04_jprb,4.0215e-04_jprb,3.3145e-04_jprb,2.5596e-04_jprb,&
&4.6438e-05_jprb,1.1046e-05_jprb,1.2276e-02_jprb/)
kao( :, 5,11, 8) = (/&
&5.9513e-04_jprb,5.3553e-04_jprb,4.7292e-04_jprb,4.0786e-04_jprb,3.3977e-04_jprb,2.6645e-04_jprb,&
&1.3530e-04_jprb,1.8396e-05_jprb,2.0378e-02_jprb/)
kao( :, 1,12, 8) = (/&
&6.3015e-04_jprb,5.5264e-04_jprb,4.7514e-04_jprb,3.9757e-04_jprb,3.1556e-04_jprb,6.0378e-05_jprb,&
&5.1686e-06_jprb,4.1217e-06_jprb,1.9089e-03_jprb/)
kao( :, 2,12, 8) = (/&
&6.2156e-04_jprb,5.4661e-04_jprb,4.7228e-04_jprb,3.9794e-04_jprb,3.2115e-04_jprb,9.3459e-05_jprb,&
&3.5910e-05_jprb,6.9491e-06_jprb,4.0407e-03_jprb/)
kao( :, 3,12, 8) = (/&
&6.1284e-04_jprb,5.4153e-04_jprb,4.7137e-04_jprb,3.9993e-04_jprb,3.2562e-04_jprb,2.3942e-04_jprb,&
&4.5459e-05_jprb,1.2207e-05_jprb,7.7972e-03_jprb/)
kao( :, 4,12, 8) = (/&
&6.0431e-04_jprb,5.3827e-04_jprb,4.7217e-04_jprb,4.0315e-04_jprb,3.3297e-04_jprb,2.5722e-04_jprb,&
&4.4991e-05_jprb,1.1842e-05_jprb,1.3838e-02_jprb/)
kao( :, 5,12, 8) = (/&
&5.9614e-04_jprb,5.3719e-04_jprb,4.7459e-04_jprb,4.0965e-04_jprb,3.4109e-04_jprb,2.6763e-04_jprb,&
&1.4327e-04_jprb,1.6122e-05_jprb,2.2897e-02_jprb/)
kao( :, 1,13, 8) = (/&
&6.2067e-04_jprb,5.4442e-04_jprb,4.6829e-04_jprb,3.9206e-04_jprb,3.1059e-04_jprb,5.4570e-05_jprb,&
&2.5324e-05_jprb,1.9027e-06_jprb,1.7246e-03_jprb/)
kao( :, 2,13, 8) = (/&
&6.1333e-04_jprb,5.3966e-04_jprb,4.6657e-04_jprb,3.9353e-04_jprb,3.1741e-04_jprb,1.0184e-04_jprb,&
&4.1822e-05_jprb,6.3468e-06_jprb,3.6765e-03_jprb/)
kao( :, 3,13, 8) = (/&
&6.0610e-04_jprb,5.3617e-04_jprb,4.6704e-04_jprb,3.9622e-04_jprb,3.2317e-04_jprb,2.3665e-04_jprb,&
&4.5927e-05_jprb,1.1176e-05_jprb,7.0786e-03_jprb/)
kao( :, 4,13, 8) = (/&
&5.9902e-04_jprb,5.3443e-04_jprb,4.6878e-04_jprb,4.0069e-04_jprb,3.3118e-04_jprb,2.5588e-04_jprb,&
&4.4674e-05_jprb,1.1239e-05_jprb,1.2524e-02_jprb/)
kao( :, 5,13, 8) = (/&
&5.9234e-04_jprb,5.3454e-04_jprb,4.7242e-04_jprb,4.0791e-04_jprb,3.3951e-04_jprb,2.6646e-04_jprb,&
&1.4670e-04_jprb,2.0921e-05_jprb,2.0681e-02_jprb/)


!     -----------------------------------------------------------------
RETURN
END SUBROUTINE rrtm_kgb7_a1