Mercurial > repos > public > sbplib

comparison +grid/boundaryOptimizedCurvilinear.m @ 1329:7df63b17e078 feature/D2_boundary_opt

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add support for boundary optimized grids in DefCurvilinear, and add boundaryOptimizedCurvilinear for constructing a curvilinear grid with boundary optimized grid point placement.
author Vidar Stiernström <vidar.stiernstrom@it.uu.se>
date Mon, 14 Feb 2022 14:55:29 +0100
parents
children
comparison
equal deleted inserted replaced
1328:3a286d2d1939 1329:7df63b17e078
1 % Creates a curvilinear grid of dimension length(m).
2 % over the logical domain xi_lim, eta_lim, ...
3 % The grid point distribution is based on the boundary
4 % optimized SBP operators, passed as arguments, order
5 % and opt.
6 % Examples:
7 % g = grid.boundaryOptimizedCurvilinear(mapping, [mx, my], xlim, ylim, order, opt)
8 % g = grid.boundaryOptimizedCurvilinear(mapping, [10, 15], {0,1}, {0,2}, 4) - defaults to 'accurate' stencils
9 % g = grid.boundaryOptimizedCurvilinear(mapping, [10, 15], {0,1}, {0,2}, 4, 'minimal')
10 function g = boundaryOptimizedCurvilinear(mapping, m, varargin)
11 n = length(m);
12 % TODO: The input parameter check is also present in boundaryOptimizedGrid.m,
13 % Consider refactoring it.
14
15 % Check that parameters matches dimensions
16 matchingParams = false;
17 if length(varargin) == n+1 % Minimal number of arguments
18 matchingParams = iscell([varargin{1:n}]) && ...
19 isfloat([varargin{n+1}]);
20 elseif length(varargin) == n+2 % Stencil options supplied
21 matchingParams = iscell([varargin{1:n}]) && ...
22 isfloat([varargin{n+1}]) && ...
23 ischar([varargin{n+2}]);
24 end
25 assert(matchingParams,'grid:boundaryOptimizedCurvilinear:NonMatchingParameters','The number of parameters per dimensions do not match.');
26
27 % Check that stencil options are passed correctly (if supplied)
28 if length(varargin) == n+2 % Stencil options supplied
29 availabe_opts = ["Accurate","accurate","A","acc","Minimal","minimal","M","min"];
30 assert(any(varargin{n+2} == availabe_opts), ...
31 'grid:boundaryOptimizedCurvilinear:InvalidOption',"The operator option must be 'accurate' or 'minimal.'");
32 else %If not passed, populate varargin with default option 'accurate'
33 varargin(n+2) = {'accurate'};
34 end
35
36 % Specify generating function
37 switch varargin{n+2}
38 case {'Accurate','accurate','A','acc'}
39 gridgenerator = @sbp.grid.accurateBoundaryOptimizedGrid;
40 case {'Minimal','minimal','M','min'}
41 gridgenerator = @sbp.grid.minimalBoundaryOptimizedGrid;
42 end
43
44 X = {};
45 h = [];
46 for i = 1:n
47 try
48 [X{i},h(i)] = gridgenerator(varargin{i},m(i),varargin{n+1});
49 catch exception % Propagate any errors in the grid generation functions.
50 msgText = getReport(exception);
51 error('grid:boundaryOptimizedCurvilinear:InvalidParameter',msgText)
52 end
53 end
54
55 g = grid.Curvilinear(mapping, X{:});
56 g.logic.h = h;
57 end