From e06013d45143bdc58efe746aea5430fb5a30daad Mon Sep 17 00:00:00 2001
From: Antoine Cyril David Hoffmann <ahoffman@spcpc606.epfl.ch>
Date: Mon, 1 Feb 2021 10:12:10 +0100
Subject: [PATCH] Added simulation end checkpoint
---
src/diagnose.F90 | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/src/diagnose.F90 b/src/diagnose.F90
index aadba09e..eb726906 100644
--- a/src/diagnose.F90
+++ b/src/diagnose.F90
@@ -262,7 +262,8 @@ SUBROUTINE diagnose(kstep)
! Close all diagnostic files
CALL closef(fidres)
IF (nsave_cp .GT. 0) THEN
- CALL closef(fidrst)
+ CALL checkpoint_save(cp_counter)
+ CALL closef(fidrst)
ENDIF
END IF
--
GitLab