diff --git a/Inst_eddies/Tests/CMakeLists.txt b/Inst_eddies/Tests/CMakeLists.txt index 1f29807ab145dad8b766b3f0518062c964da817d..b0bbb0832312ba9669a49a5fa007b8acb7fb659d 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 351c735703789621a285cf4310222e43e5743550..ded0c1cb7084c1489b3fcd9ac0e49ea8a3f854ad 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.)