Changeset 1414

Timestamp:

2009-04-24T14:19:08+02:00 (15 years ago)

Author:

rblod

Message:

Array out of bound with key_vectopt_loop and lim2, see ticket #380

File:

• trunk/NEMO/OPA_SRC/SBC/sbcblk_core.F90 (modified) (1 diff)

trunk/NEMO/OPA_SRC/SBC/sbcblk_core.F90

@@ -410 +410 @@
 !CDIR NOVERRCHK
          DO jj = 2, jpjm1
-            DO ji = fs_2, fs_jpim1
+            DO ji = 2, jpim1   ! B grid : no vector opt
                ! ... scalar wind at I-point (fld being at T-point)
                zwndi_f = 0.25 * (  sf(jp_wndi)%fnow(ji-1,jj  ) + sf(jp_wndi)%fnow(ji  ,jj  )   &