Symbol Description Uses
fct heat conducted to top surface 5



File Line number Procedure Code
./pkg/thsice/thsice_solve4temp.F 173 THSICE_SOLVE4TEMP
      _RL  fct
./pkg/thsice/thsice_solve4temp.F 587 THSICE_SOLVE4TEMP
          fct    = k12(i,j)*(Tsf(i,j)-tIc1(i,j))
./pkg/thsice/thsice_solve4temp.F 607 THSICE_SOLVE4TEMP
          sHeat(i,j) = flxNet - fct
./pkg/thsice/thsice_solve4temp.F 612 THSICE_SOLVE4TEMP
     &                    flxNet,fct,flxNet-fct,flxCnB(i,j)