From 33158c7f80cec30c72d6cc169ce39550500de278 Mon Sep 17 00:00:00 2001 From: Dustin Swales Date: Thu, 30 Jan 2020 14:09:54 -0700 Subject: [PATCH] Added mpi barrier. communicator working, i think. --- physics/rrtmgp_lw_gas_optics.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 ... '