_RL SEAICE_mcPheeTaper, SEAICE_mcPheePiston
& SEAICE_mcPheeTaper, SEAICE_mcPheePiston,
IF ( ( SEAICE_mcPheeTaper .LT. 0. _d 0 ) .OR.
& ( SEAICE_mcPheeTaper .GT. 1. _d 0 ) ) THEN
& SEAICE_mcPheeTaper * AREApreTH(I,J)
MixedLayerTurbulenceFactor = ONE - SEAICE_mcPheeTaper
& SEAICE_mcPheePiston, SEAICE_frazilFrac, SEAICE_mcPheeTaper,
SEAICE_mcPheeTaper = UNSET_RL
IF ( SEAICE_mcPheeTaper .EQ. UNSET_RL ) THEN
SEAICE_mcPheeTaper = 0.0 _d 0
SEAICE_mcPheeTaper = SEAICE_availHeatTaper
CALL WRITE_0D_RL ( SEAICE_mcPheeTaper, INDEX_NONE,