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 1173 for trunk/NEMO/LIM_SRC_2/limsbc_2.F90 – NEMO

Ignore:
Timestamp:
2008-09-11T11:30:39+02:00 (16 years ago)
Author:
ctlod
Message:

repalce fs_2/fs_jpim1 (associated to the key_vectopt_loop cpp key) with respectively 2/jpim1 to avoid an array overflow when computing wind stress in limsbc_2.F90

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/NEMO/LIM_SRC_2/limsbc_2.F90

    r1156 r1173  
    192192 
    193193         DO jj = 2, jpjm1 
    194             DO ji = fs_2, fs_jpim1   ! vertor opt. 
     194            DO ji = 2, jpim1 
    195195               ! ... ice-cover wheighted ice-ocean stress at U and V-points  (from I-point values) 
    196196               zutau  = 0.5 * ( ztio_u(ji+1,jj) + ztio_u(ji+1,jj+1) ) 
Note: See TracChangeset for help on using the changeset viewer.