From 49ef90bbfd19998032dc19ca62c91a75fbe6e313 Mon Sep 17 00:00:00 2001
From: Steve Goldhaber <goldy@ucar.edu>
Date: Mon, 16 Oct 2023 16:08:54 +0200
Subject: [PATCH] Safety checkin, no idea what I was doing

---
 scripts/suite_objects.py          | 9 ++++++---
 test/advection_test/test_host.F90 | 3 +++
 2 files changed, 9 insertions(+), 3 deletions(-)

diff --git a/scripts/suite_objects.py b/scripts/suite_objects.py
index c57411f5..18c914ef 100644
--- a/scripts/suite_objects.py
+++ b/scripts/suite_objects.py
@@ -1747,15 +1747,18 @@ def find_variable(self, standard_name=None, source_var=None,
                 # end if
                 # Loop all the schemes and find this variable's intent (if any)
 # XXgoldyXX: v debug only
-                print(f"XXGg: {standard_name}: {self.phase_type}")
+                print(f"XXGg: ({self.name}) {standard_name}: {self.phase_type}")
 # XXgoldyXX: ^ debug only
                 for scheme in self.schemes():
 # XXgoldyXX: v debug only
-                    print(f"XXGs: {scheme.name}")
+                    print(f"XXGs: {scheme:name}: {scheme.subroutine_name}")
 # XXgoldyXX: ^ debug only
                     for svar in scheme.variable_list():
                         if svar.get_prop_value('standard_name') == standard_name:
                             sintent = svar.get_prop_value('intent')
+# XXgoldyXX: v debug only
+                            print(f"XXGsf: {svar.get_prop_value('standard_name')}, {sintent}")
+# XXgoldyXX: ^ debug only
                             if sintent == 'in':
                                 intent_in = 'in'
                             elif sintent == 'out':
@@ -1770,7 +1773,7 @@ def find_variable(self, standard_name=None, source_var=None,
                             break
 # XXgoldyXX: v debug only
                         else:
-                            print(f"XXGsn: {svar.get_prop_value('standard_name')}")
+                            print(f"XXGsn: {svar.get_prop_value('standard_name')}, {standard_name}")
 # XXgoldyXX: ^ debug only
                         # end if
                     # end for
diff --git a/test/advection_test/test_host.F90 b/test/advection_test/test_host.F90
index f250f331..11db4523 100644
--- a/test/advection_test/test_host.F90
+++ b/test/advection_test/test_host.F90
@@ -76,6 +76,9 @@ logical function check_list(test_list, chk_list, list_desc, suite_name)
                  trim(suite_name)
          end if
          write(errmsg(len_trim(errmsg)+1:), '(a,i0)') ', should be ', num_items
+!!XXgoldyXX: v debug only
+write(6, '(15(/,a))') (trim(test_list(lindex)), lindex=1,size(test_list))
+!!XXgoldyXX: ^ debug only
          write(6, *) trim(errmsg)
          errmsg = ''
          check_list = .false.