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