diff --git a/driver-mct/shr/seq_comm_mct.F90 b/driver-mct/shr/seq_comm_mct.F90 index ab4f9c4ebe4a..c89d9bd30cdd 100644 --- a/driver-mct/shr/seq_comm_mct.F90 +++ b/driver-mct/shr/seq_comm_mct.F90 @@ -571,7 +571,6 @@ subroutine comp_comm_init(driver_comm, comp_rootpe, comp_nthreads, comp_layout, endif call mpi_bcast(pelist, size(pelist), MPI_INTEGER, 0, DRIVER_COMM, ierr) if (present(drv_comm_id)) then - print *,__FILE__,__LINE__,drv_comm_id call seq_comm_setcomm(COMPID(n), pelist, comp_nthreads,name, drv_comm_id) else call seq_comm_setcomm(COMPID(n), pelist, comp_nthreads,name, n, num_inst_comp)