Home
last modified time | relevance | path

Searched refs:FlowPerm (Results 1 – 25 of 30) sorted by relevance

12

/dports/science/elmerfem/elmerfem-release-9.0/elmerice/UserFunctions/
H A DUSF_Sliding.F9076 INTEGER, POINTER :: NormalPerm(:), FlowPerm(:) local
138 FlowPerm => FlowVariable % Perm
150 velo(i) = FlowValues( (DIM+1)*(FlowPerm(Nodenumber)-1) + i )
157 velo(i) = FlowValues( (DIM-1)*(FlowPerm(Nodenumber)-1) + i )
341 FlowPerm => FlowVariable % Perm
351 velo(i) = FlowValues( (DIM+1)*(FlowPerm(Nodenumber)-1) + i )
375 Pice = FlowValues((DIM+1)*FlowPerm(Nodenumber))
589 FlowPerm => FlowVariable % Perm
599 velo(i) = FlowValues( (DIM+1)*(FlowPerm(Nodenumber)-1) + i )
605 velo(i) = FlowValues( (DIM-1)*(FlowPerm(Nodenumber)-1) + i )
[all …]
H A DUSF_GetFrictionHeating.F9066 INTEGER, POINTER :: FlowPerm(:),StressPerm(:), NormalPerm(:) local
91 FlowPerm => FlowVar % Perm
107 velo(i) = FlowValues( (DIM+1)*(FlowPerm(Node)-1) + i )
167 INTEGER, POINTER :: FlowPerm(:),FlowLoadPerm(:), NormalPerm(:), MaskPerm(:) local
240 FlowPerm => FlowVar % Perm
268 velo(i) = FlowValues( (DIM+1)*(FlowPerm(Node)-1) + i )
H A DUSF_CouplingGlaDS_SSA.F9051 INTEGER, POINTER :: FlowPerm(:) local
65 FlowPerm => FlowVariable % Perm
73 velo(i) = FlowValues( (DIM)*(FlowPerm(Nodenumber)-1) + i )
H A DUSF_LateralFriction.F9087 INTEGER, POINTER :: FlowPerm(:) local
132 FlowPerm => FlowVariable % Perm
140 Velo(i) = FlowValues(3*(FlowPerm(nodenumber)-1) + i)
H A DUSF_Damage.F9091 INTEGER, POINTER :: StressPerm(:), FlowPerm(:), ChiPerm(:), PSeaDPerm(:) local
168 FlowPerm => FlowVariable % Perm
186 Sig(i,i) = SigDev(i,i) - FlowValues((DIM+1)*FlowPerm(Nodenumber))
190 SigDev(i,i) = Sig(i,i) + FlowValues((DIM+1)*FlowPerm(Nodenumber))
H A DCaffeFlow.F9072 INTEGER, POINTER :: FlowPerm(:), FabricPerm(:), TempPerm(:), NodeIndexes(:) local
124 FlowPerm => FlowVariable % Perm
177 …LocalVelo(i,1:elementNbNodes) = FlowValues( STDOFs*(FlowPerm(NodeIndexes(1:elementNbNodes))-1) + i)
/dports/science/elmerfem/elmerfem-release-9.0/fem/src/modules/
H A DStructuredFlowLine.F9070 BotPointer(:),UpPointer(:),DownPointer(:),NodeIndexes(:),FlowPerm(:),& local
274 FlowPerm => Var % Perm
342 v1(1) = Flow( FlowDofs*(FlowPerm(k)-1) + 1 )
343 v1(2) = Flow( FlowDofs*(FlowPerm(k)-1) + 2 )
345 v1(3) = Flow( FlowDofs*(FlowPerm(k)-1) + 3 )
364 v2(1) = Flow( FlowDofs*(FlowPerm(k)-1) + 1 )
365 v2(2) = Flow( FlowDofs*(FlowPerm(k)-1) + 2 )
367 v2(3) = Flow( FlowDofs*(FlowPerm(k)-1) + 3 )
663 IF( ALL ( FlowPerm( NodeIndexes) > 0 )) THEN
666 Flow( FlowDofs*( FlowPerm( NodeIndexes )-1)+i ) )
[all …]
H A DFlowSolve.F90104 INTEGER, POINTER :: FlowPerm(:),TempPerm(:), MeshPerm(:) local
250 FlowPerm => FlowSol % Perm
255 LocalNodes = COUNT( FlowPerm > 0 )
646 U(1:nd) = FlowSolution(NSDOFs*FlowPerm(Indexes(1:nd))-2)
647 V(1:nd) = FlowSolution(NSDOFs*FlowPerm(Indexes(1:nd))-1)
656 U(1:nd) = FlowSolution(NSDOFs*FlowPerm(Indexes(1:nd))-3)
657 V(1:nd) = FlowSolution(NSDOFs*FlowPerm(Indexes(1:nd))-2)
658 W(1:nd) = FlowSolution(NSDOFs*FlowPerm(Indexes(1:nd))-1)
756 NSDOFs*FlowPerm(Indexes(1:nd)),1 )
1171 U(1:n) = FlowSolution( NSDOFs*FlowPerm(NodeIndexes)-2 )
[all …]
H A DAcoustics.F90201 FlowPerm => Solver % Variable % Perm
202 LocalNodes = COUNT( FlowPerm > 0 )
635 j = FlowPerm(NodeIndexes(i))
1332 FlowPerm)
1336 FlowPerm)
1338 FlowPerm)
1341 FlowPerm)
1343 FlowPerm)
1348 FlowPerm)
1350 FlowPerm)
[all …]
H A DPressureUpdate.F9089 INTEGER, POINTER :: FlowPerm(:) local
262 FlowPerm => Solver % Variable % Perm
291 … IF (Found) Found = ALL( FlowPerm(Parent % NodeIndexes(1: Parent % TYPE % NumberOfNodes)) > 0 )
296 … IF (Found) Found = ALL( FlowPerm(Parent % NodeIndexes(1: Parent % TYPE % NumberOfNodes)) > 0 )
H A DHelmholtzSolve.F90106 INTEGER, POINTER :: FlowPerm(:), DispPerm(:), PresPerm(:) local
197 FlowPerm => FlowSol % Perm
430 IF ( ANY( FlowPerm( Element % NodeIndexes(1:n) ) == 0 ) ) THEN
434 k = FlowPerm( Element % NodeIndexes(j) )
H A DAdvectionReaction.F90706 INTEGER, POINTER :: FlowPerm(:) local
736 FlowPerm => FlowSol % Perm
747 k = FlowPerm(Element % NodeIndexes(i))
H A DKESolver.F9072 INTEGER, POINTER :: FlowPerm(:),KinPerm(:) local
118 FlowPerm => FlowSol % Perm
393 k = FlowPerm(NodeIndexes(j))
H A DFreeSurfaceSolver.F90256 FreeSurfPerm(:), FlowPerm(:), NodeIndexes(:), EdgeMap(:,:) local
666 FlowPerm => FlowSol % Perm
678 j = NSDOFs*FlowPerm(NodeIndexes(i))
/dports/science/elmerfem/elmerfem-release-9.0/elmerice/Solvers/
H A DEmergence.F9062 INTEGER, POINTER :: FlowPerm(:), NodeIndexes(:), NPerm(:), Permutation(:) local
146 FlowPerm => FlowSol % Perm
157 j = NSDOFs*FlowPerm(NodeIndexes(i))
H A DIntegratedVelocity.F9078 FlowPerm(:), HeightPerm(:) local
123 FlowPerm => FlowVariable % Perm
169 NodalVar(1:n) = FlowValues((DIM+1)*(FlowPerm(NodeIndexes(1:n))-1) + COMP)
187 NodalVar(1:n) = FlowValues((DIM+1)*(FlowPerm(NodeIndexes(1:n))-1) + COMP)
H A DDeformationalHeat.F9073 INTEGER, POINTER :: Permutation(:), FlowPerm(:), NodeIndexes(:) local
96 FlowPerm => FlowSol % Perm
134 j = NSDOFs*FlowPerm(NodeIndexes(i))
H A DOutputStrainHeating.F9095 INTEGER, POINTER :: FlowPerm(:),VarPerm(:) local
149 FlowPerm => FlowSol % Perm
171 k = FlowPerm(Element % NodeIndexes(i))
H A DComputeDevStressNS.F90100 FlowPerm(:) local
148 FlowPerm => FlowVariable % Perm
290 LocalVelo(i,1:n) = FlowValues((dim+1)*(FlowPerm(NodeIndexes(1:n))-1) + i)
300 LocalP(1:n) = FlowValues((dim+1)*FlowPerm(NodeIndexes(1:n)))
H A DComputeStrainRate.F9096 FlowPerm(:) local
125 FlowPerm => FlowVariable % Perm
249 LocalVelo(i,1:n) = FlowValues((dim+1)*(FlowPerm(NodeIndexes(1:n))-1) + i)
H A DFabricSolve.F9095 FlowPerm(:), MeshVeloPerm(:), EigenFabricPerm(:) local
173 FlowPerm => FlowVariable % Perm
369 Velocity(i,1:n) = FlowValues(k*(FlowPerm(NodeIndexes)-1)+i)
416 Velocity(i,1:n) = FlowValues(k*(FlowPerm(Edge % NodeIndexes)-1)+i)
454 Velocity(i,1:n) = FlowValues(k*(FlowPerm(Edge % NodeIndexes(1:n))-1)+i)
498 Velocity(i,1:n) = FlowValues(k*(FlowPerm(Element % NodeIndexes(1:n))-1)+i)
H A DThicknessSolver.F9064 ThickPerm(:), DHDTPrem(:),FlowPerm(:), NodeIndexes(:), EdgeMap(:,:) local
282 FlowPerm => FlowSol % Perm
359 j = NSDOFs*FlowPerm(NodeIndexes(i))
H A DTemperateIce.F9085 INTEGER, POINTER :: NodeIndexes(:), TempPerm(:),FlowPerm(:),CurrentPerm(:),MeshPerm(:) local
553 FlowPerm => FlowSol % Perm
658 k = FlowPerm(Element % NodeIndexes(i))
H A DSSASolver.F901227 INTEGER, POINTER :: FlowPerm(:) local
1322 FlowPerm => FlowSol % Perm
1460 …tDirichletPoint(StiffMatrix,ForceVector,1,1,Permutation,i,FlowSolution(NSDOFs*(FlowPerm(i)-1)+DIM))
1491 Coupled(NSDOFs*(CoupledPerm(i)-1)+j) = FlowSolution(NSDOFs*(FlowPerm(i)-1)+j)
/dports/science/elmerfem/elmerfem-release-9.0/fem/tests/AdvReactDG_P/
H A DAdvReactDG_P.F90638 INTEGER, POINTER :: FlowPerm(:) local
668 FlowPerm => FlowSol % Perm
679 k = FlowPerm(Element % NodeIndexes(i))

12