diff options
Diffstat (limited to 'src/MoL_Init.F90')
| -rw-r--r-- | src/MoL_Init.F90 | 25 |
1 files changed, 23 insertions, 2 deletions
diff --git a/src/MoL_Init.F90 b/src/MoL_Init.F90 index 679c8fb..bccc870 100644 --- a/src/MoL_Init.F90 +++ b/src/MoL_Init.F90 @@ -10,6 +10,7 @@ subroutine EHFinder_MoLRegister(CCTK_ARGUMENTS) implicit none CCTK_INT :: ierr, ierr_cum, varindex, rhsindex + CCTK_INT :: MoLRegisterEvolved DECLARE_CCTK_PARAMETERS DECLARE_CCTK_ARGUMENTS @@ -18,8 +19,28 @@ subroutine EHFinder_MoLRegister(CCTK_ARGUMENTS) ierr_cum = 0 call CCTK_VarIndex(varindex, 'ehfinder::f') call CCTK_VarIndex(rhsindex, 'ehfinder::sf') - call MoL_RegisterVar(ierr, varindex, rhsindex) - ierr_cum = ierr_cum + ierr +! call MoL_RegisterVar(ierr, varindex, rhsindex) +! ierr_cum = ierr_cum + ierr + ierr_cum = ierr_cum + MoLRegisterEvolved(varindex, rhsindex) + + if ( evolve_generators .gt. 0 ) then + +! call CCTK_GroupIndex (varindex, 'ehfinder::generators') +! call CCTK_GroupIndex(rhsindex, 'ehfinder::generators_rhs') + + call CCTK_VarIndex(varindex, 'ehfinder::xg') + call CCTK_VarIndex(rhsindex, 'ehfinder::dxg') + ierr_cum = ierr_cum + MoLRegisterEvolved(varindex, rhsindex) + + call CCTK_VarIndex(varindex, 'ehfinder::yg') + call CCTK_VarIndex(rhsindex, 'ehfinder::dyg') + ierr_cum = ierr_cum + MoLRegisterEvolved(varindex, rhsindex) + + call CCTK_VarIndex(varindex, 'ehfinder::zg') + call CCTK_VarIndex(rhsindex, 'ehfinder::dzg') + ierr_cum = ierr_cum + MoLRegisterEvolved(varindex, rhsindex) + end if + ! call CCTK_VarIndex(varindex, 'admbase::gxx') ! call MoL_RegisterPrimitive(ierr, varindex) ! ierr_cum = ierr_cum + ierr |