& SEAICEwriteState, SEAICEuseDYNAMICS, SEAICEuseEVP,
IF ( SEAICEuseEVP ) THEN
IF ( SEAICEuseEVP .AND. SEAICEuseEVPpickup ) THEN
SEAICEuseEVP = .FALSE.
IF ( SEAICE_deltaTevp .NE. UNSET_RL ) SEAICEuseEVP = .TRUE.
CALL WRITE_0D_L ( SEAICEuseEVP, INDEX_NONE,