allow keyword >none< for initial data to zero phi

git-svn-id: http://svn.cactuscode.org/arrangements/CactusWave/IDScalarWave/trunk@18 f5a6acaf-da7d-456b-b0a8-35edbc60b392

2 files changed, 4 insertions, 0 deletions

diff --git a/param.ccl b/param.ccl
index 9a7401d..df5a216 100644
--- a/param.ccl
+++ b/param.ccl
@@ -14,6 +14,7 @@ KEYWORD initial_data "Type of initial data"
   "plane"      :: "Plane wave"
   "gaussian"   :: "Gaussian wave"
   "box"        :: "Box wave"
+  "none"       :: "No initial data, zero phi"
 } "gaussian"
 
 private:
diff --git a/src/InitialData.F77 b/src/InitialData.F77
index 7d7463e..1cefed6 100644
--- a/src/InitialData.F77
+++ b/src/InitialData.F77
@@ -98,6 +98,9 @@ c        Use kx,ky,kz as number of modes in each direction.
             end do
          end do
 
+      else
+         phi     = 0.0d0
+         phi_old = 0.0d0
       end if
 
       return