Changeset 3395 for branches/CMIP5_IPSL/NEMO

Timestamp:

2012-05-16T10:41:48+02:00 (12 years ago)

Author:

cetlod

Message:

CMIP5_IPSL branch:Correct ei factors for mass flux in diawri.F90

File:

• branches/CMIP5_IPSL/NEMO/OPA_SRC/DIA/diawri.F90 (modified) (2 diffs)

branches/CMIP5_IPSL/NEMO/OPA_SRC/DIA/diawri.F90

@@ -136 +136 @@
          z3d(:,:,jpk) = 0.e0
          DO jk = 1, jpkm1
-            z3d(:,:,jk) = rau0 * un(:,:,jk) * e1u(:,:) * fse3u(:,:,jk)
+            z3d(:,:,jk) = rau0 * un(:,:,jk) * e2u(:,:) * fse3u(:,:,jk)
          END DO
          CALL iom_put( "u_masstr", z3d )                  ! mass transport in i-direction
@@ -151 +151 @@
          CALL iom_put( "u_heattr", z2d )                  ! heat transport in i-direction
          DO jk = 1, jpkm1
-            z3d(:,:,jk) = rau0 * vn(:,:,jk) * e2v(:,:) * fse3v(:,:,jk)
+            z3d(:,:,jk) = rau0 * vn(:,:,jk) * e1v(:,:) * fse3v(:,:,jk)
          END DO
          CALL iom_put( "v_masstr", z3d )                  ! mass transport in j-direction