Changeset 9939 for NEMO/branches/2018/dev_r9838_ENHANCE04_RK3/src/OCE/step.F90

Timestamp:

2018-07-13T09:28:50+02:00 (6 years ago)

Author:

gm

Message:

#1911 (ENHANCE-04): RK3 branche phased with MLF@9937 branche

Location:

NEMO/branches/2018/dev_r9838_ENHANCE04_RK3

Files:

• . (copied) (copied from NEMO/trunk)
• src/OCE/step.F90 (modified) (2 diffs)

NEMO/branches/2018/dev_r9838_ENHANCE04_RK3/src/OCE/step.F90

@@ -34 +34 @@
 
    !!----------------------------------------------------------------------
-   !!   stp             : OPA system time-stepping
-   !!----------------------------------------------------------------------
-   USE step_oce         ! time stepping definition modules
+   !!   stp           : NEMO system time-stepping
+   !!----------------------------------------------------------------------
+   USE step_oce       ! time stepping definition modules
    !
-   USE iom              ! xIOs server
+   USE iom            ! xIOs server
 
    IMPLICIT NONE
@@ -323 +323 @@
 #endif
       !
+      IF( l_1st_euler ) THEN
+         rDt    = 2._wp * rn_Dt                             ! recover Leap-frog time-step
+         r1_Dt = 1._wp / rDt
+         l_1st_euler = .FALSE.
+      ENDIF
+      !
       IF( ln_timing )   CALL timing_stop('stp')
       !