Added some diagnostic print statements. Remvoe barrier commands.

NCAR · Jan 28, 2020 · af24b71 · af24b71
1 parent e40e0f5
commit af24b71
Showing 1 changed file with 6 additions and 6 deletions.
diff --git a/physics/rrtmgp_lw_gas_optics.F90 b/physics/rrtmgp_lw_gas_optics.F90
@@ -270,9 +270,9 @@ subroutine rrtmgp_lw_gas_optics_init(rrtmgp_root_dir, rrtmgp_lw_file_gas, rrtmgp
     endif
 
 #ifdef MPI
-    if (mpirank .ne. mpiroot) then
-       ! Wait for processor 0 to catch up...
-       call MPI_BARRIER(mpicomm, mpierr)
+!    if (mpirank .ne. mpiroot) then
+!       ! Wait for processor 0 to catch up...
+!       call MPI_BARRIER(mpicomm, mpierr)
        ! Broadcast data
        write (*,*) 'Broadcasting RRTMGP longwave k-distribution data ... '
        call MPI_BCAST(ntemps,                          1,                            MPI_INTEGER, mpiroot, mpicomm, mpierr)
@@ -364,9 +364,9 @@ subroutine rrtmgp_lw_gas_optics_init(rrtmgp_root_dir, rrtmgp_lw_file_gas, rrtmgp
        call MPI_BCAST(scale_by_complement_lower,       nminor_absorber_intervals_lower, MPI_LOGICAL,  mpiroot, mpicomm, mpierr)
        call MPI_BCAST(minor_scales_with_density_upper, nminor_absorber_intervals_upper, MPI_LOGICAL,  mpiroot, mpicomm, mpierr)
        call MPI_BCAST(scale_by_complement_upper,       nminor_absorber_intervals_upper, MPI_LOGICAL,  mpiroot, mpicomm, mpierr)
-    else
-       call MPI_BARRIER(mpicomm, mpierr)
-    endif
+!    else
+!       call MPI_BARRIER(mpicomm, mpierr)
+!    endif
 #endif
 
     ! Initialize gas concentrations and gas optics class with data