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