diff --git a/fire/SFMainMod.F90 b/fire/SFMainMod.F90 index ef245b04f9..35cd4ca763 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(tr_sf) else