From edbffe10a4328020bb7034ed86b70eeecc9700cd Mon Sep 17 00:00:00 2001 From: David A Minton Date: Thu, 26 Aug 2021 14:54:08 -0400 Subject: [PATCH] Fixed issue where conservation report was being printed before the main loop. --- src/io/io.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/io/io.f90 b/src/io/io.f90 index 18c56dd62..c4c9b8b81 100644 --- a/src/io/io.f90 +++ b/src/io/io.f90 @@ -1630,7 +1630,7 @@ module subroutine io_write_frame_system(self, param) logical :: fileExists type(netcdf_parameters) :: nciu - if (param%lenergy) call self%conservation_report(param, lterminal=.true.) + if (.not.lfirst .and. param%lenergy) call self%conservation_report(param, lterminal=.true.) allocate(cb, source = self%cb) allocate(pl, source = self%pl)