FDS Source: Formatting of print statement

Author: mcgratta

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