Removing duplicate lines of code #2129 #2107

ESCOMP · Oct 19, 2023 · 1890865 · 1890865
1 parent f0260cf
commit 1890865
Show file tree

Hide file tree

Showing 2 changed files with 0 additions and 5 deletions.
diff --git a/src/biogeochem/CNVegCarbonStateType.F90 b/src/biogeochem/CNVegCarbonStateType.F90
@@ -1612,7 +1612,6 @@ subroutine Restart ( this,  bounds, ncid, flag, carbon_type, reseed_dead_plants,
                 this%leafc_storage_patch(i) = c12_cnveg_carbonstate_inst%leafc_storage_patch(i) * c3_r2
              else
                 this%leafc_storage_patch(i) = c12_cnveg_carbonstate_inst%leafc_storage_patch(i) * c4_r2
-                this%leafc_storage_patch(i) = c12_cnveg_carbonstate_inst%leafc_storage_patch(i) * c4_r2
              endif
           end do
        end if

diff --git a/src/biogeophys/BareGroundFluxesMod.F90 b/src/biogeophys/BareGroundFluxesMod.F90
@@ -306,10 +306,6 @@ subroutine BareGroundFluxes(bounds, num_noexposedvegp, filter_noexposedvegp, &
          ulrad(p)  = 0._r8
          dhsdt_canopy(p) = 0._r8
          eflx_sh_stem(p) = 0._r8
-         z0mv(p)   = 0._r8
-         z0hv(p)   = 0._r8
-         z0qv(p)   = 0._r8
-
 
          ur(p)    = max(params_inst%wind_min,sqrt(forc_u(g)*forc_u(g)+forc_v(g)*forc_v(g)))
          dth(p)   = thm(p)-t_grnd(c)