correct bug in machine.F

guoqing-noaa · May 25, 2022 · 942f9ad · 942f9ad
1 parent 641544c
commit 942f9ad
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/physics/machine.F b/physics/machine.F
@@ -8,7 +8,8 @@ module machine
 
       integer, parameter :: kind_io4  = 4, kind_io8  = 8 , kind_ior = 8 &
      &,                     kind_evod = 8, kind_dbl_prec = 8            &
-     &,                     kind_sngl_prec = 4
+     &,                     kind_sngl_prec = 4, kind_INTEGER = 4        &
+     &,                     kind_LOGICAL = 4
 
 #ifdef SINGLE_PREC
       integer, parameter :: kind_rad  = kind_sngl_prec                  &