From 1969d013b118ec186d4ec94347d59f164bb33313 Mon Sep 17 00:00:00 2001
From: ericvmueller <ericvmueller@gmail.com>
Date: Fri, 20 Dec 2024 11:27:58 -0500
Subject: [PATCH] FDS Source: skip undefined values when creating bf.bnd files
 for FIRE ARRIVAL TIME

---
 Source/data.f90 | 1 +
 Source/dump.f90 | 4 +++-
 2 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/Source/data.f90 b/Source/data.f90
index 21a9325680a..d6320f84cf4 100644
--- a/Source/data.f90
+++ b/Source/data.f90
@@ -1609,6 +1609,7 @@ SUBROUTINE DEFINE_OUTPUT_QUANTITIES
 OUTPUT_QUANTITY(-90)%UNITS = 's'
 OUTPUT_QUANTITY(-90)%SHORT_NAME = 't_a'
 OUTPUT_QUANTITY(-90)%PART_APPROPRIATE = .FALSE.
+OUTPUT_QUANTITY(-90)%AMBIENT_VALUE = 1.E6_EB
 
 OUTPUT_QUANTITY(-91)%NAME = 'FIRE RESIDENCE TIME'
 OUTPUT_QUANTITY(-91)%UNITS = 's'
diff --git a/Source/dump.f90 b/Source/dump.f90
index 4a6cdbf64af..3b037ff272e 100644
--- a/Source/dump.f90
+++ b/Source/dump.f90
@@ -10366,7 +10366,6 @@ SUBROUTINE DUMP_BNDF(T,DT,NM)
                ELSE
                   PPN(L,N) = REAL(SOLID_PHASE_OUTPUT(IND,BF%Y_INDEX,BF%Z_INDEX,BF%PART_INDEX,OPT_WALL_INDEX=0,&
                                                      OPT_BNDF_INDEX=NF),FB)
-                  IF (OUTPUT_QUANTITY(BF%INDEX)%NAME=='FIRE ARRIVAL TIME') PPN(L,N) = 1.E6_FB
                ENDIF
             ENDDO
          ENDDO
@@ -10406,6 +10405,9 @@ SUBROUTINE DUMP_BNDF(T,DT,NM)
 
    ENDDO PATCH_LOOP
 
+   IF (OUTPUT_QUANTITY(BF%INDEX)%NAME=='FIRE ARRIVAL TIME') &
+      BOUND_MAX = MAX(REAL(T_BEGIN,FB),MAXVAL(REAL(FIRE_ARRIVAL_TIME,FB),MASK=FIRE_ARRIVAL_TIME<9.E5_EB))
+
    CLOSE(LU_BNDF(NF,NM))
 
    CHANGE_BOUND = 0