From c2bd1d0c03de2563f0de31279301f3bfb05f4f2c Mon Sep 17 00:00:00 2001 From: Michael Levy Date: Fri, 29 Dec 2023 14:24:12 -0700 Subject: [PATCH] Add dummy get_setting() to marbl_interface_class Now that I call get_setting() to determine which MARBL tracer modules are enabled, the dummy cap also needs this function --- config_src/external/MARBL/marbl_interface.F90 | 12 +++++++++++- 1 file changed, 11 insertions(+), 1 deletion(-) diff --git a/config_src/external/MARBL/marbl_interface.F90 b/config_src/external/MARBL/marbl_interface.F90 index a2670c768d..9cea735317 100644 --- a/config_src/external/MARBL/marbl_interface.F90 +++ b/config_src/external/MARBL/marbl_interface.F90 @@ -34,6 +34,7 @@ module marbl_interface real, allocatable :: interior_tendencies(:,:) !< dummy tendencies contains procedure, public :: put_setting !< dummy put_setting routine + procedure, public :: get_setting !< dummy get_setting routine procedure, public :: init !< dummy routine procedure, public :: surface_flux_compute !< dummy surface flux routine procedure, public :: interior_tendency_compute !< dummy interior tendency routine @@ -55,7 +56,16 @@ subroutine put_setting(self, str_in) call MOM_error(FATAL, error_msg) end subroutine put_setting - !> Dummy version of MARBL's init() function + !> Dummy version of MARBL's get_setting() function + subroutine get_setting(self, str_in, log_out) + class(marbl_interface_class), intent(in) :: self + character(len=*), intent(in) :: str_in + logical, intent(out) :: log_out + + call MOM_error(FATAL, error_msg) + end subroutine get_setting + + !> Dummy version of MARBL's init() function subroutine init(self, & gcm_num_levels, & gcm_num_PAR_subcols, &