Skip to content
Snippets Groups Projects
Commit 36e9ce82 authored by Lionel GUEZ's avatar Lionel GUEZ
Browse files

Remove unused entities

We keep ssh because we will need it if we call `good_contour`.
parent 0ada312d
No related branches found
No related tags found
No related merge requests found
...@@ -23,16 +23,8 @@ contains ...@@ -23,16 +23,8 @@ contains
use, intrinsic:: IEEE_ARITHMETIC, only: IEEE_IS_NAN 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 ccw_orient_m, only: ccw_orient
use derived_types, only: eddy, null_ssh_contour, missing_ssh, ssh_contour, & use derived_types, only: eddy, null_ssh_contour, ssh_contour, missing_speed
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 mean_speed_m, only: mean_speed use mean_speed_m, only: mean_speed
use spher_polyline_area_m, only: spher_polyline_area use spher_polyline_area_m, only: spher_polyline_area
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment