Polish

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

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