Home
last modified time | relevance | path

Searched refs:NSDOFs (Results 1 – 24 of 24) sorted by relevance

/dports/science/elmerfem/elmerfem-release-9.0/elmerice/Solvers/AdjointSSA/
H A DAdjointSSA_AdjointSolver.F9085 integer :: i,j,k,t,n,NSDOFs local
122 NSDOFs = Sol % DOFs
127 IF (DIM.eq.(NSDOFs+1)) CurrentModel % Dimension = NSDOFs
221 IF (VelocitybSol % DOFs.NE.NSDOFs) then
250 CALL RotateNTSystemAll( Vb, VbPerm, NSDOFs )
252 c = NSDOFs
279 IF ( NormalTangentialNOFNodes>0 .AND. NSDOFs>0 ) THEN
298 IF (NSDOFs>1) THEN
364 IF (NSDOFs>1) THEN
381 CALL BackRotateNTSystem(Sol%Values,Perm,NSDOFs)
[all …]
/dports/science/elmerfem/elmerfem-release-9.0/elmerice/Solvers/
H A DEmergence.F9061 INTEGER :: i,j,k, t,N,NMAX, DIM, NSDOFs, istat local
147 NSDOFs = FlowSol % DOFs
157 j = NSDOFs*FlowPerm(NodeIndexes(i))
158 IF((DIM == 2) .AND. (NSDOFs == 3)) THEN
162 ELSE IF ((DIM == 3) .AND. (NSDOFs == 4)) THEN
167 .AND. (DIM == 2) .AND. (NSDOFs == 4)) THEN
173 'DIM=', DIM, ' NSDOFs=', NSDOFs, ' does not combine. Aborting'
H A DThicknessSolver.F90283 NSDOFs = FlowSol % DOFs
318 IF (NSDOFs == 1) THEN
321 ELSE IF (NSDOFs == 2) THEN
327 NSDOFs, ' . Aborting'
605 LOAD, Velo, NSDOFs, MeshVelo, &
712 DO i=1,NSDOFs
716 DO i=1,NSDOFs
722 DO i=1,NSDOFs
753 DO i=1,NSDOFs
758 DO i=1,NSDOFs
[all …]
H A DOutputStrainHeating.F9088 INTEGER :: t,i,j,k,n,m,NSDOFs,istat, DIM,jj local
150 NSDOFs = FlowSol % DOFs
173 SELECT CASE( NSDOFs )
175 UX(i) = FlowSolution( NSDOFs*k-2 )
176 UY(i) = FlowSolution( NSDOFs*k-1 )
179 UX(i) = FlowSolution( NSDOFs*k-3 )
180 UY(i) = FlowSolution( NSDOFs*k-2 )
181 UZ(i) = FlowSolution( NSDOFs*k-1 )
H A DAdjointSolver.F9078 integer :: t,n,NSDOFs,NVals,SolverInd local
108 NSDOFs = Sol % DOFs
117 allocate(FORCE( 2*NSDOFs*N ),STIFF( 2*NSDOFs*N,2*NSDOFs*N ),ExtPressure(N), &
H A DDeformationalHeat.F9077 Integer :: STDOFs,NSDOFs,dim local
97 NSDOFs = FlowSol % DOFs
134 j = NSDOFs*FlowPerm(NodeIndexes(i))
H A DTemperateIce.F9083 NSDOFs, NonlinearIter, GhostNodes, NonlinearIterMin, constrainednodes local
554 NSDOFs = FlowSol % DOFs
660 Pressure(i) = FlowSolution(NSDOFs*k) + ReferencePressure
661 SELECT CASE( NSDOFs )
663 IceVeloU(i) = FlowSolution( NSDOFs*k-2 )
664 IceVeloV(i) = FlowSolution( NSDOFs*k-1 )
667 IceVeloU(i) = FlowSolution( NSDOFs*k-3 )
668 IceVeloV(i) = FlowSolution( NSDOFs*k-2 )
669 IceVeloW(i) = FlowSolution( NSDOFs*k-1 )
H A DSSASolver.F901226 INTEGER :: NSDOFs local
1321 NSDOFs = FlowSol % DOFs
1460 …CALL SetDirichletPoint(StiffMatrix,ForceVector,1,1,Permutation,i,FlowSolution(NSDOFs*(FlowPerm(i)-…
1484 DO i = 1, SIZE(Coupled)/NSDOFs !goes through rows in flowsolution
1486 DO j=1,NSDOFs
1487 Coupled(NSDOFs*(CoupledPerm(i)-1)+j)= Velocity(NSDOFs*(VeloPerm(i)-1)+j)
1490 DO j=1,NSDOFs
1491 Coupled(NSDOFs*(CoupledPerm(i)-1)+j) = FlowSolution(NSDOFs*(FlowPerm(i)-1)+j)
H A DEnthalpySolver.F9095 INTEGER :: NSDOFs,NewtonIter,NonlinearIter,MDOFs, & local
219 NSDOFs = FlowSol % DOFs
937 Pressure(i) = FlowSolution(NSDOFs*k) + ReferencePressure
944 dPressureDt(i) = ( FlowSolution(NSDOFs*k) - &
945 FlowSol % PrevValues(NSDOFs*k,1) ) / dt
949 SELECT CASE( NSDOFs )
951 U(i) = FlowSolution( NSDOFs*k-2 )
952 V(i) = FlowSolution( NSDOFs*k-1 )
956 U(i) = FlowSolution( NSDOFs*k-3 )
957 V(i) = FlowSolution( NSDOFs*k-2 )
[all …]
H A DCaffeSolver.F90102 INTEGER :: NSDOFs, body_id,bf_id,eq_id, material_id, other_body_id local
454 NSDOFs = FlowVariable % DOFs
525 SELECT CASE( NSDOFs )
527 IceVeloU(i) = FlowValues( NSDOFs*k-2 )
528 IceVeloV(i) = FlowValues( NSDOFs*k-1 )
531 IceVeloU(i) = FlowValues( NSDOFs*k-3 )
532 IceVeloV(i) = FlowValues( NSDOFs*k-2 )
533 IceVeloW(i) = FlowValues( NSDOFs*k-1 )
H A DGlaDSCoupledSolver.F9079 NSDOFs, NonlinearIter, GhostNodes, NonlinearIterMin, Ne, BDForder, & local
/dports/science/elmerfem/elmerfem-release-9.0/fem/src/modules/
H A DFlowSolve.F90329 MASS( 2*NSDOFs*N,2*NSDOFs*N ),&
330 STIFF( 2*NSDOFs*N,2*NSDOFs*N ),&
500 PseudoPressure = FlowSolution(NSDOFs:SIZE(FlowSolution):NSDOFs)
521 PseudoPressure = FlowSolution(NSDOFs:SIZE(FlowSolution):NSDOFs)
644 SELECT CASE( NSDOFs )
823 DO i=1,NSDOFs-1
892 IF ( NSDOFs > 3 ) THEN
923 LoadVector(NSDOFs,i) = LoadVector(NSDOFs,i) + &
930 LoadVector(NSDOFs,i) = LoadVector(NSDOFs,i) - &
1234 DO j=1,NSDOFs-1
[all …]
H A DStreamSolver.F9050 INTEGER :: k, t, i, n, istat, NSDOFs, FirstNode local
89 NSDOFs = FlowSol % DOFs
171 k = (k-1) * NSDOFs
195 k = (k-1) * NSDOFs
H A DFreeSurfaceSolver.F90254 NSDOFs,NonlinearIter,iter, numberofsurfacenodes local
667 NSDOFs = FlowSol % DOFs
678 j = NSDOFs*FlowPerm(NodeIndexes(i))
681 IF((DIM == 2) .AND. (NSDOFs == 3)) THEN
685 ELSE IF ((DIM == 3) .AND. (NSDOFs == 4)) THEN
690 .AND. (DIM == 2) .AND. (NSDOFs == 4)) THEN
696 'DIM=', DIM, ' NSDOFs=', NSDOFs, ' does not combine. Aborting'
700 IF((DIM == 2) .AND. (NSDOFs == 3)) THEN
704 ELSE IF ((DIM == 3) .AND. (NSDOFs == 4)) THEN
709 .AND. (DIM == 2) .AND. (NSDOFs == 4)) THEN
[all …]
H A DKESolver.F9074 INTEGER :: NSDOFs,NewtonIter,NonlinearIter,NoActive local
119 NSDOFs = FlowSol % DOFs
395 SELECT CASE( NSDOFs )
397 U(j) = FlowSolution( NSDOFs*k-2 )
398 V(j) = FlowSolution( NSDOFs*k-1 )
402 U(j) = FlowSolution( NSDOFs*k-3 )
403 V(j) = FlowSolution( NSDOFs*k-2 )
404 W(j) = FlowSolution( NSDOFs*k-1 )
H A DArtificialCompressibility.F90434 INTEGER :: k, t, i, j, n, istat, NSDOFs, DIM local
480 NSDOFs = DisplacementSol % DOFs
551 DO j= 1,NSDOFs
552 ElemDisplacement(j,i) = DisplacementSolValues( NSDOFs * (k-1) + j)
H A DAdvectionDiffusion.F90121 INTEGER :: NSDOFs,NonlinearIter,body_id,lbody,rbody,eq_id,MDOFs local
197 NSDOFs = FlowSol % DOFs
410 NSDOFs = FlowSol % DOFs
586 Pressure(i) = FlowSolution(NSDOFs*k) + ReferencePressure
593 SELECT CASE( NSDOFs )
595 U(i) = FlowSolution( NSDOFs*k-2 )
596 V(i) = FlowSolution( NSDOFs*k-1 )
600 U(i) = FlowSolution( NSDOFs*k-3 )
601 V(i) = FlowSolution( NSDOFs*k-2 )
602 W(i) = FlowSolution( NSDOFs*k-1 )
H A DHeatSolve.F90105 INTEGER :: NSDOFs,NewtonIter,NonlinearIter,MDOFs, & local
235 NSDOFs = FlowSol % DOFs
880 Pressure(i) = FlowSolution(NSDOFs*k) + ReferencePressure
887 dPressureDt(i) = ( FlowSolution(NSDOFs*k) - &
888 FlowSol % PrevValues(NSDOFs*k,1) ) / dt
892 SELECT CASE( NSDOFs )
894 U(i) = FlowSolution( NSDOFs*k-2 )
895 V(i) = FlowSolution( NSDOFs*k-1 )
899 U(i) = FlowSolution( NSDOFs*k-3 )
900 V(i) = FlowSolution( NSDOFs*k-2 )
[all …]
H A DV2FSolver.F9072 INTEGER :: NSDOFs,NewtonIter,NonlinearIter local
608 INTEGER :: NSDOFs,NewtonIter,NonlinearIter local
H A DMagneticSolve.F9072 INTEGER :: NSDOFs,NewtonIter,NonlinearIter, dim local
/dports/science/elmerfem/elmerfem-release-9.0/fem/src/
H A DModelDescription.F903513 INTEGER ::i,j,k,k2,n,nt,Node,DOFs,TotalDofs,DofCount,SavedCount,Timestep,NSDOFs,nlen local
3935 Velocity1 => Var % Values(1:NSDOFs*Mesh % NumberOfNodes:NSDOFs)
3939 Velocity2 => Var % Values(2:NSDOFs*mesh % NumberOfNodes:NSDOFs)
3943 IF ( NSDOFs == 3 ) THEN
3944 Pressure => Var % Values(3:NSDOFs*Mesh % NumberOfNodes:NSDOFs)
3948 Velocity3 => Var % Values(3:NSDOFs*Mesh % NumberOfNodes:NSDOFs)
3952 Pressure => Var % Values(4:NSDOFs*Mesh % NumberOfNodes:NSDOFs)
3960 'Flow Solution',NSDOFs,Var % Values,Var % Perm )
H A DGebhardtFactors.F9078 INTEGER :: i,j,k,l,t,k1,k2,n,iter,Ndeg,Time,NSDOFs,istat variable
H A DViewFactors.F9072 INTEGER :: i,j,k,l,t,k1,k2,n,iter,Ndeg,Time,NSDOFs,MatId,istat variable
/dports/science/elmerfem/elmerfem-release-9.0/fem/src/modules/LevelSet/
H A DLevelSetSolver.F9072 INTEGER :: NSDOFs,NonlinearIter,body_id,mat_id,dim local