Turn tests back on.

esmf-org · Oct 21, 2024 · a3f4eff · a3f4eff
1 parent 44adb0b
commit a3f4eff
Showing 1 changed file with 17 additions and 4 deletions.
diff --git a/src/Infrastructure/Mesh/tests/ESMF_MeshUTest.F90 b/src/Infrastructure/Mesh/tests/ESMF_MeshUTest.F90
@@ -118,7 +118,7 @@ program ESMF_MeshUTest
 
 
  ! This surrounds all the tests to make turning off everything but one test easier
-#if 0
+#if 1
 
   !------------------------------------------------------------------------
 
@@ -2053,7 +2053,7 @@ program ESMF_MeshUTest
   call ESMF_Test(((rc .eq. ESMF_SUCCESS) .and. correct), name, failMsg, result, ESMF_SRCLINE)
   !-----------------------------------------------------------------------------
 
-#if 0  
+#if 1
   !-----------------------------------------------------------------------------
   !NEX_UTest
   write(name, *) "Mesh Create and then Redist with a pentagon and hexagon element"
@@ -8364,6 +8364,7 @@ subroutine exhaustiveMeshDualTest(correct, rc)
                9,10,11,12,13,14,&
                 15,16/)
 
+
      !! node Coords
      allocate(nodeCoords(numNodes*2))
      nodeCoords=(/0.0,0.0, & ! 1
@@ -8391,7 +8392,7 @@ subroutine exhaustiveMeshDualTest(correct, rc)
 
       ! Fill in elem data
       numTriElems=0
-       numQuadElems=9
+      numQuadElems=9
       numElems=numTriElems+numQuadElems
       numElemConns=3*numTriElems+4*numQuadElems
 
@@ -8880,8 +8881,20 @@ subroutine exhaustiveMeshDualTest(correct, rc)
       rc=ESMF_FAILURE
       return
    endif
-
 
+   ! Deallocate
+   deallocate(nodeIds)
+   deallocate(nodeIdsTst)
+   deallocate(nodeCoords)
+   deallocate(nodeCoordsTst)
+   deallocate(nodeMask)
+   deallocate(elemIds)
+   deallocate(elemIdsTst)
+   deallocate(elemMask)
+   deallocate(elemCoords)
+   deallocate(elemCoordsTst)
+
+
    ! Destroy meshes
    call ESMF_MeshDestroy(dualMesh, rc=rc)
    if (rc /= ESMF_SUCCESS) return