Apply patch for cpl to avoid hangs

cime/src/drivers/mct/main/cime_comp_mod.F90

@@ -2083,6 +2083,7 @@ subroutine cime_run()
    use seq_comm_mct,   only: atm_layout, lnd_layout, ice_layout, glc_layout,  &
         rof_layout, ocn_layout, wav_layout, esp_layout
    use shr_string_mod, only: shr_string_listGetIndexF
+   use seq_comm_mct, only: num_inst_driver
 
    ! gptl timer lookup variables
    integer, parameter :: hashcnt=7
@@ -3739,7 +3740,9 @@ subroutine cime_run()
       !----------------------------------------------------------
       if (esp_present .and. esprun_alarm) then
          ! Make sure that all couplers are here in multicoupler mode before running ESP component
+        if (num_inst_driver > 1) then
          call mpi_barrier(global_comm, ierr)
+        endif
 
          call component_run(Eclock_e, esp, esp_run, infodata, &
               comp_prognostic=esp_prognostic, comp_num=comp_num_esp, &