Skip to content
Snippets Groups Projects
Commit d69cba4e authored by Lionel GUEZ's avatar Lionel GUEZ
Browse files

Move assignment to `e%max_speed`

Move assignment to `e%max_speed` out of the alternative, to make it
just a little clearer.
parent 97e76b60
No related branches found
No related tags found
No related merge requests found
......@@ -92,15 +92,17 @@ contains
! All speed values are NaN
e%speed_cont = null_ssh_contour()
e%max_speed = missing_speed
else if (i == i_outer) then
! Maximum speed on the outermost contour
e%speed_cont = null_ssh_contour()
e%max_speed = speed(i)
else
e%speed_cont = cont_list(i)
e%speed_cont%area = spher_polyline_area(e%speed_cont%polyline)
call ccw_orient(e%speed_cont)
e%max_speed = speed(i)
if (i == i_outer) then
! Maximum speed on the outermost contour
e%speed_cont = null_ssh_contour()
else
e%speed_cont = cont_list(i)
e%speed_cont%area = spher_polyline_area(e%speed_cont%polyline)
call ccw_orient(e%speed_cont)
end if
end if
end subroutine set_max_speed
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment