bugfix on prior

NordicESMhub · Jul 16, 2018 · 1fa12fa · 1fa12fa
1 parent cc4e819
commit 1fa12fa
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/biogeochem/FatesAllometryMod.F90 b/biogeochem/FatesAllometryMod.F90
@@ -603,7 +603,7 @@ real(r8) function tree_lai( bl, status_coh, pft, c_area, n, cl, canopy_layer_tva
 
        ! take PFT-level maximum SLA value, even if under a thick canopy (which has units of m2/gC),
        ! and put into units of m2/kgC
-       sla_max = g_per_kg *EDPftvarcon_inst%slamax(ipft)
+       sla_max = g_per_kg *EDPftvarcon_inst%slamax(pft)
        ! Leafc_per_unitarea at which sla_max is reached due to exponential sla profile in canopy:
        leafc_slamax = (slat - sla_max * exp(-1.0_r8 * kn * can_tvai)) / &
             (-1.0_r8 * kn * vai_to_lai * slat * sla_max)