From eaf09df5c60ad41d2fc831c67dedbd6dba256029 Mon Sep 17 00:00:00 2001
From: Lionel GUEZ <guez@lmd.ipsl.fr>
Date: Wed, 3 Jul 2024 23:38:46 +0200
Subject: [PATCH] Rename `coord_extr` to `extr_coord`
Rename `coord_extr` to `extr_coord` and `coord_extr_proj` to
`extr_coord_proj`, to have the same names as in procedure
`set_max_speed`.
---
Inst_eddies/get_1_outerm.f90 | 14 +++++++-------
1 file changed, 7 insertions(+), 7 deletions(-)
diff --git a/Inst_eddies/get_1_outerm.f90 b/Inst_eddies/get_1_outerm.f90
index 814e0185..8ff69fe4 100644
--- a/Inst_eddies/get_1_outerm.f90
+++ b/Inst_eddies/get_1_outerm.f90
@@ -5,7 +5,7 @@ module get_1_outerm_m
contains
subroutine get_1_outerm(out_cont, cont_list, cont_list_proj, n_cont, &
- cyclone, coord_extr, innermost_level_2, outside_points, ssh, corner, &
+ cyclone, extr_coord, innermost_level_2, outside_points, ssh, corner, &
step)
! This procedure gets one outermost good contour with sufficient
@@ -80,7 +80,7 @@ contains
! number of good contours found and stored, 0 <= n_cont <= n_max_cont - 1
logical, intent(in):: cyclone
- real, intent(in):: coord_extr(:) ! (2) longitude and latitude, in rad
+ real, intent(in):: extr_coord(:) ! (2) longitude and latitude, in rad
real, intent(in):: innermost_level_2
! ssh level of the innermost contour to consider around the target
@@ -106,18 +106,18 @@ contains
logical mask(size(ssh, 1), size(ssh, 2))
integer n_max_cont ! >= 3
integer i
- real corner_proj(2), coord_extr_proj(2)
+ real corner_proj(2), extr_coord_proj(2)
real outside_points_proj(2, size(outside_points, 2))
!-----------------------------------------------------------------
corner_proj = (corner - corner_whole) / step + 1.
- coord_extr_proj = (coord_extr - corner_whole) / step + 1.
+ extr_coord_proj = (extr_coord - corner_whole) / step + 1.
outside_points_proj = convert_to_ind(outside_points, corner_whole, step)
n_max_cont = size(cont_list_proj)
n_cont = 0
cont_list_proj(1)%polyline = good_contour(corner_proj, ssh, &
- innermost_level_2, coord_extr_proj, outside_points_proj)
+ innermost_level_2, extr_coord_proj, outside_points_proj)
test_n_points: if (.not. cont_list_proj(1)%closed) then
! cont_list_proj(1)%n_points == 0
@@ -131,7 +131,7 @@ contains
call assert(merge(level_try > level_good, level_try < level_good, &
cyclone), "get_1_outerm level_try")
cont_list_proj(2)%polyline = good_contour(corner_proj, ssh, level_try, &
- coord_extr_proj, outside_points_proj)
+ extr_coord_proj, outside_points_proj)
if (cont_list_proj(2)%closed) then
! cont_list_proj(2)%n_points /= 0
@@ -147,7 +147,7 @@ contains
do while (abs(level_bad - level_good) > precision)
level_try = (level_good + level_bad) / 2.
cont_list_proj(n_cont + 1)%polyline = good_contour(corner_proj, &
- ssh, level_try, coord_extr_proj, outside_points_proj)
+ ssh, level_try, extr_coord_proj, outside_points_proj)
if (cont_list_proj(n_cont + 1)%closed) then
! cont_list_proj(n_cont + 1)%n_points /= 0
--
GitLab