Changeset 1694 for trunk/NEMO/OPA_SRC/DYN/sshwzv.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/OPA_SRC/DYN/sshwzv.F90 (modified) (1 diff)

trunk/NEMO/OPA_SRC/DYN/sshwzv.F90

@@ -166 +166 @@
       IF( lk_vvl ) THEN                                ! (required only in key_vvl case)
          DO jj = 1, jpjm1
-            DO ji = 1, fs_jpim1   ! Vector Opt.
+            DO ji = 1, jpim1      ! NO Vector Opt.
                sshu_a(ji,jj) = 0.5  * umask(ji,jj,1) / ( e1u(ji  ,jj) * e2u(ji  ,jj) )                   &
                   &                                  * ( e1t(ji  ,jj) * e2t(ji  ,jj) * ssha(ji  ,jj)     &