Symbol Description Uses
fct 5



File Line number Procedure Code
./pkg/thsice/thsice_solve4temp.F 105 THSICE_SOLVE4TEMP
      _RL  fct           ! heat conducted to top surface
./pkg/thsice/thsice_solve4temp.F 282 THSICE_SOLVE4TEMP
      fct    = k12*(Tsf-Tice(1))
./pkg/thsice/thsice_solve4temp.F 297 THSICE_SOLVE4TEMP
      sHeating = flx0 - fct
./pkg/thsice/thsice_solve4temp.F 303 THSICE_SOLVE4TEMP
     &    flx0,fct,flx0-fct,flxCnB