Searched refs:rhowP (Results 1 – 2 of 2) sorted by relevance
2056 REAL(KIND=dp) FUNCTION rhowP(CurrentSolventMaterial,rhow,p0,Pressure) function2069 rhowP = rhow * kappaW2070 END FUNCTION rhowP2246 rhogwP = (1.0_dp - xc)*rhowP + xc*rhocP
571 … rhowPAtIP = rhowP(CurrentSolventMaterial,rhowAtIP,p0,PressureAtIP) ! update with new rhowAtIP