Changeset 12495 for NEMO/branches/2020/dev_r12472_ASINTER-05_Masson_CurrentFeedback/src/OCE/BDY/bdyice.F90
- Timestamp:
- 2020-03-02T09:10:34+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r12472_ASINTER-05_Masson_CurrentFeedback/src/OCE/BDY/bdyice.F90
r11536 r12495 179 179 180 180 ! Then, a) transfer the snow excess into the ice (different from icethd_dh) 181 zdh = MAX( 0._wp, ( rhos * h_s(ji,jj,jl) + ( rhoi - r au0 ) * h_i(ji,jj,jl) ) * r1_rau0 )181 zdh = MAX( 0._wp, ( rhos * h_s(ji,jj,jl) + ( rhoi - rho0 ) * h_i(ji,jj,jl) ) * r1_rho0 ) 182 182 ! Or, b) transfer all the snow into ice (if incoming ice is likely to melt as it comes into a warmer environment) 183 183 !zdh = MAX( 0._wp, h_s(ji,jj,jl) * rhos / rhoi )
Note: See TracChangeset
for help on using the changeset viewer.