| /dports/science/elmerfem/elmerfem-release-9.0/elmerice/Solvers/ |
| H A D | ComputeStrainRate.F90 | 102 LocalVelo(:,:) local
115 SAVE LocalVelo, dim
175 LocalVelo, &
184 LocalVelo( 3,N ), &
247 LocalVelo = 0.0d0
249 LocalVelo(i,1:n) = FlowValues((dim+1)*(FlowPerm(NodeIndexes(1:n))-1) + i)
253 LocalForce, LocalVelo, CurrentElement, n, ElementNodes )
|
| H A D | ComputeDevStressNS.F90 | 112 LocalVelo(:,:), LocalViscosity(:) local
137 SAVE LocalVelo, LocalP, dim
195 LocalVelo, LocalP, &
207 LocalVelo( 3,N ), LocalP( N ), &
288 LocalVelo = 0.0_dp
290 LocalVelo(i,1:n) = FlowValues((dim+1)*(FlowPerm(NodeIndexes(1:n))-1) + i)
294 LocalVelo(DIM+1,1:n) = ListGetReal(BodyForce,'Out Of Plane Velocity',&
303 LocalForce, LocalVelo, LocalP, &
|
| H A D | PorousSolve.F90 | 145 LocalVelo(:,:), LocalFluidity(:) local
162 SAVE RefD, RefS, RefSpin, LocalVelo, SlipCoeff, dim
242 LocalVelo, &
257 LocalVelo(4,n),&
379 CALL GetVectorLocalSolution(LocalVelo)
383 LocalForce, LoadVector, LocalDensity, LocalVelo, &
565 CALL GetVectorLocalSolution(LocalVelo)
589 LocalVelo, LocalFluidity, &
645 Stress(l,l) = Stress(l,l) - LocalVelo(DIM+1,i)
|
| H A D | AIFlowSolve_nlD2.F90 | 138 LocalVelo(:,:), LocalFluidity(:), LocalFlowWidth(:) local
165 SAVE RefD, RefS, RefSpin, LocalVelo, SlipCoeff
247 LocalVelo, &
268 LocalVelo( 3,N ),&
418 LocalVelo = 0.0d0
420 LocalVelo(i,1:n) = AIFlow( STDOFs*(AIFlowPerm(NodeIndexes(1:n))-1) + i)
424 LocalForce, LoadVector, K1, K2, E1, E2, E3, LocalVelo, &
629 LocalVelo = 0.0d0
631 LocalVelo(i,1:n) = AIFlow( STDOFs*(AIFlowPerm(NodeIndexes(1:n))-1) + i)
657 LocalVelo, LocalTemperature, LocalFluidity, &
|
| H A D | AIFlowSolve_nlS2.F90 | 138 LocalVelo(:,:), LocalFluidity(:), LocalFlowWidth(:) local
165 SAVE RefD, RefS, RefSpin, LocalVelo, SlipCoeff
247 LocalVelo, &
268 LocalVelo( 3,N ),&
419 LocalVelo = 0.0d0
421 LocalVelo(i,1:n) = AIFlow( STDOFs*(AIFlowPerm(NodeIndexes(1:n))-1) + i)
425 LocalForce, LoadVector, K1, K2, E1, E2, E3, LocalVelo, &
630 LocalVelo = 0.0d0
632 LocalVelo(i,1:n) = AIFlow( STDOFs*(AIFlowPerm(NodeIndexes(1:n))-1) + i)
658 LocalVelo, LocalTemperature, LocalFluidity, &
|
| /dports/science/elmerfem/elmerfem-release-9.0/elmerice/UserFunctions/ |
| H A D | CaffeFlow.F90 | 58 REAL(KIND=dp) :: LocalVelo(3, Model % MaxElementNodes) local
175 LocalVelo = 0.0_dp
177 …LocalVelo(i,1:elementNbNodes) = FlowValues( STDOFs*(FlowPerm(NodeIndexes(1:elementNbNodes))-1) + i)
319 LGrad = MATMUL( LocalVelo(:,1:elementNbNodes), dBasisdx(1:elementNbNodes,:))
|
| /dports/science/elmerfem/elmerfem-release-9.0/fem/src/ |
| H A D | ParticleUtils.F90 | 4374 REAL(KIND=dp), POINTER :: LocalVelo(:,:) local
4384 SAVE :: Visited, Dim, LocalVelo, LocalPerm, InterfaceNodes
4390 ALLOCATE( LocalPerm(n), LocalVelo(n,3) )
4395 LocalVelo = 0.0_dp
4422 LocalVelo(i,k) = Var % Values( VeloFieldDofs*(j-1)+k)
4434 LocalVelo(i,k) = Var % Values( VeloFieldDofs*(j-1)+k)
4438 LocalVelo(i,1:dim) = 0.0_dp
4445 Velo(i) = SUM( Basis(1:n) * LocalVelo(1:n,i) )
4448 GradVelo(i,j) = SUM( dBasisdx(1:n,j) * LocalVelo(1:n,i) )
|