New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 1694 for trunk/NEMO/OPA_SRC/DYN/dynvor.F90 – NEMO

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

avoid out of bounds access, see ticket:576

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/NEMO/OPA_SRC/DYN/dynvor.F90

    r1601 r1694  
    614614         END DO 
    615615         DO jj = 3, jpj 
    616             DO ji = fs_2, jpi   ! vector opt. 
     616            DO ji = fs_2, jpi   ! vector opt. ok because we start at jj = 3 
    617617               ztne(ji,jj) = zwz(ji-1,jj  ) + zwz(ji  ,jj  ) + zwz(ji  ,jj-1) 
    618618               ztnw(ji,jj) = zwz(ji-1,jj-1) + zwz(ji-1,jj  ) + zwz(ji  ,jj  ) 
Note: See TracChangeset for help on using the changeset viewer.