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

Bug fix: write to `ishape_last.txt`

parent 7f1ed62e
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
Overlap/Tests/test_read_eddy.f90
+ 1
− 0
View file @ c95f8197
...@@ -31,6 +31,7 @@ program test_read_eddy ...@@ -31,6 +31,7 @@ program test_read_eddy
slice = 0, grid_lon_lat = .true.) slice = 0, grid_lon_lat = .true.)
CALL shpc_close(hshp_in) CALL shpc_close(hshp_in)
call write_eddy(e, hshp_out, k, eddy_i) call write_eddy(e, hshp_out, k, eddy_i)
write(hshp_out%unit, fmt = *) 0
CALL shpc_close(hshp_out) CALL shpc_close(hshp_out)
print *, 'Created shapefiles in SHPC.' print *, 'Created shapefiles in SHPC.'
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment