Changeset 15573 for NEMO/branches/UKMO
- Timestamp:
- 2021-12-03T13:16:28+01:00 (2 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/UKMO/NEMO_4.0.4_supercool_cutoff/src/ICE/icethd.F90
r14075 r15573 171 171 qsb_ice_bot(ji,jj) = rswitch * MIN( qsb_ice_bot(ji,jj), - zqfr_neg * r1_rdtice / MAX( at_i(ji,jj), epsi10 ) ) 172 172 173 ! If conditions are always supercooled (such as at the mouth of ice-shelves), then ice grows continuously 174 ! ==> stop ice formation by artificially setting up the turbulent fluxes to 0 when volume > 20m (arbitrary) 175 IF( ( t_bo(ji,jj) - ( sst_m(ji,jj) + rt0 ) ) > 0._wp .AND. vt_i(ji,jj) >= 20._wp ) THEN 176 zqfr = 0._wp 177 zqfr_pos = 0._wp 178 qsb_ice_bot(ji,jj) = 0._wp 179 ENDIF 180 173 181 ! --- Energy Budget of the leads (qlead, J.m-2) --- ! 174 182 ! qlead is the energy received from the atm. in the leads.
Note: See TracChangeset
for help on using the changeset viewer.