43 integer,
private :: len = 0
62 type(
field_t),
intent(inout),
target :: f
64 character(len=80) :: name
65 character(len=5) :: id_str
73 allocate(this%lf(len))
76 write(id_str,
'(I0)') i
77 name = trim(f%name)//
'_lag'//id_str
78 call this%lf(i)%init(this%f%dof, name)
88 if (
associated(this%f))
then
93 call this%lf(i)%free()
110 do i = this%len, 2, -1
111 this%lf(i) = this%lf(i-1)
subroutine field_series_set(this, g)
Set all fields in a series to g.
subroutine field_series_update(this)
Update a field series (evict oldest entry)
integer function field_series_size(this)
Return the size of the field series.
subroutine field_series_free(this)
Deallocates a field series.
subroutine field_series_init(this, f, len)
Initialize a field series of length len for a field f.
integer, parameter, public rp
Global precision used in computations.
field_series_ptr_t, To easily obtain a pointer to a field series