diff --git a/Inst_eddies/Tests/test_set_max_speed.f90 b/Inst_eddies/Tests/test_set_max_speed.f90 index a31e2a1a47407893c58f3d51d31686d91ecd531d..723548308552ab4253e14b35103dc11b0c2655d6 100644 --- a/Inst_eddies/Tests/test_set_max_speed.f90 +++ b/Inst_eddies/Tests/test_set_max_speed.f90 @@ -77,8 +77,6 @@ program test_set_max_speed corner_window = corner + (llc - 1) * step e%extr%coord_proj = nint((e%extr%coord - corner) / step) + 1 - ! Define cont_list: - call shp_open_03(hshp, "cont_list", "rb") call shp_get_info_03(hshp, n_cont) call assert(1 <= n_cont, n_cont <= n_max_cont - 1, &