diff --git a/physics/rrtmgp_lw_gas_optics.F90 b/physics/rrtmgp_lw_gas_optics.F90 index 0a2c81e3a..6ad48304b 100644 --- a/physics/rrtmgp_lw_gas_optics.F90 +++ b/physics/rrtmgp_lw_gas_optics.F90 @@ -265,7 +265,7 @@ subroutine rrtmgp_lw_gas_optics_init(rrtmgp_root_dir, rrtmgp_lw_file_gas, rrtmgp #ifdef MPI ! if (mpirank .ne. mpiroot) then ! Wait for processor 0 to catch up... - !call MPI_BARRIER(mpicomm, mpierr) + call MPI_BARRIER(mpicomm, mpierr) ! Broadcast data write (*,*) 'Broadcasting RRTMGP longwave k-distribution data ... '