Correct ipft to pft in tree_lai function

NGEET · Jun 12, 2018 · f50bb38 · f50bb38
1 parent bd78130
commit f50bb38
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/biogeochem/FatesAllometryMod.F90 b/biogeochem/FatesAllometryMod.F90
@@ -591,7 +591,7 @@ real(r8) function tree_lai( bl, status_coh, pft, c_area, n, cl, canopy_layer_tai
 
        ! Observational constraint for maximum sla value (m2/kgC):
        ! m2/kgC = g/kg* m2/gBiomass *kgC/kgBiomass 
-       sla_max = g_per_kg * sla_max_drymass * EDPftvarcon_inst%c2b(ipft) 
+       sla_max = g_per_kg * sla_max_drymass * EDPftvarcon_inst%c2b(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 * laican)) / &
             (-1.0_r8 * kn * tai_to_lai * slat * sla_max)