Changeset 9997 for NEMO/branches/UKMO/dev_r9950_old_tidal_mixing/src/OCE/ZDF/zdfphy.F90

Timestamp:

2018-07-25T10:24:01+02:00 (6 years ago)

Author:

davestorkey

Message:

UKMO dev_r9950_old_tidal_mixing branch: commit changes.

File:

• NEMO/branches/UKMO/dev_r9950_old_tidal_mixing/src/OCE/ZDF/zdfphy.F90 (modified) (4 diffs)

NEMO/branches/UKMO/dev_r9950_old_tidal_mixing/src/OCE/ZDF/zdfphy.F90

@@ -22 +22 @@
    USE zdfevd         ! vertical physics: convection via enhanced vertical diffusion  
    USE zdfiwm         ! vertical physics: internal wave-induced mixing  
+   USE zdftmx         ! vertical physics: old tidal mixing scheme (Simmons et al 2004)
    USE zdfswm         ! vertical physics: surface  wave-induced mixing
    USE zdfmxl         ! vertical physics: mixed layer
@@ -80 +81 @@
          &             ln_zdfswm,                                    &     ! surface  wave-induced mixing
          &             ln_zdfiwm,                                    &     ! internal  -      -      -
+         &             ln_zdftmx,                                    &     ! old tidal mixing scheme (Simmons et al 2004)
          &             rn_avm0, rn_avt0, nn_avb, nn_havtb                  ! coefficients
       !!----------------------------------------------------------------------
@@ -198 +200 @@
       !                          !== gravity wave-driven mixing  ==!
       IF( ln_zdfiwm )   CALL zdf_iwm_init       ! internal wave-driven mixing
+      IF( ln_zdftmx )   CALL zdf_tmx_init       ! old tidal mixing scheme (Simmons et al)
       IF( ln_zdfswm )   CALL zdf_swm_init       ! surface  wave-driven mixing
 
@@ -284 +287 @@
       IF( ln_zdfswm )   CALL zdf_swm( kt, avm, avt, avs )   ! surface  wave (Qiao et al. 2004) 
       IF( ln_zdfiwm )   CALL zdf_iwm( kt, avm, avt, avs )   ! internal wave (de Lavergne et al 2017)
+      IF( ln_zdftmx )   CALL zdf_tmx( kt, avm, avt, avs )   ! old tidal mixing scheme (Simmons et al 2004)
 
 #if defined key_agrif