diff options
author | allen <allen@f5a6acaf-da7d-456b-b0a8-35edbc60b392> | 1999-09-11 16:17:17 +0000 |
---|---|---|
committer | allen <allen@f5a6acaf-da7d-456b-b0a8-35edbc60b392> | 1999-09-11 16:17:17 +0000 |
commit | 6e5f89613a9d9d621cc02edfb0b01080ac323910 (patch) | |
tree | 1045c38bbb1045a03fb062dd8bae02f69065cbef | |
parent | 82752ba544c4aaffa72ffb777e4f41fe29e564e7 (diff) |
Changes to include IDScalarWaveElliptic
git-svn-id: http://svn.cactuscode.org/arrangements/CactusWave/IDScalarWave/trunk@8 f5a6acaf-da7d-456b-b0a8-35edbc60b392
-rw-r--r-- | param.ccl | 17 | ||||
-rw-r--r-- | schedule.ccl | 2 | ||||
-rw-r--r-- | src/InitialData.F77 | 8 |
3 files changed, 12 insertions, 15 deletions
@@ -7,6 +7,16 @@ USES KEYWORD type "" { } +restricted: + +KEYWORD initial_data "Type of initial data" +{ + "plane" :: "Plane wave" + "gaussian" :: "Gaussian wave" + "box" :: "Box wave" +} "gaussian" + + private: REAL radius "The radius of the gaussian wave" @@ -37,10 +47,3 @@ REAL amplitude "The amplitude of the waves" *:* :: "No restriction" } 1.0 -KEYWORD initial_data "Type of initial data" -{ - "plane" :: "Plane wave" - "gaussian" :: "Gaussian wave" - "box" :: "Box wave" -} "gaussian" - diff --git a/schedule.ccl b/schedule.ccl index 33a8376..9e99c12 100644 --- a/schedule.ccl +++ b/schedule.ccl @@ -6,7 +6,7 @@ schedule IDScalarWave_CheckParameters at CCTK_PARAMCHECK LANG: Fortran } "Check parameters" -schedule IDScalarWave_InitialData at CCTK_INITIAL after WaveToyF77_Initial +schedule IDScalarWave_InitialData at CCTK_INITIAL { STORAGE: wavetoy::scalarevolve,wavetoy::scalarold COMMUNICATION: wavetoy::scalarevolve diff --git a/src/InitialData.F77 b/src/InitialData.F77 index d33b56e..354a9e6 100644 --- a/src/InitialData.F77 +++ b/src/InitialData.F77 @@ -15,7 +15,7 @@ /*@@ - @routine WaveToyF77_InitialData + @routine IDScalarWave_InitialData @date @author Tom Goodale @desc @@ -40,15 +40,9 @@ INTEGER i,j,k CCTK_REAL dt,omega, pi - CCTK_REAL dx,dy,dz pi = 4.0*atan(1.0) -c Grid spacing shortcuts -c ---------------------- - dx = cctk_delta_space(1) - dy = cctk_delta_space(2) - dz = cctk_delta_space(3) dt = cctk_delta_time omega = sqrt(kx**2+ky**2+kz**2) |