Remove superfluous parameter checking.

Remove superfluous parameter checking.
Provide correct asymptotic limits.

darcs-hash:20030627142611-07bb3-106ad5807b1a2ab2feea367886e03cbe9ca2377d.gz

4 files changed, 4 insertions, 65 deletions

diff --git a/CarpetExtra/IDFOScalarWave/param.ccl b/CarpetExtra/IDFOScalarWave/param.ccl
index 146c8decc..a36367286 100644
--- a/CarpetExtra/IDFOScalarWave/param.ccl
+++ b/CarpetExtra/IDFOScalarWave/param.ccl
@@ -1,11 +1,5 @@
 # Parameter definitions for thorn IDScalarWave
-# $Header: /home/eschnett/C/carpet/Carpet/CarpetExtra/IDFOScalarWave/param.ccl,v 1.3 2003/06/27 15:54:58 schnetter Exp $
-
-shares: grid
-
-USES KEYWORD type 
-
-private:
+# $Header: /home/eschnett/C/carpet/Carpet/CarpetExtra/IDFOScalarWave/param.ccl,v 1.4 2003/06/27 16:26:11 schnetter Exp $
 
 KEYWORD initial_data "Type of initial data"
 {
diff --git a/CarpetExtra/IDFOScalarWave/schedule.ccl b/CarpetExtra/IDFOScalarWave/schedule.ccl
index 79cbee17f..1b89fc2d4 100644
--- a/CarpetExtra/IDFOScalarWave/schedule.ccl
+++ b/CarpetExtra/IDFOScalarWave/schedule.ccl
@@ -1,10 +1,5 @@
 # Schedule definitions for thorn IDScalarWave
-# $Header: /home/eschnett/C/carpet/Carpet/CarpetExtra/IDFOScalarWave/schedule.ccl,v 1.5 2003/06/27 15:54:58 schnetter Exp $
-
-schedule IDFOScalarWave_CheckParameters at PARAMCHECK
-{
-  LANG: Fortran
-} "Check parameters"
+# $Header: /home/eschnett/C/carpet/Carpet/CarpetExtra/IDFOScalarWave/schedule.ccl,v 1.6 2003/06/27 16:26:11 schnetter Exp $
 
 schedule IDFOScalarWave_InitialData as FOWaveToy_InitialData at INITIAL
 {
diff --git a/CarpetExtra/IDFOScalarWave/src/CheckParameters.F77 b/CarpetExtra/IDFOScalarWave/src/CheckParameters.F77
deleted file mode 100644
index 54efe1dde..000000000
--- a/CarpetExtra/IDFOScalarWave/src/CheckParameters.F77
+++ /dev/null
@@ -1,50 +0,0 @@
-c     -*-Fortran-*-
-c     $Header: /home/eschnett/C/carpet/Carpet/CarpetExtra/IDFOScalarWave/src/Attic/CheckParameters.F77,v 1.1 2002/02/18 11:26:34 shawley Exp $
-
- /*@@
-   @file      CheckParameters.F77
-   @date      
-   @author    Gabrielle Allen
-   @desc 
-              Check parameters for the wave equation initial data
-   @enddesc 
- @@*/
-
-#include "cctk.h" 
-#include "cctk_Parameters.h"
-#include "cctk_Arguments.h"
-
-
- /*@@
-   @routine    IDFOScalarWave_CheckParameters
-   @date       
-   @author     Gabrielle Allen
-   @desc 
-               Check parameters for the wave equation initial data
-   @enddesc 
-   @calls      
-   @calledby   
-   @history 
- 
-   @endhistory 
-
-@@*/
-
-      subroutine IDFOScalarWave_CheckParameters(CCTK_ARGUMENTS)
-
-      implicit none
-
-      DECLARE_CCTK_ARGUMENTS
-      DECLARE_CCTK_FUNCTIONS
-      DECLARE_CCTK_PARAMETERS
-
-      if (CCTK_EQUALS(initial_data,"box")) then
-
-         if (kx.eq.0 .or. ky.eq.0 .or. kz.eq.0) then
-            call CCTK_PARAMWARN("Cannot have zero kx,ky,kz for box initial data")
-         end if
-
-      end if
-
-      return
-      end
diff --git a/CarpetExtra/IDFOScalarWave/src/make.code.defn b/CarpetExtra/IDFOScalarWave/src/make.code.defn
index e85ec6d5d..3d9912022 100644
--- a/CarpetExtra/IDFOScalarWave/src/make.code.defn
+++ b/CarpetExtra/IDFOScalarWave/src/make.code.defn
@@ -1,8 +1,8 @@
 # Main make.code.defn file for thorn IDScalarWave   -*-Makefile-*-
-# $Header: /home/eschnett/C/carpet/Carpet/CarpetExtra/IDFOScalarWave/src/make.code.defn,v 1.1 2002/02/18 11:26:34 shawley Exp $
+# $Header: /home/eschnett/C/carpet/Carpet/CarpetExtra/IDFOScalarWave/src/make.code.defn,v 1.2 2003/06/27 16:26:11 schnetter Exp $
 
 # Source files in this directory
-SRCS = InitialData.F77 CheckParameters.F77
+SRCS = InitialData.F77
 
 # Subdirectories containing source files
 SUBDIRS =