Changeset 7359 for branches/2016/dev_INGV_UKMO_2016/NEMOGCM/NEMO/OPA_SRC/TRA

Timestamp:

2016-11-28T18:44:31+01:00 (7 years ago)

Author:

emanuelaclementi

Message:

#1805 updated nomenclature in 2016/dev_INGV_UKMO_2016

File:

• branches/2016/dev_INGV_UKMO_2016/NEMOGCM/NEMO/OPA_SRC/TRA/traadv.F90 (modified) (2 diffs)

branches/2016/dev_INGV_UKMO_2016/NEMOGCM/NEMO/OPA_SRC/TRA/traadv.F90

@@ -108 +108 @@
       IF( ln_wave .AND. ln_sdw )  THEN
          DO jk = 1, jpkm1
-            zun(:,:,jk) = e2u(:,:) * fse3u(:,:,jk) *      &
+            zun(:,:,jk) = e2u(:,:) * e3u_n(:,:,jk) *      &
                         &  ( un(:,:,jk) + usd3d(:,:,jk) )                       ! eulerian transport + Stokes Drift
-            zvn(:,:,jk) = e1v(:,:) * fse3v(:,:,jk) *      &
+            zvn(:,:,jk) = e1v(:,:) * e3v_n(:,:,jk) *      &
                         &  ( vn(:,:,jk) + vsd3d(:,:,jk) )
             zwn(:,:,jk) = e1e2t(:,:) *                    &
@@ -117 +117 @@
       ELSE
          DO jk = 1, jpkm1
-            zun(:,:,jk) = e2u  (:,:) * fse3u(:,:,jk) * un(:,:,jk)               ! eulerian transport only
-            zvn(:,:,jk) = e1v  (:,:) * fse3v(:,:,jk) * vn(:,:,jk)
+            zun(:,:,jk) = e2u  (:,:) * e3u_n(:,:,jk) * un(:,:,jk)               ! eulerian transport only
+            zvn(:,:,jk) = e1v  (:,:) * e3v_n(:,:,jk) * vn(:,:,jk)
             zwn(:,:,jk) = e1e2t(:,:)                 * wn(:,:,jk)
          END DO