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