From c07ed57aa50d17daae69ba048b9700a70ddb8603 Mon Sep 17 00:00:00 2001
From: Stefan Wischhusen <wischhusen@xrg-simulation.de>
Date: Wed, 9 Jun 2021 15:47:43 +0200
Subject: [PATCH] ReferenceMoistAir, corrected error in function pd_pTX_der
 (issue #3666)

---
 Modelica/Media/Air/ReferenceMoistAir.mo | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/Modelica/Media/Air/ReferenceMoistAir.mo b/Modelica/Media/Air/ReferenceMoistAir.mo
index 6d3da239c8..fa8ae0f1df 100644
--- a/Modelica/Media/Air/ReferenceMoistAir.mo
+++ b/Modelica/Media/Air/ReferenceMoistAir.mo
@@ -3283,9 +3283,9 @@ for region 2.
               p_der,
               T_der);
         //pd := xw/(Modelica.Media.Air.ReferenceMoistAir.k_mair + xw)*p;
-        pd_der := (xw_der*(Modelica.Media.Air.ReferenceMoistAir.k_mair + xw) -
-          xw*xw_der)*p + xw/(Modelica.Media.Air.ReferenceMoistAir.k_mair + xw)*
-          p_der;
+        pd_der := xw_der*Modelica.Media.Air.ReferenceMoistAir.k_mair/
+        (Modelica.Media.Air.ReferenceMoistAir.k_mair + xw)^2*p
+         + xw/(Modelica.Media.Air.ReferenceMoistAir.k_mair + xw)*p_der;
         xws := Modelica.Media.Air.ReferenceMoistAir.Utilities.xws_pT(p, T);
         pd_der := if (xw <= xws) then pd_der else pds_der;
       end if;