aboutsummaryrefslogtreecommitdiff
path: root/src/CheckParameters.F
diff options
context:
space:
mode:
Diffstat (limited to 'src/CheckParameters.F')
-rw-r--r--src/CheckParameters.F51
1 files changed, 0 insertions, 51 deletions
diff --git a/src/CheckParameters.F b/src/CheckParameters.F
deleted file mode 100644
index e02897e..0000000
--- a/src/CheckParameters.F
+++ /dev/null
@@ -1,51 +0,0 @@
- /*@@
- @file CheckParameters.F
- @date
- @author Gabrielle Allen
- @desc
- Check parameters for the wave equation evolver
- @enddesc
- @@*/
-
-#include "cctk.h"
-#include "cctk_parameters.h"
-#include "cctk_arguments.h"
-
-
- /*@@
- @routine WaveToy_CheckParameters
- @date
- @author Gabrielle Allen
- @desc
- Check parameters for the wave equation evolver
- @enddesc
- @calls
- @calledby
- @history
-
- @endhistory
-
-@@*/
-
- subroutine WaveToyF90_CheckParameters(CCTK_FARGUMENTS)
-
- implicit none
-
- DECLARE_CCTK_FARGUMENTS
- DECLARE_CCTK_PARAMETERS
-
- INTEGER CCTK_Equals
-
- if (CCTK_Equals(initial_data,"box")==1) then
-
- if (CCTK_Equals(type, "box")==0) then
- call CCTK_PARAMWARN("Must have a box grid with box initial data")
- end if
-
- if (kx==0 .or. ky==0 .or. kz==0) then
- call CCTK_PARAMWARN("Cannot have zero kx,ky,kz for box initial data")
- end if
-
- end if
-
- end subroutine WaveToyF90_CheckParameters