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