| Symbol | Description | Uses |
| frsnow | fractional snow cover | 7 |
| File | Line number | Procedure | Code |
| ./pkg/thsice/thsice_solve4temp.F | 148 | THSICE_SOLVE4TEMP |
_RL frsnow |
| ./pkg/thsice/thsice_solve4temp.F | 255 | THSICE_SOLVE4TEMP |
frsnow = 1. _d 0 |
| ./pkg/thsice/thsice_solve4temp.F | 257 | THSICE_SOLVE4TEMP |
frsnow = hSnow(i,j)*recip_dhSnowLin/iceMask(i,j) |
| ./pkg/thsice/thsice_solve4temp.F | 258 | THSICE_SOLVE4TEMP |
IF ( frsnow.GT.0. _d 0 ) frsnow = SQRT(frsnow) |
| ./pkg/thsice/thsice_solve4temp.F | 262 | THSICE_SOLVE4TEMP |
fswpen = flxSW(i,j) * (1. _d 0 - frsnow) * i0swFrac |