Sliding/Mortars

loganoz · Jun 29, 2024 · 3783efa · 3783efa
1 parent 8ea3d4a
commit 3783efa
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/Solver/src/libs/mesh/HexMesh.f90 b/Solver/src/libs/mesh/HexMesh.f90
@@ -132,7 +132,7 @@ MODULE HexMeshClass
             procedure :: ConvertDensityToPhaseFIeld    => HexMesh_ConvertDensityToPhaseField
             procedure :: ConvertPhaseFieldToDensity    => HexMesh_ConvertPhaseFieldToDensity
 #endif
-            procedure :: MarkSlidingElement            => HexMesh_MarkSlidingElement
+            procedure :: MarkSlidingElements            => HexMesh_MarkSlidingElements
             procedure :: RotateNodes                   => HexMesh_RotateNodes
             !procedure :: ConstructSlidingMortars       => HexMesh_ConstructSlidingMortars
             procedure :: copy                          => HexMesh_Assign
@@ -2612,7 +2612,7 @@ subroutine HexMesh_SetConnectivitiesAndLinkFaces(self,nodes,facesList)   !******
         end do
 
         !!!!only for sliding mortars 
-        if (self%sliding==.TRUE.) then 
+        if (self%sliding) then 
          do ii = 1, size(self%mortar_faces)
             associate (  f => self % mortar_faces(ii)   )
                associate(eL => self % elements(f % elementIDs(1)), &
@@ -2622,7 +2622,7 @@ subroutine HexMesh_SetConnectivitiesAndLinkFaces(self,nodes,facesList)   !******
    !                 ---------------------------------
                NelL = eL % Nxyz(axisMap(:, f % elementSide(1)))
                NelR = eR % Nxyz(axisMap(:, f % elementSide(2)))
-               call f % LinkWithElements(NelL, NelR, nodes, f%offset, f%scale)
+               call f % LinkWithElements(NelL, NelR, nodes, f%offset, f%s)
                end associate 
             end associate 
          end do 

diff --git a/Solver/src/libs/mesh/MappedGeometry.f90 b/Solver/src/libs/mesh/MappedGeometry.f90
@@ -496,7 +496,7 @@ subroutine ConstructMappedGeometryFace(self, Nf, Nelf, Nel, Nel3D, spAf, spAe, g
       integer,                   intent(in)     :: projType
       integer,                   intent(in)     :: eSide
       integer,                   intent(in)     :: rot
-      logical,                   intent(in)     :: sliding 
+      logical,   optional,       intent(in)     :: sliding 
 !
 !     ---------------
 !     Local variables