71 type(
field_t),
intent(inout),
target :: f
72 character(len=*),
optional,
intent(in) :: field_name
73 character(len=80) :: name
80 if (
present(field_name))
then
83 write(name,
'(A,A)')
'mean_', trim(f%name)
86 call this%mf%init(f%dof, name)
94 if (
associated(this%f))
then
114 real(kind=
rp),
intent(in) :: k
116 call field_cmult(this%mf, this%time,
size(this%mf%x))
118 this%time = this%time + k
119 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 the mean field with a new sample.
subroutine mean_field_init(this, f, field_name)
Constructor.
subroutine mean_field_reset(this)
Resets a the mean field and the averaging time value to zero.
subroutine mean_field_free(this)
Destructor.
integer, parameter neko_bcknd_device
integer, parameter, public rp
Global precision used in computations.
Defines a statistical quantity.
Computes the temporal mean of a field.
Abstract type defining a statistical quantity.