diff --git a/Inst_eddies/Tests/test_mean_speed.f90 b/Inst_eddies/Tests/test_mean_speed.f90 index 7f7dc18dc9d57f30f782678819e8c811cbc88975..d82c6bbdd5b073ed3c8210fa2776702a332f84af 100644 --- a/Inst_eddies/Tests/test_mean_speed.f90 +++ b/Inst_eddies/Tests/test_mean_speed.f90 @@ -1,7 +1,5 @@ program test_mean_speed - use, intrinsic:: ISO_FORTRAN_ENV - ! Libraries: use gpc_f, only: shp_read_pol, polygon use jumble, only: get_command_arg_dyn @@ -38,8 +36,8 @@ program test_mean_speed !--------------------------------------------------------------------- call get_command_arg_dyn(1, contour_filename, "Required argument: shapefile") - write(unit = error_unit, nml = main_nml) - write(unit = error_unit, fmt = *) "Enter namelist main_nml." + write(unit = *, nml = main_nml) + print *, "Enter namelist main_nml." read(unit = *, nml = main_nml) write(unit = *, nml = main_nml)