54 type(
field_t),
intent(inout) :: s
55 real(kind=
rp),
intent(in) :: ref_value
56 real(kind=
rp),
intent(in) :: g(3)
57 real(kind=
rp),
intent(in) :: beta
58 integer :: n_fields, i, n
60 n_fields = fields%size()
61 n = fields%item_size(1)
64 call add2s2(fields%items(i)%ptr%x, s%x, g(i)*beta, n)
65 call cadd(fields%items(i)%ptr%x, -g(i)*beta*ref_value, n)
Implements the cpu kernel for the boussinesq_source_term_t type.
subroutine, public boussinesq_source_term_compute_cpu(fields, s, ref_value, g, beta)
Computes the Boussinesq source term on the cpu.
subroutine, public cadd(a, s, n)
Add a scalar to vector .
subroutine, public add2s2(a, b, c1, n)
Vector addition with scalar multiplication (multiplication on second argument)
integer, parameter, public rp
Global precision used in computations.
field_list_t, To be able to group fields together