We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
2 parents d3b7960 + 0a5dcef commit 5e7e81eCopy full SHA for 5e7e81e
Source/vege.f90
@@ -1426,8 +1426,8 @@ SUBROUTINE COMPUTE_FIRE_SPREAD_OUTPUTS
1426
ENDIF
1427
1428
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) &
+ IF (SF%VEG_LSET_SPREAD) THEN
+ IF (FIRE_RESIDENCE_TIME(OUTPUT_INDEX)<TWO_EPSILON_EB .AND. B1%T_IGN<9.E5_EB) &
1431
FIRE_RESIDENCE_TIME(OUTPUT_INDEX) = B1%BURN_DURATION
1432
ELSE
1433
IF (FIRE_PRESENT) FIRE_RESIDENCE_TIME(OUTPUT_INDEX) = FIRE_RESIDENCE_TIME(OUTPUT_INDEX) + DT
0 commit comments