diff --git a/src/biogeophys/CanopyFluxesMod.F90 b/src/biogeophys/CanopyFluxesMod.F90 index 8059f26d73..10d1193cbb 100644 --- a/src/biogeophys/CanopyFluxesMod.F90 +++ b/src/biogeophys/CanopyFluxesMod.F90 @@ -918,11 +918,6 @@ subroutine CanopyFluxes(bounds, num_exposedvegp, filter_exposedvegp, call endrun(msg = 'unknown z0param_method', additional_msg = errMsg(sourcefile, __LINE__)) end select - ! Update the forcing heights - forc_hgt_u_patch(p) = forc_hgt_u(g) + z0mg(c) + displa(p) - forc_hgt_t_patch(p) = forc_hgt_t(g) + z0mg(c) + displa(p) - forc_hgt_q_patch(p) = forc_hgt_q(g) + z0mg(c) + displa(p) - z0hv(p) = z0mv(p) z0qv(p) = z0mv(p)