Getting rid of bounds% in MLCanopy coupler

rgknox · Feb 14, 2025 · ac50ab7 · ac50ab7
1 parent 50d211b
commit ac50ab7
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 6 deletions.
diff --git a/src/multilayer_canopy/coupler/MLCanopyDriverMod.F90 b/src/multilayer_canopy/coupler/MLCanopyDriverMod.F90
@@ -98,7 +98,7 @@ subroutine MLCanopyFluxes (bounds, num_exposedvegp, filter_exposedvegp, &
     !
     ! !LOCAL VARIABLES:
     integer  :: num_mlcan                               ! Number of vegetated patches for multilayer canopy
-    integer  :: filter_mlcan(bounds%endp-bounds%begp+1) ! Patch filter for multilayer canopy
+    integer  :: filter_mlcan(mlcanopy_inst%endp-mlcanopy_inst%begp+1) ! Patch filter for multilayer canopy
     integer  :: fp                                      ! Filter index
     integer  :: p                                       ! Patch index for CLM g/l/c/p hierarchy
     integer  :: c                                       ! Column index for CLM g/l/c/p hierarchy
@@ -119,9 +119,9 @@ subroutine MLCanopyFluxes (bounds, num_exposedvegp, filter_exposedvegp, &
     ! These are used to accumulate flux variables over the model sub-time step.
     ! The last dimension is the number of variables
 
-    real(r8) :: flux_accumulator(bounds%begp:bounds%endp,nvar1d)                          ! Single-level fluxes
-    real(r8) :: flux_accumulator_profile(bounds%begp:bounds%endp,1:nlevmlcan+1,nvar2d)    ! Multi-level profile fluxes
-    real(r8) :: flux_accumulator_leaf(bounds%begp:bounds%endp,1:nlevmlcan,1:nleaf,nvar3d) ! Multi-level leaf fluxes
+    real(r8) :: flux_accumulator(mlcanopy_inst%begp:mlcanopy_inst%endp,nvar1d)                          ! Single-level fluxes
+    real(r8) :: flux_accumulator_profile(mlcanopy_inst%begp:mlcanopy_inst%endp,1:nlevmlcan+1,nvar2d)    ! Multi-level profile fluxes
+    real(r8) :: flux_accumulator_leaf(mlcanopy_inst%begp:mlcanopy_inst%endp,1:nlevmlcan,1:nleaf,nvar3d) ! Multi-level leaf fluxes
     !---------------------------------------------------------------------
 
     ! Variables used in this subroutine. See README.txt for a complete list of

diff --git a/src/multilayer_canopy/coupler/MLinitVerticalMod.F90 b/src/multilayer_canopy/coupler/MLinitVerticalMod.F90
@@ -61,8 +61,8 @@ subroutine initVerticalStructure (bounds, num_filter, filter, &
     real(r8) :: lai_err, sai_err, pai_err        ! Sum of leaf, stem, or plant area index over all layers (m2/m2)
     real(r8) :: lai_miss, sai_miss               ! Missing leaf (stem) area after imposing dpai_min constraint on layers (m2/m2)
 
-    real(r8) :: dlai(bounds%begp:bounds%endp,1:nlevmlcan)  ! Layer leaf area index (m2/m2)
-    real(r8) :: dsai(bounds%begp:bounds%endp,1:nlevmlcan)  ! Layer stem area index (m2/m2)
+    real(r8) :: dlai(mlcanopy_inst%begp:mlcanopy_inst%endp,1:nlevmlcan)  ! Layer leaf area index (m2/m2)
+    real(r8) :: dsai(mlcanopy_inst%begp:mlcanopy_inst%endp,1:nlevmlcan)  ! Layer stem area index (m2/m2)
 
     real(r8) :: unit_lai = 1.0_r8                          ! Unit leaf area index of canopy (m2/m2)
     real(r8) :: unit_sai = 1.0_r8                          ! Unit stem area index of canopy (m2/m2)