_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
etaDen = SQRT(MAX(SEAICE_EPS_SQ,etaDen))
etaDenC = SQRT(MAX(SEAICE_EPS_SQ,etaDenC))
etaDenZ = SQRT(MAX(SEAICE_EPS_SQ,etaDenZ))
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,