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/LIM_SRC_2/limsbc_2.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/LIM_SRC_2/limsbc_2.F90

    r1550 r1694  
    258258 
    259259         DO jj = 2, jpjm1 
    260             DO ji = 2, jpim1 
     260            DO ji = 2, jpim1   ! NO vector opt. 
    261261               ! ... ice-cover wheighted ice-ocean stress at U and V-points  (from I-point values) 
    262262               zutau  = 0.5 * ( ztio_u(ji+1,jj) + ztio_u(ji+1,jj+1) ) 
Note: See TracChangeset for help on using the changeset viewer.