From 36e9ce8286946128b324992f9c13f831944bbff7 Mon Sep 17 00:00:00 2001
From: Lionel GUEZ <guez@lmd.ens.fr>
Date: Wed, 26 Apr 2023 17:22:04 +0200
Subject: [PATCH] Remove unused entities
We keep ssh because we will need it if we call `good_contour`.
---
Inst_eddies/set_max_speed.f90 | 10 +---------
1 file changed, 1 insertion(+), 9 deletions(-)
diff --git a/Inst_eddies/set_max_speed.f90 b/Inst_eddies/set_max_speed.f90
index 4876f199..10e3b003 100644
--- a/Inst_eddies/set_max_speed.f90
+++ b/Inst_eddies/set_max_speed.f90
@@ -23,16 +23,8 @@ contains
use, intrinsic:: IEEE_ARITHMETIC, only: IEEE_IS_NAN
- ! Lbraries:
- use contour_531, only: convert_to_ind
- use geometry, only: polygon_point_dist_2d
-
use ccw_orient_m, only: ccw_orient
- use derived_types, only: eddy, null_ssh_contour, missing_ssh, ssh_contour, &
- missing_speed
- use good_contour_m, only: good_contour
- use inside_4_m, only: inside_4
- use max_speed_contour_ssh_m, only: max_speed_contour_ssh
+ use derived_types, only: eddy, null_ssh_contour, ssh_contour, missing_speed
use mean_speed_m, only: mean_speed
use spher_polyline_area_m, only: spher_polyline_area
--
GitLab