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

Polish

parent 14c61f38
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
− 2
View file @ ec0fdc1d
......@@ -26,9 +26,8 @@ program test_read_eddy
read(unit = *, nml = main_nml)
call shpc_open(hshp_in, shpc_dir, pszaccess = "rb")
call read_eddy(e, k, eddy_i, hshp_in, ishape)
CALL shpc_close(hshp_in)
call shpc_create(hshp_out, shpc_dir = "SHPC", cyclone = hshp_in%cyclone)
CALL shpc_close(hshp_in)
call write_eddy(e, hshp_out, k, eddy_i)
CALL shpc_close(hshp_out)
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