Symbol Description Uses
fswpen SW penetrating beneath surface (W m-2) 5


File Line number Procedure Code
./pkg/thsice/thsice_solve4temp.F 149 THSICE_SOLVE4TEMP 
      _RL  fswpen
./pkg/thsice/thsice_solve4temp.F 262 THSICE_SOLVE4TEMP 
          fswpen = flxSW(i,j) * (1. _d 0 - frsnow) * i0swFrac
./pkg/thsice/thsice_solve4temp.F 263 THSICE_SOLVE4TEMP 
          fswocn = fswpen * exp(-ksolar*hIce(i,j))
./pkg/thsice/thsice_solve4temp.F 264 THSICE_SOLVE4TEMP 
          fswint = fswpen - fswocn
./pkg/thsice/thsice_solve4temp.F 265 THSICE_SOLVE4TEMP 
          fswdn  = flxSW(i,j) - fswpen