diff options
Diffstat (limited to 'src/EHFinder_ParamCheck.F90')
-rw-r--r-- | src/EHFinder_ParamCheck.F90 | 29 |
1 files changed, 5 insertions, 24 deletions
diff --git a/src/EHFinder_ParamCheck.F90 b/src/EHFinder_ParamCheck.F90 index ae9ec1e..9640d45 100644 --- a/src/EHFinder_ParamCheck.F90 +++ b/src/EHFinder_ParamCheck.F90 @@ -12,40 +12,21 @@ #include "cctk_Arguments.h" #include "cctk_Parameters.h" -! @@ -! @routine EHFinder_ParamCheck -! @date Tue May 21 21:26:45 2002 -! @author Peter Diener -! @desc -! Scheduled routine to detect invalid parameter settings. -! @enddesc -! @calls -! @calledby -! @history -! -! @endhistory -! -! @@ - subroutine EHFinder_ParamCheck(CCTK_ARGUMENTS) DECLARE_CCTK_ARGUMENTS DECLARE_CCTK_PARAMETERS DECLARE_CCTK_FUNCTIONS + character(len=128) :: param_warn + ! 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"') + param_warn = 'Unknown ADMBase::metric_type - known types are "physical" ' + param_warn = param_warn//'and "static conformal"' + call CCTK_PARAMWARN ( param_warn ) 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 |