Changeset 96

Timestamp:

2004-06-25T10:09:57+02:00 (20 years ago)

Author:

opalod

Message:

CT : BUGFIX062 : correction of a loop ji while using key_vectopt_loop cpp key

File:

• trunk/NEMO/OPA_SRC/ZDF/zdfevd.F90 (modified) (1 diff)

trunk/NEMO/OPA_SRC/ZDF/zdfevd.F90

@@ -72 +72 @@
 !!!         WHERE( rn2(:,:,jk) <= -1.e-12 ) avt(:,:,jk) = tmask(:,:,jk) * avevd   ! agissant sur T SEUL!
             jj = 1                     ! big loop forced
-            DO ji = jpj+1, jpij   
+            DO ji = jpi+2, jpij   
                IF( rn2(ji,jj,jk) <= -1.e-12 ) THEN
                   avt (ji  ,jj  ,jk) = avevd * tmask(ji  ,jj  ,jk)