From cd01db4253c3e2576e58b06e4f6ec3575392fee0 Mon Sep 17 00:00:00 2001
From: Lionel GUEZ <guez@lmd.ens.fr>
Date: Mon, 22 Nov 2021 16:32:29 +0100
Subject: [PATCH] Polish
---
Inst_eddies/max_speed_contour_ssh.f90 | 2 +-
Inst_eddies/set_max_speed.f90 | 2 +-
2 files changed, 2 insertions(+), 2 deletions(-)
diff --git a/Inst_eddies/max_speed_contour_ssh.f90 b/Inst_eddies/max_speed_contour_ssh.f90
index 695c49fd..7cb7e84f 100644
--- a/Inst_eddies/max_speed_contour_ssh.f90
+++ b/Inst_eddies/max_speed_contour_ssh.f90
@@ -33,7 +33,7 @@ contains
!----------------------------------------------------------------------
- ! Assuming that ascending indices in u and v mean correspond to
+ ! Assuming that ascending indices in u and v correspond to
! ascending longitude and latitude:
v_azim(east, :) = v(ind_extr(1) + 1:ind_extr(1) + radius - 1, &
ind_extr(2))
diff --git a/Inst_eddies/set_max_speed.f90 b/Inst_eddies/set_max_speed.f90
index cea64de0..750ee87a 100644
--- a/Inst_eddies/set_max_speed.f90
+++ b/Inst_eddies/set_max_speed.f90
@@ -84,7 +84,7 @@ contains
e%speed_cont%ssh = max_speed_contour_ssh(ssh, u, v, ind_targ_extr, &
e%radius4)
-
+
if (e%speed_cont%ssh == missing_ssh) then
e%speed_cont = null_ssh_contour()
e%max_speed = speed_outerm
--
GitLab