Changeset 12167
- Timestamp:
- 2019-12-11T10:10:28+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/ENHANCE-02_ISF_nemo/src/OCE/TRA/tranxt.F90
r11987 r12167 330 330 ENDIF 331 331 ! 332 ! solar penetration (temperature only) 333 IF( ll_traqsr .AND. jn == jp_tem .AND. jk <= nksr ) & 334 & ztc_f = ztc_f - zfact1 * ( qsr_hc(ji,jj,jk) - qsr_hc_b(ji,jj,jk) ) 335 ! 332 336 IF( ll_rnf .AND. jk <= nk_rnf(ji,jj) ) & 333 337 & ztc_f = ztc_f - zfact1 * ( rnf_tsc(ji,jj,jn) - rnf_tsc_b(ji,jj,jn) ) & 334 338 & * e3t_n(ji,jj,jk) / h_rnf(ji,jj) 335 !336 ! solar penetration (temperature only)337 IF( ll_traqsr .AND. jn == jp_tem .AND. jk <= nksr ) &338 & ztc_f = ztc_f - zfact1 * ( qsr_hc(ji,jj,jk) - qsr_hc_b(ji,jj,jk) )339 339 ! 340 340 ! ice shelf
Note: See TracChangeset
for help on using the changeset viewer.