diff --git a/src/diagnose.F90 b/src/diagnose.F90
index 7b217c7eb6a6ca5de38139f34858389ce0efdaa4..809f30b9fb7cffef1d15eb7232f8fc6a057c0522 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 074aa71a30a6a6c2863d8df1a4e7deb936b1e5a2..a150e90bc2a9e947927be492321a7578119b9834 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