54 type(
chkp_t),
intent(in),
target :: chkp
55 character(len=*),
intent(in),
optional :: name
56 character(len=*),
intent(in),
optional :: path
57 character(len=*),
intent(in),
optional :: fmt
59 character(len=1024) :: fname
60 character(len=10) :: suffix
63 if (
present(fmt))
then
64 if (fmt .eq.
'hdf5')
then
69 if (
present(name) .and.
present(path))
then
70 fname = trim(path) // trim(name) // trim(suffix)
71 else if (
present(name))
then
72 fname = trim(name) // trim(suffix)
73 else if (
present(path))
then
74 fname = trim(path) //
'fluid' // trim(suffix)
76 fname=
'fluid' // trim(suffix)
79 call this%init_base(fname)
86 real(kind=
rp),
intent(in) :: t
88 call this%chkp%sync_host()
89 call this%file_%write(this%chkp, t)
Defines an output for a checkpoint.
type(chkp_output_t) function chkp_output_init(chkp, name, path, fmt)
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.