Polish

Inst_eddies/set_all_extr.f90

@@ -7,7 +7,9 @@ contains
   subroutine set_all_extr(s, step, periodic, ssh, corner)
 
     ! This procedures finds all the extrema of ssh. Not a function
-    ! because "s" is not completely defined.
+    ! because "s" is not completely defined. It would be difficult to
+    ! replace argument "s" by arguments corresponding to the defined
+    ! components of "s" because of allocations.
 
     use derived_types, only: snapshot
     use input_ssh_m, only: max_radius

Inst_eddies/set_contours.f90

@@ -26,7 +26,7 @@ contains
     ! Average of azimuthal speed on out_cont or speed_cont, in m
     ! s-1. Positive means counterclockwise circulation. If speed_cont
     ! is not a null ssh contour then max_speed is the speed on
-    ! speed_cont.
+    ! speed_cont. Not defined if out_cont is not closed.
 
     logical, intent(in):: cyclone
     type(extremum), intent(in):: extr