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)