TSMP-PDAF: remove debug outputs

HPSCTerrSys · Jun 19, 2024 · e51fd8b · e51fd8b
1 parent 436979b
commit e51fd8b
Show file tree

Hide file tree

Showing 2 changed files with 0 additions and 9 deletions.
diff --git a/src/drivers/mct/main/cime_comp_mod.F90 b/src/drivers/mct/main/cime_comp_mod.F90
@@ -601,7 +601,6 @@ subroutine cime_pre_init1(esmf_log_option, pdaf_comm, pdaf_id, pdaf_max)
 
     if (present(pdaf_comm)) then
       global_comm = pdaf_comm
-      !write(*,*) "PDAF_COMM present"
     else
     ! call mpi_init(ierr)
     ! call shr_mpi_chkerr(ierr,subname//' mpi_init')
@@ -615,9 +614,6 @@ subroutine cime_pre_init1(esmf_log_option, pdaf_comm, pdaf_id, pdaf_max)
     call cime_cpl_init(global_comm, driver_comm, num_inst_driver, driver_id, &
                        pdaf_id, pdaf_max)
 
-    !write(*,*) "after cime_cpl_init", global_comm, driver_comm, &
-    !                                  pdaf_id, pdaf_max
-
     call shr_pio_init1(num_inst_total,NLFileName, driver_comm)
     !
     ! If pio_async_interface is true Global_comm is MPI_COMM_NULL on the servernodes
@@ -4247,7 +4243,6 @@ subroutine cime_cpl_init(comm_in, comm_out, num_inst_driver, id, &
     call shr_mpi_commrank(comm_in, mype  , ' cime_cpl_init')
     call shr_mpi_commsize(comm_in, numpes, ' cime_cpl_init')
 
-    !write(*,*) "start of cime_cpl_init", comm_in, mype, numpes
     num_inst_driver = 1
     id    = 0
 
@@ -4277,7 +4272,6 @@ subroutine cime_cpl_init(comm_in, comm_out, num_inst_driver, id, &
             ' : Total PE number must be a multiple of coupler instance number')
     end if
 
-    !write(*,*) "just before split", comm_in, pdaf_id, mype, numpes, comm_out
     if (pdaf_max > 1) then
        call mpi_comm_split(comm_in, pdaf_id, 0, comm_out, ierr)
        call shr_mpi_chkerr(ierr,subname//' mpi_comm_split')

diff --git a/src/drivers/mct/shr/seq_comm_mct.F90 b/src/drivers/mct/shr/seq_comm_mct.F90
@@ -579,11 +579,8 @@ subroutine comp_comm_init(driver_comm, comp_rootpe, comp_nthreads, comp_layout,
           pelist(3,1) = cstr(n)
        endif
 
-       !write(*,*) "before seq_comm_set_comm bcast", pelist, DRIVER_COMM
        call mpi_bcast(pelist, size(pelist), MPI_INTEGER, 0, DRIVER_COMM, ierr)
        if (present(pdaf_id) .and. present(pdaf_max)) then
-          !write(*,*) "before seq_comm_setcomm", pdaf_id, pdaf_max, mype, n, &
-          !           COMPID(n), pelist, comp_nthreads, name
           call seq_comm_setcomm(COMPID(n),pelist,nthreads=comp_nthreads,iname=name,inst=pdaf_id,tinst=pdaf_max)
        else if (present(drv_comm_id)) then
           call seq_comm_setcomm(COMPID(n),pelist,nthreads=comp_nthreads,iname=name,inst=drv_comm_id)