Skip to content

Commit

Permalink
FDS Source: Specify CODE in error statement
Browse files Browse the repository at this point in the history
  • Loading branch information
mcgratta committed Dec 12, 2024
1 parent b270f13 commit 1a25db5
Showing 1 changed file with 5 additions and 1 deletion.
6 changes: 5 additions & 1 deletion Source/main.f90
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down

0 comments on commit 1a25db5

Please sign in to comment.