54 real(kind=
rp),
intent(in) :: k
57 call device_cmult(this%mf%x_d, this%time,
size(this%mf%x))
59 this%time = this%time + k
60 call device_cmult(this%mf%x_d, 1.0_rp / this%time,
size(this%mf%x))
62 this%mf%x = this%mf%x * this%time
63 call addsqr2s2(this%mf%x, this%f%x, k, this%mf%dof%size())
64 this%time = this%time + k
65 this%mf%x = this%mf%x / this%time
subroutine, public device_cmult(a_d, c, n)
Multiplication by constant c .
subroutine, public device_addsqr2s2(a_d, b_d, c1, n)
Returns .
subroutine, public addsqr2s2(a, b, c1, n)
Returns .
Defines a mean square field.
subroutine mean_sqr_field_update(this, k)
Update a mean sqr field.
integer, parameter neko_bcknd_device
integer, parameter, public rp
Global precision used in computations.
Computes the temporal mean of a field.