1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
|
/* Copyright 2019 Edoardo Zoni
*
* This file is part of WarpX.
*
* License: BSD-3-Clause-LBNL
*/
#include "SpectralBaseAlgorithmRZ.H"
#include <cmath>
using namespace amrex;
using namespace amrex::literals;
/**
* \brief Compute spectral divergence of E
*/
void
SpectralBaseAlgorithmRZ::ComputeSpectralDivE (
const int lev,
SpectralFieldDataRZ& field_data,
const std::array<std::unique_ptr<amrex::MultiFab>,3>& Efield,
amrex::MultiFab& divE )
{
using amrex::operator""_rt;
const SpectralFieldIndex& Idx = m_spectral_index;
// Forward Fourier transform of E
field_data.ForwardTransform( lev,
*Efield[0], Idx.Ex,
*Efield[1], Idx.Ey );
field_data.ForwardTransform( lev,
*Efield[2], Idx.Ez, 0 );
// Loop over boxes
for (MFIter mfi(field_data.fields); mfi.isValid(); ++mfi){
Box const & bx = field_data.fields[mfi].box();
// Extract arrays for the fields to be updated
Array4<Complex> fields = field_data.fields[mfi].array();
// Extract pointers for the k vectors
Real const * kr_arr = field_data.getKrArray(mfi).dataPtr();
Real const * modified_kz_arr = modified_kz_vec[mfi].dataPtr();
int const nr = bx.length(0);
int const modes = field_data.n_rz_azimuthal_modes;
const int n_fields = m_spectral_index.n_fields;
// Loop over indices within one box
ParallelFor(bx, modes,
[=] AMREX_GPU_DEVICE(int i, int j, int /*k*/, int mode) noexcept
{
int const ic1 = Idx.Ex + mode*n_fields;
int const ic2 = Idx.Ey + mode*n_fields;
int const ic3 = Idx.Ez + mode*n_fields;
// Shortcuts for the components of E
Complex const Ep = fields(i,j,0,ic1);
Complex const Em = fields(i,j,0,ic2);
Complex const Ez = fields(i,j,0,ic3);
// k vector values
int const ir = i + nr*mode;
Real const kr = kr_arr[ir];
Real const kz = modified_kz_arr[j];
Complex const I = Complex{0._rt,1._rt};
// div(E) in Fourier space
int const ic = Idx.divE + mode*n_fields;
fields(i,j,0,ic) = kr*(Ep - Em) + I*kz*Ez;
});
}
// Backward Fourier transform
field_data.BackwardTransform( lev, divE, Idx.divE, 0 );
}
|
