Changeset 11773
- Timestamp:
- 2019-10-23T16:04:49+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/UKMO/NEMO_4.0_fix_cpl_oce_only/src/ICE/icethd_zdf_bl99.F90
r11081 r11773 89 89 REAL(wp) :: zg1 = 2._wp ! 90 90 REAL(wp) :: zgamma = 18009._wp ! for specific heat 91 REAL(wp) :: zbeta = 0.1 17_wp ! for thermal conductivity (could be 0.13)91 REAL(wp) :: zbeta = 0.13_wp ! for thermal conductivity (could be 0.13) 92 92 REAL(wp) :: zraext_s = 10._wp ! extinction coefficient of radiation in the snow 93 93 REAL(wp) :: zkimin = 0.10_wp ! minimum ice thermal conductivity
Note: See TracChangeset
for help on using the changeset viewer.