From 658a74e59cc09dc00701aba4ee8849cb0eedce41 Mon Sep 17 00:00:00 2001
From: Lionel GUEZ <guez@lmd.ipsl.fr>
Date: Mon, 1 Jul 2024 17:26:02 +0200
Subject: [PATCH] Polish
---
Inst_eddies/get_1_outerm.f90 | 3 +++
1 file changed, 3 insertions(+)
diff --git a/Inst_eddies/get_1_outerm.f90 b/Inst_eddies/get_1_outerm.f90
index 5aeb394c..cd7279ec 100644
--- a/Inst_eddies/get_1_outerm.f90
+++ b/Inst_eddies/get_1_outerm.f90
@@ -119,6 +119,7 @@ contains
corner_whole, step)
test_n_points: if (.not. cont_list_proj(1)%closed) then
+ ! cont_list_proj(1)%n_points == 0
out_cont = null_ssh_contour()
else test_n_points
n_cont = 1
@@ -134,6 +135,7 @@ contains
corner_whole, step)
if (cont_list_proj(2)%closed) then
+ ! cont_list_proj(2)%n_points /= 0
! This can only happen if there are degenerate extrema
! everywhere around the path of contour. So it should
! probably never happen.
@@ -152,6 +154,7 @@ contains
corner_whole, step)
if (cont_list_proj(n_cont + 1)%closed) then
+ ! cont_list_proj(n_cont + 1)%n_points /= 0
cont_list(n_cont + 1)%ssh = level_try
if (n_cont == n_max_cont - 1) then
--
GitLab