From d4935475f40408fdf39aa0ca9d64d3b190252be1 Mon Sep 17 00:00:00 2001
From: Lionel GUEZ <guez@lmd.ens.fr>
Date: Wed, 17 May 2023 18:36:54 +0200
Subject: [PATCH] Save the entry value of `n_cont` in `i_outer`
---
Inst_eddies/set_max_speed.f90 | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/Inst_eddies/set_max_speed.f90 b/Inst_eddies/set_max_speed.f90
index 455ccc02..9dc0341f 100644
--- a/Inst_eddies/set_max_speed.f90
+++ b/Inst_eddies/set_max_speed.f90
@@ -50,10 +50,11 @@ contains
! Local:
real, allocatable:: speed(:) ! (n_cont) speed on the contour
- integer i
+ integer i, i_outer
!---------------------------------------------------------------
+ i_outer = n_cont
allocate(speed(n_cont))
do i = 1, n_cont
@@ -68,7 +69,7 @@ contains
! All speed values are NaN
e%speed_cont = null_ssh_contour()
e%max_speed = missing_speed
- else if (i == n_cont) then
+ else if (i == i_outer) then
! Maximum speed on the outermost contour
e%speed_cont = null_ssh_contour()
e%max_speed = speed(i)
--
GitLab