rrtm_kgb3_A1.F90

Go to the documentation of this file.

!OCL SCALAR
SUBROUTINE rrtm_kgb3_a1

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

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

#include "tsmbkind.h"

USE yoerrto3 , ONLY : kao     ,kbo     ,selfrefo   ,fracrefao  ,&
           &fracrefbo  ,forrefo    ,absn2oao   ,absn2obo
USE yoerrta3 , ONLY : absn2oa ,absn2ob  ,etaref    ,h2oref     ,&
           &n2oref     ,co2ref     ,strrat

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


IMPLICIT NONE


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

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

kao( :, 1, 1, 1) = (/&
&1.3905e-05_jprb,5.5491e-04_jprb,9.4069e-04_jprb,1.2683e-03_jprb,1.5758e-03_jprb,1.8657e-03_jprb,&
&2.1271e-03_jprb,2.3310e-03_jprb,2.2238e-03_jprb,1.2098e-03_jprb/)
kao( :, 2, 1, 1) = (/&
&1.8718e-05_jprb,6.2254e-04_jprb,1.0419e-03_jprb,1.3944e-03_jprb,1.7096e-03_jprb,2.0070e-03_jprb,&
&2.2783e-03_jprb,2.4921e-03_jprb,2.4893e-03_jprb,1.3329e-03_jprb/)
kao( :, 3, 1, 1) = (/&
&2.5277e-05_jprb,7.0791e-04_jprb,1.1679e-03_jprb,1.5540e-03_jprb,1.8826e-03_jprb,2.1855e-03_jprb,&
&2.4637e-03_jprb,2.6836e-03_jprb,2.4870e-03_jprb,1.4683e-03_jprb/)
kao( :, 4, 1, 1) = (/&
&3.3974e-05_jprb,8.1479e-04_jprb,1.3277e-03_jprb,1.7495e-03_jprb,2.1019e-03_jprb,2.4115e-03_jprb,&
&2.6955e-03_jprb,2.9144e-03_jprb,2.6786e-03_jprb,1.5835e-03_jprb/)
kao( :, 5, 1, 1) = (/&
&4.5018e-05_jprb,9.4621e-04_jprb,1.5225e-03_jprb,1.9888e-03_jprb,2.3735e-03_jprb,2.6924e-03_jprb,&
&2.9767e-03_jprb,3.1904e-03_jprb,2.9199e-03_jprb,1.7196e-03_jprb/)
kao( :, 1, 2, 1) = (/&
&1.0592e-05_jprb,4.4499e-04_jprb,7.6480e-04_jprb,1.0361e-03_jprb,1.2851e-03_jprb,1.5183e-03_jprb,&
&1.7260e-03_jprb,1.8861e-03_jprb,1.7869e-03_jprb,9.5189e-04_jprb/)
kao( :, 2, 2, 1) = (/&
&1.4233e-05_jprb,4.9754e-04_jprb,8.4386e-04_jprb,1.1364e-03_jprb,1.3930e-03_jprb,1.6308e-03_jprb,&
&1.8450e-03_jprb,2.0088e-03_jprb,1.9843e-03_jprb,1.0406e-03_jprb/)
kao( :, 3, 2, 1) = (/&
&1.9306e-05_jprb,5.6436e-04_jprb,9.4285e-04_jprb,1.2611e-03_jprb,1.5318e-03_jprb,1.7753e-03_jprb,&
&1.9931e-03_jprb,2.1588e-03_jprb,2.0128e-03_jprb,1.1498e-03_jprb/)
kao( :, 4, 2, 1) = (/&
&2.6119e-05_jprb,6.4842e-04_jprb,1.0680e-03_jprb,1.4147e-03_jprb,1.7071e-03_jprb,1.9567e-03_jprb,&
&2.1789e-03_jprb,2.3401e-03_jprb,2.1538e-03_jprb,1.2358e-03_jprb/)
kao( :, 5, 2, 1) = (/&
&3.4871e-05_jprb,7.5256e-04_jprb,1.2221e-03_jprb,1.6045e-03_jprb,1.9204e-03_jprb,2.1824e-03_jprb,&
&2.4047e-03_jprb,2.5599e-03_jprb,2.3558e-03_jprb,1.3458e-03_jprb/)
kao( :, 1, 3, 1) = (/&
&7.6650e-06_jprb,3.4947e-04_jprb,6.0867e-04_jprb,8.3119e-04_jprb,1.0323e-03_jprb,1.2185e-03_jprb,&
&1.3830e-03_jprb,1.5087e-03_jprb,1.4187e-03_jprb,7.5325e-04_jprb/)
kao( :, 2, 3, 1) = (/&
&1.0208e-05_jprb,3.8799e-04_jprb,6.6727e-04_jprb,9.0569e-04_jprb,1.1140e-03_jprb,1.3039e-03_jprb,&
&1.4728e-03_jprb,1.5994e-03_jprb,1.5541e-03_jprb,8.1826e-04_jprb/)
kao( :, 3, 3, 1) = (/&
&1.3852e-05_jprb,4.3745e-04_jprb,7.4132e-04_jprb,9.9801e-04_jprb,1.2192e-03_jprb,1.4137e-03_jprb,&
&1.5849e-03_jprb,1.7123e-03_jprb,1.6593e-03_jprb,8.9528e-04_jprb/)
kao( :, 4, 3, 1) = (/&
&1.8873e-05_jprb,5.0084e-04_jprb,8.3488e-04_jprb,1.1136e-03_jprb,1.3505e-03_jprb,1.5529e-03_jprb,&
&1.7249e-03_jprb,1.8487e-03_jprb,1.7141e-03_jprb,9.6472e-04_jprb/)
kao( :, 5, 3, 1) = (/&
&2.5412e-05_jprb,5.7989e-04_jprb,9.5083e-04_jprb,1.2577e-03_jprb,1.5110e-03_jprb,1.7265e-03_jprb,&
&1.9001e-03_jprb,2.0154e-03_jprb,1.8592e-03_jprb,1.0514e-03_jprb/)
kao( :, 1, 4, 1) = (/&
&5.5327e-06_jprb,2.7370e-04_jprb,4.8202e-04_jprb,6.6293e-04_jprb,8.2705e-04_jprb,9.7621e-04_jprb,&
&1.1071e-03_jprb,1.2149e-03_jprb,1.1365e-03_jprb,6.2235e-04_jprb/)
kao( :, 2, 4, 1) = (/&
&7.2381e-06_jprb,3.0138e-04_jprb,5.2416e-04_jprb,7.1697e-04_jprb,8.8620e-04_jprb,1.0391e-03_jprb,&
&1.1730e-03_jprb,1.2726e-03_jprb,1.2113e-03_jprb,6.7320e-04_jprb/)
kao( :, 3, 4, 1) = (/&
&9.7698e-06_jprb,3.3721e-04_jprb,5.7856e-04_jprb,7.8512e-04_jprb,9.6459e-04_jprb,1.1210e-03_jprb,&
&1.2565e-03_jprb,1.3549e-03_jprb,1.3452e-03_jprb,7.2416e-04_jprb/)
kao( :, 4, 4, 1) = (/&
&1.3344e-05_jprb,3.8381e-04_jprb,6.4739e-04_jprb,8.7038e-04_jprb,1.0615e-03_jprb,1.2252e-03_jprb,&
&1.3612e-03_jprb,1.4576e-03_jprb,1.3655e-03_jprb,7.8325e-04_jprb/)
kao( :, 5, 4, 1) = (/&
&1.8090e-05_jprb,4.4258e-04_jprb,7.3288e-04_jprb,9.7754e-04_jprb,1.1813e-03_jprb,1.3549e-03_jprb,&
&1.4926e-03_jprb,1.5822e-03_jprb,1.4607e-03_jprb,8.5221e-04_jprb/)
kao( :, 1, 5, 1) = (/&
&4.0810e-06_jprb,2.1551e-04_jprb,3.8283e-04_jprb,5.2940e-04_jprb,6.6368e-04_jprb,7.8503e-04_jprb,&
&8.8897e-04_jprb,9.7870e-04_jprb,9.2885e-04_jprb,5.3112e-04_jprb/)
kao( :, 2, 5, 1) = (/&
&5.1916e-06_jprb,2.3507e-04_jprb,4.1271e-04_jprb,5.6826e-04_jprb,7.0568e-04_jprb,8.2971e-04_jprb,&
&9.3695e-04_jprb,1.0168e-03_jprb,9.5220e-04_jprb,5.6840e-04_jprb/)
kao( :, 3, 5, 1) = (/&
&6.9159e-06_jprb,2.6088e-04_jprb,4.5208e-04_jprb,6.1797e-04_jprb,7.6301e-04_jprb,8.8979e-04_jprb,&
&9.9853e-04_jprb,1.0759e-03_jprb,1.0389e-03_jprb,6.0777e-04_jprb/)
kao( :, 4, 5, 1) = (/&
&9.4196e-06_jprb,2.9480e-04_jprb,5.0274e-04_jprb,6.8088e-04_jprb,8.3550e-04_jprb,9.6746e-04_jprb,&
&1.0764e-03_jprb,1.1522e-03_jprb,1.1313e-03_jprb,6.5577e-04_jprb/)
kao( :, 5, 5, 1) = (/&
&1.2823e-05_jprb,3.3834e-04_jprb,5.6555e-04_jprb,7.6000e-04_jprb,9.2459e-04_jprb,1.0640e-03_jprb,&
&1.1745e-03_jprb,1.2456e-03_jprb,1.1599e-03_jprb,7.1205e-04_jprb/)
kao( :, 1, 6, 1) = (/&
&3.0745e-06_jprb,1.7028e-04_jprb,3.0467e-04_jprb,4.2351e-04_jprb,5.3324e-04_jprb,6.3166e-04_jprb,&
&7.1362e-04_jprb,7.7595e-04_jprb,7.2555e-04_jprb,4.6766e-04_jprb/)
kao( :, 2, 6, 1) = (/&
&3.7467e-06_jprb,1.8364e-04_jprb,3.2533e-04_jprb,4.4992e-04_jprb,5.6174e-04_jprb,6.6289e-04_jprb,&
&7.4918e-04_jprb,8.1992e-04_jprb,7.7217e-04_jprb,4.9540e-04_jprb/)
kao( :, 3, 6, 1) = (/&
&4.8844e-06_jprb,2.0189e-04_jprb,3.5318e-04_jprb,4.8611e-04_jprb,6.0248e-04_jprb,7.0548e-04_jprb,&
&7.9343e-04_jprb,8.5556e-04_jprb,8.1719e-04_jprb,5.2871e-04_jprb/)
kao( :, 4, 6, 1) = (/&
&6.5875e-06_jprb,2.2623e-04_jprb,3.8987e-04_jprb,5.3174e-04_jprb,6.5615e-04_jprb,7.6255e-04_jprb,&
&8.5105e-04_jprb,9.1164e-04_jprb,9.0776e-04_jprb,5.6738e-04_jprb/)
kao( :, 5, 6, 1) = (/&
&8.9782e-06_jprb,2.5797e-04_jprb,4.3574e-04_jprb,5.8945e-04_jprb,7.2180e-04_jprb,8.3401e-04_jprb,&
&9.2288e-04_jprb,9.8059e-04_jprb,9.2715e-04_jprb,6.1340e-04_jprb/)
kao( :, 1, 7, 1) = (/&
&2.3852e-06_jprb,1.3537e-04_jprb,2.4376e-04_jprb,3.4046e-04_jprb,4.2953e-04_jprb,5.0877e-04_jprb,&
&5.7353e-04_jprb,6.1192e-04_jprb,5.7270e-04_jprb,4.3319e-04_jprb/)
kao( :, 2, 7, 1) = (/&
&2.7620e-06_jprb,1.4429e-04_jprb,2.5761e-04_jprb,3.5752e-04_jprb,4.4861e-04_jprb,5.3102e-04_jprb,&
&5.9966e-04_jprb,6.5817e-04_jprb,6.2541e-04_jprb,4.5750e-04_jprb/)
kao( :, 3, 7, 1) = (/&
&3.4880e-06_jprb,1.5701e-04_jprb,2.7701e-04_jprb,3.8344e-04_jprb,4.7691e-04_jprb,5.6092e-04_jprb,&
&6.3220e-04_jprb,6.8391e-04_jprb,6.4333e-04_jprb,4.8664e-04_jprb/)
kao( :, 4, 7, 1) = (/&
&4.6192e-06_jprb,1.7428e-04_jprb,3.0330e-04_jprb,4.1640e-04_jprb,5.1608e-04_jprb,6.0192e-04_jprb,&
&6.7387e-04_jprb,7.2302e-04_jprb,7.0029e-04_jprb,5.2115e-04_jprb/)
kao( :, 5, 7, 1) = (/&
&6.2659e-06_jprb,1.9723e-04_jprb,3.3668e-04_jprb,4.5828e-04_jprb,5.6442e-04_jprb,6.5465e-04_jprb,&
&7.2699e-04_jprb,7.7405e-04_jprb,7.7413e-04_jprb,5.6002e-04_jprb/)
kao( :, 1, 8, 1) = (/&
&1.9015e-06_jprb,1.0820e-04_jprb,1.9592e-04_jprb,2.7484e-04_jprb,3.4688e-04_jprb,4.0988e-04_jprb,&
&4.6037e-04_jprb,4.8747e-04_jprb,4.5723e-04_jprb,4.3074e-04_jprb/)
kao( :, 2, 8, 1) = (/&
&2.0897e-06_jprb,1.1410e-04_jprb,2.0489e-04_jprb,2.8543e-04_jprb,3.5954e-04_jprb,4.2599e-04_jprb,&
&4.8075e-04_jprb,5.2102e-04_jprb,4.8940e-04_jprb,4.6091e-04_jprb/)
kao( :, 3, 8, 1) = (/&
&2.5320e-06_jprb,1.2277e-04_jprb,2.1834e-04_jprb,3.0321e-04_jprb,3.7874e-04_jprb,4.4717e-04_jprb,&
&5.0489e-04_jprb,5.5180e-04_jprb,5.2338e-04_jprb,4.9080e-04_jprb/)
kao( :, 4, 8, 1) = (/&
&3.2727e-06_jprb,1.3498e-04_jprb,2.3690e-04_jprb,3.2720e-04_jprb,4.0672e-04_jprb,4.7636e-04_jprb,&
&5.3491e-04_jprb,5.7561e-04_jprb,5.5051e-04_jprb,5.1978e-04_jprb/)
kao( :, 5, 8, 1) = (/&
&4.3856e-06_jprb,1.5147e-04_jprb,2.6111e-04_jprb,3.5765e-04_jprb,4.4264e-04_jprb,5.1502e-04_jprb,&
&5.7382e-04_jprb,6.1302e-04_jprb,6.1438e-04_jprb,5.4976e-04_jprb/)
kao( :, 1, 9, 1) = (/&
&1.5482e-06_jprb,8.7052e-05_jprb,1.5839e-04_jprb,2.2300e-04_jprb,2.8105e-04_jprb,3.3090e-04_jprb,&
&3.6936e-04_jprb,3.8992e-04_jprb,3.6561e-04_jprb,5.0307e-04_jprb/)
kao( :, 2, 9, 1) = (/&
&1.6233e-06_jprb,9.0800e-05_jprb,1.6386e-04_jprb,2.2916e-04_jprb,2.8933e-04_jprb,3.4270e-04_jprb,&
&3.8603e-04_jprb,4.1137e-04_jprb,3.8679e-04_jprb,5.3034e-04_jprb/)
kao( :, 3, 9, 1) = (/&
&1.8727e-06_jprb,9.6605e-05_jprb,1.7299e-04_jprb,2.4068e-04_jprb,3.0216e-04_jprb,3.5768e-04_jprb,&
&4.0386e-04_jprb,4.4306e-04_jprb,4.2523e-04_jprb,5.5823e-04_jprb/)
kao( :, 4, 9, 1) = (/&
&2.3460e-06_jprb,1.0514e-04_jprb,1.8594e-04_jprb,2.5798e-04_jprb,3.2158e-04_jprb,3.7830e-04_jprb,&
&4.2604e-04_jprb,4.6061e-04_jprb,4.3830e-04_jprb,5.8904e-04_jprb/)
kao( :, 5, 9, 1) = (/&
&3.0835e-06_jprb,1.1691e-04_jprb,2.0336e-04_jprb,2.8015e-04_jprb,3.4814e-04_jprb,4.0638e-04_jprb,&
&4.5421e-04_jprb,4.8658e-04_jprb,4.7615e-04_jprb,6.2435e-04_jprb/)
kao( :, 1,10, 1) = (/&
&1.2799e-06_jprb,7.0646e-05_jprb,1.2898e-04_jprb,1.8180e-04_jprb,2.2870e-04_jprb,2.6728e-04_jprb,&
&2.9678e-04_jprb,3.1565e-04_jprb,2.9877e-04_jprb,5.6519e-04_jprb/)
kao( :, 2,10, 1) = (/&
&1.2987e-06_jprb,7.2906e-05_jprb,1.3215e-04_jprb,1.8535e-04_jprb,2.3421e-04_jprb,2.7695e-04_jprb,&
&3.1130e-04_jprb,3.2886e-04_jprb,3.1021e-04_jprb,5.8706e-04_jprb/)
kao( :, 3,10, 1) = (/&
&1.4353e-06_jprb,7.6915e-05_jprb,1.3835e-04_jprb,1.9290e-04_jprb,2.4295e-04_jprb,2.8803e-04_jprb,&
&3.2514e-04_jprb,3.5354e-04_jprb,3.3578e-04_jprb,6.1412e-04_jprb/)
kao( :, 4,10, 1) = (/&
&1.7387e-06_jprb,8.2894e-05_jprb,1.4759e-04_jprb,2.0528e-04_jprb,2.5663e-04_jprb,3.0293e-04_jprb,&
&3.4175e-04_jprb,3.7216e-04_jprb,3.5751e-04_jprb,6.4985e-04_jprb/)
kao( :, 5,10, 1) = (/&
&2.2343e-06_jprb,9.1469e-05_jprb,1.6022e-04_jprb,2.2168e-04_jprb,2.7630e-04_jprb,3.2346e-04_jprb,&
&3.6268e-04_jprb,3.8938e-04_jprb,3.7492e-04_jprb,6.9583e-04_jprb/)
kao( :, 1,11, 1) = (/&
&1.0543e-06_jprb,5.7983e-05_jprb,1.0582e-04_jprb,1.4919e-04_jprb,1.8791e-04_jprb,2.2000e-04_jprb,&
&2.4433e-04_jprb,2.5995e-04_jprb,2.4592e-04_jprb,5.0307e-04_jprb/)
kao( :, 2,11, 1) = (/&
&1.0726e-06_jprb,5.9907e-05_jprb,1.0858e-04_jprb,1.5223e-04_jprb,1.9244e-04_jprb,2.2775e-04_jprb,&
&2.5610e-04_jprb,2.7046e-04_jprb,2.5615e-04_jprb,5.1588e-04_jprb/)
kao( :, 3,11, 1) = (/&
&1.1894e-06_jprb,6.3212e-05_jprb,1.1383e-04_jprb,1.5870e-04_jprb,1.9979e-04_jprb,2.3693e-04_jprb,&
&2.6747e-04_jprb,2.9154e-04_jprb,2.7919e-04_jprb,5.3855e-04_jprb/)
kao( :, 4,11, 1) = (/&
&1.4390e-06_jprb,6.8258e-05_jprb,1.2145e-04_jprb,1.6906e-04_jprb,2.1138e-04_jprb,2.4948e-04_jprb,&
&2.8136e-04_jprb,3.0581e-04_jprb,2.9553e-04_jprb,5.7296e-04_jprb/)
kao( :, 5,11, 1) = (/&
&1.8470e-06_jprb,7.5489e-05_jprb,1.3202e-04_jprb,1.8257e-04_jprb,2.2782e-04_jprb,2.6681e-04_jprb,&
&2.9892e-04_jprb,3.2058e-04_jprb,3.1052e-04_jprb,6.1818e-04_jprb/)
kao( :, 1,12, 1) = (/&
&8.6798e-07_jprb,4.7553e-05_jprb,8.6730e-05_jprb,1.2226e-04_jprb,1.5413e-04_jprb,1.8085e-04_jprb,&
&2.0088e-04_jprb,2.1368e-04_jprb,2.0252e-04_jprb,4.1925e-04_jprb/)
kao( :, 2,12, 1) = (/&
&8.8495e-07_jprb,4.9183e-05_jprb,8.9118e-05_jprb,1.2490e-04_jprb,1.5790e-04_jprb,1.8699e-04_jprb,&
&2.1049e-04_jprb,2.2231e-04_jprb,2.1170e-04_jprb,4.2911e-04_jprb/)
kao( :, 3,12, 1) = (/&
&9.8325e-07_jprb,5.1925e-05_jprb,9.3547e-05_jprb,1.3044e-04_jprb,1.6413e-04_jprb,1.9471e-04_jprb,&
&2.1986e-04_jprb,2.4001e-04_jprb,2.3209e-04_jprb,4.4871e-04_jprb/)
kao( :, 4,12, 1) = (/&
&1.1889e-06_jprb,5.6183e-05_jprb,9.9863e-05_jprb,1.3905e-04_jprb,1.7391e-04_jprb,2.0522e-04_jprb,&
&2.3142e-04_jprb,2.5135e-04_jprb,2.4267e-04_jprb,4.7818e-04_jprb/)
kao( :, 5,12, 1) = (/&
&1.5235e-06_jprb,6.2281e-05_jprb,1.0874e-04_jprb,1.5023e-04_jprb,1.8755e-04_jprb,2.1980e-04_jprb,&
&2.4617e-04_jprb,2.6379e-04_jprb,2.5784e-04_jprb,5.1708e-04_jprb/)
kao( :, 1,13, 1) = (/&
&7.1418e-07_jprb,3.8921e-05_jprb,7.0891e-05_jprb,9.9889e-05_jprb,1.2597e-04_jprb,1.4799e-04_jprb,&
&1.6453e-04_jprb,1.7513e-04_jprb,1.6667e-04_jprb,3.4309e-04_jprb/)
kao( :, 2,13, 1) = (/&
&7.2895e-07_jprb,4.0284e-05_jprb,7.2945e-05_jprb,1.0221e-04_jprb,1.2923e-04_jprb,1.5309e-04_jprb,&
&1.7258e-04_jprb,1.8229e-04_jprb,1.7386e-04_jprb,3.5109e-04_jprb/)
kao( :, 3,13, 1) = (/&
&8.1079e-07_jprb,4.2576e-05_jprb,7.6659e-05_jprb,1.0692e-04_jprb,1.3449e-04_jprb,1.5961e-04_jprb,&
&1.8026e-04_jprb,1.9704e-04_jprb,1.9240e-04_jprb,3.6700e-04_jprb/)
kao( :, 4,13, 1) = (/&
&9.8001e-07_jprb,4.6149e-05_jprb,8.1932e-05_jprb,1.1406e-04_jprb,1.4271e-04_jprb,1.6841e-04_jprb,&
&1.8992e-04_jprb,2.0617e-04_jprb,1.9928e-04_jprb,3.9092e-04_jprb/)
kao( :, 5,13, 1) = (/&
&1.2528e-06_jprb,5.1280e-05_jprb,8.9359e-05_jprb,1.2338e-04_jprb,1.5401e-04_jprb,1.8056e-04_jprb,&
&2.0225e-04_jprb,2.1672e-04_jprb,2.1360e-04_jprb,4.2252e-04_jprb/)
kao( :, 1, 1, 2) = (/&
&6.1207e-05_jprb,1.0978e-03_jprb,1.7611e-03_jprb,2.3638e-03_jprb,2.9057e-03_jprb,3.3651e-03_jprb,&
&3.7137e-03_jprb,3.8383e-03_jprb,3.2297e-03_jprb,2.4264e-03_jprb/)
kao( :, 2, 1, 2) = (/&
&8.5058e-05_jprb,1.3292e-03_jprb,2.0750e-03_jprb,2.7338e-03_jprb,3.3403e-03_jprb,3.8629e-03_jprb,&
&4.2579e-03_jprb,4.3337e-03_jprb,3.4101e-03_jprb,2.6736e-03_jprb/)
kao( :, 3, 1, 2) = (/&
&1.1682e-04_jprb,1.6162e-03_jprb,2.4689e-03_jprb,3.1946e-03_jprb,3.8719e-03_jprb,4.4552e-03_jprb,&
&4.9076e-03_jprb,4.9335e-03_jprb,3.9022e-03_jprb,2.9247e-03_jprb/)
kao( :, 4, 1, 2) = (/&
&1.5789e-04_jprb,1.9668e-03_jprb,2.9480e-03_jprb,3.7669e-03_jprb,4.5171e-03_jprb,5.1682e-03_jprb,&
&5.6653e-03_jprb,5.6499e-03_jprb,4.0652e-03_jprb,3.1515e-03_jprb/)
kao( :, 5, 1, 2) = (/&
&2.0990e-04_jprb,2.3887e-03_jprb,3.5299e-03_jprb,4.4565e-03_jprb,5.2844e-03_jprb,6.0076e-03_jprb,&
&6.5551e-03_jprb,6.4764e-03_jprb,4.4385e-03_jprb,3.4538e-03_jprb/)
kao( :, 1, 2, 2) = (/&
&4.6541e-05_jprb,8.8674e-04_jprb,1.4099e-03_jprb,1.8864e-03_jprb,2.3180e-03_jprb,2.6798e-03_jprb,&
&2.9613e-03_jprb,3.0615e-03_jprb,2.6597e-03_jprb,1.8872e-03_jprb/)
kao( :, 2, 2, 2) = (/&
&6.5339e-05_jprb,1.0747e-03_jprb,1.6670e-03_jprb,2.1855e-03_jprb,2.6622e-03_jprb,3.0710e-03_jprb,&
&3.3862e-03_jprb,3.4584e-03_jprb,2.7852e-03_jprb,2.0782e-03_jprb/)
kao( :, 3, 2, 2) = (/&
&9.0589e-05_jprb,1.3082e-03_jprb,1.9947e-03_jprb,2.5634e-03_jprb,3.0860e-03_jprb,3.5379e-03_jprb,&
&3.8975e-03_jprb,3.9366e-03_jprb,3.1668e-03_jprb,2.2590e-03_jprb/)
kao( :, 4, 2, 2) = (/&
&1.2385e-04_jprb,1.5968e-03_jprb,2.3941e-03_jprb,3.0350e-03_jprb,3.6067e-03_jprb,4.1057e-03_jprb,&
&4.4942e-03_jprb,4.5107e-03_jprb,3.2782e-03_jprb,2.4504e-03_jprb/)
kao( :, 5, 2, 2) = (/&
&1.6667e-04_jprb,1.9480e-03_jprb,2.8786e-03_jprb,3.6064e-03_jprb,4.2370e-03_jprb,4.7805e-03_jprb,&
&5.2024e-03_jprb,5.1677e-03_jprb,3.5425e-03_jprb,2.6975e-03_jprb/)
kao( :, 1, 3, 2) = (/&
&3.2922e-05_jprb,6.8654e-04_jprb,1.0970e-03_jprb,1.4654e-03_jprb,1.8051e-03_jprb,2.0847e-03_jprb,&
&2.3088e-03_jprb,2.3837e-03_jprb,2.1265e-03_jprb,1.4540e-03_jprb/)
kao( :, 2, 3, 2) = (/&
&4.6583e-05_jprb,8.3015e-04_jprb,1.2948e-03_jprb,1.6958e-03_jprb,2.0663e-03_jprb,2.3792e-03_jprb,&
&2.6229e-03_jprb,2.6951e-03_jprb,2.2518e-03_jprb,1.5969e-03_jprb/)
kao( :, 3, 3, 2) = (/&
&6.5410e-05_jprb,1.0114e-03_jprb,1.5518e-03_jprb,1.9919e-03_jprb,2.3944e-03_jprb,2.7366e-03_jprb,&
&3.0098e-03_jprb,3.0595e-03_jprb,2.4530e-03_jprb,1.7299e-03_jprb/)
kao( :, 4, 3, 2) = (/&
&9.0734e-05_jprb,1.2366e-03_jprb,1.8688e-03_jprb,2.3652e-03_jprb,2.8005e-03_jprb,3.1725e-03_jprb,&
&3.4706e-03_jprb,3.5000e-03_jprb,2.6641e-03_jprb,1.8912e-03_jprb/)
kao( :, 5, 3, 2) = (/&
&1.2407e-04_jprb,1.5126e-03_jprb,2.2510e-03_jprb,2.8211e-03_jprb,3.2989e-03_jprb,3.7001e-03_jprb,&
&4.0161e-03_jprb,4.0075e-03_jprb,2.7798e-03_jprb,2.0796e-03_jprb/)
kao( :, 1, 4, 2) = (/&
&2.2778e-05_jprb,5.2510e-04_jprb,8.4888e-04_jprb,1.1352e-03_jprb,1.3979e-03_jprb,1.6168e-03_jprb,&
&1.7964e-03_jprb,1.8331e-03_jprb,1.7837e-03_jprb,1.1723e-03_jprb/)
kao( :, 2, 4, 2) = (/&
&3.2363e-05_jprb,6.3086e-04_jprb,9.9709e-04_jprb,1.3073e-03_jprb,1.5943e-03_jprb,1.8366e-03_jprb,&
&2.0244e-03_jprb,2.0875e-03_jprb,1.8124e-03_jprb,1.2732e-03_jprb/)
kao( :, 3, 4, 2) = (/&
&4.5962e-05_jprb,7.6788e-04_jprb,1.1912e-03_jprb,1.5347e-03_jprb,1.8433e-03_jprb,2.1077e-03_jprb,&
&2.3135e-03_jprb,2.3586e-03_jprb,1.8966e-03_jprb,1.3806e-03_jprb/)
kao( :, 4, 4, 2) = (/&
&6.4739e-05_jprb,9.3992e-04_jprb,1.4352e-03_jprb,1.8248e-03_jprb,2.1580e-03_jprb,2.4403e-03_jprb,&
&2.6639e-03_jprb,2.6893e-03_jprb,2.1413e-03_jprb,1.4999e-03_jprb/)
kao( :, 5, 4, 2) = (/&
&9.0009e-05_jprb,1.1535e-03_jprb,1.7330e-03_jprb,2.1811e-03_jprb,2.5487e-03_jprb,2.8464e-03_jprb,&
&3.0813e-03_jprb,3.0811e-03_jprb,2.2013e-03_jprb,1.6370e-03_jprb/)
kao( :, 1, 5, 2) = (/&
&1.5792e-05_jprb,4.0148e-04_jprb,6.5831e-04_jprb,8.8434e-04_jprb,1.0869e-03_jprb,1.2568e-03_jprb,&
&1.4030e-03_jprb,1.4157e-03_jprb,1.3790e-03_jprb,9.9471e-04_jprb/)
kao( :, 2, 5, 2) = (/&
&2.2397e-05_jprb,4.7887e-04_jprb,7.6705e-04_jprb,1.0113e-03_jprb,1.2329e-03_jprb,1.4202e-03_jprb,&
&1.5687e-03_jprb,1.6184e-03_jprb,1.4582e-03_jprb,1.0698e-03_jprb/)
kao( :, 3, 5, 2) = (/&
&3.2096e-05_jprb,5.8078e-04_jprb,9.1183e-04_jprb,1.1823e-03_jprb,1.4221e-03_jprb,1.6260e-03_jprb,&
&1.7823e-03_jprb,1.8208e-03_jprb,1.5493e-03_jprb,1.1486e-03_jprb/)
kao( :, 4, 5, 2) = (/&
&4.5840e-05_jprb,7.1160e-04_jprb,1.0969e-03_jprb,1.4034e-03_jprb,1.6628e-03_jprb,1.8804e-03_jprb,&
&2.0470e-03_jprb,2.0686e-03_jprb,1.6540e-03_jprb,1.2365e-03_jprb/)
kao( :, 5, 5, 2) = (/&
&6.4822e-05_jprb,8.7496e-04_jprb,1.3269e-03_jprb,1.6793e-03_jprb,1.9658e-03_jprb,2.1946e-03_jprb,&
&2.3671e-03_jprb,2.3677e-03_jprb,1.7812e-03_jprb,1.3376e-03_jprb/)
kao( :, 1, 6, 2) = (/&
&1.0902e-05_jprb,3.0605e-04_jprb,5.1028e-04_jprb,6.8853e-04_jprb,8.4488e-04_jprb,9.7840e-04_jprb,&
&1.0974e-03_jprb,1.1101e-03_jprb,1.0645e-03_jprb,8.6648e-04_jprb/)
kao( :, 2, 6, 2) = (/&
&1.5301e-05_jprb,3.6130e-04_jprb,5.8719e-04_jprb,7.8079e-04_jprb,9.5252e-04_jprb,1.0959e-03_jprb,&
&1.2152e-03_jprb,1.2397e-03_jprb,1.2046e-03_jprb,9.1885e-04_jprb/)
kao( :, 3, 6, 2) = (/&
&2.2016e-05_jprb,4.3548e-04_jprb,6.9267e-04_jprb,9.0511e-04_jprb,1.0924e-03_jprb,1.2498e-03_jprb,&
&1.3720e-03_jprb,1.4053e-03_jprb,1.2319e-03_jprb,9.7396e-04_jprb/)
kao( :, 4, 6, 2) = (/&
&3.1830e-05_jprb,5.3317e-04_jprb,8.3063e-04_jprb,1.0698e-03_jprb,1.2734e-03_jprb,1.4418e-03_jprb,&
&1.5687e-03_jprb,1.5881e-03_jprb,1.2775e-03_jprb,1.0399e-03_jprb/)
kao( :, 5, 6, 2) = (/&
&4.5738e-05_jprb,6.5696e-04_jprb,1.0039e-03_jprb,1.2790e-03_jprb,1.5021e-03_jprb,1.6812e-03_jprb,&
&1.8119e-03_jprb,1.8117e-03_jprb,1.4274e-03_jprb,1.1156e-03_jprb/)
kao( :, 1, 7, 2) = (/&
&7.6369e-06_jprb,2.3409e-04_jprb,3.9662e-04_jprb,5.3736e-04_jprb,6.5954e-04_jprb,7.6628e-04_jprb,&
&8.6324e-04_jprb,8.8119e-04_jprb,8.6194e-04_jprb,7.9079e-04_jprb/)
kao( :, 2, 7, 2) = (/&
&1.0494e-05_jprb,2.7293e-04_jprb,4.5033e-04_jprb,6.0419e-04_jprb,7.3771e-04_jprb,8.4846e-04_jprb,&
&9.4512e-04_jprb,9.5497e-04_jprb,9.2999e-04_jprb,8.2387e-04_jprb/)
kao( :, 3, 7, 2) = (/&
&1.5059e-05_jprb,3.2612e-04_jprb,5.2570e-04_jprb,6.9285e-04_jprb,8.4056e-04_jprb,9.6214e-04_jprb,&
&1.0579e-03_jprb,1.0868e-03_jprb,9.8600e-04_jprb,8.6421e-04_jprb/)
kao( :, 4, 7, 2) = (/&
&2.1973e-05_jprb,3.9766e-04_jprb,6.2716e-04_jprb,8.1307e-04_jprb,9.7314e-04_jprb,1.1062e-03_jprb,&
&1.2052e-03_jprb,1.2224e-03_jprb,1.0473e-03_jprb,9.1386e-04_jprb/)
kao( :, 5, 7, 2) = (/&
&3.2024e-05_jprb,4.9023e-04_jprb,7.5693e-04_jprb,9.6942e-04_jprb,1.1441e-03_jprb,1.2861e-03_jprb,&
&1.3873e-03_jprb,1.3904e-03_jprb,1.0995e-03_jprb,9.7409e-04_jprb/)
kao( :, 1, 8, 2) = (/&
&5.4819e-06_jprb,1.8022e-04_jprb,3.0951e-04_jprb,4.2109e-04_jprb,5.1765e-04_jprb,6.0434e-04_jprb,&
&6.7966e-04_jprb,7.0414e-04_jprb,7.0729e-04_jprb,7.6543e-04_jprb/)
kao( :, 2, 8, 2) = (/&
&7.2946e-06_jprb,2.0689e-04_jprb,3.4673e-04_jprb,4.6841e-04_jprb,5.7263e-04_jprb,6.6046e-04_jprb,&
&7.3949e-04_jprb,7.4887e-04_jprb,7.2137e-04_jprb,7.8512e-04_jprb/)
kao( :, 3, 8, 2) = (/&
&1.0351e-05_jprb,2.4457e-04_jprb,3.9988e-04_jprb,5.3188e-04_jprb,6.4791e-04_jprb,7.4247e-04_jprb,&
&8.1941e-04_jprb,8.3495e-04_jprb,8.1545e-04_jprb,8.2107e-04_jprb/)
kao( :, 4, 8, 2) = (/&
&1.5156e-05_jprb,2.9629e-04_jprb,4.7365e-04_jprb,6.1873e-04_jprb,7.4454e-04_jprb,8.4958e-04_jprb,&
&9.2854e-04_jprb,9.4393e-04_jprb,8.3940e-04_jprb,8.7281e-04_jprb/)
kao( :, 5, 8, 2) = (/&
&2.2361e-05_jprb,3.6482e-04_jprb,5.6983e-04_jprb,7.3407e-04_jprb,8.7045e-04_jprb,9.8366e-04_jprb,&
&1.0651e-03_jprb,1.0698e-03_jprb,8.6698e-04_jprb,9.3613e-04_jprb/)
kao( :, 1, 9, 2) = (/&
&4.0452e-06_jprb,1.4017e-04_jprb,2.4329e-04_jprb,3.3218e-04_jprb,4.0925e-04_jprb,4.8103e-04_jprb,&
&5.3918e-04_jprb,5.6100e-04_jprb,5.6501e-04_jprb,8.0970e-04_jprb/)
kao( :, 2, 9, 2) = (/&
&5.1567e-06_jprb,1.5795e-04_jprb,2.6863e-04_jprb,3.6500e-04_jprb,4.4688e-04_jprb,5.1756e-04_jprb,&
&5.8306e-04_jprb,5.9423e-04_jprb,5.8894e-04_jprb,8.6646e-04_jprb/)
kao( :, 3, 9, 2) = (/&
&7.1657e-06_jprb,1.8427e-04_jprb,3.0563e-04_jprb,4.1026e-04_jprb,5.0076e-04_jprb,5.7510e-04_jprb,&
&6.3796e-04_jprb,6.4416e-04_jprb,6.2814e-04_jprb,9.4589e-04_jprb/)
kao( :, 4, 9, 2) = (/&
&1.0454e-05_jprb,2.2117e-04_jprb,3.5855e-04_jprb,4.7222e-04_jprb,5.7137e-04_jprb,6.5350e-04_jprb,&
&7.1676e-04_jprb,7.3182e-04_jprb,6.7180e-04_jprb,1.0445e-03_jprb/)
kao( :, 5, 9, 2) = (/&
&1.5554e-05_jprb,2.7129e-04_jprb,4.2902e-04_jprb,5.5622e-04_jprb,6.6296e-04_jprb,7.5220e-04_jprb,&
&8.1926e-04_jprb,8.2534e-04_jprb,7.1317e-04_jprb,1.1567e-03_jprb/)
kao( :, 1,10, 2) = (/&
&3.1057e-06_jprb,1.1083e-04_jprb,1.9379e-04_jprb,2.6511e-04_jprb,3.2793e-04_jprb,3.8622e-04_jprb,&
&4.3071e-04_jprb,4.4441e-04_jprb,4.5952e-04_jprb,8.8174e-04_jprb/)
kao( :, 2,10, 2) = (/&
&3.7991e-06_jprb,1.2283e-04_jprb,2.1113e-04_jprb,2.8821e-04_jprb,3.5348e-04_jprb,4.1112e-04_jprb,&
&4.6174e-04_jprb,4.7717e-04_jprb,4.8657e-04_jprb,9.8685e-04_jprb/)
kao( :, 3,10, 2) = (/&
&5.1499e-06_jprb,1.4143e-04_jprb,2.3734e-04_jprb,3.2100e-04_jprb,3.9236e-04_jprb,4.5145e-04_jprb,&
&5.0315e-04_jprb,5.0792e-04_jprb,4.9406e-04_jprb,1.1242e-03_jprb/)
kao( :, 4,10, 2) = (/&
&7.4528e-06_jprb,1.6827e-04_jprb,2.7574e-04_jprb,3.6613e-04_jprb,4.4442e-04_jprb,5.0912e-04_jprb,&
&5.6026e-04_jprb,5.7140e-04_jprb,5.5681e-04_jprb,1.2935e-03_jprb/)
kao( :, 5,10, 2) = (/&
&1.1134e-05_jprb,2.0532e-04_jprb,3.2832e-04_jprb,4.2825e-04_jprb,5.1275e-04_jprb,5.8331e-04_jprb,&
&6.3709e-04_jprb,6.4447e-04_jprb,5.7554e-04_jprb,1.4892e-03_jprb/)
kao( :, 1,11, 2) = (/&
&2.5793e-06_jprb,9.1386e-05_jprb,1.5991e-04_jprb,2.1914e-04_jprb,2.7076e-04_jprb,3.1821e-04_jprb,&
&3.5500e-04_jprb,3.6871e-04_jprb,3.7899e-04_jprb,8.3339e-04_jprb/)
kao( :, 2,11, 2) = (/&
&3.1932e-06_jprb,1.0152e-04_jprb,1.7439e-04_jprb,2.3840e-04_jprb,2.9253e-04_jprb,3.3975e-04_jprb,&
&3.8122e-04_jprb,3.9384e-04_jprb,4.0567e-04_jprb,9.5074e-04_jprb/)
kao( :, 3,11, 2) = (/&
&4.3709e-06_jprb,1.1728e-04_jprb,1.9656e-04_jprb,2.6595e-04_jprb,3.2495e-04_jprb,3.7366e-04_jprb,&
&4.1570e-04_jprb,4.1965e-04_jprb,4.1122e-04_jprb,1.0992e-03_jprb/)
kao( :, 4,11, 2) = (/&
&6.3954e-06_jprb,1.4000e-04_jprb,2.2922e-04_jprb,3.0419e-04_jprb,3.6879e-04_jprb,4.2168e-04_jprb,&
&4.6345e-04_jprb,4.7319e-04_jprb,4.5954e-04_jprb,1.2804e-03_jprb/)
kao( :, 5,11, 2) = (/&
&9.6174e-06_jprb,1.7120e-04_jprb,2.7357e-04_jprb,3.5711e-04_jprb,4.2654e-04_jprb,4.8415e-04_jprb,&
&5.2775e-04_jprb,5.3321e-04_jprb,4.7537e-04_jprb,1.4946e-03_jprb/)
kao( :, 1,12, 2) = (/&
&2.1449e-06_jprb,7.5185e-05_jprb,1.3159e-04_jprb,1.8068e-04_jprb,2.2335e-04_jprb,2.6198e-04_jprb,&
&2.9235e-04_jprb,3.0350e-04_jprb,3.1256e-04_jprb,7.2986e-04_jprb/)
kao( :, 2,12, 2) = (/&
&2.6849e-06_jprb,8.3739e-05_jprb,1.4370e-04_jprb,1.9666e-04_jprb,2.4153e-04_jprb,2.8046e-04_jprb,&
&3.1445e-04_jprb,3.2440e-04_jprb,3.3814e-04_jprb,8.3896e-04_jprb/)
kao( :, 3,12, 2) = (/&
&3.7120e-06_jprb,9.7072e-05_jprb,1.6242e-04_jprb,2.1974e-04_jprb,2.6866e-04_jprb,3.0880e-04_jprb,&
&3.4296e-04_jprb,3.4655e-04_jprb,3.4183e-04_jprb,9.7914e-04_jprb/)
kao( :, 4,12, 2) = (/&
&5.4750e-06_jprb,1.1621e-04_jprb,1.9012e-04_jprb,2.5210e-04_jprb,3.0547e-04_jprb,3.4901e-04_jprb,&
&3.8299e-04_jprb,3.9098e-04_jprb,3.8045e-04_jprb,1.1499e-03_jprb/)
kao( :, 5,12, 2) = (/&
&8.2703e-06_jprb,1.4241e-04_jprb,2.2731e-04_jprb,2.9701e-04_jprb,3.5442e-04_jprb,4.0147e-04_jprb,&
&4.3679e-04_jprb,4.4039e-04_jprb,3.9154e-04_jprb,1.3496e-03_jprb/)
kao( :, 1,13, 2) = (/&
&1.7830e-06_jprb,6.1545e-05_jprb,1.0776e-04_jprb,1.4816e-04_jprb,1.8346e-04_jprb,2.1518e-04_jprb,&
&2.4003e-04_jprb,2.4920e-04_jprb,2.5855e-04_jprb,6.0483e-04_jprb/)
kao( :, 2,13, 2) = (/&
&2.2523e-06_jprb,6.8708e-05_jprb,1.1787e-04_jprb,1.6139e-04_jprb,1.9846e-04_jprb,2.3065e-04_jprb,&
&2.5831e-04_jprb,2.6663e-04_jprb,2.8115e-04_jprb,6.9533e-04_jprb/)
kao( :, 3,13, 2) = (/&
&3.1394e-06_jprb,7.9894e-05_jprb,1.3357e-04_jprb,1.8071e-04_jprb,2.2106e-04_jprb,2.5423e-04_jprb,&
&2.8211e-04_jprb,2.8541e-04_jprb,2.8437e-04_jprb,8.1181e-04_jprb/)
kao( :, 4,13, 2) = (/&
&4.6431e-06_jprb,9.5872e-05_jprb,1.5677e-04_jprb,2.0791e-04_jprb,2.5190e-04_jprb,2.8785e-04_jprb,&
&3.1567e-04_jprb,3.2214e-04_jprb,3.1077e-04_jprb,9.5374e-04_jprb/)
kao( :, 5,13, 2) = (/&
&7.0293e-06_jprb,1.1782e-04_jprb,1.8782e-04_jprb,2.4556e-04_jprb,2.9310e-04_jprb,3.3172e-04_jprb,&
&3.6069e-04_jprb,3.6276e-04_jprb,3.2321e-04_jprb,1.1190e-03_jprb/)
kao( :, 1, 1, 3) = (/&
&3.1395e-04_jprb,2.3358e-03_jprb,3.6695e-03_jprb,4.7583e-03_jprb,5.6300e-03_jprb,6.3084e-03_jprb,&
&6.4459e-03_jprb,5.6476e-03_jprb,4.3114e-03_jprb,3.5359e-03_jprb/)
kao( :, 2, 1, 3) = (/&
&4.4041e-04_jprb,2.8550e-03_jprb,4.4288e-03_jprb,5.7337e-03_jprb,6.7703e-03_jprb,7.4874e-03_jprb,&
&7.5852e-03_jprb,6.6048e-03_jprb,4.4609e-03_jprb,3.7307e-03_jprb/)
kao( :, 3, 1, 3) = (/&
&6.0889e-04_jprb,3.4990e-03_jprb,5.3318e-03_jprb,6.8783e-03_jprb,8.0899e-03_jprb,8.8562e-03_jprb,&
&8.8659e-03_jprb,7.6998e-03_jprb,5.0834e-03_jprb,4.1606e-03_jprb/)
kao( :, 4, 1, 3) = (/&
&8.2945e-04_jprb,4.2967e-03_jprb,6.4106e-03_jprb,8.2013e-03_jprb,9.6038e-03_jprb,1.0382e-02_jprb,&
&1.0298e-02_jprb,8.9419e-03_jprb,6.1506e-03_jprb,4.8030e-03_jprb/)
kao( :, 5, 1, 3) = (/&
&1.1111e-03_jprb,5.2640e-03_jprb,7.6785e-03_jprb,9.7243e-03_jprb,1.1313e-02_jprb,1.2073e-02_jprb,&
&1.1918e-02_jprb,1.0340e-02_jprb,7.2231e-03_jprb,5.5559e-03_jprb/)
kao( :, 1, 2, 3) = (/&
&2.5786e-04_jprb,1.8689e-03_jprb,2.9171e-03_jprb,3.7655e-03_jprb,4.4557e-03_jprb,4.9851e-03_jprb,&
&5.0877e-03_jprb,4.4987e-03_jprb,3.5624e-03_jprb,2.7823e-03_jprb/)
kao( :, 2, 2, 3) = (/&
&3.6518e-04_jprb,2.2982e-03_jprb,3.5229e-03_jprb,4.5348e-03_jprb,5.3627e-03_jprb,5.9413e-03_jprb,&
&6.0131e-03_jprb,5.2796e-03_jprb,3.6528e-03_jprb,2.9862e-03_jprb/)
kao( :, 3, 2, 3) = (/&
&5.0963e-04_jprb,2.8326e-03_jprb,4.2490e-03_jprb,5.4478e-03_jprb,6.4291e-03_jprb,7.0522e-03_jprb,&
&7.0637e-03_jprb,6.1794e-03_jprb,4.0832e-03_jprb,3.3326e-03_jprb/)
kao( :, 4, 2, 3) = (/&
&7.0041e-04_jprb,3.4946e-03_jprb,5.1315e-03_jprb,6.5181e-03_jprb,7.6574e-03_jprb,8.3039e-03_jprb,&
&8.2501e-03_jprb,7.2013e-03_jprb,4.9579e-03_jprb,3.8182e-03_jprb/)
kao( :, 5, 2, 3) = (/&
&9.4509e-04_jprb,4.3042e-03_jprb,6.1780e-03_jprb,7.7645e-03_jprb,9.0552e-03_jprb,9.6970e-03_jprb,&
&9.5937e-03_jprb,8.3644e-03_jprb,5.8475e-03_jprb,4.3744e-03_jprb/)
kao( :, 1, 3, 3) = (/&
&1.9379e-04_jprb,1.4316e-03_jprb,2.2324e-03_jprb,2.8735e-03_jprb,3.3970e-03_jprb,3.8041e-03_jprb,&
&3.8802e-03_jprb,3.4669e-03_jprb,2.9119e-03_jprb,2.1744e-03_jprb/)
kao( :, 2, 3, 3) = (/&
&2.7770e-04_jprb,1.7674e-03_jprb,2.7001e-03_jprb,3.4577e-03_jprb,4.0882e-03_jprb,4.5451e-03_jprb,&
&4.6130e-03_jprb,4.0692e-03_jprb,2.9379e-03_jprb,2.3588e-03_jprb/)
kao( :, 3, 3, 3) = (/&
&3.9251e-04_jprb,2.1938e-03_jprb,3.2645e-03_jprb,4.1604e-03_jprb,4.9099e-03_jprb,5.4125e-03_jprb,&
&5.4492e-03_jprb,4.7846e-03_jprb,3.2003e-03_jprb,2.6346e-03_jprb/)
kao( :, 4, 3, 3) = (/&
&5.4605e-04_jprb,2.7278e-03_jprb,3.9609e-03_jprb,4.9977e-03_jprb,5.8740e-03_jprb,6.4067e-03_jprb,&
&6.4003e-03_jprb,5.6054e-03_jprb,3.7732e-03_jprb,2.9860e-03_jprb/)
kao( :, 5, 3, 3) = (/&
&7.4466e-04_jprb,3.3848e-03_jprb,4.8045e-03_jprb,5.9823e-03_jprb,6.9787e-03_jprb,7.5209e-03_jprb,&
&7.4708e-03_jprb,6.5433e-03_jprb,4.5620e-03_jprb,3.3966e-03_jprb/)
kao( :, 1, 4, 3) = (/&
&1.4015e-04_jprb,1.0813e-03_jprb,1.6854e-03_jprb,2.1729e-03_jprb,2.5709e-03_jprb,2.8772e-03_jprb,&
&2.9317e-03_jprb,2.6451e-03_jprb,2.2657e-03_jprb,1.7383e-03_jprb/)
kao( :, 2, 4, 3) = (/&
&2.0311e-04_jprb,1.3407e-03_jprb,2.0417e-03_jprb,2.6162e-03_jprb,3.0900e-03_jprb,3.4371e-03_jprb,&
&3.4970e-03_jprb,3.1030e-03_jprb,2.4331e-03_jprb,1.8807e-03_jprb/)
kao( :, 3, 4, 3) = (/&
&2.9086e-04_jprb,1.6740e-03_jprb,2.4810e-03_jprb,3.1478e-03_jprb,3.7091e-03_jprb,4.1012e-03_jprb,&
&4.1503e-03_jprb,3.6669e-03_jprb,2.5193e-03_jprb,2.0853e-03_jprb/)
kao( :, 4, 4, 3) = (/&
&4.1019e-04_jprb,2.0975e-03_jprb,3.0276e-03_jprb,3.7932e-03_jprb,4.4503e-03_jprb,4.8736e-03_jprb,&
&4.8948e-03_jprb,4.3129e-03_jprb,2.8422e-03_jprb,2.3481e-03_jprb/)
kao( :, 5, 4, 3) = (/&
&5.6658e-04_jprb,2.6213e-03_jprb,3.6972e-03_jprb,4.5663e-03_jprb,5.3124e-03_jprb,5.7564e-03_jprb,&
&5.7449e-03_jprb,5.0602e-03_jprb,3.4831e-03_jprb,2.6607e-03_jprb/)
kao( :, 1, 5, 3) = (/&
&1.0005e-04_jprb,8.1751e-04_jprb,1.2728e-03_jprb,1.6409e-03_jprb,1.9492e-03_jprb,2.1828e-03_jprb,&
&2.2210e-03_jprb,2.0236e-03_jprb,1.7728e-03_jprb,1.4477e-03_jprb/)
kao( :, 2, 5, 3) = (/&
&1.4628e-04_jprb,1.0154e-03_jprb,1.5439e-03_jprb,1.9778e-03_jprb,2.3404e-03_jprb,2.6065e-03_jprb,&
&2.6499e-03_jprb,2.3648e-03_jprb,1.9853e-03_jprb,1.5598e-03_jprb/)
kao( :, 3, 5, 3) = (/&
&2.1213e-04_jprb,1.2737e-03_jprb,1.8830e-03_jprb,2.3878e-03_jprb,2.8089e-03_jprb,3.1116e-03_jprb,&
&3.1584e-03_jprb,2.8055e-03_jprb,1.9979e-03_jprb,1.7165e-03_jprb/)
kao( :, 4, 5, 3) = (/&
&3.0316e-04_jprb,1.6037e-03_jprb,2.3102e-03_jprb,2.8890e-03_jprb,3.3732e-03_jprb,3.7052e-03_jprb,&
&3.7386e-03_jprb,3.3128e-03_jprb,2.1889e-03_jprb,1.9135e-03_jprb/)
kao( :, 5, 5, 3) = (/&
&4.2437e-04_jprb,2.0170e-03_jprb,2.8415e-03_jprb,3.4970e-03_jprb,4.0448e-03_jprb,4.3946e-03_jprb,&
&4.4054e-03_jprb,3.8956e-03_jprb,2.6089e-03_jprb,2.1456e-03_jprb/)
kao( :, 1, 6, 3) = (/&
&6.9848e-05_jprb,6.1344e-04_jprb,9.5427e-04_jprb,1.2333e-03_jprb,1.4696e-03_jprb,1.6459e-03_jprb,&
&1.6778e-03_jprb,1.5491e-03_jprb,1.4340e-03_jprb,1.2155e-03_jprb/)
kao( :, 2, 6, 3) = (/&
&1.0287e-04_jprb,7.6231e-04_jprb,1.1596e-03_jprb,1.4875e-03_jprb,1.7602e-03_jprb,1.9644e-03_jprb,&
&1.9987e-03_jprb,1.8015e-03_jprb,1.5475e-03_jprb,1.3106e-03_jprb/)
kao( :, 3, 6, 3) = (/&
&1.5064e-04_jprb,9.5897e-04_jprb,1.4184e-03_jprb,1.7997e-03_jprb,2.1174e-03_jprb,2.3481e-03_jprb,&
&2.3855e-03_jprb,2.1239e-03_jprb,1.6664e-03_jprb,1.4397e-03_jprb/)
kao( :, 4, 6, 3) = (/&
&2.1812e-04_jprb,1.2102e-03_jprb,1.7485e-03_jprb,2.1875e-03_jprb,2.5486e-03_jprb,2.8028e-03_jprb,&
&2.8356e-03_jprb,2.5206e-03_jprb,1.7195e-03_jprb,1.5934e-03_jprb/)
kao( :, 5, 6, 3) = (/&
&3.0969e-04_jprb,1.5273e-03_jprb,2.1634e-03_jprb,2.6620e-03_jprb,3.0695e-03_jprb,3.3380e-03_jprb,&
&3.3515e-03_jprb,2.9746e-03_jprb,1.9515e-03_jprb,1.7778e-03_jprb/)
kao( :, 1, 7, 3) = (/&
&4.8221e-05_jprb,4.6010e-04_jprb,7.1481e-04_jprb,9.2859e-04_jprb,1.1100e-03_jprb,1.2408e-03_jprb,&
&1.2683e-03_jprb,1.1941e-03_jprb,1.1654e-03_jprb,1.0618e-03_jprb/)
kao( :, 2, 7, 3) = (/&
&7.1316e-05_jprb,5.6993e-04_jprb,8.6994e-04_jprb,1.1165e-03_jprb,1.3220e-03_jprb,1.4781e-03_jprb,&
&1.5050e-03_jprb,1.3757e-03_jprb,1.2140e-03_jprb,1.1427e-03_jprb/)
kao( :, 3, 7, 3) = (/&
&1.0540e-04_jprb,7.1740e-04_jprb,1.0671e-03_jprb,1.3546e-03_jprb,1.5921e-03_jprb,1.7675e-03_jprb,&
&1.7993e-03_jprb,1.6085e-03_jprb,1.3409e-03_jprb,1.2460e-03_jprb/)
kao( :, 4, 7, 3) = (/&
&1.5421e-04_jprb,9.0675e-04_jprb,1.3194e-03_jprb,1.6531e-03_jprb,1.9239e-03_jprb,2.1163e-03_jprb,&
&2.1446e-03_jprb,1.9118e-03_jprb,1.3549e-03_jprb,1.3702e-03_jprb/)
kao( :, 5, 7, 3) = (/&
&2.2207e-04_jprb,1.1485e-03_jprb,1.6379e-03_jprb,2.0236e-03_jprb,2.3292e-03_jprb,2.5319e-03_jprb,&
&2.5452e-03_jprb,2.2618e-03_jprb,1.4884e-03_jprb,1.5202e-03_jprb/)
kao( :, 1, 8, 3) = (/&
&3.3024e-05_jprb,3.4530e-04_jprb,5.3688e-04_jprb,7.0115e-04_jprb,8.4229e-04_jprb,9.3889e-04_jprb,&
&9.6725e-04_jprb,9.1694e-04_jprb,9.1670e-04_jprb,1.0135e-03_jprb/)
kao( :, 2, 8, 3) = (/&
&4.8867e-05_jprb,4.2560e-04_jprb,6.5145e-04_jprb,8.3778e-04_jprb,9.9544e-04_jprb,1.1134e-03_jprb,&
&1.1345e-03_jprb,1.0538e-03_jprb,9.7113e-04_jprb,1.0857e-03_jprb/)
kao( :, 3, 8, 3) = (/&
&7.2825e-05_jprb,5.3471e-04_jprb,8.0022e-04_jprb,1.0181e-03_jprb,1.1967e-03_jprb,1.3302e-03_jprb,&
&1.3547e-03_jprb,1.2266e-03_jprb,1.0446e-03_jprb,1.1774e-03_jprb/)
kao( :, 4, 8, 3) = (/&
&1.0774e-04_jprb,6.7652e-04_jprb,9.9081e-04_jprb,1.2458e-03_jprb,1.4508e-03_jprb,1.5976e-03_jprb,&
&1.6199e-03_jprb,1.4510e-03_jprb,1.1389e-03_jprb,1.2913e-03_jprb/)
kao( :, 5, 8, 3) = (/&
&1.5712e-04_jprb,8.5893e-04_jprb,1.2330e-03_jprb,1.5318e-03_jprb,1.7648e-03_jprb,1.9188e-03_jprb,&
&1.9298e-03_jprb,1.7197e-03_jprb,1.1585e-03_jprb,1.4301e-03_jprb/)
kao( :, 1, 9, 3) = (/&
&2.2694e-05_jprb,2.5964e-04_jprb,4.0587e-04_jprb,5.3244e-04_jprb,6.4307e-04_jprb,7.1486e-04_jprb,&
&7.4240e-04_jprb,7.1164e-04_jprb,7.2273e-04_jprb,1.2493e-03_jprb/)
kao( :, 2, 9, 3) = (/&
&3.3403e-05_jprb,3.1851e-04_jprb,4.8826e-04_jprb,6.2982e-04_jprb,7.5282e-04_jprb,8.4067e-04_jprb,&
&8.5777e-04_jprb,8.1055e-04_jprb,7.8048e-04_jprb,1.3812e-03_jprb/)
kao( :, 3, 9, 3) = (/&
&5.0028e-05_jprb,3.9826e-04_jprb,5.9931e-04_jprb,7.6424e-04_jprb,9.0031e-04_jprb,1.0018e-03_jprb,&
&1.0201e-03_jprb,9.3771e-04_jprb,8.2897e-04_jprb,1.5248e-03_jprb/)
kao( :, 4, 9, 3) = (/&
&7.4767e-05_jprb,5.0392e-04_jprb,7.4141e-04_jprb,9.3676e-04_jprb,1.0930e-03_jprb,1.2050e-03_jprb,&
&1.2228e-03_jprb,1.0983e-03_jprb,9.0134e-04_jprb,1.6871e-03_jprb/)
kao( :, 5, 9, 3) = (/&
&1.1035e-04_jprb,6.4097e-04_jprb,9.2434e-04_jprb,1.1532e-03_jprb,1.3334e-03_jprb,1.4526e-03_jprb,&
&1.4614e-03_jprb,1.3054e-03_jprb,9.1810e-04_jprb,1.8727e-03_jprb/)
kao( :, 1,10, 3) = (/&
&1.6131e-05_jprb,1.9889e-04_jprb,3.1275e-04_jprb,4.1228e-04_jprb,4.9839e-04_jprb,5.5623e-04_jprb,&
&5.8253e-04_jprb,5.6343e-04_jprb,5.6050e-04_jprb,1.5889e-03_jprb/)
kao( :, 2,10, 3) = (/&
&2.3548e-05_jprb,2.4279e-04_jprb,3.7289e-04_jprb,4.8222e-04_jprb,5.7912e-04_jprb,6.4486e-04_jprb,&
&6.6265e-04_jprb,6.3391e-04_jprb,6.2287e-04_jprb,1.8970e-03_jprb/)
kao( :, 3,10, 3) = (/&
&3.5345e-05_jprb,3.0213e-04_jprb,4.5662e-04_jprb,5.8302e-04_jprb,6.8872e-04_jprb,7.6652e-04_jprb,&
&7.8037e-04_jprb,7.2531e-04_jprb,6.6020e-04_jprb,2.2611e-03_jprb/)
kao( :, 4,10, 3) = (/&
&5.3207e-05_jprb,3.8181e-04_jprb,5.6403e-04_jprb,7.1428e-04_jprb,8.3596e-04_jprb,9.2165e-04_jprb,&
&9.3562e-04_jprb,8.4502e-04_jprb,7.1249e-04_jprb,2.6676e-03_jprb/)
kao( :, 5,10, 3) = (/&
&7.9349e-05_jprb,4.8668e-04_jprb,7.0365e-04_jprb,8.7954e-04_jprb,1.0204e-03_jprb,1.1145e-03_jprb,&
&1.1232e-03_jprb,1.0045e-03_jprb,7.7476e-04_jprb,3.1110e-03_jprb/)
kao( :, 1,11, 3) = (/&
&1.3601e-05_jprb,1.6644e-04_jprb,2.6059e-04_jprb,3.4190e-04_jprb,4.1323e-04_jprb,4.6098e-04_jprb,&
&4.8236e-04_jprb,4.6602e-04_jprb,4.6408e-04_jprb,1.7060e-03_jprb/)
kao( :, 2,11, 3) = (/&
&2.0015e-05_jprb,2.0390e-04_jprb,3.1274e-04_jprb,4.0248e-04_jprb,4.8157e-04_jprb,5.3553e-04_jprb,&
&5.5000e-04_jprb,5.2592e-04_jprb,5.1327e-04_jprb,2.0930e-03_jprb/)
kao( :, 3,11, 3) = (/&
&3.0229e-05_jprb,2.5493e-04_jprb,3.8325e-04_jprb,4.8838e-04_jprb,5.7590e-04_jprb,6.3868e-04_jprb,&
&6.4952e-04_jprb,6.0329e-04_jprb,5.4354e-04_jprb,2.5341e-03_jprb/)
kao( :, 4,11, 3) = (/&
&4.5728e-05_jprb,3.2357e-04_jprb,4.7513e-04_jprb,5.9900e-04_jprb,7.0032e-04_jprb,7.7052e-04_jprb,&
&7.8160e-04_jprb,7.0364e-04_jprb,5.8867e-04_jprb,3.0110e-03_jprb/)
kao( :, 5,11, 3) = (/&
&6.8471e-05_jprb,4.1453e-04_jprb,5.9518e-04_jprb,7.3943e-04_jprb,8.5586e-04_jprb,9.3243e-04_jprb,&
&9.3985e-04_jprb,8.3888e-04_jprb,6.4004e-04_jprb,3.5144e-03_jprb/)
kao( :, 1,12, 3) = (/&
&1.1390e-05_jprb,1.3855e-04_jprb,2.1705e-04_jprb,2.8356e-04_jprb,3.4198e-04_jprb,3.8125e-04_jprb,&
&3.9897e-04_jprb,3.8701e-04_jprb,3.8428e-04_jprb,1.6202e-03_jprb/)
kao( :, 2,12, 3) = (/&
&1.6895e-05_jprb,1.7033e-04_jprb,2.6132e-04_jprb,3.3574e-04_jprb,4.0033e-04_jprb,4.4440e-04_jprb,&
&4.5547e-04_jprb,4.3453e-04_jprb,4.1795e-04_jprb,2.0056e-03_jprb/)
kao( :, 3,12, 3) = (/&
&2.5697e-05_jprb,2.1399e-04_jprb,3.2079e-04_jprb,4.0794e-04_jprb,4.8080e-04_jprb,5.3172e-04_jprb,&
&5.4015e-04_jprb,5.0131e-04_jprb,4.5062e-04_jprb,2.4356e-03_jprb/)
kao( :, 4,12, 3) = (/&
&3.9098e-05_jprb,2.7301e-04_jprb,3.9923e-04_jprb,5.0137e-04_jprb,5.8487e-04_jprb,6.4185e-04_jprb,&
&6.5190e-04_jprb,5.8598e-04_jprb,4.9100e-04_jprb,2.8992e-03_jprb/)
kao( :, 5,12, 3) = (/&
&5.8880e-05_jprb,3.5135e-04_jprb,5.0233e-04_jprb,6.2054e-04_jprb,7.1596e-04_jprb,7.7742e-04_jprb,&
&7.8406e-04_jprb,7.0089e-04_jprb,5.2975e-04_jprb,3.3853e-03_jprb/)
kao( :, 1,13, 3) = (/&
&9.3589e-06_jprb,1.1404e-04_jprb,1.7929e-04_jprb,2.3424e-04_jprb,2.8177e-04_jprb,3.1382e-04_jprb,&
&3.2887e-04_jprb,3.1939e-04_jprb,3.1782e-04_jprb,1.3712e-03_jprb/)
kao( :, 2,13, 3) = (/&
&1.3997e-05_jprb,1.4070e-04_jprb,2.1638e-04_jprb,2.7822e-04_jprb,3.3131e-04_jprb,3.6740e-04_jprb,&
&3.7618e-04_jprb,3.5875e-04_jprb,3.4257e-04_jprb,1.6948e-03_jprb/)
kao( :, 3,13, 3) = (/&
&2.1467e-05_jprb,1.7760e-04_jprb,2.6657e-04_jprb,3.3860e-04_jprb,3.9863e-04_jprb,4.4020e-04_jprb,&
&4.4774e-04_jprb,4.1503e-04_jprb,3.7387e-04_jprb,2.0555e-03_jprb/)
kao( :, 4,13, 3) = (/&
&3.2939e-05_jprb,2.2791e-04_jprb,3.3320e-04_jprb,4.1728e-04_jprb,4.8576e-04_jprb,5.3169e-04_jprb,&
&5.4072e-04_jprb,4.8718e-04_jprb,4.1358e-04_jprb,2.4418e-03_jprb/)
kao( :, 5,13, 3) = (/&
&5.0038e-05_jprb,2.9443e-04_jprb,4.2080e-04_jprb,5.1807e-04_jprb,5.9619e-04_jprb,6.4532e-04_jprb,&
&6.5035e-04_jprb,5.8360e-04_jprb,4.3228e-04_jprb,2.8426e-03_jprb/)
kao( :, 1, 1, 4) = (/&
&1.3959e-03_jprb,5.9922e-03_jprb,8.2316e-03_jprb,9.8059e-03_jprb,1.0613e-02_jprb,1.0620e-02_jprb,&
&1.0007e-02_jprb,8.7254e-03_jprb,5.9465e-03_jprb,5.3438e-03_jprb/)
kao( :, 2, 1, 4) = (/&
&1.8497e-03_jprb,7.5460e-03_jprb,1.0203e-02_jprb,1.1955e-02_jprb,1.2786e-02_jprb,1.2712e-02_jprb,&
&1.1856e-02_jprb,1.0291e-02_jprb,7.1447e-03_jprb,6.1713e-03_jprb/)
kao( :, 3, 1, 4) = (/&
&2.4455e-03_jprb,9.3977e-03_jprb,1.2548e-02_jprb,1.4434e-02_jprb,1.5252e-02_jprb,1.5095e-02_jprb,&
&1.3989e-02_jprb,1.2066e-02_jprb,8.3510e-03_jprb,7.1167e-03_jprb/)
kao( :, 4, 1, 4) = (/&
&3.2093e-03_jprb,1.1523e-02_jprb,1.5232e-02_jprb,1.7235e-02_jprb,1.8051e-02_jprb,1.7818e-02_jprb,&
&1.6407e-02_jprb,1.4008e-02_jprb,9.7059e-03_jprb,8.2637e-03_jprb/)
kao( :, 5, 1, 4) = (/&
&4.1640e-03_jprb,1.3947e-02_jprb,1.8138e-02_jprb,2.0353e-02_jprb,2.1133e-02_jprb,2.0847e-02_jprb,&
&1.9064e-02_jprb,1.6182e-02_jprb,1.1218e-02_jprb,9.5219e-03_jprb/)
kao( :, 1, 2, 4) = (/&
&1.1784e-03_jprb,4.8259e-03_jprb,6.5824e-03_jprb,7.8076e-03_jprb,8.3997e-03_jprb,8.4013e-03_jprb,&
&7.9589e-03_jprb,6.9035e-03_jprb,4.7972e-03_jprb,4.1536e-03_jprb/)
kao( :, 2, 2, 4) = (/&
&1.5660e-03_jprb,6.0867e-03_jprb,8.2146e-03_jprb,9.5892e-03_jprb,1.0197e-02_jprb,1.0118e-02_jprb,&
&9.4816e-03_jprb,8.1710e-03_jprb,5.7311e-03_jprb,4.7856e-03_jprb/)
kao( :, 3, 2, 4) = (/&
&2.0771e-03_jprb,7.6156e-03_jprb,1.0151e-02_jprb,1.1655e-02_jprb,1.2244e-02_jprb,1.2103e-02_jprb,&
&1.1249e-02_jprb,9.6217e-03_jprb,6.7053e-03_jprb,5.5268e-03_jprb/)
kao( :, 4, 2, 4) = (/&
&2.7371e-03_jprb,9.3986e-03_jprb,1.2362e-02_jprb,1.3996e-02_jprb,1.4573e-02_jprb,1.4394e-02_jprb,&
&1.3273e-02_jprb,1.1249e-02_jprb,7.8082e-03_jprb,6.4145e-03_jprb/)
kao( :, 5, 2, 4) = (/&
&3.5707e-03_jprb,1.1441e-02_jprb,1.4782e-02_jprb,1.6569e-02_jprb,1.7185e-02_jprb,1.6953e-02_jprb,&
&1.5517e-02_jprb,1.3078e-02_jprb,9.0555e-03_jprb,7.4094e-03_jprb/)
kao( :, 1, 3, 4) = (/&
&9.3612e-04_jprb,3.7181e-03_jprb,5.0390e-03_jprb,5.9502e-03_jprb,6.3679e-03_jprb,6.3786e-03_jprb,&
&6.0698e-03_jprb,5.2727e-03_jprb,3.7120e-03_jprb,3.2201e-03_jprb/)
kao( :, 2, 3, 4) = (/&
&1.2490e-03_jprb,4.6957e-03_jprb,6.3176e-03_jprb,7.3745e-03_jprb,7.7966e-03_jprb,7.7361e-03_jprb,&
&7.2751e-03_jprb,6.2746e-03_jprb,4.4490e-03_jprb,3.6844e-03_jprb/)
kao( :, 3, 3, 4) = (/&
&1.6672e-03_jprb,5.9017e-03_jprb,7.8487e-03_jprb,9.0223e-03_jprb,9.4573e-03_jprb,9.3283e-03_jprb,&
&8.6995e-03_jprb,7.4301e-03_jprb,5.1895e-03_jprb,4.2405e-03_jprb/)
kao( :, 4, 3, 4) = (/&
&2.2134e-03_jprb,7.3371e-03_jprb,9.6281e-03_jprb,1.0911e-02_jprb,1.1346e-02_jprb,1.1187e-02_jprb,&
&1.0343e-02_jprb,8.7520e-03_jprb,6.1061e-03_jprb,4.8883e-03_jprb/)
kao( :, 5, 3, 4) = (/&
&2.9080e-03_jprb,9.0078e-03_jprb,1.1596e-02_jprb,1.2990e-02_jprb,1.3474e-02_jprb,1.3306e-02_jprb,&
&1.2200e-02_jprb,1.0250e-02_jprb,7.0746e-03_jprb,5.6394e-03_jprb/)
kao( :, 1, 4, 4) = (/&
&7.2899e-04_jprb,2.8358e-03_jprb,3.8166e-03_jprb,4.4649e-03_jprb,4.7605e-03_jprb,4.7776e-03_jprb,&
&4.5645e-03_jprb,3.9905e-03_jprb,2.8172e-03_jprb,2.5259e-03_jprb/)
kao( :, 2, 4, 4) = (/&
&9.7562e-04_jprb,3.5858e-03_jprb,4.8000e-03_jprb,5.5643e-03_jprb,5.8729e-03_jprb,5.8345e-03_jprb,&
&5.5106e-03_jprb,4.7660e-03_jprb,3.3369e-03_jprb,2.8747e-03_jprb/)
kao( :, 3, 4, 4) = (/&
&1.3110e-03_jprb,4.5252e-03_jprb,5.9861e-03_jprb,6.8654e-03_jprb,7.1912e-03_jprb,7.0898e-03_jprb,&
&6.6257e-03_jprb,5.6788e-03_jprb,3.9467e-03_jprb,3.3017e-03_jprb/)
kao( :, 4, 4, 4) = (/&
&1.7535e-03_jprb,5.6592e-03_jprb,7.3895e-03_jprb,8.3600e-03_jprb,8.7028e-03_jprb,8.5726e-03_jprb,&
&7.9544e-03_jprb,6.7413e-03_jprb,4.7023e-03_jprb,3.7920e-03_jprb/)
kao( :, 5, 4, 4) = (/&
&2.3234e-03_jprb,7.0001e-03_jprb,8.9795e-03_jprb,1.0033e-02_jprb,1.0407e-02_jprb,1.0269e-02_jprb,&
&9.4690e-03_jprb,7.9455e-03_jprb,5.4450e-03_jprb,4.3729e-03_jprb/)
kao( :, 1, 5, 4) = (/&
&5.6650e-04_jprb,2.1549e-03_jprb,2.8964e-03_jprb,3.3619e-03_jprb,3.5664e-03_jprb,3.5841e-03_jprb,&
&3.4323e-03_jprb,3.0201e-03_jprb,2.2575e-03_jprb,2.0547e-03_jprb/)
kao( :, 2, 5, 4) = (/&
&7.5923e-04_jprb,2.7449e-03_jprb,3.6494e-03_jprb,4.2010e-03_jprb,4.4180e-03_jprb,4.3953e-03_jprb,&
&4.1675e-03_jprb,3.6219e-03_jprb,2.5473e-03_jprb,2.3046e-03_jprb/)
kao( :, 3, 5, 4) = (/&
&1.0253e-03_jprb,3.4834e-03_jprb,4.5686e-03_jprb,5.2069e-03_jprb,5.4481e-03_jprb,5.3758e-03_jprb,&
&5.0408e-03_jprb,4.3359e-03_jprb,3.0162e-03_jprb,2.6195e-03_jprb/)
kao( :, 4, 5, 4) = (/&
&1.3801e-03_jprb,4.3804e-03_jprb,5.6725e-03_jprb,6.3841e-03_jprb,6.6485e-03_jprb,6.5457e-03_jprb,&
&6.0914e-03_jprb,5.1828e-03_jprb,3.5636e-03_jprb,2.9971e-03_jprb/)
kao( :, 5, 5, 4) = (/&
&1.8434e-03_jprb,5.4391e-03_jprb,6.9434e-03_jprb,7.7307e-03_jprb,8.0143e-03_jprb,7.8901e-03_jprb,&
&7.3072e-03_jprb,6.1548e-03_jprb,4.1784e-03_jprb,3.4508e-03_jprb/)
kao( :, 1, 6, 4) = (/&
&4.3479e-04_jprb,1.6105e-03_jprb,2.1624e-03_jprb,2.5048e-03_jprb,2.6629e-03_jprb,2.6833e-03_jprb,&
&2.5738e-03_jprb,2.2737e-03_jprb,1.8606e-03_jprb,1.7234e-03_jprb/)
kao( :, 2, 6, 4) = (/&
&5.8233e-04_jprb,2.0650e-03_jprb,2.7444e-03_jprb,3.1464e-03_jprb,3.3112e-03_jprb,3.2967e-03_jprb,&
&3.1292e-03_jprb,2.7330e-03_jprb,1.9142e-03_jprb,1.9183e-03_jprb/)
kao( :, 3, 6, 4) = (/&
&7.8843e-04_jprb,2.6457e-03_jprb,3.4646e-03_jprb,3.9221e-03_jprb,4.0954e-03_jprb,4.0443e-03_jprb,&
&3.8065e-03_jprb,3.2872e-03_jprb,2.2472e-03_jprb,2.1603e-03_jprb/)
kao( :, 4, 6, 4) = (/&
&1.0676e-03_jprb,3.3599e-03_jprb,4.3294e-03_jprb,4.8406e-03_jprb,5.0306e-03_jprb,4.9525e-03_jprb,&
&4.6235e-03_jprb,3.9530e-03_jprb,2.6778e-03_jprb,2.4636e-03_jprb/)
kao( :, 5, 6, 4) = (/&
&1.4360e-03_jprb,4.2028e-03_jprb,5.3355e-03_jprb,5.9075e-03_jprb,6.1148e-03_jprb,6.0070e-03_jprb,&
&5.5779e-03_jprb,4.7305e-03_jprb,3.1938e-03_jprb,2.8201e-03_jprb/)
kao( :, 1, 7, 4) = (/&
&3.3066e-04_jprb,1.1921e-03_jprb,1.5997e-03_jprb,1.8508e-03_jprb,1.9750e-03_jprb,2.0065e-03_jprb,&
&1.9362e-03_jprb,1.7121e-03_jprb,1.5102e-03_jprb,1.4755e-03_jprb/)
kao( :, 2, 7, 4) = (/&
&4.4251e-04_jprb,1.5399e-03_jprb,2.0431e-03_jprb,2.3386e-03_jprb,2.4693e-03_jprb,2.4731e-03_jprb,&
&2.3559e-03_jprb,2.0619e-03_jprb,1.5167e-03_jprb,1.6278e-03_jprb/)
kao( :, 3, 7, 4) = (/&
&5.9954e-04_jprb,1.9895e-03_jprb,2.5996e-03_jprb,2.9389e-03_jprb,3.0769e-03_jprb,3.0449e-03_jprb,&
&2.8696e-03_jprb,2.4854e-03_jprb,1.7100e-03_jprb,1.8261e-03_jprb/)
kao( :, 4, 7, 4) = (/&
&8.1539e-04_jprb,2.5548e-03_jprb,3.2831e-03_jprb,3.6604e-03_jprb,3.8004e-03_jprb,3.7406e-03_jprb,&
&3.5004e-03_jprb,3.0009e-03_jprb,2.0185e-03_jprb,2.0723e-03_jprb/)
kao( :, 5, 7, 4) = (/&
&1.1035e-03_jprb,3.2299e-03_jprb,4.0851e-03_jprb,4.5054e-03_jprb,4.6506e-03_jprb,4.5636e-03_jprb,&
&4.2458e-03_jprb,3.6170e-03_jprb,2.4150e-03_jprb,2.3689e-03_jprb/)
kao( :, 1, 8, 4) = (/&
&2.4824e-04_jprb,8.7576e-04_jprb,1.1750e-03_jprb,1.3620e-03_jprb,1.4591e-03_jprb,1.4944e-03_jprb,&
&1.4530e-03_jprb,1.3016e-03_jprb,1.2362e-03_jprb,1.3815e-03_jprb/)
kao( :, 2, 8, 4) = (/&
&3.3230e-04_jprb,1.1390e-03_jprb,1.5103e-03_jprb,1.7306e-03_jprb,1.8323e-03_jprb,1.8454e-03_jprb,&
&1.7715e-03_jprb,1.5588e-03_jprb,1.2567e-03_jprb,1.5241e-03_jprb/)
kao( :, 3, 8, 4) = (/&
&4.5036e-04_jprb,1.4833e-03_jprb,1.9397e-03_jprb,2.1911e-03_jprb,2.2984e-03_jprb,2.2843e-03_jprb,&
&2.1644e-03_jprb,1.8786e-03_jprb,1.3010e-03_jprb,1.7047e-03_jprb/)
kao( :, 4, 8, 4) = (/&
&6.1425e-04_jprb,1.9258e-03_jprb,2.4736e-03_jprb,2.7526e-03_jprb,2.8618e-03_jprb,2.8208e-03_jprb,&
&2.6474e-03_jprb,2.2738e-03_jprb,1.4977e-03_jprb,1.9231e-03_jprb/)
kao( :, 5, 8, 4) = (/&
&8.3579e-04_jprb,2.4677e-03_jprb,3.1100e-03_jprb,3.4209e-03_jprb,3.5321e-03_jprb,3.4664e-03_jprb,&
&3.2302e-03_jprb,2.7529e-03_jprb,1.8211e-03_jprb,2.1802e-03_jprb/)
kao( :, 1, 9, 4) = (/&
&1.8648e-04_jprb,6.4213e-04_jprb,8.6248e-04_jprb,1.0018e-03_jprb,1.0759e-03_jprb,1.1114e-03_jprb,&
&1.0893e-03_jprb,9.9064e-04_jprb,9.8753e-04_jprb,1.8775e-03_jprb/)
kao( :, 2, 9, 4) = (/&
&2.4931e-04_jprb,8.3843e-04_jprb,1.1135e-03_jprb,1.2777e-03_jprb,1.3549e-03_jprb,1.3735e-03_jprb,&
&1.3267e-03_jprb,1.1784e-03_jprb,1.0225e-03_jprb,2.0725e-03_jprb/)
kao( :, 3, 9, 4) = (/&
&3.3739e-04_jprb,1.0997e-03_jprb,1.4388e-03_jprb,1.6275e-03_jprb,1.7095e-03_jprb,1.7064e-03_jprb,&
&1.6276e-03_jprb,1.4244e-03_jprb,1.0196e-03_jprb,2.3196e-03_jprb/)
kao( :, 4, 9, 4) = (/&
&4.6000e-04_jprb,1.4414e-03_jprb,1.8531e-03_jprb,2.0634e-03_jprb,2.1453e-03_jprb,2.1162e-03_jprb,&
&1.9970e-03_jprb,1.7248e-03_jprb,1.1677e-03_jprb,2.6078e-03_jprb/)
kao( :, 5, 9, 4) = (/&
&6.2819e-04_jprb,1.8702e-03_jprb,2.3574e-03_jprb,2.5903e-03_jprb,2.6704e-03_jprb,2.6214e-03_jprb,&
&2.4477e-03_jprb,2.0914e-03_jprb,1.3608e-03_jprb,2.9294e-03_jprb/)
kao( :, 1,10, 4) = (/&
&1.4307e-04_jprb,4.7989e-04_jprb,6.4527e-04_jprb,7.5154e-04_jprb,8.0960e-04_jprb,8.4090e-04_jprb,&
&8.3086e-04_jprb,7.6874e-04_jprb,8.2863e-04_jprb,3.6347e-03_jprb/)
kao( :, 2,10, 4) = (/&
&1.9105e-04_jprb,6.2858e-04_jprb,8.3500e-04_jprb,9.5991e-04_jprb,1.0185e-03_jprb,1.0393e-03_jprb,&
&1.0095e-03_jprb,9.0118e-04_jprb,8.3114e-04_jprb,4.2294e-03_jprb/)
kao( :, 3,10, 4) = (/&
&2.5819e-04_jprb,8.2975e-04_jprb,1.0848e-03_jprb,1.2290e-03_jprb,1.2908e-03_jprb,1.2943e-03_jprb,&
&1.2407e-03_jprb,1.0947e-03_jprb,8.4507e-04_jprb,4.7942e-03_jprb/)
kao( :, 4,10, 4) = (/&
&3.5175e-04_jprb,1.0966e-03_jprb,1.4090e-03_jprb,1.5695e-03_jprb,1.6301e-03_jprb,1.6125e-03_jprb,&
&1.5271e-03_jprb,1.3244e-03_jprb,8.9574e-04_jprb,5.3326e-03_jprb/)
kao( :, 5,10, 4) = (/&
&4.8140e-04_jprb,1.4355e-03_jprb,1.8096e-03_jprb,1.9894e-03_jprb,2.0475e-03_jprb,2.0080e-03_jprb,&
&1.8768e-03_jprb,1.6118e-03_jprb,1.0323e-03_jprb,5.8712e-03_jprb/)
kao( :, 1,11, 4) = (/&
&1.2480e-04_jprb,4.0651e-04_jprb,5.4317e-04_jprb,6.3057e-04_jprb,6.7711e-04_jprb,7.0124e-04_jprb,&
&6.9230e-04_jprb,6.3637e-04_jprb,6.7480e-04_jprb,4.4748e-03_jprb/)
kao( :, 2,11, 4) = (/&
&1.6789e-04_jprb,5.3657e-04_jprb,7.0675e-04_jprb,8.0798e-04_jprb,8.5575e-04_jprb,8.7116e-04_jprb,&
&8.4422e-04_jprb,7.5306e-04_jprb,6.8219e-04_jprb,5.2484e-03_jprb/)
kao( :, 3,11, 4) = (/&
&2.2748e-04_jprb,7.1324e-04_jprb,9.2430e-04_jprb,1.0391e-03_jprb,1.0880e-03_jprb,1.0885e-03_jprb,&
&1.0414e-03_jprb,9.1761e-04_jprb,6.9310e-04_jprb,5.9997e-03_jprb/)
kao( :, 4,11, 4) = (/&
&3.1100e-04_jprb,9.4662e-04_jprb,1.2062e-03_jprb,1.3345e-03_jprb,1.3806e-03_jprb,1.3616e-03_jprb,&
&1.2842e-03_jprb,1.1132e-03_jprb,7.5183e-04_jprb,6.7275e-03_jprb/)
kao( :, 5,11, 4) = (/&
&4.2632e-04_jprb,1.2375e-03_jprb,1.5507e-03_jprb,1.6996e-03_jprb,1.7428e-03_jprb,1.7046e-03_jprb,&
&1.5835e-03_jprb,1.3580e-03_jprb,8.6852e-04_jprb,7.4572e-03_jprb/)
kao( :, 1,12, 4) = (/&
&1.0738e-04_jprb,3.4370e-04_jprb,4.5561e-04_jprb,5.2712e-04_jprb,5.6512e-04_jprb,5.8418e-04_jprb,&
&5.7608e-04_jprb,5.2824e-04_jprb,5.5584e-04_jprb,4.5229e-03_jprb/)
kao( :, 2,12, 4) = (/&
&1.4509e-04_jprb,4.5719e-04_jprb,5.9628e-04_jprb,6.7809e-04_jprb,7.1697e-04_jprb,7.2848e-04_jprb,&
&7.0565e-04_jprb,6.2997e-04_jprb,5.6436e-04_jprb,5.3156e-03_jprb/)
kao( :, 3,12, 4) = (/&
&1.9783e-04_jprb,6.1167e-04_jprb,7.8481e-04_jprb,8.7764e-04_jprb,9.1476e-04_jprb,9.1298e-04_jprb,&
&8.7252e-04_jprb,7.6652e-04_jprb,5.7011e-04_jprb,6.0757e-03_jprb/)
kao( :, 4,12, 4) = (/&
&2.7192e-04_jprb,8.1173e-04_jprb,1.0265e-03_jprb,1.1333e-03_jprb,1.1680e-03_jprb,1.1490e-03_jprb,&
&1.0784e-03_jprb,9.3361e-04_jprb,6.2718e-04_jprb,6.8113e-03_jprb/)
kao( :, 5,12, 4) = (/&
&3.7397e-04_jprb,1.0598e-03_jprb,1.3197e-03_jprb,1.4449e-03_jprb,1.4799e-03_jprb,1.4465e-03_jprb,&
&1.3362e-03_jprb,1.1407e-03_jprb,7.2415e-04_jprb,7.5425e-03_jprb/)
kao( :, 1,13, 4) = (/&
&8.9292e-05_jprb,2.8719e-04_jprb,3.7864e-04_jprb,4.3694e-04_jprb,4.6878e-04_jprb,4.8461e-04_jprb,&
&4.7788e-04_jprb,4.3842e-04_jprb,4.5719e-04_jprb,3.8416e-03_jprb/)
kao( :, 2,13, 4) = (/&
&1.2149e-04_jprb,3.8537e-04_jprb,4.9918e-04_jprb,5.6557e-04_jprb,5.9698e-04_jprb,6.0549e-04_jprb,&
&5.8708e-04_jprb,5.2472e-04_jprb,4.6787e-04_jprb,4.4931e-03_jprb/)
kao( :, 3,13, 4) = (/&
&1.6719e-04_jprb,5.1756e-04_jprb,6.6044e-04_jprb,7.3666e-04_jprb,7.6591e-04_jprb,7.6260e-04_jprb,&
&7.2753e-04_jprb,6.3867e-04_jprb,4.6954e-04_jprb,5.0961e-03_jprb/)
kao( :, 4,13, 4) = (/&
&2.3161e-04_jprb,6.8759e-04_jprb,8.6435e-04_jprb,9.5388e-04_jprb,9.8295e-04_jprb,9.6568e-04_jprb,&
&9.0300e-04_jprb,7.7979e-04_jprb,5.2227e-04_jprb,5.6855e-03_jprb/)
kao( :, 5,13, 4) = (/&
&3.2057e-04_jprb,8.9923e-04_jprb,1.1130e-03_jprb,1.2171e-03_jprb,1.2465e-03_jprb,1.2193e-03_jprb,&
&1.1245e-03_jprb,9.5521e-04_jprb,6.0646e-04_jprb,6.2875e-03_jprb/)
kao( :, 1, 1, 5) = (/&
&7.8581e-03_jprb,1.6359e-02_jprb,1.8747e-02_jprb,1.9104e-02_jprb,1.8493e-02_jprb,1.7453e-02_jprb,&
&1.6124e-02_jprb,1.4436e-02_jprb,9.9634e-03_jprb,9.0266e-03_jprb/)
kao( :, 2, 1, 5) = (/&
&1.0248e-02_jprb,1.9930e-02_jprb,2.2543e-02_jprb,2.2901e-02_jprb,2.2187e-02_jprb,2.0954e-02_jprb,&
&1.9379e-02_jprb,1.7194e-02_jprb,1.1961e-02_jprb,1.0706e-02_jprb/)
kao( :, 3, 1, 5) = (/&
&1.3096e-02_jprb,2.3888e-02_jprb,2.6739e-02_jprb,2.7195e-02_jprb,2.6433e-02_jprb,2.4936e-02_jprb,&
&2.3046e-02_jprb,2.0295e-02_jprb,1.4106e-02_jprb,1.2544e-02_jprb/)
kao( :, 4, 1, 5) = (/&
&1.6338e-02_jprb,2.8329e-02_jprb,3.1500e-02_jprb,3.2047e-02_jprb,3.1151e-02_jprb,2.9395e-02_jprb,&
&2.7258e-02_jprb,2.3909e-02_jprb,1.6479e-02_jprb,1.4541e-02_jprb/)
kao( :, 5, 1, 5) = (/&
&1.9905e-02_jprb,3.3267e-02_jprb,3.6925e-02_jprb,3.7523e-02_jprb,3.6460e-02_jprb,3.4480e-02_jprb,&
&3.1939e-02_jprb,2.7924e-02_jprb,1.9096e-02_jprb,1.6820e-02_jprb/)
kao( :, 1, 2, 5) = (/&
&6.5000e-03_jprb,1.3210e-02_jprb,1.5017e-02_jprb,1.5338e-02_jprb,1.4894e-02_jprb,1.4046e-02_jprb,&
&1.2886e-02_jprb,1.1485e-02_jprb,7.8396e-03_jprb,6.9835e-03_jprb/)
kao( :, 2, 2, 5) = (/&
&8.5060e-03_jprb,1.6246e-02_jprb,1.8196e-02_jprb,1.8546e-02_jprb,1.7999e-02_jprb,1.6962e-02_jprb,&
&1.5570e-02_jprb,1.3759e-02_jprb,9.5004e-03_jprb,8.2524e-03_jprb/)
kao( :, 3, 2, 5) = (/&
&1.0895e-02_jprb,1.9629e-02_jprb,2.1801e-02_jprb,2.2202e-02_jprb,2.1571e-02_jprb,2.0287e-02_jprb,&
&1.8619e-02_jprb,1.6336e-02_jprb,1.1311e-02_jprb,9.6763e-03_jprb/)
kao( :, 4, 2, 5) = (/&
&1.3634e-02_jprb,2.3467e-02_jprb,2.5938e-02_jprb,2.6385e-02_jprb,2.5626e-02_jprb,2.4039e-02_jprb,&
&2.2108e-02_jprb,1.9320e-02_jprb,1.3277e-02_jprb,1.1254e-02_jprb/)
kao( :, 5, 2, 5) = (/&
&1.6643e-02_jprb,2.7789e-02_jprb,3.0666e-02_jprb,3.1149e-02_jprb,3.0178e-02_jprb,2.8317e-02_jprb,&
&2.6023e-02_jprb,2.2644e-02_jprb,1.5438e-02_jprb,1.3058e-02_jprb/)
kao( :, 1, 3, 5) = (/&
&5.1068e-03_jprb,1.0155e-02_jprb,1.1485e-02_jprb,1.1770e-02_jprb,1.1484e-02_jprb,1.0823e-02_jprb,&
&9.8623e-03_jprb,8.7594e-03_jprb,5.9958e-03_jprb,5.2611e-03_jprb/)
kao( :, 2, 3, 5) = (/&
&6.6835e-03_jprb,1.2640e-02_jprb,1.4084e-02_jprb,1.4382e-02_jprb,1.4023e-02_jprb,1.3192e-02_jprb,&
&1.2012e-02_jprb,1.0560e-02_jprb,7.2917e-03_jprb,6.1864e-03_jprb/)
kao( :, 3, 3, 5) = (/&
&8.6033e-03_jprb,1.5444e-02_jprb,1.7069e-02_jprb,1.7437e-02_jprb,1.6940e-02_jprb,1.5900e-02_jprb,&
&1.4464e-02_jprb,1.2619e-02_jprb,8.8116e-03_jprb,7.2531e-03_jprb/)
kao( :, 4, 3, 5) = (/&
&1.0832e-02_jprb,1.8665e-02_jprb,2.0521e-02_jprb,2.0939e-02_jprb,2.0314e-02_jprb,1.9000e-02_jprb,&
&1.7289e-02_jprb,1.5015e-02_jprb,1.0355e-02_jprb,8.4725e-03_jprb/)
kao( :, 5, 3, 5) = (/&
&1.3328e-02_jprb,2.2307e-02_jprb,2.4508e-02_jprb,2.4967e-02_jprb,2.4135e-02_jprb,2.2494e-02_jprb,&
&2.0482e-02_jprb,1.7714e-02_jprb,1.2161e-02_jprb,9.8543e-03_jprb/)
kao( :, 1, 4, 5) = (/&
&3.9695e-03_jprb,7.6818e-03_jprb,8.6331e-03_jprb,8.8728e-03_jprb,8.6847e-03_jprb,8.1743e-03_jprb,&
&7.4171e-03_jprb,6.5733e-03_jprb,4.6756e-03_jprb,4.0395e-03_jprb/)
kao( :, 2, 4, 5) = (/&
&5.1871e-03_jprb,9.6669e-03_jprb,1.0730e-02_jprb,1.0984e-02_jprb,1.0727e-02_jprb,1.0079e-02_jprb,&
&9.1130e-03_jprb,7.9640e-03_jprb,5.5230e-03_jprb,4.7457e-03_jprb/)
kao( :, 3, 4, 5) = (/&
&6.6872e-03_jprb,1.1936e-02_jprb,1.3150e-02_jprb,1.3447e-02_jprb,1.3090e-02_jprb,1.2266e-02_jprb,&
&1.1082e-02_jprb,9.5819e-03_jprb,6.7239e-03_jprb,5.5582e-03_jprb/)
kao( :, 4, 4, 5) = (/&
&8.4686e-03_jprb,1.4558e-02_jprb,1.5982e-02_jprb,1.6346e-02_jprb,1.5841e-02_jprb,1.4783e-02_jprb,&
&1.3331e-02_jprb,1.1473e-02_jprb,7.9455e-03_jprb,6.5009e-03_jprb/)
kao( :, 5, 4, 5) = (/&
&1.0530e-02_jprb,1.7532e-02_jprb,1.9245e-02_jprb,1.9697e-02_jprb,1.9021e-02_jprb,1.7663e-02_jprb,&
&1.5910e-02_jprb,1.3642e-02_jprb,9.4173e-03_jprb,7.5638e-03_jprb/)
kao( :, 1, 5, 5) = (/&
&3.1180e-03_jprb,5.8209e-03_jprb,6.4854e-03_jprb,6.6644e-03_jprb,6.5380e-03_jprb,6.1410e-03_jprb,&
&5.5609e-03_jprb,4.9182e-03_jprb,3.5969e-03_jprb,3.1582e-03_jprb/)
kao( :, 2, 5, 5) = (/&
&4.0549e-03_jprb,7.3757e-03_jprb,8.1520e-03_jprb,8.3497e-03_jprb,8.1550e-03_jprb,7.6434e-03_jprb,&
&6.8934e-03_jprb,5.9840e-03_jprb,4.1290e-03_jprb,3.6940e-03_jprb/)
kao( :, 3, 5, 5) = (/&
&5.2180e-03_jprb,9.1787e-03_jprb,1.0116e-02_jprb,1.0335e-02_jprb,1.0048e-02_jprb,9.4058e-03_jprb,&
&8.4592e-03_jprb,7.2447e-03_jprb,5.0478e-03_jprb,4.3308e-03_jprb/)
kao( :, 4, 5, 5) = (/&
&6.6347e-03_jprb,1.1285e-02_jprb,1.2392e-02_jprb,1.2680e-02_jprb,1.2274e-02_jprb,1.1447e-02_jprb,&
&1.0271e-02_jprb,8.7310e-03_jprb,6.0849e-03_jprb,5.0691e-03_jprb/)
kao( :, 5, 5, 5) = (/&
&8.3131e-03_jprb,1.3706e-02_jprb,1.5023e-02_jprb,1.5394e-02_jprb,1.4880e-02_jprb,1.3810e-02_jprb,&
&1.2359e-02_jprb,1.0459e-02_jprb,7.2538e-03_jprb,5.9083e-03_jprb/)
kao( :, 1, 6, 5) = (/&
&2.4113e-03_jprb,4.4035e-03_jprb,4.8584e-03_jprb,4.9702e-03_jprb,4.8652e-03_jprb,4.5631e-03_jprb,&
&4.1282e-03_jprb,3.6475e-03_jprb,2.6495e-03_jprb,2.6380e-03_jprb/)
kao( :, 2, 6, 5) = (/&
&3.1417e-03_jprb,5.6041e-03_jprb,6.1552e-03_jprb,6.2788e-03_jprb,6.1209e-03_jprb,5.7279e-03_jprb,&
&5.1621e-03_jprb,4.4647e-03_jprb,3.1333e-03_jprb,3.0490e-03_jprb/)
kao( :, 3, 6, 5) = (/&
&4.0523e-03_jprb,7.0107e-03_jprb,7.6974e-03_jprb,7.8556e-03_jprb,7.6249e-03_jprb,7.1228e-03_jprb,&
&6.3982e-03_jprb,5.4412e-03_jprb,3.7354e-03_jprb,3.5351e-03_jprb/)
kao( :, 4, 6, 5) = (/&
&5.1735e-03_jprb,8.6714e-03_jprb,9.5046e-03_jprb,9.7062e-03_jprb,9.3937e-03_jprb,8.7514e-03_jprb,&
&7.8427e-03_jprb,6.5998e-03_jprb,4.6231e-03_jprb,4.0931e-03_jprb/)
kao( :, 5, 6, 5) = (/&
&6.5266e-03_jprb,1.0615e-02_jprb,1.1603e-02_jprb,1.1862e-02_jprb,1.1470e-02_jprb,1.0665e-02_jprb,&
&9.5307e-03_jprb,7.9589e-03_jprb,5.4908e-03_jprb,4.7354e-03_jprb/)
kao( :, 1, 7, 5) = (/&
&1.8313e-03_jprb,3.2981e-03_jprb,3.6334e-03_jprb,3.7067e-03_jprb,3.6201e-03_jprb,3.3912e-03_jprb,&
&3.0679e-03_jprb,2.7066e-03_jprb,2.0241e-03_jprb,2.2554e-03_jprb/)
kao( :, 2, 7, 5) = (/&
&2.3976e-03_jprb,4.2444e-03_jprb,4.6442e-03_jprb,4.7217e-03_jprb,4.5915e-03_jprb,4.2847e-03_jprb,&
&3.8546e-03_jprb,3.3328e-03_jprb,2.4081e-03_jprb,2.5954e-03_jprb/)
kao( :, 3, 7, 5) = (/&
&3.1184e-03_jprb,5.3559e-03_jprb,5.8460e-03_jprb,5.9451e-03_jprb,5.7583e-03_jprb,5.3717e-03_jprb,&
&4.8180e-03_jprb,4.0888e-03_jprb,2.7879e-03_jprb,3.0032e-03_jprb/)
kao( :, 4, 7, 5) = (/&
&4.0216e-03_jprb,6.6605e-03_jprb,7.2700e-03_jprb,7.4007e-03_jprb,7.1549e-03_jprb,6.6561e-03_jprb,&
&5.9599e-03_jprb,4.9929e-03_jprb,3.4384e-03_jprb,3.4860e-03_jprb/)
kao( :, 5, 7, 5) = (/&
&5.1206e-03_jprb,8.2127e-03_jprb,8.9364e-03_jprb,9.0944e-03_jprb,8.7960e-03_jprb,8.1717e-03_jprb,&
&7.3059e-03_jprb,6.0651e-03_jprb,4.1362e-03_jprb,4.0383e-03_jprb/)
kao( :, 1, 8, 5) = (/&
&1.3678e-03_jprb,2.4344e-03_jprb,2.6771e-03_jprb,2.7314e-03_jprb,2.6764e-03_jprb,2.5199e-03_jprb,&
&2.2892e-03_jprb,2.0146e-03_jprb,1.5158e-03_jprb,2.0717e-03_jprb/)
kao( :, 2, 8, 5) = (/&
&1.7986e-03_jprb,3.1721e-03_jprb,3.4698e-03_jprb,3.5325e-03_jprb,3.4383e-03_jprb,3.2125e-03_jprb,&
&2.8853e-03_jprb,2.4940e-03_jprb,1.7790e-03_jprb,2.3653e-03_jprb/)
kao( :, 3, 8, 5) = (/&
&2.3644e-03_jprb,4.0587e-03_jprb,4.4194e-03_jprb,4.4912e-03_jprb,4.3505e-03_jprb,4.0574e-03_jprb,&
&3.6294e-03_jprb,3.0753e-03_jprb,2.0908e-03_jprb,2.7075e-03_jprb/)
kao( :, 4, 8, 5) = (/&
&3.0885e-03_jprb,5.1052e-03_jprb,5.5511e-03_jprb,5.6359e-03_jprb,5.4460e-03_jprb,5.0617e-03_jprb,&
&4.5202e-03_jprb,3.7834e-03_jprb,2.5293e-03_jprb,3.1178e-03_jprb/)
kao( :, 5, 8, 5) = (/&
&3.9843e-03_jprb,6.3521e-03_jprb,6.8780e-03_jprb,6.9729e-03_jprb,6.7374e-03_jprb,6.2484e-03_jprb,&
&5.5746e-03_jprb,4.6304e-03_jprb,3.1216e-03_jprb,3.5944e-03_jprb/)
kao( :, 1, 9, 5) = (/&
&1.0180e-03_jprb,1.7808e-03_jprb,1.9513e-03_jprb,1.9917e-03_jprb,1.9571e-03_jprb,1.8568e-03_jprb,&
&1.7034e-03_jprb,1.5143e-03_jprb,1.2324e-03_jprb,2.9566e-03_jprb/)
kao( :, 2, 9, 5) = (/&
&1.3409e-03_jprb,2.3491e-03_jprb,2.5644e-03_jprb,2.6103e-03_jprb,2.5515e-03_jprb,2.3969e-03_jprb,&
&2.1596e-03_jprb,1.8679e-03_jprb,1.3632e-03_jprb,3.3317e-03_jprb/)
kao( :, 3, 9, 5) = (/&
&1.7770e-03_jprb,3.0450e-03_jprb,3.3094e-03_jprb,3.3641e-03_jprb,3.2693e-03_jprb,3.0590e-03_jprb,&
&2.7358e-03_jprb,2.3083e-03_jprb,1.6204e-03_jprb,3.7464e-03_jprb/)
kao( :, 4, 9, 5) = (/&
&2.3520e-03_jprb,3.8805e-03_jprb,4.2090e-03_jprb,4.2722e-03_jprb,4.1362e-03_jprb,3.8521e-03_jprb,&
&3.4256e-03_jprb,2.8568e-03_jprb,1.8732e-03_jprb,4.2061e-03_jprb/)
kao( :, 5, 9, 5) = (/&
&3.0729e-03_jprb,4.8855e-03_jprb,5.2770e-03_jprb,5.3379e-03_jprb,5.1589e-03_jprb,4.7790e-03_jprb,&
&4.2478e-03_jprb,3.5241e-03_jprb,2.3400e-03_jprb,4.7374e-03_jprb/)
kao( :, 1,10, 5) = (/&
&7.7253e-04_jprb,1.3219e-03_jprb,1.4421e-03_jprb,1.4740e-03_jprb,1.4539e-03_jprb,1.3876e-03_jprb,&
&1.2853e-03_jprb,1.1567e-03_jprb,1.0022e-03_jprb,6.8847e-03_jprb/)
kao( :, 2,10, 5) = (/&
&1.0173e-03_jprb,1.7625e-03_jprb,1.9200e-03_jprb,1.9559e-03_jprb,1.9175e-03_jprb,1.8087e-03_jprb,&
&1.6367e-03_jprb,1.4242e-03_jprb,1.0394e-03_jprb,7.5328e-03_jprb/)
kao( :, 3,10, 5) = (/&
&1.3564e-03_jprb,2.3122e-03_jprb,2.5093e-03_jprb,2.5497e-03_jprb,2.4848e-03_jprb,2.3312e-03_jprb,&
&2.0902e-03_jprb,1.7668e-03_jprb,1.2230e-03_jprb,8.3126e-03_jprb/)
kao( :, 4,10, 5) = (/&
&1.8134e-03_jprb,2.9832e-03_jprb,3.2264e-03_jprb,3.2755e-03_jprb,3.1788e-03_jprb,2.9672e-03_jprb,&
&2.6373e-03_jprb,2.1956e-03_jprb,1.4206e-03_jprb,9.1949e-03_jprb/)
kao( :, 5,10, 5) = (/&
&2.3982e-03_jprb,3.8024e-03_jprb,4.0921e-03_jprb,4.1370e-03_jprb,4.0025e-03_jprb,3.7132e-03_jprb,&
&3.2913e-03_jprb,2.7187e-03_jprb,1.7437e-03_jprb,1.0174e-02_jprb/)
kao( :, 1,11, 5) = (/&
&6.6311e-04_jprb,1.1233e-03_jprb,1.2219e-03_jprb,1.2485e-03_jprb,1.2298e-03_jprb,1.1731e-03_jprb,&
&1.0818e-03_jprb,9.6812e-04_jprb,8.2277e-04_jprb,9.1151e-03_jprb/)
kao( :, 2,11, 5) = (/&
&8.7961e-04_jprb,1.5044e-03_jprb,1.6329e-03_jprb,1.6631e-03_jprb,1.6279e-03_jprb,1.5346e-03_jprb,&
&1.3878e-03_jprb,1.1990e-03_jprb,8.6844e-04_jprb,9.9636e-03_jprb/)
kao( :, 3,11, 5) = (/&
&1.1836e-03_jprb,1.9811e-03_jprb,2.1444e-03_jprb,2.1783e-03_jprb,2.1211e-03_jprb,1.9859e-03_jprb,&
&1.7780e-03_jprb,1.4952e-03_jprb,1.0190e-03_jprb,1.0941e-02_jprb/)
kao( :, 4,11, 5) = (/&
&1.5905e-03_jprb,2.5713e-03_jprb,2.7694e-03_jprb,2.8087e-03_jprb,2.7235e-03_jprb,2.5357e-03_jprb,&
&2.2512e-03_jprb,1.8676e-03_jprb,1.1718e-03_jprb,1.2060e-02_jprb/)
kao( :, 5,11, 5) = (/&
&2.1118e-03_jprb,3.3009e-03_jprb,3.5298e-03_jprb,3.5548e-03_jprb,3.4369e-03_jprb,3.1821e-03_jprb,&
&2.8194e-03_jprb,2.3141e-03_jprb,1.4442e-03_jprb,1.3285e-02_jprb/)
kao( :, 1,12, 5) = (/&
&5.6477e-04_jprb,9.5054e-04_jprb,1.0327e-03_jprb,1.0546e-03_jprb,1.0374e-03_jprb,9.8870e-04_jprb,&
&9.0992e-04_jprb,8.0701e-04_jprb,6.7076e-04_jprb,9.4607e-03_jprb/)
kao( :, 2,12, 5) = (/&
&7.5728e-04_jprb,1.2785e-03_jprb,1.3875e-03_jprb,1.4113e-03_jprb,1.3782e-03_jprb,1.2986e-03_jprb,&
&1.1731e-03_jprb,1.0074e-03_jprb,7.2589e-04_jprb,1.0331e-02_jprb/)
kao( :, 3,12, 5) = (/&
&1.0261e-03_jprb,1.6921e-03_jprb,1.8295e-03_jprb,1.8570e-03_jprb,1.8051e-03_jprb,1.6888e-03_jprb,&
&1.5086e-03_jprb,1.2626e-03_jprb,8.4339e-04_jprb,1.1368e-02_jprb/)
kao( :, 4,12, 5) = (/&
&1.3869e-03_jprb,2.2095e-03_jprb,2.3736e-03_jprb,2.4008e-03_jprb,2.3247e-03_jprb,2.1615e-03_jprb,&
&1.9167e-03_jprb,1.5821e-03_jprb,9.6809e-04_jprb,1.2545e-02_jprb/)
kao( :, 5,12, 5) = (/&
&1.8434e-03_jprb,2.8588e-03_jprb,3.0424e-03_jprb,3.0524e-03_jprb,2.9442e-03_jprb,2.7194e-03_jprb,&
&2.4068e-03_jprb,1.9656e-03_jprb,1.2057e-03_jprb,1.3846e-02_jprb/)
kao( :, 1,13, 5) = (/&
&4.7278e-04_jprb,7.9552e-04_jprb,8.6502e-04_jprb,8.8337e-04_jprb,8.6881e-04_jprb,8.2802e-04_jprb,&
&7.6164e-04_jprb,6.7146e-04_jprb,5.4706e-04_jprb,7.8912e-03_jprb/)
kao( :, 2,13, 5) = (/&
&6.4178e-04_jprb,1.0759e-03_jprb,1.1686e-03_jprb,1.1883e-03_jprb,1.1601e-03_jprb,1.0935e-03_jprb,&
&9.8725e-04_jprb,8.4294e-04_jprb,6.0294e-04_jprb,8.6805e-03_jprb/)
kao( :, 3,13, 5) = (/&
&8.7757e-04_jprb,1.4325e-03_jprb,1.5486e-03_jprb,1.5698e-03_jprb,1.5267e-03_jprb,1.4283e-03_jprb,&
&1.2744e-03_jprb,1.0604e-03_jprb,6.9497e-04_jprb,9.6337e-03_jprb/)
kao( :, 4,13, 5) = (/&
&1.1912e-03_jprb,1.8857e-03_jprb,2.0225e-03_jprb,2.0388e-03_jprb,1.9725e-03_jprb,1.8334e-03_jprb,&
&1.6247e-03_jprb,1.3326e-03_jprb,8.0026e-04_jprb,1.0694e-02_jprb/)
kao( :, 5,13, 5) = (/&
&1.5846e-03_jprb,2.4545e-03_jprb,2.6070e-03_jprb,2.6093e-03_jprb,2.5111e-03_jprb,2.3151e-03_jprb,&
&2.0441e-03_jprb,1.6606e-03_jprb,1.0091e-03_jprb,1.1828e-02_jprb/)
kao( :, 1, 1, 6) = (/&
&2.7778e-02_jprb,3.3405e-02_jprb,3.5267e-02_jprb,3.6006e-02_jprb,3.5898e-02_jprb,3.4553e-02_jprb,&
&3.1100e-02_jprb,2.5014e-02_jprb,1.8094e-02_jprb,1.6794e-02_jprb/)
kao( :, 2, 1, 6) = (/&
&3.3366e-02_jprb,4.0235e-02_jprb,4.2608e-02_jprb,4.3370e-02_jprb,4.2914e-02_jprb,4.1247e-02_jprb,&
&3.7064e-02_jprb,2.9946e-02_jprb,2.1940e-02_jprb,2.0091e-02_jprb/)
kao( :, 3, 1, 6) = (/&
&3.9476e-02_jprb,4.7919e-02_jprb,5.0670e-02_jprb,5.1321e-02_jprb,5.0664e-02_jprb,4.8610e-02_jprb,&
&4.3793e-02_jprb,3.5486e-02_jprb,2.6228e-02_jprb,2.3816e-02_jprb/)
kao( :, 4, 1, 6) = (/&
&4.6165e-02_jprb,5.6406e-02_jprb,5.9353e-02_jprb,6.0117e-02_jprb,5.9468e-02_jprb,5.6918e-02_jprb,&
&5.1329e-02_jprb,4.1643e-02_jprb,3.1155e-02_jprb,2.8224e-02_jprb/)
kao( :, 5, 1, 6) = (/&
&5.3590e-02_jprb,6.5676e-02_jprb,6.8956e-02_jprb,6.9882e-02_jprb,6.9299e-02_jprb,6.6139e-02_jprb,&
&5.9733e-02_jprb,4.8638e-02_jprb,3.6701e-02_jprb,3.3219e-02_jprb/)
kao( :, 1, 2, 6) = (/&
&2.2559e-02_jprb,2.7654e-02_jprb,2.9015e-02_jprb,2.9337e-02_jprb,2.9078e-02_jprb,2.7937e-02_jprb,&
&2.5189e-02_jprb,2.0404e-02_jprb,1.4144e-02_jprb,1.2909e-02_jprb/)
kao( :, 2, 2, 6) = (/&
&2.7361e-02_jprb,3.3523e-02_jprb,3.5340e-02_jprb,3.5540e-02_jprb,3.5037e-02_jprb,3.3575e-02_jprb,&
&3.0234e-02_jprb,2.4558e-02_jprb,1.7358e-02_jprb,1.5458e-02_jprb/)
kao( :, 3, 2, 6) = (/&
&3.2702e-02_jprb,4.0222e-02_jprb,4.2266e-02_jprb,4.2370e-02_jprb,4.1690e-02_jprb,3.9887e-02_jprb,&
&3.5945e-02_jprb,2.9242e-02_jprb,2.0872e-02_jprb,1.8389e-02_jprb/)
kao( :, 4, 2, 6) = (/&
&3.8698e-02_jprb,4.7703e-02_jprb,4.9874e-02_jprb,5.0037e-02_jprb,4.9234e-02_jprb,4.7000e-02_jprb,&
&4.2355e-02_jprb,3.4462e-02_jprb,2.4936e-02_jprb,2.1874e-02_jprb/)
kao( :, 5, 2, 6) = (/&
&4.5406e-02_jprb,5.5864e-02_jprb,5.8250e-02_jprb,5.8611e-02_jprb,5.7701e-02_jprb,5.4940e-02_jprb,&
&4.9541e-02_jprb,4.0425e-02_jprb,2.9498e-02_jprb,2.5824e-02_jprb/)
kao( :, 1, 3, 6) = (/&
&1.7492e-02_jprb,2.1787e-02_jprb,2.2652e-02_jprb,2.2750e-02_jprb,2.2453e-02_jprb,2.1534e-02_jprb,&
&1.9495e-02_jprb,1.5819e-02_jprb,1.0602e-02_jprb,9.5365e-03_jprb/)
kao( :, 2, 3, 6) = (/&
&2.1519e-02_jprb,2.6731e-02_jprb,2.7902e-02_jprb,2.7864e-02_jprb,2.7355e-02_jprb,2.6151e-02_jprb,&
&2.3624e-02_jprb,1.9184e-02_jprb,1.3144e-02_jprb,1.1427e-02_jprb/)
kao( :, 3, 3, 6) = (/&
&2.6104e-02_jprb,3.2391e-02_jprb,3.3736e-02_jprb,3.3545e-02_jprb,3.2846e-02_jprb,3.1374e-02_jprb,&
&2.8297e-02_jprb,2.2996e-02_jprb,1.5964e-02_jprb,1.3632e-02_jprb/)
kao( :, 4, 3, 6) = (/&
&3.1327e-02_jprb,3.8767e-02_jprb,4.0227e-02_jprb,3.9993e-02_jprb,3.9114e-02_jprb,3.7263e-02_jprb,&
&3.3562e-02_jprb,2.7293e-02_jprb,1.9234e-02_jprb,1.6283e-02_jprb/)
kao( :, 5, 3, 6) = (/&
&3.7182e-02_jprb,4.5791e-02_jprb,4.7452e-02_jprb,4.7270e-02_jprb,4.6211e-02_jprb,4.3900e-02_jprb,&
&3.9502e-02_jprb,3.2188e-02_jprb,2.2900e-02_jprb,1.9326e-02_jprb/)
kao( :, 1, 4, 6) = (/&
&1.3291e-02_jprb,1.6678e-02_jprb,1.7275e-02_jprb,1.7278e-02_jprb,1.6993e-02_jprb,1.6286e-02_jprb,&
&1.4822e-02_jprb,1.1990e-02_jprb,7.7579e-03_jprb,7.1488e-03_jprb/)
kao( :, 2, 4, 6) = (/&
&1.6630e-02_jprb,2.0815e-02_jprb,2.1568e-02_jprb,2.1440e-02_jprb,2.0973e-02_jprb,2.0006e-02_jprb,&
&1.8126e-02_jprb,1.4654e-02_jprb,9.8329e-03_jprb,8.5205e-03_jprb/)
kao( :, 3, 4, 6) = (/&
&2.0444e-02_jprb,2.5553e-02_jprb,2.6397e-02_jprb,2.6132e-02_jprb,2.5471e-02_jprb,2.4223e-02_jprb,&
&2.1910e-02_jprb,1.7722e-02_jprb,1.2155e-02_jprb,1.0148e-02_jprb/)
kao( :, 4, 4, 6) = (/&
&2.4887e-02_jprb,3.0959e-02_jprb,3.1847e-02_jprb,3.1469e-02_jprb,3.0641e-02_jprb,2.9051e-02_jprb,&
&2.6190e-02_jprb,2.1212e-02_jprb,1.4767e-02_jprb,1.2110e-02_jprb/)
kao( :, 5, 4, 6) = (/&
&2.9912e-02_jprb,3.7010e-02_jprb,3.8031e-02_jprb,3.7546e-02_jprb,3.6509e-02_jprb,3.4523e-02_jprb,&
&3.1009e-02_jprb,2.5164e-02_jprb,1.7705e-02_jprb,1.4427e-02_jprb/)
kao( :, 1, 5, 6) = (/&
&1.0066e-02_jprb,1.2668e-02_jprb,1.3071e-02_jprb,1.3029e-02_jprb,1.2765e-02_jprb,1.2217e-02_jprb,&
&1.1148e-02_jprb,9.0021e-03_jprb,5.7587e-03_jprb,5.4209e-03_jprb/)
kao( :, 2, 5, 6) = (/&
&1.2757e-02_jprb,1.6015e-02_jprb,1.6544e-02_jprb,1.6397e-02_jprb,1.5990e-02_jprb,1.5234e-02_jprb,&
&1.3789e-02_jprb,1.1105e-02_jprb,7.3967e-03_jprb,6.5046e-03_jprb/)
kao( :, 3, 5, 6) = (/&
&1.5901e-02_jprb,1.9963e-02_jprb,2.0508e-02_jprb,2.0254e-02_jprb,1.9682e-02_jprb,1.8644e-02_jprb,&
&1.6821e-02_jprb,1.3552e-02_jprb,9.2356e-03_jprb,7.7811e-03_jprb/)
kao( :, 4, 5, 6) = (/&
&1.9596e-02_jprb,2.4499e-02_jprb,2.5082e-02_jprb,2.4696e-02_jprb,2.3936e-02_jprb,2.2580e-02_jprb,&
&2.0269e-02_jprb,1.6344e-02_jprb,1.1321e-02_jprb,9.3163e-03_jprb/)
kao( :, 5, 5, 6) = (/&
&2.3830e-02_jprb,2.9650e-02_jprb,3.0334e-02_jprb,2.9811e-02_jprb,2.8792e-02_jprb,2.7070e-02_jprb,&
&2.4166e-02_jprb,1.9536e-02_jprb,1.3665e-02_jprb,1.1111e-02_jprb/)
kao( :, 1, 6, 6) = (/&
&7.6087e-03_jprb,9.4951e-03_jprb,9.7649e-03_jprb,9.6943e-03_jprb,9.4691e-03_jprb,9.0311e-03_jprb,&
&8.2249e-03_jprb,6.6528e-03_jprb,4.3378e-03_jprb,4.2627e-03_jprb/)
kao( :, 2, 6, 6) = (/&
&9.7029e-03_jprb,1.2146e-02_jprb,1.2495e-02_jprb,1.2394e-02_jprb,1.2047e-02_jprb,1.1438e-02_jprb,&
&1.0329e-02_jprb,8.2946e-03_jprb,5.4267e-03_jprb,5.0549e-03_jprb/)
kao( :, 3, 6, 6) = (/&
&1.2241e-02_jprb,1.5353e-02_jprb,1.5729e-02_jprb,1.5534e-02_jprb,1.5039e-02_jprb,1.4188e-02_jprb,&
&1.2727e-02_jprb,1.0218e-02_jprb,6.8803e-03_jprb,6.0223e-03_jprb/)
kao( :, 4, 6, 6) = (/&
&1.5222e-02_jprb,1.9088e-02_jprb,1.9504e-02_jprb,1.9213e-02_jprb,1.8550e-02_jprb,1.7379e-02_jprb,&
&1.5483e-02_jprb,1.2434e-02_jprb,8.5170e-03_jprb,7.2084e-03_jprb/)
kao( :, 5, 6, 6) = (/&
&1.8677e-02_jprb,2.3384e-02_jprb,2.3892e-02_jprb,2.3510e-02_jprb,2.2581e-02_jprb,2.1034e-02_jprb,&
&1.8630e-02_jprb,1.4980e-02_jprb,1.0415e-02_jprb,8.6059e-03_jprb/)
kao( :, 1, 7, 6) = (/&
&5.7827e-03_jprb,7.1313e-03_jprb,7.2802e-03_jprb,7.2045e-03_jprb,6.9954e-03_jprb,6.6269e-03_jprb,&
&6.0097e-03_jprb,4.8731e-03_jprb,3.1264e-03_jprb,3.7137e-03_jprb/)
kao( :, 2, 7, 6) = (/&
&7.4084e-03_jprb,9.1887e-03_jprb,9.4000e-03_jprb,9.3096e-03_jprb,9.0304e-03_jprb,8.5190e-03_jprb,&
&7.6733e-03_jprb,6.1525e-03_jprb,3.9263e-03_jprb,4.3944e-03_jprb/)
kao( :, 3, 7, 6) = (/&
&9.4040e-03_jprb,1.1717e-02_jprb,1.1976e-02_jprb,1.1835e-02_jprb,1.1434e-02_jprb,1.0726e-02_jprb,&
&9.5804e-03_jprb,7.6627e-03_jprb,5.0656e-03_jprb,5.1961e-03_jprb/)
kao( :, 4, 7, 6) = (/&
&1.1772e-02_jprb,1.4730e-02_jprb,1.5048e-02_jprb,1.4854e-02_jprb,1.4302e-02_jprb,1.3320e-02_jprb,&
&1.1779e-02_jprb,9.4074e-03_jprb,6.3725e-03_jprb,6.1249e-03_jprb/)
kao( :, 5, 7, 6) = (/&
&1.4533e-02_jprb,1.8234e-02_jprb,1.8652e-02_jprb,1.8417e-02_jprb,1.7654e-02_jprb,1.6319e-02_jprb,&
&1.4317e-02_jprb,1.1422e-02_jprb,7.8881e-03_jprb,7.1931e-03_jprb/)
kao( :, 1, 8, 6) = (/&
&4.3473e-03_jprb,5.3530e-03_jprb,5.4453e-03_jprb,5.3772e-03_jprb,5.1866e-03_jprb,4.8647e-03_jprb,&
&4.3808e-03_jprb,3.5559e-03_jprb,2.4173e-03_jprb,3.5108e-03_jprb/)
kao( :, 2, 8, 6) = (/&
&5.6534e-03_jprb,6.9608e-03_jprb,7.0942e-03_jprb,6.9933e-03_jprb,6.7489e-03_jprb,6.3330e-03_jprb,&
&5.6745e-03_jprb,4.5520e-03_jprb,2.9081e-03_jprb,4.1180e-03_jprb/)
kao( :, 3, 8, 6) = (/&
&7.2231e-03_jprb,8.9492e-03_jprb,9.1155e-03_jprb,8.9772e-03_jprb,8.6519e-03_jprb,8.0865e-03_jprb,&
&7.1842e-03_jprb,5.7298e-03_jprb,3.7126e-03_jprb,4.8510e-03_jprb/)
kao( :, 4, 8, 6) = (/&
&9.0980e-03_jprb,1.1325e-02_jprb,1.1554e-02_jprb,1.1402e-02_jprb,1.0960e-02_jprb,1.0182e-02_jprb,&
&8.9521e-03_jprb,7.1103e-03_jprb,4.7399e-03_jprb,5.6880e-03_jprb/)
kao( :, 5, 8, 6) = (/&
&1.1302e-02_jprb,1.4121e-02_jprb,1.4457e-02_jprb,1.4302e-02_jprb,1.3709e-02_jprb,1.2644e-02_jprb,&
&1.1007e-02_jprb,8.6993e-03_jprb,5.9281e-03_jprb,6.6436e-03_jprb/)
kao( :, 1, 9, 6) = (/&
&3.2166e-03_jprb,3.9635e-03_jprb,4.0421e-03_jprb,3.9936e-03_jprb,3.8441e-03_jprb,3.5923e-03_jprb,&
&3.2097e-03_jprb,2.5886e-03_jprb,1.7693e-03_jprb,5.0615e-03_jprb/)
kao( :, 2, 9, 6) = (/&
&4.2551e-03_jprb,5.2496e-03_jprb,5.3431e-03_jprb,5.2633e-03_jprb,5.0543e-03_jprb,4.7090e-03_jprb,&
&4.1979e-03_jprb,3.3556e-03_jprb,2.0811e-03_jprb,5.7517e-03_jprb/)
kao( :, 3, 9, 6) = (/&
&5.5178e-03_jprb,6.8310e-03_jprb,6.9481e-03_jprb,6.8181e-03_jprb,6.5340e-03_jprb,6.0733e-03_jprb,&
&5.3775e-03_jprb,4.2779e-03_jprb,2.6744e-03_jprb,6.5436e-03_jprb/)
kao( :, 4, 9, 6) = (/&
&7.0233e-03_jprb,8.7120e-03_jprb,8.8693e-03_jprb,8.7209e-03_jprb,8.3514e-03_jprb,7.7376e-03_jprb,&
&6.7992e-03_jprb,5.3653e-03_jprb,3.4836e-03_jprb,7.4458e-03_jprb/)
kao( :, 5, 9, 6) = (/&
&8.7908e-03_jprb,1.0935e-02_jprb,1.1156e-02_jprb,1.1011e-02_jprb,1.0551e-02_jprb,9.7377e-03_jprb,&
&8.4643e-03_jprb,6.6157e-03_jprb,4.4105e-03_jprb,8.4131e-03_jprb/)
kao( :, 1,10, 6) = (/&
&2.4036e-03_jprb,2.9626e-03_jprb,3.0270e-03_jprb,2.9891e-03_jprb,2.8783e-03_jprb,2.6966e-03_jprb,&
&2.4167e-03_jprb,1.9384e-03_jprb,1.2950e-03_jprb,1.2580e-02_jprb/)
kao( :, 2,10, 6) = (/&
&3.2304e-03_jprb,3.9936e-03_jprb,4.0696e-03_jprb,4.0063e-03_jprb,3.8441e-03_jprb,3.5817e-03_jprb,&
&3.1841e-03_jprb,2.5258e-03_jprb,1.6318e-03_jprb,1.3867e-02_jprb/)
kao( :, 3,10, 6) = (/&
&4.2450e-03_jprb,5.2713e-03_jprb,5.3717e-03_jprb,5.2683e-03_jprb,5.0339e-03_jprb,4.6625e-03_jprb,&
&4.1091e-03_jprb,3.2509e-03_jprb,2.0065e-03_jprb,1.5204e-02_jprb/)
kao( :, 4,10, 6) = (/&
&5.4744e-03_jprb,6.8064e-03_jprb,6.9238e-03_jprb,6.7912e-03_jprb,6.4905e-03_jprb,5.9838e-03_jprb,&
&5.2439e-03_jprb,4.1188e-03_jprb,2.6002e-03_jprb,1.6652e-02_jprb/)
kao( :, 5,10, 6) = (/&
&6.9353e-03_jprb,8.6079e-03_jprb,8.7635e-03_jprb,8.6181e-03_jprb,8.2349e-03_jprb,7.5886e-03_jprb,&
&6.5994e-03_jprb,5.1192e-03_jprb,3.3239e-03_jprb,1.8251e-02_jprb/)
kao( :, 1,11, 6) = (/&
&2.0648e-03_jprb,2.5481e-03_jprb,2.6000e-03_jprb,2.5607e-03_jprb,2.4630e-03_jprb,2.3069e-03_jprb,&
&2.0692e-03_jprb,1.6562e-03_jprb,1.0860e-03_jprb,1.7049e-02_jprb/)
kao( :, 2,11, 6) = (/&
&2.7859e-03_jprb,3.4547e-03_jprb,3.5237e-03_jprb,3.4594e-03_jprb,3.3142e-03_jprb,3.0841e-03_jprb,&
&2.7345e-03_jprb,2.1584e-03_jprb,1.3341e-03_jprb,1.8747e-02_jprb/)
kao( :, 3,11, 6) = (/&
&3.6773e-03_jprb,4.5764e-03_jprb,4.6633e-03_jprb,4.5751e-03_jprb,4.3721e-03_jprb,4.0405e-03_jprb,&
&3.5419e-03_jprb,2.7771e-03_jprb,1.6730e-03_jprb,2.0460e-02_jprb/)
kao( :, 4,11, 6) = (/&
&4.7645e-03_jprb,5.9262e-03_jprb,6.0301e-03_jprb,5.9104e-03_jprb,5.6462e-03_jprb,5.2017e-03_jprb,&
&4.5306e-03_jprb,3.5163e-03_jprb,2.1775e-03_jprb,2.2225e-02_jprb/)
kao( :, 5,11, 6) = (/&
&6.0673e-03_jprb,7.5194e-03_jprb,7.6592e-03_jprb,7.5146e-03_jprb,7.1608e-03_jprb,6.5750e-03_jprb,&
&5.6954e-03_jprb,4.3877e-03_jprb,2.7878e-03_jprb,2.4112e-02_jprb/)
kao( :, 1,12, 6) = (/&
&1.7649e-03_jprb,2.1840e-03_jprb,2.2273e-03_jprb,2.1894e-03_jprb,2.1029e-03_jprb,1.9647e-03_jprb,&
&1.7570e-03_jprb,1.4092e-03_jprb,9.0612e-04_jprb,1.8116e-02_jprb/)
kao( :, 2,12, 6) = (/&
&2.3911e-03_jprb,2.9721e-03_jprb,3.0306e-03_jprb,2.9776e-03_jprb,2.8514e-03_jprb,2.6450e-03_jprb,&
&2.3351e-03_jprb,1.8424e-03_jprb,1.0968e-03_jprb,1.9929e-02_jprb/)
kao( :, 3,12, 6) = (/&
&3.1732e-03_jprb,3.9503e-03_jprb,4.0215e-03_jprb,3.9440e-03_jprb,3.7721e-03_jprb,3.4863e-03_jprb,&
&3.0465e-03_jprb,2.3738e-03_jprb,1.3931e-03_jprb,2.1707e-02_jprb/)
kao( :, 4,12, 6) = (/&
&4.1329e-03_jprb,5.1374e-03_jprb,5.2226e-03_jprb,5.1161e-03_jprb,4.8827e-03_jprb,4.4950e-03_jprb,&
&3.9019e-03_jprb,3.0106e-03_jprb,1.8199e-03_jprb,2.3542e-02_jprb/)
kao( :, 5,12, 6) = (/&
&5.2972e-03_jprb,6.5406e-03_jprb,6.6636e-03_jprb,6.5319e-03_jprb,6.2060e-03_jprb,5.6779e-03_jprb,&
&4.9006e-03_jprb,3.7653e-03_jprb,2.3340e-03_jprb,2.5478e-02_jprb/)
kao( :, 1,13, 6) = (/&
&1.4917e-03_jprb,1.8531e-03_jprb,1.8920e-03_jprb,1.8620e-03_jprb,1.7861e-03_jprb,1.6617e-03_jprb,&
&1.4788e-03_jprb,1.1873e-03_jprb,7.5550e-04_jprb,1.5444e-02_jprb/)
kao( :, 2,13, 6) = (/&
&2.0333e-03_jprb,2.5348e-03_jprb,2.5838e-03_jprb,2.5408e-03_jprb,2.4328e-03_jprb,2.2514e-03_jprb,&
&1.9783e-03_jprb,1.5611e-03_jprb,9.0187e-04_jprb,1.7015e-02_jprb/)
kao( :, 3,13, 6) = (/&
&2.7153e-03_jprb,3.3873e-03_jprb,3.4439e-03_jprb,3.3763e-03_jprb,3.2264e-03_jprb,2.9750e-03_jprb,&
&2.5932e-03_jprb,2.0239e-03_jprb,1.1597e-03_jprb,1.8564e-02_jprb/)
kao( :, 4,13, 6) = (/&
&3.5625e-03_jprb,4.4244e-03_jprb,4.4971e-03_jprb,4.4025e-03_jprb,4.1909e-03_jprb,3.8436e-03_jprb,&
&3.3277e-03_jprb,2.5719e-03_jprb,1.5159e-03_jprb,2.0176e-02_jprb/)
kao( :, 5,13, 6) = (/&
&4.5915e-03_jprb,5.6599e-03_jprb,5.7629e-03_jprb,5.6406e-03_jprb,5.3423e-03_jprb,4.8700e-03_jprb,&
&4.1907e-03_jprb,3.2171e-03_jprb,1.9497e-03_jprb,2.1913e-02_jprb/)


!     -----------------------------------------------------------------
RETURN
END SUBROUTINE rrtm_kgb3_a1