& SEAICE_mcPheeStepFunc, SEAICE_gamma_t, SEAICE_gamma_t_frz,
SEAICE_gamma_t_frz = UNSET_RL
_RL SEAICE_gamma_t, SEAICE_gamma_t_frz, SEAICE_availHeatFracFrz
IF ( SEAICE_gamma_t_frz .NE. UNSET_RL ) THEN
SEAICE_frazilFrac = SEAICE_deltaTtherm/SEAICE_gamma_t_frz
IF ( SEAICE_gamma_t_frz .EQ. UNSET_RL ) THEN