fv_operators_conv_implicit_engquist_osher.m

Go to the documentation of this file.

function [L_I_conv,bdir_I_conv] = fv_operators_conv_implicit_engquist_osher(varargin)
%function [L_I_conv,bdir_I_conv] = fv_operators_conv_explicit_engquist_osher(...
%                                   model,model_data[,U,NU_ind])
% computes convection contribution to finite volume time evolution matrices,
% <b> or their Frechet derivative </b>
%
%% Return values:
%  L_I_conv : sparse matrix `L_{\text{eo}}`
%  bdir_I_conv : offset vector `b_{\text{eo}}`

% Bernard Haasdonk 13.7.2006

% determine affine_decomposition_mode as integer
model = varargin{1};
decomp_mode = model.decomp_mode;

% switch matrix of explicit discretization
if decomp_mode == 2
  [L_I_conv,bdir_I_conv] = ...
      fv_operators_conv_explicit_engquist_osher(varargin{:});
  L_I_conv = L_I_conv;
elseif decomp_mode == 1
  [L_I_conv,bdir_I_conv] = fv_operators_conv_explicit_engquist_osher(varargin{:});
else
  error('should not be required!');
end;