diff options
| author | bmundim <bmundim@c83d129a-5a75-4d5a-9c4d-ed3a5855bf45> | 2010-05-02 20:59:32 +0000 |
|---|---|---|
| committer | bmundim <bmundim@c83d129a-5a75-4d5a-9c4d-ed3a5855bf45> | 2010-05-02 20:59:32 +0000 |
| commit | 74fb1e6ea34d6e03a35ff6c158f455c39904bf5a (patch) | |
| tree | d8f9b95f30517e9bafd8c67301c7383bc8beb76e /src/GRHydro_Scalars.F90 | |
| parent | 291e94d06b30046227fb075cbfa97b9656339d5a (diff) | |
file/parameter string replacement from whisky to GRHydro
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinEvolve/GRHydro/trunk@112 c83d129a-5a75-4d5a-9c4d-ed3a5855bf45
Diffstat (limited to 'src/GRHydro_Scalars.F90')
| -rw-r--r-- | src/GRHydro_Scalars.F90 | 30 |
1 files changed, 30 insertions, 0 deletions
diff --git a/src/GRHydro_Scalars.F90 b/src/GRHydro_Scalars.F90 new file mode 100644 index 0000000..2cc245e --- /dev/null +++ b/src/GRHydro_Scalars.F90 @@ -0,0 +1,30 @@ + /*@@ + @file GRHydro_Scalars.F90 + @date Mon Feb 25 11:11:23 2002 + @author + @desc + Module containing various scalars to avoid having to use + CCTK_EQUALS on keywords at every cell (slow). + @enddesc + @@*/ + +#include "cctk.h" +#include "cctk_Parameters.h" +#include "cctk_Arguments.h" + + module GRHydro_Scalars + + implicit none + + LOGICAL :: MINMOD, MINMOD2, MINMOD3, MC1, MC2, SUPERBEE, PPM3, PPM4 + LOGICAL :: ANALYTICAL + LOGICAL :: FAST + + CCTK_INT :: EOS_RiemannCallPlus, EOS_RiemannCallMinus, EOS_RoeAverageCall + CCTK_INT :: EOS_Con2PrimCall + CCTK_INT :: EOS_Prim2ConBndCallPlus, EOS_Prim2ConBndCallMinus + CCTK_INT :: EOS_Prim2ConCellsCall + + CCTK_REAL :: eosgeneral_pmin + + end module GRHydro_Scalars |