Pass `outside_points_proj` to `set_contours`

Instead of `outside_points`.

Inst_eddies/Tests/examine_eddy.f90

@@ -190,7 +190,7 @@ program examine_eddy
   call set_contours(e%out_cont, e%speed_cont, e%max_speed, cyclone, e%extr, &
        e%innermost_level, step, ssh(llc(1):urc(1), llc(2):urc(2)), &
        u(llc(1):urc(1), llc(2):urc(2)), v(llc(1):urc(1), llc(2):urc(2)), llc, &
-       outside_points)
+       convert_to_ind(outside_points, corner, step))
   call close_cont_list
   call shpc_create(hshpc, shpc_dir = "SHPC", cyclone = cyclone, slice = 0, &
        grid_lon_lat = .true.)

Inst_eddies/inst_eddies.f90

@@ -7,6 +7,7 @@ program inst_eddies
   use, intrinsic:: ISO_FORTRAN_ENV, only: ERROR_UNIT
 
   ! Libraries:
+  use contour_531, only: convert_to_ind
   use jumble, only: assert, new_unit, argwhere, twopi
   use numer_rec_95, only: indexx
 
@@ -172,7 +173,7 @@ program inst_eddies
           s%list(i)%max_speed, s%list(i)%cyclone, s%list(i)%extr, &
           s%list(i)%innermost_level, step, ssh(llc(1):urc(1), llc(2):urc(2)), &
           u(llc(1):urc(1), llc(2):urc(2)), v(llc(1):urc(1), llc(2):urc(2)), &
-          llc, outside_points)
+          llc, convert_to_ind(outside_points, corner, step))
   end do
 
   call cpu_time(t1)

Inst_eddies/set_contours.f90

@@ -5,17 +5,16 @@ module set_contours_m
 contains
 
   subroutine set_contours(out_cont, speed_cont, max_speed, cyclone, extr, &
-       innermost_level, step, ssh, u, v, corner, outside_points)
+       innermost_level, step, ssh, u, v, corner, outside_points_proj)
 
     ! This procedure sets contours in an eddy.
 
     ! Libraries:
-    use contour_531, only: polyline, convert_to_ind
+    use contour_531, only: polyline
 
     use config_m, only: min_amp
     use derived_types, only: extremum, ssh_contour
     use get_1_outerm_m, only: get_1_outerm
-    use input_ssh_m, only: corner_whole => corner
     use set_max_speed_m, only: set_max_speed
 
     type(ssh_contour), intent(out):: out_cont ! outermost contour
@@ -47,9 +46,9 @@ contains
     ! corresponding to ssh(1, 1). A priori, this is not the corner of
     ! the grid of the NetCDF file.
 
-    real, intent(in):: outside_points(:, :) ! (2, :) longitude and
-    ! latitude, in rad, of all the significant extrema, except the
-    ! target extremum
+    real, intent(in):: outside_points_proj(:, :) ! (2, :)
+    ! coordinates in projection space of all the significant extrema,
+    ! except the target extremum
 
     ! Local:
 
@@ -95,8 +94,7 @@ contains
          innermost_level, abs(extr%ssh - innermost_level) < min_amp)
 
     call get_1_outerm(out_cont, cont_list, cont_list_proj, n_cont, cyclone, &
-         real(extr%coord_proj), innermost_level_2, &
-         convert_to_ind(outside_points, corner_whole, step), ssh, &
+         real(extr%coord_proj), innermost_level_2, outside_points_proj, ssh, &
          real(corner), step)
 
     ! Done with outermost contour, now let us take care of the