/dports/science/elmerfem/elmerfem-release-9.0/elmerice/UserFunctions/ |
H A D | USF_Sliding.F90 | 76 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 D | USF_GetFrictionHeating.F90 | 66 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 D | USF_CouplingGlaDS_SSA.F90 | 51 INTEGER, POINTER :: FlowPerm(:) local 65 FlowPerm => FlowVariable % Perm 73 velo(i) = FlowValues( (DIM)*(FlowPerm(Nodenumber)-1) + i )
|
H A D | USF_LateralFriction.F90 | 87 INTEGER, POINTER :: FlowPerm(:) local 132 FlowPerm => FlowVariable % Perm 140 Velo(i) = FlowValues(3*(FlowPerm(nodenumber)-1) + i)
|
H A D | USF_Damage.F90 | 91 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 D | CaffeFlow.F90 | 72 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 D | StructuredFlowLine.F90 | 70 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 D | FlowSolve.F90 | 104 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 D | Acoustics.F90 | 201 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 D | PressureUpdate.F90 | 89 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 D | HelmholtzSolve.F90 | 106 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 D | AdvectionReaction.F90 | 706 INTEGER, POINTER :: FlowPerm(:) local 736 FlowPerm => FlowSol % Perm 747 k = FlowPerm(Element % NodeIndexes(i))
|
H A D | KESolver.F90 | 72 INTEGER, POINTER :: FlowPerm(:),KinPerm(:) local 118 FlowPerm => FlowSol % Perm 393 k = FlowPerm(NodeIndexes(j))
|
H A D | FreeSurfaceSolver.F90 | 256 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 D | Emergence.F90 | 62 INTEGER, POINTER :: FlowPerm(:), NodeIndexes(:), NPerm(:), Permutation(:) local 146 FlowPerm => FlowSol % Perm 157 j = NSDOFs*FlowPerm(NodeIndexes(i))
|
H A D | IntegratedVelocity.F90 | 78 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 D | DeformationalHeat.F90 | 73 INTEGER, POINTER :: Permutation(:), FlowPerm(:), NodeIndexes(:) local 96 FlowPerm => FlowSol % Perm 134 j = NSDOFs*FlowPerm(NodeIndexes(i))
|
H A D | OutputStrainHeating.F90 | 95 INTEGER, POINTER :: FlowPerm(:),VarPerm(:) local 149 FlowPerm => FlowSol % Perm 171 k = FlowPerm(Element % NodeIndexes(i))
|
H A D | ComputeDevStressNS.F90 | 100 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 D | ComputeStrainRate.F90 | 96 FlowPerm(:) local 125 FlowPerm => FlowVariable % Perm 249 LocalVelo(i,1:n) = FlowValues((dim+1)*(FlowPerm(NodeIndexes(1:n))-1) + i)
|
H A D | FabricSolve.F90 | 95 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 D | ThicknessSolver.F90 | 64 ThickPerm(:), DHDTPrem(:),FlowPerm(:), NodeIndexes(:), EdgeMap(:,:) local 282 FlowPerm => FlowSol % Perm 359 j = NSDOFs*FlowPerm(NodeIndexes(i))
|
H A D | TemperateIce.F90 | 85 INTEGER, POINTER :: NodeIndexes(:), TempPerm(:),FlowPerm(:),CurrentPerm(:),MeshPerm(:) local 553 FlowPerm => FlowSol % Perm 658 k = FlowPerm(Element % NodeIndexes(i))
|
H A D | SSASolver.F90 | 1227 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 D | AdvReactDG_P.F90 | 638 INTEGER, POINTER :: FlowPerm(:) local 668 FlowPerm => FlowSol % Perm 679 k = FlowPerm(Element % NodeIndexes(i))
|