& SEAICEuseEVP, SEAICEuseEVPstar, SEAICEuseEVPrev,
IF ( SEAICEuseEVP ) THEN
IF ( SEAICEuseJFNK .AND. SEAICEuseEVP ) THEN
IF ( SEAICEuseFREEDRIFT .OR. SEAICEuseEVP
IF ( SEAICEuseEVP .AND. SEAICEuseEVPpickup ) THEN
SEAICEuseEVP = .FALSE.
IF ( SEAICE_deltaTevp .NE. UNSET_RL ) SEAICEuseEVP = .TRUE.
IF ( SEAICEuseEVPstar.OR.SEAICEuseEVPrev ) SEAICEuseEVP = .TRUE.
IF ( SEAICEuseFREEDRIFT ) SEAICEuseEVP = .FALSE.
SEAICEuseLSR = .NOT.SEAICEuseFREEDRIFT .AND. .NOT.SEAICEuseEVP
CALL WRITE_0D_L ( SEAICEuseEVP, INDEX_NONE,
IF (.NOT.SEAICEuseEVP) THEN