Changeset 3659

Timestamp:

2012-11-26T14:26:29+01:00 (11 years ago)

Author:

pabouttier

Message:

Use ikum1 and ikvm1 in zpshde_tam - See ticket #1023

File:

• branches/2012/dev_r3604_LEGI8_TAM/NEMOGCM/NEMO/OPATAM_SRC/TRA/zpshde_tam.F90 (modified) (3 diffs)

branches/2012/dev_r3604_LEGI8_TAM/NEMOGCM/NEMO/OPATAM_SRC/TRA/zpshde_tam.F90

@@ -151 +151 @@
                      &       + zmaxu * ( pta(ji+1,jj,ikum1,jn) - pta(ji+1,jj,iku,jn) )
                   ztitl(ji,jj,jn) = pta_tl(ji+1,jj,iku,jn)       &
-                     &         + zmaxu * ( pta_tl(ji+1,jj,iku-1,jn) - pta_tl(ji+1,jj,iku,jn) )
+                     &         + zmaxu * ( pta_tl(ji+1,jj,ikum1,jn) - pta_tl(ji+1,jj,iku,jn) )
                   ! gradient of T and S
                   pgtu_tl(ji,jj,jn) = umask(ji,jj,1) * ( ztitl(ji,jj,jn) - pta_tl(ji,jj,iku,jn) )
@@ -170 +170 @@
                   zmaxv =  ze3wv / fse3w(ji,jj+1,ikv)
                   ztj(ji,jj,jn) = pta(ji,jj+1,ikv,jn)            &
-                     &       + zmaxv * ( pta(ji,jj+1,ikv-1,jn) - pta(ji,jj+1,ikv,jn) )
+                     &       + zmaxv * ( pta(ji,jj+1,ikvm1,jn) - pta(ji,jj+1,ikv,jn) )
                   ! interpolated values of tangent T and S
                   ztjtl(ji,jj,jn) = pta_tl(ji,jj+1,ikv,jn)       &
-                     &         + zmaxv * ( pta_tl(ji,jj+1,ikv-1,jn) - pta_tl(ji,jj+1,ikv,jn) )
+                     &         + zmaxv * ( pta_tl(ji,jj+1,ikvm1,jn) - pta_tl(ji,jj+1,ikv,jn) )
                   ! gradient of T and S
                   pgtv_tl(ji,jj,jn) = vmask(ji,jj,1) * ( ztjtl(ji,jj,jn) - pta_tl(ji,jj,ikv,jn) )
@@ -180 +180 @@
                   ! interpolated values of T and S
                   ztj(ji,jj,jn) = pta(ji,jj,ikv,jn)       &
-                     &       + zmaxv * ( pta(ji,jj,ikv-1,jn) - pta(ji,jj,ikv,jn) )
+                     &       + zmaxv * ( pta(ji,jj,ikvm1,jn) - pta(ji,jj,ikv,jn) )
                   ! interpolated values of T and S
                   ztjtl(ji,jj,jn) = pta_tl(ji,jj,ikv,jn)  &
-                     &         + zmaxv * ( pta_tl(ji,jj,ikv-1,jn) - pta_tl(ji,jj,ikv,jn) )
+                     &         + zmaxv * ( pta_tl(ji,jj,ikvm1,jn) - pta_tl(ji,jj,ikv,jn) )
                   ! gradient of T and S
                   pgtv_tl(ji,jj,jn) = vmask(ji,jj,1) * ( pta_tl(ji,jj+1,ikv,jn) - ztjtl(ji,jj,jn) )