LOGICAL tempMultiDimAdvec
& tempMultiDimAdvec, saltMultiDimAdvec,
tempMultiDimAdvec = multiDimAdvection .AND. tempAdvection
tempMultiDimAdvec = .FALSE.
useMultiDimAdvec = useMultiDimAdvec.OR.tempMultiDimAdvec
CALL WRITE_0D_L( tempMultiDimAdvec, INDEX_NONE,
ELSEIF (tempMultiDimAdvec) THEN
IF (tempMultiDimAdvec) THEN
calcAdvection = tempAdvection .AND. .NOT.tempMultiDimAdvec