Ignore:
Timestamp:
2009-10-30T17:06:23+01:00 (11 years ago)
Author:
smasson
Message:

avoid out of bounds access, see ticket:576

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMO/OPA_SRC/DOM/dommsk.F90

    r1601 r1694  
    213213               vmask(ji,jj,jk) = tmask(ji,jj  ,jk) * tmask(ji  ,jj+1,jk) 
    214214            END DO 
    215             DO ji = 1, jpim1  
     215            DO ji = 1, jpim1      ! NO vector opt. 
    216216               fmask(ji,jj,jk) = tmask(ji,jj  ,jk) * tmask(ji+1,jj  ,jk)   & 
    217217                  &            * tmask(ji,jj+1,jk) * tmask(ji+1,jj+1,jk) 
Note: See TracChangeset for help on using the changeset viewer.