Move allocation statements.

grantfirl · Jan 30, 2020 · 3e79d02 · 3e79d02
1 parent 09b3c3b
commit 3e79d02
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
@@ -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)
@@ -265,7 +265,7 @@ subroutine rrtmgp_lw_gas_optics_init(rrtmgp_root_dir, rrtmgp_lw_file_gas, rrtmgp
 #ifdef MPI
 !    if (mpirank .ne. mpiroot) then
     ! Wait for processor 0 to catch up...
-    call MPI_BARRIER(mpicomm, mpierr)
+    !call MPI_BARRIER(mpicomm, mpierr)
 
     ! Broadcast data
     write (*,*) 'Broadcasting RRTMGP longwave k-distribution data ... '