Changeset 10344

Timestamp:

2018-11-21T08:30:01+01:00 (6 years ago)

Author:

smasson

Message:

trunk: avoid undefined (and harmless) values in icedyn_adv_umx to pass -fpe0 test

File:

• NEMO/trunk/src/ICE/icedyn_adv_umx.F90 (modified) (2 diffs)

NEMO/trunk/src/ICE/icedyn_adv_umx.F90

@@ -198 +198 @@
          CALL macho( k_order, kt, pdt, ptc, puc, pvc, pubox, pvbox, zt_u, zt_v )
          !
-         DO jj = 1, jpjm1
+         DO jj = 2, jpjm1
             DO ji = 1, fs_jpim1   ! vector opt.
                zfu_ho(ji,jj) = puc(ji,jj) * zt_u(ji,jj)
+            END DO
+         END DO
+         DO jj = 1, jpjm1
+            DO ji = fs_2, fs_jpim1   ! vector opt.
                zfv_ho(ji,jj) = pvc(ji,jj) * zt_v(ji,jj)
             END DO
@@ -209 +213 @@
       ! antidiffusive flux : high order minus low order
       ! --------------------------------------------------
-      DO jj = 1, jpjm1
+      DO jj = 2, jpjm1
          DO ji = 1, fs_jpim1   ! vector opt.
             zfu_ho(ji,jj) = zfu_ho(ji,jj) - zfu_ups(ji,jj)
+         END DO
+      END DO
+      DO jj = 1, jpjm1
+         DO ji = fs_2, fs_jpim1   ! vector opt.
             zfv_ho(ji,jj) = zfv_ho(ji,jj) - zfv_ups(ji,jj)
          END DO