diff --git a/Source/func.f90 b/Source/func.f90 index 7e5e2aa2c36..8d3672b8554 100644 --- a/Source/func.f90 +++ b/Source/func.f90 @@ -5931,8 +5931,8 @@ SUBROUTINE VERBOSE_PRINTOUT(DIAGNOSTIC_MESSAGE) CALL GET_DATE_ISO_8601(DATE) CALL CPU_TIME(CPUTIME) -WRITE(LU_ERR,'(1X,A,I0,1X,A,A,F8.3,3X,A)') 'RANK=',MY_RANK,[CHARACTER(LEN=50)::DIAGNOSTIC_MESSAGE],& - ' CPU Time:',CPUTIME-CPU_TIME_START,TRIM(DATE) +WRITE(LU_ERR,'(1X,A,I0,1X,A,A,F12.3,3X,A)') 'RANK=',MY_RANK,[CHARACTER(LEN=50)::DIAGNOSTIC_MESSAGE],& + ' CPU Time:',CPUTIME-CPU_TIME_START,TRIM(DATE) END SUBROUTINE VERBOSE_PRINTOUT