AddForceLenseThirring.hpp

Go to the documentation of this file.

// -------------------------------------------------------//
//
// SHAMROCK code for hydrodynamics
// Copyright (c) 2021-2026 Timothée David--Cléris <tim.shamrock@proton.me>
// SPDX-License-Identifier: CeCILL Free Software License Agreement v2.1
// Shamrock is licensed under the CeCILL 2.1 License, see LICENSE for more information
//
// -------------------------------------------------------//
 
#pragma once

 
#include "shambackends/kernel_call_distrib.hpp"
#include "shambackends/math.hpp"
#include "shamrock/solvergraph/IFieldSpan.hpp"
#include "shamrock/solvergraph/Indexes.hpp"
#include "shamsolvergraph/edge/IDataEdge.hpp"
#include "shamsolvergraph/node/INode.hpp"
#include "shamsys/NodeInstance.hpp"
 
#define NODE_EDGES(X_RO, X_RW)                                                                     \
    /* ------------------- inputs ------------------- */                                           \
    X_RO(shamrock::solvergraph::IDataEdge<Tscal>, constant_G)                                      \
    X_RO(shamrock::solvergraph::IDataEdge<Tscal>, constant_c)                                      \
    X_RO(shamrock::solvergraph::IDataEdge<Tscal>, central_mass)                                    \
    X_RO(shamrock::solvergraph::IDataEdge<Tvec>, central_pos)                                      \
    X_RO(shamrock::solvergraph::IDataEdge<Tvec>, central_vel)                                      \
    X_RO(shamrock::solvergraph::IDataEdge<Tscal>, a_spin)                                          \
    X_RO(shamrock::solvergraph::IDataEdge<Tvec>, dir_spin)                                         \
    X_RO(shamrock::solvergraph::IFieldSpan<Tvec>, spans_positions)                                 \
    X_RO(shamrock::solvergraph::IFieldSpan<Tvec>, spans_velocities)                                \
    X_RO(shamrock::solvergraph::Indexes<u32>, sizes)                                               \
                                                                                                   \
    /* ------------------- outputs ------------------- */                                          \
    X_RW(shamrock::solvergraph::IFieldSpan<Tvec>, spans_accel_ext)
 
namespace shammodels::common::modules {
    template<class Tvec>
    class AddForceLenseThirring : public shamrock::solvergraph::INode {
 
        using Tscal = shambase::VecComponent<Tvec>;
 
        public:
        AddForceLenseThirring() = default;
 
        EXPAND_NODE_EDGES(NODE_EDGES)
 
        inline void _impl_evaluate_internal() {
 
            __shamrock_stack_entry();
 
            auto edges = get_edges();
 
            edges.spans_positions.check_sizes(edges.sizes.indexes);
            edges.spans_accel_ext.ensure_sizes(edges.sizes.indexes);
 
            Tscal G       = edges.constant_G.data;
            Tscal c       = edges.constant_c.data;
            Tscal cmass   = edges.central_mass.data;
            Tvec cpos     = edges.central_pos.data;
            Tvec cvel     = edges.central_vel.data;
            Tscal a_spin  = edges.a_spin.data;
            Tvec dir_spin = edges.dir_spin.data;
 
            Tscal GM = cmass * G;
            Tvec S   = a_spin * GM * GM * dir_spin / (c * c * c);
 
            sham::distributed_data_kernel_call(
                shamsys::instance::get_compute_scheduler_ptr(),
                sham::DDMultiRef{
                    edges.spans_positions.get_spans(), edges.spans_velocities.get_spans()},
                sham::DDMultiRef{edges.spans_accel_ext.get_spans()},
                edges.sizes.indexes,
                [cpos, cvel, S](u32 gid, const Tvec *xyz, const Tvec *vxyz, Tvec *axyz_ext) {
                    Tvec r_a       = xyz[gid] - cpos;
                    Tvec v_a       = vxyz[gid] - cvel;
                    Tscal abs_ra   = sycl::length(r_a);
                    Tscal abs_ra_2 = abs_ra * abs_ra;
                    Tscal abs_ra_3 = abs_ra_2 * abs_ra;
                    Tscal abs_ra_5 = abs_ra_2 * abs_ra_2 * abs_ra;
 
                    Tvec omega_a = (S * (2 / abs_ra_3)) - (6 * sham::dot(S, r_a) * r_a) / abs_ra_5;
                    Tvec acc_lt  = sycl::cross(v_a, omega_a);
                    axyz_ext[gid] += acc_lt;
                });
        }
 
        inline virtual std::string _impl_get_label() const { return "AddForceLenseThirring"; };
 
        inline virtual std::string _impl_get_tex() const { return "TODO"; };
    };
} // namespace shammodels::common::modules
 
#undef NODE_EDGES