From aa3780b094aaee87a8f8b7f1076353b0d075b8d3 Mon Sep 17 00:00:00 2001
From: Ray Speth <speth@mit.edu>
Date: Sat, 16 Apr 2016 17:42:34 -0400
Subject: [PATCH] [Thermo] Reference source of formula used in
 WaterPropsIAPWS::psat_est

---
 src/thermo/WaterPropsIAPWS.cpp | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/src/thermo/WaterPropsIAPWS.cpp b/src/thermo/WaterPropsIAPWS.cpp
index 8a069cb93..d77ff6385 100644
--- 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,