Skip to content

Commit 5e7e81e

Browse files
authored
Merge pull request #14950 from ericvmueller/master
FDS Source: fix logic for FIRE_RESIDENCE_TIME output
2 parents d3b7960 + 0a5dcef commit 5e7e81e

File tree

1 file changed

+2
-2
lines changed

1 file changed

+2
-2
lines changed

Source/vege.f90

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -1426,8 +1426,8 @@ SUBROUTINE COMPUTE_FIRE_SPREAD_OUTPUTS
14261426
ENDIF
14271427

14281428
IF (STORE_FIRE_RESIDENCE) THEN
1429-
IF (SF%VEG_LSET_SPREAD .AND. B1%T_IGN<9.E5_EB) THEN
1430-
IF (FIRE_RESIDENCE_TIME(OUTPUT_INDEX)<TWO_EPSILON_EB) &
1429+
IF (SF%VEG_LSET_SPREAD) THEN
1430+
IF (FIRE_RESIDENCE_TIME(OUTPUT_INDEX)<TWO_EPSILON_EB .AND. B1%T_IGN<9.E5_EB) &
14311431
FIRE_RESIDENCE_TIME(OUTPUT_INDEX) = B1%BURN_DURATION
14321432
ELSE
14331433
IF (FIRE_PRESENT) FIRE_RESIDENCE_TIME(OUTPUT_INDEX) = FIRE_RESIDENCE_TIME(OUTPUT_INDEX) + DT

0 commit comments

Comments
 (0)