From 93805e51f7033eba38d5eb475a8913bbdc800180 Mon Sep 17 00:00:00 2001 From: "Phillip J. Wolfram" Date: Tue, 3 Sep 2019 10:32:34 -0600 Subject: [PATCH] Fixes typo for depth-variable Rayleigh drag Previously, Registry and code was inconsistent with the variable `config_Rayleigh_damping_coeff_depth_variable` used, which was inconsistent with the registry value of `config_Rayleigh_damping_depth_variable`. --- src/core_ocean/shared/mpas_ocn_vmix.F | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/core_ocean/shared/mpas_ocn_vmix.F b/src/core_ocean/shared/mpas_ocn_vmix.F index d0334fda0b..d928363293 100644 --- a/src/core_ocean/shared/mpas_ocn_vmix.F +++ b/src/core_ocean/shared/mpas_ocn_vmix.F @@ -831,7 +831,7 @@ subroutine ocn_vmix_init(domain, err)!{{{ logical, pointer :: config_use_implicit_bottom_drag real (kind=RKIND), pointer :: config_implicit_bottom_drag_coeff logical, pointer :: config_Rayleigh_friction, config_Rayleigh_bottom_friction, & - config_Rayleigh_damping_coeff_depth_variable + config_Rayleigh_damping_depth_variable real (kind=RKIND), pointer :: config_Rayleigh_damping_coeff, config_Rayleigh_bottom_damping_coeff err = 0 @@ -846,8 +846,8 @@ subroutine ocn_vmix_init(domain, err)!{{{ config_Rayleigh_bottom_friction) call mpas_pool_get_config(ocnConfigs, 'config_Rayleigh_damping_coeff', & config_Rayleigh_damping_coeff) - call mpas_pool_get_config(ocnConfigs, 'config_Rayleigh_damping_coeff_depth_variable', & - config_Rayleigh_damping_coeff_depth_variable) + call mpas_pool_get_config(ocnConfigs, 'config_Rayleigh_damping_depth_variable', & + config_Rayleigh_damping_depth_variable) call mpas_pool_get_config(ocnConfigs, 'config_Rayleigh_bottom_damping_coeff', & config_Rayleigh_bottom_damping_coeff) @@ -864,7 +864,7 @@ subroutine ocn_vmix_init(domain, err)!{{{ endif rayleighDepthVariable = 0.0_RKIND - if (config_Rayleigh_damping_coeff_depth_variable) then + if (config_Rayleigh_damping_depth_variable) then rayleighDepthVariable = 1.0_RKIND end if