Fix units for FATES_CROWNAREA_CANOPY_SZ and FATES_CROWNAREA_USTORY_SZ.

This addresses issue NGEET#1126
mpaiao · Dec 6, 2023 · 0ab1f80 · 0ab1f80
1 parent bf99977
commit 0ab1f80
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/main/FatesHistoryInterfaceMod.F90 b/main/FatesHistoryInterfaceMod.F90
@@ -3392,7 +3392,7 @@ subroutine update_history_dyn(this,nc,nsites,sites,bc_in)
                   hio_trimming_canopy_si_scls(io_si,scls) = hio_trimming_canopy_si_scls(io_si,scls) + &
                      ccohort%n * ccohort%canopy_trim / m2_per_ha
                   hio_crown_area_canopy_si_scls(io_si,scls) = hio_crown_area_canopy_si_scls(io_si,scls) + &
-                     ccohort%c_area / m2_per_ha
+                     ccohort%c_area * AREA_INV
                   hio_gpp_canopy_si_scpf(io_si,scpf) = hio_gpp_canopy_si_scpf(io_si,scpf) +  &
                      n_perm2*ccohort%gpp_acc_hold / days_per_year / sec_per_day
                   hio_ar_canopy_si_scpf(io_si,scpf) = hio_ar_canopy_si_scpf(io_si,scpf) + &
@@ -3543,7 +3543,7 @@ subroutine update_history_dyn(this,nc,nsites,sites,bc_in)
                   hio_trimming_understory_si_scls(io_si,scls) = hio_trimming_understory_si_scls(io_si,scls) + &
                      ccohort%n * ccohort%canopy_trim / m2_per_ha
                   hio_crown_area_understory_si_scls(io_si,scls) = hio_crown_area_understory_si_scls(io_si,scls) + &
-                     ccohort%c_area / m2_per_ha
+                     ccohort%c_area * AREA_INV
                   hio_gpp_understory_si_scpf(io_si,scpf)      = hio_gpp_understory_si_scpf(io_si,scpf)      + &
                      n_perm2*ccohort%gpp_acc_hold / days_per_year / sec_per_day
                   hio_ar_understory_si_scpf(io_si,scpf)      = hio_ar_understory_si_scpf(io_si,scpf)      + &