From 92d156ac19152582bc9417d4d574f671acc893db Mon Sep 17 00:00:00 2001
From: Lionel GUEZ <guez@lmd.ipsl.fr>
Date: Thu, 4 Jul 2024 08:23:46 +0200
Subject: [PATCH] Polish
---
Inst_eddies/Tests/test_mean_speed.f90 | 2 ++
Inst_eddies/mean_speed.f90 | 2 +-
2 files changed, 3 insertions(+), 1 deletion(-)
diff --git a/Inst_eddies/Tests/test_mean_speed.f90 b/Inst_eddies/Tests/test_mean_speed.f90
index 01400aaa..274aaa57 100644
--- a/Inst_eddies/Tests/test_mean_speed.f90
+++ b/Inst_eddies/Tests/test_mean_speed.f90
@@ -53,8 +53,10 @@ program test_mean_speed
+ ceiling((corner(1) - min_lon_p) / twopi) * twopi
! Check that extremum is in polyline and grid:
+
lon_max = corner(1) + (size(ssh, 1) - 2 * merge(max_radius(1), 0, periodic) &
- 1) * step(1)
+
if (corner(1) > center(1) .or. center(1) > lon_max &
.or. minval(p%part(1)%points(1, :)) > center(1) &
.or. center(1) > maxval(p%part(1)%points(1, :))) then
diff --git a/Inst_eddies/mean_speed.f90 b/Inst_eddies/mean_speed.f90
index a623ff29..c8ed7b3d 100644
--- a/Inst_eddies/mean_speed.f90
+++ b/Inst_eddies/mean_speed.f90
@@ -10,7 +10,7 @@ contains
! computes the mean azimuthal speed at interpolation points. We
! assume (and do not check) that the longitude of the center has
! been brought modulo 2 pi in the longitude range of the polyline
- ! and that the polyline is in the longitude range of the grid
+ ! `p` and that the polyline is in the longitude range of the grid
! corresponding to corner and step.
use, intrinsic:: iso_fortran_env, only: error_unit
--
GitLab