| /dports/science/elmerfem/elmerfem-release-9.0/elmerice/Solvers/ |
| H A D | TwoMeshes.F90 | 109 LOGICAL, POINTER :: UnfoundNodes(:) local
120 NewVariables, UseQuadrantTree, Projector, MaskName, UnfoundNodes )
130 LOGICAL, POINTER, OPTIONAL :: UnfoundNodes(:) local
534 UnfoundNodes => NULL()
536 UnfoundNodes, Variables=MeshA % Variables)
538 IF(ANY(UnfoundNodes)) CALL Fatal(SolverName,&
543 UnfoundNodes, Variables=MeshA % Variables)
545 IF(ANY(UnfoundNodes)) CALL Fatal(SolverName,&
773 DEALLOCATE(WorkInt, UnfoundNodes)
|
| H A D | CalvingRemesh.F90 | 781 LOGICAL, POINTER, OPTIONAL :: UnfoundNodes(:)
2169 IF(ANY(UnfoundNodes)) THEN
2170 DO i=1, SIZE(UnfoundNodes)
2171 IF(UnfoundNodes(i)) THEN
2422 IF(ANY(UnfoundNodes)) THEN
2423 DO i=1, SIZE(UnfoundNodes)
2424 IF(UnfoundNodes(i)) THEN
2472 IF(ANY(UnfoundNodes)) THEN
2473 DO i=1, SIZE(UnfoundNodes)
2474 IF(UnfoundNodes(i)) THEN
[all …]
|
| H A D | CalvingGeometry.F90 | 3268 LOGICAL, POINTER :: UnfoundNodes(:)=>NULL() local
3278 NewVariables, UseQuadrantTree, Projector, MaskName, UnfoundNodes )
3288 LOGICAL, POINTER, OPTIONAL :: UnfoundNodes(:) local
3550 CALL InterpolateMeshToMesh( OldMesh, NewMesh, OldMesh % Variables, UnfoundNodes=UnfoundNodes)
3551 IF(ANY(UnfoundNodes)) THEN
3552 PRINT *, ParEnv % MyPE, ' missing ', COUNT(UnfoundNodes),' out of ',SIZE(UnfoundNodes),&
3676 DEALLOCATE(UnfoundNodes)
3740 IF(ANY(UnfoundNodes)) THEN
3744 DO i=1, SIZE(UnfoundNodes)
3745 IF(UnfoundNodes(i)) THEN
[all …]
|
| H A D | Calving3D.F90 | 98 LOGICAL, POINTER :: UnfoundNodes(:)=>NULL(), PWorkLogical(:)
1085 CALL InterpolateVarToVarReduced(IsoMesh, Mesh, "CalvingHeight", InterpDim, UnfoundNodes)
1112 UnfoundNodes(j) = .FALSE.
1127 IF(UnfoundNodes(i)) CYCLE !No calving here
1428 UnfoundNodes, OldNodeMask=PWorkLogical)
1429 IF(ANY(UnfoundNodes)) THEN
1430 DO i=1, SIZE(UnfoundNodes)
1431 IF(UnfoundNodes(i)) THEN
|
| H A D | Calving.F90 | 132 NewVariables, UseQuadrantTree, Projector, MaskName, UnfoundNodes )
142 LOGICAL, POINTER, OPTIONAL :: UnfoundNodes(:) variable
|
| H A D | Calving3D_lset.F90 | 101 LOGICAL, POINTER :: UnfoundNodes(:)=>NULL(), PWorkLogical(:)
|
| /dports/science/elmerfem/elmerfem-release-9.0/fem/src/ |
| H A D | InterpVarToVar.F90 | 71 … UnfoundNodes, OldNodeMask, NewNodeMask, OldElemMask, Variables, GlobalEps, LocalEps, NumericalEps) argument
79 LOGICAL, POINTER, OPTIONAL :: UnfoundNodes(:), OldNodeMask(:), & local
124 IF(PRESENT(UnfoundNodes)) THEN
125 IF(ASSOCIATED(UnfoundNodes)) DEALLOCATE(UnfoundNodes)
126 ALLOCATE(UnfoundNodes(NewMesh % NumberOfNodes))
135 IF(PRESENT(UnfoundNodes)) UnfoundNodes = .NOT. FoundNodes
144 IF(PRESENT(UnfoundNodes)) UnfoundNodes = .NOT. FoundNodes
547 IF(PRESENT(UnfoundNodes)) UnfoundNodes(k) = .FALSE.
|
| H A D | InterpolateMeshToMesh.F90 | 9 NewVariables, UseQuadrantTree, Projector, MaskName, UnfoundNodes ) argument
22 LOGICAL, POINTER, OPTIONAL :: UnfoundNodes(:) local
67 IF(PRESENT(UnfoundNodes)) THEN
68 IF(ASSOCIATED(UnfoundNodes)) DEALLOCATE(UnfoundNodes)
69 ALLOCATE(UnfoundNodes(NewMesh % NumberOfNodes))
83 IF(PRESENT(UnfoundNodes)) UnfoundNodes = .NOT. FoundNodes
102 IF(PRESENT(UnfoundNodes)) UnfoundNodes = .NOT. FoundNodes
475 IF(PRESENT(UnfoundNodes)) UnfoundNodes = .NOT. FoundNodes
|
| H A D | Lists.F90 | 1130 NewVariables, UseQuadrantTree, Projector, MaskName, UnfoundNodes )
1135 LOGICAL, POINTER, OPTIONAL :: UnfoundNodes(:) local
|
| /dports/science/elmerfem/elmerfem-release-9.0/fem/src/modules/ |
| H A D | Mesh2MeshSolver.F90 | 97 NewVariables, UseQuadrantTree, Projector, MaskName, UnfoundNodes )
108 LOGICAL, POINTER, OPTIONAL :: UnfoundNodes(:) local
|