Use the correct local logical variable when calling down into C++ layer.

esmf-org · Sep 25, 2024 · e957f39 · e957f39
1 parent cda15d3
commit e957f39
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Infrastructure/VM/interface/ESMF_VM.F90 b/src/Infrastructure/VM/interface/ESMF_VM.F90
@@ -10395,7 +10395,7 @@ function ESMF_VMIdCompare(vmId1, vmId2, keyOnly, rc)
     endif
 
     ! Call into the C++ interface
-    call c_ESMC_VMIdCompare(vmId1, vmId2, keyOnly, tf, localrc)
+    call c_ESMC_VMIdCompare(vmId1, vmId2, keyOnlyOpt, tf, localrc)
     ESMF_VMIdCompare = tf == ESMF_TRUE
     if (ESMF_LogFoundError(localrc, ESMF_ERR_PASSTHRU, &
       ESMF_CONTEXT, rcToReturn=rc)) return