From 7b9e9add6140e010b9e76952a9dfbca28c45a5c7 Mon Sep 17 00:00:00 2001 From: David A Minton Date: Wed, 11 Aug 2021 08:17:31 -0400 Subject: [PATCH] Moved dump io to after first step --- src/io/io.f90 | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/io/io.f90 b/src/io/io.f90 index a80d54893..2fa42dcc1 100644 --- a/src/io/io.f90 +++ b/src/io/io.f90 @@ -219,11 +219,11 @@ module subroutine io_dump_system(self, param) deltawall = clock_count / (count_rate * 1.0_DP) - finish wallperstep = deltawall / param%istep_dump finish = clock_count / (count_rate * 1.0_DP) + write(*, statusfmt) param%t, tfrac, self%pl%nbody, self%tp%nbody + write(*, walltimefmt) finish - start, wallperstep + if (param%lenergy) call self%conservation_report(param, lterminal=.true.) end if - write(*, statusfmt) param%t, tfrac, self%pl%nbody, self%tp%nbody - write(*, walltimefmt) finish - start, wallperstep - if (param%lenergy) call self%conservation_report(param, lterminal=.true.) return end subroutine io_dump_system