_RL SEAICE_frazilFrac, SEAICE_availHeatFrac
& SEAICE_frazilFrac, SEAICE_availHeatFrac,
IF ( SEAICE_availHeatFrac.NE.UNSET_RL ) THEN
SEAICE_mcPheePiston = SEAICE_availHeatFrac
& SEAICE_availHeatFrac, SEAICE_availHeatFracFrz, SEAICE_PDF,
SEAICE_availHeatFrac = UNSET_RL
IF ( SEAICE_availHeatFrac.NE.UNSET_RL .AND.
SEAICE_frazilFrac = SEAICE_availHeatFrac
IF ( SEAICE_availHeatFrac.EQ.UNSET_RL ) THEN
SEAICE_availHeatFrac = SEAICE_deltaTtherm/SEAICE_gamma_t
& SEAICE_availHeatFrac.NE. UNSET_RL ) THEN