diff options
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..ccf9fbb --- /dev/null +++ b/src/CheckParameters.F77 @@ -0,0 +1,52 @@ + /*@@ + @file CheckParameters.F77 + @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 WaveToyF77_CheckParameters + @date + @author Gabrielle Allen + @desc + Check parameters for the wave equation evolver + @enddesc + @calls + @calledby + @history + + @endhistory + +@@*/ + + subroutine WaveToyF77_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 |