Merge pull request #14864 from drjfloyd/master

drjfloyd · web-flow · commit 8f3ad9502446 · 2025-07-17T20:32:16.000-04:00
FDS Source: Fix HEAT_TRANSFER_COEFFICIENT_BACK
diff --git a/Source/wall.f90 b/Source/wall.f90
@@ -3716,11 +3716,11 @@ SUBROUTINE CONSTANT_HTC
 
 USE MATH_FUNCTIONS, ONLY: EVALUATE_RAMP
 
-HEAT_TRANSFER_COEFFICIENT = SF%H_FIXED
+HEAT_TRANSFER_COEFFICIENT = H_FIXED
 IF (SF%RAMP_H_FIXED_INDEX>0) THEN
    HEAT_TRANSFER_COEFFICIENT = HEAT_TRANSFER_COEFFICIENT*EVALUATE_RAMP(T-T_BEGIN,SF%RAMP_H_FIXED_INDEX)
 ELSE
-   HEAT_TRANSFER_COEFFICIENT = SF%H_FIXED
+   HEAT_TRANSFER_COEFFICIENT = H_FIXED
 ENDIF
 
 END SUBROUTINE CONSTANT_HTC
