diff options
author | Erik Schnetter <schnetter@gmail.com> | 2012-08-31 21:17:51 -0400 |
---|---|---|
committer | Erik Schnetter <schnetter@gmail.com> | 2012-08-31 21:17:51 -0400 |
commit | 2d1d1bcc7609e2fce02fa87ebf63b0b787f3d27c (patch) | |
tree | adac582d1d37e17b3924992c2a780f8341bf9a7e /Carpet/Carpet/src/LoadBalanceReal/splitregions_recursively.F90 | |
parent | 6ff0c46bcd42c37904ff1bd2d231b45c861f0779 (diff) |
Carpet: Handle granularity in recursive load balancing
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_ |