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

Polish

parent eb979ef4
No related branches found
No related tags found
No related merge requests found
......@@ -56,6 +56,8 @@ program test_read_snapshot
copy = merge(dist_lim, 0, periodic)
call shpc_open(hshp, trim(shpc_dir), pszaccess = "rb")
! main_nml:
k = hshp%d0
write(unit = error_unit, nml = main_nml)
write(unit = error_unit, fmt = *) "Enter namelist main_nml."
......
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