Skip to content
Snippets Groups Projects
Commit da31f855 authored by Sebastien Masson's avatar Sebastien Masson
Browse files

Merge branch 'techene-main-patch-61290' into 'main'

Fix RK3 restart issue

See merge request nemo/nemo!83
parents 127cef6c 14b2913a
No related branches found
No related tags found
No related merge requests found
......@@ -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% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment