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
 
   !*****************************************************************************