Changeset 10511 for NEMO/trunk/src/ICE/icethd.F90
- Timestamp:
- 2019-01-14T19:21:49+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/ICE/icethd.F90
r10425 r10511 152 152 ! --- Sensible ocean-to-ice heat flux (mostly>0 but <0 if supercooling, W/m2) 153 153 zfric_u = MAX( SQRT( zfric(ji,jj) ), zfric_umin ) 154 qsb_ice_bot(ji,jj) = rswitch * rau0 * rcp * zch 154 qsb_ice_bot(ji,jj) = rswitch * rau0 * rcp * zch * zfric_u * ( ( sst_m(ji,jj) + rt0 ) - t_bo(ji,jj) ) ! W.m-2 155 155 156 156 qsb_ice_bot(ji,jj) = rswitch * MIN( qsb_ice_bot(ji,jj), - zqfr_neg * r1_rdtice / MAX( at_i(ji,jj), epsi10 ) )
Note: See TracChangeset
for help on using the changeset viewer.