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

coverted cycle to batch notation

Browse source
This commit is contained in:
Bryan Herman 2012-03-28 06:49:44 -07:00
parent 599ddf9f8e
commit 34a15017c5
6 changed files with 8 additions and 22 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/cmfd_execute.F90
View file

@ -3,7 +3,8 @@ module cmfd_execute
use cmfd_data, only: set_up_cmfd
use cmfd_output, only: write_cmfd_vtk
use global, only: cmfd,cmfd_only,time_cmfd,master,rank,mpi_err, &
& current_cycle,n_inactive,n_cycles,n_procs,n_procs_cmfd
& current_batch,n_inactive,n_batches,n_procs, &
& n_procs_cmfd
use timing, only: timer_start,timer_stop,timer_reset
@ -37,7 +38,7 @@ contains
if (rank < 1) then
! initialize slepc/petsc (communicates to world)
if(current_cycle == n_inactive + 1) call SlepcInitialize &
if(current_batch == n_inactive + 1) call SlepcInitialize &
& (PETSC_NULL_CHARACTER,ierr)
! set global variable for number of procs in cmfd calc
@ -76,7 +77,7 @@ contains
end if
! finalize slepc
if (current_cycle == n_cycles) call SlepcFinalize(ierr)
if (current_batch == n_batches) call SlepcFinalize(ierr)
end if