| /dports/science/elmerfem/elmerfem-release-9.0/fem/src/modules/ |
| H A D | TransientPhaseChange.F90 | 81 x(:), y(:), z(:), Basis(:), dBasisdx(:,:), NodalTemp(:), & local
104 Visited, Nodes, NodalTemp, Conductivity, LatentHeat, Density, &
256 x(n), y(n), z(n), Basis(n), dBasisdx(n,3), NodalTemp(n), &
550 NodalTemp(3*n), xx(10),yy(10),zz(10), NodalSurf(n), NodalNormal(3,n) local
647 NodalTemp(1:pn) = Temperature( TempPerm(Parent % NodeIndexes) )
676 SUM( dBasisdx(1:pn,j) * NodalTemp(1:pn) )
|
| H A D | HeatSolveVec.F90 | 917 REAL :: NodalEmissivity(12), NodalTemp(12) local
943 NodalTemp(1:n) = Temperature( TempPerm(ElemInds(1:n) ) )
945 NodalTemp(1:n) = Temperature( TempPerm(Element % NodeIndexes) )
947 Temps4(j) = ( SUM( NodalTemp(1:n)**4 )/ n )**(1._dp/4._dp)
987 REAL(KIND=dp) :: x,NodalTemp(12),RadCoeff(12),RadLoad(12) local
1038 NodalTemp(1:n) = Temperature( TempPerm( ElemInds(1:n) ) )
1040 NodalTemp(1:n) = Temperature( TempPerm( Element % NodeIndexes ) )
1048 RadCoeff(1:n) = 4 * Emis1 * NodalTemp(1:n)**3 * StefBoltz
1049 RadLoad(1:n) = 3 * Emis1 * NodalTemp(1:n)**4 * StefBoltz
1172 T0 = SUM( Basis(1:n) * NodalTemp(1:n) )
|
| H A D | PhaseChangeSolve.F90 | 108 x(:), y(:), z(:), Basis(:), dBasisdx(:,:), NodalTemp(:), & local
132 Visited, Nodes, PNodes, NodalTemp, Conductivity, LatentHeat, &
254 x(n), y(n), z(n), Basis(n), dBasisdx(n,3), NodalTemp(n), &
946 NodalTemp(3*nCoord), xx(10),yy(10),zz(10), NodalSurf(nCoord), NodalNormal(2,nCoord) local
1037 NodalTemp(1:pn) = Temperature( TempPerm(Parent % NodeIndexes) )
1066 SUM( dBasisdx(1:pn,j) * NodalTemp(1:pn) )
|
| H A D | SteadyPhaseChange.F90 | 78 x(:), y(:), z(:), Basis(:), NodalTemp(:), & local
98 Visited, Nodes, NodalTemp, Width, &
334 x(n), y(n), z(n), Basis(n), NodalTemp(n), &
|
| /dports/science/elmerfem/elmerfem-release-9.0/elmerice/Solvers/ |
| H A D | AIFlowSolve_nlD2.F90 | 1251 NodalVelo, NodalTemp, NodalFluidity, NodalFlowWidth, &
1261 REAL(KIND=dp) :: NodalVelo(:,:), NodalTemp(:), NodalFluidity(:), & local
1301 Temp = SUM( NodalTemp(1:n)*Basis(1:n) )
|
| H A D | AIFlowSolve_nlS2.F90 | 1286 NodalVelo, NodalTemp, NodalFluidity, NodalFlowWidth, &
1296 REAL(KIND=dp) :: NodalVelo(:,:), NodalTemp(:), NodalFluidity(:), & local
1336 Temp = SUM( NodalTemp(1:n)*Basis(1:n) )
|
| /dports/science/elmerfem/elmerfem-release-9.0/fem/src/ |
| H A D | Stress.F90 | 1231 Heatexpansion, NodalTemp, Isotropic, CSymmetry, PlaneStress, & argument
1241 HeatExpansion(:,:,:), NodalTemp(:), Temperature local
1347 Temperature = SUM( Basis(1:n) * NodalTemp(1:n) )
|