_RL SEAICE_EPS, SEAICE_EPS_SQ
& SEAICE_EPS, SEAICE_EPS_SQ
IF ( AAA .LE. SEAICE_EPS_SQ ) THEN
IF ( DELT1 .LE. SEAICE_EPS_SQ ) THEN
IF ( tmpscal1 .LE. SEAICE_EPS_SQ ) THEN
IF ( tmpscal4 .LE. SEAICE_EPS_SQ ) THEN
IF ( tmpscal0 .LE. SEAICE_EPS_SQ ) THEN
IF ( SPEED_SQ .LE. SEAICE_EPS_SQ ) THEN
& SEAICE_EPS, SEAICE_EPS_SQ,
SEAICE_EPS_SQ = -99999.
IF ( SEAICE_EPS_SQ .EQ. -99999. )
& SEAICE_EPS_SQ = SEAICE_EPS * SEAICE_EPS
CALL WRITE_0D_RL( SEAICE_EPS_SQ ,INDEX_NONE,