Changeset 3389 for trunk/NEMOGCM/NEMO/OPA_SRC/TRA

Timestamp:

2012-05-14T16:52:22+02:00 (12 years ago)

Author:

agn

Message:

Correct ei factors for mass flux in diawri.F90 & for w eiv in trldf_iso_grif.F90

File:

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

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

@@ -225 +225 @@
             DO jj = 2, jpjm1
                DO ji = fs_2, fs_jpim1  ! vector opt.
-                  zw3d(ji,jj,jk) = (psiy_eiv(ji,jj,jk) - psiy_eiv(ji,jj-1,jk))/e2v(ji,jj) + &
-                       &    (psix_eiv(ji,jj,jk) - psix_eiv(ji-1,jj,jk))/e1u(ji,jj) ! w_eiv = dpsiy/dy + dpsiy/dx
+                  zw3d(ji,jj,jk) = (psiy_eiv(ji,jj,jk) - psiy_eiv(ji,jj-1,jk))/e2t(ji,jj) + &
+                       &    (psix_eiv(ji,jj,jk) - psix_eiv(ji-1,jj,jk))/e1t(ji,jj) ! w_eiv = dpsiy/dy + dpsiy/dx
                END DO
             END DO