I diagUnitsInPieces, myThid )
CHARACTER*(*) diagUnitsInPieces
n = LEN(diagUnitsInPieces)
IF (diagUnitsInPieces(i:i) .NE. ' ' ) THEN
IF ( j.LE.16 ) DIAGS_MK_UNITS(j:j) = diagUnitsInPieces(i:i)
IF ( diagUnitsInPieces(i:i) .NE. ' ' ) THEN
& diagUnitsInPieces(i:i).EQ.'^' ) THEN
IF ( diagUnitsInPieces(i-1:i-1).EQ.'m' ) THEN
& 'DIAGS_MK_UNITS: input=', diagUnitsInPieces