| /dports/science/elmerfem/elmerfem-release-9.0/fem/src/modules/ResultOutputSolve/ |
| H A D | ResultOutputSolver.F90 | 46 INTEGER :: i,nInterval=1, nstep=0, OutputCount(6) = 0, MeshDim,& local
63 SAVE SubroutineVisited, OutputCount, ListSet, MeshDim, ListMeshName
192 IF(NowSave) CALL Info(Caller,'Dimension of mesh is: '//TRIM(I2S(iMesh % MeshDim)),Level=7)
194 IF( MinMeshDim /= 0 .AND. iMesh % MeshDim < MinMeshDim ) THEN
200 IF( MaxMeshDim /= 0 .AND. iMesh % MeshDim > MaxMeshDim ) THEN
241 … ELSE IF( MeshDim /= Model % Mesh % MeshDim .OR. (iMeshName(1:nlen) /= ListMeshName(1:nlen))) THEN
246 MeshDim = Model % Mesh % MeshDim
|
| H A D | ElmerPostOutputSolver.F90 | 52 NumberOfNodes, NumberOfElements, ind, Vari, MeshDim, ExtCount local
61 MeshDim = Model % Mesh % MeshDim
150 IF( MeshDim == 2 ) THEN
152 ELSE IF( MeshDim == 3 ) THEN
325 IF( MeshDim <= 2 ) THEN
367 IF( MeshDim <= 2 ) THEN
606 IF( MeshDim == 2 ) THEN
|
| H A D | VtuOutputSolver.F90 | 428 INTEGER :: i, j, k, l, n, m, Partitions, Part, ExtCount, FileindexOffSet, MeshDim, PrecBits, & local
459 MeshDim = Mesh % MeshDim
|
| H A D | DXOutputSolver.F90 | 345 dim = Model % Mesh % MeshDim
|
| /dports/science/elmerfem/elmerfem-release-9.0/elmerice/Solvers/MeshAdaptation_2D/ |
| H A D | GetConnectedAreas.F90 | 85 SELECT CASE(Mesh % MeshDim)
113 SELECT CASE(Mesh % MeshDim)
121 SELECT CASE(Mesh % MeshDim)
|
| H A D | GetActiveMesh.F90 | 242 NewMesh%MeshDim=Solver%Mesh%MeshDim
|
| H A D | MMG2DSolver.F90 | 335 NewMesh%MeshDim=Solver%Mesh%MeshDim
|
| /dports/science/elmerfem/elmerfem-release-9.0/fem/src/modules/ |
| H A D | ParticleDynamics.F90 | 302 INTEGER :: MeshDim local
315 SAVE Params, Solver, Mesh, MeshDim, ParticleBunch, ElementNodes, Particles, &
324 MeshDim = Mesh % MeshDim
373 IF( MeshDim == 2 ) THEN
909 dim = Mesh % MeshDim
|
| H A D | GmshOutputReader.F90 | 249 FromMesh % MeshDim = MaxElemDim
|
| H A D | ParticleAdvector.F90 | 409 dim = Mesh % MeshDim
572 dim = Mesh % MeshDim
|
| H A D | Elmer2OpenFoamIO.F90 | 105 IF( .NOT. Found .AND. Mesh % MeshDim < 3 ) THEN
|
| H A D | Isosurface.F90 | 624 Isomesh % MeshDim = dim
845 Isomesh % MeshDim = dim
|
| H A D | SaveGridData.F90 | 293 meshdim = Mesh % MeshDim
|
| H A D | OpenFoam2ElmerIO.F90 | 100 IF( .NOT. Found .AND. Mesh % MeshDim < 3 ) THEN
|
| H A D | StructuredMeshMapper.F90 | 129 dim = Mesh % MeshDim
|
| /dports/science/elmerfem/elmerfem-release-9.0/elmerice/Solvers/GridDataReader/ |
| H A D | GridDataReader.F90 | 543 INTEGER :: n,k,node,MeshDim, NetDim,iTime,nTime local
574 MeshDim = Mesh % MeshDim
614 IF (MeshDim > NetDim ) THEN
|
| /dports/science/elmerfem/elmerfem-release-9.0/fem/src/ |
| H A D | SaveUtils.F90 | 346 IF( Mesh % MeshDim == 2 ) THEN
348 ELSE IF( Mesh % MeshDim == 3 ) THEN
|
| H A D | MeshUtils.F90 | 6729 MeshDim = Mesh % MeshDim
6734 MeshDim = 2
11657 Bmesh1 % MeshDim = 2
11969 Bmesh1 % MeshDim = 2
12216 Bmesh % MeshDim = 2
14224 MeshDim = Mesh % MeshDim
15685 NewMesh % MeshDim = Mesh % MeshDim
18543 DIM = Mesh % MeshDim
19182 DIM = Mesh % MeshDim
20962 Mesh % MeshDim = 1
[all …]
|
| H A D | InterpVarToVar.F90 | 684 …h % NumberOfNodes .NE. OldMesh % NumberOfNodes .OR. NewMesh % MeshDim .NE. OldMesh % MeshDim) THEN
|
| H A D | ModelDescription.F90 | 4573 NumberOfNodes, NumberOfElements, ind, nDOFs, MeshDim, Nzeros local
4897 MeshDim = Model % Mesh % MeshDim
4927 IF( MeshDim == 3 ) THEN
4928 WRITE(PostFileUnit,'(3ES17.8E3)') Coord(1:MeshDim)
4929 ELSE IF( MeshDim == 2 ) THEN
4930 WRITE(PostFileUnit,'(2ES17.8E3,A)') Coord(1:MeshDim),' 0.0'
4932 WRITE(PostFileUnit,'(ES17.8E3,A)') Coord(1:MeshDim),' 0.0 0.0'
|
| H A D | Types.F90 | 780 NumberOfFaces, NumberOfBoundaryElements, MeshDim = 0, MaxDim = 0, PassBCcnt=0 component
|
| /dports/science/elmerfem/elmerfem-release-9.0/fem/src/modules/SaveData/ |
| H A D | SaveLine.F90 | 115 LocalNodes, NoVar, No, axis, maxboundary, NoDims, MeshDim, NoLines, NoAxis, Line, & local
162 MeshDim = Mesh % MeshDim
1344 IF( NoDims < MeshDim ) THEN
|
| /dports/science/elmerfem/elmerfem-release-9.0/fem/src/modules/MagnetoDynamics/ |
| H A D | JfixPotentialSolver.F90 | 370 meshdim = Solver % Mesh % MeshDim
|
| /dports/science/elmerfem/elmerfem-release-9.0/elmerice/Solvers/ |
| H A D | ProjectCalving.F90 | 152 IF( Mesh % MeshDim == 3 ) THEN
155 ELSE IF( Mesh % MeshDim == 2 ) THEN
|
| /dports/science/elmerfem/elmerfem-release-9.0/elmerice/IceSheet/Greenland/SSA/ |
| H A D | Scalar_OUTPUT.F90 | 99 IF ( Model % Mesh % MeshDim /= DIM ) &
|