From 382441ce8f07d640b0c31e41e5f645363b30f8cd Mon Sep 17 00:00:00 2001 From: Keith Oleson Date: Mon, 14 Mar 2022 15:00:21 -0600 Subject: [PATCH] Add forcing height change back into CanopyFluxesMod after rebase. --- src/biogeophys/CanopyFluxesMod.F90 | 5 ----- 1 file changed, 5 deletions(-) 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)