INTEGER MPSEUDOTIMESTEPS
PARAMETER (MPSEUDOTIMESTEPS=2)
IF ( SEAICEnonLinIterMax .GT. MPSEUDOTIMESTEPS ) THEN
& MPSEUDOTIMESTEPS, SEAICEnonLinIterMax
DO ipass=1,MPSEUDOTIMESTEPS
itmpkey = (ikey_dynamics-1)*MPSEUDOTIMESTEPS + ipass