Some changes to MPI calls in inti() routines. Again and again...

climbfuji · Jan 27, 2020 · fbb009f · fbb009f
1 parent 6e0c346
commit fbb009f
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/physics/rrtmgp_lw_gas_optics.F90 b/physics/rrtmgp_lw_gas_optics.F90
@@ -116,7 +116,7 @@ subroutine rrtmgp_lw_gas_optics_init(rrtmgp_root_dir, rrtmgp_lw_file_gas, rrtmgp
     errflg = 0
 
 #ifdef MPI
-    call MPI_BARRIER(mpicomm, mpierr)
+    !call MPI_BARRIER(mpicomm, mpierr)
 #endif
 
     write(*,"(a12,3i10)") 'MPI ranks: ',mpirank,mpiroot,mpicomm
@@ -167,7 +167,7 @@ subroutine rrtmgp_lw_gas_optics_init(rrtmgp_root_dir, rrtmgp_lw_file_gas, rrtmgp
     ! Broadcast dimensions to all processors
 #ifdef MPI
     ! Hold up until data is read in on master processor
-    call MPI_BARRIER(mpicomm, mpierr)
+    !call MPI_BARRIER(mpicomm, mpierr)
 
     if (ierr .eq. 0) then
        call MPI_BCAST(ntemps,                          1, MPI_INTEGER, mpiroot, mpicomm, mpierr)