ice_dyn_shared: fix subname for 'seabed_stress_factor_LKD'

CICE-Consortium · Nov 17, 2021 · 7f8b856 · 7f8b856
1 parent 2f65ca8
commit 7f8b856
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/cicecore/cicedynB/dynamics/ice_dyn_shared.F90 b/cicecore/cicedynB/dynamics/ice_dyn_shared.F90
@@ -957,7 +957,7 @@ subroutine seabed_stress_factor_LKD (nx_block, ny_block,         &
       integer (kind=int_kind) :: &
          i, j, ij
 
-      character(len=*), parameter :: subname = '(seabed1_stress_coeff)'
+      character(len=*), parameter :: subname = '(seabed_stress_factor_LKD)'
 
       do ij = 1, icellu
          i = indxui(ij)