Changeset 1779


Ignore:
Timestamp:
2009-11-27T14:27:10+01:00 (12 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.