correct indexing for elongation factor

rgknox · May 19, 2023 · 21c573b · 21c573b
1 parent ea5d83a
commit 21c573b
Showing 1 changed file with 3 additions and 3 deletions.
diff --git 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)