CHARACTER*(MAX_LEN_FNAM) PTRACERS_long_names(PTRACERS_num)
& PTRACERS_long_names,
CALL WRITE_0D_C( PTRACERS_long_names(iTracer), -1, INDEX_NONE,
ilng = ILNBLNK(PTRACERS_long_names(iTrc))
WRITE(longName,'(A)') PTRACERS_long_names(iTrc)(1:ilng)
ilnb = ILNBLNK(PTRACERS_long_names(ii))
& 'long_name',PTRACERS_long_names(ii),myThid)
PTRACERS_long_names(iTracer)(ic:ic) = ' '