fix hang on abort issue

ESCOMP · Oct 10, 2023 · 65aeefb · 65aeefb
1 parent 31b7da6
commit 65aeefb
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/cesm/driver/esmApp.F90 b/cesm/driver/esmApp.F90
@@ -139,7 +139,7 @@ program esmApp
   ! Call Run  for the ensemble driver
   !-----------------------------------------------------------------------------
   call ESMF_GridCompRun(ensemble_driver_comp, userRc=urc, rc=rc)
-  if (ESMF_LogFoundError(rcToCheck=urc, msg=ESMF_LOGERR_PASSTHRU, &
+  if (ESMF_LogFoundError(rcToCheck=rc, msg=ESMF_LOGERR_PASSTHRU, &
        line=__LINE__, &
        file=__FILE__)) &
        call ESMF_Finalize(endflag=ESMF_END_ABORT)