- Timestamp:
- 2017-04-03T10:17:15+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_medusa_fix_restart/NEMOGCM/NEMO/TOP_SRC/TRP/trctrp.F90
r7850 r7865 14 14 !!---------------------------------------------------------------------- 15 15 USE oce_trc ! ocean dynamics and active tracers variables 16 USE dom_oce, ONLY: e3w_n, gdep3w_n, gdept_n 16 17 USE trc ! ocean passive tracers variables 17 18 USE trcnam_trp ! passive tracers transport namelist variables … … 84 85 85 86 IF( ln_zps .AND. .NOT. ln_isfcav) & 86 & CALL zps_hde ( kstp, jptra, trn, gtru, gtrv ) ! Partial steps: now horizontal gradient of passive 87 & CALL zps_hde ( kstp, jptra, trn, e3w_n, gdept_n, & 88 & gtru, gtrv ) ! Partial steps: now horizontal gradient of passive 87 89 IF( ln_zps .AND. ln_isfcav) & 88 & CALL zps_hde_isf( kstp, jptra, trn, pgtu=gtru, pgtv=gtrv, pgtui=gtrui, pgtvi=gtrvi ) ! Partial steps: now horizontal gradient of passive 90 & CALL zps_hde_isf( kstp, jptra, trn, & 91 & e3w_n, gdept_n, gdep3w_n, & 92 & pgtu=gtru, pgtv=gtrv, pgtui=gtrui, pgtvi=gtrvi ) ! Partial steps: now horizontal gradient of passive 89 93 ! tracers at the bottom ocean level 90 94 !
Note: See TracChangeset
for help on using the changeset viewer.