From d44b4529459b5444bb2f7f61a6814760eeb9b7f3 Mon Sep 17 00:00:00 2001 From: David A Minton Date: Tue, 17 Aug 2021 07:45:51 -0400 Subject: [PATCH] Fixed the conservation report so that the header is printed only on the first call --- 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 933bcbdfb..7b7468976 100644 --- 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)