diff --git a/Inst_eddies/get_1_outerm.f90 b/Inst_eddies/get_1_outerm.f90 index 5aeb394c5e5640436777d41ab1dafda8a65f1f92..cd7279ec57cc99352aac644dfe649d7460f103ee 100644 --- a/Inst_eddies/get_1_outerm.f90 +++ b/Inst_eddies/get_1_outerm.f90 @@ -119,6 +119,7 @@ contains corner_whole, step) test_n_points: if (.not. cont_list_proj(1)%closed) then + ! cont_list_proj(1)%n_points == 0 out_cont = null_ssh_contour() else test_n_points n_cont = 1 @@ -134,6 +135,7 @@ contains corner_whole, step) if (cont_list_proj(2)%closed) then + ! cont_list_proj(2)%n_points /= 0 ! This can only happen if there are degenerate extrema ! everywhere around the path of contour. So it should ! probably never happen. @@ -152,6 +154,7 @@ contains corner_whole, step) if (cont_list_proj(n_cont + 1)%closed) then + ! cont_list_proj(n_cont + 1)%n_points /= 0 cont_list(n_cont + 1)%ssh = level_try if (n_cont == n_max_cont - 1) then