/dports/science/elmerfem/elmerfem-release-9.0/elmerice/Solvers/AdjointSSA/ |
H A D | AdjointSSA_AdjointSolver.F90 | 85 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 D | Emergence.F90 | 61 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 D | ThicknessSolver.F90 | 283 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 D | OutputStrainHeating.F90 | 88 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 D | AdjointSolver.F90 | 78 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 D | DeformationalHeat.F90 | 77 Integer :: STDOFs,NSDOFs,dim local 97 NSDOFs = FlowSol % DOFs 134 j = NSDOFs*FlowPerm(NodeIndexes(i))
|
H A D | TemperateIce.F90 | 83 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 D | SSASolver.F90 | 1226 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 D | EnthalpySolver.F90 | 95 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 D | CaffeSolver.F90 | 102 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 D | GlaDSCoupledSolver.F90 | 79 NSDOFs, NonlinearIter, GhostNodes, NonlinearIterMin, Ne, BDForder, & local
|
/dports/science/elmerfem/elmerfem-release-9.0/fem/src/modules/ |
H A D | FlowSolve.F90 | 329 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 D | StreamSolver.F90 | 50 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 D | FreeSurfaceSolver.F90 | 254 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 D | KESolver.F90 | 74 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 D | ArtificialCompressibility.F90 | 434 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 D | AdvectionDiffusion.F90 | 121 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 D | HeatSolve.F90 | 105 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 D | V2FSolver.F90 | 72 INTEGER :: NSDOFs,NewtonIter,NonlinearIter local 608 INTEGER :: NSDOFs,NewtonIter,NonlinearIter local
|
H A D | MagneticSolve.F90 | 72 INTEGER :: NSDOFs,NewtonIter,NonlinearIter, dim local
|
/dports/science/elmerfem/elmerfem-release-9.0/fem/src/ |
H A D | ModelDescription.F90 | 3513 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 D | GebhardtFactors.F90 | 78 INTEGER :: i,j,k,l,t,k1,k2,n,iter,Ndeg,Time,NSDOFs,istat variable
|
H A D | ViewFactors.F90 | 72 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 D | LevelSetSolver.F90 | 72 INTEGER :: NSDOFs,NonlinearIter,body_id,mat_id,dim local
|