blob: 2aee7f1ef2eb1e53ffa97beac70697c9866360ce (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
/*@@
@file GRHydro_WENOScalars.F90
@date Fri Jan 3 2013
@author Ian Hawke, Christian Reisswig
@desc
Module containing the coefficient array for WENO reconstruction.
@enddesc
@@*/
#include "cctk.h"
#include "cctk_Parameters.h"
#include "cctk_Arguments.h"
module GRHydro_WENOScalars
implicit none
CCTK_REAL, allocatable :: weno_coeffs(:, :)
CCTK_REAL, allocatable :: beta_shu(:, :)
logical, save :: coeffs_allocated = .false.
end module GRHydro_WENOScalars
|