- Timestamp:
- 2018-11-07T12:41:14+01:00 (6 years ago)
- Location:
- NEMO/branches/UKMO/2018_NEMO4_beta_mirror_10037_Benchmark/src/OCE/ZDF
- Files:
-
- 2 edited
- 1 copied
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/UKMO/2018_NEMO4_beta_mirror_10037_Benchmark/src/OCE/ZDF/zdf_oce.F90
r9950 r10283 38 38 LOGICAL , PUBLIC :: ln_zdfswm !: surface wave-induced mixing flag 39 39 LOGICAL , PUBLIC :: ln_zdfiwm !: internal wave-induced mixing flag 40 LOGICAL , PUBLIC :: ln_zdftmx !: old tidal mixing scheme (Simmons et al 2004) 40 41 ! ! coefficients 41 42 REAL(wp), PUBLIC :: rn_avm0 !: vertical eddy viscosity (m2/s) -
NEMO/branches/UKMO/2018_NEMO4_beta_mirror_10037_Benchmark/src/OCE/ZDF/zdfphy.F90
r9950 r10283 22 22 USE zdfevd ! vertical physics: convection via enhanced vertical diffusion 23 23 USE zdfiwm ! vertical physics: internal wave-induced mixing 24 USE zdftmx ! vertical physics: old tidal mixing scheme (Simmons et al 2004) 24 25 USE zdfswm ! vertical physics: surface wave-induced mixing 25 26 USE zdfmxl ! vertical physics: mixed layer … … 80 81 & ln_zdfswm, & ! surface wave-induced mixing 81 82 & ln_zdfiwm, & ! internal - - - 83 & ln_zdftmx, & ! old tidal mixing scheme (Simmons et al 2004) 82 84 & rn_avm0, rn_avt0, nn_avb, nn_havtb ! coefficients 83 85 !!---------------------------------------------------------------------- … … 198 200 ! !== gravity wave-driven mixing ==! 199 201 IF( ln_zdfiwm ) CALL zdf_iwm_init ! internal wave-driven mixing 202 IF( ln_zdftmx ) CALL zdf_tmx_init ! old tidal mixing scheme (Simmons et al) 200 203 IF( ln_zdfswm ) CALL zdf_swm_init ! surface wave-driven mixing 201 204 … … 284 287 IF( ln_zdfswm ) CALL zdf_swm( kt, avm, avt, avs ) ! surface wave (Qiao et al. 2004) 285 288 IF( ln_zdfiwm ) CALL zdf_iwm( kt, avm, avt, avs ) ! internal wave (de Lavergne et al 2017) 289 IF( ln_zdftmx ) CALL zdf_tmx( kt, avm, avt, avs ) ! old tidal mixing scheme (Simmons et al 2004) 286 290 287 291 #if defined key_agrif
Note: See TracChangeset
for help on using the changeset viewer.