diff --git a/Inst_eddies/get_1_outerm.f90 b/Inst_eddies/get_1_outerm.f90 index 68477fd455ffec0612ae0bb8fc95d48aaf11fb0f..8bfc4ed34ad3672c76c7a31b0ecd0445654e8eb7 100644 --- a/Inst_eddies/get_1_outerm.f90 +++ b/Inst_eddies/get_1_outerm.f90 @@ -56,8 +56,8 @@ contains ! 1, the outermost contour is element with subscript n_cont. The ! contours are in monotonic order of ssh. For i /= n_cont - 1, ! cont_list(i)%area has its default initialization value and the - ! order of points in cont_list(i) (clockwise or counter-clockwise) - ! is not specified. + ! order of points in cont_list(i)%polyline (clockwise or + ! counter-clockwise) is not specified. integer, intent(out):: n_cont ! number of good contours found and stored, 0 <= n_cont <= n_max_cont - 1 diff --git a/Inst_eddies/set_all_contours.f90 b/Inst_eddies/set_all_contours.f90 index 307e9c2610d9545195671d107e564475f41bf792..b6cbc9eeac46eac869d4ba549d40169f2b77dca9 100644 --- a/Inst_eddies/set_all_contours.f90 +++ b/Inst_eddies/set_all_contours.f90 @@ -72,8 +72,8 @@ contains ! 1, the outermost contour is element with subscript n_cont. The ! contours are in monotonic order of ssh. If i /= n_cont - 1, ! cont_list(i)%area has its default initialization value and the - ! order of points in cont_list(i) (clockwise or counter-clockwise) - ! is not specified. + ! order of points in cont_list(i)%polyline (clockwise or + ! counter-clockwise) is not specified. integer n_cont ! number of good contours found and stored in cont_list, 0 <= diff --git a/Inst_eddies/set_max_speed.f90 b/Inst_eddies/set_max_speed.f90 index 7e1facf64eb8f5d79310bc4ebbb0b85f34b4f27a..5f095ecad09e0c0ed131846e213fe6849377c534 100644 --- a/Inst_eddies/set_max_speed.f90 +++ b/Inst_eddies/set_max_speed.f90 @@ -32,9 +32,10 @@ contains ! 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 - ! ssh. For i /= i_outer, has its default initialization value and - ! the order of points in cont_list(i) (clockwise or - ! counter-clockwise) is not specified. + ! ssh. For i /= i_outer, cont_list(i)%area has its default + ! initialization value and the order of points in + ! cont_list(i)%polyline (clockwise or counter-clockwise) is not + ! specified. integer, intent(inout):: n_cont ! Number of good contours found and stored in cont_list. On entry,