[Commits] [svn:einsteintoolkit] EOS_Omni/trunk/src/ (Rev. 48)

[cott at tapir.caltech.edu]

User: cott
Date: 2011/06/10 07:32 PM

Modified:
 /trunk/src/
  EOS_Omni_SingleVarCalls.F90

Log:
 * fix dpdrho issue

File Changes:

Directory: /trunk/src/
======================

File [modified]: EOS_Omni_SingleVarCalls.F90
Delta lines: +3 -1
===================================================================
--- trunk/src/EOS_Omni_SingleVarCalls.F90	2011-04-21 04:46:37 UTC (rev 47)
+++ trunk/src/EOS_Omni_SingleVarCalls.F90	2011-06-11 00:32:35 UTC (rev 48)
@@ -203,8 +203,10 @@
                 press_gf * hybrid_k1_cgs * inv_rho_gf**hybrid_gamma1 *               &
                 hybrid_rho_nuc**(hybrid_gamma1 - 1.d0)
 
-           dpdrhoe(i) = hybrid_dp_poly + hybrid_dp_th1 + hybrid_dp_th2
+           dpdrhoe(i) = hybrid_dp_poly + max(0.0d0,hybrid_dp_th1 + hybrid_dp_th2)
 
+           
+
         enddo
 
      case (4)