Changeset 1694 for trunk/NEMO/LIM_SRC_3/limmsh.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_3/limmsh.F90 (modified) (1 diff)

trunk/NEMO/LIM_SRC_3/limmsh.F90

@@ -104 +104 @@
       tmv(:,:) = vmask(:,:,1)             ! ice V-point  : use surface vmask  (C-grid EVP)
       DO jj = 1, jpjm1                    ! ice F-point  : recompute fmask (due to nn_shlat)
-         DO ji = 1 , jpim1
+         DO ji = 1 , jpim1   ! NO vector opt.
             tmf(ji,jj) =  tms(ji,jj) * tms(ji+1,jj) * tms(ji,jj+1) * tms(ji+1,jj+1)
          END DO