From b2afe298e503ef14e75b04949aacebcd79e39422 Mon Sep 17 00:00:00 2001 From: jayeshkrishna Date: Thu, 4 Apr 2019 17:38:08 -0500 Subject: [PATCH] Suppress pio logs on non-component-root processes Fixing a bug that was introduced in PR #2799 (commit : 3eebd7fe90a87f8e824989bddbd63ad053239aad ). Making sure that we print out PIO logs only from rank 0 of each component. The old code printed out logs from all ranks in each component, resulting in large log files. Fixes #2839 --- src/share/util/shr_pio_mod.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/share/util/shr_pio_mod.F90 b/src/share/util/shr_pio_mod.F90 index 855e715682bd..04461903423b 100644 --- a/src/share/util/shr_pio_mod.F90 +++ b/src/share/util/shr_pio_mod.F90 @@ -233,7 +233,7 @@ subroutine shr_pio_init2(comp_id, comp_name, comp_iamin, comp_comm, comp_comm_ia end do end if do i=1,total_comps - if(comp_iamin(i)) then + if(comp_iamin(i) .and. (comp_comm_iam(i) == 0)) then write(shr_log_unit,*) io_compname(i),' : pio_numiotasks = ',pio_comp_settings(i)%pio_numiotasks write(shr_log_unit,*) io_compname(i),' : pio_stride = ',pio_comp_settings(i)%pio_stride write(shr_log_unit,*) io_compname(i),' : pio_rearranger = ',pio_comp_settings(i)%pio_rearranger