_RL SEAICE_elasticParm, SEAICE_evpTauRelax
& SEAICE_deltaTevp, SEAICE_elasticParm, SEAICE_evpTauRelax,
SEAICE_elasticParm = 0.33333333333333333333333333 _d 0
IF ( SEAICE_elasticParm .LE. 0. _d 0 ) THEN
& SEAICE_evpTauRelax = SEAICE_deltaTdyn*SEAICE_elasticParm
CALL WRITE_0D_RL( SEAICE_elasticParm ,INDEX_NONE,