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