rrtm_kgb15_A2.F90

Go to the documentation of this file.

!OCL SCALAR
SUBROUTINE rrtm_kgb15_a2

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

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

#include "tsmbkind.h"

USE yoerrto15, ONLY : kao     ,selfrefo   ,fracrefao
USE yoerrta15, 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.4008e+00_jprb,1.6014e+00_jprb,2.0178e+00_jprb,2.5290e+00_jprb,3.0648e+00_jprb,3.4883e+00_jprb,&
&3.8106e+00_jprb,4.1078e+00_jprb,1.3510e+01_jprb/)
kao( :, 2, 1, 9) = (/&
&1.8642e+00_jprb,1.9682e+00_jprb,2.2869e+00_jprb,2.7055e+00_jprb,3.2045e+00_jprb,3.6259e+00_jprb,&
&3.9148e+00_jprb,4.1490e+00_jprb,1.3219e+01_jprb/)
kao( :, 3, 1, 9) = (/&
&2.4188e+00_jprb,2.4150e+00_jprb,2.6255e+00_jprb,2.9382e+00_jprb,3.3460e+00_jprb,3.7645e+00_jprb,&
&4.0194e+00_jprb,4.1942e+00_jprb,1.3301e+01_jprb/)
kao( :, 4, 1, 9) = (/&
&3.0606e+00_jprb,2.9381e+00_jprb,3.0294e+00_jprb,3.2272e+00_jprb,3.5230e+00_jprb,3.8956e+00_jprb,&
&4.1275e+00_jprb,4.2397e+00_jprb,1.3766e+01_jprb/)
kao( :, 5, 1, 9) = (/&
&3.7794e+00_jprb,3.5290e+00_jprb,3.4922e+00_jprb,3.5653e+00_jprb,3.7393e+00_jprb,4.0279e+00_jprb,&
&4.2356e+00_jprb,4.2849e+00_jprb,1.4541e+01_jprb/)
kao( :, 1, 2, 9) = (/&
&1.0743e+00_jprb,1.4254e+00_jprb,1.9959e+00_jprb,2.6242e+00_jprb,3.1478e+00_jprb,3.5640e+00_jprb,&
&3.9315e+00_jprb,4.2780e+00_jprb,1.1246e+01_jprb/)
kao( :, 2, 2, 9) = (/&
&1.4450e+00_jprb,1.7077e+00_jprb,2.1920e+00_jprb,2.7731e+00_jprb,3.3077e+00_jprb,3.7068e+00_jprb,&
&4.0280e+00_jprb,4.3205e+00_jprb,1.0854e+01_jprb/)
kao( :, 3, 2, 9) = (/&
&1.8935e+00_jprb,2.0578e+00_jprb,2.4461e+00_jprb,2.9377e+00_jprb,3.4636e+00_jprb,3.8524e+00_jprb,&
&4.1310e+00_jprb,4.3656e+00_jprb,1.0696e+01_jprb/)
kao( :, 4, 2, 9) = (/&
&2.4131e+00_jprb,2.4697e+00_jprb,2.7529e+00_jprb,3.1439e+00_jprb,3.6214e+00_jprb,3.9997e+00_jprb,&
&4.2395e+00_jprb,4.4100e+00_jprb,1.0792e+01_jprb/)
kao( :, 5, 2, 9) = (/&
&3.0060e+00_jprb,2.9455e+00_jprb,3.1147e+00_jprb,3.3967e+00_jprb,3.7810e+00_jprb,4.1480e+00_jprb,&
&4.3467e+00_jprb,4.4539e+00_jprb,1.1120e+01_jprb/)
kao( :, 1, 3, 9) = (/&
&7.6472e-01_jprb,1.2830e+00_jprb,2.0011e+00_jprb,2.6221e+00_jprb,3.1251e+00_jprb,3.5689e+00_jprb,&
&3.9960e+00_jprb,4.3904e+00_jprb,9.5265e+00_jprb/)
kao( :, 2, 3, 9) = (/&
&1.0454e+00_jprb,1.4850e+00_jprb,2.1444e+00_jprb,2.7873e+00_jprb,3.2876e+00_jprb,3.7049e+00_jprb,&
&4.0848e+00_jprb,4.4319e+00_jprb,9.1222e+00_jprb/)
kao( :, 3, 3, 9) = (/&
&1.3885e+00_jprb,1.7405e+00_jprb,2.3171e+00_jprb,2.9536e+00_jprb,3.4575e+00_jprb,3.8474e+00_jprb,&
&4.1795e+00_jprb,4.4739e+00_jprb,8.8598e+00_jprb/)
kao( :, 4, 3, 9) = (/&
&1.7962e+00_jprb,2.0514e+00_jprb,2.5375e+00_jprb,3.1222e+00_jprb,3.6306e+00_jprb,3.9962e+00_jprb,&
&4.2785e+00_jprb,4.5165e+00_jprb,8.7328e+00_jprb/)
kao( :, 5, 3, 9) = (/&
&2.2640e+00_jprb,2.4140e+00_jprb,2.8016e+00_jprb,3.3001e+00_jprb,3.8026e+00_jprb,4.1450e+00_jprb,&
&4.3795e+00_jprb,4.5585e+00_jprb,8.7266e+00_jprb/)
kao( :, 1, 4, 9) = (/&
&5.2796e-01_jprb,1.2120e+00_jprb,1.9543e+00_jprb,2.5382e+00_jprb,3.0533e+00_jprb,3.5474e+00_jprb,&
&4.0298e+00_jprb,4.4716e+00_jprb,8.2598e+00_jprb/)
kao( :, 2, 4, 9) = (/&
&7.3237e-01_jprb,1.3475e+00_jprb,2.1063e+00_jprb,2.7052e+00_jprb,3.2055e+00_jprb,3.6631e+00_jprb,&
&4.1092e+00_jprb,4.5092e+00_jprb,7.9321e+00_jprb/)
kao( :, 3, 4, 9) = (/&
&9.9035e-01_jprb,1.5277e+00_jprb,2.2632e+00_jprb,2.8812e+00_jprb,3.3695e+00_jprb,3.7914e+00_jprb,&
&4.1936e+00_jprb,4.5489e+00_jprb,7.6815e+00_jprb/)
kao( :, 4, 4, 9) = (/&
&1.3002e+00_jprb,1.7521e+00_jprb,2.4291e+00_jprb,3.0611e+00_jprb,3.5379e+00_jprb,3.9283e+00_jprb,&
&4.2814e+00_jprb,4.5884e+00_jprb,7.5173e+00_jprb/)
kao( :, 5, 4, 9) = (/&
&1.6645e+00_jprb,2.0223e+00_jprb,2.6149e+00_jprb,3.2452e+00_jprb,3.7109e+00_jprb,4.0687e+00_jprb,&
&4.3710e+00_jprb,4.6264e+00_jprb,7.4184e+00_jprb/)
kao( :, 1, 5, 9) = (/&
&3.6057e-01_jprb,1.1636e+00_jprb,1.8513e+00_jprb,2.4342e+00_jprb,2.9866e+00_jprb,3.5323e+00_jprb,&
&4.0567e+00_jprb,4.5370e+00_jprb,7.4568e+00_jprb/)
kao( :, 2, 5, 9) = (/&
&5.0709e-01_jprb,1.2813e+00_jprb,2.0048e+00_jprb,2.5857e+00_jprb,3.1141e+00_jprb,3.6303e+00_jprb,&
&4.1258e+00_jprb,4.5699e+00_jprb,7.1852e+00_jprb/)
kao( :, 3, 5, 9) = (/&
&6.9711e-01_jprb,1.4088e+00_jprb,2.1674e+00_jprb,2.7491e+00_jprb,3.2569e+00_jprb,3.7377e+00_jprb,&
&4.1985e+00_jprb,4.6043e+00_jprb,6.9783e+00_jprb/)
kao( :, 4, 5, 9) = (/&
&9.3089e-01_jprb,1.5674e+00_jprb,2.3376e+00_jprb,2.9224e+00_jprb,3.4095e+00_jprb,3.8525e+00_jprb,&
&4.2748e+00_jprb,4.6380e+00_jprb,6.8324e+00_jprb/)
kao( :, 5, 5, 9) = (/&
&1.2095e+00_jprb,1.7631e+00_jprb,2.5127e+00_jprb,3.1011e+00_jprb,3.5697e+00_jprb,3.9735e+00_jprb,&
&4.3536e+00_jprb,4.6710e+00_jprb,6.7237e+00_jprb/)
kao( :, 1, 6, 9) = (/&
&2.4200e-01_jprb,1.0838e+00_jprb,1.7394e+00_jprb,2.3387e+00_jprb,2.9299e+00_jprb,3.5073e+00_jprb,&
&4.0603e+00_jprb,4.5751e+00_jprb,6.9990e+00_jprb/)
kao( :, 2, 6, 9) = (/&
&3.4394e-01_jprb,1.1999e+00_jprb,1.8760e+00_jprb,2.4663e+00_jprb,3.0343e+00_jprb,3.5897e+00_jprb,&
&4.1192e+00_jprb,4.6007e+00_jprb,6.7915e+00_jprb/)
kao( :, 3, 6, 9) = (/&
&4.8030e-01_jprb,1.3232e+00_jprb,2.0255e+00_jprb,2.6081e+00_jprb,3.1512e+00_jprb,3.6810e+00_jprb,&
&4.1825e+00_jprb,4.6279e+00_jprb,6.6211e+00_jprb/)
kao( :, 4, 6, 9) = (/&
&6.5272e-01_jprb,1.4558e+00_jprb,2.1847e+00_jprb,2.7631e+00_jprb,3.2807e+00_jprb,3.7792e+00_jprb,&
&4.2485e+00_jprb,4.6560e+00_jprb,6.4814e+00_jprb/)
kao( :, 5, 6, 9) = (/&
&8.6213e-01_jprb,1.5990e+00_jprb,2.3528e+00_jprb,2.9249e+00_jprb,3.4200e+00_jprb,3.8827e+00_jprb,&
&4.3177e+00_jprb,4.6844e+00_jprb,6.3643e+00_jprb/)
kao( :, 1, 7, 9) = (/&
&1.6234e-01_jprb,9.9163e-01_jprb,1.6372e+00_jprb,2.2588e+00_jprb,2.8704e+00_jprb,3.4657e+00_jprb,&
&4.0381e+00_jprb,4.5791e+00_jprb,6.7312e+00_jprb/)
kao( :, 2, 7, 9) = (/&
&2.3147e-01_jprb,1.0981e+00_jprb,1.7520e+00_jprb,2.3595e+00_jprb,2.9563e+00_jprb,3.5352e+00_jprb,&
&4.0869e+00_jprb,4.5966e+00_jprb,6.5680e+00_jprb/)
kao( :, 3, 7, 9) = (/&
&3.2772e-01_jprb,1.2156e+00_jprb,1.8829e+00_jprb,2.4770e+00_jprb,3.0534e+00_jprb,3.6116e+00_jprb,&
&4.1400e+00_jprb,4.6166e+00_jprb,6.4257e+00_jprb/)
kao( :, 4, 7, 9) = (/&
&4.5268e-01_jprb,1.3423e+00_jprb,2.0240e+00_jprb,2.6084e+00_jprb,3.1603e+00_jprb,3.6950e+00_jprb,&
&4.1975e+00_jprb,4.6391e+00_jprb,6.2960e+00_jprb/)
kao( :, 5, 7, 9) = (/&
&6.0838e-01_jprb,1.4784e+00_jprb,2.1759e+00_jprb,2.7497e+00_jprb,3.2763e+00_jprb,3.7840e+00_jprb,&
&4.2569e+00_jprb,4.6620e+00_jprb,6.1756e+00_jprb/)
kao( :, 1, 8, 9) = (/&
&1.1004e-01_jprb,9.0528e-01_jprb,1.5488e+00_jprb,2.1828e+00_jprb,2.8043e+00_jprb,3.4087e+00_jprb,&
&3.9936e+00_jprb,4.5522e+00_jprb,6.5679e+00_jprb/)
kao( :, 2, 8, 9) = (/&
&1.5599e-01_jprb,9.9632e-01_jprb,1.6406e+00_jprb,2.2628e+00_jprb,2.8729e+00_jprb,3.4645e+00_jprb,&
&4.0312e+00_jprb,4.5616e+00_jprb,6.4237e+00_jprb/)
kao( :, 3, 8, 9) = (/&
&2.2275e-01_jprb,1.1002e+00_jprb,1.7485e+00_jprb,2.3565e+00_jprb,2.9517e+00_jprb,3.5270e+00_jprb,&
&4.0737e+00_jprb,4.5749e+00_jprb,6.2919e+00_jprb/)
kao( :, 4, 8, 9) = (/&
&3.1235e-01_jprb,1.2144e+00_jprb,1.8706e+00_jprb,2.4635e+00_jprb,3.0405e+00_jprb,3.5959e+00_jprb,&
&4.1201e+00_jprb,4.5903e+00_jprb,6.1693e+00_jprb/)
kao( :, 5, 8, 9) = (/&
&4.2664e-01_jprb,1.3386e+00_jprb,2.0030e+00_jprb,2.5834e+00_jprb,3.1377e+00_jprb,3.6706e+00_jprb,&
&4.1692e+00_jprb,4.6062e+00_jprb,6.0528e+00_jprb/)
kao( :, 1, 9, 9) = (/&
&7.5621e-02_jprb,8.2912e-01_jprb,1.4726e+00_jprb,2.1058e+00_jprb,2.7258e+00_jprb,3.3321e+00_jprb,&
&3.9225e+00_jprb,4.4919e+00_jprb,6.3820e+00_jprb/)
kao( :, 2, 9, 9) = (/&
&1.0543e-01_jprb,9.0364e-01_jprb,1.5428e+00_jprb,2.1689e+00_jprb,2.7807e+00_jprb,3.3755e+00_jprb,&
&3.9494e+00_jprb,4.4934e+00_jprb,6.2476e+00_jprb/)
kao( :, 3, 9, 9) = (/&
&1.5066e-01_jprb,9.9073e-01_jprb,1.6283e+00_jprb,2.2439e+00_jprb,2.8447e+00_jprb,3.4264e+00_jprb,&
&3.9821e+00_jprb,4.4994e+00_jprb,6.1231e+00_jprb/)
kao( :, 4, 9, 9) = (/&
&2.1408e-01_jprb,1.0896e+00_jprb,1.7277e+00_jprb,2.3302e+00_jprb,2.9173e+00_jprb,3.4831e+00_jprb,&
&4.0188e+00_jprb,4.5079e+00_jprb,6.0062e+00_jprb/)
kao( :, 5, 9, 9) = (/&
&2.9679e-01_jprb,1.1980e+00_jprb,1.8391e+00_jprb,2.4267e+00_jprb,2.9974e+00_jprb,3.5447e+00_jprb,&
&4.0590e+00_jprb,4.5182e+00_jprb,5.8937e+00_jprb/)
kao( :, 1,10, 9) = (/&
&5.4240e-02_jprb,7.6886e-01_jprb,1.4043e+00_jprb,2.0272e+00_jprb,2.6366e+00_jprb,3.2336e+00_jprb,&
&3.8172e+00_jprb,4.3834e+00_jprb,6.1517e+00_jprb/)
kao( :, 2,10, 9) = (/&
&7.3880e-02_jprb,8.2766e-01_jprb,1.4592e+00_jprb,2.0774e+00_jprb,2.6804e+00_jprb,3.2668e+00_jprb,&
&3.8346e+00_jprb,4.3761e+00_jprb,6.0252e+00_jprb/)
kao( :, 3,10, 9) = (/&
&1.0494e-01_jprb,8.9945e-01_jprb,1.5264e+00_jprb,2.1379e+00_jprb,2.7325e+00_jprb,3.3074e+00_jprb,&
&3.8583e+00_jprb,4.3744e+00_jprb,5.9074e+00_jprb/)
kao( :, 4,10, 9) = (/&
&1.5013e-01_jprb,9.8203e-01_jprb,1.6069e+00_jprb,2.2084e+00_jprb,2.7922e+00_jprb,3.3540e+00_jprb,&
&3.8866e+00_jprb,4.3763e+00_jprb,5.7958e+00_jprb/)
kao( :, 5,10, 9) = (/&
&2.1071e-01_jprb,1.0751e+00_jprb,1.6988e+00_jprb,2.2877e+00_jprb,2.8591e+00_jprb,3.4064e+00_jprb,&
&3.9198e+00_jprb,4.3819e+00_jprb,5.6875e+00_jprb/)
kao( :, 1,11, 9) = (/&
&4.4683e-02_jprb,7.3372e-01_jprb,1.3451e+00_jprb,1.9417e+00_jprb,2.5248e+00_jprb,3.0962e+00_jprb,&
&3.6538e+00_jprb,4.1928e+00_jprb,5.8131e+00_jprb/)
kao( :, 2,11, 9) = (/&
&6.0954e-02_jprb,7.8585e-01_jprb,1.3950e+00_jprb,1.9873e+00_jprb,2.5636e+00_jprb,3.1235e+00_jprb,&
&3.6649e+00_jprb,4.1802e+00_jprb,5.6980e+00_jprb/)
kao( :, 3,11, 9) = (/&
&8.6688e-02_jprb,8.4834e-01_jprb,1.4554e+00_jprb,2.0422e+00_jprb,2.6105e+00_jprb,3.1582e+00_jprb,&
&3.6827e+00_jprb,4.1732e+00_jprb,5.5896e+00_jprb/)
kao( :, 4,11, 9) = (/&
&1.2398e-01_jprb,9.2090e-01_jprb,1.5262e+00_jprb,2.1063e+00_jprb,2.6652e+00_jprb,3.2007e+00_jprb,&
&3.7079e+00_jprb,4.1732e+00_jprb,5.4857e+00_jprb/)
kao( :, 5,11, 9) = (/&
&1.7398e-01_jprb,1.0025e+00_jprb,1.6073e+00_jprb,2.1784e+00_jprb,2.7274e+00_jprb,3.2503e+00_jprb,&
&3.7400e+00_jprb,4.1797e+00_jprb,5.3881e+00_jprb/)
kao( :, 1,12, 9) = (/&
&3.6885e-02_jprb,6.8826e-01_jprb,1.2637e+00_jprb,1.8240e+00_jprb,2.3716e+00_jprb,2.9070e+00_jprb,&
&3.4294e+00_jprb,3.9342e+00_jprb,5.4594e+00_jprb/)
kao( :, 2,12, 9) = (/&
&5.0362e-02_jprb,7.3520e-01_jprb,1.3086e+00_jprb,1.8646e+00_jprb,2.4044e+00_jprb,2.9285e+00_jprb,&
&3.4352e+00_jprb,3.9171e+00_jprb,5.3534e+00_jprb/)
kao( :, 3,12, 9) = (/&
&7.1651e-02_jprb,7.9173e-01_jprb,1.3635e+00_jprb,1.9144e+00_jprb,2.4467e+00_jprb,2.9595e+00_jprb,&
&3.4502e+00_jprb,3.9090e+00_jprb,5.2531e+00_jprb/)
kao( :, 4,12, 9) = (/&
&1.0249e-01_jprb,8.5728e-01_jprb,1.4282e+00_jprb,1.9738e+00_jprb,2.4980e+00_jprb,2.9998e+00_jprb,&
&3.4748e+00_jprb,3.9108e+00_jprb,5.1595e+00_jprb/)
kao( :, 5,12, 9) = (/&
&1.4372e-01_jprb,9.2980e-01_jprb,1.5022e+00_jprb,2.0418e+00_jprb,2.5591e+00_jprb,3.0515e+00_jprb,&
&3.5127e+00_jprb,3.9276e+00_jprb,5.0750e+00_jprb/)
kao( :, 1,13, 9) = (/&
&3.0491e-02_jprb,6.3441e-01_jprb,1.1660e+00_jprb,1.6828e+00_jprb,2.1872e+00_jprb,2.6805e+00_jprb,&
&3.1616e+00_jprb,3.6254e+00_jprb,5.1279e+00_jprb/)
kao( :, 2,13, 9) = (/&
&4.1640e-02_jprb,6.7602e-01_jprb,1.2060e+00_jprb,1.7186e+00_jprb,2.2159e+00_jprb,2.6988e+00_jprb,&
&3.1653e+00_jprb,3.6082e+00_jprb,5.0296e+00_jprb/)
kao( :, 3,13, 9) = (/&
&5.9248e-02_jprb,7.2677e-01_jprb,1.2558e+00_jprb,1.7643e+00_jprb,2.2553e+00_jprb,2.7282e+00_jprb,&
&3.1808e+00_jprb,3.6035e+00_jprb,4.9390e+00_jprb/)
kao( :, 4,13, 9) = (/&
&8.4663e-02_jprb,7.8595e-01_jprb,1.3152e+00_jprb,1.8213e+00_jprb,2.3074e+00_jprb,2.7724e+00_jprb,&
&3.2128e+00_jprb,3.6169e+00_jprb,4.8589e+00_jprb/)
kao( :, 5,13, 9) = (/&
&1.1865e-01_jprb,8.5205e-01_jprb,1.3845e+00_jprb,1.8890e+00_jprb,2.3711e+00_jprb,2.8293e+00_jprb,&
&3.2586e+00_jprb,3.6454e+00_jprb,4.7958e+00_jprb/)
kao( :, 1, 1,10) = (/&
&8.3046e+00_jprb,7.2666e+00_jprb,6.2285e+00_jprb,5.1904e+00_jprb,4.7329e+00_jprb,5.2261e+00_jprb,&
&5.7808e+00_jprb,6.3145e+00_jprb,1.5403e+01_jprb/)
kao( :, 2, 1,10) = (/&
&1.0500e+01_jprb,9.1879e+00_jprb,7.8753e+00_jprb,6.5628e+00_jprb,5.3429e+00_jprb,5.4501e+00_jprb,&
&5.9313e+00_jprb,6.4007e+00_jprb,1.7452e+01_jprb/)
kao( :, 3, 1,10) = (/&
&1.2866e+01_jprb,1.1258e+01_jprb,9.6496e+00_jprb,8.0413e+00_jprb,6.4330e+00_jprb,5.7014e+00_jprb,&
&6.0980e+00_jprb,6.4718e+00_jprb,1.9513e+01_jprb/)
kao( :, 4, 1,10) = (/&
&1.5392e+01_jprb,1.3468e+01_jprb,1.1544e+01_jprb,9.6199e+00_jprb,7.6959e+00_jprb,6.1009e+00_jprb,&
&6.2722e+00_jprb,6.5575e+00_jprb,2.1715e+01_jprb/)
kao( :, 5, 1,10) = (/&
&1.8056e+01_jprb,1.5799e+01_jprb,1.3542e+01_jprb,1.1285e+01_jprb,9.0279e+00_jprb,6.8103e+00_jprb,&
&6.4441e+00_jprb,6.6397e+00_jprb,2.3850e+01_jprb/)
kao( :, 1, 2,10) = (/&
&6.4947e+00_jprb,5.6829e+00_jprb,4.8711e+00_jprb,4.3890e+00_jprb,5.0074e+00_jprb,5.7366e+00_jprb,&
&6.4315e+00_jprb,7.0725e+00_jprb,1.2054e+01_jprb/)
kao( :, 2, 2,10) = (/&
&8.3011e+00_jprb,7.2634e+00_jprb,6.2258e+00_jprb,5.2050e+00_jprb,5.2909e+00_jprb,5.9522e+00_jprb,&
&6.5881e+00_jprb,7.1588e+00_jprb,1.2666e+01_jprb/)
kao( :, 3, 2,10) = (/&
&1.0256e+01_jprb,8.9740e+00_jprb,7.6920e+00_jprb,6.4100e+00_jprb,5.6644e+00_jprb,6.1894e+00_jprb,&
&6.7625e+00_jprb,7.2404e+00_jprb,1.3682e+01_jprb/)
kao( :, 4, 2,10) = (/&
&1.2397e+01_jprb,1.0847e+01_jprb,9.2971e+00_jprb,7.7479e+00_jprb,6.3118e+00_jprb,6.4388e+00_jprb,&
&6.9414e+00_jprb,7.3378e+00_jprb,1.5028e+01_jprb/)
kao( :, 5, 2,10) = (/&
&1.4660e+01_jprb,1.2828e+01_jprb,1.0995e+01_jprb,9.1626e+00_jprb,7.3301e+00_jprb,6.6905e+00_jprb,&
&7.1124e+00_jprb,7.4264e+00_jprb,1.6436e+01_jprb/)
kao( :, 1, 3,10) = (/&
&4.7461e+00_jprb,4.1529e+00_jprb,3.7000e+00_jprb,4.4615e+00_jprb,5.3639e+00_jprb,6.2356e+00_jprb,&
&7.0823e+00_jprb,7.8222e+00_jprb,1.0768e+01_jprb/)
kao( :, 2, 3,10) = (/&
&6.1674e+00_jprb,5.3965e+00_jprb,4.6255e+00_jprb,4.7868e+00_jprb,5.6404e+00_jprb,6.4644e+00_jprb,&
&7.2578e+00_jprb,7.9155e+00_jprb,1.1012e+01_jprb/)
kao( :, 3, 3,10) = (/&
&7.7651e+00_jprb,6.7945e+00_jprb,5.8238e+00_jprb,5.2211e+00_jprb,5.9299e+00_jprb,6.7104e+00_jprb,&
&7.4369e+00_jprb,8.0208e+00_jprb,1.1349e+01_jprb/)
kao( :, 4, 3,10) = (/&
&9.5128e+00_jprb,8.3237e+00_jprb,7.1346e+00_jprb,5.9977e+00_jprb,6.2294e+00_jprb,6.9597e+00_jprb,&
&7.6063e+00_jprb,8.1225e+00_jprb,1.1679e+01_jprb/)
kao( :, 5, 3,10) = (/&
&1.1390e+01_jprb,9.9664e+00_jprb,8.5426e+00_jprb,7.1189e+00_jprb,6.5507e+00_jprb,7.2016e+00_jprb,&
&7.7732e+00_jprb,8.2118e+00_jprb,1.2040e+01_jprb/)
kao( :, 1, 4,10) = (/&
&3.3503e+00_jprb,2.9315e+00_jprb,3.5683e+00_jprb,4.6667e+00_jprb,5.7273e+00_jprb,6.7580e+00_jprb,&
&7.7198e+00_jprb,8.5710e+00_jprb,1.0440e+01_jprb/)
kao( :, 2, 4,10) = (/&
&4.4561e+00_jprb,3.8991e+00_jprb,3.9300e+00_jprb,4.9622e+00_jprb,5.9939e+00_jprb,6.9871e+00_jprb,&
&7.8925e+00_jprb,8.6774e+00_jprb,1.0521e+01_jprb/)
kao( :, 3, 4,10) = (/&
&5.7189e+00_jprb,5.0041e+00_jprb,4.4573e+00_jprb,5.2834e+00_jprb,6.2798e+00_jprb,7.2167e+00_jprb,&
&8.0686e+00_jprb,8.7808e+00_jprb,1.0645e+01_jprb/)
kao( :, 4, 4,10) = (/&
&7.1243e+00_jprb,6.2338e+00_jprb,5.3456e+00_jprb,5.6334e+00_jprb,6.5793e+00_jprb,7.4542e+00_jprb,&
&8.2512e+00_jprb,8.8783e+00_jprb,1.0735e+01_jprb/)
kao( :, 5, 4,10) = (/&
&8.6595e+00_jprb,7.5770e+00_jprb,6.4946e+00_jprb,6.0192e+00_jprb,6.8955e+00_jprb,7.7038e+00_jprb,&
&8.4443e+00_jprb,8.9879e+00_jprb,1.0819e+01_jprb/)
kao( :, 1, 5,10) = (/&
&2.3228e+00_jprb,2.3763e+00_jprb,3.6372e+00_jprb,4.8666e+00_jprb,6.0758e+00_jprb,7.2202e+00_jprb,&
&8.2887e+00_jprb,9.2790e+00_jprb,1.1044e+01_jprb/)
kao( :, 2, 5,10) = (/&
&3.1750e+00_jprb,2.8335e+00_jprb,3.9429e+00_jprb,5.1625e+00_jprb,6.3325e+00_jprb,7.4495e+00_jprb,&
&8.4649e+00_jprb,9.3795e+00_jprb,1.0992e+01_jprb/)
kao( :, 3, 5,10) = (/&
&4.1502e+00_jprb,3.6314e+00_jprb,4.2777e+00_jprb,5.4822e+00_jprb,6.6129e+00_jprb,7.6864e+00_jprb,&
&8.6584e+00_jprb,9.4768e+00_jprb,1.0934e+01_jprb/)
kao( :, 4, 5,10) = (/&
&5.2710e+00_jprb,4.6121e+00_jprb,4.6433e+00_jprb,5.8225e+00_jprb,6.9099e+00_jprb,7.9434e+00_jprb,&
&8.8623e+00_jprb,9.5919e+00_jprb,1.0860e+01_jprb/)
kao( :, 5, 5,10) = (/&
&6.4981e+00_jprb,5.6859e+00_jprb,5.1116e+00_jprb,6.1710e+00_jprb,7.2254e+00_jprb,8.2046e+00_jprb,&
&9.0650e+00_jprb,9.7138e+00_jprb,1.0789e+01_jprb/)
kao( :, 1, 6,10) = (/&
&1.5637e+00_jprb,2.2731e+00_jprb,3.6873e+00_jprb,5.0614e+00_jprb,6.3700e+00_jprb,7.6047e+00_jprb,&
&8.7790e+00_jprb,9.8692e+00_jprb,1.1665e+01_jprb/)
kao( :, 2, 6,10) = (/&
&2.2000e+00_jprb,2.5584e+00_jprb,3.9755e+00_jprb,5.3314e+00_jprb,6.6268e+00_jprb,7.8407e+00_jprb,&
&8.9633e+00_jprb,9.9641e+00_jprb,1.1590e+01_jprb/)
kao( :, 3, 6,10) = (/&
&2.9496e+00_jprb,2.8996e+00_jprb,4.2934e+00_jprb,5.6265e+00_jprb,6.9043e+00_jprb,8.0863e+00_jprb,&
&9.1639e+00_jprb,1.0078e+01_jprb,1.1504e+01_jprb/)
kao( :, 4, 6,10) = (/&
&3.8153e+00_jprb,3.4040e+00_jprb,4.6361e+00_jprb,5.9468e+00_jprb,7.1994e+00_jprb,8.3443e+00_jprb,&
&9.3743e+00_jprb,1.0202e+01_jprb,1.1405e+01_jprb/)
kao( :, 5, 6,10) = (/&
&4.7923e+00_jprb,4.1932e+00_jprb,5.0029e+00_jprb,6.2942e+00_jprb,7.4973e+00_jprb,8.6152e+00_jprb,&
&9.5722e+00_jprb,1.0324e+01_jprb,1.1282e+01_jprb/)
kao( :, 1, 7,10) = (/&
&1.0319e+00_jprb,2.2030e+00_jprb,3.7189e+00_jprb,5.1722e+00_jprb,6.5639e+00_jprb,7.8914e+00_jprb,&
&9.1498e+00_jprb,1.0323e+01_jprb,1.2175e+01_jprb/)
kao( :, 2, 7,10) = (/&
&1.5011e+00_jprb,2.4558e+00_jprb,3.9785e+00_jprb,5.4357e+00_jprb,6.8145e+00_jprb,8.1167e+00_jprb,&
&9.3258e+00_jprb,1.0416e+01_jprb,1.2083e+01_jprb/)
kao( :, 3, 7,10) = (/&
&2.0652e+00_jprb,2.7433e+00_jprb,4.2735e+00_jprb,5.7267e+00_jprb,7.0874e+00_jprb,8.3608e+00_jprb,&
&9.5223e+00_jprb,1.0531e+01_jprb,1.1978e+01_jprb/)
kao( :, 4, 7,10) = (/&
&2.7290e+00_jprb,3.0650e+00_jprb,4.6079e+00_jprb,6.0349e+00_jprb,7.3838e+00_jprb,8.6181e+00_jprb,&
&9.7231e+00_jprb,1.0649e+01_jprb,1.1858e+01_jprb/)
kao( :, 5, 7,10) = (/&
&3.4888e+00_jprb,3.4187e+00_jprb,4.9649e+00_jprb,6.3686e+00_jprb,7.6906e+00_jprb,8.8849e+00_jprb,&
&9.9240e+00_jprb,1.0751e+01_jprb,1.1715e+01_jprb/)
kao( :, 1, 8,10) = (/&
&6.7247e-01_jprb,2.1299e+00_jprb,3.7166e+00_jprb,5.2113e+00_jprb,6.6383e+00_jprb,8.0164e+00_jprb,&
&9.3365e+00_jprb,1.0603e+01_jprb,1.2480e+01_jprb/)
kao( :, 2, 8,10) = (/&
&1.0116e+00_jprb,2.3605e+00_jprb,3.9609e+00_jprb,5.4626e+00_jprb,6.8806e+00_jprb,8.2311e+00_jprb,&
&9.5015e+00_jprb,1.0678e+01_jprb,1.2368e+01_jprb/)
kao( :, 3, 8,10) = (/&
&1.4308e+00_jprb,2.6245e+00_jprb,4.2324e+00_jprb,5.7459e+00_jprb,7.1525e+00_jprb,8.4713e+00_jprb,&
&9.6847e+00_jprb,1.0770e+01_jprb,1.2245e+01_jprb/)
kao( :, 4, 8,10) = (/&
&1.9350e+00_jprb,2.9206e+00_jprb,4.5353e+00_jprb,6.0493e+00_jprb,7.4438e+00_jprb,8.7255e+00_jprb,&
&9.8811e+00_jprb,1.0861e+01_jprb,1.2099e+01_jprb/)
kao( :, 5, 8,10) = (/&
&2.5213e+00_jprb,3.2436e+00_jprb,4.8666e+00_jprb,6.3763e+00_jprb,7.7488e+00_jprb,8.9884e+00_jprb,&
&1.0076e+01_jprb,1.0954e+01_jprb,1.1942e+01_jprb/)
kao( :, 1, 9,10) = (/&
&4.3208e-01_jprb,2.0475e+00_jprb,3.6377e+00_jprb,5.1514e+00_jprb,6.6073e+00_jprb,8.0088e+00_jprb,&
&9.3664e+00_jprb,1.0689e+01_jprb,1.2722e+01_jprb/)
kao( :, 2, 9,10) = (/&
&6.7092e-01_jprb,2.2446e+00_jprb,3.8634e+00_jprb,5.3834e+00_jprb,6.8242e+00_jprb,8.1962e+00_jprb,&
&9.5019e+00_jprb,1.0731e+01_jprb,1.2602e+01_jprb/)
kao( :, 3, 9,10) = (/&
&9.7959e-01_jprb,2.4790e+00_jprb,4.1220e+00_jprb,5.6464e+00_jprb,7.0720e+00_jprb,8.4107e+00_jprb,&
&9.6598e+00_jprb,1.0791e+01_jprb,1.2470e+01_jprb/)
kao( :, 4, 9,10) = (/&
&1.3555e+00_jprb,2.7516e+00_jprb,4.4105e+00_jprb,5.9355e+00_jprb,7.3438e+00_jprb,8.6425e+00_jprb,&
&9.8283e+00_jprb,1.0860e+01_jprb,1.2324e+01_jprb/)
kao( :, 5, 9,10) = (/&
&1.8036e+00_jprb,3.0512e+00_jprb,4.7212e+00_jprb,6.2493e+00_jprb,7.6308e+00_jprb,8.8891e+00_jprb,&
&1.0011e+01_jprb,1.0943e+01_jprb,1.2174e+01_jprb/)
kao( :, 1,10,10) = (/&
&2.8562e-01_jprb,1.9513e+00_jprb,3.5205e+00_jprb,5.0276e+00_jprb,6.5019e+00_jprb,7.9388e+00_jprb,&
&9.3417e+00_jprb,1.0714e+01_jprb,1.3024e+01_jprb/)
kao( :, 2,10,10) = (/&
&4.5369e-01_jprb,2.1274e+00_jprb,3.7193e+00_jprb,5.2300e+00_jprb,6.6874e+00_jprb,8.0937e+00_jprb,&
&9.4530e+00_jprb,1.0753e+01_jprb,1.2922e+01_jprb/)
kao( :, 3,10,10) = (/&
&6.8195e-01_jprb,2.3352e+00_jprb,3.9538e+00_jprb,5.4609e+00_jprb,6.8984e+00_jprb,8.2697e+00_jprb,&
&9.5779e+00_jprb,1.0802e+01_jprb,1.2803e+01_jprb/)
kao( :, 4,10,10) = (/&
&9.6434e-01_jprb,2.5767e+00_jprb,4.2212e+00_jprb,5.7204e+00_jprb,7.1311e+00_jprb,8.4647e+00_jprb,&
&9.7207e+00_jprb,1.0863e+01_jprb,1.2673e+01_jprb/)
kao( :, 5,10,10) = (/&
&1.3075e+00_jprb,2.8520e+00_jprb,4.5133e+00_jprb,6.0099e+00_jprb,7.3901e+00_jprb,8.6775e+00_jprb,&
&9.8779e+00_jprb,1.0938e+01_jprb,1.2543e+01_jprb/)
kao( :, 1,11,10) = (/&
&2.3625e-01_jprb,1.9181e+00_jprb,3.5155e+00_jprb,5.0744e+00_jprb,6.6008e+00_jprb,8.0955e+00_jprb,&
&9.5644e+00_jprb,1.1013e+01_jprb,1.3397e+01_jprb/)
kao( :, 2,11,10) = (/&
&3.7530e-01_jprb,2.0748e+00_jprb,3.6829e+00_jprb,5.2358e+00_jprb,6.7464e+00_jprb,8.2221e+00_jprb,&
&9.6585e+00_jprb,1.1047e+01_jprb,1.3278e+01_jprb/)
kao( :, 3,11,10) = (/&
&5.6319e-01_jprb,2.2660e+00_jprb,3.8799e+00_jprb,5.4224e+00_jprb,6.9139e+00_jprb,8.3641e+00_jprb,&
&9.7629e+00_jprb,1.1090e+01_jprb,1.3144e+01_jprb/)
kao( :, 4,11,10) = (/&
&7.9630e-01_jprb,2.4928e+00_jprb,4.1097e+00_jprb,5.6369e+00_jprb,7.1043e+00_jprb,8.5217e+00_jprb,&
&9.8785e+00_jprb,1.1143e+01_jprb,1.3008e+01_jprb/)
kao( :, 5,11,10) = (/&
&1.0789e+00_jprb,2.7503e+00_jprb,4.3718e+00_jprb,5.8827e+00_jprb,7.3180e+00_jprb,8.6936e+00_jprb,&
&9.9992e+00_jprb,1.1196e+01_jprb,1.2862e+01_jprb/)
kao( :, 1,12,10) = (/&
&1.9532e-01_jprb,1.9250e+00_jprb,3.5848e+00_jprb,5.1929e+00_jprb,6.7611e+00_jprb,8.3016e+00_jprb,&
&9.8096e+00_jprb,1.1276e+01_jprb,1.3592e+01_jprb/)
kao( :, 2,12,10) = (/&
&3.1059e-01_jprb,2.0481e+00_jprb,3.7225e+00_jprb,5.3350e+00_jprb,6.8984e+00_jprb,8.4223e+00_jprb,&
&9.8976e+00_jprb,1.1304e+01_jprb,1.3454e+01_jprb/)
kao( :, 3,12,10) = (/&
&4.6509e-01_jprb,2.2010e+00_jprb,3.8811e+00_jprb,5.4933e+00_jprb,7.0507e+00_jprb,8.5551e+00_jprb,&
&9.9951e+00_jprb,1.1342e+01_jprb,1.3311e+01_jprb/)
kao( :, 4,12,10) = (/&
&6.5689e-01_jprb,2.3881e+00_jprb,4.0636e+00_jprb,5.6724e+00_jprb,7.2165e+00_jprb,8.6961e+00_jprb,&
&1.0098e+01_jprb,1.1383e+01_jprb,1.3165e+01_jprb/)
kao( :, 5,12,10) = (/&
&8.9052e-01_jprb,2.6097e+00_jprb,4.2735e+00_jprb,5.8670e+00_jprb,7.3919e+00_jprb,8.8391e+00_jprb,&
&1.0193e+01_jprb,1.1412e+01_jprb,1.2995e+01_jprb/)
kao( :, 1,13,10) = (/&
&1.6125e-01_jprb,1.9342e+00_jprb,3.5999e+00_jprb,5.2092e+00_jprb,6.7843e+00_jprb,8.3295e+00_jprb,&
&9.8358e+00_jprb,1.1294e+01_jprb,1.3567e+01_jprb/)
kao( :, 2,13,10) = (/&
&2.5632e-01_jprb,2.0509e+00_jprb,3.7362e+00_jprb,5.3503e+00_jprb,6.9167e+00_jprb,8.4371e+00_jprb,&
&9.9071e+00_jprb,1.1309e+01_jprb,1.3421e+01_jprb/)
kao( :, 3,13,10) = (/&
&3.8326e-01_jprb,2.1844e+00_jprb,3.8935e+00_jprb,5.5111e+00_jprb,7.0668e+00_jprb,8.5618e+00_jprb,&
&9.9929e+00_jprb,1.1334e+01_jprb,1.3271e+01_jprb/)
kao( :, 4,13,10) = (/&
&5.4156e-01_jprb,2.3369e+00_jprb,4.0660e+00_jprb,5.6864e+00_jprb,7.2274e+00_jprb,8.6942e+00_jprb,&
&1.0083e+01_jprb,1.1355e+01_jprb,1.3103e+01_jprb/)
kao( :, 5,13,10) = (/&
&7.3401e-01_jprb,2.5129e+00_jprb,4.2495e+00_jprb,5.8694e+00_jprb,7.3940e+00_jprb,8.8302e+00_jprb,&
&1.0173e+01_jprb,1.1375e+01_jprb,1.2923e+01_jprb/)
kao( :, 1, 1,11) = (/&
&1.2249e+01_jprb,1.0718e+01_jprb,9.1868e+00_jprb,7.6557e+00_jprb,6.1245e+00_jprb,5.7627e+00_jprb,&
&6.3444e+00_jprb,6.9424e+00_jprb,1.9044e+01_jprb/)
kao( :, 2, 1,11) = (/&
&1.5357e+01_jprb,1.3437e+01_jprb,1.1518e+01_jprb,9.5981e+00_jprb,7.6785e+00_jprb,6.1637e+00_jprb,&
&6.5230e+00_jprb,7.0281e+00_jprb,2.1345e+01_jprb/)
kao( :, 3, 1,11) = (/&
&1.8886e+01_jprb,1.6526e+01_jprb,1.4165e+01_jprb,1.1804e+01_jprb,9.4432e+00_jprb,7.1211e+00_jprb,&
&6.7255e+00_jprb,7.1348e+00_jprb,2.3750e+01_jprb/)
kao( :, 4, 1,11) = (/&
&2.2784e+01_jprb,1.9936e+01_jprb,1.7088e+01_jprb,1.4240e+01_jprb,1.1392e+01_jprb,8.5439e+00_jprb,&
&6.9461e+00_jprb,7.2435e+00_jprb,2.6291e+01_jprb/)
kao( :, 5, 1,11) = (/&
&2.6987e+01_jprb,2.3613e+01_jprb,2.0240e+01_jprb,1.6867e+01_jprb,1.3493e+01_jprb,1.0120e+01_jprb,&
&7.2891e+00_jprb,7.3404e+00_jprb,2.9031e+01_jprb/)
kao( :, 1, 2,11) = (/&
&9.7136e+00_jprb,8.4994e+00_jprb,7.2852e+00_jprb,6.0710e+00_jprb,5.6278e+00_jprb,6.3983e+00_jprb,&
&7.1952e+00_jprb,7.9135e+00_jprb,1.3515e+01_jprb/)
kao( :, 2, 2,11) = (/&
&1.2396e+01_jprb,1.0847e+01_jprb,9.2971e+00_jprb,7.7476e+00_jprb,6.3714e+00_jprb,6.6654e+00_jprb,&
&7.3884e+00_jprb,8.0262e+00_jprb,1.4990e+01_jprb/)
kao( :, 3, 2,11) = (/&
&1.5432e+01_jprb,1.3503e+01_jprb,1.1574e+01_jprb,9.6447e+00_jprb,7.7158e+00_jprb,6.9761e+00_jprb,&
&7.5844e+00_jprb,8.1568e+00_jprb,1.6717e+01_jprb/)
kao( :, 4, 2,11) = (/&
&1.8816e+01_jprb,1.6464e+01_jprb,1.4112e+01_jprb,1.1760e+01_jprb,9.4077e+00_jprb,7.5034e+00_jprb,&
&7.7791e+00_jprb,8.2755e+00_jprb,1.8558e+01_jprb/)
kao( :, 5, 2,11) = (/&
&2.2537e+01_jprb,1.9720e+01_jprb,1.6903e+01_jprb,1.4086e+01_jprb,1.1268e+01_jprb,8.5223e+00_jprb,&
&7.9761e+00_jprb,8.3719e+00_jprb,2.0482e+01_jprb/)
kao( :, 1, 3,11) = (/&
&7.2299e+00_jprb,6.3262e+00_jprb,5.4224e+00_jprb,5.1159e+00_jprb,6.1132e+00_jprb,7.1369e+00_jprb,&
&8.1089e+00_jprb,8.9636e+00_jprb,1.1955e+01_jprb/)
kao( :, 2, 3,11) = (/&
&9.3918e+00_jprb,8.2178e+00_jprb,7.0438e+00_jprb,5.9613e+00_jprb,6.4360e+00_jprb,7.3941e+00_jprb,&
&8.3154e+00_jprb,9.1046e+00_jprb,1.2271e+01_jprb/)
kao( :, 3, 3,11) = (/&
&1.1905e+01_jprb,1.0417e+01_jprb,8.9285e+00_jprb,7.4405e+00_jprb,6.8201e+00_jprb,7.6628e+00_jprb,&
&8.5181e+00_jprb,9.2389e+00_jprb,1.2625e+01_jprb/)
kao( :, 4, 3,11) = (/&
&1.4757e+01_jprb,1.2912e+01_jprb,1.1068e+01_jprb,9.2230e+00_jprb,7.6302e+00_jprb,7.9463e+00_jprb,&
&8.7305e+00_jprb,9.3535e+00_jprb,1.3024e+01_jprb/)
kao( :, 5, 3,11) = (/&
&1.7893e+01_jprb,1.5656e+01_jprb,1.3420e+01_jprb,1.1183e+01_jprb,8.9555e+00_jprb,8.2708e+00_jprb,&
&8.9555e+00_jprb,9.4787e+00_jprb,1.3397e+01_jprb/)
kao( :, 1, 4,11) = (/&
&5.1773e+00_jprb,4.5301e+00_jprb,4.2164e+00_jprb,5.4189e+00_jprb,6.6862e+00_jprb,7.9110e+00_jprb,&
&9.0375e+00_jprb,1.0082e+01_jprb,1.2163e+01_jprb/)
kao( :, 2, 4,11) = (/&
&6.8907e+00_jprb,6.0294e+00_jprb,5.1859e+00_jprb,5.7789e+00_jprb,6.9881e+00_jprb,8.1777e+00_jprb,&
&9.2600e+00_jprb,1.0217e+01_jprb,1.2164e+01_jprb/)
kao( :, 3, 4,11) = (/&
&8.9163e+00_jprb,7.8018e+00_jprb,6.6872e+00_jprb,6.2510e+00_jprb,7.3281e+00_jprb,8.4646e+00_jprb,&
&9.5034e+00_jprb,1.0348e+01_jprb,1.2247e+01_jprb/)
kao( :, 4, 4,11) = (/&
&1.1229e+01_jprb,9.8256e+00_jprb,8.4220e+00_jprb,7.1712e+00_jprb,7.6975e+00_jprb,8.7686e+00_jprb,&
&9.7453e+00_jprb,1.0493e+01_jprb,1.2364e+01_jprb/)
kao( :, 5, 4,11) = (/&
&1.3839e+01_jprb,1.2109e+01_jprb,1.0379e+01_jprb,8.6495e+00_jprb,8.1169e+00_jprb,9.0750e+00_jprb,&
&9.9810e+00_jprb,1.0635e+01_jprb,1.2462e+01_jprb/)
kao( :, 1, 5,11) = (/&
&3.6436e+00_jprb,3.1897e+00_jprb,4.3289e+00_jprb,5.8481e+00_jprb,7.3102e+00_jprb,8.6929e+00_jprb,&
&9.9995e+00_jprb,1.1197e+01_jprb,1.3283e+01_jprb/)
kao( :, 2, 5,11) = (/&
&4.9664e+00_jprb,4.3456e+00_jprb,4.6924e+00_jprb,6.1837e+00_jprb,7.6374e+00_jprb,8.9934e+00_jprb,&
&1.0249e+01_jprb,1.1339e+01_jprb,1.3236e+01_jprb/)
kao( :, 3, 5,11) = (/&
&6.5513e+00_jprb,5.7324e+00_jprb,5.2481e+00_jprb,6.5577e+00_jprb,7.9818e+00_jprb,9.3087e+00_jprb,&
&1.0503e+01_jprb,1.1501e+01_jprb,1.3169e+01_jprb/)
kao( :, 4, 5,11) = (/&
&8.4164e+00_jprb,7.3644e+00_jprb,6.3448e+00_jprb,6.9578e+00_jprb,8.3373e+00_jprb,9.6258e+00_jprb,&
&1.0752e+01_jprb,1.1656e+01_jprb,1.3106e+01_jprb/)
kao( :, 5, 5,11) = (/&
&1.0527e+01_jprb,9.2115e+00_jprb,7.8956e+00_jprb,7.4639e+00_jprb,8.6974e+00_jprb,9.9429e+00_jprb,&
&1.0997e+01_jprb,1.1797e+01_jprb,1.3036e+01_jprb/)
kao( :, 1, 6,11) = (/&
&2.4932e+00_jprb,2.7486e+00_jprb,4.5320e+00_jprb,6.2546e+00_jprb,7.8988e+00_jprb,9.4652e+00_jprb,&
&1.0939e+01_jprb,1.2316e+01_jprb,1.4467e+01_jprb/)
kao( :, 2, 6,11) = (/&
&3.4773e+00_jprb,3.1985e+00_jprb,4.8742e+00_jprb,6.5999e+00_jprb,8.2329e+00_jprb,9.7664e+00_jprb,&
&1.1186e+01_jprb,1.2469e+01_jprb,1.4417e+01_jprb/)
kao( :, 3, 6,11) = (/&
&4.6971e+00_jprb,4.1115e+00_jprb,5.2651e+00_jprb,6.9733e+00_jprb,8.5867e+00_jprb,1.0084e+01_jprb,&
&1.1436e+01_jprb,1.2624e+01_jprb,1.4351e+01_jprb/)
kao( :, 4, 6,11) = (/&
&6.1495e+00_jprb,5.3808e+00_jprb,5.6975e+00_jprb,7.3726e+00_jprb,8.9642e+00_jprb,1.0415e+01_jprb,&
&1.1698e+01_jprb,1.2772e+01_jprb,1.4267e+01_jprb/)
kao( :, 5, 6,11) = (/&
&7.8284e+00_jprb,6.8498e+00_jprb,6.3225e+00_jprb,7.7926e+00_jprb,9.3619e+00_jprb,1.0759e+01_jprb,&
&1.1977e+01_jprb,1.2918e+01_jprb,1.4175e+01_jprb/)
kao( :, 1, 7,11) = (/&
&1.6743e+00_jprb,2.7740e+00_jprb,4.7631e+00_jprb,6.6392e+00_jprb,8.4234e+00_jprb,1.0141e+01_jprb,&
&1.1784e+01_jprb,1.3373e+01_jprb,1.5635e+01_jprb/)
kao( :, 2, 7,11) = (/&
&2.3935e+00_jprb,3.0856e+00_jprb,5.0953e+00_jprb,6.9911e+00_jprb,8.7690e+00_jprb,1.0447e+01_jprb,&
&1.2034e+01_jprb,1.3500e+01_jprb,1.5579e+01_jprb/)
kao( :, 3, 7,11) = (/&
&3.3116e+00_jprb,3.4457e+00_jprb,5.4635e+00_jprb,7.3709e+00_jprb,9.1406e+00_jprb,1.0784e+01_jprb,&
&1.2298e+01_jprb,1.3644e+01_jprb,1.5506e+01_jprb/)
kao( :, 4, 7,11) = (/&
&4.4248e+00_jprb,4.0263e+00_jprb,5.8643e+00_jprb,7.7821e+00_jprb,9.5339e+00_jprb,1.1137e+01_jprb,&
&1.2583e+01_jprb,1.3796e+01_jprb,1.5411e+01_jprb/)
kao( :, 5, 7,11) = (/&
&5.7412e+00_jprb,5.0279e+00_jprb,6.2969e+00_jprb,8.2091e+00_jprb,9.9459e+00_jprb,1.1502e+01_jprb,&
&1.2876e+01_jprb,1.3971e+01_jprb,1.5296e+01_jprb/)
kao( :, 1, 8,11) = (/&
&1.1086e+00_jprb,2.8048e+00_jprb,4.9324e+00_jprb,6.9454e+00_jprb,8.8812e+00_jprb,1.0739e+01_jprb,&
&1.2537e+01_jprb,1.4271e+01_jprb,1.6686e+01_jprb/)
kao( :, 2, 8,11) = (/&
&1.6296e+00_jprb,3.0851e+00_jprb,5.2594e+00_jprb,7.2944e+00_jprb,9.2229e+00_jprb,1.1045e+01_jprb,&
&1.2773e+01_jprb,1.4378e+01_jprb,1.6616e+01_jprb/)
kao( :, 3, 8,11) = (/&
&2.3055e+00_jprb,3.4160e+00_jprb,5.6286e+00_jprb,7.6727e+00_jprb,9.5919e+00_jprb,1.1383e+01_jprb,&
&1.3041e+01_jprb,1.4518e+01_jprb,1.6520e+01_jprb/)
kao( :, 4, 8,11) = (/&
&3.1507e+00_jprb,3.7895e+00_jprb,6.0300e+00_jprb,8.0860e+00_jprb,9.9827e+00_jprb,1.1736e+01_jprb,&
&1.3326e+01_jprb,1.4687e+01_jprb,1.6411e+01_jprb/)
kao( :, 5, 8,11) = (/&
&4.1629e+00_jprb,4.2135e+00_jprb,6.4636e+00_jprb,8.5234e+00_jprb,1.0396e+01_jprb,1.2103e+01_jprb,&
&1.3619e+01_jprb,1.4867e+01_jprb,1.6271e+01_jprb/)
kao( :, 1, 9,11) = (/&
&7.2274e-01_jprb,2.8188e+00_jprb,5.0463e+00_jprb,7.1564e+00_jprb,9.1934e+00_jprb,1.1175e+01_jprb,&
&1.3093e+01_jprb,1.4982e+01_jprb,1.7490e+01_jprb/)
kao( :, 2, 9,11) = (/&
&1.0936e+00_jprb,3.0846e+00_jprb,5.3597e+00_jprb,7.4879e+00_jprb,9.5212e+00_jprb,1.1468e+01_jprb,&
&1.3317e+01_jprb,1.5061e+01_jprb,1.7405e+01_jprb/)
kao( :, 3, 9,11) = (/&
&1.5844e+00_jprb,3.3914e+00_jprb,5.7218e+00_jprb,7.8597e+00_jprb,9.8794e+00_jprb,1.1792e+01_jprb,&
&1.3571e+01_jprb,1.5196e+01_jprb,1.7299e+01_jprb/)
kao( :, 4, 9,11) = (/&
&2.2133e+00_jprb,3.7382e+00_jprb,6.1198e+00_jprb,8.2738e+00_jprb,1.0272e+01_jprb,1.2140e+01_jprb,&
&1.3853e+01_jprb,1.5355e+01_jprb,1.7167e+01_jprb/)
kao( :, 5, 9,11) = (/&
&2.9830e+00_jprb,4.1284e+00_jprb,6.5526e+00_jprb,8.7144e+00_jprb,1.0697e+01_jprb,1.2510e+01_jprb,&
&1.4140e+01_jprb,1.5515e+01_jprb,1.7007e+01_jprb/)
kao( :, 1,10,11) = (/&
&4.8237e-01_jprb,2.8147e+00_jprb,5.0928e+00_jprb,7.2773e+00_jprb,9.3839e+00_jprb,1.1437e+01_jprb,&
&1.3443e+01_jprb,1.5464e+01_jprb,1.8003e+01_jprb/)
kao( :, 2,10,11) = (/&
&7.4855e-01_jprb,3.0669e+00_jprb,5.3977e+00_jprb,7.5863e+00_jprb,9.6799e+00_jprb,1.1699e+01_jprb,&
&1.3634e+01_jprb,1.5493e+01_jprb,1.7884e+01_jprb/)
kao( :, 3,10,11) = (/&
&1.1085e+00_jprb,3.3611e+00_jprb,5.7474e+00_jprb,7.9493e+00_jprb,1.0026e+01_jprb,1.2005e+01_jprb,&
&1.3869e+01_jprb,1.5596e+01_jprb,1.7749e+01_jprb/)
kao( :, 4,10,11) = (/&
&1.5772e+00_jprb,3.6970e+00_jprb,6.1332e+00_jprb,8.3566e+00_jprb,1.0418e+01_jprb,1.2345e+01_jprb,&
&1.4128e+01_jprb,1.5721e+01_jprb,1.7584e+01_jprb/)
kao( :, 5,10,11) = (/&
&2.1652e+00_jprb,4.0698e+00_jprb,6.5606e+00_jprb,8.7912e+00_jprb,1.0837e+01_jprb,1.2714e+01_jprb,&
&1.4407e+01_jprb,1.5850e+01_jprb,1.7388e+01_jprb/)
kao( :, 1,11,11) = (/&
&3.9938e-01_jprb,2.8599e+00_jprb,5.1737e+00_jprb,7.3744e+00_jprb,9.5072e+00_jprb,1.1586e+01_jprb,&
&1.3611e+01_jprb,1.5598e+01_jprb,1.8201e+01_jprb/)
kao( :, 2,11,11) = (/&
&6.1944e-01_jprb,3.1115e+00_jprb,5.4721e+00_jprb,7.6865e+00_jprb,9.8054e+00_jprb,1.1843e+01_jprb,&
&1.3793e+01_jprb,1.5638e+01_jprb,1.8068e+01_jprb/)
kao( :, 3,11,11) = (/&
&9.1846e-01_jprb,3.4110e+00_jprb,5.8171e+00_jprb,8.0466e+00_jprb,1.0149e+01_jprb,1.2140e+01_jprb,&
&1.4010e+01_jprb,1.5725e+01_jprb,1.7913e+01_jprb/)
kao( :, 4,11,11) = (/&
&1.3105e+00_jprb,3.7482e+00_jprb,6.2097e+00_jprb,8.4443e+00_jprb,1.0527e+01_jprb,1.2468e+01_jprb,&
&1.4250e+01_jprb,1.5828e+01_jprb,1.7729e+01_jprb/)
kao( :, 5,11,11) = (/&
&1.7999e+00_jprb,4.1235e+00_jprb,6.6430e+00_jprb,8.8791e+00_jprb,1.0932e+01_jprb,1.2815e+01_jprb,&
&1.4506e+01_jprb,1.5945e+01_jprb,1.7528e+01_jprb/)
kao( :, 1,12,11) = (/&
&3.3001e-01_jprb,2.8413e+00_jprb,5.1496e+00_jprb,7.3701e+00_jprb,9.5381e+00_jprb,1.1655e+01_jprb,&
&1.3720e+01_jprb,1.5739e+01_jprb,1.8506e+01_jprb/)
kao( :, 2,12,11) = (/&
&5.1236e-01_jprb,3.0945e+00_jprb,5.4327e+00_jprb,7.6537e+00_jprb,9.8045e+00_jprb,1.1878e+01_jprb,&
&1.3880e+01_jprb,1.5791e+01_jprb,1.8378e+01_jprb/)
kao( :, 3,12,11) = (/&
&7.6165e-01_jprb,3.3895e+00_jprb,5.7691e+00_jprb,7.9857e+00_jprb,1.0106e+01_jprb,1.2132e+01_jprb,&
&1.4063e+01_jprb,1.5865e+01_jprb,1.8221e+01_jprb/)
kao( :, 4,12,11) = (/&
&1.0868e+00_jprb,3.7244e+00_jprb,6.1541e+00_jprb,8.3616e+00_jprb,1.0442e+01_jprb,1.2411e+01_jprb,&
&1.4266e+01_jprb,1.5951e+01_jprb,1.8046e+01_jprb/)
kao( :, 5,12,11) = (/&
&1.4941e+00_jprb,4.0983e+00_jprb,6.5760e+00_jprb,8.7801e+00_jprb,1.0819e+01_jprb,1.2722e+01_jprb,&
&1.4491e+01_jprb,1.6054e+01_jprb,1.7865e+01_jprb/)
kao( :, 1,13,11) = (/&
&2.7270e-01_jprb,2.8097e+00_jprb,5.1608e+00_jprb,7.4465e+00_jprb,9.6830e+00_jprb,1.1871e+01_jprb,&
&1.4022e+01_jprb,1.6138e+01_jprb,1.9047e+01_jprb/)
kao( :, 2,13,11) = (/&
&4.2335e-01_jprb,3.0310e+00_jprb,5.4040e+00_jprb,7.6870e+00_jprb,9.9007e+00_jprb,1.2059e+01_jprb,&
&1.4159e+01_jprb,1.6185e+01_jprb,1.8912e+01_jprb/)
kao( :, 3,13,11) = (/&
&6.2933e-01_jprb,3.3002e+00_jprb,5.6896e+00_jprb,7.9624e+00_jprb,1.0150e+01_jprb,1.2270e+01_jprb,&
&1.4311e+01_jprb,1.6247e+01_jprb,1.8754e+01_jprb/)
kao( :, 4,13,11) = (/&
&8.9928e-01_jprb,3.6212e+00_jprb,6.0182e+00_jprb,8.2763e+00_jprb,1.0433e+01_jprb,1.2504e+01_jprb,&
&1.4478e+01_jprb,1.6320e+01_jprb,1.8583e+01_jprb/)
kao( :, 5,13,11) = (/&
&1.2370e+00_jprb,3.9832e+00_jprb,6.3965e+00_jprb,8.6284e+00_jprb,1.0744e+01_jprb,1.2756e+01_jprb,&
&1.4653e+01_jprb,1.6388e+01_jprb,1.8390e+01_jprb/)
kao( :, 1, 1,12) = (/&
&1.9306e+01_jprb,1.6893e+01_jprb,1.4480e+01_jprb,1.2067e+01_jprb,9.6532e+00_jprb,7.2945e+00_jprb,&
&6.9148e+00_jprb,7.5278e+00_jprb,2.3433e+01_jprb/)
kao( :, 2, 1,12) = (/&
&2.4650e+01_jprb,2.1569e+01_jprb,1.8488e+01_jprb,1.5406e+01_jprb,1.2325e+01_jprb,9.2438e+00_jprb,&
&7.2171e+00_jprb,7.6406e+00_jprb,2.6606e+01_jprb/)
kao( :, 3, 1,12) = (/&
&3.0678e+01_jprb,2.6843e+01_jprb,2.3008e+01_jprb,1.9174e+01_jprb,1.5339e+01_jprb,1.1504e+01_jprb,&
&7.9763e+00_jprb,7.7730e+00_jprb,2.9832e+01_jprb/)
kao( :, 4, 1,12) = (/&
&3.7441e+01_jprb,3.2761e+01_jprb,2.8081e+01_jprb,2.3400e+01_jprb,1.8720e+01_jprb,1.4040e+01_jprb,&
&9.3666e+00_jprb,7.8947e+00_jprb,3.2935e+01_jprb/)
kao( :, 5, 1,12) = (/&
&4.5012e+01_jprb,3.9386e+01_jprb,3.3759e+01_jprb,2.8133e+01_jprb,2.2506e+01_jprb,1.6880e+01_jprb,&
&1.1253e+01_jprb,8.0012e+00_jprb,3.6133e+01_jprb/)
kao( :, 1, 2,12) = (/&
&1.5936e+01_jprb,1.3944e+01_jprb,1.1952e+01_jprb,9.9601e+00_jprb,7.9681e+00_jprb,7.1477e+00_jprb,&
&7.9439e+00_jprb,8.7252e+00_jprb,1.6736e+01_jprb/)
kao( :, 2, 2,12) = (/&
&2.0659e+01_jprb,1.8076e+01_jprb,1.5494e+01_jprb,1.2912e+01_jprb,1.0329e+01_jprb,8.0751e+00_jprb,&
&8.1865e+00_jprb,8.8715e+00_jprb,1.8751e+01_jprb/)
kao( :, 3, 2,12) = (/&
&2.6211e+01_jprb,2.2935e+01_jprb,1.9658e+01_jprb,1.6382e+01_jprb,1.3106e+01_jprb,9.8303e+00_jprb,&
&8.4476e+00_jprb,9.0112e+00_jprb,2.0857e+01_jprb/)
kao( :, 4, 2,12) = (/&
&3.2434e+01_jprb,2.8380e+01_jprb,2.4326e+01_jprb,2.0271e+01_jprb,1.6217e+01_jprb,1.2163e+01_jprb,&
&8.9851e+00_jprb,9.1339e+00_jprb,2.2883e+01_jprb/)
kao( :, 5, 2,12) = (/&
&3.9217e+01_jprb,3.4315e+01_jprb,2.9413e+01_jprb,2.4511e+01_jprb,1.9608e+01_jprb,1.4706e+01_jprb,&
&1.0077e+01_jprb,9.2744e+00_jprb,2.5016e+01_jprb/)
kao( :, 1, 3,12) = (/&
&1.2204e+01_jprb,1.0678e+01_jprb,9.1529e+00_jprb,7.6274e+00_jprb,7.0064e+00_jprb,8.0165e+00_jprb,&
&9.1087e+00_jprb,1.0091e+01_jprb,1.3158e+01_jprb/)
kao( :, 2, 3,12) = (/&
&1.6264e+01_jprb,1.4231e+01_jprb,1.2198e+01_jprb,1.0165e+01_jprb,8.2928e+00_jprb,8.3522e+00_jprb,&
&9.3382e+00_jprb,1.0239e+01_jprb,1.3470e+01_jprb/)
kao( :, 3, 3,12) = (/&
&2.0966e+01_jprb,1.8346e+01_jprb,1.5725e+01_jprb,1.3104e+01_jprb,1.0483e+01_jprb,8.9163e+00_jprb,&
&9.5941e+00_jprb,1.0378e+01_jprb,1.3791e+01_jprb/)
kao( :, 4, 3,12) = (/&
&2.6346e+01_jprb,2.3053e+01_jprb,1.9760e+01_jprb,1.6466e+01_jprb,1.3173e+01_jprb,1.0186e+01_jprb,&
&9.8769e+00_jprb,1.0543e+01_jprb,1.4208e+01_jprb/)
kao( :, 5, 3,12) = (/&
&3.2499e+01_jprb,2.8437e+01_jprb,2.4374e+01_jprb,2.0312e+01_jprb,1.6250e+01_jprb,1.2192e+01_jprb,&
&1.0198e+01_jprb,1.0709e+01_jprb,1.4690e+01_jprb/)
kao( :, 1, 4,12) = (/&
&9.0048e+00_jprb,7.8792e+00_jprb,6.7536e+00_jprb,6.3903e+00_jprb,7.6603e+00_jprb,9.0569e+00_jprb,&
&1.0373e+01_jprb,1.1571e+01_jprb,1.3828e+01_jprb/)
kao( :, 2, 4,12) = (/&
&1.2261e+01_jprb,1.0728e+01_jprb,9.1954e+00_jprb,7.7773e+00_jprb,8.0813e+00_jprb,9.3965e+00_jprb,&
&1.0654e+01_jprb,1.1734e+01_jprb,1.3859e+01_jprb/)
kao( :, 3, 4,12) = (/&
&1.6168e+01_jprb,1.4147e+01_jprb,1.2126e+01_jprb,1.0105e+01_jprb,8.8961e+00_jprb,9.7573e+00_jprb,&
&1.0940e+01_jprb,1.1931e+01_jprb,1.3916e+01_jprb/)
kao( :, 4, 4,12) = (/&
&2.0801e+01_jprb,1.8201e+01_jprb,1.5600e+01_jprb,1.3000e+01_jprb,1.0554e+01_jprb,1.0169e+01_jprb,&
&1.1223e+01_jprb,1.2118e+01_jprb,1.4034e+01_jprb/)
kao( :, 5, 4,12) = (/&
&2.5988e+01_jprb,2.2740e+01_jprb,1.9491e+01_jprb,1.6243e+01_jprb,1.2994e+01_jprb,1.0946e+01_jprb,&
&1.1496e+01_jprb,1.2284e+01_jprb,1.4164e+01_jprb/)
kao( :, 1, 5,12) = (/&
&6.4609e+00_jprb,5.6532e+00_jprb,5.2932e+00_jprb,6.8539e+00_jprb,8.5960e+00_jprb,1.0239e+01_jprb,&
&1.1787e+01_jprb,1.3220e+01_jprb,1.5562e+01_jprb/)
kao( :, 2, 5,12) = (/&
&9.0364e+00_jprb,7.9068e+00_jprb,6.8055e+00_jprb,7.2952e+00_jprb,8.9859e+00_jprb,1.0601e+01_jprb,&
&1.2085e+01_jprb,1.3419e+01_jprb,1.5565e+01_jprb/)
kao( :, 3, 5,12) = (/&
&1.2240e+01_jprb,1.0710e+01_jprb,9.1797e+00_jprb,8.2618e+00_jprb,9.3995e+00_jprb,1.0970e+01_jprb,&
&1.2380e+01_jprb,1.3618e+01_jprb,1.5546e+01_jprb/)
kao( :, 4, 5,12) = (/&
&1.6001e+01_jprb,1.4001e+01_jprb,1.2001e+01_jprb,1.0093e+01_jprb,9.9460e+00_jprb,1.1348e+01_jprb,&
&1.2695e+01_jprb,1.3806e+01_jprb,1.5493e+01_jprb/)
kao( :, 5, 5,12) = (/&
&2.0392e+01_jprb,1.7843e+01_jprb,1.5294e+01_jprb,1.2745e+01_jprb,1.1072e+01_jprb,1.1762e+01_jprb,&
&1.3031e+01_jprb,1.4007e+01_jprb,1.5413e+01_jprb/)
kao( :, 1, 6,12) = (/&
&4.4633e+00_jprb,3.9388e+00_jprb,5.4668e+00_jprb,7.5584e+00_jprb,9.5392e+00_jprb,1.1432e+01_jprb,&
&1.3234e+01_jprb,1.4983e+01_jprb,1.7552e+01_jprb/)
kao( :, 2, 6,12) = (/&
&6.4534e+00_jprb,5.6467e+00_jprb,5.9493e+00_jprb,7.9882e+00_jprb,9.9652e+00_jprb,1.1825e+01_jprb,&
&1.3565e+01_jprb,1.5163e+01_jprb,1.7552e+01_jprb/)
kao( :, 3, 6,12) = (/&
&8.9369e+00_jprb,7.8198e+00_jprb,7.0306e+00_jprb,8.4620e+00_jprb,1.0422e+01_jprb,1.2244e+01_jprb,&
&1.3924e+01_jprb,1.5375e+01_jprb,1.7522e+01_jprb/)
kao( :, 4, 6,12) = (/&
&1.1971e+01_jprb,1.0475e+01_jprb,8.9883e+00_jprb,9.0910e+00_jprb,1.0899e+01_jprb,1.2682e+01_jprb,&
&1.4284e+01_jprb,1.5608e+01_jprb,1.7458e+01_jprb/)
kao( :, 5, 6,12) = (/&
&1.5570e+01_jprb,1.3624e+01_jprb,1.1678e+01_jprb,1.0383e+01_jprb,1.1407e+01_jprb,1.3124e+01_jprb,&
&1.4643e+01_jprb,1.5845e+01_jprb,1.7360e+01_jprb/)
kao( :, 1, 7,12) = (/&
&3.0144e+00_jprb,3.4301e+00_jprb,5.9195e+00_jprb,8.2854e+00_jprb,1.0547e+01_jprb,1.2704e+01_jprb,&
&1.4784e+01_jprb,1.6795e+01_jprb,1.9646e+01_jprb/)
kao( :, 2, 7,12) = (/&
&4.4866e+00_jprb,4.1345e+00_jprb,6.3401e+00_jprb,8.7329e+00_jprb,1.0993e+01_jprb,1.3127e+01_jprb,&
&1.5133e+01_jprb,1.6992e+01_jprb,1.9648e+01_jprb/)
kao( :, 3, 7,12) = (/&
&6.3891e+00_jprb,5.5915e+00_jprb,6.8167e+00_jprb,9.2170e+00_jprb,1.1473e+01_jprb,1.3569e+01_jprb,&
&1.5507e+01_jprb,1.7228e+01_jprb,1.9616e+01_jprb/)
kao( :, 4, 7,12) = (/&
&8.7782e+00_jprb,7.6809e+00_jprb,7.5739e+00_jprb,9.7331e+00_jprb,1.1970e+01_jprb,1.4031e+01_jprb,&
&1.5873e+01_jprb,1.7477e+01_jprb,1.9541e+01_jprb/)
kao( :, 5, 7,12) = (/&
&1.1625e+01_jprb,1.0171e+01_jprb,9.0298e+00_jprb,1.0306e+01_jprb,1.2492e+01_jprb,1.4497e+01_jprb,&
&1.6257e+01_jprb,1.7701e+01_jprb,1.9439e+01_jprb/)
kao( :, 1, 8,12) = (/&
&1.9926e+00_jprb,3.6034e+00_jprb,6.3775e+00_jprb,8.9929e+00_jprb,1.1503e+01_jprb,1.3945e+01_jprb,&
&1.6299e+01_jprb,1.8684e+01_jprb,2.1745e+01_jprb/)
kao( :, 2, 8,12) = (/&
&3.0617e+00_jprb,3.9634e+00_jprb,6.8142e+00_jprb,9.4600e+00_jprb,1.1969e+01_jprb,1.4375e+01_jprb,&
&1.6657e+01_jprb,1.8850e+01_jprb,2.1761e+01_jprb/)
kao( :, 3, 8,12) = (/&
&4.4985e+00_jprb,4.5132e+00_jprb,7.2998e+00_jprb,9.9757e+00_jprb,1.2478e+01_jprb,1.4838e+01_jprb,&
&1.7040e+01_jprb,1.9071e+01_jprb,2.1736e+01_jprb/)
kao( :, 4, 8,12) = (/&
&6.3130e+00_jprb,5.6506e+00_jprb,7.8250e+00_jprb,1.0530e+01_jprb,1.3024e+01_jprb,1.5335e+01_jprb,&
&1.7448e+01_jprb,1.9301e+01_jprb,2.1660e+01_jprb/)
kao( :, 5, 8,12) = (/&
&8.5677e+00_jprb,7.4967e+00_jprb,8.4271e+00_jprb,1.1119e+01_jprb,1.3598e+01_jprb,1.5852e+01_jprb,&
&1.7874e+01_jprb,1.9541e+01_jprb,2.1548e+01_jprb/)
kao( :, 1, 9,12) = (/&
&1.2882e+00_jprb,3.7811e+00_jprb,6.7889e+00_jprb,9.6675e+00_jprb,1.2448e+01_jprb,1.5144e+01_jprb,&
&1.7789e+01_jprb,2.0526e+01_jprb,2.3798e+01_jprb/)
kao( :, 2, 9,12) = (/&
&2.0503e+00_jprb,4.1428e+00_jprb,7.2351e+00_jprb,1.0146e+01_jprb,1.2918e+01_jprb,1.5574e+01_jprb,&
&1.8133e+01_jprb,2.0600e+01_jprb,2.3807e+01_jprb/)
kao( :, 3, 9,12) = (/&
&3.0980e+00_jprb,4.5533e+00_jprb,7.7296e+00_jprb,1.0674e+01_jprb,1.3445e+01_jprb,1.6056e+01_jprb,&
&1.8526e+01_jprb,2.0799e+01_jprb,2.3759e+01_jprb/)
kao( :, 4, 9,12) = (/&
&4.4694e+00_jprb,5.0345e+00_jprb,8.2724e+00_jprb,1.1243e+01_jprb,1.4010e+01_jprb,1.6578e+01_jprb,&
&1.8947e+01_jprb,2.1039e+01_jprb,2.3671e+01_jprb/)
kao( :, 5, 9,12) = (/&
&6.1961e+00_jprb,5.9006e+00_jprb,8.8587e+00_jprb,1.1853e+01_jprb,1.4601e+01_jprb,1.7119e+01_jprb,&
&1.9383e+01_jprb,2.1299e+01_jprb,2.3541e+01_jprb/)
kao( :, 1,10,12) = (/&
&8.5127e-01_jprb,3.9419e+00_jprb,7.1781e+00_jprb,1.0273e+01_jprb,1.3291e+01_jprb,1.6253e+01_jprb,&
&1.9160e+01_jprb,2.2190e+01_jprb,2.5668e+01_jprb/)
kao( :, 2,10,12) = (/&
&1.3967e+00_jprb,4.3019e+00_jprb,7.6193e+00_jprb,1.0754e+01_jprb,1.3770e+01_jprb,1.6679e+01_jprb,&
&1.9482e+01_jprb,2.2205e+01_jprb,2.5653e+01_jprb/)
kao( :, 3,10,12) = (/&
&2.1663e+00_jprb,4.7169e+00_jprb,8.1215e+00_jprb,1.1290e+01_jprb,1.4299e+01_jprb,1.7163e+01_jprb,&
&1.9866e+01_jprb,2.2382e+01_jprb,2.5585e+01_jprb/)
kao( :, 4,10,12) = (/&
&3.2052e+00_jprb,5.1856e+00_jprb,8.6831e+00_jprb,1.1877e+01_jprb,1.4873e+01_jprb,1.7685e+01_jprb,&
&2.0283e+01_jprb,2.2619e+01_jprb,2.5476e+01_jprb/)
kao( :, 5,10,12) = (/&
&4.5284e+00_jprb,5.7035e+00_jprb,9.2918e+00_jprb,1.2513e+01_jprb,1.5482e+01_jprb,1.8231e+01_jprb,&
&2.0720e+01_jprb,2.2887e+01_jprb,2.5332e+01_jprb/)
kao( :, 1,11,12) = (/&
&7.1408e-01_jprb,4.2187e+00_jprb,7.6724e+00_jprb,1.0987e+01_jprb,1.4213e+01_jprb,1.7344e+01_jprb,&
&2.0412e+01_jprb,2.3581e+01_jprb,2.7221e+01_jprb/)
kao( :, 2,11,12) = (/&
&1.1737e+00_jprb,4.6015e+00_jprb,8.1394e+00_jprb,1.1481e+01_jprb,1.4695e+01_jprb,1.7776e+01_jprb,&
&2.0744e+01_jprb,2.3608e+01_jprb,2.7158e+01_jprb/)
kao( :, 3,11,12) = (/&
&1.8278e+00_jprb,5.0397e+00_jprb,8.6695e+00_jprb,1.2042e+01_jprb,1.5239e+01_jprb,1.8262e+01_jprb,&
&2.1130e+01_jprb,2.3787e+01_jprb,2.7045e+01_jprb/)
kao( :, 4,11,12) = (/&
&2.7031e+00_jprb,5.5344e+00_jprb,9.2593e+00_jprb,1.2658e+01_jprb,1.5837e+01_jprb,1.8803e+01_jprb,&
&2.1557e+01_jprb,2.4018e+01_jprb,2.6895e+01_jprb/)
kao( :, 5,11,12) = (/&
&3.8301e+00_jprb,6.0785e+00_jprb,9.8968e+00_jprb,1.3323e+01_jprb,1.6474e+01_jprb,1.9384e+01_jprb,&
&2.2018e+01_jprb,2.4269e+01_jprb,2.6697e+01_jprb/)
kao( :, 1,12,12) = (/&
&5.9719e-01_jprb,4.4357e+00_jprb,8.0495e+00_jprb,1.1513e+01_jprb,1.4864e+01_jprb,1.8123e+01_jprb,&
&2.1317e+01_jprb,2.4560e+01_jprb,2.8304e+01_jprb/)
kao( :, 2,12,12) = (/&
&9.8514e-01_jprb,4.8310e+00_jprb,8.5352e+00_jprb,1.2024e+01_jprb,1.5349e+01_jprb,1.8551e+01_jprb,&
&2.1630e+01_jprb,2.4592e+01_jprb,2.8167e+01_jprb/)
kao( :, 3,12,12) = (/&
&1.5344e+00_jprb,5.2869e+00_jprb,9.0837e+00_jprb,1.2602e+01_jprb,1.5914e+01_jprb,1.9055e+01_jprb,&
&2.2019e+01_jprb,2.4762e+01_jprb,2.7998e+01_jprb/)
kao( :, 4,12,12) = (/&
&2.2758e+00_jprb,5.8021e+00_jprb,9.6908e+00_jprb,1.3238e+01_jprb,1.6534e+01_jprb,1.9617e+01_jprb,&
&2.2454e+01_jprb,2.4978e+01_jprb,2.7783e+01_jprb/)
kao( :, 5,12,12) = (/&
&3.2239e+00_jprb,6.3684e+00_jprb,1.0355e+01_jprb,1.3925e+01_jprb,1.7197e+01_jprb,2.0204e+01_jprb,&
&2.2925e+01_jprb,2.5222e+01_jprb,2.7528e+01_jprb/)
kao( :, 1,13,12) = (/&
&4.9832e-01_jprb,4.5623e+00_jprb,8.2781e+00_jprb,1.1820e+01_jprb,1.5240e+01_jprb,1.8570e+01_jprb,&
&2.1811e+01_jprb,2.5026e+01_jprb,2.8851e+01_jprb/)
kao( :, 2,13,12) = (/&
&8.2244e-01_jprb,4.9642e+00_jprb,8.7578e+00_jprb,1.2321e+01_jprb,1.5731e+01_jprb,1.9002e+01_jprb,&
&2.2129e+01_jprb,2.5100e+01_jprb,2.8676e+01_jprb/)
kao( :, 3,13,12) = (/&
&1.2846e+00_jprb,5.4326e+00_jprb,9.3155e+00_jprb,1.2900e+01_jprb,1.6287e+01_jprb,1.9496e+01_jprb,&
&2.2507e+01_jprb,2.5267e+01_jprb,2.8460e+01_jprb/)
kao( :, 4,13,12) = (/&
&1.9049e+00_jprb,5.9589e+00_jprb,9.9399e+00_jprb,1.3548e+01_jprb,1.6904e+01_jprb,2.0038e+01_jprb,&
&2.2926e+01_jprb,2.5474e+01_jprb,2.8207e+01_jprb/)
kao( :, 5,13,12) = (/&
&2.7022e+00_jprb,6.5411e+00_jprb,1.0623e+01_jprb,1.4250e+01_jprb,1.7574e+01_jprb,2.0623e+01_jprb,&
&2.3373e+01_jprb,2.5690e+01_jprb,2.7914e+01_jprb/)
kao( :, 1, 1,13) = (/&
&3.4080e+01_jprb,2.9820e+01_jprb,2.5560e+01_jprb,2.1300e+01_jprb,1.7040e+01_jprb,1.2780e+01_jprb,&
&8.7310e+00_jprb,8.0673e+00_jprb,2.9577e+01_jprb/)
kao( :, 2, 1,13) = (/&
&4.4290e+01_jprb,3.8754e+01_jprb,3.3217e+01_jprb,2.7681e+01_jprb,2.2145e+01_jprb,1.6609e+01_jprb,&
&1.1073e+01_jprb,8.2554e+00_jprb,3.3128e+01_jprb/)
kao( :, 3, 1,13) = (/&
&5.6045e+01_jprb,4.9040e+01_jprb,4.2034e+01_jprb,3.5028e+01_jprb,2.8023e+01_jprb,2.1017e+01_jprb,&
&1.4011e+01_jprb,8.4999e+00_jprb,3.6715e+01_jprb/)
kao( :, 4, 1,13) = (/&
&6.9030e+01_jprb,6.0401e+01_jprb,5.1772e+01_jprb,4.3144e+01_jprb,3.4515e+01_jprb,2.5886e+01_jprb,&
&1.7257e+01_jprb,9.2154e+00_jprb,4.0421e+01_jprb/)
kao( :, 5, 1,13) = (/&
&8.3025e+01_jprb,7.2647e+01_jprb,6.2269e+01_jprb,5.1890e+01_jprb,4.1512e+01_jprb,3.1134e+01_jprb,&
&2.0756e+01_jprb,1.0504e+01_jprb,4.4180e+01_jprb/)
kao( :, 1, 2,13) = (/&
&3.0233e+01_jprb,2.6454e+01_jprb,2.2675e+01_jprb,1.8895e+01_jprb,1.5116e+01_jprb,1.1337e+01_jprb,&
&8.9456e+00_jprb,9.4618e+00_jprb,2.0893e+01_jprb/)
kao( :, 2, 2,13) = (/&
&3.9883e+01_jprb,3.4897e+01_jprb,2.9912e+01_jprb,2.4927e+01_jprb,1.9941e+01_jprb,1.4956e+01_jprb,&
&1.0322e+01_jprb,9.6468e+00_jprb,2.3460e+01_jprb/)
kao( :, 3, 2,13) = (/&
&5.0858e+01_jprb,4.4501e+01_jprb,3.8144e+01_jprb,3.1786e+01_jprb,2.5429e+01_jprb,1.9072e+01_jprb,&
&1.2717e+01_jprb,9.8260e+00_jprb,2.6105e+01_jprb/)
kao( :, 4, 2,13) = (/&
&6.3293e+01_jprb,5.5381e+01_jprb,4.7469e+01_jprb,3.9558e+01_jprb,3.1646e+01_jprb,2.3735e+01_jprb,&
&1.5823e+01_jprb,1.0061e+01_jprb,2.8871e+01_jprb/)
kao( :, 5, 2,13) = (/&
&7.7095e+01_jprb,6.7458e+01_jprb,5.7821e+01_jprb,4.8184e+01_jprb,3.8547e+01_jprb,2.8911e+01_jprb,&
&1.9274e+01_jprb,1.0716e+01_jprb,3.1684e+01_jprb/)
kao( :, 1, 3,13) = (/&
&2.4631e+01_jprb,2.1553e+01_jprb,1.8474e+01_jprb,1.5395e+01_jprb,1.2316e+01_jprb,9.8916e+00_jprb,&
&1.0038e+01_jprb,1.1089e+01_jprb,1.4306e+01_jprb/)
kao( :, 2, 3,13) = (/&
&3.3118e+01_jprb,2.8978e+01_jprb,2.4838e+01_jprb,2.0699e+01_jprb,1.6559e+01_jprb,1.2452e+01_jprb,&
&1.0491e+01_jprb,1.1254e+01_jprb,1.4773e+01_jprb/)
kao( :, 3, 3,13) = (/&
&4.3194e+01_jprb,3.7795e+01_jprb,3.2396e+01_jprb,2.6996e+01_jprb,2.1597e+01_jprb,1.6198e+01_jprb,&
&1.1695e+01_jprb,1.1459e+01_jprb,1.5413e+01_jprb/)
kao( :, 4, 3,13) = (/&
&5.4783e+01_jprb,4.7935e+01_jprb,4.1087e+01_jprb,3.4239e+01_jprb,2.7391e+01_jprb,2.0543e+01_jprb,&
&1.3845e+01_jprb,1.1681e+01_jprb,1.6296e+01_jprb/)
kao( :, 5, 3,13) = (/&
&6.7780e+01_jprb,5.9307e+01_jprb,5.0835e+01_jprb,4.2362e+01_jprb,3.3890e+01_jprb,2.5417e+01_jprb,&
&1.6945e+01_jprb,1.1890e+01_jprb,1.7557e+01_jprb/)
kao( :, 1, 4,13) = (/&
&1.9088e+01_jprb,1.6702e+01_jprb,1.4316e+01_jprb,1.1930e+01_jprb,1.0048e+01_jprb,1.0234e+01_jprb,&
&1.1609e+01_jprb,1.2948e+01_jprb,1.5443e+01_jprb/)
kao( :, 2, 4,13) = (/&
&2.6468e+01_jprb,2.3159e+01_jprb,1.9851e+01_jprb,1.6542e+01_jprb,1.3234e+01_jprb,1.1284e+01_jprb,&
&1.1975e+01_jprb,1.3181e+01_jprb,1.5496e+01_jprb/)
kao( :, 3, 4,13) = (/&
&3.5386e+01_jprb,3.0963e+01_jprb,2.6539e+01_jprb,2.2116e+01_jprb,1.7693e+01_jprb,1.3581e+01_jprb,&
&1.2366e+01_jprb,1.3400e+01_jprb,1.5533e+01_jprb/)
kao( :, 4, 4,13) = (/&
&4.5721e+01_jprb,4.0006e+01_jprb,3.4291e+01_jprb,2.8576e+01_jprb,2.2861e+01_jprb,1.7146e+01_jprb,&
&1.3293e+01_jprb,1.3609e+01_jprb,1.5601e+01_jprb/)
kao( :, 5, 4,13) = (/&
&5.7463e+01_jprb,5.0280e+01_jprb,4.3097e+01_jprb,3.5914e+01_jprb,2.8732e+01_jprb,2.1549e+01_jprb,&
&1.5088e+01_jprb,1.3821e+01_jprb,1.5706e+01_jprb/)
kao( :, 1, 5,13) = (/&
&1.4426e+01_jprb,1.2622e+01_jprb,1.0819e+01_jprb,9.3955e+00_jprb,9.8959e+00_jprb,1.1682e+01_jprb,&
&1.3442e+01_jprb,1.5150e+01_jprb,1.7787e+01_jprb/)
kao( :, 2, 5,13) = (/&
&2.0633e+01_jprb,1.8054e+01_jprb,1.5474e+01_jprb,1.2895e+01_jprb,1.1371e+01_jprb,1.2152e+01_jprb,&
&1.3795e+01_jprb,1.5372e+01_jprb,1.7817e+01_jprb/)
kao( :, 3, 5,13) = (/&
&2.8181e+01_jprb,2.4658e+01_jprb,2.1135e+01_jprb,1.7613e+01_jprb,1.4271e+01_jprb,1.3007e+01_jprb,&
&1.4200e+01_jprb,1.5591e+01_jprb,1.7815e+01_jprb/)
kao( :, 4, 5,13) = (/&
&3.7172e+01_jprb,3.2526e+01_jprb,2.7879e+01_jprb,2.3233e+01_jprb,1.8586e+01_jprb,1.4927e+01_jprb,&
&1.4654e+01_jprb,1.5856e+01_jprb,1.7795e+01_jprb/)
kao( :, 5, 5,13) = (/&
&4.7583e+01_jprb,4.1635e+01_jprb,3.5687e+01_jprb,2.9739e+01_jprb,2.3791e+01_jprb,1.8024e+01_jprb,&
&1.5280e+01_jprb,1.6121e+01_jprb,1.7748e+01_jprb/)
kao( :, 1, 6,13) = (/&
&1.0461e+01_jprb,9.1530e+00_jprb,8.0649e+00_jprb,8.9595e+00_jprb,1.1163e+01_jprb,1.3388e+01_jprb,&
&1.5529e+01_jprb,1.7569e+01_jprb,2.0564e+01_jprb/)
kao( :, 2, 6,13) = (/&
&1.5391e+01_jprb,1.3467e+01_jprb,1.1543e+01_jprb,1.0534e+01_jprb,1.1753e+01_jprb,1.3875e+01_jprb,&
&1.5945e+01_jprb,1.7834e+01_jprb,2.0625e+01_jprb/)
kao( :, 3, 6,13) = (/&
&2.1628e+01_jprb,1.8924e+01_jprb,1.6221e+01_jprb,1.3622e+01_jprb,1.2887e+01_jprb,1.4422e+01_jprb,&
&1.6374e+01_jprb,1.8123e+01_jprb,2.0643e+01_jprb/)
kao( :, 4, 6,13) = (/&
&2.9247e+01_jprb,2.5591e+01_jprb,2.1935e+01_jprb,1.8279e+01_jprb,1.5333e+01_jprb,1.5076e+01_jprb,&
&1.6798e+01_jprb,1.8415e+01_jprb,2.0622e+01_jprb/)
kao( :, 5, 6,13) = (/&
&3.8260e+01_jprb,3.3478e+01_jprb,2.8695e+01_jprb,2.3913e+01_jprb,1.9193e+01_jprb,1.6572e+01_jprb,&
&1.7244e+01_jprb,1.8672e+01_jprb,2.0568e+01_jprb/)
kao( :, 1, 7,13) = (/&
&7.3043e+00_jprb,6.3921e+00_jprb,7.2574e+00_jprb,9.9309e+00_jprb,1.2660e+01_jprb,1.5305e+01_jprb,&
&1.7830e+01_jprb,2.0388e+01_jprb,2.3721e+01_jprb/)
kao( :, 2, 7,13) = (/&
&1.1153e+01_jprb,9.7589e+00_jprb,8.9368e+00_jprb,1.0556e+01_jprb,1.3220e+01_jprb,1.5825e+01_jprb,&
&1.8263e+01_jprb,2.0631e+01_jprb,2.3818e+01_jprb/)
kao( :, 3, 7,13) = (/&
&1.6186e+01_jprb,1.4162e+01_jprb,1.2167e+01_jprb,1.1878e+01_jprb,1.3854e+01_jprb,1.6375e+01_jprb,&
&1.8737e+01_jprb,2.0904e+01_jprb,2.3851e+01_jprb/)
kao( :, 4, 7,13) = (/&
&2.2456e+01_jprb,1.9649e+01_jprb,1.6842e+01_jprb,1.4587e+01_jprb,1.4796e+01_jprb,1.6968e+01_jprb,&
&1.9249e+01_jprb,2.1203e+01_jprb,2.3842e+01_jprb/)
kao( :, 5, 7,13) = (/&
&2.9970e+01_jprb,2.6223e+01_jprb,2.2477e+01_jprb,1.8752e+01_jprb,1.6763e+01_jprb,1.7653e+01_jprb,&
&1.9767e+01_jprb,2.1542e+01_jprb,2.3797e+01_jprb/)
kao( :, 1, 8,13) = (/&
&4.9692e+00_jprb,4.9125e+00_jprb,7.9064e+00_jprb,1.1184e+01_jprb,1.4336e+01_jprb,1.7379e+01_jprb,&
&2.0369e+01_jprb,2.3491e+01_jprb,2.7234e+01_jprb/)
kao( :, 2, 8,13) = (/&
&7.9016e+00_jprb,6.9643e+00_jprb,8.5289e+00_jprb,1.1787e+01_jprb,1.4948e+01_jprb,1.7963e+01_jprb,&
&2.0857e+01_jprb,2.3626e+01_jprb,2.7349e+01_jprb/)
kao( :, 3, 8,13) = (/&
&1.1829e+01_jprb,1.0351e+01_jprb,1.0018e+01_jprb,1.2473e+01_jprb,1.5611e+01_jprb,1.8590e+01_jprb,&
&2.1391e+01_jprb,2.3947e+01_jprb,2.7404e+01_jprb/)
kao( :, 4, 8,13) = (/&
&1.6837e+01_jprb,1.4732e+01_jprb,1.2874e+01_jprb,1.3529e+01_jprb,1.6319e+01_jprb,1.9246e+01_jprb,&
&2.1937e+01_jprb,2.4318e+01_jprb,2.7406e+01_jprb/)
kao( :, 5, 8,13) = (/&
&2.2996e+01_jprb,2.0122e+01_jprb,1.7247e+01_jprb,1.5765e+01_jprb,1.7114e+01_jprb,1.9918e+01_jprb,&
&2.2479e+01_jprb,2.4688e+01_jprb,2.7359e+01_jprb/)
kao( :, 1, 9,13) = (/&
&3.2797e+00_jprb,4.8490e+00_jprb,8.7424e+00_jprb,1.2456e+01_jprb,1.6073e+01_jprb,1.9620e+01_jprb,&
&2.3097e+01_jprb,2.6808e+01_jprb,3.0988e+01_jprb/)
kao( :, 2, 9,13) = (/&
&5.4392e+00_jprb,5.6637e+00_jprb,9.3267e+00_jprb,1.3100e+01_jprb,1.6727e+01_jprb,2.0234e+01_jprb,&
&2.3592e+01_jprb,2.6965e+01_jprb,3.1144e+01_jprb/)
kao( :, 3, 9,13) = (/&
&8.4169e+00_jprb,7.5619e+00_jprb,1.0020e+01_jprb,1.3811e+01_jprb,1.7436e+01_jprb,2.0893e+01_jprb,&
&2.4142e+01_jprb,2.7260e+01_jprb,3.1227e+01_jprb/)
kao( :, 4, 9,13) = (/&
&1.2342e+01_jprb,1.0800e+01_jprb,1.1274e+01_jprb,1.4589e+01_jprb,1.8199e+01_jprb,2.1593e+01_jprb,&
&2.4734e+01_jprb,2.7614e+01_jprb,3.1244e+01_jprb/)
kao( :, 5, 9,13) = (/&
&1.7292e+01_jprb,1.5131e+01_jprb,1.3759e+01_jprb,1.5542e+01_jprb,1.9006e+01_jprb,2.2332e+01_jprb,&
&2.5355e+01_jprb,2.7981e+01_jprb,3.1197e+01_jprb/)
kao( :, 1,10,13) = (/&
&2.2032e+00_jprb,5.2890e+00_jprb,9.6706e+00_jprb,1.3878e+01_jprb,1.7966e+01_jprb,2.1973e+01_jprb,&
&2.5989e+01_jprb,3.0314e+01_jprb,3.4958e+01_jprb/)
kao( :, 2,10,13) = (/&
&3.7831e+00_jprb,5.7837e+00_jprb,1.0292e+01_jprb,1.4556e+01_jprb,1.8648e+01_jprb,2.2606e+01_jprb,&
&2.6478e+01_jprb,3.0484e+01_jprb,3.5130e+01_jprb/)
kao( :, 3,10,13) = (/&
&6.0546e+00_jprb,6.6064e+00_jprb,1.0987e+01_jprb,1.5317e+01_jprb,1.9415e+01_jprb,2.3325e+01_jprb,&
&2.7070e+01_jprb,3.0679e+01_jprb,3.5221e+01_jprb/)
kao( :, 4,10,13) = (/&
&9.1249e+00_jprb,8.4338e+00_jprb,1.1767e+01_jprb,1.6143e+01_jprb,2.0247e+01_jprb,2.4103e+01_jprb,&
&2.7726e+01_jprb,3.1040e+01_jprb,3.5231e+01_jprb/)
kao( :, 5,10,13) = (/&
&1.3052e+01_jprb,1.1454e+01_jprb,1.2877e+01_jprb,1.7024e+01_jprb,2.1124e+01_jprb,2.4923e+01_jprb,&
&2.8417e+01_jprb,3.1455e+01_jprb,3.5171e+01_jprb/)
kao( :, 1,11,13) = (/&
&1.9086e+00_jprb,5.9459e+00_jprb,1.0873e+01_jprb,1.5591e+01_jprb,2.0164e+01_jprb,2.4670e+01_jprb,&
&2.9154e+01_jprb,3.3957e+01_jprb,3.9072e+01_jprb/)
kao( :, 2,11,13) = (/&
&3.2952e+00_jprb,6.4851e+00_jprb,1.1554e+01_jprb,1.6337e+01_jprb,2.0921e+01_jprb,2.5369e+01_jprb,&
&2.9685e+01_jprb,3.4092e+01_jprb,3.9214e+01_jprb/)
kao( :, 3,11,13) = (/&
&5.2771e+00_jprb,7.1279e+00_jprb,1.2325e+01_jprb,1.7170e+01_jprb,2.1762e+01_jprb,2.6155e+01_jprb,&
&3.0331e+01_jprb,3.4338e+01_jprb,3.9267e+01_jprb/)
kao( :, 4,11,13) = (/&
&7.9532e+00_jprb,8.2986e+00_jprb,1.3169e+01_jprb,1.8082e+01_jprb,2.2666e+01_jprb,2.6993e+01_jprb,&
&3.1034e+01_jprb,3.4728e+01_jprb,3.9232e+01_jprb/)
kao( :, 5,11,13) = (/&
&1.1408e+01_jprb,1.0479e+01_jprb,1.4101e+01_jprb,1.9050e+01_jprb,2.3632e+01_jprb,2.7870e+01_jprb,&
&3.1762e+01_jprb,3.5164e+01_jprb,3.9117e+01_jprb/)
kao( :, 1,12,13) = (/&
&1.6495e+00_jprb,6.5961e+00_jprb,1.2057e+01_jprb,1.7278e+01_jprb,2.2356e+01_jprb,2.7342e+01_jprb,&
&3.2267e+01_jprb,3.7500e+01_jprb,4.3085e+01_jprb/)
kao( :, 2,12,13) = (/&
&2.8452e+00_jprb,7.1855e+00_jprb,1.2796e+01_jprb,1.8080e+01_jprb,2.3168e+01_jprb,2.8094e+01_jprb,&
&3.2847e+01_jprb,3.7597e+01_jprb,4.3183e+01_jprb/)
kao( :, 3,12,13) = (/&
&4.5627e+00_jprb,7.8617e+00_jprb,1.3635e+01_jprb,1.8987e+01_jprb,2.4069e+01_jprb,2.8923e+01_jprb,&
&3.3529e+01_jprb,3.7904e+01_jprb,4.3185e+01_jprb/)
kao( :, 4,12,13) = (/&
&6.8882e+00_jprb,8.6791e+00_jprb,1.4557e+01_jprb,1.9976e+01_jprb,2.5052e+01_jprb,2.9817e+01_jprb,&
&3.4260e+01_jprb,3.8316e+01_jprb,4.3097e+01_jprb/)
kao( :, 5,12,13) = (/&
&9.8701e+00_jprb,1.0128e+01_jprb,1.5550e+01_jprb,2.1028e+01_jprb,2.6084e+01_jprb,3.0768e+01_jprb,&
&3.5030e+01_jprb,3.8758e+01_jprb,4.2923e+01_jprb/)
kao( :, 1,13,13) = (/&
&1.4102e+00_jprb,7.2101e+00_jprb,1.3161e+01_jprb,1.8856e+01_jprb,2.4405e+01_jprb,2.9839e+01_jprb,&
&3.5177e+01_jprb,4.0784e+01_jprb,4.6821e+01_jprb/)
kao( :, 2,13,13) = (/&
&2.4382e+00_jprb,7.8482e+00_jprb,1.3963e+01_jprb,1.9729e+01_jprb,2.5265e+01_jprb,3.0620e+01_jprb,&
&3.5779e+01_jprb,4.0841e+01_jprb,4.6845e+01_jprb/)
kao( :, 3,13,13) = (/&
&3.9130e+00_jprb,8.5783e+00_jprb,1.4859e+01_jprb,2.0699e+01_jprb,2.6235e+01_jprb,3.1498e+01_jprb,&
&3.6480e+01_jprb,4.1163e+01_jprb,4.6764e+01_jprb/)
kao( :, 4,13,13) = (/&
&5.9062e+00_jprb,9.3898e+00_jprb,1.5851e+01_jprb,2.1749e+01_jprb,2.7273e+01_jprb,3.2456e+01_jprb,&
&3.7253e+01_jprb,4.1590e+01_jprb,4.6596e+01_jprb/)
kao( :, 5,13,13) = (/&
&8.4798e+00_jprb,1.0367e+01_jprb,1.6908e+01_jprb,2.2869e+01_jprb,2.8363e+01_jprb,3.3450e+01_jprb,&
&3.8074e+01_jprb,4.2068e+01_jprb,4.6355e+01_jprb/)
kao( :, 1, 1,14) = (/&
&6.5174e+01_jprb,5.7027e+01_jprb,4.8880e+01_jprb,4.0734e+01_jprb,3.2587e+01_jprb,2.4440e+01_jprb,&
&1.6293e+01_jprb,9.0902e+00_jprb,3.6845e+01_jprb/)
kao( :, 2, 1,14) = (/&
&8.4423e+01_jprb,7.3870e+01_jprb,6.3317e+01_jprb,5.2765e+01_jprb,4.2212e+01_jprb,3.1659e+01_jprb,&
&2.1106e+01_jprb,1.0672e+01_jprb,4.1742e+01_jprb/)
kao( :, 3, 1,14) = (/&
&1.0604e+02_jprb,9.2788e+01_jprb,7.9533e+01_jprb,6.6277e+01_jprb,5.3022e+01_jprb,3.9766e+01_jprb,&
&2.6511e+01_jprb,1.3255e+01_jprb,4.6647e+01_jprb/)
kao( :, 4, 1,14) = (/&
&1.3020e+02_jprb,1.1393e+02_jprb,9.7651e+01_jprb,8.1376e+01_jprb,6.5100e+01_jprb,4.8825e+01_jprb,&
&3.2550e+01_jprb,1.6275e+01_jprb,5.1511e+01_jprb/)
kao( :, 5, 1,14) = (/&
&1.5659e+02_jprb,1.3701e+02_jprb,1.1744e+02_jprb,9.7867e+01_jprb,7.8294e+01_jprb,5.8720e+01_jprb,&
&3.9147e+01_jprb,1.9573e+01_jprb,5.6274e+01_jprb/)
kao( :, 1, 2,14) = (/&
&6.1823e+01_jprb,5.4095e+01_jprb,4.6367e+01_jprb,3.8639e+01_jprb,3.0911e+01_jprb,2.3183e+01_jprb,&
&1.5456e+01_jprb,1.0277e+01_jprb,2.7318e+01_jprb/)
kao( :, 2, 2,14) = (/&
&8.1223e+01_jprb,7.1070e+01_jprb,6.0917e+01_jprb,5.0764e+01_jprb,4.0612e+01_jprb,3.0459e+01_jprb,&
&2.0306e+01_jprb,1.1162e+01_jprb,3.1010e+01_jprb/)
kao( :, 3, 2,14) = (/&
&1.0367e+02_jprb,9.0711e+01_jprb,7.7752e+01_jprb,6.4794e+01_jprb,5.1835e+01_jprb,3.8876e+01_jprb,&
&2.5917e+01_jprb,1.3111e+01_jprb,3.4709e+01_jprb/)
kao( :, 4, 2,14) = (/&
&1.2892e+02_jprb,1.1280e+02_jprb,9.6686e+01_jprb,8.0572e+01_jprb,6.4458e+01_jprb,4.8343e+01_jprb,&
&3.2229e+01_jprb,1.6114e+01_jprb,3.8368e+01_jprb/)
kao( :, 5, 2,14) = (/&
&1.5667e+02_jprb,1.3708e+02_jprb,1.1750e+02_jprb,9.7916e+01_jprb,7.8333e+01_jprb,5.8750e+01_jprb,&
&3.9167e+01_jprb,1.9583e+01_jprb,4.1940e+01_jprb/)
kao( :, 1, 3,14) = (/&
&5.4340e+01_jprb,4.7547e+01_jprb,4.0755e+01_jprb,3.3962e+01_jprb,2.7170e+01_jprb,2.0377e+01_jprb,&
&1.3826e+01_jprb,1.1988e+01_jprb,1.6208e+01_jprb/)
kao( :, 2, 3,14) = (/&
&7.3213e+01_jprb,6.4061e+01_jprb,5.4910e+01_jprb,4.5758e+01_jprb,3.6606e+01_jprb,2.7455e+01_jprb,&
&1.8303e+01_jprb,1.2321e+01_jprb,1.7853e+01_jprb/)
kao( :, 3, 3,14) = (/&
&9.5330e+01_jprb,8.3414e+01_jprb,7.1498e+01_jprb,5.9581e+01_jprb,4.7665e+01_jprb,3.5749e+01_jprb,&
&2.3833e+01_jprb,1.3383e+01_jprb,1.9735e+01_jprb/)
kao( :, 4, 3,14) = (/&
&1.2051e+02_jprb,1.0545e+02_jprb,9.0386e+01_jprb,7.5322e+01_jprb,6.0257e+01_jprb,4.5193e+01_jprb,&
&3.0129e+01_jprb,1.5439e+01_jprb,2.1688e+01_jprb/)
kao( :, 5, 3,14) = (/&
&1.4852e+02_jprb,1.2996e+02_jprb,1.1139e+02_jprb,9.2828e+01_jprb,7.4262e+01_jprb,5.5697e+01_jprb,&
&3.7131e+01_jprb,1.8572e+01_jprb,2.3613e+01_jprb/)
kao( :, 1, 4,14) = (/&
&4.5833e+01_jprb,4.0104e+01_jprb,3.4375e+01_jprb,2.8646e+01_jprb,2.2917e+01_jprb,1.7188e+01_jprb,&
&1.3524e+01_jprb,1.4143e+01_jprb,1.6776e+01_jprb/)
kao( :, 2, 4,14) = (/&
&6.3459e+01_jprb,5.5527e+01_jprb,4.7594e+01_jprb,3.9662e+01_jprb,3.1730e+01_jprb,2.3797e+01_jprb,&
&1.6331e+01_jprb,1.4451e+01_jprb,1.6850e+01_jprb/)
kao( :, 3, 4,14) = (/&
&8.4502e+01_jprb,7.3939e+01_jprb,6.3376e+01_jprb,5.2814e+01_jprb,4.2251e+01_jprb,3.1688e+01_jprb,&
&2.1126e+01_jprb,1.4779e+01_jprb,1.6907e+01_jprb/)
kao( :, 4, 4,14) = (/&
&1.0912e+02_jprb,9.5484e+01_jprb,8.1843e+01_jprb,6.8203e+01_jprb,5.4562e+01_jprb,4.0922e+01_jprb,&
&2.7281e+01_jprb,1.5904e+01_jprb,1.6987e+01_jprb/)
kao( :, 5, 4,14) = (/&
&1.3712e+02_jprb,1.1998e+02_jprb,1.0284e+02_jprb,8.5701e+01_jprb,6.8561e+01_jprb,5.1421e+01_jprb,&
&3.4281e+01_jprb,1.8042e+01_jprb,1.7134e+01_jprb/)
kao( :, 1, 5,14) = (/&
&3.7621e+01_jprb,3.2918e+01_jprb,2.8216e+01_jprb,2.3513e+01_jprb,1.8810e+01_jprb,1.5213e+01_jprb,&
&1.4972e+01_jprb,1.6713e+01_jprb,1.9607e+01_jprb/)
kao( :, 2, 5,14) = (/&
&5.3640e+01_jprb,4.6935e+01_jprb,4.0230e+01_jprb,3.3525e+01_jprb,2.6820e+01_jprb,2.0195e+01_jprb,&
&1.6296e+01_jprb,1.6983e+01_jprb,1.9709e+01_jprb/)
kao( :, 3, 5,14) = (/&
&7.3434e+01_jprb,6.4254e+01_jprb,5.5075e+01_jprb,4.5896e+01_jprb,3.6717e+01_jprb,2.7538e+01_jprb,&
&1.9356e+01_jprb,1.7364e+01_jprb,1.9752e+01_jprb/)
kao( :, 4, 5,14) = (/&
&9.6831e+01_jprb,8.4727e+01_jprb,7.2623e+01_jprb,6.0519e+01_jprb,4.8415e+01_jprb,3.6311e+01_jprb,&
&2.4262e+01_jprb,1.7815e+01_jprb,1.9747e+01_jprb/)
kao( :, 5, 5,14) = (/&
&1.2364e+02_jprb,1.0818e+02_jprb,9.2728e+01_jprb,7.7274e+01_jprb,6.1819e+01_jprb,4.6364e+01_jprb,&
&3.0909e+01_jprb,1.8880e+01_jprb,1.9719e+01_jprb/)
kao( :, 1, 6,14) = (/&
&2.9612e+01_jprb,2.5911e+01_jprb,2.2209e+01_jprb,1.8508e+01_jprb,1.5714e+01_jprb,1.5485e+01_jprb,&
&1.7513e+01_jprb,1.9803e+01_jprb,2.3106e+01_jprb/)
kao( :, 2, 6,14) = (/&
&4.3748e+01_jprb,3.8279e+01_jprb,3.2811e+01_jprb,2.7342e+01_jprb,2.1877e+01_jprb,1.8205e+01_jprb,&
&1.8101e+01_jprb,2.0115e+01_jprb,2.3246e+01_jprb/)
kao( :, 3, 6,14) = (/&
&6.1468e+01_jprb,5.3784e+01_jprb,4.6101e+01_jprb,3.8417e+01_jprb,3.0734e+01_jprb,2.3328e+01_jprb,&
&1.9453e+01_jprb,2.0483e+01_jprb,2.3324e+01_jprb/)
kao( :, 4, 6,14) = (/&
&8.2819e+01_jprb,7.2467e+01_jprb,6.2114e+01_jprb,5.1762e+01_jprb,4.1410e+01_jprb,3.1057e+01_jprb,&
&2.2516e+01_jprb,2.0832e+01_jprb,2.3358e+01_jprb/)
kao( :, 5, 6,14) = (/&
&1.0782e+02_jprb,9.4345e+01_jprb,8.0867e+01_jprb,6.7389e+01_jprb,5.3911e+01_jprb,4.0434e+01_jprb,&
&2.7416e+01_jprb,2.1303e+01_jprb,2.3341e+01_jprb/)
kao( :, 1, 7,14) = (/&
&2.2563e+01_jprb,1.9743e+01_jprb,1.6922e+01_jprb,1.4880e+01_jprb,1.5210e+01_jprb,1.7595e+01_jprb,&
&2.0450e+01_jprb,2.3517e+01_jprb,2.7272e+01_jprb/)
kao( :, 2, 7,14) = (/&
&3.4511e+01_jprb,3.0197e+01_jprb,2.5883e+01_jprb,2.1569e+01_jprb,1.8701e+01_jprb,1.8664e+01_jprb,&
&2.1070e+01_jprb,2.3724e+01_jprb,2.7469e+01_jprb/)
kao( :, 3, 7,14) = (/&
&4.9903e+01_jprb,4.3665e+01_jprb,3.7427e+01_jprb,3.1189e+01_jprb,2.5108e+01_jprb,2.1510e+01_jprb,&
&2.1786e+01_jprb,2.4110e+01_jprb,2.7600e+01_jprb/)
kao( :, 4, 7,14) = (/&
&6.8998e+01_jprb,6.0373e+01_jprb,5.1749e+01_jprb,4.3124e+01_jprb,3.4499e+01_jprb,2.6735e+01_jprb,&
&2.3147e+01_jprb,2.4558e+01_jprb,2.7662e+01_jprb/)
kao( :, 5, 7,14) = (/&
&9.2035e+01_jprb,8.0530e+01_jprb,6.9026e+01_jprb,5.7522e+01_jprb,4.6017e+01_jprb,3.4527e+01_jprb,&
&2.6142e+01_jprb,2.5028e+01_jprb,2.7662e+01_jprb/)
kao( :, 1, 8,14) = (/&
&1.6646e+01_jprb,1.4565e+01_jprb,1.2937e+01_jprb,1.3876e+01_jprb,1.6955e+01_jprb,2.0502e+01_jprb,&
&2.4054e+01_jprb,2.7834e+01_jprb,3.2161e+01_jprb/)
kao( :, 2, 8,14) = (/&
&2.6448e+01_jprb,2.3142e+01_jprb,1.9836e+01_jprb,1.7715e+01_jprb,1.8335e+01_jprb,2.1296e+01_jprb,&
&2.4653e+01_jprb,2.8077e+01_jprb,3.2424e+01_jprb/)
kao( :, 3, 8,14) = (/&
&3.9552e+01_jprb,3.4608e+01_jprb,2.9664e+01_jprb,2.4793e+01_jprb,2.2053e+01_jprb,2.2399e+01_jprb,&
&2.5322e+01_jprb,2.8464e+01_jprb,3.2607e+01_jprb/)
kao( :, 4, 8,14) = (/&
&5.6374e+01_jprb,4.9327e+01_jprb,4.2280e+01_jprb,3.5233e+01_jprb,2.8686e+01_jprb,2.5344e+01_jprb,&
&2.6090e+01_jprb,2.8900e+01_jprb,3.2702e+01_jprb/)
kao( :, 5, 8,14) = (/&
&7.7053e+01_jprb,6.7421e+01_jprb,5.7790e+01_jprb,4.8158e+01_jprb,3.8527e+01_jprb,3.0635e+01_jprb,&
&2.7529e+01_jprb,2.9328e+01_jprb,3.2729e+01_jprb/)
kao( :, 1, 9,14) = (/&
&1.1833e+01_jprb,1.0384e+01_jprb,1.1459e+01_jprb,1.5199e+01_jprb,1.9504e+01_jprb,2.3789e+01_jprb,&
&2.8102e+01_jprb,3.2786e+01_jprb,3.7785e+01_jprb/)
kao( :, 2, 9,14) = (/&
&1.9655e+01_jprb,1.7198e+01_jprb,1.5507e+01_jprb,1.6804e+01_jprb,2.0431e+01_jprb,2.4589e+01_jprb,&
&2.8753e+01_jprb,3.3108e+01_jprb,3.8143e+01_jprb/)
kao( :, 3, 9,14) = (/&
&3.0574e+01_jprb,2.6753e+01_jprb,2.2935e+01_jprb,2.1004e+01_jprb,2.2051e+01_jprb,2.5542e+01_jprb,&
&2.9510e+01_jprb,3.3363e+01_jprb,3.8391e+01_jprb/)
kao( :, 4, 9,14) = (/&
&4.4893e+01_jprb,3.9281e+01_jprb,3.3669e+01_jprb,2.8405e+01_jprb,2.5980e+01_jprb,2.6856e+01_jprb,&
&3.0337e+01_jprb,3.3859e+01_jprb,3.8531e+01_jprb/)
kao( :, 5, 9,14) = (/&
&6.2714e+01_jprb,5.4875e+01_jprb,4.7035e+01_jprb,3.9196e+01_jprb,3.2630e+01_jprb,2.9798e+01_jprb,&
&3.1253e+01_jprb,3.4423e+01_jprb,3.8580e+01_jprb/)
kao( :, 1,10,14) = (/&
&8.5124e+00_jprb,8.2727e+00_jprb,1.2161e+01_jprb,1.7400e+01_jprb,2.2620e+01_jprb,2.7747e+01_jprb,&
&3.2952e+01_jprb,3.8443e+01_jprb,4.4221e+01_jprb/)
kao( :, 2,10,14) = (/&
&1.4801e+01_jprb,1.2999e+01_jprb,1.4181e+01_jprb,1.8385e+01_jprb,2.3543e+01_jprb,2.8614e+01_jprb,&
&3.3590e+01_jprb,3.8847e+01_jprb,4.4675e+01_jprb/)
kao( :, 3,10,14) = (/&
&2.3770e+01_jprb,2.0799e+01_jprb,1.8887e+01_jprb,2.0455e+01_jprb,2.4642e+01_jprb,2.9573e+01_jprb,&
&3.4392e+01_jprb,3.9131e+01_jprb,4.4994e+01_jprb/)
kao( :, 4,10,14) = (/&
&3.5762e+01_jprb,3.1292e+01_jprb,2.6896e+01_jprb,2.5061e+01_jprb,2.6502e+01_jprb,3.0662e+01_jprb,&
&3.5247e+01_jprb,3.9648e+01_jprb,4.5184e+01_jprb/)
kao( :, 5,10,14) = (/&
&5.1160e+01_jprb,4.4765e+01_jprb,3.8370e+01_jprb,3.2741e+01_jprb,3.0611e+01_jprb,3.2021e+01_jprb,&
&3.6131e+01_jprb,4.0213e+01_jprb,4.5252e+01_jprb/)
kao( :, 1,11,14) = (/&
&7.9777e+00_jprb,8.7265e+00_jprb,1.4218e+01_jprb,2.0419e+01_jprb,2.6536e+01_jprb,3.2537e+01_jprb,&
&3.8615e+01_jprb,4.5051e+01_jprb,5.1748e+01_jprb/)
kao( :, 2,11,14) = (/&
&1.3839e+01_jprb,1.2575e+01_jprb,1.5679e+01_jprb,2.1487e+01_jprb,2.7590e+01_jprb,3.3521e+01_jprb,&
&3.9346e+01_jprb,4.5471e+01_jprb,5.2220e+01_jprb/)
kao( :, 3,11,14) = (/&
&2.2213e+01_jprb,1.9436e+01_jprb,1.9340e+01_jprb,2.2978e+01_jprb,2.8775e+01_jprb,3.4623e+01_jprb,&
&4.0260e+01_jprb,4.5752e+01_jprb,5.2534e+01_jprb/)
kao( :, 4,11,14) = (/&
&3.3533e+01_jprb,2.9341e+01_jprb,2.5981e+01_jprb,2.6492e+01_jprb,3.0190e+01_jprb,3.5801e+01_jprb,&
&4.1239e+01_jprb,4.6338e+01_jprb,5.2703e+01_jprb/)
kao( :, 5,11,14) = (/&
&4.8125e+01_jprb,4.2109e+01_jprb,3.6128e+01_jprb,3.2789e+01_jprb,3.3249e+01_jprb,3.7092e+01_jprb,&
&4.2227e+01_jprb,4.6984e+01_jprb,5.2733e+01_jprb/)
kao( :, 1,12,14) = (/&
&7.3404e+00_jprb,9.4591e+00_jprb,1.6537e+01_jprb,2.3797e+01_jprb,3.0901e+01_jprb,3.7866e+01_jprb,&
&4.4903e+01_jprb,5.2386e+01_jprb,6.0116e+01_jprb/)
kao( :, 2,12,14) = (/&
&1.2760e+01_jprb,1.2502e+01_jprb,1.7728e+01_jprb,2.4979e+01_jprb,3.2095e+01_jprb,3.8976e+01_jprb,&
&4.5735e+01_jprb,5.2811e+01_jprb,6.0596e+01_jprb/)
kao( :, 3,12,14) = (/&
&2.0574e+01_jprb,1.8262e+01_jprb,2.0491e+01_jprb,2.6348e+01_jprb,3.3404e+01_jprb,4.0219e+01_jprb,&
&4.6757e+01_jprb,5.3073e+01_jprb,6.0869e+01_jprb/)
kao( :, 4,12,14) = (/&
&3.1115e+01_jprb,2.7226e+01_jprb,2.5855e+01_jprb,2.8871e+01_jprb,3.4864e+01_jprb,4.1538e+01_jprb,&
&4.7864e+01_jprb,5.3711e+01_jprb,6.0982e+01_jprb/)
kao( :, 5,12,14) = (/&
&4.4619e+01_jprb,3.9042e+01_jprb,3.4233e+01_jprb,3.3732e+01_jprb,3.6915e+01_jprb,4.2904e+01_jprb,&
&4.8966e+01_jprb,5.4437e+01_jprb,6.0955e+01_jprb/)
kao( :, 1,13,14) = (/&
&6.6733e+00_jprb,1.0528e+01_jprb,1.9102e+01_jprb,2.7491e+01_jprb,3.5658e+01_jprb,4.3660e+01_jprb,&
&5.1735e+01_jprb,6.0358e+01_jprb,6.9219e+01_jprb/)
kao( :, 2,13,14) = (/&
&1.1655e+01_jprb,1.2870e+01_jprb,2.0329e+01_jprb,2.8808e+01_jprb,3.6997e+01_jprb,4.4910e+01_jprb,&
&5.2656e+01_jprb,6.0744e+01_jprb,6.9651e+01_jprb/)
kao( :, 3,13,14) = (/&
&1.8767e+01_jprb,1.7501e+01_jprb,2.2287e+01_jprb,3.0262e+01_jprb,3.8454e+01_jprb,4.6291e+01_jprb,&
&5.3806e+01_jprb,6.1028e+01_jprb,6.9886e+01_jprb/)
kao( :, 4,13,14) = (/&
&2.8382e+01_jprb,2.4995e+01_jprb,2.6394e+01_jprb,3.2078e+01_jprb,4.0012e+01_jprb,4.7748e+01_jprb,&
&5.5029e+01_jprb,6.1702e+01_jprb,6.9938e+01_jprb/)
kao( :, 5,13,14) = (/&
&4.0772e+01_jprb,3.5676e+01_jprb,3.3182e+01_jprb,3.5686e+01_jprb,4.1712e+01_jprb,4.9244e+01_jprb,&
&5.6238e+01_jprb,6.2475e+01_jprb,6.9819e+01_jprb/)
kao( :, 1, 1,15) = (/&
&1.1094e+02_jprb,9.7072e+01_jprb,8.3204e+01_jprb,6.9337e+01_jprb,5.5470e+01_jprb,4.1602e+01_jprb,&
&2.7735e+01_jprb,1.3867e+01_jprb,4.4845e+01_jprb/)
kao( :, 2, 1,15) = (/&
&1.4352e+02_jprb,1.2558e+02_jprb,1.0764e+02_jprb,8.9703e+01_jprb,7.1762e+01_jprb,5.3822e+01_jprb,&
&3.5881e+01_jprb,1.7941e+01_jprb,5.0973e+01_jprb/)
kao( :, 3, 1,15) = (/&
&1.8038e+02_jprb,1.5783e+02_jprb,1.3528e+02_jprb,1.1274e+02_jprb,9.0189e+01_jprb,6.7642e+01_jprb,&
&4.5094e+01_jprb,2.2547e+01_jprb,5.7040e+01_jprb/)
kao( :, 4, 1,15) = (/&
&2.2134e+02_jprb,1.9367e+02_jprb,1.6600e+02_jprb,1.3834e+02_jprb,1.1067e+02_jprb,8.3002e+01_jprb,&
&5.5334e+01_jprb,2.7667e+01_jprb,6.3000e+01_jprb/)
kao( :, 5, 1,15) = (/&
&2.6568e+02_jprb,2.3247e+02_jprb,1.9926e+02_jprb,1.6605e+02_jprb,1.3284e+02_jprb,9.9630e+01_jprb,&
&6.6420e+01_jprb,3.3210e+01_jprb,6.8855e+01_jprb/)
kao( :, 1, 2,15) = (/&
&1.1363e+02_jprb,9.9422e+01_jprb,8.5219e+01_jprb,7.1016e+01_jprb,5.6813e+01_jprb,4.2609e+01_jprb,&
&2.8406e+01_jprb,1.4203e+01_jprb,3.3096e+01_jprb/)
kao( :, 2, 2,15) = (/&
&1.4930e+02_jprb,1.3064e+02_jprb,1.1197e+02_jprb,9.3312e+01_jprb,7.4650e+01_jprb,5.5987e+01_jprb,&
&3.7325e+01_jprb,1.8662e+01_jprb,3.7888e+01_jprb/)
kao( :, 3, 2,15) = (/&
&1.9010e+02_jprb,1.6634e+02_jprb,1.4258e+02_jprb,1.1881e+02_jprb,9.5050e+01_jprb,7.1288e+01_jprb,&
&4.7525e+01_jprb,2.3763e+01_jprb,4.2686e+01_jprb/)
kao( :, 4, 2,15) = (/&
&2.3571e+02_jprb,2.0625e+02_jprb,1.7678e+02_jprb,1.4732e+02_jprb,1.1785e+02_jprb,8.8391e+01_jprb,&
&5.8927e+01_jprb,2.9464e+01_jprb,4.7440e+01_jprb/)
kao( :, 5, 2,15) = (/&
&2.8549e+02_jprb,2.4980e+02_jprb,2.1412e+02_jprb,1.7843e+02_jprb,1.4274e+02_jprb,1.0706e+02_jprb,&
&7.1372e+01_jprb,3.5686e+01_jprb,5.2117e+01_jprb/)
kao( :, 1, 3,15) = (/&
&1.0870e+02_jprb,9.5115e+01_jprb,8.1527e+01_jprb,6.7939e+01_jprb,5.4352e+01_jprb,4.0764e+01_jprb,&
&2.7176e+01_jprb,1.4092e+01_jprb,1.9358e+01_jprb/)
kao( :, 2, 3,15) = (/&
&1.4594e+02_jprb,1.2770e+02_jprb,1.0946e+02_jprb,9.1215e+01_jprb,7.2972e+01_jprb,5.4729e+01_jprb,&
&3.6486e+01_jprb,1.8243e+01_jprb,2.1671e+01_jprb/)
kao( :, 3, 3,15) = (/&
&1.8927e+02_jprb,1.6561e+02_jprb,1.4196e+02_jprb,1.1830e+02_jprb,9.4637e+01_jprb,7.0978e+01_jprb,&
&4.7319e+01_jprb,2.3659e+01_jprb,2.4176e+01_jprb/)
kao( :, 4, 3,15) = (/&
&2.3825e+02_jprb,2.0847e+02_jprb,1.7869e+02_jprb,1.4891e+02_jprb,1.1913e+02_jprb,8.9345e+01_jprb,&
&5.9563e+01_jprb,2.9782e+01_jprb,2.6798e+01_jprb/)
kao( :, 5, 3,15) = (/&
&2.9226e+02_jprb,2.5573e+02_jprb,2.1920e+02_jprb,1.8266e+02_jprb,1.4613e+02_jprb,1.0960e+02_jprb,&
&7.3065e+01_jprb,3.6533e+01_jprb,2.9446e+01_jprb/)
kao( :, 1, 4,15) = (/&
&1.0014e+02_jprb,8.7619e+01_jprb,7.5102e+01_jprb,6.2585e+01_jprb,5.0068e+01_jprb,3.7551e+01_jprb,&
&2.5034e+01_jprb,1.5422e+01_jprb,1.8003e+01_jprb/)
kao( :, 2, 4,15) = (/&
&1.3789e+02_jprb,1.2065e+02_jprb,1.0342e+02_jprb,8.6180e+01_jprb,6.8944e+01_jprb,5.1708e+01_jprb,&
&3.4472e+01_jprb,1.7683e+01_jprb,1.8158e+01_jprb/)
kao( :, 3, 4,15) = (/&
&1.8258e+02_jprb,1.5976e+02_jprb,1.3693e+02_jprb,1.1411e+02_jprb,9.1289e+01_jprb,6.8467e+01_jprb,&
&4.5645e+01_jprb,2.2822e+01_jprb,1.8280e+01_jprb/)
kao( :, 4, 4,15) = (/&
&2.3380e+02_jprb,2.0458e+02_jprb,1.7535e+02_jprb,1.4613e+02_jprb,1.1690e+02_jprb,8.7677e+01_jprb,&
&5.8451e+01_jprb,2.9226e+01_jprb,1.8394e+01_jprb/)
kao( :, 5, 4,15) = (/&
&2.9132e+02_jprb,2.5490e+02_jprb,2.1849e+02_jprb,1.8207e+02_jprb,1.4566e+02_jprb,1.0924e+02_jprb,&
&7.2830e+01_jprb,3.6415e+01_jprb,1.8697e+01_jprb/)
kao( :, 1, 5,15) = (/&
&9.0165e+01_jprb,7.8895e+01_jprb,6.7624e+01_jprb,5.6353e+01_jprb,4.5083e+01_jprb,3.3812e+01_jprb,&
&2.2547e+01_jprb,1.8028e+01_jprb,2.1110e+01_jprb/)
kao( :, 2, 5,15) = (/&
&1.2751e+02_jprb,1.1157e+02_jprb,9.5631e+01_jprb,7.9692e+01_jprb,6.3754e+01_jprb,4.7815e+01_jprb,&
&3.1877e+01_jprb,1.9044e+01_jprb,2.1192e+01_jprb/)
kao( :, 3, 5,15) = (/&
&1.7270e+02_jprb,1.5111e+02_jprb,1.2952e+02_jprb,1.0794e+02_jprb,8.6350e+01_jprb,6.4762e+01_jprb,&
&4.3175e+01_jprb,2.2254e+01_jprb,2.1273e+01_jprb/)
kao( :, 4, 5,15) = (/&
&2.2614e+02_jprb,1.9787e+02_jprb,1.6960e+02_jprb,1.4133e+02_jprb,1.1307e+02_jprb,8.4801e+01_jprb,&
&5.6534e+01_jprb,2.8267e+01_jprb,2.1307e+01_jprb/)
kao( :, 5, 5,15) = (/&
&2.8741e+02_jprb,2.5148e+02_jprb,2.1556e+02_jprb,1.7963e+02_jprb,1.4370e+02_jprb,1.0778e+02_jprb,&
&7.1852e+01_jprb,3.5926e+01_jprb,2.1269e+01_jprb/)
kao( :, 1, 6,15) = (/&
&7.8026e+01_jprb,6.8273e+01_jprb,5.8519e+01_jprb,4.8766e+01_jprb,3.9013e+01_jprb,2.9260e+01_jprb,&
&2.1248e+01_jprb,2.1634e+01_jprb,2.5118e+01_jprb/)
kao( :, 2, 6,15) = (/&
&1.1411e+02_jprb,9.9849e+01_jprb,8.5585e+01_jprb,7.1321e+01_jprb,5.7057e+01_jprb,4.2792e+01_jprb,&
&2.8533e+01_jprb,2.2027e+01_jprb,2.5242e+01_jprb/)
kao( :, 3, 6,15) = (/&
&1.5933e+02_jprb,1.3941e+02_jprb,1.1950e+02_jprb,9.9580e+01_jprb,7.9664e+01_jprb,5.9748e+01_jprb,&
&3.9832e+01_jprb,2.3409e+01_jprb,2.5326e+01_jprb/)
kao( :, 4, 6,15) = (/&
&2.1384e+02_jprb,1.8711e+02_jprb,1.6038e+02_jprb,1.3365e+02_jprb,1.0692e+02_jprb,8.0189e+01_jprb,&
&5.3459e+01_jprb,2.7570e+01_jprb,2.5371e+01_jprb/)
kao( :, 5, 6,15) = (/&
&2.7735e+02_jprb,2.4268e+02_jprb,2.0801e+02_jprb,1.7334e+02_jprb,1.3868e+02_jprb,1.0401e+02_jprb,&
&6.9338e+01_jprb,3.4669e+01_jprb,2.5359e+01_jprb/)
kao( :, 1, 7,15) = (/&
&6.5827e+01_jprb,5.7598e+01_jprb,4.9370e+01_jprb,4.1142e+01_jprb,3.2913e+01_jprb,2.5331e+01_jprb,&
&2.3025e+01_jprb,2.5936e+01_jprb,2.9970e+01_jprb/)
kao( :, 2, 7,15) = (/&
&1.0010e+02_jprb,8.7584e+01_jprb,7.5072e+01_jprb,6.2560e+01_jprb,5.0048e+01_jprb,3.7536e+01_jprb,&
&2.7016e+01_jprb,2.6117e+01_jprb,3.0165e+01_jprb/)
kao( :, 3, 7,15) = (/&
&1.4417e+02_jprb,1.2615e+02_jprb,1.0813e+02_jprb,9.0105e+01_jprb,7.2084e+01_jprb,5.4063e+01_jprb,&
&3.6043e+01_jprb,2.6827e+01_jprb,3.0311e+01_jprb/)
kao( :, 4, 7,15) = (/&
&1.9838e+02_jprb,1.7359e+02_jprb,1.4879e+02_jprb,1.2399e+02_jprb,9.9192e+01_jprb,7.4394e+01_jprb,&
&4.9596e+01_jprb,2.8984e+01_jprb,3.0397e+01_jprb/)
kao( :, 5, 7,15) = (/&
&2.6264e+02_jprb,2.2981e+02_jprb,1.9698e+02_jprb,1.6415e+02_jprb,1.3132e+02_jprb,9.8492e+01_jprb,&
&6.5661e+01_jprb,3.3916e+01_jprb,3.0409e+01_jprb/)
kao( :, 1, 8,15) = (/&
&5.4379e+01_jprb,4.7581e+01_jprb,4.0784e+01_jprb,3.3987e+01_jprb,2.7376e+01_jprb,2.4616e+01_jprb,&
&2.6821e+01_jprb,3.1053e+01_jprb,3.5784e+01_jprb/)
kao( :, 2, 8,15) = (/&
&8.6031e+01_jprb,7.5277e+01_jprb,6.4523e+01_jprb,5.3770e+01_jprb,4.3016e+01_jprb,3.2712e+01_jprb,&
&2.8406e+01_jprb,3.1344e+01_jprb,3.6100e+01_jprb/)
kao( :, 3, 8,15) = (/&
&1.2793e+02_jprb,1.1194e+02_jprb,9.5951e+01_jprb,7.9959e+01_jprb,6.3967e+01_jprb,4.7975e+01_jprb,&
&3.4121e+01_jprb,3.1758e+01_jprb,3.6313e+01_jprb/)
kao( :, 4, 8,15) = (/&
&1.8066e+02_jprb,1.5808e+02_jprb,1.3550e+02_jprb,1.1291e+02_jprb,9.0332e+01_jprb,6.7749e+01_jprb,&
&4.5233e+01_jprb,3.2608e+01_jprb,3.6463e+01_jprb/)
kao( :, 5, 8,15) = (/&
&2.4439e+02_jprb,2.1384e+02_jprb,1.8329e+02_jprb,1.5274e+02_jprb,1.2219e+02_jprb,9.1646e+01_jprb,&
&6.1097e+01_jprb,3.5772e+01_jprb,3.6527e+01_jprb/)
kao( :, 1, 9,15) = (/&
&4.3573e+01_jprb,3.8127e+01_jprb,3.2680e+01_jprb,2.7311e+01_jprb,2.5199e+01_jprb,2.7215e+01_jprb,&
&3.1843e+01_jprb,3.7151e+01_jprb,4.2720e+01_jprb/)
kao( :, 2, 9,15) = (/&
&7.1953e+01_jprb,6.2959e+01_jprb,5.3964e+01_jprb,4.4970e+01_jprb,3.6145e+01_jprb,3.1469e+01_jprb,&
&3.2757e+01_jprb,3.7549e+01_jprb,4.3159e+01_jprb/)
kao( :, 3, 9,15) = (/&
&1.1068e+02_jprb,9.6849e+01_jprb,8.3014e+01_jprb,6.9178e+01_jprb,5.5342e+01_jprb,4.2149e+01_jprb,&
&3.5486e+01_jprb,3.7854e+01_jprb,4.3494e+01_jprb/)
kao( :, 4, 9,15) = (/&
&1.6091e+02_jprb,1.4079e+02_jprb,1.2068e+02_jprb,1.0057e+02_jprb,8.0454e+01_jprb,6.0340e+01_jprb,&
&4.2919e+01_jprb,3.8576e+01_jprb,4.3720e+01_jprb/)
kao( :, 5, 9,15) = (/&
&2.2364e+02_jprb,1.9568e+02_jprb,1.6773e+02_jprb,1.3977e+02_jprb,1.1182e+02_jprb,8.3864e+01_jprb,&
&5.6032e+01_jprb,3.9906e+01_jprb,4.3837e+01_jprb/)
kao( :, 1,10,15) = (/&
&3.5400e+01_jprb,3.0975e+01_jprb,2.6550e+01_jprb,2.4562e+01_jprb,2.6642e+01_jprb,3.2016e+01_jprb,&
&3.8070e+01_jprb,4.4415e+01_jprb,5.0995e+01_jprb/)
kao( :, 2,10,15) = (/&
&6.0807e+01_jprb,5.3206e+01_jprb,4.5605e+01_jprb,3.8054e+01_jprb,3.3439e+01_jprb,3.3829e+01_jprb,&
&3.8722e+01_jprb,4.4959e+01_jprb,5.1600e+01_jprb/)
kao( :, 3,10,15) = (/&
&9.6798e+01_jprb,8.4698e+01_jprb,7.2598e+01_jprb,6.0498e+01_jprb,4.8510e+01_jprb,4.0770e+01_jprb,&
&4.0001e+01_jprb,4.5358e+01_jprb,5.2042e+01_jprb/)
kao( :, 4,10,15) = (/&
&1.4501e+02_jprb,1.2688e+02_jprb,1.0876e+02_jprb,9.0630e+01_jprb,7.2504e+01_jprb,5.4950e+01_jprb,&
&4.4708e+01_jprb,4.5865e+01_jprb,5.2368e+01_jprb/)
kao( :, 5,10,15) = (/&
&2.0627e+02_jprb,1.8049e+02_jprb,1.5470e+02_jprb,1.2892e+02_jprb,1.0314e+02_jprb,7.7351e+01_jprb,&
&5.4677e+01_jprb,4.6645e+01_jprb,5.2546e+01_jprb/)
kao( :, 1,11,15) = (/&
&3.7164e+01_jprb,3.2519e+01_jprb,2.8213e+01_jprb,2.7852e+01_jprb,3.1623e+01_jprb,3.8446e+01_jprb,&
&4.5726e+01_jprb,5.3347e+01_jprb,6.1167e+01_jprb/)
kao( :, 2,11,15) = (/&
&6.4161e+01_jprb,5.6141e+01_jprb,4.8121e+01_jprb,4.0753e+01_jprb,3.7907e+01_jprb,4.0136e+01_jprb,&
&4.6490e+01_jprb,5.3971e+01_jprb,6.1868e+01_jprb/)
kao( :, 3,11,15) = (/&
&1.0256e+02_jprb,8.9738e+01_jprb,7.6919e+01_jprb,6.4099e+01_jprb,5.2370e+01_jprb,4.6558e+01_jprb,&
&4.7795e+01_jprb,5.4418e+01_jprb,6.2373e+01_jprb/)
kao( :, 4,11,15) = (/&
&1.5386e+02_jprb,1.3463e+02_jprb,1.1539e+02_jprb,9.6161e+01_jprb,7.6929e+01_jprb,6.0144e+01_jprb,&
&5.2042e+01_jprb,5.4998e+01_jprb,6.2715e+01_jprb/)
kao( :, 5,11,15) = (/&
&2.1904e+02_jprb,1.9166e+02_jprb,1.6428e+02_jprb,1.3690e+02_jprb,1.0952e+02_jprb,8.2243e+01_jprb,&
&6.1497e+01_jprb,5.5854e+01_jprb,6.2906e+01_jprb/)
kao( :, 1,12,15) = (/&
&3.8871e+01_jprb,3.4012e+01_jprb,3.0393e+01_jprb,3.1931e+01_jprb,3.7660e+01_jprb,4.6060e+01_jprb,&
&5.4792e+01_jprb,6.3924e+01_jprb,7.3229e+01_jprb/)
kao( :, 2,12,15) = (/&
&6.7284e+01_jprb,5.8873e+01_jprb,5.0463e+01_jprb,4.4214e+01_jprb,4.3443e+01_jprb,4.7760e+01_jprb,&
&5.5669e+01_jprb,6.4596e+01_jprb,7.3985e+01_jprb/)
kao( :, 3,12,15) = (/&
&1.0766e+02_jprb,9.4199e+01_jprb,8.0742e+01_jprb,6.7302e+01_jprb,5.7248e+01_jprb,5.3670e+01_jprb,&
&5.7112e+01_jprb,6.5078e+01_jprb,7.4551e+01_jprb/)
kao( :, 4,12,15) = (/&
&1.6163e+02_jprb,1.4143e+02_jprb,1.2122e+02_jprb,1.0102e+02_jprb,8.1042e+01_jprb,6.6522e+01_jprb,&
&6.0901e+01_jprb,6.5731e+01_jprb,7.4885e+01_jprb/)
kao( :, 5,12,15) = (/&
&2.3044e+02_jprb,2.0164e+02_jprb,1.7283e+02_jprb,1.4403e+02_jprb,1.1522e+02_jprb,8.7709e+01_jprb,&
&6.9646e+01_jprb,6.6631e+01_jprb,7.5001e+01_jprb/)
kao( :, 1,13,15) = (/&
&4.0246e+01_jprb,3.5215e+01_jprb,3.3104e+01_jprb,3.6905e+01_jprb,4.4893e+01_jprb,5.4993e+01_jprb,&
&6.5407e+01_jprb,7.6308e+01_jprb,8.7364e+01_jprb/)
kao( :, 2,13,15) = (/&
&6.9680e+01_jprb,6.0970e+01_jprb,5.2454e+01_jprb,4.8453e+01_jprb,5.0138e+01_jprb,5.6837e+01_jprb,&
&6.6412e+01_jprb,7.7026e+01_jprb,8.8187e+01_jprb/)
kao( :, 3,13,15) = (/&
&1.1160e+02_jprb,9.7650e+01_jprb,8.3700e+01_jprb,7.0502e+01_jprb,6.3014e+01_jprb,6.2089e+01_jprb,&
&6.7983e+01_jprb,7.7487e+01_jprb,8.8731e+01_jprb/)
kao( :, 4,13,15) = (/&
&1.6767e+02_jprb,1.4671e+02_jprb,1.2575e+02_jprb,1.0479e+02_jprb,8.5648e+01_jprb,7.3989e+01_jprb,&
&7.1252e+01_jprb,7.8174e+01_jprb,8.8985e+01_jprb/)
kao( :, 5,13,15) = (/&
&2.3895e+02_jprb,2.0908e+02_jprb,1.7922e+02_jprb,1.4935e+02_jprb,1.1948e+02_jprb,9.3985e+01_jprb,&
&7.9182e+01_jprb,7.9098e+01_jprb,8.9007e+01_jprb/)
kao( :, 1, 1,16) = (/&
&1.3674e+02_jprb,1.1964e+02_jprb,1.0255e+02_jprb,8.5460e+01_jprb,6.8368e+01_jprb,5.1276e+01_jprb,&
&3.4184e+01_jprb,1.7092e+01_jprb,4.7777e+01_jprb/)
kao( :, 2, 1,16) = (/&
&1.7779e+02_jprb,1.5556e+02_jprb,1.3334e+02_jprb,1.1112e+02_jprb,8.8894e+01_jprb,6.6670e+01_jprb,&
&4.4447e+01_jprb,2.2223e+01_jprb,5.4515e+01_jprb/)
kao( :, 3, 1,16) = (/&
&2.2447e+02_jprb,1.9641e+02_jprb,1.6835e+02_jprb,1.4030e+02_jprb,1.1224e+02_jprb,8.4177e+01_jprb,&
&5.6118e+01_jprb,2.8059e+01_jprb,6.1237e+01_jprb/)
kao( :, 4, 1,16) = (/&
&2.7629e+02_jprb,2.4176e+02_jprb,2.0722e+02_jprb,1.7268e+02_jprb,1.3815e+02_jprb,1.0361e+02_jprb,&
&6.9073e+01_jprb,3.4537e+01_jprb,6.7881e+01_jprb/)
kao( :, 5, 1,16) = (/&
&3.3259e+02_jprb,2.9102e+02_jprb,2.4944e+02_jprb,2.0787e+02_jprb,1.6630e+02_jprb,1.2472e+02_jprb,&
&8.3148e+01_jprb,4.1574e+01_jprb,7.4387e+01_jprb/)
kao( :, 1, 2,16) = (/&
&1.4678e+02_jprb,1.2843e+02_jprb,1.1009e+02_jprb,9.1739e+01_jprb,7.3391e+01_jprb,5.5044e+01_jprb,&
&3.6696e+01_jprb,1.8348e+01_jprb,3.6081e+01_jprb/)
kao( :, 2, 2,16) = (/&
&1.9364e+02_jprb,1.6943e+02_jprb,1.4523e+02_jprb,1.2102e+02_jprb,9.6819e+01_jprb,7.2614e+01_jprb,&
&4.8409e+01_jprb,2.4205e+01_jprb,4.1498e+01_jprb/)
kao( :, 3, 2,16) = (/&
&2.4749e+02_jprb,2.1655e+02_jprb,1.8562e+02_jprb,1.5468e+02_jprb,1.2374e+02_jprb,9.2808e+01_jprb,&
&6.1872e+01_jprb,3.0936e+01_jprb,4.6929e+01_jprb/)
kao( :, 4, 2,16) = (/&
&3.0786e+02_jprb,2.6938e+02_jprb,2.3089e+02_jprb,1.9241e+02_jprb,1.5393e+02_jprb,1.1545e+02_jprb,&
&7.6965e+01_jprb,3.8482e+01_jprb,5.2308e+01_jprb/)
kao( :, 5, 2,16) = (/&
&3.7405e+02_jprb,3.2730e+02_jprb,2.8054e+02_jprb,2.3378e+02_jprb,1.8703e+02_jprb,1.4027e+02_jprb,&
&9.3513e+01_jprb,4.6757e+01_jprb,5.7603e+01_jprb/)
kao( :, 1, 3,16) = (/&
&1.4770e+02_jprb,1.2924e+02_jprb,1.1078e+02_jprb,9.2315e+01_jprb,7.3852e+01_jprb,5.5389e+01_jprb,&
&3.6926e+01_jprb,1.8463e+01_jprb,2.0017e+01_jprb/)
kao( :, 2, 3,16) = (/&
&1.9922e+02_jprb,1.7432e+02_jprb,1.4941e+02_jprb,1.2451e+02_jprb,9.9609e+01_jprb,7.4707e+01_jprb,&
&4.9805e+01_jprb,2.4902e+01_jprb,2.3072e+01_jprb/)
kao( :, 3, 3,16) = (/&
&2.5951e+02_jprb,2.2707e+02_jprb,1.9463e+02_jprb,1.6219e+02_jprb,1.2975e+02_jprb,9.7315e+01_jprb,&
&6.4877e+01_jprb,3.2438e+01_jprb,2.6326e+01_jprb/)
kao( :, 4, 3,16) = (/&
&3.2798e+02_jprb,2.8698e+02_jprb,2.4598e+02_jprb,2.0498e+02_jprb,1.6399e+02_jprb,1.2299e+02_jprb,&
&8.1994e+01_jprb,4.0997e+01_jprb,2.9574e+01_jprb/)
kao( :, 5, 3,16) = (/&
&4.0406e+02_jprb,3.5355e+02_jprb,3.0305e+02_jprb,2.5254e+02_jprb,2.0203e+02_jprb,1.5152e+02_jprb,&
&1.0102e+02_jprb,5.0508e+01_jprb,3.2777e+01_jprb/)
kao( :, 1, 4,16) = (/&
&1.4422e+02_jprb,1.2619e+02_jprb,1.0816e+02_jprb,9.0137e+01_jprb,7.2109e+01_jprb,5.4082e+01_jprb,&
&3.6055e+01_jprb,1.8027e+01_jprb,1.8526e+01_jprb/)
kao( :, 2, 4,16) = (/&
&1.9978e+02_jprb,1.7481e+02_jprb,1.4983e+02_jprb,1.2486e+02_jprb,9.9890e+01_jprb,7.4917e+01_jprb,&
&4.9945e+01_jprb,2.4972e+01_jprb,1.9155e+01_jprb/)
kao( :, 3, 4,16) = (/&
&2.6597e+02_jprb,2.3273e+02_jprb,1.9948e+02_jprb,1.6623e+02_jprb,1.3299e+02_jprb,9.9740e+01_jprb,&
&6.6493e+01_jprb,3.3247e+01_jprb,1.9814e+01_jprb/)
kao( :, 4, 4,16) = (/&
&3.4257e+02_jprb,2.9975e+02_jprb,2.5693e+02_jprb,2.1411e+02_jprb,1.7128e+02_jprb,1.2846e+02_jprb,&
&8.5642e+01_jprb,4.2821e+01_jprb,2.0371e+01_jprb/)
kao( :, 5, 4,16) = (/&
&4.2875e+02_jprb,3.7515e+02_jprb,3.2156e+02_jprb,2.6797e+02_jprb,2.1437e+02_jprb,1.6078e+02_jprb,&
&1.0719e+02_jprb,5.3593e+01_jprb,2.0835e+01_jprb/)
kao( :, 1, 5,16) = (/&
&1.3899e+02_jprb,1.2162e+02_jprb,1.0425e+02_jprb,8.6871e+01_jprb,6.9497e+01_jprb,5.2123e+01_jprb,&
&3.4748e+01_jprb,1.8596e+01_jprb,2.1711e+01_jprb/)
kao( :, 2, 5,16) = (/&
&1.9805e+02_jprb,1.7329e+02_jprb,1.4854e+02_jprb,1.2378e+02_jprb,9.9025e+01_jprb,7.4269e+01_jprb,&
&4.9513e+01_jprb,2.4756e+01_jprb,2.1848e+01_jprb/)
kao( :, 3, 5,16) = (/&
&2.7005e+02_jprb,2.3630e+02_jprb,2.0254e+02_jprb,1.6878e+02_jprb,1.3503e+02_jprb,1.0127e+02_jprb,&
&6.7514e+01_jprb,3.3757e+01_jprb,2.1967e+01_jprb/)
kao( :, 4, 5,16) = (/&
&3.5478e+02_jprb,3.1044e+02_jprb,2.6609e+02_jprb,2.2174e+02_jprb,1.7739e+02_jprb,1.3304e+02_jprb,&
&8.8696e+01_jprb,4.4348e+01_jprb,2.2139e+01_jprb/)
kao( :, 5, 5,16) = (/&
&4.5175e+02_jprb,3.9528e+02_jprb,3.3881e+02_jprb,2.8234e+02_jprb,2.2588e+02_jprb,1.6941e+02_jprb,&
&1.1294e+02_jprb,5.6469e+01_jprb,2.2377e+01_jprb/)
kao( :, 1, 6,16) = (/&
&1.3013e+02_jprb,1.1386e+02_jprb,9.7595e+01_jprb,8.1329e+01_jprb,6.5064e+01_jprb,4.8798e+01_jprb,&
&3.2532e+01_jprb,2.2484e+01_jprb,2.6076e+01_jprb/)
kao( :, 2, 6,16) = (/&
&1.9160e+02_jprb,1.6765e+02_jprb,1.4370e+02_jprb,1.1975e+02_jprb,9.5800e+01_jprb,7.1850e+01_jprb,&
&4.7900e+01_jprb,2.3950e+01_jprb,2.6232e+01_jprb/)
kao( :, 3, 6,16) = (/&
&2.6831e+02_jprb,2.3477e+02_jprb,2.0123e+02_jprb,1.6769e+02_jprb,1.3415e+02_jprb,1.0061e+02_jprb,&
&6.7076e+01_jprb,3.3538e+01_jprb,2.6352e+01_jprb/)
kao( :, 4, 6,16) = (/&
&3.6064e+02_jprb,3.1556e+02_jprb,2.7048e+02_jprb,2.2540e+02_jprb,1.8032e+02_jprb,1.3524e+02_jprb,&
&9.0160e+01_jprb,4.5080e+01_jprb,2.6414e+01_jprb/)
kao( :, 5, 6,16) = (/&
&4.6794e+02_jprb,4.0944e+02_jprb,3.5095e+02_jprb,2.9246e+02_jprb,2.3397e+02_jprb,1.7548e+02_jprb,&
&1.1698e+02_jprb,5.8492e+01_jprb,2.6392e+01_jprb/)
kao( :, 1, 7,16) = (/&
&1.1956e+02_jprb,1.0461e+02_jprb,8.9667e+01_jprb,7.4722e+01_jprb,5.9778e+01_jprb,4.4833e+01_jprb,&
&2.9889e+01_jprb,2.7199e+01_jprb,3.1421e+01_jprb/)
kao( :, 2, 7,16) = (/&
&1.8238e+02_jprb,1.5958e+02_jprb,1.3678e+02_jprb,1.1398e+02_jprb,9.1188e+01_jprb,6.8391e+01_jprb,&
&4.5594e+01_jprb,2.7417e+01_jprb,3.1636e+01_jprb/)
kao( :, 3, 7,16) = (/&
&2.6306e+02_jprb,2.3018e+02_jprb,1.9730e+02_jprb,1.6441e+02_jprb,1.3153e+02_jprb,9.8648e+01_jprb,&
&6.5766e+01_jprb,3.2883e+01_jprb,3.1799e+01_jprb/)
kao( :, 4, 7,16) = (/&
&3.6216e+02_jprb,3.1689e+02_jprb,2.7162e+02_jprb,2.2635e+02_jprb,1.8108e+02_jprb,1.3581e+02_jprb,&
&9.0539e+01_jprb,4.5269e+01_jprb,3.1905e+01_jprb/)
kao( :, 5, 7,16) = (/&
&4.7940e+02_jprb,4.1947e+02_jprb,3.5955e+02_jprb,2.9962e+02_jprb,2.3970e+02_jprb,1.7977e+02_jprb,&
&1.1985e+02_jprb,5.9925e+01_jprb,3.1925e+01_jprb/)
kao( :, 1, 8,16) = (/&
&1.0811e+02_jprb,9.4599e+01_jprb,8.1085e+01_jprb,6.7571e+01_jprb,5.4057e+01_jprb,4.0543e+01_jprb,&
&2.8198e+01_jprb,3.2881e+01_jprb,3.7875e+01_jprb/)
kao( :, 2, 8,16) = (/&
&1.7137e+02_jprb,1.4995e+02_jprb,1.2853e+02_jprb,1.0711e+02_jprb,8.5687e+01_jprb,6.4265e+01_jprb,&
&4.2843e+01_jprb,3.3181e+01_jprb,3.8195e+01_jprb/)
kao( :, 3, 8,16) = (/&
&2.5494e+02_jprb,2.2307e+02_jprb,1.9121e+02_jprb,1.5934e+02_jprb,1.2747e+02_jprb,9.5603e+01_jprb,&
&6.3736e+01_jprb,3.3454e+01_jprb,3.8440e+01_jprb/)
kao( :, 4, 8,16) = (/&
&3.5993e+02_jprb,3.1494e+02_jprb,2.6995e+02_jprb,2.2496e+02_jprb,1.7997e+02_jprb,1.3498e+02_jprb,&
&8.9984e+01_jprb,4.4992e+01_jprb,3.8593e+01_jprb/)
kao( :, 5, 8,16) = (/&
&4.8664e+02_jprb,4.2581e+02_jprb,3.6498e+02_jprb,3.0415e+02_jprb,2.4332e+02_jprb,1.8249e+02_jprb,&
&1.2166e+02_jprb,6.0830e+01_jprb,3.8660e+01_jprb/)
kao( :, 1, 9,16) = (/&
&9.5566e+01_jprb,8.3620e+01_jprb,7.1674e+01_jprb,5.9728e+01_jprb,4.7783e+01_jprb,3.5837e+01_jprb,&
&3.4022e+01_jprb,3.9693e+01_jprb,4.5621e+01_jprb/)
kao( :, 2, 9,16) = (/&
&1.5795e+02_jprb,1.3820e+02_jprb,1.1846e+02_jprb,9.8717e+01_jprb,7.8974e+01_jprb,5.9230e+01_jprb,&
&3.9487e+01_jprb,4.0126e+01_jprb,4.6102e+01_jprb/)
kao( :, 3, 9,16) = (/&
&2.4293e+02_jprb,2.1257e+02_jprb,1.8220e+02_jprb,1.5183e+02_jprb,1.2147e+02_jprb,9.1099e+01_jprb,&
&6.0733e+01_jprb,4.0455e+01_jprb,4.6460e+01_jprb/)
kao( :, 4, 9,16) = (/&
&3.5246e+02_jprb,3.0840e+02_jprb,2.6435e+02_jprb,2.2029e+02_jprb,1.7623e+02_jprb,1.3217e+02_jprb,&
&8.8115e+01_jprb,4.4330e+01_jprb,4.6688e+01_jprb/)
kao( :, 5, 9,16) = (/&
&4.8730e+02_jprb,4.2639e+02_jprb,3.6548e+02_jprb,3.0456e+02_jprb,2.4365e+02_jprb,1.8274e+02_jprb,&
&1.2183e+02_jprb,6.0913e+01_jprb,4.6814e+01_jprb/)
kao( :, 1,10,16) = (/&
&8.6364e+01_jprb,7.5568e+01_jprb,6.4773e+01_jprb,5.3977e+01_jprb,4.3182e+01_jprb,3.4440e+01_jprb,&
&4.1088e+01_jprb,4.7936e+01_jprb,5.5004e+01_jprb/)
kao( :, 2,10,16) = (/&
&1.4833e+02_jprb,1.2979e+02_jprb,1.1125e+02_jprb,9.2705e+01_jprb,7.4164e+01_jprb,5.5623e+01_jprb,&
&4.1568e+01_jprb,4.8496e+01_jprb,5.5636e+01_jprb/)
kao( :, 3,10,16) = (/&
&2.3518e+02_jprb,2.0578e+02_jprb,1.7638e+02_jprb,1.4699e+02_jprb,1.1759e+02_jprb,8.8191e+01_jprb,&
&5.8794e+01_jprb,4.8955e+01_jprb,5.6147e+01_jprb/)
kao( :, 4,10,16) = (/&
&3.4963e+02_jprb,3.0592e+02_jprb,2.6222e+02_jprb,2.1852e+02_jprb,1.7481e+02_jprb,1.3111e+02_jprb,&
&8.7406e+01_jprb,4.9235e+01_jprb,5.6450e+01_jprb/)
kao( :, 5,10,16) = (/&
&4.9302e+02_jprb,4.3139e+02_jprb,3.6977e+02_jprb,3.0814e+02_jprb,2.4651e+02_jprb,1.8488e+02_jprb,&
&1.2326e+02_jprb,6.1628e+01_jprb,5.6644e+01_jprb/)
kao( :, 1,11,16) = (/&
&1.0149e+02_jprb,8.8804e+01_jprb,7.6118e+01_jprb,6.3431e+01_jprb,5.0745e+01_jprb,4.1772e+01_jprb,&
&4.9883e+01_jprb,5.8197e+01_jprb,6.6698e+01_jprb/)
kao( :, 2,11,16) = (/&
&1.7380e+02_jprb,1.5208e+02_jprb,1.3035e+02_jprb,1.0863e+02_jprb,8.6902e+01_jprb,6.5176e+01_jprb,&
&5.0425e+01_jprb,5.8829e+01_jprb,6.7412e+01_jprb/)
kao( :, 3,11,16) = (/&
&2.7485e+02_jprb,2.4050e+02_jprb,2.0614e+02_jprb,1.7178e+02_jprb,1.3743e+02_jprb,1.0307e+02_jprb,&
&6.8713e+01_jprb,5.9345e+01_jprb,6.7990e+01_jprb/)
kao( :, 4,11,16) = (/&
&4.0747e+02_jprb,3.5653e+02_jprb,3.0560e+02_jprb,2.5467e+02_jprb,2.0373e+02_jprb,1.5280e+02_jprb,&
&1.0187e+02_jprb,5.9645e+01_jprb,6.8320e+01_jprb/)
kao( :, 5,11,16) = (/&
&5.7295e+02_jprb,5.0133e+02_jprb,4.2971e+02_jprb,3.5809e+02_jprb,2.8648e+02_jprb,2.1486e+02_jprb,&
&1.4324e+02_jprb,7.2192e+01_jprb,6.8483e+01_jprb/)
kao( :, 1,12,16) = (/&
&1.1827e+02_jprb,1.0349e+02_jprb,8.8705e+01_jprb,7.3921e+01_jprb,5.9137e+01_jprb,5.0630e+01_jprb,&
&6.0438e+01_jprb,7.0510e+01_jprb,8.0746e+01_jprb/)
kao( :, 2,12,16) = (/&
&2.0179e+02_jprb,1.7656e+02_jprb,1.5134e+02_jprb,1.2612e+02_jprb,1.0089e+02_jprb,7.5670e+01_jprb,&
&6.1072e+01_jprb,7.1251e+01_jprb,8.1581e+01_jprb/)
kao( :, 3,12,16) = (/&
&3.1798e+02_jprb,2.7824e+02_jprb,2.3849e+02_jprb,1.9874e+02_jprb,1.5899e+02_jprb,1.1924e+02_jprb,&
&7.9796e+01_jprb,7.1750e+01_jprb,8.2143e+01_jprb/)
kao( :, 4,12,16) = (/&
&4.7106e+02_jprb,4.1218e+02_jprb,3.5330e+02_jprb,2.9441e+02_jprb,2.3553e+02_jprb,1.7665e+02_jprb,&
&1.1777e+02_jprb,7.2076e+01_jprb,8.2504e+01_jprb/)
kao( :, 5,12,16) = (/&
&6.6390e+02_jprb,5.8091e+02_jprb,4.9792e+02_jprb,4.1494e+02_jprb,3.3195e+02_jprb,2.4896e+02_jprb,&
&1.6597e+02_jprb,8.4840e+01_jprb,8.2551e+01_jprb/)
kao( :, 1,13,16) = (/&
&1.3595e+02_jprb,1.1896e+02_jprb,1.0196e+02_jprb,8.4968e+01_jprb,6.8087e+01_jprb,6.1225e+01_jprb,&
&7.3041e+01_jprb,8.5214e+01_jprb,9.7532e+01_jprb/)
kao( :, 2,13,16) = (/&
&2.3178e+02_jprb,2.0280e+02_jprb,1.7383e+02_jprb,1.4486e+02_jprb,1.1589e+02_jprb,8.6916e+01_jprb,&
&7.3742e+01_jprb,8.6032e+01_jprb,9.8456e+01_jprb/)
kao( :, 3,13,16) = (/&
&3.6636e+02_jprb,3.2056e+02_jprb,2.7477e+02_jprb,2.2897e+02_jprb,1.8318e+02_jprb,1.3738e+02_jprb,&
&9.2837e+01_jprb,8.6498e+01_jprb,9.8980e+01_jprb/)
kao( :, 4,13,16) = (/&
&5.4438e+02_jprb,4.7633e+02_jprb,4.0829e+02_jprb,3.4024e+02_jprb,2.7219e+02_jprb,2.0414e+02_jprb,&
&1.3610e+02_jprb,8.6750e+01_jprb,9.9251e+01_jprb/)
kao( :, 5,13,16) = (/&
&7.6815e+02_jprb,6.7213e+02_jprb,5.7611e+02_jprb,4.8009e+02_jprb,3.8407e+02_jprb,2.8805e+02_jprb,&
&1.9204e+02_jprb,9.9763e+01_jprb,9.9159e+01_jprb/)


!     -----------------------------------------------------------------
RETURN
END SUBROUTINE rrtm_kgb15_a2