_RL SEAICE_elasticParm, SEAICE_evpTauRelax
& SEAICE_deltaTevp, SEAICE_elasticParm, SEAICE_evpTauRelax,
SEAICE_evpTauRelax = -1. _d 0
IF ( SEAICE_evpTauRelax .LE. 0. _d 0 )
& SEAICE_evpTauRelax = SEAICE_deltaTdyn*SEAICE_elasticParm
SEAICE_evpAlpha = 2. _d 0 * SEAICE_evpTauRelax/SEAICE_deltaTevp
SEAICE_evpTauRelax = 0.5 _d 0 *SEAICE_evpAlpha*SEAICE_deltaTevp
CALL WRITE_0D_RL( SEAICE_evpTauRelax ,INDEX_NONE,