From 5c5b868d1d8309362a178dc8486a5ccd7e947462 Mon Sep 17 00:00:00 2001 From: weiwangncar Date: Wed, 13 Jan 2021 11:26:43 -0700 Subject: [PATCH] Fix for lh_urb2d diagnostics --- phys/module_sf_noahmpdrv.F | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/phys/module_sf_noahmpdrv.F b/phys/module_sf_noahmpdrv.F index 594ce4c49e..f2d0f67467 100644 --- a/phys/module_sf_noahmpdrv.F +++ b/phys/module_sf_noahmpdrv.F @@ -3207,7 +3207,7 @@ SUBROUTINE noahmp_urban(sf_urban_physics, NSOIL, IVGTYP, ITIMESTEP, lh(i,j) = qfx(i,j)*xlv hfx(i,j) = hfx_urb(i,j) + (1-frc_urb2d(i,j))*hfx_rural(i,j) ![W/m/m] sh_urb2d(i,j) = hfx_urb(i,j)/frc_urb2d(i,j) - lh_urb2d(i,j) = qfx_urb(i,j)*xlv + lh_urb2d(i,j) = qfx_urb(i,j)*xlv/frc_urb2d(i,j) g_urb2d(i,j) = grdflx_urb(i,j) rn_urb2d(i,j) = rs_abs_urb(i,j)+emiss_urb(i,j)*glw(i,j)-rl_up_urb(i,j) ust(i,j) = (umom**2.+vmom**2.)**.25