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