blob: dfd3d94033bf65309b1752f4598468605e588fd5 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
! Arrays to store dissipation operator coefficients for the full restricted norm case.
! $Header$
#include "cctk.h"
module dissipation_coeff
type coefficients
CCTK_REAL, dimension(:,:), pointer :: coeff
end type coefficients
type(coefficients), dimension(:), pointer :: xcoeff, ycoeff, zcoeff
logical :: first = .true.
logical, dimension(:), allocatable :: savedx, savedy, savedz
end module dissipation_coeff
|