& SEAICEuseEVPpickup,
IF ( SEAICEuseEVP .AND. SEAICEuseEVPpickup ) THEN
& SEAICEwriteState, SEAICEuseEVPpickup,
SEAICEuseEVPpickup = .TRUE.
CALL WRITE_0D_L ( SEAICEuseEVPpickup, INDEX_NONE,