IF ( .NOT.useSEAICE .AND. SEAICEadjMODE .EQ. -1 ) THEN
INTEGER SEAICEadjMODE
& SEAICEadjMODE,
IF ( SEAICEadjMODE.GE.3 ) THEN
IF ( SEAICEadjMODE.GE.2 ) tmpscal2 = 0. _d 0
if ( SEAICEadjMODE.GE.2 ) tmpscal2 = 0. _d 0
IF ( SEAICEadjMODE.GE.1 ) THEN
SEAICEadjMODE = 0
IF ( SEAICEadjMODE.EQ.0 ) THEN
IF ( SEAICEadjMODE.GE.2 ) THEN
IF ( postSolvTempIter.EQ.2 .OR. SEAICEadjMODE.GE.2 ) THEN
& 'SEAICEadjMODE =', SEAICEadjMODE
SEAICEadjMODE=SEAICEapproxLevInAd
SEAICEadjMODE=0