| 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 | 119 | NO PROCEDURE |
_RL frac_energy |
| ./pkg/thsice/THSICE_PARAMS.h | 82 | NO PROCEDURE |
& frac_energy, hihig |
| ./pkg/thsice/thsice_calc_thickn.F | 243 | THSICE_CALC_THICKN |
frace=frac_energy |
| ./pkg/thsice/thsice_calc_thickn.F | 249 | THSICE_CALC_THICKN |
frace=frac_energy |
| ./pkg/thsice/thsice_calc_thickn.F | 252 | THSICE_CALC_THICKN |
IF (frac_energy.EQ.0. _d 0) frace=0. _d 0 |
| ./pkg/thsice/thsice_readparms.F | 120 | THSICE_READPARMS |
frac_energy= .4 _d 0 |
| ./pkg/thsice/thsice_readparms.F | 252 | THSICE_READPARMS |
WRITE(iUnit,*) 'ThSI: frac_energy',frac_energy |
| ./pkg/thsice/thsice_readparms.F | 60 | THSICE_READPARMS |
& frac_energy, hihig |