Changeset 1525

Timestamp:

2009-07-22T15:42:07+02:00 (15 years ago)

Author:

ctlod

Message:

correct an out-of-bounds when accessing to array tmod_io, see ticket: #439

File:

• trunk/NEMO/LIM_SRC_3/limsbc.F90 (modified) (1 diff)

trunk/NEMO/LIM_SRC_3/limsbc.F90

@@ -112 +112 @@
          CALL lbc_lnk( tmod_io, 'T', 1. )
          ! ... ice stress over ocean with a ice-ocean rotation angle
-         DO jj = 1, jpj
+         DO jj = 1, jpjm1
             ! ... change the sinus angle sign in the south hemisphere
             zsang  = SIGN(1.e0, gphif(1,jj) ) * sangvg
-            DO ji = 1, jpi
+            DO ji = 1, fs_jpim1
                ! ... ice velocity relative to the ocean
                zu_u = u_ice(ji,jj) - u_oce(ji,jj)