diff --git a/Overlap/Tests/test_read_eddy.f90 b/Overlap/Tests/test_read_eddy.f90 index fe234e3ac6720c57ceb45f27cf0ee55ccb808307..19bbeb692880b7a30e806212c5599e96ec5fd038 100644 --- a/Overlap/Tests/test_read_eddy.f90 +++ b/Overlap/Tests/test_read_eddy.f90 @@ -17,18 +17,19 @@ program test_read_eddy integer:: ishape = 0 TYPE(shpc_slice_handler) hshp_in, hshp_out character(len = :), allocatable:: shpc_dir - namelist /main_nml/ ishape + logical:: cyclone = .false., grid_lon_lat = .true. + namelist /main_nml/ ishape, cyclone, grid_lon_lat !------------------------------------------------------------------------- call get_command_arg_dyn(1, shpc_dir, "Required argument: SHPC-directory") print *, "Enter namelist main_nml." read(unit = *, nml = main_nml) - call shpc_open(hshp_in, shpc_dir, cyclone = .false., slice = 0, & + call shpc_open(hshp_in, shpc_dir, cyclone = cyclone, slice = 0, & pszaccess = "rb") call read_eddy(e, k, eddy_i, hshp_in, ishape) call shpc_create(hshp_out, shpc_dir = "SHPC", cyclone = hshp_in%cyclone, & - slice = 0, grid_lon_lat = .true.) + slice = 0, grid_lon_lat = grid_lon_lat) CALL shpc_close(hshp_in) call write_eddy(e, hshp_out, k, eddy_i) write(hshp_out%unit, fmt = *) 0