Polish

Inst_eddies/get_1_outerm.f90

@@ -65,7 +65,7 @@ contains
     ! number of good contours found and stored, 0 <= n_cont <= n_max_cont - 1
 
     logical, intent(in):: cyclone
-    real, intent(in):: coord_extr(:) ! (2)
+    real, intent(in):: coord_extr(:) ! (2) longitude and latitude, in rad
 
     real, intent(in):: innermost_level_2
     ! ssh level of the innermost contour to consider around the target
@@ -79,7 +79,8 @@ contains
     real, intent(in):: ssh(:, :) ! in m
 
     real, intent(in):: corner(:) ! (2)
-    ! longitude and latitude corresponding to ssh(1,1), in rad
+    ! Longitude and latitude corresponding to ssh(1,1), in rad. A
+    ! priori, this is not the corner of the grid of the NetCDF file.
 
     real, intent(in):: step(:) ! (2)
     ! longitude and latitude steps, in rad

Inst_eddies/good_contour.f90

@@ -13,7 +13,8 @@ contains
     ! procedure returns the first satisfying contour it finds. If such
     ! a contour does not exist, the procedure returns a null
     ! polyline. The order of points in the contour (clockwise or
-    ! counter-clockwise) is not specified.
+    ! counter-clockwise) is not specified. The contour is in
+    ! projection (x, y) coordinates.
 
     ! Libraries:
     use contour_531, only: polyline, find_contours_reg_grid, null_polyline
@@ -26,8 +27,10 @@ contains
     ! zmax.
 
     real, intent(in):: level
-    real, intent(in):: inside_point(:) ! (2)
+    real, intent(in):: inside_point(:) ! (2) (x, y)
+
     real, intent(in), optional:: outside_points(:, :) ! (2, n_out)
+    ! in projection (x, y) coordinates
 
     ! Local:
     type(polyline), allocatable:: contours(:)

Inst_eddies/set_contours.f90

@@ -41,8 +41,10 @@ contains
     real, intent(in), dimension(:, :):: ssh, u, v
     ! sea-surface height, in m, and wind, in m s-1
 
-    real, intent(in):: corner(:) ! (2) longitude and latitude of the
-    ! corner of the grid, in rad
+    real, intent(in):: corner(:) ! (2)
+    ! Longitude and latitude of the corner of the grid, in rad,
+    ! corresponding to ssh(1, 1). A priori, this is not the corner of
+    ! the grid of the NetCDF file.
 
     real, intent(in):: outside_points(:, :) ! (2, :) longitude and
     ! latitude, in rad, of all the significant extrema, except the

Inst_eddies/set_max_speed.f90

@@ -65,7 +65,9 @@ contains
     ! not exclude other extrema.
 
     real, intent(in):: corner(:) ! (2)
-    ! longitude and latitude of the lower left corner of the grid, in rad
+    ! Longitude and latitude of the lower left corner of the grid,
+    ! corresponding to ssh(1, 1), in rad. A priori, this is not the
+    ! corner of the grid of the NetCDF file.
 
     real, intent(in):: step(:) ! (2) longitude and latitude steps, in rad