& multiDimAdvection, useMultiDimAdvec,
LOGICAL useMultiDimAdvec
IF ( useMultiDimAdvec .OR.
useMultiDimAdvec = useMultiDimAdvec.OR.tempMultiDimAdvec
useMultiDimAdvec = useMultiDimAdvec.OR.saltMultiDimAdvec
IF ( useCubedSphereExchange .AND. useMultiDimAdvec ) THEN
& .AND. useMultiDimAdvec ) THEN
CALL WRITE_0D_L( useMultiDimAdvec, INDEX_NONE,
useMultiDimAdvec = useMultiDimAdvec
useMultiDimAdvec = .FALSE.