From 9e1e1b44646d82ecce472bdaea77e5f56f7c3985 Mon Sep 17 00:00:00 2001 From: Laura Fowler Date: Sat, 23 Mar 2024 08:44:54 -0600 Subject: [PATCH] * In ./src/core_atmosphere/physics/mpas_atmphys_driver_cloudiness.F, corrected the units of the variable dx_p from meters to kilometers (dx_p is used in the Thompson parameterization of the cloud fraction). --- .../physics/mpas_atmphys_driver_cloudiness.F | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/src/core_atmosphere/physics/mpas_atmphys_driver_cloudiness.F b/src/core_atmosphere/physics/mpas_atmphys_driver_cloudiness.F index 9e444ae2f7..93e833b328 100644 --- a/src/core_atmosphere/physics/mpas_atmphys_driver_cloudiness.F +++ b/src/core_atmosphere/physics/mpas_atmphys_driver_cloudiness.F @@ -51,7 +51,10 @@ module mpas_atmphys_driver_cloudiness ! Laura D. Fowler (laura@ucar.edu) / 2016-07-05. ! * since we removed the local variable radt_cld_scheme from mpas_atmphys_vars.F, now defines radt_cld_scheme ! as a pointer to config_radt_cld_scheme. -! Laura D. Fowler (laura@ucar.edu) / 2917-02-16. +! Laura D. Fowler (laura@ucar.edu) / 2017-02-16. +! * this is a bug fix. dx_p is converted from meters to kilometers prior to calling the thompson parameterization +! of the cloud fraction. +! Laura D. Fowler (laura@ucar.edu) / 2024-03-23. contains @@ -119,6 +122,8 @@ subroutine cloudiness_from_MPAS(configs,mesh,diag_physics,sfc_input,its,ite) do j = jts,jte do i = its,ite dx_p(i,j) = len_disp / meshDensity(i)**0.25 + !conversion of dx_p from meters to kilometers. + dx_p(i,j) = dx_p(i,j)*0.001 xland_p(i,j) = xland(i) enddo