Refactor boundary condition interface structure

biogeochem/EDCanopyStructureMod.F90

@@ -777,7 +777,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
@@ -793,7 +793,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

@@ -69,7 +69,7 @@ module FatesPatchMod
     type (fates_patch_type),  pointer :: older => null()    ! pointer to next older patch   
     type (fates_patch_type),  pointer :: younger => null()  ! pointer to next younger patch
     type (fates_cohort_vec_type), pointer :: co_scr(:)      ! Scratch vector of cohort properties
-    
+
     !---------------------------------------------------------------------------
 
     ! INDICES
@@ -296,7 +296,7 @@ subroutine Init(this, num_swb, num_levsoil)
       allocate(this%sabs_dif(num_swb))
       allocate(this%fragmentation_scaler(num_levsoil))
       allocate(this%co_scr(max_cohort_per_patch))
-      
+
       ! initialize all values to nan
       call this%NanValues()
 
@@ -534,7 +534,7 @@ subroutine NanValues(this)
       this%scorch_ht(:)                 = nan 
       this%tfc_ros                      = nan
       this%frac_burnt                   = nan
-      
+
     end subroutine NanValues
 
     !===========================================================================
@@ -732,11 +732,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)
 
@@ -1341,6 +1341,6 @@ subroutine CheckVars(this, var_aliases, return_code)
 
     end subroutine CheckVars
 
-    !===========================================================================  
+! ======================================================================================
 
 end module FatesPatchMod