diff options
author | diener <diener@2a26948c-0e4f-0410-aee8-f1d3e353619c> | 2004-02-13 13:40:01 +0000 |
---|---|---|
committer | diener <diener@2a26948c-0e4f-0410-aee8-f1d3e353619c> | 2004-02-13 13:40:01 +0000 |
commit | e74d0febe4c8a26c5a1decd92e9c4c637990aaea (patch) | |
tree | b1b7534c215d3cff9dea958aa274f3d78a3b7863 /src/MoL_Init.F90 | |
parent | e121eed6101ffee1b5d4ba74ef601c8ceb0c9d61 (diff) |
First attempt at using 2d grid arrays to hold the generator information.
Something fishy is going on. Don't use yet.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/EHFinder/trunk@165 2a26948c-0e4f-0410-aee8-f1d3e353619c
Diffstat (limited to 'src/MoL_Init.F90')
-rw-r--r-- | src/MoL_Init.F90 | 39 |
1 files changed, 30 insertions, 9 deletions
diff --git a/src/MoL_Init.F90 b/src/MoL_Init.F90 index 61a84e6..d01eec1 100644 --- a/src/MoL_Init.F90 +++ b/src/MoL_Init.F90 @@ -26,20 +26,41 @@ subroutine EHFinder_MoLRegister(CCTK_ARGUMENTS) if ( evolve_generators .gt. 0 ) then - call CCTK_GroupIndex (varindex, 'ehfinder::xg') - call CCTK_GroupIndex(rhsindex, 'ehfinder::dxg') + if ( CCTK_EQUALS( generator_distribution, 'line' ) ) then - ierr_cum = ierr_cum + MoLRegisterEvolvedGroup(varindex, rhsindex) + call CCTK_GroupIndex (varindex, 'ehfinder::xg') + call CCTK_GroupIndex(rhsindex, 'ehfinder::dxg') - call CCTK_GroupIndex (varindex, 'ehfinder::yg') - call CCTK_GroupIndex(rhsindex, 'ehfinder::dyg') + ierr_cum = ierr_cum + MoLRegisterEvolvedGroup(varindex, rhsindex) - ierr_cum = ierr_cum + MoLRegisterEvolvedGroup(varindex, rhsindex) + call CCTK_GroupIndex (varindex, 'ehfinder::yg') + call CCTK_GroupIndex(rhsindex, 'ehfinder::dyg') - call CCTK_GroupIndex (varindex, 'ehfinder::zg') - call CCTK_GroupIndex(rhsindex, 'ehfinder::dzg') + ierr_cum = ierr_cum + MoLRegisterEvolvedGroup(varindex, rhsindex) - ierr_cum = ierr_cum + MoLRegisterEvolvedGroup(varindex, rhsindex) + call CCTK_GroupIndex (varindex, 'ehfinder::zg') + call CCTK_GroupIndex(rhsindex, 'ehfinder::dzg') + + ierr_cum = ierr_cum + MoLRegisterEvolvedGroup(varindex, rhsindex) + + else if ( CCTK_EQUALS( generator_distribution, '2D array' ) ) then + + call CCTK_GroupIndex (varindex, 'ehfinder::xg2') + call CCTK_GroupIndex(rhsindex, 'ehfinder::dxg2') + + ierr_cum = ierr_cum + MoLRegisterEvolvedGroup(varindex, rhsindex) + + call CCTK_GroupIndex (varindex, 'ehfinder::yg2') + call CCTK_GroupIndex(rhsindex, 'ehfinder::dyg2') + + ierr_cum = ierr_cum + MoLRegisterEvolvedGroup(varindex, rhsindex) + + call CCTK_GroupIndex (varindex, 'ehfinder::zg2') + call CCTK_GroupIndex(rhsindex, 'ehfinder::dzg2') + + ierr_cum = ierr_cum + MoLRegisterEvolvedGroup(varindex, rhsindex) + + end if end if |