Changeset 1694 for trunk/NEMO/LIM_SRC_2/limmsh_2.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/LIM_SRC_2/limmsh_2.F90 (modified) (2 diffs)

trunk/NEMO/LIM_SRC_2/limmsh_2.F90

@@ -157 +157 @@
 
       DO jj = 2, jpj
-         DO ji = 2, jpi
+         DO ji = 2, jpi   ! NO vector opt.
             zh1p  =  e1t(ji  ,jj  ) * wght(ji,jj,2,2)   &
                &   + e1t(ji-1,jj  ) * wght(ji,jj,1,2)   &
@@ -234 +234 @@
       tmu(1,:) = 0.e0
       DO jj = 2, jpj               ! ice U.V-point: computed from ice T-point mask
-         DO ji = 2, jpim1
+         DO ji = 2, jpim1   ! NO vector opt.
             tmu(ji,jj) =  tms(ji,jj) * tms(ji-1,jj) * tms(ji,jj-1) * tms(ji-1,jj-1)            
          END DO