129 void palAtmdsp (
double tdk,
double pmb,
double rh,
double wl1,
130 double a1,
double b1,
double wl2,
double *a2,
double *b2 ) {
132 double f,tdkok,pmbok,rhok;
133 double psat,pwo,w1,wlok,wlsq,w2,dn1,dn2;
136 if (wl1 > 100.0 || wl2 > 100.0) {
145 tdkok =
DMIN(
DMAX(tdk,100.0),500.0);
146 pmbok =
DMIN(
DMAX(pmb,0.0),10000.0);
150 psat = pow(10.0, -8.7115+0.03477*tdkok);
155 wlok =
DMAX(wl1,0.1);
157 w2 = 77.5317e-6+(0.43909e-6+0.00367e-6/wlsq)/wlsq;
158 dn1 = (w2*pmbok-w1)/tdkok;
161 wlok =
DMAX(wl2,0.1);
163 w2 = 77.5317e-6+(0.43909e-6+0.00367e-6/wlsq)/wlsq;
164 dn2 = (w2*pmbok-w1)/tdkok;
172 *b2 *= (1.0+dn1*(dn1-dn2)/(2.0*(dn1-a1)));
void palAtmdsp(double tdk, double pmb, double rh, double wl1, double a1, double b1, double wl2, double *a2, double *b2)