diff --git a/atmos.cabal b/atmos.cabal
--- a/atmos.cabal
+++ b/atmos.cabal
@@ -1,5 +1,5 @@
 name:                atmos
-version:             0.3.0.0
+version:             0.4.0.0
 synopsis:            1976 US Standard Atmosphere Model
 description: {
 1976 US Standard Atmosphere Model.
@@ -21,12 +21,10 @@
    hs-source-dirs:      src
    exposed-modules:     Atmosphere
                         Atmosphere.Dimensional
-                        Atmosphere.DimensionalTF
    other-modules:       Atmosphere.Constants
 
    build-depends:       base >= 4 && < 5
                        , dimensional >= 1.0.0.0
-                       , dimensional-tf >= 0.1.1
 
 
 test-suite unit-tests
diff --git a/src/Atmosphere/DimensionalTF.hs b/src/Atmosphere/DimensionalTF.hs
deleted file mode 100644
--- a/src/Atmosphere/DimensionalTF.hs
+++ /dev/null
@@ -1,41 +0,0 @@
-{-# OPTIONS_GHC -Wall #-}
-
--- | This is a thin wrapper on top of the atmos package.
--- It provides the exaxt same functions but uses units
--- from the dimensional-tf package.
-module Atmosphere.DimensionalTF
-       ( Atmos(..)
-       , atmosphere
-       , altitudeFromPressure
-       ) where
-
-import qualified Atmosphere as A
-
-import qualified Prelude ()
-import Numeric.Units.Dimensional.TF.Prelude
-
-data Atmos a = Atmos { atmosTemperature :: ThermodynamicTemperature a
-                     , atmosPressure :: Pressure a
-                     , atmosDensity :: Density a
-                     , atmosSpeedOfSound :: Velocity a
-                     , atmosViscosity :: DynamicViscosity a
-                     , atmosKinematicViscosity :: KinematicViscosity a
-                     }
-
-atmosphere :: (Floating a, Ord a) => Length a -> Atmos a
-atmosphere alt = Atmos
-                 { atmosTemperature        = temp *~ kelvin
-                 , atmosPressure           = pressure *~ pascal
-                 , atmosDensity            = density *~ (kilo gram / meter ^ pos3)
-                 , atmosSpeedOfSound       = asound *~ (meter / second)
-                 , atmosViscosity          = viscosity *~ (newton * second / meter ^ pos2)
-                 , atmosKinematicViscosity = kinematicViscosity *~ (meter ^ pos2 / second)
-                 }
-  where
-    A.Atmos temp pressure density asound viscosity kinematicViscosity = A.siAtmosphere (alt /~ meter)
-
-altitudeFromPressure :: (Floating a, Ord a) => Pressure a -> Length a
-altitudeFromPressure dimPressure = siAltitude *~ meter
-  where
-    siAltitude = A.siAltitudeFromPressure siPressure
-    siPressure = dimPressure /~ pascal