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)