Skip to content
Snippets Groups Projects
Commit 50596704 authored by sibylle's avatar sibylle
Browse files

#2 remove l_1st_euler management in RK3

parent 6cef8ef9
No related branches found
No related tags found
No related merge requests found
...@@ -410,6 +410,8 @@ CONTAINS ...@@ -410,6 +410,8 @@ CONTAINS
IF( nn_wxios > 0 ) lwxios = .TRUE. !* set output file type for XIOS based on NEMO namelist IF( nn_wxios > 0 ) lwxios = .TRUE. !* set output file type for XIOS based on NEMO namelist
nxioso = nn_wxios nxioso = nn_wxios
ENDIF ENDIF
!
#if ! defined key_RK3
! !== Check consistency between ln_rstart and ln_1st_euler ==! (i.e. set l_1st_euler) ! !== Check consistency between ln_rstart and ln_1st_euler ==! (i.e. set l_1st_euler)
l_1st_euler = ln_1st_euler l_1st_euler = ln_1st_euler
! !
...@@ -445,6 +447,7 @@ CONTAINS ...@@ -445,6 +447,7 @@ CONTAINS
IF(lwp) WRITE(numout,*)' an Euler initial time step is used : l_1st_euler is forced to .true. ' IF(lwp) WRITE(numout,*)' an Euler initial time step is used : l_1st_euler is forced to .true. '
l_1st_euler = .TRUE. l_1st_euler = .TRUE.
ENDIF ENDIF
#endif
! !
! !== control of output frequency ==! ! !== control of output frequency ==!
! !
......
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