From 50596704f702712b8e6c9917c13c8731a0809282 Mon Sep 17 00:00:00 2001
From: sibylle <sibylle.techene@locean.ipsl.fr>
Date: Wed, 13 Apr 2022 11:43:06 +0200
Subject: [PATCH] #2 remove l_1st_euler management in RK3
---
src/OCE/DOM/domain.F90 | 3 +++
1 file changed, 3 insertions(+)
diff --git a/src/OCE/DOM/domain.F90 b/src/OCE/DOM/domain.F90
index 8a6acc4d..0afbb66c 100644
--- a/src/OCE/DOM/domain.F90
+++ b/src/OCE/DOM/domain.F90
@@ -410,6 +410,8 @@ CONTAINS
IF( nn_wxios > 0 ) lwxios = .TRUE. !* set output file type for XIOS based on NEMO namelist
nxioso = nn_wxios
ENDIF
+ !
+#if ! defined key_RK3
! !== Check consistency between ln_rstart and ln_1st_euler ==! (i.e. set l_1st_euler)
l_1st_euler = ln_1st_euler
!
@@ -445,6 +447,7 @@ CONTAINS
IF(lwp) WRITE(numout,*)' an Euler initial time step is used : l_1st_euler is forced to .true. '
l_1st_euler = .TRUE.
ENDIF
+#endif
!
! !== control of output frequency ==!
!
--
GitLab