Suppress pio logs on non-component-root processes

Fixing a bug that was introduced in PR #2799 (commit :
3eebd7f ).

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

@@ -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