From e897c0b9e7e984577b1ff25058ef7fa5b13d66cb Mon Sep 17 00:00:00 2001
From: Antoine Cyril David Hoffmann <ahoffman@spcpc606.epfl.ch>
Date: Wed, 28 Oct 2020 10:21:36 +0100
Subject: [PATCH] correct typo for cpu time display
---
src/diagnose.F90 | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/diagnose.F90 b/src/diagnose.F90
index 68a707c7..e975693f 100644
--- a/src/diagnose.F90
+++ b/src/diagnose.F90
@@ -228,7 +228,7 @@ SUBROUTINE diagnose(kstep)
FLOOR((finish-start)/60. - FLOOR((finish-start)/3600. - FLOOR((finish-start)/3600.))*60.)*60, '[s]'
ELSEIF ( FLOOR((finish-start)/60.) .GT. 0 ) THEN !display min s
WRITE(*,*) 'CPU Time = ', FLOOR((finish-start)/60.), '[min]', &
- FLOOR((finish-start) - FLOOR(finish-start))*60., '[s]'
+ FLOOR((finish-start)/60. - FLOOR(finish-start)/60.)*60., '[s]'
ELSE ! display s
WRITE(*,*) 'CPU Time = ', FLOOR((finish-start)), '[s]'
ENDIF
--
GitLab