63 integer,
intent(in) :: precision
64 character(len=*),
intent(in) :: name
65 character(len=*),
intent(in),
optional :: path
66 integer,
intent(in) :: nfields
67 character(len=1024) :: fname
69 if (
present(path))
then
70 fname = trim(path) // trim(name) //
'.fld'
72 fname = trim(name) //
'.fld'
75 call this%init_base(fname, precision)
77 call this%fields%init(nfields)
85 real(kind=
rp),
intent(in) :: t
89 associate(fields => this%fields%items)
90 do i = 1,
size(fields)
93 sync=(i .eq.
size(fields)))
99 call this%file_%write(this%fields, t)
Copy data between host and device (or device and device)
Device abstraction, common interface for various accelerators.
integer, parameter, public device_to_host
Implements fld_file_output_t.
subroutine fld_file_output_init(this, precision, name, nfields, path)
Constructor.
subroutine fld_file_output_sample(this, t)
Writes the data.
integer, parameter neko_bcknd_device
integer, parameter, public rp
Global precision used in computations.
field_list_t, To be able to group fields together
A simple output saving a list of fields to a .fld file.
Abstract type defining an output type.