& PTRACERS_ImplVertAdv,
LOGICAL PTRACERS_ImplVertAdv(PTRACERS_num)
CALL WRITE_0D_L( PTRACERS_ImplVertAdv(iTracer), INDEX_NONE,
IF ( PTRACERS_ImplVertAdv(iTracer) ) THEN
I PTRACERS_ImplVertAdv(iTracer),
I calcAdvection, PTRACERS_ImplVertAdv(iTracer),
IF ( PTRACERS_ImplVertAdv(iTracer) .OR. implicitDiffusion ) THEN
PTRACERS_ImplVertAdv(iTracer) = .FALSE.