Fixed the conservation report so that the header is printed only on t…

…he first call
MintonGroup · Aug 17, 2021 · d44b452 · d44b452
1 parent 44dbbfd
commit d44b452
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/io/io.f90 b/src/io/io.f90
@@ -35,9 +35,9 @@ module subroutine io_conservation_report(self, param, lterminal)
          if (param%energy_out /= "") then
             if (lfirst .and. (param%out_stat /= "OLD")) then
                open(unit = EGYIU, file = param%energy_out, form = "formatted", status = "replace", action = "write", err = 667, iomsg = errmsg)
+               write(EGYIU,EGYHEADER, err = 667, iomsg = errmsg)
             else
                open(unit = EGYIU, file = param%energy_out, form = "formatted", status = "old", action = "write", position = "append", err = 667, iomsg = errmsg)
-               write(EGYIU,EGYHEADER, err = 667, iomsg = errmsg)
             end if
          end if
          call pl%h2b(cb)