diff --git a/src/diagnose.F90 b/src/diagnose.F90
index 68a707c7501d6a12099c26f40bb379f0dcb9ad92..e975693feee9f8b54c74c321d3bd957e411dd2a3 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