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


File Line number Procedure Code
./pkg/thsice/thsice_solve4temp.F 160 THSICE_SOLVE4TEMP 
      _RL  fswpen
./pkg/thsice/thsice_solve4temp.F 281 THSICE_SOLVE4TEMP 
          fswpen = flxSW(i,j) * (1. _d 0 - frsnow) * i0swFrac
./pkg/thsice/thsice_solve4temp.F 282 THSICE_SOLVE4TEMP 
          fswocn = fswpen * exp(-ksolar*hIce(i,j))
./pkg/thsice/thsice_solve4temp.F 283 THSICE_SOLVE4TEMP 
          fswint = fswpen - fswocn
./pkg/thsice/thsice_solve4temp.F 284 THSICE_SOLVE4TEMP 
          fswdn  = flxSW(i,j) - fswpen