Symbol Description Uses
frace 9


File Line number Procedure Code
./pkg/thsice/thsice_calc_thickn.F 117 THSICE_CALC_THICKN 
      _RL  frace, rs, hq
./pkg/thsice/thsice_calc_thickn.F 174 THSICE_CALC_THICKN 
       frace=1. _d 0
./pkg/thsice/thsice_calc_thickn.F 176 THSICE_CALC_THICKN 
       frace=frac_energy
./pkg/thsice/thsice_calc_thickn.F 180 THSICE_CALC_THICKN 
       frace=0. _d 0
./pkg/thsice/thsice_calc_thickn.F 182 THSICE_CALC_THICKN 
       frace=frac_energy
./pkg/thsice/thsice_calc_thickn.F 185 THSICE_CALC_THICKN 
      if (frac_energy.eq.0. _d 0) frace=0. _d 0
./pkg/thsice/thsice_calc_thickn.F 189 THSICE_CALC_THICKN 
          etop = (1. _d 0-frace)*sHeating * dt
./pkg/thsice/thsice_calc_thickn.F 190 THSICE_CALC_THICKN 
          etope = frace*sHeating * dt
./pkg/thsice/thsice_calc_thickn.F 210 THSICE_CALC_THICKN 
         ebote = frace*ebot