IF ( dumpAdVarExch.EQ.1 ) THEN
IF (dumpAdVarExch.NE.2 .AND. .NOT.dumpAdByRec) THEN
ELSEIF (dumpAdVarExch.NE.2 .AND. .NOT.dumpAdByRec) THEN
IF (dumpAdVarExch.EQ.2) THEN
INTEGER dumpAdVarExch
& dumpAdVarExch, mon_AdVarExch, SEAICEapproxLevInAd
IF ( dumpAdVarExch.NE.2 ) THEN
IF ( ( dumpAdVarExch.NE.2 ).AND.(.NOT.dumpAdByRec) ) THEN
ELSEIF ( ( dumpAdVarExch.NE.2 ).AND.(dumpAdByRec) ) THEN
IF ( dumpAdVarExch.EQ.2 ) THEN
CALL WRITE_0D_I( dumpAdVarExch, INDEX_NONE,
& dumpAdVarExch, mon_AdVarExch,
dumpAdVarExch = 2