FDS Source: Bound NUSSELT number by DNS

firemodels · Jun 15, 2022 · 8c251a3 · 8c251a3
1 parent 6f637bc
commit 8c251a3
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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