CrIS Code Collection
jurassic.c
Go to the documentation of this file.
1/*
2 This file is part of JURASSIC.
3
4 JURASSIC is free software: you can redistribute it and/or modify
5 it under the terms of the GNU General Public License as published by
6 the Free Software Foundation, either version 3 of the License, or
7 (at your option) any later version.
8
9 JURASSIC is distributed in the hope that it will be useful,
10 but WITHOUT ANY WARRANTY; without even the implied warranty of
11 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12 GNU General Public License for more details.
13
14 You should have received a copy of the GNU General Public License
15 along with JURASSIC. If not, see <http://www.gnu.org/licenses/>.
16
17 Copyright (C) 2003-2025 Forschungszentrum Juelich GmbH
18*/
19
25#include "jurassic.h"
26
27/*****************************************************************************/
28
29void analyze_avk(
30 const ret_t *ret,
31 const ctl_t *ctl,
32 const atm_t *atm,
33 const int *iqa,
34 const int *ipa,
35 const gsl_matrix *avk) {
36
37 static atm_t atm_cont, atm_res;
38
39 size_t i, n0[NQ], n1[NQ];
40
41 /* Get sizes... */
42 const size_t n = avk->size1;
43
44 /* Find sub-matrices for different quantities... */
45 for (int iq = 0; iq < NQ; iq++) {
46 n0[iq] = N;
47 for (i = 0; i < n; i++) {
48 if (iqa[i] == iq && n0[iq] == N)
49 n0[iq] = i;
50 if (iqa[i] == iq)
51 n1[iq] = i - n0[iq] + 1;
52 }
53 }
54
55 /* Initialize... */
56 copy_atm(ctl, &atm_cont, atm, 1);
57 copy_atm(ctl, &atm_res, atm, 1);
58
59 /* Analyze quantities... */
60 analyze_avk_quantity(avk, IDXP, ipa, n0, n1, atm_cont.p, atm_res.p);
61 analyze_avk_quantity(avk, IDXT, ipa, n0, n1, atm_cont.t, atm_res.t);
62 for (int ig = 0; ig < ctl->ng; ig++)
63 analyze_avk_quantity(avk, IDXQ(ig), ipa, n0, n1,
64 atm_cont.q[ig], atm_res.q[ig]);
65 for (int iw = 0; iw < ctl->nw; iw++)
66 analyze_avk_quantity(avk, IDXK(iw), ipa, n0, n1,
67 atm_cont.k[iw], atm_res.k[iw]);
68 analyze_avk_quantity(avk, IDXCLZ, ipa, n0, n1, &atm_cont.clz, &atm_res.clz);
69 analyze_avk_quantity(avk, IDXCLDZ, ipa, n0, n1, &atm_cont.cldz,
70 &atm_res.cldz);
71 for (int icl = 0; icl < ctl->ncl; icl++)
72 analyze_avk_quantity(avk, IDXCLK(icl), ipa, n0, n1,
73 &atm_cont.clk[icl], &atm_res.clk[icl]);
74 analyze_avk_quantity(avk, IDXSFT, ipa, n0, n1, &atm_cont.sft, &atm_res.sft);
75 for (int isf = 0; isf < ctl->nsf; isf++)
76 analyze_avk_quantity(avk, IDXSFEPS(isf), ipa, n0, n1,
77 &atm_cont.sfeps[isf], &atm_res.sfeps[isf]);
78
79 /* Write results to disk... */
80 write_atm(ret->dir, "atm_cont.tab", ctl, &atm_cont);
81 write_atm(ret->dir, "atm_res.tab", ctl, &atm_res);
82}
83
84/*****************************************************************************/
85
86void analyze_avk_quantity(
87 const gsl_matrix *avk,
88 const int iq,
89 const int *ipa,
90 const size_t *n0,
91 const size_t *n1,
92 double *cont,
93 double *res) {
94
95 /* Loop over state vector elements... */
96 if (n0[iq] < N)
97 for (size_t i = 0; i < n1[iq]; i++) {
98
99 /* Get area of averaging kernel... */
100 for (size_t j = 0; j < n1[iq]; j++)
101 cont[ipa[n0[iq] + i]] += gsl_matrix_get(avk, n0[iq] + i, n0[iq] + j);
102
103 /* Get information density... */
104 res[ipa[n0[iq] + i]] = 1 / gsl_matrix_get(avk, n0[iq] + i, n0[iq] + i);
105 }
106}
107
108/*****************************************************************************/
109
110size_t atm2x(
111 const ctl_t *ctl,
112 const atm_t *atm,
113 gsl_vector *x,
114 int *iqa,
115 int *ipa) {
116
117 size_t n = 0;
118
119 /* Add pressure... */
120 for (int ip = 0; ip < atm->np; ip++)
121 if (atm->z[ip] >= ctl->retp_zmin && atm->z[ip] <= ctl->retp_zmax)
122 atm2x_help(atm->p[ip], IDXP, ip, x, iqa, ipa, &n);
123
124 /* Add temperature... */
125 for (int ip = 0; ip < atm->np; ip++)
126 if (atm->z[ip] >= ctl->rett_zmin && atm->z[ip] <= ctl->rett_zmax)
127 atm2x_help(atm->t[ip], IDXT, ip, x, iqa, ipa, &n);
128
129 /* Add volume mixing ratios... */
130 for (int ig = 0; ig < ctl->ng; ig++)
131 for (int ip = 0; ip < atm->np; ip++)
132 if (atm->z[ip] >= ctl->retq_zmin[ig]
133 && atm->z[ip] <= ctl->retq_zmax[ig])
134 atm2x_help(atm->q[ig][ip], IDXQ(ig), ip, x, iqa, ipa, &n);
135
136 /* Add extinction... */
137 for (int iw = 0; iw < ctl->nw; iw++)
138 for (int ip = 0; ip < atm->np; ip++)
139 if (atm->z[ip] >= ctl->retk_zmin[iw]
140 && atm->z[ip] <= ctl->retk_zmax[iw])
141 atm2x_help(atm->k[iw][ip], IDXK(iw), ip, x, iqa, ipa, &n);
142
143 /* Add cloud parameters... */
144 if (ctl->ret_clz)
145 atm2x_help(atm->clz, IDXCLZ, 0, x, iqa, ipa, &n);
146 if (ctl->ret_cldz)
147 atm2x_help(atm->cldz, IDXCLDZ, 0, x, iqa, ipa, &n);
148 if (ctl->ret_clk)
149 for (int icl = 0; icl < ctl->ncl; icl++)
150 atm2x_help(atm->clk[icl], IDXCLK(icl), 0, x, iqa, ipa, &n);
151
152 /* Add surface parameters... */
153 if (ctl->ret_sft)
154 atm2x_help(atm->sft, IDXSFT, 0, x, iqa, ipa, &n);
155 if (ctl->ret_sfeps)
156 for (int isf = 0; isf < ctl->nsf; isf++)
157 atm2x_help(atm->sfeps[isf], IDXSFEPS(isf), 0, x, iqa, ipa, &n);
158
159 return n;
160}
161
162/*****************************************************************************/
163
164void atm2x_help(
165 const double value,
166 const int value_iqa,
167 const int value_ip,
168 gsl_vector *x,
169 int *iqa,
170 int *ipa,
171 size_t *n) {
172
173 /* Add element to state vector... */
174 if (x != NULL)
175 gsl_vector_set(x, *n, value);
176 if (iqa != NULL)
177 iqa[*n] = value_iqa;
178 if (ipa != NULL)
179 ipa[*n] = value_ip;
180 (*n)++;
181}
182
183/*****************************************************************************/
184
185void cart2geo(
186 const double *x,
187 double *z,
188 double *lon,
189 double *lat) {
190
191 const double radius = NORM(x);
192
193 *lat = RAD2DEG(asin(x[2] / radius));
194 *lon = RAD2DEG(atan2(x[1], x[0]));
195 *z = radius - RE;
196}
197
198/*****************************************************************************/
199
200void climatology(
201 const ctl_t *ctl,
202 atm_t *atm) {
203
204 static const double z[121] = {
205 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19,
206 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37,
207 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55,
208 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73,
209 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91,
210 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107,
211 108, 109, 110, 111, 112, 113, 114, 115, 116, 117, 118, 119, 120
212 };
213
214 static const double pre[121] = {
215 1017, 901.083, 796.45, 702.227, 617.614, 541.644, 473.437, 412.288,
216 357.603, 308.96, 265.994, 228.348, 195.619, 167.351, 143.039, 122.198,
217 104.369, 89.141, 76.1528, 65.0804, 55.641, 47.591, 40.7233, 34.8637,
218 29.8633, 25.5956, 21.9534, 18.8445, 16.1909, 13.9258, 11.9913,
219 10.34, 8.92988, 7.72454, 6.6924, 5.80701, 5.04654, 4.39238, 3.82902,
220 3.34337, 2.92413, 2.56128, 2.2464, 1.97258, 1.73384, 1.52519, 1.34242,
221 1.18197, 1.04086, 0.916546, 0.806832, 0.709875, 0.624101, 0.548176,
222 0.480974, 0.421507, 0.368904, 0.322408, 0.281386, 0.245249, 0.213465,
223 0.185549, 0.161072, 0.139644, 0.120913, 0.104568, 0.0903249, 0.0779269,
224 0.0671493, 0.0577962, 0.0496902, 0.0426736, 0.0366093, 0.0313743,
225 0.0268598, 0.0229699, 0.0196206, 0.0167399, 0.0142646, 0.0121397,
226 0.0103181, 0.00875775, 0.00742226, 0.00628076, 0.00530519, 0.00447183,
227 0.00376124, 0.00315632, 0.00264248, 0.00220738, 0.00184003, 0.00153095,
228 0.00127204, 0.00105608, 0.000876652, 0.00072798, 0.00060492,
229 0.000503201, 0.000419226, 0.000349896, 0.000292659, 0.000245421,
230 0.000206394, 0.000174125, 0.000147441, 0.000125333, 0.000106985,
231 9.173e-05, 7.90172e-05, 6.84172e-05, 5.95574e-05, 5.21183e-05,
232 4.58348e-05, 4.05127e-05, 3.59987e-05, 3.21583e-05, 2.88718e-05,
233 2.60322e-05, 2.35687e-05, 2.14263e-05, 1.95489e-05
234 };
235
236 static const double tem[121] = {
237 285.14, 279.34, 273.91, 268.3, 263.24, 256.55, 250.2, 242.82, 236.17,
238 229.87, 225.04, 221.19, 218.85, 217.19, 216.2, 215.68, 215.42, 215.55,
239 215.92, 216.4, 216.93, 217.45, 218, 218.68, 219.39, 220.25, 221.3,
240 222.41, 223.88, 225.42, 227.2, 229.52, 231.89, 234.51, 236.85, 239.42,
241 241.94, 244.57, 247.36, 250.32, 253.34, 255.82, 258.27, 260.39,
242 262.03, 263.45, 264.2, 264.78, 264.67, 264.38, 263.24, 262.03, 260.02,
243 258.09, 255.63, 253.28, 250.43, 247.81, 245.26, 242.77, 240.38,
244 237.94, 235.79, 233.53, 231.5, 229.53, 227.6, 225.62, 223.77, 222.06,
245 220.33, 218.69, 217.18, 215.64, 214.13, 212.52, 210.86, 209.25,
246 207.49, 205.81, 204.11, 202.22, 200.32, 198.39, 195.92, 193.46,
247 190.94, 188.31, 185.82, 183.57, 181.43, 179.74, 178.64, 178.1, 178.25,
248 178.7, 179.41, 180.67, 182.31, 184.18, 186.6, 189.53, 192.66, 196.54,
249 201.13, 205.93, 211.73, 217.86, 225, 233.53, 242.57, 252.14, 261.48,
250 272.97, 285.26, 299.12, 312.2, 324.17, 338.34, 352.56, 365.28
251 };
252
253 static const double c2h2[121] = {
254 1.352e-09, 2.83e-10, 1.269e-10, 6.926e-11, 4.346e-11, 2.909e-11,
255 2.014e-11, 1.363e-11, 8.71e-12, 5.237e-12, 2.718e-12, 1.375e-12,
256 5.786e-13, 2.16e-13, 7.317e-14, 2.551e-14, 1.055e-14, 4.758e-15,
257 2.056e-15, 7.703e-16, 2.82e-16, 1.035e-16, 4.382e-17, 1.946e-17,
258 9.638e-18, 5.2e-18, 2.811e-18, 1.494e-18, 7.925e-19, 4.213e-19,
259 1.998e-19, 8.78e-20, 3.877e-20, 1.728e-20, 7.743e-21, 3.536e-21,
260 1.623e-21, 7.508e-22, 3.508e-22, 1.65e-22, 7.837e-23, 3.733e-23,
261 1.808e-23, 8.77e-24, 4.285e-24, 2.095e-24, 1.032e-24, 5.082e-25,
262 2.506e-25, 1.236e-25, 6.088e-26, 2.996e-26, 1.465e-26, 0, 0, 0,
263 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
264 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
265 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
266 };
267
268 static const double c2h6[121] = {
269 2.667e-09, 2.02e-09, 1.658e-09, 1.404e-09, 1.234e-09, 1.109e-09,
270 1.012e-09, 9.262e-10, 8.472e-10, 7.71e-10, 6.932e-10, 6.216e-10,
271 5.503e-10, 4.87e-10, 4.342e-10, 3.861e-10, 3.347e-10, 2.772e-10,
272 2.209e-10, 1.672e-10, 1.197e-10, 8.536e-11, 5.783e-11, 3.846e-11,
273 2.495e-11, 1.592e-11, 1.017e-11, 6.327e-12, 3.895e-12, 2.403e-12,
274 1.416e-12, 8.101e-13, 4.649e-13, 2.686e-13, 1.557e-13, 9.14e-14,
275 5.386e-14, 3.19e-14, 1.903e-14, 1.14e-14, 6.875e-15, 4.154e-15,
276 2.538e-15, 1.553e-15, 9.548e-16, 5.872e-16, 3.63e-16, 2.244e-16,
277 1.388e-16, 8.587e-17, 5.308e-17, 3.279e-17, 2.017e-17, 1.238e-17,
278 7.542e-18, 4.585e-18, 2.776e-18, 1.671e-18, 9.985e-19, 5.937e-19,
279 3.518e-19, 2.07e-19, 1.215e-19, 7.06e-20, 4.097e-20, 2.37e-20,
280 1.363e-20, 7.802e-21, 4.441e-21, 2.523e-21, 1.424e-21, 8.015e-22,
281 4.497e-22, 2.505e-22, 1.391e-22, 7.691e-23, 4.238e-23, 2.331e-23,
282 1.274e-23, 6.929e-24, 3.752e-24, 2.02e-24, 1.083e-24, 5.774e-25,
283 3.041e-25, 1.593e-25, 8.308e-26, 4.299e-26, 2.195e-26, 1.112e-26,
284 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
285 0, 0, 0, 0, 0, 0, 0, 0, 0
286 };
287
288 static const double ccl4[121] = {
289 1.075e-10, 1.075e-10, 1.075e-10, 1.075e-10, 1.075e-10, 1.075e-10,
290 1.075e-10, 1.075e-10, 1.075e-10, 1.06e-10, 1.024e-10, 9.69e-11,
291 8.93e-11, 8.078e-11, 7.213e-11, 6.307e-11, 5.383e-11, 4.49e-11,
292 3.609e-11, 2.705e-11, 1.935e-11, 1.385e-11, 8.35e-12, 5.485e-12,
293 3.853e-12, 2.22e-12, 5.875e-13, 3.445e-13, 1.015e-13, 6.075e-14,
294 4.383e-14, 2.692e-14, 1e-14, 1e-14, 1e-14, 1e-14, 1e-14, 1e-14,
295 1e-14, 1e-14, 1e-14, 1e-14, 1e-14, 1e-14, 1e-14, 1e-14, 1e-14, 1e-14,
296 1e-14, 1e-14, 1e-14, 1e-14, 1e-14, 1e-14, 1e-14, 1e-14, 1e-14, 1e-14,
297 1e-14, 1e-14, 1e-14, 1e-14, 1e-14, 1e-14, 1e-14, 1e-14, 1e-14, 1e-14,
298 1e-14, 1e-14, 1e-14, 1e-14, 1e-14, 1e-14, 1e-14, 1e-14, 1e-14, 1e-14,
299 1e-14, 1e-14, 1e-14, 1e-14, 1e-14, 1e-14, 1e-14, 1e-14, 1e-14, 1e-14,
300 1e-14, 1e-14, 1e-14, 1e-14, 1e-14, 1e-14, 1e-14, 1e-14, 1e-14, 1e-14,
301 1e-14, 1e-14, 1e-14, 1e-14, 1e-14, 1e-14, 1e-14, 1e-14, 1e-14, 1e-14,
302 1e-14, 1e-14, 1e-14, 1e-14, 1e-14, 1e-14, 1e-14, 1e-14, 1e-14, 1e-14,
303 1e-14, 1e-14, 1e-14
304 };
305
306 static const double ch3oh[121] = {
307 5.01099e-10, 5.01099e-10, 5.01099e-10, 5.01099e-10, 5.01099e-10,
308 5.01099e-10, 5.50999e-10, 5.7313e-10, 5.75638e-10, 5.4086e-10,
309 4.77601e-10, 4.12907e-10, 3.6274e-10, 3.26448e-10, 2.9706e-10,
310 2.27698e-10, 1.96999e-10, 1.66212e-10, 1.17941e-10, 1.19844e-10,
311 1.11211e-10, 1.02714e-10, 9.86138e-11, 9.45133e-11, 9.04127e-11,
312 8.05243e-11, 6.3678e-11, 4.68317e-11, 4.00618e-11, 3.95786e-11,
313 3.95786e-11, 3.95786e-11, 3.95786e-11, 3.95786e-11, 3.95786e-11,
314 3.95786e-11, 3.95786e-11, 3.95786e-11, 3.95786e-11, 3.95786e-11,
315 3.95786e-11, 3.95786e-11, 3.95786e-11, 3.95786e-11, 3.95786e-11,
316 3.95786e-11, 3.95786e-11, 3.95786e-11, 3.95786e-11, 3.95786e-11,
317 3.95786e-11, 3.95786e-11, 3.95786e-11, 3.95786e-11, 3.95786e-11,
318 3.95786e-11, 3.95786e-11, 3.95786e-11, 3.95786e-11, 3.95786e-11,
319 3.95786e-11, 3.95786e-11, 3.95786e-11, 3.95786e-11, 3.95786e-11,
320 3.95786e-11, 3.95786e-11, 3.95786e-11, 3.95786e-11, 3.95786e-11,
321 3.95786e-11, 3.95786e-11, 3.95786e-11, 3.95786e-11, 3.95786e-11,
322 3.95786e-11, 3.95786e-11, 3.95786e-11, 3.95786e-11, 3.95786e-11,
323 3.95786e-11, 3.95786e-11, 3.95786e-11, 3.95786e-11, 3.95786e-11,
324 3.95786e-11, 3.95786e-11, 3.95786e-11, 3.95786e-11, 3.95786e-11,
325 3.95786e-11, 3.95786e-11, 3.95786e-11, 3.95786e-11, 3.95786e-11,
326 3.95786e-11, 3.95786e-11, 3.95786e-11, 3.95786e-11, 3.95786e-11,
327 3.95786e-11, 3.95786e-11, 3.95786e-11, 3.95786e-11, 3.95786e-11,
328 3.95786e-11, 3.95786e-11, 3.95786e-11, 3.95786e-11, 3.95786e-11,
329 3.95786e-11, 3.95786e-11, 3.95786e-11, 3.95786e-11, 3.95786e-11,
330 3.95786e-11, 3.95786e-11, 3.95786e-11, 3.95786e-11, 3.95786e-11,
331 3.95786e-11
332 };
333
334 static const double ch4[121] = {
335 1.864e-06, 1.835e-06, 1.819e-06, 1.805e-06, 1.796e-06, 1.788e-06,
336 1.782e-06, 1.776e-06, 1.769e-06, 1.761e-06, 1.749e-06, 1.734e-06,
337 1.716e-06, 1.692e-06, 1.654e-06, 1.61e-06, 1.567e-06, 1.502e-06,
338 1.433e-06, 1.371e-06, 1.323e-06, 1.277e-06, 1.232e-06, 1.188e-06,
339 1.147e-06, 1.108e-06, 1.07e-06, 1.027e-06, 9.854e-07, 9.416e-07,
340 8.933e-07, 8.478e-07, 7.988e-07, 7.515e-07, 7.07e-07, 6.64e-07,
341 6.239e-07, 5.864e-07, 5.512e-07, 5.184e-07, 4.87e-07, 4.571e-07,
342 4.296e-07, 4.04e-07, 3.802e-07, 3.578e-07, 3.383e-07, 3.203e-07,
343 3.032e-07, 2.889e-07, 2.76e-07, 2.635e-07, 2.519e-07, 2.409e-07,
344 2.302e-07, 2.219e-07, 2.144e-07, 2.071e-07, 1.999e-07, 1.93e-07,
345 1.862e-07, 1.795e-07, 1.731e-07, 1.668e-07, 1.607e-07, 1.548e-07,
346 1.49e-07, 1.434e-07, 1.38e-07, 1.328e-07, 1.277e-07, 1.227e-07,
347 1.18e-07, 1.134e-07, 1.089e-07, 1.046e-07, 1.004e-07, 9.635e-08,
348 9.245e-08, 8.867e-08, 8.502e-08, 8.15e-08, 7.809e-08, 7.48e-08,
349 7.159e-08, 6.849e-08, 6.55e-08, 6.262e-08, 5.98e-08, 5.708e-08,
350 5.448e-08, 5.194e-08, 4.951e-08, 4.72e-08, 4.5e-08, 4.291e-08,
351 4.093e-08, 3.905e-08, 3.729e-08, 3.563e-08, 3.408e-08, 3.265e-08,
352 3.128e-08, 2.996e-08, 2.87e-08, 2.76e-08, 2.657e-08, 2.558e-08,
353 2.467e-08, 2.385e-08, 2.307e-08, 2.234e-08, 2.168e-08, 2.108e-08,
354 2.05e-08, 1.998e-08, 1.947e-08, 1.902e-08, 1.86e-08, 1.819e-08,
355 1.782e-08
356 };
357
358 static const double clo[121] = {
359 7.419e-15, 1.061e-14, 1.518e-14, 2.195e-14, 3.175e-14, 4.666e-14,
360 6.872e-14, 1.03e-13, 1.553e-13, 2.375e-13, 3.664e-13, 5.684e-13,
361 8.915e-13, 1.402e-12, 2.269e-12, 4.125e-12, 7.501e-12, 1.257e-11,
362 2.048e-11, 3.338e-11, 5.44e-11, 8.846e-11, 1.008e-10, 1.082e-10,
363 1.157e-10, 1.232e-10, 1.312e-10, 1.539e-10, 1.822e-10, 2.118e-10,
364 2.387e-10, 2.687e-10, 2.875e-10, 3.031e-10, 3.23e-10, 3.648e-10,
365 4.117e-10, 4.477e-10, 4.633e-10, 4.794e-10, 4.95e-10, 5.104e-10,
366 5.259e-10, 5.062e-10, 4.742e-10, 4.443e-10, 4.051e-10, 3.659e-10,
367 3.305e-10, 2.911e-10, 2.54e-10, 2.215e-10, 1.927e-10, 1.675e-10,
368 1.452e-10, 1.259e-10, 1.09e-10, 9.416e-11, 8.119e-11, 6.991e-11,
369 6.015e-11, 5.163e-11, 4.43e-11, 3.789e-11, 3.24e-11, 2.769e-11,
370 2.361e-11, 2.011e-11, 1.71e-11, 1.453e-11, 1.233e-11, 1.045e-11,
371 8.851e-12, 7.48e-12, 6.316e-12, 5.326e-12, 4.487e-12, 3.778e-12,
372 3.176e-12, 2.665e-12, 2.234e-12, 1.87e-12, 1.563e-12, 1.304e-12,
373 1.085e-12, 9.007e-13, 7.468e-13, 6.179e-13, 5.092e-13, 4.188e-13,
374 3.442e-13, 2.816e-13, 2.304e-13, 1.885e-13, 1.542e-13, 1.263e-13,
375 1.035e-13, 8.5e-14, 7.004e-14, 5.783e-14, 4.795e-14, 4.007e-14,
376 3.345e-14, 2.792e-14, 2.33e-14, 1.978e-14, 1.686e-14, 1.438e-14,
377 1.234e-14, 1.07e-14, 9.312e-15, 8.131e-15, 7.164e-15, 6.367e-15,
378 5.67e-15, 5.088e-15, 4.565e-15, 4.138e-15, 3.769e-15, 3.432e-15,
379 3.148e-15
380 };
381
382 static const double clono2[121] = {
383 1.011e-13, 1.515e-13, 2.272e-13, 3.446e-13, 5.231e-13, 8.085e-13,
384 1.253e-12, 1.979e-12, 3.149e-12, 5.092e-12, 8.312e-12, 1.366e-11,
385 2.272e-11, 3.791e-11, 6.209e-11, 9.101e-11, 1.334e-10, 1.951e-10,
386 2.853e-10, 3.94e-10, 4.771e-10, 5.771e-10, 6.675e-10, 7.665e-10,
387 8.504e-10, 8.924e-10, 9.363e-10, 8.923e-10, 8.411e-10, 7.646e-10,
388 6.525e-10, 5.576e-10, 4.398e-10, 3.403e-10, 2.612e-10, 1.915e-10,
389 1.407e-10, 1.028e-10, 7.455e-11, 5.42e-11, 3.708e-11, 2.438e-11,
390 1.618e-11, 1.075e-11, 7.17e-12, 4.784e-12, 3.205e-12, 2.147e-12,
391 1.44e-12, 9.654e-13, 6.469e-13, 4.332e-13, 2.891e-13, 1.926e-13,
392 1.274e-13, 8.422e-14, 5.547e-14, 3.636e-14, 2.368e-14, 1.536e-14,
393 9.937e-15, 6.39e-15, 4.101e-15, 2.61e-15, 1.659e-15, 1.052e-15,
394 6.638e-16, 4.172e-16, 2.61e-16, 1.63e-16, 1.013e-16, 6.275e-17,
395 3.879e-17, 2.383e-17, 1.461e-17, 8.918e-18, 5.43e-18, 3.301e-18,
396 1.997e-18, 1.203e-18, 7.216e-19, 4.311e-19, 2.564e-19, 1.519e-19,
397 8.911e-20, 5.203e-20, 3.026e-20, 1.748e-20, 9.99e-21, 5.673e-21,
398 3.215e-21, 1.799e-21, 1.006e-21, 5.628e-22, 3.146e-22, 1.766e-22,
399 9.94e-23, 5.614e-23, 3.206e-23, 1.841e-23, 1.071e-23, 6.366e-24,
400 3.776e-24, 2.238e-24, 1.326e-24, 8.253e-25, 5.201e-25, 3.279e-25,
401 2.108e-25, 1.395e-25, 9.326e-26, 6.299e-26, 4.365e-26, 3.104e-26,
402 2.219e-26, 1.621e-26, 1.185e-26, 8.92e-27, 6.804e-27, 5.191e-27,
403 4.041e-27
404 };
405
406 static const double co[121] = {
407 1.907e-07, 1.553e-07, 1.362e-07, 1.216e-07, 1.114e-07, 1.036e-07,
408 9.737e-08, 9.152e-08, 8.559e-08, 7.966e-08, 7.277e-08, 6.615e-08,
409 5.884e-08, 5.22e-08, 4.699e-08, 4.284e-08, 3.776e-08, 3.274e-08,
410 2.845e-08, 2.479e-08, 2.246e-08, 2.054e-08, 1.991e-08, 1.951e-08,
411 1.94e-08, 2.009e-08, 2.1e-08, 2.201e-08, 2.322e-08, 2.45e-08,
412 2.602e-08, 2.73e-08, 2.867e-08, 2.998e-08, 3.135e-08, 3.255e-08,
413 3.352e-08, 3.426e-08, 3.484e-08, 3.53e-08, 3.593e-08, 3.671e-08,
414 3.759e-08, 3.945e-08, 4.192e-08, 4.49e-08, 5.03e-08, 5.703e-08,
415 6.538e-08, 7.878e-08, 9.644e-08, 1.196e-07, 1.498e-07, 1.904e-07,
416 2.422e-07, 3.055e-07, 3.804e-07, 4.747e-07, 5.899e-07, 7.272e-07,
417 8.91e-07, 1.071e-06, 1.296e-06, 1.546e-06, 1.823e-06, 2.135e-06,
418 2.44e-06, 2.714e-06, 2.967e-06, 3.189e-06, 3.391e-06, 3.58e-06,
419 3.773e-06, 4.022e-06, 4.346e-06, 4.749e-06, 5.199e-06, 5.668e-06,
420 6.157e-06, 6.688e-06, 7.254e-06, 7.867e-06, 8.539e-06, 9.26e-06,
421 1.009e-05, 1.119e-05, 1.228e-05, 1.365e-05, 1.506e-05, 1.641e-05,
422 1.784e-05, 1.952e-05, 2.132e-05, 2.323e-05, 2.531e-05, 2.754e-05,
423 3.047e-05, 3.459e-05, 3.922e-05, 4.439e-05, 4.825e-05, 5.077e-05,
424 5.34e-05, 5.618e-05, 5.909e-05, 6.207e-05, 6.519e-05, 6.845e-05,
425 6.819e-05, 6.726e-05, 6.622e-05, 6.512e-05, 6.671e-05, 6.862e-05,
426 7.048e-05, 7.264e-05, 7.3e-05, 7.3e-05, 7.3e-05, 7.3e-05, 7.3e-05
427 };
428
429 static const double cof2[121] = {
430 7.5e-14, 1.055e-13, 1.485e-13, 2.111e-13, 3.001e-13, 4.333e-13,
431 6.269e-13, 9.221e-13, 1.364e-12, 2.046e-12, 3.093e-12, 4.703e-12,
432 7.225e-12, 1.113e-11, 1.66e-11, 2.088e-11, 2.626e-11, 3.433e-11,
433 4.549e-11, 5.886e-11, 7.21e-11, 8.824e-11, 1.015e-10, 1.155e-10,
434 1.288e-10, 1.388e-10, 1.497e-10, 1.554e-10, 1.606e-10, 1.639e-10,
435 1.64e-10, 1.64e-10, 1.596e-10, 1.542e-10, 1.482e-10, 1.382e-10,
436 1.289e-10, 1.198e-10, 1.109e-10, 1.026e-10, 9.484e-11, 8.75e-11,
437 8.086e-11, 7.49e-11, 6.948e-11, 6.446e-11, 5.961e-11, 5.505e-11,
438 5.085e-11, 4.586e-11, 4.1e-11, 3.665e-11, 3.235e-11, 2.842e-11,
439 2.491e-11, 2.11e-11, 1.769e-11, 1.479e-11, 1.197e-11, 9.631e-12,
440 7.74e-12, 6.201e-12, 4.963e-12, 3.956e-12, 3.151e-12, 2.507e-12,
441 1.99e-12, 1.576e-12, 1.245e-12, 9.83e-13, 7.742e-13, 6.088e-13,
442 4.782e-13, 3.745e-13, 2.929e-13, 2.286e-13, 1.782e-13, 1.388e-13,
443 1.079e-13, 8.362e-14, 6.471e-14, 4.996e-14, 3.85e-14, 2.96e-14,
444 2.265e-14, 1.729e-14, 1.317e-14, 9.998e-15, 7.549e-15, 5.683e-15,
445 4.273e-15, 3.193e-15, 2.385e-15, 1.782e-15, 1.331e-15, 9.957e-16,
446 7.461e-16, 5.601e-16, 4.228e-16, 3.201e-16, 2.438e-16, 1.878e-16,
447 1.445e-16, 1.111e-16, 8.544e-17, 6.734e-17, 5.341e-17, 4.237e-17,
448 3.394e-17, 2.759e-17, 2.254e-17, 1.851e-17, 1.54e-17, 1.297e-17,
449 1.096e-17, 9.365e-18, 8e-18, 6.938e-18, 6.056e-18, 5.287e-18,
450 4.662e-18
451 };
452
453 static const double f11[121] = {
454 2.65e-10, 2.65e-10, 2.65e-10, 2.65e-10, 2.65e-10, 2.65e-10, 2.65e-10,
455 2.65e-10, 2.65e-10, 2.65e-10, 2.65e-10, 2.65e-10, 2.635e-10, 2.536e-10,
456 2.44e-10, 2.348e-10, 2.258e-10, 2.153e-10, 2.046e-10, 1.929e-10,
457 1.782e-10, 1.648e-10, 1.463e-10, 1.291e-10, 1.1e-10, 8.874e-11,
458 7.165e-11, 5.201e-11, 3.744e-11, 2.577e-11, 1.64e-11, 1.048e-11,
459 5.993e-12, 3.345e-12, 1.839e-12, 9.264e-13, 4.688e-13, 2.329e-13,
460 1.129e-13, 5.505e-14, 2.825e-14, 1.492e-14, 7.997e-15, 5.384e-15,
461 3.988e-15, 2.955e-15, 2.196e-15, 1.632e-15, 1.214e-15, 9.025e-16,
462 6.708e-16, 4.984e-16, 3.693e-16, 2.733e-16, 2.013e-16, 1.481e-16,
463 1.087e-16, 7.945e-17, 5.782e-17, 4.195e-17, 3.038e-17, 2.19e-17,
464 1.577e-17, 1.128e-17, 8.063e-18, 5.753e-18, 4.09e-18, 2.899e-18,
465 2.048e-18, 1.444e-18, 1.015e-18, 7.12e-19, 4.985e-19, 3.474e-19,
466 2.417e-19, 1.677e-19, 1.161e-19, 8.029e-20, 5.533e-20, 3.799e-20,
467 2.602e-20, 1.776e-20, 1.209e-20, 8.202e-21, 5.522e-21, 3.707e-21,
468 2.48e-21, 1.652e-21, 1.091e-21, 7.174e-22, 4.709e-22, 3.063e-22,
469 1.991e-22, 1.294e-22, 8.412e-23, 5.483e-23, 3.581e-23, 2.345e-23,
470 1.548e-23, 1.027e-23, 6.869e-24, 4.673e-24, 3.173e-24, 2.153e-24,
471 1.461e-24, 1.028e-24, 7.302e-25, 5.188e-25, 3.739e-25, 2.753e-25,
472 2.043e-25, 1.528e-25, 1.164e-25, 9.041e-26, 7.051e-26, 5.587e-26,
473 4.428e-26, 3.588e-26, 2.936e-26, 2.402e-26, 1.995e-26
474 };
475
476 static const double f113[121] = {
477 1.9e-11, 1.9e-11, 1.899e-11, 1.899e-11, 1.898e-11, 1.898e-11,
478 1.897e-11, 1.896e-11, 1.895e-11, 1.894e-11, 1.893e-11, 1.89e-11,
479 1.887e-11, 1.871e-11, 1.854e-11, 1.803e-11, 1.751e-11, 1.664e-11,
480 1.576e-11, 1.466e-11, 1.356e-11, 1.236e-11, 1.116e-11, 9.931e-12,
481 8.702e-12, 7.515e-12, 6.4238e-12, 5.3326e-12, 4.3652e-12, 3.5216e-12,
482 2.678e-12, 2.1532e-12, 1.6284e-12, 1.2202e-12, 9.286e-13, 6.37e-13,
483 4.95e-13, 3.53e-13, 2.5004e-13, 1.8612e-13, 1.222e-13, 9.704e-14,
484 7.188e-14, 5.3338e-14, 4.1414e-14, 2.949e-14, 2.3722e-14, 1.7954e-14,
485 1.37794e-14, 1.11982e-14, 8.617e-15, 7.6036e-15, 6.5902e-15,
486 5.5768e-15, 4.5634e-15, 3.55e-15, 3.1008e-15, 2.6516e-15, 2.2024e-15,
487 1.7532e-15, 1.304e-15, 1.1354e-15, 9.668e-16, 7.982e-16, 6.296e-16,
488 4.61e-16, 3.9734e-16, 3.3368e-16, 2.7002e-16, 2.0636e-16, 1.427e-16,
489 1.22804e-16, 1.02908e-16, 8.3012e-17, 6.3116e-17, 4.322e-17,
490 3.6838e-17, 3.0456e-17, 2.4074e-17, 1.7692e-17, 1.131e-17,
491 9.6202e-18, 7.9304e-18, 6.2406e-18, 4.5508e-18, 2.861e-18,
492 2.40476e-18, 1.94852e-18, 1.49228e-18, 1.03604e-18, 5.798e-19,
493 4.8502e-19, 3.9024e-19, 2.9546e-19, 2.0068e-19, 1.059e-19,
494 8.7084e-20, 6.8268e-20, 4.9452e-20, 3.0636e-20, 1.182e-20,
495 9.64344e-21, 7.46688e-21, 5.29032e-21, 3.11376e-21, 9.372e-22,
496 7.5685e-22, 5.765e-22, 3.9615e-22, 2.158e-22, 3.545e-23,
497 2.86046e-23, 2.17592e-23, 1.49138e-23, 8.0684e-24, 1.223e-24,
498 9.92358e-25, 7.61716e-25, 5.31074e-25, 3.00432e-25, 6.979e-26
499 };
500
501 static const double f114[121] = {
502 1.2e-11, 1.2e-11, 1.2e-11, 1.2e-11, 1.199e-11, 1.199e-11,
503 1.199e-11, 1.199e-11, 1.198e-11, 1.198e-11, 1.198e-11, 1.197e-11,
504 1.196e-11, 1.191e-11, 1.185e-11, 1.167e-11, 1.149e-11, 1.12e-11,
505 1.09e-11, 1.053e-11, 1.015e-11, 9.731e-12, 9.311e-12, 8.865e-12,
506 8.419e-12, 7.949e-12, 7.4774e-12, 7.0058e-12, 6.54e-12, 6.08e-12,
507 5.62e-12, 5.1908e-12, 4.7616e-12, 4.3622e-12, 3.9926e-12, 3.623e-12,
508 3.3274e-12, 3.0318e-12, 2.7702e-12, 2.5426e-12, 2.315e-12, 2.1514e-12,
509 1.9878e-12, 1.8448e-12, 1.7224e-12, 1.6e-12, 1.51e-12, 1.42e-12,
510 1.3462e-12, 1.2886e-12, 1.231e-12, 1.1922e-12, 1.1534e-12, 1.1146e-12,
511 1.0758e-12, 1.037e-12, 1.0025e-12, 9.68e-13, 9.335e-13, 8.99e-13,
512 8.645e-13, 8.344e-13, 8.043e-13, 7.742e-13, 7.441e-13, 7.14e-13,
513 6.8718e-13, 6.6036e-13, 6.3354e-13, 6.0672e-13, 5.799e-13, 5.5612e-13,
514 5.3234e-13, 5.0856e-13, 4.8478e-13, 4.61e-13, 4.394e-13, 4.178e-13,
515 3.962e-13, 3.746e-13, 3.53e-13, 3.3288e-13, 3.1276e-13, 2.9264e-13,
516 2.7252e-13, 2.524e-13, 2.3368e-13, 2.1496e-13, 1.9624e-13, 1.7752e-13,
517 1.588e-13, 1.4221e-13, 1.2562e-13, 1.0903e-13, 9.244e-14, 7.585e-14,
518 6.4942e-14, 5.4034e-14, 4.3126e-14, 3.2218e-14, 2.131e-14, 1.76694e-14,
519 1.40288e-14, 1.03882e-14, 6.7476e-15, 3.107e-15, 2.52738e-15,
520 1.94776e-15, 1.36814e-15, 7.8852e-16, 2.089e-16, 1.69288e-16,
521 1.29676e-16, 9.0064e-17, 5.0452e-17, 1.084e-17, 8.85136e-18,
522 6.86272e-18, 4.87408e-18, 2.88544e-18, 8.968e-19
523 };
524
525 static const double f12[121] = {
526 5.45e-10, 5.45e-10, 5.45e-10, 5.45e-10, 5.45e-10, 5.45e-10, 5.45e-10,
527 5.45e-10, 5.45e-10, 5.45e-10, 5.45e-10, 5.45e-10, 5.429e-10, 5.291e-10,
528 5.155e-10, 5.022e-10, 4.893e-10, 4.772e-10, 4.655e-10, 4.497e-10,
529 4.249e-10, 4.015e-10, 3.632e-10, 3.261e-10, 2.858e-10, 2.408e-10,
530 2.03e-10, 1.685e-10, 1.4e-10, 1.163e-10, 9.65e-11, 8.02e-11, 6.705e-11,
531 5.624e-11, 4.764e-11, 4.249e-11, 3.792e-11, 3.315e-11, 2.819e-11,
532 2.4e-11, 1.999e-11, 1.64e-11, 1.352e-11, 1.14e-11, 9.714e-12,
533 8.28e-12, 7.176e-12, 6.251e-12, 5.446e-12, 4.72e-12, 4.081e-12,
534 3.528e-12, 3.08e-12, 2.699e-12, 2.359e-12, 2.111e-12, 1.901e-12,
535 1.709e-12, 1.534e-12, 1.376e-12, 1.233e-12, 1.103e-12, 9.869e-13,
536 8.808e-13, 7.859e-13, 7.008e-13, 6.241e-13, 5.553e-13, 4.935e-13,
537 4.383e-13, 3.889e-13, 3.447e-13, 3.054e-13, 2.702e-13, 2.389e-13,
538 2.11e-13, 1.862e-13, 1.643e-13, 1.448e-13, 1.274e-13, 1.121e-13,
539 9.844e-14, 8.638e-14, 7.572e-14, 6.62e-14, 5.782e-14, 5.045e-14,
540 4.394e-14, 3.817e-14, 3.311e-14, 2.87e-14, 2.48e-14, 2.142e-14,
541 1.851e-14, 1.599e-14, 1.383e-14, 1.196e-14, 1.036e-14, 9e-15,
542 7.828e-15, 6.829e-15, 5.992e-15, 5.254e-15, 4.606e-15, 4.037e-15,
543 3.583e-15, 3.19e-15, 2.841e-15, 2.542e-15, 2.291e-15, 2.07e-15,
544 1.875e-15, 1.71e-15, 1.57e-15, 1.442e-15, 1.333e-15, 1.232e-15,
545 1.147e-15, 1.071e-15, 1.001e-15, 9.396e-16
546 };
547
548 static const double f14[121] = {
549 9e-11, 9e-11, 9e-11, 9e-11, 9e-11, 9e-11, 9e-11, 9e-11, 9e-11, 9e-11,
550 9e-11, 9e-11, 9e-11, 9e-11, 9e-11, 8.91e-11, 8.73e-11, 8.46e-11,
551 8.19e-11, 7.92e-11, 7.74e-11, 7.65e-11, 7.65e-11, 7.65e-11, 7.65e-11,
552 7.65e-11, 7.65e-11, 7.65e-11, 7.65e-11, 7.65e-11, 7.65e-11, 7.65e-11,
553 7.65e-11, 7.65e-11, 7.65e-11, 7.65e-11, 7.65e-11, 7.65e-11, 7.65e-11,
554 7.65e-11, 7.65e-11, 7.65e-11, 7.65e-11, 7.65e-11, 7.65e-11, 7.65e-11,
555 7.65e-11, 7.65e-11, 7.65e-11, 7.65e-11, 7.65e-11, 7.65e-11, 7.65e-11,
556 7.65e-11, 7.65e-11, 7.65e-11, 7.65e-11, 7.65e-11, 7.65e-11, 7.65e-11,
557 7.65e-11, 7.65e-11, 7.65e-11, 7.65e-11, 7.65e-11, 7.65e-11, 7.65e-11,
558 7.65e-11, 7.65e-11, 7.65e-11, 7.65e-11, 7.65e-11, 7.65e-11, 7.65e-11,
559 7.65e-11, 7.65e-11, 7.65e-11, 7.65e-11, 7.65e-11, 7.65e-11, 7.65e-11,
560 7.65e-11, 7.65e-11, 7.65e-11, 7.65e-11, 7.65e-11, 7.65e-11, 7.65e-11,
561 7.65e-11, 7.65e-11, 7.65e-11, 7.65e-11, 7.65e-11, 7.65e-11, 7.65e-11,
562 7.65e-11, 7.65e-11, 7.65e-11, 7.65e-11, 7.65e-11, 7.65e-11, 7.65e-11,
563 7.65e-11, 7.65e-11, 7.65e-11, 7.65e-11, 7.65e-11, 7.65e-11, 7.65e-11,
564 7.65e-11, 7.65e-11, 7.65e-11, 7.65e-11, 7.65e-11, 7.65e-11, 7.65e-11,
565 7.65e-11, 7.65e-11, 7.65e-11, 7.65e-11, 7.65e-11
566 };
567
568 static const double f22[121] = {
569 1.4e-10, 1.4e-10, 1.4e-10, 1.4e-10, 1.4e-10, 1.4e-10, 1.4e-10,
570 1.4e-10, 1.4e-10, 1.4e-10, 1.372e-10, 1.317e-10, 1.235e-10, 1.153e-10,
571 1.075e-10, 1.002e-10, 9.332e-11, 8.738e-11, 8.194e-11, 7.7e-11,
572 7.165e-11, 6.753e-11, 6.341e-11, 5.971e-11, 5.6e-11, 5.229e-11,
573 4.859e-11, 4.488e-11, 4.118e-11, 3.83e-11, 3.568e-11, 3.308e-11,
574 3.047e-11, 2.82e-11, 2.594e-11, 2.409e-11, 2.237e-11, 2.065e-11,
575 1.894e-11, 1.771e-11, 1.647e-11, 1.532e-11, 1.416e-11, 1.332e-11,
576 1.246e-11, 1.161e-11, 1.087e-11, 1.017e-11, 9.471e-12, 8.853e-12,
577 8.235e-12, 7.741e-12, 7.247e-12, 6.836e-12, 6.506e-12, 6.176e-12,
578 5.913e-12, 5.65e-12, 5.419e-12, 5.221e-12, 5.024e-12, 4.859e-12,
579 4.694e-12, 4.546e-12, 4.414e-12, 4.282e-12, 4.15e-12, 4.019e-12,
580 3.903e-12, 3.805e-12, 3.706e-12, 3.607e-12, 3.508e-12, 3.41e-12,
581 3.31e-12, 3.212e-12, 3.129e-12, 3.047e-12, 2.964e-12, 2.882e-12,
582 2.8e-12, 2.734e-12, 2.668e-12, 2.602e-12, 2.537e-12, 2.471e-12,
583 2.421e-12, 2.372e-12, 2.322e-12, 2.273e-12, 2.224e-12, 2.182e-12,
584 2.141e-12, 2.1e-12, 2.059e-12, 2.018e-12, 1.977e-12, 1.935e-12,
585 1.894e-12, 1.853e-12, 1.812e-12, 1.77e-12, 1.73e-12, 1.688e-12,
586 1.647e-12, 1.606e-12, 1.565e-12, 1.524e-12, 1.483e-12, 1.441e-12,
587 1.4e-12, 1.359e-12, 1.317e-12, 1.276e-12, 1.235e-12, 1.194e-12,
588 1.153e-12, 1.112e-12, 1.071e-12, 1.029e-12, 9.883e-13
589 };
590
591 static const double h2co[121] = {
592 8.71857e-11, 8.71857e-11, 8.71857e-11, 8.71857e-11, 8.71857e-11,
593 8.71857e-11, 7.72315e-11, 6.85464e-11, 6.0758e-11, 5.32087e-11,
594 4.5719e-11, 3.79458e-11, 3.07607e-11, 2.46025e-11, 1.94038e-11,
595 1.40882e-11, 1.0623e-11, 8.35457e-12, 6.87427e-12, 7.09071e-12,
596 8.96183e-12, 1.09012e-11, 1.50545e-11, 1.92077e-11, 2.3361e-11,
597 2.7054e-11, 3.01936e-11, 3.33333e-11, 3.69281e-11, 4.08069e-11,
598 4.57318e-11, 5.1348e-11, 5.69642e-11, 6.33173e-11, 6.98984e-11,
599 7.63144e-11, 8.22774e-11, 8.82405e-11, 9.3746e-11, 9.92074e-11,
600 1.04669e-10, 1.10055e-10, 1.15293e-10, 1.20531e-10, 1.26293e-10,
601 1.32585e-10, 1.35966e-10, 1.36242e-10, 1.36519e-10, 1.61155e-10,
602 1.99157e-10, 1.99157e-10, 1.99157e-10, 1.99157e-10, 1.99157e-10,
603 1.99157e-10, 1.99157e-10, 1.99157e-10, 1.99157e-10, 1.99157e-10,
604 1.99157e-10, 1.99157e-10, 1.99157e-10, 1.99157e-10, 1.99157e-10,
605 1.99157e-10, 1.99157e-10, 1.99157e-10, 1.99157e-10, 1.99157e-10,
606 1.99157e-10, 1.99157e-10, 1.99157e-10, 1.99157e-10, 1.99157e-10,
607 1.99157e-10, 1.99157e-10, 1.99157e-10, 1.99157e-10, 1.99157e-10,
608 1.99157e-10, 1.99157e-10, 1.99157e-10, 1.99157e-10, 1.99157e-10,
609 1.99157e-10, 1.99157e-10, 1.99157e-10, 1.99157e-10, 1.99157e-10,
610 1.99157e-10, 1.99157e-10, 1.99157e-10, 1.99157e-10, 1.99157e-10,
611 1.99157e-10, 1.99157e-10, 1.99157e-10, 1.99157e-10, 1.99157e-10,
612 1.99157e-10, 1.99157e-10, 1.99157e-10, 1.99157e-10, 1.99157e-10,
613 1.99157e-10, 1.99157e-10, 1.99157e-10, 1.99157e-10, 1.99157e-10,
614 1.99157e-10, 1.99157e-10, 1.99157e-10, 1.99157e-10, 1.99157e-10,
615 1.99157e-10, 1.99157e-10, 1.99157e-10, 1.99157e-10, 1.99157e-10,
616 1.99157e-10
617 };
618
619 static const double h2o[121] = {
620 0.01166, 0.008269, 0.005742, 0.003845, 0.00277, 0.001897, 0.001272,
621 0.000827, 0.000539, 0.0003469, 0.0001579, 3.134e-05, 1.341e-05,
622 6.764e-06, 4.498e-06, 3.703e-06, 3.724e-06, 3.899e-06, 4.002e-06,
623 4.122e-06, 4.277e-06, 4.438e-06, 4.558e-06, 4.673e-06, 4.763e-06,
624 4.809e-06, 4.856e-06, 4.936e-06, 5.021e-06, 5.114e-06, 5.222e-06,
625 5.331e-06, 5.414e-06, 5.488e-06, 5.563e-06, 5.633e-06, 5.704e-06,
626 5.767e-06, 5.819e-06, 5.872e-06, 5.914e-06, 5.949e-06, 5.984e-06,
627 6.015e-06, 6.044e-06, 6.073e-06, 6.104e-06, 6.136e-06, 6.167e-06,
628 6.189e-06, 6.208e-06, 6.226e-06, 6.212e-06, 6.185e-06, 6.158e-06,
629 6.114e-06, 6.066e-06, 6.018e-06, 5.877e-06, 5.728e-06, 5.582e-06,
630 5.437e-06, 5.296e-06, 5.156e-06, 5.02e-06, 4.886e-06, 4.754e-06,
631 4.625e-06, 4.498e-06, 4.374e-06, 4.242e-06, 4.096e-06, 3.955e-06,
632 3.817e-06, 3.683e-06, 3.491e-06, 3.204e-06, 2.94e-06, 2.696e-06,
633 2.47e-06, 2.252e-06, 2.019e-06, 1.808e-06, 1.618e-06, 1.445e-06,
634 1.285e-06, 1.105e-06, 9.489e-07, 8.121e-07, 6.938e-07, 5.924e-07,
635 5.04e-07, 4.288e-07, 3.648e-07, 3.103e-07, 2.642e-07, 2.252e-07,
636 1.921e-07, 1.643e-07, 1.408e-07, 1.211e-07, 1.048e-07, 9.063e-08,
637 7.835e-08, 6.774e-08, 5.936e-08, 5.221e-08, 4.592e-08, 4.061e-08,
638 3.62e-08, 3.236e-08, 2.902e-08, 2.62e-08, 2.383e-08, 2.171e-08,
639 1.989e-08, 1.823e-08, 1.684e-08, 1.562e-08, 1.449e-08, 1.351e-08
640 };
641
642 static const double h2o2[121] = {
643 1.779e-10, 7.938e-10, 8.953e-10, 8.032e-10, 6.564e-10, 5.159e-10,
644 4.003e-10, 3.026e-10, 2.222e-10, 1.58e-10, 1.044e-10, 6.605e-11,
645 3.413e-11, 1.453e-11, 1.062e-11, 1.009e-11, 9.597e-12, 1.175e-11,
646 1.572e-11, 2.091e-11, 2.746e-11, 3.603e-11, 4.791e-11, 6.387e-11,
647 8.239e-11, 1.007e-10, 1.23e-10, 1.363e-10, 1.489e-10, 1.585e-10,
648 1.608e-10, 1.632e-10, 1.576e-10, 1.502e-10, 1.423e-10, 1.302e-10,
649 1.192e-10, 1.085e-10, 9.795e-11, 8.854e-11, 8.057e-11, 7.36e-11,
650 6.736e-11, 6.362e-11, 6.087e-11, 5.825e-11, 5.623e-11, 5.443e-11,
651 5.27e-11, 5.098e-11, 4.931e-11, 4.769e-11, 4.611e-11, 4.458e-11,
652 4.308e-11, 4.102e-11, 3.887e-11, 3.682e-11, 3.521e-11, 3.369e-11,
653 3.224e-11, 3.082e-11, 2.946e-11, 2.814e-11, 2.687e-11, 2.566e-11,
654 2.449e-11, 2.336e-11, 2.227e-11, 2.123e-11, 2.023e-11, 1.927e-11,
655 1.835e-11, 1.746e-11, 1.661e-11, 1.58e-11, 1.502e-11, 1.428e-11,
656 1.357e-11, 1.289e-11, 1.224e-11, 1.161e-11, 1.102e-11, 1.045e-11,
657 9.895e-12, 9.369e-12, 8.866e-12, 8.386e-12, 7.922e-12, 7.479e-12,
658 7.06e-12, 6.656e-12, 6.274e-12, 5.914e-12, 5.575e-12, 5.257e-12,
659 4.959e-12, 4.679e-12, 4.42e-12, 4.178e-12, 3.954e-12, 3.75e-12,
660 3.557e-12, 3.372e-12, 3.198e-12, 3.047e-12, 2.908e-12, 2.775e-12,
661 2.653e-12, 2.544e-12, 2.442e-12, 2.346e-12, 2.26e-12, 2.183e-12,
662 2.11e-12, 2.044e-12, 1.98e-12, 1.924e-12, 1.871e-12, 1.821e-12,
663 1.775e-12
664 };
665
666 static const double hcl[121] = {
667 3.70385e-11, 3.70385e-11, 3.70385e-11, 3.70385e-11, 3.70385e-11,
668 3.70385e-11, 2.21247e-11, 1.88117e-11, 2.36957e-11, 3.72192e-11,
669 5.79399e-11, 8.04158e-11, 1.01779e-10, 1.2301e-10, 1.53924e-10,
670 1.93737e-10, 2.5561e-10, 3.84228e-10, 6.18248e-10, 6.31222e-10,
671 7.84907e-10, 9.36932e-10, 1.03508e-09, 1.13323e-09, 1.23138e-09,
672 1.31985e-09, 1.39669e-09, 1.47352e-09, 1.56375e-09, 1.66234e-09,
673 1.78086e-09, 1.91256e-09, 2.04425e-09, 2.16629e-09, 2.28535e-09,
674 2.39439e-09, 2.47597e-09, 2.55755e-09, 2.60873e-09, 2.65696e-09,
675 2.70519e-09, 2.75658e-09, 2.81422e-09, 2.87187e-09, 2.94013e-09,
676 3.01911e-09, 3.09497e-09, 3.16749e-09, 3.24001e-09, 3.30525e-09,
677 3.3665e-09, 3.42424e-09, 3.4619e-09, 3.49956e-09, 3.52273e-09,
678 3.54214e-09, 3.56154e-09, 3.57918e-09, 3.59049e-09, 3.6018e-09,
679 3.6132e-09, 3.62476e-09, 3.62476e-09, 3.62476e-09, 3.62476e-09,
680 3.62476e-09, 3.62476e-09, 3.62476e-09, 3.62476e-09, 3.62476e-09,
681 3.62476e-09, 3.62476e-09, 3.62476e-09, 3.62476e-09, 3.62476e-09,
682 3.62476e-09, 3.62476e-09, 3.62476e-09, 3.62476e-09, 3.62476e-09,
683 3.62476e-09, 3.62476e-09, 3.62476e-09, 3.62476e-09, 3.62476e-09,
684 3.62476e-09, 3.62476e-09, 3.62476e-09, 3.62476e-09, 3.62476e-09,
685 3.62476e-09, 3.62476e-09, 3.62476e-09, 3.62476e-09, 3.62476e-09,
686 3.62476e-09, 3.62476e-09, 3.62476e-09, 3.62476e-09, 3.62476e-09,
687 3.62476e-09, 3.62476e-09, 3.62476e-09, 3.62476e-09, 3.62476e-09,
688 3.62476e-09, 3.62476e-09, 3.62476e-09, 3.62476e-09, 3.62476e-09,
689 3.62476e-09, 3.62476e-09, 3.62476e-09, 3.62476e-09, 3.62476e-09,
690 3.62476e-09, 3.62476e-09, 3.62476e-09, 3.62476e-09, 3.62476e-09,
691 3.62476e-09
692 };
693
694 static const double hcn[121] = {
695 5.5e-10, 5.5e-10, 5.5e-10, 5.5e-10, 5.5e-10, 5.5e-10, 5.5e-10,
696 5.5e-10, 5.5e-10, 5.5e-10, 5.5e-10, 5.498e-10, 5.495e-10, 5.493e-10,
697 5.49e-10, 5.488e-10, 4.717e-10, 3.946e-10, 3.174e-10, 2.4e-10,
698 1.626e-10, 1.619e-10, 1.612e-10, 1.602e-10, 1.593e-10, 1.582e-10,
699 1.572e-10, 1.56e-10, 1.549e-10, 1.539e-10, 1.53e-10, 1.519e-10,
700 1.506e-10, 1.487e-10, 1.467e-10, 1.449e-10, 1.43e-10, 1.413e-10,
701 1.397e-10, 1.382e-10, 1.368e-10, 1.354e-10, 1.337e-10, 1.315e-10,
702 1.292e-10, 1.267e-10, 1.241e-10, 1.215e-10, 1.19e-10, 1.165e-10,
703 1.141e-10, 1.118e-10, 1.096e-10, 1.072e-10, 1.047e-10, 1.021e-10,
704 9.968e-11, 9.739e-11, 9.539e-11, 9.339e-11, 9.135e-11, 8.898e-11,
705 8.664e-11, 8.439e-11, 8.249e-11, 8.075e-11, 7.904e-11, 7.735e-11,
706 7.565e-11, 7.399e-11, 7.245e-11, 7.109e-11, 6.982e-11, 6.863e-11,
707 6.755e-11, 6.657e-11, 6.587e-11, 6.527e-11, 6.476e-11, 6.428e-11,
708 6.382e-11, 6.343e-11, 6.307e-11, 6.272e-11, 6.238e-11, 6.205e-11,
709 6.17e-11, 6.137e-11, 6.102e-11, 6.072e-11, 6.046e-11, 6.03e-11,
710 6.018e-11, 6.01e-11, 6.001e-11, 5.992e-11, 5.984e-11, 5.975e-11,
711 5.967e-11, 5.958e-11, 5.95e-11, 5.941e-11, 5.933e-11, 5.925e-11,
712 5.916e-11, 5.908e-11, 5.899e-11, 5.891e-11, 5.883e-11, 5.874e-11,
713 5.866e-11, 5.858e-11, 5.85e-11, 5.841e-11, 5.833e-11, 5.825e-11,
714 5.817e-11, 5.808e-11, 5.8e-11, 5.792e-11, 5.784e-11
715 };
716
717 static const double hf[121] = {
718 2.64279e-11, 2.64279e-11, 2.64279e-11, 2.64279e-11, 2.64279e-11,
719 2.64279e-11, 2.64279e-11, 2.64279e-11, 2.64279e-11, 2.64279e-11,
720 2.64279e-11, 2.64279e-11, 2.64279e-11, 3.86691e-11, 5.22002e-11,
721 6.92471e-11, 9.13979e-11, 1.37918e-10, 2.24918e-10, 2.29824e-10,
722 2.94241e-10, 3.58363e-10, 4.12881e-10, 4.67399e-10, 5.21917e-10,
723 5.74229e-10, 6.23889e-10, 6.73549e-10, 7.24119e-10, 7.75256e-10,
724 8.319e-10, 8.92185e-10, 9.52469e-10, 1.01325e-09, 1.07419e-09,
725 1.13565e-09, 1.19856e-09, 1.26146e-09, 1.31439e-09, 1.36635e-09,
726 1.41831e-09, 1.46549e-09, 1.50321e-09, 1.54093e-09, 1.57986e-09,
727 1.62e-09, 1.66286e-09, 1.70863e-09, 1.75439e-09, 1.79827e-09,
728 1.84111e-09, 1.88125e-09, 1.90603e-09, 1.93081e-09, 1.9413e-09,
729 1.94807e-09, 1.95485e-09, 1.95485e-09, 1.95485e-09, 1.95485e-09,
730 1.95485e-09, 1.95485e-09, 1.95485e-09, 1.95485e-09, 1.95485e-09,
731 1.95485e-09, 1.95485e-09, 1.95485e-09, 1.95485e-09, 1.95485e-09,
732 1.95485e-09, 1.95485e-09, 1.95485e-09, 1.95485e-09, 1.95485e-09,
733 1.95485e-09, 1.95485e-09, 1.95485e-09, 1.95485e-09, 1.95485e-09,
734 1.95485e-09, 1.95485e-09, 1.95485e-09, 1.95485e-09, 1.95485e-09,
735 1.95485e-09, 1.95485e-09, 1.95485e-09, 1.95485e-09, 1.95485e-09,
736 1.95485e-09, 1.95485e-09, 1.95485e-09, 1.95485e-09, 1.95485e-09,
737 1.95485e-09, 1.95485e-09, 1.95485e-09, 1.95485e-09, 1.95485e-09,
738 1.95485e-09, 1.95485e-09, 1.95485e-09, 1.95485e-09, 1.95485e-09,
739 1.95485e-09, 1.95485e-09, 1.95485e-09, 1.95485e-09, 1.95485e-09,
740 1.95485e-09, 1.95485e-09, 1.95485e-09, 1.95485e-09, 1.95485e-09,
741 1.95485e-09, 1.95485e-09, 1.95485e-09, 1.95485e-09, 1.95485e-09,
742 1.95485e-09
743 };
744
745 static const double hno3[121] = {
746 1.809e-10, 7.234e-10, 5.899e-10, 4.342e-10, 3.277e-10, 2.661e-10,
747 2.35e-10, 2.267e-10, 2.389e-10, 2.651e-10, 3.255e-10, 4.099e-10,
748 5.42e-10, 6.978e-10, 8.807e-10, 1.112e-09, 1.405e-09, 2.04e-09,
749 3.111e-09, 4.5e-09, 5.762e-09, 7.37e-09, 7.852e-09, 8.109e-09,
750 8.067e-09, 7.554e-09, 7.076e-09, 6.268e-09, 5.524e-09, 4.749e-09,
751 3.909e-09, 3.223e-09, 2.517e-09, 1.942e-09, 1.493e-09, 1.122e-09,
752 8.449e-10, 6.361e-10, 4.787e-10, 3.611e-10, 2.804e-10, 2.215e-10,
753 1.758e-10, 1.441e-10, 1.197e-10, 9.953e-11, 8.505e-11, 7.334e-11,
754 6.325e-11, 5.625e-11, 5.058e-11, 4.548e-11, 4.122e-11, 3.748e-11,
755 3.402e-11, 3.088e-11, 2.8e-11, 2.536e-11, 2.293e-11, 2.072e-11,
756 1.871e-11, 1.687e-11, 1.52e-11, 1.368e-11, 1.23e-11, 1.105e-11,
757 9.922e-12, 8.898e-12, 7.972e-12, 7.139e-12, 6.385e-12, 5.708e-12,
758 5.099e-12, 4.549e-12, 4.056e-12, 3.613e-12, 3.216e-12, 2.862e-12,
759 2.544e-12, 2.259e-12, 2.004e-12, 1.776e-12, 1.572e-12, 1.391e-12,
760 1.227e-12, 1.082e-12, 9.528e-13, 8.379e-13, 7.349e-13, 6.436e-13,
761 5.634e-13, 4.917e-13, 4.291e-13, 3.745e-13, 3.267e-13, 2.854e-13,
762 2.494e-13, 2.181e-13, 1.913e-13, 1.68e-13, 1.479e-13, 1.31e-13,
763 1.159e-13, 1.025e-13, 9.067e-14, 8.113e-14, 7.281e-14, 6.535e-14,
764 5.892e-14, 5.348e-14, 4.867e-14, 4.439e-14, 4.073e-14, 3.76e-14,
765 3.476e-14, 3.229e-14, 3e-14, 2.807e-14, 2.635e-14, 2.473e-14,
766 2.332e-14
767 };
768
769 static const double hno4[121] = {
770 6.118e-12, 3.594e-12, 2.807e-12, 3.04e-12, 4.458e-12, 7.986e-12,
771 1.509e-11, 2.661e-11, 3.738e-11, 4.652e-11, 4.429e-11, 3.992e-11,
772 3.347e-11, 3.005e-11, 3.173e-11, 4.055e-11, 5.812e-11, 8.489e-11,
773 1.19e-10, 1.482e-10, 1.766e-10, 2.103e-10, 2.35e-10, 2.598e-10,
774 2.801e-10, 2.899e-10, 3e-10, 2.817e-10, 2.617e-10, 2.332e-10,
775 1.933e-10, 1.605e-10, 1.232e-10, 9.285e-11, 6.941e-11, 4.951e-11,
776 3.539e-11, 2.402e-11, 1.522e-11, 9.676e-12, 6.056e-12, 3.745e-12,
777 2.34e-12, 1.463e-12, 9.186e-13, 5.769e-13, 3.322e-13, 1.853e-13,
778 1.035e-13, 7.173e-14, 5.382e-14, 4.036e-14, 3.401e-14, 2.997e-14,
779 2.635e-14, 2.316e-14, 2.034e-14, 1.783e-14, 1.56e-14, 1.363e-14,
780 1.19e-14, 1.037e-14, 9.032e-15, 7.846e-15, 6.813e-15, 5.912e-15,
781 5.121e-15, 4.431e-15, 3.829e-15, 3.306e-15, 2.851e-15, 2.456e-15,
782 2.114e-15, 1.816e-15, 1.559e-15, 1.337e-15, 1.146e-15, 9.811e-16,
783 8.389e-16, 7.162e-16, 6.109e-16, 5.203e-16, 4.425e-16, 3.76e-16,
784 3.184e-16, 2.692e-16, 2.274e-16, 1.917e-16, 1.61e-16, 1.35e-16,
785 1.131e-16, 9.437e-17, 7.874e-17, 6.57e-17, 5.481e-17, 4.579e-17,
786 3.828e-17, 3.204e-17, 2.691e-17, 2.264e-17, 1.912e-17, 1.626e-17,
787 1.382e-17, 1.174e-17, 9.972e-18, 8.603e-18, 7.45e-18, 6.453e-18,
788 5.623e-18, 4.944e-18, 4.361e-18, 3.859e-18, 3.443e-18, 3.096e-18,
789 2.788e-18, 2.528e-18, 2.293e-18, 2.099e-18, 1.929e-18, 1.773e-18,
790 1.64e-18
791 };
792
793 static const double hocl[121] = {
794 1.056e-12, 1.194e-12, 1.35e-12, 1.531e-12, 1.737e-12, 1.982e-12,
795 2.263e-12, 2.599e-12, 2.991e-12, 3.459e-12, 4.012e-12, 4.662e-12,
796 5.438e-12, 6.35e-12, 7.425e-12, 8.686e-12, 1.016e-11, 1.188e-11,
797 1.389e-11, 1.659e-11, 2.087e-11, 2.621e-11, 3.265e-11, 4.064e-11,
798 4.859e-11, 5.441e-11, 6.09e-11, 6.373e-11, 6.611e-11, 6.94e-11,
799 7.44e-11, 7.97e-11, 8.775e-11, 9.722e-11, 1.064e-10, 1.089e-10,
800 1.114e-10, 1.106e-10, 1.053e-10, 1.004e-10, 9.006e-11, 7.778e-11,
801 6.739e-11, 5.636e-11, 4.655e-11, 3.845e-11, 3.042e-11, 2.368e-11,
802 1.845e-11, 1.442e-11, 1.127e-11, 8.814e-12, 6.544e-12, 4.763e-12,
803 3.449e-12, 2.612e-12, 1.999e-12, 1.526e-12, 1.16e-12, 8.793e-13,
804 6.655e-13, 5.017e-13, 3.778e-13, 2.829e-13, 2.117e-13, 1.582e-13,
805 1.178e-13, 8.755e-14, 6.486e-14, 4.799e-14, 3.54e-14, 2.606e-14,
806 1.916e-14, 1.403e-14, 1.026e-14, 7.48e-15, 5.446e-15, 3.961e-15,
807 2.872e-15, 2.076e-15, 1.498e-15, 1.077e-15, 7.726e-16, 5.528e-16,
808 3.929e-16, 2.785e-16, 1.969e-16, 1.386e-16, 9.69e-17, 6.747e-17,
809 4.692e-17, 3.236e-17, 2.232e-17, 1.539e-17, 1.061e-17, 7.332e-18,
810 5.076e-18, 3.522e-18, 2.461e-18, 1.726e-18, 1.22e-18, 8.75e-19,
811 6.264e-19, 4.482e-19, 3.207e-19, 2.368e-19, 1.762e-19, 1.312e-19,
812 9.891e-20, 7.595e-20, 5.87e-20, 4.567e-20, 3.612e-20, 2.904e-20,
813 2.343e-20, 1.917e-20, 1.568e-20, 1.308e-20, 1.1e-20, 9.25e-21,
814 7.881e-21
815 };
816
817 static const double n2o[121] = {
818 3.17e-07, 3.17e-07, 3.17e-07, 3.17e-07, 3.17e-07, 3.17e-07, 3.17e-07,
819 3.17e-07, 3.17e-07, 3.17e-07, 3.124e-07, 3.077e-07, 3.03e-07,
820 2.984e-07, 2.938e-07, 2.892e-07, 2.847e-07, 2.779e-07, 2.705e-07,
821 2.631e-07, 2.557e-07, 2.484e-07, 2.345e-07, 2.201e-07, 2.01e-07,
822 1.754e-07, 1.532e-07, 1.329e-07, 1.154e-07, 1.003e-07, 8.735e-08,
823 7.617e-08, 6.512e-08, 5.547e-08, 4.709e-08, 3.915e-08, 3.259e-08,
824 2.738e-08, 2.327e-08, 1.98e-08, 1.711e-08, 1.493e-08, 1.306e-08,
825 1.165e-08, 1.049e-08, 9.439e-09, 8.375e-09, 7.391e-09, 6.525e-09,
826 5.759e-09, 5.083e-09, 4.485e-09, 3.953e-09, 3.601e-09, 3.27e-09,
827 2.975e-09, 2.757e-09, 2.556e-09, 2.37e-09, 2.195e-09, 2.032e-09,
828 1.912e-09, 1.79e-09, 1.679e-09, 1.572e-09, 1.482e-09, 1.402e-09,
829 1.326e-09, 1.254e-09, 1.187e-09, 1.127e-09, 1.071e-09, 1.02e-09,
830 9.673e-10, 9.193e-10, 8.752e-10, 8.379e-10, 8.017e-10, 7.66e-10,
831 7.319e-10, 7.004e-10, 6.721e-10, 6.459e-10, 6.199e-10, 5.942e-10,
832 5.703e-10, 5.488e-10, 5.283e-10, 5.082e-10, 4.877e-10, 4.696e-10,
833 4.52e-10, 4.355e-10, 4.198e-10, 4.039e-10, 3.888e-10, 3.754e-10,
834 3.624e-10, 3.499e-10, 3.381e-10, 3.267e-10, 3.163e-10, 3.058e-10,
835 2.959e-10, 2.864e-10, 2.77e-10, 2.686e-10, 2.604e-10, 2.534e-10,
836 2.462e-10, 2.386e-10, 2.318e-10, 2.247e-10, 2.189e-10, 2.133e-10,
837 2.071e-10, 2.014e-10, 1.955e-10, 1.908e-10, 1.86e-10, 1.817e-10
838 };
839
840 static const double n2o5[121] = {
841 1.231e-11, 3.035e-12, 1.702e-12, 9.877e-13, 8.081e-13, 9.039e-13,
842 1.169e-12, 1.474e-12, 1.651e-12, 1.795e-12, 1.998e-12, 2.543e-12,
843 4.398e-12, 7.698e-12, 1.28e-11, 2.131e-11, 3.548e-11, 5.894e-11,
844 7.645e-11, 1.089e-10, 1.391e-10, 1.886e-10, 2.386e-10, 2.986e-10,
845 3.487e-10, 3.994e-10, 4.5e-10, 4.6e-10, 4.591e-10, 4.1e-10, 3.488e-10,
846 2.846e-10, 2.287e-10, 1.696e-10, 1.011e-10, 6.428e-11, 4.324e-11,
847 2.225e-11, 6.214e-12, 3.608e-12, 8.793e-13, 4.491e-13, 1.04e-13,
848 6.1e-14, 3.436e-14, 6.671e-15, 1.171e-15, 5.848e-16, 1.212e-16,
849 1e-16, 1e-16, 1e-16, 1e-16, 1e-16, 1e-16, 1e-16, 1e-16, 1e-16, 1e-16,
850 1e-16, 1e-16, 1e-16, 1e-16, 1e-16, 1e-16, 1e-16, 1e-16, 1e-16, 1e-16,
851 1e-16, 1e-16, 1e-16, 1e-16, 1e-16, 1e-16, 1e-16, 1e-16, 1e-16, 1e-16,
852 1e-16, 1e-16, 1e-16, 1e-16, 1e-16, 1e-16, 1e-16, 1e-16, 1e-16, 1e-16,
853 1e-16, 1e-16, 1e-16, 1e-16, 1e-16, 1e-16, 1e-16, 1e-16, 1e-16, 1e-16,
854 1e-16, 1e-16, 1e-16, 1e-16, 1e-16, 1e-16, 1e-16, 1e-16, 1e-16, 1e-16,
855 1e-16, 1e-16, 1e-16, 1e-16, 1e-16, 1e-16, 1e-16, 1e-16, 1e-16, 1e-16,
856 1e-16, 1e-16
857 };
858
859 static const double nh3[121] = {
860 1e-10, 1e-10, 1e-10, 1e-10, 1e-10, 1e-10, 1e-10, 1e-10, 1e-10, 1e-10,
861 1e-10, 1e-10, 1e-10, 1e-10, 9.444e-11, 8.488e-11, 7.241e-11, 5.785e-11,
862 4.178e-11, 3.018e-11, 2.18e-11, 1.574e-11, 1.137e-11, 8.211e-12,
863 5.973e-12, 4.327e-12, 3.118e-12, 2.234e-12, 1.573e-12, 1.04e-12,
864 6.762e-13, 4.202e-13, 2.406e-13, 1.335e-13, 6.938e-14, 3.105e-14,
865 1.609e-14, 1.033e-14, 6.432e-15, 4.031e-15, 2.555e-15, 1.656e-15,
866 1.115e-15, 7.904e-16, 5.63e-16, 4.048e-16, 2.876e-16, 2.004e-16,
867 1.356e-16, 9.237e-17, 6.235e-17, 4.223e-17, 3.009e-17, 2.328e-17,
868 2.002e-17, 1.914e-17, 1.914e-17, 1.914e-17, 1.914e-17, 1.914e-17,
869 1.914e-17, 1.914e-17, 1.914e-17, 1.914e-17, 1.914e-17, 1.914e-17,
870 1.914e-17, 1.914e-17, 1.914e-17, 1.914e-17, 1.914e-17, 1.914e-17,
871 1.914e-17, 1.914e-17, 1.914e-17, 1.914e-17, 1.914e-17, 1.914e-17,
872 1.914e-17, 1.914e-17, 1.914e-17, 1.914e-17, 1.914e-17, 1.914e-17,
873 1.914e-17, 1.914e-17, 1.914e-17, 1.914e-17, 1.914e-17, 1.914e-17,
874 1.914e-17, 1.914e-17, 1.914e-17, 1.914e-17, 1.914e-17, 1.914e-17,
875 1.914e-17, 1.914e-17, 1.914e-17, 1.914e-17, 1.914e-17, 1.914e-17,
876 1.914e-17, 1.914e-17, 1.914e-17, 1.914e-17, 1.914e-17, 1.914e-17,
877 1.914e-17, 1.914e-17, 1.914e-17, 1.914e-17, 1.914e-17, 1.914e-17,
878 1.914e-17, 1.914e-17, 1.914e-17, 1.914e-17, 1.914e-17, 1.914e-17,
879 1.914e-17
880 };
881
882 static const double no[121] = {
883 2.586e-10, 4.143e-11, 1.566e-11, 9.591e-12, 8.088e-12, 8.462e-12,
884 1.013e-11, 1.328e-11, 1.855e-11, 2.678e-11, 3.926e-11, 5.464e-11,
885 7.012e-11, 8.912e-11, 1.127e-10, 1.347e-10, 1.498e-10, 1.544e-10,
886 1.602e-10, 1.824e-10, 2.078e-10, 2.366e-10, 2.691e-10, 5.141e-10,
887 8.259e-10, 1.254e-09, 1.849e-09, 2.473e-09, 3.294e-09, 4.16e-09,
888 5.095e-09, 6.11e-09, 6.93e-09, 7.888e-09, 8.903e-09, 9.713e-09,
889 1.052e-08, 1.115e-08, 1.173e-08, 1.21e-08, 1.228e-08, 1.239e-08,
890 1.231e-08, 1.213e-08, 1.192e-08, 1.138e-08, 1.085e-08, 1.008e-08,
891 9.224e-09, 8.389e-09, 7.262e-09, 6.278e-09, 5.335e-09, 4.388e-09,
892 3.589e-09, 2.761e-09, 2.129e-09, 1.633e-09, 1.243e-09, 9.681e-10,
893 8.355e-10, 7.665e-10, 7.442e-10, 8.584e-10, 9.732e-10, 1.063e-09,
894 1.163e-09, 1.286e-09, 1.472e-09, 1.707e-09, 2.032e-09, 2.474e-09,
895 2.977e-09, 3.506e-09, 4.102e-09, 5.013e-09, 6.493e-09, 8.414e-09,
896 1.077e-08, 1.367e-08, 1.777e-08, 2.625e-08, 3.926e-08, 5.545e-08,
897 7.195e-08, 9.464e-08, 1.404e-07, 2.183e-07, 3.329e-07, 4.535e-07,
898 6.158e-07, 8.187e-07, 1.075e-06, 1.422e-06, 1.979e-06, 2.71e-06,
899 3.58e-06, 4.573e-06, 5.951e-06, 7.999e-06, 1.072e-05, 1.372e-05,
900 1.697e-05, 2.112e-05, 2.643e-05, 3.288e-05, 3.994e-05, 4.794e-05,
901 5.606e-05, 6.383e-05, 7.286e-05, 8.156e-05, 8.883e-05, 9.469e-05,
902 9.848e-05, 0.0001023, 0.0001066, 0.0001115, 0.0001145, 0.0001142,
903 0.0001133
904 };
905
906 static const double no2[121] = {
907 3.036e-09, 2.945e-10, 9.982e-11, 5.069e-11, 3.485e-11, 2.982e-11,
908 2.947e-11, 3.164e-11, 3.714e-11, 4.586e-11, 6.164e-11, 8.041e-11,
909 9.982e-11, 1.283e-10, 1.73e-10, 2.56e-10, 3.909e-10, 5.959e-10,
910 9.081e-10, 1.384e-09, 1.788e-09, 2.189e-09, 2.686e-09, 3.091e-09,
911 3.49e-09, 3.796e-09, 4.2e-09, 5.103e-09, 6.005e-09, 6.3e-09, 6.706e-09,
912 7.07e-09, 7.434e-09, 7.663e-09, 7.788e-09, 7.8e-09, 7.597e-09,
913 7.482e-09, 7.227e-09, 6.403e-09, 5.585e-09, 4.606e-09, 3.703e-09,
914 2.984e-09, 2.183e-09, 1.48e-09, 8.441e-10, 5.994e-10, 3.799e-10,
915 2.751e-10, 1.927e-10, 1.507e-10, 1.102e-10, 6.971e-11, 5.839e-11,
916 3.904e-11, 3.087e-11, 2.176e-11, 1.464e-11, 1.209e-11, 8.497e-12,
917 6.477e-12, 4.371e-12, 2.914e-12, 2.424e-12, 1.753e-12, 1.35e-12,
918 9.417e-13, 6.622e-13, 5.148e-13, 3.841e-13, 3.446e-13, 3.01e-13,
919 2.551e-13, 2.151e-13, 1.829e-13, 1.64e-13, 1.475e-13, 1.352e-13,
920 1.155e-13, 9.963e-14, 9.771e-14, 9.577e-14, 9.384e-14, 9.186e-14,
921 9e-14, 9e-14, 9e-14, 9e-14, 9e-14, 9e-14, 9e-14, 9e-14, 9e-14, 9e-14,
922 9e-14, 9e-14, 9e-14, 9e-14, 9e-14, 9e-14, 9e-14, 9e-14, 9e-14, 9e-14,
923 9e-14, 9e-14, 9e-14, 9e-14, 9e-14, 9e-14, 9e-14, 9e-14, 9e-14, 9e-14,
924 9e-14, 9e-14, 9e-14, 9e-14, 9e-14, 9e-14
925 };
926
927 static const double o3[121] = {
928 2.218e-08, 3.394e-08, 3.869e-08, 4.219e-08, 4.501e-08, 4.778e-08,
929 5.067e-08, 5.402e-08, 5.872e-08, 6.521e-08, 7.709e-08, 9.461e-08,
930 1.269e-07, 1.853e-07, 2.723e-07, 3.964e-07, 5.773e-07, 8.2e-07,
931 1.155e-06, 1.59e-06, 2.076e-06, 2.706e-06, 3.249e-06, 3.848e-06,
932 4.459e-06, 4.986e-06, 5.573e-06, 5.958e-06, 6.328e-06, 6.661e-06,
933 6.9e-06, 7.146e-06, 7.276e-06, 7.374e-06, 7.447e-06, 7.383e-06,
934 7.321e-06, 7.161e-06, 6.879e-06, 6.611e-06, 6.216e-06, 5.765e-06,
935 5.355e-06, 4.905e-06, 4.471e-06, 4.075e-06, 3.728e-06, 3.413e-06,
936 3.125e-06, 2.856e-06, 2.607e-06, 2.379e-06, 2.17e-06, 1.978e-06,
937 1.8e-06, 1.646e-06, 1.506e-06, 1.376e-06, 1.233e-06, 1.102e-06,
938 9.839e-07, 8.771e-07, 7.814e-07, 6.947e-07, 6.102e-07, 5.228e-07,
939 4.509e-07, 3.922e-07, 3.501e-07, 3.183e-07, 2.909e-07, 2.686e-07,
940 2.476e-07, 2.284e-07, 2.109e-07, 2.003e-07, 2.013e-07, 2.022e-07,
941 2.032e-07, 2.042e-07, 2.097e-07, 2.361e-07, 2.656e-07, 2.989e-07,
942 3.37e-07, 3.826e-07, 4.489e-07, 5.26e-07, 6.189e-07, 7.312e-07,
943 8.496e-07, 8.444e-07, 8.392e-07, 8.339e-07, 8.286e-07, 8.234e-07,
944 8.181e-07, 8.129e-07, 8.077e-07, 8.026e-07, 6.918e-07, 5.176e-07,
945 3.865e-07, 2.885e-07, 2.156e-07, 1.619e-07, 1.219e-07, 9.161e-08,
946 6.972e-08, 5.399e-08, 3.498e-08, 2.111e-08, 1.322e-08, 8.482e-09,
947 5.527e-09, 3.423e-09, 2.071e-09, 1.314e-09, 8.529e-10, 5.503e-10,
948 3.665e-10
949 };
950
951 static const double ocs[121] = {
952 6e-10, 6e-10, 6e-10, 6e-10, 6e-10, 6e-10, 6e-10, 6e-10, 6e-10, 5.997e-10,
953 5.989e-10, 5.881e-10, 5.765e-10, 5.433e-10, 5.074e-10, 4.567e-10,
954 4.067e-10, 3.601e-10, 3.093e-10, 2.619e-10, 2.232e-10, 1.805e-10,
955 1.46e-10, 1.187e-10, 8.03e-11, 5.435e-11, 3.686e-11, 2.217e-11,
956 1.341e-11, 8.756e-12, 4.511e-12, 2.37e-12, 1.264e-12, 8.28e-13,
957 5.263e-13, 3.209e-13, 1.717e-13, 9.068e-14, 4.709e-14, 2.389e-14,
958 1.236e-14, 1.127e-14, 1.091e-14, 1.091e-14, 1.091e-14, 1.091e-14,
959 1.091e-14, 1.091e-14, 1.091e-14, 1.091e-14, 1.091e-14, 1.091e-14,
960 1.091e-14, 1.091e-14, 1.091e-14, 1.091e-14, 1.091e-14, 1.091e-14,
961 1.091e-14, 1.091e-14, 1.091e-14, 1.091e-14, 1.091e-14, 1.091e-14,
962 1.091e-14, 1.091e-14, 1.091e-14, 1.091e-14, 1.091e-14, 1.091e-14,
963 1.091e-14, 1.091e-14, 1.091e-14, 1.091e-14, 1.091e-14, 1.091e-14,
964 1.091e-14, 1.091e-14, 1.091e-14, 1.091e-14, 1.091e-14, 1.091e-14,
965 1.091e-14, 1.091e-14, 1.091e-14, 1.091e-14, 1.091e-14, 1.091e-14,
966 1.091e-14, 1.091e-14, 1.091e-14, 1.091e-14, 1.091e-14, 1.091e-14,
967 1.091e-14, 1.091e-14, 1.091e-14, 1.091e-14, 1.091e-14, 1.091e-14,
968 1.091e-14, 1.091e-14, 1.091e-14, 1.091e-14, 1.091e-14, 1.091e-14,
969 1.091e-14, 1.091e-14, 1.091e-14, 1.091e-14, 1.091e-14, 1.091e-14,
970 1.091e-14, 1.091e-14, 1.091e-14, 1.091e-14, 1.091e-14, 1.091e-14,
971 1.091e-14, 1.091e-14, 1.091e-14
972 };
973
974 static const double sf6[121] = {
975 4.103e-12, 4.103e-12, 4.103e-12, 4.103e-12, 4.103e-12, 4.103e-12,
976 4.103e-12, 4.103e-12, 4.103e-12, 4.087e-12, 4.064e-12, 4.023e-12,
977 3.988e-12, 3.941e-12, 3.884e-12, 3.755e-12, 3.622e-12, 3.484e-12,
978 3.32e-12, 3.144e-12, 2.978e-12, 2.811e-12, 2.653e-12, 2.489e-12,
979 2.332e-12, 2.199e-12, 2.089e-12, 2.013e-12, 1.953e-12, 1.898e-12,
980 1.859e-12, 1.826e-12, 1.798e-12, 1.776e-12, 1.757e-12, 1.742e-12,
981 1.728e-12, 1.717e-12, 1.707e-12, 1.698e-12, 1.691e-12, 1.685e-12,
982 1.679e-12, 1.675e-12, 1.671e-12, 1.668e-12, 1.665e-12, 1.663e-12,
983 1.661e-12, 1.659e-12, 1.658e-12, 1.657e-12, 1.656e-12, 1.655e-12,
984 1.654e-12, 1.653e-12, 1.653e-12, 1.652e-12, 1.652e-12, 1.652e-12,
985 1.651e-12, 1.651e-12, 1.651e-12, 1.651e-12, 1.651e-12, 1.651e-12,
986 1.651e-12, 1.65e-12, 1.65e-12, 1.65e-12, 1.65e-12, 1.65e-12, 1.65e-12,
987 1.65e-12, 1.65e-12, 1.65e-12, 1.65e-12, 1.65e-12, 1.65e-12, 1.65e-12,
988 1.65e-12, 1.65e-12, 1.65e-12, 1.65e-12, 1.65e-12, 1.65e-12, 1.65e-12,
989 1.65e-12, 1.65e-12, 1.65e-12, 1.65e-12, 1.65e-12, 1.65e-12, 1.65e-12,
990 1.65e-12, 1.65e-12, 1.65e-12, 1.65e-12, 1.65e-12, 1.65e-12, 1.65e-12,
991 1.65e-12, 1.65e-12, 1.65e-12, 1.65e-12, 1.65e-12, 1.65e-12, 1.65e-12,
992 1.65e-12, 1.65e-12, 1.65e-12, 1.65e-12, 1.65e-12, 1.65e-12, 1.65e-12,
993 1.65e-12, 1.65e-12, 1.65e-12, 1.65e-12, 1.65e-12, 1.65e-12
994 };
995
996 static const double so2[121] = {
997 1e-10, 1e-10, 1e-10, 1e-10, 1e-10, 1e-10, 1e-10, 1e-10, 1e-10, 1e-10,
998 1e-10, 1e-10, 9.867e-11, 9.537e-11, 9e-11, 8.404e-11, 7.799e-11,
999 7.205e-11, 6.616e-11, 6.036e-11, 5.475e-11, 5.007e-11, 4.638e-11,
1000 4.346e-11, 4.055e-11, 3.763e-11, 3.471e-11, 3.186e-11, 2.905e-11,
1001 2.631e-11, 2.358e-11, 2.415e-11, 2.949e-11, 3.952e-11, 5.155e-11,
1002 6.76e-11, 8.741e-11, 1.099e-10, 1.278e-10, 1.414e-10, 1.512e-10,
1003 1.607e-10, 1.699e-10, 1.774e-10, 1.832e-10, 1.871e-10, 1.907e-10,
1004 1.943e-10, 1.974e-10, 1.993e-10, 2e-10, 2e-10, 2e-10, 2e-10, 2e-10,
1005 2e-10, 2e-10, 2e-10, 2e-10, 2e-10, 2e-10, 2e-10, 2e-10, 2e-10, 2e-10,
1006 2e-10, 2e-10, 2e-10, 2e-10, 2e-10, 2e-10, 2e-10, 2e-10, 2e-10, 2e-10,
1007 2e-10, 2e-10, 2e-10, 2e-10, 2e-10, 2e-10, 2e-10, 2e-10, 2e-10, 2e-10,
1008 2e-10, 2e-10, 2e-10, 2e-10, 2e-10, 2e-10, 2e-10, 2e-10, 2e-10, 2e-10,
1009 2e-10, 2e-10, 2e-10, 2e-10, 2e-10, 2e-10, 2e-10, 2e-10, 2e-10, 2e-10,
1010 2e-10, 2e-10, 2e-10, 2e-10, 2e-10, 2e-10, 2e-10, 2e-10, 2e-10, 2e-10,
1011 2e-10, 2e-10, 2e-10, 2e-10, 2e-10, 2e-10
1012 };
1013
1014 const double *q[NG] = { NULL };
1015
1016 /* Identify variable... */
1017 for (int ig = 0; ig < ctl->ng; ig++) {
1018 q[ig] = NULL;
1019 if (strcasecmp(ctl->emitter[ig], "C2H2") == 0)
1020 q[ig] = c2h2;
1021 if (strcasecmp(ctl->emitter[ig], "C2H6") == 0)
1022 q[ig] = c2h6;
1023 if (strcasecmp(ctl->emitter[ig], "CCl4") == 0)
1024 q[ig] = ccl4;
1025 if (strcasecmp(ctl->emitter[ig], "CH3OH") == 0)
1026 q[ig] = ch3oh;
1027 if (strcasecmp(ctl->emitter[ig], "CH4") == 0)
1028 q[ig] = ch4;
1029 if (strcasecmp(ctl->emitter[ig], "ClO") == 0)
1030 q[ig] = clo;
1031 if (strcasecmp(ctl->emitter[ig], "ClONO2") == 0)
1032 q[ig] = clono2;
1033 if (strcasecmp(ctl->emitter[ig], "CO") == 0)
1034 q[ig] = co;
1035 if (strcasecmp(ctl->emitter[ig], "COF2") == 0)
1036 q[ig] = cof2;
1037 if (strcasecmp(ctl->emitter[ig], "F11") == 0)
1038 q[ig] = f11;
1039 if (strcasecmp(ctl->emitter[ig], "F113") == 0)
1040 q[ig] = f113;
1041 if (strcasecmp(ctl->emitter[ig], "F114") == 0)
1042 q[ig] = f114;
1043 if (strcasecmp(ctl->emitter[ig], "F12") == 0)
1044 q[ig] = f12;
1045 if (strcasecmp(ctl->emitter[ig], "F14") == 0)
1046 q[ig] = f14;
1047 if (strcasecmp(ctl->emitter[ig], "F22") == 0)
1048 q[ig] = f22;
1049 if (strcasecmp(ctl->emitter[ig], "H2CO") == 0)
1050 q[ig] = h2co;
1051 if (strcasecmp(ctl->emitter[ig], "H2O") == 0)
1052 q[ig] = h2o;
1053 if (strcasecmp(ctl->emitter[ig], "H2O2") == 0)
1054 q[ig] = h2o2;
1055 if (strcasecmp(ctl->emitter[ig], "HCl") == 0)
1056 q[ig] = hcl;
1057 if (strcasecmp(ctl->emitter[ig], "HCN") == 0)
1058 q[ig] = hcn;
1059 if (strcasecmp(ctl->emitter[ig], "HF") == 0)
1060 q[ig] = hf;
1061 if (strcasecmp(ctl->emitter[ig], "HNO3") == 0)
1062 q[ig] = hno3;
1063 if (strcasecmp(ctl->emitter[ig], "HNO4") == 0)
1064 q[ig] = hno4;
1065 if (strcasecmp(ctl->emitter[ig], "HOCl") == 0)
1066 q[ig] = hocl;
1067 if (strcasecmp(ctl->emitter[ig], "N2O") == 0)
1068 q[ig] = n2o;
1069 if (strcasecmp(ctl->emitter[ig], "N2O5") == 0)
1070 q[ig] = n2o5;
1071 if (strcasecmp(ctl->emitter[ig], "NH3") == 0)
1072 q[ig] = nh3;
1073 if (strcasecmp(ctl->emitter[ig], "NO") == 0)
1074 q[ig] = no;
1075 if (strcasecmp(ctl->emitter[ig], "NO2") == 0)
1076 q[ig] = no2;
1077 if (strcasecmp(ctl->emitter[ig], "O3") == 0)
1078 q[ig] = o3;
1079 if (strcasecmp(ctl->emitter[ig], "OCS") == 0)
1080 q[ig] = ocs;
1081 if (strcasecmp(ctl->emitter[ig], "SF6") == 0)
1082 q[ig] = sf6;
1083 if (strcasecmp(ctl->emitter[ig], "SO2") == 0)
1084 q[ig] = so2;
1085 }
1086
1087 /* Loop over atmospheric data points... */
1088 for (int ip = 0; ip < atm->np; ip++) {
1089
1090 /* Get altitude index... */
1091 const int iz = locate_reg(z, 121, atm->z[ip]);
1092
1093 /* Interpolate pressure... */
1094 atm->p[ip] = LOGY(z[iz], pre[iz], z[iz + 1], pre[iz + 1], atm->z[ip]);
1095
1096 /* Interpolate temperature... */
1097 atm->t[ip] = LIN(z[iz], tem[iz], z[iz + 1], tem[iz + 1], atm->z[ip]);
1098
1099 /* Interpolate trace gases... */
1100 for (int ig = 0; ig < ctl->ng; ig++)
1101 if (q[ig] != NULL)
1102 atm->q[ig][ip] =
1103 LIN(z[iz], q[ig][iz], z[iz + 1], q[ig][iz + 1], atm->z[ip]);
1104 else
1105 atm->q[ig][ip] = 0;
1106
1107 /* Set CO2... */
1108 if (ctl->ig_co2 >= 0)
1109 atm->q[ctl->ig_co2][ip] =
1110 371.789948e-6 + 2.026214e-6 * (atm->time[ip] - 63158400.) / 31557600.;
1111
1112 /* Set N2... */
1113 if (ctl->ig_n2 >= 0)
1114 atm->q[ctl->ig_n2][ip] = N2;
1115
1116 /* Set O2... */
1117 if (ctl->ig_o2 >= 0)
1118 atm->q[ctl->ig_o2][ip] = O2;
1119
1120 /* Set extinction to zero... */
1121 for (int iw = 0; iw < ctl->nw; iw++)
1122 atm->k[iw][ip] = 0;
1123
1124 /* Set cloud layer... */
1125 atm->clz = atm->cldz = 0;
1126 for (int icl = 0; icl < ctl->ncl; icl++)
1127 atm->clk[icl] = 0;
1128
1129 /* Set surface layer... */
1130 atm->sft = 0;
1131 for (int isf = 0; isf < ctl->nsf; isf++)
1132 atm->sfeps[isf] = 1;
1133 }
1134}
1135
1136/*****************************************************************************/
1137
1138double cos_sza(
1139 const double sec,
1140 const double lon,
1141 const double lat) {
1142
1143 /* Number of days and fraction with respect to 2000-01-01T12:00Z... */
1144 const double D = sec / 86400 - 0.5;
1145
1146 /* Geocentric apparent ecliptic longitude [rad]... */
1147 const double g = DEG2RAD(357.529 + 0.98560028 * D);
1148 const double q = 280.459 + 0.98564736 * D;
1149 const double L = DEG2RAD(q + 1.915 * sin(g) + 0.020 * sin(2 * g));
1150
1151 /* Mean obliquity of the ecliptic [rad]... */
1152 const double e = DEG2RAD(23.439 - 0.00000036 * D);
1153
1154 /* Declination [rad]... */
1155 const double sindec = sin(e) * sin(L);
1156
1157 /* Right ascension [rad]... */
1158 const double ra = atan2(cos(e) * sin(L), cos(L));
1159
1160 /* Greenwich Mean Sidereal Time [h]... */
1161 const double GMST = 18.697374558 + 24.06570982441908 * D;
1162
1163 /* Local Sidereal Time [h]... */
1164 const double LST = GMST + lon / 15;
1165
1166 /* Hour angle [rad]... */
1167 const double h = LST / 12 * M_PI - ra;
1168
1169 /* Convert latitude... */
1170 const double lat_help = DEG2RAD(lat);
1171
1172 /* Return cosine of solar zenith angle... */
1173 return sin(lat_help) * sindec + cos(lat_help)
1174 * sqrt(1 - POW2(sindec)) * cos(h);
1175}
1176
1177/*****************************************************************************/
1178
1179double cost_function(
1180 const gsl_vector *dx,
1181 const gsl_vector *dy,
1182 const gsl_matrix *s_a_inv,
1183 const gsl_vector *sig_eps_inv) {
1184
1185 double chisq_a, chisq_m = 0;
1186
1187 /* Get sizes... */
1188 const size_t m = dy->size;
1189 const size_t n = dx->size;
1190
1191 /* Allocate... */
1192 gsl_vector *x_aux = gsl_vector_alloc(n);
1193 gsl_vector *y_aux = gsl_vector_alloc(m);
1194
1195 /* Determine normalized cost function...
1196 (chi^2 = 1/m * [dy^T * S_eps^{-1} * dy + dx^T * S_a^{-1} * dx]) */
1197 for (size_t i = 0; i < m; i++)
1198 chisq_m += POW2(gsl_vector_get(dy, i) * gsl_vector_get(sig_eps_inv, i));
1199 gsl_blas_dgemv(CblasNoTrans, 1.0, s_a_inv, dx, 0.0, x_aux);
1200 gsl_blas_ddot(dx, x_aux, &chisq_a);
1201
1202 /* Free... */
1203 gsl_vector_free(x_aux);
1204 gsl_vector_free(y_aux);
1205
1206 /* Return cost function value... */
1207 return (chisq_m + chisq_a) / (double) m;
1208}
1209
1210/*****************************************************************************/
1211
1212double ctmco2(
1213 const double nu,
1214 const double p,
1215 const double t,
1216 const double u) {
1217
1218 static const double co2296[2001] =
1219 { 9.3388e-5, 9.7711e-5, 1.0224e-4, 1.0697e-4,
1220 1.1193e-4, 1.1712e-4, 1.2255e-4, 1.2824e-4, 1.3419e-4, 1.4043e-4,
1221 1.4695e-4, 1.5378e-4, 1.6094e-4, 1.6842e-4, 1.7626e-4, 1.8447e-4,
1222 1.9307e-4, 2.0207e-4, 2.1149e-4, 2.2136e-4, 2.3169e-4, 2.4251e-4,
1223 2.5384e-4, 2.657e-4, 2.7813e-4, 2.9114e-4, 3.0477e-4, 3.1904e-4,
1224 3.3399e-4, 3.4965e-4, 3.6604e-4, 3.8322e-4, 4.0121e-4, 4.2006e-4,
1225 4.398e-4, 4.6047e-4, 4.8214e-4, 5.0483e-4, 5.286e-4, 5.535e-4,
1226 5.7959e-4, 6.0693e-4, 6.3557e-4, 6.6558e-4, 6.9702e-4, 7.2996e-4,
1227 7.6449e-4, 8.0066e-4, 8.3856e-4, 8.7829e-4, 9.1991e-4, 9.6354e-4,
1228 .0010093, .0010572, .0011074, .00116, .0012152, .001273,
1229 .0013336, .0013972, .0014638, .0015336, .0016068, .0016835,
1230 .001764, .0018483, .0019367, .0020295, .0021267, .0022286,
1231 .0023355, .0024476, .0025652, .0026885, .0028178, .0029534,
1232 .0030956, .0032448, .0034012, .0035654, .0037375, .0039181,
1233 .0041076, .0043063, .0045148, .0047336, .0049632, .005204,
1234 .0054567, .0057219, .0060002, .0062923, .0065988, .0069204,
1235 .007258, .0076123, .0079842, .0083746, .0087844, .0092146,
1236 .0096663, .01014, .010638, .011161, .01171, .012286, .012891,
1237 .013527, .014194, .014895, .015631, .016404, .017217, .01807,
1238 .018966, .019908, .020897, .021936, .023028, .024176, .025382,
1239 .026649, .027981, .02938, .030851, .032397, .034023, .035732,
1240 .037528, .039416, .041402, .04349, .045685, .047994, .050422,
1241 .052975, .055661, .058486, .061458, .064584, .067873, .071334,
1242 .074975, .078807, .082839, .087082, .091549, .096249, .1012,
1243 .10641, .11189, .11767, .12375, .13015, .13689, .14399, .15147,
1244 .15935, .16765, .17639, .18561, .19531, .20554, .21632, .22769,
1245 .23967, .25229, .2656, .27964, .29443, .31004, .3265, .34386,
1246 .36218, .3815, .40188, .42339, .44609, .47004, .49533, .52202,
1247 .5502, .57995, .61137, .64455, .6796, .71663, .75574, .79707,
1248 .84075, .88691, .9357, .98728, 1.0418, 1.0995, 1.1605, 1.225,
1249 1.2932, 1.3654, 1.4418, 1.5227, 1.6083, 1.6989, 1.7948, 1.8964,
1250 2.004, 2.118, 2.2388, 2.3668, 2.5025, 2.6463, 2.7988, 2.9606,
1251 3.1321, 3.314, 3.5071, 3.712, 3.9296, 4.1605, 4.4058, 4.6663,
1252 4.9431, 5.2374, 5.5501, 5.8818, 6.2353, 6.6114, 7.0115, 7.4372,
1253 7.8905, 8.3731, 8.8871, 9.4349, 10.019, 10.641, 11.305, 12.013,
1254 12.769, 13.576, 14.437, 15.358, 16.342, 17.39, 18.513, 19.716,
1255 21.003, 22.379, 23.854, 25.436, 27.126, 28.942, 30.89, 32.973,
1256 35.219, 37.634, 40.224, 43.021, 46.037, 49.29, 52.803, 56.447,
1257 60.418, 64.792, 69.526, 74.637, 80.182, 86.193, 92.713, 99.786,
1258 107.47, 115.84, 124.94, 134.86, 145.69, 157.49, 170.3, 184.39,
1259 199.83, 216.4, 234.55, 254.72, 276.82, 299.85, 326.16, 354.99,
1260 386.51, 416.68, 449.89, 490.12, 534.35, 578.25, 632.26, 692.61,
1261 756.43, 834.75, 924.11, 1016.9, 996.96, 1102.7, 1219.2, 1351.9,
1262 1494.3, 1654.1, 1826.5, 2027.9, 2249., 2453.8, 2714.4, 2999.4,
1263 3209.5, 3509., 3840.4, 3907.5, 4190.7, 4533.5, 4648.3, 5059.1,
1264 5561.6, 6191.4, 6820.8, 7905.9, 9362.2, 2431.3, 2211.3, 2046.8,
1265 2023.8, 1985.9, 1905.9, 1491.1, 1369.8, 1262.2, 1200.7, 887.74,
1266 820.25, 885.23, 887.21, 816.73, 1126.9, 1216.2, 1272.4, 1579.5,
1267 1634.2, 1656.3, 1657.9, 1789.5, 1670.8, 1509.5, 8474.6, 7489.2,
1268 6793.6, 6117., 5574.1, 5141.2, 5084.6, 4745.1, 4413.2, 4102.8,
1269 4024.7, 3715., 3398.6, 3100.8, 2900.4, 2629.2, 2374., 2144.7,
1270 1955.8, 1760.8, 1591.2, 1435.2, 1296.2, 1174., 1065.1, 967.76,
1271 999.48, 897.45, 809.23, 732.77, 670.26, 611.93, 560.11, 518.77,
1272 476.84, 438.8, 408.48, 380.21, 349.24, 322.71, 296.65, 272.85,
1273 251.96, 232.04, 213.88, 197.69, 182.41, 168.41, 155.79, 144.05,
1274 133.31, 123.48, 114.5, 106.21, 98.591, 91.612, 85.156, 79.204,
1275 73.719, 68.666, 63.975, 59.637, 56.35, 52.545, 49.042, 45.788,
1276 42.78, 39.992, 37.441, 35.037, 32.8, 30.744, 28.801, 26.986,
1277 25.297, 23.731, 22.258, 20.883, 19.603, 18.403, 17.295, 16.249,
1278 15.271, 14.356, 13.501, 12.701, 11.954, 11.254, 10.6, 9.9864,
1279 9.4118, 8.8745, 8.3714, 7.8997, 7.4578, 7.0446, 6.6573, 6.2949,
1280 5.9577, 5.6395, 5.3419, 5.063, 4.8037, 4.5608, 4.3452, 4.1364,
1281 3.9413, 3.7394, 3.562, 3.3932, 3.2325, 3.0789, 2.9318, 2.7898,
1282 2.6537, 2.5225, 2.3958, 2.2305, 2.1215, 2.0245, 1.9427, 1.8795,
1283 1.8336, 1.7604, 1.7016, 1.6419, 1.5282, 1.4611, 1.3443, 1.27,
1284 1.1675, 1.0824, 1.0534, .99833, .95854, .92981, .90887, .89346,
1285 .88113, .87068, .86102, .85096, .88262, .86151, .83565, .80518,
1286 .77045, .73736, .74744, .74954, .75773, .82267, .83493, .89402,
1287 .89725, .93426, .95564, .94045, .94174, .93404, .92035, .90456,
1288 .88621, .86673, .78117, .7515, .72056, .68822, .65658, .62764,
1289 .55984, .55598, .57407, .60963, .63763, .66198, .61132, .60972,
1290 .52496, .50649, .41872, .3964, .32422, .27276, .24048, .23772,
1291 .2286, .22711, .23999, .32038, .34371, .36621, .38561, .39953,
1292 .40636, .44913, .42716, .3919, .35477, .33935, .3351, .39746,
1293 .40993, .49398, .49956, .56157, .54742, .57295, .57386, .55417,
1294 .50745, .471, .43446, .39102, .34993, .31269, .27888, .24912,
1295 .22291, .19994, .17972, .16197, .14633, .13252, .12029, .10942,
1296 .099745, .091118, .083404, .076494, .070292, .064716, .059697,
1297 .055173, .051093, .047411, .044089, .041092, .038392, .035965,
1298 .033789, .031846, .030122, .028607, .02729, .026169, .025209,
1299 .024405, .023766, .023288, .022925, .022716, .022681, .022685,
1300 .022768, .023133, .023325, .023486, .024004, .024126, .024083,
1301 .023785, .024023, .023029, .021649, .021108, .019454, .017809,
1302 .017292, .016635, .017037, .018068, .018977, .018756, .017847,
1303 .016557, .016142, .014459, .012869, .012381, .010875, .0098701,
1304 .009285, .0091698, .0091701, .0096145, .010553, .01106, .012613,
1305 .014362, .015017, .016507, .017741, .01768, .017784, .0171,
1306 .016357, .016172, .017257, .018978, .020935, .021741, .023567,
1307 .025183, .025589, .026732, .027648, .028278, .028215, .02856,
1308 .029015, .029062, .028851, .028497, .027825, .027801, .026523,
1309 .02487, .022967, .022168, .020194, .018605, .017903, .018439,
1310 .019697, .020311, .020855, .020057, .018608, .016738, .015963,
1311 .013844, .011801, .011134, .0097573, .0086007, .0086226,
1312 .0083721, .0090978, .0097616, .0098426, .011317, .012853, .01447,
1313 .014657, .015771, .016351, .016079, .014829, .013431, .013185,
1314 .013207, .01448, .016176, .017971, .018265, .019526, .020455,
1315 .019797, .019802, .0194, .018176, .017505, .016197, .015339,
1316 .014401, .013213, .012203, .011186, .010236, .0093288, .0084854,
1317 .0076837, .0069375, .0062614, .0056628, .0051153, .0046015,
1318 .0041501, .003752, .0033996, .0030865, .0028077, .0025586,
1319 .0023355, .0021353, .0019553, .0017931, .0016466, .0015141,
1320 .0013941, .0012852, .0011862, .0010962, .0010142, 9.3935e-4,
1321 8.71e-4, 8.0851e-4, 7.5132e-4, 6.9894e-4, 6.5093e-4, 6.0689e-4,
1322 5.6647e-4, 5.2935e-4, 4.9525e-4, 4.6391e-4, 4.3509e-4, 4.086e-4,
1323 3.8424e-4, 3.6185e-4, 3.4126e-4, 3.2235e-4, 3.0498e-4, 2.8904e-4,
1324 2.7444e-4, 2.6106e-4, 2.4883e-4, 2.3766e-4, 2.275e-4, 2.1827e-4,
1325 2.0992e-4, 2.0239e-4, 1.9563e-4, 1.896e-4, 1.8427e-4, 1.796e-4,
1326 1.7555e-4, 1.7209e-4, 1.692e-4, 1.6687e-4, 1.6505e-4, 1.6375e-4,
1327 1.6294e-4, 1.6261e-4, 1.6274e-4, 1.6334e-4, 1.6438e-4, 1.6587e-4,
1328 1.678e-4, 1.7017e-4, 1.7297e-4, 1.762e-4, 1.7988e-4, 1.8399e-4,
1329 1.8855e-4, 1.9355e-4, 1.9902e-4, 2.0494e-4, 2.1134e-4, 2.1823e-4,
1330 2.2561e-4, 2.335e-4, 2.4192e-4, 2.5088e-4, 2.604e-4, 2.705e-4,
1331 2.8119e-4, 2.9251e-4, 3.0447e-4, 3.171e-4, 3.3042e-4, 3.4447e-4,
1332 3.5927e-4, 3.7486e-4, 3.9127e-4, 4.0854e-4, 4.267e-4, 4.4579e-4,
1333 4.6586e-4, 4.8696e-4, 5.0912e-4, 5.324e-4, 5.5685e-4, 5.8253e-4,
1334 6.0949e-4, 6.378e-4, 6.6753e-4, 6.9873e-4, 7.3149e-4, 7.6588e-4,
1335 8.0198e-4, 8.3987e-4, 8.7964e-4, 9.2139e-4, 9.6522e-4, .0010112,
1336 .0010595, .0011102, .0011634, .0012193, .001278, .0013396,
1337 .0014043, .0014722, .0015436, .0016185, .0016972, .0017799,
1338 .0018668, .001958, .0020539, .0021547, .0022606, .0023719,
1339 .002489, .002612, .0027414, .0028775, .0030206, .0031712,
1340 .0033295, .0034962, .0036716, .0038563, .0040506, .0042553,
1341 .0044709, .004698, .0049373, .0051894, .0054552, .0057354,
1342 .006031, .0063427, .0066717, .0070188, .0073854, .0077726,
1343 .0081816, .0086138, .0090709, .0095543, .010066, .010607,
1344 .011181, .011789, .012433, .013116, .013842, .014613, .015432,
1345 .016304, .017233, .018224, .019281, .020394, .021574, .022836,
1346 .024181, .025594, .027088, .028707, .030401, .032245, .034219,
1347 .036262, .038539, .040987, .043578, .04641, .04949, .052726,
1348 .056326, .0602, .064093, .068521, .073278, .077734, .083064,
1349 .088731, .093885, .1003, .1072, .11365, .12187, .13078, .13989,
1350 .15095, .16299, .17634, .19116, .20628, .22419, .24386, .26587,
1351 .28811, .31399, .34321, .36606, .39675, .42742, .44243, .47197,
1352 .49993, .49027, .51147, .52803, .48931, .49729, .5026, .43854,
1353 .441, .44766, .43414, .46151, .50029, .55247, .43855, .32115,
1354 .32607, .3431, .36119, .38029, .41179, .43996, .47144, .51853,
1355 .55362, .59122, .66338, .69877, .74001, .82923, .86907, .90361,
1356 1.0025, 1.031, 1.0559, 1.104, 1.1178, 1.1341, 1.1547, 1.351,
1357 1.4772, 1.4812, 1.4907, 1.512, 1.5442, 1.5853, 1.6358, 1.6963,
1358 1.7674, 1.8474, 1.9353, 2.0335, 2.143, 2.2592, 2.3853, 2.5217,
1359 2.6686, 2.8273, 2.9998, 3.183, 3.3868, 3.6109, 3.8564, 4.1159,
1360 4.4079, 4.7278, 5.0497, 5.3695, 5.758, 6.0834, 6.4976, 6.9312,
1361 7.38, 7.5746, 7.9833, 8.3791, 8.3956, 8.7501, 9.1067, 9.072,
1362 9.4649, 9.9112, 10.402, 10.829, 11.605, 12.54, 12.713, 10.443,
1363 10.825, 11.375, 11.955, 12.623, 13.326, 14.101, 15.041, 15.547,
1364 16.461, 17.439, 18.716, 19.84, 21.036, 22.642, 23.901, 25.244,
1365 27.03, 28.411, 29.871, 31.403, 33.147, 34.744, 36.456, 39.239,
1366 43.605, 45.162, 47.004, 49.093, 51.391, 53.946, 56.673, 59.629,
1367 63.167, 66.576, 70.254, 74.222, 78.477, 83.034, 87.914, 93.18,
1368 98.77, 104.74, 111.15, 117.95, 125.23, 133.01, 141.33, 150.21,
1369 159.71, 169.89, 180.93, 192.54, 204.99, 218.34, 232.65, 248.,
1370 264.47, 282.14, 301.13, 321.53, 343.48, 367.08, 392.5, 419.88,
1371 449.4, 481.26, 515.64, 552.79, 592.99, 636.48, 683.61, 734.65,
1372 789.99, 850.02, 915.14, 985.81, 1062.5, 1147.1, 1237.8, 1336.4,
1373 1443.2, 1558.9, 1684.2, 1819.2, 1965.2, 2122.6, 2291.7, 2470.8,
1374 2665.7, 2874.9, 3099.4, 3337.9, 3541., 3813.3, 4111.9, 4439.3,
1375 4798.9, 5196., 5639.2, 6087.5, 6657.7, 7306.7, 8040.7, 8845.5,
1376 9702.2, 10670., 11739., 12842., 14141., 15498., 17068., 18729.,
1377 20557., 22559., 25248., 27664., 30207., 32915., 35611., 38081.,
1378 40715., 43191., 41651., 42750., 43785., 44353., 44366., 44189.,
1379 43618., 42862., 41878., 35133., 35215., 36383., 39420., 44055.,
1380 44155., 45850., 46853., 39197., 38274., 29942., 28553., 21792.,
1381 21228., 17106., 14955., 18181., 19557., 21427., 23728., 26301.,
1382 28584., 30775., 32536., 33867., 40089., 39204., 37329., 34452.,
1383 31373., 33921., 34800., 36043., 44415., 45162., 52181., 50895.,
1384 54140., 50840., 50468., 48302., 44915., 40910., 36754., 32755.,
1385 29093., 25860., 22962., 20448., 18247., 16326., 14645., 13165.,
1386 11861., 10708., 9686.9, 8779.7, 7971.9, 7250.8, 6605.7, 6027.2,
1387 5507.3, 5039.1, 4616.6, 4234.8, 3889., 3575.4, 3290.5, 3031.3,
1388 2795.2, 2579.9, 2383.1, 2203.3, 2038.6, 1887.6, 1749.1, 1621.9,
1389 1505., 1397.4, 1298.3, 1207., 1122.8, 1045., 973.1, 906.64,
1390 845.16, 788.22, 735.48, 686.57, 641.21, 599.1, 559.99, 523.64,
1391 489.85, 458.42, 429.16, 401.92, 376.54, 352.88, 330.82, 310.24,
1392 291.03, 273.09, 256.34, 240.69, 226.05, 212.37, 199.57, 187.59,
1393 176.37, 165.87, 156.03, 146.82, 138.17, 130.07, 122.47, 115.34,
1394 108.65, 102.37, 96.473, 90.934, 85.73, 80.84, 76.243, 71.922,
1395 67.858, 64.034, 60.438, 57.052, 53.866, 50.866, 48.04, 45.379,
1396 42.872, 40.51, 38.285, 36.188, 34.211, 32.347, 30.588, 28.929,
1397 27.362, 25.884, 24.489, 23.171, 21.929, 20.755, 19.646, 18.599,
1398 17.61, 16.677, 15.795, 14.961, 14.174, 13.43, 12.725, 12.06,
1399 11.431, 10.834, 10.27, 9.7361, 9.2302, 8.7518, 8.2997, 7.8724,
1400 7.4674, 7.0848, 6.7226, 6.3794, 6.054, 5.745, 5.4525, 5.1752,
1401 4.9121, 4.6625, 4.4259, 4.2015, 3.9888, 3.7872, 3.5961, 3.4149,
1402 3.2431, 3.0802, 2.9257, 2.7792, 2.6402, 2.5084, 2.3834, 2.2648,
1403 2.1522, 2.0455, 1.9441, 1.848, 1.7567, 1.6701, 1.5878, 1.5097,
1404 1.4356, 1.3651, 1.2981, 1.2345, 1.174, 1.1167, 1.062, 1.0101,
1405 .96087, .91414, .86986, .82781, .78777, .74971, .71339, .67882,
1406 .64604, .61473, .58507, .55676, .52987, .5044, .48014, .45715,
1407 .43527, .41453, .3948, .37609, .35831, .34142, .32524, .30995,
1408 .29536, .28142, .26807, .25527, .24311, .23166, .22077, .21053,
1409 .20081, .19143, .18261, .17407, .16603, .15833, .15089, .14385,
1410 .13707, .13065, .12449, .11865, .11306, .10774, .10266, .097818,
1411 .093203, .088815, .084641, .080671, .076892, .073296, .069873,
1412 .066613, .06351, .060555, .05774, .055058, .052504, .050071,
1413 .047752, .045543, .043438, .041432, .039521, .037699, .035962,
1414 .034307, .032729, .031225, .029791, .028423, .02712, .025877,
1415 .024692, .023563, .022485, .021458, .020478, .019543, .018652,
1416 .017802, .016992, .016219, .015481, .014778, .014107, .013467,
1417 .012856, .012274, .011718, .011188, .010682, .0102, .0097393,
1418 .0093001, .008881, .0084812, .0080997, .0077358, .0073885,
1419 .0070571, .0067409, .0064393, .0061514, .0058768, .0056147,
1420 .0053647, .0051262, .0048987, .0046816, .0044745, .0042769,
1421 .0040884, .0039088, .0037373, .0035739, .003418, .0032693,
1422 .0031277, .0029926, .0028639, .0027413, .0026245, .0025133,
1423 .0024074, .0023066, .0022108, .0021196, .002033, .0019507,
1424 .0018726, .0017985, .0017282, .0016617, .0015988, .0015394,
1425 .0014834, .0014306, .0013811, .0013346, .0012911, .0012506,
1426 .0012131, .0011784, .0011465, .0011175, .0010912, .0010678,
1427 .0010472, .0010295, .0010147, .001003, 9.9428e-4, 9.8883e-4,
1428 9.8673e-4, 9.8821e-4, 9.9343e-4, .0010027, .0010164, .0010348,
1429 .0010586, .0010882, .0011245, .0011685, .0012145, .0012666,
1430 .0013095, .0013688, .0014048, .0014663, .0015309, .0015499,
1431 .0016144, .0016312, .001705, .0017892, .0018499, .0019715,
1432 .0021102, .0022442, .0024284, .0025893, .0027703, .0029445,
1433 .0031193, .003346, .0034552, .0036906, .0037584, .0040084,
1434 .0041934, .0044587, .0047093, .0049759, .0053421, .0055134,
1435 .0059048, .0058663, .0061036, .0063259, .0059657, .0060653,
1436 .0060972, .0055539, .0055653, .0055772, .005331, .0054953,
1437 .0055919, .0058684, .006183, .0066675, .0069808, .0075142,
1438 .0078536, .0084282, .0089454, .0094625, .0093703, .0095857,
1439 .0099283, .010063, .010521, .0097778, .0098175, .010379, .010447,
1440 .0105, .010617, .010706, .01078, .011177, .011212, .011304,
1441 .011446, .011603, .011816, .012165, .012545, .013069, .013539,
1442 .01411, .014776, .016103, .017016, .017994, .018978, .01998,
1443 .021799, .022745, .023681, .024627, .025562, .026992, .027958,
1444 .029013, .030154, .031402, .03228, .033651, .035272, .037088,
1445 .039021, .041213, .043597, .045977, .04877, .051809, .054943,
1446 .058064, .061528, .06537, .069309, .071928, .075752, .079589,
1447 .083352, .084096, .087497, .090817, .091198, .094966, .099045,
1448 .10429, .10867, .11518, .12269, .13126, .14087, .15161, .16388,
1449 .16423, .1759, .18721, .19994, .21275, .22513, .23041, .24231,
1450 .25299, .25396, .26396, .27696, .27929, .2908, .30595, .31433,
1451 .3282, .3429, .35944, .37467, .39277, .41245, .43326, .45649,
1452 .48152, .51897, .54686, .57877, .61263, .64962, .68983, .73945,
1453 .78619, .83537, .89622, .95002, 1.0067, 1.0742, 1.1355, 1.2007,
1454 1.2738, 1.347, 1.4254, 1.5094, 1.6009, 1.6976, 1.8019, 1.9148,
1455 2.0357, 2.166, 2.3066, 2.4579, 2.6208, 2.7966, 2.986, 3.188,
1456 3.4081, 3.6456, 3.9, 4.1747, 4.4712, 4.7931, 5.1359, 5.5097,
1457 5.9117, 6.3435, 6.8003, 7.3001, 7.8385, 8.3945, 9.011, 9.6869,
1458 10.392, 11.18, 12.036, 12.938, 13.944, 14.881, 16.029, 17.255,
1459 18.574, 19.945, 21.38, 22.9, 24.477, 26.128, 27.87, 29.037,
1460 30.988, 33.145, 35.506, 37.76, 40.885, 44.487, 48.505, 52.911,
1461 57.56, 61.964, 67.217, 72.26, 78.343, 85.08, 91.867, 99.435,
1462 107.68, 116.97, 127.12, 138.32, 150.26, 163.04, 174.81, 189.26,
1463 205.61, 224.68, 240.98, 261.88, 285.1, 307.58, 334.35, 363.53,
1464 394.68, 427.85, 458.85, 489.25, 472.87, 486.93, 496.27, 501.52,
1465 501.57, 497.14, 488.09, 476.32, 393.76, 388.51, 393.42, 414.45,
1466 455.12, 514.62, 520.38, 547.42, 562.6, 487.47, 480.83, 391.06,
1467 376.92, 303.7, 295.91, 256.03, 236.73, 280.38, 310.71, 335.53,
1468 367.88, 401.94, 435.52, 469.13, 497.94, 588.82, 597.94, 597.2,
1469 588.28, 571.2, 555.75, 603.56, 638.15, 680.75, 801.72, 848.01,
1470 962.15, 990.06, 1068.1, 1076.2, 1115.3, 1134.2, 1136.6, 1119.1,
1471 1108.9, 1090.6, 1068.7, 1041.9, 1005.4, 967.98, 927.08, 780.1,
1472 751.41, 733.12, 742.65, 785.56, 855.16, 852.45, 878.1, 784.59,
1473 777.81, 765.13, 622.93, 498.09, 474.89, 386.9, 378.48, 336.17,
1474 322.04, 329.57, 350.5, 383.38, 420.02, 462.39, 499.71, 531.98,
1475 654.99, 653.43, 639.99, 605.16, 554.16, 504.42, 540.64, 552.33,
1476 679.46, 699.51, 713.91, 832.17, 919.91, 884.96, 907.57, 846.56,
1477 818.56, 768.93, 706.71, 642.17, 575.95, 515.38, 459.07, 409.02,
1478 364.61, 325.46, 291.1, 260.89, 234.39, 211.01, 190.38, 172.11,
1479 155.91, 141.49, 128.63, 117.13, 106.84, 97.584, 89.262, 81.756,
1480 74.975, 68.842, 63.28, 58.232, 53.641, 49.46, 45.649, 42.168,
1481 38.991, 36.078, 33.409, 30.96, 28.71, 26.642, 24.737, 22.985,
1482 21.37, 19.882, 18.512, 17.242, 16.073, 14.987, 13.984, 13.05,
1483 12.186, 11.384, 10.637, 9.9436, 9.2988, 8.6991, 8.141, 7.6215,
1484 7.1378, 6.6872, 6.2671, 5.8754, 5.51, 5.1691, 4.851, 4.5539,
1485 4.2764, 4.0169, 3.7742, 3.5472, 3.3348, 3.1359, 2.9495, 2.7749,
1486 2.6113, 2.4578, 2.3139, 2.1789, 2.0523, 1.9334, 1.8219, 1.7171,
1487 1.6188, 1.5263, 1.4395, 1.3579, 1.2812, 1.209, 1.1411, 1.0773,
1488 1.0171, .96048, .90713, .85684, .80959, .76495, .72282, .68309,
1489 .64563, .61035, .57707, .54573, .51622, .48834, .46199, .43709,
1490 .41359, .39129, .37034, .35064, .33198, .31442, .29784, .28218,
1491 .26732, .25337, .24017, .22774, .21601, .20479, .19426
1492 };
1493
1494 static const double co2260[2001] =
1495 { 5.7971e-5, 6.0733e-5, 6.3628e-5, 6.6662e-5,
1496 6.9843e-5, 7.3176e-5, 7.6671e-5, 8.0334e-5, 8.4175e-5, 8.8201e-5,
1497 9.2421e-5, 9.6846e-5, 1.0149e-4, 1.0635e-4, 1.1145e-4, 1.1679e-4,
1498 1.224e-4, 1.2828e-4, 1.3444e-4, 1.409e-4, 1.4768e-4, 1.5479e-4,
1499 1.6224e-4, 1.7006e-4, 1.7826e-4, 1.8685e-4, 1.9587e-4, 2.0532e-4,
1500 2.1524e-4, 2.2565e-4, 2.3656e-4, 2.48e-4, 2.6001e-4, 2.7261e-4,
1501 2.8582e-4, 2.9968e-4, 3.1422e-4, 3.2948e-4, 3.4548e-4, 3.6228e-4,
1502 3.799e-4, 3.9838e-4, 4.1778e-4, 4.3814e-4, 4.595e-4, 4.8191e-4,
1503 5.0543e-4, 5.3012e-4, 5.5603e-4, 5.8321e-4, 6.1175e-4, 6.417e-4,
1504 6.7314e-4, 7.0614e-4, 7.4078e-4, 7.7714e-4, 8.1531e-4, 8.5538e-4,
1505 8.9745e-4, 9.4162e-4, 9.8798e-4, .0010367, .0010878, .0011415,
1506 .0011978, .001257, .0013191, .0013844, .001453, .0015249,
1507 .0016006, .00168, .0017634, .001851, .001943, .0020397, .0021412,
1508 .0022479, .00236, .0024778, .0026015, .0027316, .0028682,
1509 .0030117, .0031626, .0033211, .0034877, .0036628, .0038469,
1510 .0040403, .0042436, .0044574, .004682, .0049182, .0051665,
1511 .0054276, .0057021, .0059907, .0062942, .0066133, .0069489,
1512 .0073018, .0076729, .0080632, .0084738, .0089056, .0093599,
1513 .0098377, .01034, .010869, .011426, .012011, .012627, .013276,
1514 .013958, .014676, .015431, .016226, .017063, .017944, .018872,
1515 .019848, .020876, .021958, .023098, .024298, .025561, .026892,
1516 .028293, .029769, .031323, .032961, .034686, .036503, .038418,
1517 .040435, .042561, .044801, .047161, .049649, .052271, .055035,
1518 .057948, .061019, .064256, .06767, .07127, .075066, .079069,
1519 .083291, .087744, .092441, .097396, .10262, .10814, .11396,
1520 .1201, .12658, .13342, .14064, .14826, .1563, .1648, .17376,
1521 .18323, .19324, .2038, .21496, .22674, .23919, .25234, .26624,
1522 .28093, .29646, .31287, .33021, .34855, .36794, .38844, .41012,
1523 .43305, .45731, .48297, .51011, .53884, .56924, .60141, .63547,
1524 .67152, .70969, .75012, .79292, .83826, .8863, .93718, .99111,
1525 1.0482, 1.1088, 1.173, 1.2411, 1.3133, 1.3898, 1.471, 1.5571,
1526 1.6485, 1.7455, 1.8485, 1.9577, 2.0737, 2.197, 2.3278, 2.4668,
1527 2.6145, 2.7715, 2.9383, 3.1156, 3.3042, 3.5047, 3.7181, 3.9451,
1528 4.1866, 4.4437, 4.7174, 5.0089, 5.3192, 5.65, 6.0025, 6.3782,
1529 6.7787, 7.206, 7.6617, 8.1479, 8.6669, 9.221, 9.8128, 10.445,
1530 11.12, 11.843, 12.615, 13.441, 14.325, 15.271, 16.283, 17.367,
1531 18.529, 19.776, 21.111, 22.544, 24.082, 25.731, 27.504, 29.409,
1532 31.452, 33.654, 36.024, 38.573, 41.323, 44.29, 47.492, 50.951,
1533 54.608, 58.588, 62.929, 67.629, 72.712, 78.226, 84.207, 90.699,
1534 97.749, 105.42, 113.77, 122.86, 132.78, 143.61, 155.44, 168.33,
1535 182.48, 198.01, 214.87, 233.39, 253.86, 276.34, 300.3, 327.28,
1536 356.89, 389.48, 422.29, 458.99, 501.39, 548.13, 595.62, 652.74,
1537 716.54, 784.57, 866.78, 960.59, 1062.8, 1072.5, 1189.5, 1319.4,
1538 1467.6, 1630.2, 1813.7, 2016.9, 2253., 2515.3, 2773.5, 3092.8,
1539 3444.4, 3720.4, 4104.3, 4527.5, 4645.9, 5021.7, 5462.2, 5597.,
1540 6110.6, 6732.5, 7513.8, 8270.6, 9640.6, 11487., 2796.1, 2680.1,
1541 2441.6, 2404.2, 2334.8, 2215.2, 1642.5, 1477.9, 1328.1, 1223.5,
1542 843.34, 766.96, 831.65, 834.84, 774.85, 1156.3, 1275.6, 1366.1,
1543 1795.6, 1885., 1936.5, 1953.4, 2154.4, 2002.7, 1789.8, 10381.,
1544 9040., 8216.5, 7384.7, 6721.9, 6187.7, 6143.8, 5703.9, 5276.6,
1545 4873.1, 4736., 4325.3, 3927., 3554.1, 3286.1, 2950.1, 2642.4,
1546 2368.7, 2138.9, 1914., 1719.6, 1543.9, 1388.6, 1252.1, 1132.2,
1547 1024.1, 1025.4, 920.58, 829.59, 750.54, 685.01, 624.25, 570.14,
1548 525.81, 481.85, 441.95, 408.71, 377.23, 345.86, 318.51, 292.26,
1549 268.34, 247.04, 227.14, 209.02, 192.69, 177.59, 163.78, 151.26,
1550 139.73, 129.19, 119.53, 110.7, 102.57, 95.109, 88.264, 81.948,
1551 76.13, 70.768, 65.827, 61.251, 57.022, 53.495, 49.824, 46.443,
1552 43.307, 40.405, 37.716, 35.241, 32.923, 30.77, 28.78, 26.915,
1553 25.177, 23.56, 22.059, 20.654, 19.345, 18.126, 16.988, 15.93,
1554 14.939, 14.014, 13.149, 12.343, 11.589, 10.884, 10.225, 9.6093,
1555 9.0327, 8.4934, 7.9889, 7.5166, 7.0744, 6.6604, 6.2727, 5.9098,
1556 5.5701, 5.2529, 4.955, 4.676, 4.4148, 4.171, 3.9426, 3.7332,
1557 3.5347, 3.3493, 3.1677, 3.0025, 2.8466, 2.6994, 2.5601, 2.4277,
1558 2.3016, 2.1814, 2.0664, 1.9564, 1.8279, 1.7311, 1.6427, 1.5645,
1559 1.4982, 1.443, 1.374, 1.3146, 1.2562, 1.17, 1.1105, 1.0272,
1560 .96863, .89718, .83654, .80226, .75908, .72431, .69573, .67174,
1561 .65126, .63315, .61693, .60182, .58715, .59554, .57649, .55526,
1562 .53177, .50622, .48176, .4813, .47642, .47492, .50273, .50293,
1563 .52687, .52239, .53419, .53814, .52626, .52211, .51492, .50622,
1564 .49746, .48841, .4792, .43534, .41999, .40349, .38586, .36799,
1565 .35108, .31089, .30803, .3171, .33599, .35041, .36149, .32924,
1566 .32462, .27309, .25961, .20922, .19504, .15683, .13098, .11588,
1567 .11478, .11204, .11363, .12135, .16423, .17785, .19094, .20236,
1568 .21084, .2154, .24108, .22848, .20871, .18797, .17963, .17834,
1569 .21552, .22284, .26945, .27052, .30108, .28977, .29772, .29224,
1570 .27658, .24956, .22777, .20654, .18392, .16338, .1452, .12916,
1571 .1152, .10304, .092437, .083163, .075031, .067878, .061564,
1572 .055976, .051018, .046609, .042679, .03917, .036032, .033223,
1573 .030706, .02845, .026428, .024617, .022998, .021554, .02027,
1574 .019136, .018141, .017278, .016541, .015926, .015432, .015058,
1575 .014807, .014666, .014635, .014728, .014947, .01527, .015728,
1576 .016345, .017026, .017798, .018839, .019752, .020636, .021886,
1577 .022695, .02327, .023478, .024292, .023544, .022222, .021932,
1578 .020052, .018143, .017722, .017031, .017782, .01938, .020734,
1579 .020476, .019255, .017477, .016878, .014617, .012489, .011765,
1580 .0099077, .0086446, .0079446, .0078644, .0079763, .008671,
1581 .01001, .0108, .012933, .015349, .016341, .018484, .020254,
1582 .020254, .020478, .019591, .018595, .018385, .019913, .022254,
1583 .024847, .025809, .028053, .029924, .030212, .031367, .03222,
1584 .032739, .032537, .03286, .033344, .033507, .033499, .033339,
1585 .032809, .033041, .031723, .029837, .027511, .026603, .024032,
1586 .021914, .020948, .021701, .023425, .024259, .024987, .023818,
1587 .021768, .019223, .018144, .015282, .012604, .01163, .0097907,
1588 .008336, .0082473, .0079582, .0088077, .009779, .010129, .012145,
1589 .014378, .016761, .01726, .018997, .019998, .019809, .01819,
1590 .016358, .016099, .01617, .017939, .020223, .022521, .02277,
1591 .024279, .025247, .024222, .023989, .023224, .021493, .020362,
1592 .018596, .017309, .015975, .014466, .013171, .011921, .01078,
1593 .0097229, .0087612, .0078729, .0070682, .0063494, .0057156,
1594 .0051459, .0046273, .0041712, .0037686, .0034119, .003095,
1595 .0028126, .0025603, .0023342, .0021314, .0019489, .0017845,
1596 .001636, .0015017, .00138, .0012697, .0011694, .0010782,
1597 9.9507e-4, 9.1931e-4, 8.5013e-4, 7.869e-4, 7.2907e-4, 6.7611e-4,
1598 6.2758e-4, 5.8308e-4, 5.4223e-4, 5.0473e-4, 4.7027e-4, 4.3859e-4,
1599 4.0946e-4, 3.8265e-4, 3.5798e-4, 3.3526e-4, 3.1436e-4, 2.9511e-4,
1600 2.7739e-4, 2.6109e-4, 2.4609e-4, 2.3229e-4, 2.1961e-4, 2.0797e-4,
1601 1.9729e-4, 1.875e-4, 1.7855e-4, 1.7038e-4, 1.6294e-4, 1.5619e-4,
1602 1.5007e-4, 1.4456e-4, 1.3961e-4, 1.3521e-4, 1.3131e-4, 1.2789e-4,
1603 1.2494e-4, 1.2242e-4, 1.2032e-4, 1.1863e-4, 1.1733e-4, 1.1641e-4,
1604 1.1585e-4, 1.1565e-4, 1.158e-4, 1.1629e-4, 1.1712e-4, 1.1827e-4,
1605 1.1976e-4, 1.2158e-4, 1.2373e-4, 1.262e-4, 1.2901e-4, 1.3214e-4,
1606 1.3562e-4, 1.3944e-4, 1.4361e-4, 1.4814e-4, 1.5303e-4, 1.5829e-4,
1607 1.6394e-4, 1.6999e-4, 1.7644e-4, 1.8332e-4, 1.9063e-4, 1.984e-4,
1608 2.0663e-4, 2.1536e-4, 2.246e-4, 2.3436e-4, 2.4468e-4, 2.5558e-4,
1609 2.6708e-4, 2.7921e-4, 2.92e-4, 3.0548e-4, 3.1968e-4, 3.3464e-4,
1610 3.5039e-4, 3.6698e-4, 3.8443e-4, 4.0281e-4, 4.2214e-4, 4.4248e-4,
1611 4.6389e-4, 4.864e-4, 5.1009e-4, 5.3501e-4, 5.6123e-4, 5.888e-4,
1612 6.1781e-4, 6.4833e-4, 6.8043e-4, 7.142e-4, 7.4973e-4, 7.8711e-4,
1613 8.2644e-4, 8.6783e-4, 9.1137e-4, 9.5721e-4, .0010054, .0010562,
1614 .0011096, .0011659, .0012251, .0012875, .0013532, .0014224,
1615 .0014953, .001572, .0016529, .0017381, .0018279, .0019226,
1616 .0020224, .0021277, .0022386, .0023557, .0024792, .0026095,
1617 .002747, .0028921, .0030453, .0032071, .003378, .0035586,
1618 .0037494, .003951, .0041642, .0043897, .0046282, .0048805,
1619 .0051476, .0054304, .00573, .0060473, .0063837, .0067404,
1620 .0071188, .0075203, .0079466, .0083994, .0088806, .0093922,
1621 .0099366, .010516, .011134, .011792, .012494, .013244, .014046,
1622 .014898, .015808, .016781, .017822, .018929, .020108, .02138,
1623 .022729, .02419, .02576, .027412, .029233, .031198, .033301,
1624 .035594, .038092, .040767, .04372, .046918, .050246, .053974,
1625 .058009, .061976, .066586, .071537, .076209, .081856, .087998,
1626 .093821, .10113, .10913, .11731, .12724, .13821, .15025, .1639,
1627 .17807, .19472, .21356, .23496, .25758, .28387, .31389, .34104,
1628 .37469, .40989, .43309, .46845, .5042, .5023, .52981, .55275,
1629 .51075, .51976, .52457, .44779, .44721, .4503, .4243, .45244,
1630 .49491, .55399, .39021, .24802, .2501, .2618, .27475, .28879,
1631 .31317, .33643, .36257, .4018, .43275, .46525, .53333, .56599,
1632 .60557, .70142, .74194, .77736, .88567, .91182, .93294, .98407,
1633 .98772, .99176, .9995, 1.2405, 1.3602, 1.338, 1.3255, 1.3267,
1634 1.3404, 1.3634, 1.3967, 1.4407, 1.4961, 1.5603, 1.6328, 1.7153,
1635 1.8094, 1.9091, 2.018, 2.1367, 2.264, 2.4035, 2.5562, 2.7179,
1636 2.9017, 3.1052, 3.3304, 3.5731, 3.8488, 4.1553, 4.4769, 4.7818,
1637 5.1711, 5.5204, 5.9516, 6.4097, 6.8899, 7.1118, 7.5469, 7.9735,
1638 7.9511, 8.3014, 8.6418, 8.4757, 8.8256, 9.2294, 9.6923, 10.033,
1639 10.842, 11.851, 11.78, 8.8435, 9.1381, 9.5956, 10.076, 10.629,
1640 11.22, 11.883, 12.69, 13.163, 13.974, 14.846, 16.027, 17.053,
1641 18.148, 19.715, 20.907, 22.163, 23.956, 25.235, 26.566, 27.94,
1642 29.576, 30.956, 32.432, 35.337, 39.911, 41.128, 42.625, 44.386,
1643 46.369, 48.619, 51.031, 53.674, 56.825, 59.921, 63.286, 66.929,
1644 70.859, 75.081, 79.618, 84.513, 89.739, 95.335, 101.35, 107.76,
1645 114.63, 121.98, 129.87, 138.3, 147.34, 157.04, 167.56, 178.67,
1646 190.61, 203.43, 217.19, 231.99, 247.88, 264.98, 283.37, 303.17,
1647 324.49, 347.47, 372.25, 398.98, 427.85, 459.06, 492.8, 529.31,
1648 568.89, 611.79, 658.35, 708.91, 763.87, 823.65, 888.72, 959.58,
1649 1036.8, 1121.8, 1213.9, 1314.3, 1423.8, 1543., 1672.8, 1813.4,
1650 1966.1, 2131.4, 2309.5, 2499.3, 2705., 2925.7, 3161.6, 3411.3,
1651 3611.5, 3889.2, 4191.1, 4519.3, 4877.9, 5272.9, 5712.9, 6142.7,
1652 6719.6, 7385., 8145., 8977.7, 9831.9, 10827., 11934., 13063.,
1653 14434., 15878., 17591., 19435., 21510., 23835., 26835., 29740.,
1654 32878., 36305., 39830., 43273., 46931., 50499., 49586., 51598.,
1655 53429., 54619., 55081., 55102., 54485., 53487., 52042., 42689.,
1656 42607., 44020., 47994., 54169., 53916., 55808., 56642., 46049.,
1657 44243., 32929., 30658., 21963., 20835., 15962., 13679., 17652.,
1658 19680., 22388., 25625., 29184., 32520., 35720., 38414., 40523.,
1659 49228., 48173., 45678., 41768., 37600., 41313., 42654., 44465.,
1660 55736., 56630., 65409., 63308., 66572., 61845., 60379., 56777.,
1661 51920., 46601., 41367., 36529., 32219., 28470., 25192., 22362.,
1662 19907., 17772., 15907., 14273., 12835., 11567., 10445., 9450.2,
1663 8565.1, 7776., 7070.8, 6439.2, 5872.3, 5362.4, 4903., 4488.3,
1664 4113.4, 3773.8, 3465.8, 3186.1, 2931.7, 2700.1, 2488.8, 2296.,
1665 2119.8, 1958.6, 1810.9, 1675.6, 1551.4, 1437.3, 1332.4, 1236.,
1666 1147.2, 1065.3, 989.86, 920.22, 855.91, 796.48, 741.53, 690.69,
1667 643.62, 600.02, 559.6, 522.13, 487.35, 455.06, 425.08, 397.21,
1668 371.3, 347.2, 324.78, 303.9, 284.46, 266.34, 249.45, 233.7,
1669 219.01, 205.3, 192.5, 180.55, 169.38, 158.95, 149.2, 140.07,
1670 131.54, 123.56, 116.09, 109.09, 102.54, 96.405, 90.655, 85.266,
1671 80.213, 75.475, 71.031, 66.861, 62.948, 59.275, 55.827, 52.587,
1672 49.544, 46.686, 43.998, 41.473, 39.099, 36.867, 34.768, 32.795,
1673 30.939, 29.192, 27.546, 25.998, 24.539, 23.164, 21.869, 20.65,
1674 19.501, 18.419, 17.399, 16.438, 15.532, 14.678, 13.874, 13.115,
1675 12.4, 11.726, 11.088, 10.488, 9.921, 9.3846, 8.8784, 8.3996,
1676 7.9469, 7.5197, 7.1174, 6.738, 6.379, 6.0409, 5.7213, 5.419,
1677 5.1327, 4.8611, 4.6046, 4.3617, 4.1316, 3.9138, 3.7077, 3.5125,
1678 3.3281, 3.1536, 2.9885, 2.8323, 2.6846, 2.5447, 2.4124, 2.2871,
1679 2.1686, 2.0564, 1.9501, 1.8495, 1.7543, 1.6641, 1.5787, 1.4978,
1680 1.4212, 1.3486, 1.2799, 1.2147, 1.1529, 1.0943, 1.0388, .98602,
1681 .93596, .8886, .84352, .80078, .76029, .722, .68585, .65161,
1682 .61901, .58808, .55854, .53044, .5039, .47853, .45459, .43173,
1683 .41008, .38965, .37021, .35186, .33444, .31797, .30234, .28758,
1684 .2736, .26036, .24764, .2357, .22431, .21342, .20295, .19288,
1685 .18334, .17444, .166, .15815, .15072, .14348, .13674, .13015,
1686 .12399, .11807, .11231, .10689, .10164, .096696, .091955,
1687 .087476, .083183, .079113, .075229, .071536, .068026, .064698,
1688 .06154, .058544, .055699, .052997, .050431, .047993, .045676,
1689 .043475, .041382, .039392, .037501, .035702, .033991, .032364,
1690 .030817, .029345, .027945, .026613, .025345, .024139, .022991,
1691 .021899, .02086, .019871, .018929, .018033, .01718, .016368,
1692 .015595, .014859, .014158, .013491, .012856, .012251, .011675,
1693 .011126, .010604, .010107, .0096331, .009182, .0087523, .0083431,
1694 .0079533, .0075821, .0072284, .0068915, .0065706, .0062649,
1695 .0059737, .0056963, .005432, .0051802, .0049404, .0047118,
1696 .0044941, .0042867, .0040891, .0039009, .0037216, .0035507,
1697 .003388, .0032329, .0030852, .0029445, .0028105, .0026829,
1698 .0025613, .0024455, .0023353, .0022303, .0021304, .0020353,
1699 .0019448, .0018587, .0017767, .0016988, .0016247, .0015543,
1700 .0014874, .0014238, .0013635, .0013062, .0012519, .0012005,
1701 .0011517, .0011057, .0010621, .001021, 9.8233e-4, 9.4589e-4,
1702 9.1167e-4, 8.7961e-4, 8.4964e-4, 8.2173e-4, 7.9582e-4, 7.7189e-4,
1703 7.499e-4, 7.2983e-4, 7.1167e-4, 6.9542e-4, 6.8108e-4, 6.6866e-4,
1704 6.5819e-4, 6.4971e-4, 6.4328e-4, 6.3895e-4, 6.3681e-4, 6.3697e-4,
1705 6.3956e-4, 6.4472e-4, 6.5266e-4, 6.6359e-4, 6.778e-4, 6.9563e-4,
1706 7.1749e-4, 7.4392e-4, 7.7556e-4, 8.1028e-4, 8.4994e-4, 8.8709e-4,
1707 9.3413e-4, 9.6953e-4, .0010202, .0010738, .0010976, .0011507,
1708 .0011686, .0012264, .001291, .0013346, .0014246, .0015293,
1709 .0016359, .0017824, .0019255, .0020854, .002247, .0024148,
1710 .0026199, .0027523, .0029704, .0030702, .0033047, .0035013,
1711 .0037576, .0040275, .0043089, .0046927, .0049307, .0053486,
1712 .0053809, .0056699, .0059325, .0055488, .005634, .0056392,
1713 .004946, .0048855, .0048208, .0044386, .0045498, .0046377,
1714 .0048939, .0052396, .0057324, .0060859, .0066906, .0071148,
1715 .0077224, .0082687, .008769, .0084471, .008572, .0087729,
1716 .008775, .0090742, .0080704, .0080288, .0085747, .0086087,
1717 .0086408, .0088752, .0089381, .0089757, .0093532, .0092824,
1718 .0092566, .0092645, .0092735, .009342, .0095806, .0097991,
1719 .010213, .010611, .011129, .011756, .013237, .01412, .015034,
1720 .015936, .01682, .018597, .019315, .019995, .020658, .021289,
1721 .022363, .022996, .023716, .024512, .025434, .026067, .027118,
1722 .028396, .029865, .031442, .033253, .03525, .037296, .039701,
1723 .042356, .045154, .048059, .051294, .054893, .058636, .061407,
1724 .065172, .068974, .072676, .073379, .076547, .079556, .079134,
1725 .082308, .085739, .090192, .09359, .099599, .10669, .11496,
1726 .1244, .13512, .14752, .14494, .15647, .1668, .17863, .19029,
1727 .20124, .20254, .21179, .21982, .21625, .22364, .23405, .23382,
1728 .2434, .25708, .26406, .27621, .28909, .30395, .31717, .33271,
1729 .3496, .36765, .38774, .40949, .446, .46985, .49846, .5287, .562,
1730 .59841, .64598, .68834, .7327, .78978, .8373, .88708, .94744,
1731 1.0006, 1.0574, 1.1215, 1.1856, 1.2546, 1.3292, 1.4107, 1.4974,
1732 1.5913, 1.6931, 1.8028, 1.9212, 2.0492, 2.1874, 2.3365, 2.4978,
1733 2.6718, 2.8588, 3.062, 3.2818, 3.5188, 3.7752, 4.0527, 4.3542,
1734 4.6782, 5.0312, 5.4123, 5.8246, 6.2639, 6.7435, 7.2636, 7.8064,
1735 8.4091, 9.0696, 9.7677, 10.548, 11.4, 12.309, 13.324, 14.284,
1736 15.445, 16.687, 18.019, 19.403, 20.847, 22.366, 23.925, 25.537,
1737 27.213, 28.069, 29.864, 31.829, 33.988, 35.856, 38.829, 42.321,
1738 46.319, 50.606, 55.126, 59.126, 64.162, 68.708, 74.615, 81.176,
1739 87.739, 95.494, 103.83, 113.38, 123.99, 135.8, 148.7, 162.58,
1740 176.32, 192.6, 211.47, 232.7, 252.64, 277.41, 305.38, 333.44,
1741 366.42, 402.66, 442.14, 484.53, 526.42, 568.15, 558.78, 582.6,
1742 600.98, 613.94, 619.44, 618.24, 609.84, 595.96, 484.86, 475.59,
1743 478.49, 501.56, 552.19, 628.44, 630.39, 658.92, 671.96, 562.7,
1744 545.88, 423.43, 400.14, 306.59, 294.13, 246.8, 226.51, 278.21,
1745 314.39, 347.22, 389.13, 433.16, 477.48, 521.67, 560.54, 683.6,
1746 696.37, 695.91, 683.1, 658.24, 634.89, 698.85, 742.87, 796.66,
1747 954.49, 1009.5, 1150.5, 1179.1, 1267.9, 1272.4, 1312.7, 1330.4,
1748 1331.6, 1315.8, 1308.3, 1293.3, 1274.6, 1249.5, 1213.2, 1172.1,
1749 1124.4, 930.33, 893.36, 871.27, 883.54, 940.76, 1036., 1025.6,
1750 1053.1, 914.51, 894.15, 865.03, 670.63, 508.41, 475.15, 370.85,
1751 361.06, 319.38, 312.75, 331.87, 367.13, 415., 467.94, 525.49,
1752 578.41, 624.66, 794.82, 796.97, 780.29, 736.49, 670.18, 603.75,
1753 659.67, 679.8, 857.12, 884.05, 900.65, 1046.1, 1141.9, 1083.,
1754 1089.2, 1e3, 947.08, 872.31, 787.91, 704.75, 624.93, 553.68,
1755 489.91, 434.21, 385.64, 343.3, 306.42, 274.18, 245.94, 221.11,
1756 199.23, 179.88, 162.73, 147.48, 133.88, 121.73, 110.86, 101.1,
1757 92.323, 84.417, 77.281, 70.831, 64.991, 59.694, 54.884, 50.509,
1758 46.526, 42.893, 39.58, 36.549, 33.776, 31.236, 28.907, 26.77,
1759 24.805, 23., 21.339, 19.81, 18.404, 17.105, 15.909, 14.801,
1760 13.778, 12.83, 11.954, 11.142, 10.389, 9.691, 9.0434, 8.4423,
1761 7.8842, 7.3657, 6.8838, 6.4357, 6.0189, 5.6308, 5.2696, 4.9332,
1762 4.6198, 4.3277, 4.0553, 3.8012, 3.5639, 3.3424, 3.1355, 2.9422,
1763 2.7614, 2.5924, 2.4343, 2.2864, 2.148, 2.0184, 1.8971, 1.7835,
1764 1.677, 1.5773, 1.4838, 1.3961, 1.3139, 1.2369, 1.1645, 1.0966,
1765 1.0329, .97309, .91686, .86406, .81439, .76767, .72381, .68252,
1766 .64359, .60695, .57247, .54008, .50957, .48092, .45401, .42862,
1767 .40465, .38202, .36072, .34052, .3216, .30386, .28711, .27135,
1768 .25651, .24252, .2293, .21689, .20517, .19416, .18381, .17396,
1769 .16469
1770 };
1771
1772 static const double co2230[2001] =
1773 { 2.743e-5, 2.8815e-5, 3.027e-5, 3.1798e-5,
1774 3.3405e-5, 3.5094e-5, 3.6869e-5, 3.8734e-5, 4.0694e-5, 4.2754e-5,
1775 4.492e-5, 4.7196e-5, 4.9588e-5, 5.2103e-5, 5.4747e-5, 5.7525e-5,
1776 6.0446e-5, 6.3516e-5, 6.6744e-5, 7.0137e-5, 7.3704e-5, 7.7455e-5,
1777 8.1397e-5, 8.5543e-5, 8.9901e-5, 9.4484e-5, 9.9302e-5, 1.0437e-4,
1778 1.097e-4, 1.153e-4, 1.2119e-4, 1.2738e-4, 1.3389e-4, 1.4074e-4,
1779 1.4795e-4, 1.5552e-4, 1.6349e-4, 1.7187e-4, 1.8068e-4, 1.8995e-4,
1780 1.997e-4, 2.0996e-4, 2.2075e-4, 2.321e-4, 2.4403e-4, 2.5659e-4,
1781 2.698e-4, 2.837e-4, 2.9832e-4, 3.137e-4, 3.2988e-4, 3.4691e-4,
1782 3.6483e-4, 3.8368e-4, 4.0351e-4, 4.2439e-4, 4.4635e-4, 4.6947e-4,
1783 4.9379e-4, 5.1939e-4, 5.4633e-4, 5.7468e-4, 6.0452e-4, 6.3593e-4,
1784 6.69e-4, 7.038e-4, 7.4043e-4, 7.79e-4, 8.1959e-4, 8.6233e-4,
1785 9.0732e-4, 9.5469e-4, .0010046, .0010571, .0011124, .0011706,
1786 .0012319, .0012964, .0013644, .001436, .0015114, .0015908,
1787 .0016745, .0017625, .0018553, .0019531, .002056, .0021645,
1788 .0022788, .0023992, .002526, .0026596, .0028004, .0029488,
1789 .0031052, .0032699, .0034436, .0036265, .0038194, .0040227,
1790 .0042369, .0044628, .0047008, .0049518, .0052164, .0054953,
1791 .0057894, .0060995, .0064265, .0067713, .007135, .0075184,
1792 .0079228, .0083494, .0087993, .0092738, .0097745, .010303,
1793 .01086, .011448, .012068, .012722, .013413, .014142, .014911,
1794 .015723, .01658, .017484, .018439, .019447, .020511, .021635,
1795 .022821, .024074, .025397, .026794, .02827, .029829, .031475,
1796 .033215, .035052, .036994, .039045, .041213, .043504, .045926,
1797 .048485, .05119, .05405, .057074, .060271, .063651, .067225,
1798 .071006, .075004, .079233, .083708, .088441, .093449, .098749,
1799 .10436, .11029, .11657, .12322, .13026, .13772, .14561, .15397,
1800 .16282, .1722, .18214, .19266, .20381, .21563, .22816, .24143,
1801 .2555, .27043, .28625, .30303, .32082, .3397, .35972, .38097,
1802 .40352, .42746, .45286, .47983, .50847, .53888, .57119, .6055,
1803 .64196, .6807, .72187, .76564, .81217, .86165, .91427, .97025,
1804 1.0298, 1.0932, 1.1606, 1.2324, 1.3088, 1.3902, 1.477, 1.5693,
1805 1.6678, 1.7727, 1.8845, 2.0038, 2.131, 2.2666, 2.4114, 2.5659,
1806 2.7309, 2.907, 3.0951, 3.2961, 3.5109, 3.7405, 3.986, 4.2485,
1807 4.5293, 4.8299, 5.1516, 5.4961, 5.8651, 6.2605, 6.6842, 7.1385,
1808 7.6256, 8.1481, 8.7089, 9.3109, 9.9573, 10.652, 11.398, 12.2,
1809 13.063, 13.992, 14.99, 16.064, 17.222, 18.469, 19.813, 21.263,
1810 22.828, 24.516, 26.34, 28.31, 30.437, 32.738, 35.226, 37.914,
1811 40.824, 43.974, 47.377, 51.061, 55.011, 59.299, 63.961, 69.013,
1812 74.492, 80.444, 86.919, 93.836, 101.23, 109.25, 117.98, 127.47,
1813 137.81, 149.07, 161.35, 174.75, 189.42, 205.49, 223.02, 242.26,
1814 263.45, 286.75, 311.94, 340.01, 370.86, 404.92, 440.44, 480.27,
1815 525.17, 574.71, 626.22, 686.8, 754.38, 827.07, 913.38, 1011.7,
1816 1121.5, 1161.6, 1289.5, 1432.2, 1595.4, 1777., 1983.3, 2216.1,
1817 2485.7, 2788.3, 3101.5, 3481., 3902.1, 4257.1, 4740., 5272.8,
1818 5457.9, 5946.2, 6505.3, 6668.4, 7302.4, 8061.6, 9015.8, 9908.3,
1819 11613., 13956., 3249.6, 3243., 2901.5, 2841.3, 2729.6, 2558.2,
1820 1797.8, 1583.2, 1386., 1233.5, 787.74, 701.46, 761.66, 767.21,
1821 722.83, 1180.6, 1332.1, 1461.6, 2032.9, 2166., 2255.9, 2294.7,
1822 2587.2, 2396.5, 2122.4, 12553., 10784., 9832.5, 8827.3, 8029.1,
1823 7377.9, 7347.1, 6783.8, 6239.1, 5721.1, 5503., 4975.1, 4477.8,
1824 4021.3, 3676.8, 3275.3, 2914.9, 2597.4, 2328.2, 2075.4, 1857.6,
1825 1663.6, 1493.3, 1343.8, 1213.3, 1095.6, 1066.5, 958.91, 865.15,
1826 783.31, 714.35, 650.77, 593.98, 546.2, 499.9, 457.87, 421.75,
1827 387.61, 355.25, 326.62, 299.7, 275.21, 253.17, 232.83, 214.31,
1828 197.5, 182.08, 167.98, 155.12, 143.32, 132.5, 122.58, 113.48,
1829 105.11, 97.415, 90.182, 83.463, 77.281, 71.587, 66.341, 61.493,
1830 57.014, 53.062, 49.21, 45.663, 42.38, 39.348, 36.547, 33.967,
1831 31.573, 29.357, 27.314, 25.415, 23.658, 22.03, 20.524, 19.125,
1832 17.829, 16.627, 15.511, 14.476, 13.514, 12.618, 11.786, 11.013,
1833 10.294, 9.6246, 9.0018, 8.4218, 7.8816, 7.3783, 6.9092, 6.4719,
1834 6.0641, 5.6838, 5.3289, 4.998, 4.6893, 4.4014, 4.1325, 3.8813,
1835 3.6469, 3.4283, 3.2241, 3.035, 2.8576, 2.6922, 2.5348, 2.3896,
1836 2.2535, 2.1258, 2.0059, 1.8929, 1.7862, 1.6854, 1.5898, 1.4992,
1837 1.4017, 1.3218, 1.2479, 1.1809, 1.1215, 1.0693, 1.0116, .96016,
1838 .9105, .84859, .80105, .74381, .69982, .65127, .60899, .57843,
1839 .54592, .51792, .49336, .47155, .45201, .43426, .41807, .40303,
1840 .38876, .3863, .37098, .35492, .33801, .32032, .30341, .29874,
1841 .29193, .28689, .29584, .29155, .29826, .29195, .29287, .2904,
1842 .28199, .27709, .27162, .26622, .26133, .25676, .25235, .23137,
1843 .22365, .21519, .20597, .19636, .18699, .16485, .16262, .16643,
1844 .17542, .18198, .18631, .16759, .16338, .13505, .1267, .10053,
1845 .092554, .074093, .062159, .055523, .054849, .05401, .05528,
1846 .058982, .07952, .08647, .093244, .099285, .10393, .10661,
1847 .12072, .11417, .10396, .093265, .089137, .088909, .10902,
1848 .11277, .13625, .13565, .14907, .14167, .1428, .13744, .12768,
1849 .11382, .10244, .091686, .08109, .071739, .063616, .056579,
1850 .050504, .045251, .040689, .036715, .033237, .030181, .027488,
1851 .025107, .022998, .021125, .01946, .017979, .016661, .015489,
1852 .014448, .013526, .012712, .011998, .011375, .010839, .010384,
1853 .010007, .0097053, .0094783, .0093257, .0092489, .0092504,
1854 .0093346, .0095077, .0097676, .01012, .01058, .011157, .011844,
1855 .012672, .013665, .014766, .015999, .017509, .018972, .020444,
1856 .022311, .023742, .0249, .025599, .026981, .026462, .025143,
1857 .025066, .022814, .020458, .020026, .019142, .020189, .022371,
1858 .024163, .023728, .02199, .019506, .018591, .015576, .012784,
1859 .011744, .0094777, .0079148, .0070652, .006986, .0071758,
1860 .008086, .0098025, .01087, .013609, .016764, .018137, .021061,
1861 .023498, .023576, .023965, .022828, .021519, .021283, .023364,
1862 .026457, .029782, .030856, .033486, .035515, .035543, .036558,
1863 .037198, .037472, .037045, .037284, .03777, .038085, .038366,
1864 .038526, .038282, .038915, .037697, .035667, .032941, .031959,
1865 .028692, .025918, .024596, .025592, .027873, .028935, .02984,
1866 .028148, .025305, .021912, .020454, .016732, .013357, .01205,
1867 .009731, .0079881, .0077704, .0074387, .0083895, .0096776,
1868 .010326, .01293, .015955, .019247, .020145, .02267, .024231,
1869 .024184, .022131, .019784, .01955, .01971, .022119, .025116,
1870 .027978, .028107, .029808, .030701, .029164, .028551, .027286,
1871 .024946, .023259, .020982, .019221, .017471, .015643, .014074,
1872 .01261, .011301, .010116, .0090582, .0081036, .0072542, .0065034,
1873 .0058436, .0052571, .0047321, .0042697, .0038607, .0034977,
1874 .0031747, .0028864, .0026284, .002397, .002189, .0020017,
1875 .0018326, .0016798, .0015414, .0014159, .0013019, .0011983,
1876 .0011039, .0010177, 9.391e-4, 8.6717e-4, 8.0131e-4, 7.4093e-4,
1877 6.8553e-4, 6.3464e-4, 5.8787e-4, 5.4487e-4, 5.0533e-4, 4.69e-4,
1878 4.3556e-4, 4.0474e-4, 3.7629e-4, 3.5e-4, 3.2569e-4, 3.032e-4,
1879 2.8239e-4, 2.6314e-4, 2.4535e-4, 2.2891e-4, 2.1374e-4, 1.9975e-4,
1880 1.8685e-4, 1.7498e-4, 1.6406e-4, 1.5401e-4, 1.4479e-4, 1.3633e-4,
1881 1.2858e-4, 1.2148e-4, 1.1499e-4, 1.0907e-4, 1.0369e-4, 9.8791e-5,
1882 9.4359e-5, 9.0359e-5, 8.6766e-5, 8.3555e-5, 8.0703e-5, 7.8192e-5,
1883 7.6003e-5, 7.4119e-5, 7.2528e-5, 7.1216e-5, 7.0171e-5, 6.9385e-5,
1884 6.8848e-5, 6.8554e-5, 6.8496e-5, 6.8669e-5, 6.9069e-5, 6.9694e-5,
1885 7.054e-5, 7.1608e-5, 7.2896e-5, 7.4406e-5, 7.6139e-5, 7.8097e-5,
1886 8.0283e-5, 8.2702e-5, 8.5357e-5, 8.8255e-5, 9.1402e-5, 9.4806e-5,
1887 9.8473e-5, 1.0241e-4, 1.0664e-4, 1.1115e-4, 1.1598e-4, 1.2112e-4,
1888 1.2659e-4, 1.3241e-4, 1.3859e-4, 1.4515e-4, 1.521e-4, 1.5947e-4,
1889 1.6728e-4, 1.7555e-4, 1.8429e-4, 1.9355e-4, 2.0334e-4, 2.1369e-4,
1890 2.2463e-4, 2.3619e-4, 2.4841e-4, 2.6132e-4, 2.7497e-4, 2.8938e-4,
1891 3.0462e-4, 3.2071e-4, 3.3771e-4, 3.5567e-4, 3.7465e-4, 3.947e-4,
1892 4.1588e-4, 4.3828e-4, 4.6194e-4, 4.8695e-4, 5.1338e-4, 5.4133e-4,
1893 5.7087e-4, 6.0211e-4, 6.3515e-4, 6.701e-4, 7.0706e-4, 7.4617e-4,
1894 7.8756e-4, 8.3136e-4, 8.7772e-4, 9.2681e-4, 9.788e-4, .0010339,
1895 .0010922, .001154, .0012195, .0012889, .0013626, .0014407,
1896 .0015235, .0016114, .0017048, .0018038, .001909, .0020207,
1897 .0021395, .0022657, .0023998, .0025426, .0026944, .002856,
1898 .0030281, .0032114, .0034068, .003615, .0038371, .004074,
1899 .004327, .0045971, .0048857, .0051942, .0055239, .0058766,
1900 .0062538, .0066573, .0070891, .007551, .0080455, .0085747,
1901 .0091412, .0097481, .010397, .011092, .011837, .012638, .013495,
1902 .014415, .01541, .016475, .017621, .018857, .020175, .02162,
1903 .023185, .024876, .02672, .028732, .030916, .033319, .035939,
1904 .038736, .041847, .04524, .048715, .052678, .056977, .061203,
1905 .066184, .07164, .076952, .083477, .090674, .098049, .10697,
1906 .1169, .1277, .14011, .15323, .1684, .18601, .20626, .22831,
1907 .25417, .28407, .31405, .34957, .38823, .41923, .46026, .50409,
1908 .51227, .54805, .57976, .53818, .55056, .557, .46741, .46403,
1909 .4636, .42265, .45166, .49852, .56663, .34306, .17779, .17697,
1910 .18346, .19129, .20014, .21778, .23604, .25649, .28676, .31238,
1911 .33856, .39998, .4288, .46568, .56654, .60786, .64473, .76466,
1912 .7897, .80778, .86443, .85736, .84798, .84157, 1.1385, 1.2446,
1913 1.1923, 1.1552, 1.1338, 1.1266, 1.1292, 1.1431, 1.1683, 1.2059,
1914 1.2521, 1.3069, 1.3712, 1.4471, 1.5275, 1.6165, 1.7145, 1.8189,
1915 1.9359, 2.065, 2.2007, 2.3591, 2.5362, 2.7346, 2.9515, 3.2021,
1916 3.4851, 3.7935, 4.0694, 4.4463, 4.807, 5.2443, 5.7178, 6.2231,
1917 6.4796, 6.9461, 7.4099, 7.3652, 7.7182, 8.048, 7.7373, 8.0363,
1918 8.3855, 8.8044, 9.0257, 9.8574, 10.948, 10.563, 6.8979, 7.0744,
1919 7.4121, 7.7663, 8.1768, 8.6243, 9.1437, 9.7847, 10.182, 10.849,
1920 11.572, 12.602, 13.482, 14.431, 15.907, 16.983, 18.11, 19.884,
1921 21.02, 22.18, 23.355, 24.848, 25.954, 27.13, 30.186, 34.893,
1922 35.682, 36.755, 38.111, 39.703, 41.58, 43.606, 45.868, 48.573,
1923 51.298, 54.291, 57.559, 61.116, 64.964, 69.124, 73.628, 78.471,
1924 83.683, 89.307, 95.341, 101.84, 108.83, 116.36, 124.46, 133.18,
1925 142.57, 152.79, 163.69, 175.43, 188.11, 201.79, 216.55, 232.51,
1926 249.74, 268.38, 288.54, 310.35, 333.97, 359.55, 387.26, 417.3,
1927 449.88, 485.2, 523.54, 565.14, 610.28, 659.31, 712.56, 770.43,
1928 833.36, 901.82, 976.36, 1057.6, 1146.8, 1243.8, 1350., 1466.3,
1929 1593.6, 1732.7, 1884.1, 2049.1, 2228.2, 2421.9, 2629.4, 2853.7,
1930 3094.4, 3351.1, 3622.3, 3829.8, 4123.1, 4438.3, 4777.2, 5144.1,
1931 5545.4, 5990.5, 6404.5, 6996.8, 7687.6, 8482.9, 9349.4, 10203.,
1932 11223., 12358., 13493., 14916., 16416., 18236., 20222., 22501.,
1933 25102., 28358., 31707., 35404., 39538., 43911., 48391., 53193.,
1934 58028., 58082., 61276., 64193., 66294., 67480., 67921., 67423.,
1935 66254., 64341., 51737., 51420., 53072., 58145., 66195., 65358.,
1936 67377., 67869., 53509., 50553., 35737., 32425., 21704., 19974.,
1937 14457., 12142., 16798., 19489., 23049., 27270., 31910., 36457.,
1938 40877., 44748., 47876., 59793., 58626., 55454., 50337., 44893.,
1939 50228., 52216., 54747., 69541., 70455., 81014., 77694., 80533.,
1940 73953., 70927., 65539., 59002., 52281., 45953., 40292., 35360.,
1941 31124., 27478., 24346., 21647., 19308., 17271., 15491., 13927.,
1942 12550., 11331., 10250., 9288.8, 8431.4, 7664.9, 6978.3, 6361.8,
1943 5807.4, 5307.7, 4856.8, 4449., 4079.8, 3744.9, 3440.8, 3164.2,
1944 2912.3, 2682.7, 2473., 2281.4, 2106., 1945.3, 1797.9, 1662.5,
1945 1538.1, 1423.6, 1318.1, 1221., 1131.5, 1049., 972.99, 902.87,
1946 838.01, 777.95, 722.2, 670.44, 622.35, 577.68, 536.21, 497.76,
1947 462.12, 429.13, 398.61, 370.39, 344.29, 320.16, 297.85, 277.2,
1948 258.08, 240.38, 223.97, 208.77, 194.66, 181.58, 169.43, 158.15,
1949 147.67, 137.92, 128.86, 120.44, 112.6, 105.3, 98.499, 92.166,
1950 86.264, 80.763, 75.632, 70.846, 66.381, 62.213, 58.321, 54.685,
1951 51.288, 48.114, 45.145, 42.368, 39.772, 37.341, 35.065, 32.937,
1952 30.943, 29.077, 27.33, 25.693, 24.158, 22.717, 21.367, 20.099,
1953 18.909, 17.792, 16.744, 15.761, 14.838, 13.971, 13.157, 12.393,
1954 11.676, 11.003, 10.369, 9.775, 9.2165, 8.6902, 8.1963, 7.7314,
1955 7.2923, 6.8794, 6.4898, 6.122, 5.7764, 5.4525, 5.1484, 4.8611,
1956 4.5918, 4.3379, 4.0982, 3.8716, 3.6567, 3.4545, 3.2634, 3.0828,
1957 2.9122, 2.7512, 2.5993, 2.4561, 2.3211, 2.1938, 2.0737, 1.9603,
1958 1.8534, 1.7525, 1.6572, 1.5673, 1.4824, 1.4022, 1.3265, 1.2551,
1959 1.1876, 1.1239, 1.0637, 1.0069, .9532, .90248, .85454, .80921,
1960 .76631, .72569, .6872, .65072, .61635, .5836, .55261, .52336,
1961 .49581, .46998, .44559, .42236, .40036, .37929, .35924, .34043,
1962 .32238, .30547, .28931, .27405, .25975, .24616, .23341, .22133,
1963 .20997, .19924, .18917, .17967, .17075, .16211, .15411, .14646,
1964 .13912, .13201, .12509, .11857, .11261, .10698, .10186, .097039,
1965 .092236, .087844, .083443, .07938, .075452, .071564, .067931,
1966 .064389, .061078, .057901, .054921, .052061, .049364, .046789,
1967 .04435, .042044, .039866, .037808, .035863, .034023, .032282,
1968 .030634, .029073, .027595, .026194, .024866, .023608, .022415,
1969 .021283, .02021, .019193, .018228, .017312, .016443, .015619,
1970 .014837, .014094, .01339, .012721, .012086, .011483, .010911,
1971 .010368, .009852, .0093623, .0088972, .0084556, .0080362,
1972 .0076379, .0072596, .0069003, .006559, .0062349, .0059269,
1973 .0056344, .0053565, .0050925, .0048417, .0046034, .004377,
1974 .0041618, .0039575, .0037633, .0035788, .0034034, .0032368,
1975 .0030785, .002928, .0027851, .0026492, .0025201, .0023975,
1976 .0022809, .0021701, .0020649, .0019649, .0018699, .0017796,
1977 .0016938, .0016122, .0015348, .0014612, .0013913, .001325,
1978 .0012619, .0012021, .0011452, .0010913, .0010401, 9.9149e-4,
1979 9.454e-4, 9.0169e-4, 8.6024e-4, 8.2097e-4, 7.8377e-4, 7.4854e-4,
1980 7.1522e-4, 6.8371e-4, 6.5393e-4, 6.2582e-4, 5.9932e-4, 5.7435e-4,
1981 5.5087e-4, 5.2882e-4, 5.0814e-4, 4.8881e-4, 4.7076e-4, 4.5398e-4,
1982 4.3843e-4, 4.2407e-4, 4.109e-4, 3.9888e-4, 3.88e-4, 3.7826e-4,
1983 3.6963e-4, 3.6213e-4, 3.5575e-4, 3.505e-4, 3.464e-4, 3.4346e-4,
1984 3.4173e-4, 3.4125e-4, 3.4206e-4, 3.4424e-4, 3.4787e-4, 3.5303e-4,
1985 3.5986e-4, 3.6847e-4, 3.7903e-4, 3.9174e-4, 4.0681e-4, 4.2455e-4,
1986 4.4527e-4, 4.6942e-4, 4.9637e-4, 5.2698e-4, 5.5808e-4, 5.9514e-4,
1987 6.2757e-4, 6.689e-4, 7.1298e-4, 7.3955e-4, 7.8403e-4, 8.0449e-4,
1988 8.5131e-4, 9.0256e-4, 9.3692e-4, .0010051, .0010846, .0011678,
1989 .001282, .0014016, .0015355, .0016764, .0018272, .0020055,
1990 .0021455, .0023421, .0024615, .0026786, .0028787, .0031259,
1991 .0034046, .0036985, .0040917, .0043902, .0048349, .0049531,
1992 .0052989, .0056148, .0052452, .0053357, .005333, .0045069,
1993 .0043851, .004253, .003738, .0038084, .0039013, .0041505,
1994 .0045372, .0050569, .0054507, .0061267, .0066122, .0072449,
1995 .0078012, .0082651, .0076538, .0076573, .0076806, .0075227,
1996 .0076269, .0063758, .006254, .0067749, .0067909, .0068231,
1997 .0072143, .0072762, .0072954, .007679, .0075107, .0073658,
1998 .0072441, .0071074, .0070378, .007176, .0072472, .0075844,
1999 .0079291, .008412, .0090165, .010688, .011535, .012375, .013166,
2000 .013895, .015567, .016011, .016392, .016737, .017043, .017731,
2001 .018031, .018419, .018877, .019474, .019868, .020604, .021538,
2002 .022653, .023869, .025288, .026879, .028547, .030524, .03274,
2003 .035132, .03769, .040567, .043793, .047188, .049962, .053542,
2004 .057205, .060776, .061489, .064419, .067124, .065945, .068487,
2005 .071209, .074783, .077039, .082444, .08902, .09692, .10617,
2006 .11687, .12952, .12362, .13498, .14412, .15492, .16519, .1744,
2007 .17096, .17714, .18208, .17363, .17813, .18564, .18295, .19045,
2008 .20252, .20815, .21844, .22929, .24229, .25321, .26588, .2797,
2009 .29465, .31136, .32961, .36529, .38486, .41027, .43694, .4667,
2010 .49943, .54542, .58348, .62303, .67633, .71755, .76054, .81371,
2011 .85934, .90841, .96438, 1.0207, 1.0821, 1.1491, 1.2226, 1.3018,
2012 1.388, 1.4818, 1.5835, 1.6939, 1.8137, 1.9435, 2.0843, 2.237,
2013 2.4026, 2.5818, 2.7767, 2.9885, 3.2182, 3.4679, 3.7391, 4.0349,
2014 4.3554, 4.7053, 5.0849, 5.4986, 5.9436, 6.4294, 6.9598, 7.5203,
2015 8.143, 8.8253, 9.5568, 10.371, 11.267, 12.233, 13.31, 14.357,
2016 15.598, 16.93, 18.358, 19.849, 21.408, 23.04, 24.706, 26.409,
2017 28.153, 28.795, 30.549, 32.43, 34.49, 36.027, 38.955, 42.465,
2018 46.565, 50.875, 55.378, 59.002, 63.882, 67.949, 73.693, 80.095,
2019 86.403, 94.264, 102.65, 112.37, 123.3, 135.54, 149.14, 163.83,
2020 179.17, 196.89, 217.91, 240.94, 264.13, 292.39, 324.83, 358.21,
2021 397.16, 440.5, 488.6, 541.04, 595.3, 650.43, 652.03, 688.74,
2022 719.47, 743.54, 757.68, 762.35, 756.43, 741.42, 595.43, 580.97,
2023 580.83, 605.68, 667.88, 764.49, 759.93, 789.12, 798.17, 645.66,
2024 615.65, 455.05, 421.09, 306.45, 289.14, 235.7, 215.52, 274.57,
2025 316.53, 357.73, 409.89, 465.06, 521.84, 579.02, 630.64, 794.46,
2026 813., 813.56, 796.25, 761.57, 727.97, 812.14, 866.75, 932.5,
2027 1132.8, 1194.8, 1362.2, 1387.2, 1482.3, 1479.7, 1517.9, 1533.1,
2028 1534.2, 1523.3, 1522.5, 1515.5, 1505.2, 1486.5, 1454., 1412.,
2029 1358.8, 1107.8, 1060.9, 1033.5, 1048.2, 1122.4, 1248.9, 1227.1,
2030 1255.4, 1058.9, 1020.7, 970.59, 715.24, 512.56, 468.47, 349.3,
2031 338.26, 299.22, 301.26, 332.38, 382.08, 445.49, 515.87, 590.85,
2032 662.3, 726.05, 955.59, 964.11, 945.17, 891.48, 807.11, 720.9,
2033 803.36, 834.46, 1073.9, 1107.1, 1123.6, 1296., 1393.7, 1303.1,
2034 1284.3, 1161.8, 1078.8, 976.13, 868.72, 767.4, 674.72, 593.73,
2035 523.12, 462.24, 409.75, 364.34, 325., 290.73, 260.76, 234.46,
2036 211.28, 190.78, 172.61, 156.44, 142.01, 129.12, 117.57, 107.2,
2037 97.877, 89.47, 81.882, 75.021, 68.807, 63.171, 58.052, 53.396,
2038 49.155, 45.288, 41.759, 38.531, 35.576, 32.868, 30.384, 28.102,
2039 26.003, 24.071, 22.293, 20.655, 19.147, 17.756, 16.476, 15.292,
2040 14.198, 13.183, 12.241, 11.367, 10.554, 9.7989, 9.0978, 8.4475,
2041 7.845, 7.2868, 6.7704, 6.2927, 5.8508, 5.4421, 5.064, 4.714,
2042 4.3902, 4.0902, 3.8121, 3.5543, 3.315, 3.093, 2.8869, 2.6953,
2043 2.5172, 2.3517, 2.1977, 2.0544, 1.9211, 1.7969, 1.6812, 1.5735,
2044 1.4731, 1.3794, 1.2921, 1.2107, 1.1346, 1.0637, .99744, .93554,
2045 .87771, .82368, .77313, .72587, .6816, .64014, .60134, .565,
2046 .53086, .49883, .46881, .44074, .4144, .38979, .36679, .34513,
2047 .32474, .30552, .28751, .27045, .25458, .23976, .22584, .21278,
2048 .20051, .18899, .17815, .16801, .15846, .14954, .14117, .13328,
2049 .12584
2050 };
2051
2052 /* Get CO2 continuum absorption... */
2053 const double xw = nu / 2 + 1;
2054 if (xw >= 1 && xw < 2001) {
2055 const int iw = (int) xw;
2056 const double dw = xw - iw;
2057 const double ew = 1 - dw;
2058 const double cw296 = ew * co2296[iw - 1] + dw * co2296[iw];
2059 const double cw260 = ew * co2260[iw - 1] + dw * co2260[iw];
2060 const double cw230 = ew * co2230[iw - 1] + dw * co2230[iw];
2061 const double dt230 = t - 230;
2062 const double dt260 = t - 260;
2063 const double dt296 = t - 296;
2064 const double ctw =
2065 dt260 * 5.050505e-4 * dt296 * cw230 -
2066 dt230 * 9.259259e-4 * dt296 * cw260 +
2067 dt230 * 4.208754e-4 * dt260 * cw296;
2068 return u / NA / 1000 * p / P0 * ctw;
2069 } else
2070 return 0;
2071}
2072
2073/*****************************************************************************/
2074
2075double ctmh2o(
2076 const double nu,
2077 const double p,
2078 const double t,
2079 const double q,
2080 const double u) {
2081
2082 static const double h2o296[2001] =
2083 { .17, .1695, .172, .168, .1687, .1624, .1606,
2084 .1508, .1447, .1344, .1214, .1133, .1009, .09217, .08297, .06989,
2085 .06513, .05469, .05056, .04417, .03779, .03484, .02994, .0272,
2086 .02325, .02063, .01818, .01592, .01405, .01251, .0108, .009647,
2087 .008424, .007519, .006555, .00588, .005136, .004511, .003989,
2088 .003509, .003114, .00274, .002446, .002144, .001895, .001676,
2089 .001486, .001312, .001164, .001031, 9.129e-4, 8.106e-4, 7.213e-4,
2090 6.4e-4, 5.687e-4, 5.063e-4, 4.511e-4, 4.029e-4, 3.596e-4,
2091 3.22e-4, 2.889e-4, 2.597e-4, 2.337e-4, 2.108e-4, 1.907e-4,
2092 1.728e-4, 1.57e-4, 1.43e-4, 1.305e-4, 1.195e-4, 1.097e-4,
2093 1.009e-4, 9.307e-5, 8.604e-5, 7.971e-5, 7.407e-5, 6.896e-5,
2094 6.433e-5, 6.013e-5, 5.631e-5, 5.283e-5, 4.963e-5, 4.669e-5,
2095 4.398e-5, 4.148e-5, 3.917e-5, 3.702e-5, 3.502e-5, 3.316e-5,
2096 3.142e-5, 2.978e-5, 2.825e-5, 2.681e-5, 2.546e-5, 2.419e-5,
2097 2.299e-5, 2.186e-5, 2.079e-5, 1.979e-5, 1.884e-5, 1.795e-5,
2098 1.711e-5, 1.633e-5, 1.559e-5, 1.49e-5, 1.426e-5, 1.367e-5,
2099 1.312e-5, 1.263e-5, 1.218e-5, 1.178e-5, 1.143e-5, 1.112e-5,
2100 1.088e-5, 1.07e-5, 1.057e-5, 1.05e-5, 1.051e-5, 1.059e-5,
2101 1.076e-5, 1.1e-5, 1.133e-5, 1.18e-5, 1.237e-5, 1.308e-5,
2102 1.393e-5, 1.483e-5, 1.614e-5, 1.758e-5, 1.93e-5, 2.123e-5,
2103 2.346e-5, 2.647e-5, 2.93e-5, 3.279e-5, 3.745e-5, 4.152e-5,
2104 4.813e-5, 5.477e-5, 6.203e-5, 7.331e-5, 8.056e-5, 9.882e-5,
2105 1.05e-4, 1.21e-4, 1.341e-4, 1.572e-4, 1.698e-4, 1.968e-4,
2106 2.175e-4, 2.431e-4, 2.735e-4, 2.867e-4, 3.19e-4, 3.371e-4,
2107 3.554e-4, 3.726e-4, 3.837e-4, 3.878e-4, 3.864e-4, 3.858e-4,
2108 3.841e-4, 3.852e-4, 3.815e-4, 3.762e-4, 3.618e-4, 3.579e-4,
2109 3.45e-4, 3.202e-4, 3.018e-4, 2.785e-4, 2.602e-4, 2.416e-4,
2110 2.097e-4, 1.939e-4, 1.689e-4, 1.498e-4, 1.308e-4, 1.17e-4,
2111 1.011e-4, 9.237e-5, 7.909e-5, 7.006e-5, 6.112e-5, 5.401e-5,
2112 4.914e-5, 4.266e-5, 3.963e-5, 3.316e-5, 3.037e-5, 2.598e-5,
2113 2.294e-5, 2.066e-5, 1.813e-5, 1.583e-5, 1.423e-5, 1.247e-5,
2114 1.116e-5, 9.76e-6, 8.596e-6, 7.72e-6, 6.825e-6, 6.108e-6,
2115 5.366e-6, 4.733e-6, 4.229e-6, 3.731e-6, 3.346e-6, 2.972e-6,
2116 2.628e-6, 2.356e-6, 2.102e-6, 1.878e-6, 1.678e-6, 1.507e-6,
2117 1.348e-6, 1.21e-6, 1.089e-6, 9.806e-7, 8.857e-7, 8.004e-7,
2118 7.261e-7, 6.599e-7, 6.005e-7, 5.479e-7, 5.011e-7, 4.595e-7,
2119 4.219e-7, 3.885e-7, 3.583e-7, 3.314e-7, 3.071e-7, 2.852e-7,
2120 2.654e-7, 2.474e-7, 2.311e-7, 2.162e-7, 2.026e-7, 1.902e-7,
2121 1.788e-7, 1.683e-7, 1.587e-7, 1.497e-7, 1.415e-7, 1.338e-7,
2122 1.266e-7, 1.2e-7, 1.138e-7, 1.08e-7, 1.027e-7, 9.764e-8,
2123 9.296e-8, 8.862e-8, 8.458e-8, 8.087e-8, 7.744e-8, 7.429e-8,
2124 7.145e-8, 6.893e-8, 6.664e-8, 6.468e-8, 6.322e-8, 6.162e-8,
2125 6.07e-8, 5.992e-8, 5.913e-8, 5.841e-8, 5.796e-8, 5.757e-8,
2126 5.746e-8, 5.731e-8, 5.679e-8, 5.577e-8, 5.671e-8, 5.656e-8,
2127 5.594e-8, 5.593e-8, 5.602e-8, 5.62e-8, 5.693e-8, 5.725e-8,
2128 5.858e-8, 6.037e-8, 6.249e-8, 6.535e-8, 6.899e-8, 7.356e-8,
2129 7.918e-8, 8.618e-8, 9.385e-8, 1.039e-7, 1.158e-7, 1.29e-7,
2130 1.437e-7, 1.65e-7, 1.871e-7, 2.121e-7, 2.427e-7, 2.773e-7,
2131 3.247e-7, 3.677e-7, 4.037e-7, 4.776e-7, 5.101e-7, 6.214e-7,
2132 6.936e-7, 7.581e-7, 8.486e-7, 9.355e-7, 9.942e-7, 1.063e-6,
2133 1.123e-6, 1.191e-6, 1.215e-6, 1.247e-6, 1.26e-6, 1.271e-6,
2134 1.284e-6, 1.317e-6, 1.323e-6, 1.349e-6, 1.353e-6, 1.362e-6,
2135 1.344e-6, 1.329e-6, 1.336e-6, 1.327e-6, 1.325e-6, 1.359e-6,
2136 1.374e-6, 1.415e-6, 1.462e-6, 1.526e-6, 1.619e-6, 1.735e-6,
2137 1.863e-6, 2.034e-6, 2.265e-6, 2.482e-6, 2.756e-6, 3.103e-6,
2138 3.466e-6, 3.832e-6, 4.378e-6, 4.913e-6, 5.651e-6, 6.311e-6,
2139 7.169e-6, 8.057e-6, 9.253e-6, 1.047e-5, 1.212e-5, 1.36e-5,
2140 1.569e-5, 1.776e-5, 2.02e-5, 2.281e-5, 2.683e-5, 2.994e-5,
2141 3.488e-5, 3.896e-5, 4.499e-5, 5.175e-5, 6.035e-5, 6.34e-5,
2142 7.281e-5, 7.923e-5, 8.348e-5, 9.631e-5, 1.044e-4, 1.102e-4,
2143 1.176e-4, 1.244e-4, 1.283e-4, 1.326e-4, 1.4e-4, 1.395e-4,
2144 1.387e-4, 1.363e-4, 1.314e-4, 1.241e-4, 1.228e-4, 1.148e-4,
2145 1.086e-4, 1.018e-4, 8.89e-5, 8.316e-5, 7.292e-5, 6.452e-5,
2146 5.625e-5, 5.045e-5, 4.38e-5, 3.762e-5, 3.29e-5, 2.836e-5,
2147 2.485e-5, 2.168e-5, 1.895e-5, 1.659e-5, 1.453e-5, 1.282e-5,
2148 1.132e-5, 1.001e-5, 8.836e-6, 7.804e-6, 6.922e-6, 6.116e-6,
2149 5.429e-6, 4.824e-6, 4.278e-6, 3.788e-6, 3.371e-6, 2.985e-6,
2150 2.649e-6, 2.357e-6, 2.09e-6, 1.858e-6, 1.647e-6, 1.462e-6,
2151 1.299e-6, 1.155e-6, 1.028e-6, 9.142e-7, 8.132e-7, 7.246e-7,
2152 6.451e-7, 5.764e-7, 5.151e-7, 4.603e-7, 4.121e-7, 3.694e-7,
2153 3.318e-7, 2.985e-7, 2.69e-7, 2.428e-7, 2.197e-7, 1.992e-7,
2154 1.81e-7, 1.649e-7, 1.506e-7, 1.378e-7, 1.265e-7, 1.163e-7,
2155 1.073e-7, 9.918e-8, 9.191e-8, 8.538e-8, 7.949e-8, 7.419e-8,
2156 6.94e-8, 6.508e-8, 6.114e-8, 5.761e-8, 5.437e-8, 5.146e-8,
2157 4.89e-8, 4.636e-8, 4.406e-8, 4.201e-8, 4.015e-8, 3.84e-8,
2158 3.661e-8, 3.51e-8, 3.377e-8, 3.242e-8, 3.13e-8, 3.015e-8,
2159 2.918e-8, 2.83e-8, 2.758e-8, 2.707e-8, 2.656e-8, 2.619e-8,
2160 2.609e-8, 2.615e-8, 2.63e-8, 2.675e-8, 2.745e-8, 2.842e-8,
2161 2.966e-8, 3.125e-8, 3.318e-8, 3.565e-8, 3.85e-8, 4.191e-8,
2162 4.59e-8, 5.059e-8, 5.607e-8, 6.239e-8, 6.958e-8, 7.796e-8,
2163 8.773e-8, 9.88e-8, 1.114e-7, 1.258e-7, 1.422e-7, 1.61e-7,
2164 1.822e-7, 2.06e-7, 2.337e-7, 2.645e-7, 2.996e-7, 3.393e-7,
2165 3.843e-7, 4.363e-7, 4.935e-7, 5.607e-7, 6.363e-7, 7.242e-7,
2166 8.23e-7, 9.411e-7, 1.071e-6, 1.232e-6, 1.402e-6, 1.6e-6, 1.82e-6,
2167 2.128e-6, 2.386e-6, 2.781e-6, 3.242e-6, 3.653e-6, 4.323e-6,
2168 4.747e-6, 5.321e-6, 5.919e-6, 6.681e-6, 7.101e-6, 7.983e-6,
2169 8.342e-6, 8.741e-6, 9.431e-6, 9.952e-6, 1.026e-5, 1.055e-5,
2170 1.095e-5, 1.095e-5, 1.087e-5, 1.056e-5, 1.026e-5, 9.715e-6,
2171 9.252e-6, 8.452e-6, 7.958e-6, 7.268e-6, 6.295e-6, 6.003e-6, 5e-6,
2172 4.591e-6, 3.983e-6, 3.479e-6, 3.058e-6, 2.667e-6, 2.293e-6,
2173 1.995e-6, 1.747e-6, 1.517e-6, 1.335e-6, 1.165e-6, 1.028e-6,
2174 9.007e-7, 7.956e-7, 7.015e-7, 6.192e-7, 5.491e-7, 4.859e-7,
2175 4.297e-7, 3.799e-7, 3.38e-7, 3.002e-7, 2.659e-7, 2.366e-7,
2176 2.103e-7, 1.861e-7, 1.655e-7, 1.469e-7, 1.309e-7, 1.162e-7,
2177 1.032e-7, 9.198e-8, 8.181e-8, 7.294e-8, 6.516e-8, 5.787e-8,
2178 5.163e-8, 4.612e-8, 4.119e-8, 3.695e-8, 3.308e-8, 2.976e-8,
2179 2.67e-8, 2.407e-8, 2.171e-8, 1.965e-8, 1.78e-8, 1.617e-8,
2180 1.47e-8, 1.341e-8, 1.227e-8, 1.125e-8, 1.033e-8, 9.524e-9,
2181 8.797e-9, 8.162e-9, 7.565e-9, 7.04e-9, 6.56e-9, 6.129e-9,
2182 5.733e-9, 5.376e-9, 5.043e-9, 4.75e-9, 4.466e-9, 4.211e-9,
2183 3.977e-9, 3.759e-9, 3.558e-9, 3.373e-9, 3.201e-9, 3.043e-9,
2184 2.895e-9, 2.76e-9, 2.635e-9, 2.518e-9, 2.411e-9, 2.314e-9,
2185 2.23e-9, 2.151e-9, 2.087e-9, 2.035e-9, 1.988e-9, 1.946e-9,
2186 1.927e-9, 1.916e-9, 1.916e-9, 1.933e-9, 1.966e-9, 2.018e-9,
2187 2.09e-9, 2.182e-9, 2.299e-9, 2.442e-9, 2.623e-9, 2.832e-9,
2188 3.079e-9, 3.368e-9, 3.714e-9, 4.104e-9, 4.567e-9, 5.091e-9,
2189 5.701e-9, 6.398e-9, 7.194e-9, 8.127e-9, 9.141e-9, 1.035e-8,
2190 1.177e-8, 1.338e-8, 1.508e-8, 1.711e-8, 1.955e-8, 2.216e-8,
2191 2.534e-8, 2.871e-8, 3.291e-8, 3.711e-8, 4.285e-8, 4.868e-8,
2192 5.509e-8, 6.276e-8, 7.262e-8, 8.252e-8, 9.4e-8, 1.064e-7,
2193 1.247e-7, 1.411e-7, 1.626e-7, 1.827e-7, 2.044e-7, 2.284e-7,
2194 2.452e-7, 2.854e-7, 3.026e-7, 3.278e-7, 3.474e-7, 3.693e-7,
2195 3.93e-7, 4.104e-7, 4.22e-7, 4.439e-7, 4.545e-7, 4.778e-7,
2196 4.812e-7, 5.018e-7, 4.899e-7, 5.075e-7, 5.073e-7, 5.171e-7,
2197 5.131e-7, 5.25e-7, 5.617e-7, 5.846e-7, 6.239e-7, 6.696e-7,
2198 7.398e-7, 8.073e-7, 9.15e-7, 1.009e-6, 1.116e-6, 1.264e-6,
2199 1.439e-6, 1.644e-6, 1.856e-6, 2.147e-6, 2.317e-6, 2.713e-6,
2200 2.882e-6, 2.99e-6, 3.489e-6, 3.581e-6, 4.033e-6, 4.26e-6,
2201 4.543e-6, 4.84e-6, 4.826e-6, 5.013e-6, 5.252e-6, 5.277e-6,
2202 5.306e-6, 5.236e-6, 5.123e-6, 5.171e-6, 4.843e-6, 4.615e-6,
2203 4.385e-6, 3.97e-6, 3.693e-6, 3.231e-6, 2.915e-6, 2.495e-6,
2204 2.144e-6, 1.91e-6, 1.639e-6, 1.417e-6, 1.226e-6, 1.065e-6,
2205 9.29e-7, 8.142e-7, 7.161e-7, 6.318e-7, 5.581e-7, 4.943e-7,
2206 4.376e-7, 3.884e-7, 3.449e-7, 3.06e-7, 2.712e-7, 2.412e-7,
2207 2.139e-7, 1.903e-7, 1.689e-7, 1.499e-7, 1.331e-7, 1.183e-7,
2208 1.05e-7, 9.362e-8, 8.306e-8, 7.403e-8, 6.578e-8, 5.853e-8,
2209 5.216e-8, 4.632e-8, 4.127e-8, 3.678e-8, 3.279e-8, 2.923e-8,
2210 2.612e-8, 2.339e-8, 2.094e-8, 1.877e-8, 1.686e-8, 1.516e-8,
2211 1.366e-8, 1.234e-8, 1.114e-8, 1.012e-8, 9.182e-9, 8.362e-9,
2212 7.634e-9, 6.981e-9, 6.406e-9, 5.888e-9, 5.428e-9, 5.021e-9,
2213 4.65e-9, 4.326e-9, 4.033e-9, 3.77e-9, 3.536e-9, 3.327e-9,
2214 3.141e-9, 2.974e-9, 2.825e-9, 2.697e-9, 2.584e-9, 2.488e-9,
2215 2.406e-9, 2.34e-9, 2.292e-9, 2.259e-9, 2.244e-9, 2.243e-9,
2216 2.272e-9, 2.31e-9, 2.378e-9, 2.454e-9, 2.618e-9, 2.672e-9,
2217 2.831e-9, 3.05e-9, 3.225e-9, 3.425e-9, 3.677e-9, 3.968e-9,
2218 4.221e-9, 4.639e-9, 4.96e-9, 5.359e-9, 5.649e-9, 6.23e-9,
2219 6.716e-9, 7.218e-9, 7.746e-9, 7.988e-9, 8.627e-9, 8.999e-9,
2220 9.442e-9, 9.82e-9, 1.015e-8, 1.06e-8, 1.079e-8, 1.109e-8,
2221 1.137e-8, 1.186e-8, 1.18e-8, 1.187e-8, 1.194e-8, 1.192e-8,
2222 1.224e-8, 1.245e-8, 1.246e-8, 1.318e-8, 1.377e-8, 1.471e-8,
2223 1.582e-8, 1.713e-8, 1.853e-8, 2.063e-8, 2.27e-8, 2.567e-8,
2224 2.891e-8, 3.264e-8, 3.744e-8, 4.286e-8, 4.915e-8, 5.623e-8,
2225 6.336e-8, 7.293e-8, 8.309e-8, 9.319e-8, 1.091e-7, 1.243e-7,
2226 1.348e-7, 1.449e-7, 1.62e-7, 1.846e-7, 1.937e-7, 2.04e-7,
2227 2.179e-7, 2.298e-7, 2.433e-7, 2.439e-7, 2.464e-7, 2.611e-7,
2228 2.617e-7, 2.582e-7, 2.453e-7, 2.401e-7, 2.349e-7, 2.203e-7,
2229 2.066e-7, 1.939e-7, 1.78e-7, 1.558e-7, 1.391e-7, 1.203e-7,
2230 1.048e-7, 9.464e-8, 8.306e-8, 7.239e-8, 6.317e-8, 5.52e-8,
2231 4.847e-8, 4.282e-8, 3.796e-8, 3.377e-8, 2.996e-8, 2.678e-8,
2232 2.4e-8, 2.134e-8, 1.904e-8, 1.705e-8, 1.523e-8, 1.35e-8,
2233 1.204e-8, 1.07e-8, 9.408e-9, 8.476e-9, 7.47e-9, 6.679e-9,
2234 5.929e-9, 5.267e-9, 4.711e-9, 4.172e-9, 3.761e-9, 3.288e-9,
2235 2.929e-9, 2.609e-9, 2.315e-9, 2.042e-9, 1.844e-9, 1.64e-9,
2236 1.47e-9, 1.31e-9, 1.176e-9, 1.049e-9, 9.377e-10, 8.462e-10,
2237 7.616e-10, 6.854e-10, 6.191e-10, 5.596e-10, 5.078e-10, 4.611e-10,
2238 4.197e-10, 3.83e-10, 3.505e-10, 3.215e-10, 2.956e-10, 2.726e-10,
2239 2.521e-10, 2.338e-10, 2.173e-10, 2.026e-10, 1.895e-10, 1.777e-10,
2240 1.672e-10, 1.579e-10, 1.496e-10, 1.423e-10, 1.358e-10, 1.302e-10,
2241 1.254e-10, 1.216e-10, 1.187e-10, 1.163e-10, 1.147e-10, 1.145e-10,
2242 1.15e-10, 1.17e-10, 1.192e-10, 1.25e-10, 1.298e-10, 1.345e-10,
2243 1.405e-10, 1.538e-10, 1.648e-10, 1.721e-10, 1.872e-10, 1.968e-10,
2244 2.089e-10, 2.172e-10, 2.317e-10, 2.389e-10, 2.503e-10, 2.585e-10,
2245 2.686e-10, 2.8e-10, 2.895e-10, 3.019e-10, 3.037e-10, 3.076e-10,
2246 3.146e-10, 3.198e-10, 3.332e-10, 3.397e-10, 3.54e-10, 3.667e-10,
2247 3.895e-10, 4.071e-10, 4.565e-10, 4.983e-10, 5.439e-10, 5.968e-10,
2248 6.676e-10, 7.456e-10, 8.405e-10, 9.478e-10, 1.064e-9, 1.218e-9,
2249 1.386e-9, 1.581e-9, 1.787e-9, 2.032e-9, 2.347e-9, 2.677e-9,
2250 3.008e-9, 3.544e-9, 4.056e-9, 4.687e-9, 5.331e-9, 6.227e-9,
2251 6.854e-9, 8.139e-9, 8.945e-9, 9.865e-9, 1.125e-8, 1.178e-8,
2252 1.364e-8, 1.436e-8, 1.54e-8, 1.672e-8, 1.793e-8, 1.906e-8,
2253 2.036e-8, 2.144e-8, 2.292e-8, 2.371e-8, 2.493e-8, 2.606e-8,
2254 2.706e-8, 2.866e-8, 3.036e-8, 3.136e-8, 3.405e-8, 3.665e-8,
2255 3.837e-8, 4.229e-8, 4.748e-8, 5.32e-8, 5.763e-8, 6.677e-8,
2256 7.216e-8, 7.716e-8, 8.958e-8, 9.419e-8, 1.036e-7, 1.108e-7,
2257 1.189e-7, 1.246e-7, 1.348e-7, 1.31e-7, 1.361e-7, 1.364e-7,
2258 1.363e-7, 1.343e-7, 1.293e-7, 1.254e-7, 1.235e-7, 1.158e-7,
2259 1.107e-7, 9.961e-8, 9.011e-8, 7.91e-8, 6.916e-8, 6.338e-8,
2260 5.564e-8, 4.827e-8, 4.198e-8, 3.695e-8, 3.276e-8, 2.929e-8,
2261 2.633e-8, 2.391e-8, 2.192e-8, 2.021e-8, 1.89e-8, 1.772e-8,
2262 1.667e-8, 1.603e-8, 1.547e-8, 1.537e-8, 1.492e-8, 1.515e-8,
2263 1.479e-8, 1.45e-8, 1.513e-8, 1.495e-8, 1.529e-8, 1.565e-8,
2264 1.564e-8, 1.553e-8, 1.569e-8, 1.584e-8, 1.57e-8, 1.538e-8,
2265 1.513e-8, 1.472e-8, 1.425e-8, 1.349e-8, 1.328e-8, 1.249e-8,
2266 1.17e-8, 1.077e-8, 9.514e-9, 8.614e-9, 7.46e-9, 6.621e-9,
2267 5.775e-9, 5.006e-9, 4.308e-9, 3.747e-9, 3.24e-9, 2.84e-9,
2268 2.481e-9, 2.184e-9, 1.923e-9, 1.71e-9, 1.504e-9, 1.334e-9,
2269 1.187e-9, 1.053e-9, 9.367e-10, 8.306e-10, 7.419e-10, 6.63e-10,
2270 5.918e-10, 5.277e-10, 4.717e-10, 4.222e-10, 3.783e-10, 3.39e-10,
2271 3.036e-10, 2.729e-10, 2.455e-10, 2.211e-10, 1.995e-10, 1.804e-10,
2272 1.635e-10, 1.485e-10, 1.355e-10, 1.24e-10, 1.139e-10, 1.051e-10,
2273 9.757e-11, 9.114e-11, 8.577e-11, 8.139e-11, 7.792e-11, 7.52e-11,
2274 7.39e-11, 7.311e-11, 7.277e-11, 7.482e-11, 7.698e-11, 8.162e-11,
2275 8.517e-11, 8.968e-11, 9.905e-11, 1.075e-10, 1.187e-10, 1.291e-10,
2276 1.426e-10, 1.573e-10, 1.734e-10, 1.905e-10, 2.097e-10, 2.28e-10,
2277 2.473e-10, 2.718e-10, 2.922e-10, 3.128e-10, 3.361e-10, 3.641e-10,
2278 3.91e-10, 4.196e-10, 4.501e-10, 4.932e-10, 5.258e-10, 5.755e-10,
2279 6.253e-10, 6.664e-10, 7.344e-10, 7.985e-10, 8.877e-10, 1.005e-9,
2280 1.118e-9, 1.251e-9, 1.428e-9, 1.61e-9, 1.888e-9, 2.077e-9,
2281 2.331e-9, 2.751e-9, 3.061e-9, 3.522e-9, 3.805e-9, 4.181e-9,
2282 4.575e-9, 5.167e-9, 5.634e-9, 6.007e-9, 6.501e-9, 6.829e-9,
2283 7.211e-9, 7.262e-9, 7.696e-9, 7.832e-9, 7.799e-9, 7.651e-9,
2284 7.304e-9, 7.15e-9, 6.977e-9, 6.603e-9, 6.209e-9, 5.69e-9,
2285 5.432e-9, 4.764e-9, 4.189e-9, 3.64e-9, 3.203e-9, 2.848e-9,
2286 2.51e-9, 2.194e-9, 1.946e-9, 1.75e-9, 1.567e-9, 1.426e-9,
2287 1.302e-9, 1.197e-9, 1.109e-9, 1.035e-9, 9.719e-10, 9.207e-10,
2288 8.957e-10, 8.578e-10, 8.262e-10, 8.117e-10, 7.987e-10, 7.875e-10,
2289 7.741e-10, 7.762e-10, 7.537e-10, 7.424e-10, 7.474e-10, 7.294e-10,
2290 7.216e-10, 7.233e-10, 7.075e-10, 6.892e-10, 6.618e-10, 6.314e-10,
2291 6.208e-10, 5.689e-10, 5.55e-10, 4.984e-10, 4.6e-10, 4.078e-10,
2292 3.879e-10, 3.459e-10, 2.982e-10, 2.626e-10, 2.329e-10, 1.988e-10,
2293 1.735e-10, 1.487e-10, 1.297e-10, 1.133e-10, 9.943e-11, 8.736e-11,
2294 7.726e-11, 6.836e-11, 6.053e-11, 5.384e-11, 4.789e-11, 4.267e-11,
2295 3.804e-11, 3.398e-11, 3.034e-11, 2.71e-11, 2.425e-11, 2.173e-11,
2296 1.95e-11, 1.752e-11, 1.574e-11, 1.418e-11, 1.278e-11, 1.154e-11,
2297 1.044e-11, 9.463e-12, 8.602e-12, 7.841e-12, 7.171e-12, 6.584e-12,
2298 6.073e-12, 5.631e-12, 5.254e-12, 4.937e-12, 4.679e-12, 4.476e-12,
2299 4.328e-12, 4.233e-12, 4.194e-12, 4.211e-12, 4.286e-12, 4.424e-12,
2300 4.628e-12, 4.906e-12, 5.262e-12, 5.708e-12, 6.254e-12, 6.914e-12,
2301 7.714e-12, 8.677e-12, 9.747e-12, 1.101e-11, 1.256e-11, 1.409e-11,
2302 1.597e-11, 1.807e-11, 2.034e-11, 2.316e-11, 2.622e-11, 2.962e-11,
2303 3.369e-11, 3.819e-11, 4.329e-11, 4.932e-11, 5.589e-11, 6.364e-11,
2304 7.284e-11, 8.236e-11, 9.447e-11, 1.078e-10, 1.229e-10, 1.417e-10,
2305 1.614e-10, 1.843e-10, 2.107e-10, 2.406e-10, 2.728e-10, 3.195e-10,
2306 3.595e-10, 4.153e-10, 4.736e-10, 5.41e-10, 6.088e-10, 6.769e-10,
2307 7.691e-10, 8.545e-10, 9.621e-10, 1.047e-9, 1.161e-9, 1.296e-9,
2308 1.424e-9, 1.576e-9, 1.739e-9, 1.893e-9, 2.08e-9, 2.336e-9,
2309 2.604e-9, 2.76e-9, 3.001e-9, 3.365e-9, 3.55e-9, 3.895e-9,
2310 4.183e-9, 4.614e-9, 4.846e-9, 5.068e-9, 5.427e-9, 5.541e-9,
2311 5.864e-9, 5.997e-9, 5.997e-9, 6.061e-9, 5.944e-9, 5.855e-9,
2312 5.661e-9, 5.523e-9, 5.374e-9, 4.94e-9, 4.688e-9, 4.17e-9,
2313 3.913e-9, 3.423e-9, 2.997e-9, 2.598e-9, 2.253e-9, 1.946e-9,
2314 1.71e-9, 1.507e-9, 1.336e-9, 1.19e-9, 1.068e-9, 9.623e-10,
2315 8.772e-10, 8.007e-10, 7.42e-10, 6.884e-10, 6.483e-10, 6.162e-10,
2316 5.922e-10, 5.688e-10, 5.654e-10, 5.637e-10, 5.701e-10, 5.781e-10,
2317 5.874e-10, 6.268e-10, 6.357e-10, 6.525e-10, 7.137e-10, 7.441e-10,
2318 8.024e-10, 8.485e-10, 9.143e-10, 9.536e-10, 9.717e-10, 1.018e-9,
2319 1.042e-9, 1.054e-9, 1.092e-9, 1.079e-9, 1.064e-9, 1.043e-9,
2320 1.02e-9, 9.687e-10, 9.273e-10, 9.208e-10, 9.068e-10, 7.687e-10,
2321 7.385e-10, 6.595e-10, 5.87e-10, 5.144e-10, 4.417e-10, 3.804e-10,
2322 3.301e-10, 2.866e-10, 2.509e-10, 2.202e-10, 1.947e-10, 1.719e-10,
2323 1.525e-10, 1.361e-10, 1.21e-10, 1.084e-10, 9.8e-11, 8.801e-11,
2324 7.954e-11, 7.124e-11, 6.335e-11, 5.76e-11, 5.132e-11, 4.601e-11,
2325 4.096e-11, 3.657e-11, 3.25e-11, 2.909e-11, 2.587e-11, 2.297e-11,
2326 2.05e-11, 1.828e-11, 1.632e-11, 1.462e-11, 1.314e-11, 1.185e-11,
2327 1.073e-11, 9.76e-12, 8.922e-12, 8.206e-12, 7.602e-12, 7.1e-12,
2328 6.694e-12, 6.378e-12, 6.149e-12, 6.004e-12, 5.941e-12, 5.962e-12,
2329 6.069e-12, 6.265e-12, 6.551e-12, 6.935e-12, 7.457e-12, 8.074e-12,
2330 8.811e-12, 9.852e-12, 1.086e-11, 1.207e-11, 1.361e-11, 1.553e-11,
2331 1.737e-11, 1.93e-11, 2.175e-11, 2.41e-11, 2.706e-11, 3.023e-11,
2332 3.313e-11, 3.657e-11, 4.118e-11, 4.569e-11, 5.025e-11, 5.66e-11,
2333 6.231e-11, 6.881e-11, 7.996e-11, 8.526e-11, 9.694e-11, 1.106e-10,
2334 1.222e-10, 1.355e-10, 1.525e-10, 1.775e-10, 1.924e-10, 2.181e-10,
2335 2.379e-10, 2.662e-10, 2.907e-10, 3.154e-10, 3.366e-10, 3.579e-10,
2336 3.858e-10, 4.046e-10, 4.196e-10, 4.166e-10, 4.457e-10, 4.466e-10,
2337 4.404e-10, 4.337e-10, 4.15e-10, 4.083e-10, 3.91e-10, 3.723e-10,
2338 3.514e-10, 3.303e-10, 2.847e-10, 2.546e-10, 2.23e-10, 1.994e-10,
2339 1.733e-10, 1.488e-10, 1.297e-10, 1.144e-10, 1.004e-10, 8.741e-11,
2340 7.928e-11, 7.034e-11, 6.323e-11, 5.754e-11, 5.25e-11, 4.85e-11,
2341 4.502e-11, 4.286e-11, 4.028e-11, 3.899e-11, 3.824e-11, 3.761e-11,
2342 3.804e-11, 3.839e-11, 3.845e-11, 4.244e-11, 4.382e-11, 4.582e-11,
2343 4.847e-11, 5.209e-11, 5.384e-11, 5.887e-11, 6.371e-11, 6.737e-11,
2344 7.168e-11, 7.415e-11, 7.827e-11, 8.037e-11, 8.12e-11, 8.071e-11,
2345 8.008e-11, 7.851e-11, 7.544e-11, 7.377e-11, 7.173e-11, 6.801e-11,
2346 6.267e-11, 5.727e-11, 5.288e-11, 4.853e-11, 4.082e-11, 3.645e-11,
2347 3.136e-11, 2.672e-11, 2.304e-11, 1.986e-11, 1.725e-11, 1.503e-11,
2348 1.315e-11, 1.153e-11, 1.014e-11, 8.942e-12, 7.901e-12, 6.993e-12,
2349 6.199e-12, 5.502e-12, 4.89e-12, 4.351e-12, 3.878e-12, 3.461e-12,
2350 3.094e-12, 2.771e-12, 2.488e-12, 2.241e-12, 2.025e-12, 1.838e-12,
2351 1.677e-12, 1.541e-12, 1.427e-12, 1.335e-12, 1.262e-12, 1.209e-12,
2352 1.176e-12, 1.161e-12, 1.165e-12, 1.189e-12, 1.234e-12, 1.3e-12,
2353 1.389e-12, 1.503e-12, 1.644e-12, 1.814e-12, 2.017e-12, 2.255e-12,
2354 2.534e-12, 2.858e-12, 3.231e-12, 3.661e-12, 4.153e-12, 4.717e-12,
2355 5.36e-12, 6.094e-12, 6.93e-12, 7.882e-12, 8.966e-12, 1.02e-11,
2356 1.162e-11, 1.324e-11, 1.51e-11, 1.72e-11, 1.965e-11, 2.237e-11,
2357 2.56e-11, 2.927e-11, 3.371e-11, 3.842e-11, 4.429e-11, 5.139e-11,
2358 5.798e-11, 6.697e-11, 7.626e-11, 8.647e-11, 1.022e-10, 1.136e-10,
2359 1.3e-10, 1.481e-10, 1.672e-10, 1.871e-10, 2.126e-10, 2.357e-10,
2360 2.583e-10, 2.997e-10, 3.289e-10, 3.702e-10, 4.012e-10, 4.319e-10,
2361 4.527e-10, 5.001e-10, 5.448e-10, 5.611e-10, 5.76e-10, 5.965e-10,
2362 6.079e-10, 6.207e-10, 6.276e-10, 6.222e-10, 6.137e-10, 6e-10,
2363 5.814e-10, 5.393e-10, 5.35e-10, 4.947e-10, 4.629e-10, 4.117e-10,
2364 3.712e-10, 3.372e-10, 2.923e-10, 2.55e-10, 2.232e-10, 1.929e-10,
2365 1.679e-10, 1.46e-10, 1.289e-10, 1.13e-10, 9.953e-11, 8.763e-11,
2366 7.76e-11, 6.9e-11, 6.16e-11, 5.525e-11, 4.958e-11, 4.489e-11,
2367 4.072e-11, 3.728e-11, 3.438e-11, 3.205e-11, 3.006e-11, 2.848e-11,
2368 2.766e-11, 2.688e-11, 2.664e-11, 2.67e-11, 2.696e-11, 2.786e-11,
2369 2.861e-11, 3.009e-11, 3.178e-11, 3.389e-11, 3.587e-11, 3.819e-11,
2370 4.054e-11, 4.417e-11, 4.703e-11, 5.137e-11, 5.46e-11, 6.055e-11,
2371 6.333e-11, 6.773e-11, 7.219e-11, 7.717e-11, 8.131e-11, 8.491e-11,
2372 8.574e-11, 9.01e-11, 9.017e-11, 8.999e-11, 8.959e-11, 8.838e-11,
2373 8.579e-11, 8.162e-11, 8.098e-11, 7.472e-11, 7.108e-11, 6.559e-11,
2374 5.994e-11, 5.172e-11, 4.424e-11, 3.951e-11, 3.34e-11, 2.902e-11,
2375 2.541e-11, 2.215e-11, 1.945e-11, 1.716e-11, 1.503e-11, 1.339e-11,
2376 1.185e-11, 1.05e-11, 9.336e-12, 8.307e-12, 7.312e-12, 6.55e-12,
2377 5.836e-12, 5.178e-12, 4.6e-12, 4.086e-12, 3.639e-12, 3.247e-12,
2378 2.904e-12, 2.604e-12, 2.341e-12, 2.112e-12, 1.914e-12, 1.744e-12,
2379 1.598e-12, 1.476e-12, 1.374e-12, 1.293e-12, 1.23e-12, 1.185e-12,
2380 1.158e-12, 1.147e-12, 1.154e-12, 1.177e-12, 1.219e-12, 1.28e-12,
2381 1.36e-12, 1.463e-12, 1.591e-12, 1.75e-12, 1.94e-12, 2.156e-12,
2382 2.43e-12, 2.748e-12, 3.052e-12, 3.533e-12, 3.967e-12, 4.471e-12,
2383 5.041e-12, 5.86e-12, 6.664e-12, 7.522e-12, 8.342e-12, 9.412e-12,
2384 1.072e-11, 1.213e-11, 1.343e-11, 1.496e-11, 1.664e-11, 1.822e-11,
2385 2.029e-11, 2.233e-11, 2.457e-11, 2.709e-11, 2.928e-11, 3.115e-11,
2386 3.356e-11, 3.592e-11, 3.818e-11, 3.936e-11, 4.061e-11, 4.149e-11,
2387 4.299e-11, 4.223e-11, 4.251e-11, 4.287e-11, 4.177e-11, 4.094e-11,
2388 3.942e-11, 3.772e-11, 3.614e-11, 3.394e-11, 3.222e-11, 2.791e-11,
2389 2.665e-11, 2.309e-11, 2.032e-11, 1.74e-11, 1.535e-11, 1.323e-11,
2390 1.151e-11, 9.803e-12, 8.65e-12, 7.54e-12, 6.619e-12, 5.832e-12,
2391 5.113e-12, 4.503e-12, 3.975e-12, 3.52e-12, 3.112e-12, 2.797e-12,
2392 2.5e-12, 2.24e-12, 2.013e-12, 1.819e-12, 1.653e-12, 1.513e-12,
2393 1.395e-12, 1.299e-12, 1.225e-12, 1.168e-12, 1.124e-12, 1.148e-12,
2394 1.107e-12, 1.128e-12, 1.169e-12, 1.233e-12, 1.307e-12, 1.359e-12,
2395 1.543e-12, 1.686e-12, 1.794e-12, 2.028e-12, 2.21e-12, 2.441e-12,
2396 2.653e-12, 2.828e-12, 3.093e-12, 3.28e-12, 3.551e-12, 3.677e-12,
2397 3.803e-12, 3.844e-12, 4.068e-12, 4.093e-12, 4.002e-12, 3.904e-12,
2398 3.624e-12, 3.633e-12, 3.622e-12, 3.443e-12, 3.184e-12, 2.934e-12,
2399 2.476e-12, 2.212e-12, 1.867e-12, 1.594e-12, 1.37e-12, 1.192e-12,
2400 1.045e-12, 9.211e-13, 8.17e-13, 7.29e-13, 6.55e-13, 5.929e-13,
2401 5.415e-13, 4.995e-13, 4.661e-13, 4.406e-13, 4.225e-13, 4.116e-13,
2402 4.075e-13, 4.102e-13, 4.198e-13, 4.365e-13, 4.606e-13, 4.925e-13,
2403 5.326e-13, 5.818e-13, 6.407e-13, 7.104e-13, 7.92e-13, 8.868e-13,
2404 9.964e-13, 1.123e-12, 1.268e-12, 1.434e-12, 1.626e-12, 1.848e-12,
2405 2.107e-12, 2.422e-12, 2.772e-12, 3.145e-12, 3.704e-12, 4.27e-12,
2406 4.721e-12, 5.361e-12, 6.083e-12, 7.095e-12, 7.968e-12, 9.228e-12,
2407 1.048e-11, 1.187e-11, 1.336e-11, 1.577e-11, 1.772e-11, 2.017e-11,
2408 2.25e-11, 2.63e-11, 2.911e-11, 3.356e-11, 3.82e-11, 4.173e-11,
2409 4.811e-11, 5.254e-11, 5.839e-11, 6.187e-11, 6.805e-11, 7.118e-11,
2410 7.369e-11, 7.664e-11, 7.794e-11, 7.947e-11, 8.036e-11, 7.954e-11,
2411 7.849e-11, 7.518e-11, 7.462e-11, 6.926e-11, 6.531e-11, 6.197e-11,
2412 5.421e-11, 4.777e-11, 4.111e-11, 3.679e-11, 3.166e-11, 2.786e-11,
2413 2.436e-11, 2.144e-11, 1.859e-11, 1.628e-11, 1.414e-11, 1.237e-11,
2414 1.093e-11, 9.558e-12
2415 };
2416
2417 static const double h2o260[2001] =
2418 { .2752, .2732, .2749, .2676, .2667, .2545,
2419 .2497, .2327, .2218, .2036, .1825, .1694, .1497, .1353, .121,
2420 .1014, .09405, .07848, .07195, .06246, .05306, .04853, .04138,
2421 .03735, .03171, .02785, .02431, .02111, .01845, .0164, .01405,
2422 .01255, .01098, .009797, .008646, .007779, .006898, .006099,
2423 .005453, .004909, .004413, .003959, .003581, .003199, .002871,
2424 .002583, .00233, .002086, .001874, .001684, .001512, .001361,
2425 .001225, .0011, 9.89e-4, 8.916e-4, 8.039e-4, 7.256e-4, 6.545e-4,
2426 5.918e-4, 5.359e-4, 4.867e-4, 4.426e-4, 4.033e-4, 3.682e-4,
2427 3.366e-4, 3.085e-4, 2.833e-4, 2.605e-4, 2.403e-4, 2.221e-4,
2428 2.055e-4, 1.908e-4, 1.774e-4, 1.653e-4, 1.544e-4, 1.443e-4,
2429 1.351e-4, 1.267e-4, 1.19e-4, 1.119e-4, 1.053e-4, 9.922e-5,
2430 9.355e-5, 8.831e-5, 8.339e-5, 7.878e-5, 7.449e-5, 7.043e-5,
2431 6.664e-5, 6.307e-5, 5.969e-5, 5.654e-5, 5.357e-5, 5.075e-5,
2432 4.81e-5, 4.56e-5, 4.322e-5, 4.102e-5, 3.892e-5, 3.696e-5,
2433 3.511e-5, 3.339e-5, 3.177e-5, 3.026e-5, 2.886e-5, 2.756e-5,
2434 2.636e-5, 2.527e-5, 2.427e-5, 2.337e-5, 2.257e-5, 2.185e-5,
2435 2.127e-5, 2.08e-5, 2.041e-5, 2.013e-5, 2e-5, 1.997e-5, 2.009e-5,
2436 2.031e-5, 2.068e-5, 2.124e-5, 2.189e-5, 2.267e-5, 2.364e-5,
2437 2.463e-5, 2.618e-5, 2.774e-5, 2.937e-5, 3.144e-5, 3.359e-5,
2438 3.695e-5, 4.002e-5, 4.374e-5, 4.947e-5, 5.431e-5, 6.281e-5,
2439 7.169e-5, 8.157e-5, 9.728e-5, 1.079e-4, 1.337e-4, 1.442e-4,
2440 1.683e-4, 1.879e-4, 2.223e-4, 2.425e-4, 2.838e-4, 3.143e-4,
2441 3.527e-4, 4.012e-4, 4.237e-4, 4.747e-4, 5.057e-4, 5.409e-4,
2442 5.734e-4, 5.944e-4, 6.077e-4, 6.175e-4, 6.238e-4, 6.226e-4,
2443 6.248e-4, 6.192e-4, 6.098e-4, 5.818e-4, 5.709e-4, 5.465e-4,
2444 5.043e-4, 4.699e-4, 4.294e-4, 3.984e-4, 3.672e-4, 3.152e-4,
2445 2.883e-4, 2.503e-4, 2.211e-4, 1.92e-4, 1.714e-4, 1.485e-4,
2446 1.358e-4, 1.156e-4, 1.021e-4, 8.887e-5, 7.842e-5, 7.12e-5,
2447 6.186e-5, 5.73e-5, 4.792e-5, 4.364e-5, 3.72e-5, 3.28e-5,
2448 2.946e-5, 2.591e-5, 2.261e-5, 2.048e-5, 1.813e-5, 1.63e-5,
2449 1.447e-5, 1.282e-5, 1.167e-5, 1.041e-5, 9.449e-6, 8.51e-6,
2450 7.596e-6, 6.961e-6, 6.272e-6, 5.728e-6, 5.198e-6, 4.667e-6,
2451 4.288e-6, 3.897e-6, 3.551e-6, 3.235e-6, 2.952e-6, 2.688e-6,
2452 2.449e-6, 2.241e-6, 2.05e-6, 1.879e-6, 1.722e-6, 1.582e-6,
2453 1.456e-6, 1.339e-6, 1.236e-6, 1.144e-6, 1.06e-6, 9.83e-7,
2454 9.149e-7, 8.535e-7, 7.973e-7, 7.466e-7, 6.999e-7, 6.574e-7,
2455 6.18e-7, 5.821e-7, 5.487e-7, 5.18e-7, 4.896e-7, 4.631e-7,
2456 4.386e-7, 4.16e-7, 3.945e-7, 3.748e-7, 3.562e-7, 3.385e-7,
2457 3.222e-7, 3.068e-7, 2.922e-7, 2.788e-7, 2.659e-7, 2.539e-7,
2458 2.425e-7, 2.318e-7, 2.219e-7, 2.127e-7, 2.039e-7, 1.958e-7,
2459 1.885e-7, 1.818e-7, 1.758e-7, 1.711e-7, 1.662e-7, 1.63e-7,
2460 1.605e-7, 1.58e-7, 1.559e-7, 1.545e-7, 1.532e-7, 1.522e-7,
2461 1.51e-7, 1.495e-7, 1.465e-7, 1.483e-7, 1.469e-7, 1.448e-7,
2462 1.444e-7, 1.436e-7, 1.426e-7, 1.431e-7, 1.425e-7, 1.445e-7,
2463 1.477e-7, 1.515e-7, 1.567e-7, 1.634e-7, 1.712e-7, 1.802e-7,
2464 1.914e-7, 2.024e-7, 2.159e-7, 2.295e-7, 2.461e-7, 2.621e-7,
2465 2.868e-7, 3.102e-7, 3.394e-7, 3.784e-7, 4.223e-7, 4.864e-7,
2466 5.501e-7, 6.039e-7, 7.193e-7, 7.728e-7, 9.514e-7, 1.073e-6,
2467 1.18e-6, 1.333e-6, 1.472e-6, 1.566e-6, 1.677e-6, 1.784e-6,
2468 1.904e-6, 1.953e-6, 2.02e-6, 2.074e-6, 2.128e-6, 2.162e-6,
2469 2.219e-6, 2.221e-6, 2.249e-6, 2.239e-6, 2.235e-6, 2.185e-6,
2470 2.141e-6, 2.124e-6, 2.09e-6, 2.068e-6, 2.1e-6, 2.104e-6,
2471 2.142e-6, 2.181e-6, 2.257e-6, 2.362e-6, 2.5e-6, 2.664e-6,
2472 2.884e-6, 3.189e-6, 3.48e-6, 3.847e-6, 4.313e-6, 4.79e-6,
2473 5.25e-6, 5.989e-6, 6.692e-6, 7.668e-6, 8.52e-6, 9.606e-6,
2474 1.073e-5, 1.225e-5, 1.377e-5, 1.582e-5, 1.761e-5, 2.029e-5,
2475 2.284e-5, 2.602e-5, 2.94e-5, 3.483e-5, 3.928e-5, 4.618e-5,
2476 5.24e-5, 6.132e-5, 7.183e-5, 8.521e-5, 9.111e-5, 1.07e-4,
2477 1.184e-4, 1.264e-4, 1.475e-4, 1.612e-4, 1.704e-4, 1.818e-4,
2478 1.924e-4, 1.994e-4, 2.061e-4, 2.18e-4, 2.187e-4, 2.2e-4,
2479 2.196e-4, 2.131e-4, 2.015e-4, 1.988e-4, 1.847e-4, 1.729e-4,
2480 1.597e-4, 1.373e-4, 1.262e-4, 1.087e-4, 9.439e-5, 8.061e-5,
2481 7.093e-5, 6.049e-5, 5.12e-5, 4.435e-5, 3.817e-5, 3.34e-5,
2482 2.927e-5, 2.573e-5, 2.291e-5, 2.04e-5, 1.827e-5, 1.636e-5,
2483 1.463e-5, 1.309e-5, 1.17e-5, 1.047e-5, 9.315e-6, 8.328e-6,
2484 7.458e-6, 6.665e-6, 5.94e-6, 5.316e-6, 4.752e-6, 4.252e-6,
2485 3.825e-6, 3.421e-6, 3.064e-6, 2.746e-6, 2.465e-6, 2.216e-6,
2486 1.99e-6, 1.79e-6, 1.609e-6, 1.449e-6, 1.306e-6, 1.177e-6,
2487 1.063e-6, 9.607e-7, 8.672e-7, 7.855e-7, 7.118e-7, 6.46e-7,
2488 5.871e-7, 5.34e-7, 4.868e-7, 4.447e-7, 4.068e-7, 3.729e-7,
2489 3.423e-7, 3.151e-7, 2.905e-7, 2.686e-7, 2.484e-7, 2.306e-7,
2490 2.142e-7, 1.995e-7, 1.86e-7, 1.738e-7, 1.626e-7, 1.522e-7,
2491 1.427e-7, 1.338e-7, 1.258e-7, 1.183e-7, 1.116e-7, 1.056e-7,
2492 9.972e-8, 9.46e-8, 9.007e-8, 8.592e-8, 8.195e-8, 7.816e-8,
2493 7.483e-8, 7.193e-8, 6.892e-8, 6.642e-8, 6.386e-8, 6.154e-8,
2494 5.949e-8, 5.764e-8, 5.622e-8, 5.479e-8, 5.364e-8, 5.301e-8,
2495 5.267e-8, 5.263e-8, 5.313e-8, 5.41e-8, 5.55e-8, 5.745e-8,
2496 6.003e-8, 6.311e-8, 6.713e-8, 7.173e-8, 7.724e-8, 8.368e-8,
2497 9.121e-8, 9.986e-8, 1.097e-7, 1.209e-7, 1.338e-7, 1.486e-7,
2498 1.651e-7, 1.837e-7, 2.048e-7, 2.289e-7, 2.557e-7, 2.857e-7,
2499 3.195e-7, 3.587e-7, 4.015e-7, 4.497e-7, 5.049e-7, 5.665e-7,
2500 6.366e-7, 7.121e-7, 7.996e-7, 8.946e-7, 1.002e-6, 1.117e-6,
2501 1.262e-6, 1.416e-6, 1.611e-6, 1.807e-6, 2.056e-6, 2.351e-6,
2502 2.769e-6, 3.138e-6, 3.699e-6, 4.386e-6, 5.041e-6, 6.074e-6,
2503 6.812e-6, 7.79e-6, 8.855e-6, 1.014e-5, 1.095e-5, 1.245e-5,
2504 1.316e-5, 1.39e-5, 1.504e-5, 1.583e-5, 1.617e-5, 1.652e-5,
2505 1.713e-5, 1.724e-5, 1.715e-5, 1.668e-5, 1.629e-5, 1.552e-5,
2506 1.478e-5, 1.34e-5, 1.245e-5, 1.121e-5, 9.575e-6, 8.956e-6,
2507 7.345e-6, 6.597e-6, 5.612e-6, 4.818e-6, 4.165e-6, 3.579e-6,
2508 3.041e-6, 2.623e-6, 2.29e-6, 1.984e-6, 1.748e-6, 1.534e-6,
2509 1.369e-6, 1.219e-6, 1.092e-6, 9.8e-7, 8.762e-7, 7.896e-7,
2510 7.104e-7, 6.364e-7, 5.691e-7, 5.107e-7, 4.575e-7, 4.09e-7,
2511 3.667e-7, 3.287e-7, 2.931e-7, 2.633e-7, 2.356e-7, 2.111e-7,
2512 1.895e-7, 1.697e-7, 1.525e-7, 1.369e-7, 1.233e-7, 1.114e-7,
2513 9.988e-8, 9.004e-8, 8.149e-8, 7.352e-8, 6.662e-8, 6.03e-8,
2514 5.479e-8, 4.974e-8, 4.532e-8, 4.129e-8, 3.781e-8, 3.462e-8,
2515 3.176e-8, 2.919e-8, 2.687e-8, 2.481e-8, 2.292e-8, 2.119e-8,
2516 1.967e-8, 1.828e-8, 1.706e-8, 1.589e-8, 1.487e-8, 1.393e-8,
2517 1.307e-8, 1.228e-8, 1.156e-8, 1.089e-8, 1.028e-8, 9.696e-9,
2518 9.159e-9, 8.658e-9, 8.187e-9, 7.746e-9, 7.34e-9, 6.953e-9,
2519 6.594e-9, 6.259e-9, 5.948e-9, 5.66e-9, 5.386e-9, 5.135e-9,
2520 4.903e-9, 4.703e-9, 4.515e-9, 4.362e-9, 4.233e-9, 4.117e-9,
2521 4.017e-9, 3.962e-9, 3.924e-9, 3.905e-9, 3.922e-9, 3.967e-9,
2522 4.046e-9, 4.165e-9, 4.32e-9, 4.522e-9, 4.769e-9, 5.083e-9,
2523 5.443e-9, 5.872e-9, 6.366e-9, 6.949e-9, 7.601e-9, 8.371e-9,
2524 9.22e-9, 1.02e-8, 1.129e-8, 1.251e-8, 1.393e-8, 1.542e-8,
2525 1.72e-8, 1.926e-8, 2.152e-8, 2.392e-8, 2.678e-8, 3.028e-8,
2526 3.39e-8, 3.836e-8, 4.309e-8, 4.9e-8, 5.481e-8, 6.252e-8,
2527 7.039e-8, 7.883e-8, 8.849e-8, 1.012e-7, 1.142e-7, 1.3e-7,
2528 1.475e-7, 1.732e-7, 1.978e-7, 2.304e-7, 2.631e-7, 2.988e-7,
2529 3.392e-7, 3.69e-7, 4.355e-7, 4.672e-7, 5.11e-7, 5.461e-7,
2530 5.828e-7, 6.233e-7, 6.509e-7, 6.672e-7, 6.969e-7, 7.104e-7,
2531 7.439e-7, 7.463e-7, 7.708e-7, 7.466e-7, 7.668e-7, 7.549e-7,
2532 7.586e-7, 7.384e-7, 7.439e-7, 7.785e-7, 7.915e-7, 8.31e-7,
2533 8.745e-7, 9.558e-7, 1.038e-6, 1.173e-6, 1.304e-6, 1.452e-6,
2534 1.671e-6, 1.931e-6, 2.239e-6, 2.578e-6, 3.032e-6, 3.334e-6,
2535 3.98e-6, 4.3e-6, 4.518e-6, 5.321e-6, 5.508e-6, 6.211e-6, 6.59e-6,
2536 7.046e-6, 7.555e-6, 7.558e-6, 7.875e-6, 8.319e-6, 8.433e-6,
2537 8.59e-6, 8.503e-6, 8.304e-6, 8.336e-6, 7.739e-6, 7.301e-6,
2538 6.827e-6, 6.078e-6, 5.551e-6, 4.762e-6, 4.224e-6, 3.538e-6,
2539 2.984e-6, 2.619e-6, 2.227e-6, 1.923e-6, 1.669e-6, 1.462e-6,
2540 1.294e-6, 1.155e-6, 1.033e-6, 9.231e-7, 8.238e-7, 7.36e-7,
2541 6.564e-7, 5.869e-7, 5.236e-7, 4.673e-7, 4.174e-7, 3.736e-7,
2542 3.33e-7, 2.976e-7, 2.657e-7, 2.367e-7, 2.106e-7, 1.877e-7,
2543 1.671e-7, 1.494e-7, 1.332e-7, 1.192e-7, 1.065e-7, 9.558e-8,
2544 8.586e-8, 7.717e-8, 6.958e-8, 6.278e-8, 5.666e-8, 5.121e-8,
2545 4.647e-8, 4.213e-8, 3.815e-8, 3.459e-8, 3.146e-8, 2.862e-8,
2546 2.604e-8, 2.375e-8, 2.162e-8, 1.981e-8, 1.817e-8, 1.67e-8,
2547 1.537e-8, 1.417e-8, 1.31e-8, 1.215e-8, 1.128e-8, 1.05e-8,
2548 9.793e-9, 9.158e-9, 8.586e-9, 8.068e-9, 7.595e-9, 7.166e-9,
2549 6.778e-9, 6.427e-9, 6.108e-9, 5.826e-9, 5.571e-9, 5.347e-9,
2550 5.144e-9, 4.968e-9, 4.822e-9, 4.692e-9, 4.589e-9, 4.506e-9,
2551 4.467e-9, 4.44e-9, 4.466e-9, 4.515e-9, 4.718e-9, 4.729e-9,
2552 4.937e-9, 5.249e-9, 5.466e-9, 5.713e-9, 6.03e-9, 6.436e-9,
2553 6.741e-9, 7.33e-9, 7.787e-9, 8.414e-9, 8.908e-9, 9.868e-9,
2554 1.069e-8, 1.158e-8, 1.253e-8, 1.3e-8, 1.409e-8, 1.47e-8,
2555 1.548e-8, 1.612e-8, 1.666e-8, 1.736e-8, 1.763e-8, 1.812e-8,
2556 1.852e-8, 1.923e-8, 1.897e-8, 1.893e-8, 1.888e-8, 1.868e-8,
2557 1.895e-8, 1.899e-8, 1.876e-8, 1.96e-8, 2.02e-8, 2.121e-8,
2558 2.239e-8, 2.379e-8, 2.526e-8, 2.766e-8, 2.994e-8, 3.332e-8,
2559 3.703e-8, 4.158e-8, 4.774e-8, 5.499e-8, 6.355e-8, 7.349e-8,
2560 8.414e-8, 9.846e-8, 1.143e-7, 1.307e-7, 1.562e-7, 1.817e-7,
2561 2.011e-7, 2.192e-7, 2.485e-7, 2.867e-7, 3.035e-7, 3.223e-7,
2562 3.443e-7, 3.617e-7, 3.793e-7, 3.793e-7, 3.839e-7, 4.081e-7,
2563 4.117e-7, 4.085e-7, 3.92e-7, 3.851e-7, 3.754e-7, 3.49e-7,
2564 3.229e-7, 2.978e-7, 2.691e-7, 2.312e-7, 2.029e-7, 1.721e-7,
2565 1.472e-7, 1.308e-7, 1.132e-7, 9.736e-8, 8.458e-8, 7.402e-8,
2566 6.534e-8, 5.811e-8, 5.235e-8, 4.762e-8, 4.293e-8, 3.896e-8,
2567 3.526e-8, 3.165e-8, 2.833e-8, 2.551e-8, 2.288e-8, 2.036e-8,
2568 1.82e-8, 1.626e-8, 1.438e-8, 1.299e-8, 1.149e-8, 1.03e-8,
2569 9.148e-9, 8.122e-9, 7.264e-9, 6.425e-9, 5.777e-9, 5.06e-9,
2570 4.502e-9, 4.013e-9, 3.567e-9, 3.145e-9, 2.864e-9, 2.553e-9,
2571 2.311e-9, 2.087e-9, 1.886e-9, 1.716e-9, 1.556e-9, 1.432e-9,
2572 1.311e-9, 1.202e-9, 1.104e-9, 1.013e-9, 9.293e-10, 8.493e-10,
2573 7.79e-10, 7.185e-10, 6.642e-10, 6.141e-10, 5.684e-10, 5.346e-10,
2574 5.032e-10, 4.725e-10, 4.439e-10, 4.176e-10, 3.93e-10, 3.714e-10,
2575 3.515e-10, 3.332e-10, 3.167e-10, 3.02e-10, 2.887e-10, 2.769e-10,
2576 2.665e-10, 2.578e-10, 2.503e-10, 2.436e-10, 2.377e-10, 2.342e-10,
2577 2.305e-10, 2.296e-10, 2.278e-10, 2.321e-10, 2.355e-10, 2.402e-10,
2578 2.478e-10, 2.67e-10, 2.848e-10, 2.982e-10, 3.263e-10, 3.438e-10,
2579 3.649e-10, 3.829e-10, 4.115e-10, 4.264e-10, 4.473e-10, 4.63e-10,
2580 4.808e-10, 4.995e-10, 5.142e-10, 5.313e-10, 5.318e-10, 5.358e-10,
2581 5.452e-10, 5.507e-10, 5.698e-10, 5.782e-10, 5.983e-10, 6.164e-10,
2582 6.532e-10, 6.811e-10, 7.624e-10, 8.302e-10, 9.067e-10, 9.937e-10,
2583 1.104e-9, 1.221e-9, 1.361e-9, 1.516e-9, 1.675e-9, 1.883e-9,
2584 2.101e-9, 2.349e-9, 2.614e-9, 2.92e-9, 3.305e-9, 3.724e-9,
2585 4.142e-9, 4.887e-9, 5.614e-9, 6.506e-9, 7.463e-9, 8.817e-9,
2586 9.849e-9, 1.187e-8, 1.321e-8, 1.474e-8, 1.698e-8, 1.794e-8,
2587 2.09e-8, 2.211e-8, 2.362e-8, 2.556e-8, 2.729e-8, 2.88e-8,
2588 3.046e-8, 3.167e-8, 3.367e-8, 3.457e-8, 3.59e-8, 3.711e-8,
2589 3.826e-8, 4.001e-8, 4.211e-8, 4.315e-8, 4.661e-8, 5.01e-8,
2590 5.249e-8, 5.84e-8, 6.628e-8, 7.512e-8, 8.253e-8, 9.722e-8,
2591 1.067e-7, 1.153e-7, 1.347e-7, 1.428e-7, 1.577e-7, 1.694e-7,
2592 1.833e-7, 1.938e-7, 2.108e-7, 2.059e-7, 2.157e-7, 2.185e-7,
2593 2.208e-7, 2.182e-7, 2.093e-7, 2.014e-7, 1.962e-7, 1.819e-7,
2594 1.713e-7, 1.51e-7, 1.34e-7, 1.154e-7, 9.89e-8, 8.88e-8, 7.673e-8,
2595 6.599e-8, 5.73e-8, 5.081e-8, 4.567e-8, 4.147e-8, 3.773e-8,
2596 3.46e-8, 3.194e-8, 2.953e-8, 2.759e-8, 2.594e-8, 2.442e-8,
2597 2.355e-8, 2.283e-8, 2.279e-8, 2.231e-8, 2.279e-8, 2.239e-8,
2598 2.21e-8, 2.309e-8, 2.293e-8, 2.352e-8, 2.415e-8, 2.43e-8,
2599 2.426e-8, 2.465e-8, 2.5e-8, 2.496e-8, 2.465e-8, 2.445e-8,
2600 2.383e-8, 2.299e-8, 2.165e-8, 2.113e-8, 1.968e-8, 1.819e-8,
2601 1.644e-8, 1.427e-8, 1.27e-8, 1.082e-8, 9.428e-9, 8.091e-9,
2602 6.958e-9, 5.988e-9, 5.246e-9, 4.601e-9, 4.098e-9, 3.664e-9,
2603 3.287e-9, 2.942e-9, 2.656e-9, 2.364e-9, 2.118e-9, 1.903e-9,
2604 1.703e-9, 1.525e-9, 1.365e-9, 1.229e-9, 1.107e-9, 9.96e-10,
2605 8.945e-10, 8.08e-10, 7.308e-10, 6.616e-10, 5.994e-10, 5.422e-10,
2606 4.929e-10, 4.478e-10, 4.07e-10, 3.707e-10, 3.379e-10, 3.087e-10,
2607 2.823e-10, 2.592e-10, 2.385e-10, 2.201e-10, 2.038e-10, 1.897e-10,
2608 1.774e-10, 1.667e-10, 1.577e-10, 1.502e-10, 1.437e-10, 1.394e-10,
2609 1.358e-10, 1.324e-10, 1.329e-10, 1.324e-10, 1.36e-10, 1.39e-10,
2610 1.424e-10, 1.544e-10, 1.651e-10, 1.817e-10, 1.984e-10, 2.195e-10,
2611 2.438e-10, 2.7e-10, 2.991e-10, 3.322e-10, 3.632e-10, 3.957e-10,
2612 4.36e-10, 4.701e-10, 5.03e-10, 5.381e-10, 5.793e-10, 6.19e-10,
2613 6.596e-10, 7.004e-10, 7.561e-10, 7.934e-10, 8.552e-10, 9.142e-10,
2614 9.57e-10, 1.027e-9, 1.097e-9, 1.193e-9, 1.334e-9, 1.47e-9,
2615 1.636e-9, 1.871e-9, 2.122e-9, 2.519e-9, 2.806e-9, 3.203e-9,
2616 3.846e-9, 4.362e-9, 5.114e-9, 5.643e-9, 6.305e-9, 6.981e-9,
2617 7.983e-9, 8.783e-9, 9.419e-9, 1.017e-8, 1.063e-8, 1.121e-8,
2618 1.13e-8, 1.201e-8, 1.225e-8, 1.232e-8, 1.223e-8, 1.177e-8,
2619 1.151e-8, 1.116e-8, 1.047e-8, 9.698e-9, 8.734e-9, 8.202e-9,
2620 7.041e-9, 6.074e-9, 5.172e-9, 4.468e-9, 3.913e-9, 3.414e-9,
2621 2.975e-9, 2.65e-9, 2.406e-9, 2.173e-9, 2.009e-9, 1.861e-9,
2622 1.727e-9, 1.612e-9, 1.514e-9, 1.43e-9, 1.362e-9, 1.333e-9,
2623 1.288e-9, 1.249e-9, 1.238e-9, 1.228e-9, 1.217e-9, 1.202e-9,
2624 1.209e-9, 1.177e-9, 1.157e-9, 1.165e-9, 1.142e-9, 1.131e-9,
2625 1.138e-9, 1.117e-9, 1.1e-9, 1.069e-9, 1.023e-9, 1.005e-9,
2626 9.159e-10, 8.863e-10, 7.865e-10, 7.153e-10, 6.247e-10, 5.846e-10,
2627 5.133e-10, 4.36e-10, 3.789e-10, 3.335e-10, 2.833e-10, 2.483e-10,
2628 2.155e-10, 1.918e-10, 1.709e-10, 1.529e-10, 1.374e-10, 1.235e-10,
2629 1.108e-10, 9.933e-11, 8.932e-11, 8.022e-11, 7.224e-11, 6.52e-11,
2630 5.896e-11, 5.328e-11, 4.813e-11, 4.365e-11, 3.961e-11, 3.594e-11,
2631 3.266e-11, 2.967e-11, 2.701e-11, 2.464e-11, 2.248e-11, 2.054e-11,
2632 1.878e-11, 1.721e-11, 1.579e-11, 1.453e-11, 1.341e-11, 1.241e-11,
2633 1.154e-11, 1.078e-11, 1.014e-11, 9.601e-12, 9.167e-12, 8.838e-12,
2634 8.614e-12, 8.493e-12, 8.481e-12, 8.581e-12, 8.795e-12, 9.131e-12,
2635 9.601e-12, 1.021e-11, 1.097e-11, 1.191e-11, 1.303e-11, 1.439e-11,
2636 1.601e-11, 1.778e-11, 1.984e-11, 2.234e-11, 2.474e-11, 2.766e-11,
2637 3.085e-11, 3.415e-11, 3.821e-11, 4.261e-11, 4.748e-11, 5.323e-11,
2638 5.935e-11, 6.619e-11, 7.418e-11, 8.294e-11, 9.26e-11, 1.039e-10,
2639 1.156e-10, 1.297e-10, 1.46e-10, 1.641e-10, 1.858e-10, 2.1e-10,
2640 2.383e-10, 2.724e-10, 3.116e-10, 3.538e-10, 4.173e-10, 4.727e-10,
2641 5.503e-10, 6.337e-10, 7.32e-10, 8.298e-10, 9.328e-10, 1.059e-9,
2642 1.176e-9, 1.328e-9, 1.445e-9, 1.593e-9, 1.77e-9, 1.954e-9,
2643 2.175e-9, 2.405e-9, 2.622e-9, 2.906e-9, 3.294e-9, 3.713e-9,
2644 3.98e-9, 4.384e-9, 4.987e-9, 5.311e-9, 5.874e-9, 6.337e-9,
2645 7.027e-9, 7.39e-9, 7.769e-9, 8.374e-9, 8.605e-9, 9.165e-9,
2646 9.415e-9, 9.511e-9, 9.704e-9, 9.588e-9, 9.45e-9, 9.086e-9,
2647 8.798e-9, 8.469e-9, 7.697e-9, 7.168e-9, 6.255e-9, 5.772e-9,
2648 4.97e-9, 4.271e-9, 3.653e-9, 3.154e-9, 2.742e-9, 2.435e-9,
2649 2.166e-9, 1.936e-9, 1.731e-9, 1.556e-9, 1.399e-9, 1.272e-9,
2650 1.157e-9, 1.066e-9, 9.844e-10, 9.258e-10, 8.787e-10, 8.421e-10,
2651 8.083e-10, 8.046e-10, 8.067e-10, 8.181e-10, 8.325e-10, 8.517e-10,
2652 9.151e-10, 9.351e-10, 9.677e-10, 1.071e-9, 1.126e-9, 1.219e-9,
2653 1.297e-9, 1.408e-9, 1.476e-9, 1.517e-9, 1.6e-9, 1.649e-9,
2654 1.678e-9, 1.746e-9, 1.742e-9, 1.728e-9, 1.699e-9, 1.655e-9,
2655 1.561e-9, 1.48e-9, 1.451e-9, 1.411e-9, 1.171e-9, 1.106e-9,
2656 9.714e-10, 8.523e-10, 7.346e-10, 6.241e-10, 5.371e-10, 4.704e-10,
2657 4.144e-10, 3.683e-10, 3.292e-10, 2.942e-10, 2.62e-10, 2.341e-10,
2658 2.104e-10, 1.884e-10, 1.7e-10, 1.546e-10, 1.394e-10, 1.265e-10,
2659 1.14e-10, 1.019e-10, 9.279e-11, 8.283e-11, 7.458e-11, 6.668e-11,
2660 5.976e-11, 5.33e-11, 4.794e-11, 4.289e-11, 3.841e-11, 3.467e-11,
2661 3.13e-11, 2.832e-11, 2.582e-11, 2.356e-11, 2.152e-11, 1.97e-11,
2662 1.808e-11, 1.664e-11, 1.539e-11, 1.434e-11, 1.344e-11, 1.269e-11,
2663 1.209e-11, 1.162e-11, 1.129e-11, 1.108e-11, 1.099e-11, 1.103e-11,
2664 1.119e-11, 1.148e-11, 1.193e-11, 1.252e-11, 1.329e-11, 1.421e-11,
2665 1.555e-11, 1.685e-11, 1.839e-11, 2.054e-11, 2.317e-11, 2.571e-11,
2666 2.839e-11, 3.171e-11, 3.49e-11, 3.886e-11, 4.287e-11, 4.645e-11,
2667 5.047e-11, 5.592e-11, 6.109e-11, 6.628e-11, 7.381e-11, 8.088e-11,
2668 8.966e-11, 1.045e-10, 1.12e-10, 1.287e-10, 1.486e-10, 1.662e-10,
2669 1.866e-10, 2.133e-10, 2.524e-10, 2.776e-10, 3.204e-10, 3.559e-10,
2670 4.028e-10, 4.448e-10, 4.882e-10, 5.244e-10, 5.605e-10, 6.018e-10,
2671 6.328e-10, 6.579e-10, 6.541e-10, 7.024e-10, 7.074e-10, 7.068e-10,
2672 7.009e-10, 6.698e-10, 6.545e-10, 6.209e-10, 5.834e-10, 5.412e-10,
2673 5.001e-10, 4.231e-10, 3.727e-10, 3.211e-10, 2.833e-10, 2.447e-10,
2674 2.097e-10, 1.843e-10, 1.639e-10, 1.449e-10, 1.27e-10, 1.161e-10,
2675 1.033e-10, 9.282e-11, 8.407e-11, 7.639e-11, 7.023e-11, 6.474e-11,
2676 6.142e-11, 5.76e-11, 5.568e-11, 5.472e-11, 5.39e-11, 5.455e-11,
2677 5.54e-11, 5.587e-11, 6.23e-11, 6.49e-11, 6.868e-11, 7.382e-11,
2678 8.022e-11, 8.372e-11, 9.243e-11, 1.004e-10, 1.062e-10, 1.13e-10,
2679 1.176e-10, 1.244e-10, 1.279e-10, 1.298e-10, 1.302e-10, 1.312e-10,
2680 1.295e-10, 1.244e-10, 1.211e-10, 1.167e-10, 1.098e-10, 9.927e-11,
2681 8.854e-11, 8.011e-11, 7.182e-11, 5.923e-11, 5.212e-11, 4.453e-11,
2682 3.832e-11, 3.371e-11, 2.987e-11, 2.651e-11, 2.354e-11, 2.093e-11,
2683 1.863e-11, 1.662e-11, 1.486e-11, 1.331e-11, 1.193e-11, 1.071e-11,
2684 9.628e-12, 8.66e-12, 7.801e-12, 7.031e-12, 6.347e-12, 5.733e-12,
2685 5.182e-12, 4.695e-12, 4.26e-12, 3.874e-12, 3.533e-12, 3.235e-12,
2686 2.979e-12, 2.76e-12, 2.579e-12, 2.432e-12, 2.321e-12, 2.246e-12,
2687 2.205e-12, 2.196e-12, 2.223e-12, 2.288e-12, 2.387e-12, 2.525e-12,
2688 2.704e-12, 2.925e-12, 3.191e-12, 3.508e-12, 3.876e-12, 4.303e-12,
2689 4.793e-12, 5.347e-12, 5.978e-12, 6.682e-12, 7.467e-12, 8.34e-12,
2690 9.293e-12, 1.035e-11, 1.152e-11, 1.285e-11, 1.428e-11, 1.586e-11,
2691 1.764e-11, 1.972e-11, 2.214e-11, 2.478e-11, 2.776e-11, 3.151e-11,
2692 3.591e-11, 4.103e-11, 4.66e-11, 5.395e-11, 6.306e-11, 7.172e-11,
2693 8.358e-11, 9.67e-11, 1.11e-10, 1.325e-10, 1.494e-10, 1.736e-10,
2694 2.007e-10, 2.296e-10, 2.608e-10, 3.004e-10, 3.361e-10, 3.727e-10,
2695 4.373e-10, 4.838e-10, 5.483e-10, 6.006e-10, 6.535e-10, 6.899e-10,
2696 7.687e-10, 8.444e-10, 8.798e-10, 9.135e-10, 9.532e-10, 9.757e-10,
2697 9.968e-10, 1.006e-9, 9.949e-10, 9.789e-10, 9.564e-10, 9.215e-10,
2698 8.51e-10, 8.394e-10, 7.707e-10, 7.152e-10, 6.274e-10, 5.598e-10,
2699 5.028e-10, 4.3e-10, 3.71e-10, 3.245e-10, 2.809e-10, 2.461e-10,
2700 2.154e-10, 1.91e-10, 1.685e-10, 1.487e-10, 1.313e-10, 1.163e-10,
2701 1.031e-10, 9.172e-11, 8.221e-11, 7.382e-11, 6.693e-11, 6.079e-11,
2702 5.581e-11, 5.167e-11, 4.811e-11, 4.506e-11, 4.255e-11, 4.083e-11,
2703 3.949e-11, 3.881e-11, 3.861e-11, 3.858e-11, 3.951e-11, 4.045e-11,
2704 4.24e-11, 4.487e-11, 4.806e-11, 5.133e-11, 5.518e-11, 5.919e-11,
2705 6.533e-11, 7.031e-11, 7.762e-11, 8.305e-11, 9.252e-11, 9.727e-11,
2706 1.045e-10, 1.117e-10, 1.2e-10, 1.275e-10, 1.341e-10, 1.362e-10,
2707 1.438e-10, 1.45e-10, 1.455e-10, 1.455e-10, 1.434e-10, 1.381e-10,
2708 1.301e-10, 1.276e-10, 1.163e-10, 1.089e-10, 9.911e-11, 8.943e-11,
2709 7.618e-11, 6.424e-11, 5.717e-11, 4.866e-11, 4.257e-11, 3.773e-11,
2710 3.331e-11, 2.958e-11, 2.629e-11, 2.316e-11, 2.073e-11, 1.841e-11,
2711 1.635e-11, 1.464e-11, 1.31e-11, 1.16e-11, 1.047e-11, 9.408e-12,
2712 8.414e-12, 7.521e-12, 6.705e-12, 5.993e-12, 5.371e-12, 4.815e-12,
2713 4.338e-12, 3.921e-12, 3.567e-12, 3.265e-12, 3.01e-12, 2.795e-12,
2714 2.613e-12, 2.464e-12, 2.346e-12, 2.256e-12, 2.195e-12, 2.165e-12,
2715 2.166e-12, 2.198e-12, 2.262e-12, 2.364e-12, 2.502e-12, 2.682e-12,
2716 2.908e-12, 3.187e-12, 3.533e-12, 3.946e-12, 4.418e-12, 5.013e-12,
2717 5.708e-12, 6.379e-12, 7.43e-12, 8.39e-12, 9.51e-12, 1.078e-11,
2718 1.259e-11, 1.438e-11, 1.63e-11, 1.814e-11, 2.055e-11, 2.348e-11,
2719 2.664e-11, 2.956e-11, 3.3e-11, 3.677e-11, 4.032e-11, 4.494e-11,
2720 4.951e-11, 5.452e-11, 6.014e-11, 6.5e-11, 6.915e-11, 7.45e-11,
2721 7.971e-11, 8.468e-11, 8.726e-11, 8.995e-11, 9.182e-11, 9.509e-11,
2722 9.333e-11, 9.386e-11, 9.457e-11, 9.21e-11, 9.019e-11, 8.68e-11,
2723 8.298e-11, 7.947e-11, 7.46e-11, 7.082e-11, 6.132e-11, 5.855e-11,
2724 5.073e-11, 4.464e-11, 3.825e-11, 3.375e-11, 2.911e-11, 2.535e-11,
2725 2.16e-11, 1.907e-11, 1.665e-11, 1.463e-11, 1.291e-11, 1.133e-11,
2726 9.997e-12, 8.836e-12, 7.839e-12, 6.943e-12, 6.254e-12, 5.6e-12,
2727 5.029e-12, 4.529e-12, 4.102e-12, 3.737e-12, 3.428e-12, 3.169e-12,
2728 2.959e-12, 2.798e-12, 2.675e-12, 2.582e-12, 2.644e-12, 2.557e-12,
2729 2.614e-12, 2.717e-12, 2.874e-12, 3.056e-12, 3.187e-12, 3.631e-12,
2730 3.979e-12, 4.248e-12, 4.817e-12, 5.266e-12, 5.836e-12, 6.365e-12,
2731 6.807e-12, 7.47e-12, 7.951e-12, 8.636e-12, 8.972e-12, 9.314e-12,
2732 9.445e-12, 1.003e-11, 1.013e-11, 9.937e-12, 9.729e-12, 9.064e-12,
2733 9.119e-12, 9.124e-12, 8.704e-12, 8.078e-12, 7.47e-12, 6.329e-12,
2734 5.674e-12, 4.808e-12, 4.119e-12, 3.554e-12, 3.103e-12, 2.731e-12,
2735 2.415e-12, 2.15e-12, 1.926e-12, 1.737e-12, 1.578e-12, 1.447e-12,
2736 1.34e-12, 1.255e-12, 1.191e-12, 1.146e-12, 1.121e-12, 1.114e-12,
2737 1.126e-12, 1.156e-12, 1.207e-12, 1.278e-12, 1.372e-12, 1.49e-12,
2738 1.633e-12, 1.805e-12, 2.01e-12, 2.249e-12, 2.528e-12, 2.852e-12,
2739 3.228e-12, 3.658e-12, 4.153e-12, 4.728e-12, 5.394e-12, 6.176e-12,
2740 7.126e-12, 8.188e-12, 9.328e-12, 1.103e-11, 1.276e-11, 1.417e-11,
2741 1.615e-11, 1.84e-11, 2.155e-11, 2.429e-11, 2.826e-11, 3.222e-11,
2742 3.664e-11, 4.14e-11, 4.906e-11, 5.536e-11, 6.327e-11, 7.088e-11,
2743 8.316e-11, 9.242e-11, 1.07e-10, 1.223e-10, 1.341e-10, 1.553e-10,
2744 1.703e-10, 1.9e-10, 2.022e-10, 2.233e-10, 2.345e-10, 2.438e-10,
2745 2.546e-10, 2.599e-10, 2.661e-10, 2.703e-10, 2.686e-10, 2.662e-10,
2746 2.56e-10, 2.552e-10, 2.378e-10, 2.252e-10, 2.146e-10, 1.885e-10,
2747 1.668e-10, 1.441e-10, 1.295e-10, 1.119e-10, 9.893e-11, 8.687e-11,
2748 7.678e-11, 6.685e-11, 5.879e-11, 5.127e-11, 4.505e-11, 3.997e-11,
2749 3.511e-11
2750 };
2751
2752 static const double h2ofrn[2001] = { .01095, .01126, .01205, .01322, .0143,
2753 .01506, .01548, .01534, .01486, .01373, .01262, .01134, .01001,
2754 .008702, .007475, .006481, .00548, .0046, .003833, .00311,
2755 .002543, .002049, .00168, .001374, .001046, 8.193e-4, 6.267e-4,
2756 4.968e-4, 3.924e-4, 2.983e-4, 2.477e-4, 1.997e-4, 1.596e-4,
2757 1.331e-4, 1.061e-4, 8.942e-5, 7.168e-5, 5.887e-5, 4.848e-5,
2758 3.817e-5, 3.17e-5, 2.579e-5, 2.162e-5, 1.768e-5, 1.49e-5,
2759 1.231e-5, 1.013e-5, 8.555e-6, 7.328e-6, 6.148e-6, 5.207e-6,
2760 4.387e-6, 3.741e-6, 3.22e-6, 2.753e-6, 2.346e-6, 1.985e-6,
2761 1.716e-6, 1.475e-6, 1.286e-6, 1.122e-6, 9.661e-7, 8.284e-7,
2762 7.057e-7, 6.119e-7, 5.29e-7, 4.571e-7, 3.948e-7, 3.432e-7,
2763 2.983e-7, 2.589e-7, 2.265e-7, 1.976e-7, 1.704e-7, 1.456e-7,
2764 1.26e-7, 1.101e-7, 9.648e-8, 8.415e-8, 7.34e-8, 6.441e-8,
2765 5.643e-8, 4.94e-8, 4.276e-8, 3.703e-8, 3.227e-8, 2.825e-8,
2766 2.478e-8, 2.174e-8, 1.898e-8, 1.664e-8, 1.458e-8, 1.278e-8,
2767 1.126e-8, 9.891e-9, 8.709e-9, 7.652e-9, 6.759e-9, 5.975e-9,
2768 5.31e-9, 4.728e-9, 4.214e-9, 3.792e-9, 3.463e-9, 3.226e-9,
2769 2.992e-9, 2.813e-9, 2.749e-9, 2.809e-9, 2.913e-9, 3.037e-9,
2770 3.413e-9, 3.738e-9, 4.189e-9, 4.808e-9, 5.978e-9, 7.088e-9,
2771 8.071e-9, 9.61e-9, 1.21e-8, 1.5e-8, 1.764e-8, 2.221e-8, 2.898e-8,
2772 3.948e-8, 5.068e-8, 6.227e-8, 7.898e-8, 1.033e-7, 1.437e-7,
2773 1.889e-7, 2.589e-7, 3.59e-7, 4.971e-7, 7.156e-7, 9.983e-7,
2774 1.381e-6, 1.929e-6, 2.591e-6, 3.453e-6, 4.57e-6, 5.93e-6,
2775 7.552e-6, 9.556e-6, 1.183e-5, 1.425e-5, 1.681e-5, 1.978e-5,
2776 2.335e-5, 2.668e-5, 3.022e-5, 3.371e-5, 3.715e-5, 3.967e-5,
2777 4.06e-5, 4.01e-5, 3.809e-5, 3.491e-5, 3.155e-5, 2.848e-5,
2778 2.678e-5, 2.66e-5, 2.811e-5, 3.071e-5, 3.294e-5, 3.459e-5,
2779 3.569e-5, 3.56e-5, 3.434e-5, 3.186e-5, 2.916e-5, 2.622e-5,
2780 2.275e-5, 1.918e-5, 1.62e-5, 1.373e-5, 1.182e-5, 1.006e-5,
2781 8.556e-6, 7.26e-6, 6.107e-6, 5.034e-6, 4.211e-6, 3.426e-6,
2782 2.865e-6, 2.446e-6, 1.998e-6, 1.628e-6, 1.242e-6, 1.005e-6,
2783 7.853e-7, 6.21e-7, 5.071e-7, 4.156e-7, 3.548e-7, 2.825e-7,
2784 2.261e-7, 1.916e-7, 1.51e-7, 1.279e-7, 1.059e-7, 9.14e-8,
2785 7.707e-8, 6.17e-8, 5.311e-8, 4.263e-8, 3.518e-8, 2.961e-8,
2786 2.457e-8, 2.119e-8, 1.712e-8, 1.439e-8, 1.201e-8, 1.003e-8,
2787 8.564e-9, 7.199e-9, 6.184e-9, 5.206e-9, 4.376e-9, 3.708e-9,
2788 3.157e-9, 2.725e-9, 2.361e-9, 2.074e-9, 1.797e-9, 1.562e-9,
2789 1.364e-9, 1.196e-9, 1.042e-9, 8.862e-10, 7.648e-10, 6.544e-10,
2790 5.609e-10, 4.791e-10, 4.108e-10, 3.531e-10, 3.038e-10, 2.618e-10,
2791 2.268e-10, 1.969e-10, 1.715e-10, 1.496e-10, 1.308e-10, 1.147e-10,
2792 1.008e-10, 8.894e-11, 7.885e-11, 7.031e-11, 6.355e-11, 5.854e-11,
2793 5.534e-11, 5.466e-11, 5.725e-11, 6.447e-11, 7.943e-11, 1.038e-10,
2794 1.437e-10, 2.04e-10, 2.901e-10, 4.051e-10, 5.556e-10, 7.314e-10,
2795 9.291e-10, 1.134e-9, 1.321e-9, 1.482e-9, 1.596e-9, 1.669e-9,
2796 1.715e-9, 1.762e-9, 1.817e-9, 1.828e-9, 1.848e-9, 1.873e-9,
2797 1.902e-9, 1.894e-9, 1.864e-9, 1.841e-9, 1.797e-9, 1.704e-9,
2798 1.559e-9, 1.382e-9, 1.187e-9, 1.001e-9, 8.468e-10, 7.265e-10,
2799 6.521e-10, 6.381e-10, 6.66e-10, 7.637e-10, 9.705e-10, 1.368e-9,
2800 1.856e-9, 2.656e-9, 3.954e-9, 5.96e-9, 8.72e-9, 1.247e-8,
2801 1.781e-8, 2.491e-8, 3.311e-8, 4.272e-8, 5.205e-8, 6.268e-8,
2802 7.337e-8, 8.277e-8, 9.185e-8, 1.004e-7, 1.091e-7, 1.159e-7,
2803 1.188e-7, 1.175e-7, 1.124e-7, 1.033e-7, 9.381e-8, 8.501e-8,
2804 7.956e-8, 7.894e-8, 8.331e-8, 9.102e-8, 9.836e-8, 1.035e-7,
2805 1.064e-7, 1.06e-7, 1.032e-7, 9.808e-8, 9.139e-8, 8.442e-8,
2806 7.641e-8, 6.881e-8, 6.161e-8, 5.404e-8, 4.804e-8, 4.446e-8,
2807 4.328e-8, 4.259e-8, 4.421e-8, 4.673e-8, 4.985e-8, 5.335e-8,
2808 5.796e-8, 6.542e-8, 7.714e-8, 8.827e-8, 1.04e-7, 1.238e-7,
2809 1.499e-7, 1.829e-7, 2.222e-7, 2.689e-7, 3.303e-7, 3.981e-7,
2810 4.84e-7, 5.91e-7, 7.363e-7, 9.087e-7, 1.139e-6, 1.455e-6,
2811 1.866e-6, 2.44e-6, 3.115e-6, 3.941e-6, 4.891e-6, 5.992e-6,
2812 7.111e-6, 8.296e-6, 9.21e-6, 9.987e-6, 1.044e-5, 1.073e-5,
2813 1.092e-5, 1.106e-5, 1.138e-5, 1.171e-5, 1.186e-5, 1.186e-5,
2814 1.179e-5, 1.166e-5, 1.151e-5, 1.16e-5, 1.197e-5, 1.241e-5,
2815 1.268e-5, 1.26e-5, 1.184e-5, 1.063e-5, 9.204e-6, 7.584e-6,
2816 6.053e-6, 4.482e-6, 3.252e-6, 2.337e-6, 1.662e-6, 1.18e-6,
2817 8.15e-7, 5.95e-7, 4.354e-7, 3.302e-7, 2.494e-7, 1.93e-7,
2818 1.545e-7, 1.25e-7, 1.039e-7, 8.602e-8, 7.127e-8, 5.897e-8,
2819 4.838e-8, 4.018e-8, 3.28e-8, 2.72e-8, 2.307e-8, 1.972e-8,
2820 1.654e-8, 1.421e-8, 1.174e-8, 1.004e-8, 8.739e-9, 7.358e-9,
2821 6.242e-9, 5.303e-9, 4.567e-9, 3.94e-9, 3.375e-9, 2.864e-9,
2822 2.422e-9, 2.057e-9, 1.75e-9, 1.505e-9, 1.294e-9, 1.101e-9,
2823 9.401e-10, 8.018e-10, 6.903e-10, 5.965e-10, 5.087e-10, 4.364e-10,
2824 3.759e-10, 3.247e-10, 2.809e-10, 2.438e-10, 2.123e-10, 1.853e-10,
2825 1.622e-10, 1.426e-10, 1.26e-10, 1.125e-10, 1.022e-10, 9.582e-11,
2826 9.388e-11, 9.801e-11, 1.08e-10, 1.276e-10, 1.551e-10, 1.903e-10,
2827 2.291e-10, 2.724e-10, 3.117e-10, 3.4e-10, 3.562e-10, 3.625e-10,
2828 3.619e-10, 3.429e-10, 3.221e-10, 2.943e-10, 2.645e-10, 2.338e-10,
2829 2.062e-10, 1.901e-10, 1.814e-10, 1.827e-10, 1.906e-10, 1.984e-10,
2830 2.04e-10, 2.068e-10, 2.075e-10, 2.018e-10, 1.959e-10, 1.897e-10,
2831 1.852e-10, 1.791e-10, 1.696e-10, 1.634e-10, 1.598e-10, 1.561e-10,
2832 1.518e-10, 1.443e-10, 1.377e-10, 1.346e-10, 1.342e-10, 1.375e-10,
2833 1.525e-10, 1.767e-10, 2.108e-10, 2.524e-10, 2.981e-10, 3.477e-10,
2834 4.262e-10, 5.326e-10, 6.646e-10, 8.321e-10, 1.069e-9, 1.386e-9,
2835 1.743e-9, 2.216e-9, 2.808e-9, 3.585e-9, 4.552e-9, 5.907e-9,
2836 7.611e-9, 9.774e-9, 1.255e-8, 1.666e-8, 2.279e-8, 3.221e-8,
2837 4.531e-8, 6.4e-8, 9.187e-8, 1.295e-7, 1.825e-7, 2.431e-7,
2838 3.181e-7, 4.009e-7, 4.941e-7, 5.88e-7, 6.623e-7, 7.155e-7,
2839 7.451e-7, 7.594e-7, 7.541e-7, 7.467e-7, 7.527e-7, 7.935e-7,
2840 8.461e-7, 8.954e-7, 9.364e-7, 9.843e-7, 1.024e-6, 1.05e-6,
2841 1.059e-6, 1.074e-6, 1.072e-6, 1.043e-6, 9.789e-7, 8.803e-7,
2842 7.662e-7, 6.378e-7, 5.133e-7, 3.958e-7, 2.914e-7, 2.144e-7,
2843 1.57e-7, 1.14e-7, 8.47e-8, 6.2e-8, 4.657e-8, 3.559e-8, 2.813e-8,
2844 2.222e-8, 1.769e-8, 1.391e-8, 1.125e-8, 9.186e-9, 7.704e-9,
2845 6.447e-9, 5.381e-9, 4.442e-9, 3.669e-9, 3.057e-9, 2.564e-9,
2846 2.153e-9, 1.784e-9, 1.499e-9, 1.281e-9, 1.082e-9, 9.304e-10,
2847 8.169e-10, 6.856e-10, 5.866e-10, 5.043e-10, 4.336e-10, 3.731e-10,
2848 3.175e-10, 2.745e-10, 2.374e-10, 2.007e-10, 1.737e-10, 1.508e-10,
2849 1.302e-10, 1.13e-10, 9.672e-11, 8.375e-11, 7.265e-11, 6.244e-11,
2850 5.343e-11, 4.654e-11, 3.975e-11, 3.488e-11, 3.097e-11, 2.834e-11,
2851 2.649e-11, 2.519e-11, 2.462e-11, 2.443e-11, 2.44e-11, 2.398e-11,
2852 2.306e-11, 2.183e-11, 2.021e-11, 1.821e-11, 1.599e-11, 1.403e-11,
2853 1.196e-11, 1.023e-11, 8.728e-12, 7.606e-12, 6.941e-12, 6.545e-12,
2854 6.484e-12, 6.6e-12, 6.718e-12, 6.785e-12, 6.746e-12, 6.724e-12,
2855 6.764e-12, 6.995e-12, 7.144e-12, 7.32e-12, 7.33e-12, 7.208e-12,
2856 6.789e-12, 6.09e-12, 5.337e-12, 4.62e-12, 4.037e-12, 3.574e-12,
2857 3.311e-12, 3.346e-12, 3.566e-12, 3.836e-12, 4.076e-12, 4.351e-12,
2858 4.691e-12, 5.114e-12, 5.427e-12, 6.167e-12, 7.436e-12, 8.842e-12,
2859 1.038e-11, 1.249e-11, 1.54e-11, 1.915e-11, 2.48e-11, 3.256e-11,
2860 4.339e-11, 5.611e-11, 7.519e-11, 1.037e-10, 1.409e-10, 1.883e-10,
2861 2.503e-10, 3.38e-10, 4.468e-10, 5.801e-10, 7.335e-10, 8.98e-10,
2862 1.11e-9, 1.363e-9, 1.677e-9, 2.104e-9, 2.681e-9, 3.531e-9,
2863 4.621e-9, 6.106e-9, 8.154e-9, 1.046e-8, 1.312e-8, 1.607e-8,
2864 1.948e-8, 2.266e-8, 2.495e-8, 2.655e-8, 2.739e-8, 2.739e-8,
2865 2.662e-8, 2.589e-8, 2.59e-8, 2.664e-8, 2.833e-8, 3.023e-8,
2866 3.305e-8, 3.558e-8, 3.793e-8, 3.961e-8, 4.056e-8, 4.102e-8,
2867 4.025e-8, 3.917e-8, 3.706e-8, 3.493e-8, 3.249e-8, 3.096e-8,
2868 3.011e-8, 3.111e-8, 3.395e-8, 3.958e-8, 4.875e-8, 6.066e-8,
2869 7.915e-8, 1.011e-7, 1.3e-7, 1.622e-7, 2.003e-7, 2.448e-7,
2870 2.863e-7, 3.317e-7, 3.655e-7, 3.96e-7, 4.098e-7, 4.168e-7,
2871 4.198e-7, 4.207e-7, 4.289e-7, 4.384e-7, 4.471e-7, 4.524e-7,
2872 4.574e-7, 4.633e-7, 4.785e-7, 5.028e-7, 5.371e-7, 5.727e-7,
2873 5.955e-7, 5.998e-7, 5.669e-7, 5.082e-7, 4.397e-7, 3.596e-7,
2874 2.814e-7, 2.074e-7, 1.486e-7, 1.057e-7, 7.25e-8, 4.946e-8,
2875 3.43e-8, 2.447e-8, 1.793e-8, 1.375e-8, 1.096e-8, 9.091e-9,
2876 7.709e-9, 6.631e-9, 5.714e-9, 4.886e-9, 4.205e-9, 3.575e-9,
2877 3.07e-9, 2.631e-9, 2.284e-9, 2.002e-9, 1.745e-9, 1.509e-9,
2878 1.284e-9, 1.084e-9, 9.163e-10, 7.663e-10, 6.346e-10, 5.283e-10,
2879 4.354e-10, 3.59e-10, 2.982e-10, 2.455e-10, 2.033e-10, 1.696e-10,
2880 1.432e-10, 1.211e-10, 1.02e-10, 8.702e-11, 7.38e-11, 6.293e-11,
2881 5.343e-11, 4.532e-11, 3.907e-11, 3.365e-11, 2.945e-11, 2.558e-11,
2882 2.192e-11, 1.895e-11, 1.636e-11, 1.42e-11, 1.228e-11, 1.063e-11,
2883 9.348e-12, 8.2e-12, 7.231e-12, 6.43e-12, 5.702e-12, 5.052e-12,
2884 4.469e-12, 4e-12, 3.679e-12, 3.387e-12, 3.197e-12, 3.158e-12,
2885 3.327e-12, 3.675e-12, 4.292e-12, 5.437e-12, 7.197e-12, 1.008e-11,
2886 1.437e-11, 2.035e-11, 2.905e-11, 4.062e-11, 5.528e-11, 7.177e-11,
2887 9.064e-11, 1.109e-10, 1.297e-10, 1.473e-10, 1.652e-10, 1.851e-10,
2888 2.079e-10, 2.313e-10, 2.619e-10, 2.958e-10, 3.352e-10, 3.796e-10,
2889 4.295e-10, 4.923e-10, 5.49e-10, 5.998e-10, 6.388e-10, 6.645e-10,
2890 6.712e-10, 6.549e-10, 6.38e-10, 6.255e-10, 6.253e-10, 6.459e-10,
2891 6.977e-10, 7.59e-10, 8.242e-10, 8.92e-10, 9.403e-10, 9.701e-10,
2892 9.483e-10, 9.135e-10, 8.617e-10, 7.921e-10, 7.168e-10, 6.382e-10,
2893 5.677e-10, 5.045e-10, 4.572e-10, 4.312e-10, 4.145e-10, 4.192e-10,
2894 4.541e-10, 5.368e-10, 6.771e-10, 8.962e-10, 1.21e-9, 1.659e-9,
2895 2.33e-9, 3.249e-9, 4.495e-9, 5.923e-9, 7.642e-9, 9.607e-9,
2896 1.178e-8, 1.399e-8, 1.584e-8, 1.73e-8, 1.816e-8, 1.87e-8,
2897 1.868e-8, 1.87e-8, 1.884e-8, 1.99e-8, 2.15e-8, 2.258e-8,
2898 2.364e-8, 2.473e-8, 2.602e-8, 2.689e-8, 2.731e-8, 2.816e-8,
2899 2.859e-8, 2.839e-8, 2.703e-8, 2.451e-8, 2.149e-8, 1.787e-8,
2900 1.449e-8, 1.111e-8, 8.282e-9, 6.121e-9, 4.494e-9, 3.367e-9,
2901 2.487e-9, 1.885e-9, 1.503e-9, 1.249e-9, 1.074e-9, 9.427e-10,
2902 8.439e-10, 7.563e-10, 6.772e-10, 6.002e-10, 5.254e-10, 4.588e-10,
2903 3.977e-10, 3.449e-10, 3.003e-10, 2.624e-10, 2.335e-10, 2.04e-10,
2904 1.771e-10, 1.534e-10, 1.296e-10, 1.097e-10, 9.173e-11, 7.73e-11,
2905 6.547e-11, 5.191e-11, 4.198e-11, 3.361e-11, 2.732e-11, 2.244e-11,
2906 1.791e-11, 1.509e-11, 1.243e-11, 1.035e-11, 8.969e-12, 7.394e-12,
2907 6.323e-12, 5.282e-12, 4.543e-12, 3.752e-12, 3.14e-12, 2.6e-12,
2908 2.194e-12, 1.825e-12, 1.511e-12, 1.245e-12, 1.024e-12, 8.539e-13,
2909 7.227e-13, 6.102e-13, 5.189e-13, 4.43e-13, 3.774e-13, 3.236e-13,
2910 2.8e-13, 2.444e-13, 2.156e-13, 1.932e-13, 1.775e-13, 1.695e-13,
2911 1.672e-13, 1.704e-13, 1.825e-13, 2.087e-13, 2.614e-13, 3.377e-13,
2912 4.817e-13, 6.989e-13, 1.062e-12, 1.562e-12, 2.288e-12, 3.295e-12,
2913 4.55e-12, 5.965e-12, 7.546e-12, 9.395e-12, 1.103e-11, 1.228e-11,
2914 1.318e-11, 1.38e-11, 1.421e-11, 1.39e-11, 1.358e-11, 1.336e-11,
2915 1.342e-11, 1.356e-11, 1.424e-11, 1.552e-11, 1.73e-11, 1.951e-11,
2916 2.128e-11, 2.249e-11, 2.277e-11, 2.226e-11, 2.111e-11, 1.922e-11,
2917 1.775e-11, 1.661e-11, 1.547e-11, 1.446e-11, 1.323e-11, 1.21e-11,
2918 1.054e-11, 9.283e-12, 8.671e-12, 8.67e-12, 9.429e-12, 1.062e-11,
2919 1.255e-11, 1.506e-11, 1.818e-11, 2.26e-11, 2.831e-11, 3.723e-11,
2920 5.092e-11, 6.968e-11, 9.826e-11, 1.349e-10, 1.87e-10, 2.58e-10,
2921 3.43e-10, 4.424e-10, 5.521e-10, 6.812e-10, 8.064e-10, 9.109e-10,
2922 9.839e-10, 1.028e-9, 1.044e-9, 1.029e-9, 1.005e-9, 1.002e-9,
2923 1.038e-9, 1.122e-9, 1.233e-9, 1.372e-9, 1.524e-9, 1.665e-9,
2924 1.804e-9, 1.908e-9, 2.015e-9, 2.117e-9, 2.219e-9, 2.336e-9,
2925 2.531e-9, 2.805e-9, 3.189e-9, 3.617e-9, 4.208e-9, 4.911e-9,
2926 5.619e-9, 6.469e-9, 7.188e-9, 7.957e-9, 8.503e-9, 9.028e-9,
2927 9.571e-9, 9.99e-9, 1.055e-8, 1.102e-8, 1.132e-8, 1.141e-8,
2928 1.145e-8, 1.145e-8, 1.176e-8, 1.224e-8, 1.304e-8, 1.388e-8,
2929 1.445e-8, 1.453e-8, 1.368e-8, 1.22e-8, 1.042e-8, 8.404e-9,
2930 6.403e-9, 4.643e-9, 3.325e-9, 2.335e-9, 1.638e-9, 1.19e-9,
2931 9.161e-10, 7.412e-10, 6.226e-10, 5.516e-10, 5.068e-10, 4.831e-10,
2932 4.856e-10, 5.162e-10, 5.785e-10, 6.539e-10, 7.485e-10, 8.565e-10,
2933 9.534e-10, 1.052e-9, 1.115e-9, 1.173e-9, 1.203e-9, 1.224e-9,
2934 1.243e-9, 1.248e-9, 1.261e-9, 1.265e-9, 1.25e-9, 1.217e-9,
2935 1.176e-9, 1.145e-9, 1.153e-9, 1.199e-9, 1.278e-9, 1.366e-9,
2936 1.426e-9, 1.444e-9, 1.365e-9, 1.224e-9, 1.051e-9, 8.539e-10,
2937 6.564e-10, 4.751e-10, 3.404e-10, 2.377e-10, 1.631e-10, 1.114e-10,
2938 7.87e-11, 5.793e-11, 4.284e-11, 3.3e-11, 2.62e-11, 2.152e-11,
2939 1.777e-11, 1.496e-11, 1.242e-11, 1.037e-11, 8.725e-12, 7.004e-12,
2940 5.718e-12, 4.769e-12, 3.952e-12, 3.336e-12, 2.712e-12, 2.213e-12,
2941 1.803e-12, 1.492e-12, 1.236e-12, 1.006e-12, 8.384e-13, 7.063e-13,
2942 5.879e-13, 4.93e-13, 4.171e-13, 3.569e-13, 3.083e-13, 2.688e-13,
2943 2.333e-13, 2.035e-13, 1.82e-13, 1.682e-13, 1.635e-13, 1.674e-13,
2944 1.769e-13, 2.022e-13, 2.485e-13, 3.127e-13, 4.25e-13, 5.928e-13,
2945 8.514e-13, 1.236e-12, 1.701e-12, 2.392e-12, 3.231e-12, 4.35e-12,
2946 5.559e-12, 6.915e-12, 8.519e-12, 1.013e-11, 1.146e-11, 1.24e-11,
2947 1.305e-11, 1.333e-11, 1.318e-11, 1.263e-11, 1.238e-11, 1.244e-11,
2948 1.305e-11, 1.432e-11, 1.623e-11, 1.846e-11, 2.09e-11, 2.328e-11,
2949 2.526e-11, 2.637e-11, 2.702e-11, 2.794e-11, 2.889e-11, 2.989e-11,
2950 3.231e-11, 3.68e-11, 4.375e-11, 5.504e-11, 7.159e-11, 9.502e-11,
2951 1.279e-10, 1.645e-10, 2.098e-10, 2.618e-10, 3.189e-10, 3.79e-10,
2952 4.303e-10, 4.753e-10, 5.027e-10, 5.221e-10, 5.293e-10, 5.346e-10,
2953 5.467e-10, 5.796e-10, 6.2e-10, 6.454e-10, 6.705e-10, 6.925e-10,
2954 7.233e-10, 7.35e-10, 7.538e-10, 7.861e-10, 8.077e-10, 8.132e-10,
2955 7.749e-10, 7.036e-10, 6.143e-10, 5.093e-10, 4.089e-10, 3.092e-10,
2956 2.299e-10, 1.705e-10, 1.277e-10, 9.723e-11, 7.533e-11, 6.126e-11,
2957 5.154e-11, 4.428e-11, 3.913e-11, 3.521e-11, 3.297e-11, 3.275e-11,
2958 3.46e-11, 3.798e-11, 4.251e-11, 4.745e-11, 5.232e-11, 5.606e-11,
2959 5.82e-11, 5.88e-11, 5.79e-11, 5.661e-11, 5.491e-11, 5.366e-11,
2960 5.341e-11, 5.353e-11, 5.336e-11, 5.293e-11, 5.248e-11, 5.235e-11,
2961 5.208e-11, 5.322e-11, 5.521e-11, 5.725e-11, 5.827e-11, 5.685e-11,
2962 5.245e-11, 4.612e-11, 3.884e-11, 3.129e-11, 2.404e-11, 1.732e-11,
2963 1.223e-11, 8.574e-12, 5.888e-12, 3.986e-12, 2.732e-12, 1.948e-12,
2964 1.414e-12, 1.061e-12, 8.298e-13, 6.612e-13, 5.413e-13, 4.472e-13,
2965 3.772e-13, 3.181e-13, 2.645e-13, 2.171e-13, 1.778e-13, 1.464e-13,
2966 1.183e-13, 9.637e-14, 7.991e-14, 6.668e-14, 5.57e-14, 4.663e-14,
2967 3.848e-14, 3.233e-14, 2.706e-14, 2.284e-14, 1.944e-14, 1.664e-14,
2968 1.43e-14, 1.233e-14, 1.066e-14, 9.234e-15, 8.023e-15, 6.993e-15,
2969 6.119e-15, 5.384e-15, 4.774e-15, 4.283e-15, 3.916e-15, 3.695e-15,
2970 3.682e-15, 4.004e-15, 4.912e-15, 6.853e-15, 1.056e-14, 1.712e-14,
2971 2.804e-14, 4.516e-14, 7.113e-14, 1.084e-13, 1.426e-13, 1.734e-13,
2972 1.978e-13, 2.194e-13, 2.388e-13, 2.489e-13, 2.626e-13, 2.865e-13,
2973 3.105e-13, 3.387e-13, 3.652e-13, 3.984e-13, 4.398e-13, 4.906e-13,
2974 5.55e-13, 6.517e-13, 7.813e-13, 9.272e-13, 1.164e-12, 1.434e-12,
2975 1.849e-12, 2.524e-12, 3.328e-12, 4.523e-12, 6.108e-12, 8.207e-12,
2976 1.122e-11, 1.477e-11, 1.9e-11, 2.412e-11, 2.984e-11, 3.68e-11,
2977 4.353e-11, 4.963e-11, 5.478e-11, 5.903e-11, 6.233e-11, 6.483e-11,
2978 6.904e-11, 7.569e-11, 8.719e-11, 1.048e-10, 1.278e-10, 1.557e-10,
2979 1.869e-10, 2.218e-10, 2.61e-10, 2.975e-10, 3.371e-10, 3.746e-10,
2980 4.065e-10, 4.336e-10, 4.503e-10, 4.701e-10, 4.8e-10, 4.917e-10,
2981 5.038e-10, 5.128e-10, 5.143e-10, 5.071e-10, 5.019e-10, 5.025e-10,
2982 5.183e-10, 5.496e-10, 5.877e-10, 6.235e-10, 6.42e-10, 6.234e-10,
2983 5.698e-10, 4.916e-10, 4.022e-10, 3.126e-10, 2.282e-10, 1.639e-10,
2984 1.142e-10, 7.919e-11, 5.69e-11, 4.313e-11, 3.413e-11, 2.807e-11,
2985 2.41e-11, 2.166e-11, 2.024e-11, 1.946e-11, 1.929e-11, 1.963e-11,
2986 2.035e-11, 2.162e-11, 2.305e-11, 2.493e-11, 2.748e-11, 3.048e-11,
2987 3.413e-11, 3.754e-11, 4.155e-11, 4.635e-11, 5.11e-11, 5.734e-11,
2988 6.338e-11, 6.99e-11, 7.611e-11, 8.125e-11, 8.654e-11, 8.951e-11,
2989 9.182e-11, 9.31e-11, 9.273e-11, 9.094e-11, 8.849e-11, 8.662e-11,
2990 8.67e-11, 8.972e-11, 9.566e-11, 1.025e-10, 1.083e-10, 1.111e-10,
2991 1.074e-10, 9.771e-11, 8.468e-11, 6.958e-11, 5.47e-11, 4.04e-11,
2992 2.94e-11, 2.075e-11, 1.442e-11, 1.01e-11, 7.281e-12, 5.409e-12,
2993 4.138e-12, 3.304e-12, 2.784e-12, 2.473e-12, 2.273e-12, 2.186e-12,
2994 2.118e-12, 2.066e-12, 1.958e-12, 1.818e-12, 1.675e-12, 1.509e-12,
2995 1.349e-12, 1.171e-12, 9.838e-13, 8.213e-13, 6.765e-13, 5.378e-13,
2996 4.161e-13, 3.119e-13, 2.279e-13, 1.637e-13, 1.152e-13, 8.112e-14,
2997 5.919e-14, 4.47e-14, 3.492e-14, 2.811e-14, 2.319e-14, 1.948e-14,
2998 1.66e-14, 1.432e-14, 1.251e-14, 1.109e-14, 1.006e-14, 9.45e-15,
2999 9.384e-15, 1.012e-14, 1.216e-14, 1.636e-14, 2.305e-14, 3.488e-14,
3000 5.572e-14, 8.479e-14, 1.265e-13, 1.905e-13, 2.73e-13, 3.809e-13,
3001 4.955e-13, 6.303e-13, 7.861e-13, 9.427e-13, 1.097e-12, 1.212e-12,
3002 1.328e-12, 1.415e-12, 1.463e-12, 1.495e-12, 1.571e-12, 1.731e-12,
3003 1.981e-12, 2.387e-12, 2.93e-12, 3.642e-12, 4.584e-12, 5.822e-12,
3004 7.278e-12, 9.193e-12, 1.135e-11, 1.382e-11, 1.662e-11, 1.958e-11,
3005 2.286e-11, 2.559e-11, 2.805e-11, 2.988e-11, 3.106e-11, 3.182e-11,
3006 3.2e-11, 3.258e-11, 3.362e-11, 3.558e-11, 3.688e-11, 3.8e-11,
3007 3.929e-11, 4.062e-11, 4.186e-11, 4.293e-11, 4.48e-11, 4.643e-11,
3008 4.704e-11, 4.571e-11, 4.206e-11, 3.715e-11, 3.131e-11, 2.541e-11,
3009 1.978e-11, 1.508e-11, 1.146e-11, 8.7e-12, 6.603e-12, 5.162e-12,
3010 4.157e-12, 3.408e-12, 2.829e-12, 2.405e-12, 2.071e-12, 1.826e-12,
3011 1.648e-12, 1.542e-12, 1.489e-12, 1.485e-12, 1.493e-12, 1.545e-12,
3012 1.637e-12, 1.814e-12, 2.061e-12, 2.312e-12, 2.651e-12, 3.03e-12,
3013 3.46e-12, 3.901e-12, 4.306e-12, 4.721e-12, 5.008e-12, 5.281e-12,
3014 5.541e-12, 5.791e-12, 6.115e-12, 6.442e-12, 6.68e-12, 6.791e-12,
3015 6.831e-12, 6.839e-12, 6.946e-12, 7.128e-12, 7.537e-12, 8.036e-12,
3016 8.392e-12, 8.526e-12, 8.11e-12, 7.325e-12, 6.329e-12, 5.183e-12,
3017 4.081e-12, 2.985e-12, 2.141e-12, 1.492e-12, 1.015e-12, 6.684e-13,
3018 4.414e-13, 2.987e-13, 2.038e-13, 1.391e-13, 9.86e-14, 7.24e-14,
3019 5.493e-14, 4.288e-14, 3.427e-14, 2.787e-14, 2.296e-14, 1.909e-14,
3020 1.598e-14, 1.344e-14, 1.135e-14, 9.616e-15, 8.169e-15, 6.957e-15,
3021 5.938e-15, 5.08e-15, 4.353e-15, 3.738e-15, 3.217e-15, 2.773e-15,
3022 2.397e-15, 2.077e-15, 1.805e-15, 1.575e-15, 1.382e-15, 1.221e-15,
3023 1.09e-15, 9.855e-16, 9.068e-16, 8.537e-16, 8.27e-16, 8.29e-16,
3024 8.634e-16, 9.359e-16, 1.055e-15, 1.233e-15, 1.486e-15, 1.839e-15,
3025 2.326e-15, 2.998e-15, 3.934e-15, 5.256e-15, 7.164e-15, 9.984e-15,
3026 1.427e-14, 2.099e-14, 3.196e-14, 5.121e-14, 7.908e-14, 1.131e-13,
3027 1.602e-13, 2.239e-13, 3.075e-13, 4.134e-13, 5.749e-13, 7.886e-13,
3028 1.071e-12, 1.464e-12, 2.032e-12, 2.8e-12, 3.732e-12, 4.996e-12,
3029 6.483e-12, 8.143e-12, 1.006e-11, 1.238e-11, 1.484e-11, 1.744e-11,
3030 2.02e-11, 2.274e-11, 2.562e-11, 2.848e-11, 3.191e-11, 3.617e-11,
3031 4.081e-11, 4.577e-11, 4.937e-11, 5.204e-11, 5.401e-11, 5.462e-11,
3032 5.507e-11, 5.51e-11, 5.605e-11, 5.686e-11, 5.739e-11, 5.766e-11,
3033 5.74e-11, 5.754e-11, 5.761e-11, 5.777e-11, 5.712e-11, 5.51e-11,
3034 5.088e-11, 4.438e-11, 3.728e-11, 2.994e-11, 2.305e-11, 1.715e-11,
3035 1.256e-11, 9.208e-12, 6.745e-12, 5.014e-12, 3.785e-12, 2.9e-12,
3036 2.239e-12, 1.757e-12, 1.414e-12, 1.142e-12, 9.482e-13, 8.01e-13,
3037 6.961e-13, 6.253e-13, 5.735e-13, 5.433e-13, 5.352e-13, 5.493e-13,
3038 5.706e-13, 6.068e-13, 6.531e-13, 7.109e-13, 7.767e-13, 8.59e-13,
3039 9.792e-13, 1.142e-12, 1.371e-12, 1.65e-12, 1.957e-12, 2.302e-12,
3040 2.705e-12, 3.145e-12, 3.608e-12, 4.071e-12, 4.602e-12, 5.133e-12,
3041 5.572e-12, 5.987e-12, 6.248e-12, 6.533e-12, 6.757e-12, 6.935e-12,
3042 7.224e-12, 7.422e-12, 7.538e-12, 7.547e-12, 7.495e-12, 7.543e-12,
3043 7.725e-12, 8.139e-12, 8.627e-12, 9.146e-12, 9.443e-12, 9.318e-12,
3044 8.649e-12, 7.512e-12, 6.261e-12, 4.915e-12, 3.647e-12, 2.597e-12,
3045 1.785e-12, 1.242e-12, 8.66e-13, 6.207e-13, 4.61e-13, 3.444e-13,
3046 2.634e-13, 2.1e-13, 1.725e-13, 1.455e-13, 1.237e-13, 1.085e-13,
3047 9.513e-14, 7.978e-14, 6.603e-14, 5.288e-14, 4.084e-14, 2.952e-14,
3048 2.157e-14, 1.593e-14, 1.199e-14, 9.267e-15, 7.365e-15, 6.004e-15,
3049 4.995e-15, 4.218e-15, 3.601e-15, 3.101e-15, 2.692e-15, 2.36e-15,
3050 2.094e-15, 1.891e-15, 1.755e-15, 1.699e-15, 1.755e-15, 1.987e-15,
3051 2.506e-15, 3.506e-15, 5.289e-15, 8.311e-15, 1.325e-14, 2.129e-14,
3052 3.237e-14, 4.595e-14, 6.441e-14, 8.433e-14, 1.074e-13, 1.383e-13,
3053 1.762e-13, 2.281e-13, 2.831e-13, 3.523e-13, 4.38e-13, 5.304e-13,
3054 6.29e-13, 7.142e-13, 8.032e-13, 8.934e-13, 9.888e-13, 1.109e-12,
3055 1.261e-12, 1.462e-12, 1.74e-12, 2.099e-12, 2.535e-12, 3.008e-12,
3056 3.462e-12, 3.856e-12, 4.098e-12, 4.239e-12, 4.234e-12, 4.132e-12,
3057 3.986e-12, 3.866e-12, 3.829e-12, 3.742e-12, 3.705e-12, 3.694e-12,
3058 3.765e-12, 3.849e-12, 3.929e-12, 4.056e-12, 4.092e-12, 4.047e-12,
3059 3.792e-12, 3.407e-12, 2.953e-12, 2.429e-12, 1.931e-12, 1.46e-12,
3060 1.099e-12, 8.199e-13, 6.077e-13, 4.449e-13, 3.359e-13, 2.524e-13,
3061 1.881e-13, 1.391e-13, 1.02e-13, 7.544e-14, 5.555e-14, 4.22e-14,
3062 3.321e-14, 2.686e-14, 2.212e-14, 1.78e-14, 1.369e-14, 1.094e-14,
3063 9.13e-15, 8.101e-15, 7.828e-15, 8.393e-15, 1.012e-14, 1.259e-14,
3064 1.538e-14, 1.961e-14, 2.619e-14, 3.679e-14, 5.049e-14, 6.917e-14,
3065 8.88e-14, 1.115e-13, 1.373e-13, 1.619e-13, 1.878e-13, 2.111e-13,
3066 2.33e-13, 2.503e-13, 2.613e-13, 2.743e-13, 2.826e-13, 2.976e-13,
3067 3.162e-13, 3.36e-13, 3.491e-13, 3.541e-13, 3.595e-13, 3.608e-13,
3068 3.709e-13, 3.869e-13, 4.12e-13, 4.366e-13, 4.504e-13, 4.379e-13,
3069 3.955e-13, 3.385e-13, 2.741e-13, 2.089e-13, 1.427e-13, 9.294e-14,
3070 5.775e-14, 3.565e-14, 2.21e-14, 1.398e-14, 9.194e-15, 6.363e-15,
3071 4.644e-15, 3.55e-15, 2.808e-15, 2.274e-15, 1.871e-15, 1.557e-15,
3072 1.308e-15, 1.108e-15, 9.488e-16, 8.222e-16, 7.238e-16, 6.506e-16,
3073 6.008e-16, 5.742e-16, 5.724e-16, 5.991e-16, 6.625e-16, 7.775e-16,
3074 9.734e-16, 1.306e-15, 1.88e-15, 2.879e-15, 4.616e-15, 7.579e-15,
3075 1.248e-14, 2.03e-14, 3.244e-14, 5.171e-14, 7.394e-14, 9.676e-14,
3076 1.199e-13, 1.467e-13, 1.737e-13, 2.02e-13, 2.425e-13, 3.016e-13,
3077 3.7e-13, 4.617e-13, 5.949e-13, 7.473e-13, 9.378e-13, 1.191e-12,
3078 1.481e-12, 1.813e-12, 2.232e-12, 2.722e-12, 3.254e-12, 3.845e-12,
3079 4.458e-12, 5.048e-12, 5.511e-12, 5.898e-12, 6.204e-12, 6.293e-12,
3080 6.386e-12, 6.467e-12, 6.507e-12, 6.466e-12, 6.443e-12, 6.598e-12,
3081 6.873e-12, 7.3e-12, 7.816e-12, 8.368e-12, 8.643e-12, 8.466e-12,
3082 7.871e-12, 6.853e-12, 5.714e-12, 4.482e-12, 3.392e-12, 2.613e-12,
3083 2.008e-12, 1.562e-12, 1.228e-12, 9.888e-13, 7.646e-13, 5.769e-13,
3084 4.368e-13, 3.324e-13, 2.508e-13, 1.916e-13
3085 };
3086
3087 static const double xfcrev[15] =
3088 { 1.003, 1.009, 1.015, 1.023, 1.029, 1.033, 1.037,
3089 1.039, 1.04, 1.046, 1.036, 1.027, 1.01, 1.002, 1.
3090 };
3091
3092 double sfac;
3093
3094 /* Get H2O continuum absorption... */
3095 const double xw = nu / 10 + 1;
3096 if (xw >= 1 && xw < 2001) {
3097 const int iw = (int) xw;
3098 const double dw = xw - iw;
3099 const double ew = 1 - dw;
3100 const double cw296 = ew * h2o296[iw - 1] + dw * h2o296[iw];
3101 const double cw260 = ew * h2o260[iw - 1] + dw * h2o260[iw];
3102 const double cwfrn = ew * h2ofrn[iw - 1] + dw * h2ofrn[iw];
3103 if (nu <= 820 || nu >= 960) {
3104 sfac = 1;
3105 } else {
3106 const double xx = (nu - 820) / 10;
3107 const int ix = (int) xx;
3108 const double dx = xx - ix;
3109 sfac = (1 - dx) * xfcrev[ix] + dx * xfcrev[ix + 1];
3110 }
3111 const double ctwslf =
3112 sfac * cw296 * pow(cw260 / cw296, (296 - t) / (296 - 260));
3113 const double vf2 = POW2(nu - 370);
3114 const double vf6 = POW3(vf2);
3115 const double fscal = 36100 / (vf2 + vf6 * 1e-8 + 36100) * -.25 + 1;
3116 const double ctwfrn = cwfrn * fscal;
3117 const double a1 = nu * u * tanh(.7193876 / t * nu);
3118 const double a2 = 296 / t;
3119 const double a3 = p / P0 * (q * ctwslf + (1 - q) * ctwfrn) * 1e-20;
3120 return a1 * a2 * a3;
3121 } else
3122 return 0;
3123}
3124
3125/*****************************************************************************/
3126
3127double ctmn2(
3128 const double nu,
3129 const double p,
3130 const double t) {
3131
3132 static const double ba[98] =
3133 { 0., 4.45e-8, 5.22e-8, 6.46e-8, 7.75e-8, 9.03e-8,
3134 1.06e-7, 1.21e-7, 1.37e-7, 1.57e-7, 1.75e-7, 2.01e-7, 2.3e-7,
3135 2.59e-7, 2.95e-7, 3.26e-7, 3.66e-7, 4.05e-7, 4.47e-7, 4.92e-7,
3136 5.34e-7, 5.84e-7, 6.24e-7, 6.67e-7, 7.14e-7, 7.26e-7, 7.54e-7,
3137 7.84e-7, 8.09e-7, 8.42e-7, 8.62e-7, 8.87e-7, 9.11e-7, 9.36e-7,
3138 9.76e-7, 1.03e-6, 1.11e-6, 1.23e-6, 1.39e-6, 1.61e-6, 1.76e-6,
3139 1.94e-6, 1.97e-6, 1.87e-6, 1.75e-6, 1.56e-6, 1.42e-6, 1.35e-6,
3140 1.32e-6, 1.29e-6, 1.29e-6, 1.29e-6, 1.3e-6, 1.32e-6, 1.33e-6,
3141 1.34e-6, 1.35e-6, 1.33e-6, 1.31e-6, 1.29e-6, 1.24e-6, 1.2e-6,
3142 1.16e-6, 1.1e-6, 1.04e-6, 9.96e-7, 9.38e-7, 8.63e-7, 7.98e-7,
3143 7.26e-7, 6.55e-7, 5.94e-7, 5.35e-7, 4.74e-7, 4.24e-7, 3.77e-7,
3144 3.33e-7, 2.96e-7, 2.63e-7, 2.34e-7, 2.08e-7, 1.85e-7, 1.67e-7,
3145 1.47e-7, 1.32e-7, 1.2e-7, 1.09e-7, 9.85e-8, 9.08e-8, 8.18e-8,
3146 7.56e-8, 6.85e-8, 6.14e-8, 5.83e-8, 5.77e-8, 5e-8, 4.32e-8, 0.
3147 };
3148
3149 static const double betaa[98] =
3150 { 802., 802., 761., 722., 679., 646., 609., 562.,
3151 511., 472., 436., 406., 377., 355., 338., 319., 299., 278., 255.,
3152 233., 208., 184., 149., 107., 66., 25., -13., -49., -82., -104.,
3153 -119., -130., -139., -144., -146., -146., -147., -148., -150.,
3154 -153., -160., -169., -181., -189., -195., -200., -205., -209.,
3155 -211., -210., -210., -209., -205., -199., -190., -180., -168.,
3156 -157., -143., -126., -108., -89., -63., -32., 1., 35., 65., 95.,
3157 121., 141., 152., 161., 164., 164., 161., 155., 148., 143., 137.,
3158 133., 131., 133., 139., 150., 165., 187., 213., 248., 284., 321.,
3159 372., 449., 514., 569., 609., 642., 673., 673.
3160 };
3161
3162 static const double nua[98] =
3163 { 2120., 2125., 2130., 2135., 2140., 2145., 2150.,
3164 2155., 2160., 2165., 2170., 2175., 2180., 2185., 2190., 2195.,
3165 2200., 2205., 2210., 2215., 2220., 2225., 2230., 2235., 2240.,
3166 2245., 2250., 2255., 2260., 2265., 2270., 2275., 2280., 2285.,
3167 2290., 2295., 2300., 2305., 2310., 2315., 2320., 2325., 2330.,
3168 2335., 2340., 2345., 2350., 2355., 2360., 2365., 2370., 2375.,
3169 2380., 2385., 2390., 2395., 2400., 2405., 2410., 2415., 2420.,
3170 2425., 2430., 2435., 2440., 2445., 2450., 2455., 2460., 2465.,
3171 2470., 2475., 2480., 2485., 2490., 2495., 2500., 2505., 2510.,
3172 2515., 2520., 2525., 2530., 2535., 2540., 2545., 2550., 2555.,
3173 2560., 2565., 2570., 2575., 2580., 2585., 2590., 2595., 2600., 2605.
3174 };
3175
3176 const double t0 = 273.0, tr = 296.0;
3177
3178 /* Check wavenumber range... */
3179 if (nu < nua[0] || nu > nua[97])
3180 return 0;
3181
3182 /* Interpolate B and beta... */
3183 const int idx = locate_reg(nua, 98, nu);
3184 const double b =
3185 1e6 * LIN(nua[idx], ba[idx], nua[idx + 1], ba[idx + 1], nu);
3186 const double beta =
3187 LIN(nua[idx], betaa[idx], nua[idx + 1], betaa[idx + 1], nu);
3188
3189 /* Compute absorption coefficient... */
3190 return 0.1 * POW2(p / P0 * t0 / t) * exp(beta * (1 / tr - 1 / t))
3191 * N2 * b * (N2 + (1 - N2) * (1.294 - 0.4545 * t / tr));
3192}
3193
3194/*****************************************************************************/
3195
3196double ctmo2(
3197 const double nu,
3198 const double p,
3199 const double t) {
3200
3201 static const double ba[90] =
3202 { 0., .061, .074, .084, .096, .12, .162, .208, .246,
3203 .285, .314, .38, .444, .5, .571, .673, .768, .853, .966, 1.097,
3204 1.214, 1.333, 1.466, 1.591, 1.693, 1.796, 1.922, 2.037, 2.154,
3205 2.264, 2.375, 2.508, 2.671, 2.847, 3.066, 3.417, 3.828, 4.204,
3206 4.453, 4.599, 4.528, 4.284, 3.955, 3.678, 3.477, 3.346, 3.29,
3207 3.251, 3.231, 3.226, 3.212, 3.192, 3.108, 3.033, 2.911, 2.798,
3208 2.646, 2.508, 2.322, 2.13, 1.928, 1.757, 1.588, 1.417, 1.253,
3209 1.109, .99, .888, .791, .678, .587, .524, .464, .403, .357, .32,
3210 .29, .267, .242, .215, .182, .16, .146, .128, .103, .087, .081,
3211 .071, .064, 0.
3212 };
3213
3214 static const double betaa[90] =
3215 { 467., 467., 400., 315., 379., 368., 475., 521.,
3216 531., 512., 442., 444., 430., 381., 335., 324., 296., 248., 215.,
3217 193., 158., 127., 101., 71., 31., -6., -26., -47., -63., -79.,
3218 -88., -88., -87., -90., -98., -99., -109., -134., -160., -167.,
3219 -164., -158., -153., -151., -156., -166., -168., -173., -170.,
3220 -161., -145., -126., -108., -84., -59., -29., 4., 41., 73., 97.,
3221 123., 159., 198., 220., 242., 256., 281., 311., 334., 319., 313.,
3222 321., 323., 310., 315., 320., 335., 361., 378., 373., 338., 319.,
3223 346., 322., 291., 290., 350., 371., 504., 504.
3224 };
3225
3226 static const double nua[90] =
3227 { 1360., 1365., 1370., 1375., 1380., 1385., 1390.,
3228 1395., 1400., 1405., 1410., 1415., 1420., 1425., 1430., 1435.,
3229 1440., 1445., 1450., 1455., 1460., 1465., 1470., 1475., 1480.,
3230 1485., 1490., 1495., 1500., 1505., 1510., 1515., 1520., 1525.,
3231 1530., 1535., 1540., 1545., 1550., 1555., 1560., 1565., 1570.,
3232 1575., 1580., 1585., 1590., 1595., 1600., 1605., 1610., 1615.,
3233 1620., 1625., 1630., 1635., 1640., 1645., 1650., 1655., 1660.,
3234 1665., 1670., 1675., 1680., 1685., 1690., 1695., 1700., 1705.,
3235 1710., 1715., 1720., 1725., 1730., 1735., 1740., 1745., 1750.,
3236 1755., 1760., 1765., 1770., 1775., 1780., 1785., 1790., 1795.,
3237 1800., 1805.
3238 };
3239
3240 const double t0 = 273, tr = 296;
3241
3242 /* Check wavenumber range... */
3243 if (nu < nua[0] || nu > nua[89])
3244 return 0;
3245
3246 /* Interpolate B and beta... */
3247 const int idx = locate_reg(nua, 90, nu);
3248 const double b = LIN(nua[idx], ba[idx], nua[idx + 1], ba[idx + 1], nu);
3249 const double beta =
3250 LIN(nua[idx], betaa[idx], nua[idx + 1], betaa[idx + 1], nu);
3251
3252 /* Compute absorption coefficient... */
3253 return 0.1 * POW2(p / P0 * t0 / t) * exp(beta * (1 / tr - 1 / t)) * O2 * b;
3254}
3255
3256/*****************************************************************************/
3257
3258void copy_atm(
3259 const ctl_t *ctl,
3260 atm_t *atm_dest,
3261 const atm_t *atm_src,
3262 const int init) {
3263
3264 /* Data size... */
3265 const size_t s = (size_t) atm_src->np * sizeof(double);
3266
3267 /* Copy data... */
3268 atm_dest->np = atm_src->np;
3269 memcpy(atm_dest->time, atm_src->time, s);
3270 memcpy(atm_dest->z, atm_src->z, s);
3271 memcpy(atm_dest->lon, atm_src->lon, s);
3272 memcpy(atm_dest->lat, atm_src->lat, s);
3273 memcpy(atm_dest->p, atm_src->p, s);
3274 memcpy(atm_dest->t, atm_src->t, s);
3275 for (int ig = 0; ig < ctl->ng; ig++)
3276 memcpy(atm_dest->q[ig], atm_src->q[ig], s);
3277 for (int iw = 0; iw < ctl->nw; iw++)
3278 memcpy(atm_dest->k[iw], atm_src->k[iw], s);
3279 atm_dest->clz = atm_src->clz;
3280 atm_dest->cldz = atm_src->cldz;
3281 for (int icl = 0; icl < ctl->ncl; icl++)
3282 atm_dest->clk[icl] = atm_src->clk[icl];
3283 atm_dest->sft = atm_src->sft;
3284 for (int isf = 0; isf < ctl->nsf; isf++)
3285 atm_dest->sfeps[isf] = atm_src->sfeps[isf];
3286
3287 /* Initialize... */
3288 if (init)
3289 for (int ip = 0; ip < atm_dest->np; ip++) {
3290 atm_dest->p[ip] = 0;
3291 atm_dest->t[ip] = 0;
3292 for (int ig = 0; ig < ctl->ng; ig++)
3293 atm_dest->q[ig][ip] = 0;
3294 for (int iw = 0; iw < ctl->nw; iw++)
3295 atm_dest->k[iw][ip] = 0;
3296 atm_dest->clz = 0;
3297 atm_dest->cldz = 0;
3298 for (int icl = 0; icl < ctl->ncl; icl++)
3299 atm_dest->clk[icl] = 0;
3300 atm_dest->sft = 0;
3301 for (int isf = 0; isf < ctl->nsf; isf++)
3302 atm_dest->sfeps[isf] = 1;
3303 }
3304}
3305
3306/*****************************************************************************/
3307
3308void copy_obs(
3309 const ctl_t *ctl,
3310 obs_t *obs_dest,
3311 const obs_t *obs_src,
3312 const int init) {
3313
3314 /* Data size... */
3315 const size_t s = (size_t) obs_src->nr * sizeof(double);
3316
3317 /* Copy data... */
3318 obs_dest->nr = obs_src->nr;
3319 memcpy(obs_dest->time, obs_src->time, s);
3320 memcpy(obs_dest->obsz, obs_src->obsz, s);
3321 memcpy(obs_dest->obslon, obs_src->obslon, s);
3322 memcpy(obs_dest->obslat, obs_src->obslat, s);
3323 memcpy(obs_dest->vpz, obs_src->vpz, s);
3324 memcpy(obs_dest->vplon, obs_src->vplon, s);
3325 memcpy(obs_dest->vplat, obs_src->vplat, s);
3326 memcpy(obs_dest->tpz, obs_src->tpz, s);
3327 memcpy(obs_dest->tplon, obs_src->tplon, s);
3328 memcpy(obs_dest->tplat, obs_src->tplat, s);
3329 for (int id = 0; id < ctl->nd; id++)
3330 memcpy(obs_dest->rad[id], obs_src->rad[id], s);
3331 for (int id = 0; id < ctl->nd; id++)
3332 memcpy(obs_dest->tau[id], obs_src->tau[id], s);
3333
3334 /* Initialize... */
3335 if (init)
3336 for (int id = 0; id < ctl->nd; id++)
3337 for (int ir = 0; ir < obs_dest->nr; ir++)
3338 if (isfinite(obs_dest->rad[id][ir])) {
3339 obs_dest->rad[id][ir] = 0;
3340 obs_dest->tau[id][ir] = 0;
3341 }
3342}
3343
3344/*****************************************************************************/
3345
3346void day2doy(
3347 int year,
3348 int mon,
3349 int day,
3350 int *doy) {
3351
3352 const int d0[12] =
3353 { 1, 32, 60, 91, 121, 152, 182, 213, 244, 274, 305, 335 };
3354 const int d0l[12] =
3355 { 1, 32, 61, 92, 122, 153, 183, 214, 245, 275, 306, 336 };
3356
3357 /* Get day of year... */
3358 if (year % 400 == 0 || (year % 100 != 0 && year % 4 == 0))
3359 *doy = d0l[mon - 1] + day - 1;
3360 else
3361 *doy = d0[mon - 1] + day - 1;
3362}
3363
3364/*****************************************************************************/
3365
3366void doy2day(
3367 int year,
3368 int doy,
3369 int *mon,
3370 int *day) {
3371
3372 const int d0[12] =
3373 { 1, 32, 60, 91, 121, 152, 182, 213, 244, 274, 305, 335 };
3374 const int d0l[12] =
3375 { 1, 32, 61, 92, 122, 153, 183, 214, 245, 275, 306, 336 };
3376 int i;
3377
3378 /* Get month and day... */
3379 if (year % 400 == 0 || (year % 100 != 0 && year % 4 == 0)) {
3380 for (i = 11; i >= 0; i--)
3381 if (d0l[i] <= doy)
3382 break;
3383 *mon = i + 1;
3384 *day = doy - d0l[i] + 1;
3385 } else {
3386 for (i = 11; i >= 0; i--)
3387 if (d0[i] <= doy)
3388 break;
3389 *mon = i + 1;
3390 *day = doy - d0[i] + 1;
3391 }
3392}
3393
3394/*****************************************************************************/
3395
3396int find_emitter(
3397 const ctl_t *ctl,
3398 const char *emitter) {
3399
3400 for (int ig = 0; ig < ctl->ng; ig++)
3401 if (strcasecmp(ctl->emitter[ig], emitter) == 0)
3402 return ig;
3403
3404 return -1;
3405}
3406
3407/*****************************************************************************/
3408
3409void formod(
3410 const ctl_t *ctl,
3411 const tbl_t *tbl,
3412 atm_t *atm,
3413 obs_t *obs) {
3414
3415 int *mask;
3416
3417 /* Allocate... */
3418 ALLOC(mask, int,
3419 ND * NR);
3420
3421 /* Save observation mask... */
3422 for (int id = 0; id < ctl->nd; id++)
3423 for (int ir = 0; ir < obs->nr; ir++)
3424 mask[id * NR + ir] = !isfinite(obs->rad[id][ir]);
3425
3426 /* Hydrostatic equilibrium... */
3427 hydrostatic(ctl, atm);
3428
3429 /* CGA or EGA forward model... */
3430 if (ctl->formod == 0 || ctl->formod == 1)
3431 for (int ir = 0; ir < obs->nr; ir++)
3432 formod_pencil(ctl, tbl, atm, obs, ir);
3433
3434 /* Call RFM... */
3435 else if (ctl->formod == 2)
3436 formod_rfm(ctl, atm, obs);
3437
3438 /* Apply field-of-view convolution... */
3439 formod_fov(ctl, obs);
3440
3441 /* Convert radiance to brightness temperature... */
3442 if (ctl->write_bbt)
3443 for (int id = 0; id < ctl->nd; id++)
3444 for (int ir = 0; ir < obs->nr; ir++)
3445 obs->rad[id][ir] = BRIGHT(obs->rad[id][ir], ctl->nu[id]);
3446
3447 /* Apply observation mask... */
3448 for (int id = 0; id < ctl->nd; id++)
3449 for (int ir = 0; ir < obs->nr; ir++)
3450 if (mask[id * NR + ir])
3451 obs->rad[id][ir] = NAN;
3452
3453 /* Free... */
3454 free(mask);
3455}
3456
3457/*****************************************************************************/
3458
3459void formod_continua(
3460 const ctl_t *ctl,
3461 const los_t *los,
3462 const int ip,
3463 double *beta) {
3464
3465 /* Extinction... */
3466 for (int id = 0; id < ctl->nd; id++)
3467 beta[id] = los->k[ip][id];
3468
3469 /* CO2 continuum... */
3470 if (ctl->ctm_co2 && ctl->ig_co2 >= 0)
3471 for (int id = 0; id < ctl->nd; id++)
3472 beta[id] += ctmco2(ctl->nu[id], los->p[ip], los->t[ip],
3473 los->u[ip][ctl->ig_co2]) / los->ds[ip];
3474
3475 /* H2O continuum... */
3476 if (ctl->ctm_h2o && ctl->ig_h2o >= 0)
3477 for (int id = 0; id < ctl->nd; id++)
3478 beta[id] += ctmh2o(ctl->nu[id], los->p[ip], los->t[ip],
3479 los->q[ip][ctl->ig_h2o], los->u[ip][ctl->ig_h2o])
3480 / los->ds[ip];
3481
3482 /* N2 continuum... */
3483 if (ctl->ctm_n2)
3484 for (int id = 0; id < ctl->nd; id++)
3485 beta[id] += ctmn2(ctl->nu[id], los->p[ip], los->t[ip]);
3486
3487 /* O2 continuum... */
3488 if (ctl->ctm_o2)
3489 for (int id = 0; id < ctl->nd; id++)
3490 beta[id] += ctmo2(ctl->nu[id], los->p[ip], los->t[ip]);
3491}
3492
3493/*****************************************************************************/
3494
3495void formod_fov(
3496 const ctl_t *ctl,
3497 obs_t *obs) {
3498
3499 obs_t *obs2;
3500
3501 double rad[ND][NR], tau[ND][NR], z[NR];
3502
3503 /* Do not take into account FOV... */
3504 if (ctl->fov[0] == '-')
3505 return;
3506
3507 /* Allocate... */
3508 ALLOC(obs2, obs_t, 1);
3509
3510 /* Copy observation data... */
3511 copy_obs(ctl, obs2, obs, 0);
3512
3513 /* Loop over ray paths... */
3514 for (int ir = 0; ir < obs->nr; ir++) {
3515
3516 /* Get radiance and transmittance profiles... */
3517 int nz = 0;
3518 for (int ir2 = MAX(ir - NFOV, 0);
3519 ir2 < MIN(ir + 1 + NFOV, obs->nr); ir2++)
3520 if (obs->time[ir2] == obs->time[ir]) {
3521 z[nz] = obs2->vpz[ir2];
3522 for (int id = 0; id < ctl->nd; id++) {
3523 rad[id][nz] = obs2->rad[id][ir2];
3524 tau[id][nz] = obs2->tau[id][ir2];
3525 }
3526 nz++;
3527 }
3528 if (nz < 2)
3529 ERRMSG("Cannot apply FOV convolution!");
3530
3531 /* Convolute profiles with FOV... */
3532 double wsum = 0;
3533 for (int id = 0; id < ctl->nd; id++) {
3534 obs->rad[id][ir] = 0;
3535 obs->tau[id][ir] = 0;
3536 }
3537 for (int i = 0; i < ctl->fov_n; i++) {
3538 const double zfov = obs->vpz[ir] + ctl->fov_dz[i];
3539 const int idx = locate_irr(z, nz, zfov);
3540 for (int id = 0; id < ctl->nd; id++) {
3541 obs->rad[id][ir] += ctl->fov_w[i]
3542 * LIN(z[idx], rad[id][idx], z[idx + 1], rad[id][idx + 1], zfov);
3543 obs->tau[id][ir] += ctl->fov_w[i]
3544 * LIN(z[idx], tau[id][idx], z[idx + 1], tau[id][idx + 1], zfov);
3545 }
3546 wsum += ctl->fov_w[i];
3547 }
3548 for (int id = 0; id < ctl->nd; id++) {
3549 obs->rad[id][ir] /= wsum;
3550 obs->tau[id][ir] /= wsum;
3551 }
3552 }
3553
3554 /* Free... */
3555 free(obs2);
3556}
3557
3558/*****************************************************************************/
3559
3560void formod_pencil(
3561 const ctl_t *ctl,
3562 const tbl_t *tbl,
3563 const atm_t *atm,
3564 obs_t *obs,
3565 const int ir) {
3566
3567 los_t *los;
3568
3569 double beta_ctm[ND], rad[ND], tau[ND], tau_refl[ND],
3570 tau_path[ND][NG], tau_gas[ND], x0[3], x1[3];
3571
3572 /* Allocate... */
3573 ALLOC(los, los_t, 1);
3574
3575 /* Initialize... */
3576 for (int id = 0; id < ctl->nd; id++) {
3577 rad[id] = 0;
3578 tau[id] = 1;
3579 for (int ig = 0; ig < ctl->ng; ig++)
3580 tau_path[id][ig] = 1;
3581 }
3582
3583 /* Raytracing... */
3584 raytrace(ctl, atm, obs, los, ir);
3585
3586 /* Loop over LOS points... */
3587 for (int ip = 0; ip < los->np; ip++) {
3588
3589 /* Get trace gas transmittance... */
3590 if (ctl->formod == 0)
3591 intpol_tbl_cga(ctl, tbl, los, ip, tau_path, tau_gas);
3592 else
3593 intpol_tbl_ega(ctl, tbl, los, ip, tau_path, tau_gas);
3594
3595 /* Get continuum absorption... */
3596 formod_continua(ctl, los, ip, beta_ctm);
3597
3598 /* Compute Planck function... */
3599 formod_srcfunc(ctl, tbl, los->t[ip], los->src[ip]);
3600
3601 /* Loop over channels... */
3602 for (int id = 0; id < ctl->nd; id++)
3603 if (tau_gas[id] > 0) {
3604
3605 /* Get segment emissivity... */
3606 los->eps[ip][id] = 1 - tau_gas[id] * exp(-beta_ctm[id] * los->ds[ip]);
3607
3608 /* Compute radiance... */
3609 rad[id] += los->src[ip][id] * los->eps[ip][id] * tau[id];
3610
3611 /* Compute path transmittance... */
3612 tau[id] *= (1 - los->eps[ip][id]);
3613 }
3614 }
3615
3616 /* Check whether LOS hit the ground... */
3617 if (ctl->sftype >= 1 && los->sft > 0) {
3618
3619 /* Add surface emissions... */
3620 double src_sf[ND];
3621 formod_srcfunc(ctl, tbl, los->sft, src_sf);
3622 for (int id = 0; id < ctl->nd; id++)
3623 rad[id] += los->sfeps[id] * src_sf[id] * tau[id];
3624
3625 /* Check reflectivity... */
3626 int refl = 0;
3627 if (ctl->sftype >= 2)
3628 for (int id = 0; id < ctl->nd; id++)
3629 if (los->sfeps[id] < 1) {
3630 refl = 1;
3631 break;
3632 }
3633
3634 /* Calculate reflection... */
3635 if (refl) {
3636
3637 /* Initialize... */
3638 for (int id = 0; id < ctl->nd; id++)
3639 tau_refl[id] = 1;
3640
3641 /* Add down-welling radiance... */
3642 for (int ip = los->np - 1; ip >= 0; ip--)
3643 for (int id = 0; id < ctl->nd; id++) {
3644 rad[id] += los->src[ip][id] * los->eps[ip][id] * tau_refl[id]
3645 * tau[id] * (1 - los->sfeps[id]);
3646 tau_refl[id] *= (1 - los->eps[ip][id]);
3647 }
3648
3649 /* Add solar term... */
3650 if (ctl->sftype >= 3) {
3651
3652 /* Get cosine of solar zenith angle... */
3653 double cos_sza_val;
3654 if (ctl->sfsza < 0)
3655 cos_sza_val = cos_sza(obs->time[ir],
3656 los->lon[los->np - 1], los->lat[los->np - 1]);
3657 else
3658 cos_sza_val = cos(DEG2RAD(ctl->sfsza));
3659
3660 /* Check validity (avoid division by zero)... */
3661 if (cos_sza_val > 1e-6) {
3662
3663 /* Compute incidence direction cosine... */
3664 geo2cart(los->z[los->np - 1], los->lon[los->np - 1],
3665 los->lat[los->np - 1], x0);
3666 geo2cart(los->z[0], los->lon[0], los->lat[0], x1);
3667 for (int i = 0; i < 3; i++)
3668 x1[i] -= x0[i];
3669 const double cosa = DOTP(x0, x1) / NORM(x0) / NORM(x1);
3670
3671 /* Ratio of incident direction to solar zenith direction... */
3672 const double rcos = cosa / cos_sza_val;
3673
3674 /* Add solar radiance contribution... */
3675 for (int id = 0; id < ctl->nd; id++)
3676 rad[id] += 6.764e-5 / (2. * M_PI) * PLANCK(TSUN, ctl->nu[id])
3677 * tau_refl[id] * (1 - los->sfeps[id]) * tau[id] * rcos;
3678 }
3679 }
3680 }
3681 }
3682
3683 /* Copy results... */
3684 for (int id = 0; id < ctl->nd; id++) {
3685 obs->rad[id][ir] = rad[id];
3686 obs->tau[id][ir] = tau[id];
3687 }
3688
3689 /* Free... */
3690 free(los);
3691}
3692
3693/*****************************************************************************/
3694
3695void formod_rfm(
3696 const ctl_t *ctl,
3697 const atm_t *atm,
3698 obs_t *obs) {
3699
3700 los_t *los;
3701
3702 FILE *out;
3703
3704 char cmd[2 * LEN], filename[2 * LEN],
3705 rfmflg[LEN] = { "RAD TRA MIX LIN SFC" };
3706
3707 double f[NSHAPE], nu[NSHAPE], nu0, nu1, obsz = -999, tsurf,
3708 xd[3], xo[3], xv[3], z[NR], zmin, zmax;
3709
3710 int n, nadir = 0;
3711
3712 /* Allocate... */
3713 ALLOC(los, los_t, 1);
3714
3715 /* Check observer positions... */
3716 for (int ir = 1; ir < obs->nr; ir++)
3717 if (obs->obsz[ir] != obs->obsz[0]
3718 || obs->obslon[ir] != obs->obslon[0]
3719 || obs->obslat[ir] != obs->obslat[0])
3720 ERRMSG("RFM interface requires identical observer positions!");
3721
3722 /* Check extinction data... */
3723 for (int iw = 0; iw < ctl->nw; iw++)
3724 for (int ip = 0; ip < atm->np; ip++)
3725 if (atm->k[iw][ip] != 0)
3726 ERRMSG("RFM interface cannot handle extinction data!");
3727
3728 /* Get altitude range of atmospheric data... */
3729 gsl_stats_minmax(&zmin, &zmax, atm->z, 1, (size_t) atm->np);
3730
3731 /* Observer within atmosphere? */
3732 if (obs->obsz[0] >= zmin && obs->obsz[0] <= zmax) {
3733 obsz = obs->obsz[0];
3734 strcat(rfmflg, " OBS");
3735 }
3736
3737 /* Determine tangent altitude or air mass factor... */
3738 for (int ir = 0; ir < obs->nr; ir++) {
3739
3740 /* Raytracing... */
3741 raytrace(ctl, atm, obs, los, ir);
3742
3743 /* Nadir? */
3744 if (obs->tpz[ir] <= zmin) {
3745 geo2cart(obs->obsz[ir], obs->obslon[ir], obs->obslat[ir], xo);
3746 geo2cart(obs->vpz[ir], obs->vplon[ir], obs->vplat[ir], xv);
3747 for (int i = 0; i < 3; i++)
3748 xd[i] = xo[i] - xv[i];
3749 z[ir] = NORM(xo) * NORM(xd) / DOTP(xo, xd);
3750 nadir++;
3751 } else
3752 z[ir] = obs->tpz[ir];
3753 }
3754 if (nadir > 0 && nadir < obs->nr)
3755 ERRMSG("Limb and nadir not simultaneously possible!");
3756
3757 /* Nadir? */
3758 if (nadir)
3759 strcat(rfmflg, " NAD");
3760
3761 /* Get surface temperature... */
3762 tsurf = atm->t[gsl_stats_min_index(atm->z, 1, (size_t) atm->np)];
3763
3764 /* Refraction? */
3765 if (!nadir && !ctl->refrac)
3766 strcat(rfmflg, " GEO");
3767
3768 /* Continua? */
3769 if (ctl->ctm_co2 || ctl->ctm_h2o || ctl->ctm_n2 || ctl->ctm_o2)
3770 strcat(rfmflg, " CTM");
3771
3772 /* Write atmospheric data file... */
3773 write_atm_rfm("rfm.atm", ctl, atm);
3774
3775 /* Loop over channels... */
3776 for (int id = 0; id < ctl->nd; id++) {
3777
3778 /* Read filter function... */
3779 sprintf(filename, "%s_%.4f.filt", ctl->tblbase, ctl->nu[id]);
3780 read_shape(filename, nu, f, &n);
3781
3782 /* Set spectral range... */
3783 nu0 = nu[0];
3784 nu1 = nu[n - 1];
3785
3786 /* Create RFM driver file... */
3787 if (!(out = fopen("rfm.drv", "w")))
3788 ERRMSG("Cannot create file!");
3789 fprintf(out, "*HDR\nRFM call by JURASSIC.\n");
3790 fprintf(out, "*FLG\n%s\n", rfmflg);
3791 fprintf(out, "*SPC\n%.4f %.4f 0.0005\n", nu0, nu1);
3792 fprintf(out, "*GAS\n");
3793 for (int ig = 0; ig < ctl->ng; ig++)
3794 fprintf(out, "%s\n", ctl->emitter[ig]);
3795 fprintf(out, "*ATM\nrfm.atm\n");
3796 fprintf(out, "*TAN\n");
3797 for (int ir = 0; ir < obs->nr; ir++)
3798 fprintf(out, "%g\n", z[ir]);
3799 fprintf(out, "*SFC\n%g 1.0\n", tsurf);
3800 if (obsz >= 0)
3801 fprintf(out, "*OBS\n%g\n", obsz);
3802 fprintf(out, "*HIT\n%s\n", ctl->rfmhit);
3803 fprintf(out, "*XSC\n");
3804 for (int ig = 0; ig < ctl->ng; ig++)
3805 if (ctl->rfmxsc[ig][0] != '-')
3806 fprintf(out, "%s\n", ctl->rfmxsc[ig]);
3807 fprintf(out, "*END\n");
3808 fclose(out);
3809
3810 /* Remove temporary files... */
3811 if (system("rm -f rfm.runlog rad_*.asc tra_*.asc"))
3812 ERRMSG("Cannot remove temporary files!");
3813
3814 /* Call RFM... */
3815 sprintf(cmd, "echo | %s", ctl->rfmbin);
3816 if (system(cmd))
3817 ERRMSG("Error while calling RFM!");
3818
3819 /* Read data... */
3820 for (int ir = 0; ir < obs->nr; ir++) {
3821 obs->rad[id][ir] = read_obs_rfm("rad", z[ir], nu, f, n) * 1e-5;
3822 obs->tau[id][ir] = read_obs_rfm("tra", z[ir], nu, f, n);
3823 }
3824 }
3825
3826 /* Remove temporary files... */
3827 if (system("rm -f rfm.drv rfm.atm rfm.runlog rad_*.asc tra_*.asc"))
3828 ERRMSG("Error while removing temporary files!");
3829
3830 /* Free... */
3831 free(los);
3832}
3833
3834/*****************************************************************************/
3835
3836void formod_srcfunc(
3837 const ctl_t *ctl,
3838 const tbl_t *tbl,
3839 const double t,
3840 double *src) {
3841
3842 /* Determine index in temperature array... */
3843 const int it = locate_reg(tbl->st, TBLNS, t);
3844
3845 /* Interpolate Planck function value... */
3846 for (int id = 0; id < ctl->nd; id++)
3847 src[id] = LIN(tbl->st[it], tbl->sr[it][id],
3848 tbl->st[it + 1], tbl->sr[it + 1][id], t);
3849}
3850
3851/*****************************************************************************/
3852
3853void geo2cart(
3854 const double z,
3855 const double lon,
3856 const double lat,
3857 double *x) {
3858
3859 const double radius = z + RE;
3860
3861 const double latrad = lat / 180. * M_PI;
3862 const double lonrad = lon / 180. * M_PI;
3863
3864 const double coslat = cos(latrad);
3865
3866 x[0] = radius * coslat * cos(lonrad);
3867 x[1] = radius * coslat * sin(lonrad);
3868 x[2] = radius * sin(latrad);
3869}
3870
3871/*****************************************************************************/
3872
3873void hydrostatic(
3874 const ctl_t *ctl,
3875 atm_t *atm) {
3876
3877 const double mmair = 28.96456e-3, mmh2o = 18.0153e-3;
3878
3879 const int ipts = 20;
3880
3881 double dzmin = 1e99, e = 0;
3882
3883 int ipref = 0;
3884
3885 /* Check reference height... */
3886 if (ctl->hydz < 0)
3887 return;
3888
3889 /* Find air parcel next to reference height... */
3890 for (int ip = 0; ip < atm->np; ip++)
3891 if (fabs(atm->z[ip] - ctl->hydz) < dzmin) {
3892 dzmin = fabs(atm->z[ip] - ctl->hydz);
3893 ipref = ip;
3894 }
3895
3896 /* Upper part of profile... */
3897 for (int ip = ipref + 1; ip < atm->np; ip++) {
3898 double mean = 0;
3899 for (int i = 0; i < ipts; i++) {
3900 if (ctl->ig_h2o >= 0)
3901 e = LIN(0.0, atm->q[ctl->ig_h2o][ip - 1],
3902 ipts - 1.0, atm->q[ctl->ig_h2o][ip], (double) i);
3903 mean += (e * mmh2o + (1 - e) * mmair)
3904 * G0 / RI
3905 / LIN(0.0, atm->t[ip - 1], ipts - 1.0, atm->t[ip], (double) i) / ipts;
3906 }
3907
3908 /* Compute p(z,T)... */
3909 atm->p[ip] =
3910 exp(log(atm->p[ip - 1]) - mean * 1000 * (atm->z[ip] - atm->z[ip - 1]));
3911 }
3912
3913 /* Lower part of profile... */
3914 for (int ip = ipref - 1; ip >= 0; ip--) {
3915 double mean = 0;
3916 for (int i = 0; i < ipts; i++) {
3917 if (ctl->ig_h2o >= 0)
3918 e = LIN(0.0, atm->q[ctl->ig_h2o][ip + 1],
3919 ipts - 1.0, atm->q[ctl->ig_h2o][ip], (double) i);
3920 mean += (e * mmh2o + (1 - e) * mmair)
3921 * G0 / RI
3922 / LIN(0.0, atm->t[ip + 1], ipts - 1.0, atm->t[ip], (double) i) / ipts;
3923 }
3924
3925 /* Compute p(z,T)... */
3926 atm->p[ip] =
3927 exp(log(atm->p[ip + 1]) - mean * 1000 * (atm->z[ip] - atm->z[ip + 1]));
3928 }
3929}
3930
3931/*****************************************************************************/
3932
3933void idx2name(
3934 const ctl_t *ctl,
3935 const int idx,
3936 char *quantity) {
3937
3938 if (idx == IDXP)
3939 sprintf(quantity, "PRESSURE");
3940
3941 if (idx == IDXT)
3942 sprintf(quantity, "TEMPERATURE");
3943
3944 for (int ig = 0; ig < ctl->ng; ig++)
3945 if (idx == IDXQ(ig))
3946 sprintf(quantity, "%s", ctl->emitter[ig]);
3947
3948 for (int iw = 0; iw < ctl->nw; iw++)
3949 if (idx == IDXK(iw))
3950 sprintf(quantity, "EXTINCT_WINDOW_%d", iw);
3951
3952 if (idx == IDXCLZ)
3953 sprintf(quantity, "CLOUD_HEIGHT");
3954
3955 if (idx == IDXCLDZ)
3956 sprintf(quantity, "CLOUD_DEPTH");
3957
3958 for (int icl = 0; icl < ctl->ncl; icl++)
3959 if (idx == IDXCLK(icl))
3960 sprintf(quantity, "CLOUD_EXTINCT_%.4f", ctl->clnu[icl]);
3961
3962 if (idx == IDXSFT)
3963 sprintf(quantity, "SURFACE_TEMPERATURE");
3964
3965 for (int isf = 0; isf < ctl->nsf; isf++)
3966 if (idx == IDXSFEPS(isf))
3967 sprintf(quantity, "SURFACE_EMISSIVITY_%.4f", ctl->sfnu[isf]);
3968}
3969
3970/*****************************************************************************/
3971
3972void init_srcfunc(
3973 const ctl_t *ctl,
3974 tbl_t *tbl) {
3975
3976 char filename[2 * LEN];
3977
3978 double f[NSHAPE], nu[NSHAPE];
3979
3980 int n;
3981
3982 /* Write info... */
3983 LOG(1, "Initialize source function table...");
3984 LOG(2, "Number of data points: %d", TBLNS);
3985
3986 /* Loop over channels... */
3987 for (int id = 0; id < ctl->nd; id++) {
3988
3989 /* Read filter function... */
3990 sprintf(filename, "%s_%.4f.filt", ctl->tblbase, ctl->nu[id]);
3991 read_shape(filename, nu, f, &n);
3992
3993 /* Get minimum grid spacing... */
3994 double dnu = 1.0;
3995 for (int i = 1; i < n; i++)
3996 dnu = MIN(dnu, nu[i] - nu[i - 1]);
3997
3998 /* Compute source function table... */
3999#pragma omp parallel for default(none) shared(ctl,tbl,id,nu,f,n,dnu)
4000 for (int it = 0; it < TBLNS; it++) {
4001
4002 /* Set temperature... */
4003 tbl->st[it] = LIN(0.0, TMIN, TBLNS - 1.0, TMAX, (double) it);
4004
4005 /* Integrate Planck function... */
4006 double fsum = tbl->sr[it][id] = 0;
4007 for (double fnu = nu[0]; fnu <= nu[n - 1]; fnu += dnu) {
4008 const int i = locate_irr(nu, n, fnu);
4009 const double ff = LIN(nu[i], f[i], nu[i + 1], f[i + 1], fnu);
4010 fsum += ff;
4011 tbl->sr[it][id] += ff * PLANCK(tbl->st[it], fnu);
4012 }
4013 tbl->sr[it][id] /= fsum;
4014 }
4015
4016 /* Write info... */
4017 LOG(2,
4018 "channel= %.4f cm^-1 | T= %g ... %g K | B= %g ... %g W/(m^2 sr cm^-1)",
4019 ctl->nu[id], tbl->st[0], tbl->st[TBLNS - 1], tbl->sr[0][id],
4020 tbl->sr[TBLNS - 1][id]);
4021 }
4022}
4023
4024/*****************************************************************************/
4025
4026void intpol_atm(
4027 const ctl_t *ctl,
4028 const atm_t *atm,
4029 const double z,
4030 double *p,
4031 double *t,
4032 double *q,
4033 double *k) {
4034
4035 /* Get array index... */
4036 const int ip = locate_irr(atm->z, atm->np, z);
4037
4038 /* Interpolate... */
4039 *p = LOGY(atm->z[ip], atm->p[ip], atm->z[ip + 1], atm->p[ip + 1], z);
4040 *t = LIN(atm->z[ip], atm->t[ip], atm->z[ip + 1], atm->t[ip + 1], z);
4041 for (int ig = 0; ig < ctl->ng; ig++)
4042 q[ig] =
4043 LIN(atm->z[ip], atm->q[ig][ip], atm->z[ip + 1], atm->q[ig][ip + 1], z);
4044 for (int iw = 0; iw < ctl->nw; iw++)
4045 k[iw] =
4046 LIN(atm->z[ip], atm->k[iw][ip], atm->z[ip + 1], atm->k[iw][ip + 1], z);
4047}
4048
4049/*****************************************************************************/
4050
4051void intpol_tbl_cga(
4052 const ctl_t *ctl,
4053 const tbl_t *tbl,
4054 const los_t *los,
4055 const int ip,
4056 double tau_path[ND][NG],
4057 double tau_seg[ND]) {
4058
4059 double eps;
4060
4061 /* Loop over channels... */
4062 for (int id = 0; id < ctl->nd; id++) {
4063
4064 /* Initialize... */
4065 tau_seg[id] = 1;
4066
4067 /* Loop over emitters.... */
4068 for (int ig = 0; ig < ctl->ng; ig++) {
4069
4070 /* Check size of table (pressure) and column density... */
4071 if (tbl->np[id][ig] < 30 || los->cgu[ip][ig] <= 0)
4072 eps = 0;
4073
4074 /* Check transmittance... */
4075 else if (tau_path[id][ig] < 1e-9)
4076 eps = 1;
4077
4078 /* Interpolate... */
4079 else {
4080
4081 /* Determine pressure and temperature indices... */
4082 const int ipr =
4083 locate_irr(tbl->p[id][ig], tbl->np[id][ig], los->cgp[ip][ig]);
4084 const int it0 = locate_reg(tbl->t[id][ig][ipr], tbl->nt[id][ig][ipr],
4085 los->cgt[ip][ig]);
4086 const int it1 =
4087 locate_reg(tbl->t[id][ig][ipr + 1], tbl->nt[id][ig][ipr + 1],
4088 los->cgt[ip][ig]);
4089
4090 /* Check size of table (temperature and column density)... */
4091 if (tbl->nt[id][ig][ipr] < 2 || tbl->nt[id][ig][ipr + 1] < 2
4092 || tbl->nu[id][ig][ipr][it0] < 2
4093 || tbl->nu[id][ig][ipr][it0 + 1] < 2
4094 || tbl->nu[id][ig][ipr + 1][it1] < 2
4095 || tbl->nu[id][ig][ipr + 1][it1 + 1] < 2)
4096 eps = 0;
4097
4098 else {
4099
4100 /* Get emissivities of extended path... */
4101 double eps00
4102 = intpol_tbl_eps(tbl, ig, id, ipr, it0, los->cgu[ip][ig]);
4103 double eps01 =
4104 intpol_tbl_eps(tbl, ig, id, ipr, it0 + 1, los->cgu[ip][ig]);
4105 double eps10 =
4106 intpol_tbl_eps(tbl, ig, id, ipr + 1, it1, los->cgu[ip][ig]);
4107 double eps11 =
4108 intpol_tbl_eps(tbl, ig, id, ipr + 1, it1 + 1, los->cgu[ip][ig]);
4109
4110 /* Interpolate with respect to temperature... */
4111 eps00 = LIN(tbl->t[id][ig][ipr][it0], eps00,
4112 tbl->t[id][ig][ipr][it0 + 1], eps01, los->cgt[ip][ig]);
4113 eps11 = LIN(tbl->t[id][ig][ipr + 1][it1], eps10,
4114 tbl->t[id][ig][ipr + 1][it1 + 1],
4115 eps11, los->cgt[ip][ig]);
4116
4117 /* Interpolate with respect to pressure... */
4118 eps00 = LOGX(tbl->p[id][ig][ipr], eps00,
4119 tbl->p[id][ig][ipr + 1], eps11, los->cgp[ip][ig]);
4120
4121 /* Check emissivity range... */
4122 eps00 = MAX(MIN(eps00, 1), 0);
4123
4124 /* Determine segment emissivity... */
4125 eps = 1 - (1 - eps00) / tau_path[id][ig];
4126 }
4127 }
4128
4129 /* Get transmittance of extended path... */
4130 tau_path[id][ig] *= (1 - eps);
4131
4132 /* Get segment transmittance... */
4133 tau_seg[id] *= (1 - eps);
4134 }
4135 }
4136}
4137
4138/*****************************************************************************/
4139
4140void intpol_tbl_ega(
4141 const ctl_t *ctl,
4142 const tbl_t *tbl,
4143 const los_t *los,
4144 const int ip,
4145 double tau_path[ND][NG],
4146 double tau_seg[ND]) {
4147
4148 double eps, u;
4149
4150 /* Loop over channels... */
4151 for (int id = 0; id < ctl->nd; id++) {
4152
4153 /* Initialize... */
4154 tau_seg[id] = 1;
4155
4156 /* Loop over emitters.... */
4157 for (int ig = 0; ig < ctl->ng; ig++) {
4158
4159 /* Check size of table (pressure) and column density... */
4160 if (tbl->np[id][ig] < 30 || los->cgu[ip][ig] <= 0)
4161 eps = 0;
4162
4163 /* Check transmittance... */
4164 else if (tau_path[id][ig] < 1e-9)
4165 eps = 1;
4166
4167 /* Interpolate... */
4168 else {
4169
4170 /* Determine pressure and temperature indices... */
4171 const int ipr =
4172 locate_irr(tbl->p[id][ig], tbl->np[id][ig], los->p[ip]);
4173 const int it0 =
4174 locate_reg(tbl->t[id][ig][ipr], tbl->nt[id][ig][ipr], los->t[ip]);
4175 const int it1 =
4176 locate_reg(tbl->t[id][ig][ipr + 1], tbl->nt[id][ig][ipr + 1],
4177 los->t[ip]);
4178
4179 /* Check size of table (temperature and column density)... */
4180 if (tbl->nt[id][ig][ipr] < 2 || tbl->nt[id][ig][ipr + 1] < 2
4181 || tbl->nu[id][ig][ipr][it0] < 2
4182 || tbl->nu[id][ig][ipr][it0 + 1] < 2
4183 || tbl->nu[id][ig][ipr + 1][it1] < 2
4184 || tbl->nu[id][ig][ipr + 1][it1 + 1] < 2)
4185 eps = 0;
4186
4187 else {
4188
4189 /* Get emissivities of extended path... */
4190 u = intpol_tbl_u(tbl, ig, id, ipr, it0, 1 - tau_path[id][ig]);
4191 double eps00
4192 = intpol_tbl_eps(tbl, ig, id, ipr, it0, u + los->u[ip][ig]);
4193
4194 u = intpol_tbl_u(tbl, ig, id, ipr, it0 + 1, 1 - tau_path[id][ig]);
4195 double eps01 =
4196 intpol_tbl_eps(tbl, ig, id, ipr, it0 + 1, u + los->u[ip][ig]);
4197
4198 u = intpol_tbl_u(tbl, ig, id, ipr + 1, it1, 1 - tau_path[id][ig]);
4199 double eps10 =
4200 intpol_tbl_eps(tbl, ig, id, ipr + 1, it1, u + los->u[ip][ig]);
4201
4202 u =
4203 intpol_tbl_u(tbl, ig, id, ipr + 1, it1 + 1, 1 - tau_path[id][ig]);
4204 double eps11 =
4205 intpol_tbl_eps(tbl, ig, id, ipr + 1, it1 + 1, u + los->u[ip][ig]);
4206
4207 /* Interpolate with respect to temperature... */
4208 eps00 = LIN(tbl->t[id][ig][ipr][it0], eps00,
4209 tbl->t[id][ig][ipr][it0 + 1], eps01, los->t[ip]);
4210 eps11 = LIN(tbl->t[id][ig][ipr + 1][it1], eps10,
4211 tbl->t[id][ig][ipr + 1][it1 + 1], eps11, los->t[ip]);
4212
4213 /* Interpolate with respect to pressure... */
4214 eps00 = LIN(tbl->p[id][ig][ipr], eps00,
4215 tbl->p[id][ig][ipr + 1], eps11, los->p[ip]);
4216
4217 /* Check emissivity range... */
4218 eps00 = MAX(MIN(eps00, 1), 0);
4219
4220 /* Determine segment emissivity... */
4221 eps = 1 - (1 - eps00) / tau_path[id][ig];
4222 }
4223 }
4224
4225 /* Get transmittance of extended path... */
4226 tau_path[id][ig] *= (1 - eps);
4227
4228 /* Get segment transmittance... */
4229 tau_seg[id] *= (1 - eps);
4230 }
4231 }
4232}
4233
4234/*****************************************************************************/
4235
4236inline double intpol_tbl_eps(
4237 const tbl_t *tbl,
4238 const int ig,
4239 const int id,
4240 const int ip,
4241 const int it,
4242 const double u) {
4243
4244 const int nu = tbl->nu[id][ig][ip][it];
4245 const float *u_arr = tbl->u[id][ig][ip][it];
4246 const float *eps_arr = tbl->eps[id][ig][ip][it];
4247
4248 const double u_min = u_arr[0];
4249 const double u_max = u_arr[nu - 1];
4250
4251 /* Lower boundary extrapolation... */
4252 if (u < u_min)
4253 return eps_arr[0] * u / u_min;
4254
4255 /* Upper boundary extrapolation... */
4256 if (u > u_max) {
4257 const double a = log(1.0 - eps_arr[nu - 1]) / u_max;
4258 return 1.0 - exp(a * u);
4259 }
4260
4261 /* Interpolation... */
4262 const int idx = locate_tbl(u_arr, nu, u);
4263 return LIN(u_arr[idx], eps_arr[idx], u_arr[idx + 1], eps_arr[idx + 1], u);
4264}
4265
4266/*****************************************************************************/
4267
4268inline double intpol_tbl_u(
4269 const tbl_t *tbl,
4270 const int ig,
4271 const int id,
4272 const int ip,
4273 const int it,
4274 const double eps) {
4275
4276 const int nu = tbl->nu[id][ig][ip][it];
4277 const float *eps_arr = tbl->eps[id][ig][ip][it];
4278 const float *u_arr = tbl->u[id][ig][ip][it];
4279
4280 const double eps_min = eps_arr[0];
4281 const double eps_max = eps_arr[nu - 1];
4282
4283 /* Lower boundary extrapolation... */
4284 if (eps < eps_min)
4285 return u_arr[0] * eps / eps_min;
4286
4287 /* Upper boundary extrapolation... */
4288 if (eps > eps_max) {
4289 const double a = log(1.0 - eps_max) / u_arr[nu - 1];
4290 return log(1.0 - eps) / a;
4291 }
4292
4293 /* Interpolation... */
4294 const int idx = locate_tbl(eps_arr, nu, eps);
4295 return LIN(eps_arr[idx], u_arr[idx], eps_arr[idx + 1], u_arr[idx + 1], eps);
4296}
4297
4298/*****************************************************************************/
4299
4300void jsec2time(
4301 const double jsec,
4302 int *year,
4303 int *mon,
4304 int *day,
4305 int *hour,
4306 int *min,
4307 int *sec,
4308 double *remain) {
4309
4310 struct tm t0, *t1;
4311
4312 t0.tm_year = 100;
4313 t0.tm_mon = 0;
4314 t0.tm_mday = 1;
4315 t0.tm_hour = 0;
4316 t0.tm_min = 0;
4317 t0.tm_sec = 0;
4318
4319 const time_t jsec0 = (time_t) jsec + timegm(&t0);
4320 t1 = gmtime(&jsec0);
4321
4322 *year = t1->tm_year + 1900;
4323 *mon = t1->tm_mon + 1;
4324 *day = t1->tm_mday;
4325 *hour = t1->tm_hour;
4326 *min = t1->tm_min;
4327 *sec = t1->tm_sec;
4328 *remain = jsec - floor(jsec);
4329}
4330
4331/*****************************************************************************/
4332
4333void kernel(
4334 const ctl_t *ctl,
4335 const tbl_t *tbl,
4336 atm_t *atm,
4337 obs_t *obs,
4338 gsl_matrix *k) {
4339
4340 int *iqa;
4341
4342 /* Get sizes... */
4343 const size_t m = k->size1;
4344 const size_t n = k->size2;
4345
4346 /* Allocate... */
4347 gsl_vector *x0 = gsl_vector_alloc(n);
4348 gsl_vector *yy0 = gsl_vector_alloc(m);
4349 ALLOC(iqa, int,
4350 N);
4351
4352 /* Compute radiance for undisturbed atmospheric data... */
4353 formod(ctl, tbl, atm, obs);
4354
4355 /* Compose vectors... */
4356 atm2x(ctl, atm, x0, iqa, NULL);
4357 obs2y(ctl, obs, yy0, NULL, NULL);
4358
4359 /* Initialize kernel matrix... */
4360 gsl_matrix_set_zero(k);
4361
4362 /* Loop over state vector elements... */
4363#pragma omp parallel for default(none) shared(ctl,tbl,atm,obs,k,x0,yy0,n,m,iqa)
4364 for (size_t j = 0; j < n; j++) {
4365
4366 /* Allocate... */
4367 atm_t *atm1;
4368 obs_t *obs1;
4369 ALLOC(atm1, atm_t, 1);
4370 ALLOC(obs1, obs_t, 1);
4371 gsl_vector *x1 = gsl_vector_alloc(n);
4372 gsl_vector *yy1 = gsl_vector_alloc(m);
4373
4374 /* Set perturbation size... */
4375 double h;
4376 if (iqa[j] == IDXP)
4377 h = MAX(fabs(0.01 * gsl_vector_get(x0, j)), 1e-7);
4378 else if (iqa[j] == IDXT)
4379 h = 1.0;
4380 else if (iqa[j] >= IDXQ(0) && iqa[j] < IDXQ(ctl->ng))
4381 h = MAX(fabs(0.01 * gsl_vector_get(x0, j)), 1e-15);
4382 else if (iqa[j] >= IDXK(0) && iqa[j] < IDXK(ctl->nw))
4383 h = 1e-4;
4384 else if (iqa[j] == IDXCLZ || iqa[j] == IDXCLDZ)
4385 h = 1.0;
4386 else if (iqa[j] >= IDXCLK(0) && iqa[j] < IDXCLK(ctl->ncl))
4387 h = 1e-4;
4388 else if (iqa[j] == IDXSFT)
4389 h = 1.0;
4390 else if (iqa[j] >= IDXSFEPS(0) && iqa[j] < IDXSFEPS(ctl->nsf))
4391 h = 1e-2;
4392 else
4393 ERRMSG("Cannot set perturbation size!");
4394
4395 /* Disturb state vector element... */
4396 gsl_vector_memcpy(x1, x0);
4397 gsl_vector_set(x1, j, gsl_vector_get(x1, j) + h);
4398 copy_atm(ctl, atm1, atm, 0);
4399 copy_obs(ctl, obs1, obs, 0);
4400 x2atm(ctl, x1, atm1);
4401
4402 /* Compute radiance for disturbed atmospheric data... */
4403 formod(ctl, tbl, atm1, obs1);
4404
4405 /* Compose measurement vector for disturbed radiance data... */
4406 obs2y(ctl, obs1, yy1, NULL, NULL);
4407
4408 /* Compute derivatives... */
4409 for (size_t i = 0; i < m; i++)
4410 gsl_matrix_set(k, i, j,
4411 (gsl_vector_get(yy1, i) - gsl_vector_get(yy0, i)) / h);
4412
4413 /* Free... */
4414 gsl_vector_free(x1);
4415 gsl_vector_free(yy1);
4416 free(atm1);
4417 free(obs1);
4418 }
4419
4420 /* Free... */
4421 gsl_vector_free(x0);
4422 gsl_vector_free(yy0);
4423 free(iqa);
4424}
4425
4426/*****************************************************************************/
4427
4428int locate_irr(
4429 const double *xx,
4430 const int n,
4431 const double x) {
4432
4433 int ilo = 0;
4434 int ihi = n - 1;
4435 int i = (ihi + ilo) >> 1;
4436
4437 if (xx[i] < xx[i + 1])
4438 while (ihi > ilo + 1) {
4439 i = (ihi + ilo) >> 1;
4440 if (xx[i] > x)
4441 ihi = i;
4442 else
4443 ilo = i;
4444 } else
4445 while (ihi > ilo + 1) {
4446 i = (ihi + ilo) >> 1;
4447 if (xx[i] <= x)
4448 ihi = i;
4449 else
4450 ilo = i;
4451 }
4452
4453 return ilo;
4454}
4455
4456/*****************************************************************************/
4457
4458int locate_reg(
4459 const double *xx,
4460 const int n,
4461 const double x) {
4462
4463 /* Calculate index... */
4464 const int i = (int) ((x - xx[0]) / (xx[1] - xx[0]));
4465
4466 /* Check range... */
4467 if (i < 0)
4468 return 0;
4469 else if (i > n - 2)
4470 return n - 2;
4471 else
4472 return i;
4473}
4474
4475/*****************************************************************************/
4476
4477inline int locate_tbl(
4478 const float *xx,
4479 const int n,
4480 const double x) {
4481
4482 int ilo = 0;
4483 int ihi = n - 1;
4484 int i = (ihi + ilo) >> 1;
4485
4486 while (ihi > ilo + 1) {
4487 i = (ihi + ilo) >> 1;
4488 if (xx[i] > x)
4489 ihi = i;
4490 else
4491 ilo = i;
4492 }
4493
4494 return ilo;
4495}
4496
4497/*****************************************************************************/
4498
4499void matrix_invert(
4500 gsl_matrix *a) {
4501
4502 size_t diag = 1;
4503
4504 /* Get size... */
4505 const size_t n = a->size1;
4506
4507 /* Check if matrix is diagonal... */
4508 for (size_t i = 0; i < n && diag; i++)
4509 for (size_t j = i + 1; j < n; j++)
4510 if (gsl_matrix_get(a, i, j) != 0) {
4511 diag = 0;
4512 break;
4513 }
4514
4515 /* Quick inversion of diagonal matrix... */
4516 if (diag)
4517 for (size_t i = 0; i < n; i++)
4518 gsl_matrix_set(a, i, i, 1 / gsl_matrix_get(a, i, i));
4519
4520 /* Matrix inversion by means of Cholesky decomposition... */
4521 else {
4522 gsl_linalg_cholesky_decomp(a);
4523 gsl_linalg_cholesky_invert(a);
4524 }
4525}
4526
4527/*****************************************************************************/
4528
4529void matrix_product(
4530 const gsl_matrix *a,
4531 const gsl_vector *b,
4532 const int transpose,
4533 gsl_matrix *c) {
4534
4535 /* Set sizes... */
4536 const size_t m = a->size1;
4537 const size_t n = a->size2;
4538
4539 /* Allocate... */
4540 gsl_matrix *aux = gsl_matrix_alloc(m, n);
4541
4542 /* Compute A^T B A... */
4543 if (transpose == 1) {
4544
4545 /* Compute B^1/2 A... */
4546 for (size_t i = 0; i < m; i++)
4547 for (size_t j = 0; j < n; j++)
4548 gsl_matrix_set(aux, i, j,
4549 gsl_vector_get(b, i) * gsl_matrix_get(a, i, j));
4550
4551 /* Compute A^T B A = (B^1/2 A)^T (B^1/2 A)... */
4552 gsl_blas_dgemm(CblasTrans, CblasNoTrans, 1.0, aux, aux, 0.0, c);
4553 }
4554
4555 /* Compute A B A^T... */
4556 else if (transpose == 2) {
4557
4558 /* Compute A B^1/2... */
4559 for (size_t i = 0; i < m; i++)
4560 for (size_t j = 0; j < n; j++)
4561 gsl_matrix_set(aux, i, j,
4562 gsl_matrix_get(a, i, j) * gsl_vector_get(b, j));
4563
4564 /* Compute A B A^T = (A B^1/2) (A B^1/2)^T... */
4565 gsl_blas_dgemm(CblasNoTrans, CblasTrans, 1.0, aux, aux, 0.0, c);
4566 }
4567
4568 /* Free... */
4569 gsl_matrix_free(aux);
4570}
4571
4572/*****************************************************************************/
4573
4574size_t obs2y(
4575 const ctl_t *ctl,
4576 const obs_t *obs,
4577 gsl_vector *y,
4578 int *ida,
4579 int *ira) {
4580
4581 size_t m = 0;
4582
4583 /* Determine measurement vector... */
4584 for (int ir = 0; ir < obs->nr; ir++)
4585 for (int id = 0; id < ctl->nd; id++)
4586 if (isfinite(obs->rad[id][ir])) {
4587 if (y != NULL)
4588 gsl_vector_set(y, m, obs->rad[id][ir]);
4589 if (ida != NULL)
4590 ida[m] = id;
4591 if (ira != NULL)
4592 ira[m] = ir;
4593 m++;
4594 }
4595
4596 return m;
4597}
4598
4599/*****************************************************************************/
4600
4601void optimal_estimation(
4602 ret_t *ret,
4603 ctl_t *ctl,
4604 tbl_t *tbl,
4605 obs_t *obs_meas,
4606 obs_t *obs_i,
4607 atm_t *atm_apr,
4608 atm_t *atm_i,
4609 double *chisq) {
4610
4611 static int ipa[N], iqa[N];
4612
4613 double disq = 0, lmpar = 0.001;
4614
4615 /* ------------------------------------------------------------
4616 Initialize...
4617 ------------------------------------------------------------ */
4618
4619 /* Get sizes... */
4620 const size_t m = obs2y(ctl, obs_meas, NULL, NULL, NULL);
4621 const size_t n = atm2x(ctl, atm_apr, NULL, iqa, ipa);
4622 if (m == 0 || n == 0) {
4623 WARN("Check problem definition (m = 0 or n = 0)!");
4624 *chisq = GSL_NAN;
4625 return;
4626 }
4627
4628 /* Allocate... */
4629 gsl_matrix *a = gsl_matrix_alloc(n, n);
4630 gsl_matrix *cov = gsl_matrix_alloc(n, n);
4631 gsl_matrix *k_i = gsl_matrix_alloc(m, n);
4632 gsl_matrix *s_a_inv = gsl_matrix_alloc(n, n);
4633
4634 gsl_vector *b = gsl_vector_alloc(n);
4635 gsl_vector *dx = gsl_vector_alloc(n);
4636 gsl_vector *dy = gsl_vector_alloc(m);
4637 gsl_vector *sig_eps_inv = gsl_vector_alloc(m);
4638 gsl_vector *sig_formod = gsl_vector_alloc(m);
4639 gsl_vector *sig_noise = gsl_vector_alloc(m);
4640 gsl_vector *x_a = gsl_vector_alloc(n);
4641 gsl_vector *x_i = gsl_vector_alloc(n);
4642 gsl_vector *x_step = gsl_vector_alloc(n);
4643 gsl_vector *y_aux = gsl_vector_alloc(m);
4644 gsl_vector *y_i = gsl_vector_alloc(m);
4645 gsl_vector *y_m = gsl_vector_alloc(m);
4646
4647 /* Set initial state... */
4648 copy_atm(ctl, atm_i, atm_apr, 0);
4649 copy_obs(ctl, obs_i, obs_meas, 0);
4650 formod(ctl, tbl, atm_i, obs_i);
4651
4652 /* Set state vectors and observation vectors... */
4653 atm2x(ctl, atm_apr, x_a, NULL, NULL);
4654 atm2x(ctl, atm_i, x_i, NULL, NULL);
4655 obs2y(ctl, obs_meas, y_m, NULL, NULL);
4656 obs2y(ctl, obs_i, y_i, NULL, NULL);
4657
4658 /* Set inverse a priori covariance S_a^-1... */
4659 set_cov_apr(ret, ctl, atm_apr, iqa, ipa, s_a_inv);
4660 write_matrix(ret->dir, "matrix_cov_apr.tab", ctl, s_a_inv,
4661 atm_i, obs_i, "x", "x", "r");
4662 matrix_invert(s_a_inv);
4663
4664 /* Get measurement errors... */
4665 set_cov_meas(ret, ctl, obs_meas, sig_noise, sig_formod, sig_eps_inv);
4666
4667 /* Determine dx = x_i - x_a and dy = y - F(x_i) ... */
4668 gsl_vector_memcpy(dx, x_i);
4669 gsl_vector_sub(dx, x_a);
4670 gsl_vector_memcpy(dy, y_m);
4671 gsl_vector_sub(dy, y_i);
4672
4673 /* Compute cost function... */
4674 *chisq = cost_function(dx, dy, s_a_inv, sig_eps_inv);
4675
4676 /* Write info... */
4677 LOG(2, "it= %d / chi^2/m= %g", 0, *chisq);
4678
4679 /* Compute initial kernel... */
4680 kernel(ctl, tbl, atm_i, obs_i, k_i);
4681
4682 /* ------------------------------------------------------------
4683 Levenberg-Marquardt minimization...
4684 ------------------------------------------------------------ */
4685
4686 /* Outer loop... */
4687 for (int it = 1; it <= ret->conv_itmax; it++) {
4688
4689 /* Store current cost function value... */
4690 double chisq_old = *chisq;
4691
4692 /* Compute kernel matrix K_i... */
4693 if (it > 1 && it % ret->kernel_recomp == 0)
4694 kernel(ctl, tbl, atm_i, obs_i, k_i);
4695
4696 /* Compute K_i^T * S_eps^{-1} * K_i ... */
4697 if (it == 1 || it % ret->kernel_recomp == 0)
4698 matrix_product(k_i, sig_eps_inv, 1, cov);
4699
4700 /* Determine b = K_i^T * S_eps^{-1} * dy - S_a^{-1} * dx ... */
4701 for (size_t i = 0; i < m; i++)
4702 gsl_vector_set(y_aux, i, gsl_vector_get(dy, i)
4703 * POW2(gsl_vector_get(sig_eps_inv, i)));
4704 gsl_blas_dgemv(CblasTrans, 1.0, k_i, y_aux, 0.0, b);
4705 gsl_blas_dgemv(CblasNoTrans, -1.0, s_a_inv, dx, 1.0, b);
4706
4707 /* Inner loop... */
4708 for (int it2 = 0; it2 < 20; it2++) {
4709
4710 /* Compute A = (1 + lmpar) * S_a^{-1} + K_i^T * S_eps^{-1} * K_i ... */
4711 gsl_matrix_memcpy(a, s_a_inv);
4712 gsl_matrix_scale(a, 1 + lmpar);
4713 gsl_matrix_add(a, cov);
4714
4715 /* Solve A * x_step = b by means of Cholesky decomposition... */
4716 gsl_linalg_cholesky_decomp(a);
4717 gsl_linalg_cholesky_solve(a, b, x_step);
4718
4719 /* Update atmospheric state... */
4720 gsl_vector_add(x_i, x_step);
4721 copy_atm(ctl, atm_i, atm_apr, 0);
4722 copy_obs(ctl, obs_i, obs_meas, 0);
4723 x2atm(ctl, x_i, atm_i);
4724
4725 /* Check atmospheric state... */
4726 for (int ip = 0; ip < atm_i->np; ip++) {
4727 atm_i->p[ip] = MIN(MAX(atm_i->p[ip], 5e-7), 5e4);
4728 atm_i->t[ip] = MIN(MAX(atm_i->t[ip], 100), 400);
4729 for (int ig = 0; ig < ctl->ng; ig++)
4730 atm_i->q[ig][ip] = MIN(MAX(atm_i->q[ig][ip], 0), 1);
4731 for (int iw = 0; iw < ctl->nw; iw++)
4732 atm_i->k[iw][ip] = MAX(atm_i->k[iw][ip], 0);
4733 }
4734 atm_i->clz = MAX(atm_i->clz, 0);
4735 atm_i->cldz = MAX(atm_i->cldz, 0.1);
4736 for (int icl = 0; icl < ctl->ncl; icl++)
4737 atm_i->clk[icl] = MAX(atm_i->clk[icl], 0);
4738 atm_i->sft = MIN(MAX(atm_i->sft, 100), 400);
4739 for (int isf = 0; isf < ctl->nsf; isf++)
4740 atm_i->sfeps[isf] = MIN(MAX(atm_i->sfeps[isf], 0), 1);
4741
4742 /* Forward calculation... */
4743 formod(ctl, tbl, atm_i, obs_i);
4744 obs2y(ctl, obs_i, y_i, NULL, NULL);
4745
4746 /* Determine dx = x_i - x_a and dy = y - F(x_i) ... */
4747 gsl_vector_memcpy(dx, x_i);
4748 gsl_vector_sub(dx, x_a);
4749 gsl_vector_memcpy(dy, y_m);
4750 gsl_vector_sub(dy, y_i);
4751
4752 /* Compute cost function... */
4753 *chisq = cost_function(dx, dy, s_a_inv, sig_eps_inv);
4754
4755 /* Modify Levenberg-Marquardt parameter... */
4756 if (*chisq > chisq_old) {
4757 lmpar *= 10;
4758 gsl_vector_sub(x_i, x_step);
4759 } else {
4760 lmpar /= 10;
4761 break;
4762 }
4763 }
4764
4765 /* Write info... */
4766 LOG(2, "it= %d / chi^2/m= %g", it, *chisq);
4767
4768 /* Get normalized step size in state space... */
4769 gsl_blas_ddot(x_step, b, &disq);
4770 disq /= (double) n;
4771
4772 /* Convergence test... */
4773 if ((it == 1 || it % ret->kernel_recomp == 0) && disq < ret->conv_dmin)
4774 break;
4775 }
4776
4777 /* ------------------------------------------------------------
4778 Analysis of retrieval results...
4779 ------------------------------------------------------------ */
4780
4781 /* Check if error analysis is requested... */
4782 if (ret->err_ana) {
4783
4784 /* Store results... */
4785 write_atm(ret->dir, "atm_final.tab", ctl, atm_i);
4786 write_obs(ret->dir, "obs_final.tab", ctl, obs_i);
4787 write_matrix(ret->dir, "matrix_kernel.tab", ctl, k_i,
4788 atm_i, obs_i, "y", "x", "r");
4789
4790 /* Allocate... */
4791 gsl_matrix *auxnm = gsl_matrix_alloc(n, m);
4792 gsl_matrix *corr = gsl_matrix_alloc(n, n);
4793 gsl_matrix *gain = gsl_matrix_alloc(n, m);
4794
4795 /* Compute inverse retrieval covariance...
4796 cov^{-1} = S_a^{-1} + K_i^T * S_eps^{-1} * K_i */
4797 matrix_product(k_i, sig_eps_inv, 1, cov);
4798 gsl_matrix_add(cov, s_a_inv);
4799
4800 /* Compute retrieval covariance... */
4801 matrix_invert(cov);
4802 write_matrix(ret->dir, "matrix_cov_ret.tab", ctl, cov,
4803 atm_i, obs_i, "x", "x", "r");
4804 write_stddev("total", ret, ctl, atm_i, cov);
4805
4806 /* Compute correlation matrix... */
4807 for (size_t i = 0; i < n; i++)
4808 for (size_t j = 0; j < n; j++)
4809 gsl_matrix_set(corr, i, j, gsl_matrix_get(cov, i, j)
4810 / sqrt(gsl_matrix_get(cov, i, i))
4811 / sqrt(gsl_matrix_get(cov, j, j)));
4812 write_matrix(ret->dir, "matrix_corr.tab", ctl, corr,
4813 atm_i, obs_i, "x", "x", "r");
4814
4815 /* Compute gain matrix...
4816 G = cov * K^T * S_eps^{-1} */
4817 for (size_t i = 0; i < n; i++)
4818 for (size_t j = 0; j < m; j++)
4819 gsl_matrix_set(auxnm, i, j, gsl_matrix_get(k_i, j, i)
4820 * POW2(gsl_vector_get(sig_eps_inv, j)));
4821 gsl_blas_dgemm(CblasNoTrans, CblasNoTrans, 1.0, cov, auxnm, 0.0, gain);
4822 write_matrix(ret->dir, "matrix_gain.tab", ctl, gain,
4823 atm_i, obs_i, "x", "y", "c");
4824
4825 /* Compute retrieval error due to noise... */
4826 matrix_product(gain, sig_noise, 2, a);
4827 write_stddev("noise", ret, ctl, atm_i, a);
4828
4829 /* Compute retrieval error due to forward model errors... */
4830 matrix_product(gain, sig_formod, 2, a);
4831 write_stddev("formod", ret, ctl, atm_i, a);
4832
4833 /* Compute averaging kernel matrix
4834 A = G * K ... */
4835 gsl_blas_dgemm(CblasNoTrans, CblasNoTrans, 1.0, gain, k_i, 0.0, a);
4836 write_matrix(ret->dir, "matrix_avk.tab", ctl, a,
4837 atm_i, obs_i, "x", "x", "r");
4838
4839 /* Analyze averaging kernel matrix... */
4840 analyze_avk(ret, ctl, atm_i, iqa, ipa, a);
4841
4842 /* Free... */
4843 gsl_matrix_free(auxnm);
4844 gsl_matrix_free(corr);
4845 gsl_matrix_free(gain);
4846 }
4847
4848 /* ------------------------------------------------------------
4849 Finalize...
4850 ------------------------------------------------------------ */
4851
4852 gsl_matrix_free(a);
4853 gsl_matrix_free(cov);
4854 gsl_matrix_free(k_i);
4855 gsl_matrix_free(s_a_inv);
4856
4857 gsl_vector_free(b);
4858 gsl_vector_free(dx);
4859 gsl_vector_free(dy);
4860 gsl_vector_free(sig_eps_inv);
4861 gsl_vector_free(sig_formod);
4862 gsl_vector_free(sig_noise);
4863 gsl_vector_free(x_a);
4864 gsl_vector_free(x_i);
4865 gsl_vector_free(x_step);
4866 gsl_vector_free(y_aux);
4867 gsl_vector_free(y_i);
4868 gsl_vector_free(y_m);
4869}
4870
4871/*****************************************************************************/
4872
4873void raytrace(
4874 const ctl_t *ctl,
4875 const atm_t *atm,
4876 obs_t *obs,
4877 los_t *los,
4878 const int ir) {
4879
4880 const double h = 0.02, zrefrac = 60;
4881
4882 double ex0[3], ex1[3], k[NW], lat, lon, n, ng[3], norm, p, q[NG], t,
4883 x[3], xh[3], xobs[3], xvp[3], z = 1e99, zmax, zmin;
4884
4885 int stop = 0;
4886
4887 /* Initialize... */
4888 los->np = 0;
4889 los->sft = -999;
4890 obs->tpz[ir] = obs->vpz[ir];
4891 obs->tplon[ir] = obs->vplon[ir];
4892 obs->tplat[ir] = obs->vplat[ir];
4893
4894 /* Get altitude range of atmospheric data... */
4895 gsl_stats_minmax(&zmin, &zmax, atm->z, 1, (size_t) atm->np);
4896
4897 /* Ensure that altitude grid includes the local geometric surface... */
4898 if (zmin > 1e-3 || zmin < -1e-3)
4899 ERRMSG("Atmospheric profiles must include surface level (z = 0 km)!");
4900
4901 /* Check observer altitude... */
4902 if (obs->obsz[ir] < zmin)
4903 ERRMSG("Observer below surface!");
4904
4905 /* Check view point altitude... */
4906 if (obs->vpz[ir] > zmax)
4907 return;
4908
4909 /* Determine Cartesian coordinates for observer and view point... */
4910 geo2cart(obs->obsz[ir], obs->obslon[ir], obs->obslat[ir], xobs);
4911 geo2cart(obs->vpz[ir], obs->vplon[ir], obs->vplat[ir], xvp);
4912
4913 /* Determine initial tangent vector... */
4914 for (int i = 0; i < 3; i++)
4915 ex0[i] = xvp[i] - xobs[i];
4916 norm = NORM(ex0);
4917 for (int i = 0; i < 3; i++)
4918 ex0[i] /= norm;
4919
4920 /* Observer within atmosphere... */
4921 for (int i = 0; i < 3; i++)
4922 x[i] = xobs[i];
4923
4924 /* Observer above atmosphere (search entry point)... */
4925 if (obs->obsz[ir] > zmax) {
4926 double dmax = norm, dmin = 0;
4927 while (fabs(dmin - dmax) > 0.001) {
4928 const double d = (dmax + dmin) / 2;
4929 for (int i = 0; i < 3; i++)
4930 x[i] = xobs[i] + d * ex0[i];
4931 cart2geo(x, &z, &lon, &lat);
4932 if (z <= zmax && z > zmax - 0.001)
4933 break;
4934 if (z < zmax - 0.0005)
4935 dmax = d;
4936 else
4937 dmin = d;
4938 }
4939 }
4940
4941 /* Ray-tracing... */
4942 while (1) {
4943
4944 /* Set step length... */
4945 double ds = ctl->rayds;
4946 if (ctl->raydz > 0) {
4947 norm = NORM(x);
4948 for (int i = 0; i < 3; i++)
4949 xh[i] = x[i] / norm;
4950 const double cosa = fabs(DOTP(ex0, xh));
4951 if (cosa != 0)
4952 ds = MIN(ctl->rayds, ctl->raydz / cosa);
4953 }
4954
4955 /* Determine geolocation... */
4956 cart2geo(x, &z, &lon, &lat);
4957
4958 /* Check if LOS hits the ground or has left atmosphere... */
4959 if (z < zmin || z > zmax) {
4960 stop = (z < zmin ? 2 : 1);
4961 const double frac =
4962 ((z <
4963 zmin ? zmin : zmax) - los->z[los->np - 1]) / (z - los->z[los->np -
4964 1]);
4965 geo2cart(los->z[los->np - 1], los->lon[los->np - 1],
4966 los->lat[los->np - 1], xh);
4967 for (int i = 0; i < 3; i++)
4968 x[i] = xh[i] + frac * (x[i] - xh[i]);
4969 cart2geo(x, &z, &lon, &lat);
4970 los->ds[los->np - 1] = ds * frac;
4971 ds = 0;
4972 }
4973
4974 /* Interpolate atmospheric data... */
4975 intpol_atm(ctl, atm, z, &p, &t, q, k);
4976
4977 /* Save data... */
4978 los->lon[los->np] = lon;
4979 los->lat[los->np] = lat;
4980 los->z[los->np] = z;
4981 los->p[los->np] = p;
4982 los->t[los->np] = t;
4983 for (int ig = 0; ig < ctl->ng; ig++)
4984 los->q[los->np][ig] = q[ig];
4985 for (int id = 0; id < ctl->nd; id++)
4986 los->k[los->np][id] = k[ctl->window[id]];
4987 los->ds[los->np] = ds;
4988
4989 /* Add cloud extinction... */
4990 if (ctl->ncl > 0 && atm->cldz > 0) {
4991 const double aux = exp(-0.5 * POW2((z - atm->clz) / atm->cldz));
4992 for (int id = 0; id < ctl->nd; id++) {
4993 const int icl = locate_irr(ctl->clnu, ctl->ncl, ctl->nu[id]);
4994 los->k[los->np][id]
4995 += aux * LIN(ctl->clnu[icl], atm->clk[icl],
4996 ctl->clnu[icl + 1], atm->clk[icl + 1], ctl->nu[id]);
4997 }
4998 }
4999
5000 /* Increment and check number of LOS points... */
5001 if ((++los->np) > NLOS)
5002 ERRMSG("Too many LOS points!");
5003
5004 /* Check stop flag... */
5005 if (stop) {
5006
5007 /* Set surface temperature... */
5008 if (ctl->nsf > 0 && atm->sft > 0)
5009 t = atm->sft;
5010 los->sft = (stop == 2 ? t : -999);
5011
5012 /* Set surface emissivity... */
5013 for (int id = 0; id < ctl->nd; id++) {
5014 los->sfeps[id] = 1.0;
5015 if (ctl->nsf > 0) {
5016 const int isf = locate_irr(ctl->sfnu, ctl->nsf, ctl->nu[id]);
5017 los->sfeps[id] = LIN(ctl->sfnu[isf], atm->sfeps[isf],
5018 ctl->sfnu[isf + 1], atm->sfeps[isf + 1],
5019 ctl->nu[id]);
5020 }
5021 }
5022
5023 /* Leave raytracer... */
5024 break;
5025 }
5026
5027 /* Determine refractivity... */
5028 if (ctl->refrac && z <= zrefrac)
5029 n = 1 + REFRAC(p, t);
5030 else
5031 n = 1;
5032
5033 /* Construct new tangent vector (first term)... */
5034 for (int i = 0; i < 3; i++)
5035 ex1[i] = ex0[i] * n;
5036
5037 /* Compute gradient of refractivity... */
5038 if (ctl->refrac && z <= zrefrac) {
5039 for (int i = 0; i < 3; i++)
5040 xh[i] = x[i] + 0.5 * ds * ex0[i];
5041 cart2geo(xh, &z, &lon, &lat);
5042 intpol_atm(ctl, atm, z, &p, &t, q, k);
5043 n = REFRAC(p, t);
5044 for (int i = 0; i < 3; i++) {
5045 xh[i] += h;
5046 cart2geo(xh, &z, &lon, &lat);
5047 intpol_atm(ctl, atm, z, &p, &t, q, k);
5048 ng[i] = (REFRAC(p, t) - n) / h;
5049 xh[i] -= h;
5050 }
5051 } else
5052 for (int i = 0; i < 3; i++)
5053 ng[i] = 0;
5054
5055 /* Construct new tangent vector (second term)... */
5056 for (int i = 0; i < 3; i++)
5057 ex1[i] += ds * ng[i];
5058
5059 /* Normalize new tangent vector... */
5060 norm = NORM(ex1);
5061 for (int i = 0; i < 3; i++)
5062 ex1[i] /= norm;
5063
5064 /* Determine next point of LOS... */
5065 for (int i = 0; i < 3; i++)
5066 x[i] += 0.5 * ds * (ex0[i] + ex1[i]);
5067
5068 /* Copy tangent vector... */
5069 for (int i = 0; i < 3; i++)
5070 ex0[i] = ex1[i];
5071 }
5072
5073 /* Get tangent point (to be done before changing segment lengths!)... */
5074 tangent_point(los, &obs->tpz[ir], &obs->tplon[ir], &obs->tplat[ir]);
5075
5076 /* Change segment lengths according to trapezoid rule... */
5077 for (int ip = los->np - 1; ip >= 1; ip--)
5078 los->ds[ip] = 0.5 * (los->ds[ip - 1] + los->ds[ip]);
5079 los->ds[0] *= 0.5;
5080
5081 /* Compute column density... */
5082 for (int ip = 0; ip < los->np; ip++)
5083 for (int ig = 0; ig < ctl->ng; ig++)
5084 los->u[ip][ig] = 10 * los->q[ip][ig] * los->p[ip]
5085 / (KB * los->t[ip]) * los->ds[ip];
5086
5087 /* Compute Curtis-Godson means... */
5088 for (int ig = 0; ig < ctl->ng; ig++) {
5089 los->cgu[0][ig] = los->u[0][ig];
5090 los->cgp[0][ig] = los->u[0][ig] * los->p[0];
5091 los->cgt[0][ig] = los->u[0][ig] * los->t[0];
5092 }
5093 for (int ip = 1; ip < los->np; ip++)
5094 for (int ig = 0; ig < ctl->ng; ig++) {
5095 los->cgu[ip][ig] = los->cgu[ip - 1][ig] + los->u[ip][ig];
5096 los->cgp[ip][ig] = los->cgp[ip - 1][ig] + los->u[ip][ig] * los->p[ip];
5097 los->cgt[ip][ig] = los->cgt[ip - 1][ig] + los->u[ip][ig] * los->t[ip];
5098 }
5099 for (int ip = 0; ip < los->np; ip++)
5100 for (int ig = 0; ig < ctl->ng; ig++)
5101 if (los->cgu[ip][ig] != 0) {
5102 los->cgp[ip][ig] /= los->cgu[ip][ig];
5103 los->cgt[ip][ig] /= los->cgu[ip][ig];
5104 }
5105}
5106
5107/*****************************************************************************/
5108
5109void read_atm(
5110 const char *dirname,
5111 const char *filename,
5112 const ctl_t *ctl,
5113 atm_t *atm) {
5114
5115 FILE *in;
5116
5117 char file[LEN];
5118
5119 /* Init... */
5120 atm->np = 0;
5121
5122 /* Set filename... */
5123 if (dirname != NULL)
5124 sprintf(file, "%s/%s", dirname, filename);
5125 else
5126 sprintf(file, "%s", filename);
5127
5128 /* Write info... */
5129 LOG(1, "Read atmospheric data: %s", file);
5130
5131 /* Open file... */
5132 if (!(in = fopen(file, "r")))
5133 ERRMSG("Cannot open file!");
5134
5135 /* Read ASCII data... */
5136 if (ctl->atmfmt == 1)
5137 read_atm_asc(in, ctl, atm);
5138
5139 /* Read binary data... */
5140 else if (ctl->atmfmt == 2)
5141 read_atm_bin(in, ctl, atm);
5142
5143 /* Error... */
5144 else
5145 ERRMSG("Unknown atmospheric data file format, check ATMFMT!");
5146
5147 /* Close file... */
5148 fclose(in);
5149
5150 /* Check number of points... */
5151 if (atm->np < 1)
5152 ERRMSG("Could not read any data!");
5153
5154 /* Write info... */
5155 double mini, maxi;
5156 LOG(2, "Number of data points: %d", atm->np);
5157 gsl_stats_minmax(&mini, &maxi, atm->time, 1, (size_t) atm->np);
5158 LOG(2, "Time range: %.2f ... %.2f s", mini, maxi);
5159 gsl_stats_minmax(&mini, &maxi, atm->z, 1, (size_t) atm->np);
5160 LOG(2, "Altitude range: %g ... %g km", mini, maxi);
5161 gsl_stats_minmax(&mini, &maxi, atm->lon, 1, (size_t) atm->np);
5162 LOG(2, "Longitude range: %g ... %g deg", mini, maxi);
5163 gsl_stats_minmax(&mini, &maxi, atm->lat, 1, (size_t) atm->np);
5164 LOG(2, "Latitude range: %g ... %g deg", mini, maxi);
5165 gsl_stats_minmax(&mini, &maxi, atm->p, 1, (size_t) atm->np);
5166 LOG(2, "Pressure range: %g ... %g hPa", maxi, mini);
5167 gsl_stats_minmax(&mini, &maxi, atm->t, 1, (size_t) atm->np);
5168 LOG(2, "Temperature range: %g ... %g K", mini, maxi);
5169 for (int ig = 0; ig < ctl->ng; ig++) {
5170 gsl_stats_minmax(&mini, &maxi, atm->q[ig], 1, (size_t) atm->np);
5171 LOG(2, "Emitter %s range: %g ... %g ppv", ctl->emitter[ig], mini, maxi);
5172 }
5173 for (int iw = 0; iw < ctl->nw; iw++) {
5174 gsl_stats_minmax(&mini, &maxi, atm->k[iw], 1, (size_t) atm->np);
5175 LOG(2, "Extinction range (window %d): %g ... %g km^-1", iw, mini, maxi);
5176 }
5177 if (ctl->ncl > 0 && atm->np == 0) {
5178 LOG(2, "Cloud layer: z= %g km | dz= %g km | k= %g ... %g km^-1",
5179 atm->clz, atm->cldz, atm->clk[0], atm->clk[ctl->ncl - 1]);
5180 } else
5181 LOG(2, "Cloud layer: none");
5182 if (ctl->nsf > 0 && atm->np == 0) {
5183 LOG(2,
5184 "Surface layer: T_s = %g K | eps= %g ... %g",
5185 atm->sft, atm->sfeps[0], atm->sfeps[ctl->nsf - 1]);
5186 } else
5187 LOG(2, "Surface layer: none");
5188}
5189
5190/*****************************************************************************/
5191
5192void read_atm_asc(
5193 FILE *in,
5194 const ctl_t *ctl,
5195 atm_t *atm) {
5196
5197 char line[LEN], *tok;
5198
5199 /* Init... */
5200 atm->np = 0;
5201
5202 /* Read line... */
5203 while (fgets(line, LEN, in)) {
5204
5205 /* Read data... */
5206 TOK(line, tok, "%lg", atm->time[atm->np]);
5207 TOK(NULL, tok, "%lg", atm->z[atm->np]);
5208 TOK(NULL, tok, "%lg", atm->lon[atm->np]);
5209 TOK(NULL, tok, "%lg", atm->lat[atm->np]);
5210 TOK(NULL, tok, "%lg", atm->p[atm->np]);
5211 TOK(NULL, tok, "%lg", atm->t[atm->np]);
5212 for (int ig = 0; ig < ctl->ng; ig++)
5213 TOK(NULL, tok, "%lg", atm->q[ig][atm->np]);
5214 for (int iw = 0; iw < ctl->nw; iw++)
5215 TOK(NULL, tok, "%lg", atm->k[iw][atm->np]);
5216 if (ctl->ncl > 0 && atm->np == 0) {
5217 TOK(NULL, tok, "%lg", atm->clz);
5218 TOK(NULL, tok, "%lg", atm->cldz);
5219 for (int icl = 0; icl < ctl->ncl; icl++)
5220 TOK(NULL, tok, "%lg", atm->clk[icl]);
5221 }
5222 if (ctl->nsf > 0 && atm->np == 0) {
5223 TOK(NULL, tok, "%lg", atm->sft);
5224 for (int isf = 0; isf < ctl->nsf; isf++)
5225 TOK(NULL, tok, "%lg", atm->sfeps[isf]);
5226 }
5227
5228 /* Increment data point counter... */
5229 if ((++atm->np) > NP)
5230 ERRMSG("Too many data points!");
5231 }
5232}
5233
5234/*****************************************************************************/
5235
5236void read_atm_bin(
5237 FILE *in,
5238 const ctl_t *ctl,
5239 atm_t *atm) {
5240
5241 /* Read header... */
5242 char magic[4];
5243 FREAD(magic, char,
5244 4,
5245 in);
5246 if (memcmp(magic, "ATM1", 4) != 0)
5247 ERRMSG("Invalid magic string!");
5248
5249 int ng, nw, ncl, nsf;
5250 FREAD(&ng, int,
5251 1,
5252 in);
5253 FREAD(&nw, int,
5254 1,
5255 in);
5256 FREAD(&ncl, int,
5257 1,
5258 in);
5259 FREAD(&nsf, int,
5260 1,
5261 in);
5262 if (ng != ctl->ng || nw != ctl->nw || ncl != ctl->ncl || nsf != ctl->nsf)
5263 ERRMSG("Error reading file header!");
5264
5265 /* Read data... */
5266 size_t np;
5267 FREAD(&np, size_t,
5268 1,
5269 in);
5270 atm->np = (int) np;
5271 if (atm->np > NP)
5272 ERRMSG("Too many data points!");
5273 FREAD(atm->time, double,
5274 np,
5275 in);
5276 FREAD(atm->z, double,
5277 np,
5278 in);
5279 FREAD(atm->lon, double,
5280 np,
5281 in);
5282 FREAD(atm->lat, double,
5283 np,
5284 in);
5285 FREAD(atm->p, double,
5286 np,
5287 in);
5288 FREAD(atm->t, double,
5289 np,
5290 in);
5291 for (int ig = 0; ig < ctl->ng; ig++)
5292 FREAD(atm->q[ig], double,
5293 np,
5294 in);
5295 for (int iw = 0; iw < ctl->nw; iw++)
5296 FREAD(atm->k[iw], double,
5297 np,
5298 in);
5299 if (ctl->ncl > 0) {
5300 FREAD(&atm->clz, double,
5301 1,
5302 in);
5303 FREAD(&atm->cldz, double,
5304 1,
5305 in);
5306 FREAD(atm->clk, double,
5307 (size_t) ctl->ncl,
5308 in);
5309 }
5310 if (ctl->nsf) {
5311 FREAD(&atm->sft, double,
5312 1,
5313 in);
5314 FREAD(atm->sfeps, double,
5315 (size_t) ctl->nsf,
5316 in);
5317 }
5318}
5319
5320/*****************************************************************************/
5321
5322void read_ctl(
5323 int argc,
5324 char *argv[],
5325 ctl_t *ctl) {
5326
5327 /* Write info... */
5328 LOG(1, "\nJuelich Rapid Spectral Simulation Code (JURASSIC)\n"
5329 "(executable: %s | version: %s | compiled: %s, %s)\n",
5330 argv[0], VERSION, __DATE__, __TIME__);
5331
5332 /* Emitters... */
5333 ctl->ng = (int) scan_ctl(argc, argv, "NG", -1, "0", NULL);
5334 if (ctl->ng < 0 || ctl->ng > NG)
5335 ERRMSG("Set 0 <= NG <= MAX!");
5336 for (int ig = 0; ig < ctl->ng; ig++)
5337 scan_ctl(argc, argv, "EMITTER", ig, "", ctl->emitter[ig]);
5338 ctl->ig_co2 = find_emitter(ctl, "CO2");
5339 ctl->ig_h2o = find_emitter(ctl, "H2O");
5340 ctl->ig_n2 = find_emitter(ctl, "N2");
5341 ctl->ig_o2 = find_emitter(ctl, "O2");
5342
5343 /* Radiance channels... */
5344 ctl->nd = (int) scan_ctl(argc, argv, "ND", -1, "0", NULL);
5345 if (ctl->nd < 0 || ctl->nd > ND)
5346 ERRMSG("Set 0 <= ND <= MAX!");
5347 for (int id = 0; id < ctl->nd; id++)
5348 ctl->nu[id] = scan_ctl(argc, argv, "NU", id, "", NULL);
5349
5350 /* Spectral windows... */
5351 ctl->nw = (int) scan_ctl(argc, argv, "NW", -1, "1", NULL);
5352 if (ctl->nw < 0 || ctl->nw > NW)
5353 ERRMSG("Set 0 <= NW <= MAX!");
5354 for (int id = 0; id < ctl->nd; id++)
5355 ctl->window[id] = (int) scan_ctl(argc, argv, "WINDOW", id, "0", NULL);
5356
5357 /* Cloud data... */
5358 ctl->ncl = (int) scan_ctl(argc, argv, "NCL", -1, "0", NULL);
5359 if (ctl->ncl < 0 || ctl->ncl > NCL)
5360 ERRMSG("Set 0 <= NCL <= MAX!");
5361 if (ctl->ncl == 1)
5362 ERRMSG("Set NCL > 1!");
5363 for (int icl = 0; icl < ctl->ncl; icl++)
5364 ctl->clnu[icl] = scan_ctl(argc, argv, "CLNU", icl, "", NULL);
5365
5366 /* Surface data... */
5367 ctl->nsf = (int) scan_ctl(argc, argv, "NSF", -1, "0", NULL);
5368 if (ctl->nsf < 0 || ctl->nsf > NSF)
5369 ERRMSG("Set 0 <= NSF <= MAX!");
5370 if (ctl->nsf == 1)
5371 ERRMSG("Set NSF > 1!");
5372 for (int isf = 0; isf < ctl->nsf; isf++)
5373 ctl->sfnu[isf] = scan_ctl(argc, argv, "SFNU", isf, "", NULL);
5374 ctl->sftype = (int) scan_ctl(argc, argv, "SFTYPE", -1, "2", NULL);
5375 if (ctl->sftype < 0 || ctl->sftype > 3)
5376 ERRMSG("Set 0 <= SFTYPE <= 3!");
5377 ctl->sfsza = scan_ctl(argc, argv, "SFSZA", -1, "-999", NULL);
5378
5379 /* Emissivity look-up tables... */
5380 scan_ctl(argc, argv, "TBLBASE", -1, "-", ctl->tblbase);
5381 ctl->tblfmt = (int) scan_ctl(argc, argv, "TBLFMT", -1, "1", NULL);
5382
5383 /* File formats... */
5384 ctl->atmfmt = (int) scan_ctl(argc, argv, "ATMFMT", -1, "1", NULL);
5385 ctl->obsfmt = (int) scan_ctl(argc, argv, "OBSFMT", -1, "1", NULL);
5386
5387 /* Hydrostatic equilibrium... */
5388 ctl->hydz = scan_ctl(argc, argv, "HYDZ", -1, "-999", NULL);
5389
5390 /* Continua... */
5391 ctl->ctm_co2 = (int) scan_ctl(argc, argv, "CTM_CO2", -1, "1", NULL);
5392 ctl->ctm_h2o = (int) scan_ctl(argc, argv, "CTM_H2O", -1, "1", NULL);
5393 ctl->ctm_n2 = (int) scan_ctl(argc, argv, "CTM_N2", -1, "1", NULL);
5394 ctl->ctm_o2 = (int) scan_ctl(argc, argv, "CTM_O2", -1, "1", NULL);
5395
5396 /* Ray-tracing... */
5397 ctl->refrac = (int) scan_ctl(argc, argv, "REFRAC", -1, "1", NULL);
5398 ctl->rayds = scan_ctl(argc, argv, "RAYDS", -1, "10", NULL);
5399 ctl->raydz = scan_ctl(argc, argv, "RAYDZ", -1, "0.1", NULL);
5400
5401 /* Field of view... */
5402 scan_ctl(argc, argv, "FOV", -1, "-", ctl->fov);
5403 if (ctl->fov[0] != '-')
5404 read_shape(ctl->fov, ctl->fov_dz, ctl->fov_w, &ctl->fov_n);
5405
5406 /* Retrieval interface... */
5407 ctl->retp_zmin = scan_ctl(argc, argv, "RETP_ZMIN", -1, "-999", NULL);
5408 ctl->retp_zmax = scan_ctl(argc, argv, "RETP_ZMAX", -1, "-999", NULL);
5409 ctl->rett_zmin = scan_ctl(argc, argv, "RETT_ZMIN", -1, "-999", NULL);
5410 ctl->rett_zmax = scan_ctl(argc, argv, "RETT_ZMAX", -1, "-999", NULL);
5411 for (int ig = 0; ig < ctl->ng; ig++) {
5412 ctl->retq_zmin[ig] = scan_ctl(argc, argv, "RETQ_ZMIN", ig, "-999", NULL);
5413 ctl->retq_zmax[ig] = scan_ctl(argc, argv, "RETQ_ZMAX", ig, "-999", NULL);
5414 }
5415 for (int iw = 0; iw < ctl->nw; iw++) {
5416 ctl->retk_zmin[iw] = scan_ctl(argc, argv, "RETK_ZMIN", iw, "-999", NULL);
5417 ctl->retk_zmax[iw] = scan_ctl(argc, argv, "RETK_ZMAX", iw, "-999", NULL);
5418 }
5419 ctl->ret_clz = (int) scan_ctl(argc, argv, "RET_CLZ", -1, "0", NULL);
5420 ctl->ret_cldz = (int) scan_ctl(argc, argv, "RET_CLDZ", -1, "0", NULL);
5421 ctl->ret_clk = (int) scan_ctl(argc, argv, "RET_CLK", -1, "0", NULL);
5422 ctl->ret_sft = (int) scan_ctl(argc, argv, "RET_SFT", -1, "0", NULL);
5423 ctl->ret_sfeps = (int) scan_ctl(argc, argv, "RET_SFEPS", -1, "0", NULL);
5424
5425 /* Output flags... */
5426 ctl->write_bbt = (int) scan_ctl(argc, argv, "WRITE_BBT", -1, "0", NULL);
5427 ctl->write_matrix =
5428 (int) scan_ctl(argc, argv, "WRITE_MATRIX", -1, "0", NULL);
5429
5430 /* External forward models... */
5431 ctl->formod = (int) scan_ctl(argc, argv, "FORMOD", -1, "1", NULL);
5432 scan_ctl(argc, argv, "RFMBIN", -1, "-", ctl->rfmbin);
5433 scan_ctl(argc, argv, "RFMHIT", -1, "-", ctl->rfmhit);
5434 for (int ig = 0; ig < ctl->ng; ig++)
5435 scan_ctl(argc, argv, "RFMXSC", ig, "-", ctl->rfmxsc[ig]);
5436}
5437
5438/*****************************************************************************/
5439
5440void read_matrix(
5441 const char *dirname,
5442 const char *filename,
5443 gsl_matrix *matrix) {
5444
5445 FILE *in;
5446
5447 char dum[LEN], file[LEN], line[LEN];
5448
5449 double value;
5450
5451 int i, j;
5452
5453 /* Set filename... */
5454 if (dirname != NULL)
5455 sprintf(file, "%s/%s", dirname, filename);
5456 else
5457 sprintf(file, "%s", filename);
5458
5459 /* Write info... */
5460 LOG(1, "Read matrix: %s", file);
5461
5462 /* Open file... */
5463 if (!(in = fopen(file, "r")))
5464 ERRMSG("Cannot open file!");
5465
5466 /* Read data... */
5467 gsl_matrix_set_zero(matrix);
5468 while (fgets(line, LEN, in))
5469 if (sscanf(line, "%d %s %s %s %s %s %d %s %s %s %s %s %lg",
5470 &i, dum, dum, dum, dum, dum,
5471 &j, dum, dum, dum, dum, dum, &value) == 13)
5472 gsl_matrix_set(matrix, (size_t) i, (size_t) j, value);
5473
5474 /* Close file... */
5475 fclose(in);
5476}
5477
5478/*****************************************************************************/
5479
5480void read_obs(
5481 const char *dirname,
5482 const char *filename,
5483 const ctl_t *ctl,
5484 obs_t *obs) {
5485
5486 FILE *in;
5487
5488 char file[LEN];
5489
5490 /* Set filename... */
5491 if (dirname != NULL)
5492 sprintf(file, "%s/%s", dirname, filename);
5493 else
5494 sprintf(file, "%s", filename);
5495
5496 /* Write info... */
5497 LOG(1, "Read observation data: %s", file);
5498
5499 /* Open file... */
5500 if (!(in = fopen(file, "r")))
5501 ERRMSG("Cannot open file!");
5502
5503 /* Read ASCII data... */
5504 if (ctl->obsfmt == 1)
5505 read_obs_asc(in, ctl, obs);
5506
5507 /* Read binary data... */
5508 else if (ctl->obsfmt == 2)
5509 read_obs_bin(in, ctl, obs);
5510
5511 /* Error... */
5512 else
5513 ERRMSG("Unknown observation file format!");
5514
5515 /* Close file... */
5516 fclose(in);
5517
5518 /* Check number of points... */
5519 if (obs->nr < 1)
5520 ERRMSG("Could not read any data!");
5521
5522 /* Write info... */
5523 double mini, maxi;
5524 LOG(2, "Number of ray paths: %d", obs->nr);
5525 gsl_stats_minmax(&mini, &maxi, obs->time, 1, (size_t) obs->nr);
5526 LOG(2, "Time range: %.2f ... %.2f s", mini, maxi);
5527 gsl_stats_minmax(&mini, &maxi, obs->obsz, 1, (size_t) obs->nr);
5528 LOG(2, "Observer altitude range: %g ... %g km", mini, maxi);
5529 gsl_stats_minmax(&mini, &maxi, obs->obslon, 1, (size_t) obs->nr);
5530 LOG(2, "Observer longitude range: %g ... %g deg", mini, maxi);
5531 gsl_stats_minmax(&mini, &maxi, obs->obslat, 1, (size_t) obs->nr);
5532 LOG(2, "Observer latitude range: %g ... %g deg", mini, maxi);
5533 gsl_stats_minmax(&mini, &maxi, obs->vpz, 1, (size_t) obs->nr);
5534 LOG(2, "View point altitude range: %g ... %g km", mini, maxi);
5535 gsl_stats_minmax(&mini, &maxi, obs->vplon, 1, (size_t) obs->nr);
5536 LOG(2, "View point longitude range: %g ... %g deg", mini, maxi);
5537 gsl_stats_minmax(&mini, &maxi, obs->vplat, 1, (size_t) obs->nr);
5538 LOG(2, "View point latitude range: %g ... %g deg", mini, maxi);
5539 gsl_stats_minmax(&mini, &maxi, obs->tpz, 1, (size_t) obs->nr);
5540 LOG(2, "Tangent point altitude range: %g ... %g km", mini, maxi);
5541 gsl_stats_minmax(&mini, &maxi, obs->tplon, 1, (size_t) obs->nr);
5542 LOG(2, "Tangent point longitude range: %g ... %g deg", mini, maxi);
5543 gsl_stats_minmax(&mini, &maxi, obs->tplat, 1, (size_t) obs->nr);
5544 LOG(2, "Tangent point latitude range: %g ... %g deg", mini, maxi);
5545 for (int id = 0; id < ctl->nd; id++) {
5546 gsl_stats_minmax(&mini, &maxi, obs->rad[id], 1, (size_t) obs->nr);
5547 if (ctl->write_bbt) {
5548 LOG(2, "Brightness temperature (%.4f cm^-1) range: %g ... %g K",
5549 ctl->nu[id], mini, maxi);
5550 } else {
5551 LOG(2, "Radiance (%.4f cm^-1) range: %g ... %g W/(m^2 sr cm^-1)",
5552 ctl->nu[id], mini, maxi);
5553 }
5554 }
5555 for (int id = 0; id < ctl->nd; id++) {
5556 gsl_stats_minmax(&mini, &maxi, obs->tau[id], 1, (size_t) obs->nr);
5557 if (ctl->write_bbt) {
5558 LOG(2, "Transmittance (%.4f cm^-1) range: %g ... %g",
5559 ctl->nu[id], mini, maxi);
5560 }
5561 }
5562}
5563
5564/*****************************************************************************/
5565
5566void read_obs_asc(
5567 FILE *in,
5568 const ctl_t *ctl,
5569 obs_t *obs) {
5570
5571 char line[LEN], *tok;
5572
5573 /* Init... */
5574 obs->nr = 0;
5575
5576 /* Read line... */
5577 while (fgets(line, LEN, in)) {
5578
5579 /* Read data... */
5580 TOK(line, tok, "%lg", obs->time[obs->nr]);
5581 TOK(NULL, tok, "%lg", obs->obsz[obs->nr]);
5582 TOK(NULL, tok, "%lg", obs->obslon[obs->nr]);
5583 TOK(NULL, tok, "%lg", obs->obslat[obs->nr]);
5584 TOK(NULL, tok, "%lg", obs->vpz[obs->nr]);
5585 TOK(NULL, tok, "%lg", obs->vplon[obs->nr]);
5586 TOK(NULL, tok, "%lg", obs->vplat[obs->nr]);
5587 TOK(NULL, tok, "%lg", obs->tpz[obs->nr]);
5588 TOK(NULL, tok, "%lg", obs->tplon[obs->nr]);
5589 TOK(NULL, tok, "%lg", obs->tplat[obs->nr]);
5590 for (int id = 0; id < ctl->nd; id++)
5591 TOK(NULL, tok, "%lg", obs->rad[id][obs->nr]);
5592 for (int id = 0; id < ctl->nd; id++)
5593 TOK(NULL, tok, "%lg", obs->tau[id][obs->nr]);
5594
5595 /* Increment counter... */
5596 if ((++obs->nr) > NR)
5597 ERRMSG("Too many rays!");
5598 }
5599}
5600
5601/*****************************************************************************/
5602
5603void read_obs_bin(
5604 FILE *in,
5605 const ctl_t *ctl,
5606 obs_t *obs) {
5607
5608 /* Read header... */
5609 char magic[4];
5610 FREAD(magic, char,
5611 4,
5612 in);
5613 if (memcmp(magic, "OBS1", 4) != 0)
5614 ERRMSG("Invalid magic string!");
5615
5616 int nd;
5617 FREAD(&nd, int,
5618 1,
5619 in);
5620 if (nd != ctl->nd)
5621 ERRMSG("Error reading file header!");
5622
5623 /* Read data... */
5624 size_t nr;
5625 FREAD(&nr, size_t,
5626 1,
5627 in);
5628 obs->nr = (int) nr;
5629 if (obs->nr > NR)
5630 ERRMSG("Too many ray paths!");
5631 FREAD(obs->time, double,
5632 nr,
5633 in);
5634 FREAD(obs->obsz, double,
5635 nr,
5636 in);
5637 FREAD(obs->obslon, double,
5638 nr,
5639 in);
5640 FREAD(obs->obslat, double,
5641 nr,
5642 in);
5643 FREAD(obs->vpz, double,
5644 nr,
5645 in);
5646 FREAD(obs->vplon, double,
5647 nr,
5648 in);
5649 FREAD(obs->vplat, double,
5650 nr,
5651 in);
5652 FREAD(obs->tpz, double,
5653 nr,
5654 in);
5655 FREAD(obs->tplon, double,
5656 nr,
5657 in);
5658 FREAD(obs->tplat, double,
5659 nr,
5660 in);
5661 for (int id = 0; id < ctl->nd; id++)
5662 FREAD(obs->rad[id], double,
5663 nr,
5664 in);
5665 for (int id = 0; id < ctl->nd; id++)
5666 FREAD(obs->tau[id], double,
5667 nr,
5668 in);
5669}
5670
5671/*****************************************************************************/
5672
5673double read_obs_rfm(
5674 const char *basename,
5675 const double z,
5676 const double *nu,
5677 const double *f,
5678 const int n) {
5679
5680 FILE *in;
5681
5682 char filename[LEN];
5683
5684 double filt, fsum = 0, nu2[NSHAPE], *nurfm, *rad, radsum = 0;
5685
5686 int npts;
5687
5688 /* Allocate... */
5689 ALLOC(nurfm, double,
5690 RFMNPTS);
5691 ALLOC(rad, double,
5692 RFMNPTS);
5693
5694 /* Search RFM spectrum... */
5695 sprintf(filename, "%s_%05d.asc", basename, (int) (z * 1000));
5696 if (!(in = fopen(filename, "r"))) {
5697 sprintf(filename, "%s_%05d.asc", basename, (int) (z * 1000) + 1);
5698 if (!(in = fopen(filename, "r")))
5699 ERRMSG("Cannot find RFM data file!");
5700 }
5701 fclose(in);
5702
5703 /* Read RFM spectrum... */
5704 read_rfm_spec(filename, nurfm, rad, &npts);
5705
5706 /* Set wavenumbers... */
5707 nu2[0] = nu[0];
5708 nu2[n - 1] = nu[n - 1];
5709 for (int i = 1; i < n - 1; i++)
5710 nu2[i] = LIN(0.0, nu2[0], n - 1.0, nu2[n - 1], i);
5711
5712 /* Convolute... */
5713 for (int ipts = 0; ipts < npts; ipts++)
5714 if (nurfm[ipts] >= nu2[0] && nurfm[ipts] <= nu2[n - 1]) {
5715 const int idx = locate_irr(nu2, n, nurfm[ipts]);
5716 filt = LIN(nu2[idx], f[idx], nu2[idx + 1], f[idx + 1], nurfm[ipts]);
5717 fsum += filt;
5718 radsum += filt * rad[ipts];
5719 }
5720
5721 /* Free... */
5722 free(nurfm);
5723 free(rad);
5724
5725 /* Return radiance... */
5726 return radsum / fsum;
5727}
5728
5729/*****************************************************************************/
5730
5731void read_ret(
5732 int argc,
5733 char *argv[],
5734 const ctl_t *ctl,
5735 ret_t *ret) {
5736
5737 /* Iteration control... */
5738 ret->kernel_recomp =
5739 (int) scan_ctl(argc, argv, "KERNEL_RECOMP", -1, "3", NULL);
5740 ret->conv_itmax = (int) scan_ctl(argc, argv, "CONV_ITMAX", -1, "30", NULL);
5741 ret->conv_dmin = scan_ctl(argc, argv, "CONV_DMIN", -1, "0.1", NULL);
5742
5743 /* Error analysis... */
5744 ret->err_ana = (int) scan_ctl(argc, argv, "ERR_ANA", -1, "0", NULL);
5745
5746 for (int id = 0; id < ctl->nd; id++)
5747 ret->err_formod[id] = scan_ctl(argc, argv, "ERR_FORMOD", id, "0", NULL);
5748
5749 for (int id = 0; id < ctl->nd; id++)
5750 ret->err_noise[id] = scan_ctl(argc, argv, "ERR_NOISE", id, "0", NULL);
5751
5752 ret->err_press = scan_ctl(argc, argv, "ERR_PRESS", -1, "0", NULL);
5753 ret->err_press_cz = scan_ctl(argc, argv, "ERR_PRESS_CZ", -1, "-999", NULL);
5754 ret->err_press_ch = scan_ctl(argc, argv, "ERR_PRESS_CH", -1, "-999", NULL);
5755
5756 ret->err_temp = scan_ctl(argc, argv, "ERR_TEMP", -1, "0", NULL);
5757 ret->err_temp_cz = scan_ctl(argc, argv, "ERR_TEMP_CZ", -1, "-999", NULL);
5758 ret->err_temp_ch = scan_ctl(argc, argv, "ERR_TEMP_CH", -1, "-999", NULL);
5759
5760 for (int ig = 0; ig < ctl->ng; ig++) {
5761 ret->err_q[ig] = scan_ctl(argc, argv, "ERR_Q", ig, "0", NULL);
5762 ret->err_q_cz[ig] = scan_ctl(argc, argv, "ERR_Q_CZ", ig, "-999", NULL);
5763 ret->err_q_ch[ig] = scan_ctl(argc, argv, "ERR_Q_CH", ig, "-999", NULL);
5764 }
5765
5766 for (int iw = 0; iw < ctl->nw; iw++) {
5767 ret->err_k[iw] = scan_ctl(argc, argv, "ERR_K", iw, "0", NULL);
5768 ret->err_k_cz[iw] = scan_ctl(argc, argv, "ERR_K_CZ", iw, "-999", NULL);
5769 ret->err_k_ch[iw] = scan_ctl(argc, argv, "ERR_K_CH", iw, "-999", NULL);
5770 }
5771
5772 ret->err_clz = scan_ctl(argc, argv, "ERR_CLZ", -1, "0", NULL);
5773 ret->err_cldz = scan_ctl(argc, argv, "ERR_CLDZ", -1, "0", NULL);
5774 for (int icl = 0; icl < ctl->ncl; icl++)
5775 ret->err_clk[icl] = scan_ctl(argc, argv, "ERR_CLK", icl, "0", NULL);
5776
5777 ret->err_sft = scan_ctl(argc, argv, "ERR_SFT", -1, "0", NULL);
5778 for (int isf = 0; isf < ctl->nsf; isf++)
5779 ret->err_sfeps[isf] = scan_ctl(argc, argv, "ERR_SFEPS", isf, "0", NULL);
5780}
5781
5782/*****************************************************************************/
5783
5784void read_rfm_spec(
5785 const char *filename,
5786 double *nu,
5787 double *rad,
5788 int *npts) {
5789
5790 FILE *in;
5791
5792 char *line = NULL, *tok;
5793
5794 size_t line_buf_size = 0;
5795
5796 double dnu, nu0, nu1;
5797
5798 int ipts = 0;
5799
5800 /* Write info... */
5801 LOG(1, "Read RFM data: %s", filename);
5802
5803 /* Open file... */
5804 if (!(in = fopen(filename, "r")))
5805 ERRMSG("Cannot open file!");
5806
5807 /* Read header... */
5808 for (int i = 0; i < 4; i++)
5809 if (getline(&line, &line_buf_size, in) == -1)
5810 ERRMSG("Error while reading file header!");
5811 if (sscanf(line, "%d %lg %lg %lg", npts, &nu0, &dnu, &nu1) != 4)
5812 ERRMSG("Invalid spectrum header format!");
5813
5814 /* Check number of spectral grid points... */
5815 if (*npts > RFMNPTS)
5816 ERRMSG("Too many spectral grid points!");
5817
5818 /* Read radiance data... */
5819 while (getline(&line, &line_buf_size, in) != -1 && ipts < *npts) {
5820 tok = strtok(line, " \t\n");
5821 while (tok != NULL && ipts < *npts) {
5822 if (sscanf(tok, "%lg", &rad[ipts]) == 1)
5823 ipts++;
5824 tok = strtok(NULL, " \t\n");
5825 }
5826 }
5827
5828 /* Check number of spectral grid points... */
5829 if (ipts != *npts)
5830 ERRMSG("Error while reading RFM data!");
5831
5832 /* Compute wavenumbers... */
5833 for (ipts = 0; ipts < *npts; ipts++)
5834 nu[ipts] = LIN(0.0, nu0, (double) (*npts - 1), nu1, (double) ipts);
5835
5836 /* Close file... */
5837 fclose(in);
5838
5839 /* Free.. */
5840 free(line);
5841}
5842
5843/*****************************************************************************/
5844
5845void read_shape(
5846 const char *filename,
5847 double *x,
5848 double *y,
5849 int *n) {
5850
5851 FILE *in;
5852
5853 char line[LEN];
5854
5855 /* Write info... */
5856 LOG(1, "Read shape function: %s", filename);
5857
5858 /* Open file... */
5859 if (!(in = fopen(filename, "r")))
5860 ERRMSG("Cannot open file!");
5861
5862 /* Read data... */
5863 *n = 0;
5864 while (fgets(line, LEN, in))
5865 if (sscanf(line, "%lg %lg", &x[*n], &y[*n]) == 2)
5866 if ((++(*n)) > NSHAPE)
5867 ERRMSG("Too many data points!");
5868
5869 /* Close file... */
5870 fclose(in);
5871
5872 /* Check number of data points... */
5873 if (*n < 2)
5874 ERRMSG("Could not read any data!");
5875
5876 /* Write info... */
5877 double mini, maxi;
5878 LOG(2, "Number of data points: %d", *n);
5879 gsl_stats_minmax(&mini, &maxi, x, 1, (size_t) *n);
5880 LOG(2, "Range of x values: %.4f ... %.4f", mini, maxi);
5881 gsl_stats_minmax(&mini, &maxi, y, 1, (size_t) *n);
5882 LOG(2, "Range of y values: %g ... %g", mini, maxi);
5883}
5884
5885/*****************************************************************************/
5886
5887tbl_t *read_tbl(
5888 const ctl_t *ctl) {
5889
5890 /* Allocate... */
5891 tbl_t *tbl;
5892 ALLOC(tbl, tbl_t, 1);
5893
5894 /* Loop over trace gases and channels... */
5895 for (int id = 0; id < ctl->nd; id++)
5896 for (int ig = 0; ig < ctl->ng; ig++) {
5897
5898 /* Initialize... */
5899 tbl->np[id][ig] = -1;
5900
5901 /* Read ASCII look-up tables... */
5902 if (ctl->tblfmt == 1)
5903 read_tbl_asc(ctl, tbl, id, ig);
5904
5905 /* Read binary look-up tables... */
5906 else if (ctl->tblfmt == 2)
5907 read_tbl_bin(ctl, tbl, id, ig);
5908
5909 /* Read per-gas look-up tables... */
5910 else if (ctl->tblfmt == 3)
5911 read_tbl_gas(ctl, tbl, id, ig);
5912
5913 /* Error message... */
5914 else
5915 ERRMSG("Unknown look-up table format!");
5916
5917 /* Write info... */
5918 for (int ip = 0; ip < tbl->np[id][ig]; ip++)
5919 LOG(2,
5920 "p[%2d]= %.5e hPa | T[0:%2d]= %.2f ... %.2f K | u[0:%3d]= %.5e ... %.5e molec/cm^2 | eps[0:%3d]= %.5e ... %.5e",
5921 ip, tbl->p[id][ig][ip], tbl->nt[id][ig][ip] - 1,
5922 tbl->t[id][ig][ip][0],
5923 tbl->t[id][ig][ip][tbl->nt[id][ig][ip] - 1],
5924 tbl->nu[id][ig][ip][0] - 1, tbl->u[id][ig][ip][0][0],
5925 tbl->u[id][ig][ip][0][tbl->nu[id][ig][ip][0] - 1],
5926 tbl->nu[id][ig][ip][0] - 1, tbl->eps[id][ig][ip][0][0],
5927 tbl->eps[id][ig][ip][0][tbl->nu[id][ig][ip][0] - 1]);
5928 }
5929
5930 /* Initialize source function... */
5931 init_srcfunc(ctl, tbl);
5932
5933 /* Return pointer... */
5934 return tbl;
5935}
5936
5937/*****************************************************************************/
5938
5939void read_tbl_asc(
5940 const ctl_t *ctl,
5941 tbl_t *tbl,
5942 const int id,
5943 const int ig) {
5944
5945 /* Initialize... */
5946 double eps, eps_old = -999, press, press_old = -999, temp, temp_old =
5947 -999, u, u_old = -999;
5948 int nrange = 0;
5949
5950 /* Set filename... */
5951 char filename[2 * LEN];
5952 sprintf(filename, "%s_%.4f_%s.tab", ctl->tblbase,
5953 ctl->nu[id], ctl->emitter[ig]);
5954
5955 /* Write info... */
5956 LOG(1, "Read emissivity table: %s", filename);
5957
5958 /* Try to open file... */
5959 FILE *in;
5960 if (!(in = fopen(filename, "r"))) {
5961 WARN("Missing emissivity table: %s", filename);
5962 return;
5963 }
5964
5965 /* Read data... */
5966 char line[LEN];
5967 while (fgets(line, LEN, in)) {
5968
5969 /* Parse line... */
5970 if (sscanf(line, "%lg %lg %lg %lg", &press, &temp, &u, &eps) != 4)
5971 continue;
5972
5973 /* Check ranges... */
5974 if (u < UMIN || u > UMAX || eps < EPSMIN || eps > EPSMAX) {
5975 nrange++;
5976 continue;
5977 }
5978
5979 /* Determine pressure index... */
5980 if (press != press_old) {
5981 press_old = press;
5982 if ((++tbl->np[id][ig]) >= TBLNP)
5983 ERRMSG("Too many pressure levels!");
5984 tbl->nt[id][ig][tbl->np[id][ig]] = -1;
5985 }
5986
5987 /* Determine temperature index... */
5988 if (temp != temp_old) {
5989 temp_old = temp;
5990 if ((++tbl->nt[id][ig][tbl->np[id][ig]]) >= TBLNT)
5991 ERRMSG("Too many temperatures!");
5992 tbl->nu[id][ig][tbl->np[id][ig]]
5993 [tbl->nt[id][ig][tbl->np[id][ig]]] = -1;
5994 }
5995
5996 /* Determine column density index... */
5997 if ((eps > eps_old && u > u_old) || tbl->nu[id][ig][tbl->np[id][ig]]
5998 [tbl->nt[id][ig][tbl->np[id][ig]]] < 0) {
5999 eps_old = eps;
6000 u_old = u;
6001 if ((++tbl->nu[id][ig][tbl->np[id][ig]]
6002 [tbl->nt[id][ig][tbl->np[id][ig]]]) >= TBLNU)
6003 ERRMSG("Too many column densities!");
6004 }
6005
6006 /* Store data... */
6007 tbl->p[id][ig][tbl->np[id][ig]] = press;
6008 tbl->t[id][ig][tbl->np[id][ig]][tbl->nt[id][ig][tbl->np[id][ig]]]
6009 = temp;
6010 tbl->u[id][ig][tbl->np[id][ig]][tbl->nt[id][ig][tbl->np[id][ig]]]
6011 [tbl->nu[id][ig][tbl->np[id][ig]]
6012 [tbl->nt[id][ig][tbl->np[id][ig]]]] = (float) u;
6013 tbl->eps[id][ig][tbl->np[id][ig]][tbl->nt[id][ig][tbl->np[id][ig]]]
6014 [tbl->nu[id][ig][tbl->np[id][ig]]
6015 [tbl->nt[id][ig][tbl->np[id][ig]]]] = (float) eps;
6016 }
6017
6018 /* Increment counters... */
6019 tbl->np[id][ig]++;
6020 for (int ip = 0; ip < tbl->np[id][ig]; ip++) {
6021 tbl->nt[id][ig][ip]++;
6022 for (int it = 0; it < tbl->nt[id][ig][ip]; it++)
6023 tbl->nu[id][ig][ip][it]++;
6024 }
6025
6026 /* Check ranges... */
6027 if (nrange > 0)
6028 WARN("Column density or emissivity out of range (%d data points)!",
6029 nrange);
6030
6031 /* Close file... */
6032 fclose(in);
6033}
6034
6035/*****************************************************************************/
6036
6037void read_tbl_bin(
6038 const ctl_t *ctl,
6039 tbl_t *tbl,
6040 const int id,
6041 const int ig) {
6042
6043 /* Set filename... */
6044 char filename[2 * LEN];
6045 sprintf(filename, "%s_%.4f_%s.bin", ctl->tblbase,
6046 ctl->nu[id], ctl->emitter[ig]);
6047
6048 /* Write info... */
6049 LOG(1, "Read emissivity table: %s", filename);
6050
6051 /* Try to open file... */
6052 FILE *in;
6053 if (!(in = fopen(filename, "r"))) {
6054 WARN("Missing emissivity table: %s", filename);
6055 return;
6056 }
6057
6058 /* Read data... */
6059 FREAD(&tbl->np[id][ig], int,
6060 1,
6061 in);
6062 if (tbl->np[id][ig] > TBLNP)
6063 ERRMSG("Too many pressure levels!");
6064 FREAD(tbl->p[id][ig], double,
6065 (size_t) tbl->np[id][ig],
6066 in);
6067 for (int ip = 0; ip < tbl->np[id][ig]; ip++) {
6068 FREAD(&tbl->nt[id][ig][ip], int,
6069 1,
6070 in);
6071 if (tbl->nt[id][ig][ip] > TBLNT)
6072 ERRMSG("Too many temperatures!");
6073 FREAD(tbl->t[id][ig][ip], double,
6074 (size_t) tbl->nt[id][ig][ip],
6075 in);
6076 for (int it = 0; it < tbl->nt[id][ig][ip]; it++) {
6077 FREAD(&tbl->nu[id][ig][ip][it], int,
6078 1,
6079 in);
6080 if (tbl->nu[id][ig][ip][it] > TBLNU)
6081 ERRMSG("Too many column densities!");
6082 FREAD(tbl->u[id][ig][ip][it], float,
6083 (size_t) tbl->nu[id][ig][ip][it],
6084 in);
6085 FREAD(tbl->eps[id][ig][ip][it], float,
6086 (size_t) tbl->nu[id][ig][ip][it],
6087 in);
6088 }
6089 }
6090
6091 /* Close file... */
6092 fclose(in);
6093}
6094
6095/*****************************************************************************/
6096
6097void read_tbl_gas(
6098 const ctl_t *ctl,
6099 tbl_t *tbl,
6100 const int id,
6101 const int ig) {
6102
6103 /* Set filename... */
6104 char filename[2 * LEN];
6105 sprintf(filename, "%s_%s.tbl", ctl->tblbase, ctl->emitter[ig]);
6106
6107 /* Write info... */
6108 LOG(1, "Read emissivity table: %s", filename);
6109
6110 /* Open file... */
6111 tbl_gas_t gas;
6112 if (read_tbl_gas_open(filename, &gas) != 0) {
6113 WARN("Missing emissivity table: %s", filename);
6114 return;
6115 }
6116
6117 /* Read table... */
6118 if (read_tbl_gas_single(&gas, ctl->nu[id], tbl, id, ig) != 0)
6119 WARN("Frequency %.6f missing in %s", ctl->nu[id], filename);
6120
6121 /* Close file... */
6122 read_tbl_gas_close(&gas);
6123}
6124
6125/*****************************************************************************/
6126
6127int read_tbl_gas_close(
6128 tbl_gas_t *g) {
6129
6130 if (!g || !g->fp)
6131 return -1;
6132
6133 if (g->dirty) {
6134
6135 /* Rewind to header... */
6136 fseek(g->fp, 0, SEEK_SET);
6137
6138 /* Write header... */
6139 const char magic[4] = { 'G', 'T', 'L', '1' };
6140 FWRITE(magic, char,
6141 4,
6142 g->fp);
6143 FWRITE(&g->ntables, int32_t, 1, g->fp);
6144
6145 /* Write updated index... */
6146 FWRITE(g->index, tbl_gas_index_t, MAX_TABLES, g->fp);
6147 fflush(g->fp);
6148 }
6149
6150 /* Close file... */
6151 fclose(g->fp);
6152 free(g->index);
6153 memset(g, 0, sizeof(*g));
6154
6155 return 0;
6156}
6157
6158/*****************************************************************************/
6159
6160int read_tbl_gas_open(
6161 const char *path,
6162 tbl_gas_t *g) {
6163
6164 /* Open file... */
6165 memset(g, 0, sizeof(*g));
6166 g->fp = fopen(path, "rb+"); /* MUST be rb+ for writing later */
6167 if (!g->fp)
6168 return -1;
6169 char magic[4];
6170
6171 /* Read header... */
6172 FREAD(magic, char,
6173 4,
6174 g->fp);
6175 if (memcmp(magic, "GTL1", 4) != 0)
6176 ERRMSG("Invalid gas-table file format!");
6177 FREAD(&g->ntables, int32_t, 1, g->fp);
6178
6179 /* Read index... */
6180 ALLOC(g->index, tbl_gas_index_t, MAX_TABLES);
6181 FREAD(g->index, tbl_gas_index_t, MAX_TABLES, g->fp);
6182 g->dirty = 0;
6183
6184 return 0;
6185}
6186
6187/*****************************************************************************/
6188
6189int read_tbl_gas_single(
6190 const tbl_gas_t *g,
6191 const double freq,
6192 tbl_t *tbl,
6193 const int id,
6194 const int ig) {
6195
6196 /* Find freq in index */
6197 int idx = -1;
6198 for (int i = 0; i < g->ntables; i++) {
6199 if (g->index[i].freq == freq) {
6200 idx = i;
6201 break;
6202 }
6203 }
6204 if (idx < 0) {
6205 WARN("Frequency %.4f not found in gas table", freq);
6206 return -1;
6207 }
6208
6209 /* Seek to table block... */
6210 if (fseek(g->fp, (long) g->index[idx].offset, SEEK_SET) != 0)
6211 ERRMSG("Seek error in read_tbl_gas_single!");
6212
6213 /* Read number of pressures... */
6214 FREAD(&tbl->np[id][ig], int,
6215 1,
6216 g->fp);
6217 if (tbl->np[id][ig] > TBLNP)
6218 ERRMSG("Too many pressure levels!");
6219
6220 /* Read pressure grid... */
6221 FREAD(tbl->p[id][ig], double,
6222 (size_t) tbl->np[id][ig],
6223 g->fp);
6224
6225 /* Loop over pressure levels... */
6226 for (int ip = 0; ip < tbl->np[id][ig]; ip++) {
6227
6228 /* Read number of temperatures... */
6229 FREAD(&tbl->nt[id][ig][ip], int,
6230 1,
6231 g->fp);
6232 if (tbl->nt[id][ig][ip] > TBLNT)
6233 ERRMSG("Too many temperatures!");
6234
6235 /* Read temperature grid... */
6236 FREAD(tbl->t[id][ig][ip], double,
6237 (size_t) tbl->nt[id][ig][ip],
6238 g->fp);
6239
6240 /* Loop over temperature levels... */
6241 for (int it = 0; it < tbl->nt[id][ig][ip]; it++) {
6242
6243 /* Read number of u points... */
6244 FREAD(&tbl->nu[id][ig][ip][it], int,
6245 1,
6246 g->fp);
6247 if (tbl->nu[id][ig][ip][it] > TBLNU)
6248 ERRMSG("Too many column densities!");
6249
6250 /* Read u grid... */
6251 FREAD(tbl->u[id][ig][ip][it], float,
6252 (size_t) tbl->nu[id][ig][ip][it],
6253 g->fp);
6254
6255 /* Read emissivity grid... */
6256 FREAD(tbl->eps[id][ig][ip][it], float,
6257 (size_t) tbl->nu[id][ig][ip][it],
6258 g->fp);
6259 }
6260 }
6261
6262 return 0;
6263}
6264
6265/*****************************************************************************/
6266
6267double scan_ctl(
6268 int argc,
6269 char *argv[],
6270 const char *varname,
6271 const int arridx,
6272 const char *defvalue,
6273 char *value) {
6274
6275 FILE *in = NULL;
6276
6277 char dummy[LEN], fullname1[LEN], fullname2[LEN], line[LEN],
6278 rvarname[LEN], rval[LEN];
6279
6280 int contain = 0;
6281
6282 /* Open file... */
6283 if (argv[1][0] != '-')
6284 if (!(in = fopen(argv[1], "r")))
6285 ERRMSG("Cannot open file!");
6286
6287 /* Set full variable name... */
6288 if (arridx >= 0) {
6289 sprintf(fullname1, "%s[%d]", varname, arridx);
6290 sprintf(fullname2, "%s[*]", varname);
6291 } else {
6292 sprintf(fullname1, "%s", varname);
6293 sprintf(fullname2, "%s", varname);
6294 }
6295
6296 /* Read data... */
6297 if (in != NULL)
6298 while (fgets(line, LEN, in))
6299 if (sscanf(line, "%s %s %s", rvarname, dummy, rval) == 3)
6300 if (strcasecmp(rvarname, fullname1) == 0 ||
6301 strcasecmp(rvarname, fullname2) == 0) {
6302 contain = 1;
6303 break;
6304 }
6305 for (int i = 1; i < argc - 1; i++)
6306 if (strcasecmp(argv[i], fullname1) == 0 ||
6307 strcasecmp(argv[i], fullname2) == 0) {
6308 sprintf(rval, "%s", argv[i + 1]);
6309 contain = 1;
6310 break;
6311 }
6312
6313 /* Close file... */
6314 if (in != NULL)
6315 fclose(in);
6316
6317 /* Check for missing variables... */
6318 if (!contain) {
6319 if (strlen(defvalue) > 0)
6320 sprintf(rval, "%s", defvalue);
6321 else
6322 ERRMSG("Missing variable %s!\n", fullname1);
6323 }
6324
6325 /* Write info... */
6326 LOG(1, "%s = %s", fullname1, rval);
6327
6328 /* Return values... */
6329 if (value != NULL)
6330 sprintf(value, "%s", rval);
6331 return atof(rval);
6332}
6333
6334/*****************************************************************************/
6335
6336void set_cov_apr(
6337 const ret_t *ret,
6338 const ctl_t *ctl,
6339 const atm_t *atm,
6340 const int *iqa,
6341 const int *ipa,
6342 gsl_matrix *s_a) {
6343
6344 /* Get sizes... */
6345 const size_t n = s_a->size1;
6346
6347 /* Allocate... */
6348 gsl_vector *x_a = gsl_vector_alloc(n);
6349
6350 /* Get sigma vector... */
6351 atm2x(ctl, atm, x_a, NULL, NULL);
6352 for (size_t i = 0; i < n; i++) {
6353 if (iqa[i] == IDXP)
6354 gsl_vector_set(x_a, i, ret->err_press / 100 * gsl_vector_get(x_a, i));
6355 if (iqa[i] == IDXT)
6356 gsl_vector_set(x_a, i, ret->err_temp);
6357 for (int ig = 0; ig < ctl->ng; ig++)
6358 if (iqa[i] == IDXQ(ig))
6359 gsl_vector_set(x_a, i, ret->err_q[ig] / 100 * gsl_vector_get(x_a, i));
6360 for (int iw = 0; iw < ctl->nw; iw++)
6361 if (iqa[i] == IDXK(iw))
6362 gsl_vector_set(x_a, i, ret->err_k[iw]);
6363 if (iqa[i] == IDXCLZ)
6364 gsl_vector_set(x_a, i, ret->err_clz);
6365 if (iqa[i] == IDXCLDZ)
6366 gsl_vector_set(x_a, i, ret->err_cldz);
6367 for (int icl = 0; icl < ctl->ncl; icl++)
6368 if (iqa[i] == IDXCLK(icl))
6369 gsl_vector_set(x_a, i, ret->err_clk[icl]);
6370 if (iqa[i] == IDXSFT)
6371 gsl_vector_set(x_a, i, ret->err_sft);
6372 for (int isf = 0; isf < ctl->nsf; isf++)
6373 if (iqa[i] == IDXSFEPS(isf))
6374 gsl_vector_set(x_a, i, ret->err_sfeps[isf]);
6375 }
6376
6377 /* Check standard deviations... */
6378 for (size_t i = 0; i < n; i++)
6379 if (POW2(gsl_vector_get(x_a, i)) <= 0)
6380 ERRMSG("Check a priori data (zero standard deviation)!");
6381
6382 /* Initialize diagonal covariance... */
6383 gsl_matrix_set_zero(s_a);
6384 for (size_t i = 0; i < n; i++)
6385 gsl_matrix_set(s_a, i, i, POW2(gsl_vector_get(x_a, i)));
6386
6387 /* Loop over matrix elements... */
6388 for (size_t i = 0; i < n; i++)
6389 for (size_t j = 0; j < n; j++)
6390 if (i != j && iqa[i] == iqa[j]) {
6391
6392 /* Initialize... */
6393 double cz = 0;
6394 double ch = 0;
6395
6396 /* Set correlation lengths for pressure... */
6397 if (iqa[i] == IDXP) {
6398 cz = ret->err_press_cz;
6399 ch = ret->err_press_ch;
6400 }
6401
6402 /* Set correlation lengths for temperature... */
6403 if (iqa[i] == IDXT) {
6404 cz = ret->err_temp_cz;
6405 ch = ret->err_temp_ch;
6406 }
6407
6408 /* Set correlation lengths for volume mixing ratios... */
6409 for (int ig = 0; ig < ctl->ng; ig++)
6410 if (iqa[i] == IDXQ(ig)) {
6411 cz = ret->err_q_cz[ig];
6412 ch = ret->err_q_ch[ig];
6413 }
6414
6415 /* Set correlation lengths for extinction... */
6416 for (int iw = 0; iw < ctl->nw; iw++)
6417 if (iqa[i] == IDXK(iw)) {
6418 cz = ret->err_k_cz[iw];
6419 ch = ret->err_k_ch[iw];
6420 }
6421
6422 /* Compute correlations... */
6423 if (cz > 0 && ch > 0) {
6424
6425 /* Get Cartesian coordinates... */
6426 double x0[3], x1[3];
6427 geo2cart(0, atm->lon[ipa[i]], atm->lat[ipa[i]], x0);
6428 geo2cart(0, atm->lon[ipa[j]], atm->lat[ipa[j]], x1);
6429
6430 /* Compute correlations... */
6431 const double rho =
6432 exp(-DIST(x0, x1) / ch -
6433 fabs(atm->z[ipa[i]] - atm->z[ipa[j]]) / cz);
6434
6435 /* Set covariance... */
6436 gsl_matrix_set(s_a, i, j, gsl_vector_get(x_a, i)
6437 * gsl_vector_get(x_a, j) * rho);
6438 }
6439 }
6440
6441 /* Free... */
6442 gsl_vector_free(x_a);
6443}
6444
6445/*****************************************************************************/
6446
6447void set_cov_meas(
6448 const ret_t *ret,
6449 const ctl_t *ctl,
6450 const obs_t *obs,
6451 gsl_vector *sig_noise,
6452 gsl_vector *sig_formod,
6453 gsl_vector *sig_eps_inv) {
6454
6455 static obs_t obs_err;
6456
6457 /* Get size... */
6458 const size_t m = sig_eps_inv->size;
6459
6460 /* Noise error (always considered in retrieval fit)... */
6461 copy_obs(ctl, &obs_err, obs, 1);
6462 for (int ir = 0; ir < obs_err.nr; ir++)
6463 for (int id = 0; id < ctl->nd; id++)
6464 obs_err.rad[id][ir]
6465 = (isfinite(obs->rad[id][ir]) ? ret->err_noise[id] : NAN);
6466 obs2y(ctl, &obs_err, sig_noise, NULL, NULL);
6467
6468 /* Forward model error (always considered in retrieval fit)... */
6469 copy_obs(ctl, &obs_err, obs, 1);
6470 for (int ir = 0; ir < obs_err.nr; ir++)
6471 for (int id = 0; id < ctl->nd; id++)
6472 obs_err.rad[id][ir]
6473 = fabs(ret->err_formod[id] / 100 * obs->rad[id][ir]);
6474 obs2y(ctl, &obs_err, sig_formod, NULL, NULL);
6475
6476 /* Total error... */
6477 for (size_t i = 0; i < m; i++)
6478 gsl_vector_set(sig_eps_inv, i, 1 / sqrt(POW2(gsl_vector_get(sig_noise, i))
6479 +
6480 POW2(gsl_vector_get
6481 (sig_formod, i))));
6482
6483 /* Check standard deviations... */
6484 for (size_t i = 0; i < m; i++)
6485 if (gsl_vector_get(sig_eps_inv, i) <= 0)
6486 ERRMSG("Check measurement errors (zero standard deviation)!");
6487}
6488
6489/*****************************************************************************/
6490
6491void tangent_point(
6492 const los_t *los,
6493 double *tpz,
6494 double *tplon,
6495 double *tplat) {
6496
6497 double dummy, v[3], v0[3], v2[3];
6498
6499 /* Find minimum altitude... */
6500 const size_t ip = gsl_stats_min_index(los->z, 1, (size_t) los->np);
6501
6502 /* Nadir or zenith... */
6503 if (ip <= 0 || ip >= (size_t) los->np - 1) {
6504 *tpz = los->z[los->np - 1];
6505 *tplon = los->lon[los->np - 1];
6506 *tplat = los->lat[los->np - 1];
6507 }
6508
6509 /* Limb... */
6510 else {
6511
6512 /* Determine interpolating polynomial y=a*x^2+b*x+c... */
6513 const double yy0 = los->z[ip - 1];
6514 const double yy1 = los->z[ip];
6515 const double yy2 = los->z[ip + 1];
6516 const double x1 = sqrt(POW2(los->ds[ip]) - POW2(yy1 - yy0));
6517 const double x2 = x1 + sqrt(POW2(los->ds[ip + 1]) - POW2(yy2 - yy1));
6518 const double a = 1 / (x1 - x2) * (-(yy0 - yy1) / x1 + (yy0 - yy2) / x2);
6519 const double b = -(yy0 - yy1) / x1 - a * x1;
6520 const double c = yy0;
6521
6522 /* Get tangent point location... */
6523 const double x = -b / (2 * a);
6524 *tpz = a * x * x + b * x + c;
6525 geo2cart(los->z[ip - 1], los->lon[ip - 1], los->lat[ip - 1], v0);
6526 geo2cart(los->z[ip + 1], los->lon[ip + 1], los->lat[ip + 1], v2);
6527 for (int i = 0; i < 3; i++)
6528 v[i] = LIN(0.0, v0[i], x2, v2[i], x);
6529 cart2geo(v, &dummy, tplon, tplat);
6530 }
6531}
6532
6533/*****************************************************************************/
6534
6535void time2jsec(
6536 const int year,
6537 const int mon,
6538 const int day,
6539 const int hour,
6540 const int min,
6541 const int sec,
6542 const double remain,
6543 double *jsec) {
6544
6545 struct tm t0, t1;
6546
6547 t0.tm_year = 100;
6548 t0.tm_mon = 0;
6549 t0.tm_mday = 1;
6550 t0.tm_hour = 0;
6551 t0.tm_min = 0;
6552 t0.tm_sec = 0;
6553
6554 t1.tm_year = year - 1900;
6555 t1.tm_mon = mon - 1;
6556 t1.tm_mday = day;
6557 t1.tm_hour = hour;
6558 t1.tm_min = min;
6559 t1.tm_sec = sec;
6560
6561 *jsec = (double) timegm(&t1) - (double) timegm(&t0) + remain;
6562}
6563
6564/*****************************************************************************/
6565
6566void timer(
6567 const char *name,
6568 const char *file,
6569 const char *func,
6570 int line,
6571 int mode) {
6572
6573 static double w0[10];
6574
6575 static int l0[10], nt;
6576
6577 /* Start new timer... */
6578 if (mode == 1) {
6579 w0[nt] = omp_get_wtime();
6580 l0[nt] = line;
6581 if ((++nt) >= 10)
6582 ERRMSG("Too many timers!");
6583 }
6584
6585 /* Write elapsed time... */
6586 else {
6587
6588 /* Check timer index... */
6589 if (nt - 1 < 0)
6590 ERRMSG("Coding error!");
6591
6592 /* Write elapsed time... */
6593 LOG(1, "Timer '%s' (%s, %s, l%d-%d): %.3f sec",
6594 name, file, func, l0[nt - 1], line, omp_get_wtime() - w0[nt - 1]);
6595 }
6596
6597 /* Stop timer... */
6598 if (mode == 3)
6599 nt--;
6600}
6601
6602/*****************************************************************************/
6603
6604void write_atm(
6605 const char *dirname,
6606 const char *filename,
6607 const ctl_t *ctl,
6608 const atm_t *atm) {
6609
6610 FILE *out;
6611
6612 char file[LEN];
6613
6614 /* Set filename... */
6615 if (dirname != NULL)
6616 sprintf(file, "%s/%s", dirname, filename);
6617 else
6618 sprintf(file, "%s", filename);
6619
6620 /* Write info... */
6621 LOG(1, "Write atmospheric data: %s", file);
6622
6623 /* Create file... */
6624 if (!(out = fopen(file, "w")))
6625 ERRMSG("Cannot create file!");
6626
6627 /* Write ASCII file... */
6628 if (ctl->atmfmt == 1)
6629 write_atm_asc(out, ctl, atm);
6630
6631 /* Write binary file... */
6632 else if (ctl->atmfmt == 2)
6633 write_atm_bin(out, ctl, atm);
6634
6635 /* Error... */
6636 else
6637 ERRMSG("Unknown file format, check ATMFMT!");
6638
6639 /* Close file... */
6640 fclose(out);
6641
6642 /* Write info... */
6643 double mini, maxi;
6644 LOG(2, "Number of data points: %d", atm->np);
6645 gsl_stats_minmax(&mini, &maxi, atm->time, 1, (size_t) atm->np);
6646 LOG(2, "Time range: %.2f ... %.2f s", mini, maxi);
6647 gsl_stats_minmax(&mini, &maxi, atm->z, 1, (size_t) atm->np);
6648 LOG(2, "Altitude range: %g ... %g km", mini, maxi);
6649 gsl_stats_minmax(&mini, &maxi, atm->lon, 1, (size_t) atm->np);
6650 LOG(2, "Longitude range: %g ... %g deg", mini, maxi);
6651 gsl_stats_minmax(&mini, &maxi, atm->lat, 1, (size_t) atm->np);
6652 LOG(2, "Latitude range: %g ... %g deg", mini, maxi);
6653 gsl_stats_minmax(&mini, &maxi, atm->p, 1, (size_t) atm->np);
6654 LOG(2, "Pressure range: %g ... %g hPa", maxi, mini);
6655 gsl_stats_minmax(&mini, &maxi, atm->t, 1, (size_t) atm->np);
6656 LOG(2, "Temperature range: %g ... %g K", mini, maxi);
6657 for (int ig = 0; ig < ctl->ng; ig++) {
6658 gsl_stats_minmax(&mini, &maxi, atm->q[ig], 1, (size_t) atm->np);
6659 LOG(2, "Emitter %s range: %g ... %g ppv", ctl->emitter[ig], mini, maxi);
6660 }
6661 for (int iw = 0; iw < ctl->nw; iw++) {
6662 gsl_stats_minmax(&mini, &maxi, atm->k[iw], 1, (size_t) atm->np);
6663 LOG(2, "Extinction range (window %d): %g ... %g km^-1", iw, mini, maxi);
6664 }
6665 if (ctl->ncl > 0 && atm->np == 0) {
6666 LOG(2, "Cloud layer: z= %g km | dz= %g km | k= %g ... %g km^-1",
6667 atm->clz, atm->cldz, atm->clk[0], atm->clk[ctl->ncl - 1]);
6668 } else
6669 LOG(2, "Cloud layer: none");
6670 if (ctl->nsf > 0 && atm->np == 0) {
6671 LOG(2,
6672 "Surface layer: T_s = %g K | eps= %g ... %g",
6673 atm->sft, atm->sfeps[0], atm->sfeps[ctl->nsf - 1]);
6674 } else
6675 LOG(2, "Surface layer: none");
6676}
6677
6678/*****************************************************************************/
6679
6680void write_atm_asc(
6681 FILE *out,
6682 const ctl_t *ctl,
6683 const atm_t *atm) {
6684
6685 int n = 6;
6686
6687 /* Write header... */
6688 fprintf(out,
6689 "# $1 = time (seconds since 2000-01-01T00:00Z)\n"
6690 "# $2 = altitude [km]\n"
6691 "# $3 = longitude [deg]\n"
6692 "# $4 = latitude [deg]\n"
6693 "# $5 = pressure [hPa]\n" "# $6 = temperature [K]\n");
6694 for (int ig = 0; ig < ctl->ng; ig++)
6695 fprintf(out, "# $%d = %s volume mixing ratio [ppv]\n",
6696 ++n, ctl->emitter[ig]);
6697 for (int iw = 0; iw < ctl->nw; iw++)
6698 fprintf(out, "# $%d = extinction (window %d) [km^-1]\n", ++n, iw);
6699 if (ctl->ncl > 0) {
6700 fprintf(out, "# $%d = cloud layer height [km]\n", ++n);
6701 fprintf(out, "# $%d = cloud layer depth [km]\n", ++n);
6702 for (int icl = 0; icl < ctl->ncl; icl++)
6703 fprintf(out, "# $%d = cloud layer extinction (%.4f cm^-1) [km^-1]\n",
6704 ++n, ctl->clnu[icl]);
6705 }
6706 if (ctl->nsf > 0) {
6707 fprintf(out, "# $%d = surface layer height [km]\n", ++n);
6708 fprintf(out, "# $%d = surface layer pressure [hPa]\n", ++n);
6709 fprintf(out, "# $%d = surface layer temperature [K]\n", ++n);
6710 for (int isf = 0; isf < ctl->nsf; isf++)
6711 fprintf(out, "# $%d = surface layer emissivity (%.4f cm^-1)\n",
6712 ++n, ctl->sfnu[isf]);
6713 }
6714
6715 /* Write data... */
6716 for (int ip = 0; ip < atm->np; ip++) {
6717 if (ip == 0 || atm->time[ip] != atm->time[ip - 1])
6718 fprintf(out, "\n");
6719 fprintf(out, "%.2f %g %g %g %g %g", atm->time[ip], atm->z[ip],
6720 atm->lon[ip], atm->lat[ip], atm->p[ip], atm->t[ip]);
6721 for (int ig = 0; ig < ctl->ng; ig++)
6722 fprintf(out, " %g", atm->q[ig][ip]);
6723 for (int iw = 0; iw < ctl->nw; iw++)
6724 fprintf(out, " %g", atm->k[iw][ip]);
6725 if (ctl->ncl > 0) {
6726 fprintf(out, " %g %g", atm->clz, atm->cldz);
6727 for (int icl = 0; icl < ctl->ncl; icl++)
6728 fprintf(out, " %g", atm->clk[icl]);
6729 }
6730 if (ctl->nsf > 0) {
6731 fprintf(out, " %g", atm->sft);
6732 for (int isf = 0; isf < ctl->nsf; isf++)
6733 fprintf(out, " %g", atm->sfeps[isf]);
6734 }
6735 fprintf(out, "\n");
6736 }
6737}
6738
6739/*****************************************************************************/
6740
6741void write_atm_bin(
6742 FILE *out,
6743 const ctl_t *ctl,
6744 const atm_t *atm) {
6745
6746 /* Write header... */
6747 FWRITE("ATM1", char,
6748 4,
6749 out);
6750 FWRITE(&ctl->ng, int,
6751 1,
6752 out);
6753 FWRITE(&ctl->nw, int,
6754 1,
6755 out);
6756 FWRITE(&ctl->ncl, int,
6757 1,
6758 out);
6759 FWRITE(&ctl->nsf, int,
6760 1,
6761 out);
6762
6763 /* Write data... */
6764 size_t np = (size_t) atm->np;
6765 FWRITE(&np, size_t,
6766 1,
6767 out);
6768 FWRITE(atm->time, double,
6769 np,
6770 out);
6771 FWRITE(atm->z, double,
6772 np,
6773 out);
6774 FWRITE(atm->lon, double,
6775 np,
6776 out);
6777 FWRITE(atm->lat, double,
6778 np,
6779 out);
6780 FWRITE(atm->p, double,
6781 np,
6782 out);
6783 FWRITE(atm->t, double,
6784 np,
6785 out);
6786 for (int ig = 0; ig < ctl->ng; ig++)
6787 FWRITE(atm->q[ig], double,
6788 np,
6789 out);
6790 for (int iw = 0; iw < ctl->nw; iw++)
6791 FWRITE(atm->k[iw], double,
6792 np,
6793 out);
6794 if (ctl->ncl > 0) {
6795 FWRITE(&atm->clz, double,
6796 1,
6797 out);
6798 FWRITE(&atm->cldz, double,
6799 1,
6800 out);
6801 FWRITE(atm->clk, double,
6802 (size_t) ctl->ncl,
6803 out);
6804 }
6805 if (ctl->nsf > 0) {
6806 FWRITE(&atm->sft, double,
6807 1,
6808 out);
6809 FWRITE(atm->sfeps, double,
6810 (size_t) ctl->nsf,
6811 out);
6812 }
6813}
6814
6815/*****************************************************************************/
6816
6817void write_atm_rfm(
6818 const char *filename,
6819 const ctl_t *ctl,
6820 const atm_t *atm) {
6821
6822 FILE *out;
6823
6824 /* Write info... */
6825 LOG(1, "Write RFM data: %s", filename);
6826
6827 /* Create file... */
6828 if (!(out = fopen(filename, "w")))
6829 ERRMSG("Cannot create file!");
6830
6831 /* Write data... */
6832 fprintf(out, "%d\n", atm->np);
6833 fprintf(out, "*HGT [km]\n");
6834 for (int ip = 0; ip < atm->np; ip++)
6835 fprintf(out, "%g\n", atm->z[ip]);
6836 fprintf(out, "*PRE [mb]\n");
6837 for (int ip = 0; ip < atm->np; ip++)
6838 fprintf(out, "%g\n", atm->p[ip]);
6839 fprintf(out, "*TEM [K]\n");
6840 for (int ip = 0; ip < atm->np; ip++)
6841 fprintf(out, "%g\n", atm->t[ip]);
6842 for (int ig = 0; ig < ctl->ng; ig++) {
6843 fprintf(out, "*%s [ppmv]\n", ctl->emitter[ig]);
6844 for (int ip = 0; ip < atm->np; ip++)
6845 fprintf(out, "%g\n", atm->q[ig][ip] * 1e6);
6846 }
6847 fprintf(out, "*END\n");
6848
6849 /* Close file... */
6850 fclose(out);
6851}
6852
6853/*****************************************************************************/
6854
6855void write_matrix(
6856 const char *dirname,
6857 const char *filename,
6858 const ctl_t *ctl,
6859 const gsl_matrix *matrix,
6860 const atm_t *atm,
6861 const obs_t *obs,
6862 const char *rowspace,
6863 const char *colspace,
6864 const char *sort) {
6865
6866 FILE *out;
6867
6868 char file[LEN], quantity[LEN];
6869
6870 int *cida, *ciqa, *cipa, *cira, *rida, *riqa, *ripa, *rira;
6871
6872 size_t i, j, nc, nr;
6873
6874 /* Check output flag... */
6875 if (!ctl->write_matrix)
6876 return;
6877
6878 /* Allocate... */
6879 ALLOC(cida, int,
6880 M);
6881 ALLOC(ciqa, int,
6882 N);
6883 ALLOC(cipa, int,
6884 N);
6885 ALLOC(cira, int,
6886 M);
6887 ALLOC(rida, int,
6888 M);
6889 ALLOC(riqa, int,
6890 N);
6891 ALLOC(ripa, int,
6892 N);
6893 ALLOC(rira, int,
6894 M);
6895
6896 /* Set filename... */
6897 if (dirname != NULL)
6898 sprintf(file, "%s/%s", dirname, filename);
6899 else
6900 sprintf(file, "%s", filename);
6901
6902 /* Write info... */
6903 LOG(1, "Write matrix: %s", file);
6904
6905 /* Create file... */
6906 if (!(out = fopen(file, "w")))
6907 ERRMSG("Cannot create file!");
6908
6909 /* Write header (row space)... */
6910 if (rowspace[0] == 'y') {
6911
6912 fprintf(out,
6913 "# $1 = Row: index (measurement space)\n"
6914 "# $2 = Row: channel wavenumber [cm^-1]\n"
6915 "# $3 = Row: time (seconds since 2000-01-01T00:00Z)\n"
6916 "# $4 = Row: view point altitude [km]\n"
6917 "# $5 = Row: view point longitude [deg]\n"
6918 "# $6 = Row: view point latitude [deg]\n");
6919
6920 /* Get number of rows... */
6921 nr = obs2y(ctl, obs, NULL, rida, rira);
6922
6923 } else {
6924
6925 fprintf(out,
6926 "# $1 = Row: index (state space)\n"
6927 "# $2 = Row: name of quantity\n"
6928 "# $3 = Row: time (seconds since 2000-01-01T00:00Z)\n"
6929 "# $4 = Row: altitude [km]\n"
6930 "# $5 = Row: longitude [deg]\n" "# $6 = Row: latitude [deg]\n");
6931
6932 /* Get number of rows... */
6933 nr = atm2x(ctl, atm, NULL, riqa, ripa);
6934 }
6935
6936 /* Write header (column space)... */
6937 if (colspace[0] == 'y') {
6938
6939 fprintf(out,
6940 "# $7 = Col: index (measurement space)\n"
6941 "# $8 = Col: channel wavenumber [cm^-1]\n"
6942 "# $9 = Col: time (seconds since 2000-01-01T00:00Z)\n"
6943 "# $10 = Col: view point altitude [km]\n"
6944 "# $11 = Col: view point longitude [deg]\n"
6945 "# $12 = Col: view point latitude [deg]\n");
6946
6947 /* Get number of columns... */
6948 nc = obs2y(ctl, obs, NULL, cida, cira);
6949
6950 } else {
6951
6952 fprintf(out,
6953 "# $7 = Col: index (state space)\n"
6954 "# $8 = Col: name of quantity\n"
6955 "# $9 = Col: time (seconds since 2000-01-01T00:00Z)\n"
6956 "# $10 = Col: altitude [km]\n"
6957 "# $11 = Col: longitude [deg]\n" "# $12 = Col: latitude [deg]\n");
6958
6959 /* Get number of columns... */
6960 nc = atm2x(ctl, atm, NULL, ciqa, cipa);
6961 }
6962
6963 /* Write header entry... */
6964 fprintf(out, "# $13 = Matrix element\n\n");
6965
6966 /* Write matrix data... */
6967 i = j = 0;
6968 while (i < nr && j < nc) {
6969
6970 /* Write info about the row... */
6971 if (rowspace[0] == 'y')
6972 fprintf(out, "%d %.4f %.2f %g %g %g",
6973 (int) i, ctl->nu[rida[i]],
6974 obs->time[rira[i]], obs->vpz[rira[i]],
6975 obs->vplon[rira[i]], obs->vplat[rira[i]]);
6976 else {
6977 idx2name(ctl, riqa[i], quantity);
6978 fprintf(out, "%d %s %.2f %g %g %g", (int) i, quantity,
6979 atm->time[ripa[i]], atm->z[ripa[i]],
6980 atm->lon[ripa[i]], atm->lat[ripa[i]]);
6981 }
6982
6983 /* Write info about the column... */
6984 if (colspace[0] == 'y')
6985 fprintf(out, " %d %.4f %.2f %g %g %g",
6986 (int) j, ctl->nu[cida[j]],
6987 obs->time[cira[j]], obs->vpz[cira[j]],
6988 obs->vplon[cira[j]], obs->vplat[cira[j]]);
6989 else {
6990 idx2name(ctl, ciqa[j], quantity);
6991 fprintf(out, " %d %s %.2f %g %g %g", (int) j, quantity,
6992 atm->time[cipa[j]], atm->z[cipa[j]],
6993 atm->lon[cipa[j]], atm->lat[cipa[j]]);
6994 }
6995
6996 /* Write matrix entry... */
6997 fprintf(out, " %g\n", gsl_matrix_get(matrix, i, j));
6998
6999 /* Set matrix indices... */
7000 if (sort[0] == 'r') {
7001 j++;
7002 if (j >= nc) {
7003 j = 0;
7004 i++;
7005 fprintf(out, "\n");
7006 }
7007 } else {
7008 i++;
7009 if (i >= nr) {
7010 i = 0;
7011 j++;
7012 fprintf(out, "\n");
7013 }
7014 }
7015 }
7016
7017 /* Close file... */
7018 fclose(out);
7019
7020 /* Free... */
7021 free(cida);
7022 free(ciqa);
7023 free(cipa);
7024 free(cira);
7025 free(rida);
7026 free(riqa);
7027 free(ripa);
7028 free(rira);
7029}
7030
7031/*****************************************************************************/
7032
7033void write_obs(
7034 const char *dirname,
7035 const char *filename,
7036 const ctl_t *ctl,
7037 const obs_t *obs) {
7038
7039 FILE *out;
7040
7041 char file[LEN];
7042
7043 /* Set filename... */
7044 if (dirname != NULL)
7045 sprintf(file, "%s/%s", dirname, filename);
7046 else
7047 sprintf(file, "%s", filename);
7048
7049 /* Write info... */
7050 LOG(1, "Write observation data: %s", file);
7051
7052 /* Create file... */
7053 if (!(out = fopen(file, "w")))
7054 ERRMSG("Cannot create file!");
7055
7056 /* Write ASCII data... */
7057 if (ctl->obsfmt == 1)
7058 write_obs_asc(out, ctl, obs);
7059
7060 /* Write binary data... */
7061 else if (ctl->obsfmt == 2)
7062 write_obs_bin(out, ctl, obs);
7063
7064 /* Error... */
7065 else
7066 ERRMSG("Unknown observation file format, check OBSFMT!");
7067
7068 /* Close file... */
7069 fclose(out);
7070
7071 /* Write info... */
7072 double mini, maxi;
7073 LOG(2, "Number of ray paths: %d", obs->nr);
7074 gsl_stats_minmax(&mini, &maxi, obs->time, 1, (size_t) obs->nr);
7075 LOG(2, "Time range: %.2f ... %.2f s", mini, maxi);
7076 gsl_stats_minmax(&mini, &maxi, obs->obsz, 1, (size_t) obs->nr);
7077 LOG(2, "Observer altitude range: %g ... %g km", mini, maxi);
7078 gsl_stats_minmax(&mini, &maxi, obs->obslon, 1, (size_t) obs->nr);
7079 LOG(2, "Observer longitude range: %g ... %g deg", mini, maxi);
7080 gsl_stats_minmax(&mini, &maxi, obs->obslat, 1, (size_t) obs->nr);
7081 LOG(2, "Observer latitude range: %g ... %g deg", mini, maxi);
7082 gsl_stats_minmax(&mini, &maxi, obs->vpz, 1, (size_t) obs->nr);
7083 LOG(2, "View point altitude range: %g ... %g km", mini, maxi);
7084 gsl_stats_minmax(&mini, &maxi, obs->vplon, 1, (size_t) obs->nr);
7085 LOG(2, "View point longitude range: %g ... %g deg", mini, maxi);
7086 gsl_stats_minmax(&mini, &maxi, obs->vplat, 1, (size_t) obs->nr);
7087 LOG(2, "View point latitude range: %g ... %g deg", mini, maxi);
7088 gsl_stats_minmax(&mini, &maxi, obs->tpz, 1, (size_t) obs->nr);
7089 LOG(2, "Tangent point altitude range: %g ... %g km", mini, maxi);
7090 gsl_stats_minmax(&mini, &maxi, obs->tplon, 1, (size_t) obs->nr);
7091 LOG(2, "Tangent point longitude range: %g ... %g deg", mini, maxi);
7092 gsl_stats_minmax(&mini, &maxi, obs->tplat, 1, (size_t) obs->nr);
7093 LOG(2, "Tangent point latitude range: %g ... %g deg", mini, maxi);
7094 for (int id = 0; id < ctl->nd; id++) {
7095 gsl_stats_minmax(&mini, &maxi, obs->rad[id], 1, (size_t) obs->nr);
7096 if (ctl->write_bbt) {
7097 LOG(2, "Brightness temperature (%.4f cm^-1) range: %g ... %g K",
7098 ctl->nu[id], mini, maxi);
7099 } else {
7100 LOG(2, "Radiance (%.4f cm^-1) range: %g ... %g W/(m^2 sr cm^-1)",
7101 ctl->nu[id], mini, maxi);
7102 }
7103 }
7104 for (int id = 0; id < ctl->nd; id++) {
7105 gsl_stats_minmax(&mini, &maxi, obs->tau[id], 1, (size_t) obs->nr);
7106 if (ctl->write_bbt) {
7107 LOG(2, "Transmittance (%.4f cm^-1) range: %g ... %g",
7108 ctl->nu[id], mini, maxi);
7109 }
7110 }
7111}
7112
7113/*****************************************************************************/
7114
7115void write_obs_asc(
7116 FILE *out,
7117 const ctl_t *ctl,
7118 const obs_t *obs) {
7119
7120 int n = 10;
7121
7122 /* Write header... */
7123 fprintf(out,
7124 "# $1 = time (seconds since 2000-01-01T00:00Z)\n"
7125 "# $2 = observer altitude [km]\n"
7126 "# $3 = observer longitude [deg]\n"
7127 "# $4 = observer latitude [deg]\n"
7128 "# $5 = view point altitude [km]\n"
7129 "# $6 = view point longitude [deg]\n"
7130 "# $7 = view point latitude [deg]\n"
7131 "# $8 = tangent point altitude [km]\n"
7132 "# $9 = tangent point longitude [deg]\n"
7133 "# $10 = tangent point latitude [deg]\n");
7134 for (int id = 0; id < ctl->nd; id++)
7135 if (ctl->write_bbt)
7136 fprintf(out, "# $%d = brightness temperature (%.4f cm^-1) [K]\n",
7137 ++n, ctl->nu[id]);
7138 else
7139 fprintf(out, "# $%d = radiance (%.4f cm^-1) [W/(m^2 sr cm^-1)]\n",
7140 ++n, ctl->nu[id]);
7141 for (int id = 0; id < ctl->nd; id++)
7142 fprintf(out, "# $%d = transmittance (%.4f cm^-1) [-]\n", ++n,
7143 ctl->nu[id]);
7144
7145 /* Write data... */
7146 for (int ir = 0; ir < obs->nr; ir++) {
7147 if (ir == 0 || obs->time[ir] != obs->time[ir - 1])
7148 fprintf(out, "\n");
7149 fprintf(out, "%.2f %g %g %g %g %g %g %g %g %g", obs->time[ir],
7150 obs->obsz[ir], obs->obslon[ir], obs->obslat[ir],
7151 obs->vpz[ir], obs->vplon[ir], obs->vplat[ir],
7152 obs->tpz[ir], obs->tplon[ir], obs->tplat[ir]);
7153 for (int id = 0; id < ctl->nd; id++)
7154 fprintf(out, " %g", obs->rad[id][ir]);
7155 for (int id = 0; id < ctl->nd; id++)
7156 fprintf(out, " %g", obs->tau[id][ir]);
7157 fprintf(out, "\n");
7158 }
7159}
7160
7161/*****************************************************************************/
7162
7163void write_obs_bin(
7164 FILE *out,
7165 const ctl_t *ctl,
7166 const obs_t *obs) {
7167
7168 /* Write header... */
7169 FWRITE("OBS1", char,
7170 4,
7171 out);
7172 FWRITE(&ctl->nd, int,
7173 1,
7174 out);
7175
7176 /* Write data... */
7177 size_t nr = (size_t) obs->nr;
7178 FWRITE(&nr, size_t,
7179 1,
7180 out);
7181 FWRITE(obs->time, double,
7182 nr,
7183 out);
7184 FWRITE(obs->obsz, double,
7185 nr,
7186 out);
7187 FWRITE(obs->obslon, double,
7188 nr,
7189 out);
7190 FWRITE(obs->obslat, double,
7191 nr,
7192 out);
7193 FWRITE(obs->vpz, double,
7194 nr,
7195 out);
7196 FWRITE(obs->vplon, double,
7197 nr,
7198 out);
7199 FWRITE(obs->vplat, double,
7200 nr,
7201 out);
7202 FWRITE(obs->tpz, double,
7203 nr,
7204 out);
7205 FWRITE(obs->tplon, double,
7206 nr,
7207 out);
7208 FWRITE(obs->tplat, double,
7209 nr,
7210 out);
7211 for (int id = 0; id < ctl->nd; id++)
7212 FWRITE(obs->rad[id], double,
7213 nr,
7214 out);
7215 for (int id = 0; id < ctl->nd; id++)
7216 FWRITE(obs->tau[id], double,
7217 nr,
7218 out);
7219}
7220
7221/*****************************************************************************/
7222
7223void write_shape(
7224 const char *filename,
7225 const double *x,
7226 const double *y,
7227 const int n) {
7228
7229 FILE *out;
7230
7231 /* Write info... */
7232 LOG(1, "Write shape function: %s", filename);
7233
7234 /* Create file... */
7235 if (!(out = fopen(filename, "w")))
7236 ERRMSG("Cannot create file!");
7237
7238 /* Write header... */
7239 fprintf(out,
7240 "# $1 = shape function x-value [-]\n"
7241 "# $2 = shape function y-value [-]\n\n");
7242
7243 /* Write data... */
7244 for (int i = 0; i < n; i++)
7245 fprintf(out, "%.10g %.10g\n", x[i], y[i]);
7246
7247 /* Close file... */
7248 fclose(out);
7249}
7250
7251/*****************************************************************************/
7252
7253void write_stddev(
7254 const char *quantity,
7255 const ret_t *ret,
7256 const ctl_t *ctl,
7257 const atm_t *atm,
7258 const gsl_matrix *s) {
7259
7260 static atm_t atm_aux;
7261
7262 char filename[LEN];
7263
7264 /* Get sizes... */
7265 const size_t n = s->size1;
7266
7267 /* Allocate... */
7268 gsl_vector *x_aux = gsl_vector_alloc(n);
7269
7270 /* Compute standard deviation... */
7271 for (size_t i = 0; i < n; i++)
7272 gsl_vector_set(x_aux, i, sqrt(gsl_matrix_get(s, i, i)));
7273
7274 /* Write to disk... */
7275 copy_atm(ctl, &atm_aux, atm, 1);
7276 x2atm(ctl, x_aux, &atm_aux);
7277 sprintf(filename, "atm_err_%s.tab", quantity);
7278 write_atm(ret->dir, filename, ctl, &atm_aux);
7279
7280 /* Free... */
7281 gsl_vector_free(x_aux);
7282}
7283
7284/*****************************************************************************/
7285
7286void write_tbl(
7287 const ctl_t *ctl,
7288 const tbl_t *tbl) {
7289
7290 /* Write ASCII look-up tables... */
7291 if (ctl->tblfmt == 1)
7292 write_tbl_asc(ctl, tbl);
7293
7294 /* Write binary look-up tables... */
7295 else if (ctl->tblfmt == 2)
7296 write_tbl_bin(ctl, tbl);
7297
7298 /* Write per-gas look-up tables... */
7299 else if (ctl->tblfmt == 3)
7300 write_tbl_gas(ctl, tbl);
7301
7302 /* Error message... */
7303 else
7304 ERRMSG("Unknown look-up table format!");
7305}
7306
7307/*****************************************************************************/
7308
7309void write_tbl_asc(
7310 const ctl_t *ctl,
7311 const tbl_t *tbl) {
7312
7313 /* Loop over emitters and detectors... */
7314 for (int ig = 0; ig < ctl->ng; ig++)
7315 for (int id = 0; id < ctl->nd; id++) {
7316
7317 /* Set filename... */
7318 char filename[2 * LEN];
7319 sprintf(filename, "%s_%.4f_%s.tab", ctl->tblbase,
7320 ctl->nu[id], ctl->emitter[ig]);
7321
7322 /* Write info... */
7323 LOG(1, "Write emissivity table: %s", filename);
7324
7325 /* Create file... */
7326 FILE *out;
7327 if (!(out = fopen(filename, "w")))
7328 ERRMSG("Cannot create file!");
7329
7330 /* Write header... */
7331 fprintf(out,
7332 "# $1 = pressure [hPa]\n"
7333 "# $2 = temperature [K]\n"
7334 "# $3 = column density [molecules/cm^2]\n"
7335 "# $4 = emissivity [-]\n");
7336
7337 /* Save table file... */
7338 for (int ip = 0; ip < tbl->np[id][ig]; ip++)
7339 for (int it = 0; it < tbl->nt[id][ig][ip]; it++) {
7340 fprintf(out, "\n");
7341 for (int iu = 0; iu < tbl->nu[id][ig][ip][it]; iu++)
7342 fprintf(out, "%g %g %e %e\n",
7343 tbl->p[id][ig][ip], tbl->t[id][ig][ip][it],
7344 tbl->u[id][ig][ip][it][iu], tbl->eps[id][ig][ip][it][iu]);
7345 }
7346
7347 /* Close file... */
7348 fclose(out);
7349 }
7350}
7351
7352/*****************************************************************************/
7353
7354void write_tbl_bin(
7355 const ctl_t *ctl,
7356 const tbl_t *tbl) {
7357
7358 /* Loop over emitters and detectors... */
7359 for (int ig = 0; ig < ctl->ng; ig++)
7360 for (int id = 0; id < ctl->nd; id++) {
7361
7362 /* Set filename... */
7363 char filename[2 * LEN];
7364 sprintf(filename, "%s_%.4f_%s.bin", ctl->tblbase,
7365 ctl->nu[id], ctl->emitter[ig]);
7366
7367 /* Write info... */
7368 LOG(1, "Write emissivity table: %s", filename);
7369
7370 /* Create file... */
7371 FILE *out;
7372 if (!(out = fopen(filename, "w")))
7373 ERRMSG("Cannot create file!");
7374
7375 /* Write binary data... */
7376 FWRITE(&tbl->np[id][ig], int,
7377 1,
7378 out);
7379 FWRITE(tbl->p[id][ig], double,
7380 (size_t) tbl->np[id][ig],
7381 out);
7382 for (int ip = 0; ip < tbl->np[id][ig]; ip++) {
7383 FWRITE(&tbl->nt[id][ig][ip], int,
7384 1,
7385 out);
7386 FWRITE(tbl->t[id][ig][ip], double,
7387 (size_t) tbl->nt[id][ig][ip],
7388 out);
7389 for (int it = 0; it < tbl->nt[id][ig][ip]; it++) {
7390 FWRITE(&tbl->nu[id][ig][ip][it], int,
7391 1,
7392 out);
7393 FWRITE(tbl->u[id][ig][ip][it], float,
7394 (size_t) tbl->nu[id][ig][ip][it],
7395 out);
7396 FWRITE(tbl->eps[id][ig][ip][it], float,
7397 (size_t) tbl->nu[id][ig][ip][it],
7398 out);
7399 }
7400 }
7401
7402 /* Close file... */
7403 fclose(out);
7404 }
7405}
7406
7407/*****************************************************************************/
7408
7409void write_tbl_gas(
7410 const ctl_t *ctl,
7411 const tbl_t *tbl) {
7412
7413 /* Loop over emitters... */
7414 for (int ig = 0; ig < ctl->ng; ig++) {
7415
7416 /* Construct filename... */
7417 char filename[2 * LEN];
7418 sprintf(filename, "%s_%s.tbl", ctl->tblbase, ctl->emitter[ig]);
7419
7420 /* Try to open existing file first... */
7421 tbl_gas_t gas;
7422 if (read_tbl_gas_open(filename, &gas) != 0) {
7423 LOG(1, "Gas file does not exist, creating: %s", filename);
7424
7425 /* Create with capacity for all frequencies... */
7426 if (write_tbl_gas_create(filename) != 0)
7427 ERRMSG("Cannot create gas table file!");
7428
7429 /* Now open it... */
7430 if (read_tbl_gas_open(filename, &gas) != 0)
7431 ERRMSG("Cannot open newly created gas table file!");
7432 }
7433
7434 /* Loop over frequencies... */
7435 for (int id = 0; id < ctl->nd; id++) {
7436
7437 /* Write one frequency table block into the gas file... */
7438 if (write_tbl_gas_single(&gas, ctl->nu[id], tbl, id, ig) != 0)
7439 ERRMSG("Error writing table block!");
7440 }
7441
7442 /* Close gas-table file (flushes index)... */
7443 read_tbl_gas_close(&gas);
7444 }
7445}
7446
7447/*****************************************************************************/
7448
7449int write_tbl_gas_create(
7450 const char *path) {
7451
7452 /* Open file... */
7453 FILE *fp = fopen(path, "wb+");
7454 if (!fp)
7455 return -1;
7456
7457 const char magic[4] = { 'G', 'T', 'L', '1' };
7458 int32_t ntables = 0;
7459
7460 /* Write header... */
7461 FWRITE(magic, char,
7462 4,
7463 fp);
7464 FWRITE(&ntables, int32_t, 1, fp);
7465
7466 /* Zeroed index... */
7467 tbl_gas_index_t zero = { 0 };
7468 for (int i = 0; i < MAX_TABLES; i++)
7469 FWRITE(&zero, tbl_gas_index_t, 1, fp);
7470
7471 /* Close file... */
7472 fflush(fp);
7473 fclose(fp);
7474
7475 return 0;
7476}
7477
7478/*****************************************************************************/
7479
7480int write_tbl_gas_single(
7481 tbl_gas_t *g,
7482 const double freq,
7483 const tbl_t *tbl,
7484 const int id,
7485 const int ig) {
7486
7487 int idx = -1;
7488
7489 /* Check if a table for this frequency already exists... */
7490 for (int i = 0; i < g->ntables; i++) {
7491 if (g->index[i].freq == freq) {
7492 idx = i;
7493 break;
7494 }
7495 }
7496
7497 /* New entry if not found... */
7498 if (idx < 0) {
7499 idx = g->ntables++;
7500 if (g->ntables > MAX_TABLES)
7501 ERRMSG("Gas table index overflow!");
7502 }
7503
7504 /* Append payload block at end of file... */
7505 if (fseek(g->fp, 0, SEEK_END) != 0)
7506 ERRMSG("Seek error in write_tbl_gas_single_flat!");
7507
7508 int64_t offset = (int64_t) ftell(g->fp);
7509 if (offset < 0)
7510 ERRMSG("ftell failed in write_tbl_gas_single_flat!");
7511
7512 long start = ftell(g->fp);
7513 if (start < 0)
7514 ERRMSG("ftell failed at payload start!");
7515
7516 /* Write number of pressures... */
7517 FWRITE(&tbl->np[id][ig], int,
7518 1,
7519 g->fp);
7520
7521 /* Write pressure grid... */
7522 FWRITE(tbl->p[id][ig], double,
7523 (size_t) tbl->np[id][ig],
7524 g->fp);
7525
7526 /* Loop over pressure levels... */
7527 for (int ip = 0; ip < tbl->np[id][ig]; ip++) {
7528
7529 /* Write number of temperatures... */
7530 FWRITE(&tbl->nt[id][ig][ip], int,
7531 1,
7532 g->fp);
7533
7534 /* Write temperature grid... */
7535 FWRITE(tbl->t[id][ig][ip], double,
7536 (size_t) tbl->nt[id][ig][ip],
7537 g->fp);
7538
7539 /* Loop over temperature levels... */
7540 for (int it = 0; it < tbl->nt[id][ig][ip]; it++) {
7541
7542 /* Write number of u points... */
7543 FWRITE(&tbl->nu[id][ig][ip][it], int,
7544 1,
7545 g->fp);
7546
7547 /* Write u array... */
7548 FWRITE(tbl->u[id][ig][ip][it], float,
7549 (size_t) tbl->nu[id][ig][ip][it],
7550 g->fp);
7551
7552 /* Write emissivity array... */
7553 FWRITE(tbl->eps[id][ig][ip][it], float,
7554 (size_t) tbl->nu[id][ig][ip][it],
7555 g->fp);
7556 }
7557 }
7558
7559 /* Update index entry... */
7560 long end = ftell(g->fp);
7561 if (end < 0)
7562 ERRMSG("ftell failed at payload end!");
7563
7564 int64_t size = (int64_t) (end - start);
7565
7566 g->index[idx].freq = freq;
7567 g->index[idx].offset = offset;
7568 g->index[idx].size = size;
7569
7570 g->dirty = 1;
7571
7572 return 0;
7573}
7574
7575/*****************************************************************************/
7576
7577void x2atm(
7578 const ctl_t *ctl,
7579 const gsl_vector *x,
7580 atm_t *atm) {
7581
7582 size_t n = 0;
7583
7584 /* Get pressure... */
7585 for (int ip = 0; ip < atm->np; ip++)
7586 if (atm->z[ip] >= ctl->retp_zmin && atm->z[ip] <= ctl->retp_zmax)
7587 x2atm_help(&atm->p[ip], x, &n);
7588
7589 /* Get temperature... */
7590 for (int ip = 0; ip < atm->np; ip++)
7591 if (atm->z[ip] >= ctl->rett_zmin && atm->z[ip] <= ctl->rett_zmax)
7592 x2atm_help(&atm->t[ip], x, &n);
7593
7594 /* Get volume mixing ratio... */
7595 for (int ig = 0; ig < ctl->ng; ig++)
7596 for (int ip = 0; ip < atm->np; ip++)
7597 if (atm->z[ip] >= ctl->retq_zmin[ig]
7598 && atm->z[ip] <= ctl->retq_zmax[ig])
7599 x2atm_help(&atm->q[ig][ip], x, &n);
7600
7601 /* Get extinction... */
7602 for (int iw = 0; iw < ctl->nw; iw++)
7603 for (int ip = 0; ip < atm->np; ip++)
7604 if (atm->z[ip] >= ctl->retk_zmin[iw]
7605 && atm->z[ip] <= ctl->retk_zmax[iw])
7606 x2atm_help(&atm->k[iw][ip], x, &n);
7607
7608 /* Get cloud data... */
7609 if (ctl->ret_clz)
7610 x2atm_help(&atm->clz, x, &n);
7611 if (ctl->ret_cldz)
7612 x2atm_help(&atm->cldz, x, &n);
7613 if (ctl->ret_clk)
7614 for (int icl = 0; icl < ctl->ncl; icl++)
7615 x2atm_help(&atm->clk[icl], x, &n);
7616
7617 /* Get surface data... */
7618 if (ctl->ret_sft)
7619 x2atm_help(&atm->sft, x, &n);
7620 if (ctl->ret_sfeps)
7621 for (int isf = 0; isf < ctl->nsf; isf++)
7622 x2atm_help(&atm->sfeps[isf], x, &n);
7623}
7624
7625/*****************************************************************************/
7626
7627void x2atm_help(
7628 double *value,
7629 const gsl_vector *x,
7630 size_t *n) {
7631
7632 /* Get state vector element... */
7633 *value = gsl_vector_get(x, *n);
7634 (*n)++;
7635}
7636
7637/*****************************************************************************/
7638
7639void y2obs(
7640 const ctl_t *ctl,
7641 const gsl_vector *y,
7642 obs_t *obs) {
7643
7644 size_t m = 0;
7645
7646 /* Decompose measurement vector... */
7647 for (int ir = 0; ir < obs->nr; ir++)
7648 for (int id = 0; id < ctl->nd; id++)
7649 if (isfinite(obs->rad[id][ir])) {
7650 obs->rad[id][ir] = gsl_vector_get(y, m);
7651 m++;
7652 }
7653}
analyze_avk
void analyze_avk(const ret_t *ret, const ctl_t *ctl, const atm_t *atm, const int *iqa, const int *ipa, const gsl_matrix *avk)
Analyze averaging kernel (AVK) matrix for retrieval diagnostics.
Definition: jurassic.c:29
read_tbl_bin
void read_tbl_bin(const ctl_t *ctl, tbl_t *tbl, const int id, const int ig)
Read a single binary emissivity lookup table.
Definition: jurassic.c:6037
cost_function
double cost_function(const gsl_vector *dx, const gsl_vector *dy, const gsl_matrix *s_a_inv, const gsl_vector *sig_eps_inv)
Compute the normalized quadratic cost function for optimal estimation.
Definition: jurassic.c:1179
read_atm_bin
void read_atm_bin(FILE *in, const ctl_t *ctl, atm_t *atm)
Read atmospheric data in binary format.
Definition: jurassic.c:5236
read_obs_rfm
double read_obs_rfm(const char *basename, const double z, const double *nu, const double *f, const int n)
Read and spectrally convolve an RFM output spectrum.
Definition: jurassic.c:5673
read_matrix
void read_matrix(const char *dirname, const char *filename, gsl_matrix *matrix)
Read a numerical matrix from an ASCII file.
Definition: jurassic.c:5440
timer
void timer(const char *name, const char *file, const char *func, int line, int mode)
Simple wall-clock timer for runtime diagnostics.
Definition: jurassic.c:6566
read_rfm_spec
void read_rfm_spec(const char *filename, double *nu, double *rad, int *npts)
Read a Reference Forward Model (RFM) ASCII spectrum.
Definition: jurassic.c:5784
cos_sza
double cos_sza(const double sec, const double lon, const double lat)
Calculates the cosine of the solar zenith angle.
Definition: jurassic.c:1138
write_atm
void write_atm(const char *dirname, const char *filename, const ctl_t *ctl, const atm_t *atm)
Write atmospheric data to a file.
Definition: jurassic.c:6604
locate_reg
int locate_reg(const double *xx, const int n, const double x)
Locate index for interpolation on a regular (uniform) grid.
Definition: jurassic.c:4458
intpol_tbl_ega
void intpol_tbl_ega(const ctl_t *ctl, const tbl_t *tbl, const los_t *los, const int ip, double tau_path[ND][NG], double tau_seg[ND])
Interpolate emissivities and transmittances using the Emissivity Growth Approximation (EGA).
Definition: jurassic.c:4140
formod_rfm
void formod_rfm(const ctl_t *ctl, const atm_t *atm, obs_t *obs)
Interface routine for the Reference Forward Model (RFM).
Definition: jurassic.c:3695
ctmo2
double ctmo2(const double nu, const double p, const double t)
Compute O₂ collision-induced absorption coefficient.
Definition: jurassic.c:3196
write_tbl_gas_single
int write_tbl_gas_single(tbl_gas_t *g, const double freq, const tbl_t *tbl, const int id, const int ig)
Append or overwrite a single frequency-table block in a per-gas file.
Definition: jurassic.c:7480
idx2name
void idx2name(const ctl_t *ctl, const int idx, char *quantity)
Convert a quantity index to a descriptive name string.
Definition: jurassic.c:3933
read_tbl_gas_single
int read_tbl_gas_single(const tbl_gas_t *g, const double freq, tbl_t *tbl, const int id, const int ig)
Read one emissivity table block from a per-gas table file.
Definition: jurassic.c:6189
read_ctl
void read_ctl(int argc, char *argv[], ctl_t *ctl)
Read model control parameters from command-line and configuration input.
Definition: jurassic.c:5322
formod_continua
void formod_continua(const ctl_t *ctl, const los_t *los, const int ip, double *beta)
Compute total extinction including gaseous continua.
Definition: jurassic.c:3459
write_obs_bin
void write_obs_bin(FILE *out, const ctl_t *ctl, const obs_t *obs)
Write observation data in binary format to an output file stream.
Definition: jurassic.c:7163
raytrace
void raytrace(const ctl_t *ctl, const atm_t *atm, obs_t *obs, los_t *los, const int ir)
Perform line-of-sight (LOS) ray tracing through the atmosphere.
Definition: jurassic.c:4873
matrix_product
void matrix_product(const gsl_matrix *a, const gsl_vector *b, const int transpose, gsl_matrix *c)
Compute structured matrix products of the form or .
Definition: jurassic.c:4529
locate_irr
int locate_irr(const double *xx, const int n, const double x)
Locate index for interpolation on an irregular grid.
Definition: jurassic.c:4428
write_tbl_asc
void write_tbl_asc(const ctl_t *ctl, const tbl_t *tbl)
Write all lookup tables in human-readable ASCII format.
Definition: jurassic.c:7309
day2doy
void day2doy(int year, int mon, int day, int *doy)
Convert a calendar date to day-of-year.
Definition: jurassic.c:3346
time2jsec
void time2jsec(const int year, const int mon, const int day, const int hour, const int min, const int sec, const double remain, double *jsec)
Converts time components to seconds since January 1, 2000, 12:00:00 UTC.
Definition: jurassic.c:6535
x2atm
void x2atm(const ctl_t *ctl, const gsl_vector *x, atm_t *atm)
Map retrieval state vector back to atmospheric structure.
Definition: jurassic.c:7577
atm2x_help
void atm2x_help(const double value, const int value_iqa, const int value_ip, gsl_vector *x, int *iqa, int *ipa, size_t *n)
Append a single atmospheric value to the state vector.
Definition: jurassic.c:164
ctmh2o
double ctmh2o(const double nu, const double p, const double t, const double q, const double u)
Compute water vapor continuum (optical depth).
Definition: jurassic.c:2075
intpol_tbl_cga
void intpol_tbl_cga(const ctl_t *ctl, const tbl_t *tbl, const los_t *los, const int ip, double tau_path[ND][NG], double tau_seg[ND])
Interpolate emissivities and transmittances using the Curtis–Godson approximation (CGA).
Definition: jurassic.c:4051
write_tbl_bin
void write_tbl_bin(const ctl_t *ctl, const tbl_t *tbl)
Write all lookup tables in compact binary format.
Definition: jurassic.c:7354
write_atm_rfm
void write_atm_rfm(const char *filename, const ctl_t *ctl, const atm_t *atm)
Write atmospheric profile in RFM-compatible format.
Definition: jurassic.c:6817
set_cov_meas
void set_cov_meas(const ret_t *ret, const ctl_t *ctl, const obs_t *obs, gsl_vector *sig_noise, gsl_vector *sig_formod, gsl_vector *sig_eps_inv)
Construct measurement error standard deviations and their inverse.
Definition: jurassic.c:6447
intpol_tbl_u
double intpol_tbl_u(const tbl_t *tbl, const int ig, const int id, const int ip, const int it, const double eps)
Interpolate column density from lookup tables as a function of emissivity.
Definition: jurassic.c:4268
intpol_tbl_eps
double intpol_tbl_eps(const tbl_t *tbl, const int ig, const int id, const int ip, const int it, const double u)
Interpolate emissivity from lookup tables as a function of column density.
Definition: jurassic.c:4236
write_tbl
void write_tbl(const ctl_t *ctl, const tbl_t *tbl)
Write all emissivity lookup tables in the format specified by the control structure.
Definition: jurassic.c:7286
write_obs_asc
void write_obs_asc(FILE *out, const ctl_t *ctl, const obs_t *obs)
Write observation data to an ASCII text file.
Definition: jurassic.c:7115
write_tbl_gas
void write_tbl_gas(const ctl_t *ctl, const tbl_t *tbl)
Write lookup tables into per-gas binary table files with indexed blocks.
Definition: jurassic.c:7409
intpol_atm
void intpol_atm(const ctl_t *ctl, const atm_t *atm, const double z, double *p, double *t, double *q, double *k)
Interpolate atmospheric state variables at a given altitude.
Definition: jurassic.c:4026
read_tbl_gas
void read_tbl_gas(const ctl_t *ctl, tbl_t *tbl, const int id, const int ig)
Read one frequency block from a per-gas binary table file.
Definition: jurassic.c:6097
find_emitter
int find_emitter(const ctl_t *ctl, const char *emitter)
Find gas species index by name.
Definition: jurassic.c:3396
optimal_estimation
void optimal_estimation(ret_t *ret, ctl_t *ctl, tbl_t *tbl, obs_t *obs_meas, obs_t *obs_i, atm_t *atm_apr, atm_t *atm_i, double *chisq)
Perform optimal estimation retrieval using Levenberg–Marquardt minimization.
Definition: jurassic.c:4601
tangent_point
void tangent_point(const los_t *los, double *tpz, double *tplon, double *tplat)
Determine the tangent point along a line of sight (LOS).
Definition: jurassic.c:6491
read_obs_asc
void read_obs_asc(FILE *in, const ctl_t *ctl, obs_t *obs)
Read ASCII-formatted observation data from an open file stream.
Definition: jurassic.c:5566
formod_pencil
void formod_pencil(const ctl_t *ctl, const tbl_t *tbl, const atm_t *atm, obs_t *obs, const int ir)
Compute line-of-sight radiances using the pencil-beam forward model.
Definition: jurassic.c:3560
ctmco2
double ctmco2(const double nu, const double p, const double t, const double u)
Compute carbon dioxide continuum (optical depth).
Definition: jurassic.c:1212
read_obs_bin
void read_obs_bin(FILE *in, const ctl_t *ctl, obs_t *obs)
Read binary-formatted observation data from an open file stream.
Definition: jurassic.c:5603
read_atm
void read_atm(const char *dirname, const char *filename, const ctl_t *ctl, atm_t *atm)
Read atmospheric input data from a file.
Definition: jurassic.c:5109
copy_obs
void copy_obs(const ctl_t *ctl, obs_t *obs_dest, const obs_t *obs_src, const int init)
Copy or initialize observation geometry and radiance data.
Definition: jurassic.c:3308
read_obs
void read_obs(const char *dirname, const char *filename, const ctl_t *ctl, obs_t *obs)
Read observation data from an input file.
Definition: jurassic.c:5480
write_obs
void write_obs(const char *dirname, const char *filename, const ctl_t *ctl, const obs_t *obs)
Write observation data to an output file in ASCII or binary format.
Definition: jurassic.c:7033
x2atm_help
void x2atm_help(double *value, const gsl_vector *x, size_t *n)
Helper function to extract a single value from the retrieval state vector.
Definition: jurassic.c:7627
cart2geo
void cart2geo(const double *x, double *z, double *lon, double *lat)
Converts Cartesian coordinates to geographic coordinates.
Definition: jurassic.c:185
formod_fov
void formod_fov(const ctl_t *ctl, obs_t *obs)
Apply field-of-view (FOV) convolution to modeled radiances.
Definition: jurassic.c:3495
doy2day
void doy2day(int year, int doy, int *mon, int *day)
Convert a day-of-year value to a calendar date.
Definition: jurassic.c:3366
kernel
void kernel(const ctl_t *ctl, const tbl_t *tbl, atm_t *atm, obs_t *obs, gsl_matrix *k)
Compute the Jacobian (kernel) matrix by finite differences.
Definition: jurassic.c:4333
init_srcfunc
void init_srcfunc(const ctl_t *ctl, tbl_t *tbl)
Initialize the source-function (Planck radiance) lookup table.
Definition: jurassic.c:3972
matrix_invert
void matrix_invert(gsl_matrix *a)
Invert a square matrix, optimized for diagonal or symmetric positive-definite matrices.
Definition: jurassic.c:4499
read_ret
void read_ret(int argc, char *argv[], const ctl_t *ctl, ret_t *ret)
Read retrieval configuration and error parameters.
Definition: jurassic.c:5731
write_atm_bin
void write_atm_bin(FILE *out, const ctl_t *ctl, const atm_t *atm)
Write atmospheric data to a binary file.
Definition: jurassic.c:6741
scan_ctl
double scan_ctl(int argc, char *argv[], const char *varname, const int arridx, const char *defvalue, char *value)
Scan control file or command-line arguments for a configuration variable.
Definition: jurassic.c:6267
write_shape
void write_shape(const char *filename, const double *x, const double *y, const int n)
Write tabulated shape function data to a text file.
Definition: jurassic.c:7223
formod
void formod(const ctl_t *ctl, const tbl_t *tbl, atm_t *atm, obs_t *obs)
Execute the selected forward model.
Definition: jurassic.c:3409
read_tbl_asc
void read_tbl_asc(const ctl_t *ctl, tbl_t *tbl, const int id, const int ig)
Read a single ASCII emissivity lookup table.
Definition: jurassic.c:5939
formod_srcfunc
void formod_srcfunc(const ctl_t *ctl, const tbl_t *tbl, const double t, double *src)
Interpolate the source function (Planck radiance) at a given temperature.
Definition: jurassic.c:3836
analyze_avk_quantity
void analyze_avk_quantity(const gsl_matrix *avk, const int iq, const int *ipa, const size_t *n0, const size_t *n1, double *cont, double *res)
Analyze averaging kernel submatrix for a specific retrieved quantity.
Definition: jurassic.c:86
jsec2time
void jsec2time(const double jsec, int *year, int *mon, int *day, int *hour, int *min, int *sec, double *remain)
Converts Julian seconds to calendar date and time components.
Definition: jurassic.c:4300
read_tbl
tbl_t * read_tbl(const ctl_t *ctl)
Read all emissivity lookup tables for all gases and frequencies.
Definition: jurassic.c:5887
copy_atm
void copy_atm(const ctl_t *ctl, atm_t *atm_dest, const atm_t *atm_src, const int init)
Copy or initialize atmospheric profile data.
Definition: jurassic.c:3258
obs2y
size_t obs2y(const ctl_t *ctl, const obs_t *obs, gsl_vector *y, int *ida, int *ira)
Convert observation radiances into a measurement vector.
Definition: jurassic.c:4574
y2obs
void y2obs(const ctl_t *ctl, const gsl_vector *y, obs_t *obs)
Copy elements from the measurement vector y into the observation structure.
Definition: jurassic.c:7639
hydrostatic
void hydrostatic(const ctl_t *ctl, atm_t *atm)
Adjust pressure profile using the hydrostatic equation.
Definition: jurassic.c:3873
read_shape
void read_shape(const char *filename, double *x, double *y, int *n)
Read a two-column shape function from an ASCII file.
Definition: jurassic.c:5845
read_atm_asc
void read_atm_asc(FILE *in, const ctl_t *ctl, atm_t *atm)
Read atmospheric data in ASCII format.
Definition: jurassic.c:5192
ctmn2
double ctmn2(const double nu, const double p, const double t)
Compute N₂ collision-induced absorption coefficient.
Definition: jurassic.c:3127
read_tbl_gas_close
int read_tbl_gas_close(tbl_gas_t *g)
Close a per-gas binary table file and optionally rewrite metadata.
Definition: jurassic.c:6127
atm2x
size_t atm2x(const ctl_t *ctl, const atm_t *atm, gsl_vector *x, int *iqa, int *ipa)
Convert atmospheric data to state vector elements.
Definition: jurassic.c:110
read_tbl_gas_open
int read_tbl_gas_open(const char *path, tbl_gas_t *g)
Open a per-gas binary table file for reading and writing.
Definition: jurassic.c:6160
climatology
void climatology(const ctl_t *ctl, atm_t *atm)
Initializes atmospheric climatology profiles.
Definition: jurassic.c:200
geo2cart
void geo2cart(const double z, const double lon, const double lat, double *x)
Converts geographic coordinates (longitude, latitude, altitude) to Cartesian coordinates.
Definition: jurassic.c:3853
write_matrix
void write_matrix(const char *dirname, const char *filename, const ctl_t *ctl, const gsl_matrix *matrix, const atm_t *atm, const obs_t *obs, const char *rowspace, const char *colspace, const char *sort)
Write a fully annotated matrix (e.g., Jacobian or gain matrix) to file.
Definition: jurassic.c:6855
set_cov_apr
void set_cov_apr(const ret_t *ret, const ctl_t *ctl, const atm_t *atm, const int *iqa, const int *ipa, gsl_matrix *s_a)
Construct the a priori covariance matrix for retrieval parameters.
Definition: jurassic.c:6336
write_stddev
void write_stddev(const char *quantity, const ret_t *ret, const ctl_t *ctl, const atm_t *atm, const gsl_matrix *s)
Write retrieval standard deviation profiles to disk.
Definition: jurassic.c:7253
write_atm_asc
void write_atm_asc(FILE *out, const ctl_t *ctl, const atm_t *atm)
Write atmospheric data to an ASCII file.
Definition: jurassic.c:6680
locate_tbl
int locate_tbl(const float *xx, const int n, const double x)
Locate index for interpolation within emissivity table grids.
Definition: jurassic.c:4477
write_tbl_gas_create
int write_tbl_gas_create(const char *path)
Create a new per-gas table file with an empty index.
Definition: jurassic.c:7449
jurassic.h
JURASSIC library declarations.
N
#define N
Maximum size of state vector.
Definition: jurassic.h:277
IDXCLZ
#define IDXCLZ
Index for cloud layer height.
Definition: jurassic.h:347
LEN
#define LEN
Maximum length of ASCII data lines.
Definition: jurassic.h:267
RE
#define RE
Mean radius of Earth [km].
Definition: jurassic.h:188
BRIGHT
#define BRIGHT(rad, nu)
Compute brightness temperature from radiance.
Definition: jurassic.h:412
P0
#define P0
Standard pressure [hPa].
Definition: jurassic.h:183
KB
#define KB
Boltzmann constant [kg m^2/(K s^2)].
Definition: jurassic.h:158
POW2
#define POW2(x)
Compute the square of a value.
Definition: jurassic.h:753
NFOV
#define NFOV
Number of ray paths used for FOV calculations.
Definition: jurassic.h:297
FWRITE
#define FWRITE(ptr, type, size, out)
Write binary data to a file.
Definition: jurassic.h:525
DOTP
#define DOTP(a, b)
Compute dot product of two 3D vectors.
Definition: jurassic.h:482
O2
#define O2
Oxygen concentration.
Definition: jurassic.h:178
UMAX
#define UMAX
Maximum column density [molecules/cm^2].
Definition: jurassic.h:223
MIN
#define MIN(a, b)
Determine the minimum of two values.
Definition: jurassic.h:631
IDXCLDZ
#define IDXCLDZ
Index for cloud layer depth.
Definition: jurassic.h:350
ERRMSG
#define ERRMSG(...)
Print an error message with contextual information and terminate the program.
Definition: jurassic.h:948
RFMNPTS
#define RFMNPTS
Maximum number of RFM spectral grid points.
Definition: jurassic.h:327
IDXK
#define IDXK(iw)
Indices for extinction.
Definition: jurassic.h:344
M
#define M
Maximum size of measurement vector.
Definition: jurassic.h:272
G0
#define G0
Standard gravity [m/s^2].
Definition: jurassic.h:148
NQ
#define NQ
Maximum number of quantities.
Definition: jurassic.h:282
ND
#define ND
Maximum number of radiance channels.
Definition: jurassic.h:237
NA
#define NA
Avogadro's number.
Definition: jurassic.h:168
LOGY
#define LOGY(x0, y0, x1, y1, x)
Compute logarithmic interpolation in y.
Definition: jurassic.h:592
MAX_TABLES
#define MAX_TABLES
Maximum number of frequency-table entries allowed in a gas table file.
Definition: jurassic.h:322
NSHAPE
#define NSHAPE
Maximum number of shape function grid points.
Definition: jurassic.h:292
IDXSFT
#define IDXSFT
Index for surface layer temperature.
Definition: jurassic.h:356
RI
#define RI
Ideal gas constant [J/(mol K)].
Definition: jurassic.h:193
NORM
#define NORM(a)
Compute the norm (magnitude) of a 3D vector.
Definition: jurassic.h:708
IDXSFEPS
#define IDXSFEPS(isf)
Indices for surface layer emissivity.
Definition: jurassic.h:359
IDXCLK
#define IDXCLK(icl)
Indices for cloud layer extinction.
Definition: jurassic.h:353
LOGX
#define LOGX(x0, y0, x1, y1, x)
Compute logarithmic interpolation in x.
Definition: jurassic.h:569
TOK
#define TOK(line, tok, format, var)
Tokenize a string and parse a variable.
Definition: jurassic.h:834
WARN
#define WARN(...)
Print a warning message with contextual information.
Definition: jurassic.h:915
TBLNU
#define TBLNU
Maximum number of column densities in emissivity tables.
Definition: jurassic.h:312
IDXP
#define IDXP
Index for pressure.
Definition: jurassic.h:335
ALLOC
#define ALLOC(ptr, type, n)
Allocate memory for an array.
Definition: jurassic.h:382
DEG2RAD
#define DEG2RAD(deg)
Convert degrees to radians.
Definition: jurassic.h:429
TSUN
#define TSUN
Effective temperature of the sun [K].
Definition: jurassic.h:213
RAD2DEG
#define RAD2DEG(rad)
Convert radians to degrees.
Definition: jurassic.h:782
TBLNT
#define TBLNT
Maximum number of temperatures in emissivity tables.
Definition: jurassic.h:307
NP
#define NP
Maximum number of atmospheric data points.
Definition: jurassic.h:247
POW3
#define POW3(x)
Compute the cube of a value.
Definition: jurassic.h:766
PLANCK
#define PLANCK(T, nu)
Compute spectral radiance using Planck’s law.
Definition: jurassic.h:739
NG
#define NG
Maximum number of emitters.
Definition: jurassic.h:242
EPSMAX
#define EPSMAX
Maximum emissivity.
Definition: jurassic.h:143
LOG
#define LOG(level,...)
Print a log message with a specified logging level.
Definition: jurassic.h:878
TBLNS
#define TBLNS
Maximum number of source function temperature levels.
Definition: jurassic.h:317
N2
#define N2
Nitrogen concentration.
Definition: jurassic.h:173
REFRAC
#define REFRAC(p, T)
Compute air refractivity (n - 1).
Definition: jurassic.h:798
TBLNP
#define TBLNP
Maximum number of pressure levels in emissivity tables.
Definition: jurassic.h:302
NSF
#define NSF
Maximum number of surface layer spectral grid points.
Definition: jurassic.h:257
NCL
#define NCL
Maximum number of cloud layer spectral grid points.
Definition: jurassic.h:232
DIST
#define DIST(a, b)
Compute Cartesian distance between two 3D vectors.
Definition: jurassic.h:447
FREAD
#define FREAD(ptr, type, size, out)
Read binary data from a file.
Definition: jurassic.h:502
LIN
#define LIN(x0, y0, x1, y1, x)
Compute linear interpolation.
Definition: jurassic.h:548
NLOS
#define NLOS
Maximum number of LOS points.
Definition: jurassic.h:287
NR
#define NR
Maximum number of ray paths.
Definition: jurassic.h:252
IDXQ
#define IDXQ(ig)
Indices for volume mixing ratios.
Definition: jurassic.h:341
TMAX
#define TMAX
Maximum temperature for source function [K].
Definition: jurassic.h:208
TMIN
#define TMIN
Minimum temperature for source function [K].
Definition: jurassic.h:203
NW
#define NW
Maximum number of spectral windows.
Definition: jurassic.h:262
MAX
#define MAX(a, b)
Determine the maximum of two values.
Definition: jurassic.h:613
IDXT
#define IDXT
Index for temperature.
Definition: jurassic.h:338
atm_t
Atmospheric profile data.
Definition: jurassic.h:998
atm_t::time
double time[NP]
Time (seconds since 2000-01-01T00:00Z).
Definition: jurassic.h:1004
atm_t::sfeps
double sfeps[NSF]
Surface emissivity.
Definition: jurassic.h:1040
atm_t::k
double k[NW][NP]
Extinction [km^-1].
Definition: jurassic.h:1025
atm_t::lat
double lat[NP]
Latitude [deg].
Definition: jurassic.h:1013
atm_t::lon
double lon[NP]
Longitude [deg].
Definition: jurassic.h:1010
atm_t::t
double t[NP]
Temperature [K].
Definition: jurassic.h:1019
atm_t::clz
double clz
Cloud layer height [km].
Definition: jurassic.h:1028
atm_t::np
int np
Number of data points.
Definition: jurassic.h:1001
atm_t::cldz
double cldz
Cloud layer depth [km].
Definition: jurassic.h:1031
atm_t::sft
double sft
Surface temperature [K].
Definition: jurassic.h:1037
atm_t::z
double z[NP]
Altitude [km].
Definition: jurassic.h:1007
atm_t::clk
double clk[NCL]
Cloud layer extinction [km^-1].
Definition: jurassic.h:1034
atm_t::q
double q[NG][NP]
Volume mixing ratio [ppv].
Definition: jurassic.h:1022
atm_t::p
double p[NP]
Pressure [hPa].
Definition: jurassic.h:1016
ctl_t
Control parameters.
Definition: jurassic.h:1051
ctl_t::write_matrix
int write_matrix
Write matrix file (0=no, 1=yes).
Definition: jurassic.h:1192
ctl_t::nw
int nw
Number of spectral windows.
Definition: jurassic.h:1078
ctl_t::atmfmt
int atmfmt
Atmospheric data file format (1=ASCII, 2=binary).
Definition: jurassic.h:1108
ctl_t::retp_zmin
double retp_zmin
Minimum altitude for pressure retrieval [km].
Definition: jurassic.h:1150
ctl_t::nu
double nu[ND]
Centroid wavenumber of each channel [cm^-1].
Definition: jurassic.h:1075
ctl_t::ig_co2
int ig_co2
Emitter index of CO2.
Definition: jurassic.h:1060
ctl_t::retk_zmax
double retk_zmax[NW]
Maximum altitude for extinction retrieval [km].
Definition: jurassic.h:1171
ctl_t::sfnu
double sfnu[NSF]
Surface layer wavenumber [cm^-1].
Definition: jurassic.h:1093
ctl_t::rfmhit
char rfmhit[LEN]
HITRAN file for RFM.
Definition: jurassic.h:1201
ctl_t::tblbase
char tblbase[LEN]
Basename for table files and filter function files.
Definition: jurassic.h:1102
ctl_t::rfmbin
char rfmbin[LEN]
Path to RFM binary.
Definition: jurassic.h:1198
ctl_t::hydz
double hydz
Reference height for hydrostatic pressure profile (-999 to skip) [km].
Definition: jurassic.h:1114
ctl_t::ctm_co2
int ctm_co2
Compute CO2 continuum (0=no, 1=yes).
Definition: jurassic.h:1117
ctl_t::rett_zmax
double rett_zmax
Maximum altitude for temperature retrieval [km].
Definition: jurassic.h:1159
ctl_t::ret_sfeps
int ret_sfeps
Retrieve surface layer emissivity (0=no, 1=yes).
Definition: jurassic.h:1186
ctl_t::ret_sft
int ret_sft
Retrieve surface layer temperature (0=no, 1=yes).
Definition: jurassic.h:1183
ctl_t::ret_clz
int ret_clz
Retrieve cloud layer height (0=no, 1=yes).
Definition: jurassic.h:1174
ctl_t::ctm_n2
int ctm_n2
Compute N2 continuum (0=no, 1=yes).
Definition: jurassic.h:1123
ctl_t::fov
char fov[LEN]
Field-of-view data file.
Definition: jurassic.h:1138
ctl_t::rfmxsc
char rfmxsc[NG][LEN]
Emitter cross-section files for RFM.
Definition: jurassic.h:1204
ctl_t::window
int window[ND]
Window index of each channel.
Definition: jurassic.h:1081
ctl_t::ctm_h2o
int ctm_h2o
Compute H2O continuum (0=no, 1=yes).
Definition: jurassic.h:1120
ctl_t::formod
int formod
Forward model (0=CGA, 1=EGA, 2=RFM).
Definition: jurassic.h:1195
ctl_t::retq_zmax
double retq_zmax[NG]
Maximum altitude for volume mixing ratio retrieval [km].
Definition: jurassic.h:1165
ctl_t::retq_zmin
double retq_zmin[NG]
Minimum altitude for volume mixing ratio retrieval [km].
Definition: jurassic.h:1162
ctl_t::ng
int ng
Number of emitters.
Definition: jurassic.h:1054
ctl_t::clnu
double clnu[NCL]
Cloud layer wavenumber [cm^-1].
Definition: jurassic.h:1087
ctl_t::refrac
int refrac
Take into account refractivity (0=no, 1=yes).
Definition: jurassic.h:1129
ctl_t::ig_o2
int ig_o2
Emitter index of O2.
Definition: jurassic.h:1069
ctl_t::rett_zmin
double rett_zmin
Minimum altitude for temperature retrieval [km].
Definition: jurassic.h:1156
ctl_t::sfsza
double sfsza
Solar zenith angle at the surface [deg] (-999=auto).
Definition: jurassic.h:1099
ctl_t::nd
int nd
Number of radiance channels.
Definition: jurassic.h:1072
ctl_t::fov_n
int fov_n
Field-of-view number of data points.
Definition: jurassic.h:1147
ctl_t::sftype
int sftype
Surface treatment (0=none, 1=emissions, 2=downward, 3=solar).
Definition: jurassic.h:1096
ctl_t::retk_zmin
double retk_zmin[NW]
Minimum altitude for extinction retrieval [km].
Definition: jurassic.h:1168
ctl_t::ncl
int ncl
Number of cloud layer spectral grid points.
Definition: jurassic.h:1084
ctl_t::ig_n2
int ig_n2
Emitter index of N2.
Definition: jurassic.h:1066
ctl_t::obsfmt
int obsfmt
Observation data file format (1=ASCII, 2=binary).
Definition: jurassic.h:1111
ctl_t::fov_dz
double fov_dz[NSHAPE]
Field-of-view vertical distance [km].
Definition: jurassic.h:1141
ctl_t::ctm_o2
int ctm_o2
Compute O2 continuum (0=no, 1=yes).
Definition: jurassic.h:1126
ctl_t::ret_clk
int ret_clk
Retrieve cloud layer extinction (0=no, 1=yes).
Definition: jurassic.h:1180
ctl_t::emitter
char emitter[NG][LEN]
Name of each emitter.
Definition: jurassic.h:1057
ctl_t::nsf
int nsf
Number of surface layer spectral grid points.
Definition: jurassic.h:1090
ctl_t::rayds
double rayds
Maximum step length for raytracing [km].
Definition: jurassic.h:1132
ctl_t::ret_cldz
int ret_cldz
Retrieve cloud layer depth (0=no, 1=yes).
Definition: jurassic.h:1177
ctl_t::ig_h2o
int ig_h2o
Emitter index of H2O.
Definition: jurassic.h:1063
ctl_t::tblfmt
int tblfmt
Look-up table file format (1=ASCII, 2=binary).
Definition: jurassic.h:1105
ctl_t::raydz
double raydz
Vertical step length for raytracing [km].
Definition: jurassic.h:1135
ctl_t::write_bbt
int write_bbt
Use brightness temperature instead of radiance (0=no, 1=yes).
Definition: jurassic.h:1189
ctl_t::fov_w
double fov_w[NSHAPE]
Field-of-view weighting factor.
Definition: jurassic.h:1144
ctl_t::retp_zmax
double retp_zmax
Maximum altitude for pressure retrieval [km].
Definition: jurassic.h:1153
los_t
Line-of-sight data.
Definition: jurassic.h:1215
los_t::z
double z[NLOS]
Altitude [km].
Definition: jurassic.h:1221
los_t::eps
double eps[NLOS][ND]
Segment emissivity.
Definition: jurassic.h:1263
los_t::cgu
double cgu[NLOS][NG]
Curtis-Godson column density [molecules/cm^2].
Definition: jurassic.h:1260
los_t::q
double q[NLOS][NG]
Volume mixing ratio [ppv].
Definition: jurassic.h:1236
los_t::sft
double sft
Surface temperature [K].
Definition: jurassic.h:1242
los_t::cgt
double cgt[NLOS][NG]
Curtis-Godson temperature [K].
Definition: jurassic.h:1257
los_t::lon
double lon[NLOS]
Longitude [deg].
Definition: jurassic.h:1224
los_t::ds
double ds[NLOS]
Segment length [km].
Definition: jurassic.h:1248
los_t::np
int np
Number of LOS points.
Definition: jurassic.h:1218
los_t::u
double u[NLOS][NG]
Column density [molecules/cm^2].
Definition: jurassic.h:1251
los_t::lat
double lat[NLOS]
Latitude [deg].
Definition: jurassic.h:1227
los_t::src
double src[NLOS][ND]
Segment source function [W/(m^2 sr cm^-1)].
Definition: jurassic.h:1266
los_t::k
double k[NLOS][ND]
Extinction [km^-1].
Definition: jurassic.h:1239
los_t::sfeps
double sfeps[ND]
Surface emissivity.
Definition: jurassic.h:1245
los_t::cgp
double cgp[NLOS][NG]
Curtis-Godson pressure [hPa].
Definition: jurassic.h:1254
los_t::t
double t[NLOS]
Temperature [K].
Definition: jurassic.h:1233
los_t::p
double p[NLOS]
Pressure [hPa].
Definition: jurassic.h:1230
obs_t
Observation geometry and radiance data.
Definition: jurassic.h:1277
obs_t::tau
double tau[ND][NR]
Transmittance of ray path.
Definition: jurassic.h:1313
obs_t::rad
double rad[ND][NR]
Radiance [W/(m^2 sr cm^-1)].
Definition: jurassic.h:1316
obs_t::tplon
double tplon[NR]
Tangent point longitude [deg].
Definition: jurassic.h:1307
obs_t::vpz
double vpz[NR]
View point altitude [km].
Definition: jurassic.h:1295
obs_t::vplat
double vplat[NR]
View point latitude [deg].
Definition: jurassic.h:1301
obs_t::obslon
double obslon[NR]
Observer longitude [deg].
Definition: jurassic.h:1289
obs_t::obslat
double obslat[NR]
Observer latitude [deg].
Definition: jurassic.h:1292
obs_t::obsz
double obsz[NR]
Observer altitude [km].
Definition: jurassic.h:1286
obs_t::tplat
double tplat[NR]
Tangent point latitude [deg].
Definition: jurassic.h:1310
obs_t::vplon
double vplon[NR]
View point longitude [deg].
Definition: jurassic.h:1298
obs_t::time
double time[NR]
Time (seconds since 2000-01-01T00:00Z).
Definition: jurassic.h:1283
obs_t::tpz
double tpz[NR]
Tangent point altitude [km].
Definition: jurassic.h:1304
obs_t::nr
int nr
Number of ray paths.
Definition: jurassic.h:1280
ret_t
Retrieval control parameters.
Definition: jurassic.h:1329
ret_t::err_press_cz
double err_press_cz
Vertical correlation length for pressure error [km].
Definition: jurassic.h:1356
ret_t::err_press
double err_press
Pressure error [%].
Definition: jurassic.h:1353
ret_t::err_k_cz
double err_k_cz[NW]
Vertical correlation length for extinction error [km].
Definition: jurassic.h:1383
ret_t::err_ana
int err_ana
Carry out error analysis (0=no, 1=yes).
Definition: jurassic.h:1344
ret_t::err_k_ch
double err_k_ch[NW]
Horizontal correlation length for extinction error [km].
Definition: jurassic.h:1386
ret_t::err_temp_cz
double err_temp_cz
Vertical correlation length for temperature error [km].
Definition: jurassic.h:1365
ret_t::err_formod
double err_formod[ND]
Forward model error [%].
Definition: jurassic.h:1347
ret_t::conv_dmin
double conv_dmin
Minimum normalized step size in state space.
Definition: jurassic.h:1341
ret_t::err_temp
double err_temp
Temperature error [K].
Definition: jurassic.h:1362
ret_t::err_q_cz
double err_q_cz[NG]
Vertical correlation length for volume mixing ratio error [km].
Definition: jurassic.h:1374
ret_t::err_noise
double err_noise[ND]
Noise error [W/(m^2 sr cm^-1)].
Definition: jurassic.h:1350
ret_t::err_clz
double err_clz
Cloud height error [km].
Definition: jurassic.h:1389
ret_t::err_sft
double err_sft
Surface temperature error [K].
Definition: jurassic.h:1398
ret_t::err_clk
double err_clk[NCL]
Cloud extinction error [km^-1].
Definition: jurassic.h:1395
ret_t::err_temp_ch
double err_temp_ch
Horizontal correlation length for temperature error [km].
Definition: jurassic.h:1368
ret_t::kernel_recomp
int kernel_recomp
Re-computation of kernel matrix (number of iterations).
Definition: jurassic.h:1335
ret_t::conv_itmax
int conv_itmax
Maximum number of iterations.
Definition: jurassic.h:1338
ret_t::err_cldz
double err_cldz
Cloud depth error [km].
Definition: jurassic.h:1392
ret_t::err_press_ch
double err_press_ch
Horizontal correlation length for pressure error [km].
Definition: jurassic.h:1359
ret_t::err_q_ch
double err_q_ch[NG]
Horizontal correlation length for volume mixing ratio error [km].
Definition: jurassic.h:1377
ret_t::err_q
double err_q[NG]
Volume mixing ratio error [%].
Definition: jurassic.h:1371
ret_t::dir
char dir[LEN]
Working directory.
Definition: jurassic.h:1332
ret_t::err_sfeps
double err_sfeps[NSF]
Surface emissivity error.
Definition: jurassic.h:1401
ret_t::err_k
double err_k[NW]
Extinction error [km^-1].
Definition: jurassic.h:1380
tbl_gas_index_t
On-disk index entry describing one frequency table block in a gas file.
Definition: jurassic.h:1448
tbl_gas_index_t::offset
int64_t offset
Byte offset in file where the serialized block begins.
Definition: jurassic.h:1454
tbl_gas_index_t::size
int64_t size
Size of the serialized block (in bytes).
Definition: jurassic.h:1457
tbl_gas_index_t::freq
double freq
Frequency identifier ν_j for this table block.
Definition: jurassic.h:1451
tbl_gas_t
In-memory representation of an open per-gas lookup-table file.
Definition: jurassic.h:1468
tbl_gas_t::fp
FILE * fp
Open file handle ("rb+"), NULL if not open.
Definition: jurassic.h:1471
tbl_gas_t::dirty
int dirty
Definition: jurassic.h:1480
tbl_gas_t::ntables
int32_t ntables
Number of index entries currently in use.
Definition: jurassic.h:1474
tbl_gas_t::index
tbl_gas_index_t * index
In-memory index table of length MAX_TABLES.
Definition: jurassic.h:1477
tbl_t
Emissivity look-up tables.
Definition: jurassic.h:1411
tbl_t::sr
double sr[TBLNS][ND]
Source function radiance [W/(m^2 sr cm^-1)].
Definition: jurassic.h:1438
tbl_t::p
double p[ND][NG][TBLNP]
Pressure [hPa].
Definition: jurassic.h:1423
tbl_t::nu
int nu[ND][NG][TBLNP][TBLNT]
Number of column densities.
Definition: jurassic.h:1420
tbl_t::nt
int nt[ND][NG][TBLNP]
Number of temperatures.
Definition: jurassic.h:1417
tbl_t::eps
float eps[ND][NG][TBLNP][TBLNT][TBLNU]
Emissivity.
Definition: jurassic.h:1432
tbl_t::u
float u[ND][NG][TBLNP][TBLNT][TBLNU]
Column density [molecules/cm^2].
Definition: jurassic.h:1429
tbl_t::t
double t[ND][NG][TBLNP][TBLNT]
Temperature [K].
Definition: jurassic.h:1426
tbl_t::st
double st[TBLNS]
Source function temperature [K].
Definition: jurassic.h:1435
tbl_t::np
int np[ND][NG]
Number of pressure levels.
Definition: jurassic.h:1414
Generated by doxygen 1.9.4