gkowal/amun-code
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

DRIVER: Make sure we compare the same data types.

Browse Source 
Signed-off-by: Grzegorz Kowal <grzegorz@amuncode.org>
This commit is contained in:
Grzegorz Kowal 2014-08-04 09:54:49 -03:00
parent 975143fff0
commit 70a0b137b6
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/driver.F90
View File

@ -593,7 +593,7 @@ program amun
! calculate days, hours, seconds ! 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))) es = max(0, int(mod(ec, 60)))
em = int(mod(ec / 60, 60)) em = int(mod(ec / 60, 60))
eh = int(ec / 3600) eh = int(ec / 3600)