60 type(
field_t),
intent(inout),
target :: f
61 character(len=*),
optional,
intent(in) :: field_name
62 character(len=80) :: name
69 if (
present(field_name))
then
72 write(name,
'(A,A)')
'mean_',trim(f%name)
75 call this%mf%init(f%dof, name)
83 if (
associated(this%f))
then
102 real(kind=
rp),
intent(in) :: k
104 call field_cmult(this%mf, this%time,
size(this%mf%x))
106 this%time = this%time + k
107 call field_cmult(this%mf, 1.0_rp / this%time,
size(this%mf%x))
subroutine, public field_add2s2(a, b, c1, n)
Vector addition with scalar multiplication (multiplication on second argument)
subroutine, public field_cmult(a, c, n)
Multiplication by constant c .
subroutine mean_field_update(this, k)
Update a mean field.
subroutine mean_field_init(this, f, field_name)
Initialize a mean field for a field f.
subroutine mean_field_reset(this)
Resets a mean field.
subroutine mean_field_free(this)
Deallocates a mean field.
integer, parameter neko_bcknd_device
integer, parameter, public rp
Global precision used in computations.
Defines a statistical quantity.
Abstract type defining a statistical quantity.