PTRACERS_useKPP(iTracer) = PTRACERS_useKPP(iTracer)
CALL WRITE_0D_L( PTRACERS_useKPP(iTracer), INDEX_NONE,
& PTRACERS_useKPP,
PTRACERS_useKPP(iTracer)=useKPP
IF ( PTRACERS_useKPP(iTr) ) THEN
I PTRACERS_useGMRedi(iTracer),PTRACERS_useKPP(iTracer),
LOGICAL PTRACERS_useKPP(PTRACERS_num)