Updates in Mesh_Class

Adding meshPointerDeallocate method to deallocate array of meshPointer.

Author: vickysharma0812

src/modules/Mesh/src/Mesh_Class.F90

@@ -47,6 +47,7 @@ MODULE Mesh_Class
 PUBLIC :: MeshPointer_
 PUBLIC :: Mesh_Pointer
 PUBLIC :: DEALLOCATE
+PUBLIC :: meshPointerDeallocate
 PUBLIC :: MeshDisplay
 
 CHARACTER(*), PARAMETER :: modName = "Mesh_Class"
@@ -91,7 +92,7 @@ MODULE Mesh_Class
     !! Read mesh from hdf5 file
   PROCEDURE, PUBLIC, PASS(obj) :: ExportToVTK => obj_ExportToVTK
     !! Export mesh to a VTKfile
-  PROCEDURE, PUBLIC, PASS(obj) :: Display => obj_display
+  PROCEDURE, PUBLIC, PASS(obj) :: Display => obj_Display
     !! Display the mesh
   PROCEDURE, PUBLIC, PASS(obj) :: DisplayFacetElements => &
     & obj_DisplayFacetElements
@@ -170,7 +171,7 @@ MODULE Mesh_Class
 !                                                                     Mesh_
 !----------------------------------------------------------------------------
 
-! TYPE( Mesh_ ), PARAMETER, PUBLIC :: TypeMesh = Mesh_( )
+! TYPE(Mesh_), PARAMETER, PUBLIC :: TypeMesh = Mesh_( )
 
 !----------------------------------------------------------------------------
 !
@@ -181,7 +182,7 @@ MODULE Mesh_Class
 ! summary: Userdefine datatype which contains the pointer to a mesh
 
 TYPE :: MeshPointer_
-  TYPE(Mesh_), POINTER :: Ptr => NULL()
+  TYPE(Mesh_), POINTER :: ptr => NULL()
 END TYPE MeshPointer_
 
 !----------------------------------------------------------------------------
@@ -211,7 +212,7 @@ END SUBROUTINE obj_Final
 END INTERFACE
 
 !----------------------------------------------------------------------------
-!                                                    Deallocate@Constructor
+!                                             Deallocate@ConstructorMethods
 !----------------------------------------------------------------------------
 
 !> authors: Vikas Sharma, Ph. D.
@@ -225,6 +226,21 @@ MODULE SUBROUTINE obj_Deallocate(obj)
   END SUBROUTINE obj_Deallocate
 END INTERFACE DEALLOCATE
 
+!----------------------------------------------------------------------------
+!                                               Deallocate@ConstructorMethods
+!----------------------------------------------------------------------------
+
+!> authors: Vikas Sharma, Ph. D.
+! date: 25 March 2021
+! update: 2024-01-27
+! summary: Free up the memory stored in [[obj_]]
+
+INTERFACE DEALLOCATE
+  MODULE SUBROUTINE meshPointerDeallocate(obj)
+    TYPE(MeshPointer_), ALLOCATABLE, INTENT(INOUT) :: obj(:)
+  END SUBROUTINE meshPointerDeallocate
+END INTERFACE DEALLOCATE
+
 !----------------------------------------------------------------------------
 !                                                           Import@IOMethods
 !----------------------------------------------------------------------------
@@ -489,7 +505,7 @@ END FUNCTION obj_GetFacetConnectivity2
 END INTERFACE
 
 !----------------------------------------------------------------------------
-!                                                     GetQuery@GetMethods
+!                                                       GetQuery@GetMethods
 !----------------------------------------------------------------------------
 
 INTERFACE
@@ -661,7 +677,7 @@ END SUBROUTINE obj_InitiateFacetElements
 END INTERFACE
 
 !----------------------------------------------------------------------------
-!                                                      SetSparsity@setMethod
+!                                                      SetSparsity@SetMethod
 !----------------------------------------------------------------------------
 
 !> authors: Vikas Sharma, Ph. D.
@@ -704,16 +720,12 @@ END SUBROUTINE obj_SetSparsity2
 END INTERFACE
 
 !----------------------------------------------------------------------------
-!                                                      SetSparsity@setMethod
+!                                                     SetSparsity@SetMethods
 !----------------------------------------------------------------------------
 
 !> authors: Vikas Sharma, Ph. D.
 ! date: 12 Oct 2021
 ! summary: This routine Set the sparsity pattern in [[CSRMatrix_]] object
-!
-!# Introduction
-!
-! This routine Sets the sparsity pattern in [[CSRMatrix_]] object.
 
 INTERFACE
   MODULE SUBROUTINE obj_SetSparsity3(obj, colMesh, nodeToNode, mat, &
@@ -732,16 +744,12 @@ END SUBROUTINE obj_SetSparsity3
 END INTERFACE
 
 !----------------------------------------------------------------------------
-!                                                      SetSparsity@setMethod
+!                                                     SetSparsity@SetMethods
 !----------------------------------------------------------------------------
 
 !> authors: Vikas Sharma, Ph. D.
 ! date: 12 Oct 2021
 ! summary: This routine Set the sparsity pattern in [[CSRMatrix_]] object
-!
-!# Introduction
-!
-! This routine Sets the sparsity pattern in [[CSRMatrix_]] object.
 
 INTERFACE
   MODULE SUBROUTINE obj_SetSparsity4(obj, colMesh, nodeToNode, mat, &
@@ -774,7 +782,7 @@ END SUBROUTINE obj_SetSparsity4
 !----------------------------------------------------------------------------
 
 !> authors: Vikas Sharma, Ph. D.
-! date: 14 April 2022
+! date: 2022-04-14
 ! summary: Set the facet element type of a given cell number
 
 INTERFACE

src/submodules/Mesh/src/[email protected]

@@ -38,7 +38,7 @@
 END PROCEDURE obj_Constructor_1
 
 !----------------------------------------------------------------------------
-!                                                            Deallocate
+!                                                                Deallocate
 !----------------------------------------------------------------------------
 
 MODULE PROCEDURE obj_Deallocate
@@ -58,4 +58,32 @@
 obj%refelem => NULL()
 END PROCEDURE obj_Deallocate
 
+!----------------------------------------------------------------------------
+!                                                      meshPointerDeallocate
+!----------------------------------------------------------------------------
+
+MODULE PROCEDURE meshPointerDeallocate
+CLASS(Mesh_), POINTER :: meshObj
+INTEGER(I4B) :: ii, tsize
+LOGICAL(LGT) :: isok
+
+meshObj => NULL()
+IF (ALLOCATED(obj)) THEN
+  tsize = SIZE(obj)
+
+  DO ii = 1, tsize
+
+    meshObj => obj(ii)%ptr
+    isok = ASSOCIATED(meshObj)
+    IF (isok) THEN
+      CALL meshobj%DEALLOCATE()
+      meshObj => NULL()
+    END IF
+
+  END DO
+
+  DEALLOCATE (obj)
+END IF
+END PROCEDURE meshPointerDeallocate
+
 END SUBMODULE ConstructorMethods