diff options
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 |