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 1779 for trunk – NEMO

Changeset 1779 for trunk


Ignore:
Timestamp:
2009-11-27T14:27:10+01:00 (14 years ago)
Author:
rblod
Message:

Correct vector optimisation in dynspg_ts, see ticket #621

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r1739 r1779  
    260260# if defined key_vectopt_loop 
    261261      DO jj = 1, 1 
    262          DO ji = jpi+2, jpij-jpi-1   ! vector opt. (forced unrolling) 
     262         DO ji = 1, jpij-jpi   ! vector opt. (forced unrolling) 
    263263# else 
    264264      DO jj = 2, jpjm1 
Note: See TracChangeset for help on using the changeset viewer.