!-------------------------------------- LICENCE BEGIN ------------------------------------
!Environment Canada - Atmospheric Science and Technology License/Disclaimer,
! version 3; Last Modified: May 7, 2008.
!This is free but copyrighted software; you can use/redistribute/modify it under the terms
!of the Environment Canada - Atmospheric Science and Technology License/Disclaimer
!version 3 or (at your option) any later version that should be found at:
!http://collaboration.cmc.ec.gc.ca/science/rpn.comm/license.html
!
!This software is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY;
!without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
!See the above mentioned License/Disclaimer for more details.
!You should have received a copy of the License/Disclaimer along with this software;
!if not, you can write to: EC-RPN COMM Group, 2121 TransCanada, suite 500, Dorval (Quebec),
!CANADA, H9P 1J3; or send e-mail to service.rpn@ec.gc.ca
!-------------------------------------- LICENCE END --------------------------------------
***S/P CKDLW - SPECTRAL SHORTWAVE CHARACTERISTICS
*
#include "phy_macros_f.h"
block data ckdsw
*
#include "impnone.cdk"
*
*Author
*
* J. Li, M. Lazare, CCCMA, rt code for gcm4
* (Ref: J. Li, H. W. Barker, 2005:
* JAS Vol. 62, no. 2, pp. 286\226309)
* P. Vaillancourt, D. Talbot, RPN/CMC;
* adapted for CMC/RPN physics (May 2006)
*Revisions
*
* 001
*
*Object
*
* Initializes longwave spectral characteristics
*
*Arguments
*
* None
*
*Implicites
*
#include "bands.cdk"
#include "bandsh.cdk"
*
**
integer i, j, k
c
c----------------------------------------------------------------------
c spectral region: 14500-50000 cm^-1. gas: h2o, o2
c k in unit cm^2 / gram for all data.
c note: gw = gw * solar energy for all solar bands
c cs1o2gh3 for o2 absorptance coefficient at 41200 - 50000 cm^-1
c for herzberg band. the schuman-runge band not included
c cs1o21 for o2 at 25000 - 14500 cm^-1 li 2003
c----------------------------------------------------------------------
c
data gws1 / 330.25949, 187.11478, 73.04582, 16.02722, 9.70782,
1 5.54072 /
data cs1o3 / 37.31382, 4.28315, 4.05037, 306.99603, 3410.00830,
1 19933.67188 /
data cs1o21 / 0.511e-04 /
data gws1gh / 2.78380, 2.78716, 1.32790 /
data cs1o3gh / 82530.03125, 129469.96875, 47069.96875 /
data cs1o2gh3 / 0.792006e-01 /
c
c----------------------------------------------------------------------
c spectral region: 8200-14500 cm^-1. gas: h2o, o2, o3
c----------------------------------------------------------------------
c
data gws2 / 291.33401, 62.98400, 53.34600, 21.83800 /
data ( cs2o3(i), i = 1, 4) / .2185e+01, .1517e+01, .1684e+01,
1 .2268e+01 /
data ((( cs2h2o(k,j,i), k = 1, 5), j = 1, 18), i = 1, 4) /
1 .5727e-05, .7913e-08,-.2870e-10, .5559e-13,-.3821e-15,
1 .8450e-05, .1153e-07,-.4306e-10, .7787e-13,-.7543e-15,
1 .1247e-04, .1684e-07,-.6614e-10, .1037e-12,-.1100e-14,
1 .1839e-04, .2444e-07,-.9416e-10, .1830e-12,-.2601e-14,
1 .2714e-04, .3553e-07,-.1543e-09, .3050e-12,-.1829e-14,
1 .4005e-04, .5192e-07,-.2335e-09, .4800e-12,-.3429e-14,
1 .5909e-04, .7574e-07,-.3536e-09, .8039e-12,-.5700e-14,
1 .8719e-04, .1116e-06,-.5451e-09, .1131e-11,-.7054e-14,
1 .1287e-03, .1631e-06,-.8644e-09, .1835e-11,-.5946e-14,
1 .1896e-03, .2405e-06,-.1314e-08, .2609e-11,-.9643e-14,
1 .2790e-03, .3566e-06,-.2043e-08, .3507e-11,-.3798e-14,
1 .4088e-03, .5305e-06,-.3089e-08, .4182e-11, .3468e-15,
1 .5956e-03, .7789e-06,-.4303e-08, .5732e-11,-.4682e-13,
1 .8593e-03, .1129e-05,-.6199e-08, .8142e-11,-.6072e-13,
1 .1221e-02, .1632e-05,-.8534e-08, .8854e-11,-.5919e-13,
1 .1703e-02, .2339e-05,-.1107e-07, .1116e-10,-.8467e-13,
1 .2318e-02, .3352e-05,-.1481e-07, .1337e-10,-.4540e-13,
1 .3071e-02, .4751e-05,-.2004e-07, .5499e-11, .1391e-12,
2 .1812e-03, .5011e-06,-.8218e-09, .2032e-11,-.2913e-14,
2 .2596e-03, .6953e-06,-.1514e-08, .2176e-11, .3824e-13,
2 .3718e-03, .9660e-06,-.2442e-08, .1820e-11, .7881e-13,
2 .5323e-03, .1350e-05,-.3699e-08,-.4671e-12, .1219e-12,
2 .7617e-03, .1879e-05,-.5219e-08,-.3813e-11, .1363e-12,
2 .1089e-02, .2593e-05,-.7511e-08,-.7619e-11, .1846e-12,
2 .1556e-02, .3586e-05,-.1149e-07,-.1861e-10, .3683e-12,
2 .2217e-02, .4926e-05,-.1452e-07,-.3508e-10, .1626e-12,
2 .3151e-02, .6624e-05,-.1710e-07,-.4111e-10,-.3080e-12,
2 .4466e-02, .8753e-05,-.2256e-07,-.3110e-10,-.6199e-12,
2 .6302e-02, .1146e-04,-.3460e-07,-.1332e-10,-.1316e-12,
2 .8826e-02, .1518e-04,-.4505e-07,-.1953e-10,-.8579e-13,
2 .1224e-01, .2030e-04,-.5950e-07,-.2591e-10, .3450e-12,
2 .1675e-01, .2818e-04,-.8032e-07,-.1297e-09, .1356e-11,
2 .2259e-01, .3962e-04,-.1029e-06,-.3474e-09, .1504e-11,
2 .2984e-01, .5403e-04,-.1072e-06,-.5094e-09,-.1288e-11,
2 .3848e-01, .7229e-04,-.1133e-06,-.7213e-09,-.3025e-11,
2 .4843e-01, .9131e-04,-.1408e-06,-.5242e-09,-.1241e-11,
3 .5547e-02, .4158e-04, .3280e-07,-.2032e-09, .2258e-11,
3 .6413e-02, .4296e-04, .2637e-07,-.1630e-09, .1830e-11,
3 .7564e-02, .4486e-04, .1419e-07,-.1373e-09, .2123e-11,
3 .9084e-02, .4738e-04,-.1630e-08,-.9672e-10, .3104e-11,
3 .1109e-01, .5067e-04,-.1787e-07,-.8095e-10, .4110e-11,
3 .1377e-01, .5523e-04,-.1690e-07,-.1512e-09, .1471e-11,
3 .1734e-01, .6124e-04,-.2382e-07,-.2526e-09, .5236e-13,
3 .2213e-01, .6899e-04,-.3343e-07,-.4029e-09,-.1248e-11,
3 .2858e-01, .7778e-04,-.5925e-07,-.4614e-09,-.8470e-12,
3 .3720e-01, .8884e-04,-.8387e-07,-.6317e-09,-.1760e-11,
3 .4869e-01, .1016e-03,-.1577e-06,-.7254e-09, .4759e-11,
3 .6377e-01, .1176e-03,-.1994e-06,-.9033e-09, .6915e-11,
3 .8323e-01, .1374e-03,-.1734e-06,-.1207e-08,-.3134e-11,
3 .1079e+00, .1582e-03,-.1595e-06,-.8371e-09,-.1246e-10,
3 .1386e+00, .1846e-03,-.2601e-06,-.6825e-10,-.2876e-11,
3 .1758e+00, .2208e-03,-.3373e-06, .1794e-09,-.8184e-11,
3 .2194e+00, .2561e-03,-.5008e-06, .1152e-08,-.2540e-13,
3 .2687e+00, .3031e-03,-.6058e-06, .1136e-08,-.2361e-10,
4 .2916e+00, .1904e-02, .1167e-05,-.1007e-07, .1006e-10,
4 .2971e+00, .1880e-02, .1156e-05,-.9691e-08, .1463e-10,
4 .3052e+00, .1853e-02, .1207e-05,-.9447e-08,-.6028e-12,
4 .3169e+00, .1820e-02, .1175e-05,-.8540e-08, .5159e-11,
4 .3333e+00, .1787e-02, .1203e-05,-.9259e-08,-.1682e-11,
4 .3564e+00, .1746e-02, .1460e-05,-.8860e-08,-.5574e-10,
4 .3892e+00, .1703e-02, .1277e-05,-.7849e-08,-.5692e-10,
4 .4342e+00, .1689e-02, .4175e-06,-.1098e-07, .4219e-10,
4 .4926e+00, .1672e-02, .1925e-06,-.1304e-07, .4876e-10,
4 .5680e+00, .1621e-02, .3194e-07,-.9251e-08, .2122e-10,
4 .6644e+00, .1556e-02,-.4294e-07,-.6425e-08,-.2252e-10,
4 .7851e+00, .1495e-02,-.2301e-06,-.4893e-08,-.9324e-10,
4 .9304e+00, .1395e-02, .6525e-07, .9691e-08,-.2604e-09,
4 .1099e+01, .1363e-02,-.1218e-05, .9560e-08,-.1188e-09,
4 .1281e+01, .1346e-02,-.1086e-05, .3036e-08,-.1302e-09,
4 .1477e+01, .1293e-02,-.2185e-05, .1361e-08, .4658e-10,
4 .1675e+01, .1263e-02,-.1153e-05,-.6468e-08,-.9134e-10,
4 .1877e+01, .1182e-02,-.1615e-05,-.4820e-09, .7266e-10 /
data ((( cs2o2(k,j,i), k = 1, 5), j = 1, 18), i = 1, 2) /
1 .3214e-07, .1096e-09,-.3452e-12,-.9474e-15, .1212e-16,
1 .4547e-07, .1549e-09,-.4458e-12,-.1710e-14, .1636e-16,
1 .6451e-07, .2141e-09,-.6686e-12,-.1753e-14, .4046e-16,
1 .9148e-07, .2994e-09,-.7666e-12,-.2964e-14, .2290e-16,
1 .1291e-06, .4214e-09,-.4340e-12,-.5534e-14,-.6547e-16,
1 .1826e-06, .5775e-09,-.4514e-12,-.8455e-14,-.8933e-16,
1 .2577e-06, .7778e-09, .1163e-12,-.1062e-13,-.2128e-15,
1 .3647e-06, .9986e-09,-.5075e-12,-.4184e-14,-.1315e-15,
1 .5161e-06, .1342e-08,-.1859e-11,-.5709e-14, .1397e-15,
1 .7339e-06, .1777e-08,-.2617e-11,-.2611e-14, .2048e-15,
1 .1044e-05, .2394e-08,-.2534e-11,-.2946e-14,-.1257e-16,
1 .1486e-05, .3198e-08, .9352e-13, .9540e-14,-.7692e-15,
1 .2129e-05, .4310e-08, .2237e-13, .3356e-13,-.1033e-14,
1 .3067e-05, .5636e-08,-.1386e-10, .1004e-12, .7494e-15,
1 .4422e-05, .7600e-08,-.2434e-10, .1677e-12, .6683e-15,
1 .6379e-05, .1039e-07,-.4778e-10, .2399e-12, .1082e-14,
1 .9118e-05, .1456e-07,-.6065e-10, .2221e-12,-.2072e-14,
1 .1297e-04, .2085e-07,-.1135e-09, .2214e-12, .1963e-14,
2 .1314e-08, .9760e-12, .8168e-13, .6512e-15,-.2238e-16,
2 .1686e-08,-.3646e-11, .2078e-12, .1897e-14,-.2439e-16,
2 .2586e-08, .5144e-11,-.3531e-12, .2446e-16, .7444e-16,
2 .2835e-08, .1092e-10, .6488e-12,-.9216e-15,-.7964e-16,
2 .7028e-08, .9956e-11,-.1326e-11,-.2252e-14, .1800e-15,
2 .9576e-08, .5140e-10,-.1396e-11,-.7284e-14, .2245e-15,
2 .1471e-07, .3408e-11,-.8488e-12, .3609e-14, .1276e-15,
2 .2307e-07, .1126e-09,-.3998e-11,-.1265e-13, .7476e-15,
2 .3514e-07, .1715e-09,-.4584e-11,-.1617e-13, .7056e-15,
2 .4404e-07, .3456e-09,-.1496e-11,-.3771e-13, .1827e-15,
2 .5772e-07, .6428e-09, .8844e-11,-.8340e-13,-.1589e-14,
2 .7356e-07, .5488e-09, .7944e-11,-.4340e-13,-.2486e-15,
2 .1247e-06, .7840e-09,-.6232e-11,-.6144e-13, .2092e-14,
2 .1674e-06, .1256e-08, .2241e-10,-.1350e-12,-.3142e-14,
2 .2637e-06, .8356e-09,-.4084e-10,-.1284e-12, .7640e-14,
2 .2975e-06, .9760e-09,-.6176e-10,-.1859e-12, .1374e-13,
2 .3092e-06, .3456e-08, .6784e-10,-.3132e-12,-.9412e-14,
2 .5828e-06, .5524e-08,-.2897e-10,-.1702e-12, .3144e-14 /
c
data gws2gh / 4.38400, 3.94800, .30700, .08600 /
data (( cs2h2ogh(k,j), k = 1, 5), j = 1, 28) /
5 .3219e+02,-.7035e-02, .5768e-04,-.4975e-06, .1310e-08,
5 .3219e+02,-.7034e-02, .5773e-04,-.4981e-06, .1309e-08,
5 .3219e+02,-.7032e-02, .5766e-04,-.4985e-06, .1322e-08,
5 .3219e+02,-.7032e-02, .5774e-04,-.4980e-06, .1303e-08,
5 .3219e+02,-.7031e-02, .5766e-04,-.4979e-06, .1316e-08,
5 .3219e+02,-.7027e-02, .5775e-04,-.4980e-06, .1298e-08,
5 .3219e+02,-.7021e-02, .5762e-04,-.4975e-06, .1306e-08,
5 .3219e+02,-.7007e-02, .5760e-04,-.4964e-06, .1288e-08,
5 .3219e+02,-.6979e-02, .5745e-04,-.4947e-06, .1269e-08,
5 .3217e+02,-.6926e-02, .5686e-04,-.4910e-06, .1287e-08,
5 .3212e+02,-.6725e-02, .5586e-04,-.4840e-06, .1227e-08,
5 .3208e+02,-.6588e-02, .5516e-04,-.4807e-06, .1221e-08,
5 .3203e+02,-.6416e-02, .5448e-04,-.4763e-06, .1202e-08,
5 .3195e+02,-.6215e-02, .5359e-04,-.4679e-06, .1130e-08,
5 .3184e+02,-.5987e-02, .5169e-04,-.4484e-06, .1101e-08,
5 .3169e+02,-.5687e-02, .4792e-04,-.4268e-06, .1274e-08,
5 .3148e+02,-.5341e-02, .4536e-04,-.3987e-06, .1130e-08,
5 .3120e+02,-.5072e-02, .4504e-04,-.3405e-06, .4385e-09,
5 .3082e+02,-.4734e-02, .4023e-04,-.2752e-06, .1470e-09,
5 .3033e+02,-.4165e-02, .3385e-04,-.2314e-06, .1184e-10,
5 .2969e+02,-.3520e-02, .2718e-04,-.1814e-06,-.1465e-09,
5 .2890e+02,-.2987e-02, .2116e-04,-.1337e-06,-.2584e-10,
5 .2789e+02,-.2448e-02, .1409e-04,-.1685e-06, .8043e-09,
5 .2669e+02,-.2465e-02, .1763e-04,-.1577e-06, .1860e-09,
5 .2530e+02,-.2808e-02, .1733e-04,-.1291e-06, .1692e-09,
5 .2372e+02,-.3219e-02, .2400e-04,-.1230e-06,-.6400e-09,
5 .2201e+02,-.3839e-02, .2112e-04,-.9221e-07,-.9607e-11,
5 .2020e+02,-.4393e-02, .2570e-04,-.1237e-06,-.6172e-09 /
data ((( cs2o2gh(k,j,i), k = 1, 5), j = 1, 28), i = 1, 3) /
6 .2534e-03, .2682e-05, .6224e-08, .9713e-11, .3900e-12,
6 .2534e-03, .2682e-05, .6225e-08, .9713e-11, .3899e-12,
6 .2534e-03, .2682e-05, .6227e-08, .9713e-11, .3898e-12,
6 .2536e-03, .2681e-05, .6232e-08, .9734e-11, .3892e-12,
6 .2539e-03, .2681e-05, .6245e-08, .9778e-11, .3876e-12,
6 .2546e-03, .2678e-05, .6251e-08, .9778e-11, .3886e-12,
6 .2560e-03, .2675e-05, .6262e-08, .9698e-11, .3902e-12,
6 .2588e-03, .2668e-05, .6284e-08, .9540e-11, .3935e-12,
6 .2646e-03, .2652e-05, .6311e-08, .9317e-11, .4035e-12,
6 .2763e-03, .2620e-05, .6450e-08, .9634e-11, .4072e-12,
6 .3205e-03, .2486e-05, .7034e-08, .1581e-10, .3879e-12,
6 .3532e-03, .2375e-05, .7308e-08, .2418e-10, .3959e-12,
6 .4002e-03, .2213e-05, .7531e-08, .4023e-10, .4261e-12,
6 .4674e-03, .2023e-05, .8093e-08, .6237e-10, .3657e-12,
6 .5594e-03, .1903e-05, .1140e-07, .7081e-10,-.1552e-12,
6 .6864e-03, .1912e-05, .1392e-07, .6452e-10,-.3394e-12,
6 .8669e-03, .2013e-05, .1536e-07, .5262e-10,-.3039e-12,
6 .1127e-02, .2129e-05, .1106e-07, .4940e-10, .6748e-12,
6 .1499e-02, .2219e-05, .5355e-08, .4513e-10, .1711e-11,
6 .2025e-02, .2429e-05, .1135e-07, .1094e-10, .3164e-12,
6 .2778e-02, .2537e-05, .1981e-07, .1433e-11,-.1488e-11,
6 .3846e-02, .1850e-05, .2369e-07, .1651e-09,-.2853e-11,
6 .5333e-02, .1444e-05, .1251e-07, .2508e-09,-.1932e-11,
6 .7351e-02, .8431e-06,-.7258e-08, .2651e-09, .7819e-12,
6 .1003e-01, .9900e-06,-.3748e-07, .3186e-10, .6088e-11,
6 .1343e-01, .1380e-05, .8575e-08,-.3203e-09, .2250e-12,
6 .1773e-01,-.1315e-05, .1153e-07,-.5970e-10, .6931e-12,
6 .2259e-01,-.4343e-05, .5704e-07, .2123e-09,-.8021e-11,
7 .1446e+00, .1154e-02, .4288e-06,-.7609e-08,-.4095e-10,
7 .1446e+00, .1154e-02, .4288e-06,-.7611e-08,-.4094e-10,
7 .1446e+00, .1154e-02, .4285e-06,-.7605e-08,-.4087e-10,
7 .1447e+00, .1154e-02, .4282e-06,-.7603e-08,-.4080e-10,
7 .1447e+00, .1154e-02, .4284e-06,-.7602e-08,-.4082e-10,
7 .1447e+00, .1154e-02, .4288e-06,-.7606e-08,-.4093e-10,
7 .1447e+00, .1154e-02, .4293e-06,-.7600e-08,-.4099e-10,
7 .1448e+00, .1154e-02, .4310e-06,-.7597e-08,-.4125e-10,
7 .1449e+00, .1153e-02, .4327e-06,-.7587e-08,-.4145e-10,
7 .1451e+00, .1152e-02, .4374e-06,-.7583e-08,-.4212e-10,
7 .1459e+00, .1149e-02, .4512e-06,-.7645e-08,-.4352e-10,
7 .1464e+00, .1148e-02, .4639e-06,-.7753e-08,-.4495e-10,
7 .1473e+00, .1144e-02, .4855e-06,-.7968e-08,-.4735e-10,
7 .1487e+00, .1138e-02, .5143e-06,-.8306e-08,-.4982e-10,
7 .1507e+00, .1129e-02, .5171e-06,-.8427e-08,-.4663e-10,
7 .1539e+00, .1109e-02, .5067e-06,-.7951e-08,-.4063e-10,
7 .1588e+00, .1078e-02, .5143e-06,-.7148e-08,-.3427e-10,
7 .1658e+00, .1035e-02, .6376e-06,-.6602e-08,-.4582e-10,
7 .1760e+00, .9738e-03, .8113e-06,-.5868e-08,-.5717e-10,
7 .1906e+00, .8877e-03, .8450e-06,-.5023e-08,-.3616e-10,
7 .2109e+00, .7691e-03, .9423e-06,-.1783e-08,-.5308e-10,
7 .2376e+00, .6315e-03, .1032e-05, .3848e-10,-.8310e-10,
7 .2707e+00, .5010e-03, .1865e-06,-.5449e-08, .4747e-10,
7 .3057e+00, .3436e-03, .5605e-06,-.3812e-08,-.3625e-10,
7 .3370e+00, .1751e-03, .1381e-05, .7458e-08,-.2713e-09,
7 .3559e+00, .1121e-03,-.9225e-06, .2911e-08, .9792e-10,
7 .3505e+00, .1067e-03, .4705e-06,-.5564e-08,-.1082e-09,
7 .3253e+00, .8664e-04,-.8188e-06,-.3145e-08, .1218e-09,
8 .3026e+01,-.5643e-02, .4530e-05, .1589e-08, .9835e-10,
8 .3026e+01,-.5643e-02, .4537e-05, .1583e-08, .9716e-10,
8 .3026e+01,-.5642e-02, .4538e-05, .1545e-08, .9709e-10,
8 .3026e+01,-.5642e-02, .4539e-05, .1520e-08, .9684e-10,
8 .3026e+01,-.5642e-02, .4537e-05, .1589e-08, .9710e-10,
8 .3025e+01,-.5642e-02, .4520e-05, .1585e-08, .9949e-10,
8 .3025e+01,-.5641e-02, .4533e-05, .1574e-08, .9609e-10,
8 .3025e+01,-.5639e-02, .4505e-05, .1615e-08, .1000e-09,
8 .3024e+01,-.5635e-02, .4492e-05, .1654e-08, .9907e-10,
8 .3022e+01,-.5626e-02, .4456e-05, .1708e-08, .9894e-10,
8 .3015e+01,-.5595e-02, .4286e-05, .1900e-08, .1066e-09,
8 .3010e+01,-.5573e-02, .4169e-05, .2084e-08, .1109e-09,
8 .3003e+01,-.5539e-02, .3995e-05, .2221e-08, .1165e-09,
8 .2991e+01,-.5490e-02, .3741e-05, .2785e-08, .1268e-09,
8 .2975e+01,-.5418e-02, .3364e-05, .3507e-08, .1439e-09,
8 .2951e+01,-.5306e-02, .2991e-05, .3147e-08, .1315e-09,
8 .2916e+01,-.5141e-02, .2528e-05, .2387e-08, .1005e-09,
8 .2865e+01,-.4907e-02, .1848e-05, .2590e-08, .7710e-10,
8 .2792e+01,-.4578e-02, .9081e-06, .2893e-08, .4496e-10,
8 .2689e+01,-.4127e-02,-.4217e-06, .5231e-08, .4274e-10,
8 .2546e+01,-.3517e-02,-.2308e-05,-.2749e-08, .2130e-09,
8 .2355e+01,-.2767e-02,-.3932e-05,-.1626e-07, .4084e-09,
8 .2111e+01,-.2072e-02,-.8738e-06, .2197e-08,-.1550e-09,
8 .1827e+01,-.1303e-02,-.1590e-05,-.4515e-08,-.1066e-10,
8 .1518e+01,-.6041e-03,-.2937e-05,-.3415e-07, .5588e-09,
8 .1211e+01,-.3898e-03, .3294e-05, .4595e-08,-.5044e-09,
8 .9397e+00,-.2416e-03,-.2158e-05, .2068e-07, .2944e-09,
8 .6996e+00,-.4103e-04, .3979e-06,-.6163e-08,-.5776e-10 /
c
c----------------------------------------------------------------------
c spectral region: 4200-8400 cm^-1. gas: h2o, co2
c----------------------------------------------------------------------
c
data gws3 / 123.85900, 41.88700, 28.17900, 24.61600, 16.62800,
1 7.70600 /
data ((( cs3h2o(k,j,i), k = 1, 5), j = 1, 18), i = 1, 3) /
1 .3858e-05, .2884e-07, .3642e-10,-.8043e-13,-.1691e-15,
1 .5706e-05, .4269e-07, .5011e-10,-.1125e-12, .3809e-15,
1 .8435e-05, .6317e-07, .7567e-10,-.1555e-12, .1956e-15,
1 .1247e-04, .9366e-07, .1147e-09,-.2488e-12,-.4803e-15,
1 .1843e-04, .1388e-06, .1782e-09,-.3930e-12,-.2550e-14,
1 .2724e-04, .2058e-06, .2617e-09,-.6309e-12,-.3455e-14,
1 .4027e-04, .3047e-06, .3496e-09,-.8925e-12, .1810e-14,
1 .5947e-04, .4521e-06, .5241e-09,-.1460e-11, .2135e-14,
1 .8778e-04, .6728e-06, .7749e-09,-.2828e-11, .3686e-14,
1 .1294e-03, .9989e-06, .1177e-08,-.4803e-11, .4044e-14,
1 .1903e-03, .1479e-05, .1798e-08,-.7546e-11, .3381e-14,
1 .2786e-03, .2179e-05, .2719e-08,-.1120e-10, .7252e-14,
1 .4049e-03, .3190e-05, .4365e-08,-.1560e-10,-.1399e-13,
1 .5833e-03, .4626e-05, .6544e-08,-.2409e-10,-.1170e-13,
1 .8302e-03, .6615e-05, .1047e-07,-.3135e-10,-.9919e-13,
1 .1164e-02, .9275e-05, .1520e-07,-.3520e-10,-.6219e-13,
1 .1603e-02, .1274e-04, .2147e-07,-.3699e-10,-.9485e-13,
1 .2161e-02, .1721e-04, .2888e-07,-.5592e-10, .2363e-13,
2 .2303e-03, .1820e-05, .2731e-08,-.6937e-11,-.1267e-13,
2 .3330e-03, .2637e-05, .3408e-08,-.1295e-10, .7886e-13,
2 .4804e-03, .3804e-05, .4947e-08,-.1996e-10, .1356e-12,
2 .6926e-03, .5484e-05, .7617e-08,-.3124e-10, .1399e-12,
2 .9973e-03, .7864e-05, .1199e-07,-.4447e-10, .2910e-13,
2 .1433e-02, .1126e-04, .1890e-07,-.6359e-10,-.1737e-12,
2 .2058e-02, .1599e-04, .2833e-07,-.7171e-10,-.2795e-12,
2 .2951e-02, .2277e-04, .4425e-07,-.1046e-09,-.9795e-12,
2 .4228e-02, .3226e-04, .6357e-07,-.1386e-09,-.1348e-11,
2 .6043e-02, .4536e-04, .8938e-07,-.1408e-09,-.1523e-11,
2 .8615e-02, .6369e-04, .1168e-06,-.1471e-09,-.2396e-12,
2 .1223e-01, .8879e-04, .1531e-06,-.1406e-09, .9785e-12,
2 .1721e-01, .1232e-03, .2106e-06,-.1554e-09, .6418e-12,
2 .2399e-01, .1703e-03, .2871e-06,-.3406e-09, .5010e-13,
2 .3298e-01, .2312e-03, .4200e-06,-.3225e-09,-.3755e-11,
2 .4462e-01, .3077e-03, .5783e-06,-.6546e-10,-.6252e-11,
2 .5913e-01, .3975e-03, .7055e-06, .5780e-09,-.2969e-11,
2 .7626e-01, .5010e-03, .8009e-06, .1230e-08, .7085e-11,
3 .2583e-02, .1832e-04,-.2501e-08,-.2202e-09, .6157e-12,
3 .3627e-02, .2556e-04, .4037e-08,-.3041e-09,-.2888e-13,
3 .5093e-02, .3545e-04, .1956e-07,-.3927e-09,-.1911e-11,
3 .7159e-02, .4904e-04, .4169e-07,-.4998e-09,-.4488e-11,
3 .1008e-01, .6732e-04, .6144e-07,-.5532e-09,-.6532e-11,
3 .1423e-01, .9261e-04, .8011e-07,-.5975e-09,-.7439e-11,
3 .2012e-01, .1269e-03, .8453e-07,-.5576e-09,-.5439e-11,
3 .2850e-01, .1748e-03, .8595e-07,-.5583e-09,-.2822e-11,
3 .4037e-01, .2424e-03, .8442e-07,-.8117e-09, .3662e-12,
3 .5720e-01, .3355e-03, .5807e-07,-.9913e-09, .7822e-11,
3 .8091e-01, .4645e-03, .1151e-06,-.1158e-08,-.7151e-12,
3 .1141e+00, .6402e-03, .8964e-07,-.1185e-08, .3783e-11,
3 .1599e+00, .8801e-03, .3143e-07,-.6930e-09, .1643e-10,
3 .2224e+00, .1206e-02, .3590e-07,-.7640e-09, .5260e-11,
3 .3061e+00, .1643e-02,-.8062e-07,-.1496e-08, .9348e-11,
3 .4149e+00, .2211e-02, .2524e-06,-.4087e-08,-.5756e-10,
3 .5510e+00, .2921e-02, .1472e-05,-.5571e-08,-.2381e-09,
3 .7171e+00, .3759e-02, .3415e-06,-.4737e-09, .1918e-10 /
data ((( cs3h2o(k,j,i), k = 1, 5), j = 1, 18), i = 4, 6) /
4 .1642e-01, .1052e-03, .1952e-06, .2480e-12, .2472e-11,
4 .2237e-01, .1336e-03, .2150e-06,-.9591e-10, .2909e-11,
4 .3064e-01, .1705e-03, .2446e-06,-.1633e-09, .2164e-11,
4 .4221e-01, .2200e-03, .2703e-06,-.4686e-09, .1937e-11,
4 .5851e-01, .2850e-03, .2903e-06,-.8072e-09,-.6669e-12,
4 .8138e-01, .3703e-03, .4351e-06,-.1087e-08,-.2522e-10,
4 .1138e+00, .4807e-03, .3221e-06,-.9201e-09,-.4027e-11,
4 .1596e+00, .6307e-03, .2443e-06,-.1301e-08, .6705e-11,
4 .2242e+00, .8287e-03, .5455e-06,-.1052e-08,-.5106e-10,
4 .3157e+00, .1086e-02, .6386e-06, .1007e-08,-.8293e-10,
4 .4453e+00, .1433e-02, .3327e-06, .3299e-08,-.8398e-10,
4 .6274e+00, .1903e-02,-.2879e-06, .5982e-08,-.7058e-10,
4 .8801e+00, .2534e-02,-.6552e-06, .7775e-08,-.1659e-09,
4 .1226e+01, .3347e-02,-.1689e-05, .1587e-07,-.2028e-09,
4 .1690e+01, .4355e-02,-.3126e-05, .3789e-07,-.2959e-09,
4 .2305e+01, .5749e-02,-.8442e-05, .5388e-07,-.3787e-10,
4 .3100e+01, .7575e-02,-.1423e-04, .6122e-07, .1310e-09,
4 .4100e+01, .9882e-02,-.2069e-04, .7192e-07, .1299e-09,
5 .1490e+00, .1310e-02, .5515e-05, .9607e-08, .8163e-11,
5 .1871e+00, .1463e-02, .5555e-05, .8520e-08, .1281e-10,
5 .2384e+00, .1656e-02, .5678e-05, .7061e-08, .2098e-10,
5 .3087e+00, .1883e-02, .5795e-05, .8067e-08, .2865e-10,
5 .4050e+00, .2173e-02, .6072e-05, .7528e-08, .1301e-10,
5 .5382e+00, .2528e-02, .6448e-05, .7853e-08,-.4105e-10,
5 .7241e+00, .2949e-02, .5961e-05, .9428e-08,-.1089e-10,
5 .9823e+00, .3483e-02, .5861e-05, .9532e-08,-.8060e-10,
5 .1341e+01, .4138e-02, .5542e-05, .8243e-08,-.1615e-09,
5 .1838e+01, .4882e-02, .4530e-05, .2114e-07,-.1343e-09,
5 .2522e+01, .5785e-02, .3851e-05, .3797e-07,-.2593e-09,
5 .3459e+01, .6869e-02, .1507e-05, .5270e-07,-.3122e-09,
5 .4724e+01, .8195e-02,-.4630e-05, .7763e-07,-.7234e-10,
5 .6400e+01, .9842e-02,-.1512e-04, .8716e-07, .7390e-09,
5 .8570e+01, .1199e-01,-.2222e-04, .3606e-07, .8702e-09,
5 .1130e+02, .1443e-01,-.2307e-04,-.2460e-08,-.7119e-10,
5 .1463e+02, .1575e-01,-.1503e-04, .7918e-07,-.2868e-08,
5 .1856e+02, .1595e-01,-.2908e-04, .2440e-06,-.2560e-08,
6 .3216e+01, .3245e-01, .1289e-03, .1396e-06,-.1880e-08,
6 .3542e+01, .3244e-01, .1200e-03, .1328e-06,-.1466e-08,
6 .3984e+01, .3272e-01, .1151e-03, .1058e-06,-.1891e-08,
6 .4587e+01, .3317e-01, .1071e-03, .9862e-07,-.1807e-08,
6 .5409e+01, .3393e-01, .9642e-04, .7796e-07,-.1530e-08,
6 .6511e+01, .3473e-01, .8792e-04, .1254e-06,-.1767e-08,
6 .8005e+01, .3569e-01, .6874e-04, .1671e-06,-.9329e-09,
6 .1000e+02, .3693e-01, .5893e-04, .1978e-06,-.2169e-08,
6 .1266e+02, .3833e-01, .2525e-04, .1906e-06, .1323e-08,
6 .1616e+02, .4038e-01, .2350e-04, .1253e-06,-.1530e-08,
6 .2078e+02, .4230e-01, .1108e-04, .1572e-06,-.3107e-08,
6 .2674e+02, .4407e-01,-.1160e-04, .2337e-06,-.3546e-08,
6 .3420e+02, .4474e-01,-.6607e-04, .2720e-06, .6185e-09,
6 .4316e+02, .4283e-01,-.8299e-04, .5848e-06,-.2323e-08,
6 .5343e+02, .4015e-01,-.1268e-03, .6303e-06, .9102e-09,
6 .6465e+02, .3794e-01,-.1157e-03, .4313e-06,-.6078e-08,
6 .7632e+02, .3330e-01,-.2052e-03, .9706e-07, .1007e-07,
6 .8818e+02, .2535e-01,-.6560e-04,-.5124e-06,-.5492e-08 /
data ((( cs3co2(k,j,i), k = 1, 5), j = 1, 18), i = 1, 3) /
1 .2610e-03, .2896e-05, .1681e-07, .2320e-10,-.4520e-12,
1 .2881e-03, .3028e-05, .2158e-07, .5633e-11,-.1415e-11,
1 .3269e-03, .3176e-05, .2084e-07,-.1397e-10,-.1271e-11,
1 .3772e-03, .3206e-05, .1692e-07,-.1041e-11,-.3272e-12,
1 .4505e-03, .3377e-05, .1265e-07,-.5954e-12, .7120e-12,
1 .5503e-03, .3509e-05, .9192e-08, .8252e-11, .1344e-11,
1 .6768e-03, .3990e-05, .2291e-07,-.5353e-10,-.1409e-11,
1 .8628e-03, .4211e-05, .9534e-08,-.5869e-10, .9040e-12,
1 .1091e-02, .3845e-05, .2149e-07, .5213e-10,-.9016e-12,
1 .1404e-02, .4128e-05, .1474e-07, .4169e-10, .3418e-12,
1 .1793e-02, .4657e-05, .2180e-07, .1679e-10,-.9511e-12,
1 .2310e-02, .5965e-05, .8023e-08,-.8826e-10, .2726e-11,
1 .2952e-02, .6475e-05, .1008e-07,-.1778e-09, .3156e-11,
1 .3670e-02, .5820e-05, .9226e-07, .2316e-11,-.9167e-11,
1 .4542e-02, .5652e-05, .6406e-07,-.1937e-09,-.5279e-11,
1 .5507e-02, .4531e-05, .6440e-07, .3852e-10,-.3348e-11,
1 .6731e-02, .4984e-05, .3167e-08,-.4657e-09, .1054e-10,
1 .8092e-02, .2176e-06, .9218e-07,-.2423e-09,-.4589e-11,
2 .1995e-02, .1572e-04, .2884e-08, .2414e-09, .8172e-11,
2 .2236e-02, .1523e-04, .1844e-07, .5126e-09, .6912e-11,
2 .2635e-02, .1526e-04,-.2243e-07, .6144e-09, .1259e-10,
2 .3177e-02, .1640e-04,-.1955e-07, .6276e-09, .9108e-11,
2 .3790e-02, .1904e-04, .4670e-07, .4118e-09,-.8652e-12,
2 .4688e-02, .2153e-04, .3256e-07, .1690e-09, .2838e-11,
2 .5951e-02, .2395e-04,-.4885e-07, .1398e-09, .1751e-10,
2 .7452e-02, .2382e-04, .1602e-06, .7476e-09,-.1415e-10,
2 .9738e-02, .2917e-04, .4697e-07, .5588e-09, .3703e-11,
2 .1286e-01, .3433e-04, .1328e-07, .8358e-09, .7770e-11,
2 .1711e-01, .4284e-04, .7728e-07, .1126e-08,-.1375e-11,
2 .2246e-01, .4415e-04, .2735e-06, .2548e-08,-.3489e-10,
2 .2926e-01, .5671e-04, .9180e-07, .1387e-08, .1508e-10,
2 .3778e-01, .5134e-04,-.7722e-06, .2008e-08, .1589e-09,
2 .4756e-01, .5221e-04,-.5270e-06, .2444e-08, .1526e-09,
2 .5953e-01, .5326e-04, .6720e-06,-.1685e-08,-.5573e-10,
2 .7542e-01,-.3344e-05, .1267e-05, .8040e-08,-.1282e-09,
2 .9522e-01, .1969e-04, .1393e-05, .3909e-08,-.1592e-09,
3 .1877e-02, .2226e-04, .1531e-06,-.7413e-09,-.1337e-10,
3 .2272e-02, .2339e-04, .5165e-07,-.6208e-09, .6929e-11,
3 .2655e-02, .2469e-04, .1095e-06,-.3171e-09,-.1011e-12,
3 .3230e-02, .2747e-04, .1686e-06,-.4469e-09,-.1347e-10,
3 .3994e-02, .3021e-04, .1981e-06,-.2801e-09,-.2028e-10,
3 .5100e-02, .3347e-04, .1273e-06, .1101e-09,-.7813e-11,
3 .6426e-02, .3683e-04, .9962e-07, .8476e-09, .1070e-10,
3 .8140e-02, .4221e-04, .2268e-06, .1276e-08,-.1456e-10,
3 .1104e-01, .5883e-04,-.2095e-06,-.2318e-09, .5555e-10,
3 .1438e-01, .7576e-04, .9366e-08,-.1425e-08, .1233e-10,
3 .1916e-01, .9542e-04,-.3591e-06,-.2418e-08, .7557e-10,
3 .2540e-01, .1250e-03,-.4381e-06,-.6042e-08, .5961e-10,
3 .3336e-01, .1248e-03,-.3556e-06, .5426e-09, .5283e-11,
3 .4455e-01, .1855e-03,-.1306e-05,-.6855e-08, .1277e-09,
3 .5715e-01, .2335e-03, .3260e-06,-.9030e-08,-.1860e-09,
3 .7469e-01, .2169e-03,-.1715e-05,-.9761e-09, .1354e-09,
3 .9198e-01, .2206e-03,-.1194e-05, .5274e-08,-.1037e-09,
3 .1132e+00, .2604e-03,-.4031e-05,-.2189e-08, .3203e-09 /
data ((( cs3co2(k,j,i), k = 1, 5), j = 1, 18), i = 4, 6) /
4 .1366e-02, .1569e-04, .8297e-07, .3215e-09, .2057e-11,
4 .1515e-02, .1659e-04, .5193e-07, .2207e-09, .8386e-11,
4 .1755e-02, .1680e-04, .1417e-06, .4128e-09,-.9959e-11,
4 .2027e-02, .1930e-04, .2297e-06, .1572e-09,-.2363e-10,
4 .2650e-02, .1762e-04, .1012e-06, .4270e-09,-.8252e-11,
4 .3217e-02, .2455e-04, .2177e-06,-.6106e-09,-.2774e-10,
4 .4034e-02, .2834e-04, .2674e-06,-.5357e-09,-.3553e-10,
4 .5253e-02, .3443e-04, .1840e-07,-.1017e-08, .9318e-11,
4 .6372e-02, .3831e-04,-.5414e-08,-.2642e-09, .3204e-10,
4 .7523e-02, .4949e-04, .4908e-06,-.1388e-08,-.4547e-10,
4 .9416e-02, .5115e-04, .7771e-06,-.5478e-09,-.9016e-10,
4 .1249e-01, .4901e-04, .7287e-06, .1800e-08,-.8334e-10,
4 .1614e-01, .7198e-04, .8167e-06,-.3147e-09,-.7641e-10,
4 .2028e-01, .9140e-04, .1360e-05,-.1978e-08,-.1415e-09,
4 .2806e-01, .9834e-04,-.4710e-06,-.1455e-08, .2022e-09,
4 .3653e-01, .9843e-04, .1160e-05,-.1790e-08,-.5669e-10,
4 .4666e-01, .1333e-03,-.5258e-06,-.9256e-08, .1818e-09,
4 .5392e-01, .1455e-03,-.5996e-06,-.3428e-08, .2755e-09,
5 .1411e-02, .1791e-04, .9000e-10,-.3799e-10, .1482e-10,
5 .1554e-02, .1826e-04, .4344e-09,-.1669e-09, .1190e-10,
5 .1704e-02, .1693e-04,-.9837e-08, .1546e-09, .1349e-10,
5 .1946e-02, .1959e-04,-.5206e-07,-.2998e-09, .2229e-10,
5 .2146e-02, .1879e-04,-.6188e-07, .8247e-10, .1938e-10,
5 .2349e-02, .2343e-04, .1727e-06,-.5184e-09,-.2448e-10,
5 .2917e-02, .1974e-04,-.1655e-06, .2952e-09, .4447e-10,
5 .3571e-02, .2191e-04, .1558e-08, .3152e-09, .1625e-10,
5 .4243e-02, .3748e-04, .5174e-06,-.2418e-08,-.7573e-10,
5 .5498e-02, .2930e-04,-.1431e-06, .2033e-09, .6113e-10,
5 .6839e-02, .3259e-04,-.1015e-06, .1012e-08, .5504e-10,
5 .8754e-02, .3900e-04,-.2597e-06, .1656e-08, .8275e-10,
5 .1077e-01, .6034e-04, .3529e-06,-.1122e-08,-.4735e-10,
5 .1319e-01, .8182e-04, .4107e-06,-.2848e-08,-.3894e-10,
5 .1515e-01, .7330e-04, .1395e-05, .1230e-08,-.1638e-09,
5 .2046e-01, .4858e-04,-.5070e-06, .3968e-08, .1949e-09,
5 .2177e-01, .6873e-04, .8665e-06, .1460e-08,-.2569e-10,
5 .2183e-01, .6827e-04, .7650e-06, .5128e-08,-.1067e-09,
6 .1418e-02, .1285e-04, .6351e-07, .1240e-08, .1066e-10,
6 .1764e-02, .1512e-04,-.1030e-06, .9792e-09, .3292e-10,
6 .1831e-02, .2268e-04,-.7892e-07,-.7556e-10, .3812e-10,
6 .2003e-02, .2338e-04,-.1285e-06, .2277e-09, .5115e-10,
6 .2054e-02, .3064e-04, .1997e-06,-.1444e-08,-.1040e-10,
6 .2221e-02, .2007e-04, .2713e-06, .1176e-08,-.1845e-10,
6 .2713e-02, .1240e-04, .5912e-07, .2210e-08, .8023e-11,
6 .3144e-02, .2729e-04, .1793e-07,-.3171e-09, .2262e-10,
6 .3316e-02, .2118e-04, .3661e-06, .1200e-08,-.3955e-10,
6 .3989e-02, .2872e-04, .3883e-06, .3893e-09,-.3913e-10,
6 .5253e-02, .3456e-04,-.3653e-07, .3132e-09, .4074e-10,
6 .6785e-02, .4264e-04, .5274e-06,-.1811e-08,-.6890e-10,
6 .9180e-02, .6253e-04,-.1988e-06,-.4100e-08, .3417e-10,
6 .1109e-01, .5781e-04,-.4483e-06, .2123e-08, .1173e-09,
6 .1169e-01, .6932e-04, .3372e-06, .2526e-08, .1278e-10,
6 .1220e-01, .1631e-03, .3623e-06,-.9738e-08, .9918e-11,
6 .1186e-01, .1214e-03, .1789e-05,-.8392e-08,-.2303e-09,
6 .9549e-02, .4053e-04, .4684e-06, .3727e-08, .4624e-11 /
c
data gws3gh / 2.33300, .50600, 1.13600, .05800 /
data ((( cs3h2ogh(k,j,i), k = 1, 5), j = 1, 28), i = 1, 2) /
7 .1190e+03, .7959e+00,-.5729e-03,-.2858e-05, .4142e-07,
7 .1190e+03, .7958e+00,-.5729e-03,-.2858e-05, .4142e-07,
7 .1190e+03, .7958e+00,-.5729e-03,-.2858e-05, .4142e-07,
7 .1190e+03, .7958e+00,-.5729e-03,-.2858e-05, .4142e-07,
7 .1190e+03, .7958e+00,-.5732e-03,-.2858e-05, .4147e-07,
7 .1190e+03, .7956e+00,-.5735e-03,-.2857e-05, .4155e-07,
7 .1191e+03, .7954e+00,-.5748e-03,-.2859e-05, .4186e-07,
7 .1192e+03, .7951e+00,-.5775e-03,-.2871e-05, .4264e-07,
7 .1194e+03, .7944e+00,-.5844e-03,-.3116e-05, .4707e-07,
7 .1198e+03, .7918e+00,-.5660e-03,-.3220e-05, .4745e-07,
7 .1214e+03, .7783e+00,-.4767e-03,-.3335e-05, .4482e-07,
7 .1228e+03, .7675e+00,-.3986e-03,-.3378e-05, .4029e-07,
7 .1249e+03, .7527e+00,-.3196e-03,-.3451e-05, .3601e-07,
7 .1283e+03, .7312e+00,-.2241e-03,-.3424e-05, .2870e-07,
7 .1336e+03, .7021e+00,-.1490e-03,-.3760e-05, .2544e-07,
7 .1414e+03, .6626e+00,-.1168e-03,-.3243e-05, .1662e-07,
7 .1526e+03, .6129e+00,-.1121e-03,-.2831e-05, .4292e-09,
7 .1680e+03, .5575e+00,-.2388e-03,-.2286e-05, .8919e-08,
7 .1882e+03, .5058e+00,-.5035e-03,-.3307e-05, .3788e-07,
7 .2131e+03, .4468e+00,-.2174e-03,-.2604e-05,-.8970e-08,
7 .2434e+03, .3741e+00,-.4599e-03, .7629e-07, .2063e-07,
7 .2781e+03, .3171e+00,-.5680e-04,-.2481e-06,-.6044e-07,
7 .3166e+03, .2497e+00,-.1703e-05, .1254e-05,-.9283e-07,
7 .3565e+03, .1961e+00,-.6748e-03, .1582e-07, .7091e-08,
7 .3916e+03, .1245e+00,-.2241e-03, .1684e-05,-.5676e-07,
7 .4187e+03, .5468e-01,-.3090e-03, .3722e-05,-.5511e-07,
7 .4328e+03,-.1656e-01,-.5268e-03, .4096e-05,-.4355e-07,
7 .4285e+03,-.6619e-01,-.4981e-03, .2490e-05,-.2410e-07,
8 .4596e+04,-.2512e+01,-.6562e-02, .2702e-04,-.3225e-06,
8 .4596e+04,-.2512e+01,-.6555e-02, .2696e-04,-.3236e-06,
8 .4596e+04,-.2512e+01,-.6553e-02, .2701e-04,-.3235e-06,
8 .4596e+04,-.2512e+01,-.6560e-02, .2699e-04,-.3223e-06,
8 .4595e+04,-.2512e+01,-.6556e-02, .2696e-04,-.3230e-06,
8 .4595e+04,-.2512e+01,-.6566e-02, .2694e-04,-.3209e-06,
8 .4595e+04,-.2512e+01,-.6551e-02, .2694e-04,-.3227e-06,
8 .4594e+04,-.2510e+01,-.6531e-02, .2684e-04,-.3245e-06,
8 .4593e+04,-.2508e+01,-.6507e-02, .2669e-04,-.3245e-06,
8 .4589e+04,-.2504e+01,-.6473e-02, .2625e-04,-.3230e-06,
8 .4576e+04,-.2488e+01,-.6449e-02, .2463e-04,-.2994e-06,
8 .4566e+04,-.2478e+01,-.6462e-02, .2379e-04,-.2818e-06,
8 .4553e+04,-.2469e+01,-.6452e-02, .2293e-04,-.2539e-06,
8 .4532e+04,-.2458e+01,-.6345e-02, .2165e-04,-.2229e-06,
8 .4502e+04,-.2437e+01,-.6176e-02, .1915e-04,-.1641e-06,
8 .4457e+04,-.2417e+01,-.4971e-02, .1408e-04,-.2023e-06,
8 .4394e+04,-.2409e+01,-.3891e-02, .7834e-05,-.1572e-06,
8 .4307e+04,-.2399e+01,-.2355e-02,-.1421e-05,-.1293e-06,
8 .4187e+04,-.2446e+01, .4608e-03,-.9698e-06,-.2984e-06,
8 .4030e+04,-.2473e+01, .6401e-03,-.5026e-05,-.1185e-06,
8 .3824e+04,-.2403e+01, .2099e-02,-.1749e-04,-.1579e-06,
8 .3562e+04,-.2346e+01, .7816e-03,-.1518e-04, .2614e-06,
8 .3242e+04,-.2181e+01, .1562e-02,-.2235e-04, .3127e-06,
8 .2871e+04,-.2037e+01, .5276e-02,-.2128e-04,-.1365e-06,
8 .2480e+04,-.1846e+01, .4490e-02,-.2692e-04, .7140e-07,
8 .2083e+04,-.1672e+01, .4549e-02,-.3467e-04, .2490e-06,
8 .1708e+04,-.1476e+01, .6837e-02,-.3373e-04, .2632e-07,
8 .1378e+04,-.1313e+01, .5409e-02,-.2351e-04, .1561e-06 /
data ((( cs3co2gh(k,j,i), k = 1, 5), j = 1, 28), i = 1, 2) /
7 .8414e-03, .1486e-04, .4946e-07,-.9024e-09,-.1096e-10,
7 .8417e-03, .1486e-04, .4944e-07,-.9024e-09,-.1096e-10,
7 .8423e-03, .1486e-04, .4941e-07,-.9023e-09,-.1096e-10,
7 .8435e-03, .1486e-04, .4936e-07,-.9022e-09,-.1096e-10,
7 .8458e-03, .1485e-04, .4924e-07,-.9020e-09,-.1097e-10,
7 .8506e-03, .1484e-04, .4896e-07,-.9012e-09,-.1097e-10,
7 .8603e-03, .1482e-04, .4845e-07,-.9000e-09,-.1098e-10,
7 .8126e-03, .1494e-04, .1113e-06,-.9310e-09,-.2126e-10,
7 .8479e-03, .1522e-04, .1064e-06,-.1112e-08,-.1892e-10,
7 .9183e-03, .1639e-04, .1213e-06,-.1501e-08,-.2091e-10,
7 .1073e-02, .1234e-04, .1628e-06,-.5818e-09,-.2954e-10,
7 .1206e-02, .1546e-04, .8049e-07,-.1423e-08,-.9807e-11,
7 .1348e-02, .1642e-04,-.1517e-08,-.1492e-08, .4306e-11,
7 .1373e-02, .1534e-04, .1731e-06,-.2536e-09,-.1602e-10,
7 .1758e-02, .2098e-04, .1936e-07,-.1202e-08, .1290e-10,
7 .1681e-02, .2099e-04, .4694e-06,-.1499e-08,-.7368e-10,
7 .2641e-02, .8647e-05,-.2925e-07, .1547e-08, .1313e-10,
7 .3421e-02, .1391e-04, .2141e-06, .1552e-08,-.4702e-10,
7 .4439e-02, .3366e-04, .2813e-06,-.3542e-08,-.3644e-10,
7 .5244e-02, .1974e-04, .1404e-05, .1411e-08,-.2633e-09,
7 .7955e-02, .2759e-04, .6826e-06,-.7579e-09,-.1873e-09,
7 .7853e-02, .4846e-04,-.6206e-06,-.1861e-08, .1079e-09,
7 .6825e-02, .3823e-04, .1783e-06, .1974e-08,-.2368e-10,
7 .6829e-02, .3817e-04, .7155e-06, .2087e-08,-.1222e-09,
7 .6574e-02,-.5304e-04, .9550e-06, .1139e-07,-.9183e-10,
7 .6106e-02, .6690e-04, .7144e-06,-.5124e-08,-.1082e-09,
7 .6850e-03, .4058e-05, .1793e-06, .4599e-08, .3697e-10,
7 .6495e-03, .2041e-05, .9734e-07, .4241e-08, .4248e-10,
8 .9207e-03, .1129e-04, .1060e-06, .2428e-08, .2237e-10,
8 .9207e-03, .1129e-04, .1061e-06, .2428e-08, .2237e-10,
8 .9207e-03, .1129e-04, .1061e-06, .2428e-08, .2237e-10,
8 .9207e-03, .1129e-04, .1062e-06, .2429e-08, .2236e-10,
8 .9225e-03, .1129e-04, .1045e-06, .2430e-08, .2265e-10,
8 .9234e-03, .1135e-04, .1064e-06, .2419e-08, .2229e-10,
8 .9252e-03, .1138e-04, .1066e-06, .2416e-08, .2244e-10,
8 .9324e-03, .1132e-04, .1034e-06, .2456e-08, .2362e-10,
8 .9387e-03, .1091e-04, .1137e-06, .2546e-08, .2247e-10,
8 .9801e-03, .1068e-04, .9639e-07, .2599e-08, .2633e-10,
8 .1117e-02, .9612e-05, .1105e-06, .2972e-08, .2654e-10,
8 .1241e-02, .9243e-05, .8169e-07, .3171e-08, .3358e-10,
8 .1381e-02, .9504e-05, .8834e-07, .3346e-08, .3539e-10,
8 .1572e-02, .9117e-05, .9945e-07, .3640e-08, .3676e-10,
8 .1813e-02, .8996e-05, .1041e-06, .4092e-08, .4205e-10,
8 .2191e-02, .7302e-05, .1004e-06, .4950e-08, .4900e-10,
8 .2653e-02, .1432e-04, .2235e-06,-.2317e-09,-.2741e-10,
8 .3324e-02, .1590e-04, .2606e-06,-.1183e-08,-.4477e-10,
8 .4198e-02,-.9684e-06,-.1700e-06, .3001e-08, .2800e-10,
8 .4057e-02, .1087e-05, .1831e-06, .3109e-08, .2357e-11,
8 .5110e-02, .1333e-04,-.7258e-09, .1899e-08, .3187e-10,
8 .6499e-02, .1761e-04,-.1006e-06,-.8742e-09, .3539e-10,
8 .7761e-02, .1286e-04, .3219e-07,-.3523e-09, .9522e-11,
8 .9198e-02, .5713e-05, .1294e-06, .4839e-09,-.5043e-11,
8 .1138e-01, .5124e-05, .1237e-06,-.9549e-09, .4562e-11,
8 .1380e-01,-.1137e-04, .5172e-07, .4320e-09, .1612e-10,
8 .1647e-01,-.1912e-04, .1746e-06, .4567e-09,-.2597e-10,
8 .1854e-01,-.2331e-04, .6281e-07, .9918e-09,-.6749e-11 /
data ((( cs3co2gh(k,j,i), k = 1, 5), j = 1, 28), i = 3, 4) /
9 .7072e+01, .4635e-01, .6986e-04,-.4740e-06,-.3617e-08,
9 .7072e+01, .4635e-01, .6986e-04,-.4740e-06,-.3617e-08,
9 .7072e+01, .4635e-01, .6986e-04,-.4740e-06,-.3617e-08,
9 .7072e+01, .4635e-01, .6988e-04,-.4740e-06,-.3619e-08,
9 .7073e+01, .4634e-01, .6989e-04,-.4740e-06,-.3619e-08,
9 .7075e+01, .4633e-01, .6990e-04,-.4740e-06,-.3615e-08,
9 .7079e+01, .4631e-01, .6997e-04,-.4744e-06,-.3617e-08,
9 .7086e+01, .4626e-01, .7017e-04,-.4760e-06,-.3608e-08,
9 .7102e+01, .4615e-01, .7057e-04,-.4788e-06,-.3561e-08,
9 .7136e+01, .4586e-01, .7178e-04,-.4800e-06,-.3523e-08,
9 .7278e+01, .4465e-01, .7563e-04,-.4760e-06,-.3448e-08,
9 .7391e+01, .4377e-01, .7696e-04,-.4662e-06,-.3351e-08,
9 .7564e+01, .4264e-01, .7453e-04,-.4606e-06,-.2675e-08,
9 .7825e+01, .4096e-01, .7118e-04,-.4239e-06,-.1980e-08,
9 .8214e+01, .3867e-01, .6192e-04,-.3572e-06,-.5044e-09,
9 .8766e+01, .3552e-01, .5864e-04,-.2787e-06,-.1858e-09,
9 .9541e+01, .3102e-01, .5137e-04,-.1241e-06, .9859e-09,
9 .1056e+02, .2573e-01, .5715e-04,-.5412e-07,-.3768e-09,
9 .1188e+02, .2028e-01, .3384e-04,-.1040e-06, .3031e-08,
9 .1348e+02, .1391e-01, .1193e-04,-.1586e-07, .3862e-08,
9 .1523e+02, .6412e-02, .1362e-04, .1643e-06, .8796e-09,
9 .1690e+02,-.1419e-04, .1943e-04, .1236e-06,-.2510e-09,
9 .1836e+02,-.5249e-02,-.2073e-04, .8310e-07, .4450e-08,
9 .1938e+02,-.9898e-02,-.2011e-04, .1999e-06, .2000e-08,
9 .1991e+02,-.1224e-01,-.3395e-04, .2243e-06, .2341e-08,
9 .1993e+02,-.1305e-01,-.5027e-04, .1425e-06, .3202e-08,
9 .1930e+02,-.1236e-01,-.5040e-04, .3909e-07, .2455e-08,
9 .1797e+02,-.1138e-01,-.4258e-04, .1719e-07, .1772e-08,
a .5726e+03,-.8229e+00,-.2428e-02, .7345e-05, .1473e-06,
a .5726e+03,-.8229e+00,-.2428e-02, .7351e-05, .1474e-06,
a .5726e+03,-.8228e+00,-.2429e-02, .7345e-05, .1475e-06,
a .5726e+03,-.8229e+00,-.2428e-02, .7365e-05, .1473e-06,
a .5725e+03,-.8228e+00,-.2431e-02, .7372e-05, .1479e-06,
a .5725e+03,-.8225e+00,-.2431e-02, .7362e-05, .1479e-06,
a .5724e+03,-.8221e+00,-.2433e-02, .7368e-05, .1479e-06,
a .5721e+03,-.8213e+00,-.2435e-02, .7407e-05, .1474e-06,
a .5715e+03,-.8194e+00,-.2437e-02, .7411e-05, .1464e-06,
a .5706e+03,-.8156e+00,-.2453e-02, .7463e-05, .1464e-06,
a .5668e+03,-.8013e+00,-.2493e-02, .7561e-05, .1434e-06,
a .5641e+03,-.7911e+00,-.2507e-02, .7457e-05, .1413e-06,
a .5600e+03,-.7787e+00,-.2452e-02, .7399e-05, .1288e-06,
a .5541e+03,-.7590e+00,-.2351e-02, .6716e-05, .1114e-06,
a .5453e+03,-.7331e+00,-.2118e-02, .5597e-05, .7853e-07,
a .5331e+03,-.6971e+00,-.2033e-02, .4291e-05, .7528e-07,
a .5160e+03,-.6415e+00,-.1815e-02, .1410e-05, .4675e-07,
a .4933e+03,-.5763e+00,-.1879e-02,-.1765e-06, .7367e-07,
a .4634e+03,-.5152e+00,-.1351e-02, .6103e-06, .3226e-09,
a .4254e+03,-.4422e+00,-.8841e-03,-.7826e-06,-.1778e-07,
a .3806e+03,-.3482e+00,-.9576e-03,-.3944e-05, .4819e-07,
a .3315e+03,-.2737e+00,-.1019e-02,-.1508e-05, .4752e-07,
a .2801e+03,-.2108e+00,-.2805e-03, .7385e-06,-.5492e-07,
a .2314e+03,-.1434e+00,-.4725e-03,-.9929e-06,-.3489e-08,
a .1861e+03,-.1157e+00,-.4424e-03, .5096e-06,-.5047e-08,
a .1439e+03,-.8308e-01,-.4975e-03, .2899e-06, .1378e-07,
a .1073e+03,-.5905e-01,-.2466e-03, .3445e-06,-.8691e-08,
a .7825e+02,-.4257e-01,-.3012e-03, .3435e-06, .1945e-07 /
c
c----------------------------------------------------------------------
c spectral region: 2500-4200 cm^-1. gas: h2o, co2
c----------------------------------------------------------------------
c
data gws4 / 7.44700, 9.26900, 7.72400, 6.51700 /
data ((( cs4h2o(k,j,i), k = 1, 5), j = 1, 18), i = 1, 4) /
1 .3014e-04, .1412e-06, .3440e-10, .4938e-12,-.1102e-13,
1 .4455e-04, .2098e-06, .7639e-10, .6732e-12,-.2010e-13,
1 .6591e-04, .3109e-06, .8626e-10, .1002e-11,-.2505e-13,
1 .9746e-04, .4623e-06, .1310e-09, .1338e-11,-.3623e-13,
1 .1442e-03, .6876e-06, .1823e-09, .1886e-11,-.5123e-13,
1 .2133e-03, .1024e-05, .2689e-09, .2314e-11,-.7578e-13,
1 .3154e-03, .1525e-05, .3307e-09, .2493e-11,-.9946e-13,
1 .4660e-03, .2276e-05, .3319e-09, .1252e-11,-.1117e-12,
1 .6870e-03, .3390e-05, .5450e-09,-.1216e-11,-.1485e-12,
1 .1008e-02, .5025e-05, .1133e-08,-.5395e-11,-.2058e-12,
1 .1472e-02, .7405e-05, .2821e-08,-.1230e-10,-.3725e-12,
1 .2136e-02, .1082e-04, .5835e-08,-.1970e-10,-.6253e-12,
1 .3069e-02, .1558e-04, .1198e-07,-.2016e-10,-.1128e-11,
1 .4361e-02, .2200e-04, .1843e-07, .3556e-11,-.1232e-11,
1 .6103e-02, .3036e-04, .2472e-07, .5166e-10,-.9400e-12,
1 .8380e-02, .4070e-04, .3519e-07, .1111e-09,-.1528e-11,
1 .1124e-01, .5310e-04, .6198e-07, .1770e-09,-.5026e-11,
1 .1474e-01, .6699e-04, .7142e-07, .3322e-09,-.5734e-11,
2 .5190e-03, .3168e-05, .2696e-08, .6339e-12, .7241e-13,
2 .7580e-03, .4642e-05, .4056e-08,-.3435e-11, .8305e-13,
2 .1107e-02, .6775e-05, .6266e-08,-.9075e-11, .5963e-13,
2 .1613e-02, .9858e-05, .9914e-08,-.1711e-10, .4185e-14,
2 .2348e-02, .1430e-04, .1453e-07,-.2318e-10, .7509e-13,
2 .3417e-02, .2075e-04, .2326e-07,-.3613e-10,-.1600e-12,
2 .4971e-02, .3006e-04, .3698e-07,-.5643e-10,-.6704e-12,
2 .7219e-02, .4342e-04, .6047e-07,-.8197e-10,-.1897e-11,
2 .1045e-01, .6231e-04, .9402e-07,-.8031e-10,-.3326e-11,
2 .1509e-01, .8867e-04, .1350e-06, .7379e-11,-.3609e-11,
2 .2169e-01, .1254e-03, .1893e-06, .1844e-09,-.3463e-11,
2 .3094e-01, .1760e-03, .2535e-06, .4168e-09,-.1895e-11,
2 .4375e-01, .2450e-03, .3770e-06, .6940e-09,-.7013e-11,
2 .6120e-01, .3361e-03, .5313e-06, .1255e-08,-.1342e-10,
2 .8461e-01, .4560e-03, .6968e-06, .2305e-08,-.1357e-10,
2 .1157e+00, .6212e-03, .8749e-06, .2793e-08,-.6135e-11,
2 .1568e+00, .8390e-03, .1015e-05, .3399e-08, .5894e-11,
2 .2100e+00, .1106e-02, .9895e-06, .4908e-08, .3252e-10,
3 .5255e-02, .4560e-04, .8246e-07,-.5473e-09,-.1195e-11,
3 .7357e-02, .6268e-04, .1325e-06,-.6950e-09,-.3979e-11,
3 .1033e-01, .8602e-04, .1910e-06,-.8574e-09,-.5780e-11,
3 .1453e-01, .1172e-03, .2594e-06,-.9017e-09,-.5561e-11,
3 .2049e-01, .1596e-03, .3358e-06,-.7675e-09,-.1980e-11,
3 .2896e-01, .2185e-03, .4466e-06,-.6084e-09, .1461e-11,
3 .4106e-01, .3013e-03, .6223e-06,-.4569e-09, .1170e-11,
3 .5830e-01, .4160e-03, .8647e-06,-.3385e-09,-.3087e-11,
3 .8289e-01, .5777e-03, .1120e-05,-.5274e-09, .1455e-12,
3 .1176e+00, .8030e-03, .1646e-05,-.1018e-08,-.2605e-10,
3 .1663e+00, .1111e-02, .2347e-05,-.1044e-08,-.5455e-10,
3 .2341e+00, .1538e-02, .3427e-05,-.1028e-08,-.1138e-09,
3 .3282e+00, .2136e-02, .4547e-05,-.8165e-09,-.1167e-09,
3 .4587e+00, .2969e-02, .5702e-05,-.2286e-08,-.8492e-10,
3 .6368e+00, .4086e-02, .7771e-05,-.2174e-08,-.1785e-09,
3 .8757e+00, .5569e-02, .1004e-04, .2131e-08,-.1490e-09,
3 .1194e+01, .7619e-02, .1285e-04,-.4563e-08,-.5124e-10,
3 .1610e+01, .1025e-01, .1687e-04,-.1217e-07,-.1900e-09,
4 .4788e-01, .3124e-03, .5666e-06,-.3197e-09,-.1106e-10,
4 .6589e-01, .4089e-03, .7016e-06,-.8959e-10,-.1740e-10,
4 .9120e-01, .5408e-03, .8446e-06,-.9516e-10,-.2342e-10,
4 .1267e+00, .7172e-03, .1209e-05,-.3362e-09,-.7443e-10,
4 .1772e+00, .9535e-03, .1346e-05, .1199e-08,-.8312e-10,
4 .2487e+00, .1276e-02, .1268e-05, .3392e-08,-.5510e-10,
4 .3496e+00, .1735e-02, .2113e-05, .3352e-08,-.1890e-09,
4 .4940e+00, .2358e-02, .2254e-05, .6280e-08,-.2294e-09,
4 .6992e+00, .3232e-02, .2414e-05, .1100e-07,-.3069e-09,
4 .9922e+00, .4494e-02, .1968e-05, .1210e-07,-.2902e-09,
4 .1408e+01, .6255e-02, .8966e-06, .1735e-07,-.3065e-09,
4 .1992e+01, .8720e-02, .1872e-05, .2659e-07,-.8546e-09,
4 .2809e+01, .1207e-01,-.4227e-05, .7144e-07,-.2901e-09,
4 .3928e+01, .1707e-01,-.1264e-04, .6394e-07, .2106e-09,
4 .5424e+01, .2380e-01,-.2366e-04, .8644e-07, .1055e-08,
4 .7373e+01, .3343e-01,-.4215e-04,-.6115e-07, .2929e-08,
4 .9781e+01, .4490e-01,-.3931e-04,-.2201e-06, .2096e-08,
4 .1261e+02, .5753e-01,-.5377e-04,-.4510e-06, .4641e-08 /
data ((( cs4co2(k,j,i), k = 1, 5), j = 1, 18), i = 1, 4) /
1 .1916e-03, .2035e-05, .1727e-07,-.5506e-10,-.1560e-11,
1 .2540e-03, .1852e-05,-.6261e-08,-.2503e-10, .2271e-11,
1 .3040e-03, .2202e-05, .1114e-07,-.3431e-10,-.6808e-12,
1 .3892e-03, .1940e-05,-.5032e-08,-.1420e-10, .4484e-12,
1 .4527e-03, .1686e-05, .1626e-07,-.1170e-09,-.4349e-11,
1 .5281e-03, .1024e-06, .3370e-08, .6164e-10,-.2811e-11,
1 .5433e-03,-.1335e-06,-.5368e-08,-.2668e-11,-.7093e-13,
1 .5377e-03,-.5479e-07,-.2202e-08,-.4706e-10,-.5414e-13,
1 .5373e-03,-.3178e-06,-.9697e-08, .7631e-11, .1439e-11,
1 .5322e-03,-.3006e-06,-.6803e-08, .2542e-11, .9964e-12,
1 .5295e-03,-.2865e-06,-.5584e-08,-.4216e-11, .8271e-12,
1 .5281e-03,-.2707e-06,-.7535e-08,-.6716e-11, .1278e-11,
1 .5249e-03,-.3348e-06,-.4586e-08, .6652e-11, .7277e-12,
1 .5216e-03,-.3296e-06,-.1752e-08, .9462e-11, .3028e-12,
1 .5147e-03,-.3168e-06, .5511e-08, .1703e-10,-.1056e-11,
1 .5143e-03,-.2210e-06, .4996e-08, .1127e-10,-.1003e-11,
1 .5092e-03,-.8662e-07, .4054e-08,-.7392e-11,-.7070e-12,
1 .5065e-03, .4724e-07,-.1141e-08,-.3420e-10, .3606e-12,
2 .2722e-03, .1993e-05, .4463e-08, .2410e-09, .2106e-11,
2 .3312e-03, .3323e-05, .2478e-07, .2219e-11,-.2790e-11,
2 .4196e-03, .3641e-05,-.1403e-08, .1915e-11, .1760e-11,
2 .5203e-03, .3996e-05,-.3218e-07, .1374e-09, .8482e-11,
2 .6026e-03, .4986e-05,-.8524e-08,-.9439e-10, .3624e-11,
2 .7047e-03, .5630e-05, .6679e-07,-.1627e-09,-.1060e-10,
2 .8413e-03, .4232e-05, .4457e-07, .8781e-10,-.8901e-11,
2 .9002e-03, .3174e-05, .6817e-07, .3119e-09,-.1052e-10,
2 .9807e-03, .2861e-05,-.1398e-07, .3120e-09, .8133e-11,
2 .9637e-03, .2588e-06, .7466e-07, .3467e-09,-.1334e-10,
2 .9467e-03,-.4775e-06, .6435e-07, .5529e-09,-.8689e-11,
2 .8515e-03, .1455e-05, .9936e-07,-.6242e-10,-.1178e-10,
2 .8285e-03,-.2854e-06, .4917e-07, .1738e-09,-.3238e-11,
2 .7944e-03, .6882e-06, .3809e-07,-.1692e-09,-.1937e-11,
2 .7829e-03,-.1908e-06, .2274e-07,-.7921e-12, .9140e-12,
2 .7484e-03,-.5962e-06, .4380e-07, .1899e-09,-.4148e-11,
2 .7259e-03,-.6320e-06, .4922e-07, .2387e-09,-.5985e-11,
2 .7047e-03, .3205e-06, .3587e-07, .5801e-10,-.3368e-11,
3 .1440e-02, .2255e-04, .2358e-06, .1143e-08,-.1050e-11,
3 .1805e-02, .2538e-04, .2351e-06, .1543e-08, .8427e-11,
3 .2312e-02, .2706e-04, .2064e-06, .2066e-08, .1957e-10,
3 .2974e-02, .3135e-04, .2390e-06, .2358e-08, .2266e-10,
3 .3774e-02, .4060e-04, .5065e-06, .1777e-08,-.1490e-10,
3 .5092e-02, .4931e-04, .5741e-06, .1999e-08,-.1601e-10,
3 .7038e-02, .5175e-04, .3262e-06, .3518e-08, .3524e-10,
3 .9646e-02, .7130e-04, .2975e-06, .2966e-08, .4683e-10,
3 .1273e-01, .8409e-04, .7746e-06, .5377e-08,-.1932e-10,
3 .1752e-01, .9729e-04, .3615e-06, .8924e-08, .6196e-10,
3 .2361e-01, .1618e-03,-.7245e-06, .4280e-08, .2640e-09,
3 .2984e-01, .2253e-03,-.8294e-06, .2948e-08, .3491e-09,
3 .3675e-01, .3443e-03, .4063e-06,-.1279e-07, .1449e-09,
3 .4532e-01, .4093e-03, .1549e-05,-.1280e-07,-.8570e-10,
3 .5433e-01, .4706e-03, .2200e-05,-.2191e-07,-.1369e-09,
3 .6031e-01, .3278e-03, .5492e-05, .1754e-08,-.5014e-09,
3 .6238e-01, .3081e-03, .1505e-06, .3902e-08, .4715e-09,
3 .5598e-01, .2905e-03, .2454e-05, .7691e-08, .2793e-09,
4 .8896e-02, .7958e-04, .2918e-06, .6366e-09, .4505e-11,
4 .1203e-01, .1003e-03, .2690e-06, .8013e-09, .1441e-10,
4 .1645e-01, .1294e-03, .2362e-06, .8390e-09, .2721e-10,
4 .2257e-01, .1712e-03, .1723e-06, .9214e-09, .5502e-10,
4 .3113e-01, .2266e-03,-.5515e-07, .3232e-09, .1152e-09,
4 .4225e-01, .3037e-03, .5962e-06,-.1264e-08, .2904e-10,
4 .5874e-01, .4075e-03, .5943e-06,-.1420e-08, .7144e-10,
4 .8225e-01, .5267e-03, .4867e-06, .2947e-08, .1292e-09,
4 .1165e+00, .7351e-03,-.4136e-06,-.1387e-08, .2863e-09,
4 .1631e+00, .1034e-02,-.8326e-06,-.8326e-08, .3771e-09,
4 .2268e+00, .1420e-02,-.8496e-06,-.1696e-07, .4065e-09,
4 .3162e+00, .1967e-02,-.3465e-05,-.3624e-07, .9025e-09,
4 .4261e+00, .2627e-02, .3389e-05,-.4646e-07, .5019e-10,
4 .5718e+00, .3344e-02, .8220e-05,-.3028e-07, .2005e-09,
4 .7461e+00, .4347e-02, .2389e-04,-.4292e-07,-.2161e-08,
4 .9310e+00, .5391e-02, .4802e-04, .3446e-07,-.6031e-08,
4 .1146e+01, .6003e-02, .6343e-04, .2874e-06,-.8740e-08,
4 .1388e+01, .7010e-02, .8538e-05, .5911e-06,-.4197e-10 /
c
data gws4gh / 4.34100, 2.44500, 1.87200, .63400, .18600, .07200,
1 .02300, .01900, .01000 /
data ((( cs4h2ogh(k,j,i), k = 1, 5), j = 1, 28), i = 1, 3) /
5 .1920e-01, .4722e-03, .4663e-05, .1783e-07,-.7409e-11,
5 .2034e-01, .4732e-03, .4629e-05, .1820e-07,-.1167e-10,
5 .2244e-01, .4829e-03, .4481e-05, .1793e-07, .3998e-11,
5 .2593e-01, .5025e-03, .4373e-05, .1790e-07, .1426e-10,
5 .3122e-01, .5409e-03, .4515e-05, .1711e-07,-.1093e-10,
5 .3977e-01, .5953e-03, .4497e-05, .1745e-07, .2855e-11,
5 .5347e-01, .6792e-03, .4516e-05, .1697e-07, .9851e-11,
5 .7560e-01, .8047e-03, .4770e-05, .1649e-07,-.1662e-10,
5 .1127e+00, .9928e-03, .5246e-05, .1739e-07,-.6727e-10,
5 .1758e+00, .1263e-02, .4788e-05, .1972e-07, .6949e-10,
5 .3696e+00, .1979e-02, .4531e-05, .1855e-07, .1579e-09,
5 .4952e+00, .2393e-02, .4598e-05, .1804e-07, .1867e-09,
5 .6699e+00, .2993e-02, .6457e-05, .8887e-08,-.6030e-10,
5 .9158e+00, .3687e-02, .6965e-05, .8050e-08,-.9158e-10,
5 .1263e+01, .4572e-02, .6485e-05, .2137e-07, .8526e-10,
5 .1756e+01, .5833e-02, .2449e-05, .1660e-07, .9457e-09,
5 .2452e+01, .7517e-02, .6702e-05, .2653e-08, .1263e-09,
5 .3439e+01, .9775e-02, .1485e-04,-.2184e-07,-.1336e-08,
5 .4844e+01, .1265e-01, .1956e-04,-.1175e-07,-.2366e-08,
5 .6833e+01, .1622e-01, .2048e-04, .4596e-07,-.2692e-08,
5 .9642e+01, .2110e-01, .1276e-04, .9081e-07,-.1525e-08,
5 .1354e+02, .2717e-01, .2841e-04, .1911e-06,-.5377e-08,
5 .1889e+02, .3507e-01, .2839e-04, .3178e-06,-.6897e-08,
5 .2602e+02, .4416e-01,-.2168e-04, .4948e-06,-.3850e-08,
5 .3514e+02, .5374e-01,-.4464e-04, .8238e-06,-.4169e-08,
5 .4661e+02, .6721e-01,-.2957e-04, .1008e-05,-.1934e-07,
5 .6065e+02, .8501e-01,-.1791e-03, .1018e-05,-.5383e-08,
5 .7736e+02, .1081e+00,-.4570e-03, .6737e-06, .2122e-07,
6 .3291e+01, .5489e-01, .3336e-03, .7452e-06,-.8524e-09,
6 .3283e+01, .5485e-01, .3397e-03, .7539e-06,-.1671e-08,
6 .3286e+01, .5496e-01, .3407e-03, .7196e-06,-.1624e-08,
6 .3290e+01, .5459e-01, .3420e-03, .7733e-06,-.1230e-08,
6 .3319e+01, .5419e-01, .3408e-03, .7814e-06,-.1096e-08,
6 .3395e+01, .5349e-01, .3367e-03, .8598e-06,-.5132e-09,
6 .3556e+01, .5270e-01, .3274e-03, .8967e-06,-.3534e-09,
6 .3860e+01, .5225e-01, .3222e-03, .9550e-06,-.1531e-08,
6 .4418e+01, .5288e-01, .3067e-03, .9674e-06,-.1544e-08,
6 .5372e+01, .5567e-01, .2982e-03, .7895e-06,-.3515e-08,
6 .8274e+01, .6451e-01, .2563e-03, .6207e-06,-.3298e-08,
6 .1003e+02, .6947e-01, .2442e-03, .5917e-06,-.8932e-09,
6 .1246e+02, .7783e-01, .2029e-03, .3369e-06, .5868e-08,
6 .1573e+02, .8584e-01, .2161e-03, .3234e-06, .1903e-08,
6 .2017e+02, .9760e-01, .3321e-03, .8542e-07,-.2318e-07,
6 .2629e+02, .1102e+00, .2933e-03, .1255e-06,-.1687e-07,
6 .3481e+02, .1255e+00, .1174e-03, .2467e-06, .9194e-08,
6 .4630e+02, .1409e+00, .1151e-03, .2864e-06, .3445e-08,
6 .6201e+02, .1643e+00, .1153e-03,-.6293e-06,-.6231e-08,
6 .8300e+02, .1886e+00, .3849e-03,-.7753e-06,-.6866e-07,
6 .1114e+03, .2154e+00, .2395e-03,-.7154e-06,-.6318e-07,
6 .1473e+03, .2271e+00,-.2260e-03, .3503e-05, .2014e-07,
6 .1907e+03, .2771e+00, .5737e-03,-.2284e-05,-.1264e-06,
6 .2442e+03, .2847e+00, .2431e-03, .1180e-05,-.1110e-06,
6 .3052e+03, .3074e+00, .1632e-02, .9340e-06,-.3514e-06,
6 .3786e+03, .2685e+00, .2668e-03, .1367e-04,-.1924e-06,
6 .4631e+03, .2848e+00,-.1409e-02, .1447e-04, .9970e-07,
6 .5582e+03, .2456e+00,-.9309e-03, .4078e-05,-.4814e-07,
7 .1601e+00, .2722e-02, .1475e-04, .2687e-07, .1043e-09,
7 .1649e+00, .2735e-02, .1211e-04, .2217e-07, .4716e-09,
7 .1677e+00, .2667e-02, .1163e-04, .3495e-07, .4884e-09,
7 .1747e+00, .2761e-02, .1126e-04, .1237e-07, .3276e-09,
7 .1820e+00, .2801e-02, .1178e-04, .1356e-07, .2750e-09,
7 .1910e+00, .2861e-02, .1285e-04, .8766e-09, .1705e-11,
7 .2060e+00, .2916e-02, .1377e-04, .1718e-07, .3048e-10,
7 .2354e+00, .2992e-02, .8319e-05, .7833e-08, .9606e-09,
7 .2786e+00, .3069e-02, .5748e-05,-.1311e-08, .1207e-08,
7 .3546e+00, .3207e-02, .1169e-05, .2228e-07, .2213e-08,
7 .5796e+00, .3762e-02, .5664e-06, .2747e-07, .3264e-08,
7 .7374e+00, .4332e-02, .1653e-04,-.1859e-07,-.3822e-09,
7 .9411e+00, .4125e-02, .1781e-04, .5394e-07,-.6822e-09,
7 .1229e+01, .4599e-02, .2058e-04, .6480e-07,-.1307e-08,
7 .1632e+01, .4998e-02,-.1329e-04, .6531e-07, .5607e-08,
7 .2203e+01, .4977e-02,-.5904e-05, .1787e-06, .2614e-08,
7 .2979e+01, .5292e-02, .2930e-04, .1751e-06,-.5517e-08,
7 .4110e+01, .6942e-02,-.3675e-04, .2308e-06, .5862e-08,
7 .5628e+01, .5379e-02,-.3720e-04, .9111e-06, .3264e-08,
7 .7773e+01, .7533e-02,-.1177e-03, .7980e-06, .1173e-07,
7 .1049e+02, .9843e-02,-.2300e-03, .8694e-06, .3096e-07,
7 .1431e+02, .1869e-01,-.1665e-03,-.4161e-06, .8064e-08,
7 .1978e+02, .1727e-01,-.5622e-03, .1663e-05, .5904e-07,
7 .2626e+02, .3513e-01,-.3624e-03,-.2898e-06, .2954e-07,
7 .3570e+02, .4425e-01,-.1128e-02, .1928e-06, .1477e-06,
7 .4584e+02, .7428e-01,-.5640e-03,-.4803e-05, .6870e-07,
7 .5727e+02, .7023e-01,-.8760e-04,-.4551e-05,-.5886e-08,
7 .7047e+02, .6138e-01, .1158e-03, .1161e-05,-.2640e-07 /
data ((( cs4h2ogh(k,j,i), k = 1, 5), j = 1, 28), i = 4, 6) /
8 .7431e+03, .5857e+01, .4554e-02,-.7683e-05, .3344e-07,
8 .7431e+03, .5857e+01, .4554e-02,-.7681e-05, .3342e-07,
8 .7431e+03, .5857e+01, .4555e-02,-.7679e-05, .3333e-07,
8 .7432e+03, .5857e+01, .4556e-02,-.7679e-05, .3332e-07,
8 .7433e+03, .5857e+01, .4560e-02,-.7729e-05, .3341e-07,
8 .7436e+03, .5856e+01, .4573e-02,-.7973e-05, .3437e-07,
8 .7443e+03, .5854e+01, .4603e-02,-.8552e-05, .3853e-07,
8 .7457e+03, .5845e+01, .4692e-02,-.9365e-05, .4332e-07,
8 .7492e+03, .5783e+01, .5863e-02,-.1700e-05,-.1664e-06,
8 .7570e+03, .5748e+01, .5558e-02,-.5952e-05,-.5530e-07,
8 .7932e+03, .5562e+01, .2974e-02,-.6513e-05, .4483e-06,
8 .8167e+03, .5435e+01, .5322e-02,-.4447e-05, .9579e-07,
8 .8555e+03, .5268e+01, .5042e-02,-.2620e-05, .2543e-06,
8 .9126e+03, .5036e+01, .6572e-02, .4625e-05,-.6623e-07,
8 .9946e+03, .4844e+01, .7601e-02, .3647e-05,-.3856e-06,
8 .1116e+04, .4599e+01,-.8525e-03, .7818e-05, .8954e-06,
8 .1269e+04, .4562e+01, .3813e-02,-.3200e-04,-.4521e-06,
8 .1468e+04, .4441e+01,-.6149e-03,-.5831e-04, .4397e-06,
8 .1722e+04, .3791e+01,-.3603e-02, .2001e-04, .6822e-06,
8 .2030e+04, .3792e+01, .1429e-02,-.3993e-04,-.4950e-06,
8 .2407e+04, .3585e+01, .2322e-02,-.2580e-04,-.9120e-06,
8 .2844e+04, .3254e+01,-.8012e-02,-.8233e-05, .7639e-06,
8 .3313e+04, .3112e+01, .3018e-02,-.4639e-04,-.1485e-05,
8 .3796e+04, .2410e+01,-.4175e-02,-.1161e-04,-.3392e-06,
8 .4212e+04, .2047e+01,-.1298e-01,-.7168e-04, .1059e-05,
8 .4471e+04, .9686e+00, .5165e-02,-.4813e-04,-.1129e-05,
8 .4578e+04,-.3570e+00,-.8154e-03, .1574e-04, .5073e-06,
8 .4523e+04,-.1065e+01,-.1264e-02,-.9917e-05, .7980e-06,
a .2587e+05, .1100e+03,-.3576e+00,-.7841e-03, .8123e-05,
a .2587e+05, .1100e+03,-.3576e+00,-.7844e-03, .8129e-05,
a .2587e+05, .1100e+03,-.3576e+00,-.7846e-03, .8119e-05,
a .2587e+05, .1100e+03,-.3575e+00,-.7847e-03, .8117e-05,
a .2587e+05, .1100e+03,-.3575e+00,-.7854e-03, .8122e-05,
a .2587e+05, .1099e+03,-.3574e+00,-.7863e-03, .8124e-05,
a .2588e+05, .1099e+03,-.3570e+00,-.7875e-03, .8085e-05,
a .2589e+05, .1097e+03,-.3563e+00,-.7897e-03, .8021e-05,
a .2591e+05, .1095e+03,-.3547e+00,-.7932e-03, .7875e-05,
a .2596e+05, .1091e+03,-.3515e+00,-.8019e-03, .7589e-05,
a .2611e+05, .1069e+03,-.3412e+00,-.8282e-03, .7039e-05,
a .2623e+05, .1054e+03,-.3340e+00,-.8570e-03, .6979e-05,
a .2640e+05, .1031e+03,-.3223e+00,-.9088e-03, .7000e-05,
a .2664e+05, .9974e+02,-.3055e+00,-.1019e-02, .7278e-05,
a .2700e+05, .9391e+02,-.2823e+00,-.9425e-03, .6459e-05,
a .2748e+05, .8679e+02,-.2844e+00,-.9310e-03, .1101e-04,
a .2804e+05, .7740e+02,-.2116e+00,-.9725e-03, .5503e-05,
a .2884e+05, .6342e+02,-.1817e+00,-.6900e-03, .9096e-05,
a .2979e+05, .4620e+02,-.1000e+00, .3154e-03,-.4396e-05,
a .3063e+05, .3540e+02,-.2209e+00,-.5682e-03, .3077e-04,
a .3122e+05, .1649e+02,-.6750e-01,-.2645e-03, .1100e-04,
a .3108e+05,-.1836e+01, .1394e+00, .2334e-03,-.2617e-04,
a .3010e+05,-.8514e+01, .1187e+00,-.2236e-03,-.1920e-04,
a .2814e+05,-.1177e+02, .1133e-02,-.4679e-03, .5859e-05,
a .2528e+05,-.1668e+02, .9619e-01,-.1386e-03,-.5856e-05,
a .2208e+05,-.1857e+02, .8052e-01,-.8256e-04,-.3147e-05,
a .1886e+05,-.1898e+02, .7416e-01, .4434e-04,-.2683e-05,
a .1563e+05,-.1888e+02, .4389e-01, .1726e-03, .7028e-07,
2 .2750e+06,-.7497e+03, .1719e+01, .1288e-02,-.4910e-04,
2 .2750e+06,-.7497e+03, .1722e+01, .1291e-02,-.4938e-04,
2 .2750e+06,-.7497e+03, .1720e+01, .1295e-02,-.4923e-04,
2 .2750e+06,-.7495e+03, .1720e+01, .1297e-02,-.4941e-04,
2 .2749e+06,-.7494e+03, .1720e+01, .1296e-02,-.4939e-04,
2 .2749e+06,-.7492e+03, .1719e+01, .1300e-02,-.4935e-04,
2 .2748e+06,-.7488e+03, .1716e+01, .1318e-02,-.4921e-04,
2 .2747e+06,-.7478e+03, .1714e+01, .1339e-02,-.4960e-04,
2 .2742e+06,-.7458e+03, .1705e+01, .1388e-02,-.4959e-04,
2 .2736e+06,-.7418e+03, .1691e+01, .1495e-02,-.5012e-04,
2 .2709e+06,-.7270e+03, .1623e+01, .1854e-02,-.4938e-04,
2 .2690e+06,-.7161e+03, .1577e+01, .2060e-02,-.4989e-04,
2 .2661e+06,-.7000e+03, .1511e+01, .2352e-02,-.5033e-04,
2 .2620e+06,-.6770e+03, .1416e+01, .2734e-02,-.5045e-04,
2 .2561e+06,-.6422e+03, .1300e+01, .2244e-02,-.4200e-04,
2 .2478e+06,-.6024e+03, .1316e+01, .2466e-02,-.6167e-04,
2 .2373e+06,-.5544e+03, .9642e+00, .2876e-02,-.2911e-04,
2 .2233e+06,-.4860e+03, .8485e+00, .1676e-02,-.4293e-04,
2 .2052e+06,-.4018e+03, .6779e+00,-.1072e-02,-.2274e-04,
2 .1840e+06,-.3289e+03, .4840e+00,-.1405e-02,-.5668e-05,
2 .1603e+06,-.2559e+03, .6689e-01,-.8028e-04, .7246e-04,
2 .1353e+06,-.1801e+03,-.3832e+00,-.3692e-02, .1377e-03,
2 .1095e+06,-.1488e+03, .4740e+00,-.1845e-02,-.6438e-05,
2 .8632e+05,-.1260e+03, .4095e+00,-.3867e-03,-.5113e-05,
2 .6590e+05,-.9887e+02, .4539e+00, .2310e-03,-.2241e-04,
2 .4918e+05,-.6591e+02, .1963e+00,-.1047e-02, .1069e-04,
2 .3592e+05,-.4682e+02, .1216e+00,-.1397e-02, .1569e-04,
2 .2596e+05,-.3254e+02, .1476e+00,-.1114e-02, .3823e-05 /
data ((( cs4co2gh(k,j,i), k = 1, 5), j = 1, 28), i = 1, 3) /
5 .1616e-03, .5548e-05, .7337e-07, .6279e-09, .3469e-11,
5 .1979e-03, .5718e-05, .7475e-07, .6624e-09, .3652e-11,
5 .2448e-03, .6265e-05, .8358e-07, .6808e-09, .2723e-11,
5 .3266e-03, .7622e-05, .9701e-07, .5879e-09, .5377e-12,
5 .4582e-03, .9011e-05, .9315e-07, .7061e-09, .3919e-11,
5 .6541e-03, .1064e-04, .1084e-06, .8349e-09, .3529e-11,
5 .1024e-02, .1420e-04, .1262e-06, .8064e-09, .2008e-11,
5 .1673e-02, .1888e-04, .9113e-07, .1131e-08, .1449e-10,
5 .2784e-02, .2952e-04, .1346e-06, .6550e-09, .1067e-10,
5 .4761e-02, .5032e-04, .2910e-06,-.5410e-09,-.5713e-11,
5 .1113e-01, .8611e-04, .5262e-06, .1087e-08,-.2008e-11,
5 .1552e-01, .1118e-03, .9609e-06, .1671e-08,-.5824e-10,
5 .2178e-01, .1448e-03, .1353e-05, .2123e-08,-.1017e-09,
5 .3049e-01, .1873e-03, .1924e-05, .3038e-08,-.1680e-09,
5 .4371e-01, .2431e-03, .2089e-05, .6891e-08,-.1599e-09,
5 .6339e-01, .3059e-03, .1610e-05, .1381e-07,-.5115e-10,
5 .9048e-01, .4274e-03, .2564e-05, .1519e-07,-.2019e-09,
5 .1296e+00, .5870e-03, .2774e-05, .1927e-07,-.2048e-09,
5 .1838e+00, .8096e-03, .4349e-05, .2268e-07,-.3903e-09,
5 .2622e+00, .1115e-02, .4798e-05, .2456e-07,-.3603e-09,
5 .3703e+00, .1458e-02, .7346e-05, .4375e-07,-.6040e-09,
5 .5203e+00, .1940e-02, .1267e-04, .6146e-07,-.1405e-08,
5 .7374e+00, .2395e-02, .1747e-06, .1406e-06, .7162e-09,
5 .1018e+01, .3107e-02, .5612e-05, .1922e-06,-.1343e-08,
5 .1420e+01, .4337e-02,-.3523e-04, .2890e-06, .4376e-08,
5 .1972e+01, .7507e-02,-.1231e-03,-.1029e-07, .1854e-07,
5 .2608e+01, .1279e-01,-.9113e-04,-.5971e-06, .1369e-07,
5 .3355e+01, .1572e-01, .3124e-04,-.7227e-06,-.3065e-08,
6 .1836e-03, .7033e-05, .1159e-06, .8377e-09, .1454e-11,
6 .2224e-03, .7273e-05, .1131e-06, .8459e-09, .1919e-11,
6 .2842e-03, .8018e-05, .1078e-06, .8156e-09, .2974e-11,
6 .3578e-03, .8409e-05, .9918e-07, .9200e-09, .5566e-11,
6 .4761e-03, .9757e-05, .1112e-06, .9048e-09, .4223e-11,
6 .7001e-03, .1230e-04, .1202e-06, .9200e-09, .4853e-11,
6 .1070e-02, .1615e-04, .1356e-06, .8988e-09, .4982e-11,
6 .1670e-02, .2175e-04, .2118e-06, .8308e-09,-.5235e-11,
6 .2867e-02, .3094e-04, .3128e-06, .1062e-08,-.1740e-10,
6 .5078e-02, .4146e-04, .2201e-06, .2173e-08, .1018e-10,
6 .1268e-01, .8574e-04, .5023e-08, .2300e-08, .5713e-10,
6 .1782e-01, .1183e-03,-.2202e-06, .1243e-08, .1015e-09,
6 .2465e-01, .1716e-03, .2457e-06,-.7006e-09, .3448e-10,
6 .3488e-01, .2360e-03, .5888e-06,-.2743e-08,-.2513e-10,
6 .4908e-01, .3015e-03, .6790e-06,-.7641e-09,-.8340e-11,
6 .7024e-01, .4330e-03, .1254e-06,-.4474e-08, .1344e-09,
6 .9867e-01, .5750e-03, .1354e-05,-.2647e-08, .1783e-10,
6 .1405e+00, .8124e-03, .2223e-05,-.8179e-08,-.2350e-10,
6 .2012e+00, .1073e-02, .1717e-05,-.3577e-08, .7365e-10,
6 .2881e+00, .1421e-02, .3163e-06,-.2619e-10, .3323e-09,
6 .4140e+00, .1998e-02,-.4646e-05,-.1564e-07, .1167e-08,
6 .5824e+00, .2908e-02, .1571e-05,-.6104e-07, .1503e-09,
6 .8234e+00, .3982e-02, .1217e-04,-.8321e-07,-.1620e-08,
6 .1161e+01, .5635e-02,-.1809e-05,-.1332e-06, .7622e-09,
6 .1580e+01, .7222e-02, .1742e-04,-.8538e-07,-.2236e-08,
6 .2157e+01, .9209e-02, .7728e-04, .1699e-06,-.1484e-07,
6 .3034e+01, .1161e-01,-.3061e-04, .2474e-06, .9425e-09,
6 .4145e+01, .1848e-01,-.1292e-03,-.4064e-06, .1416e-07,
7 .1859e+01, .3596e-01, .2249e-03, .7740e-06, .5548e-08,
7 .1859e+01, .3595e-01, .2250e-03, .7737e-06, .5540e-08,
7 .1862e+01, .3594e-01, .2250e-03, .7736e-06, .5547e-08,
7 .1868e+01, .3591e-01, .2250e-03, .7727e-06, .5579e-08,
7 .1881e+01, .3586e-01, .2249e-03, .7723e-06, .5593e-08,
7 .1907e+01, .3577e-01, .2249e-03, .7715e-06, .5602e-08,
7 .1961e+01, .3561e-01, .2244e-03, .7753e-06, .5656e-08,
7 .2074e+01, .3538e-01, .2202e-03, .8100e-06, .5753e-08,
7 .2291e+01, .3552e-01, .2131e-03, .8077e-06, .5697e-08,
7 .2691e+01, .3629e-01, .1923e-03, .8263e-06, .7823e-08,
7 .3837e+01, .4171e-01, .2318e-03, .4748e-06, .2134e-09,
7 .4603e+01, .4537e-01, .2019e-03, .2121e-06, .5650e-08,
7 .5584e+01, .4905e-01, .2436e-03, .9387e-07,-.7560e-09,
7 .6932e+01, .5393e-01, .2850e-03,-.5594e-07,-.6168e-08,
7 .8784e+01, .5815e-01, .2817e-03, .3880e-08,-.3132e-08,
7 .1133e+02, .6385e-01, .2816e-03,-.2207e-08,-.8458e-09,
7 .1472e+02, .6699e-01, .2921e-03, .8073e-06, .5208e-08,
7 .1938e+02, .7511e-01, .3946e-03, .9819e-06,-.1340e-07,
7 .2578e+02, .8959e-01, .3561e-03, .4072e-06,-.1039e-07,
7 .3443e+02, .1041e+00, .1396e-03, .8264e-06, .2456e-07,
7 .4558e+02, .1281e+00, .1513e-05, .2056e-06, .4055e-07,
7 .5921e+02, .1636e+00, .2197e-03,-.3112e-05, .2104e-07,
7 .7609e+02, .1690e+00, .4969e-03,-.2984e-05, .1778e-07,
7 .9801e+02, .1420e+00, .7225e-03,-.1639e-05, .9396e-08,
7 .1261e+03, .9099e-01, .6717e-03,-.7715e-06, .1406e-07,
7 .1606e+03, .3760e-01, .4798e-03,-.1936e-05, .3780e-07,
7 .1970e+03,-.3002e-01, .8914e-03,-.2502e-05,-.6470e-07,
7 .2324e+03,-.9009e-01, .5400e-03,-.3836e-05, .2394e-07 /
data ((( cs4co2gh(k,j,i), k = 1, 5), j = 1, 28), i = 4, 6) /
9 .3106e+03, .3789e+01, .1315e-01,-.1032e-04,-.2380e-06,
9 .3106e+03, .3789e+01, .1315e-01,-.1032e-04,-.2382e-06,
9 .3107e+03, .3789e+01, .1315e-01,-.1032e-04,-.2382e-06,
9 .3107e+03, .3789e+01, .1315e-01,-.1032e-04,-.2384e-06,
9 .3108e+03, .3788e+01, .1316e-01,-.1032e-04,-.2390e-06,
9 .3111e+03, .3787e+01, .1316e-01,-.1031e-04,-.2399e-06,
9 .3116e+03, .3785e+01, .1317e-01,-.1039e-04,-.2402e-06,
9 .3126e+03, .3782e+01, .1321e-01,-.1074e-04,-.2400e-06,
9 .3147e+03, .3769e+01, .1333e-01,-.1113e-04,-.2476e-06,
9 .3195e+03, .3736e+01, .1356e-01,-.1059e-04,-.2648e-06,
9 .3407e+03, .3604e+01, .1344e-01,-.6494e-05,-.2456e-06,
9 .3568e+03, .3528e+01, .1327e-01,-.4407e-05,-.2455e-06,
9 .3808e+03, .3463e+01, .1225e-01,-.7972e-05,-.1150e-06,
9 .4154e+03, .3399e+01, .1082e-01,-.1475e-04, .8342e-07,
9 .4632e+03, .3343e+01, .9924e-02,-.2614e-04, .1859e-06,
9 .5296e+03, .3218e+01, .1056e-01,-.2754e-04,-.2666e-07,
9 .6223e+03, .3011e+01, .1111e-01,-.2612e-04,-.2235e-06,
9 .7515e+03, .2623e+01, .8792e-02,-.1263e-04, .4169e-07,
9 .9229e+03, .2171e+01, .5870e-02,-.3379e-04, .5465e-06,
9 .1137e+04, .1359e+01, .1132e-01,-.9247e-05,-.6885e-06,
9 .1380e+04, .3588e+00, .1591e-01, .1960e-04,-.1491e-05,
9 .1661e+04,-.7404e+00, .3297e-02, .5616e-04, .6026e-07,
9 .1925e+04,-.1497e+01,-.1163e-01, .6496e-04, .1679e-05,
9 .2079e+04,-.1683e+01, .8887e-03, .3424e-04,-.7037e-06,
9 .2116e+04,-.1808e+01,-.4834e-03, .5323e-04,-.5661e-06,
9 .2021e+04,-.1497e+01,-.8767e-02, .2585e-04, .6580e-06,
9 .1800e+04,-.1066e+01,-.5294e-02,-.6591e-05, .5979e-07,
9 .1514e+04,-.8577e+00,-.6294e-02, .1376e-05, .4686e-06,
1 .1004e+05, .3701e+02,-.2121e+00, .2337e-04, .6442e-05,
1 .1004e+05, .3701e+02,-.2121e+00, .2342e-04, .6445e-05,
1 .1004e+05, .3700e+02,-.2122e+00, .2358e-04, .6449e-05,
1 .1005e+05, .3700e+02,-.2121e+00, .2348e-04, .6444e-05,
1 .1005e+05, .3699e+02,-.2121e+00, .2394e-04, .6445e-05,
1 .1005e+05, .3696e+02,-.2120e+00, .2452e-04, .6437e-05,
1 .1005e+05, .3692e+02,-.2118e+00, .2546e-04, .6417e-05,
1 .1005e+05, .3683e+02,-.2114e+00, .2638e-04, .6387e-05,
1 .1006e+05, .3666e+02,-.2106e+00, .2800e-04, .6349e-05,
1 .1008e+05, .3629e+02,-.2082e+00, .3188e-04, .6160e-05,
1 .1014e+05, .3495e+02,-.1973e+00, .1772e-04, .5490e-05,
1 .1018e+05, .3387e+02,-.1892e+00, .9374e-05, .5074e-05,
1 .1026e+05, .3202e+02,-.1739e+00, .4080e-04, .3796e-05,
1 .1038e+05, .2915e+02,-.1495e+00, .1342e-03, .9346e-06,
1 .1057e+05, .2540e+02,-.1433e+00, .1749e-03, .2146e-05,
1 .1084e+05, .2090e+02,-.1457e+00, .9127e-04, .5907e-05,
1 .1118e+05, .1519e+02,-.1226e+00, .3756e-04, .5643e-05,
1 .1153e+05, .9095e+01,-.6127e-01,-.1002e-03,-.8434e-06,
1 .1189e+05, .2386e+01,-.3310e-01,-.1163e-03,-.1377e-05,
1 .1211e+05,-.3460e+01,-.3022e-01,-.2549e-04,-.9719e-06,
1 .1191e+05,-.6843e+01,-.2360e-01, .1243e-04,-.1637e-05,
1 .1112e+05,-.8022e+01,-.3692e-02, .1088e-03,-.4203e-05,
1 .9758e+04,-.6046e+01,-.2687e-01, .1019e-04, .1080e-05,
1 .8025e+04,-.4508e+01,-.2165e-01,-.4547e-04, .2144e-06,
1 .6315e+04,-.3970e+01,-.2716e-01, .4906e-04, .9580e-06,
1 .4826e+04,-.2805e+01,-.1970e-01, .2687e-04, .8083e-06,
1 .3635e+04,-.2074e+01,-.9353e-02, .3011e-04, .5270e-07,
1 .2713e+04,-.1403e+01,-.1058e-01, .1281e-05, .6842e-06,
3 .6985e+05,-.2115e+03, .2268e+00, .7364e-04, .7621e-06,
3 .6985e+05,-.2115e+03, .2265e+00, .7210e-04, .8286e-06,
3 .6985e+05,-.2114e+03, .2271e+00, .7263e-04, .6978e-06,
3 .6984e+05,-.2114e+03, .2263e+00, .7347e-04, .8246e-06,
3 .6983e+05,-.2114e+03, .2265e+00, .7341e-04, .7366e-06,
3 .6982e+05,-.2113e+03, .2261e+00, .7353e-04, .7504e-06,
3 .6978e+05,-.2111e+03, .2258e+00, .7527e-04, .6827e-06,
3 .6972e+05,-.2107e+03, .2249e+00, .8301e-04, .5403e-06,
3 .6958e+05,-.2098e+03, .2228e+00, .9414e-04, .3334e-06,
3 .6931e+05,-.2081e+03, .2197e+00, .1165e-03,-.2619e-06,
3 .6829e+05,-.2019e+03, .2072e+00, .1918e-03,-.2215e-05,
3 .6755e+05,-.1974e+03, .1981e+00, .2443e-03,-.3552e-05,
3 .6650e+05,-.1910e+03, .1751e+00, .3161e-03,-.3782e-05,
3 .6498e+05,-.1819e+03, .1369e+00, .4156e-03,-.3048e-05,
3 .6283e+05,-.1691e+03, .8353e-01, .4015e-03,-.9199e-07,
3 .5983e+05,-.1526e+03, .3611e-01, .4786e-03, .9860e-07,
3 .5580e+05,-.1321e+03,-.1216e-01, .7124e-03,-.6878e-06,
3 .5068e+05,-.1071e+03,-.1040e+00, .7671e-03, .5274e-05,
3 .4443e+05,-.8005e+02,-.1830e+00, .8093e-03, .1023e-04,
3 .3725e+05,-.5404e+02,-.1553e+00, .4903e-03, .5504e-05,
3 .2989e+05,-.3573e+02,-.1148e+00, .4948e-03, .3327e-05,
3 .2318e+05,-.1986e+02,-.1307e+00,-.4669e-04, .6872e-05,
3 .1741e+05,-.1362e+02,-.6847e-01, .8054e-04, .1737e-05,
3 .1293e+05,-.9536e+01,-.4399e-01, .1075e-03, .1283e-05,
3 .9437e+04,-.5818e+01,-.3847e-01, .8648e-04, .1628e-05,
3 .6724e+04,-.3690e+01,-.1258e-01, .3413e-04,-.8954e-06,
3 .4732e+04,-.2479e+01,-.1892e-01, .1963e-04, .1093e-05,
3 .3299e+04,-.1721e+01,-.6657e-02, .1790e-04,-.3727e-06 /
end block data ckdsw