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


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