From bfca112f1dcee6e509a91e64dca60402437f32f2 Mon Sep 17 00:00:00 2001
From: Lionel GUEZ <guez@lmd.ens.fr>
Date: Thu, 22 Mar 2018 18:52:03 +0100
Subject: [PATCH] Polish.
---
get_1_outerm.f | 3 ++-
set_max_speed.f | 2 +-
2 files changed, 3 insertions(+), 2 deletions(-)
diff --git a/get_1_outerm.f b/get_1_outerm.f
index 23cfa038..cbb2bd2a 100644
--- a/get_1_outerm.f
+++ b/get_1_outerm.f
@@ -10,7 +10,8 @@ contains
! Gets one outermost contour, if it can find one. Method:
! dichotomy on level of ssh. If the procedure cannot find an
! outermost contour, it return a null polyline, zero area and ssh
- ! equal to ssh extremum.
+ ! equal to ssh extremum. An outermost contour is not found if, and
+ ! only if, there is no good contour at innermost level.
use contour_531, only: polyline, convert_to_reg_coord
use derived_types, only: ssh_contour
diff --git a/set_max_speed.f b/set_max_speed.f
index 9390c0b0..eb2b3c97 100644
--- a/set_max_speed.f
+++ b/set_max_speed.f
@@ -22,7 +22,7 @@ contains
type(eddy), intent(inout):: e
! e%out_cont, e%cyclone, e%ssh_extr and e%coord_extr
- ! should be defined on input
+ ! should be defined on input.
integer, intent(in):: ind_targ_extr(:) ! (2) indices of the target extremum
integer, intent(in):: extr_map(:, :)
--
GitLab