New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 11474 for NEMO/branches/UKMO/NEMO_4.0_mirror_SI3_decoupled/src/OCE/ZDF/zdfphy.F90 – NEMO

Ignore:
Timestamp:
2019-08-27T18:23:50+02:00 (5 years ago)
Author:
andmirek
Message:

Ticket #2314 merge NEMO_4.0_old_tidal_mixing

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/UKMO/NEMO_4.0_mirror_SI3_decoupled/src/OCE/ZDF/zdfphy.F90

    r11081 r11474  
    2222   USE zdfevd         ! vertical physics: convection via enhanced vertical diffusion   
    2323   USE zdfiwm         ! vertical physics: internal wave-induced mixing   
     24   USE zdftmx         ! vertical physics: old tidal mixing scheme (Simmons et al 2004) 
    2425   USE zdfswm         ! vertical physics: surface  wave-induced mixing 
    2526   USE zdfmxl         ! vertical physics: mixed layer 
     
    8081         &             ln_zdfswm,                                    &     ! surface  wave-induced mixing 
    8182         &             ln_zdfiwm,                                    &     ! internal  -      -      - 
     83         &             ln_zdftmx,                                    &     ! old tidal mixing scheme (Simmons et al 2004) 
    8284         &             ln_zad_Aimp,                                  &     ! apdative-implicit vertical advection 
    8385         &             rn_avm0, rn_avt0, nn_avb, nn_havtb                  ! coefficients 
     
    207209      !                          !== gravity wave-driven mixing  ==! 
    208210      IF( ln_zdfiwm )   CALL zdf_iwm_init       ! internal wave-driven mixing 
     211      IF( ln_zdftmx )   CALL zdf_tmx_init       ! old tidal mixing scheme (Simmons et al) 
    209212      IF( ln_zdfswm )   CALL zdf_swm_init       ! surface  wave-driven mixing 
    210213 
     
    293296      IF( ln_zdfswm )   CALL zdf_swm( kt, avm, avt, avs )   ! surface  wave (Qiao et al. 2004)  
    294297      IF( ln_zdfiwm )   CALL zdf_iwm( kt, avm, avt, avs )   ! internal wave (de Lavergne et al 2017) 
     298      IF( ln_zdftmx )   CALL zdf_tmx( kt, avm, avt, avs )   ! old tidal mixing scheme (Simmons et al 2004) 
    295299 
    296300#if defined key_agrif  
Note: See TracChangeset for help on using the changeset viewer.