diff --git a/biogeochem/EDCanopyStructureMod.F90 b/biogeochem/EDCanopyStructureMod.F90
index 46fd15b383..f195f59f0a 100644
--- a/biogeochem/EDCanopyStructureMod.F90
+++ b/biogeochem/EDCanopyStructureMod.F90
@@ -1854,7 +1854,7 @@ end subroutine leaf_area_profile
 
   ! ======================================================================================
 
-  subroutine update_hlm_dynamics(nsites,sites,fcolumn,bc_in,bc_out)
+  subroutine update_hlm_dynamics(nsites,sites,fcolumn,bc_out)
 
     ! ----------------------------------------------------------------------------------
     ! The purpose of this routine is to package output boundary conditions related
@@ -1863,14 +1863,13 @@ subroutine update_hlm_dynamics(nsites,sites,fcolumn,bc_in,bc_out)
 
     use EDTypesMod        , only : ed_patch_type, ed_cohort_type, &
          ed_site_type, AREA
-         use FatesInterfaceTypesMod , only : bc_in_type, bc_out_type
+    use FatesInterfaceTypesMod , only : bc_out_type
 
     !
     ! !ARGUMENTS
     integer,            intent(in)            :: nsites
     type(ed_site_type), intent(inout), target :: sites(nsites)
     integer,            intent(in)            :: fcolumn(nsites)
-    type(bc_in_type),   intent(in)            :: bc_in(nsites)
     type(bc_out_type),  intent(inout)         :: bc_out(nsites)
 
     ! Locals