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