From 73c51dedb1f1d0e50dccf0e33e446b2553203e50 Mon Sep 17 00:00:00 2001
From: Antoine Cyril David Hoffmann <ahoffman@spcpc606.epfl.ch>
Date: Tue, 16 Jun 2020 10:03:35 +0200
Subject: [PATCH] light presentation changes
---
src/control.F90 | 18 +++++++++---------
1 file changed, 9 insertions(+), 9 deletions(-)
diff --git a/src/control.F90 b/src/control.F90
index e2d481ec..6ee07ac6 100644
--- a/src/control.F90
+++ b/src/control.F90
@@ -46,18 +46,18 @@ SUBROUTINE control
!________________________________________________________________________________
! 2. Main loop
- !DO
- ! step = step+1
- ! cstep = cstep+1
- ! CALL stepon
- ! time = time + dt
+ DO
+ step = step + 1
+ cstep = cstep + 1
+ CALL stepon
+ time = time + dt
-! CALL tesend
-! CALL diagnose(step)
-! IF( nlend ) EXIT ! exit do loop
+ CALL tesend
+ CALL diagnose(step)
+ IF( nlend ) EXIT ! exit do loop
! CALL write_restart ! if want to write a restart file every so often (in case of crash)
-! END DO
+ END DO
!________________________________________________________________________________
! 9. Epilogue
--
GitLab