Cleanup: FatesHistoryInterfaceMod.

main/FatesHistoryInterfaceMod.F90

@@ -3058,7 +3058,6 @@ subroutine update_history_dyn2(this,nc,nsites,sites,bc_in)
     integer  :: iscag_anthrodist  ! what is the equivalent age class for
                                   ! time-since-anthropogenic-disturbance of secondary forest
     real(r8) :: patch_fracarea  ! Fraction of area for this patch
-    real(r8) :: ageclass_fracarea  ! Fraction of area for this age class
     real(r8) :: frac_canopy_in_bin  ! fraction of a leaf's canopy that is within a given height bin
     real(r8) :: binbottom,bintop    ! edges of height bins
     integer  :: height_bin_max, height_bin_min   ! which height bin a given cohort's canopy is in
@@ -3079,7 +3078,6 @@ subroutine update_history_dyn2(this,nc,nsites,sites,bc_in)
     real(r8) :: storep_understory_scpf(numpft*nlevsclass)
     real(r8) :: storec_canopy_scpf(numpft*nlevsclass)
     real(r8) :: storec_understory_scpf(numpft*nlevsclass)
-    real(r8) :: age_class_area  ! [m2]
 
     integer  :: i_dist, j_dist
 
@@ -3366,7 +3364,6 @@ subroutine update_history_dyn2(this,nc,nsites,sites,bc_in)
 
 
                 cpatch%age_class  = get_age_class_index(cpatch%age)
-                age_class_area = sites(s)%area_by_age(cpatch%age_class)
                 hio_fracarea_si(io_si) = hio_fracarea_si(io_si) &
                      + cpatch%area * AREA_INV
 
@@ -3381,15 +3378,14 @@ subroutine update_history_dyn2(this,nc,nsites,sites,bc_in)
                 if ( cpatch%land_use_label .eq. secondaryland ) then
 
                    iscag_anthrodist = get_age_class_index(cpatch%age_since_anthro_disturbance)
-                   ageclass_fracarea = cpatch%area * AREA_INV
 
                    hio_agesince_anthrodist_si(io_si) = &
                         hio_agesince_anthrodist_si(io_si)  &
-                        + ageclass_fracarea
+                        + cpatch%area * AREA_INV
 
                     hio_secondarylands_fracarea_si(io_si) = &
                          hio_secondarylands_fracarea_si(io_si) &
-                         + ageclass_fracarea
+                         + cpatch%area * AREA_INV
                 endif
 
                 ! patch-age-resolved fire variables
@@ -5309,8 +5305,6 @@ subroutine update_history_hifrq2(this,nc,nsites,sites,bc_in,bc_out,dt_tstep)
     real(r8) :: npp         ! npp for this time-step (adjusted for g resp) [kgC/indiv/step]
     real(r8) :: aresp       ! autotrophic respiration (adjusted for g resp) [kgC/indiv/step]
     real(r8) :: n_perm2     ! individuals per m2 for the whole column
-    real(r8) :: ageclass_area  ! [m2]
-    real(r8) :: ageclass_canopy_area  ! [m2]
     real(r8) :: canopy_area_by_age(nlevage) ! canopy area in each bin for normalizing purposes
     real(r8) :: site_area_veg_inv           ! 1/area of the site that is not bare-ground 
     integer  :: ipa2     ! patch incrementer
@@ -5395,8 +5389,6 @@ subroutine update_history_hifrq2(this,nc,nsites,sites,bc_in,bc_out,dt_tstep)
          do while(associated(cpatch))
 
             ipa = ipa + 1
-            ageclass_area = sites(s)%area_by_age(cpatch%age_class)
-            ageclass_canopy_area = canopy_area_by_age(cpatch%age_class)
 
             ccohort => cpatch%shortest
             do while(associated(ccohort))