The Lebedev ice model
authors: Adolf Stips and Karsten Bolding
https://agupubs.onlinelibrary.wiley.com/doi/10.1002/2016JC012199
Constants provided by Adolf Stips
| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| real(kind=rk), | private | :: | lebedev_fac | = | 1.33_rk | ||
| real(kind=rk), | private | :: | damp_leb_swr | = | -1.6_rk | ||
| real(kind=rk), | private | :: | damp_leb_wind | = | -1.6_rk | ||
| real(kind=rk), | private | :: | damp_leb_shf | = | -1.6_rk | ||
| real(kind=rk), | private | :: | freeze_fac | = | -0.0575_rk | ||
| real(kind=rk), | private | :: | lebedev_albedo | = | 0.545 |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(inout) | :: | ice_cover |
Calculate ice thickness according to Lebedev 1938
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(inout) | :: | ice_cover | |||
| real(kind=rk), | intent(in) | :: | dt | |||
| real(kind=rk), | intent(inout) | :: | Tw | |||
| real(kind=rk), | intent(in) | :: | S | |||
| real(kind=rk), | intent(in) | :: | Ta | |||
| real(kind=rk), | intent(in) | :: | precip |