From 17b7bf2082cb9d1e9f76fd81f6bd716197372e5e Mon Sep 17 00:00:00 2001 From: Trevor Ray Hillebrand Date: Fri, 13 Oct 2023 16:08:55 -0600 Subject: [PATCH] Some cleanup Remove config_damage_stiffness_min as a variable in li_calculate_damage, where it is no longer used. --- .../mpas-albany-landice/src/mode_forward/mpas_li_calving.F | 2 -- 1 file changed, 2 deletions(-) diff --git a/components/mpas-albany-landice/src/mode_forward/mpas_li_calving.F b/components/mpas-albany-landice/src/mode_forward/mpas_li_calving.F index a188df83fcf2..14af4d632d67 100644 --- a/components/mpas-albany-landice/src/mode_forward/mpas_li_calving.F +++ b/components/mpas-albany-landice/src/mode_forward/mpas_li_calving.F @@ -3616,7 +3616,6 @@ subroutine li_finalize_damage_after_advection(domain, err) type (mpas_pool_type), pointer :: meshPool type (mpas_pool_type), pointer :: velocityPool type (mpas_pool_type), pointer :: scratchPool - real(kind=RKIND), pointer :: config_damage_stiffness_min logical, pointer :: config_damage_rheology_coupling logical, pointer :: config_preserve_damage logical, pointer :: config_print_calving_info @@ -3638,7 +3637,6 @@ subroutine li_finalize_damage_after_advection(domain, err) err = 0 - call mpas_pool_get_config(liConfigs, 'config_damage_stiffness_min', config_damage_stiffness_min) call mpas_pool_get_config(liConfigs, 'config_damage_rheology_coupling', config_damage_rheology_coupling) call mpas_pool_get_config(liConfigs, 'config_damage_gl_setting', config_damage_gl_setting) call mpas_pool_get_config(liConfigs, 'config_preserve_damage', config_preserve_damage)