Symbol Description Uses
fswocn SW passed through ice to ocean (W m-2) 4


File Line number Procedure Code
./pkg/thsice/thsice_solve4temp.F 163 THSICE_SOLVE4TEMP 
      _RL  fswocn
./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 289 THSICE_SOLVE4TEMP 
          flxSW(i,j) = fswocn