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