Added mpi barrier. communicator working, i think.

climbfuji · Jan 30, 2020 · 33158c7 · 33158c7
1 parent 3e79d02
commit 33158c7
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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 ... '