From 942f9adcef364f463158c7e7a097a97b4ddb76f7 Mon Sep 17 00:00:00 2001 From: "samuel.trahan" Date: Wed, 25 May 2022 22:08:44 +0000 Subject: [PATCH] correct bug in machine.F --- physics/machine.F | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/physics/machine.F b/physics/machine.F index e9c572ef2..eb1dcd257 100644 --- 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 &