From 0ada312d3c864c22e7c41818060d6189e24a5291 Mon Sep 17 00:00:00 2001
From: Lionel GUEZ <guez@lmd.ens.fr>
Date: Wed, 26 Apr 2023 17:20:02 +0200
Subject: [PATCH] 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 | 3 +--
Inst_eddies/set_all_contours.f90 | 3 +--
Inst_eddies/set_max_speed.f90 | 4 +---
3 files changed, 3 insertions(+), 7 deletions(-)
diff --git a/Inst_eddies/Tests/test_set_max_speed.f90 b/Inst_eddies/Tests/test_set_max_speed.f90
index 9ec46a5a..be5df033 100644
--- a/Inst_eddies/Tests/test_set_max_speed.f90
+++ b/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, &
diff --git a/Inst_eddies/set_all_contours.f90 b/Inst_eddies/set_all_contours.f90
index 93030d22..b7463761 100644
--- a/Inst_eddies/set_all_contours.f90
+++ b/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))
diff --git a/Inst_eddies/set_max_speed.f90 b/Inst_eddies/set_max_speed.f90
index b10be2e4..4876f199 100644
--- a/Inst_eddies/set_max_speed.f90
+++ b/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.
--
GitLab