1 #ifndef LOCAL_EQUIL_PROFILES_HPP
2 #define LOCAL_EQUIL_PROFILES_HPP
21 for (
int i_simd = 0; i_simd<SIMD_SIZE; i_simd++){
22 f0tev[i_simd] = species.
eq_temp.
value(magnetic_field, psi[i_simd],x.
r[i_simd],x.
z[i_simd]);
23 f0dtev[i_simd] = species.
eq_temp.
slope(magnetic_field, psi[i_simd],x.
r[i_simd],x.
z[i_simd]);
24 f0dden_n[i_simd] = species.
eq_den.
slope(magnetic_field, psi[i_simd],x.
r[i_simd],x.
z[i_simd])/
25 species.
eq_den.
value(magnetic_field, psi[i_simd],x.
r[i_simd],x.
z[i_simd]);
26 f0flow[i_simd] = species.
eq_flow.
value(magnetic_field, psi[i_simd],x.
r[i_simd],x.
z[i_simd]);
27 f0dflow[i_simd] = species.
eq_flow.
slope(magnetic_field, psi[i_simd],x.
r[i_simd],x.
z[i_simd]);
32 f0flow[i_simd]=(ftype_non_zero)? f0flow[i_simd]*x.
r[i_simd] : f0flow[i_simd];
33 f0dflow[i_simd]=(ftype_non_zero)? f0dflow[i_simd]*x.
r[i_simd] : f0dflow[i_simd];
MarkerType
Definition: globals.hpp:110
KOKKOS_INLINE_FUNCTION double slope(const MagneticField< DeviceType > &b_field, double psi_in, double r, double z) const
Definition: profile.hpp:352
Eq::Profile< Device > eq_den
Definition: species.hpp:132
Definition: magnetic_field.hpp:14
Simd< double > f0dflow
Definition: local_equil_profiles.hpp:16
Simd< double > f0dden_n
Definition: local_equil_profiles.hpp:13
int eq_flow_type
Definition: species.hpp:134
KOKKOS_INLINE_FUNCTION LocalEquilProfiles(const MagneticField< DeviceType > &magnetic_field, const Species< DeviceType > &species, const Simd< double > &psi, const SimdVector2D &x)
Definition: local_equil_profiles.hpp:18
Definition: local_equil_profiles.hpp:8
Simd< double > z
Definition: simd.hpp:141
Simd< double > f0tev
Definition: local_equil_profiles.hpp:12
KOKKOS_INLINE_FUNCTION LocalEquilProfiles(const MagneticField< DeviceType > &magnetic_field, const Species< DeviceType > &species, const Simd< double > &psi, const SimdVector2D &x)
Definition: local_equil_profiles.hpp:40
Simd< double > r
Definition: simd.hpp:140
Definition: magnetic_field.F90:1
Eq::Profile< Device > eq_flow
Definition: species.hpp:133
Simd< double > f0dtev
Definition: local_equil_profiles.hpp:14
KOKKOS_INLINE_FUNCTION double value(const MagneticField< DeviceType > &b_field, double psi_in, double r, double z) const
Definition: profile.hpp:319
Definition: species.hpp:75
Eq::Profile< Device > eq_temp
Definition: species.hpp:131
Simd< double > f0flow
Definition: local_equil_profiles.hpp:15