Changeset 1694 for trunk/NEMO/OPA_SRC/DOM/dommsk.F90

Timestamp:

2009-10-30T17:06:23+01:00 (15 years ago)

Author:

smasson

Message:

avoid out of bounds access, see ticket:576

File:

• trunk/NEMO/OPA_SRC/DOM/dommsk.F90 (modified) (1 diff)

trunk/NEMO/OPA_SRC/DOM/dommsk.F90

@@ -213 +213 @@
                vmask(ji,jj,jk) = tmask(ji,jj  ,jk) * tmask(ji  ,jj+1,jk)
             END DO
-            DO ji = 1, jpim1 
+            DO ji = 1, jpim1      ! NO vector opt.
                fmask(ji,jj,jk) = tmask(ji,jj  ,jk) * tmask(ji+1,jj  ,jk)   &
                   &            * tmask(ji,jj+1,jk) * tmask(ji+1,jj+1,jk)