blob: e4fc1968e919e2d9ebeb4c0c1556c1fbe2865a69 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
|
/*@@
@file ParamCheck.F
@date Tue Feb 23 1999
@author Gabrielle Allen
@desc
Check parameters for CartGrid3D
@enddesc
@@*/
#include "cctk.h"
#include "declare_arguments.h"
#include "declare_parameters.h"
subroutine ParamCheck_CartGrid3D(CCTK_FARGUMENTS)
implicit none
DECLARE_CCTK_FARGUMENTS
DECLARE_PARAMETERS
integer :: CCTK_Equals
if (CCTK_Equals(grid,"box")==1 .and.
& CCTK_Equals(symmetry,"full")==0) then
write(*,*)
! CHAR(34) is a speechmark
write(*,*) "No symmetries can be used with grid = "//
& CHAR(34)//"box"//CHAR(34)
write(*,*) "In par file set symmetry = "//CHAR(34)//"full"//CHAR(34)
end if
return
end subroutine ParamCheck_CartGrid3D
|