rrtm_kgb7_A2.F90

Go to the documentation of this file.

!OCL SCALAR
SUBROUTINE rrtm_kgb7_a2

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

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

#include "tsmbkind.h"

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

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


IMPLICIT NONE

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

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

kao( :, 1, 1, 9) = (/&
&7.6730e-04_jprb,6.9533e-04_jprb,6.3435e-04_jprb,5.7755e-04_jprb,5.2747e-04_jprb,4.8127e-04_jprb,&
&4.6360e-04_jprb,4.7153e-04_jprb,5.0503e-04_jprb/)
kao( :, 2, 1, 9) = (/&
&8.9446e-04_jprb,8.3145e-04_jprb,7.7791e-04_jprb,7.3079e-04_jprb,6.8158e-04_jprb,6.4054e-04_jprb,&
&6.4060e-04_jprb,6.7751e-04_jprb,7.4127e-04_jprb/)
kao( :, 3, 1, 9) = (/&
&1.0839e-03_jprb,1.0326e-03_jprb,9.8910e-04_jprb,9.4874e-04_jprb,8.8995e-04_jprb,8.5059e-04_jprb,&
&8.6660e-04_jprb,9.3858e-04_jprb,1.0404e-03_jprb/)
kao( :, 4, 1, 9) = (/&
&1.3392e-03_jprb,1.2976e-03_jprb,1.2617e-03_jprb,1.2187e-03_jprb,1.1503e-03_jprb,1.1142e-03_jprb,&
&1.1537e-03_jprb,1.2600e-03_jprb,1.4074e-03_jprb/)
kao( :, 5, 1, 9) = (/&
&1.6572e-03_jprb,1.6190e-03_jprb,1.5928e-03_jprb,1.5446e-03_jprb,1.4696e-03_jprb,1.4385e-03_jprb,&
&1.5029e-03_jprb,1.6559e-03_jprb,1.8563e-03_jprb/)
kao( :, 1, 2, 9) = (/&
&7.2791e-04_jprb,6.5760e-04_jprb,5.9478e-04_jprb,5.3539e-04_jprb,4.8045e-04_jprb,4.2766e-04_jprb,&
&4.0009e-04_jprb,3.9735e-04_jprb,4.3728e-04_jprb/)
kao( :, 2, 2, 9) = (/&
&8.1810e-04_jprb,7.5677e-04_jprb,7.0172e-04_jprb,6.5562e-04_jprb,6.0484e-04_jprb,5.6238e-04_jprb,&
&5.5650e-04_jprb,5.8260e-04_jprb,6.4861e-04_jprb/)
kao( :, 3, 2, 9) = (/&
&9.5216e-04_jprb,9.0507e-04_jprb,8.6910e-04_jprb,8.3462e-04_jprb,7.8786e-04_jprb,7.5096e-04_jprb,&
&7.5914e-04_jprb,8.1646e-04_jprb,9.1827e-04_jprb/)
kao( :, 4, 2, 9) = (/&
&1.1442e-03_jprb,1.1148e-03_jprb,1.1009e-03_jprb,1.0715e-03_jprb,1.0248e-03_jprb,9.9267e-04_jprb,&
&1.0179e-03_jprb,1.1078e-03_jprb,1.2541e-03_jprb/)
kao( :, 5, 2, 9) = (/&
&1.3996e-03_jprb,1.3905e-03_jprb,1.3914e-03_jprb,1.3624e-03_jprb,1.3173e-03_jprb,1.2906e-03_jprb,&
&1.3365e-03_jprb,1.4703e-03_jprb,1.6733e-03_jprb/)
kao( :, 1, 3, 9) = (/&
&6.9198e-04_jprb,6.2093e-04_jprb,5.5500e-04_jprb,4.9112e-04_jprb,4.2858e-04_jprb,3.6796e-04_jprb,&
&3.2243e-04_jprb,2.7068e-04_jprb,3.8445e-04_jprb/)
kao( :, 2, 3, 9) = (/&
&7.4808e-04_jprb,6.8197e-04_jprb,6.2244e-04_jprb,5.6656e-04_jprb,5.0936e-04_jprb,4.6235e-04_jprb,&
&4.4533e-04_jprb,4.5718e-04_jprb,5.8212e-04_jprb/)
kao( :, 3, 3, 9) = (/&
&8.2613e-04_jprb,7.7358e-04_jprb,7.3159e-04_jprb,6.8941e-04_jprb,6.4390e-04_jprb,6.1118e-04_jprb,&
&6.1390e-04_jprb,6.5687e-04_jprb,8.4097e-04_jprb/)
kao( :, 4, 3, 9) = (/&
&9.3955e-04_jprb,9.0936e-04_jprb,8.9358e-04_jprb,8.6993e-04_jprb,8.3759e-04_jprb,8.1431e-04_jprb,&
&8.3330e-04_jprb,9.0689e-04_jprb,1.1736e-03_jprb/)
kao( :, 5, 3, 9) = (/&
&1.1024e-03_jprb,1.1029e-03_jprb,1.1144e-03_jprb,1.1087e-03_jprb,1.0858e-03_jprb,1.0701e-03_jprb,&
&1.1102e-03_jprb,1.2203e-03_jprb,1.5855e-03_jprb/)
kao( :, 1, 4, 9) = (/&
&6.9141e-04_jprb,6.1573e-04_jprb,5.4365e-04_jprb,4.7268e-04_jprb,4.0185e-04_jprb,3.3169e-04_jprb,&
&2.6484e-04_jprb,1.1941e-04_jprb,4.2525e-04_jprb/)
kao( :, 2, 4, 9) = (/&
&7.1303e-04_jprb,6.4311e-04_jprb,5.7730e-04_jprb,5.1428e-04_jprb,4.4890e-04_jprb,3.8935e-04_jprb,&
&3.5277e-04_jprb,3.2803e-04_jprb,6.6098e-04_jprb/)
kao( :, 3, 4, 9) = (/&
&7.6419e-04_jprb,7.0113e-04_jprb,6.4756e-04_jprb,5.8990e-04_jprb,5.3391e-04_jprb,4.9265e-04_jprb,&
&4.8275e-04_jprb,5.0730e-04_jprb,9.8045e-04_jprb/)
kao( :, 4, 4, 9) = (/&
&8.2609e-04_jprb,7.8182e-04_jprb,7.4991e-04_jprb,7.1089e-04_jprb,6.7442e-04_jprb,6.5009e-04_jprb,&
&6.6146e-04_jprb,7.1854e-04_jprb,1.3938e-03_jprb/)
kao( :, 5, 4, 9) = (/&
&9.1327e-04_jprb,9.0245e-04_jprb,8.9877e-04_jprb,8.8705e-04_jprb,8.7034e-04_jprb,8.6010e-04_jprb,&
&8.9180e-04_jprb,9.8101e-04_jprb,1.9118e-03_jprb/)
kao( :, 1, 5, 9) = (/&
&7.1194e-04_jprb,6.3073e-04_jprb,5.5152e-04_jprb,4.7348e-04_jprb,3.9513e-04_jprb,3.1519e-04_jprb,&
&2.2983e-04_jprb,2.7452e-05_jprb,4.8453e-04_jprb/)
kao( :, 2, 5, 9) = (/&
&7.1296e-04_jprb,6.3797e-04_jprb,5.6646e-04_jprb,4.9574e-04_jprb,4.2273e-04_jprb,3.5196e-04_jprb,&
&2.8944e-04_jprb,1.7242e-04_jprb,7.7671e-04_jprb/)
kao( :, 3, 5, 9) = (/&
&7.3444e-04_jprb,6.6574e-04_jprb,6.0369e-04_jprb,5.3780e-04_jprb,4.7146e-04_jprb,4.1473e-04_jprb,&
&3.8369e-04_jprb,3.7633e-04_jprb,1.1824e-03_jprb/)
kao( :, 4, 5, 9) = (/&
&7.7697e-04_jprb,7.1991e-04_jprb,6.7045e-04_jprb,6.1217e-04_jprb,5.6053e-04_jprb,5.2336e-04_jprb,&
&5.2023e-04_jprb,5.5862e-04_jprb,1.7181e-03_jprb/)
kao( :, 5, 5, 9) = (/&
&8.2601e-04_jprb,7.9119e-04_jprb,7.6213e-04_jprb,7.3107e-04_jprb,6.9880e-04_jprb,6.8266e-04_jprb,&
&7.0503e-04_jprb,7.7701e-04_jprb,2.3991e-03_jprb/)
kao( :, 1, 6, 9) = (/&
&7.4702e-04_jprb,6.5911e-04_jprb,5.7262e-04_jprb,4.8679e-04_jprb,4.0134e-04_jprb,3.1318e-04_jprb,&
&1.5461e-04_jprb,1.6758e-05_jprb,5.2688e-04_jprb/)
kao( :, 2, 6, 9) = (/&
&7.4128e-04_jprb,6.5855e-04_jprb,5.7826e-04_jprb,4.9892e-04_jprb,4.1789e-04_jprb,3.3501e-04_jprb,&
&2.5184e-04_jprb,5.3936e-05_jprb,8.7850e-04_jprb/)
kao( :, 3, 6, 9) = (/&
&7.3954e-04_jprb,6.6416e-04_jprb,5.9359e-04_jprb,5.2126e-04_jprb,4.4507e-04_jprb,3.7370e-04_jprb,&
&3.1408e-04_jprb,2.2236e-04_jprb,1.3809e-03_jprb/)
kao( :, 4, 6, 9) = (/&
&7.5717e-04_jprb,6.9002e-04_jprb,6.2962e-04_jprb,5.6099e-04_jprb,4.9557e-04_jprb,4.3902e-04_jprb,&
&4.1006e-04_jprb,4.1489e-04_jprb,2.0655e-03_jprb/)
kao( :, 5, 6, 9) = (/&
&7.8954e-04_jprb,7.3758e-04_jprb,6.8841e-04_jprb,6.3360e-04_jprb,5.8155e-04_jprb,5.4713e-04_jprb,&
&5.4922e-04_jprb,5.9986e-04_jprb,2.9589e-03_jprb/)
kao( :, 1, 7, 9) = (/&
&7.9467e-04_jprb,6.9929e-04_jprb,6.0424e-04_jprb,5.1073e-04_jprb,4.1693e-04_jprb,3.2089e-04_jprb,&
&5.1325e-05_jprb,1.2122e-05_jprb,6.0259e-04_jprb/)
kao( :, 2, 7, 9) = (/&
&7.8343e-04_jprb,6.9250e-04_jprb,6.0357e-04_jprb,5.1592e-04_jprb,4.2687e-04_jprb,3.3542e-04_jprb,&
&2.2592e-04_jprb,1.5976e-05_jprb,1.0502e-03_jprb/)
kao( :, 3, 7, 9) = (/&
&7.7573e-04_jprb,6.9130e-04_jprb,6.0997e-04_jprb,5.2908e-04_jprb,4.4409e-04_jprb,3.5904e-04_jprb,&
&2.7616e-04_jprb,9.2965e-05_jprb,1.7102e-03_jprb/)
kao( :, 4, 7, 9) = (/&
&7.7294e-04_jprb,6.9692e-04_jprb,6.2657e-04_jprb,5.4965e-04_jprb,4.7312e-04_jprb,3.9920e-04_jprb,&
&3.3903e-04_jprb,2.7602e-04_jprb,2.6319e-03_jprb/)
kao( :, 5, 7, 9) = (/&
&7.8731e-04_jprb,7.2173e-04_jprb,6.5887e-04_jprb,5.9065e-04_jprb,5.2295e-04_jprb,4.6490e-04_jprb,&
&4.3618e-04_jprb,4.5346e-04_jprb,3.8668e-03_jprb/)
kao( :, 1, 8, 9) = (/&
&8.5501e-04_jprb,7.5078e-04_jprb,6.4657e-04_jprb,5.4366e-04_jprb,4.4039e-04_jprb,3.3294e-04_jprb,&
&2.6688e-05_jprb,1.2258e-05_jprb,8.1286e-04_jprb/)
kao( :, 2, 8, 9) = (/&
&8.4099e-04_jprb,7.4093e-04_jprb,6.4228e-04_jprb,5.4430e-04_jprb,4.4636e-04_jprb,3.4551e-04_jprb,&
&1.0468e-04_jprb,1.2830e-05_jprb,1.4923e-03_jprb/)
kao( :, 3, 8, 9) = (/&
&8.2855e-04_jprb,7.3472e-04_jprb,6.4208e-04_jprb,5.5147e-04_jprb,4.5797e-04_jprb,3.6152e-04_jprb,&
&2.5538e-04_jprb,1.6241e-05_jprb,2.5369e-03_jprb/)
kao( :, 4, 8, 9) = (/&
&8.1840e-04_jprb,7.3203e-04_jprb,6.4929e-04_jprb,5.6425e-04_jprb,4.7544e-04_jprb,3.8760e-04_jprb,&
&3.0236e-04_jprb,1.3733e-04_jprb,4.0371e-03_jprb/)
kao( :, 5, 8, 9) = (/&
&8.1270e-04_jprb,7.3589e-04_jprb,6.6348e-04_jprb,5.8412e-04_jprb,5.0562e-04_jprb,4.2829e-04_jprb,&
&3.6616e-04_jprb,3.2564e-04_jprb,6.0900e-03_jprb/)
kao( :, 1, 9, 9) = (/&
&9.2560e-04_jprb,8.1125e-04_jprb,6.9819e-04_jprb,5.8413e-04_jprb,4.7055e-04_jprb,3.5015e-04_jprb,&
&5.5500e-06_jprb,4.9629e-06_jprb,2.0290e-03_jprb/)
kao( :, 2, 9, 9) = (/&
&9.1093e-04_jprb,8.0097e-04_jprb,6.9137e-04_jprb,5.8249e-04_jprb,4.7378e-04_jprb,3.6194e-04_jprb,&
&3.0062e-05_jprb,1.0842e-05_jprb,3.9531e-03_jprb/)
kao( :, 3, 9, 9) = (/&
&8.9709e-04_jprb,7.9180e-04_jprb,6.8775e-04_jprb,5.8518e-04_jprb,4.8156e-04_jprb,3.7367e-04_jprb,&
&1.7999e-04_jprb,1.5619e-05_jprb,7.0405e-03_jprb/)
kao( :, 4, 9, 9) = (/&
&8.8317e-04_jprb,7.8542e-04_jprb,6.8899e-04_jprb,5.9345e-04_jprb,4.9320e-04_jprb,3.9217e-04_jprb,&
&2.8412e-04_jprb,3.4988e-05_jprb,1.1630e-02_jprb/)
kao( :, 5, 9, 9) = (/&
&8.7042e-04_jprb,7.8172e-04_jprb,6.9655e-04_jprb,6.0534e-04_jprb,5.1346e-04_jprb,4.2035e-04_jprb,&
&3.3049e-04_jprb,1.7732e-04_jprb,1.8084e-02_jprb/)
kao( :, 1,10, 9) = (/&
&1.0020e-03_jprb,8.7768e-04_jprb,7.5453e-04_jprb,6.2994e-04_jprb,5.0369e-04_jprb,2.0029e-04_jprb,&
&4.8338e-06_jprb,1.1150e-06_jprb,6.1828e-03_jprb/)
kao( :, 2,10, 9) = (/&
&9.8614e-04_jprb,8.6564e-04_jprb,7.4527e-04_jprb,6.2596e-04_jprb,5.0608e-04_jprb,3.8053e-04_jprb,&
&2.2407e-05_jprb,6.0753e-06_jprb,1.2701e-02_jprb/)
kao( :, 3,10, 9) = (/&
&9.7041e-04_jprb,8.5442e-04_jprb,7.4008e-04_jprb,6.2563e-04_jprb,5.1190e-04_jprb,3.9299e-04_jprb,&
&5.6685e-05_jprb,1.0644e-05_jprb,2.3596e-02_jprb/)
kao( :, 4,10, 9) = (/&
&9.5474e-04_jprb,8.4629e-04_jprb,7.3757e-04_jprb,6.3110e-04_jprb,5.2156e-04_jprb,4.0815e-04_jprb,&
&2.6069e-04_jprb,1.4418e-05_jprb,4.0339e-02_jprb/)
kao( :, 5,10, 9) = (/&
&9.3936e-04_jprb,8.3916e-04_jprb,7.4145e-04_jprb,6.4037e-04_jprb,5.3630e-04_jprb,4.3024e-04_jprb,&
&3.1815e-04_jprb,7.5689e-05_jprb,6.4528e-02_jprb/)
kao( :, 1,11, 9) = (/&
&1.0733e-03_jprb,9.4010e-04_jprb,8.0821e-04_jprb,6.7481e-04_jprb,5.3993e-04_jprb,1.7304e-04_jprb,&
&4.5690e-06_jprb,1.0947e-06_jprb,9.5058e-03_jprb/)
kao( :, 2,11, 9) = (/&
&1.0562e-03_jprb,9.2720e-04_jprb,7.9859e-04_jprb,6.7071e-04_jprb,5.4165e-04_jprb,4.0387e-04_jprb,&
&2.1514e-05_jprb,7.8378e-06_jprb,1.9538e-02_jprb/)
kao( :, 3,11, 9) = (/&
&1.0391e-03_jprb,9.1541e-04_jprb,7.9272e-04_jprb,6.7016e-04_jprb,5.4829e-04_jprb,4.2037e-04_jprb,&
&4.6128e-05_jprb,1.0839e-05_jprb,3.6276e-02_jprb/)
kao( :, 4,11, 9) = (/&
&1.0222e-03_jprb,9.0627e-04_jprb,7.9028e-04_jprb,6.7590e-04_jprb,5.5839e-04_jprb,4.3725e-04_jprb,&
&2.4358e-04_jprb,1.5967e-05_jprb,6.2057e-02_jprb/)
kao( :, 5,11, 9) = (/&
&1.0062e-03_jprb,8.9870e-04_jprb,7.9417e-04_jprb,6.8540e-04_jprb,5.7395e-04_jprb,4.5941e-04_jprb,&
&3.3487e-04_jprb,5.8510e-05_jprb,9.9558e-02_jprb/)
kao( :, 1,12, 9) = (/&
&1.1429e-03_jprb,1.0011e-03_jprb,8.6066e-04_jprb,7.1891e-04_jprb,5.7572e-04_jprb,2.3708e-04_jprb,&
&4.4567e-06_jprb,5.1497e-06_jprb,1.0798e-02_jprb/)
kao( :, 2,12, 9) = (/&
&1.1252e-03_jprb,9.8802e-04_jprb,8.5145e-04_jprb,7.1518e-04_jprb,5.7793e-04_jprb,4.3517e-04_jprb,&
&2.8931e-05_jprb,1.3305e-05_jprb,2.2185e-02_jprb/)
kao( :, 3,12, 9) = (/&
&1.1078e-03_jprb,9.7648e-04_jprb,8.4588e-04_jprb,7.1557e-04_jprb,5.8568e-04_jprb,4.5025e-04_jprb,&
&8.7797e-05_jprb,1.2058e-05_jprb,4.1218e-02_jprb/)
kao( :, 4,12, 9) = (/&
&1.0907e-03_jprb,9.6728e-04_jprb,8.4415e-04_jprb,7.2188e-04_jprb,5.9608e-04_jprb,4.6749e-04_jprb,&
&2.9839e-04_jprb,1.3906e-05_jprb,7.0748e-02_jprb/)
kao( :, 5,12, 9) = (/&
&1.0737e-03_jprb,9.5961e-04_jprb,8.4835e-04_jprb,7.3154e-04_jprb,6.1267e-04_jprb,4.9042e-04_jprb,&
&3.5775e-04_jprb,5.9229e-05_jprb,1.1398e-01_jprb/)
kao( :, 1,13, 9) = (/&
&1.2093e-03_jprb,1.0592e-03_jprb,9.1069e-04_jprb,7.6104e-04_jprb,6.0998e-04_jprb,3.0141e-04_jprb,&
&8.4692e-06_jprb,3.6390e-06_jprb,9.7505e-03_jprb/)
kao( :, 2,13, 9) = (/&
&1.1916e-03_jprb,1.0465e-03_jprb,9.0223e-04_jprb,7.5810e-04_jprb,6.1322e-04_jprb,4.6338e-04_jprb,&
&3.8957e-05_jprb,7.1625e-06_jprb,2.0045e-02_jprb/)
kao( :, 3,13, 9) = (/&
&1.1742e-03_jprb,1.0355e-03_jprb,8.9704e-04_jprb,7.5964e-04_jprb,6.2169e-04_jprb,4.7851e-04_jprb,&
&1.3589e-04_jprb,1.1895e-05_jprb,3.7380e-02_jprb/)
kao( :, 4,13, 9) = (/&
&1.1565e-03_jprb,1.0260e-03_jprb,8.9628e-04_jprb,7.6660e-04_jprb,6.3308e-04_jprb,4.9715e-04_jprb,&
&3.4150e-04_jprb,1.1060e-05_jprb,6.4458e-02_jprb/)
kao( :, 5,13, 9) = (/&
&1.1382e-03_jprb,1.0180e-03_jprb,9.0061e-04_jprb,7.7706e-04_jprb,6.5089e-04_jprb,5.2149e-04_jprb,&
&3.8129e-04_jprb,5.9752e-05_jprb,1.0436e-01_jprb/)
kao( :, 1, 1,10) = (/&
&9.4926e-04_jprb,8.5786e-04_jprb,8.1138e-04_jprb,7.6433e-04_jprb,7.2663e-04_jprb,7.8967e-04_jprb,&
&8.8787e-04_jprb,9.8903e-04_jprb,1.1026e-03_jprb/)
kao( :, 2, 1,10) = (/&
&1.2390e-03_jprb,1.1300e-03_jprb,1.0621e-03_jprb,9.8809e-04_jprb,9.8084e-04_jprb,1.1153e-03_jprb,&
&1.2754e-03_jprb,1.4463e-03_jprb,1.6199e-03_jprb/)
kao( :, 3, 1,10) = (/&
&1.6285e-03_jprb,1.4941e-03_jprb,1.4019e-03_jprb,1.3143e-03_jprb,1.3388e-03_jprb,1.5587e-03_jprb,&
&1.7963e-03_jprb,2.0319e-03_jprb,2.2893e-03_jprb/)
kao( :, 4, 1,10) = (/&
&2.1075e-03_jprb,1.9429e-03_jprb,1.8233e-03_jprb,1.7260e-03_jprb,1.7987e-03_jprb,2.1195e-03_jprb,&
&2.4630e-03_jprb,2.8065e-03_jprb,3.1716e-03_jprb/)
kao( :, 5, 1,10) = (/&
&2.6676e-03_jprb,2.4810e-03_jprb,2.3359e-03_jprb,2.2329e-03_jprb,2.3416e-03_jprb,2.7812e-03_jprb,&
&3.2550e-03_jprb,3.7334e-03_jprb,4.2210e-03_jprb/)
kao( :, 1, 2,10) = (/&
&8.9025e-04_jprb,8.0274e-04_jprb,7.4274e-04_jprb,6.8609e-04_jprb,6.7102e-04_jprb,7.1742e-04_jprb,&
&7.9680e-04_jprb,8.7045e-04_jprb,9.7644e-04_jprb/)
kao( :, 2, 2,10) = (/&
&1.1017e-03_jprb,1.0100e-03_jprb,9.5453e-04_jprb,8.9274e-04_jprb,8.8682e-04_jprb,1.0003e-03_jprb,&
&1.1309e-03_jprb,1.2737e-03_jprb,1.4319e-03_jprb/)
kao( :, 3, 2,10) = (/&
&1.4395e-03_jprb,1.3424e-03_jprb,1.2619e-03_jprb,1.1931e-03_jprb,1.1956e-03_jprb,1.3885e-03_jprb,&
&1.5988e-03_jprb,1.8061e-03_jprb,2.0428e-03_jprb/)
kao( :, 4, 2,10) = (/&
&1.8618e-03_jprb,1.7544e-03_jprb,1.6479e-03_jprb,1.5853e-03_jprb,1.5993e-03_jprb,1.8833e-03_jprb,&
&2.1846e-03_jprb,2.4927e-03_jprb,2.8370e-03_jprb/)
kao( :, 5, 2,10) = (/&
&2.3686e-03_jprb,2.2486e-03_jprb,2.1364e-03_jprb,2.0670e-03_jprb,2.0882e-03_jprb,2.4685e-03_jprb,&
&2.8904e-03_jprb,3.3295e-03_jprb,3.7864e-03_jprb/)
kao( :, 1, 3,10) = (/&
&8.4979e-04_jprb,7.6433e-04_jprb,6.9594e-04_jprb,6.3370e-04_jprb,5.8853e-04_jprb,5.9559e-04_jprb,&
&6.5667e-04_jprb,7.1533e-04_jprb,8.1217e-04_jprb/)
kao( :, 2, 3,10) = (/&
&9.3603e-04_jprb,8.5921e-04_jprb,7.9338e-04_jprb,7.5508e-04_jprb,7.6062e-04_jprb,8.4114e-04_jprb,&
&9.4920e-04_jprb,1.0487e-03_jprb,1.2014e-03_jprb/)
kao( :, 3, 3,10) = (/&
&1.1433e-03_jprb,1.0846e-03_jprb,1.0263e-03_jprb,9.9233e-04_jprb,1.0119e-03_jprb,1.1695e-03_jprb,&
&1.3351e-03_jprb,1.4995e-03_jprb,1.7286e-03_jprb/)
kao( :, 4, 3,10) = (/&
&1.4720e-03_jprb,1.4093e-03_jprb,1.3576e-03_jprb,1.3122e-03_jprb,1.3394e-03_jprb,1.5776e-03_jprb,&
&1.8258e-03_jprb,2.0744e-03_jprb,2.3896e-03_jprb/)
kao( :, 5, 3,10) = (/&
&1.8783e-03_jprb,1.8107e-03_jprb,1.7793e-03_jprb,1.7293e-03_jprb,1.7612e-03_jprb,2.0848e-03_jprb,&
&2.4329e-03_jprb,2.7873e-03_jprb,3.2122e-03_jprb/)
kao( :, 1, 4,10) = (/&
&8.5598e-04_jprb,7.6200e-04_jprb,6.7698e-04_jprb,6.0274e-04_jprb,5.4143e-04_jprb,4.8510e-04_jprb,&
&5.0808e-04_jprb,5.4195e-04_jprb,7.2030e-04_jprb/)
kao( :, 2, 4,10) = (/&
&8.7829e-04_jprb,7.9754e-04_jprb,7.2820e-04_jprb,6.8132e-04_jprb,6.4105e-04_jprb,6.7652e-04_jprb,&
&7.5328e-04_jprb,8.3000e-04_jprb,1.1216e-03_jprb/)
kao( :, 3, 4,10) = (/&
&9.6941e-04_jprb,9.0019e-04_jprb,8.3950e-04_jprb,8.2706e-04_jprb,8.3972e-04_jprb,9.4956e-04_jprb,&
&1.0831e-03_jprb,1.2181e-03_jprb,1.6652e-03_jprb/)
kao( :, 4, 4,10) = (/&
&1.1497e-03_jprb,1.1076e-03_jprb,1.0973e-03_jprb,1.0748e-03_jprb,1.1139e-03_jprb,1.3070e-03_jprb,&
&1.5051e-03_jprb,1.7091e-03_jprb,2.3798e-03_jprb/)
kao( :, 5, 4,10) = (/&
&1.4423e-03_jprb,1.4228e-03_jprb,1.4377e-03_jprb,1.4117e-03_jprb,1.4741e-03_jprb,1.7577e-03_jprb,&
&2.0499e-03_jprb,2.3324e-03_jprb,3.2737e-03_jprb/)
kao( :, 1, 5,10) = (/&
&8.8900e-04_jprb,7.8652e-04_jprb,6.9034e-04_jprb,5.9667e-04_jprb,5.1545e-04_jprb,4.4672e-04_jprb,&
&3.9522e-04_jprb,3.0801e-04_jprb,9.0832e-04_jprb/)
kao( :, 2, 5,10) = (/&
&8.9256e-04_jprb,7.9933e-04_jprb,7.1388e-04_jprb,6.4679e-04_jprb,5.8953e-04_jprb,5.4566e-04_jprb,&
&5.8778e-04_jprb,6.2517e-04_jprb,1.4726e-03_jprb/)
kao( :, 3, 5,10) = (/&
&9.1630e-04_jprb,8.3731e-04_jprb,7.6863e-04_jprb,7.3348e-04_jprb,7.0053e-04_jprb,7.6737e-04_jprb,&
&8.6212e-04_jprb,9.5439e-04_jprb,2.2518e-03_jprb/)
kao( :, 4, 5,10) = (/&
&1.0039e-03_jprb,9.3325e-04_jprb,8.9498e-04_jprb,8.8178e-04_jprb,9.2025e-04_jprb,1.0734e-03_jprb,&
&1.2371e-03_jprb,1.3976e-03_jprb,3.3076e-03_jprb/)
kao( :, 5, 5,10) = (/&
&1.1384e-03_jprb,1.1125e-03_jprb,1.1459e-03_jprb,1.1447e-03_jprb,1.2384e-03_jprb,1.4768e-03_jprb,&
&1.7232e-03_jprb,1.9621e-03_jprb,4.6582e-03_jprb/)
kao( :, 1, 6,10) = (/&
&9.4887e-04_jprb,8.3839e-04_jprb,7.3102e-04_jprb,6.2493e-04_jprb,5.2042e-04_jprb,4.2275e-04_jprb,&
&3.3556e-04_jprb,3.4740e-06_jprb,1.1251e-03_jprb/)
kao( :, 2, 6,10) = (/&
&9.3677e-04_jprb,8.3218e-04_jprb,7.3454e-04_jprb,6.4594e-04_jprb,5.6378e-04_jprb,4.9151e-04_jprb,&
&4.4994e-04_jprb,4.2597e-04_jprb,1.8832e-03_jprb/)
kao( :, 3, 6,10) = (/&
&9.3921e-04_jprb,8.4673e-04_jprb,7.5957e-04_jprb,6.9636e-04_jprb,6.3706e-04_jprb,6.1057e-04_jprb,&
&6.7476e-04_jprb,7.3912e-04_jprb,2.9583e-03_jprb/)
kao( :, 4, 6,10) = (/&
&9.5719e-04_jprb,8.7688e-04_jprb,8.1813e-04_jprb,7.7967e-04_jprb,7.5775e-04_jprb,8.5851e-04_jprb,&
&9.8609e-04_jprb,1.1121e-03_jprb,4.4273e-03_jprb/)
kao( :, 5, 6,10) = (/&
&1.0294e-03_jprb,9.6457e-04_jprb,9.3753e-04_jprb,9.2588e-04_jprb,1.0133e-03_jprb,1.2038e-03_jprb,&
&1.4020e-03_jprb,1.6034e-03_jprb,6.3437e-03_jprb/)
kao( :, 1, 7,10) = (/&
&1.0279e-03_jprb,9.0433e-04_jprb,7.8375e-04_jprb,6.6508e-04_jprb,5.4484e-04_jprb,4.2431e-04_jprb,&
&2.6888e-04_jprb,7.8015e-06_jprb,1.4588e-03_jprb/)
kao( :, 2, 7,10) = (/&
&1.0083e-03_jprb,8.9241e-04_jprb,7.8172e-04_jprb,6.7204e-04_jprb,5.7124e-04_jprb,4.6914e-04_jprb,&
&3.6802e-04_jprb,8.6137e-05_jprb,2.5625e-03_jprb/)
kao( :, 3, 7,10) = (/&
&9.9596e-04_jprb,8.9237e-04_jprb,7.9108e-04_jprb,7.0321e-04_jprb,6.1556e-04_jprb,5.3871e-04_jprb,&
&5.1518e-04_jprb,5.4052e-04_jprb,4.1805e-03_jprb/)
kao( :, 4, 7,10) = (/&
&9.8826e-04_jprb,8.9639e-04_jprb,8.1334e-04_jprb,7.5573e-04_jprb,6.8824e-04_jprb,6.8183e-04_jprb,&
&7.7451e-04_jprb,8.6801e-04_jprb,6.4027e-03_jprb/)
kao( :, 5, 7,10) = (/&
&1.0011e-03_jprb,9.2233e-04_jprb,8.6964e-04_jprb,8.2719e-04_jprb,8.3320e-04_jprb,9.6571e-04_jprb,&
&1.1203e-03_jprb,1.2853e-03_jprb,9.3461e-03_jprb/)
kao( :, 1, 8,10) = (/&
&1.1125e-03_jprb,9.7475e-04_jprb,8.4628e-04_jprb,7.1245e-04_jprb,5.8223e-04_jprb,4.4955e-04_jprb,&
&1.2055e-05_jprb,1.4979e-05_jprb,2.2126e-03_jprb/)
kao( :, 2, 8,10) = (/&
&1.0938e-03_jprb,9.6654e-04_jprb,8.3997e-04_jprb,7.1323e-04_jprb,5.9255e-04_jprb,4.7230e-04_jprb,&
&3.2313e-04_jprb,3.4269e-06_jprb,4.0836e-03_jprb/)
kao( :, 3, 8,10) = (/&
&1.0758e-03_jprb,9.5487e-04_jprb,8.3741e-04_jprb,7.2643e-04_jprb,6.2166e-04_jprb,5.1323e-04_jprb,&
&4.2493e-04_jprb,3.0113e-04_jprb,6.9437e-03_jprb/)
kao( :, 4, 8,10) = (/&
&1.0550e-03_jprb,9.4862e-04_jprb,8.4799e-04_jprb,7.6117e-04_jprb,6.7028e-04_jprb,5.9614e-04_jprb,&
&6.0166e-04_jprb,6.5642e-04_jprb,1.1024e-02_jprb/)
kao( :, 5, 8,10) = (/&
&1.0393e-03_jprb,9.5089e-04_jprb,8.7866e-04_jprb,8.1224e-04_jprb,7.5400e-04_jprb,7.6815e-04_jprb,&
&8.8282e-04_jprb,1.0221e-03_jprb,1.6724e-02_jprb/)
kao( :, 1, 9,10) = (/&
&1.2180e-03_jprb,1.0664e-03_jprb,9.2270e-04_jprb,7.7328e-04_jprb,6.2475e-04_jprb,4.6815e-04_jprb,&
&9.5178e-06_jprb,3.3772e-06_jprb,6.2846e-03_jprb/)
kao( :, 2, 9,10) = (/&
&1.1921e-03_jprb,1.0498e-03_jprb,9.0635e-04_jprb,7.6682e-04_jprb,6.2317e-04_jprb,4.8406e-04_jprb,&
&8.3341e-05_jprb,3.8343e-06_jprb,1.2227e-02_jprb/)
kao( :, 3, 9,10) = (/&
&1.1669e-03_jprb,1.0310e-03_jprb,8.9852e-04_jprb,7.6558e-04_jprb,6.4277e-04_jprb,5.2121e-04_jprb,&
&3.7666e-04_jprb,1.2040e-05_jprb,2.1734e-02_jprb/)
kao( :, 4, 9,10) = (/&
&1.1470e-03_jprb,1.0235e-03_jprb,9.0044e-04_jprb,7.8767e-04_jprb,6.8183e-04_jprb,5.6489e-04_jprb,&
&4.9156e-04_jprb,4.5088e-04_jprb,3.6006e-02_jprb/)
kao( :, 5, 9,10) = (/&
&1.1295e-03_jprb,1.0174e-03_jprb,9.1849e-04_jprb,8.2709e-04_jprb,7.3027e-04_jprb,6.6994e-04_jprb,&
&6.9088e-04_jprb,7.9186e-04_jprb,5.6162e-02_jprb/)
kao( :, 1,10,10) = (/&
&1.3419e-03_jprb,1.1745e-03_jprb,1.0112e-03_jprb,8.4729e-04_jprb,6.7925e-04_jprb,4.9697e-04_jprb,&
&1.5254e-06_jprb,1.5343e-06_jprb,2.0999e-02_jprb/)
kao( :, 2,10,10) = (/&
&1.3141e-03_jprb,1.1539e-03_jprb,9.9630e-04_jprb,8.3744e-04_jprb,6.7916e-04_jprb,5.1101e-04_jprb,&
&6.8452e-06_jprb,3.0451e-06_jprb,4.3024e-02_jprb/)
kao( :, 3,10,10) = (/&
&1.2898e-03_jprb,1.1375e-03_jprb,9.8703e-04_jprb,8.3404e-04_jprb,6.8649e-04_jprb,5.3929e-04_jprb,&
&3.2626e-04_jprb,6.0173e-06_jprb,7.9885e-02_jprb/)
kao( :, 4,10,10) = (/&
&1.2672e-03_jprb,1.1264e-03_jprb,9.8249e-04_jprb,8.4764e-04_jprb,7.1223e-04_jprb,5.7730e-04_jprb,&
&4.4171e-04_jprb,9.9896e-05_jprb,1.3680e-01_jprb/)
kao( :, 5,10,10) = (/&
&1.2477e-03_jprb,1.1172e-03_jprb,9.9135e-04_jprb,8.7077e-04_jprb,7.4770e-04_jprb,6.3934e-04_jprb,&
&5.7696e-04_jprb,6.1656e-04_jprb,2.1952e-01_jprb/)
kao( :, 1,11,10) = (/&
&1.4755e-03_jprb,1.2917e-03_jprb,1.1119e-03_jprb,9.3058e-04_jprb,7.4744e-04_jprb,5.5051e-04_jprb,&
&1.6522e-06_jprb,1.5412e-06_jprb,3.4475e-02_jprb/)
kao( :, 2,11,10) = (/&
&1.4485e-03_jprb,1.2719e-03_jprb,1.0971e-03_jprb,9.2191e-04_jprb,7.4745e-04_jprb,5.7109e-04_jprb,&
&1.1696e-05_jprb,3.1243e-06_jprb,7.0850e-02_jprb/)
kao( :, 3,11,10) = (/&
&1.4264e-03_jprb,1.2579e-03_jprb,1.0914e-03_jprb,9.2154e-04_jprb,7.5855e-04_jprb,5.9482e-04_jprb,&
&3.1605e-04_jprb,9.6309e-06_jprb,1.3183e-01_jprb/)
kao( :, 4,11,10) = (/&
&1.4023e-03_jprb,1.2457e-03_jprb,1.0849e-03_jprb,9.3462e-04_jprb,7.7881e-04_jprb,6.1925e-04_jprb,&
&4.6174e-04_jprb,2.1053e-05_jprb,2.2597e-01_jprb/)
kao( :, 5,11,10) = (/&
&1.3792e-03_jprb,1.2345e-03_jprb,1.0916e-03_jprb,9.5041e-04_jprb,8.0615e-04_jprb,6.7157e-04_jprb,&
&5.8929e-04_jprb,6.0215e-04_jprb,3.6233e-01_jprb/)
kao( :, 1,12,10) = (/&
&1.6315e-03_jprb,1.4286e-03_jprb,1.2296e-03_jprb,1.0282e-03_jprb,8.2450e-04_jprb,6.1652e-04_jprb,&
&3.3057e-06_jprb,1.5465e-06_jprb,4.1474e-02_jprb/)
kao( :, 2,12,10) = (/&
&1.6041e-03_jprb,1.4085e-03_jprb,1.2135e-03_jprb,1.0193e-03_jprb,8.2407e-04_jprb,6.2890e-04_jprb,&
&2.0154e-05_jprb,3.2488e-06_jprb,8.5418e-02_jprb/)
kao( :, 3,12,10) = (/&
&1.5781e-03_jprb,1.3908e-03_jprb,1.2052e-03_jprb,1.0160e-03_jprb,8.3518e-04_jprb,6.5087e-04_jprb,&
&4.2444e-04_jprb,1.1529e-05_jprb,1.5881e-01_jprb/)
kao( :, 4,12,10) = (/&
&1.5539e-03_jprb,1.3775e-03_jprb,1.1979e-03_jprb,1.0287e-03_jprb,8.5555e-04_jprb,6.7702e-04_jprb,&
&4.9760e-04_jprb,3.6698e-05_jprb,2.7219e-01_jprb/)
kao( :, 5,12,10) = (/&
&1.5294e-03_jprb,1.3662e-03_jprb,1.2069e-03_jprb,1.0470e-03_jprb,8.8424e-04_jprb,7.2459e-04_jprb,&
&6.0457e-04_jprb,5.8830e-04_jprb,4.3580e-01_jprb/)
kao( :, 1,13,10) = (/&
&1.8076e-03_jprb,1.5828e-03_jprb,1.3613e-03_jprb,1.1383e-03_jprb,9.1463e-04_jprb,6.8299e-04_jprb,&
&3.0458e-06_jprb,2.1473e-06_jprb,3.9495e-02_jprb/)
kao( :, 2,13,10) = (/&
&1.7788e-03_jprb,1.5607e-03_jprb,1.3444e-03_jprb,1.1293e-03_jprb,9.1288e-04_jprb,6.9366e-04_jprb,&
&2.1339e-05_jprb,1.1723e-05_jprb,8.1294e-02_jprb/)
kao( :, 3,13,10) = (/&
&1.7495e-03_jprb,1.5404e-03_jprb,1.3343e-03_jprb,1.1244e-03_jprb,9.2221e-04_jprb,7.1955e-04_jprb,&
&4.9268e-04_jprb,4.3370e-06_jprb,1.5101e-01_jprb/)
kao( :, 4,13,10) = (/&
&1.7235e-03_jprb,1.5270e-03_jprb,1.3269e-03_jprb,1.1365e-03_jprb,9.4473e-04_jprb,7.4612e-04_jprb,&
&5.5227e-04_jprb,4.6866e-05_jprb,2.5856e-01_jprb/)
kao( :, 5,13,10) = (/&
&1.6990e-03_jprb,1.5170e-03_jprb,1.3368e-03_jprb,1.1584e-03_jprb,9.7488e-04_jprb,7.9318e-04_jprb,&
&6.2728e-04_jprb,5.6960e-04_jprb,4.1354e-01_jprb/)
kao( :, 1, 1,11) = (/&
&1.0196e-03_jprb,9.3758e-04_jprb,9.0316e-04_jprb,8.5667e-04_jprb,8.7577e-04_jprb,1.0236e-03_jprb,&
&1.1763e-03_jprb,1.3143e-03_jprb,1.4719e-03_jprb/)
kao( :, 2, 1,11) = (/&
&1.3459e-03_jprb,1.2311e-03_jprb,1.1576e-03_jprb,1.1100e-03_jprb,1.2232e-03_jprb,1.4576e-03_jprb,&
&1.6924e-03_jprb,1.9154e-03_jprb,2.1488e-03_jprb/)
kao( :, 3, 1,11) = (/&
&1.7777e-03_jprb,1.6234e-03_jprb,1.5128e-03_jprb,1.4437e-03_jprb,1.6918e-03_jprb,2.0373e-03_jprb,&
&2.3872e-03_jprb,2.7172e-03_jprb,3.0763e-03_jprb/)
kao( :, 4, 1,11) = (/&
&2.2969e-03_jprb,2.1117e-03_jprb,1.9790e-03_jprb,1.9131e-03_jprb,2.3134e-03_jprb,2.7903e-03_jprb,&
&3.2537e-03_jprb,3.7099e-03_jprb,4.2069e-03_jprb/)
kao( :, 5, 1,11) = (/&
&2.9364e-03_jprb,2.7064e-03_jprb,2.5487e-03_jprb,2.4995e-03_jprb,3.0802e-03_jprb,3.7340e-03_jprb,&
&4.3606e-03_jprb,4.9323e-03_jprb,5.6150e-03_jprb/)
kao( :, 1, 2,11) = (/&
&9.5564e-04_jprb,8.6594e-04_jprb,8.2247e-04_jprb,7.8184e-04_jprb,7.7258e-04_jprb,8.9065e-04_jprb,&
&1.0177e-03_jprb,1.1498e-03_jprb,1.2899e-03_jprb/)
kao( :, 2, 2,11) = (/&
&1.2029e-03_jprb,1.1043e-03_jprb,1.0479e-03_jprb,9.9924e-04_jprb,1.0917e-03_jprb,1.3015e-03_jprb,&
&1.5067e-03_jprb,1.7035e-03_jprb,1.9385e-03_jprb/)
kao( :, 3, 2,11) = (/&
&1.5957e-03_jprb,1.4702e-03_jprb,1.3834e-03_jprb,1.3292e-03_jprb,1.5404e-03_jprb,1.8482e-03_jprb,&
&2.1587e-03_jprb,2.4595e-03_jprb,2.8087e-03_jprb/)
kao( :, 4, 2,11) = (/&
&2.0836e-03_jprb,1.9269e-03_jprb,1.8210e-03_jprb,1.7577e-03_jprb,2.1115e-03_jprb,2.5490e-03_jprb,&
&2.9802e-03_jprb,3.4053e-03_jprb,3.8766e-03_jprb/)
kao( :, 5, 2,11) = (/&
&2.6761e-03_jprb,2.4830e-03_jprb,2.3690e-03_jprb,2.3218e-03_jprb,2.8435e-03_jprb,3.4292e-03_jprb,&
&4.0478e-03_jprb,4.5913e-03_jprb,5.2765e-03_jprb/)
kao( :, 1, 3,11) = (/&
&9.1098e-04_jprb,8.1971e-04_jprb,7.5453e-04_jprb,6.8955e-04_jprb,6.6573e-04_jprb,7.4366e-04_jprb,&
&8.3291e-04_jprb,9.1681e-04_jprb,1.0507e-03_jprb/)
kao( :, 2, 3,11) = (/&
&1.0095e-03_jprb,9.2632e-04_jprb,8.7912e-04_jprb,8.5222e-04_jprb,9.1711e-04_jprb,1.0796e-03_jprb,&
&1.2384e-03_jprb,1.3937e-03_jprb,1.6031e-03_jprb/)
kao( :, 3, 3,11) = (/&
&1.2860e-03_jprb,1.2005e-03_jprb,1.1448e-03_jprb,1.1224e-03_jprb,1.2896e-03_jprb,1.5406e-03_jprb,&
&1.7947e-03_jprb,2.0396e-03_jprb,2.3408e-03_jprb/)
kao( :, 4, 3,11) = (/&
&1.6840e-03_jprb,1.5843e-03_jprb,1.5072e-03_jprb,1.4946e-03_jprb,1.7912e-03_jprb,2.1550e-03_jprb,&
&2.5174e-03_jprb,2.8934e-03_jprb,3.3321e-03_jprb/)
kao( :, 5, 3,11) = (/&
&2.1821e-03_jprb,2.0586e-03_jprb,1.9862e-03_jprb,1.9857e-03_jprb,2.4329e-03_jprb,2.9479e-03_jprb,&
&3.4818e-03_jprb,3.9625e-03_jprb,4.5981e-03_jprb/)
kao( :, 1, 4,11) = (/&
&9.1007e-04_jprb,8.1515e-04_jprb,7.4019e-04_jprb,6.6666e-04_jprb,6.0223e-04_jprb,6.1717e-04_jprb,&
&6.7688e-04_jprb,7.1358e-04_jprb,8.7370e-04_jprb/)
kao( :, 2, 4,11) = (/&
&9.4061e-04_jprb,8.5858e-04_jprb,8.0024e-04_jprb,7.4707e-04_jprb,7.7220e-04_jprb,8.8981e-04_jprb,&
&1.0064e-03_jprb,1.1094e-03_jprb,1.3491e-03_jprb/)
kao( :, 3, 4,11) = (/&
&1.0580e-03_jprb,9.8116e-04_jprb,9.2713e-04_jprb,9.3975e-04_jprb,1.0753e-03_jprb,1.2664e-03_jprb,&
&1.4600e-03_jprb,1.6482e-03_jprb,1.9983e-03_jprb/)
kao( :, 4, 4,11) = (/&
&1.3185e-03_jprb,1.2651e-03_jprb,1.2235e-03_jprb,1.2449e-03_jprb,1.4893e-03_jprb,1.7828e-03_jprb,&
&2.0723e-03_jprb,2.3550e-03_jprb,2.8663e-03_jprb/)
kao( :, 5, 4,11) = (/&
&1.7012e-03_jprb,1.6381e-03_jprb,1.6202e-03_jprb,1.6478e-03_jprb,2.0248e-03_jprb,2.4554e-03_jprb,&
&2.8747e-03_jprb,3.2963e-03_jprb,4.0058e-03_jprb/)
kao( :, 1, 5,11) = (/&
&9.4336e-04_jprb,8.3814e-04_jprb,7.4599e-04_jprb,6.5815e-04_jprb,5.8713e-04_jprb,5.1959e-04_jprb,&
&5.3264e-04_jprb,5.5247e-04_jprb,1.0574e-03_jprb/)
kao( :, 2, 5,11) = (/&
&9.5312e-04_jprb,8.5894e-04_jprb,7.8295e-04_jprb,7.1666e-04_jprb,6.6657e-04_jprb,7.2698e-04_jprb,&
&8.1350e-04_jprb,8.9727e-04_jprb,1.7265e-03_jprb/)
kao( :, 3, 5,11) = (/&
&9.8083e-04_jprb,9.0340e-04_jprb,8.4536e-04_jprb,8.1479e-04_jprb,8.9835e-04_jprb,1.0481e-03_jprb,&
&1.2030e-03_jprb,1.3495e-03_jprb,2.6645e-03_jprb/)
kao( :, 4, 5,11) = (/&
&1.0919e-03_jprb,1.0271e-03_jprb,9.9432e-04_jprb,1.0447e-03_jprb,1.2444e-03_jprb,1.4845e-03_jprb,&
&1.7171e-03_jprb,1.9373e-03_jprb,3.9343e-03_jprb/)
kao( :, 5, 5,11) = (/&
&1.3125e-03_jprb,1.2964e-03_jprb,1.3064e-03_jprb,1.3776e-03_jprb,1.6940e-03_jprb,2.0397e-03_jprb,&
&2.3911e-03_jprb,2.7218e-03_jprb,5.5487e-03_jprb/)
kao( :, 1, 6,11) = (/&
&1.0191e-03_jprb,8.9896e-04_jprb,7.8508e-04_jprb,6.7831e-04_jprb,5.7633e-04_jprb,4.9216e-04_jprb,&
&4.0826e-04_jprb,9.2980e-05_jprb,1.3931e-03_jprb/)
kao( :, 2, 6,11) = (/&
&1.0047e-03_jprb,8.9662e-04_jprb,8.0205e-04_jprb,7.1402e-04_jprb,6.3991e-04_jprb,5.8384e-04_jprb,&
&6.2794e-04_jprb,6.7696e-04_jprb,2.3552e-03_jprb/)
kao( :, 3, 6,11) = (/&
&1.0047e-03_jprb,9.1475e-04_jprb,8.3262e-04_jprb,7.7264e-04_jprb,7.4682e-04_jprb,8.3595e-04_jprb,&
&9.5189e-04_jprb,1.0656e-03_jprb,3.7189e-03_jprb/)
kao( :, 4, 6,11) = (/&
&1.0246e-03_jprb,9.4864e-04_jprb,8.9322e-04_jprb,8.8690e-04_jprb,1.0204e-03_jprb,1.2021e-03_jprb,&
&1.3925e-03_jprb,1.5656e-03_jprb,5.5692e-03_jprb/)
kao( :, 5, 6,11) = (/&
&1.1192e-03_jprb,1.0605e-03_jprb,1.0485e-03_jprb,1.1451e-03_jprb,1.4045e-03_jprb,1.6858e-03_jprb,&
&1.9713e-03_jprb,2.2360e-03_jprb,7.9629e-03_jprb/)
kao( :, 1, 7,11) = (/&
&1.1105e-03_jprb,9.7554e-04_jprb,8.4845e-04_jprb,7.2311e-04_jprb,5.9822e-04_jprb,4.8054e-04_jprb,&
&3.5912e-04_jprb,1.6334e-05_jprb,1.8685e-03_jprb/)
kao( :, 2, 7,11) = (/&
&1.0953e-03_jprb,9.7181e-04_jprb,8.5659e-04_jprb,7.3634e-04_jprb,6.3339e-04_jprb,5.4068e-04_jprb,&
&4.8190e-04_jprb,4.0504e-04_jprb,3.3171e-03_jprb/)
kao( :, 3, 7,11) = (/&
&1.0776e-03_jprb,9.6988e-04_jprb,8.6596e-04_jprb,7.7221e-04_jprb,7.0034e-04_jprb,6.6772e-04_jprb,&
&7.4067e-04_jprb,8.0814e-04_jprb,5.4649e-03_jprb/)
kao( :, 4, 7,11) = (/&
&1.0633e-03_jprb,9.7163e-04_jprb,8.9525e-04_jprb,8.4042e-04_jprb,8.3803e-04_jprb,9.5863e-04_jprb,&
&1.0998e-03_jprb,1.2373e-03_jprb,8.4838e-03_jprb/)
kao( :, 5, 7,11) = (/&
&1.0727e-03_jprb,1.0017e-03_jprb,9.6422e-04_jprb,9.7682e-04_jprb,1.1474e-03_jprb,1.3738e-03_jprb,&
&1.6070e-03_jprb,1.8227e-03_jprb,1.2477e-02_jprb/)
kao( :, 1, 8,11) = (/&
&1.2212e-03_jprb,1.0686e-03_jprb,9.2776e-04_jprb,7.8030e-04_jprb,6.3679e-04_jprb,4.9028e-04_jprb,&
&2.5705e-05_jprb,3.5598e-06_jprb,3.0236e-03_jprb/)
kao( :, 2, 8,11) = (/&
&1.1904e-03_jprb,1.0515e-03_jprb,9.1846e-04_jprb,7.8584e-04_jprb,6.5098e-04_jprb,5.2805e-04_jprb,&
&4.1417e-04_jprb,7.4299e-06_jprb,5.6339e-03_jprb/)
kao( :, 3, 8,11) = (/&
&1.1656e-03_jprb,1.0373e-03_jprb,9.2017e-04_jprb,7.9903e-04_jprb,6.9375e-04_jprb,6.0910e-04_jprb,&
&5.7009e-04_jprb,5.4932e-04_jprb,9.6178e-03_jprb/)
kao( :, 4, 8,11) = (/&
&1.1498e-03_jprb,1.0424e-03_jprb,9.3266e-04_jprb,8.4261e-04_jprb,7.7492e-04_jprb,7.6691e-04_jprb,&
&8.6816e-04_jprb,9.6408e-04_jprb,1.5378e-02_jprb/)
kao( :, 5, 8,11) = (/&
&1.1310e-03_jprb,1.0416e-03_jprb,9.7038e-04_jprb,9.2287e-04_jprb,9.4475e-04_jprb,1.1097e-03_jprb,&
&1.2928e-03_jprb,1.4673e-03_jprb,2.3131e-02_jprb/)
kao( :, 1, 9,11) = (/&
&1.3346e-03_jprb,1.1677e-03_jprb,1.0079e-03_jprb,8.4634e-04_jprb,6.8278e-04_jprb,5.1557e-04_jprb,&
&6.2170e-06_jprb,3.5575e-07_jprb,9.0278e-03_jprb/)
kao( :, 2, 9,11) = (/&
&1.3004e-03_jprb,1.1437e-03_jprb,9.9288e-04_jprb,8.4407e-04_jprb,6.9152e-04_jprb,5.4161e-04_jprb,&
&3.0407e-04_jprb,7.5811e-06_jprb,1.7755e-02_jprb/)
kao( :, 3, 9,11) = (/&
&1.2716e-03_jprb,1.1282e-03_jprb,9.9193e-04_jprb,8.4979e-04_jprb,7.1877e-04_jprb,5.8562e-04_jprb,&
&4.7440e-04_jprb,1.3642e-04_jprb,3.1669e-02_jprb/)
kao( :, 4, 9,11) = (/&
&1.2493e-03_jprb,1.1232e-03_jprb,9.9486e-04_jprb,8.7574e-04_jprb,7.6208e-04_jprb,6.8407e-04_jprb,&
&6.7008e-04_jprb,7.2430e-04_jprb,5.2322e-02_jprb/)
kao( :, 5, 9,11) = (/&
&1.2292e-03_jprb,1.1190e-03_jprb,1.0123e-03_jprb,9.2200e-04_jprb,8.6839e-04_jprb,8.8671e-04_jprb,&
&1.0239e-03_jprb,1.1645e-03_jprb,8.1332e-02_jprb/)
kao( :, 1,10,11) = (/&
&1.4702e-03_jprb,1.2866e-03_jprb,1.1046e-03_jprb,9.2775e-04_jprb,7.4227e-04_jprb,5.4877e-04_jprb,&
&1.5669e-06_jprb,2.1750e-07_jprb,3.1809e-02_jprb/)
kao( :, 2,10,11) = (/&
&1.4381e-03_jprb,1.2591e-03_jprb,1.0910e-03_jprb,9.1751e-04_jprb,7.4581e-04_jprb,5.6956e-04_jprb,&
&1.4408e-05_jprb,2.9977e-06_jprb,6.5658e-02_jprb/)
kao( :, 3,10,11) = (/&
&1.4088e-03_jprb,1.2443e-03_jprb,1.0832e-03_jprb,9.2001e-04_jprb,7.6006e-04_jprb,6.0163e-04_jprb,&
&4.0981e-04_jprb,3.3752e-06_jprb,1.2158e-01_jprb/)
kao( :, 4,10,11) = (/&
&1.3837e-03_jprb,1.2299e-03_jprb,1.0785e-03_jprb,9.3172e-04_jprb,7.8792e-04_jprb,6.5978e-04_jprb,&
&5.6509e-04_jprb,4.3870e-04_jprb,2.0789e-01_jprb/)
kao( :, 5,10,11) = (/&
&1.3583e-03_jprb,1.2214e-03_jprb,1.0847e-03_jprb,9.6075e-04_jprb,8.5481e-04_jprb,7.9082e-04_jprb,&
&8.2900e-04_jprb,9.3239e-04_jprb,3.3217e-01_jprb/)
kao( :, 1,11,11) = (/&
&1.6253e-03_jprb,1.4219e-03_jprb,1.2219e-03_jprb,1.0236e-03_jprb,8.2003e-04_jprb,6.0541e-04_jprb,&
&1.4231e-06_jprb,1.8071e-07_jprb,5.4692e-02_jprb/)
kao( :, 2,11,11) = (/&
&1.5951e-03_jprb,1.3985e-03_jprb,1.2081e-03_jprb,1.0150e-03_jprb,8.2284e-04_jprb,6.1646e-04_jprb,&
&9.6207e-06_jprb,2.7452e-06_jprb,1.1216e-01_jprb/)
kao( :, 3,11,11) = (/&
&1.5642e-03_jprb,1.3790e-03_jprb,1.1965e-03_jprb,1.0113e-03_jprb,8.2943e-04_jprb,6.4775e-04_jprb,&
&4.3571e-04_jprb,8.6785e-06_jprb,2.0795e-01_jprb/)
kao( :, 4,11,11) = (/&
&1.5361e-03_jprb,1.3630e-03_jprb,1.1895e-03_jprb,1.0207e-03_jprb,8.5744e-04_jprb,7.0323e-04_jprb,&
&5.8809e-04_jprb,4.1682e-04_jprb,3.5571e-01_jprb/)
kao( :, 5,11,11) = (/&
&1.5066e-03_jprb,1.3488e-03_jprb,1.1930e-03_jprb,1.0481e-03_jprb,9.1295e-04_jprb,8.2679e-04_jprb,&
&8.2109e-04_jprb,9.1792e-04_jprb,5.7120e-01_jprb/)
kao( :, 1,12,11) = (/&
&1.8041e-03_jprb,1.5789e-03_jprb,1.3570e-03_jprb,1.1389e-03_jprb,9.1257e-04_jprb,6.7888e-04_jprb,&
&5.1658e-06_jprb,1.5829e-07_jprb,6.8561e-02_jprb/)
kao( :, 2,12,11) = (/&
&1.7738e-03_jprb,1.5558e-03_jprb,1.3438e-03_jprb,1.1292e-03_jprb,9.1436e-04_jprb,6.9573e-04_jprb,&
&2.0820e-05_jprb,3.7433e-06_jprb,1.4057e-01_jprb/)
kao( :, 3,12,11) = (/&
&1.7418e-03_jprb,1.5353e-03_jprb,1.3329e-03_jprb,1.1261e-03_jprb,9.2270e-04_jprb,7.2358e-04_jprb,&
&4.7954e-04_jprb,1.5535e-05_jprb,2.6118e-01_jprb/)
kao( :, 4,12,11) = (/&
&1.7090e-03_jprb,1.5180e-03_jprb,1.3238e-03_jprb,1.1375e-03_jprb,9.5111e-04_jprb,7.6548e-04_jprb,&
&6.0636e-04_jprb,4.1209e-04_jprb,4.4778e-01_jprb/)
kao( :, 5,12,11) = (/&
&1.6778e-03_jprb,1.5017e-03_jprb,1.3263e-03_jprb,1.1626e-03_jprb,9.9449e-04_jprb,8.6348e-04_jprb,&
&8.1707e-04_jprb,9.1552e-04_jprb,7.1823e-01_jprb/)
kao( :, 1,13,11) = (/&
&2.0162e-03_jprb,1.7643e-03_jprb,1.5166e-03_jprb,1.2707e-03_jprb,1.0200e-03_jprb,7.6409e-04_jprb,&
&1.3933e-06_jprb,1.3814e-07_jprb,6.7541e-02_jprb/)
kao( :, 2,13,11) = (/&
&1.9804e-03_jprb,1.7378e-03_jprb,1.5003e-03_jprb,1.2598e-03_jprb,1.0208e-03_jprb,7.7583e-04_jprb,&
&1.0519e-04_jprb,2.9677e-05_jprb,1.3898e-01_jprb/)
kao( :, 3,13,11) = (/&
&1.9463e-03_jprb,1.7141e-03_jprb,1.4887e-03_jprb,1.2580e-03_jprb,1.0319e-03_jprb,8.0958e-04_jprb,&
&5.4607e-04_jprb,8.2236e-06_jprb,2.5839e-01_jprb/)
kao( :, 4,13,11) = (/&
&1.9119e-03_jprb,1.6986e-03_jprb,1.4811e-03_jprb,1.2741e-03_jprb,1.0665e-03_jprb,8.4965e-04_jprb,&
&6.3669e-04_jprb,4.3144e-04_jprb,4.4372e-01_jprb/)
kao( :, 5,13,11) = (/&
&1.8807e-03_jprb,1.6835e-03_jprb,1.4885e-03_jprb,1.3024e-03_jprb,1.1081e-03_jprb,9.2308e-04_jprb,&
&8.2856e-04_jprb,9.1296e-04_jprb,7.1076e-01_jprb/)
kao( :, 1, 1,12) = (/&
&1.1348e-03_jprb,1.0512e-03_jprb,1.0112e-03_jprb,1.0380e-03_jprb,1.2591e-03_jprb,1.5034e-03_jprb,&
&1.7458e-03_jprb,1.9916e-03_jprb,2.2515e-03_jprb/)
kao( :, 2, 1,12) = (/&
&1.4497e-03_jprb,1.3258e-03_jprb,1.2902e-03_jprb,1.3933e-03_jprb,1.7402e-03_jprb,2.0749e-03_jprb,&
&2.4232e-03_jprb,2.7843e-03_jprb,3.1336e-03_jprb/)
kao( :, 3, 1,12) = (/&
&1.9087e-03_jprb,1.7431e-03_jprb,1.6616e-03_jprb,1.8437e-03_jprb,2.3259e-03_jprb,2.8106e-03_jprb,&
&3.3232e-03_jprb,3.7674e-03_jprb,4.2777e-03_jprb/)
kao( :, 4, 1,12) = (/&
&2.5088e-03_jprb,2.2929e-03_jprb,2.1415e-03_jprb,2.4320e-03_jprb,3.0901e-03_jprb,3.7563e-03_jprb,&
&4.4295e-03_jprb,5.0514e-03_jprb,5.7435e-03_jprb/)
kao( :, 5, 1,12) = (/&
&3.2224e-03_jprb,2.9512e-03_jprb,2.7375e-03_jprb,3.2055e-03_jprb,4.1147e-03_jprb,5.0116e-03_jprb,&
&5.9163e-03_jprb,6.7642e-03_jprb,7.7486e-03_jprb/)
kao( :, 1, 2,12) = (/&
&1.0492e-03_jprb,9.6475e-04_jprb,9.4375e-04_jprb,9.3817e-04_jprb,1.1146e-03_jprb,1.3292e-03_jprb,&
&1.5275e-03_jprb,1.7383e-03_jprb,1.9763e-03_jprb/)
kao( :, 2, 2,12) = (/&
&1.3114e-03_jprb,1.2057e-03_jprb,1.1899e-03_jprb,1.2587e-03_jprb,1.5556e-03_jprb,1.8745e-03_jprb,&
&2.1716e-03_jprb,2.4737e-03_jprb,2.8199e-03_jprb/)
kao( :, 3, 2,12) = (/&
&1.7413e-03_jprb,1.5927e-03_jprb,1.5301e-03_jprb,1.6869e-03_jprb,2.1324e-03_jprb,2.5756e-03_jprb,&
&3.0059e-03_jprb,3.4270e-03_jprb,3.9244e-03_jprb/)
kao( :, 4, 2,12) = (/&
&2.2840e-03_jprb,2.1084e-03_jprb,1.9850e-03_jprb,2.2595e-03_jprb,2.8933e-03_jprb,3.5203e-03_jprb,&
&4.1407e-03_jprb,4.7114e-03_jprb,5.4047e-03_jprb/)
kao( :, 5, 2,12) = (/&
&2.9533e-03_jprb,2.7476e-03_jprb,2.5658e-03_jprb,3.0087e-03_jprb,3.8774e-03_jprb,4.7340e-03_jprb,&
&5.5746e-03_jprb,6.3471e-03_jprb,7.3465e-03_jprb/)
kao( :, 1, 3,12) = (/&
&9.8854e-04_jprb,8.9343e-04_jprb,8.4035e-04_jprb,7.9923e-04_jprb,8.9609e-04_jprb,1.0622e-03_jprb,&
&1.2115e-03_jprb,1.3909e-03_jprb,1.5813e-03_jprb/)
kao( :, 2, 3,12) = (/&
&1.0879e-03_jprb,1.0117e-03_jprb,1.0134e-03_jprb,1.0514e-03_jprb,1.2838e-03_jprb,1.5374e-03_jprb,&
&1.7938e-03_jprb,2.0363e-03_jprb,2.3508e-03_jprb/)
kao( :, 3, 3,12) = (/&
&1.4163e-03_jprb,1.3226e-03_jprb,1.2897e-03_jprb,1.4327e-03_jprb,1.8163e-03_jprb,2.1941e-03_jprb,&
&2.5686e-03_jprb,2.9319e-03_jprb,3.4012e-03_jprb/)
kao( :, 4, 3,12) = (/&
&1.8714e-03_jprb,1.7493e-03_jprb,1.6791e-03_jprb,1.9710e-03_jprb,2.5266e-03_jprb,3.0817e-03_jprb,&
&3.6203e-03_jprb,4.1272e-03_jprb,4.8320e-03_jprb/)
kao( :, 5, 3,12) = (/&
&2.4278e-03_jprb,2.3027e-03_jprb,2.1923e-03_jprb,2.6689e-03_jprb,3.4381e-03_jprb,4.1969e-03_jprb,&
&4.9576e-03_jprb,5.6521e-03_jprb,6.6247e-03_jprb/)
kao( :, 1, 4,12) = (/&
&9.8669e-04_jprb,8.8509e-04_jprb,8.1352e-04_jprb,7.2996e-04_jprb,7.1817e-04_jprb,8.1881e-04_jprb,&
&9.2748e-04_jprb,1.0403e-03_jprb,1.2116e-03_jprb/)
kao( :, 2, 4,12) = (/&
&1.0290e-03_jprb,9.4426e-04_jprb,8.9000e-04_jprb,8.7285e-04_jprb,1.0287e-03_jprb,1.2254e-03_jprb,&
&1.4193e-03_jprb,1.6044e-03_jprb,1.8734e-03_jprb/)
kao( :, 3, 4,12) = (/&
&1.1436e-03_jprb,1.0840e-03_jprb,1.0833e-03_jprb,1.1914e-03_jprb,1.4983e-03_jprb,1.8005e-03_jprb,&
&2.1029e-03_jprb,2.3872e-03_jprb,2.8182e-03_jprb/)
kao( :, 4, 4,12) = (/&
&1.4872e-03_jprb,1.4093e-03_jprb,1.3825e-03_jprb,1.6613e-03_jprb,2.1282e-03_jprb,2.5939e-03_jprb,&
&3.0338e-03_jprb,3.4691e-03_jprb,4.1139e-03_jprb/)
kao( :, 5, 4,12) = (/&
&1.9382e-03_jprb,1.8528e-03_jprb,1.8277e-03_jprb,2.2907e-03_jprb,2.9502e-03_jprb,3.6113e-03_jprb,&
&4.2678e-03_jprb,4.8667e-03_jprb,5.7453e-03_jprb/)
kao( :, 1, 5,12) = (/&
&1.0261e-03_jprb,9.1725e-04_jprb,8.2759e-04_jprb,7.3874e-04_jprb,6.4512e-04_jprb,6.5305e-04_jprb,&
&7.2025e-04_jprb,7.5251e-04_jprb,1.2236e-03_jprb/)
kao( :, 2, 5,12) = (/&
&1.0342e-03_jprb,9.3335e-04_jprb,8.6180e-04_jprb,7.8962e-04_jprb,8.4539e-04_jprb,9.8224e-04_jprb,&
&1.1196e-03_jprb,1.2424e-03_jprb,1.9823e-03_jprb/)
kao( :, 3, 5,12) = (/&
&1.0684e-03_jprb,1.0038e-03_jprb,9.4286e-04_jprb,9.9237e-04_jprb,1.2238e-03_jprb,1.4671e-03_jprb,&
&1.7012e-03_jprb,1.9194e-03_jprb,3.0657e-03_jprb/)
kao( :, 4, 5,12) = (/&
&1.1964e-03_jprb,1.1404e-03_jprb,1.1495e-03_jprb,1.3909e-03_jprb,1.7635e-03_jprb,2.1391e-03_jprb,&
&2.5166e-03_jprb,2.8551e-03_jprb,4.5233e-03_jprb/)
kao( :, 5, 5,12) = (/&
&1.5188e-03_jprb,1.4742e-03_jprb,1.5113e-03_jprb,1.9296e-03_jprb,2.4758e-03_jprb,3.0285e-03_jprb,&
&3.5691e-03_jprb,4.1028e-03_jprb,6.4627e-03_jprb/)
kao( :, 1, 6,12) = (/&
&1.1049e-03_jprb,9.7887e-04_jprb,8.6230e-04_jprb,7.6209e-04_jprb,6.5337e-04_jprb,5.5666e-04_jprb,&
&5.5642e-04_jprb,4.3457e-04_jprb,1.6601e-03_jprb/)
kao( :, 2, 6,12) = (/&
&1.0940e-03_jprb,9.8241e-04_jprb,8.8704e-04_jprb,7.8683e-04_jprb,7.2565e-04_jprb,7.9447e-04_jprb,&
&8.9119e-04_jprb,9.6573e-04_jprb,2.8308e-03_jprb/)
kao( :, 3, 6,12) = (/&
&1.0875e-03_jprb,9.9703e-04_jprb,9.2009e-04_jprb,8.7195e-04_jprb,1.0022e-03_jprb,1.1888e-03_jprb,&
&1.3628e-03_jprb,1.5154e-03_jprb,4.5116e-03_jprb/)
kao( :, 4, 6,12) = (/&
&1.1159e-03_jprb,1.0443e-03_jprb,1.0086e-03_jprb,1.1512e-03_jprb,1.4495e-03_jprb,1.7437e-03_jprb,&
&2.0380e-03_jprb,2.2956e-03_jprb,6.7993e-03_jprb/)
kao( :, 5, 6,12) = (/&
&1.2286e-03_jprb,1.1769e-03_jprb,1.2461e-03_jprb,1.5980e-03_jprb,2.0421e-03_jprb,2.4961e-03_jprb,&
&2.9289e-03_jprb,3.3559e-03_jprb,9.7752e-03_jprb/)
kao( :, 1, 7,12) = (/&
&1.2137e-03_jprb,1.0668e-03_jprb,9.3381e-04_jprb,8.0126e-04_jprb,6.7255e-04_jprb,5.4820e-04_jprb,&
&4.1640e-04_jprb,3.0869e-05_jprb,2.3413e-03_jprb/)
kao( :, 2, 7,12) = (/&
&1.1848e-03_jprb,1.0517e-03_jprb,9.3479e-04_jprb,8.1727e-04_jprb,7.1224e-04_jprb,6.5078e-04_jprb,&
&7.0341e-04_jprb,7.0961e-04_jprb,4.1815e-03_jprb/)
kao( :, 3, 7,12) = (/&
&1.1720e-03_jprb,1.0531e-03_jprb,9.4856e-04_jprb,8.6129e-04_jprb,8.4208e-04_jprb,9.5854e-04_jprb,&
&1.0943e-03_jprb,1.2041e-03_jprb,6.9208e-03_jprb/)
kao( :, 4, 7,12) = (/&
&1.1592e-03_jprb,1.0754e-03_jprb,9.9552e-04_jprb,9.9504e-04_jprb,1.1919e-03_jprb,1.4256e-03_jprb,&
&1.6531e-03_jprb,1.8455e-03_jprb,1.0828e-02_jprb/)
kao( :, 5, 7,12) = (/&
&1.1731e-03_jprb,1.1101e-03_jprb,1.1084e-03_jprb,1.3320e-03_jprb,1.6974e-03_jprb,2.0528e-03_jprb,&
&2.4023e-03_jprb,2.7339e-03_jprb,1.6080e-02_jprb/)
kao( :, 1, 8,12) = (/&
&1.3302e-03_jprb,1.1658e-03_jprb,1.0139e-03_jprb,8.5656e-04_jprb,7.0725e-04_jprb,5.4905e-04_jprb,&
&1.6082e-04_jprb,2.8484e-07_jprb,3.9959e-03_jprb/)
kao( :, 2, 8,12) = (/&
&1.3004e-03_jprb,1.1467e-03_jprb,1.0012e-03_jprb,8.6385e-04_jprb,7.2504e-04_jprb,6.1282e-04_jprb,&
&5.3057e-04_jprb,1.6656e-04_jprb,7.5095e-03_jprb/)
kao( :, 3, 8,12) = (/&
&1.2723e-03_jprb,1.1332e-03_jprb,1.0084e-03_jprb,8.8648e-04_jprb,8.0497e-04_jprb,7.6904e-04_jprb,&
&8.5886e-04_jprb,9.3436e-04_jprb,1.2956e-02_jprb/)
kao( :, 4, 8,12) = (/&
&1.2504e-03_jprb,1.1361e-03_jprb,1.0320e-03_jprb,9.6671e-04_jprb,9.9043e-04_jprb,1.1533e-03_jprb,&
&1.3325e-03_jprb,1.4846e-03_jprb,2.0833e-02_jprb/)
kao( :, 5, 8,12) = (/&
&1.2393e-03_jprb,1.1508e-03_jprb,1.0962e-03_jprb,1.1509e-03_jprb,1.4064e-03_jprb,1.6900e-03_jprb,&
&1.9737e-03_jprb,2.2347e-03_jprb,3.1620e-02_jprb/)
kao( :, 1, 9,12) = (/&
&1.4663e-03_jprb,1.2845e-03_jprb,1.1076e-03_jprb,9.3469e-04_jprb,7.5727e-04_jprb,5.8307e-04_jprb,&
&1.6145e-06_jprb,2.0592e-07_jprb,1.2575e-02_jprb/)
kao( :, 2, 9,12) = (/&
&1.4356e-03_jprb,1.2615e-03_jprb,1.0955e-03_jprb,9.3110e-04_jprb,7.6732e-04_jprb,6.0757e-04_jprb,&
&4.4742e-04_jprb,4.9464e-06_jprb,2.4960e-02_jprb/)
kao( :, 3, 9,12) = (/&
&1.4052e-03_jprb,1.2435e-03_jprb,1.0940e-03_jprb,9.3756e-04_jprb,8.0269e-04_jprb,7.0533e-04_jprb,&
&6.6208e-04_jprb,5.9691e-04_jprb,4.4947e-02_jprb/)
kao( :, 4, 9,12) = (/&
&1.3734e-03_jprb,1.2333e-03_jprb,1.0941e-03_jprb,9.8345e-04_jprb,9.2035e-04_jprb,9.1976e-04_jprb,&
&1.0530e-03_jprb,1.1532e-03_jprb,7.5044e-02_jprb/)
kao( :, 5, 9,12) = (/&
&1.3495e-03_jprb,1.2289e-03_jprb,1.1320e-03_jprb,1.1073e-03_jprb,1.1561e-03_jprb,1.3692e-03_jprb,&
&1.6014e-03_jprb,1.8055e-03_jprb,1.1730e-01_jprb/)
kao( :, 1,10,12) = (/&
&1.6187e-03_jprb,1.4174e-03_jprb,1.2153e-03_jprb,1.0239e-03_jprb,8.2814e-04_jprb,6.1453e-04_jprb,&
&6.9444e-06_jprb,1.3528e-07_jprb,4.6442e-02_jprb/)
kao( :, 2,10,12) = (/&
&1.5845e-03_jprb,1.3876e-03_jprb,1.2040e-03_jprb,1.0153e-03_jprb,8.2732e-04_jprb,6.3066e-04_jprb,&
&6.0414e-06_jprb,2.4038e-07_jprb,9.7061e-02_jprb/)
kao( :, 3,10,12) = (/&
&1.5496e-03_jprb,1.3649e-03_jprb,1.1919e-03_jprb,1.0167e-03_jprb,8.3828e-04_jprb,6.9321e-04_jprb,&
&5.6244e-04_jprb,1.6180e-05_jprb,1.8182e-01_jprb/)
kao( :, 4,10,12) = (/&
&1.5143e-03_jprb,1.3460e-03_jprb,1.1894e-03_jprb,1.0321e-03_jprb,9.2147e-04_jprb,8.3365e-04_jprb,&
&8.4635e-04_jprb,8.9521e-04_jprb,3.1352e-01_jprb/)
kao( :, 5,10,12) = (/&
&1.4834e-03_jprb,1.3403e-03_jprb,1.2022e-03_jprb,1.1224e-03_jprb,1.0739e-03_jprb,1.1316e-03_jprb,&
&1.3218e-03_jprb,1.4837e-03_jprb,5.0232e-01_jprb/)
kao( :, 1,11,12) = (/&
&1.7757e-03_jprb,1.5541e-03_jprb,1.3331e-03_jprb,1.1222e-03_jprb,9.0093e-04_jprb,6.6092e-04_jprb,&
&2.1249e-07_jprb,1.1902e-07_jprb,8.4989e-02_jprb/)
kao( :, 2,11,12) = (/&
&1.7401e-03_jprb,1.5236e-03_jprb,1.3209e-03_jprb,1.1131e-03_jprb,9.0551e-04_jprb,6.8456e-04_jprb,&
&5.0849e-06_jprb,2.2480e-07_jprb,1.7663e-01_jprb/)
kao( :, 3,11,12) = (/&
&1.7062e-03_jprb,1.5022e-03_jprb,1.3117e-03_jprb,1.1165e-03_jprb,9.1999e-04_jprb,7.4783e-04_jprb,&
&5.9186e-04_jprb,1.9217e-05_jprb,3.2957e-01_jprb/)
kao( :, 4,11,12) = (/&
&1.6714e-03_jprb,1.4855e-03_jprb,1.3084e-03_jprb,1.1327e-03_jprb,9.9341e-04_jprb,8.8882e-04_jprb,&
&8.4081e-04_jprb,8.6421e-04_jprb,5.6545e-01_jprb/)
kao( :, 5,11,12) = (/&
&1.6419e-03_jprb,1.4793e-03_jprb,1.3196e-03_jprb,1.2145e-03_jprb,1.1433e-03_jprb,1.1424e-03_jprb,&
&1.3148e-03_jprb,1.4973e-03_jprb,9.0555e-01_jprb/)
kao( :, 1,12,12) = (/&
&1.9873e-03_jprb,1.7393e-03_jprb,1.4928e-03_jprb,1.2520e-03_jprb,1.0061e-03_jprb,7.4569e-04_jprb,&
&3.5180e-06_jprb,1.0587e-07_jprb,1.1338e-01_jprb/)
kao( :, 2,12,12) = (/&
&1.9520e-03_jprb,1.7112e-03_jprb,1.4785e-03_jprb,1.2437e-03_jprb,1.0101e-03_jprb,7.5903e-04_jprb,&
&1.0775e-04_jprb,2.1135e-07_jprb,2.3445e-01_jprb/)
kao( :, 3,12,12) = (/&
&1.9174e-03_jprb,1.6867e-03_jprb,1.4681e-03_jprb,1.2458e-03_jprb,1.0238e-03_jprb,8.1622e-04_jprb,&
&6.4203e-04_jprb,3.7377e-05_jprb,4.3560e-01_jprb/)
kao( :, 4,12,12) = (/&
&1.8834e-03_jprb,1.6709e-03_jprb,1.4657e-03_jprb,1.2628e-03_jprb,1.0856e-03_jprb,9.4862e-04_jprb,&
&8.6085e-04_jprb,8.9434e-04_jprb,7.4512e-01_jprb/)
kao( :, 5,12,12) = (/&
&1.8486e-03_jprb,1.6625e-03_jprb,1.4769e-03_jprb,1.3298e-03_jprb,1.2184e-03_jprb,1.1740e-03_jprb,&
&1.3120e-03_jprb,1.5054e-03_jprb,1.1919e+00_jprb/)
kao( :, 1,13,12) = (/&
&2.2427e-03_jprb,1.9626e-03_jprb,1.6858e-03_jprb,1.4123e-03_jprb,1.1345e-03_jprb,8.4814e-04_jprb,&
&1.1187e-05_jprb,1.0167e-07_jprb,1.1866e-01_jprb/)
kao( :, 2,13,12) = (/&
&2.2124e-03_jprb,1.9395e-03_jprb,1.6734e-03_jprb,1.4094e-03_jprb,1.1421e-03_jprb,8.6480e-04_jprb,&
&5.2696e-04_jprb,2.8959e-06_jprb,2.4434e-01_jprb/)
kao( :, 3,13,12) = (/&
&2.1775e-03_jprb,1.9152e-03_jprb,1.6674e-03_jprb,1.4121e-03_jprb,1.1577e-03_jprb,9.1193e-04_jprb,&
&6.8708e-04_jprb,6.0943e-05_jprb,4.5287e-01_jprb/)
kao( :, 4,13,12) = (/&
&2.1409e-03_jprb,1.8984e-03_jprb,1.6628e-03_jprb,1.4290e-03_jprb,1.2050e-03_jprb,1.0161e-03_jprb,&
&8.8642e-04_jprb,9.0231e-04_jprb,7.7451e-01_jprb/)
kao( :, 5,13,12) = (/&
&2.1006e-03_jprb,1.8859e-03_jprb,1.6731e-03_jprb,1.4783e-03_jprb,1.3081e-03_jprb,1.2199e-03_jprb,&
&1.3045e-03_jprb,1.5082e-03_jprb,1.2405e+00_jprb/)
kao( :, 1, 1,13) = (/&
&1.2739e-03_jprb,1.1824e-03_jprb,1.1666e-03_jprb,1.5366e-03_jprb,1.9783e-03_jprb,2.4169e-03_jprb,&
&2.8580e-03_jprb,3.2493e-03_jprb,3.6912e-03_jprb/)
kao( :, 2, 1,13) = (/&
&1.5764e-03_jprb,1.4796e-03_jprb,1.5934e-03_jprb,2.2153e-03_jprb,2.8682e-03_jprb,3.5161e-03_jprb,&
&4.1531e-03_jprb,4.7522e-03_jprb,5.3893e-03_jprb/)
kao( :, 3, 1,13) = (/&
&2.0474e-03_jprb,1.8907e-03_jprb,2.1514e-03_jprb,3.0567e-03_jprb,3.9747e-03_jprb,4.8887e-03_jprb,&
&5.7686e-03_jprb,6.5999e-03_jprb,7.5144e-03_jprb/)
kao( :, 4, 1,13) = (/&
&2.6856e-03_jprb,2.4413e-03_jprb,2.8242e-03_jprb,4.0342e-03_jprb,5.3078e-03_jprb,6.5325e-03_jprb,&
&7.7349e-03_jprb,8.8443e-03_jprb,1.0074e-02_jprb/)
kao( :, 5, 1,13) = (/&
&3.4590e-03_jprb,3.1378e-03_jprb,3.6496e-03_jprb,5.2809e-03_jprb,6.8982e-03_jprb,8.3727e-03_jprb,&
&9.9335e-03_jprb,1.1522e-02_jprb,1.3097e-02_jprb/)
kao( :, 1, 2,13) = (/&
&1.1866e-03_jprb,1.1005e-03_jprb,1.0888e-03_jprb,1.4004e-03_jprb,1.7886e-03_jprb,2.1767e-03_jprb,&
&2.5570e-03_jprb,2.9296e-03_jprb,3.3601e-03_jprb/)
kao( :, 2, 2,13) = (/&
&1.4562e-03_jprb,1.3635e-03_jprb,1.4719e-03_jprb,2.0169e-03_jprb,2.6032e-03_jprb,3.1819e-03_jprb,&
&3.7488e-03_jprb,4.3087e-03_jprb,4.9192e-03_jprb/)
kao( :, 3, 2,13) = (/&
&1.8764e-03_jprb,1.7361e-03_jprb,1.9709e-03_jprb,2.7595e-03_jprb,3.5900e-03_jprb,4.4194e-03_jprb,&
&5.2979e-03_jprb,6.0766e-03_jprb,6.9371e-03_jprb/)
kao( :, 4, 2,13) = (/&
&2.4859e-03_jprb,2.2733e-03_jprb,2.5962e-03_jprb,3.6933e-03_jprb,4.8528e-03_jprb,5.9853e-03_jprb,&
&7.0801e-03_jprb,8.2323e-03_jprb,9.3999e-03_jprb/)
kao( :, 5, 2,13) = (/&
&3.2381e-03_jprb,2.9580e-03_jprb,3.3897e-03_jprb,4.8434e-03_jprb,6.3274e-03_jprb,7.7660e-03_jprb,&
&9.2016e-03_jprb,1.0766e-02_jprb,1.2382e-02_jprb/)
kao( :, 1, 3,13) = (/&
&1.0869e-03_jprb,9.8978e-04_jprb,9.6295e-04_jprb,1.1603e-03_jprb,1.4657e-03_jprb,1.7785e-03_jprb,&
&2.0850e-03_jprb,2.3589e-03_jprb,2.7295e-03_jprb/)
kao( :, 2, 3,13) = (/&
&1.2497e-03_jprb,1.1652e-03_jprb,1.2498e-03_jprb,1.6617e-03_jprb,2.1329e-03_jprb,2.6212e-03_jprb,&
&3.0709e-03_jprb,3.5231e-03_jprb,4.1120e-03_jprb/)
kao( :, 3, 3,13) = (/&
&1.5536e-03_jprb,1.4627e-03_jprb,1.6643e-03_jprb,2.3266e-03_jprb,3.0120e-03_jprb,3.7022e-03_jprb,&
&4.3567e-03_jprb,5.0579e-03_jprb,5.8139e-03_jprb/)
kao( :, 4, 3,13) = (/&
&2.0446e-03_jprb,1.9153e-03_jprb,2.2001e-03_jprb,3.1214e-03_jprb,4.0764e-03_jprb,5.0190e-03_jprb,&
&6.0061e-03_jprb,6.9576e-03_jprb,7.9493e-03_jprb/)
kao( :, 5, 3,13) = (/&
&2.6968e-03_jprb,2.5178e-03_jprb,2.9045e-03_jprb,4.1585e-03_jprb,5.4384e-03_jprb,6.6732e-03_jprb,&
&7.9956e-03_jprb,9.1997e-03_jprb,1.0739e-02_jprb/)
kao( :, 1, 4,13) = (/&
&1.0799e-03_jprb,9.7556e-04_jprb,8.9641e-04_jprb,9.5375e-04_jprb,1.1834e-03_jprb,1.4206e-03_jprb,&
&1.6456e-03_jprb,1.8574e-03_jprb,2.1783e-03_jprb/)
kao( :, 2, 4,13) = (/&
&1.1355e-03_jprb,1.0374e-03_jprb,1.0646e-03_jprb,1.3628e-03_jprb,1.7241e-03_jprb,2.0900e-03_jprb,&
&2.4594e-03_jprb,2.8248e-03_jprb,3.3135e-03_jprb/)
kao( :, 3, 4,13) = (/&
&1.2900e-03_jprb,1.2405e-03_jprb,1.3881e-03_jprb,1.9129e-03_jprb,2.4612e-03_jprb,3.0202e-03_jprb,&
&3.5514e-03_jprb,4.1507e-03_jprb,4.7512e-03_jprb/)
kao( :, 4, 4,13) = (/&
&1.6429e-03_jprb,1.5804e-03_jprb,1.8599e-03_jprb,2.6280e-03_jprb,3.3944e-03_jprb,4.1721e-03_jprb,&
&4.9786e-03_jprb,5.7576e-03_jprb,6.6384e-03_jprb/)
kao( :, 5, 4,13) = (/&
&2.1595e-03_jprb,2.0705e-03_jprb,2.4561e-03_jprb,3.5243e-03_jprb,4.6000e-03_jprb,5.6864e-03_jprb,&
&6.7238e-03_jprb,7.7228e-03_jprb,9.0563e-03_jprb/)
kao( :, 1, 5,13) = (/&
&1.1289e-03_jprb,1.0122e-03_jprb,9.1285e-04_jprb,8.4241e-04_jprb,9.2546e-04_jprb,1.1068e-03_jprb,&
&1.2785e-03_jprb,1.4321e-03_jprb,1.7133e-03_jprb/)
kao( :, 2, 5,13) = (/&
&1.1322e-03_jprb,1.0283e-03_jprb,9.7216e-04_jprb,1.1030e-03_jprb,1.3905e-03_jprb,1.6648e-03_jprb,&
&1.9659e-03_jprb,2.2474e-03_jprb,2.6825e-03_jprb/)
kao( :, 3, 5,13) = (/&
&1.1835e-03_jprb,1.1059e-03_jprb,1.1769e-03_jprb,1.5659e-03_jprb,1.9991e-03_jprb,2.4574e-03_jprb,&
&2.8892e-03_jprb,3.3463e-03_jprb,3.9939e-03_jprb/)
kao( :, 4, 5,13) = (/&
&1.3233e-03_jprb,1.3123e-03_jprb,1.5693e-03_jprb,2.1884e-03_jprb,2.8269e-03_jprb,3.4574e-03_jprb,&
&4.1167e-03_jprb,4.7382e-03_jprb,5.7495e-03_jprb/)
kao( :, 5, 5,13) = (/&
&1.7059e-03_jprb,1.6691e-03_jprb,2.0917e-03_jprb,2.9965e-03_jprb,3.8855e-03_jprb,4.8207e-03_jprb,&
&5.6559e-03_jprb,6.5131e-03_jprb,7.9790e-03_jprb/)
kao( :, 1, 6,13) = (/&
&1.2255e-03_jprb,1.0879e-03_jprb,9.6530e-04_jprb,8.5617e-04_jprb,7.6660e-04_jprb,8.1723e-04_jprb,&
&9.3534e-04_jprb,1.0402e-03_jprb,1.9062e-03_jprb/)
kao( :, 2, 6,13) = (/&
&1.1965e-03_jprb,1.0719e-03_jprb,9.9849e-04_jprb,9.4121e-04_jprb,1.0795e-03_jprb,1.2813e-03_jprb,&
&1.4997e-03_jprb,1.7132e-03_jprb,3.2547e-03_jprb/)
kao( :, 3, 6,13) = (/&
&1.1926e-03_jprb,1.1043e-03_jprb,1.0603e-03_jprb,1.2688e-03_jprb,1.5962e-03_jprb,1.9526e-03_jprb,&
&2.2912e-03_jprb,2.6142e-03_jprb,5.2095e-03_jprb/)
kao( :, 4, 6,13) = (/&
&1.2240e-03_jprb,1.1777e-03_jprb,1.3174e-03_jprb,1.8087e-03_jprb,2.3347e-03_jprb,2.8437e-03_jprb,&
&3.3597e-03_jprb,3.8303e-03_jprb,7.9481e-03_jprb/)
kao( :, 5, 6,13) = (/&
&1.3458e-03_jprb,1.3554e-03_jprb,1.7833e-03_jprb,2.5412e-03_jprb,3.2833e-03_jprb,4.0389e-03_jprb,&
&4.7385e-03_jprb,5.4113e-03_jprb,1.1516e-02_jprb/)
kao( :, 1, 7,13) = (/&
&1.3402e-03_jprb,1.1742e-03_jprb,1.0361e-03_jprb,8.9910e-04_jprb,7.6679e-04_jprb,6.5368e-04_jprb,&
&6.8075e-04_jprb,4.6956e-04_jprb,2.7722e-03_jprb/)
kao( :, 2, 7,13) = (/&
&1.3037e-03_jprb,1.1622e-03_jprb,1.0519e-03_jprb,9.4323e-04_jprb,8.7488e-04_jprb,9.7401e-04_jprb,&
&1.1211e-03_jprb,1.2635e-03_jprb,5.0027e-03_jprb/)
kao( :, 3, 7,13) = (/&
&1.2784e-03_jprb,1.1532e-03_jprb,1.0893e-03_jprb,1.0694e-03_jprb,1.2699e-03_jprb,1.5175e-03_jprb,&
&1.7746e-03_jprb,2.0272e-03_jprb,8.3555e-03_jprb/)
kao( :, 4, 7,13) = (/&
&1.2774e-03_jprb,1.1979e-03_jprb,1.1860e-03_jprb,1.4785e-03_jprb,1.8884e-03_jprb,2.2924e-03_jprb,&
&2.6858e-03_jprb,3.0881e-03_jprb,1.3125e-02_jprb/)
kao( :, 5, 7,13) = (/&
&1.2892e-03_jprb,1.2565e-03_jprb,1.5103e-03_jprb,2.1215e-03_jprb,2.7429e-03_jprb,3.3579e-03_jprb,&
&3.9536e-03_jprb,4.4822e-03_jprb,1.9541e-02_jprb/)
kao( :, 1, 8,13) = (/&
&1.4772e-03_jprb,1.2923e-03_jprb,1.1263e-03_jprb,9.6270e-04_jprb,8.0241e-04_jprb,6.4872e-04_jprb,&
&4.5811e-04_jprb,2.1716e-07_jprb,4.9636e-03_jprb/)
kao( :, 2, 8,13) = (/&
&1.4370e-03_jprb,1.2729e-03_jprb,1.1241e-03_jprb,9.9655e-04_jprb,8.5931e-04_jprb,7.7387e-04_jprb,&
&8.4353e-04_jprb,8.7711e-04_jprb,9.4321e-03_jprb/)
kao( :, 3, 8,13) = (/&
&1.4034e-03_jprb,1.2585e-03_jprb,1.1607e-03_jprb,1.0510e-03_jprb,1.0272e-03_jprb,1.1868e-03_jprb,&
&1.3711e-03_jprb,1.5476e-03_jprb,1.6446e-02_jprb/)
kao( :, 4, 8,13) = (/&
&1.3792e-03_jprb,1.2775e-03_jprb,1.2067e-03_jprb,1.2391e-03_jprb,1.5156e-03_jprb,1.8221e-03_jprb,&
&2.1295e-03_jprb,2.4428e-03_jprb,2.6678e-02_jprb/)
kao( :, 5, 8,13) = (/&
&1.3692e-03_jprb,1.3040e-03_jprb,1.3510e-03_jprb,1.7655e-03_jprb,2.2564e-03_jprb,2.7486e-03_jprb,&
&3.2245e-03_jprb,3.6702e-03_jprb,4.0890e-02_jprb/)
kao( :, 1, 9,13) = (/&
&1.6318e-03_jprb,1.4281e-03_jprb,1.2324e-03_jprb,1.0452e-03_jprb,8.5200e-04_jprb,6.6304e-04_jprb,&
&1.2309e-05_jprb,1.5379e-07_jprb,1.6381e-02_jprb/)
kao( :, 2, 9,13) = (/&
&1.5875e-03_jprb,1.3936e-03_jprb,1.2247e-03_jprb,1.0563e-03_jprb,9.0066e-04_jprb,7.3338e-04_jprb,&
&6.0228e-04_jprb,1.0871e-04_jprb,3.2932e-02_jprb/)
kao( :, 3, 9,13) = (/&
&1.5482e-03_jprb,1.3786e-03_jprb,1.2438e-03_jprb,1.1136e-03_jprb,9.6991e-04_jprb,9.4000e-04_jprb,&
&1.0591e-03_jprb,1.1303e-03_jprb,6.0073e-02_jprb/)
kao( :, 4, 9,13) = (/&
&1.5167e-03_jprb,1.3746e-03_jprb,1.2857e-03_jprb,1.1928e-03_jprb,1.2413e-03_jprb,1.4696e-03_jprb,&
&1.6946e-03_jprb,1.9089e-03_jprb,1.0132e-01_jprb/)
kao( :, 5, 9,13) = (/&
&1.4899e-03_jprb,1.4080e-03_jprb,1.3636e-03_jprb,1.4825e-03_jprb,1.8628e-03_jprb,2.2533e-03_jprb,&
&2.6127e-03_jprb,2.9482e-03_jprb,1.5979e-01_jprb/)
kao( :, 1,10,13) = (/&
&1.8020e-03_jprb,1.5774e-03_jprb,1.3520e-03_jprb,1.1382e-03_jprb,9.2570e-04_jprb,6.9265e-04_jprb,&
&1.3740e-07_jprb,1.3289e-07_jprb,6.3524e-02_jprb/)
kao( :, 2,10,13) = (/&
&1.7549e-03_jprb,1.5358e-03_jprb,1.3388e-03_jprb,1.1389e-03_jprb,9.5013e-04_jprb,7.6352e-04_jprb,&
&2.9725e-04_jprb,1.5747e-07_jprb,1.3432e-01_jprb/)
kao( :, 3,10,13) = (/&
&1.7152e-03_jprb,1.5184e-03_jprb,1.3412e-03_jprb,1.1838e-03_jprb,1.0217e-03_jprb,8.6702e-04_jprb,&
&8.3836e-04_jprb,6.8845e-04_jprb,2.5555e-01_jprb/)
kao( :, 4,10,13) = (/&
&1.6812e-03_jprb,1.5047e-03_jprb,1.3857e-03_jprb,1.2506e-03_jprb,1.1577e-03_jprb,1.2249e-03_jprb,&
&1.4008e-03_jprb,1.5238e-03_jprb,4.4499e-01_jprb/)
kao( :, 5,10,13) = (/&
&1.6497e-03_jprb,1.5369e-03_jprb,1.4416e-03_jprb,1.4073e-03_jprb,1.5858e-03_jprb,1.9083e-03_jprb,&
&2.1930e-03_jprb,2.4338e-03_jprb,7.2126e-01_jprb/)
kao( :, 1,11,13) = (/&
&1.9883e-03_jprb,1.7404e-03_jprb,1.4929e-03_jprb,1.2571e-03_jprb,1.0189e-03_jprb,7.6574e-04_jprb,&
&1.2245e-07_jprb,1.1939e-07_jprb,1.2338e-01_jprb/)
kao( :, 2,11,13) = (/&
&1.9390e-03_jprb,1.6974e-03_jprb,1.4774e-03_jprb,1.2577e-03_jprb,1.0438e-03_jprb,8.3574e-04_jprb,&
&2.2761e-04_jprb,1.3870e-07_jprb,2.6041e-01_jprb/)
kao( :, 3,11,13) = (/&
&1.9012e-03_jprb,1.6811e-03_jprb,1.4837e-03_jprb,1.3022e-03_jprb,1.1118e-03_jprb,9.5270e-04_jprb,&
&8.5092e-04_jprb,5.4921e-04_jprb,4.9292e-01_jprb/)
kao( :, 4,11,13) = (/&
&1.8676e-03_jprb,1.6686e-03_jprb,1.5247e-03_jprb,1.3663e-03_jprb,1.2686e-03_jprb,1.2743e-03_jprb,&
&1.4286e-03_jprb,1.5277e-03_jprb,8.5618e-01_jprb/)
kao( :, 5,11,13) = (/&
&1.8327e-03_jprb,1.6976e-03_jprb,1.5788e-03_jprb,1.5380e-03_jprb,1.6440e-03_jprb,1.9550e-03_jprb,&
&2.2595e-03_jprb,2.4555e-03_jprb,1.3826e+00_jprb/)
kao( :, 1,12,13) = (/&
&2.2187e-03_jprb,1.9406e-03_jprb,1.6640e-03_jprb,1.4003e-03_jprb,1.1350e-03_jprb,8.4971e-04_jprb,&
&1.4328e-05_jprb,1.0909e-07_jprb,1.7650e-01_jprb/)
kao( :, 2,12,13) = (/&
&2.1703e-03_jprb,1.8998e-03_jprb,1.6482e-03_jprb,1.4040e-03_jprb,1.1602e-03_jprb,9.1881e-04_jprb,&
&5.8608e-04_jprb,1.2488e-07_jprb,3.7061e-01_jprb/)
kao( :, 3,12,13) = (/&
&2.1329e-03_jprb,1.8834e-03_jprb,1.6576e-03_jprb,1.4426e-03_jprb,1.2188e-03_jprb,1.0435e-03_jprb,&
&9.0113e-04_jprb,6.0140e-04_jprb,6.9805e-01_jprb/)
kao( :, 4,12,13) = (/&
&2.0986e-03_jprb,1.8697e-03_jprb,1.6880e-03_jprb,1.4960e-03_jprb,1.3858e-03_jprb,1.3370e-03_jprb,&
&1.4776e-03_jprb,1.5577e-03_jprb,1.2104e+00_jprb/)
kao( :, 5,12,13) = (/&
&2.0637e-03_jprb,1.8889e-03_jprb,1.7335e-03_jprb,1.6736e-03_jprb,1.7272e-03_jprb,2.0047e-03_jprb,&
&2.3234e-03_jprb,2.5266e-03_jprb,1.9488e+00_jprb/)
kao( :, 1,13,13) = (/&
&2.5214e-03_jprb,2.2065e-03_jprb,1.8921e-03_jprb,1.5892e-03_jprb,1.2848e-03_jprb,9.6635e-04_jprb,&
&1.4011e-05_jprb,9.2652e-08_jprb,1.9891e-01_jprb/)
kao( :, 2,13,13) = (/&
&2.4696e-03_jprb,2.1633e-03_jprb,1.8707e-03_jprb,1.5871e-03_jprb,1.3039e-03_jprb,1.0191e-03_jprb,&
&7.2224e-04_jprb,1.1771e-07_jprb,4.1557e-01_jprb/)
kao( :, 3,13,13) = (/&
&2.4301e-03_jprb,2.1428e-03_jprb,1.8727e-03_jprb,1.6140e-03_jprb,1.3467e-03_jprb,1.1319e-03_jprb,&
&9.6477e-04_jprb,7.6672e-04_jprb,7.8045e-01_jprb/)
kao( :, 4,13,13) = (/&
&2.3936e-03_jprb,2.1221e-03_jprb,1.8926e-03_jprb,1.6520e-03_jprb,1.5047e-03_jprb,1.4110e-03_jprb,&
&1.5144e-03_jprb,1.6138e-03_jprb,1.3452e+00_jprb/)
kao( :, 5,13,13) = (/&
&2.3541e-03_jprb,2.1248e-03_jprb,1.9211e-03_jprb,1.8214e-03_jprb,1.8209e-03_jprb,2.0454e-03_jprb,&
&2.3767e-03_jprb,2.6027e-03_jprb,2.1609e+00_jprb/)
kao( :, 1, 1,14) = (/&
&1.4077e-03_jprb,1.3543e-03_jprb,2.0015e-03_jprb,2.9052e-03_jprb,3.8062e-03_jprb,4.7033e-03_jprb,&
&5.5027e-03_jprb,6.3534e-03_jprb,7.2447e-03_jprb/)
kao( :, 2, 1,14) = (/&
&1.7458e-03_jprb,1.7470e-03_jprb,2.6822e-03_jprb,3.8935e-03_jprb,5.1049e-03_jprb,6.3777e-03_jprb,&
&7.5886e-03_jprb,8.9435e-03_jprb,1.0377e-02_jprb/)
kao( :, 3, 1,14) = (/&
&2.2077e-03_jprb,2.2614e-03_jprb,3.6964e-03_jprb,5.3773e-03_jprb,7.0539e-03_jprb,8.7220e-03_jprb,&
&1.0257e-02_jprb,1.2410e-02_jprb,1.4154e-02_jprb/)
kao( :, 4, 1,14) = (/&
&2.8109e-03_jprb,2.9075e-03_jprb,4.9134e-03_jprb,7.1686e-03_jprb,9.5162e-03_jprb,1.1788e-02_jprb,&
&1.3767e-02_jprb,1.5840e-02_jprb,1.8057e-02_jprb/)
kao( :, 5, 1,14) = (/&
&3.6086e-03_jprb,3.7240e-03_jprb,6.4216e-03_jprb,9.3840e-03_jprb,1.2343e-02_jprb,1.5071e-02_jprb,&
&1.7936e-02_jprb,2.0469e-02_jprb,2.3091e-02_jprb/)
kao( :, 1, 2,14) = (/&
&1.3294e-03_jprb,1.2597e-03_jprb,1.6974e-03_jprb,2.4370e-03_jprb,3.1928e-03_jprb,3.9456e-03_jprb,&
&4.9620e-03_jprb,5.6067e-03_jprb,6.6116e-03_jprb/)
kao( :, 2, 2,14) = (/&
&1.6318e-03_jprb,1.6184e-03_jprb,2.4692e-03_jprb,3.6012e-03_jprb,4.7302e-03_jprb,5.7659e-03_jprb,&
&6.8491e-03_jprb,8.1205e-03_jprb,8.9947e-03_jprb/)
kao( :, 3, 2,14) = (/&
&2.0588e-03_jprb,2.1063e-03_jprb,3.4156e-03_jprb,4.9986e-03_jprb,6.5782e-03_jprb,8.1429e-03_jprb,&
&9.7017e-03_jprb,1.0879e-02_jprb,1.2701e-02_jprb/)
kao( :, 4, 2,14) = (/&
&2.6403e-03_jprb,2.6941e-03_jprb,4.6292e-03_jprb,6.7785e-03_jprb,8.9613e-03_jprb,1.1099e-02_jprb,&
&1.3055e-02_jprb,1.4808e-02_jprb,1.7360e-02_jprb/)
kao( :, 5, 2,14) = (/&
&3.4097e-03_jprb,3.4754e-03_jprb,6.1509e-03_jprb,9.0470e-03_jprb,1.1928e-02_jprb,1.4499e-02_jprb,&
&1.7101e-02_jprb,1.9409e-02_jprb,2.2968e-02_jprb/)
kao( :, 1, 3,14) = (/&
&1.2102e-03_jprb,1.1138e-03_jprb,1.3857e-03_jprb,2.0244e-03_jprb,2.6529e-03_jprb,3.2119e-03_jprb,&
&4.0399e-03_jprb,4.4246e-03_jprb,5.1581e-03_jprb/)
kao( :, 2, 3,14) = (/&
&1.4090e-03_jprb,1.3841e-03_jprb,2.0941e-03_jprb,3.0584e-03_jprb,4.0208e-03_jprb,4.9852e-03_jprb,&
&5.9175e-03_jprb,6.7182e-03_jprb,7.9412e-03_jprb/)
kao( :, 3, 3,14) = (/&
&1.7427e-03_jprb,1.7765e-03_jprb,2.9090e-03_jprb,4.4193e-03_jprb,5.8208e-03_jprb,7.2086e-03_jprb,&
&8.4753e-03_jprb,9.3954e-03_jprb,1.1366e-02_jprb/)
kao( :, 4, 3,14) = (/&
&2.2157e-03_jprb,2.2613e-03_jprb,3.9916e-03_jprb,5.8630e-03_jprb,8.0161e-03_jprb,9.9398e-03_jprb,&
&1.1828e-02_jprb,1.3094e-02_jprb,1.5315e-02_jprb/)
kao( :, 5, 3,14) = (/&
&2.8879e-03_jprb,2.9466e-03_jprb,5.4167e-03_jprb,7.9578e-03_jprb,1.0502e-02_jprb,1.2821e-02_jprb,&
&1.5472e-02_jprb,1.7483e-02_jprb,2.0768e-02_jprb/)
kao( :, 1, 4,14) = (/&
&1.1727e-03_jprb,1.0568e-03_jprb,1.1437e-03_jprb,1.6336e-03_jprb,2.1314e-03_jprb,2.5848e-03_jprb,&
&3.0242e-03_jprb,3.4499e-03_jprb,4.1004e-03_jprb/)
kao( :, 2, 4,14) = (/&
&1.2525e-03_jprb,1.1704e-03_jprb,1.6924e-03_jprb,2.4669e-03_jprb,3.2745e-03_jprb,3.9503e-03_jprb,&
&4.8080e-03_jprb,5.4438e-03_jprb,6.5186e-03_jprb/)
kao( :, 3, 4,14) = (/&
&1.4517e-03_jprb,1.4687e-03_jprb,2.4478e-03_jprb,3.6499e-03_jprb,4.8038e-03_jprb,6.0561e-03_jprb,&
&7.1091e-03_jprb,8.0698e-03_jprb,9.5998e-03_jprb/)
kao( :, 4, 4,14) = (/&
&1.8147e-03_jprb,1.9649e-03_jprb,3.5509e-03_jprb,5.2270e-03_jprb,6.8077e-03_jprb,8.4354e-03_jprb,&
&1.0206e-02_jprb,1.1463e-02_jprb,1.3354e-02_jprb/)
kao( :, 5, 4,14) = (/&
&2.3595e-03_jprb,2.5550e-03_jprb,4.7325e-03_jprb,6.9980e-03_jprb,9.2811e-03_jprb,1.1690e-02_jprb,&
&1.3662e-02_jprb,1.5386e-02_jprb,1.8463e-02_jprb/)
kao( :, 1, 5,14) = (/&
&1.2458e-03_jprb,1.1157e-03_jprb,1.0306e-03_jprb,1.3033e-03_jprb,1.6734e-03_jprb,2.0057e-03_jprb,&
&2.3259e-03_jprb,2.6388e-03_jprb,3.1846e-03_jprb/)
kao( :, 2, 5,14) = (/&
&1.2388e-03_jprb,1.1282e-03_jprb,1.3991e-03_jprb,2.0036e-03_jprb,2.6425e-03_jprb,3.1687e-03_jprb,&
&3.8762e-03_jprb,4.3488e-03_jprb,5.2301e-03_jprb/)
kao( :, 3, 5,14) = (/&
&1.2913e-03_jprb,1.2589e-03_jprb,2.0814e-03_jprb,3.0197e-03_jprb,3.9667e-03_jprb,4.9958e-03_jprb,&
&5.9133e-03_jprb,6.6574e-03_jprb,8.0153e-03_jprb/)
kao( :, 4, 5,14) = (/&
&1.4963e-03_jprb,1.6907e-03_jprb,3.0309e-03_jprb,4.4615e-03_jprb,5.8606e-03_jprb,7.1898e-03_jprb,&
&8.6483e-03_jprb,9.7418e-03_jprb,1.1669e-02_jprb/)
kao( :, 5, 5,14) = (/&
&1.8886e-03_jprb,2.2503e-03_jprb,4.1688e-03_jprb,6.1333e-03_jprb,8.1604e-03_jprb,1.0200e-02_jprb,&
&1.2063e-02_jprb,1.3620e-02_jprb,1.6367e-02_jprb/)
kao( :, 1, 6,14) = (/&
&1.3667e-03_jprb,1.2087e-03_jprb,1.0726e-03_jprb,1.0607e-03_jprb,1.2821e-03_jprb,1.5260e-03_jprb,&
&1.8008e-03_jprb,1.9547e-03_jprb,2.5327e-03_jprb/)
kao( :, 2, 6,14) = (/&
&1.3345e-03_jprb,1.2078e-03_jprb,1.2022e-03_jprb,1.6068e-03_jprb,2.0999e-03_jprb,2.5469e-03_jprb,&
&3.0216e-03_jprb,3.3465e-03_jprb,4.2698e-03_jprb/)
kao( :, 3, 6,14) = (/&
&1.3246e-03_jprb,1.2185e-03_jprb,1.7375e-03_jprb,2.5142e-03_jprb,3.2318e-03_jprb,4.0369e-03_jprb,&
&4.7556e-03_jprb,5.3249e-03_jprb,6.8388e-03_jprb/)
kao( :, 4, 6,14) = (/&
&1.3486e-03_jprb,1.4645e-03_jprb,2.5454e-03_jprb,3.7331e-03_jprb,4.8424e-03_jprb,6.0309e-03_jprb,&
&7.1539e-03_jprb,8.1418e-03_jprb,1.0356e-02_jprb/)
kao( :, 5, 6,14) = (/&
&1.5159e-03_jprb,1.9586e-03_jprb,3.6257e-03_jprb,5.3066e-03_jprb,6.9540e-03_jprb,8.6820e-03_jprb,&
&1.0231e-02_jprb,1.1546e-02_jprb,1.5077e-02_jprb/)
kao( :, 1, 7,14) = (/&
&1.5156e-03_jprb,1.3262e-03_jprb,1.1714e-03_jprb,1.0190e-03_jprb,1.0169e-03_jprb,1.1666e-03_jprb,&
&1.3423e-03_jprb,1.3981e-03_jprb,3.1910e-03_jprb/)
kao( :, 2, 7,14) = (/&
&1.4765e-03_jprb,1.3249e-03_jprb,1.1925e-03_jprb,1.3147e-03_jprb,1.6557e-03_jprb,1.9990e-03_jprb,&
&2.2925e-03_jprb,2.5530e-03_jprb,5.7452e-03_jprb/)
kao( :, 3, 7,14) = (/&
&1.4370e-03_jprb,1.3162e-03_jprb,1.4936e-03_jprb,2.0652e-03_jprb,2.6453e-03_jprb,3.2054e-03_jprb,&
&3.7731e-03_jprb,4.2042e-03_jprb,9.6110e-03_jprb/)
kao( :, 4, 7,14) = (/&
&1.4149e-03_jprb,1.3977e-03_jprb,2.1475e-03_jprb,3.1203e-03_jprb,4.0198e-03_jprb,4.9787e-03_jprb,&
&5.7945e-03_jprb,6.6068e-03_jprb,1.5108e-02_jprb/)
kao( :, 5, 7,14) = (/&
&1.4374e-03_jprb,1.7222e-03_jprb,3.0905e-03_jprb,4.5057e-03_jprb,5.8428e-03_jprb,7.2095e-03_jprb,&
&8.5374e-03_jprb,9.6315e-03_jprb,2.2589e-02_jprb/)
kao( :, 1, 8,14) = (/&
&1.6998e-03_jprb,1.4847e-03_jprb,1.3004e-03_jprb,1.1133e-03_jprb,9.4349e-04_jprb,9.0420e-04_jprb,&
&1.0045e-03_jprb,4.3482e-04_jprb,5.8016e-03_jprb/)
kao( :, 2, 8,14) = (/&
&1.6532e-03_jprb,1.4674e-03_jprb,1.3041e-03_jprb,1.2025e-03_jprb,1.3140e-03_jprb,1.5672e-03_jprb,&
&1.7686e-03_jprb,1.9237e-03_jprb,1.1052e-02_jprb/)
kao( :, 3, 8,14) = (/&
&1.6074e-03_jprb,1.4616e-03_jprb,1.4143e-03_jprb,1.6802e-03_jprb,2.1261e-03_jprb,2.5596e-03_jprb,&
&3.0033e-03_jprb,3.3007e-03_jprb,1.9324e-02_jprb/)
kao( :, 4, 8,14) = (/&
&1.5686e-03_jprb,1.4776e-03_jprb,1.8215e-03_jprb,2.5548e-03_jprb,3.2874e-03_jprb,4.0303e-03_jprb,&
&4.7235e-03_jprb,5.2596e-03_jprb,3.1553e-02_jprb/)
kao( :, 5, 8,14) = (/&
&1.5375e-03_jprb,1.6349e-03_jprb,2.6125e-03_jprb,3.7580e-03_jprb,4.8839e-03_jprb,6.0119e-03_jprb,&
&7.1085e-03_jprb,8.0648e-03_jprb,4.8625e-02_jprb/)
kao( :, 1, 9,14) = (/&
&1.9224e-03_jprb,1.6818e-03_jprb,1.4431e-03_jprb,1.2356e-03_jprb,1.0226e-03_jprb,8.1041e-04_jprb,&
&6.6192e-04_jprb,1.6289e-07_jprb,1.9855e-02_jprb/)
kao( :, 2, 9,14) = (/&
&1.8714e-03_jprb,1.6372e-03_jprb,1.4546e-03_jprb,1.2624e-03_jprb,1.1376e-03_jprb,1.2029e-03_jprb,&
&1.3478e-03_jprb,1.4009e-03_jprb,4.0030e-02_jprb/)
kao( :, 3, 9,14) = (/&
&1.8227e-03_jprb,1.6409e-03_jprb,1.4856e-03_jprb,1.4717e-03_jprb,1.6810e-03_jprb,2.0286e-03_jprb,&
&2.3381e-03_jprb,2.5517e-03_jprb,7.3381e-02_jprb/)
kao( :, 4, 9,14) = (/&
&1.7776e-03_jprb,1.6302e-03_jprb,1.6842e-03_jprb,2.0805e-03_jprb,2.6540e-03_jprb,3.2313e-03_jprb,&
&3.7806e-03_jprb,4.1994e-03_jprb,1.2455e-01_jprb/)
kao( :, 5, 9,14) = (/&
&1.7367e-03_jprb,1.7061e-03_jprb,2.1848e-03_jprb,3.1013e-03_jprb,4.0216e-03_jprb,4.9873e-03_jprb,&
&5.8671e-03_jprb,6.6087e-03_jprb,1.9836e-01_jprb/)
kao( :, 1,10,14) = (/&
&2.1700e-03_jprb,1.8991e-03_jprb,1.6269e-03_jprb,1.3797e-03_jprb,1.1299e-03_jprb,8.7387e-04_jprb,&
&1.3980e-07_jprb,1.2659e-07_jprb,7.9784e-02_jprb/)
kao( :, 2,10,14) = (/&
&2.1212e-03_jprb,1.8542e-03_jprb,1.6327e-03_jprb,1.4005e-03_jprb,1.1807e-03_jprb,1.0294e-03_jprb,&
&1.0221e-03_jprb,1.9929e-04_jprb,1.6978e-01_jprb/)
kao( :, 3,10,14) = (/&
&2.0702e-03_jprb,1.8475e-03_jprb,1.6421e-03_jprb,1.4813e-03_jprb,1.4506e-03_jprb,1.6271e-03_jprb,&
&1.8528e-03_jprb,1.9874e-03_jprb,3.2534e-01_jprb/)
kao( :, 4,10,14) = (/&
&2.0197e-03_jprb,1.8363e-03_jprb,1.7391e-03_jprb,1.8390e-03_jprb,2.2028e-03_jprb,2.6538e-03_jprb,&
&3.1240e-03_jprb,3.3958e-03_jprb,5.7201e-01_jprb/)
kao( :, 5,10,14) = (/&
&1.9722e-03_jprb,1.8724e-03_jprb,2.0258e-03_jprb,2.6203e-03_jprb,3.3709e-03_jprb,4.1714e-03_jprb,&
&4.8976e-03_jprb,5.4947e-03_jprb,9.3618e-01_jprb/)
kao( :, 1,11,14) = (/&
&2.4346e-03_jprb,2.1262e-03_jprb,1.8242e-03_jprb,1.5461e-03_jprb,1.2663e-03_jprb,9.7971e-04_jprb,&
&1.2672e-07_jprb,1.1257e-07_jprb,1.6191e-01_jprb/)
kao( :, 2,11,14) = (/&
&2.3800e-03_jprb,2.0803e-03_jprb,1.8321e-03_jprb,1.5714e-03_jprb,1.3247e-03_jprb,1.1173e-03_jprb,&
&1.0133e-03_jprb,1.0538e-04_jprb,3.4424e-01_jprb/)
kao( :, 3,11,14) = (/&
&2.3211e-03_jprb,2.0734e-03_jprb,1.8393e-03_jprb,1.6589e-03_jprb,1.5627e-03_jprb,1.6631e-03_jprb,&
&1.8852e-03_jprb,2.0216e-03_jprb,6.6076e-01_jprb/)
kao( :, 4,11,14) = (/&
&2.2623e-03_jprb,2.0579e-03_jprb,1.9437e-03_jprb,1.9604e-03_jprb,2.2434e-03_jprb,2.7165e-03_jprb,&
&3.1823e-03_jprb,3.4732e-03_jprb,1.1622e+00_jprb/)
kao( :, 5,11,14) = (/&
&2.2095e-03_jprb,2.1020e-03_jprb,2.1745e-03_jprb,2.6686e-03_jprb,3.4370e-03_jprb,4.2001e-03_jprb,&
&4.9598e-03_jprb,5.6011e-03_jprb,1.8980e+00_jprb/)
kao( :, 1,12,14) = (/&
&2.7322e-03_jprb,2.3881e-03_jprb,2.0484e-03_jprb,1.7387e-03_jprb,1.4199e-03_jprb,1.1012e-03_jprb,&
&1.1269e-07_jprb,1.0126e-07_jprb,2.4431e-01_jprb/)
kao( :, 2,12,14) = (/&
&2.6690e-03_jprb,2.3367e-03_jprb,2.0556e-03_jprb,1.7563e-03_jprb,1.4836e-03_jprb,1.2255e-03_jprb,&
&1.0602e-03_jprb,2.2342e-04_jprb,5.2005e-01_jprb/)
kao( :, 3,12,14) = (/&
&2.6024e-03_jprb,2.3216e-03_jprb,2.0574e-03_jprb,1.8575e-03_jprb,1.6967e-03_jprb,1.7241e-03_jprb,&
&1.9458e-03_jprb,2.1132e-03_jprb,9.9525e-01_jprb/)
kao( :, 4,12,14) = (/&
&2.5362e-03_jprb,2.2963e-03_jprb,2.1666e-03_jprb,2.1029e-03_jprb,2.2976e-03_jprb,2.7702e-03_jprb,&
&3.2192e-03_jprb,3.5953e-03_jprb,1.7434e+00_jprb/)
kao( :, 5,12,14) = (/&
&2.4736e-03_jprb,2.3442e-03_jprb,2.3511e-03_jprb,2.7323e-03_jprb,3.5045e-03_jprb,4.2744e-03_jprb,&
&5.0574e-03_jprb,5.7337e-03_jprb,2.8511e+00_jprb/)
kao( :, 1,13,14) = (/&
&3.0694e-03_jprb,2.6858e-03_jprb,2.3020e-03_jprb,1.9523e-03_jprb,1.5893e-03_jprb,1.2280e-03_jprb,&
&9.6824e-05_jprb,9.3571e-08_jprb,2.9420e-01_jprb/)
kao( :, 2,13,14) = (/&
&2.9959e-03_jprb,2.6225e-03_jprb,2.2984e-03_jprb,1.9588e-03_jprb,1.6492e-03_jprb,1.3537e-03_jprb,&
&1.1186e-03_jprb,4.7180e-04_jprb,6.2570e-01_jprb/)
kao( :, 3,13,14) = (/&
&2.9125e-03_jprb,2.5931e-03_jprb,2.2966e-03_jprb,2.0585e-03_jprb,1.8442e-03_jprb,1.7986e-03_jprb,&
&1.9858e-03_jprb,2.1644e-03_jprb,1.1929e+00_jprb/)
kao( :, 4,13,14) = (/&
&2.8338e-03_jprb,2.5576e-03_jprb,2.3960e-03_jprb,2.2668e-03_jprb,2.3808e-03_jprb,2.8162e-03_jprb,&
&3.2861e-03_jprb,3.6781e-03_jprb,2.0900e+00_jprb/)
kao( :, 5,13,14) = (/&
&2.7615e-03_jprb,2.6036e-03_jprb,2.5577e-03_jprb,2.8390e-03_jprb,3.5800e-03_jprb,4.3621e-03_jprb,&
&5.1422e-03_jprb,5.8469e-03_jprb,3.4082e+00_jprb/)
kao( :, 1, 1,15) = (/&
&1.5335e-03_jprb,1.9324e-03_jprb,3.7679e-03_jprb,5.5453e-03_jprb,7.3003e-03_jprb,9.0183e-03_jprb,&
&1.0616e-02_jprb,1.1802e-02_jprb,1.3402e-02_jprb/)
kao( :, 2, 1,15) = (/&
&1.8833e-03_jprb,2.7655e-03_jprb,5.2889e-03_jprb,7.8002e-03_jprb,1.0284e-02_jprb,1.2663e-02_jprb,&
&1.4949e-02_jprb,1.7186e-02_jprb,1.9451e-02_jprb/)
kao( :, 3, 1,15) = (/&
&2.3483e-03_jprb,3.8414e-03_jprb,7.3773e-03_jprb,1.0888e-02_jprb,1.4361e-02_jprb,1.7765e-02_jprb,&
&2.0815e-02_jprb,2.3917e-02_jprb,2.7184e-02_jprb/)
kao( :, 4, 1,15) = (/&
&2.9416e-03_jprb,5.1566e-03_jprb,9.9228e-03_jprb,1.4661e-02_jprb,1.9210e-02_jprb,2.3760e-02_jprb,&
&2.8113e-02_jprb,3.1154e-02_jprb,3.5404e-02_jprb/)
kao( :, 5, 1,15) = (/&
&3.6966e-03_jprb,6.6653e-03_jprb,1.2941e-02_jprb,1.9171e-02_jprb,2.5316e-02_jprb,3.1127e-02_jprb,&
&3.6787e-02_jprb,4.1016e-02_jprb,4.6262e-02_jprb/)
kao( :, 1, 2,15) = (/&
&1.4383e-03_jprb,1.8910e-03_jprb,3.6349e-03_jprb,5.3031e-03_jprb,6.9932e-03_jprb,8.6450e-03_jprb,&
&1.0512e-02_jprb,1.1619e-02_jprb,1.3810e-02_jprb/)
kao( :, 2, 2,15) = (/&
&1.7711e-03_jprb,2.7662e-03_jprb,5.3277e-03_jprb,7.8716e-03_jprb,1.0388e-02_jprb,1.2798e-02_jprb,&
&1.4898e-02_jprb,1.7232e-02_jprb,1.9744e-02_jprb/)
kao( :, 3, 2,15) = (/&
&2.2091e-03_jprb,3.9249e-03_jprb,7.5049e-03_jprb,1.1104e-02_jprb,1.4661e-02_jprb,1.8139e-02_jprb,&
&2.1328e-02_jprb,2.3602e-02_jprb,2.7985e-02_jprb/)
kao( :, 4, 2,15) = (/&
&2.7705e-03_jprb,5.2948e-03_jprb,1.0279e-02_jprb,1.5231e-02_jprb,2.0000e-02_jprb,2.4763e-02_jprb,&
&2.9040e-02_jprb,3.2255e-02_jprb,3.8158e-02_jprb/)
kao( :, 5, 2,15) = (/&
&3.5089e-03_jprb,6.9573e-03_jprb,1.3524e-02_jprb,2.0020e-02_jprb,2.6474e-02_jprb,3.2706e-02_jprb,&
&3.8152e-02_jprb,4.2439e-02_jprb,5.0508e-02_jprb/)
kao( :, 1, 3,15) = (/&
&1.2705e-03_jprb,1.6880e-03_jprb,3.2165e-03_jprb,4.7906e-03_jprb,6.3186e-03_jprb,7.6460e-03_jprb,&
&9.3643e-03_jprb,1.0229e-02_jprb,1.2458e-02_jprb/)
kao( :, 2, 3,15) = (/&
&1.5436e-03_jprb,2.5438e-03_jprb,4.9323e-03_jprb,7.3010e-03_jprb,9.6387e-03_jprb,1.1841e-02_jprb,&
&1.4163e-02_jprb,1.5548e-02_jprb,1.9155e-02_jprb/)
kao( :, 3, 3,15) = (/&
&1.9176e-03_jprb,3.6434e-03_jprb,6.9853e-03_jprb,1.0590e-02_jprb,1.3995e-02_jprb,1.7311e-02_jprb,&
&2.0232e-02_jprb,2.1858e-02_jprb,2.7487e-02_jprb/)
kao( :, 4, 3,15) = (/&
&2.3869e-03_jprb,4.9269e-03_jprb,9.6201e-03_jprb,1.4277e-02_jprb,1.9500e-02_jprb,2.4127e-02_jprb,&
&2.8236e-02_jprb,3.0501e-02_jprb,3.7416e-02_jprb/)
kao( :, 5, 3,15) = (/&
&2.9972e-03_jprb,6.6065e-03_jprb,1.2887e-02_jprb,1.9158e-02_jprb,2.5345e-02_jprb,3.1167e-02_jprb,&
&3.7358e-02_jprb,4.1161e-02_jprb,5.0258e-02_jprb/)
kao( :, 1, 4,15) = (/&
&1.2393e-03_jprb,1.4291e-03_jprb,2.7934e-03_jprb,4.1582e-03_jprb,5.4860e-03_jprb,6.6271e-03_jprb,&
&7.7456e-03_jprb,8.5638e-03_jprb,1.0713e-02_jprb/)
kao( :, 2, 4,15) = (/&
&1.3400e-03_jprb,2.1964e-03_jprb,4.2752e-03_jprb,6.3365e-03_jprb,8.4061e-03_jprb,1.0279e-02_jprb,&
&1.2357e-02_jprb,1.3474e-02_jprb,1.7008e-02_jprb/)
kao( :, 3, 4,15) = (/&
&1.6349e-03_jprb,3.2436e-03_jprb,6.2304e-03_jprb,9.4103e-03_jprb,1.2432e-02_jprb,1.5539e-02_jprb,&
&1.8108e-02_jprb,2.0011e-02_jprb,2.5265e-02_jprb/)
kao( :, 4, 4,15) = (/&
&2.0292e-03_jprb,4.6522e-03_jprb,9.1141e-03_jprb,1.3542e-02_jprb,1.7761e-02_jprb,2.1969e-02_jprb,&
&2.5895e-02_jprb,2.8549e-02_jprb,3.4694e-02_jprb/)
kao( :, 5, 4,15) = (/&
&2.5299e-03_jprb,6.1198e-03_jprb,1.2014e-02_jprb,1.7823e-02_jprb,2.3626e-02_jprb,3.0145e-02_jprb,&
&3.4844e-02_jprb,3.8179e-02_jprb,4.7443e-02_jprb/)
kao( :, 1, 5,15) = (/&
&1.3376e-03_jprb,1.3061e-03_jprb,2.2933e-03_jprb,3.4105e-03_jprb,4.5058e-03_jprb,5.4169e-03_jprb,&
&6.3127e-03_jprb,7.0090e-03_jprb,8.8382e-03_jprb/)
kao( :, 2, 5,15) = (/&
&1.3263e-03_jprb,1.8712e-03_jprb,3.6486e-03_jprb,5.3688e-03_jprb,7.2653e-03_jprb,8.6947e-03_jprb,&
&1.0335e-02_jprb,1.1527e-02_jprb,1.4282e-02_jprb/)
kao( :, 3, 5,15) = (/&
&1.4243e-03_jprb,2.8262e-03_jprb,5.4158e-03_jprb,8.2878e-03_jprb,1.0953e-02_jprb,1.3340e-02_jprb,&
&1.6078e-02_jprb,1.7370e-02_jprb,2.2313e-02_jprb/)
kao( :, 4, 5,15) = (/&
&1.6989e-03_jprb,4.0314e-03_jprb,7.9177e-03_jprb,1.2164e-02_jprb,1.6022e-02_jprb,1.9693e-02_jprb,&
&2.2743e-02_jprb,2.5430e-02_jprb,3.1147e-02_jprb/)
kao( :, 5, 5,15) = (/&
&2.0980e-03_jprb,5.4208e-03_jprb,1.0645e-02_jprb,1.5846e-02_jprb,2.1457e-02_jprb,2.6719e-02_jprb,&
&3.1700e-02_jprb,3.4634e-02_jprb,4.2396e-02_jprb/)
kao( :, 1, 6,15) = (/&
&1.4699e-03_jprb,1.3039e-03_jprb,1.7682e-03_jprb,2.6642e-03_jprb,3.3901e-03_jprb,4.1361e-03_jprb,&
&4.9645e-03_jprb,5.4015e-03_jprb,7.0142e-03_jprb/)
kao( :, 2, 6,15) = (/&
&1.4420e-03_jprb,1.6011e-03_jprb,2.9603e-03_jprb,4.2663e-03_jprb,5.9096e-03_jprb,7.1197e-03_jprb,&
&8.3224e-03_jprb,9.2909e-03_jprb,1.1572e-02_jprb/)
kao( :, 3, 6,15) = (/&
&1.4209e-03_jprb,2.3651e-03_jprb,4.5056e-03_jprb,6.8456e-03_jprb,9.2009e-03_jprb,1.1119e-02_jprb,&
&1.3497e-02_jprb,1.4341e-02_jprb,1.8485e-02_jprb/)
kao( :, 4, 6,15) = (/&
&1.4876e-03_jprb,3.4335e-03_jprb,6.7368e-03_jprb,1.0314e-02_jprb,1.3111e-02_jprb,1.6614e-02_jprb,&
&1.9482e-02_jprb,2.1613e-02_jprb,2.6785e-02_jprb/)
kao( :, 5, 6,15) = (/&
&1.7311e-03_jprb,4.9309e-03_jprb,9.6716e-03_jprb,1.4408e-02_jprb,1.8785e-02_jprb,2.3407e-02_jprb,&
&2.7826e-02_jprb,3.0253e-02_jprb,3.8797e-02_jprb/)
kao( :, 1, 7,15) = (/&
&1.6452e-03_jprb,1.4412e-03_jprb,1.4879e-03_jprb,1.9571e-03_jprb,2.5256e-03_jprb,3.0766e-03_jprb,&
&3.7011e-03_jprb,4.0149e-03_jprb,5.3627e-03_jprb/)
kao( :, 2, 7,15) = (/&
&1.6160e-03_jprb,1.5227e-03_jprb,2.2973e-03_jprb,3.3257e-03_jprb,4.5738e-03_jprb,5.5584e-03_jprb,&
&6.3881e-03_jprb,7.2538e-03_jprb,9.6722e-03_jprb/)
kao( :, 3, 7,15) = (/&
&1.5860e-03_jprb,2.0263e-03_jprb,3.8492e-03_jprb,5.5523e-03_jprb,7.3824e-03_jprb,9.0664e-03_jprb,&
&1.0834e-02_jprb,1.1569e-02_jprb,1.5617e-02_jprb/)
kao( :, 4, 7,15) = (/&
&1.5638e-03_jprb,2.9557e-03_jprb,5.6559e-03_jprb,8.6531e-03_jprb,1.0991e-02_jprb,1.3929e-02_jprb,&
&1.6365e-02_jprb,1.8010e-02_jprb,2.4730e-02_jprb/)
kao( :, 5, 7,15) = (/&
&1.5935e-03_jprb,4.3661e-03_jprb,8.5392e-03_jprb,1.2446e-02_jprb,1.6667e-02_jprb,2.0343e-02_jprb,&
&2.3794e-02_jprb,2.5830e-02_jprb,3.6014e-02_jprb/)
kao( :, 1, 8,15) = (/&
&1.8723e-03_jprb,1.6388e-03_jprb,1.4610e-03_jprb,1.5561e-03_jprb,1.8720e-03_jprb,2.3376e-03_jprb,&
&2.6613e-03_jprb,2.9039e-03_jprb,6.4956e-03_jprb/)
kao( :, 2, 8,15) = (/&
&1.8456e-03_jprb,1.6296e-03_jprb,1.9116e-03_jprb,2.6011e-03_jprb,3.5199e-03_jprb,4.2393e-03_jprb,&
&4.8531e-03_jprb,5.3550e-03_jprb,1.2422e-02_jprb/)
kao( :, 3, 8,15) = (/&
&1.8093e-03_jprb,1.9050e-03_jprb,3.1124e-03_jprb,4.4584e-03_jprb,5.9417e-03_jprb,7.2783e-03_jprb,&
&8.6194e-03_jprb,9.3908e-03_jprb,2.1656e-02_jprb/)
kao( :, 4, 8,15) = (/&
&1.7796e-03_jprb,2.5264e-03_jprb,4.7746e-03_jprb,7.1139e-03_jprb,9.2445e-03_jprb,1.1405e-02_jprb,&
&1.3524e-02_jprb,1.4718e-02_jprb,3.5472e-02_jprb/)
kao( :, 5, 8,15) = (/&
&1.7474e-03_jprb,3.6460e-03_jprb,7.3775e-03_jprb,1.0554e-02_jprb,1.4351e-02_jprb,1.7437e-02_jprb,&
&2.0234e-02_jprb,2.2659e-02_jprb,5.4466e-02_jprb/)
kao( :, 1, 9,15) = (/&
&2.1531e-03_jprb,1.8852e-03_jprb,1.6173e-03_jprb,1.4438e-03_jprb,1.4392e-03_jprb,1.6909e-03_jprb,&
&1.8360e-03_jprb,1.2556e-03_jprb,2.2429e-02_jprb/)
kao( :, 2, 9,15) = (/&
&2.1197e-03_jprb,1.8522e-03_jprb,1.7919e-03_jprb,2.0362e-03_jprb,2.5897e-03_jprb,3.1619e-03_jprb,&
&3.6769e-03_jprb,3.8809e-03_jprb,4.5293e-02_jprb/)
kao( :, 3, 9,15) = (/&
&2.0806e-03_jprb,1.9202e-03_jprb,2.4651e-03_jprb,3.5166e-03_jprb,4.6833e-03_jprb,5.6685e-03_jprb,&
&6.7191e-03_jprb,7.2005e-03_jprb,8.3053e-02_jprb/)
kao( :, 4, 9,15) = (/&
&2.0479e-03_jprb,2.3234e-03_jprb,3.9257e-03_jprb,5.8282e-03_jprb,7.5382e-03_jprb,9.2852e-03_jprb,&
&1.0968e-02_jprb,1.1755e-02_jprb,1.4085e-01_jprb/)
kao( :, 5, 9,15) = (/&
&2.0135e-03_jprb,3.1161e-03_jprb,6.2953e-03_jprb,8.9489e-03_jprb,1.1910e-02_jprb,1.4603e-02_jprb,&
&1.7103e-02_jprb,1.8687e-02_jprb,2.2489e-01_jprb/)
kao( :, 1,10,15) = (/&
&2.4996e-03_jprb,2.1860e-03_jprb,1.8719e-03_jprb,1.5736e-03_jprb,1.3474e-03_jprb,1.3138e-03_jprb,&
&1.2455e-03_jprb,1.1328e-07_jprb,9.2144e-02_jprb/)
kao( :, 2,10,15) = (/&
&2.4545e-03_jprb,2.1478e-03_jprb,1.8895e-03_jprb,1.8842e-03_jprb,2.0494e-03_jprb,2.4515e-03_jprb,&
&2.7912e-03_jprb,2.8411e-03_jprb,1.9577e-01_jprb/)
kao( :, 3,10,15) = (/&
&2.4123e-03_jprb,2.1379e-03_jprb,2.2699e-03_jprb,2.9106e-03_jprb,3.7957e-03_jprb,4.5303e-03_jprb,&
&5.1569e-03_jprb,5.5947e-03_jprb,3.7579e-01_jprb/)
kao( :, 4,10,15) = (/&
&2.3670e-03_jprb,2.3455e-03_jprb,3.3904e-03_jprb,4.7982e-03_jprb,6.5586e-03_jprb,7.6814e-03_jprb,&
&8.9698e-03_jprb,9.4919e-03_jprb,6.5920e-01_jprb/)
kao( :, 5,10,15) = (/&
&2.3225e-03_jprb,2.8728e-03_jprb,5.4745e-03_jprb,7.9446e-03_jprb,1.0257e-02_jprb,1.2466e-02_jprb,&
&1.4486e-02_jprb,1.5553e-02_jprb,1.0800e+00_jprb/)
kao( :, 1,11,15) = (/&
&2.8637e-03_jprb,2.5035e-03_jprb,2.1436e-03_jprb,1.8035e-03_jprb,1.5339e-03_jprb,1.4234e-03_jprb,&
&1.1994e-03_jprb,9.8829e-08_jprb,1.9145e-01_jprb/)
kao( :, 2,11,15) = (/&
&2.8241e-03_jprb,2.4682e-03_jprb,2.1655e-03_jprb,2.0940e-03_jprb,2.2293e-03_jprb,2.5943e-03_jprb,&
&2.8972e-03_jprb,2.9304e-03_jprb,4.0810e-01_jprb/)
kao( :, 3,11,15) = (/&
&2.7755e-03_jprb,2.4611e-03_jprb,2.5498e-03_jprb,3.0773e-03_jprb,3.9941e-03_jprb,4.8157e-03_jprb,&
&5.3205e-03_jprb,5.7118e-03_jprb,7.8317e-01_jprb/)
kao( :, 4,11,15) = (/&
&2.7180e-03_jprb,2.6251e-03_jprb,3.6039e-03_jprb,5.0535e-03_jprb,6.8961e-03_jprb,8.2198e-03_jprb,&
&9.2474e-03_jprb,9.6840e-03_jprb,1.3768e+00_jprb/)
kao( :, 5,11,15) = (/&
&2.6558e-03_jprb,3.1273e-03_jprb,5.6600e-03_jprb,8.3772e-03_jprb,1.0624e-02_jprb,1.3218e-02_jprb,&
&1.5003e-02_jprb,1.5876e-02_jprb,2.2520e+00_jprb/)
kao( :, 1,12,15) = (/&
&3.2714e-03_jprb,2.8584e-03_jprb,2.4535e-03_jprb,2.0680e-03_jprb,1.7413e-03_jprb,1.5693e-03_jprb,&
&1.4195e-03_jprb,8.7492e-08_jprb,2.9715e-01_jprb/)
kao( :, 2,12,15) = (/&
&3.2238e-03_jprb,2.8219e-03_jprb,2.4898e-03_jprb,2.3173e-03_jprb,2.4029e-03_jprb,2.7493e-03_jprb,&
&3.0184e-03_jprb,3.0151e-03_jprb,6.3430e-01_jprb/)
kao( :, 3,12,15) = (/&
&3.1690e-03_jprb,2.8261e-03_jprb,2.8398e-03_jprb,3.2763e-03_jprb,4.1787e-03_jprb,5.0712e-03_jprb,&
&5.7128e-03_jprb,5.7933e-03_jprb,1.2146e+00_jprb/)
kao( :, 4,12,15) = (/&
&3.1066e-03_jprb,2.9671e-03_jprb,3.8178e-03_jprb,5.5845e-03_jprb,7.1025e-03_jprb,8.6518e-03_jprb,&
&9.8099e-03_jprb,1.0106e-02_jprb,2.1338e+00_jprb/)
kao( :, 5,12,15) = (/&
&3.0417e-03_jprb,3.4447e-03_jprb,5.9771e-03_jprb,8.7849e-03_jprb,1.1154e-02_jprb,1.3933e-02_jprb,&
&1.5683e-02_jprb,1.6226e-02_jprb,3.5026e+00_jprb/)
kao( :, 1,13,15) = (/&
&3.7174e-03_jprb,3.2529e-03_jprb,2.7876e-03_jprb,2.3613e-03_jprb,1.9840e-03_jprb,1.7059e-03_jprb,&
&1.5699e-03_jprb,2.2638e-04_jprb,3.7080e-01_jprb/)
kao( :, 2,13,15) = (/&
&3.6607e-03_jprb,3.2024e-03_jprb,2.8505e-03_jprb,2.5957e-03_jprb,2.5988e-03_jprb,2.8843e-03_jprb,&
&3.1480e-03_jprb,3.2252e-03_jprb,7.9012e-01_jprb/)
kao( :, 3,13,15) = (/&
&3.6056e-03_jprb,3.2358e-03_jprb,3.0977e-03_jprb,3.5132e-03_jprb,4.3893e-03_jprb,5.3238e-03_jprb,&
&5.9823e-03_jprb,6.0551e-03_jprb,1.5116e+00_jprb/)
kao( :, 4,13,15) = (/&
&3.5392e-03_jprb,3.3725e-03_jprb,4.1216e-03_jprb,5.8741e-03_jprb,7.4524e-03_jprb,8.9744e-03_jprb,&
&1.0256e-02_jprb,1.0534e-02_jprb,2.6566e+00_jprb/)
kao( :, 5,13,15) = (/&
&3.4654e-03_jprb,3.8025e-03_jprb,6.3205e-03_jprb,9.1996e-03_jprb,1.1773e-02_jprb,1.4433e-02_jprb,&
&1.6393e-02_jprb,1.6955e-02_jprb,4.3588e+00_jprb/)
kao( :, 1, 1,16) = (/&
&1.5672e-03_jprb,2.1553e-03_jprb,4.1215e-03_jprb,6.0711e-03_jprb,7.9933e-03_jprb,9.8639e-03_jprb,&
&1.1623e-02_jprb,1.2894e-02_jprb,1.4627e-02_jprb/)
kao( :, 2, 1,16) = (/&
&1.9455e-03_jprb,3.1176e-03_jprb,5.9834e-03_jprb,8.8258e-03_jprb,1.1628e-02_jprb,1.4352e-02_jprb,&
&1.6890e-02_jprb,1.8782e-02_jprb,2.1292e-02_jprb/)
kao( :, 3, 1,16) = (/&
&2.4286e-03_jprb,4.3028e-03_jprb,8.2818e-03_jprb,1.2234e-02_jprb,1.6127e-02_jprb,1.9913e-02_jprb,&
&2.3612e-02_jprb,2.6215e-02_jprb,2.9752e-02_jprb/)
kao( :, 4, 1,16) = (/&
&3.0199e-03_jprb,5.7955e-03_jprb,1.1212e-02_jprb,1.6585e-02_jprb,2.1939e-02_jprb,2.7103e-02_jprb,&
&3.1641e-02_jprb,3.5382e-02_jprb,4.0152e-02_jprb/)
kao( :, 5, 1,16) = (/&
&3.7301e-03_jprb,7.5925e-03_jprb,1.4663e-02_jprb,2.1614e-02_jprb,2.8523e-02_jprb,3.5412e-02_jprb,&
&4.1705e-02_jprb,4.6016e-02_jprb,5.2602e-02_jprb/)
kao( :, 1, 2,16) = (/&
&1.4714e-03_jprb,2.1897e-03_jprb,4.1859e-03_jprb,6.1816e-03_jprb,8.1457e-03_jprb,1.0051e-02_jprb,&
&1.1874e-02_jprb,1.3114e-02_jprb,1.5524e-02_jprb/)
kao( :, 2, 2,16) = (/&
&1.8243e-03_jprb,3.2190e-03_jprb,6.2284e-03_jprb,9.2101e-03_jprb,1.2144e-02_jprb,1.5021e-02_jprb,&
&1.7606e-02_jprb,1.9473e-02_jprb,2.2997e-02_jprb/)
kao( :, 3, 2,16) = (/&
&2.2843e-03_jprb,4.5394e-03_jprb,8.8033e-03_jprb,1.3032e-02_jprb,1.7194e-02_jprb,2.1230e-02_jprb,&
&2.5009e-02_jprb,2.7460e-02_jprb,3.2496e-02_jprb/)
kao( :, 4, 2,16) = (/&
&2.8708e-03_jprb,6.2086e-03_jprb,1.2093e-02_jprb,1.7923e-02_jprb,2.3632e-02_jprb,2.9181e-02_jprb,&
&3.4133e-02_jprb,3.7858e-02_jprb,4.4523e-02_jprb/)
kao( :, 5, 2,16) = (/&
&3.5701e-03_jprb,8.1350e-03_jprb,1.5874e-02_jprb,2.3527e-02_jprb,3.1085e-02_jprb,3.8729e-02_jprb,&
&4.5307e-02_jprb,4.9567e-02_jprb,5.9359e-02_jprb/)
kao( :, 1, 3,16) = (/&
&1.2836e-03_jprb,2.0294e-03_jprb,3.8863e-03_jprb,5.8124e-03_jprb,7.6573e-03_jprb,9.3378e-03_jprb,&
&1.1017e-02_jprb,1.1974e-02_jprb,1.4949e-02_jprb/)
kao( :, 2, 3,16) = (/&
&1.5660e-03_jprb,3.0824e-03_jprb,6.0009e-03_jprb,8.8868e-03_jprb,1.1717e-02_jprb,1.4438e-02_jprb,&
&1.6887e-02_jprb,1.8445e-02_jprb,2.2945e-02_jprb/)
kao( :, 3, 3,16) = (/&
&1.9600e-03_jprb,4.4422e-03_jprb,8.7147e-03_jprb,1.2909e-02_jprb,1.7029e-02_jprb,2.0993e-02_jprb,&
&2.4634e-02_jprb,2.6606e-02_jprb,3.3559e-02_jprb/)
kao( :, 4, 3,16) = (/&
&2.4642e-03_jprb,6.2222e-03_jprb,1.2184e-02_jprb,1.8079e-02_jprb,2.3727e-02_jprb,2.9253e-02_jprb,&
&3.4378e-02_jprb,3.7595e-02_jprb,4.7010e-02_jprb/)
kao( :, 5, 3,16) = (/&
&3.0951e-03_jprb,8.3838e-03_jprb,1.6309e-02_jprb,2.4359e-02_jprb,3.2164e-02_jprb,3.9734e-02_jprb,&
&4.6556e-02_jprb,5.0749e-02_jprb,6.3475e-02_jprb/)
kao( :, 1, 4,16) = (/&
&1.2574e-03_jprb,1.8114e-03_jprb,3.5154e-03_jprb,5.2030e-03_jprb,6.8473e-03_jprb,8.4135e-03_jprb,&
&9.7945e-03_jprb,1.0467e-02_jprb,1.3735e-02_jprb/)
kao( :, 2, 4,16) = (/&
&1.4045e-03_jprb,2.8445e-03_jprb,5.5546e-03_jprb,8.2273e-03_jprb,1.0867e-02_jprb,1.3255e-02_jprb,&
&1.5543e-02_jprb,1.6757e-02_jprb,2.1717e-02_jprb/)
kao( :, 3, 4,16) = (/&
&1.7089e-03_jprb,4.2655e-03_jprb,8.3342e-03_jprb,1.2385e-02_jprb,1.6320e-02_jprb,2.0006e-02_jprb,&
&2.3383e-02_jprb,2.5166e-02_jprb,3.2791e-02_jprb/)
kao( :, 4, 4,16) = (/&
&2.1090e-03_jprb,6.0675e-03_jprb,1.1915e-02_jprb,1.7681e-02_jprb,2.3322e-02_jprb,2.8694e-02_jprb,&
&3.3458e-02_jprb,3.6118e-02_jprb,4.7164e-02_jprb/)
kao( :, 5, 4,16) = (/&
&2.6086e-03_jprb,8.3756e-03_jprb,1.6515e-02_jprb,2.4278e-02_jprb,3.2230e-02_jprb,3.9587e-02_jprb,&
&4.6358e-02_jprb,4.9833e-02_jprb,6.4660e-02_jprb/)
kao( :, 1, 5,16) = (/&
&1.3825e-03_jprb,1.5837e-03_jprb,3.0919e-03_jprb,4.5531e-03_jprb,6.0074e-03_jprb,7.3563e-03_jprb,&
&8.5040e-03_jprb,9.0047e-03_jprb,1.2222e-02_jprb/)
kao( :, 2, 5,16) = (/&
&1.3514e-03_jprb,2.5997e-03_jprb,5.0814e-03_jprb,7.5197e-03_jprb,9.9239e-03_jprb,1.2026e-02_jprb,&
&1.3939e-02_jprb,1.4883e-02_jprb,2.0096e-02_jprb/)
kao( :, 3, 5,16) = (/&
&1.5206e-03_jprb,4.0333e-03_jprb,7.8158e-03_jprb,1.1713e-02_jprb,1.5405e-02_jprb,1.8636e-02_jprb,&
&2.1846e-02_jprb,2.3099e-02_jprb,3.1394e-02_jprb/)
kao( :, 4, 5,16) = (/&
&1.8386e-03_jprb,5.8482e-03_jprb,1.1495e-02_jprb,1.7163e-02_jprb,2.2705e-02_jprb,2.7707e-02_jprb,&
&3.1828e-02_jprb,3.4087e-02_jprb,4.5825e-02_jprb/)
kao( :, 5, 5,16) = (/&
&2.2527e-03_jprb,8.2599e-03_jprb,1.6275e-02_jprb,2.4092e-02_jprb,3.1836e-02_jprb,3.8856e-02_jprb,&
&4.5237e-02_jprb,4.7798e-02_jprb,6.5032e-02_jprb/)
kao( :, 1, 6,16) = (/&
&1.5452e-03_jprb,1.3558e-03_jprb,2.6064e-03_jprb,3.8420e-03_jprb,5.0190e-03_jprb,6.1218e-03_jprb,&
&7.0124e-03_jprb,7.3072e-03_jprb,1.0404e-02_jprb/)
kao( :, 2, 6,16) = (/&
&1.5160e-03_jprb,2.2762e-03_jprb,4.4992e-03_jprb,6.5908e-03_jprb,8.7549e-03_jprb,1.0577e-02_jprb,&
&1.2081e-02_jprb,1.2650e-02_jprb,1.7914e-02_jprb/)
kao( :, 3, 6,16) = (/&
&1.4831e-03_jprb,3.6667e-03_jprb,7.1626e-03_jprb,1.0648e-02_jprb,1.4117e-02_jprb,1.6912e-02_jprb,&
&1.9731e-02_jprb,2.0210e-02_jprb,2.8978e-02_jprb/)
kao( :, 4, 6,16) = (/&
&1.6115e-03_jprb,5.5846e-03_jprb,1.0973e-02_jprb,1.6135e-02_jprb,2.1251e-02_jprb,2.6015e-02_jprb,&
&2.9549e-02_jprb,3.0765e-02_jprb,4.3671e-02_jprb/)
kao( :, 5, 6,16) = (/&
&1.9392e-03_jprb,8.0663e-03_jprb,1.5907e-02_jprb,2.3470e-02_jprb,3.0817e-02_jprb,3.7382e-02_jprb,&
&4.3204e-02_jprb,4.4622e-02_jprb,6.3997e-02_jprb/)
kao( :, 1, 7,16) = (/&
&1.7424e-03_jprb,1.5255e-03_jprb,2.1507e-03_jprb,3.1520e-03_jprb,4.1047e-03_jprb,4.9755e-03_jprb,&
&5.6339e-03_jprb,5.7296e-03_jprb,8.6456e-03_jprb/)
kao( :, 2, 7,16) = (/&
&1.7170e-03_jprb,1.9718e-03_jprb,3.9047e-03_jprb,5.6866e-03_jprb,7.5061e-03_jprb,9.0459e-03_jprb,&
&1.0285e-02_jprb,1.0440e-02_jprb,1.5762e-02_jprb/)
kao( :, 3, 7,16) = (/&
&1.6789e-03_jprb,3.3135e-03_jprb,6.5455e-03_jprb,9.5842e-03_jprb,1.2571e-02_jprb,1.5280e-02_jprb,&
&1.7323e-02_jprb,1.7346e-02_jprb,2.6392e-02_jprb/)
kao( :, 4, 7,16) = (/&
&1.6475e-03_jprb,5.2207e-03_jprb,1.0255e-02_jprb,1.5008e-02_jprb,1.9715e-02_jprb,2.4009e-02_jprb,&
&2.7310e-02_jprb,2.7325e-02_jprb,4.1677e-02_jprb/)
kao( :, 5, 7,16) = (/&
&1.7171e-03_jprb,7.7744e-03_jprb,1.5301e-02_jprb,2.2477e-02_jprb,2.9556e-02_jprb,3.5932e-02_jprb,&
&4.0780e-02_jprb,4.0784e-02_jprb,6.2312e-02_jprb/)
kao( :, 1, 8,16) = (/&
&1.9724e-03_jprb,1.7312e-03_jprb,1.7354e-03_jprb,2.5314e-03_jprb,3.2671e-03_jprb,3.9608e-03_jprb,&
&4.3782e-03_jprb,4.2763e-03_jprb,7.0340e-03_jprb/)
kao( :, 2, 8,16) = (/&
&1.9569e-03_jprb,1.7215e-03_jprb,3.3340e-03_jprb,4.8320e-03_jprb,6.3356e-03_jprb,7.5448e-03_jprb,&
&8.4497e-03_jprb,8.2045e-03_jprb,1.3623e-02_jprb/)
kao( :, 3, 8,16) = (/&
&1.9222e-03_jprb,3.0063e-03_jprb,5.8393e-03_jprb,8.4557e-03_jprb,1.1082e-02_jprb,1.3356e-02_jprb,&
&1.4892e-02_jprb,1.4508e-02_jprb,2.3611e-02_jprb/)
kao( :, 4, 8,16) = (/&
&1.8856e-03_jprb,4.8368e-03_jprb,9.4413e-03_jprb,1.3907e-02_jprb,1.7960e-02_jprb,2.1659e-02_jprb,&
&2.4357e-02_jprb,2.3676e-02_jprb,3.8984e-02_jprb/)
kao( :, 5, 8,16) = (/&
&1.8442e-03_jprb,7.3401e-03_jprb,1.4568e-02_jprb,2.1338e-02_jprb,2.7859e-02_jprb,3.3579e-02_jprb,&
&3.7493e-02_jprb,3.6571e-02_jprb,5.9238e-02_jprb/)
kao( :, 1, 9,16) = (/&
&2.2527e-03_jprb,1.9717e-03_jprb,1.6910e-03_jprb,1.9762e-03_jprb,2.5161e-03_jprb,3.0221e-03_jprb,&
&3.2672e-03_jprb,3.0670e-03_jprb,2.3998e-02_jprb/)
kao( :, 2, 9,16) = (/&
&2.2414e-03_jprb,1.9482e-03_jprb,2.7675e-03_jprb,3.9857e-03_jprb,5.1603e-03_jprb,6.1015e-03_jprb,&
&6.6813e-03_jprb,6.2533e-03_jprb,4.8508e-02_jprb/)
kao( :, 3, 9,16) = (/&
&2.2044e-03_jprb,2.6160e-03_jprb,5.0727e-03_jprb,7.3140e-03_jprb,9.5554e-03_jprb,1.1250e-02_jprb,&
&1.2412e-02_jprb,1.1623e-02_jprb,8.8725e-02_jprb/)
kao( :, 4, 9,16) = (/&
&2.1701e-03_jprb,4.4267e-03_jprb,8.5607e-03_jprb,1.2545e-02_jprb,1.6038e-02_jprb,1.9134e-02_jprb,&
&2.1125e-02_jprb,1.9740e-02_jprb,1.5078e-01_jprb/)
kao( :, 5, 9,16) = (/&
&2.1291e-03_jprb,6.8813e-03_jprb,1.3705e-02_jprb,1.9867e-02_jprb,2.5629e-02_jprb,3.0522e-02_jprb,&
&3.3472e-02_jprb,3.1537e-02_jprb,2.4056e-01_jprb/)
kao( :, 1,10,16) = (/&
&2.6049e-03_jprb,2.2811e-03_jprb,1.9524e-03_jprb,1.6297e-03_jprb,1.9817e-03_jprb,2.3323e-03_jprb,&
&2.4538e-03_jprb,1.0919e-07_jprb,9.9434e-02_jprb/)
kao( :, 2,10,16) = (/&
&2.5564e-03_jprb,2.2387e-03_jprb,2.3682e-03_jprb,3.4024e-03_jprb,4.3056e-03_jprb,4.9923e-03_jprb,&
&5.3151e-03_jprb,4.7395e-03_jprb,2.1164e-01_jprb/)
kao( :, 3,10,16) = (/&
&2.5312e-03_jprb,2.3572e-03_jprb,4.5332e-03_jprb,6.5179e-03_jprb,8.3516e-03_jprb,9.6321e-03_jprb,&
&1.0262e-02_jprb,9.2275e-03_jprb,4.0466e-01_jprb/)
kao( :, 4,10,16) = (/&
&2.4933e-03_jprb,4.1318e-03_jprb,7.9555e-03_jprb,1.1428e-02_jprb,1.4719e-02_jprb,1.6992e-02_jprb,&
&1.8127e-02_jprb,1.6262e-02_jprb,7.1180e-01_jprb/)
kao( :, 5,10,16) = (/&
&2.4587e-03_jprb,6.7099e-03_jprb,1.3086e-02_jprb,1.8862e-02_jprb,2.3880e-02_jprb,2.7946e-02_jprb,&
&2.9807e-02_jprb,2.6793e-02_jprb,1.1699e+00_jprb/)
kao( :, 1,11,16) = (/&
&3.0995e-03_jprb,2.7200e-03_jprb,2.3118e-03_jprb,1.9403e-03_jprb,2.2912e-03_jprb,2.6188e-03_jprb,&
&2.6729e-03_jprb,9.6247e-08_jprb,2.0911e-01_jprb/)
kao( :, 2,11,16) = (/&
&2.9890e-03_jprb,2.6201e-03_jprb,2.7716e-03_jprb,3.9533e-03_jprb,4.9561e-03_jprb,5.6265e-03_jprb,&
&5.7942e-03_jprb,4.9820e-03_jprb,4.4548e-01_jprb/)
kao( :, 3,11,16) = (/&
&2.9190e-03_jprb,2.7609e-03_jprb,5.3580e-03_jprb,7.5536e-03_jprb,9.5654e-03_jprb,1.0853e-02_jprb,&
&1.1187e-02_jprb,9.7006e-03_jprb,8.5245e-01_jprb/)
kao( :, 4,11,16) = (/&
&2.8864e-03_jprb,4.8539e-03_jprb,9.3197e-03_jprb,1.3213e-02_jprb,1.6850e-02_jprb,1.9193e-02_jprb,&
&1.9763e-02_jprb,1.7093e-02_jprb,1.5055e+00_jprb/)
kao( :, 5,11,16) = (/&
&2.8813e-03_jprb,7.9127e-03_jprb,1.5164e-02_jprb,2.1854e-02_jprb,2.7083e-02_jprb,3.1374e-02_jprb,&
&3.2509e-02_jprb,2.8179e-02_jprb,2.4634e+00_jprb/)
kao( :, 1,12,16) = (/&
&3.7114e-03_jprb,3.2586e-03_jprb,2.7915e-03_jprb,2.3232e-03_jprb,2.6631e-03_jprb,3.0175e-03_jprb,&
&3.0634e-03_jprb,8.7203e-08_jprb,3.2918e-01_jprb/)
kao( :, 2,12,16) = (/&
&3.5714e-03_jprb,3.1255e-03_jprb,3.2432e-03_jprb,4.6151e-03_jprb,5.7633e-03_jprb,6.4683e-03_jprb,&
&6.5276e-03_jprb,5.5718e-03_jprb,7.0176e-01_jprb/)
kao( :, 3,12,16) = (/&
&3.4916e-03_jprb,3.2858e-03_jprb,6.3152e-03_jprb,8.8262e-03_jprb,1.0981e-02_jprb,1.2464e-02_jprb,&
&1.2740e-02_jprb,1.0731e-02_jprb,1.3410e+00_jprb/)
kao( :, 4,12,16) = (/&
&3.4311e-03_jprb,5.7096e-03_jprb,1.0941e-02_jprb,1.5646e-02_jprb,1.9404e-02_jprb,2.2034e-02_jprb,&
&2.2454e-02_jprb,1.9063e-02_jprb,2.3582e+00_jprb/)
kao( :, 5,12,16) = (/&
&3.4152e-03_jprb,9.2951e-03_jprb,1.7728e-02_jprb,2.5434e-02_jprb,3.1194e-02_jprb,3.5945e-02_jprb,&
&3.6575e-02_jprb,3.1362e-02_jprb,3.8718e+00_jprb/)
kao( :, 1,13,16) = (/&
&4.4410e-03_jprb,3.8860e-03_jprb,3.3353e-03_jprb,2.7740e-03_jprb,3.0544e-03_jprb,3.4238e-03_jprb,&
&3.4509e-03_jprb,2.8859e-03_jprb,4.1592e-01_jprb/)
kao( :, 2,13,16) = (/&
&4.2685e-03_jprb,3.7372e-03_jprb,3.7732e-03_jprb,5.3427e-03_jprb,6.6266e-03_jprb,7.3589e-03_jprb,&
&7.3233e-03_jprb,6.2265e-03_jprb,8.8643e-01_jprb/)
kao( :, 3,13,16) = (/&
&4.1797e-03_jprb,3.9191e-03_jprb,7.1821e-03_jprb,1.0185e-02_jprb,1.2582e-02_jprb,1.4162e-02_jprb,&
&1.4321e-02_jprb,1.1935e-02_jprb,1.6929e+00_jprb/)
kao( :, 4,13,16) = (/&
&4.0934e-03_jprb,6.6879e-03_jprb,1.2699e-02_jprb,1.8078e-02_jprb,2.2220e-02_jprb,2.4912e-02_jprb,&
&2.5205e-02_jprb,2.1207e-02_jprb,2.9775e+00_jprb/)
kao( :, 5,13,16) = (/&
&4.0583e-03_jprb,1.0796e-02_jprb,2.0731e-02_jprb,2.9284e-02_jprb,3.5883e-02_jprb,4.0713e-02_jprb,&
&4.0964e-02_jprb,3.4894e-02_jprb,4.8770e+00_jprb/)


!     -----------------------------------------------------------------
RETURN
END SUBROUTINE rrtm_kgb7_a2