From 959707685e2da3a9335d9188f1edc3e3601fc8f3 Mon Sep 17 00:00:00 2001 From: Lionel GUEZ <guez@lmd.ens.fr> Date: Mon, 22 May 2023 21:53:37 +0200 Subject: [PATCH] Change the value of `n_max_cont` 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. --- Inst_eddies/Tests/test_set_max_speed.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Inst_eddies/Tests/test_set_max_speed.f90 b/Inst_eddies/Tests/test_set_max_speed.f90 index eb72d9cd..04881e99 100644 --- a/Inst_eddies/Tests/test_set_max_speed.f90 +++ b/Inst_eddies/Tests/test_set_max_speed.f90 @@ -34,7 +34,7 @@ program test_set_max_speed real corner_window(2) ! longitude and latitude of the window around ! the extremum, in rad - integer, parameter:: n_max_cont = 3 + integer, parameter:: n_max_cont = 31 type(ssh_contour) cont_list(n_max_cont) ! Contour list. The outermost contour is element with subscript -- GitLab