Merge pull request #13879 from mcgratta/master

FDS Source: Specify CODE in error statement
firemodels · Dec 12, 2024 · 55ccf8e · 55ccf8e
2 parents b270f13 + 1a25db5
commit 55ccf8e
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/Source/main.f90 b/Source/main.f90
@@ -3276,7 +3276,11 @@ SUBROUTINE MESH_EXCHANGE(CODE)
 
 IF (N_MPI_PROCESSES>1 .AND. (CODE==1.OR.CODE==4) .AND. N_REQ1>0) THEN
    CALL MPI_STARTALL(N_REQ1,REQ1(1:N_REQ1),IERR)
-   CALL TIMEOUT('MPI exchange of gas species densities',N_REQ1,REQ1(1:N_REQ1))
+   IF (CODE==1) THEN
+      CALL TIMEOUT('MPI exchange of gas species densities (CODE=1)',N_REQ1,REQ1(1:N_REQ1))
+   ELSE
+      CALL TIMEOUT('MPI exchange of gas species densities (CODE=4)',N_REQ1,REQ1(1:N_REQ1))
+   ENDIF
 ENDIF
 
 IF (N_MPI_PROCESSES>1 .AND. CODE==7 .AND. N_REQ2>0) THEN