Polish

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