diff options
Diffstat (limited to 'Carpet/Carpet/src/LoadBalanceReal/splitregions_recursively.F90')
| -rw-r--r-- | Carpet/Carpet/src/LoadBalanceReal/splitregions_recursively.F90 | 14 |
1 files changed, 5 insertions, 9 deletions
diff --git a/Carpet/Carpet/src/LoadBalanceReal/splitregions_recursively.F90 b/Carpet/Carpet/src/LoadBalanceReal/splitregions_recursively.F90 index 441bf2d78..5667c4e30 100644 --- a/Carpet/Carpet/src/LoadBalanceReal/splitregions_recursively.F90 +++ b/Carpet/Carpet/src/LoadBalanceReal/splitregions_recursively.F90 @@ -4,7 +4,7 @@ subroutine splitregions_recursively ( & cxx_superregs, nsuperregs, & cxx_regs, & nprocs, & - ghostsize_, alpha_, limit_size_, granularity_, granularity_boundary_, & + ghostsize_, alpha_, limit_size_, & procid_) use carpet_boxtypes implicit none @@ -16,8 +16,6 @@ subroutine splitregions_recursively ( & integer, intent(in) :: ghostsize_ CCTK_REAL, intent(in) :: alpha_ integer, intent(in) :: limit_size_ - CCTK_INT, intent(in) :: granularity_ - CCTK_INT, intent(in) :: granularity_boundary_ integer, intent(in) :: procid_ type(ptr), allocatable :: sregions(:) @@ -79,12 +77,10 @@ subroutine splitregions_recursively ( & ! Set global parameters - ghostsize = ghostsize_ - alpha = alpha_ - limit_size = limit_size_ /= 0 - granularity = granularity_ - granularity_boundary = granularity_boundary_ - procid = procid_ + ghostsize = ghostsize_ + alpha = alpha_ + limit_size = limit_size_ /= 0 + procid = procid_ |