[Dart-dev] DART/branches Revision: 12822

[dart at ucar.edu]

hendric at ucar.edu
2018-09-13 15:13:59 -0600 (Thu, 13 Sep 2018)
76

removing some unused print statements that were
cluttering up the output.




Modified: DART/branches/rma_distrib/assimilation_code/modules/utilities/ensemble_manager_mod.f90
===================================================================
--- DART/branches/rma_distrib/assimilation_code/modules/utilities/ensemble_manager_mod.f90	2018-09-13 20:18:36 UTC (rev 12821)
+++ DART/branches/rma_distrib/assimilation_code/modules/utilities/ensemble_manager_mod.f90	2018-09-13 21:13:59 UTC (rev 12822)
@@ -929,8 +929,6 @@
    pes_num_vars = num_per_pe_below
 endif
 
-print*, 'get_var_list : pes_num_vars       = ', pes_num_vars
-print*, 'get_var_list : ens_handle%num_pes = ', ens_handle%num_pes
 ! Fill out the pe's vars
 do i = 1, pes_num_vars
    var_list(i) = (pe + 1) + (i - 1) * ens_handle%num_pes
@@ -963,8 +961,6 @@
    pes_num_copies = num_per_pe_below
 endif
 
-print*, 'get_copy_list : pes_num_copies     = ', pes_num_copies
-print*, 'get_copy_list : ens_handle%num_pes = ', ens_handle%num_pes
 ! Fill out the pe's copies
 do i = 1, pes_num_copies
    copy_list(i) = (pe + 1) + (i - 1) * ens_handle%num_pes
@@ -1114,9 +1110,6 @@
 ! What is maximum number of copies stored on a var complete pe?
 max_num_copies = get_max_num_copies(group_mean_handle, group_mean_handle%num_copies)
 
-print*, 'PE ', my_task_id(), ', max_num_vars   = ', max_num_vars 
-print*, 'PE ', my_task_id(), ', max_num_copies = ', max_num_copies 
-
 allocate(var_list(max_num_vars), transfer_temp(max_num_vars), &
          copy_list(max_num_copies))
 
@@ -1133,8 +1126,6 @@
 
 ! copies Dimensioned (num_copies, my_num_vars)
 ! vars   Dimensioned (num_vars, my_num_copies)
-print*, my_task_id(), 'shape(      mean_handle%vars  (:,:))', shape(mean_handle%vars(:,:))
-print*, my_task_id(), 'shape(group_mean_handle%copies(:,:))', shape(group_mean_handle%copies(:,:))
 
 mnv = group_mean_handle%my_num_vars
 mpe = group_mean_handle%my_pe
@@ -1570,7 +1561,6 @@
 
 if (ens_handle%transpose_type == 3) then
    ! duplicate a single ensmeble member on all tasks
-   print*, 'called broadcast_copy'
    call broadcast_copy(ens_handle, 1, ens_handle%vars(:, 1))
 endif
 
@@ -1906,7 +1896,6 @@
 integer :: dart_task
 integer :: group_task
 
-print*, 'group_task_to_dart_task'
 !>@ todo FIXME : How often is this accessed?  
 !> Would it be more efficient to store it in the ensemble type?
 !> Also do we even need this here, it does not appear to be used.

Modified: DART/branches/rma_distrib/assimilation_code/modules/utilities/mpi_utilities_mod.f90
===================================================================
--- DART/branches/rma_distrib/assimilation_code/modules/utilities/mpi_utilities_mod.f90	2018-09-13 20:18:36 UTC (rev 12821)
+++ DART/branches/rma_distrib/assimilation_code/modules/utilities/mpi_utilities_mod.f90	2018-09-13 21:13:59 UTC (rev 12822)
@@ -321,9 +321,9 @@
 endif
 
 ! number of tasks (if 10, returns 10.  task id numbers go from 0-9)
-print*, 'myrank =  ', myrank, ' my_local_comm = ', my_local_comm
+!print*, 'myrank =  ', myrank, ' my_local_comm = ', my_local_comm
 call MPI_Comm_size(my_local_comm, total_tasks, errcode)
-print*, 'myrank =  ', myrank, ' my_local_comm = ', my_local_comm, ' total_tasks = ', total_tasks, 'errcode', errcode
+!print*, 'myrank =  ', myrank, ' my_local_comm = ', my_local_comm, ' total_tasks = ', total_tasks, 'errcode', errcode
 if (errcode /= MPI_SUCCESS) then
    write(errstring, '(a,i8)') 'MPI_Comm_size returned error code ', errcode
    call error_handler(E_ERR,'initialize_mpi_utilities', errstring, source, revision, revdate)
@@ -523,11 +523,11 @@
 task_count = total_tasks
 
 if (present(mpi_comm)) then
-   print*, 'CALLING TASK_COUNT() WITH MPI_COMM'
-   print*, 'my_task_id() =',  my_task_id(), ' mpi_comm =  ', mpi_comm
+   !print*, 'CALLING TASK_COUNT() WITH MPI_COMM'
+   !print*, 'my_task_id() =',  my_task_id(), ' mpi_comm =  ', mpi_comm
    call MPI_Comm_size(mpi_comm, my_num_tasks, errcode)
-   print*, 'my_task_id() =',  my_task_id(), ' mpi_comm =  ', &
-           mpi_comm, ' my_num_tasks = ', my_num_tasks, ' errcode ', errcode
+   !print*, 'my_task_id() =',  my_task_id(), ' mpi_comm =  ', &
+   !        mpi_comm, ' my_num_tasks = ', my_num_tasks, ' errcode ', errcode
    if (errcode /= MPI_SUCCESS) then
       write(errstring, '(a,i8)') 'MPI_Comm_rank returned error code ', errcode
       call error_handler(E_ERR,'mpi_task_id', errstring, source, revision, revdate)
@@ -2034,7 +2034,7 @@
 ! Note to programmer: openmpi 1.10.0 does not
 ! allow scalars in mpi calls. openmpi 1.10.1 fixes
 ! this.
-print*, 'mpi_utilities window ', window
+!print*, 'mpi_utilities window ', window
 target_disp = (mindex - 1)
 call mpi_win_lock(MPI_LOCK_SHARED, owner, 0, window, errcode)
 call mpi_get(x, 1, datasize, owner, target_disp, 1, datasize, window, errcode)
@@ -2115,8 +2115,8 @@
 call mpi_group_rank(  sub_group,  group_rank,                               errcode)