FDS Source: skip undefined values when creating bf.bnd files for FIRE…

… ARRIVAL TIME
firemodels · Dec 20, 2024 · 1969d01 · 1969d01
1 parent d448447
commit 1969d01
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 1 deletion.
diff --git 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
@@ -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