Refactor boundary condition interface structure

biogeochem/EDCanopyStructureMod.F90

@@ -1307,7 +1307,7 @@ end subroutine canopy_spread
 
   ! =====================================================================================
 
-  subroutine canopy_summarization( nsites, sites, bc_in )
+  subroutine canopy_summarization( nsites, sites )
 
     ! ----------------------------------------------------------------------------------
     ! Much of this routine was once ed_clm_link minus all the IO and history stuff
@@ -1323,7 +1323,6 @@ subroutine canopy_summarization( nsites, sites, bc_in )
     ! !ARGUMENTS
     integer                 , intent(in)            :: nsites
     type(ed_site_type)      , intent(inout), target :: sites(nsites)
-    type(bc_in_type)        , intent(in)            :: bc_in(nsites)
     !
     ! !LOCAL VARIABLES:
     type (fates_patch_type)  , pointer :: currentPatch

biogeochem/EDPhysiologyMod.F90

@@ -463,7 +463,7 @@ subroutine PreDisturbanceLitterFluxes( currentSite, currentPatch, bc_in )
     !------------------------------------------------------------------------------------
 
     ! Calculate the fragmentation rates
-    call fragmentation_scaler(currentPatch, bc_in)
+    call fragmentation_scaler(currentPatch, currentSite%bc_in(currentPatch%patchno))
 
     do el = 1, num_elements
 

biogeochem/FatesPatchMod.F90

@@ -48,7 +48,7 @@ module FatesPatchMod
     type (fates_cohort_type), pointer :: shortest => null() ! pointer to patch's shortest cohort
     type (fates_patch_type),  pointer :: older => null()    ! pointer to next older patch   
     type (fates_patch_type),  pointer :: younger => null()  ! pointer to next younger patch
-  
+
     !---------------------------------------------------------------------------
 
     ! INDICES
@@ -507,7 +507,7 @@ subroutine NanValues(this)
       this%scorch_ht(:)                 = nan 
       this%tfc_ros                      = nan
       this%frac_burnt                   = nan
-      
+
     end subroutine NanValues
 
     !===========================================================================
@@ -703,11 +703,11 @@ subroutine Create(this, age, area, land_use_label, nocomp_pft, num_swb, num_pft,
       integer,                 intent(in)    :: num_levsoil        ! number of soil layers
       integer,                 intent(in)    :: current_tod        ! time of day [seconds past 0Z]
       integer,                 intent(in)    :: regeneration_model ! regeneration model version
-      
+
       ! initialize patch
       ! sets all values to nan, then some values to zero
       call this%Init(num_swb, num_levsoil)
-
+      
       ! initialize running means for patch
       call this%InitRunningMeans(current_tod, regeneration_model, num_pft)
 
@@ -1286,6 +1286,6 @@ subroutine CheckVars(this, var_aliases, return_code)
 
     end subroutine CheckVars
 
-    !===========================================================================  
+! ======================================================================================
 
 end module FatesPatchMod