Create a new figure in function `plot_distr_funct` if ax is None.

`config_nml` should be the same for `test_get_1_outerm` and
`test_set_max_speed`.

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.

We are going to read `cont_list` from the results of
`test_get_1_outerm` so we want the value of `n_max_cont` to be the
same.

We are going to need i for something else.

Remove unused procedures and programs `inside_4`,
`max_speed_contour_ssh`, `test_inside_4`,
`test_max_speed_contour_ssh`. Unused since commit 99e2e1b1.

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

From `set_all_contours`, pass `n_cont` and the whole array `cont_list`
to `set_max_speed`, because we are going to define new elements into
this array in `set_max_speed`. `cont_list` in `set_max_speed` becomes
`intent(inout)`.

Because `cont_list` is going to become `intent(inout)`.

Follow commit d540a1f3.

Remove intermediary variables `first_term`, `second_term`, `third_term`.

We keep ssh because we will need it if we call `good_contour`.

Remove dummy argument `ind_targ_extr` of procedure `set_max_speed`,
not used any longer.

Remove component radius4 of derived type eddy and field radius4 of
`outermost_contour.dbf`. They are not used any longer.

Since we now have the test `SHPC_degenerate`.