From 6ceed70b3c88592ac01600cd9162b7d8f761e1e4 Mon Sep 17 00:00:00 2001
From: Lionel GUEZ <guez@lmd.ens.fr>
Date: Fri, 26 May 2023 23:06:18 +0200
Subject: [PATCH] Polish
---
Inst_eddies/set_max_speed.F90 | 8 +++-----
1 file changed, 3 insertions(+), 5 deletions(-)
diff --git a/Inst_eddies/set_max_speed.F90 b/Inst_eddies/set_max_speed.F90
index 2532e499..eecb124a 100644
--- a/Inst_eddies/set_max_speed.F90
+++ b/Inst_eddies/set_max_speed.F90
@@ -7,11 +7,9 @@ contains
subroutine set_max_speed(speed_cont, max_speed, cont_list, n_cont, &
extr_coord, ssh, u, v, corner, step)
- ! This procedure defines the components speed_cont and max_speed
- ! of argument e. On return, e%speed_cont may be a null ssh contour
- ! and e%max_speed may be set to missing_speed. e%max_speed is
- ! never NaN. On return, if e%speed_cont is not a null ssh contour
- ! then e%max_speed is the speed on e%speed_cont.
+ ! This procedure defines speed_cont and max_speed. On return,
+ ! speed_cont may be a null ssh contour and max_speed may be set to
+ ! missing_speed. max_speed is never NaN.
! The length of the interval of longitudes of the domain, step(1)
! * (size(ssh, 1) - 1), should be < 180 degrees, so that the
--
GitLab