diff options
author | Erik Schnetter <schnetter@gmail.com> | 2012-02-25 11:25:19 -0500 |
---|---|---|
committer | Barry Wardell <barry.wardell@gmail.com> | 2012-09-11 18:23:07 +0100 |
commit | ae40ebf9b7a7f732c943c561ea64776a2742c03e (patch) | |
tree | 3e2f16fa8c8651b1621290952b0f427e52c164d0 | |
parent | ffd14005976ca07a6afc1b7053d60bbe2872ca28 (diff) |
Carpet: LoadBalanceReal: Update
Set global parameters before decomposing.
Declare C++ prototype.
-rw-r--r-- | Carpet/Carpet/src/LoadBalanceReal/splitregions_recursively.F90 | 8 | ||||
-rw-r--r-- | Carpet/Carpet/src/functions.hh | 4 |
2 files changed, 12 insertions, 0 deletions
diff --git a/Carpet/Carpet/src/LoadBalanceReal/splitregions_recursively.F90 b/Carpet/Carpet/src/LoadBalanceReal/splitregions_recursively.F90 index bdd2f9601..cfaf9d589 100644 --- a/Carpet/Carpet/src/LoadBalanceReal/splitregions_recursively.F90 +++ b/Carpet/Carpet/src/LoadBalanceReal/splitregions_recursively.F90 @@ -87,6 +87,14 @@ subroutine splitregions_recursively ( & + ! Set global parameters + ghostsize = ghostsize_ + alpha = alpha_ + limit_size = limit_size_ /= 0 + procid = procid_ + + + outbound%obound(:,:) = 1 allocate (sregions(nsuperregs)) do i=1, nsuperregs diff --git a/Carpet/Carpet/src/functions.hh b/Carpet/Carpet/src/functions.hh index 6095b2129..84d735723 100644 --- a/Carpet/Carpet/src/functions.hh +++ b/Carpet/Carpet/src/functions.hh @@ -196,6 +196,10 @@ namespace Carpet { SplitRegionsMaps_Automatic (cGH const * cctkGH, vector<vector<region_t> > & superregss, vector<vector<region_t> > & regss); + void + SplitRegionsMaps_Recursively (cGH const * cctkGH, + vector<vector<region_t> > & superregss, + vector<vector<region_t> > & regss); void MakeMultigridBoxes (cGH const * cctkGH, |