From bb03ad3fed2fb904d517d8f13f8d9989f8dab879 Mon Sep 17 00:00:00 2001 From: Dustin Swales Date: Mon, 27 Jan 2020 15:47:19 -0700 Subject: [PATCH] Omission from previous commit. --- physics/rrtmgp_lw_gas_optics.F90 | 1 - 1 file changed, 1 deletion(-) diff --git a/physics/rrtmgp_lw_gas_optics.F90 b/physics/rrtmgp_lw_gas_optics.F90 index c4be69a13..5bb966d85 100644 --- a/physics/rrtmgp_lw_gas_optics.F90 +++ b/physics/rrtmgp_lw_gas_optics.F90 @@ -308,7 +308,6 @@ subroutine rrtmgp_lw_gas_optics_init(rrtmgp_root_dir, rrtmgp_lw_file_gas, rrtmgp call MPI_BCAST(press_ref_trop, 1, MPI_REAL, mpiroot, mpicomm, mpierr) call MPI_BCAST(totplnk, size(totplnk), MPI_REAL, mpiroot, mpicomm, mpierr) call MPI_BCAST(planck_frac, size(planck_frac), MPI_REAL, mpiroot, mpicomm, mpierr) -#endif ! Character arrays do ij=1,nabsorbers call MPI_BCAST(gas_names(ij), len(gas_names(ij)), MPI_CHAR, mpiroot, mpicomm, mpierr)