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