rrtm_kgb15_A1.F90

Go to the documentation of this file.

!OCL SCALAR
SUBROUTINE rrtm_kgb15_a1

!     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, 1) = (/&
&4.2962e-03_jprb,1.5232e-02_jprb,1.9579e-02_jprb,2.1453e-02_jprb,2.1148e-02_jprb,1.9096e-02_jprb,&
&1.5358e-02_jprb,9.6936e-03_jprb,2.2149e+00_jprb/)
kao( :, 2, 1, 1) = (/&
&4.2518e-03_jprb,1.5711e-02_jprb,2.0424e-02_jprb,2.2179e-02_jprb,2.1702e-02_jprb,1.9467e-02_jprb,&
&1.5548e-02_jprb,9.9480e-03_jprb,2.1772e+00_jprb/)
kao( :, 3, 1, 1) = (/&
&4.2138e-03_jprb,1.6217e-02_jprb,2.1181e-02_jprb,2.2786e-02_jprb,2.2148e-02_jprb,1.9747e-02_jprb,&
&1.5738e-02_jprb,1.0309e-02_jprb,2.1464e+00_jprb/)
kao( :, 4, 1, 1) = (/&
&4.1834e-03_jprb,1.6748e-02_jprb,2.1843e-02_jprb,2.3305e-02_jprb,2.2496e-02_jprb,1.9972e-02_jprb,&
&1.5965e-02_jprb,1.0775e-02_jprb,2.1191e+00_jprb/)
kao( :, 5, 1, 1) = (/&
&4.1558e-03_jprb,1.7275e-02_jprb,2.2401e-02_jprb,2.3742e-02_jprb,2.2783e-02_jprb,2.0184e-02_jprb,&
&1.6265e-02_jprb,1.1330e-02_jprb,2.0949e+00_jprb/)
kao( :, 1, 2, 1) = (/&
&3.2144e-03_jprb,1.2713e-02_jprb,1.6397e-02_jprb,1.7964e-02_jprb,1.7671e-02_jprb,1.5897e-02_jprb,&
&1.2690e-02_jprb,7.9486e-03_jprb,1.7669e+00_jprb/)
kao( :, 2, 2, 1) = (/&
&3.1641e-03_jprb,1.3084e-02_jprb,1.7085e-02_jprb,1.8507e-02_jprb,1.8077e-02_jprb,1.6151e-02_jprb,&
&1.2818e-02_jprb,8.1279e-03_jprb,1.7352e+00_jprb/)
kao( :, 3, 2, 1) = (/&
&3.1193e-03_jprb,1.3476e-02_jprb,1.7665e-02_jprb,1.8949e-02_jprb,1.8392e-02_jprb,1.6337e-02_jprb,&
&1.2943e-02_jprb,8.3974e-03_jprb,1.7079e+00_jprb/)
kao( :, 4, 2, 1) = (/&
&3.0784e-03_jprb,1.3887e-02_jprb,1.8147e-02_jprb,1.9317e-02_jprb,1.8624e-02_jprb,1.6477e-02_jprb,&
&1.3099e-02_jprb,8.7556e-03_jprb,1.6824e+00_jprb/)
kao( :, 5, 2, 1) = (/&
&3.0409e-03_jprb,1.4281e-02_jprb,1.8529e-02_jprb,1.9610e-02_jprb,1.8808e-02_jprb,1.6609e-02_jprb,&
&1.3316e-02_jprb,9.1921e-03_jprb,1.6588e+00_jprb/)
kao( :, 1, 3, 1) = (/&
&2.3395e-03_jprb,1.0516e-02_jprb,1.3567e-02_jprb,1.4918e-02_jprb,1.4648e-02_jprb,1.3103e-02_jprb,&
&1.0421e-02_jprb,6.4902e-03_jprb,1.3955e+00_jprb/)
kao( :, 2, 3, 1) = (/&
&2.2828e-03_jprb,1.0805e-02_jprb,1.4151e-02_jprb,1.5331e-02_jprb,1.4952e-02_jprb,1.3287e-02_jprb,&
&1.0515e-02_jprb,6.5971e-03_jprb,1.3684e+00_jprb/)
kao( :, 3, 3, 1) = (/&
&2.2291e-03_jprb,1.1094e-02_jprb,1.4601e-02_jprb,1.5662e-02_jprb,1.5177e-02_jprb,1.3417e-02_jprb,&
&1.0594e-02_jprb,6.7764e-03_jprb,1.3430e+00_jprb/)
kao( :, 4, 3, 1) = (/&
&2.1795e-03_jprb,1.1390e-02_jprb,1.4954e-02_jprb,1.5923e-02_jprb,1.5330e-02_jprb,1.3512e-02_jprb,&
&1.0687e-02_jprb,7.0307e-03_jprb,1.3188e+00_jprb/)
kao( :, 5, 3, 1) = (/&
&2.1341e-03_jprb,1.1671e-02_jprb,1.5220e-02_jprb,1.6118e-02_jprb,1.5441e-02_jprb,1.3589e-02_jprb,&
&1.0824e-02_jprb,7.3529e-03_jprb,1.2961e+00_jprb/)
kao( :, 1, 4, 1) = (/&
&1.7840e-03_jprb,8.7256e-03_jprb,1.1210e-02_jprb,1.2367e-02_jprb,1.2063e-02_jprb,1.0762e-02_jprb,&
&8.5444e-03_jprb,5.3058e-03_jprb,1.1276e+00_jprb/)
kao( :, 2, 4, 1) = (/&
&1.7259e-03_jprb,8.9625e-03_jprb,1.1715e-02_jprb,1.2698e-02_jprb,1.2306e-02_jprb,1.0908e-02_jprb,&
&8.6186e-03_jprb,5.3631e-03_jprb,1.1050e+00_jprb/)
kao( :, 3, 4, 1) = (/&
&1.6740e-03_jprb,9.1828e-03_jprb,1.2089e-02_jprb,1.2950e-02_jprb,1.2485e-02_jprb,1.1008e-02_jprb,&
&8.6759e-03_jprb,5.4730e-03_jprb,1.0830e+00_jprb/)
kao( :, 4, 4, 1) = (/&
&1.6269e-03_jprb,9.4080e-03_jprb,1.2363e-02_jprb,1.3144e-02_jprb,1.2603e-02_jprb,1.1084e-02_jprb,&
&8.7331e-03_jprb,5.6457e-03_jprb,1.0617e+00_jprb/)
kao( :, 5, 4, 1) = (/&
&1.5826e-03_jprb,9.6219e-03_jprb,1.2561e-02_jprb,1.3277e-02_jprb,1.2681e-02_jprb,1.1138e-02_jprb,&
&8.8166e-03_jprb,5.8778e-03_jprb,1.0410e+00_jprb/)
kao( :, 1, 5, 1) = (/&
&1.4218e-03_jprb,7.2507e-03_jprb,9.2498e-03_jprb,1.0184e-02_jprb,9.8965e-03_jprb,8.8186e-03_jprb,&
&6.9985e-03_jprb,4.3450e-03_jprb,9.2779e-01_jprb/)
kao( :, 2, 5, 1) = (/&
&1.3666e-03_jprb,7.4483e-03_jprb,9.6959e-03_jprb,1.0459e-02_jprb,1.0098e-02_jprb,8.9432e-03_jprb,&
&7.0603e-03_jprb,4.3726e-03_jprb,9.0832e-01_jprb/)
kao( :, 3, 5, 1) = (/&
&1.3168e-03_jprb,7.6293e-03_jprb,1.0015e-02_jprb,1.0662e-02_jprb,1.0249e-02_jprb,9.0283e-03_jprb,&
&7.1071e-03_jprb,4.4354e-03_jprb,8.8937e-01_jprb/)
kao( :, 4, 5, 1) = (/&
&1.2715e-03_jprb,7.8071e-03_jprb,1.0236e-02_jprb,1.0812e-02_jprb,1.0352e-02_jprb,9.0911e-03_jprb,&
&7.1478e-03_jprb,4.5476e-03_jprb,8.7061e-01_jprb/)
kao( :, 5, 5, 1) = (/&
&1.2303e-03_jprb,7.9773e-03_jprb,1.0389e-02_jprb,1.0918e-02_jprb,1.0419e-02_jprb,9.1375e-03_jprb,&
&7.1984e-03_jprb,4.7106e-03_jprb,8.5172e-01_jprb/)
kao( :, 1, 6, 1) = (/&
&1.1609e-03_jprb,5.9982e-03_jprb,7.5441e-03_jprb,8.3219e-03_jprb,8.0915e-03_jprb,7.2051e-03_jprb,&
&5.7215e-03_jprb,3.5604e-03_jprb,7.7269e-01_jprb/)
kao( :, 2, 6, 1) = (/&
&1.1108e-03_jprb,6.1686e-03_jprb,7.9597e-03_jprb,8.5717e-03_jprb,8.2612e-03_jprb,7.3195e-03_jprb,&
&5.7777e-03_jprb,3.5731e-03_jprb,7.5578e-01_jprb/)
kao( :, 3, 6, 1) = (/&
&1.0654e-03_jprb,6.3243e-03_jprb,8.2392e-03_jprb,8.7441e-03_jprb,8.3924e-03_jprb,7.3948e-03_jprb,&
&5.8188e-03_jprb,3.6047e-03_jprb,7.3901e-01_jprb/)
kao( :, 4, 6, 1) = (/&
&1.0238e-03_jprb,6.4720e-03_jprb,8.4331e-03_jprb,8.8696e-03_jprb,8.4869e-03_jprb,7.4498e-03_jprb,&
&5.8508e-03_jprb,3.6714e-03_jprb,7.2195e-01_jprb/)
kao( :, 5, 6, 1) = (/&
&9.8558e-04_jprb,6.6127e-03_jprb,8.5578e-03_jprb,8.9617e-03_jprb,8.5506e-03_jprb,7.4929e-03_jprb,&
&5.8848e-03_jprb,3.7810e-03_jprb,7.0447e-01_jprb/)
kao( :, 1, 7, 1) = (/&
&9.5793e-04_jprb,4.9392e-03_jprb,6.0959e-03_jprb,6.7658e-03_jprb,6.6008e-03_jprb,5.8761e-03_jprb,&
&4.6722e-03_jprb,2.9165e-03_jprb,6.5237e-01_jprb/)
kao( :, 2, 7, 1) = (/&
&9.1189e-04_jprb,5.0775e-03_jprb,6.4806e-03_jprb,7.0004e-03_jprb,6.7455e-03_jprb,5.9796e-03_jprb,&
&4.7234e-03_jprb,2.9250e-03_jprb,6.3689e-01_jprb/)
kao( :, 3, 7, 1) = (/&
&8.7036e-04_jprb,5.2121e-03_jprb,6.7389e-03_jprb,7.1547e-03_jprb,6.8614e-03_jprb,6.0502e-03_jprb,&
&4.7609e-03_jprb,2.9391e-03_jprb,6.2141e-01_jprb/)
kao( :, 4, 7, 1) = (/&
&8.3275e-04_jprb,5.3378e-03_jprb,6.9169e-03_jprb,7.2639e-03_jprb,6.9474e-03_jprb,6.1007e-03_jprb,&
&4.7893e-03_jprb,2.9754e-03_jprb,6.0575e-01_jprb/)
kao( :, 5, 7, 1) = (/&
&7.9855e-04_jprb,5.4591e-03_jprb,7.0288e-03_jprb,7.3444e-03_jprb,7.0074e-03_jprb,6.1400e-03_jprb,&
&4.8149e-03_jprb,3.0449e-03_jprb,5.8968e-01_jprb/)
kao( :, 1, 8, 1) = (/&
&7.9465e-04_jprb,4.0550e-03_jprb,4.9071e-03_jprb,5.4722e-03_jprb,5.3709e-03_jprb,4.7864e-03_jprb,&
&3.8134e-03_jprb,2.3876e-03_jprb,5.5983e-01_jprb/)
kao( :, 2, 8, 1) = (/&
&7.5211e-04_jprb,4.1645e-03_jprb,5.2395e-03_jprb,5.6983e-03_jprb,5.5014e-03_jprb,4.8765e-03_jprb,&
&3.8582e-03_jprb,2.3958e-03_jprb,5.4541e-01_jprb/)
kao( :, 3, 8, 1) = (/&
&7.1425e-04_jprb,4.2775e-03_jprb,5.4907e-03_jprb,5.8442e-03_jprb,5.6010e-03_jprb,4.9449e-03_jprb,&
&3.8932e-03_jprb,2.4025e-03_jprb,5.3089e-01_jprb/)
kao( :, 4, 8, 1) = (/&
&6.8017e-04_jprb,4.3807e-03_jprb,5.6532e-03_jprb,5.9396e-03_jprb,5.6779e-03_jprb,4.9919e-03_jprb,&
&3.9191e-03_jprb,2.4205e-03_jprb,5.1625e-01_jprb/)
kao( :, 5, 8, 1) = (/&
&6.4915e-04_jprb,4.4822e-03_jprb,5.7602e-03_jprb,6.0112e-03_jprb,5.7346e-03_jprb,5.0274e-03_jprb,&
&3.9402e-03_jprb,2.4616e-03_jprb,5.0156e-01_jprb/)
kao( :, 1, 9, 1) = (/&
&6.6256e-04_jprb,3.3231e-03_jprb,3.9423e-03_jprb,4.3965e-03_jprb,4.3550e-03_jprb,3.8950e-03_jprb,&
&3.1106e-03_jprb,1.9527e-03_jprb,4.7909e-01_jprb/)
kao( :, 2, 9, 1) = (/&
&6.2337e-04_jprb,3.4093e-03_jprb,4.2109e-03_jprb,4.6231e-03_jprb,4.4821e-03_jprb,3.9733e-03_jprb,&
&3.1493e-03_jprb,1.9618e-03_jprb,4.6525e-01_jprb/)
kao( :, 3, 9, 1) = (/&
&5.8859e-04_jprb,3.5021e-03_jprb,4.4524e-03_jprb,4.7638e-03_jprb,4.5675e-03_jprb,4.0358e-03_jprb,&
&3.1809e-03_jprb,1.9669e-03_jprb,4.5157e-01_jprb/)
kao( :, 4, 9, 1) = (/&
&5.5740e-04_jprb,3.5874e-03_jprb,4.6083e-03_jprb,4.8522e-03_jprb,4.6363e-03_jprb,4.0813e-03_jprb,&
&3.2054e-03_jprb,1.9751e-03_jprb,4.3811e-01_jprb/)
kao( :, 5, 9, 1) = (/&
&5.2927e-04_jprb,3.6711e-03_jprb,4.7102e-03_jprb,4.9155e-03_jprb,4.6887e-03_jprb,4.1135e-03_jprb,&
&3.2248e-03_jprb,1.9974e-03_jprb,4.2484e-01_jprb/)
kao( :, 1,10, 1) = (/&
&5.5819e-04_jprb,2.7284e-03_jprb,3.1809e-03_jprb,3.5314e-03_jprb,3.5278e-03_jprb,3.1713e-03_jprb,&
&2.5390e-03_jprb,1.5979e-03_jprb,4.1170e-01_jprb/)
kao( :, 2,10, 1) = (/&
&5.2264e-04_jprb,2.7960e-03_jprb,3.3951e-03_jprb,3.7490e-03_jprb,3.6516e-03_jprb,3.2397e-03_jprb,&
&2.5727e-03_jprb,1.6061e-03_jprb,3.9866e-01_jprb/)
kao( :, 3,10, 1) = (/&
&4.9139e-04_jprb,2.8693e-03_jprb,3.6092e-03_jprb,3.8820e-03_jprb,3.7278e-03_jprb,3.2940e-03_jprb,&
&2.5999e-03_jprb,1.6112e-03_jprb,3.8585e-01_jprb/)
kao( :, 4,10, 1) = (/&
&4.6354e-04_jprb,2.9405e-03_jprb,3.7573e-03_jprb,3.9654e-03_jprb,3.7869e-03_jprb,3.3368e-03_jprb,&
&2.6225e-03_jprb,1.6157e-03_jprb,3.7334e-01_jprb/)
kao( :, 5,10, 1) = (/&
&4.3854e-04_jprb,3.0087e-03_jprb,3.8506e-03_jprb,4.0212e-03_jprb,3.8338e-03_jprb,3.3662e-03_jprb,&
&2.6402e-03_jprb,1.6279e-03_jprb,3.6129e-01_jprb/)
kao( :, 1,11, 1) = (/&
&4.5821e-04_jprb,2.2621e-03_jprb,2.6447e-03_jprb,2.9297e-03_jprb,2.9129e-03_jprb,2.6105e-03_jprb,&
&2.0860e-03_jprb,1.3108e-03_jprb,3.4781e-01_jprb/)
kao( :, 2,11, 1) = (/&
&4.2863e-04_jprb,2.3183e-03_jprb,2.8194e-03_jprb,3.0973e-03_jprb,3.0077e-03_jprb,2.6638e-03_jprb,&
&2.1125e-03_jprb,1.3172e-03_jprb,3.3606e-01_jprb/)
kao( :, 3,11, 1) = (/&
&4.0252e-04_jprb,2.3779e-03_jprb,2.9883e-03_jprb,3.2000e-03_jprb,3.0663e-03_jprb,2.7064e-03_jprb,&
&2.1343e-03_jprb,1.3214e-03_jprb,3.2458e-01_jprb/)
kao( :, 4,11, 1) = (/&
&3.7927e-04_jprb,2.4351e-03_jprb,3.1025e-03_jprb,3.2639e-03_jprb,3.1126e-03_jprb,2.7399e-03_jprb,&
&2.1527e-03_jprb,1.3253e-03_jprb,3.1358e-01_jprb/)
kao( :, 5,11, 1) = (/&
&3.5851e-04_jprb,2.4897e-03_jprb,3.1743e-03_jprb,3.3073e-03_jprb,3.1494e-03_jprb,2.7631e-03_jprb,&
&2.1670e-03_jprb,1.3357e-03_jprb,3.0304e-01_jprb/)
kao( :, 1,12, 1) = (/&
&3.7566e-04_jprb,1.8705e-03_jprb,2.1955e-03_jprb,2.4263e-03_jprb,2.4027e-03_jprb,2.1477e-03_jprb,&
&1.7133e-03_jprb,1.0753e-03_jprb,2.9614e-01_jprb/)
kao( :, 2,12, 1) = (/&
&3.5112e-04_jprb,1.9175e-03_jprb,2.3381e-03_jprb,2.5565e-03_jprb,2.4759e-03_jprb,2.1892e-03_jprb,&
&1.7343e-03_jprb,1.0803e-03_jprb,2.8551e-01_jprb/)
kao( :, 3,12, 1) = (/&
&3.2946e-04_jprb,1.9676e-03_jprb,2.4711e-03_jprb,2.6363e-03_jprb,2.5213e-03_jprb,2.2227e-03_jprb,&
&1.7519e-03_jprb,1.0837e-03_jprb,2.7528e-01_jprb/)
kao( :, 4,12, 1) = (/&
&3.1028e-04_jprb,2.0138e-03_jprb,2.5600e-03_jprb,2.6860e-03_jprb,2.5577e-03_jprb,2.2494e-03_jprb,&
&1.7667e-03_jprb,1.0872e-03_jprb,2.6557e-01_jprb/)
kao( :, 5,12, 1) = (/&
&2.9320e-04_jprb,2.0583e-03_jprb,2.6161e-03_jprb,2.7200e-03_jprb,2.5866e-03_jprb,2.2676e-03_jprb,&
&1.7779e-03_jprb,1.0961e-03_jprb,2.5635e-01_jprb/)
kao( :, 1,13, 1) = (/&
&3.0764e-04_jprb,1.5429e-03_jprb,1.8188e-03_jprb,2.0063e-03_jprb,1.9799e-03_jprb,1.7660e-03_jprb,&
&1.4068e-03_jprb,8.8203e-04_jprb,2.5899e-01_jprb/)
kao( :, 2,13, 1) = (/&
&2.8735e-04_jprb,1.5821e-03_jprb,1.9364e-03_jprb,2.1086e-03_jprb,2.0369e-03_jprb,1.7986e-03_jprb,&
&1.4237e-03_jprb,8.8599e-04_jprb,2.4914e-01_jprb/)
kao( :, 3,13, 1) = (/&
&2.6953e-04_jprb,1.6236e-03_jprb,2.0412e-03_jprb,2.1709e-03_jprb,2.0725e-03_jprb,1.8251e-03_jprb,&
&1.4376e-03_jprb,8.8887e-04_jprb,2.3982e-01_jprb/)
kao( :, 4,13, 1) = (/&
&2.5380e-04_jprb,1.6612e-03_jprb,2.1113e-03_jprb,2.2099e-03_jprb,2.1013e-03_jprb,1.8462e-03_jprb,&
&1.4493e-03_jprb,8.9188e-04_jprb,2.3102e-01_jprb/)
kao( :, 5,13, 1) = (/&
&2.3980e-04_jprb,1.6979e-03_jprb,2.1555e-03_jprb,2.2365e-03_jprb,2.1241e-03_jprb,1.8607e-03_jprb,&
&1.4583e-03_jprb,8.9931e-04_jprb,2.2279e-01_jprb/)
kao( :, 1, 1, 2) = (/&
&7.0943e-03_jprb,3.8387e-02_jprb,4.3151e-02_jprb,4.2731e-02_jprb,4.0946e-02_jprb,3.8949e-02_jprb,&
&3.7362e-02_jprb,3.5997e-02_jprb,3.1543e+00_jprb/)
kao( :, 2, 1, 2) = (/&
&7.0850e-03_jprb,3.8454e-02_jprb,4.2900e-02_jprb,4.3028e-02_jprb,4.2284e-02_jprb,4.1753e-02_jprb,&
&4.1711e-02_jprb,4.1528e-02_jprb,3.1189e+00_jprb/)
kao( :, 3, 1, 2) = (/&
&7.0813e-03_jprb,3.8363e-02_jprb,4.2614e-02_jprb,4.3463e-02_jprb,4.3963e-02_jprb,4.4905e-02_jprb,&
&4.6271e-02_jprb,4.7132e-02_jprb,3.0948e+00_jprb/)
kao( :, 4, 1, 2) = (/&
&7.0651e-03_jprb,3.8151e-02_jprb,4.2395e-02_jprb,4.4068e-02_jprb,4.5862e-02_jprb,4.8163e-02_jprb,&
&5.0764e-02_jprb,5.2533e-02_jprb,3.0805e+00_jprb/)
kao( :, 5, 1, 2) = (/&
&7.0475e-03_jprb,3.7840e-02_jprb,4.2280e-02_jprb,4.4809e-02_jprb,4.7823e-02_jprb,5.1372e-02_jprb,&
&5.5020e-02_jprb,5.7574e-02_jprb,3.0698e+00_jprb/)
kao( :, 1, 2, 2) = (/&
&5.4133e-03_jprb,3.2388e-02_jprb,3.6287e-02_jprb,3.5903e-02_jprb,3.4407e-02_jprb,3.2747e-02_jprb,&
&3.1453e-02_jprb,3.0272e-02_jprb,2.5533e+00_jprb/)
kao( :, 2, 2, 2) = (/&
&5.3611e-03_jprb,3.2430e-02_jprb,3.6074e-02_jprb,3.6216e-02_jprb,3.5593e-02_jprb,3.5203e-02_jprb,&
&3.5194e-02_jprb,3.4997e-02_jprb,2.5086e+00_jprb/)
kao( :, 3, 2, 2) = (/&
&5.3281e-03_jprb,3.2322e-02_jprb,3.5847e-02_jprb,3.6639e-02_jprb,3.7078e-02_jprb,3.7935e-02_jprb,&
&3.9143e-02_jprb,3.9849e-02_jprb,2.4723e+00_jprb/)
kao( :, 4, 2, 2) = (/&
&5.3094e-03_jprb,3.2112e-02_jprb,3.5677e-02_jprb,3.7178e-02_jprb,3.8741e-02_jprb,4.0767e-02_jprb,&
&4.3021e-02_jprb,4.4489e-02_jprb,2.4475e+00_jprb/)
kao( :, 5, 2, 2) = (/&
&5.2887e-03_jprb,3.1839e-02_jprb,3.5583e-02_jprb,3.7831e-02_jprb,4.0436e-02_jprb,4.3525e-02_jprb,&
&4.6680e-02_jprb,4.8869e-02_jprb,2.4311e+00_jprb/)
kao( :, 1, 3, 2) = (/&
&4.0611e-03_jprb,2.7170e-02_jprb,3.0405e-02_jprb,3.0026e-02_jprb,2.8647e-02_jprb,2.7115e-02_jprb,&
&2.5770e-02_jprb,2.4484e-02_jprb,2.0491e+00_jprb/)
kao( :, 2, 3, 2) = (/&
&3.9775e-03_jprb,2.7189e-02_jprb,3.0241e-02_jprb,3.0301e-02_jprb,2.9626e-02_jprb,2.9114e-02_jprb,&
&2.8843e-02_jprb,2.8434e-02_jprb,1.9991e+00_jprb/)
kao( :, 3, 3, 2) = (/&
&3.9065e-03_jprb,2.7099e-02_jprb,3.0059e-02_jprb,3.0647e-02_jprb,3.0854e-02_jprb,3.1397e-02_jprb,&
&3.2170e-02_jprb,3.2541e-02_jprb,1.9562e+00_jprb/)
kao( :, 4, 3, 2) = (/&
&3.8466e-03_jprb,2.6925e-02_jprb,2.9905e-02_jprb,3.1087e-02_jprb,3.2235e-02_jprb,3.3772e-02_jprb,&
&3.5477e-02_jprb,3.6558e-02_jprb,1.9207e+00_jprb/)
kao( :, 5, 3, 2) = (/&
&3.7983e-03_jprb,2.6668e-02_jprb,2.9797e-02_jprb,3.1593e-02_jprb,3.3666e-02_jprb,3.6136e-02_jprb,&
&3.8655e-02_jprb,4.0337e-02_jprb,1.8904e+00_jprb/)
kao( :, 1, 4, 2) = (/&
&3.1618e-03_jprb,2.2735e-02_jprb,2.5430e-02_jprb,2.5073e-02_jprb,2.3860e-02_jprb,2.2346e-02_jprb,&
&2.0906e-02_jprb,1.9493e-02_jprb,1.6815e+00_jprb/)
kao( :, 2, 4, 2) = (/&
&3.0772e-03_jprb,2.2769e-02_jprb,2.5323e-02_jprb,2.5294e-02_jprb,2.4614e-02_jprb,2.3917e-02_jprb,&
&2.3363e-02_jprb,2.2717e-02_jprb,1.6300e+00_jprb/)
kao( :, 3, 4, 2) = (/&
&2.9989e-03_jprb,2.2705e-02_jprb,2.5187e-02_jprb,2.5585e-02_jprb,2.5590e-02_jprb,2.5772e-02_jprb,&
&2.6101e-02_jprb,2.6159e-02_jprb,1.5868e+00_jprb/)
kao( :, 4, 4, 2) = (/&
&2.9269e-03_jprb,2.2567e-02_jprb,2.5061e-02_jprb,2.5933e-02_jprb,2.6708e-02_jprb,2.7738e-02_jprb,&
&2.8897e-02_jprb,2.9580e-02_jprb,1.5492e+00_jprb/)
kao( :, 5, 4, 2) = (/&
&2.8633e-03_jprb,2.2345e-02_jprb,2.4951e-02_jprb,2.6338e-02_jprb,2.7898e-02_jprb,2.9732e-02_jprb,&
&3.1610e-02_jprb,3.2830e-02_jprb,1.5179e+00_jprb/)
kao( :, 1, 5, 2) = (/&
&2.5495e-03_jprb,1.8985e-02_jprb,2.1259e-02_jprb,2.0956e-02_jprb,1.9882e-02_jprb,1.8351e-02_jprb,&
&1.6812e-02_jprb,1.5262e-02_jprb,1.4081e+00_jprb/)
kao( :, 2, 5, 2) = (/&
&2.4663e-03_jprb,1.9038e-02_jprb,2.1177e-02_jprb,2.1145e-02_jprb,2.0437e-02_jprb,1.9579e-02_jprb,&
&1.8803e-02_jprb,1.7942e-02_jprb,1.3595e+00_jprb/)
kao( :, 3, 5, 2) = (/&
&2.3921e-03_jprb,1.9006e-02_jprb,2.1089e-02_jprb,2.1375e-02_jprb,2.1189e-02_jprb,2.1072e-02_jprb,&
&2.1043e-02_jprb,2.0814e-02_jprb,1.3176e+00_jprb/)
kao( :, 4, 5, 2) = (/&
&2.3238e-03_jprb,1.8899e-02_jprb,2.0991e-02_jprb,2.1643e-02_jprb,2.2082e-02_jprb,2.2687e-02_jprb,&
&2.3376e-02_jprb,2.3722e-02_jprb,1.2814e+00_jprb/)
kao( :, 5, 5, 2) = (/&
&2.2609e-03_jprb,1.8711e-02_jprb,2.0886e-02_jprb,2.1958e-02_jprb,2.3037e-02_jprb,2.4321e-02_jprb,&
&2.5657e-02_jprb,2.6474e-02_jprb,1.2502e+00_jprb/)
kao( :, 1, 6, 2) = (/&
&2.1136e-03_jprb,1.5844e-02_jprb,1.7815e-02_jprb,1.7475e-02_jprb,1.6448e-02_jprb,1.4925e-02_jprb,&
&1.3323e-02_jprb,1.1714e-02_jprb,1.1933e+00_jprb/)
kao( :, 2, 6, 2) = (/&
&2.0306e-03_jprb,1.5911e-02_jprb,1.7725e-02_jprb,1.7645e-02_jprb,1.6857e-02_jprb,1.5846e-02_jprb,&
&1.4877e-02_jprb,1.3852e-02_jprb,1.1478e+00_jprb/)
kao( :, 3, 6, 2) = (/&
&1.9573e-03_jprb,1.5900e-02_jprb,1.7665e-02_jprb,1.7815e-02_jprb,1.7433e-02_jprb,1.7030e-02_jprb,&
&1.6681e-02_jprb,1.6204e-02_jprb,1.1091e+00_jprb/)
kao( :, 4, 6, 2) = (/&
&1.8915e-03_jprb,1.5823e-02_jprb,1.7587e-02_jprb,1.8019e-02_jprb,1.8141e-02_jprb,1.8355e-02_jprb,&
&1.8615e-02_jprb,1.8633e-02_jprb,1.0755e+00_jprb/)
kao( :, 5, 6, 2) = (/&
&1.8316e-03_jprb,1.5671e-02_jprb,1.7495e-02_jprb,1.8250e-02_jprb,1.8907e-02_jprb,1.9704e-02_jprb,&
&2.0534e-02_jprb,2.0986e-02_jprb,1.0458e+00_jprb/)
kao( :, 1, 7, 2) = (/&
&1.7779e-03_jprb,1.3214e-02_jprb,1.4915e-02_jprb,1.4490e-02_jprb,1.3534e-02_jprb,1.2115e-02_jprb,&
&1.0525e-02_jprb,8.9151e-03_jprb,1.0250e+00_jprb/)
kao( :, 2, 7, 2) = (/&
&1.6955e-03_jprb,1.3308e-02_jprb,1.4823e-02_jprb,1.4622e-02_jprb,1.3840e-02_jprb,1.2763e-02_jprb,&
&1.1685e-02_jprb,1.0574e-02_jprb,9.8268e-01_jprb/)
kao( :, 3, 7, 2) = (/&
&1.6237e-03_jprb,1.3311e-02_jprb,1.4766e-02_jprb,1.4761e-02_jprb,1.4249e-02_jprb,1.3650e-02_jprb,&
&1.3091e-02_jprb,1.2450e-02_jprb,9.4696e-01_jprb/)
kao( :, 4, 7, 2) = (/&
&1.5603e-03_jprb,1.3256e-02_jprb,1.4695e-02_jprb,1.4910e-02_jprb,1.4782e-02_jprb,1.4700e-02_jprb,&
&1.4648e-02_jprb,1.4438e-02_jprb,9.1575e-01_jprb/)
kao( :, 5, 7, 2) = (/&
&1.5029e-03_jprb,1.3127e-02_jprb,1.4617e-02_jprb,1.5078e-02_jprb,1.5382e-02_jprb,1.5792e-02_jprb,&
&1.6228e-02_jprb,1.6399e-02_jprb,8.8786e-01_jprb/)
kao( :, 1, 8, 2) = (/&
&1.5020e-03_jprb,1.1002e-02_jprb,1.2408e-02_jprb,1.1986e-02_jprb,1.1101e-02_jprb,9.8378e-03_jprb,&
&8.3304e-03_jprb,6.7732e-03_jprb,8.9770e-01_jprb/)
kao( :, 2, 8, 2) = (/&
&1.4230e-03_jprb,1.1110e-02_jprb,1.2342e-02_jprb,1.2073e-02_jprb,1.1340e-02_jprb,1.0282e-02_jprb,&
&9.1665e-03_jprb,8.0270e-03_jprb,8.5759e-01_jprb/)
kao( :, 3, 8, 2) = (/&
&1.3543e-03_jprb,1.1124e-02_jprb,1.2281e-02_jprb,1.2183e-02_jprb,1.1624e-02_jprb,1.0918e-02_jprb,&
&1.0231e-02_jprb,9.4957e-03_jprb,8.2343e-01_jprb/)
kao( :, 4, 8, 2) = (/&
&1.2937e-03_jprb,1.1088e-02_jprb,1.2220e-02_jprb,1.2293e-02_jprb,1.2008e-02_jprb,1.1719e-02_jprb,&
&1.1453e-02_jprb,1.1081e-02_jprb,7.9354e-01_jprb/)
kao( :, 5, 8, 2) = (/&
&1.2398e-03_jprb,1.0985e-02_jprb,1.2152e-02_jprb,1.2411e-02_jprb,1.2469e-02_jprb,1.2594e-02_jprb,&
&1.2739e-02_jprb,1.2705e-02_jprb,7.6694e-01_jprb/)
kao( :, 1, 9, 2) = (/&
&1.2772e-03_jprb,9.1185e-03_jprb,1.0283e-02_jprb,9.9108e-03_jprb,9.0933e-03_jprb,7.9937e-03_jprb,&
&6.6146e-03_jprb,5.1482e-03_jprb,7.8565e-01_jprb/)
kao( :, 2, 9, 2) = (/&
&1.2008e-03_jprb,9.2246e-03_jprb,1.0254e-02_jprb,9.9497e-03_jprb,9.2744e-03_jprb,8.2956e-03_jprb,&
&7.1977e-03_jprb,6.0715e-03_jprb,7.4762e-01_jprb/)
kao( :, 3, 9, 2) = (/&
&1.1346e-03_jprb,9.2567e-03_jprb,1.0190e-02_jprb,1.0030e-02_jprb,9.4797e-03_jprb,8.7349e-03_jprb,&
&7.9799e-03_jprb,7.1919e-03_jprb,7.1506e-01_jprb/)
kao( :, 4, 9, 2) = (/&
&1.0767e-03_jprb,9.2317e-03_jprb,1.0137e-02_jprb,1.0114e-02_jprb,9.7458e-03_jprb,9.3188e-03_jprb,&
&8.9121e-03_jprb,8.4415e-03_jprb,6.8636e-01_jprb/)
kao( :, 5, 9, 2) = (/&
&1.0254e-03_jprb,9.1543e-03_jprb,1.0077e-02_jprb,1.0198e-02_jprb,1.0088e-02_jprb,1.0005e-02_jprb,&
&9.9430e-03_jprb,9.7610e-03_jprb,6.6072e-01_jprb/)
kao( :, 1,10, 2) = (/&
&1.0908e-03_jprb,7.5349e-03_jprb,8.5055e-03_jprb,8.1913e-03_jprb,7.4594e-03_jprb,6.5117e-03_jprb,&
&5.3043e-03_jprb,3.9738e-03_jprb,6.8647e-01_jprb/)
kao( :, 2,10, 2) = (/&
&1.0219e-03_jprb,7.6350e-03_jprb,8.4942e-03_jprb,8.2002e-03_jprb,7.5922e-03_jprb,6.7288e-03_jprb,&
&5.7099e-03_jprb,4.6532e-03_jprb,6.5148e-01_jprb/)
kao( :, 3,10, 2) = (/&
&9.6216e-04_jprb,7.6768e-03_jprb,8.4412e-03_jprb,8.2544e-03_jprb,7.7463e-03_jprb,7.0316e-03_jprb,&
&6.2789e-03_jprb,5.5007e-03_jprb,6.2153e-01_jprb/)
kao( :, 4,10, 2) = (/&
&9.0949e-04_jprb,7.6636e-03_jprb,8.3915e-03_jprb,8.3156e-03_jprb,7.9306e-03_jprb,7.4536e-03_jprb,&
&6.9877e-03_jprb,6.4813e-03_jprb,5.9517e-01_jprb/)
kao( :, 5,10, 2) = (/&
&8.6244e-04_jprb,7.6028e-03_jprb,8.3387e-03_jprb,8.3779e-03_jprb,8.1810e-03_jprb,7.9831e-03_jprb,&
&7.7997e-03_jprb,7.5371e-03_jprb,5.7147e-01_jprb/)
kao( :, 1,11, 2) = (/&
&9.0171e-04_jprb,6.2591e-03_jprb,7.0260e-03_jprb,6.7592e-03_jprb,6.1582e-03_jprb,5.3757e-03_jprb,&
&4.3823e-03_jprb,3.2909e-03_jprb,5.8305e-01_jprb/)
kao( :, 2,11, 2) = (/&
&8.4471e-04_jprb,6.3292e-03_jprb,7.0117e-03_jprb,6.7680e-03_jprb,6.2644e-03_jprb,5.5512e-03_jprb,&
&4.7161e-03_jprb,3.8488e-03_jprb,5.5321e-01_jprb/)
kao( :, 3,11, 2) = (/&
&7.9501e-04_jprb,6.3542e-03_jprb,6.9623e-03_jprb,6.8076e-03_jprb,6.3850e-03_jprb,5.7984e-03_jprb,&
&5.1814e-03_jprb,4.5421e-03_jprb,5.2752e-01_jprb/)
kao( :, 4,11, 2) = (/&
&7.5106e-04_jprb,6.3305e-03_jprb,6.9164e-03_jprb,6.8517e-03_jprb,6.5339e-03_jprb,6.1441e-03_jprb,&
&5.7616e-03_jprb,5.3442e-03_jprb,5.0480e-01_jprb/)
kao( :, 5,11, 2) = (/&
&7.1176e-04_jprb,6.2680e-03_jprb,6.8638e-03_jprb,6.9010e-03_jprb,6.7399e-03_jprb,6.5787e-03_jprb,&
&6.4276e-03_jprb,6.2093e-03_jprb,4.8460e-01_jprb/)
kao( :, 1,12, 2) = (/&
&7.4344e-04_jprb,5.1893e-03_jprb,5.7960e-03_jprb,5.5712e-03_jprb,5.0774e-03_jprb,4.4320e-03_jprb,&
&3.6146e-03_jprb,2.7192e-03_jprb,4.9987e-01_jprb/)
kao( :, 2,12, 2) = (/&
&6.9630e-04_jprb,5.2389e-03_jprb,5.7776e-03_jprb,5.5769e-03_jprb,5.1607e-03_jprb,4.5730e-03_jprb,&
&3.8872e-03_jprb,3.1759e-03_jprb,4.7411e-01_jprb/)
kao( :, 3,12, 2) = (/&
&6.5505e-04_jprb,5.2495e-03_jprb,5.7335e-03_jprb,5.6051e-03_jprb,5.2555e-03_jprb,4.7752e-03_jprb,&
&4.2687e-03_jprb,3.7439e-03_jprb,4.5176e-01_jprb/)
kao( :, 4,12, 2) = (/&
&6.1851e-04_jprb,5.2199e-03_jprb,5.6893e-03_jprb,5.6379e-03_jprb,5.3780e-03_jprb,5.0596e-03_jprb,&
&4.7451e-03_jprb,4.4010e-03_jprb,4.3213e-01_jprb/)
kao( :, 5,12, 2) = (/&
&5.8564e-04_jprb,5.1584e-03_jprb,5.6408e-03_jprb,5.6781e-03_jprb,5.5493e-03_jprb,5.4174e-03_jprb,&
&5.2919e-03_jprb,5.1102e-03_jprb,4.1474e-01_jprb/)
kao( :, 1,13, 2) = (/&
&6.1162e-04_jprb,4.2978e-03_jprb,4.7775e-03_jprb,4.5861e-03_jprb,4.1806e-03_jprb,3.6483e-03_jprb,&
&2.9761e-03_jprb,2.2409e-03_jprb,4.4173e-01_jprb/)
kao( :, 2,13, 2) = (/&
&5.7264e-04_jprb,4.3335e-03_jprb,4.7546e-03_jprb,4.5895e-03_jprb,4.2458e-03_jprb,3.7618e-03_jprb,&
&3.1994e-03_jprb,2.6153e-03_jprb,4.1858e-01_jprb/)
kao( :, 3,13, 2) = (/&
&5.3845e-04_jprb,4.3324e-03_jprb,4.7152e-03_jprb,4.6098e-03_jprb,4.3213e-03_jprb,3.9280e-03_jprb,&
&3.5124e-03_jprb,3.0807e-03_jprb,3.9852e-01_jprb/)
kao( :, 4,13, 2) = (/&
&5.0800e-04_jprb,4.3007e-03_jprb,4.6739e-03_jprb,4.6354e-03_jprb,4.4237e-03_jprb,4.1636e-03_jprb,&
&3.9041e-03_jprb,3.6190e-03_jprb,3.8103e-01_jprb/)
kao( :, 5,13, 2) = (/&
&4.8061e-04_jprb,4.2432e-03_jprb,4.6321e-03_jprb,4.6674e-03_jprb,4.5673e-03_jprb,4.4592e-03_jprb,&
&4.3539e-03_jprb,4.2010e-03_jprb,3.6549e-01_jprb/)
kao( :, 1, 1, 3) = (/&
&1.1504e-02_jprb,5.1115e-02_jprb,6.3490e-02_jprb,7.5739e-02_jprb,8.9129e-02_jprb,1.0261e-01_jprb,&
&1.1510e-01_jprb,1.2497e-01_jprb,4.5470e+00_jprb/)
kao( :, 2, 1, 3) = (/&
&1.1411e-02_jprb,5.0441e-02_jprb,6.4398e-02_jprb,7.8958e-02_jprb,9.4436e-02_jprb,1.0965e-01_jprb,&
&1.2371e-01_jprb,1.3505e-01_jprb,4.5111e+00_jprb/)
kao( :, 3, 1, 3) = (/&
&1.1360e-02_jprb,4.9859e-02_jprb,6.5352e-02_jprb,8.1890e-02_jprb,9.8960e-02_jprb,1.1556e-01_jprb,&
&1.3095e-01_jprb,1.4357e-01_jprb,4.4964e+00_jprb/)
kao( :, 4, 1, 3) = (/&
&1.1361e-02_jprb,4.9396e-02_jprb,6.6358e-02_jprb,8.4565e-02_jprb,1.0289e-01_jprb,1.2064e-01_jprb,&
&1.3719e-01_jprb,1.5089e-01_jprb,4.4952e+00_jprb/)
kao( :, 5, 1, 3) = (/&
&1.1398e-02_jprb,4.9071e-02_jprb,6.7320e-02_jprb,8.6942e-02_jprb,1.0642e-01_jprb,1.2520e-01_jprb,&
&1.4278e-01_jprb,1.5748e-01_jprb,4.5069e+00_jprb/)
kao( :, 1, 2, 3) = (/&
&9.0800e-03_jprb,4.3518e-02_jprb,5.4317e-02_jprb,6.5007e-02_jprb,7.6680e-02_jprb,8.8428e-02_jprb,&
&9.9245e-02_jprb,1.0777e-01_jprb,3.7305e+00_jprb/)
kao( :, 2, 2, 3) = (/&
&8.9700e-03_jprb,4.2947e-02_jprb,5.5146e-02_jprb,6.7953e-02_jprb,8.1575e-02_jprb,9.4893e-02_jprb,&
&1.0724e-01_jprb,1.1720e-01_jprb,3.6786e+00_jprb/)
kao( :, 3, 2, 3) = (/&
&8.8659e-03_jprb,4.2433e-02_jprb,5.6085e-02_jprb,7.0736e-02_jprb,8.5859e-02_jprb,1.0050e-01_jprb,&
&1.1405e-01_jprb,1.2513e-01_jprb,3.6433e+00_jprb/)
kao( :, 4, 2, 3) = (/&
&8.7765e-03_jprb,4.1995e-02_jprb,5.7083e-02_jprb,7.3307e-02_jprb,8.9633e-02_jprb,1.0538e-01_jprb,&
&1.1996e-01_jprb,1.3207e-01_jprb,3.6200e+00_jprb/)
kao( :, 5, 2, 3) = (/&
&8.7192e-03_jprb,4.1672e-02_jprb,5.8019e-02_jprb,7.5546e-02_jprb,9.2932e-02_jprb,1.0966e-01_jprb,&
&1.2527e-01_jprb,1.3822e-01_jprb,3.6042e+00_jprb/)
kao( :, 1, 3, 3) = (/&
&6.9828e-03_jprb,3.6975e-02_jprb,4.6012e-02_jprb,5.4717e-02_jprb,6.4326e-02_jprb,7.4011e-02_jprb,&
&8.2981e-02_jprb,8.9968e-02_jprb,3.0198e+00_jprb/)
kao( :, 2, 3, 3) = (/&
&6.8270e-03_jprb,3.6472e-02_jprb,4.6704e-02_jprb,5.7392e-02_jprb,6.8826e-02_jprb,8.0074e-02_jprb,&
&9.0443e-02_jprb,9.8762e-02_jprb,2.9461e+00_jprb/)
kao( :, 3, 3, 3) = (/&
&6.7044e-03_jprb,3.6003e-02_jprb,4.7551e-02_jprb,5.9975e-02_jprb,7.2865e-02_jprb,8.5354e-02_jprb,&
&9.6922e-02_jprb,1.0635e-01_jprb,2.8886e+00_jprb/)
kao( :, 4, 3, 3) = (/&
&6.5993e-03_jprb,3.5562e-02_jprb,4.8474e-02_jprb,6.2398e-02_jprb,7.6490e-02_jprb,9.0037e-02_jprb,&
&1.0257e-01_jprb,1.1285e-01_jprb,2.8436e+00_jprb/)
kao( :, 5, 3, 3) = (/&
&6.5059e-03_jprb,3.5210e-02_jprb,4.9353e-02_jprb,6.4534e-02_jprb,7.9605e-02_jprb,9.4094e-02_jprb,&
&1.0752e-01_jprb,1.1864e-01_jprb,2.8111e+00_jprb/)
kao( :, 1, 4, 3) = (/&
&5.5908e-03_jprb,3.1365e-02_jprb,3.8737e-02_jprb,4.5544e-02_jprb,5.3149e-02_jprb,6.0919e-02_jprb,&
&6.8125e-02_jprb,7.3670e-02_jprb,2.5046e+00_jprb/)
kao( :, 2, 4, 3) = (/&
&5.3957e-03_jprb,3.0920e-02_jprb,3.9328e-02_jprb,4.7957e-02_jprb,5.7284e-02_jprb,6.6485e-02_jprb,&
&7.5002e-02_jprb,8.1748e-02_jprb,2.4277e+00_jprb/)
kao( :, 3, 4, 3) = (/&
&5.2334e-03_jprb,3.0500e-02_jprb,4.0047e-02_jprb,5.0287e-02_jprb,6.0995e-02_jprb,7.1412e-02_jprb,&
&8.1019e-02_jprb,8.8826e-02_jprb,2.3616e+00_jprb/)
kao( :, 4, 4, 3) = (/&
&5.0990e-03_jprb,3.0103e-02_jprb,4.0857e-02_jprb,5.2515e-02_jprb,6.4366e-02_jprb,7.5769e-02_jprb,&
&8.6313e-02_jprb,9.4909e-02_jprb,2.3071e+00_jprb/)
kao( :, 5, 4, 3) = (/&
&4.9843e-03_jprb,2.9769e-02_jprb,4.1653e-02_jprb,5.4480e-02_jprb,6.7248e-02_jprb,7.9493e-02_jprb,&
&9.0850e-02_jprb,1.0015e-01_jprb,2.2622e+00_jprb/)
kao( :, 1, 5, 3) = (/&
&4.6371e-03_jprb,2.6536e-02_jprb,3.2443e-02_jprb,3.7642e-02_jprb,4.3487e-02_jprb,4.9620e-02_jprb,&
&5.5321e-02_jprb,5.9691e-02_jprb,2.1169e+00_jprb/)
kao( :, 2, 5, 3) = (/&
&4.4354e-03_jprb,2.6146e-02_jprb,3.2937e-02_jprb,3.9753e-02_jprb,4.7206e-02_jprb,5.4649e-02_jprb,&
&6.1517e-02_jprb,6.6941e-02_jprb,2.0403e+00_jprb/)
kao( :, 3, 5, 3) = (/&
&4.2621e-03_jprb,2.5770e-02_jprb,3.3534e-02_jprb,4.1840e-02_jprb,5.0602e-02_jprb,5.9123e-02_jprb,&
&6.7019e-02_jprb,7.3387e-02_jprb,1.9782e+00_jprb/)
kao( :, 4, 5, 3) = (/&
&4.1136e-03_jprb,2.5421e-02_jprb,3.4232e-02_jprb,4.3837e-02_jprb,5.3645e-02_jprb,6.3092e-02_jprb,&
&7.1794e-02_jprb,7.8876e-02_jprb,1.9264e+00_jprb/)
kao( :, 5, 5, 3) = (/&
&3.9859e-03_jprb,2.5135e-02_jprb,3.4954e-02_jprb,4.5597e-02_jprb,5.6243e-02_jprb,6.6466e-02_jprb,&
&7.5915e-02_jprb,8.3643e-02_jprb,1.8824e+00_jprb/)
kao( :, 1, 6, 3) = (/&
&3.9304e-03_jprb,2.2403e-02_jprb,2.7063e-02_jprb,3.0926e-02_jprb,3.5302e-02_jprb,4.0017e-02_jprb,&
&4.4453e-02_jprb,4.7785e-02_jprb,1.8116e+00_jprb/)
kao( :, 2, 6, 3) = (/&
&3.7327e-03_jprb,2.2045e-02_jprb,2.7456e-02_jprb,3.2698e-02_jprb,3.8563e-02_jprb,4.4474e-02_jprb,&
&4.9934e-02_jprb,5.4194e-02_jprb,1.7392e+00_jprb/)
kao( :, 3, 6, 3) = (/&
&3.5637e-03_jprb,2.1717e-02_jprb,2.7946e-02_jprb,3.4540e-02_jprb,4.1589e-02_jprb,4.8508e-02_jprb,&
&5.4887e-02_jprb,6.0005e-02_jprb,1.6805e+00_jprb/)
kao( :, 4, 6, 3) = (/&
&3.4181e-03_jprb,2.1413e-02_jprb,2.8528e-02_jprb,3.6294e-02_jprb,4.4304e-02_jprb,5.2019e-02_jprb,&
&5.9160e-02_jprb,6.4927e-02_jprb,1.6325e+00_jprb/)
kao( :, 5, 6, 3) = (/&
&3.2918e-03_jprb,2.1166e-02_jprb,2.9161e-02_jprb,3.7872e-02_jprb,4.6642e-02_jprb,5.5066e-02_jprb,&
&6.2852e-02_jprb,6.9193e-02_jprb,1.5934e+00_jprb/)
kao( :, 1, 7, 3) = (/&
&3.3611e-03_jprb,1.8890e-02_jprb,2.2580e-02_jprb,2.5423e-02_jprb,2.8547e-02_jprb,3.2022e-02_jprb,&
&3.5350e-02_jprb,3.7816e-02_jprb,1.5699e+00_jprb/)
kao( :, 2, 7, 3) = (/&
&3.1761e-03_jprb,1.8547e-02_jprb,2.2859e-02_jprb,2.6861e-02_jprb,3.1328e-02_jprb,3.5924e-02_jprb,&
&4.0179e-02_jprb,4.3442e-02_jprb,1.5027e+00_jprb/)
kao( :, 3, 7, 3) = (/&
&3.0174e-03_jprb,1.8258e-02_jprb,2.3246e-02_jprb,2.8428e-02_jprb,3.4019e-02_jprb,3.9530e-02_jprb,&
&4.4619e-02_jprb,4.8631e-02_jprb,1.4482e+00_jprb/)
kao( :, 4, 7, 3) = (/&
&2.8795e-03_jprb,1.7993e-02_jprb,2.3728e-02_jprb,2.9950e-02_jprb,3.6407e-02_jprb,4.2653e-02_jprb,&
&4.8406e-02_jprb,5.3042e-02_jprb,1.4039e+00_jprb/)
kao( :, 5, 7, 3) = (/&
&2.7589e-03_jprb,1.7786e-02_jprb,2.4255e-02_jprb,3.1342e-02_jprb,3.8508e-02_jprb,4.5385e-02_jprb,&
&5.1742e-02_jprb,5.6887e-02_jprb,1.3676e+00_jprb/)
kao( :, 1, 8, 3) = (/&
&2.8871e-03_jprb,1.5916e-02_jprb,1.8850e-02_jprb,2.0853e-02_jprb,2.2958e-02_jprb,2.5335e-02_jprb,&
&2.7709e-02_jprb,2.9422e-02_jprb,1.3854e+00_jprb/)
kao( :, 2, 8, 3) = (/&
&2.7155e-03_jprb,1.5597e-02_jprb,1.9055e-02_jprb,2.1994e-02_jprb,2.5264e-02_jprb,2.8724e-02_jprb,&
&3.1943e-02_jprb,3.4360e-02_jprb,1.3215e+00_jprb/)
kao( :, 3, 8, 3) = (/&
&2.5680e-03_jprb,1.5338e-02_jprb,1.9338e-02_jprb,2.3296e-02_jprb,2.7614e-02_jprb,3.1925e-02_jprb,&
&3.5879e-02_jprb,3.8941e-02_jprb,1.2707e+00_jprb/)
kao( :, 4, 8, 3) = (/&
&2.4392e-03_jprb,1.5108e-02_jprb,1.9717e-02_jprb,2.4602e-02_jprb,2.9735e-02_jprb,3.4708e-02_jprb,&
&3.9299e-02_jprb,4.2946e-02_jprb,1.2299e+00_jprb/)
kao( :, 5, 8, 3) = (/&
&2.3263e-03_jprb,1.4926e-02_jprb,2.0145e-02_jprb,2.5818e-02_jprb,3.1599e-02_jprb,3.7151e-02_jprb,&
&4.2259e-02_jprb,4.6364e-02_jprb,1.1947e+00_jprb/)
kao( :, 1, 9, 3) = (/&
&2.4934e-03_jprb,1.3429e-02_jprb,1.5676e-02_jprb,1.6996e-02_jprb,1.8299e-02_jprb,1.9797e-02_jprb,&
&2.1368e-02_jprb,2.2488e-02_jprb,1.2194e+00_jprb/)
kao( :, 2, 9, 3) = (/&
&2.3370e-03_jprb,1.3137e-02_jprb,1.5812e-02_jprb,1.7884e-02_jprb,2.0163e-02_jprb,2.2642e-02_jprb,&
&2.5001e-02_jprb,2.6734e-02_jprb,1.1601e+00_jprb/)
kao( :, 3, 9, 3) = (/&
&2.2009e-03_jprb,1.2890e-02_jprb,1.6023e-02_jprb,1.8937e-02_jprb,2.2155e-02_jprb,2.5427e-02_jprb,&
&2.8446e-02_jprb,3.0735e-02_jprb,1.1135e+00_jprb/)
kao( :, 4, 9, 3) = (/&
&2.0815e-03_jprb,1.2690e-02_jprb,1.6303e-02_jprb,2.0037e-02_jprb,2.4017e-02_jprb,2.7921e-02_jprb,&
&3.1498e-02_jprb,3.4306e-02_jprb,1.0751e+00_jprb/)
kao( :, 5, 9, 3) = (/&
&1.9758e-03_jprb,1.2522e-02_jprb,1.6643e-02_jprb,2.1089e-02_jprb,2.5672e-02_jprb,3.0080e-02_jprb,&
&3.4128e-02_jprb,3.7357e-02_jprb,1.0412e+00_jprb/)
kao( :, 1,10, 3) = (/&
&2.1444e-03_jprb,1.1292e-02_jprb,1.2992e-02_jprb,1.3863e-02_jprb,1.4632e-02_jprb,1.5527e-02_jprb,&
&1.6522e-02_jprb,1.7216e-02_jprb,1.0697e+00_jprb/)
kao( :, 2,10, 3) = (/&
&2.0062e-03_jprb,1.1025e-02_jprb,1.3086e-02_jprb,1.4548e-02_jprb,1.6122e-02_jprb,1.7867e-02_jprb,&
&1.9575e-02_jprb,2.0804e-02_jprb,1.0168e+00_jprb/)
kao( :, 3,10, 3) = (/&
&1.8858e-03_jprb,1.0796e-02_jprb,1.3240e-02_jprb,1.5386e-02_jprb,1.7762e-02_jprb,2.0237e-02_jprb,&
&2.2522e-02_jprb,2.4230e-02_jprb,9.7508e-01_jprb/)
kao( :, 4,10, 3) = (/&
&1.7806e-03_jprb,1.0614e-02_jprb,1.3451e-02_jprb,1.6297e-02_jprb,1.9372e-02_jprb,2.2410e-02_jprb,&
&2.5204e-02_jprb,2.7358e-02_jprb,9.3955e-01_jprb/)
kao( :, 5,10, 3) = (/&
&1.6877e-03_jprb,1.0465e-02_jprb,1.3712e-02_jprb,1.7180e-02_jprb,2.0798e-02_jprb,2.4286e-02_jprb,&
&2.7488e-02_jprb,3.0016e-02_jprb,9.0793e-01_jprb/)
kao( :, 1,11, 3) = (/&
&1.7833e-03_jprb,9.3555e-03_jprb,1.0771e-02_jprb,1.1508e-02_jprb,1.2189e-02_jprb,1.2975e-02_jprb,&
&1.3836e-02_jprb,1.4432e-02_jprb,9.1283e-01_jprb/)
kao( :, 2,11, 3) = (/&
&1.6687e-03_jprb,9.1314e-03_jprb,1.0850e-02_jprb,1.2098e-02_jprb,1.3448e-02_jprb,1.4933e-02_jprb,&
&1.6373e-02_jprb,1.7407e-02_jprb,8.7061e-01_jprb/)
kao( :, 3,11, 3) = (/&
&1.5693e-03_jprb,8.9406e-03_jprb,1.0990e-02_jprb,1.2807e-02_jprb,1.4816e-02_jprb,1.6890e-02_jprb,&
&1.8802e-02_jprb,2.0227e-02_jprb,8.3514e-01_jprb/)
kao( :, 4,11, 3) = (/&
&1.4823e-03_jprb,8.7931e-03_jprb,1.1163e-02_jprb,1.3552e-02_jprb,1.6124e-02_jprb,1.8657e-02_jprb,&
&2.0985e-02_jprb,2.2777e-02_jprb,8.0415e-01_jprb/)
kao( :, 5,11, 3) = (/&
&1.4048e-03_jprb,8.6627e-03_jprb,1.1377e-02_jprb,1.4262e-02_jprb,1.7270e-02_jprb,2.0165e-02_jprb,&
&2.2814e-02_jprb,2.4901e-02_jprb,7.7610e-01_jprb/)
kao( :, 1,12, 3) = (/&
&1.4795e-03_jprb,7.7320e-03_jprb,8.9123e-03_jprb,9.5371e-03_jprb,1.0129e-02_jprb,1.0809e-02_jprb,&
&1.1546e-02_jprb,1.2053e-02_jprb,7.8854e-01_jprb/)
kao( :, 2,12, 3) = (/&
&1.3850e-03_jprb,7.5464e-03_jprb,8.9834e-03_jprb,1.0043e-02_jprb,1.1188e-02_jprb,1.2441e-02_jprb,&
&1.3647e-02_jprb,1.4511e-02_jprb,7.5243e-01_jprb/)
kao( :, 3,12, 3) = (/&
&1.3027e-03_jprb,7.3902e-03_jprb,9.1016e-03_jprb,1.0632e-02_jprb,1.2313e-02_jprb,1.4042e-02_jprb,&
&1.5632e-02_jprb,1.6816e-02_jprb,7.2138e-01_jprb/)
kao( :, 4,12, 3) = (/&
&1.2303e-03_jprb,7.2649e-03_jprb,9.2431e-03_jprb,1.1235e-02_jprb,1.3368e-02_jprb,1.5466e-02_jprb,&
&1.7392e-02_jprb,1.8872e-02_jprb,6.9377e-01_jprb/)
kao( :, 5,12, 3) = (/&
&1.1660e-03_jprb,7.1513e-03_jprb,9.4159e-03_jprb,1.1801e-02_jprb,1.4281e-02_jprb,1.6671e-02_jprb,&
&1.8852e-02_jprb,2.0566e-02_jprb,6.6914e-01_jprb/)
kao( :, 1,13, 3) = (/&
&1.2249e-03_jprb,6.3782e-03_jprb,7.3622e-03_jprb,7.8943e-03_jprb,8.4021e-03_jprb,8.9820e-03_jprb,&
&9.6036e-03_jprb,1.0029e-02_jprb,7.0365e-01_jprb/)
kao( :, 2,13, 3) = (/&
&1.1466e-03_jprb,6.2255e-03_jprb,7.4265e-03_jprb,8.3184e-03_jprb,9.2818e-03_jprb,1.0328e-02_jprb,&
&1.1327e-02_jprb,1.2042e-02_jprb,6.7076e-01_jprb/)
kao( :, 3,13, 3) = (/&
&1.0784e-03_jprb,6.0974e-03_jprb,7.5218e-03_jprb,8.8021e-03_jprb,1.0201e-02_jprb,1.1630e-02_jprb,&
&1.2945e-02_jprb,1.3920e-02_jprb,6.4220e-01_jprb/)
kao( :, 4,13, 3) = (/&
&1.0185e-03_jprb,5.9888e-03_jprb,7.6372e-03_jprb,9.2865e-03_jprb,1.1046e-02_jprb,1.2772e-02_jprb,&
&1.4357e-02_jprb,1.5571e-02_jprb,6.1693e-01_jprb/)
kao( :, 5,13, 3) = (/&
&9.6529e-04_jprb,5.8902e-03_jprb,7.7765e-03_jprb,9.7442e-03_jprb,1.1781e-02_jprb,1.3744e-02_jprb,&
&1.5534e-02_jprb,1.6937e-02_jprb,5.9454e-01_jprb/)
kao( :, 1, 1, 4) = (/&
&1.8021e-02_jprb,6.5790e-02_jprb,9.7338e-02_jprb,1.3126e-01_jprb,1.6473e-01_jprb,1.9719e-01_jprb,&
&2.2788e-01_jprb,2.5486e-01_jprb,6.7734e+00_jprb/)
kao( :, 2, 1, 4) = (/&
&1.7655e-02_jprb,6.4900e-02_jprb,9.8783e-02_jprb,1.3458e-01_jprb,1.6983e-01_jprb,2.0389e-01_jprb,&
&2.3625e-01_jprb,2.6464e-01_jprb,6.6229e+00_jprb/)
kao( :, 3, 1, 4) = (/&
&1.7413e-02_jprb,6.4418e-02_jprb,1.0054e-01_jprb,1.3796e-01_jprb,1.7471e-01_jprb,2.1025e-01_jprb,&
&2.4393e-01_jprb,2.7353e-01_jprb,6.4891e+00_jprb/)
kao( :, 4, 1, 4) = (/&
&1.7262e-02_jprb,6.4165e-02_jprb,1.0227e-01_jprb,1.4108e-01_jprb,1.7917e-01_jprb,2.1605e-01_jprb,&
&2.5091e-01_jprb,2.8164e-01_jprb,6.3763e+00_jprb/)
kao( :, 5, 1, 4) = (/&
&1.7196e-02_jprb,6.4095e-02_jprb,1.0392e-01_jprb,1.4402e-01_jprb,1.8328e-01_jprb,2.2127e-01_jprb,&
&2.5722e-01_jprb,2.8879e-01_jprb,6.2911e+00_jprb/)
kao( :, 1, 2, 4) = (/&
&1.4529e-02_jprb,5.6872e-02_jprb,8.5086e-02_jprb,1.1534e-01_jprb,1.4512e-01_jprb,1.7394e-01_jprb,&
&2.0123e-01_jprb,2.2499e-01_jprb,5.6977e+00_jprb/)
kao( :, 2, 2, 4) = (/&
&1.4123e-02_jprb,5.6310e-02_jprb,8.6845e-02_jprb,1.1891e-01_jprb,1.5031e-01_jprb,1.8072e-01_jprb,&
&2.0938e-01_jprb,2.3448e-01_jprb,5.5431e+00_jprb/)
kao( :, 3, 2, 4) = (/&
&1.3817e-02_jprb,5.6056e-02_jprb,8.8719e-02_jprb,1.2233e-01_jprb,1.5523e-01_jprb,1.8697e-01_jprb,&
&2.1702e-01_jprb,2.4322e-01_jprb,5.4063e+00_jprb/)
kao( :, 4, 2, 4) = (/&
&1.3599e-02_jprb,5.5957e-02_jprb,9.0467e-02_jprb,1.2549e-01_jprb,1.5975e-01_jprb,1.9279e-01_jprb,&
&2.2406e-01_jprb,2.5131e-01_jprb,5.2860e+00_jprb/)
kao( :, 5, 2, 4) = (/&
&1.3460e-02_jprb,5.5961e-02_jprb,9.2180e-02_jprb,1.2851e-01_jprb,1.6399e-01_jprb,1.9829e-01_jprb,&
&2.3058e-01_jprb,2.5880e-01_jprb,5.1861e+00_jprb/)
kao( :, 1, 3, 4) = (/&
&1.1705e-02_jprb,4.8966e-02_jprb,7.3479e-02_jprb,9.9794e-02_jprb,1.2575e-01_jprb,1.5078e-01_jprb,&
&1.7441e-01_jprb,1.9480e-01_jprb,4.7593e+00_jprb/)
kao( :, 2, 3, 4) = (/&
&1.1254e-02_jprb,4.8604e-02_jprb,7.5346e-02_jprb,1.0340e-01_jprb,1.3083e-01_jprb,1.5727e-01_jprb,&
&1.8221e-01_jprb,2.0377e-01_jprb,4.6048e+00_jprb/)
kao( :, 3, 3, 4) = (/&
&1.0873e-02_jprb,4.8463e-02_jprb,7.7240e-02_jprb,1.0681e-01_jprb,1.3563e-01_jprb,1.6344e-01_jprb,&
&1.8954e-01_jprb,2.1219e-01_jprb,4.4612e+00_jprb/)
kao( :, 4, 3, 4) = (/&
&1.0555e-02_jprb,4.8429e-02_jprb,7.9010e-02_jprb,1.0996e-01_jprb,1.4012e-01_jprb,1.6913e-01_jprb,&
&1.9654e-01_jprb,2.2020e-01_jprb,4.3302e+00_jprb/)
kao( :, 5, 3, 4) = (/&
&1.0298e-02_jprb,4.8470e-02_jprb,8.0657e-02_jprb,1.1290e-01_jprb,1.4434e-01_jprb,1.7459e-01_jprb,&
&2.0310e-01_jprb,2.2776e-01_jprb,4.2150e+00_jprb/)
kao( :, 1, 4, 4) = (/&
&9.6427e-03_jprb,4.2071e-02_jprb,6.2842e-02_jprb,8.5269e-02_jprb,1.0739e-01_jprb,1.2873e-01_jprb,&
&1.4874e-01_jprb,1.6592e-01_jprb,4.0400e+00_jprb/)
kao( :, 2, 4, 4) = (/&
&9.2011e-03_jprb,4.1815e-02_jprb,6.4680e-02_jprb,8.8757e-02_jprb,1.1230e-01_jprb,1.3495e-01_jprb,&
&1.5622e-01_jprb,1.7447e-01_jprb,3.8793e+00_jprb/)
kao( :, 3, 4, 4) = (/&
&8.8205e-03_jprb,4.1737e-02_jprb,6.6556e-02_jprb,9.2068e-02_jprb,1.1693e-01_jprb,1.4084e-01_jprb,&
&1.6327e-01_jprb,1.8245e-01_jprb,3.7400e+00_jprb/)
kao( :, 4, 4, 4) = (/&
&8.4836e-03_jprb,4.1724e-02_jprb,6.8311e-02_jprb,9.5165e-02_jprb,1.2127e-01_jprb,1.4641e-01_jprb,&
&1.6997e-01_jprb,1.9023e-01_jprb,3.6160e+00_jprb/)
kao( :, 5, 4, 4) = (/&
&8.1913e-03_jprb,4.1779e-02_jprb,6.9919e-02_jprb,9.8052e-02_jprb,1.2544e-01_jprb,1.5176e-01_jprb,&
&1.7649e-01_jprb,1.9765e-01_jprb,3.5010e+00_jprb/)
kao( :, 1, 5, 4) = (/&
&8.1345e-03_jprb,3.6015e-02_jprb,5.3335e-02_jprb,7.2138e-02_jprb,9.0702e-02_jprb,1.0859e-01_jprb,&
&1.2537e-01_jprb,1.3961e-01_jprb,3.4725e+00_jprb/)
kao( :, 2, 5, 4) = (/&
&7.7094e-03_jprb,3.5776e-02_jprb,5.4998e-02_jprb,7.5337e-02_jprb,9.5240e-02_jprb,1.1439e-01_jprb,&
&1.3227e-01_jprb,1.4749e-01_jprb,3.3178e+00_jprb/)
kao( :, 3, 5, 4) = (/&
&7.3411e-03_jprb,3.5699e-02_jprb,5.6747e-02_jprb,7.8425e-02_jprb,9.9566e-02_jprb,1.1985e-01_jprb,&
&1.3882e-01_jprb,1.5490e-01_jprb,3.1804e+00_jprb/)
kao( :, 4, 5, 4) = (/&
&7.0201e-03_jprb,3.5715e-02_jprb,5.8432e-02_jprb,8.1402e-02_jprb,1.0370e-01_jprb,1.2511e-01_jprb,&
&1.4516e-01_jprb,1.6215e-01_jprb,3.0592e+00_jprb/)
kao( :, 5, 5, 4) = (/&
&6.7383e-03_jprb,3.5791e-02_jprb,5.9960e-02_jprb,8.4146e-02_jprb,1.0763e-01_jprb,1.3019e-01_jprb,&
&1.5126e-01_jprb,1.6919e-01_jprb,2.9545e+00_jprb/)
kao( :, 1, 6, 4) = (/&
&6.9574e-03_jprb,3.0705e-02_jprb,4.4873e-02_jprb,6.0368e-02_jprb,7.5716e-02_jprb,9.0457e-02_jprb,&
&1.0422e-01_jprb,1.1586e-01_jprb,3.0030e+00_jprb/)
kao( :, 2, 6, 4) = (/&
&6.5599e-03_jprb,3.0473e-02_jprb,4.6327e-02_jprb,6.3240e-02_jprb,7.9791e-02_jprb,9.5693e-02_jprb,&
&1.1056e-01_jprb,1.2311e-01_jprb,2.8591e+00_jprb/)
kao( :, 3, 6, 4) = (/&
&6.2154e-03_jprb,3.0355e-02_jprb,4.7875e-02_jprb,6.6021e-02_jprb,8.3704e-02_jprb,1.0067e-01_jprb,&
&1.1647e-01_jprb,1.2979e-01_jprb,2.7316e+00_jprb/)
kao( :, 4, 6, 4) = (/&
&5.9146e-03_jprb,3.0358e-02_jprb,4.9433e-02_jprb,6.8766e-02_jprb,8.7543e-02_jprb,1.0553e-01_jprb,&
&1.2232e-01_jprb,1.3650e-01_jprb,2.6198e+00_jprb/)
kao( :, 5, 6, 4) = (/&
&5.6484e-03_jprb,3.0432e-02_jprb,5.0868e-02_jprb,7.1327e-02_jprb,9.1169e-02_jprb,1.1020e-01_jprb,&
&1.2797e-01_jprb,1.4294e-01_jprb,2.5219e+00_jprb/)
kao( :, 1, 7, 4) = (/&
&5.9858e-03_jprb,2.6066e-02_jprb,3.7491e-02_jprb,5.0091e-02_jprb,6.2632e-02_jprb,7.4695e-02_jprb,&
&8.5899e-02_jprb,9.5307e-02_jprb,2.6265e+00_jprb/)
kao( :, 2, 7, 4) = (/&
&5.6201e-03_jprb,2.5818e-02_jprb,3.8713e-02_jprb,5.2603e-02_jprb,6.6261e-02_jprb,7.9344e-02_jprb,&
&9.1528e-02_jprb,1.0179e-01_jprb,2.4915e+00_jprb/)
kao( :, 3, 7, 4) = (/&
&5.3028e-03_jprb,2.5679e-02_jprb,4.0067e-02_jprb,5.5077e-02_jprb,6.9715e-02_jprb,8.3744e-02_jprb,&
&9.6820e-02_jprb,1.0780e-01_jprb,2.3737e+00_jprb/)
kao( :, 4, 7, 4) = (/&
&5.0250e-03_jprb,2.5664e-02_jprb,4.1469e-02_jprb,5.7563e-02_jprb,7.3190e-02_jprb,8.8174e-02_jprb,&
&1.0210e-01_jprb,1.1380e-01_jprb,2.2719e+00_jprb/)
kao( :, 5, 7, 4) = (/&
&4.7808e-03_jprb,2.5724e-02_jprb,4.2789e-02_jprb,5.9902e-02_jprb,7.6504e-02_jprb,9.2382e-02_jprb,&
&1.0715e-01_jprb,1.1955e-01_jprb,2.1838e+00_jprb/)
kao( :, 1, 8, 4) = (/&
&5.1596e-03_jprb,2.2052e-02_jprb,3.1199e-02_jprb,4.1353e-02_jprb,5.1554e-02_jprb,6.1370e-02_jprb,&
&7.0499e-02_jprb,7.8103e-02_jprb,2.3369e+00_jprb/)
kao( :, 2, 8, 4) = (/&
&4.8272e-03_jprb,2.1774e-02_jprb,3.2180e-02_jprb,4.3545e-02_jprb,5.4719e-02_jprb,6.5446e-02_jprb,&
&7.5433e-02_jprb,8.3810e-02_jprb,2.2096e+00_jprb/)
kao( :, 3, 8, 4) = (/&
&4.5379e-03_jprb,2.1626e-02_jprb,3.3329e-02_jprb,4.5683e-02_jprb,5.7755e-02_jprb,6.9313e-02_jprb,&
&8.0057e-02_jprb,8.9096e-02_jprb,2.0999e+00_jprb/)
kao( :, 4, 8, 4) = (/&
&4.2850e-03_jprb,2.1592e-02_jprb,3.4574e-02_jprb,4.7884e-02_jprb,6.0825e-02_jprb,7.3203e-02_jprb,&
&8.4719e-02_jprb,9.4365e-02_jprb,2.0061e+00_jprb/)
kao( :, 5, 8, 4) = (/&
&4.0623e-03_jprb,2.1641e-02_jprb,3.5762e-02_jprb,4.9985e-02_jprb,6.3751e-02_jprb,7.6922e-02_jprb,&
&8.9154e-02_jprb,9.9364e-02_jprb,1.9265e+00_jprb/)
kao( :, 1, 9, 4) = (/&
&4.4531e-03_jprb,1.8626e-02_jprb,2.5958e-02_jprb,3.4051e-02_jprb,4.2290e-02_jprb,5.0232e-02_jprb,&
&5.7580e-02_jprb,6.3645e-02_jprb,2.0688e+00_jprb/)
kao( :, 2, 9, 4) = (/&
&4.1555e-03_jprb,1.8330e-02_jprb,2.6712e-02_jprb,3.5938e-02_jprb,4.5066e-02_jprb,5.3798e-02_jprb,&
&6.1907e-02_jprb,6.8669e-02_jprb,1.9511e+00_jprb/)
kao( :, 3, 9, 4) = (/&
&3.8980e-03_jprb,1.8171e-02_jprb,2.7659e-02_jprb,3.7795e-02_jprb,4.7683e-02_jprb,5.7159e-02_jprb,&
&6.5983e-02_jprb,7.3362e-02_jprb,1.8504e+00_jprb/)
kao( :, 4, 9, 4) = (/&
&3.6726e-03_jprb,1.8123e-02_jprb,2.8719e-02_jprb,3.9685e-02_jprb,5.0340e-02_jprb,6.0531e-02_jprb,&
&6.9978e-02_jprb,7.7857e-02_jprb,1.7654e+00_jprb/)
kao( :, 5, 9, 4) = (/&
&3.4732e-03_jprb,1.8155e-02_jprb,2.9764e-02_jprb,4.1511e-02_jprb,5.2898e-02_jprb,6.3750e-02_jprb,&
&7.3823e-02_jprb,8.2208e-02_jprb,1.6947e+00_jprb/)
kao( :, 1,10, 4) = (/&
&3.8264e-03_jprb,1.5718e-02_jprb,2.1595e-02_jprb,2.8016e-02_jprb,3.4614e-02_jprb,4.0975e-02_jprb,&
&4.6868e-02_jprb,5.1662e-02_jprb,1.8197e+00_jprb/)
kao( :, 2,10, 4) = (/&
&3.5642e-03_jprb,1.5429e-02_jprb,2.2178e-02_jprb,2.9617e-02_jprb,3.7012e-02_jprb,4.4107e-02_jprb,&
&5.0673e-02_jprb,5.6104e-02_jprb,1.7127e+00_jprb/)
kao( :, 3,10, 4) = (/&
&3.3388e-03_jprb,1.5262e-02_jprb,2.2939e-02_jprb,3.1209e-02_jprb,3.9306e-02_jprb,4.7049e-02_jprb,&
&5.4217e-02_jprb,6.0186e-02_jprb,1.6230e+00_jprb/)
kao( :, 4,10, 4) = (/&
&3.1419e-03_jprb,1.5205e-02_jprb,2.3835e-02_jprb,3.2828e-02_jprb,4.1571e-02_jprb,4.9911e-02_jprb,&
&5.7637e-02_jprb,6.4044e-02_jprb,1.5488e+00_jprb/)
kao( :, 5,10, 4) = (/&
&2.9677e-03_jprb,1.5219e-02_jprb,2.4740e-02_jprb,3.4412e-02_jprb,4.3767e-02_jprb,5.2705e-02_jprb,&
&6.0972e-02_jprb,6.7792e-02_jprb,1.4876e+00_jprb/)
kao( :, 1,11, 4) = (/&
&3.1779e-03_jprb,1.3095e-02_jprb,1.8055e-02_jprb,2.3506e-02_jprb,2.9061e-02_jprb,3.4415e-02_jprb,&
&3.9369e-02_jprb,4.3393e-02_jprb,1.5476e+00_jprb/)
kao( :, 2,11, 4) = (/&
&2.9632e-03_jprb,1.2861e-02_jprb,1.8568e-02_jprb,2.4842e-02_jprb,3.1070e-02_jprb,3.7036e-02_jprb,&
&4.2545e-02_jprb,4.7085e-02_jprb,1.4599e+00_jprb/)
kao( :, 3,11, 4) = (/&
&2.7773e-03_jprb,1.2736e-02_jprb,1.9231e-02_jprb,2.6199e-02_jprb,3.3009e-02_jprb,3.9506e-02_jprb,&
&4.5515e-02_jprb,5.0494e-02_jprb,1.3882e+00_jprb/)
kao( :, 4,11, 4) = (/&
&2.6144e-03_jprb,1.2699e-02_jprb,1.9998e-02_jprb,2.7568e-02_jprb,3.4911e-02_jprb,4.1912e-02_jprb,&
&4.8384e-02_jprb,5.3719e-02_jprb,1.3291e+00_jprb/)
kao( :, 5,11, 4) = (/&
&2.4704e-03_jprb,1.2732e-02_jprb,2.0751e-02_jprb,2.8878e-02_jprb,3.6736e-02_jprb,4.4233e-02_jprb,&
&5.1154e-02_jprb,5.6829e-02_jprb,1.2767e+00_jprb/)
kao( :, 1,12, 4) = (/&
&2.6367e-03_jprb,1.0870e-02_jprb,1.5028e-02_jprb,1.9613e-02_jprb,2.4267e-02_jprb,2.8743e-02_jprb,&
&3.2886e-02_jprb,3.6247e-02_jprb,1.3323e+00_jprb/)
kao( :, 2,12, 4) = (/&
&2.4596e-03_jprb,1.0682e-02_jprb,1.5472e-02_jprb,2.0731e-02_jprb,2.5941e-02_jprb,3.0929e-02_jprb,&
&3.5529e-02_jprb,3.9309e-02_jprb,1.2608e+00_jprb/)
kao( :, 3,12, 4) = (/&
&2.3058e-03_jprb,1.0585e-02_jprb,1.6043e-02_jprb,2.1873e-02_jprb,2.7564e-02_jprb,3.2990e-02_jprb,&
&3.8001e-02_jprb,4.2137e-02_jprb,1.2024e+00_jprb/)
kao( :, 4,12, 4) = (/&
&2.1711e-03_jprb,1.0572e-02_jprb,1.6696e-02_jprb,2.3023e-02_jprb,2.9157e-02_jprb,3.5001e-02_jprb,&
&4.0396e-02_jprb,4.4820e-02_jprb,1.1510e+00_jprb/)
kao( :, 5,12, 4) = (/&
&2.0522e-03_jprb,1.0605e-02_jprb,1.7302e-02_jprb,2.4078e-02_jprb,3.0631e-02_jprb,3.6880e-02_jprb,&
&4.2638e-02_jprb,4.7351e-02_jprb,1.1041e+00_jprb/)
kao( :, 1,13, 4) = (/&
&2.1839e-03_jprb,8.9998e-03_jprb,1.2472e-02_jprb,1.6303e-02_jprb,2.0181e-02_jprb,2.3909e-02_jprb,&
&2.7356e-02_jprb,3.0152e-02_jprb,1.1877e+00_jprb/)
kao( :, 2,13, 4) = (/&
&2.0376e-03_jprb,8.8480e-03_jprb,1.2851e-02_jprb,1.7235e-02_jprb,2.1572e-02_jprb,2.5723e-02_jprb,&
&2.9547e-02_jprb,3.2688e-02_jprb,1.1266e+00_jprb/)
kao( :, 3,13, 4) = (/&
&1.9106e-03_jprb,8.7808e-03_jprb,1.3344e-02_jprb,1.8195e-02_jprb,2.2927e-02_jprb,2.7435e-02_jprb,&
&3.1599e-02_jprb,3.5023e-02_jprb,1.0740e+00_jprb/)
kao( :, 4,13, 4) = (/&
&1.7994e-03_jprb,8.7806e-03_jprb,1.3884e-02_jprb,1.9140e-02_jprb,2.4232e-02_jprb,2.9085e-02_jprb,&
&3.3560e-02_jprb,3.7215e-02_jprb,1.0271e+00_jprb/)
kao( :, 5,13, 4) = (/&
&1.7009e-03_jprb,8.8054e-03_jprb,1.4366e-02_jprb,1.9979e-02_jprb,2.5409e-02_jprb,3.0588e-02_jprb,&
&3.5352e-02_jprb,3.9242e-02_jprb,9.8352e-01_jprb/)
kao( :, 1, 1, 5) = (/&
&2.7821e-02_jprb,9.4758e-02_jprb,1.5999e-01_jprb,2.2454e-01_jprb,2.8692e-01_jprb,3.4665e-01_jprb,&
&4.0214e-01_jprb,4.4847e-01_jprb,9.2144e+00_jprb/)
kao( :, 2, 1, 5) = (/&
&2.6913e-02_jprb,9.4630e-02_jprb,1.6244e-01_jprb,2.2902e-01_jprb,2.9341e-01_jprb,3.5518e-01_jprb,&
&4.1260e-01_jprb,4.6112e-01_jprb,8.9389e+00_jprb/)
kao( :, 3, 1, 5) = (/&
&2.6162e-02_jprb,9.4753e-02_jprb,1.6454e-01_jprb,2.3287e-01_jprb,2.9898e-01_jprb,3.6235e-01_jprb,&
&4.2172e-01_jprb,4.7189e-01_jprb,8.6829e+00_jprb/)
kao( :, 4, 1, 5) = (/&
&2.5554e-02_jprb,9.5076e-02_jprb,1.6645e-01_jprb,2.3629e-01_jprb,3.0381e-01_jprb,3.6863e-01_jprb,&
&4.2942e-01_jprb,4.8118e-01_jprb,8.4692e+00_jprb/)
kao( :, 5, 1, 5) = (/&
&2.5132e-02_jprb,9.5584e-02_jprb,1.6836e-01_jprb,2.3931e-01_jprb,3.0801e-01_jprb,3.7403e-01_jprb,&
&4.3587e-01_jprb,4.8876e-01_jprb,8.2899e+00_jprb/)
kao( :, 1, 2, 5) = (/&
&2.2786e-02_jprb,8.2873e-02_jprb,1.4193e-01_jprb,2.0025e-01_jprb,2.5674e-01_jprb,3.1069e-01_jprb,&
&3.6090e-01_jprb,4.0281e-01_jprb,7.8467e+00_jprb/)
kao( :, 2, 2, 5) = (/&
&2.1926e-02_jprb,8.2844e-02_jprb,1.4423e-01_jprb,2.0445e-01_jprb,2.6273e-01_jprb,3.1850e-01_jprb,&
&3.7058e-01_jprb,4.1426e-01_jprb,7.5685e+00_jprb/)
kao( :, 3, 2, 5) = (/&
&2.1216e-02_jprb,8.3137e-02_jprb,1.4626e-01_jprb,2.0800e-01_jprb,2.6778e-01_jprb,3.2530e-01_jprb,&
&3.7887e-01_jprb,4.2447e-01_jprb,7.3113e+00_jprb/)
kao( :, 4, 2, 5) = (/&
&2.0609e-02_jprb,8.3648e-02_jprb,1.4825e-01_jprb,2.1130e-01_jprb,2.7244e-01_jprb,3.3120e-01_jprb,&
&3.8633e-01_jprb,4.3319e-01_jprb,7.0868e+00_jprb/)
kao( :, 5, 2, 5) = (/&
&2.0124e-02_jprb,8.4283e-02_jprb,1.5023e-01_jprb,2.1439e-01_jprb,2.7658e-01_jprb,3.3624e-01_jprb,&
&3.9227e-01_jprb,4.4011e-01_jprb,6.8977e+00_jprb/)
kao( :, 1, 3, 5) = (/&
&1.8617e-02_jprb,7.1627e-02_jprb,1.2381e-01_jprb,1.7543e-01_jprb,2.2536e-01_jprb,2.7317e-01_jprb,&
&3.1745e-01_jprb,3.5456e-01_jprb,6.6821e+00_jprb/)
kao( :, 2, 3, 5) = (/&
&1.7803e-02_jprb,7.1692e-02_jprb,1.2605e-01_jprb,1.7941e-01_jprb,2.3119e-01_jprb,2.8073e-01_jprb,&
&3.2696e-01_jprb,3.6594e-01_jprb,6.4024e+00_jprb/)
kao( :, 3, 3, 5) = (/&
&1.7094e-02_jprb,7.2019e-02_jprb,1.2810e-01_jprb,1.8301e-01_jprb,2.3626e-01_jprb,2.8733e-01_jprb,&
&3.3525e-01_jprb,3.7585e-01_jprb,6.1586e+00_jprb/)
kao( :, 4, 3, 5) = (/&
&1.6473e-02_jprb,7.2618e-02_jprb,1.3012e-01_jprb,1.8637e-01_jprb,2.4089e-01_jprb,2.9345e-01_jprb,&
&3.4253e-01_jprb,3.8463e-01_jprb,5.9399e+00_jprb/)
kao( :, 5, 3, 5) = (/&
&1.5950e-02_jprb,7.3287e-02_jprb,1.3213e-01_jprb,1.8950e-01_jprb,2.4513e-01_jprb,2.9856e-01_jprb,&
&3.4870e-01_jprb,3.9140e-01_jprb,5.7373e+00_jprb/)
kao( :, 1, 4, 5) = (/&
&1.5580e-02_jprb,6.1790e-02_jprb,1.0733e-01_jprb,1.5233e-01_jprb,1.9578e-01_jprb,2.3731e-01_jprb,&
&2.7596e-01_jprb,3.0816e-01_jprb,5.7644e+00_jprb/)
kao( :, 2, 4, 5) = (/&
&1.4777e-02_jprb,6.1923e-02_jprb,1.0950e-01_jprb,1.5621e-01_jprb,2.0143e-01_jprb,2.4487e-01_jprb,&
&2.8520e-01_jprb,3.1931e-01_jprb,5.4929e+00_jprb/)
kao( :, 3, 4, 5) = (/&
&1.4083e-02_jprb,6.2360e-02_jprb,1.1165e-01_jprb,1.5990e-01_jprb,2.0675e-01_jprb,2.5162e-01_jprb,&
&2.9363e-01_jprb,3.2936e-01_jprb,5.2479e+00_jprb/)
kao( :, 4, 4, 5) = (/&
&1.3489e-02_jprb,6.3056e-02_jprb,1.1379e-01_jprb,1.6338e-01_jprb,2.1152e-01_jprb,2.5770e-01_jprb,&
&3.0103e-01_jprb,3.3790e-01_jprb,5.0295e+00_jprb/)
kao( :, 5, 4, 5) = (/&
&1.2974e-02_jprb,6.3786e-02_jprb,1.1583e-01_jprb,1.6662e-01_jprb,2.1582e-01_jprb,2.6318e-01_jprb,&
&3.0742e-01_jprb,3.4538e-01_jprb,4.8395e+00_jprb/)
kao( :, 1, 5, 5) = (/&
&1.3213e-02_jprb,5.3251e-02_jprb,9.2575e-02_jprb,1.3138e-01_jprb,1.6890e-01_jprb,2.0468e-01_jprb,&
&2.3789e-01_jprb,2.6563e-01_jprb,4.9912e+00_jprb/)
kao( :, 2, 5, 5) = (/&
&1.2469e-02_jprb,5.3471e-02_jprb,9.4761e-02_jprb,1.3531e-01_jprb,1.7451e-01_jprb,2.1205e-01_jprb,&
&2.4715e-01_jprb,2.7671e-01_jprb,4.7367e+00_jprb/)
kao( :, 3, 5, 5) = (/&
&1.1826e-02_jprb,5.4006e-02_jprb,9.6957e-02_jprb,1.3905e-01_jprb,1.7980e-01_jprb,2.1900e-01_jprb,&
&2.5553e-01_jprb,2.8664e-01_jprb,4.5084e+00_jprb/)
kao( :, 4, 5, 5) = (/&
&1.1265e-02_jprb,5.4777e-02_jprb,9.9171e-02_jprb,1.4252e-01_jprb,1.8466e-01_jprb,2.2509e-01_jprb,&
&2.6296e-01_jprb,2.9525e-01_jprb,4.3062e+00_jprb/)
kao( :, 5, 5, 5) = (/&
&1.0774e-02_jprb,5.5536e-02_jprb,1.0132e-01_jprb,1.4589e-01_jprb,1.8914e-01_jprb,2.3064e-01_jprb,&
&2.6960e-01_jprb,3.0272e-01_jprb,4.1237e+00_jprb/)
kao( :, 1, 6, 5) = (/&
&1.1298e-02_jprb,4.5718e-02_jprb,7.9200e-02_jprb,1.1232e-01_jprb,1.4430e-01_jprb,1.7486e-01_jprb,&
&2.0309e-01_jprb,2.2655e-01_jprb,4.3329e+00_jprb/)
kao( :, 2, 6, 5) = (/&
&1.0622e-02_jprb,4.6005e-02_jprb,8.1486e-02_jprb,1.1629e-01_jprb,1.5001e-01_jprb,1.8222e-01_jprb,&
&2.1218e-01_jprb,2.3741e-01_jprb,4.0960e+00_jprb/)
kao( :, 3, 6, 5) = (/&
&1.0034e-02_jprb,4.6615e-02_jprb,8.3719e-02_jprb,1.2009e-01_jprb,1.5528e-01_jprb,1.8897e-01_jprb,&
&2.2052e-01_jprb,2.4712e-01_jprb,3.8879e+00_jprb/)
kao( :, 4, 6, 5) = (/&
&9.5191e-03_jprb,4.7402e-02_jprb,8.5902e-02_jprb,1.2353e-01_jprb,1.5997e-01_jprb,1.9501e-01_jprb,&
&2.2766e-01_jprb,2.5531e-01_jprb,3.7023e+00_jprb/)
kao( :, 5, 6, 5) = (/&
&9.0694e-03_jprb,4.8127e-02_jprb,8.7970e-02_jprb,1.2673e-01_jprb,1.6428e-01_jprb,2.0026e-01_jprb,&
&2.3384e-01_jprb,2.6225e-01_jprb,3.5368e+00_jprb/)
kao( :, 1, 7, 5) = (/&
&9.7003e-03_jprb,3.9103e-02_jprb,6.7303e-02_jprb,9.5321e-02_jprb,1.2233e-01_jprb,1.4806e-01_jprb,&
&1.7192e-01_jprb,1.9156e-01_jprb,3.7979e+00_jprb/)
kao( :, 2, 7, 5) = (/&
&9.0880e-03_jprb,3.9405e-02_jprb,6.9590e-02_jprb,9.9254e-02_jprb,1.2789e-01_jprb,1.5530e-01_jprb,&
&1.8072e-01_jprb,2.0187e-01_jprb,3.5772e+00_jprb/)
kao( :, 3, 7, 5) = (/&
&8.5547e-03_jprb,3.9999e-02_jprb,7.1749e-02_jprb,1.0282e-01_jprb,1.3290e-01_jprb,1.6166e-01_jprb,&
&1.8835e-01_jprb,2.1077e-01_jprb,3.3854e+00_jprb/)
kao( :, 4, 7, 5) = (/&
&8.0885e-03_jprb,4.0699e-02_jprb,7.3711e-02_jprb,1.0595e-01_jprb,1.3715e-01_jprb,1.6698e-01_jprb,&
&1.9485e-01_jprb,2.1815e-01_jprb,3.2157e+00_jprb/)
kao( :, 5, 7, 5) = (/&
&7.6793e-03_jprb,4.1301e-02_jprb,7.5502e-02_jprb,1.0878e-01_jprb,1.4090e-01_jprb,1.7170e-01_jprb,&
&2.0034e-01_jprb,2.2441e-01_jprb,3.0651e+00_jprb/)
kao( :, 1, 8, 5) = (/&
&8.3356e-03_jprb,3.3311e-02_jprb,5.6870e-02_jprb,8.0308e-02_jprb,1.0295e-01_jprb,1.2448e-01_jprb,&
&1.4428e-01_jprb,1.6086e-01_jprb,3.3908e+00_jprb/)
kao( :, 2, 8, 5) = (/&
&7.7853e-03_jprb,3.3608e-02_jprb,5.9028e-02_jprb,8.4055e-02_jprb,1.0819e-01_jprb,1.3119e-01_jprb,&
&1.5248e-01_jprb,1.7004e-01_jprb,3.1845e+00_jprb/)
kao( :, 3, 8, 5) = (/&
&7.3065e-03_jprb,3.4089e-02_jprb,6.0968e-02_jprb,8.7276e-02_jprb,1.1264e-01_jprb,1.3686e-01_jprb,&
&1.5934e-01_jprb,1.7794e-01_jprb,3.0043e+00_jprb/)
kao( :, 4, 8, 5) = (/&
&6.8879e-03_jprb,3.4663e-02_jprb,6.2677e-02_jprb,8.9967e-02_jprb,1.1635e-01_jprb,1.4158e-01_jprb,&
&1.6491e-01_jprb,1.8439e-01_jprb,2.8456e+00_jprb/)
kao( :, 5, 8, 5) = (/&
&6.5199e-03_jprb,3.5157e-02_jprb,6.4215e-02_jprb,9.2448e-02_jprb,1.1974e-01_jprb,1.4577e-01_jprb,&
&1.7002e-01_jprb,1.9020e-01_jprb,2.7064e+00_jprb/)
kao( :, 1, 9, 5) = (/&
&7.1670e-03_jprb,2.8264e-02_jprb,4.7722e-02_jprb,6.7185e-02_jprb,8.5943e-02_jprb,1.0376e-01_jprb,&
&1.2019e-01_jprb,1.3426e-01_jprb,3.0087e+00_jprb/)
kao( :, 2, 9, 5) = (/&
&6.6733e-03_jprb,2.8499e-02_jprb,4.9676e-02_jprb,7.0525e-02_jprb,9.0644e-02_jprb,1.0983e-01_jprb,&
&1.2746e-01_jprb,1.4211e-01_jprb,2.8169e+00_jprb/)
kao( :, 3, 9, 5) = (/&
&6.2464e-03_jprb,2.8870e-02_jprb,5.1362e-02_jprb,7.3368e-02_jprb,9.4608e-02_jprb,1.1481e-01_jprb,&
&1.3345e-01_jprb,1.4885e-01_jprb,2.6506e+00_jprb/)
kao( :, 4, 9, 5) = (/&
&5.8753e-03_jprb,2.9313e-02_jprb,5.2839e-02_jprb,7.5761e-02_jprb,9.7853e-02_jprb,1.1892e-01_jprb,&
&1.3848e-01_jprb,1.5462e-01_jprb,2.5062e+00_jprb/)
kao( :, 5, 9, 5) = (/&
&5.5500e-03_jprb,2.9736e-02_jprb,5.4197e-02_jprb,7.7953e-02_jprb,1.0085e-01_jprb,1.2274e-01_jprb,&
&1.4297e-01_jprb,1.5977e-01_jprb,2.3796e+00_jprb/)
kao( :, 1,10, 5) = (/&
&6.1244e-03_jprb,2.3891e-02_jprb,3.9969e-02_jprb,5.6166e-02_jprb,7.1759e-02_jprb,8.6539e-02_jprb,&
&1.0009e-01_jprb,1.1231e-01_jprb,2.6506e+00_jprb/)
kao( :, 2,10, 5) = (/&
&5.6882e-03_jprb,2.4047e-02_jprb,4.1658e-02_jprb,5.9064e-02_jprb,7.5818e-02_jprb,9.1738e-02_jprb,&
&1.0641e-01_jprb,1.1881e-01_jprb,2.4752e+00_jprb/)
kao( :, 3,10, 5) = (/&
&5.3134e-03_jprb,2.4335e-02_jprb,4.3112e-02_jprb,6.1483e-02_jprb,7.9176e-02_jprb,9.6027e-02_jprb,&
&1.1160e-01_jprb,1.2443e-01_jprb,2.3246e+00_jprb/)
kao( :, 4,10, 5) = (/&
&4.9890e-03_jprb,2.4682e-02_jprb,4.4370e-02_jprb,6.3529e-02_jprb,8.2017e-02_jprb,9.9655e-02_jprb,&
&1.1591e-01_jprb,1.2935e-01_jprb,2.1952e+00_jprb/)
kao( :, 5,10, 5) = (/&
&4.7070e-03_jprb,2.5048e-02_jprb,4.5565e-02_jprb,6.5484e-02_jprb,8.4705e-02_jprb,1.0298e-01_jprb,&
&1.1992e-01_jprb,1.3395e-01_jprb,2.0819e+00_jprb/)
kao( :, 1,11, 5) = (/&
&5.0497e-03_jprb,2.0186e-02_jprb,3.4078e-02_jprb,4.7979e-02_jprb,6.1354e-02_jprb,7.4036e-02_jprb,&
&8.5636e-02_jprb,9.6183e-02_jprb,2.2490e+00_jprb/)
kao( :, 2,11, 5) = (/&
&4.6938e-03_jprb,2.0334e-02_jprb,3.5429e-02_jprb,5.0287e-02_jprb,6.4580e-02_jprb,7.8155e-02_jprb,&
&9.0667e-02_jprb,1.0125e-01_jprb,2.1005e+00_jprb/)
kao( :, 3,11, 5) = (/&
&4.3895e-03_jprb,2.0572e-02_jprb,3.6577e-02_jprb,5.2195e-02_jprb,6.7235e-02_jprb,8.1560e-02_jprb,&
&9.4765e-02_jprb,1.0567e-01_jprb,1.9750e+00_jprb/)
kao( :, 4,11, 5) = (/&
&4.1271e-03_jprb,2.0876e-02_jprb,3.7641e-02_jprb,5.3937e-02_jprb,6.9658e-02_jprb,8.4612e-02_jprb,&
&9.8403e-02_jprb,1.0977e-01_jprb,1.8669e+00_jprb/)
kao( :, 5,11, 5) = (/&
&3.8988e-03_jprb,2.1198e-02_jprb,3.8649e-02_jprb,5.5601e-02_jprb,7.1927e-02_jprb,8.7466e-02_jprb,&
&1.0184e-01_jprb,1.1364e-01_jprb,1.7763e+00_jprb/)
kao( :, 1,12, 5) = (/&
&4.1728e-03_jprb,1.6993e-02_jprb,2.8852e-02_jprb,4.0662e-02_jprb,5.2011e-02_jprb,6.2760e-02_jprb,&
&7.2578e-02_jprb,8.1564e-02_jprb,1.9301e+00_jprb/)
kao( :, 2,12, 5) = (/&
&3.8841e-03_jprb,1.7115e-02_jprb,2.9921e-02_jprb,4.2476e-02_jprb,5.4549e-02_jprb,6.6006e-02_jprb,&
&7.6561e-02_jprb,8.5509e-02_jprb,1.8048e+00_jprb/)
kao( :, 3,12, 5) = (/&
&3.6372e-03_jprb,1.7332e-02_jprb,3.0872e-02_jprb,4.4059e-02_jprb,5.6757e-02_jprb,6.8840e-02_jprb,&
&7.9938e-02_jprb,8.9112e-02_jprb,1.6994e+00_jprb/)
kao( :, 4,12, 5) = (/&
&3.4237e-03_jprb,1.7595e-02_jprb,3.1771e-02_jprb,4.5538e-02_jprb,5.8804e-02_jprb,7.1398e-02_jprb,&
&8.2985e-02_jprb,9.2488e-02_jprb,1.6111e+00_jprb/)
kao( :, 5,12, 5) = (/&
&3.2373e-03_jprb,1.7880e-02_jprb,3.2595e-02_jprb,4.6898e-02_jprb,6.0660e-02_jprb,7.3740e-02_jprb,&
&8.5835e-02_jprb,9.5657e-02_jprb,1.5338e+00_jprb/)
kao( :, 1,13, 5) = (/&
&3.4531e-03_jprb,1.4217e-02_jprb,2.4215e-02_jprb,3.4135e-02_jprb,4.3667e-02_jprb,5.2684e-02_jprb,&
&6.0918e-02_jprb,6.8490e-02_jprb,1.7191e+00_jprb/)
kao( :, 2,13, 5) = (/&
&3.2166e-03_jprb,1.4327e-02_jprb,2.5086e-02_jprb,3.5607e-02_jprb,4.5722e-02_jprb,5.5317e-02_jprb,&
&6.4142e-02_jprb,7.1650e-02_jprb,1.6100e+00_jprb/)
kao( :, 3,13, 5) = (/&
&3.0139e-03_jprb,1.4515e-02_jprb,2.5871e-02_jprb,3.6915e-02_jprb,4.7550e-02_jprb,5.7658e-02_jprb,&
&6.6926e-02_jprb,7.4589e-02_jprb,1.5199e+00_jprb/)
kao( :, 4,13, 5) = (/&
&2.8380e-03_jprb,1.4739e-02_jprb,2.6616e-02_jprb,3.8152e-02_jprb,4.9253e-02_jprb,5.9779e-02_jprb,&
&6.9455e-02_jprb,7.7339e-02_jprb,1.4413e+00_jprb/)
kao( :, 5,13, 5) = (/&
&2.6842e-03_jprb,1.4990e-02_jprb,2.7278e-02_jprb,3.9228e-02_jprb,5.0729e-02_jprb,6.1660e-02_jprb,&
&7.1747e-02_jprb,7.9916e-02_jprb,1.3713e+00_jprb/)
kao( :, 1, 1, 6) = (/&
&3.8632e-02_jprb,1.4563e-01_jprb,2.6438e-01_jprb,3.7994e-01_jprb,4.9178e-01_jprb,5.9825e-01_jprb,&
&6.9697e-01_jprb,7.7896e-01_jprb,1.1356e+01_jprb/)
kao( :, 2, 1, 6) = (/&
&3.7252e-02_jprb,1.4645e-01_jprb,2.6646e-01_jprb,3.8318e-01_jprb,4.9611e-01_jprb,6.0391e-01_jprb,&
&7.0433e-01_jprb,7.8721e-01_jprb,1.0913e+01_jprb/)
kao( :, 3, 1, 6) = (/&
&3.6055e-02_jprb,1.4710e-01_jprb,2.6822e-01_jprb,3.8583e-01_jprb,4.9949e-01_jprb,6.0852e-01_jprb,&
&7.0979e-01_jprb,7.9483e-01_jprb,1.0530e+01_jprb/)
kao( :, 4, 1, 6) = (/&
&3.5090e-02_jprb,1.4760e-01_jprb,2.6956e-01_jprb,3.8772e-01_jprb,5.0210e-01_jprb,6.1181e-01_jprb,&
&7.1390e-01_jprb,7.9958e-01_jprb,1.0180e+01_jprb/)
kao( :, 5, 1, 6) = (/&
&3.4260e-02_jprb,1.4804e-01_jprb,2.7047e-01_jprb,3.8919e-01_jprb,5.0401e-01_jprb,6.1383e-01_jprb,&
&7.1642e-01_jprb,8.0271e-01_jprb,9.8574e+00_jprb/)
kao( :, 1, 2, 6) = (/&
&3.1826e-02_jprb,1.3117e-01_jprb,2.4082e-01_jprb,3.4734e-01_jprb,4.4987e-01_jprb,5.4781e-01_jprb,&
&6.3804e-01_jprb,7.1206e-01_jprb,9.6043e+00_jprb/)
kao( :, 2, 2, 6) = (/&
&3.0580e-02_jprb,1.3188e-01_jprb,2.4250e-01_jprb,3.4978e-01_jprb,4.5341e-01_jprb,5.5237e-01_jprb,&
&6.4380e-01_jprb,7.1952e-01_jprb,9.2042e+00_jprb/)
kao( :, 3, 2, 6) = (/&
&2.9477e-02_jprb,1.3242e-01_jprb,2.4394e-01_jprb,3.5199e-01_jprb,4.5646e-01_jprb,5.5595e-01_jprb,&
&6.4859e-01_jprb,7.2500e-01_jprb,8.8547e+00_jprb/)
kao( :, 4, 2, 6) = (/&
&2.8580e-02_jprb,1.3291e-01_jprb,2.4517e-01_jprb,3.5389e-01_jprb,4.5886e-01_jprb,5.5917e-01_jprb,&
&6.5208e-01_jprb,7.2920e-01_jprb,8.5255e+00_jprb/)
kao( :, 5, 2, 6) = (/&
&2.7810e-02_jprb,1.3345e-01_jprb,2.4608e-01_jprb,3.5526e-01_jprb,4.6068e-01_jprb,5.6160e-01_jprb,&
&6.5500e-01_jprb,7.3217e-01_jprb,8.2220e+00_jprb/)
kao( :, 1, 3, 6) = (/&
&2.6420e-02_jprb,1.1646e-01_jprb,2.1549e-01_jprb,3.1138e-01_jprb,4.0359e-01_jprb,4.9120e-01_jprb,&
&5.7225e-01_jprb,6.3794e-01_jprb,8.1678e+00_jprb/)
kao( :, 2, 3, 6) = (/&
&2.5165e-02_jprb,1.1697e-01_jprb,2.1694e-01_jprb,3.1375e-01_jprb,4.0678e-01_jprb,4.9551e-01_jprb,&
&5.7728e-01_jprb,6.4420e-01_jprb,7.7828e+00_jprb/)
kao( :, 3, 3, 6) = (/&
&2.4099e-02_jprb,1.1741e-01_jprb,2.1826e-01_jprb,3.1581e-01_jprb,4.0983e-01_jprb,4.9937e-01_jprb,&
&5.8185e-01_jprb,6.4952e-01_jprb,7.4421e+00_jprb/)
kao( :, 4, 3, 6) = (/&
&2.3226e-02_jprb,1.1793e-01_jprb,2.1960e-01_jprb,3.1782e-01_jprb,4.1268e-01_jprb,5.0276e-01_jprb,&
&5.8605e-01_jprb,6.5374e-01_jprb,7.1416e+00_jprb/)
kao( :, 5, 3, 6) = (/&
&2.2449e-02_jprb,1.1853e-01_jprb,2.2074e-01_jprb,3.1965e-01_jprb,4.1487e-01_jprb,5.0573e-01_jprb,&
&5.8935e-01_jprb,6.5775e-01_jprb,6.8702e+00_jprb/)
kao( :, 1, 4, 6) = (/&
&2.2282e-02_jprb,1.0267e-01_jprb,1.9038e-01_jprb,2.7507e-01_jprb,3.5668e-01_jprb,4.3406e-01_jprb,&
&5.0509e-01_jprb,5.6272e-01_jprb,7.0192e+00_jprb/)
kao( :, 2, 4, 6) = (/&
&2.1101e-02_jprb,1.0311e-01_jprb,1.9184e-01_jprb,2.7754e-01_jprb,3.5984e-01_jprb,4.3790e-01_jprb,&
&5.1005e-01_jprb,5.6828e-01_jprb,6.6594e+00_jprb/)
kao( :, 3, 4, 6) = (/&
&2.0092e-02_jprb,1.0356e-01_jprb,1.9318e-01_jprb,2.7978e-01_jprb,3.6293e-01_jprb,4.4207e-01_jprb,&
&5.1463e-01_jprb,5.7356e-01_jprb,6.3438e+00_jprb/)
kao( :, 4, 4, 6) = (/&
&1.9228e-02_jprb,1.0414e-01_jprb,1.9468e-01_jprb,2.8199e-01_jprb,3.6599e-01_jprb,4.4583e-01_jprb,&
&5.1913e-01_jprb,5.7829e-01_jprb,6.0576e+00_jprb/)
kao( :, 5, 4, 6) = (/&
&1.8478e-02_jprb,1.0486e-01_jprb,1.9620e-01_jprb,2.8416e-01_jprb,3.6882e-01_jprb,4.4907e-01_jprb,&
&5.2302e-01_jprb,5.8267e-01_jprb,5.7987e+00_jprb/)
kao( :, 1, 5, 6) = (/&
&1.8927e-02_jprb,8.9665e-02_jprb,1.6623e-01_jprb,2.4010e-01_jprb,3.1103e-01_jprb,3.7843e-01_jprb,&
&4.4012e-01_jprb,4.9065e-01_jprb,6.0454e+00_jprb/)
kao( :, 2, 5, 6) = (/&
&1.7852e-02_jprb,9.0154e-02_jprb,1.6776e-01_jprb,2.4246e-01_jprb,3.1432e-01_jprb,3.8239e-01_jprb,&
&4.4467e-01_jprb,4.9513e-01_jprb,5.7165e+00_jprb/)
kao( :, 3, 5, 6) = (/&
&1.6931e-02_jprb,9.0711e-02_jprb,1.6930e-01_jprb,2.4502e-01_jprb,3.1769e-01_jprb,3.8643e-01_jprb,&
&4.4965e-01_jprb,5.0025e-01_jprb,5.4249e+00_jprb/)
kao( :, 4, 5, 6) = (/&
&1.6136e-02_jprb,9.1383e-02_jprb,1.7089e-01_jprb,2.4749e-01_jprb,3.2087e-01_jprb,3.9057e-01_jprb,&
&4.5430e-01_jprb,5.0560e-01_jprb,5.1610e+00_jprb/)
kao( :, 5, 5, 6) = (/&
&1.5442e-02_jprb,9.2230e-02_jprb,1.7257e-01_jprb,2.4990e-01_jprb,3.2412e-01_jprb,3.9447e-01_jprb,&
&4.5892e-01_jprb,5.1059e-01_jprb,4.9249e+00_jprb/)
kao( :, 1, 6, 6) = (/&
&1.6173e-02_jprb,7.7572e-02_jprb,1.4357e-01_jprb,2.0729e-01_jprb,2.6833e-01_jprb,3.2615e-01_jprb,&
&3.7930e-01_jprb,4.2429e-01_jprb,5.2215e+00_jprb/)
kao( :, 2, 6, 6) = (/&
&1.5200e-02_jprb,7.8077e-02_jprb,1.4510e-01_jprb,2.0962e-01_jprb,2.7142e-01_jprb,3.3008e-01_jprb,&
&3.8383e-01_jprb,4.2773e-01_jprb,4.9175e+00_jprb/)
kao( :, 3, 6, 6) = (/&
&1.4368e-02_jprb,7.8730e-02_jprb,1.4681e-01_jprb,2.1218e-01_jprb,2.7493e-01_jprb,3.3435e-01_jprb,&
&3.8857e-01_jprb,4.3236e-01_jprb,4.6498e+00_jprb/)
kao( :, 4, 6, 6) = (/&
&1.3651e-02_jprb,7.9498e-02_jprb,1.4852e-01_jprb,2.1489e-01_jprb,2.7853e-01_jprb,3.3867e-01_jprb,&
&3.9393e-01_jprb,4.3813e-01_jprb,4.4118e+00_jprb/)
kao( :, 5, 6, 6) = (/&
&1.3021e-02_jprb,8.0512e-02_jprb,1.5047e-01_jprb,2.1785e-01_jprb,2.8237e-01_jprb,3.4356e-01_jprb,&
&3.9943e-01_jprb,4.4445e-01_jprb,4.1985e+00_jprb/)
kao( :, 1, 7, 6) = (/&
&1.3842e-02_jprb,6.6570e-02_jprb,1.2297e-01_jprb,1.7734e-01_jprb,2.2958e-01_jprb,2.7900e-01_jprb,&
&3.2406e-01_jprb,3.6469e-01_jprb,4.5564e+00_jprb/)
kao( :, 2, 7, 6) = (/&
&1.2974e-02_jprb,6.7120e-02_jprb,1.2449e-01_jprb,1.7977e-01_jprb,2.3270e-01_jprb,2.8277e-01_jprb,&
&3.2872e-01_jprb,3.6760e-01_jprb,4.2769e+00_jprb/)
kao( :, 3, 7, 6) = (/&
&1.2231e-02_jprb,6.7829e-02_jprb,1.2627e-01_jprb,1.8248e-01_jprb,2.3625e-01_jprb,2.8721e-01_jprb,&
&3.3397e-01_jprb,3.7214e-01_jprb,4.0308e+00_jprb/)
kao( :, 4, 7, 6) = (/&
&1.1586e-02_jprb,6.8704e-02_jprb,1.2831e-01_jprb,1.8551e-01_jprb,2.4039e-01_jprb,2.9244e-01_jprb,&
&3.3993e-01_jprb,3.7842e-01_jprb,3.8137e+00_jprb/)
kao( :, 5, 7, 6) = (/&
&1.1019e-02_jprb,6.9935e-02_jprb,1.3064e-01_jprb,1.8899e-01_jprb,2.4502e-01_jprb,2.9795e-01_jprb,&
&3.4661e-01_jprb,3.8562e-01_jprb,3.6208e+00_jprb/)
kao( :, 1, 8, 6) = (/&
&1.1856e-02_jprb,5.6687e-02_jprb,1.0456e-01_jprb,1.5068e-01_jprb,1.9490e-01_jprb,2.3680e-01_jprb,&
&2.7529e-01_jprb,3.1187e-01_jprb,4.0573e+00_jprb/)
kao( :, 2, 8, 6) = (/&
&1.1084e-02_jprb,5.7283e-02_jprb,1.0610e-01_jprb,1.5305e-01_jprb,1.9814e-01_jprb,2.4092e-01_jprb,&
&2.8002e-01_jprb,3.1482e-01_jprb,3.7969e+00_jprb/)
kao( :, 3, 8, 6) = (/&
&1.0424e-02_jprb,5.8111e-02_jprb,1.0802e-01_jprb,1.5601e-01_jprb,2.0208e-01_jprb,2.4566e-01_jprb,&
&2.8562e-01_jprb,3.1943e-01_jprb,3.5697e+00_jprb/)
kao( :, 4, 8, 6) = (/&
&9.8517e-03_jprb,5.9109e-02_jprb,1.1026e-01_jprb,1.5951e-01_jprb,2.0663e-01_jprb,2.5128e-01_jprb,&
&2.9237e-01_jprb,3.2591e-01_jprb,3.3690e+00_jprb/)
kao( :, 5, 8, 6) = (/&
&9.3473e-03_jprb,6.0458e-02_jprb,1.1290e-01_jprb,1.6330e-01_jprb,2.1161e-01_jprb,2.5747e-01_jprb,&
&2.9929e-01_jprb,3.3311e-01_jprb,3.1918e+00_jprb/)
kao( :, 1, 9, 6) = (/&
&1.0174e-02_jprb,4.8047e-02_jprb,8.8410e-02_jprb,1.2743e-01_jprb,1.6481e-01_jprb,2.0018e-01_jprb,&
&2.3315e-01_jprb,2.6585e-01_jprb,3.5956e+00_jprb/)
kao( :, 2, 9, 6) = (/&
&9.4844e-03_jprb,4.8661e-02_jprb,9.0043e-02_jprb,1.2994e-01_jprb,1.6817e-01_jprb,2.0441e-01_jprb,&
&2.3776e-01_jprb,2.6902e-01_jprb,3.3539e+00_jprb/)
kao( :, 3, 9, 6) = (/&
&8.8959e-03_jprb,4.9547e-02_jprb,9.2085e-02_jprb,1.3295e-01_jprb,1.7216e-01_jprb,2.0943e-01_jprb,&
&2.4369e-01_jprb,2.7374e-01_jprb,3.1436e+00_jprb/)
kao( :, 4, 9, 6) = (/&
&8.3843e-03_jprb,5.0652e-02_jprb,9.4445e-02_jprb,1.3652e-01_jprb,1.7695e-01_jprb,2.1526e-01_jprb,&
&2.5026e-01_jprb,2.7964e-01_jprb,2.9597e+00_jprb/)
kao( :, 5, 9, 6) = (/&
&7.9361e-03_jprb,5.1996e-02_jprb,9.7022e-02_jprb,1.4032e-01_jprb,1.8172e-01_jprb,2.2081e-01_jprb,&
&2.5660e-01_jprb,2.8539e-01_jprb,2.7995e+00_jprb/)
kao( :, 1,10, 6) = (/&
&8.6910e-03_jprb,4.0662e-02_jprb,7.4709e-02_jprb,1.0753e-01_jprb,1.3903e-01_jprb,1.6890e-01_jprb,&
&1.9755e-01_jprb,2.2624e-01_jprb,3.1658e+00_jprb/)
kao( :, 2,10, 6) = (/&
&8.0781e-03_jprb,4.1334e-02_jprb,7.6396e-02_jprb,1.1015e-01_jprb,1.4261e-01_jprb,1.7346e-01_jprb,&
&2.0195e-01_jprb,2.2973e-01_jprb,2.9443e+00_jprb/)
kao( :, 3,10, 6) = (/&
&7.5558e-03_jprb,4.2237e-02_jprb,7.8425e-02_jprb,1.1329e-01_jprb,1.4677e-01_jprb,1.7847e-01_jprb,&
&2.0753e-01_jprb,2.3421e-01_jprb,2.7528e+00_jprb/)
kao( :, 4,10, 6) = (/&
&7.1052e-03_jprb,4.3295e-02_jprb,8.0652e-02_jprb,1.1657e-01_jprb,1.5091e-01_jprb,1.8339e-01_jprb,&
&2.1320e-01_jprb,2.3872e-01_jprb,2.5875e+00_jprb/)
kao( :, 5,10, 6) = (/&
&6.7112e-03_jprb,4.4456e-02_jprb,8.2854e-02_jprb,1.1964e-01_jprb,1.5483e-01_jprb,1.8812e-01_jprb,&
&2.1828e-01_jprb,2.4305e-01_jprb,2.4449e+00_jprb/)
kao( :, 1,11, 6) = (/&
&7.1546e-03_jprb,3.4641e-02_jprb,6.3729e-02_jprb,9.1774e-02_jprb,1.1873e-01_jprb,1.4430e-01_jprb,&
&1.6899e-01_jprb,1.9377e-01_jprb,2.6800e+00_jprb/)
kao( :, 2,11, 6) = (/&
&6.6497e-03_jprb,3.5437e-02_jprb,6.5581e-02_jprb,9.4605e-02_jprb,1.2249e-01_jprb,1.4891e-01_jprb,&
&1.7335e-01_jprb,1.9740e-01_jprb,2.4922e+00_jprb/)
kao( :, 3,11, 6) = (/&
&6.2203e-03_jprb,3.6291e-02_jprb,6.7410e-02_jprb,9.7360e-02_jprb,1.2600e-01_jprb,1.5308e-01_jprb,&
&1.7786e-01_jprb,2.0080e-01_jprb,2.3311e+00_jprb/)
kao( :, 4,11, 6) = (/&
&5.8484e-03_jprb,3.7194e-02_jprb,6.9237e-02_jprb,9.9960e-02_jprb,1.2931e-01_jprb,1.5705e-01_jprb,&
&1.8234e-01_jprb,2.0415e-01_jprb,2.1940e+00_jprb/)
kao( :, 5,11, 6) = (/&
&5.5242e-03_jprb,3.8204e-02_jprb,7.1094e-02_jprb,1.0253e-01_jprb,1.3260e-01_jprb,1.6091e-01_jprb,&
&1.8653e-01_jprb,2.0766e-01_jprb,2.0745e+00_jprb/)
kao( :, 1,12, 6) = (/&
&5.8816e-03_jprb,2.9599e-02_jprb,5.4489e-02_jprb,7.8480e-02_jprb,1.0153e-01_jprb,1.2338e-01_jprb,&
&1.4461e-01_jprb,1.6589e-01_jprb,2.2985e+00_jprb/)
kao( :, 2,12, 6) = (/&
&5.4688e-03_jprb,3.0298e-02_jprb,5.6046e-02_jprb,8.0826e-02_jprb,1.0456e-01_jprb,1.2701e-01_jprb,&
&1.4783e-01_jprb,1.6844e-01_jprb,2.1377e+00_jprb/)
kao( :, 3,12, 6) = (/&
&5.1175e-03_jprb,3.1020e-02_jprb,5.7585e-02_jprb,8.3084e-02_jprb,1.0742e-01_jprb,1.3040e-01_jprb,&
&1.5140e-01_jprb,1.7099e-01_jprb,2.0023e+00_jprb/)
kao( :, 4,12, 6) = (/&
&4.8144e-03_jprb,3.1808e-02_jprb,5.9123e-02_jprb,8.5255e-02_jprb,1.1020e-01_jprb,1.3374e-01_jprb,&
&1.5506e-01_jprb,1.7366e-01_jprb,1.8864e+00_jprb/)
kao( :, 5,12, 6) = (/&
&4.5497e-03_jprb,3.2704e-02_jprb,6.0814e-02_jprb,8.7626e-02_jprb,1.1321e-01_jprb,1.3720e-01_jprb,&
&1.5886e-01_jprb,1.7678e-01_jprb,1.7844e+00_jprb/)
kao( :, 1,13, 6) = (/&
&4.8422e-03_jprb,2.5177e-02_jprb,4.6344e-02_jprb,6.6734e-02_jprb,8.6291e-02_jprb,1.0482e-01_jprb,&
&1.2289e-01_jprb,1.4102e-01_jprb,2.0501e+00_jprb/)
kao( :, 2,13, 6) = (/&
&4.5082e-03_jprb,2.5759e-02_jprb,4.7623e-02_jprb,6.8651e-02_jprb,8.8749e-02_jprb,1.0771e-01_jprb,&
&1.2536e-01_jprb,1.4285e-01_jprb,1.9088e+00_jprb/)
kao( :, 3,13, 6) = (/&
&4.2221e-03_jprb,2.6388e-02_jprb,4.8921e-02_jprb,7.0509e-02_jprb,9.1098e-02_jprb,1.1050e-01_jprb,&
&1.2820e-01_jprb,1.4481e-01_jprb,1.7897e+00_jprb/)
kao( :, 4,13, 6) = (/&
&3.9753e-03_jprb,2.7097e-02_jprb,5.0270e-02_jprb,7.2404e-02_jprb,9.3520e-02_jprb,1.1341e-01_jprb,&
&1.3134e-01_jprb,1.4713e-01_jprb,1.6870e+00_jprb/)
kao( :, 5,13, 6) = (/&
&3.7603e-03_jprb,2.7904e-02_jprb,5.1825e-02_jprb,7.4620e-02_jprb,9.6277e-02_jprb,1.1654e-01_jprb,&
&1.3481e-01_jprb,1.4987e-01_jprb,1.5960e+00_jprb/)
kao( :, 1, 1, 7) = (/&
&5.2128e-02_jprb,2.2573e-01_jprb,4.1698e-01_jprb,6.0142e-01_jprb,7.7838e-01_jprb,9.4635e-01_jprb,&
&1.1013e+00_jprb,1.2264e+00_jprb,1.2683e+01_jprb/)
kao( :, 2, 1, 7) = (/&
&5.0382e-02_jprb,2.2718e-01_jprb,4.1897e-01_jprb,6.0369e-01_jprb,7.8036e-01_jprb,9.4806e-01_jprb,&
&1.1011e+00_jprb,1.2250e+00_jprb,1.2078e+01_jprb/)
kao( :, 3, 1, 7) = (/&
&4.9050e-02_jprb,2.2916e-01_jprb,4.2172e-01_jprb,6.0675e-01_jprb,7.8406e-01_jprb,9.5134e-01_jprb,&
&1.1038e+00_jprb,1.2245e+00_jprb,1.1561e+01_jprb/)
kao( :, 4, 1, 7) = (/&
&4.8000e-02_jprb,2.3161e-01_jprb,4.2498e-01_jprb,6.1081e-01_jprb,7.8880e-01_jprb,9.5615e-01_jprb,&
&1.1084e+00_jprb,1.2283e+00_jprb,1.1090e+01_jprb/)
kao( :, 5, 1, 7) = (/&
&4.7267e-02_jprb,2.3436e-01_jprb,4.2865e-01_jprb,6.1543e-01_jprb,7.9387e-01_jprb,9.6245e-01_jprb,&
&1.1147e+00_jprb,1.2334e+00_jprb,1.0665e+01_jprb/)
kao( :, 1, 2, 7) = (/&
&4.2932e-02_jprb,2.1372e-01_jprb,3.9561e-01_jprb,5.6920e-01_jprb,7.3515e-01_jprb,8.9082e-01_jprb,&
&1.0322e+00_jprb,1.1443e+00_jprb,1.0613e+01_jprb/)
kao( :, 2, 2, 7) = (/&
&4.1235e-02_jprb,2.1562e-01_jprb,3.9903e-01_jprb,5.7421e-01_jprb,7.4053e-01_jprb,8.9640e-01_jprb,&
&1.0375e+00_jprb,1.1460e+00_jprb,1.0106e+01_jprb/)
kao( :, 3, 2, 7) = (/&
&3.9904e-02_jprb,2.1797e-01_jprb,4.0322e-01_jprb,5.7993e-01_jprb,7.4744e-01_jprb,9.0475e-01_jprb,&
&1.0452e+00_jprb,1.1527e+00_jprb,9.6511e+00_jprb/)
kao( :, 4, 2, 7) = (/&
&3.8807e-02_jprb,2.2063e-01_jprb,4.0792e-01_jprb,5.8615e-01_jprb,7.5558e-01_jprb,9.1342e-01_jprb,&
&1.0550e+00_jprb,1.1616e+00_jprb,9.2444e+00_jprb/)
kao( :, 5, 2, 7) = (/&
&3.7944e-02_jprb,2.2348e-01_jprb,4.1278e-01_jprb,5.9308e-01_jprb,7.6392e-01_jprb,9.2334e-01_jprb,&
&1.0654e+00_jprb,1.1718e+00_jprb,8.8704e+00_jprb/)
kao( :, 1, 3, 7) = (/&
&3.5644e-02_jprb,1.9900e-01_jprb,3.6873e-01_jprb,5.2969e-01_jprb,6.8262e-01_jprb,8.2576e-01_jprb,&
&9.5330e-01_jprb,1.0560e+00_jprb,9.0225e+00_jprb/)
kao( :, 2, 3, 7) = (/&
&3.3919e-02_jprb,2.0128e-01_jprb,3.7328e-01_jprb,5.3629e-01_jprb,6.9070e-01_jprb,8.3419e-01_jprb,&
&9.6259e-01_jprb,1.0599e+00_jprb,8.5592e+00_jprb/)
kao( :, 3, 3, 7) = (/&
&3.2476e-02_jprb,2.0401e-01_jprb,3.7867e-01_jprb,5.4408e-01_jprb,7.0000e-01_jprb,8.4506e-01_jprb,&
&9.7370e-01_jprb,1.0690e+00_jprb,8.1409e+00_jprb/)
kao( :, 4, 3, 7) = (/&
&3.1249e-02_jprb,2.0698e-01_jprb,3.8457e-01_jprb,5.5225e-01_jprb,7.1038e-01_jprb,8.5708e-01_jprb,&
&9.8671e-01_jprb,1.0811e+00_jprb,7.7623e+00_jprb/)
kao( :, 5, 3, 7) = (/&
&3.0275e-02_jprb,2.1021e-01_jprb,3.9069e-01_jprb,5.6104e-01_jprb,7.2150e-01_jprb,8.6973e-01_jprb,&
&1.0004e+00_jprb,1.0948e+00_jprb,7.4273e+00_jprb/)
kao( :, 1, 4, 7) = (/&
&3.0097e-02_jprb,1.8261e-01_jprb,3.3811e-01_jprb,4.8498e-01_jprb,6.2347e-01_jprb,7.5244e-01_jprb,&
&8.6689e-01_jprb,9.6397e-01_jprb,7.7267e+00_jprb/)
kao( :, 2, 4, 7) = (/&
&2.8465e-02_jprb,1.8532e-01_jprb,3.4351e-01_jprb,4.9262e-01_jprb,6.3341e-01_jprb,7.6377e-01_jprb,&
&8.7850e-01_jprb,9.6891e-01_jprb,7.2971e+00_jprb/)
kao( :, 3, 4, 7) = (/&
&2.7069e-02_jprb,1.8851e-01_jprb,3.4990e-01_jprb,5.0190e-01_jprb,6.4465e-01_jprb,7.7654e-01_jprb,&
&8.9285e-01_jprb,9.7883e-01_jprb,6.9159e+00_jprb/)
kao( :, 4, 4, 7) = (/&
&2.5871e-02_jprb,1.9199e-01_jprb,3.5682e-01_jprb,5.1175e-01_jprb,6.5706e-01_jprb,7.9119e-01_jprb,&
&9.0820e-01_jprb,9.9217e-01_jprb,6.5751e+00_jprb/)
kao( :, 5, 4, 7) = (/&
&2.4866e-02_jprb,1.9576e-01_jprb,3.6404e-01_jprb,5.2207e-01_jprb,6.7030e-01_jprb,8.0638e-01_jprb,&
&9.2498e-01_jprb,1.0073e+00_jprb,6.2687e+00_jprb/)
kao( :, 1, 5, 7) = (/&
&2.5614e-02_jprb,1.6487e-01_jprb,3.0459e-01_jprb,4.3623e-01_jprb,5.5976e-01_jprb,6.7396e-01_jprb,&
&7.7520e-01_jprb,8.6835e-01_jprb,6.6219e+00_jprb/)
kao( :, 2, 5, 7) = (/&
&2.4116e-02_jprb,1.6799e-01_jprb,3.1096e-01_jprb,4.4514e-01_jprb,5.7096e-01_jprb,6.8731e-01_jprb,&
&7.8907e-01_jprb,8.7442e-01_jprb,6.2328e+00_jprb/)
kao( :, 3, 5, 7) = (/&
&2.2830e-02_jprb,1.7162e-01_jprb,3.1815e-01_jprb,4.5551e-01_jprb,5.8428e-01_jprb,7.0249e-01_jprb,&
&8.0544e-01_jprb,8.8480e-01_jprb,5.8899e+00_jprb/)
kao( :, 4, 5, 7) = (/&
&2.1736e-02_jprb,1.7560e-01_jprb,3.2603e-01_jprb,4.6697e-01_jprb,5.9854e-01_jprb,7.1908e-01_jprb,&
&8.2326e-01_jprb,8.9862e-01_jprb,5.5832e+00_jprb/)
kao( :, 5, 5, 7) = (/&
&2.0809e-02_jprb,1.7988e-01_jprb,3.3435e-01_jprb,4.7875e-01_jprb,6.1356e-01_jprb,7.3657e-01_jprb,&
&8.4234e-01_jprb,9.1423e-01_jprb,5.3090e+00_jprb/)
kao( :, 1, 6, 7) = (/&
&2.1880e-02_jprb,1.4623e-01_jprb,2.6962e-01_jprb,3.8553e-01_jprb,4.9437e-01_jprb,5.9458e-01_jprb,&
&6.8464e-01_jprb,7.7290e-01_jprb,5.6893e+00_jprb/)
kao( :, 2, 6, 7) = (/&
&2.0541e-02_jprb,1.4964e-01_jprb,2.7646e-01_jprb,3.9534e-01_jprb,5.0653e-01_jprb,6.0867e-01_jprb,&
&6.9802e-01_jprb,7.7944e-01_jprb,5.3383e+00_jprb/)
kao( :, 3, 6, 7) = (/&
&1.9387e-02_jprb,1.5367e-01_jprb,2.8442e-01_jprb,4.0664e-01_jprb,5.2073e-01_jprb,6.2519e-01_jprb,&
&7.1506e-01_jprb,7.9013e-01_jprb,5.0300e+00_jprb/)
kao( :, 4, 6, 7) = (/&
&1.8399e-02_jprb,1.5808e-01_jprb,2.9302e-01_jprb,4.1898e-01_jprb,5.3609e-01_jprb,6.4281e-01_jprb,&
&7.3443e-01_jprb,8.0386e-01_jprb,4.7570e+00_jprb/)
kao( :, 5, 6, 7) = (/&
&1.7565e-02_jprb,1.6282e-01_jprb,3.0216e-01_jprb,4.3178e-01_jprb,5.5216e-01_jprb,6.6163e-01_jprb,&
&7.5404e-01_jprb,8.1847e-01_jprb,4.5125e+00_jprb/)
kao( :, 1, 7, 7) = (/&
&1.8714e-02_jprb,1.2767e-01_jprb,2.3517e-01_jprb,3.3585e-01_jprb,4.3014e-01_jprb,5.1698e-01_jprb,&
&5.9889e-01_jprb,6.8052e-01_jprb,4.9475e+00_jprb/)
kao( :, 2, 7, 7) = (/&
&1.7519e-02_jprb,1.3119e-01_jprb,2.4211e-01_jprb,3.4588e-01_jprb,4.4292e-01_jprb,5.3168e-01_jprb,&
&6.1066e-01_jprb,6.8710e-01_jprb,4.6289e+00_jprb/)
kao( :, 3, 7, 7) = (/&
&1.6495e-02_jprb,1.3547e-01_jprb,2.5037e-01_jprb,3.5759e-01_jprb,4.5729e-01_jprb,5.4816e-01_jprb,&
&6.2674e-01_jprb,6.9772e-01_jprb,4.3494e+00_jprb/)
kao( :, 4, 7, 7) = (/&
&1.5623e-02_jprb,1.4024e-01_jprb,2.5938e-01_jprb,3.7018e-01_jprb,4.7307e-01_jprb,5.6640e-01_jprb,&
&6.4533e-01_jprb,7.1032e-01_jprb,4.1027e+00_jprb/)
kao( :, 5, 7, 7) = (/&
&1.4883e-02_jprb,1.4521e-01_jprb,2.6879e-01_jprb,3.8347e-01_jprb,4.8911e-01_jprb,5.8444e-01_jprb,&
&6.6428e-01_jprb,7.2392e-01_jprb,3.8827e+00_jprb/)
kao( :, 1, 8, 7) = (/&
&1.6011e-02_jprb,1.1016e-01_jprb,2.0259e-01_jprb,2.8923e-01_jprb,3.7024e-01_jprb,4.4570e-01_jprb,&
&5.1977e-01_jprb,5.9363e-01_jprb,4.3984e+00_jprb/)
kao( :, 2, 8, 7) = (/&
&1.4948e-02_jprb,1.1367e-01_jprb,2.0954e-01_jprb,2.9900e-01_jprb,3.8239e-01_jprb,4.5865e-01_jprb,&
&5.2962e-01_jprb,5.9992e-01_jprb,4.1028e+00_jprb/)
kao( :, 3, 8, 7) = (/&
&1.4043e-02_jprb,1.1790e-01_jprb,2.1765e-01_jprb,3.1052e-01_jprb,3.9683e-01_jprb,4.7512e-01_jprb,&
&5.4401e-01_jprb,6.0979e-01_jprb,3.8451e+00_jprb/)
kao( :, 4, 8, 7) = (/&
&1.3277e-02_jprb,1.2271e-01_jprb,2.2662e-01_jprb,3.2293e-01_jprb,4.1184e-01_jprb,4.9204e-01_jprb,&
&5.6016e-01_jprb,6.2114e-01_jprb,3.6180e+00_jprb/)
kao( :, 5, 8, 7) = (/&
&1.2628e-02_jprb,1.2779e-01_jprb,2.3576e-01_jprb,3.3533e-01_jprb,4.2713e-01_jprb,5.0925e-01_jprb,&
&5.7770e-01_jprb,6.3359e-01_jprb,3.4160e+00_jprb/)
kao( :, 1, 9, 7) = (/&
&1.3722e-02_jprb,9.3985e-02_jprb,1.7271e-01_jprb,2.4639e-01_jprb,3.1541e-01_jprb,3.8164e-01_jprb,&
&4.4798e-01_jprb,5.1362e-01_jprb,3.8929e+00_jprb/)
kao( :, 2, 9, 7) = (/&
&1.2777e-02_jprb,9.7414e-02_jprb,1.7934e-01_jprb,2.5581e-01_jprb,3.2699e-01_jprb,3.9259e-01_jprb,&
&4.5617e-01_jprb,5.1941e-01_jprb,3.6200e+00_jprb/)
kao( :, 3, 9, 7) = (/&
&1.1979e-02_jprb,1.0152e-01_jprb,1.8716e-01_jprb,2.6666e-01_jprb,3.4026e-01_jprb,4.0688e-01_jprb,&
&4.6784e-01_jprb,5.2783e-01_jprb,3.3828e+00_jprb/)
kao( :, 4, 9, 7) = (/&
&1.1306e-02_jprb,1.0607e-01_jprb,1.9536e-01_jprb,2.7793e-01_jprb,3.5411e-01_jprb,4.2250e-01_jprb,&
&4.8212e-01_jprb,5.3856e-01_jprb,3.1744e+00_jprb/)
kao( :, 5, 9, 7) = (/&
&1.0737e-02_jprb,1.1080e-01_jprb,2.0394e-01_jprb,2.8968e-01_jprb,3.6840e-01_jprb,4.3899e-01_jprb,&
&4.9835e-01_jprb,5.5128e-01_jprb,2.9902e+00_jprb/)
kao( :, 1,10, 7) = (/&
&1.1712e-02_jprb,7.9698e-02_jprb,1.4636e-01_jprb,2.0884e-01_jprb,2.6772e-01_jprb,3.2572e-01_jprb,&
&3.8403e-01_jprb,4.4146e-01_jprb,3.4238e+00_jprb/)
kao( :, 2,10, 7) = (/&
&1.0885e-02_jprb,8.2934e-02_jprb,1.5255e-01_jprb,2.1737e-01_jprb,2.7766e-01_jprb,3.3439e-01_jprb,&
&3.9066e-01_jprb,4.4635e-01_jprb,3.1745e+00_jprb/)
kao( :, 3,10, 7) = (/&
&1.0188e-02_jprb,8.6824e-02_jprb,1.5967e-01_jprb,2.2716e-01_jprb,2.8954e-01_jprb,3.4626e-01_jprb,&
&4.0034e-01_jprb,4.5401e-01_jprb,2.9589e+00_jprb/)
kao( :, 4,10, 7) = (/&
&9.6011e-03_jprb,9.1065e-02_jprb,1.6737e-01_jprb,2.3778e-01_jprb,3.0267e-01_jprb,3.6104e-01_jprb,&
&4.1369e-01_jprb,4.6516e-01_jprb,2.7702e+00_jprb/)
kao( :, 5,10, 7) = (/&
&9.1043e-03_jprb,9.5561e-02_jprb,1.7554e-01_jprb,2.4912e-01_jprb,3.1674e-01_jprb,3.7708e-01_jprb,&
&4.2925e-01_jprb,4.7811e-01_jprb,2.6047e+00_jprb/)
kao( :, 1,11, 7) = (/&
&9.6600e-03_jprb,6.8416e-02_jprb,1.2568e-01_jprb,1.7918e-01_jprb,2.2969e-01_jprb,2.7960e-01_jprb,&
&3.2973e-01_jprb,3.7899e-01_jprb,2.8930e+00_jprb/)
kao( :, 2,11, 7) = (/&
&8.9878e-03_jprb,7.1652e-02_jprb,1.3155e-01_jprb,1.8712e-01_jprb,2.3867e-01_jprb,2.8757e-01_jprb,&
&3.3629e-01_jprb,3.8441e-01_jprb,2.6816e+00_jprb/)
kao( :, 3,11, 7) = (/&
&8.4222e-03_jprb,7.5378e-02_jprb,1.3835e-01_jprb,1.9668e-01_jprb,2.5051e-01_jprb,2.9968e-01_jprb,&
&3.4702e-01_jprb,3.9398e-01_jprb,2.4985e+00_jprb/)
kao( :, 4,11, 7) = (/&
&7.9456e-03_jprb,7.9499e-02_jprb,1.4588e-01_jprb,2.0704e-01_jprb,2.6333e-01_jprb,3.1396e-01_jprb,&
&3.6037e-01_jprb,4.0593e-01_jprb,2.3394e+00_jprb/)
kao( :, 5,11, 7) = (/&
&7.5367e-03_jprb,8.3782e-02_jprb,1.5372e-01_jprb,2.1807e-01_jprb,2.7700e-01_jprb,3.2966e-01_jprb,&
&3.7579e-01_jprb,4.1961e-01_jprb,2.2005e+00_jprb/)
kao( :, 1,12, 7) = (/&
&7.9651e-03_jprb,5.8686e-02_jprb,1.0769e-01_jprb,1.5334e-01_jprb,1.9661e-01_jprb,2.3953e-01_jprb,&
&2.8260e-01_jprb,3.2486e-01_jprb,2.4784e+00_jprb/)
kao( :, 2,12, 7) = (/&
&7.4154e-03_jprb,6.1767e-02_jprb,1.1336e-01_jprb,1.6127e-01_jprb,2.0569e-01_jprb,2.4818e-01_jprb,&
&2.9059e-01_jprb,3.3236e-01_jprb,2.2967e+00_jprb/)
kao( :, 3,12, 7) = (/&
&6.9534e-03_jprb,6.5368e-02_jprb,1.1996e-01_jprb,1.7048e-01_jprb,2.1709e-01_jprb,2.5998e-01_jprb,&
&3.0158e-01_jprb,3.4278e-01_jprb,2.1399e+00_jprb/)
kao( :, 4,12, 7) = (/&
&6.5627e-03_jprb,6.9215e-02_jprb,1.2702e-01_jprb,1.8030e-01_jprb,2.2939e-01_jprb,2.7353e-01_jprb,&
&3.1454e-01_jprb,3.5481e-01_jprb,2.0047e+00_jprb/)
kao( :, 5,12, 7) = (/&
&6.2252e-03_jprb,7.3310e-02_jprb,1.3449e-01_jprb,1.9068e-01_jprb,2.4194e-01_jprb,2.8763e-01_jprb,&
&3.2799e-01_jprb,3.6662e-01_jprb,1.8867e+00_jprb/)
kao( :, 1,13, 7) = (/&
&6.5616e-03_jprb,5.0380e-02_jprb,9.2460e-02_jprb,1.3167e-01_jprb,1.6900e-01_jprb,2.0616e-01_jprb,&
&2.4338e-01_jprb,2.7988e-01_jprb,2.2117e+00_jprb/)
kao( :, 2,13, 7) = (/&
&6.1120e-03_jprb,5.3375e-02_jprb,9.7998e-02_jprb,1.3948e-01_jprb,1.7796e-01_jprb,2.1500e-01_jprb,&
&2.5201e-01_jprb,2.8843e-01_jprb,2.0497e+00_jprb/)
kao( :, 3,13, 7) = (/&
&5.7372e-03_jprb,5.6731e-02_jprb,1.0419e-01_jprb,1.4804e-01_jprb,1.8846e-01_jprb,2.2583e-01_jprb,&
&2.6228e-01_jprb,2.9829e-01_jprb,1.9105e+00_jprb/)
kao( :, 4,13, 7) = (/&
&5.4187e-03_jprb,6.0281e-02_jprb,1.1054e-01_jprb,1.5676e-01_jprb,1.9913e-01_jprb,2.3709e-01_jprb,&
&2.7280e-01_jprb,3.0791e-01_jprb,1.7905e+00_jprb/)
kao( :, 5,13, 7) = (/&
&5.1412e-03_jprb,6.3942e-02_jprb,1.1702e-01_jprb,1.6550e-01_jprb,2.0967e-01_jprb,2.4883e-01_jprb,&
&2.8378e-01_jprb,3.1751e-01_jprb,1.6855e+00_jprb/)
kao( :, 1, 1, 8) = (/&
&8.0925e-02_jprb,4.4695e-01_jprb,8.0232e-01_jprb,1.1226e+00_jprb,1.4103e+00_jprb,1.6623e+00_jprb,&
&1.8647e+00_jprb,1.9976e+00_jprb,1.3169e+01_jprb/)
kao( :, 2, 1, 8) = (/&
&7.9475e-02_jprb,4.6155e-01_jprb,8.2577e-01_jprb,1.1515e+00_jprb,1.4434e+00_jprb,1.6972e+00_jprb,&
&1.8967e+00_jprb,2.0110e+00_jprb,1.2516e+01_jprb/)
kao( :, 3, 1, 8) = (/&
&7.9284e-02_jprb,4.7585e-01_jprb,8.4839e-01_jprb,1.1813e+00_jprb,1.4771e+00_jprb,1.7315e+00_jprb,&
&1.9304e+00_jprb,2.0281e+00_jprb,1.1933e+01_jprb/)
kao( :, 4, 1, 8) = (/&
&8.0560e-02_jprb,4.9019e-01_jprb,8.7148e-01_jprb,1.2102e+00_jprb,1.5100e+00_jprb,1.7671e+00_jprb,&
&1.9624e+00_jprb,2.0460e+00_jprb,1.1433e+01_jprb/)
kao( :, 5, 1, 8) = (/&
&8.3397e-02_jprb,5.0455e-01_jprb,8.9392e-01_jprb,1.2384e+00_jprb,1.5426e+00_jprb,1.7995e+00_jprb,&
&1.9927e+00_jprb,2.0655e+00_jprb,1.1063e+01_jprb/)
kao( :, 1, 2, 8) = (/&
&6.6575e-02_jprb,4.3479e-01_jprb,7.7702e-01_jprb,1.0845e+00_jprb,1.3608e+00_jprb,1.6027e+00_jprb,&
&1.7979e+00_jprb,1.9533e+00_jprb,1.1027e+01_jprb/)
kao( :, 2, 2, 8) = (/&
&6.4692e-02_jprb,4.5045e-01_jprb,8.0204e-01_jprb,1.1153e+00_jprb,1.3951e+00_jprb,1.6384e+00_jprb,&
&1.8309e+00_jprb,1.9634e+00_jprb,1.0460e+01_jprb/)
kao( :, 3, 2, 8) = (/&
&6.3712e-02_jprb,4.6604e-01_jprb,8.2695e-01_jprb,1.1467e+00_jprb,1.4311e+00_jprb,1.6740e+00_jprb,&
&1.8639e+00_jprb,1.9755e+00_jprb,9.9574e+00_jprb/)
kao( :, 4, 2, 8) = (/&
&6.3793e-02_jprb,4.8171e-01_jprb,8.5176e-01_jprb,1.1782e+00_jprb,1.4648e+00_jprb,1.7096e+00_jprb,&
&1.8945e+00_jprb,1.9900e+00_jprb,9.5122e+00_jprb/)
kao( :, 5, 2, 8) = (/&
&6.5076e-02_jprb,4.9750e-01_jprb,8.7656e-01_jprb,1.2084e+00_jprb,1.4992e+00_jprb,1.7428e+00_jprb,&
&1.9259e+00_jprb,2.0066e+00_jprb,9.1382e+00_jprb/)
kao( :, 1, 3, 8) = (/&
&5.5145e-02_jprb,4.1677e-01_jprb,7.4511e-01_jprb,1.0407e+00_jprb,1.3075e+00_jprb,1.5427e+00_jprb,&
&1.7389e+00_jprb,1.9204e+00_jprb,9.3514e+00_jprb/)
kao( :, 2, 3, 8) = (/&
&5.2833e-02_jprb,4.3270e-01_jprb,7.7006e-01_jprb,1.0719e+00_jprb,1.3419e+00_jprb,1.5776e+00_jprb,&
&1.7672e+00_jprb,1.9272e+00_jprb,8.8440e+00_jprb/)
kao( :, 3, 3, 8) = (/&
&5.1113e-02_jprb,4.4882e-01_jprb,7.9562e-01_jprb,1.1025e+00_jprb,1.3760e+00_jprb,1.6125e+00_jprb,&
&1.7982e+00_jprb,1.9366e+00_jprb,8.3935e+00_jprb/)
kao( :, 4, 3, 8) = (/&
&5.0028e-02_jprb,4.6513e-01_jprb,8.2062e-01_jprb,1.1341e+00_jprb,1.4094e+00_jprb,1.6457e+00_jprb,&
&1.8296e+00_jprb,1.9485e+00_jprb,7.9906e+00_jprb/)
kao( :, 5, 3, 8) = (/&
&4.9686e-02_jprb,4.8163e-01_jprb,8.4610e-01_jprb,1.1641e+00_jprb,1.4433e+00_jprb,1.6796e+00_jprb,&
&1.8613e+00_jprb,1.9622e+00_jprb,7.6298e+00_jprb/)
kao( :, 1, 4, 8) = (/&
&4.6588e-02_jprb,3.9692e-01_jprb,7.1203e-01_jprb,9.9677e-01_jprb,1.2538e+00_jprb,1.4779e+00_jprb,&
&1.6775e+00_jprb,1.8726e+00_jprb,7.9787e+00_jprb/)
kao( :, 2, 4, 8) = (/&
&4.4258e-02_jprb,4.1229e-01_jprb,7.3599e-01_jprb,1.0269e+00_jprb,1.2877e+00_jprb,1.5133e+00_jprb,&
&1.7010e+00_jprb,1.8766e+00_jprb,7.5234e+00_jprb/)
kao( :, 3, 4, 8) = (/&
&4.2368e-02_jprb,4.2843e-01_jprb,7.6079e-01_jprb,1.0562e+00_jprb,1.3204e+00_jprb,1.5488e+00_jprb,&
&1.7282e+00_jprb,1.8838e+00_jprb,7.1193e+00_jprb/)
kao( :, 4, 4, 8) = (/&
&4.0943e-02_jprb,4.4462e-01_jprb,7.8470e-01_jprb,1.0862e+00_jprb,1.3538e+00_jprb,1.5826e+00_jprb,&
&1.7585e+00_jprb,1.8945e+00_jprb,6.7587e+00_jprb/)
kao( :, 5, 4, 8) = (/&
&4.0040e-02_jprb,4.6133e-01_jprb,8.0984e-01_jprb,1.1157e+00_jprb,1.3860e+00_jprb,1.6174e+00_jprb,&
&1.7900e+00_jprb,1.9072e+00_jprb,6.4359e+00_jprb/)
kao( :, 1, 5, 8) = (/&
&3.9526e-02_jprb,3.7682e-01_jprb,6.7689e-01_jprb,9.4443e-01_jprb,1.1824e+00_jprb,1.3941e+00_jprb,&
&1.5967e+00_jprb,1.7951e+00_jprb,6.8177e+00_jprb/)
kao( :, 2, 5, 8) = (/&
&3.7399e-02_jprb,3.9138e-01_jprb,7.0025e-01_jprb,9.7513e-01_jprb,1.2184e+00_jprb,1.4257e+00_jprb,&
&1.6138e+00_jprb,1.7967e+00_jprb,6.4101e+00_jprb/)
kao( :, 3, 5, 8) = (/&
&3.5621e-02_jprb,4.0679e-01_jprb,7.2414e-01_jprb,1.0055e+00_jprb,1.2524e+00_jprb,1.4609e+00_jprb,&
&1.6366e+00_jprb,1.8029e+00_jprb,6.0506e+00_jprb/)
kao( :, 4, 5, 8) = (/&
&3.4188e-02_jprb,4.2215e-01_jprb,7.4791e-01_jprb,1.0353e+00_jprb,1.2879e+00_jprb,1.4982e+00_jprb,&
&1.6647e+00_jprb,1.8130e+00_jprb,5.7295e+00_jprb/)
kao( :, 5, 5, 8) = (/&
&3.3152e-02_jprb,4.3822e-01_jprb,7.7182e-01_jprb,1.0659e+00_jprb,1.3217e+00_jprb,1.5355e+00_jprb,&
&1.6945e+00_jprb,1.8268e+00_jprb,5.4423e+00_jprb/)
kao( :, 1, 6, 8) = (/&
&3.3649e-02_jprb,3.5246e-01_jprb,6.2833e-01_jprb,8.7232e-01_jprb,1.0890e+00_jprb,1.2936e+00_jprb,&
&1.4963e+00_jprb,1.6916e+00_jprb,5.8468e+00_jprb/)
kao( :, 2, 6, 8) = (/&
&3.1717e-02_jprb,3.6739e-01_jprb,6.5289e-01_jprb,9.0324e-01_jprb,1.1228e+00_jprb,1.3194e+00_jprb,&
&1.5082e+00_jprb,1.6913e+00_jprb,5.4809e+00_jprb/)
kao( :, 3, 6, 8) = (/&
&3.0089e-02_jprb,3.8258e-01_jprb,6.7739e-01_jprb,9.3533e-01_jprb,1.1590e+00_jprb,1.3502e+00_jprb,&
&1.5266e+00_jprb,1.6967e+00_jprb,5.1581e+00_jprb/)
kao( :, 4, 6, 8) = (/&
&2.8750e-02_jprb,3.9797e-01_jprb,7.0274e-01_jprb,9.6682e-01_jprb,1.1958e+00_jprb,1.3860e+00_jprb,&
&1.5502e+00_jprb,1.7067e+00_jprb,4.8739e+00_jprb/)
kao( :, 5, 6, 8) = (/&
&2.7719e-02_jprb,4.1340e-01_jprb,7.2752e-01_jprb,9.9958e-01_jprb,1.2327e+00_jprb,1.4235e+00_jprb,&
&1.5795e+00_jprb,1.7225e+00_jprb,4.6250e+00_jprb/)
kao( :, 1, 7, 8) = (/&
&2.8686e-02_jprb,3.2127e-01_jprb,5.6887e-01_jprb,7.8697e-01_jprb,9.8824e-01_jprb,1.1850e+00_jprb,&
&1.3805e+00_jprb,1.5678e+00_jprb,5.0771e+00_jprb/)
kao( :, 2, 7, 8) = (/&
&2.6938e-02_jprb,3.3637e-01_jprb,5.9372e-01_jprb,8.1756e-01_jprb,1.0158e+00_jprb,1.2031e+00_jprb,&
&1.3885e+00_jprb,1.5659e+00_jprb,4.7449e+00_jprb/)
kao( :, 3, 7, 8) = (/&
&2.5461e-02_jprb,3.5175e-01_jprb,6.1823e-01_jprb,8.4914e-01_jprb,1.0491e+00_jprb,1.2297e+00_jprb,&
&1.4035e+00_jprb,1.5709e+00_jprb,4.4560e+00_jprb/)
kao( :, 4, 7, 8) = (/&
&2.4234e-02_jprb,3.6782e-01_jprb,6.4422e-01_jprb,8.8204e-01_jprb,1.0858e+00_jprb,1.2613e+00_jprb,&
&1.4250e+00_jprb,1.5825e+00_jprb,4.2060e+00_jprb/)
kao( :, 5, 7, 8) = (/&
&2.3263e-02_jprb,3.8390e-01_jprb,6.7021e-01_jprb,9.1556e-01_jprb,1.1251e+00_jprb,1.2988e+00_jprb,&
&1.4532e+00_jprb,1.6007e+00_jprb,3.9900e+00_jprb/)
kao( :, 1, 8, 8) = (/&
&2.4476e-02_jprb,2.8592e-01_jprb,5.0420e-01_jprb,6.9822e-01_jprb,8.8452e-01_jprb,1.0702e+00_jprb,&
&1.2531e+00_jprb,1.4283e+00_jprb,4.5096e+00_jprb/)
kao( :, 2, 8, 8) = (/&
&2.2902e-02_jprb,3.0083e-01_jprb,5.2768e-01_jprb,7.2503e-01_jprb,9.0657e-01_jprb,1.0833e+00_jprb,&
&1.2584e+00_jprb,1.4254e+00_jprb,4.2037e+00_jprb/)
kao( :, 3, 8, 8) = (/&
&2.1570e-02_jprb,3.1592e-01_jprb,5.5240e-01_jprb,7.5563e-01_jprb,9.3505e-01_jprb,1.1044e+00_jprb,&
&1.2718e+00_jprb,1.4312e+00_jprb,3.9432e+00_jprb/)
kao( :, 4, 8, 8) = (/&
&2.0460e-02_jprb,3.3184e-01_jprb,5.7760e-01_jprb,7.8855e-01_jprb,9.6959e-01_jprb,1.1343e+00_jprb,&
&1.2935e+00_jprb,1.4455e+00_jprb,3.7209e+00_jprb/)
kao( :, 5, 8, 8) = (/&
&1.9571e-02_jprb,3.4825e-01_jprb,6.0453e-01_jprb,8.2286e-01_jprb,1.0085e+00_jprb,1.1703e+00_jprb,&
&1.3222e+00_jprb,1.4674e+00_jprb,3.5292e+00_jprb/)
kao( :, 1, 9, 8) = (/&
&2.0914e-02_jprb,2.4921e-01_jprb,4.3781e-01_jprb,6.1146e-01_jprb,7.8268e-01_jprb,9.5318e-01_jprb,&
&1.1204e+00_jprb,1.2813e+00_jprb,3.9890e+00_jprb/)
kao( :, 2, 9, 8) = (/&
&1.9500e-02_jprb,2.6300e-01_jprb,4.5963e-01_jprb,6.3281e-01_jprb,7.9816e-01_jprb,9.6251e-01_jprb,&
&1.1241e+00_jprb,1.2781e+00_jprb,3.7129e+00_jprb/)
kao( :, 3, 9, 8) = (/&
&1.8305e-02_jprb,2.7783e-01_jprb,4.8302e-01_jprb,6.5998e-01_jprb,8.2260e-01_jprb,9.8070e-01_jprb,&
&1.1371e+00_jprb,1.2855e+00_jprb,3.4817e+00_jprb/)
kao( :, 4, 9, 8) = (/&
&1.7310e-02_jprb,2.9315e-01_jprb,5.0848e-01_jprb,6.9210e-01_jprb,8.5443e-01_jprb,1.0078e+00_jprb,&
&1.1591e+00_jprb,1.3024e+00_jprb,3.2848e+00_jprb/)
kao( :, 5, 9, 8) = (/&
&1.6510e-02_jprb,3.0981e-01_jprb,5.3550e-01_jprb,7.2742e-01_jprb,8.9223e-01_jprb,1.0429e+00_jprb,&
&1.1888e+00_jprb,1.3273e+00_jprb,3.1158e+00_jprb/)
kao( :, 1,10, 8) = (/&
&1.7793e-02_jprb,2.1412e-01_jprb,3.7675e-01_jprb,5.3142e-01_jprb,6.8591e-01_jprb,8.3908e-01_jprb,&
&9.8911e-01_jprb,1.1340e+00_jprb,3.5109e+00_jprb/)
kao( :, 2,10, 8) = (/&
&1.6546e-02_jprb,2.2684e-01_jprb,3.9518e-01_jprb,5.4826e-01_jprb,6.9777e-01_jprb,8.4666e-01_jprb,&
&9.9261e-01_jprb,1.1322e+00_jprb,3.2650e+00_jprb/)
kao( :, 3,10, 8) = (/&
&1.5496e-02_jprb,2.4055e-01_jprb,4.1757e-01_jprb,5.7218e-01_jprb,7.1874e-01_jprb,8.6407e-01_jprb,&
&1.0067e+00_jprb,1.1422e+00_jprb,3.0604e+00_jprb/)
kao( :, 4,10, 8) = (/&
&1.4625e-02_jprb,2.5576e-01_jprb,4.4224e-01_jprb,6.0209e-01_jprb,7.4840e-01_jprb,8.9005e-01_jprb,&
&1.0298e+00_jprb,1.1620e+00_jprb,2.8873e+00_jprb/)
kao( :, 5,10, 8) = (/&
&1.3927e-02_jprb,2.7189e-01_jprb,4.6913e-01_jprb,6.3661e-01_jprb,7.8430e-01_jprb,9.2340e-01_jprb,&
&1.0602e+00_jprb,1.1893e+00_jprb,2.7412e+00_jprb/)
kao( :, 1,11, 8) = (/&
&1.4634e-02_jprb,1.8646e-01_jprb,3.2761e-01_jprb,4.6309e-01_jprb,5.9849e-01_jprb,7.3245e-01_jprb,&
&8.6367e-01_jprb,9.9041e-01_jprb,2.9771e+00_jprb/)
kao( :, 2,11, 8) = (/&
&1.3624e-02_jprb,1.9847e-01_jprb,3.4526e-01_jprb,4.8008e-01_jprb,6.1254e-01_jprb,7.4424e-01_jprb,&
&8.7321e-01_jprb,9.9642e-01_jprb,2.7768e+00_jprb/)
kao( :, 3,11, 8) = (/&
&1.2781e-02_jprb,2.1218e-01_jprb,3.6739e-01_jprb,5.0421e-01_jprb,6.3507e-01_jprb,7.6517e-01_jprb,&
&8.9263e-01_jprb,1.0135e+00_jprb,2.6101e+00_jprb/)
kao( :, 4,11, 8) = (/&
&1.2094e-02_jprb,2.2714e-01_jprb,3.9240e-01_jprb,5.3424e-01_jprb,6.6566e-01_jprb,7.9378e-01_jprb,&
&9.1970e-01_jprb,1.0385e+00_jprb,2.4710e+00_jprb/)
kao( :, 5,11, 8) = (/&
&1.1565e-02_jprb,2.4340e-01_jprb,4.1903e-01_jprb,5.6803e-01_jprb,7.0132e-01_jprb,8.2803e-01_jprb,&
&9.5252e-01_jprb,1.0696e+00_jprb,2.3570e+00_jprb/)
kao( :, 1,12, 8) = (/&
&1.2066e-02_jprb,1.6101e-01_jprb,2.8340e-01_jprb,4.0165e-01_jprb,5.1974e-01_jprb,6.3658e-01_jprb,&
&7.5093e-01_jprb,8.6137e-01_jprb,2.5621e+00_jprb/)
kao( :, 2,12, 8) = (/&
&1.1251e-02_jprb,1.7279e-01_jprb,3.0073e-01_jprb,4.1913e-01_jprb,5.3610e-01_jprb,6.5212e-01_jprb,&
&7.6558e-01_jprb,8.7414e-01_jprb,2.3949e+00_jprb/)
kao( :, 3,12, 8) = (/&
&1.0577e-02_jprb,1.8625e-01_jprb,3.2218e-01_jprb,4.4327e-01_jprb,5.5974e-01_jprb,6.7543e-01_jprb,&
&7.8860e-01_jprb,8.9593e-01_jprb,2.2565e+00_jprb/)
kao( :, 4,12, 8) = (/&
&1.0040e-02_jprb,2.0090e-01_jprb,3.4668e-01_jprb,4.7237e-01_jprb,5.8984e-01_jprb,7.0511e-01_jprb,&
&8.1812e-01_jprb,9.2463e-01_jprb,2.1449e+00_jprb/)
kao( :, 5,12, 8) = (/&
&9.6497e-03_jprb,2.1689e-01_jprb,3.7279e-01_jprb,5.0486e-01_jprb,6.2430e-01_jprb,7.3876e-01_jprb,&
&8.5101e-01_jprb,9.5619e-01_jprb,2.0655e+00_jprb/)
kao( :, 1,13, 8) = (/&
&9.9585e-03_jprb,1.3861e-01_jprb,2.4453e-01_jprb,3.4735e-01_jprb,4.5003e-01_jprb,5.5145e-01_jprb,&
&6.5075e-01_jprb,7.4674e-01_jprb,2.2898e+00_jprb/)
kao( :, 2,13, 8) = (/&
&9.2992e-03_jprb,1.5005e-01_jprb,2.6138e-01_jprb,3.6503e-01_jprb,4.6776e-01_jprb,5.6948e-01_jprb,&
&6.6893e-01_jprb,7.6408e-01_jprb,2.1410e+00_jprb/)
kao( :, 3,13, 8) = (/&
&8.7626e-03_jprb,1.6301e-01_jprb,2.8187e-01_jprb,3.8870e-01_jprb,4.9199e-01_jprb,5.9459e-01_jprb,&
&6.9480e-01_jprb,7.8975e-01_jprb,2.0213e+00_jprb/)
kao( :, 4,13, 8) = (/&
&8.3523e-03_jprb,1.7715e-01_jprb,3.0539e-01_jprb,4.1632e-01_jprb,5.2068e-01_jprb,6.2370e-01_jprb,&
&7.2425e-01_jprb,8.1879e-01_jprb,1.9340e+00_jprb/)
kao( :, 5,13, 8) = (/&
&8.0561e-03_jprb,1.9260e-01_jprb,3.3012e-01_jprb,4.4598e-01_jprb,5.5239e-01_jprb,6.5539e-01_jprb,&
&7.5612e-01_jprb,8.5015e-01_jprb,1.8746e+00_jprb/)


!     -----------------------------------------------------------------
RETURN
END SUBROUTINE rrtm_kgb15_a1