Remove argument `ind_targ_extr` of `set_max_speed`

Remove dummy argument `ind_targ_extr` of procedure `set_max_speed`,
not used any longer.

Inst_eddies/Tests/test_set_max_speed.f90

@@ -68,8 +68,7 @@ program test_set_max_speed
      corner_window = corner + (llc - 1) * step
      e%extr%coord_proj = nint((e%extr%coord - corner) / step) + 1
      cont_list(1) = e%out_cont
-     call set_max_speed(e, e%extr%coord_proj - llc + 1, &
-          ssh(llc(1):urc(1), llc(2):urc(2)), &
+     call set_max_speed(e, ssh(llc(1):urc(1), llc(2):urc(2)), &
           u(llc(1):urc(1), llc(2):urc(2)), &
           v(llc(1):urc(1), llc(2):urc(2)), corner_window, step, cont_list)
      call shpc_create(hshp, shpc_dir = "SHPC", cyclone = cyclone, slice = 0, &

Inst_eddies/set_all_contours.f90

@@ -155,8 +155,7 @@ contains
 
             corner_window = corner + (llc - 1) * step
 
-            call set_max_speed(e, e%extr%coord_proj - llc + 1, &
-                 ssh(llc(1):urc(1), llc(2):urc(2)), &
+            call set_max_speed(e, ssh(llc(1):urc(1), llc(2):urc(2)), &
                  u(llc(1):urc(1), llc(2):urc(2)), &
                  v(llc(1):urc(1), llc(2):urc(2)), corner_window, step, &
                  cont_list(:n_cont))

Inst_eddies/set_max_speed.f90

@@ -4,7 +4,7 @@ module set_max_speed_m
 
 contains
 
-  subroutine set_max_speed(e, ind_targ_extr, ssh, u, v, corner, step, cont_list)
+  subroutine set_max_speed(e, ssh, u, v, corner, step, cont_list)
 
     ! This procedure defines the components speed_cont, max_speed and
     ! radius4 of argument e. On return, e%speed_cont may be a null ssh
@@ -40,8 +40,6 @@ contains
     ! e%out_cont, e%cyclone, e%extr%ssh and e%extr%coord
     ! should be defined on input.
 
-    integer, intent(in):: ind_targ_extr(:) ! (2) indices of the target extremum
-
     real, intent(in):: ssh(:, :), u(:, :), v(:, :)
     ! The domain should be the bounding box of out_cont, because we do
     ! not exclude other extrema.