From a52041a86a08af45df530da44009aa9efdc59d05 Mon Sep 17 00:00:00 2001
From: Lionel GUEZ <guez@lmd.ipsl.fr>
Date: Wed, 3 Jul 2024 23:05:12 +0200
Subject: [PATCH] Omit step argument
Following update 614b427 of `Contour_531`.
---
Inst_eddies/good_contour.f90 | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/Inst_eddies/good_contour.f90 b/Inst_eddies/good_contour.f90
index 404d55ef..2332fe51 100644
--- a/Inst_eddies/good_contour.f90
+++ b/Inst_eddies/good_contour.f90
@@ -56,7 +56,7 @@ contains
n_out = 0
end if
- call find_contours_reg_grid(corner, [1., 1.], z, level, contours, zmax)
+ call find_contours_reg_grid(corner, z, level, contours, zmax)
n_cont = size(contours)
found_good_contour = .false.
i = 1
--
GitLab