Changeset 9239 for branches

Timestamp:

2018-01-15T18:22:41+01:00 (6 years ago)

Author:

gm

Message:

dev_merge_2017: #2002 : sshwzv.F90 same small bug as for dynnxt

File:

• branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/DYN/sshwzv.F90 (modified) (1 diff)

branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/DYN/sshwzv.F90

@@ -244 +244 @@
       ENDIF
       !              !==  Euler time-stepping: no filter, just swap  ==!
-      IF  ( neuler == 0 .AND. kt == nit000 ) THEN
-         sshb(:,:) = sshn(:,:)                              ! before <-- now
+      IF ( neuler == 0 .AND. kt == nit000 ) THEN
          sshn(:,:) = ssha(:,:)                              ! now    <-- after  (before already = now)
          !