diff --git a/src/core_atmosphere/Registry.xml b/src/core_atmosphere/Registry.xml
index 4281c40bba..9663a3cbf3 100644
--- a/src/core_atmosphere/Registry.xml
+++ b/src/core_atmosphere/Registry.xml
@@ -152,8 +152,8 @@
possible_values="Positive real values. A zero value implies that the length scale is prescribed by the nominalMinDc value in the input file."/>
diff --git a/src/core_atmosphere/mpas_atm_core.F b/src/core_atmosphere/mpas_atm_core.F
index f7d04a1f0c..e21cc040fe 100644
--- a/src/core_atmosphere/mpas_atm_core.F
+++ b/src/core_atmosphere/mpas_atm_core.F
@@ -1250,8 +1250,6 @@ subroutine atm_compute_damping_coefs(mesh, configs)
real (kind=RKIND), pointer :: config_xnutr, config_zd
real (kind=RKIND) :: z, zt, m1, pii
real (kind=RKIND), dimension(:,:), pointer :: dss, zgrid
- real (kind=RKIND), dimension(:), pointer :: meshDensity
- real (kind=RKIND) :: dx_scale_power
m1 = -1.0
pii = acos(m1)
@@ -1259,14 +1257,12 @@ subroutine atm_compute_damping_coefs(mesh, configs)
call mpas_pool_get_dimension(mesh, 'nCells', nCells)
call mpas_pool_get_dimension(mesh, 'nVertLevels', nVertLevels)
- call mpas_pool_get_array(mesh, 'meshDensity', meshDensity)
call mpas_pool_get_array(mesh, 'dss', dss)
call mpas_pool_get_array(mesh, 'zgrid', zgrid)
call mpas_pool_get_config(configs, 'config_zd', config_zd)
call mpas_pool_get_config(configs, 'config_xnutr', config_xnutr)
- dx_scale_power = 1.0
dss(:,:) = 0.0
do iCell=1,nCells
zt = zgrid(nVertLevels+1,iCell)
@@ -1274,7 +1270,6 @@ subroutine atm_compute_damping_coefs(mesh, configs)
z = 0.5*(zgrid(k,iCell) + zgrid(k+1,iCell))
if (z > config_zd) then
dss(k,iCell) = config_xnutr*sin(0.5*pii*(z-config_zd)/(zt-config_zd))**2.0
- dss(k,iCell) = dss(k,iCell) / meshDensity(iCell)**(0.25*dx_scale_power)
end if
end do
end do