Changeset 10963 for NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps/src/TOP/TRP
- Timestamp:
- 2019-05-10T16:15:43+02:00 (5 years ago)
- Location:
- NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps/src/TOP/TRP
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps/src/TOP/TRP/trcdmp.F90
r10946 r10963 106 106 ! 107 107 jl = n_trc_index(jn) 108 CALL trc_dta( kt, sf_trcdta(jl), rf_trfac(jl), ztrcdta ) ! read tracer data at nit000108 CALL trc_dta( kt, Kmm, sf_trcdta(jl), rf_trfac(jl), ztrcdta ) ! read tracer data at nit000 109 109 ! 110 110 SELECT CASE ( nn_zdmp_tr ) … … 225 225 226 226 227 SUBROUTINE trc_dmp_clo( kt )227 SUBROUTINE trc_dmp_clo( kt, Kmm ) 228 228 !!--------------------------------------------------------------------- 229 229 !! *** ROUTINE trc_dmp_clo *** … … 238 238 !!---------------------------------------------------------------------- 239 239 INTEGER, INTENT( in ) :: kt ! ocean time-step index 240 INTEGER, INTENT( in ) :: Kmm ! time level indices 240 241 ! 241 242 INTEGER :: ji , jj, jk, jn, jl, jc ! dummy loop indicesa … … 355 356 IF( ln_trc_ini(jn) ) THEN ! update passive tracers arrays with input data read from file 356 357 jl = n_trc_index(jn) 357 CALL trc_dta( kt, sf_trcdta(jl), rf_trfac(jl), ztrcdta ) ! read tracer data at nit000358 CALL trc_dta( kt, Kmm, sf_trcdta(jl), rf_trfac(jl), ztrcdta ) ! read tracer data at nit000 358 359 DO jc = 1, npncts 359 360 DO jk = 1, jpkm1 -
NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps/src/TOP/TRP/trcnxt.F90
r10954 r10963 100 100 CALL lbc_lnk( 'trcnxt', tra(:,:,:,:), 'T', 1. ) 101 101 102 IF( ln_bdy ) CALL trc_bdy( kt )102 IF( ln_bdy ) CALL trc_bdy( kt, Kbb, Kmm, Krhs ) 103 103 104 104 IF( l_trdtrc ) THEN ! trends: store now fields before the Asselin filter application -
NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps/src/TOP/TRP/trctrp.F90
r10954 r10963 64 64 IF( ln_trabbl ) CALL trc_bbl ( kt, Kbb, Kmm, Krhs ) ! advective (and/or diffusive) bottom boundary layer scheme 65 65 IF( ln_trcdmp ) CALL trc_dmp ( kt, Kmm, Krhs ) ! internal damping trends 66 IF( ln_bdy ) CALL trc_bdy_dmp( kt )! BDY damping trends66 IF( ln_bdy ) CALL trc_bdy_dmp( kt, Kbb, Krhs ) ! BDY damping trends 67 67 CALL trc_adv ( kt, Kbb, Kmm, tr, Krhs ) ! horizontal & vertical advection 68 68 ! ! Partial top/bottom cell: GRADh( trb ) … … 79 79 CALL trc_zdf( kt, Kbb, Kmm, Krhs, tr, Kaa ) ! vert. mixing & after tracer ==> after 80 80 CALL trc_nxt ( kt, Kbb, Kmm, Krhs ) ! tracer fields at next time step 81 IF( ln_trcrad ) CALL trc_rad ( kt, Kmm, Krhs ) ! Correct artificial negative concentrations82 IF( ln_trcdmp_clo ) CALL trc_dmp_clo( kt ) ! internal damping trends on closed seas only81 IF( ln_trcrad ) CALL trc_rad ( kt, Kmm, Krhs ) ! Correct artificial negative concentrations 82 IF( ln_trcdmp_clo ) CALL trc_dmp_clo( kt, Kmm ) ! internal damping trends on closed seas only 83 83 84 84 !
Note: See TracChangeset
for help on using the changeset viewer.