Changeset 4610 for trunk/NEMOGCM/NEMO/TOP_SRC/TRP/trcadv.F90
- Timestamp:
- 2014-03-31T15:19:34+02:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/TOP_SRC/TRP/trcadv.F90
r3718 r4610 24 24 USE traadv_qck ! QUICKEST scheme (tra_adv_qck routine) 25 25 USE traadv_eiv ! eddy induced velocity (tra_adv_eiv routine) 26 USE traadv_mle ! ML eddy induced velocity (tra_adv_mle routine) 26 27 USE ldftra_oce ! lateral diffusion coefficient on tracers 27 28 USE prtctl_trc ! Print control … … 100 101 ! 101 102 END DO 102 zwn(:,:,jpk) = 0.e0 ! no transport trough the bottom 103 ! 104 IF( ln_vvl_ztilde .OR. ln_vvl_layer ) THEN 105 zun(:,:,:) = zun(:,:,:) + un_td(:,:,:) 106 zvn(:,:,:) = zvn(:,:,:) + vn_td(:,:,:) 107 ENDIF 108 ! 109 zun(:,:,jpk) = 0._wp ! no transport trough the bottom 110 zvn(:,:,jpk) = 0._wp ! no transport trough the bottom 111 zwn(:,:,jpk) = 0._wp ! no transport trough the bottom 103 112 104 113 IF( lk_traldf_eiv .AND. .NOT. ln_traldf_grif ) & ! add the eiv transport (if necessary) 105 114 & CALL tra_adv_eiv( kt, nittrc000, zun, zvn, zwn, 'TRC' ) 115 ! 116 IF( ln_mle ) CALL tra_adv_mle( kt, nittrc000, zun, zvn, zwn, 'TRC' ) ! add the mle transport (if necessary) 106 117 ! 107 118 SELECT CASE ( nadv ) !== compute advection trend and add it to general trend ==!
Note: See TracChangeset
for help on using the changeset viewer.