crp/OpenMC
1
0
Fork 0
mirror of https://github.com/openmc-dev/openmc.git synced 2026-07-28 22:26:08 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions 5

Prevent unused variable warning in cmfd_input.

Browse source
This commit is contained in:
Paul Romano 2013-11-29 13:47:46 -05:00
parent 152c4d4b2f
commit acb16a3e88
1 changed files with 6 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/cmfd_input.F90
View file

@ -20,7 +20,9 @@ contains
use cmfd_header, only: allocate_cmfd
#ifdef PETSC
integer :: new_comm ! new mpi communicator
#endif
integer :: color ! color group of processor
! Read in cmfd input file
@ -34,17 +36,17 @@ contains
end if
! Split up procs
# ifdef PETSC
#ifdef PETSC
call MPI_COMM_SPLIT(MPI_COMM_WORLD, color, 0, new_comm, mpi_err)
# endif
#endif
! assign to PETSc
# ifdef PETSC
#ifdef PETSC
PETSC_COMM_WORLD = new_comm
! Initialize PETSc on all procs
call PetscInitialize(PETSC_NULL_CHARACTER, mpi_err)
# endif
#endif
! Initialize timers
call time_cmfd % reset()