_RL SEAICE_gamma_t, SEAICE_gamma_t_frz
& SEAICE_gamma_t, SEAICE_gamma_t_frz,
SEAICE_gamma_t_frz = UNSET_RL
& SEAICE_gamma_t_frz .NE. UNSET_RL ) THEN
IF ( SEAICE_gamma_t_frz .EQ. 0. _d 0 ) THEN
ELSEIF ( SEAICE_gamma_t_frz .NE. UNSET_RL ) THEN
SEAICE_availHeatFracFrz = SEAICE_deltaTtherm/SEAICE_gamma_t_frz