diff --git a/src/cmfd_data.F90 b/src/cmfd_data.F90 index d36a234daa..eb57bc2826 100644 --- a/src/cmfd_data.F90 +++ b/src/cmfd_data.F90 @@ -979,7 +979,7 @@ contains subroutine compute_effective_downscatter() use constants, only: ZERO, CMFD_NOACCEL - use global, only: cmfd, cmfd_downscatter, keff + use global, only: cmfd, cmfd_downscatter integer :: nx ! number of mesh cells in x direction integer :: ny ! number of mesh cells in y direction diff --git a/src/cmfd_execute.F90 b/src/cmfd_execute.F90 index 69a344c48a..197a6ec561 100644 --- a/src/cmfd_execute.F90 +++ b/src/cmfd_execute.F90 @@ -137,8 +137,7 @@ contains subroutine cmfd_init_batch() - use global, only: cmfd_begin, cmfd_on, & - cmfd_tally_on, n_inactive, & + use global, only: cmfd_begin, cmfd_on, cmfd_tally_on, & cmfd_inact_flush, cmfd_act_flush, cmfd_run, & current_batch, cmfd_hold_weights