write_lowmach_debug_scalar Subroutine

   subroutine write_lowmach_debug_scalar(unit_id, mesh, flow, fields, transport, name)
      integer, intent(in) :: unit_id
      type(mesh_t), intent(in) :: mesh
      type(flow_mpi_t), intent(in) :: flow
      type(flow_fields_t), intent(in) :: fields
      type(transport_properties_t), intent(in) :: transport
      character(len=*), intent(in) :: name

      integer :: c
      real(rk) :: value

      write(unit_id,'(a)') '        <DataArray type="Float64" Name="' // trim(name) // '" format="ascii">'
      do c = 1, mesh%ncells
         if (.not. flow%owned(c)) cycle
         value = lowmach_debug_value(mesh, fields, transport, c, trim(name))
         write(unit_id,'(es24.16)') value
      end do
      write(unit_id,'(a)') '        </DataArray>'

   end subroutine write_lowmach_debug_scalar