diff options
| author | diener <diener@2a26948c-0e4f-0410-aee8-f1d3e353619c> | 2002-05-20 15:35:48 +0000 |
|---|---|---|
| committer | diener <diener@2a26948c-0e4f-0410-aee8-f1d3e353619c> | 2002-05-20 15:35:48 +0000 |
| commit | 71a52c6755fd4ab4684611b32cf4c77a659b1478 (patch) | |
| tree | 629532efc81ab289ca16f2a1c13a755ed1f9eec8 /src/MoL_Init.F90 | |
| parent | 255c829817cbe9b4f3fc59edfb8cd572f71551f0 (diff) | |
Removed definition of the metric, lapse and shift as primitive variables,
after moving to the new Einstein. ADMBase only schedules storage for 1
timelevel, while MoL requires storage for 2.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/EHFinder/trunk@9 2a26948c-0e4f-0410-aee8-f1d3e353619c
Diffstat (limited to 'src/MoL_Init.F90')
| -rw-r--r-- | src/MoL_Init.F90 | 60 |
1 files changed, 30 insertions, 30 deletions
diff --git a/src/MoL_Init.F90 b/src/MoL_Init.F90 index ed6585c..679c8fb 100644 --- a/src/MoL_Init.F90 +++ b/src/MoL_Init.F90 @@ -20,36 +20,36 @@ subroutine EHFinder_MoLRegister(CCTK_ARGUMENTS) call CCTK_VarIndex(rhsindex, 'ehfinder::sf') call MoL_RegisterVar(ierr, varindex, rhsindex) ierr_cum = ierr_cum + ierr - call CCTK_VarIndex(varindex, 'einstein::gxx') - call MoL_RegisterPrimitive(ierr, varindex) - ierr_cum = ierr_cum + ierr - call CCTK_VarIndex(varindex, 'einstein::gxy') - call MoL_RegisterPrimitive(ierr, varindex) - ierr_cum = ierr_cum + ierr - call CCTK_VarIndex(varindex, 'einstein::gxz') - call MoL_RegisterPrimitive(ierr, varindex) - ierr_cum = ierr_cum + ierr - call CCTK_VarIndex(varindex, 'einstein::gyy') - call MoL_RegisterPrimitive(ierr, varindex) - ierr_cum = ierr_cum + ierr - call CCTK_VarIndex(varindex, 'einstein::gyz') - call MoL_RegisterPrimitive(ierr, varindex) - ierr_cum = ierr_cum + ierr - call CCTK_VarIndex(varindex, 'einstein::gzz') - call MoL_RegisterPrimitive(ierr, varindex) - ierr_cum = ierr_cum + ierr - call CCTK_VarIndex(varindex, 'einstein::alp') - call MoL_RegisterPrimitive(ierr, varindex) - ierr_cum = ierr_cum + ierr - call CCTK_VarIndex(varindex, 'einstein::betax') - call MoL_RegisterPrimitive(ierr, varindex) - ierr_cum = ierr_cum + ierr - call CCTK_VarIndex(varindex, 'einstein::betay') - call MoL_RegisterPrimitive(ierr, varindex) - ierr_cum = ierr_cum + ierr - call CCTK_VarIndex(varindex, 'einstein::betaz') - call MoL_RegisterPrimitive(ierr, varindex) - ierr_cum = ierr_cum + ierr +! call CCTK_VarIndex(varindex, 'admbase::gxx') +! call MoL_RegisterPrimitive(ierr, varindex) +! ierr_cum = ierr_cum + ierr +! call CCTK_VarIndex(varindex, 'admbase::gxy') +! call MoL_RegisterPrimitive(ierr, varindex) +! ierr_cum = ierr_cum + ierr +! call CCTK_VarIndex(varindex, 'admbase::gxz') +! call MoL_RegisterPrimitive(ierr, varindex) +! ierr_cum = ierr_cum + ierr +! call CCTK_VarIndex(varindex, 'admbase::gyy') +! call MoL_RegisterPrimitive(ierr, varindex) +! ierr_cum = ierr_cum + ierr +! call CCTK_VarIndex(varindex, 'admbase::gyz') +! call MoL_RegisterPrimitive(ierr, varindex) +! ierr_cum = ierr_cum + ierr +! call CCTK_VarIndex(varindex, 'admbase::gzz') +! call MoL_RegisterPrimitive(ierr, varindex) +! ierr_cum = ierr_cum + ierr +! call CCTK_VarIndex(varindex, 'admbase::alp') +! call MoL_RegisterPrimitive(ierr, varindex) +! ierr_cum = ierr_cum + ierr +! call CCTK_VarIndex(varindex, 'admbase::betax') +! call MoL_RegisterPrimitive(ierr, varindex) +! ierr_cum = ierr_cum + ierr +! call CCTK_VarIndex(varindex, 'admbase::betay') +! call MoL_RegisterPrimitive(ierr, varindex) +! ierr_cum = ierr_cum + ierr +! call CCTK_VarIndex(varindex, 'admbase::betaz') +! call MoL_RegisterPrimitive(ierr, varindex) +! ierr_cum = ierr_cum + ierr print*,'MoLRegister ', ierr_cum if ( ierr_cum .gt. 0 ) then call CCTK_WARN(0,'Problems registering variables with MoL') |