Fix problem with new system test and array bounds issue with some con…

…serve unit tests.
esmf-org · May 24, 2024 · 5fb1a7b · 5fb1a7b
1 parent 3779cdd
commit 5fb1a7b
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 7 deletions.
diff --git a/src/Infrastructure/Field/tests/ESMF_FieldRegridCsrvUTest.F90 b/src/Infrastructure/Field/tests/ESMF_FieldRegridCsrvUTest.F90
@@ -7416,7 +7416,7 @@ subroutine test_RegridCsrvCartPHMesh(itrp, csrv, rc)
         elemIds=(/5/)  
 
         ! Allocate and fill the element topology type array.
-        allocate(elemTypes(numElemConn))
+        allocate(elemTypes(numTotElems))
         elemTypes=(/5/) ! elem id 5
 
         ! Allocate and fill the element connection type array.
@@ -8146,7 +8146,7 @@ subroutine test_RegridCsrvCartMesh(itrp, csrv, rc)
         elemMask=(/0/) 
 
         ! Allocate and fill the element topology type array.
-        allocate(elemTypes(numElemConn))
+        allocate(elemTypes(numTotElems))
         elemTypes=(/ESMF_MESHELEMTYPE_QUAD/) ! elem id 4
 
         ! Allocate and fill the element connection type array.
@@ -8504,7 +8504,7 @@ subroutine test_RegridCsrvCartMesh(itrp, csrv, rc)
         elemIds=(/5/)  
 
         ! Allocate and fill the element topology type array.
-        allocate(elemTypes(numElemConn))
+        allocate(elemTypes(numTotElems))
         elemTypes=(/ESMF_MESHELEMTYPE_QUAD/) ! elem id 4
 
         ! Allocate and fill the element connection type array.
@@ -10406,7 +10406,7 @@ subroutine test_RegridCsrvCartPHFracNorm(itrp, csrv, rc)
         elemIds=(/5/)  
 
         ! Allocate and fill the element topology type array.
-        allocate(elemTypes(numElemConn))
+        allocate(elemTypes(numTotElems))
         elemTypes=(/5/) ! elem id 5
 
         ! Allocate and fill the element connection type array.

diff --git a/src/system_tests/ESMF_FieldRegridPatchDisjoint/ESMF_FieldRegridPatchDisjointSTest.F90 b/src/system_tests/ESMF_FieldRegridPatchDisjoint/ESMF_FieldRegridPatchDisjointSTest.F90
@@ -75,7 +75,7 @@ program ESMF_FieldRegridPatchDisjointSTest
 !-------------------------------------------------------------------------
 !
     ! Initialize framework and get back default global VM
-    call ESMF_Initialize(vm=vm, defaultlogfilename="FieldRegridPatchDisjoint.Log", &
+    call ESMF_Initialize(vm=vm, defaultlogfilename="FieldRegridPatchDisjointSTest.Log", &
                         logkindflag=ESMF_LOGKIND_MULTI, rc=localrc)
     if (ESMF_LogFoundError(localrc, ESMF_ERR_PASSTHRU, &
       ESMF_CONTEXT, rcToReturn=rc)) &
@@ -366,12 +366,12 @@ program ESMF_FieldRegridPatchDisjointSTest
 
 !-------------------------------------------------------------------------
 !-------------------------------------------------------------------------
-10  print *, "System Test FieldRegridMeshToMesh complete."
+10  print *, "System Test FieldRegridPatchDisjoint complete."
 
 
     ! Normal ESMF Test output
     write(failMsg, *) "System Test failure"
-    write(testname, *) "System Test FieldRegridMeshToMesh: Field Regrid"
+    write(testname, *) "System Test FieldRegridPatchDisjoint: Field Regrid"
 
     if (rc .ne. ESMF_SUCCESS) then
       ! Separate message to console, for quick confirmation of success/failure