Commit cf76558e authored by Jorn Bruggeman's avatar Jorn Bruggeman
Browse files

look up conserved quantity components by standard variable

parent 3fd9029a
......@@ -2266,12 +2266,12 @@ contains
consvar%path = trim(consvar%standard_variable%name)
select type (standard_variable => consvar%standard_variable)
class is (type_universal_standard_variable)
consvar%target => self%root%find_object(trim(standard_variable%name))
consvar%target => get_variable_by_standard_variable(self, standard_variable%in_interior())
if (.not. associated(consvar%target)) consvar%target => self%root%find_object('zero')
_ASSERT_(associated(consvar%target), 'classify_variables', 'Conserved quantity ' // trim(standard_variable%name) // ' was not created')
consvar%target_hz => self%root%find_object(trim(standard_variable%name) // '_at_interfaces')
_ASSERT_(associated(consvar%target), 'classify_variables', 'Conserved quantity ' // trim(standard_variable%name) // ' not found in interior.')
consvar%target_hz => get_variable_by_standard_variable(self, standard_variable%at_interfaces())
if (.not. associated(consvar%target_hz)) consvar%target_hz => self%root%find_object('zero_hz')
_ASSERT_(associated(consvar%target_hz), 'classify_variables', 'Conserved quantity ' // trim(standard_variable%name) // '_at_interfaces was not created')
_ASSERT_(associated(consvar%target_hz), 'classify_variables', 'Conserved quantity ' // trim(standard_variable%name) // ' not found at interfaces.')
end select
standard_variable_node => standard_variable_node%next
end do
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment