From 4630292b434955d77e8ddf7b558d903dfadf0f90 Mon Sep 17 00:00:00 2001 From: Marcos Longo <5891904+mpaiao@users.noreply.github.com> Date: Wed, 1 Apr 2026 10:05:09 -0300 Subject: [PATCH] Hot fixes to the mainline This pull request has some hot fixes to the code after merging #282. That pull request was in the queue for a very long time, so there are a few remaining inconsistencies that the merge did not catch. --- ED/src/dynamics/mortality.f90 | 22 +++++++++++----------- 1 file changed, 11 insertions(+), 11 deletions(-) diff --git a/ED/src/dynamics/mortality.f90 b/ED/src/dynamics/mortality.f90 index a05737fac..8c66e767f 100644 --- a/ED/src/dynamics/mortality.f90 +++ b/ED/src/dynamics/mortality.f90 @@ -255,17 +255,17 @@ real function survivorship(new_lu,old_lu,mindbh_harvest,felling_s_gtharv ,felling_s_ltharv,thinning_dbh_thresh,thinning_s_gtharv & ,thinning_s_ltharv,skid_dbh_thresh,skid_s_gtharv & ,skid_s_ltharv,cpatch,ico) - use ed_state_vars, only : patchtype ! ! structure - use disturb_coms , only : treefall_hite_threshold ! ! intent(in) - use pft_coms , only : treefall_s_ltht & ! intent(in) - , treefall_s_gtht & ! intent(in) - , fire_s_min & ! intent(in) - , fire_s_max & ! intent(in) - , fire_s_inter & ! intent(in) - , fire_s_slope ! ! intent(in) - use ed_max_dims , only : n_pft ! ! intent(in) - use consts_coms , only : lnexp_min & ! intent(in) - , lnexp_max ! ! intent(in) + use ed_state_vars, only : patchtype ! ! structure + use disturb_coms , only : treefall_height_threshold ! ! intent(in) + use pft_coms , only : treefall_s_ltht & ! intent(in) + , treefall_s_gtht & ! intent(in) + , fire_s_min & ! intent(in) + , fire_s_max & ! intent(in) + , fire_s_inter & ! intent(in) + , fire_s_slope ! ! intent(in) + use ed_max_dims , only : n_pft ! ! intent(in) + use consts_coms , only : lnexp_min & ! intent(in) + , lnexp_max ! ! intent(in) implicit none !----- Arguments. -------------------------------------------------------------------! type(patchtype) , target :: cpatch