_RL SEAICE_frazilFrac, SEAICE_availHeatFrac
& SEAICE_frazilFrac, SEAICE_availHeatFrac,
IF ( ( SEAICE_frazilFrac .LT. 0. _d 0 ) .OR.
& ( SEAICE_frazilFrac .GT. 1. _d 0 ) ) THEN
tmpscal1 =SEAICE_frazilFrac*drF(kSurface)/SEAICE_deltaTtherm
& SEAICE_mcPheePiston, SEAICE_frazilFrac, SEAICE_mcPheeTaper,
SEAICE_frazilFrac = UNSET_RL
IF ( SEAICE_frazilFrac .EQ. UNSET_RL ) THEN
SEAICE_frazilFrac = SEAICE_deltaTtherm/SEAICE_gamma_t_frz
SEAICE_frazilFrac = SEAICE_availHeatFracFrz
& SEAICE_frazilFrac .EQ. UNSET_RL ) THEN
SEAICE_frazilFrac = SEAICE_deltaTtherm/SEAICE_gamma_t
SEAICE_frazilFrac = SEAICE_availHeatFrac
SEAICE_frazilFrac = 1. _d 0
CALL WRITE_0D_RL ( SEAICE_frazilFrac, INDEX_NONE,