Merge pull request #491 from easifem/master-fixing-bug

Fixing a bug related
easifem · Jun 4, 2024 · bfbd14e · bfbd14e
2 parents bfdb87d + eaea33b
commit bfbd14e
Show file tree

Hide file tree

Showing 6 changed files with 16 additions and 9 deletions.
diff --git a/src/modules/AbstractMesh/src/ElemData_Class.F90 b/src/modules/AbstractMesh/src/ElemData_Class.F90
@@ -18,8 +18,10 @@
 MODULE ElemData_Class
 USE GlobalData, ONLY: I4B, DFP, LGT, INT8
 USE Display_Method, ONLY: Display
-USE ReferenceElement_Method, ONLY: REFELEM_MAX_FACES,  &
-  & REFELEM_MAX_POINTS, RefElemGetGeoParam, ElementName
+USE ReferenceElement_Method, ONLY: REFELEM_MAX_FACES => &
+                                   PARAM_REFELEM_MAX_FACES, &
+                             REFELEM_MAX_POINTS => PARAM_REFELEM_MAX_POINTS, &
+                                   RefElemGetGeoParam, ElementName
 USE ReferenceQuadrangle_Method, ONLY: HelpFaceData_Quadrangle,  &
   & FaceShapeMetaData_Quadrangle
 USE SortUtility

diff --git a/src/submodules/AbstractMesh/src/AbstractMeshUtility.F90 b/src/submodules/AbstractMesh/src/AbstractMeshUtility.F90
@@ -58,7 +58,7 @@ SUBROUTINE InitiateElementToElements3D(elementData, tFaceInMesh, showTime)
   CHARACTER(*), PARAMETER :: myName = "obj_InitiateElementToElements3D()"
   LOGICAL(LGT) :: problem, isok1, isok2
   INTEGER(I4B) :: telems, iel, aint, bint, tfaces, ii, jj, &
-    & temp1(3 * REFELEM_MAX_FACES), cint
+    & temp1(3 * PARAM_REFELEM_MAX_FACES), cint
   INTEGER(I4B), ALLOCATABLE :: face2elem(:, :)
   LOGICAL(LGT), ALLOCATABLE :: amask(:)
   TYPE(CPUTime_) :: TypeCPUTime

diff --git a/src/submodules/AbstractMesh/src/AbstractMesh_Class@EdgeDataMethods.F90 b/src/submodules/AbstractMesh/src/AbstractMesh_Class@EdgeDataMethods.F90
@@ -16,8 +16,10 @@
 !
 
 SUBMODULE(AbstractMesh_Class) EdgeDataMethods
-USE ReferenceElement_Method, ONLY: REFELEM_MAX_EDGES,  &
-  & REFELEM_MAX_POINTS, RefElemGetGeoParam
+USE ReferenceElement_Method, ONLY: &
+  REFELEM_MAX_EDGES => PARAM_REFELEM_MAX_EDGES, &
+  REFELEM_MAX_POINTS => PARAM_REFELEM_MAX_POINTS, &
+  RefElemGetGeoParam
 USE ReferenceLine_Method, ONLY: MaxOrder_Line
 USE ReallocateUtility, ONLY: Reallocate
 USE EdgeData_Class

diff --git a/src/submodules/AbstractMesh/src/AbstractMesh_Class@ElementDataMethods.F90 b/src/submodules/AbstractMesh/src/AbstractMesh_Class@ElementDataMethods.F90
@@ -18,7 +18,8 @@
 SUBMODULE(AbstractMesh_Class) ElementDataMethods
 USE ReallocateUtility
 USE Display_Method
-USE ReferenceElement_Method, ONLY: REFELEM_MAX_FACES
+USE ReferenceElement_Method, ONLY: &
+  REFELEM_MAX_FACES => PARAM_REFELEM_MAX_FACES
 USE AbstractMeshUtility, ONLY: InitiateElementToElements3D, &
   & InitiateElementToElements2D, &
   & InitiateElementToElements1D

diff --git a/src/submodules/AbstractMesh/src/AbstractMesh_Class@FaceDataMethods.F90 b/src/submodules/AbstractMesh/src/AbstractMesh_Class@FaceDataMethods.F90
@@ -16,8 +16,9 @@
 !
 
 SUBMODULE(AbstractMesh_Class) FaceDataMethods
-USE ReferenceElement_Method, ONLY: REFELEM_MAX_FACES,  &
-  & REFELEM_MAX_POINTS,  &
+USE ReferenceElement_Method, ONLY: &
+  REFELEM_MAX_FACES => PARAM_REFELEM_MAX_FACES,  &
+  & REFELEM_MAX_POINTS => PARAM_REFELEM_MAX_POINTS,  &
   & RefElemGetGeoParam,  &
   & IsQuadrangle
 

diff --git a/src/submodules/AbstractMesh/src/AbstractMesh_Class@GetMethods.F90 b/src/submodules/AbstractMesh/src/AbstractMesh_Class@GetMethods.F90
@@ -21,7 +21,8 @@
 USE BoundingBox_Method
 USE InputUtility
 USE Display_Method
-USE ReferenceElement_Method, ONLY: REFELEM_MAX_FACES, &
+USE ReferenceElement_Method, ONLY: &
+  REFELEM_MAX_FACES => PARAM_REFELEM_MAX_FACES, &
   & GetEdgeConnectivity,  &
   & GetFaceConnectivity,  &
   & ElementOrder, &