/dports/science/elmerfem/elmerfem-release-9.0/fem/src/ |
H A D | CoordinateSystems.F90 | 214 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 D | Differentials.F90 | 186 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 D | MaxwellGeneral.F90 | 112 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 D | StressGeneral.F90 | 79 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 D | DiffuseConvectiveGeneralAnisotropic.F90 | 148 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 D | NavierStokesGeneral.F90 | 124 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 D | NavierStokesCylindrical.F90 | 148 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 D | MaterialModels.F90 | 138 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 D | FDiffusion3D.F90 | 462 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 D | StatCurrentSolve.F90 | 578 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 D | HelmholtzSolve.F90 | 550 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 D | PoissonBoltzmannSolve.F90 | 546 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 D | StatElecSolve.F90 | 1153 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 D | ArtificialCompressibility.F90 | 271 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 D | ShearrateSolver.F90 | 209 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 D | DCRComplexSolve.F90 | 582 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 D | Spalart-Allmaras.F90 | 268 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 D | V2FSolver.F90 | 395 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 D | ElectricForce.F90 | 363 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 D | Komega.F90 | 310 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 D | ReynoldsSolver.F90 | 405 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 D | FluidicForce.F90 | 365 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 D | MagneticSolve.F90 | 533 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 D | SSTKomega.F90 | 363 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 D | BentoniteSolver.F90 | 371 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
|