[Commits] [svn:einsteintoolkit] EOS_Omni/trunk/src/ (Rev. 79)
cott at tapir.caltech.edu
cott at tapir.caltech.edu
Sat Mar 23 15:27:24 CDT 2013
User: cott
Date: 2013/03/23 03:27 PM
Modified:
/trunk/src/
EOS_Omni_MultiVarCalls.F90, EOS_Omni_SingleVarCalls.F90
Log:
* fix an issue with coldEOS+gamma-law (thermal pressure was not added)
* improve a multi-var EOS call for dpdrho and dpdeps
File Changes:
Directory: /trunk/src/
======================
File [modified]: EOS_Omni_MultiVarCalls.F90
Delta lines: +2 -2
===================================================================
--- trunk/src/EOS_Omni_MultiVarCalls.F90 2013-03-23 20:10:20 UTC (rev 78)
+++ trunk/src/EOS_Omni_MultiVarCalls.F90 2013-03-23 20:27:23 UTC (rev 79)
@@ -179,8 +179,8 @@
xtemp = temp(i)
xye = ye(i)
xenr = eps(i) * inv_eps_gf
- call nuc_eos_dpdr_dpde(xrho,xtemp,xye,xenr,xdpdrhoe,&
- xdpderho,&
+ call nuc_eos_dpdr_dpde(xrho,xtemp,xye,xenr, &
+ xdpderho, xdpdrhoe,&
keytemp,keyerr(i),rf_precision)
if(keyerr(i).ne.0) then
File [modified]: EOS_Omni_SingleVarCalls.F90
Delta lines: +1 -1
===================================================================
--- trunk/src/EOS_Omni_SingleVarCalls.F90 2013-03-23 20:10:20 UTC (rev 78)
+++ trunk/src/EOS_Omni_SingleVarCalls.F90 2013-03-23 20:27:23 UTC (rev 79)
@@ -151,7 +151,7 @@
press_cold = coldeos_kappa * rho(i)**gamma
press_th = coldeos_thfac*(coldeos_gammath - 1.0d0)*rho(i)*eps_th
- press(i) = press_cold !+ press_th
+ press(i) = press_cold + press_th
enddo
case DEFAULT
More information about the Commits
mailing list