Rename variable `corner` of module `input_ssh_m` to `corner_whole`.

I did not like the difference of treatment between corner and step.

We are circumventing a bug of the Intel Fortran compiler. This was
tested with both ifx `2023.1.0` and ifort `2021.9.0`. The bug occurs
on return from procedure `set_max_speed`: `free(): double free
detected in tcache 2` and crashes execution. The bug is revealed in
commit cc13fd5b. The GNU compiler does not have this bug.

To circumvent the Intel compiler bug, instead of an ssh component of
`cont_list_proj`, we have to use a separate array:
`cont_list_ssh`. This is maybe for the best because the component
`area` of `cont_list_proj` was not defined.

Instead of corner.

Pass `corner_proj` instead of corner to `mean_speed`, avoiding a
repeated computation.

Avoiding a repeated computation.

Note that, as each shapefile should have an associated DBF file with
at least one field, we choose to put the SSH field in `cont_list_proj`
and the speed field in `cont_list`.

Make `cont_list` a polyline and `cont_list_proj` an SSH contour,
instead of vice-versa. The motivation is clarity in `get_1_outerm`: we
only define `cont_list` at the end.

Transmit projection coordinates of contour to `mean_speed`.

Lionel GUEZ authored 8 months ago and GUEZ Lionel committed 8 months ago

Transmit `cont_list_proj` from `get_1_outerm` to `set_max_speed`.

Lionel GUEZ authored 9 months ago and GUEZ Lionel committed 8 months ago

Procedure `good_contour` now takes input in projection coordinates and
returns a contour in projection coordinates. The dummy argument step
of `good_contour` is thus removed.

Downgrade `sort_ssh` from argument of procedure `complete_ssh` to
local variable. `sort_ssh` is not used any longer in procedure
`set_max_speed` since commit 4a64f87d.

No more preprocessor directive in the file.

This is not very useful, now that there is the test on
`write_cont_list`. The test on `write_cont_list` should not be a
performance penalty.

Since we now have speed in the shapefile `cont_list`.

Move output of `cont_list` from `set_contours` to `set_max_speed`. The
advantage is that we will be able to add the speed to the shapefile.

Split dummy argument `e` of `set_max_speed` into relevant components.
Motivation: make appear clearly input and output.

Bug fix: manage absence of a good contour within the outermost
contour.

Move assignment to `e%max_speed` out of the alternative, to make it
just a little clearer.

Only for program `test_set_max_speed`.

Because we are going to add a preprocessor directive.

Complete the SSH sampling between `innermost_level_2` and
`outermost_contour`, and find associated contours in `set_max_speed`.