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