_RL SEAICE_elasticParm, SEAICE_evpTauRelax
& SEAICE_deltaTevp, SEAICE_elasticParm, SEAICE_evpTauRelax,
IF ( SEAICE_evpTauRelax .GT. 0. _d 0 )
& recip_evp_tau=1. _d 0/SEAICE_evpTauRelax
fac = HALF * SEAICE_evpDampC * SEAICE_evpTauRelax
SEAICE_evpTauRelax = -1. _d 0
IF ( SEAICE_evpTauRelax .LE. 0. _d 0 )
& SEAICE_evpTauRelax = SEAICE_deltaTdyn*SEAICE_elasticParm
CALL WRITE_0D_RL( SEAICE_evpTauRelax ,INDEX_NONE,