CHARACTER*7 trcUnits
trcUnits = '(kg/kg)'
ilnb = LEN(trcUnits)
trcUnits = PTRACERS_units(iTrc)(1:ilnb)
diagUnits = trcUnits//' '
diagUnits = DIAGS_MK_UNITS( trcUnits//'.m/s', myThid )
diagUnits = DIAGS_MK_UNITS( trcUnits//wUnits, myThid )
diagUnits = DIAGS_MK_UNITS( trcUnits//'/s', myThid )
diagUnits = DIAGS_MK_UNITS( trcUnits//flxUnits, myThid )
trcUnits = 'kg/kg '
WRITE(diagUnits,'(A)') trcUnits