Changeset 9225 for branches/2015/nemo_v3_6_STABLE/NEMOGCM/NEMO/OPA_SRC/DYN/dynnxt.F90

Timestamp:

2018-01-15T10:17:26+01:00 (6 years ago)

Author:

gm

Message:

#2002 : v3.6_STABLE : dynnxt.F90 and icbtrj.F90: minor bug correction

File:

• branches/2015/nemo_v3_6_STABLE/NEMOGCM/NEMO/OPA_SRC/DYN/dynnxt.F90 (modified) (1 diff)

branches/2015/nemo_v3_6_STABLE/NEMOGCM/NEMO/OPA_SRC/DYN/dynnxt.F90

@@ -231 +231 @@
          IF (lk_vvl) THEN
             DO jk = 1, jpkm1
-               fse3t_b(:,:,jk) = fse3t_n(:,:,jk)
-               fse3u_b(:,:,jk) = fse3u_n(:,:,jk)
-               fse3v_b(:,:,jk) = fse3v_n(:,:,jk)
-            ENDDO
+               fse3t_n(:,:,jk) = fse3t_a(:,:,jk)
+               fse3u_n(:,:,jk) = fse3u_a(:,:,jk)
+               fse3v_n(:,:,jk) = fse3v_a(:,:,jk)
+            END DO
          ENDIF
       ELSE                                             !* Leap-Frog : Asselin filter and swap