diff options
author | diener <diener@89daf98e-ef62-4674-b946-b8ff9de2216c> | 2002-04-30 12:44:48 +0000 |
---|---|---|
committer | diener <diener@89daf98e-ef62-4674-b946-b8ff9de2216c> | 2002-04-30 12:44:48 +0000 |
commit | 28e8940b0905cc35c44fc40b93681e974e2897df (patch) | |
tree | 9f8ed4a0114468d7562cbe6c1b0eae4ee79a57db | |
parent | 222c0964bb678ec9e84add05a294168b5655fb3c (diff) |
Paramcheck routine to detect problems with the conformal state.
Essentially just a Fortranized version of Tom's routine for ADMAnalysis.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/AHFinder/trunk@294 89daf98e-ef62-4674-b946-b8ff9de2216c
-rw-r--r-- | src/AHFinder_ParamCheck.F90 | 42 |
1 files changed, 42 insertions, 0 deletions
diff --git a/src/AHFinder_ParamCheck.F90 b/src/AHFinder_ParamCheck.F90 new file mode 100644 index 0000000..9d63f2e --- /dev/null +++ b/src/AHFinder_ParamCheck.F90 @@ -0,0 +1,42 @@ +! @@ +! @file ParamCheck.F90 +! @date Mon Apr 29 17:51:25 2002 +! @author Peter Diener +! @desc +! Parameter checking stuff for AHFinder +! @enddesc +! @version $Header$ +! @@ + +#include "cctk.h" +#include "cctk_Arguments.h" +#include "cctk_Parameters.h" + +! CCTK_FILEVERSION(CactusEinstein_AHFinder_ParamCheck_f) + +! @@ +! @routine AHFinder_ParamCheck +! @date Thu Apr 29 17:51:25 2002 +! @author Peter Diener +! @desc +! Scheduled routine to detect invalid parameter settings. +! @enddesc +! @calls +! @calledby +! @history +! +! @endhistory +! +! @@ + +subroutine AHFinder_ParamCheck(CCTK_ARGUMENTS) + + DECLARE_CCTK_ARGUMENTS + DECLARE_CCTK_PARAMETERS + DECLARE_CCTK_FUNCTIONS + + if ( ( .not. CCTK_EQUALS(metric_type,'physical') ) .and. & + ( .not. CCTK_EQUALS(metric_type,'static conformal') ) ) then + call CCTK_PARAMWARN('Unknown ADMBase::metric_type - known types are "physical" and "static conformal"') + end if +end subroutine AHFinder_ParamCheck |