picardTol = 0. _d 0
picardConverged = picardResidual.LT.picardTol
picardTol=SEAICEnonLinTol*picardResidual
_RL picardTol