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

trunk/NEMO/OPA_SRC/FLO/flodom.F90

@@ -104 +104 @@
 # if   defined key_mpp_mpi   ||   defined key_mpp_shmem
                DO ji = MAX(nldi,2), nlei
-                  DO jj = MAX(nldj,2), nlej
+                  DO jj = MAX(nldj,2), nlej   ! NO vector opt.
 # else
                DO ji = 2, jpi
-                  DO jj = 2, jpj
+                  DO jj = 2, jpj   ! NO vector opt.
 # endif                     
                      ! For each float we find the indexes of the mesh                      
@@ -235 +235 @@
 # if   defined key_mpp_mpi   ||   defined key_mpp_shmem
             DO ji = MAX(nldi,2), nlei
-               DO jj = MAX(nldj,2), nlej
+               DO jj = MAX(nldj,2), nlej   ! NO vector opt.
 # else
             DO ji = 2, jpi
-               DO jj = 2, jpj
+               DO jj = 2, jpj   ! NO vector opt.
 # endif                  
                   ! for each float we find the indexes of the mesh