Added a second mpi barrier.

climbfuji · Jan 30, 2020 · be43ed8 · be43ed8
1 parent 33158c7
commit be43ed8
Showing 1 changed file with 13 additions and 0 deletions.
diff --git a/physics/rrtmgp_lw_gas_optics.F90 b/physics/rrtmgp_lw_gas_optics.F90
@@ -343,21 +343,34 @@ subroutine rrtmgp_lw_gas_optics_init(rrtmgp_root_dir, rrtmgp_lw_file_gas, rrtmgp
     do ij=1,nabsorbers
        call MPI_BCAST(gas_names(ij),                len(gas_names(ij)),           MPI_CHAR,    mpiroot, mpicomm, mpierr)
     enddo
+    write(*,*) 'Broadcasting 36 ',mpierr, mpicomm
     do ij=1,nminorabsorbers
        call MPI_BCAST(gas_minor(ij),                len(gas_minor(ij)),           MPI_CHAR,    mpiroot, mpicomm, mpierr)
+    enddo
+    write(*,*) 'Broadcasting 37 ',mpierr, mpicomm
+    do ij=1,nminorabsorbers
        call MPI_BCAST(identifier_minor(ij),         len(identifier_minor(ij)),    MPI_CHAR,    mpiroot, mpicomm, mpierr)
     enddo
+    write(*,*) 'Broadcasting 38 ',mpierr, mpicomm
     do ij=1,nminor_absorber_intervals_lower
        call MPI_BCAST(minor_gases_lower(ij),        len(minor_gases_lower(ij)),   MPI_CHAR,    mpiroot, mpicomm, mpierr)
     enddo
+    write(*,*) 'Broadcasting 39 ',mpierr, mpicomm
     do ij=1,nminor_absorber_intervals_upper
        call MPI_BCAST(minor_gases_upper(ij),        len(minor_gases_upper(ij)),   MPI_CHAR,    mpiroot, mpicomm, mpierr)
     enddo
+    write(*,*) 'Broadcasting 40 ',mpierr, mpicomm
     ! Logical arrays
     call MPI_BCAST(minor_scales_with_density_lower, nminor_absorber_intervals_lower, MPI_LOGICAL,  mpiroot, mpicomm, mpierr)
+    write(*,*) 'Broadcasting 41 ',mpierr, mpicomm
     call MPI_BCAST(scale_by_complement_lower,       nminor_absorber_intervals_lower, MPI_LOGICAL,  mpiroot, mpicomm, mpierr)
+    write(*,*) 'Broadcasting 42 ',mpierr, mpicomm
     call MPI_BCAST(minor_scales_with_density_upper, nminor_absorber_intervals_upper, MPI_LOGICAL,  mpiroot, mpicomm, mpierr)
+    write(*,*) 'Broadcasting 43 ',mpierr, mpicomm
     call MPI_BCAST(scale_by_complement_upper,       nminor_absorber_intervals_upper, MPI_LOGICAL,  mpiroot, mpicomm, mpierr)
+    write(*,*) 'Broadcasting 44 ',mpierr, mpicomm
+    call MPI_BARRIER(mpicomm, mpierr)
+    write(*,*) 'Broadcasting 45 ',mpierr, mpicomm
 #endif
 
     ! Initialize gas concentrations and gas optics class with data