check for ice albdeos out of range (0 to 1)
2007/04/11 Fix for thin ice negative ice albedos from Mike Winton Move ai calculation after if test
check for ice albdeos out of range (0 to 1)
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| real(kind=rk), | intent(out) | :: | alb | |||
| real(kind=rk), | intent(out) | :: | pen | |||
| real(kind=rk), | intent(out) | :: | trn | |||
| real(kind=rk), | intent(in) | :: | hs | |||
| real(kind=rk), | intent(in) | :: | hi | |||
| real(kind=rk), | intent(in) | :: | ts | |||
| real(kind=rk), | intent(in) | :: | tfw |