43 real(kind=
rp) :: t_begin
56 real(kind=
rp),
intent(in) :: t_begin
57 character(len=*),
intent(in),
optional :: name
58 character(len=*),
intent(in),
optional :: path
60 character(len=1024) :: fname
62 if (
present(name) .and.
present(path))
then
63 fname = trim(path) // trim(name) //
'.fld'
64 else if (
present(name))
then
65 fname = trim(name) //
'.fld'
66 else if (
present(path))
then
67 fname = trim(path) //
'mean_sqr_field.fld'
69 fname =
'mean_sqr_field.fld'
72 call this%init_base(fname)
74 this%T_begin = t_begin
80 real(kind=
rp),
intent(in) :: t
82 if (t .ge. this%T_begin)
then
83 call this%file_%write(this%msqrf, t)
Defines an output for a mean squared flow field.
type(mean_sqr_flow_output_t) function mean_sqr_flow_output_init(msqrf, T_begin, name, path)
subroutine mean_sqr_flow_output_sample(this, t)
Sample a mean squared flow field at time t.
Defines a mean squared flow field.
integer, parameter, public rp
Global precision used in computations.
Abstract type defining an output type.