From 2f0a2fb4082268542fe710b9355457f3babc5017 Mon Sep 17 00:00:00 2001
From: Lionel GUEZ <guez@lmd.ens.fr>
Date: Tue, 16 May 2023 17:25:06 +0200
Subject: [PATCH] Avoid an addition
---
Inst_eddies/get_1_outerm.f90 | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/Inst_eddies/get_1_outerm.f90 b/Inst_eddies/get_1_outerm.f90
index c519f30a..b353610a 100644
--- a/Inst_eddies/get_1_outerm.f90
+++ b/Inst_eddies/get_1_outerm.f90
@@ -126,7 +126,7 @@ contains
if (n_cont == n_max_cont - 1) then
! Replace the previous good contour found
- cont_list(n_cont) = cont_list(n_cont + 1)
+ cont_list(n_cont) = cont_list(n_max_cont)
else
n_cont = n_cont + 1
end if
--
GitLab