Searched refs:giaT (Results 1 – 1 of 1) sorted by relevance
| /dports/science/elmerfem/elmerfem-release-9.0/elmerice/Solvers/ |
| H A D | PermafrostMaterials.F90 | 1603 REAL (KIND=dp) FUNCTION giaT(CurrentSolventMaterial,& function
1627 giaT = -(CurrentSolventMaterial % hi0)/T0 - aux
1628 IF (giaT .NE. giaT) THEN
1633 END FUNCTION giaT
1761 B,D,Xi,bi,p0,delta,deltaG,T0,gwa,gia,gwaT,giaT,GasConstant,Temperature)
1765 T0,gwa,gia,gwaT,giaT,GasConstant,Temperature local
1784 aux3 = ((gwa - gia)/Temperature - (gwaT - giaT))
1906 giaTAtIP = giaT(CurrentSolventMaterial,&
|