From 52d2cde5b74d1d7981c31822c2adc78239dad1c6 Mon Sep 17 00:00:00 2001
From: Lionel GUEZ <guez@lmd.ens.fr>
Date: Fri, 9 Jun 2023 13:09:49 +0200
Subject: [PATCH] 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.
---
Inst_eddies/Tests/CMakeLists.txt | 2 --
Inst_eddies/set_max_speed.F90 | 2 --
2 files changed, 4 deletions(-)
diff --git a/Inst_eddies/Tests/CMakeLists.txt b/Inst_eddies/Tests/CMakeLists.txt
index 1f29807a..b0bbb083 100644
--- a/Inst_eddies/Tests/CMakeLists.txt
+++ b/Inst_eddies/Tests/CMakeLists.txt
@@ -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
diff --git a/Inst_eddies/set_max_speed.F90 b/Inst_eddies/set_max_speed.F90
index 351c7357..ded0c1cb 100644
--- a/Inst_eddies/set_max_speed.F90
+++ b/Inst_eddies/set_max_speed.F90
@@ -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.)
--
GitLab