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

Remove DEBUG preprocessor condition

This is not very useful, now that there is the test on
`write_cont_list`. The test on `write_cont_list` should not be a
performance penalty.
parent 186755cb
No related branches found
No related tags found
No related merge requests found
......@@ -37,7 +37,6 @@ target_link_libraries(test_set_max_speed PRIVATE Geometry::geometry
Numer_Rec_95::numer_rec_95 NetCDF95::netcdf95
Shapelib_03::shapelib_03 Contour_531::contour_531 Jumble::jumble
NetCDF_Fortran::netcdff gpc_f)
target_compile_definitions(test_set_max_speed PRIVATE $<$<CONFIG:Debug>:DEBUG>)
# test_complete_ssh
add_executable(test_complete_ssh test_complete_ssh.f90)
......@@ -52,7 +51,6 @@ add_executable(examine_eddy examine_eddy.f90 cont_list.f90
target_link_libraries(examine_eddy PRIVATE Contour_531::contour_531
Jumble::jumble Shapelib_03::shapelib_03 NetCDF95::netcdf95 gpc_f
Geometry::geometry Numer_Rec_95::numer_rec_95)
target_compile_definitions(examine_eddy PRIVATE $<$<CONFIG:Debug>:DEBUG>)
foreach(my_target IN ITEMS test_get_1_outerm test_good_contour test_mean_speed
test_nearby_extr test_local_extrema test_set_max_speed test_complete_ssh
......
......@@ -101,7 +101,6 @@ contains
end if
end do
#ifdef DEBUG
if (write_cont_list) then
do i = 1, n_cont
call shp_append_object_03(ishape, hshp_cont_list, shpt_polygon, &
......@@ -119,7 +118,6 @@ contains
end if
end do
end if
#endif
i = maxloc(abs(speed), dim = 1, mask = .not. IEEE_IS_NAN(speed))
! (The speed may be NaN when we are near land.)
......
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