Changeset 10104
- Timestamp:
- 2018-09-07T15:20:38+02:00 (6 years ago)
- Location:
- NEMO/branches/2018/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO
- Files:
-
- 1 added
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2018/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/TOP_SRC/TRP/trcadv_crs.F90
r6772 r10104 18 18 USE trc ! ocean passive tracers variables 19 19 USE trcnam_trp ! passive tracers transport namelist variables 20 USE traadv_cen2 ! 2nd order centered scheme (tra_adv_cen2 routine)21 20 USE traadv_tvd_crs ! TVD scheme (tra_adv_tvd routine) 22 USE traadv_muscl ! MUSCL scheme (tra_adv_muscl routine) 23 USE traadv_muscl2 ! MUSCL2 scheme (tra_adv_muscl2 routine) 24 USE traadv_ubs ! UBS scheme (tra_adv_ubs routine) 25 USE traadv_qck ! QUICKEST scheme (tra_adv_qck routine) 26 USE traadv_eiv ! eddy induced velocity (tra_adv_eiv routine) 21 USE traadv_ubs_crs ! TVD scheme (tra_adv_tvd routine) 27 22 USE ldftra_oce ! lateral diffusion coefficient on tracers 28 23 USE prtctl_trc ! Print control … … 108 103 zwn(:,:,jpk) = 0.e0 ! no transport trough the bottom 109 104 110 IF( lk_traldf_eiv .AND. .NOT. ln_traldf_grif ) & ! add the eiv transport (if necessary)111 & CALL tra_adv_eiv( kt, nittrc000, zun, zvn, zwn, 'TRC' )112 105 ! 113 106 SELECT CASE ( nadv ) !== compute advection trend and add it to general trend ==! 114 107 CASE ( 2 ) ; CALL tra_adv_tvd_crs ( kt, nittrc000, 'TRC', r2dt, zun, zvn, zwn, trb, trn, tra, jptra ) ! TVD 108 CASE ( 5 ) ; CALL tra_adv_ubs_crs ( kt, nittrc000, 'TRC', r2dt, zun, zvn, zwn, trb, trn, tra, jptra ) ! UBS 115 109 ! 116 110 CASE (-1 ) !== esopa: test all possibility with control print ==! -
NEMO/branches/2018/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/TOP_SRC/oce_trc.F90
r8894 r10104 195 195 USE crs , ONLY : tmask_i => tmask_i_crs !: Interior mask at t-points 196 196 USE crs , ONLY : tmask => tmask_crs !: land/ocean mask at t-points 197 USE crs , ONLY : umask => umask_crs !: land/ocean mask at u-points 198 USE crs , ONLY : vmask => vmask_crs !: land/ocean mask at v-points 199 197 200 198 201 !* ocean fields: here now and after fields *
Note: See TracChangeset
for help on using the changeset viewer.