Skip to content
Snippets Groups Projects
Commit 14b2913a authored by Sibylle Techene's avatar Sibylle Techene
Browse files

Fix RK3 restart issue

parent 127cef6c
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
Showing
with 9 additions and 2 deletions
src/OCE/DOM/domain.F90
+ 9
− 2
View file @ 14b2913a
......@@ -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
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment