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

Read name of input SHPC from the command line

Read name of input SHPC for program `test_read_eddy` from the command line.
parent 53080d18
No related branches found
No related tags found
No related merge requests found
......@@ -20,16 +20,13 @@
},
{
"title": "Read_eddy",
"required": [
[
"$tests_old_dir/Extraction_eddies_region_4/SHPC_anti",
"SHPC_old"
]
],
"commands":
[
["mkdir", "SHPC"],
["$build_dir/Overlap/Tests/test_read_eddy"]
[
"$build_dir/Overlap/Tests/test_read_eddy",
"$tests_old_dir/Extraction_eddies_region_4/SHPC_anti"
]
]
},
{
......
program test_read_eddy
! Library:
use jumble, only: get_command_arg_dyn
use derived_types, only: eddy, shpc
use read_eddy_m, only: read_eddy
use shpc_close_m, only: shpc_close
......@@ -12,10 +15,12 @@ program test_read_eddy
type(eddy) e
integer k, eddy_i
TYPE(shpc) hshp
character(len = :), allocatable:: shpc_dir
!-------------------------------------------------------------------------
call shpc_open(hshp, "SHPC_old", pszaccess = "rb")
call get_command_arg_dyn(1, shpc_dir, "Required argument: SHPC-directory")
call shpc_open(hshp, shpc_dir, pszaccess = "rb")
call read_eddy(e, k, eddy_i, hshp, ishape = 0)
CALL shpc_close(hshp)
......
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