_RL SEAICE_evpAlpha, SEAICE_evpBeta
& SEAICE_evpAlpha, SEAICE_evpBeta,
denom1 = SEAICE_evpAlpha / ( SEAICE_evpAlpha + 1. _d 0 )
denom2 = SEAICE_evpAlpha / ( SEAICE_evpAlpha + ecc2 )
IF ( SEAICE_evpAlpha .GT. 0. _d 0 )
& recip_evpAlpha = 1. _d 0 / SEAICE_evpAlpha
fac = 0.25 _d 0 * SEAICE_evpDampC * SEAICE_evpAlpha
SEAICE_evpAlpha = UNSET_RL
IF ( SEAICE_evpAlpha .EQ. UNSET_RL ) THEN
SEAICE_evpAlpha = 2. _d 0 * SEAICE_evpTauRelax/SEAICE_deltaTevp
SEAICE_evpTauRelax = 0.5 _d 0 *SEAICE_evpAlpha*SEAICE_deltaTevp
CALL WRITE_0D_RL( SEAICE_evpAlpha ,INDEX_NONE,