From 8aebb7a8ed3a4b6ca0f17e107a808904da91c266 Mon Sep 17 00:00:00 2001 From: "U-DSNRCCA\\Willsa" Date: Mon, 6 Nov 2017 13:32:20 -0500 Subject: [PATCH] This commit add a change to the DHW module. When calculating the heat loss from the tank to the zone, a constant boundary temperature was assumed. The computed gain was then passed to the thermal zone. In this code update, the future temperature of the zone is used the boundary condition. The updated code compiles on Cygwin, however tester has not been run. --- src/cetc/DHW_module.F | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/src/cetc/DHW_module.F b/src/cetc/DHW_module.F index 105338e6e..4905e9c04 100644 --- a/src/cetc/DHW_module.F +++ b/src/cetc/DHW_module.F @@ -1408,6 +1408,7 @@ SUBROUTINE DHW_CarryToNextStep() c Update variables that relate to ESP-r data. c Created by: Phylroy A. Lopez c Initial Creation Date: March 23th 2001 +c Edited by: AW, Nov 6, 2017 c Copyright 2000: NRCan Buildings Group c----56--1---------2---------3---------4---------5---------6---------7---------8 @@ -1421,8 +1422,13 @@ SUBROUTINE DHW_Update() #include "dhw_common.h" #include "ground_temp_mains_common.h" +C TFA(MCOM), ! zone future temperatures + common/FVALA/TFA(MCOM),QFA(MCOM) + real tfa, qfa + C Note this should be changed to the zone temperature that the tank is in. - fRoomTemp = 20.0 +C fRoomTemp = 20.0 + fRoomTemp = tfa(iDHWZoneLocation) RETURN