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