diff --git a/Overlap/Tests/short_tests.json b/Overlap/Tests/short_tests.json index 9c6da643fee19a9f628ac2ed1535e28444dd2eaf..0d10ece872f1f68cc5d3f744cc1aa00fd4c541db 100644 --- a/Overlap/Tests/short_tests.json +++ b/Overlap/Tests/short_tests.json @@ -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" + ] ] }, { diff --git a/Overlap/Tests/test_read_eddy.f90 b/Overlap/Tests/test_read_eddy.f90 index abfcfbddc9688e02026e786c269a954268f116fa..5c54728434ae339c31c85cdfc61929aea04ee48d 100644 --- a/Overlap/Tests/test_read_eddy.f90 +++ b/Overlap/Tests/test_read_eddy.f90 @@ -1,5 +1,8 @@ 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)