add_registry_entry() can be private

it is called from create_registry, which is already in the marbl_output_for_GCM_registry_type class
mnlevy1981 · Feb 22, 2024 · 03fa250 · 03fa250
1 parent e23e71e
commit 03fa250
Showing 1 changed file with 2 additions and 2 deletions.
diff --git 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
 
  !*****************************************************************************