_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 ( SPEED_SQ .LE. SEAICE_EPS_SQ ) THEN
SEAICE_EPS_SQ = -99999.
IF ( SEAICE_EPS_SQ .EQ. -99999. )
& SEAICE_EPS_SQ = SEAICE_EPS * SEAICE_EPS
& SEAICE_EPS, SEAICE_EPS_SQ,