Changeset 13425 for NEMO/branches/NERC

Timestamp:

2020-08-21T16:46:00+02:00 (4 years ago)

Author:

smueller

Message:

Inclusion of advective transport due to eddy-induced velocities of the nonlinear-model trajectory

File:

• NEMO/branches/NERC/dev_release-3.4_NEMOTAM_consolidated/NEMOGCM/NEMO/OPATAM_SRC/TRA/traadv_tam.F90 (modified) (3 diffs)

NEMO/branches/NERC/dev_release-3.4_NEMOTAM_consolidated/NEMOGCM/NEMO/OPATAM_SRC/TRA/traadv_tam.F90

@@ -32 +32 @@
    USE wrk_nemo
    USE timing
+   USE traadv_eiv
 
    IMPLICIT NONE
@@ -101 +102 @@
       zvntl(:,:,jpk) = 0._wp                                                     ! no transport trough the bottom
       zwntl(:,:,jpk) = 0._wp                                                     ! no transport trough the bottom
+      IF( lk_traldf_eiv .AND. .NOT. ln_traldf_grif ) &
+         & CALL tra_adv_eiv( kt, nit000, zun, zvn, zwn, 'TRA' )                  ! include eddy-induced transport
       !
       IF ( kt == nit000 ) THEN
@@ -156 +159 @@
       zvn(:,:,jpk) = 0._wp                                                     ! no transport trough the bottom
       zwn(:,:,jpk) = 0._wp                                                     ! no transport trough the bottom
+      IF( lk_traldf_eiv .AND. .NOT. ln_traldf_grif ) &
+         & CALL tra_adv_eiv( kt, nit000, zun, zvn, zwn, 'TRA' )                ! include eddy-induced transport
       !
       IF ( kt == nitend ) THEN