PTRACERS_diffKr(iTracer)=UNSET_RL
IF ( PTRACERS_diffKr(iTracer).NE.UNSET_RL ) THEN
PTRACERS_diffKrNr(k,iTracer)=PTRACERS_diffKr(iTracer)
_RL PTRACERS_diffKr(PTRACERS_num)
& PTRACERS_diffKr,