Searched refs:PhaseChangeIntervals (Results 1 – 2 of 2) sorted by relevance
| /dports/science/elmerfem/elmerfem-release-9.0/fem/src/modules/ |
| H A D | HeatSolve.F90 | 113 ElectricCurrent(:), PhaseChangeIntervals(:,:),ForceVector(:), & local
1876 PhaseChangeIntervals => ListGetConstRealArray( Material, &
1881 DO j=1,SIZE(PhaseChangeIntervals,2)
1882 IF ( ( Temperature(i) < PhaseChangeIntervals(1,j) .AND. &
1883 PrevSolution(i) > PhaseChangeIntervals(2,j) ).OR. &
1884 ( Temperature(i) > PhaseChangeIntervals(2,j) .AND. &
1885 PrevSolution(i) < PhaseChangeIntervals(1,j) ) ) THEN
|
| /dports/science/elmerfem/elmerfem-release-9.0/elmerice/Solvers/ |
| H A D | EnthalpySolver.F90 | 103 ElectricCurrent(:), PhaseChangeIntervals(:,:),ForceVector(:), & local
1923 PhaseChangeIntervals => ListGetConstRealArray( Material, &
1928 DO j=1,SIZE(PhaseChangeIntervals,2)
1929 IF ( ( Enthalpy_h(i) < PhaseChangeIntervals(1,j) .AND. &
1930 PrevSolution(i) > PhaseChangeIntervals(2,j) ).OR. &
1931 ( Enthalpy_h(i) > PhaseChangeIntervals(2,j) .AND. &
1932 PrevSolution(i) < PhaseChangeIntervals(1,j) ) ) THEN
|