Changeset 10023 for NEMO/branches/2018/dev_r9838_ENHANCE04_RK3/src/OCE/DYN/sshwzv.F90

Timestamp:

2018-08-02T08:19:03+02:00 (6 years ago)

Author:

gm

Message:

#1911 (ENHANCE-04): RK3 branch - step II.2 bug correction in dynnxt + domvvl_RK3 creation

File:

• NEMO/branches/2018/dev_r9838_ENHANCE04_RK3/src/OCE/DYN/sshwzv.F90 (modified) (2 diffs)

NEMO/branches/2018/dev_r9838_ENHANCE04_RK3/src/OCE/DYN/sshwzv.F90

@@ -245 +245 @@
          Naa   = isave                 ! after <-- previously now index
          !
-      ELSE                       !==  Leap-Frog time-stepping  ==!   Asselin filter + swap
+      ELSEIF ( ln_MLF  ) THEN    !==  Leap-Frog time-stepping  ==!   Asselin filter + swap
          !
          !                                   ! before <-- now filtered
@@ -258 +258 @@
          Nnn   = Naa                   ! now    <-- after
          Naa   = isave                 ! after  <-- previously now index
+         !
+      ELSEIF ( ln_MLF  ) THEN    !==  RK3 time-stepping  ==!  swap
+         isave = Nnn
+         Nnn   = Naa                   ! now    <-- after
+         Naa   = isave                 ! after  <-- previously now index
+
       ENDIF
       !