diagUnits = trcUnits//'.m/s   '

       diagUnits = trcUnits//'.m/s   '

       diagUnits = trcUnits//wUnits

       diagUnits = trcUnits//flxUnits

        diagUnits = trcUnits//'/s       '

      CHARACTER*7  trcUnits

       trcUnits  = '(kg/kg)'

         ilnb = LEN(trcUnits)

         trcUnits = PTRACERS_units(iTrc)(1:ilnb)

       diagUnits = trcUnits//'         '