Searched refs:XiYc (Results 1 – 1 of 1) sorted by relevance
| /dports/science/elmerfem/elmerfem-release-9.0/elmerice/Solvers/ |
| H A D | PermafrostMaterials.F90 | 1810 REAL (KIND=dp) FUNCTION XiYc(B,D,bi,biYc,Xi,delta) function
1822 XiYc = 0.5_dp*aux1*(aux2 + aux3)*Xi*Xi
1828 END FUNCTION XiYc
1916 XiYcAtIP = XiYc(BAtIP,DAtIP,biAtIP,biYcAtIP,XiAtIP,deltaInElement)
2435 FUNCTION GetCGTyc(rhoi,hi,hw,XiYc,Porosity)RESULT(CGTyc)! All state variables or derived values
2437 REAL(KIND=dp), INTENT(IN) :: rhoi,hi,hw,XiYc,Porosity local
2440 CGTyc = Porosity*rhoi*(hw - hi)*XiYc
2541 FUNCTION GetCgwpYc(rhogw,rhoi,rhogwYc,Xi,XiYc,Porosity)RESULT(CgwpYc)
2543 REAL(KIND=dp), INTENT(IN) :: rhogw,rhoi,rhogwYc,Xi,XiYc,Porosity local
2546 CgwpYc = Porosity * ( (rhogw - rhoi) * XiYc + Xi * rhogwYc )
|