53 type(
chkp_t),
intent(in),
target :: chkp
54 character(len=*),
intent(in),
optional :: name
55 character(len=*),
intent(in),
optional :: path
57 character(len=1024) :: fname
59 if (
present(name) .and.
present(path))
then
60 fname = trim(path) // trim(name) //
'.chkp'
61 else if (
present(name))
then
62 fname = trim(name) //
'.chkp'
63 else if (
present(path))
then
64 fname = trim(path) //
'fluid.chkp'
69 call this%init_base(fname)
76 real(kind=
rp),
intent(in) :: t
78 call this%chkp%sync_host()
79 call this%file_%write(this%chkp, t)
Defines an output for a checkpoint.
type(chkp_output_t) function chkp_output_init(chkp, name, path)
subroutine chkp_output_sample(this, t)
Sample a checkpoint at time t.
integer, parameter, public rp
Global precision used in computations.
Abstract type defining an output type.