Added dimension indices to whole array operations.

Author: rgknox

biogeophys/EDBtranMod.F90

@@ -176,7 +176,7 @@ subroutine btran_ed( nsites, sites, bc_in, bc_out)
               ! The cohort's conductance g_sb_laweighted, contains a weighting factor
               ! based on the cohort's leaf area. units: [m/s] * [m2]
 
-              pftgs(:) = 0._r8
+              pftgs(1:maxpft) = 0._r8
               ccohort => cpatch%tallest
               do while(associated(ccohort))
                  pftgs(ccohort%pft) = pftgs(ccohort%pft) + ccohort%g_sb_laweight

main/FatesHistoryInterfaceMod.F90

@@ -2091,8 +2091,8 @@ subroutine update_history_prod(this,nc,nsites,sites,dt_tstep)
          ipa = 0
          cpatch => sites(s)%oldest_patch
 
-         patch_area_by_age(:) = 0._r8
-         canopy_area_by_age(:) = 0._r8
+         patch_area_by_age(1:nlevage) = 0._r8
+         canopy_area_by_age(1:nlevage) = 0._r8
 
          do while(associated(cpatch))
 
@@ -2369,9 +2369,9 @@ subroutine update_history_prod(this,nc,nsites,sites,dt_tstep)
          end do
 
          ! Normalize resistance diagnostics
-         if ( sum(canopy_area_by_age(:)) .gt. tiny) then
-            hio_c_stomata_si(io_si) = hio_c_stomata_si(io_si) / sum(canopy_area_by_age(:))
-            hio_c_lblayer_si(io_si) = hio_c_lblayer_si(io_si) / sum(canopy_area_by_age(:))
+         if ( sum(canopy_area_by_age(1:nlevage)) .gt. tiny) then
+            hio_c_stomata_si(io_si) = hio_c_stomata_si(io_si) / sum(canopy_area_by_age(1:nlevage))
+            hio_c_lblayer_si(io_si) = hio_c_lblayer_si(io_si) / sum(canopy_area_by_age(1:nlevage))
          else
             hio_c_stomata_si(io_si) = 0._r8
             hio_c_lblayer_si(io_si) = 0._r8