CALL WRITE_0D_R8( SEAICE_EPS ,INDEX_NONE,
UG(I,J)=SEAICE_EPS
& SEAICE_EPS, SEAICE_EPS_SQ
_RL SEAICE_EPS, SEAICE_EPS_SQ
AAA=SEAICE_EPS
DELT2=SEAICE_EPS
SEAICE_EPS = 1. _d -10
& SEAICE_EPS_SQ = SEAICE_EPS * SEAICE_EPS
& SEAICE_EPS, SEAICE_EPS_SQ,