ilnb = ILNBLNK(PTRACERS_units(iTrc))
trcUnits = PTRACERS_units(iTrc)(1:ilnb)
CHARACTER*(MAX_LEN_FNAM) PTRACERS_units(PTRACERS_num)
& PTRACERS_units
ilnb = ILNBLNK(PTRACERS_units(ii))
& PTRACERS_units(ii),myThid)
PTRACERS_units(iTracer)(ic:ic) = ' '
& PTRACERS_units,