rrtm_kgb12_A1.F90

Go to the documentation of this file.

!OCL SCALAR
SUBROUTINE rrtm_kgb12_a1

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

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

#include "tsmbkind.h"

USE yoerrto12, ONLY : kao     ,selfrefo   ,fracrefao
USE yoerrta12, 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.1071e-04_jprb,1.7190e-03_jprb,2.1297e-03_jprb,2.2974e-03_jprb,2.3638e-03_jprb,2.3377e-03_jprb,&
&2.2182e-03_jprb,1.9598e-03_jprb,6.0644e-04_jprb/)
kao( :, 2, 1, 1) = (/&
&1.1961e-04_jprb,1.8523e-03_jprb,2.3139e-03_jprb,2.5087e-03_jprb,2.5832e-03_jprb,2.5507e-03_jprb,&
&2.4226e-03_jprb,2.1400e-03_jprb,6.6787e-04_jprb/)
kao( :, 3, 1, 1) = (/&
&1.2897e-04_jprb,1.9814e-03_jprb,2.4904e-03_jprb,2.7224e-03_jprb,2.7992e-03_jprb,2.7616e-03_jprb,&
&2.6285e-03_jprb,2.3297e-03_jprb,7.4226e-04_jprb/)
kao( :, 4, 1, 1) = (/&
&1.3900e-04_jprb,2.1069e-03_jprb,2.6619e-03_jprb,2.9256e-03_jprb,3.0085e-03_jprb,2.9760e-03_jprb,&
&2.8383e-03_jprb,2.5269e-03_jprb,8.2019e-04_jprb/)
kao( :, 5, 1, 1) = (/&
&1.4980e-04_jprb,2.2307e-03_jprb,2.8258e-03_jprb,3.1153e-03_jprb,3.2140e-03_jprb,3.1919e-03_jprb,&
&3.0529e-03_jprb,2.7312e-03_jprb,9.0306e-04_jprb/)
kao( :, 1, 2, 1) = (/&
&9.5033e-05_jprb,1.3952e-03_jprb,1.7345e-03_jprb,1.8757e-03_jprb,1.9301e-03_jprb,1.9088e-03_jprb,&
&1.8109e-03_jprb,1.6003e-03_jprb,4.8147e-04_jprb/)
kao( :, 2, 2, 1) = (/&
&1.0264e-04_jprb,1.5043e-03_jprb,1.8862e-03_jprb,2.0524e-03_jprb,2.1155e-03_jprb,2.0891e-03_jprb,&
&1.9828e-03_jprb,1.7518e-03_jprb,5.3179e-04_jprb/)
kao( :, 3, 2, 1) = (/&
&1.1088e-04_jprb,1.6110e-03_jprb,2.0326e-03_jprb,2.2296e-03_jprb,2.2969e-03_jprb,2.2672e-03_jprb,&
&2.1565e-03_jprb,1.9107e-03_jprb,5.9063e-04_jprb/)
kao( :, 4, 2, 1) = (/&
&1.1978e-04_jprb,1.7142e-03_jprb,2.1747e-03_jprb,2.4004e-03_jprb,2.4722e-03_jprb,2.4486e-03_jprb,&
&2.3338e-03_jprb,2.0762e-03_jprb,6.5252e-04_jprb/)
kao( :, 5, 2, 1) = (/&
&1.2917e-04_jprb,1.8168e-03_jprb,2.3124e-03_jprb,2.5589e-03_jprb,2.6465e-03_jprb,2.6314e-03_jprb,&
&2.5162e-03_jprb,2.2491e-03_jprb,7.1928e-04_jprb/)
kao( :, 1, 3, 1) = (/&
&7.9672e-05_jprb,1.1113e-03_jprb,1.3811e-03_jprb,1.4950e-03_jprb,1.5396e-03_jprb,1.5237e-03_jprb,&
&1.4450e-03_jprb,1.2772e-03_jprb,3.7750e-04_jprb/)
kao( :, 2, 3, 1) = (/&
&8.5835e-05_jprb,1.2012e-03_jprb,1.5072e-03_jprb,1.6412e-03_jprb,1.6938e-03_jprb,1.6765e-03_jprb,&
&1.5878e-03_jprb,1.4020e-03_jprb,4.1693e-04_jprb/)
kao( :, 3, 3, 1) = (/&
&9.2724e-05_jprb,1.2894e-03_jprb,1.6284e-03_jprb,1.7887e-03_jprb,1.8470e-03_jprb,1.8261e-03_jprb,&
&1.7328e-03_jprb,1.5335e-03_jprb,4.6226e-04_jprb/)
kao( :, 4, 3, 1) = (/&
&1.0021e-04_jprb,1.3753e-03_jprb,1.7467e-03_jprb,1.9334e-03_jprb,1.9945e-03_jprb,1.9763e-03_jprb,&
&1.8807e-03_jprb,1.6701e-03_jprb,5.1131e-04_jprb/)
kao( :, 5, 3, 1) = (/&
&1.0826e-04_jprb,1.4602e-03_jprb,1.8628e-03_jprb,2.0684e-03_jprb,2.1410e-03_jprb,2.1291e-03_jprb,&
&2.0333e-03_jprb,1.8146e-03_jprb,5.6359e-04_jprb/)
kao( :, 1, 4, 1) = (/&
&6.6541e-05_jprb,8.7720e-04_jprb,1.0880e-03_jprb,1.1789e-03_jprb,1.2150e-03_jprb,1.2040e-03_jprb,&
&1.1429e-03_jprb,1.0102e-03_jprb,3.0065e-04_jprb/)
kao( :, 2, 4, 1) = (/&
&7.1240e-05_jprb,9.5116e-04_jprb,1.1928e-03_jprb,1.2997e-03_jprb,1.3427e-03_jprb,1.3311e-03_jprb,&
&1.2602e-03_jprb,1.1118e-03_jprb,3.3112e-04_jprb/)
kao( :, 3, 4, 1) = (/&
&7.6627e-05_jprb,1.0246e-03_jprb,1.2929e-03_jprb,1.4214e-03_jprb,1.4711e-03_jprb,1.4559e-03_jprb,&
&1.3800e-03_jprb,1.2193e-03_jprb,3.6623e-04_jprb/)
kao( :, 4, 4, 1) = (/&
&8.2697e-05_jprb,1.0967e-03_jprb,1.3910e-03_jprb,1.5434e-03_jprb,1.5957e-03_jprb,1.5801e-03_jprb,&
&1.5019e-03_jprb,1.3318e-03_jprb,4.0479e-04_jprb/)
kao( :, 5, 4, 1) = (/&
&8.9353e-05_jprb,1.1675e-03_jprb,1.4884e-03_jprb,1.6584e-03_jprb,1.7180e-03_jprb,1.7064e-03_jprb,&
&1.6273e-03_jprb,1.4511e-03_jprb,4.4590e-04_jprb/)
kao( :, 1, 5, 1) = (/&
&5.5998e-05_jprb,6.8983e-04_jprb,8.5274e-04_jprb,9.2493e-04_jprb,9.5405e-04_jprb,9.4771e-04_jprb,&
&9.0156e-04_jprb,7.9782e-04_jprb,2.4473e-04_jprb/)
kao( :, 2, 5, 1) = (/&
&5.9569e-05_jprb,7.5053e-04_jprb,9.3935e-04_jprb,1.0247e-03_jprb,1.0592e-03_jprb,1.0509e-03_jprb,&
&9.9609e-04_jprb,8.7904e-04_jprb,2.6874e-04_jprb/)
kao( :, 3, 5, 1) = (/&
&6.3728e-05_jprb,8.1164e-04_jprb,1.0227e-03_jprb,1.1245e-03_jprb,1.1656e-03_jprb,1.1550e-03_jprb,&
&1.0939e-03_jprb,9.6668e-04_jprb,2.9631e-04_jprb/)
kao( :, 4, 5, 1) = (/&
&6.8493e-05_jprb,8.7191e-04_jprb,1.1043e-03_jprb,1.2254e-03_jprb,1.2701e-03_jprb,1.2575e-03_jprb,&
&1.1938e-03_jprb,1.0585e-03_jprb,3.2693e-04_jprb/)
kao( :, 5, 5, 1) = (/&
&7.3804e-05_jprb,9.3124e-04_jprb,1.1858e-03_jprb,1.3231e-03_jprb,1.3713e-03_jprb,1.3618e-03_jprb,&
&1.2967e-03_jprb,1.1556e-03_jprb,3.5959e-04_jprb/)
kao( :, 1, 6, 1) = (/&
&4.7433e-05_jprb,5.3952e-04_jprb,6.6302e-04_jprb,7.1941e-04_jprb,7.4278e-04_jprb,7.3993e-04_jprb,&
&7.0682e-04_jprb,6.2737e-04_jprb,2.0502e-04_jprb/)
kao( :, 2, 6, 1) = (/&
&5.0194e-05_jprb,5.8914e-04_jprb,7.3430e-04_jprb,8.0093e-04_jprb,8.2839e-04_jprb,8.2234e-04_jprb,&
&7.8161e-04_jprb,6.9096e-04_jprb,2.2413e-04_jprb/)
kao( :, 3, 6, 1) = (/&
&5.3412e-05_jprb,6.3967e-04_jprb,8.0393e-04_jprb,8.8246e-04_jprb,9.1533e-04_jprb,9.0872e-04_jprb,&
&8.6111e-04_jprb,7.6158e-04_jprb,2.4611e-04_jprb/)
kao( :, 4, 6, 1) = (/&
&5.7167e-05_jprb,6.9003e-04_jprb,8.7186e-04_jprb,9.6499e-04_jprb,1.0025e-03_jprb,9.9324e-04_jprb,&
&9.4228e-04_jprb,8.3524e-04_jprb,2.7084e-04_jprb/)
kao( :, 5, 6, 1) = (/&
&6.1369e-05_jprb,7.3991e-04_jprb,9.3979e-04_jprb,1.0473e-03_jprb,1.0862e-03_jprb,1.0788e-03_jprb,&
&1.0266e-03_jprb,9.1379e-04_jprb,2.9720e-04_jprb/)
kao( :, 1, 7, 1) = (/&
&4.0204e-05_jprb,4.2071e-04_jprb,5.1329e-04_jprb,5.5704e-04_jprb,5.7598e-04_jprb,5.7560e-04_jprb,&
&5.5294e-04_jprb,4.9311e-04_jprb,1.8038e-04_jprb/)
kao( :, 2, 7, 1) = (/&
&4.2409e-05_jprb,4.6139e-04_jprb,5.7116e-04_jprb,6.2323e-04_jprb,6.4451e-04_jprb,6.4096e-04_jprb,&
&6.1142e-04_jprb,5.4196e-04_jprb,1.9582e-04_jprb/)
kao( :, 3, 7, 1) = (/&
&4.4969e-05_jprb,5.0267e-04_jprb,6.2911e-04_jprb,6.8938e-04_jprb,7.1511e-04_jprb,7.1073e-04_jprb,&
&6.7548e-04_jprb,5.9790e-04_jprb,2.1379e-04_jprb/)
kao( :, 4, 7, 1) = (/&
&4.7926e-05_jprb,5.4471e-04_jprb,6.8586e-04_jprb,7.5653e-04_jprb,7.8682e-04_jprb,7.8099e-04_jprb,&
&7.4115e-04_jprb,6.5723e-04_jprb,2.3382e-04_jprb/)
kao( :, 5, 7, 1) = (/&
&5.1304e-05_jprb,5.8645e-04_jprb,7.4180e-04_jprb,8.2446e-04_jprb,8.5674e-04_jprb,8.5104e-04_jprb,&
&8.0968e-04_jprb,7.2033e-04_jprb,2.5569e-04_jprb/)
kao( :, 1, 8, 1) = (/&
&3.4404e-05_jprb,3.2742e-04_jprb,3.9628e-04_jprb,4.3044e-04_jprb,4.4582e-04_jprb,4.4750e-04_jprb,&
&4.3255e-04_jprb,3.8824e-04_jprb,1.6140e-04_jprb/)
kao( :, 2, 8, 1) = (/&
&3.6102e-05_jprb,3.6078e-04_jprb,4.4317e-04_jprb,4.8349e-04_jprb,5.0006e-04_jprb,4.9874e-04_jprb,&
&4.7786e-04_jprb,4.2529e-04_jprb,1.7382e-04_jprb/)
kao( :, 3, 8, 1) = (/&
&3.8232e-05_jprb,3.9477e-04_jprb,4.9069e-04_jprb,5.3712e-04_jprb,5.5703e-04_jprb,5.5425e-04_jprb,&
&5.2840e-04_jprb,4.6878e-04_jprb,1.8872e-04_jprb/)
kao( :, 4, 8, 1) = (/&
&4.0723e-05_jprb,4.2935e-04_jprb,5.3782e-04_jprb,5.9167e-04_jprb,6.1513e-04_jprb,6.1219e-04_jprb,&
&5.8195e-04_jprb,5.1637e-04_jprb,2.0568e-04_jprb/)
kao( :, 5, 8, 1) = (/&
&4.3533e-05_jprb,4.6405e-04_jprb,5.8430e-04_jprb,6.4724e-04_jprb,6.7394e-04_jprb,6.6968e-04_jprb,&
&6.3735e-04_jprb,5.6685e-04_jprb,2.2475e-04_jprb/)
kao( :, 1, 9, 1) = (/&
&2.9435e-05_jprb,2.5407e-04_jprb,3.0513e-04_jprb,3.3154e-04_jprb,3.4450e-04_jprb,3.4770e-04_jprb,&
&3.3823e-04_jprb,3.0612e-04_jprb,1.4904e-04_jprb/)
kao( :, 2, 9, 1) = (/&
&3.0832e-05_jprb,2.8156e-04_jprb,3.4307e-04_jprb,3.7395e-04_jprb,3.8707e-04_jprb,3.8740e-04_jprb,&
&3.7308e-04_jprb,3.3384e-04_jprb,1.6021e-04_jprb/)
kao( :, 3, 9, 1) = (/&
&3.2541e-05_jprb,3.0967e-04_jprb,3.8142e-04_jprb,4.1751e-04_jprb,4.3262e-04_jprb,4.3109e-04_jprb,&
&4.1241e-04_jprb,3.6699e-04_jprb,1.7304e-04_jprb/)
kao( :, 4, 9, 1) = (/&
&3.4598e-05_jprb,3.3815e-04_jprb,4.2037e-04_jprb,4.6162e-04_jprb,4.7971e-04_jprb,4.7802e-04_jprb,&
&4.5577e-04_jprb,4.0458e-04_jprb,1.8804e-04_jprb/)
kao( :, 5, 9, 1) = (/&
&3.7007e-05_jprb,3.6690e-04_jprb,4.5921e-04_jprb,5.0690e-04_jprb,5.2823e-04_jprb,5.2576e-04_jprb,&
&5.0057e-04_jprb,4.4491e-04_jprb,2.0554e-04_jprb/)
kao( :, 1,10, 1) = (/&
&2.4927e-05_jprb,1.9806e-04_jprb,2.3689e-04_jprb,2.5751e-04_jprb,2.6867e-04_jprb,2.7252e-04_jprb,&
&2.6649e-04_jprb,2.4340e-04_jprb,1.3926e-04_jprb/)
kao( :, 2,10, 1) = (/&
&2.6291e-05_jprb,2.2099e-04_jprb,2.6740e-04_jprb,2.9137e-04_jprb,3.0194e-04_jprb,3.0327e-04_jprb,&
&2.9342e-04_jprb,2.6414e-04_jprb,1.4846e-04_jprb/)
kao( :, 3,10, 1) = (/&
&2.7951e-05_jprb,2.4437e-04_jprb,2.9848e-04_jprb,3.2658e-04_jprb,3.3827e-04_jprb,3.3778e-04_jprb,&
&3.2415e-04_jprb,2.8946e-04_jprb,1.5998e-04_jprb/)
kao( :, 4,10, 1) = (/&
&2.9907e-05_jprb,2.6821e-04_jprb,3.3026e-04_jprb,3.6237e-04_jprb,3.7643e-04_jprb,3.7538e-04_jprb,&
&3.5861e-04_jprb,3.1891e-04_jprb,1.7396e-04_jprb/)
kao( :, 5,10, 1) = (/&
&3.2074e-05_jprb,2.9213e-04_jprb,3.6237e-04_jprb,3.9914e-04_jprb,4.1580e-04_jprb,4.1475e-04_jprb,&
&3.9509e-04_jprb,3.5105e-04_jprb,1.9000e-04_jprb/)
kao( :, 1,11, 1) = (/&
&2.1030e-05_jprb,1.6262e-04_jprb,1.9497e-04_jprb,2.1213e-04_jprb,2.2124e-04_jprb,2.2434e-04_jprb,&
&2.1945e-04_jprb,2.0056e-04_jprb,1.1989e-04_jprb/)
kao( :, 2,11, 1) = (/&
&2.2215e-05_jprb,1.8182e-04_jprb,2.1979e-04_jprb,2.3981e-04_jprb,2.4860e-04_jprb,2.4965e-04_jprb,&
&2.4153e-04_jprb,2.1771e-04_jprb,1.2772e-04_jprb/)
kao( :, 3,11, 1) = (/&
&2.3854e-05_jprb,2.0140e-04_jprb,2.4523e-04_jprb,2.6860e-04_jprb,2.7834e-04_jprb,2.7805e-04_jprb,&
&2.6683e-04_jprb,2.3853e-04_jprb,1.3777e-04_jprb/)
kao( :, 4,11, 1) = (/&
&2.5937e-05_jprb,2.2145e-04_jprb,2.7132e-04_jprb,2.9797e-04_jprb,3.0980e-04_jprb,3.0914e-04_jprb,&
&2.9535e-04_jprb,2.6276e-04_jprb,1.4975e-04_jprb/)
kao( :, 5,11, 1) = (/&
&2.8200e-05_jprb,2.4157e-04_jprb,2.9784e-04_jprb,3.2825e-04_jprb,3.4224e-04_jprb,3.4158e-04_jprb,&
&3.2548e-04_jprb,2.8921e-04_jprb,1.6349e-04_jprb/)
kao( :, 1,12, 1) = (/&
&1.7436e-05_jprb,1.3336e-04_jprb,1.6029e-04_jprb,1.7464e-04_jprb,1.8206e-04_jprb,1.8451e-04_jprb,&
&1.8046e-04_jprb,1.6506e-04_jprb,9.9378e-05_jprb/)
kao( :, 2,12, 1) = (/&
&1.8421e-05_jprb,1.4922e-04_jprb,1.8056e-04_jprb,1.9727e-04_jprb,2.0452e-04_jprb,2.0534e-04_jprb,&
&1.9861e-04_jprb,1.7923e-04_jprb,1.0594e-04_jprb/)
kao( :, 3,12, 1) = (/&
&1.9770e-05_jprb,1.6546e-04_jprb,2.0137e-04_jprb,2.2080e-04_jprb,2.2895e-04_jprb,2.2873e-04_jprb,&
&2.1950e-04_jprb,1.9634e-04_jprb,1.1437e-04_jprb/)
kao( :, 4,12, 1) = (/&
&2.1532e-05_jprb,1.8214e-04_jprb,2.2278e-04_jprb,2.4485e-04_jprb,2.5477e-04_jprb,2.5442e-04_jprb,&
&2.4312e-04_jprb,2.1633e-04_jprb,1.2430e-04_jprb/)
kao( :, 5,12, 1) = (/&
&2.3665e-05_jprb,1.9894e-04_jprb,2.4466e-04_jprb,2.6980e-04_jprb,2.8155e-04_jprb,2.8120e-04_jprb,&
&2.6804e-04_jprb,2.3807e-04_jprb,1.3565e-04_jprb/)
kao( :, 1,13, 1) = (/&
&1.4387e-05_jprb,1.0908e-04_jprb,1.3157e-04_jprb,1.4361e-04_jprb,1.4965e-04_jprb,1.5162e-04_jprb,&
&1.4826e-04_jprb,1.3570e-04_jprb,8.1068e-05_jprb/)
kao( :, 2,13, 1) = (/&
&1.5222e-05_jprb,1.2208e-04_jprb,1.4808e-04_jprb,1.6206e-04_jprb,1.6806e-04_jprb,1.6873e-04_jprb,&
&1.6320e-04_jprb,1.4737e-04_jprb,8.6440e-05_jprb/)
kao( :, 3,13, 1) = (/&
&1.6337e-05_jprb,1.3561e-04_jprb,1.6504e-04_jprb,1.8124e-04_jprb,1.8815e-04_jprb,1.8808e-04_jprb,&
&1.8048e-04_jprb,1.6146e-04_jprb,9.3311e-05_jprb/)
kao( :, 4,13, 1) = (/&
&1.7783e-05_jprb,1.4947e-04_jprb,1.8257e-04_jprb,2.0095e-04_jprb,2.0933e-04_jprb,2.0927e-04_jprb,&
&2.0001e-04_jprb,1.7792e-04_jprb,1.0131e-04_jprb/)
kao( :, 5,13, 1) = (/&
&1.9570e-05_jprb,1.6345e-04_jprb,2.0062e-04_jprb,2.2151e-04_jprb,2.3144e-04_jprb,2.3129e-04_jprb,&
&2.2049e-04_jprb,1.9577e-04_jprb,1.1046e-04_jprb/)
kao( :, 1, 1, 2) = (/&
&9.2497e-04_jprb,4.3144e-03_jprb,5.6991e-03_jprb,6.4942e-03_jprb,6.8938e-03_jprb,6.9128e-03_jprb,&
&6.4921e-03_jprb,5.6369e-03_jprb,1.8483e-03_jprb/)
kao( :, 2, 1, 2) = (/&
&1.0409e-03_jprb,4.6383e-03_jprb,6.0633e-03_jprb,6.9063e-03_jprb,7.3169e-03_jprb,7.3608e-03_jprb,&
&6.9192e-03_jprb,6.0028e-03_jprb,2.0300e-03_jprb/)
kao( :, 3, 1, 2) = (/&
&1.1556e-03_jprb,4.9764e-03_jprb,6.4488e-03_jprb,7.3288e-03_jprb,7.7717e-03_jprb,7.8279e-03_jprb,&
&7.3748e-03_jprb,6.3833e-03_jprb,2.2072e-03_jprb/)
kao( :, 4, 1, 2) = (/&
&1.2675e-03_jprb,5.3121e-03_jprb,6.8537e-03_jprb,7.7796e-03_jprb,8.2492e-03_jprb,8.3162e-03_jprb,&
&7.8626e-03_jprb,6.7865e-03_jprb,2.3969e-03_jprb/)
kao( :, 5, 1, 2) = (/&
&1.3758e-03_jprb,5.6410e-03_jprb,7.2804e-03_jprb,8.2553e-03_jprb,8.7528e-03_jprb,8.8226e-03_jprb,&
&8.3750e-03_jprb,7.2191e-03_jprb,2.6089e-03_jprb/)
kao( :, 1, 2, 2) = (/&
&7.5186e-04_jprb,3.6103e-03_jprb,4.7635e-03_jprb,5.4240e-03_jprb,5.7535e-03_jprb,5.7797e-03_jprb,&
&5.4198e-03_jprb,4.6836e-03_jprb,1.4556e-03_jprb/)
kao( :, 2, 2, 2) = (/&
&8.4398e-04_jprb,3.8877e-03_jprb,5.0819e-03_jprb,5.7839e-03_jprb,6.1171e-03_jprb,6.1580e-03_jprb,&
&5.7873e-03_jprb,4.9984e-03_jprb,1.6006e-03_jprb/)
kao( :, 3, 2, 2) = (/&
&9.3483e-04_jprb,4.1713e-03_jprb,5.4170e-03_jprb,6.1567e-03_jprb,6.5115e-03_jprb,6.5572e-03_jprb,&
&6.1783e-03_jprb,5.3232e-03_jprb,1.7489e-03_jprb/)
kao( :, 4, 2, 2) = (/&
&1.0238e-03_jprb,4.4548e-03_jprb,5.7647e-03_jprb,6.5444e-03_jprb,6.9273e-03_jprb,6.9708e-03_jprb,&
&6.5984e-03_jprb,5.6708e-03_jprb,1.9109e-03_jprb/)
kao( :, 5, 2, 2) = (/&
&1.1107e-03_jprb,4.7357e-03_jprb,6.1219e-03_jprb,6.9538e-03_jprb,7.3658e-03_jprb,7.4046e-03_jprb,&
&7.0322e-03_jprb,6.0412e-03_jprb,2.0904e-03_jprb/)
kao( :, 1, 3, 2) = (/&
&6.0142e-04_jprb,2.9523e-03_jprb,3.9104e-03_jprb,4.4517e-03_jprb,4.7174e-03_jprb,4.7372e-03_jprb,&
&4.4492e-03_jprb,3.8243e-03_jprb,1.1263e-03_jprb/)
kao( :, 2, 3, 2) = (/&
&6.7406e-04_jprb,3.1823e-03_jprb,4.1811e-03_jprb,4.7592e-03_jprb,5.0290e-03_jprb,5.0575e-03_jprb,&
&4.7588e-03_jprb,4.0940e-03_jprb,1.2428e-03_jprb/)
kao( :, 3, 3, 2) = (/&
&7.4620e-04_jprb,3.4210e-03_jprb,4.4618e-03_jprb,5.0793e-03_jprb,5.3629e-03_jprb,5.3950e-03_jprb,&
&5.0905e-03_jprb,4.3739e-03_jprb,1.3657e-03_jprb/)
kao( :, 4, 3, 2) = (/&
&8.1752e-04_jprb,3.6598e-03_jprb,4.7515e-03_jprb,5.4067e-03_jprb,5.7176e-03_jprb,5.7460e-03_jprb,&
&5.4447e-03_jprb,4.6676e-03_jprb,1.5007e-03_jprb/)
kao( :, 5, 3, 2) = (/&
&8.8750e-04_jprb,3.8967e-03_jprb,5.0479e-03_jprb,5.7482e-03_jprb,6.0925e-03_jprb,6.1154e-03_jprb,&
&5.8092e-03_jprb,4.9824e-03_jprb,1.6471e-03_jprb/)
kao( :, 1, 4, 2) = (/&
&4.8101e-04_jprb,2.3906e-03_jprb,3.1853e-03_jprb,3.6231e-03_jprb,3.8360e-03_jprb,3.8452e-03_jprb,&
&3.6186e-03_jprb,3.1019e-03_jprb,8.7573e-04_jprb/)
kao( :, 2, 4, 2) = (/&
&5.3961e-04_jprb,2.5785e-03_jprb,3.4085e-03_jprb,3.8820e-03_jprb,4.0987e-03_jprb,4.1183e-03_jprb,&
&3.8800e-03_jprb,3.3305e-03_jprb,9.6932e-04_jprb/)
kao( :, 3, 4, 2) = (/&
&5.9799e-04_jprb,2.7768e-03_jprb,3.6406e-03_jprb,4.1517e-03_jprb,4.3797e-03_jprb,4.4028e-03_jprb,&
&4.1601e-03_jprb,3.5700e-03_jprb,1.0703e-03_jprb/)
kao( :, 4, 4, 2) = (/&
&6.5579e-04_jprb,2.9752e-03_jprb,3.8795e-03_jprb,4.4220e-03_jprb,4.6790e-03_jprb,4.7001e-03_jprb,&
&4.4581e-03_jprb,3.8199e-03_jprb,1.1808e-03_jprb/)
kao( :, 5, 4, 2) = (/&
&7.1241e-04_jprb,3.1724e-03_jprb,4.1257e-03_jprb,4.7025e-03_jprb,4.9913e-03_jprb,5.0113e-03_jprb,&
&4.7649e-03_jprb,4.0844e-03_jprb,1.3011e-03_jprb/)
kao( :, 1, 5, 2) = (/&
&3.7985e-04_jprb,1.9296e-03_jprb,2.5823e-03_jprb,2.9367e-03_jprb,3.1053e-03_jprb,3.1068e-03_jprb,&
&2.9256e-03_jprb,2.5075e-03_jprb,6.8590e-04_jprb/)
kao( :, 2, 5, 2) = (/&
&4.2774e-04_jprb,2.0822e-03_jprb,2.7665e-03_jprb,3.1512e-03_jprb,3.3261e-03_jprb,3.3384e-03_jprb,&
&3.1468e-03_jprb,2.7004e-03_jprb,7.6134e-04_jprb/)
kao( :, 3, 5, 2) = (/&
&4.7586e-04_jprb,2.2442e-03_jprb,2.9575e-03_jprb,3.3747e-03_jprb,3.5611e-03_jprb,3.5804e-03_jprb,&
&3.3851e-03_jprb,2.9033e-03_jprb,8.4414e-04_jprb/)
kao( :, 4, 5, 2) = (/&
&5.2378e-04_jprb,2.4068e-03_jprb,3.1534e-03_jprb,3.5994e-03_jprb,3.8099e-03_jprb,3.8326e-03_jprb,&
&3.6365e-03_jprb,3.1178e-03_jprb,9.3392e-04_jprb/)
kao( :, 5, 5, 2) = (/&
&5.7107e-04_jprb,2.5676e-03_jprb,3.3559e-03_jprb,3.8294e-03_jprb,4.0688e-03_jprb,4.0931e-03_jprb,&
&3.8958e-03_jprb,3.3418e-03_jprb,1.0329e-03_jprb/)
kao( :, 1, 6, 2) = (/&
&2.9735e-04_jprb,1.5488e-03_jprb,2.0781e-03_jprb,2.3635e-03_jprb,2.4968e-03_jprb,2.4931e-03_jprb,&
&2.3467e-03_jprb,2.0085e-03_jprb,5.4223e-04_jprb/)
kao( :, 2, 6, 2) = (/&
&3.3587e-04_jprb,1.6709e-03_jprb,2.2308e-03_jprb,2.5409e-03_jprb,2.6808e-03_jprb,2.6895e-03_jprb,&
&2.5340e-03_jprb,2.1715e-03_jprb,6.0215e-04_jprb/)
kao( :, 3, 6, 2) = (/&
&3.7473e-04_jprb,1.8004e-03_jprb,2.3875e-03_jprb,2.7253e-03_jprb,2.8757e-03_jprb,2.8921e-03_jprb,&
&2.7340e-03_jprb,2.3415e-03_jprb,6.6920e-04_jprb/)
kao( :, 4, 6, 2) = (/&
&4.1385e-04_jprb,1.9336e-03_jprb,2.5474e-03_jprb,2.9106e-03_jprb,3.0795e-03_jprb,3.1041e-03_jprb,&
&2.9464e-03_jprb,2.5236e-03_jprb,7.4227e-04_jprb/)
kao( :, 5, 6, 2) = (/&
&4.5282e-04_jprb,2.0641e-03_jprb,2.7125e-03_jprb,3.0998e-03_jprb,3.2937e-03_jprb,3.3201e-03_jprb,&
&3.1630e-03_jprb,2.7121e-03_jprb,8.2264e-04_jprb/)
kao( :, 1, 7, 2) = (/&
&2.3216e-04_jprb,1.2362e-03_jprb,1.6616e-03_jprb,1.8908e-03_jprb,1.9971e-03_jprb,1.9905e-03_jprb,&
&1.8720e-03_jprb,1.5991e-03_jprb,4.4178e-04_jprb/)
kao( :, 2, 7, 2) = (/&
&2.6289e-04_jprb,1.3329e-03_jprb,1.7891e-03_jprb,2.0369e-03_jprb,2.1504e-03_jprb,2.1555e-03_jprb,&
&2.0290e-03_jprb,1.7365e-03_jprb,4.9123e-04_jprb/)
kao( :, 3, 7, 2) = (/&
&2.9417e-04_jprb,1.4359e-03_jprb,1.9156e-03_jprb,2.1896e-03_jprb,2.3102e-03_jprb,2.3250e-03_jprb,&
&2.1958e-03_jprb,1.8783e-03_jprb,5.4688e-04_jprb/)
kao( :, 4, 7, 2) = (/&
&3.2585e-04_jprb,1.5437e-03_jprb,2.0463e-03_jprb,2.3419e-03_jprb,2.4777e-03_jprb,2.4981e-03_jprb,&
&2.3744e-03_jprb,2.0299e-03_jprb,6.0742e-04_jprb/)
kao( :, 5, 7, 2) = (/&
&3.5762e-04_jprb,1.6504e-03_jprb,2.1798e-03_jprb,2.4967e-03_jprb,2.6528e-03_jprb,2.6762e-03_jprb,&
&2.5533e-03_jprb,2.1888e-03_jprb,6.7380e-04_jprb/)
kao( :, 1, 8, 2) = (/&
&1.8254e-04_jprb,9.8374e-04_jprb,1.3243e-03_jprb,1.5057e-03_jprb,1.5902e-03_jprb,1.5824e-03_jprb,&
&1.4869e-03_jprb,1.2665e-03_jprb,3.9850e-04_jprb/)
kao( :, 2, 8, 2) = (/&
&2.0666e-04_jprb,1.0603e-03_jprb,1.4275e-03_jprb,1.6259e-03_jprb,1.7181e-03_jprb,1.7201e-03_jprb,&
&1.6174e-03_jprb,1.3826e-03_jprb,4.4169e-04_jprb/)
kao( :, 3, 8, 2) = (/&
&2.3157e-04_jprb,1.1419e-03_jprb,1.5319e-03_jprb,1.7520e-03_jprb,1.8487e-03_jprb,1.8612e-03_jprb,&
&1.7566e-03_jprb,1.5015e-03_jprb,4.8905e-04_jprb/)
kao( :, 4, 8, 2) = (/&
&2.5700e-04_jprb,1.2278e-03_jprb,1.6373e-03_jprb,1.8765e-03_jprb,1.9849e-03_jprb,2.0014e-03_jprb,&
&1.9031e-03_jprb,1.6270e-03_jprb,5.4213e-04_jprb/)
kao( :, 5, 8, 2) = (/&
&2.8283e-04_jprb,1.3158e-03_jprb,1.7450e-03_jprb,2.0017e-03_jprb,2.1255e-03_jprb,2.1468e-03_jprb,&
&2.0518e-03_jprb,1.7597e-03_jprb,6.0087e-04_jprb/)
kao( :, 1, 9, 2) = (/&
&1.4492e-04_jprb,7.8220e-04_jprb,1.0529e-03_jprb,1.1948e-03_jprb,1.2616e-03_jprb,1.2532e-03_jprb,&
&1.1763e-03_jprb,9.9787e-04_jprb,3.8271e-04_jprb/)
kao( :, 2, 9, 2) = (/&
&1.6385e-04_jprb,8.4332e-04_jprb,1.1362e-03_jprb,1.2935e-03_jprb,1.3677e-03_jprb,1.3665e-03_jprb,&
&1.2847e-03_jprb,1.0960e-03_jprb,4.2068e-04_jprb/)
kao( :, 3, 9, 2) = (/&
&1.8366e-04_jprb,9.0787e-04_jprb,1.2223e-03_jprb,1.3959e-03_jprb,1.4750e-03_jprb,1.4839e-03_jprb,&
&1.3993e-03_jprb,1.1955e-03_jprb,4.6660e-04_jprb/)
kao( :, 4, 9, 2) = (/&
&2.0401e-04_jprb,9.7621e-04_jprb,1.3079e-03_jprb,1.4991e-03_jprb,1.5844e-03_jprb,1.5989e-03_jprb,&
&1.5186e-03_jprb,1.3000e-03_jprb,5.2016e-04_jprb/)
kao( :, 5, 9, 2) = (/&
&2.2477e-04_jprb,1.0479e-03_jprb,1.3948e-03_jprb,1.6006e-03_jprb,1.6979e-03_jprb,1.7159e-03_jprb,&
&1.6415e-03_jprb,1.4093e-03_jprb,5.7816e-04_jprb/)
kao( :, 1,10, 2) = (/&
&1.1869e-04_jprb,6.2671e-04_jprb,8.4082e-04_jprb,9.5190e-04_jprb,1.0039e-03_jprb,9.9693e-04_jprb,&
&9.3504e-04_jprb,7.8902e-04_jprb,3.5140e-04_jprb/)
kao( :, 2,10, 2) = (/&
&1.3381e-04_jprb,6.7599e-04_jprb,9.0913e-04_jprb,1.0332e-03_jprb,1.0921e-03_jprb,1.0891e-03_jprb,&
&1.0243e-03_jprb,8.7218e-04_jprb,3.8763e-04_jprb/)
kao( :, 3,10, 2) = (/&
&1.4959e-04_jprb,7.2765e-04_jprb,9.7958e-04_jprb,1.1159e-03_jprb,1.1802e-03_jprb,1.1859e-03_jprb,&
&1.1183e-03_jprb,9.5533e-04_jprb,4.3010e-04_jprb/)
kao( :, 4,10, 2) = (/&
&1.6589e-04_jprb,7.8204e-04_jprb,1.0498e-03_jprb,1.2013e-03_jprb,1.2689e-03_jprb,1.2810e-03_jprb,&
&1.2156e-03_jprb,1.0417e-03_jprb,4.7716e-04_jprb/)
kao( :, 5,10, 2) = (/&
&1.8260e-04_jprb,8.3938e-04_jprb,1.1206e-03_jprb,1.2847e-03_jprb,1.3612e-03_jprb,1.3753e-03_jprb,&
&1.3161e-03_jprb,1.1315e-03_jprb,5.2947e-04_jprb/)
kao( :, 1,11, 2) = (/&
&1.0311e-04_jprb,5.2056e-04_jprb,6.9637e-04_jprb,7.8750e-04_jprb,8.3059e-04_jprb,8.2575e-04_jprb,&
&7.7490e-04_jprb,6.5424e-04_jprb,3.0281e-04_jprb/)
kao( :, 2,11, 2) = (/&
&1.1590e-04_jprb,5.6136e-04_jprb,7.5296e-04_jprb,8.5480e-04_jprb,9.0353e-04_jprb,9.0216e-04_jprb,&
&8.4999e-04_jprb,7.2420e-04_jprb,3.3507e-04_jprb/)
kao( :, 3,11, 2) = (/&
&1.2889e-04_jprb,6.0382e-04_jprb,8.1101e-04_jprb,9.2302e-04_jprb,9.7570e-04_jprb,9.8182e-04_jprb,&
&9.2806e-04_jprb,7.9438e-04_jprb,3.7284e-04_jprb/)
kao( :, 4,11, 2) = (/&
&1.4211e-04_jprb,6.4818e-04_jprb,8.6860e-04_jprb,9.9311e-04_jprb,1.0487e-03_jprb,1.0592e-03_jprb,&
&1.0081e-03_jprb,8.6646e-04_jprb,4.1455e-04_jprb/)
kao( :, 5,11, 2) = (/&
&1.5566e-04_jprb,6.9514e-04_jprb,9.2716e-04_jprb,1.0621e-03_jprb,1.1251e-03_jprb,1.1363e-03_jprb,&
&1.0898e-03_jprb,9.4096e-04_jprb,4.6093e-04_jprb/)
kao( :, 1,12, 2) = (/&
&8.6906e-05_jprb,4.2943e-04_jprb,5.7386e-04_jprb,6.4907e-04_jprb,6.8516e-04_jprb,6.8236e-04_jprb,&
&6.4150e-04_jprb,5.4221e-04_jprb,2.5343e-04_jprb/)
kao( :, 2,12, 2) = (/&
&9.7363e-05_jprb,4.6320e-04_jprb,6.2055e-04_jprb,7.0430e-04_jprb,7.4506e-04_jprb,7.4512e-04_jprb,&
&7.0369e-04_jprb,6.0080e-04_jprb,2.8076e-04_jprb/)
kao( :, 3,12, 2) = (/&
&1.0822e-04_jprb,4.9810e-04_jprb,6.6816e-04_jprb,7.6045e-04_jprb,8.0385e-04_jprb,8.1033e-04_jprb,&
&7.6791e-04_jprb,6.5916e-04_jprb,3.1267e-04_jprb/)
kao( :, 4,12, 2) = (/&
&1.1919e-04_jprb,5.3431e-04_jprb,7.1547e-04_jprb,8.1798e-04_jprb,8.6412e-04_jprb,8.7316e-04_jprb,&
&8.3318e-04_jprb,7.1884e-04_jprb,3.4804e-04_jprb/)
kao( :, 5,12, 2) = (/&
&1.3020e-04_jprb,5.7282e-04_jprb,7.6401e-04_jprb,8.7493e-04_jprb,9.2683e-04_jprb,9.3624e-04_jprb,&
&8.9962e-04_jprb,7.8030e-04_jprb,3.8737e-04_jprb/)
kao( :, 1,13, 2) = (/&
&7.2736e-05_jprb,3.5287e-04_jprb,4.7103e-04_jprb,5.3285e-04_jprb,5.6294e-04_jprb,5.6189e-04_jprb,&
&5.2952e-04_jprb,4.4876e-04_jprb,2.0844e-04_jprb/)
kao( :, 2,13, 2) = (/&
&8.1220e-05_jprb,3.8092e-04_jprb,5.0957e-04_jprb,5.7824e-04_jprb,6.1199e-04_jprb,6.1315e-04_jprb,&
&5.8053e-04_jprb,4.9725e-04_jprb,2.3115e-04_jprb/)
kao( :, 3,13, 2) = (/&
&9.0164e-05_jprb,4.0966e-04_jprb,5.4894e-04_jprb,6.2460e-04_jprb,6.6024e-04_jprb,6.6621e-04_jprb,&
&6.3308e-04_jprb,5.4537e-04_jprb,2.5750e-04_jprb/)
kao( :, 4,13, 2) = (/&
&9.9376e-05_jprb,4.3939e-04_jprb,5.8810e-04_jprb,6.7200e-04_jprb,7.1008e-04_jprb,7.1773e-04_jprb,&
&6.8617e-04_jprb,5.9441e-04_jprb,2.8680e-04_jprb/)
kao( :, 5,13, 2) = (/&
&1.0854e-04_jprb,4.7117e-04_jprb,6.2833e-04_jprb,7.1918e-04_jprb,7.6187e-04_jprb,7.6982e-04_jprb,&
&7.4086e-04_jprb,6.4493e-04_jprb,3.1932e-04_jprb/)
kao( :, 1, 1, 3) = (/&
&2.8268e-03_jprb,8.0007e-03_jprb,1.0129e-02_jprb,1.1600e-02_jprb,1.2484e-02_jprb,1.2903e-02_jprb,&
&1.2756e-02_jprb,1.1762e-02_jprb,4.6746e-03_jprb/)
kao( :, 2, 1, 3) = (/&
&3.1283e-03_jprb,8.6463e-03_jprb,1.0922e-02_jprb,1.2433e-02_jprb,1.3339e-02_jprb,1.3730e-02_jprb,&
&1.3558e-02_jprb,1.2454e-02_jprb,5.0133e-03_jprb/)
kao( :, 3, 1, 3) = (/&
&3.4558e-03_jprb,9.3189e-03_jprb,1.1784e-02_jprb,1.3331e-02_jprb,1.4258e-02_jprb,1.4611e-02_jprb,&
&1.4389e-02_jprb,1.3149e-02_jprb,5.3761e-03_jprb/)
kao( :, 4, 1, 3) = (/&
&3.8003e-03_jprb,1.0040e-02_jprb,1.2672e-02_jprb,1.4281e-02_jprb,1.5240e-02_jprb,1.5546e-02_jprb,&
&1.5245e-02_jprb,1.3873e-02_jprb,5.7489e-03_jprb/)
kao( :, 5, 1, 3) = (/&
&4.1364e-03_jprb,1.0810e-02_jprb,1.3574e-02_jprb,1.5264e-02_jprb,1.6259e-02_jprb,1.6515e-02_jprb,&
&1.6129e-02_jprb,1.4624e-02_jprb,6.1285e-03_jprb/)
kao( :, 1, 2, 3) = (/&
&2.3785e-03_jprb,6.8111e-03_jprb,8.5917e-03_jprb,9.8069e-03_jprb,1.0520e-02_jprb,1.0823e-02_jprb,&
&1.0667e-02_jprb,9.8152e-03_jprb,3.7184e-03_jprb/)
kao( :, 2, 2, 3) = (/&
&2.6403e-03_jprb,7.3805e-03_jprb,9.2734e-03_jprb,1.0506e-02_jprb,1.1253e-02_jprb,1.1531e-02_jprb,&
&1.1349e-02_jprb,1.0403e-02_jprb,4.0032e-03_jprb/)
kao( :, 3, 2, 3) = (/&
&2.9257e-03_jprb,7.9766e-03_jprb,1.0007e-02_jprb,1.1267e-02_jprb,1.2040e-02_jprb,1.2292e-02_jprb,&
&1.2064e-02_jprb,1.1014e-02_jprb,4.2975e-03_jprb/)
kao( :, 4, 2, 3) = (/&
&3.2219e-03_jprb,8.6148e-03_jprb,1.0770e-02_jprb,1.2085e-02_jprb,1.2878e-02_jprb,1.3098e-02_jprb,&
&1.2794e-02_jprb,1.1649e-02_jprb,4.6021e-03_jprb/)
kao( :, 5, 2, 3) = (/&
&3.5088e-03_jprb,9.2842e-03_jprb,1.1557e-02_jprb,1.2935e-02_jprb,1.3737e-02_jprb,1.3940e-02_jprb,&
&1.3572e-02_jprb,1.2310e-02_jprb,4.9140e-03_jprb/)
kao( :, 1, 3, 3) = (/&
&1.9386e-03_jprb,5.6660e-03_jprb,7.1297e-03_jprb,8.1429e-03_jprb,8.7357e-03_jprb,8.9496e-03_jprb,&
&8.7747e-03_jprb,8.0582e-03_jprb,2.9088e-03_jprb/)
kao( :, 2, 3, 3) = (/&
&2.1579e-03_jprb,6.1637e-03_jprb,7.7083e-03_jprb,8.7254e-03_jprb,9.3435e-03_jprb,9.5443e-03_jprb,&
&9.3488e-03_jprb,8.5545e-03_jprb,3.1389e-03_jprb/)
kao( :, 3, 3, 3) = (/&
&2.3960e-03_jprb,6.6842e-03_jprb,8.3410e-03_jprb,9.3621e-03_jprb,1.0004e-02_jprb,1.0182e-02_jprb,&
&9.9526e-03_jprb,9.0715e-03_jprb,3.3810e-03_jprb/)
kao( :, 4, 3, 3) = (/&
&2.6451e-03_jprb,7.2345e-03_jprb,9.0005e-03_jprb,1.0055e-02_jprb,1.0704e-02_jprb,1.0864e-02_jprb,&
&1.0573e-02_jprb,9.6158e-03_jprb,3.6280e-03_jprb/)
kao( :, 5, 3, 3) = (/&
&2.8859e-03_jprb,7.8078e-03_jprb,9.6814e-03_jprb,1.0782e-02_jprb,1.1421e-02_jprb,1.1580e-02_jprb,&
&1.1241e-02_jprb,1.0187e-02_jprb,3.8829e-03_jprb/)
kao( :, 1, 4, 3) = (/&
&1.5600e-03_jprb,4.6546e-03_jprb,5.8495e-03_jprb,6.6996e-03_jprb,7.2044e-03_jprb,7.3765e-03_jprb,&
&7.1865e-03_jprb,6.5682e-03_jprb,2.2826e-03_jprb/)
kao( :, 2, 4, 3) = (/&
&1.7367e-03_jprb,5.0823e-03_jprb,6.3406e-03_jprb,7.1867e-03_jprb,7.7058e-03_jprb,7.8650e-03_jprb,&
&7.6617e-03_jprb,6.9802e-03_jprb,2.4709e-03_jprb/)
kao( :, 3, 4, 3) = (/&
&1.9306e-03_jprb,5.5299e-03_jprb,6.8812e-03_jprb,7.7221e-03_jprb,8.2549e-03_jprb,8.3977e-03_jprb,&
&8.1626e-03_jprb,7.4067e-03_jprb,2.6716e-03_jprb/)
kao( :, 4, 4, 3) = (/&
&2.1349e-03_jprb,5.9971e-03_jprb,7.4507e-03_jprb,8.3116e-03_jprb,8.8413e-03_jprb,8.9674e-03_jprb,&
&8.6864e-03_jprb,7.8658e-03_jprb,2.8745e-03_jprb/)
kao( :, 5, 4, 3) = (/&
&2.3336e-03_jprb,6.4807e-03_jprb,8.0336e-03_jprb,8.9354e-03_jprb,9.4416e-03_jprb,9.5691e-03_jprb,&
&9.2483e-03_jprb,8.3517e-03_jprb,3.0875e-03_jprb/)
kao( :, 1, 5, 3) = (/&
&1.2643e-03_jprb,3.7992e-03_jprb,4.7706e-03_jprb,5.4821e-03_jprb,5.9156e-03_jprb,6.0631e-03_jprb,&
&5.8873e-03_jprb,5.3374e-03_jprb,1.7987e-03_jprb/)
kao( :, 2, 5, 3) = (/&
&1.4029e-03_jprb,4.1601e-03_jprb,5.1876e-03_jprb,5.8930e-03_jprb,6.3304e-03_jprb,6.4641e-03_jprb,&
&6.2801e-03_jprb,5.6828e-03_jprb,1.9541e-03_jprb/)
kao( :, 3, 5, 3) = (/&
&1.5562e-03_jprb,4.5381e-03_jprb,5.6449e-03_jprb,6.3470e-03_jprb,6.7903e-03_jprb,6.9025e-03_jprb,&
&6.6934e-03_jprb,6.0371e-03_jprb,2.1188e-03_jprb/)
kao( :, 4, 5, 3) = (/&
&1.7190e-03_jprb,4.9285e-03_jprb,6.1272e-03_jprb,6.8449e-03_jprb,7.2797e-03_jprb,7.3760e-03_jprb,&
&7.1291e-03_jprb,6.4167e-03_jprb,2.2886e-03_jprb/)
kao( :, 5, 5, 3) = (/&
&1.8807e-03_jprb,5.3341e-03_jprb,6.6172e-03_jprb,7.3735e-03_jprb,7.7846e-03_jprb,7.8779e-03_jprb,&
&7.5974e-03_jprb,6.8236e-03_jprb,2.4671e-03_jprb/)
kao( :, 1, 6, 3) = (/&
&1.0213e-03_jprb,3.0721e-03_jprb,3.8660e-03_jprb,4.4559e-03_jprb,4.8197e-03_jprb,4.9478e-03_jprb,&
&4.7982e-03_jprb,4.3290e-03_jprb,1.4118e-03_jprb/)
kao( :, 2, 6, 3) = (/&
&1.1324e-03_jprb,3.3728e-03_jprb,4.2119e-03_jprb,4.7959e-03_jprb,5.1628e-03_jprb,5.2793e-03_jprb,&
&5.1225e-03_jprb,4.6162e-03_jprb,1.5418e-03_jprb/)
kao( :, 3, 6, 3) = (/&
&1.2545e-03_jprb,3.6892e-03_jprb,4.5936e-03_jprb,5.1743e-03_jprb,5.5467e-03_jprb,5.6393e-03_jprb,&
&5.4667e-03_jprb,4.9091e-03_jprb,1.6767e-03_jprb/)
kao( :, 4, 6, 3) = (/&
&1.3844e-03_jprb,4.0151e-03_jprb,4.9945e-03_jprb,5.5888e-03_jprb,5.9562e-03_jprb,6.0318e-03_jprb,&
&5.8253e-03_jprb,5.2198e-03_jprb,1.8201e-03_jprb/)
kao( :, 5, 6, 3) = (/&
&1.5162e-03_jprb,4.3530e-03_jprb,5.4044e-03_jprb,6.0308e-03_jprb,6.3808e-03_jprb,6.4545e-03_jprb,&
&6.2163e-03_jprb,5.5575e-03_jprb,1.9706e-03_jprb/)
kao( :, 1, 7, 3) = (/&
&8.1383e-04_jprb,2.4690e-03_jprb,3.1190e-03_jprb,3.6045e-03_jprb,3.9078e-03_jprb,4.0152e-03_jprb,&
&3.8892e-03_jprb,3.5066e-03_jprb,1.1162e-03_jprb/)
kao( :, 2, 7, 3) = (/&
&9.0133e-04_jprb,2.7200e-03_jprb,3.4007e-03_jprb,3.8875e-03_jprb,4.1896e-03_jprb,4.2887e-03_jprb,&
&4.1574e-03_jprb,3.7464e-03_jprb,1.2253e-03_jprb/)
kao( :, 3, 7, 3) = (/&
&9.9758e-04_jprb,2.9822e-03_jprb,3.7154e-03_jprb,4.1988e-03_jprb,4.5072e-03_jprb,4.5864e-03_jprb,&
&4.4444e-03_jprb,3.9910e-03_jprb,1.3374e-03_jprb/)
kao( :, 4, 7, 3) = (/&
&1.1009e-03_jprb,3.2536e-03_jprb,4.0499e-03_jprb,4.5399e-03_jprb,4.8474e-03_jprb,4.9140e-03_jprb,&
&4.7441e-03_jprb,4.2483e-03_jprb,1.4572e-03_jprb/)
kao( :, 5, 7, 3) = (/&
&1.2079e-03_jprb,3.5321e-03_jprb,4.3905e-03_jprb,4.9045e-03_jprb,5.2002e-03_jprb,5.2665e-03_jprb,&
&5.0703e-03_jprb,4.5267e-03_jprb,1.5834e-03_jprb/)
kao( :, 1, 8, 3) = (/&
&6.4403e-04_jprb,1.9711e-03_jprb,2.5061e-03_jprb,2.9046e-03_jprb,3.1552e-03_jprb,3.2467e-03_jprb,&
&3.1397e-03_jprb,2.8272e-03_jprb,9.2879e-04_jprb/)
kao( :, 2, 8, 3) = (/&
&7.1238e-04_jprb,2.1771e-03_jprb,2.7335e-03_jprb,3.1363e-03_jprb,3.3882e-03_jprb,3.4702e-03_jprb,&
&3.3609e-03_jprb,3.0275e-03_jprb,1.0282e-03_jprb/)
kao( :, 3, 8, 3) = (/&
&7.8775e-04_jprb,2.3928e-03_jprb,2.9888e-03_jprb,3.3912e-03_jprb,3.6502e-03_jprb,3.7161e-03_jprb,&
&3.5992e-03_jprb,3.2322e-03_jprb,1.1312e-03_jprb/)
kao( :, 4, 8, 3) = (/&
&8.6902e-04_jprb,2.6176e-03_jprb,3.2653e-03_jprb,3.6711e-03_jprb,3.9303e-03_jprb,3.9873e-03_jprb,&
&3.8512e-03_jprb,3.4474e-03_jprb,1.2372e-03_jprb/)
kao( :, 5, 8, 3) = (/&
&9.5395e-04_jprb,2.8439e-03_jprb,3.5472e-03_jprb,3.9717e-03_jprb,4.2227e-03_jprb,4.2804e-03_jprb,&
&4.1230e-03_jprb,3.6794e-03_jprb,1.3472e-03_jprb/)
kao( :, 1, 9, 3) = (/&
&5.1007e-04_jprb,1.5656e-03_jprb,2.0060e-03_jprb,2.3330e-03_jprb,2.5370e-03_jprb,2.6132e-03_jprb,&
&2.5254e-03_jprb,2.2694e-03_jprb,9.3729e-04_jprb/)
kao( :, 2, 9, 3) = (/&
&5.6353e-04_jprb,1.7326e-03_jprb,2.1869e-03_jprb,2.5189e-03_jprb,2.7285e-03_jprb,2.7995e-03_jprb,&
&2.7056e-03_jprb,2.4351e-03_jprb,1.0493e-03_jprb/)
kao( :, 3, 9, 3) = (/&
&6.2213e-04_jprb,1.9088e-03_jprb,2.3915e-03_jprb,2.7258e-03_jprb,2.9423e-03_jprb,2.9995e-03_jprb,&
&2.9041e-03_jprb,2.6067e-03_jprb,1.1607e-03_jprb/)
kao( :, 4, 9, 3) = (/&
&6.8571e-04_jprb,2.0922e-03_jprb,2.6149e-03_jprb,2.9528e-03_jprb,3.1723e-03_jprb,3.2231e-03_jprb,&
&3.1163e-03_jprb,2.7863e-03_jprb,1.2669e-03_jprb/)
kao( :, 5, 9, 3) = (/&
&7.5285e-04_jprb,2.2758e-03_jprb,2.8459e-03_jprb,3.1985e-03_jprb,3.4132e-03_jprb,3.4638e-03_jprb,&
&3.3423e-03_jprb,2.9799e-03_jprb,1.3708e-03_jprb/)
kao( :, 1,10, 3) = (/&
&4.0986e-04_jprb,1.2514e-03_jprb,1.6149e-03_jprb,1.8827e-03_jprb,2.0477e-03_jprb,2.1068e-03_jprb,&
&2.0342e-03_jprb,1.8264e-03_jprb,9.4172e-04_jprb/)
kao( :, 2,10, 3) = (/&
&4.5195e-04_jprb,1.3870e-03_jprb,1.7594e-03_jprb,2.0313e-03_jprb,2.2041e-03_jprb,2.2637e-03_jprb,&
&2.1836e-03_jprb,1.9630e-03_jprb,1.0592e-03_jprb/)
kao( :, 3,10, 3) = (/&
&4.9807e-04_jprb,1.5305e-03_jprb,1.9232e-03_jprb,2.1993e-03_jprb,2.3783e-03_jprb,2.4282e-03_jprb,&
&2.3477e-03_jprb,2.1050e-03_jprb,1.1691e-03_jprb/)
kao( :, 4,10, 3) = (/&
&5.4808e-04_jprb,1.6789e-03_jprb,2.1022e-03_jprb,2.3829e-03_jprb,2.5654e-03_jprb,2.6091e-03_jprb,&
&2.5255e-03_jprb,2.2562e-03_jprb,1.2759e-03_jprb/)
kao( :, 5,10, 3) = (/&
&6.0117e-04_jprb,1.8287e-03_jprb,2.2888e-03_jprb,2.5807e-03_jprb,2.7622e-03_jprb,2.8066e-03_jprb,&
&2.7118e-03_jprb,2.4197e-03_jprb,1.3798e-03_jprb/)
kao( :, 1,11, 3) = (/&
&3.4587e-04_jprb,1.0486e-03_jprb,1.3498e-03_jprb,1.5706e-03_jprb,1.7067e-03_jprb,1.7541e-03_jprb,&
&1.6904e-03_jprb,1.5189e-03_jprb,8.4922e-04_jprb/)
kao( :, 2,11, 3) = (/&
&3.8030e-04_jprb,1.1612e-03_jprb,1.4720e-03_jprb,1.6962e-03_jprb,1.8396e-03_jprb,1.8877e-03_jprb,&
&1.8189e-03_jprb,1.6321e-03_jprb,9.4886e-04_jprb/)
kao( :, 3,11, 3) = (/&
&4.1775e-04_jprb,1.2794e-03_jprb,1.6083e-03_jprb,1.8372e-03_jprb,1.9863e-03_jprb,2.0269e-03_jprb,&
&1.9602e-03_jprb,1.7534e-03_jprb,1.0435e-03_jprb/)
kao( :, 4,11, 3) = (/&
&4.5831e-04_jprb,1.4012e-03_jprb,1.7558e-03_jprb,1.9899e-03_jprb,2.1423e-03_jprb,2.1791e-03_jprb,&
&2.1105e-03_jprb,1.8847e-03_jprb,1.1342e-03_jprb/)
kao( :, 5,11, 3) = (/&
&5.0160e-04_jprb,1.5235e-03_jprb,1.9068e-03_jprb,2.1518e-03_jprb,2.3031e-03_jprb,2.3452e-03_jprb,&
&2.2691e-03_jprb,2.0271e-03_jprb,1.2246e-03_jprb/)
kao( :, 1,12, 3) = (/&
&2.8728e-04_jprb,8.7138e-04_jprb,1.1212e-03_jprb,1.3035e-03_jprb,1.4166e-03_jprb,1.4556e-03_jprb,&
&1.4016e-03_jprb,1.2592e-03_jprb,7.2447e-04_jprb/)
kao( :, 2,12, 3) = (/&
&3.1564e-04_jprb,9.6434e-04_jprb,1.2235e-03_jprb,1.4085e-03_jprb,1.5279e-03_jprb,1.5679e-03_jprb,&
&1.5112e-03_jprb,1.3542e-03_jprb,8.0728e-04_jprb/)
kao( :, 3,12, 3) = (/&
&3.4588e-04_jprb,1.0616e-03_jprb,1.3357e-03_jprb,1.5255e-03_jprb,1.6505e-03_jprb,1.6842e-03_jprb,&
&1.6309e-03_jprb,1.4584e-03_jprb,8.8538e-04_jprb/)
kao( :, 4,12, 3) = (/&
&3.7862e-04_jprb,1.1614e-03_jprb,1.4559e-03_jprb,1.6504e-03_jprb,1.7780e-03_jprb,1.8118e-03_jprb,&
&1.7570e-03_jprb,1.5710e-03_jprb,9.6174e-04_jprb/)
kao( :, 5,12, 3) = (/&
&4.1375e-04_jprb,1.2608e-03_jprb,1.5783e-03_jprb,1.7829e-03_jprb,1.9097e-03_jprb,1.9490e-03_jprb,&
&1.8902e-03_jprb,1.6924e-03_jprb,1.0383e-03_jprb/)
kao( :, 1,13, 3) = (/&
&2.3648e-04_jprb,7.2058e-04_jprb,9.2721e-04_jprb,1.0773e-03_jprb,1.1715e-03_jprb,1.2041e-03_jprb,&
&1.1590e-03_jprb,1.0409e-03_jprb,5.9750e-04_jprb/)
kao( :, 2,13, 3) = (/&
&2.5991e-04_jprb,7.9700e-04_jprb,1.0119e-03_jprb,1.1647e-03_jprb,1.2640e-03_jprb,1.2977e-03_jprb,&
&1.2520e-03_jprb,1.1213e-03_jprb,6.6442e-04_jprb/)
kao( :, 3,13, 3) = (/&
&2.8463e-04_jprb,8.7643e-04_jprb,1.1035e-03_jprb,1.2606e-03_jprb,1.3651e-03_jprb,1.3947e-03_jprb,&
&1.3520e-03_jprb,1.2099e-03_jprb,7.2829e-04_jprb/)
kao( :, 4,13, 3) = (/&
&3.1116e-04_jprb,9.5840e-04_jprb,1.2015e-03_jprb,1.3629e-03_jprb,1.4693e-03_jprb,1.4997e-03_jprb,&
&1.4571e-03_jprb,1.3050e-03_jprb,7.9195e-04_jprb/)
kao( :, 5,13, 3) = (/&
&3.3973e-04_jprb,1.0393e-03_jprb,1.3011e-03_jprb,1.4709e-03_jprb,1.5771e-03_jprb,1.6125e-03_jprb,&
&1.5669e-03_jprb,1.4078e-03_jprb,8.5580e-04_jprb/)
kao( :, 1, 1, 4) = (/&
&6.8556e-03_jprb,1.5209e-02_jprb,1.8964e-02_jprb,2.1311e-02_jprb,2.2775e-02_jprb,2.3573e-02_jprb,&
&2.3412e-02_jprb,2.1611e-02_jprb,1.0754e-02_jprb/)
kao( :, 2, 1, 4) = (/&
&7.5360e-03_jprb,1.6539e-02_jprb,2.0389e-02_jprb,2.2809e-02_jprb,2.4368e-02_jprb,2.5124e-02_jprb,&
&2.4893e-02_jprb,2.2807e-02_jprb,1.1409e-02_jprb/)
kao( :, 3, 1, 4) = (/&
&8.2731e-03_jprb,1.7967e-02_jprb,2.1859e-02_jprb,2.4354e-02_jprb,2.6001e-02_jprb,2.6738e-02_jprb,&
&2.6424e-02_jprb,2.3981e-02_jprb,1.2028e-02_jprb/)
kao( :, 4, 1, 4) = (/&
&9.0669e-03_jprb,1.9440e-02_jprb,2.3386e-02_jprb,2.5951e-02_jprb,2.7638e-02_jprb,2.8404e-02_jprb,&
&2.7993e-02_jprb,2.5105e-02_jprb,1.2622e-02_jprb/)
kao( :, 5, 1, 4) = (/&
&9.9297e-03_jprb,2.0867e-02_jprb,2.4992e-02_jprb,2.7620e-02_jprb,2.9333e-02_jprb,3.0144e-02_jprb,&
&2.9561e-02_jprb,2.6196e-02_jprb,1.3246e-02_jprb/)
kao( :, 1, 2, 4) = (/&
&6.0458e-03_jprb,1.3057e-02_jprb,1.6177e-02_jprb,1.8072e-02_jprb,1.9267e-02_jprb,1.9866e-02_jprb,&
&1.9708e-02_jprb,1.7998e-02_jprb,8.6186e-03_jprb/)
kao( :, 2, 2, 4) = (/&
&6.6625e-03_jprb,1.4207e-02_jprb,1.7424e-02_jprb,1.9390e-02_jprb,2.0646e-02_jprb,2.1226e-02_jprb,&
&2.0989e-02_jprb,1.9040e-02_jprb,9.1596e-03_jprb/)
kao( :, 3, 2, 4) = (/&
&7.3258e-03_jprb,1.5446e-02_jprb,1.8730e-02_jprb,2.0756e-02_jprb,2.2068e-02_jprb,2.2641e-02_jprb,&
&2.2320e-02_jprb,2.0040e-02_jprb,9.6719e-03_jprb/)
kao( :, 4, 2, 4) = (/&
&8.0389e-03_jprb,1.6697e-02_jprb,2.0086e-02_jprb,2.2176e-02_jprb,2.3509e-02_jprb,2.4128e-02_jprb,&
&2.3691e-02_jprb,2.0995e-02_jprb,1.0163e-02_jprb/)
kao( :, 5, 2, 4) = (/&
&8.8116e-03_jprb,1.7924e-02_jprb,2.1495e-02_jprb,2.3659e-02_jprb,2.5007e-02_jprb,2.5649e-02_jprb,&
&2.5070e-02_jprb,2.1939e-02_jprb,1.0681e-02_jprb/)
kao( :, 1, 3, 4) = (/&
&5.1529e-03_jprb,1.1010e-02_jprb,1.3576e-02_jprb,1.5057e-02_jprb,1.5941e-02_jprb,1.6391e-02_jprb,&
&1.6252e-02_jprb,1.4825e-02_jprb,6.7965e-03_jprb/)
kao( :, 2, 3, 4) = (/&
&5.7021e-03_jprb,1.1982e-02_jprb,1.4643e-02_jprb,1.6192e-02_jprb,1.7140e-02_jprb,1.7565e-02_jprb,&
&1.7355e-02_jprb,1.5736e-02_jprb,7.2498e-03_jprb/)
kao( :, 3, 3, 4) = (/&
&6.2951e-03_jprb,1.3030e-02_jprb,1.5759e-02_jprb,1.7371e-02_jprb,1.8379e-02_jprb,1.8797e-02_jprb,&
&1.8506e-02_jprb,1.6604e-02_jprb,7.6744e-03_jprb/)
kao( :, 4, 3, 4) = (/&
&6.9329e-03_jprb,1.4099e-02_jprb,1.6924e-02_jprb,1.8614e-02_jprb,1.9640e-02_jprb,2.0080e-02_jprb,&
&1.9697e-02_jprb,1.7427e-02_jprb,8.0855e-03_jprb/)
kao( :, 5, 3, 4) = (/&
&7.6208e-03_jprb,1.5154e-02_jprb,1.8132e-02_jprb,1.9899e-02_jprb,2.0953e-02_jprb,2.1403e-02_jprb,&
&2.0907e-02_jprb,1.8236e-02_jprb,8.5123e-03_jprb/)
kao( :, 1, 4, 4) = (/&
&4.3117e-03_jprb,9.2399e-03_jprb,1.1333e-02_jprb,1.2460e-02_jprb,1.3088e-02_jprb,1.3384e-02_jprb,&
&1.3264e-02_jprb,1.2129e-02_jprb,5.3638e-03_jprb/)
kao( :, 2, 4, 4) = (/&
&4.7919e-03_jprb,1.0057e-02_jprb,1.2236e-02_jprb,1.3425e-02_jprb,1.4108e-02_jprb,1.4384e-02_jprb,&
&1.4215e-02_jprb,1.2919e-02_jprb,5.7448e-03_jprb/)
kao( :, 3, 4, 4) = (/&
&5.3141e-03_jprb,1.0939e-02_jprb,1.3172e-02_jprb,1.4430e-02_jprb,1.5160e-02_jprb,1.5438e-02_jprb,&
&1.5198e-02_jprb,1.3684e-02_jprb,6.1060e-03_jprb/)
kao( :, 4, 4, 4) = (/&
&5.8726e-03_jprb,1.1850e-02_jprb,1.4160e-02_jprb,1.5498e-02_jprb,1.6255e-02_jprb,1.6542e-02_jprb,&
&1.6226e-02_jprb,1.4411e-02_jprb,6.4545e-03_jprb/)
kao( :, 5, 4, 4) = (/&
&6.4675e-03_jprb,1.2764e-02_jprb,1.5190e-02_jprb,1.6608e-02_jprb,1.7400e-02_jprb,1.7692e-02_jprb,&
&1.7269e-02_jprb,1.5120e-02_jprb,6.8073e-03_jprb/)
kao( :, 1, 5, 4) = (/&
&3.5690e-03_jprb,7.7051e-03_jprb,9.4368e-03_jprb,1.0305e-02_jprb,1.0745e-02_jprb,1.0912e-02_jprb,&
&1.0785e-02_jprb,9.8773e-03_jprb,4.2532e-03_jprb/)
kao( :, 2, 5, 4) = (/&
&3.9820e-03_jprb,8.3977e-03_jprb,1.0194e-02_jprb,1.1112e-02_jprb,1.1609e-02_jprb,1.1756e-02_jprb,&
&1.1595e-02_jprb,1.0560e-02_jprb,4.5731e-03_jprb/)
kao( :, 3, 5, 4) = (/&
&4.4305e-03_jprb,9.1511e-03_jprb,1.0990e-02_jprb,1.1967e-02_jprb,1.2498e-02_jprb,1.2650e-02_jprb,&
&1.2430e-02_jprb,1.1229e-02_jprb,4.8830e-03_jprb/)
kao( :, 4, 5, 4) = (/&
&4.9079e-03_jprb,9.9363e-03_jprb,1.1832e-02_jprb,1.2872e-02_jprb,1.3434e-02_jprb,1.3592e-02_jprb,&
&1.3307e-02_jprb,1.1872e-02_jprb,5.1810e-03_jprb/)
kao( :, 5, 5, 4) = (/&
&5.4148e-03_jprb,1.0727e-02_jprb,1.2716e-02_jprb,1.3820e-02_jprb,1.4419e-02_jprb,1.4584e-02_jprb,&
&1.4197e-02_jprb,1.2492e-02_jprb,5.4782e-03_jprb/)
kao( :, 1, 6, 4) = (/&
&2.9249e-03_jprb,6.3510e-03_jprb,7.7849e-03_jprb,8.4721e-03_jprb,8.7941e-03_jprb,8.8837e-03_jprb,&
&8.7388e-03_jprb,7.9841e-03_jprb,3.3710e-03_jprb/)
kao( :, 2, 6, 4) = (/&
&3.2672e-03_jprb,6.9385e-03_jprb,8.4203e-03_jprb,9.1541e-03_jprb,9.5165e-03_jprb,9.5904e-03_jprb,&
&9.4152e-03_jprb,8.5713e-03_jprb,3.6377e-03_jprb/)
kao( :, 3, 6, 4) = (/&
&3.6418e-03_jprb,7.5787e-03_jprb,9.0887e-03_jprb,9.8765e-03_jprb,1.0268e-02_jprb,1.0342e-02_jprb,&
&1.0116e-02_jprb,9.1545e-03_jprb,3.8990e-03_jprb/)
kao( :, 4, 6, 4) = (/&
&4.0414e-03_jprb,8.2510e-03_jprb,9.8093e-03_jprb,1.0646e-02_jprb,1.1060e-02_jprb,1.1134e-02_jprb,&
&1.0854e-02_jprb,9.7190e-03_jprb,4.1544e-03_jprb/)
kao( :, 5, 6, 4) = (/&
&4.4633e-03_jprb,8.9345e-03_jprb,1.0570e-02_jprb,1.1457e-02_jprb,1.1902e-02_jprb,1.1976e-02_jprb,&
&1.1614e-02_jprb,1.0272e-02_jprb,4.4061e-03_jprb/)
kao( :, 1, 7, 4) = (/&
&2.3975e-03_jprb,5.1959e-03_jprb,6.3675e-03_jprb,6.9242e-03_jprb,7.1717e-03_jprb,7.2208e-03_jprb,&
&7.0819e-03_jprb,6.4278e-03_jprb,2.6775e-03_jprb/)
kao( :, 2, 7, 4) = (/&
&2.6794e-03_jprb,5.6899e-03_jprb,6.9066e-03_jprb,7.4942e-03_jprb,7.7787e-03_jprb,7.8098e-03_jprb,&
&7.6464e-03_jprb,6.9290e-03_jprb,2.9001e-03_jprb/)
kao( :, 3, 7, 4) = (/&
&2.9849e-03_jprb,6.2316e-03_jprb,7.4741e-03_jprb,8.1056e-03_jprb,8.4139e-03_jprb,8.4374e-03_jprb,&
&8.2281e-03_jprb,7.4302e-03_jprb,3.1195e-03_jprb/)
kao( :, 4, 7, 4) = (/&
&3.3129e-03_jprb,6.7984e-03_jprb,8.0790e-03_jprb,8.7600e-03_jprb,9.0837e-03_jprb,9.1052e-03_jprb,&
&8.8458e-03_jprb,7.9231e-03_jprb,3.3376e-03_jprb/)
kao( :, 5, 7, 4) = (/&
&3.6598e-03_jprb,7.3757e-03_jprb,8.7298e-03_jprb,9.4547e-03_jprb,9.7958e-03_jprb,9.8221e-03_jprb,&
&9.4863e-03_jprb,8.4060e-03_jprb,3.5509e-03_jprb/)
kao( :, 1, 8, 4) = (/&
&1.9434e-03_jprb,4.2318e-03_jprb,5.1740e-03_jprb,5.6370e-03_jprb,5.8246e-03_jprb,5.8488e-03_jprb,&
&5.7327e-03_jprb,5.1810e-03_jprb,2.1537e-03_jprb/)
kao( :, 2, 8, 4) = (/&
&2.1750e-03_jprb,4.6511e-03_jprb,5.6344e-03_jprb,6.1150e-03_jprb,6.3286e-03_jprb,6.3404e-03_jprb,&
&6.2037e-03_jprb,5.6029e-03_jprb,2.3441e-03_jprb/)
kao( :, 3, 8, 4) = (/&
&2.4260e-03_jprb,5.1070e-03_jprb,6.1176e-03_jprb,6.6292e-03_jprb,6.8641e-03_jprb,6.8681e-03_jprb,&
&6.6887e-03_jprb,6.0329e-03_jprb,2.5317e-03_jprb/)
kao( :, 4, 8, 4) = (/&
&2.6978e-03_jprb,5.5812e-03_jprb,6.6317e-03_jprb,7.1849e-03_jprb,7.4298e-03_jprb,7.4337e-03_jprb,&
&7.2011e-03_jprb,6.4503e-03_jprb,2.7201e-03_jprb/)
kao( :, 5, 8, 4) = (/&
&2.9851e-03_jprb,6.0671e-03_jprb,7.1793e-03_jprb,7.7747e-03_jprb,8.0358e-03_jprb,8.0369e-03_jprb,&
&7.7421e-03_jprb,6.8660e-03_jprb,2.9050e-03_jprb/)
kao( :, 1, 9, 4) = (/&
&1.5624e-03_jprb,3.4224e-03_jprb,4.1803e-03_jprb,4.5613e-03_jprb,4.7117e-03_jprb,4.7269e-03_jprb,&
&4.6315e-03_jprb,4.1802e-03_jprb,2.0354e-03_jprb/)
kao( :, 2, 9, 4) = (/&
&1.7467e-03_jprb,3.7749e-03_jprb,4.5748e-03_jprb,4.9706e-03_jprb,5.1343e-03_jprb,5.1344e-03_jprb,&
&5.0243e-03_jprb,4.5350e-03_jprb,2.2250e-03_jprb/)
kao( :, 3, 9, 4) = (/&
&1.9492e-03_jprb,4.1547e-03_jprb,4.9867e-03_jprb,5.4054e-03_jprb,5.5868e-03_jprb,5.5764e-03_jprb,&
&5.4288e-03_jprb,4.8977e-03_jprb,2.4149e-03_jprb/)
kao( :, 4, 9, 4) = (/&
&2.1701e-03_jprb,4.5508e-03_jprb,5.4194e-03_jprb,5.8744e-03_jprb,6.0659e-03_jprb,6.0518e-03_jprb,&
&5.8540e-03_jprb,5.2537e-03_jprb,2.5971e-03_jprb/)
kao( :, 5, 9, 4) = (/&
&2.4022e-03_jprb,4.9613e-03_jprb,5.8787e-03_jprb,6.3727e-03_jprb,6.5778e-03_jprb,6.5618e-03_jprb,&
&6.3067e-03_jprb,5.6053e-03_jprb,2.7830e-03_jprb/)
kao( :, 1,10, 4) = (/&
&1.2651e-03_jprb,2.7744e-03_jprb,3.3801e-03_jprb,3.6900e-03_jprb,3.8178e-03_jprb,3.8360e-03_jprb,&
&3.7605e-03_jprb,3.3907e-03_jprb,2.1692e-03_jprb/)
kao( :, 2,10, 4) = (/&
&1.4111e-03_jprb,3.0657e-03_jprb,3.7136e-03_jprb,4.0421e-03_jprb,4.1735e-03_jprb,4.1745e-03_jprb,&
&4.0861e-03_jprb,3.6872e-03_jprb,2.3639e-03_jprb/)
kao( :, 3,10, 4) = (/&
&1.5740e-03_jprb,3.3806e-03_jprb,4.0618e-03_jprb,4.4105e-03_jprb,4.5571e-03_jprb,4.5460e-03_jprb,&
&4.4247e-03_jprb,3.9923e-03_jprb,2.5630e-03_jprb/)
kao( :, 4,10, 4) = (/&
&1.7522e-03_jprb,3.7084e-03_jprb,4.4249e-03_jprb,4.8035e-03_jprb,4.9639e-03_jprb,4.9498e-03_jprb,&
&4.7806e-03_jprb,4.2956e-03_jprb,2.7623e-03_jprb/)
kao( :, 5,10, 4) = (/&
&1.9383e-03_jprb,4.0495e-03_jprb,4.8094e-03_jprb,5.2222e-03_jprb,5.3934e-03_jprb,5.3817e-03_jprb,&
&5.1614e-03_jprb,4.5951e-03_jprb,2.9665e-03_jprb/)
kao( :, 1,11, 4) = (/&
&1.0742e-03_jprb,2.3468e-03_jprb,2.8469e-03_jprb,3.1039e-03_jprb,3.2098e-03_jprb,3.2233e-03_jprb,&
&3.1623e-03_jprb,2.8537e-03_jprb,1.9822e-03_jprb/)
kao( :, 2,11, 4) = (/&
&1.1960e-03_jprb,2.5965e-03_jprb,3.1323e-03_jprb,3.4077e-03_jprb,3.5194e-03_jprb,3.5164e-03_jprb,&
&3.4380e-03_jprb,3.1056e-03_jprb,2.1578e-03_jprb/)
kao( :, 3,11, 4) = (/&
&1.3316e-03_jprb,2.8599e-03_jprb,3.4277e-03_jprb,3.7260e-03_jprb,3.8497e-03_jprb,3.8405e-03_jprb,&
&3.7265e-03_jprb,3.3630e-03_jprb,2.3306e-03_jprb/)
kao( :, 4,11, 4) = (/&
&1.4781e-03_jprb,3.1344e-03_jprb,3.7357e-03_jprb,4.0610e-03_jprb,4.1987e-03_jprb,4.1913e-03_jprb,&
&4.0345e-03_jprb,3.6192e-03_jprb,2.5097e-03_jprb/)
kao( :, 5,11, 4) = (/&
&1.6288e-03_jprb,3.4177e-03_jprb,4.0619e-03_jprb,4.4185e-03_jprb,4.5672e-03_jprb,4.5600e-03_jprb,&
&4.3663e-03_jprb,3.8756e-03_jprb,2.6889e-03_jprb/)
kao( :, 1,12, 4) = (/&
&8.9874e-04_jprb,1.9689e-03_jprb,2.3835e-03_jprb,2.5973e-03_jprb,2.6864e-03_jprb,2.6939e-03_jprb,&
&2.6425e-03_jprb,2.3895e-03_jprb,1.7049e-03_jprb/)
kao( :, 2,12, 4) = (/&
&1.0002e-03_jprb,2.1778e-03_jprb,2.6233e-03_jprb,2.8564e-03_jprb,2.9517e-03_jprb,2.9476e-03_jprb,&
&2.8766e-03_jprb,2.6019e-03_jprb,1.8543e-03_jprb/)
kao( :, 3,12, 4) = (/&
&1.1122e-03_jprb,2.3973e-03_jprb,2.8713e-03_jprb,3.1266e-03_jprb,3.2310e-03_jprb,3.2276e-03_jprb,&
&3.1237e-03_jprb,2.8177e-03_jprb,2.0046e-03_jprb/)
kao( :, 4,12, 4) = (/&
&1.2310e-03_jprb,2.6254e-03_jprb,3.1305e-03_jprb,3.4112e-03_jprb,3.5275e-03_jprb,3.5259e-03_jprb,&
&3.3898e-03_jprb,3.0349e-03_jprb,2.1565e-03_jprb/)
kao( :, 5,12, 4) = (/&
&1.3518e-03_jprb,2.8575e-03_jprb,3.4006e-03_jprb,3.7092e-03_jprb,3.8403e-03_jprb,3.8370e-03_jprb,&
&3.6750e-03_jprb,3.2557e-03_jprb,2.3061e-03_jprb/)
kao( :, 1,13, 4) = (/&
&7.4537e-04_jprb,1.6409e-03_jprb,1.9863e-03_jprb,2.1648e-03_jprb,2.2399e-03_jprb,2.2444e-03_jprb,&
&2.1988e-03_jprb,1.9916e-03_jprb,1.4115e-03_jprb/)
kao( :, 2,13, 4) = (/&
&8.2943e-04_jprb,1.8143e-03_jprb,2.1850e-03_jprb,2.3828e-03_jprb,2.4639e-03_jprb,2.4609e-03_jprb,&
&2.3970e-03_jprb,2.1692e-03_jprb,1.5369e-03_jprb/)
kao( :, 3,13, 4) = (/&
&9.2142e-04_jprb,1.9970e-03_jprb,2.3927e-03_jprb,2.6093e-03_jprb,2.6971e-03_jprb,2.6969e-03_jprb,&
&2.6076e-03_jprb,2.3521e-03_jprb,1.6626e-03_jprb/)
kao( :, 4,13, 4) = (/&
&1.0167e-03_jprb,2.1837e-03_jprb,2.6078e-03_jprb,2.8478e-03_jprb,2.9467e-03_jprb,2.9488e-03_jprb,&
&2.8346e-03_jprb,2.5383e-03_jprb,1.7879e-03_jprb/)
kao( :, 5,13, 4) = (/&
&1.1138e-03_jprb,2.3733e-03_jprb,2.8290e-03_jprb,3.0924e-03_jprb,3.2079e-03_jprb,3.2103e-03_jprb,&
&3.0778e-03_jprb,2.7284e-03_jprb,1.9133e-03_jprb/)
kao( :, 1, 1, 5) = (/&
&1.7181e-02_jprb,3.2302e-02_jprb,3.8595e-02_jprb,4.2778e-02_jprb,4.5051e-02_jprb,4.5779e-02_jprb,&
&4.4076e-02_jprb,3.6499e-02_jprb,2.1167e-02_jprb/)
kao( :, 2, 1, 5) = (/&
&1.8715e-02_jprb,3.4583e-02_jprb,4.1400e-02_jprb,4.5830e-02_jprb,4.8256e-02_jprb,4.8951e-02_jprb,&
&4.6576e-02_jprb,3.8480e-02_jprb,2.2565e-02_jprb/)
kao( :, 3, 1, 5) = (/&
&2.0319e-02_jprb,3.6940e-02_jprb,4.4260e-02_jprb,4.8908e-02_jprb,5.1471e-02_jprb,5.2022e-02_jprb,&
&4.8965e-02_jprb,4.0507e-02_jprb,2.4057e-02_jprb/)
kao( :, 4, 1, 5) = (/&
&2.1938e-02_jprb,3.9364e-02_jprb,4.7234e-02_jprb,5.2022e-02_jprb,5.4697e-02_jprb,5.4911e-02_jprb,&
&5.1216e-02_jprb,4.2565e-02_jprb,2.5590e-02_jprb/)
kao( :, 5, 1, 5) = (/&
&2.3550e-02_jprb,4.1966e-02_jprb,5.0230e-02_jprb,5.5149e-02_jprb,5.7839e-02_jprb,5.7598e-02_jprb,&
&5.3448e-02_jprb,4.4689e-02_jprb,2.7100e-02_jprb/)
kao( :, 1, 2, 5) = (/&
&1.5052e-02_jprb,2.7803e-02_jprb,3.3102e-02_jprb,3.6670e-02_jprb,3.8668e-02_jprb,3.9030e-02_jprb,&
&3.7189e-02_jprb,3.0668e-02_jprb,1.6985e-02_jprb/)
kao( :, 2, 2, 5) = (/&
&1.6394e-02_jprb,2.9857e-02_jprb,3.5621e-02_jprb,3.9412e-02_jprb,4.1539e-02_jprb,4.1835e-02_jprb,&
&3.9351e-02_jprb,3.2356e-02_jprb,1.8150e-02_jprb/)
kao( :, 3, 2, 5) = (/&
&1.7773e-02_jprb,3.1981e-02_jprb,3.8209e-02_jprb,4.2190e-02_jprb,4.4385e-02_jprb,4.4554e-02_jprb,&
&4.1400e-02_jprb,3.4106e-02_jprb,1.9354e-02_jprb/)
kao( :, 4, 2, 5) = (/&
&1.9186e-02_jprb,3.4227e-02_jprb,4.0894e-02_jprb,4.4998e-02_jprb,4.7235e-02_jprb,4.7050e-02_jprb,&
&4.3366e-02_jprb,3.5935e-02_jprb,2.0592e-02_jprb/)
kao( :, 5, 2, 5) = (/&
&2.0602e-02_jprb,3.6657e-02_jprb,4.3639e-02_jprb,4.7854e-02_jprb,5.0031e-02_jprb,4.9403e-02_jprb,&
&4.5298e-02_jprb,3.7775e-02_jprb,2.1830e-02_jprb/)
kao( :, 1, 3, 5) = (/&
&1.3014e-02_jprb,2.3440e-02_jprb,2.7739e-02_jprb,3.0683e-02_jprb,3.2476e-02_jprb,3.2815e-02_jprb,&
&3.1052e-02_jprb,2.5347e-02_jprb,1.3409e-02_jprb/)
kao( :, 2, 3, 5) = (/&
&1.4134e-02_jprb,2.5267e-02_jprb,2.9956e-02_jprb,3.3121e-02_jprb,3.5013e-02_jprb,3.5276e-02_jprb,&
&3.2969e-02_jprb,2.6772e-02_jprb,1.4346e-02_jprb/)
kao( :, 3, 3, 5) = (/&
&1.5286e-02_jprb,2.7161e-02_jprb,3.2264e-02_jprb,3.5614e-02_jprb,3.7525e-02_jprb,3.7651e-02_jprb,&
&3.4766e-02_jprb,2.8284e-02_jprb,1.5307e-02_jprb/)
kao( :, 4, 3, 5) = (/&
&1.6478e-02_jprb,2.9176e-02_jprb,3.4663e-02_jprb,3.8132e-02_jprb,4.0060e-02_jprb,3.9857e-02_jprb,&
&3.6493e-02_jprb,2.9862e-02_jprb,1.6309e-02_jprb/)
kao( :, 5, 3, 5) = (/&
&1.7703e-02_jprb,3.1371e-02_jprb,3.7140e-02_jprb,4.0703e-02_jprb,4.2572e-02_jprb,4.1936e-02_jprb,&
&3.8184e-02_jprb,3.1459e-02_jprb,1.7321e-02_jprb/)
kao( :, 1, 4, 5) = (/&
&1.1231e-02_jprb,1.9592e-02_jprb,2.3001e-02_jprb,2.5417e-02_jprb,2.6918e-02_jprb,2.7254e-02_jprb,&
&2.5764e-02_jprb,2.0867e-02_jprb,1.0611e-02_jprb/)
kao( :, 2, 4, 5) = (/&
&1.2152e-02_jprb,2.1190e-02_jprb,2.4941e-02_jprb,2.7556e-02_jprb,2.9134e-02_jprb,2.9416e-02_jprb,&
&2.7448e-02_jprb,2.2085e-02_jprb,1.1371e-02_jprb/)
kao( :, 3, 4, 5) = (/&
&1.3112e-02_jprb,2.2852e-02_jprb,2.6983e-02_jprb,2.9739e-02_jprb,3.1347e-02_jprb,3.1506e-02_jprb,&
&2.9043e-02_jprb,2.3373e-02_jprb,1.2148e-02_jprb/)
kao( :, 4, 4, 5) = (/&
&1.4124e-02_jprb,2.4635e-02_jprb,2.9094e-02_jprb,3.1959e-02_jprb,3.3566e-02_jprb,3.3485e-02_jprb,&
&3.0596e-02_jprb,2.4717e-02_jprb,1.2964e-02_jprb/)
kao( :, 5, 4, 5) = (/&
&1.5184e-02_jprb,2.6570e-02_jprb,3.1299e-02_jprb,3.4230e-02_jprb,3.5790e-02_jprb,3.5353e-02_jprb,&
&3.2102e-02_jprb,2.6103e-02_jprb,1.3794e-02_jprb/)
kao( :, 1, 5, 5) = (/&
&9.6625e-03_jprb,1.6401e-02_jprb,1.9034e-02_jprb,2.0952e-02_jprb,2.2133e-02_jprb,2.2396e-02_jprb,&
&2.1200e-02_jprb,1.7173e-02_jprb,8.4178e-03_jprb/)
kao( :, 2, 5, 5) = (/&
&1.0438e-02_jprb,1.7777e-02_jprb,2.0706e-02_jprb,2.2811e-02_jprb,2.4067e-02_jprb,2.4293e-02_jprb,&
&2.2690e-02_jprb,1.8230e-02_jprb,9.0426e-03_jprb/)
kao( :, 3, 5, 5) = (/&
&1.1254e-02_jprb,1.9209e-02_jprb,2.2469e-02_jprb,2.4701e-02_jprb,2.6015e-02_jprb,2.6148e-02_jprb,&
&2.4123e-02_jprb,1.9342e-02_jprb,9.6801e-03_jprb/)
kao( :, 4, 5, 5) = (/&
&1.2133e-02_jprb,2.0762e-02_jprb,2.4308e-02_jprb,2.6645e-02_jprb,2.7949e-02_jprb,2.7917e-02_jprb,&
&2.5517e-02_jprb,2.0494e-02_jprb,1.0342e-02_jprb/)
kao( :, 5, 5, 5) = (/&
&1.3065e-02_jprb,2.2455e-02_jprb,2.6254e-02_jprb,2.8630e-02_jprb,2.9901e-02_jprb,2.9590e-02_jprb,&
&2.6871e-02_jprb,2.1687e-02_jprb,1.1028e-02_jprb/)
kao( :, 1, 6, 5) = (/&
&8.2007e-03_jprb,1.3715e-02_jprb,1.5729e-02_jprb,1.7180e-02_jprb,1.8048e-02_jprb,1.8207e-02_jprb,&
&1.7264e-02_jprb,1.4054e-02_jprb,6.6647e-03_jprb/)
kao( :, 2, 6, 5) = (/&
&8.8577e-03_jprb,1.4875e-02_jprb,1.7145e-02_jprb,1.8767e-02_jprb,1.9710e-02_jprb,1.9852e-02_jprb,&
&1.8586e-02_jprb,1.4966e-02_jprb,7.1861e-03_jprb/)
kao( :, 3, 6, 5) = (/&
&9.5621e-03_jprb,1.6088e-02_jprb,1.8646e-02_jprb,2.0384e-02_jprb,2.1390e-02_jprb,2.1481e-02_jprb,&
&1.9863e-02_jprb,1.5925e-02_jprb,7.7141e-03_jprb/)
kao( :, 4, 6, 5) = (/&
&1.0328e-02_jprb,1.7422e-02_jprb,2.0223e-02_jprb,2.2061e-02_jprb,2.3072e-02_jprb,2.3059e-02_jprb,&
&2.1135e-02_jprb,1.6924e-02_jprb,8.2553e-03_jprb/)
kao( :, 5, 6, 5) = (/&
&1.1150e-02_jprb,1.8880e-02_jprb,2.1894e-02_jprb,2.3787e-02_jprb,2.4780e-02_jprb,2.4546e-02_jprb,&
&2.2361e-02_jprb,1.7956e-02_jprb,8.8222e-03_jprb/)
kao( :, 1, 7, 5) = (/&
&6.8716e-03_jprb,1.1438e-02_jprb,1.2980e-02_jprb,1.4066e-02_jprb,1.4694e-02_jprb,1.4738e-02_jprb,&
&1.3970e-02_jprb,1.1459e-02_jprb,5.2799e-03_jprb/)
kao( :, 2, 7, 5) = (/&
&7.4237e-03_jprb,1.2422e-02_jprb,1.4174e-02_jprb,1.5413e-02_jprb,1.6105e-02_jprb,1.6152e-02_jprb,&
&1.5139e-02_jprb,1.2254e-02_jprb,5.7135e-03_jprb/)
kao( :, 3, 7, 5) = (/&
&8.0288e-03_jprb,1.3449e-02_jprb,1.5440e-02_jprb,1.6795e-02_jprb,1.7529e-02_jprb,1.7565e-02_jprb,&
&1.6277e-02_jprb,1.3083e-02_jprb,6.1506e-03_jprb/)
kao( :, 4, 7, 5) = (/&
&8.6956e-03_jprb,1.4582e-02_jprb,1.6791e-02_jprb,1.8226e-02_jprb,1.8968e-02_jprb,1.8943e-02_jprb,&
&1.7401e-02_jprb,1.3948e-02_jprb,6.5933e-03_jprb/)
kao( :, 5, 7, 5) = (/&
&9.4131e-03_jprb,1.5832e-02_jprb,1.8226e-02_jprb,1.9705e-02_jprb,2.0439e-02_jprb,2.0248e-02_jprb,&
&1.8508e-02_jprb,1.4839e-02_jprb,7.0585e-03_jprb/)
kao( :, 1, 8, 5) = (/&
&5.7435e-03_jprb,9.4740e-03_jprb,1.0676e-02_jprb,1.1493e-02_jprb,1.1955e-02_jprb,1.1929e-02_jprb,&
&1.1279e-02_jprb,9.3230e-03_jprb,4.2354e-03_jprb/)
kao( :, 2, 8, 5) = (/&
&6.2010e-03_jprb,1.0304e-02_jprb,1.1685e-02_jprb,1.2627e-02_jprb,1.3147e-02_jprb,1.3135e-02_jprb,&
&1.2304e-02_jprb,1.0014e-02_jprb,4.5941e-03_jprb/)
kao( :, 3, 8, 5) = (/&
&6.7137e-03_jprb,1.1183e-02_jprb,1.2753e-02_jprb,1.3801e-02_jprb,1.4354e-02_jprb,1.4340e-02_jprb,&
&1.3315e-02_jprb,1.0741e-02_jprb,4.9555e-03_jprb/)
kao( :, 4, 8, 5) = (/&
&7.2796e-03_jprb,1.2147e-02_jprb,1.3897e-02_jprb,1.5019e-02_jprb,1.5585e-02_jprb,1.5528e-02_jprb,&
&1.4315e-02_jprb,1.1502e-02_jprb,5.3165e-03_jprb/)
kao( :, 5, 8, 5) = (/&
&7.8871e-03_jprb,1.3218e-02_jprb,1.5130e-02_jprb,1.6296e-02_jprb,1.6839e-02_jprb,1.6669e-02_jprb,&
&1.5291e-02_jprb,1.2282e-02_jprb,5.6971e-03_jprb/)
kao( :, 1, 9, 5) = (/&
&4.7912e-03_jprb,7.8358e-03_jprb,8.7667e-03_jprb,9.3820e-03_jprb,9.7143e-03_jprb,9.6500e-03_jprb,&
&9.0841e-03_jprb,7.5626e-03_jprb,3.7702e-03_jprb/)
kao( :, 2, 9, 5) = (/&
&5.1805e-03_jprb,8.5367e-03_jprb,9.6133e-03_jprb,1.0334e-02_jprb,1.0715e-02_jprb,1.0676e-02_jprb,&
&9.9859e-03_jprb,8.1627e-03_jprb,4.1139e-03_jprb/)
kao( :, 3, 9, 5) = (/&
&5.6138e-03_jprb,9.2835e-03_jprb,1.0517e-02_jprb,1.1325e-02_jprb,1.1739e-02_jprb,1.1698e-02_jprb,&
&1.0873e-02_jprb,8.7929e-03_jprb,4.4462e-03_jprb/)
kao( :, 4, 9, 5) = (/&
&6.0888e-03_jprb,1.0103e-02_jprb,1.1488e-02_jprb,1.2361e-02_jprb,1.2785e-02_jprb,1.2718e-02_jprb,&
&1.1751e-02_jprb,9.4626e-03_jprb,4.7957e-03_jprb/)
kao( :, 5, 9, 5) = (/&
&6.6048e-03_jprb,1.1011e-02_jprb,1.2538e-02_jprb,1.3462e-02_jprb,1.3863e-02_jprb,1.3713e-02_jprb,&
&1.2615e-02_jprb,1.0155e-02_jprb,5.1561e-03_jprb/)
kao( :, 1,10, 5) = (/&
&3.9863e-03_jprb,6.4924e-03_jprb,7.2470e-03_jprb,7.7132e-03_jprb,7.9522e-03_jprb,7.8682e-03_jprb,&
&7.3679e-03_jprb,6.1741e-03_jprb,4.1464e-03_jprb/)
kao( :, 2,10, 5) = (/&
&4.3124e-03_jprb,7.0973e-03_jprb,7.9675e-03_jprb,8.5161e-03_jprb,8.8014e-03_jprb,8.7362e-03_jprb,&
&8.1504e-03_jprb,6.7002e-03_jprb,4.5619e-03_jprb/)
kao( :, 3,10, 5) = (/&
&4.6741e-03_jprb,7.7383e-03_jprb,8.7399e-03_jprb,9.3597e-03_jprb,9.6733e-03_jprb,9.6088e-03_jprb,&
&8.9286e-03_jprb,7.2584e-03_jprb,4.9900e-03_jprb/)
kao( :, 4,10, 5) = (/&
&5.0713e-03_jprb,8.4456e-03_jprb,9.5735e-03_jprb,1.0251e-02_jprb,1.0572e-02_jprb,1.0481e-02_jprb,&
&9.6979e-03_jprb,7.8488e-03_jprb,5.4214e-03_jprb/)
kao( :, 5,10, 5) = (/&
&5.5035e-03_jprb,9.2235e-03_jprb,1.0475e-02_jprb,1.1200e-02_jprb,1.1508e-02_jprb,1.1347e-02_jprb,&
&1.0465e-02_jprb,8.4573e-03_jprb,5.8532e-03_jprb/)
kao( :, 1,11, 5) = (/&
&3.4140e-03_jprb,5.5663e-03_jprb,6.2176e-03_jprb,6.6132e-03_jprb,6.8087e-03_jprb,6.7328e-03_jprb,&
&6.2855e-03_jprb,5.2486e-03_jprb,3.9285e-03_jprb/)
kao( :, 2,11, 5) = (/&
&3.6967e-03_jprb,6.0927e-03_jprb,6.8505e-03_jprb,7.3111e-03_jprb,7.5377e-03_jprb,7.4746e-03_jprb,&
&6.9609e-03_jprb,5.7240e-03_jprb,4.3138e-03_jprb/)
kao( :, 3,11, 5) = (/&
&4.0076e-03_jprb,6.6620e-03_jprb,7.5356e-03_jprb,8.0510e-03_jprb,8.2975e-03_jprb,8.2276e-03_jprb,&
&7.6355e-03_jprb,6.2275e-03_jprb,4.7141e-03_jprb/)
kao( :, 4,11, 5) = (/&
&4.3451e-03_jprb,7.2880e-03_jprb,8.2782e-03_jprb,8.8424e-03_jprb,9.0928e-03_jprb,8.9832e-03_jprb,&
&8.3078e-03_jprb,6.7453e-03_jprb,5.1152e-03_jprb/)
kao( :, 5,11, 5) = (/&
&4.7137e-03_jprb,7.9681e-03_jprb,9.0805e-03_jprb,9.6843e-03_jprb,9.9239e-03_jprb,9.7470e-03_jprb,&
&8.9796e-03_jprb,7.2798e-03_jprb,5.5223e-03_jprb/)
kao( :, 1,12, 5) = (/&
&2.8904e-03_jprb,4.7236e-03_jprb,5.2777e-03_jprb,5.6093e-03_jprb,5.7722e-03_jprb,5.7159e-03_jprb,&
&5.3358e-03_jprb,4.4458e-03_jprb,3.4411e-03_jprb/)
kao( :, 2,12, 5) = (/&
&3.1305e-03_jprb,5.1808e-03_jprb,5.8340e-03_jprb,6.2167e-03_jprb,6.4011e-03_jprb,6.3506e-03_jprb,&
&5.9136e-03_jprb,4.8660e-03_jprb,3.7674e-03_jprb/)
kao( :, 3,12, 5) = (/&
&3.3899e-03_jprb,5.6784e-03_jprb,6.4390e-03_jprb,6.8698e-03_jprb,7.0684e-03_jprb,6.9989e-03_jprb,&
&6.4975e-03_jprb,5.3037e-03_jprb,4.1043e-03_jprb/)
kao( :, 4,12, 5) = (/&
&3.6744e-03_jprb,6.2189e-03_jprb,7.0905e-03_jprb,7.5674e-03_jprb,7.7704e-03_jprb,7.6566e-03_jprb,&
&7.0778e-03_jprb,5.7507e-03_jprb,4.4508e-03_jprb/)
kao( :, 5,12, 5) = (/&
&3.9835e-03_jprb,6.8035e-03_jprb,7.7845e-03_jprb,8.3062e-03_jprb,8.4996e-03_jprb,8.3274e-03_jprb,&
&7.6592e-03_jprb,6.2151e-03_jprb,4.8132e-03_jprb/)
kao( :, 1,13, 5) = (/&
&2.4250e-03_jprb,3.9803e-03_jprb,4.4491e-03_jprb,4.7254e-03_jprb,4.8599e-03_jprb,4.8181e-03_jprb,&
&4.5058e-03_jprb,3.7586e-03_jprb,2.8856e-03_jprb/)
kao( :, 2,13, 5) = (/&
&2.6244e-03_jprb,4.3727e-03_jprb,4.9354e-03_jprb,5.2533e-03_jprb,5.4054e-03_jprb,5.3645e-03_jprb,&
&5.0027e-03_jprb,4.1245e-03_jprb,3.1558e-03_jprb/)
kao( :, 3,13, 5) = (/&
&2.8394e-03_jprb,4.7986e-03_jprb,5.4578e-03_jprb,5.8227e-03_jprb,5.9899e-03_jprb,5.9263e-03_jprb,&
&5.5030e-03_jprb,4.4990e-03_jprb,3.4378e-03_jprb/)
kao( :, 4,13, 5) = (/&
&3.0777e-03_jprb,5.2577e-03_jprb,6.0171e-03_jprb,6.4265e-03_jprb,6.6019e-03_jprb,6.4996e-03_jprb,&
&6.0065e-03_jprb,4.8862e-03_jprb,3.7311e-03_jprb/)
kao( :, 5,13, 5) = (/&
&3.3322e-03_jprb,5.7564e-03_jprb,6.6107e-03_jprb,7.0607e-03_jprb,7.2295e-03_jprb,7.0815e-03_jprb,&
&6.5094e-03_jprb,5.2886e-03_jprb,4.0375e-03_jprb/)
kao( :, 1, 1, 6) = (/&
&4.8059e-02_jprb,7.5661e-02_jprb,8.9697e-02_jprb,9.6448e-02_jprb,9.6739e-02_jprb,9.1321e-02_jprb,&
&8.0664e-02_jprb,6.5698e-02_jprb,4.2723e-02_jprb/)
kao( :, 2, 1, 6) = (/&
&5.1263e-02_jprb,8.1256e-02_jprb,9.5858e-02_jprb,1.0217e-01_jprb,1.0171e-01_jprb,9.5631e-02_jprb,&
&8.5046e-02_jprb,6.9688e-02_jprb,4.5844e-02_jprb/)
kao( :, 3, 1, 6) = (/&
&5.4622e-02_jprb,8.6828e-02_jprb,1.0177e-01_jprb,1.0751e-01_jprb,1.0632e-01_jprb,9.9795e-02_jprb,&
&8.9370e-02_jprb,7.3806e-02_jprb,4.9014e-02_jprb/)
kao( :, 4, 1, 6) = (/&
&5.8181e-02_jprb,9.2294e-02_jprb,1.0720e-01_jprb,1.1246e-01_jprb,1.1070e-01_jprb,1.0392e-01_jprb,&
&9.3642e-02_jprb,7.8008e-02_jprb,5.2233e-02_jprb/)
kao( :, 5, 1, 6) = (/&
&6.1920e-02_jprb,9.7606e-02_jprb,1.1219e-01_jprb,1.1714e-01_jprb,1.1501e-01_jprb,1.0812e-01_jprb,&
&9.7841e-02_jprb,8.2254e-02_jprb,5.5493e-02_jprb/)
kao( :, 1, 2, 6) = (/&
&4.2387e-02_jprb,6.7507e-02_jprb,7.8624e-02_jprb,8.3202e-02_jprb,8.2483e-02_jprb,7.7642e-02_jprb,&
&6.8845e-02_jprb,5.6151e-02_jprb,3.4701e-02_jprb/)
kao( :, 2, 2, 6) = (/&
&4.5358e-02_jprb,7.2621e-02_jprb,8.4105e-02_jprb,8.8143e-02_jprb,8.6828e-02_jprb,8.1423e-02_jprb,&
&7.2754e-02_jprb,5.9777e-02_jprb,3.7226e-02_jprb/)
kao( :, 3, 2, 6) = (/&
&4.8530e-02_jprb,7.7675e-02_jprb,8.9237e-02_jprb,9.2816e-02_jprb,9.0945e-02_jprb,8.5108e-02_jprb,&
&7.6583e-02_jprb,6.3482e-02_jprb,3.9865e-02_jprb/)
kao( :, 4, 2, 6) = (/&
&5.1885e-02_jprb,8.2602e-02_jprb,9.3935e-02_jprb,9.7188e-02_jprb,9.4884e-02_jprb,8.8874e-02_jprb,&
&8.0329e-02_jprb,6.7178e-02_jprb,4.2571e-02_jprb/)
kao( :, 5, 2, 6) = (/&
&5.5413e-02_jprb,8.7298e-02_jprb,9.8304e-02_jprb,1.0128e-01_jprb,9.8763e-02_jprb,9.2748e-02_jprb,&
&8.4077e-02_jprb,7.0956e-02_jprb,4.5317e-02_jprb/)
kao( :, 1, 3, 6) = (/&
&3.6455e-02_jprb,5.8761e-02_jprb,6.7738e-02_jprb,7.0855e-02_jprb,6.9598e-02_jprb,6.5071e-02_jprb,&
&5.7664e-02_jprb,4.7187e-02_jprb,2.7522e-02_jprb/)
kao( :, 2, 3, 6) = (/&
&3.9177e-02_jprb,6.3373e-02_jprb,7.2623e-02_jprb,7.5288e-02_jprb,7.3424e-02_jprb,6.8383e-02_jprb,&
&6.1089e-02_jprb,5.0369e-02_jprb,2.9594e-02_jprb/)
kao( :, 3, 3, 6) = (/&
&4.2098e-02_jprb,6.7937e-02_jprb,7.7177e-02_jprb,7.9459e-02_jprb,7.7094e-02_jprb,7.1679e-02_jprb,&
&6.4440e-02_jprb,5.3598e-02_jprb,3.1800e-02_jprb/)
kao( :, 4, 3, 6) = (/&
&4.5184e-02_jprb,7.2373e-02_jprb,8.1328e-02_jprb,8.3304e-02_jprb,8.0619e-02_jprb,7.5059e-02_jprb,&
&6.7785e-02_jprb,5.6837e-02_jprb,3.4061e-02_jprb/)
kao( :, 5, 3, 6) = (/&
&4.8428e-02_jprb,7.6612e-02_jprb,8.5198e-02_jprb,8.6971e-02_jprb,8.4087e-02_jprb,7.8597e-02_jprb,&
&7.1152e-02_jprb,6.0069e-02_jprb,3.6300e-02_jprb/)
kao( :, 1, 4, 6) = (/&
&3.0996e-02_jprb,5.0246e-02_jprb,5.7596e-02_jprb,5.9940e-02_jprb,5.8577e-02_jprb,5.4443e-02_jprb,&
&4.7987e-02_jprb,3.9247e-02_jprb,2.1796e-02_jprb/)
kao( :, 2, 4, 6) = (/&
&3.3466e-02_jprb,5.4388e-02_jprb,6.1941e-02_jprb,6.3890e-02_jprb,6.2051e-02_jprb,5.7420e-02_jprb,&
&5.0954e-02_jprb,4.2026e-02_jprb,2.3521e-02_jprb/)
kao( :, 3, 4, 6) = (/&
&3.6103e-02_jprb,5.8512e-02_jprb,6.5986e-02_jprb,6.7619e-02_jprb,6.5381e-02_jprb,6.0341e-02_jprb,&
&5.3887e-02_jprb,4.4806e-02_jprb,2.5354e-02_jprb/)
kao( :, 4, 4, 6) = (/&
&3.8902e-02_jprb,6.2522e-02_jprb,6.9761e-02_jprb,7.1083e-02_jprb,6.8563e-02_jprb,6.3337e-02_jprb,&
&5.6817e-02_jprb,4.7569e-02_jprb,2.7230e-02_jprb/)
kao( :, 5, 4, 6) = (/&
&4.1856e-02_jprb,6.6293e-02_jprb,7.3260e-02_jprb,7.4402e-02_jprb,7.1665e-02_jprb,6.6453e-02_jprb,&
&5.9783e-02_jprb,5.0307e-02_jprb,2.9093e-02_jprb/)
kao( :, 1, 5, 6) = (/&
&2.6300e-02_jprb,4.2494e-02_jprb,4.8463e-02_jprb,5.0296e-02_jprb,4.9139e-02_jprb,4.5597e-02_jprb,&
&3.9984e-02_jprb,3.2427e-02_jprb,1.7285e-02_jprb/)
kao( :, 2, 5, 6) = (/&
&2.8485e-02_jprb,4.6204e-02_jprb,5.2338e-02_jprb,5.3863e-02_jprb,5.2270e-02_jprb,4.8312e-02_jprb,&
&4.2548e-02_jprb,3.4804e-02_jprb,1.8719e-02_jprb/)
kao( :, 3, 5, 6) = (/&
&3.0827e-02_jprb,4.9910e-02_jprb,5.5974e-02_jprb,5.7207e-02_jprb,5.5255e-02_jprb,5.0912e-02_jprb,&
&4.5100e-02_jprb,3.7174e-02_jprb,2.0228e-02_jprb/)
kao( :, 4, 5, 6) = (/&
&3.3317e-02_jprb,5.3494e-02_jprb,5.9405e-02_jprb,6.0361e-02_jprb,5.8140e-02_jprb,5.3556e-02_jprb,&
&4.7658e-02_jprb,3.9537e-02_jprb,2.1785e-02_jprb/)
kao( :, 5, 5, 6) = (/&
&3.5980e-02_jprb,5.6835e-02_jprb,6.2631e-02_jprb,6.3411e-02_jprb,6.1001e-02_jprb,5.6317e-02_jprb,&
&5.0255e-02_jprb,4.1909e-02_jprb,2.3351e-02_jprb/)
kao( :, 1, 6, 6) = (/&
&2.2346e-02_jprb,3.5586e-02_jprb,4.0310e-02_jprb,4.1785e-02_jprb,4.0899e-02_jprb,3.7930e-02_jprb,&
&3.3177e-02_jprb,2.6660e-02_jprb,1.3671e-02_jprb/)
kao( :, 2, 6, 6) = (/&
&2.4236e-02_jprb,3.8875e-02_jprb,4.3767e-02_jprb,4.4998e-02_jprb,4.3719e-02_jprb,4.0355e-02_jprb,&
&3.5414e-02_jprb,2.8669e-02_jprb,1.4853e-02_jprb/)
kao( :, 3, 6, 6) = (/&
&2.6259e-02_jprb,4.2194e-02_jprb,4.7065e-02_jprb,4.8039e-02_jprb,4.6410e-02_jprb,4.2692e-02_jprb,&
&3.7647e-02_jprb,3.0658e-02_jprb,1.6097e-02_jprb/)
kao( :, 4, 6, 6) = (/&
&2.8435e-02_jprb,4.5379e-02_jprb,5.0168e-02_jprb,5.0950e-02_jprb,4.9017e-02_jprb,4.5071e-02_jprb,&
&3.9870e-02_jprb,3.2675e-02_jprb,1.7389e-02_jprb/)
kao( :, 5, 6, 6) = (/&
&3.0784e-02_jprb,4.8355e-02_jprb,5.3115e-02_jprb,5.3744e-02_jprb,5.1611e-02_jprb,4.7542e-02_jprb,&
&4.2135e-02_jprb,3.4713e-02_jprb,1.8719e-02_jprb/)
kao( :, 1, 7, 6) = (/&
&1.9038e-02_jprb,2.9659e-02_jprb,3.3335e-02_jprb,3.4533e-02_jprb,3.3796e-02_jprb,3.1353e-02_jprb,&
&2.7369e-02_jprb,2.1858e-02_jprb,1.0821e-02_jprb/)
kao( :, 2, 7, 6) = (/&
&2.0661e-02_jprb,3.2535e-02_jprb,3.6409e-02_jprb,3.7416e-02_jprb,3.6337e-02_jprb,3.3530e-02_jprb,&
&2.9317e-02_jprb,2.3570e-02_jprb,1.1782e-02_jprb/)
kao( :, 3, 7, 6) = (/&
&2.2409e-02_jprb,3.5475e-02_jprb,3.9394e-02_jprb,4.0148e-02_jprb,3.8791e-02_jprb,3.5637e-02_jprb,&
&3.1269e-02_jprb,2.5254e-02_jprb,1.2818e-02_jprb/)
kao( :, 4, 7, 6) = (/&
&2.4302e-02_jprb,3.8296e-02_jprb,4.2195e-02_jprb,4.2786e-02_jprb,4.1191e-02_jprb,3.7785e-02_jprb,&
&3.3232e-02_jprb,2.6957e-02_jprb,1.3893e-02_jprb/)
kao( :, 5, 7, 6) = (/&
&2.6331e-02_jprb,4.0952e-02_jprb,4.4849e-02_jprb,4.5357e-02_jprb,4.3572e-02_jprb,4.0019e-02_jprb,&
&3.5226e-02_jprb,2.8694e-02_jprb,1.5017e-02_jprb/)
kao( :, 1, 8, 6) = (/&
&1.6199e-02_jprb,2.4730e-02_jprb,2.7533e-02_jprb,2.8457e-02_jprb,2.7828e-02_jprb,2.5812e-02_jprb,&
&2.2538e-02_jprb,1.7879e-02_jprb,8.5690e-03_jprb/)
kao( :, 2, 8, 6) = (/&
&1.7586e-02_jprb,2.7225e-02_jprb,3.0249e-02_jprb,3.1021e-02_jprb,3.0098e-02_jprb,2.7767e-02_jprb,&
&2.4248e-02_jprb,1.9357e-02_jprb,9.3582e-03_jprb/)
kao( :, 3, 8, 6) = (/&
&1.9094e-02_jprb,2.9782e-02_jprb,3.2913e-02_jprb,3.3499e-02_jprb,3.2325e-02_jprb,2.9706e-02_jprb,&
&2.5968e-02_jprb,2.0796e-02_jprb,1.0214e-02_jprb/)
kao( :, 4, 8, 6) = (/&
&2.0716e-02_jprb,3.2253e-02_jprb,3.5436e-02_jprb,3.5895e-02_jprb,3.4530e-02_jprb,3.1664e-02_jprb,&
&2.7699e-02_jprb,2.2256e-02_jprb,1.1116e-02_jprb/)
kao( :, 5, 8, 6) = (/&
&2.2480e-02_jprb,3.4617e-02_jprb,3.7818e-02_jprb,3.8224e-02_jprb,3.6738e-02_jprb,3.3713e-02_jprb,&
&2.9501e-02_jprb,2.3740e-02_jprb,1.2059e-02_jprb/)
kao( :, 1, 9, 6) = (/&
&1.3777e-02_jprb,2.0619e-02_jprb,2.2737e-02_jprb,2.3415e-02_jprb,2.2850e-02_jprb,2.1193e-02_jprb,&
&1.8507e-02_jprb,1.4598e-02_jprb,7.1490e-03_jprb/)
kao( :, 2, 9, 6) = (/&
&1.4973e-02_jprb,2.2774e-02_jprb,2.5113e-02_jprb,2.5666e-02_jprb,2.4873e-02_jprb,2.2943e-02_jprb,&
&2.0009e-02_jprb,1.5897e-02_jprb,7.8590e-03_jprb/)
kao( :, 3, 9, 6) = (/&
&1.6264e-02_jprb,2.4964e-02_jprb,2.7466e-02_jprb,2.7896e-02_jprb,2.6883e-02_jprb,2.4711e-02_jprb,&
&2.1541e-02_jprb,1.7155e-02_jprb,8.6415e-03_jprb/)
kao( :, 4, 9, 6) = (/&
&1.7663e-02_jprb,2.7143e-02_jprb,2.9704e-02_jprb,3.0059e-02_jprb,2.8911e-02_jprb,2.6494e-02_jprb,&
&2.3105e-02_jprb,1.8422e-02_jprb,9.4633e-03_jprb/)
kao( :, 5, 9, 6) = (/&
&1.9189e-02_jprb,2.9225e-02_jprb,3.1858e-02_jprb,3.2145e-02_jprb,3.0918e-02_jprb,2.8362e-02_jprb,&
&2.4736e-02_jprb,1.9714e-02_jprb,1.0309e-02_jprb/)
kao( :, 1,10, 6) = (/&
&1.1829e-02_jprb,1.7391e-02_jprb,1.8971e-02_jprb,1.9425e-02_jprb,1.8925e-02_jprb,1.7526e-02_jprb,&
&1.5318e-02_jprb,1.2046e-02_jprb,7.9104e-03_jprb/)
kao( :, 2,10, 6) = (/&
&1.2882e-02_jprb,1.9237e-02_jprb,2.1011e-02_jprb,2.1409e-02_jprb,2.0725e-02_jprb,1.9099e-02_jprb,&
&1.6657e-02_jprb,1.3189e-02_jprb,8.8513e-03_jprb/)
kao( :, 3,10, 6) = (/&
&1.4005e-02_jprb,2.1109e-02_jprb,2.3070e-02_jprb,2.3396e-02_jprb,2.2541e-02_jprb,2.0715e-02_jprb,&
&1.8034e-02_jprb,1.4319e-02_jprb,9.8121e-03_jprb/)
kao( :, 4,10, 6) = (/&
&1.5220e-02_jprb,2.2998e-02_jprb,2.5049e-02_jprb,2.5317e-02_jprb,2.4368e-02_jprb,2.2361e-02_jprb,&
&1.9453e-02_jprb,1.5444e-02_jprb,1.0807e-02_jprb/)
kao( :, 5,10, 6) = (/&
&1.6552e-02_jprb,2.4838e-02_jprb,2.6967e-02_jprb,2.7211e-02_jprb,2.6179e-02_jprb,2.4058e-02_jprb,&
&2.0933e-02_jprb,1.6593e-02_jprb,1.1823e-02_jprb/)
kao( :, 1,11, 6) = (/&
&1.0495e-02_jprb,1.5432e-02_jprb,1.6714e-02_jprb,1.6992e-02_jprb,1.6455e-02_jprb,1.5168e-02_jprb,&
&1.3224e-02_jprb,1.0391e-02_jprb,8.1978e-03_jprb/)
kao( :, 2,11, 6) = (/&
&1.1451e-02_jprb,1.7054e-02_jprb,1.8505e-02_jprb,1.8735e-02_jprb,1.8057e-02_jprb,1.6595e-02_jprb,&
&1.4441e-02_jprb,1.1397e-02_jprb,9.2592e-03_jprb/)
kao( :, 3,11, 6) = (/&
&1.2482e-02_jprb,1.8697e-02_jprb,2.0258e-02_jprb,2.0450e-02_jprb,1.9674e-02_jprb,1.8068e-02_jprb,&
&1.5698e-02_jprb,1.2409e-02_jprb,1.0347e-02_jprb/)
kao( :, 4,11, 6) = (/&
&1.3612e-02_jprb,2.0341e-02_jprb,2.1972e-02_jprb,2.2138e-02_jprb,2.1292e-02_jprb,1.9560e-02_jprb,&
&1.7011e-02_jprb,1.3437e-02_jprb,1.1444e-02_jprb/)
kao( :, 5,11, 6) = (/&
&1.4838e-02_jprb,2.1977e-02_jprb,2.3658e-02_jprb,2.3819e-02_jprb,2.2926e-02_jprb,2.1098e-02_jprb,&
&1.8364e-02_jprb,1.4494e-02_jprb,1.2537e-02_jprb/)
kao( :, 1,12, 6) = (/&
&9.1433e-03_jprb,1.3500e-02_jprb,1.4586e-02_jprb,1.4769e-02_jprb,1.4241e-02_jprb,1.3083e-02_jprb,&
&1.1367e-02_jprb,8.9090e-03_jprb,7.5780e-03_jprb/)
kao( :, 2,12, 6) = (/&
&1.0001e-02_jprb,1.4910e-02_jprb,1.6125e-02_jprb,1.6273e-02_jprb,1.5652e-02_jprb,1.4357e-02_jprb,&
&1.2453e-02_jprb,9.7929e-03_jprb,8.5785e-03_jprb/)
kao( :, 3,12, 6) = (/&
&1.0949e-02_jprb,1.6356e-02_jprb,1.7635e-02_jprb,1.7750e-02_jprb,1.7058e-02_jprb,1.5652e-02_jprb,&
&1.3578e-02_jprb,1.0697e-02_jprb,9.5948e-03_jprb/)
kao( :, 4,12, 6) = (/&
&1.1985e-02_jprb,1.7801e-02_jprb,1.9128e-02_jprb,1.9222e-02_jprb,1.8476e-02_jprb,1.6972e-02_jprb,&
&1.4745e-02_jprb,1.1628e-02_jprb,1.0600e-02_jprb/)
kao( :, 5,12, 6) = (/&
&1.3096e-02_jprb,1.9267e-02_jprb,2.0626e-02_jprb,2.0713e-02_jprb,1.9923e-02_jprb,1.8336e-02_jprb,&
&1.5960e-02_jprb,1.2572e-02_jprb,1.1582e-02_jprb/)
kao( :, 1,13, 6) = (/&
&7.8612e-03_jprb,1.1670e-02_jprb,1.2609e-02_jprb,1.2723e-02_jprb,1.2259e-02_jprb,1.1258e-02_jprb,&
&9.7650e-03_jprb,7.6525e-03_jprb,6.5421e-03_jprb/)
kao( :, 2,13, 6) = (/&
&8.6369e-03_jprb,1.2899e-02_jprb,1.3916e-02_jprb,1.4009e-02_jprb,1.3482e-02_jprb,1.2381e-02_jprb,&
&1.0732e-02_jprb,8.4378e-03_jprb,7.4103e-03_jprb/)
kao( :, 3,13, 6) = (/&
&9.4942e-03_jprb,1.4163e-02_jprb,1.5223e-02_jprb,1.5298e-02_jprb,1.4708e-02_jprb,1.3515e-02_jprb,&
&1.1735e-02_jprb,9.2523e-03_jprb,8.2790e-03_jprb/)
kao( :, 4,13, 6) = (/&
&1.0421e-02_jprb,1.5442e-02_jprb,1.6542e-02_jprb,1.6603e-02_jprb,1.5959e-02_jprb,1.4684e-02_jprb,&
&1.2779e-02_jprb,1.0090e-02_jprb,9.1372e-03_jprb/)
kao( :, 5,13, 6) = (/&
&1.1403e-02_jprb,1.6752e-02_jprb,1.7882e-02_jprb,1.7947e-02_jprb,1.7255e-02_jprb,1.5898e-02_jprb,&
&1.3874e-02_jprb,1.0931e-02_jprb,9.9832e-03_jprb/)
kao( :, 1, 1, 7) = (/&
&1.6154e-01_jprb,1.9464e-01_jprb,1.9968e-01_jprb,1.9566e-01_jprb,1.8810e-01_jprb,1.7612e-01_jprb,&
&1.6037e-01_jprb,1.3871e-01_jprb,9.9439e-02_jprb/)
kao( :, 2, 1, 7) = (/&
&1.6718e-01_jprb,2.0083e-01_jprb,2.0683e-01_jprb,2.0477e-01_jprb,1.9764e-01_jprb,1.8624e-01_jprb,&
&1.6994e-01_jprb,1.4688e-01_jprb,1.0691e-01_jprb/)
kao( :, 3, 1, 7) = (/&
&1.7242e-01_jprb,2.0656e-01_jprb,2.1371e-01_jprb,2.1366e-01_jprb,2.0783e-01_jprb,1.9677e-01_jprb,&
&1.7978e-01_jprb,1.5487e-01_jprb,1.1430e-01_jprb/)
kao( :, 4, 1, 7) = (/&
&1.7742e-01_jprb,2.1213e-01_jprb,2.2064e-01_jprb,2.2231e-01_jprb,2.1832e-01_jprb,2.0746e-01_jprb,&
&1.8983e-01_jprb,1.6294e-01_jprb,1.2155e-01_jprb/)
kao( :, 5, 1, 7) = (/&
&1.8214e-01_jprb,2.1767e-01_jprb,2.2778e-01_jprb,2.3090e-01_jprb,2.2852e-01_jprb,2.1832e-01_jprb,&
&2.0005e-01_jprb,1.7084e-01_jprb,1.2867e-01_jprb/)
kao( :, 1, 2, 7) = (/&
&1.4145e-01_jprb,1.6994e-01_jprb,1.7429e-01_jprb,1.7183e-01_jprb,1.6506e-01_jprb,1.5419e-01_jprb,&
&1.3930e-01_jprb,1.2012e-01_jprb,8.1602e-02_jprb/)
kao( :, 2, 2, 7) = (/&
&1.4643e-01_jprb,1.7555e-01_jprb,1.8089e-01_jprb,1.8028e-01_jprb,1.7424e-01_jprb,1.6361e-01_jprb,&
&1.4828e-01_jprb,1.2787e-01_jprb,8.7984e-02_jprb/)
kao( :, 3, 2, 7) = (/&
&1.5117e-01_jprb,1.8085e-01_jprb,1.8746e-01_jprb,1.8838e-01_jprb,1.8361e-01_jprb,1.7334e-01_jprb,&
&1.5765e-01_jprb,1.3543e-01_jprb,9.4264e-02_jprb/)
kao( :, 4, 2, 7) = (/&
&1.5573e-01_jprb,1.8623e-01_jprb,1.9419e-01_jprb,1.9646e-01_jprb,1.9291e-01_jprb,1.8328e-01_jprb,&
&1.6725e-01_jprb,1.4294e-01_jprb,1.0040e-01_jprb/)
kao( :, 5, 2, 7) = (/&
&1.6013e-01_jprb,1.9161e-01_jprb,2.0111e-01_jprb,2.0451e-01_jprb,2.0197e-01_jprb,1.9329e-01_jprb,&
&1.7696e-01_jprb,1.5031e-01_jprb,1.0647e-01_jprb/)
kao( :, 1, 3, 7) = (/&
&1.2309e-01_jprb,1.4704e-01_jprb,1.5024e-01_jprb,1.4812e-01_jprb,1.4219e-01_jprb,1.3226e-01_jprb,&
&1.1881e-01_jprb,1.0141e-01_jprb,6.5459e-02_jprb/)
kao( :, 2, 3, 7) = (/&
&1.2767e-01_jprb,1.5222e-01_jprb,1.5637e-01_jprb,1.5568e-01_jprb,1.5055e-01_jprb,1.4090e-01_jprb,&
&1.2701e-01_jprb,1.0859e-01_jprb,7.0881e-02_jprb/)
kao( :, 3, 3, 7) = (/&
&1.3203e-01_jprb,1.5727e-01_jprb,1.6255e-01_jprb,1.6317e-01_jprb,1.5886e-01_jprb,1.4989e-01_jprb,&
&1.3559e-01_jprb,1.1576e-01_jprb,7.6083e-02_jprb/)
kao( :, 4, 3, 7) = (/&
&1.3635e-01_jprb,1.6234e-01_jprb,1.6898e-01_jprb,1.7060e-01_jprb,1.6716e-01_jprb,1.5892e-01_jprb,&
&1.4437e-01_jprb,1.2295e-01_jprb,8.1201e-02_jprb/)
kao( :, 5, 3, 7) = (/&
&1.4056e-01_jprb,1.6755e-01_jprb,1.7569e-01_jprb,1.7797e-01_jprb,1.7536e-01_jprb,1.6774e-01_jprb,&
&1.5329e-01_jprb,1.3002e-01_jprb,8.6370e-02_jprb/)
kao( :, 1, 4, 7) = (/&
&1.0694e-01_jprb,1.2727e-01_jprb,1.2915e-01_jprb,1.2666e-01_jprb,1.2117e-01_jprb,1.1228e-01_jprb,&
&1.0026e-01_jprb,8.4627e-02_jprb,5.2347e-02_jprb/)
kao( :, 2, 4, 7) = (/&
&1.1128e-01_jprb,1.3208e-01_jprb,1.3481e-01_jprb,1.3351e-01_jprb,1.2855e-01_jprb,1.2006e-01_jprb,&
&1.0771e-01_jprb,9.1021e-02_jprb,5.6953e-02_jprb/)
kao( :, 3, 4, 7) = (/&
&1.1540e-01_jprb,1.3680e-01_jprb,1.4057e-01_jprb,1.4029e-01_jprb,1.3591e-01_jprb,1.2809e-01_jprb,&
&1.1544e-01_jprb,9.7575e-02_jprb,6.1322e-02_jprb/)
kao( :, 4, 4, 7) = (/&
&1.1945e-01_jprb,1.4164e-01_jprb,1.4662e-01_jprb,1.4706e-01_jprb,1.4340e-01_jprb,1.3603e-01_jprb,&
&1.2336e-01_jprb,1.0424e-01_jprb,6.5662e-02_jprb/)
kao( :, 5, 4, 7) = (/&
&1.2340e-01_jprb,1.4675e-01_jprb,1.5288e-01_jprb,1.5380e-01_jprb,1.5079e-01_jprb,1.4378e-01_jprb,&
&1.3119e-01_jprb,1.1079e-01_jprb,7.0042e-02_jprb/)
kao( :, 1, 5, 7) = (/&
&9.2366e-02_jprb,1.1024e-01_jprb,1.1122e-01_jprb,1.0839e-01_jprb,1.0297e-01_jprb,9.4813e-02_jprb,&
&8.4116e-02_jprb,7.0267e-02_jprb,4.1776e-02_jprb/)
kao( :, 2, 5, 7) = (/&
&9.6355e-02_jprb,1.1479e-01_jprb,1.1644e-01_jprb,1.1449e-01_jprb,1.0946e-01_jprb,1.0165e-01_jprb,&
&9.0750e-02_jprb,7.5967e-02_jprb,4.5678e-02_jprb/)
kao( :, 3, 5, 7) = (/&
&1.0024e-01_jprb,1.1923e-01_jprb,1.2179e-01_jprb,1.2053e-01_jprb,1.1597e-01_jprb,1.0868e-01_jprb,&
&9.7605e-02_jprb,8.1879e-02_jprb,4.9420e-02_jprb/)
kao( :, 4, 5, 7) = (/&
&1.0406e-01_jprb,1.2386e-01_jprb,1.2729e-01_jprb,1.2663e-01_jprb,1.2262e-01_jprb,1.1560e-01_jprb,&
&1.0455e-01_jprb,8.7805e-02_jprb,5.3104e-02_jprb/)
kao( :, 5, 5, 7) = (/&
&1.0784e-01_jprb,1.2877e-01_jprb,1.3298e-01_jprb,1.3282e-01_jprb,1.2921e-01_jprb,1.2238e-01_jprb,&
&1.1132e-01_jprb,9.3754e-02_jprb,5.6821e-02_jprb/)
kao( :, 1, 6, 7) = (/&
&7.9024e-02_jprb,9.4822e-02_jprb,9.5344e-02_jprb,9.2551e-02_jprb,8.7276e-02_jprb,7.9771e-02_jprb,&
&7.0098e-02_jprb,5.7834e-02_jprb,3.3015e-02_jprb/)
kao( :, 2, 6, 7) = (/&
&8.2738e-02_jprb,9.8989e-02_jprb,1.0012e-01_jprb,9.7961e-02_jprb,9.2877e-02_jprb,8.5652e-02_jprb,&
&7.5923e-02_jprb,6.2877e-02_jprb,3.6314e-02_jprb/)
kao( :, 3, 6, 7) = (/&
&8.6408e-02_jprb,1.0314e-01_jprb,1.0499e-01_jprb,1.0331e-01_jprb,9.8576e-02_jprb,9.1675e-02_jprb,&
&8.1907e-02_jprb,6.8103e-02_jprb,3.9534e-02_jprb/)
kao( :, 4, 6, 7) = (/&
&9.0076e-02_jprb,1.0755e-01_jprb,1.1005e-01_jprb,1.0872e-01_jprb,1.0446e-01_jprb,9.7640e-02_jprb,&
&8.7824e-02_jprb,7.3333e-02_jprb,4.2688e-02_jprb/)
kao( :, 5, 6, 7) = (/&
&9.3695e-02_jprb,1.1225e-01_jprb,1.1524e-01_jprb,1.1429e-01_jprb,1.1026e-01_jprb,1.0360e-01_jprb,&
&9.3605e-02_jprb,7.8587e-02_jprb,4.5859e-02_jprb/)
kao( :, 1, 7, 7) = (/&
&6.7188e-02_jprb,8.0973e-02_jprb,8.1282e-02_jprb,7.8604e-02_jprb,7.3758e-02_jprb,6.7095e-02_jprb,&
&5.8393e-02_jprb,4.7360e-02_jprb,2.5942e-02_jprb/)
kao( :, 2, 7, 7) = (/&
&7.0634e-02_jprb,8.4835e-02_jprb,8.5597e-02_jprb,8.3380e-02_jprb,7.8711e-02_jprb,7.2137e-02_jprb,&
&6.3418e-02_jprb,5.1732e-02_jprb,2.8746e-02_jprb/)
kao( :, 3, 7, 7) = (/&
&7.4125e-02_jprb,8.8733e-02_jprb,9.0006e-02_jprb,8.8141e-02_jprb,8.3708e-02_jprb,7.7276e-02_jprb,&
&6.8516e-02_jprb,5.6288e-02_jprb,3.1491e-02_jprb/)
kao( :, 4, 7, 7) = (/&
&7.7619e-02_jprb,9.2938e-02_jprb,9.4622e-02_jprb,9.3008e-02_jprb,8.8787e-02_jprb,8.2441e-02_jprb,&
&7.3541e-02_jprb,6.0853e-02_jprb,3.4197e-02_jprb/)
kao( :, 5, 7, 7) = (/&
&8.1130e-02_jprb,9.7412e-02_jprb,9.9437e-02_jprb,9.7963e-02_jprb,9.3908e-02_jprb,8.7589e-02_jprb,&
&7.8507e-02_jprb,6.5406e-02_jprb,3.6876e-02_jprb/)
kao( :, 1, 8, 7) = (/&
&5.7087e-02_jprb,6.8982e-02_jprb,6.9219e-02_jprb,6.6662e-02_jprb,6.2257e-02_jprb,5.6449e-02_jprb,&
&4.8696e-02_jprb,3.8705e-02_jprb,2.0368e-02_jprb/)
kao( :, 2, 8, 7) = (/&
&6.0267e-02_jprb,7.2661e-02_jprb,7.3164e-02_jprb,7.0903e-02_jprb,6.6680e-02_jprb,6.0863e-02_jprb,&
&5.2991e-02_jprb,4.2493e-02_jprb,2.2764e-02_jprb/)
kao( :, 3, 8, 7) = (/&
&6.3568e-02_jprb,7.6402e-02_jprb,7.7191e-02_jprb,7.5170e-02_jprb,7.1124e-02_jprb,6.5262e-02_jprb,&
&5.7325e-02_jprb,4.6424e-02_jprb,2.5106e-02_jprb/)
kao( :, 4, 8, 7) = (/&
&6.6952e-02_jprb,8.0431e-02_jprb,8.1433e-02_jprb,7.9580e-02_jprb,7.5603e-02_jprb,6.9713e-02_jprb,&
&6.1612e-02_jprb,5.0326e-02_jprb,2.7428e-02_jprb/)
kao( :, 5, 8, 7) = (/&
&7.0374e-02_jprb,8.4700e-02_jprb,8.5936e-02_jprb,8.4079e-02_jprb,8.0117e-02_jprb,7.4154e-02_jprb,&
&6.5876e-02_jprb,5.4195e-02_jprb,2.9716e-02_jprb/)
kao( :, 1, 9, 7) = (/&
&4.8541e-02_jprb,5.8698e-02_jprb,5.8862e-02_jprb,5.6589e-02_jprb,5.2616e-02_jprb,4.7478e-02_jprb,&
&4.0621e-02_jprb,3.1660e-02_jprb,1.6311e-02_jprb/)
kao( :, 2, 9, 7) = (/&
&5.1470e-02_jprb,6.2152e-02_jprb,6.2537e-02_jprb,6.0429e-02_jprb,5.6605e-02_jprb,5.1332e-02_jprb,&
&4.4320e-02_jprb,3.4891e-02_jprb,1.8357e-02_jprb/)
kao( :, 3, 9, 7) = (/&
&5.4592e-02_jprb,6.5779e-02_jprb,6.6299e-02_jprb,6.4328e-02_jprb,6.0595e-02_jprb,5.5195e-02_jprb,&
&4.8026e-02_jprb,3.8250e-02_jprb,2.0370e-02_jprb/)
kao( :, 4, 9, 7) = (/&
&5.7857e-02_jprb,6.9626e-02_jprb,7.0279e-02_jprb,6.8395e-02_jprb,6.4585e-02_jprb,5.9114e-02_jprb,&
&5.1701e-02_jprb,4.1583e-02_jprb,2.2355e-02_jprb/)
kao( :, 5, 9, 7) = (/&
&6.1151e-02_jprb,7.3773e-02_jprb,7.4523e-02_jprb,7.2563e-02_jprb,6.8640e-02_jprb,6.3021e-02_jprb,&
&5.5368e-02_jprb,4.4866e-02_jprb,2.4319e-02_jprb/)
kao( :, 1,10, 7) = (/&
&4.1703e-02_jprb,5.0397e-02_jprb,5.0498e-02_jprb,4.8532e-02_jprb,4.5038e-02_jprb,4.0454e-02_jprb,&
&3.4353e-02_jprb,2.6239e-02_jprb,1.6946e-02_jprb/)
kao( :, 2,10, 7) = (/&
&4.4435e-02_jprb,5.3723e-02_jprb,5.3968e-02_jprb,5.2070e-02_jprb,4.8666e-02_jprb,4.3928e-02_jprb,&
&3.7574e-02_jprb,2.9025e-02_jprb,1.9214e-02_jprb/)
kao( :, 3,10, 7) = (/&
&4.7412e-02_jprb,5.7277e-02_jprb,5.7540e-02_jprb,5.5713e-02_jprb,5.2331e-02_jprb,4.7382e-02_jprb,&
&4.0823e-02_jprb,3.1871e-02_jprb,2.1538e-02_jprb/)
kao( :, 4,10, 7) = (/&
&5.0574e-02_jprb,6.1042e-02_jprb,6.1373e-02_jprb,5.9574e-02_jprb,5.6031e-02_jprb,5.0898e-02_jprb,&
&4.4058e-02_jprb,3.4717e-02_jprb,2.3877e-02_jprb/)
kao( :, 5,10, 7) = (/&
&5.3746e-02_jprb,6.5044e-02_jprb,6.5451e-02_jprb,6.3520e-02_jprb,5.9778e-02_jprb,5.4461e-02_jprb,&
&4.7278e-02_jprb,3.7547e-02_jprb,2.6231e-02_jprb/)
kao( :, 1,11, 7) = (/&
&3.7231e-02_jprb,4.4782e-02_jprb,4.4834e-02_jprb,4.3110e-02_jprb,4.0069e-02_jprb,3.5931e-02_jprb,&
&3.0502e-02_jprb,2.3057e-02_jprb,1.8284e-02_jprb/)
kao( :, 2,11, 7) = (/&
&3.9875e-02_jprb,4.8062e-02_jprb,4.8155e-02_jprb,4.6465e-02_jprb,4.3416e-02_jprb,3.9078e-02_jprb,&
&3.3371e-02_jprb,2.5491e-02_jprb,2.0825e-02_jprb/)
kao( :, 3,11, 7) = (/&
&4.2772e-02_jprb,5.1583e-02_jprb,5.1719e-02_jprb,5.0024e-02_jprb,4.6821e-02_jprb,4.2262e-02_jprb,&
&3.6260e-02_jprb,2.7962e-02_jprb,2.3421e-02_jprb/)
kao( :, 4,11, 7) = (/&
&4.5744e-02_jprb,5.5320e-02_jprb,5.5524e-02_jprb,5.3716e-02_jprb,5.0328e-02_jprb,4.5568e-02_jprb,&
&3.9152e-02_jprb,3.0434e-02_jprb,2.6081e-02_jprb/)
kao( :, 5,11, 7) = (/&
&4.8771e-02_jprb,5.9196e-02_jprb,5.9515e-02_jprb,5.7526e-02_jprb,5.3932e-02_jprb,4.8905e-02_jprb,&
&4.2062e-02_jprb,3.2920e-02_jprb,2.8799e-02_jprb/)
kao( :, 1,12, 7) = (/&
&3.3165e-02_jprb,3.9692e-02_jprb,3.9599e-02_jprb,3.8024e-02_jprb,3.5310e-02_jprb,3.1588e-02_jprb,&
&2.6724e-02_jprb,2.0140e-02_jprb,1.7962e-02_jprb/)
kao( :, 2,12, 7) = (/&
&3.5669e-02_jprb,4.2809e-02_jprb,4.2746e-02_jprb,4.1180e-02_jprb,3.8355e-02_jprb,3.4405e-02_jprb,&
&2.9261e-02_jprb,2.2261e-02_jprb,2.0601e-02_jprb/)
kao( :, 3,12, 7) = (/&
&3.8321e-02_jprb,4.6119e-02_jprb,4.6151e-02_jprb,4.4514e-02_jprb,4.1510e-02_jprb,3.7321e-02_jprb,&
&3.1841e-02_jprb,2.4389e-02_jprb,2.3308e-02_jprb/)
kao( :, 4,12, 7) = (/&
&4.1022e-02_jprb,4.9612e-02_jprb,4.9764e-02_jprb,4.7979e-02_jprb,4.4755e-02_jprb,4.0343e-02_jprb,&
&3.4469e-02_jprb,2.6528e-02_jprb,2.6037e-02_jprb/)
kao( :, 5,12, 7) = (/&
&4.3787e-02_jprb,5.3202e-02_jprb,5.3413e-02_jprb,5.1511e-02_jprb,4.8094e-02_jprb,4.3379e-02_jprb,&
&3.7123e-02_jprb,2.8712e-02_jprb,2.8765e-02_jprb/)
kao( :, 1,13, 7) = (/&
&2.9468e-02_jprb,3.5299e-02_jprb,3.5147e-02_jprb,3.3716e-02_jprb,3.1258e-02_jprb,2.7857e-02_jprb,&
&2.3479e-02_jprb,1.7565e-02_jprb,1.6401e-02_jprb/)
kao( :, 2,13, 7) = (/&
&3.1822e-02_jprb,3.8242e-02_jprb,3.8151e-02_jprb,3.6698e-02_jprb,3.4080e-02_jprb,3.0460e-02_jprb,&
&2.5743e-02_jprb,1.9422e-02_jprb,1.8869e-02_jprb/)
kao( :, 3,13, 7) = (/&
&3.4255e-02_jprb,4.1360e-02_jprb,4.1371e-02_jprb,3.9795e-02_jprb,3.7027e-02_jprb,3.3168e-02_jprb,&
&2.8068e-02_jprb,2.1290e-02_jprb,2.1356e-02_jprb/)
kao( :, 4,13, 7) = (/&
&3.6724e-02_jprb,4.4593e-02_jprb,4.4667e-02_jprb,4.2990e-02_jprb,4.0057e-02_jprb,3.5909e-02_jprb,&
&3.0433e-02_jprb,2.3190e-02_jprb,2.3849e-02_jprb/)
kao( :, 5,13, 7) = (/&
&3.9283e-02_jprb,4.7884e-02_jprb,4.8024e-02_jprb,4.6223e-02_jprb,4.3087e-02_jprb,3.8671e-02_jprb,&
&3.2860e-02_jprb,2.5142e-02_jprb,2.6303e-02_jprb/)
kao( :, 1, 1, 8) = (/&
&4.0322e-01_jprb,4.2884e-01_jprb,4.4287e-01_jprb,4.4611e-01_jprb,4.3402e-01_jprb,4.1077e-01_jprb,&
&3.7521e-01_jprb,3.2697e-01_jprb,2.6830e-01_jprb/)
kao( :, 2, 1, 8) = (/&
&4.1659e-01_jprb,4.4635e-01_jprb,4.6251e-01_jprb,4.6551e-01_jprb,4.5392e-01_jprb,4.3080e-01_jprb,&
&3.9654e-01_jprb,3.4859e-01_jprb,2.8992e-01_jprb/)
kao( :, 3, 1, 8) = (/&
&4.3066e-01_jprb,4.6487e-01_jprb,4.8341e-01_jprb,4.8533e-01_jprb,4.7318e-01_jprb,4.5018e-01_jprb,&
&4.1684e-01_jprb,3.6978e-01_jprb,3.1151e-01_jprb/)
kao( :, 4, 1, 8) = (/&
&4.4540e-01_jprb,4.8420e-01_jprb,5.0502e-01_jprb,5.0600e-01_jprb,4.9161e-01_jprb,4.6895e-01_jprb,&
&4.3612e-01_jprb,3.9090e-01_jprb,3.3327e-01_jprb/)
kao( :, 5, 1, 8) = (/&
&4.6087e-01_jprb,5.0391e-01_jprb,5.2680e-01_jprb,5.2675e-01_jprb,5.1014e-01_jprb,4.8707e-01_jprb,&
&4.5479e-01_jprb,4.1126e-01_jprb,3.5494e-01_jprb/)
kao( :, 1, 2, 8) = (/&
&3.6116e-01_jprb,3.9180e-01_jprb,4.0630e-01_jprb,4.0741e-01_jprb,3.9710e-01_jprb,3.7545e-01_jprb,&
&3.4074e-01_jprb,2.9225e-01_jprb,2.2503e-01_jprb/)
kao( :, 2, 2, 8) = (/&
&3.7429e-01_jprb,4.0933e-01_jprb,4.2583e-01_jprb,4.2659e-01_jprb,4.1646e-01_jprb,3.9447e-01_jprb,&
&3.6022e-01_jprb,3.1183e-01_jprb,2.4425e-01_jprb/)
kao( :, 3, 2, 8) = (/&
&3.8833e-01_jprb,4.2821e-01_jprb,4.4642e-01_jprb,4.4678e-01_jprb,4.3567e-01_jprb,4.1270e-01_jprb,&
&3.7849e-01_jprb,3.3160e-01_jprb,2.6352e-01_jprb/)
kao( :, 4, 2, 8) = (/&
&4.0301e-01_jprb,4.4802e-01_jprb,4.6770e-01_jprb,4.6760e-01_jprb,4.5474e-01_jprb,4.3035e-01_jprb,&
&3.9631e-01_jprb,3.5077e-01_jprb,2.8292e-01_jprb/)
kao( :, 5, 2, 8) = (/&
&4.1749e-01_jprb,4.6796e-01_jprb,4.8938e-01_jprb,4.8856e-01_jprb,4.7348e-01_jprb,4.4790e-01_jprb,&
&4.1404e-01_jprb,3.6908e-01_jprb,3.0219e-01_jprb/)
kao( :, 1, 3, 8) = (/&
&3.1836e-01_jprb,3.5137e-01_jprb,3.6460e-01_jprb,3.6422e-01_jprb,3.5477e-01_jprb,3.3593e-01_jprb,&
&3.0362e-01_jprb,2.5584e-01_jprb,1.8328e-01_jprb/)
kao( :, 2, 3, 8) = (/&
&3.3096e-01_jprb,3.6850e-01_jprb,3.8310e-01_jprb,3.8300e-01_jprb,3.7372e-01_jprb,3.5449e-01_jprb,&
&3.2124e-01_jprb,2.7389e-01_jprb,2.0014e-01_jprb/)
kao( :, 3, 3, 8) = (/&
&3.4458e-01_jprb,3.8711e-01_jprb,4.0276e-01_jprb,4.0262e-01_jprb,3.9285e-01_jprb,3.7244e-01_jprb,&
&3.3829e-01_jprb,2.9150e-01_jprb,2.1726e-01_jprb/)
kao( :, 4, 3, 8) = (/&
&3.5799e-01_jprb,4.0642e-01_jprb,4.2324e-01_jprb,4.2311e-01_jprb,4.1204e-01_jprb,3.8967e-01_jprb,&
&3.5509e-01_jprb,3.0840e-01_jprb,2.3441e-01_jprb/)
kao( :, 5, 3, 8) = (/&
&3.7101e-01_jprb,4.2557e-01_jprb,4.4433e-01_jprb,4.4402e-01_jprb,4.3131e-01_jprb,4.0719e-01_jprb,&
&3.7164e-01_jprb,3.2487e-01_jprb,2.5132e-01_jprb/)
kao( :, 1, 4, 8) = (/&
&2.7843e-01_jprb,3.1174e-01_jprb,3.2299e-01_jprb,3.2159e-01_jprb,3.1254e-01_jprb,2.9513e-01_jprb,&
&2.6711e-01_jprb,2.2161e-01_jprb,1.4841e-01_jprb/)
kao( :, 2, 4, 8) = (/&
&2.9013e-01_jprb,3.2832e-01_jprb,3.4033e-01_jprb,3.3944e-01_jprb,3.3063e-01_jprb,3.1287e-01_jprb,&
&2.8384e-01_jprb,2.3810e-01_jprb,1.6312e-01_jprb/)
kao( :, 3, 4, 8) = (/&
&3.0268e-01_jprb,3.4605e-01_jprb,3.5891e-01_jprb,3.5819e-01_jprb,3.4915e-01_jprb,3.3041e-01_jprb,&
&2.9986e-01_jprb,2.5399e-01_jprb,1.7819e-01_jprb/)
kao( :, 4, 4, 8) = (/&
&3.1479e-01_jprb,3.6429e-01_jprb,3.7832e-01_jprb,3.7789e-01_jprb,3.6791e-01_jprb,3.4794e-01_jprb,&
&3.1552e-01_jprb,2.6914e-01_jprb,1.9313e-01_jprb/)
kao( :, 5, 4, 8) = (/&
&3.2665e-01_jprb,3.8187e-01_jprb,3.9828e-01_jprb,3.9805e-01_jprb,3.8707e-01_jprb,3.6554e-01_jprb,&
&3.3111e-01_jprb,2.8418e-01_jprb,2.0797e-01_jprb/)
kao( :, 1, 5, 8) = (/&
&2.4307e-01_jprb,2.7459e-01_jprb,2.8334e-01_jprb,2.8148e-01_jprb,2.7250e-01_jprb,2.5608e-01_jprb,&
&2.3119e-01_jprb,1.9095e-01_jprb,1.1978e-01_jprb/)
kao( :, 2, 5, 8) = (/&
&2.5412e-01_jprb,2.9006e-01_jprb,2.9964e-01_jprb,2.9834e-01_jprb,2.8946e-01_jprb,2.7270e-01_jprb,&
&2.4720e-01_jprb,2.0586e-01_jprb,1.3250e-01_jprb/)
kao( :, 3, 5, 8) = (/&
&2.6544e-01_jprb,3.0651e-01_jprb,3.1718e-01_jprb,3.1602e-01_jprb,3.0707e-01_jprb,2.8950e-01_jprb,&
&2.6270e-01_jprb,2.1996e-01_jprb,1.4559e-01_jprb/)
kao( :, 4, 5, 8) = (/&
&2.7620e-01_jprb,3.2315e-01_jprb,3.3545e-01_jprb,3.3465e-01_jprb,3.2491e-01_jprb,3.0648e-01_jprb,&
&2.7754e-01_jprb,2.3379e-01_jprb,1.5847e-01_jprb/)
kao( :, 5, 5, 8) = (/&
&2.8682e-01_jprb,3.3927e-01_jprb,3.5367e-01_jprb,3.5367e-01_jprb,3.4331e-01_jprb,3.2364e-01_jprb,&
&2.9241e-01_jprb,2.4747e-01_jprb,1.7133e-01_jprb/)
kao( :, 1, 6, 8) = (/&
&2.1177e-01_jprb,2.4018e-01_jprb,2.4637e-01_jprb,2.4351e-01_jprb,2.3439e-01_jprb,2.1931e-01_jprb,&
&1.9713e-01_jprb,1.6297e-01_jprb,9.5914e-02_jprb/)
kao( :, 2, 6, 8) = (/&
&2.2169e-01_jprb,2.5443e-01_jprb,2.6139e-01_jprb,2.5908e-01_jprb,2.5022e-01_jprb,2.3482e-01_jprb,&
&2.1183e-01_jprb,1.7638e-01_jprb,1.0688e-01_jprb/)
kao( :, 3, 6, 8) = (/&
&2.3172e-01_jprb,2.6938e-01_jprb,2.7763e-01_jprb,2.7552e-01_jprb,2.6672e-01_jprb,2.5051e-01_jprb,&
&2.2626e-01_jprb,1.8899e-01_jprb,1.1795e-01_jprb/)
kao( :, 4, 6, 8) = (/&
&2.4156e-01_jprb,2.8413e-01_jprb,2.9429e-01_jprb,2.9295e-01_jprb,2.8356e-01_jprb,2.6650e-01_jprb,&
&2.4057e-01_jprb,2.0157e-01_jprb,1.2896e-01_jprb/)
kao( :, 5, 6, 8) = (/&
&2.5124e-01_jprb,2.9850e-01_jprb,3.1067e-01_jprb,3.1041e-01_jprb,3.0075e-01_jprb,2.8246e-01_jprb,&
&2.5505e-01_jprb,2.1388e-01_jprb,1.3998e-01_jprb/)
kao( :, 1, 7, 8) = (/&
&1.8473e-01_jprb,2.0924e-01_jprb,2.1335e-01_jprb,2.0936e-01_jprb,1.9988e-01_jprb,1.8587e-01_jprb,&
&1.6639e-01_jprb,1.3717e-01_jprb,7.6364e-02_jprb/)
kao( :, 2, 7, 8) = (/&
&1.9350e-01_jprb,2.2219e-01_jprb,2.2721e-01_jprb,2.2345e-01_jprb,2.1426e-01_jprb,2.0011e-01_jprb,&
&1.7972e-01_jprb,1.4932e-01_jprb,8.5682e-02_jprb/)
kao( :, 3, 7, 8) = (/&
&2.0222e-01_jprb,2.3570e-01_jprb,2.4195e-01_jprb,2.3854e-01_jprb,2.2951e-01_jprb,2.1468e-01_jprb,&
&1.9301e-01_jprb,1.6077e-01_jprb,9.5001e-02_jprb/)
kao( :, 4, 7, 8) = (/&
&2.1095e-01_jprb,2.4886e-01_jprb,2.5670e-01_jprb,2.5432e-01_jprb,2.4507e-01_jprb,2.2935e-01_jprb,&
&2.0620e-01_jprb,1.7210e-01_jprb,1.0440e-01_jprb/)
kao( :, 5, 7, 8) = (/&
&2.1973e-01_jprb,2.6165e-01_jprb,2.7115e-01_jprb,2.6994e-01_jprb,2.6086e-01_jprb,2.4410e-01_jprb,&
&2.1974e-01_jprb,1.8329e-01_jprb,1.1378e-01_jprb/)
kao( :, 1, 8, 8) = (/&
&1.6185e-01_jprb,1.8253e-01_jprb,1.8444e-01_jprb,1.7949e-01_jprb,1.7015e-01_jprb,1.5690e-01_jprb,&
&1.3935e-01_jprb,1.1432e-01_jprb,6.0540e-02_jprb/)
kao( :, 2, 8, 8) = (/&
&1.6964e-01_jprb,1.9418e-01_jprb,1.9717e-01_jprb,1.9247e-01_jprb,1.8312e-01_jprb,1.6970e-01_jprb,&
&1.5135e-01_jprb,1.2506e-01_jprb,6.8356e-02_jprb/)
kao( :, 3, 8, 8) = (/&
&1.7743e-01_jprb,2.0616e-01_jprb,2.1045e-01_jprb,2.0623e-01_jprb,1.9689e-01_jprb,1.8297e-01_jprb,&
&1.6334e-01_jprb,1.3545e-01_jprb,7.6236e-02_jprb/)
kao( :, 4, 8, 8) = (/&
&1.8525e-01_jprb,2.1798e-01_jprb,2.2355e-01_jprb,2.2023e-01_jprb,2.1094e-01_jprb,1.9625e-01_jprb,&
&1.7545e-01_jprb,1.4584e-01_jprb,8.4195e-02_jprb/)
kao( :, 5, 8, 8) = (/&
&1.9322e-01_jprb,2.2966e-01_jprb,2.3631e-01_jprb,2.3389e-01_jprb,2.2488e-01_jprb,2.0966e-01_jprb,&
&1.8787e-01_jprb,1.5609e-01_jprb,9.2157e-02_jprb/)
kao( :, 1, 9, 8) = (/&
&1.4213e-01_jprb,1.5963e-01_jprb,1.5968e-01_jprb,1.5380e-01_jprb,1.4472e-01_jprb,1.3224e-01_jprb,&
&1.1621e-01_jprb,9.4456e-02_jprb,4.8155e-02_jprb/)
kao( :, 2, 9, 8) = (/&
&1.4924e-01_jprb,1.7020e-01_jprb,1.7123e-01_jprb,1.6570e-01_jprb,1.5648e-01_jprb,1.4372e-01_jprb,&
&1.2686e-01_jprb,1.0389e-01_jprb,5.4797e-02_jprb/)
kao( :, 3, 9, 8) = (/&
&1.5626e-01_jprb,1.8093e-01_jprb,1.8312e-01_jprb,1.7819e-01_jprb,1.6892e-01_jprb,1.5552e-01_jprb,&
&1.3756e-01_jprb,1.1314e-01_jprb,6.1551e-02_jprb/)
kao( :, 4, 9, 8) = (/&
&1.6335e-01_jprb,1.9168e-01_jprb,1.9486e-01_jprb,1.9059e-01_jprb,1.8138e-01_jprb,1.6740e-01_jprb,&
&1.4849e-01_jprb,1.2245e-01_jprb,6.8420e-02_jprb/)
kao( :, 5, 9, 8) = (/&
&1.7076e-01_jprb,2.0225e-01_jprb,2.0643e-01_jprb,2.0268e-01_jprb,1.9350e-01_jprb,1.7935e-01_jprb,&
&1.5962e-01_jprb,1.3184e-01_jprb,7.5344e-02_jprb/)
kao( :, 1,10, 8) = (/&
&1.2689e-01_jprb,1.4153e-01_jprb,1.4002e-01_jprb,1.3364e-01_jprb,1.2448e-01_jprb,1.1260e-01_jprb,&
&9.7712e-02_jprb,7.8252e-02_jprb,4.4638e-02_jprb/)
kao( :, 2,10, 8) = (/&
&1.3357e-01_jprb,1.5129e-01_jprb,1.5077e-01_jprb,1.4472e-01_jprb,1.3525e-01_jprb,1.2292e-01_jprb,&
&1.0714e-01_jprb,8.6493e-02_jprb,5.1139e-02_jprb/)
kao( :, 3,10, 8) = (/&
&1.4033e-01_jprb,1.6116e-01_jprb,1.6169e-01_jprb,1.5606e-01_jprb,1.4653e-01_jprb,1.3358e-01_jprb,&
&1.1667e-01_jprb,9.4648e-02_jprb,5.7687e-02_jprb/)
kao( :, 4,10, 8) = (/&
&1.4713e-01_jprb,1.7114e-01_jprb,1.7244e-01_jprb,1.6723e-01_jprb,1.5766e-01_jprb,1.4412e-01_jprb,&
&1.2643e-01_jprb,1.0289e-01_jprb,6.4268e-02_jprb/)
kao( :, 5,10, 8) = (/&
&1.5435e-01_jprb,1.8097e-01_jprb,1.8303e-01_jprb,1.7815e-01_jprb,1.6844e-01_jprb,1.5450e-01_jprb,&
&1.3627e-01_jprb,1.1126e-01_jprb,7.0752e-02_jprb/)
kao( :, 1,11, 8) = (/&
&1.1735e-01_jprb,1.3093e-01_jprb,1.2881e-01_jprb,1.2210e-01_jprb,1.1270e-01_jprb,1.0103e-01_jprb,&
&8.6539e-02_jprb,6.8130e-02_jprb,4.9846e-02_jprb/)
kao( :, 2,11, 8) = (/&
&1.2384e-01_jprb,1.4024e-01_jprb,1.3893e-01_jprb,1.3259e-01_jprb,1.2292e-01_jprb,1.1061e-01_jprb,&
&9.5115e-02_jprb,7.5252e-02_jprb,5.6964e-02_jprb/)
kao( :, 3,11, 8) = (/&
&1.3035e-01_jprb,1.4957e-01_jprb,1.4914e-01_jprb,1.4306e-01_jprb,1.3321e-01_jprb,1.2022e-01_jprb,&
&1.0374e-01_jprb,8.2465e-02_jprb,6.4200e-02_jprb/)
kao( :, 4,11, 8) = (/&
&1.3725e-01_jprb,1.5898e-01_jprb,1.5927e-01_jprb,1.5334e-01_jprb,1.4326e-01_jprb,1.2961e-01_jprb,&
&1.1238e-01_jprb,8.9805e-02_jprb,7.1457e-02_jprb/)
kao( :, 5,11, 8) = (/&
&1.4463e-01_jprb,1.6851e-01_jprb,1.6933e-01_jprb,1.6346e-01_jprb,1.5308e-01_jprb,1.3883e-01_jprb,&
&1.2096e-01_jprb,9.7193e-02_jprb,7.8536e-02_jprb/)
kao( :, 1,12, 8) = (/&
&1.0640e-01_jprb,1.1932e-01_jprb,1.1727e-01_jprb,1.1093e-01_jprb,1.0195e-01_jprb,9.0676e-02_jprb,&
&7.6870e-02_jprb,5.9379e-02_jprb,5.1106e-02_jprb/)
kao( :, 2,12, 8) = (/&
&1.1251e-01_jprb,1.2789e-01_jprb,1.2658e-01_jprb,1.2048e-01_jprb,1.1127e-01_jprb,9.9404e-02_jprb,&
&8.4625e-02_jprb,6.5652e-02_jprb,5.8364e-02_jprb/)
kao( :, 3,12, 8) = (/&
&1.1894e-01_jprb,1.3655e-01_jprb,1.3586e-01_jprb,1.2993e-01_jprb,1.2048e-01_jprb,1.0801e-01_jprb,&
&9.2363e-02_jprb,7.2052e-02_jprb,6.5735e-02_jprb/)
kao( :, 4,12, 8) = (/&
&1.2590e-01_jprb,1.4545e-01_jprb,1.4519e-01_jprb,1.3926e-01_jprb,1.2958e-01_jprb,1.1647e-01_jprb,&
&9.9973e-02_jprb,7.8534e-02_jprb,7.3095e-02_jprb/)
kao( :, 5,12, 8) = (/&
&1.3337e-01_jprb,1.5470e-01_jprb,1.5466e-01_jprb,1.4861e-01_jprb,1.3857e-01_jprb,1.2488e-01_jprb,&
&1.0746e-01_jprb,8.4929e-02_jprb,8.0418e-02_jprb/)
kao( :, 1,13, 8) = (/&
&9.6972e-02_jprb,1.0868e-01_jprb,1.0670e-01_jprb,1.0090e-01_jprb,9.2463e-02_jprb,8.1893e-02_jprb,&
&6.8722e-02_jprb,5.2187e-02_jprb,4.8936e-02_jprb/)
kao( :, 2,13, 8) = (/&
&1.0286e-01_jprb,1.1675e-01_jprb,1.1538e-01_jprb,1.0956e-01_jprb,1.0086e-01_jprb,8.9655e-02_jprb,&
&7.5733e-02_jprb,5.7797e-02_jprb,5.5923e-02_jprb/)
kao( :, 3,13, 8) = (/&
&1.0928e-01_jprb,1.2507e-01_jprb,1.2410e-01_jprb,1.1821e-01_jprb,1.0914e-01_jprb,9.7343e-02_jprb,&
&8.2660e-02_jprb,6.3457e-02_jprb,6.3021e-02_jprb/)
kao( :, 4,13, 8) = (/&
&1.1629e-01_jprb,1.3382e-01_jprb,1.3304e-01_jprb,1.2689e-01_jprb,1.1743e-01_jprb,1.0500e-01_jprb,&
&8.9516e-02_jprb,6.9087e-02_jprb,7.0154e-02_jprb/)
kao( :, 5,13, 8) = (/&
&1.2379e-01_jprb,1.4288e-01_jprb,1.4218e-01_jprb,1.3575e-01_jprb,1.2584e-01_jprb,1.1273e-01_jprb,&
&9.6241e-02_jprb,7.4622e-02_jprb,7.7264e-02_jprb/)


!     -----------------------------------------------------------------
RETURN
END SUBROUTINE rrtm_kgb12_a1