43 integer,
private :: len = 0
57 type(
field_t),
intent(inout),
target :: f
59 character(len=80) :: name
60 character(len=5) :: id_str
68 allocate(this%lf(len))
71 write(id_str,
'(I0)') i
72 name = trim(f%name)//
'_lag'//id_str
73 call this%lf(i)%init(this%f%dof, name)
83 if (
associated(this%f))
then
88 call this%lf(i)%free()
105 do i = this%len, 2, -1
106 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.