Home
last modified time | relevance | path

Searched refs:SqrtMetric (Results 1 – 25 of 41) sorted by relevance

12

/dports/science/elmerfem/elmerfem-release-9.0/fem/src/
H A DCoordinateSystems.F90214 FUNCTION CoordinateSqrtMetric( X,Y,Z ) RESULT( SqrtMetric )
215 REAL(KIND=dp) :: X,Y,Z,SqrtMetric local
218 SqrtMetric = 1.0d0
221 SqrtMetric = CylindricalSqrtMetric( X,Y,Z )
223 SqrtMetric = PolarSqrtMetric( X,Y,Z )
240 SUBROUTINE CoordinateSystemInfo( Metric,SqrtMetric, & argument
243 REAL(KIND=dp) :: Metric(3,3),SqrtMetric, & local
256 SqrtMetric = 1.0d0
263 SqrtMetric = CylindricalSqrtMetric( X,Y,Z )
270 SqrtMetric = PolarSqrtMetric( X,Y,Z )
H A DDifferentials.F90186 r = SqrtMetric
216 Perm(1,2,3) = -1.0d0 / SqrtMetric
217 Perm(1,3,2) = 1.0d0 / SqrtMetric
218 Perm(2,1,3) = 1.0d0 / SqrtMetric
219 Perm(2,3,1) = -1.0d0 / SqrtMetric
220 Perm(3,1,2) = -1.0d0 / SqrtMetric
221 Perm(3,2,1) = 1.0d0 / SqrtMetric
472 r = SqrtMetric
822 x = SqrtMetric * Cx
823 y = SqrtMetric * Cy
[all …]
H A DMaxwellGeneral.F90112 REAL(KIND=dp) :: SqrtMetric,Metric(3,3),Symb(3,3,3),dSymb(3,3,3,3) local
169 CALL CoordinateSystemInfo( Metric,SqrtMetric,Symb,dSymb,X,Y,Z )
171 s = SqrtMetric * SqrtElementMetric * S_Integ(t)
400 REAL(KIND=dp) :: SqrtMetric,Metric(3,3),Symb(3,3,3),dSymb(3,3,3,3) local
445 CALL CoordinateSystemInfo( Metric,SqrtMetric,Symb,dSymb,X,Y,Z )
447 s = SqrtMetric * SqrtElementMetric * S_Integ(t)
H A DStressGeneral.F9079 REAL(KIND=dp) :: SqrtMetric,Metric(3,3),Symb(3,3,3),dSymb(3,3,3,3) local
148 CALL CoordinateSystemInfo( Metric,SqrtMetric,Symb,dSymb,X,Y,Z )
150 s = SqrtMetric * SqrtElementMetric * S_Integ(t)
332 REAL(KIND=dp) :: SqrtMetric,Metric(3,3),Symb(3,3,3),dSymb(3,3,3,3),x,y,z local
377 CALL CoordinateSystemInfo( Metric,SqrtMetric,Symb,dSymb,X,Y,Z )
379 s = SqrtMetric * SqrtElementMetric * S_Integ(t)
H A DDiffuseConvectiveGeneralAnisotropic.F90148 REAL(KIND=dp) :: SqrtMetric,Metric(3,3),Symb(3,3,3),dSymb(3,3,3,3) local
252 CALL CoordinateSystemInfo( Metric,SqrtMetric,Symb,dSymb,x,y,z )
254 s = SqrtMetric * detJ * S_Integ(t)
571 REAL(KIND=dp) :: SqrtMetric,Metric(3,3),Symb(3,3,3),dSymb(3,3,3,3),normal(3) local
H A DNavierStokesGeneral.F90124 REAL(KIND=dp) :: SqrtMetric,Metric(3,3),Symb(3,3,3),dSymb(3,3,3,3) local
203 CALL CoordinateSystemInfo( Metric,SqrtMetric,Symb,dSymb,X,Y,Z )
204 s = SqrtMetric * SqrtElementMetric * S_Integ(t)
695 REAL(KIND=dp) :: Metric(3,3),SqrtMetric,Symb(3,3,3),dSymb(3,3,3,3) local
754 CALL CoordinateSystemInfo( Metric,SqrtMetric,Symb,dSymb,x,y,z )
756 s = SqrtMetric * SqrtElementMetric * S_Integ(t)
H A DNavierStokesCylindrical.F90148 REAL(KIND=dp) :: GMetric(3,3),Metric(3),SqrtMetric,& local
276 CALL CoordinateSystemInfo( GMetric,SqrtMetric,Symb,dSymb,x,y,z )
280 s = SqrtMetric * detJ * S_Integ(t)
955 REAL(KIND=dp) :: Metric(3,3),SqrtMetric,Symb(3,3,3),dSymb(3,3,3,3) local
1015 CALL CoordinateSystemInfo( Metric,SqrtMetric,Symb,dSymb,x,y,z )
1016 s = SqrtMetric * detJ * S_Integ(t)
H A DMaterialModels.F90138 REAL(KIND=dp) :: s,u,v,w,SqrtMetric,SqrtElementMetric,Velo(3) local
159 CALL CoordinateSystemInfo( Metric,SqrtMetric,Symb,dSymb, &
202 REAL(KIND=dp) :: ss,s,SqrtMetric,SqrtElementMetric,Velo(3) local
249 CALL CoordinateSystemInfo( Metric,SqrtMetric,Symb,dSymb,x,y,z )
/dports/science/elmerfem/elmerfem-release-9.0/fem/src/modules/
H A DFDiffusion3D.F90462 s = s * SqrtMetric
663 REAL(KIND=dp) :: SqrtMetric,Metric(3,3),Symb(3,3,3),dSymb(3,3,3,3) local
771 SqrtMetric,Metric,Symb )
787 SqrtMetric,Metric,Symb )
847 r = SqrtMetric
877 Perm(1,2,3) = -1.0d0 / SqrtMetric
878 Perm(1,3,2) = 1.0d0 / SqrtMetric
879 Perm(2,1,3) = 1.0d0 / SqrtMetric
880 Perm(2,3,1) = -1.0d0 / SqrtMetric
881 Perm(3,1,2) = -1.0d0 / SqrtMetric
[all …]
H A DStatCurrentSolve.F90578 REAL(KIND=dp) :: SqrtMetric, Metric(3,3), Symb(3,3,3), dSymb(3,3,3,3) local
698 CALL CoordinateSystemInfo( Metric,SqrtMetric,Symb,dSymb,x,y,z )
699 s = s * SqrtMetric * 2 * PI
824 REAL(KIND=dp) :: SqrtMetric,Metric(3,3),Symb(3,3,3),dSymb(3,3,3,3) local
864 CALL CoordinateSystemInfo( Metric,SqrtMetric,Symb,dSymb,x,y,z )
866 S = S * SqrtElementMetric * SqrtMetric
920 REAL(KIND=dp) :: SqrtMetric,Metric(3,3),Symb(3,3,3),dSymb(3,3,3,3) local
967 CALL CoordinateSystemInfo( Metric,SqrtMetric,Symb,dSymb,x,y,z )
969 s = S_Integ(t) * SqrtElementMetric * SqrtMetric
H A DHelmholtzSolve.F90550 REAL(KIND=dp) :: X,Y,Z,Metric(3,3),SqrtMetric,Symb(3,3,3),dSymb(3,3,3,3) local
597 CALL CoordinateSystemInfo( Metric,SqrtMetric,Symb,dSymb,X,Y,Z )
598 s = s * SqrtMetric
693 REAL(KIND=dp) :: Metric(3,3),SqrtMetric,Symb(3,3,3),dSymb(3,3,3,3) local
730 CALL CoordinateSystemInfo( Metric,SqrtMetric,Symb,dSymb,X,Y,Z )
731 s = s * SqrtMetric
797 REAL(KIND=dp) :: Metric(3,3),SqrtMetric,Symb(3,3,3),dSymb(3,3,3,3) local
835 CALL CoordinateSystemInfo( Metric,SqrtMetric,Symb,dSymb,X,Y,Z )
836 s = s * SqrtMetric
H A DPoissonBoltzmannSolve.F90546 REAL(KIND=dp) :: SqrtMetric,Metric(3,3),Symb(3,3,3),dSymb(3,3,3,3) local
584 CALL CoordinateSystemInfo( Metric,SqrtMetric,Symb,dSymb,x,y,z )
586 S = S * SqrtElementMetric * SqrtMetric
658 REAL(KIND=dp) :: SqrtMetric,Metric(3,3),Symb(3,3,3),dSymb(3,3,3,3) local
701 CALL CoordinateSystemInfo( Metric,SqrtMetric,Symb,dSymb,x,y,z )
703 s = S_Integ(t) * SqrtElementMetric * SqrtMetric
740 REAL(KIND=dp) :: SqrtMetric, Metric(3,3), Symb(3,3,3), dSymb(3,3,3,3) local
851 CALL CoordinateSystemInfo( Metric,SqrtMetric,Symb,dSymb,x,y,z )
853 s = s * SqrtMetric * SqrtElementMetric * S_Integ(tg)
H A DStatElecSolve.F901153 s = SqrtMetric * SqrtElementMetric * S_Integ(tg)
1332 CALL CoordinateSystemInfo( Metric,SqrtMetric,Symb,dSymb,x,y,z )
1334 S = S * SqrtElementMetric * SqrtMetric
1542 CALL CoordinateSystemInfo( Metric,SqrtMetric,Symb,dSymb,x,y,z )
1544 s = S_Integ(t) * SqrtElementMetric * SqrtMetric
1756 CALL CoordinateSystemInfo( Metric, SqrtMetric, &
1759 s = IntegStuff % s(t) * detJ * SqrtMetric
1940 CALL CoordinateSystemInfo( Metric, SqrtMetric, &
1942 s = IntegStuff % s(t) * detJ * SqrtMetric
2188 CALL CoordinateSystemInfo( Metric, SqrtMetric, &
[all …]
H A DArtificialCompressibility.F90271 REAL(KIND=dp) :: SqrtElementMetric, SqrtMetric, Metric(3,3) local
310 CALL CoordinateSystemInfo( Metric,SqrtMetric,Symb,dSymb,X,Y,Z )
311 s = s * SqrtMetric
349 REAL(KIND=dp) :: X,Y,Z,Metric(3,3),SqrtMetric,Symb(3,3,3),dSymb(3,3,3,3) local
384 CALL CoordinateSystemInfo( Metric,SqrtMetric,Symb,dSymb,X,Y,Z )
385 s = s * SqrtMetric
H A DShearrateSolver.F90209 REAL(KIND=dp) :: SqrtMetric,Metric(3,3),Symb(3,3,3),dSymb(3,3,3,3) local
275 CALL CoordinateSystemInfo( Metric,SqrtMetric,Symb,dSymb,x,y,z )
277 s = detJ * SqrtMetric * IntegStuff % s(t)
H A DDCRComplexSolve.F90582 CALL CoordinateSystemInfo( Metric,SqrtMetric,Symb,dSymb,X,Y,Z )
583 s = s * SqrtMetric
799 REAL(KIND=dp) :: SqrtMetric, Metric(3,3), Symb(3,3,3), dSymb(3,3,3,3) local
940 CALL CoordinateSystemInfo( Metric, SqrtMetric, &
943 s = IntegStuff % s(t) * detJ * SqrtMetric
1137 REAL(KIND=dp) :: SqrtMetric, Metric(3,3), Symb(3,3,3), dSymb(3,3,3,3) local
1226 CALL CoordinateSystemInfo( Metric, SqrtMetric, &
1228 s = IntegStuff % s(t) * detJ * SqrtMetric
1487 REAL(KIND=dp) :: SqrtMetric, Metric(3,3), Symb(3,3,3), dSymb(3,3,3,3) local
1605 CALL CoordinateSystemInfo( Metric, SqrtMetric, &
[all …]
H A DSpalart-Allmaras.F90268 REAL(KIND=dp) :: Metric(3,3),Symb(3,3,3),dSymb(3,3,3,3),SqrtMetric local
323 CALL CoordinateSystemInfo(Metric,SqrtMetric,Symb,dSymb,X,Y,Z)
325 s = s * SqrtMetric
H A DV2FSolver.F90395 REAL(KIND=dp) :: Metric(3,3),Symb(3,3,3),dSymb(3,3,3,3),SqrtMetric local
445 CALL CoordinateSystemInfo(Metric,SqrtMetric,Symb,dSymb,X,Y,Z)
447 s = s * SqrtMetric
939 REAL(KIND=dp) :: Metric(3,3),Symb(3,3,3),dSymb(3,3,3,3),SqrtMetric local
989 CALL CoordinateSystemInfo(Metric,SqrtMetric,Symb,dSymb,X,Y,Z)
991 s = s * SqrtMetric
H A DElectricForce.F90363 REAL(KIND=dp) :: SqrtMetric,Metric(3,3),Symb(3,3,3),dSymb(3,3,3,3) local
411 CALL CoordinateSystemInfo( Metric,SqrtMetric,Symb,dSymb,xpos,ypos,zpos )
413 s = s * SqrtMetric * detJ * S_Integ(l)
H A DKomega.F90310 REAL(KIND=dp) :: Metric(3,3),Symb(3,3,3),dSymb(3,3,3,3),SqrtMetric local
365 CALL CoordinateSystemInfo(Metric,SqrtMetric,Symb,dSymb,X,Y,Z)
367 s = s * SqrtMetric
H A DReynoldsSolver.F90405 REAL(KIND=dp) :: x,y,z,Metric(3,3),SqrtMetric,Symb(3,3,3),dSymb(3,3,3,3) local
454 CALL CoordinateSystemInfo( Metric,SqrtMetric,Symb,dSymb,X,Y,Z )
455 s = s * SqrtMetric
1135 REAL(KIND=dp) :: x,y,z,Metric(3,3),SqrtMetric,Symb(3,3,3),dSymb(3,3,3,3) local
1180 CALL CoordinateSystemInfo( Metric,SqrtMetric,Symb,dSymb,X,Y,Z )
1181 s = s * SqrtMetric
H A DFluidicForce.F90365 REAL(KIND=dp) :: SqrtMetric, Metric(3,3), Symb(3,3,3), dSymb(3,3,3,3) local
414 CALL CoordinateSystemInfo( Metric,SqrtMetric,Symb,dSymb,xpos,ypos,zpos)
416 s = s * SqrtMetric * detJ * S_Integ(t)
H A DMagneticSolve.F90533 REAL(KIND=dp) :: SqrtMetric,Metric(3,3),Symb(3,3,3),dSymb(3,3,3,3) local
656 CALL CoordinateSystemInfo( Metric,SqrtMetric,Symb,dSymb,&
667 IF ( SqrtMetric > 1.0d-10 ) THEN
668 EF(3) = ( V(p)*TotBx(p) - U(p)*TotBy(p) ) / SqrtMetric
H A DSSTKomega.F90363 REAL(KIND=dp) :: Metric(3,3),Symb(3,3,3),dSymb(3,3,3,3),SqrtMetric local
441 CALL CoordinateSystemInfo(Metric,SqrtMetric,Symb,dSymb,X,Y,Z)
443 s = s * SqrtMetric
/dports/science/elmerfem/elmerfem-release-9.0/fem/tests/bentonite/
H A DBentoniteSolver.F90371 REAL(KIND=dp) :: x,y,z,SqrtMetric,Metric(3,3),Symb(3,3,3),dSymb(3,3,3,3) local
412 CALL CoordinateSystemInfo( Metric,SqrtMetric,Symb,dSymb,X,Y,Z )
413 s = s * SqrtMetric

12