From 14b2913acbe0c930b67b49d0fca49c0044c4f509 Mon Sep 17 00:00:00 2001
From: Sibylle Techene <sibylle.techene@locean-ipsl.upmc.fr>
Date: Fri, 13 May 2022 14:30:51 +0000
Subject: [PATCH] Fix RK3 restart issue
---
src/OCE/DOM/domain.F90 | 11 +++++++++--
1 file changed, 9 insertions(+), 2 deletions(-)
diff --git a/src/OCE/DOM/domain.F90 b/src/OCE/DOM/domain.F90
index 0afbb66c9..1e85c0b8f 100644
--- a/src/OCE/DOM/domain.F90
+++ b/src/OCE/DOM/domain.F90
@@ -411,8 +411,15 @@ CONTAINS
nxioso = nn_wxios
ENDIF
!
-#if ! defined key_RK3
- ! !== Check consistency between ln_rstart and ln_1st_euler ==! (i.e. set l_1st_euler)
+#if defined key_RK3
+ ! !== RK3: Open the restart file ==!
+ IF( ln_rstart ) THEN
+ IF(lwp) WRITE(numout,*)
+ IF(lwp) WRITE(numout,*) ' open the restart file'
+ CALL rst_read_open
+ ENDIF
+#else
+ ! !== MLF: Check consistency between ln_rstart and ln_1st_euler ==! (i.e. set l_1st_euler)
l_1st_euler = ln_1st_euler
!
IF( ln_rstart ) THEN !* Restart case
--
GitLab