| H A D | PermafrostMaterials.F90 | 1760 REAL (KIND=dp) FUNCTION XiT(CurrentSolventMaterial,& function
1785 XiT = 0.5_dp*(Mw/(GasConstant*Temperature))*aux1*aux2*aux3*Xi*Xi
1786 END FUNCTION XiT
1910 XiTAtIP= XiT(CurrentSolventMaterial,&
2410 FUNCTION GetCGTT(Xi,XiT,rhos,rhow,rhoi,rhoc,cw,ci,cs,cc,hi,hw,&
2413 REAL(KIND=dp), INTENT(IN) :: Xi,XiT,rhos,rhow,rhoi,rhoc,cw,ci,cs,cc,& local
2424 + rhoi*(hw - hi)*Porosity*XiT
2532 FUNCTION GetCgwpT(rhogw,rhoi,rhogwT,rhoiT,rhosT,Xi,XiT,Porosity)RESULT(CgwpT)
2534 REAL(KIND=dp), INTENT(IN) :: rhogw,rhoi,rhogwT,rhoiT,rhosT,Xi,XiT,Porosity local
2635 REAL(KIND=dp), INTENT(IN) :: fw,XiT,Kgw(3,3) local
[all …]
|