| 1 | module Eos_data
|
|---|
| 2 | #include "Flash.h"
|
|---|
| 3 | #include "Eos.h"
|
|---|
| 4 | #include "Eos_map.h"
|
|---|
| 5 |
|
|---|
| 6 | real, save :: eos_gasConstant
|
|---|
| 7 | real, save :: eos_smalle
|
|---|
| 8 | real, save :: eos_gamma
|
|---|
| 9 | real, save :: eos_singleSpeciesA
|
|---|
| 10 | real, save :: eos_singleSpeciesZ
|
|---|
| 11 | ! real, save :: eos_gammam1
|
|---|
| 12 | real, save :: eos_eintSwitch
|
|---|
| 13 | integer, save :: eos_type, eos_meshMe, eos_meshNumProcs, eos_globalMe
|
|---|
| 14 |
|
|---|
| 15 | ! maximum number of iterations for the Newton loop to find T from e
|
|---|
| 16 | integer, save :: eos_maxNewton
|
|---|
| 17 |
|
|---|
| 18 | ! how accurately to do the Newton iteration to get T from e
|
|---|
| 19 | real, save :: eos_tol
|
|---|
| 20 |
|
|---|
| 21 | ! force the iterative solver to leave inputs alone (always true in MODE_DENS_TEMP)
|
|---|
| 22 | logical, save :: eos_forceConstantInput
|
|---|
| 23 |
|
|---|
| 24 | real, save :: eos_smallt
|
|---|
| 25 | real, save :: eos_largeT = 1.0e10 ! used by some modified implementations of Newton-Raphson
|
|---|
| 26 | real, save :: eos_smallRho
|
|---|
| 27 |
|
|---|
| 28 | integer, save :: eos_logLevel = 700
|
|---|
| 29 |
|
|---|
| 30 | ! Some stuff that is only used by multiTemp implementations
|
|---|
| 31 | integer, save :: eos_combinedTempRule = -1
|
|---|
| 32 |
|
|---|
| 33 | integer, save :: eos_entrEleScaleChoice = -1
|
|---|
| 34 |
|
|---|
| 35 | real, save :: eos_smallEion=0.0, eos_smallEele=0.0, eos_smallErad=0.0
|
|---|
| 36 |
|
|---|
| 37 | #ifdef FIXEDBLOCKSIZE
|
|---|
| 38 | real,save,dimension(NSPECIES*MAXCELLS) :: eos_massFr
|
|---|
| 39 | real,save,dimension(EOS_NUM*MAXCELLS) :: eos_inOut
|
|---|
| 40 | #else
|
|---|
| 41 | real,save, allocatable :: eos_inOut(:),eos_massFr(:)
|
|---|
| 42 | #endif
|
|---|
| 43 |
|
|---|
| 44 | real,parameter :: eos_pradScaleFactor = 1.0 !hardwired for now
|
|---|
| 45 | #ifdef FLLM_VAR
|
|---|
| 46 | integer,parameter :: eos_pradScaleVar = FLLM_VAR
|
|---|
| 47 | #else
|
|---|
| 48 | integer,parameter :: eos_pradScaleVar = -1
|
|---|
| 49 | #endif
|
|---|
| 50 |
|
|---|
| 51 | integer, save, dimension(1:EOSMAP_NUM_ROLES, 1:2, 1:5) :: eos_mapLookup
|
|---|
| 52 | logical, save :: eos_threadWithinBlock = .false.
|
|---|
| 53 | end module Eos_data
|
|---|
