From 8c251a301bc51708b8e25af2419b320b8bcfdda1 Mon Sep 17 00:00:00 2001
From: mcgratta <mcgratta@gmail.com>
Date: Wed, 15 Jun 2022 13:04:08 -0400
Subject: [PATCH] FDS Source: Bound NUSSELT number by DNS

---
 Source/wall.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Source/wall.f90 b/Source/wall.f90
index 3d07253bd29..bb44d6b0eba 100644
--- a/Source/wall.f90
+++ b/Source/wall.f90
@@ -4369,7 +4369,7 @@ REAL(EB) FUNCTION HEAT_TRANSFER_COEFFICIENT(DELTA_TMP,H_FIXED,SURF_INDEX_IN,WALL
       CALL FORCED_CONVECTION_MODEL(NUSSELT_FORCED,RE,PR_ONTH,SURF_GEOMETRY)
       RA = GR*PR_AIR
       CALL NATURAL_CONVECTION_MODEL(NUSSELT_FREE,RA,SURF_INDEX_IN,SFX%GEOMETRY,BCX%IOR)
-      HEAT_TRANSFER_COEFFICIENT = MAX(NUSSELT_FORCED,NUSSELT_FREE)*K_G/CONV_LENGTH
+      HEAT_TRANSFER_COEFFICIENT = MAX(NUSSELT_FORCED,NUSSELT_FREE,2._EB*CONV_LENGTH/DN)*K_G/CONV_LENGTH
    CASE(LOGLAW_HTC_MODEL)
       CALL GET_SPECIFIC_HEAT(ZZ_G,CP_G,TMP_FILM)
       FRICTION_VELOCITY = BPX%U_TAU