From 70a0b137b67f85019cc861b95a6b9fe20d1d798c Mon Sep 17 00:00:00 2001 From: Grzegorz Kowal Date: Mon, 4 Aug 2014 09:54:49 -0300 Subject: [PATCH] DRIVER: Make sure we compare the same data types. Signed-off-by: Grzegorz Kowal --- src/driver.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/driver.F90 b/src/driver.F90 index 0ac77e4..9c05a7a 100644 --- a/src/driver.F90 +++ b/src/driver.F90 @@ -593,7 +593,7 @@ program amun ! calculate days, hours, seconds ! - ec = int(tm_curr * (tmax - time) / max(1.0e-8, time - tbeg), kind = 4) + ec = int(tm_curr * (tmax - time) / max(1.0d-08, time - tbeg), kind = 4) es = max(0, int(mod(ec, 60))) em = int(mod(ec / 60, 60)) eh = int(ec / 3600)