LOGICAL PTRACERS_SOM_Advection(PTRACERS_num)
& PTRACERS_SOM_Advection,
IF ( PTRACERS_SOM_Advection(iTracer) ) THEN
LOGICAL PTRACERS_SOM_Advection(PTRACERS_numInUse)
IF ( PTRACERS_SOM_Advection(iPtr) ) THEN
PTRACERS_SOM_Advection(iTracer) = .FALSE.
PTRACERS_SOM_Advection(iTracer) =
& PTRACERS_SOM_Advection(iTracer)