Changeset 9531 for branches/2017/dev_merge_2017/NEMOGCM/NEMO/TOP_SRC/TRP
- Timestamp:
- 2018-04-30T16:59:01+02:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_merge_2017/NEMOGCM/NEMO/TOP_SRC/TRP/trcadv.F90
r9526 r9531 25 25 USE traadv_ubs ! UBS scheme (tra_adv_ubs routine) 26 26 USE traadv_qck ! QUICKEST scheme (tra_adv_qck routine) 27 USE tra adv_mle ! ML eddy induced velocity(tra_adv_mle routine)27 USE tramle ! ML eddy induced transport (tra_adv_mle routine) 28 28 USE ldftra ! lateral diffusion: eddy diffusivity & EIV coeff. 29 29 USE ldfslp ! Lateral diffusion: slopes of neutral surfaces … … 116 116 & CALL ldf_eiv_trp( kt, nittrc000, zun, zvn, zwn, 'TRC' ) ! add the eiv transport 117 117 ! 118 IF( ln_mle ) CALL tra_ adv_mle( kt, nittrc000, zun, zvn, zwn, 'TRC' ) ! add the mle transport118 IF( ln_mle ) CALL tra_mle_trp( kt, nittrc000, zun, zvn, zwn, 'TRC' ) ! add the mle transport 119 119 ! 120 120 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.