- Timestamp:
- 2019-04-05T16:48:35+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/UKMO/dev_r10037_GPU/src/OCE/ZDF/zdfphy.F90
r10843 r10846 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.