diff --git a/physics/machine.F b/physics/machine.F
index 9b09d235c..e9c572ef2 100644
--- a/physics/machine.F
+++ b/physics/machine.F
@@ -6,42 +6,24 @@ module machine
 
       implicit none
       
-#ifndef SINGLE_PREC
       integer, parameter :: kind_io4  = 4, kind_io8  = 8 , kind_ior = 8 &
      &,                     kind_evod = 8, kind_dbl_prec = 8            &
      &,                     kind_sngl_prec = 4
-# ifdef __PGI
-     &,                     kind_qdt_prec = 8                           &
-# else
-     &,                     kind_qdt_prec = 16                          &
-# endif
-     &,                     kind_rad  = 8                               &
-     &,                     kind_phys = 8     ,kind_taum=8              &
-     &,                     kind_grid = 8                               &
-     &,                     kind_REAL = 8                               &! used in cmp_comm
-     &,                     kind_LOGICAL = 4                            &
-     &,                     kind_INTEGER = 4                             ! -,,-
 
+#ifdef SINGLE_PREC
+      integer, parameter :: kind_rad  = kind_sngl_prec                  &
+     &,                     kind_phys = kind_sngl_prec                  &
+     &,                     kind_grid = kind_dbl_prec                   &! atmos_cubed_sphere requres kind_grid=8
+     &,                     kind_REAL = kind_sngl_prec                   ! used in cmp_comm
 #else
-      integer, parameter :: kind_io4  = 4, kind_io8  = 8 , kind_ior = 8 &
-     &,                     kind_evod = 4, kind_dbl_prec = 8            &
-     &,                     kind_sngl_prec = 4
-# ifdef __PGI
-     &,                     kind_qdt_prec = 8                           &
-# else
-     &,                     kind_qdt_prec = 16                          &
-# endif
-     &,                     kind_rad  = 4                               &
-     &,                     kind_phys = 4     ,kind_taum=4              &
-     &,                     kind_grid = 8                               &! atmos_cubed_sphere requres kind_grid=8
-     &,                     kind_REAL = 4                               &! used in cmp_comm
-     &,                     kind_LOGICAL = 4                            &
-     &,                     kind_INTEGER = 4                             ! -,,-
-
+      integer, parameter :: kind_rad  = kind_dbl_prec                   &
+     &,                     kind_phys = kind_dbl_prec                   &
+     &,                     kind_grid = kind_dbl_prec                   &! atmos_cubed_sphere requres kind_grid=8
+     &,                     kind_REAL = kind_dbl_prec                    ! used in cmp_comm
 #endif
 
 #ifdef OVERLOAD_R4
-      integer, parameter :: kind_dyn  = 4 
+      integer, parameter :: kind_dyn  = 4
 #else
       integer, parameter :: kind_dyn  = 8
 #endif