INTEGER SEAICEapproxLevInAd
& dumpAdVarExch, mon_AdVarExch, SEAICEapproxLevInAd
IF ( SEAICEapproxLevInAd.NE.0 ) THEN
SEAICEadjMODE=SEAICEapproxLevInAd
& SEAICEapproxLevInAd=MIN(SEAICEapproxLevInAd,0)
& SEAICEapproxLevInAd=MAX(SEAICEapproxLevInAd,0)
CALL WRITE_0D_I( SEAICEapproxLevInAd, INDEX_NONE,
& inAdExact, SEAICEapproxLevInAd, viscFacInAd,
SEAICEapproxLevInAd = 0