diff options
author | allen <allen@f5a6acaf-da7d-456b-b0a8-35edbc60b392> | 1999-09-04 11:04:43 +0000 |
---|---|---|
committer | allen <allen@f5a6acaf-da7d-456b-b0a8-35edbc60b392> | 1999-09-04 11:04:43 +0000 |
commit | 1041dda7933e0f825f89b860624d38bdc111ab3d (patch) | |
tree | 4951c3b144339e471706301b1a0aff3043a9e031 /src/CheckParameters.F77 | |
parent | 6bd95d7864ae146b91ca01b23897990540d4cde3 (diff) |
This commit was generated by cvs2svn to compensate for changes in r2, which
included commits to RCS files with non-trunk default branches.
git-svn-id: http://svn.cactuscode.org/arrangements/CactusWave/IDScalarWave/trunk@3 f5a6acaf-da7d-456b-b0a8-35edbc60b392
Diffstat (limited to 'src/CheckParameters.F77')
-rw-r--r-- | src/CheckParameters.F77 | 52 |
1 files changed, 52 insertions, 0 deletions
diff --git a/src/CheckParameters.F77 b/src/CheckParameters.F77 new file mode 100644 index 0000000..96e2d34 --- /dev/null +++ b/src/CheckParameters.F77 @@ -0,0 +1,52 @@ + /*@@ + @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 IDScalarWave_CheckParameters + @date + @author Gabrielle Allen + @desc + Check parameters for the wave equation initial data + @enddesc + @calls + @calledby + @history + + @endhistory + +@@*/ + + subroutine IDScalarWave_CheckParameters(CCTK_FARGUMENTS) + + implicit none + + DECLARE_CCTK_FARGUMENTS + DECLARE_CCTK_PARAMETERS + + INTEGER CCTK_Equals + + if (CCTK_Equals(initial_data,"box").eq.1) then + + if (CCTK_Equals(type, "box").eq.0) then + call CCTK_PARAMWARN("Must have a box grid with box initial data") + end if + + 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 |