- Timestamp:
- 2019-08-05T19:14:52+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/ENHANCE-02_ISF_nemo/src/OCE/TRA/tranxt.F90
r11395 r11403 316 316 ztc_f = ztc_f - zfact1 * ( psbc_tc(ji,jj,jn) - psbc_tc_b(ji,jj,jn) ) 317 317 ENDIF 318 ! 319 ! river runoff 318 320 IF( ln_rnf_depth ) THEN 319 321 ! Rivers are not just at the surface must go down to nk_rnf(ji,jj) … … 327 329 ENDIF 328 330 ENDIF 329 331 ! 332 IF( ll_rnf .AND. jk <= nk_rnf(ji,jj) ) & 333 & ztc_f = ztc_f - zfact1 * ( rnf_tsc(ji,jj,jn) - rnf_tsc_b(ji,jj,jn) ) & 334 & * e3t_n(ji,jj,jk) / h_rnf(ji,jj) 330 335 ! 331 336 ! solar penetration (temperature only) 332 337 IF( ll_traqsr .AND. jn == jp_tem .AND. jk <= nksr ) & 333 338 & ztc_f = ztc_f - zfact1 * ( qsr_hc(ji,jj,jk) - qsr_hc_b(ji,jj,jk) ) 334 ! 335 ! river runoff 336 IF( ll_rnf .AND. jk <= nk_rnf(ji,jj) ) & 337 & ztc_f = ztc_f - zfact1 * ( rnf_tsc(ji,jj,jn) - rnf_tsc_b(ji,jj,jn) ) & 338 & * e3t_n(ji,jj,jk) / h_rnf(ji,jj) 339 ! 339 ! 340 340 ! ice shelf 341 341 IF( ll_isf ) THEN
Note: See TracChangeset
for help on using the changeset viewer.