From a28dad43759b09319fde896badddd7ad379b4dbd Mon Sep 17 00:00:00 2001
From: Lionel GUEZ <guez@lmd.ens.fr>
Date: Tue, 31 Jan 2023 22:53:23 +0100
Subject: [PATCH] Count outermost contours
---
Inst_eddies/Tests/test_set_all_outerm.f90 | 2 ++
1 file changed, 2 insertions(+)
diff --git a/Inst_eddies/Tests/test_set_all_outerm.f90 b/Inst_eddies/Tests/test_set_all_outerm.f90
index e9eaf064..f2510f82 100644
--- a/Inst_eddies/Tests/test_set_all_outerm.f90
+++ b/Inst_eddies/Tests/test_set_all_outerm.f90
@@ -49,6 +49,8 @@ program test_set_all_outerm
end do
print *, "test_set_all_outerm: s%number_extr = ", s%number_extr
+ print *, "test_set_all_outerm: Number of outermost contours = ", &
+ count(s%list%out_cont%closed)
print *, "test_set_all_outerm: Average number of points per outermost ", &
"contour: ", sum(s%list%out_cont%n_points) / real(s%number_extr)
call shpc_create(hshp_cyclo, shpc_dir = "SHPC", cyclone = .true., slice = 0, &
--
GitLab