Consistently use rootPet variable.

esmf-org · Sep 19, 2023 · 3ae9eec · 3ae9eec
1 parent 8e3a998
commit 3ae9eec
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/src/Superstructure/InfoAPI/tests/ESMF_InfoSyncUTest.F90 b/src/Superstructure/InfoAPI/tests/ESMF_InfoSyncUTest.F90
@@ -211,7 +211,7 @@ program ESMF_InfoSyncUTest
     if (rc /= ESMF_SUCCESS) call ESMF_Finalize(endflag=ESMF_END_ABORT)
   end if
 
-  if (localPet == 0) then
+  if (localPet == rootPet) then
     call desired_eidesc%Initialize(addObjectInfo=.true., rc=rc)
     if (rc /= ESMF_SUCCESS) call ESMF_Finalize(endflag=ESMF_END_ABORT)
 
@@ -224,7 +224,7 @@ program ESMF_InfoSyncUTest
     if (rc /= ESMF_SUCCESS) call ESMF_Finalize(endflag=ESMF_END_ABORT)
   end if
 
-  call ESMF_InfoBroadcast(desired_info, 0, rc=rc)
+  call ESMF_InfoBroadcast(desired_info, rootPet, rc=rc)
   if (rc /= ESMF_SUCCESS) call ESMF_Finalize(endflag=ESMF_END_ABORT)
 
   call ESMF_InfoSync(state, rootPet, vm, rc=rc)
@@ -325,7 +325,7 @@ program ESMF_InfoSyncUTest
   call eidesc%Destroy(rc=rc)
   if (rc /= ESMF_SUCCESS) call ESMF_Finalize(endflag=ESMF_END_ABORT)
 
-  if (localPet == 0) then
+  if (localPet == rootPet) then
     call desired_eidesc%Destroy(rc=rc)
     if (rc /= ESMF_SUCCESS) call ESMF_Finalize(endflag=ESMF_END_ABORT)
   else