rrtm_kgb16_A2.F90

Go to the documentation of this file.

!OCL SCALAR
SUBROUTINE rrtm_kgb16_a2

!     Originally by Eli J. Mlawer, Atmospheric & Environmental Research.
!     BAND 16:  2600-3000 cm-1 (low - H2O,CH4; high - nothing)
!     Reformatted for F90 by JJMorcrette, ECMWF
!     Reformatted for NEC by H.Gallée   , LGGE  (splitting)

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

#include "tsmbkind.h"

USE yoerrto16, ONLY : kao     ,selfrefo   ,fracrefao
USE yoerrta16, 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) = (/&
&1.9384e-05_jprb,2.9898e-05_jprb,3.4062e-05_jprb,3.6004e-05_jprb,3.6430e-05_jprb,3.5549e-05_jprb,&
&3.3320e-05_jprb,2.9615e-05_jprb,2.3873e-05_jprb/)
kao( :, 2, 1, 1) = (/&
&1.9436e-05_jprb,2.9740e-05_jprb,3.3708e-05_jprb,3.5476e-05_jprb,3.5843e-05_jprb,3.5033e-05_jprb,&
&3.2962e-05_jprb,2.9462e-05_jprb,2.4055e-05_jprb/)
kao( :, 3, 1, 1) = (/&
&1.9464e-05_jprb,2.9570e-05_jprb,3.3324e-05_jprb,3.4974e-05_jprb,3.5304e-05_jprb,3.4544e-05_jprb,&
&3.2637e-05_jprb,2.9289e-05_jprb,2.4237e-05_jprb/)
kao( :, 4, 1, 1) = (/&
&1.9302e-05_jprb,2.9247e-05_jprb,3.2832e-05_jprb,3.4416e-05_jprb,3.4737e-05_jprb,3.4031e-05_jprb,&
&3.2272e-05_jprb,2.9080e-05_jprb,2.4364e-05_jprb/)
kao( :, 5, 1, 1) = (/&
&1.9123e-05_jprb,2.8885e-05_jprb,3.2360e-05_jprb,3.3877e-05_jprb,3.4211e-05_jprb,3.3554e-05_jprb,&
&3.1880e-05_jprb,2.8883e-05_jprb,2.4458e-05_jprb/)
kao( :, 1, 2, 1) = (/&
&1.6583e-05_jprb,2.6012e-05_jprb,2.9608e-05_jprb,3.1154e-05_jprb,3.1427e-05_jprb,3.0616e-05_jprb,&
&2.8665e-05_jprb,2.5368e-05_jprb,2.0615e-05_jprb/)
kao( :, 2, 2, 1) = (/&
&1.6630e-05_jprb,2.5863e-05_jprb,2.9249e-05_jprb,3.0678e-05_jprb,3.0941e-05_jprb,3.0197e-05_jprb,&
&2.8392e-05_jprb,2.5270e-05_jprb,2.0786e-05_jprb/)
kao( :, 3, 2, 1) = (/&
&1.6647e-05_jprb,2.5697e-05_jprb,2.8891e-05_jprb,3.0222e-05_jprb,3.0484e-05_jprb,2.9802e-05_jprb,&
&2.8138e-05_jprb,2.5165e-05_jprb,2.0933e-05_jprb/)
kao( :, 4, 2, 1) = (/&
&1.6540e-05_jprb,2.5405e-05_jprb,2.8466e-05_jprb,2.9745e-05_jprb,3.0011e-05_jprb,2.9400e-05_jprb,&
&2.7847e-05_jprb,2.5027e-05_jprb,2.1051e-05_jprb/)
kao( :, 5, 2, 1) = (/&
&1.6324e-05_jprb,2.5032e-05_jprb,2.7991e-05_jprb,2.9251e-05_jprb,2.9530e-05_jprb,2.8984e-05_jprb,&
&2.7519e-05_jprb,2.4864e-05_jprb,2.1134e-05_jprb/)
kao( :, 1, 3, 1) = (/&
&1.4086e-05_jprb,2.2526e-05_jprb,2.5577e-05_jprb,2.6862e-05_jprb,2.7021e-05_jprb,2.6302e-05_jprb,&
&2.4576e-05_jprb,2.1643e-05_jprb,1.8751e-05_jprb/)
kao( :, 2, 3, 1) = (/&
&1.4131e-05_jprb,2.2392e-05_jprb,2.5264e-05_jprb,2.6452e-05_jprb,2.6617e-05_jprb,2.5964e-05_jprb,&
&2.4370e-05_jprb,2.1595e-05_jprb,1.8898e-05_jprb/)
kao( :, 3, 3, 1) = (/&
&1.4113e-05_jprb,2.2191e-05_jprb,2.4900e-05_jprb,2.6018e-05_jprb,2.6215e-05_jprb,2.5621e-05_jprb,&
&2.4158e-05_jprb,2.1540e-05_jprb,1.9048e-05_jprb/)
kao( :, 4, 3, 1) = (/&
&1.4058e-05_jprb,2.1961e-05_jprb,2.4548e-05_jprb,2.5623e-05_jprb,2.5838e-05_jprb,2.5312e-05_jprb,&
&2.3952e-05_jprb,2.1469e-05_jprb,1.9182e-05_jprb/)
kao( :, 5, 3, 1) = (/&
&1.3863e-05_jprb,2.1619e-05_jprb,2.4113e-05_jprb,2.5184e-05_jprb,2.5419e-05_jprb,2.4957e-05_jprb,&
&2.3697e-05_jprb,2.1357e-05_jprb,1.9265e-05_jprb/)
kao( :, 1, 4, 1) = (/&
&1.1900e-05_jprb,1.9396e-05_jprb,2.1993e-05_jprb,2.3049e-05_jprb,2.3163e-05_jprb,2.2508e-05_jprb,&
&2.0982e-05_jprb,1.8407e-05_jprb,1.7094e-05_jprb/)
kao( :, 2, 4, 1) = (/&
&1.1936e-05_jprb,1.9289e-05_jprb,2.1740e-05_jprb,2.2712e-05_jprb,2.2827e-05_jprb,2.2234e-05_jprb,&
&2.0833e-05_jprb,1.8390e-05_jprb,1.7367e-05_jprb/)
kao( :, 3, 4, 1) = (/&
&1.1914e-05_jprb,1.9113e-05_jprb,2.1420e-05_jprb,2.2348e-05_jprb,2.2488e-05_jprb,2.1958e-05_jprb,&
&2.0668e-05_jprb,1.8368e-05_jprb,1.7624e-05_jprb/)
kao( :, 4, 4, 1) = (/&
&1.1850e-05_jprb,1.8882e-05_jprb,2.1069e-05_jprb,2.1971e-05_jprb,2.2145e-05_jprb,2.1684e-05_jprb,&
&2.0493e-05_jprb,1.8332e-05_jprb,1.7862e-05_jprb/)
kao( :, 5, 4, 1) = (/&
&1.1744e-05_jprb,1.8626e-05_jprb,2.0733e-05_jprb,2.1634e-05_jprb,2.1819e-05_jprb,2.1414e-05_jprb,&
&2.0321e-05_jprb,1.8279e-05_jprb,1.8065e-05_jprb/)
kao( :, 1, 5, 1) = (/&
&1.0007e-05_jprb,1.6633e-05_jprb,1.8846e-05_jprb,1.9714e-05_jprb,1.9792e-05_jprb,1.9192e-05_jprb,&
&1.7849e-05_jprb,1.5620e-05_jprb,1.4831e-05_jprb/)
kao( :, 2, 5, 1) = (/&
&1.0036e-05_jprb,1.6537e-05_jprb,1.8619e-05_jprb,1.9430e-05_jprb,1.9510e-05_jprb,1.8974e-05_jprb,&
&1.7727e-05_jprb,1.5597e-05_jprb,1.5243e-05_jprb/)
kao( :, 3, 5, 1) = (/&
&1.0020e-05_jprb,1.6382e-05_jprb,1.8357e-05_jprb,1.9125e-05_jprb,1.9225e-05_jprb,1.8747e-05_jprb,&
&1.7610e-05_jprb,1.5596e-05_jprb,1.5694e-05_jprb/)
kao( :, 4, 5, 1) = (/&
&9.9655e-06_jprb,1.6185e-05_jprb,1.8047e-05_jprb,1.8806e-05_jprb,1.8930e-05_jprb,1.8511e-05_jprb,&
&1.7475e-05_jprb,1.5592e-05_jprb,1.6134e-05_jprb/)
kao( :, 5, 5, 1) = (/&
&9.8924e-06_jprb,1.5961e-05_jprb,1.7750e-05_jprb,1.8511e-05_jprb,1.8653e-05_jprb,1.8287e-05_jprb,&
&1.7340e-05_jprb,1.5571e-05_jprb,1.6528e-05_jprb/)
kao( :, 1, 6, 1) = (/&
&8.3773e-06_jprb,1.4205e-05_jprb,1.6091e-05_jprb,1.6810e-05_jprb,1.6854e-05_jprb,1.6312e-05_jprb,&
&1.5134e-05_jprb,1.3227e-05_jprb,1.2806e-05_jprb/)
kao( :, 2, 6, 1) = (/&
&8.4040e-06_jprb,1.4116e-05_jprb,1.5890e-05_jprb,1.6565e-05_jprb,1.6618e-05_jprb,1.6134e-05_jprb,&
&1.5030e-05_jprb,1.3175e-05_jprb,1.3188e-05_jprb/)
kao( :, 3, 6, 1) = (/&
&8.3967e-06_jprb,1.3982e-05_jprb,1.5670e-05_jprb,1.6315e-05_jprb,1.6378e-05_jprb,1.5948e-05_jprb,&
&1.4938e-05_jprb,1.3181e-05_jprb,1.3640e-05_jprb/)
kao( :, 4, 6, 1) = (/&
&8.3520e-06_jprb,1.3808e-05_jprb,1.5410e-05_jprb,1.6041e-05_jprb,1.6129e-05_jprb,1.5748e-05_jprb,&
&1.4840e-05_jprb,1.3187e-05_jprb,1.4105e-05_jprb/)
kao( :, 5, 6, 1) = (/&
&8.2808e-06_jprb,1.3600e-05_jprb,1.5125e-05_jprb,1.5766e-05_jprb,1.5873e-05_jprb,1.5546e-05_jprb,&
&1.4725e-05_jprb,1.3184e-05_jprb,1.4585e-05_jprb/)
kao( :, 1, 7, 1) = (/&
&6.9702e-06_jprb,1.2049e-05_jprb,1.3655e-05_jprb,1.4254e-05_jprb,1.4272e-05_jprb,1.3786e-05_jprb,&
&1.2775e-05_jprb,1.1193e-05_jprb,1.1151e-05_jprb/)
kao( :, 2, 7, 1) = (/&
&6.9954e-06_jprb,1.1967e-05_jprb,1.3478e-05_jprb,1.4043e-05_jprb,1.4073e-05_jprb,1.3643e-05_jprb,&
&1.2677e-05_jprb,1.1085e-05_jprb,1.1514e-05_jprb/)
kao( :, 3, 7, 1) = (/&
&6.9926e-06_jprb,1.1851e-05_jprb,1.3284e-05_jprb,1.3826e-05_jprb,1.3871e-05_jprb,1.3488e-05_jprb,&
&1.2600e-05_jprb,1.1081e-05_jprb,1.1911e-05_jprb/)
kao( :, 4, 7, 1) = (/&
&6.9597e-06_jprb,1.1700e-05_jprb,1.3068e-05_jprb,1.3600e-05_jprb,1.3659e-05_jprb,1.3321e-05_jprb,&
&1.2522e-05_jprb,1.1091e-05_jprb,1.2356e-05_jprb/)
kao( :, 5, 7, 1) = (/&
&6.9051e-06_jprb,1.1522e-05_jprb,1.2825e-05_jprb,1.3359e-05_jprb,1.3444e-05_jprb,1.3151e-05_jprb,&
&1.2435e-05_jprb,1.1100e-05_jprb,1.2847e-05_jprb/)
kao( :, 1, 8, 1) = (/&
&5.8087e-06_jprb,1.0208e-05_jprb,1.1579e-05_jprb,1.2087e-05_jprb,1.2081e-05_jprb,1.1640e-05_jprb,&
&1.0763e-05_jprb,9.5182e-06_jprb,9.7914e-06_jprb/)
kao( :, 2, 8, 1) = (/&
&5.8314e-06_jprb,1.0134e-05_jprb,1.1429e-05_jprb,1.1911e-05_jprb,1.1918e-05_jprb,1.1522e-05_jprb,&
&1.0685e-05_jprb,9.3144e-06_jprb,1.0107e-05_jprb/)
kao( :, 3, 8, 1) = (/&
&5.8306e-06_jprb,1.0039e-05_jprb,1.1263e-05_jprb,1.1721e-05_jprb,1.1741e-05_jprb,1.1392e-05_jprb,&
&1.0611e-05_jprb,9.2970e-06_jprb,1.0491e-05_jprb/)
kao( :, 4, 8, 1) = (/&
&5.8084e-06_jprb,9.9094e-06_jprb,1.1082e-05_jprb,1.1528e-05_jprb,1.1564e-05_jprb,1.1253e-05_jprb,&
&1.0543e-05_jprb,9.3028e-06_jprb,1.0943e-05_jprb/)
kao( :, 5, 8, 1) = (/&
&5.7671e-06_jprb,9.7597e-06_jprb,1.0878e-05_jprb,1.1322e-05_jprb,1.1380e-05_jprb,1.1112e-05_jprb,&
&1.0475e-05_jprb,9.3153e-06_jprb,1.1451e-05_jprb/)
kao( :, 1, 9, 1) = (/&
&4.8301e-06_jprb,8.6067e-06_jprb,9.7714e-06_jprb,1.0210e-05_jprb,1.0192e-05_jprb,9.7977e-06_jprb,&
&9.0505e-06_jprb,8.2004e-06_jprb,9.1168e-06_jprb/)
kao( :, 2, 9, 1) = (/&
&4.8495e-06_jprb,8.5468e-06_jprb,9.6571e-06_jprb,1.0063e-05_jprb,1.0051e-05_jprb,9.6903e-06_jprb,&
&8.9660e-06_jprb,7.8251e-06_jprb,9.4876e-06_jprb/)
kao( :, 3, 9, 1) = (/&
&4.8497e-06_jprb,8.4643e-06_jprb,9.5144e-06_jprb,9.9014e-06_jprb,9.9028e-06_jprb,9.5821e-06_jprb,&
&8.9043e-06_jprb,7.7718e-06_jprb,9.9373e-06_jprb/)
kao( :, 4, 9, 1) = (/&
&4.8347e-06_jprb,8.3597e-06_jprb,9.3601e-06_jprb,9.7348e-06_jprb,9.7523e-06_jprb,9.4691e-06_jprb,&
&8.8479e-06_jprb,7.7751e-06_jprb,1.0480e-05_jprb/)
kao( :, 5, 9, 1) = (/&
&4.8060e-06_jprb,8.2344e-06_jprb,9.1913e-06_jprb,9.5624e-06_jprb,9.5965e-06_jprb,9.3522e-06_jprb,&
&8.7881e-06_jprb,7.7833e-06_jprb,1.1108e-05_jprb/)
kao( :, 1,10, 1) = (/&
&4.0064e-06_jprb,7.2194e-06_jprb,8.1998e-06_jprb,8.5791e-06_jprb,8.5570e-06_jprb,8.2127e-06_jprb,&
&7.5956e-06_jprb,7.1868e-06_jprb,1.0453e-05_jprb/)
kao( :, 2,10, 1) = (/&
&4.0197e-06_jprb,7.1679e-06_jprb,8.1105e-06_jprb,8.4531e-06_jprb,8.4331e-06_jprb,8.1149e-06_jprb,&
&7.4918e-06_jprb,6.5776e-06_jprb,1.0520e-05_jprb/)
kao( :, 3,10, 1) = (/&
&4.0198e-06_jprb,7.0974e-06_jprb,7.9934e-06_jprb,8.3195e-06_jprb,8.3088e-06_jprb,8.0216e-06_jprb,&
&7.4367e-06_jprb,6.4788e-06_jprb,1.0711e-05_jprb/)
kao( :, 4,10, 1) = (/&
&4.0097e-06_jprb,7.0130e-06_jprb,7.8610e-06_jprb,8.1737e-06_jprb,8.1778e-06_jprb,7.9289e-06_jprb,&
&7.3886e-06_jprb,6.4723e-06_jprb,1.1047e-05_jprb/)
kao( :, 5,10, 1) = (/&
&3.9884e-06_jprb,6.9092e-06_jprb,7.7198e-06_jprb,8.0283e-06_jprb,8.0487e-06_jprb,7.8282e-06_jprb,&
&7.3394e-06_jprb,6.4785e-06_jprb,1.1524e-05_jprb/)
kao( :, 1,11, 1) = (/&
&3.3235e-06_jprb,6.0184e-06_jprb,6.8284e-06_jprb,7.1399e-06_jprb,7.1176e-06_jprb,6.8268e-06_jprb,&
&6.3069e-06_jprb,5.9015e-06_jprb,1.0775e-05_jprb/)
kao( :, 2,11, 1) = (/&
&3.3290e-06_jprb,5.9691e-06_jprb,6.7492e-06_jprb,7.0301e-06_jprb,7.0090e-06_jprb,6.7423e-06_jprb,&
&6.2217e-06_jprb,5.4471e-06_jprb,1.0671e-05_jprb/)
kao( :, 3,11, 1) = (/&
&3.3251e-06_jprb,5.9052e-06_jprb,6.6470e-06_jprb,6.9153e-06_jprb,6.9027e-06_jprb,6.6631e-06_jprb,&
&6.1768e-06_jprb,5.3794e-06_jprb,1.0714e-05_jprb/)
kao( :, 4,11, 1) = (/&
&3.3144e-06_jprb,5.8297e-06_jprb,6.5309e-06_jprb,6.7910e-06_jprb,6.7926e-06_jprb,6.5831e-06_jprb,&
&6.1358e-06_jprb,5.3736e-06_jprb,1.0902e-05_jprb/)
kao( :, 5,11, 1) = (/&
&3.2953e-06_jprb,5.7419e-06_jprb,6.4131e-06_jprb,6.6688e-06_jprb,6.6812e-06_jprb,6.4951e-06_jprb,&
&6.0888e-06_jprb,5.3759e-06_jprb,1.1211e-05_jprb/)
kao( :, 1,12, 1) = (/&
&2.7539e-06_jprb,5.0055e-06_jprb,5.6748e-06_jprb,5.9323e-06_jprb,5.9106e-06_jprb,5.6659e-06_jprb,&
&5.2301e-06_jprb,4.8410e-06_jprb,1.0041e-05_jprb/)
kao( :, 2,12, 1) = (/&
&2.7540e-06_jprb,4.9609e-06_jprb,5.6055e-06_jprb,5.8388e-06_jprb,5.8173e-06_jprb,5.5933e-06_jprb,&
&5.1585e-06_jprb,4.5035e-06_jprb,9.8783e-06_jprb/)
kao( :, 3,12, 1) = (/&
&2.7488e-06_jprb,4.9048e-06_jprb,5.5190e-06_jprb,5.7407e-06_jprb,5.7275e-06_jprb,5.5257e-06_jprb,&
&5.1201e-06_jprb,4.4556e-06_jprb,9.8584e-06_jprb/)
kao( :, 4,12, 1) = (/&
&2.7385e-06_jprb,4.8395e-06_jprb,5.4207e-06_jprb,5.6356e-06_jprb,5.6337e-06_jprb,5.4559e-06_jprb,&
&5.0826e-06_jprb,4.4482e-06_jprb,9.9631e-06_jprb/)
kao( :, 5,12, 1) = (/&
&2.7214e-06_jprb,4.7654e-06_jprb,5.3225e-06_jprb,5.5318e-06_jprb,5.5373e-06_jprb,5.3782e-06_jprb,&
&5.0386e-06_jprb,4.4476e-06_jprb,1.0178e-05_jprb/)
kao( :, 1,13, 1) = (/&
&2.2801e-06_jprb,4.1555e-06_jprb,4.7093e-06_jprb,4.9224e-06_jprb,4.9034e-06_jprb,4.6982e-06_jprb,&
&4.3297e-06_jprb,3.9733e-06_jprb,8.4129e-06_jprb/)
kao( :, 2,13, 1) = (/&
&2.2770e-06_jprb,4.1173e-06_jprb,4.6509e-06_jprb,4.8443e-06_jprb,4.8245e-06_jprb,4.6351e-06_jprb,&
&4.2708e-06_jprb,3.7196e-06_jprb,8.2708e-06_jprb/)
kao( :, 3,13, 1) = (/&
&2.2712e-06_jprb,4.0679e-06_jprb,4.5774e-06_jprb,4.7613e-06_jprb,4.7480e-06_jprb,4.5771e-06_jprb,&
&4.2377e-06_jprb,3.6828e-06_jprb,8.2482e-06_jprb/)
kao( :, 4,13, 1) = (/&
&2.2616e-06_jprb,4.0128e-06_jprb,4.4962e-06_jprb,4.6740e-06_jprb,4.6674e-06_jprb,4.5144e-06_jprb,&
&4.2021e-06_jprb,3.6746e-06_jprb,8.3289e-06_jprb/)
kao( :, 5,13, 1) = (/&
&2.2466e-06_jprb,3.9523e-06_jprb,4.4147e-06_jprb,4.5851e-06_jprb,4.5844e-06_jprb,4.4468e-06_jprb,&
&4.1612e-06_jprb,3.6696e-06_jprb,8.4982e-06_jprb/)
kao( :, 1, 1, 2) = (/&
&4.5009e-05_jprb,5.8537e-05_jprb,6.2677e-05_jprb,6.4420e-05_jprb,6.4899e-05_jprb,6.4046e-05_jprb,&
&6.1758e-05_jprb,5.7308e-05_jprb,4.4974e-05_jprb/)
kao( :, 2, 1, 2) = (/&
&4.4639e-05_jprb,5.7851e-05_jprb,6.2018e-05_jprb,6.3985e-05_jprb,6.4709e-05_jprb,6.3972e-05_jprb,&
&6.1776e-05_jprb,5.7584e-05_jprb,4.6032e-05_jprb/)
kao( :, 3, 1, 2) = (/&
&4.4183e-05_jprb,5.7134e-05_jprb,6.1429e-05_jprb,6.3594e-05_jprb,6.4467e-05_jprb,6.3906e-05_jprb,&
&6.1866e-05_jprb,5.7909e-05_jprb,4.7065e-05_jprb/)
kao( :, 4, 1, 2) = (/&
&4.3603e-05_jprb,5.6311e-05_jprb,6.0747e-05_jprb,6.3098e-05_jprb,6.4110e-05_jprb,6.3723e-05_jprb,&
&6.1859e-05_jprb,5.8107e-05_jprb,4.8038e-05_jprb/)
kao( :, 5, 1, 2) = (/&
&4.3016e-05_jprb,5.5575e-05_jprb,6.0089e-05_jprb,6.2604e-05_jprb,6.3758e-05_jprb,6.3526e-05_jprb,&
&6.1825e-05_jprb,5.8256e-05_jprb,4.8937e-05_jprb/)
kao( :, 1, 2, 2) = (/&
&3.8991e-05_jprb,5.1237e-05_jprb,5.5073e-05_jprb,5.6912e-05_jprb,5.7291e-05_jprb,5.6357e-05_jprb,&
&5.4136e-05_jprb,4.9871e-05_jprb,3.8345e-05_jprb/)
kao( :, 2, 2, 2) = (/&
&3.8628e-05_jprb,5.0611e-05_jprb,5.4618e-05_jprb,5.6670e-05_jprb,5.7177e-05_jprb,5.6367e-05_jprb,&
&5.4237e-05_jprb,5.0203e-05_jprb,3.9241e-05_jprb/)
kao( :, 3, 2, 2) = (/&
&3.8218e-05_jprb,5.0047e-05_jprb,5.4219e-05_jprb,5.6458e-05_jprb,5.7088e-05_jprb,5.6414e-05_jprb,&
&5.4375e-05_jprb,5.0554e-05_jprb,4.0182e-05_jprb/)
kao( :, 4, 2, 2) = (/&
&3.7696e-05_jprb,4.9413e-05_jprb,5.3740e-05_jprb,5.6131e-05_jprb,5.6939e-05_jprb,5.6393e-05_jprb,&
&5.4506e-05_jprb,5.0827e-05_jprb,4.1063e-05_jprb/)
kao( :, 5, 2, 2) = (/&
&3.7087e-05_jprb,4.8772e-05_jprb,5.3212e-05_jprb,5.5737e-05_jprb,5.6714e-05_jprb,5.6323e-05_jprb,&
&5.4580e-05_jprb,5.1064e-05_jprb,4.1833e-05_jprb/)
kao( :, 1, 3, 2) = (/&
&3.3664e-05_jprb,4.4718e-05_jprb,4.8316e-05_jprb,5.0054e-05_jprb,5.0316e-05_jprb,4.9337e-05_jprb,&
&4.7131e-05_jprb,4.3067e-05_jprb,3.3821e-05_jprb/)
kao( :, 2, 3, 2) = (/&
&3.3332e-05_jprb,4.4193e-05_jprb,4.7982e-05_jprb,4.9921e-05_jprb,5.0286e-05_jprb,4.9400e-05_jprb,&
&4.7278e-05_jprb,4.3395e-05_jprb,3.4508e-05_jprb/)
kao( :, 3, 3, 2) = (/&
&3.2912e-05_jprb,4.3709e-05_jprb,4.7689e-05_jprb,4.9796e-05_jprb,5.0261e-05_jprb,4.9490e-05_jprb,&
&4.7455e-05_jprb,4.3769e-05_jprb,3.5275e-05_jprb/)
kao( :, 4, 3, 2) = (/&
&3.2477e-05_jprb,4.3262e-05_jprb,4.7404e-05_jprb,4.9658e-05_jprb,5.0286e-05_jprb,4.9612e-05_jprb,&
&4.7676e-05_jprb,4.4119e-05_jprb,3.6032e-05_jprb/)
kao( :, 5, 3, 2) = (/&
&3.1897e-05_jprb,4.2732e-05_jprb,4.7020e-05_jprb,4.9397e-05_jprb,5.0209e-05_jprb,4.9662e-05_jprb,&
&4.7863e-05_jprb,4.4408e-05_jprb,3.6739e-05_jprb/)
kao( :, 1, 4, 2) = (/&
&2.9034e-05_jprb,3.9020e-05_jprb,4.2255e-05_jprb,4.3779e-05_jprb,4.3941e-05_jprb,4.2940e-05_jprb,&
&4.0749e-05_jprb,3.6991e-05_jprb,3.2231e-05_jprb/)
kao( :, 2, 4, 2) = (/&
&2.8733e-05_jprb,3.8566e-05_jprb,4.1993e-05_jprb,4.3688e-05_jprb,4.3978e-05_jprb,4.3065e-05_jprb,&
&4.0955e-05_jprb,3.7298e-05_jprb,3.2530e-05_jprb/)
kao( :, 3, 4, 2) = (/&
&2.8365e-05_jprb,3.8166e-05_jprb,4.1800e-05_jprb,4.3640e-05_jprb,4.4034e-05_jprb,4.3186e-05_jprb,&
&4.1171e-05_jprb,3.7663e-05_jprb,3.3003e-05_jprb/)
kao( :, 4, 4, 2) = (/&
&2.7906e-05_jprb,3.7772e-05_jprb,4.1598e-05_jprb,4.3582e-05_jprb,4.4101e-05_jprb,4.3335e-05_jprb,&
&4.1429e-05_jprb,3.8018e-05_jprb,3.3543e-05_jprb/)
kao( :, 5, 4, 2) = (/&
&2.7464e-05_jprb,3.7412e-05_jprb,4.1395e-05_jprb,4.3505e-05_jprb,4.4180e-05_jprb,4.3547e-05_jprb,&
&4.1708e-05_jprb,3.8366e-05_jprb,3.4090e-05_jprb/)
kao( :, 1, 5, 2) = (/&
&2.5046e-05_jprb,3.4030e-05_jprb,3.6841e-05_jprb,3.8123e-05_jprb,3.8161e-05_jprb,3.7165e-05_jprb,&
&3.5069e-05_jprb,3.1597e-05_jprb,3.1884e-05_jprb/)
kao( :, 2, 5, 2) = (/&
&2.4766e-05_jprb,3.3630e-05_jprb,3.6644e-05_jprb,3.8042e-05_jprb,3.8206e-05_jprb,3.7320e-05_jprb,&
&3.5335e-05_jprb,3.1911e-05_jprb,3.2055e-05_jprb/)
kao( :, 3, 5, 2) = (/&
&2.4433e-05_jprb,3.3294e-05_jprb,3.6479e-05_jprb,3.8027e-05_jprb,3.8311e-05_jprb,3.7468e-05_jprb,&
&3.5564e-05_jprb,3.2236e-05_jprb,3.2305e-05_jprb/)
kao( :, 4, 5, 2) = (/&
&2.4018e-05_jprb,3.2959e-05_jprb,3.6349e-05_jprb,3.8027e-05_jprb,3.8418e-05_jprb,3.7650e-05_jprb,&
&3.5828e-05_jprb,3.2583e-05_jprb,3.2642e-05_jprb/)
kao( :, 5, 5, 2) = (/&
&2.3591e-05_jprb,3.2668e-05_jprb,3.6232e-05_jprb,3.8051e-05_jprb,3.8551e-05_jprb,3.7905e-05_jprb,&
&3.6128e-05_jprb,3.2939e-05_jprb,3.3008e-05_jprb/)
kao( :, 1, 6, 2) = (/&
&2.1579e-05_jprb,2.9591e-05_jprb,3.1991e-05_jprb,3.3013e-05_jprb,3.2936e-05_jprb,3.1944e-05_jprb,&
&3.0025e-05_jprb,2.6876e-05_jprb,2.9999e-05_jprb/)
kao( :, 2, 6, 2) = (/&
&2.1317e-05_jprb,2.9255e-05_jprb,3.1830e-05_jprb,3.2965e-05_jprb,3.2983e-05_jprb,3.2102e-05_jprb,&
&3.0272e-05_jprb,2.7170e-05_jprb,3.0568e-05_jprb/)
kao( :, 3, 6, 2) = (/&
&2.1011e-05_jprb,2.8952e-05_jprb,3.1684e-05_jprb,3.2945e-05_jprb,3.3093e-05_jprb,3.2263e-05_jprb,&
&3.0533e-05_jprb,2.7474e-05_jprb,3.1151e-05_jprb/)
kao( :, 4, 6, 2) = (/&
&2.0627e-05_jprb,2.8670e-05_jprb,3.1569e-05_jprb,3.2960e-05_jprb,3.3217e-05_jprb,3.2461e-05_jprb,&
&3.0780e-05_jprb,2.7789e-05_jprb,3.1790e-05_jprb/)
kao( :, 5, 6, 2) = (/&
&2.0182e-05_jprb,2.8368e-05_jprb,3.1449e-05_jprb,3.2969e-05_jprb,3.3342e-05_jprb,3.2673e-05_jprb,&
&3.1052e-05_jprb,2.8119e-05_jprb,3.2386e-05_jprb/)
kao( :, 1, 7, 2) = (/&
&1.8452e-05_jprb,2.5532e-05_jprb,2.7551e-05_jprb,2.8351e-05_jprb,2.8204e-05_jprb,2.7262e-05_jprb,&
&2.5546e-05_jprb,2.2740e-05_jprb,2.8091e-05_jprb/)
kao( :, 2, 7, 2) = (/&
&1.8215e-05_jprb,2.5256e-05_jprb,2.7416e-05_jprb,2.8318e-05_jprb,2.8249e-05_jprb,2.7395e-05_jprb,&
&2.5765e-05_jprb,2.3002e-05_jprb,2.8720e-05_jprb/)
kao( :, 3, 7, 2) = (/&
&1.7931e-05_jprb,2.4972e-05_jprb,2.7294e-05_jprb,2.8314e-05_jprb,2.8348e-05_jprb,2.7572e-05_jprb,&
&2.6008e-05_jprb,2.3291e-05_jprb,2.9431e-05_jprb/)
kao( :, 4, 7, 2) = (/&
&1.7583e-05_jprb,2.4714e-05_jprb,2.7183e-05_jprb,2.8322e-05_jprb,2.8484e-05_jprb,2.7765e-05_jprb,&
&2.6265e-05_jprb,2.3586e-05_jprb,3.0235e-05_jprb/)
kao( :, 5, 7, 2) = (/&
&1.7179e-05_jprb,2.4453e-05_jprb,2.7076e-05_jprb,2.8339e-05_jprb,2.8609e-05_jprb,2.7972e-05_jprb,&
&2.6510e-05_jprb,2.3882e-05_jprb,3.1083e-05_jprb/)
kao( :, 1, 8, 2) = (/&
&1.5794e-05_jprb,2.2020e-05_jprb,2.3670e-05_jprb,2.4259e-05_jprb,2.4056e-05_jprb,2.3178e-05_jprb,&
&2.1635e-05_jprb,1.9134e-05_jprb,2.7582e-05_jprb/)
kao( :, 2, 8, 2) = (/&
&1.5579e-05_jprb,2.1775e-05_jprb,2.3546e-05_jprb,2.4231e-05_jprb,2.4092e-05_jprb,2.3297e-05_jprb,&
&2.1816e-05_jprb,1.9397e-05_jprb,2.8313e-05_jprb/)
kao( :, 3, 8, 2) = (/&
&1.5328e-05_jprb,2.1517e-05_jprb,2.3429e-05_jprb,2.4220e-05_jprb,2.4175e-05_jprb,2.3443e-05_jprb,&
&2.2039e-05_jprb,1.9642e-05_jprb,2.9205e-05_jprb/)
kao( :, 4, 8, 2) = (/&
&1.5023e-05_jprb,2.1268e-05_jprb,2.3319e-05_jprb,2.4225e-05_jprb,2.4291e-05_jprb,2.3637e-05_jprb,&
&2.2285e-05_jprb,1.9922e-05_jprb,3.0174e-05_jprb/)
kao( :, 5, 8, 2) = (/&
&1.4668e-05_jprb,2.1020e-05_jprb,2.3208e-05_jprb,2.4227e-05_jprb,2.4407e-05_jprb,2.3824e-05_jprb,&
&2.2528e-05_jprb,2.0191e-05_jprb,3.1226e-05_jprb/)
kao( :, 1, 9, 2) = (/&
&1.3453e-05_jprb,1.8874e-05_jprb,2.0200e-05_jprb,2.0614e-05_jprb,2.0394e-05_jprb,1.9585e-05_jprb,&
&1.8218e-05_jprb,1.5952e-05_jprb,3.1081e-05_jprb/)
kao( :, 2, 9, 2) = (/&
&1.3262e-05_jprb,1.8651e-05_jprb,2.0085e-05_jprb,2.0598e-05_jprb,2.0424e-05_jprb,1.9696e-05_jprb,&
&1.8380e-05_jprb,1.6281e-05_jprb,3.2467e-05_jprb/)
kao( :, 3, 9, 2) = (/&
&1.3038e-05_jprb,1.8418e-05_jprb,1.9972e-05_jprb,2.0581e-05_jprb,2.0487e-05_jprb,1.9824e-05_jprb,&
&1.8572e-05_jprb,1.6491e-05_jprb,3.3986e-05_jprb/)
kao( :, 4, 9, 2) = (/&
&1.2776e-05_jprb,1.8181e-05_jprb,1.9859e-05_jprb,2.0572e-05_jprb,2.0585e-05_jprb,1.9985e-05_jprb,&
&1.8794e-05_jprb,1.6733e-05_jprb,3.5607e-05_jprb/)
kao( :, 5, 9, 2) = (/&
&1.2471e-05_jprb,1.7952e-05_jprb,1.9753e-05_jprb,2.0569e-05_jprb,2.0679e-05_jprb,2.0158e-05_jprb,&
&1.9021e-05_jprb,1.6980e-05_jprb,3.7340e-05_jprb/)
kao( :, 1,10, 2) = (/&
&1.1374e-05_jprb,1.6047e-05_jprb,1.7111e-05_jprb,1.7393e-05_jprb,1.7165e-05_jprb,1.6451e-05_jprb,&
&1.5255e-05_jprb,1.3140e-05_jprb,3.4787e-05_jprb/)
kao( :, 2,10, 2) = (/&
&1.1208e-05_jprb,1.5847e-05_jprb,1.6997e-05_jprb,1.7386e-05_jprb,1.7209e-05_jprb,1.6555e-05_jprb,&
&1.5407e-05_jprb,1.3598e-05_jprb,3.7476e-05_jprb/)
kao( :, 3,10, 2) = (/&
&1.1010e-05_jprb,1.5634e-05_jprb,1.6890e-05_jprb,1.7366e-05_jprb,1.7258e-05_jprb,1.6670e-05_jprb,&
&1.5570e-05_jprb,1.3793e-05_jprb,4.0426e-05_jprb/)
kao( :, 4,10, 2) = (/&
&1.0782e-05_jprb,1.5423e-05_jprb,1.6783e-05_jprb,1.7341e-05_jprb,1.7331e-05_jprb,1.6806e-05_jprb,&
&1.5764e-05_jprb,1.4000e-05_jprb,4.3679e-05_jprb/)
kao( :, 5,10, 2) = (/&
&1.0524e-05_jprb,1.5209e-05_jprb,1.6680e-05_jprb,1.7333e-05_jprb,1.7403e-05_jprb,1.6952e-05_jprb,&
&1.5975e-05_jprb,1.4224e-05_jprb,4.7059e-05_jprb/)
kao( :, 1,11, 2) = (/&
&9.5209e-06_jprb,1.3499e-05_jprb,1.4375e-05_jprb,1.4600e-05_jprb,1.4393e-05_jprb,1.3793e-05_jprb,&
&1.2781e-05_jprb,1.1038e-05_jprb,3.2865e-05_jprb/)
kao( :, 2,11, 2) = (/&
&9.3637e-06_jprb,1.3313e-05_jprb,1.4267e-05_jprb,1.4592e-05_jprb,1.4440e-05_jprb,1.3889e-05_jprb,&
&1.2920e-05_jprb,1.1404e-05_jprb,3.5445e-05_jprb/)
kao( :, 3,11, 2) = (/&
&9.1833e-06_jprb,1.3123e-05_jprb,1.4166e-05_jprb,1.4568e-05_jprb,1.4482e-05_jprb,1.3996e-05_jprb,&
&1.3070e-05_jprb,1.1568e-05_jprb,3.8218e-05_jprb/)
kao( :, 4,11, 2) = (/&
&8.9761e-06_jprb,1.2932e-05_jprb,1.4072e-05_jprb,1.4544e-05_jprb,1.4541e-05_jprb,1.4107e-05_jprb,&
&1.3243e-05_jprb,1.1758e-05_jprb,4.1117e-05_jprb/)
kao( :, 5,11, 2) = (/&
&8.7519e-06_jprb,1.2738e-05_jprb,1.3974e-05_jprb,1.4523e-05_jprb,1.4594e-05_jprb,1.4232e-05_jprb,&
&1.3426e-05_jprb,1.1955e-05_jprb,4.4210e-05_jprb/)
kao( :, 1,12, 2) = (/&
&7.9463e-06_jprb,1.1314e-05_jprb,1.2032e-05_jprb,1.2211e-05_jprb,1.2025e-05_jprb,1.1526e-05_jprb,&
&1.0676e-05_jprb,9.2413e-06_jprb,2.9106e-05_jprb/)
kao( :, 2,12, 2) = (/&
&7.8042e-06_jprb,1.1141e-05_jprb,1.1931e-05_jprb,1.2198e-05_jprb,1.2069e-05_jprb,1.1610e-05_jprb,&
&1.0799e-05_jprb,9.5264e-06_jprb,3.1349e-05_jprb/)
kao( :, 3,12, 2) = (/&
&7.6428e-06_jprb,1.0975e-05_jprb,1.1841e-05_jprb,1.2172e-05_jprb,1.2102e-05_jprb,1.1694e-05_jprb,&
&1.0928e-05_jprb,9.6721e-06_jprb,3.3866e-05_jprb/)
kao( :, 4,12, 2) = (/&
&7.4623e-06_jprb,1.0806e-05_jprb,1.1756e-05_jprb,1.2145e-05_jprb,1.2145e-05_jprb,1.1788e-05_jprb,&
&1.1076e-05_jprb,9.8394e-06_jprb,3.6457e-05_jprb/)
kao( :, 5,12, 2) = (/&
&7.2711e-06_jprb,1.0633e-05_jprb,1.1656e-05_jprb,1.2115e-05_jprb,1.2181e-05_jprb,1.1891e-05_jprb,&
&1.1228e-05_jprb,1.0010e-05_jprb,3.9156e-05_jprb/)
kao( :, 1,13, 2) = (/&
&6.6184e-06_jprb,9.4565e-06_jprb,1.0043e-05_jprb,1.0182e-05_jprb,1.0021e-05_jprb,9.6035e-06_jprb,&
&8.8893e-06_jprb,7.7053e-06_jprb,2.4435e-05_jprb/)
kao( :, 2,13, 2) = (/&
&6.4936e-06_jprb,9.3020e-06_jprb,9.9506e-06_jprb,1.0164e-05_jprb,1.0053e-05_jprb,9.6688e-06_jprb,&
&8.9931e-06_jprb,7.9311e-06_jprb,2.6318e-05_jprb/)
kao( :, 3,13, 2) = (/&
&6.3517e-06_jprb,9.1558e-06_jprb,9.8692e-06_jprb,1.0135e-05_jprb,1.0076e-05_jprb,9.7347e-06_jprb,&
&9.1027e-06_jprb,8.0612e-06_jprb,2.8419e-05_jprb/)
kao( :, 4,13, 2) = (/&
&6.1987e-06_jprb,9.0085e-06_jprb,9.7873e-06_jprb,1.0106e-05_jprb,1.0104e-05_jprb,9.8108e-06_jprb,&
&9.2254e-06_jprb,8.2025e-06_jprb,3.0596e-05_jprb/)
kao( :, 5,13, 2) = (/&
&6.0390e-06_jprb,8.8585e-06_jprb,9.6966e-06_jprb,1.0071e-05_jprb,1.0127e-05_jprb,9.8907e-06_jprb,&
&9.3441e-06_jprb,8.3431e-06_jprb,3.2866e-05_jprb/)
kao( :, 1, 1, 3) = (/&
&7.0753e-05_jprb,8.7371e-05_jprb,9.5172e-05_jprb,9.9390e-05_jprb,1.0056e-04_jprb,9.9494e-05_jprb,&
&9.5837e-05_jprb,8.9326e-05_jprb,7.4323e-05_jprb/)
kao( :, 2, 1, 3) = (/&
&6.9795e-05_jprb,8.7509e-05_jprb,9.5691e-05_jprb,9.9950e-05_jprb,1.0125e-04_jprb,1.0041e-04_jprb,&
&9.7011e-05_jprb,9.0609e-05_jprb,7.5641e-05_jprb/)
kao( :, 3, 1, 3) = (/&
&6.9131e-05_jprb,8.7916e-05_jprb,9.6468e-05_jprb,1.0076e-04_jprb,1.0214e-04_jprb,1.0141e-04_jprb,&
&9.8247e-05_jprb,9.2085e-05_jprb,7.7357e-05_jprb/)
kao( :, 4, 1, 3) = (/&
&6.8482e-05_jprb,8.8338e-05_jprb,9.7157e-05_jprb,1.0153e-04_jprb,1.0307e-04_jprb,1.0249e-04_jprb,&
&9.9530e-05_jprb,9.3696e-05_jprb,7.9379e-05_jprb/)
kao( :, 5, 1, 3) = (/&
&6.7880e-05_jprb,8.8892e-05_jprb,9.7857e-05_jprb,1.0242e-04_jprb,1.0411e-04_jprb,1.0366e-04_jprb,&
&1.0077e-04_jprb,9.5333e-05_jprb,8.1423e-05_jprb/)
kao( :, 1, 2, 3) = (/&
&6.2276e-05_jprb,7.8469e-05_jprb,8.5472e-05_jprb,8.8868e-05_jprb,8.9888e-05_jprb,8.8903e-05_jprb,&
&8.5409e-05_jprb,7.9146e-05_jprb,6.4309e-05_jprb/)
kao( :, 2, 2, 3) = (/&
&6.1522e-05_jprb,7.8775e-05_jprb,8.6027e-05_jprb,8.9487e-05_jprb,9.0686e-05_jprb,8.9927e-05_jprb,&
&8.6540e-05_jprb,8.0293e-05_jprb,6.5447e-05_jprb/)
kao( :, 3, 2, 3) = (/&
&6.1045e-05_jprb,7.9281e-05_jprb,8.6793e-05_jprb,9.0368e-05_jprb,9.1669e-05_jprb,9.0966e-05_jprb,&
&8.7713e-05_jprb,8.1579e-05_jprb,6.6858e-05_jprb/)
kao( :, 4, 2, 3) = (/&
&6.0651e-05_jprb,7.9924e-05_jprb,8.7586e-05_jprb,9.1281e-05_jprb,9.2660e-05_jprb,9.2033e-05_jprb,&
&8.8973e-05_jprb,8.3100e-05_jprb,6.8552e-05_jprb/)
kao( :, 5, 2, 3) = (/&
&6.0196e-05_jprb,8.0517e-05_jprb,8.8362e-05_jprb,9.2181e-05_jprb,9.3655e-05_jprb,9.3124e-05_jprb,&
&9.0231e-05_jprb,8.4620e-05_jprb,7.0321e-05_jprb/)
kao( :, 1, 3, 3) = (/&
&5.4594e-05_jprb,7.0140e-05_jprb,7.6291e-05_jprb,7.9103e-05_jprb,7.9908e-05_jprb,7.8825e-05_jprb,&
&7.5557e-05_jprb,6.9638e-05_jprb,5.6129e-05_jprb/)
kao( :, 2, 3, 3) = (/&
&5.3987e-05_jprb,7.0481e-05_jprb,7.6809e-05_jprb,7.9722e-05_jprb,8.0799e-05_jprb,7.9847e-05_jprb,&
&7.6636e-05_jprb,7.0746e-05_jprb,5.7083e-05_jprb/)
kao( :, 3, 3, 3) = (/&
&5.3598e-05_jprb,7.0935e-05_jprb,7.7478e-05_jprb,8.0559e-05_jprb,8.1742e-05_jprb,8.0926e-05_jprb,&
&7.7718e-05_jprb,7.1792e-05_jprb,5.8231e-05_jprb/)
kao( :, 4, 3, 3) = (/&
&5.3419e-05_jprb,7.1650e-05_jprb,7.8342e-05_jprb,8.1570e-05_jprb,8.2791e-05_jprb,8.1991e-05_jprb,&
&7.8849e-05_jprb,7.3062e-05_jprb,5.9633e-05_jprb/)
kao( :, 5, 3, 3) = (/&
&5.3129e-05_jprb,7.2273e-05_jprb,7.9178e-05_jprb,8.2486e-05_jprb,8.3759e-05_jprb,8.3022e-05_jprb,&
&8.0014e-05_jprb,7.4467e-05_jprb,6.1152e-05_jprb/)
kao( :, 1, 4, 3) = (/&
&4.7696e-05_jprb,6.2286e-05_jprb,6.7749e-05_jprb,7.0181e-05_jprb,7.0624e-05_jprb,6.9456e-05_jprb,&
&6.6381e-05_jprb,6.0701e-05_jprb,5.1576e-05_jprb/)
kao( :, 2, 4, 3) = (/&
&4.7208e-05_jprb,6.2637e-05_jprb,6.8240e-05_jprb,7.0849e-05_jprb,7.1530e-05_jprb,7.0423e-05_jprb,&
&6.7425e-05_jprb,6.1760e-05_jprb,5.2349e-05_jprb/)
kao( :, 3, 4, 3) = (/&
&4.6920e-05_jprb,6.3058e-05_jprb,6.8836e-05_jprb,7.1607e-05_jprb,7.2463e-05_jprb,7.1509e-05_jprb,&
&6.8509e-05_jprb,6.2750e-05_jprb,5.3224e-05_jprb/)
kao( :, 4, 4, 3) = (/&
&4.6776e-05_jprb,6.3606e-05_jprb,6.9601e-05_jprb,7.2517e-05_jprb,7.3446e-05_jprb,7.2570e-05_jprb,&
&6.9521e-05_jprb,6.3786e-05_jprb,5.4286e-05_jprb/)
kao( :, 5, 4, 3) = (/&
&4.6682e-05_jprb,6.4343e-05_jprb,7.0568e-05_jprb,7.3573e-05_jprb,7.4545e-05_jprb,7.3619e-05_jprb,&
&7.0604e-05_jprb,6.5003e-05_jprb,5.5521e-05_jprb/)
kao( :, 1, 5, 3) = (/&
&4.1581e-05_jprb,5.4899e-05_jprb,5.9799e-05_jprb,6.1832e-05_jprb,6.2136e-05_jprb,6.0898e-05_jprb,&
&5.7964e-05_jprb,5.2516e-05_jprb,5.0115e-05_jprb/)
kao( :, 2, 5, 3) = (/&
&4.1165e-05_jprb,5.5257e-05_jprb,6.0251e-05_jprb,6.2555e-05_jprb,6.3007e-05_jprb,6.1795e-05_jprb,&
&5.8864e-05_jprb,5.3500e-05_jprb,5.0524e-05_jprb/)
kao( :, 3, 5, 3) = (/&
&4.0905e-05_jprb,5.5656e-05_jprb,6.0839e-05_jprb,6.3322e-05_jprb,6.3891e-05_jprb,6.2840e-05_jprb,&
&5.9887e-05_jprb,5.4446e-05_jprb,5.1001e-05_jprb/)
kao( :, 4, 5, 3) = (/&
&4.0790e-05_jprb,5.6129e-05_jprb,6.1526e-05_jprb,6.4146e-05_jprb,6.4873e-05_jprb,6.3880e-05_jprb,&
&6.0934e-05_jprb,5.5421e-05_jprb,5.1576e-05_jprb/)
kao( :, 5, 5, 3) = (/&
&4.0741e-05_jprb,5.6811e-05_jprb,6.2419e-05_jprb,6.5146e-05_jprb,6.5947e-05_jprb,6.4915e-05_jprb,&
&6.1966e-05_jprb,5.6459e-05_jprb,5.2345e-05_jprb/)
kao( :, 1, 6, 3) = (/&
&3.6128e-05_jprb,4.8074e-05_jprb,5.2303e-05_jprb,5.4088e-05_jprb,5.4305e-05_jprb,5.3072e-05_jprb,&
&5.0232e-05_jprb,4.5105e-05_jprb,5.1680e-05_jprb/)
kao( :, 2, 6, 3) = (/&
&3.5776e-05_jprb,4.8378e-05_jprb,5.2790e-05_jprb,5.4763e-05_jprb,5.5146e-05_jprb,5.3920e-05_jprb,&
&5.1041e-05_jprb,4.6023e-05_jprb,5.1519e-05_jprb/)
kao( :, 3, 6, 3) = (/&
&3.5527e-05_jprb,4.8788e-05_jprb,5.3350e-05_jprb,5.5505e-05_jprb,5.5990e-05_jprb,5.4859e-05_jprb,&
&5.1952e-05_jprb,4.6910e-05_jprb,5.1451e-05_jprb/)
kao( :, 4, 6, 3) = (/&
&3.5393e-05_jprb,4.9227e-05_jprb,5.4029e-05_jprb,5.6316e-05_jprb,5.6902e-05_jprb,5.5852e-05_jprb,&
&5.2950e-05_jprb,4.7839e-05_jprb,5.1463e-05_jprb/)
kao( :, 5, 6, 3) = (/&
&3.5279e-05_jprb,4.9738e-05_jprb,5.4773e-05_jprb,5.7200e-05_jprb,5.7864e-05_jprb,5.6831e-05_jprb,&
&5.3962e-05_jprb,4.8775e-05_jprb,5.1664e-05_jprb/)
kao( :, 1, 7, 3) = (/&
&3.1175e-05_jprb,4.1797e-05_jprb,4.5353e-05_jprb,4.6878e-05_jprb,4.7045e-05_jprb,4.5914e-05_jprb,&
&4.3260e-05_jprb,3.8528e-05_jprb,5.5034e-05_jprb/)
kao( :, 2, 7, 3) = (/&
&3.0861e-05_jprb,4.2063e-05_jprb,4.5864e-05_jprb,4.7535e-05_jprb,4.7827e-05_jprb,4.6677e-05_jprb,&
&4.3974e-05_jprb,3.9350e-05_jprb,5.5182e-05_jprb/)
kao( :, 3, 7, 3) = (/&
&3.0632e-05_jprb,4.2441e-05_jprb,4.6427e-05_jprb,4.8241e-05_jprb,4.8620e-05_jprb,4.7526e-05_jprb,&
&4.4793e-05_jprb,4.0140e-05_jprb,5.5398e-05_jprb/)
kao( :, 4, 7, 3) = (/&
&3.0475e-05_jprb,4.2876e-05_jprb,4.7039e-05_jprb,4.9018e-05_jprb,4.9446e-05_jprb,4.8432e-05_jprb,&
&4.5701e-05_jprb,4.0986e-05_jprb,5.5585e-05_jprb/)
kao( :, 5, 7, 3) = (/&
&3.0340e-05_jprb,4.3333e-05_jprb,4.7753e-05_jprb,4.9874e-05_jprb,5.0366e-05_jprb,4.9368e-05_jprb,&
&4.6641e-05_jprb,4.1870e-05_jprb,5.5728e-05_jprb/)
kao( :, 1, 8, 3) = (/&
&2.6882e-05_jprb,3.6181e-05_jprb,3.9159e-05_jprb,4.0385e-05_jprb,4.0472e-05_jprb,3.9467e-05_jprb,&
&3.7068e-05_jprb,3.2787e-05_jprb,6.0191e-05_jprb/)
kao( :, 2, 8, 3) = (/&
&2.6577e-05_jprb,3.6420e-05_jprb,3.9630e-05_jprb,4.1005e-05_jprb,4.1190e-05_jprb,4.0154e-05_jprb,&
&3.7711e-05_jprb,3.3501e-05_jprb,6.0976e-05_jprb/)
kao( :, 3, 8, 3) = (/&
&2.6344e-05_jprb,3.6733e-05_jprb,4.0183e-05_jprb,4.1714e-05_jprb,4.1930e-05_jprb,4.0908e-05_jprb,&
&3.8425e-05_jprb,3.4195e-05_jprb,6.1747e-05_jprb/)
kao( :, 4, 8, 3) = (/&
&2.6154e-05_jprb,3.7129e-05_jprb,4.0772e-05_jprb,4.2424e-05_jprb,4.2698e-05_jprb,4.1708e-05_jprb,&
&3.9208e-05_jprb,3.4923e-05_jprb,6.2436e-05_jprb/)
kao( :, 5, 8, 3) = (/&
&2.5969e-05_jprb,3.7541e-05_jprb,4.1396e-05_jprb,4.3205e-05_jprb,4.3544e-05_jprb,4.2561e-05_jprb,&
&4.0066e-05_jprb,3.5716e-05_jprb,6.2996e-05_jprb/)
kao( :, 1, 9, 3) = (/&
&2.3030e-05_jprb,3.1081e-05_jprb,3.3574e-05_jprb,3.4578e-05_jprb,3.4594e-05_jprb,3.3680e-05_jprb,&
&3.1564e-05_jprb,2.7753e-05_jprb,8.2972e-05_jprb/)
kao( :, 2, 9, 3) = (/&
&2.2745e-05_jprb,3.1301e-05_jprb,3.4001e-05_jprb,3.5099e-05_jprb,3.5210e-05_jprb,3.4293e-05_jprb,&
&3.2147e-05_jprb,2.8418e-05_jprb,8.5573e-05_jprb/)
kao( :, 3, 9, 3) = (/&
&2.2504e-05_jprb,3.1575e-05_jprb,3.4507e-05_jprb,3.5759e-05_jprb,3.5892e-05_jprb,3.4957e-05_jprb,&
&3.2777e-05_jprb,2.9021e-05_jprb,8.7692e-05_jprb/)
kao( :, 4, 9, 3) = (/&
&2.2288e-05_jprb,3.1903e-05_jprb,3.5055e-05_jprb,3.6460e-05_jprb,3.6616e-05_jprb,3.5667e-05_jprb,&
&3.3440e-05_jprb,2.9641e-05_jprb,8.9596e-05_jprb/)
kao( :, 5, 9, 3) = (/&
&2.2076e-05_jprb,3.2254e-05_jprb,3.5612e-05_jprb,3.7158e-05_jprb,3.7379e-05_jprb,3.6426e-05_jprb,&
&3.4185e-05_jprb,3.0329e-05_jprb,9.1172e-05_jprb/)
kao( :, 1,10, 3) = (/&
&1.9573e-05_jprb,2.6501e-05_jprb,2.8604e-05_jprb,2.9434e-05_jprb,2.9415e-05_jprb,2.8586e-05_jprb,&
&2.6756e-05_jprb,2.3398e-05_jprb,1.1831e-04_jprb/)
kao( :, 2,10, 3) = (/&
&1.9311e-05_jprb,2.6696e-05_jprb,2.8987e-05_jprb,2.9871e-05_jprb,2.9930e-05_jprb,2.9131e-05_jprb,&
&2.7291e-05_jprb,2.4061e-05_jprb,1.2413e-04_jprb/)
kao( :, 3,10, 3) = (/&
&1.9064e-05_jprb,2.6931e-05_jprb,2.9433e-05_jprb,3.0442e-05_jprb,3.0524e-05_jprb,2.9723e-05_jprb,&
&2.7830e-05_jprb,2.4575e-05_jprb,1.2968e-04_jprb/)
kao( :, 4,10, 3) = (/&
&1.8838e-05_jprb,2.7200e-05_jprb,2.9911e-05_jprb,3.1092e-05_jprb,3.1189e-05_jprb,3.0347e-05_jprb,&
&2.8402e-05_jprb,2.5111e-05_jprb,1.3500e-04_jprb/)
kao( :, 5,10, 3) = (/&
&1.8619e-05_jprb,2.7473e-05_jprb,3.0391e-05_jprb,3.1737e-05_jprb,3.1883e-05_jprb,3.1020e-05_jprb,&
&2.9042e-05_jprb,2.5702e-05_jprb,1.4050e-04_jprb/)
kao( :, 1,11, 3) = (/&
&1.6456e-05_jprb,2.2515e-05_jprb,2.4353e-05_jprb,2.5062e-05_jprb,2.5054e-05_jprb,2.4348e-05_jprb,&
&2.2780e-05_jprb,1.9929e-05_jprb,1.2447e-04_jprb/)
kao( :, 2,11, 3) = (/&
&1.6210e-05_jprb,2.2705e-05_jprb,2.4709e-05_jprb,2.5473e-05_jprb,2.5515e-05_jprb,2.4826e-05_jprb,&
&2.3259e-05_jprb,2.0482e-05_jprb,1.3150e-04_jprb/)
kao( :, 3,11, 3) = (/&
&1.5971e-05_jprb,2.2902e-05_jprb,2.5095e-05_jprb,2.5990e-05_jprb,2.6068e-05_jprb,2.5361e-05_jprb,&
&2.3741e-05_jprb,2.0933e-05_jprb,1.3833e-04_jprb/)
kao( :, 4,11, 3) = (/&
&1.5752e-05_jprb,2.3106e-05_jprb,2.5493e-05_jprb,2.6568e-05_jprb,2.6674e-05_jprb,2.5935e-05_jprb,&
&2.4259e-05_jprb,2.1401e-05_jprb,1.4470e-04_jprb/)
kao( :, 5,11, 3) = (/&
&1.5528e-05_jprb,2.3318e-05_jprb,2.5901e-05_jprb,2.7141e-05_jprb,2.7302e-05_jprb,2.6558e-05_jprb,&
&2.4843e-05_jprb,2.1914e-05_jprb,1.5074e-04_jprb/)
kao( :, 1,12, 3) = (/&
&1.3780e-05_jprb,1.9033e-05_jprb,2.0619e-05_jprb,2.1228e-05_jprb,2.1226e-05_jprb,2.0621e-05_jprb,&
&1.9294e-05_jprb,1.6882e-05_jprb,1.1649e-04_jprb/)
kao( :, 2,12, 3) = (/&
&1.3548e-05_jprb,1.9199e-05_jprb,2.0913e-05_jprb,2.1600e-05_jprb,2.1645e-05_jprb,2.1053e-05_jprb,&
&1.9719e-05_jprb,1.7352e-05_jprb,1.2368e-04_jprb/)
kao( :, 3,12, 3) = (/&
&1.3324e-05_jprb,1.9341e-05_jprb,2.1240e-05_jprb,2.2050e-05_jprb,2.2132e-05_jprb,2.1536e-05_jprb,&
&2.0156e-05_jprb,1.7750e-05_jprb,1.3017e-04_jprb/)
kao( :, 4,12, 3) = (/&
&1.3111e-05_jprb,1.9487e-05_jprb,2.1558e-05_jprb,2.2533e-05_jprb,2.2665e-05_jprb,2.2056e-05_jprb,&
&2.0628e-05_jprb,1.8158e-05_jprb,1.3659e-04_jprb/)
kao( :, 5,12, 3) = (/&
&1.2895e-05_jprb,1.9642e-05_jprb,2.1889e-05_jprb,2.3011e-05_jprb,2.3210e-05_jprb,2.2606e-05_jprb,&
&2.1150e-05_jprb,1.8610e-05_jprb,1.4251e-04_jprb/)
kao( :, 1,13, 3) = (/&
&1.1500e-05_jprb,1.6003e-05_jprb,1.7357e-05_jprb,1.7889e-05_jprb,1.7884e-05_jprb,1.7367e-05_jprb,&
&1.6254e-05_jprb,1.4227e-05_jprb,9.8757e-05_jprb/)
kao( :, 2,13, 3) = (/&
&1.1286e-05_jprb,1.6126e-05_jprb,1.7594e-05_jprb,1.8210e-05_jprb,1.8252e-05_jprb,1.7751e-05_jprb,&
&1.6632e-05_jprb,1.4641e-05_jprb,1.0488e-04_jprb/)
kao( :, 3,13, 3) = (/&
&1.1079e-05_jprb,1.6225e-05_jprb,1.7843e-05_jprb,1.8579e-05_jprb,1.8672e-05_jprb,1.8176e-05_jprb,&
&1.7024e-05_jprb,1.4980e-05_jprb,1.1036e-04_jprb/)
kao( :, 4,13, 3) = (/&
&1.0876e-05_jprb,1.6327e-05_jprb,1.8099e-05_jprb,1.8965e-05_jprb,1.9122e-05_jprb,1.8629e-05_jprb,&
&1.7445e-05_jprb,1.5339e-05_jprb,1.1580e-04_jprb/)
kao( :, 5,13, 3) = (/&
&1.0678e-05_jprb,1.6434e-05_jprb,1.8360e-05_jprb,1.9355e-05_jprb,1.9573e-05_jprb,1.9100e-05_jprb,&
&1.7895e-05_jprb,1.5734e-05_jprb,1.2071e-04_jprb/)
kao( :, 1, 1, 4) = (/&
&1.0452e-04_jprb,1.3483e-04_jprb,1.4507e-04_jprb,1.5035e-04_jprb,1.5233e-04_jprb,1.5098e-04_jprb,&
&1.4623e-04_jprb,1.3688e-04_jprb,1.1596e-04_jprb/)
kao( :, 2, 1, 4) = (/&
&1.0431e-04_jprb,1.3598e-04_jprb,1.4693e-04_jprb,1.5285e-04_jprb,1.5505e-04_jprb,1.5376e-04_jprb,&
&1.4899e-04_jprb,1.4010e-04_jprb,1.1898e-04_jprb/)
kao( :, 3, 1, 4) = (/&
&1.0452e-04_jprb,1.3748e-04_jprb,1.4911e-04_jprb,1.5568e-04_jprb,1.5820e-04_jprb,1.5701e-04_jprb,&
&1.5204e-04_jprb,1.4309e-04_jprb,1.2195e-04_jprb/)
kao( :, 4, 1, 4) = (/&
&1.0446e-04_jprb,1.3898e-04_jprb,1.5142e-04_jprb,1.5876e-04_jprb,1.6160e-04_jprb,1.6033e-04_jprb,&
&1.5519e-04_jprb,1.4614e-04_jprb,1.2504e-04_jprb/)
kao( :, 5, 1, 4) = (/&
&1.0490e-04_jprb,1.4072e-04_jprb,1.5426e-04_jprb,1.6221e-04_jprb,1.6521e-04_jprb,1.6398e-04_jprb,&
&1.5900e-04_jprb,1.4986e-04_jprb,1.2878e-04_jprb/)
kao( :, 1, 2, 4) = (/&
&9.4204e-05_jprb,1.2226e-04_jprb,1.3172e-04_jprb,1.3677e-04_jprb,1.3845e-04_jprb,1.3676e-04_jprb,&
&1.3184e-04_jprb,1.2295e-04_jprb,1.0190e-04_jprb/)
kao( :, 2, 2, 4) = (/&
&9.4074e-05_jprb,1.2351e-04_jprb,1.3361e-04_jprb,1.3908e-04_jprb,1.4094e-04_jprb,1.3921e-04_jprb,&
&1.3441e-04_jprb,1.2595e-04_jprb,1.0466e-04_jprb/)
kao( :, 3, 2, 4) = (/&
&9.4344e-05_jprb,1.2509e-04_jprb,1.3579e-04_jprb,1.4166e-04_jprb,1.4376e-04_jprb,1.4219e-04_jprb,&
&1.3731e-04_jprb,1.2889e-04_jprb,1.0736e-04_jprb/)
kao( :, 4, 2, 4) = (/&
&9.4551e-05_jprb,1.2662e-04_jprb,1.3810e-04_jprb,1.4452e-04_jprb,1.4685e-04_jprb,1.4532e-04_jprb,&
&1.4026e-04_jprb,1.3156e-04_jprb,1.1005e-04_jprb/)
kao( :, 5, 2, 4) = (/&
&9.4911e-05_jprb,1.2828e-04_jprb,1.4068e-04_jprb,1.4753e-04_jprb,1.5017e-04_jprb,1.4865e-04_jprb,&
&1.4353e-04_jprb,1.3462e-04_jprb,1.1332e-04_jprb/)
kao( :, 1, 3, 4) = (/&
&8.4477e-05_jprb,1.0977e-04_jprb,1.1875e-04_jprb,1.2346e-04_jprb,1.2481e-04_jprb,1.2312e-04_jprb,&
&1.1833e-04_jprb,1.0957e-04_jprb,8.9535e-05_jprb/)
kao( :, 2, 3, 4) = (/&
&8.4379e-05_jprb,1.1105e-04_jprb,1.2059e-04_jprb,1.2560e-04_jprb,1.2700e-04_jprb,1.2527e-04_jprb,&
&1.2063e-04_jprb,1.1208e-04_jprb,9.1925e-05_jprb/)
kao( :, 3, 3, 4) = (/&
&8.4459e-05_jprb,1.1263e-04_jprb,1.2255e-04_jprb,1.2789e-04_jprb,1.2949e-04_jprb,1.2788e-04_jprb,&
&1.2327e-04_jprb,1.1489e-04_jprb,9.4307e-05_jprb/)
kao( :, 4, 3, 4) = (/&
&8.4957e-05_jprb,1.1436e-04_jprb,1.2477e-04_jprb,1.3051e-04_jprb,1.3225e-04_jprb,1.3075e-04_jprb,&
&1.2605e-04_jprb,1.1763e-04_jprb,9.6664e-05_jprb/)
kao( :, 5, 3, 4) = (/&
&8.5267e-05_jprb,1.1603e-04_jprb,1.2711e-04_jprb,1.3323e-04_jprb,1.3522e-04_jprb,1.3376e-04_jprb,&
&1.2892e-04_jprb,1.2027e-04_jprb,9.9423e-05_jprb/)
kao( :, 1, 4, 4) = (/&
&7.5106e-05_jprb,9.8023e-05_jprb,1.0634e-04_jprb,1.1074e-04_jprb,1.1207e-04_jprb,1.1047e-04_jprb,&
&1.0566e-04_jprb,9.7179e-05_jprb,8.0970e-05_jprb/)
kao( :, 2, 4, 4) = (/&
&7.5068e-05_jprb,9.9316e-05_jprb,1.0818e-04_jprb,1.1273e-04_jprb,1.1400e-04_jprb,1.1240e-04_jprb,&
&1.0763e-04_jprb,9.9160e-05_jprb,8.2847e-05_jprb/)
kao( :, 3, 4, 4) = (/&
&7.5176e-05_jprb,1.0088e-04_jprb,1.1012e-04_jprb,1.1492e-04_jprb,1.1630e-04_jprb,1.1469e-04_jprb,&
&1.0990e-04_jprb,1.0156e-04_jprb,8.4919e-05_jprb/)
kao( :, 4, 4, 4) = (/&
&7.5441e-05_jprb,1.0260e-04_jprb,1.1218e-04_jprb,1.1722e-04_jprb,1.1877e-04_jprb,1.1722e-04_jprb,&
&1.1247e-04_jprb,1.0418e-04_jprb,8.7047e-05_jprb/)
kao( :, 5, 4, 4) = (/&
&7.6234e-05_jprb,1.0451e-04_jprb,1.1445e-04_jprb,1.1978e-04_jprb,1.2144e-04_jprb,1.1995e-04_jprb,&
&1.1523e-04_jprb,1.0678e-04_jprb,8.9379e-05_jprb/)
kao( :, 1, 5, 4) = (/&
&6.6160e-05_jprb,8.7240e-05_jprb,9.4827e-05_jprb,9.8971e-05_jprb,1.0023e-04_jprb,9.8598e-05_jprb,&
&9.3977e-05_jprb,8.6015e-05_jprb,7.7683e-05_jprb/)
kao( :, 2, 5, 4) = (/&
&6.6183e-05_jprb,8.8517e-05_jprb,9.6624e-05_jprb,1.0080e-04_jprb,1.0196e-04_jprb,1.0036e-04_jprb,&
&9.5737e-05_jprb,8.7609e-05_jprb,7.8892e-05_jprb/)
kao( :, 3, 5, 4) = (/&
&6.6375e-05_jprb,9.0052e-05_jprb,9.8476e-05_jprb,1.0284e-04_jprb,1.0408e-04_jprb,1.0241e-04_jprb,&
&9.7689e-05_jprb,8.9585e-05_jprb,8.0494e-05_jprb/)
kao( :, 4, 5, 4) = (/&
&6.6706e-05_jprb,9.1731e-05_jprb,1.0049e-04_jprb,1.0501e-04_jprb,1.0639e-04_jprb,1.0469e-04_jprb,&
&9.9852e-05_jprb,9.1849e-05_jprb,8.2317e-05_jprb/)
kao( :, 5, 5, 4) = (/&
&6.7530e-05_jprb,9.3541e-05_jprb,1.0261e-04_jprb,1.0728e-04_jprb,1.0881e-04_jprb,1.0721e-04_jprb,&
&1.0236e-04_jprb,9.4247e-05_jprb,8.4311e-05_jprb/)
kao( :, 1, 6, 4) = (/&
&5.7820e-05_jprb,7.7124e-05_jprb,8.4195e-05_jprb,8.7927e-05_jprb,8.8972e-05_jprb,8.7430e-05_jprb,&
&8.3132e-05_jprb,7.5650e-05_jprb,7.8327e-05_jprb/)
kao( :, 2, 6, 4) = (/&
&5.7858e-05_jprb,7.8413e-05_jprb,8.5775e-05_jprb,8.9605e-05_jprb,9.0590e-05_jprb,8.9122e-05_jprb,&
&8.4773e-05_jprb,7.7051e-05_jprb,7.8482e-05_jprb/)
kao( :, 3, 6, 4) = (/&
&5.8124e-05_jprb,7.9824e-05_jprb,8.7576e-05_jprb,9.1549e-05_jprb,9.2483e-05_jprb,9.0882e-05_jprb,&
&8.6480e-05_jprb,7.8637e-05_jprb,7.9105e-05_jprb/)
kao( :, 4, 6, 4) = (/&
&5.8563e-05_jprb,8.1362e-05_jprb,8.9405e-05_jprb,9.3593e-05_jprb,9.4634e-05_jprb,9.2868e-05_jprb,&
&8.8337e-05_jprb,8.0467e-05_jprb,8.0117e-05_jprb/)
kao( :, 5, 6, 4) = (/&
&5.9163e-05_jprb,8.2947e-05_jprb,9.1328e-05_jprb,9.5614e-05_jprb,9.6868e-05_jprb,9.5118e-05_jprb,&
&9.0461e-05_jprb,8.2517e-05_jprb,8.1395e-05_jprb/)
kao( :, 1, 7, 4) = (/&
&5.0089e-05_jprb,6.7496e-05_jprb,7.4227e-05_jprb,7.7520e-05_jprb,7.8410e-05_jprb,7.6863e-05_jprb,&
&7.2879e-05_jprb,6.5963e-05_jprb,8.6270e-05_jprb/)
kao( :, 2, 7, 4) = (/&
&5.0200e-05_jprb,6.8721e-05_jprb,7.5605e-05_jprb,7.9011e-05_jprb,7.9876e-05_jprb,7.8434e-05_jprb,&
&7.4469e-05_jprb,6.7323e-05_jprb,8.5543e-05_jprb/)
kao( :, 3, 7, 4) = (/&
&5.0465e-05_jprb,7.0073e-05_jprb,7.7198e-05_jprb,8.0725e-05_jprb,8.1573e-05_jprb,8.0081e-05_jprb,&
&7.6049e-05_jprb,6.8699e-05_jprb,8.4940e-05_jprb/)
kao( :, 4, 7, 4) = (/&
&5.0935e-05_jprb,7.1437e-05_jprb,7.8942e-05_jprb,8.2653e-05_jprb,8.3546e-05_jprb,8.1849e-05_jprb,&
&7.7644e-05_jprb,7.0190e-05_jprb,8.4597e-05_jprb/)
kao( :, 5, 7, 4) = (/&
&5.1558e-05_jprb,7.2909e-05_jprb,8.0657e-05_jprb,8.4558e-05_jprb,8.5533e-05_jprb,8.3860e-05_jprb,&
&7.9445e-05_jprb,7.1873e-05_jprb,8.4633e-05_jprb/)
kao( :, 1, 8, 4) = (/&
&4.3241e-05_jprb,5.8715e-05_jprb,6.4907e-05_jprb,6.7818e-05_jprb,6.8520e-05_jprb,6.7059e-05_jprb,&
&6.3436e-05_jprb,5.7025e-05_jprb,1.0556e-04_jprb/)
kao( :, 2, 8, 4) = (/&
&4.3396e-05_jprb,5.9829e-05_jprb,6.6154e-05_jprb,6.9172e-05_jprb,6.9903e-05_jprb,6.8506e-05_jprb,&
&6.4888e-05_jprb,5.8346e-05_jprb,1.0621e-04_jprb/)
kao( :, 3, 8, 4) = (/&
&4.3671e-05_jprb,6.1116e-05_jprb,6.7537e-05_jprb,7.0639e-05_jprb,7.1418e-05_jprb,7.0005e-05_jprb,&
&6.6322e-05_jprb,5.9628e-05_jprb,1.0623e-04_jprb/)
kao( :, 4, 8, 4) = (/&
&4.4098e-05_jprb,6.2393e-05_jprb,6.9085e-05_jprb,7.2351e-05_jprb,7.3148e-05_jprb,7.1679e-05_jprb,&
&6.7759e-05_jprb,6.0926e-05_jprb,1.0598e-04_jprb/)
kao( :, 5, 8, 4) = (/&
&4.4692e-05_jprb,6.3732e-05_jprb,7.0698e-05_jprb,7.4137e-05_jprb,7.4984e-05_jprb,7.3462e-05_jprb,&
&6.9302e-05_jprb,6.2346e-05_jprb,1.0567e-04_jprb/)
kao( :, 1, 9, 4) = (/&
&3.7132e-05_jprb,5.0817e-05_jprb,5.6256e-05_jprb,5.8754e-05_jprb,5.9255e-05_jprb,5.8002e-05_jprb,&
&5.4741e-05_jprb,4.8907e-05_jprb,1.5932e-04_jprb/)
kao( :, 2, 9, 4) = (/&
&3.7275e-05_jprb,5.1787e-05_jprb,5.7392e-05_jprb,6.0022e-05_jprb,6.0595e-05_jprb,5.9356e-05_jprb,&
&5.6080e-05_jprb,5.0176e-05_jprb,1.6074e-04_jprb/)
kao( :, 3, 9, 4) = (/&
&3.7562e-05_jprb,5.2932e-05_jprb,5.8629e-05_jprb,6.1314e-05_jprb,6.1975e-05_jprb,6.0718e-05_jprb,&
&5.7380e-05_jprb,5.1383e-05_jprb,1.6208e-04_jprb/)
kao( :, 4, 9, 4) = (/&
&3.7959e-05_jprb,5.4161e-05_jprb,5.9989e-05_jprb,6.2778e-05_jprb,6.3464e-05_jprb,6.2208e-05_jprb,&
&5.8730e-05_jprb,5.2572e-05_jprb,1.6367e-04_jprb/)
kao( :, 5, 9, 4) = (/&
&3.8474e-05_jprb,5.5413e-05_jprb,6.1478e-05_jprb,6.4374e-05_jprb,6.5107e-05_jprb,6.3821e-05_jprb,&
&6.0122e-05_jprb,5.3780e-05_jprb,1.6576e-04_jprb/)
kao( :, 1,10, 4) = (/&
&3.1661e-05_jprb,4.3721e-05_jprb,4.8375e-05_jprb,5.0533e-05_jprb,5.0884e-05_jprb,4.9757e-05_jprb,&
&4.6933e-05_jprb,4.1760e-05_jprb,3.3288e-04_jprb/)
kao( :, 2,10, 4) = (/&
&3.1799e-05_jprb,4.4567e-05_jprb,4.9444e-05_jprb,5.1711e-05_jprb,5.2132e-05_jprb,5.1037e-05_jprb,&
&4.8202e-05_jprb,4.2932e-05_jprb,3.3259e-04_jprb/)
kao( :, 3,10, 4) = (/&
&3.2076e-05_jprb,4.5598e-05_jprb,5.0572e-05_jprb,5.2901e-05_jprb,5.3401e-05_jprb,5.2274e-05_jprb,&
&4.9410e-05_jprb,4.4046e-05_jprb,3.3116e-04_jprb/)
kao( :, 4,10, 4) = (/&
&3.2432e-05_jprb,4.6745e-05_jprb,5.1822e-05_jprb,5.4161e-05_jprb,5.4721e-05_jprb,5.3605e-05_jprb,&
&5.0657e-05_jprb,4.5130e-05_jprb,3.2908e-04_jprb/)
kao( :, 5,10, 4) = (/&
&3.2849e-05_jprb,4.7929e-05_jprb,5.3191e-05_jprb,5.5555e-05_jprb,5.6151e-05_jprb,5.5034e-05_jprb,&
&5.1913e-05_jprb,4.6196e-05_jprb,3.2646e-04_jprb/)
kao( :, 1,11, 4) = (/&
&2.6856e-05_jprb,3.7683e-05_jprb,4.1693e-05_jprb,4.3606e-05_jprb,4.3883e-05_jprb,4.2891e-05_jprb,&
&4.0459e-05_jprb,3.5912e-05_jprb,4.0077e-04_jprb/)
kao( :, 2,11, 4) = (/&
&2.7039e-05_jprb,3.8497e-05_jprb,4.2726e-05_jprb,4.4727e-05_jprb,4.5037e-05_jprb,4.4055e-05_jprb,&
&4.1621e-05_jprb,3.6978e-05_jprb,3.9949e-04_jprb/)
kao( :, 3,11, 4) = (/&
&2.7307e-05_jprb,3.9484e-05_jprb,4.3818e-05_jprb,4.5808e-05_jprb,4.6194e-05_jprb,4.5211e-05_jprb,&
&4.2730e-05_jprb,3.7986e-05_jprb,3.9696e-04_jprb/)
kao( :, 4,11, 4) = (/&
&2.7612e-05_jprb,4.0551e-05_jprb,4.5021e-05_jprb,4.6980e-05_jprb,4.7421e-05_jprb,4.6420e-05_jprb,&
&4.3860e-05_jprb,3.8943e-05_jprb,3.9400e-04_jprb/)
kao( :, 5,11, 4) = (/&
&2.7944e-05_jprb,4.1639e-05_jprb,4.6278e-05_jprb,4.8247e-05_jprb,4.8726e-05_jprb,4.7717e-05_jprb,&
&4.5010e-05_jprb,3.9912e-05_jprb,3.9021e-04_jprb/)
kao( :, 1,12, 4) = (/&
&2.2674e-05_jprb,3.2256e-05_jprb,3.5706e-05_jprb,3.7375e-05_jprb,3.7620e-05_jprb,3.6748e-05_jprb,&
&3.4672e-05_jprb,3.0753e-05_jprb,3.9801e-04_jprb/)
kao( :, 2,12, 4) = (/&
&2.2856e-05_jprb,3.3035e-05_jprb,3.6681e-05_jprb,3.8389e-05_jprb,3.8658e-05_jprb,3.7799e-05_jprb,&
&3.5709e-05_jprb,3.1711e-05_jprb,3.9549e-04_jprb/)
kao( :, 3,12, 4) = (/&
&2.3070e-05_jprb,3.3949e-05_jprb,3.7724e-05_jprb,3.9400e-05_jprb,3.9718e-05_jprb,3.8860e-05_jprb,&
&3.6712e-05_jprb,3.2588e-05_jprb,3.9241e-04_jprb/)
kao( :, 4,12, 4) = (/&
&2.3301e-05_jprb,3.4905e-05_jprb,3.8836e-05_jprb,4.0484e-05_jprb,4.0838e-05_jprb,3.9966e-05_jprb,&
&3.7706e-05_jprb,3.3447e-05_jprb,3.8870e-04_jprb/)
kao( :, 5,12, 4) = (/&
&2.3543e-05_jprb,3.5840e-05_jprb,3.9948e-05_jprb,4.1657e-05_jprb,4.2028e-05_jprb,4.1130e-05_jprb,&
&3.8770e-05_jprb,3.4320e-05_jprb,3.8474e-04_jprb/)
kao( :, 1,13, 4) = (/&
&1.9048e-05_jprb,2.7433e-05_jprb,3.0355e-05_jprb,3.1781e-05_jprb,3.2020e-05_jprb,3.1297e-05_jprb,&
&2.9545e-05_jprb,2.6213e-05_jprb,3.3572e-04_jprb/)
kao( :, 2,13, 4) = (/&
&1.9186e-05_jprb,2.8151e-05_jprb,3.1249e-05_jprb,3.2687e-05_jprb,3.2953e-05_jprb,3.2236e-05_jprb,&
&3.0464e-05_jprb,2.7042e-05_jprb,3.3299e-04_jprb/)
kao( :, 3,13, 4) = (/&
&1.9336e-05_jprb,2.8946e-05_jprb,3.2213e-05_jprb,3.3632e-05_jprb,3.3925e-05_jprb,3.3202e-05_jprb,&
&3.1346e-05_jprb,2.7832e-05_jprb,3.2995e-04_jprb/)
kao( :, 4,13, 4) = (/&
&1.9500e-05_jprb,2.9752e-05_jprb,3.3189e-05_jprb,3.4641e-05_jprb,3.4936e-05_jprb,3.4186e-05_jprb,&
&3.2242e-05_jprb,2.8586e-05_jprb,3.2636e-04_jprb/)
kao( :, 5,13, 4) = (/&
&1.9647e-05_jprb,3.0517e-05_jprb,3.4157e-05_jprb,3.5690e-05_jprb,3.6009e-05_jprb,3.5240e-05_jprb,&
&3.3224e-05_jprb,2.9383e-05_jprb,3.2302e-04_jprb/)
kao( :, 1, 1, 5) = (/&
&1.5710e-04_jprb,2.0320e-04_jprb,2.2809e-04_jprb,2.4127e-04_jprb,2.4664e-04_jprb,2.4637e-04_jprb,&
&2.3954e-04_jprb,2.2558e-04_jprb,1.9226e-04_jprb/)
kao( :, 2, 1, 5) = (/&
&1.5763e-04_jprb,2.0602e-04_jprb,2.3252e-04_jprb,2.4654e-04_jprb,2.5266e-04_jprb,2.5275e-04_jprb,&
&2.4636e-04_jprb,2.3254e-04_jprb,1.9836e-04_jprb/)
kao( :, 3, 1, 5) = (/&
&1.5885e-04_jprb,2.0936e-04_jprb,2.3726e-04_jprb,2.5211e-04_jprb,2.5917e-04_jprb,2.5987e-04_jprb,&
&2.5423e-04_jprb,2.4110e-04_jprb,2.0597e-04_jprb/)
kao( :, 4, 1, 5) = (/&
&1.6010e-04_jprb,2.1292e-04_jprb,2.4195e-04_jprb,2.5773e-04_jprb,2.6599e-04_jprb,2.6801e-04_jprb,&
&2.6343e-04_jprb,2.5079e-04_jprb,2.1448e-04_jprb/)
kao( :, 5, 1, 5) = (/&
&1.6183e-04_jprb,2.1689e-04_jprb,2.4710e-04_jprb,2.6390e-04_jprb,2.7349e-04_jprb,2.7678e-04_jprb,&
&2.7286e-04_jprb,2.6055e-04_jprb,2.2334e-04_jprb/)
kao( :, 1, 2, 5) = (/&
&1.4264e-04_jprb,1.8747e-04_jprb,2.0916e-04_jprb,2.2048e-04_jprb,2.2542e-04_jprb,2.2467e-04_jprb,&
&2.1833e-04_jprb,2.0428e-04_jprb,1.7002e-04_jprb/)
kao( :, 2, 2, 5) = (/&
&1.4357e-04_jprb,1.9029e-04_jprb,2.1342e-04_jprb,2.2542e-04_jprb,2.3082e-04_jprb,2.3044e-04_jprb,&
&2.2413e-04_jprb,2.1022e-04_jprb,1.7510e-04_jprb/)
kao( :, 3, 2, 5) = (/&
&1.4512e-04_jprb,1.9354e-04_jprb,2.1804e-04_jprb,2.3071e-04_jprb,2.3662e-04_jprb,2.3677e-04_jprb,&
&2.3090e-04_jprb,2.1760e-04_jprb,1.8164e-04_jprb/)
kao( :, 4, 2, 5) = (/&
&1.4675e-04_jprb,1.9716e-04_jprb,2.2262e-04_jprb,2.3622e-04_jprb,2.4303e-04_jprb,2.4400e-04_jprb,&
&2.3876e-04_jprb,2.2602e-04_jprb,1.8905e-04_jprb/)
kao( :, 5, 2, 5) = (/&
&1.4825e-04_jprb,2.0084e-04_jprb,2.2744e-04_jprb,2.4214e-04_jprb,2.4980e-04_jprb,2.5170e-04_jprb,&
&2.4697e-04_jprb,2.3468e-04_jprb,1.9668e-04_jprb/)
kao( :, 1, 3, 5) = (/&
&1.2913e-04_jprb,1.7105e-04_jprb,1.8962e-04_jprb,1.9927e-04_jprb,2.0344e-04_jprb,2.0263e-04_jprb,&
&1.9648e-04_jprb,1.8374e-04_jprb,1.5154e-04_jprb/)
kao( :, 2, 3, 5) = (/&
&1.3034e-04_jprb,1.7385e-04_jprb,1.9352e-04_jprb,2.0379e-04_jprb,2.0816e-04_jprb,2.0767e-04_jprb,&
&2.0141e-04_jprb,1.8880e-04_jprb,1.5543e-04_jprb/)
kao( :, 3, 3, 5) = (/&
&1.3189e-04_jprb,1.7683e-04_jprb,1.9785e-04_jprb,2.0858e-04_jprb,2.1306e-04_jprb,2.1289e-04_jprb,&
&2.0705e-04_jprb,1.9450e-04_jprb,1.6042e-04_jprb/)
kao( :, 4, 3, 5) = (/&
&1.3375e-04_jprb,1.8038e-04_jprb,2.0233e-04_jprb,2.1375e-04_jprb,2.1890e-04_jprb,2.1897e-04_jprb,&
&2.1362e-04_jprb,2.0111e-04_jprb,1.6638e-04_jprb/)
kao( :, 5, 3, 5) = (/&
&1.3531e-04_jprb,1.8393e-04_jprb,2.0677e-04_jprb,2.1903e-04_jprb,2.2516e-04_jprb,2.2557e-04_jprb,&
&2.2073e-04_jprb,2.0849e-04_jprb,1.7278e-04_jprb/)
kao( :, 1, 4, 5) = (/&
&1.1675e-04_jprb,1.5471e-04_jprb,1.7086e-04_jprb,1.7907e-04_jprb,1.8234e-04_jprb,1.8104e-04_jprb,&
&1.7606e-04_jprb,1.6488e-04_jprb,1.3686e-04_jprb/)
kao( :, 2, 4, 5) = (/&
&1.1811e-04_jprb,1.5738e-04_jprb,1.7430e-04_jprb,1.8299e-04_jprb,1.8662e-04_jprb,1.8551e-04_jprb,&
&1.8028e-04_jprb,1.6914e-04_jprb,1.4021e-04_jprb/)
kao( :, 3, 4, 5) = (/&
&1.1971e-04_jprb,1.6033e-04_jprb,1.7826e-04_jprb,1.8706e-04_jprb,1.9073e-04_jprb,1.9003e-04_jprb,&
&1.8491e-04_jprb,1.7381e-04_jprb,1.4440e-04_jprb/)
kao( :, 4, 4, 5) = (/&
&1.2145e-04_jprb,1.6360e-04_jprb,1.8232e-04_jprb,1.9160e-04_jprb,1.9546e-04_jprb,1.9520e-04_jprb,&
&1.9032e-04_jprb,1.7913e-04_jprb,1.4919e-04_jprb/)
kao( :, 5, 4, 5) = (/&
&1.2345e-04_jprb,1.6734e-04_jprb,1.8679e-04_jprb,1.9667e-04_jprb,2.0102e-04_jprb,2.0119e-04_jprb,&
&1.9631e-04_jprb,1.8511e-04_jprb,1.5453e-04_jprb/)
kao( :, 1, 5, 5) = (/&
&1.0534e-04_jprb,1.3892e-04_jprb,1.5318e-04_jprb,1.6013e-04_jprb,1.6249e-04_jprb,1.6140e-04_jprb,&
&1.5677e-04_jprb,1.4673e-04_jprb,1.2734e-04_jprb/)
kao( :, 2, 5, 5) = (/&
&1.0682e-04_jprb,1.4149e-04_jprb,1.5615e-04_jprb,1.6351e-04_jprb,1.6643e-04_jprb,1.6536e-04_jprb,&
&1.6060e-04_jprb,1.5077e-04_jprb,1.3032e-04_jprb/)
kao( :, 3, 5, 5) = (/&
&1.0832e-04_jprb,1.4437e-04_jprb,1.5968e-04_jprb,1.6719e-04_jprb,1.7007e-04_jprb,1.6925e-04_jprb,&
&1.6475e-04_jprb,1.5487e-04_jprb,1.3383e-04_jprb/)
kao( :, 4, 5, 5) = (/&
&1.0998e-04_jprb,1.4759e-04_jprb,1.6348e-04_jprb,1.7115e-04_jprb,1.7411e-04_jprb,1.7355e-04_jprb,&
&1.6947e-04_jprb,1.5945e-04_jprb,1.3787e-04_jprb/)
kao( :, 5, 5, 5) = (/&
&1.1196e-04_jprb,1.5129e-04_jprb,1.6770e-04_jprb,1.7586e-04_jprb,1.7902e-04_jprb,1.7859e-04_jprb,&
&1.7456e-04_jprb,1.6452e-04_jprb,1.4233e-04_jprb/)
kao( :, 1, 6, 5) = (/&
&9.4514e-05_jprb,1.2412e-04_jprb,1.3657e-04_jprb,1.4247e-04_jprb,1.4441e-04_jprb,1.4315e-04_jprb,&
&1.3838e-04_jprb,1.2929e-04_jprb,1.2327e-04_jprb/)
kao( :, 2, 6, 5) = (/&
&9.5941e-05_jprb,1.2645e-04_jprb,1.3931e-04_jprb,1.4558e-04_jprb,1.4789e-04_jprb,1.4670e-04_jprb,&
&1.4200e-04_jprb,1.3303e-04_jprb,1.2601e-04_jprb/)
kao( :, 3, 6, 5) = (/&
&9.7365e-05_jprb,1.2920e-04_jprb,1.4235e-04_jprb,1.4876e-04_jprb,1.5129e-04_jprb,1.5035e-04_jprb,&
&1.4574e-04_jprb,1.3687e-04_jprb,1.2924e-04_jprb/)
kao( :, 4, 6, 5) = (/&
&9.8894e-05_jprb,1.3238e-04_jprb,1.4586e-04_jprb,1.5224e-04_jprb,1.5484e-04_jprb,1.5423e-04_jprb,&
&1.4989e-04_jprb,1.4089e-04_jprb,1.3292e-04_jprb/)
kao( :, 5, 6, 5) = (/&
&1.0059e-04_jprb,1.3577e-04_jprb,1.4967e-04_jprb,1.5644e-04_jprb,1.5902e-04_jprb,1.5844e-04_jprb,&
&1.5428e-04_jprb,1.4522e-04_jprb,1.3684e-04_jprb/)
kao( :, 1, 7, 5) = (/&
&8.3817e-05_jprb,1.1024e-04_jprb,1.2069e-04_jprb,1.2606e-04_jprb,1.2762e-04_jprb,1.2601e-04_jprb,&
&1.2142e-04_jprb,1.1275e-04_jprb,1.2580e-04_jprb/)
kao( :, 2, 7, 5) = (/&
&8.5049e-05_jprb,1.1240e-04_jprb,1.2345e-04_jprb,1.2908e-04_jprb,1.3088e-04_jprb,1.2946e-04_jprb,&
&1.2489e-04_jprb,1.1643e-04_jprb,1.2769e-04_jprb/)
kao( :, 3, 7, 5) = (/&
&8.6443e-05_jprb,1.1489e-04_jprb,1.2631e-04_jprb,1.3210e-04_jprb,1.3408e-04_jprb,1.3284e-04_jprb,&
&1.2822e-04_jprb,1.1996e-04_jprb,1.3009e-04_jprb/)
kao( :, 4, 7, 5) = (/&
&8.7868e-05_jprb,1.1787e-04_jprb,1.2952e-04_jprb,1.3521e-04_jprb,1.3734e-04_jprb,1.3637e-04_jprb,&
&1.3189e-04_jprb,1.2366e-04_jprb,1.3307e-04_jprb/)
kao( :, 5, 7, 5) = (/&
&8.9520e-05_jprb,1.2113e-04_jprb,1.3311e-04_jprb,1.3890e-04_jprb,1.4111e-04_jprb,1.4019e-04_jprb,&
&1.3574e-04_jprb,1.2746e-04_jprb,1.3629e-04_jprb/)
kao( :, 1, 8, 5) = (/&
&7.3739e-05_jprb,9.7315e-05_jprb,1.0630e-04_jprb,1.1091e-04_jprb,1.1210e-04_jprb,1.1034e-04_jprb,&
&1.0576e-04_jprb,9.7435e-05_jprb,1.5219e-04_jprb/)
kao( :, 2, 8, 5) = (/&
&7.4739e-05_jprb,9.9339e-05_jprb,1.0888e-04_jprb,1.1385e-04_jprb,1.1515e-04_jprb,1.1361e-04_jprb,&
&1.0914e-04_jprb,1.0091e-04_jprb,1.5078e-04_jprb/)
kao( :, 3, 8, 5) = (/&
&7.5979e-05_jprb,1.0158e-04_jprb,1.1168e-04_jprb,1.1676e-04_jprb,1.1825e-04_jprb,1.1684e-04_jprb,&
&1.1240e-04_jprb,1.0417e-04_jprb,1.5044e-04_jprb/)
kao( :, 4, 8, 5) = (/&
&7.7389e-05_jprb,1.0425e-04_jprb,1.1460e-04_jprb,1.1977e-04_jprb,1.2131e-04_jprb,1.2000e-04_jprb,&
&1.1564e-04_jprb,1.0754e-04_jprb,1.5083e-04_jprb/)
kao( :, 5, 8, 5) = (/&
&7.8988e-05_jprb,1.0719e-04_jprb,1.1787e-04_jprb,1.2308e-04_jprb,1.2465e-04_jprb,1.2345e-04_jprb,&
&1.1918e-04_jprb,1.1099e-04_jprb,1.5186e-04_jprb/)
kao( :, 1, 9, 5) = (/&
&6.4327e-05_jprb,8.5194e-05_jprb,9.3124e-05_jprb,9.6906e-05_jprb,9.7902e-05_jprb,9.6087e-05_jprb,&
&9.1486e-05_jprb,8.3530e-05_jprb,3.0559e-04_jprb/)
kao( :, 2, 9, 5) = (/&
&6.5169e-05_jprb,8.7114e-05_jprb,9.5498e-05_jprb,9.9699e-05_jprb,1.0078e-04_jprb,9.9075e-05_jprb,&
&9.4585e-05_jprb,8.6649e-05_jprb,3.0376e-04_jprb/)
kao( :, 3, 9, 5) = (/&
&6.6228e-05_jprb,8.9174e-05_jprb,9.8080e-05_jprb,1.0257e-04_jprb,1.0373e-04_jprb,1.0212e-04_jprb,&
&9.7761e-05_jprb,8.9715e-05_jprb,3.0205e-04_jprb/)
kao( :, 4, 9, 5) = (/&
&6.7560e-05_jprb,9.1493e-05_jprb,1.0085e-04_jprb,1.0546e-04_jprb,1.0670e-04_jprb,1.0511e-04_jprb,&
&1.0078e-04_jprb,9.2773e-05_jprb,2.9925e-04_jprb/)
kao( :, 5, 9, 5) = (/&
&6.9090e-05_jprb,9.4108e-05_jprb,1.0377e-04_jprb,1.0852e-04_jprb,1.0981e-04_jprb,1.0822e-04_jprb,&
&1.0396e-04_jprb,9.5948e-05_jprb,2.9560e-04_jprb/)
kao( :, 1,10, 5) = (/&
&5.5732e-05_jprb,7.4195e-05_jprb,8.1092e-05_jprb,8.4263e-05_jprb,8.5004e-05_jprb,8.3260e-05_jprb,&
&7.8896e-05_jprb,7.1326e-05_jprb,7.3141e-04_jprb/)
kao( :, 2,10, 5) = (/&
&5.6464e-05_jprb,7.5996e-05_jprb,8.3306e-05_jprb,8.6877e-05_jprb,8.7776e-05_jprb,8.6058e-05_jprb,&
&8.1636e-05_jprb,7.4082e-05_jprb,7.1679e-04_jprb/)
kao( :, 3,10, 5) = (/&
&5.7403e-05_jprb,7.7891e-05_jprb,8.5666e-05_jprb,8.9585e-05_jprb,9.0592e-05_jprb,8.8875e-05_jprb,&
&8.4523e-05_jprb,7.6897e-05_jprb,7.0421e-04_jprb/)
kao( :, 4,10, 5) = (/&
&5.8620e-05_jprb,7.9933e-05_jprb,8.8213e-05_jprb,9.2386e-05_jprb,9.3433e-05_jprb,9.1667e-05_jprb,&
&8.7388e-05_jprb,7.9742e-05_jprb,6.9385e-04_jprb/)
kao( :, 5,10, 5) = (/&
&6.0067e-05_jprb,8.2256e-05_jprb,9.0893e-05_jprb,9.5273e-05_jprb,9.6366e-05_jprb,9.4596e-05_jprb,&
&9.0298e-05_jprb,8.2632e-05_jprb,6.8465e-04_jprb/)
kao( :, 1,11, 5) = (/&
&4.8186e-05_jprb,6.4983e-05_jprb,7.1108e-05_jprb,7.3858e-05_jprb,7.4401e-05_jprb,7.2817e-05_jprb,&
&6.8716e-05_jprb,6.1721e-05_jprb,9.3137e-04_jprb/)
kao( :, 2,11, 5) = (/&
&4.8927e-05_jprb,6.6681e-05_jprb,7.3165e-05_jprb,7.6242e-05_jprb,7.7034e-05_jprb,7.5453e-05_jprb,&
&7.1255e-05_jprb,6.4142e-05_jprb,9.0283e-04_jprb/)
kao( :, 3,11, 5) = (/&
&4.9906e-05_jprb,6.8442e-05_jprb,7.5379e-05_jprb,7.8833e-05_jprb,7.9706e-05_jprb,7.8052e-05_jprb,&
&7.3833e-05_jprb,6.6698e-05_jprb,8.7896e-04_jprb/)
kao( :, 4,11, 5) = (/&
&5.1140e-05_jprb,7.0403e-05_jprb,7.7738e-05_jprb,8.1490e-05_jprb,8.2392e-05_jprb,8.0715e-05_jprb,&
&7.6507e-05_jprb,6.9333e-05_jprb,8.5877e-04_jprb/)
kao( :, 5,11, 5) = (/&
&5.2547e-05_jprb,7.2595e-05_jprb,8.0310e-05_jprb,8.4272e-05_jprb,8.5190e-05_jprb,8.3479e-05_jprb,&
&7.9204e-05_jprb,7.1956e-05_jprb,8.4129e-04_jprb/)
kao( :, 1,12, 5) = (/&
&4.1357e-05_jprb,5.6591e-05_jprb,6.2004e-05_jprb,6.4335e-05_jprb,6.4718e-05_jprb,6.3255e-05_jprb,&
&5.9536e-05_jprb,5.3170e-05_jprb,9.4628e-04_jprb/)
kao( :, 2,12, 5) = (/&
&4.2117e-05_jprb,5.8142e-05_jprb,6.3912e-05_jprb,6.6563e-05_jprb,6.7175e-05_jprb,6.5721e-05_jprb,&
&6.1864e-05_jprb,5.5283e-05_jprb,9.1448e-04_jprb/)
kao( :, 3,12, 5) = (/&
&4.3123e-05_jprb,5.9831e-05_jprb,6.5955e-05_jprb,6.8956e-05_jprb,6.9677e-05_jprb,6.8113e-05_jprb,&
&6.4202e-05_jprb,5.7597e-05_jprb,8.8738e-04_jprb/)
kao( :, 4,12, 5) = (/&
&4.4308e-05_jprb,6.1719e-05_jprb,6.8165e-05_jprb,7.1448e-05_jprb,7.2209e-05_jprb,7.0617e-05_jprb,&
&6.6651e-05_jprb,5.9974e-05_jprb,8.6370e-04_jprb/)
kao( :, 5,12, 5) = (/&
&4.5586e-05_jprb,6.3825e-05_jprb,7.0651e-05_jprb,7.4074e-05_jprb,7.4824e-05_jprb,7.3199e-05_jprb,&
&6.9129e-05_jprb,6.2368e-05_jprb,8.4394e-04_jprb/)
kao( :, 1,13, 5) = (/&
&3.5199e-05_jprb,4.8904e-05_jprb,5.3685e-05_jprb,5.5708e-05_jprb,5.5958e-05_jprb,5.4602e-05_jprb,&
&5.1289e-05_jprb,4.5544e-05_jprb,7.9844e-04_jprb/)
kao( :, 2,13, 5) = (/&
&3.5968e-05_jprb,5.0359e-05_jprb,5.5441e-05_jprb,5.7776e-05_jprb,5.8210e-05_jprb,5.6833e-05_jprb,&
&5.3406e-05_jprb,4.7437e-05_jprb,7.7225e-04_jprb/)
kao( :, 3,13, 5) = (/&
&3.6919e-05_jprb,5.1978e-05_jprb,5.7339e-05_jprb,5.9942e-05_jprb,6.0487e-05_jprb,5.9061e-05_jprb,&
&5.5548e-05_jprb,4.9491e-05_jprb,7.4964e-04_jprb/)
kao( :, 4,13, 5) = (/&
&3.7983e-05_jprb,5.3790e-05_jprb,5.9444e-05_jprb,6.2256e-05_jprb,6.2844e-05_jprb,6.1377e-05_jprb,&
&5.7755e-05_jprb,5.1611e-05_jprb,7.3016e-04_jprb/)
kao( :, 5,13, 5) = (/&
&3.9071e-05_jprb,5.5803e-05_jprb,6.1798e-05_jprb,6.4723e-05_jprb,6.5302e-05_jprb,6.3732e-05_jprb,&
&5.9993e-05_jprb,5.3748e-05_jprb,7.1404e-04_jprb/)
kao( :, 1, 1, 6) = (/&
&2.5660e-04_jprb,3.1807e-04_jprb,3.6094e-04_jprb,3.8920e-04_jprb,4.0736e-04_jprb,4.1545e-04_jprb,&
&4.1386e-04_jprb,4.0633e-04_jprb,3.6193e-04_jprb/)
kao( :, 2, 1, 6) = (/&
&2.5865e-04_jprb,3.2319e-04_jprb,3.6764e-04_jprb,3.9762e-04_jprb,4.1800e-04_jprb,4.2858e-04_jprb,&
&4.2847e-04_jprb,4.2235e-04_jprb,3.7675e-04_jprb/)
kao( :, 3, 1, 6) = (/&
&2.6137e-04_jprb,3.2915e-04_jprb,3.7535e-04_jprb,4.0750e-04_jprb,4.2970e-04_jprb,4.4147e-04_jprb,&
&4.4293e-04_jprb,4.3843e-04_jprb,3.9233e-04_jprb/)
kao( :, 4, 1, 6) = (/&
&2.6360e-04_jprb,3.3488e-04_jprb,3.8404e-04_jprb,4.1788e-04_jprb,4.4114e-04_jprb,4.5427e-04_jprb,&
&4.5738e-04_jprb,4.5544e-04_jprb,4.1003e-04_jprb/)
kao( :, 5, 1, 6) = (/&
&2.6660e-04_jprb,3.4173e-04_jprb,3.9350e-04_jprb,4.2919e-04_jprb,4.5400e-04_jprb,4.6894e-04_jprb,&
&4.7415e-04_jprb,4.7523e-04_jprb,4.3058e-04_jprb/)
kao( :, 1, 2, 6) = (/&
&2.3631e-04_jprb,2.9631e-04_jprb,3.3525e-04_jprb,3.5919e-04_jprb,3.7267e-04_jprb,3.7835e-04_jprb,&
&3.7529e-04_jprb,3.6555e-04_jprb,3.2111e-04_jprb/)
kao( :, 2, 2, 6) = (/&
&2.3829e-04_jprb,3.0128e-04_jprb,3.4159e-04_jprb,3.6758e-04_jprb,3.8290e-04_jprb,3.9019e-04_jprb,&
&3.8891e-04_jprb,3.7964e-04_jprb,3.3378e-04_jprb/)
kao( :, 3, 2, 6) = (/&
&2.4092e-04_jprb,3.0698e-04_jprb,3.4893e-04_jprb,3.7703e-04_jprb,3.9429e-04_jprb,4.0240e-04_jprb,&
&4.0189e-04_jprb,3.9363e-04_jprb,3.4730e-04_jprb/)
kao( :, 4, 2, 6) = (/&
&2.4353e-04_jprb,3.1280e-04_jprb,3.5757e-04_jprb,3.8697e-04_jprb,4.0550e-04_jprb,4.1447e-04_jprb,&
&4.1496e-04_jprb,4.0890e-04_jprb,3.6318e-04_jprb/)
kao( :, 5, 2, 6) = (/&
&2.4646e-04_jprb,3.1930e-04_jprb,3.6666e-04_jprb,3.9774e-04_jprb,4.1741e-04_jprb,4.2801e-04_jprb,&
&4.2988e-04_jprb,4.2637e-04_jprb,3.8102e-04_jprb/)
kao( :, 1, 3, 6) = (/&
&2.1702e-04_jprb,2.7392e-04_jprb,3.0713e-04_jprb,3.2661e-04_jprb,3.3701e-04_jprb,3.4012e-04_jprb,&
&3.3574e-04_jprb,3.2367e-04_jprb,2.7953e-04_jprb/)
kao( :, 2, 3, 6) = (/&
&2.1882e-04_jprb,2.7874e-04_jprb,3.1368e-04_jprb,3.3483e-04_jprb,3.4655e-04_jprb,3.5089e-04_jprb,&
&3.4836e-04_jprb,3.3662e-04_jprb,2.9075e-04_jprb/)
kao( :, 3, 3, 6) = (/&
&2.2093e-04_jprb,2.8379e-04_jprb,3.2031e-04_jprb,3.4355e-04_jprb,3.5690e-04_jprb,3.6196e-04_jprb,&
&3.6029e-04_jprb,3.4924e-04_jprb,3.0255e-04_jprb/)
kao( :, 4, 3, 6) = (/&
&2.2391e-04_jprb,2.8964e-04_jprb,3.2857e-04_jprb,3.5322e-04_jprb,3.6741e-04_jprb,3.7364e-04_jprb,&
&3.7227e-04_jprb,3.6287e-04_jprb,3.1610e-04_jprb/)
kao( :, 5, 3, 6) = (/&
&2.2678e-04_jprb,2.9569e-04_jprb,3.3712e-04_jprb,3.6314e-04_jprb,3.7839e-04_jprb,3.8589e-04_jprb,&
&3.8538e-04_jprb,3.7808e-04_jprb,3.3103e-04_jprb/)
kao( :, 1, 4, 6) = (/&
&1.9893e-04_jprb,2.5184e-04_jprb,2.7904e-04_jprb,2.9424e-04_jprb,3.0215e-04_jprb,3.0353e-04_jprb,&
&2.9750e-04_jprb,2.8367e-04_jprb,2.4378e-04_jprb/)
kao( :, 2, 4, 6) = (/&
&2.0039e-04_jprb,2.5636e-04_jprb,2.8551e-04_jprb,3.0218e-04_jprb,3.1138e-04_jprb,3.1364e-04_jprb,&
&3.0933e-04_jprb,2.9596e-04_jprb,2.5360e-04_jprb/)
kao( :, 3, 4, 6) = (/&
&2.0244e-04_jprb,2.6111e-04_jprb,2.9172e-04_jprb,3.1073e-04_jprb,3.2138e-04_jprb,3.2408e-04_jprb,&
&3.2030e-04_jprb,3.0766e-04_jprb,2.6380e-04_jprb/)
kao( :, 4, 4, 6) = (/&
&2.0501e-04_jprb,2.6640e-04_jprb,2.9889e-04_jprb,3.1956e-04_jprb,3.3116e-04_jprb,3.3435e-04_jprb,&
&3.3120e-04_jprb,3.1983e-04_jprb,2.7551e-04_jprb/)
kao( :, 5, 4, 6) = (/&
&2.0836e-04_jprb,2.7264e-04_jprb,3.0721e-04_jprb,3.2917e-04_jprb,3.4139e-04_jprb,3.4585e-04_jprb,&
&3.4342e-04_jprb,3.3321e-04_jprb,2.8833e-04_jprb/)
kao( :, 1, 5, 6) = (/&
&1.8177e-04_jprb,2.3005e-04_jprb,2.5216e-04_jprb,2.6400e-04_jprb,2.6980e-04_jprb,2.6977e-04_jprb,&
&2.6270e-04_jprb,2.4807e-04_jprb,2.1566e-04_jprb/)
kao( :, 2, 5, 6) = (/&
&1.8288e-04_jprb,2.3456e-04_jprb,2.5850e-04_jprb,2.7178e-04_jprb,2.7838e-04_jprb,2.7918e-04_jprb,&
&2.7326e-04_jprb,2.5893e-04_jprb,2.2464e-04_jprb/)
kao( :, 3, 5, 6) = (/&
&1.8495e-04_jprb,2.3899e-04_jprb,2.6446e-04_jprb,2.7972e-04_jprb,2.8778e-04_jprb,2.8887e-04_jprb,&
&2.8352e-04_jprb,2.6965e-04_jprb,2.3371e-04_jprb/)
kao( :, 4, 5, 6) = (/&
&1.8757e-04_jprb,2.4389e-04_jprb,2.7104e-04_jprb,2.8807e-04_jprb,2.9709e-04_jprb,2.9855e-04_jprb,&
&2.9335e-04_jprb,2.8065e-04_jprb,2.4386e-04_jprb/)
kao( :, 5, 5, 6) = (/&
&1.9089e-04_jprb,2.4987e-04_jprb,2.7871e-04_jprb,2.9704e-04_jprb,3.0660e-04_jprb,3.0888e-04_jprb,&
&3.0414e-04_jprb,2.9240e-04_jprb,2.5489e-04_jprb/)
kao( :, 1, 6, 6) = (/&
&1.6548e-04_jprb,2.0845e-04_jprb,2.2667e-04_jprb,2.3621e-04_jprb,2.3998e-04_jprb,2.3852e-04_jprb,&
&2.3181e-04_jprb,2.1713e-04_jprb,1.9774e-04_jprb/)
kao( :, 2, 6, 6) = (/&
&1.6647e-04_jprb,2.1295e-04_jprb,2.3285e-04_jprb,2.4356e-04_jprb,2.4798e-04_jprb,2.4711e-04_jprb,&
&2.4086e-04_jprb,2.2656e-04_jprb,2.0619e-04_jprb/)
kao( :, 3, 6, 6) = (/&
&1.6832e-04_jprb,2.1735e-04_jprb,2.3897e-04_jprb,2.5101e-04_jprb,2.5638e-04_jprb,2.5608e-04_jprb,&
&2.5005e-04_jprb,2.3612e-04_jprb,2.1472e-04_jprb/)
kao( :, 4, 6, 6) = (/&
&1.7090e-04_jprb,2.2192e-04_jprb,2.4527e-04_jprb,2.5863e-04_jprb,2.6479e-04_jprb,2.6498e-04_jprb,&
&2.5909e-04_jprb,2.4595e-04_jprb,2.2382e-04_jprb/)
kao( :, 5, 6, 6) = (/&
&1.7392e-04_jprb,2.2728e-04_jprb,2.5204e-04_jprb,2.6653e-04_jprb,2.7329e-04_jprb,2.7417e-04_jprb,&
&2.6871e-04_jprb,2.5622e-04_jprb,2.3379e-04_jprb/)
kao( :, 1, 7, 6) = (/&
&1.4974e-04_jprb,1.8746e-04_jprb,2.0303e-04_jprb,2.1075e-04_jprb,2.1306e-04_jprb,2.1110e-04_jprb,&
&2.0431e-04_jprb,1.8998e-04_jprb,1.9358e-04_jprb/)
kao( :, 2, 7, 6) = (/&
&1.5089e-04_jprb,1.9183e-04_jprb,2.0895e-04_jprb,2.1750e-04_jprb,2.2044e-04_jprb,2.1873e-04_jprb,&
&2.1228e-04_jprb,1.9808e-04_jprb,2.0012e-04_jprb/)
kao( :, 3, 7, 6) = (/&
&1.5257e-04_jprb,1.9611e-04_jprb,2.1478e-04_jprb,2.2448e-04_jprb,2.2805e-04_jprb,2.2660e-04_jprb,&
&2.2066e-04_jprb,2.0672e-04_jprb,2.0775e-04_jprb/)
kao( :, 4, 7, 6) = (/&
&1.5493e-04_jprb,2.0056e-04_jprb,2.2076e-04_jprb,2.3152e-04_jprb,2.3569e-04_jprb,2.3461e-04_jprb,&
&2.2897e-04_jprb,2.1559e-04_jprb,2.1605e-04_jprb/)
kao( :, 5, 7, 6) = (/&
&1.5774e-04_jprb,2.0562e-04_jprb,2.2715e-04_jprb,2.3878e-04_jprb,2.4330e-04_jprb,2.4290e-04_jprb,&
&2.3768e-04_jprb,2.2474e-04_jprb,2.2537e-04_jprb/)
kao( :, 1, 8, 6) = (/&
&1.3469e-04_jprb,1.6768e-04_jprb,1.8125e-04_jprb,1.8765e-04_jprb,1.8912e-04_jprb,1.8647e-04_jprb,&
&1.7925e-04_jprb,1.6551e-04_jprb,2.2549e-04_jprb/)
kao( :, 2, 8, 6) = (/&
&1.3601e-04_jprb,1.7179e-04_jprb,1.8676e-04_jprb,1.9388e-04_jprb,1.9601e-04_jprb,1.9365e-04_jprb,&
&1.8651e-04_jprb,1.7268e-04_jprb,2.2728e-04_jprb/)
kao( :, 3, 8, 6) = (/&
&1.3770e-04_jprb,1.7606e-04_jprb,1.9214e-04_jprb,2.0024e-04_jprb,2.0294e-04_jprb,2.0077e-04_jprb,&
&1.9394e-04_jprb,1.8025e-04_jprb,2.3037e-04_jprb/)
kao( :, 4, 8, 6) = (/&
&1.3980e-04_jprb,1.8052e-04_jprb,1.9782e-04_jprb,2.0667e-04_jprb,2.0985e-04_jprb,2.0804e-04_jprb,&
&2.0170e-04_jprb,1.8820e-04_jprb,2.3502e-04_jprb/)
kao( :, 5, 8, 6) = (/&
&1.4234e-04_jprb,1.8549e-04_jprb,2.0378e-04_jprb,2.1326e-04_jprb,2.1685e-04_jprb,2.1554e-04_jprb,&
&2.0965e-04_jprb,1.9644e-04_jprb,2.4136e-04_jprb/)
kao( :, 1, 9, 6) = (/&
&1.1992e-04_jprb,1.4933e-04_jprb,1.6105e-04_jprb,1.6671e-04_jprb,1.6730e-04_jprb,1.6393e-04_jprb,&
&1.5666e-04_jprb,1.4342e-04_jprb,4.8653e-04_jprb/)
kao( :, 2, 9, 6) = (/&
&1.2149e-04_jprb,1.5326e-04_jprb,1.6624e-04_jprb,1.7247e-04_jprb,1.7376e-04_jprb,1.7057e-04_jprb,&
&1.6339e-04_jprb,1.5015e-04_jprb,4.7263e-04_jprb/)
kao( :, 3, 9, 6) = (/&
&1.2314e-04_jprb,1.5738e-04_jprb,1.7131e-04_jprb,1.7818e-04_jprb,1.8004e-04_jprb,1.7724e-04_jprb,&
&1.6998e-04_jprb,1.5688e-04_jprb,4.6122e-04_jprb/)
kao( :, 4, 9, 6) = (/&
&1.2514e-04_jprb,1.6177e-04_jprb,1.7650e-04_jprb,1.8400e-04_jprb,1.8641e-04_jprb,1.8403e-04_jprb,&
&1.7684e-04_jprb,1.6385e-04_jprb,4.5149e-04_jprb/)
kao( :, 5, 9, 6) = (/&
&1.2748e-04_jprb,1.6660e-04_jprb,1.8214e-04_jprb,1.9005e-04_jprb,1.9284e-04_jprb,1.9097e-04_jprb,&
&1.8405e-04_jprb,1.7111e-04_jprb,4.4363e-04_jprb/)
kao( :, 1,10, 6) = (/&
&1.0584e-04_jprb,1.3236e-04_jprb,1.4288e-04_jprb,1.4761e-04_jprb,1.4780e-04_jprb,1.4423e-04_jprb,&
&1.3667e-04_jprb,1.2400e-04_jprb,1.5407e-03_jprb/)
kao( :, 2,10, 6) = (/&
&1.0748e-04_jprb,1.3619e-04_jprb,1.4771e-04_jprb,1.5305e-04_jprb,1.5361e-04_jprb,1.5017e-04_jprb,&
&1.4291e-04_jprb,1.3024e-04_jprb,1.4707e-03_jprb/)
kao( :, 3,10, 6) = (/&
&1.0916e-04_jprb,1.4012e-04_jprb,1.5258e-04_jprb,1.5840e-04_jprb,1.5929e-04_jprb,1.5625e-04_jprb,&
&1.4913e-04_jprb,1.3639e-04_jprb,1.4078e-03_jprb/)
kao( :, 4,10, 6) = (/&
&1.1108e-04_jprb,1.4432e-04_jprb,1.5744e-04_jprb,1.6378e-04_jprb,1.6514e-04_jprb,1.6251e-04_jprb,&
&1.5541e-04_jprb,1.4254e-04_jprb,1.3501e-03_jprb/)
kao( :, 5,10, 6) = (/&
&1.1328e-04_jprb,1.4893e-04_jprb,1.6265e-04_jprb,1.6934e-04_jprb,1.7119e-04_jprb,1.6880e-04_jprb,&
&1.6190e-04_jprb,1.4900e-04_jprb,1.2982e-03_jprb/)
kao( :, 1,11, 6) = (/&
&9.3489e-05_jprb,1.1825e-04_jprb,1.2805e-04_jprb,1.3224e-04_jprb,1.3232e-04_jprb,1.2873e-04_jprb,&
&1.2131e-04_jprb,1.0918e-04_jprb,2.0757e-03_jprb/)
kao( :, 2,11, 6) = (/&
&9.5099e-05_jprb,1.2195e-04_jprb,1.3268e-04_jprb,1.3732e-04_jprb,1.3748e-04_jprb,1.3414e-04_jprb,&
&1.2695e-04_jprb,1.1489e-04_jprb,1.9797e-03_jprb/)
kao( :, 3,11, 6) = (/&
&9.6804e-05_jprb,1.2575e-04_jprb,1.3731e-04_jprb,1.4230e-04_jprb,1.4278e-04_jprb,1.3973e-04_jprb,&
&1.3283e-04_jprb,1.2047e-04_jprb,1.8901e-03_jprb/)
kao( :, 4,11, 6) = (/&
&9.8710e-05_jprb,1.2986e-04_jprb,1.4205e-04_jprb,1.4740e-04_jprb,1.4826e-04_jprb,1.4548e-04_jprb,&
&1.3868e-04_jprb,1.2603e-04_jprb,1.8079e-03_jprb/)
kao( :, 5,11, 6) = (/&
&1.0095e-04_jprb,1.3435e-04_jprb,1.4704e-04_jprb,1.5275e-04_jprb,1.5397e-04_jprb,1.5141e-04_jprb,&
&1.4471e-04_jprb,1.3186e-04_jprb,1.7340e-03_jprb/)
kao( :, 1,12, 6) = (/&
&8.2093e-05_jprb,1.0522e-04_jprb,1.1410e-04_jprb,1.1782e-04_jprb,1.1761e-04_jprb,1.1416e-04_jprb,&
&1.0724e-04_jprb,9.5735e-05_jprb,2.1586e-03_jprb/)
kao( :, 2,12, 6) = (/&
&8.3669e-05_jprb,1.0871e-04_jprb,1.1846e-04_jprb,1.2251e-04_jprb,1.2240e-04_jprb,1.1908e-04_jprb,&
&1.1234e-04_jprb,1.0091e-04_jprb,2.0547e-03_jprb/)
kao( :, 3,12, 6) = (/&
&8.5301e-05_jprb,1.1235e-04_jprb,1.2282e-04_jprb,1.2721e-04_jprb,1.2738e-04_jprb,1.2431e-04_jprb,&
&1.1770e-04_jprb,1.0601e-04_jprb,1.9599e-03_jprb/)
kao( :, 4,12, 6) = (/&
&8.7242e-05_jprb,1.1626e-04_jprb,1.2740e-04_jprb,1.3207e-04_jprb,1.3252e-04_jprb,1.2966e-04_jprb,&
&1.2318e-04_jprb,1.1105e-04_jprb,1.8736e-03_jprb/)
kao( :, 5,12, 6) = (/&
&8.9569e-05_jprb,1.2041e-04_jprb,1.3214e-04_jprb,1.3715e-04_jprb,1.3802e-04_jprb,1.3533e-04_jprb,&
&1.2876e-04_jprb,1.1627e-04_jprb,1.7949e-03_jprb/)
kao( :, 1,13, 6) = (/&
&7.1569e-05_jprb,9.3060e-05_jprb,1.0102e-04_jprb,1.0423e-04_jprb,1.0388e-04_jprb,1.0052e-04_jprb,&
&9.4174e-05_jprb,8.3531e-05_jprb,1.8351e-03_jprb/)
kao( :, 2,13, 6) = (/&
&7.3011e-05_jprb,9.6373e-05_jprb,1.0503e-04_jprb,1.0856e-04_jprb,1.0834e-04_jprb,1.0508e-04_jprb,&
&9.8836e-05_jprb,8.8176e-05_jprb,1.7459e-03_jprb/)
kao( :, 3,13, 6) = (/&
&7.4663e-05_jprb,9.9794e-05_jprb,1.0913e-04_jprb,1.1298e-04_jprb,1.1299e-04_jprb,1.0991e-04_jprb,&
&1.0372e-04_jprb,9.2787e-05_jprb,1.6660e-03_jprb/)
kao( :, 4,13, 6) = (/&
&7.6630e-05_jprb,1.0344e-04_jprb,1.1345e-04_jprb,1.1756e-04_jprb,1.1782e-04_jprb,1.1495e-04_jprb,&
&1.0877e-04_jprb,9.7412e-05_jprb,1.5932e-03_jprb/)
kao( :, 5,13, 6) = (/&
&7.9007e-05_jprb,1.0733e-04_jprb,1.1787e-04_jprb,1.2235e-04_jprb,1.2303e-04_jprb,1.2033e-04_jprb,&
&1.1390e-04_jprb,1.0206e-04_jprb,1.5265e-03_jprb/)
kao( :, 1, 1, 7) = (/&
&4.6305e-04_jprb,5.4556e-04_jprb,6.0200e-04_jprb,6.4863e-04_jprb,6.8107e-04_jprb,7.0420e-04_jprb,&
&7.2199e-04_jprb,7.3085e-04_jprb,6.7646e-04_jprb/)
kao( :, 2, 1, 7) = (/&
&4.6301e-04_jprb,5.5700e-04_jprb,6.1674e-04_jprb,6.6918e-04_jprb,7.0683e-04_jprb,7.3382e-04_jprb,&
&7.5720e-04_jprb,7.6870e-04_jprb,7.1353e-04_jprb/)
kao( :, 3, 1, 7) = (/&
&4.6454e-04_jprb,5.7050e-04_jprb,6.3324e-04_jprb,6.9016e-04_jprb,7.3249e-04_jprb,7.6632e-04_jprb,&
&7.9567e-04_jprb,8.0915e-04_jprb,7.5224e-04_jprb/)
kao( :, 4, 1, 7) = (/&
&4.6651e-04_jprb,5.8405e-04_jprb,6.4895e-04_jprb,7.1069e-04_jprb,7.5837e-04_jprb,7.9949e-04_jprb,&
&8.3506e-04_jprb,8.5087e-04_jprb,7.9164e-04_jprb/)
kao( :, 5, 1, 7) = (/&
&4.7034e-04_jprb,5.9930e-04_jprb,6.6683e-04_jprb,7.3355e-04_jprb,7.8609e-04_jprb,8.3312e-04_jprb,&
&8.7517e-04_jprb,8.9333e-04_jprb,8.3199e-04_jprb/)
kao( :, 1, 2, 7) = (/&
&4.3178e-04_jprb,5.0967e-04_jprb,5.7208e-04_jprb,6.1793e-04_jprb,6.4678e-04_jprb,6.6138e-04_jprb,&
&6.6815e-04_jprb,6.6568e-04_jprb,5.9744e-04_jprb/)
kao( :, 2, 2, 7) = (/&
&4.3227e-04_jprb,5.2067e-04_jprb,5.8785e-04_jprb,6.3795e-04_jprb,6.7133e-04_jprb,6.9007e-04_jprb,&
&7.0100e-04_jprb,7.0211e-04_jprb,6.3355e-04_jprb/)
kao( :, 3, 2, 7) = (/&
&4.3414e-04_jprb,5.3362e-04_jprb,6.0473e-04_jprb,6.5841e-04_jprb,6.9567e-04_jprb,7.2097e-04_jprb,&
&7.3754e-04_jprb,7.4189e-04_jprb,6.7066e-04_jprb/)
kao( :, 4, 2, 7) = (/&
&4.3688e-04_jprb,5.4677e-04_jprb,6.2106e-04_jprb,6.7900e-04_jprb,7.2053e-04_jprb,7.5255e-04_jprb,&
&7.7596e-04_jprb,7.8317e-04_jprb,7.0771e-04_jprb/)
kao( :, 5, 2, 7) = (/&
&4.4026e-04_jprb,5.6009e-04_jprb,6.3723e-04_jprb,6.9996e-04_jprb,7.4621e-04_jprb,7.8382e-04_jprb,&
&8.1411e-04_jprb,8.2479e-04_jprb,7.4663e-04_jprb/)
kao( :, 1, 3, 7) = (/&
&4.0042e-04_jprb,4.7588e-04_jprb,5.3737e-04_jprb,5.7848e-04_jprb,6.0266e-04_jprb,6.1092e-04_jprb,&
&6.0756e-04_jprb,5.9389e-04_jprb,5.1726e-04_jprb/)
kao( :, 2, 3, 7) = (/&
&4.0139e-04_jprb,4.8636e-04_jprb,5.5256e-04_jprb,5.9842e-04_jprb,6.2668e-04_jprb,6.3795e-04_jprb,&
&6.3723e-04_jprb,6.2673e-04_jprb,5.4890e-04_jprb/)
kao( :, 3, 3, 7) = (/&
&4.0264e-04_jprb,4.9818e-04_jprb,5.6878e-04_jprb,6.1775e-04_jprb,6.4985e-04_jprb,6.6625e-04_jprb,&
&6.6960e-04_jprb,6.6297e-04_jprb,5.8203e-04_jprb/)
kao( :, 4, 3, 7) = (/&
&4.0594e-04_jprb,5.1098e-04_jprb,5.8559e-04_jprb,6.3812e-04_jprb,6.7417e-04_jprb,6.9560e-04_jprb,&
&7.0436e-04_jprb,7.0139e-04_jprb,6.1550e-04_jprb/)
kao( :, 5, 3, 7) = (/&
&4.0942e-04_jprb,5.2279e-04_jprb,6.0106e-04_jprb,6.5810e-04_jprb,6.9804e-04_jprb,7.2431e-04_jprb,&
&7.3907e-04_jprb,7.3980e-04_jprb,6.5087e-04_jprb/)
kao( :, 1, 4, 7) = (/&
&3.6954e-04_jprb,4.4390e-04_jprb,4.9967e-04_jprb,5.3490e-04_jprb,5.5341e-04_jprb,5.5728e-04_jprb,&
&5.4744e-04_jprb,5.2585e-04_jprb,4.5076e-04_jprb/)
kao( :, 2, 4, 7) = (/&
&3.7099e-04_jprb,4.5452e-04_jprb,5.1452e-04_jprb,5.5410e-04_jprb,5.7617e-04_jprb,5.8227e-04_jprb,&
&5.7394e-04_jprb,5.5446e-04_jprb,4.7750e-04_jprb/)
kao( :, 3, 4, 7) = (/&
&3.7261e-04_jprb,4.6594e-04_jprb,5.3039e-04_jprb,5.7264e-04_jprb,5.9783e-04_jprb,6.0838e-04_jprb,&
&6.0270e-04_jprb,5.8596e-04_jprb,5.0606e-04_jprb/)
kao( :, 4, 4, 7) = (/&
&3.7542e-04_jprb,4.7733e-04_jprb,5.4631e-04_jprb,5.9142e-04_jprb,6.2021e-04_jprb,6.3532e-04_jprb,&
&6.3302e-04_jprb,6.1929e-04_jprb,5.3494e-04_jprb/)
kao( :, 5, 4, 7) = (/&
&3.7994e-04_jprb,4.8922e-04_jprb,5.6238e-04_jprb,6.1134e-04_jprb,6.4405e-04_jprb,6.6206e-04_jprb,&
&6.6409e-04_jprb,6.5333e-04_jprb,5.6564e-04_jprb/)
kao( :, 1, 5, 7) = (/&
&3.4061e-04_jprb,4.1228e-04_jprb,4.6040e-04_jprb,4.8986e-04_jprb,5.0320e-04_jprb,5.0314e-04_jprb,&
&4.9155e-04_jprb,4.6563e-04_jprb,3.9708e-04_jprb/)
kao( :, 2, 5, 7) = (/&
&3.4265e-04_jprb,4.2238e-04_jprb,4.7497e-04_jprb,5.0787e-04_jprb,5.2436e-04_jprb,5.2638e-04_jprb,&
&5.1586e-04_jprb,4.9074e-04_jprb,4.1980e-04_jprb/)
kao( :, 3, 5, 7) = (/&
&3.4457e-04_jprb,4.3316e-04_jprb,4.9022e-04_jprb,5.2547e-04_jprb,5.4476e-04_jprb,5.5018e-04_jprb,&
&5.4131e-04_jprb,5.1767e-04_jprb,4.4445e-04_jprb/)
kao( :, 4, 5, 7) = (/&
&3.4732e-04_jprb,4.4421e-04_jprb,5.0540e-04_jprb,5.4314e-04_jprb,5.6518e-04_jprb,5.7439e-04_jprb,&
&5.6831e-04_jprb,5.4593e-04_jprb,4.6962e-04_jprb/)
kao( :, 5, 5, 7) = (/&
&3.5182e-04_jprb,4.5580e-04_jprb,5.2093e-04_jprb,5.6187e-04_jprb,5.8688e-04_jprb,5.9917e-04_jprb,&
&5.9551e-04_jprb,5.7498e-04_jprb,4.9655e-04_jprb/)
kao( :, 1, 6, 7) = (/&
&3.1397e-04_jprb,3.8099e-04_jprb,4.2085e-04_jprb,4.4392e-04_jprb,4.5344e-04_jprb,4.5128e-04_jprb,&
&4.3795e-04_jprb,4.1046e-04_jprb,3.5811e-04_jprb/)
kao( :, 2, 6, 7) = (/&
&3.1655e-04_jprb,3.9053e-04_jprb,4.3489e-04_jprb,4.6069e-04_jprb,4.7295e-04_jprb,4.7284e-04_jprb,&
&4.6063e-04_jprb,4.3290e-04_jprb,3.7673e-04_jprb/)
kao( :, 3, 6, 7) = (/&
&3.1898e-04_jprb,4.0060e-04_jprb,4.4896e-04_jprb,4.7714e-04_jprb,4.9199e-04_jprb,4.9458e-04_jprb,&
&4.8353e-04_jprb,4.5629e-04_jprb,3.9672e-04_jprb/)
kao( :, 4, 6, 7) = (/&
&3.2158e-04_jprb,4.1129e-04_jprb,4.6291e-04_jprb,4.9376e-04_jprb,5.1129e-04_jprb,5.1624e-04_jprb,&
&5.0719e-04_jprb,4.8049e-04_jprb,4.1801e-04_jprb/)
kao( :, 5, 6, 7) = (/&
&3.2502e-04_jprb,4.2183e-04_jprb,4.7677e-04_jprb,5.1073e-04_jprb,5.3095e-04_jprb,5.3777e-04_jprb,&
&5.3107e-04_jprb,5.0560e-04_jprb,4.4095e-04_jprb/)
kao( :, 1, 7, 7) = (/&
&2.8858e-04_jprb,3.5072e-04_jprb,3.8244e-04_jprb,3.9969e-04_jprb,4.0628e-04_jprb,4.0266e-04_jprb,&
&3.8820e-04_jprb,3.6095e-04_jprb,3.4917e-04_jprb/)
kao( :, 2, 7, 7) = (/&
&2.9154e-04_jprb,3.5995e-04_jprb,3.9513e-04_jprb,4.1562e-04_jprb,4.2428e-04_jprb,4.2225e-04_jprb,&
&4.0848e-04_jprb,3.8100e-04_jprb,3.6556e-04_jprb/)
kao( :, 3, 7, 7) = (/&
&2.9427e-04_jprb,3.6955e-04_jprb,4.0818e-04_jprb,4.3070e-04_jprb,4.4206e-04_jprb,4.4209e-04_jprb,&
&4.2902e-04_jprb,4.0153e-04_jprb,3.8273e-04_jprb/)
kao( :, 4, 7, 7) = (/&
&2.9693e-04_jprb,3.7937e-04_jprb,4.2130e-04_jprb,4.4602e-04_jprb,4.5975e-04_jprb,4.6189e-04_jprb,&
&4.5029e-04_jprb,4.2249e-04_jprb,4.0122e-04_jprb/)
kao( :, 5, 7, 7) = (/&
&3.0032e-04_jprb,3.8893e-04_jprb,4.3431e-04_jprb,4.6164e-04_jprb,4.7805e-04_jprb,4.8151e-04_jprb,&
&4.7139e-04_jprb,4.4430e-04_jprb,4.2113e-04_jprb/)
kao( :, 1, 8, 7) = (/&
&2.6433e-04_jprb,3.2164e-04_jprb,3.4678e-04_jprb,3.5895e-04_jprb,3.6313e-04_jprb,3.5828e-04_jprb,&
&3.4379e-04_jprb,3.1784e-04_jprb,3.8325e-04_jprb/)
kao( :, 2, 8, 7) = (/&
&2.6764e-04_jprb,3.3079e-04_jprb,3.5818e-04_jprb,3.7326e-04_jprb,3.7969e-04_jprb,3.7570e-04_jprb,&
&3.6173e-04_jprb,3.3531e-04_jprb,3.9627e-04_jprb/)
kao( :, 3, 8, 7) = (/&
&2.7049e-04_jprb,3.3967e-04_jprb,3.6984e-04_jprb,3.8764e-04_jprb,3.9567e-04_jprb,3.9347e-04_jprb,&
&3.7992e-04_jprb,3.5345e-04_jprb,4.1157e-04_jprb/)
kao( :, 4, 8, 7) = (/&
&2.7332e-04_jprb,3.4840e-04_jprb,3.8188e-04_jprb,4.0186e-04_jprb,4.1166e-04_jprb,4.1115e-04_jprb,&
&3.9867e-04_jprb,3.7201e-04_jprb,4.2882e-04_jprb/)
kao( :, 5, 8, 7) = (/&
&2.7670e-04_jprb,3.5697e-04_jprb,3.9392e-04_jprb,4.1633e-04_jprb,4.2814e-04_jprb,4.2877e-04_jprb,&
&4.1760e-04_jprb,3.9091e-04_jprb,4.4711e-04_jprb/)
kao( :, 1, 9, 7) = (/&
&2.4137e-04_jprb,2.9350e-04_jprb,3.1375e-04_jprb,3.2233e-04_jprb,3.2400e-04_jprb,3.1859e-04_jprb,&
&3.0441e-04_jprb,2.7946e-04_jprb,7.4112e-04_jprb/)
kao( :, 2, 9, 7) = (/&
&2.4480e-04_jprb,3.0210e-04_jprb,3.2420e-04_jprb,3.3517e-04_jprb,3.3871e-04_jprb,3.3414e-04_jprb,&
&3.2021e-04_jprb,2.9498e-04_jprb,7.2877e-04_jprb/)
kao( :, 3, 9, 7) = (/&
&2.4785e-04_jprb,3.1022e-04_jprb,3.3497e-04_jprb,3.4812e-04_jprb,3.5338e-04_jprb,3.4970e-04_jprb,&
&3.3648e-04_jprb,3.1095e-04_jprb,7.2183e-04_jprb/)
kao( :, 4, 9, 7) = (/&
&2.5068e-04_jprb,3.1830e-04_jprb,3.4602e-04_jprb,3.6150e-04_jprb,3.6764e-04_jprb,3.6525e-04_jprb,&
&3.5301e-04_jprb,3.2741e-04_jprb,7.2069e-04_jprb/)
kao( :, 5, 9, 7) = (/&
&2.5395e-04_jprb,3.2629e-04_jprb,3.5706e-04_jprb,3.7496e-04_jprb,3.8230e-04_jprb,3.8101e-04_jprb,&
&3.6964e-04_jprb,3.4426e-04_jprb,7.2393e-04_jprb/)
kao( :, 1,10, 7) = (/&
&2.1916e-04_jprb,2.6728e-04_jprb,2.8357e-04_jprb,2.9003e-04_jprb,2.9019e-04_jprb,2.8394e-04_jprb,&
&2.6987e-04_jprb,2.4557e-04_jprb,2.2951e-03_jprb/)
kao( :, 2,10, 7) = (/&
&2.2269e-04_jprb,2.7508e-04_jprb,2.9328e-04_jprb,3.0170e-04_jprb,3.0330e-04_jprb,2.9810e-04_jprb,&
&2.8439e-04_jprb,2.5963e-04_jprb,2.1937e-03_jprb/)
kao( :, 3,10, 7) = (/&
&2.2592e-04_jprb,2.8247e-04_jprb,3.0321e-04_jprb,3.1354e-04_jprb,3.1659e-04_jprb,3.1208e-04_jprb,&
&2.9880e-04_jprb,2.7415e-04_jprb,2.1089e-03_jprb/)
kao( :, 4,10, 7) = (/&
&2.2891e-04_jprb,2.8992e-04_jprb,3.1332e-04_jprb,3.2558e-04_jprb,3.2968e-04_jprb,3.2576e-04_jprb,&
&3.1353e-04_jprb,2.8898e-04_jprb,2.0353e-03_jprb/)
kao( :, 5,10, 7) = (/&
&2.3224e-04_jprb,2.9740e-04_jprb,3.2354e-04_jprb,3.3796e-04_jprb,3.4280e-04_jprb,3.3971e-04_jprb,&
&3.2827e-04_jprb,3.0414e-04_jprb,1.9694e-03_jprb/)
kao( :, 1,11, 7) = (/&
&1.9917e-04_jprb,2.4536e-04_jprb,2.5993e-04_jprb,2.6557e-04_jprb,2.6515e-04_jprb,2.5837e-04_jprb,&
&2.4462e-04_jprb,2.2066e-04_jprb,3.1341e-03_jprb/)
kao( :, 2,11, 7) = (/&
&2.0264e-04_jprb,2.5224e-04_jprb,2.6895e-04_jprb,2.7632e-04_jprb,2.7737e-04_jprb,2.7142e-04_jprb,&
&2.5767e-04_jprb,2.3346e-04_jprb,2.9845e-03_jprb/)
kao( :, 3,11, 7) = (/&
&2.0597e-04_jprb,2.5913e-04_jprb,2.7799e-04_jprb,2.8723e-04_jprb,2.8930e-04_jprb,2.8411e-04_jprb,&
&2.7068e-04_jprb,2.4666e-04_jprb,2.8531e-03_jprb/)
kao( :, 4,11, 7) = (/&
&2.0923e-04_jprb,2.6606e-04_jprb,2.8717e-04_jprb,2.9817e-04_jprb,3.0130e-04_jprb,2.9662e-04_jprb,&
&2.8382e-04_jprb,2.6011e-04_jprb,2.7344e-03_jprb/)
kao( :, 5,11, 7) = (/&
&2.1283e-04_jprb,2.7325e-04_jprb,2.9677e-04_jprb,3.0938e-04_jprb,3.1326e-04_jprb,3.0919e-04_jprb,&
&2.9712e-04_jprb,2.7384e-04_jprb,2.6277e-03_jprb/)
kao( :, 1,12, 7) = (/&
&1.7936e-04_jprb,2.2328e-04_jprb,2.3724e-04_jprb,2.4243e-04_jprb,2.4172e-04_jprb,2.3478e-04_jprb,&
&2.2093e-04_jprb,1.9737e-04_jprb,3.2835e-03_jprb/)
kao( :, 2,12, 7) = (/&
&1.8285e-04_jprb,2.2978e-04_jprb,2.4543e-04_jprb,2.5241e-04_jprb,2.5294e-04_jprb,2.4651e-04_jprb,&
&2.3266e-04_jprb,2.0912e-04_jprb,3.1216e-03_jprb/)
kao( :, 3,12, 7) = (/&
&1.8634e-04_jprb,2.3640e-04_jprb,2.5382e-04_jprb,2.6232e-04_jprb,2.6378e-04_jprb,2.5795e-04_jprb,&
&2.4444e-04_jprb,2.2095e-04_jprb,2.9752e-03_jprb/)
kao( :, 4,12, 7) = (/&
&1.8978e-04_jprb,2.4319e-04_jprb,2.6232e-04_jprb,2.7232e-04_jprb,2.7477e-04_jprb,2.6960e-04_jprb,&
&2.5603e-04_jprb,2.3306e-04_jprb,2.8433e-03_jprb/)
kao( :, 5,12, 7) = (/&
&1.9368e-04_jprb,2.5043e-04_jprb,2.7137e-04_jprb,2.8261e-04_jprb,2.8588e-04_jprb,2.8109e-04_jprb,&
&2.6784e-04_jprb,2.4548e-04_jprb,2.7264e-03_jprb/)
kao( :, 1,13, 7) = (/&
&1.6014e-04_jprb,2.0144e-04_jprb,2.1482e-04_jprb,2.1993e-04_jprb,2.1918e-04_jprb,2.1245e-04_jprb,&
&1.9850e-04_jprb,1.7572e-04_jprb,2.8014e-03_jprb/)
kao( :, 2,13, 7) = (/&
&1.6372e-04_jprb,2.0772e-04_jprb,2.2263e-04_jprb,2.2918e-04_jprb,2.2929e-04_jprb,2.2295e-04_jprb,&
&2.0909e-04_jprb,1.8627e-04_jprb,2.6597e-03_jprb/)
kao( :, 3,13, 7) = (/&
&1.6711e-04_jprb,2.1423e-04_jprb,2.3053e-04_jprb,2.3833e-04_jprb,2.3922e-04_jprb,2.3334e-04_jprb,&
&2.1968e-04_jprb,1.9695e-04_jprb,2.5327e-03_jprb/)
kao( :, 4,13, 7) = (/&
&1.7075e-04_jprb,2.2099e-04_jprb,2.3863e-04_jprb,2.4766e-04_jprb,2.4941e-04_jprb,2.4382e-04_jprb,&
&2.3022e-04_jprb,2.0776e-04_jprb,2.4204e-03_jprb/)
kao( :, 5,13, 7) = (/&
&1.7481e-04_jprb,2.2827e-04_jprb,2.4735e-04_jprb,2.5731e-04_jprb,2.5972e-04_jprb,2.5434e-04_jprb,&
&2.4101e-04_jprb,2.1916e-04_jprb,2.3207e-03_jprb/)
kao( :, 1, 1, 8) = (/&
&9.5608e-04_jprb,1.1137e-03_jprb,1.1928e-03_jprb,1.2676e-03_jprb,1.3453e-03_jprb,1.4201e-03_jprb,&
&1.4858e-03_jprb,1.4985e-03_jprb,1.3296e-03_jprb/)
kao( :, 2, 1, 8) = (/&
&9.5994e-04_jprb,1.1580e-03_jprb,1.2586e-03_jprb,1.3444e-03_jprb,1.4304e-03_jprb,1.5065e-03_jprb,&
&1.5698e-03_jprb,1.5822e-03_jprb,1.4127e-03_jprb/)
kao( :, 3, 1, 8) = (/&
&9.6434e-04_jprb,1.2039e-03_jprb,1.3295e-03_jprb,1.4283e-03_jprb,1.5240e-03_jprb,1.6021e-03_jprb,&
&1.6610e-03_jprb,1.6690e-03_jprb,1.4964e-03_jprb/)
kao( :, 4, 1, 8) = (/&
&9.6594e-04_jprb,1.2459e-03_jprb,1.3992e-03_jprb,1.5151e-03_jprb,1.6213e-03_jprb,1.7037e-03_jprb,&
&1.7586e-03_jprb,1.7581e-03_jprb,1.5822e-03_jprb/)
kao( :, 5, 1, 8) = (/&
&9.7112e-04_jprb,1.2922e-03_jprb,1.4733e-03_jprb,1.6088e-03_jprb,1.7251e-03_jprb,1.8137e-03_jprb,&
&1.8637e-03_jprb,1.8544e-03_jprb,1.6729e-03_jprb/)
kao( :, 1, 2, 8) = (/&
&9.2093e-04_jprb,1.0546e-03_jprb,1.1184e-03_jprb,1.1877e-03_jprb,1.2677e-03_jprb,1.3451e-03_jprb,&
&1.4085e-03_jprb,1.4282e-03_jprb,1.2587e-03_jprb/)
kao( :, 2, 2, 8) = (/&
&9.2391e-04_jprb,1.0934e-03_jprb,1.1705e-03_jprb,1.2485e-03_jprb,1.3345e-03_jprb,1.4205e-03_jprb,&
&1.4904e-03_jprb,1.5108e-03_jprb,1.3375e-03_jprb/)
kao( :, 3, 2, 8) = (/&
&9.2775e-04_jprb,1.1328e-03_jprb,1.2272e-03_jprb,1.3169e-03_jprb,1.4101e-03_jprb,1.5006e-03_jprb,&
&1.5743e-03_jprb,1.5928e-03_jprb,1.4152e-03_jprb/)
kao( :, 4, 2, 8) = (/&
&9.3033e-04_jprb,1.1705e-03_jprb,1.2842e-03_jprb,1.3889e-03_jprb,1.4909e-03_jprb,1.5847e-03_jprb,&
&1.6559e-03_jprb,1.6749e-03_jprb,1.4953e-03_jprb/)
kao( :, 5, 2, 8) = (/&
&9.3350e-04_jprb,1.2078e-03_jprb,1.3426e-03_jprb,1.4642e-03_jprb,1.5755e-03_jprb,1.6738e-03_jprb,&
&1.7416e-03_jprb,1.7599e-03_jprb,1.5794e-03_jprb/)
kao( :, 1, 3, 8) = (/&
&8.8225e-04_jprb,9.9524e-04_jprb,1.0564e-03_jprb,1.1307e-03_jprb,1.2003e-03_jprb,1.2591e-03_jprb,&
&1.3108e-03_jprb,1.3309e-03_jprb,1.1549e-03_jprb/)
kao( :, 2, 3, 8) = (/&
&8.8537e-04_jprb,1.0284e-03_jprb,1.0990e-03_jprb,1.1784e-03_jprb,1.2595e-03_jprb,1.3310e-03_jprb,&
&1.3892e-03_jprb,1.4138e-03_jprb,1.2306e-03_jprb/)
kao( :, 3, 3, 8) = (/&
&8.8781e-04_jprb,1.0600e-03_jprb,1.1442e-03_jprb,1.2314e-03_jprb,1.3222e-03_jprb,1.4061e-03_jprb,&
&1.4693e-03_jprb,1.4932e-03_jprb,1.3048e-03_jprb/)
kao( :, 4, 3, 8) = (/&
&8.9189e-04_jprb,1.0939e-03_jprb,1.1921e-03_jprb,1.2907e-03_jprb,1.3886e-03_jprb,1.4820e-03_jprb,&
&1.5492e-03_jprb,1.5703e-03_jprb,1.3811e-03_jprb/)
kao( :, 5, 3, 8) = (/&
&8.9438e-04_jprb,1.1258e-03_jprb,1.2397e-03_jprb,1.3504e-03_jprb,1.4556e-03_jprb,1.5581e-03_jprb,&
&1.6301e-03_jprb,1.6498e-03_jprb,1.4607e-03_jprb/)
kao( :, 1, 4, 8) = (/&
&8.3849e-04_jprb,9.3566e-04_jprb,1.0099e-03_jprb,1.0816e-03_jprb,1.1344e-03_jprb,1.1752e-03_jprb,&
&1.2048e-03_jprb,1.2139e-03_jprb,1.0399e-03_jprb/)
kao( :, 2, 4, 8) = (/&
&8.4244e-04_jprb,9.6570e-04_jprb,1.0454e-03_jprb,1.1259e-03_jprb,1.1888e-03_jprb,1.2423e-03_jprb,&
&1.2800e-03_jprb,1.2943e-03_jprb,1.1122e-03_jprb/)
kao( :, 3, 4, 8) = (/&
&8.4472e-04_jprb,9.9456e-04_jprb,1.0829e-03_jprb,1.1722e-03_jprb,1.2472e-03_jprb,1.3102e-03_jprb,&
&1.3565e-03_jprb,1.3722e-03_jprb,1.1831e-03_jprb/)
kao( :, 4, 4, 8) = (/&
&8.4703e-04_jprb,1.0229e-03_jprb,1.1215e-03_jprb,1.2221e-03_jprb,1.3077e-03_jprb,1.3778e-03_jprb,&
&1.4318e-03_jprb,1.4488e-03_jprb,1.2549e-03_jprb/)
kao( :, 5, 4, 8) = (/&
&8.5239e-04_jprb,1.0541e-03_jprb,1.1634e-03_jprb,1.2735e-03_jprb,1.3695e-03_jprb,1.4485e-03_jprb,&
&1.5090e-03_jprb,1.5277e-03_jprb,1.3292e-03_jprb/)
kao( :, 1, 5, 8) = (/&
&7.9083e-04_jprb,8.8170e-04_jprb,9.6674e-04_jprb,1.0299e-03_jprb,1.0698e-03_jprb,1.0915e-03_jprb,&
&1.0968e-03_jprb,1.0912e-03_jprb,9.3090e-04_jprb/)
kao( :, 2, 5, 8) = (/&
&7.9562e-04_jprb,9.0868e-04_jprb,9.9995e-04_jprb,1.0720e-03_jprb,1.1213e-03_jprb,1.1526e-03_jprb,&
&1.1662e-03_jprb,1.1662e-03_jprb,9.9625e-04_jprb/)
kao( :, 3, 5, 8) = (/&
&7.9829e-04_jprb,9.3547e-04_jprb,1.0342e-03_jprb,1.1161e-03_jprb,1.1759e-03_jprb,1.2152e-03_jprb,&
&1.2368e-03_jprb,1.2405e-03_jprb,1.0609e-03_jprb/)
kao( :, 4, 5, 8) = (/&
&8.0091e-04_jprb,9.6089e-04_jprb,1.0686e-03_jprb,1.1624e-03_jprb,1.2313e-03_jprb,1.2778e-03_jprb,&
&1.3076e-03_jprb,1.3141e-03_jprb,1.1274e-03_jprb/)
kao( :, 5, 5, 8) = (/&
&8.0636e-04_jprb,9.8796e-04_jprb,1.1047e-03_jprb,1.2088e-03_jprb,1.2883e-03_jprb,1.3425e-03_jprb,&
&1.3805e-03_jprb,1.3900e-03_jprb,1.1960e-03_jprb/)
kao( :, 1, 6, 8) = (/&
&7.4042e-04_jprb,8.3357e-04_jprb,9.1717e-04_jprb,9.7114e-04_jprb,1.0002e-03_jprb,1.0057e-03_jprb,&
&9.9270e-04_jprb,9.6792e-04_jprb,8.3659e-04_jprb/)
kao( :, 2, 6, 8) = (/&
&7.4565e-04_jprb,8.5743e-04_jprb,9.4912e-04_jprb,1.0119e-03_jprb,1.0480e-03_jprb,1.0602e-03_jprb,&
&1.0545e-03_jprb,1.0369e-03_jprb,8.9582e-04_jprb/)
kao( :, 3, 6, 8) = (/&
&7.4922e-04_jprb,8.8128e-04_jprb,9.8142e-04_jprb,1.0542e-03_jprb,1.0980e-03_jprb,1.1167e-03_jprb,&
&1.1185e-03_jprb,1.1056e-03_jprb,9.5443e-04_jprb/)
kao( :, 4, 6, 8) = (/&
&7.5232e-04_jprb,9.0308e-04_jprb,1.0141e-03_jprb,1.0981e-03_jprb,1.1486e-03_jprb,1.1744e-03_jprb,&
&1.1833e-03_jprb,1.1741e-03_jprb,1.0132e-03_jprb/)
kao( :, 5, 6, 8) = (/&
&7.5627e-04_jprb,9.2523e-04_jprb,1.0466e-03_jprb,1.1406e-03_jprb,1.2001e-03_jprb,1.2335e-03_jprb,&
&1.2490e-03_jprb,1.2439e-03_jprb,1.0736e-03_jprb/)
kao( :, 1, 7, 8) = (/&
&6.8964e-04_jprb,7.8723e-04_jprb,8.6407e-04_jprb,9.0570e-04_jprb,9.2461e-04_jprb,9.2134e-04_jprb,&
&8.9655e-04_jprb,8.5470e-04_jprb,7.7227e-04_jprb/)
kao( :, 2, 7, 8) = (/&
&6.9565e-04_jprb,8.0904e-04_jprb,8.9444e-04_jprb,9.4366e-04_jprb,9.6915e-04_jprb,9.7063e-04_jprb,&
&9.5066e-04_jprb,9.1508e-04_jprb,8.2464e-04_jprb/)
kao( :, 3, 7, 8) = (/&
&7.0042e-04_jprb,8.3032e-04_jprb,9.2461e-04_jprb,9.8296e-04_jprb,1.0152e-03_jprb,1.0214e-03_jprb,&
&1.0076e-03_jprb,9.7640e-04_jprb,8.7766e-04_jprb/)
kao( :, 4, 7, 8) = (/&
&7.0426e-04_jprb,8.4981e-04_jprb,9.5485e-04_jprb,1.0240e-03_jprb,1.0623e-03_jprb,1.0734e-03_jprb,&
&1.0651e-03_jprb,1.0378e-03_jprb,9.3187e-04_jprb/)
kao( :, 5, 7, 8) = (/&
&7.0821e-04_jprb,8.6946e-04_jprb,9.8537e-04_jprb,1.0646e-03_jprb,1.1098e-03_jprb,1.1263e-03_jprb,&
&1.1245e-03_jprb,1.1007e-03_jprb,9.8663e-04_jprb/)
kao( :, 1, 8, 8) = (/&
&6.4047e-04_jprb,7.3858e-04_jprb,8.0453e-04_jprb,8.3694e-04_jprb,8.4619e-04_jprb,8.3765e-04_jprb,&
&8.0766e-04_jprb,7.5466e-04_jprb,8.2781e-04_jprb/)
kao( :, 2, 8, 8) = (/&
&6.4742e-04_jprb,7.5904e-04_jprb,8.3405e-04_jprb,8.7266e-04_jprb,8.8676e-04_jprb,8.8236e-04_jprb,&
&8.5570e-04_jprb,8.0688e-04_jprb,8.7433e-04_jprb/)
kao( :, 3, 8, 8) = (/&
&6.5283e-04_jprb,7.7980e-04_jprb,8.6316e-04_jprb,9.0850e-04_jprb,9.2898e-04_jprb,9.2841e-04_jprb,&
&9.0551e-04_jprb,8.6048e-04_jprb,9.2376e-04_jprb/)
kao( :, 4, 8, 8) = (/&
&6.5707e-04_jprb,7.9894e-04_jprb,8.9224e-04_jprb,9.4602e-04_jprb,9.7258e-04_jprb,9.7562e-04_jprb,&
&9.5565e-04_jprb,9.1442e-04_jprb,9.7371e-04_jprb/)
kao( :, 5, 8, 8) = (/&
&6.6119e-04_jprb,8.1764e-04_jprb,9.2118e-04_jprb,9.8357e-04_jprb,1.0164e-03_jprb,1.0233e-03_jprb,&
&1.0075e-03_jprb,9.7011e-04_jprb,1.0250e-03_jprb/)
kao( :, 1, 9, 8) = (/&
&5.9304e-04_jprb,6.8835e-04_jprb,7.4179e-04_jprb,7.6634e-04_jprb,7.7050e-04_jprb,7.5604e-04_jprb,&
&7.2393e-04_jprb,6.6767e-04_jprb,1.3527e-03_jprb/)
kao( :, 2, 9, 8) = (/&
&6.0061e-04_jprb,7.0826e-04_jprb,7.7005e-04_jprb,7.9970e-04_jprb,8.0682e-04_jprb,7.9622e-04_jprb,&
&7.6713e-04_jprb,7.1229e-04_jprb,1.3810e-03_jprb/)
kao( :, 3, 9, 8) = (/&
&6.0690e-04_jprb,7.2826e-04_jprb,7.9782e-04_jprb,8.3277e-04_jprb,8.4414e-04_jprb,8.3763e-04_jprb,&
&8.1182e-04_jprb,7.5863e-04_jprb,1.4228e-03_jprb/)
kao( :, 4, 9, 8) = (/&
&6.1167e-04_jprb,7.4710e-04_jprb,8.2533e-04_jprb,8.6687e-04_jprb,8.8342e-04_jprb,8.8028e-04_jprb,&
&8.5678e-04_jprb,8.0590e-04_jprb,1.4759e-03_jprb/)
kao( :, 5, 9, 8) = (/&
&6.1627e-04_jprb,7.6539e-04_jprb,8.5255e-04_jprb,9.0125e-04_jprb,9.2320e-04_jprb,9.2321e-04_jprb,&
&9.0266e-04_jprb,8.5442e-04_jprb,1.5365e-03_jprb/)
kao( :, 1,10, 8) = (/&
&5.4825e-04_jprb,6.3891e-04_jprb,6.8254e-04_jprb,7.0037e-04_jprb,6.9928e-04_jprb,6.8268e-04_jprb,&
&6.4957e-04_jprb,5.9476e-04_jprb,3.8180e-03_jprb/)
kao( :, 2,10, 8) = (/&
&5.5676e-04_jprb,6.5829e-04_jprb,7.0890e-04_jprb,7.3100e-04_jprb,7.3257e-04_jprb,7.1817e-04_jprb,&
&6.8748e-04_jprb,6.3344e-04_jprb,3.7319e-03_jprb/)
kao( :, 3,10, 8) = (/&
&5.6387e-04_jprb,6.7778e-04_jprb,7.3493e-04_jprb,7.6099e-04_jprb,7.6595e-04_jprb,7.5519e-04_jprb,&
&7.2717e-04_jprb,6.7342e-04_jprb,3.6841e-03_jprb/)
kao( :, 4,10, 8) = (/&
&5.6965e-04_jprb,6.9628e-04_jprb,7.6095e-04_jprb,7.9168e-04_jprb,8.0061e-04_jprb,7.9369e-04_jprb,&
&7.6769e-04_jprb,7.1402e-04_jprb,3.6718e-03_jprb/)
kao( :, 5,10, 8) = (/&
&5.7483e-04_jprb,7.1426e-04_jprb,7.8640e-04_jprb,8.2247e-04_jprb,8.3634e-04_jprb,8.3289e-04_jprb,&
&8.0894e-04_jprb,7.5561e-04_jprb,3.6884e-03_jprb/)
kao( :, 1,11, 8) = (/&
&5.0971e-04_jprb,5.9908e-04_jprb,6.3716e-04_jprb,6.5075e-04_jprb,6.4646e-04_jprb,6.2883e-04_jprb,&
&5.9611e-04_jprb,5.4516e-04_jprb,5.2044e-03_jprb/)
kao( :, 2,11, 8) = (/&
&5.1851e-04_jprb,6.1830e-04_jprb,6.6103e-04_jprb,6.7814e-04_jprb,6.7644e-04_jprb,6.6100e-04_jprb,&
&6.3054e-04_jprb,5.7922e-04_jprb,5.0472e-03_jprb/)
kao( :, 3,11, 8) = (/&
&5.2576e-04_jprb,6.3685e-04_jprb,6.8508e-04_jprb,7.0561e-04_jprb,7.0702e-04_jprb,6.9454e-04_jprb,&
&6.6622e-04_jprb,6.1448e-04_jprb,4.9485e-03_jprb/)
kao( :, 4,11, 8) = (/&
&5.3230e-04_jprb,6.5426e-04_jprb,7.0906e-04_jprb,7.3336e-04_jprb,7.3854e-04_jprb,7.2917e-04_jprb,&
&7.0247e-04_jprb,6.5031e-04_jprb,4.8945e-03_jprb/)
kao( :, 5,11, 8) = (/&
&5.3825e-04_jprb,6.7152e-04_jprb,7.3265e-04_jprb,7.6088e-04_jprb,7.7057e-04_jprb,7.6479e-04_jprb,&
&7.3945e-04_jprb,6.8664e-04_jprb,4.8718e-03_jprb/)
kao( :, 1,12, 8) = (/&
&4.7268e-04_jprb,5.5911e-04_jprb,5.9221e-04_jprb,6.0202e-04_jprb,5.9599e-04_jprb,5.7673e-04_jprb,&
&5.4567e-04_jprb,4.9766e-04_jprb,5.4784e-03_jprb/)
kao( :, 2,12, 8) = (/&
&4.8142e-04_jprb,5.7788e-04_jprb,6.1435e-04_jprb,6.2655e-04_jprb,6.2325e-04_jprb,6.0670e-04_jprb,&
&5.7673e-04_jprb,5.2800e-04_jprb,5.3059e-03_jprb/)
kao( :, 3,12, 8) = (/&
&4.8905e-04_jprb,5.9521e-04_jprb,6.3638e-04_jprb,6.5188e-04_jprb,6.5138e-04_jprb,6.3718e-04_jprb,&
&6.0852e-04_jprb,5.5928e-04_jprb,5.1929e-03_jprb/)
kao( :, 4,12, 8) = (/&
&4.9586e-04_jprb,6.1204e-04_jprb,6.5810e-04_jprb,6.7725e-04_jprb,6.7983e-04_jprb,6.6800e-04_jprb,&
&6.4102e-04_jprb,5.9098e-04_jprb,5.1181e-03_jprb/)
kao( :, 5,12, 8) = (/&
&5.0219e-04_jprb,6.2893e-04_jprb,6.7933e-04_jprb,7.0239e-04_jprb,7.0829e-04_jprb,6.9992e-04_jprb,&
&6.7457e-04_jprb,6.2315e-04_jprb,5.0659e-03_jprb/)
kao( :, 1,13, 8) = (/&
&4.3613e-04_jprb,5.1896e-04_jprb,5.4757e-04_jprb,5.5450e-04_jprb,5.4716e-04_jprb,5.2848e-04_jprb,&
&4.9828e-04_jprb,4.5179e-04_jprb,4.7039e-03_jprb/)
kao( :, 2,13, 8) = (/&
&4.4480e-04_jprb,5.3652e-04_jprb,5.6828e-04_jprb,5.7733e-04_jprb,5.7232e-04_jprb,5.5571e-04_jprb,&
&5.2643e-04_jprb,4.7940e-04_jprb,4.5588e-03_jprb/)
kao( :, 3,13, 8) = (/&
&4.5255e-04_jprb,5.5296e-04_jprb,5.8851e-04_jprb,6.0068e-04_jprb,5.9826e-04_jprb,5.8320e-04_jprb,&
&5.5480e-04_jprb,5.0729e-04_jprb,4.4582e-03_jprb/)
kao( :, 4,13, 8) = (/&
&4.5948e-04_jprb,5.6913e-04_jprb,6.0860e-04_jprb,6.2380e-04_jprb,6.2384e-04_jprb,6.1098e-04_jprb,&
&5.8363e-04_jprb,5.3555e-04_jprb,4.3840e-03_jprb/)
kao( :, 5,13, 8) = (/&
&4.6648e-04_jprb,5.8526e-04_jprb,6.2843e-04_jprb,6.4682e-04_jprb,6.4977e-04_jprb,6.3953e-04_jprb,&
&6.1349e-04_jprb,5.6436e-04_jprb,4.3301e-03_jprb/)


!     -----------------------------------------------------------------
RETURN
END SUBROUTINE rrtm_kgb16_a2