From 8b6aa75f87a5300508e5c3526fb5124715e94f33 Mon Sep 17 00:00:00 2001
From: Jim Edwards <jedwards@ucar.edu>
Date: Mon, 24 Jun 2024 07:19:57 -0600
Subject: [PATCH] this call is no longer needed and removing it fully removes
 the mct library from cesm

---
 cesm/driver/esm.F90 | 4 ----
 1 file changed, 4 deletions(-)

diff --git a/cesm/driver/esm.F90 b/cesm/driver/esm.F90
index a8342f54..e2ed6489 100644
--- a/cesm/driver/esm.F90
+++ b/cesm/driver/esm.F90
@@ -796,7 +796,6 @@ subroutine esm_init_pelayout(driver, maxthreads, rc)
 #ifndef NO_MPI2
     use mpi          , only : MPI_COMM_NULL, mpi_comm_size
 #endif
-    use m_MCTWorld   , only : mct_world_init => init
 
 #ifdef MED_PRESENT
     use med_internalstate_mod , only : med_id
@@ -1164,9 +1163,6 @@ subroutine esm_init_pelayout(driver, maxthreads, rc)
 
     enddo
 
-    call mct_world_init(componentCount+1, GLOBAL_COMM, comms, comps)
-
-
     deallocate(petlist, comms, comps, comp_iamin, comp_comm_iam)
 
   end subroutine esm_init_pelayout