From 21c573b03dac6c2dd763aaa4c09a32533f27d411 Mon Sep 17 00:00:00 2001 From: Gregory Lemieux Date: Fri, 19 May 2023 12:03:18 -0700 Subject: [PATCH] correct indexing for elongation factor --- parteh/PRTAllometricCNPMod.F90 | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/parteh/PRTAllometricCNPMod.F90 b/parteh/PRTAllometricCNPMod.F90 index 4072e907b6..71032f467c 100644 --- a/parteh/PRTAllometricCNPMod.F90 +++ b/parteh/PRTAllometricCNPMod.F90 @@ -2283,9 +2283,9 @@ function AllomCNPGrowthDeriv(l_state_array,l_state_mask,cbalance,intgr_params) r ipft = int(intgr_params(intgr_parm_pft)) l2fr = intgr_params(intgr_parm_l2fr) crown_damage = int(intgr_params(intgr_parm_cdamage)) - elongf_leaf = intgr_params(acnp_bc_in_id_efleaf) - elongf_fnrt = intgr_params(acnp_bc_in_id_effnrt) - elongf_stem = intgr_params(acnp_bc_in_id_efstem) + elongf_leaf = intgr_params(intgr_parm_efleaf) + elongf_fnrt = intgr_params(intgr_parm_effnrt) + elongf_stem = intgr_params(intgr_parm_efstem) call bleaf(dbh,ipft,crown_damage,canopy_trim, elongf_leaf, leaf_c_target,leaf_dcdd_target) call bfineroot(dbh,ipft,canopy_trim,l2fr, elongf_fnrt, fnrt_c_target,fnrt_dcdd_target)