Omission from previous commit.

climbfuji · Jan 27, 2020 · bb03ad3 · bb03ad3
1 parent 28243f1
commit bb03ad3
Showing 1 changed file with 0 additions and 1 deletion.
diff --git 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)