| Symbol | Description | Uses |
| frsnow | fractional snow cover | 7 |
| File | Line number | Procedure | Code |
| ./pkg/thsice/thsice_solve4temp.F | 156 | THSICE_SOLVE4TEMP |
_RL frsnow |
| ./pkg/thsice/thsice_solve4temp.F | 246 | THSICE_SOLVE4TEMP |
frsnow = 1. _d 0 |
| ./pkg/thsice/thsice_solve4temp.F | 248 | THSICE_SOLVE4TEMP |
frsnow = hs*recip_dhSnowLin/iceMask(i,j) |
| ./pkg/thsice/thsice_solve4temp.F | 249 | THSICE_SOLVE4TEMP |
IF ( frsnow.GT.0. _d 0 ) frsnow = SQRT(frsnow) |
| ./pkg/thsice/thsice_solve4temp.F | 253 | THSICE_SOLVE4TEMP |
fswpen = netSW * (1. _d 0 - frsnow) * i0swFrac |