IF ( .NOT.PTRACERS_useGMRedi(iTr) ) THEN
& ' pTracers_useGMRedi(',iTr,' )=', PTRACERS_useGMRedi(iTr)
LOGICAL PTRACERS_useGMRedi(PTRACERS_num)
& PTRACERS_useGMRedi,
CALL WRITE_0D_L( PTRACERS_useGMRedi(iTracer), INDEX_NONE,
IF ( PTRACERS_useGMRedi(iTracer) .AND. .NOT.useGMRedi ) THEN
I PTRACERS_useGMRedi(iTracer), PTRACERS_useKPP(iTracer),
I PTRACERS_useGMRedi(iTracer),
PTRACERS_useGMRedi(iTracer)=useGMRedi