From eb6a56c84ec72c77620c39a615fb56d4be701e80 Mon Sep 17 00:00:00 2001 From: Claire Carouge Date: Fri, 17 Jan 2025 15:42:29 +1100 Subject: [PATCH] Fix for check_ranges() needs a rethink. --- src/offline/cable_checks.F90 | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/src/offline/cable_checks.F90 b/src/offline/cable_checks.F90 index be664aaf4..dbe25e5c3 100644 --- a/src/offline/cable_checks.F90 +++ b/src/offline/cable_checks.F90 @@ -205,8 +205,7 @@ MODULE cable_checks_module TYPE(ranges_type), SAVE :: ranges - IF (cable_user%GW_MODEL) ranges%sucs = [30., 800.] ! MMY the range [-0.8, -0.03] doesn't suit Mark Decker's version - + INTERFACE check_range MODULE PROCEDURE :: check_range_d1 MODULE PROCEDURE :: check_range_d2