From c0fb80f30a15aef352d66f31f2413912bd2a7105 Mon Sep 17 00:00:00 2001
From: Antoine Cyril David Hoffmann <ahoffman@spcpc606.epfl.ch>
Date: Mon, 5 Oct 2020 14:52:50 +0200
Subject: [PATCH] diagnose each 5 time unit
---
src/diagnose.F90 | 1 +
src/diagnostics_par_mod.F90 | 2 +-
2 files changed, 2 insertions(+), 1 deletion(-)
diff --git a/src/diagnose.F90 b/src/diagnose.F90
index 7b217c7e..809f30b9 100644
--- a/src/diagnose.F90
+++ b/src/diagnose.F90
@@ -203,6 +203,7 @@ SUBROUTINE diagnose(kstep)
END IF
! 2.5 Backups
+ nsave_cp = INT(5/dt)
IF (MOD(cstep, nsave_cp) == 0) THEN
CALL checkpoint_save
ENDIF
diff --git a/src/diagnostics_par_mod.F90 b/src/diagnostics_par_mod.F90
index 074aa71a..a150e90b 100644
--- a/src/diagnostics_par_mod.F90
+++ b/src/diagnostics_par_mod.F90
@@ -12,7 +12,7 @@ MODULE diagnostics_par
LOGICAL, PUBLIC, PROTECTED :: write_doubleprecision=.FALSE.
INTEGER, PUBLIC, PROTECTED :: nsave_0d , nsave_1d , nsave_2d , nsave_5d
- INTEGER, PUBLIC, PROTECTED :: nsave_cp = 1e4
+ INTEGER, PUBLIC :: nsave_cp = 1e4
! HDF5 file
CHARACTER(len=128), PUBLIC :: resfile0 = "results" ! Head of main result file name
--
GitLab