Merge pull request #15560 from cxp484/master

FDS Source: Correct the Chem Communication time output

Author: cxp484

Source/fire.f90

@@ -1286,10 +1286,12 @@ SUBROUTINE DUMP_CVODE_WARNING_SUMMARY(NCHEM_ACTIVE_CELLS_AND_CC)
 
    INTEGER, INTENT(IN) :: NCHEM_ACTIVE_CELLS_AND_CC
    INTEGER :: NCHEM_ACTIVE_CELLS_AND_CC_GLOBAL,IERR, CVODE_ERR_CODE, TOT_WARN_CELLS
-   REAL(EB) :: PCNT
+   REAL(EB) :: PCNT,TNOW
    CHARACTER(LEN=16) :: CELL_STR, PCNT_STR
    CHARACTER(LEN=40) :: CELL_INFO
 
+   TNOW = CURRENT_TIME()
+
    IF (N_MPI_PROCESSES > 1) THEN
       CALL MPI_ALLREDUCE(MPI_IN_PLACE, CVODE_WARNING_CELLS, SIZE(CVODE_WARNING_CELLS), &
                          MPI_INTEGER, MPI_SUM, MPI_COMM_WORLD, IERR)
@@ -1331,6 +1333,7 @@ SUBROUTINE DUMP_CVODE_WARNING_SUMMARY(NCHEM_ACTIVE_CELLS_AND_CC)
       WRITE(LU_ERR, '(A)') '------------------------------------------------------'
 
    END IF
+   T_CHEM_COMM = T_CHEM_COMM+CURRENT_TIME() - TNOW
 
 END SUBROUTINE DUMP_CVODE_WARNING_SUMMARY