_RL SEAICE_mcPheeTaper, SEAICE_mcPheePiston
& SEAICE_mcPheeTaper, SEAICE_mcPheePiston,
IF ( SEAICE_mcPheePiston .LT. 0. _d 0 .OR.
& SEAICE_mcPheePiston .GT. SEAICE_mcphee_max ) THEN
& SEAICE_mcPheePiston/drF(1)*SEAICE_deltaTtherm
tmpscal1 = SEAICE_mcPheePiston
IF ( SEAICE_mcPheePiston.EQ.UNSET_RL ) THEN
SEAICE_mcPheePiston = SEAICE_availHeatFrac
SEAICE_mcPheePiston = MCPHEE_TAPER_FAC
SEAICE_mcPheePiston = MIN( SEAICE_mcPheePiston,
& SEAICE_mcPheePiston, SEAICE_frazilFrac, SEAICE_mcPheeTaper,
SEAICE_mcPheePiston = UNSET_RL
IF ( SEAICE_mcPheePiston .NE. UNSET_RL .AND.
CALL WRITE_0D_RL ( SEAICE_mcPheePiston, INDEX_NONE,