Symbol Description Uses
fct heat conducted to top surface 5



File Line number Procedure Code
./pkg/thsice/thsice_solve4temp.F 164 THSICE_SOLVE4TEMP
      _RL  fct
./pkg/thsice/thsice_solve4temp.F 449 THSICE_SOLVE4TEMP
      fct    = k12*(Tsf-Tice(1))
./pkg/thsice/thsice_solve4temp.F 464 THSICE_SOLVE4TEMP
      sHeat(i,j) = flx0 - fct
./pkg/thsice/thsice_solve4temp.F 472 THSICE_SOLVE4TEMP
     &                 flx0,fct,flx0-fct,flxCnB(i,j)