Move allocation statement into master processor only.

grantfirl · Jan 30, 2020 · d351789 · d351789
1 parent e7c6c8e
commit d351789
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/physics/rrtmgp_lw_gas_optics.F90 b/physics/rrtmgp_lw_gas_optics.F90
@@ -154,7 +154,7 @@ subroutine rrtmgp_lw_gas_optics_init(rrtmgp_root_dir, rrtmgp_lw_file_gas, rrtmgp
        status = nf90_inquire_dimension(ncid, dimid, len = nminor_absorber_intervals_upper)
        status = nf90_inq_dimid(        ncid, 'temperature_Planck',             dimid)
        status = nf90_inquire_dimension(ncid, dimid, len = ninternalSourcetemps)
-    endif
+
        ! Allocate space for arrays
        allocate(gas_names(nabsorbers))
        allocate(scaling_gas_lower(nminor_absorber_intervals_lower))
@@ -186,7 +186,7 @@ subroutine rrtmgp_lw_gas_optics_init(rrtmgp_root_dir, rrtmgp_lw_file_gas, rrtmgp
        allocate(temp4(nminor_absorber_intervals_upper))
        allocate(totplnk(ninternalSourcetemps, nbnds))
        allocate(planck_frac(ngpts_lw, nmixingfracs, npress+1, ntemps))
-    if (mpirank .eq. mpiroot) then
+
        ! Read in fields from file
        write (*,*) 'Reading RRTMGP longwave k-distribution data ... '
        status = nf90_inq_varid(ncid, 'gas_names',                   varID)