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