Polish

Inst_eddies/set_max_speed.F90

@@ -35,10 +35,10 @@ contains
     type(ssh_contour), intent(out):: speed_cont
 
     real, intent(out):: max_speed
-     ! Average of azimuthal speed on cont_list(i_outer) 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.
+    ! Average of azimuthal speed on cont_list(i_outer) 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.
 
     type(ssh_contour), intent(inout):: cont_list(:) ! (n_max_cont)
     ! Contour list. Defined only for subscripts 1:n_cont. On entry,