From bba838ddad3f7bfaf292c9e413a6bb6d655cbd17 Mon Sep 17 00:00:00 2001
From: Antoine Cyril David Hoffmann <ahoffman@spcpc606.epfl.ch>
Date: Tue, 27 Oct 2020 16:19:18 +0100
Subject: [PATCH] write CPU time at the end of simu
---
src/diagnose.F90 | 12 ++++++++++++
1 file changed, 12 insertions(+)
diff --git a/src/diagnose.F90 b/src/diagnose.F90
index 82fa6c8c..68a707c7 100644
--- a/src/diagnose.F90
+++ b/src/diagnose.F90
@@ -220,6 +220,18 @@ SUBROUTINE diagnose(kstep)
ELSEIF (kstep .EQ. -1) THEN
CALL cpu_time(finish)
CALL attach(fidres, "/data/input","cpu_time",finish-start)
+
+ ! Display computational time cost
+ IF ( FLOOR((finish-start)/3600.) .GT. 0 ) THEN !display h min s
+ WRITE(*,*) 'CPU Time = ', FLOOR((finish-start)/3600.), '[h]', &
+ FLOOR((finish-start)/3600. - FLOOR((finish-start)/3600.))*60., '[min]',&
+ 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]'
+ ELSE ! display s
+ WRITE(*,*) 'CPU Time = ', FLOOR((finish-start)), '[s]'
+ ENDIF
! Close all diagnostic files
CALL closef(fidres)
END IF
--
GitLab