[Thermo] Reference source of formula used in WaterPropsIAPWS::psat_est

2016-04-16 17:42:34 -04:00 · 2016-04-16 17:42:34 -04:00 · aa3780b094
commit aa3780b094
parent af19481b65
1 changed files with 4 additions and 0 deletions
--- a/src/thermo/WaterPropsIAPWS.cpp
+++ b/src/thermo/WaterPropsIAPWS.cpp
@ -211,6 +211,10 @@ doublereal WaterPropsIAPWS::temperature() const

 doublereal WaterPropsIAPWS::psat_est(doublereal temperature) const
 {
+    // Formula and constants from: "NBS/NRC Steam Tables: Thermodynamic and
+    // Transport Properties and Computer Programs for Vapor and Liquid States of
+    // Water in SI Units". L. Haar, J. S. Gallagher, G. S. Kell. Hemisphere
+    // Publishing. 1984.
    static const doublereal A[8] = {
        -7.8889166E0,
        2.5514255E0,