diff --git a/Inst_eddies/set_max_speed.f90 b/Inst_eddies/set_max_speed.f90 index 263d0e3b30c97715e73cfb2adf9e1b05df9397bf..29c4047bf47e5c38fe163e0419616f67ceb02713 100644 --- a/Inst_eddies/set_max_speed.f90 +++ b/Inst_eddies/set_max_speed.f90 @@ -43,9 +43,10 @@ contains ! speed on speed_cont. type(ssh_contour), intent(inout):: cont_list(:) ! (n_max_cont) - ! Contour list. Defined only for subscripts 1:n_cont. On entry, - ! the outermost contour is element with subscript n_cont. The - ! contours between 1 and i_outer are in monotonic order of + ! Contour list, with points given by longitude and latitude, in + ! radians. Defined only for subscripts 1:n_cont. On entry, the + ! outermost contour is element with subscript n_cont. The contours + ! between 1 and i_outer are in monotonic order of ! ssh. cont_list%area has its default initialization value and the ! order of points in the polyline components (clockwise or ! counter-clockwise) is not specified.