diff --git a/Inst_eddies/get_1_outerm.f90 b/Inst_eddies/get_1_outerm.f90 index 1ae86583a0c5e11859f0fcc79bed14cbbcb9db19..c519f30a4bbf503899a9813355ab4ef35053d782 100644 --- a/Inst_eddies/get_1_outerm.f90 +++ b/Inst_eddies/get_1_outerm.f90 @@ -48,10 +48,11 @@ contains type(ssh_contour), intent(out):: out_cont type(ssh_contour), intent(out):: cont_list(:) ! (n_max_cont) - ! Contour list. The outermost contour is element n_cont. The + ! Contour list. Defined only for subscripts 1:n_cont. If n_cont >= + ! 1, the outermost contour is element with subscript n_cont. The ! contours are in monotonic order of ssh. If n_cont >= 2, - ! cont_list(:n_cont - 1)%area is missing and cont_list(:n_cont - - ! 1) is not oriented. + ! cont_list(:n_cont - 1)%area are missing and cont_list(:n_cont - + ! 1) are not oriented. integer, intent(out):: n_cont ! number of good contours found and stored, >= 0 diff --git a/Inst_eddies/set_all_contours.f90 b/Inst_eddies/set_all_contours.f90 index f4f205e453425bf34d59a97065d2d056346f7d2d..70693536452bbc39fc4dcd063d5568716ce9498f 100644 --- a/Inst_eddies/set_all_contours.f90 +++ b/Inst_eddies/set_all_contours.f90 @@ -69,10 +69,11 @@ contains integer, parameter:: n_max_cont = 31 type(ssh_contour) cont_list(n_max_cont) - ! Contour list. The outermost contour is element with subscript - ! n_cont. The contours are in monotonic order of ssh. If n_cont >= - ! 2, cont_list(:n_cont - 1)%area is missing and cont_list(:n_cont - ! - 1) is not oriented. + ! Contour list. Defined only for subscripts 1:n_cont. If n_cont >= + ! 1, the outermost contour is element with subscript n_cont. The + ! contours are in monotonic order of ssh. If n_cont >= 2, + ! cont_list(:n_cont - 1)%area are missing and cont_list(:n_cont - + ! 1) are not oriented. integer n_cont ! number of good contours found and stored in cont_list, >= 0 diff --git a/Trajectories/Tests/tests.json b/Trajectories/Tests/tests.json index b401190d63ccf3161ee33b556d15e13d508291a9..562d8c9e1d1ed1fb6e32b7974f5442867ccf6dc2 100644 --- a/Trajectories/Tests/tests.json +++ b/Trajectories/Tests/tests.json @@ -59,7 +59,7 @@ ] }, "Greece_cost_function": { - "description": "This is a case where the speed is not defined on a whole segment.", + "description": "This is a case where the speed is not defined on a whole segment. It can be seen in the properties first_av_ros or last_av_ros.", "command": [ "$src_dir/Trajectories/cost_function.py", "$tests_old_dir/Greece/SHPC",