Write out a full output frame just prior to failing the run on the ma…

…ss loss exception.
MintonGroup · Aug 30, 2021 · 5ee0f72 · 5ee0f72
1 parent 5e13952
commit 5ee0f72
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/src/io/io.f90 b/src/io/io.f90
@@ -72,6 +72,8 @@ module subroutine io_conservation_report(self, param, lterminal)
                write(*,*) 'Mass loss! Halting!'
                call pl%xv2el(cb)
                call param%nciu%open(param)
+               call self%write_hdr(param%nciu, param)
+               call cb%write_frame(param%nciu, param)
                call pl%write_frame(param%nciu, param)
                call param%nciu%close(param)
                call util_exit(FAILURE)