SoftSol.H

Go to the documentation of this file.

/* Copyright 2022-2023 The Regents of the University of California, through Lawrence
 *           Berkeley National Laboratory (subject to receipt of any required
 *           approvals from the U.S. Dept. of Energy). All rights reserved.
 *
 * This file is part of ImpactX.
 *
 * Authors: Chad Mitchell, Axel Huebl
 * License: BSD-3-Clause-LBNL
 */
#ifndef IMPACTX_SOFTSOL_H
#define IMPACTX_SOFTSOL_H
 
#include "particles/ImpactXParticleContainer.H"
#include "particles/integrators/Integrators.H"
#include "mixin/alignment.H"
#include "mixin/pipeaperture.H"
#include "mixin/beamoptic.H"
#include "mixin/lineartransport.H"
#include "mixin/named.H"
#include "mixin/thick.H"
 
#include <ablastr/constant.H>
 
#include <AMReX.H>
#include <AMReX_Extension.H>
#include <AMReX_Math.H>
#include <AMReX_REAL.H>
#include <AMReX_SIMD.H>
#include <AMReX_SmallMatrix.H>
 
#include <cmath>
#include <stdexcept>
#include <tuple>
#include <vector>
 
 
namespace impactx::elements
{
    struct Sol_field_data
    {
       amrex::Vector<amrex::ParticleReal> default_cos_coef = {
             0.350807812299706,
             0.323554693720069,
             0.260320578919415,
             0.182848575294969,
             0.106921016050403,
             4.409581845710694E-002,
            -9.416427163897508E-006,
            -2.459452716865687E-002,
            -3.272762575737291E-002,
            -2.936414401076162E-002,
            -1.995780078926890E-002,
            -9.102893342953847E-003,
            -2.456410658713271E-006,
             5.788233017324325E-003,
             8.040408292420691E-003,
             7.480064552867431E-003,
             5.230254569468851E-003,
             2.447614547094685E-003,
            -1.095525090532255E-006,
            -1.614586867387170E-003,
            -2.281365457438345E-003,
            -2.148709081338292E-003,
            -1.522541739363011E-003,
            -7.185505862719508E-004,
            -6.171194824600157E-007,
             4.842109305036943E-004,
             6.874508102002901E-004,
             6.535550288205728E-004,
             4.648795813759210E-004,
             2.216564722797528E-004,
            -4.100982995210341E-007,
            -1.499332112463395E-004,
            -2.151538438342482E-004,
            -2.044590946652016E-004,
            -1.468242784844341E-004
            };
 
       amrex::Vector<amrex::ParticleReal> default_sin_coef = {
            0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
            0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
            0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
            0, 0, 0, 0, 0
            };
    };

namespace SoftSolenoidData
{
    inline int next_id = 0;

    inline std::map<int, std::vector<amrex::ParticleReal>> h_cos_coef = {};
    inline std::map<int, std::vector<amrex::ParticleReal>> h_sin_coef = {};

    inline std::map<int, amrex::Gpu::DeviceVector<amrex::ParticleReal>> d_cos_coef = {};
    inline std::map<int, amrex::Gpu::DeviceVector<amrex::ParticleReal>> d_sin_coef = {};
 
} // namespace SoftSolenoidData
 
    struct SoftSolenoid
    : public mixin::Named,
      public mixin::BeamOptic<SoftSolenoid>,
      public mixin::LinearTransport<SoftSolenoid>,
      public mixin::Thick,
      public mixin::Alignment,
      public mixin::PipeAperture,
      public amrex::simd::Vectorized<amrex::simd::native_simd_size_particlereal>
    {
        static constexpr auto type = "SoftSolenoid";
        using PType = ImpactXParticleContainer::ParticleType;

        SoftSolenoid (
            amrex::ParticleReal ds,
            amrex::ParticleReal bscale,
            std::vector<amrex::ParticleReal> cos_coef,
            std::vector<amrex::ParticleReal> sin_coef,
            int unit,
            amrex::ParticleReal dx = 0,
            amrex::ParticleReal dy = 0,
            amrex::ParticleReal rotation_degree = 0,
            amrex::ParticleReal aperture_x = 0,
            amrex::ParticleReal aperture_y = 0,
            int mapsteps = 1,
            int nslice = 1,
            std::optional<std::string> name = std::nullopt
        )
          : Named(std::move(name)),
            Thick(ds, nslice),
            Alignment(dx, dy, rotation_degree),
            PipeAperture(aperture_x, aperture_y),
            m_bscale(bscale), m_unit(unit), m_mapsteps(mapsteps), m_id(SoftSolenoidData::next_id)
       {
           // next created soft solenoid has another id for its data
           SoftSolenoidData::next_id++;
 
           // validate sin and cos coefficients are the same length
           m_ncoef = int(cos_coef.size());
           if (m_ncoef != int(sin_coef.size()))
               throw std::runtime_error("SoftSolenoid: cos and sin coefficients must have same length!");
 
           // host data
           SoftSolenoidData::h_cos_coef[m_id] = cos_coef;
           SoftSolenoidData::h_sin_coef[m_id] = sin_coef;
           m_cos_h_data = SoftSolenoidData::h_cos_coef[m_id].data();
           m_sin_h_data = SoftSolenoidData::h_sin_coef[m_id].data();
 
           // device data
           SoftSolenoidData::d_cos_coef.emplace(m_id, amrex::Gpu::DeviceVector<amrex::ParticleReal>(m_ncoef));
           SoftSolenoidData::d_sin_coef.emplace(m_id, amrex::Gpu::DeviceVector<amrex::ParticleReal>(m_ncoef));
           amrex::Gpu::copyAsync(amrex::Gpu::hostToDevice,
                                 cos_coef.begin(), cos_coef.end(),
                                 SoftSolenoidData::d_cos_coef[m_id].begin());
           amrex::Gpu::copyAsync(amrex::Gpu::hostToDevice,
                                 sin_coef.begin(), sin_coef.end(),
                                 SoftSolenoidData::d_sin_coef[m_id].begin());
           amrex::Gpu::streamSynchronize();
 
           // low-level objects we can use on device
           m_cos_d_data = SoftSolenoidData::d_cos_coef[m_id].data();
           m_sin_d_data = SoftSolenoidData::d_sin_coef[m_id].data();
        }

        using BeamOptic::operator();

        void compute_constants (RefPart const & refpart)
        {
            using namespace amrex::literals; // for _rt and _prt
 
            Alignment::compute_constants(refpart);
        }

        template<typename T_Real=amrex::ParticleReal, typename T_IdCpu=uint64_t>
        AMREX_GPU_HOST_DEVICE AMREX_FORCE_INLINE
        void operator() (
            T_Real & AMREX_RESTRICT x,
            T_Real & AMREX_RESTRICT y,
            T_Real & AMREX_RESTRICT t,
            T_Real & AMREX_RESTRICT px,
            T_Real & AMREX_RESTRICT py,
            T_Real & AMREX_RESTRICT pt,
            T_IdCpu & AMREX_RESTRICT idcpu,
            RefPart const & AMREX_RESTRICT refpart
        ) const
        {
            using namespace amrex::literals; // for _rt and _prt
 
            // shift due to alignment errors of the element
            shift_in(x, y, px, py);
 
            // get the linear map
            amrex::SmallMatrix<amrex::ParticleReal, 6, 6, amrex::Order::F, 1> const R = refpart.map;
 
            // symplectic linear map for a solenoid is computed using the
            // Hamiltonian formalism as described in:
            // https://uspas.fnal.gov/materials/09UNM/ComputationalMethods.pdf.
            // R denotes the transfer matrix in the basis (x,px,y,py,t,pt),
            // so that, e.g., R(3,4) = dyf/dpyi.
            amrex::SmallVector<T_Real, 6, 1> const v{x, px, y, py, t, pt};
 
            // push particles using the linear map
            auto const out = R * v;
 
            // assign updated values
            x  = out[1];
            px = out[2];
            y  = out[3];
            py = out[4];
            t  = out[5];
            pt = out[6];
 
            // apply transverse aperture
            apply_aperture(x, y, idcpu);
 
            // undo shift due to alignment errors of the element
            shift_out(x, y, px, py);
        }

        AMREX_GPU_HOST AMREX_FORCE_INLINE
        void operator() (RefPart & AMREX_RESTRICT refpart) const
        {
            using namespace amrex::literals; // for _rt and _prt
            using amrex::Math::powi;
 
            // assign input reference particle values
            amrex::ParticleReal const x = refpart.x;
            amrex::ParticleReal const px = refpart.px;
            amrex::ParticleReal const y = refpart.y;
            amrex::ParticleReal const py = refpart.py;
            amrex::ParticleReal const z = refpart.z;
            amrex::ParticleReal const pz = refpart.pz;
            amrex::ParticleReal const pt = refpart.pt;
            amrex::ParticleReal const s = refpart.s;
            amrex::ParticleReal const sedge = refpart.sedge;
 
            // initialize linear map (deviation) values
            refpart.map = decltype(refpart.map)::Identity();
 
            // length of the current slice
            amrex::ParticleReal const slice_ds = m_ds / nslice();
 
            // compute initial value of beta*gamma
            amrex::ParticleReal const bgi = std::sqrt(powi<2>(pt) - 1.0_prt);
 
            // call integrator to advance (t,pt)
            amrex::ParticleReal const zin = s - sedge;
            amrex::ParticleReal const zout = zin + slice_ds;
            int const nsteps = m_mapsteps;
 
            integrators::symp2_integrate_split3(refpart,zin,zout,nsteps,*this);
            amrex::ParticleReal const ptf = refpart.pt;
 
            /* print computed linear map:
               for(int i=1; i<7; ++i){
                 for(int j=1; j<7; ++j){
                    amrex::PrintToFile("SolMap.txt") << i << " " <<
                    j << " " << refpart.map(i,j) << "\n";
                 }
               }
            */
 
            // advance position (x,y,z)
            refpart.x = x + slice_ds*px/bgi;
            refpart.y = y + slice_ds*py/bgi;
            refpart.z = z + slice_ds*pz/bgi;
 
            // compute final value of beta*gamma
            amrex::ParticleReal const bgf = std::sqrt(powi<2>(ptf) - 1.0_prt);
 
            // advance momentum (px,py,pz)
            refpart.px = px*bgf/bgi;
            refpart.py = py*bgf/bgi;
            refpart.pz = pz*bgf/bgi;
 
            // advance integrated path length
            refpart.s = s + slice_ds;
        }

        using LinearTransport::operator();

        AMREX_GPU_HOST AMREX_FORCE_INLINE
        Map6x6
        transport_map ([[maybe_unused]] RefPart const & AMREX_RESTRICT refpart) const
        {
 
            Map6x6 R = Map6x6::Identity();
            R = refpart.map;
 
            return R;
        }

        std::tuple<amrex::ParticleReal, amrex::ParticleReal, amrex::ParticleReal>
        AMREX_GPU_HOST_DEVICE AMREX_FORCE_INLINE
        Sol_Bfield (amrex::ParticleReal const zeval) const
        {
            using namespace amrex::literals; // for _rt and _prt
 
            // pick the right data depending if we are on the host side
            // (reference particle push) or device side (particles):
#if AMREX_DEVICE_COMPILE
            amrex::ParticleReal* cos_data = m_cos_d_data;
            amrex::ParticleReal* sin_data = m_sin_d_data;
#else
            amrex::ParticleReal* cos_data = m_cos_h_data;
            amrex::ParticleReal* sin_data = m_sin_h_data;
#endif
 
            // specify constants
            using ablastr::constant::math::pi;
            amrex::ParticleReal const zlen = m_ds;
            amrex::ParticleReal const zmid = zlen * 0.5_prt;
 
            // compute on-axis magnetic field (z is relative to solenoid midpoint)
            amrex::ParticleReal bfield = 0.0;
            amrex::ParticleReal bfieldp = 0.0;
            amrex::ParticleReal bfieldint = 0.0;
            amrex::ParticleReal const z = zeval - zmid;
 
            if (std::abs(z) <= zmid)
            {
               bfield = 0.5_prt*cos_data[0];
               bfieldint = z*bfield;
               for (int j=1; j < m_ncoef; ++j)
               {
                 bfield = bfield + cos_data[j] * std::cos(j*2*pi*z/zlen) +
                     sin_data[j] * std::sin(j*2*pi*z/zlen);
                 bfieldp = bfieldp-j*2*pi*cos_data[j] * std::sin(j*2*pi*z/zlen)/zlen +
                      j*2*pi*sin_data[j] * std::cos(j*2*pi*z/zlen)/zlen;
                 bfieldint = bfieldint + zlen*cos_data[j] * std::sin(j*2*pi*z/zlen)/(j*2*pi) -
                      zlen*sin_data[j] * std::cos(j*2*pi*z/zlen)/(j*2*pi);
               }
            }
            return std::make_tuple(bfield, bfieldp, bfieldint);
        }

        AMREX_GPU_HOST_DEVICE AMREX_FORCE_INLINE
        void map1 (amrex::ParticleReal const tau,
                   RefPart & refpart,
                   [[maybe_unused]] amrex::ParticleReal & zeval) const
        {
            using namespace amrex::literals; // for _rt and _prt
            using amrex::Math::powi;
 
            // push the reference particle
            amrex::ParticleReal const t = refpart.t;
            amrex::ParticleReal const pt = refpart.pt;
            amrex::ParticleReal const z = zeval;
 
            if (pt < -1.0_prt) {
                refpart.t = t + tau/std::sqrt(1.0_prt - powi<-2>(pt));
                refpart.pt = pt;
            }
            else {
                refpart.t = t;
                refpart.pt = pt;
            }
 
            zeval = z + tau;
 
            // push the linear map equations
            amrex::SmallMatrix<amrex::ParticleReal, 6, 6, amrex::Order::F, 1> const R = refpart.map;
            amrex::ParticleReal const betgam = refpart.beta_gamma();
 
            refpart.map(1,1) = R(1,1) + tau*R(2,1);
            refpart.map(1,2) = R(1,2) + tau*R(2,2);
            refpart.map(1,3) = R(1,3) + tau*R(2,3);
            refpart.map(1,4) = R(1,4) + tau*R(2,4);
 
            refpart.map(3,1) = R(3,1) + tau*R(4,1);
            refpart.map(3,2) = R(3,2) + tau*R(4,2);
            refpart.map(3,3) = R(3,3) + tau*R(4,3);
            refpart.map(3,4) = R(3,4) + tau*R(4,4);
 
            refpart.map(5,5) = R(5,5) + tau*R(6,5)/powi<2>(betgam);
            refpart.map(5,6) = R(5,6) + tau*R(6,6)/powi<2>(betgam);
 
        }

        AMREX_GPU_HOST_DEVICE AMREX_FORCE_INLINE
        void map2 (amrex::ParticleReal const tau,
                   RefPart & refpart,
                   amrex::ParticleReal & zeval) const
        {
            using namespace amrex::literals; // for _rt and _prt
            using amrex::Math::powi;
 
            amrex::ParticleReal const t = refpart.t;
            amrex::ParticleReal const pt = refpart.pt;
 
            // Define parameters and intermediate constants
            amrex::ParticleReal const B0 =
                m_unit == 1 ?
                m_bscale / refpart.rigidity_Tm() :
                m_bscale;
 
            // push the reference particle
            auto [bz, bzp, bzint] = Sol_Bfield(zeval);
            amrex::ignore_unused(bzp, bzint);
 
            refpart.t = t;
            refpart.pt = pt;
 
            // push the linear map equations
            amrex::SmallMatrix<amrex::ParticleReal, 6, 6, amrex::Order::F, 1> const R = refpart.map;
            amrex::ParticleReal const alpha = B0*bz*0.5_prt;
            amrex::ParticleReal const alpha2 = powi<2>(alpha);
 
            refpart.map(2,1) = R(2,1) - tau*alpha2*R(1,1);
            refpart.map(2,2) = R(2,2) - tau*alpha2*R(1,2);
            refpart.map(2,3) = R(2,3) - tau*alpha2*R(1,3);
            refpart.map(2,4) = R(2,4) - tau*alpha2*R(1,4);
 
            refpart.map(4,1) = R(4,1) - tau*alpha2*R(3,1);
            refpart.map(4,2) = R(4,2) - tau*alpha2*R(3,2);
            refpart.map(4,3) = R(4,3) - tau*alpha2*R(3,3);
            refpart.map(4,4) = R(4,4) - tau*alpha2*R(3,4);
 
        }

        AMREX_GPU_HOST_DEVICE AMREX_FORCE_INLINE
        void map3 (amrex::ParticleReal const tau,
                   RefPart & refpart,
                   amrex::ParticleReal & zeval) const
        {
            using namespace amrex::literals; // for _rt and _prt
 
            amrex::ParticleReal const t = refpart.t;
            amrex::ParticleReal const pt = refpart.pt;
            amrex::ParticleReal const z = zeval;
 
            // Define parameters and intermediate constants
            amrex::ParticleReal const B0 =
                m_unit == 1 ?
                m_bscale / refpart.rigidity_Tm() :
                m_bscale;
 
            // push the reference particle
            auto [bz, bzp, bzint] = Sol_Bfield(z);
            amrex::ignore_unused(bzp, bzint);
 
            refpart.t = t;
            refpart.pt = pt;
 
            // push the linear map equations
            amrex::SmallMatrix<amrex::ParticleReal, 6, 6, amrex::Order::F, 1> const R = refpart.map;
            amrex::ParticleReal const theta = tau*B0*bz*0.5_prt;
            amrex::ParticleReal const cs = std::cos(theta);
            amrex::ParticleReal const sn = std::sin(theta);
 
            refpart.map(1,1) = R(1,1)*cs + R(3,1)*sn;
            refpart.map(1,2) = R(1,2)*cs + R(3,2)*sn;
            refpart.map(1,3) = R(1,3)*cs + R(3,3)*sn;
            refpart.map(1,4) = R(1,4)*cs + R(3,4)*sn;
 
            refpart.map(2,1) = R(2,1)*cs + R(4,1)*sn;
            refpart.map(2,2) = R(2,2)*cs + R(4,2)*sn;
            refpart.map(2,3) = R(2,3)*cs + R(4,3)*sn;
            refpart.map(2,4) = R(2,4)*cs + R(4,4)*sn;
 
            refpart.map(3,1) = R(3,1)*cs - R(1,1)*sn;
            refpart.map(3,2) = R(3,2)*cs - R(1,2)*sn;
            refpart.map(3,3) = R(3,3)*cs - R(1,3)*sn;
            refpart.map(3,4) = R(3,4)*cs - R(1,4)*sn;
 
            refpart.map(4,1) = R(4,1)*cs - R(2,1)*sn;
            refpart.map(4,2) = R(4,2)*cs - R(2,2)*sn;
            refpart.map(4,3) = R(4,3)*cs - R(2,3)*sn;
            refpart.map(4,4) = R(4,4)*cs - R(2,4)*sn;
 
        }

        void
        finalize ()
        {
            // remove from unique data map
            if (SoftSolenoidData::h_cos_coef.count(m_id) != 0u)
                SoftSolenoidData::h_cos_coef.erase(m_id);
            if (SoftSolenoidData::h_sin_coef.count(m_id) != 0u)
                SoftSolenoidData::h_sin_coef.erase(m_id);
 
            if (SoftSolenoidData::d_cos_coef.count(m_id) != 0u)
                SoftSolenoidData::d_cos_coef.erase(m_id);
            if (SoftSolenoidData::d_sin_coef.count(m_id) != 0u)
                SoftSolenoidData::d_sin_coef.erase(m_id);
        }
 
        amrex::ParticleReal m_bscale; 
        int m_unit; 
        int m_mapsteps; 
        int m_id; 
 
        int m_ncoef = 0; 
        amrex::ParticleReal* m_cos_h_data = nullptr; 
        amrex::ParticleReal* m_sin_h_data = nullptr; 
        amrex::ParticleReal* m_cos_d_data = nullptr; 
        amrex::ParticleReal* m_sin_d_data = nullptr; 
    };
 
} // namespace impactx
 
#endif // IMPACTX_SOFTSOL_H