rrtm_kgb12_A2.F90

Go to the documentation of this file.

!OCL SCALAR
SUBROUTINE rrtm_kgb12_a2

!     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, 9) = (/&
&1.3428e+00_jprb,1.2969e+00_jprb,1.3205e+00_jprb,1.3175e+00_jprb,1.2990e+00_jprb,1.2468e+00_jprb,&
&1.1628e+00_jprb,1.0614e+00_jprb,1.0372e+00_jprb/)
kao( :, 2, 1, 9) = (/&
&1.3746e+00_jprb,1.3335e+00_jprb,1.3668e+00_jprb,1.3722e+00_jprb,1.3567e+00_jprb,1.3085e+00_jprb,&
&1.2270e+00_jprb,1.1261e+00_jprb,1.1147e+00_jprb/)
kao( :, 3, 1, 9) = (/&
&1.4073e+00_jprb,1.3698e+00_jprb,1.4124e+00_jprb,1.4260e+00_jprb,1.4123e+00_jprb,1.3693e+00_jprb,&
&1.2904e+00_jprb,1.1888e+00_jprb,1.1913e+00_jprb/)
kao( :, 4, 1, 9) = (/&
&1.4400e+00_jprb,1.4058e+00_jprb,1.4573e+00_jprb,1.4759e+00_jprb,1.4676e+00_jprb,1.4301e+00_jprb,&
&1.3531e+00_jprb,1.2469e+00_jprb,1.2654e+00_jprb/)
kao( :, 5, 1, 9) = (/&
&1.4734e+00_jprb,1.4423e+00_jprb,1.5023e+00_jprb,1.5245e+00_jprb,1.5225e+00_jprb,1.4892e+00_jprb,&
&1.4132e+00_jprb,1.3011e+00_jprb,1.3376e+00_jprb/)
kao( :, 1, 2, 9) = (/&
&1.2829e+00_jprb,1.2633e+00_jprb,1.2907e+00_jprb,1.2907e+00_jprb,1.2660e+00_jprb,1.2110e+00_jprb,&
&1.1297e+00_jprb,1.0058e+00_jprb,9.3684e-01_jprb/)
kao( :, 2, 2, 9) = (/&
&1.3149e+00_jprb,1.3008e+00_jprb,1.3384e+00_jprb,1.3472e+00_jprb,1.3248e+00_jprb,1.2742e+00_jprb,&
&1.1952e+00_jprb,1.0698e+00_jprb,1.0113e+00_jprb/)
kao( :, 3, 2, 9) = (/&
&1.3475e+00_jprb,1.3378e+00_jprb,1.3854e+00_jprb,1.4016e+00_jprb,1.3821e+00_jprb,1.3377e+00_jprb,&
&1.2602e+00_jprb,1.1308e+00_jprb,1.0840e+00_jprb/)
kao( :, 4, 2, 9) = (/&
&1.3810e+00_jprb,1.3744e+00_jprb,1.4322e+00_jprb,1.4528e+00_jprb,1.4388e+00_jprb,1.4001e+00_jprb,&
&1.3236e+00_jprb,1.1887e+00_jprb,1.1546e+00_jprb/)
kao( :, 5, 2, 9) = (/&
&1.4157e+00_jprb,1.4118e+00_jprb,1.4780e+00_jprb,1.5023e+00_jprb,1.4957e+00_jprb,1.4603e+00_jprb,&
&1.3839e+00_jprb,1.2445e+00_jprb,1.2243e+00_jprb/)
kao( :, 1, 3, 9) = (/&
&1.2127e+00_jprb,1.2149e+00_jprb,1.2414e+00_jprb,1.2413e+00_jprb,1.2096e+00_jprb,1.1509e+00_jprb,&
&1.0693e+00_jprb,9.3505e-01_jprb,8.1904e-01_jprb/)
kao( :, 2, 3, 9) = (/&
&1.2443e+00_jprb,1.2526e+00_jprb,1.2906e+00_jprb,1.2980e+00_jprb,1.2698e+00_jprb,1.2150e+00_jprb,&
&1.1356e+00_jprb,9.9732e-01_jprb,8.8821e-01_jprb/)
kao( :, 3, 3, 9) = (/&
&1.2769e+00_jprb,1.2896e+00_jprb,1.3389e+00_jprb,1.3532e+00_jprb,1.3282e+00_jprb,1.2784e+00_jprb,&
&1.2012e+00_jprb,1.0574e+00_jprb,9.5592e-01_jprb/)
kao( :, 4, 3, 9) = (/&
&1.3109e+00_jprb,1.3271e+00_jprb,1.3868e+00_jprb,1.4049e+00_jprb,1.3857e+00_jprb,1.3410e+00_jprb,&
&1.2646e+00_jprb,1.1151e+00_jprb,1.0226e+00_jprb/)
kao( :, 5, 3, 9) = (/&
&1.3463e+00_jprb,1.3657e+00_jprb,1.4329e+00_jprb,1.4555e+00_jprb,1.4430e+00_jprb,1.4020e+00_jprb,&
&1.3252e+00_jprb,1.1714e+00_jprb,1.0884e+00_jprb/)
kao( :, 1, 4, 9) = (/&
&1.1396e+00_jprb,1.1562e+00_jprb,1.1826e+00_jprb,1.1757e+00_jprb,1.1396e+00_jprb,1.0800e+00_jprb,&
&9.9549e-01_jprb,8.6118e-01_jprb,7.0458e-01_jprb/)
kao( :, 2, 4, 9) = (/&
&1.1708e+00_jprb,1.1941e+00_jprb,1.2324e+00_jprb,1.2326e+00_jprb,1.2012e+00_jprb,1.1447e+00_jprb,&
&1.0603e+00_jprb,9.2111e-01_jprb,7.6931e-01_jprb/)
kao( :, 3, 4, 9) = (/&
&1.2031e+00_jprb,1.2324e+00_jprb,1.2815e+00_jprb,1.2882e+00_jprb,1.2607e+00_jprb,1.2072e+00_jprb,&
&1.1246e+00_jprb,9.8015e-01_jprb,8.3245e-01_jprb/)
kao( :, 4, 4, 9) = (/&
&1.2376e+00_jprb,1.2714e+00_jprb,1.3295e+00_jprb,1.3421e+00_jprb,1.3190e+00_jprb,1.2690e+00_jprb,&
&1.1874e+00_jprb,1.0376e+00_jprb,8.9457e-01_jprb/)
kao( :, 5, 4, 9) = (/&
&1.2740e+00_jprb,1.3119e+00_jprb,1.3762e+00_jprb,1.3940e+00_jprb,1.3758e+00_jprb,1.3293e+00_jprb,&
&1.2473e+00_jprb,1.0924e+00_jprb,9.5512e-01_jprb/)
kao( :, 1, 5, 9) = (/&
&1.0676e+00_jprb,1.0934e+00_jprb,1.1164e+00_jprb,1.1017e+00_jprb,1.0618e+00_jprb,1.0031e+00_jprb,&
&9.1670e-01_jprb,7.8582e-01_jprb,6.0004e-01_jprb/)
kao( :, 2, 5, 9) = (/&
&1.0980e+00_jprb,1.1317e+00_jprb,1.1657e+00_jprb,1.1576e+00_jprb,1.1232e+00_jprb,1.0675e+00_jprb,&
&9.7913e-01_jprb,8.4460e-01_jprb,6.6026e-01_jprb/)
kao( :, 3, 5, 9) = (/&
&1.1299e+00_jprb,1.1708e+00_jprb,1.2140e+00_jprb,1.2133e+00_jprb,1.1840e+00_jprb,1.1288e+00_jprb,&
&1.0409e+00_jprb,9.0310e-01_jprb,7.1874e-01_jprb/)
kao( :, 4, 5, 9) = (/&
&1.1642e+00_jprb,1.2107e+00_jprb,1.2614e+00_jprb,1.2677e+00_jprb,1.2424e+00_jprb,1.1890e+00_jprb,&
&1.1017e+00_jprb,9.5891e-01_jprb,7.7564e-01_jprb/)
kao( :, 5, 5, 9) = (/&
&1.2000e+00_jprb,1.2526e+00_jprb,1.3091e+00_jprb,1.3207e+00_jprb,1.2994e+00_jprb,1.2483e+00_jprb,&
&1.1609e+00_jprb,1.0119e+00_jprb,8.3130e-01_jprb/)
kao( :, 1, 6, 9) = (/&
&9.9003e-01_jprb,1.0258e+00_jprb,1.0412e+00_jprb,1.0201e+00_jprb,9.7779e-01_jprb,9.1873e-01_jprb,&
&8.3216e-01_jprb,7.0459e-01_jprb,5.0433e-01_jprb/)
kao( :, 2, 6, 9) = (/&
&1.0190e+00_jprb,1.0642e+00_jprb,1.0886e+00_jprb,1.0744e+00_jprb,1.0384e+00_jprb,9.8045e-01_jprb,&
&8.9228e-01_jprb,7.6180e-01_jprb,5.5916e-01_jprb/)
kao( :, 3, 6, 9) = (/&
&1.0499e+00_jprb,1.1031e+00_jprb,1.1353e+00_jprb,1.1293e+00_jprb,1.0979e+00_jprb,1.0403e+00_jprb,&
&9.5155e-01_jprb,8.1856e-01_jprb,6.1244e-01_jprb/)
kao( :, 4, 6, 9) = (/&
&1.0828e+00_jprb,1.1437e+00_jprb,1.1824e+00_jprb,1.1833e+00_jprb,1.1555e+00_jprb,1.0993e+00_jprb,&
&1.0102e+00_jprb,8.7279e-01_jprb,6.6433e-01_jprb/)
kao( :, 5, 6, 9) = (/&
&1.1175e+00_jprb,1.1857e+00_jprb,1.2305e+00_jprb,1.2360e+00_jprb,1.2119e+00_jprb,1.1569e+00_jprb,&
&1.0670e+00_jprb,9.2416e-01_jprb,7.1591e-01_jprb/)
kao( :, 1, 7, 9) = (/&
&9.0622e-01_jprb,9.5046e-01_jprb,9.6089e-01_jprb,9.3711e-01_jprb,8.9284e-01_jprb,8.3176e-01_jprb,&
&7.4643e-01_jprb,6.2447e-01_jprb,4.1858e-01_jprb/)
kao( :, 2, 7, 9) = (/&
&9.3396e-01_jprb,9.8759e-01_jprb,1.0065e+00_jprb,9.8973e-01_jprb,9.5076e-01_jprb,8.9008e-01_jprb,&
&8.0412e-01_jprb,6.7884e-01_jprb,4.6801e-01_jprb/)
kao( :, 3, 7, 9) = (/&
&9.6319e-01_jprb,1.0255e+00_jprb,1.0520e+00_jprb,1.0425e+00_jprb,1.0071e+00_jprb,9.4738e-01_jprb,&
&8.6097e-01_jprb,7.3289e-01_jprb,5.1587e-01_jprb/)
kao( :, 4, 7, 9) = (/&
&9.9431e-01_jprb,1.0653e+00_jprb,1.0986e+00_jprb,1.0946e+00_jprb,1.0623e+00_jprb,1.0043e+00_jprb,&
&9.1723e-01_jprb,7.8478e-01_jprb,5.6306e-01_jprb/)
kao( :, 5, 7, 9) = (/&
&1.0274e+00_jprb,1.1069e+00_jprb,1.1469e+00_jprb,1.1464e+00_jprb,1.1172e+00_jprb,1.0599e+00_jprb,&
&9.7098e-01_jprb,8.3391e-01_jprb,6.1058e-01_jprb/)
kao( :, 1, 8, 9) = (/&
&8.1868e-01_jprb,8.7029e-01_jprb,8.7676e-01_jprb,8.5425e-01_jprb,8.0979e-01_jprb,7.4690e-01_jprb,&
&6.6276e-01_jprb,5.4807e-01_jprb,3.4321e-01_jprb/)
kao( :, 2, 8, 9) = (/&
&8.4618e-01_jprb,9.0631e-01_jprb,9.1992e-01_jprb,9.0408e-01_jprb,8.6387e-01_jprb,8.0135e-01_jprb,&
&7.1759e-01_jprb,5.9903e-01_jprb,3.8705e-01_jprb/)
kao( :, 3, 8, 9) = (/&
&8.7480e-01_jprb,9.4290e-01_jprb,9.6372e-01_jprb,9.5463e-01_jprb,9.1665e-01_jprb,8.5535e-01_jprb,&
&7.7165e-01_jprb,6.4994e-01_jprb,4.2964e-01_jprb/)
kao( :, 4, 8, 9) = (/&
&9.0487e-01_jprb,9.8122e-01_jprb,1.0094e+00_jprb,1.0045e+00_jprb,9.6889e-01_jprb,9.0941e-01_jprb,&
&8.2521e-01_jprb,6.9828e-01_jprb,4.7251e-01_jprb/)
kao( :, 5, 8, 9) = (/&
&9.3640e-01_jprb,1.0212e+00_jprb,1.0569e+00_jprb,1.0548e+00_jprb,1.0212e+00_jprb,9.6279e-01_jprb,&
&8.7575e-01_jprb,7.4474e-01_jprb,5.1556e-01_jprb/)
kao( :, 1, 9, 9) = (/&
&7.3248e-01_jprb,7.8661e-01_jprb,7.9076e-01_jprb,7.6949e-01_jprb,7.2749e-01_jprb,6.6515e-01_jprb,&
&5.8393e-01_jprb,4.7588e-01_jprb,2.7793e-01_jprb/)
kao( :, 2, 9, 9) = (/&
&7.5864e-01_jprb,8.2147e-01_jprb,8.3210e-01_jprb,8.1596e-01_jprb,7.7766e-01_jprb,7.1604e-01_jprb,&
&6.3458e-01_jprb,5.2262e-01_jprb,3.1673e-01_jprb/)
kao( :, 3, 9, 9) = (/&
&7.8652e-01_jprb,8.5723e-01_jprb,8.7381e-01_jprb,8.6296e-01_jprb,8.2677e-01_jprb,7.6708e-01_jprb,&
&6.8470e-01_jprb,5.6962e-01_jprb,3.5494e-01_jprb/)
kao( :, 4, 9, 9) = (/&
&8.1572e-01_jprb,8.9416e-01_jprb,9.1752e-01_jprb,9.1007e-01_jprb,8.7613e-01_jprb,8.1762e-01_jprb,&
&7.3487e-01_jprb,6.1457e-01_jprb,3.9372e-01_jprb/)
kao( :, 5, 9, 9) = (/&
&8.4624e-01_jprb,9.3262e-01_jprb,9.6268e-01_jprb,9.5791e-01_jprb,9.2621e-01_jprb,8.6785e-01_jprb,&
&7.8234e-01_jprb,6.5797e-01_jprb,4.3237e-01_jprb/)
kao( :, 1,10, 9) = (/&
&6.5285e-01_jprb,7.0556e-01_jprb,7.0877e-01_jprb,6.8957e-01_jprb,6.5004e-01_jprb,5.9094e-01_jprb,&
&5.1435e-01_jprb,4.1208e-01_jprb,2.3031e-01_jprb/)
kao( :, 2,10, 9) = (/&
&6.7792e-01_jprb,7.3916e-01_jprb,7.4857e-01_jprb,7.3319e-01_jprb,6.9544e-01_jprb,6.3833e-01_jprb,&
&5.6078e-01_jprb,4.5470e-01_jprb,2.6518e-01_jprb/)
kao( :, 3,10, 9) = (/&
&7.0469e-01_jprb,7.7387e-01_jprb,7.8906e-01_jprb,7.7634e-01_jprb,7.4114e-01_jprb,6.8557e-01_jprb,&
&6.0667e-01_jprb,4.9747e-01_jprb,3.0039e-01_jprb/)
kao( :, 4,10, 9) = (/&
&7.3310e-01_jprb,8.1001e-01_jprb,8.3104e-01_jprb,8.2017e-01_jprb,7.8729e-01_jprb,7.3297e-01_jprb,&
&6.5240e-01_jprb,5.3892e-01_jprb,3.3590e-01_jprb/)
kao( :, 5,10, 9) = (/&
&7.6290e-01_jprb,8.4760e-01_jprb,8.7394e-01_jprb,8.6505e-01_jprb,8.3426e-01_jprb,7.8012e-01_jprb,&
&6.9636e-01_jprb,5.7926e-01_jprb,3.7143e-01_jprb/)
kao( :, 1,11, 9) = (/&
&5.9090e-01_jprb,6.4305e-01_jprb,6.4751e-01_jprb,6.3053e-01_jprb,5.9455e-01_jprb,5.4070e-01_jprb,&
&4.6893e-01_jprb,3.7172e-01_jprb,2.1405e-01_jprb/)
kao( :, 2,11, 9) = (/&
&6.1610e-01_jprb,6.7624e-01_jprb,6.8614e-01_jprb,6.7105e-01_jprb,6.3688e-01_jprb,5.8397e-01_jprb,&
&5.1072e-01_jprb,4.1032e-01_jprb,2.4686e-01_jprb/)
kao( :, 3,11, 9) = (/&
&6.4345e-01_jprb,7.1119e-01_jprb,7.2537e-01_jprb,7.1231e-01_jprb,6.7967e-01_jprb,6.2716e-01_jprb,&
&5.5288e-01_jprb,4.4844e-01_jprb,2.7991e-01_jprb/)
kao( :, 4,11, 9) = (/&
&6.7245e-01_jprb,7.4763e-01_jprb,7.6564e-01_jprb,7.5469e-01_jprb,7.2271e-01_jprb,6.7051e-01_jprb,&
&5.9423e-01_jprb,4.8613e-01_jprb,3.1288e-01_jprb/)
kao( :, 5,11, 9) = (/&
&7.0307e-01_jprb,7.8557e-01_jprb,8.0692e-01_jprb,7.9786e-01_jprb,7.6651e-01_jprb,7.1310e-01_jprb,&
&6.3521e-01_jprb,5.2316e-01_jprb,3.4596e-01_jprb/)
kao( :, 1,12, 9) = (/&
&5.3439e-01_jprb,5.8391e-01_jprb,5.8774e-01_jprb,5.7122e-01_jprb,5.3863e-01_jprb,4.9053e-01_jprb,&
&4.2331e-01_jprb,3.3386e-01_jprb,2.0991e-01_jprb/)
kao( :, 2,12, 9) = (/&
&5.5981e-01_jprb,6.1691e-01_jprb,6.2491e-01_jprb,6.0974e-01_jprb,5.7829e-01_jprb,5.2963e-01_jprb,&
&4.6106e-01_jprb,3.6833e-01_jprb,2.4202e-01_jprb/)
kao( :, 3,12, 9) = (/&
&5.8729e-01_jprb,6.5190e-01_jprb,6.6281e-01_jprb,6.4965e-01_jprb,6.1814e-01_jprb,5.6902e-01_jprb,&
&4.9887e-01_jprb,4.0268e-01_jprb,2.7433e-01_jprb/)
kao( :, 4,12, 9) = (/&
&6.1659e-01_jprb,6.8828e-01_jprb,7.0203e-01_jprb,6.9007e-01_jprb,6.5880e-01_jprb,6.0818e-01_jprb,&
&5.3678e-01_jprb,4.3667e-01_jprb,3.0656e-01_jprb/)
kao( :, 5,12, 9) = (/&
&6.4762e-01_jprb,7.2645e-01_jprb,7.4237e-01_jprb,7.3145e-01_jprb,6.9915e-01_jprb,6.4741e-01_jprb,&
&5.7484e-01_jprb,4.6985e-01_jprb,3.3881e-01_jprb/)
kao( :, 1,13, 9) = (/&
&4.8753e-01_jprb,5.3273e-01_jprb,5.3419e-01_jprb,5.1662e-01_jprb,4.8575e-01_jprb,4.4090e-01_jprb,&
&3.7978e-01_jprb,2.9794e-01_jprb,2.0545e-01_jprb/)
kao( :, 2,13, 9) = (/&
&5.1376e-01_jprb,5.6597e-01_jprb,5.6993e-01_jprb,5.5397e-01_jprb,5.2292e-01_jprb,4.7698e-01_jprb,&
&4.1398e-01_jprb,3.2894e-01_jprb,2.3666e-01_jprb/)
kao( :, 3,13, 9) = (/&
&5.4228e-01_jprb,6.0098e-01_jprb,6.0712e-01_jprb,5.9219e-01_jprb,5.6068e-01_jprb,5.1331e-01_jprb,&
&4.4847e-01_jprb,3.5992e-01_jprb,2.6838e-01_jprb/)
kao( :, 4,13, 9) = (/&
&5.7239e-01_jprb,6.3765e-01_jprb,6.4572e-01_jprb,6.3133e-01_jprb,5.9865e-01_jprb,5.5003e-01_jprb,&
&4.8326e-01_jprb,3.9056e-01_jprb,3.0014e-01_jprb/)
kao( :, 5,13, 9) = (/&
&6.0266e-01_jprb,6.7556e-01_jprb,6.8531e-01_jprb,6.7067e-01_jprb,6.3710e-01_jprb,5.8691e-01_jprb,&
&5.1750e-01_jprb,4.2055e-01_jprb,3.3173e-01_jprb/)
kao( :, 1, 1,10) = (/&
&3.6294e+00_jprb,3.2562e+00_jprb,3.2368e+00_jprb,3.0996e+00_jprb,2.9830e+00_jprb,2.8753e+00_jprb,&
&2.7749e+00_jprb,2.5993e+00_jprb,2.8111e+00_jprb/)
kao( :, 2, 1,10) = (/&
&3.7112e+00_jprb,3.3258e+00_jprb,3.3100e+00_jprb,3.2079e+00_jprb,3.1384e+00_jprb,3.0034e+00_jprb,&
&2.8949e+00_jprb,2.7070e+00_jprb,3.0039e+00_jprb/)
kao( :, 3, 1,10) = (/&
&3.7891e+00_jprb,3.3949e+00_jprb,3.3824e+00_jprb,3.3195e+00_jprb,3.2833e+00_jprb,3.1133e+00_jprb,&
&3.0142e+00_jprb,2.8340e+00_jprb,3.1933e+00_jprb/)
kao( :, 4, 1,10) = (/&
&3.8594e+00_jprb,3.4595e+00_jprb,3.4534e+00_jprb,3.4596e+00_jprb,3.3989e+00_jprb,3.2137e+00_jprb,&
&3.1290e+00_jprb,2.9765e+00_jprb,3.3923e+00_jprb/)
kao( :, 5, 1,10) = (/&
&3.9199e+00_jprb,3.5165e+00_jprb,3.5128e+00_jprb,3.5924e+00_jprb,3.4985e+00_jprb,3.3169e+00_jprb,&
&3.2426e+00_jprb,3.1423e+00_jprb,3.5829e+00_jprb/)
kao( :, 1, 2,10) = (/&
&3.6408e+00_jprb,3.2851e+00_jprb,3.3076e+00_jprb,3.2113e+00_jprb,3.1456e+00_jprb,3.0206e+00_jprb,&
&2.7332e+00_jprb,2.5617e+00_jprb,2.6956e+00_jprb/)
kao( :, 2, 2,10) = (/&
&3.7247e+00_jprb,3.3643e+00_jprb,3.3883e+00_jprb,3.3308e+00_jprb,3.3119e+00_jprb,3.1672e+00_jprb,&
&2.8664e+00_jprb,2.6839e+00_jprb,2.9052e+00_jprb/)
kao( :, 3, 2,10) = (/&
&3.8049e+00_jprb,3.4403e+00_jprb,3.4728e+00_jprb,3.4603e+00_jprb,3.4644e+00_jprb,3.2894e+00_jprb,&
&2.9956e+00_jprb,2.7983e+00_jprb,3.1071e+00_jprb/)
kao( :, 4, 2,10) = (/&
&3.8732e+00_jprb,3.5109e+00_jprb,3.5452e+00_jprb,3.6076e+00_jprb,3.5864e+00_jprb,3.4101e+00_jprb,&
&3.1230e+00_jprb,2.9350e+00_jprb,3.3150e+00_jprb/)
kao( :, 5, 2,10) = (/&
&3.9409e+00_jprb,3.5762e+00_jprb,3.6198e+00_jprb,3.7407e+00_jprb,3.6919e+00_jprb,3.5308e+00_jprb,&
&3.2386e+00_jprb,3.0801e+00_jprb,3.5151e+00_jprb/)
kao( :, 1, 3,10) = (/&
&3.5736e+00_jprb,3.2584e+00_jprb,3.3139e+00_jprb,3.2719e+00_jprb,3.2271e+00_jprb,3.0778e+00_jprb,&
&2.7397e+00_jprb,2.4788e+00_jprb,2.5395e+00_jprb/)
kao( :, 2, 3,10) = (/&
&3.6594e+00_jprb,3.3492e+00_jprb,3.4059e+00_jprb,3.4088e+00_jprb,3.3945e+00_jprb,3.2416e+00_jprb,&
&2.8874e+00_jprb,2.6220e+00_jprb,2.7498e+00_jprb/)
kao( :, 3, 3,10) = (/&
&3.7370e+00_jprb,3.4383e+00_jprb,3.4999e+00_jprb,3.5416e+00_jprb,3.5599e+00_jprb,3.3810e+00_jprb,&
&3.0257e+00_jprb,2.7502e+00_jprb,2.9649e+00_jprb/)
kao( :, 4, 3,10) = (/&
&3.8104e+00_jprb,3.5143e+00_jprb,3.5877e+00_jprb,3.6896e+00_jprb,3.6976e+00_jprb,3.5128e+00_jprb,&
&3.1541e+00_jprb,2.8734e+00_jprb,3.1792e+00_jprb/)
kao( :, 5, 3,10) = (/&
&3.8817e+00_jprb,3.5850e+00_jprb,3.6770e+00_jprb,3.8155e+00_jprb,3.8142e+00_jprb,3.6439e+00_jprb,&
&3.2832e+00_jprb,2.9977e+00_jprb,3.3829e+00_jprb/)
kao( :, 1, 4,10) = (/&
&3.4322e+00_jprb,3.2007e+00_jprb,3.2659e+00_jprb,3.2997e+00_jprb,3.2447e+00_jprb,3.0584e+00_jprb,&
&2.7371e+00_jprb,2.3518e+00_jprb,2.3300e+00_jprb/)
kao( :, 2, 4,10) = (/&
&3.5196e+00_jprb,3.3050e+00_jprb,3.3731e+00_jprb,3.4388e+00_jprb,3.4095e+00_jprb,3.2370e+00_jprb,&
&2.9126e+00_jprb,2.5092e+00_jprb,2.5309e+00_jprb/)
kao( :, 3, 4,10) = (/&
&3.5985e+00_jprb,3.3943e+00_jprb,3.4756e+00_jprb,3.5772e+00_jprb,3.5742e+00_jprb,3.4032e+00_jprb,&
&3.0669e+00_jprb,2.6516e+00_jprb,2.7458e+00_jprb/)
kao( :, 4, 4,10) = (/&
&3.6770e+00_jprb,3.4750e+00_jprb,3.5775e+00_jprb,3.7106e+00_jprb,3.7325e+00_jprb,3.5499e+00_jprb,&
&3.2119e+00_jprb,2.7759e+00_jprb,2.9618e+00_jprb/)
kao( :, 5, 4,10) = (/&
&3.7553e+00_jprb,3.5545e+00_jprb,3.6854e+00_jprb,3.8420e+00_jprb,3.8679e+00_jprb,3.6893e+00_jprb,&
&3.3628e+00_jprb,2.8870e+00_jprb,3.1717e+00_jprb/)
kao( :, 1, 5,10) = (/&
&3.2373e+00_jprb,3.1117e+00_jprb,3.1778e+00_jprb,3.2611e+00_jprb,3.1950e+00_jprb,2.9886e+00_jprb,&
&2.6929e+00_jprb,2.2194e+00_jprb,2.0888e+00_jprb/)
kao( :, 2, 5,10) = (/&
&3.3227e+00_jprb,3.2184e+00_jprb,3.2899e+00_jprb,3.4098e+00_jprb,3.3633e+00_jprb,3.1652e+00_jprb,&
&2.8940e+00_jprb,2.3720e+00_jprb,2.2795e+00_jprb/)
kao( :, 3, 5,10) = (/&
&3.4108e+00_jprb,3.3097e+00_jprb,3.4099e+00_jprb,3.5509e+00_jprb,3.5204e+00_jprb,3.3546e+00_jprb,&
&3.0628e+00_jprb,2.5129e+00_jprb,2.4816e+00_jprb/)
kao( :, 4, 5,10) = (/&
&3.5003e+00_jprb,3.3952e+00_jprb,3.5314e+00_jprb,3.6804e+00_jprb,3.6822e+00_jprb,3.5261e+00_jprb,&
&3.2230e+00_jprb,2.6514e+00_jprb,2.6958e+00_jprb/)
kao( :, 5, 5,10) = (/&
&3.5863e+00_jprb,3.4801e+00_jprb,3.6493e+00_jprb,3.8038e+00_jprb,3.8198e+00_jprb,3.6739e+00_jprb,&
&3.3792e+00_jprb,2.7781e+00_jprb,2.9109e+00_jprb/)
kao( :, 1, 6,10) = (/&
&3.0445e+00_jprb,2.9620e+00_jprb,3.0571e+00_jprb,3.1457e+00_jprb,3.0759e+00_jprb,2.8664e+00_jprb,&
&2.5916e+00_jprb,2.1266e+00_jprb,1.8296e+00_jprb/)
kao( :, 2, 6,10) = (/&
&3.1336e+00_jprb,3.0624e+00_jprb,3.1925e+00_jprb,3.2966e+00_jprb,3.2392e+00_jprb,3.0536e+00_jprb,&
&2.7999e+00_jprb,2.2755e+00_jprb,2.0164e+00_jprb/)
kao( :, 3, 6,10) = (/&
&3.2251e+00_jprb,3.1623e+00_jprb,3.3255e+00_jprb,3.4339e+00_jprb,3.3902e+00_jprb,3.2529e+00_jprb,&
&2.9818e+00_jprb,2.4175e+00_jprb,2.2137e+00_jprb/)
kao( :, 4, 6,10) = (/&
&3.3171e+00_jprb,3.2585e+00_jprb,3.4579e+00_jprb,3.5597e+00_jprb,3.5496e+00_jprb,3.4294e+00_jprb,&
&3.1517e+00_jprb,2.5627e+00_jprb,2.4250e+00_jprb/)
kao( :, 5, 6,10) = (/&
&3.4116e+00_jprb,3.3553e+00_jprb,3.5847e+00_jprb,3.6942e+00_jprb,3.6982e+00_jprb,3.5971e+00_jprb,&
&3.3128e+00_jprb,2.7040e+00_jprb,2.6238e+00_jprb/)
kao( :, 1, 7,10) = (/&
&2.9086e+00_jprb,2.8374e+00_jprb,2.9280e+00_jprb,2.9562e+00_jprb,2.8965e+00_jprb,2.7121e+00_jprb,&
&2.4469e+00_jprb,2.0175e+00_jprb,1.5788e+00_jprb/)
kao( :, 2, 7,10) = (/&
&2.9988e+00_jprb,2.9438e+00_jprb,3.0639e+00_jprb,3.1077e+00_jprb,3.0554e+00_jprb,2.9073e+00_jprb,&
&2.6439e+00_jprb,2.1750e+00_jprb,1.7618e+00_jprb/)
kao( :, 3, 7,10) = (/&
&3.0933e+00_jprb,3.0485e+00_jprb,3.1991e+00_jprb,3.2496e+00_jprb,3.2138e+00_jprb,3.1110e+00_jprb,&
&2.8275e+00_jprb,2.3269e+00_jprb,1.9611e+00_jprb/)
kao( :, 4, 7,10) = (/&
&3.1882e+00_jprb,3.1521e+00_jprb,3.3306e+00_jprb,3.3838e+00_jprb,3.3832e+00_jprb,3.2822e+00_jprb,&
&2.9996e+00_jprb,2.4824e+00_jprb,2.1592e+00_jprb/)
kao( :, 5, 7,10) = (/&
&3.2780e+00_jprb,3.2584e+00_jprb,3.4493e+00_jprb,3.5229e+00_jprb,3.5250e+00_jprb,3.4373e+00_jprb,&
&3.1721e+00_jprb,2.6319e+00_jprb,2.3379e+00_jprb/)
kao( :, 1, 8,10) = (/&
&2.8154e+00_jprb,2.7401e+00_jprb,2.8041e+00_jprb,2.7499e+00_jprb,2.6697e+00_jprb,2.5266e+00_jprb,&
&2.2797e+00_jprb,1.8696e+00_jprb,1.3559e+00_jprb/)
kao( :, 2, 8,10) = (/&
&2.8912e+00_jprb,2.8557e+00_jprb,2.9355e+00_jprb,2.8974e+00_jprb,2.8365e+00_jprb,2.7206e+00_jprb,&
&2.4626e+00_jprb,2.0339e+00_jprb,1.5286e+00_jprb/)
kao( :, 3, 8,10) = (/&
&2.9739e+00_jprb,2.9692e+00_jprb,3.0667e+00_jprb,3.0335e+00_jprb,3.0033e+00_jprb,2.9063e+00_jprb,&
&2.6365e+00_jprb,2.1906e+00_jprb,1.7207e+00_jprb/)
kao( :, 4, 8,10) = (/&
&3.0589e+00_jprb,3.0798e+00_jprb,3.1911e+00_jprb,3.1726e+00_jprb,3.1737e+00_jprb,3.0654e+00_jprb,&
&2.8021e+00_jprb,2.3587e+00_jprb,1.9007e+00_jprb/)
kao( :, 5, 8,10) = (/&
&3.1452e+00_jprb,3.1888e+00_jprb,3.3008e+00_jprb,3.3242e+00_jprb,3.3225e+00_jprb,3.2145e+00_jprb,&
&2.9803e+00_jprb,2.5138e+00_jprb,2.0640e+00_jprb/)
kao( :, 1, 9,10) = (/&
&2.7071e+00_jprb,2.6491e+00_jprb,2.6723e+00_jprb,2.5686e+00_jprb,2.4536e+00_jprb,2.3106e+00_jprb,&
&2.0811e+00_jprb,1.6991e+00_jprb,1.1509e+00_jprb/)
kao( :, 2, 9,10) = (/&
&2.7701e+00_jprb,2.7593e+00_jprb,2.7975e+00_jprb,2.7179e+00_jprb,2.6123e+00_jprb,2.4920e+00_jprb,&
&2.2565e+00_jprb,1.8667e+00_jprb,1.3080e+00_jprb/)
kao( :, 3, 9,10) = (/&
&2.8376e+00_jprb,2.8669e+00_jprb,2.9292e+00_jprb,2.8584e+00_jprb,2.7770e+00_jprb,2.6567e+00_jprb,&
&2.4289e+00_jprb,2.0233e+00_jprb,1.4827e+00_jprb/)
kao( :, 4, 9,10) = (/&
&2.9092e+00_jprb,2.9736e+00_jprb,3.0528e+00_jprb,3.0034e+00_jprb,2.9332e+00_jprb,2.8084e+00_jprb,&
&2.5864e+00_jprb,2.1897e+00_jprb,1.6436e+00_jprb/)
kao( :, 5, 9,10) = (/&
&2.9831e+00_jprb,3.0790e+00_jprb,3.1648e+00_jprb,3.1509e+00_jprb,3.0739e+00_jprb,2.9530e+00_jprb,&
&2.7530e+00_jprb,2.3477e+00_jprb,1.7965e+00_jprb/)
kao( :, 1,10,10) = (/&
&2.5846e+00_jprb,2.5566e+00_jprb,2.5335e+00_jprb,2.4083e+00_jprb,2.2712e+00_jprb,2.1147e+00_jprb,&
&1.8770e+00_jprb,1.5356e+00_jprb,9.6607e-01_jprb/)
kao( :, 2,10,10) = (/&
&2.6440e+00_jprb,2.6579e+00_jprb,2.6475e+00_jprb,2.5522e+00_jprb,2.4355e+00_jprb,2.2753e+00_jprb,&
&2.0432e+00_jprb,1.6979e+00_jprb,1.1107e+00_jprb/)
kao( :, 3,10,10) = (/&
&2.7001e+00_jprb,2.7579e+00_jprb,2.7665e+00_jprb,2.7021e+00_jprb,2.5868e+00_jprb,2.4222e+00_jprb,&
&2.2111e+00_jprb,1.8498e+00_jprb,1.2644e+00_jprb/)
kao( :, 4,10,10) = (/&
&2.7579e+00_jprb,2.8520e+00_jprb,2.8806e+00_jprb,2.8506e+00_jprb,2.7323e+00_jprb,2.5633e+00_jprb,&
&2.3644e+00_jprb,2.0104e+00_jprb,1.4137e+00_jprb/)
kao( :, 5,10,10) = (/&
&2.8173e+00_jprb,2.9491e+00_jprb,2.9936e+00_jprb,2.9898e+00_jprb,2.8664e+00_jprb,2.7018e+00_jprb,&
&2.5230e+00_jprb,2.1562e+00_jprb,1.5648e+00_jprb/)
kao( :, 1,11,10) = (/&
&2.4512e+00_jprb,2.4863e+00_jprb,2.4335e+00_jprb,2.3107e+00_jprb,2.1733e+00_jprb,1.9977e+00_jprb,&
&1.7582e+00_jprb,1.4416e+00_jprb,8.5970e-01_jprb/)
kao( :, 2,11,10) = (/&
&2.5092e+00_jprb,2.5823e+00_jprb,2.5374e+00_jprb,2.4481e+00_jprb,2.3213e+00_jprb,2.1404e+00_jprb,&
&1.9153e+00_jprb,1.5898e+00_jprb,9.9211e-01_jprb/)
kao( :, 3,11,10) = (/&
&2.5638e+00_jprb,2.6670e+00_jprb,2.6481e+00_jprb,2.5840e+00_jprb,2.4592e+00_jprb,2.2850e+00_jprb,&
&2.0595e+00_jprb,1.7358e+00_jprb,1.1287e+00_jprb/)
kao( :, 4,11,10) = (/&
&2.6180e+00_jprb,2.7488e+00_jprb,2.7545e+00_jprb,2.7101e+00_jprb,2.5960e+00_jprb,2.4226e+00_jprb,&
&2.2050e+00_jprb,1.8751e+00_jprb,1.2713e+00_jprb/)
kao( :, 5,11,10) = (/&
&2.6708e+00_jprb,2.8308e+00_jprb,2.8655e+00_jprb,2.8311e+00_jprb,2.7233e+00_jprb,2.5640e+00_jprb,&
&2.3410e+00_jprb,2.0028e+00_jprb,1.4162e+00_jprb/)
kao( :, 1,12,10) = (/&
&2.2798e+00_jprb,2.3643e+00_jprb,2.3131e+00_jprb,2.2090e+00_jprb,2.0595e+00_jprb,1.8678e+00_jprb,&
&1.6491e+00_jprb,1.3284e+00_jprb,7.5824e-01_jprb/)
kao( :, 2,12,10) = (/&
&2.3366e+00_jprb,2.4475e+00_jprb,2.4167e+00_jprb,2.3329e+00_jprb,2.1840e+00_jprb,2.0081e+00_jprb,&
&1.7907e+00_jprb,1.4613e+00_jprb,8.7475e-01_jprb/)
kao( :, 3,12,10) = (/&
&2.3890e+00_jprb,2.5244e+00_jprb,2.5206e+00_jprb,2.4421e+00_jprb,2.3136e+00_jprb,2.1465e+00_jprb,&
&1.9227e+00_jprb,1.5932e+00_jprb,9.9953e-01_jprb/)
kao( :, 4,12,10) = (/&
&2.4374e+00_jprb,2.6016e+00_jprb,2.6217e+00_jprb,2.5543e+00_jprb,2.4367e+00_jprb,2.2813e+00_jprb,&
&2.0490e+00_jprb,1.7139e+00_jprb,1.1310e+00_jprb/)
kao( :, 5,12,10) = (/&
&2.4838e+00_jprb,2.6702e+00_jprb,2.7195e+00_jprb,2.6584e+00_jprb,2.5615e+00_jprb,2.4117e+00_jprb,&
&2.1613e+00_jprb,1.8334e+00_jprb,1.2595e+00_jprb/)
kao( :, 1,13,10) = (/&
&2.0791e+00_jprb,2.1960e+00_jprb,2.1642e+00_jprb,2.0798e+00_jprb,1.9340e+00_jprb,1.7492e+00_jprb,&
&1.5316e+00_jprb,1.2117e+00_jprb,6.7239e-01_jprb/)
kao( :, 2,13,10) = (/&
&2.1335e+00_jprb,2.2729e+00_jprb,2.2653e+00_jprb,2.1865e+00_jprb,2.0515e+00_jprb,1.8780e+00_jprb,&
&1.6557e+00_jprb,1.3290e+00_jprb,7.8385e-01_jprb/)
kao( :, 3,13,10) = (/&
&2.1832e+00_jprb,2.3472e+00_jprb,2.3626e+00_jprb,2.2909e+00_jprb,2.1703e+00_jprb,1.9998e+00_jprb,&
&1.7751e+00_jprb,1.4395e+00_jprb,8.9988e-01_jprb/)
kao( :, 4,13,10) = (/&
&2.2317e+00_jprb,2.4190e+00_jprb,2.4536e+00_jprb,2.3945e+00_jprb,2.2843e+00_jprb,2.1191e+00_jprb,&
&1.8849e+00_jprb,1.5486e+00_jprb,1.0181e+00_jprb/)
kao( :, 5,13,10) = (/&
&2.2928e+00_jprb,2.4912e+00_jprb,2.5411e+00_jprb,2.4970e+00_jprb,2.3950e+00_jprb,2.2262e+00_jprb,&
&1.9945e+00_jprb,1.6570e+00_jprb,1.1340e+00_jprb/)
kao( :, 1, 1,11) = (/&
&5.1188e+00_jprb,4.4962e+00_jprb,4.1898e+00_jprb,4.1232e+00_jprb,3.8282e+00_jprb,3.7520e+00_jprb,&
&3.8632e+00_jprb,3.7314e+00_jprb,4.2299e+00_jprb/)
kao( :, 2, 1,11) = (/&
&5.2357e+00_jprb,4.6021e+00_jprb,4.3195e+00_jprb,4.2578e+00_jprb,3.9916e+00_jprb,3.9872e+00_jprb,&
&4.0538e+00_jprb,3.9583e+00_jprb,4.4896e+00_jprb/)
kao( :, 3, 1,11) = (/&
&5.3431e+00_jprb,4.6995e+00_jprb,4.4290e+00_jprb,4.3921e+00_jprb,4.1757e+00_jprb,4.2052e+00_jprb,&
&4.1799e+00_jprb,4.1518e+00_jprb,4.7182e+00_jprb/)
kao( :, 4, 1,11) = (/&
&5.4410e+00_jprb,4.7855e+00_jprb,4.5302e+00_jprb,4.5043e+00_jprb,4.3792e+00_jprb,4.3589e+00_jprb,&
&4.2659e+00_jprb,4.3498e+00_jprb,4.9265e+00_jprb/)
kao( :, 5, 1,11) = (/&
&5.5309e+00_jprb,4.8636e+00_jprb,4.6308e+00_jprb,4.6226e+00_jprb,4.5553e+00_jprb,4.4731e+00_jprb,&
&4.3313e+00_jprb,4.5563e+00_jprb,5.1476e+00_jprb/)
kao( :, 1, 2,11) = (/&
&5.3830e+00_jprb,4.7598e+00_jprb,4.5038e+00_jprb,4.4124e+00_jprb,4.1256e+00_jprb,3.9352e+00_jprb,&
&3.9288e+00_jprb,3.6529e+00_jprb,4.1533e+00_jprb/)
kao( :, 2, 2,11) = (/&
&5.5093e+00_jprb,4.8746e+00_jprb,4.6320e+00_jprb,4.5446e+00_jprb,4.3075e+00_jprb,4.1643e+00_jprb,&
&4.1158e+00_jprb,3.8793e+00_jprb,4.4270e+00_jprb/)
kao( :, 3, 2,11) = (/&
&5.6175e+00_jprb,4.9740e+00_jprb,4.7438e+00_jprb,4.6765e+00_jprb,4.5041e+00_jprb,4.3624e+00_jprb,&
&4.2461e+00_jprb,4.1118e+00_jprb,4.6851e+00_jprb/)
kao( :, 4, 2,11) = (/&
&5.7157e+00_jprb,5.0593e+00_jprb,4.8530e+00_jprb,4.7924e+00_jprb,4.7291e+00_jprb,4.5102e+00_jprb,&
&4.3461e+00_jprb,4.3454e+00_jprb,4.9401e+00_jprb/)
kao( :, 5, 2,11) = (/&
&5.8004e+00_jprb,5.1349e+00_jprb,4.9550e+00_jprb,4.9255e+00_jprb,4.9201e+00_jprb,4.6238e+00_jprb,&
&4.4516e+00_jprb,4.5890e+00_jprb,5.2057e+00_jprb/)
kao( :, 1, 3,11) = (/&
&5.5164e+00_jprb,4.9212e+00_jprb,4.7297e+00_jprb,4.6037e+00_jprb,4.3740e+00_jprb,4.1348e+00_jprb,&
&3.8407e+00_jprb,3.5074e+00_jprb,3.9068e+00_jprb/)
kao( :, 2, 3,11) = (/&
&5.6457e+00_jprb,5.0403e+00_jprb,4.8708e+00_jprb,4.7481e+00_jprb,4.5713e+00_jprb,4.3408e+00_jprb,&
&4.0590e+00_jprb,3.7279e+00_jprb,4.2270e+00_jprb/)
kao( :, 3, 3,11) = (/&
&5.7648e+00_jprb,5.1472e+00_jprb,4.9917e+00_jprb,4.8917e+00_jprb,4.7668e+00_jprb,4.5432e+00_jprb,&
&4.2248e+00_jprb,3.9671e+00_jprb,4.5272e+00_jprb/)
kao( :, 4, 3,11) = (/&
&5.8726e+00_jprb,5.2450e+00_jprb,5.1073e+00_jprb,5.0262e+00_jprb,4.9765e+00_jprb,4.7078e+00_jprb,&
&4.3673e+00_jprb,4.2265e+00_jprb,4.8206e+00_jprb/)
kao( :, 5, 3,11) = (/&
&5.9741e+00_jprb,5.3354e+00_jprb,5.2185e+00_jprb,5.1809e+00_jprb,5.1510e+00_jprb,4.8375e+00_jprb,&
&4.4951e+00_jprb,4.4978e+00_jprb,5.1274e+00_jprb/)
kao( :, 1, 4,11) = (/&
&5.5586e+00_jprb,4.9938e+00_jprb,4.8775e+00_jprb,4.7228e+00_jprb,4.5678e+00_jprb,4.2888e+00_jprb,&
&3.7572e+00_jprb,3.3686e+00_jprb,3.6371e+00_jprb/)
kao( :, 2, 4,11) = (/&
&5.7048e+00_jprb,5.1254e+00_jprb,5.0246e+00_jprb,4.8865e+00_jprb,4.7638e+00_jprb,4.4945e+00_jprb,&
&3.9733e+00_jprb,3.5886e+00_jprb,3.9962e+00_jprb/)
kao( :, 3, 4,11) = (/&
&5.8381e+00_jprb,5.2468e+00_jprb,5.1587e+00_jprb,5.0517e+00_jprb,4.9564e+00_jprb,4.6974e+00_jprb,&
&4.1859e+00_jprb,3.8140e+00_jprb,4.3209e+00_jprb/)
kao( :, 4, 4,11) = (/&
&5.9605e+00_jprb,5.3609e+00_jprb,5.2847e+00_jprb,5.2114e+00_jprb,5.1284e+00_jprb,4.8993e+00_jprb,&
&4.3580e+00_jprb,4.0704e+00_jprb,4.6439e+00_jprb/)
kao( :, 5, 4,11) = (/&
&6.0637e+00_jprb,5.4599e+00_jprb,5.4065e+00_jprb,5.3711e+00_jprb,5.2958e+00_jprb,5.0595e+00_jprb,&
&4.5112e+00_jprb,4.3517e+00_jprb,4.9660e+00_jprb/)
kao( :, 1, 5,11) = (/&
&5.5140e+00_jprb,4.9813e+00_jprb,4.9335e+00_jprb,4.7913e+00_jprb,4.6774e+00_jprb,4.3710e+00_jprb,&
&3.7530e+00_jprb,3.2477e+00_jprb,3.3634e+00_jprb/)
kao( :, 2, 5,11) = (/&
&5.6664e+00_jprb,5.1255e+00_jprb,5.1035e+00_jprb,4.9717e+00_jprb,4.8774e+00_jprb,4.5859e+00_jprb,&
&3.9668e+00_jprb,3.4677e+00_jprb,3.7405e+00_jprb/)
kao( :, 3, 5,11) = (/&
&5.8011e+00_jprb,5.2612e+00_jprb,5.2545e+00_jprb,5.1514e+00_jprb,5.0632e+00_jprb,4.7735e+00_jprb,&
&4.2022e+00_jprb,3.6795e+00_jprb,4.0879e+00_jprb/)
kao( :, 4, 5,11) = (/&
&5.9195e+00_jprb,5.3879e+00_jprb,5.3990e+00_jprb,5.3253e+00_jprb,5.2340e+00_jprb,4.9702e+00_jprb,&
&4.4129e+00_jprb,3.9016e+00_jprb,4.4176e+00_jprb/)
kao( :, 5, 5,11) = (/&
&6.0324e+00_jprb,5.5030e+00_jprb,5.5351e+00_jprb,5.4951e+00_jprb,5.4012e+00_jprb,5.1456e+00_jprb,&
&4.5860e+00_jprb,4.1610e+00_jprb,4.7497e+00_jprb/)
kao( :, 1, 6,11) = (/&
&5.3460e+00_jprb,4.8907e+00_jprb,4.9037e+00_jprb,4.7959e+00_jprb,4.6720e+00_jprb,4.3428e+00_jprb,&
&3.7532e+00_jprb,3.0728e+00_jprb,3.0483e+00_jprb/)
kao( :, 2, 6,11) = (/&
&5.5016e+00_jprb,5.0576e+00_jprb,5.0845e+00_jprb,4.9968e+00_jprb,4.8768e+00_jprb,4.5629e+00_jprb,&
&3.9805e+00_jprb,3.3257e+00_jprb,3.4138e+00_jprb/)
kao( :, 3, 6,11) = (/&
&5.6458e+00_jprb,5.2128e+00_jprb,5.2471e+00_jprb,5.1892e+00_jprb,5.0839e+00_jprb,4.7513e+00_jprb,&
&4.2341e+00_jprb,3.5158e+00_jprb,3.7567e+00_jprb/)
kao( :, 4, 6,11) = (/&
&5.7776e+00_jprb,5.3547e+00_jprb,5.4002e+00_jprb,5.3806e+00_jprb,5.2566e+00_jprb,4.9480e+00_jprb,&
&4.4656e+00_jprb,3.7111e+00_jprb,4.0913e+00_jprb/)
kao( :, 5, 6,11) = (/&
&5.8886e+00_jprb,5.4776e+00_jprb,5.5415e+00_jprb,5.5583e+00_jprb,5.4285e+00_jprb,5.1330e+00_jprb,&
&4.6590e+00_jprb,3.9360e+00_jprb,4.4349e+00_jprb/)
kao( :, 1, 7,11) = (/&
&5.0900e+00_jprb,4.7460e+00_jprb,4.7704e+00_jprb,4.7424e+00_jprb,4.5661e+00_jprb,4.2208e+00_jprb,&
&3.7025e+00_jprb,2.9233e+00_jprb,2.7128e+00_jprb/)
kao( :, 2, 7,11) = (/&
&5.2495e+00_jprb,4.9306e+00_jprb,4.9678e+00_jprb,4.9514e+00_jprb,4.7835e+00_jprb,4.4516e+00_jprb,&
&3.9503e+00_jprb,3.1699e+00_jprb,3.0368e+00_jprb/)
kao( :, 3, 7,11) = (/&
&5.3908e+00_jprb,5.0938e+00_jprb,5.1429e+00_jprb,5.1559e+00_jprb,4.9966e+00_jprb,4.6413e+00_jprb,&
&4.2020e+00_jprb,3.3718e+00_jprb,3.3561e+00_jprb/)
kao( :, 4, 7,11) = (/&
&5.5155e+00_jprb,5.2363e+00_jprb,5.3032e+00_jprb,5.3596e+00_jprb,5.1777e+00_jprb,4.8555e+00_jprb,&
&4.4333e+00_jprb,3.5353e+00_jprb,3.6838e+00_jprb/)
kao( :, 5, 7,11) = (/&
&5.6325e+00_jprb,5.3617e+00_jprb,5.4630e+00_jprb,5.5298e+00_jprb,5.3705e+00_jprb,5.0766e+00_jprb,&
&4.6290e+00_jprb,3.7252e+00_jprb,4.0295e+00_jprb/)
kao( :, 1, 8,11) = (/&
&4.7924e+00_jprb,4.5440e+00_jprb,4.5871e+00_jprb,4.5972e+00_jprb,4.3821e+00_jprb,4.0282e+00_jprb,&
&3.5782e+00_jprb,2.8267e+00_jprb,2.3643e+00_jprb/)
kao( :, 2, 8,11) = (/&
&4.9458e+00_jprb,4.7238e+00_jprb,4.7983e+00_jprb,4.8145e+00_jprb,4.6002e+00_jprb,4.2694e+00_jprb,&
&3.8266e+00_jprb,3.0607e+00_jprb,2.6625e+00_jprb/)
kao( :, 3, 8,11) = (/&
&5.0872e+00_jprb,4.8848e+00_jprb,4.9881e+00_jprb,5.0206e+00_jprb,4.8258e+00_jprb,4.4891e+00_jprb,&
&4.0830e+00_jprb,3.2647e+00_jprb,2.9566e+00_jprb/)
kao( :, 4, 8,11) = (/&
&5.2177e+00_jprb,5.0262e+00_jprb,5.1648e+00_jprb,5.2193e+00_jprb,5.0190e+00_jprb,4.7309e+00_jprb,&
&4.3124e+00_jprb,3.4443e+00_jprb,3.2673e+00_jprb/)
kao( :, 5, 8,11) = (/&
&5.3303e+00_jprb,5.1466e+00_jprb,5.3381e+00_jprb,5.3870e+00_jprb,5.2200e+00_jprb,4.9620e+00_jprb,&
&4.5031e+00_jprb,3.6204e+00_jprb,3.6052e+00_jprb/)
kao( :, 1, 9,11) = (/&
&4.5347e+00_jprb,4.3328e+00_jprb,4.3689e+00_jprb,4.3513e+00_jprb,4.1174e+00_jprb,3.7868e+00_jprb,&
&3.3737e+00_jprb,2.7015e+00_jprb,2.0218e+00_jprb/)
kao( :, 2, 9,11) = (/&
&4.6866e+00_jprb,4.5049e+00_jprb,4.5898e+00_jprb,4.5628e+00_jprb,4.3507e+00_jprb,4.0425e+00_jprb,&
&3.6252e+00_jprb,2.9347e+00_jprb,2.3048e+00_jprb/)
kao( :, 3, 9,11) = (/&
&4.8251e+00_jprb,4.6663e+00_jprb,4.7848e+00_jprb,4.7704e+00_jprb,4.5826e+00_jprb,4.2849e+00_jprb,&
&3.8759e+00_jprb,3.1451e+00_jprb,2.5879e+00_jprb/)
kao( :, 4, 9,11) = (/&
&4.9503e+00_jprb,4.8087e+00_jprb,4.9642e+00_jprb,4.9727e+00_jprb,4.7915e+00_jprb,4.5387e+00_jprb,&
&4.1015e+00_jprb,3.3321e+00_jprb,2.8859e+00_jprb/)
kao( :, 5, 9,11) = (/&
&5.0642e+00_jprb,4.9400e+00_jprb,5.1410e+00_jprb,5.1452e+00_jprb,5.0116e+00_jprb,4.7755e+00_jprb,&
&4.3020e+00_jprb,3.5123e+00_jprb,3.1955e+00_jprb/)
kao( :, 1,10,11) = (/&
&4.3141e+00_jprb,4.1481e+00_jprb,4.1872e+00_jprb,4.0732e+00_jprb,3.8258e+00_jprb,3.5260e+00_jprb,&
&3.1443e+00_jprb,2.5485e+00_jprb,1.7391e+00_jprb/)
kao( :, 2,10,11) = (/&
&4.4657e+00_jprb,4.3291e+00_jprb,4.4068e+00_jprb,4.2778e+00_jprb,4.0645e+00_jprb,3.7865e+00_jprb,&
&3.3989e+00_jprb,2.7666e+00_jprb,2.0042e+00_jprb/)
kao( :, 3,10,11) = (/&
&4.6073e+00_jprb,4.4901e+00_jprb,4.5937e+00_jprb,4.4815e+00_jprb,4.3022e+00_jprb,4.0396e+00_jprb,&
&3.6341e+00_jprb,2.9783e+00_jprb,2.2696e+00_jprb/)
kao( :, 4,10,11) = (/&
&4.7332e+00_jprb,4.6441e+00_jprb,4.7670e+00_jprb,4.6811e+00_jprb,4.5263e+00_jprb,4.2880e+00_jprb,&
&3.8564e+00_jprb,3.1687e+00_jprb,2.5448e+00_jprb/)
kao( :, 5,10,11) = (/&
&4.8482e+00_jprb,4.7816e+00_jprb,4.9366e+00_jprb,4.8606e+00_jprb,4.7563e+00_jprb,4.5121e+00_jprb,&
&4.0582e+00_jprb,3.3600e+00_jprb,2.8205e+00_jprb/)
kao( :, 1,11,11) = (/&
&4.1814e+00_jprb,4.0541e+00_jprb,4.0844e+00_jprb,3.9070e+00_jprb,3.6510e+00_jprb,3.3593e+00_jprb,&
&3.0020e+00_jprb,2.4435e+00_jprb,1.5974e+00_jprb/)
kao( :, 2,11,11) = (/&
&4.3118e+00_jprb,4.2274e+00_jprb,4.2869e+00_jprb,4.1141e+00_jprb,3.8852e+00_jprb,3.6134e+00_jprb,&
&3.2400e+00_jprb,2.6533e+00_jprb,1.8419e+00_jprb/)
kao( :, 3,11,11) = (/&
&4.4319e+00_jprb,4.3935e+00_jprb,4.4651e+00_jprb,4.3182e+00_jprb,4.1137e+00_jprb,3.8517e+00_jprb,&
&3.4603e+00_jprb,2.8608e+00_jprb,2.0902e+00_jprb/)
kao( :, 4,11,11) = (/&
&4.5390e+00_jprb,4.5400e+00_jprb,4.6448e+00_jprb,4.5087e+00_jprb,4.3372e+00_jprb,4.0750e+00_jprb,&
&3.6707e+00_jprb,3.0507e+00_jprb,2.3393e+00_jprb/)
kao( :, 5,11,11) = (/&
&4.6299e+00_jprb,4.6729e+00_jprb,4.7998e+00_jprb,4.6995e+00_jprb,4.5508e+00_jprb,4.2784e+00_jprb,&
&3.8764e+00_jprb,3.2454e+00_jprb,2.5677e+00_jprb/)
kao( :, 1,12,11) = (/&
&4.0099e+00_jprb,3.9422e+00_jprb,3.9403e+00_jprb,3.7407e+00_jprb,3.4918e+00_jprb,3.1976e+00_jprb,&
&2.8203e+00_jprb,2.3020e+00_jprb,1.4455e+00_jprb/)
kao( :, 2,12,11) = (/&
&4.1176e+00_jprb,4.1055e+00_jprb,4.1224e+00_jprb,3.9486e+00_jprb,3.7245e+00_jprb,3.4270e+00_jprb,&
&3.0337e+00_jprb,2.5124e+00_jprb,1.6679e+00_jprb/)
kao( :, 3,12,11) = (/&
&4.2129e+00_jprb,4.2545e+00_jprb,4.2966e+00_jprb,4.1603e+00_jprb,3.9419e+00_jprb,3.6332e+00_jprb,&
&3.2538e+00_jprb,2.7031e+00_jprb,1.8904e+00_jprb/)
kao( :, 4,12,11) = (/&
&4.2979e+00_jprb,4.3881e+00_jprb,4.4616e+00_jprb,4.3568e+00_jprb,4.1443e+00_jprb,3.8364e+00_jprb,&
&3.4615e+00_jprb,2.8971e+00_jprb,2.1003e+00_jprb/)
kao( :, 5,12,11) = (/&
&4.3757e+00_jprb,4.5140e+00_jprb,4.6083e+00_jprb,4.5481e+00_jprb,4.3321e+00_jprb,4.0278e+00_jprb,&
&3.6672e+00_jprb,3.0746e+00_jprb,2.3111e+00_jprb/)
kao( :, 1,13,11) = (/&
&3.8115e+00_jprb,3.8123e+00_jprb,3.7564e+00_jprb,3.5672e+00_jprb,3.3321e+00_jprb,3.0260e+00_jprb,&
&2.6276e+00_jprb,2.1465e+00_jprb,1.2822e+00_jprb/)
kao( :, 2,13,11) = (/&
&3.9006e+00_jprb,3.9563e+00_jprb,3.9216e+00_jprb,3.7726e+00_jprb,3.5504e+00_jprb,3.2297e+00_jprb,&
&2.8365e+00_jprb,2.3385e+00_jprb,1.4776e+00_jprb/)
kao( :, 3,13,11) = (/&
&3.9788e+00_jprb,4.0838e+00_jprb,4.0868e+00_jprb,3.9664e+00_jprb,3.7467e+00_jprb,3.4326e+00_jprb,&
&3.0397e+00_jprb,2.5221e+00_jprb,1.6670e+00_jprb/)
kao( :, 4,13,11) = (/&
&4.0518e+00_jprb,4.2003e+00_jprb,4.2397e+00_jprb,4.1476e+00_jprb,3.9371e+00_jprb,3.6284e+00_jprb,&
&3.2340e+00_jprb,2.6989e+00_jprb,1.8578e+00_jprb/)
kao( :, 5,13,11) = (/&
&4.1173e+00_jprb,4.3105e+00_jprb,4.3846e+00_jprb,4.3176e+00_jprb,4.1129e+00_jprb,3.8156e+00_jprb,&
&3.4246e+00_jprb,2.8636e+00_jprb,2.0525e+00_jprb/)
kao( :, 1, 1,12) = (/&
&7.0750e+00_jprb,6.1912e+00_jprb,5.5399e+00_jprb,5.3350e+00_jprb,5.4706e+00_jprb,5.3762e+00_jprb,&
&5.1145e+00_jprb,5.3782e+00_jprb,6.0148e+00_jprb/)
kao( :, 2, 1,12) = (/&
&7.2687e+00_jprb,6.3607e+00_jprb,5.6891e+00_jprb,5.4701e+00_jprb,5.6126e+00_jprb,5.5473e+00_jprb,&
&5.2734e+00_jprb,5.8115e+00_jprb,6.4886e+00_jprb/)
kao( :, 3, 1,12) = (/&
&7.4429e+00_jprb,6.5131e+00_jprb,5.8367e+00_jprb,5.5928e+00_jprb,5.7515e+00_jprb,5.7097e+00_jprb,&
&5.5260e+00_jprb,6.2806e+00_jprb,6.9951e+00_jprb/)
kao( :, 4, 1,12) = (/&
&7.6028e+00_jprb,6.6530e+00_jprb,5.9756e+00_jprb,5.7243e+00_jprb,5.8730e+00_jprb,5.9264e+00_jprb,&
&5.8242e+00_jprb,6.7348e+00_jprb,7.5240e+00_jprb/)
kao( :, 5, 1,12) = (/&
&7.7448e+00_jprb,6.7771e+00_jprb,6.1045e+00_jprb,5.8318e+00_jprb,6.0223e+00_jprb,6.1431e+00_jprb,&
&6.1145e+00_jprb,7.1272e+00_jprb,7.9899e+00_jprb/)
kao( :, 1, 2,12) = (/&
&7.7545e+00_jprb,6.7857e+00_jprb,6.1014e+00_jprb,5.8641e+00_jprb,5.6627e+00_jprb,5.4924e+00_jprb,&
&5.3064e+00_jprb,5.5478e+00_jprb,6.2448e+00_jprb/)
kao( :, 2, 2,12) = (/&
&7.9626e+00_jprb,6.9679e+00_jprb,6.2884e+00_jprb,6.0331e+00_jprb,5.8184e+00_jprb,5.6805e+00_jprb,&
&5.5037e+00_jprb,5.9946e+00_jprb,6.7468e+00_jprb/)
kao( :, 3, 2,12) = (/&
&8.1571e+00_jprb,7.1382e+00_jprb,6.4613e+00_jprb,6.1841e+00_jprb,5.9708e+00_jprb,5.8941e+00_jprb,&
&5.7532e+00_jprb,6.4635e+00_jprb,7.2816e+00_jprb/)
kao( :, 4, 2,12) = (/&
&8.3326e+00_jprb,7.2918e+00_jprb,6.6225e+00_jprb,6.3365e+00_jprb,6.0835e+00_jprb,6.1383e+00_jprb,&
&6.0067e+00_jprb,6.8804e+00_jprb,7.7820e+00_jprb/)
kao( :, 5, 2,12) = (/&
&8.4888e+00_jprb,7.4285e+00_jprb,6.7684e+00_jprb,6.4625e+00_jprb,6.2260e+00_jprb,6.3461e+00_jprb,&
&6.2452e+00_jprb,7.2451e+00_jprb,8.2111e+00_jprb/)
kao( :, 1, 3,12) = (/&
&8.3602e+00_jprb,7.3163e+00_jprb,6.6388e+00_jprb,6.3825e+00_jprb,5.9192e+00_jprb,5.5791e+00_jprb,&
&5.5047e+00_jprb,5.5786e+00_jprb,6.3479e+00_jprb/)
kao( :, 2, 3,12) = (/&
&8.5890e+00_jprb,7.5183e+00_jprb,6.8453e+00_jprb,6.5628e+00_jprb,6.0922e+00_jprb,5.8078e+00_jprb,&
&5.7041e+00_jprb,6.0248e+00_jprb,6.8536e+00_jprb/)
kao( :, 3, 3,12) = (/&
&8.7942e+00_jprb,7.6989e+00_jprb,7.0385e+00_jprb,6.7230e+00_jprb,6.2576e+00_jprb,6.0242e+00_jprb,&
&5.9018e+00_jprb,6.4818e+00_jprb,7.3747e+00_jprb/)
kao( :, 4, 3,12) = (/&
&8.9740e+00_jprb,7.8579e+00_jprb,7.2067e+00_jprb,6.8812e+00_jprb,6.4038e+00_jprb,6.2630e+00_jprb,&
&6.1272e+00_jprb,6.9158e+00_jprb,7.8669e+00_jprb/)
kao( :, 5, 3,12) = (/&
&9.1236e+00_jprb,7.9895e+00_jprb,7.3566e+00_jprb,7.0154e+00_jprb,6.5927e+00_jprb,6.4547e+00_jprb,&
&6.3294e+00_jprb,7.2767e+00_jprb,8.2820e+00_jprb/)
kao( :, 1, 4,12) = (/&
&8.8847e+00_jprb,7.7960e+00_jprb,7.1075e+00_jprb,6.8009e+00_jprb,6.2444e+00_jprb,5.7477e+00_jprb,&
&5.6301e+00_jprb,5.4141e+00_jprb,6.1834e+00_jprb/)
kao( :, 2, 4,12) = (/&
&9.1116e+00_jprb,7.9999e+00_jprb,7.3356e+00_jprb,7.0007e+00_jprb,6.4482e+00_jprb,5.9737e+00_jprb,&
&5.8408e+00_jprb,5.8678e+00_jprb,6.6961e+00_jprb/)
kao( :, 3, 4,12) = (/&
&9.3094e+00_jprb,8.1759e+00_jprb,7.5373e+00_jprb,7.1726e+00_jprb,6.6509e+00_jprb,6.2012e+00_jprb,&
&5.9911e+00_jprb,6.3277e+00_jprb,7.2196e+00_jprb/)
kao( :, 4, 4,12) = (/&
&9.4683e+00_jprb,8.3188e+00_jprb,7.7174e+00_jprb,7.3409e+00_jprb,6.8481e+00_jprb,6.3961e+00_jprb,&
&6.1664e+00_jprb,6.7597e+00_jprb,7.7146e+00_jprb/)
kao( :, 5, 4,12) = (/&
&9.6042e+00_jprb,8.4435e+00_jprb,7.8581e+00_jprb,7.4916e+00_jprb,7.0560e+00_jprb,6.5810e+00_jprb,&
&6.3225e+00_jprb,7.1406e+00_jprb,8.1513e+00_jprb/)
kao( :, 1, 5,12) = (/&
&9.2292e+00_jprb,8.1377e+00_jprb,7.4945e+00_jprb,7.1495e+00_jprb,6.5484e+00_jprb,5.9913e+00_jprb,&
&5.6165e+00_jprb,5.1149e+00_jprb,5.8309e+00_jprb/)
kao( :, 2, 5,12) = (/&
&9.4577e+00_jprb,8.3475e+00_jprb,7.7472e+00_jprb,7.3686e+00_jprb,6.7878e+00_jprb,6.2469e+00_jprb,&
&5.8285e+00_jprb,5.5605e+00_jprb,6.3475e+00_jprb/)
kao( :, 3, 5,12) = (/&
&9.6601e+00_jprb,8.5348e+00_jprb,7.9661e+00_jprb,7.5611e+00_jprb,7.0335e+00_jprb,6.4923e+00_jprb,&
&5.9827e+00_jprb,5.9978e+00_jprb,6.8470e+00_jprb/)
kao( :, 4, 5,12) = (/&
&9.8370e+00_jprb,8.6956e+00_jprb,8.1396e+00_jprb,7.7502e+00_jprb,7.2566e+00_jprb,6.6903e+00_jprb,&
&6.1155e+00_jprb,6.4492e+00_jprb,7.3614e+00_jprb/)
kao( :, 5, 5,12) = (/&
&9.9720e+00_jprb,8.8165e+00_jprb,8.2799e+00_jprb,7.9327e+00_jprb,7.4895e+00_jprb,6.8872e+00_jprb,&
&6.2655e+00_jprb,6.8604e+00_jprb,7.8326e+00_jprb/)
kao( :, 1, 6,12) = (/&
&9.4228e+00_jprb,8.3583e+00_jprb,7.7791e+00_jprb,7.3895e+00_jprb,6.8260e+00_jprb,6.2621e+00_jprb,&
&5.5219e+00_jprb,4.8043e+00_jprb,5.3717e+00_jprb/)
kao( :, 2, 6,12) = (/&
&9.6680e+00_jprb,8.5862e+00_jprb,8.0441e+00_jprb,7.6459e+00_jprb,7.1022e+00_jprb,6.5301e+00_jprb,&
&5.7540e+00_jprb,5.1597e+00_jprb,5.8750e+00_jprb/)
kao( :, 3, 6,12) = (/&
&9.8647e+00_jprb,8.7696e+00_jprb,8.2709e+00_jprb,7.8751e+00_jprb,7.3582e+00_jprb,6.7963e+00_jprb,&
&5.9278e+00_jprb,5.6000e+00_jprb,6.3870e+00_jprb/)
kao( :, 4, 6,12) = (/&
&1.0026e+01_jprb,8.9182e+00_jprb,8.4588e+00_jprb,8.0791e+00_jprb,7.6205e+00_jprb,7.0216e+00_jprb,&
&6.0965e+00_jprb,6.0596e+00_jprb,6.9174e+00_jprb/)
kao( :, 5, 6,12) = (/&
&1.0167e+01_jprb,9.0497e+00_jprb,8.6148e+00_jprb,8.2660e+00_jprb,7.8544e+00_jprb,7.2260e+00_jprb,&
&6.2428e+00_jprb,6.4815e+00_jprb,7.4016e+00_jprb/)
kao( :, 1, 7,12) = (/&
&9.4277e+00_jprb,8.4150e+00_jprb,7.9357e+00_jprb,7.5305e+00_jprb,7.0405e+00_jprb,6.4321e+00_jprb,&
&5.4684e+00_jprb,4.5169e+00_jprb,4.8723e+00_jprb/)
kao( :, 2, 7,12) = (/&
&9.6610e+00_jprb,8.6378e+00_jprb,8.2182e+00_jprb,7.8169e+00_jprb,7.3595e+00_jprb,6.7122e+00_jprb,&
&5.7318e+00_jprb,4.8302e+00_jprb,5.4033e+00_jprb/)
kao( :, 3, 7,12) = (/&
&9.8776e+00_jprb,8.8386e+00_jprb,8.4643e+00_jprb,8.0697e+00_jprb,7.6404e+00_jprb,7.0024e+00_jprb,&
&5.9545e+00_jprb,5.2084e+00_jprb,5.9332e+00_jprb/)
kao( :, 4, 7,12) = (/&
&1.0065e+01_jprb,9.0111e+00_jprb,8.6669e+00_jprb,8.2878e+00_jprb,7.9176e+00_jprb,7.2460e+00_jprb,&
&6.1780e+00_jprb,5.6640e+00_jprb,6.4647e+00_jprb/)
kao( :, 5, 7,12) = (/&
&1.0201e+01_jprb,9.1389e+00_jprb,8.8345e+00_jprb,8.5103e+00_jprb,8.1626e+00_jprb,7.4581e+00_jprb,&
&6.4020e+00_jprb,6.0910e+00_jprb,6.9537e+00_jprb/)
kao( :, 1, 8,12) = (/&
&9.2811e+00_jprb,8.3345e+00_jprb,7.9563e+00_jprb,7.5592e+00_jprb,7.1819e+00_jprb,6.4953e+00_jprb,&
&5.4582e+00_jprb,4.2950e+00_jprb,4.3920e+00_jprb/)
kao( :, 2, 8,12) = (/&
&9.5392e+00_jprb,8.5773e+00_jprb,8.2536e+00_jprb,7.8937e+00_jprb,7.5195e+00_jprb,6.7954e+00_jprb,&
&5.7637e+00_jprb,4.5610e+00_jprb,4.9202e+00_jprb/)
kao( :, 3, 8,12) = (/&
&9.7485e+00_jprb,8.7863e+00_jprb,8.5113e+00_jprb,8.1791e+00_jprb,7.8003e+00_jprb,7.1017e+00_jprb,&
&6.0337e+00_jprb,4.8844e+00_jprb,5.4469e+00_jprb/)
kao( :, 4, 8,12) = (/&
&9.9204e+00_jprb,8.9649e+00_jprb,8.7333e+00_jprb,8.4326e+00_jprb,8.0879e+00_jprb,7.3644e+00_jprb,&
&6.2970e+00_jprb,5.2617e+00_jprb,5.9740e+00_jprb/)
kao( :, 5, 8,12) = (/&
&1.0071e+01_jprb,9.1243e+00_jprb,8.9157e+00_jprb,8.6785e+00_jprb,8.3414e+00_jprb,7.5947e+00_jprb,&
&6.5710e+00_jprb,5.6445e+00_jprb,6.4414e+00_jprb/)
kao( :, 1, 9,12) = (/&
&8.9609e+00_jprb,8.1123e+00_jprb,7.8302e+00_jprb,7.5091e+00_jprb,7.1654e+00_jprb,6.4417e+00_jprb,&
&5.3958e+00_jprb,4.1476e+00_jprb,3.9139e+00_jprb/)
kao( :, 2, 9,12) = (/&
&9.2116e+00_jprb,8.3782e+00_jprb,8.1493e+00_jprb,7.8784e+00_jprb,7.5112e+00_jprb,6.7501e+00_jprb,&
&5.7326e+00_jprb,4.3938e+00_jprb,4.4110e+00_jprb/)
kao( :, 3, 9,12) = (/&
&9.4264e+00_jprb,8.6064e+00_jprb,8.4239e+00_jprb,8.1936e+00_jprb,7.8020e+00_jprb,7.0726e+00_jprb,&
&6.0450e+00_jprb,4.6670e+00_jprb,4.9111e+00_jprb/)
kao( :, 4, 9,12) = (/&
&9.6121e+00_jprb,8.8121e+00_jprb,8.6565e+00_jprb,8.4692e+00_jprb,8.1000e+00_jprb,7.3553e+00_jprb,&
&6.3481e+00_jprb,4.9681e+00_jprb,5.3926e+00_jprb/)
kao( :, 5, 9,12) = (/&
&9.7546e+00_jprb,8.9755e+00_jprb,8.8628e+00_jprb,8.7297e+00_jprb,8.3623e+00_jprb,7.6149e+00_jprb,&
&6.6558e+00_jprb,5.2826e+00_jprb,5.8453e+00_jprb/)
kao( :, 1,10,12) = (/&
&8.5361e+00_jprb,7.8147e+00_jprb,7.5979e+00_jprb,7.3794e+00_jprb,7.0310e+00_jprb,6.2793e+00_jprb,&
&5.2791e+00_jprb,4.0318e+00_jprb,3.4661e+00_jprb/)
kao( :, 2,10,12) = (/&
&8.7722e+00_jprb,8.0890e+00_jprb,7.9244e+00_jprb,7.7654e+00_jprb,7.3651e+00_jprb,6.6087e+00_jprb,&
&5.6393e+00_jprb,4.3325e+00_jprb,3.9297e+00_jprb/)
kao( :, 3,10,12) = (/&
&8.9854e+00_jprb,8.3416e+00_jprb,8.2149e+00_jprb,8.1092e+00_jprb,7.6681e+00_jprb,6.9412e+00_jprb,&
&5.9891e+00_jprb,4.5941e+00_jprb,4.3794e+00_jprb/)
kao( :, 4,10,12) = (/&
&9.1549e+00_jprb,8.5424e+00_jprb,8.4801e+00_jprb,8.3931e+00_jprb,7.9670e+00_jprb,7.2576e+00_jprb,&
&6.3219e+00_jprb,4.8394e+00_jprb,4.8247e+00_jprb/)
kao( :, 5,10,12) = (/&
&9.2930e+00_jprb,8.7150e+00_jprb,8.6983e+00_jprb,8.6747e+00_jprb,8.2356e+00_jprb,7.5515e+00_jprb,&
&6.6530e+00_jprb,5.0978e+00_jprb,5.2580e+00_jprb/)
kao( :, 1,11,12) = (/&
&8.1665e+00_jprb,7.5900e+00_jprb,7.4402e+00_jprb,7.3130e+00_jprb,6.8936e+00_jprb,6.1750e+00_jprb,&
&5.2487e+00_jprb,4.0527e+00_jprb,3.2183e+00_jprb/)
kao( :, 2,11,12) = (/&
&8.3894e+00_jprb,7.8591e+00_jprb,7.7685e+00_jprb,7.6781e+00_jprb,7.2197e+00_jprb,6.5157e+00_jprb,&
&5.6333e+00_jprb,4.3626e+00_jprb,3.6379e+00_jprb/)
kao( :, 3,11,12) = (/&
&8.5776e+00_jprb,8.0897e+00_jprb,8.0638e+00_jprb,7.9845e+00_jprb,7.5334e+00_jprb,6.8745e+00_jprb,&
&5.9959e+00_jprb,4.6206e+00_jprb,4.0541e+00_jprb/)
kao( :, 4,11,12) = (/&
&8.7343e+00_jprb,8.2889e+00_jprb,8.3048e+00_jprb,8.2761e+00_jprb,7.8416e+00_jprb,7.2002e+00_jprb,&
&6.3426e+00_jprb,4.8817e+00_jprb,4.4717e+00_jprb/)
kao( :, 5,11,12) = (/&
&8.8713e+00_jprb,8.4483e+00_jprb,8.5341e+00_jprb,8.5312e+00_jprb,8.1167e+00_jprb,7.5296e+00_jprb,&
&6.6477e+00_jprb,5.1325e+00_jprb,4.9081e+00_jprb/)
kao( :, 1,12,12) = (/&
&7.8094e+00_jprb,7.3653e+00_jprb,7.2542e+00_jprb,7.0902e+00_jprb,6.6433e+00_jprb,5.9686e+00_jprb,&
&5.1635e+00_jprb,4.0194e+00_jprb,2.9475e+00_jprb/)
kao( :, 2,12,12) = (/&
&8.0117e+00_jprb,7.6155e+00_jprb,7.5651e+00_jprb,7.4151e+00_jprb,6.9696e+00_jprb,6.3450e+00_jprb,&
&5.5476e+00_jprb,4.3129e+00_jprb,3.3366e+00_jprb/)
kao( :, 3,12,12) = (/&
&8.1910e+00_jprb,7.8328e+00_jprb,7.8418e+00_jprb,7.7049e+00_jprb,7.2969e+00_jprb,6.7155e+00_jprb,&
&5.8961e+00_jprb,4.5906e+00_jprb,3.7405e+00_jprb/)
kao( :, 4,12,12) = (/&
&8.3426e+00_jprb,8.0165e+00_jprb,8.0839e+00_jprb,7.9767e+00_jprb,7.6138e+00_jprb,7.0590e+00_jprb,&
&6.2190e+00_jprb,4.8660e+00_jprb,4.1525e+00_jprb/)
kao( :, 5,12,12) = (/&
&8.4617e+00_jprb,8.1705e+00_jprb,8.3144e+00_jprb,8.2344e+00_jprb,7.9033e+00_jprb,7.3931e+00_jprb,&
&6.5112e+00_jprb,5.1463e+00_jprb,4.5704e+00_jprb/)
kao( :, 1,13,12) = (/&
&7.4570e+00_jprb,7.1219e+00_jprb,7.0631e+00_jprb,6.7931e+00_jprb,6.3176e+00_jprb,5.7305e+00_jprb,&
&4.9924e+00_jprb,3.9078e+00_jprb,2.6864e+00_jprb/)
kao( :, 2,13,12) = (/&
&7.6593e+00_jprb,7.3680e+00_jprb,7.3595e+00_jprb,7.0913e+00_jprb,6.6544e+00_jprb,6.1127e+00_jprb,&
&5.3577e+00_jprb,4.1969e+00_jprb,3.0587e+00_jprb/)
kao( :, 3,13,12) = (/&
&7.8270e+00_jprb,7.5824e+00_jprb,7.6095e+00_jprb,7.3732e+00_jprb,7.0009e+00_jprb,6.4671e+00_jprb,&
&5.6889e+00_jprb,4.4965e+00_jprb,3.4369e+00_jprb/)
kao( :, 4,13,12) = (/&
&7.9650e+00_jprb,7.7709e+00_jprb,7.8397e+00_jprb,7.6582e+00_jprb,7.3100e+00_jprb,6.7945e+00_jprb,&
&6.0051e+00_jprb,4.7890e+00_jprb,3.8174e+00_jprb/)
kao( :, 5,13,12) = (/&
&8.0792e+00_jprb,7.9275e+00_jprb,8.0591e+00_jprb,7.9074e+00_jprb,7.6140e+00_jprb,7.1099e+00_jprb,&
&6.2973e+00_jprb,5.0841e+00_jprb,4.2048e+00_jprb/)
kao( :, 1, 1,13) = (/&
&1.0577e+01_jprb,9.2549e+00_jprb,8.1600e+00_jprb,7.7278e+00_jprb,7.7653e+00_jprb,7.7716e+00_jprb,&
&7.5669e+00_jprb,8.8236e+00_jprb,9.8756e+00_jprb/)
kao( :, 2, 1,13) = (/&
&1.0671e+01_jprb,9.3375e+00_jprb,8.2378e+00_jprb,7.8122e+00_jprb,7.8593e+00_jprb,7.7059e+00_jprb,&
&7.9393e+00_jprb,9.2604e+00_jprb,1.0358e+01_jprb/)
kao( :, 3, 1,13) = (/&
&1.0744e+01_jprb,9.4010e+00_jprb,8.2968e+00_jprb,7.8823e+00_jprb,7.9000e+00_jprb,7.7087e+00_jprb,&
&8.3139e+00_jprb,9.6974e+00_jprb,1.0851e+01_jprb/)
kao( :, 4, 1,13) = (/&
&1.0801e+01_jprb,9.4514e+00_jprb,8.3377e+00_jprb,7.9397e+00_jprb,7.9429e+00_jprb,7.7123e+00_jprb,&
&8.6663e+00_jprb,1.0108e+01_jprb,1.1303e+01_jprb/)
kao( :, 5, 1,13) = (/&
&1.0828e+01_jprb,9.4745e+00_jprb,8.3567e+00_jprb,8.0119e+00_jprb,7.9284e+00_jprb,7.7671e+00_jprb,&
&9.0671e+00_jprb,1.0577e+01_jprb,1.1784e+01_jprb/)
kao( :, 1, 2,13) = (/&
&1.1163e+01_jprb,9.7674e+00_jprb,8.6478e+00_jprb,8.0225e+00_jprb,8.2244e+00_jprb,8.0837e+00_jprb,&
&7.7758e+00_jprb,9.0278e+00_jprb,1.0229e+01_jprb/)
kao( :, 2, 2,13) = (/&
&1.1323e+01_jprb,9.9081e+00_jprb,8.7792e+00_jprb,8.1586e+00_jprb,8.2869e+00_jprb,8.0551e+00_jprb,&
&8.1451e+00_jprb,9.5005e+00_jprb,1.0748e+01_jprb/)
kao( :, 3, 2,13) = (/&
&1.1461e+01_jprb,1.0028e+01_jprb,8.8854e+00_jprb,8.2743e+00_jprb,8.3048e+00_jprb,8.0402e+00_jprb,&
&8.5556e+00_jprb,9.9796e+00_jprb,1.1282e+01_jprb/)
kao( :, 4, 2,13) = (/&
&1.1566e+01_jprb,1.0120e+01_jprb,8.9543e+00_jprb,8.3710e+00_jprb,8.3468e+00_jprb,8.0313e+00_jprb,&
&8.9856e+00_jprb,1.0481e+01_jprb,1.1824e+01_jprb/)
kao( :, 5, 2,13) = (/&
&1.1629e+01_jprb,1.0176e+01_jprb,8.9870e+00_jprb,8.4547e+00_jprb,8.3497e+00_jprb,8.1172e+00_jprb,&
&9.4516e+00_jprb,1.1026e+01_jprb,1.2419e+01_jprb/)
kao( :, 1, 3,13) = (/&
&1.1962e+01_jprb,1.0467e+01_jprb,9.2709e+00_jprb,8.4291e+00_jprb,8.5436e+00_jprb,8.3200e+00_jprb,&
&7.8658e+00_jprb,9.0562e+00_jprb,1.0308e+01_jprb/)
kao( :, 2, 3,13) = (/&
&1.2205e+01_jprb,1.0680e+01_jprb,9.4411e+00_jprb,8.6517e+00_jprb,8.6197e+00_jprb,8.3368e+00_jprb,&
&8.2049e+00_jprb,9.5685e+00_jprb,1.0891e+01_jprb/)
kao( :, 3, 3,13) = (/&
&1.2410e+01_jprb,1.0859e+01_jprb,9.5853e+00_jprb,8.8479e+00_jprb,8.6747e+00_jprb,8.3471e+00_jprb,&
&8.6431e+00_jprb,1.0082e+01_jprb,1.1474e+01_jprb/)
kao( :, 4, 3,13) = (/&
&1.2574e+01_jprb,1.1002e+01_jprb,9.6989e+00_jprb,8.9698e+00_jprb,8.7471e+00_jprb,8.3398e+00_jprb,&
&9.0831e+00_jprb,1.0595e+01_jprb,1.2056e+01_jprb/)
kao( :, 5, 3,13) = (/&
&1.2712e+01_jprb,1.1123e+01_jprb,9.7902e+00_jprb,9.0790e+00_jprb,8.7667e+00_jprb,8.4500e+00_jprb,&
&9.6002e+00_jprb,1.1199e+01_jprb,1.2724e+01_jprb/)
kao( :, 1, 4,13) = (/&
&1.2978e+01_jprb,1.1356e+01_jprb,1.0016e+01_jprb,9.0951e+00_jprb,8.8183e+00_jprb,8.5105e+00_jprb,&
&7.9105e+00_jprb,9.0384e+00_jprb,1.0315e+01_jprb/)
kao( :, 2, 4,13) = (/&
&1.3298e+01_jprb,1.1636e+01_jprb,1.0263e+01_jprb,9.3919e+00_jprb,8.9613e+00_jprb,8.5969e+00_jprb,&
&8.2211e+00_jprb,9.5613e+00_jprb,1.0907e+01_jprb/)
kao( :, 3, 4,13) = (/&
&1.3575e+01_jprb,1.1878e+01_jprb,1.0487e+01_jprb,9.6114e+00_jprb,9.0632e+00_jprb,8.6395e+00_jprb,&
&8.6771e+00_jprb,1.0122e+01_jprb,1.1544e+01_jprb/)
kao( :, 4, 4,13) = (/&
&1.3811e+01_jprb,1.2085e+01_jprb,1.0662e+01_jprb,9.7774e+00_jprb,9.1650e+00_jprb,8.6661e+00_jprb,&
&9.1672e+00_jprb,1.0693e+01_jprb,1.2193e+01_jprb/)
kao( :, 5, 4,13) = (/&
&1.3981e+01_jprb,1.2233e+01_jprb,1.0802e+01_jprb,9.9141e+00_jprb,9.2432e+00_jprb,8.7675e+00_jprb,&
&9.7195e+00_jprb,1.1338e+01_jprb,1.2921e+01_jprb/)
kao( :, 1, 5,13) = (/&
&1.4114e+01_jprb,1.2350e+01_jprb,1.0930e+01_jprb,9.8909e+00_jprb,9.2442e+00_jprb,8.6849e+00_jprb,&
&8.0205e+00_jprb,9.0018e+00_jprb,1.0281e+01_jprb/)
kao( :, 2, 5,13) = (/&
&1.4481e+01_jprb,1.2671e+01_jprb,1.1207e+01_jprb,1.0236e+01_jprb,9.4445e+00_jprb,8.8064e+00_jprb,&
&8.3341e+00_jprb,9.5712e+00_jprb,1.0927e+01_jprb/)
kao( :, 3, 5,13) = (/&
&1.4780e+01_jprb,1.2933e+01_jprb,1.1441e+01_jprb,1.0504e+01_jprb,9.5949e+00_jprb,8.9267e+00_jprb,&
&8.7559e+00_jprb,1.0193e+01_jprb,1.1635e+01_jprb/)
kao( :, 4, 5,13) = (/&
&1.5014e+01_jprb,1.3137e+01_jprb,1.1651e+01_jprb,1.0704e+01_jprb,9.7669e+00_jprb,9.0159e+00_jprb,&
&9.2560e+00_jprb,1.0797e+01_jprb,1.2325e+01_jprb/)
kao( :, 5, 5,13) = (/&
&1.5187e+01_jprb,1.3289e+01_jprb,1.1815e+01_jprb,1.0866e+01_jprb,9.8919e+00_jprb,9.1157e+00_jprb,&
&9.8156e+00_jprb,1.1450e+01_jprb,1.3070e+01_jprb/)
kao( :, 1, 6,13) = (/&
&1.5160e+01_jprb,1.3265e+01_jprb,1.1763e+01_jprb,1.0744e+01_jprb,9.7606e+00_jprb,8.8908e+00_jprb,&
&8.2258e+00_jprb,8.8849e+00_jprb,1.0152e+01_jprb/)
kao( :, 2, 6,13) = (/&
&1.5549e+01_jprb,1.3605e+01_jprb,1.2084e+01_jprb,1.1112e+01_jprb,1.0034e+01_jprb,9.1009e+00_jprb,&
&8.4931e+00_jprb,9.5055e+00_jprb,1.0858e+01_jprb/)
kao( :, 3, 6,13) = (/&
&1.5873e+01_jprb,1.3889e+01_jprb,1.2356e+01_jprb,1.1403e+01_jprb,1.0281e+01_jprb,9.2837e+00_jprb,&
&8.8721e+00_jprb,1.0170e+01_jprb,1.1619e+01_jprb/)
kao( :, 4, 6,13) = (/&
&1.6112e+01_jprb,1.4098e+01_jprb,1.2586e+01_jprb,1.1634e+01_jprb,1.0494e+01_jprb,9.4499e+00_jprb,&
&9.3030e+00_jprb,1.0807e+01_jprb,1.2339e+01_jprb/)
kao( :, 5, 6,13) = (/&
&1.6286e+01_jprb,1.4252e+01_jprb,1.2775e+01_jprb,1.1818e+01_jprb,1.0693e+01_jprb,9.5647e+00_jprb,&
&9.8402e+00_jprb,1.1469e+01_jprb,1.3094e+01_jprb/)
kao( :, 1, 7,13) = (/&
&1.6122e+01_jprb,1.4109e+01_jprb,1.2562e+01_jprb,1.1505e+01_jprb,1.0368e+01_jprb,9.2585e+00_jprb,&
&8.3696e+00_jprb,8.5768e+00_jprb,9.8029e+00_jprb/)
kao( :, 2, 7,13) = (/&
&1.6526e+01_jprb,1.4471e+01_jprb,1.2919e+01_jprb,1.1924e+01_jprb,1.0722e+01_jprb,9.5715e+00_jprb,&
&8.6023e+00_jprb,9.2393e+00_jprb,1.0560e+01_jprb/)
kao( :, 3, 7,13) = (/&
&1.6858e+01_jprb,1.4770e+01_jprb,1.3234e+01_jprb,1.2238e+01_jprb,1.1035e+01_jprb,9.8187e+00_jprb,&
&8.9328e+00_jprb,9.9387e+00_jprb,1.1350e+01_jprb/)
kao( :, 4, 7,13) = (/&
&1.7093e+01_jprb,1.4987e+01_jprb,1.3501e+01_jprb,1.2504e+01_jprb,1.1279e+01_jprb,1.0055e+01_jprb,&
&9.3088e+00_jprb,1.0608e+01_jprb,1.2111e+01_jprb/)
kao( :, 5, 7,13) = (/&
&1.7259e+01_jprb,1.5142e+01_jprb,1.3707e+01_jprb,1.2711e+01_jprb,1.1518e+01_jprb,1.0206e+01_jprb,&
&9.7355e+00_jprb,1.1291e+01_jprb,1.2889e+01_jprb/)
kao( :, 1, 8,13) = (/&
&1.6916e+01_jprb,1.4832e+01_jprb,1.3277e+01_jprb,1.2204e+01_jprb,1.0940e+01_jprb,9.7472e+00_jprb,&
&8.4449e+00_jprb,8.0133e+00_jprb,9.1571e+00_jprb/)
kao( :, 2, 8,13) = (/&
&1.7329e+01_jprb,1.5217e+01_jprb,1.3686e+01_jprb,1.2639e+01_jprb,1.1376e+01_jprb,1.0148e+01_jprb,&
&8.6472e+00_jprb,8.7212e+00_jprb,9.9586e+00_jprb/)
kao( :, 3, 8,13) = (/&
&1.7658e+01_jprb,1.5525e+01_jprb,1.4035e+01_jprb,1.3005e+01_jprb,1.1745e+01_jprb,1.0456e+01_jprb,&
&8.9277e+00_jprb,9.4462e+00_jprb,1.0783e+01_jprb/)
kao( :, 4, 8,13) = (/&
&1.7910e+01_jprb,1.5764e+01_jprb,1.4326e+01_jprb,1.3292e+01_jprb,1.2039e+01_jprb,1.0730e+01_jprb,&
&9.2875e+00_jprb,1.0174e+01_jprb,1.1613e+01_jprb/)
kao( :, 5, 8,13) = (/&
&1.8061e+01_jprb,1.5911e+01_jprb,1.4552e+01_jprb,1.3522e+01_jprb,1.2313e+01_jprb,1.0922e+01_jprb,&
&9.6669e+00_jprb,1.0913e+01_jprb,1.2458e+01_jprb/)
kao( :, 1, 9,13) = (/&
&1.7489e+01_jprb,1.5390e+01_jprb,1.3855e+01_jprb,1.2753e+01_jprb,1.1443e+01_jprb,1.0269e+01_jprb,&
&8.6020e+00_jprb,7.3519e+00_jprb,8.3472e+00_jprb/)
kao( :, 2, 9,13) = (/&
&1.7914e+01_jprb,1.5791e+01_jprb,1.4307e+01_jprb,1.3235e+01_jprb,1.1959e+01_jprb,1.0725e+01_jprb,&
&8.8103e+00_jprb,8.0533e+00_jprb,9.1895e+00_jprb/)
kao( :, 3, 9,13) = (/&
&1.8257e+01_jprb,1.6119e+01_jprb,1.4693e+01_jprb,1.3625e+01_jprb,1.2389e+01_jprb,1.1058e+01_jprb,&
&9.0504e+00_jprb,8.8002e+00_jprb,1.0042e+01_jprb/)
kao( :, 4, 9,13) = (/&
&1.8479e+01_jprb,1.6338e+01_jprb,1.5015e+01_jprb,1.3939e+01_jprb,1.2757e+01_jprb,1.1337e+01_jprb,&
&9.3866e+00_jprb,9.5953e+00_jprb,1.0949e+01_jprb/)
kao( :, 5, 9,13) = (/&
&1.8635e+01_jprb,1.6495e+01_jprb,1.5249e+01_jprb,1.4201e+01_jprb,1.3054e+01_jprb,1.1574e+01_jprb,&
&9.7301e+00_jprb,1.0376e+01_jprb,1.1842e+01_jprb/)
kao( :, 1,10,13) = (/&
&1.7834e+01_jprb,1.5755e+01_jprb,1.4296e+01_jprb,1.3173e+01_jprb,1.1876e+01_jprb,1.0672e+01_jprb,&
&8.8079e+00_jprb,6.8283e+00_jprb,7.5346e+00_jprb/)
kao( :, 2,10,13) = (/&
&1.8252e+01_jprb,1.6162e+01_jprb,1.4783e+01_jprb,1.3694e+01_jprb,1.2464e+01_jprb,1.1197e+01_jprb,&
&9.0829e+00_jprb,7.4323e+00_jprb,8.3917e+00_jprb/)
kao( :, 3,10,13) = (/&
&1.8558e+01_jprb,1.6468e+01_jprb,1.5228e+01_jprb,1.4086e+01_jprb,1.2957e+01_jprb,1.1559e+01_jprb,&
&9.3588e+00_jprb,8.1767e+00_jprb,9.3163e+00_jprb/)
kao( :, 4,10,13) = (/&
&1.8778e+01_jprb,1.6694e+01_jprb,1.5535e+01_jprb,1.4435e+01_jprb,1.3366e+01_jprb,1.1847e+01_jprb,&
&9.6760e+00_jprb,9.0005e+00_jprb,1.0268e+01_jprb/)
kao( :, 5,10,13) = (/&
&1.8909e+01_jprb,1.6834e+01_jprb,1.5762e+01_jprb,1.4717e+01_jprb,1.3710e+01_jprb,1.2145e+01_jprb,&
&1.0011e+01_jprb,9.8258e+00_jprb,1.1210e+01_jprb/)
kao( :, 1,11,13) = (/&
&1.8087e+01_jprb,1.6075e+01_jprb,1.4790e+01_jprb,1.3655e+01_jprb,1.2497e+01_jprb,1.1191e+01_jprb,&
&9.1399e+00_jprb,6.6933e+00_jprb,7.1162e+00_jprb/)
kao( :, 2,11,13) = (/&
&1.8432e+01_jprb,1.6428e+01_jprb,1.5277e+01_jprb,1.4152e+01_jprb,1.3089e+01_jprb,1.1695e+01_jprb,&
&9.4501e+00_jprb,7.3057e+00_jprb,8.0369e+00_jprb/)
kao( :, 3,11,13) = (/&
&1.8659e+01_jprb,1.6669e+01_jprb,1.5627e+01_jprb,1.4589e+01_jprb,1.3582e+01_jprb,1.2037e+01_jprb,&
&9.8265e+00_jprb,8.0558e+00_jprb,9.0157e+00_jprb/)
kao( :, 4,11,13) = (/&
&1.8822e+01_jprb,1.6850e+01_jprb,1.5905e+01_jprb,1.4936e+01_jprb,1.3964e+01_jprb,1.2377e+01_jprb,&
&1.0203e+01_jprb,8.8302e+00_jprb,9.9768e+00_jprb/)
kao( :, 5,11,13) = (/&
&1.8912e+01_jprb,1.6973e+01_jprb,1.6104e+01_jprb,1.5218e+01_jprb,1.4312e+01_jprb,1.2701e+01_jprb,&
&1.0619e+01_jprb,9.6452e+00_jprb,1.0951e+01_jprb/)
kao( :, 1,12,13) = (/&
&1.7920e+01_jprb,1.6053e+01_jprb,1.5019e+01_jprb,1.3982e+01_jprb,1.2926e+01_jprb,1.1508e+01_jprb,&
&9.3716e+00_jprb,6.7503e+00_jprb,6.7740e+00_jprb/)
kao( :, 2,12,13) = (/&
&1.8186e+01_jprb,1.6353e+01_jprb,1.5440e+01_jprb,1.4490e+01_jprb,1.3495e+01_jprb,1.1962e+01_jprb,&
&9.7745e+00_jprb,7.3828e+00_jprb,7.7336e+00_jprb/)
kao( :, 3,12,13) = (/&
&1.8384e+01_jprb,1.6588e+01_jprb,1.5763e+01_jprb,1.4906e+01_jprb,1.3939e+01_jprb,1.2345e+01_jprb,&
&1.0238e+01_jprb,8.0656e+00_jprb,8.6667e+00_jprb/)
kao( :, 4,12,13) = (/&
&1.8509e+01_jprb,1.6759e+01_jprb,1.6033e+01_jprb,1.5245e+01_jprb,1.4313e+01_jprb,1.2752e+01_jprb,&
&1.0707e+01_jprb,8.7818e+00_jprb,9.6176e+00_jprb/)
kao( :, 5,12,13) = (/&
&1.8577e+01_jprb,1.6881e+01_jprb,1.6239e+01_jprb,1.5529e+01_jprb,1.4670e+01_jprb,1.3127e+01_jprb,&
&1.1210e+01_jprb,9.5549e+00_jprb,1.0594e+01_jprb/)
kao( :, 1,13,13) = (/&
&1.7404e+01_jprb,1.5741e+01_jprb,1.4917e+01_jprb,1.4087e+01_jprb,1.3107e+01_jprb,1.1569e+01_jprb,&
&9.5101e+00_jprb,6.9448e+00_jprb,6.4373e+00_jprb/)
kao( :, 2,13,13) = (/&
&1.7616e+01_jprb,1.6021e+01_jprb,1.5315e+01_jprb,1.4593e+01_jprb,1.3608e+01_jprb,1.2031e+01_jprb,&
&1.0008e+01_jprb,7.5382e+00_jprb,7.3336e+00_jprb/)
kao( :, 3,13,13) = (/&
&1.7758e+01_jprb,1.6239e+01_jprb,1.5665e+01_jprb,1.5009e+01_jprb,1.4000e+01_jprb,1.2479e+01_jprb,&
&1.0559e+01_jprb,8.1609e+00_jprb,8.2503e+00_jprb/)
kao( :, 4,13,13) = (/&
&1.7857e+01_jprb,1.6408e+01_jprb,1.5937e+01_jprb,1.5347e+01_jprb,1.4396e+01_jprb,1.2961e+01_jprb,&
&1.1094e+01_jprb,8.8199e+00_jprb,9.1733e+00_jprb/)
kao( :, 5,13,13) = (/&
&1.7901e+01_jprb,1.6530e+01_jprb,1.6155e+01_jprb,1.5663e+01_jprb,1.4778e+01_jprb,1.3417e+01_jprb,&
&1.1660e+01_jprb,9.5134e+00_jprb,1.0096e+01_jprb/)
kao( :, 1, 1,14) = (/&
&1.8068e+01_jprb,1.5810e+01_jprb,1.3551e+01_jprb,1.1831e+01_jprb,1.0304e+01_jprb,9.7990e+00_jprb,&
&1.1739e+01_jprb,1.3692e+01_jprb,1.5004e+01_jprb/)
kao( :, 2, 1,14) = (/&
&1.7600e+01_jprb,1.5400e+01_jprb,1.3200e+01_jprb,1.1647e+01_jprb,1.0167e+01_jprb,1.0174e+01_jprb,&
&1.2204e+01_jprb,1.4235e+01_jprb,1.5608e+01_jprb/)
kao( :, 3, 1,14) = (/&
&1.7123e+01_jprb,1.4983e+01_jprb,1.2843e+01_jprb,1.1396e+01_jprb,1.0063e+01_jprb,1.0510e+01_jprb,&
&1.2607e+01_jprb,1.4704e+01_jprb,1.6115e+01_jprb/)
kao( :, 4, 1,14) = (/&
&1.6641e+01_jprb,1.4561e+01_jprb,1.2481e+01_jprb,1.1106e+01_jprb,9.9075e+00_jprb,1.0883e+01_jprb,&
&1.3055e+01_jprb,1.5227e+01_jprb,1.6651e+01_jprb/)
kao( :, 5, 1,14) = (/&
&1.6173e+01_jprb,1.4152e+01_jprb,1.2130e+01_jprb,1.0803e+01_jprb,9.8573e+00_jprb,1.1271e+01_jprb,&
&1.3520e+01_jprb,1.5769e+01_jprb,1.7251e+01_jprb/)
kao( :, 1, 2,14) = (/&
&1.8801e+01_jprb,1.6451e+01_jprb,1.4101e+01_jprb,1.2604e+01_jprb,1.1011e+01_jprb,1.0737e+01_jprb,&
&1.2792e+01_jprb,1.4921e+01_jprb,1.6625e+01_jprb/)
kao( :, 2, 2,14) = (/&
&1.8304e+01_jprb,1.6016e+01_jprb,1.3728e+01_jprb,1.2330e+01_jprb,1.0982e+01_jprb,1.1096e+01_jprb,&
&1.3301e+01_jprb,1.5514e+01_jprb,1.7306e+01_jprb/)
kao( :, 3, 2,14) = (/&
&1.7801e+01_jprb,1.5576e+01_jprb,1.3356e+01_jprb,1.2016e+01_jprb,1.0871e+01_jprb,1.1458e+01_jprb,&
&1.3745e+01_jprb,1.6031e+01_jprb,1.7874e+01_jprb/)
kao( :, 4, 2,14) = (/&
&1.7309e+01_jprb,1.5145e+01_jprb,1.3007e+01_jprb,1.1693e+01_jprb,1.0730e+01_jprb,1.1860e+01_jprb,&
&1.4227e+01_jprb,1.6594e+01_jprb,1.8476e+01_jprb/)
kao( :, 5, 2,14) = (/&
&1.6850e+01_jprb,1.4744e+01_jprb,1.2687e+01_jprb,1.1410e+01_jprb,1.0694e+01_jprb,1.2279e+01_jprb,&
&1.4731e+01_jprb,1.7182e+01_jprb,1.9118e+01_jprb/)
kao( :, 1, 3,14) = (/&
&1.9584e+01_jprb,1.7136e+01_jprb,1.4732e+01_jprb,1.3313e+01_jprb,1.1884e+01_jprb,1.1593e+01_jprb,&
&1.3636e+01_jprb,1.5905e+01_jprb,1.7983e+01_jprb/)
kao( :, 2, 3,14) = (/&
&1.9076e+01_jprb,1.6691e+01_jprb,1.4400e+01_jprb,1.2989e+01_jprb,1.1901e+01_jprb,1.1927e+01_jprb,&
&1.4231e+01_jprb,1.6600e+01_jprb,1.8761e+01_jprb/)
kao( :, 3, 3,14) = (/&
&1.8574e+01_jprb,1.6253e+01_jprb,1.4065e+01_jprb,1.2664e+01_jprb,1.1748e+01_jprb,1.2312e+01_jprb,&
&1.4771e+01_jprb,1.7229e+01_jprb,1.9465e+01_jprb/)
kao( :, 4, 3,14) = (/&
&1.8102e+01_jprb,1.5839e+01_jprb,1.3744e+01_jprb,1.2408e+01_jprb,1.1592e+01_jprb,1.2780e+01_jprb,&
&1.5332e+01_jprb,1.7885e+01_jprb,2.0196e+01_jprb/)
kao( :, 5, 3,14) = (/&
&1.7642e+01_jprb,1.5437e+01_jprb,1.3436e+01_jprb,1.2180e+01_jprb,1.1540e+01_jprb,1.3243e+01_jprb,&
&1.5887e+01_jprb,1.8532e+01_jprb,2.0924e+01_jprb/)
kao( :, 1, 4,14) = (/&
&2.0389e+01_jprb,1.7840e+01_jprb,1.5486e+01_jprb,1.3966e+01_jprb,1.2815e+01_jprb,1.2346e+01_jprb,&
&1.4297e+01_jprb,1.6677e+01_jprb,1.8970e+01_jprb/)
kao( :, 2, 4,14) = (/&
&1.9917e+01_jprb,1.7427e+01_jprb,1.5179e+01_jprb,1.3667e+01_jprb,1.2793e+01_jprb,1.2684e+01_jprb,&
&1.5037e+01_jprb,1.7540e+01_jprb,1.9955e+01_jprb/)
kao( :, 3, 4,14) = (/&
&1.9473e+01_jprb,1.7039e+01_jprb,1.4867e+01_jprb,1.3426e+01_jprb,1.2614e+01_jprb,1.3089e+01_jprb,&
&1.5675e+01_jprb,1.8284e+01_jprb,2.0800e+01_jprb/)
kao( :, 4, 4,14) = (/&
&1.9059e+01_jprb,1.6676e+01_jprb,1.4584e+01_jprb,1.3222e+01_jprb,1.2465e+01_jprb,1.3596e+01_jprb,&
&1.6312e+01_jprb,1.9027e+01_jprb,2.1639e+01_jprb/)
kao( :, 5, 4,14) = (/&
&1.8705e+01_jprb,1.6367e+01_jprb,1.4344e+01_jprb,1.3059e+01_jprb,1.2388e+01_jprb,1.4128e+01_jprb,&
&1.6951e+01_jprb,1.9772e+01_jprb,2.2482e+01_jprb/)
kao( :, 1, 5,14) = (/&
&2.1405e+01_jprb,1.8730e+01_jprb,1.6310e+01_jprb,1.4662e+01_jprb,1.3708e+01_jprb,1.2986e+01_jprb,&
&1.4754e+01_jprb,1.7211e+01_jprb,1.9632e+01_jprb/)
kao( :, 2, 5,14) = (/&
&2.1056e+01_jprb,1.8424e+01_jprb,1.6104e+01_jprb,1.4452e+01_jprb,1.3630e+01_jprb,1.3357e+01_jprb,&
&1.5611e+01_jprb,1.8209e+01_jprb,2.0772e+01_jprb/)
kao( :, 3, 5,14) = (/&
&2.0747e+01_jprb,1.8154e+01_jprb,1.5912e+01_jprb,1.4296e+01_jprb,1.3454e+01_jprb,1.3757e+01_jprb,&
&1.6382e+01_jprb,1.9110e+01_jprb,2.1795e+01_jprb/)
kao( :, 4, 5,14) = (/&
&2.0481e+01_jprb,1.7921e+01_jprb,1.5733e+01_jprb,1.4190e+01_jprb,1.3288e+01_jprb,1.4283e+01_jprb,&
&1.7134e+01_jprb,1.9987e+01_jprb,2.2797e+01_jprb/)
kao( :, 5, 5,14) = (/&
&2.0280e+01_jprb,1.7745e+01_jprb,1.5569e+01_jprb,1.4068e+01_jprb,1.3222e+01_jprb,1.4895e+01_jprb,&
&1.7870e+01_jprb,2.0845e+01_jprb,2.3770e+01_jprb/)
kao( :, 1, 6,14) = (/&
&2.2830e+01_jprb,1.9976e+01_jprb,1.7445e+01_jprb,1.5500e+01_jprb,1.4530e+01_jprb,1.3547e+01_jprb,&
&1.4948e+01_jprb,1.7437e+01_jprb,1.9911e+01_jprb/)
kao( :, 2, 6,14) = (/&
&2.2630e+01_jprb,1.9801e+01_jprb,1.7366e+01_jprb,1.5418e+01_jprb,1.4459e+01_jprb,1.3928e+01_jprb,&
&1.5968e+01_jprb,1.8628e+01_jprb,2.1268e+01_jprb/)
kao( :, 3, 6,14) = (/&
&2.2482e+01_jprb,1.9672e+01_jprb,1.7308e+01_jprb,1.5393e+01_jprb,1.4260e+01_jprb,1.4337e+01_jprb,&
&1.6867e+01_jprb,1.9676e+01_jprb,2.2466e+01_jprb/)
kao( :, 4, 6,14) = (/&
&2.2407e+01_jprb,1.9606e+01_jprb,1.7216e+01_jprb,1.5390e+01_jprb,1.4119e+01_jprb,1.4843e+01_jprb,&
&1.7739e+01_jprb,2.0693e+01_jprb,2.3625e+01_jprb/)
kao( :, 5, 6,14) = (/&
&2.2367e+01_jprb,1.9571e+01_jprb,1.7137e+01_jprb,1.5329e+01_jprb,1.4055e+01_jprb,1.5517e+01_jprb,&
&1.8617e+01_jprb,2.1718e+01_jprb,2.4792e+01_jprb/)
kao( :, 1, 7,14) = (/&
&2.4592e+01_jprb,2.1518e+01_jprb,1.8856e+01_jprb,1.6609e+01_jprb,1.5320e+01_jprb,1.4052e+01_jprb,&
&1.5041e+01_jprb,1.7546e+01_jprb,2.0045e+01_jprb/)
kao( :, 2, 7,14) = (/&
&2.4606e+01_jprb,2.1531e+01_jprb,1.8929e+01_jprb,1.6667e+01_jprb,1.5279e+01_jprb,1.4417e+01_jprb,&
&1.6211e+01_jprb,1.8911e+01_jprb,2.1602e+01_jprb/)
kao( :, 3, 7,14) = (/&
&2.4628e+01_jprb,2.1549e+01_jprb,1.8928e+01_jprb,1.6801e+01_jprb,1.5124e+01_jprb,1.4851e+01_jprb,&
&1.7257e+01_jprb,2.0131e+01_jprb,2.2994e+01_jprb/)
kao( :, 4, 7,14) = (/&
&2.4701e+01_jprb,2.1614e+01_jprb,1.8944e+01_jprb,1.6872e+01_jprb,1.5057e+01_jprb,1.5367e+01_jprb,&
&1.8273e+01_jprb,2.1316e+01_jprb,2.4350e+01_jprb/)
kao( :, 5, 7,14) = (/&
&2.4745e+01_jprb,2.1652e+01_jprb,1.8953e+01_jprb,1.6836e+01_jprb,1.5058e+01_jprb,1.6097e+01_jprb,&
&1.9310e+01_jprb,2.2526e+01_jprb,2.5728e+01_jprb/)
kao( :, 1, 8,14) = (/&
&2.6722e+01_jprb,2.3382e+01_jprb,2.0515e+01_jprb,1.7956e+01_jprb,1.6236e+01_jprb,1.4458e+01_jprb,&
&1.5041e+01_jprb,1.7547e+01_jprb,2.0050e+01_jprb/)
kao( :, 2, 8,14) = (/&
&2.6899e+01_jprb,2.3537e+01_jprb,2.0679e+01_jprb,1.8189e+01_jprb,1.6278e+01_jprb,1.4827e+01_jprb,&
&1.6369e+01_jprb,1.9095e+01_jprb,2.1820e+01_jprb/)
kao( :, 3, 8,14) = (/&
&2.7094e+01_jprb,2.3707e+01_jprb,2.0816e+01_jprb,1.8418e+01_jprb,1.6222e+01_jprb,1.5309e+01_jprb,&
&1.7578e+01_jprb,2.0506e+01_jprb,2.3432e+01_jprb/)
kao( :, 4, 8,14) = (/&
&2.7179e+01_jprb,2.3782e+01_jprb,2.0862e+01_jprb,1.8540e+01_jprb,1.6231e+01_jprb,1.5886e+01_jprb,&
&1.8721e+01_jprb,2.1839e+01_jprb,2.4952e+01_jprb/)
kao( :, 5, 8,14) = (/&
&2.7158e+01_jprb,2.3764e+01_jprb,2.0818e+01_jprb,1.8502e+01_jprb,1.6332e+01_jprb,1.6675e+01_jprb,&
&1.9896e+01_jprb,2.3208e+01_jprb,2.6519e+01_jprb/)
kao( :, 1, 9,14) = (/&
&2.9121e+01_jprb,2.5481e+01_jprb,2.2378e+01_jprb,1.9520e+01_jprb,1.7350e+01_jprb,1.4884e+01_jprb,&
&1.4926e+01_jprb,1.7361e+01_jprb,1.9841e+01_jprb/)
kao( :, 2, 9,14) = (/&
&2.9461e+01_jprb,2.5779e+01_jprb,2.2643e+01_jprb,1.9924e+01_jprb,1.7494e+01_jprb,1.5326e+01_jprb,&
&1.6362e+01_jprb,1.9088e+01_jprb,2.1811e+01_jprb/)
kao( :, 3, 9,14) = (/&
&2.9610e+01_jprb,2.5909e+01_jprb,2.2771e+01_jprb,2.0181e+01_jprb,1.7582e+01_jprb,1.5909e+01_jprb,&
&1.7732e+01_jprb,2.0686e+01_jprb,2.3639e+01_jprb/)
kao( :, 4, 9,14) = (/&
&2.9659e+01_jprb,2.5951e+01_jprb,2.2782e+01_jprb,2.0281e+01_jprb,1.7675e+01_jprb,1.6616e+01_jprb,&
&1.9018e+01_jprb,2.2187e+01_jprb,2.5355e+01_jprb/)
kao( :, 5, 9,14) = (/&
&2.9568e+01_jprb,2.5872e+01_jprb,2.2719e+01_jprb,2.0302e+01_jprb,1.7861e+01_jprb,1.7429e+01_jprb,&
&2.0313e+01_jprb,2.3697e+01_jprb,2.7083e+01_jprb/)
kao( :, 1,10,14) = (/&
&3.1663e+01_jprb,2.7706e+01_jprb,2.4344e+01_jprb,2.1280e+01_jprb,1.8643e+01_jprb,1.5678e+01_jprb,&
&1.4935e+01_jprb,1.7101e+01_jprb,1.9544e+01_jprb/)
kao( :, 2,10,14) = (/&
&3.1965e+01_jprb,2.7969e+01_jprb,2.4607e+01_jprb,2.1722e+01_jprb,1.8925e+01_jprb,1.6156e+01_jprb,&
&1.6364e+01_jprb,1.9004e+01_jprb,2.1720e+01_jprb/)
kao( :, 3,10,14) = (/&
&3.2079e+01_jprb,2.8070e+01_jprb,2.4675e+01_jprb,2.1979e+01_jprb,1.9142e+01_jprb,1.6843e+01_jprb,&
&1.7782e+01_jprb,2.0734e+01_jprb,2.3694e+01_jprb/)
kao( :, 4,10,14) = (/&
&3.2076e+01_jprb,2.8066e+01_jprb,2.4720e+01_jprb,2.2134e+01_jprb,1.9355e+01_jprb,1.7612e+01_jprb,&
&1.9151e+01_jprb,2.2342e+01_jprb,2.5534e+01_jprb/)
kao( :, 5,10,14) = (/&
&3.2013e+01_jprb,2.8013e+01_jprb,2.4760e+01_jprb,2.2247e+01_jprb,1.9618e+01_jprb,1.8439e+01_jprb,&
&2.0533e+01_jprb,2.3954e+01_jprb,2.7375e+01_jprb/)
kao( :, 1,11,14) = (/&
&3.4213e+01_jprb,2.9936e+01_jprb,2.6354e+01_jprb,2.3259e+01_jprb,2.0227e+01_jprb,1.7029e+01_jprb,&
&1.5715e+01_jprb,1.7610e+01_jprb,2.0126e+01_jprb/)
kao( :, 2,11,14) = (/&
&3.4370e+01_jprb,3.0074e+01_jprb,2.6508e+01_jprb,2.3642e+01_jprb,2.0586e+01_jprb,1.7628e+01_jprb,&
&1.7120e+01_jprb,1.9500e+01_jprb,2.2284e+01_jprb/)
kao( :, 3,11,14) = (/&
&3.4467e+01_jprb,3.0174e+01_jprb,2.6677e+01_jprb,2.3905e+01_jprb,2.0930e+01_jprb,1.8395e+01_jprb,&
&1.8472e+01_jprb,2.1240e+01_jprb,2.4275e+01_jprb/)
kao( :, 4,11,14) = (/&
&3.4474e+01_jprb,3.0204e+01_jprb,2.6823e+01_jprb,2.4177e+01_jprb,2.1309e+01_jprb,1.9245e+01_jprb,&
&1.9858e+01_jprb,2.2983e+01_jprb,2.6259e+01_jprb/)
kao( :, 5,11,14) = (/&
&3.4438e+01_jprb,3.0209e+01_jprb,2.6964e+01_jprb,2.4440e+01_jprb,2.1741e+01_jprb,2.0132e+01_jprb,&
&2.1286e+01_jprb,2.4694e+01_jprb,2.8209e+01_jprb/)
kao( :, 1,12,14) = (/&
&3.6462e+01_jprb,3.1921e+01_jprb,2.8185e+01_jprb,2.5122e+01_jprb,2.1872e+01_jprb,1.8703e+01_jprb,&
&1.6650e+01_jprb,1.7829e+01_jprb,2.0376e+01_jprb/)
kao( :, 2,12,14) = (/&
&3.6640e+01_jprb,3.2114e+01_jprb,2.8470e+01_jprb,2.5545e+01_jprb,2.2388e+01_jprb,1.9455e+01_jprb,&
&1.8025e+01_jprb,1.9728e+01_jprb,2.2541e+01_jprb/)
kao( :, 3,12,14) = (/&
&3.6727e+01_jprb,3.2238e+01_jprb,2.8745e+01_jprb,2.5954e+01_jprb,2.2942e+01_jprb,2.0299e+01_jprb,&
&1.9338e+01_jprb,2.1588e+01_jprb,2.4664e+01_jprb/)
kao( :, 4,12,14) = (/&
&3.6769e+01_jprb,3.2319e+01_jprb,2.8973e+01_jprb,2.6373e+01_jprb,2.3500e+01_jprb,2.1128e+01_jprb,&
&2.0696e+01_jprb,2.3398e+01_jprb,2.6730e+01_jprb/)
kao( :, 5,12,14) = (/&
&3.6803e+01_jprb,3.2384e+01_jprb,2.9220e+01_jprb,2.6759e+01_jprb,2.4088e+01_jprb,2.2049e+01_jprb,&
&2.2111e+01_jprb,2.5193e+01_jprb,2.8777e+01_jprb/)
kao( :, 1,13,14) = (/&
&3.8467e+01_jprb,3.3764e+01_jprb,3.0006e+01_jprb,2.6925e+01_jprb,2.3614e+01_jprb,2.0501e+01_jprb,&
&1.7640e+01_jprb,1.7695e+01_jprb,2.0215e+01_jprb/)
kao( :, 2,13,14) = (/&
&3.8636e+01_jprb,3.3983e+01_jprb,3.0407e+01_jprb,2.7476e+01_jprb,2.4350e+01_jprb,2.1406e+01_jprb,&
&1.8958e+01_jprb,1.9690e+01_jprb,2.2491e+01_jprb/)
kao( :, 3,13,14) = (/&
&3.8793e+01_jprb,3.4176e+01_jprb,3.0759e+01_jprb,2.8040e+01_jprb,2.5106e+01_jprb,2.2301e+01_jprb,&
&2.0233e+01_jprb,2.1614e+01_jprb,2.4689e+01_jprb/)
kao( :, 4,13,14) = (/&
&3.8901e+01_jprb,3.4320e+01_jprb,3.1137e+01_jprb,2.8555e+01_jprb,2.5821e+01_jprb,2.3168e+01_jprb,&
&2.1608e+01_jprb,2.3543e+01_jprb,2.6893e+01_jprb/)
kao( :, 5,13,14) = (/&
&3.8995e+01_jprb,3.4448e+01_jprb,3.1494e+01_jprb,2.9062e+01_jprb,2.6523e+01_jprb,2.4144e+01_jprb,&
&2.3025e+01_jprb,2.5501e+01_jprb,2.9129e+01_jprb/)
kao( :, 1, 1,15) = (/&
&2.2665e+01_jprb,1.9832e+01_jprb,1.6999e+01_jprb,1.4166e+01_jprb,1.3383e+01_jprb,1.5987e+01_jprb,&
&1.9182e+01_jprb,2.2378e+01_jprb,2.4474e+01_jprb/)
kao( :, 2, 1,15) = (/&
&2.1844e+01_jprb,1.9113e+01_jprb,1.6383e+01_jprb,1.3666e+01_jprb,1.3442e+01_jprb,1.6440e+01_jprb,&
&1.9723e+01_jprb,2.3008e+01_jprb,2.5060e+01_jprb/)
kao( :, 3, 1,15) = (/&
&2.1030e+01_jprb,1.8401e+01_jprb,1.5773e+01_jprb,1.3277e+01_jprb,1.3532e+01_jprb,1.6873e+01_jprb,&
&2.0241e+01_jprb,2.3609e+01_jprb,2.5652e+01_jprb/)
kao( :, 4, 1,15) = (/&
&2.0230e+01_jprb,1.7702e+01_jprb,1.5173e+01_jprb,1.2884e+01_jprb,1.3829e+01_jprb,1.7277e+01_jprb,&
&2.0725e+01_jprb,2.4172e+01_jprb,2.6214e+01_jprb/)
kao( :, 5, 1,15) = (/&
&1.9446e+01_jprb,1.7016e+01_jprb,1.4585e+01_jprb,1.2542e+01_jprb,1.4133e+01_jprb,1.7655e+01_jprb,&
&2.1178e+01_jprb,2.4699e+01_jprb,2.6742e+01_jprb/)
kao( :, 1, 2,15) = (/&
&2.4301e+01_jprb,2.1263e+01_jprb,1.8226e+01_jprb,1.5270e+01_jprb,1.4740e+01_jprb,1.7631e+01_jprb,&
&2.1154e+01_jprb,2.4675e+01_jprb,2.7320e+01_jprb/)
kao( :, 2, 2,15) = (/&
&2.3371e+01_jprb,2.0449e+01_jprb,1.7528e+01_jprb,1.4826e+01_jprb,1.4773e+01_jprb,1.8276e+01_jprb,&
&2.1927e+01_jprb,2.5577e+01_jprb,2.8254e+01_jprb/)
kao( :, 3, 2,15) = (/&
&2.2456e+01_jprb,1.9650e+01_jprb,1.6843e+01_jprb,1.4407e+01_jprb,1.5106e+01_jprb,1.8875e+01_jprb,&
&2.2644e+01_jprb,2.6416e+01_jprb,2.9163e+01_jprb/)
kao( :, 4, 2,15) = (/&
&2.1563e+01_jprb,1.8868e+01_jprb,1.6173e+01_jprb,1.4036e+01_jprb,1.5558e+01_jprb,1.9438e+01_jprb,&
&2.3319e+01_jprb,2.7202e+01_jprb,2.9991e+01_jprb/)
kao( :, 5, 2,15) = (/&
&2.0691e+01_jprb,1.8105e+01_jprb,1.5519e+01_jprb,1.3694e+01_jprb,1.5968e+01_jprb,1.9949e+01_jprb,&
&2.3930e+01_jprb,2.7910e+01_jprb,3.0755e+01_jprb/)
kao( :, 1, 3,15) = (/&
&2.6150e+01_jprb,2.2881e+01_jprb,1.9612e+01_jprb,1.6625e+01_jprb,1.6080e+01_jprb,1.9323e+01_jprb,&
&2.3184e+01_jprb,2.7047e+01_jprb,3.0423e+01_jprb/)
kao( :, 2, 3,15) = (/&
&2.5095e+01_jprb,2.1958e+01_jprb,1.8821e+01_jprb,1.6149e+01_jprb,1.6204e+01_jprb,2.0181e+01_jprb,&
&2.4213e+01_jprb,2.8246e+01_jprb,3.1757e+01_jprb/)
kao( :, 3, 3,15) = (/&
&2.4070e+01_jprb,2.1061e+01_jprb,1.8052e+01_jprb,1.5726e+01_jprb,1.6789e+01_jprb,2.0979e+01_jprb,&
&2.5169e+01_jprb,2.9357e+01_jprb,3.2991e+01_jprb/)
kao( :, 4, 3,15) = (/&
&2.3070e+01_jprb,2.0187e+01_jprb,1.7303e+01_jprb,1.5335e+01_jprb,1.7368e+01_jprb,2.1701e+01_jprb,&
&2.6034e+01_jprb,3.0366e+01_jprb,3.4124e+01_jprb/)
kao( :, 5, 3,15) = (/&
&2.2104e+01_jprb,1.9341e+01_jprb,1.6579e+01_jprb,1.4961e+01_jprb,1.7892e+01_jprb,2.2355e+01_jprb,&
&2.6817e+01_jprb,3.1278e+01_jprb,3.5133e+01_jprb/)
kao( :, 1, 4,15) = (/&
&2.8084e+01_jprb,2.4574e+01_jprb,2.1063e+01_jprb,1.8074e+01_jprb,1.7393e+01_jprb,2.1136e+01_jprb,&
&2.5360e+01_jprb,2.9584e+01_jprb,3.3561e+01_jprb/)
kao( :, 2, 4,15) = (/&
&2.6902e+01_jprb,2.3539e+01_jprb,2.0176e+01_jprb,1.7575e+01_jprb,1.7767e+01_jprb,2.2202e+01_jprb,&
&2.6641e+01_jprb,3.1076e+01_jprb,3.5240e+01_jprb/)
kao( :, 3, 4,15) = (/&
&2.5761e+01_jprb,2.2541e+01_jprb,1.9321e+01_jprb,1.7116e+01_jprb,1.8559e+01_jprb,2.3193e+01_jprb,&
&2.7826e+01_jprb,3.2458e+01_jprb,3.6803e+01_jprb/)
kao( :, 4, 4,15) = (/&
&2.4660e+01_jprb,2.1578e+01_jprb,1.8496e+01_jprb,1.6679e+01_jprb,1.9285e+01_jprb,2.4099e+01_jprb,&
&2.8913e+01_jprb,3.3725e+01_jprb,3.8229e+01_jprb/)
kao( :, 5, 4,15) = (/&
&2.3603e+01_jprb,2.0653e+01_jprb,1.7702e+01_jprb,1.6251e+01_jprb,1.9930e+01_jprb,2.4904e+01_jprb,&
&2.9878e+01_jprb,3.4850e+01_jprb,3.9510e+01_jprb/)
kao( :, 1, 5,15) = (/&
&3.0121e+01_jprb,2.6356e+01_jprb,2.2591e+01_jprb,1.9572e+01_jprb,1.8803e+01_jprb,2.3068e+01_jprb,&
&2.7679e+01_jprb,3.2291e+01_jprb,3.6764e+01_jprb/)
kao( :, 2, 5,15) = (/&
&2.8817e+01_jprb,2.5215e+01_jprb,2.1613e+01_jprb,1.9016e+01_jprb,1.9519e+01_jprb,2.4395e+01_jprb,&
&2.9271e+01_jprb,3.4145e+01_jprb,3.8882e+01_jprb/)
kao( :, 3, 5,15) = (/&
&2.7566e+01_jprb,2.4120e+01_jprb,2.0674e+01_jprb,1.8500e+01_jprb,2.0501e+01_jprb,2.5621e+01_jprb,&
&3.0741e+01_jprb,3.5860e+01_jprb,4.0822e+01_jprb/)
kao( :, 4, 5,15) = (/&
&2.6363e+01_jprb,2.3068e+01_jprb,1.9789e+01_jprb,1.8007e+01_jprb,2.1387e+01_jprb,2.6727e+01_jprb,&
&3.2067e+01_jprb,3.7405e+01_jprb,4.2586e+01_jprb/)
kao( :, 5, 5,15) = (/&
&2.5212e+01_jprb,2.2061e+01_jprb,1.9051e+01_jprb,1.7643e+01_jprb,2.2182e+01_jprb,2.7719e+01_jprb,&
&3.3256e+01_jprb,3.8795e+01_jprb,4.4162e+01_jprb/)
kao( :, 1, 6,15) = (/&
&3.2321e+01_jprb,2.8281e+01_jprb,2.4241e+01_jprb,2.1098e+01_jprb,2.0339e+01_jprb,2.4932e+01_jprb,&
&2.9917e+01_jprb,3.4901e+01_jprb,3.9811e+01_jprb/)
kao( :, 2, 6,15) = (/&
&3.0886e+01_jprb,2.7025e+01_jprb,2.3164e+01_jprb,2.0488e+01_jprb,2.1264e+01_jprb,2.6574e+01_jprb,&
&3.1885e+01_jprb,3.7195e+01_jprb,4.2430e+01_jprb/)
kao( :, 3, 6,15) = (/&
&2.9511e+01_jprb,2.5822e+01_jprb,2.2177e+01_jprb,1.9914e+01_jprb,2.2458e+01_jprb,2.8068e+01_jprb,&
&3.3678e+01_jprb,3.9285e+01_jprb,4.4801e+01_jprb/)
kao( :, 4, 6,15) = (/&
&2.8199e+01_jprb,2.4674e+01_jprb,2.1349e+01_jprb,1.9431e+01_jprb,2.3532e+01_jprb,2.9409e+01_jprb,&
&3.5286e+01_jprb,4.1160e+01_jprb,4.6949e+01_jprb/)
kao( :, 5, 6,15) = (/&
&2.6942e+01_jprb,2.3574e+01_jprb,2.0489e+01_jprb,1.9227e+01_jprb,2.4487e+01_jprb,3.0601e+01_jprb,&
&3.6715e+01_jprb,4.2828e+01_jprb,4.8844e+01_jprb/)
kao( :, 1, 7,15) = (/&
&3.4610e+01_jprb,3.0284e+01_jprb,2.5957e+01_jprb,2.2686e+01_jprb,2.1900e+01_jprb,2.6660e+01_jprb,&
&3.1990e+01_jprb,3.7320e+01_jprb,4.2613e+01_jprb/)
kao( :, 2, 7,15) = (/&
&3.3032e+01_jprb,2.8903e+01_jprb,2.4823e+01_jprb,2.1999e+01_jprb,2.2959e+01_jprb,2.8635e+01_jprb,&
&3.4359e+01_jprb,4.0081e+01_jprb,4.5761e+01_jprb/)
kao( :, 3, 7,15) = (/&
&3.1543e+01_jprb,2.7600e+01_jprb,2.3940e+01_jprb,2.1366e+01_jprb,2.4341e+01_jprb,3.0423e+01_jprb,&
&3.6504e+01_jprb,4.2582e+01_jprb,4.8628e+01_jprb/)
kao( :, 4, 7,15) = (/&
&3.0190e+01_jprb,2.6416e+01_jprb,2.3001e+01_jprb,2.1013e+01_jprb,2.5623e+01_jprb,3.2024e+01_jprb,&
&3.8424e+01_jprb,4.4822e+01_jprb,5.1169e+01_jprb/)
kao( :, 5, 7,15) = (/&
&2.9167e+01_jprb,2.5521e+01_jprb,2.2165e+01_jprb,2.1088e+01_jprb,2.6745e+01_jprb,3.3425e+01_jprb,&
&4.0104e+01_jprb,4.6781e+01_jprb,5.3415e+01_jprb/)
kao( :, 1, 8,15) = (/&
&3.7034e+01_jprb,3.2405e+01_jprb,2.7803e+01_jprb,2.4330e+01_jprb,2.3433e+01_jprb,2.8325e+01_jprb,&
&3.3988e+01_jprb,3.9652e+01_jprb,4.5298e+01_jprb/)
kao( :, 2, 8,15) = (/&
&3.5387e+01_jprb,3.0964e+01_jprb,2.6815e+01_jprb,2.3568e+01_jprb,2.4642e+01_jprb,3.0668e+01_jprb,&
&3.6800e+01_jprb,4.2932e+01_jprb,4.9043e+01_jprb/)
kao( :, 3, 8,15) = (/&
&3.3957e+01_jprb,2.9713e+01_jprb,2.5844e+01_jprb,2.3027e+01_jprb,2.6228e+01_jprb,3.2782e+01_jprb,&
&3.9335e+01_jprb,4.5888e+01_jprb,5.2425e+01_jprb/)
kao( :, 4, 8,15) = (/&
&3.2996e+01_jprb,2.8872e+01_jprb,2.5090e+01_jprb,2.2964e+01_jprb,2.7731e+01_jprb,3.4659e+01_jprb,&
&4.1586e+01_jprb,4.8516e+01_jprb,5.5417e+01_jprb/)
kao( :, 5, 8,15) = (/&
&3.2468e+01_jprb,2.8410e+01_jprb,2.4743e+01_jprb,2.3402e+01_jprb,2.9047e+01_jprb,3.6303e+01_jprb,&
&4.3558e+01_jprb,5.0811e+01_jprb,5.8046e+01_jprb/)
kao( :, 1, 9,15) = (/&
&3.9783e+01_jprb,3.4811e+01_jprb,2.9994e+01_jprb,2.6093e+01_jprb,2.4971e+01_jprb,2.9758e+01_jprb,&
&3.5708e+01_jprb,4.1658e+01_jprb,4.7610e+01_jprb/)
kao( :, 2, 9,15) = (/&
&3.8247e+01_jprb,3.3466e+01_jprb,2.9067e+01_jprb,2.5305e+01_jprb,2.6362e+01_jprb,3.2520e+01_jprb,&
&3.9021e+01_jprb,4.5520e+01_jprb,5.2017e+01_jprb/)
kao( :, 3, 9,15) = (/&
&3.7366e+01_jprb,3.2696e+01_jprb,2.8422e+01_jprb,2.5157e+01_jprb,2.8053e+01_jprb,3.4990e+01_jprb,&
&4.1984e+01_jprb,4.8979e+01_jprb,5.5970e+01_jprb/)
kao( :, 4, 9,15) = (/&
&3.6951e+01_jprb,3.2332e+01_jprb,2.8166e+01_jprb,2.5574e+01_jprb,2.9746e+01_jprb,3.7179e+01_jprb,&
&4.4610e+01_jprb,5.2042e+01_jprb,5.9480e+01_jprb/)
kao( :, 5, 9,15) = (/&
&3.6807e+01_jprb,3.2206e+01_jprb,2.8238e+01_jprb,2.6320e+01_jprb,3.1345e+01_jprb,3.9177e+01_jprb,&
&4.7007e+01_jprb,5.4838e+01_jprb,6.2666e+01_jprb/)
kao( :, 1,10,15) = (/&
&4.3060e+01_jprb,3.7677e+01_jprb,3.2562e+01_jprb,2.8079e+01_jprb,2.6750e+01_jprb,3.1106e+01_jprb,&
&3.7325e+01_jprb,4.3543e+01_jprb,4.9762e+01_jprb/)
kao( :, 2,10,15) = (/&
&4.2169e+01_jprb,3.6897e+01_jprb,3.2071e+01_jprb,2.7706e+01_jprb,2.8300e+01_jprb,3.4266e+01_jprb,&
&4.1118e+01_jprb,4.7968e+01_jprb,5.4829e+01_jprb/)
kao( :, 3,10,15) = (/&
&4.1907e+01_jprb,3.6669e+01_jprb,3.1957e+01_jprb,2.8123e+01_jprb,3.0151e+01_jprb,3.7151e+01_jprb,&
&4.4578e+01_jprb,5.2003e+01_jprb,5.9438e+01_jprb/)
kao( :, 4,10,15) = (/&
&4.1908e+01_jprb,3.6670e+01_jprb,3.2098e+01_jprb,2.8899e+01_jprb,3.2061e+01_jprb,3.9810e+01_jprb,&
&4.7769e+01_jprb,5.5728e+01_jprb,6.3685e+01_jprb/)
kao( :, 5,10,15) = (/&
&4.2172e+01_jprb,3.6900e+01_jprb,3.2471e+01_jprb,2.9889e+01_jprb,3.3921e+01_jprb,4.2203e+01_jprb,&
&5.0640e+01_jprb,5.9081e+01_jprb,6.7523e+01_jprb/)
kao( :, 1,11,15) = (/&
&4.7323e+01_jprb,4.1408e+01_jprb,3.5997e+01_jprb,3.0832e+01_jprb,2.9578e+01_jprb,3.3795e+01_jprb,&
&4.0553e+01_jprb,4.7310e+01_jprb,5.4070e+01_jprb/)
kao( :, 2,11,15) = (/&
&4.7418e+01_jprb,4.1491e+01_jprb,3.6200e+01_jprb,3.1353e+01_jprb,3.1571e+01_jprb,3.7371e+01_jprb,&
&4.4844e+01_jprb,5.2315e+01_jprb,5.9798e+01_jprb/)
kao( :, 3,11,15) = (/&
&4.7687e+01_jprb,4.1726e+01_jprb,3.6545e+01_jprb,3.2311e+01_jprb,3.3701e+01_jprb,4.0657e+01_jprb,&
&4.8786e+01_jprb,5.6913e+01_jprb,6.5046e+01_jprb/)
kao( :, 4,11,15) = (/&
&4.8161e+01_jprb,4.2141e+01_jprb,3.7083e+01_jprb,3.3405e+01_jprb,3.5837e+01_jprb,4.3612e+01_jprb,&
&5.2330e+01_jprb,6.1049e+01_jprb,6.9766e+01_jprb/)
kao( :, 5,11,15) = (/&
&4.8813e+01_jprb,4.2712e+01_jprb,3.7729e+01_jprb,3.4639e+01_jprb,3.7893e+01_jprb,4.6304e+01_jprb,&
&5.5561e+01_jprb,6.4817e+01_jprb,7.4079e+01_jprb/)
kao( :, 1,12,15) = (/&
&5.3537e+01_jprb,4.6845e+01_jprb,4.0868e+01_jprb,3.5074e+01_jprb,3.3315e+01_jprb,3.6716e+01_jprb,&
&4.3952e+01_jprb,5.1273e+01_jprb,5.8607e+01_jprb/)
kao( :, 2,12,15) = (/&
&5.4108e+01_jprb,4.7344e+01_jprb,4.1453e+01_jprb,3.6183e+01_jprb,3.5626e+01_jprb,4.0597e+01_jprb,&
&4.8705e+01_jprb,5.6822e+01_jprb,6.4945e+01_jprb/)
kao( :, 3,12,15) = (/&
&5.4788e+01_jprb,4.7940e+01_jprb,4.2158e+01_jprb,3.7480e+01_jprb,3.7956e+01_jprb,4.4233e+01_jprb,&
&5.3076e+01_jprb,6.1921e+01_jprb,7.0769e+01_jprb/)
kao( :, 4,12,15) = (/&
&5.5656e+01_jprb,4.8699e+01_jprb,4.2978e+01_jprb,3.8824e+01_jprb,4.0296e+01_jprb,4.7573e+01_jprb,&
&5.7085e+01_jprb,6.6598e+01_jprb,7.6119e+01_jprb/)
kao( :, 5,12,15) = (/&
&5.6545e+01_jprb,4.9477e+01_jprb,4.3802e+01_jprb,4.0209e+01_jprb,4.2495e+01_jprb,5.0548e+01_jprb,&
&6.0654e+01_jprb,7.0757e+01_jprb,8.0864e+01_jprb/)
kao( :, 1,13,15) = (/&
&6.1085e+01_jprb,5.3449e+01_jprb,4.6803e+01_jprb,4.0529e+01_jprb,3.7896e+01_jprb,4.0194e+01_jprb,&
&4.7752e+01_jprb,5.5708e+01_jprb,6.3666e+01_jprb/)
kao( :, 2,13,15) = (/&
&6.2117e+01_jprb,5.4352e+01_jprb,4.7746e+01_jprb,4.2003e+01_jprb,4.0420e+01_jprb,4.4278e+01_jprb,&
&5.2905e+01_jprb,6.1722e+01_jprb,7.0545e+01_jprb/)
kao( :, 3,13,15) = (/&
&6.3149e+01_jprb,5.5256e+01_jprb,4.8730e+01_jprb,4.3496e+01_jprb,4.2927e+01_jprb,4.8152e+01_jprb,&
&5.7673e+01_jprb,6.7281e+01_jprb,7.6896e+01_jprb/)
kao( :, 4,13,15) = (/&
&6.4233e+01_jprb,5.6204e+01_jprb,4.9701e+01_jprb,4.5014e+01_jprb,4.5352e+01_jprb,5.1670e+01_jprb,&
&6.1941e+01_jprb,7.2260e+01_jprb,8.2578e+01_jprb/)
kao( :, 5,13,15) = (/&
&6.5315e+01_jprb,5.7151e+01_jprb,5.0642e+01_jprb,4.6520e+01_jprb,4.7583e+01_jprb,5.4805e+01_jprb,&
&6.5738e+01_jprb,7.6689e+01_jprb,8.7640e+01_jprb/)
kao( :, 1, 1,16) = (/&
&2.3217e+01_jprb,2.0315e+01_jprb,1.7413e+01_jprb,1.4511e+01_jprb,1.7128e+01_jprb,2.1409e+01_jprb,&
&2.5690e+01_jprb,2.9970e+01_jprb,3.1682e+01_jprb/)
kao( :, 2, 1,16) = (/&
&2.2360e+01_jprb,1.9565e+01_jprb,1.6770e+01_jprb,1.3975e+01_jprb,1.7727e+01_jprb,2.2158e+01_jprb,&
&2.6589e+01_jprb,3.1019e+01_jprb,3.2781e+01_jprb/)
kao( :, 3, 1,16) = (/&
&2.1511e+01_jprb,1.8822e+01_jprb,1.6134e+01_jprb,1.3677e+01_jprb,1.8236e+01_jprb,2.2795e+01_jprb,&
&2.7353e+01_jprb,3.1910e+01_jprb,3.3717e+01_jprb/)
kao( :, 4, 1,16) = (/&
&2.0675e+01_jprb,1.8091e+01_jprb,1.5507e+01_jprb,1.4001e+01_jprb,1.8668e+01_jprb,2.3334e+01_jprb,&
&2.8002e+01_jprb,3.2666e+01_jprb,3.4515e+01_jprb/)
kao( :, 5, 1,16) = (/&
&1.9862e+01_jprb,1.7379e+01_jprb,1.4897e+01_jprb,1.4274e+01_jprb,1.9032e+01_jprb,2.3789e+01_jprb,&
&2.8546e+01_jprb,3.3301e+01_jprb,3.5180e+01_jprb/)
kao( :, 1, 2,16) = (/&
&2.4993e+01_jprb,2.1869e+01_jprb,1.8745e+01_jprb,1.5621e+01_jprb,2.0288e+01_jprb,2.5360e+01_jprb,&
&3.0431e+01_jprb,3.5501e+01_jprb,3.8500e+01_jprb/)
kao( :, 2, 2,16) = (/&
&2.4003e+01_jprb,2.1003e+01_jprb,1.8003e+01_jprb,1.5799e+01_jprb,2.1064e+01_jprb,2.6330e+01_jprb,&
&3.1595e+01_jprb,3.6859e+01_jprb,3.9965e+01_jprb/)
kao( :, 3, 2,16) = (/&
&2.3031e+01_jprb,2.0153e+01_jprb,1.7274e+01_jprb,1.6296e+01_jprb,2.1728e+01_jprb,2.7159e+01_jprb,&
&3.2591e+01_jprb,3.8020e+01_jprb,4.1220e+01_jprb/)
kao( :, 4, 2,16) = (/&
&2.2084e+01_jprb,1.9324e+01_jprb,1.6564e+01_jprb,1.6718e+01_jprb,2.2290e+01_jprb,2.7862e+01_jprb,&
&3.3433e+01_jprb,3.9003e+01_jprb,4.2289e+01_jprb/)
kao( :, 5, 2,16) = (/&
&2.1176e+01_jprb,1.8529e+01_jprb,1.5883e+01_jprb,1.7075e+01_jprb,2.2766e+01_jprb,2.8457e+01_jprb,&
&3.4148e+01_jprb,3.9837e+01_jprb,4.3190e+01_jprb/)
kao( :, 1, 3,16) = (/&
&2.7048e+01_jprb,2.3667e+01_jprb,2.0286e+01_jprb,1.7873e+01_jprb,2.3831e+01_jprb,2.9788e+01_jprb,&
&3.5745e+01_jprb,4.1700e+01_jprb,4.6434e+01_jprb/)
kao( :, 2, 3,16) = (/&
&2.5923e+01_jprb,2.2683e+01_jprb,1.9443e+01_jprb,1.8645e+01_jprb,2.4860e+01_jprb,3.1075e+01_jprb,&
&3.7289e+01_jprb,4.3501e+01_jprb,4.8433e+01_jprb/)
kao( :, 3, 3,16) = (/&
&2.4829e+01_jprb,2.1725e+01_jprb,1.8622e+01_jprb,1.9301e+01_jprb,2.5734e+01_jprb,3.2168e+01_jprb,&
&3.8600e+01_jprb,4.5030e+01_jprb,5.0155e+01_jprb/)
kao( :, 4, 3,16) = (/&
&2.3775e+01_jprb,2.0804e+01_jprb,1.7832e+01_jprb,1.9866e+01_jprb,2.6487e+01_jprb,3.3108e+01_jprb,&
&3.9729e+01_jprb,4.6348e+01_jprb,5.1627e+01_jprb/)
kao( :, 5, 3,16) = (/&
&2.2759e+01_jprb,1.9914e+01_jprb,1.7070e+01_jprb,2.0344e+01_jprb,2.7124e+01_jprb,3.3905e+01_jprb,&
&4.0685e+01_jprb,4.7463e+01_jprb,5.2855e+01_jprb/)
kao( :, 1, 4,16) = (/&
&2.9281e+01_jprb,2.5621e+01_jprb,2.1961e+01_jprb,2.0878e+01_jprb,2.7836e+01_jprb,3.4801e+01_jprb,&
&4.1761e+01_jprb,4.8718e+01_jprb,5.5008e+01_jprb/)
kao( :, 2, 4,16) = (/&
&2.8016e+01_jprb,2.4514e+01_jprb,2.1012e+01_jprb,2.1904e+01_jprb,2.9205e+01_jprb,3.6506e+01_jprb,&
&4.3806e+01_jprb,5.1103e+01_jprb,5.7673e+01_jprb/)
kao( :, 3, 4,16) = (/&
&2.6800e+01_jprb,2.3450e+01_jprb,2.0100e+01_jprb,2.2779e+01_jprb,3.0372e+01_jprb,3.7964e+01_jprb,&
&4.5556e+01_jprb,5.3145e+01_jprb,6.0000e+01_jprb/)
kao( :, 4, 4,16) = (/&
&2.5622e+01_jprb,2.2420e+01_jprb,1.9217e+01_jprb,2.3531e+01_jprb,3.1375e+01_jprb,3.9218e+01_jprb,&
&4.7060e+01_jprb,5.4900e+01_jprb,6.1967e+01_jprb/)
kao( :, 5, 4,16) = (/&
&2.4489e+01_jprb,2.1428e+01_jprb,1.8368e+01_jprb,2.4165e+01_jprb,3.2219e+01_jprb,4.0274e+01_jprb,&
&4.8327e+01_jprb,5.6378e+01_jprb,6.3637e+01_jprb/)
kao( :, 1, 5,16) = (/&
&3.1572e+01_jprb,2.7626e+01_jprb,2.3679e+01_jprb,2.4302e+01_jprb,3.2402e+01_jprb,4.0502e+01_jprb,&
&4.8601e+01_jprb,5.6697e+01_jprb,6.4411e+01_jprb/)
kao( :, 2, 5,16) = (/&
&3.0155e+01_jprb,2.6386e+01_jprb,2.2616e+01_jprb,2.5641e+01_jprb,3.4188e+01_jprb,4.2734e+01_jprb,&
&5.1280e+01_jprb,5.9822e+01_jprb,6.7939e+01_jprb/)
kao( :, 3, 5,16) = (/&
&2.8800e+01_jprb,2.5200e+01_jprb,2.1600e+01_jprb,2.6788e+01_jprb,3.5717e+01_jprb,4.4645e+01_jprb,&
&5.3573e+01_jprb,6.2498e+01_jprb,7.0987e+01_jprb/)
kao( :, 4, 5,16) = (/&
&2.7508e+01_jprb,2.4070e+01_jprb,2.0631e+01_jprb,2.7770e+01_jprb,3.7026e+01_jprb,4.6282e+01_jprb,&
&5.5538e+01_jprb,6.4790e+01_jprb,7.3602e+01_jprb/)
kao( :, 5, 5,16) = (/&
&2.6277e+01_jprb,2.2993e+01_jprb,1.9723e+01_jprb,2.8602e+01_jprb,3.8136e+01_jprb,4.7669e+01_jprb,&
&5.7201e+01_jprb,6.6735e+01_jprb,7.5802e+01_jprb/)
kao( :, 1, 6,16) = (/&
&3.4063e+01_jprb,2.9805e+01_jprb,2.5548e+01_jprb,2.8070e+01_jprb,3.7426e+01_jprb,4.6782e+01_jprb,&
&5.6138e+01_jprb,6.5490e+01_jprb,7.4618e+01_jprb/)
kao( :, 2, 6,16) = (/&
&3.2500e+01_jprb,2.8438e+01_jprb,2.4375e+01_jprb,2.9810e+01_jprb,3.9747e+01_jprb,4.9683e+01_jprb,&
&5.9618e+01_jprb,6.9550e+01_jprb,7.9236e+01_jprb/)
kao( :, 3, 6,16) = (/&
&3.1024e+01_jprb,2.7146e+01_jprb,2.3268e+01_jprb,3.1309e+01_jprb,4.1745e+01_jprb,5.2181e+01_jprb,&
&6.2616e+01_jprb,7.3047e+01_jprb,8.3222e+01_jprb/)
kao( :, 4, 6,16) = (/&
&2.9629e+01_jprb,2.5925e+01_jprb,2.2365e+01_jprb,3.2588e+01_jprb,4.3451e+01_jprb,5.4313e+01_jprb,&
&6.5174e+01_jprb,7.6032e+01_jprb,8.6614e+01_jprb/)
kao( :, 5, 6,16) = (/&
&2.8309e+01_jprb,2.4770e+01_jprb,2.2515e+01_jprb,3.3663e+01_jprb,4.4883e+01_jprb,5.6104e+01_jprb,&
&6.7323e+01_jprb,7.8538e+01_jprb,8.9494e+01_jprb/)
kao( :, 1, 7,16) = (/&
&3.6910e+01_jprb,3.2297e+01_jprb,2.7683e+01_jprb,3.2196e+01_jprb,4.2928e+01_jprb,5.3659e+01_jprb,&
&6.4389e+01_jprb,7.5116e+01_jprb,8.5705e+01_jprb/)
kao( :, 2, 7,16) = (/&
&3.5197e+01_jprb,3.0797e+01_jprb,2.6398e+01_jprb,3.4425e+01_jprb,4.5900e+01_jprb,5.7374e+01_jprb,&
&6.8848e+01_jprb,8.0317e+01_jprb,9.1670e+01_jprb/)
kao( :, 3, 7,16) = (/&
&3.3605e+01_jprb,2.9404e+01_jprb,2.5310e+01_jprb,3.6355e+01_jprb,4.8473e+01_jprb,6.0591e+01_jprb,&
&7.2708e+01_jprb,8.4820e+01_jprb,9.6786e+01_jprb/)
kao( :, 4, 7,16) = (/&
&3.2106e+01_jprb,2.8093e+01_jprb,2.5533e+01_jprb,3.7999e+01_jprb,5.0665e+01_jprb,6.3330e+01_jprb,&
&7.5995e+01_jprb,8.8655e+01_jprb,1.0117e+02_jprb/)
kao( :, 5, 7,16) = (/&
&3.0744e+01_jprb,2.6901e+01_jprb,2.6250e+01_jprb,3.9375e+01_jprb,5.2499e+01_jprb,6.5623e+01_jprb,&
&7.8746e+01_jprb,9.1865e+01_jprb,1.0485e+02_jprb/)
kao( :, 1, 8,16) = (/&
&4.0073e+01_jprb,3.5064e+01_jprb,3.0055e+01_jprb,3.6634e+01_jprb,4.8845e+01_jprb,6.1056e+01_jprb,&
&7.3265e+01_jprb,8.5470e+01_jprb,9.7620e+01_jprb/)
kao( :, 2, 8,16) = (/&
&3.8256e+01_jprb,3.3474e+01_jprb,2.8692e+01_jprb,3.9468e+01_jprb,5.2623e+01_jprb,6.5778e+01_jprb,&
&7.8932e+01_jprb,9.2081e+01_jprb,1.0517e+02_jprb/)
kao( :, 3, 8,16) = (/&
&3.6587e+01_jprb,3.2013e+01_jprb,2.8588e+01_jprb,4.1890e+01_jprb,5.5854e+01_jprb,6.9816e+01_jprb,&
&8.3778e+01_jprb,9.7751e+01_jprb,1.1165e+02_jprb/)
kao( :, 4, 8,16) = (/&
&3.5145e+01_jprb,3.0752e+01_jprb,2.9433e+01_jprb,4.3973e+01_jprb,5.8630e+01_jprb,7.3286e+01_jprb,&
&8.7942e+01_jprb,1.0259e+02_jprb,1.1716e+02_jprb/)
kao( :, 5, 8,16) = (/&
&3.4615e+01_jprb,3.0288e+01_jprb,3.0495e+01_jprb,4.5712e+01_jprb,6.0949e+01_jprb,7.6185e+01_jprb,&
&9.1420e+01_jprb,1.0665e+02_jprb,1.2183e+02_jprb/)
kao( :, 1, 9,16) = (/&
&4.3755e+01_jprb,3.8286e+01_jprb,3.2816e+01_jprb,4.1247e+01_jprb,5.4995e+01_jprb,6.8743e+01_jprb,&
&8.2490e+01_jprb,9.6233e+01_jprb,1.0997e+02_jprb/)
kao( :, 2, 9,16) = (/&
&4.1945e+01_jprb,3.6702e+01_jprb,3.1862e+01_jprb,4.4780e+01_jprb,5.9706e+01_jprb,7.4631e+01_jprb,&
&8.9556e+01_jprb,1.0447e+02_jprb,1.1940e+02_jprb/)
kao( :, 3, 9,16) = (/&
&4.0428e+01_jprb,3.5374e+01_jprb,3.2607e+01_jprb,4.7818e+01_jprb,6.3757e+01_jprb,7.9695e+01_jprb,&
&9.5632e+01_jprb,1.1156e+02_jprb,1.2752e+02_jprb/)
kao( :, 4, 9,16) = (/&
&3.9770e+01_jprb,3.4798e+01_jprb,3.3900e+01_jprb,5.0397e+01_jprb,6.7196e+01_jprb,8.3994e+01_jprb,&
&1.0079e+02_jprb,1.1758e+02_jprb,1.3434e+02_jprb/)
kao( :, 5, 9,16) = (/&
&4.1051e+01_jprb,3.5919e+01_jprb,3.5387e+01_jprb,5.2540e+01_jprb,7.0054e+01_jprb,8.7567e+01_jprb,&
&1.0508e+02_jprb,1.2258e+02_jprb,1.4009e+02_jprb/)
kao( :, 1,10,16) = (/&
&4.8191e+01_jprb,4.2167e+01_jprb,3.6143e+01_jprb,4.6233e+01_jprb,6.1643e+01_jprb,7.7053e+01_jprb,&
&9.2462e+01_jprb,1.0788e+02_jprb,1.2329e+02_jprb/)
kao( :, 2,10,16) = (/&
&4.6632e+01_jprb,4.0803e+01_jprb,3.6096e+01_jprb,5.0540e+01_jprb,6.7392e+01_jprb,8.4239e+01_jprb,&
&1.0109e+02_jprb,1.1792e+02_jprb,1.3475e+02_jprb/)
kao( :, 3,10,16) = (/&
&4.5798e+01_jprb,4.0073e+01_jprb,3.7372e+01_jprb,5.4219e+01_jprb,7.2291e+01_jprb,9.0363e+01_jprb,&
&1.0843e+02_jprb,1.2650e+02_jprb,1.4462e+02_jprb/)
kao( :, 4,10,16) = (/&
&4.7009e+01_jprb,4.1133e+01_jprb,3.9401e+01_jprb,5.7318e+01_jprb,7.6424e+01_jprb,9.5528e+01_jprb,&
&1.1463e+02_jprb,1.3373e+02_jprb,1.5287e+02_jprb/)
kao( :, 5,10,16) = (/&
&4.8862e+01_jprb,4.2754e+01_jprb,4.1265e+01_jprb,5.9899e+01_jprb,7.9865e+01_jprb,9.9835e+01_jprb,&
&1.1980e+02_jprb,1.3976e+02_jprb,1.5971e+02_jprb/)
kao( :, 1,11,16) = (/&
&5.3373e+01_jprb,4.6702e+01_jprb,4.0606e+01_jprb,5.3674e+01_jprb,7.1565e+01_jprb,8.9455e+01_jprb,&
&1.0734e+02_jprb,1.2523e+02_jprb,1.4312e+02_jprb/)
kao( :, 2,11,16) = (/&
&5.3017e+01_jprb,4.6390e+01_jprb,4.2053e+01_jprb,5.8474e+01_jprb,7.7965e+01_jprb,9.7455e+01_jprb,&
&1.1694e+02_jprb,1.3643e+02_jprb,1.5595e+02_jprb/)
kao( :, 3,11,16) = (/&
&5.4550e+01_jprb,4.7731e+01_jprb,4.4590e+01_jprb,6.2526e+01_jprb,8.3367e+01_jprb,1.0421e+02_jprb,&
&1.2505e+02_jprb,1.4588e+02_jprb,1.6674e+02_jprb/)
kao( :, 4,11,16) = (/&
&5.6780e+01_jprb,4.9683e+01_jprb,4.6971e+01_jprb,6.5903e+01_jprb,8.7870e+01_jprb,1.0984e+02_jprb,&
&1.3180e+02_jprb,1.5376e+02_jprb,1.7563e+02_jprb/)
kao( :, 5,11,16) = (/&
&5.9041e+01_jprb,5.1661e+01_jprb,4.9066e+01_jprb,6.8642e+01_jprb,9.1523e+01_jprb,1.1440e+02_jprb,&
&1.3728e+02_jprb,1.6015e+02_jprb,1.8306e+02_jprb/)
kao( :, 1,12,16) = (/&
&6.1525e+01_jprb,5.3834e+01_jprb,4.7398e+01_jprb,6.1480e+01_jprb,8.1973e+01_jprb,1.0246e+02_jprb,&
&1.2296e+02_jprb,1.4346e+02_jprb,1.6393e+02_jprb/)
kao( :, 2,12,16) = (/&
&6.3155e+01_jprb,5.5261e+01_jprb,5.0248e+01_jprb,6.6709e+01_jprb,8.8945e+01_jprb,1.1118e+02_jprb,&
&1.3341e+02_jprb,1.5564e+02_jprb,1.7789e+02_jprb/)
kao( :, 3,12,16) = (/&
&6.5829e+01_jprb,5.7600e+01_jprb,5.3241e+01_jprb,7.1073e+01_jprb,9.4764e+01_jprb,1.1845e+02_jprb,&
&1.4214e+02_jprb,1.6583e+02_jprb,1.8954e+02_jprb/)
kao( :, 4,12,16) = (/&
&6.8453e+01_jprb,5.9896e+01_jprb,5.5974e+01_jprb,7.4756e+01_jprb,9.9674e+01_jprb,1.2459e+02_jprb,&
&1.4950e+02_jprb,1.7441e+02_jprb,1.9932e+02_jprb/)
kao( :, 5,12,16) = (/&
&7.1079e+01_jprb,6.2194e+01_jprb,5.8308e+01_jprb,7.7950e+01_jprb,1.0393e+02_jprb,1.2991e+02_jprb,&
&1.5589e+02_jprb,1.8186e+02_jprb,2.0786e+02_jprb/)
kao( :, 1,13,16) = (/&
&7.3106e+01_jprb,6.3968e+01_jprb,5.6524e+01_jprb,6.9787e+01_jprb,9.2588e+01_jprb,1.1573e+02_jprb,&
&1.3888e+02_jprb,1.6201e+02_jprb,1.8517e+02_jprb/)
kao( :, 2,13,16) = (/&
&7.5846e+01_jprb,6.6365e+01_jprb,6.0094e+01_jprb,7.5398e+01_jprb,1.0038e+02_jprb,1.2548e+02_jprb,&
&1.5057e+02_jprb,1.7566e+02_jprb,2.0075e+02_jprb/)
kao( :, 3,13,16) = (/&
&7.9121e+01_jprb,6.9231e+01_jprb,6.3478e+01_jprb,8.0291e+01_jprb,1.0705e+02_jprb,1.3382e+02_jprb,&
&1.6058e+02_jprb,1.8733e+02_jprb,2.1409e+02_jprb/)
kao( :, 4,13,16) = (/&
&8.2254e+01_jprb,7.1972e+01_jprb,6.6518e+01_jprb,8.4693e+01_jprb,1.1292e+02_jprb,1.4115e+02_jprb,&
&1.6938e+02_jprb,1.9759e+02_jprb,2.2586e+02_jprb/)
kao( :, 5,13,16) = (/&
&8.5142e+01_jprb,7.4499e+01_jprb,6.9191e+01_jprb,8.8493e+01_jprb,1.1799e+02_jprb,1.4748e+02_jprb,&
&1.7697e+02_jprb,2.0646e+02_jprb,2.3600e+02_jprb/)


!     -----------------------------------------------------------------
RETURN
END SUBROUTINE rrtm_kgb12_a2