Changeset 1173


Ignore:
Timestamp:
2008-09-11T11:30:39+02:00 (12 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.