LOGICAL PTRACERS_MultiDimAdv(PTRACERS_num)
& PTRACERS_MultiDimAdv,
ELSEIF ( PTRACERS_MultiDimAdv(iTracer) ) THEN
IF ( PTRACERS_MultiDimAdv(iTracer) ) THEN
PTRACERS_MultiDimAdv(iTracer) = multiDimAdvection
& ) PTRACERS_MultiDimAdv(iTracer) = .FALSE.
& .OR. PTRACERS_MultiDimAdv(iTracer)
calcAdvection = .NOT.PTRACERS_MultiDimAdv(iTracer)