Mercurial > repos > public > sbplib_julia

comparison src/SbpOperators/volumeops/volume_operator.jl @ 1049:3bb94ce74697 feature/variable_derivatives

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge default
author Jonatan Werpers <jonatan@werpers.com>
date Wed, 23 Mar 2022 12:54:45 +0100
parents e79debd10f7d 1ba8a398af9c
children 5a3281429a48
comparison
equal deleted inserted replaced
1048:86aa69ad3304 1049:3bb94ce74697
4 Creates a volume operator on a `Dim`-dimensional grid acting along the 4 Creates a volume operator on a `Dim`-dimensional grid acting along the
5 specified coordinate `direction`. The action of the operator is determined by 5 specified coordinate `direction`. The action of the operator is determined by
6 the stencils `inner_stencil` and `closure_stencils`. When `Dim=1`, the 6 the stencils `inner_stencil` and `closure_stencils`. When `Dim=1`, the
7 corresponding `VolumeOperator` tensor mapping is returned. When `Dim>1`, the 7 corresponding `VolumeOperator` tensor mapping is returned. When `Dim>1`, the
8 returned operator is the appropriate outer product of a one-dimensional 8 returned operator is the appropriate outer product of a one-dimensional
9 operators and `IdentityMapping`s, e.g for `Dim=3` the volume operator in the 9 operators and `IdentityTensor`s, e.g for `Dim=3` the volume operator in the
10 y-direction is `I⊗op⊗I`. 10 y-direction is `I⊗op⊗I`.
11 """ 11 """
12 function volume_operator(grid::EquidistantGrid, inner_stencil, closure_stencils, parity, direction) 12 function volume_operator(grid::EquidistantGrid, inner_stencil, closure_stencils, parity, direction)
13 #TODO: Check that direction <= Dim? 13 #TODO: Check that direction <= Dim?
14 14
15 # Create 1D volume operator in along coordinate direction 15 # Create 1D volume operator in along coordinate direction
16 op = VolumeOperator(restrict(grid, direction), inner_stencil, closure_stencils, parity) 16 op = VolumeOperator(restrict(grid, direction), inner_stencil, closure_stencils, parity)
17 # Create 1D IdentityMappings for each coordinate direction 17 # Create 1D IdentityTensors for each coordinate direction
18 one_d_grids = restrict.(Ref(grid), Tuple(1:dimension(grid))) 18 one_d_grids = restrict.(Ref(grid), Tuple(1:dimension(grid)))
19 Is = IdentityMapping{eltype(grid)}.(size.(one_d_grids)) 19 Is = IdentityTensor{eltype(grid)}.(size.(one_d_grids))
20 # Formulate the correct outer product sequence of the identity mappings and 20 # Formulate the correct outer product sequence of the identity mappings and
21 # the volume operator 21 # the volume operator
22 parts = Base.setindex(Is, op, direction) 22 parts = Base.setindex(Is, op, direction)
23 return foldl(⊗, parts) 23 return foldl(⊗, parts)
24 end 24 end
25 25
26 """ 26 """
27 VolumeOperator{T,N,M,K} <: TensorOperator{T,1} 27 VolumeOperator{T,N,M,K} <: TensorOperator{T,1}
28 Implements a one-dimensional constant coefficients volume operator 28 Implements a one-dimensional constant coefficients volume operator
29 """ 29 """
30 struct VolumeOperator{T,N,M,K} <: TensorMapping{T,1,1} 30 struct VolumeOperator{T,N,M,K} <: LazyTensor{T,1,1}
31 inner_stencil::Stencil{T,N} 31 inner_stencil::Stencil{T,N}
32 closure_stencils::NTuple{M,Stencil{T,K}} 32 closure_stencils::NTuple{M,Stencil{T,K}}
33 size::NTuple{1,Int} 33 size::NTuple{1,Int}
34 parity::Parity 34 parity::Parity
35 end 35 end