From a2da4d88b7545cf32dbd28cf335e3bbe5ea22340 Mon Sep 17 00:00:00 2001
From: Lionel GUEZ <guez@lmd.ens.fr>
Date: Thu, 5 Apr 2018 16:39:39 +0200
Subject: [PATCH] Null ssh contour area from 0 to - 1, safer. Undefined max
speed from 0 to 1e4, safer too.
---
Tests/plot_snapshot.py | 4 ++--
derived_types.f | 2 +-
get_snapshot.f | 2 +-
3 files changed, 4 insertions(+), 4 deletions(-)
diff --git a/Tests/plot_snapshot.py b/Tests/plot_snapshot.py
index 6229ed17..8b54f64a 100755
--- a/Tests/plot_snapshot.py
+++ b/Tests/plot_snapshot.py
@@ -4,9 +4,9 @@
Red for anti-cyclones, blue for cyclones. Squares for a well-defined
outermost contour but with insufficient amplitude. Crosses for an
-outermost contour of sufficient amplitude but with no associated
+outermost contour of sufficient amplitude but with no distinct
max-speed contour. Filled circles for an outermost contour of
-sufficient amplitude with an associated max-speed contour.
+sufficient amplitude with a distinct max-speed contour.
"""
diff --git a/derived_types.f b/derived_types.f
index 073deec2..0a13596a 100644
--- a/derived_types.f
+++ b/derived_types.f
@@ -70,7 +70,7 @@ contains
null_ssh_contour%polyline = null_polyline()
null_ssh_contour%ssh = missing_ssh
- null_ssh_contour%area = 0.
+ null_ssh_contour%area = - 1.
end function null_ssh_contour
diff --git a/get_snapshot.f b/get_snapshot.f
index 032775bb..93886e98 100644
--- a/get_snapshot.f
+++ b/get_snapshot.f
@@ -103,7 +103,7 @@ contains
step)
else
s%list_vis(i)%speed_cont = null_ssh_contour()
- s%list_vis(i)%max_speed = 0.
+ s%list_vis(i)%max_speed = 1e4
s%list_vis(i)%radius4 = 0
end if
end do
--
GitLab