Skip to content

Commit

Permalink
Add dummy get_setting() to marbl_interface_class
Browse files Browse the repository at this point in the history
Now that I call get_setting() to determine which MARBL tracer modules are
enabled, the dummy cap also needs this function
  • Loading branch information
mnlevy1981 committed Dec 29, 2023
1 parent d4e9b2d commit c2bd1d0
Showing 1 changed file with 11 additions and 1 deletion.
12 changes: 11 additions & 1 deletion config_src/external/MARBL/marbl_interface.F90
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand All @@ -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, &
Expand Down

0 comments on commit c2bd1d0

Please sign in to comment.