_RL SEAICE_evpAlpha, SEAICE_evpBeta
& SEAICE_evpAlpha, SEAICE_evpBeta,
betaFac = SEAICE_evpBeta*recip_deltaT
SEAICE_evpBeta = UNSET_RL
IF ( SEAICE_evpBeta .EQ. UNSET_RL ) THEN
SEAICE_evpBeta = SEAICE_deltaTdyn/SEAICE_deltaTevp
SEAICE_deltaTevp = SEAICE_deltaTdyn/SEAICE_evpBeta
CALL WRITE_0D_RL( SEAICE_evpBeta ,INDEX_NONE,