Changeset 3786 for branches/CMIP5_IPSL/NEMO

Timestamp:

2013-02-10T12:57:04+01:00 (11 years ago)

Author:

gm

Message:

CMIP_IPSL branch: #1049 : bug correction (traadv_eiv.F90): diagnostic of the 2D i- & j-heat transports

File:

• branches/CMIP5_IPSL/NEMO/OPA_SRC/TRA/traadv_eiv.F90 (modified) (2 diffs)

branches/CMIP5_IPSL/NEMO/OPA_SRC/TRA/traadv_eiv.F90

@@ -150 +150 @@
             DO jj = 2, jpjm1
                DO ji = fs_2, fs_jpim1   ! vector opt.
-                  z2d(ji,jj) = z2d(ji,jj) + zztmp * u_eiv(ji,jj,jk) * (tn(ji,jj,jk)+tn(ji+1,jj,jk)) * e1u(ji,jj) * fse3u(ji,jj,jk) 
+                  z2d(ji,jj) = z2d(ji,jj) + zztmp * u_eiv(ji,jj,jk) * (tn(ji,jj,jk)+tn(ji+1,jj,jk)) * e2u(ji,jj) * fse3u(ji,jj,jk) 
                END DO
             END DO
@@ -160 +160 @@
             DO jj = 2, jpjm1
                DO ji = fs_2, fs_jpim1   ! vector opt.
-                  z2d(ji,jj) = z2d(ji,jj) + zztmp * v_eiv(ji,jj,jk) * (tn(ji,jj,jk)+tn(ji,jj+1,jk)) * e2v(ji,jj) * fse3v(ji,jj,jk) 
+                  z2d(ji,jj) = z2d(ji,jj) + zztmp * v_eiv(ji,jj,jk) * (tn(ji,jj,jk)+tn(ji,jj+1,jk)) * e1v(ji,jj) * fse3v(ji,jj,jk) 
                END DO
             END DO