save Ra_bar calculation result

NREL · Sep 13, 2024 · 6600069 · 6600069
1 parent b96c3a5
commit 6600069
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/src/EnergyPlus/ExtendedHI.cc b/src/EnergyPlus/ExtendedHI.cc
@@ -234,7 +234,8 @@ namespace ExtendedHI {
                 SolFla,
                 Tf,
                 [&](Real64 Tf) {
-                    return (Tf - Ta) / Ra_bar(Tf, Ta) + (Pc - Pa) * (Tf - Ta) / ((ZsRs + Za_bar) * (Tf - Ta) + r * Ra_bar(Tf, Ta) * (Ts_bar - Tf)) -
+                    Real64 Ra_barTfTa = Ra_bar(Tf, Ta);
+                    return (Tf - Ta) / Ra_barTfTa + (Pc - Pa) * (Tf - Ta) / ((ZsRs + Za_bar) * (Tf - Ta) + r * Ra_barTfTa * (Ts_bar - Tf)) -
                            (Tc - Ts_bar) / Rs;
                 },
                 Ta,
@@ -402,7 +403,8 @@ namespace ExtendedHI {
                 SolFla,
                 Tf,
                 [&](Real64 Tf) {
-                    return (Tf - Ta) / Ra_bar(Tf, Ta) + (Pc - Pa) * (Tf - Ta) / ((ZsRs + Za_bar) * (Tf - Ta) + r * Ra_bar(Tf, Ta) * (Ts_bar - Tf)) -
+                    Real64 Ra_barTfTa = Ra_bar(Tf, Ta);
+                    return (Tf - Ta) / Ra_barTfTa + (Pc - Pa) * (Tf - Ta) / ((ZsRs + Za_bar) * (Tf - Ta) + r * Ra_barTfTa * (Ts_bar - Tf)) -
                            (Tc - Ts_bar) / Rs;
                 },
                 Ta,