| Symbol | Description | Uses |
| frac_energy | fraction of energy going to melting (=0 for no fract. ice) | 8 |
| File | Line number | Procedure | Code |
| ./pkg/thsice/THSICE_PARAMS.h | 116 | NO PROCEDURE |
_RL frac_energy |
| ./pkg/thsice/THSICE_PARAMS.h | 80 | NO PROCEDURE |
& frac_energy, hihig |
| ./pkg/thsice/thsice_calc_thickn.F | 176 | THSICE_CALC_THICKN |
frace=frac_energy |
| ./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_readparms.F | 118 | THSICE_READPARMS |
frac_energy= .4 _d 0 |
| ./pkg/thsice/thsice_readparms.F | 232 | THSICE_READPARMS |
WRITE(iUnit,*) 'ThSI: frac_energy',frac_energy |
| ./pkg/thsice/thsice_readparms.F | 59 | THSICE_READPARMS |
& frac_energy, hihig |