OilfieldToolsNet/opm-core
4
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Adding test script for generating grdecl spec with some compelxity.

Browse Source
This commit is contained in:
Jostein R. Natvig 2009-06-18 16:13:49 +00:00
parent bf34f4d1f7
commit 52bb1d6cae
1 changed files with 60 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

60
makeTest.m Normal file
View File

@ -0,0 +1,60 @@
function g = makeTest(dims, drop)
physDims = [1, 1, 1];
g.cartDims = reshape(dims, 1, []);
%% Make pillars
[X,Y,Z] = ndgrid(linspace(0, physDims(1), dims(1) + 1), ...
linspace(0, physDims(2), dims(2) + 1), ...
linspace(0, physDims(3), 2));
n = prod(dims(1:2) + 1);
lines = zeros([n, 6]);
lines(:, [1, 4]) = reshape(X(:,:,[1, end]), [n, 2]);
lines(:, [2, 5]) = reshape(Y(:,:,[1, end]), [n, 2]);
lines(:, [3, 6]) = reshape(Z(:,:,[1, end]), [n, 2]);
g.COORD = reshape(lines.', [], 1);
layer_thickness = @(x, y) 0.2+0.4*sin(6*pi*(x+rand)).*sin(2*pi*(y+rand));
bottom_layer = @(x, y) 0.5+0.02*sin(2*pi*x).*sin(2*pi*y);
[X, Y, Z] = ndgrid(linspace(0, physDims(1), dims(1) + 1), ...
linspace(0, physDims(2), dims(2) + 1), ...
zeros(dims(3)+1, 1));
Z(:,:,1) = bottom_layer (X(:,:,1) ./ physDims(1), Y(:,:,1) ./ physDims(2));
for k = 2 : dims(3) + 1,
xi = X(:,:,k) ./ physDims(1);
eta = Y(:,:,k) ./ physDims(2);
Z(:,:,k) = Z(:,:,k-1) + max(0, layer_thickness(xi, eta)*physDims(3)/dims(3));
end
%% Assign z-coordinates
%ind = @(d) [1, rldecode(2:dims(d), repmat(2,[1,dims(d)-1]), 2), dims(d)+1];
ind = @(d) [1, kron((2:dims(d)), [1,1]), dims(d)+1];
z = Z(ind(1), ind(2), ind(3));
%% Add fault
%if nargin > 1, z(end/2+1:end,:,:) = z(end/2+1:end,:,:) + drop; end
if nargin > 1, z(end/2+1:end,[1:2:end,end],:) =bsxfun(@plus, z(end/2+1:end,[1:2:end,end],:) , drop(linspace(0,physDims(2), dims(2)+1)));end
if nargin > 1, z(end/2+1:end,2:2:end-1,:) =z(end/2+1:end,3:2:end,:);end
g.ZCORN = z(:);
%% Assign active cells
actnum = reshape(ones(dims, 'int32'), [], 1);
%[i,j,k] = ndgrid(1:dims(1), 1:dims(2), 1:dims(3));
%actnum((i-dims(1)/2).^2+(j-dims(2)/2).^2> 4*min(dims(1)/2, dims(2)/2).^2)=0;
z = reshape(g.ZCORN, 2*g.cartDims);
%actnum(z(1:2:end, 1:2:end,1:2:end)<0.5)=0;
ix = max(1, round(rand(1,1)*prod(dims)));
actnum(ix)=0;
g.ACTNUM = actnum(:);