Changeset 13425


Ignore:
Timestamp:
2020-08-21T16:46:00+02:00 (5 months ago)
Author:
smueller
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/NERC/dev_release-3.4_NEMOTAM_consolidated/NEMOGCM/NEMO/OPATAM_SRC/TRA/traadv_tam.F90

    r4595 r13425  
    3232   USE wrk_nemo 
    3333   USE timing 
     34   USE traadv_eiv 
    3435 
    3536   IMPLICIT NONE 
     
    101102      zvntl(:,:,jpk) = 0._wp                                                     ! no transport trough the bottom 
    102103      zwntl(:,:,jpk) = 0._wp                                                     ! no transport trough the bottom 
     104      IF( lk_traldf_eiv .AND. .NOT. ln_traldf_grif ) & 
     105         & CALL tra_adv_eiv( kt, nit000, zun, zvn, zwn, 'TRA' )                  ! include eddy-induced transport 
    103106      ! 
    104107      IF ( kt == nit000 ) THEN 
     
    156159      zvn(:,:,jpk) = 0._wp                                                     ! no transport trough the bottom 
    157160      zwn(:,:,jpk) = 0._wp                                                     ! no transport trough the bottom 
     161      IF( lk_traldf_eiv .AND. .NOT. ln_traldf_grif ) & 
     162         & CALL tra_adv_eiv( kt, nit000, zun, zvn, zwn, 'TRA' )                ! include eddy-induced transport 
    158163      ! 
    159164      IF ( kt == nitend ) THEN 
Note: See TracChangeset for help on using the changeset viewer.