opm-simulators/examples/mrst/sim_simple.m
2013-05-15 10:37:50 +02:00

29 lines
959 B
Matlab

function x = sim_simple(cartDims, physDims, tf, verb)
g = computeGeometry(cartGrid(cartDims, physDims));
rock = struct('perm', repmat(1, [g.cells.num, 1]), ...
'poro', repmat(1, [g.cells.num, 1]));
T = computeTrans(g, rock);
fluid = initSimpleFluid('n' , [ 1, 1], ...
'mu' , [ 1, 30], ...
'rho', [1000, 800]);
gravity reset off
src = addSource([], [1, g.cells.num], [1, -1], 'sat', [ 1, 0 ; 0, 1]);
s0 = [0, 1];
state = incompTPFA(initState(g, [], 0, s0), ...
g, T, fluid, 'src', src, 'matrixoutput', true);
if nargin < 4, verb = false; end
state = implicitTransport(state, g, tf, rock, fluid, ...
'src', src, 'verbose', verb, ...
'nltol', 1e-12);
x = struct('g', g, 'rock', rock, 'T', T, 'fluid', fluid, ...
'src', src, 'state', state);
end