_RL SEAICE_availHeatFrac, SEAICE_availHeatFracFrz
& SEAICE_availHeatFrac, SEAICE_availHeatFracFrz,
availHeat(i,j) = SEAICE_availHeatFracFrz
SEAICE_availHeatFracFrz = UNSET_RL
IF ( SEAICE_availHeatFracFrz .NE. UNSET_RL .AND.
IF ( SEAICE_availHeatFracFrz .EQ. UNSET_RL ) THEN
SEAICE_availHeatFracFrz = SEAICE_availHeatFrac
SEAICE_availHeatFracFrz = 1. _d 0
SEAICE_availHeatFracFrz = SEAICE_deltaTtherm/SEAICE_gamma_t_frz