Searched refs:PorosityPerm (Results 1 – 2 of 2) sorted by relevance
| /dports/science/elmerfem/elmerfem-release-9.0/elmerice/Solvers/ |
| H A D | Permafrost.F90 | 3262 INTEGER, POINTER :: PorosityPerm(:), NodeIndexes(:) local
3298 PorosityPerm => PorosityVariable % Perm
3367 CurrentNode = PorosityPerm(i)
3410 INTEGER, POINTER :: PorosityPerm(:), NodeIndexes(:) local
3446 PorosityPerm => PorosityVariable % Perm
3512 CurrentNode = PorosityPerm(NodeIndexes(j))
3525 CurrentNode = PorosityPerm(NodeIndexes(j))
3597 PorosityPerm => PorosityVariable % Perm
3759 PorosityValues(PorosityPerm(CurrentNode)) = &
3770 … IF (PorosityValues(PorosityPerm(CurrentNode)) .NE. PorosityValues(PorosityPerm(CurrentNode))) THEN
[all …]
|
| H A D | PermafrostMaterials.F90 | 1001 TemperaturePerm, PressurePerm, PorosityPerm,SalinityPerm, & argument
1018 INTEGER ,POINTER :: TemperaturePerm(:), PressurePerm(:), PorosityPerm(:),SalinityPerm(:),& local
1152 PorosityPerm => PorosityVar % Perm
1277 TemperaturePerm, PressurePerm, PorosityPerm,SalinityPerm,& argument
1292 INTEGER ,POINTER :: TemperaturePerm(:), PressurePerm(:), PorosityPerm(:),SalinityPerm(:),& local
1318 NodalPorosity(1:N) = Porosity(PorosityPerm(Element % NodeIndexes(1:N)))
1323 PRINT *,SolverName,":", Porosity(PorosityPerm(Element % NodeIndexes(1:N)))
|