From c414b4c6667628201daaa02229f6162fd1380393 Mon Sep 17 00:00:00 2001
From: Lionel GUEZ <guez@lmd.ens.fr>
Date: Wed, 9 Jan 2019 16:45:20 +0100
Subject: [PATCH] Change default value of min_radius.

---
 Tests/test_get_snapshot.f   | 4 +++-
 Tests/test_set_all_outerm.f | 4 +++-
 2 files changed, 6 insertions(+), 2 deletions(-)

diff --git a/Tests/test_get_snapshot.f b/Tests/test_get_snapshot.f
index ca7c1862..63291acc 100644
--- a/Tests/test_get_snapshot.f
+++ b/Tests/test_get_snapshot.f
@@ -30,7 +30,9 @@ program test_get_snapshot
   ! minimum amplitude of ssh, between extremum and outermost contour,
   ! in m
 
-  real:: min_radius = 15.957691216057307 ! minimum radius of the equal-area disk for an outermost contour, in km
+  real:: min_radius = 20.
+  ! minimum radius of the equal-area disk for an outermost contour, in km
+  
   integer ncid, dimid, varid, nlon, nlat
   real lon_min, lon_max, lat_min, lat_max ! longitudes and latitudes, in degrees
   real step(2) ! longitude and latitude steps, in rad
diff --git a/Tests/test_set_all_outerm.f b/Tests/test_set_all_outerm.f
index 18f346f4..5d241b6b 100644
--- a/Tests/test_set_all_outerm.f
+++ b/Tests/test_set_all_outerm.f
@@ -26,7 +26,9 @@ program test_set_all_outerm
   ! minimum amplitude of ssh, between extremum and outermost contour,
   ! in m
 
-  real:: min_radius = 15.957691216057307 ! minimum radius of the equal-area disk for of an outermost contour, in km
+  real:: min_radius = 20.
+  ! minimum radius of the equal-area disk for of an outermost contour, in km
+  
   character(len = :), allocatable:: filename
   integer nlon, nlat, copy
   real lon_min, lon_max, lat_min, lat_max ! longitudes and latitudes, in degrees
-- 
GitLab