Changeset 1694 for trunk/NEMO/LIM_SRC_2/limtrp_2.F90

Timestamp:

2009-10-30T17:06:23+01:00 (15 years ago)

Author:

smasson

Message:

avoid out of bounds access, see ticket:576

File:

• trunk/NEMO/LIM_SRC_2/limtrp_2.F90 (modified) (1 diff)

trunk/NEMO/LIM_SRC_2/limtrp_2.F90

@@ -109 +109 @@
          zvbord = 1.0 + ( 1.0 - bound )
          DO jj = 1, jpjm1
-            DO ji = 1, jpim1
+            DO ji = 1, jpim1   ! NO vector opt.
                zui_u(ji,jj) = ( u_ice(ji+1,jj  ) + u_ice(ji+1,jj+1) ) / ( MAX( tmu(ji+1,jj  ) + tmu(ji+1,jj+1), zvbord ) )
                zvi_v(ji,jj) = ( v_ice(ji  ,jj+1) + v_ice(ji+1,jj+1) ) / ( MAX( tmu(ji  ,jj+1) + tmu(ji+1,jj+1), zvbord ) )