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

Force output on a single line

By explicit formatting.
parent e2d7361c
No related branches found
No related tags found
No related merge requests found
......@@ -87,9 +87,10 @@ program test_local_extrema
'innermost_level'
do i = 1, size(ind_extr, 2)
write(unit, fmt = *) ind_extr(1, i), ind_extr(2, i), cyclone(i), &
longitude(ind_extr(1, i)), latitude(ind_extr(2, i)), &
ssh(ind_extr(1, i), ind_extr(2, i)), innermost_level(i)
write(unit, fmt = "(2(i0, 1x), l1, 1x, 4(g13.6, 1x))") ind_extr(1, i), &
ind_extr(2, i), cyclone(i), longitude(ind_extr(1, i)), &
latitude(ind_extr(2, i)), ssh(ind_extr(1, i), ind_extr(2, i)), &
innermost_level(i)
end do
close(unit)
print *, 'Created file "test_local_extrema.csv".'
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment