diff options
author | diener <diener@2a26948c-0e4f-0410-aee8-f1d3e353619c> | 2003-08-13 17:11:22 +0000 |
---|---|---|
committer | diener <diener@2a26948c-0e4f-0410-aee8-f1d3e353619c> | 2003-08-13 17:11:22 +0000 |
commit | ade581e1acd584ea6e54ff7a2aad11bc23477f9d (patch) | |
tree | df39165329f5ff9aeb33d4d24bb9194b9dec9cde /src/MoL_Init.F90 | |
parent | d032c16e368d85d834388d81ab5171df134ad238 (diff) |
Major modification of almost all source files to use vector groups for various
variables. Not tested in all detail, but the standard features seem to work.
The version before all these changes was tagged with PRE_MULTI.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/EHFinder/trunk@126 2a26948c-0e4f-0410-aee8-f1d3e353619c
Diffstat (limited to 'src/MoL_Init.F90')
-rw-r--r-- | src/MoL_Init.F90 | 41 |
1 files changed, 22 insertions, 19 deletions
diff --git a/src/MoL_Init.F90 b/src/MoL_Init.F90 index 6a43ddd..4683c09 100644 --- a/src/MoL_Init.F90 +++ b/src/MoL_Init.F90 @@ -11,34 +11,37 @@ subroutine EHFinder_MoLRegister(CCTK_ARGUMENTS) CCTK_INT :: ierr, ierr_cum, varindex, rhsindex CCTK_INT :: MoLRegisterEvolved, MoLRegisterEvolvedGroup + CCTK_INT :: l + + character(len=15) :: vname DECLARE_CCTK_PARAMETERS DECLARE_CCTK_ARGUMENTS DECLARE_CCTK_FUNCTIONS 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 - ierr_cum = ierr_cum + MoLRegisterEvolved(varindex, rhsindex) + do l = 0, eh_number_level_sets - 1 + write(vname,'(a12,i1,a1)') 'ehfinder::f[', l, ']' + call CCTK_VarIndex(varindex, vname ) + write(vname,'(a13,i1,a1)') 'ehfinder::sf[', l, ']' + call CCTK_VarIndex(rhsindex, vname) + ierr_cum = ierr_cum + MoLRegisterEvolved(varindex, rhsindex) + end do 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) + call CCTK_GroupIndex (varindex, 'ehfinder::xg') + call CCTK_GroupIndex(rhsindex, 'ehfinder::dxg') + + ierr_cum = ierr_cum + MoLRegisterEvolvedGroup(varindex, rhsindex) + + call CCTK_GroupIndex (varindex, 'ehfinder::yg') + call CCTK_GroupIndex(rhsindex, 'ehfinder::dyg') + + 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) |