CHARACTER*(MAX_LEN_FNAM) PTRACERS_initialFile(PTRACERS_num)
& PTRACERS_initialFile,
IF ( PTRACERS_initialFile(iTracer) .NE. ' ' ) THEN
CALL READ_FLD_XYZ_RL(PTRACERS_initialFile(iTracer),' ',
PTRACERS_initialFile(iTracer)=' '