diff --git a/src/marbl_interface_public_types.F90 b/src/marbl_interface_public_types.F90 index 09925ac1..8b577a4f 100644 --- a/src/marbl_interface_public_types.F90 +++ b/src/marbl_interface_public_types.F90 @@ -135,8 +135,8 @@ module marbl_interface_public_types type, public :: marbl_output_for_GCM_registry_type type(marbl_output_for_GCM_linked_list_type), pointer :: registered_outputs contains - procedure, public :: create_registry - procedure, public :: add_registry_entry + procedure, public :: create_registry + procedure, private :: add_registry_entry end type marbl_output_for_GCM_registry_type !*****************************************************************************