Home
last modified time | relevance | path

Searched refs:Velo (Results 1 – 25 of 167) sorted by relevance

1234567

/dports/science/elmerfem/elmerfem-release-9.0/elmerice/Solvers/
H A DEmergence.F9064 REAL(KIND=dp), ALLOCATABLE :: Velo(:,:) local
85 IF (AllocationsDone) DEALLOCATE(Velo)
87 ALLOCATE(Velo( 3, NMAX ), STAT=istat )
121 Velo = 0.0_dp
159 Velo(1,i) = FlowSolution( j-2 )
160 Velo(2,i) = FlowSolution( j-1 )
161 Velo(3,i) = 0.0_dp
163 Velo(1,i) = FlowSolution( j-3 )
164 Velo(2,i) = FlowSolution( j-2 )
165 Velo(3,i) = FlowSolution( j-1 )
[all …]
H A DDeformationalHeat.F9083 SAVE STIFF, LOAD, FORCE, Velo, AllocationsDone, Viscosity
132 Velo = 0.0d0
136 Velo(k,i) = FlowSolution( j-dim+k-1 )
140 CALL LocalMatrix( STIFF, FORCE, Element, n, Velo, Viscosity )
152 SUBROUTINE LocalMatrix( STIFF, FORCE, Element, n, Velo, Viscosity)
156 REAL(KIND=dp) :: STIFF(:,:), FORCE(:), Velo(:,:), Viscosity(:) local
185 mu = EffectiveViscosity( mu, 1.0_dp , Velo(1,:) , Velo(2,:), Velo(3,:), &
188 LGrad = MATMUL( Velo(:,1:n), dBasisdx(1:n,:) )
190 VeloIP(1) = SUM( Velo(1,1:n)*Basis(1:n) )
191 VeloIP(2) = SUM( Velo(2,1:n)*Basis(1:n) )
[all …]
H A DThicknessSolver.F90209 Velo, &
237 Velo( 3, NMAX ), &
353 Velo = 0.0_dp
362 Velo(1,i) = FlowSolution( j )
363 Velo(2,i) = 0.0_dp
366 Velo(1,i) = FlowSolution( j-1 )
367 Velo(2,i) = FlowSolution( j )
370 Velo(1,i) = FlowSolution( j-1 )
371 Velo(2,i) = FlowSolution( j )
605 LOAD, Velo, NSDOFs, MeshVelo, &
[all …]
/dports/science/elmerfem/elmerfem-release-9.0/fem/src/modules/
H A DCoupledNSUpdate.F90675 rotterm = rotterm + s * ( ( w2*Velo(3) - w3*Velo(2) )**2 + &
676 ( w3*Velo(1) - w1*Velo(3) )**2 + &
677 ( w1*Velo(2) - w2*Velo(1) )**2 )
679 rotterm = rotterm + s * ( w3*w3 * (Velo(1) * Velo(1) + Velo(2) * Velo(2)) )
891 F(1) = F(1) - s * rho * Basis(p) * ( Grad(1,1) * Velo(1) + Grad(1,2) * Velo(2) )
892 F(2) = F(2) - s * rho * Basis(p) * ( Grad(2,1) * Velo(1) + Grad(2,2) * Velo(2) )
990 c = -Velo(2)*dBasisdx(p,1)+Velo(1)*dBasisdx(p,2)
1039 c2 = rho * ch**2 * dBasisdx(p,2) * ( Velo(1)*Velo(1) + Velo(2)*Velo(2) )
1050 c2 = rho * ch**2 * dBasisdx(p,1) * ( Velo(1)*Velo(1) + Velo(2)*Velo(2) )
1181 Velo = MATMUL( Velocity(1:dim,1:nd), Basis(1:nd) )
[all …]
H A DAdvectionReaction.F90528 REAL(KIND=dp) :: STIFF(:,:), Velo(:,:) local
645 cu(i) = SUM( Velo(i,1:n) ) / n
715 Velo = 0.0d00
720 IF (.NOT.Found) Velo(1,1:N) = 0.0d0
722 IF (.NOT.Found) Velo(2,1:N) = 0.0d0
724 IF (.NOT.Found) Velo(3,1:N) = 0.0d0
754 Velo(2,i) = 0.0d0
755 Velo(3,i) = 0.0d0
759 Velo(3,i) = 0.0d0
768 Velo = 0.0d0
[all …]
H A DFreeSurfaceSolver.F90441 Velo, &
477 Velo( 3, NMAX ), &
641 Velo = 0.0_dp
684 Velo(3,i) = 0.0_dp
701 Velo(1,i) = FlowSolution( j-2 )
702 Velo(2,i) = FlowSolution( j-1 )
703 Velo(3,i) = 0.0_dp
721 Velo=0.0_dp
724 Velo=0.0_dp
729 Velo(:,i) = MATMUL(RotationMatrix,Velo(:,i))
[all …]
H A DStokes.F90857 rotterm = rotterm + s * ( ( w2*Velo(3) - w3*Velo(2) )**2 + &
858 ( w3*Velo(1) - w1*Velo(3) )**2 + &
859 ( w1*Velo(2) - w2*Velo(1) )**2 )
861 rotterm = rotterm + s * ( w3*w3 * (Velo(1) * Velo(1) + Velo(2) * Velo(2)) )
1044 F(1) = F(1) - s * rho * Basis(p) * ( Grad(1,1) * Velo(1) + Grad(1,2) * Velo(2) )
1045 F(2) = F(2) - s * rho * Basis(p) * ( Grad(2,1) * Velo(1) + Grad(2,2) * Velo(2) )
1130 c = -Velo(2)*dBasisdx(p,1)+Velo(1)*dBasisdx(p,2)
1179 c2 = rho * ch**2 * dBasisdx(p,2) * ( Velo(1)*Velo(1) + Velo(2)*Velo(2) )
1190 c2 = rho * ch**2 * dBasisdx(p,1) * ( Velo(1)*Velo(1) + Velo(2)*Velo(2) )
1321 Velo = MATMUL( Velocity(1:dim,1:nd), Basis(1:nd) )
[all …]
H A DCompressibleNS.F90316 DetJ,LoadAtIP(dim+2),Velo(dim), Grad(dim,dim), AK, w3 local
364 Velo = MATMUL( NodalVelo(1:dim,1:nd), Basis(1:nd) )
452 ( Velo(1) * dBasisdx(q,1) + Velo(2) * dBasisdx(q,2) ) * Basis(p)
453 … A(dim+2,dim+2) = A(dim+2,dim+2) + s * ( Velo(1) * dBasisdx(q,1) + Velo(2) * dBasisdx(q,2) ) * &
458 Velo(3) * dBasisdx(q,3) * Basis(p)
467 rho * s * Velo(2) * dBasisdx(q,2) * Basis(p)
469 rho * s * Velo(2) * dBasisdx(q,1) * Basis(p)
472 rho * s * Velo(1) * dBasisdx(q,2) * Basis(p)
474 rho * s * Velo(1) * dBasisdx(q,1) * Basis(p)
477 rho * s * Velo(2) * dBasisdx(q,2) * Basis(p)
[all …]
H A DParticleDynamics.F90114 dv = Velo - Velo2
209 dv = Velo - Velo2
244 v1na = SUM( Velo * rn )
260 Coord = Coord + dta * rn * Velo
263 Velo = Velo + (v1nb-v1na) * rn
267 Coord = Coord + dtb * Velo
778 Velo(3),Ptest,MFP local
823 Particles % Velocity(No,1) = COS( Angle ) * Velo(1) - SIN( Angle ) * Velo(2)
824 Particles % Velocity(No,2) = COS( Angle ) * Velo(2) + SIN( Angle ) * Velo(1)
1583 Velo = 0.0_dp
[all …]
H A DHelmholtzSolve.F90545 REAL(KIND=dp) :: DiffCoef(3,3), Velo(3), Rho local
626 Velo(1) = SUM( ConvVelo(1,1:n) * Basis(1:n) )
627 Velo(2) = SUM( ConvVelo(2,1:n) * Basis(1:n) )
628 Velo(3) = SUM( ConvVelo(3,1:n) * Basis(1:n) )
629 Velo = Velo / SUM( SoundSpeed(1:n) * Basis(1:n) )
636 DiffCoef(i,j) = DiffCoef(i,j) - Velo(i)*Velo(j)
752 Velo(1) = SUM( ConvVelo(1,1:n) * Basis(1:n) )
753 Velo(2) = SUM( ConvVelo(2,1:n) * Basis(1:n) )
754 Velo(3) = SUM( ConvVelo(3,1:n) * Basis(1:n) )
755 Velo = Velo / SUM( SoundSpeed(1:n) * Basis(1:n) )
[all …]
H A DSpalart-Allmaras.F90256 REAL(KIND=dp) :: UX(n), UY(n), UZ(n), Velo(3), dVelodx(3,3),Tviscosity(n), & local
330 Velo = 0.0_dp
331 Velo(1) = SUM( UX(1:n)*Basis(1:n) )
332 Velo(2) = SUM( UY(1:n)*Basis(1:n) )
333 Velo(3) = SUM( UZ(1:n)*Basis(1:n) )
349 StrainMeasure = SQRT(SecondInvariant( Velo,dVelodx,Metric,Symb )/2)
420 A = A + rho * (Velo(i)-Cb2*GradTmu(i)/Sigma) * dBasisdx(q,i) * Basis(p)
H A DKomega.F90298 REAL(KIND=dp) :: UX(n), UY(n), UZ(n), Velo(3), dVelodx(3,3), Energy(n), & local
372 Velo = 0.0_dp
373 Velo(1) = SUM( UX(1:n)*Basis(1:n) )
374 Velo(2) = SUM( UY(1:n)*Basis(1:n) )
375 Velo(3) = SUM( UZ(1:n)*Basis(1:n) )
391 StrainMeasure = SQRT(SecondInvariant( Velo,dVelodx,Metric,Symb )/2)
449 A(1,1) = A(1,1) + rho * Velo(i) * dBasisdx(q,i) * Basis(p)
450 A(2,2) = A(2,2) + rho * Velo(i) * dBasisdx(q,i) * Basis(p)
/dports/science/elmerfem/elmerfem-release-9.0/fem/tests/AdvReactDG_P/
H A DAdvReactDG_P.F90470 REAL(KIND=dp) :: STIFF(:,:), Velo(:,:) local
578 cu(i) = SUM(Velo(i,1:n)) / n
647 Velo = 0.0d00
652 IF (.NOT.Found) Velo(1,1:N) = 0.0d0
654 IF (.NOT.Found) Velo(2,1:N) = 0.0d0
656 IF (.NOT.Found) Velo(3,1:N) = 0.0d0
686 Velo(2,i) = 0.0d0
687 Velo(3,i) = 0.0d0
691 Velo(3,i) = 0.0d0
700 Velo = 0.0d0
[all …]
/dports/science/elmerfem/elmerfem-release-9.0/fem/src/
H A DVelocityUpdate.F90500 Velo = MATMUL( NodalVelo(1:dim,1:nd), Basis(1:nd) )
552 rho * s * Velo(2) * dBasisdx(q,2) * Basis(p)
682 F(1) = F(1) - rho * s * Basis(p) * Velo(2) * w3
683 F(2) = F(2) + rho * s * Basis(p) * Velo(1) * w3
687 F(1) = F(1) + rho * s * Basis(p) * Velo(3) * w2
689 F(3) = F(3) - rho * s * Basis(p) * Velo(1) * w2
690 F(3) = F(3) + rho * s * Basis(p) * Velo(2) * w1
716 DetJ,LoadAtIP(dim),Velo(dim), Normal(3), SquaredVelo, rho local
742 Velo = MATMUL( Velocity(1:dim,1:nd), Basis(1:nd) )
743 SquaredVelo = rho * SUM( Velo(1:dim) * Velo(1:dim) )
[all …]
H A DMaxwellAxiS.F90184 Velo = 0.0d0
185 Velo(1) = SUM( Ux(1:n)*Basis )
186 Velo(2) = SUM( Uy(1:n)*Basis )
187 Velo(3) = SUM( Uz(1:n)*Basis )
195 dVelodx(3,1) = Velo(3) + dVelodx(3,1)
197 Velo(3) = r * Velo(3)
249 A(i,i) = A(i,i) + s * ( Velo(1) * dBasisdx(q,1) &
250 + Velo(2) * dBasisdx(q,2) ) * Basis(p)
278 - Velo(1) * dMFielddx(i,1) &
279 - Velo(2) * dMFielddx(i,2) ) * Basis(p)
[all …]
H A DDiffuseConvectiveAnisotropic.F90138 REAL(KIND=dp) :: Velo(3),Grad(3,3),Force local
381 Velo = 0.0D0
382 Velo(1) = SUM( (UX(1:n)-MUX(1:n))*Basis(1:n) )
383 Velo(2) = SUM( (UY(1:n)-MUY(1:n))*Basis(1:n) )
413 VNorm = SQRT( SUM(Velo(1:dim)**2) )
434 Tau_M = 1._dp / SQRT( SUM(C1*Velo*MATMUL(Gmat,C1*Velo)) + &
437 Tau_M = 1._dp / SQRT( SUM(C1*Velo*MATMUL(Gmat,C1*Velo)) + &
457 VRM(i) = VRM(i) + Velo(j) * Grad(i,j)
470 VNorm = SQRT( SUM(Velo(1:dim)**2) )
519 SU(p) = SU(p) + C1 * dBasisdx(p,i) * Velo(i)
[all …]
H A DMaxwellGeneral.F90114 REAL(KIND=dp) :: Velo(3),dVelodx(3,3),Force(3) local
189 Velo = 0.0D0
190 Velo(1) = SUM( Ux(1:n)*Basis )
191 Velo(2) = SUM( Uy(1:n)*Basis )
192 Velo(3) = SUM( Uz(1:n)*Basis )
270 A(i,i) = A(i,i) + s * Velo(j) * dBasisdx(q,j) * Basis(p)
274 A(i,j) = A(i,j) - s * Symb(k,j,i) * Velo(k) * Basis(q) * Basis(p)
275 A(i,k) = A(i,k) + s * Symb(k,j,i) * Velo(j) * Basis(q) * Basis(p)
327 Load(i) = Load(i) - s * Velo(j) * dMFielddx(i,j) * Basis(p)
331 Load(i) = Load(i) + s * Symb(k,j,i) * Velo(k) * MField(j) * Basis(p)
[all …]
H A DDiffuseConvectiveGeneralAnisotropic.F90136 REAL(KIND=dp) :: Velo(3),Force local
309 Velo = 0.0D0
310 Velo(1) = SUM( (Ux(1:n)-MUx(1:n))*Basis(1:n) )
311 Velo(2) = SUM( (Uy(1:n)-MUy(1:n))*Basis(1:n) )
313 Velo(3) = SUM( (Uz(1:n)-MUz(1:n))*Basis(1:n) )
334 DivVelo = DivVelo + Velo(1)/x
339 DivVelo = DivVelo + Velo(j)*Symb(i,j,i)
353 Vnorm = Vnorm + Velo(i)*Velo(i) / Metric(i,i)
402 SU(p) = SU(p) + C1 * dBasisdx(p,i) * Velo(i)
419 SW(p) = SW(p) + C1 * dBasisdx(p,i) * Velo(i)
[all …]
H A DMaterialModels.F9066 REAL(KIND=dp) :: Velo(3),dVelodx(3,3),SecInv local
109 s = s - CovMetric(i,k) * Symb(l,j,k) * Velo(l)
110 s = s - CovMetric(j,k) * Symb(l,i,k) * Velo(l)
112 t = t - CtrMetric(j,k) * Symb(l,k,i) * Velo(l)
169 Velo(1) = Ux(i)
170 Velo(2) = Uy(i)
171 Velo(3) = Uz(i)
257 Velo(1) = SUM( Basis(1:nd) * Ux(1:nd) )
258 Velo(2) = SUM( Basis(1:nd) * Uy(1:nd) )
259 Velo(3) = SUM( Basis(1:nd) * Uz(1:nd) )
[all …]
H A DMaxwell.F90111 REAL(KIND=dp) :: Velo(3),dVelodx(3,3),Force(3),Metric(3,3),Symb(3,3,3) local
178 Velo = 0.0D0
179 Velo(1) = SUM( Ux(1:n)*Basis )
180 Velo(2) = SUM( Uy(1:n)*Basis )
181 Velo(3) = SUM( Uz(1:n)*Basis )
242 A(i,i) = A(i,i) + s * Velo(j) * dBasisdx(q,j) * Basis(p)
269 Load(i) = Load(i) - s * Velo(j) * dMFielddx(i,j) * Basis(p)
H A DNavierStokes.F90449 Velo = 0.0_dp
643 Tau_M = 1._dp / SQRT( SUM(Velo*MATMUL(Gmat,Velo)) + &
646 Tau_M = 1._dp / SQRT( SUM(Velo*MATMUL(Gmat,Velo)) + &
1674 Velo = 0.0d0
1675 Velo(1) = SUM( Ux(1:n)*Basis(1:n) )
1676 Velo(2) = SUM( Uy(1:n)*Basis(1:n) )
1706 Vabs = MAX( SQRT(SUM(Velo**2)), 1.d-8 )
1854 Velo = 0.0d0
1855 Velo(1) = SUM( Ux(1:n)*Basis(1:n) )
1856 Velo(2) = SUM( Uy(1:n)*Basis(1:n) )
[all …]
/dports/math/PDL/PDL-2.019/Graphics/TriD/TriD/
H A DMathGraph.pm104 $this->{Velo} -= $tst * 0.04 * (inner($m->dummy(1), $vecs->mv(1,0)));
105 $this->{Velo} *=
106 ((0.96*50/(50+sqrt(($this->{Velo}**2)->sumover->dummy(0)))))**$tst;
107 $c += $tst * 0.05 * $this->{Velo};
163 $this->{Velo} += $tst * 0.02 * ($velr + $vela);
164 $this->{Velo} *=
165 ((0.92*50/(50+sqrt(($this->{Velo}**2)->sumover->dummy(0)))))**$tst;
166 $c += $tst * 0.05 * $this->{Velo};
/dports/science/elmerfem/elmerfem-release-9.0/fem/src/modules/LevelSet/
H A DLevelSetSolver.F90310 REAL(KIND=dp) :: Velo(3),Force,Grad(3),GradAbs local
404 Velo = 0.0D0
405 Velo(1) = SUM( NodalVelo(1,1:n)*Basis(1:n) )
406 Velo(2) = SUM( NodalVelo(2,1:n)*Basis(1:n) )
407 IF ( dim > 2 ) Velo(3) = SUM( NodalVelo(3,1:n)*Basis(1:n) )
414 VNorm = SQRT( SUM(Velo(1:dim)**2) ) + FL
430 SU(p) = SU(p) + dBasisdx(p,i) * (Velo(i) + FL * Grad(i) )
435 SW(p) = SW(p) + dBasisdx(p,i) * (Velo(i) + FL * Grad(i) )
464 A = A + Velo(i) * dBasisdx(q,i) * Basis(p)
H A DLevelSetTimestep.F9062 REAL(KIND=dp) :: Val,Grad(3),Velo(3),NormalVelo,AbsVelo,GradAbs,detJ,& local
171 Velo(i) = SUM( Basis(1:n) * NodalVelo(i,1:n) )
175 NormalVelo = SUM( Grad(1:dim) * Velo(1:dim) ) / GradAbs
179 AbsVelo = SQRT(SUM (Velo(1:dim) * Velo(1:dim)) )
/dports/science/elmerfem/elmerfem-release-9.0/fem/tests/ParticleAdvectorZalesak/
H A Dzalesak.sif47 Velo 1 = Variable Coordinate 1
50 Velo 2 = Variable Coordinate 1
85 Exported Variable 2 = -dofs 2 Velo
113 Velocity Variable Name = String Velo
207 Levelset Velocity 1 = Equals Velo 1
208 Levelset Velocity 2 = Equals Velo 2

1234567