Changeset 1427 for branches

Timestamp:

2009-05-07T16:07:32+02:00 (15 years ago)

Author:

rblod

Message:

dev_004_VVL:sync: synchro with trunk (r1414), see ticket #380

File:

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

branches/dev_004_VVL/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  )   &