From 5b8351e4af5a8b47cd060fcc25427761aa4b6fd4 Mon Sep 17 00:00:00 2001
From: Antoine Cyril David Hoffmann <ahoffman@spcpc606.epfl.ch>
Date: Tue, 16 Jun 2020 10:04:33 +0200
Subject: [PATCH] Output the initial state
---
src/diagnose.F90 | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/diagnose.F90 b/src/diagnose.F90
index ae0ef857..0a8f93a1 100644
--- a/src/diagnose.F90
+++ b/src/diagnose.F90
@@ -145,7 +145,7 @@ SUBROUTINE diagnose(kstep)
!________________________________________________________________________________
! 2. Periodic diagnostics
!
- IF (kstep .GT. 0) THEN
+ IF (kstep .GT. 0 .OR. kstep .EQ. 0) THEN
! 2.1 0d history arrays
IF (nsave_0d .NE. 0) THEN
--
GitLab