Some cleanup

Remove config_damage_stiffness_min as a variable in li_calculate_damage, where it is no longer used.
MALI-Dev · Oct 31, 2023 · 17b7bf2 · 17b7bf2
1 parent 5ee7c46
commit 17b7bf2
Showing 1 changed file with 0 additions and 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
@@ -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)