Changeset 1347 for trunk/NEMO/LIM_SRC_2/limdyn_2.F90

Timestamp:

2009-03-30T17:29:37+02:00 (15 years ago)

Author:

rblod

Message:

Bug correction in lim2 with vector optimization, see ticket #380

File:

• trunk/NEMO/LIM_SRC_2/limdyn_2.F90 (modified) (2 diffs)

trunk/NEMO/LIM_SRC_2/limdyn_2.F90

@@ -152 +152 @@
          
          DO jj = 1, jpjm1
-            DO ji = 1, fs_jpim1   ! vector opt.
+            DO ji = 1, jpim1   ! NO vector opt.
                zu_io(ji,jj) = 0.5 * ( ui_ice(ji+1,jj+1) + ui_ice(ji+1,jj  ) ) - ssu_m(ji,jj)
                zv_io(ji,jj) = 0.5 * ( vi_ice(ji+1,jj+1) + vi_ice(ji  ,jj+1) ) - ssv_m(ji,jj)
@@ -159 +159 @@
          ! frictional velocity at T-point
          DO jj = 2, jpjm1
-            DO ji = fs_2, fs_jpim1   ! vector opt.
+            DO ji = 2, jpim1   ! NO vector opt.
                ust2s(ji,jj) = 0.5 * cw                                                          &
                   &         * (  zu_io(ji,jj) * zu_io(ji,jj) + zu_io(ji-1,jj) * zu_io(ji-1,jj)   &