LOGICAL useSEAICEinAdMode, useSEAICEinFwdMode
& useSEAICEinAdMode, useSEAICEinFwdMode,
useSEAICE = useSEAICEinAdMode
useSEAICEinAdMode = useSEAICEinAdMode .AND. useSEAICE
if (useSEAICEinFwdMode.AND.(.NOT.useSEAICEinAdMode))
if (useSEAICEinAdMode)
CALL WRITE_0D_L( useSEAICEinAdMode, INDEX_NONE,
& useSEAICEinAdMode, useSmoothCorrel2DinAdMode,
useSEAICEinAdMode = .TRUE.