From eaea33b2ee97f661daf86cf2b84cea2c68b22e96 Mon Sep 17 00:00:00 2001 From: Vikas Sharma Date: Tue, 4 Jun 2024 17:46:02 +0900 Subject: [PATCH] Fixing a bug related Fixing a bug which is caused due to change of param names in reference element in base. --- src/modules/AbstractMesh/src/ElemData_Class.F90 | 6 ++++-- src/submodules/AbstractMesh/src/AbstractMeshUtility.F90 | 2 +- .../AbstractMesh/src/AbstractMesh_Class@EdgeDataMethods.F90 | 6 ++++-- .../src/AbstractMesh_Class@ElementDataMethods.F90 | 3 ++- .../AbstractMesh/src/AbstractMesh_Class@FaceDataMethods.F90 | 5 +++-- .../AbstractMesh/src/AbstractMesh_Class@GetMethods.F90 | 3 ++- 6 files changed, 16 insertions(+), 9 deletions(-) diff --git a/src/modules/AbstractMesh/src/ElemData_Class.F90 b/src/modules/AbstractMesh/src/ElemData_Class.F90 index b16bdae18..ff2a704af 100644 --- 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 index 5602aa74a..8d622a2f3 100644 --- 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 index 83e39b3c0..837e688c6 100644 --- 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 index 9c0c239ce..e1dc4bfed 100644 --- 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 index 1996fc7c7..16c849c4b 100644 --- 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 index 8cfe346cd..0df820e55 100644 --- 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, &