- Timestamp:
- 2017-08-08T15:58:05+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/iceistate.F90
r8413 r8422 307 307 ! This case below should not be used if (ht_s/ht_i) is ok in namelist 308 308 ! In case snow load is in excess that would lead to transformation from snow to ice 309 ! Then, transfer the snow excess into the ice (different from limthd_dh)309 ! Then, transfer the snow excess into the ice (different from icethd_dh) 310 310 zdh = MAX( 0._wp, ( rhosn * ht_s(ji,jj,jl) + ( rhoic - rau0 ) * ht_i(ji,jj,jl) ) * r1_rau0 ) 311 311 ! recompute ht_i, ht_s avoiding out of bounds values
Note: See TracChangeset
for help on using the changeset viewer.