H-6
Sample Program
Returns water vapor concentration in mmol/mol
*/
double Ws;
water_flag = 1;
T_cal = Cal_temp;
K_cal = Cal_k;
A_cal = coeffs[0];
B_cal = coeffs[1];
C_cal = coeffs[2];
D_cal = 0;
E_cal = 0;
Ws = ppm(mv, ref, temp, 0, 0, pressure);
return Ws;
}
/* ------------------------------------------------------------------------- */
double dewpoint(double vp_kPa)
{
double z;
z = log10(vp_kPa / .61083);
return 242.62 * z / ( 7.6448 - z);
}
/* ------------------------------------------------------------------------- */