diff options
| author | cott <cott@8e189c6b-2ab8-4400-aa02-70a9cfce18b9> | 2012-01-31 22:01:47 +0000 |
|---|---|---|
| committer | cott <cott@8e189c6b-2ab8-4400-aa02-70a9cfce18b9> | 2012-01-31 22:01:47 +0000 |
| commit | e4122388c179b0b2bb1c90ef4eb24a3794731c2f (patch) | |
| tree | 7b550ee9866bd1980aa150adbd4b2af905c80812 /src/nuc_eos/eosmodule.F90 | |
| parent | d6846422ead98808109f717d150a7b1cb178fdd0 (diff) | |
* add banner informing user that EOS table is being read
* fix scheduling issue (reading the table was not scheduled in global mode)
* re-add option of turning off energy shift
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinEOS/EOS_Omni/trunk@55 8e189c6b-2ab8-4400-aa02-70a9cfce18b9
Diffstat (limited to 'src/nuc_eos/eosmodule.F90')
| -rw-r--r-- | src/nuc_eos/eosmodule.F90 | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/src/nuc_eos/eosmodule.F90 b/src/nuc_eos/eosmodule.F90 index 9290c99..4a3e156 100644 --- a/src/nuc_eos/eosmodule.F90 +++ b/src/nuc_eos/eosmodule.F90 @@ -70,6 +70,8 @@ ! directly. subroutine allocate_eosmodule(nrho_, ntemp_, nye_, alltables_, logrho_, logtemp_, ye_, energy_shift_) use eosmodule + DECLARE_CCTK_PARAMETERS + CCTK_INT :: nrho_, ntemp_, nye_ CCTK_REAL :: alltables_(nrho_, ntemp_, nye_, 19) CCTK_REAL :: logrho_(nrho_) @@ -85,12 +87,17 @@ subroutine allocate_eosmodule(nrho_, ntemp_, nye_, alltables_, logrho_, logtemp_ allocate(logrho(nrho)) allocate(logtemp(ntemp)) allocate(ye(nye)) + alltables = alltables_ logrho = logrho_ logtemp = logtemp_ ye = ye_ + energy_shift = energy_shift_ + if(do_energy_shift.ne.1) then + energy_shift = 0.0d0 + endif ! set min-max values: eos_rhomin = 10.0d0**logrho(1) |