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

coremap is supported in parallel

Browse source
This commit is contained in:
Bryan Herman 2012-02-11 10:42:47 -08:00
parent 1a8505f9ca
commit 14fbd4b3ed
5 changed files with 60 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

13
src/cmfd_execute.F90
View file

@ -42,7 +42,7 @@ contains
! begin timer
! call timer_start(time_cmfd)
print *,'Setting up data'
! set up cmfd
if(.not. cmfd_only) call set_up_cmfd()
@ -52,7 +52,6 @@ print *,'Setting up data'
call cmfd_bcast()
#ifdef PETSC
print *,'Executing SLEPC'
! execute snes solver
call cmfd_slepc_execute()
#endif
@ -80,6 +79,7 @@ print *,'Executing SLEPC'
subroutine cmfd_bcast()
use cmfd_header, only: allocate_cmfd
use global, only: cmfd_coremap
integer :: nx ! number of mesh cells in x direction
integer :: ny ! number of mesh cells in y direction
@ -111,6 +111,15 @@ print *,'Executing SLEPC'
call MPI_BCAST(cmfd%hxyz,3*nx*ny*nz,MPI_REAL8,0,MPI_COMM_WORLD,mpi_err)
call MPI_BCAST(cmfd%current,12*ng*nx*ny*nz,MPI_REAL8,0,MPI_COMM_WORLD,mpi_err)
! broadcast coremap info
if (cmfd_coremap) then
call MPI_BCAST(cmfd%coremap,nx*ny*nz,MPI_INT,0,MPI_COMM_WORLD,mpi_err)
call MPI_BCAST(cmfd%mat_dim,1,MPI_INT,0,MPI_COMM_WORLD,mpi_err)
if (.not. allocated(cmfd % indexmap)) allocate &
& (cmfd % indexmap(cmfd % mat_dim,3))
call MPI_BCAST(cmfd%indexmap,cmfd%mat_dim*3,MPI_INT,0,MPI_COMM_WORLD,mpi_err)
end if
! sync up procs
call MPI_Barrier(MPI_COMM_WORLD,mpi_err)