diff options
| author | diener <diener@2a26948c-0e4f-0410-aee8-f1d3e353619c> | 2003-02-04 01:20:38 +0000 |
|---|---|---|
| committer | diener <diener@2a26948c-0e4f-0410-aee8-f1d3e353619c> | 2003-02-04 01:20:38 +0000 |
| commit | 8544a77fec2e83904c859455b8731795efa6b5d6 (patch) | |
| tree | aa7a697c4ac573bc2354e043722cd9a07ad79457 /src/EHFinder_ParamCheck.F90 | |
| parent | ccb9491362c080c98b2847e048b11dfdcc86f4f4 (diff) | |
Added a few comments + code to check if ntheta and nphi are odd numbers.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/EHFinder/trunk@83 2a26948c-0e4f-0410-aee8-f1d3e353619c
Diffstat (limited to 'src/EHFinder_ParamCheck.F90')
| -rw-r--r-- | src/EHFinder_ParamCheck.F90 | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/src/EHFinder_ParamCheck.F90 b/src/EHFinder_ParamCheck.F90 index 1e92564..8e98d67 100644 --- a/src/EHFinder_ParamCheck.F90 +++ b/src/EHFinder_ParamCheck.F90 @@ -33,8 +33,19 @@ subroutine EHFinder_ParamCheck(CCTK_ARGUMENTS) DECLARE_CCTK_PARAMETERS DECLARE_CCTK_FUNCTIONS + ! Check if the metric is one of the known types: physical or + ! static conformal 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 + + ! Check if ntheta and nphi are odd as required for the Simpsons rulei + ! integration. + if ( mod(ntheta,2) .eq. 0 ) then + call CCTK_PARAMWARN('EHFinder::ntheta has to be an odd number') + end if + if ( mod(nphi,2) .eq. 0 ) then + call CCTK_PARAMWARN('EHFinder::nphi has to be an odd number') + end if end subroutine EHFinder_ParamCheck |