& PTRACERS_long_names,
PTRACERS_long_names(iTracer)(ic:ic) = ' '
ilnb = ILNBLNK(PTRACERS_long_names(ii))
& 'long_name',PTRACERS_long_names(ii),myThid)
ilnb = ILNBLNK(PTRACERS_long_names(iTrc))
WRITE(locName,'(A)') PTRACERS_long_names(iTrc)(1:ilnb)
CHARACTER*(MAX_LEN_FNAM) PTRACERS_long_names(PTRACERS_num)