From 2b60791c900adc55e4cb8469ace1eeca44abec62 Mon Sep 17 00:00:00 2001
From: Antoine Cyril David Hoffmann <ahoffman@spcpc606.epfl.ch>
Date: Fri, 10 Jul 2020 09:19:35 +0200
Subject: [PATCH] output before checking the end of the simulation, not after
---
src/control.F90 | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/src/control.F90 b/src/control.F90
index a3f0009d..273ce8ad 100644
--- a/src/control.F90
+++ b/src/control.F90
@@ -52,11 +52,11 @@ SUBROUTINE control
CALL stepon
time = time + dt
+ CALL diagnose(step)
+
CALL tesend
IF( nlend ) EXIT ! exit do loop
- CALL diagnose(step)
-
! CALL write_restart ! if want to write a restart file every so often (in case of crash)
END DO
!________________________________________________________________________________
--
GitLab