Changeset 2569

Timestamp:

2011-01-27T14:38:42+01:00 (14 years ago)

Author:

gm

Message:

v3.3 beta: correct a bug in changeset 2463 in zdfhde

File:

• trunk/NEMOGCM/NEMO/OPA_SRC/TRA/zpshde.F90 (modified) (1 diff)

trunk/NEMOGCM/NEMO/OPA_SRC/TRA/zpshde.F90

@@ -104 +104 @@
             DO ji = 1, jpim1
 # endif
-               iku = mbku(ji,jj)   ;   ikum1 = MAX( iku , 1 )        ! last and before last ocean level at u- & v-points
-               ikv = mbkv(ji,jj)   ;   ikvm1 = MAX( ikv , 1 )        ! if level first is a p-step, ik.m1=1
+               iku = mbku(ji,jj)   ;   ikum1 = MAX( iku - 1 , 1 )    ! last and before last ocean level at u- & v-points
+               ikv = mbkv(ji,jj)   ;   ikvm1 = MAX( ikv - 1 , 1 )    ! if level first is a p-step, ik.m1=1
                ze3wu = fse3w(ji+1,jj  ,iku) - fse3w(ji,jj,iku)
                ze3wv = fse3w(ji  ,jj+1,ikv) - fse3w(ji,jj,ikv)