From d69cba4e5a79fccdb643f023f173ffe4e6e90a0f Mon Sep 17 00:00:00 2001
From: Lionel GUEZ <guez@lmd.ens.fr>
Date: Tue, 23 May 2023 14:07:56 +0200
Subject: [PATCH] Move assignment to `e%max_speed`
Move assignment to `e%max_speed` out of the alternative, to make it
just a little clearer.
---
Inst_eddies/set_max_speed.F90 | 16 +++++++++-------
1 file changed, 9 insertions(+), 7 deletions(-)
diff --git a/Inst_eddies/set_max_speed.F90 b/Inst_eddies/set_max_speed.F90
index 3109bbba..1a944cbb 100644
--- a/Inst_eddies/set_max_speed.F90
+++ b/Inst_eddies/set_max_speed.F90
@@ -92,15 +92,17 @@ contains
! All speed values are NaN
e%speed_cont = null_ssh_contour()
e%max_speed = missing_speed
- else if (i == i_outer) then
- ! Maximum speed on the outermost contour
- e%speed_cont = null_ssh_contour()
- e%max_speed = speed(i)
else
- e%speed_cont = cont_list(i)
- e%speed_cont%area = spher_polyline_area(e%speed_cont%polyline)
- call ccw_orient(e%speed_cont)
e%max_speed = speed(i)
+
+ if (i == i_outer) then
+ ! Maximum speed on the outermost contour
+ e%speed_cont = null_ssh_contour()
+ else
+ e%speed_cont = cont_list(i)
+ e%speed_cont%area = spher_polyline_area(e%speed_cont%polyline)
+ call ccw_orient(e%speed_cont)
+ end if
end if
end subroutine set_max_speed
--
GitLab