Skip to content
Snippets Groups Projects
Commit c0fb80f3 authored by Antoine Cyril David Hoffmann's avatar Antoine Cyril David Hoffmann
Browse files

diagnose each 5 time unit

parent 19b55ed3
No related branches found
No related tags found
No related merge requests found
......@@ -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
......
......@@ -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
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment