OGS
DensityConst.cpp
Go to the documentation of this file.
1
10#include "DensityConst.h"
11
12#include "DensityHauer.h"
13
14namespace
15{
16// NaX_Constant_polyfrac_CC.pickle
17// date extracted 2015-06-23 15:38:35 file mtime 2015-06-23 15:20:05
18const double DensityConst_c[] = {
19 0.3824098506898007, /* a0 */
20 -0.001316857559708455, /* a1 */
21 -0.0007935756090263691, /* a2 */
22 -1.1600036977157845e-07, /* a3 */
23 5.610354459181838e-07, /* a4 */
24 7.113664938298873e-10, /* a5 */
25 -1.0668790477629686e-10 /* a6 */
26};
27
28} // namespace
29
30namespace Adsorption
31{
32double DensityConst::getAdsorbateDensity(const double /*T_Ads*/) const
33{
34 return rhoWaterHauer(150.0 + 273.15);
35}
36
37double DensityConst::getAlphaT(const double /*T_Ads*/) const
38{
39 return 0.0;
40}
41
42// Characteristic curve. Return W (A)
43double DensityConst::characteristicCurve(const double A) const
44{
45 double W = curvePolyfrac(DensityConst_c, A); // cm^3/g
46
47 if (W < 0.0)
48 {
49 W = 0.0; // TODO [CL] debug output
50 }
51
52 return W / 1.e3; // m^3/kg
53}
54
55double DensityConst::dCharacteristicCurve(const double A) const
56{
57 return dCurvePolyfrac(DensityConst_c, A);
58}
59
60} // namespace Adsorption
double dCharacteristicCurve(const double A) const override
double getAlphaT(const double T_Ads) const override
double characteristicCurve(const double A) const override
double getAdsorbateDensity(const double T_Ads) const override
double curvePolyfrac(const double *coeffs, const double x)
Definition Adsorption.h:52
double rhoWaterHauer(const double T_Ads)
double dCurvePolyfrac(const double *coeffs, const double x)
Definition Adsorption.h:61