From be43ed8319d25de7f9146bfde679a7c32250df8c Mon Sep 17 00:00:00 2001 From: Dustin Swales Date: Thu, 30 Jan 2020 14:46:01 -0700 Subject: [PATCH] Added a second mpi barrier. --- physics/rrtmgp_lw_gas_optics.F90 | 13 +++++++++++++ 1 file changed, 13 insertions(+) diff --git a/physics/rrtmgp_lw_gas_optics.F90 b/physics/rrtmgp_lw_gas_optics.F90 index 6ad48304b..9ba7415d8 100644 --- 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