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