From 5a752b70596e5e940bf8b5d837ab4e4434d46368 Mon Sep 17 00:00:00 2001 From: adrifoster Date: Tue, 26 Mar 2024 11:38:17 -0600 Subject: [PATCH 1/2] add bug fix --- fire/SFMainMod.F90 | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/fire/SFMainMod.F90 b/fire/SFMainMod.F90 index ef245b04f9..6a83ba30df 100644 --- a/fire/SFMainMod.F90 +++ b/fire/SFMainMod.F90 @@ -306,6 +306,10 @@ subroutine charecteristics_of_fuel ( currentSite ) currentPatch%litter_moisture(tr_sf) = fuel_moisture(tr_sf)/MEF(tr_sf) currentPatch%litter_moisture(dl_sf) = fuel_moisture(dl_sf)/MEF(dl_sf) currentPatch%litter_moisture(lg_sf) = fuel_moisture(lg_sf)/MEF(lg_sf) + + ! remove trunks from patch%sum_fuel because they should not be included in fire equations + ! NOTE: ACF will update this soon to be more clean/bug-proof + currentPatch%sum_fuel = currentPatch%sum_fuel - litt_c%ag_cwd(4) else From 52eda6aa6a4426e28f1368747a4403be995fcb00 Mon Sep 17 00:00:00 2001 From: Adrianna Foster Date: Tue, 26 Mar 2024 15:55:55 -0600 Subject: [PATCH 2/2] add index as constant --- fire/SFMainMod.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/fire/SFMainMod.F90 b/fire/SFMainMod.F90 index 6a83ba30df..35cd4ca763 100644 --- a/fire/SFMainMod.F90 +++ b/fire/SFMainMod.F90 @@ -309,7 +309,7 @@ subroutine charecteristics_of_fuel ( currentSite ) ! remove trunks from patch%sum_fuel because they should not be included in fire equations ! NOTE: ACF will update this soon to be more clean/bug-proof - currentPatch%sum_fuel = currentPatch%sum_fuel - litt_c%ag_cwd(4) + currentPatch%sum_fuel = currentPatch%sum_fuel - litt_c%ag_cwd(tr_sf) else