Symbol Description Uses
fct heat conducted to top surface 5



File Line number Procedure Code
./pkg/thsice/thsice_solve4temp.F 161 THSICE_SOLVE4TEMP
      _RL  fct
./pkg/thsice/thsice_solve4temp.F 537 THSICE_SOLVE4TEMP
          fct    = k12(i,j)*(Tsf(i,j)-tIc1(i,j))
./pkg/thsice/thsice_solve4temp.F 553 THSICE_SOLVE4TEMP
          sHeat(i,j) = flxNet - fct
./pkg/thsice/thsice_solve4temp.F 558 THSICE_SOLVE4TEMP
     &                    flxNet,fct,flxNet-fct,flxCnB(i,j)