Modification to LW gas optics init(). One more time.

grantfirl · Jan 28, 2020 · 28269a9 · 28269a9
1 parent c5ce144
commit 28269a9
Showing 1 changed file with 3 additions and 3 deletions.
diff --git 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