diff --git a/src/basic_mod.F90 b/src/basic_mod.F90 index 788a3aa816056285e354e64f4ddcf6227c5b7d49..494679bd7e7c4865350df86def20dad8629976fb 100644 --- a/src/basic_mod.F90 +++ b/src/basic_mod.F90 @@ -92,18 +92,22 @@ CONTAINS mins = (time/3600. - days*24. - hours) * 60 secs = (time/60. - days*24.*60 - hours*60 - mins) * 60 WRITE(*,*) 'CPU Time = ', days, '[day]', hours, '[h]', mins, '[min]', secs, '[s]' + WRITE(*,*) '(',time,'[s])' ELSEIF ( hours .GT. 0 ) THEN !display h min s mins = (time/3600. - hours) * 60 secs = (time/60. - hours*60 - mins) * 60 WRITE(*,*) 'CPU Time = ', hours, '[h]', mins, '[min]', secs, '[s]' + WRITE(*,*) '(',time,'[s])' ELSEIF ( mins .GT. 0 ) THEN !display min s secs = (time/60. - mins) * 60 WRITE(*,*) 'CPU Time = ', mins, '[min]', secs, '[s]' + WRITE(*,*) '(',time,'[s])' ELSE ! display s WRITE(*,*) 'CPU Time = ', FLOOR(time), '[s]' + ENDIF END SUBROUTINE display_h_min_s !================================================================================