Safety checkin, no idea what I was doing

gold2718 · Oct 16, 2023 · 49ef90b · 49ef90b
1 parent bcd40e0
commit 49ef90b
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 3 deletions.
diff --git 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
@@ -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.