INTEGER SEAICEnewtonIterMax, SEAICEkrylovIterMax
& SEAICEnewtonIterMax, SEAICEkrylovIterMax,
DO WHILE ( newtonIter.LT.SEAICEnewtonIterMax .AND.
& SEAICEnewtonIterMax*(myIter-nIter0)+newtonIter
IF ( newtonIter .EQ. SEAICEnewtonIterMax ) THEN
& SEAICEuseJFNK, SEAICEnewtonIterMax, SEAICEkrylovIterMax,
SEAICEnewtonIterMax = 10
& SEAICE_JFNK_lsIter = 2*SEAICEnewtonIterMax
CALL WRITE_0D_I ( SEAICEnewtonIterMax, INDEX_NONE,