FDS Source: Fix HEAT_TRANSFER_COEFFICIENT_BACK

Author: drjfloyd

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
@@ -3904,6 +3904,7 @@ SUBROUTINE TGA_ANALYSIS(NM)
 
 IF (TGA_DT<0._EB) TGA_DT = 0.1_EB*ONE_D%RHO_C_S(1)*ONE_D%LAYER_THICKNESS(1)/SF%H_FIXED
 N_TGA = NINT((TGA_FINAL_TEMPERATURE-TMPA)/(TGA_HEATING_RATE*TGA_DT))
+WRITE(*,*) N_TGA,TGA_DT
 
 ! If a .stop file exists, only do a few time steps to check for errors