Changeset 12188
- Timestamp:
- 2019-12-11T16:20:57+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/UKMO/NEMO_4.0.1_remove_leads_botm/src/ICE/icethd_dh.F90
r11715 r12188 144 144 ! 145 145 DO ji = 1, npti 146 zf_tt(ji) = qcn_ice_bot_1d(ji) + qsb_ice_bot_1d(ji) + fhld_1d(ji)146 zf_tt(ji) = qcn_ice_bot_1d(ji) + qsb_ice_bot_1d(ji) 147 147 zq_bot(ji) = MAX( 0._wp, zf_tt(ji) * rdt_ice ) 148 148 END DO
Note: See TracChangeset
for help on using the changeset viewer.