- Timestamp:
- 2013-04-09T18:34:38+02:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2013/dev_r3858_NOC_ZTC/NEMOGCM/NEMO/OPA_SRC/TRA/traadv.F90
r3718 r3865 14 14 USE oce ! ocean dynamics and active tracers 15 15 USE dom_oce ! ocean space and time domain 16 USE domvvl ! variable vertical scale factors 16 17 USE traadv_cen2 ! 2nd order centered scheme (tra_adv_cen2 routine) 17 18 USE traadv_tvd ! TVD scheme (tra_adv_tvd routine) … … 92 93 zwn(:,:,jk) = e1t(:,:) * e2t(:,:) * wn(:,:,jk) 93 94 END DO 95 ! 96 IF( ln_vvl_ztilde .OR. ln_vvl_layer ) THEN 97 zun(:,:,:) = zun(:,:,:) + un_td(:,:,:) 98 zvn(:,:,:) = zvn(:,:,:) + vn_td(:,:,:) 99 ENDIF 100 ! 94 101 zun(:,:,jpk) = 0._wp ! no transport trough the bottom 95 102 zvn(:,:,jpk) = 0._wp ! no transport trough the bottom
Note: See TracChangeset
for help on using the changeset viewer.