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