From d540a1f3844e1e6b26d1740ba1fc2f7aa334643c Mon Sep 17 00:00:00 2001
From: Lionel GUEZ <guez@lmd.ens.fr>
Date: Tue, 28 Mar 2023 07:08:10 +0200
Subject: [PATCH] Simplify meaning of `n_max_cont`
`n_max_cont` is just the maximum number of contours in `cont_list`,
and `n_cont` is the actual number.
---
Inst_eddies/set_all_outerm.f90 | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/Inst_eddies/set_all_outerm.f90 b/Inst_eddies/set_all_outerm.f90
index d88165e6..6c2f0e47 100644
--- a/Inst_eddies/set_all_outerm.f90
+++ b/Inst_eddies/set_all_outerm.f90
@@ -64,7 +64,7 @@ contains
integer, parameter:: n_max_cont = 31
- type(ssh_contour) cont_list(n_max_cont + 1)
+ type(ssh_contour) cont_list(n_max_cont)
! Contour list. The outermost contour is element n_cont. The
! contours are in monotonic order of ssh.
--
GitLab