Merge pull request #14470 from mcgratta/master

FDS Source: Issue #14455. Reduce debug TGA_ANALAYSIS time

Author: mcgratta

Source/wall.f90

@@ -3818,6 +3818,7 @@ SUBROUTINE TGA_ANALYSIS(NM)
 INTEGER, INTENT(IN) :: NM
 INTEGER :: N_TGA,I,IW,IP,N,NR,ITMP
 CHARACTER(80) :: MESSAGE,TCFORM
+LOGICAL :: EX
 TYPE(SURFACE_TYPE), POINTER :: SF
 TYPE(WALL_TYPE), POINTER :: WC
 TYPE(LAGRANGIAN_PARTICLE_TYPE), POINTER :: LP
@@ -3864,6 +3865,11 @@ SUBROUTINE TGA_ANALYSIS(NM)
 TGA_DT = MIN(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))
 
+! If a .stop file exists, only do a few time steps to check for errors
+
+INQUIRE(FILE=FN_STOP,EXIST=EX)
+IF (EX) N_TGA = 3
+
 ! Open CHID_tga.csv for the output
 
 OPEN (LU_TGA,FILE=FN_TGA,FORM='FORMATTED',STATUS='REPLACE')