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.