| Symbol | Description | Uses |
| fswpen | SW penetrating beneath surface (W m-2) | 5 |
| File | Line number | Procedure | Code |
| ./pkg/thsice/thsice_solve4temp.F | 157 | THSICE_SOLVE4TEMP |
_RL fswpen |
| ./pkg/thsice/thsice_solve4temp.F | 253 | THSICE_SOLVE4TEMP |
fswpen = netSW * (1. _d 0 - frsnow) * i0swFrac |
| ./pkg/thsice/thsice_solve4temp.F | 254 | THSICE_SOLVE4TEMP |
fswocn = fswpen * exp(-ksolar*hi) |
| ./pkg/thsice/thsice_solve4temp.F | 255 | THSICE_SOLVE4TEMP |
fswint = fswpen - fswocn |
| ./pkg/thsice/thsice_solve4temp.F | 257 | THSICE_SOLVE4TEMP |
fswdn = netSW - fswpen |