diff --git a/Tests/test_get_snapshot.f b/Tests/test_get_snapshot.f index ca7c18626b38b4efe5b021c89bb0477661fce21f..63291acc266b420da209b6a34c75309ae2be5000 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 18f346f4c41003bc2057f04fdc275215798631fb..5d241b6b536ef560ccd331a20f0461638a603c09 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