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 /Carpet/Carpet/src/LoadBalanceReal | |
parent | ffd14005976ca07a6afc1b7053d60bbe2872ca28 (diff) |
Carpet: LoadBalanceReal: Update
Set global parameters before decomposing.
Declare C++ prototype.
Diffstat (limited to 'Carpet/Carpet/src/LoadBalanceReal')
-rw-r--r-- | Carpet/Carpet/src/LoadBalanceReal/splitregions_recursively.F90 | 8 |
1 files changed, 8 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 |