INTEGER nEVPstepMax
PARAMETER ( nEVPstepMax=180 )
IF ( INT(SEAICE_deltaTdyn/SEAICE_deltaTevp).GT.nEVPstepMax ) THEN
& SEAICEnEVPstarSteps.GT.nEVPstepMax ) THEN
nEVPstepMax = nEVPstep
DO iEVPstep = 1, nEVPstepMax
& (ikey_dynamics-1)*nEVPstepMax