FDS Source: Formatting of print statement

firemodels · Oct 28, 2024 · 8302bd3 · 8302bd3
1 parent fe97f2c
commit 8302bd3
Showing 1 changed file with 2 additions and 2 deletions.
diff --git 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