From 28269a94fcb85ebbfc1c9678b7b93c69642a4ed8 Mon Sep 17 00:00:00 2001 From: Dustin Swales Date: Tue, 28 Jan 2020 10:35:04 -0700 Subject: [PATCH] Modification to LW gas optics init(). One more time. --- physics/rrtmgp_lw_gas_optics.F90 | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/physics/rrtmgp_lw_gas_optics.F90 b/physics/rrtmgp_lw_gas_optics.F90 index 7557fcbae..47f0d014f 100644 --- a/physics/rrtmgp_lw_gas_optics.F90 +++ b/physics/rrtmgp_lw_gas_optics.F90 @@ -270,7 +270,7 @@ subroutine rrtmgp_lw_gas_optics_init(rrtmgp_root_dir, rrtmgp_lw_file_gas, rrtmgp endif #ifdef MPI - if (mpirank .ne. mpiroot) then +! if (mpirank .ne. mpiroot) then ! Wait for processor 0 to catch up... call MPI_BARRIER(mpicomm, mpierr) ! Broadcast data @@ -329,9 +329,9 @@ subroutine rrtmgp_lw_gas_optics_init(rrtmgp_root_dir, rrtmgp_lw_file_gas, rrtmgp call MPI_BCAST(scale_by_complement_lower, nminor_absorber_intervals_lower, MPI_LOGICAL, mpiroot, mpicomm, mpierr) call MPI_BCAST(minor_scales_with_density_upper, nminor_absorber_intervals_upper, MPI_LOGICAL, mpiroot, mpicomm, mpierr) call MPI_BCAST(scale_by_complement_upper, nminor_absorber_intervals_upper, MPI_LOGICAL, mpiroot, mpicomm, mpierr) - else +! else call MPI_BARRIER(mpicomm, mpierr) - endif +! endif #endif ! Initialize gas concentrations and gas optics class with data