_RL SEAICE_availHeatFrac, SEAICE_availHeatFracFrz
& SEAICE_availHeatFrac, SEAICE_availHeatFracFrz,
a_QbyOCN(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